20 SCREEN1,2,0:COLOR15,4,4:DEFINTA-Z:WIDTH32:KEYOFF:KEY1,"SCREEN0"+CHR$(13) 30 M1=ASC("#"):M2=ASC("!"):M3=ASC(""):M4=ASC(""):LV=170:DIM JP(5):DIM TX(4):DIM TY(4):DIM UN(31):HI=20 40 FOR I=0 TO 5:READ JP(I):NEXT 50 FOR I=0 TO 4:READ TX(I):NEXT 60 FOR I=0 TO 4:READ TY(I):NEXT 70 FOR I=0 TO 4 80 FOR J=0 TO 15 90 READ DT$ 100 FOR K=1 TO 16 110 DU$=MID$(DT$,K,1)+DU$ 120 NEXT 130 L1$=L1$+CHR$(VAL("&B"+LEFT$(DT$,8))) 140 R1$=R1$+CHR$(VAL("&B"+RIGHT$(DT$,8))) 150 L2$=L2$+CHR$(VAL("&B"+LEFT$(DU$,8))) 160 R2$=R2$+CHR$(VAL("&B"+RIGHT$(DU$,8))) 170 DU$="" 180 NEXT 190 SPRITE$(I)=L1$+R1$ 200 SPRITE$(I+5)=L2$+R2$ 210 L1$="":R1$="":L2$="":R2$="" 220 NEXT 230 SPRITE$(10)=SPRITE$(9):SPRITE$(9)=SPRITE$(8):SPRITE$(8)=SPRITE$(7):SPRITE$(7)=SPRITE$(6):SPRITE$(6)=SPRITE$(5):SPRITE$(5)=SPRITE$(10) 240 FOR I=0 TO 7 250 READ DT$ 260 VPOKE M1*8+I,VAL("&B"+DT$) 270 NEXT 280 VPOKE &H2000+M1/8,&HE4 290 FOR I=0 TO 7 300 READ DT$ 310 VPOKE M2*8+I,VAL("&B"+DT$) 320 NEXT 330 VPOKE &H2000+M2/8,&HE4 340 FOR I=0 TO 7 350 READ DT$ 360 VPOKE M3*8+I,VAL("&B"+DT$) 370 NEXT 380 VPOKE &H2000+M3/8,&HC4 381 FOR I=0 TO 7 382 READ DT$ 383 VPOKE M4*8+I,VAL("&B"+DT$) 384 NEXT 385 VPOKE &H2000+M4/8,&H94 386 GOSUB 1000 390 LOCATE 0,0:PRINT "SCORE";SC 395 LOCATE19,0:PRINT "HI-SCORE";HI 400 LOCATE 0,21:PRINT STRING$(32,""); 405 LOCATE 0,22:PRINT STRING$(32,""); 410 'MAIN RTN 415 S=STICK(0) 417 PUT SPRITE 0,(X*8,Y*8-1),15,A1 420 IF STRIG(0)=-1 THEN IF SP=0 THEN SP=1 430 IF SP<>0 THEN Y=Y+JP(SP):SP=SP+1:IF SP=6 THEN SP=0 437 IF GO=1 THEN 490 440 IF S=0 THEN GOSUB 710 ELSE ON S GOSUB 750,750,660,750,750,750,690 485 GOTO 410 490 'GAME OVER 500 PLAY "A16F#8R8C4" 565 IF SC>HI THEN HI=SC:LOCATE19,0:PRINT "HI-SCORE";HI 570 LOCATE 12,11:PRINT"GAME OVER" 574 LOCATE 6,14:PRINT" Hit SPACE Key" 575 'FOR I=0 TO 1000:NEXT 576 J=0 577 A1=((A1+1)MOD2)+4 578 PUT SPRITE 0,(X*8,Y*8-1),15,A1 580 S=STRIG(0) 581 IF S=0 THEN J=J+1:IF J=15 THEN 576 ELSE 580 583 FOR I=0 TO 3000:NEXT 585 GOSUB 1000 586 GOTO 390 590 'ATARI HANTEI 600 DX=ABS((X*8+8)-(UX*8+8)) 610 DY=ABS((Y*8+8)-160) 620 IF DX<=8 AND DY<=8 THEN GO=1 640 RETURN 650 'SOUSA RTN 655 'SOUSA RIGHT 660 IF X=30 THEN I=31 ELSE I=X+2 665 IF Y<19 OR UN(I)=0 THEN X=X+1 666 A1=((A1+1)MOD2)+6 670 IF X>=30 THEN X=30 ELSE 710 680 'SOUSA LEFT 690 IF X=0 THEN I=0 ELSE I=X-1 695 IF Y<19 OR UN(I)=0 THEN X=X-1 696 A1=(A1+1)MOD2 700 IF X<=0 THEN X=0 710 IF SP=0 THEN 730 720 IF A1-1<=0 THEN A1=1 ELSE A1=7 730 'PUT SPRITE 0,(X*8,Y*8-1),15,A1 750 'MANJYUU &WANI RTN 760 FOR I=0 TO 2 770 IF TX(I)+TY(I)=0 THEN 820 780 VPOKE &H1800+TY(I)*32+TX(I),32 790 IF TY(I)<=19 THEN TY(I)=TY(I)+1:VPOKE &H1800+TY(I)*32+TX(I),35 ELSE TX(I)=RND(1)*31:TY(I)=1:VPOKE &H1800+TY(I)*32+TX(I),35 800 IF TY(I)=20 THEN VPOKE &H1A80+TX(I),33:TY(I)=23:UN(TX(I))=1:PLAY"O4C16D8" 820 NEXT 830 CT=CT+1 840 IF CT=LV THEN CT=0:UL=UL+1 ELSE 870 850 IF TX(1)+TY(1)=0 THEN TX(1)=RND(1)*31:TY(1)=1:I=2:GOTO 870 860 IF TX(2)+TY(2)=0 THEN TX(2)=RND(1)*31:TY(2)=1:I=2 870 W=0:W=UN(0)+UN(1)+UN(2)+UN(3)+UN(4)+UN(5)+UN(6)+UN(7)+UN(8)+UN(9)+UN(10)+UN(11)+UN(12)+UN(13)+UN(14)+UN(15)+UN(16)+UN(17)+UN(18)+UN(19)+UN(20)+UN(21)+UN(22)+UN(23)+UN(24)+UN(25)+UN(26)+UN(27)+UN(28)+UN(29)+UN(30)+UN(31) 880 IF W>=UL AND UC=0 THEN IF X>=16 THEN UC=8:UX=0 ELSE UC=2:UX=31 890 IF UC=0 THEN 930 897 A2=((A2+1)MOD2)+UC 900 PUT SPRITE 1,(UX*8,151),1,A2:GOSUB 590:VPOKE &H1A80+UX,32:UN(UX)=0 910 IF UC=8 THEN UX=UX+1:IF UX>=32 THEN UC=0:PUT SPRITE 1,(0,209),1,8 920 IF UC=2 THEN UX=UX-1:IF UX<=-1 THEN UC=0:PUT SPRITE 1,(0,209),1,2 930 RETURN 1000 'TITLE 1002 CLS 1005 X=13:Y=19:SC=0:SP=0:UC=0:UX=0:GO=0:CT=0:UL=3 1006 FOR I=0 TO 31:UN(I)=0:NEXT 1007 RESTORE 2020 1008 FOR I=0 TO 4:READ TX(I):NEXT 1009 FOR I=0 TO 4:READ TY(I):NEXT 1010 LOCATE6, 5:PRINT" BUTA" 1020 LOCATE6, 6:PRINT" MANJYUU" 1030 LOCATE6,18:PRINT" GAME A WEEK" 1035 LOCATE6,19:PRINT"2020.12.31~2021.01.04" 1040 LOCATE6,22:PRINT" Twitter @OKUNYON" 1050 LOCATE6,14:PRINT" Hit SPACE Key" 1051 LOCATE 0,0:PRINT "SCORE";SC 1052 LOCATE19,0:PRINT "HI-SCORE";HI 1053 J=0 1055 A1=((A1+1)MOD2) 1056 A2=((A2+1)MOD2)+2 1060 PUT SPRITE 0,( 56,40),15,A1 1070 PUT SPRITE 1,(184,40), 1,A2 1100 S=STRIG(0) 1110 IF S=0 THEN J=J+1:IF J=30 THEN 1053 ELSE 1100 1115 PLAY"C8E16F16R16A4" 1116 FOR I=0 TO 4000:NEXT 1120 CLS 1125 PUT SPRITE 0,(0,209),15,7 1126 PUT SPRITE 1,(0,209), 1,3 1130 RETURN 2000 'TABLE 2010 DATA 0,-1,-1,0,1,1 2020 DATA 10,0,0,0,0 2030 DATA 1,0,0,0,0 2040 'BUTA YOKO2 2050 DATA 0000000000000000 2060 DATA 0000011111100000 2070 DATA 0001111111111000 2080 DATA 0011011111011100 2090 DATA 1111011101101100 2100 DATA 1111111110011110 2110 DATA 1111111111111110 2120 DATA 1111111111111110 2130 DATA 0101111111111110 2140 DATA 0011111100111110 2150 DATA 0011111011111110 2160 DATA 0001110110111110 2170 DATA 0001110001111111 2180 DATA 0000111111111100 2190 DATA 0000011111111000 2200 DATA 0000111111100000 2210 'BUTA-YOKO1 2220 DATA 0000011111100000 2230 DATA 0001111111111000 2240 DATA 0011011111011100 2250 DATA 1111011101101100 2260 DATA 1111111110011110 2270 DATA 1111111111111110 2280 DATA 1111111111111110 2290 DATA 0101111111111110 2300 DATA 0011111110111110 2310 DATA 0011111111011110 2320 DATA 0001111101101110 2330 DATA 0101111110011111 2340 DATA 0111111111111100 2350 DATA 0111111111111110 2360 DATA 0011100000011110 2370 DATA 0000000000000110 2380 'CHIRI-TORI-WANI1 2390 DATA 0000000000000000 2400 DATA 0000000000000000 2410 DATA 0000000000000000 2420 DATA 0000000000000000 2430 DATA 0000000000011100 2440 DATA 0000000000100010 2450 DATA 0000000000101010 2460 DATA 0001111110100010 2470 DATA 0111111111111110 2480 DATA 1111111111111110 2490 DATA 1010101010111111 2500 DATA 0000000000011111 2510 DATA 0000000000011111 2520 DATA 1010101010111111 2530 DATA 1111111111111111 2540 DATA 0111111111111110 2550 'CHIRI-TORI-WANI2 2560 DATA 0001111111000000 2570 DATA 0111111111100000 2580 DATA 1111111111110000 2590 DATA 1010101010110000 2600 DATA 0000000000111110 2610 DATA 0000000000110001 2620 DATA 0000000000110101 2630 DATA 0000000000110001 2640 DATA 0000000000111111 2650 DATA 0000000000111110 2660 DATA 0000000000111110 2670 DATA 0000000000111110 2680 DATA 0000000000111110 2690 DATA 1010101010111110 2700 DATA 1111111111111100 2710 DATA 0111111111111000 2720 'BUTA DEAD 2730 DATA 0000011111100000 2740 DATA 0000011111100000 2750 DATA 0001110000111000 2760 DATA 0011100000011100 2770 DATA 0011100000011101 2780 DATA 1011101111011111 2790 DATA 1111111111111111 2800 DATA 1111111111111110 2810 DATA 0111111111111100 2820 DATA 0010011111111100 2830 DATA 0111101111111100 2840 DATA 0111110111111101 2850 DATA 0011110111111110 2860 DATA 0011110111111000 2870 DATA 0001110001110000 2880 DATA 0000000011100000 2890 'MANJYUU 2900 DATA 00111100 2910 DATA 01111110 2920 DATA 11111111 2930 DATA 11111111 2940 DATA 11111101 2950 DATA 11111101 2960 DATA 01111010 2970 DATA 00111100 2980 'MANJYUU-BECHYA 2990 DATA 00000000 3000 DATA 00000000 3010 DATA 00000000 3020 DATA 00111000 3030 DATA 01111100 3040 DATA 11111110 3050 DATA 11111110 3060 DATA 11111110 3070 'KUSA 3080 DATA 00111100 3090 DATA 01111110 3100 DATA 11111111 3110 DATA 11111111 3120 DATA 11111111 3130 DATA 11111111 3140 DATA 11111111 3150 DATA 11111000 3160 'TUCHI 3170 DATA 11111111 3180 DATA 11111111 3190 DATA 11011111 3200 DATA 11111111 3210 DATA 11111011 3220 DATA 11111111 3230 DATA 10111111 3240 DATA 11111111