10CLS :CLEAR :RANDOMIZE
20DIM G$(13),M(16,5)
30X=1:Y=1:XX=1:T=100:W=90:E=15
40M(0,0)=7:M(1,0)=4
50FOR J=0 TO 13
60READ A:G$(J)= CHR$ A
70NEXT
80DATA 32,224,124,156,157,158,159,45,150,152,153,154,155,135
90LOCATE 5,2
100PRINT "START!"
110FOR J=0 TO 999:NEXT
120CLS
130LINE (105,0)-(105,47)
140LOCATE 18,1
150PRINT "NEXT"
160LOCATE 18,3
170PRINT "Score"
180LOCATE 0,0
190PRINT "-"; CHR$ 157
200FOR J=0 TO E
210QX= RND 17-1,QY= RND 6-1
220IF QX>1 OR QY>1 LET M(QX,QY)=13:LOCATE QX,QY:PRINT G$(13):NEXT
230*LOOP
240WHILE INKEY$ <>"":WEND
250FF=0
260N= RND 6
270LOCATE 19,2
280PRINT "[";G$(N);"]"
290*MAIN
300IF K$ <>"" FOR J=0 TO W:NEXT
310LOCATE X,Y
320PRINT G$(M(X,Y))
330K$= INKEY$
340SWITCH K$
350CASE "4":IF X>0 LET X=X-1
360CASE "6":IF X<16 LET X=X+1
370CASE "8":IF Y>0 LET Y=Y-1
380CASE "2":IF Y<5 LET Y=Y+1
390CASE " "
400IF M(X,Y)<7 THEN
410M(X,Y)=N
420LOCATE X,Y
430PRINT G$(N)
440BEEP 1,200,20
450FF=1
460ENDIF
470ENDSWITCH
480LOCATE X,Y
490PRINT "Û"
500IF FF=1 GOTO *LOOP
510C=(C+1) MOD T
520IF C=0 GOSUB *GO
530GOTO *MAIN
540*GO
550S=S+1
560LOCATE 19,4
570PRINT STR$ S
580IF XX<0 OR XX>16 OR YY<0 OR YY>5 GOTO *FIN
590SWITCH M(XX,YY)
600CASE 1:IF H=0 LET XH=1,YH=0 ELSE IF H=1 LET XH=-1,YH=0 ELSE F=1
610CASE 2:IF H=2 LET XH=0,YH=-1 ELSE IF H=3 LET XH=0,YH=1 ELSE F=1
620CASE 3:IF H=2 LET XH=1,YH=0,H=0 ELSE IF H=1 LET XH=0,YH=1,H=3 ELSE F=1
630CASE 4:IF H=2 LET XH=-1,YH=0,H=1 ELSE IF H=0 LET XH=0,YH=1,H=3 ELSE F=1
640CASE 5:IF H=3 LET XH=1,YH=0,H=0 ELSE IF H=1 LET XH=0,YH=-1,H=2 ELSE F=1
650CASE 6:IF H=3 LET XH=-1,YH=0,H=1 ELSE IF H=0 LET XH=0,YH=-1,H=2 ELSE F=1
660DEFAULT :F=1
670ENDSWITCH
680BEEP 1,71,10
690IF F=1 GOTO *FIN
700M(XX,YY)=M(XX,YY)+6
710LOCATE XX,YY:PRINT G$(M(XX,YY))
720XX=XX+XH:YY=YY+YH
730RETURN
740*FIN
750LOCATE 18,1
760PRINT "-GAME-"
770LOCATE 18,2
780PRINT "-OVER-"