10 GO SUB 500
20 PRINT; : BORDER 1 : PAPER 1 : INK 7 : CLS
30 PRINT ” Number guessing game” ’ ’ ”
First enter your secret number,
then guess your opponent’s”
40 INPUT ‘What is your name?“;&
50 PRINT
’ ’ “Hello”;a$
60 GO SUB 1000+100*user
70 PRINT “You are playing”;b$
75 PRINT ‘a$, b$
80 lNPUT”Think of a number (I to 100)“;a
90 IFa<lORa>l00ORa<>INTaTHENGOTO80
130 INPUT “Make a guess”;b
140 LET a$-STR$b : GO SUB 1000+100 user
150 LET c=ABS (a-VAL b$)
160 IF c=0 THEN LET a$=“Right”: GO TO 170
161 IF c<4 THEN LET a$=“Very very close”: GO TO 170
162 IF ccl0 THEN LET a$=“Very close”: GO TO 170
163 IF c<20THEN LET a$=“close”: GO TO 170
164 IF cc40 THEN LET a$=“fairly close”: GO TO 170
165 IF cc60 THEN LET a$=“not very close”: GO TO 170
166 LET a$=“nowhere near”
170 GO SUB 1000+100++user
780 PRINT bS,a$
190 IF c=0 OR b$=“Right” THEN GO TO 210
200 GO TO 130
210 IF b$=“Right” THEN PRINT FLASH 1;“Victory”: FOR n-0 TO 7 :
BORDER n: BEEP.l,n:BEEP.l,n+l6:NEXTn:GOTO230
220 PRINT ,“Defeat”: FOR n=7 TO 0 STEP -1: BORDER n :
BEEP.2.n: NEXT n
230 BORDER 1 : INPUT “Another game? (~/#‘;a$
240 IF a$=“‘~” THEN RUN 20
499 STOP
500 OPEN #4;%“;0
510 PRINT#4:“1”
520 CLOSE X4
530 OPEN #4;“n”:0
540 INPUT #4;a$
545 CLOSE #4
550 LET a=4 : IF a$=‘?” THEN OPEN #a;“n”;B: PAUSE 5: PRINT#4;
“2”: LET user=1
560 IF a$=‘? THEN LET user=2
42
To Next Page
Loading...