Better Way To Find Number Easy... by Jedi Lord3rd 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 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 |