Manufactured by Gigamix, © Gigamix 2003
MSX logotypes: © MSX Association
1000 REM==============================
1010 REM
1020 REM Êß×¼-Ä Ïİ
1030 REM
1040 REM MSX/2 16KRAM 16KVRAM DISK
1050 REM==============================
1060 REM ** œ—– **
1070 SCREEN 1,2:COLOR 15,0,0:CLS
1080 KEY OFF:WIDTH 29
1090 DEFINT A-Z
1100 DEFFNA(EX,X)=SGN(EX-X)
1110 ON SPRITE GOSUB 2200
1120 REM ** ½Ìß×²Ä é ã’—Ş **
1130 FOR I=&H3800 TO &H387F
1140 READ S$:VPOKE I,VAL("&H"+S$)
1150 NEXT
1160 REM ** óœŞ † ìä˜ù **
1170 FOR I=264 TO 719
1180 VPOKE I,VPEEK(I) OR VPEEK(I)/2
1190 NEXT
1200 REM ** À²ÄÙ **
1210 PUT SPRITE 1,(0,208)
1220 LOCATE 0,6
1230 PRINT"<<<<<<<<<<<<< >>>>>>>>>>>>>"
1240 PRINT"…… „ …… „ ……„ „… …„„„………"
1250 PRINT"… …„ „… …„ „… „ „… … „ … "
1260 PRINT"…… „„„…… „„„… „„„… … „ ………"
1270 PRINT"… „ „… …„ „ ……„ „…… „ ………"
1280 PRINT
1290 PRINT" … … „ … …"
1300 PRINT" ………„ „………"
1310 PRINT" … …„„„………"
1320 PRINT" … …„ „… …"
1330 PRINT
1340 PRINT" PUSH SPACE KEY THEN START "
1350 PRINT"<<<<<<<<<<<<< >>>>>>>>>>>>>"
1360 REM
1370 IF STRIG(0)=0 THEN 1370
1380 CLS
1390 FOR I=1 TO 200:NEXT
1400 SC=0:WN=0:ED=0
1410 REM ** íı“ **
1420 PX=0:PY=0:SP=1:EP=1:F=0:Y=16:K=0
1430 EX=RND(TIME/10)*240:EY=0:GF=0:KF=0
1440 REM ** Ò²İ Ù-Áİ **
1450 IF STRIG(0) THEN X=PX:PY=209
1460 PX=PX+1:IF PX=>240 THEN PX=0
1470 PUT SPRITE 0,(PX,PY),12,0
1480 IF PY=209 THEN 1500
1490 GOTO 1440
1500 REM ** œœŞıš“ ’䪓 **
1510 S=STICK(0)
1520 XX=XX+(S=3)*(XX<8)-(S=7)*(XX>-8)-(S=0)*(XX>0)
1530 X=X+XX
1540 IF X<0 THEN X= 0
1550 IF X>239 THEN X=239
1560 Y=Y+1
1570 IF Y>143 THEN Y=16:K=K+1
1580 IF K>2 AND Y=>143 THEN 1910
1590 IF STRIG(0)=0 OR F=0 THEN SP=1:GOTO 1620
1600 IF FNA(EX,X)>0 THEN SP=2
1610 IF FNA(EX,X)<0 THEN SP=3
1620 SPRITE ON
1630 PUT SPRITE 1,(X,Y),15,SP
1640 SPRITE OFF
1650 REM ** ã— ÷– **
1660 IF F=0 THEN F=1
1670 IF F=1 THEN 1700
1680 EX=RND(TIME/10)*240:EY=16
1690 REM
1700 A=FNA(EX,X)
1710 RX=RX+(A<0)*(RX<8)-(A>0)*(RX>-8)-(A=0)*(RX>0)
1720 EX=EX+RX
1730 IF EX<0 THEN EX= 0
1740 IF EX>239 THEN EX=239
1750 EY=EY+4
1760 IF EY=>143 THEN EY=16:F=0
1770 SPRITE ON
1780 PUT SPRITE 2,(EX,EY),9,EP
1790 SPRITE OFF
1800 IF ABS(EY-Y)>8 THEN EP=1:GOTO 1830
1810 IF SGN(EX-X)<0 THEN EP=2
1820 IF SGN(EX-X)>0 THEN EP=3
1830 IF ED=1 THEN 2000
1840 IF K=2 AND Y>=143 THEN 1850 ELSE 1900
1850 LOCATE 1,20
1860 PRINT STRING$(27,"…");
1870 G=RND(-TIME)*23+1
1880 LOCATE G,20
1890 PRINT "GOAL";
1900 GOTO 1500
1910 REM ** ½º± êıã’ **
1920 HN=X-G*8
1930 IF HN<=-8 OR HN=>24 THEN 2000
1940 GF=1
1950 LOCATE 9,10
1960 PRINT"SUCCESS"
1970 FOR I=1 TO 3000:NEXT
1980 BEEP
1990 SC=SC+1000
2000 BEEP
2010 FOR I=0 TO WN
2020 SC=SC+WN*10
2030 LOCATE 0,21
2040 PRINTUSING"SCORE:#####";SC
2050 NEXT
2060 IF GF=1 THEN 2130
2070 REM ** game over **
2080 LOCATE 9,10
2090 PRINT"GAME OVER"
2100 FOR I=1 TO 5000:NEXT
2110 CLS
2120 GOTO 1200
2130 REM ** ¹Ş-Ñ ŸŞš“ **
2140 LOCATE 7,10
2150 PRINT"NEXT START!!"
2160 FOR I=1 TO 5000:NEXT
2170 CLS
2180 PUT SPRITE 1,(0,208)
2190 GOTO 1410
2200 REM ** ½Ìß×²Ä œ“äâ **
2210 SPRITE OFF:BEEP
2220 B=SGN(ABS(XX)-ABS(RX))
2230 IF B>=0 THEN WN=WN+1
2240 IF B< 0 THEN ED=1:GOTO 2280
2250 LOCATE 0,22
2260 PRINT"DEAD KILLERS ARE";WN
2270 EX=RND(TIME/10)*240:EY=16:EP=1
2280 RETURN
2290 DATA 00,40,78,02,03,07,03,00
2300 DATA 00,60,70,38,FF,7D,1F,03
2310 DATA 10,1C,00,00,00,50,F8,00
2320 DATA 00,00,00,00,F8,5E,FF,FF
2330 DATA 03,07,1B,3C,32,2A,16,0D
2340 DATA 05,03,01,01,01,02,02,02
2350 DATA C0,E0,D8,3C,4C,54,68,B0
2360 DATA A0,C0,80,80,80,40,40,40
2370 DATA 00,00,1C,3A,35,52,EE,E1
2380 DATA E1,EE,52,35,3A,1C,00,00
2390 DATA 00,00,00,00,01,82,44,F8
2400 DATA F8,44,82,01,00,00,00,00
2410 DATA 00,00,00,00,80,41,22,1F
2420 DATA 1F,22,41,80,00,00,00,00
2430 DATA 00,00,38,5C,AC,4A,77,87
2440 DATA 87,77,4A,AC,5C,38,00,00