9 N$" STAR TRADER":S$"BOLT BIN ":8e"";N$:" PLEASE WAIT..."RC$""(NL$" "2CY$"":L$"":CD$"")<L1$""`FLP0:MS0:DF0:W%(9,1):P(9,6):PL$(9):SS100:L0}PPF(9,3):GD(8,1):TP(8)ZX(D)((0)D8D3)dDS(D)(((P(D,0)P(L,0))2(P(D,1)P(L,1))2(P(D,2)P(L,2))2))n9xSIRIUS,PROCYON,WESEN,ALTAIR,DENEB,DUBHE,VEGA,CAPELLA,CASTOR,POLLUX,ANTARESmZOSMA,RIGEL,MEGREZ,MINTAKA,SAIPH,KOCHAB,PHAEDAETAMIN,ERIDANE,WOLF,HAMAL,ARIADNEI19:(0).333PL$(I):D$:180(0).333D$:PL$(I):180D$:PL$(I)P(I,0)X(I):P(I,1)X(I):P(I,2)X(I)?P(I,3)9110I((0)15)((0)15)|P(I,4)212I((0)3):P(I,5)(2000(P(I,3)P(I,4))1)P(I,6)DS(I)I:PL$(0)"SOL":P(0,3)110((0)20):P(0,4)20:P(0,5)1T$(9):T$(0)"0:FOOD ":T$(1)"1:METALS "T$(6)"6:GEMS "BT$(2)"2:WEAPONS ":T$(3)"3:CYBORGS "nT$(4)"4:URANIUM ":T$(5)"5:DRUGS "T$(7)"7:FUEL ":T$(8)"8:REPAIRS "0,2:4,2"" WELCOME TO STAR TRADER!"," ENTER NAME OF YOUR SHIP";S$:""G6GD(7,1)10:CS5000:CR5000:SD5((0)200)100:2200:690:B2CS500Z@A$:A$""320jJA$"Q"530TA$"I"690:320^A$"M"870:320hA$"J"990:320rA$"B"L0B02400:320|A$"D"L0CS02480:320A$"T"1270:320A$"U"L0570:3206A$"L"L0630:320H(A$)13320N$;" VALID COMMANDS ARE :":" 'I' CARGO AND SHIP STATUS"" 'J' HYPER JUMP CHART":" 'T' TRADE TABLE"" 'M' SYSTEM LIBRARY"" 'Q' TO QUIT GAME")" 'U' UNLOAD SHIP TO WAREHOUSE"P" 'L' LOAD SHIP FROM WAREHOUSE"t" 'B' BORROW CASH FROM BANK"" 'D' DEPOSIT CASH IN BANK"A$:A$""510330" QUITTING: ARE YOU SURE ?";A$:A$""540&A$"Y"2860 0690:320):IN1:I$"":"";CY$;NL$BDCY$;" UNLOADING ";`N1620:IN61,200,5:590X(T$(IN),8);:N:(N)GD(IN,1)N01,200,5:570bGD(IN,0)GD(IN,0)(N):GD(IN,1)GD(IN,1)(N)lCY$;NL$:2360:850:vIN1:I$"":CY$;NL$CY$;" LOADING ";01620:IN61,200,5:650f(T$(IN),8);:N:(N)GD(IN,0)N01,200,5:630GD(IN,1)GD(IN,1)(N):GD(IN,0)GD(IN,0)(N)CY$;NL$:2360:850:N$:"";L$;"";L$;"";" WAREHOUSE (SOL) ";"";RC$;S$0"";L$;"";L$;"";cI06:T$(I);" ";T$(I);" ";:"";L$;"";L$;"":""2360:840:2460:850CY$;" SHIP DATA FOR ";S$" TONNAGE ";:"#######";SS; " DAMAGE ";:"#####";DMQ"FUEL ";:"#####.#";GD(7,1)z :" LASER PODS ";:"#####";LP;*" DEFLECTORS";:"#####";DF4" MISSILES ";:"#######";MS;>HCY$;" ";PL$(L);" STARDATE ";:"#####.##";SD;:CRCCSS:I06:CCCCGD(I,1)::CCCC(GD(7,1))10(LPDF)MSw\CY$;"CARGO CAP.";:"#######";CC:fN$::"SYSTEM","POPL. TECH. AGRICULTURE":pI09::LI"*";zPL$(I),P(I,3),P(I,4),P(I,5):N$:L1L(" DESTINATION SYSTEM ";PL$(L1)RI04:"";(I48);":";:IL"";mPL$(I);"";,P(I,6),;"";(I53);":";:I5L"";PL$(I5);"";,P(I5,6):I" '0'..'9' TO SELECT DESTINATION":" THEN RETURN TO LAUNCH."#CC0GD(7,1)01,200,5:,910@A$:A$""1010PA$"Q"530oL1L(A$)13690:840:(A$)131110KP(L1,6):LL1:Z1K:1140:SDSD.01:CR0CRCRCR500$CR0CRCRCR150.Z 8I09:P(I,6)DS(I)::2200:1,1000,10UB(0)CRCR100000050000SD" YOUR SHIP WAS REPOSESSED...":2860qLB2CS500:2540:690:V(A$)48(A$)571010`L1(A$):"";RC$;" ";PL$(L1);j1010tGD(7,1)GD(7,1)0.1. ~GD(7,1)0" YOU RAN OUT OF FUEL IN MID-FLIGHT...":2860> (0).06P (0).31220p DMDM((0)51):3,400,20 CY$;" SPACE DEBRIS!!":J1400:J DMSS"YOUR SHIP WAS DESTROYED BY A METEOR":2860  (0).11250$!GD(7,1)GD(7,1)((0)10)1:3,1000,20V!CY$;" MIS-JUMP!!":J1400:J:j!(0)L2120v!1710:!N$:" TRADE PRICES FOR ";PL$(L)!"òò"" " ITEM PRICE OWNED ";""";L1$;""="I06:(T$(I),3);:IXI"";j"((T$(I),8);"";: "#######.##";TP(I);"2" ":"<"";L1$;"""FT$(7);"";:"#######.##";TP(7);:" ";"P"";L1$;""##ZT$(8);"";: "#######.##";TP(8);:" ";S#d"ññ"#n"'B'-BUY 'S'-SELL 'Q'-QUIT 'R'-REPAIR":DN$"":1650#xIN1:I$"":GD(8,1)0#CY$;CD$;NL$#A$:A$""1420#A$"Q"690:#A$"R"1480 $CY$;CD$;" REPAIRS ";DM;:N:NDMNDMA$(N)TP(8)CSN(CSTP(8))m$DMDM(N):CSCS(N)TP(8):1650:1410$A$"B"1560$CY$;CD$;" BUYING ";$IN01620$(I$,8);"(";$ "######";(CSTP(IN));:")";$" ";%%N:TP(IN)(N)CSN(CSTP(IN))a%CSCSTP(IN)(N):GD(IN,1)GD(IN,1)N:1650:IN1:1410}%A$"S"1,200,5:1410%"CY$;CD$;" SELLING ";:IN0"";:1590%,1620:(I$,8);:IN71,200,5:IN1:1410&6" ";0&@N:(N)GD(IN,1)NGD(IN,1)l&JCSCSTP(IN)(N):GD(IN,1)GD(IN,1)N:1650:IN1:1410&TA$:A$""1620&^(A$)48(A$)55IN(A$)48:I$T$(IN):&h1,200,5:1620&r850:CY$;" CASH ";'| "$###########.##";CSJ'DN$"":I06:"";DN$;RC$;' "########";GD(I,1):DN$DN$""::DN$DN$""'"";DN$;RC$;:"#####.#";GD(7,1):'"";DN$;RC$;:"######";DM:("":1,8:0,2,4:DR0:PS480:SK0:OS0\(SN0:BT500:I1(SS100):SNSN((0)2):BTBT500((0)600):(PF(0,0)SS((0)SS1002)100:SN9PF(0,0)PF(0,0)(SN9)100:SN9(PF(0,1)((0)SS1002)((0)L2))J19:PF(J,0)((0)SS10SS10):PF(J,1)((0)SS5001)#)JSNPF(J,0)0))l)J09:PF(J,3)30((0)9):PF(J,2)8((0)6)::TG0:OSSN1)DRDR10DF:DR0DR0)DMDM(DR):DRDR(DR))GD(7,1)0"YOU RAN OUT OF FUEL...":DMSS1:I11000:,*DMSS"LOOTED BY PIRATES!":I06:GD(I,1)0::CS0:2860u*&N$:" 'E' EVADE 'C' CLOSE '0'..'9' TARGET":" 'M' NUKE 'L' LASER"*0760:2050*:SN11930*DCY$;RC$;CD$;" TARGET ";:"##";TG;:A$:A$""1860*NA$"L"LP0PF(TG,0)01970:1790%+XA$"M"MS0PF(TG,0)02000:1790G+bA$"E"GD(7,1)02040:1790h+lA$"C"(0).7EV3:1790+v(A$)47(A$)58TG(A$)48:1860+1860+0,2:"":OSSK+"YOU DEFEATED THE PIRATE FLEET",CSCSBT:"AND COLLECTED ";:"########";BT;:" IN BOOTY!"3,I12000::"":n,3,1020,8:1,970,8:PF(TG,0)PF(TG,0)(150LP)PF(TG,3),PF(TG,0)03,900,20:SNSN1:SKSK1,,3,600,20:MSMS1:(0)100PF(TG,3)-3,800,30:PF(TG,0)PF(TG,0)((0)50)((0)50)+-PF(TG,0)03,950,20:SNSN1:SKSK11-Y-GD(7,1)GD(7,1).1:EV((0)31):v-3072PS,42:2048PS,127- J901:PF(J,0)02180-MV((0)3):PF(J,3)EVMV1PF(J,3)PF(J,3)EVMV- PF(J,3)39PF(J,0)0:SNSN1:2180&.*(PS40)PF(J,2)(0).3PF(J,2)PF(J,2)1V.4(PS40)PF(J,2)(0).3PF(J,2)PF(J,2)1.>J03072PF(0,2)40PF(0,3),65:2048PF(0,2)40PF(0,3),127:2140.H3072PF(J,2)40PF(J,3)40,J48:2048PF(J,2)40PF(J,3)40,113 /R3072PF(J,2)40PF(J,3),87:2048PF(J,2)40PF(J,3),127:/\(0)PF(J,3)402180j/f3,102010J,5:DX(PF(J,1)400)(PF(J,3)2)/pDRDRDX:(0)DX(SSDMDX)DF03,1020,10:3,990,15:DFDF1/z(0)DX(SSDMDX)LP03,1000,10:3,900,10:LPLP1/J/EV0:0TP(0)20(P(L,5))30TP(1)2000(5P(L,4)P(L,5)5)V0TP(2)40000(10P(L,4)P(L,3))0TP(3)(12000((0)2000))(10P(L,4))0TP(4)100000(4P(L,4))0TP(5)100000(P(L,5)2)0TP(6)15000P(L,3)(5P(L,4))0TP(7)100(2P(L,4))1TP(8)500P(L,4)22K1I07:(0).4TP(I)TP(I)(0)(TP(I)(7L2)):2310o1TP(I)TP(I)(0)TP(I)(102L)1 :IX((0)7):((0)10)L(0)50(SD10)IX1:1 NS((0)P(L,3)8)4:G$"SHORTAGE":(0).5G$"GLUT":NS4NS#2 "THERE HAS BEEN A ";G$;" OF ";(T$(IX),8);"."[2$ "PRICES ARE ";:"##.##";NS;:" TIMES NORMAL!!!"~2. I12500::TP(IX)TP(IX)NS:28 DN$""2B "":I06:"";DN$;: "########";GD(I,0)2L "";RC$;DN$;: "########";GD(I,1)3V DN$DN$"":: 3` CY$;NL$;3j CY$;" BORROWING ";N3t N:(N)BNBw3~ CSCS(N):CRCR(N):BB(N):24603 CY$;NL$3 3 CY$;" CASH $ ";: "##############.##";CS3 CY$;" CREDIT $ ";: "##############.##";CR:4 CY$;NL$$4 CY$;" DEPOSITING ";94 N:(N)CSNCSb4 CSCS(N):CRCR(N):BB(N):2460o4 CY$;NL$u4 4 (0)P(L,4)404 (0).226204 CTP(L,4)1001000(0)(0)(CS1000)CS10004 CTCS5 "YOU HAVE BEEN OFFERED A BIGGER SPACE-"65 "SHIP FROM A COMPANY ON ";PL$(L)c5( "IT COSTS ";:"########";CT;:" CR.";52 " WITH A TRADE-IN.":2820:SSSS100:5< (0).2526805F CT160(25P(L,4))(0)(CS1000)CS10005P CTCS6Z "THERE IS A NEW LASER POD FOR SALE HERE."C6d "IT COSTS A MERE ";:"########";CT;:" CR."W6n 2820:LPLP1:j6x (0).1527406 CT200(25P(L,4))(0)(CS800)CS8006 CTCS6 "THERE IS A DEFLECTOR SHIELD AVAILABLE"7 "COSTING JUST ";:"########";CT;:" CR."7 2820:DFDF1:d7 CT70(25P(L,4))(0)(CS1000)CS1000:N((0)P(L,4)2P(L,4)31)|7 CTNCSN(CSCT)7 N07 "";N;" NUCLEAR MISSILES ARE OFFERED."7 "TOTAL COST IS";:"########";CTN;:" CR."8 "HOW MANY DO YOU WISH TO BUY";NM:NM0NM0*8 NMNNMNE8 MSMSNM:CSCSNMCT:t8 "ARE YOU WILLING TO MAKE THE PURCHASE ?"8 A$:A$"Y"A$"N"28308 A$"Y"CSCSCT8" "":8, " CASH POSESSED ";CS:" BANK BALANCE ";CR;"96 " GOODS POSESSED"L9@ I06:" ";T$(I);":";GD(I,0)GD(I,1):