Fives 27
270 GOSUB 590
280 IF STR$(A(P))=F$(W) THEN LOCATE #1,2 1,4+W:PRINT #1,"DIFFERENT LETTER";:FOR X =1 TO 1050:NEXT:LOCATE #1,21,4+W:PRINT # 1,SPACE$(19);:GOTO 270
290 SOUND 1,90,20
300 S$(W)=STR$(A(P))
310 LOCATE #1,10,4+W:PRINT #1,X$
320 IF B$(W)="*" THEN Q=VAL(F$(W))*VAL(S 1-(W))
330 IF B$(W)="+" THEN 0=VAL(F$(W))+VAL(S $(W))
340 IF 8$(W)="—" THEN Q=VAL(F$(W))—VAL( S$(W))
350 IF B$(W)=CHR$(172) THEN Q=VAL(F$(W)) /VAL(S$(W))
360 LOCATE #1,15,4+W:PRINT #1,"=";0 370 SOUND 1,180,20
780 NEXT W
390 REM *********** ROUTINE END ******** 400 LOCATE #0,1,6:FOR X=1 TO 6:PRINT #0 ,SPACE$(40);:NEXT X
410 LOCATE #0,1,1:PRINT #0,"NOW ENTER YO UR GUESS AS COMPLETE FIVE FIGURE NUMBE R — EXAMPLE :(12345) ENTER"
420 LOCATE #0,1,4:PRINT #0,"	ENTER
'?' IF YOU RESIGN"
430 LOCATE #0,1,6
440 INPUT #0, X$
450 SOUND 1,120,20
460 IF X$="?" THEN 510
465 IF X$="" THEN 410
470 IF ASC(X$)<48 OR LEN (X$)<>5 THEN LO CATE #0,1,6:PRINT #0,"	AGAIN
— FIVE FIGURES";: FOR X=1 TO 2000:NEXT :LOCATE #0,1,6:PRINT #0,SPACE$(40):GOTO 410
480 FOR X= 1 TO 5:IF VAL(MID$(X$,X,1))<> A(X) THEN LOCATE #0, 1,6:PRINT#0,"
NO — TRY AGAIN":FOR X=1 TO 1500:NEXT :GOTO 400
490 NEXT X
500 LOCATE #0,1,1:PRINT #0,CHR$(20);: LO CATE #0,15,1:PRINT #0,"CORRECT";:SC=SC+1