' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `JJ`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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-(p @Jà٠@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠ĠJz# Ju` L ` -+ [..E0 - +f \$8L$f$På8噅 L" 0"ƚ0`L&H$ 0"h80 $LX$H Z#h #EL d$0L e q80L~$>nk'nk(X (%vu8 # +%L=-^^ %^^`` i#` L *` y#I*L F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL#J8$  `)F `ɠ #I* Z#i ` Z#G" "L`" !v i#8坅 "Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L"@ (L"L bcdeL% ^_^^^^ ^`, i#^_^1r y#LH$! )! ]" ! ! S'.! h $3! !L! "bcde ! ! ! ! !L"L J eeededcecbebfbfcfdfefJ`^_^^^^E ^`e0,iLI `I0hhLE L̆i `eeeeeL i&&&&8坰IiBfffff`IIIIII `EL ai0vvvvvj`^Vy dv88; 5454h`` j I Lɑ #PQ`PHQH IPhQhPL =P` =  CPE%`[&L !IEL < !LJ#8$Ii0ǨV $W8Ie J SRS` H hhhL! ьHH  hhe^^_ L! ILW )   ʊH񌰸Iš hhhhhhhHH` L ` ^LL j L LE ^e^`_a`H` A$Ŝ䛐^_e^^__`)Jeiop ȥ敥ȑLHH c ohhqL      !LHȱȱh^_ H^qheqqr` o^_ ,^Hȱ^ȱ^h(po Heooph^_`TSR`FHI8eopnm opqrh`M0 {hЦstopmnU^_R ij^_lk 󅔆nmLY^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^05ȱ^0ȱ^+ȱ^ȱ^poHH L   Lm :HH  mhhȱ𙅄ȱH "#HHȱHH jhh Lhhhhȑhȑhȑhȑ` m /hh I`" ȱ "e膮  R^L 8m因n圑bȱhhћȊћLL ȥ e^eʅʥʆd ee`^de *& edeeƙ`  {8ompnL#$8vС,L :    m  HHHhhhHH ,҄ hh)klnm?Łћȱeȱeעk,5L x8` ћLD*L  ȥʆȑ $PhihiȑȊ ^e]eR mn殤ƕƮ敊 8(L$0pijlk"ћћliA[8`hH`klmniȅ ȅklȥȑȑȑȑȑiȅ` ieȅ` j0 ɐ  #~L#GHHHHH HH hHLB h Lm ,L p % #LƉ  80 ў*%L#  L   `  vL  v v$%0ЩHHl^h#d mhJhhhhhhE` LA$ vd.U"i L48,LLMҐL  ~),(,,ѸLL hhL ` ȱLL" ) q L H ϐ  ~  ohH  # #8 uvLi ,  ~$8$0`L ƹƸ$HH c 8ϐ*IEʼna L,{iweLi^ e^hٲg mH hV_F*ƹƸٲHٹHH LLh^^h_H i#HHH(PR$(J),5,1)) JTY$"I"IP%IP%1:85D MTY$"A"AP%AP%1:85_ OTY$"B"BP%BP%1:85z QTY$"T"TP%TP%1:85 SOP%OP%1 UJ V:10:7)"NUMBER OF PROGRAMS BY TYPE:":: W13)"INTEGER = ";IP%:13)"APPLESOFT = ";AP%:13)"BINARY :T 1013,76:1014,0:1015,145:TN$"ABCDEFGHIJKLMNOPQRSTUVWXYZ ":D$(13)(4)u D$;"BLOAD LIBRARY REVIEW.X"~ 600 F COUNT # OF PROG BY TYPE  G:IP%0:AP%0:BP%0:TP%0:OP%0:12::"PLEASE STAND BY...."::J1NPG:15:18);J;" ":TY$5"USE LIBRARY INPUT TO CREATE TEXT FILES"^"THAT CAN BE READ BY THIS PROGRAM."::"THE TEXT FILE LIBRARY 1 IS A SAMPLE.":"ENTER LIBRARY 1 WHEN PROMPTED.":::"HIT ANY LETTER TO CONTINUE."AZ$ 37090::"NOMONC"   )S(ԠΠϠ)&@Q eȱe  . ,` &/L. &/L].=?P<Ȅ> sʆ>PHt?QnL tp=hso< LeP>eQ? <=`@ L ʊ( (H hL/$`L-% eЅԐ ,e҅Ր ,JJJ`JJJJӊ)-I-ȄҤѢԆզ8eЅԐ ,e҅Ր ,JJJ` j IQPHH,   hh`L * .`*U . S,  .L6- ` ` hH8HӰ hIiHӅхhЅhIi҄f8Ъх a,8e҅ԥձ&E%0Q&&bӰ ,eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je`JJJJӊ)-I-ȄҤѢԆզ8'#i媽,0J(` ,Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',-"&,,i8i#H&ii&hif&i'`'i,-&i,-&iPII&if&HߚLLij  `a,  PQ ``aiśj地a`ʈjiL VSL@TL9 /ʅPQ /L / PȱQL /L,U,R@ ,T,SWP z,)`H)&JJ&&h' &' &' f&')(L *,(ʤL *(L( Ld ʊL[ I`8f`?2`@ j IPmQnL PsoQtp` j IPsQtPiQj֥PiQjLl 8fإuv Lަߥuڥvۥyܥzݥ􅸥uv @Lڅuۅv܅݅ z*L  )򊅤TH UR0PQQPIPPIPPPQ)stop0ghgghgh K=< l j IlP L L 0,  0,-`L ),-  0` )S' # ' ' " Y(L]"HL(IڢIڢ-(h#5ᆥ](IڢʥH &HɁ ! ]"Š( S'hɁ]( hL&` vy{| g|S}dpL}Qz}c0~~D:~L̑湭`: 808`ORXv)  &נ& i'h "` # v! m'Lv! #Ș殅 v!iȅ ƣ`5Dzh(F y#0ɠ "穝' v!'  % ɠL"#](  Z#b( U" Z# $ g( H 0 I &g( h &l(LE/8 i:`  Z#[& "pLG "# $ # L#H 8! v! 'hJ I`8;)q4X>Vt~w/z*|cYX ~uƀ1rҠ& v!iP q# ]#Ɉ "" $ i8H$șȩ0LN& % v!% #% # 0"ƙ L"  #i 0 i8.ș0șyc&yb&ya&y`&00ڊIi i/ȄȪ)ƙ.șI)$Ъ0.ȩ+.8嚪-FILE _ J1NPG19::4:K018:PR$(JK):K:24:" (RETURN FOR MENU,<- BACK,-> FORWARD)?";u AN$:(AN$)13ı (AN$)213070 (AN$)83020 JJ38:J18J18 J 37,23:36,0:868:12::"(RETURN FOR MENU)":  (16384)FILE: ";(FLE$,19);29);"PROG: ";NPG:"--------------------------------------":34,2Zs PERFORM CATALOG :35,23D$"CATALOG"35,24:24:10::"PRESS RETURN FOR MENU";:(16384)141204016368,0: LIST PROGRAM E$,19);29);"PROG: ";PG:"--------------------------------------"Nt34,2:3p~JBPGNPG:PR$(J):PR$(J):JD$"CLOSE"FLE$AN$"R"1170::"FILE: -APPENDED-";29);"PROG: ";NPG:"--------------------------------------":34,2:T::"1040LD$"OPEN"FLE$(VD$"READ"FLE$@[DT$:PG$:PG(PG$)K]1122e`AN$"R"NPGPG:1130aAN$"A"NPGNPGPG:NPGMXī1130b:12::"TOO MANY PROGRAMS WITH APPEND - SORRY!":J12500:J::D$"CLOSE"FLE$:Aj34,0::"LOADING: ";(FL"F"İ100:610!AN$"E"ĉ::*710G READ DATA FROM DISK R1020:10:"ENTER PROGRAM FILE NAME: ":FLE$:FLE$"A"ı:"REPLACE OR APPEND TO MEMORY? (R OR A):"AN$AN$"R"BPG1:1100$AN$"A"BPGNPG1:1100. -- COUNT # OF PRG BY TYPE"F5)"F -- FIND PROGRAM OR DISK VOLUME"Z5)"E -- EXIT"24:13::"ENTER CHOICE?";::AN$AN$"R"İ1000:610AN$"C"İ2000:610AN$"L"İ3000:610AN$"S"İ4000:610AN$"N"İ70:610AN$910:2l5:6)"L I B R A R Y R E V I E W":Nv13)"BY HILLY FUCHS":r11)"APPLE GROUP - N.J.":::5)"R -- READ PROGRAM FILE FROM DISK"5)"C -- CATALOG A DISK"5)"L -- LIST PROGRAMS"5)"S -- SORT PROGRAMS"5)"N0:VL206ıVL217280+NU%0:2111,:-320`6(PR$(J),7,(RS$))RS$ĺPR$(NPG)@35,24:24:868:8::"FINISHED-RETURN FOR MENU";:A(16384)141321B16368,0:N PROGRAM MENU X:NPG1:MX1200:PR$(MX)b:217241NU%0:210$J:320RNU%0:J1NPG:(PR$(J),7,1)(RS$,1)ĂcJNPG1310(PR$(J),7,(RS$))RS$ĂJNPG1320NU%NU%1:NU%1ė:3PR$(J):NU%18300210(16384)127280 VL(16384):16368,E? (Y OR N)";::" VL208270= (RS$)1RS$"00"RS$W (RS$)2RS$"0"RS$ NU%0:J1NPG:(PR$(J),3)RS$260 NU%NU%1:NU%1ė:3 PR$(J):NU%18260 211 (16384)127241 VL(16384):16368,0:VL206ı VL130 VL(16384):VL2081501 VL214130I NA$"VOLUME NUMBER"W 16368,0{ 12:"PLEASE INPUT "NA$:5:RS$ VL214(RS$)3170 VL141ı 210:220 :24:868:15::"SEARCHING";::35,23: 35,24:24:868:13::"MOR = ";BP%:13)"TEXT = ";TP%:13)"OTHER = ";OP%q X24:12::"(RETURN FOR MENU)";:(16384)14188 Y16368,0:: d FIND PROG OR VOLUME nNA$"PROGRAM NAME:"::10 x3)"FIND VOLUME # OR PROGRAM? (V OR P):" (16384)127Y ,XXY/ D$;"WRITE";F$;" ,R9,B0 ":XB D$;"CLOSE";F$DBERS YOU TYPE IN. A NEGATIVE NUMBER WILL REVERSE WHAT YOU HAVE DONE (IT MUST BE THE SAME VALUE)" 2::"THE NUMBER OF PROGRAMS THAT ARE MISSING ?";X <:"NAME OF FILE TO BE CORRECTED ?";F$ dD$;"OPEN";F$ D$;"READ";F$;" ,R9, B0":C F$(40)D$(4)$:(3)l "IF USING CAT MAKER YOU FIND SOME FILES MISSING USE THIS PROGRAM"::"IF YOU WANT TO CONTINUE TYPE Y ";A$:A$"Y":f (:(3):"YOU MIGHT HAVE TO DO THIS MORE THAN ONCE. KEEP A RECORD OF THE NUM  ͠ȠƠŠ>]ŠŠƠڠΠŠҠԠŠL]ŠΠӠԠҠΠŠӠĠϠӠ"]Π̭͠ŠԠ!]Ġ٠ȠҠ]Ҡa@E(ԠӠź]̠Ϯ]Š]Ӡ]͠Š]Š]Π%]ŠĠȠŠE]ӠĠȠƠӠҠ&UVW-rX&\F'0]Ԡ̬ŬŬŬ 2q%`;@r%%@B%rp()3`;@r%%q;@r(:a@E()E@*#rE()E@*#r DYYNa@E(Š)E@ Xa()KbUVWYla(Π) ]Ša@E(Š)E@Ka(ǠŠΠ̠Š)bXE(Ũө)a@E()E@a@E(Š)E@`@9()%a@ `@9()%bUVW-r;q-r\F@p@*#rq-r]ԠŠ°)a@(UVW;@rq <@*#rrYa@E(Š)E@`$Xa(ŠŠנ)FE(ӠΠŮϠՠȠϠŠӠϠˠ)GR@`@9()$Xa@E(Π)E@E(ְ)'a@E(Š)E@E(ҹ°)bͧŧϠĠϠΠǠ):S()&@`@9()$`@9()$`@9()$_*a@E(Π)E@E(ְ)`@9()%_4]ƠŬŠĠԠΠԠ)a@E(Ġ)E@E(ҹ°)R@q$a@E()E@E(Ұr&]ŠҠƠĠNd"e M6a(ԠˠŠǠŠ)a(ŠĠҺ) M6IN@"rS(٧ӠŠŠɮŠ)&@Va(קϠŠנǠ)a(@r$h.^UVWd--rr e<@*#rrYHh`--rr$d2ea(٠)d2eUVWY r]̠ӠנΠ+|]ŠǠŠĠŠΠ`d6?eq8--rr-r-rrr*o.?%rPa(Ǡˠ)F"]ΠΠԠ:6d6ed7ed8e(d9eM]ҠӠ@a@E()2Ja@E(ң)a@E(Σ)]ΠƠԠET-rq-r--rrq.?r.?r`;a(ԠΠϠ)a(ԠçϠŠǠ)cd"e3d2e?a(ԠΠҠ)Gd2e@p())q.?6@r`$`$R@q-r`@9()$Aq8<@*rrrd8<@*rrr <@*)\M6a@E(ΠɬϬ)Fdede-rqde.?6rde.?7rq C]ŠȠǠ٠Π٬ǠԠNoa(ԠȠˠΠ)a(Ҡ̠ԠŠ)A"rq_K@B;@rrp(Ÿ)UVW;@rde<@*rrYdHe[z@p(ù°ðù°ù°ŶİŶ)\M6;@p(N@"2rD42rC@"r@p()]Ĥ̭Ġ5}q`.?r%q.?r.?rqN@"r(S(ԠŠŠϠՠԿ)&@`@9()$G]Ԡ͠ϠŠǠϠ٬̭͠ŠN@ PM6;ZcP a(٠נ)cP a(٠Ƞ)Zdca(ӠĠǠҠ)a(ӠԠΠŠĠ٠٠);na(ϠŠǬŠ̠ˠΠĠҠŠ)ocLxqq.?Jr.?Kr( ] ]ŠˠǠ ] #]٠٠Š 2]<_P^FUVW$de.?r`.?r%qYde[]ĠǠ     PARE ELEMENT BETWEEN% IM1II14 JM11220R TA(I):A(I)A(M1):A(M1)Tu SAVE STARTING POINT FOR ARRAY SEGMENT OF LARGE ELEMENTS LL1:B(L)I  REPEAT SORT OF SEGMENT OF SMALL ELEMENTS 1030  1 AND 2 ELEMENT CASES ) ) FIND A LARGE ELEMENT0 .II1:IJ1170F 8A(I)A(M1)1070v B FIND A SMALL ELEMENT AMONG THE LARGE ONES LJJ1:IJ1170 VA(J)A(M1)1100 ` EXCHANGE jTA(I):A(I)A(J):A(J)T:1070 ~ ARRAY SEGMENT NOW DIVIDED  MOVE COMSORT BY STEVE HARRINGTONA  INIT BEGIN AND END POINTS OF ARRAYV L1:B(L)N1:M1u  SET END OF ARRAY SEGMENT JB(L)  SET START OF ARRAY SEGMENT IM1  IF ONLY 1 OR 2 ELEMENTS THEN SPECIAL HANDLING JM31250 $M1((IJ)2 "STRING? ";A$ 920* A$::230K ***REMOVE ALL BUT CAPITALS.Q d L(A$):L0ın B$""y K1L C$(A$,K,1) (C$)64(C$)91B$B$C$ K A$B$:B$"":,,1,A,7,36,A),~ N BY HILLY FUCHS FOR APPLE GROUP- N.J. PUBLIC DOMAIN A PUBLIC DOMAIN (16384)1274070;VL(16384):VL176VL1804079IVL141ı]16368,0:4070k16368,0:::"SORTING....":VL1774110SRT#(PR$,0,NPG,1,3,A,7,36,A):VL1784130SRT#(PR$,0,NPG,7,36,A): "SRT#(PR$,0,NPG,51413072 16368,0 8 SORT PROGRAM FILE A:9j"CHOOSE YOUR SELECTION CRITERIA:":5)"1 -- SORT BY VOLUME NUMBER":5)"2 -- SORT BY PROGRAM NAME":5)"3 -- SORT BY TYPE OF PROGRAM"::14::"YOUR CHOICE?":ӍɠǍԠԠōɠٍ̍̍ȍӍɠӠύ ӠǠӍɠ̠Ӎ ĠǍɠנŠĠǍɠ̠ōɠӠȍɠӍɠŠũ ٍɠӍŠӍӍԠōɠӠͮ΍ҠǍɠ٠ٍɠϭ̍ɠԍɠӠͮ΍ɠŠÍɠààōɠˠԍ΍ɠύɠҠύɠōɠٮ®ɠנ΍ɠΧӠԍ Šōɠ٧ӠŠōɠѠԍȠŠԩɠɠōɠӍԠҠ͍ɠҍ̠ɭӍɠîƮȮԍɠӍɠӍɠҍɠɠӠĠӍɠנϠɠŠōɠ٠ٍɠύɠӍɠȠׯӍɠҍɠō ŮʍɠύԮŮٍ Ԡİ̤ɠˠŠҠԍɠԠӍ ű٠Яō̠ҠٍɠӠ̠Ġˍɠύɠ čɠŠÍ Ӎɠȍ ԲōɠˠϠŠ̠ө ˠϠŠЮŠˠō٠ӍɠԱӍ ԱɠӠōɠŠǍōԠҍɠˠҠЍɠˠҠү׳ɠύɠˠōɠԍɭàԍԍɠԯΠħɠٯĠÍԠҍɠàōԠǍɠԠԍРРԍ ®čԠ     AND""20:"PRESS 'ESC' TO END"L"PRESS THE SPACE BAR TO CONTINUE..."c(16384)155436y(16384)16010425936:10:10:405 GIVEN TO APPLE CORE OF SAN FRANCISCO BY THE AUTHOR..ARDEN K. FRITTSLES ARE LINES 50,110,165,170.#F"MEMORY AVAILABLE----> ";(0)d"* * * THE END * * *":936:5:"* * YES NO AND PAUSE * *":::"BY ARDEN K. FRITTS"::" THIS PROGRAM IS TELLING YOU THE":"MERITS OF USING THE GET COMMOVERED IN THIS MESSY PRESENTATION ISA WAY TO AVOID THOSE UNWANTED, SPOOKY"{""BLANK LINES FOLLOWING 'PRINT' LINES THAT";$"END IN PRINT POSITION '39'"%'"ONE SOLUTION IS A SEMI-COLON AT THE END")"OF THE 'PRINT' LINE."*,"EXAMPTRY AGAIN ?"Q$,Q$(13)199: YESg:"A FERTILE IMAGINATION COULD EXPAND THIS ENDLESSLY":"CONTRIBUTED BY:":16)"ARDEN K FRITTS":16)"415 KINROSS DRIVE":16)"WALNUT CREEK, CA 94598":16)"(415) 935-1442"::"'PS'":J"DISC" Q$:"THE FOLLOWING NONSENSE DEMONSTRATES"U:"HERE IS AN APPLE."s:"DO YOU LIKE APPLES ?"{Q$Q$(13)230: YES:"GIVE IT BACK"240:"IT'S YOURS. EAT IT.":"NONSENSE NOW CONFIRMED" :"WANT TO NTRY' MOVES TO NEXT COMMAND"" S "COMMAND'IF Q$ = CHR$(13)THEN'YOUR CHOICE";o 17)"RETURN KEY = YES" "COMMAND'IF Q$ = CHR$(32)THEN'YOUR CHOICE"; 17)"SPACEBAR = NO Q$:"SEE PAGE 138 OF YOUR APPLESOFT II MANUAL FOR CHR$ CODESRESPOND TO A QUESTION"4 "WITH YES OR NO ANSWERS"g :"THE PROMPT IS A NAKED CURSOR ON THE LEFT"; "MARGIN FOLLOWING A QUESTION, OR AT THE END OF AN OBVIOUS SOFT STOP" :"COMMAND'GET Q$'CAUSES A SOFT STOP":" ------" "ANY KEY 'E"; IDISKPTRC (S5)S5(I)(S7)S7(I)ĺ" ";NA$(I);:I99J Ia I5ĺ"N UNKNOWN";s " CARD":480 "SLOT NO. "(S49152)256" IS EMPTY" :   DONATED BY  WM.R.DIAL   AUTHOR UNKNOWN )"PARALLEL PRINTER" 6CS(2)/ @C10049408? JC70050944T TSC100C700256_ ^K02l hCS(K)0{ rI02558 |CS(K)CS(K)(SI) : CS(0)CS(1)CS(1)CS(2)CS(2)256CS(0)256CS(1)256470 "SLOT NO. "(S49152)256" HAS A0 `0` `01110IXXXXXXXXXIXX OO!!!" 0 :A$", IT'S BEEN MY PLEASURE."6 S "HAVE A PLEASANT TIME!"_ ::: :"THIS MESSAGE WILL SELF-DESTRUCT..." I18000:I A$" ":B$" ":T$" ":L(A$):I0:J0 AI1)B$(I):II1:I0110+ B$(I1)T$:JE I1L:B$(I);:I::k "THERE! ISN'T THAT BETTER? ":D${ 936:(10) D$"YES"180 D$"Y"180 D$"OK"180 :"I'M SORRY THAT YOU DON'T AGREE.":200 :"I KNEW YOU WERE ORGANIZED TJM21300 A(M)A(M1)1300@ TA(M):A(M)A(M1):A(M1)Tb SET BEGIN AND END POINTS FOR ARRAT SEGMENT OF LARGE ELEMENTS MB(L)1:LL1:L01030  N Y( $ iHi h 8Ю` LJJJJ&B$(J)H7RD$;"OPEN SUPER CAT"P\D$;"READ SUPER CAT"XfYYqpD$;"OPEN SUPER CAT"zD$;"WRITE SUPER CAT"YYYD$;"CLOSE"1YlB$(J)q$vD$;"CLOSE"*{0:M ** OPEN OR APPEND ** S:^1:16h958"OPEN OR APPEND O/A ";DN$DN$"A"800DN$"O"607705 D$;"APPEND SUPER CAT"*D$;"WRITE SUPER CAECTARSECTAR1 SECTAR165= 20:"FREE SPACE = ";(X)E 22_ "CONTINUE (Y/N) ? ";h QA$x QA$"Y"35 QA$"N"700 517 ?35 X: Y * WRITE CATALOG * Z: _D$;"OPEN SUPER CAT" bD$;"WRITE SUPER CAT" cYgJED **  * FILES **# :3 K2554359 :Q  ** LOAD MATRIX **j  * WITH FILE NAME *p :z YY1 B$(Y)A$TY$DN$ 23: Y: A$"" II35: :  * PREPARE TO READ *  * NEXT SECTOR * : :SOFT "' K4K132TY$"BINARY "0 "4006 ,:Q - ** READ FILE NAME **W .:e 1J30400w 6KL(JI)128} ;: < * ELIMINATE CONTROL * = * CHARACTERS * >: @KL32KL94400 EA$A$(KL)  :  * SKIP DELET K0J0515 :4 * SKIP DELETED FILES *: :M K255J0237V 245_ J35l J2400~ ::::J35:400 : * READ FILE TYPE * : K0K128TY$"INFO " K1K129TY$"BASIC " K2K130TY$"APPLES37897 P38144 d:/ e ** READ MEMORY **G f ** DUMP **M g:X nM17d xJ034j : ** READ FIRST 3 ** ** BYTES ** : J2300 K(JI) : ** FINISH IF FILE ** ** NOT LINKED ** : 37886+ :"SUPER CATALOG BUILDER"7D$(4)_D$;"BLOAD SUPER CATALOG BUILDER.X"lB$(200)w#1:12-9582"FILE NAME = ";DN$7SECTAR12<:= ** READ DISKETTE **> ** DIRECTORY **?:A38159,SECTAR F:I    7 d:/n(4)"BRUN JUMP POINTS DOS 3.2.X"5xH I ^FF1:F5370! cA(0,6)Fp h20:"1. CONTINUE ENTERING NAMES.":"2. RETURN TO MENU.":"WHICH # ";D:B0 mD302,100:360 p:"THE FILE IS FULL!!" r10 34,0:"EY WILL TERMINATE THE STRING!!!"I 214:FA(0,6):"NAME ";F1;": ";:A$g 6Y(A$):Y25A$(A$,25) ;(A$)25A$A$" " =(A$)25315 ?I2555 AX((A$,I))31 BJI1I41 EXX60((A$,J))31 OJ TA(B,F)X:BB1 YRECORDING";::" AND":"PRESS 'RETURN'.";D$2 A: 10j ,:"THIS FILE IS SET TO HOLD 6 NAMES ONLY."w -F6368 .6:958:"NAMES WITH MORE THAN 25 CHARACTERS WILL BE SHORTENED TO 25 IN LENGTH." 0:"DO NOT USE COMMAS (,) OR COLONS (:) AS TH:N05:A$"" I401) XA(I,N)4 J15P Y(X60):ZX(Y60)31m A$A$(Z):XY:X60225t J XX31:A$A$(X) I N1;" ";A$ A(0,N1)0245 N :"END OF FILE!!":10+ :"WHEN READY, START TAPE ";::" TAPE." e:"WHICH # ";D3 fD150,200,250:100 :"ARE NAMES TO BE ENTERED FROM:"::"1. TAPE?":"2. KEYBOARD?"::"WHICH # ";D D160,300:150 :"WHEN READY, START TAPE ";::"PLAYING";::" AND PRESS 'RETURN'.";:D$ A 100 A(4,6):B05:12)"STRING SAVE DEMO":34,3Q BY BOB MATZINGER 7/78Z100 20:958:"1) RETURN TO MENU.":"2) QUIT!":"WHICH # ";D D100,400:10 d:"MENU:":" 1. ENTER NAMES.":" 2. READ FILE TO CRT.":" 3. SAVE FILE TO      SYSTEM AND YOU CALL CATALOG."3 D12000:D:DAVAILABLE ON A DISK WHEN IT IS IN MEMORY. " :"IF YOU RUN IT AND THEN INITIALIZE A NEW DISK WITH IT IN MEMORY IT BECOMES PART OF THE DOS SYSTEM ON THE NEWLY INITIALIZED DISK." :"IT WILL THEN GIVE YOU THE FREE SPACE ON THE DISK WHEN IT BOOTS THE 18 90 F0 88 D0 E9 A6 40 A5 41 AC 00 E0 C0 20 D0 07 20 1B E5 20 2F AE 60 20 24 ED 20 2F AE 60 NADC3:20 BA BC ND823G" nI1(HEX$):511I,((HEX$,I,1))128::72,0 x144 }+ :936:5:4:"THIS PROGRAM WILL GIVE YOU THE AMOUNT OF FREE SPACE 5  **DOS FREE SPACE PATCH**)200B **BY MARK PUMP ANDV VAL GOLDING**u **CALL APPLE, SEP 1980**( TYPED BY WM J KERR SR2t dHEX$"BCBA:A2 0C 20 4A F9 A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41 68  EVERSED":"A SMART APPLE II LIKE ME SHOULDN'T MAKE" F"A ERROR LIKE THAT!!!"::"THEN AGAIN, YOU ENTERED THE LETTERS":"OUT OF ORDER...THAT DOES NOT COMPUTE" P Z"LET'S PUT THEM INTO ORDER...": dJ2L:IJ1:T$B$(J) nT$B$(I)130 xB$( 936:"NAME"::::::+B$(40)"HELLO:"::" MY NAME IS 'APPLE II'.":"WHAT'S YOUR NAME?? (1ST & LAST) "::A$:L(A$)::"THANK YOU!, ";(I1L:B$(I)(A$,I,1):I2IL11:B$(I);:I3 <"."::"OOPS!!! I SEE THAT I GOT THAT R    ":7::"FILE ELEMENTS:"#R1E515);CMD$(R)<Rp:"DO YOU WISH TO BUILD ANOTHER FILE ? Y/N";I$&I$"Y"14200:10:11);"HAVE A GOOD DAY !":140h:"COMMAND #";L:C$1rC$"LAST"1690H|C$"MISTAKE"1540WCMD$(L)C$^LhEL1qOP$zWR$R1ECMD$(R)RCL$VER$LOC$:3:"EXEC FILE NAME:":A40(A$):BA2:CB4::C);"*** ";A$;" ***COMMANDS YOU CAN RESTART BY ENTERING 'MISTAKE' INTHE SAME FORMAT AS YOU ENTERED THE OTHERCOMMANDS.":@13::"**** NOTE ****"::"QUOTES MUST PRECEED EACH COMMAND EXCEPT 'LAST' OR 'MISTAKE'."J23:5)"*** 'RETURN' TO CONTINUE ***":I$T^LL BE USED."Q"THE ENTRY MUST BE IN THE SAME FORMAT AS THE FOLLOWING EXAMPLE:"j":Q$;"BLOAD XXXX":,"THE LAST COMMAND ENTERED MUST BE 'LAST'. YOU MAY ENTER UP TO 40 COMMANDS TO GO INTO YOUR 'EXEC' FILE."e6:"IF YOU MAKE A MISTAKE ENTERING "OPEN "A$",L200,S"S$",D"D$",V0"=WR$CD$"WRITE "A$WVER$CD$"VERIFY "A$oLOC$CD$"LOCK "A$CL$CD$"CLOSE "A$ :"ENTER THE COMMANDS THAT YOU WISH TO HAVEIN YOUR EXEC FILE. THEY MUST BE ENTEREDIN THE ORDER THAT THEY WIL0),LOC$(20),A$(40),C$(40),CMD$(400)/B$(20)65:"WHAT NAME DO YOU WISH TO ASSIGN TO THE EXEC FILE THAT WE ARE BUILDING ? ";A$:"WHICH SLOT DO YOU WANT TO HAVE THE EXEC FILE WRITTEN TO ?";S$:"WHICH DRIVE IN THAT SLOT ?";D$%OP$CD$"HIMEM:8192": <"COMMAND #4"7 FQ$;"LOMEM:4096":I P"COMMAND #5"Y ZQ$;"RUN":k d"COMMAND #6"w n"LAST" x22:5);"**** 'RETURN' TO CONTINUE ****" I$ CD$(4):Q$(34) CD$;"NOMON I,O,C":#OP$(20),WR$(20),CL$(20),VER$(2X";Q$ "50 END"A 22:5);"**** 'RETURN' TO CONTINUE ****"I I$ :"THE FOLLOWING IS AN EXAMPLE OF AN ACTUALCOMMAND ENTRY SEQUENCE:" :"COMMAND #1" Q$;"BLOAD PLANET": "COMMAND #2" Q$;"LOAD RL": ("COMMAND #3" 2Q$;XAMPLE OF A PROGRAMTHAT YOU CAN USE TO CALL THE EXEC FILE THAT WE HAVE BUILT."r :"10 CD$=CHR$(4):REM CTRL D" "20 PRINT CD$;";Q$;"NOMON I,O,C";Q$ "30 HOME" "35 PRINT TAB(10)";Q$;"LOADING PLEASE WAIT";Q$ "40 PRINT CD$;";Q$;"EXEC XXX CPU WITH THE APPLESOFT II FIRMWARECARD INSTALLED." :" THIS PROGRAM WILL ASK WHICH SLOT/DRIVETHAT YOU WANT TO WRITE THE EXEC FILE TOOSO THAT YOU DON'T HAVE TO CHANGE DISKS OR HAVE THIS PROGRAM RESIDENT ON EACH DISK."O :"THE FOLLOWING IS AN ERALPH D GUSTAFSON, B 18095 SW DIVISION STE L ALOHA OREGON 97005\ V TEL:503-649-5744e `:2 j"DO YOU WISH TO HAVE ME PRINT A NARRATIVEABOUT THIS PROGRAM ?":"(Y/N)";I$ tI$"N"1420 ~3 " THIS PROGRAM WAS WRITTEN ON A 48K APPLE :5:Q$(34)=5);"*** EXECUTE FILE GENERATOR ***"Y10:15);"WRITTEN BY:"13:20);"RALPH 'GUS' GUSTAFSON"20);"APPLE USERS GROUP"20);"PORTLAND OREGON"$22:5);"**** 'RETURN' TO CONTINUE ****":I$. AUTHOR: 8       I1)EX$ I# SW$"NO"ī2020) ULEASE ENTER YOUR WORD NOW"+ " ";AN$8 X(AN$)F $X01020T .W$(N)AN$Z 3p 8 END OF SUB 1000  SUB TO SORT WORDS N1ı: NO SORT SW$"OK" I1N1 (W$(I)W$(I1))ī2060 SW$"NO":EX$W$(I) W$(I)W$(I1):W$(Y$CK$N$)190$ CK$N$ĭN0Ā; CK$Y$İ1000:190E ,20:b 6"SORTING...PLEASE WAIT"| 2000: TO SORT WORDS :20 "HERE ARE YOUR WORDS" I1N 10:W$(I):I   SUB TO INCR NUMBER OF WORDS NN1 20 "P+  40:936:10:10:7(Y$(1),N$(1),CK$(1)K2W$(50),EX$(40)X<AN$(40)jPY$"Y":N$"N"rd20n"HI THERE...LET'S SORT WORDS"xWA11000:WAN020"WANT TO ENTER A WORD (Y OR N) ?";AN$CK$(AN$,1,1) (CK$ ΠҠɍ d QUICKSORT DEMO'n ARRAY A(N)6s1184::@xN100QA(N),B(N1)hI1N:A(I)(1):}"SORTING":1000190:M0I1N2:A(I),:INĺA(I1)MM1:M20(M20)ĺ:"PRESS ANY KEY TO CONTINUE":R$I: QUICK  "ECTOR ";TR%,SE%]&TR%0TR%34SE%0SE%12ĺ(7);"0<= TRACK <=34":"0<= SECTOR <=12":530q026,TR%:27,SE%:21504: READ TTSSX FORMAT DUMPb21507l:"1: SEE IT AGAIN. 2: ANOTHER SECTOR"vA$A$"1"610A$"2"50021738,78:21739,84:21740,73:21741,78:21742,85:21743,69:21744,85:21745,0n:21746,0:21747,0:21748,0t10:11:"SECTOR DUMP PROGRAM"19:"BY" 14:"ALAN G. HILL"20:"ENTER TRACK & SECTOR IN DECIMAL"21:868:"TRACK,S21714,84:21715,169:21716,255:21717,141:21718,242:21719,84:21720,76:21721,118:21722,84:21723,96:21724,141:21725,65:21726,78:21727,89:21728,32:21729,75:21730,69:21731,89:21732,32:21733,84:21734,79N:21735,32:21736,67:21737,79::21691,232:21692,224:21693,20:21694,208:21695,243:21696,173:21697,0:21698,192:21699,16:21700,251:21701,173:21702,16:21703,192:21704,32:21705,88:21706,252:21707,76:21708,76:21709,84:21710,169:21711,160:21712,76h:21713,147:136:21668,208:21669,224:21670,44:21671,242:21672,84:21673,48:21674,48:21675,165:21676,37:21677,201:21678,21:21679,144:21680,155:21681,162:21682,0:21683,189:21684,220:21685,84:21686,9:21687,128:21688,32:21689,240:21690,253x24:21645,176:21646,63:21647,201:21648,160:21649,144:21650,59:21651,32:21652,240:21653,253:21654,169:21655,160:21656,32:21657,240:21658,253:21659,169:21660,160:21661,32:21662,240:21663,253:21664,232:21665,240:21666,56:21667,21621,239:21622,142:21623,243:21624,84 x:21625,32:21626,142:21627,253:21628,162:21629,5:21630,32:21631,74:21632,249:21633,174:21634,244:21635,84:21636,160:21637,8:21638,189:21639,0:21640,85:21641,9:21642,128:21643,201:21644,2:21598,169:21599,160:21600,32:21601,240:21602,253 d:21603,160:21604,8:21605,189:21606,0:21607,85:21608,32:21609,218:21610,253:21611,169:21612,160:21613,32) n:21614,240:21615,253:21616,232:21617,240:21618,96:21619,136:21620,208:2:21575,243:21576,84:21577,32:21578,88:21579,252:21580,32 P:21581,142:21582,253:21583,174:21584,243:21585,84:21586,142:21587,244:21588,84:21589,138:21590,32:21591,2186 Z:21592,253:21593,169:21594,173:21595,32:21596,240:21597,2535:21551,24:21552,200:21553,169:21554,0:21555,145:21556,24:21557,32:21558,227 <:21559,3:21560,32:21561,217:21562,3:21563,144:21564,3:21565,76:21566,45:21567,255:21568,96:21569,162? F:21570,0:21571,142:21572,242:21573,84:21574,1427,24:21528,200:21529,165:21530,27:21531,145:21532,24:21533,173:21534,241:21535,84:21536,160 (:21537,8:21538,145:21539,24:21540,173:21541,240:21542,84:21543,200:21544,145:21545,24:21546,160:21547,12T 2:21548,169:21549,1:21550,14 t :21504,76:21505,6:21506,84:21507,76:21508,65:21509,84:21510,32:21511,227:21512,3:21513,132:21514,24:21515,133:21516,25:21517,169:21518,0:21519,160:21520,3:21521,145:21522,24:21523,200:21524,165:21525,26e :21526,145:215        JM21300#A$(M)A$(M1)1300IT$A$(M):A$(M)A$(M1):A$(M1)T$kSET BEGIN AND END POINTS FOR ARRAT SEGMENT OF LARGE ELEMENTSMB(L)1:LL1:L01030 NELEMENT BETWEEN IM1II1/JM11220ST$A$(I):A$(I)A$(M1):A$(M1)T$vSAVE STARTING POINT FOR ARRAYSEGMENT OF LARGE ELEMENTSLL1:B(L)I REPEAT SORT OF SEGMENT OF SMALL ELEMENTS1030 1 AND 2 ELEMENT CASES LARGE ELEMENT! .II1:IJ11709 8A$(I)A$(M1)1070i B FIND A SMALL ELEMENT AMONG THE LARGE ONES} LJJ1:IJ1170 VA$(J)A$(M1)1100 ` EXCHANGE jT$A$(I):A$(I)A$(J):A$(J)T$:1070 ~ ARRAY SEGMENT NOW DIVIDED MOVE COMPARE ARRINGTON2  INIT BEGIN AND END POINTS OF ARRAYG L1:B(L)N1:M1f  SET END OF ARRAY SEGMENTq JB(L)  SET START OF ARRAY SEGMENT IM1  IF ONLY 1 OR 2 ELEMENTS THEN SPECIAL HANDLING JM31250 $M1((IJ)2) ) FIND A NTEGER,VALUES,MUST BE,-32767,32767,FOLLOWING,RULES,EXACT,NEGATIVE NMINUS,SIGN,FALL,UNDER,CATEGORIES,SCIENTIFIC,NOTATATION,FORMATTED,FOLLOWS,MANTISSA XWE,WILL,DIGRESS,FOR,A,MOMENT,TO,EXPLAIN,THE,FORMAT,NEVER,TRAILING,ZEROES QUICKSORT BY STEVE HPOINT),MUST,BE,IN,RANGEN &FROM,-1,1,OR,YOU,RISK,GETTING,ERROR,MESSAGE,USING 0ADDITION,SUBTRACTION,SOMETIMES,ABLE TO,GENERATE,AS,LARGE AS,WITHOUT,WHOSE,ABSOLUTE :VALUE,LESS,THAN,ABOUT,WILL,CONVERTED,ZERO,APPLESOFT II,THESE,LIMITATIONSA DTRUE,IR$: I: ,1000^ OF,NUMBERS,PRINTED,BY,APPLESOFT,BASIC,ARE,STORED,INTERNALLY,OVER NINE,DIGITS,ACCURACY,WHEN,NUMBER,IS,ONLY,SHOWN,EVERY,MAY ALSO,HAVE,AN,EXPONENT,(A,POWER,TEN,SCALING,FACTOR). REAL,PRECISION,(ALSO,CALLED,FLOATING,d QUICKSORT DEMO'n ARRAY A(N)1xN100CB(N1),A$(N)WI1N:A$(I):]:10:11:"SORTING 100 ITEMS":1000190:M0I1N2:A$(I),:INĺA$(I1) MM1:M20(M20)ĺ:"PRESS ANY KEY TO CONTINUE":    7`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!p3"DONE!":"PRESS 'RETURN' TO LIST...";I$9FI0N1bLOL(LO): FOLLOW LINKSVI(I24)241:H(I24)1:V:H54N(LO);I1040 1&RL(LO)L2: SWITCH TO SEQUENCE 2/\880SfL(LO)L1: SWITCH TO SEQUENCE 1rpM1M11: NUMBER OF MERGESzM10700M10350 GENERATE 2ND HALF OF A 4-TWIGM11M1630 EXITLON1: FIRST LINK IN SEQUENCEL(LO): NEXT LEAF IN SWQUENCE 2BL2LO870: END OF SEQUENCE 2l N(L1)N(L2)770: STAY IN SEQUENCE 2*L(LO)L1: SWITCH TO SEQUENCE 14LOL1: TOP LEAF IN SEQUENCE 1>L1L(LO): NEXT LEAF IN SEQUENCE 1HL1LO750: NOT END OF SEQUENCE OF LATEST BRANCH OR TWIGCLOJ1: HEAD OF OLDER BRANCH OR TWIGeL1L(LO): HEAD OF SEQUENCE 1L2L(J): HEAD OF SEQUENCE 2N(L1)N(L2)820: STAY IN SEQUENCE 1L(LO)L2: SWITCH TO SEQUENCE 2LOL2: TOP LEAF IN SEQUENCE 2 L21I:L(I)I:L(J)I: GENERATE LEAFKLOJ: HEAD OF OLDER LEAF (LAST LINE)yJJ1: HEAD OF LATES LEAF (NEXT 2 LINES)II1: NEXT LEAFL2I:L(I)I:L(J)I: GENERATE A LEAF750: MERGE LEAVES MERGE TWIGS AND BRANCHESJJ1: HEAD 6301 &T3T4610: LOW-ORDER TWIG (2-TWIG)> 0 3-TWIG] :M1M11: NUMBER OF MERGESu DII1: NEXT 'LEAF' NL(I)I:L(J)I: GENERATE A LEAF XJJ1: NEXT SEQUENCE HEAD b 2-TWIG lM1M11: NUMBER OF MERGES vII1: NEXT LEAF!L BIT VALUE 400: CARRY ONE9  'TWIG' CALCULATIONS` T2T2B1: REFLECTED 'TWIG' NUMBER S12550: 2-TWIGS AND 3-TWIGS  3-TWIGS AND 4-TWIGS T3T4560: LOW-ORDER TWIG (3-TWIG)  4-TWIG M1M1: DIS-ENGAGE NUMBER OF MERGES COMPLETE* rK1K11:T1K1: 'TWIG' NUMBERE |B1B2: HIGH BIT VALUEr T3T2: PREVIOUS REFLECTED 'TWIG' NUMBER  ADD 1 TO REFLECTED BINARY COUNTER AND CARRY T1T12 (T1)T1470: NO MORE CARRIES M1M11 T2T2B1 B1B12: NEXTK2K22: TOTAL NUMBER OF 'TWIGS'0 B2S12= "S1(B2)R ,T4T4(B2S1)K2[ 6250v @ INITIAL CALCULATIONS JT4K2T4: NUMBER OF LOW-ORDER 'TWIGS' TB2K22: HIGH BIT VALUE OF BINARY COUNTER ^ NEXT 'TWIG' hK1K2940: EXIT - SORT L(1011): LINKS:N+LOG2(N)+2 ELEMENTSD K10:I0:M10:T20:T40c JN1: HEAD OF SEQUENCE 1z L(1)1:L(J)1:K21 N1940: EXIT, NOTHING TO SORT S1N: NUMBER OF 'LEAVES' CLIMB THE 'TREE' S14320: LOW-ORDER 'TWIG' VALUE$  WOODRUM SORT/ CREATIVE COMPUTINGB JAN/FEB 1978W( PGS. 96 TO 101ddN(1000)n"SORT HOW MANY RANDOM NUMBERS?"xNI1NN(I)((1)100001)I"PRESS 'RETURN' TO START SORTING";I$ ENTRY(    7`INILSRHDELOUNCLOSREAEXEWRITPOSITIOOPEAPPENRECMONOMOPRINMAXFILEFINBSBLBRVp!p!ppp!ppppp!ppp!p IAL ON HOW TO PROGRAM : WITH THE PARITY BIT,WEY WILL PRINT IT OR PUT x IT ON THE DISK AND CREDIT YOU. A$(255) ***ASK FOR STRING (A$),REMOVE ALL CHARACTERS ***WHICH ARE NOT UPPERCASE LETTERS, PRINT RESULTM YOURSELF TO / d DO THIS. HINT:YOU CAN L n TURN ON THE PARITY BITj x IN THE FIRST CHARACTER OF EACH WORD AND USE THAT AS A FLAG FOR FOR A SPACE. IF ONE OF YOU WANTS TO WRITE WANTS TO WRITE A TUTOR-  THIS SUBROUTINE CAN BE ; USED TO COMPRESS DATAW FOR FASTER SORTS AND u( SEARCHES. A FUTURE DISK2 WILL HAVE A"DECOMPRESSOR"< SUBROUTINE TO RESTOREF TEXT TO READABLE FORM.P YOU MIGHT WANT TO WRITE  Z A PROGRA936:-(4);"BLOAD DOS SHORT COMMANDS.X"ENT TIME YOU CAN NOT USE THE UPDATE 3.2.1 PROGRAM ON A DISK THAT HAS BEEN INITIALIZED WITH SHORT DOS COMMANDS. IT DOESN'T FIND THE IMAGE":9:"HIT RETURN TO CONTINUE";A$:936:510:"WANT TO TRY IT (Y/N)?";A$:A$"Y"A$"YES"240:MANDS' INTERNALLY WILL NOT WORK ON NORMAL DISKS. YOU GET ""SYNTAX ERRORS. WITH THESE TWO THINGS IN MIND YOU CAN INITIALIZE DISKS USING DOS WITH SHORT COMMANDS. "" AT THE PRES IF YOU INITIALIZE A DISC WITH 'SHORT DOS COMMANDS', PROGRAMS WHICH USE NORMAL COMMANDS TO LOAD OTHER "B"PROGRAMS WILL NOT WORK. SIMILARLY PROGRAMS THAT USE THE 'SHORT DOS COM "M:9:"HIT RETURN TO CONTINUE";A$:936:5" TO GET BACK TO NORMAL DOS JUST BLOAD 'RESTORE' AND ALL YOUR COMMANDS ARE BACK TO THE ORIGINAL. A FEW THINGS TO REMEMBER!!!!!! "" S- = SAVE BR- = BRUN H- = CHAIN V- = VERIFY DE- = DELETE RE- = RENAME "" LO- = LOCK C- = CATALOG UN- = UNLOCK " " NEW = 0LD NEW = OLD ___________ __________ L- = LOAD BS- = BSAVE "w " R- = RUN BL- = BLOAD D ALL THE OTHER COMMANDS AS WELL. " :9:"HIT RETURN TO CONTINUE";A$:936:5) " WHEN 'SHORT DOS COMMANDS' IS BLOADED INTO MEMORY THE FOLLOWING COM- MANDS ARE AVAILABLE: , " x"DOS CONTAINS THE USUAL COMMANDS FOR OPERATING THE APPLE-- I.E. CATALOG, DELETE, SAVE, ETC. AS MOST OF YOU KNOW ITS A PAIN TO TYPE 'C A T A L O G' EACH"S "TIME. BY BLOADING 'SHORT DOS COMMANDS' YOU HAVE SHORTENED CATALOG TO 'C-' AN"* MITCH GEIER *"D Z9:"*";:31:"*":9:I123:"*";:I^ dD13000:D:936:5 n" THESE INSTRUCTIONS DESCRIBE THE USE OF THE BINARY PROGRAMS 'SHORT DOS COMMANDS' AND 'RESTORE'. WHEN YOU BOOT YOUR DISK SYSTEM WITH A NORMAL DISC.  :936*6:9:I123:"*";:I:@9:"*";:31:"*"b(9:"* S H O R T D O S *"x-9:"*";:31:"*"29:"*";:16::"COMMANDS";::31:"*"<9:"*";:31:"*":9:"* WRITTEN & TYPED *"F9:"*";:20:"BY";:31:"*" P9:     Jz#?? ĠŠŠŠ ŠΠӠŠɠΠӠŠɠ Ӡ٠ӠϠĠŠ  ҠԠ ԠӠɠ ǠŠΠ ǠŠϠ ҠǠҠ  ҠǠҮؠ͠Π Š̠ ӠŠĠ! ԠǠɠ" ԠǠɠŠǠӠ ԠӠ͠  Ԡˠ ԠˠҠ  ٠ˠ ٠Ҡ ҠĠ ҠĠà Ӡ ӠŠŠ ӠŠȠ ٠ԠҠ٠נ٠׮ؠ ̠ ̠Ԡ ͠͠  ٠Š͠٠ àŠ àŠҠ ŠӠӠȠ РӠӠРӠӠؠ٠ ٠נԠ ̠Ԡ!ӠĠҠ"ӠĠҠ֠ӠԠӠ ӠԠӮؠӠԮŠ РˠĠҠ ԠɠǠҠĠҠĠҮؠЭؠҠéЭؠҮؠǠĠà٠ŠĠŠԠԠؠíԠ+ԠנϠ SYSTEM CONFIGURATION (CONFIG)":O S5(4),S7(4):DISK1:COM2:SERIAL3:PTR4l 3,60,24,56,56,24,72,72 IDISKPTR:S5(I),S7(I): NA$(4) NA$(DISK)"DISK CONTROLLER" NA$(COM)"COMMUNICATIONS" "NA$(SERIAL)"H. S. SERIAL" ,NA$(PTR THIS PROGRAM FIGURES6 OUT WHAT CARDS YOURU APPLE HAS IN WHICH SLOT.[(u2 THIS IS DONE BY THE< PROGRAM LOOKING ATF THE CODE IN AN ON-P BOARD ROM AND DOINGZ A QUCIK CHECK ON A FEWd BYTES." :::" hh`)`OG06@pUR.N$L L=LiTȱiȱi`ȱiȱi ``ȑ Ŕ8 Đ0ȑ Ŕ 0/# `i!LȭLL ȭ  L 6 ޘи8ޥ߰ L\L;LdHȥؑȥّڥݑօوܑօ؈ڑh`Н(k듥l쓢P`(듅k쓅l哕P`SRT#(VARIABLE NOT FOUNDUi ȱk+kekHȱkellhkmlnLב퓝L{kiRliSޅP߅QTU ␥PХQFf ~`8ޥeeЅօڥхׅۦeޅ֥e߅eڥeօȱօٱڅ݈څܠc]0 ܰ 6L ܐ@ 6PJ TuVTvP`H [hݡ%  , ʽ$L  g RPޥQ g RP8ޅQ߅Y  ~Lޠ ʬ D0Ȍ ),л гk(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":T |:1000o 1:" 80N":0,63998:0X23:D$T$A$(A) 4 NAME$(105),A$(105),T(105)L "X138:B$B$"=":j ,X10511:NAME$(X)B$: 6NAME$(0)(B$,19) @D$(4) E12:12::"READING CATALOG"::12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":H h00 L40  MAXX) 85:34,227 23:958s "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) ((NA$(N),8,1))6520006 ((NA$(N),8,1))942000@ XX1Y A$(X)(NA$(N),8,30)s T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:20,21:32,19:2:1::0 U33,40:32,0:23:1::v Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 p8(ST6UVk,ȱk-`)1,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:9:"COMPUTER LEARNING CENTER":20:22:20:34,2:3: P33     2936 711,18# <I12000:I- A9368 F18,26I KI12000:IU nA(7,4) x"START THE RECORDER IN PLAY AND HIT RETURN.";X$ A X17 Y14 A(X,Y);"-"; Y X I ! PROGRAMED BY != ! DR. G HALLER !\ -------------------------{ ! LISTED BY ! ! T N TAYLOR ! ! VERSION 1 ! ! 17 DEC 78 ! -------------------------   & -------------------------E ! HOW TO RECALL DATA !d -------------------------! FROM PAGE 4 OF THE !! 09/78 ISSUE OF THE !! SOUTHEASTERN !! NEWSLETTER !------------------------- נ̠Ӡ˿ԍ J I  I1N( A$(I)/ I5 = 40N "RUNHELLO"P "ALPHABETIZE":"(TO END PROGRAM ENTER 0)"R("NUMBER OF ITEMS";Y2Nf<N0270rFA$(25)}PI1NZ"ITEM ";I;dA$(I)nIxI1NJ1NIA$A$(J)B$A$(J1)A$B$190A$(J)B$A$(J1)A$ 2936 711,18# <I12000:I- A9368 F18,26I KI12000:IU dA(7,4)n n *** FILL WITH DATAy xX17 Y14 A(X,Y)XY Y X "START THE RECORDER IN RECORD AND HIT RETURN";X$ A  ! PROGRAMED BY != ! DR. G HALLER !\ -------------------------{ ! LISTED BY ! ! T N TAYLOR ! ! VERSION 1 ! ! 17 DEC 78 ! -------------------------   & -------------------------E ! HOW TO STORE DATA !d -------------------------! FROM PAGE 4 OF THE !! 09/78 ISSUE OF THE !! SOUTHEASTERN !! NEWSLETTER !-------------------------(4)"CLOSE", :"AND READ IT BACK IN..."9 IN$" "Q (4)"OPEN LITERAL"i (4)"READ LITERAL" &768:IN$(IN$,1) 0(4)"CLOSE" ::IN$ D:"TA-DAA!!":," & ":"  9 "AND HERE'S WHAT YOU TYPED IN:"D :IN$J s "NOTE THAT EVEN QUOTES, COMMAS AND" "COLONS GET THROUGH UNSCATHED." :"NOW LET'S WRITE IT TO THE DISK." (4)"OPEN LITERAL" (4)"WRITE LITERAL" IN$ ,I J% 162,0,32,117,253,160,2@ 138,145,105,200,169,0[ 145,105,200,169,2,145g "105,96m , 6NOW TO USE IT! @ J"TYPE IN ANY CHARACTERS YOU WISH:" T ^768:IN$(IN$,1) h rTHIS IS AN "INPUT IN$" |BUT IGNORES "dIN$"X" n:16298,0:&x>THE FIRST VARIABLE\DEFINED MUST BE A STRINGyTHIS STRING WILL REC'VEINPUT FROM THE CALLTHIS POKES THE INPUTSIMULATOR ROUTINEINTO MEMORY...J768788I J   0 216,0 D$"CLOSE"! :' :N )d::D$"":CTRL DCn"APPEND FILE DEMO FROM CONTACT 4":^x"ENTER A STRING: ";A$mA$""200D$"APPEND TEST"D$"WRITE TEST"A$:D$"CLOSE"120::250D$"OPEN TEST"D$"READ TEST" A$:24 133-  55,96,169,16,133,54,169,3,133,55,96= 846:976:H? 0:0I784854)D:I,D:I  72,44,0,192,173,0,192,44,16,192,201,160,240,29,201,141,240,22,138,72,152,72,162,0,32,30,251,200,152,32,168,252,104,168,104,170,104,76,240,253,76,3,224,44,0,192,16,251,141,16,192,48,221,169,240,133,54,169,253,2936 4: 711,18+ <I12000:I5 A936= C:H F18,26Y KI12000:Ic n936{ xH(115)(116)256 L(105)(106)256 12 "LOMEM = ";L "HIMEM = ";H I ! PROGRAMED BY != ! G. MCCLELLAND !\ -------------------------{ ! LISTED BY ! ! T N TAYLOR ! ! VERSION 2 ! ! 31 DEC 78 ! -------------------------   & -------------------------E ! LOMEM & HIMEM !d -------------------------! FROM PAGE 4 OF THE !! 10/78 ISSUE OF THE !! SOUTHEASTERN !! NEWSLETTER !-------------------------   " d(4);"BRUN AUTOBOOT 16.X" bHIT":"RETURN":676:D2:32,0:200D X$" ":H$"0123456789ABCDEF"f X%((B256)(B256))16:600 &X%((B16)(B16))16:600 0X$: XX$X$(H$,X%1,1): B: 22:32,0:C,186:D:100:((37)1) D1İ700, D2İ520E ((37)):BB1:AA1X A22A85400l A43A127410 A64A106420 A129500 "210 32,13:1:210 32,26:1:210 676:32,0::210 D2ī800# 6:"FOR HEX":"TOKENS, d9n ROUTINE TO DISPLAY APPLESOFT PROGRAM TOKENS`s BY VAL GOLDING AND BOB HUELSDONKx NO LINES MAY BE ENTERED BEFORE LINE 100D1: NOTE: FOR CASSETTE VERSION CHANGE VALUE OF C IN LINE 200 TO 12293:A1:B128:C2053 C,B"BYTES USED ";TF%+IY ACTUAL ";LM: " -------"^ "DIFFERENCE ";DFFg " " "FREE BYTES ";F "HIGH MEMORY ";HM "DOS ";DS "TOTAL MEMORY ";TM " "TMK1024 SUMBPAS2048, DFFLMSUM= DSTMHM::_ "COMPUTER USE ";C "APPLESOFT (NON ROM) ";AS "SIZE OF BASIC PROGRAM ";BP " -------" "LOW MEMORY CALULATED ";SUM "LOW MEMOR OF YOUR APPLE MEMORY?";K' l" ":" "1 n936L o *** HM = HIGH MEMORYf p *** LM = LOW MEMORY ~LM(105)(106)256 HM(115)(116)256 BPLM12288 AS122882048 DOSTMHM C2048 VTCMLM F(0) T(K2)1024 ---------------------- & 29365 4:::" "@ 711,18Q <I12000:I[ A936h B::" "s F18,27 KI12000:I P936 d:" " e"THIS PROGRAM WILL NOT WORK WITH THE ROM VERSION OF APPLESOFT." f" " i"WHAT IS THE K SIZE ! PROGRAM IDEA != ! SUGGESTED BY !\ ! G MCCLELLAND !{ ------------------------- ! MODIFIED BY ! ! T N TAYLOR ! ! VERSION 3 ! ! 01 JAN 79 ! ---, & -------------------------E ! AVAILABLE MEMORY AS !d -------------------------! FROM PAGE 4 OF THE !! 10/78 ISSUE OF THE !! SOUTHEASTERN !! NEWSLETTER !-------------------------  L < $<?`gh<=ij>?`v(Le lL7 HH枱`8Є .0 _ .0 _ _ И H e ihh eHiHvHuH  m j %^_L# ! "  j y# HHH ZvyzW4ȱuȱve$v# _uv % Z *Lb-逐 Pћ `gȑggiihij ,stopijklmn KURhhz`gihi` ,   ,Ђ hhPQPQD Z ȱȱQP- % ) _$! $ȱȱж _L3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕ 8ɀA N4O0Ťș98:I8xІș Нƹ`ghȥQћ =v %  . F v Y Lij  Y  D_i^aeii`jij圪8iae^_^`_a8stopiejȄ PQmnij egh^_^ ijL< ȱ^Șe^^_iȑ^^_ҢLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` mn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H {h0hhpo`M$L*  ]` H _h PCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫANOҾSGINABUSFRSCRNPDPOSQRNLOEX//m/s*u*y*}**U*l\****+++h*G?J"loz qiH#$#  &'8!'''1(([=Q}yy{x!{_"}&PWFQ&dgENFONEXDATINPUDEDIREAGTEXPRINCALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMRO٠)2ca(̠Ӡ)9<de de,dedeLdede)-FdBedCed>e.?Lrd?e.?Mr;Pd<e8.?rrd=e.?r8.?r0rMqg7+++)))+*8*G*++..a/g//W)J KM6a()GP(a()GP(Ka(Ԡ۠ǠԠà)GPa(̠)GP(0a()M(ca(ԠŠҬî)ca(               HEX PRINT WITH & ROUTINE FOR ROM 6A$" 300:C9 48 D0 12 20 B1 00 20 F8 E6 8A 20 DA FD 20 B7 00 C9 2C F0 EF 60 4C CC 16" ^A$A$" N D823G" I1(A$):511I,((A$,I,1))128::72,0:144 30LA(37)20160: ::"HIT ANY KEY FOR NEXT PAGE":::A$@ I D: A2048:HEX PRINT WITH & ROUTINE FOR RAM A$" 300:C9 48 D0 12 20 B1 00 20 EF 1E 8A 20 DA FD 20 B7 00 C9 2C F0 EF 60 4C CC 16" A$A$" N 1025G":400( ,A53248:INTED ONLY WHEN REFERRING TO COM- MAND OR FUNCTION m TA208:TOKEN ADDRESS TABLE (:H1:D0124:HD128:5 2C(T):(C);:TT1:C12850 dD63D82D106ĺ:130 nHH1 x14:H(AH21),(AH2)(D64): RAPPLESOFT II DISPATCH TABLE LIST BY NEIL KONZEN j AND VAL GOLDING  ::"ROM OR RAM APPLESOFT ?"::"TYPE 1 FOR RAM; 2 FOR ROM"::1013,76:1014,0:1015,3:GET POINTERS IN AA200,300= ADDRESSES PR``H  G h G  R `` ` `START ADDRESS:  END ADDRESS: MEMORY OK!--->6502 MEMORY CHECK<--- ) ` )80 08`x Ʉ` Ʉ` X" X " X( R X Ʉ  R R h Ʉ   R ( " X  G G   G G R LL` :     L :     ȭ I 6"ING ADDRESS (A$)"A @"AT AA60 AND AA61 IS THE HEX LENGTHN J"(L$)."c TI13000:I:: "THEN 'CTRL C' TO RETURN TO BASIC." "THEN BSAVE FILENAME,A$XXXX,L$XXXX." " THAT'S ALL THERE IS TO IT !!!"  ENTERED BY WM. R. DIAL "THEN CALL -151 (OR HIT RESET) TO GET< "INTO MEMORY."O I13000:I:s "THEN TYPE '*AA60.AA73' ." "THIS BRINGS UP MEMORY FROM AA60 "TO AA73. (DECIMAL 43616 TO 43635)" I13000:I:: ,"AT AA72 AND AA73 IS THE HEX START-2 *** BINARY ADDRESS ***;7 *** BY WM. R. DIAL ***AZld"HERE IS A CONVENIENT WAY TO FIND THEn"BEGINNING (A$) AND LENGTH (L$) OF A x"BINARY FILE FOR PURPOSES OF BSAVE, ETC."I13000:I:"FIRST BLOAD THE BINARY FILE."(    00B 3 4 5 6 7"% 900:" ";[ IBEGIN2BEGIN6:(I)100ĺ" ";:(I)10ĺ" ";t (I);" ";:::1000 ((BEGIN));((BEGIN1));: BEGINBEGIN7:BEGINFINISHĀ (37)18Ğ::"HIT ANY KEY FOR MORE VARIABLES"::A$::300 3LE"::" BYTE NBRS":"NAME VALUE 5 6 7"E b900s l"% ";(BEGIN3)(BEGIN4)256;" "; IBEGIN4BEGIN6:(I)100ĺ" ";:(I)10ĺ" "; (I);" ";:::1000 ::"REAL VARIABLE"::" BYTE - NUMBERS":"NAME DRS 6 7" 900U X(BEGIN2):"$ ";:X1000ĺ" ";:X100ĺ" ";:X10ĺ" ";] X; &X(BEGIN3)(BEGIN4)256:X10000ĺ" "; 0" ";X; :IBEGIN5BEGIN6:(I)100ĺ" ";:(I)10ĺ" "; D(I);" ";::1000< X::"INTEGER VARIAB( DISPLAY VARIABLES BY VAL GOLDING0:iBEGIN(105)(106)256:FINISH((107)(108)256)1,X(BEGIN):Y(BEGIN)1:X128Y1275006XY128700@XY127600 ::"STRING POINTER"::" BYTE NBRS":"NAME LEN AD A' N1254:A$A$(0):B$B$(0):NC$"300:0 301<300.3CEM 800:0 801<800.BFFM 3D0G":N1(C$):511N,((C$,N,1))128:N:72,0:144 10/15/79 CLEAR MEMORY  ::D$(4)L:"* WHAT IS THE BINARY FILE NAME?":" >>>>> ";F$_D$;"BLOAD";F$g: "START ADDRESS = ";(43634)(43635)256:"PROGRAM LENGTH = ";(43616)(43617)256 "4 n:"IF A QUESTION WITH A YES OR NO ANSWER IS";c s"PRESENTED ON THE TV SCREEN AND THE KEY/" x"BOARD IS MARKED (TO THE RIGHT OF THE" }"RETURN KEY WITH 'YES' AND TO THE RIGHT" "OF THE SPACEBAR WITH 'NO') THEY CAN BE" "PROGRAMMED TO F:"AS YOUR'APPLE'RUNS THRU IT'S STACK OF"Z K"PROGRAMMED INSTRUCTIONS, IT COMES TO A" P"SCREECHING HALT WHEN IT ENCOUNTERS THE" U"'GET' COMMAND" Z" ---" [Q$ _"THE 'GET' COMMAND CREATES A SOFT 'STOP'" d"DEMANDING OPERATOR ACTION #20)"2. EASE OF OPERATION"@ (20)"3. SAFETY FOR FUMBLE"_ -23)"FINGERED OPERATORS"; 220)"4. CONSERVES TIME AND"; 723)"KEYSTROKES" <"IMPLEMENTATION";20)"5. CONSERVES MEMORY" A:"THE 'GET' COMMAND IS THE KEY" B" ---", 6 410) :"YES NO AND PAUSE KEYS"1 Q$N"---------------------""FREQUENTLY OUR PROGRAMS REQUIRE OPERATORINTERVENTION FROM THE KEYBOARD.":"THE FOLLOWING IS OFFERED AS A CONVENTIONWHOSE BENEFITS ARE:" 20)"1. STANDARDIZATION" ΠŠϠŠүנҩ\]ƠˬΠӠĠΠŠԠҠˮȠŠӠîL]̠ԠŬԠŠƠҠΧԠĠԩ@r`$nd6?e`$x`$nqxPbE()[a,]̠ӠԠĠԠӠΠàĠԠĠŠҠΠàZ]̠ӠҠĮƠàΠ!oPd2e?a()Pa()Pa()Pa(ө)d2ecPoP8 ra()Gd2e?bGd2ea()q.?6@rd6?e`%QM _2Sdca@E()Gd.?)r.?(reP d2e?a(Ԡ)FGd2eRnq.?6P#a()qq6M H2`.?r($<d2e?a(ŠϠԠįҠҩ)d2eQw<q8#.?r.?rrq8ur`%q`'%q'`$PqUVWoPa()YbFq`%q`!%qŠ)G d2e?a(κȠ̠ŠĠ)d2eaM q.?r@p()\ddeq.?rq@p()\dde.?rp(a()oa(ש)GPa(ͩ)GP"a(ԩ)Gb6dGPbG ݌Hh ɪ 0 꽎 L" h` ȱ`L ]o N@"(rKM6d2ea(Š˭ɠҠĠԠ͊ŠԠȠ6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<rrdBedCe de.?>rde.??rM6_  H0}Hh 頻Hh݌Hh    I:N$(I): @CL$) JJ1N1:I1N1A TN$(I)N$(I1)360g ^T$N$(I):N$(I)N$(I1):N$(I1)T$o h:x rOP$ |I1N:WR$;I:N$(I): CL$ 936:"CATALOG IS SORTED!": T  N$(40)!d"NOMON I,O,C"Wn:936:"INSERT DISKETTE TO SORT, HIT RETURN";T$x936:"NOW SORTING BASIC CATALOG FILE..."OP$"OPEN CATFILE,L31":CL$"CLOSE":RD$"READ CATFILE,R":WR$"WRITE CATFILE,R",OP$:RD$;0:N 6I1N:RD$; ITIALIZED BUT BLANK DISK TO CHECK THE MOTOR SPEED."C  "NOTE! I FOUND IF YOU ATTEMPT TO MODIFY THE 'SPEED' PROGRAM IT WILL PARTIALLY SELF DESTRUCT."H8@@ HH(h H@ WILL PARTIALLY SELF DESTR  ::$"MOTOR SPEED",:"BEWARE! CHECKING THE DISK DRIVE MOTOR SPEED ON THIS SAME DISK WILL ERASE THE DISK."= :"SO... RUN 'MOTOR SPEED'...THEN REMOVE THIS DISK AND INSERT AN IN  ,R/ FI1R:A1,(((CM$,I,1))128):A1A11:8 P768A9A(768)169(769)11ĺ"BLOAD COMMAND GENERATOR.X"a :ADDR3162216:A1ADDR6i 12T$:T$(8)(CM$)0CM$(CM$,1,(CM$)1):12:1:CM$;"";:20T$(13)60(T$(21)202CM$CM$T$:T$;:207 <R(CM$):ADDR Πō 0 89L `& L IJ$;"CLOSE NAMES" * # R- JN$:C$:P$: *** WRITE DATA TO DISC{ S *** PRINTING A CONTROL D BEFORE NEXT INPUT PREVENTS ERROR IN NOMON MODE TD$:RR1:270: *** GET NEXT NAME X *** WRITE NUMBER OF RECORDS USED AND CLOSE FILE bD$;"WRITE NAMES,R0" lR vDOU SAVE THIS PROGRAM D$J RR1: *** WRITE NEXT RECORD IN THE FILE[ "NAME # ";Rm "NAME ? ";N$ "N$"/"600: *** '/' IS USED TO TERMINATE INPUT ,"CITY ? ";C$ 6"PHONE ? ";P$ @D$;"WRITE NAMES,R";R A *** WRITE DATA TO RECORDS COMMANDSN D$;"OPEN NAMES,L120": *** OPEN FILE WITH RECORD LENGHT OF 120 D$;"READ NAMES,R0": *** READ RECORD # 0 FOR THE NUMBER OF NAMES ALREADY IN THE FILE R: *** DELETE THIS LINE ON INITIALIZATION OF THE FILE BUT MAKE SURE HERE BEFORE Y ! LISTED BY !; ! T N TAYLOR !Y ! VERSION 1 !w ! 11 DEC 78 ! ------------------------  D$"": ***CONTROL D  D$;"NOMONC,I,O": *** DELETE THIS LINE TO WATCH OPERATION OF DO&-------------------------E! CREATE NAMES FILE !d-------------------------! FROM PAGE 3 OF THE !! 12/78 ISSUE OF THE !! SOUTHEASTERN SOFT- !! WARE NEWSLETTER ! -------------------------    $#d(4);"BRUN COMP-X MONITOR.X" Hɿ L h ơ , )jjH)**h) ȱ ) `ʠڠàҠԠҠŠɠĠ ĠԠĠҠ e  e`  J A ȱ A ơ Ơ`I i)`    ɠ ɍ -`  Lx  Jȥ A ȱ A J  Ơ`  )JJ꽠 -L  3L ɍ  ` ` H c J Hh A 膠Ӱ ` H  L  `ɠ!ɍ( ) ȹ )L ȦL `I i` H*i h ` / :3 X J[ H[ [ h[ Jw Hw w hw `ЭؠҠҠŠéή 3L  g&ɺ),/2ɡ58 - L , L L L rL L )i ` -hhhhL ` 5ȱ 5 5 UL Uȱ U 5 UL` ) Ȋ  ȱ (* L ) Jȱ  ʵ ULHh  UL 3 g H ) Jh襢 UL  `ɰǰɺ)`jHʵj"hL h H*hL h UL ) ) Jȱ  UL H ) Jhq LJ ȱ  5 UL  ȵ Lw  ) ) Jȱ ` H ) Jhq ` uȱ u 5 UL 8 ȵ L    JJJJ7BA@? > =< ; :9876 :  `LLL: L2 Lj L LL L L L Le L ) J  ULȱ  L ) JJ ٥ ͠ ) JH J2ȱ Ih0JHʵj5hL8 `````````       () ```````` ```````````` ```````````` - ````````````` ` ````````` ( ```````````  LsҠùǍ     TE TO NEW DISKETTE, D$;"OPEN NAMES,L120"7 I1RQ D$;"WRITE NAMES,R";Ij N$(I):C$(I):P$(I)t D$: D$;"WRITE NAMES,R0": *** WRITE R TO RECORD # 0 R D$;"CLOSE NAMES" "DONE - # RECORDS WRITTEN TO FILE - ";R XDN$(R),C$(R),P$(R) I1RM D$"READ NAMES,R";I: *** READ RECORD # If N$(I):C$(I):P$(I)p D$: D$;"CLOSE NAMES" ,"INPUT DONE - RECORDS READ IN - ";R 6"INSERT NEW DISKETTE TO BE WRITTEN TO AND HIT RETURN ";Z$:Z$  *** WRI ! LISTED BY !; ! T N TAYLOR !Y ! VERSION 1 !w ! 11 DEC 78 ! ------------------------   dD$"": *** CONTROL D nD$;"OPEN NAMES,L120" xD$;"READ NAMES,R0" R D$ &-------------------------E! EXCH NAMES FILE !d-------------------------! FROM PAGE 5 OF THE !! 12/78 ISSUE OF THE !! SOUTHEASTERN !! NEWSLETTER ! ------------------------- TEXAS !$ v--------------------> v! LISTED BY !X v! T N TAYLOR !r v! VERSION 1 ! v! 28 MAR 79 ! v-------------------- v u u--------------------: u! DEBUGGING AID !T u--------------------n u! BY KRIS COBB ! u-------------------- u! FROM THE 3/79 ! u! ISSUE OF THE ! v! APPLE CORPS ! v! NEWSLETTER OF ! v! AUSTIN,THE START OF THE RUN 30000 LINE u SEND THAT LINE. THE LINES FROM YOUR PROGRAM WILL THEN BE READY TO LOOK AT, CHANGE, DELETE, OR WHATEVER. u WHEN READY FOR NEXT SCREENFUL, RUN 30060, CHANGE THE RANGE TOBE LISTED, SEND THE RUN 30000 LINE AND KEEP ON. ONTO THE END OF A PROGRAM AT ANY CONVENIENT LOCATIONS, AS LONG AS THE LINE # OF THE 2ND HOME IS REMEMBERRED u TO USE THIS PROGRAM RUN 30060 AND ENTER THE DESIRED RANGE IN THE LIST LINE PRINTED. u WHEN THE APPLE ACCEPTS THAT, THE CURSOR WILL BE AT 0u:u" "GDu500549: ABOUT ONE SCREENFUL OF ACTUAL PROGRAMSQNu36,0[Xu37,0abulu: THIS IS THE LINE TO REMEMBER vu" "u30020: LIST ABOVE LIST LINEu" RUN 30000"u36,0u37,0ul u THIS PROGRAM CAN BE TACKED    BAR ";:Z$:Z$::: *** ALWAYS PRINT INPUTS OF THIS TYPE WHEN USING FILES TO PREVENT ERRONEOUS INPUT TO FILE *** LIMIT OUTPUT OD SCREEN TO 4 NAMES AND STOPo D$:CC1:300: *** INCREMENT COUNTER AND GET NEXT RECORD 22:"END OF FILE - # OF RECORDS - ";R:1000:: *** CALL-1000 PREVENTS CURSOR MOVING DOWN 2 LINESn P0:"MORE NAMES IN FILE - HIT SPACEREAD NAMES,R";C; 6N$:C$:P$: *** INPUT COMES FROM DISCC @D$w E"NAME # ";C: *** THIS IS OUTPUT TO THE SCREEN J"NAME....";N$ T"CITY....";C$ ^"PHONE...";P$ h rCR900: *** IF END OF FILE GO NO FURTHER |PP10 P4İ1000:S COMMANDSN D$;"OPEN NAMES,L120": *** OPEN FILE WITH RECORD LENGHT OF 120 D$;"READ NAMES,R0": *** READ RECORD # 0 FOR THE NUMBER OF NAMES ALREADY IN THE FILE R: *** GET NUMBER OF NAMES IN FILE C1: *** C IS USED AS A COUNTER ,D$;" ! LISTED BY !; ! T N TAYLOR !Y ! VERSION 1 !w ! 11 DEC 78 ! ------------------------  D$"": ***CONTROL D  D$;"NOMONC,I,O": *** DELETE THIS LINE TO WATCH OPERATION OF DOo&-------------------------E! READ NAMES FILE !d-------------------------! FROM PAGE 3 OF THE !! 12/78 ISSUE OF THE !! SOUTHEASTERN SOFT- !! WARE NEWSLETTER ! -------------------------     - 220 F:"LINE 10 MAY BE USED IN ANY PROGRAM WHERETHIS FEATURE IS DESIRED!"::e A(X)(10DX.5)10D~ "DECIMAL POINTS ";D D1Ā  D1D8ĺ"THAT IS NOT A PROPER CHOICE!" D1D820 "YOUR NUMBER ";N #N1Ā (A(N)Y"THIS PROGRAM DEMONSTRATES USE OF":"DEF FN(X) AS USED TO SET DECIMAL POINT":"ENTER NUMBER OF YOUR CHOICE WITH EXCESS DECIMAL PLACES AND OBSERVE ROUNDING""AT NUMBER OF DECIMAL PLACES DESIGNATED!":"ENTER '-1' TO EXIT!"H  0)& SQ(QN1)(N2)(QN1));Q (X$,1((X$)0),(QN)(QN)(QN)); "("0.00",1((N1)Q),1(NQ2)(QN2)); ,(X$,N(QN)(Q1)(QN)); 6 INPUT IS 'X','N', AND 'S': X IS THE NUMBER TO BEL BE PRINTEDd N IS THE NUMBER OF DIGITS RIGHT OF '.' S IS THE WIDTH OF THE RIGHT JUSTIFIED PRINTING FIELD X$" "((X10N.5)) Q(X$)((X$) N2:SET NUMBER2 OF DECIMALSGS5:SET FIELD ]( WIDTHo2:16298,0:<X55.501FX,"$";P250ZdXnx"UNFORMATTED FORMATTED"THIS IS THE FORMATTING SUBROUTINE. THE! ! !6:N1N16:(HEX$,N11,1);:: L3:I131:" ";::" ": I210W X(I)(I1)2561:15:X65536" = ";X" = $";:NX(X256)256:1000:"":300m ::37,(37)2: ,(37)18320 6 @37,((37)2)::6:"HIT ANY KEY FOR MORE DATA"::756: E5:300 3:I131:" ";::" ": N2N(N16)1< Yd::1::1100:3:" * RON'S DOS COMMAND FINDER * ":1100::34,4:5:nD(978)256:AD2948:BD30:CD84:HEX$"0123456789ABCDEF": INITIALIZE; D FINDS MEM SIZEIBC2CHR(A):AA1:(CHR);:CHR127Ė12:" = ";:220 !! ! Q),1(NQ2)(QN2));8 (X$,N(QN)(Q1)(QN));>  DIGITS RIGHT OF '.'3 .S IS THE WIDTH OF THE L 8 RIGHT JUSTIFIED d B PRINTING FIELD j L X$" "((X10N.5)) Q(X$)((X$)0) SQ(QN1)(N2)(QN1)); (X$,1((X$)0),(QN)(QN)(QN)); ("0.00",1((N1)  X55.501# X,"$";- 20003 : X@ a ""UNFORMATTED FORMATTED"g , THIS IS THE FORMATTING SUBROUTINE. THE INPUT IS 'X','N', AND 'S' X IS THE NUMBER TO BE  BE PRINTED N IS THE NUMBER OF $?d PRINT USING n8x SIMULATOR>U AUG 79[t J. CROSSLEYz: SUBMITTED BY  WM.R.DIALN2:SET NUMBER OF DECIMALSS5:SET FIELD WIDTH" """N2N(N16)16:N1N16:(HEX$,N11,1)(HEX$,N21,1);:: CONVERT TO HEX j L3:I131:" ";::" ": :6:X65536" = ";X" = $";:N(X256):1000:NX(X256)256:1000:"":300: PRINT CMD ADDRESSES y ::37,(37)2:: ,(37)18320 6 @37,((37)2):::6:"HIT ANY KEY FOR MORE DATA"::756::5:300: 3:I131:" ";::" ": L T SCREEN i nD(978)256:AD2948:BD30:CD84:HEX$"0123456789ABCDEF":INITIALIZE: D FINDS MEM SIZE IBC2: TABLE OF CMD POINTERS CHR(A):AA1:(CHR);:CHR127Ė12:" = ";:220: PRINT CMD NAMES 210` X(I)(I1)2561:1ln RON'S DOS COMMAND FINDER BY RON ALDRICH 3.80 EMBILLISHMENTS BY GARTH HITCHENS AND VAL GOLDING d::1::1100:3:" * RON'S DOS COMMAND FINDER * ":1100::34,4:5: FORMA"" " "