MSXPen

1 DEFINTA-Z:COLOR15,1,4:SCREEN3,,0:OPEN"GRP:"FOROUTPUTAS#1:ONSPRITEGOSUB10:FORT=6TO11:READD:SOUNDT,D:NEXT:FORD=0TO3:READD$,C,P$:DRAW"BM"+D$:COLORC:PRINT#1,P$:NEXT:FORD=0TO1:D=ABS(STRIG(0)):NEXT:D=RND(-TIME):SCREEN2,1:A=0:P=0:V=0:H=0:FORD=0TO255STEP4

2 PSET(D,(RND(1)*48)*4),RND(1)*14+2:NEXT:D=14344:READA$,B$:D$=A$+B$:FORT=1TO144STEP2:VPOKED,VAL("&H"+MID$(D$,T,2)):D=D+1:NEXT:X=128:Y=96:D=2:T=0:SOUND3,1:FORF=2TO15:N=F\2:FORR=0TO1:SPRITEOFF:R=0:PUTSPRITE0,(X-15,Y-15),15,D:PUTSPRITE1,(V-15,H-15),F,(A+7)

3 FA=F:IFP=1THENPUTSPRITE2,(XP-15,YP-15),8,5+DPMOD2:DATA21,220,0,0,16,100,"4,156",6,<<    >>,"68,156",8,FIRE,"70,42",15,OVNI,"54,74",10,CRASH,18183C247EFFFF99E0707CF7F77C70E099FFFF7E243C1818070E3EEFEF3E0E07FF000000000000FF8181818181818181

4 SPRITEON:X=(270+X+((D=4)-(D=2))*4)MOD270:Y=(207+Y+((D=1)-(D=3))*4)MOD207:S=STICK(0):IFS>0THEND=(S+1)\2:DATA18665ABDBD5A6618187E66DBDB667E18187E7EE7E77E7E18

5 V=(270+(V+((M=4ORM=1)-(M=2ORM=3))*(N+2)))MOD270:H=(207+(H+((M=1ORM=2)-(M>2))*(N+2)))MOD207:A=(A+1)MOD3:T=T-1:IFT<1THENT=(RND(1)*(N*3))+(8-N)*2:M=RND(1)*4+1:DATA"0,70",8,GAME,"140,70",8,OVER,"0,70",2,YOU,"140,70",2,"WIN!"

6 IFSTRIG(0)ANDP=0THENDS=15:P=1:XP=X:YP=Y:DP=D ELSE IFP=1THENXP=XP+((DP=4)-(DP=2))*16:YP=YP+((DP=1)-(DP=3))*16:IFXP<0ORXP>270ORYP<0ORYP>207THENPUTSPRITE2,(-16,-16),0,0:P=0

7 SOUND2,256-(RND(1)*32+(FA-1)*16):SOUND9,3:IF DS>-1 THEN SOUND0,(255-(DS*16)):SOUND8,DS:DS=DS-5:IFDS<0THENDS=-1:SOUND8,0

8 NEXTR,F:SCREEN3:PRESET(90-((FA-2)\10)*16,120):PRINT#1,FA-2:IFF<20THENREADD$,C,P$:READD$,C,P$:FORT=0TO1:READD$,C,P$:DRAW"BM"+D$:COLORC:PRINT#1,P$:NEXTELSEFORT=0TO1:READD$,C,P$:DRAW"BM"+D$:COLORC:PRINT#1,P$:NEXT

9 SOUND8,0:SOUND9,0:FORD=1TO0STEP-1:D=ABS(STRIG(0)):NEXT:FORD=0TO1:D=ABS(STRIG(0)):NEXT:RUN

10 SPRITEOFF:IFABS(X-V)<16ANDABS(Y-H)<16THENR=2:FA=F:F=20:PUTSPRITE0,(-16,-16),0,0:SOUND6,31:SOUND12,40:SOUND13,0:RETURNELSEIFP=1ANDABS(V-XP)<16ANDABS(H-YP)<16THENR=2:PUTSPRITE2,(-16,-16),0,0:SOUND6,21:SOUND12,15:SOUND13,0:T=0:V=0:H=0:RETURN:ELSERETURN