1COLOR15,0,0:SCREEN2,1,0:FORI=0TO3:READS,D,D$:SOUNDS,D:SPRITE$(I)=D$:NEXT:DATA5,,8|||8DDD,6,255,8l8,7,142,Pp ,12,30,@@

autoexec.bas

1COLOR15,0,0:SCREEN2,1,0:FORI=0TO3:READS,D,D$:SOUNDS,D:SPRITE$(I)=D$:NEXT:DATA5,,8|||8DDD,6,255,8l8,7,142,Pp ,12,30,@@
2LINE(0,4)-(255,9),14,B:LINE(128,4)-(128,9),9:PSET(0,191):FORI=0TO16:H(I\2)=180-RND(IAND1)*80:LINE-(I*16,H(I\2)),2:NEXT
3PAINT(1,191),2:P%=RND(1)*7:LINE(P%*32+16,H(P%))-STEP(15,4),,BF:Q=120:W=40:A=0:C=0:S=0:U=0:F=504:A$=CHR$(27):TIME=0
4Q=Q+A:W=W+S:A=A*.97-C/40:S=S+.11-U/15:O=1800-TIME:O=-O*(O>0):PUTSPRITE0,(Q-2,W),7:PUTSPRITE1,(Q-2+C,W+2),8'  NYYRIKKI
5PUTSPRITE2,(Q,W+4+U*2),8:PUTSPRITE3,(128-S*30,4),8-(ABS(S)<.7)*4:PUTSPRITE4,(F\2,10),8,3:L=ASC(INKEY$+"@")-27'-2018-
6K=POINT(Q,W+17)+POINT(Q+9,W+17):U=(U+(L=3ANDU>0)-(L=4ANDU<3))*-(F>0):C=(C+(L=2ANDC>-3)-(L=1ANDC<3))*-(F>0)' Fin Lander
7M=ABS(C)+U:SOUND9,M-7*(F>0):F=F-M:IFK=0ANDL<>0THEN4ELSE:O=-((S+ABS(A)<.7)ANDK=30)*(O+400+F*8)-(K=30)*100:H=H+O:V=V+1
8SOUND9,16-(O>100)*16:SOUND13,1:FORI=2TO128:COLOR,,(I*-(O<101))AND15:NEXT:KEYOFF:SCREEN1:PLAY"RL32EGCEGCEGEDC":WIDTH30
9VPOKE8197,168:FORI=0TO19:B$=CHR$(32-(I<17)*10):?A$;"H";A$;"L";B$;STRING$(28,32-((IAND15)=0)*10);B$:NEXT:?A$;"Y(*LEVE";
10?"L:";V;A$;"Y**SCORE:";O;A$;"Y.*TOTAL:";H:FORI=0TO1:I=-(INKEY$=" "):NEXT:FORI=0TO50:?:NEXT:SCREEN2:IFV<10ANDL<>0THEN2

options.json

{"asm":{"filename":"program.bin","build":"bin"},"basic":{}}