CLS
NEW
' ------- 11 Mogura
10 POKE #700,0,0,0,0,0,0,0,0
20 POKE #708,0,0,0,0,0,0,0,#7e
30 POKE #710,0,0,0,0,0,0,#7e,#42
40 POKE #718,0,0,0,0,0,#7e,#42,#81
50 POKE #720,0,0,0,#7e,#42,#81,#a5,#a5
60 POKE #728,0,0,#7e,#42,#81,#a5,#a5,#81
70 POKE #730,0,#7e,#42,#81,#a5,#a5,#81,#89
80 POKE #738,#7e,#42,#81,#a5,#a5,#81,#89,#81
90 POKE #740,#7e,#42,#81,#a5,#a5,#81,#91,#81
100 CLS:CLV:S=0
110 FOR I=1 TO 9:LOCATE I*3+1,10:PRINT CHR$(131);
120 LOCATE I*3+1,11:PRINT I;
130 NEXT
200 A=RND(9)+1
210 [A]=([A]+1) & #0F
220 C=[A]:IF C>8 THEN C=16-C
230 LOCATE A*3+1,9:PRINT CHR$(#E0+C);
300 K=INKEY()
310 IF K=0 THEN GOTO 200
320 S=S+[K-48]
330 [K-48]=0
340 LOCATE 0,0:PRINT "Score ";S;
350 GOTO 200