(65517:(781)40A40:53281,1:51A22a""(A8)2)"AVAIL":I12000: W$(20),X$(20),IN$(20):"":"?:";:30:IN$B$:B$"":60: MAIN PROGRAM STARTS @ 20C$:C$;:C$(13)(C$(20)B$(B$,(B$)1):30 2 "410% JW:IN$(C)IN$:CC1:C19C04 IN$"":20W W$(W)(IN$,P,IP):PI:WW1:f ::I1W X$(I)"WAS"X$(I)" WAS"W$(I)" WERE" X$(I)"I"X$(I)" I"X$(I)" ME"(X$(I),2)"I'"W$(I)" YOU" X$(I)" WERE"W$(I)" WAS"  I),3)"I'M"W$(I)(X$(I),(X$(I))3)"YOU ARE"` @X$(I1)" ARE"X$(I)X$(I1)"YOU ARE"W$(I1)"'M" J(X$(I),3)"'VE"W$(I)(X$(I),(X$(I))3)" HAVE" T(X$(I),2)"'D"W$(I)(X$(I),(X$(I))2)" WOULD" ^(X$(I),4)" THE"W$(I)(X$(I),h"IN WHAT WAY? ";:%"I DON'T UNDERSTAND ";:8"REALLY? ";:@:P"WHY? ";:X: "" 340:150B"ORTING":SKK1:L%(K1)K1:R%(1)NFbL1L%(SK):R1R%(SK):SKSK1(L2L1:R2R1:KE$NS$(((L1R1)2))2KE$(KE$,31)(KE$,4,M%(((L1R1)2)))<(NS$(L2),31)(NS$(L2),4,M%(L2))KE$L2L2K1:60$FKE$(NS$(R218:R$"":FL0:M%(NF1)16:X130:#5,I$LI$(160)FL0M%(NF1)X4:FL1uR$R$(I$C0$,1)::PP8#5,I$,I$X$C0$:(R$,1,1)C0$X$(255):DD$;NFNF1:NS$(NF)R$X$:(R$,4,16):PP:YS2551605:20"RESS SPACE BAR 15,"B-P";5;143:(14);6""RN$;:X124:#5,I$:I$;::""RF$:u@15,"U1";5;0;YT;YS:LTYT:LSYS:#5,T$,S$:YT(T$C0$)JYS(S$C0$):TX150: L%(X),M%(X),R%(X),NS$(X):K11:15,8,15,"I":C0$(0):NF0^DD$"::::::::::::::DELETED":RN$(1/55,0:56,(44)8::"REDISK":P880oF153247:F21:F$" "A:A1P,A:PP1:2909,(F11)256:917,F2:950,F2:881,(56):919,(56)"DO YOU WANT TO FORMAT THE DEST. DISK N";:A$:982:880:P(247)256(248):5:27T PF1"FILE HAS OVERFLOWED THE BUFFER.":17} "FILE IS NOW LOADED INTO BUFFER." "ENTER NEW FILE NAME.":""P$:"";P$: M$"INSERT DESTINATION DISK":23:PT$"@0:"P$","T$",W" 1000,(PT"FORMATTING DISK":15,"N0:"P$","T$@ 27:"DISK FORMATTED":6g M$"":T050:A$:(A$"")25: F$:T050:A$:(A$"")25::23 A$(13): 23 15,A$,B$,C$,D$:B$"OK" :A$","B$","C$","D$:"TRY AGAIN.":1B$B$C$:30 <L(IN$):P1:W1@ FI1L:(IN$,I,1)" "200F PY ZW$(W)(IN$,P) dE$(W$(W),1):E$"."E$"?"E$"!"120 n130 xW$(W)(W$(W),(W$(W))1) J1W:X$(J)W$(J): 210 " OK?"; OK$:OK$""160 OK$"NX$(I)" MY"W$(I)" YOUR"2 X$(I)" AM"W$(I)" ARE"[ X$(I)"YOU"X$(I)" YOU"W$(I)" I" X$(I)"YOU'RE"X$(I)" YOU'RE"W$(I)" I'M" "X$(I)"YOUR"X$(I)" YOUR"W$(I)" MY" ,(X$(I),2)"'S"W$(I)(X$(I),(X$(I))2)" IS"' 6(X$((X$(I))4): DELETE"THE"; h(X$(I),3)" AN"W$(I)"": DELETE"AN"^ r(X$(I),2)" A"W$(I)X$(I1)d |{ I1J1:W$(I);:  X(7(0))1:" NO? "; X430,440,450,460,470,480,490 "WHAT'D YOU EXPECT ME TO SAY? ";IN$(X):48,208,238,32,231,255,169,55,133,1,96,230,254,76o! 166,3,234,169,5,162,8,160,5,32,186,255,173,232,3,162,60,160,3,32,189" 255,32,192,255,96,234,162,5,32,198,255,96,234,162,5,32,201,255,96,-1),31)(NS$(R2),4,M%(R2))R2R2K1:703PL2R2110iZN$NS$(R2):HM%(R2):NS$(R2)NS$(L2):M%(R2)M%(L2)dNS$(L2)N$:M%(L2)H:L2L21:R2R21:60nL2R1SKSK1:L%(SK)L2:R%(SK)R1xR1R2:L1R140SK30NF0:300&320:PPTO REWRITE DIRECTORY"$A$:A$" "2302300:NN0K320:PP18:NNNN15,(NS$(NN),1,30);:(NS$(NN),31)(255)DD$;(NS$(NN),4,16):PP85,C0$;C0$;PP:15,"U2";5;0;LT;LS:YS255250"5:,5,8,5,"#":YT18:YS0:320:8):RF$(146): 15,8,15:(A$,1)"Y"19R "NAME,TYPE (PRG OR SEQ) OF FILE TO COPY.":P$,T$: T$(T$,1):(T$"P"T$"S")(P$)16"":6 M$"INSERT SOURCE DISK":23:PT$"0:"P$","T$",R" 1000,(PT$):X1(PT$):827X,((PT$,X,1)):! 958 $):X1(PT$):827X,((PT$,X,1)):X 958:989:914:15,8,15:27:"FILE IS NOW COPIED." 15:15,8,15:15:"ANOTHER FILE";A$ ((A$,1)"Y")4:"": "NAME,ID OF DISK TO BE FORMATTED":P$,T$: M$"INSERT DESTINATION DISK":23!  7B  160,16,132,248,160,0,132,247,32,207,255,145,247,200,240,8,32,183,255  240,243,132,247,96,230,248,165,248,201,208,208,240,96,234,169,54,133  1,160,16,132,254,160,0,132,253,177,253,32,210,255,200,240,18,196,247$ 208,244,166,254,228,2 #"":53280,1:53281,1:198,0T IF COMPUTER IS +4, DELETE "REM" IN LINE 40r( COLOR 0,2:POKE65305,2492IN$(720),HO%(720),MH(12),ML(12),AR(12),AS(12),NO%(720),D%(50)<BL$" " FT112:MH(T):: LB)(HB)(1):, HB(X1256):LBX1HB256:V RC$"":A1100:#1,A$:RC$RC$A$::e 15,"I0": 1:1,8,2,"WX.DATA,L,"(100): 15,8,15:190: G$:G$""220 1:15: MO0:"NTER NUMBER OF MONTH FOR REPORT:";:MO! 1,A$:G$G$A$:! JYR((G$,5,2))360; TMO((G$,3,2))630W ^MO((G$,3,2))X1TR%i h:1:190:15 rLO200"O DATA FOR THIS MONTH EXISTS.":620 |PR1140 " ONTHLY EPORT FOR :";MO;"/"YR "ORMAL IGH:";MH(MO) "(DA$(2),5,2)("IGHEST EMPERATURE........."HI`"ON "(DA$(3),3,2)"/"(DA$(3),1,2)"/"(DA$(3),5,2)"OWEST EMPERATURE.........."LO"ON "(DA$(4),3,2)"/"(DA$(4),1,2)"/"(DA$(4),5,2)"IGHEST IND "WS" FROM ";DI$(WD)"ON "( (DA$(7),5,2)":"IGHEST UMIDITY............"RHZD"ON "(DA$(9),3,2)"/"(DA$(9),1,2)"/"(DA$(9),5,2)N"OTAL EATING EGREE AYS..."DEX"OTAL OOLING EGREE AYS..."EDbPR1150l2350:v160:180BA((RC$,7,5))BA((R19,1))WS((RC$,20,3))DA$(5)(RC$,1,6)VRA((RC$,23,5))RA((RC$,23,5)):DA$(6)(RC$,1,6)u((RC$,23,5))0PCPC1SN((RC$,28,4))SN((RC$,28,4)):DA$(7)(RC$,1,6)RH((RC$,32,3))RH((RC$,32,3)):DA$(9)(RC$,1,6RC$A$:4SE$RC$RPT:PTTR%:RC$"">$HR08708RA$"":160:180C\240:mf240:" ECORD NOT FOUND.":pF1:"EARCH BY ƒIELD OR ҒECORD NUMBER?"z220:G$"R"1060G$"F"890"NTER NUMBER OF FIE"EPARATE EACH ENTRY WITH A COMMA.":MO$,DA$,YR$4(DA$)9DA$"0"DA$O(MO$)9MO$"0"MO$j(YR$)9YR$"0"YR$SE$DA$MO$YR$:790:R02350:2640:2350:$"":210:200:RC$""."ECORD NUMBER FOR EARCH?":R:3 EARCH ATA"  4 EGREE AY EGISTER>"  5 XIT ROGRAMi"  0 OGGLE RINTER PTION"":" ";TR%;" ECORDS IN ATA ASE.":""PR1"  RINTER "PR0" (MO$)9MO$"0"MO$(YR$)9YR$"0"YR$"(RC%01370A2210:200:X1RC%:170:160i<G$"":A16:#1,A$:G$G$A$::240F(G$,3,2)MO$MP$"00":MS$"00"P(G$,5,2)YR$AP$"00":MP$"00":MS$"00":AS$"00"ZBA$"":3020:30T112:ML(T):4 PT112:AR(T)::T112:AS(T):I ZT18:DI$(T):l d15,8,15:1,8,2,"RC.INDEX,S,R" n15,A:A62240:1110 x1,RC%,TR%,HD$,CD$,MP$,AP$,MS$,AS$:240:RC%720RC%0 1110 4,4,7:4: 4:4: 15,"P"(2)( YR0:"NTER YEAR FOR REPORT";:YR5 MO1MO12250^ " AIT!!" "HI0:LO200:BA0:RA0:SN0:WS0:DE0:ED0:RH0:BL33:PC0 ," REPARING EPORT":210:200 6X11TR%:170:G$"":160 @A16:#;:" ORMAL OW:"ML(MO)D "ORMAL AIN: "AR(MO);:" ORMAL NOW: "AS(MO)l "IGHEST AROMETER READING..."BA: "ON "(DA$(1),3,2)"/"(DA$(1),1,2)"/"(DA$(1),5,2) "OWEST AROMETER READING...."BL"ON "(DA$(2),3,2)"/"(DA$(2),1,2)"/DA$(5),3,2)"/"(DA$(5),1,2)"/"(DA$(5),5,2)@PC;"AYS WITH PRECIPITATION."f"OST RAINFALL..............."RA"ON "(DA$(6),3,2)"/"(DA$(6),1,2)"/"(DA$(6),5,2)&"EAVIEST NOWFALL..........."SN0"ON "(DA$(7),3,2)"/"(DA$(7),1,2)"/"C$,7,5)):DA$(1)(RC$,1,6)ABL((RC$,7,5))BL((RC$,7,5)):DA$(2)(RC$,1,6)|HI((RC$,13,3))HI((RC$,13,3)):DA$(3)(RC$,1,6)LO((RC$,16,3))LO((RC$,16,3)):DA$(4)(RC$,1,6)WS((RC$,20,3))WS((RC$,20,3)):WD((RC$,)H((RC$,13,3)):L((RC$,16,3))FTP65((HL)2):(TP)1TP((HL)2)65:770XDEDETP:780eEDEDTPk " EARCHING FOR "MO$"/"DA$"/"YR$ 210:200:R0:PT1TR%:X1PT:170:RC$""*160:RC$"":A16:#1,A$:RC$LD FOR SEARCH:"7)" 1. PECIFIC ATE?7)" 2. ENERATE ONTHLY EPORTe7)" 3. ETURN TO AIN ENU220:G(G$)48:G980,250,970950"  EARCH FOR ATE"NTER DATE (MONTH, DAY, YEAR)"RTR%7208X1R:170:160:180:190:240:2640:2350BJL240:"NVALID ECORD UMBER":2350:jV"":(14):FL0:F0:Q(O)`" j"  1 NTER EW ATAt"  2 ORECAST~"    RINTER "220:G(G$):G1270,3000,880,3150,3280-G$"0"125071110HPR0PR1:YPR1PR0:"NTER ATE: ONTH, AY, EAR AS 12,31,84""EPARATE EACH ENTRY WITH A COMMA.":MO$,DA$,YR$ (DA$)9DA$"0"DA$30 dHI$"":"NTER IGH EMPERATURE:";:HI$7nLO$"":"NTER OW EMPERATURE:";:LO$ux3090:WS$"":"NTER VERAGE IND PEED":WS$:WS(WS$)RA$"":"NTER RECIPITATION [0.00] INCHES.":RA$MP$((MP$)(RA$)):AP$((AP$)(RA$))SN$"":"NTER NOWFALL TO NEAREST TENTH INCH.":SN$DMS$((MS$)(SN$)):AS$((AS$)(SN$))rRH$"":"NTER ELATIVE UMIDITY";:RH$CC$"":"NTER LOUD OVER ERCENTAGE";:CC$WC$"":"NTER COMMENT ON CURRENT X ONDI $RC$RC$DI$(BL$,1(DI$))RC$RC$(BL$,3(WS$))WS$5RC$RC$(BL$,5(RA$))RA$U"RC$RC$(BL$,4(SN$))SN$u,RC$RC$(BL$,3(RH$))RH$6RC$RC$(BL$,3(CC$))CC$@RC$RC$WC$(BL$,40(WC$))JRC$RC$(BL$,5(MP$)) E-ENTER FROM START":T15000::1270 G$"Y"1670, 210:X1RC%:170:190:200:160U 1,RC$:1:190:15,"S0:RC.INDEX":15o 1,8,2,"RC.INDEX,S,W" 1,RC%","TR%","HD$","CD$","MP$","AP$","MS$","AS$:1 RC%1TR%11770 NO%(RC%)RC% BA30.1BA30.2CR%1DI6DI81990#"&BA30.1BA30.2CR%5DI6DI82000Q"0BA30.1BA30.2CR%2DI6DI82020":BA30.1BA30.2CR%3DI6DI82030"DBA30.1BA30.2CR%2DI5DI42060"NBA30.1BA30.2CR%3 0.1CR%3DI4DI82180$BA30.1CR%4DI6DI52200,$BA30.1CR%2DI2DI32110J$BA30.1CR%2DI42170{$"ITTLE CHANGE DURING NEXT 24 HOURS.":2300$"AIR, WITH LITTLE TEMPERATURE CHANGE FORNEXT DAY OR TWO.":2300$ 00 &"AIR, WITH SLOWLY RISING TEMPERATURES FOR NEXT 2 DAYS.":2300?& "RECIPITATION LIKELY WITHIN 24 OURS.":2300l&"NCREASING WINDS, RECIPITATION LIKELY& "WITHIN 12-24 HOURS.":2300&*"AIN WITHIN 12-18 HOURS.":2300&4"ECOMING, AIN OR NOW LIKELY, WINDS INCREASING.'p2300 (z"ORE AIN FOR NEXT DAY OR TWO.":2300Q("IGH WINDS AND POSSIBLE HEAVY RAIN TODAY";|("LEARING AND COOLER TOMORROW.":2300("LEARING WITHIN A FEW HOURS. AIR("WEATHER FOR NEXT S"LEARING AND COOLER.)PR1150* 2350:TR%1CL0:2580:2330* 2380C* CL0" O DDITIONAL ATA VAILABLE":2350{*$ " IMILIAR ATA FOUND IN ILE":2350:3290:""*. 15:210:15*8 " RESS ANY KEY TO CONTINUE $:+ CR$(RC$,12,1)2430+ DI$(RC$,19,1)2430, CC1:D%(C)HO%(C), CL1:240:(, CL0:240:G, 210:1,8,2,"BA.INDEX,S,R"l, P1TR%:1,NO%(P),IN$(P)::240, I1TR%:IRC%II1, JITR%:IN$(I)IN$(J)2570, HI$IN$(I)ORD#"R;"ATA NTRY FOR:";-d (RC$,3,2);"/";(RC$,1,2);"/";(RC$,5,2)5.n "AROMETRIC RESSURE........ ";(RC$,7,5)"INCHES"i.x "IGH EMPERATURE...........";:HI$(RC$,13,3)}. (HI$)"EG. ". " ORMAL IGH..........";MH(((RC$,3,2)))TIONS:""IMIT COMMENTS TO 40 HARACTERS. (NE FULL SCREEN LINE.)]" O NOT USE A OMMA OR OLON. "::WC$:""uRC$DA$MO$YR$BA$RC$RC$CR$(BL$,1(CR$))RC$RC$(BL$,3(HI$))HI$RC$RC$(BL$,3(LO$))LOMP$TRC$RC$(BL$,6(AP$))AP$^RC$RC$(BL$,5(AS$))AS$6hRC$RC$(BL$,5(MS$))MS$erRC%RC%1:TR%TR%1:RRC%:TR%721TR%720|2640:" S ATA ORRECT? (ES OR O) "220:G$"N"RC%RC%1:TR%TR%1G$"N"":IN$(RC%)(RC$,7,5):RC%1TR%11770 25208!BA((RC$,7,5)):CR%((RC$,12,1)):DI((RC$,19,1))G!PR1140}!"":" ENERAL HORT ERM ORECAST "!BA30.2CR%1DI6DI82040!BA30.2CR%2DI6DI82050!DI5DI42070#XBA30.1BA30.2CR%2DI4DI220905#bBA30.1BA30.2CR%3DI4DI22100Z#lBA29.8CR%2DI2DI32140#vBA29.8CR%3DI5DI32230#BA29.8CR%3DI3DI12260#BA29.8CR%52290#BA3"AIR TODAY, WARMER WITH A CHANCE OF SOME";%"RAIN WITHIN 2 DAYS.":2300U%"URNING WARMER, WITH RAIN LIKELY IN 24 TO 36 HOURS.":2300%"ARMER, WITH RAIN IN 18-36 HOURS.":2300%"ONTINUED FAIR WITH LITTLE CHANGE IN TEMPERATURE.":23 WINDY WITH RAIN LIKELY WITHIN 12-24 HOURS.":2300-'>"N INTER, RECIPITATION LIKELY WITHIN 24 HOURS.x'H"N UMMER, LOUDY WITH LIGHT BREEZES. AIN LIKELY IN A DAY OR TWO.'R2300'\"N UMMER, AIN LIKELY WITHIN 24 HOURS.'f"N INTEREVERAL DAYS.(2300(" EVERE TORM ARNING!)"INDY WITH HEAVY PRECIPITATION TODAY.W)"LEARING AND TURNING COOLER TOMORROW.":"":2300)"EVERE NORTHEAST GALES, WITH HEAVY RAIN OR SNOW.)"URNING COOLER IN INTER.)2300) ";*B 220:"":*L CL0:A0:U1:RC%1TR%12520+V U0:T1TR%:TRC%2410>+` BA$IN$(T)NO%(T)RC%UU1:HO%(U)NO%(T)N+j :U02510d+t T0:C0:210:200+~ TT1:RC$"":TU2510+ X1HO%(T):170+ 160:A119:#1,A$+ RC$RC$A:IN$(I)IN$(J):IN$(J)HI$:NINO%(I):NO%(I)NO%(J):NO%(J)NI, :- 210:15,"S0:BA.INDEX"7- TR%1NO%(1)RC%:IN$(1)(BA)U-( 1,8,2,"BA.INDEX,S,W":I0k-2 II1:ITR%2630-< 1,NO%(I):1,IN$(I):2610-F 240:"":-P PR1140-Z "EC"EG. ". "OW EMPERATURE............";:LO$(RC$,16,3)/ (LO$)"EG. "?/ " ORMAL OW...........";ML(((RC$,3,2)))"EG. "d/ "IND IRECTION............. ";/ WD((RC$,19,1)):DI$(WD)/ "IND PEED.................";((RC$,20,3));""/ "AINFALL (PAST 24 RS).....";((RC$,23,5))"INCHES"30 " ORMAL ONTHLY AIN..";AR(((RC$,3,2)));"INCHES"m0 " ONTHLY AIN TO DATE.";((RC$,79,5))"INCHES"0 " EARLY AIN TO DATE..";((RC$,83,6))"INCHES"0 "........";((RC$,32,3));"%"1, "ERCENT LOUD OVER........";((RC$,35,3));"%")26 HI(HI$):LO(LO$):HD65((HILO)2)V2@ TD(HILO)2:RH((RC$,32,3)):RHRH100i2J (HD)129302T Z(HD$)HD:HD$(Z):"EATING EGREE AYS........";HD2^  ORECAST EATHER3 3020:3030:3090:"":1780:4 "NTER:":"AROMETRIC RESSURE":BA$:BA(BA$):44 "ATE OF HANGE: "x4 "APID HANGE IS ANY CHANGE GREATER THAN 0.06 INCHES PER HOUR.4 "NTER:":" 1. TEADY"20)" 4. LT$:V,0:PP1:1050t15,8,15:15,A$,B$,C$,D$:15:*~R11000::5:9::R1LN:9,A$(R)qLLLL1:LLLP10T110:9::LL0:9:9:260:"RE YOU SURE (Y/N)? Y";1,A$:A$(A$,1):A$"Y""":260 RETURN AS A$FA(J)X4:X0:/` J13:YP(J)FA(J)BP(J):/j X0:J130t DC(J)1.05XX.95:245050~ DC(J).9XX1.1:2450>0 XX1I0 XXXXf0 EM(J)1.05XX.95:24900 EM(J).95XX1.12:24900 XX10 XXXX0 FC(J)1.1XX.8:25300 FC(J),1.1,.6,.25,1.12,20004,BO:0,BG:1,CH,IT:8& "";13)" 390 J13:N$(J)::J13:BP(J)::J13:FU(J):g9: J13:BY(J)::J13:BB(J)::J13:BS(J):9D BA:LO:GA:CE:J13:SR(J)0::IS:HSIS9N J15:FF(J):: 103 X(0BA.005)"HAT WILL NOT BE ENOUGH, TRY AGAIN":2710)4 LOLOX:BA((BAX)100.5)100:LO0LO0:4 LOLO1.12:S4 BO8:BG5:CH1:31004 "ONGRATULATIONS!! OU HAVE MANAGED THE4 "NEARLY IMPOSSIBLE TASK OF MAKING MONEY4 " N:"INE: "R"":8,A$(R): p8:::"ONE":1150:260Az""13)"RINTING ILE":LI$q"OW MANY LINES PER PAGE DOES YOUR PAPER""HAVE? (0 = ONTINUOUS PRINTING)"">";:1,LP:LL0:LP0LP(LP)890::"RESS (PACE) TO PRINT OR(J):RR0RR1. 6TMYP(J):3030:YP$TM$:YP(J)(TM$)V @TMTY(J):3030:TY$TM$:TY(J)(TM$) JN$(J);13)YP$;33(TY$))(TY(J)): T"T IS NOW TIME TO PAY YOUR BILLS AND TO SELL YOUR CROPS.":3010 ^"URRENT ANK ALANCE";:TMBA:3030:BA$TM 2000::7 "--------------------------------------":8 "":48 TM$((TM100.5)100)H8 P0:A1(TM$)b8 (TM$,A,1)"."PA18 :P0TM$TM$(46):P18 (TM$,((TM$)2),1)(46)30908 TM$TM .97XX1.09:25300 XX10 XXXX:XX30 X1X1.031 FP(J)X 1 X01 ,1 X(.)(.99.01).01@1 X.45XXX1:R1( X.70XXX:]12 XX1:1< "OU NEED TO BORROW MONEY TO KEEP FARMING1F "OUR BALANCE IN THE BANK HAS1P "DRF129702h " OTAL FOR EASON.....";HD$:29703r CD((HILO)2)65:(CD)12970@3| Z(CD$)CD:CD$(Z):"OOLING EGREE AYS........";CDN3 F12970u3 " OTAL FOR EASON.....";CD$3 (RC$,38,40);3 PR11503 3 " AT FARMING. HE ANK CONSIDERS YOU A":"GOOD RISK.":5 BO6:BG6:CH1:310005 "OU HAVE PROVEN YOURSELF A VERY POOR[5 "FARMER! OU LOST MONEY, AND NOW YOUR5" "FARM MUST BE SOLD TO PAY YOUR CREDITORS!":5, 3000:3000:" ORRY, YOU AR '' TO ABORT"A$:A$"A"260A$" "970!940I9,4,7:R15:9::R1LN:9,A$(R)qLLLL1:LLLP10T110:9::LL0:9:9:260:"RE YOU SURE (Y/N)? Y";1,A$:A$(A$,1):A$"Y""":260 RETURN AS A$%(X)3D%(X3)XX48* 84 " ND OF ILE":240:F0:9> HIGH TEMPERATURE DATA%9H 47.6,50.8,59.3,70.7,77.9,84.2H9R 87.4,86.2,80.4,70.1,59.9,50.4c9\ LOW TEMPERATURE DATA9f 27.3,29.0,36.5,45.9,55.0,62.69p 66.9,66.3,59.3,4$(48):30408 8 4,BO:0,BG:1,CH,IT:8& "";13)" 390 J13:N$(J)::J13:BP(J)::J13:FU(J):g9: J13:BY(J)::J13:BB(J)::J13:BS(J):9D BA:LO:GA:CE:J13:SR(J)0::IS:HSIS9N J15:FF(J)::OPPED BELOW $0. O MEET YOUR PAYMENTS+2Z "YOU WILL NEED TO BORROW SOME MONEY FROM THE BANK (UP TO $50,000).s2d "INIMUM LOAN PAYMENTS ARE ONE-THIRD OF LOAN DUE AT 12% INTEREST.2n 0BALO5000028602x "OU WILL NEED TO BORROW AT LEAST:":"$600 GT0:J13:GTGT(TY(J)(YP(J)100.5)100):m PT0:J13:PT(FU(J)TA(J))PT::PT(PTGA100.5)100 BO2:BG2:CH1:3100 "":5)" ARVEST IME ON THE ARM "3020:"ROP ELLING PRICE IELD ,J13:RRTAE BANKRUPT. 56 "OU HAVE MANAGED TO RUN YOUR CREDIT 6@ "LINE TO THE LIMIT, AND NOW YOU AREN6J "BROKE! OU OWE CONSIDERABLE BACK TAXESt6T "AND YOUR FARM WILL BE SOLD AT A6^ "SHERIFF'S AUCTION TO PAY YOUR DEBTS.6h "":1110P0:A$""(166)(157);*$T$:T$""(T$(24)A$"")1060:." "(157);o8T$Z$(A$)0A$(A$,(A$)1):T$;:PP1:1050BT$(24)Z1(A$):Z$;::1040LT$(13)T$:V((T$)127)321050`P2531050jT$;:A$A$F1.1. HFHE:HF1.1HF1.1.$ J13:TY(J)0:3/. J15:KFL(J):TY(K)(40FF(J)BY(K)XXHFSFTY(K))::k/8 J13:2580:DM(J)XX:2580:DC(J)XX:2580:EM(J)XX/B 2580:FC(J)XX:/L X0/V X0:J13:XDM(J)X:XXDC(J):XXEM(J):XXFC(J):J13:DF(J)::J13:CF(J):9X J13:EF(J)::J13:OF(J)::OV:HV2OV :b BA$(BA):A:l "HEAT","ORN","OYBEANS",2.80,2.33,6.30,50,85,60t:v 62,100,31,1.5,.334,1.5,7,65,7.25,20000,0,1,70: 1,1.1,1.03,1,.98,.9,.8,1.1,.82,1,1.1,1: 1,.5";0((BA100.5)100)3 "OU CAN BORROW UP TO $";50000(LO100.5)10093 "OU OWE A GRAND TOTAL OF $";(LO100.5)100a3 "OW MUCH DO YOU WISH TO BORROW?3 X$:X(X$):(X$)027203 LOX50000"ORRY,YOUR CREDIT LINE IS $50,000":27 35(TM$));"$"TM$:XX(TM$):BABAXXF"MOUNT OWED TO ANK:";:TMLO:3030:35(TM$));"$"TM$kLO(TM$):BABA(LO100.5)100$BA20000ZZ1.BA20000ZZ28"RAND OTAL IN ANK:";:TMBA:3030:BA(TM$)B35(TM$));"$"TM$:B" WITH";GL;"GOLD POTS!":1200!LSW01400_VSW0" YOU'VE BEEN EATEN BY A DRAGON":1200`B$"YOU FOUND A DRAGON AND USED THE SWORD":SW0j(X$,14)18)"+ +":160tB$"FOUND WATER, YOU'VE MORE TIME":WT0:160)'"MONTH ";MM$:MM$"-"MM$("YEAR ";YR$:YR(YR$):Y0YR1(M0:I112:MN$(I)MM$MIA(:M02280[(YR1910YR19992290e(2140}(D1DMNTH(M)2270(D$"":210:M0M:D0D:Y0YR:(D$"ILLEGAL DAY VALUE TRY AGAIN":2170) dSW01120 nSW01100,!x(X$,12)19)"":18)"(* *)":18)" "O!17)"<<<><>>>":IJ11500::o!SS$"":""14)"!IJ19:13)"";:JI110!MM$(M$(IJ,JI),2):IJIJIJ"^";:1480!MM$"-2""";:1480!7:1323,157F$:F$""4 (F$,7N,1)(34)11A NN1:9o (F$,1)"L"239,2:1319,19:1320,13:13 239,5:1319,19:1320,13:1321,82:1322,213:1323,13 "LOAD"(34)"0:"(F$,7,N)(34)",8,1":MENU SYSTEM  SS$" LEFT":QP6:PQ7:9104p(X$,19):GI13:30)" "::RD1UzGI18:30)""::LD1xSS$SS$" RIGHT":QP30:PQ31QP)""PQ)"":(X$,16)20)"":(X$,13)17)"Σ":16)" " OR 0,4,0:COLOR 4,4,7 %vFG$:I112:MNT$(I),MNT(I):3% -JAN,31,-FEB,28,-MAR,31,-APR,30Y% -MAY,31,-JUN,30,-JUL,31,-AUG,31% -SEP,30,-OCT,31,-NOV,30,-DEC,31%W1:F10:DP1:NW52%SP$" "%X$"" ~B$"NOTHING THERE":160/SW1B$"YOU'VE FOUND GOLD!":GLGL1:160hB$"YOU'VE FOUND A ONE SHOT MAGIC SWORD!":SW1:160S1" SORRY - YOU STARVED TO DEATH!":1200" SORRY - YOU DIED OF THIRST!":1200IJD$"ILLEGAL MONTH - USE 3-CHAR ABREVIATION":21704)D$"ILLEGAL YEAR - (1910-1999 ONLY)":2170T)15,EA,EA$,A,A:EA(EA0):02XX1}'f(X4)X4MN(2)29'p'zA$"BUDGET PLANNER":X39:160: "";FG$;A$'D$:"DAY ";DD$:D(DD$MM$"22""M";:1480!" ";$"JI:"":IJ:14)""f"" PRESS ANY KEY TO RETURN":11)"TO THE DUNGEON"z"Y$:Y$""1500"(M$(I,J),2)"-2"(M$(I,J),2)"22"520"M$(I,J)M$(I,J)"-2":520"(M$(I,J),2)"- ANY KEY FOR AIN ENU"C$:C$""500%260c""13)"DIT INE":LI$:"HICH LINE NUMBER TO EDIT? ";z1,A$:A((A$)):A0ALN560&"AD LINE NUMBER":1150:5200" "A$(A):"ETYPE LINE OR PRESS ":">";:104016)"":TD1:SS$SS$" TRAP":J""16)"":16)" "]17)" "{SS(SS$):SS$(SS$,SS6)FEFE1:((9(1))1)1150,1010,1010,1150,1030,1010,1140,1010,1160,1030 B$"YOU HEAR SCALES R:I140:X$X$RT$:&Y$"":I124:Y$Y$DN$:&A(X))&NR1:CW1:CR0:CC1H&TB$(0)"PREVBAL":TB(0,0)1[&TB$(1)"TOTAL"e&2070n&350~&D$""2040& TB(CR,CW)TB(CR,0)(D$):D$"":X0:Y1:110:SP$:2040&A$"BUDGET PLANNER":1100::59467,0!" TRY AGAIN (Y/N)":AG$""7AG$:AG$""1220K(AG$,1)"Y"c(AG$,1)"N"1220i((M$(I,J),4,1))1270,1280,1290,1300,1310:B$"THE SMOKE SMELL IS STRONG":B$"SOOT IS ON THE WALLS"AT WOULD YOU LIKE THAT LINE TO BE? (PRESS TO ABORT)"=">";:1040ST$(13)P0260zRLNA1:A$(R1)A$(R)::LNLN1:"ONE":1150:A$(A)A$:260""13)"ELETE INE":LI$"HICH LINE WOULD YOU LIKE TO DELETE?"2"M$(I,J)M$(I,J)"2": #(M$(I,J),2)"22"&#M$(I,J)M$(I,J)"22":Q#(M$(I,J),2)"-2"(M$(I,J),2)"22"l#"M$(I,J)M$(I,J)"-2":#,(X$,23);BO$:X$BO$:0!MM$(M$(IJ,JI),2):IJIJIJ"^";:1480!MM$"-2""";:1480! :DT$(13)P0"N-CHANGED":1150:260BN"HANGED":1150:A$(A)A$:260cX""13)"NSERT A LINE":LI$b"HERE SHOULD THE LINE BE INSERTED?"l">";:1,A$:A((A$)):vA0ALN650:"AD LINE NUMBER":1150:600-"HATTLING-RUN!":HS1:(X$,14)18)"* *"160&FE201010fY$"":X$" YOU FOUND AN EXIT! ESCAPE OR HUNT?":FE5zY$:Y$""1050$Y$"H"""SB$:160.Y$"E"10408" YOU FOUND AN EXIT! AND ESCAPED":GL01200X39:160:"";FG$;A$& :EA$:F$"":EA$""'*"ENTER FILENAME";F$('4F$""21701'>890>'HEA2070D'Rd'\XY0:MNTH(2)28:M02XX1}'f(X4)X4MN(2)29'p'zA$"BUDGET PLANNER":X39:160: "";FG$;A$'D$:"DAY ";DD$:D(DD$: B$"YOU CAN HEAR DRIPPING WATER!":- B$"BLOOD IS ON THE FLOOR":Q B$"YOU HEAR BATS IN FLIGHT":k (VB55:Y$"":HS0:TD0 2Y$:VBVB1:VB451380 <IJ17: FY$"L"LD1Y$"R"RD1Y$"A"FD1Y$"B"1370 P1330 Z210">";:1,A$:A((A$))A1ALN700F::A$(A):"ELETE THIS LINE (Y/N)? Y";]1,A$:A$(A$,1):mA$"Y"780"OT ELETED":1150:260 RALN:A$(R)A$(R1)::LNLN1:"ELETED"1150:260 :"RE YOU SURE (Y/N)? Y";:1,A$:A$(A$,1) *A$"Y"42605>""12)"E-AVE ILE":LI$sH"NTER THE FILE NAME":"('*' FOR SAME NAME AS BEFORE)"RF3$FI$:">";:1,A$:A$"*"F3$A$\15,DR,15,"S0:"F3$:15:F4$"0:"F3$",S,W":8,DR,8,F4$f"":R1LISSED-"B2" ";:SCSCB2:260NSCSCB:570:X1X121:Y1Y121:"";:410wDN$""B" PTS  ":GG1G25SCSC200S5:""15)"YOU SOLVED IT!":590:360TD1ZZ::SS1:Z50:W$S$:490N$S$:M((M(X)1):Y1N22DY(D)1:410:/"";:A1Y1:"";::X1)N$;:SNM25:A1NM:BMR(((1)4)1)uC((1)15)1:D((1)10)1A%(C,D)0430A%(C,D)B::"":A110:::"";:B115:"  ";B,A DN$"GUESS0XB(HPHR)1HPHR1140FQA0:B(HPHR)0HPHRB(HPHR)0:B(0)B(0)1:QA1gQA1B(0)7CT311B(0),86YPB:M7:ZCT288Y:PBPB1HP25PBPB1:YB(HP):B(HP)B(HP)1:ZP(HP):M11YMZ,0HPHR1100 $YB(H   239,0IdY826:0,1:4,1:" D R A G O N ' S D E N"n" PLEASE WAIT WHILE MAZE IS DRAWN"xBO$" ":X$""F831:G832:H829:C3:M$(10,11):I19:J 1601SAFI:FASJ:TD0:LD0:RD0:FD0:Y$"B"TC1?"TB1470M,LT1370[6RT1420@TB0:LT0:RT0:Y$"L"JJ1:LT1:C1JY$"R"JJ1:RT1:C2TY$"A"II1:C3^Y$"B"II1:TB1:C4h510rTB0:LT0:RT0:Y$"L"IZP1:JI1PZ/&ZP)" ";:JI:PZPZ2::IJ:""L0JJ8:II1431:JJJJ2d:II)""JJ)"":IID(X$,19)16)" ":17)" ":(X$,19);NC317)"N":17)"^"XC417)"V":17)"N"bC116)">N"lC216) 2)(M(X)2):N(N(X)2)(N(X)22)4"390:400:X1M:Y1N:390h,ND34D:A%(X1,Y1)0D((A%(X1,Y1)ND)(4D))6X1X1DX(D):Y1Y1DY(D):(X10)(X116)(Y10)(Y111)300@MX1DX(D):NY1DY(D):"";:400:"";:J"":X115:Y110:X1X:Y SHOOTQUITSCORE":#"":X1BX1M(X):Y1N(X):N$W$:410~A$:(A$",")2(A$".")3(A$(13))520,530,550:510XX1Z(X1):540XX1Z(XZ)N$" ":410:500&N$" ":410:0"";:A140:" ";:: :PHR)1:B(HPHR)Y:B(HPHR)101120!.YY:ZP(HPHR)18Y11Z,87<B 1120HLPOPO1lVPO151150:"YOU WIN.": 1190`R(OB)0:X03:R(X)0830jX:MF$"":310t"ILLEGAL MOVE";L$;"":830~205,16:X15:1106M$(I,J)(((7(1))1))(((8(1))1)):J,IfSI10:I((8(1))1):J((9(1))1):520X$"";B$:B$"":Y$"M"18)""SL" CHART MARK BACK";SS$"":HS11320WT100S11180Y$:Y$""190DE1Y$"B"I1:TB1:C4|Y$"R"II1:C35Y$"A"JJ1:LT1:C1PY$"B"JJ1:RT1:C2Y510~TB0:LT0:RT0:Y$"L"II1:C3Y$"R"II1:TB1:C4Y$"A"JJ1:RT1:C2Y$"B"JJ1:LT1:C1510TB0:LT0:RT0:Y$"L"J:A120:" ";::Y1(A$)1:W$"^"W" ";:A14:(MS(A))" ";::Z4:T1X1:T2Y1:490X1T1:Y1T2:560:B%(X1,Y1)0MR(X)A%(X1,Y1)SS1:B54S2:A%(X1,Y1)MR(X)B%(X1,Y1)1:230X1X121:Y1Y121:"";:N$"":410DN$" M1Y3TA%(X1,Y1)0B%(X1,Y1)0570:X1X121:Y1Y121:410<^Y,X`hDN$" PLAY AGAIN?":KB,0rA$:(A$"Y")2(A$"N")10,380:370|2025,0:"":D((X50)(X41))2((X25)(X41))3((X1)(X15)): X1M22DX(D)1_A14:MR(A)A%(X1,Y1)PAD:N$(MS(P)):INKB,0:X134:Y120:N$"":410:SC" ":1)uC((1)15)1:D((1)10)1A%(C,D)0430A%(C,D)B::"":A110:::"";:B115:"  ";B,A DN$"GUESSkL$:X:L$;205,16::#""14)" ":M"PLAY AGAIN (Y/N)";A$:(A$,1)"Y")7CT311B(0),86YPB:M7:ZCT288Y:PBPB1HP25PBPB1:YB(HP):B(HP)B(HP)1:ZP(HP):M11YMZ,0HPHR1100 $YB(H19001580:DE0:""SB$,SB$"":1560:Y$"C"1420qY$"M"1530:930:SLSL1:SS1:B$"BREAD SLICES USED":160TC1TC0WTWT1:Y$"L"LD1Y$"R"RD1Y$"A"FD1Y$"B"280Y$"T"""20)" "Y$"T"TD1960P(F$)64:HR(F$)(T$)zT$"NO"MF$"":3101T$"DRAW"180IX0:T$"OFF"HRHPWL$;"";X03:HRR(X)X:(HRHP)1140OBX:HRHP990ZHP1:OB03:R(OB)HPZ7:970R(OB)HPOB:1140XZ24:B(X)0114J1:RT1:C2Y$"R"JJ1:LT1:C18Y$"A"II1:TB1:C4NY$"B"II1:C3^SS$"":790"":IJ120:""10)"":IJ"":II14:15)"":IIPZ12:ZP15:IJ112:ZP"N<" vI9J10I1J1SAFI:FASJ:760[MM((M$(I,J),2)):MM650,660,670,680,690,700,710,760d850m770{880:720850770:720880850(M$(I,J),2)"22"930MM4940((M$(I,J),4,1))61260160,1580:X$11);"DEAD END GO BACK!":DE1:180R(X$,10):GI14:18)" ": 18)" ":FD1:PQ19:SS$SS$" AHEAD":920"":II14:15)"":II "":II18:15)" ":II%*"":GI19:6)""::LD0:6)""D46)"":6)"":6)""x>"":GI19:30)""::RD0:30)"ߦ"H31)"ߦ":32)"ߦ":33)"":580R(X$,19):GI13:6)" ":\GI18:6)""::LD1 fSS$dCT2048:0,1JnL$" ":A(0)}x""14)"BACKGAMMON":14)""" WILL I GO FIRST Y";MF$B(25):R(3):R(X)((X)6)1 P(X)CT((X(X6))40Y)(X13)((26(X(X19)))44 0,1:4,1:1344,128::KB239:2025,255:ZZ1000}A%(15,10),B%(15,10),M(50),N(50):DN$"":A133:DN$DN$"":NS25:460:A115:M(A)A21:N(A)2::A1625:M(A)32(N(A)(A15)21::A2640:M(A)31(A26)2:N(A)22:02A41:280"X1:ZCT2897,X7XPBZ,87:ZZ1:XX1:300M61180:1150:"";p@(MF$,1)"N""PLAYER ";:340J"COMPUTER ";T"ROLL";: F$"DR"T$"DRAW"360^R(0)R(X):R(1)R(X):R(2)0:R(3)0:R(0)R(1)R(2)R(1):R(3)R(1)hX0 1B(XR(Y))1EE32+B(X)2B(XR(Y))0EE16CB(XR(Y))1EE8SX19EE4|B(XR(Y))1(OB0(XR(Y))25)570EE1:Y3XR(Y)25B(XR(Y))0560ZY1QA0:R(Z)0XR(Y)R(Z)1XR(Y)R(Z)25 QA1 !QA1B(X50:M(A)2:N(A)21(A41)2::A03:DX(A),DY(A):o<A17:MR(A):: -1,0,1,0,0,-1,0,1,27,78,27,78,177,57,147FA14:MS(A)::110,109,110,109:420PS1NS:S$(64S):DN$" WHAT NOW? ":590 ZA$:(A$"G")2(A$"S")3(A$"Q") 100,270,330:905d"";:A6579:(A)" ";::KB,0TnDN$" WHICHCOLUMN"oxA$:A$"A"A$"O"120X1(A$)64:560"";:A09:((A),1);"";::KB,0DN$" WHICH ROW "A$:A$"0"A$"9"160""; 0Y1)(X12)E 2,0,0,0,0,-5,0,-3,0,0,0,5,-5,0,0,0,3,0,5,0,0,0,0,-2ZX124:B(X):X" BACKGAMMON ";:X112(64X);"";(89X);X6" BAR  LN)25X:400XX1:X25660G" CAN NOT MOVE - PRESS A KEY":MF$"N"bA$:(A$"")690:310zX03:R(X)HRXR(X)0B(HP)11HP0YB(HP):P(HP),0B(HP)B(HP)1:Z$(HPHR64):HPHR24Z$"OFF"X$(HP64):3:R(X)0" ";(R(X)48);""; rX:6|(MF$,1)"N"830J"THINKING..."gOB0:Z018:B(Z)0420sZ:OB1H0:HP0:HR0:Y03:X0:R(Y)0580E0B(X)1R(Y)X25570X0B(X)0EE128XR(Y)25EE64 B(X)R(Y)R(Z))0EE2:560&ZZ1:Z454080HEHE:HRR(Y):HPXL:XX1:X25430SDYiNH128B(0)0680vXH0700bLR7:Y03l R(Y)LRR(Y)1LRR(Y):LNYvY:LR7680X025LR:B(X)0680X:X26LRB(X)0R(0390%4X:""14)"PRESS A KEY":MF$"N":690^>F$"@":"MOVE FROM";:PB0" BAR":HP25:F$"Y":880HF$:F$(F$,2):F$"NO"MF$"":310RF$"DR"180\F$"A"F$"X"1140fHP(F$)64:B(HP)01140pT$"@":"TO";T$:HCORE:";S:""22)"H.S. :";UTT0550(^1909hP1R1260FrK4470S|L4400\260iF1420A,32:AA39:ACL,4:A,40:ACL40,7:A40,41:F1:270A,32:A40,32:AA1:ACL,4:A,40:ACL40,7:A40,41NN1:(A1)3 BAR ";IX:"  ";j"PLAYER COMPUTER "X124:B(X)0270Z(B(X)):Z10Z10Y1ZP(X),86.5(B(X))2:YX:X1:ZCT310X7XB(0)Z,86:ZZ1:XX1 HP0X$"BAR""MOVE FROM ";X$;" TO ";Z$UB(HPHR)1PBPB1:B(HPHR)0:PB7CT288PB,87uHP0B(0)8CT310B(0),0 YB(HPHR)1:B(HPHR)YHPHR25Y11P(HPHR),86:810 B(25)151150:"I WIN.": 1190*X03:R(X)0,43OO1(A1)35720:550S(A41)35SST10:A,32:A41,32:A40,32:F0:680O3O0:A,32:A40,32:AA39:F0:R1:270490&" GAME OVER PRESS FIREBUTTON !"0Z11000::730:SUUS:590D110N""11)"NEW HIGH SCORE";U:KB,0CX 10)"ENTER INITIALS ===";:Z13VbA$:A$""610mlHZ(Z)(A$):A$;:v""9)"HIT FIREBUTTON TO PLAY! "7301101,350,2Z550330((1)10)11:1,Z,1::v660:160 1,10,3:1,Y10,15:K3,800,80:Z801:ZZ:TD1100:::8:`(1)128730:ՎA40,32:AA39:F0:R1:270490&" GAME OVER PRESS FIREBUTTON !"0Z11000::730:SUUS:590D110N5720:5509(A39)35SST10:A,32:A39,32:A40,32:F0:680iN3N0:A,32:A40,32:AA41:F0:P1:270r420F1490A,32:AA41:ACL,4:A,42:ACL40,7:A40,43:F1:270A,32:A40,32:AA1:ACL,4:A,42:ACL40,7:A4D$""!|AD:BM:CYR:QW:XM"WCW580:WW1:1670""XM;"580:WW1:XM1690q"XM:WW1:550:W52DA:MB:YRC:WQ:D$"":1720"TB(CR,W)TB(CR,0)(D$):1690"210:350"WCWWW1:580:1730"AD:BM:CYR:WW1:580:XM:FL0"580:WW1:XM1750#550:WW1:W50FL1:17609#CC1:CWW:FLCC3:CW52G#210:350c#WCWWW1:580:1790x#AD:BM:CYR:QW#580:WW1:TB(NR,W)0W501810#TB(NR,W)0DA:MB:YRC:WQ:350#&CC1:CWW#0210:350$:TB(18,53),TB$(18),MN$(12),MN(12)C$DDEBT$(28):FG$(159):HM$(19):CL$(147):UP$(145)z$NDN$(17):LF$(157):RT$(29):CR$(13):BK$(20)$XRV$(18):NV$(146):WH$(5)RV$$b0,4,0:4,4,7$l FOR PLUS 4, PRIOR LINE IS COL1 "CHICKEN CATCHER^56,60:55,0::I819848:A:I,A::819160,0,185,0,208,153,0,60,185,0,209,153,0,61,185,0,210,153,0,62,185,0,211(153,0,63,136,208,229,96-C1564015727:A2C,A::65298,(65298)251 EK";W$`A((W$))!j(W$,1)"-"(W$,1)"+"ACWA/tAW1200>~A50A50MA01210[AW1220jWW1:550xAW1180CWW:CC1210:WW1:580AW12201200X0:Y0:110:WH$;"*SAVE*" YY1:1 ":"TO ";Q1$:Q1$""Q1$Q$0Q$"-"Q$:M10:I112:MNTH$(I)Q$M1I:I12e:M20:Q1$"-"Q1$:I112:MN$(I)Q1$M2I:I12:M10M20EA$"ILLEGAL MONTH":12104,4:4:X79:A$"BUDGET PLANNER"(Y0)" "A$::MM028,28,8,62,28,28,20,20,Z0,0,0,0,0,11,139,255:d"":120]n"";:Z13:(HZ(Z));:xX3355:QX:CL1024:A14:B12:C114:XCL,6:X,37XX1::XX5:XX162::Q32,32:Q200,32:Q432,32:D20:S0:I58:KB239<AQ34:C44:TI$"000000":EQ224:P0:R0:K0:L0:N0:O0:B0:ECL,2FE,35^Y50:DD1:D0D1JE((1)127)3:JW((1)127)7:FB(1)128JEM1:C38:R0:K0:LL1:700:240JWM1:C39:PO:L0:KK1:700:240K0:L0:M0:C44 (A40)32M40:V1:YY1:710:260+FB3603F0aBB1:BDB0:E,32:EE40:ECL,2:E,35|EQ697E,32:EQ183"F1250,AQ636720:A,45:550@A,32:AAM:A,C:ACL,4:T60(TI60):"TIME:";T;" "J""22)"S:65299,(65299)360_<8,24,8,127,62,28,20,20,62,34,62,34,62,34,62,34,255,133,253,165,165,191zA 161,255,12,12,8,14,8F28,52,38,24,24,8,56,8,28,22,50,13,13,9,15,8,8,8,12,1,3,7,15,15,7,3,1P88,88,72,120,8,8,8,24,64,96,112,120,120,112,96,64, C$LF$660C$RT$700 C$CR$RC$BK$(D$)0C$"":D$(D$,(D$)1):740`110:A$;}(C$)132(C$)141760C$""1650C$""DPDP:210:350C$""1730C$""1790C$""1630C$""DEV1:EA$"D$D$C$:HM$;DN$;D$;(SP$,10(D$)):370$370; HM$;DN$;SP$:SP$t(C$)132780,870,980,1090,1100,1250,1330,1400:350 X0:Y0:110:WH$;"HELP GOTO ND OF MONTH "YY1:110:WH$;"LOAD SAVE IND NEG "' DE82300:EA970,I0NR:2,TB$(I):J0NW:2,TB(I,J):J,I:170:210G2:15:hX0:Y0:110:WH$;"*+ROW*"NR18YY1:110:"-NO MORE ROOM-":830N$"":YY1:110:"NAME";N$N$""1080YY1:110:I$"E":"(I/E)";I$10:F$"":"FILENAME";F$:F$""1210DE81290,2,1,2,F$:1300_ 15,8,15:2,8,2,"@0:"F$",S,W":2300:EA13202,NR;",";NW;",";D0;",";M0;",";Y0I0NR:2,TB$(I):J0NW:2,TB(I,J):J,I(15:2:170:210:2X0:Y0:110:WH$;"* :YY0:DD0:Q1 M2M21:M213M21" MM1580:QQ1:14801 10);:N1P A$(D)MNTH$(M):150:A$;n AM:580:AMNN1:1500 :I0N:"";:: I0NR:A$TB$(I):150 INRMMRV$;A$;NV$;:1560 A$; QQQN1:QQ52QQ52!"JQQQ:XTB(I,J):120(!,INRX0RV$;A$;NV$;:16001!6A$;=!@J::I\!J::QQN:Q53MM21490!TMM0:DD0:YRY0:W1:CW1:CC1:CR0:4:4:1210!^D$""!hATB(CR,0)(D$):ICWNW:TB(CR,I)A:I:D$"":210:350!rTAPE SELECTED":210:350BC$""DEV8:EA$"DISK SELECTED":210:350T110:B$:370f&DD7:D10MM1:M1DDMNTH(M)::YRYR1:M12:DDMNTH(M):DDD7:DMNTH(M)NDDMNTH(M):MM1:M13XYRYR1:M1:bCRYY1:110:WH$;"+ROW -ROW ONTHLY EXP "b*YY1:110:WH$;"CALC PRNT EEKLY EXP "4YY1:110:WH$;"DISK APE ECIMAL ">YY1:110:" "HA$:A$""840RFG$;\210: fA1:I$"I"A1CRCR1GINRCR1:TB$(I1)TB$(I):J0NW:TB(I1,J)TB(I,J):J,Iq$I1NW:TB(CR,I)0::TB$(CR)(N$,10).NRNR1:TB(CR,0)A8210:B110:A$;:170:210:LX0:Y0:110:WH$;"*GOTO*"VYY1:110:W$"":"WE-ROW*"<CR0YY1:110:"ILLEGAL ROW":8304FYY1:110:N$"":"SURE";N$KP(N$,1)"Y"1210WZNRNR1dICRNR:TB$(I)TB$(I1):J0NW:TB(I,J)TB(I1,J):J,InCRCR1:1210xQ$"":HM$;WH$;"":"FROM";Q$:Q$""1210Q1$" d"DISK PROTECTED":n15,8,15:15,"I0":2,8,2,"#"Vx15,"U1:";2;0;18;0:170x15,"B-P:";2;2:2,(80);:17015,"B-P:";2;166:2,(80);:17015,"U2:";2;0;18;0:1702:15,"I0":15:15,EN,EM$,ET,ESENEN,EM$,ET,ES: d"DISK UNPROTECTED"<n15,8,15:15,"I0":2,8,2,"#"Xx15,"U1:";2;0;18;0:190z15,"B-P:";2;2:2,(65);:19015,"B-P:";2;166:2,(65);:19015,"M-W";(1);(1);(1);(65)15,"M-W";(2);(7);(1);(65) 15,"U2:";2;0;18;0:10370lCRCR1v110:A$;:3503CRNR1CRCR1:630<370\CC1CCCC1:CWCW1:630jCW1370CWCW1:WW1:550210:350CC3CCCC1:CWCW1:630CWNW370CWCW1:WW1:580210:350(D$)10 X0:Y0:110:WH$;"*LOAD*";pYY1:110:F$"":"FILENAME";F$:F$""1210IzDE8910\2,1,0,F$:92015,8,15:2,8,2,F$",S,R":2300:EA210:970CL$;DN$;"LOADING ";F$2,NR,NW,D,M,YR:M0M:D0D:Y0YR:CC1:CR1:CW1:W1:2140 Gd15,8,15,"I0":2,8,2,"#":P$"LOCK": TO UNLOCK FILES, P$="UNLOCK"bnT18:S0:NL$(0):230wxSN2552:15:TTN:SSN:230J07:R(J)0::"TYPE NUMBER OF FILE""YOU WISH TO ";P$;""J07:FT(J)J322:15,"B-P";2;FT(J): Ed15,8,15,"I0":2,8,2,"#":P$"UNLOCK": TO LOCK FILES, P$="LOCK"`nT18:S0:NL$(0):230uxSN2552:15:TTN:SSN:230J07:R(J)0::"TYPE NUMBER OF FILE""YOU WISH TO ";P$;"" J07:FT(J)J322:15,"B-P";2;FT(J):#2 NGS3"I0H1:J0W1:AS(I,J):A32A95AA64:310J,A65A96AA32c6C$(I)C$(I)(A)::@ *** PRESS 'F1' TO REWRITE ORIGINAL TEXTJR$:R$(133)330T"": RESTORE ORIGINAL TEXT COLOR^205,R1::"";: SET ROW NUMBERHGHTING"Q$":N=239:P=1319:S=43:G63994@P,19:I18:PI,13::N,9PROGRAM NAME";N$:N$"""":12Q$(34):"LOADING ":N$"LOAD"Q$N$Q$",8"63994S=P(S)+P(S+1)*256"63995IFP(S+4)=143T?"Q$""Q$"P:AR$(A,B)" ":B,A& 0,1,1,0,0,-1,-1,0,-1,1,1,1,1,-1,-1,-1d DBSOJWBM,DJSDVT,DBOBEB,VOJUFE,UFMFQIPOF,NPOLFZ,DPNQVUFS KPZTUJDL,NPOTUFS,TUBQMFS,NBHJDBM,TIVGGMF,FOE$AR(RX,RY)A1:RXRXDX:RYRYDY::LN(A)(W$):.8 SHUFFLE+ DISK EDITOR BOOT FOR DISK EDITOR.MLT COMPUTE!S GAZETTE FEB 1986 PAGE 90Z :}A0A1:"DISK EDITOR.ML",8,1A1"CHECK PROGRAM DISK":"INSERT DISK TO BE EDITED":"PRESS RETURN WHEN READY"(12000O90 2:15,"I0":15:+ 15,EN,EM$,ET,ESC ENEN,EM$,ET,ES:I #2,PS$:PS(J)(PS$NL$)BPS(J)0R(J)1:250:DJ:360:FL1J7NJ:370aB$:B$""190wB(B$):BTE120R(B)0190300:19015,"U1";2;0;T;S:380#2,TN$,SN$:TN(TN$NL$):SN(SN$NL$):#2,J$:#2,J$:C0:F$(J)""  #2,A$:A(A$NL$)A A160A0F$(J)F$(J)A$:CC1:C17260V TEJ1:A0FL1\ "r ,15,"B-P";2;FT(B) 6P$"LOCK"PS(B)PS(B)64:2,(PS(B));:380:330 @PS(B)PS(B)191:2,(PS(B));:380 J15,"U2";2;0;T;S:380 T"":K07::R(K)1DK:360^K:370:HhX(PS(D)64)4:XX(X0)36:D(X);F$(D):[rTE" NEXT":p|15,EN,EM$,ET,ESENEN,EM$,ET,ES:15,"U1";2;0;T;S:380#2,TN$,SN$:TN(TN$NL$):SN(SN$NL$):#2,J$:#2,J$:C0:F$(J)"" ,PS$:PS(J)(PS$NL$)@ PS(J)0R(J)1:250:DJ:360:FL1J7L J:370_ B$:B$""190u B(B$):BTE120 R(B)0190 300:190 15,"U1";2;0;T;S:380 #2,TN$,SN$:TN(TN$NL$):SN(SN$NL$): #2,J$:#2,J$:C0:F$(J)""  AND PRINT WINDOW=M303140RC: UPPER LEFT CORNER OF WINDOWY"": SET WINDOW COLOR205,R1::"";: SET ROW NUMBERI0H1:J0W1S(I,J)(MJ)::202,C1:B$(I):MM40: *** CONVERT STORED SCREEN CODES TO PRINTABLE STRI>hI0H1:202,C1:C$(I):2r RETURN TO MAIN PROGRAMNDOWY"": SET WINDOW COLOR205,R1::"";: SET ROW NUMBERI0H1:J0W1S(I,J)(MJ)::202,C1:B$(I):MM40: *** CONVERT STORED SCREEN CODES TO PRINTABLE STRI (S+2)+P(S+3)*256:T=S+4:GO63997O"63996ON-(S<>.)G63994:?"Q$""Q$";:G63999o"63997T=T+1:IFP(T)=.TRE"63998ON-(P(T)=32)G63997:PT+(T>S+5),18:RE"63999PP,19:FI=1TO6:PP+I,13:?63993+I:N:PP+I,154:PN,8 "?"Q$"HIGHLI #2,A$:A(A$NL$)CA160A0F$(J)F$(J)A$:CC1:C16260XTEJ1:A0FL1^"t,15,"B-P";2;FT(B)6P$"LOCK"PS(B)PS(B)64:2,(PS(B));:380:330@PS(B)PS(B)191:2,(PS(B));:380J15,"U2";2;0;T;S:380 T"":K07  WORDS*BA1NW2:B(1)NW:C(1)NW:T$W$(B):W$(B)W$(C):W$(C)T$2L:FV READ IN WORDSY`W$(200):NW1jNWNW1:W$:A1(W$):W$(NW)W$(NW)(((W$,A,1))1)t:W$(NW)"END"1130~A07:DX(A),DY(A):A019:B014 A$(SP$A$,F):2A$(SP$,(X(A$))2)A$:sI1NW:A0:J0NR1:AATB(J,I)::TB(NR,I)A:TB(0,I1)A:I1NW:MM0:TB(NR,I)0MM1:INW:A$(SP$"WEEK"(CW),F2):X2:Y3:110: A$;:A$"BUDGET PLANNER"(YR):X40: 160CL$;FG$;A$:D$:EA$:EA$""A280:I0NR:MMINRDEBT$;mHM$;(Y$,I5);:A$TB$(I):150:A$;FG$;JWW2:INRTB(I,J)0DEBT$;XTB(I,J):120:A$;FG$;::200:AD:BM:CYR"Z13,A$(D)MNTH$(M):150:A$;R(K)1DK:360 ^K:370:F hX(PS(D)64)4:XX(X0)36:D(X);F$(D):Y rTE" NEXT":n |15,EN,EM$,ET,ES ENEN,EM$,ET,ES: 6580:@DA:MB:YRCDJ""JT^200:XTB(CR,CW):120:B$RV$A$NV$:XCC10:YCR5:110hB$;rC$:C$""370|C$"+"C$"-"C$"."(C$"0"C$"9")740C$UP$610C$DN$640 31,160:TD120:::590:LLLL1:LL1700$:8D CLEAR MESSAGEWNP$" ":hX GOT A WORDbGWGW1:GW10770lTD1300::P$"WELL DONE!"vA100500201,A,3:2,A3,3:590: GIVE A CLUEA(1) Z1,(133):0,5,4@dH6:W18: HEIGHT AND WIDTH OF WINDOWhnR10:C10: ROW AND COLUMN POSITIONx S(H1,W1): SCREEN CODE ARRAY B$(H1),C$(H1)B$(0)""B$(1)"DELIVER MESSAGES"B$(2)"IN YOUR PROGRAMS "B$(3)" WITH WINDOWS. ">B$(4)" "]B$(5)" F1 TO CONT." *** DEMONSTRATION - SET TEXT COLOR & FILL SCREEN WITH CHARACTERS"";:I4886:A$A$(I)::I124:A$:  *** STORE ORIGINAL SCREEN CONTENTS SB,(SB)16:TI$"000000":390-6 JOYSTICK ROUTINEA@(1).003670UJ(1).009540gT410:J0320|^J127430:320hPS,(PS)127:TPPSr((PSCD)CS)A3PSCD,A2|PSPSD(J15):(PS)1(PS)26PSTP PS,(PS)128:((P N239:P1319:0,7,4? ""(14)(8):"REM HIGHLIGHTERm "PROGRAM NAME";N$:N$"""":12Q$(34):"LOADING ":N$"LOAD"Q$N$Q$",8"63994S=P(S)+P(S+1)*256"63995IFP(S+4)=143T?"Q$""Q$"P QUIT""*410:J12713)"PLEASE WAIT":1170:18004J"":9>810KH PRINT ARRAYR"    "8);\"      "8)"";f"   S"8BSC3322:CD1024:BC65301:W241:BL241:SB65286:CS255rZ1339:A10:A26:A32:A45:A50:A6102:4,11160:11201090GW0:A019:B014:AR(A,B)0:B,A:A0NW:L(A)0::PSSC LL7:BC,W:Z,A5:" USE JOYSTICK TO 10:L(A)0P$"CLUE:"W$(AM):T1800:"590:4 END OF GAME["":A014::10);:B019{AR(B,A)0AR$(B,A);:730"";:::Z,A4: " PRESS FIREBUTTON TO CONTINUE"410:J128740410:J127750!Z, ":4);" ’";:1:4)"  "7T PUT WORDS IN THE ARRAYjB((1)(NW10))MB:A09:W$W$(BA)DR(1)2LV:DYDY(DR):DXDX(DR):L(W$)SX((1)191):SY((1)141):RXSX:RYSY SCD)CS)A4PSCD,A3320#J(1):: PRESS FIREBUTTONR((PSCD)CS)A4sY((PSSC)40):XPSSCY40AR(X,Y)0P$"TRY ANOTHER":540:P$"GOOD ANSWER"PSCD,A4:TAR(X,Y)1:L(T)L(T)11,262,10:1,453,20 A NXSX(L1)DX:NYSY(L1)DY:NX0NY0NX19NY14990PFL0:L1(W$):AR$(SX,SY)" "FL1:L(W$)fSXSXDX:SYSYDYx:FLAA1:L1(W$):AR$(RX,RY)(W$,L,1)$AR(RX,RY)A1:RXRXDX:RYRYDY::LN(A)(W$):.8 SHUFFLE    "8)"";Cp"   "vzZ,A1:4)"  "4)" ’";:A014:B019Z,A2:AR$(B,A)" "(65(1)26);:930AR$(B,A);:Z,A1:"’ CHOOSE A LEVEL"?Z,A6:10)" 1";:Z,A5:" 2 3":MSSC5" 1 ALL WORDS SPELLED FORWARDS NO DIAGONALS"" 2 FORWARD & REVERSED SPELLINGS NO DIAGONALS"" 3 FORWARD & REVERSED SPELLINGS A5:" SORRY, YOU DIDN'T MAKE IT":790SZ,A5:" CONGRATULATIONS! YOU WON" " YOUR TIME WAS "(TI$,3,2)":"(TI$,2)I11000::BC,W:" PRESS FIREBUTTON TO PLAY AGAIN" " PRESS DOWN TO . . {2 T/L2021 STC44_v4w4;"؅!Ѝ Ѝ!ЩSTLR` i5 35 3ߠ5 3L/i˅IiJbcdI6 /d 0c 0b 0L0@ SC554(SC554)40LL40:A40,93:A71,93OA,160:A31,160:TD120:::QF1QF0:590:LLLL(LL15):AR(X,Y)0:L(T)LN(T)610 ENERGY DRAIN1,453,10:1,262,20&ASC6(SC6)40(15LL)40:A40,93:A9,93:A,1600A eAe??@i@?> 3 0L20 b 3L1 ABL0&hghb 3hgg$+L0'h ghhbgh 3L0L20  3I6gJ6h 3L1 2L1#  6 R  lɟL34@I@FAA\I\ 4L I6 gh2 #3 4 6 R 2`gh1 #3 I6 ` 6 83 6 RLb 3H f3d 06e 06h f3d 06e 06`Hdehd8 i e8`ȱ iHihLRAJbB ebi`>?`(   DIAGONALS INCLUDED"+410:J0250pMSCD,A5:MSMS3(J3)(MSSC11)3(J7)(MSSC5):MSCD,A6J128250""14)"PLEASE WAIT":TD11000:"LV(MS(SC5))31:SB,(SB)239:BC,BL:970,850:QF1:T1:480: ` #4 48` X5 d d 0 N5 S5 S5L40:AG bлb D5 bc D5eb`80 ` LL2;`` TRACKSECTORBYTE00102030405060708090A0B0C0" "";:I07:X$;::""8 * SUBROUTINE FOR BOTTOM LINES *CP$"":X$" "CP$;:I1323:X$;:" ": BETWEEN LINES.":"PRESS Dd""11)"L E X I T R O N":AR$(20,15),AR(20,15),LN(200)nP$" ":A010:Q(A):xA08:D(A):: 0,1,5,0,7,8,6,0,3,2,4,0,-40,-39,1,41,40,39,-1L(200): -41:3)"PLEASE WAIT WHILE LOADING WORD 5 CUSTOM LABELS FROM COMPUTE!S GAZETTE FEB 1986v SEE PAGE 97 OF MAGAZINE IF USED ON 1526 OR MPS-802 PRINTER THIS PROGRAM DEFAULTS TO 1525, MPS-801, MPS-803: 0,2:4,3,3:2025,255" PRESS 1 FOR GRAPHICS LABELS * PRINT ROUTINE *E680:CP$"POSITION THE LABEL IN THE PRINTER SO"t"THAT THE TOP OF THE LABEL IS AT THE TOP""OF THE PRINTHEAD AND PRESS RETURN."X$:X$(13)1803,3:4,4:6,4,6:6,(12):Y4P1X3074:I07:J338  0 L/HJJJJ /h)i0:89 0`ei` g /h /i /`g]h^HI I?I? ɑ BBL0BLx2BL0ɝA B\AҥA8@AL0]A\ BPAAm@A 3I?J@B?i(?@i@AJJJ X3074:I07:J338*P2X3083:I07:J1229MY(X):8,Y:XX1::P1XX4]P2XX22m:3:8:70 * LOAD ROUTINE *680:CP$:"LOAD FILE NAME";NF$NF$""703,3:8,8,8,"0:"NF$",S,R"P1X3074:I07:J /Lx2+ 4gL1-  4hL1@0a:]>?H 3?b@c@hI6L0AJbcbhdb [2ddddȱb [2=L)2i 989edd`A G8@ЖL20AB@\6  2gh 3` 6  L I6  $`b6 3 #4 4]g^hhhhhhh8`iHbic b` X596 3 `  6 4; b b ͽ ۮ L}4  #4L. 2 H  h H h  "1" PRESS 2 FOR ENHANCED PRINTING LABELS"M(P$:P(P$):P1P2402"":630:X$" "<"";:I812:X$;::""FP2" "P" ":680:CP$" (1) DESIGN A SPECzD0E0F0 0 1 2 3 4 5 6 7 8 9 A B C D E F U1 2 0 00 00#I0$0 ILLEGAL TRACK OR SECTORHIT ANY KEY P2X3083:I07:PI$(14):J1229<SI(X):SI128Y3Y2PSI127Y4Y1fSI127SISI128~SI127SI191:290SI95SISI32SI63SISI32SI32SISI64"SI$(SI):Y1SI$(18)SI$:Y3,Y2SI$(146)SI PROGRAM AND CHECK FINAL LINE":?x SA149,(772): SA150,(773)~ VEC17165 SA14,22: SA18,23:SA29,224:SA139,224 (147);(17);"PROOFREADER ACTIVE": SA HI,(HI)1: ((LO)256(HI))1,0: 120,169,73,141,4,3,169,3,141, 338P2X3083:I07:J1229@8,Y$:Y(Y$):X,Y:XX1::P1XX4PP2XX22`:3:8:70y * DESIGN A LABEL *&680:CP$"CENTER YOUR LABEL IN THE BLOCK ABOVE."0"REMEMBER TO LEAVE SPACES BETWEEN LINES.":"PRESS RETURN WHEN DONE."DM3600N6300XP1"";L$:70NbP2"";L$:70ql * SUBROUTINE FOR TOP LINES *vP1X$"  "P2X$"  6,104,72,201,32,2089 7,165,176,208,3,104,208,226,104,166,180f 24,165,167,121,0,2,133,167,165,168,105 0,133,168,202,208,239,240,202,165,167,69 168,72,41,15,168,185,211,3,32,210,255 104,74,74,74,74,168,185,211,3,32,210 255 IAL LABEL"OZ" (2) LOAD A LABEL FROM DISK":" (3) CHANGE THE LABEL ABOVE|d" (4) SAVE THE LABEL ABOVE TO DISK"n" (5) PRINT THE LABEL ABOVE":" ENTER YOUR CHOICExM$:M(M$):M1M5120M550,460,550,370,162,31,189,227,3,149,199,202,16,248F" 169,146,32,210,255,76,86,137,65,66,67s, 68,69,70,71,72,74,75,77,80,81,82,83,886 13,2,7,167,31,32,151,116,117,151,128,129,167,136,137 200,185,0,2,240,46,201,34,208,8,72  165,176,73,255,133,17 13350:L$" ";UC$(Z)" "C$(Z)" "C$(Z)" "C$(Z)" "C$(Z);" "C$(Z)" "C$(Z)" "C$(Z)" ";:Z"MT350:L$" "A$" ";:320,3506L$" $:Y46PI$PI$SI$:XX1:<@4,(15)PI$(8):PI$"": P1 XX4LJP2XX22_TY4::4,(10)^3:4:6:10,4,10:10:10:70h * SAVE ROUTINE *r680:CP$:"SAVE FILE NAME";NF$|NF$""703,3:8,8,8,"0:"NF$",S,W" P1  ";:X:MT1:Z13:260@@C$"":340:"":C$"":340PJ10240:360T""C$"LIVES5"C$"SHOTS";:^1,2,4:h""19)"GAME OVER"r((870)176)T28((878)0):390|T24((878)0)I19:0,T2:J150:J:0,1:J150:J,IP""8)"PRESS FIRE BUTTON TO PLAY AGAIN"k(1)127(2)127330t410 "C$(Z)" ";:Z"MT350:L$" "A$" ";:320,3506L$" 5,3+ 88,96,165,20,133,167,165,21,133,168,169V 0,141,0,255,162,31,181,199,157,227,3 202,16,248,169,19,32,210,255,169,18,32 210,255,160,0,132,180,132,176,136,230,180 200,185,0,2,240,46,201,34,208,8,72  165,176,73,255,133,17 (t3 (o /fgnԈ ԩԩԩԍ/  q, 0tq de 0 ) Q) - . X0 +m? @? *T PPF GF l+ 0M NM , J-Lt(3`ɋԅn `2`l`RIRPLG+ #1JH( N+؍ABhJH(A `+BhJH N+ABhJHA `+BhJxHDhL*dhL*dCCCmA2mB2A21B3hDn ԩ ԩ@ԩAԩpp_ ' VEC(772)256(773):LO43:HI44b"AUTOMATIC PROOFREADER FOR ";: VEC42364 "C-64" VEC50556 "VIC-20"( VEC35158 : "PLUS/4 & 16"2 VEC17165 LO45:HI46: :"128"<SA((LO)256(HI))6:ADRSA*F J0 ԩԩrOrlNjkh`k;jlHi@ "0hjjQmJffH 0hɰh` q,ht`0  `l`u33>M> >13Ku3L3 L-3J 1)IJIJ 166: BYT: ADR,BYT:ADRADR1:CHKCHKBYT:kP CHK20570 "*ERROR* CHECK TYPING IN DATA STATEMENTS":Z J1 5: RF,LF,HF:RSSARF:HB(RS256):LBRS(256HB)dCHKCHKRFLFHF: SALF,LB: SAHF,HB:n CHK22054 "*ERROR* RELOAD @dA0A1:""14)"LOADING ML":"SURVIVOR.ML",8,1Sn56,32:55,0:x"":Z2:BC53280:BK53281:C$(1)"":C$(2)"":C$(3)"":A$(148)A$(129):0,1:4,1:2025,255:BC685:BK685A$(129)A$(28):160A$(129) A$: 3 3L.3 3 .`L{.P`^ 33I _ȍ^L{.h d id`333H h`WLq/XW^^UV ۭU8V r/Z[_8 " ";MBC,0:BK,0:U$" ":M$""" "35)"  "34)" "M$U$"  "M$"";""U$" "M$""M$21)"    "M$" ";!19)"    "M$U$"  "M$""U$"";h" "U$" "M$""33)" "4)" PRESS FIRE BUTTON TO PLAY"(1)127(2)1271352,255:4,2,4:250140350:"";:L$C$" ":L$33);:X15:Z  򠞹%2!`)) L/H8@`HHeWeXn `i`2Whhh`c;aaa f2@"bIb ~2X"`iifiigiid 0iie>>  nxL1X`>iۅi>>>ɯ֩`iiCPQ^11@?FMN <= )GFiKiLZWX3Ku3L33baYprkmӥUVsl  DɀC80<8.> + >< +1 "00L*`>8>`ei`l`2Z2ɀ=H hK M "0*2}222}3280 Kɀ2M "0`HlBH3N/nIREBUTTONAB(DEFGGGCqqqqHHHDDEEq8888@ $O``>D">OOG"B(Z%E(E$X%H@$X!III]>]I(((MYKTUTTLELE J -J3K "0u330L,` 1e1e80ɀ`8`3*3 2 "0O}ޱ3x3 m 1f 1 3 1ei ߽2Hnԩԩ ԩp pO33h "00LN-` ,145,252"J 165,252,56,229,98,133#T 247,165,253,229,99,1337#^ 248,160,0,177,247,201P#h 81,240,13,172,62,3j#r 196,106,240,4,9,128#| 208,2,41,127,160,0# 145,247,165,252,24,105# 40,133,252,165,253,105# 0,133,253,202,16,195 125,62,63$ 133,195,165,196,125,63% 63,133,196,177,195,411% 127,141,64,3,162,3K%& 221,70,63,240,5,202e%0 48,35,16,246,201,64}%: 208,9,173,63,3,41%D 1,208,22,240,11,201%N 66,208,7,173,63,3%X 41,1,240,9,173,63%b 3,93,7  r/\] 1"][][  /9# /0\Zސ  / /Y / 1) /YUVHHh "0`ȥ8(i(`IY1HU}1V}180 ɀh`h8`nL 0x3 /7X`Ѕ 4,63,141,63%l 3,169,81,145,195,165&v 195,24,101,98,133,2523& 165,196,101,99,133,253M& 177,252,41,15,201,6h& 208,13,165,106,32,23& 62,165,106,32,75,62& 104,104,96,165,107,145& 252,96,216,255,1,0& 40,0,255,255,64,66;& 77,78,2,2,3,1& 0,1,0,255,255,0 ' 1,0,2567,195,411% 127,141,64,3,162,3K%& 221,70,63,240,5,202e%0 48,35,16,246,201,64}%: 208,9,173,63,3,41%D 1,208,22,240,11,201%N 66,208,7,173,63,3%X 41,1,240,9,173,63%b 3,93,7 0>-i#`n`o 8moo`n`H1>=J1>()`@n-rppԍL{1ssrrsL1rpp ) L1ssrr@r) sLGAME OVERPRESS F # 96,173,64,3,160,0 $ 145,195,165,195,24,101*$ 98,133,252,165,196,101G$ 99,133,253,165,106,145b$ 252,173,63,3,170,173z$ 68,3,24,125,78,63$ 141,68,3,173,67,3$ 24,125,82,63,141,67$ 3,173,63,3,10,170$ 165,195,24, 1:" ROUND"RO;" ";:1,3,4:"SCORE"S2j""36)"SHIFTER"CK1CK0:S10:S20:RO1:KC0:310831,(0)4:KC28052015360:KC1:SP(195)256(196):430:SP,160 "RORO1:S1 33,6,105,1,133,196> 169,0,141,60,3,141.H 61,3,169,32,141,64FR 3,173,82,3,141,65^\ 3,141,66,3,169,11vf 141,67,3,141,68,3p 96,162,0,32,244,61z 74,176,29,173,60,3 240,121,206,60,3,165 106,32,23,62,165,3 56,23 TE2:Q:)1,150,50:B801:B:TD175:::;H,0:H1,0:[B811:B:TD120:::h01,7,1:x:A:A256DKM,A:KMKM1:570N 32,42,60,32,123,60X 32,175,60,32,54,61b 165,108,32,23,62,165l 109,32,75,6 236,68,3j 240,44,160,0,177,5 t 72,165,5,133,252,165;~ 6,133,253,162,21,160V 40,177,252,160,0,145r 252,165,252,24,105,40 133,252,165,253,105,0 133,253,202,16,232,104 160,0,145,252,76,243 61,74,176,60,174,61 76,243,61,74,176 ( 29,173,61,3,240,55# 2 206,61,3,165,106,32< < 75,62,165,5,56,233T F 1,133,5,165,6,233l P 0,133,6,76,243,61 Z 74,176,28,173,61,3 d 201,22,240,21,238,61 n 3,165,106,32,75,62 x 165,5,24,105,1,133  5,165  99,133,253,160,22,173" 62,3,145,252,177,247+" 201,81,240,13,174,62C" 3,228,106,240,4,9^" 128,208,2,41,127,145z" 247,136,16,227,96,141"" 62,3,165,5,24,101", 98,133,252,165,6,101"6 99,133,253,162,22,173"@ 62,3,160,0 5S25CK1:RORO1,220Q6""16)"GAME OVER":""12)"PRESS FIREBUTTON"l@(1)128(2)128320J"":I123:D$;:560LC$;:1,2,5:Z$(I);:560:C$E$;:TD$;:560:B$" ":0,2,5^15)"ENTER LEVEL": 3,40,133,3,165  4,233,0,133,4,76' 53,61,74,176,31,173@ 60,3,201,22,240,87[ 165,106,32,23,62,238s 60,3,165,3,24,105 40,133,3,165,4,105 0,133,4,76,53,61 174,60,3,236,67,3 240,55,74,176,27,160 0,177,3,7 2,206,65 v 3,208,9,173,66,3& 141,65,3,32,155,62= 32,12,62,76,6,60X 173,27,3,201,243,240t 23,169,49,133,100,169 12,133,101,169,0,133 98,169,252,133,99,169 1,141,69,3,208,21 169,49,133,100,169,4 133,101 T$:KT$"1"KT$"3"120+KT(KT$)2:850,KTb12)"DESIGNING BOARD":""14)"PLEASE WAIT"14)" ":A$(1)"":A$(2)"":A$(3)"":A$(4)"":A$(5)" "B$" ":C$" ":E$" ":D$E$" ":570   3,236,68,3,240,115 165,5,24,105,72,133- 252,165,6,105,3,133I 253,160,40,177,252,72d 162,21,160,0,177,252 160,40,145,252,165,252 56,233,40,133,252,165  253,233,0,133,253,202 16,232,104,160,40,145 252, ,6,105,0,133! 6,96,173,69,3,208! 4,189,0,220,96,1895! 10,62,141,8,255,234P! 234,234,173,8,255,96k! 250,253,162,50,160,0! 136,208,253,202,208,250! 96,141,62,3,165,3! 133,247,24,101,98,133! 252,165,4,133,248,101! 18)"(1-3)",h198,0:198,1:KT$:KT$"1"KT$"3"360DrKT(KT$)2:850,KTq|""13)"DESIGNING BOARD":18)" "I123:Z$(I)""::420:"";:190X(28(1))1:X4X5Z123:I123:400:Z$(Z)Z$(Z)A$(X):I,Z: 2,136,200  200,192,23,240,8,177! 3,136,145,3,76,7; 61,104,136,145,3,76U$ 53,61,74,176,22,160o. 22,177,3,72,200,1368 136,48,8,177,3,200B 145,3,76,37,61,104L 200,145,3,96,162,1V 32,244,61,74,176,55` 174,61,3, ,169,0,133,98 169,212,133,99,169,0, 141,69,3,173,69,3E 10,10,24,105,3,170` 160,3,189,115,60,153{ 106,0,202,136,16,246  96,15,5,7,2,81 101,103,66,165,100,133  3,133,5,24,105,195* 133,195,165,101,133,44 1 I123:MT$MT$""C$::MT$MT$"";420:"";:4,4,6:0,1jD$;:560:B$" ":3111,160:2087,99I123:D$;:560:C$;:1,2,5:Z$(I);:560C$E$;::D$;:560:B$" "4071,160:3047,99:0,1" SCORE"S (S(N1)2:(C6C5C3C1)O.N16O(S)C:570g(CM(1)CM(2)CM(3)CM(4)CM(5))O.N16T(S)C:570C28NGN.B,X:GG1:OO:T(S)T(S)(N1):360&F1((C19(NG1)N15)(C109N1))5000(C19(NG1)N15) (C109N1)B,A:NN(C191):4905:B,C48:GG(NG):NN(N15):360PDQ,6::T$TI$:T$R$NR$T$:V$(K((T$,4,1))):CC,33:V$J$XV$":"(101((T$,5,1)))(105((T$,6,1))):bQ,18::I.4:J.21:O$;::::lB,A:EVM% SP3111SP4032470BS1S11:TE103:530:Q18:1339,TE:""9)MT$""33)MT$eTE103TE6:E1130:NEXE,Q:uTE103:Q:S2S21:TE2:530:Q18:1339,TE""8)B$:""8)B$""E175:ETE2TE6:Q: :EE2E(E.):EE(EZ)Z(EZ):UZETvTRLE60(60((T$,4,1))((T$,2))):U((ZE)(4LE)TR10)|L(P)L(P)U:Q,21P::34)W$(145)33)L(P);:DD(PT):P1(T2P1):D6230610:Q,18::"GOOD GAME!"::"PLAY AGAIN? (Y/N) "/C$:C$"Y"C$"N"670J$:C$"Y"8:GG(NG):NN(N15):360PDQ,6::T$TI$:T$R$NR$T$:V$(K((T$,4,1))):CC,33:V$J$XV$":"(101((T$,5,1)))(105((T$,6,1))):bQ,18::I.4:J.21:O$;::::lB,A:EVM%" *NUMBER CONSTRUCTION KIT*a0,1,1:4,1,1:CC202:Q205:Y239:C02608:SC3670:B$(159)Z200:F$(156):G$(5):H$(98):I$(99):J$(147)(K$(174):L$(173):M$(189):N$(176):O$(32):Q$(125)2U$(157):W$" ":P1:X32<$M$:::X)B$N$I$I$I$I$K$QxG$"0 ";:I.6:"+ 0 ";::(146)B$"= "H$G$"0000"B$H$I.14:(163)" ";::2)L$I$I$I$I$M$:I.3::24)"ROUND "G$"0"B$::24)"PLAYER 1: "G$"0000"B$24)"PLAYER 2: "G$"0000";Q,18::"NUMBER OF PLAY0 56,60:55,0::KM15360:RO1:(8):Z$(23)>2025,255`(0,7,1:4,7,1:""6);2"   "12)" ";<6)" "12)"   ";F14)"  "16);VP""4)""4)""20)""4)"";Z5)""21)""4)""6)""22)"";d4)""6)"":14)"ENTER LEVEL"n16)"1 2 3FAST SLOW"xKT$"":K E4(D$)7Q,20::29)D:R$"000000":K98(D$"1")(D$"2")jQ,6::X)K95U$":00":N1:G.:I15:M(I).:R((.)9)1:RM(1)RM(2)RM(3)RM(4)RM(5)250IN5:M(I)R::Q,6::NMNN1:250Q,6::11)W$W$" ":Q,6::10); C0I,7::TI$"000000"4hQ,14::33)W$:I18:B(I)T(I)::LGxrI17:B(I1)(O(I)3)B(I1)(O(I)3)B(I1)::M%.:I.:F.|II1:(O(I)6O(I)1)IL2440HM%:HB(I)9999E$"TOTAL TOO LARGE - PLEASE CORRECT!":F1:450"HB(I)J$B$7)N$;:I.22:I$;::K$VF7)H$G$"NUMBER CONSTRUCTION KIT"B$H$:7)L$;:I.22PI$;::M$:::F$"TOOLS:"G$" + - * /"19)B$"TIME"Z:F$"MATERIALS: "G$"0 0 0 0 0"13)"0:00"d:9)F$N$I$I$I$K$:"PROJECT: "H$G$"000"F$H$n9)L$I$I$I 3)"AIN ENU":LI$E"[1] IST ILE":"[2] DIT INE":"[3] NSERT INE"t"[4] ELETE INE":"[5] E-UN ROGRAM"""[6] E-AVE ILE AFTER DITING":"[7] RINT ILE TO RINTER","[8] XIT ROGRAM"6"NTER YOUR CHOICE AND PRESSERS? ";P$:P$""170:T(P$)48:(T1T2)P$""170v::"1 - BEGINNER":"2 - INTERMEDIATE":"3 - ADVANCED"Q,18::"LEVEL OF DIFFICULTY? ";D$:D$"1"D$"2"D$"3"210610:D1:L(1).:L(2).:U.:M3(D$"3")(D$"2"):L G1F1Q,14::Q,14::X)N%7NG1F1F.:(145)X)B$Q$G$:Y,1XF.Q,16::I.X:O$;::BSCN2:A(B):B,A128:((N15)(O.))OOC$:((TI$,4,1))K47580:C$""500C$C$"?":C(C$)48:((TI$,4,1))K47C35620N1:O1:G.:T(1).:I1ME"M(I);::V((.)900)100:Q,9::9)V;:Q,9V,:9)F$Q$G$6Q,18::"PLAYER"P::"PRESS ANY KEY TO"@"BEGIN CONSTRUCTION!":Q,14::I.28:O$;:JQ,14::CC,33:W$TY,1:A$:Q,20::I.15:O$; ^ .E$"NEGATIVE TOTAL - PLEASE CORRECT!":F1:450<M%M%B(I):IL2380PQ,14::X)M%;rQ,14::X)B$Q$G$:N%M%:480B(I1)(B(I)B(I1))(O(I)6)(B(I)B(I1))(O(I)1):380Q,16::E$:B,X:NN(N15):GG(NGG15):OONF THE ABOVE LINE IS A FIX FOR LINES WITH OVER 255 CHARACTERS. IT MAY ADD SOME ADDITIONAL CHR$(13)S BUT IS BETTER THAN LOSING DATAA$(13)230A$;:180B$"":LN9B$" ":LNLN1:B$;LN": ";:ST0260180 8:""1 "'@">";:1,A$:A((A$)):A1A8260OJA340,520,600,700,800,830,890,1000lT""13)"IST ILE":LI$^"RESS () TO ABORT OR () TO PAUSE"h"(ג)ITH OR ITH(ϒ)UT LINE NUMBERS? W";r1,A$:A$(A$,1):A$"W"A$"O"3DN$"0:"DN$",S,W"&:2:2,DV,SA,DN$:390:A$"Q"7DRFEX0570CNRF560OXEX570mb"":A0C:2,SP)B$(A)l(RO)21500:""v:2:500:C0""D$10)"NO FILES IN MEMORY":500DC1:MD:""D$15)"SORTING...."W":390:A$"Q"RFEX0750RF740& EX750@2,(1)(8);:A0C1Z 2,(4)(4);:LN100A*HB(LN256):LBLNHB256:2,(LB)(HB);42,(34)B$(A)(34)(0);>A:2,(0)(0);H2:RF$"FILE":1050:DN$"Q"\2,8,2,"0:"DN$",S,R":390:EX850*fFL1:B$(C)"":A15:#2,A$:Cp#2,A$:A$(13)910VzB$(C)B$(C)A$_880lST2:CC1:CMM1080870F$"DISK":1050:DN$"Q"""D$14)"DELETING":EN0FL0:A0C1(B$(A),2 70|"":R1LN:A$"O"410*B$"":R10B$" "9B$;R": ";DA$(R)ST1100:iC$:C$"":490C$"A":"* BORTED *":490C$" "430"* AUSED *"C$:C$""470" ":"";:430 " RESS2,16)DN$FL0FL1:SNA'(B$(A),22,16)DN$FL1ENA:ACR:FL0""12)"FILE NOT FOUND":1030iEN0ENC1:1020ASNC(ENSN):B$(A)B$(ENASN):CC(ENSN):""14)"DELETED"500:CC(C0):C0:" PUT DISK IN DRIVE AND ENTER "F$" NAME"/$" (UP TO 16 CHARACTERS) Q TO QUIT"Z.19,1:" ";DN$:19,0:DN$(DN$,16):8""D$"THE MASTER DIRECTORY IS FULL. SAVE THE PRESENT FILE AND ";B"START A NEW DIRECTORY.":500:0:A0C1(B$(A),2M(M2):M0J0:KDMIJ!LIM_B$(I)B$(L)T$B$(I):B$(I)B$(L):B$(L)T$:IIM:I0690rJJ1:JK660{680DV8:SP5:SA2:F$"FILE":NM1:DN$DN$",S,W":5501050:DN$"0:"DN$:DN$"0:Q"2:2,8,2,DN$",P,R TEST FREE MEMORY AFTER PRG LOADED TO DETERMINE HOW MANY RECORDS WE CAN USEu(0)9000MM800: C64 +4 128(0)9000MM400: C16"" B$(MM):(794)743053281,15:53280,15:KB198:RO214:60(794)18950!( 0,16S "-<">";:1,FI$:"":FI$(FI$,16)mF"FILENAME IS "(34)FI$(34):"S THIS CORRECT? (Y/N) Y";P1,A$::(A$)0"":80ZA$(A$,1):A$"Y":110dn"ISK RIVE # (8-10) 8";:1,A$:DR((A$))xDR8DR10:22)"  ":110-" EADING "(34)FI$(34):LI$PF2$FI$",S,R":LN1:" 1 : ";g8,DR,8,F2$:#8,A$ST0"ILE OT OUND":1150:1140:190#8,A$A$(13)A$(LN)A$(LN)A$ST01150:260(A$(LN))255A$;:230 L FILE NAMES",d5)"3. PRINT ALL FILE NAMES"Tn5)"4. SORT NAMES ALPHABETICALLY"{x5)"5. CREATE A SEQUENTIAL FILE"5)"6. CREATE A PROGRAM FILE"5)"7. LOAD AN OLD FILE"5)"8. DELETE A DISK"5)"9. START NEW FILE" EX220#B$(C)"":FL1:310:X2:#2,LN$V#2,HN$:NM(LN$(0))256(HN$(0)):5)NM;l#2,A$:A$""320A$(34)FLFL"FL1B$(C)B$(C)A$,A$;:2706A1X:#2,A$::@B$(C)""2:480:A$"Q"210JB$(C)""T""D$EN;M$;T;S:EN63470ERF1:" DO YOU WANT TO REPLACE THE FILE? (Y/N)"WA$:A$"N"hA$"Y"440EX0:15,"S"DN$:2:" PRESS ANY KEY TO CONTINUE Q TO QUIT":KB,0:KB,1A$::" PRESS ANY KEY TO C "*X11500: 41>M$"":1404H300:FR(I1)CD1DRK$"-"990Y\K$" "N11040jfK$","1120{pK$""1190zK$""1230M$N$(F):80300:TR(I1)CD1FT1FT90:84070FTV1F: 4,16:KB208:RO235:(27)"M":60S2RO205:KB239:65301,241:65305,241:2025,255<S$" ":C0:15,8,15:D$""F" CHOOSE ONE OF THE FOLLOWING "P5)"1. CATALOG A SET OF DISKS" Z5)"2. SEE ALONTINUE":KB,0:KB,1:,DV3:SA0:SP1:DN$"":NM0:550s""D$"PRESS [M] TO RETURN TO THE MENU ANY OTHER KEY TO PRINT"KB,0:KB,1:A$:A$"M"70DV4:SP20:SA0:DN$"":NM0&C0""D$10)"NO FILES IN MEMORY":5000NM1050:12)" PRESS Q TO QUIT"?KB,0:KB,1:A$:A$"Q"15:"":VA$"1"A$"9"180(A$)210,510,520,640,730,740,850,940,1040:70F$"DISK":1050:DN$"Q"""20(DN$)2)DN$""2:2,8,0,"$":390:A$"Q"X4:NF0::NM$(NM)^B$(C)(B$(C),(B$(C))1)UhB$(C)B$(C)(S$,20(B$(C))(NM$))NM$" "DN$prNF1CC1:CMM1080~|NF1:250RF0:EX0:A$"":15,EN,M$,T,SEN20""D$:A15:" ":EX1:: TO CONTINUE "'v""<40:K$""430iNR,7::" READING DISK NAME "15,8,15,"I0":1,8,3,"$"828:15,EN$,EM$:EN$"00"710NR,7:" DISK READ ERROR # "EN$" ":1480 HE$TV1:TT1N$(F)N$(FV):FFV:FT960&N$(T)M$/830;70:B0QNN1:XNF11eN$(X)N$(X1):sN$(F)LN$|83030:K$"Y"90:84070:B0$NN1:XFN.N$(X)N$(X1):8N$(N1)""BNC1C0L0:K$"Y"90:840NR,1::"WRITING DIRECTORY "4N8(N8)1270MNN1:N$(N)Z$:1250wS0:T18:S(N8.5)255:N1:2,8,2,"#"S(S1)255T0 15,"B-P";2;02,(T);(S(S1));:P2XNN7:15,"B-P";2;P(2,N$(X);:PP32::NX"215,"U2";2;0;18;S(S):15,EN$,EM$:EN$"00"1370.<NR,1:NF" DISK WRITE ERROR # "EN$dPT12000::1440~ZSS1:S(S)2551280dB1410n2,(0);(255);Z$:15,"U2";2;0;18;18xNR,1::"VALIDATING BAM ":15,"V0"2:15,"I0":15NR,1::"ANOTHER DISK? (Y/N)")40:K$"Y":"":NR,7:_""" PROGRAM TERMINATED """1:2:15 65418 160,2,177,45,153,137,0,200,192,6,208,246,162( 1,32,198,255,32,228,255,164,142,145,140,200Q 132,142,196,139,208,242,76,204,255 1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18n2,(0);(255);Z$:15,"U2";2;0;18;18xNR,1::"VALIDATING BAM ":15,"V0"(N$,143,16)","(N$,161,2)+NR,3::" "HE$" "VNR,7::" READING ENTRY #"N" "~828:X125432:Y((N$,X,1))127Y0770NN1:N$(N)(N$,X,30)NR,7::NC,20:N ST0730 " TOTAL ENTRIES = FN1RR(R1)V830`A(N$(F)))jA130A194:1150:tA194A130U~N$(F)(A)(N$(F),29)qNR,RL2::CL2018);""(60(A194));(32(A130))84010030:K$"Y"1440K$""120090:840100:3102,108,120,108,102,0 # 108,254,254,124,56,16&# 16,56,124,254,56,124@# 24,60,126,126,60,24[# 56,56,254,254,56,124# 255,51,102,204,153,51,102,204# 255,204,102,51,153,204,102,51# 0,3,3,3,3,3,3,3# 0,192,192,192,192,192,192,192# 3,3,3,3,3,3,3,0$$ 192,192,192,192,192,192,192,0;$. 204,102,51,153,204,102,51,255_$8 51,102,204,153,51,102,204,2552,60,102,60,0" 60,102,62,6,60,0" 126,24,24,24,24,0" 30,12,12,108,56,0" 60,102,102,60,14,0" 5 N$"ZZ":0,1:4,1:NR205:NC202:KB239:806,115fC0:A133136:B033:CC1:C,(AB):B,Ao470NR,1::"ARE YOU SURE? (Y/N)"(KB,02K$:K$""50<KB,0:F100:NR,1::"*** WORKING **** ":PNR,1:"":(M$,4,21:" N = NEXT SCREEN "6I((ND1)2.5):I19I19I80:NR,3:""VXDDIm(N$(X),4,16)",";T$((N$(X))248);((N$(X))64)64"<";(N$(XI1)(0))028020);(N$(XI1),4,16)",";T$((N$(XI1))248);hRI1R1rR1RI11|N$(R(I1)CD1)""330P(CLC)(RLR)100:120lK$"P"D1DD40:140K$"N"DN40DD40:140300NR,7::" ARE YOU SURE? (Y/N) "40:K$"Y"1440K$""440"9" DIRECTORY FILER "]" "" INSERT DISKETTE IN DRIVE ""X16:N$N$N$:N$(N$,2):N$N$N$X828861&Y:X,Y:  0X130:Z$Z$(0):;:N$(144),S(18),T$(4):D1:N0:F0:B1:R1:C0SDX017:Y:S(X)Y:NT$(1)"S":T$(2)"P":T$(3)"U":T$(4)"R"XLN$(130)(18)(18)"----------------"(Z$,11)b""l" PRESS RETURN C2LY(M2,TP(M2)):S1SC(SU(C1)):S2SC(SU(C2))NbV1VL(C1):V2VL(C2):(V113)(V20)630hl(S1S2)(V11V2)vvM106501170:LY(M2,TP(M2)1)C1:NC1:690NCTP(M1)UC(M1):CM1:""(DN$,UC(C)1)(OV$,C44);X1NC:BL$"",16):?ZM$"":NR,1::" ":120:vdNR,RL2::CL20);""(N$(RL(I1)CLD1),4,16)|nxNR,R2::C20);"";(N$(R(I1)CD1),4,16)""HE$;D1NC,21:" P = PRIOR SCREEN "DN40NC((N$(XI1))64)64"<"; 1:RIRI1>RIRII"120:[,40:CLC:RLR6K$(13)K$""K$"-"K$","K$" "K$""@K$""R1:C0JK$""K$""CC1TK$""K$""R(R12(K$""))^CN1R1:C0"BT " PRESS F1 TO BET IT ALL"0" PRESS F7 TO RE-SHUFFLE"] " -> ";:N0:BG0:B$""p*A$:A$""8104(A$(133))(N0)BGBT:>(A$(136))(N0)910H(A$(140))(N0)QU1:RA$(13)880\BG(B$"0")(A$"8")M1(A$):A$"";:1090'A$(137)ED1:DA$"D"M11:"DECK";:i$A$"S"M10:"STACK";:1090.A$(140)QU1:81020BA$:A$""1090L(A$"0")(A$"8")M2(A$):A$;:V(A$"P")(A$"F")M212,8,2,F$"W"2,0:2: 2,8,2,F$"W":2,TT:2/ "GOODBYE..."5 S X828867:A:X,A::828 X016:B14848X8:C15104X8:Y27:A BY,A:X12AA2 CY1(X12),A:Y B,255:C7,255:B1,0:C6(X12),0:X AM510 BM0:X14:SC(X)SC(S3)4606V3PL(X)2BM1O:(M10)(V33)500X17:C4LY(X,UC(X)1):V4VL(C4):V4V31490SC(S3)SC(SU(C4))BM1BMM10570CM1:1150:TP(M1)1BL$:TP(M1)0:580;:LY(M2,TP(M2)X)LY(M1,UC(M1)X):>TP(M1)UC(M1):UC(M1)UC(M1)1(UC(M1)0)gTP(M1)01150:CD$(LY(M1,TP(M1)));CM2:1150:"";:X1NC:CD$(LY(M2,TP(M2)X))"";:TP(M2)TP(M2)NC:GM1:X152:AR(0):SDK(A):DK(A)DK(X):DK(26,0!\ 60,102,12,102,60,0"f 102,102,126,6,6,0*"p 126,96,124,6,124,0C"z 60,96,124,102,60,0Z" 126,6,12,24,24,0s" 60,102,60,102,60,0" 60,102,62,6,60,0" 126,24,24,24,24,0" 30,12,12,108,56,0" 60,102,102,60,14,0" ):((BG0)(BGBT))f:" ":760Yp(A$":")(A$"/")(N11)B$B$A$:NN1:A$"";:810z(A$(20))(N0)NN1:" ";:B$(B$,1,N)810"WORKING":710:720"";:X17:CD$(LY(X,X));::" :"PILE";:`1010~""(DN$,TP(C))(OV$,C44);:KTTTT740BG:"YOU WON!":130}SPSP1:SP0DP0SP1:ST(SP)DK(DP):DPDP1740:"ENTER YOUR NAME ";N$F$"@0:"N$".MONEY,S,":2,8,2,F$"R"2,TT:2 X1498415031:A:X,A:! X1532015335:A:X,A:!6! 169,0,133,3,133,5,169b!*208,133,4,169,56,133,6,160,0,177,3,145!45,230,3,230,5,208,246,165,4,201,215,240,7,230,4,230!>6,76,76,3,96!H 24,60,102,126,102,0!R 60,102,12,48,1TP(M1)1BL$:TP(M1)0:560DTP(M1)TP(M1)1:BL$""CD$(LY(M1,TP(M1)));g&TP(M1)UC(M1)UC(M1)UC(M1)1p0580z:1170D""OV$(DN$,S343)CD$(C3):PL(S3)V3:TTTT5BG:MU1N940:TQ0:Q14:TQTQPL(Q)::GW(TQ52):GM1: XX)S::DP52:;X17:YX7:LY(Y,X)DK(DP):DPDP1:Y:TP(X)X:UC(X)X1:XlST(1)DK(DP):DPDP1:SP1:X14:PL(X)0::""DN$""BK$""CD$(ST(SP))""DP" ";6)SP" ";:" PLEASE ENTER YOUR BET"" MAXIMUM BET =* ""(142):BS828:53280,6:53281,6?II1:A:A050MBS1I,AU(20c2Z0:D$""<"PRESS D FOR DIRECTORY"FA$:A$""70PA$"D"160Z1,8,0,"$0"d:A132:#1,C$:n#1,B$:ST01:65484:160 xB$(34) "CD$(ST(SP)):760""DN$19)TT" ":NB'19)BG:5GM1010cAM1:M21:M10MU0:Z17:M1Z:350:qM10:350MUM11:970AM0:GW""DN$"  ";A$:A$""1020(A$) 0,16,5:4,16,5:(14850)242000V65298,(65298)251:65299,(65299)356c56,55:DN$"":OV$""BK$"ջ":BL$"  "#1,(133):2,(137):6,(140):7,(136)52:DK(X)X: dR(Z)(52(Z))1PnSU(X)(X13.1)1:VL(X)X13(SU(X)1)oxSC(X)(X2(X2)):1190}TT0TT500BT((TT51)52)710:720" #1 #2 #3 #4 #5 #6 #7PILE"OV$"F2-END GAME":OV$"F6-QUIT"D"DECK STACK TOTAL":"BET"Z"FROM TO";""OV$"HEARTSSPADESDIAMONDS";"CLUBS":NB1:940:NB0X17:""(DN$,X)(OV$,X44);:YX7:YX230 BK$"";:240 CD$(LY(X,X))"";*Y:XT""OV$"";:X14:BK$"";::]740o760:QU1240"":X15:B2$::TTTT52BG:940" *** MAIN LOOP,GW0:GM1:M116ED0:960:ED"":125@QU1240JGW1G$"S"250" 1,8,0,F$",P,R":2607 1,8,0,F$",S,R"A BS2[ Z(BS)256(BS1)2y "NUMBER OF WORDS:"Z:1 "15,8,15,"I0":15 ,"ANOTHER FILE? (Y/N) 6A$:A$"Y"50 @A$"N" J310 T169,0,141,58,3,141,59,3,141,60, 160 TGM0:350:310^M11380'hDP0crSPSP1:ST(SP)DK(DP):DPDP1:""DN$"";:740:GM1:|M10C1ST(SP):C3C1:400C1LY(M1,UC(M1)1):C3LY(M1,TP(M1))M21600C30S3SU(C3):V3VL(C3):V31PL(S3)&(B2$" "g2 CD$(52):C$(0)"":C$(1)"":C$(2)"":C$(3)"":CD$(0)BL$z<X03:Y113FCD$(X13Y)C$(X)""(95Y)(109X)""(173X)(159Y)""PY,XZDK(52),ST(24),LY(7,20),UC(7),TP(7):X1 **** CODER ****#"X10000:,Y1319:Z239:B$""D6""w@S$".ABCDEFGHIJKLMNOPQRSTUVWXYZ?!1234567890' "JS1$" !?ZYXWVUTSRQPONMLKJIHGFEDCBA.0987654321'"T"ENTER DATA TO BE CODED ('END' TO QUIT):":A$:A$"END" ^N1(A$)h110% #1,B$:B$(34)D$D$B$:130> #1,B$:B$(32)140^ " ";B$;" ";D$:D$"":110t "FILE NAME";F$ F$"""":160 "FILE TYPE?" "PROGRAM" "SEQUENTIAL" G$:G$"P"G$"S"210 "COUNTING" XWVUTSRQPONMLKJIHGFEDCBA.0987654321'"_"ENTER # OF DATA STATEMENTS TO DECODE:":N:L1N:B$""A$: GET FROM DATA STATEMENTN1(A$)R141&(A$,N,1)(S$,R,1)C$(S1$,R,1):R410R:B$B$C$:N DB$:L: USE B$ IN YOU(L(\] 3 L/ ]4 . p8 . ) ( ( ( 0 _* ( ( ( 0 -*a ba * ( ( ( 0 ( f)O( (( @-( (( 7 (WЈT n)TXL<( 7 4 -* n) ) L"(`mRR`\8R(]S ( R\ \]L4Zią[iX  0-Vq#`J:N` * /)iLKJ /)*O 87 4L)LO YZ7 / Yv7 4KИJO 5Y \)` ! /) N`B SALOON SHOOTOUT BOOT PROGRAM - COMPUTE!S GAZETTE JULY 1986`A0A1:"SALOON.ML",8,1~A1"CHECK DISKETTE":(:"JOYSTICK GOES IN PORT 2. PRESS RETURN WHEN READY."2239,1:10240% Z$(20):A3000:(56)64A100_A$(A):""(14)(8);:1,0,0:V203:(771)164V212LI$""(" EQUENTIAL ILE DITOR":LI$"" 2"NTER THE NAME OF THE FILE YOU WISH TO EDIT AND PRES3,141,61,3,162,1,32,198,255,32_ ^183,255,41,64,208,34,32,207,255,141,58,3,201,32,208,15,32,207,255 h201,32,240,8,238,60,3,208,3,238,61,3,173,58,3,141,59,3,76,81 r3,32,231,255,96,-1  ""DZI18:A:I,(A)::133,137,134,138,135,139,136,140TdDEV8:1850pnHM$;(X$,X);(Y$,Y);:xA(X).005.5(DP0):A1(A):A$((A1),2):X0A$"-"A$DP A2$((((AA1)100)),2):(A2$)2A2$"0"A2$DPA$A$"."A2$ +` FOR MPS-801, MPS-803, 1525 PRINTERSPeSL8192: START OF HI-RES SCREENjSC(127),A$(25,40):I0127:SC(I):TTSC(I):t T24512 "ERROR IN DATA STATEMENTS":~128,192,160,224,144,208,176,240,136,200,168,232,152,216,184,248,132D  R1412r(A$,N,1)(S$,R,1)C$(S1$,R,1):R419|RIB$B$C$:Ny""X"D"(34)B$(34)"X="X1":GOTO63020"Y,19:Y1,13:Y2,13:Y3,13:Z,4: **** DECODER ****S1$".ABCDEFGHIJKLMNOPQRSTUVWXYZ?!1234567890' "!S$" !?ZY"DIRECTORYK239,7:1319,19:1320,13:1321,19:1322,82:1323,213c1324,52:1325,13:w"DISK LOADER" CRSR TO DESIRED PROGRAM, PRESS RETURN." " 239,5:1319,157:1320,157:1321,32:1322,1*R PROGRAM, DELETE PRINTB$ IF NECESSARY$,R,1):R419|RIB$B$C$:Ny""X"D"(34)B$(34)"X="X1":GOTO63020"Y,19:Y1,13:Y2,13:Y3,13:Z,4: **** DECODER ****S1$".ABCDEFGHIJKLMNOPQRSTUVWXYZ?!1234567890' "!S$" !?ZY SiSc!R8(S (Ti2TcLn)(R8(RSSRSLn)mX$#X`(X8(X`HH   RS 4  T 4TV Щ  F iI Ș( ٠7 4(Ș `8> hhA# l } 8GAZETTE PLUS4 16CG2AATOM SHOOT AVAILBACKGAMMON BASIC WINDOWS BOLDFACEBUDGET PLANNER+4CATALOGERCHICKEN CATCHER CODER-DECODERCONSTRUCTION KIT CUSTOM LABELS DIR FILERDIR SORT DISK EDITOR BOOT DISK EDITOR.MLDISK PROTECT DISK UNPROTECTDRAGONS DENFARM GAME, FILE PROTECT FILE UNPROTECTGRAPHIC DUMP +4HI-RES DUMP +4 HIGHLIGHTER  JUJITSU KEYLOADKLONDIKE LEXITRONMATCH BLOX MENU SYSTEM +4 MIS-MATCHER POLAR ART PROOFREADER REDISK +4REDISK 16 SALOON BOOT SALOON.ML SEQ FILE EDITORSHIFTERSLOTS SURVIVOR BOOT SURVIVOR.ML TELECONVERTERWEATHER PROPH +43WORD COUNT----------------RUN ME FIRST!^  _`^eb`Zi؅[i_ ȑ_m`_)%`i+Ƚj+ 0-Vq`^`GɅ1ɉ-8酪,(8( , (^ ^`Ʉɉɍ`ɠLɢHɍDG8,mP8<)JJF F# N)F p8Lu , (<Lu,f ,)Lu,ɢɴɫd ,)Lu,Y (&"`Ii`b80be8b (Lu,ɶefddd((;;G; ; 0-*,k/<295c8;K?C GEKO}TY^ydsjp|w~~Ԁ233(؍((ԍ(VZ[`VLL((ȭ(8S4(T4J(8( ((VLͽL_ d' ((VoV Ѝ!(( ˠ5 4(( 5 4 (6 4( =:;=:;>             PPPZi[i 0- Vq1'((P((<)<( ,(i((((( /)< <` HH< /<k8<hh`UUejjjVUVl~f 3Ls@0AAAAAA>AAy}ccBAAAQ ycq8<<<<~p8 ? / 0,7,4:4,7,4I1,(133):2,(137):3,(134):4,(138):5,(135) P$(20),L$(20),E$(20),S$(20),R$(20):Q$(34):C$","M$"INSERT DISK AND PRESS A KEY":560S1$"5 DIMP$(20),L$(20),J$(20),S$(20),R$(20),E$(20)"(S2$"10 X=1:F$="(34)-2S2$S2$"SELECT"]<S3$"20 FORN=1TO20:E$(N)="(34)",8"(34)FS3$S3$":NEXT:OPEN2,8,2,"(34)PS3$S3$"0:.M,S,R"(34)":M$="(34)",8,1"(34)":Q$=CHR$(34)"ZS4$"30 FORN=1TO20:INPUT#2,P$(N),L$(N),J$(N),S$fff ()(#ʽ;;;; 0-<()`m(m(` L.J (( .J (( .JHG -G -hJHG -G -hJ?(4X/ \) 3.ZiW[i(i(i m+(`(`Zi[iG.A (((((( G( -PJRScdeeabȍT#X * n)`VL/x3 v/7XЩ؍Щ"Щ#`Ѕ (VI( VЅԠ8$9$:!: `)) ؍i(i`Zi[i((((i(((((樢 /2(f`dL1 z2{23eeee 8 V1)1 L192JԽ82(jԩԩԭZi[iHJJJȩhȱ                 !!!!!!!             ?T(+((((ȍ  *6 4(( 6 4(8(  \6 4  x6 4  6 4 (( 5(i ((Z[ :V1VXKYW 7 4 5 4` 7L4       5  5 6666666667   ߒ   ͒  #$%&'()*+ ,-./01234 SCORETIMEHIGHCARDPRESS RETURN TO PLAY AGAIN@ CsC0@C3L<Ù߿ߏÙ߿ߏ߿ߏ߿ߏsmmmm3߿ߏsmmmm3c""UTPU@EQT@UQD@DDUUEEEE@UU@DDD@UU@DDD@UUEA@DEUPPPQTUPUQPUUUUUUUUQQQPUUUUUQUUQQ@@PPPVV . (N),R$(N):IFJ$(N)="(34):dS4$S4$"1"(34)"THENE$(N)=M$"snS5$"40 NEXT:CLOSE2:PRINTF$:FORN=1TO20:PRINTN;TAB(4)xS5$S5$";P$(N):NEXT:INPUT"(34)""(34)";K"S6$"50 PRINT"(34)"LOAD"(34)";Q$;L$(K);Q$;E$(K):IFS$(K)>"5 "  F4 ...SAVE MENU FILE"C"  F5 ...WRITE MENU DRIVER"`K$:K$(133)560:390sK$(137)330"K$(134)390,K$(138)3606K$(135)600@270J570:2,8,2,"0:.M,S,R"TN120:2,P$(N),L$(N),E$(N),S$ RETURN FOR MENU"K$:K$""420*K$(13)210;K$"E"420y" ""WHICH DIGIT TO EDIT";N$:N(N$):N1N20450"ENTER PROGRAM NAME";P$(N):P$(N)(P$(N),35)"ENTER BO(N)"Y""":530 &390M0N120:P$(N)" ":L$(N)" ":E$(N)" ":S$(N)" ":R$(N)" "::h:"";M${DK$:K$""580NX"NEW"bS1$:S2$:S3$:S4$:S5$:S6$:S7$:S8$l"SAVE"(34)"@0:MENU"(34)",8" vZ( J(15):J(1)1:J(3)8:J(5)2:J(7)4Xd4,7,4:0,7,4:(8)""14)"MATCH BLOX"nL$(1)"Ϸ ̯":L$(2)""(L$(1),21)xNA$(1)"UNI-COLOR":NA$(2)" CROSS":NA$(3)"NO CENTER"NA$(4)"4 CORNERS":NA$(5)" 5 POINTS":MV$"MO 5: I1 9:CL(RX,I)8: I,RXI I1 9:CL(1,I)14:CL(3,I)14::CL(3,5)8CL(2,2)14:CL(2,4)14:CL(2,5)14:CL(2,6)14:CL(2,8)14CL(4,1)14:CL(4,3)14:CL(4,7)14:CL(4,9)14CL(5,1)14:CL(5,3)14:CL(5,5)14:CL(5,7)14:CL(5,9)14  12) S6$S6$(34)"0"(34)"THENPRINT"(34)"SYS"(34)PS6$S6$";S$(K):X=X+1"S7$"60 IFR$(K)="(34)"Y"(34)"THENPRINT"(34)"RUN"S7$S7$(34)":X=X+1:IFS$(K)>"(34)"0"(34)"THENPRINT"S7$S7$(34)"RUN"(34):SB A1$"ASCII CONVERTER":(142):T$""A1$A2$"":S$","tT$:"THIS PROGRAM CONVERTS A CBM 'ASC' FILE""INTO A STANDARD 'ASC' FILE AND -- VICE":"VERSA."("BE SURE YOU HAVE ROOM ON YOUR ORIGINAL" 2"DISK FOR THE CONVERTED FILEX4192:X5219:X61282T$:"WHAT IS THE NAME OF"K"THE FILE THAT YOU"b"WISH TO CONVERT"~NF$:NF$"""";:160T$:"INSERT DISK WITH""ORIGINAL FILE IN DRIVE":390T$:"CONVERTING"'"NF$;"' TO '"NF$"."FT$"'"!1"8:9:15:T$:"CONVERSION COMPLETED!"<,"DO YOU HAVE ANOTHERT6"FILE TO CONVERT?"g@A$:A$""320uJA$"Y"{T^ ERROR CHECKING SUBROUTINEh15,E$,F$,G$,H$r(E$)T$"ERROR!":E$;S$;F$:|"PRESS 'R' WH(N),R$(N): ^2:390'h570:2,8,2,"@0:.M,S,W"\rN120:2,P$(N)C$L$(N)C$E$(N)C$S$(N)C$R$(N)C$:h|2:210"EDIT OPTION":N19:N;(P$(N),16):"10 ";(P$(10),16);"":N1120:19)N;(P$(N),16)::" E TO EDIT OR1d HU(13),SU(13),CA$(13),CL(13),CL$(13):""Gn R(X)((1)X)Ux0,1:4,1vAA$"A23456789TJQK":Z(TI) I1 13CL(I)ICA$(I)(AA$,I,1):CL$(I)(AA$,I,1): * SHUFFLE DECK * I1 13XR(13)1:YR(13)1!8$"70 FORZ=0TOX:B=1319+Z:POKEB,13:POKE239,Z:NEXT:PRINT"(34)""LS8$S8$(34)r" MENU SYSTEM""  F1 ...CREATE MENU FILE""  F2 ...LOAD MENU FILE""  F3 ...EDIT MENU FILE"OT NAME";L$(N):L$(N)(L$(N),16)B"ENTER  1 FOR 8,1OR  0 FOR ,8";E$(N)e"ENTER SYS# OR RETURN";S$(N) S$(N)(13)S$(N)""S$(N)" ":530S$(N)""S$(N)" ""RUN COMMAND NEEDED";R$(N):R$(N)((R$(N)),1)R$(N)"N"R$!010:1319Z,13:239,Z1::B"ENTER  1 FOR 8,1OR  0 FOR ,8";E$(N)e"ENTER SYS# OR RETURN";S$(N) S$(N)(13)S$(N)""S$(N)" ":530S$(N)""S$(N)" ""RUN COMMAND NEEDED";R$(N):R$(N)((R$(N)),1)R$(N)"N"R$VES"E Y(10),P$(10),CL(5,9): I1 9: V(I,1),V(I,2),V(I,3),V(I,4):MT1:UP8:DN14:LM16:RM22:TE5:QX11:QY19:MV1:Q14:X8:P0 C1 9:Y(C)X:P$(C)L$(2):Z(10(1)) Z5 Y(C)Q:P$(C)L$(1)T$"̺": RX1 ."::390:T$&<"WHAT FORMAT DO YOU"AF"WANT YOUR CONVERTED"`P"SEQUENTIAL FILE TO BE?"Z"STANDARD OR COMMODORE ASCII?"dFT$:FT$"S"FT$"C"100nFT$"C"X196:X2123:X332:X464:X591:X6128xFT$"S"X164:X291:X332: 5,8,15,"I0":8,8,8,"0:"NF$",S,R":360O9,8,9,"0:"(NF$,14)"."FT$",S,W":360k#8,A$:A$A$(0):QPST(A$)X1(A$)X2B$((A$)X3):270(A$)X4(A$)X5B$((A$)X6):270B$(A$,1)9,B$;:QP64290"*";:230 )EN READY."A$:A$"R"400O9,8,9,"0:"(NF$,14)"."FT$",S,W":360k#8,A$:A$A$(0):QPST(A$)X1(A$)X2B$((A$)X3):270(A$)X4(A$)X5B$((A$)X6):270B$(A$,1)9,B$;:QP64290"*";:230 (I)1 910 SBI:I13CT0:CH0: * SEE WHO GETS TRICK *g 8)"YOU BID "3)CA$(HB)"ӛ":HU(HB)1 8)"I BID "5)CA$(SB)"":SU(SB)1: HBSB 12)"IT'S A TIE": 1010:R SBHB 8)"SPADES WIN THE TRICK":SSSS 0:R2 8)"HEARTS WIN THE TRICK":HSHSCL(R): 1010:RX * CALCULATE AND DISPLAY SCORE *u 8)"HEARTS SCORE ="HS 8)"SPADES SCORE ="SS I1 3000: HS46 SS46 1080CL(R)0: R13 1080$. * DIR(M)X CL(R)5 SBCL(R)R(M)MMAb CL(R)10 SBCL(R)R(M)1Ul SB13 SB13rvCC1: C20 C0: 880 SU(SB)1 580C0: 940 * CHECK HIGH HEART AND SPADE * I13 1 1: HU(I)1 690HHI:I1 1:MT1MT1!,S3MTMT1:MT5MT5A6 S15 DZMT:GKMT: 330`@3977,MT176:2953,15:290pJ (31)"";T I0 23:" "^MM3111(40I):MM,160:MM1024,70::4071,160:3047,70h"  """ӛ YOUR HAND:"', I1 13;6 HU(I)1 330M@ CA$(I);" ";UJ:kT" MY HAND:"z^ I1 13h SU(I)1 380r CA$(I);" ";|:"؛ CLUBS PLAYED:" I1 R1: R1 420 CL$(I);" ";: GK1 U9 750 U9 780M GK2 U5 Y(2)Y(4)Y(5)Y(6)Y(8)40 750n GK3 U8 Y(5)14 750 GK4 U4 Y(1)Y(3)Y(7)Y(9)32 750 GK5 U5 Y(1)Y(3)Y(5)Y(7)Y(9)40 750 610&PU: Y(U)X  CL(R):1010:R2 8)"HEARTS WIN THE TRICK":HSHSCL(R): 1010:RX * CALCULATE AND DISPLAY SCORE *u 8)"HEARTS SCORE ="HS 8)"SPADES SCORE ="SS I1 3000: HS46 SS46 1080CL(R)0: R13 1080$. * DI TC1: 420: 45050W(1)V(U,1):W(2)V(U,2):W(3)V(U,3):W(4)V(U,4)Y: G1 4:W0: Y(W(G))X W1~D W1 Y(W(G))Q:P$(W(G))L$(1)N W0 Y(W(G))Q Y(W(G))X:P$(W(G))L$(2)X:Y(U)X:P$(U)L$(2):420:450bJYJ((1)15):JB1((1 I13 1 1: SU(I)1 720 SHI:I1&? R13 SBSH: 940i HHSH HSCL(R)46 SBSH: 940 * CONSIDER REMAINING CLUBS * I1 13: IR CTCTCL(I):  I1 13: IR 800 CL(I)CH CHCL(I)  ":0,15?r"";: 15)""NA$(GK)""k|""3)"MATCHBLOX"E1:F3:"": BJ1 3: 31);: AIE F1339,CL(GK,AI):T$;::EE3:FF3:"": 420: 450"""15)*""F * SHOW CARD AND BID *t"WHAT DO YOU BID FOR THE "CL$(R)"؛ ?"239,0 A$: A$"" 470 A$"A" A$"T" A$"J" A$"Q" A$"K" 500 A$"2" A$"9" 470 I1 13"1 UNI-COLOR": 12);d"2 CROSS":12)"3 NO CENTER" 12)"4 4 CORNERS" 12)"5 5 POINTS" 12);"YOUR CHOICE  ""S(1):S7MTMT196,164,228,148,212,180,244,140,204,172,236,156,220,188,252,130,194 162,226,146,210,178,242,138,202,170,234,154,218,186,250,134,198,166 230,150,214,182,246,142,206,174,238,158,222,190,254,129,193,161,225 145,209,177,241,137,201,169,233,SPLAY FINAL RESULTS * 8""8BSSHSCO4:14)"TIE GAME":1120kLSSHSCO6:13)"COMPUTER WINS":1120VCO2:15)"YOU WIN"`""12)"PLAY AGAIN (Y/N)"j239,0tA$: A$"Y" A$"N" 1140~ A$"N" * R12 CHCL(R) 88034 HHSH CL(R)CH SBSH: 920P> HHSH CL(R)CH 880uH HHSH CL(R)CH SBSH: 920R R10 CL(R)8 HHSH CT(13R)8 880\CT0:CH0: 570f * GO FOR LOW CARD *p I1 13z SU""P$(1)P$(2)P$(3):""15)""P$(4)P$(5)P$(6)B""15)""P$(7)P$(8)P$(9)p2036,QY:2035,QX:2037,0:65520:"";:MVMV1:U0: C1 9: Y(C)X UU1: TC1 TC0:MVMV1 MV0 ""16)"MOVE"MV: 440: A$(AA$,I,1) HBI:I13: 520 FHU(HB)18:1,144,12:"":450V8:1,780,5x * COMPUTER CALCULATES BID *& R7 6700 CL(R)8 (1).38 SBR(13)1: 640:M5: CL(R)4 M3DMMR(4)N CL(R)4 SBCL(R)153,217,185,249,133,197,165,229,149h 213,181,245,141,205,173,237,157,221,189,253,131,195,163,227,147,211 179,243,139,203,171,235,155,219,187,251,135,199,167,231,151,215,183 247,143,207,175,239,159,223,191,255 4,4:I7680SL7992SL8:MH$CL$(X):CL$(X)CL$(Y):CL$(Y)H$CHCL(X):CL(X)CL(Y):CL(Y)H:] * START MAIN LOOP *l R1 13""" J U J I T S U "")128)128l JB0 820:UTE: 550(v JY8 JY3? JY1 JY4 610` 820: JY 660,680,700,720r QXUP 610QXQX3:TETE3: 740QXDN 610QXQX3:TETE3: 740 QYRM 610QYQY3:TETE1: 740 QY LM 610 QYQY3:TETE1 420: 6101 MV1 MV$"MOVE"p 830:" YOU SOLVED IT IN"MV;MV$:S130:S220:S31 840: 800  830:" NO MOVES AVAILABLE...GAME OVER":S117:S235:S31 840 " PRESS FIREBUTT  56,48:55,0::40<XR,YC:XR1,X:XR2,0:65520:OX11:YC23:20((808)23753281,15:53280,15:KB198:FL1:XR781:602KB239:FL0:XR2035:65305,241<470:"":C$(0)"":C$(1)""(C$(0),10) FFL012909,0:       "; x"         "; "    " X8:YC21:20:"DO YOU WANT TO GO FIRST":KB,0 Y$:Y$"Y"Y$"N"1:20:C$(0), 30:" YOUR MOVE (1-8) ";:KB,0a Y$:Y$"L"430:30:" ":250x Y$"1"Y$"8"260 Y(Y$)1:12400,Y:TK1:CL1:390 "YC5360 ,30:" COMPUTER MOVES ":12468 6P5(12397):P51360 @Y(123XP244:YC172P1:20:C$(CL):K30:" ENTER LEVEL (1-4) ":KB,0fA$:A$"1"A$"4"440|L(A$):L1LL112399,L:12397,0:"":X14:YC12:20:"PLEASE WAIT"FL56334,0:1,51FL01177,62A020 0,3,15,31,63,63,127,1270: 254,255,255,255,255,255,255,255TD 0,128,224,240,248,248,252,252rN 127,127,63,63,31,15,3,0X 255,255,255,255,255,255,255,254b 252,252,248,248,240,224,128,0l 255,1,8,248,10,246,247,1,255,1,255,255,1,250,169,1,141,75,49,169,8,141,141,48U 169,121,141,57,49,169,7,141,110,48,174,112,48,189,81,48,56,233,9 157,81,48,32,12,49,169,107,141,141,48,174,112,48,189,81,48,24,105 9,157,81,48,173,109,48,208,8,169,0,141,109,48,76,95,49,96,190* 89(I7680SL)81? JI7680I320:N(IJ)3201:KJ7J1:X(K)X X127XX64:60130 KJ7A$(N,M)A$(N,M)(SC(X(K1)128)):60160 A$(N,M)A$(N,M)(SC(X)) ::L125:4,(8)A$(L,M);::4,(8): 4:48,96,173,106,48,73,1,141H 106,48,232,236,110,48,208,186,96,169,0,153,89,48,190,89,48,189,81 48,201,54,144,30,201,63,176,8,169,0,153,93,48,76,140,49,185,89 48,153,101,48,185,125,48,141,109,48,153,97,48,76,151,50,74,74,74 24,121,93,4,0,141,109,488* 190,89,48,189,81,48,24,105,9,141,105,48,169,0,141,106,48,170,1734 105,48,141,113,48,173,106,48,208,5,169,0,141,107,48,189,114,48,24> 109,113,48,141,113,48,141,11,50,173,221,48,217,121,48,208,18,238,107H 48,173,107,48,2056,233+p 9,141,106,50,157,81,48,169,0,141,221,48,173,18,208,41,3,24,121qz 93,48,217,97,48,144,9,153,97,48,185,89,48,153,101,48,169,64,153 93,48,190,89,48,224,7,240,8,152,170,254,89,48,76,100,49,136,48 18,200,152,170,185,97,48,74,202,212910,255T P"         "; Z"         "; d"         ";5 n"  50 L10:430 L11:12445: ""4);:A18:A" ";:u "":A116:" ": "  " Y$"Y"250 Y((TIY)7.2) 12288Y,255:12369Y,Y9 X4Y4:YC1789):TK255:CL0:390 JP52553702 T30:15)Y1" "G ^I11800::250m h30:" YOU WIN ":380 r30:" YOU LOSE " |I13500::140 P(12369Y) 12288P,TK:12369Y,P9 P1(P9):P2((P9P1)9.1)47:A14336,(A53248):A:FL01177,63:520C1,55:56334,129:53272,30:530p65298,(65298)251:65299,(65299)356A584631:B:A14336,B: POKE 53296,0C0:A1240212972:B:CCB:A,B::C58347&"ERROR IN DATA": 05,1,0,2,8,36>v 0,1,2,16,142,108,48,174,107,48,189,129,48,24,121,93,48,153,93 48,174,108,48,96,206,111,48,160,7,152,153,81,48,136,16,249,160,80 169,0,153,0,48,136,16,248,96,172,111,48,169,0,153,97,48,9,64 153,93,48,41,0,136,16,243,20 ,48,189,81,48,141,105,48,169,0,141,106,48,170,173,105,48,141,113r 48,173,106,48,208,5,169,0,141,107,48,189,114,48,24,109,113,48,141 113,48,141,54,49,173,1,48,217,121,48,208,19,238,107,48,32,137,48 173,107,48,201,3,208,222,169,1,141,109,4 8" BEFORE YOU ATTEMPT TO RUN THIS PROGRAMf" MAKE SURE THAT THE SCREEN YOU WISH TO" DUMP TO THE PRINTER IS IN MEMORY." PRESS ANY KEY TO CONTINUE":208,0:208,1 1:0:C0:""14)"PLEASE WAIT":1804 8,153,93,48,169,129,141,144,48,169,121,141,57,49,169,7c  141,110,48,32,9,49,169,0,141,109,48,185,125,48,141,75,49,169,133 141,144,48,169,125,141,57,49,169,7,141,110,48,32,9,49,173,109,48  240,12,153,97,48,185,89,48,153,101,48,76,151,50,169 1,3,208,225,169,0,153,93,48,76,50,50,173,106,48ZR 73,1,141,106,48,232,236,110,48,208,187,204,111,48,240,53,190,89,48\ 189,81,48,141,68,50,185,125,48,141,221,48,24,169,9,125,81,48,157f 81,48,200,32,95,49,169,0,141,109,48,190,89,48,189,81,48,(08,252,136,24,121,93,48,153,93,48,96 "1300") 207A48645631:B:CCB:A,B::C77627N"ERROR IN DATA": 173,242,18,201,1,240,23,173,241,18,133,10,24,105,40,141,120,21,32 66,19,32,93,19,32,107,19,76,107,20,32,66,19,32,93,19,32,107 19,169,0,141,241,18,133,10,,160,255,32,186,255,32,192,255,32,204,255,162,4,32,201,255,169{  13,32,210,255,169,0,32,189,255,169,6,162,4,160,6,32,186,255,32  192,255,32,204,255,162,6,32,201,255,169,20,32,210,255,169,0,32,189 !" 255,169,5,162,4,160,5,32,186,255,32,192,25555,169,141,32,210,255,96,230,10,165,10,205,120,21,208,13,173,241|"T 18,133,10,206,96,21,169,13,32,210,255,96,169,0,141,105,21,141,106"^ 21,141,107,21,141,108,21,141,109,21,141,110,21,141,111,21,141,112,21 #h 162,0,160,0,185,97,21,61,70,21,240,9,192,8,208,241,173,95,21,208,17,32,255,19,32`$ 54,19,32,86,20,173,113,21,208,12,76,112,20,32,22,20,32,198,19$ 76,139,20,96,160,0,162,0,173,94,21,208,2,160,4,177,3,157,97$ 21,200,232,224,4,240,3,76,177,20,173,115,21,240,3,76,217,20,160)%,21,172,99,21B& 185,78,21,141,102,21,141,101,21,172,98,21,185,78,21,141,100,21,141& 99,21,172,97,21,185,78,21,141,98,21,141,97,21,96,173,118,21,133& 3,173,119,21,133,4,169,0,141,94,21,96,128,64,32,16,8,4,2 ' 1,0,3,12,15,48,51,60,63,192,134,21,173,113,21,201,50,240,8,169,1,141,94,21,76,134b(0 21,32,231,255,96,169,0,141,115,21,32,166,20,173,95,21,240,3,76(: 202,21,32,5,21,32,22,20,32,198,19,230,10,169,1,141,115,21,32(D 166,20,173,95,21,240,3,76,229,21,32,5,21,32,22,20,32,198,1848,1%"SPECIFY 1:1 OR BLOW-UP"G("(RETURN)=1:1 2.)BLOW-UPP2GS0Y< GShF GS290vPGS0:100ZGS1d 4850,GS:GS160n"ENTER SPACE OVER VALUE (0-40)"x GS GS0 110 GS40 1104849,GS (& " FILENAME";FF$: FF$"" 10R 4,4,7: 6,4,6: 8,8,8,"0:"FF$",S,R"#8,A$:FLST:TL$TL$A$:PSPS1: A$(13) PS80 50( FL0 3026,(1):4,TL$:6,(17):4,TL$:TL$"":PS0< FL0 30F8:6:4:4:4:"END OF DOCUMEN ON TO PLAY AGAIN"*((1)128)128810/14 204,1: 207,0:Y> 440:" ":H 54296,15: 54295,0: 54273,40: 54278,240: 54277,0R 54276,17: AS1 S2 S3: BA 60A\ 54273,B: B,A: 54273,3: 54276,0:5f 2,4,5,10,1,3,10,10,2,5,6,10,1,7,10,10,2,4,8,6,3,9,10,10,4,5,8,10,7,9p 10,10,8,5,6,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,240,0,3,248,0,7,252,0z 7,252,0,7,252,0,3,248,0,1,240,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,190169,80,141,120,21,76,121,21,162,8,230c 3,208,2,230,4,202,208,247,96,173,240,18,201,1,208,5,169,32,76 80,19,169,32,141,117,21,133,4,169,0,141,116,21,133,3,96,24,165 3,105,64,133,13,165,4,105,31,133,14,96,169,0,32,189,255,169,46  162,4,32,204,255,162,4,32T!, 201,255,169,141,32,210,255,96,32,204,255,162,5,32,201,255,162,0,189!6 105,21,32,210,255,232,224,8,208,245,169,13,32,210,255,32,204,255,162!@ 4,32,201,255,166,10,240,8,169,29,32,210,255,202,208,248,169,254,324"J 210,2,185,70,21,29,105,21,157L#r 105,21,200,192,8,240,3,76,52,20,232,224,8,240,3,76,50,20,96#| 165,3,197,13,208,14,165,4,197,14,208,8,169,15,141,113,21,32,231# 255,96,169,0,141,113,21,169,0,141,95,21,160,0,177,3,240,3,238$ 95,21,153,97,21,200 3,185,97,21,74,74,74,74,153,97,21,136,48,3,76,201,20,160,3m% 185,97,21,45,114,21,153,97,21,136,48,3,76,219,20,24,173,97,21% 109,98,21,109,99,21,109,100,21,240,6,169,0,141,95,21,96,169,1% 141,95,21,96,172,100,21,185,78,21,141,104,21,141,103195,204,207,240,243,252,255,192,192N' 192,192,192,50,15,1,0,96,0,126,80,169,0,141,99,50,169,1,15' 82,50,141,80,21,165,169,0,141,113,21,169,1,141,96,21,141,94,21' 165,3,141,118,21,165,4,141,119,21,32,177,21,173,94,21,240,6,32(& 54,21,76,j9,)N 32,54,19,32,255,19,173,96,21,208,7,238,96,21,238,113,21,96,169L)X 0,141,115,21,76,182,21,6856,62:0 SA15872:CS9528:FR159:""PTSASA65:A:XXA:T,A:zXCS"ERROR IN DATA STATEMENTS.":((14)2"AME OF FIRST PROGRAM ";F1$:"AME OF SECOND PROGRAM";F2$<"UTPUT TO RINTER? /"F SP$:SP$"" 703T""LA:"";  SA! (FR1)0 120C J$ "INES"LA"DO NOT AGREE."W SP$"Y" 120g TG1 4TG0:4,"INES"LA"DO NOT AGREE.""120,2:3:4:6 -- EXTRA LINE@ LALB 390J J$" A10:A1$""A1(A1$)*A20:A2$""A2(A2$)=LAA2256A1:Q#3,B1$:#3,B2$mB10:B1$""B1(B1$)B20:B2$""B2(B2$)&LBB2256B1:0169,0,133,160,162,2,32,198:255,160,255,200,32,207,255,240D6,153,66,62, 5):8,(140) 0,2,2:4,1:"";x" COMPUTE!'S GAZETTE DISK FOR THE PLUS/4 AND C16, 1985 - 1986 ""COPYRIGHT 1985-86 COMPUTE! PUBLICATIONS":" F1 FORWARD HELP HELP":#"ATOM SHOOT  PSP$"Y" 4,4,7:4,"OMPARING "F1$" TO "F2$".":4eZJ$" "d 2,8,2,F1$: 3,8,3,F2$:650nT12:#2,A$:#3,B$:: THROW AWAY FIRST 2 BYTESxT12:#2,A$:#3,B$:: THROW AWAY LINE LINKS A0:A CREATE MASTER INDEX OF DISKS"X"CHICKEN CATCHER C16 NOV 85":" GAME""CODER-DECODER C16 MAY 86":" SCRAMBLE DATA STATEMENTS"A$:A$(133)30A$(135)27A$(140)1000:13:INE"LA"IN  "F1$" NOT IN  "F2$"."7T SP$"Y" TG0 4p^TG1: SP$"Y" 4,"INE"LA"IN "F1$" NOT IN "F2$"."h FR,2: SA55r#2,A1$:#2,A2$: A1$"" A2$"" LA64000:320|480:320: GET NEW LINE # LBLA 460 J$"I76,11,62,132 N159,162,3,32,198,255,160,255BX200,32,207,255,240,10,217,66cb62,240,245,230,160,76,32,62l196,159,240,2,230,160,96,166v159,32,198,255,32,207,255,208251,9615,8,15:15,A,B$,C,D:AA,B$,C,D::#2,A2$ATION. OTHER USE IS A VIOLATION OF UNITED STATES ANDg INTERNATIONAL LAW. : THIS DISK CONTAINS 39 DIFFERENT PROGRAMS THAT I HAVE MODIFIED PER INSTRUCTIONS GIVEN BY COMPUTE!'S GAZETTE, PLUS BUGFIXES C16 OCT 85":" LOGIC GAME"x"AVAIL C16 MAR 85":" ARTIFICIAL INTELLIGENCE""BACKGAMMON C16 NOV 85":" BOARD GAME""BASIC WINDOWS C16 JAN 86":"$""A(A$)!B0:B$""B(B$)6 A0 B0 300MA0LA64000:180h480: GET LINE NUMBERB0LB64000:200520: GET LINE NUMBERLALB 320: CHECK FOR DIFFERENT LINE #LA64000LB64000300"HECKING LINE27." F1 FORWARD F3 PREVIOUS HELP HELP":}"CONSTRUCTION KIT C16 MAR 86":" NUMBER LOGIC GAME" "CUSTOM LABELS C16 FEB 86":" PRINT LABELS ON 1525/801/803".!"DIR FILER NE"LB"IN  "F2$" NOT IN  "F1$"."3 SP$"Y" TG0 4lTG1: SP$"Y" 4,"INE"LB"IN "F2$" NOT IN "F1$"." FR,3: SA55#3,B1$:#3,B2$:B1$""B2$""LB64000:320520:320 -- GET LINE NUMBERS#2,A1$:#2,A2$ C16 APR 86":" DISK DIRECTORY CUSTOMIZER"""DIR SORT C16 MAR 85":" SORT DISK DIRECTORY"#"DISK EDITOR BOOT/ML C16 FEB 86":" VIEW DISK ORGANIZATION"*$"DISK PROTECT / UNPR OF MY OWN.W PLEASE RESPECT THE HARD WORK OF THOSE WHO ENTER IN THESE PROGRAMS FOR YOU TO USE WITHOUT CHARGE. A NOTE OF APPRECIATION FROM YOU WILL BRIGHTEN A PROGRAMMER'S DAY! : : 1,(133):2,"":3,(13 SCREEN WINDOW ROUTINES"l"BOLDFACE C16 AUG 86":" PRINT BOLD ON 1526/MPS-802""BUDGET PLANNER PLUS/4 JUL 86":" SIMPLE SPREADSHEET""CATALOGER C16 MAR 86":" TO PLAY AGAIN"*((1)128)128810/14 204,1: 207,0:Y> 440:" ":H 54296,15: 54295,0: 54273,40: 54278,240: 54277,0R 54276,17: AS1 S2 S3: BA 60A\ 54273,B: B,A: 54273,3: 54276,0 GAME"0$:"C16 INDICATES THAT THE PROGRAM WILL WORKON A C16, C16+64K, OR PLUS/4."u$"PLUS/4 INDICATES THAT A C16+64K OR A PLUS/4 IS REQUIRED."$:"SOME PROGRAMS MAY ACCESS THE DISK DRIVE DURING OPERATION. BE SURE TO MAKE A" %"BACKUQ COMPUTE!'S GAZETTE PLUS/4 C16 DISK COPYRIGHT 1985-1986 COMPUTE! PUB. ASSEMBLED BY JAMES C OCTOBER 2002 DOCTORDUCKIE @ CBM264.COM THIS DATA IS INTENDED FOR USE ONLY BY PERSONS WHO OWN A COPY OF THE7 ORIGINAL PUBLICOTECT C16 DEC 85":" LOCK OR UNLOCK WHOLE DISK"~%"DRAGON'S DEN C16 DEC 85":" GRAPHIC/TEXT ADVENTURE"&"FARM GAME C16 OCT 85":" FARMING SIMULATION" '"FILE PROTECT / UNPROTE EP 86":" CARD GAME AGIANST COMPUTER"d2"KEYLOAD C16 JUL 86":" DISK DIRECTORY LOAD"3"KLONDIKE C16 MAY 86":" SOLITAIRE GAME"4"LEXITRON C16 FEB 86":" )62<A$(135)30=A$(140)1000:47:Չ59E>" F3 PREVIOUS HELP HELP":?"SALOON BOOT / ML C16 JUL 86":" ARCADE GRAPHIC GAME"@"SEQ FILE EDITOR C16 JUL 86":" LINE BASED ED !IA$(140)1000:62:Չ71@"1,"GRAPHIC":2,"DLOAD"(34):3,"DIRECTORY"(13):8,"HELP"(13)K"X(0)e"X122881,"SYS1525"":"FUNCTION KEYS HAVE BEEN RESTORED TO DEFAULT DEFINITIONS. THANK YOU FOR"""DOWNLOADING THE COMPUTE!'P OF THIS DISK, AND RUN PROGRAMS FROM YOUR BACKUP. KEEP THIS DISK SAFE!"R%:"REPORT BUGS TO DOCTORDUCKIE @ CBM264.COM"|%:" PRESS ESCAPE TO QUIT,"%" OR ANY OTHER KEY TO RETURN"%A$:A$(27)900:Վ NOV 85":"  ATION. OTHER USE IS A VIOLATION OF UNITED STATES ANDg INTERNATIONAL LAW. : THIS DISK CONTAINS 39 DIFFERENT PROGRAMS THAT I HAVE MODIFIED PER INSTRUCTIONS GIVEN BY COMPUTE!'S GAZETTE, PLUS BUGFIXESCT C16 DEC 85":" LOCK OR UNLOCK FILES"S("GRAPHIC DUMP PLUS/4 SEP 86")" PRINT GRAPHIC SCREEN ON 1526/802"*"HI-RES DUMP PLUS/4 JUL 86":+" PRINT GRAPHIC SCREEN ON 1525/803", WORD GAME"?5"MATCH BLOX C16 NOV 86":" LOGIC GAME"6"MENU SYSTEM PLUS/4 OCT 86":" DISK DIRECTORY LOAD"7"MIS-MATCHER C16 DEC 86":" COMPARE PROGRAMS")8ITOR"6 A"SHIFTER C16 MAR 86":" ARCADE GRAPHIC GAME" B"SLOTS C16 SEP 86":" SLOT SIMULATION" C"SURVIVOR BOOT / ML C16 MAR 86":" ARCADE GAME"!D"TELECONVERS GAZETTE PLUS/4 AND C16 DISK."#:2#"THE PROGRAMS ARE LISTED AS FOLLOWS:"h#:"FILENAME ON DISK C16 OR PLUS/4 ISSUE"#" BRIEF DESCRIPTION OF FILE"::"SAMPLE:"#"CHICKEN CATCHER C16 NOV 85":" * F2:XS160:YS100:SF.73:BC0:CC1ICL$(147):CL$: 0,1:4,7]I13:D$(I):(CL$:1,14,1,"":(18)(158)" POLAR ART ";(146)2I13: 1,14,10I2,"":I;(157)(46)(32)D$(I):<1,12,23,"":(158)"YOUR SELECTION? "FA$:A0,300:350:AN0FS:RPR1R2(N1AN):330FA$:A$""ANF:260Q:340dA$:A$""160m2601,2,10,"":"YOU MUST ENTER VALUES FOR":2)"N1,N2,R1, AND R2."1,2,13,"":"THE SUM OF R1+R2 MUST BE <= 135."1,5,20,"":"N1,N,15:TD1700::A ,CL$:1,5,12,"":(5)"PRESS ANY KEY TO END DRAWING"s 61,5,13,"":"AND RETURN TO MENU.":I01000: @0,1:1,2: 1,1: J1,XSRP(AN),YSSFRP(AN): T6: 1,900,20: ^S.04(N1N2).0015T.00005:S.005S.005 hA$:A$(133)47-A$(135)13,.A$(140)1000:30:Չ44e/" F1 FORWARD F3 PREVIOUS HELP HELP":0"HIGHLIGHTER C16 JAN 86":" HIGHLIGHT REM STATEMENTS"1"JUJITSU C16 S"POLAR ART C16 NOV 86":" MATH GRAPHICS"}9"PROOFREADER C16 FEB 86":" CHECKSUMS FOR TYPE-INS":"REDISK C16 AUG 85":" DISK BACKUP SOFTWARE";A$:A$(133TER C16 MAR 86":" CONVERT CBM/ASCII"j!E"WEATHER PROPHET +4 PLUS/4 SEP 85":" WEATHER PREDICTOR"!F"WORD COUNT C16 MAY 86":" COUNT WORDS IN W/P FILES"!GA$!HA$(135)475):8,(140) 0,2,2:4,1:"";x" COMPUTE!'S GAZETTE DISK FOR THE PLUS/4 AND C16, 1985 - 1986 ""COPYRIGHT 1985-86 COMPUTE! PUBLICATIONS":" F1 FORWARD HELP HELP":#"ATOM SHOOT  27." F1 FORWARD F3 PREVIOUS HELP HELP":}"CONSTRUCTION KIT C16 MAR 86":" NUMBER LOGIC GAME" "CUSTOM LABELS C16 FEB 86":" PRINT LABELS ON 1525/801/803".!"DIR FILER OTECT C16 DEC 85":" LOCK OR UNLOCK WHOLE DISK"~%"DRAGON'S DEN C16 DEC 85":" GRAPHIC/TEXT ADVENTURE"&"FARM GAME C16 OCT 85":" FARMING SIMULATION" '"FILE PROTECT / UNPROTECT C16