• このプログラムはマウス専用です。MSXPLAYerで遊ぶときは「マウス版」をご使用ください。
• 自転車のタイヤに空気を入れていくゲームです。
• スペースキーを押しながらマウスを下方向に引っぱると、空気入れのレバーが下がり空気が入ります。
• 空気が入ったらスペースキーを離し、マウスを上方向に動かしてレバーを元に戻してください。
• 何度か繰り返して空気がある程度入ったら、マウスの左ボタンをクリックしましょう。空気の量に応じて点数が入り、次の自転車へと進みます。
• 空気が入りすぎるとパンクしてしまい、減点になります。
• 制限時間内にどれだけ点数が取れるか、友達と競いあってみましょう。

10 '"KUUKI.BAS"
20 '┌ たﾞるまや  ┐ Programmed by はりまお
30 '└ｸｳｷしょくにん┘ 2003-06/08 _ 2003-08/13
40 '                ｼｭｳｾｲ : 2003-11/01
50 '=== ｼｮｷｾｯﾃｲ===
60 COLOR15,0,0:SCREEN5,2:DEFINTA-Z:OPEN"
GRP:"AS#1:COLOR=(13,3,3,3):DIMTM(2):WT=6
:TM(2)=60/WT:HS=0
70 '--- ｽﾌﾟﾗｲﾄ / ｶﾞｿﾞｳ ｻｸｾｲ ---
80 FORI=0TO1:READSP$,C$:FORJ=0TO31:VPOKE
&H7800+I*32+J,VAL("&H"+MID$(SP$,1+J*2,2)
):NEXT:FORJ=0TO15:VPOKE&H7400+I*16+J,VAL
("&H"+MID$(C$,1+J*2,2)):NEXTJ,I
90 SETPAGE,1:CLS:FORI=0TO11:CIRCLE(76+(I
MOD6)*25,12+(I\6)*25),12,13,,,(2+I)/12:N
EXT:PSET(51,23):FORI=0TO5:READPX,PY:LINE
-(PX,PY):NEXT:SETPAGE,0
100 '=== ﾀｲﾄﾙ / ｽﾀｰﾄ ===
110 COLOR15:PSET(71,32):PRINT#1,"たﾞるまや ｸ
ｳｷしょくにん":PSET(63,48):PRINT#1,USING"さいこうし
ゅうにゅう:####円";HS:PSET(87,80):PRINT#1,"かいて
ん:ｽﾍﾟｰｽ":GOSUB250
120 PSET(40,90):PRINT#1,"0秒       0円":FO
RI=0TO1:PUTSPRITE I,(113,58-3*I),,I:NEXT
130 MY=209:TM(0)=31:TM(1)=1:MC=0:BG=0:FR
=0:IT!=0:BT!=0:TIME=0:P=PAD(12):GOTO210
140 '=== ﾒｲﾝ ===
150 GOSUB270:BY=MY:P=PAD(12):MY=MY+PAD(1
4):IFMY<0THENMY=0ELSEIFMY>211THENMY=211
160 IFMY<>BYTHENPUTSPRITE1,(113,42+MY\16
):IFSTRIG(0)=0ORNF=1THENNF=0ELSEAC=AC+(M
Y-BY):IFAC<-49ORAC>549THENAC=-50-600*(AC
>549):BF=1
170 TG=(AC+45)\50:IFTG<>BGTHENCOPY(64+(T
GMOD6)*25,(TG\6)*25)-STEP(24,24),1TO(71,
49):COPY(71,49)-(95,73)TO(32,49):COPY(12
,11)-(51,23),1TO(44,49),,TPSET:BG=TG
180 TM(1)=TM(1)-1:IFTM(1)=0THENTM(0)=TM(
0)-1:TM(1)=TM(2):PSET(32,90):PRINT#1,USI
NG"##";TM(0):IFTM(0)=0THEN230
190 IFSTRIG(1)=0ANDBF=0THEN150ELSEBEEP:M
C=MC+(100-ABS(100-AC\5))*(1-BF)-150*BF:P
SET(72,90):PRINT#1,USING"######";MC
200 COPY(32-32*BF,38-38*BF)-STEP(63,36),
BFTO(64,64),1:FORI=0TO7:COPY(64-I*8,64)-
STEP(63,36),1TO(32,38):GOSUB270:NEXT
210 FORI=0TO1:COPY(64,0)-STEP(24,24),1TO
(103-39*I,75),1:NEXT:COPY(0,0)-(63,27),1
TO(64,64),1,TPSET:FORI=0TO7:COPY(120-I*8
,64)-STEP(63,36),1TO(32,38):GOSUB270:NEX
T:AC=0:BF=0:NF=1:BEEP:GOTO150
220 '=== ﾀｲﾑ ｵｰﾊﾞｰ ===
230 COLOR3-7*(HS<MC):PSET(32,8):PRINT#1,
"=== へいてん しﾞかん ===":HS=HS-(MC-HS)*(HS<MC
):GOSUB250:PUTSPRITE0,(0,216):GOTO110
240 '=== SPACE ﾏﾁ ===
250 BEEP:FORI=0TO2:FORJ=0TO1:J=ABS(-(I<>
1)+STRIG(0)):NEXTJ,I:CLS:RETURN
260 '=== ｳｪｲﾄ(ﾌﾚｰﾑﾚｰﾄ ｹｲｿｸ) ===
270 FR=FR+1:IFABS(TIME-IT!)>59THENPSET(2
31,203):PRINT#1,FR:FR=0:IT!=TIME
280 FORWL=0TO1:WL=-(ABS(TIME-BT!)>=WT):N
EXT:BT!=TIME:RETURN
290 '=== ﾃﾞｰﾀ ===
300 DATA0307070707070707070727777777777F
80C0C0C0C0C0C0C0C0C0C0C0C0C0C0FF,0E04040
404040404040404040404040D
310 DATA03FF0301010101010101010101010101
80FE8000000000000000000000000000,0608060
D0D0D0D0D0D0D0D0D0D0D0D0D
320 DATA 41,7,41,0,41,4,12,23,34,23,20,0