Fives
A deceptively easy game. Try to find the computer's five digit numbers by asking just four simple arithmetic questions. Be warned, it is very addictive!
10 REM ********** FIVES **********
20 REM ******* @ MICHAEL BEWS ********* 30 DIM A(83):DIM B$(4):DIM F$(5):DIM S$( 5)
35 IT=0
40 MODE 1:BORDER 0:INK 0,1:INK 1,24: INK 2,20: INK 3,6:PAPER 0:PEN 1:IF IT=0 THEN GOTO 780
50 REM
60 PAPER #1,0:PEN #1,1:WINDOW #0, 1,40,1 5,25: PEN #0,3:PAPER #0,2:CLS #1
70 CLS #0
80 REM ***** MAIN ROUTINE ******
90 FOR X=1 TO 5
100 A(X)=INT(RND*9)+1
110 IF X=1 THEN 140
120 FOR V = 1 TO X-1: IF A(X)=A(Y) THEN 1 00
130 NEXT V
140 NEXT X
150 PRINT #1,"	FIVES
.. ;
160 PRINT #1,STRING$(40,229):LOCATE #1,1 ,12:PRINT #1,STRING$(40,226)
170 LOCATE #0,1,1:PRINT"NOW ENTER YOUR 0 UEST IONS ONE AT A TIME "
180 FOR W= 1 TO 4
190 LOCATE #1,2,(4+W):PRINT #1,W;">"; 200 GOSUB 590
210 SOUND 1,180,20
220 F$(W)=STR$(A(P))
230 PRINT #1,X$;
240 GOSUB 680
250 SOUND 1,120,20
260 LOCATE #1,8,4+W:PRINT #1,B$(W)