Screen 0PRINT "HELLO WORLD"PLAY "aagfebcd"PRINT "this is fun"END
DEFLNG A-ZSCREEN 12COLOR 0, 2DO LOCATE 2, 5 PRINT " Here it is now" PLAY " a4gc-b10c0eg" CLS LOCATE 15, 22 PLAY "g10ae,ga0bc" PRINT "It went here" _DELAY 1 CLS PRINT "any key, quits" PRINT "So this is a simple demo of locate,print, and play." PRINT " Also, DO, LOOP, UNTIL and INKEY$ ,since there is no key,specified" PRINT "then anykey exits the loop" _DELAY 2 CLS LOCATE 26, 22 PRINT "now it is here" _DELAY 1LOOP UNTIL INKEY$ <> ""
DEFLNG A-ZScreen 0INPUT "What is your name "; name$PRINT "Hello "; name$PRINT " My name is Garry, I made this up,with the help of a tutorial,by Vic"PRINT "Thank you, wait a couple of seconds to go on"_DELAY 4CLS1 PRINT "These are some choices,of how many times to print something"INPUT "0, 2,3,4,5,6,10"; numberIF number = 0 THEN ENDEND IFIF number = 2 THEN CLS FOR i = 1 TO 2 PRINT "You selected 2 " NEXT GOTO 1END IFIF number = 3 THEN CLS FOR i = 1 TO 3 PRINT "You selected 3" NEXT GOTO 1 ENDEND IFIF number = 4 THEN CLS FOR i = 1 TO 4 PRINT " you selected 4 " NEXT GOTO 1 ENDEND IFIF number = 5 THEN CLS FOR i = 1 TO 5 PRINT "you selected 5 " NEXT GOTO 1 ENDEND IFIF number = 6 THEN CLS FOR i = 0 TO 1 PRINT " 6 is going to be different" NEXT GOTO 2 ENDEND IFIF number = 10 THEN CLS FOR i = 1 TO 10 PRINT "you selected 10" NEXT GOTO 1 ENDEND IF2 PRINT "this is 6"PLAY "aaaaaa"PRINT " 3 x 2 ="PRINT 3 * 2_DELAY 1GOTO 1
REMDEFINT A-ZSCREEN 12Done = 0DO LOCATE 2, 10 PRINT "WELCOME to Garrys invention" COLOR 2: PRINT "You Can do these things " PRINT "1)Multiply" PRINT "2)ADD" PRINT "3)Quit" Valid% = 0 WHILE Valid% = 0 Choice$ = INPUT$(1) Choice% = ASC(LTRIM$(Choice$)) PRINT Choice$, Choice% SELECT CASE Choice% CASE 49 TO 51 Valid% = 1 CASE ELSE Valid% = 0 END SELECT WEND CLS SELECT CASE Choice% CASE 49 'multiply RANDOMIZE TIMER Num1% = INT(RND * 9) + 1 Num2% = INT(RND * 9) + 1 LOCATE 10, 2 PRINT "The product of"; Num1%; " x "; Num2%; "= " INPUT Answer$ Answer% = VAL(LTRIM$(Answer$)) IF Answer% = Num1% * Num2% THEN PRINT "Correct "; Num1%; " x "; Num2%; " = "; Answer% SOUND 1000, 1 ELSE PRINT "Wrong "; SOUND 600, 3 Answer% = Num1% * Num2% PRINT Num1%; " x "; Num2%; " = "; Answer% END IF PRINT Answer$ CASE 50 'addition RANDOMIZE TIMER Num1% = INT(RND * 9) + 1 Num2% = INT(RND * 9) + 1 LOCATE 10, 2 PRINT "The sum of"; Num1%; " + "; Num2%; "= " INPUT Answer$ Answer% = VAL(LTRIM$(Answer$)) IF Answer% = Num1% + Num2% THEN PRINT "Correct "; Num1%; " + "; Num2%; " = "; Answer% SOUND 1000, 1 ELSE PRINT "Wrong "; SOUND 600, 3 Answer% = Num1% + Num2% PRINT Num1%; " + "; Num2%; " = "; Answer% END IF CASE 51 'quit Done = 1 END SELECT _DELAY 1 CLSLOOP WHILE Done = 0SLEEPSYSTEM
DEFLNG A-ZSCREEN 0INPUT "What is your name "; name$PRINT "Hello "; name$PRINT " My name is Garry, I made this up,with the help of a tutorial,by Vic"PRINT "Thank you, wait a couple of seconds to go on"_DELAY 4CLS1 PRINT "These are some choices,of how many times to print something"PRINT "NOTE 0 will exit the program"PRINT " 0 exits,2,3,5 and 10,print that many times"PRINT " 6 beeps six times,"PRINT " 9 goes to another program "INPUT "0,2,3,4,5,6,10,9"; numberIF number = 9 THEN CLS FOR i = 1 TO 0 PRINT "you selected 9,now you will see screen 12" _DELAY 3 NEXT GOTO 12 ENDEND IFIF number = 0 THEN ENDEND IFIF number = 2 THEN CLS FOR i = 1 TO 2 PRINT "You selected 2 " NEXT GOTO 1END IFIF number = 3 THEN CLS FOR i = 1 TO 3 PRINT "You selected 3" NEXT GOTO 1 ENDEND IFIF number = 4 THEN CLS FOR i = 1 TO 4 PRINT " you selected 4 " NEXT GOTO 1 ENDEND IFIF number = 5 THEN CLS FOR i = 1 TO 5 PRINT "you selected 5 " NEXT GOTO 1 ENDEND IFIF number = 6 THEN CLS FOR i = 0 TO 1 PRINT " 6 is going to be different" NEXT GOTO 2 'ENDEND IFIF number = 10 THEN CLS FOR i = 1 TO 10 PRINT "you selected 10" NEXT GOTO 1 ENDEND IF2 PRINT "this is 6"PLAY "aaaaaa"PRINT " 3 x 2 ="PRINT 3 * 2_DELAY 2GOTO 1END12DEFINT A-ZSCREEN 12PRINT "Hello "; name$PRINT "THIS WILL BE SCREEN 12"PRINT "The following code dose not use GOTO,"PRINT "Hit any key to continue"SLEEPCLSDone = 0DO LOCATE 2, 10 PRINT "WELCOME to Garrys invention" COLOR 2: PRINT "You Can do these things "'///Note it is in this part, that if any key other a number is "hit", it displays, the letter and a number, for example v 111, the space key will cause a error, so I need to find out how to fix this. PRINT "1)Multiply" PRINT "2)ADD" PRINT "3)Quit" Valid% = 0 WHILE Valid% = 0 Choice$ = INPUT$(1) Choice% = ASC(LTRIM$(Choice$)) PRINT Choice$, Choice% SELECT CASE Choice% CASE 49 TO 51 Valid% = 1 CASE ELSE Valid% = 0 END SELECT WEND CLS SELECT CASE Choice% CASE 49 'multiply RANDOMIZE TIMER Num1% = INT(RND * 9) + 1 Num2% = INT(RND * 9) + 1 LOCATE 10, 2 PRINT "The product of"; Num1%; " x "; Num2%; "= " INPUT Answer$ Answer% = VAL(LTRIM$(Answer$)) IF Answer% = Num1% * Num2% THEN PRINT "Correct "; Num1%; " x "; Num2%; " = "; Answer% SOUND 1000, 1 ELSE PRINT "Wrong "; SOUND 600, 3 Answer% = Num1% * Num2% PRINT Num1%; " x "; Num2%; " = "; Answer% _DELAY 3 END IF PRINT Answer$ CASE 50 'addition RANDOMIZE TIMER Num1% = INT(RND * 9) + 1 Num2% = INT(RND * 9) + 1 LOCATE 10, 2 PRINT "The sum of"; Num1%; " + "; Num2%; "= " INPUT Answer$ Answer% = VAL(LTRIM$(Answer$)) IF Answer% = Num1% + Num2% THEN PRINT "Correct "; Num1%; " + "; Num2%; " = "; Answer% SOUND 1000, 1 ELSE PRINT "Wrong "; SOUND 600, 3 Answer% = Num1% + Num2% PRINT Num1%; " + "; Num2%; " = "; Answer% _DELAY 3 END IF CASE 51 'quit Done = 1 END SELECT _DELAY 1 CLS PRINT "Press anykey to exit" _DELAY 2 CLSLOOP WHILE Done = 0SLEEPSYSTEM
DEFLNG A-ZSCREEN 0INPUT "What is your name "; name$PRINT "Hello "; name$PRINT " My name is Garry, I made this up,with the help of a tutorial,by Vic"PRINT "Thank you, wait a couple of seconds to go on"_DELAY 4CLS1 PRINT "These are some choices,of how many times to print something"PRINT "NOTE 0 will exit the program"PRINT " 0 exits,2,3,5 and 10,print that many times"PRINT " 6 beeps six times,"PRINT " 9 goes to another program "INPUT "0,2,3,4,5,6,10,9"; numberIF number = 9 THEN CLS FOR i = 1 TO 0 PRINT "you selected 9,now you will see screen 12" _DELAY 3 NEXT GOTO 12 ENDEND IFIF number = 0 THEN ENDEND IFIF number = 2 THEN CLS FOR i = 1 TO 2 PRINT "You selected 2 " NEXT GOTO 1END IFIF number = 3 THEN CLS FOR i = 1 TO 3 PRINT "You selected 3" NEXT GOTO 1 ENDEND IFIF number = 4 THEN CLS FOR i = 1 TO 4 PRINT " you selected 4 " NEXT GOTO 1 ENDEND IFIF number = 5 THEN CLS FOR i = 1 TO 5 PRINT "you selected 5 " NEXT GOTO 1 ENDEND IFIF number = 6 THEN CLS FOR i = 0 TO 1 PRINT " 6 is going to be different" NEXT GOTO 2 'ENDEND IFIF number = 10 THEN CLS FOR i = 1 TO 10 PRINT "you selected 10" NEXT GOTO 1 ENDEND IF2 PRINT "this is 6"PLAY "aaaaaa"PRINT " 3 x 2 ="PRINT 3 * 2_DELAY 2GOTO 1END12DEFINT A-ZSCREEN 12PRINT "Hello "; name$PRINT "THIS WILL BE SCREEN 12"PRINT "The following code dose not use GOTO,"PRINT "Hit any key to continue"SLEEPCLSDone = 0start:CLSDO '/// This is PART 2 and it has a bug LOCATE 2, 10 PRINT "WELCOME to Garrys invention" COLOR 2: PRINT "You Can do these things " '///Note it is in this part, that if any key other a number is "hit", it displays, the letter and a number, for example v 111, the space key will cause a error, so I need to find out how to fix this.NOW it is fixed, PRINT "1)Multiply" PRINT "2)ADD" PRINT "3)Quit" Valid% = 0 WHILE Valid% = 0 Choice$ = INPUT$(1) Choice% = ASC(LTRIM$(Choice$)) 'PRINT Choice$, Choice% <===this line you was telling it to print the numbers and characters SELECT CASE Choice% CASE 49 TO 51 Valid% = 1 CASE ELSE Valid% = 0 END SELECT WEND CLS SELECT CASE Choice% CASE 49 'multiply RANDOMIZE TIMER Num1% = INT(RND * 9) + 1 Num2% = INT(RND * 9) + 1 LOCATE 10, 2 PRINT "The product of"; Num1%; " x "; Num2%; "= " INPUT Answer$ Answer% = VAL(LTRIM$(Answer$)) IF Answer% = Num1% * Num2% THEN PRINT "Correct "; Num1%; " x "; Num2%; " = "; Answer% SOUND 1000, 1 ELSE PRINT "Wrong "; SOUND 600, 3 Answer% = Num1% * Num2% PRINT Num1%; " x "; Num2%; " = "; Answer% _DELAY 3 END IF PRINT Answer$ CASE 50 'addition RANDOMIZE TIMER Num1% = INT(RND * 9) + 1 Num2% = INT(RND * 9) + 1 LOCATE 10, 2 PRINT "The sum of"; Num1%; " + "; Num2%; "= " INPUT Answer$ Answer% = VAL(LTRIM$(Answer$)) IF Answer% = Num1% + Num2% THEN PRINT "Correct "; Num1%; " + "; Num2%; " = "; Answer% SOUND 1000, 1 ELSE PRINT "Wrong "; SOUND 600, 3 Answer% = Num1% + Num2% PRINT Num1%; " + "; Num2%; " = "; Answer% _DELAY 3 END IF CASE 51 'quit Done = 1 END SELECT _DELAY 1 CLS PRINT "Press anykey to exit" _DELAY 2 CLSLOOP WHILE Done = 0SLEEPSYSTEM' You can try this code, separate, just add start: to the top, right above dontdoit:dontdoit:CLSLOCATE 12, 20: PRINT "Sorry input must be a number"LOCATE 14, 20: PRINT "Returning to menu in 10 seconds"SLEEP 10GOTO start