' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]浍국絍뵍䵺L 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>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,&"_]` L/  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( H Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` L0İ3610 JF K(0)0Ĺ36,K(3I1):HC:GTGTHC:HC0:3540L Y T93540c* 5310o4 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$H L$"Y"E1:3720R :"MORE REPORTS USING THE "RN$(NN)" FORM LL0LLL:1240 I PF5230,5250,5280:3610:Z$N$(R(1),S):RR0\ J1NR:YR(J)m N$(Y,0)(J)~ Q$"@"3320 (N$(Y,S),(Q$))Q$3330 X$"@"3320 (N$(Y,X),(X$))X$3330 3435:Z$N$(Y,S) PF1ĭL18İ2060:3610 S$)b (S$)0Q$"@":3230Wl :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3200v :"ENTER # OF 'AND' HEADER ";X$:X(X$) :"@ WILL SELECT ALL RECORDS." :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$: L$"Y"ĺ"AND "H$(X)"= ";:"";X$K(0)0:T91:3143LD K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3120G "DO YOU WANT A SUMMARY REPORT?";S$:S$"Y"K(0)2K LL0:"DO YOU WANT THIS REPORT SORTED? ";S$:S$"Y"LL1:K(I2)1N X "SELECT RECORDS BY WHICH HEADER # ";S$:S(K(I)(K$)# K(I)0K(I)NH3040Y "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$)w K(I1)0K(I1)2553060 "TOTAL ON "H$(K(I))" (Y/N) ";:L$ L$"Y"K(I2)1:K(0)1 I& K(0)131470 "ENTER TAB FOR TOTAL: ";A$: (A$)00 I03NH3:K(I)0:I= I0NH:AC(I)0:I:HC0:GT0I E3150S 3940 :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13010 E0RN$(NN)"PRESENT" I1RH33  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";K$:RPTFMTNAMEFILE". D$"DELETE"DB$" INDEXFILE"N" D$"DELETE"DB$" HEADERFILE"Y, DB$""q6 F$"BASENAME":4110@ NR1ĺD$"DELETE BASENAMEFILE":4810J ISNR1T R$(I)R$(I1)^ Ih NRNR1:4280r 2470| ***REPORT*** T90 :E? (Y/N) ";:"";S$# S$"Y"2470S :12:11::(91);" DELETING DATABASE ]":^ 2830l DB$R$(S) F$"RPTFMTNAME" 4110 D$;"DELETE"DB$" "F$"FILE" I1NR D$;"DELETE"DB$" "R$(I)" RPTFMTFILE" I 1013:D$"DELETE"DB$" [Ġ٠٠)Ua(ϠŠҠǮŠϠحԠϠŠҠӠ)Ma(ՠ̠ŠĠȠ̠ŠΠӠӠΠ)\[Jd2e?oP a(Ԡ٠٠ҠԠ)d2eM6M6ҠέŠĠӠԠΠԠҠƠ)GUa(̠ҠҠҠ͠Π­٠ŠŬՠ̠ĠϠ)9a(٠ӠϠƠŠ­Ԡɮ)cVa(ŠϠԠӠΠƠŠԠӠ)GUa(ӠĠŮ٠Ǡ̠Ӡՠ̠ĠԠȠ)Xa(נӠŠŠҬǭŬӠĠĠ͠Š)G*a(ȠˠԠՠŠ)cXa(ŬҬԠƠҠa(ӠŠ٠ӬΠՠԠŠҠӠԮ)\a(ŠҠҠ͠ӠŬŠŠӠՠ̠ŠŠϠŮ)\Xa(ՠ̠נŠĠϠŠՠҠŠԠɬȠSfa(ҠŠĠŢŠŠŠҠƠӠĠ)Xpa(ȠƠŠҠӮҠźŠ͠ȠҠӠĠí)GRza(ӬŠ̠ĠŠҠĠŠӮƠҠ)T)@Ha(ҠԠŠРƠŠήŠΠԢ)\vRa(נԠРҠӮҠҠΠŠϮΠŠŢΠӠĢ)F\a(Π͢ԠΠΠĠҠΠ)cԠ̠ӠŠԠŠŢԠӠԮ)cQ*a(Šˠ̠Π٠ҠԠŬΠ̠),4a(ĬǠȠԠŢ)cQ>a(ՠ٠נΠŠԠɮŠҠנŠŢ168,104,166,223,154,72,152,72,96..nD$"PR#1":.x" K":H.D$"PR#1"V." K 80N"\.j.D$"PR#1"y." K 132N"..PF0ı.D$"PR#0".CR OPTIONS:"-"1 40 COLUMNS"3-"2 80 COLUMNS"H-"3 132 COLUMNS"f- :"WHICH ";PF$:PF(PF$)z-PF1PF35130-4810-(PF0:4810-2"MAXFILES3":-<*** APPLESOFT ONERR CORRECTION-FI10131022:PP:I,PP:I-PI0-Z .d104,DS",t"5 REPORT"#,~"6 SORT"=,"7 TURN ON PRINTER"X,"8 TURN OFF PRINTER"s,"9 LIST ALL RECORDS","10 QUIT",,"WHICH ";S$:S(S$),S1S104810,S1050,1780,1620,2340,2940,1415,5080,5160,4500,5170, -"PRINTENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS"D+$s+.PF1ĺ"THE PRINTER IS ";::"ON"::4930+8"THE PRINTER IS OFF"+B+L"1 SELECT DATA BASE"+V"2 SEARCH AND/OR CHANGE DATA"+`"3 ENTER RECORDS",j"4 DELETE RECOR*A$(13)ı*I$I$A$'*4750>**** MAIN MENU ***H*4840R*1013X**"******* DATA BASE MANAGEMENT II ******"*:" APPLE COMPUTER INC"*" MODIFIED BY GARY A. FOOTE"*"CURRENT DATA BASE: "DB$:>+"CURRE53103)>"PRESS RETURN TO CONTINUE, ESC FOR MENU";;)@L$N)B(L$)274810a)D(L$)134680k)F4672u)H:L0)RPF5230,5250,5280)\4620)f)p *** INPUT ROUTINES ***)zI$"")COMMA$"NO"Ą"";I$:)A$)A$(3)ij*A$;S:( *** LIST ***(L0$(7(J1NR:YR(J)N(PF5230,5250,5280i(" "H$(0)": ";J:LL1u(I1NH(I" "H$(I)": "N$(Y,I)(LL1(I(:LL1(LNH204660( J(5310( "HIT RETURN FOR MENU...";L$(*4810)4$" "F$"FILE"'NR 'J1NR-'FF43908'YR(J)D'I1NHQ'N$(Y,I)X'Ib'4400m'&R$(J)t'0J':D$"CLOSE"'DFF0'N'X*** SAVE REPORTNAMEFILE ***'bNRNN'lF$"RPTFMTNAME"'vI1NR:R$(I)RN$(I):I'4280(NRNREAD"DB$" "F$"FILE"&6NR'&@J1NR4&JFF4230@&TI1NHJ&^4720Y&hN$(J,I)I$`&rIk&wR(J)Ju&|4240&R$(J)&J&D$"CLOSE"&FF0&&*** SAVE FILES ***&F$"INDEX"FF1&D$"OPEN"DB$" "F$"FILE" 'D$"WRITE"DBRN$(S)R$(S):E1:NRNS:3810&%4100T%1013::"NO REPORT FORMATS ON DISK...":]%NN1%"DO YOU WANT TO CREATE ONE (Y/N) ?";L$:L$"Y"4810%3880:NRNS:3010%*** READ FILES ***%F$"INDEX"FF1%"D$"OPEN"DB$" "F$"FILE"&,D$"**&$nNN0:I021:RN$(I)"":I:NSNR:$xF$"RPTFMTNAME"E$4070O$4110k$I1NR:RN$(I)R$(I):I$:"SELECT FROM:":$I1NR:I" "R$(I):I:$I" CREATE A NEW REPORT FORMAT":$"WHICH ";S$:S(S$):S1SI4030$NNS%SIRH(NR3)3:I1NR:K(I)(R$(I)):IG# K(0)(R$(I3)):LL(R$(I1))Q#NRNSc#3880::3160y#(*** SUB MENU ***#2:"SELECT FROM:":#<MF0ĺ"0 "H$(0)#FI1NH:I" "H$(I):I:#PMF0#Z$d*** READ REPORTNAMEFILE & SELECT REPORT *FMTFILE ***"NSNRD":"ENTER THE REPORT FORMAT NAME ";RN$(NN)]"F$RN$(NN)" RPTFMT"k"NR3RH3"I1NR:R$(I)(K(I)):I"R$(I3)(K(0))"4280:4440""*** SET-UP TO READ RPTFMTFILE ***"F$RN$(NN)" RPTFMT""4110%#RN$(NN)" REPORT FOR "H$(S)":"Q$;1!.X$"@"3650N!8" AND "H$(X)":"X$:3660W!B" "c!LI1RH!V36,K(3I1):H$(K(3I2));![K(3I)XK(3I1)!`I!jK(0)0ĭXK(3I1)Ĺ36,K(3I1):"TOTAL";!t:!~L4: "*** SET-UP TO SAVE RPT2)); I RR1* K(0)2LL1:0 < N3I2f V(N$(Y,K(N))):AC(I)AC(I)V:HCHCVl :I139((PF1)39):"-";:I: I1RH AC(I)03580 36,K(3I1):AC(I); I GT0Ĺ36,K(3I1):GT; :  !$AT":"(Y/N) ";L$,\ L$"Y"İ3880:E1:29806f 4810k K(0)0ĭN$(Y,S)Z$Ĺ36,K(3I1):HC:GTGTHC:HC0:RR0:LL1:L18İ2060:3610m RR0ĭK(0)1ĺp I1RHu K(3I)İ3510:K(0)23470w K(0)2ĭRR03470 z 36,K(3I1):N$(Y,K(3Iz #              ŠˠǠŠԠɠ(˭ŠȠ ښР      6 ˠРˠРĠǠů̠Š٠ ؠҠԠԠà ٠ˠ) +\a@Mcd"e[ja@a(ˠӠ٠)a(Š̠ƠŠ)a(ŠŠ٠Ġ)[Ġ)[٠Ġ)[٠Ġ)[()GP(a()G'Pa()Pa()`'MccP a()P a(РҠŠӠŠΠԠӠ)P a()'MUVWY[@*q6N@"rC@"r@p()8+d ecMa@a(Ԡ)Pa(РՠҠɠ)Wj'Pa(РǠϠ )Pa(̠ŠǠҠ)Ot'Pa(ŠԠҠ)Pa(ӠҠ);~'Pa(Ϡ͠٠)Paa()GP!a()?8'a()GPa()GP a()GPa()GPa()GP!a()@B'a()GPa()GPa()GP a()GPa()GPa()GAL'Pa()GPa()GPa()GP!a()GP'a() V'McR`'a(РР̠q6?q6q6q6|MKMJ'oPa()GP a()GPa()GPa()GP!a()U$'a()GPa()GP a()GP a()GPa()GPa()GPa()GP!a()@.'a()GP a()GPa()GPˠ)\@@p(Ġ)\"J@p(ů̠Š)\T@p(ؠҠ)\^@p(Ԡ)\!h@p(Šˠ)\r@p(ŠԠ)\|@p(˭)\@p()\\c\_8'ӱ$`$#deqq6w_q`$@p()[?wKMo P8;@rra(Ǻ)E@a()E@E@E@(deqq6M[qxqqq6 @p(),@p(ˠ)\6@p(ӝ3dN@" ra(άɬϬ)KM6d6?en\'KM\*_xqbE()E@[d ed%e[2Mcd ecoP a(Ԡ)Mgq.?6@r`$q@p()`%@p()`6     ҠˠϠŠŮ)cSJa(ՠŠנĠŠԠƠϠήԩҠ)@Ta(ՠŠŠ̠נŠĠΠŠ)c/^a(ϠŭҠˠЬŠϠ)\Pa(Πښ)Q̠٢נ)\PV,a(ŠӠƠŠҠϠŠԠ̠ĠӠŠΠ)V6a(ٮΠӠΠӠΠŬՠŠ٠ϠŠŠע)T@a(ĠϠŠŠĠӠƠŠŠҮƠԠӠ)Ua(ՠȠϠŠ٠Ӭՠ٠ϠϠȠŠŢҠԩͭ)Ra(ĮӠ̠ԠՠΠҠŠŠՠ٠ŠŠ)Sa(ӠĠΠϠŠˠРϭ͠ȠΠŠŠƠӠ)\PVa(ƠՠȠϠŠҠƠŬŠŠҢĠĠí)Ta(٠Π̩ŠˠĠҠՠȠĠϠŠҮά)Ta(ŠŠ̢ĠϠŠŠέӠӠŠ٠Ơŭ)Uxa(ǠϠ٠ҠƠҠˬՠϠŠŠ٠)cd2e?!P a()d2ecRa(ĠŠԠƠ٬٠ӠΠŠŮŠŠ);a(ҠŠΠF_Z@Pod2e?a(ԠΠϠ)d2eR@M6[-ZM6d2e?P a()cd2eVda(ˠРӠΠԠ٠Ԡ٠ŠĠϠҠĠӠ)Qna(Š٠ҠŮ)a(ŠԠ     SECTOR IS BASEDON THE BIT MAP OR VTOC IN TRACK 17,SECTOR 0.WARNING: READ ERRORS CAN BE EXPECTEDON TRACK 2, SECTORS 11 AND 12. PRESS ESC TO STOP. TO RESTART, TYPE: CALL 2048`HH` `ȑ`LMȑ`, ,ɛȑ  L APPLE DOS SECTOR USE MAP LAWRENCE HALL OF SCIENCETHE FOLLOWING MAP DISPLAYS 13 SECTORS(VERTICAL AXIS) IN EACH OF THE 35TRACKS (HORIZONTAL AXIS).THE STATUS OF EACH R  FREE SECTORS (effff  K)$ VOLUME=    i8ȱ 8& #  di i    Lg #Н,,, 9 XLhh L    X I INSERT DISKETTE, PRESS RETURN,,,ɍ #  READ ERROR IN VTOCL8 Đ @ DOS 4 6 8 0 2 4 D 0 2 4 6 8 0 2 4 (DARK BLUE=USED) I (WHITE=ERROR) (BLUE=UNUSED)    (READ ERROR) `  婬   ݍ`  JJJJ )LLL, ,ɛLc $ 0  `$ 0 PT LEN START BLEN NAME Lȑ     `ȑ`  .ɀA (DRIVE ERROR) ` (WRITE PROTECTED) ` (VOLUME MISMATCH) `ɠ$ 08 i ɠ $ 0 @  #L  L %(!"L,,,`hh L HH`, PRESS RETURN TO CONTINUE% s ɍ ` `$1     L )0 |  IN SUB DIRECTORY   LL  LȱL L LȱL |  L  BAD POINTER L  |  IN DATA SECTOR   LL  L LȱL LȱL eiĐ$ 0 X"L4 TURN ON PRINTER !! VOLUME=  FREE SECTORS=  (effff  K)0 $ F  |  IN DIRECTORY   LL LMȑ eLc LL ȱȱ = FILE NAME ( = ABBREVIATED) PRESS "ESC" TO STOP TO RESTART, TYPE: CALL 2048 DECIMAL OR HEX BASE? s ע CRT OR PRINTER? s ᢀ      IN VTOC Lc 8 5L[   X IMPROVED CATALOG LAWRENCE HALL 0F SCIENCEABBREVIATIONS USED: P = PROTECTION T = TYPE (EG: A=APPLESOFT) LEN = SECTORS USED ON DISKSTART = BINARY STARTING ADDRESS BLEN = ACTUAL BINARY LENGTH NAME     RU 12 MAYGENERATE READ ERRORS AND WILL NOTBE COUNTED.TO RESTART, TYPE: CALL 2048` `` , DISKETTE COPY ROUTINE LAWRENCE HALL 0F SCIENCEUSING READ-WRITE-TRACK-SECTOR (RWTS)OF APPLE DOS AND EITHER:1. SINGLE DRIVE2. DUAL DRIVE, SINGLE CONTROLLER3. DUAL DRIVE, DUAL CONTROLLERWARNING: DISK ERRORS:TRACK 2, SECTORS 9 TH Lj ` ȑL+  ȑ ` ɀ   , ERROR (  0ɀD , DRIVE ERROR)L , WRITE PROTECTED)L , VOLUME MISMATCH)L , READ ERROR) , ABORT? L L$ , SLOT=   )  [$ , DRIVE=   )Յ`ȑ` W  i8ȱ 8 &d [ , TRACK= , SECTOR=   C =?C<>B< , i #ȑ"L,,,` 0  ɍ` Xhh L4 HH`, , PRESS RETURN TO CONTINUE ɍ ` [$ , VOLUME=L X$0! L ) INSERT MASTER DISKETTE` X$0 , INSERT COPY DISKETTE M LX , DISKETTE:  [O. OF COPY DISKETTE jɍ) e e x  ) INITIALIZING   i L   , READING  c  $ , WRITING  c #а  [ , DISKETTE COPIED.  , ERRORS.ȥ  " X [ , SECTORS/LOAD= $ , AND COPY (BLANK) DISKETTE M    i L  x W X , DO YOU WANT TO INITIALIZE COPYDISKETTE? 3 ȑ  i L  x Lc ) VOLUME N[7 `L  ȑ3L n X , SHALL I USE AND HENCE OVERWRITERAM MEMORY USED BY APPLE DOS?  ` e8/ ) MASTERJJJJȱ JJJJ , COPY      L BE CORRECT RIGHT AFTERRUNNING THIS PROGRAM BUT THE DOS (DUMB OPERATING SYSTEM) WILL PROBABLYMESS THINGS UP AGAIN. SO IT GOES. HIT ANY KEY TO CONTINUE. ` HH`M0Ȍ ` 9 X O O $ 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 WIL O O  ERROR(S) WERE FOUND AND CORRECTED.hhhL  ,0 T M`L O K !H K K  !h K -`ɠ)? ` L`HHhLhh L LHH LMȑ ȑ  2H?2  -h2hh` L#ȱL M  i#` LȱLе # HHH m =     .ɀA z (DRIVE ERROR) ` z (WRITE PROTECTED) ` z (VOLUME MISMATCH) ` z (READ ERROR) ` z  婬   z ݍL ߿߿,8 Đ z FREE SPACE=   z SECTORS`  婬   i8ȱx 5` Xhh L HH`Hȑh z IN VTOChhLV  ȑȑ   ` IN SUB-DIRECTORYLV LȱL 9 LЯ #eL^ 8Q Đ=8 z OPERATION COMPLETE.  z ERRORS CORRECTED.L z NO ERRORS DETECTEDL z OPERATION ABORTED.VTOC NOT RECONSTRUCTED.Lȩ ȱ'z0ȱ4#ȩ ȩDȩ|ȑ LMȑ   z IN DIRECTORYLV , ,ɛL LL> L6 eiLɠL ɠ @ LȱL z ( < z )  z RUCT VTOC USES THEFILE DIRECTORY TO REBUILD VTOC. PRESS "ESC" TO STOP TO RESTART, TYPE: CALL 2048 z PLACE OBJECT DISKETTE INTO THIS DRIVE AND PRESS RETURN.,,,ɍ w READING CURRENT VTOC ȩLl   w RECONSTRUCT VTOC LAWRENCE HALL OF SCIENCE VTOC OR VOLUME TABLE OF CONTENTSMAPS ALL 455 SECTORS ON AN APPLEDISKETTE. VTOC CAN BECOME MUTATEDAND INCORRECTLY MAP USED VS. UNUSEDSECTORS. RECONST     Ǡ)GQa(ΠĮ)\a(ՠŠנ٠ϠŠŠԭǠŮ)GH a(ԠŠŠٮ)ca(ՠ̠ŠĠϠԠע)Sa(ҠŢĠȠעӠŮϠĠ̠Ӭ)@ a(ҠΠŠΠ);a(Ġՠ̠ŠĠϠԠΠҠŮ)c`a(ŠǠΠՠ٠ԠҠΠŠԠŠҠƠ)cXa(נԠӠĠ̠̠ӠȠՠȠϠŠĠŠǠӠ)d2ec)a(Šˠ͠Ů)c[a(ԠŠՠȠϠ)Ga(ҠŠȠŠԠɠͮ)cVa(ԠήŠŠǠˠϮ̠q-r\d@p@*#rq-r]ԠŠNUVW-rX&\d!X]Ԡ̬ŬŬŠ1ba@a@*#ra@*#ra@*#;@rr lYYva@E(Š)E@a(Ň)d"eQ\d6?eM6d2e?a((UVW;@rq <@*#rrY&a@E(Š)E@E(Ұ°)b*a@E(Š)E@a@E(Ġ)E@Ka(ǠŠΠ̠Š)bXE(Ũө)&a@E(Š)E@0`@9()%b:UVW-r;DŠנǠ)a(ŢϠĠϠΠǠ):S()&@`@9()$`@9()$`@9()$_*a@E(Π)E@E(ְ)`@9()%_3]ƠŬŠĠԠΠԠ(a@E(Ġ)E@E(Ұ°)R@qӠנΠ*]ŠǠŠĠŠΠbd6?eq8--rr-r-rr&]ŠҠƠĠӠNd"e M6a(ԠˠŠǠŠ)a(ŠĠҺ)Va(עϠ)1|a@E(ң)a@E(Σ)]ΠƠԠE-rq-r--rrq.?r.?r`;@r$.UVWd--rr e<@*#rrYJ`--rr$"d2ea(٠̇)d2eUVWY]̠())6q.?6@r`$6`$R@2@o.?%rPa(Ǡˠ)F-rJ]ΠΠԠT_h8^dedede(de]ҠӠ;hd6ed7ed8e(d9eM]ҠӠra@E(ԠŠ)@a(ԠΠϠ)a(ԠâϠŠǠ)q"cd"ed2e?ca(ԠҠΠ̠ԠŠ)E(ҠƠĠΠԠΠϠ)GA,a(ǠҠàϠŠǠŠ)Gd2e@p)\M6a@E(Πìɬ)Fdede-rqde.?6rde.?7rq B]ŠȠǠ٠Π٬ǠԠMo a(ԠȠˠΠ)a(Ҡ̠̭ŠN@"rq_K@B;@rrp(Ÿ)UVW;@rde<@*rrYdHe[z@p(ù°ðù°ù°ŶİŶ)\M6;@p(`.?6@r%\d6?eKqq.?Jr.?KrN@"(rD42rC@"r@p()]Ĥ̭5q`.?r%q.?r.?rq)N@"r@p(Ԡ)F]Ԡ͠ϠŠǠϠ٬̠͠ nM6>xcP a(Šˠ)cP a(٠٠)Xca(ӠĠǠҠ)a(ӠԠΠŠĠ٠Š)Ca(͠͠ŠŠˮ)ca(ӠٯΩ)0`.?6@r$! ]!]ŠˠǠ!]٠٠Š!(]Ҡà!2]<_n]dUVW$de.?r`.?r%qYde[]Ġ          E A DATA BASE ***5n :"DELETE WHICH : ";S$:S(S$)`x S1SJ1ĺ(7);:(37)1:868:2670 :(9):"READY TO DELETE "(34);R$(S);(34);".": "ONCE DELETED, THIS DATA CANNOT BE" "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE ITSE"  " "WHICH ";S$:S(S$)2 SJ12660Y S1SJĺ(7);:(37):868:2540g DB$R$(S)v SJ1140| ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DB$R$(J1):1140d *** DELET :"RECORD NUMBER "DR" DELETED!":9 "MORE (Y/N) ";L$J L$"Y"2360e F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATA BA "H$(0)": ";JI1NH4I" "H$(I)": "N$(Y,I);IAN LLNH2X 5310^ x$ ***DELETE RECORDS***~. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1V R(J)R(J1)t J:NRNR1#~R"";S$:S(S$)&\S1SNH2130,fIp"FROM "H$(S)": "N$(Y,S)Ozp"TO "H$(S)": ";:"";N$(Y,S)|:2240" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810***PRINT A RECORD***PF5230,5250", ESC FOR MENU";L$+(L$)274810?(L$)132064KL0::b ***CHANGE DATA****" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$):YR(J)>:2240H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";2060 J("THAT'S ALL OF THEM. ";<"NOW YOU MAY:"V"1 DO MORE SEARCHES"l"2 MAKE CHANGES""3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF02070:"PRESS RETURN TO CONTINUEMAY"::I" MAKE CHANGES""D;N"WHICH ";S$:S(S$)PXS0SNH11870abSNH12080glv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NR:YR(J)N$(Y,0)(J)(N$(Y,S),(Q$))Q$İ2240LNH20İ(NR,I)I$)I$"/"N$(NR,I)N$(NR1,I)0I6L"MORE (Y/N) ";L$]L$"N"1750g1640vF$"INDEX"42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"&38800:"OR YOU RAGE RECORD SIZE ";R$(NR):(R$(NR))0R$(NR)(NR1)10G J4280:1160` T***ENTER RECORDS***f ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1:R(NR)NR "YOU ARE ENTERING RECORD # "NR  I1NH H$(I)":";:4720:N$LY" " "WHICH ";L$:L(L$)7 :"SORTING ";:\ 1013:*** CREATE HEADERFILE ***e NR1 :"PRESS 'RETURN' TO EXIT TO MENU"  "HEADER FOR COLUMN NUMBER "NR": ";:"";R$(NR) "R$(NR)""NR201600 ,NRNR1 615607 @"AVEWANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"Y/N) ?";L$:L$"Y"F$"INDEX":4280k 4810z MF1:3880 "ENTER # OF FIELD FOR SORT ";S$:S(S$):S1SNH1450 :"DO YOU WANT TO SORT:": "1 ALPHABETICALLY" "2 NUMERICALNM:J1:"SORTING ";:M0ĺ"DONE":- IJp LLIM:I2R(I):L2R(LL):L1290:(N$(I2,S))(N$(L2,S))1300z 1295 N$(I2,S)N$(L2,S)1300 YR(I):R(I)R(LL):R(LL)Y:IIM:I11270 JJ1:JK1250 1260 1440:1240a "":"ME":2610 `4110 j24705 tF$"HEADER":1520? ~4110Z I1NR:H$(I)R$(I):It NHNR1:NR0:MEM(0) B(MEM(3NH(H$(NH1)))) N$(B,NH),R(B) F$"INDEX":4830 4110 4810 *** SORT *** NNR:MN% M(M2):KР& 216,00MODIFIED BY GARY FOOTE 5/16/79B"MAXFILES1"UD$"":CTRL DjD$"NOMON,I,O,C"r:|5180$R$(65),AC(21),K(65),H$(21),RN$(21).Z$(21)8COMMA$"NO"BD$"":CTRL DLH$(0)"REC#" VDB$"":F$"BASENA          #rr$&Y0qq#:qqqD@Brp@*#rNq`$:Xq`%qoba@GPbG%lPUVWX6a@*#rGY vc_#<@*#rr<@*rr<@*rr<@*rr<@*rr$_KQ1qqUVW;@rq<@*#rr<()r` %q`$&(q@Brp@*#rq,!`;@r<@*)cad2e?a(͠Š)FGPa(Š)GPa(ϠŠ)Fd2ecq.?%rd"e,d"eoS(ҠҠ)&@@p())`@9()$`@9()$`@9()$2` ;@r<@*#rr$_o`<@*#rr@"(rC@"rC@"$rC@"(rM6/@p()QM6oS(ҠԠŠ)'qoS(ҠԠŠ)'*`$$$3KM6a(ŠϠԻҠנ[d]ˠŢ٠ΠӠĠ̠NJ_n]Ӡ͠ӠͭӠ͠٠ŠϠ٠ҠŬŠϠ>x]κӠԠŠҠԊ/N    ` `L  L ` `BEGINNING ADDRESS: ENDING ADDRESS: SEARCH BYTES: ASCII OR HEX SEARCH? ASCII BYTES:  XZ  L L >?n  L L <= . L L7 S  L LG ɍL LT S   L LyH h? ȥ> ȥ߄ S  Li u S ` ɍ