Atari 8-bit Source code

10GRAPHICS0:POKE752,1:POSITION9,6
20?""
30?""
40?""
50?"----Softsidepresents----"
55FORI=1TO800:NEXTI
60GRAPHICS0:POKE752,1:POSITION14,6:?"AROUNDTHE":POSITION16,9:?"WORLD"
70GRAPHICS0:FORT=5TO13:POSITION10,T-1:?"";:NEXTT
71DIMA$(40):POKE752,1
72FORT=1TO3:READA$
74FORI=1TOLEN(A$):POSITION18-LEN(A$)+I*2,4+T*2:?A$(I,I);"";:FORQ=1TO10:NEXTQ
76NEXTI:NEXTT
78DATA,,
79FORQ=1TO750:NEXTQ
80A$=""
81FORT=1TO5:FORI=10-TTO8+T:POSITION20-T*2,I-1:?A$(1,T*4-1);:FORQ=1TO15:NEXTQ:NEXTI:NEXTT
89FORI=1TO1000:NEXTI
100GOSUB1100
101?"AscaptainoftheinterstellarcraftPalomino,returningfromalongjour-"
102?"ney,youfindyourselffacetofacewithagiganticblackhole.Moving"
103?"closer,youfindsomethingevenmoreunique-ashipsittingonthevortex's"
104?"edge,unaffectedbytheimmensegrav-ity.ItisDeep-SpaceOne,the"
105?"Cygnus,humanity'smostillustriousscientificundertaking":?:?"Decadesearlier,theCygnus'desig-"
106?"nerandcaptain,Dr.HansReinhardt,connedtheinternationalSpace"
107?"SpaceAppropriationsAgencyintofundingthisgiantproject.Then,"
108?"afteryearsoffailure,theshipdidnotrespondtoacommandtoreturnto"
109?"Earth.Theshipwasassumedlost,andit'screwpresumeddead.":GOSUB1000:GOSUB1100:?
110?"AsthePalominomakesapassoverthevessel,thesilent,deadappari-"
111?"tionsuddentlyspringstolife!LightsgoonallovertheCygnus;her"
112?"dockingbaybeckonstothesmallership.ThePalominolands,andyou"
113?"stepintothelegacyofashipofrobots,ashipcontrolledbyitsonly"
114?"humansurvivor,Dr.HansReinhardt."
115?:?"YourmissionistoescapefromtheCygnus,andinformtheworldofyourdiscovery!":GOSUB1000
116GOSUB1100:?:?"Threemain(non-human)charactersinthisadventureneedexplaining.":?
117?"isaten-footscarletrobotwhosemainpurposeistodestroythosewhoopposehismaster."
118?:?"isyourfriendlymechanicalpartner,andwillhelpyouwherepossible.":?
119?"(whereverhemaybehiding)isabatteredancestorofVincent's,"
120?"andistheonlysurvivorwhoknowsthatthehumanoidrobotsareactuallylobotomizedcrewmen."
121GOSUB1000:GOSUB1100
180?
190?"InthisadventureIwillbecomeyour";
200?"eyes,earsandhands.Youwilltell"
210?"mewhattodowithsimpletwoword"
220?"commandssuchasGETAXEorGOSTAIRS.";
230?"Tomove,typethedirectionyouwish"
240?"togoin,NORTH,EAST,SOUTHorWEST,"
250?"orsimplytypethefirstletterofthe";
260?"direction,N,E,SorW.Toobtaina"
270?"listofwhatyouarecarrying,type"
280?"INVENTORYorjustI."
290?
300GOSUB1000
305GOSUB1100
308?
310?"Myvocabularyislimited,soImaynot";
320?"understandeverythingyoutellmeto"
330?"do.Ifonewayofwordingsomething"
340?"doesnotwork,tryanother.People"
350?"havingtroubleareusuallytryingto"
360?"dosomethingbeyondtheir(ormy)"
370?"capability."
380?
390?"Someusefulcommands:LOOK,GET,DROPHELP"
400?
500?""
510POSITION8,23
520?"Runfromiskorape";
530IFPEEK(764)=58THENPOKE764,255:POSITION8,23:?"RunningBLACKHOLEADVENTURE";:RUN"D:BLAKHOL1"
540IFPEEK(764)<>45THEN530
550POKE764,255:POSITION4,23
560?"Hitwhentapeisready";
570POKE764,255
580CLOAD
990GOTO990
1000POSITION8,23
1010PRINT"";
1020POKE764,255
1030IFPEEK(764)=255THEN1030
1040RETURN
1100GRAPHICS0
1110?""
1115?"(c)1981SoftSidePublications"
1117?"";
1130RETURN
9999END	

10REMV220-Jan-81
15GRAPHICS18
20FORI=1TO10:SETCOLOR4,4,0:POSITION4,4:?#6;"THE":?#6;"BLACK":?#6;"HOLE"
25FORZL=1TO99:NEXTZL:SETCOLOR4,0,0:POSITION4,4
30?#6;"":?#6;"":?#6;"":FORZL=1TO99:NEXTZL:NEXTI
101DATAI'MINSPACEFLYINGHOMETOEARTH.
102DATAI'MABOARDTHEU.S.S.PALOMINODOCKEDINABAYONTHECYGNUS.THERE'SAN
103DATAI'MINADOCKINGBAYJUSTOUTSIDETHEPALOMINO.THERE'SANOPENDOORTOTHE
104DATAI'MINASMALLROOMTHATLOOKSLIKEARECEPTIONAREA.ALONGCORRIDORSTRETCHESTOTHESOUTH.
105DATAI'MINALONGCORRIDORWITHDOORSALLAROUNDME.
106DATAI'MINALONGCORRIDOR.TOTHEEASTISALONGTUNNEL.
107DATAI'MINALONGGLASSTUNNEL.
108DATAI'MINANAIRCAR.ONTHEDASHBOARDISABUTTON.
109DATAI'MINALONGGLASSTUNNEL.TOTHEEASTISANELEVATOR.
110DATAI'MINANELEVATOR.
111DATAI'MINAHUGEROOMTHATAPPEARSTOBETHEBRIDGEOFTHISSHIP.ALLAROUND
112DATAI'MINTHECYGNUS'ENGINEROOM.THEDRIVESYSTEMHUMSSOFTLY.
113DATATHISISTHEROOMTHATCONTROLSTHEHYDROPONICSYSTEMWHICHGROWSALLTHECYGNUS'FOOD.
114DATAI'MINTHEHYDROPONICGREENHOUSE.TREESANDPLANTSAREALLAROUNDME.
115DATAI'MINALOWCORRIDOR.TOTHENORTHISADOOR.ASIGNBYTHEDOORSAYS
116DATAI'MINADOCKINGBAY.TOTHENORTHISANOPENDOORLEADINGTOASMALLSHIP.
117DATAI'MINASMALLSHIPANDI'MFLYINGTHROUGHSPACETOWARDTHEBLACKHOLE.
118DATAI'MATTHEEVENTHORIZONOFTHEBLACKHOLEANDI'MBEINGSUCKEDTHROUGHIT.
119DATAIHAVECOMETHROUGHTHEBLACKHOLETOANEWUNIVERSE.
120DATAIAMINALONGNORTH-SOUTHCORRIDOR.THEREISANOPENEDDOORTOTHEEAST.
121DATAI'MINADIMLYLITROOM.THESTRANGEHUMANOIDROBOTSAPPEARTOBEGETTINGREPROGRAMMED.
122DATAI'MINALONGCORRIDOR.
123DATAI'MINAROOMFULLOFROBOTS.THEYSEEMTOBEPLAYINGGAMES.
124DATAI'MINANORTH-SOUTHCORRIDORSTANDINGSOUTHOFANELEVATOR.
125DATAI'MINASUPPLYROOM.
126DATAI'MINANORTH-SOUTHCORRIDORWITHASMALLPATHLEADINGEAST.
127DATAI'MINALARGEBEAUTIFULLYDECORATEDDININGROOM.MMM...ITSMELLSDELICIOUS.
128DATAI'MINAAREATHATAPPEARSTOHAVEONCEBEENTHECREWBARRACKS.THEREARECABINSALLAROUNDME.
129DATAI'MINACREWMAN'SCABIN.
130DATAI'MINACREWMAN'SCABIN.
131DATAI'MINACREWMAN'SCABIN.
132DATAI'MINACREWMAN'SCABIN.
133DATAI'MINASMALLROOM.
134DATAI'MINSIDETHESHIP.INFRONTOFMEAREAGREENBUTTONANDADISKDRIVE.
135DATAI'MSTANDINGINANELEVATOR.INFRONTOFMEISAHUGEROOM.
136DATAI'MSTANDINGSOUTHOFANELEVATOR.TOTHEWESTISALONGTUNNEL.
250DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,3,0,5,0,0,0,4,5,6,5,0,33,5,7,26,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0
260DATA0,36,0,8,0,0,0,0,36,0,35,0,12,0,35,0,0,0,12,13,11,12,12,12,0,14,0,12,0,0,0,0,20,13,0,0,0,0,0,0,0,0
270DATA34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,14,21,22,0,0,0,0,0,0,20,0,0,20,23,0,0,0,24
280DATA0,0,0,22,0,0,36,0,28,26,22,0,0,0,0,0,0,0,6,24,27,0,0,0,26,0,0,0,0,0,24,29,33,31,32,30,0,0,0,28,0,0
290DATA0,0,0,0,28,0,0,28,0,0,0,0,0,28,0,0,0,0,28,0,0,0,5,0,0,0,16,0,0,0,11,0,0,0,0,10,10,0,24,9,0,0
300DATAASMALLGUN,8,2,AFLOPPYDISKETTE,9,11,FRUITSANDVEGETABLES,10,14,MAXIMILLIAN,11,11
305DATADR.HANSREINHARDT,12,11,ANEVIL-LOOKINGROBOT,13,22,ANELECTRONICKEY,20,0
310DATAABIO-SANITATIONBATTALION(B.O.B.)ROBOT,14,25,FUELSUITABLEFORTHEPALIMINO,15,25
315DATASPAREPARTSNEEDEDBYTHEPALIMINO,16,25,ABLASTER,17,30,AMMUNITION,18,31,ALLSORTSOFFOOD,10,27
320DATAAVITALINFORMATION(VINCENT)ROBOT,19,23,AHUMANOIDROBOT,13,21
325DATAANIDENTIFICATIONPIN,21,2,ANIDENTIFICATIONBRACELET,22,21
400DATA,YOUCOULDSHOWYOURI.D.PIN...,,,,,,WHYNOTPUSHTHEBUTTON?,,,,,
405DATALet'sgetsomefood.Icouldgoforanapple.,HowaboutshowingyourI.D.bracelet?
410DATA,,,,,,,,,WeneedthingstorepairthePalomino.,,Let'seat!,,,,,,
415DATAWhynotloadthediskette?,,,There'snodisketteforthedrive.
420DATAThedrivehummedafewsecondsthenitprinted:
425DATATheblast-offprogramhasn'tbeenloaded.,Thereisnofuelforthepalimino.
430DATAThepartsthepaliminohasarebad.
500DATAGO,GET,LOOK,INVEN,PUSH,DROP,HELP,LOAD,QUIT,PRESS,EAT,SHOOT,THROW,OPEN,CLOSE,SHOW,NORTH,EAST,SOUTH,WEST
510DATAUP,DOWN,BUT,GUN,DISK,FOOD,MAX,REIN,ROBOT,BOB,FUEL,PARTS,BLAS,AMMU,VIN,KEY,PIN,BRAC,DOOR
890LC=2:LN=23:LV=16:CL=36:LO=17:SL=38:GF=50:AG=4:AB=0:LZ=5:LR=0:DL=0:FU=0:Q=0:R=0:TC=0:FL=0:CP=0:SP=0:BF=-1
895BP=-1:GD=0:KS=0:PP=0:PD=0:WN=0:MK=0:CR=0:DC=-1:MA=0:SR=0
900DIMD$(101),D(CL,6),O$(LO*35),O(LO,2),Z$(244),V$(LV*5),N$(LN*5),CM$(75),V1$(15),V2$(5),N1$(15)
910RESTORE250:FORI=1TOCL:FORJ=1TO6:READZ:D(I,J)=Z:NEXTJ:NEXTI
920FORI=1TOLO:READD$:O$(I*35-34,I*35)=""
930O$(I*35-34,I*35)=D$:READZ:O(I,1)=Z:READZ:O(I,2)=Z:NEXTI:FORI=1TOCL:READD$:NEXTI
940FORI=1TOLZ:READD$:Z$(LEN(Z$)+1)=D$:NEXTI
950FORI=1TOLV:READD$:V$(I*5-4,I*5)="":V$(I*5-4,I*5)=D$:NEXTI
960FORI=1TOLN:READD$:N$(I*5-4,I*5)="":N$(I*5-4,I*5)=D$:NEXTI
1000GRAPHICS0:SETCOLOR2,0,1:SETCOLOR1,1,14:RESTORE100+LC:READD$:?D$
1005IFLC=2THEN?"OPENDOORTOTHESOUTHANDASIGNTOTHENORTHWHICHSAYS:":?""
1006IFLC=2THEN?:?"INFRONTOFMEISAREDBUTTON."
1007IFLC=3THEN?"SOUTHANDASIGNTOTHENORTHWHICH":?"SAYS:"
1008IFLC=11THEN?"MEAREROBOTSWORKINGDILIGENTLYATTHEIRTASKS.THEYIGNOREME."
1009D$="":D(8,1)=0:D(8,2)=0:GOTO20000
1010IFLC=25THEN1065
1020K=0:FORI=1TOLO:IFO(I,2)<>LCTHEN1050
1030IFK=0THENK=1:?:?""
1045?O$(I*35-34,I*35)
1050NEXTI
1061GOTO1070
1065FORI=1TOLO:IFO(I,2)=LCTHEN?:?"":?"ALLSORTSOFTHINGS":GOTO1070
1066NEXTI
1070?:?"":K=0
1080IFLC=8THENIFCPTHEN?"EAST";:D(8,2)=9:GOTO1140
1085IFLC=8THEN?"WEST";:D(8,4)=7:GOTO1140
1090FORI=1TO6:IFD(LC,I)=0THEN1120
1100ZL=0:IFK<>0THEN?",";
1105IFN$(I*5,I*5)=""THENZL=1
1106IFN$(I*5-2,I*5)=""THENZL=3
1110?N$(I*5-4,I*5-ZL);:K=1
1120NEXTI
1130IFK=0THEN?"UNKNOWN";
1140?".":GOTO10000
2000GRAPHICS0:SETCOLOR2,4,0:SETCOLOR1,1,15:POSITION2,7
2010IFLC<>1ANDLC<>18AND(NOTWN)THENZL=1
2015IFZL=1THEN?"IHAVEFAILEDTOESCAPEFROMCYGNUS.":?"IAMDEAD.":GOTO2100
2020IF(NOTWN)THEN2040
2025?"IHAVEESCAPEDFROMCYGNUS":?"ANDSURVIVED!"
2026IFLC=1THEN?"ICANNOWHEADHOMETOEARTH.":GOTO2100
2027?"ICANBEGINANEWLIFEINA":?"NEWUNIVERSE"
2030GOTO2100
2040?"IWASDESTROYEDINSPACESOIAMDEAD."
2100?:?"WOULDYOULIKETOPLAYAGAIN";:INPUTD$:IFD$(1,1)="Y"THENCLR:RUN
2110TRAP40000:CLR:GRAPHICS0:POKE764,255:RUN"D:MENU"
3000?:?"";:INPUTCM$:V1$="":N1$="":V=0:N=0:IFLEN(CM$)=0THENRETURN
3020FORZL=1TOLEN(CM$):IFCM$(ZL,ZL)<>""THENV1$(LEN(V1$)+1)=CM$(ZL,ZL):NEXTZL
3021V2$=V1$
3025IFLEN(V1$)<5THENV1$(LEN(V1$)+1)="":GOTO3025
3027IFLEN(V1$)>5THENV1$=V1$(1,5)
3030FORZL=1TOLV:IFV1$=V$(ZL*5-4,ZL*5)THENV=ZL:GOTO3050
3035NEXTZL
3040V=0:N1$=V1$:GOTO3060
3050IFLEN(V1$)+1>=LEN(CM$)ANDV<>1THENN=0:RETURN
3055N1$=CM$(LEN(V2$)+2,LEN(CM$))
3056IFLEN(N1$)<5THENN1$(LEN(N1$)+1)="":GOTO3056
3057IFN1$="UP"THENN=5:GOTO3080
3060FORZL=1TOLN:IFN$(ZL*5-4,ZL*5-2)=N1$(1,3)THENN=ZL:GOTO3080
3065NEXTZL
3070N=0
3080RETURN
5000FORZL=0TOLO:IFO(ZL,1)=XTHENY=O(ZL,2):RETURN
5010NEXTZL:Y=-99:RETURN
6000GRAPHICS0:SETCOLOR2,5,0:SETCOLOR1,1,15:POSITION3,5:?"HELP!!!":?"ARMEDROBOTSAREEVERYWHERE!"
6010?"I'VEBEENCAPTURED.":?"NOWREINHARDTCANCOMPLETEHISEVILPLANS.":?:?"";:GOTO2100
10000IFTC<25ORINT(RND(0)*GF)+1<>1ORDCTHEN10100
10010IFTC=300THENGF=20
10020?:?"Anarmedrobotjustwalkedin!"
10030GOSUB3000:IFV<>12ORN<>13THEN6000
10040X=8:GOSUB5000:IFY<>-1THENX=17:GOSUB5000:IFY<>-1THEN6000
10050IFAG=0ANDO(2,2)=-1THEN?"Mygunisoutofammunition.":GOTO10070
10060IFO(11,2)=-1ANDAB=0THEN?"Myblasterisoutofammunition."
10070IFAG=0ANDAB=0THEN6010
10075?CHR$(253);"Nomorerobot!"
10080IFAG=0THENAB=AB-1:GOTO10090
10085AG=AG-1
10090IFAG=0ANDAB=0THEN?"I'moutofammunition."
10100GOSUB3000:TC=TC+1
10105IFTC>60ANDLC=14THEN23000
10110IFV=0ANDN=0THEN10120
10115GOTO10200
10120?"Idon'tknowhowtodothat.":GOTO10000
10130?"Nothinghappened.":GOTO10000
10200IFV>1ORN>6THEN10300
10210IFN=0THEN10120
10215IFLC=15AND(NOTMK)THEN?"Maximillianwon'tletmepass!":GOTO10000
10220IFD(LC,N)=0THEN?"Ican'tgothatway!":GOTO10000
10225LC=D(LC,N):GOTO1000
10300IFV=3THEN1000
10400IFV<>2THEN10600
10410IFN=0THEN?"Idon'tknowwhata";CHR$(34);N1$;CHR$(34);"is.":GOTO10000
10415IFN=14ORN=18ORN=19THEN10430
10417IFN=13ANDO(15,2)=LCTHENI=15:GOTO10440
10420IFCR>4THEN?"Ican'tcarryanymore.":?"DROPSOMETHING.":GOTO10000
10430IFN=10ANDO(13,2)=LCTHENI=13:GOTO10460
10432FORI=1TOLO:IFO(I,1)=NTHEN10440
10434NEXTI:GOTO10120
10440IFO(I,2)=-1THEN?"I'malreadycarryingit.":GOTO10000
10450IFO(I,2)<>LCTHEN?"Idon'tseeit.":GOTO10000
10460IFN<>18THEN10490
10470X=17:GOSUB5000:IFY<>-1THEN?"Idon'thaveablastertoputitin.":GOTO10000
10480AB=4:O(12,2)=0:?"Myblaster'sreloaded.":GOTO10000
10490IFN>10ANDN<14ANDI<>15THEN?"Helooksprettymeantome.":GOTO10000
10495IFI=15THEN?"He'stooheavytocarryandtoostupidtofollowme.":GOTO10000
10500IFN=14ORN=18ORN=19THEN10520
10510CR=CR+1
10520O(I,2)=-1:?"OK."
10530IFN=8THENQ=-1
10540IFN=17THENR=-1
10550GOTO10000
10600IFV<>4THEN10700
10610?"I'mcarrying:":K=0:FORI=1TOLO:IFO(I,2)=-1THEN?O$(I*35-34,I*35):K=1
10630NEXTI:IFK=0THEN?"NOTHING"
10640?:GOTO10000
10700IFV<>5THEN10800
10750GOTO11210
10800IFV<>6THEN10900
10810IFN=0THEN10410
10820IFO(13,1)=NANDO(13,2)=-1THENI=13:GOTO10860
10840FORI=0TOLO:IFO(I,1)=NTHEN10850
10845NEXTI:GOTO10120
10850IFO(I,2)<>-1THEN?"I'mnotcarryingit.":GOTO10000
10860IFN<>14ANDN<>19THENCR=CR-1
10865O(I,2)=LC:?"OK."
10870IFN=15ANDLC=2THENFU=-1
10880IFN=16ANDLC=2THENSP=-1
10885IF(NOTFU)OR(NOTSP)ORSRTHEN10890
10886X=14:GOSUB5000:IFY<>-1ANDY<>LCTHENX=19:GOSUB5000:IFY<>-1ANDY<>LCTHEN10890
10887IF(YORY=LC)ANDX=19THEN?"VINCENT";:O(14,2)=2:GOTO10889
10888?"BOB";:O(8,2)=2
10889?"takesthefuelandpartsand":?"repairstheship.":O(9,2)=0:O(10,2)=0:SR=-1
10890GOTO10000
10900IFV<>7THEN11000
10910RESTORE400:FORZL=1TOLC:READD$:NEXTZL:IFD$=""THEN?"HowshouldIknowwhattodo?":GOTO10000
10915?D$:GOTO10000
11000IFV<>8THEN11100
11010IFN<>9THEN?"Loadawhat?":GOTO10000
11020IFLC<>34THEN?"There'snodiskdriveforit.":GOTO10000
11030X=9:GOSUB5000:IFY<>-1THEN?Z$(1,34):GOTO10000
11035O(2,2)=0:CR=CR-1:?Z$(35,129):DL=-1:GOTO10000
11100IFV<>9THEN11200
11110GOTO2000
11200IFV<>10THEN11300
11210IFN>7THENPRINT"Don'tbepushy!":GOTO10000
11212IFN<>7THEN10210
11220IFLC<>2ANDLC<>8ANDLC<>34THEN?"Whatbutton?":GOTO10000
11230IFLC=34THENIF(NOTDL)THEN?Z$(130,174):GOTO10000
11235IFLC=34THENLC=17:GOTO1000
11240IFLC=2THENIF(NOTFU)THEN?Z$(175,208):BF=0:GOTO11250
11245IFLC=2THENBF=-1
11250IFLC=2THENIF(NOTSP)THEN?Z$(209,243):BP=0:GOTO11260
11255IFLC=2THENBP=-1
11260IFLC=8AND(NOTCP)THENCP=-1:GOTO1000
11270IFLC=8ANDCPTHENCP=0:GOTO1000
11280IFLC=2THENIF(NOTBF)AND(NOTBP)THEN?"Therefore,Ican'tblastoff.":GOTO10000
11285IFLC=2THENBF=-1:BP=-1:LC=1:GOTO1000
11290GOTO10000
11300IFV<>11THEN11400
11310IFN=0THEN?"What'sa";N1$;"?":GOTO10000
11320IFN<>10THEN?"Don'tberidiculous.":GOTO10000
11330IFO(3,2)<>-1ANDO(13,2)<>-1THEN?"I'mnotholdingit.":GOTO10000
11340IFO(3,2)=-1THENO(3,2)=0:GOTO11370
11350O(13,2)=0
11370CR=CR-1:?"Chomp...Chew...Gulp...<BURP>!":?"MMM...GOOD!":GOTO10000
11400IFV<>12ORN=0THEN11600
11410X=8:GOSUB5000:IFY<>-1THENQ=0
11420X=17:GOSUB5000:IFY<>-1THENR=0
11430IF(NOTQ)AND(NOTR)THEN?"Ihavenothingwithwhichtoshoot.":GOTO10000
11440IFAG=0ANDAB=0THEN?"Idon'thaveanyammunitionleft.":GOTO10000
11450X=N:GOSUB5000:IFY=-1THEN?"Ican't.I'mholdingit.":GOTO10000
11460IFN=13THENX=13:GOSUB5000:IFY=LCTHEN?CHR$(253);"therobotvaporized.":GOTO11530
11465IFN=13THEN11480
11470IFN=12THEN11560
11480IFY<>LCTHEN?"Idon'tseeit!":GOTO10000
11490IFN=11THEN?CHR$(253);"theshotbouncedoffhim":?"harmlessly.":GOTO11530
11500IFN<8THEN?"Don'tbecrazy!":GOTO10000
11510FORI=1TOLO:IFO(I,1)=NTHEN11520
11515NEXTI:GOTO10120
11520O(I,2)=0:?CHR$(253);"THE";N1$;"VAPORIZED."
11530IFAG=0THENAB=AB-1:GOTO11540
11535AG=AG-1
11540IFAG=0ANDAB=0THEN?"I'moutofammunition."
11545IFN=13ANDLC=21THENO(15,2)=0
11547IFN=15THENFU=0
11548IFN=16THENSP=0
11550GOTO10000
11560FORZL=1TO5:POKE712,64:?CHR$(253);:FORI=1TO10:NEXTI:POKE712,1:FORI=1TO10:NEXTI:NEXTZL
11565?"Thatwasfoolish!Toprotecthis":?"master,Maximillianattacksmewith"
11570?"apairofrazor-sharprotaryblades":?"whichextendfromhischest.":?"Iamdead.":GOTO2100
11600IFV<>13THEN11700
11610IFN=19ANDLC=15THEN11630
11620GOTO10810
11630X=19:GOSUB5000:IFY<>-1THEN?"Vincentisn'twithme.":GOTO10000
11640?"VincentattacksMaximillianwithhis":?"lasers,whichbounceharmlesslyoff"
11645?"Max.ThenVincentclosesin.Whenhe":?"iscloseenoughtoMaximillian,a"
11647?"tiny,propeller-likedrillpopsoutofVincent'sfront.Itcutsthrough":?"Maximillian'schest";
11648?"shreddinghis":?"innards.Maximillianfallsloudly":?"throughthefloor."
11649O(4,2)=0:O(14,2)=15:MK=-1:GOTO10000
11700IFV<>14THEN11800
11710IFN<>23THEN?"Don'tbefoolish!":GOTO10000
11730X=20:GOSUB5000:IFY<>-1THEN?"Idon'thaveanykeytounlockthedoor.":GOTO10000
11740IFLC<>24ANDLC<>25THEN?"Therearenolocksaroundherewhichfitmykey.":GOTO10000
11750IFKSTHEN?"It'salreadyopened.":GOTO10000
11760?"OK.Thedoorisunlocked.":KS=-1:DC=0:D(24,2)=25:D(25,4)=24:GOTO10000
11800IFV<>15THEN11900
11810IFN<>23THEN?"Don'tbefoolish!":GOTO10000
11820X=20:GOSUB5000:IFY<>-1THEN?"Idon'thaveanykeytolockthedoor.":GOTO10000
11830IFLC<>24ANDLC<>25THEN?"Therearenolocksaroundherewhichfitmykey.":GOTO10000
11840IF(NOTKS)THEN?"It'salreadylocked.":GOTO10000
11850?"OK.Thedoorislocked.":KS=0:D(24,2)=0:D(25,4)=0
11860IFLC=25THENDC=-1
11870GOTO10000
11900IFV<>16THEN12000
11905IFN<>21ANDN<>22THEN12000
11910IF(N=21AND(LC=2ORLC=3))OR(N=22AND(LC=15ORLC=16))THEN11930
11920?"Thatwon'tworkhere.":GOTO10000
11930IFLC=2ORLC=3THENX=21:GOSUB5000:IFY<>-1THEN?"I'mnotcarryingit.":GOTO10000
11940IFLC=15ORLC=16THENX=22:GOSUB5000:IFY<>-1THEN?"I'mnotcarryingit.":GOTO10000
11950IFLC<>2ANDLC<>3THEN11960
11951IFPP<>0THEN11958
11956D(2,3)=3:D(3,1)=2:?"ThedoorbetweenthePalominoandthedockingbayisnowopened.":PP=-1:GOTO11970
11958D(2,3)=0:D(3,1)=0:?"ThedoorbetweenthedockingbayandthePalominoisnowclosed.":PP=0:GOTO11970
11960IFPD=0THEND(15,1)=16:D(16,3)=15:?"Thedoorbetweenthedroneandthe"
11961IFPD=0THEN?"dronedockingbayisnowopened.":PD=-1:GOTO11970
11965D(15,1)=0:D(16,3)=0:?"Thedoorbetweenthedroneandthe"
11967?"dronedockingbayisnowclosed.":PD=0:GOTO11970
11970IFLC=2THENIFPPTHENDC=0:GOTO11980
11975IFLC=2THENDC=-1
11980IFLC=16THENIFPDTHENDC=0:GOTO11990
11985IFLC=16THENDC=-1
11990GOTO10000
12000?"Idon'tknowwhatthatmeans.":GOTO10000
20000IFLC<>1THEN21000
20010?CHR$(253);CHR$(253);CHR$(253);:IFINT(RND(0)*10)+1>6THENWN=-1:GOTO2010
20020?"MYSHIPISSHOTDOWNBYONEOFTHECYGNUS'LASERCANNONS.":GOTO2010
21000IFLC<>4THEN22000
21010IFO(1,2)<>-1THEN21050
21030IFINT(RND(0)*10)+1>7ORGDTHEN21050
21035?CHR$(253);"ABURSTOFLASERFIREWHICHCOMESFROMANUNKNOWNSOURCEDESTROYSMYGUN.":O(1,2)=0:AG=0
21050GD=-1:GOTO1010
22000IFLC<>13THEN23000
22020IFLR=-1THEN1010
22030LR=-1:?"Ahumanoidrobotfiddleswithsomecontrols,thenwalksaway.Ashe"
22040?"walks,hedropsanelectronickey.":O(7,2)=13:GOTO1010
23000IFLC<>14THEN24000
23020IFTC<60THEN1010
23025?"":?"AHUGEMETEORBREAKSTHROUGHTHE":?"CEILING!EVERYTHINGSUDDENLYBECOMES"
23026?"COLDASTHEVACUUMENTERSTHEROOM.ICANFEELTHEPULLOFTHEVACUUMONME"
23027?"ASTHEPRESSUREBEGINSTOEQUALIZE!"
23030IFO(8,2)=-1THEN23050
23040?"IAMSUCKEDUPINTOTHEVACUUMANDIDIE.":GOTO2010
23050?"IGRABONTOBOBANDHECARRIESMETOSAFETY.":LC=15:FORI=1TO999:NEXTI:GOTO1000
24000IFLC<>17ANDLC<>18THEN25000
24010IFLC=17THEN?"IHAVENOCONTROLOVERTHESHIP!":FORI=1TO250:NEXTI:LC=18:GOTO1000
24020FORI=1TO250:NEXTI:IFINT(RND(0)*10)+1>3THEN24040
24030GRAPHICS0:SETCOLOR2,10,0:SETCOLOR1,0,15:POSITION2,7:?"MYSHIPCRACKSUPINTHEBLACKHOLE.":GOTO2010
24040LC=19:GOTO1000
25000IFLC<>33THEN26000
25020IFFLTHEN1010
25030FL=-1:?"Severalhumanoidrobotsarecarryingabody-likeobject.Theyplaceitinsomekindoftube,";
25040?"andit'sejectedintospace.":GOTO1010
26000IFLC<>7THEN27000
26010IF(NOTCP)THEN?"TOTHEEASTISANAIRCAR.":D(7,2)=8:GOTO1010
26020D(7,2)=0:GOTO1010
27000IFLC<>9THEN28000
27010IFCPTHEN?"TOTHEWESTISANAIRCAR.":D(9,4)=8:GOTO1010
27020D(9,4)=0:GOTO1010
28000IFLC<>15ORMATHEN29000
28010O(4,2)=15:?"Maximillianappearsfrombehindapartitian,seeminglyfromnowhere!":MA=-1:GOTO1010
29000IFLC<>19THEN30000
29010WN=-1:GOTO2010
30000IFLC<>22THEN31000
30010IFO(6,2)<>LCTHEN1010
30015?:?"":?"ANEVILLOOKINGROBOT"
30020GOSUB3000:IFV<>12ORN<>13THEN6000
30030X=8:GOSUB5000:IFY<>-1ORAG=0THENX=17:GOSUB5000:IFY<>-1ORAB=0THEN6000
30040IFAG=0THENAB=AB-1:GOTO30050
30045AG=AG-1
30050?CHR$(253);"Therobotvaporized."
30060IFAG=0ANDAB=0THEN?"I'moutofammunition."
30070O(6,2)=0:GOTO1010
31000IFLC<>24THEN32000
31010IFKSTHEN?"TOTHEEASTISANOPENDOOR.":GOTO1010
31020?"TOTHEEASTISALOCKEDDOOR.":GOTO1010
32000IFLC<>8THEN32030
32010IFCPTHEN?"IT'STHEEASTERNENDOFALONGTUNNEL.":GOTO1010
32020?"IT'STHEWESTERNENDOFALONGTUNNEL.":GOTO1010
32030GOTO1010	

• Download link 1
• Download link 2

• Download link 1
• Download link 2
• Download link 3
• Download link 4
• Download link 5