d n SZ(X,Y)(((X))Y)x z : title screen 1  : title screen 28  : initialize variablesX J : set up backgroundq  : start game  ,: :GAME OVER'  ,: "PRESS ANY KEY TO PLAY AGAIN": SEG: ,()A$: A$"" FLAG : initialize variables8SCORE:TROOPS :WT:WS:T: input level routinet: : SEG: ,()  ,: "LEVEL :"  ,: "(N)ovice" ,: "(E)xpert""A$: A$"" ",6@: set up backgroundJT ,:(,)(@,),,BF;^   : display score^h A$"N" A$"n" r : |r(+,)(<,),,BF:(,)(,),,BF:(,)(,),,BF:A:B:C<:D:E:F): 0|(.,)(9,),,BF:(,)(,),,BF:(,)(,),,BF:A:B:C9:D:E:F, ,: "7": ,: "5": ,: "5": ,: "0": ,": "2": ,": "5": game routinePLX SEG @ : ( m)  PLY(())(:NYPLY H  JUMP E "" JUMP:PXPLX:PYPLY : (PX,PY),TROOP%Z JUMP x TROOPS FLAG:  : jump routine(PX,PY),TROOP%:PXPXDX:PYPYDY: PX+ PX&(PX,PY),TROOP% 0T(PY): Tw Tt X!: PYBOT 'D4N: hit??XLPX_b LA LD PAD: l LB LE PAD: v LC LF PAD: (PX,PY),TROOP%:(PX,PY),LAND%SCORESCOREPAD : " MISSION SUCCESSFUL! "0 W d: >: WW(PX,PY),LAND%:NY(())(hJUMP:   SEG: ,():: miss !(PX,PY),TROOP%:(PX,PY),SPLASH% : " TROOPER MISSED TARGET "  W d: >: W9TROOPSTROOPS:SCORESCORE :JUMP:  b(PX,PY),SPLASH%:NY(())(~  SEG: ,():: display score WS(() ):DXWS:WT(())K:DYWT:BOT(())C* : "SCORE";);SCORE; );"TROOPS";);TROOPS;);"WS";);WS;");"WT";$);WT;();" "I4d>: move plane routinerHPLXPLXR PLX (,PLY)(,PLY ),,BF:PLX:PLYNY\(PLX,PLY),PLANE%,fp: read sprite data and display title pagez{ X1,Y1:N1SZ(X1,Y1)2| X2,Y2:N2SZ(X2,Y2)L} X3,Y3:N3SZ(X3,Y3)f~ X4,Y4:N4SZ(X4,Y4) PLANE%(N1),TROOP%(N2),LAND%(N3),SPLASH%(N4)PLANE%()X1:PLANE%()Y1TROOP%()X2:TROOP%()Y2SPLASH%()X4:SPLASH%()Y4LAND%()X3:LAND%()Y3/:PLANE%(0)=X:PLANE%(1)=YN I N1: PLANE%(I): Ij:READ X,Y:N=FNSZ(X,Y):DIM TROOP%(N):TROOP%(0)=X:TROOP%(1)=Y I N2: TROOP%(I): I:READ X,Y:N=FNSZ(X,Y):DIM LAND%(N) :LAND%(0)=X:LAND%(1)=Y(  I N3: LAND%(I): ID :READ X,Y:N=FNSZ(X,Y)Z :DIM SPLASH%(N){ :SPLASH%(0)=X:SPLASH%(1)=Y  I N4: SPLASH%(I): I!TEMP$"E8G16G3L16FEDL5EFF#G":TEMP1$"A8>C16C3L16DCD16D3L16CD2":T$TEMP$TEMP1$:S$TEMP$TEMP3$#!$: : ,>!. "MB T90 O2 L8;XT$;"Y!8A$"P":L :XK: t!BA$"A":L :X[: !LA$"R":L:Xk: !VA$"A":L:X{: !`A$"T":L:X: !j "MB T90 O2 L8;XS$;"!tA$"R":L:X: "~A$"O":L:X: 1"A$"O":L:X: L"A$"P":L:X: g"A$"E":L:X: "A$"R":L:X: " I : I"" I @:(X,I),PLANE%,: I: ,L: A$:": plane2# &H38,&hB,&H2A,&H17,&H22,&H17,&H30,&H17,&h5555,&h5555,&h5555,&h5555,&h5555,&h5555p# &HA555,&H5555,&H5555,&H5655,&HD5A5,&HA956,&H5555,&HA55A# &H5AD5,&H550A,&h5A55,&hD5A5,&h2A8,&hAAAA,&HF5A5,&HAAEA# &HFAFF,&HABAA,&HEAF5,&HBFAA,&HAAFA,&HF5AA,&H55D5,&HF55F)$ &H5555,&HD555,&H5755,&H55F5,&H5555,&H55D5,&H5555,&H55554$  &H55D$: TROOPERe$ &H0,&H0,&H0,&H0,&H80AA,&H0$( &HA00,&H8AA,&H0,&HAA00,&HAAAA,&H80,&HAA02,&HAAAA$2 &HA0,&HAA0A,&HAAAA,&HA8,&HAA0A,&HAAAA,&HA8,&HAA0A %< &HAAAA,&HA8,&H8A02,&HA888,&hA0,&H8200,&H2000,&H80D%F &hC300,&H3000,&HC0,&H3B00,&H3B3F,&H0,&HF00,&H3C3Fx%P &H0,&H0,&HB00,&H380C,&H0,&HA00,&HA8AA,&H0,&H0%Z &H2A,&H0,&H0,&H2A,&H0,&H0,&H2A,&H0%d &H0,&H22,&H0,&H0,&H22,&H0,&H0,&H22%n &H0,&H0,&H22,&H0,&H0,&H0,&H0,&H0%x: LAND& &H0,&H0,&H0,&H0,&H0,&H0B& &H0,&H0,&H0,&H0,&H0,&H0,&H0,&H0h& &H0,&H0,&H0,&H0,&H0,&H0,&H0,&H0& &H0,&H0,&H0,&H0,&H0,&H0,&H0,&H0& &H0,&H0,&H0,&HC00F,&H0,&H8F00,&HC8,&H0& &H883,&H0,&HAA00,&HA8,&H0,&H800A,&H0,&HA00' &H80,&H0,&H800A,&H0,&H800,&H80,&H0,&H80085' &H0,&H800,&H80,&H0D': SPLASHb' &H0,&H0,&H0,&H0,&H0,&H0' &H0,&H0,&H0,&H0,&H0,&H0,&H0,&H0' &H0,&H0,&H0,&H0,&H0,&H0,&H0,&H0' &H0,&H0,&H0,&h0,&H0,&H0,&H0,&H0( &H0,&H0,&H0,&H0,&H5555,&H0,&H5500,&H5555?( &H55,&H5505,&HFFFF,&H5055,&HFF15,&HFFFF,&H54FF,&HFF17}( &HFFFF,&HD4FF,&HFF55,&HFFFF,&H55FF,&H5515,&HFD7F,&H5455(" &H5505,&H5555,&H5055,&H5500,&H5555,&H55,&H300,&H57D5(, &HC0,&H300,&HFFFF,&HC0,&H0,&HFC3F,&H0,&H0(6"SUPERDIR",d