")¢PRINTE(" ⓪") OD¢POSITION(2,3) PRINT("①")¢POSITION(14,3) PRINT("②")¢POSITION(26,3) PRINT("③")¢POKE(82,0) POSITION(0,10)¢PRINT("áááááááááááááר«צ«צ«áIJ⌡ΣβπΘ⌠∙áááááááááááá")¢PRINT("①②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②❎")¢PRINT("|ááááááááááááא∙áו≥στáי∈β⌡≤≤áááááááááááá|")¢PRINT("| Score: Level: 1 |")¢PRINT("ə②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②⇨")¢POSITION(9,13) PRINTC(SCR) RETURN¢¢PROC LOCKS()¢áפ∩⌡⌠Θ∈σá⌠∩á≥σ≤σ⌠áβΘ≥∮∩πδá∩≡σ∈áδσ∙≤«á¢POSITION(2,1) PRINT("Please enter ")¢PRINT("the key to open lock #")¢FOR I=0 TO 2 DO POSITION(37,1)¢PRINTC(I+1) POKE(764,255)¢WHILE PEEK(764)=255 DO OD¢LOCK(I)=PEEK(764) FOR J=0 TO 150¢DO SOUND(0,20,10,15-J/10) OD OD¢SNDRST() POSITION(2,1)¢PRINT(" Copyright 1987 ")¢PRINT("Antic Publishing") RETURN¢¢PROC GAME()¢áלβΘ∈á≥∩⌡⌠Θ∈σ«á¢SCR=0 LOCK(0)=31 LOCK(1)=30 LOCK(2)=26¢DO SETUP() ALN=0 MEN=0 LVL=1 SCR=0¢CLD() POKE(1280,0) POKEC(512,DLI) ¢POKEC(560,DL) POKE(54286,192)¢POKE(559,62)¢¢áצσ∮σπ⌠Θ∩∈≤áµ≥∩ϕá⌠Θ⌠∮σá≤π≥σσ∈«á¢WHILE PEEK(53279)<>6 DO¢IF PEEK(53279)=5 THEN LVL==+1¢IF LVL=6 THEN LVL=1 FI¢POSITION(37,13) PRINTB(LVL)¢FOR I=1 TO 10000 DO OD FI¢IF PEEK(53279)=3 THEN LOCKS() FI OD¢¢POSITION(1,1) PRINT("Men on board: 0")¢PRINT(" Aliens on board: 0")¢POSITION(9,13) PRINT("0 ")¢POSITION(1,12)¢PRINT("áתIJפמחמו´áIJ∮Θσ∈≤á")¢PRINT("σ∈⌠σ≥Θ∈τá≤σπ⌠∩≥«ááááá")¢¢áלβΘ∈á∮∩∩≡«á¢WAIT=200¢DO GUYS() OPD() POKE(764,255)¢SOUND(0,WAIT,10,4)¢SOUND(1,WAIT+2,10,4)¢POKE(16,112) POKE(53774,112)¢FOR I=1 TO WAIT*100-LVL*250 DO KILL=5¢¢áצσσáΘµáδσ∙áΦΘ⌠«áחµá∙σ≤¼á∩≡σ∈áΣ∩∩≥«á¢KEY=PEEK(764) IF KEY=LOCK(0) OR¢KEY=LOCK(1) OR KEY=LOCK(2) THEN¢IF KEY=LOCK(0) THEN J=76 KILL=0¢ELSEIF KEY=LOCK(1) THEN J=124 KILL=1¢ELSE KEY=LOCK(2) J=172 KILL=2 FI¢¢áצΦ∩∩⌠áΓ⌡∮∮σ⌠«á¢MOVEBLOCK(PM+1892,BULLET,16)¢POKE(53251,J) SNDRST()¢FOR I=1 TO 160 DO IF I MOD 18=0 THEN¢MOVEBLOCK(PM+1892,¢BULLET+(I/16)*16-16,16) FI¢SOUND(0,I+50,8,15-I/11) OD¢POKE(707,76) SNDRST()¢¢áזΘ⌠áβ∮Θσ∈™á¢IF KILL=IT THEN FOR I=1 TO 100 DO¢SOUND(0,100-I,2,10-I/10)¢SOUND(1,I,2,10-I/10)¢OD MEN==+2 SCR==+LVL EXIT FI¢¢áזΘ⌠áπ∩∮∩∈Θ≤⌠™á¢IF KILL<>5 AND KILL<>IT THEN¢FOR I=1 TO 10000 DO OD¢IF IT<>3 THEN ALN==+1 MEN==+1¢ELSE MEN==+2 FI SCR==-10*LVL¢IF SCR>5000 THEN SCR=0 FI EXIT FI FI¢OD¢¢áד∈Σá∩µáϕβΘ∈á∮∩∩≡«áב∮∩≤σá⌠ΦσáΣ∩∩≥«á¢CLD() POKE(707,6) POKE(53251,0)¢ZERO(PM+1892,16)¢¢áג∩áβ∮Θσ∈áβ∈Σáϕσ∈á⌡≡Σβ⌠σ≤áΘµá∈∩áδσ∙á¢á≡≥σ≤≤σΣ«á¢IF KEY=255 AND IT<>3 THEN ALN==+1¢MEN==+2 FI¢IF KEY=255 AND IT=3 THEN MEN==+3 FI¢¢áס≥Θ∈⌠á≤⌠⌡µµ«á¢POSITION(15,1) PRINTB(MEN)¢POSITION(38,1) PRINTB(ALN)¢POSITION(9,13) PRINTC(SCR)¢PRINT(" ")¢¢áוβϕσáσ∈Σ≤áΘµá¨áβ∮Θσ∈≤áβ≥σá∩∈áΓ∩β≥Σ«á¢IF ALN>8 THEN EXIT FI¢¢áצ≡σσΣá⌠Φσáτβϕσá⌡≡«áח∈π≥σβ≤σáכσ÷σ∮«á¢IF WAIT>85-LVL*5 THEN WAIT==-5¢ELSE WAIT=200 LVL==+1¢SNDRST() SOUND(0,100,10,2)¢FOR I=1 TO 10000 DO OD SNDRST()¢POSITION(15,1) PRINT("0 ")¢SCR==+MEN MEN=0 POSITION(9,13)¢PRINTC(SCR) POSITION(1,12)¢PRINT("áIJ∮Θσ∈≤á≥σ≡σ∮∮σΣ«á")¢PRINT("ס≥σ≤≤áβ∈∙áδσ∙«««áááá")¢FOR I=1 TO 10000 DO OD POKE(764,255)¢WHILE PEEK(764)=255 DO OD¢¢áאβπδáΘ∈⌠∩á⌠Φσáµ≥β∙«««á¢POSITION(1,12)¢PRINT("áתIJפמחמו´á")¢PRINT("áááááááááááááááááááááááááááá")¢POSITION(11,12) IF LVL=2 THEN¢PRINT("IJ∮Θσ∈≤á≤σβ≥πΦΘ∈τá≤σπ⌠∩≥«")¢ELSEIF LVL=3 THEN¢PRINT("IJ∮Θσ∈≤áΦβ÷σá∮∩πβ⌠σΣá≤ΦΘ≡«")¢ELSEIF LVL=4 THEN¢pRINT("IJ∮Θσ∈á≡∮β⌠∩∩∈áβΣ÷β∈πΘ∈τ«")¢ELSEIF LVL=5 THEN¢PRINT("IJ∮Θσ∈á≡∮β⌠∩∩∈áσ∈⌠≥σ∈πΦΘ∈τ«")¢ELSEIF LVL=6 THEN¢PRINT("IJ∮Θσ∈á⌡∈Θ⌠áβ≡≡≥∩βπΦΘ∈τ«")¢ELSEIF LVL=7 THEN¢PRINT("IJ∮Θσ∈á⌡∈Θ⌠áβ⌠⌠βπδΘ∈τ«")¢ELSEIF LVL=8 THEN¢PRINT("ז⌡∮∮á≈σβδσ∈Θ∈τ«")¢ELSEIF LVL=9 THEN¢PRINT("כΘµσá≤⌡≡≡∩≥⌠á≈σβδσ∈Θ∈τ«")¢ELSEIF LVL>9 THEN¢PRINT("ב∩ϕ≡⌡⌠σ≥áΣσβΣ«") FI FI¢POSITION(37,13) PRINTB(LVL) OD¢¢áוβϕσº≤á∩÷σ≥«áלβδσá≤ΦΘ≡áτ∩áΓ∩∩ϕíá¢SOUND(0,WAIT-5,10,4)¢SOUND(1,WAIT-3,10,4)¢LVL=0 GUYS() OPD()¢¢áתβ≥∈Θ∈τáΓσ∮∮áβ∈Σá≈Φ∩∩≤Φá≤∩⌡∈Σ«á¢SNDRST() SOUND(1,200,8,2)¢FOR J=1 TO 6 DO SOUND(0,200,10,10)¢FOR I=1 TO 200 DO IT=RAND(4)+3¢POKE(DL,IT*16) OD SOUND(0,0,0,0)¢FOR I=1 TO 200 DO IT=RAND(4)+3¢POKE(DL,IT*16) OD OD¢FOR I=1 TO 600 DO IT=RAND(4)+3¢POKE(DL,IT*16)¢SOUND(0,250-I/3,8,I/46+2)¢SOUND(1,252-I/3,2,I/46+2) OD¢¢áא∩∩ϕíá¢GRAPHICS(19) POKE(DL,112)¢FOR I=1 TO 1500 DO¢J=RAND(16)*16 IT=J+(15-I/100)¢POKE(54282,0) POKE(53274,IT)¢FOR MEN=0 TO 2 DO ALN=RAND(255)¢POKE(53248+MEN,ALN)¢POKE(53266+MEN,256-IT) OD¢SOUND(0,100,8,15-I/100)¢SOUND(1,150,8,15-I/100) OD¢¢áIJ∈ΣáΓβπδá⌠∩á⌠Φσá⌠Θ⌠∮σá≡βτσ«á¢OD¢¢
