TGC Codebase Backup



Better Way To Find Number Easy... by Jedi Lord

3rd Jul 2004 1:06
Summary

It is my very FIRST PROGRAM!!!!!! you will like but DON'T LAUGH AT ME WHEN I AM BEGINNER BUT I LEARN MANY THING AND I KNOW MANY COMMAND TO DO IT



Description

I WORK ON IT FOR 5 HOUR
AND I HAVE ONLY A BOOK OF DARKBASIC AND DARKBASIC PROGRAM NO PROFESSIONAL
TILL I MAKE ORB RACE HE SAID I NEED GOOD BUILDING, PEOPLE, GOOD LANDSCAPE AND AIR WORK.



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    remstart
-----------------
    math work
-----------------
remend
beginofprogram:

set cursor 200,0
print "up key to + and down key to -"
set cursor 200,20
print "right key to x and left key to /"

input "pick your first number ", number#
input "pick your sencond number ", number2#

repeat

if upkey()
cls
print "it is + number if you want to do new number press q buttion"
answer = number# + number2#
print "Answer > ", answer
endif

if downkey()
cls
print "it is - number if you want to do new number press q buttion"
answer = number# - number2#
print "Answer > ", answer
endif

if leftkey()
cls
print "it is x number if you want to do new number press q buttion"
answer = number# * number2#
print "Answer > ", answer
endif

if rightkey()
cls
print "it is / number if you want to do new number press q buttion"
answer = number# / number2#
print "Answer > ", answer
endif

until inkey$()="q"
print "if you want to quit press other buttion or press y to do again"

if inkey$()="y"
cls
goto beginofprogram
else
goto endofprogram
endif

endofprogram:
end