RosettaCodeData/Task/Guess-the-number/Applesoft-BASIC/guess-the-number.basic
2023-07-01 13:44:08 -04:00

9 lines
221 B
Text

10 N% = RND(1) * 10 + 1
20 PRINT "A NUMBER FROM 1 ";
30 PRINT "TO 10 HAS BEEN ";
40 PRINT "RANDOMLY CHOSEN."
50 FOR Q = 0 TO 1 STEP 0
60 INPUT "ENTER A GUESS. "; G%
70 Q = G% = N%
80 NEXT
90 PRINT "WELL GUESSED!"