' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`LL-iit`yL`µ H hBL˵H̵Hõ˵ĵ̵µ= µĵ=֩=h̵h˵` IF BY BRUNNING THE 'MASTER CREATE' PROGRAM ON YOUR SYSTEM MASTER DISK."x*::" HIT TO BEGIN... ";Z$~4A$:A$"Y"A$"N"ĺ(7);:2200A$"Y"ĺ"YES"A$"N"ĺ"NO" ES **"B :"1. THIS PROGRAM ONLY WORKS WITH DOS 3.3 DISKETTES.":"2. YOU MUST REBOOT YOUR DISKETTE AFTER RUNNING THIS PROGRAM IN ORDER TO SEE THE RETITLED HEADING.M :"3. IF THE DOS ON YOUR DISKETTE SHOULD BECOME DAMAGED, YOU CAN RESTOREBY":13:14:"JOHN CHIANG"(I12000.4" THIS PROGRAM WILL ALLOW YOU TO GIVE A NAME TO EACH OF YOUR DOS DISKETTES. YOU CAN NOW CHANGE THE NORMAL CATALOG HEADING OF 'DISK VOLUME 254' TO ANY TITLE YOU WISH."::14:"** NOT TRK,2SEC,2$"HBUF,179.,RWTS4k12:4:"RENAME ANOTHER DISKETTE? (Y/N) : ";:2200}A$"Y"Ľ:3020:"NOW BOOTING YOUR DISKETTE... BYE"(4);"PR#6"::2558:7:"DISKETTE HEADING CHANGER":11:19:"Ĺ4618612J,((HD$,J,1))64:670@ 4618612J,((HD$,J,1))G J 16:868:"DISPLAY THE VOLUME NUMBER? (Y/N) : ";:2200 A$"Y"Ĺ46459,32:46460,66:46461,174 A$"N"Ĺ46459,234:46460,234:46461,234  * WRITE * CMD,2RWTSLH12Ģ14:(7);"HEADING CANNOT EXCEED 12 CHARACTERS.":560G bJ112i l4618612J,((HD$,J,1))128p vJ 14:868:"INVERSE HEADING? (Y/N) : ";:2200 A$"N"ī700 J112 (HD$,J,1)(32)Ĺ4618612J,160:670" ((HD$,J,1))63TURN> TO MAINTAIN OLD HEADING"2 J140:"*";:T &10:3:"CURRENT HEADING : ";s +(46459)32Ė33:(46204) 012:868:7:"NEW HEADING : ------------" :12:21:"";HD$ ?HD$""ī1690 DLH(HD$) NLH12āX112LH:HD$HD$" ":; XRWTS  DOS(46201){ (DOS3)(DOS4)ĺ:" I CANNOT WORK WITH THIS DISKETTE. IT IS NOT DOS 3.3.":1700 X46197461861 1212NU,(X) NUNU1  :8:"CATALOG HEADING CHANGER" :" 12 CHARACTERS MAXIMUM":" :8:"OPTIONS:"A H:4:"(A) NEW LABEL"[ R:4:"(B) DUPLICATE"x \:4:"(C) VIEW CATALOG" f:4:"(D) END PROGRAM" pG$:(G$)65(G$)68830 zG$"A"ĺ:410 G$"B"ī600  G$"C"ĺF$;"CATALOG"G$' (27);"G";(27)"A"(129)(27)"2";; (14);K$;(20)] (27);"F";(27);(48);(15);j LMJHt N$"" O0H1 PLO:PJ790 Q$(R$(P),I)(160) N$N$Q$:O S1(N$):((N$,S,1))159ĺ(N$,S,1); ::PJī820 3:I21 :J27H4:I15- DJ36H5:I12? NJ45H6:I9I X:12i b"ALIGN LABEL IN PRINTER": l"PRESS ANY KEY"; vA$ F$;"PR#1" ::::::::::::::::::::: EPSON PRINTER CONSTANTS :::::::::::::::::::::: (18);(27);"E"; SPACE$" "" A$4 F$(13)(4)> :10a "FORMATTING OF CATALOG TAKES" "10 TO 20 SECONDS........." 1170 990 :::::::::::::::::::::::  CONSTANTS FOR 4" X 1.5"  LABELS &::::::::::::::::::::::: 0H CATALOG"2 T:"PROGRAM CONSTANTS ARE SET FOR: "O ^:" MX-80 PRINTER"u h" 4 INCH X 1.5 INCH LABELS" r::22 |"PRESS ANY KEY . . . "; Z$ 830 :15 "INSERT DISK TO BE CATALOGED . . . " 17:"PRESS ANY KEY "; d DISK LABEL PROGRAM2 BY ED SIEGEL 1981P PRODUCES DOS 3.3 LABELSm USES 4" BY 1.5" LABELSz34500:"3:10,"DISK LABELER"66:"USE THIS PROGRAM TO MAKE"@"DISK LABELS THAT HAVE A MAIN TITLE" J"AND A COMPLETE DISK     D FD D0 F6 20 FC A2 60 N A933:20 30 N D7D2G":I1(HEX$):511I,((HEX$,I,1))128::72,0:144 c" "THIS PROGRAM MODIFIES DOS"@"TO SUPPORT THE COMMAND"U" TDUMP"v("WHICH ENABLES YOU TO DUMP"2" ANY TEXT FILE"<"AND REPLACES 'CHAIN'"a FHEX$"A893:54 44 55 4D D0 N 9D26:DE BC N BCDF:20 8E FD 20 A3 A2 20 8C A6 F0 05 20 E128,144,13%  201,160,176,9,72,132? ( 53,56,233,64,76,249T 2 253,76,240,253f <I76876827u FV:I,V:I P54,0:55,3 Z1002   CONTROL CHARACTER FINDERE RUN THIS PROGRAM, THEN CATALOGl TO SEE HIDDEN CONTROL CHARACTERS IN FILE NAMES. CTRL CHARS WILL FLASH TO REINSTATE NORMAL PRINTOUTS TYPE PR#0 201,141,240,21,201,136  240,17,201,$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` APPLE MnUnGn PROGRAM LIBRARY L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4    1u ***********::u:(10):(15):"NORMAL EOJ":(23): Pĺ(7):105502J)(VQ):(HT):SM$(Q):QQQ:105508O)BT)6100eX)EN(222):LN(218)(219)256Y)EN255ĺ(7);:16368,0^)LN10540ī10540c)LN10555ī10555 N:(10):"ERROR NO. "EN:"IN LINE NO. "LN:/u ***********0u *** END ***SM%')(VI):(HH):I;". ";SM$(I):IC))::(20(SEL$)2):SEL$`,)Q(16384):Q127105401)16368,0:QQ176:Q1QSMĺ(7);:105406)(VQ):(HT)::SM$(Q);):QQ(16384):QQ12710555@)16368,0:QQ14110575 E)QQQQ176:QQ1QQSM************* !)MENU110515,)10506B)X140:X$;:X:O ):10504r )X221:(X):X$;:(40):X$:X)(22):10504)(3):(20(MN$)2):MN$)MENU110525):10504)(7):(4):"YOUR SELECTIONS ARE:"")V9:HH11:HT14:I1 <#9070BF#:(8):(11):"INSERT ANOTHER DISK"::(19):"THEN"RP#RT12:6200hZ#D$;"VERIFY ";PN$d#:(10):(9):"THIS IS THE SAME DISK!!":RT12:6200:216,0:5000n#D$;"PR#6") ********************) *** MENU ROUTINE ***) *******"PRINT TEST LABEL",|SM$(4)"PRINT LABELS">SM$(5)"QUIT"IX$"X"mSEL$"< ENTER YOUR SELECTION >"xMENU110500Q1000,1000,2000,4000,5000'# **************(# *** REBOOT ***)# **************2#D$(13)(4):ERR(222)OWER8:CHARS37:VT7:;SIZE3LOWER17:CHARS36:VT2:^? ****************************@ *** INITIALIZE MAIN MENU ***A ****************************JSM5TMN$"LABEL PRINTER"^SM$(1)"ENTER COPY"hSM$(2)"EDIT COPY"rSM$(3)*****************QEDIT1ı4VMN$"LABEL SIZE"=`SM3XjSM$(1)"15/16 X 3-1/2"ptSM$(2)"1-7/16 X 4"~SM$(3)"2-7/8 X 3-7/8"SEL$"WHAT SIZE ARE YOUR LABELS?"MENU2:10500SIZEQSIZE1LOWER5:CHARS34:VT9:SIZE2L*******************+bLABELSTARTFINISHAlLINEUPPERLOWERXvCOLUMNLEFTRIGHTxIN$(LINE);Y(IN$(LINE)))COLUMN:LINE:(FINISHLABEL)ROWSRIGHTRIGHT1LABEL:K ******************L *** LABEL SIZE ***M *****'8 *** PRESS RETURN ROUTINE ***K9 **************************** B16368,0:(RT):958:(8):"PRESS ";::"";::" TO CONTINUE"L(16384)1416220V16368,0:W: ********************X: *** PRINT LABELS ***Y: *T1SLOT7ĺ(7):6020C:(8):"ALIGN PAPER FOR PRINTOUT":IDS1SRT17:6200f(4);"PR#";SLl ************************ *** TURN PRINTER OFF *** ************************ (4);"PR#0"7 ************************"QUIT"0MN$" END OF PROGRAM ":X$"X":10500GQ8000,9000,30000ho **************************p *** INITIALIZE PRINTER ***q **************************zIDS16040:(10):"WHICH SLOT IS PRINTER CARD IN? ";A$:SLOT(A$)SLOSHROWS).5)RIGHTROWS>6000:7000:6100:TEST0:8000` *************************** *** ENDING ROUTINE MENU *** ***************************10580SM3SM$(1)"RESTART PROGRAM"SM$(2)"BOOT ANOTHER DISK"SM$(3) ********************4 *** PRINT LABELS ***O ********************]YCHARS3:(10):"HOW MANY LABELS ACROSS PAGE? ";A$:ROWS(A$)TEST1FINISH1:4060:"HOW MANY LABELS WOULD YOU LIKE? ";A$:FINISH(A$) FINISH((FINI1:4000' *************************G *** EDIT COPY ROUTINE ***g *************************q (VT) LINEUPPERLOWER (39CHARS):IN$(LINE) LINE (21):(11):"ENTER NEW LINE OR"::(6):"PRESS FOR NEXT LINE" VX(I)128 `X131150, jIN$IN$(X)A tIN$(LINE)IN$:I{ ~(VTLINE1):(39CHARS):IN$(LINE);:(39):"!":LINE RT21:6200:EDIT0:8000  ************************  *** PRINT TEST LABEL ***  ************************  TESTARS2)):"+"R LINEUPPERLOWER:(VTLINE1):(38CHARS):"!";:(39):"!":LINE| $(39CHARS):DASH1CHARS:"-";:DASH )EDIT1İ3000 .(VT):LINEUPPERLOWER:EDIT1IN$(LINE)" " 8(39):"!";:(38CHARS) BIN$"":662 LI512767 10580 SM$(20),IN$(20)% 8000?  ******************X  *** ENTER COPY ***q  ****************** START1:UPPER1:LEFT1 :MENU1Q2EDIT1 7500:51,161 :(VT1):(39CHARS):DASH1CHARS:"-";:DASH (VT1):(39(CHSED 1/20/82, APPLESOFT, PARSHALL, N.D., 58770J qPN$"LABEL PRINTER V1.1"_ r(4);"NOMONCIO"p s(4);"PR#0" xA768798:B:A,B:A 169,16,141,242,3,169,3,141,243,3,73,165,141,244,3,96,104,168,104,166,214,154,72,152,72,32,234,3,76,18,212 < *****************3 * *L * LABEL PRINTER *e( * *~2 * BY *< * *F * RON FOLDEN *P * *Z *****************d- n VERSION 1.1, REVI      ^  D$(4)16302,0/D$;"BLOADCAT1"G(16304,0:16297,0\2D$;"RUNTHE CAT" Lx~x?p@H?`xp~A?xx8@~A?x?wpdxxpxxxxr@?pxr~xpxxxxrp|xx@?xp|~xxxxr|xx?x@?xxxxr`xx?p`w}pxxxxp`xx?px~|xxxpx~x?p>xx                    PATTERN = '01010101'":TEST85:190:"DONE - REBOOT DOS":Y MEMLOMHIM:MEM,TEST:MEM MEM110909090:MEM:230: WAIT 5 HRS THEN CHECK TWICE MEMLOMHIM:(MEM)TESTĺMEM MEM: KEN GRAY, YUBA CITY, CAEd::3:0:0:HIM49151:LOM0:MEM0:TEST0:LOM(109)(110)256x"I WILL LOAD MEMORY FROM ";LOM;" TO ";HIM;", WAIT 5 HRS., CHECK MEMORY, THEN DO IT OVER AGAIN. SEE YOU LATER":"PATTERN = '10101010'":TEST170:190:"END TEST #1":9 "  $\_((d ed!e(d"eM6c[KQ3a(ǮŠþϠ)o[ ]ŠøӺ8 i`iɀi@``ȱ Le8rMAnq-rUVW$d8re.?rYd8re#x@p@*#;@rra@E()E@7q.?6@r`$d6?e`$\_(.Yca(ԠˠξԠþ)G7q.?6@r`$d6?e`6rde.?7rq ]àԠͫ52dededede]ˠ*<a@E(Ǭְ)a@E(ң)a@E(Σ)+Fq8.?r.?rrod"e:ZqUVWX&-rq` %a()GbE()Gq*dde8rd]٠Ӡ_ qq.?Jr.?Krd6?ed2eN@"&rD4irD4irC@"rC@"r@p()!Ka@E(ɬϬ)M6\Ede.?Lrde.?MrqqUVWde.?rYF(dedede.? eM? \<[bq8rq8rdedededeMB? \<[el?edm?edn?edo?eK}dp?edq?edr?eds?edt?edu?edv?edw?e)}dx?edy?edz?ed{?e`[%qqֱ\qֲ\q[Tq8(rdedededdQ?edR?edS?e0dT?edU?edV?edW?eKn}dX?edY?edZ?ed[?ed\?ed]?ed^?ed_?eKx}d`?eda?edb?edc?edd?ede?edf?edg?eK}dh?edi?edj?edk?edd6?ed7?eKF}d8?ed9?ed:?ed;?ed?ed??eKP}d@?edA?e`dB?edC?edD?edE?edF?edG?eKZ}dH?edI?edJ?edK?edL?edM?edN?edO?eKd}dP?e?ed?eLd?e d?e?d?ed?eK(}d ?ed!?ed"?ed#?ed$?ed%?ed&?ed'?e0K2}d(?ed)?ed*?ed+?ed,?ed-?ed.?ed/?eK<}d0?ed1?ed2?ed3?ed4?ed5?en<[K}d?ed?ed?ed?ed?ed?ed?ed?eK }d?ed ?ed ?ed ?ed ?ed ?ed?ed?e0K}d?ed?ed?ed?ed?ed?ed?ed?eK}d?ed?ed$q_ .qz_ 8qn_ Bqc_ Lq^_ VqR_ `qH_* qqֱ\qֲ\q\<[ 'tubdeZdeZd e2deZMHbde2deM-Rbde2deZd e<dePM\bdePdePM-adeded e2deM-adeFded eFdePM-adedded edde2MbdedeEM- bdexded exde9M-bdedded edeM٠)&@ N`@9()%[N_ Na]Ċ ade-adeded edeMadedeM-adeded edeMadedeM-adeded eZdeMǠŠ)%RNa(ϧԠՠŠ٬Ϡՠ)\Nca(Š̠٠)$fNP a(ȠŠٮ)%pNca(Š٠Ӡ)!zNP a(Ƞ̨̨)-Nca(ŠӠĠȠר)#NoPS(ŠՠҠΩ)&@M`@9()$ Q w_ N]Ί !NM6.*Na()34Noa(ɭӠ٠Ҡ)0>Nca().HNca(ӠŠӠ٠ldeMvdedeM_s>KM6Po a(ՠĠ)FE(Ӯ)UVWY6oa(Ҡ٠Ӡ)Fd8rE()c<`d8r %a(ՠŠԠ٠Ҡ)c)S(ϠΠ٠eMdedeM#q`%q`$X dedeM$dede deMq.?6?r.?6?r.?6?rde deM_XdeM bde deM-q`d$Poa(ٽ)F`.?r%_deM de deMdeMdedeMdeMdedeM[%oPa(Ġٽ)Fqd%\6`.?6?r%\@qqJ` %q `x%qxT` %q `%q^_deM(dede deMdeMdedeMdeMdedeM%q`%q`%q`%qdeM dededeMq.?6?r.?6?r.?6?rdeM dededeM"deM'dedeM (de,`.?6?r(Ġٽ)F5P oa(٠ٽ)Fd8rE() q/?rq/?6r q/?rq/?6rqq dedeM dededeMq2?rq2?r7`a(Ԡ)UVW Y0M6o S(ϠՠԠӠ)&@`@9()%\ N M M&qqqXqd]nqq\as]xq/?xrq/?xr:M6Poa(ٽ)FPoaN@"r\}4KM6oP a(ɭӠ٠Ҡ)PoPa()Gd2e?a(ĠŠӠ)Gd2ea(),oP a(ҬϠ)(d2e?oPa()d2e.oP            ?6@r$`"d6?e'#['Q?ŠاӠҠ͠)\0 a(Ϡ)a(ŠΠЧӠĠź)a(ؠŠاӠ)S: a(͠ϠźΠ)a(̠ŠŠҮ)B`"oPa(ԠŠϠԠ)`.W(a()GY a(נϠҠ)V a(̠ΠŠ͠Ϡ)a(ӠجججЬĠ˩)V a(ŠĠźؠҩŠ)a(ӠججĬ¬Ь)S& a(άĠةŠĠź)a(Ơ͠Ϡ)Pa(٠ΠԠ٠ح)La(̠ĠӠƠ٠)Pa(ҠԠ٠ح)sa(РŠحҠϠ)Pa(ҠϭǩҠŠ)Pa(ŠĠΧ)UV)Ta(ΠȠƠحҠԠ̠)Pa(ϠҠŠحǠӠ)MoPa(ԠŠҠŠ)`.?6@r$d6?eM6oa(РϠ)+a(ˠˠҠР͠)Qa(ӠŠӠԠϠ)*a(ؠŠحҠȠ)'a(ؠԠحҠ٠)'a(ؠԠحҠ٠),a(Р̠ȠϠ)Pa(ŠȠƠحҠӠ)Pa(ҠƠŠحǠӠŠҠϠ)'ra(ؠĠحҠ͠)(|a(ؠŠحҠϠ)Oa(ĠĠӠƠ٠Ƞ)Pa(ҮԠϠ)Sa( ԠӠƠ٠)Pa(ҮˠԠΠ)FUVW Yq_pUVWY[XUVWdY[ @M6=JPa(Ҡ)UVW(a()GYOc+Ta(ΠԺ)a()(^a(ĠҠ͠))ha(a()Gb q$`7$qVo P!` %a()Gb`__=UVWYd ed!e'oPde M qo P!` %a()Gb4d ed!e M6`%a(̠)@a()a(-rP` %a()GbE()--rrq)D`-r$X`%\p\Xq-r#NoP`-r %a()Gb-rTX`-r$`%\p\X`-r-r$bqq_1bq--rroP` %-r $`%\p\X`$oPde Mq-rq_%`-r $`%\p\X_%`-r$0`%\p\X_T0`-r$D`%\p\X`-r-r$:qq_?:oq`%q8drd&o P` %a()Gb_J`-r $`%\p\XoPde Mq-r_G`-r $`%\p\X`$oPde Mq-rq_G`P` %a()Gb`%\p\Xo P` %a()GbD`%\p\XoP` %a()Gb`%\p\X_2`-r$`%\p\Xq8rd&o P` %a()Gb_G`-r $`%\p\XroP` %a()Gb`%\p\X_W|`-r$`%\p\Xq-rq-rq8r`%q8drd5oP` %a()Gb`%\p\X_8`-r$`%\p\XqqqNoXEq-rq-rq1Jo P` %a()Gb`%\p\X_ T`-r$h`%\p\XYq-r-rq=^oP` %a()GbE()`%\p\X_@h`-r$|`%\p\Xq-rq-rq8rd5!a@ `-r$,`%\p\Xq-rq-rq1"oP` %a()Gb`%\p\X_ ,`-r$@`%\p\X1q-r-rq=6oP` %a()GbE()`%\p\X_ @`-r$T`%\p\)`-r %@p()'`-r %@p()`-r %@p()'`-r %@p()`-r%@p()'`-r%@p()`-r%@p() `-r%@p() o P!` %a()Gb7oPde MoPde`MoP`-r$_`.?6@r$d6?ed ed!e'`-r%@p()`-r%@p()`-r%@p()`-r%@p()`-r%@p()`-r%@p()`-r%@p()`-r%@p()`-r %@p(`$_0q 8<@*#rrr<@*#rr-rqd@d eoPa@G`%a()d eq_a()S(Ҡ)'`$_"o P` %a()Gb_ q_r9()%-rq `@*#r9()%-rq `@*#r9()%-rq `@*#r9()%-rq`@*#r9()%-rq`@*#r9()%-rq`@*#r9()%-rq `$Hq 8<@*#rrr<@*#rrB`@*#r9()%-rqL`@*#r9()%-rqV`@*#r9()%-rq``@*#r9()%-rqj`@*#r9()%-rqo`@*#r9()%-rqt`@*#r9()%-rq y`@*#r9()%-rq ~`@*##r9()@*#r9()r$)C`8@*#r9()@*#r9()@*#r9()r$$ `<@*#rr$"a(ć)UVWY_ $q)`$.`@*#r9()%-rq8`@*#r9()%-rq_v`8@*#r9()@*#r9()@*#r9()@*#r9()@*#r9()@*#r9()r$)2`8@*#r9()@*#r9()r$$v`8@*#r9()@*#r9()@*#r9()@*#r9()@*M6S(Ġ)'3`$a(ć)UVWY_ _*S(ο)&@q;@r`$_/q 8<@*#rrr<@*#rr`$ `$_S()&@ q;@r`$VWoPMo PMoPMY0oPMo PMoPMd"ed e d!eoPa(Ӻ)Oa(Ġ)a(Ԡ͠)a(Š)a()a(ҩ)G*d ed!e  Pa(͠)IUVWoPMo PMYoP'Mo P'M_UVWoPMoPMo PMo PMoPMoPMY>oPa()o Pa(ح)oPa(ϭ)8UoPMY(FUVWoPMP MY-PoPMUVWoPMYZoPa()dUVWoPMYEnUVW'oPMoPMo PMo PMYxoPa(Ҡ)oqYUVWoPa()YLoPa()GP!a()o Pa()GP!a()FoPa()1UVWoP` %a()GbE()Y(@p(͠)UVW;@r2oPa@*#rY4<UVW de oPM! KM6N@" rD4rD4r0 dededeLdede \@4 K]ҠӮҠȠӠϠΠM6qCoPa()Pa()oPa()#UVW-rq-r             ;BB$;" O.K.?";:A$::A$"N"1000423O:"WORKING":]28OI0N:(NA$(I),AA,3)BB$NA$(I)""r2BOI:CL(0):10002LON0:10002 BY ART COHL--PUBLIC DOMAINE.P/S)";:A$::A$""100021NA$"P"A$"S"1000h1OA$"P"AA1:"PRIMARY VOLUME NUMBER? ";BB:202501OAA5:16:868:"SECONDARY VOL. NO.?";BB1OBB$(BB):(BB$)1BB$"00"BB$1$O(BB$)2BB$"0"BB$1.O(BB$)320210!20O"DELETE VOLUME # "PROGRAM."X0N"WHEN IN DOUBT--HIT RETURN!"::"RETURN TO GOTO MENU";:AB$::34,0:1000v0N DELETE VOLUMN IN MEMORY0NN0ė:14:7::"NO FILES IN MEMORY"::I12500:I:10000N:3:"DELETE A VOLUME IN MEMORY"1N10:"PRIMARY OR SECONDARY ID? (N AND YOU WILL RETURN TO THE MENU. IF THIS DOESENT WORK, JUST PLAY ALONG- YOU WILL ALWAYS BE GIVEN OPITONS TO SAY NO!!" 0N"** IF THE PROGRAM BOMBS AND YOU WANT TO SAVE ALL THE WORK YOU JUST DID,TYPE GOTO 1000. THIS IS A SOFT RE-ENTRY BACK INTO THE L IN MEMORY. TO START A NEW FILE YOU MUST CLEAR MEMORY.(LETTER T)".N"THE PROGRAM MAY SEEM TO HANG UP FROM TIME TO TIME--THIS IS NORMAL. THE COMPUTER IS JUST CLEANING HOUSE SO JUST WAIT."x/N"IF YOU SELECT THE WRONG OPTION JUST HIT RETUR,I,B,T,R), PRIMARY VOLUME NUMBER AND SECONDARY ID NUMBER. THE PROGRAM DOSEN'T CARE WHAT NUMBERS AS"-N"LONG AS THE NUMBERS ARE WITHIN LIMITS. (P.V. ID-1 TO 254, S.ID-1 TO 900)":"RETURN TO CONTINUE";:AB$:G.N"AFTER YOU SAVE A FILE, IT IS STIL::"RETURN TO CONTINUE":AB$,pN:"TO ADD A NAME YOU MUST TYPE IT IN. THIS MEANS IF YOU HAVE A PROTECTED DISK OR A DISK IN A DIFFERENT D.O.S, YOU CAN STILL LIST IT IN YOUR CATALOG LISTING."i-zN"TO ADD A NAME YOU MUST ENTER THE TYPE OF PROGRAM(AMOVED.":"IF YOU RESPOND 'A' THE PROGRAM WILL"+\N"LIST EVERY PROGRAM BEGINNING WITH AN A ONE AT A TIME, AND ASK YOU IF YOU WANT TO DELETE IT. IN OTHER WORDS- ANY NAME",fN"YOU TYPE THE COMPUTER WILL ASSUME A WILD CARD AFTER IT. (LIKE = IN FID)."E IN MEMORY TO ENABLE YOU TO TYPE IN FILES OTHER THAN DISKS. THE CAT WILL HANDLE ANYTHING.":"(EG. VIDIO TAPE FILES, BOOKS, ETC.)"*PN"HIT RETURN TO CONTINUE":AB$::.+RN:"TO DELETE A NAME, YOU WILL BE ASKED THE NAME OF THE LISTING YOU WISH REST YOU CAN FIGURE OUT WHILE PLAYING WITH THE PROGRAM."[)JN:"RETURN TO CONTINUE":AB$:)MN"DELETE FILE IN MEMORY REMOVES A VOLUME (P/S) IN MEMORY WITHOUT MODIFING THE FILE ON THE DISK. IT IS ALSO FASTER.":*ON"THE INIT FILE PLACES A DUMMY FIL ARE THE PRIMARY (DISK) VOLUME NUMBER."(>N"THE 'Y'S ARE THE SECONDARY ID NUMBER-- A NUMBER YOU CHOOSE!!.":"THE 'Z' IS THE TYPE OF FILE THE PROGRAM IS ON THE DISK."8)HN"PROGRAM NAME IS SELF EXPLANITORY"::"MOST OF THE OPTIONS ARE CLEAR, THE RE '13900'1I'108'124:20:"0 FOR MENU";:1200O'2N1:CL(0):1000\' N HELP!!'*N:"TEXT HANDLING EDITING CATALOGER!!!":" BY ART COHL":34,4((4N5:"YOUR CATALOG WILL APPEAR AS FOLLOWS:"::"XXX YYY Z PROGRAM NAME"::"THE 'X'SLES IN MEMORY"::I12500::1000S&1"SECONDARY VOL. ID. # ?";AB$:(AB$)01000g&1(AB$)312710&1(AB$)0(AB$)90012710&1:SLOT&1(AB$)1AB$"00"AB$&1(AB$)2AB$"0"AB$&1I0N:(NA$(I),5,3)AB$ĺNA$(I):12750&112760(0):CZZ0%01000:%0 MAKE SURE YOU WANT TO DELETE t%015:868:NA$(I);" Y/N ?":AB$:AB$"Y"NA$(I)"":%0AB$"N"12510%0(AB$)012510%0%81 CHANGE FILE IN MEMORY%B1N1:4000%1 LIST BY SECONDARY VOL. ID"&1N0ğ:"NO FICZZ0:CL(0):CZZ0:1000S$*0AB$"N"CZZCZZ1:CZZ5CZZ0:CL(0):CZZ0:1000g$/0(AB$)012320q$401000$p0 DELETE FREE SECTORS$z0:2:"DELETE FREE SECTORS"$0I0N:(NA$(I),12,9)"FREE SECT"İ12500$0I %0CZZCZZ1:CZZ5CZZ0:CL$)312260"#0BB0BB90012260# 020:868:"LANGUAGE/FILE(A,I,B,T,R) ?":CC$:CC$"A"CC$"I"CC$"B"CC$"R"CC$"T"12310#012300#0VI$AA$" "BB$" "CC$" "VI$$ 023:868:VI$;" OK ?":AB$:AB$"Y"NA$(N1)VI$:NN1:CZZCZZ1:CZZ501000M"/13:868:"PRIMARY VOL. NO.?";AA:AA$(AA):(AA$)1AA$"00"AA$g"/(AA$)2AA$"0"AA${"/(AA$)312220"/AA0AA25412220"/16:868:"SECONDARY VOL. NO.?";BB:BB$(BB):(BB$)1BB$"00"BB$"/(BB$)2BB$"0"BB$ #/(BBE YOU WANT TO DELETEN!N/15:868:NA$(I);" Y/N ?":AB$:AB$"Y"NA$(I)"":b!X/AB$"N"12110v!]/(AB$)012110|!b/!/ ADD A NAME!/N0ė:10::"NO FILES IN MEMORY"::I12500::1000!/:2:" ADD A NAME""/10:"NAME ?";VI$:(VI$)0::"NO FILES IN MEMORY"::I12500::10009 .12050S .:2:"DELETE A NAME"~ .10:"NAME ?";VI$:VI(VI$):VI01000 .I1N:(NA$(I),11,VI)VI$İ12100 .I /CZZCZZ1:CZZ5CZZ0:CL(0):CZZ0 /1000 /216,0:1000!D/ MAKE SUR'&t':"VOL SID TYPE PROGRAM":='"FILE NAME? ";FL$S'(FL$)0ġ:1000l'D$"OPEN ";FL$;",V0"r'*D$(4):*D$;"CATALOG":+"LOAD A DATA FILE (Y/N?) ";:K$ +K$(89)ĺ:N1:4000+1000. DELETE A NAME- .N0ė:10%N09600:%10200$D%10100/N%9630BX%D$"READ ";FL$Kb%FI$kl%PN$(FI$,11,L)ĺFI$:3900uv%9570%10100:I0N%PN$(NA$(I),11,L)ĺNA$(I):3900%I:4280%216,0:X(222)%X5İ10000:4280%'D$"CLOSE ";FL$OF ENTRIES = ";L:"ROOM FOR APPROX. ";(F22);" MORE"?t4280I@ ENDVJ216,0:i(# SORT BY TYPEz2#:"SORTING"<#N%NF#SRT#(NA$,0,N%,9,9,A,1,3,A,5,7,A,11,39,A)P#1000% FIND PROGRAM NAME&%"PROGRAM NAME? ";PN$:L(PN$):L01000(222)X67120)N01000AD$"OPEN ";FL$",V0"UD$"WRITE ";FL$`I0Nv(NA$(I))07170NA$(I)I D$"CLOSE ";FL$1000L NO. PGM ENTRIESVLN1`:"COMPUTING FREE MEMORY":5jF(0):"TOTAL NO. 11,39,A)1000%X SAVE CATALOGZZFL$""ĺ"SAVE AS ";FL$;"?";:A$::A$"Y"7020~b"FILE NAME? ";FL$:FL$""1000l"INSERT '";FL$;"' DISKETTE"v"AND HIT RETURN"A$7090D$"DELETE ";FL$;",V0"7120216,0:XNAME:"SORTING"N%NFSRT#(NA$,0,N%,11,39,A,1,3,A,5,7,A)P1000ip SORT BY VOLUME NO.zz:"SORTING"N%NSRT#(NA$,0,N%,1,3,A,11,39,A)1000d SORT BY SECONDARY I.D.n:"SORTING"xN%NSRT#(NA$,0,N%,5,7,A,TB%TB%1|3900I7TN%TI%TF%TT%TB%TR%W:11:"NUMBER OF PROGRAMS""INT FP TEXT MACH 'R' TOTAL"TI%;7);TF%;13);TT%;20);TB%;27);TR%;34);TN%0:"TYPE '0' TO GET MENU."1200 SORT BY PROGRAM 0:TB%0:TN%0:TR%0"10100-,N0424086I0ND@NA$(I)kJ(NA$(I),9,1)"I"TI%TI%1:4220T(NA$(I),9,1)"A"TF%TF%1:4220^(NA$(I),9,1)"T"TT%TT%1:4220c(NA$(I),9,1)"R"TR%TR%1:4220h(NA$(I),9,1)" "4220 r MORE. 'ESC' TO MENU"/PA$:A$(27)ġ:10007Z:=dQ LIST CATALOG_N04110j4080u10200D$;"READ ";FL$NN1NA$(N)4050216,0:X(222)X5İ10000:NN1:4110::SLOTTI%0:TF%0:TT%UME NUMBER? ";VD$8 (VD$)3VD$("00",3(VD$))VD$C 3160V D$"READ ";FL$_& I1i0 II1u: NA$(I)D (NA$(I),N%,3)VD$3130N 3120X 216,0:X(222)b X5İ10000:NI1:7050l <(37)21SLOT03940F"'RETURN' FORODIFIES THE FILE ON YOUR DISK"::"HIT RETURN TO ABORT, PRINT NAME TO CONTINUE":\ g 10200 "DELETE PRIMARY OR SECONDARY VOLUME (P/S)?":A$ A$"P"N%1:A$"PRIMARY":3070 A$"S"N%5:A$"SECONDARY":3070 3030 A$;:" VOL>VI$" "VI$(H" INSERT DISKETTE">R"AND HIT RETURN"F\A$Rf(28),0lp310: READ CATALOGzXX1:X(X5)50F(0)1000 DELETE A VOLUME  :2:"DELETE A VOLUME"V :"WARNING--THIS PROGRAM AUTOMATICALLY Mz#  ŮҠ Ӡ Ա"ԠԠ̠Ҡֱ ՠ̠ҠҠЮĠ̠ !Ϯ" ŠԠ,ҠҠ נ٠Ҡ ȮӠ ٠Ӡ ŠԠ Ǡ  ˠ٠ ˠРˠР ˠԠˠР! ĠàϠՠà2ՠ@Ӡ ؠԠ Բ                gW'  `^ :F Y %^LǏLZ^[_\Z][`1''8tp`8M`y LHy0y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[/3k{'7w+Ss?XIBRARY OF APPLE M.U.G. ** L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT SP(PAGE ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- $% 0nmooة$eeVLԒؠ 58nnooؠ o 0n)JJJJ 0șn) 0șVJJJJ 0``r% $ BU ڑV V Hi&eh L`$V  ɍ ` X0 `**PROGRAM L)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4  µĵ=֩=h̵h˵`DApyL`µ H hBL˵H̵Hõ˵ĵ̵µ= µĵ=֩=h̵h˵`εĵ̵µ= µĵ=֩=h̵h˵`--NO CARD OR CAN'T RELOAD" 2 (768)0Ā ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." ,DApyL`µ H hBL˵H̵Hõ˵ĵ̵µ= 6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 D$(4):D$"BRUN MENU"  804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N n -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776     q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00L 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ$ o`$ U a(ҾĠ׾ŠþŠоӠԾԠξԠɾĠϾĠƾԠ;)2 a(̾ԠžԠľ٠ӾԠؾ)G_T V a(ɯʯ˯͠ũըũϨԠҩľԠƾԠþŠо). a(T \a(Š)G\`$ `$ a()G_ @ `%q`%q`.?r$ deM _ H ]ԠϠÊR d6ed7eKoQz ]РŊ9 oPqM`YdeMb _  ]Ԡ٠ԊV \a(Ԡȯ)G\`$ `$ a()G_ @ `%q`%q`.?r$ deM `$_  ]Ԡ٠Ŋ`%a()G oP\: a(Ժ)G`.?r%a()G`.?r%a()G a(ź)F.?rG _T  ]ԠԠ؊4& q\q`7%\_ N ]ҠԠΊ9X UVWdeԠ؊$ q\q_  ]͠͠ي oPM@ a(Ժ)F.?rE(ź)F.?rE(ź)G4 d2e?`%a()Gd2e`7%a()GB a(Һ)G`%a()G`%a()GD`$t`$`$<`$n`$ ?`$`$N `$pq\_T  ]ΠȠҊ oPMT ]Π͠ӊY `$ ^ `$c _ ]ԠŊFoPqMa()GdTe`P a(Ġ)G\2dTeoPqM\qD`$ `$ `$ `$ `$.D`$ `$H `$z `$ `$)YKMoa@oP a@o>a@oa@oPa(ԠˠĠԠŠ)GCq\`$oPM\\MCUVW'@Brp()YoPa(ҠҠ)]ĠdeHdede`dede]Ӷıְ˰԰]ŠŠĠԠΊ<q.?Lrq.?Mrd<ed=e`$qq-d>ed?edBedCe M6BUVW'@Brp(qq q q qqq] Ytqqdede`dedededeQ~dededeӠĠ֠àkVqqqqdedededey`qqqqqqqqwjqqqqqqqr.N@"rC@" rC@"(rC@"(rC@"(rC@"(r@p(ˠ٠ֳ)@p()B]ŠˠɯϊRLqq q ]ɯϠҬɯϠˬq<(qn(q)q6)Hq)q0*q*q*q*]ϯ lqqqqq q!q#q"dedede\$qqq>]ˠ٠ҠQ qбԱӱ]ɧUq q{ q q q6q6dq6]Ҡeq'qB'qt'q'q'q (                    b@ `$n`$`$`$d._]ŠӊO\qq\`$q2\oPM_T KoPdeMdeUVWa@*#rYoPaa( r\`$q,\_kq`$ccPd2e?a(ŠԺ)Gd2eq.?rq.?r\qVccPd2e?a(ŠȺ)Gd2eq.?rq.?r\`$)`%a()%`.?r%a()Sod2e?Pa(ҠȺ)Gd2ea()Gq.?r\S`$qq\`$q*\_Mq.? rq.??rd2e?I\d2ecPa(Ҡ)Gq.?rq\oMcd2e?a(Šź)cd2eq.?r`%a()iqq`%a()`%a()`%a()`%a( Ԡ)_`d2e?a(٠ٺ)d2eca(ˠ)Gq\ca(Ҡ)Gq\cPa(Π)Gq\o Pd2e?a(˯ҠԺ)d2ecYq.?rPa(ˠ)Gq`$q.dTe`\dTe.oPa()GPa(Ԡ)de%deoPMq*`$D`$ `$z `$de\,]Ԡ\`$/`6$ca(Šӱ%qбq&`б%\_] ]Π͠Ԡӊ_fqMk_T p]٠ŊXzoPMqP a(٠)dedeMq_/oPq2e_^\`%q@qq.?(r.?)rdededeqC`$q@`%q`%q_`$z ^F`б$q.?r``%q`%q`%q`%q$`%q.?r`б$F;`$oPa(Һ)GP%\qX`$oPa()GP`.?r$d2e?\drG#o Pa(ú)Gde1oPa()Gq.?rq88rr!q8roPa()G;бqdTe`\dTeoPMq7`$ `$n`$<`$ d`$fŊ%oPa()GPa(Ԡ)1qq.?rqdeM6oMqqq q\$oP!a()oPMVoPa(Һ)Ga@*#rE@*#$}a()G_x}deM\S(ź)&@`;@r$\`$a()G_de5\a(ŠŠŠůĩ)G\+`%q`%q\_ ]ԠԱqqq\+`$\qӱqԱ_\M_T <]ԠԠԊF\)P\MUq.?r`$Z_T n]Ҡ͠ӊLx\S(Ժ)&@`;@r$\`5q`$qq`$q"!ӱqԱqqq\+`$\qӱqԱ_\M_T ]ԠҠΩqq5q`$ qq`"$ q! ӱqqӱ_  \\M _T ]ҠŠŊoPa(ź)G3qq$Աqӱq`$. \$\`$.\_`.\qԱqӱ`_T t]ԠҠ̩~qqӾԠҾŠɠؾ)G_T Y a(ƾŠҾҠӾŠľŠϾĠþŠоӠؾ)G_T  ]ҠĠŊ oPa(ĺ)G qԱqӱq? \q\`$ \qԱҺ)Gd2e?a()G%*`%a(ˠŭ)G *` %a(Š)G*`@%a(Š)G*`%a(ŠϠ)G*]ŠŠˠ \+`%a(Ġ)Ga+`%a(̠)G"f+`$%a(%q.?rX*[*]ŠԠˬԊ*`$*q$[ *q.*dededeM*`.?r%q.?r*[*]ӺŠԠӊ*d6ed7e[*]Ҡي*oPM"*a()\`$)a()G_) )de )\[(*qԱqӱw_ ]Ԡ*]Ԡ&*qqde\[0*]ĠΠˬԊ :*q-D*dededeMN*`.?r@9()$*`;@r$)`@9()$*&)\`"$)a()G_) )q[)\S(Һ)&@`;@r$)`@9()$*\`$)a()G_) )q)`$)q_)M)\S(Ժ)&@`;@r$\)P[>)`%a()G` %a()G` %bG[6)]ؠŊX@)\a(ؠįȩ)G\`78r$(q`%q [)]ƠŊ)ԱqӱqH)\S(˺)&@`dedede`%deM([<(]٠Ŋ?F(q.?6@r`$F(d6?e`78r%[w_T n(]ΠŊx(oPM[)]ؠŊB)a(к)Gq\)P a(Ժ)GqY[']įˠΤϠȠ͊='`;@r%@B;@rrp@*#;@rr@p@*#r[']ҠŊ'`$'bG[C'a()E@*#rE@*#rG[ (]ǠŊO(a()G`%a()G'q[eV'\`8r$V'q`%qqa@*#rG[t']͠Ŋc~'qUVW;@rq<@*rr` %q` %q`$'q6['qqq.?r\\MS_T 'Q ']ٺ٠ˠÊ:'oPMa()GPa(ˠ)Gq\P $'a(Ҡ)Gq\P,)'a(Š)Gq.?r\P&a()G.'[B']٠Ŋ L'\V'q\Vr$;`<@*rr.?r$q`%[_q#`$!`$q_q6[ ]Ί_D]Ԡ͠ҠŊ`NdedeqoPMq.?rź)GR@`;@r$@oPMw_F@q\oPd2e?a(ź)Gd2ea()E@MEde[_]٠РΤqq,\`7$q(\q6[ q q`.?\_Zo PMa(Š٠٠)ca(źàӠԠΠĬ)Ka(ՠ٠ϠӠ٠Ǡ)a(ΠǠŠŠŮ)_,]ԠŊ"1oMdeoMD6oPca(a(Š٠)_d]ҠŊFn\,\`$s`6$ca(ŠӠԠ)_9s`.?r$xca(ŠԠ)_Xxd8re.?rd8re\`7$ĠŠ٠ٯΩ)GP.?$r\`$a()_aa()q.?rde\`$`$%q4\_M]Ԡ #oP(a(Š)E@\c42o PMqdqa(Ӡ)G\a(ˠӠ)FE()G_]ŠŊF \,\`$`6$ca(ŠӠԠ)_=`.?r$ca(Š٠)_\`.?r$ca(ŠӠàŠàŠ)oP a(۠ŠĠ)oPMUq.?rq.? rqqq8roPa(ź)G\Ua(Ӡ)G\a(ˠӠ)FE()q0qqa(ĺ)G\C)ca(ԧӠ̠Ӡ)G1[]]ˠɠ٠ֳҺʮӠӺ׮Ӡ% "$   L LQ ɀ0ɠ  J  bL #ҠŮźàӠԠġ)NL1a(ӾŠӠӠРƠĠĠŠӠΠŠˮ)qV1a(ϾĬþŬĠоӠŠӠΠĠŮŠԠˠРԠӠ٠ԠϠخ)C`1a(ؾԠˠϠĠԠˠϠĠŮ)G71[f81a(Ԡź)ca(ƾŠŠĠ٠ŠΠŠ٠ҠàŮ)NB1a(ľŠŠŮՠ٠ϠŠӠԠŠĮ)TG1a(ҾҭҠ٠٠Ӡ̠͠ϠŠϠǮ)y0a(ľԭҠנŠϠŠϠҮŠˠ̠ԠŠΠ̠ŠĠӠĮ)Q1a(þŬоӬƾԬĠӾԠ͠ŠŠӠΠĠŮ)%1a(ؾŠŠҠЯԯԯΠΠŠ٠)M0a(ŠҠҮŠҧӠŠԠҠή)V0a(ՠĠϠŠРԩŠҮϠԠŠҠŠϠƩ)O0a(ҾŠŠԠŠĠӠĠ٠͠ĠŮ)cP0a(ӺӠԠˠҠ̠Ԡ٠ŠĠȠΠا)P0ca(٠ϠԠŠӠӠŠϠҠŠٮ)G0[f0a(Ԡź)ca(ɯʯ˯͠ŠĠϠϮ)qz0a(ƾԠԠɠҠؠٮ;ŠԠ٠ŠϠӠҠӠҠή)e0a(žԠҠԠŮ)a(ľԠҠ٠)a(ؾԠԠ͠ծ)W0a(ӠӠήӠӠŠӠƠՠӮ)w40a(ԾԠ٠̠Ӯ̾ԠĠŠӠҮξԠĠŠԠҮ)Go0[Vp0a(ɾĠԠŠԠؠϾĠԠŠԠؠԠȠا׾ŠŠҮŠԠŠĠԠþŠĩ)s 0a(ӾԠǠΠƠٮՠŠĮ)a(þŠŠӮŠ)d*0a(ԬŠĠŠůŮоź)ca(̾Ԡ٠ӠϠŮ)a(ξԠ٠ԠϠŮ)&/a(ؾԠԠ͠ϠŮ)G 0[e 0a(Ġź)ca(ҾĠĠҠϠŠϠҮĠӠҠˬҬ)u0a(ĠԮՠ٠ĠΠŠΠŠĠŬҠŬŠҠԠ)S/a(Ч͠ĬԬĠԠӮ)ca(ŠՠĠԠӺ)cS/a(ȾР͠٠Ŭ٠ԠƠĠӠҠԠŮ)ca/a(ϠϠĠǠƠŠˠŮŠ)nv/a(ŠӠӠήՠ٠ŠȠԠǠŠΧ̧ӠӠΠש)G/[V/a(̠ӠŠĠȠŠӮŠƠ٠ƠŠ)V/a(Ӡ)ca(ħԧԧϩ)cVX/a(̠ӠŠĠ͠ŠħŮҠӠĠӠŠ)Vb/a(͠ӠŮԧŠӠĠϠ٠ӠƠŠˠɯϠҮ)Vl/a(ԧŠӠˠРƠD/%qdM\_.*/`$.`%qdM\_.":/deoPM_DVD/a(ՠ٠ŠĠϠĬԬҠŠ̠ˠӻҠϠ)sN/a(ˠ٠ՠӠҠĠӠӺe[.]ՠΊR.oPMP a(ՠĠ)oP a(̾ԠξԠؾ)K.dedeMqqD/q81\oPa(Ϡ)G2.dTe`\dTeq`$:/,/`$/`Ԡŭ)G!p+`&%a(ҠƠ)G%z+`(%a(ΧԠĠ)G-+`*%a(ΧԠĠ˯Ҡ)G +`,%a(ΧԠĠ)G#+`2%a(ΧԠĠԠ)G)+`4%a(ΧԠŠŠ)G+a()Gd2 LHH TUȑ   2H?2  -h2hh` T#ȱT U  i#` TȱTеHHH $  n >    Ӡ٠ĠΠŠΠϠŠq\Lqq`%[`$"q.?r.?r[Dq.?r.?rq.?r.?r []ĠĠ$q.?6@r`$d6?e[b]edeq\L_^M6P;@r a@[L]ˠĠ Vde `de jde tM~q.? r[]ԠԯȠqqq\Lq.? rq.? r@p(Ǡ)o\a@E()E@E()NoM6Pa(Ԡ٠ˠĠԠ)Gd2ea()Gd2e\`$c@p(Ǡ)o\)a@E()E@E()FE() q\dda()GPa()F:`%Q"D@p(ŠǠӠ)No\\X`$-boM6S(נǠӠ)''ldedevq\L#@p(٠Š)o\\`$˯)GPa()FE()F$a(Ҡ)GPa()F'&a(Ԡ)GPa()FG1(Pdedea()GM&0a(Š)GPa()FG32Pdedea()GM4@p(ŠԠ) o \UVWXY_^o M6-a(Š)GPa()G`%a()Ga@a(Š)GPa()G `%a(Ԡ) `%a() `%a() `%a()-a(c!J@p(ŠŠ­)\Tc@p(٠Ġ)\^o M6 hS(ӠƠŠŠ)&@r`@:()$|M6a@E()c>a(Ԡ)Gd2ea()Gd2ea(Ϡ)\_@\d]ȠҠ`@:()$rq.?rq.?rq.?!rq8rq "\[+]Π͠,N@"rC@"rC@"r"1qq qI6@p()@p()@p()"@KM6@p(Ӡ)\X#`.?r$`.?r$,UVW`.?r<@*#rr$Y`$*UVW`.?r$Y_Yq.?rq.?r`$x @p()[q.?S  Ѕ?0ȱ ^   ?ȱ ` 9 X  =ɍ`L 0Ni`Ԡ _,d]ˠҠŠŠnqqq;@rxq\LUV WU 6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<rrdBedCede.?>rde.??rM6_   ȱȥ     ȱ `   Lb }      B#`  T` ` A` 8ȹ  Ȅ$% "`F % "$` #b  L  P L+ ȱ ȱ eiɠ$ 0!8i Lw   ɠ $ 0 @ɀ@@ iL iH)`hIHh и #L  &L %(!" L,,,DȑD eL  L! ȱȱ0 L< )   P L<  IN SUB DIRECTORY  L  ȱ ȱ  Y  P L<  BAD POINTER L   IN DATA SECTORD DDD D   IN VTOC L 8 Đ$ 0 X"Lf !! VOLUME=D + P FREE SECTORS= + (effff + K)0 $   IN DIRECTORY  L = ACTUAL BINARY LENGTH NAME = FILE NAME ( = ABBREVIATED) PRESS "ESC" TO STOP TO RESTART, TYPE: CALL 2051 & DECIMAL OR HEX BASE? ע CRT OR PRINTER?   L { DL DE  X IMPROVED CATALOG LAWRENCE HALL OF SCIENCEABBREVIATIONS USED: P = PROTECTION T = TYPE (EG: A=APPLESOFT) ? = DELETED FILE LEN = SECTORS USED ON DISKSTART = BINARY STARTING ADDRESS BLEN  ȭ  hh`ɺɠ @)`L L=LiTȱiȱi`ȱiȱi ``ȑ Ŕ8 Đ0ȑ Ŕ 0/# `i!LȭLL ޘи8ޥ߰ L,L L4Hȥؑȥّڥݑօوܑօ؈ڑh`Н(kٓlړPӓ`(ٓkړlӓP`PJ TuVTvP`SRT#(VARIABLE NOT FOUNDlnLۓLKkiRliSޅP߅QTU qPХQFf N`8ޥeeЅօڥхׅۦeޅ֥e߅eڥeօȱօٱڅ݈څܠc]0 ܰ Lڒܐ@ Lڒ6 А4H +hݏ%  , ۓʽۓ$LZ ܓܓ g RPޥQ g RP8ޅQ߅Y  NLޠ ʬꓖ ꓖ D0Ȍ ),л гkۓȱkܓ+kekHȱkellhkm  $0 $` d'SBE CORRECT RIGHT AFTERRUNNING THIS PROGRAM BUT THE DOS (DUMB OPERATING SYSTEM) WILL PROBABLYMESS THINGS UP AGAIN. SO IT GOES. HIT ANY KEY TO CONTINUE. ` LTMU`sTtU`ɩ   ɰH`U0Ȍ ` 9 X P P $ FIX CATALOG BY ANDY HERTZFELDTHIS PROGRAM WILL FIX THINGS SO THE SECTOR SIZE THAT IS PRINTED FOR EACHFILE WILL ACTUALLY BE CORRECT!IT WORKS WITH ALL VERSIONS OF DOS.THE SIZES WILL P P  ERROR(S) WERE FOUND AND CORRECTED.hhhL  ,0 U U`L P L !H L L  !h L -`ɠ)? ` T`HHhL hh L H q q q qd$e KM6:oP a(ˠҠ)cPa(٠Ġ)(Pa(ŠΠϠŠ)2oPa(ĠԺ)d ed!e!ca(̠ˠ٠)𪪪 e] f]ˠҠ g]٠ h]ĠΠ i]٠ j] k]@p()]̭6d<e8.?rrd=e.?r8.?rrkd>e8.?<r@rd?e.?=r8.?<r@rdBedCede.?>rde.??rM6_HHH ȑ ȑ  hhh`  d]     OLLER3. DUAL DRIVE, DUAL CONTROLLERWARNING: DISK ERRORS:TRACK 2, SECTORS 9 THRU 12 MAYGENERATE READ ERRORS AND WILL NOTBE COUNTED.TO RESTART, TYPE: CALL 2051IJK`L`ɩKP Kɰ$0 $` d' - DISKETTE COPY ROUTINE LAWRENCE HALL OF SCIENCEUSING READ-WRITE-TRACK-SECTOR (RWTS)OF APPLE DOS AND EITHER:1. SINGLE DRIVE2. DUAL DRIVE, SINGLE CONTR# Ln ` ȑL/  ȑ ` ɀ    - ERROR (  0ɀD - DRIVE ERROR)L - WRITE PROTECTED)L - VOLUME MISMATCH)L - READ ERROR) - ABORT?  L $ - SLOT=   )  [$ - DRIVE=   )Յ`ȑ` [  i8ȱ8 &d [ - TRACK= - SECTOR=   G =?C<>B< , i  ȑ"L,,,` 0   ɍ`hh L5 HH`, - PRESS RETURN TO CONTINUE  ɍ ` [$ - VOLUME=L X$0$ L X - INSERT MASTER DISKETTE` X$0 - INSERT COPY DISKETTE N LX - DISKETTE:  [F COPY DISKETTE jɍ) e e y  X - INITIALIZING  o L   - READING  g  $ - WRITING  g #а  [ - DISKETTE COPIED.   - ERRORS.ȥ " X [ - SECTORS/LOAD=  $ - AND COPY (BLANK) DISKETTE N   o L  y [ X - DO YOU WANT TO INITIALIZE COPYDISKETTE?  3 ȑ o L  y Le X - VOLUME NO. O7ɞLL  ȑ3L f X U - SHALL I USE AND HENCE OVERWRITERAM MEMORY USED BY APPLE DOS?    e8/ X - MASTERJJJJȱ JJJJ - COPY      `)L­ LM`st`ɩsx sɰ$0 $` d' LDȑD D D   `DȑD` D .ɀA (DRIVE ERROR) ` (WRITE PROTECTED) ` (VOLUME MISMATCH) ` (READ ERROR) `  +  + ݍ` ENTER PRINTER SLOT OR HIT RETURNFOR DRIVER AT $300 3 jɍ`hh L HH`, PRESS RETURN TO CONTINUE% ɍ` `$ Ld  L+$  LL+, ,ɛL $ 0  ! `$ 0 PT LEN START BLEN NAME     M `.?r$  UV WX# `.?r$F ( `.?r$< 2 d8!re< YF de P M#Z q.?rq.?rd `$ n _  _ԠǠŠ)c, a(ӠϠҠƠҠ)c- a(ŠՠΠԠ)c/ a(Ӡ٠ǠŠاĮ)cc) S(ҠנҠӠ)' qq de de de j KM6#t a(ǠҠ)cc/~ a(ȠŠ٠ΠŠ). a(ˠӠŠŠĠ)c, a(ǠŠҠӠǠ)c. a(ǧĮҬӠ)c0 a(٠ŠĠ`.?r$V UV WX#`.?r$ `.?r$  q d8!re Y de $ M#. q.?rq.?r8 `$V B _V _!` ]٠Ӡ()Gc[_K M6a@E()S(ΠϠ)&@_4KM6KQf`d%a()Gp` %a()GzbG["]̠Ҡqqq de de de M!rende pMr\vYde M#q.?rq.?r`$_TUVW*d8.?(r.?)rre.?rY$Pq\fa()Gq\f`$PaԠҠƠŠŮ/]נĠ̠ȠƠŮ`$0&&q.?r.?r_:0q.?r.?r:q Dde Nde Xde bMg`$rld8q.?!rq.?rq.?r de de de M?]Ġ˯ҠԠҠǠŠҮq.? rq.? r de de de M>]נŠŠĠŠŠ)GPa()GPa() DM6 Ed"eJqq Tde ^de hde rM|`.? r$UV WX#`.?r$`.?r$vq.?r`$vX#`.?r$`.?r$q.? rd8red8 reYde M#q.?rq.?r`$"_"_@]ؠ AM6 BM6*Ca( red8reY(de 2M#<q.?rq.?rF`$ZP_Z_x]Šqq de de de M`.? r$"UV Wq.?r__]Šqq de de de M`.? r$ZUV WX#`.?r$(`.?r$`.?r$q.?r d8e de de M`.? r$$UV WX#.`.?r$j8q.?rB`@9()$VL`%q_`V`%q`d8rejYtde ~Mq.?r%@cS(ȠϠՠԿ)&@JK^`@9()$h`@9()$r`@9()$|`@9()$x`@9()$@`@9()$`@9()$4`@9()$`@9()$` _T]˯ˠqq da(ՠˠ٠)"a(ĠŠĠ)"a(ҠŠĠ)a(ƠؠҠ) a(àǠƠ)"a(ѠԠˠ)",a(ϠŠӠΠ)"6a(͠٠Ҡ)&10:C$"READING DIRECTORY":119RD1:WR2:N1HS1511]0,17:1,S:2,RDgRWTSIBUFFER14BUFFER25535 (I)02180(I3)2552160 NN1*P%(N)(I1)4T%(N)(I3)>S%(N)(I2)HL%(N)(I30) RA,B,T).":)"(3) SORTING BY LENGTH":X" THIS DOES THE SAME AS THE 1ST SORT,"" BUT ALSO PLACES THE FILE INTO"" SEQUENCIAL ORDER BY SECTOR LENGTH.":"< PRESS SPACE BAR TO CONTINUE >";A$:A$" "1270130E THE FILE"9" NAMES. WHEN COMPLETED, THE PROGRAM"i" WILL CLEAR UP ALL DIRECTORY PROBLEMS""(2) SORT BY TYPE":" THIS DOES THE SAME AS THE ABOVE, BUT";" ALSO PLACES THE FILES INTO GROUPINGS"; " BY TYPE (I.E. I,VERY NEAT AND CLEAN... IT WILL ALSO MAKE"OL"FINDING PROGRAM NAMES A SINCH!"{V::"< PRESS SPACE BAR TO CONTINUE >";`A$:A$" "1120j:"(1) SORT BY NAME"t:" ENTER '1' WHEN ASKED FOR SORT TYPE." ~" THIS WILL ONLY ALPHABETIZ NAMES OF YOUR CATALOG INTO ALPHA-"U "BETICAL ORDER. IN ADDITION, YOU HAVE THE" "OPTION OF GROUPING FILES BY THEIR TYPES." $"ORDER IS INTEGER, APPLESOFT, BINARY AND " ."TEXT FILES. " 8" THIS WILL MAKE YOUR CATALOG LOOK ")B", *C$"PLEASE INSERT DISK INTO DRIVE 1":11Q 4C$"":11i >(16384)160830w H16368,0} R \7:15::"DISK SORT" f p  12:"CATALOG SORT":: " THIS PROGRAM WILL REARRANGE THE "% "FILE:"3 - SORT BY SECTOR LENGTHS"0 ::958W "ENTER NUMBER OF DESIRED SORT? ";_ S$o S$"1"500 S$"2"600 S$"3"700 220 800:2000:3000:9000 X800:2000:3000:4000:9000 800:2000:3000:5000:9000 :10 FC$(27)ė:! PC$" "60' ZH d10:"INSTRUCTIONS (Y/N)? ";] nC$:C$"Y"1000n xC$"N"110t "THERE ARE THREE TYPES OF DIRECTORY" " SORTS AVAILABLE: " ::"1 - SORT BY NAME" :"2 - SORT BY TYPE"" PRINT CENTER ROUTINE+ 958:20(C$)2@ C$:PRINTS LINEJ (7)P j 5:C$"DISK SORT":11 C$"BY - TED COHN":11 (C$"DATE: DECEMBER 1, 1979":11 221:" PRESS 'ESC' TO END" 7"< PRESS THE SPACE BAR TO CONTINUE...>"; <C$3255:16384:MAX70:RWTS16384:BUFFERRWTS256E(RWTS)725X16383((175)(176)25667):I1638416450:I,(IX):I16420,65FILE$(MAX),P%(MAX),T%(MAX),S%(MAX),L%(MAX),E%(MAX),SEQ(MAX)RD1:WR2 16298,0::936:20       < A < ɰ$0 $` d'OONTAL AXIS).THE STATUS OF EACH SECTOR IS BASEDON THE BIT MAP OR VTOC IN TRACK 17,SECTOR 0.LEFTMOST VERTICAL COLUMN SERVES AS ASECTOR INDEX. PRESS ESC TO STOP. TO RESTART, TYPE: CALL 2051` LM`st`ɩXLhh L HH` `ȑ`ȑ`, ,ɛȑ  L  APPLE DOS SECTOR USE MAP LAWRENCE HALL OF SCIENCETHE FOLLOWING MAP DISPLAYS 16 SECTORS(VERTICAL AXIS) IN EACH OF THE 35TRACKS (HORIZĩ R  FREE SECTORS (effff  K)$  VOLUME=  : J di i   i8ȱ8& F  di i  L #Н,,, . 9 D   . X l  INSERT DISKETTE, PRESS RETURN,,,ɍ F   READ ERROR IN VTOCL8 Đ @  DOS 4 6 8 0 2 4 D 0 2 4 6 8 0 2 4 ĩ I Žҩν@p@*#r@p@*#;@rrA\_qF@p@\iq/Kq\@p@q\@p@P`"$(%U@p()`$-Z[_q8@*#r9()rd`%@p@*#;@rr@p@>iq@E(٠ή)c2cS(ȠˠҿȽة)&@`7;@r$q`@*#r9()%@p@*#;@rr@4`@*#r:(Ƞ)$7@p@*#;@rr@p()@Brp@E7`;@r$#q@p@*#r`@:()@:()@:()@:()$7)< ]ŠӠӠ͠ϠŠΧĠҠӮ]ԠؠŠ'@p@*#r.@Brp@*#r[ ]ԠˠàҠ#@p()_-(@p()$-ca(Ġ)EӠҠϧ| ]ǧŠӠϠԠͧҠϱàŠԠŠҠҠǧϠˮҠӠŠӠˮ, de.?rde.?r_]Рӡ% q.?6@r`$ []Ġ de.?rde.?r[AĠҠΠي{]͠ӠӧˠԠĹӠԠſӧӠҭԠӮԧӠ٠٠ҠԠҮ{]ҠҠϬˠӠĮԠӠ̧ĠϠԠͧҠԠРֺ=C>B`>L  L hL ) @JJJ @+`>L q67N@"2rC@"rC@"rC@"rC@"2rC@"2r.@p()@p()@p()\    ]ˠ7]٠ĊB6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<rrdBedCe de.?>rde.??rM6_L LiB?CLx  <@=A @e8.?<r`rd?e.?=r8.?<r`rdBedCede.?>rde.??rM6_HHH LMȑ ȑ    -?? hhh`           !!! ITH~'THIS SORT ROUTINE!!!!'-------------------- TED COHN, 1411 ARLINGTON, EL CERRITO, CA. 94530 (415) 529-2502HHH  ȑ ȑ  hhh`M' DECEMBER 1, 1979 BY TED COHNI.'--------------------a8' PROGRAM SEGMENTS}B'1000-1300 INSTRUCTIONSL'2000-2999 READ CATALOGV'3000-3999 ALPHA SORT`'4000-4100 TYPE SORTj'5000-5100 SECTOR SORTt'HOPE YOU HAVE FUN W#S09300#7000-$0,17:1,S1:2,WRQ $S1ĹBUFFER1,17:BUFFER2,S2[$RWTS{T$C$"SORT COMPLETED":10:11^$:(4)"CATALOG"h$' *** DISK SORT ***' DONATED TO THE APPLE CORE OF SAN FRANCISCO/ BUFFER&Z#BUFFER1,17:BUFFER2,S1Ed#JBUFFER11BUFFER25535Rn#XSEQ(I)jx#J,T%(X):J1,S%(X)#J2,P%(X):J33,L%(X)#J34,E%(X)#K130:JK2,((FILE$(X),K,1)):#0,17:1,S:2,WR#RWTS#II1:IN9200#J#S 0)XSEQ(I):SEQ(I)SEQ(I1):SEQ(I1)X4FLAG1;ILFLAG15000RkpI0N:L%(SEQ(I)):qzXZBUFFERBUFFER255:Z,0::@(# ----WRITE TO DISK----2#C$"WRITING DIRECTORY":10:11<#I0F#S1511P#7000:CLEARLAG1  I FLAG13005# =----SORT BY TYPE----HFLAG0cTYPE04:TYPE34070nI0NXP%(I)128:X0XX128XTYPESEQ(FLAG)I:FLAGFLAG1ITYPEFLAG0I0N1L%(SEQ(I))L%(SEQ(I1))506E%(N)(I31)\FILE$(N)""HfJ029:FILE$(N)FILE$(N)((IJ)):JOpIVzSlI0N:SEQ(I)I:r 10:C$"SORTING DIRECTORY":11 FLAG0 I0N1 XSEQ(I):YSEQ(I1) FILE$(X)FILE$(Y)3060 SEQ(I)Y:SEQ(I1)X Fd`ed$e;\ `$@p()M6d^e_d_ed$eR@`7;@r$.q;@r`%@Brp@`7%@p@@p@'@B;@rrp(ΠŸ)UVW;@r$de<@*rrYdHeM6@p@*#;@rr_!8q]Ƞ\]Š5q.?6 r`$]çԠƠ4q`$_&]ȠϠԠ֮9q.?Mr\o.?%rM6a(ҠĿ)E@GWd`e_dae\ `$@p@*#rM6d_e_ĠԬȿˮ)cPa(š)\ `.?r%MQ\2]Ԡ˯GS(ҠנٿȽة)&@`7;@r$@p@\_q\_]Ԡ!\&\]ȠàĮ4cP a(çϠԠ)G\&ԯ)aM"fq.?6 r`$uM6k`$p\ M6u`.?;r.?Mr$az_oPa()[ZKM6qqq\qq\ca(ڭڭ)qq\qq\Oo P"a(ڭ)Pa(̠r%@Brp()a()E@&*oP a(٠٠ծ)G4\ M6_FRdededeLdecde]٠ŠҠ̠&Wd;e.?Mrd:e.?Lr]>\M6oPa(ϧӮ٠٠q.?6 r`$]Ϡ`$]M6c]`<()r$R`<()r$`<()r$X`<()r$8`<()r$B `<()r$`<()r$`<()r$L`$_= KM6@p()`.?E@2\d<ed=e.?Mrd>ed?e.?Mr `$,oPa(٠٠ӠǮ)+P a(ϭԺ)Go.?%rc oMp `%[]Ҡ<ca(ӺĬƬɬ̬ͬЬҠïҮ)GoP(c2ɱa@E()Pa(ΠĠǬҠǧҠΧϠΠϠՠŮ)EccdeLde6dedHe]ҠŻҠ\ M6\KM6BM6Pa(ˬҺ)FE()FE(غ)E@E()`@*#r9()%\2q_&de)0q8rded e 5`%[:_ X]b\"lKcoM6\M6oIva(ŠҠӠϠ)JH(ŠӠȠԠԠ)Gq.?Mr\eM+`.?.?(r.?)rr$\\`$`%[_q`%\2Dca(ԠˬҠӠ)FE()FE(غ)E@E()E@E():ca(ӠԠŠŠՠԠϠſ)GP%R@'`;@r$_,F\q8rq8r\K_`;@r$a@p@*#;@rr`@*#r9()$q\4_]ŠҧĠӻԠ˯î\2]ԠˠĠ q&dededѠԠ)cd"e,cS(ȠĿ)&@"6`;@r$@p@*#r@`@9()$J`@9()$T`@9()$Y`@9()$&^`@9()$Xh`@9()$r`@9()$ |`@9()$`@9()$"a(Ġġ)\ca(ŠԠҠŠҩ),ca(נŠҠϠŠ)/ca(ĠԠҬĠ)(ca(ԠҠΠ)%ca(ӠȠŠ)$ca(àǠũ))"ca(d2e?a(ˠР֠)q]ŠdPa(ҭ)FG`%a(ˬҺ)FE()FE(غ)E@E()E@E()Gcd2e-ca(ҠĠҠ͠Š)&ca(̠ԠҠ),q`P$[Ha( àĠŠƠ)M6|d"eo.?%r[`%[)ca(ϠҠӠΠĠΠԡ) c\w#]ԠƠ͠%q8.?rrq.?r8KM6Pq`@*#r:()$n@p@*#;@rr_inqq<@*rr:s` %`$xw_#;xq88rr8 r 8;@rr5}`;@r$n[]ĠƠˠҠԠҺ q:CA,A(C)(AD256):CH,AD:C10ĺ"0";:MAKE C$ = NAMEs dC;" ";C$:CC1:(37)21Ĺ33,20:32,20:3:C40C80130 xI:C10ĺ"0"; }C;" ";:50,63:"CATALOG":50,255:N$"DISK" :34,22:24:CM$"RUN ":"SELECT NUMBER (USE '-' TO LOAD) ==>";P:P0C3,2:HOOK DOS CAT TO MEM <D$;"CATALOG,V0":D$;"PR#0":D$;"IN#0":E(8)(9)2561:N$"DISK":(E5139)38240N$"PAGE":E=END CATALOG P3:34,2:"00 ";:50,63:"NEW ";N$:50,255:C1:I5139E38:(I1)2121205 ZA(C)I7:CL,16:AD(A(C)256)D. DELETE LINE 40AND CHANGE 941 ABOVE TO 767m ("RAM CARD LOAD":768:3:868:'INTBASIC' MUST BE ON DISK. - NOTE: A RAM CARD LOAD ISDONE ONLY IF THERE IS A RAM CARD AND IT IS NOT LOADED. 28,0:9,20:C(54)(55)2562966:C,216:C1,2:C2,252:L ** MENU PROGRAM **uC$"":CL(105)(106)2562:CACL1:CHCL2:A(105):D$""::D$;"NOMONI,O,C"::200C(175)(176)256(216728):I728941:I,(CI):I: MOVES CODEFROM END PROG TO $2D8-$3AF- # SPEED UP MENU BY NO LOADOF RAM CAR!!!!""" ` d'RS. RECONSTRUCT VTOC USES THEFILE DIRECTORY TO REBUILD VTOC. PRESS "ESC" TO STOP TO RESTART, TYPE: CALL 2051`L_ ߿߿J LM`st`ɩ ɰ$0 $   ݍL_   X  RECONSTRUCT VTOC LAWRENCE HALL OF SCIENCE VTOC OR VOLUME TABLE OF CONTENTSMAPS ALL 560 SECTORS ON AN APPLEDISKETTE. VTOC CAN BECOME MUTATEDAND INCORRECTLY MAP USED VS. UNUSEDSECTO 5`hh L HH`Hȑh j  IN VTOChhL  ȑȑ  `  .ɀA  (DRIVE ERROR) `  (WRITE PROTECTED) `  (VOLUME MISMATCH) `  (READ ERROR) `   =8 8  OPERATION COMPLETE.  ERRORS CORRECTED.L  NO ERRORS DETECTEDL  OPERATION ABORTED.VTOC NOT RECONSTRUCTED.L8 Đ  FREE SPACE=   SECTORS`    i8ȱ h   IN DIRECTORYL , ,ɛL_ L L eiɠ ɠ @ ȱ  (  ) h   IN SUB-DIRECTORYL ȱ Я #eL 8Q Đ   PLACE OBJECT DISKETTE INTO THIS DRIVE AND PRESS RETURN.,,,ɍ X  READING CURRENT VTOC 8 ȩȩȱ'z0ȱ4#ȩȩDȩ|ȑȑ ! ! ! !!!!W;@rq<@*rr`%q@deY@Brp@@p@-KM6M6`;@r(%P;@ra@q_)Pa(̠ĠԬȿˮ)Pa(ΠϠš)Qz@rr`;@r$L@p()@Brp@*#r(`@p()@Brp@@Brp()\_-joM6S(ӿ)&@`7;@r$etq.?Mrq88rr.?Lr]ΧԠˠƠҠΧԠŠN~qUVq@_Q]Ƞ#Bqq_Q]ŠLqq]Ԡ]Qq.?Mr\oM6a(ؠӿ)E@GdaedbePR@`7;@r$*S`;@r%@Brp@`;@r%@p@WV`@*#r9()%@p@*#;A NUMBER OF YOUR CHOICE.":l :"INPUT A STARTING SECONDARY VOLUME":"I.D. (0-900) ";VI:VI0VI9002060{ID1:2100 ID1VIVI1:2100*"SECONDARY VOLUME I.D. (0-900)? ";VI:VI0VI90020904VI$(VI):(VI$)3VI$("00",3(VI$))VI$;",V0"61000$@216,0:X(222)2JX610008TN ADD A VOLUME^ID02080"DO YOU WANT TO ASSIGN EACH SECONDARY":"VOLUME I.D. FOR THIS RUN? (Y/N)"A$A$"Y"ID2:2090:"O.K., I WILL ASSIGN THEM BEGINNING WITH":"00,20000,20200,20300,8000D:"SLOT # (0 IS SCREEN): ";SLOT:1200W DELETE FILE{"FILE NAME? ";FL$:FL$""1000"TO DELETE '";FL$;"'""ENTER ' Y'; ELSE RETURN"A$A$(25)1000"1600,D$"DELETE ";FL$E A FILE WITH MEMORY",24:1:"OPTION?";COP$:OP$"0"1000c(OP$)0ĺ(8):912:1200tOP(OP$)64OP1OP241200OP1500,2000,3000,4000,5000,6000,6500,9000,7000,9500,7500,11000,1240,12000,12200,12400,12600,12700,4020,128" PRINTER SLOT"51::"N";::" DELETE A NAME"V1::"O";::" ADD A NAME"1::"P";::" DELETE FREE SECTORS FROM FILE"1::"Q";::" CHANGE FILE IN MEMORY"1::"R";::" LIST FILE BY SECONDARY ID"1::"S";::" MERG:"X";::" EXIT"=j1::"G";::" SORT BY SECONDARY ID"`t1::"H";::" SORT BY TYPE"~1::"I";::" SAVE FILE"1::"J";::" FIND PROGRAM NAME"1::"K";::" CHECK FILE LENGTH"1::"L";::" CATALOG"1::"M";::U";::" HELP!!!"p B1::"C";::" DELETE A VOLUME";:22::"V";::" DELETE VOLUME IN";:22:" MEMORY"; L1::"D";::" LIST A FILE": V1::"E";::" SORT BY NAME";:22::"W";::" INIT FILE"`1::"F";::" SORT BY VOLUME";:22: ("DF$"K)" |1501 37894: LOOK FOR MORE: 150C 390K : 13:"-----------":2:13:"! THE CAT !":3:13:"-----------" .1::"A";::" DELETE A FILE";:22::"T";::" CLEAR MEMORY" 81::"B";::" ADD A VOLUME";:22::"GRAM NAMES IN NA$(XX). J37891: 1ST SECTOR] TV$((26)):(V$)3V$("00",3(V$))V$ ^:NN1::"ADDING VOLUME ";V$ hFS%(29)(30)256:FS$(FS%):DF$(FS%4):(FS$)3FS$(" ",3(FS$))FS$ rNA$(N)V$VI$" FREE SECTORS = "FS$"NA$(N)" I "+ TY2NA$(N)NA$(N)" A "I TY4NA$(N)NA$(N)" B "h TY16NA$(N)NA$(N)" R " L(TN$)3:I1L3 (TN$,I,3)" "NA$(N)NA$(N)(TN$,I1):300 I "NA$(N)NA$(N)(TN$,29) , 6 READ CATALOG & PUT @ PROT2,A$90D0" n378882 x(28)1ĺ"TN$ ERROR":A NA$(1200)K 1000[ MOVE NAMEl (28)0190 (28)255ġ: :"DISK ERROR":: NN1 NA$(N)V$VI$ TY(27):TY5TYTY128 TY0NA$(N)NA$(N)" T " TY1NA$(N)* THE 'CAT'# BY ART COHL037072:w(1013,76:1014,208:1015,144: SET UP '&' HOOK. $3F5:JMP $90D02 TN$ MUST BE 1ST VAR & LENGTH 30<TN$"APPLESOFT WORKSHOP V 1.1 "FD$(4)PN1ZD$"NOMONC,I,O" dD$"BLOAD CA" " " """""""""               ,,`àìİ:936:< "APPLE MUG -- 3.3 NEW MEMBER DEMO DISK ":3:s WM NORRIS - APPLE SAC 6502 MACH CODE FOLLOWS:8H i`iɀi@ h``,,(~ L ,,XpPePP`UM D (p CM$"LOAD" P(P):PC130, PC180: P0150R 190:N$"PAGE"120Z 50 AD(A(P)256):CA,A(P)(AD256):CH,AD:CL,30::936:(A(P)6)194170 D$;CM$;C$: D$;"B";CM$;C$: :936:D$"CATALOG": 32,0:33,40:34,2