20 lines
466 B
Plaintext
20 lines
466 B
Plaintext
Name : UUUU
|
|
Length : $0143 (323)
|
|
Load at : $0801 (2,049)
|
|
|
|
10 HOME
|
|
15 REM THIS PROGRAM WILL GUESS A NUMBER BETWEEN 1-1000.
|
|
20 X = INT (1000 * RND (10))
|
|
30 PRINT "GUESS A NUMBER BETWEEN 1-1000."
|
|
40 INPUT A
|
|
45 IF A = X THEN
|
|
GOTO 70
|
|
50 IF A < X THEN
|
|
GOTO 80
|
|
60 IF A > X THEN
|
|
GOTO 90
|
|
65 GOTO 40
|
|
70 PRINT "YOU ARE CORRECT!"
|
|
75 END
|
|
80 PRINT "TRY AGAIN,BUT THIS TIME TRY A LARGER NUMBER!"
|