• No registered tag exist.

5 'モク゛ラタタキ
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) & #F
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]
340 LOCATE 0,0:PRINT "Score ";s;
341 LOCATE 0,1:PRINT "オワッタラ 「F1」ヲ2カイ、「F2」「1」「Enter」「F4」ヲ オシテネ(#EE)
350 GOTO 200

Pagetop