L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`A$"GAIN"B30970J"YOU NO LONGER HAVE SUFFICIENT FUNDS"g"TO OPERATE YOUR SHIP."m"YOU STARTED WITH 4E6 CREDITS.""YOU NOW HAVE ";B2;".""CARGO IN HOLD IS WORTH ";T1"THIS REPRESENTS A ";A$;" OF ";G1"CŠϠҠҠ٠ŠӠǍ󮠠堮ꍮӠ٠ԠӠĠ͠Š      ͠٠٠٠ȠͭĠӠ٠ŠӠΠӠĠ٠ŠŠϠŠĮŠ׮ԠŬ̠獍ϠϠʮҠϮҠ͠Ҡ͠נƠŠӠϠŠĮՠĠŠĠҠǠנӠϮɠŠՠŠĠŠϠˠԠԠĠŠנ٠ŠҠӠŮɠˠĠϠǠ͠ՠήǠǬɠϠ٠ǠӬԠŠ٠͠ӠԠ⮍Ǎ΍宠󮠠𠠠Ѡՠꍮ獍ӍʍŠȠɠ堠ʠˠ宍獍ꍮΠӠΠŠō̍ 򠠠ĠѠΠծქi F { ȪbHPh ĝĝ  88! ڤ \ĝ ;LL! ک g R  ȱ3   PQȑ ȄȄ  l9'qr  r`qqr F ߠȥPȥQ` l , Rqȑrȑ ` g R lݩP`Q) `8 Ȑե Rqȑrȑ e)128):X13000:::08*bADDRDOSADDR:ERRNO1ī25110Z4bN10:N2ERRNO2:ERRNO4N21~>bADDRADDR1:(ADDR)192ī25150HbN1N11:N1N2ī25150RbADDRADDR1:25110$ѸȱȱeLԱ, 8Hȥh 8)1CUR$(QSN):a ERROR TRAPPING ROUTINEPa198:198:198aERRNO(222):LINE(218)(219)256:ASADDR53856:DOSADDR43380 bADDRASADDRERRNO:ERRNO0ERRNO16ī25130b((ADR));:ADDRADDR1:(ADDR)192ī25110 b((ADDR,2)P(P2)B1H(I,3)%< T1T1H(I,2),F ILP ==GET CARGOS FOR SALE ==VZ N15ad I15kn D20zx T2B(N2) A(I,1)T2 3530 T212750 J1(T21)8 D9 J J16 D3 D2D2D3S(J) J P2C(R1)120~ H(I,1)02630" 35305 H(I,1)12490K J1(H(I,1)1)8S D9Z Jd D20o J16w D3 D2D2D3S(J) J B1 P2C(R1)D21 P212580 P21 P2142600 P214( H(I,4)P(P2)1002 H(IS1I; == GET STAR TRADE & LOCATION DATA ==E3470TS112340f I1(S11)3n D9u I$ X3,Y3,M1. I168 M22(6I)B S(I)(M1M2)L M1M1S(I)M2V I` == APPRAISE CARGO IN HOLD ==j T10t I == TRAVEL SUB =="pB202190_z"YOU CANNOT LEAVE STARPORT UNTIL ALL DEBTS ARE CLEARED"e"ENTER DESTINATION STAR NUMBER";IIS12240"YOU ARE ALREADY AT ";II((I))I0IN312270"INVALID STAR NUMBER"T6T6.003H(K,1)0:"TRANSACTION COMPLETED"@Y LIST STARPORTS SUB :3::"STAR #";11);"NAME";21);"CLASS";28);"DIST";34);"DIRECTN" *I1104A$,B$>2);I;6);A$;22);B$;28);D$(I);35);T$(I)RI\f;Ib,l === SELL CARGO SUBROUTINE ===Xv"ENTER PARTITION OF CARGO TO BE SOLD";_K|K((K))K0K211960"INVALID PARTITION NUMBER"H(K,1)01990"CARGO PARTITION IS EMPTY"B2B2H(K,2)W2W2H(K,3)0H(I,1)01790IG"ALL 20 CARGO PARTITIONS ARE OCCUPIED"MXJ14kH(I,J)A(K,J)rJA(K,1)0&W2W2H(I,3)0B2B2H(I,2):T6T6.003DN1N11N"TRANSACTION COMPLETED"X"CARGO STORED IN PARTITION "61650 ^"INVALID LOT NUMBER"&h9rA(K,1)01680e|"LOT ";K;"HAS BEEN ALREADY PURCHASED"kA(K,2)B21710"YOU CANNOT BUY CARGO ON CREDIT"A(K,3)W21740"YOU DO NOT HAVE SUFFICIENT CARGO SPACE"I12A(I,1)01570'J119A(I,1)/A$6J>A$t" ";I;4);A$;20);A(I,3);26);A(I,2);34);A(I,4){"I,6 == BUY CARGO SUB ==@"ENTER THE LOT NUMBER OF THE CARGO YOU "B"WISH TO PURCHASE";JKTK((K))K0K;H(I,2);34);H(I,4)xI B === LIST CARGO FOR SALE ===g"CARGOS AVAILABLE FOR PURCHASE"vN101470"ALL AVAILABLE CARGOS HAVE BEEN PURCHASED"" # ";6);"DESCRIPTION";20);"AMT";26);"PRICE";34);"BASE %"I15GO STORED IN HOLD."#W2W11290D"ALL PARTITIONS ARE EMPTY."J "PRTN";6);"DESCRIPTION";20);"AMT";26);"PRICE";34);"BASE %"I120(2H(I,1)01400<J119H(I,1)FA$PJZA$d" ";I;4);A$;20);H(I,3);23)E3N4(E5E3)10`4j"ENTER COUNTER OFFER ";<tE7M~E7E51210]E7E61180}(E5E7)(E5E6)(R1)1210"OFFER REJECTED - TRY AGAIN."N4N411110"OFFER ACCEPTED."E3E7 == LIST HOLD =="CARREDITS PER YEAR."46303 == STRIKE SUB ==9]$"THE CREW HAS GONE ON STRIKE."."YOU ARE CURRENTLY PAYING THEM ";E33"CREDITS ANNUALLY."8E5E3.5(R1)E3B"THEY ARE ASKING FOR ";E5G"CREDITS ANNUALLY."LN40VE6ǠɠŠŠҠɮҬŠحӠȠɠĠȠàŠԠǮΠŠŠп٠Ӯ獍ϺȠōͺƠҬŠōźǠĠǍҠҮźɡɧ͠נҠƠàĠĠŠŠǠҠŠҠŠҠŠΠحƯԠҮɠŠΠŠɠӬˠ͠ĬįĠĠΠΠĮҠĠ0000.,2&-0 -2,2,-6,0,6,-4,150000.,1G-: 3,3,-1,0,-3,0,10000,1 e-D 3,-1,3,-1,0,-2,70000.,1-N 4,-2,3,-1,-5,2,6000,1-X 0,0,-4,4,1,1,100000.,1-b 0,1,-3,3,2,1,75000.,1-l 1,0,-4,2,1,0,250000.,1-v -1,0,-2,3,0,0,150000.,1. 1,0, 2,0,-1,1,0,0,6.00000E+06,1=, 1,0,-2,0,0,0,1.00000E+07,1[, -2,2,-2,1,1,0,300000.,1x, 0,2,-2,0,0,1,700000.,1, -2,6,-4,1,0,0,30000,2, -1,6,-5,2,0,0,30000,2, -1,3,-2,0,0,0,200000.,2, -4,7,-8,4,5,0,10000,2-& -3,6,-4,1,0,0,53,9.3,22+ -.89,10.26,104+ == CARGO DATA ==Q+ 3,-2,2,-2,0,-4,20000,1s+ 0,1,4,-3,0,-2,1.00000E+06,1+ -2,0,-4,6,1,-2,200000.,1 + -1,4,-4,3,-2,0,100000.,1+ 4,-2,4,-4,-1,1,1.00000E+06,1+ -2,4,-3,3,1,-1,1.00000E+06,1,* "COPPER"%* "PETROCHEMICALS"1* "TIN"?* "STEEL"P* "ALUMINUM"g*" == STAR DATA =={*, 2.83,-7.36,20*6 -2.4,-3.56,9*@ 8.38,9.93,2*J -6.1,0,24*T 0,0,32*^ -8.87,2.05,5*h 8.45,6.65,18*r 2.99,7.42,1+| -4.4ILVER")n "SPICES".)x "ELECTRONIC PARTS"G) "MECHANICAL PARTS"`) "CYBERNETIC PARTS"w) "COMPUTER PARTS") "MACHINE TOOLS") "SPACE SUITS") "FRUIT") "TEXTILES") "POLYMERS") "JUICY MEAT") "GRAIN") "WOOD"OYS"( "PHARMACEUTICALS")( "GEMS";( "AIRCRAFT"N( "GRAV SLEDS"`( "COMPUTERS"l(  "ATV"x( "AFV"( "FIREARMS"(( "AMMUNITION "(2 "PLASMA GUNS"(< "TOOLS"(F "BODY ARMOR"(P "FARM MACHINERY"(Z "BOOZE")d "S "BARNARDS STAR","I,P"('t "SOL","R"A'~ "ROSS 154","NI,NA"_' "EPSILON ERIDANI","A,P"y' "LUYTEN 726-8","NA"' "LUYTEN 789-6","A,NI,P"' "ROSS 248","A,I"' == CARGO NAMES ==' "CRYSTALS"' "RADIOACTIVES"( "SPECIAL ALLBROUTINE ===& 3470$& L13N3,& D93& L9& h& == RESTORE TO PRICE DATA SUBROUTINE ==r&3530&L18N2&$D9&.L&8&B == STAR NAMES ==&L "LALANDE 21185","NI,P"&V "ALPHA CENTAURI","NA,P"&` "SIRIUS","A"'jIST STARPORTS"5%p 8);"6";16);"TRAVEL TO NEW STAR"e%z 6);"7 OR ";16);"LIST AVAILABLE COMMANDS"y% 4);"LARGER #"% % == RESTORE TO STAR DATA SUB % % L1(2N3N2)% A$% L% & == RESTORE TO CARGO DATA SU$ "CREW SALARY ";E4.$ B2B2(E1E2D4E4)4$* Z$4 5);"COMMAND";16);"DESCRIPTION"`$9 $> 8);"1";16);"LIST CARGO IN HOLD"$H 8);"2";16);"LIST CARGO OPTIONS"$R 8);"3";16);"BUY CARGO"$\ 8);"4";16);"SELL CARGO"%f 8);"5";16);"L ==# T6T6.02D4.02,# E4(T6T7)E37# T7T6=# L# S113290Z# I1S11e# A$,B$l# Iw# A$,B$}# # :3:"YOU HAVE ARRIVED AT ";A$;"."# "EXPENSES HAVE BEEN DEDUCTED AS FOLLOWS:"# "DOCKING FEE ";E1# "FUEL ";E2D40"D T(I)3603160'"N T(I)T(I)3608"X T(I)03180K"b T(I)T(I)360b"l D(I)(X22Y22)"m D$(I)(" "((D(I).005))"."((((D(I)100)100.5)),2),5)"n T$(I)(" "((T(I).5)),3)"v I# == ARRIVAL EXPENSES AND STAR NAMES== DISTANCE AND DIRECTION OF STARS ==3! D4D(S1)=! 3470I! I110W! X1,Y1,D9e! X2X1X3s! Y2Y1Y3! X203110! Y203090! T(I)90! 3180! T(I)270! 3180!& T(I)(Y2X2)1803.14159!0 X203140": T(I)T(I)18D21 P212820 P21-  P21428408  P214N  A(I,4)P(P2)100Y " B1,Q1c , Q21s 6 T2172910} @ Q25 J T2322910 T Q210 ^ Q30 h J1Q1 r Q3A(R1)Q2Q3 | J A(I,3)Q3 A(I,2)B1Q3P(P2) I%! 﩮ɠ󮍍򍳷Ƞ獍Ԡ̍Ԡ֮ΠŬ̺ RUN ";( A$:(A$)96A$((A$)32)L A$:A$"M"A$"R"Č198:162 A$"R"ĉ::PK3000,3100,3200,3300,3500,3600,3700,3800,3900,4000,4100,4200,4300,4400 :70 +:: ,(21(A$)2):A$: 21:3:"M = MENU R = RUN PROGRAM ";:A1D0D0CCC5D3CFC6 *APPLESOF*"J :"WRITTEN BY JONATHAN ALLEN COOK 1983"g :"]BRUN MONITOR ASCII"v (37)1:I"WITH THEIR ASCII REPRESENTATIONS AT THE"I P"RIGHT SIDE OF THE SCREEN"v Z"THE PAGE SIZE IS THE SAME AS WITH THE" d"MONITOR LIST COMMAND ('L')" n:"NOTE THAT CTRL-CHARS ARE REPRESENTED" x"BY PERIODS" }"EXAMPLE DISPLAY:" ~"AAB8- Cw  :#"MONITOR ASCII DUMP"F:"THIS PROGRAM RUNS AT $300"s(:"WHEN RUN, IT INSTALLS AN ASCII DUMP"2"FEATURE ACTIVATED BY THE CTRL-Y COMMAND"7:"COMMAND SYNTAX:
"<:"IT DISPLAYS A SINGLE PAGE OF VALUES") FEW DISPLAY"r(37)1:D NOT BE"/ J"USED FOR VERIFICATION PURPOSES"] O:"SPACE BAR AND CTRL-S (AUTOSTART ROM)" P"WILL STOP THE DISPLAY UNTIL ANOTHER" Q"KEY IS PRESSED" T:"THIS PROGRAM RUNS AT $6000" ^:"WRITTEN BY JONATHAN ALLEN COOK 1983" h:"]BRUN SKT READ THE": "TRACK CORRECTLY IT WILL RECALIBRATE THE"Y "DRIVE ARM AND TRY AGAIN" ""IF IT FAILS AFTER 3 TRYS IT WILL EXIT" ,"WITH A 'READ ERR'" 6:"THIS PROGRAM DOES ";::"NOT";::" VERIFY THAT THE" @"CHECKSUM IS CORRECT AND SHOULPACE BAR TO CONTINUE";D 16368,0:16384,128:(16384)160210R 16368,0 :"THIS PROGRAM WILL READ BOTH 13 AND 16" "SECTOR FORMATS AND DISPLAY THE SECTOR" "NUMBERS AS IT READS THEM FROM THE DISK" :"IF FOR ANY REASON IT CAN NO3.3 IS DONE IN THE"A "SOFTWARE (RWTS, IN THIS CASE) AND THUS"n "IT NEEDS NO SPECIAL ORDER ON THE DISK" "THIS IS ALSO TRUE WITH PASCAL DISKETTES" :"DOS 3.2 HAS A IT'S SKEWING PATTERN ON" "THE DISK (TRY THIS PROGRAM ON ONE)" :"S"FORMATTING"= Z:"ON MOST DOS 3.3 DISKETTES THE PATTERN"j d"WILL BE THE SAME, SECTORS 0 THRU F IN" n"ORDER, BUT NOW AND THEN YOU MAY FIND" x"ONE THAT IS DIFFERENT (MANY OTHER" "PATTERNS ARE MORE EFFICIENT)" :"THE SKEWING FOR DOS   ::,"SKEW DISPLAY INSTRUCTIONS"\:"SKEW DISPLAY WILL SCAN THE DISK IN THE"("CURRENT DRIVE AND DISPLAY IT'S SECTOR"2"SKEWING PATTERN"<"THIS IS THE ORDER THAT THE SECTORS WERE"F"ORIGINALLY WRITTEN TO THE DISK DURING" P000,2!/ 2,2,3,-4,-1,-2,9000,3:/ -1,2,6,0,0,0,500,4V/ -1,1,3,-2,0,-2,1000,5n/ == PRICE DATA ==/  .4,.5,.7,.8,.9,1,1.1,1.2,1.3,1.5,1.7,2,3,4/D$(4):D$;"RUN JMS"/-2,1,0,0,750000.,10. -1,2,-3,2,2,0,400000.,1K. 1,2,3,3,-4,-6,1000,2g. 3,0,-3,1,-5,-3,3000,3. -2,0,3,3,0,0,7000,4. 0,0,5,2,-5,5,1500,4. 2,0,4,-2,3,0,10000,6. 0,0,1,3,-5,6,300,8. 0,0,1,2,-7,3,1000,2/ 2,2,3,-2,-1,-4,2č΍РӍӍӠӍԠÍ٠ǠˍԱԲԳԳ ΍٠ōˬŠӠŠŠ٠ΠŨԠ٠ΠŠ˭өǍʍ΍ŠǠſ̍ʍɠ젨y?gsgyx>~`y?`~?~s?~Oy?~yOsOyOgs?~<~gyysy?~y|?~??~~sa?~Oy?~OOw]]}]ox}]_ysy?~Cy?~|a~?~xs?~yy?~y?~OsOysyx?~?`~?s?~y?~yOsO y?~?~Onnn|y?~?~s?~yy@~?~y?~?x?~OsO_;o{;{{~o;Wn_[][{?}]}}y?~x?xy?~a~?~s?~yy?^y?~OsO PLOT SCREEN FULL( SUM OF DICE"2 Z24:" NUMBER OF ROLLS = ";E [24:19:ROLL;y _D1(16(1)):X58D1:Y(X)Y(X)1:X,159Y(X) `D2(16(1)):X758D2:Y(X)Y(X)1:X,159Y(X) aSUMD1D2:X1698SUM:Y(X)Y(X)1:X,159Y(X) bROLLROLL1 c91 d:" DICE SIMULATION USING RND(.M PLOT NUMB OF OCCURANCESk OF EACH DICE VALUE AND SUM OF BOTH DICE GERALD GRIFFITH 8/27/83  100Y(280)ROLL1(:32 P22:" DICE 1 DICE 2 ξ宍獮ˮÍǍ؍ɠǍ䮍ᠴ栨ĩ¹ɠᠱ讠ؠ٠ˠ蠨ˠ蠨䮠堍 ԢƠˠΠō Ԡ̨̍  ԢƠˠΠō  Ԡ̨̍Ϡ獮̠̠ɠǠɠɠō Ԣ̨  Ԣ̨󮍍ɠ¹宍¹Ǡ٠ǠˍϠ٠ŠŠԍà󠭠젱֮ɮîꍮ獍Ǡ     ֮ؠ獮ӍꍍɠŠŠӠԠɠĠŠϠŮɠ͠ĠΠҠӠĠŠӮ̠Ƞ̠ӠĠΩŠǠϠŠΠŠϺĠy?gsg8>~y?`~?s?n}Oy?~pOyOgs?~<~gyysy?~y|?~??~?spOy?@O|]]}M~cUgysy?~xy?~a~?~s?|yy?~y?~OsOysysy?~pa~?sa?~y?~yOsOy?~O~nf|y?~?~s?~~yypy?~a?~OsOG;G};{`Goq?X[|?}aAAy?~`gy?~a~?~sa?~yy?^y?~OsOy?~yOaC<~C?~}gyysy?~y?~yn|???sO@y?^@y~?x?~yyOs8uy?~~@sOsOyxygyO?~?ws?~yyOg8why?~?~OsO_?727?7?;}]}w~wwvw~yGgsgyy?n=~y?~|a~???>~Oy?~OOy?~yOgC<~g?~gyysy?~yq|?~??~?ws?~sOyO|}]}Ypo}]I}ysy?~|y?~a~??~~yy?~y?~OsOysyx?~ny?~a~?wsa?~Oy?~yOsO_G;onC{q;`?\|?aa}cy?~Oojl|y?~?~s?^~yy?~y?~<~OsOy?~?~y?pa~?~?wsa?~yy?~y?~OsOy?~yOaC<~p?~gyyO~ay|?~s?>sOy?~gyyO?~?wC?~yyO37ry?~a?~OsO_|75v>0?;x}]}w}`wwv~y;gsgyyx=~y?pa~?s?~}Oy?~OO~yOgs?~?~gyyx?~y|?~??~?xsa?~sOyO~a]}Uox_U{ysy?~ay?~a~?~s?~}yy?~y?~OsOysysy?~qy?~|a~??ps@y?~yOsOy?~Oqjj|y?~?~?>~yyx`y?~?~OsOy?~C`yy?~|a~?~xs`yy?y?~OsOy?~yOaC<~s?n}gyyxx?~yyq|?~s?>sOy?^?~yO?~x~?~yyOs7uy?~?xa?~OsO?85u=78Ga]}w|wv0E$(E)(V(E)48)/ V(E)9E$(E)(V(E)55)5 T I$E$(4)E$(3)E$(2)E$(1)_ E13{ (I$,1)"0"I$(I$,2)  &"$";I$ 0 616 TX3KK16 ^IIK$ h+ rI1 |= I(I$)P I0II65536e I0I65535240 V(1)((I16(I16))16) V(2)((I256(I256))16) V(3)((I4096(I4096))16) V(4)((I65536(I65536))16) E14 V(E)1240 Z1 I$I$(Y)# 2 I$""240? L2260L L1400a "INVALID VALUE"g  (I$)4I$(I$,4) I$("0000"I$,4) X14 "H$(I$,X,1) ,H$(58)K(H$):320 6K(H$)55 @X1KK161616 JX2KK1 "DEC/HEX CONV"#"VALUE";)1L1=(51,186G2662V<X512767eFY(X)128sPY32200ZY13210dZ0Y36Z1:L2:200nZ0Y45180xL2150Y47Y58180240Y47Y58180Y64Y71180 ygs~gyy?~?~y|?~??~s?nOy?~OOy?~yO33~?x?ngyysy?~yn|?~??~xs?~sOyO}aacysysy?~~pa~?s?~}yy?~y?~OsOygsgy?~?~sy?~|a~?}s?~Oy?~yOsO_A{;o_;;{oAoC;w__[{/x]]}_y?~_pn1y?~?~s?|yy?Ny?~~OsOy?~?xy?`~?~xs?~yy?~y?~OsOy?~}yOaC<~?~gyyO@oy|?~s?>sOy?xy~ps?~yyOgoy?~|?~OsO_8wx?7?pG}aAcwygsgyy?>~y?~??~s?^Oy?~OOy?~yO0~a?|gyyx?~yn|?~??~?ws?~sOyOw~}]}]ys~c]Ayx?~py?~|a~?s?>~yy?~y?~OsOy`y?~?~oy?~a~?{s?~Oy?~yOsOO;;g?W;{no{;o__[[{]]}]y?~Ondn|y?~?~s?n~yy?^y?~0~OsOy?~x@y?`~?~?ws?~yy?~y?~OsO% "VALID RANGE IS -65536 TO 65535"J :"BY JONATHAN ALLEN COOK 1982"e :"]RUN DEC/HEX CONV"t (37)1:FFFF, NUMBERS"5 U"GREATER THAN THIS WILL BE RIGHT"_ V"JUSTIFIED TO FOUR DIGITS (LIKE THE"o W"MONITOR)" Z:"A DECIMAL NUMBER MAY BE CONVERTED TO" d"HEXIDECIMAL JUST BY ENTERING THE" n"DECIMAL NUMBER" x"NEGITIVE VALUES ARE ACCEPTED"u  :&"DECIMAL/HEX CONVERTER"S:"THIS BASIC PROGRAM WILL CONVERT HEX"s("TO DECIMAL OR VICE-VERSA"2:"TO CONVERT FROM HEX TO DECIMAL ENTER"<"THE HEXIDECIMAL NUMBER WITH A '$'"F"PRECEDING THE NUMBER" P"VALID RANGE IS $0-$  Ҡ獍ɠﮠɠӠ宠堢Ӡ̠Ԣ場亠ӬҬ 󮠠栱ꍨĩʍǍŠϠϠʠĩʍ뮠Ч庠뮠䠢Š΢ҭ宠䠷栢Ԣy?^y~ya?~yyO3?wy?~Ca?~sO}?77ww:7;]]}so}wvv~y?~x_qn1y?~?~?|s?~yyO@yy?~~?~OsOyOgs?~0~gyysy?~y|?~??~qs?~Oy?~OOy?~yOaC<~~?~}gyysy?~gOyn|?~??~s?>sOyOysysy?~`~?s?~y?~yOsOyCgsgyx=~~y?`~?~s?~Oy?~yOsO_A?+ow{{}Ao?;o_Y^Y{x}]}{y?~?~?~y?~?~s?~~yy?^y?~OsO~aa}c_]]]ysy?py?pa~?~?ws?~yy?~y?~OsOy?>y`~aa?~yyO?~'7wy|?~s?~sO|8wx=8Gaa}w~w~y?~~y?~?~{s?~yyOxOsy?~C?~OsOy~~gyyx?~y|?~??~s?|Oy?~OOy?~yO0~?~?~gyyx?~pyq|?~??~s?~sOyOysyx?~?x?`~?s?n}y~OsOy{gsgy?<~}y?`~?~s?~Oy?~yOsO_G+oo;C{s?;s_\Z{7a]}gy?~?y?~?~s?~~yy?^y?~?~OsO?|c]cyx?y?`~?~?ws?~yy?~y?~OsOy?~~yOaC<~`yyOxO8wmy|?~s?~sOy?~C~y?~ws?~yyO?~Ogy?~p?~OsO -@- JKXFYG\ ` L `S`XX YWi!D BʎXY詠 LALh XWi#LGFLhLLx{ LɯϠҍ@ ԩB `FXGYZF[GJK\ FȹGF$ \轻)995^ WNJKDFG UFGt D B H LˠŠʮΠLk]LM 򭼳FG W]0ɠɠ 0iZ]轻[ 轻) ) ٠ōˬŠ獮ʍŠϠϠʍʍ쬠堷ﮠΠԨĨ宍ΠŠӠ̿ɠŠĠΠӠΠҠŠŠɠԠĠĠӠԠĠԠˠΠŠԠΠɠϠϠŠ͠˿ɠĠ̠ŠРɠΠԬԠРԠŬɧ̠͠ŮΠ΍傍宂宠宂宂Πł庠䠴䠨傍䠱報󂍠멮宠宂͂庠䂍㮠傍ɠˠЂ䬠嬠򂍠뮠ᠠàŠׂˠŠˠ؂庠堸ᠱ󂍠䠱     :"IT WILL ONLY PRINT THE LENGTHS OF"U "BASIC AND BINARY PROGRAMS BUT WILL READ"{ "THE FIRST SECTOR OF EVERY FILE" :"THIS PROGRAM RUNS AT $9000" :"WRITTEN BY JONATHAN ALLEN COOK 1982" :"]BRUN CATALOG.LEN" (37)1:    :)"CATALOG.LEN INSTRUCTIONS"V:"THIS PROGRAM WILL DISPLAY A CATALOG"("OF THE FILES ON THE DISK IN SLOT 6"2"WITH THEIR LENGTH IN THE FORMAT:"<:"038B *B 004 TESTFILE"FP"LENGTH FIRST, FOLLOWED BY CATALOG ENTRY"&  󮍍Ǎ΍נˠĠɠ忠嬠嬠ɠ뮠嬠讠ŠӠ׮ɠ̠٠ٮ̠ȮȍԠōӭέάנˠ獮ʍРȠĠčʍɠ®ҮîɠǍʍŠŠʍɠΠΠŠɫĠ٠Ӯɠ͠ĠΠǠӠĠΠԠנӠϠԠ٠ӮɠϠŠԠƠŠԠɠ̠ŮƠĠĠŠҠԠƠԠՠŠĠɧ̠ĠՠŮҠԠƠ̠ӠĠƭĠĠŠϺ٠ǍҠŮ׍Ŭנق庠肍򂍠󮠠蠰Π҂庠󂍠䂍󠱂堠ł뮠傍󠭠􂍂 Ů‚ẠŠӠ傍҂傍嬠䮂Ǡ҂庠Ǭ悍󮂍ɠ䬂箂ǂ庠䂍򬂍嬠䬠㮂䮂Šł􂍠󺠠ŬҬǬ䂍ĮЂ庠󢬂嬠㮠傍РԂР҂ɭӠ҂庠嬠łǠ䮂LaU BLa5 /La2 / XLaH h`ҲݠŠݠԠ`5b6b, ;aɍ ɛ LZa za U``` H, h` za `L`vaP`hh a *b aLa`` al?2La2La@2La0 aLa a% "La a$LaP XE `7 za Šˠ ԠˠĠӠ٠`, ;a za U `qa5b6b3b4b ` `4b04bLm`3b# 3b4b za U̠Ӻ`6b 5b LZa za `3bia za `4bja `ae S za Ġҍ   غ΍Ԥثک΍ɠŠŠ̠Рծ͠ŠԠՠΠŠΠ͡ԠӍǍʍĺРȠӍʍɠӺԠҠҠƠ̠ӢڍԠҠҠϠŠĢ΍ ԠϠҤΩҠؽРΨƠĤجΠϠʍčʍǍ碠䬠讠󂍂Š҂ԯԂ㮺宠󮂍ÂɠŠ΂庠傍RIFY DISK" (37)1:"IT WILL CHECK ON ALL 35 TRACKS AND KEEP"X Z"A RUNNING COUNT OF ERRORS IF ANY OCCUR" _"NOTE: THE TOTAL ERROR COUNT DISPLAYED" `"IS IN HEXIDECIMAL" d:"THIS PROGRAM RUNS AT $6000" n:"WRITTEN BY JONATHAN ALLEN COOK 1983" x:"]BRUN VE  :$"APPLE DISK VERIFIER"T:"THIS PROGRAM USES RWTS TO READ ALL THE"p("SECTORS ON THE DISK "2:"THIS PROGRAM WILL ALWAYS VERIFY THE"<"DISK IN SLOT 6,DRIVE 1 (DUE TO LACK OF"F"THOUGHT ON THE PART OF THE PROGRAMMER)"* P:ԠҠԠΠƠҠ΍ŠĠ٠ϠŠԠǠŠɠĠ͠ΠˮɠŠҠĠĠԠננ̠ԠӮĩǍʍԠǠԩʍŠ͠ĠŠӠӠɠϠԠנŠΠƠѮŠŠӠĠΠ͠٠ԠǠҠǠŠҠРĠΠǠРŠŠΠŠǠҮ ¨íéԠЍàΠΠƠŠ̠ɱýооооƠмĠоΠýëƠѼΠýë΍РҠǠčàϮƠӠϠԠϠŠРϠŠԠЍꍍĩꍮ獮ԠǠԩʍ̍獮ύԠǢꍍŠŠϠӠƠǍŠԠǠΠϠͮŠԠĠӠ͠Š͠ɠŮɠˠԠĠȠŠҮѽнӨЩŠԩʍƠՠŠĠΠ٠ƠӠҠԠԠϠŠŬՠΠ̠ŠԺҠŠϠŠԺ̠̠̮ή׮άĮîҠРѠԠ!' ʝ!!)? !h,(!`M!!O!HN!H`^ o i ea 9 9?@  ŠҠĠŠŠŠҠϠĠƠĠɠԠʠŠҠΠˠŠ  XY!Ȍ!!!!% _ ɠ ! :!L -! !!,!$4'4 (ȑ(! L $% "`!`$' ȱ((Ȑ󩠑(`'$%L"!!)!w!!{!!` !%$' $(̀! ̀!hh!L& `L:hhY``$(H)? @(!2!-荆  󂍠䮠笠쮂䮂ӂ庠砢򂍠詮򂍠􂍠殠󮂍̠ł庠xH` x Zh Z`ȠȠhh ;b b ;bL)b`` ;bl?2L5b2L5b@2L5b0 ;bL5b ;b% "L5b ;b$L5bP XE L5bU BL5b5 /L5b2 / XL5bH h`bbbbéb`b8*-bb`,b0 abhh` bĠҍ`LaͽIɪɖɵbbbbbbb`H,L b`b0R bӠˠҭ` La` ,`` b˭Ҡנ۱ҠݍԠˠĠӠ٠`, a b U`  bbb `bɠɠb#La?2b 2 b a ` `b Da ab8*-bb bɵ b٠ŠˠŠȠŠ ƠǠͮɠ͠ǠΠԠԠĠɠŠ٠ӠƠӮ͠ԠϠͮ͠ŠĠϠŠĮ٠ŠŠӠǠΠŠŠƠӮʍčʍǍʍ̠Ԡ٠ΠĠ͠ǠϠ̠ԠҠ٠ɠ͠ϠǠΠŠŠˠŠɠΧԠŠԠҮɠ̠̠ԠҠɠǠϠŠԠϠ٠ĠϠ٠ӠĠנŠĮǠԠԠƠŠԮɠŠӠΠӠ̮٠ڬĮîŬ獮Ҡōꍍ٠ɠԠĠҠ٠ҮҬɠĠԠŠŠŠӠϠŠԮɠĠŠϠӠԠӠԠȠƠŠŠӠƠŠ٠ӮԠӠϠȠҠ٬ŠǠΠԬ٠ǠԠȠŠĠ̭̠ɮӮƠĠǠȠŠŠȮӠ̠ԠԠϠŠΠԠԠĠԠԮꍮĠΠԠō̍ʍǍɮӠӠŠՠΠĠȠŠ̠ӧĠ٠λԠ̠ŠՠŠҠӠȠŠӠȠŠ̭ǠĮɮӮƠΠҠԠҬĠ٠ŠȠ̭֠ήƠŠԭ٠ĠӠԠŬŧӠϠŠĠŮɠŠĠŠӺɠԠȠӠӠĠȠԠ̠ŠӮĠԬˠԠӠӠ獮Ϡ̠ӍŠҠɠĠîȍꍍǠҠӠȠŠŠҠɠӠҠĺҠĠ̭֬ΠҠ̠ĠŠҠ̭ҩƠŧŮϧӠ͠ΠŠĠ٠Ǡ٠͠ӢΠĠˮɠŠĠȠŠϠՠΠĠϠϠҠŮƠ٠Ů٠ŠĠϠŠˠҠנӠ͠ӡ̠ҠŠz#??X°Ҡɠ  ---------  ------- îנ0٠ˮҠ ٠ˠ ǮήҠ ǮΠ ïؠ֮Ҡ ïؠ֠ ҠɮҠɠԠ ҠԠ) Š ŮҠŠ!נٮҠנ٠    ŠΠ̠ҠҠɮӠɮӮƠ "ӮԠخԠΠҠ    ĠӠ   Ԡà٠Ǡˠˮà! Ա Բ Գ!Ġ  ----------  ----------ήծԠ Π РӠӠ ӠӠ   ˬŠ     Ϡˮˠ   ˮˠ   ǠĠŠ   ȠȠ 󮠠嬠򮠠嬠򮠠ɠ獍٠Ԡ䮠嬠쮠宠宠獍Š砽󮠠ᠳĠ宠󮠠嬠嬠宠򮠠ɠ宠橮쬠򮍮獍Ҡ砽󮠠箠嬠쬠獍٠Ԡ砽嬠󮠠뮠󠱵讠謠報讠쮠䬠󮠠론ɠŠҠ砽򠲰㮠ӠƠˠӬӬҠŠΠԠĠϠàҮɠŠϠŠĠӠƠŠΠӠ͠ҠƠӠǠҠŠҠƠҠӠ͠ؠŮɠŠԠΠϠŠԠӠӠĠ٠ΠĠנŠӠϠŠ͠ħŮŠԠ٠ŠٮɠŠԠՠĠӠ͠Ӡ̠ӠɠĮŠ΍ԮŬ̮獍٠͠͠ΠƠˮˠŠŠӠ͠ӠΠƠŠŠĠӠŠƠӠӬԠ̠٠ˠȠŠĠӠҠέĠӠҠĠӠ̠٠ԠŠҠͮԠڻԠغčɠˠԠӠҠĠӠŠ٠͠ήŠӠӠҠҠծŠΠԮō獮ϠӠƠŠҠ͍ꍍӠ͠ӠΠŠĠ٠ӺҠؽϠڽԠĨ͠Ҡ΍ԠڻԠغ芊ӠȠŠŠΠǠҠŠŮנ٠ԠȠӠͺҠؽϠڽԠĨ͠ԠčO LIST THE PROGRAM AFTER RUNNING IT TO SEE HOW ITS DONE."?wxSPL,36,30,"NOW YOU CAN RUN ONE OF THE WORLD'S MOST WIDELY RECOGNIZED PROGRAMS, IN A SLIGHTLY SCALED-DOWN VERSION FOR THE HOME COMPUTER. NO MODEM OR DIALING DEVICE IS NEEDED.":rSPL,N THE DRIVE.">:SPL,36,30,"PRESS 'R' WHEN YOU ARE READY."DSPL,36,30,"THIS PROGRAM WHICH WAS SUBMITTED BY GERALD GRIFFITH SIMULATES THE ROLLING OF TWO DIE. IT ALSO CHARTS THE RESULTS ON THE HI-RESOLUTION SCREEN."9:SPL,36,30,"BE SURE TCASE,SKEW DISPLAY,VERIFY DISK,CATALOG.LEN,DEC/HEX CONV,MONITOR ASCIIX EXIT TO BASICbL3000 SPL,36,30,"THERE ARE MORE CONTRIBUTED PROGRAMS ON THE BACK SIDE OF THIS DISK. TO RUN THEM, SIMPLY REMOVE THE DISK, TURN IT OVER, AND THEN REINSERT IT I$:A$% A$"M"A$"R"Č198:4000 3::F 1:X140:A$;:} *23:X140:A$;::2:X222:1:A$;:40:A$;::  15,DISK.NETWORK,FLIP SIDE,DICE SIMULATION,GLOBAL THERMONUCLEAR WAR,CI.FORMAT,CI.GLOSSD STAR MERCHANT,PROFILE,LOWER 嬠獍쬠򮠠ɠ獮嬠讠쬠󮠠嬠쬠宠庠嬠嬠䮠ɠ箍獍ŠԠҠ砪䮠젶謠宠󮠠쬠󮠠𮠠嬠󮠠嬠獍Š砪宠쬠󮠠ή䠢ΠӠԠ͠ӬɠĠ٠ŠҠЮ̠̬ΠҮԠάɠŠ獮Ѝꍍɠ٠ĠΠŠ宠ΠŠŠɠӠ̠ŠĠȠŠ忠ӠŠϠŠĠӠ͠ӠԠԠĠŠԠŠӠ٠ΠŠԠ٠ӠĮΠҠɠ͠ǠϠŠӠ͠ŠӠΠŠ̠ΠƠƠŠӠנϠŠĠӠ󂍠炍傍嬠􂍠ŠˠŠҠӂ㺠䂍ɠł庠󮠠󠂍宠䮂̠ȭӂ㺠宂ĠƠˠ֠䮂̧ӠĂ庠䮂󮠠򮂍堢򮠠砢傍宮堢򡂍栲䂍蠢宠򠲭󮠠󮂍Ҡ΂庠宠뮂͂庠󂍠ᠱ묂肍宠䂍36,30,"THE PROGRAM LEAVES YOU IN THE HGR SCREEN AND A 'TEXT' COMMAND WILL BE NEEDED TO CONTINUE AFTER RUNNING IT.":SPL,36,30,"PROGRAM BY R. ROTH / ONAWA, IOWA"nSPL,36,30,"THIS IS A FILE FOR USE WITH APPLEWRITER II AND A C. ITOH PRINTER. ɠ䢠ɠ󮠠堢Т宠讍獍ɠ栢뢠ᠢ䢠宠Р䢠򮠠䢠ʍǍˢᠢТ󮠠Р򢮠ꍮӠ͠Р٠Р̍          z:SPL,36,30,"THE CLASS PLAYED IT FOR WEEKS. MAYBE YOU WILL ALSO FIND IT TO BE WORTHWHILE."::"JULIANNA M. STOGNER""SPL,36,30,"THIS IS A HELLO-TYPE PROGRAM WHICH IS DONE IN A FASHION SIMILAR TO THE 'BEAGLE BROTHERS'."::SPL,36,30,"JUST RBY JAY GUTIERREZ, D.C."SPL,36,30,"THIS PROGRAM APPEARED IN CREATIVE COMPUTING IN AUGUST 1981. ALTHOUGH IT WAS WRITTEN IN HEWLETT-PACKARD BASIC, THE 1982-83 COMPUTER MATH STUDENTS AT DAINGERFIELD HIGH SCHOOL, TEXAS, CONVERTED IT FOR THE APPLE." FOR USE WITH APPLEWRITER II AND A C. ITOH PRINTER. IT SHOWS HOW TO DEFINE 'GLOSSARY' COMMANDS SO THAT YOU CAN EMBED PRINTER COMMANDS WITH A SINGLE KEYPRESS WITH THE CONTROL-G."J:SPL,36,30,"SEE THE DISK.NETWORK TEXT FOR MORE DETAILS."::"SUBMITTED IT SHOWS LINES WITH THE DIFFERENT EMBEDDED PRINTER COMMANDS. LOAD IT INTO YOUR APPLEWRITER AND LOOK AT IT.":SPL,36,30,"SEE THE DISK.NETWORK TEXT FOR MORE DETAILS.":"SUBMITTED BY JAY GUTIERREZ, D.C."?@SPL,36,30,"THIS IS ANOTHER FILE򮍍򠳱󮠠à𮍮獮⬠蠱謠묠Š宠嬠宠뮠栢뢮獍䮠ɧ䮍獍ꍮԡԡԡʍ̍堠뮠ɠ栢뢠󮠠ɠᬠǠΠӢ堢򢮠堢󢮍獍栢뢠򮠠ɠ砸󮠠ɠ堢򢬠ҠΠ䬠ɠ獍ɧɠɠ堢󮍍ɧ뢮ɧ嬠ɠ󢮠嬠ɠ뺍報嬠堠󬠢嬠ɠ栢뢠砢䢠嬠ɠ嬠ɠ뢠嬠ɠ젢䢠뢠宍獍Ьɠ뢠󩮠傍򮠠䮠¯נɭӠҠς㺠宠嬠䂍󮠠ɠӠ˂㺠򬂍嬠䠨򂍠䩬򠨥䩬킍󠨥䩮󮂍Ђ庠Р򂍠肍䮠䮂̂㺠炍󮠠󮠠򩂍䮠􂍠򮠠堢䮠䂍򮠠䂍삍롂ɠԂ庠۠㮠嬂뮠ɠԂ庠졠䬠堨򡩮󂍠䮠󮂍ɠł庠ŬAL INPUT (UPPERCASE)."::SPL,36,30,"PROGRAM BY JONATHAN ALLEN COOK."KSPL,36,30,"SKEW DISPLAY WILL SCAN THE DISK IN THE CURRENT DRIVE AND DISPLAY ITS SECTOR SKEWING PATTERN. THIS IS THE ORDER THAT THE SECTORS WERE ORIGINALLY WRITTEN TO THE DISKUN IT AND YOU'LL SEE WHAT I MEAN."(klSPL,36,30,"LOWERCASE CONVERTS ALL LOWERCASE LETTERS TO INVERTED UPPERCASE FOR DISPLAY ON APPLE ][ PLUS COMPUTERS."Ev:SPL,36,30,"FUNCTIONS ARE: CTRL-L SHIFT LOCKS FOR LOWERCASE INPUT, CTRL-N RESTORES NORM, ""G O O D B Y E . . ."5 ,255E 6:16302,0K @ X(7) "ARE YOU THERE, HUMAN?". X150005 X? ::E _ 15:"POWER FADING":r X12000:X: X12000:X: X12000:X: X12000:X: X12000:X: X12000:X: X12000:X: X12000:X: 10M& ** GLOBAL THERMONUCLEAR WAR **, = BY R. ROTHO AUGUST 1983U]:f100}(18:10:"Y O U"216:13:"L O S E"<X16000FXP255Z20:"HOW ABOUT A GAME OF TIC-TAC-TOE?"dX117000nX x:   Ϡ낍ӠΠ΂㺠堨󂍠Ҡǂ򂍠宠傍Ϡ󮠠炍𮠂  ς󠱵悍報䂍䩠䮠󮂍ŠԂ낍 ҠɭӂӠΠ΂ǠԂ庠󮠠肍炍󮠠󂍠婮宠󂍠䮠󮂍ɭ堢뢬󮠠킍쮠󮂍ɠł㺠󮠂 ɭӠҠ҂ɭӠҠς ҠłɭӠҠςł㺠宍獮򬠲נ嬠ҠРźàà䮍ꍍ䍮ꍮɠ󺠠嬠笠嬠嬠嬠嬠嬠󮠠宠󮠠笠󮠠󮠠Ạ DURING FORMATTING.";SPL,36,30,"ON MOST DOS 3.3 DISKETTES THE PATTERN WILL BE THE SAME (SECTORS 0 THRU F IN ORDER) BUT NOW AND THEN YOU MAY FIND ONE THAT IS DIFFERENT. MANY OTHER PATTERNS ARE MORE EFFICIENT."34SPL,36,30,"THIS PROGRAM USES Λ΍śōÛэЛЍ›⛢Ď䏍՛؍ٍƛқʊȍ؍ 􂍠fl󮠠󂍠󮠠󮂍 󩂍󻠳򮠠􂍠㮠󮂍Ҡł庠˭؂ ԠłҠǠҠǂ㺠傍򢮂̂庠㮠炍嬠򮠠󮂍˭Ԡ˭̠ЂԠà㺠 ŠӂϠ낍ЂР, 8Hȥh lSPL F { ȪbHPh ĝĝ  88! ڤ \ĝ ;LL! کLH8ưhHiRhi`*DPROFILE"&<D$;"RUN LOWERCASE.INSTR"GD$;"RUN SKEW DISPLAY.INSTR"gD$;"RUN VERIFY DISK.INSTR"hD$;"RUN CATALOG.LEN.INSTR"D$;"RUN DEC/HEX CONV.INSTR"0D$;"RUN MONITOR ASCII.INSTR"$ѸȱȱeL D$;"RUN HELLO"1 D$;"RUN DICE SIMULATION"X D$;"RUN GLOBAL THERMONUCLEAR WAR"fH 198:70 :3::A$"PLEASE BOOT APPLEWRITER II":300::A$"AND THEN LOAD THIS FILE":300::X15000::703500tD$;"RUN STAR MERCHANT"D$;"RUN IS ACTIVITED BY USING THE CTRL-Y COMMAND FROM THE MONITOR MODE.":j SPL,36,30,"IT DISPLAYS A SINGLE PAGE OF VALUES WITH THEIR ASCII REPRESENTATIONS AT THE RIGHT SIDE OF THE SCREEN."::"PROGRAM BY JONATHAN ALLEN COOK."  D$;"RUN DISK.NETWORK"H A '$' PRECEDING THE NUMBER.": SPL,36,30,"A DECIMAL NUMBER MAY BE CONVERTED TO HEX BY JUST ENTERING THE DECIMAL NUMBER."::"PROGRAM BY JONATHAN ALLEN COOK."_ B` SPL,36,30,"THIS PROGRAM ADDS AN ASCII DUMP FEATURE TO THE MONITOR COMMANDS. IT :"038B *B 004 TESTFILE"::SPL,36,30,"IT WILL ONLY PRINT THE LENGTHS OF BASIC AND BINARY PROGRAMS."k SPL,36,30,"THIS BASIC PROGRAM WILL CONVERT HEX TO DECIMAL OR VICE-VERSA."::SPL,36,30,"TO CONVERT FROM HEX TO DECIMAL ENTER THE HEX NUMBER WITRWTS TO READ ALL THE SECTORS ON THE DISK AND KEEP A RUNNING COUNT OF ANY ERRORS IF THEY OCCUR."::"PROGRAM BY JONATHAN ALLEN COOK."eSPL,36,30,"THIS PROGRAM WILL DISPLAY A CATALOG OF THE FILES ON THE DISK WITH THEIR LENGTH SHOWN IN THE FORMAT:":ŠʠŠ䍤à󍦠˯̠󍸠讠Ԡ讠ԠΠŠŠàĠР̠ Ġ⠽ĠĠŠȠ䠽ŠȠՠŠŠŠȍᠽŠȍƠĠҠ  ᠵ򂍠ᠢĠƠˠŠ󂍠򮠠炍䮂󩂍˂庠̮ł堨婠̂ς멂ς庠䠱 \ĝ ;LL! کLH8ưhHiRhi`* ě򊊍ꍛ謠᧡Ҡ䮍ź宍͠ΠϠРѠҠӠԠՠ֠נؠ٠ډ؍؍ȱ؍ȡޠ۠ݠߠ؍٠讠Ĭ󠱯讍宍宍宠宛̠󺍉ț àĠŠƠǠȠɠʠˠ̠󮍍śŬ󠱯讍宍宍ћԱĠśŠĮюĠŠȮ̠ΛĮЎ̠ŠȮ蠛䬛٠îȠҠĠԍʍћĠĮΎŠȮŠЛ̠ĮŎŠŠȮ     ANOTHER TWO-YEAR LEASE WILL COST 2E6"P>"CREDITS. DO YOU WISH TO RENEW YOUR"eC"LEASE (Y/N) ";mHA$}RA$"N"890\B2B22.00000E06fT5T51p640z == END PROGRAM ==G1(B34.00000E06)T6A$"LOSS"G10940 ARS.""ENTER COMMAND ";$C1*IC10C17C1((C1))750S3380\640C11240,1420,1590,1900,2050,2150B3B2T1B30890 T62T52640 "THE LEASE HAS EXPIRED ON YOUR SHIP"*B32.00000E06890%4"NIXT50bT60$lT70.v2280F == MAIN LOGIC ==d(R1).01.005B2E3680n1040:"ACCOUNT BALANCE ";B2"EMPTY CARGO SPACE ";W2T6$(" "((T6.0005))"."(((T61000.5)),3),5)"SHIP TIME ";T6$;" YE1B(N2)(N2(R1))16C(R1)A(R1)A(R1)JB22.00000E06XD(5)4.3bS15qE150000.E2100000.E3500000.N236N310W1200W2W1I120H(I,1)0&I03590:I114DP(I)ESS RETURN TO CONTINUE"; "A$S ,:6:"COMMANDS AVAILABLE ARE AS FOLLOWS:"::] 63380g @R11 J::"PLEASE WAIT. YOUR STARSHIP IS CAUGHT IN" O:"A VIOLENT TIME WARP. IT WILL RETURN TO" T::"EARTH TIME SHORTLY."A(R1)(6(1))RICE BUT DOES NOT"? "DETERMINE WHICH CARGOS ARE AVAILABLE."q 11:"ABBREVIATIONS USED FOR TRADE CLASSIFI-" "CATIONS ARE AS FOLLOWS: R-RICH, " "P-POOR, I-INDUSTRIAL, NI-NONINDUSTRIAL," "A-AGRICULTURAL, NA-NONAGRICULTURAL" 19:"PRE" "WITHOUT REFUELING."M 16:"YOU ARE PRESENTLY TRAVELING FROM ALPHAw "CENTAURI TO SOL. YOU ARE CARRYING" "NO CARGO." 22:"PRESS RETURN TO CONTINUE"; A$: 5:"THE STARPORT TRADE CLASSIFICATION" "DETERMINES THE CARGO P2 MILLION CREDITS OPERATING CAPITAL."P 7:"YOUR SHIP CAN HOLD A TOTAL OF 20"{ "CARGOS WITH A TOTAL CARGO WEIGHT OF" "200 TONS. THE FUEL CAPACITY OF YOUR" "SHIP IS GREAT ENOUGH SUCH THAT TRAVEL" "BETWEEN ANY TWO STARPORTS IS POSSIBL),S(6),T(10)6 P10:13)"STAR MERCHANT":J15000:Jg S:::5:"DO YOU WANT TO SEE INSTRUCTIONS";{ VA$:A$"N"300 Z:"YOU HAVE JUST SPENT 2 MILLION CREDITS" d"ON A 2-YEAR LEASE FOR A MERCHANT" n"STARSHIP. THIS LEAVES YOU WITH"% x"'" ** STAR MERCHANT **@ ** BY LLOYD JOHNSON **m# ** FROM CREATIVE COMPUTING AUG 81 **( ** APPLESOFT VERSION **- ** JULIANNA M. STOGNER **2 == INITIALIZE SECTION ==<A$(20),B$(8),A(5,4),D(10),H(20,4) FP(14            " ":300:< 2::A$A$(PK):300:l 34,3:35,22:32,1:33,33:5:10::32,5:6 PK1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500 21:"PRESS ";::"M";::" FOR MAIN MENU ";::"R";::" TO ":300 ZX1W:5:4X:6 dX9ĺ(64X9);:120> nX;R x:10);A$(X):{ 21:10:"ENTER SELECTION ";:A$:A$ (A$)96A$((A$)32) A$"A"A$"Z"A$((A$)649) PK((A$)):PK1PKWČ198:130 PKWĉ::" 2::A$:300:A$"NORFOLK, NE 68701":3002 <X13000:H F::A$" ":810:x H2:2::X15:" ";::35:X15:" ";:: K1::A$": :":300:3:300: P2::A$" DISK.NETWORK #4 ":300::23:A$" THE BIG RED APPLE CLUB (175)(176)25655'D$(4)/:MW:A$(W):X1W:A$(X):a:A$"+":800:(6:A$"CONTRIBUTED PROGRAMS":300:8:A$"DISK.NETWORK #4":300:14:A$"DISTRIBUTED BY:":300" 216:A$"THE BIG RED APPLE CLUB":300:A$"1301 NORTH 19TH"         D$;"CLOSE"1 *** CONFIGURE PRINTER ***FQ11442040128i(QSN)0A(1,(Q1016)128)1oQ170:" ";:Q11442040128(QSN)70A(2,(Q1016)128)1Q11442040128A(1,(Q1016)128)1A(2,(Q1016)1240)(41)256,B,40,R$(Q)(Q:<(4);"OPEN";A$HQ123](4);"WRITE";A$jR$(Q):|(4);"CLOSE"XSX120l "MASTHEAD"D$(4)D$;"OPEN INDEX.TEXT"X09D$;"READ INDEX.TEXT"NM$(X): G"::"ENTER FILE NAME ";:1612UN(A$)30Č198::11:5:"STRING TOO LONG":1607rO1620::(4);"OPEN";A$PQ123:(4);"READ";A$:,R$(Q)::(4);"CLOSE"QQ123:Q:R$(Q);:R81923S1625T8192Y0rQ123:Q |B(DL(111):DH(112):/111,DL:112,DH:7@:=E\F(4);"BLOADSCREEN WRITER"G7:5:"ENTER 'CAT' FOR CATALOG"H9:5:"PRESS RETURN TO RETURN TO MENU"K5:5:"ENTER FILE NAME ";:L,A$:A$""ī1710MA$"CAT"ĺ(4);"CATALOSN(SN$)/SN1SN7Č198:1411A(4);"PR#"SNQ(9);"80N"`W79:33,Wj4000zCUR(CUR$)130(767)("E")ī130(4);"PR#0":X0:CUR36:W40:33,40:767,0:120SL(111):SH(112):111,SL:112,SH:F16368,0:A$(KY128)5P(A$)96A$((A$)32)NZA$"E"A$"S"ī1390__A$"M"ī505ydQQ1:Q(HL$)2Q1i235:1320n767,(A$)x(767)("S")XSX1(767)("E")X26:10:5:"ENTER PRINTER SLOT NUMBER ";:SN$:SN$$)VFI$NM$(A)[:#]15300`X26:30U~SP$(A$,3,(A$)3):SP((SP$))gSP1SP39ı}Q1SP:" ";::FI$(A$,3,(A$)3)X2630Q1:16368,0(24:1::(HL$,Q,38);2255:<KY(16384):KY128ī1380KWARD PAGE P = PRINT R = RESPONSE":BL$BL$BL$TLC0:767,0:W40:SX25:CUR36\:dX03:1:" DO YOU HAVE LOWERCASE DISPLAY (Y/N) ";A$:A$"Y"A$"y"LC1:1010A$"N"A$"n"ī1007FI$"MAIN.MENU.TEXT"830LA(A1:190QQ1:7200A$(400),R$(23),A(2,8):2000HL$" MAKE SURE YOUR PRINTER IS TURNED ON! E = ENTIRE ARTICLE S = DUMP SCREEN M = MAIN MENU":HL$HL$HL$2BL$" H = HELP Q = QUIT M = MAIN MENU = FORWARD PAGE B = BACQQ1:Q(BL$)2Q1 A235( D5102 XXX1A bX0ī120u l(A$(X),3)".PG"(A$(X),3)".pg"XX1:SXX:~ v600 (A$,1)" "(A$,1)"."į,CUR,W,A$;:130 L(A$):QL(A$,Q,1)" "B$(A$,Q):,CUR,W,B$;:A$(A$,LQ)A$(X):XX96A$((A$)32) &A$"Q"Ā@ +A$"B"XSX1:600:D0:120U 0A$"M"X0:120g 3A$"R"ī1600y 5A$"P"ī1310 7A$"H"FI$"INSTRUCTIONS.TEXT":1115 :A$(13)SXX:120 >(A$)0(A$,1)"0"ī576 ?X26(A$)0(A$)9ī1100 @ ,130 6(A$)38ĺA$:130A @(W2(((A$)2)2)):A$:130I Q1R G42` 16368,0{ 24:1::(BL$,Q,38); 255 X26į,G,G1:GG1:G43į,43,35:G35  KY(16384):KY128ī576 16368,0 A$(KY128) (A$)ϭB$".FJ"B$".fj"D0:130; B$".EN"B$".en"X0:130] B$".SP"B$".SP"İ1150:130} B$".PG"B$".pg"D0:505 B$".HG"B$".hg"Đ::(4);"BLOAD";(A$,4,(A$)3);",A16384":130 D1ī310 Q1 (A$)199ī700 ",CUR,W,A$B$(A$,3)6 (B$".PG"B$".pg")((767)0)ī1440a (B$".EN"B$".en")((767)0)ī1450 B$".TX"B$".tx"ĉ::130 B$".IN"B$".in"Ğ:130 B$".FL"B$".fl"ğ:130 B$".NL"B$".nl"ĝ:130 B$".CJ"B$".cj"D1:130 DX(175)(176)25655:X)1000L:10:14::"LOADING ARRAY":a((4);"OPEN";FI$n2,12288<,12288,LC,A$(X)dn(4);"CLOSE"pGB0GB1:1520sX26x:}15001510:A$A$(X):XX1(A$,1)"."ī230        ͠ҠĠҠǮĠԠɠĠԠՠנԠՠΠԠӠ͠ҠҠҮԠӠŠ٠ĠӠҠ̠ՠΠ٠ԠҠӠƠŠƠՠРĠϠŠӮ̠ҠŠϠŮɠĠҠԠנĠ͠Ǡ٠ҠԠҮ٠ϺΠԍҠōϬŠЮӮɠϠŠ٠ӮϠŠϺΠԺŠŠɠӠŨƠŠɭŮ٠îӠǍϺԠӍԺĠҍɠŠΠŠŠҮԠӠŠ׮٠ŠŮƠՠϠԠƠӬӠҠӠԡ٠̠ŠҠȠŠˮˠŠҠӠ٠ϠԠϠ׮ӬŠΠԮŬ׮ǍϺΠԍŠӠΠŠΠŠ٬ˠ٠ΠȠȠϠŠϠӠȠĠ٬ԬĠǬǠӠϠˮΠ٠пɧ͠ŠŠԠŠΠСˠǍˮʮÍ獮ϠƠٍʍƬɠԠŠĠΠҠ٠ͮԠŠŠՠǠҠԿꍍɧ͠ŠԠӠΠӠǠϠ͠٠٬ԠŠӮҠǠϠȠԠӠŬɠԠԠĠԠٮŠӠŠ ԠӠ٠ͻנϠՠԠŠӠ͠Šӿ 芑`LH8ưhHiRhi`'X,`C176)256(175)141/ n::44452,22:44605,21H (ɠ)?((hHi(Hj*8*hH 0 0h((hi`,H* (H ( * h(( H 0h807(H ( * h( H 0h8   :64:"PROGRAMS FOR THE DISK OF THE MONTH"Y:9:"BY JONATHAN ALLEN COOK"w#34,4:44452,21:44605,20(5:14:"PRESS A KEY":(176)256(175)135,37,23-"CATALOG"::"PRESS A KEY"216368,0:16384,128:16368,0 d( A(1,Q),A(2,Q),Q: ' D$"OPEN"F$8 D$"WRITE"F$@ P$H A$R CUR$a D$"CLOSE" &:(4)"RUN DISK.NETWORK"(0128( h(XSL)0A(1,(X1016)128)1. rB |Q170:" ";:W X11442040128{ (XSL)70A(2,(X1016)128)1   (4);"PR#0" X11442040128 A(1,(X1016)128)1A(2,(X1016)128)1CUR$(XSL)   Q18:(Q)UIT OR (C)HANGE? ";R$) R$"Q"ī550; R$"C"ī230\ "ENTER MAKE OF PRINTER ";P$h A(2,8) "ENTER SLOT NO. ";A$ "SL(A$) ,SL1SL7ī280 6"PLEASE TURN ON YOUR PRINTER" @(4);"PR#";SL J(9);"80N" T ^X1144204d PRINTER CONFIGURATION%n::xF$"CONFIG.TEXT"FD$(4)VD$"OPEN"F$fD$"READ"F$nP$vA$CUR$D$"CLOSE"F$"THE CURRENT CONFIGURATION IS "D$(4):F$"CONFIG.TEXT""PRINTER: ";P$"SLOT: ";SL$ "   ŠΠ̠ŮϠĠΠ̠Ӯ٠ӠŠĠŠՠԠ٠ӠҠҠŠӿŠϠҠ͠ծ٠®ҍĠŮԬԮ獮獮ᩬ򮍍נ獮ꍭϠˠӭנҠ󮠠㬠ɠ򠲰ɠERS DOWN 256 BYTES"> :"IF THIS INTERFERES WITH ANY OTHER"k "PROGRAMS, SETTING MAXFILES AT TWO MAY" "SOLVE THE PROBLEM" :"WRITTEN BY JONATHAN ALLEN COOK 1983" :"]BRUN LOWERCASE" (37)1: EEN AS CTRL-CHARS, NOT LOWERCASE"@ :"SPACE BAR TO CONTINUE"w 16368,0:16384,128:16368,0:(16384)32150} "THIS PROGRAM, WHEN RUN, WILL SET" "MAXFILES AT THREE AND COPY ITSELF" "BELOW DOS AT $9C00 AFTER MOVING THE":"BUFFR LOWERCASE INPUT"A Z"CTRL-N RESTORE NORMAL INPUT (UPPERCASE)"p d"ESC AND RESET ALSO RESTORE NORMAL INPUT" n:"COMMENTS:" x:"ALL LETTERS ENTERED IN RESPONSE TO":"AN APPLESOFT 'GET' STATEMENT WHILE"! "IN LOWERCASE INPUT MODE WILL BE":"S* :9:"LOWERCASE INSTRUCTIONS"J9:"FOR THE APPLE ][ PLUS"P"LOWERCASE CONVERTS ALL LOWERCASE LETTERS";("TO INVERTED UPPERCASE FOR DISPLAY ON"2"THE APPLE ][ PLUS"<:"FUNCTIONS ARE:"F P"CTRL-L SHIFT LOCKS FO    ⮠󿍍ɠᮍíٍ謠Ƞ獮獮ꍍɠ󮠠ɠɠɠɠ宠򮠠ԬĠǬǠӠϠˮΠ٠пɧ͠ŠŠԠŠΠСˠǍˮʮÍ獮ϠƠٍʍƬɠԠŠĠΠҠ٠ͮԠŠŠՠǠҠԿŠҠ͠ŠԠӠΠӠǠϠ͠٠٬ԠŠӮҠǠϠȠԠӠŬɠԠԠĠԠٮŠӠŠ ԠӠ٠ͻנϠՠԠŠӠ͠ŠӿɠĠ٬Ԡɠ쮠ɧ㬠宍鬠젠獮ɍꍍɧ򮠠栢堨婠 󮍍ɮî፴謠獮ɠ󮠠ɠ򿠠ɠ堢̠ĠŠةˠՠҠǠԠ¡٠΍ ŬӠ獮ΠҠˠӍʍɠ렢墠ɠɠ͠٠ήɠ͠נҠΠŠǠĠŠ Ġ͠٠ĠΠӠӮɠĠŠϠҠ͠ӠΠӠŨǬǬ䮠ɠ𠲷ɠ쮍î㍴ӠӠɠ쮴姸ɠ󮠠ﮠî㠠獍ɧ쮍ʍčʍǍʍӠРԩʍɧɠ󮠠宠㮩ɠŠŨéؠҠ̮󮠠ɧᠮʍӠРčʍɧ⮠ɠӠӠ宠묠䠶묠                                -I W ԧL67$89LH) h` HɍKɌ"ɛ Ɏ!h`h jL$h jL$h)`$(H)? @(h`ɍ  L=ŨҠҮϬ獮ʍԯ̯ŠōʍɠŠ٠ӠҠԠԠȮӠׯήɠ̠Ϡ٠ҠŠĠŠՠƠŠԠŠΠԠǠҠŠϠŠӠΠӠՠԡɠŠĠԠɠŠΠŠϠ٠ԠŠԠӠŠĠĠŠ٠ϠŠ٠ŠӠȠՠϠРՠŠŠ١̠ҠŠϠŠήΠԠҠ٠ϠŠŠ٠ΠҠԠŠƠҬŠĠšԠԠӠϠРĠŠӡΧԠȠԠĠ٠͠ŠԠŠՠРԡՠĠŠĠԠנȠՠΠŠ٠Ԡ٠ϠŠԮɠŠŠĠΠ٠ԠɠŠ٠ҠĠǠԠӠӠӮΠԠŨҠōϬƮϠϠ̺נŠ٠ӠԠɠĠԠՠנԠՠΠԠӠ͠ҠҠҮԠӠŠ٠ĠӠҠ̠ՠΠ٠ԠҠӠƠŠƠՠРĠϠŠӮ̠ҠŠϠŠĠɠ̠РՠԠŠĠĠ͠Ǡ٠ҠԠҮ٠ϺΠԍҠōϬŠЮӮɠϠŠ٠ӮϠōϺΠԺӠ͠ҠĠҠǮĠŨƠŠɭŮ٠îӍǍϺԠӍԺĠҍɠŠΠŠŠҮԠӠŠ׮٠ŠŮƠՠϠԠƠӬӠҠӠԡ٠ŠϠŮɠĠҠԠנȠŠˮˠŠҠӠ٠ϠԠϠ׮ӬŠΠԮŬ׮ǍϺΠԍŠӠΠŠΠŠ٬ˠ٠ΠȠȠϠŠϠӠŠŠɠӠĠ٠ҠǍ΍Ǎ΍ԠԠԠРΠӠŠՠӠӠӠԠƠŠ٠Ǡˠˮ˭ʍȠΠƠˮˠΠՠΠ