10 COLOR15,1,1:SCREEN1,0,0:WIDTH32:KEYOFF:DEFINTA-Z 20 A$="001C222A221C0000927C7CF6647C9200007CFEC6C6C6FE7C181818BDA5FFFF99F86078EFEF7860F899FFFFA5BD1818181F061EF7F71E061F997E5AE7E75A7E99" 30 FORI=0TO23:B$=MID$(A$,2*I+1,2):VPOKE768+I+(I\8)*56,VAL("&H"+B$):NEXT 40 FORI=24TO64:B$=MID$(A$,2*I+1,2):VPOKE14312+I,VAL("&H"+B$):NEXT 50 VPOKE8204,49:VPOKE8205,145:VPOKE8206,81:GOSUB750 60 GOSUB780:LOCATE11,0:PRINT"HIGH:"+STR$(R*100) 70 A$="`````````````":LOCATE9,3:PRINTA$:LOCATE9,7:PRINTA$ 80 A$="` `":LOCATE8,4:PRINTA$:LOCATE8,6:PRINTA$ 90 LOCATE 7,5:PRINT"h` SPACE MINES `h" 100 LOCATE4,12:PRINT"PRESS 1 FOR SPACE MINES":LOCATE4,14:PRINT"PRESS 2 FOR SPACE SPIRAL" 110 LOCATE4,16:PRINT"PRESS 3 FOR BUMPER MINES":LOCATE4,18:PRINT"PRESS 4 FOR BUMPER SPIRAL" 120 LOCATE9,23:PRINT"HAKOGAME 2022";:GOSUB740 130 M=VAL(INKEY$) 140 IFM>0ANDM<5THEN160 150 GOTO130 160 CLS:GOSUB750 170 IFMMOD2=0THEND=10:E=11:F=20:G=12:H=1:J=9:K=2 180 IFM<3THENA$="h" 190 IFM>2THENA$="p" 200 LOCATE0,0:GOSUB240 210 FORI=1TO21:LOCATE0,I:PRINTA$:LOCATE31,I:PRINTA$;:NEXT 220 LOCATE0,22:GOSUB240 230 GOTO250 240 FORI=0TO31:PRINTA$;:NEXT:RETURN 250 L=15:N=17:LOCATEL,N:PRINT"`":V=0 260 PUTSPRITE0,,7,1:TIME=0:X=160:Y=160:A=0:B=0:W=1:GOSUB770:GOSUB740 270 'Start loop 280 IFSTICK(0)=3THENA=A+3:W=1 290 IFSTICK(0)=7THENA=A-3:W=3 300 IFSTICK(0)=5THENB=B+3:W=2 310 IFSTICK(0)=1THENB=B-3:W=0 320 X=X+A:Y=Y+B:PUTSPRITE0,(X\10,Y\10),,W:P=VPEEK(&H1800+((Y+40)\80)*32+(X+40)\80):V=V+1:IFM>2THENGOSUB480 330 IFP=104THEN630 340 IFP=96THENGOSUB430 350 IFVMOD30=0THENGOSUB390 360 IFTIME>54ANDMMOD2=0THENGOSUB520 370 GOTO280 380 'End loop 390 IFV=30THEN450 400 IFV=60THEN460 410 IFV=90THEN420 420 LOCATEL,N:PRINT"h":V=0:GOSUB760:GOTO440 430 BEEP:LOCATE(X+40)\80,(Y+40)\80:PRINT" ";:V=1:S=S+1 440 L=1+RND(9)*30:N=1+RND(9)*21:Q=VPEEK(&H1800+N*32+L):IFQ=42THENGOTO440ELSELOCATEL,N:PRINT"`":VPOKE8204,49:RETURN 450 VPOKE8204,161:RETURN 460 VPOKE8204,97:RETURN 470 'Bumpers 480 IFY<80ORY>1680THENB=B*-1 490 IFX<80ORX>2400THENA=A*-1 500 RETURN 510 'Spiral 520 IFH=1THEND=D+1 530 IFH=1ANDD=FTHENH=2:F=F-J:J=J+1:GOTO600 540 IFH=2THENE=E+1 550 IFH=2ANDE=GTHENH=3:G=G-K:K=K+1:GOTO600 560 IFH=3THEND=D-1 570 IFH=3ANDD