"HOSTILE SHIPS APPROACHING!!":5:128:2148}SN(SHGN)1:SASN:M1SH:@320,"SHIPS OF LI YUEN'S PIRATE FLEET":5:1288ց252:(2)12218ׁ6:@320,"THEY'RE FIRING ON US, TAIPAN!":140:68؅(SN)(4)@320,"THEY MISSED!!":2219ف2659lSHSH(30):DM((SHM1)100):254:@320,"WE'VE BEEN HIT!!":"STATE OF REPAIR IS";(DM);"%":69ۅ DM0 SH0 6:"THE BUGGERS GOT US, TAIPAN!!":"IT'S ALL OVER NOW!!":274:221: CK1:128:251:@320,"WANT TO TRY AGAIN";:Q$:Q$"Y":::r݁6: (WZ20)1 BR1 SN0:252:CK1:128:@320,"LI YUEN'S FLEET DROVE 'EM OFF!!":5:234::ޅ GN0@320,"SHALL WE RUN?" : @320,"SHALL WE RUN OR FIGHT?":ߠ200,1:Q1$:Q1$"":T059:Q1$:Q1$"":T60;qQ1$"R" Q1$"Y" (3)(SN)SN0:@320,"WE GOT AWAY FROM 'EM!!":5:CK1:128:234:::@320,"CAN'T LOSE 'EM!!":6<%⁦252:Q1$"R" Q1$"Y" 227:SN2 (10)9PU(SN1):SNSNPU:SASN:128:"BUT WE ESCAPED FROM";PU:"OF 'EM, TAIPAN!!":"ONLY";SN;"STILL ATTACKING!!":252:6:215<GN0 Q1$"F" @320,"WE'RE FIRING ON 'EM!!":228::GN0 Q1$"F"@320,"WITH WHAT, TAIPAN?!?":215:228<GN0 Q1$"F"215= (GN)(4)WZ 6:142:@320,"WE HIT 'EM!!":6:@320,"MISSED 'EM!!":232=h (100)25GN SNSN1:6:144:"THE BUGGER'S JOINING DAVY JONES":5:128:250:232=灦6:@320,"STILL FLOATING!!"=聦252:6:SN0 "WE'VE DONE FOR 'EM ALL!!":6:251::215>1遦5:@320,"WE'VE CAPTURED SOME BOOTLE,":CB(10000)SA:CACACB:"IT'S WORTH";CB;"!!":5:234:>MQ1$"":(10)2211:>uG1(1000)500: G1CA (4)1>@320,"DO YOU WISH TO BUY A SHIP'S GUN":"FOR";G1;:Q$>Q$"N">MW100241:>CACAG1:GNGN1:MWMW10>251:?/@320,"YOUR SHIP WOULD BE OVERBURDENED":5:?9249?b@416,"HOW MUCH ";TG$;" SHALL I BUY"?@448,"(YOU CAN AFFORD";(CATP);")";:?@416,"HOW MUCH SHALL I SELL ";:?@416,"HOW MANY UNITS OF ";TG$:"MOVE TO WAREHOUSE";:@-@416,"HOW MANY UNITS OF "TG$:"MOVE ABOARD SHIP";:@7251@I251:150:@(10)5 SN(SA4) SN1 SR(SN):SNSNSR:128:SASN:@448,"RAN AWAY, TAIPAN!!"::@16:35:L8@288,"CAPTAIN'S REPORT:";: : @288,"COMPRADOR'S REPORT:";:AA@416,"SHIPS ATTACKING:";SN:"YOUR SHIP'S GUNS:";GN:@320,"";:AVDM0DM0::A{128,128,128,195,199,195,194,128A128,229,239,207,207,207,202,128A128,229,239,207,207,207,202,128A161,162,236,238,237,161,163,162B164,175,175,175,175,175,175,168B4161,255,236,238,237,255,163,162BY224,224,224,224,224,224,224,224B~255,255,255,255,255,255,255,255BI04:@PPI32,S$(I1);:I:B 8:100,15B 0: 128: C :@168,"DO YOU WANT TO BE":8);"1) A TRADER":8);"2) A PIRATE"C 8);C" WZ:WZ1CBWZ2D00:GN5:MW0:CA0:CL267CX10,3:Cf100,15:CII06: S(II,0),S(II,1)CJJ150:CII3JJ1100:CII:C 40,8,20,4,80,20,40,8,20,4,80,4,120,208);"1) A TRADER":8);"2) ARMS":246:A1$&9h A1$"A" A1AC:106 : A1(A1$)&Ji A1AC 103&ojAWAWA1:ACACA1:MWMWA1:249&k AW0 111 : TG$"ARMS":247:A2$&l A2$"A" A2AW:110 : A2(A2$)&m A2AW 107&nAWAWA2:ACACA2:MWMWA2:249'&o GC0 115 : TG$"GENERAL": 246: G1$'Qp G1$"A" G1GC: 114 : G1(G1$)'cq G1GC 111'rGWGWG1:GCGCG1:MWMWG1:249's GW0 119 : TG$"GENERAL":247:G2$'t G2$"A" G2GW:118 : G2(G2$)'u G2GW 115(vGWGWG2:GCGCG2:MWMWG2:249(#w150:56(uxL8127 : L1 @416,"DO YOU WISH TO RETURN TO BANK";:Q$: Q$"Y" 152(y MW0 @416,"YOUR SHIP IS OVERLOADED!":5:150:56)2z251:@320,"DO YOU WISH TO GO TO":"1) HONGKONG 2) SHANGHAI":"3) NAGASAKI 4) SAIGON 5) MANILA":"6) SINGAPORE 7) BATAVIA";)E{LD: LD(LD))d| LDL LD1 LD7 122)r}L8: 34)z~L8)LD834:LLD:34) 0: CK1 CK0: ) SN0 CK1:128:)SN0PP0:264)SN1PP8:264*SN2PP16:264*SN3PP24:264*1SN4PP160:264*HSN5PP168:264*_SN6PP176:264*vSN7PP184:264*SN8@287,"+";*@320,"";:*J13:@96,S$(6);:272:@96,S$(4);:6: J:@320,"";:**J11+>I15:@(I1)32,S$(8);:I:273:I15:@(I1)32,S$(I);:I:6:J:@320,"";:+j@0,S$(7);:I14: @I32,S$(I);:I:6+@32,S$(7);:I13: @32(I1),S$(I);:I:6+@64,S$(7);:I12:@32(I2),S$(I);:I:6+@96,S$(7);:@128,S$(1);:6,@320,"";: 274: ,HOK(OK2)(3):SP(SP2)(3):AP(AP2)(3):GP(GP2)(3),@320,"PRESENT PRICES PER UNIT ARE:":"OPIUM:";OK,"SILK:";SP:"ARMS:";AP,"GENERAL:";GP:,186:190:160:251:@320,"DO YOU WISH TO VISIT THE BANK";:Q$:Q$"N"-'251:@320,"HOW MUCH WILL YOU DEPOSIT";:D$-ID$"A"DCA:155::D(D$)- DCA @320,"YOU ONLY HAVE";CA;"IN CASH.":4:152-BABAD:CACAD-251:@320,"HOW MUCH WILL YOU WITHDRAW";:W$- W$"A" WBA : W(W$).' WBA @320,"YOU ONLY HAVE";BA;"IN THE BANK.":4:156.CBABAW:CACAW:251:.`D010000WN1161:162.WN1:251:@320,"ELDER BROTHER WU HAS SENT";(100)50:"BRAVES TO ESCORT YOU TO THE WU":"MANSION, TAIPAN.":5:5:184/B251:@320,"DO YOU HAVE BUSINESS WITH ELDER":"BROTHER WU, THE MONEYLENDER";:Q$:Q$"N"171/R0:R$"":D00251:@320,"HOW MUCH DO YOU WISH TO REPAY":R$:R$"A"CAD0THENRD0ELSERCA/R$"A"R(R$)/ RD0 R0 RCA 163/D0D0R:CACAR0"251:@320,"HOW MUCH DO YOU WISH TO BORROW":B$0GB$"A"B2CA:170 : B(B$)0 B0 167 :B(BACA)2 @320,"HE WON'T LEND YOU THAT MUCH!":5:1670D0D0B:CACAB0D020000(5)2CA0:1O251:@320,"BAD JOSS!!!":"TWO OF YOUR BODYGUARDS HAVE":"BEEN KILLED BY CUTTHROATS AND":"YOU HAVE LOST YOUR CASH!!!":4:251:1nM1SH:211: (10)91761251:@320,"LI YUEN'S PIRATES, TAIPAN!":51 BR1 "GOOD JOSS!! THEY LET US BE!!":5:176 : 2131(100)95 1822(251:@320,"STORM, TAIPAN!!": (100)75 1812O5:"WE'RE GOING DOWN!!":20:52v"WANT TO GIVE IT ANOTHER GO";:Q$2 Q$"Y" ::25:"WE MADE IT!!":5:(5)36:L(7):LDL:"WE'VE BEEN BLOWN OFF COURSE TO":LO$(L):53.LLD:251:@320,"ARRIVING AT ";LO$(L):6:(5)1195343y251:@320,"ELDER BROTHER WU REMINDS YOU":"TO PAY YOUR DEBTS."34:3TMCABAD0: TM1000000 @320,"DO YOU WISH TO RETIRE";:Q$ : 4 Q$"Y" @320,"Y O U ' R E A":"M I L L I O N A I R E !"::4H"YOUR RATING IS";(TMTI100):"PLAY AGAIN";:Q$4_Q$"Y" : :4kBR14BB(CA(100)100):BR04@320,"LI YUEN ASKS";BB;"IN DONATION":"TO THE TEMPLE OF TIN HAU, THE"4"SEA GODDESS. WILL YOU PAY";:Q$5…Q$"Y"CACABB:BR1::5PS1000(500): CAPS @320,"DO YOU WISH TO TRADE YOUR SHIP":"FOR ONE WITH 50 MORE CAPACITY":"BY PAYING";PS;:Q$5ą CAPS 5Ņ Q$"N" 198 : CACAPS:MWMW50:SHSH505Ɓ251:5Dž L8 (10)7 2046%RB(CA(100)100):CACARB:2516Oɇ@320,"TAIPAN, YOU'VE BEEN BEATEN UP"6sʇ"AND ROBBED OF";RB;"IN CASH!!"6ˁ4:6:251:6̅ OC0 L8 2106OF(CA(100)100): CACAOF6·@320,"LOCALS SEIZE YOUR OPIUM AND"7χ"FINE YOU";OF;", TAIPAN!":MWMWOC:OC0:47'Ё251:7хBR0 (10)6 L1 @320,"LI YUEN HAS SENT A LIEUTENANT":"HE SAYS HIS ADMIRAL WISHES TO":"SEE YOU IN HONGKONG POSTHASTE.":4:2517Ґ7Ӆ(10)1(WZ1)2:08,SN((SH20)1):SASN:@320,/:(C) CLOAD@200:LO$(1)"HONGKONG ":LO$(2)"SHANGHAI "jLO$(3)"NAGASAKI ":LO$(4)"SAIGON "LO$(5)"MANILA ":LO$(6)"SINGAPORE":LO$(7)"BATAVIA ":LO$(8)"AT SEA ":8T02000:T01000:T0500::: @236,"TAIPAN";# I132:S$S$(134):I6 S(6,1),S$(8)c I18:J18:A:S$(I)S$(I)(A):J:I :@161,"ENTER LEVEL OF EXPERIENCE:"::" 1=LANDLUBBER":" 2=APPRENTICE SEAMAN":" 3=OLD SEA DOG":" ";:DL:DL1 DL3 12:DL642DL:I06:J01:S(I,J):J:ID L1:D05000:MO1:YE1860:CA400:MW50:SHMW:@168,"WHAT WILL YOU NAME":8);"YOUR HONG (FIRM)":8);:A$267:251:34@256,S$;@0,"HONG: ";A$;:@16,"DATE:";@32,"WAREHOUSE";:@48,"HOLD GUNS";@66,"OPIUM";:@82,"OPIUM";>@98,"SILK";:@114,"SILK";^@130,"ARMS";:@146,"ARMS";@162,"GENERAL";:@178,"GENERAL";@192,"BANK";:@208,"CASH";@224,"DEBT";:@240,"LOC";2GPGP10: "FAMINE IN SOUTH CHINA, TAIPAN!":"GENERAL CARGO PRICES":"HAVE RISEN TOWARD HEAVEN!!";:OKOK10:"TAIPAN!! A FIRE HAS SWEPT": LO$(L);" AND THE PRICE OF":"OPIUM HAS LEAPED BECAUSE OF":"HOSPITAL USE!";:SPSP10:"THE ";LO$(L);" WARVES HAVE":"BEEN BURNED BY REBEL SAMURAI,":"TAIPAN!! ALL SILK WAS DESTROYED";:wSPSP5:"A RIVAL HONG HAS DUMPED SURPLUS":"SILK ON THE MARKET IN": LO$(L);"!!";:APAP10:"TAIPAN, AN AGENT FOR THE MORO":"REBELS IS BUYING ARMS AT HIGH":"PRICES!! ARMS ARE SKY-HIGH HERE!";:^ OKOK5:"TAIPAN, A YANKEE CAPTAIN IS":"SELLING TURKISH OPIUM BELOW":"THE BRITISH PRICE IN ";LO$(L);"!";:!GPGP10:"MALAY PIRATES HAVE FLOODED ": LO$(L);" WITH CHEAP GENERAL":"CARGO FROM THEIR BOOTY, TAIPAN!";:("BA(BA(BA24)):D0(D0(D010)):MOMO1:TITI1: MO12 YEYE1:MO1:43::43<#@21,MO;"/";YE;R$@73,OW;:@89,OC;j%@105,SW;:@121,SC;&@137,AW;:@153,AC;'@169,GW;:@185,GC;(@196,BA;:@228,D0;: @212,(CA);:@245,LO$(L);)@52,MW;:@61,GN;* + L 48,49,50,51,52,53,54H,L8173:LLD:@245,LO$(L);: L 48,49,50,51,52,53,54W-L1151q.235:47:209:55/ (100)8 @320,"";: L 27,28,29,30,31,32,33:4:251: : 0OK15000:SP1300:AP150:GP10:1OK16000:SP1400:AP160:GP11:&2OK14000:SP1500:AP100:GP12:J3OK13000:SP1600:AP110:GP13:n4OK12000:SP1000:AP120:GP14:5OK10000:SP1100:AP130:GP15:6OK11000:SP1200:AP140:GP16:7(DL)1BR0:199 :149:14948@416,"SHALL I BUY, SELL, OR QUIT";:Q$: Q$"B"57 :Q$"S"58 :Q$"Q"85 :569@416,"WHAT DO YOU WISH ME TO BUY";:Q$:Q$"O"59:Q$"S"67:Q$"A"73:Q$"G"79:57:@416,"WHAT ITEM SHALL I SELL ";:Q$:Q$"O"63:Q$"S"69:Q$"A"75:Q$"G"81:58;TG$"OPIUM":TPOK:242:OB$C< OB$"A" OB(CAOK):62 : OB(OB$)]= OBOKCA OB0 59>CACAOBOK:OCOCOB:MWMWOB:249:56?TG$"OPIUM":245:OS$@ OS$"A" OSOC: 66 : OS(OS$)A OSOC OS0 63 BCACAOSOK:OCOCOS:MWMWOS:249:56 hCTG$"SILK":TPSP:242:SB$:SB$"A"SB(CASP):SB(SB$):SBSPCAORSB067 DCACASBSP:SCSCSB:MWMWSB:249:56 ETG$"SILK":245:SS$ F SS$"A" SSSC: 72 : SS(SS$) G SSSC SS0 69!HCACASSSP:SCSCSS:MWMWSS:249:56!rITG$"ARMS":TPAP:242:AY$:AY$"A"AY(CAAP):AY(AY$):AYAPCAORAY073!JCACAAYAP:ACACAY:MWMWAY:249:56!KTG$"ARMS":245:AZ$!L AZ$"A" AZAC: 78 : AZ(AZ$)!M AZAC AZ0 75"'NCACAAZAP:ACACAZ:MWMWAZ:249:56"OTG$"GENERAL":TPGP:242:GB$:GB$"A"GB(CAGP):GB(GB$):GBGPCAORGB079"PCACAGBGP:GCGCGB:MWMWGB:249:56"QTG$"GENERAL":245:GS$"R GS$"A" GSGC: 84 : GS(GS$)# S GSGC GS0 81#7TCACAGSGP:GCGCGS:MWMWGS:249:56#U OW0 SW0 AW0 GW0 OC0 SC0 AC0 GC0 L1 120#V@416,"DO YOU WISH TO TRANSFER CARGO";:TR$:TR$"N"120#W OC0 91 : TG$"OPIUM": 246: O1$$X O1$"A" O1OC: 90 : O1(O1$)$#Y O1OC 87$HZOWOWO1:OCOCO1:MWMWO1:249$s[ OW0 95 : TG$"OPIUM": 247: O2$$\ O2$"A" O2OW: 94 : O2(O2$)$] O2OW 91$^OCOCO2:OWOWO2:MWMWO2:249$_ SC0 99 : TG$"SILK": 246: S3$%%` S3$"A" S3SC:98 : S3(S3$)%6a S3SC 95%[bSWSWS3:SCSCS3:MWMWS3:249%c SW0 103 : TG$"SILK": 247: S4$%d S4$"A" S4SW:102 : S4(S4$)%e S4SW 99%fSWSWS4:SCSCS4:MWMWS4:249&g AC0 107 : TG$" 1 REM PROGRAM SAMPLE 2 REM 3 REM CALCULATE A FACTORIAL 4 REM IN PILOT. 5 REM 6 PRINT "ENTER A NUMBER. WILL" 7 PRINT "CALCULATE ITS FACTORIAL" 8 INPUT NU 9 GOSUB 16 10 GOSUB 26 11 GOTO 501 12 REM 13 REM EXAMPLE PILOT PRO- 14 REM CEDURE TO CALCULATE 15 REM FACTORIAL. 16 REM 17 AU=1 18 IF NU=1 THEN FL=1 ELSE FL=0 19 IF FL=1 THEN GOTO 23 20 AU=AU*NU 21 NU=NU-1 22 GOTO 18 23 PRINT "THE FACTORIAL IS ",AU,"" 24 RETURN 25 26 REM 27 REM A SECOND EXAMPLE 28 REM PROCEDURE. 29 PRINT "END OF PROGRAM" 30 RETURN 501 STOP 502 REM MATCH AN$ AND MA$ 503 IFLEN(AN$)NM1:"BM8,160"QS$+\QZ$:"BM10,174"QY$:QL$+"BR6BU2ND10BR4ND10BD2R2F1H1L6G1D2F1R6F1D2G1L6H1BR6"+X126:Y174+NR1RM+I$(RM$,NR,1)+I$" "168, (I$)46L$"BR6BD9L1U1R1D1BR4BU9":86:168,75,NR,8(RM$,RM1,1)"."76,ANM0,aBM$"":BM0:CM0:FS0:X190,"BM176,174;BR6BU2ND10BR4ND10BD2R2F1H1L6G1D2F1R6F1D2G1L6H1BR10",RR1:66,LV2NBNB2,TU1TU$"TURN":TU$"TURNS"-((9)1):@34,"YOUR RESULTS SO FAR: ";TU;TU$:@98,NB;" PROBLEMS PER TURN.";:@130,GD;" CORRECT ANSWERS THIS TURN";:BD0177:@162,BD;" INCORRECT ANSWERS.";-COCOGD:ICICBD-COGD 179:@226,CO;" TOTAL CORRECT OVER ALL.";.IC0181:@258,IC;" TOTAL INCORRECT.";.;ICCO ICCO @356,"PRETTY BAD SHOWING!!";:185.iIC0@356,"FAN---TASTIC!!!!!!!!";:185.ICCO.2@356,"EXCELLENT!!!";:185.ICCO.5@356,"NOT TOO GOOD!!!";:185.@356,"KEEP TRYING!!!";.LV2NBNB2/<@416,"TYPE 'M' TO CHANGE PARAMETERS.":@448,"TYPE 'Q' TO QUIT. or "/z@480,"( PRESS ANY KEY TO TRY AGAIN )";:&H5FF,143:I$/I$:I$""188/I$"M":135/I$"Q":@226,"T.T.F.N.":/BD0:GD0:TUTU1/17/4:5@416,"TYPE : PHIL BEISTEL7: COPYRIGHT (C) 1984 CLOADA193a"T200;L200;V31;O4;GFEDC":500:104:ZX():GD0:BD0:NM0:CO0:IC0:TU1~QS$"D4ND5R6ND5U4BR5NR4BD1D7BD1BR1R4BR1BU1U7BU1BR4D7F2E2F2E2U7BR8ND9F2E2ND9BR4D8BR1BD1R4BU1BR1U8BR4BR1R4L4BL1BD1D7BD1BR1R4BR4U5NU4R4ND5U4BR8ND9F2E2ND9BR4BD1D7BD1BR2R4BR2BU1U7BU1BL1L4BR10ND9F6D3U9BR4NR4D4NR3D5R4BR4BU9F4NE4D5"qQP$"BU9BR12NR4D9R4BR2BU1U7BU1BR4BD1D7BD1BR2R4BR2BU1U7BU1BL2L4BR14F4NE4D5BU9BR8BD1D7BD1BR2R4BR1BU1U7BU1BL2L4BR10D8BR2BD1R4BU1BR1U8BR8D4ND5R6ND5U4BR4BD1D8U5R4ND5U3BU1BL2L1BR6D7F2E2U7BR4NR4D4NR3D5R4;BR8BD2;U1BU2U3R2BU1BR2U4BL2BU1L4BD1BL2D2"QT$"C2U1BU1BR1R6BD1BR1D6L6BD1BL1D6R8;BR8;BU1NU2BD1BR1R6BU1BR1U6BU1BL1L8U6R8" QY$"NL2NR3D9NL2R3BU9BR4NR5D3NR3D6BR11BU9;D1F2E2NU1G2D6BR7BU8D7BD1BR1R3BR1BU1U7BU1BL1NL3BR6D8BD1BR1R3BR1BU1U8BR12;BD1ND1BU1BL1L3BL1BD1D2BD1BR1R3BR1BD1D3BD1BL1L2BL1BU1U1;BR8BU7ND9R4BR1BD1D3BD1BL1L4;BU5BR9NR5D4NR3D5R5BR4;U9F7ND2U7BR4" QL$"ND9R5BR2BD1D7BD1BL2L5BR9BU9" QZ$"BU9BR12NR4D9R4BR2BU1U7BU1BR4BD1D7BD1BR2R4BR2BU1U7BU1BL2L4BR14F4NE4D5BU9BR8BD1D7BD1BR2R4BR1BU1U7BU1BL2L4BR10D8BR2BD1R4BU1BR1U8BR8D4ND5R6ND5U4BR4BD1D8U5R4ND5U3BU1BL2L1BR6D7F2E2U7BR4NR4D4NR3D5R4BR8R2D1NL2G4" DL$"C1;R50D20L50U20" SG$"C2ND16BR4ND16BR2BD2;D1F2D1U1H2L8G2D1F2R8F2D1G2L8H2U1BR22BD4;D4NL6NR6U18G4"=PN$"C2NG2D14NL4NR4":CO0:IC0jNI$"BL4NR8D6R6BR2BD2D4BL2BD2L4BU2BL2U2"DM$"C2NG1D10NL2R2BR2BU1U8BU1BR1R4BR1BD1D8BD1L4"3,1:2:1,0BN0:58"BM0,0;C4R255;D191;L255;U191":"BM4,2;C1;R247;D187;L247;U187" &B027::Y6:X10:A1BD"BM"(X)","(Y)DL$W(X2,Y2),1,1z"BM"(X10)","(Y1)SG$4:XX60:AQ033::Y38:X26:A1Q(X10,Y10),20,4(X10,Y10),4,4"BM"(X2)","(Y4)QT$4:XX60:A 5!D039::Y70:X26:A1DK"(X10,Y10),10,3`#(X10,Y10),3,3$"BM"(X6)","(Y4)DM$%4:XX60:A&'N045::Y98:X26:A1N((X10,Y10),16,1)(X10,Y10),1,1*"BM"(X10)","(Y2)NI$+4:XX60:A,?-P050::Y130:X26:A1PU.(X10,Y10),14,4j/(X10,Y10),4,40"BM"(X10)","(Y2)PN$14:XX60:A2"BM0,156;C4;R255;BD2BL4C1L246"34,24"BM8,160"QS$5QP$6647RR1RR08BNBN1:BNNB 174!90,8:RM0:RM$"":BM$"":AM0:2:D(4):N(5)1:P(5)1:AMAM.1D:AMAM.05N:AMAM.01P;EZ161AM(AM):QQAM:19?@X98:Y174:BM$"":BM0:CM0:FS0XA"BM88,174;ND10BR4ND10BD2R2F1H1L6G1D2F1R6F1D2G1L6H1"lBI$:I$""66CI$"Q"RR0:BDBD1:"T20L20O3GFEDCBAO1GFEDC":D4E(I$)1392FFS172G(I$)46FS1:90HRR1((I$)12 (I$)8)158:(I$)1289:518I(I$)48(I$)5766GJBM$BM$I$uK(I$)4776,77,78,79,80,81,82,83,84,85LL$"BR2BD1D7BD1BR2R4BR2BU1U7BU1BL2L4BR10":86ML$"BD2BR3E2D9NL2R2BR4BU9":86NL$"BR2BD1ND1BU1BR2R2BR2BD1D4L6D4R6":86 .OL$"BR2R6G4R3BR2BD1D3BD1BL2L4BU1U1BR10BU8":86 TPL$"BR6NG4D4ND5NR2L5BU4BR10":86 QL$"BR2NR6D4R4BR2BD1D3BD1BL2L4BL2BU1U1":86 RL$"BR2BR2NR4BL2BD1D7BD1BR2R4BR2BU1U4BU1BL2L4BR4":86 SL$"BR2R6D2G4D3":86!#TL$"BR2BD1D2BD1BR2NR4BL2BD1D3BD1BR2R4BR2BU1U3BU2U2BU1BL2L4BR10":86!GUL$"BR3NR6BD1D2BD1BR2R5NU3G3D2"!MV!W"BM"(X)","(Y)L$:XX12:NM0:X240RR1158:89:51::66!X!Y(128,170),4,1:(128,170),2,1:!ZBM(BM$):L$"BR6BD9L1U1R1D1":86!["\BM096"]CM((BM$,1))"6^(BM$)3(BM$)3103"?_99"R`(BM$)2103"aaFS1103"bXM((AM100)):AMXM100"c((AM)) (((BM$)100)) 103#dGDGD1:PL16:101:"T200L200V31O3;ABCDEFG;O4ABCBA":PL:RR1:LV2152:#$ePL1PL3PL51,1:1,0:#*f#gBDBD1:PL124:"T20L20O2V31;AB":PL:PL14:"O1GFEDCBA":PL:89:RR1159:51#h:C233:Z10241055:Z,C:Z:Z1055153532:Z,C:Z:Z153515041:Z,C:Z:Z1504102432:Z,C:Z$iC$"COUNT":P1120:P2106:111$1jC$"'DE":P1184:P2171:111$XkC$"MONEY !!!":P1248:P2236:111$zlC$"from":P1376:P2358:111$mC$"PHILL BEISTEL":P1412:P2391:111$n118$oS255:L1(C$)$pPP1 P2L 1$q(C$,L,1)" "115% r@P,(C$,L,1);" ";%sP,L%t4% u%)vSC1%3wI$%]x@450,"( PRESS ANY KEY TO START )";%gy0,SC%tzW1140%{I$:I$""127%|W%}SC1SC0:121%~118%1,0&l:" I WILL DISPLAY AN AMOUNT OF MONEY IN COINS AND DOLLAR &:SPACE SHUTTLE COVER&/:BY ERIC FADEN&C:5318 DIAZ PL.&`:JACKSONVILLE, FL 32210&} 5:4,2::4,1:1,1::3& LO$(7),C(67),B(67),A(6,6)&Q0&# 50&( 102'2LO$(0)"jZUVeUV"(V4LO$(1)"VfZfjfj")$6LO$(2)"UUUUVUUUVUUUZUUUV")8LO$(3)"ZZZZZZZZZZZjVUiZeiZVZZZjVUeVeYZUZZVZV"*:LO$(4)"jUUeVUUVUYZUUUiUjVUUViYVUUUiUjVVZVYVeeUUeejjZZVjZYVijZjjZZZVeiZViUijZjjZYZZejZVeeijZj"+LO$(6)"UjYijjZVjUUUjYiZjjUUUjUjUUUUUUUUUUYUeUjUUjUjUUVUUUUVUUYUiUjUUjjUZUYUjUUYUjUj",ALO$(7)" 44 44Z&5J&55 5J&9 0%&9HAC",FVP0:AD0:VP(LO$(0))-KAD(VP2)256(VP3)-PVP(LO$(7))-AUQ(VP2)256(VP3):Q:1Q70-uXQ7,(188)1:Q71,(188)1:Q82,(188)23-_R(AD)-`.pf4,1:1,1:(0,41)(256,41),::DRAW"BM88,43L5D5R5BM95,48U5R5D5L5BM107,48U5D5R5BM118,48U5R6D5L6BM130,48U5R5D2BM155,43R3L6R3D6BM167,43R5L5D3R5L5D3R5BM180,43R5L5D3R5D3L5BM193,43R6L3D6":PMODE3:COLOR3,1:LINE(118,86)-(138,106),PSET,B/fg:PAINT(128,96),3,3:PMODE4:DRAW"BM20,119D5U5R5D2BM30,118R5L5D3R5L5D3R5BM40,118R4D6L4U6BM55,119D5R5U5L5BM65,119D5U5R5D2BM85,118D6R5U3L5R5U3L5BM95,118D6R5BM105,118D6R5U6BM115,118R5L5D3R5L5D3R5BM75,109U15R20H5F5G5":CIRCLE(140,119),5,1,1,.25,.75/h:DRAW"BM145,118D5U5R5D2":LINE(156,118)-(152,123),PSET:DRAW"BM159,117D6R5U3L5R5U3L5":CIRCLE(168,119),5,1,1,.75,.25/i:A$=INKEY$:IF A$="" THEN 1050!j:IF A$="R" THEN T=1:GOTO 1090Ck:IF A$="B" THEN T=0:GOTO 1090el (2)2 T1 :T0:GOTO1050m4,1:1,1:3:3T,1:701 n 4,1:"BM10,191;E20R80F20":(60,151)(50,171),:(60,151)(80,151),:(80,151)(90,171),:"BM80,151;U50L20D50":(80,101)(76,93),1o(60,101)(64,93),:(70,97),8,4,1,.50,.00:(60,151)(40,151),:(80,151)(100,151),:(60,111)(50,136),:(50,136)(40,151),:(50,136)(60,136),:(80,111)(90,136),2Wp(90,136)(100,151),:(90,136)(80,136),:(70,151)(70,166),:(70,166)(50,171),:(70,166)(90,171),:4:(67,106)(73,106),:(66,111)(75,111),:32q(67,106)(65,111),:(73,106)(75,111),:(180,191)(180,171),:(180,176)(200,161),,B:3T,1:(180,161)(190,169),,B:(185,164),3T,3T:2T,13gr(193,163)(197,163),:4,1:(192,164)(199,164),:2T,1:(193,166)(197,166),:4,1:(192,167)(199,167),:2T,13s(193,169)(197,169),:4,1:(180,170)(199,170),:2T,1:(182,172)(197,172),:4,1:(180,173)(199,173),:2T,1:(182,175)(197,175),4t2,1:"BM161,61R45BR4C2D23BL4C2L45BL4C2U22BM178,66;C4L15BD2C4D4BD2C4D4BD2C4R15BU2C4U4BU2C4U4BM190,66R15BD7C4D5BD2C4L15BU7C4U5D5BR4C4R6":R14602:R4u 50,1:"BM190,66C1R15BD2C4D10BD2C1L15R15C4U3":R14602:5v 50,1:"BM190,66C1D7U7C4R15BD14C4L15R15U1C1L1R1":R14602:5Gw50,1:"BM190,66BD7C4D5U5BR15C1D5":R14602:5x50,1:"BM190,66C1R15L15D14R15C4U7C1L10":R14602:5y"BM204,66C4L15BD2C4D4BD2C4D4BD2C4R15BU2C4U4BU2C4U4"6Qz2T,1:Y1751922:(70,Y),10,,1,.50,.00:(65,Y),10,,1,.50,.00:(75,Y),10,,1,.50,.00:R150:R,Y: (188)14 FS5:SC3:TH2:: FS4:SC2:TH36{E120: 65478,0:65480,0:65480TH,0:65480FS,0:65486,0:65488,0:65490,0:R150:R6}65479,0:65481,0:65480SC,0:65484,0:65486,0:65488,0:65490,0:R150:7~ E7 100074,1::3:4,1:132:3T,1:(0,41)(256,41),:R150:A(256):B(151)40:(A,B,4)::(128,191),60,3T,.6:(128,188),3T,3T8770:(128,188),3T,3T:"BM88,191C4E6R4F3U5E10F9R10D5R3E9F14":(108,190),4,4:3T,1:(88,191)(158!"$%&()+-SHUTCOV BAS MATCH4 BAS#COUNT BASPILOT BAS'*SAMPLE DATSAMPLE BASTAIPAN BASCOLRDUMPBAS*EZSKI BIN,,191),:4,1:1,1:R281261:(R,100)(R26,111),A,:8I 1000:1098"BM128,96L10D2L5D3R15U5E4R2D6L5D3R5U3":(136,102)(110,92),A,G:4,1::3:8 OUR DISCLAIMER - HAS TO BE IN ALL COVERS.88@38,"CHROMASETTE MAGAZINE"9" ISSUE #33 MARCH 1984"9 9C:" ALL PROGRAMS CONTAINED HEREIN9c" COPYRIGHT (C) CLOAD9$" PUBLICATIONS P.O. BOX 10879." SANTA BARBARA, CA 93102.98" REPRODUCTION BY ANY MEANS9B" PROHIBITED. CLOAD PUBLICATIONS":L" ASSUMES NO RESPONSIBILITY FOR:?V" ERRORS, OMISSIONS OR DAMAGES":d`" CAUSED BY THE USE OF THESE":yj11)"PROGRAMS.":~ R 1 5000: R::BARA, CA 93102.98" REPRODUCTION BY ANY MEANS9B" PROHIBITED. CLOAD PUBLICATIONS":L" ASS,m COPYRIGHT (C) CLOAD PUBLICATIONS PAUL CHERAMY 8 HARRISON DR. EDMONTON, AL CN T5A2R4,x 386,86,@437,"COMPUTER ";:FL1, CN 1442 1454 2, CS CN CN320 64, UPCS FL 11,12,13,14,15,16,17- CS- FLFL1- CN-8 188:188:188:194-N 188:188:194-^ 188:194-h194-x182:194-182:182:194-182:182:182:194-:-@437,"thinking";:1024445,33-UP1448: (UP)GR 4- 27. CCBK:45.CCBU:45.'CCBU:73.6CCBK:73.?35.F:.[ (UP)BK . (UP2)GR (UP4)GR (UP4)GR (UP2)GR 30 : . (4) 31,32,33,34.UP1444:4. UP1446:4.!UP1450:4."UP1452:4/# CR1 7 :AB(CR)0: CR/'$CN(7)/:%UP(CN2)1440/P& (UP)GR 42/|' (UP642)BU (UP642)BU 4/(AB(CN)1/) AB(1)AB(2)AB(3)AB(4)AB(5)AB(6)AB(7)7 4 : 35/*UPUP64/+ UP 1121 UP 1455 38 : AB(CN)10, 350-:0&. AC1442 1454 200/UPAC0H0 (UP)GR 510U1UPUP640n2 UP1121 52 : 480x3 5304 AC05:06 (UP64)CC (UP128)CC (UP192)CC 407:08 (UP2)CC 6019 (UP4)CC (UP6)CC 41': (UP2)CC (UP4)CC 41K; (UP4)CC (UP2)CC 41}< (UP6)CC (UP4)CC (UP2)CC 41=:1> (UP264)CC 661? (UP4128)CC (UP6192)CC 41@ (UP264)CC (UP4128)CC 42!A (UP4128)CC (UP264)CC 42^B (UP6192)CC (UP4128)CC (UP264)CC 42C (UP264)CC (UP4128)CC (UP6192)CC 42D (UP264)CC 2E (UP264)CC (UP4128)CC 43 F (UP4128)CC (UP264)CC 437G (UP4128)CC (UP6192)CC 43=H3DI:3PJUP14483dK(UP)CC 3L(UP2)GR (UP6)GR 77 : 793M (UP2)GR (UP4)CC UPUP2:43N (UP2)CC (UP4)GR UPUP4:44O(UP4)GR (UP4)GR 80 : 824BP (UP2)GR (UP2)CC UPUP2:44qQ (UP2)CC (UP2)GR UPUP2: 44R(UP6)GR (UP2)GR 83 : 854S (UP4)GR (UP2)CC UPUP4:44T (UP4)CC (UP2)GR UPUP2: 44U5VBU191:BK175:GR965W5&X 9951Y 1175<Z 1445G[ 1455R\ 1465]] 2715h^ 2975s_ 3285~` 3185a 383:204:1775b 1535c:5d:CO1435e G1305f G1024,CO3: G5g G481 5106h G1024,CO12:G6i G32 479 326+j G1024,CO5: G6Ak G63 479 326Xl G1024,CO10: G6jm 01024,CO16}n 311024,CO26o 4801024,CO46p 5111024,CO86q XX 48 464 326r XX1024,CO156s XX6t6u:7vCI159: H65 79:H1024,CI12: H7'w G129 449 6478x HG G147Hy H1024,CI7Pz H7X{ G7l| G65 79 27} H G32 G352 327~ H1024,CI7 H7 G7 G449 4637 1024G,CI37 G77:7 XX321024,Z8 XX351024,Z8 XX451024,Z8) Y0 138> XX1024Y,Z128U XX641024Y,Z38] Y8c8l XX8} CBK 2758XX305:ZBU:133:8XX401:ZBK:133:8:8 3381024,1128 3391024,1128 4341024,1129 4351024,1129TB0:UB0:TR0:UR0998 CBK FF1 189hM$: M$"" J2 166 : M$"" 1549uM(M$)9 M$"E" 3689 M$"J" 2879 M$"K" 3189 M$"R" R1: 222:204:383: 177: 153:$ M$"N" 222:146:297:328:318:383:177:153:4 J2 165:D M8 188:T M9 182:e M10 194:u K2 176:BA(0):BB(1):BC(2):BD(3): BA5 CBK 188: BA59 CBK 182: BB59 CBK 194; BC5 CBU 188;+ BC59 CBU 182;E BD59 CBU 194;P 153;W:;s I100200 20:I,1:I;|X40; X1024,C;;:;100,2; X46 X1024,96:X34: X1024,C: 153; X1024,96;XX2: X1024,C< FF1 CBK : 153<:<&100,2 ֒ 4351024,U>א>URUR1>Mم UR9 TRTR1 : UR0: TR9 TR0:UR0>cT112TR:U112UR>tے 3381024,T>ܒ 3391024,U>ݐ>:>B1058> XXB B12 2> XX,96> XX>BB64: B1442 >䁥 224>:? N1 4? Q0:Z0?' N 233,240,247,254?< S2 6 2?Gꁦ 262?W PC S?i S2 6 2?t큦 262? PC S?Z0:Q0 : N? S64 192 64? 262? PC S? S64192 64? 262? PC S@Z0:Q0: N@ S66198 66@) 262@9 PC S@O S66 198 66@Z 262@j PC S@zZ0:Q0: N@ S62 186 62@ 262@ PC S@ S62186 62@ 262@ PC S@Z0:Q0: NAMX1024: 204: 177: 153A!P(XS1024)A0 PC A@QQ1:350Ak Q3 267: 208:Z0:O0: 360Aq Ax :A CBK FF1 384 : 385A CBU 385AA:A @ 49," connect four ";A 571024,45B @ 81," instructions ";B 491024,BUB( 811024,BKB9 621024,BKBJ 941024,BUBPBW:BbXX113Bp Y1 6B @ XX,(14,143);BXXXX32B YBB:B 280B!A113:I$"MOVE CURSOR":306B"AA32:I$"WITH JOYSTKS": 306C#AA32:I$"R=RESTART": 306C6$AA32:I$"E=END":306CZ%AA32:I$"N=NEW PLAYERS":306C{&AA32:I$"K=KEYBOARD":306C'K1:J2C(153C):C* 280C+A112:I$ "TYPE IN PLAYER": 306C,AA32:I$"NAME FOLLOWED": 306D-AA32:I$"BY ENTER KEY.": 306D;.AA32:I$"PLAY COMPUTER": 306Da/AA32:I$"BY ENTERING $": 306D0AA32:I$"AS BLUE PLAYER": 306D1D2:D3L(I$)D4 XX1 LD5M$(I$,XX,1)D6M(M$): M32 M143D7M46 M110E8M61 M125E9M36 M100E': AXX1024,ME6;"O4L200C"E>:EV? 280Ew@A113:I$"ARROW KEYS": 306EAAA32:I$"MOVE CURSOR": 306EBAA32:I$"R=RESTART": 306ECAA32:I$"E=END": 306EDAA32:I$"N=NEW PLAYERS": 306F!EAA32:I$"J=JOYSTICKS": 306F-FK2:J1F3GF:H:FDIN341FOJ 334FYKN437FdL 334FjMFrNZ0FO I0 8FP NI1024,96FQ IFR N1024,207FS I1 10: IFT N1024,128FU I1 10: IFVM$: M$"" 338G2W M$"$" N437 FF1: 374: : FF0:"O4L200C"GYXM(M$): M13 N1024,143 : GsY N341 N437 347GZ M8 N1024,143:ZZ1:NN1: N1024,143:342G[ M8 342G\ N1024,M:ZZ1: Z9 G]NN1: 342G^:G_ZZ1H `S(Z)SXHaHb:H$c Y1 3H5dS(Y)1024,WH=e YHLf X1024,WHRgHYh:HiiW143:355H}j I1 100: IHk70,1:WC:355Hl I1 100: IHmOO1Hn O5 222: 204: 177:153Ho 361Hp:Hq X99 1 6I r X,1: XIs:65494,0I/t@235,"GAME OVER";I5uI<v:IMwC$"COMPUTERI[x I1 8InyCC$(C$,I,1)I}zCC(CC$)I{"O4L200C"I|1024I436,CCI} II~I"V30;L16;O2;G;O3;C;E;L16;G;L32;E;L04;G":J+"T2;L4;O3;C;O2;L8;A;O3;D;L4;C;O2;L8;A;A#;O3;C;C;O2;A;O3;D;L4;C;O2;L2;A":Jp "V31;T3;L25;C;C;C;P10;C;C;C;P10;C;C;T2;L25;F;P20;L10;G;L5;A":J~0:1:3{"O4L200C"I|1024I436,CCI} II~I"V30;L16;O2;G;O3;C;E;L16;G;L32;E;L04;G":J+"T2;L4;O3;C;O2;L8;A;O3;D;L4;C&:COPYRIGHT(C) 1984 CLOAD&)180&M(0):5000: LI$(500),LA$(49,1)&_H1$"CCPILOT"&o @140,H1$;&u&{&& SE0:AN0:LN1:EX501 :DIM OF LI$+1& I914:@32I,"":I:@288,"";& "NAME OF CCPILOT FILE";CC$'+ "IS IT ON DISK OR TAPE (D/T)";DV$: DV$"T" DV1:DV1'N "SEARCHING FOR <";CC$;">"'b "I", #DV, CC$'LI$(LN)(LN)" ""REM PROGRAM "CC$:LNLN1:LI$(LN)(LN)" ""REM":LNLN1'157 :READ FILE' 24 :PROCESS'( SE1"":"PROGRAM HAS SYNTAX ERROR"::32(Z"":"PROGRAM COMPLETED":"PROCESSED FILE IS <*"CC$">":(`(f(l("PROCESSING INPUT FILE.....":""(I15:"":J1200:J:I(I1800:I:FLLN:LN2:PP1)LNLN1:LNFL 28:CL$LI$(LN):LI$(LN)(LN)" ":64:27)DPP2EM$"UNCLOSED PROCEDURE":109::45:)J)P)V)` " ")j! " ")""OUTPUT TO DISK OR TAPE (D/T)";DV$: DV$"T" DV1 :DV1)# "PRESS ANY KEY WHEN READY>>>";)$ "" 36)%"": "O", #DV, "*"CC$*&" "*6'I1 LN:#DV,LI$(I): LI$(I):J1100:J:I*<(*B)*H**N+*T,*w-LI$(LN)(EX)" STOP":LNLN1*.LI$(LN)(EX1)" REM MATCH AN$ AND MA$":LNLN1*/LI$(LN)(EX2)" IFLEN(AN$),_?,r@CL$:CL$"",xA,BLS$(CL$,1),CLS$"0"72,DLS$"9"72,E132 :GET #,FI(CL$):J(LS$):IJ EM$"COMMAND EXPECTED":109:- GCL$(CL$,IJ):55:LS$(CL$,1)-BHLS$"#"175: :PROCEDURES-tIPP3EM$"PROCEDURES MUST BE AT END":109:-JLS$"Y"LS$"N"78-K(CL$)3EM$"COMMAND TOO SHORT":109:. LLS$"Y"LI$(LN)LI$(LN)"IF FL=1 THEN ":LI$(LN)LI$(LN)"IF FL=0 THEN ".4MCL$(CL$,(CL$)1):LS$(CL$,1).`N(CL$)2EM$"LINE TOO SHORT":109:.O((CL$,2),1)":"EM$": NOT FOUND":109:.P.Q(CL$)3CL$"":CL$(CL$,(CL$)2):55.R LS$"R"LI$(LN)LI$(LN)"REM "CL$:/&S LS$"E"LI$(LN)LI$(LN)"GOTO "(EX):/;TLS$"T"118:/^ULS$"C"LI$(LN)LI$(LN)CL$:/VCL$"L"LI$(LN)LI$(LN)CL$:/WLS$"M"94/X(CL$,1)"/"93/YCL$(CL$,(CL$)1):I1:J(CL$)/ZIJ EM$"UNMATCHED /":109:0[((CL$,I),1)"/"II1:900U\LI$(LN)LI$(LN)"MA$="(CL$,I1)":GOSUB"(EX2):0]LI$(LN)LI$(LN)"MA$="(34)CL$(34)":GOSUB"(EX1):0^LS$"J"GG1:147:0_LS$"X"LI$(LN)LI$(LN)"IF "CL$" THEN FL=1 ELSE FL=0":1`LS$"A"169:1aLS$"U"GG2:147:1AbEM$"ILLEGAL COMMAND":109:1Gc1Md1Se1ofI1:A$(39):J(CL$)1gIJ EM$A$" EXPECTED":109:CL$"":1h ((CL$,I),1)A$ II1:1031iCL$(CL$,JI):1j1k1l2m "error>>> ";EM$2 n"PRESS . KEY TO TERMINATE"2So "PRESS ANY OTHER KEY TO CONTINUE PROCESSING"2]pK$2q K$""112:K$".""PROGRAM TERMINATED":#1:2rSE1:2s2t2u2vA0:I1:J(CL$):Q$(34):R$"+CHR$(34)+"Q$2wIJ 1263 xC$((CL$,I),1)3EyC$Q$CL$(CL$,I)R$(CL$,JI):II12:JJ11:1193^zC$"/"II1:1193{A0CL$(CL$,I1)Q$","(CL$,JI):CL$(CL$,I1)","Q$(CL$,JI)3|II2:JJ1:A0A1:A03}1193~LI$(LN)LI$(LN)"PRINT "Q$CL$Q$4! A1EM$"UNMATCHED /":109:4'4-43494KI2:J(CL$)4YIJ 1364pC$((CL$,I),1)4C$"0" C$"9"II1:1334LS$(CL$,I1):4444NN04NNAN 4LS$LA$(NN,0)4NNNN1:141455 5/EM$"STATEMENT NUMBER EXPECTED"5QCL$""109::C$(CL$,1)5eC$"0"109:5yC$"9"109:5132:140:NNAN EM$"LABEL DOES NOT EXIST":109:5GG1LI$(LN)LI$(LN)"GOTO"LA$(NN,1):6GG2LI$(LN)LI$(LN)"GOSUB"LA$(NN,1):666!6I"READING INPUT FILE.....":#DV,CL$6w#DV,CL$:102:55:162:(DV):1586}666CL$""165:LS$(CL$,1):LS$"0"1656LS$"9"1657=132:140:NNAN EM$"DUPLICATE LINE #S":109::LA$(AN,0)LS$:LA$(AN,1)(LN):LI$(LN)CL$:LNLN1:ANAN1:7WLI$(LN)CL$:LNLN1:7]7c7i7zCL$""1717LI$(LN)LI$(LN)"INPUT AN$":755:CL$""170:LI$(LN)LI$(LN)"INPUT "CL$:7778 (CL$)2EM$"LINE TOO SHORT":109:8D((CL$,2),1)":"EM$": NOT FOUND":109:8\ PP 178,179,1788}LI$(LN)LI$(LN)"REM":PP2:8LI$(LN)LI$(LN)"RETURN":PP3:80:1:3LI$(LN)LI$(LN)"INPUT "CL$:7778 (CL$)2EM$"LINE T y (&HFF22)162::4:3,1::65494,0:150,87:#2,(18):#2,"A":56:#2,(18):59: COPYRIGHT (C)1984 CLOADPM3:PN1:SC0:S1:EL255:X10:X2255:C11:C23:X03:C(X)::O$"123456LSDCQ":SC$"HORIZONTAL":SI$"SMALL":SP$"LOW":(25)35 DE$"DISK" : DE$"TAPE"'3:12H:X15:X 7,4,5,6,8:X:s@128,"1 PMODE";PM:@142,"2 PAGE";PN:@160,"3 SCREEN";SC:@174,"4 ";SC$;" SCAN":@192,"5 ";SI$;" DUMP":@206,"6 ";SP$;" SPEED":{@2,"SET PARAMETERS BY PRESSING":@33,"NUMERIC KEYS ONCE OR MULTIPLE":@76,"TIMES":@290,"SELECT FUNCTION BY PRESSING":@322,"CORRESPONDING ALPHABETIC KEY":@385,"C CHECK SCREEN":@408,"Q QUIT" @417,"S SAVE SCREEN TO ";DE$ @449,"L LOAD SCREEN FROM ";DE$ @481,"D DUMP SCREEN TO PLOTTER";:W K$:K$""12:(1,O$,K$)14,18,22,24,26,28,30,33,36,55,57` 12wPMPM1:PM4PM0PM2PN1PM2(PM2)C10:C20:C11:C23PM,PN:4:PM3PNPN1PN PM PN3PN1PN3PN1 PM,PN:4:>:X03:C(X)::SC1SC0:SC1:X03:C(X):H5:|(SC$,1)"H"SC$"VERTICAL":SC$"HORIZONTAL"5:(SI$,1)"L"SI$"SMALL":S1:EL255:X10:X2255:OS0:SI$"LARGE":S2:EL246:X17:X2246:OS76:@(SP$,1)"L"SP$"HIGH":65495,0:150,180:SP$"LOW":65494,0:150,87J6:b(SP$,1)"H"28:"FILENAME ('/' TO EXIT) ";F$:(F$)1(F$)831:F$"/" 3::1,SC:(DE$,1)"T"32:MF$:3: MF$:3:!(SP$,1)"H"28":"FILENAME ('/' TO EXIT) ";F$:(F$)1(F$)834:F$"/"3::(DE$,1)"T"35:1,SC:MF$,(186)256,(25)2561,138:3:#:" PREPARE TAPE RECORDER AND HIT ";:K$:1,SC:MF$,(186)256,(25)2561,138:3:$1,SC:(SC$,1)"V"46?%S1#2,"M112,-50":#2,"I":#2,"M0,-50":#2,"I"_&COC1 C2:#2,"C"CO"M0,0"'Y0191:#2,"M0,";YS;C0:(X,Y)C(CO)C1(XX1 X2)X3(XOS)S:Y3YS*C1(X,Y)C(CO)C0:#2,"D"X3","Y3 :XEL #2,"D"X3","Y3++C0(X,Y)C(CO)#2,"M"X3","Y3:C1_,X,Y,CO:#2,"R0,-80":#2,"A":56:#2,(18)i-3:.S1#2,"M144,-305":#2,"I":#2,"M49,-560":#2,"I"/COC1 C2:#2,"C"CO"M0,0"0X0255:#2,"M0,";XS:C0:(X,Y)C(CO)C11Y01912X3YS:Y3XS]3C1(X,Y)C(CO)#2,"D"X3","Y3:C0:Y191#2,"D"X3","Y34C0(X,Y)C(CO)#2,"M"X3","Y3:C15Y,X,CO:#2,"M0,-80":#2,"A":56:#2,(18)63:71,SC:X12500::11:8X1700::9:#2,"A":65494,0:150,87:-: 0,3,1,4,5,7,6,8z;:@35,"COLOR SCREEN DUMP FOR THE":@65,"TRS-80 CGP-115 PRINTER/PLOTTER"%<@193,"THIS UTILITY ASSUMES THAT THE GRAPHIC TO BE DUMPED IS ALREADY IN MEMORY, OR IS STORED AS A BINARY FILE SET TO LOAD INTO THE FIRST FOUR GRAPHICS PAGES."A=@460,"";:K$:~>::" PRINTER MUST BE ON LINE AND READY."::193,"THIS UTILITY ASSUMES THAT THE GRAPHIC TO BE DUMPED IS ALREADY IN MEMORY, OR IS STORED AS A BINARY FILE SET TO LOAD I ȷ"ņǷȷO_큌 %' 4v 03_"5v9O_큌% @큌%3_&0& Z"  0"  %6'9'-'$0(14@ 03_"5@ 9O_큌%0큌%̪0&10&9O_""%%%O_"#큌%"*%",$$&3_"^ `0&"* O_03_"󭟠 Z"*%0"0%0"",") ">0") "P0")"*"&m"$"*"&WF"$'' "$0&ζ"#&_O"#""""%0&1?&9<<<<*&LH@!1 *B @C@"*#^Z% 1%#^ #^ #^'&=0#^#^'Z%1%#^&#^&#^&#`#^'7'13_""b"**"# 4̠%%#5Z& :% %O%%% %$O_0&̨\%"(")|%9=0 $&$L [$8$^OO#ʾ$>0 % #0$>$p013_"#'$$3_"9># 3_"90 % 0%04`#45`9>BLNxQDR>>CC~>>>C>>>B>@@PPUU(((  <A@@<<<<<<<<<<<<<<<@@$@@B@@@ %0%%%"(")&0& D##%% &0&")"(%<%9<%䦤 % O3_"%=4 %1n5 03_"""/",Q0Z&9 *((((((* "* *   ** * *( $@',4  O_01?&5 ','0 )O',0'',0'',0'',?0`%O?',0%04 ',=$15 3_"z9B"($<P&dx(*,.0246,8@T:h<|(B*N7,0 $. 6\24,X &  0P0V0 DDXFl.l9lHLRT02=;Z * * * (*   ((* ((* (*  ( (***    ( ( *(( (((( **( *      ((<<<<