28 Fives
510 TT=TT+1
520 LOCATE #0,7,4:PRINT #0,"	THIS IS T
HE ANSWER !"
530 FOR W=1 TO 5:LOCATE #0,14,6:PRINT # 0,"FIVES";:LOCATE #0,(12+W+W),7: PR INT #0,A(W);:NEXT
540 LOCATE #1,1,3:PRINT #1,"SCORE:";SC;" CORRECT OUT OF";TT;"
550 ' LOCATE #0,1,1:PRINT #0,STRING$(120 ,32);
560 LOCATE #0,1,9:PRINT #0,"	PRESS [E
NTER] FOR NEXT GAME ";:INPUT X$
570 GOTO 40
580 REM ********* LETTER INPUT ROUTINE** 590 X$=INKEY$:IF X$="" THEN 590:ELSE X=A SC(X$)
595 IF X>90 THEN X=X-32: x$=UPPER$(x$) 600 IF X<>69 AND X<>70 AND X<>73 AND ›y >83 AND x<>86 THEN 590
610 IF X=70 THEN P=1
620 IF X=73 THEN P=2
630 IF x=e6 THEN P=3
640 IF X=69 THEN P=4
650 IF X=83 THEN P=5
660 RETURN
670 REM ***** SIGN INPUT ROUTINE **** 6e0 X$=INKEY$:IF X$="" THEN 680 ELSE X=A SC(X$)
690 IF X<>43 AND X<>47 AND X<>42 AND )U> 45 AND x<>se AND X<>59 THEN 680
700 IF X$=":" THEN X$="*"
710 IF X$=";" THEN X$="+"
720 IF X$="i" THEN X$=CHR$(172)
730 B$(W)= X$
740 IF W= 1 THEN RETURN
750 FOR Z=1 TO W-1:IF B$(W)=B$(Z) THEN L OCATE #1,20,4+W:PRINT #1,"'";B$(W);"' AL READY USED!":FOR X=1 TO 1100:NEXT:LOCATE #1,20,4+W:PRINT #1,SPACE$(19): GOTO isso 760 NEXT
770 RETURN
780 REM********* INSTRUCTIONS ********** 790 CLS
800 PRINT:PRINT"	FIVES