1 NOEXPAND
26 RANDOMIZE
30 PRINT TAB(-1,0);"*** HI-LO - VER 1.0 ***" : PRINT
31 PRINT "THIS IS A GAME WHERE YOU GUESS A NUMBER THAT I CHOOSE"
32 PRINT : NAME$=" " : INPUT "PLEASE ENTER YOUR NAME: ";NAME$
33 PRINT
34 INPUT "IF YOU'RE A BEGINNER ENTER 100, OTHERWISE SOME LARGER NUMBER: ";LIMIT
35 PWR10=10
37 IF LIMIT<=10 THEN PRINT "NUMBER MUST BE GREATER THAN 10";CHR$(7) : GOTO 34
39 FOR I=0 TO 4
40 IF LIMIT>PWR10 THEN PWR10=PWR10*10 ELSE GOTO 49
41 NEXT I
49 PRINT
50 LASTX=X
55 X=INT(RND(1)*PWR10)
56 IF LASTX=X THEN 55
57 IF X=0 THEN 55
58 IF X<0 THEN 55
59 IF X>LIMIT THEN 55
65 PRINT:PRINT "MATCH MY NUMBER ";NAME$;" (BETWEEN 1 AND ";LIMIT;")"
70 Y=0
90 PRINT
95 INPUT "GUESS: ";A
100 Y=Y+1
103 REM
106 REM CHECK HIS GUESS
109 REM
110 IF A<>X THEN 160
120 PRINT:PRINT A;" IS CORRECT. IT ONLY TOOK ";Y;" GUESSES!";CHR$(7)
130 PRINT:PRINT "WANT TO PLAY AGAIN ";NAME$;" (Y/N)";:INPUT A$
140 IF A$="Y" THEN 49
141 PRINT:INPUT "ANY OTHER PLAYERS (Y/N) ";A$
142 IF A$="N" THEN END
143 IF A$="Y" THEN GO TO 31 ELSE GOTO 141
145 REM
150 REM TELL'EM HE IS WRONG
155 REM
160 I=I
170 PRINT "WRONG, ";
180 IF A>X THEN PRINT "TOO HIGH. "; ELSE PRINT "TOO LOW. ";
190 GOTO 95
999 END
