• まずはレベル（１〜３）を選択します。カーソルキーの上下とスペースキーで選択してください。
• タシザンマン「た」をカーソルキーで動かし、数字が書かれたブロックを押して他のブロックにぶつけていきます。
• ブロックに書かれた数字の合計が10になれば、ブロックは消えて得点となります。それ以外のときは、合計の下１ケタが書かれたブロックが残り、得点にはなりません。
• すべてのブロックを消せばゲーム終了です。必ず解けるようになっているので、いかに効率よく得点できるかを追求しましょう。

1 'SAVE"TASIZAN.BAS"
10 SCREEN1,0:WIDTH32:COLOR15,0,0:KEYOFF:
DEFINTA-Z:VDP(9)=VDP(9)AND253:FORZ=0TO7:
READQ:VPOKE1160+Z,Q:VPOKE14336+Z,255-VPE
EK(1792+Z):VPOKE8+Z,255:NEXT:LOCATE4,,0:
PRINT"ﾀｼｻﾞﾝﾏﾝ!!":VPOKE8210,80:DATA254,25
4,254,0,239,239,239,0
20 FORZ=0TO79:Q=VPEEK(384+Z):VPOKE128+Z,
(QOR1)OR-(ZMOD8=7)*255:NEXT:VPOKE8194,26
:VPOKE8195,26
30 PLAY"L64T255V15":K=&H1800:FORZ=1TO20:
LOCATE,Z:PRINTSTRING$(30,"あ"):LOCATE2,Z:
PRINTSTRING$(-((ZMOD19)>1)*26," "):NEXT
40 FORZ=1TO3:LOCATE13,6+Z*2:PRINT"LEVEL"
+STR$(Z):NEXT:LOCATE8,5:PRINT"たせ､たすんたﾞ ﾀ
ｼｻﾞﾝﾏﾝ!!":LOCATE18,17:PRINT"by BADくん":BL
=0
50 PUTSPRITE0,(88,63+C*16),15,0:W=S:S=ST
ICK(0)+STICK(1):C=(C-(S=5ANDW=0)-(S=1AND
W=0)*2)MOD3:IFSTRIG(0)+STRIG(1)=0THEN50
60 PUTSPRITE0,(0,217),0:FORZ=2TO18:LOCAT
E2,Z:PRINTSPACE$(26):NEXT:Z=0:FORJ=8-C*2
TO12+C*2:FORI=10-C*3TO19+C*3:R=RND(1)*12
:IFI=19+C*3ANDJ=12+C*2THENR=9-(ZMOD10)
61 VPOKE&H1800+I+J*32,17+R-(R=9)*6-(R=10
)*5-(R=11)*4:Z=Z+(R+1)*-(R<9):BL=BL-(R<9
):NEXT:NEXT:A=16:B=3
70 LOCATE17,0:PRINT"SCORE"+RIGHT$(" "+ST
R$(SC),3):IFBL<2THEN140
80 W=S:S=STICK(0)+STICK(1):IFW=0ANDS>0TH
ENI=-(S=3)+(S=7):J=-(S=5)+(S=1):Q=VPEEK(
&H1800+A+I+(B+J)*32):ON-(Q<32)GOTO100:IF
Q=32THENA=A+I:B=B+J
90 PUTSPRITE0,(A*8,B*8-1),15,0:GOTO80
100 TIME=0:W=VPEEK(K+A+I+I+(B+J+J)*32):I
FW=32THENVPOKE K+A+I+(B+J)*32,32:VPOKEK+
A+I+I+(B+J+J)*32,Q:GOTO80
110 ON-(W>58)GOTO80:PLAY"G":FORZ=1TO2:VP
OKEK+A+I*Z+(B+J*Z)*32,1:NEXT:FORZ=0TO5:Z
=TIME:NEXT::Q=QMOD16:W=WMOD16:LOCATE27,0
:PRINTCHR$(48+Q)+"+"+CHR$(48+W):VPOKEK+A
+I+(B+J)*32,32:Q=(Q+W)MOD10:VPOKEK+A+I+I
+(B+J+J)*32,16+(Q)*-(Q>0)-(Q=0)*16
120 BL=BL-1:ON-(Q>0)GOTO70:BL=BL-1:PLAY"
CFE":SC=SC-(SC<999):FORZ=0TO8:Z=TIME:NEX
T:GOTO70
140 HI=HI-(SC-HI)*(SC>HI):LOCATE10,18:PR
INT"CLEAR! HISCORE";HI:GOTO40
200 C=0:FORJ=8TO12:FORI=0TO31:Q=VPEEK(&H
1800+J*32+I):IFQ>15ANDQ<32THENC=C+Q-16
201 NEXT:NEXT:END