' +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*` 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$" 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İ168,104,166,223,154,72,152,72,96..nD$"PR#1"4.xB.D$"PR#1"[." 80N": CTRL-I 80Na.o.D$"PR#1"." 132N": CTRL-I 132N..PF0ı.D$"PR#0".R 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(3IATLhL) @JJJ @+`>Lh @A H@Ah@A $ /`A $ /`Ah@A $ /`A $ /`L LhL) @JJJ @+`>Lh @A H@Ah@A $ /`@HHHH stȑ ȑ    -?? hhh`B6 L LiB?CL <@=A @B`>L R EDIT MODE"::" Q -- QUIT PROGRAM"::" L -- LIST SECTOR TO SCREEN"P#:" P -- LIST SECTOR TO PRINTER"::" C -- CATALOG"Z#:" + -- INCREMENT AND READ NEXT SECTOR"::" - -- DECREMENT AND READ PREV SECTOR"::n#n#ArTRACK0ı6J:"NO SECTOR HAS BEEN READ IN YET!"GT:I0900:R^:130c(# * MENU * v2#PĺD$" PR# 0"<#::2::" DISK ZAP "::IF#" R -- READ A SECTOR FROM THE DISK"::" W -- WRITE A SECTOR TO THE DISK"::" E -- ENTER SECTO1)(H$,L%,1):HEX$;:/X GET TRACK/SECTOR Zb:"WHICH TRACK AND SECTOR ";TRACK,SECwlTRACK0TRACK347040v:"BAD TRACK! TRY AGAIN...":7070SEC0SEC167060:"BAD SECTOR! TRY AGAIN...":7070I1900::7000 @3060 D$"PR#"PR 2000. * QUIT * @::"BYE!":T * CATALOG * g:D$"CATALOG":10:"FREE SECTORS = ";:FRSP:2100p * PRINT HEX BYTE * zH$"0123456789ABCDEF":H%BYTE161:L%BYTE16:LL%16:L%BYTEL1:HEX$(H$,H%,(16384)1282070" ST241-*P130Y4::"HIT ANY KEY TO RETURN TO MENU..."q>(16384)1282110H16368,0:130 * PRINTER *  ::8000 PPR:P3040 8:"ENTER PRINTER SLOT OR BINARY DRIVER CALL":P:PRP P7ČP:2:16:868:"TRACK = ";::TRACK;::" SECTOR = ";::SEC;:HY * LIST * g::8000uPĞ:10"TRACK ";TRACK;", SECTOR ";SEC::60,0:61,(116)62,255:63,(116):P2080 :"HIT SPACE BAR TO CONTROL LISTING..."H":"START AT $";p BYTE(116):6000:"00. WHEN FINISHED EDITING,":"TYPE A CONTROL Y TO RETURN TO LIST MODE"x : 1016,76:1017,35:1018,216:SET CTL Y VECTOR $:151 .PP0 82000  * UPDATE TRACK,SECTOR * TRACK01530B SECSEC1" TRACK34TRACK0+ 420A  * DECREMENT * f *SEC0TRACKTRACK1:SEC15:830t 4SECSEC1 >TRACK0TRACK34 H420  * EDIT * 8000::: "USE THE FULL CAPABILTIES OF THE":"MONITOR TO EDIT THE 256 BYTES WHIC SECTOR ";o (37):18:TRACK",";:30:SEC:" IS THAT WHAT YOU WANT ? ";::Q$ (Q$)560 Q$"Y"560 &7000 00,TRACK:1,SEC:2,2 :ST D130  * INCREMENT * SEC15TRACKTRACK1:SEC0:730 COMMAND!" JI0600::210.  * READ * 8 7000L 0,TRACK:1,SECU 2,1] STf 210x  * WRITE *  ::6:12::"CAUTION !"::::" A 'YES' RESPONSE TO THE NEXT QUESTION WILL CAUSE DATA TO BE WRITTEN TO DISK, TRACK SELECT * > 1500:34,22:22::958:"WHICH COMMAND? ";:Q$O (Q$)0210_ Q$"R"400o Q$"W"500 Q$"E"1000 Q$"L"P0:2000 Q$"P"3000 Q$"Q"4000 "Q$"C"5000 ,Q$"+"Q$";"700 6Q$"-"800 @"INVALID V DISK ZAP (C) COPYRIGHT 1979 BY ANDY HERTZFELD  MODIFIED FOR APPLESOFT & PRINTER BY DAVID B GARSON & VAL J GOLDING d * INITIALIZE * nTRACK10:D$(13)(4)xST5120:FRSP54279000 *      R$(I)RN$(I):I(4280%(NRNS:8( *** LIST ***@(L0F(Y(J1NR:YR(J)p(PF5230,5250,5280(" "H$(0)": ";J:LL1(I1NH(I" "H$(I)": "N$(Y,I)(LL1(I(:LL1(LNH204660( J(5310) "HIT RETUEN"DB$" "F$"FILE".'D$"WRITE"DB$" "F$"FILE"6'NRB'J1NRO'FF4390Z'YR(J)f'I1NHs'N$(Y,I)z'I'4400'&R$(J)'0J':D$"CLOSE"'DFF0'N'X*** SAVE REPORTNAMEFILE ***'bNRNN'lF$"RPTFMTNAME"(vI1NR:"D$"OPEN"DB$" "F$"FILE"5&,D$"READ"DB$" "F$"FILE"=&6NRI&@J1NRV&JFF4230b&TI1NHl&^4720{&hN$(J,I)I$&rI&wR(J)J&|4240&R$(J)&J&D$"CLOSE"&FF0&&*** SAVE FILES ***&F$"INDEX"FF1'D$"OP:S1SI4030%NNS>%SIRN$(S)R$(S):E1:NRNS:3810H%4100v%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 REPORTNAMEFILE & SELECT REPORT ***H$nNN0:I021:RN$(I)"":I:NSNR\$xF$"RPTFMTNAME"g$4070q$4110$I1NR:RN$(I)R$(I):I$:"SELECT FROM:":$I1NR:I" "R$(I):I:$I" CREATE A NEW REPORT FORMAT":%"WHICH ";S$:S(S$)F$RN$(NN)" RPTFMT"#4110G#RH(NR3)3:I1NR:K(I)(R$(I)):Ii# K(0)(R$(I3)):LL(R$(I1))s#NRNS#3880::3160#(*** SUB MENU ***#2:"SELECT FROM:":#<MF0ĺ"0 "H$(0)#FI1NH:I" "H$(I):I:#PMF0#Z$$d*** REAL4:-"*** SET-UP TO SAVE RPTFMTFILE ***7"NSNRf":"ENTER THE REPORT FORMAT NAME ";RN$(NN)"F$RN$(NN)" RPTFMT""NR3RH3"I1NR:R$(I)(K(I)):I"R$(I3)(K(0))"4280:4440""*** SET-UP TO READ RPTFMTFILE ***#,K(3I1):GT;!:!B!$RN$(NN)" REPORT FOR "H$(S)":"Q$;S!.X$"@"3650p!8" AND "H$(X)":"X$:3660y!B" "!LI1RH!V36,K(3I1):H$(K(3I2));![K(3I)XK(3I1)!`I!jK(0)0ĭXK(3I1)Ĺ36,K(3I1):"TOTAL";!t:"~3470' z 36,K(3I1):N$(Y,K(3I2));. I7 RR1L K(0)2LL1:R ^ N3I2 V(N$(Y,K(N))):AC(I)AC(I)V:HCHCV :I139((PF1)39):"-";:I: I1RH AC(I)03580 36,K(3I1):AC(I); I!GT0Ĺ36E REPORTS USING THE "RN$(NN)" FORMAT":"(Y/N) ";L$N\ L$"Y"İ3880:E1:2980Xf 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)23470 w K(0)2ĭRR0Y,S)  PF1ĭL18İ2060:3610/ L0İ36106 Jh K(0)0Ĺ36,K(3I1):HC:GTGTHC:HC0:3540n { T93540* 53104 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$H L$"Y"E1:37202R :"MORL$"Y"ĺ"AND "H$(X)"= ";:"";X$5 LL0LLL:1240; k PF5230,5250,5280:3610:Z$N$(R(1),S):RR0~ J1NR:YR(J) N$(Y,0)(J) Q$"@"3320 (N$(Y,S),(Q$))Q$3330 X$"@"3320 (N$(Y,X),(X$))X$3330 3435:Z$N$(ECORDS BY WHICH HEADER # ";S$:S(S$)?b (S$)0Q$"@":3230yl :"'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$: R TAB FOR TOTAL: ";A$4: (A$)0K(0)0:T91:3143nD 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 R":"POSITION #"(I2)3" ";:"";K$:K(I)(K$)E K(I)0K(I)NH3040{ "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$) 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 "ENTE| ***REPORT*** T90$ :E0> I03NH3:K(I)0:I_ I0NH:AC(I)0:I:HC0:GT0k E3150u 3940 :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13010 E0RN$(NN)"PRESENT" I1RH33, "ENTER # OF HEADER YOU WANT IN I1 1013:D$"DELETE"DB$" RPTFMTNAMEFILE"P D$"DELETE"DB$" INDEXFILE"p" D$"DELETE"DB$" HEADERFILE"{, DB$""6 F$"BASENAME":4110@ NR1ĺD$"DELETE BASENAMEFILE":4810J ISNR1T R$(I)R$(I1)^ Ih NRNR1:4280r 2470 THAT YOU"3 "WANT TO DELETE IT? (Y/N) ";:"";S$E S$"Y"2470u :12:11::(91);" DELETING DATABASE ]": 2830 DB$R$(S) F$"RPTFMTNAME" 4110 D$;"DELETE"DB$" "F$"FILE" I1NR D$;"DELETE"DB$" "R$(I)" RPTFMTFILE"$R$(J1):11403d *** DELETE A DATA BASE ***Wn :"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 SUREE"% J1ĺJ1" DELETE A DATA BASE"+ D "WHICH ";S$:S(S$)T SJ12660{ S1SJĺ(7);:(37):868:2540 DB$R$(S) SJ1140 ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DBV R(J)R(J1)t J:NRNR1E~ :"RECORD NUMBER "DR" DELETED!":[ "MORE (Y/N) ";L$l L$"Y"2360 F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASRECORD***PF5230,52500" "H$(0)": ";J<I1NHVI" "H$(I)": "N$(Y,I)]Icp LLNH2z 5310 $ ***DELETE RECORDS***. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1THE FIELD YOU WANT":"TO CHANGE ";5R"";S$:S(S$)H\S1SNH2130Nfkp"FROM "H$(S)": "N$(Y,S)qz"TO "H$(S)": ";:"";N$(Y,S):2240" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810 ***PRINT A 02:"PRESS RETURN TO CONTINUE, ESC FOR MENU";:L$M(L$)274810a(L$)132064mL0:: ***CHANGE DATA****" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$):YR(J)>:2240"H" ENTER THE NUMBER OF ,S),(Q$))Q$İ2240&LNH20İ2060-JJ"THAT'S ALL OF THEM. ";^"NOW YOU MAY:"x"1 DO MORE SEARCHES""2 MAKE CHANGES""3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF0207:"&3880(0:"OR YOU MAY":>:I" MAKE CHANGES"DD]N"WHICH ";S$:S(S$)rXS0SNH11870bSNH12080lv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NR:YR(J)N$(Y,0)(J)(N$(YI1NH+H$(I)":";:4720:N$(NR,I)I$KI$"/"N$(NR,I)N$(NR1,I)RIXn"MORE (Y/N) ";L$L$"N"17501640F$"INDEX"42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWINGRAGE RECORD SIZE: ";R$(NR)% D216,0N ER$(NR)""R$(NR)"10"R$(NR)NR10Y F216,0i J4280:1160 T***ENTER RECORDS*** ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1:R(NR)NR "YOU ARE ENTERING RECORD # "NR  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 61560 @"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          CLIF M HOWARD * D" * REF: CALL-APPLE III:6 * z" * * * * * * * * * * * * * "APPLE PUGET SOUND PROGRAM LIBRARY EXCHANGE. 304 MAIN AVE SO.  RENTON, WA. 98055 k 6B-16 Apple ][ DOS 3.3 Version Release date: 09.15.80 t" * * * * * * * * * * * * * " * TITLE: DISKPAK 6B-16 * " * MENU: VAL J GOLDING * " * D T F: MAY ENTER CALL 2051, FROM BASIC, OR 803G, FROM MONITOR, PROVIDING A PROGRAM IN BASIC HAS NOT BEEN RUN IN THE INTERIM"| + *+::"HIT ANY KEY FOR MENU"::32,0::18:25.756:4:958:0 >"A.P.P.L.E. Utility Diskpa255Ħl::O'5::"A.P.P.L.E. UTILITY DISKPAK 6B-16":::34,5:11000:*8:"ALL BINARY PROGRAMS ON THIS DISKETTE MAY BE BRUN FROM EITHER INTEGER OR APPLESOFT BASIC.......":u+"TO RUN THEM A SECOND OR SUBSEQUENT TIME YOU M Y G":16:"U";:40:"E";?H17:"N":18:"D"R:::10:" ":10:" P R E S E N T S ":10:" "\:34,23:I11200::::10000X(222)1ĺ"LANGUAGE NOT AVAILABLE":216,0:110b(222) "A P P L E":2:"P U R I X"*3:"P G O B C":4:"L E G R H"45:"E T R A A":14:"S A R N")>15:"O ";:33:" "G" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" ";:33:" ";:39:" ":Ol I15::(I64);::" "MENU$(I);:23::(I69);::" "MENU$(I5)" ":r | :: 1:2:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" T DISK CTLG":MENU$(08)"FILE CABINET II":MENU$(09)"PICK-A-BASE":MENU$(10)"SEARCH.L" 0USE SUFFIX .L FOR BLOAD PROGRAMS; USE .R FOR BRUN PROGRAMS : 2::" A.P.P.L.E. UTILITY DISKPAK 6B-16 SEPTEMBER 15, 1980 "::000:::110I A$" CTRL-C_EXITS SELECT_BY_LETTER":MENU$(10) :MENU$(01)"DISK ZAP":MENU$(02)"DISK MAP.L":MENU$(03)"IMPROVED CTLG.L":MENU$(04)"SGL/DUAL COPY.L":MENU$(05)"FIX SECTOR CNT.L"U :MENU$(06)"RECONSTRT VTOC.L":MENU$(07)"MUL:"LOADING "FILE$ IF MID$ (FILE$, LEN (FILE$) - 1,1) = "." AND RIGHT$ (FILE$,1) = "L" THEN PRINT D$"BLOAD"FILE$:BL = 1: GOTO 250 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$: D$"RUN"FILE$ :10:10:"LOADING "FILE$:BLĀ BL0:I11,(A$)1)(A$,1):22) (A$,1)" "Ğ7 (A$,1);U LL1:(A$,L)" "ĝ:170k (A$,L,1)" "Ğ (A$,L,1);::L(A$)120 190:150 X(16384):X127ı :16368,0:KEYX192:KEY18KEY1180 FILE$MENU$(KEY) :10:10 _105: d" * * * * * * * * * * * * * * * M E N U * * BY VAL J GOLDING - 2.80 * * * * * * * * * * * * * * * i2000:::500n1000:D$(13)(4)s7000 xL1:A$(A$,2     č͍ Í` d'ԍЍÍz # РŠ àŠ  !ˠЮɠ"ˠښЮɠ ՠŠ"ԠŠԠŠ РŠ  ȮԠȮ̠˭Š˭ŮɠԠˠǠԠˠÚǠ ŠԠɠ(        ,    ,        &    . :  32000 ˠЮ̠ˠښРˠРؠҠԮ̠ĠǮ̠ Ԡî̠̯̠ٮ̠   ... ..      6-16   = B = ɰ$0 $` d'ZONTAL 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 (HORISED) R  FREE SECTORS (effff  K)$  VOLUME=  ; J di i   i8ȱ8& G  di i  L #Н,,, / 9E  H / X m  INSERT DISKETTE, PRESS RETURN,,,ɍ G   READ ERROR IN VTOCL8 Đ @  DOS 4 6 8 0 2 4 D 0 2 4 6 8 0 2 4 (MAGENTA=USED) I (WHITE=ERROR) (GREEN=UNU    (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          ROGRAM WILL FIND 'DIRECT-ORY TITLE FORMATTING' IN THE JULY-AUG., 1980, CALL -APPLE OF INTEREST":h"TO RE-ENTER DISK ZAP, TYPE 'RUN'":80:"RUNDISK ZAP":ISKETTE.":f J:"YOU HAVE NOW REACHED THE POINT OF NO RETURN. (ALMOST). WHATEVER CHANGES "; T"YOU HAVE MADE WILL NOW BE INCORPORATED IN THE DISKETTE WHEN YOU ANSWER YES TO THE QUERY 'IS THAT THE ONE YOU WANT?' "::a^"USERS OF THIS P RELIST THE CONTENTS OF THE BUFFER TO DETERMINE THAT ALL DESIRED CHANGES HAVE BEEN MADE "; 6"CORRECTLY. WHEN THIS DETER- MINATION HAS BEEN MADE, YOU ARE READY TO USE THE 'W' "; @"COMMAND TO WRITE THE MODI- FIED CONTENTS OF THE BUFFER BACK TO THE D"YOU WISH TO MAKE ANY MODIFICATIONS, YOU MAY DO SO WITH THE 'E' (FOR EDIT) COM-" "MAND. THIS WILL PUT YOU IN MONITOR MODE WHERE YOU MAY MAKE THE DESIRED" "CHANGES AND RETURN TO THE DISK ZAP PRO- GRAM WITH A CONTROL 'Y'." 80Z ,"NOW"IF YOU WISH TO EXAMINE A SECTOR OF A DISKETTE, USE THE 'R' COMMAND AND SPEC-" "IFY (IN DECIMAL) THE TRACK AND SECTOR YOU WISH READ INTO THE BUFFER.": "THEN, USE THE 'L' COMMAND TO EXAMINE THECONTENTS OF THE BUFFER. IF AT THIS TIME";S RITE-"U x"ING TO ANY SECTOR OF YOUR DISK, YOU ALSO HAVE THE CAPABILITY OF"::o 13:"DESTROYING":: "BEYOND THE POINT OF RECOVERY, ANY FILES ON THE DISKETTE. THEREFORE WE URGE" "YOUR EXTREME CAUTION IN THE USE OF THIS UTILITY":80T  F90@P23:6::" HIT ANY KEY TO CONTINUE ";::756::]Z::14:" WARNING "::d"DISK ZAP IS AN EXCELLENT UTILITY THAT MAY BE USED TO RECOVER CRASHED DISKS OR" n"OTHERWISE MODIFY YOUR DISKETTE.":"BECAUSE IT HAS THE CAPABILITY OF W     $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 LHH TUȑ   2H?2  -h2hh` T#ȱT U  i#` TȱTеHHH $  n >      ԍɍ `)L­ LM`st`ɩw| wɰ$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 TOR  L  T L/ ȱ ȱ eiɠ$ 0!8i L{   ɠ $ 0 @ɀ@@ iL iH)`hIHh и #L  *L %(!" L,,DȑD eL  L% ȱȱ0 L@ )  T L@   IN SUB DIRECTORY  L  ȱ ȱ  ]  T L@   BAD POINTER L    IN DATA SECD DDD D   6  IN VTOC L 8 Đ$ 0 X"Lj !!  VOLUME=D / T  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     ORS. 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. UNUSEDSECT 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ȩ|ȑȑ       NGLE CONTROLLER3. DUAL DRIVE, DUAL CONTROLLERTO RESTART, TYPE: CALL 2051IJK``NERATE READ ERRORS AND WILL NOTBE COUNTED.TO RESTART, TYPE: CALL 2051IJK`G L L`ɩUZ Uɰ$0 $` d' 7 DISKETTE COPY ROUTINE LAWRENCE HALL OF SCIENCEUSING READ-WRITE-TRACK-SECTOR (RWTS)OF APPLE DOS AND EITHER:1. SINGLE DRIVE2. DUAL DRIVE, SI  # Lx ` ȑL9  ȑ ` ɀ    7 ERROR (  0ɀD 7 DRIVE ERROR)L 7 WRITE PROTECTED)L 7 VOLUME MISMATCH)L 7 READ ERROR) 7 ABORT?  :  [$ 7 SLOT= )  )  [$ 7 DRIVE= )  )Յ`ȑ` e  i8ȱ8 &d [ 7 TRACK= 7 SECTOR=   Q =?C<>B< , i ȥȑ"L,,,` 0   ɍ`hh L? HH`, 7 PRESS RETURN TO CONTINUE  ɍ ` [$ 7 VOLUME=L  X$0$ L X 7 INSERT MASTER DISKETTE` X$0 7 INSERT COPY DISKETTE X LX 7 DISKETTELUME NO. OF COPY DISKETTE jɍ) e e  X 7 INITIALIZING *  y L   7 READING  q  $ 7 WRITING ( q #а  [ 7 DISKETTE COPIED.   7 ERRORS.   " X [ 7 SECTORS/LOAD=  $ 7 AND COPY (BLANK) DISKETTE X    y L  e X 7 DO YOU WANT TO INITIALIZE COPYDISKETTE?  3 ȑ * y L  Lo X 7 VOX7ɞLL  ȑ3L p X _ 7 SHALL I USE AND HENCE OVERWRITERAM MEMORY USED BY APPLE DOS?    e8/ X 7 MASTERJJJJȱ JJJJ 7 COPY     ԍԍƍ MEMORY FOR HEX OR ASCIIONLY NEGATIVE ASCII ( > $80)WILL BE FOUND. USE HEX MODE TOSEARCH FOR LOW ASCIIENTER DATA WITHOUT SPACESAFTER SEARCH, ENTER 7D00G TO RESUME R~LSEARCH BYTES FOUND AT: ` ` `L~ L ~ ` `BEGINNING ADDRESS: $ENDING ADDRESS: $SEARCH BYTES: ASCII OR HEX SEARCH? ASCII CHARS: X~ R~L~ `<< SEARCH * BY DAVID B GARSON >>SEARCHES} ~ X`~ R~L } }>?u~ R~L"} }<=~. R~L:} Y~~ R~LJ} ɍL} LW} Y~~ R~L|}H }h?ȥ>ȥ߄ Y~  ~Li u Y~` ɍ L}Jʩ   MEMORY FOR HEX OR ASCIIONLY NEGATIVE ASCII ( > $80)WILL BE FOUND. USE HEX MODE TOSEARCH FOR LOW ASCIIENTER DATA WITHOUT SPACESAFTER SEARCH, ENTER 803G TO RESUME U L SEARCH BYTES FOUND AT: `T ` `L   L ` `BEGINNING ADDRESS: $ENDING ADDRESS: $SEARCH BYTES: ASCII OR HEX SEARCH? ASCII CHARS: X  U L `<< SEARCH * BY DAVID B GARSON >>SEARCHES  Xc  U L  >?x  U L% <= . U L= \  U LM ɍL LZ \  U LH h? ȥ> ȥ߄ \   Li u \ ` ɍ LJʩ  ÍčKK1 OUT$OUT$(TAB$,V%,1)3 "NJ%:N0270L ,C%C%1:C%23C%4T 6C% @O$;:T1%:NUM;:T2%:IK11:(OUT$,I,1);:::150 J: 150) IN$"."330% (IN$)150: W NUM0:K0:I1(IN$):J%((IN$,I,1))("0")i J%9J%J%7 J%0J%INB%250 KK1:O$O$(IN$,I,1):NUMNUMINB%J% (O$)ĭINB%16(IN$)4150 K0:NNUM J%NOUTB%:V%NJ%OUTB%1:SE ";OUTB%3 xINB%2INB%36OUTB%2OUTB%36110c ::"TYPE '.' TO EXIT; '/' FOR NEW BASE": :" BASE ";INB%;" ";:T1%:" BASE 10 ";:T2%:" BASE ";OUTB%;" ":::C%(37):34,C% 34,23:24:"ENTER NUMBER ";IN$:O$"":OUT$"" IN$"/"110? PICK-A-BASE BY VAL J GOLDING & DON WILLIAMS x ALL BASE NUMBER CONVERTER FROM BASE 2 TO BASE 36 2400d:TAB$"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ":T1%13:T2%T1%12 n:24:"ENTER INPUT BASE ";INB%:24:"ENTER OUTPUT BA   #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    GOLDING APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE SUITE 300 - 304 MAIN AV S RENTON, WA 98055 (206) 271-4514 HNG RETURN. ANY OTHER KEY WILL PRINT THEM AGAIN. "H*130:150:144q4A$:A$(13)ė:140:150:144:510z>300 RELEASED 15 AUGUST 1980 n MULTIPLE DISK CATALOG BY GARY A FOOTE MODIFIED FOR APPLESOFT BY DARRELL DUNMIRE AND VAL J999:700,X:(4)"RUN MULT DISK CTLG":`:23:7:"HIT ANY KEY TO CONTINUE"::756::4 ::"MULTIPLE DISK CATALOG IS ACTUALLY TWO PROGRAMS. IF YOU HAVE PREVIOUSLY READ AND UNDERSTAND THESE INSTRUCTIONS, THEY MAY BE BYPASSED BY HITTISES ANOTHER SLOT, OR IF YOU ARE USING AN ASSEMBLY LANGUAGE PRINTER DRIVER YOU MUST MODIFY""LINES 5230 TO 5290 OF FILE CABINET II. IN ADDITION, FILE CABINET MAKES USE OF PAGE 3, SO A BINARY PRINTER DRIVER MAY NOT RESIDE THERE."700 63THE MANY AVAILABLE FORMATTING AND REPORTING FEATURES, YOU WILL FIND THE PARTICULAR COMBINATION THAT WILL BEST SUIT YOUR OWN NEEDS."^:" NOTE THAT PRINTER OUTPUT FROM FILE CABINET II IS SET FOR AN INTERFACE CARD IN SLOT 1. IF YOUR CARD URETURNED TO THE FILE CABINET II MENU, WHICH OPERATES AS DESCRIBED IN THE APPLE COMPUTER DOC- UMENTATION BOOKLET FOR APPLE SOFTWARE BANK CONTIBUTED VOLUME 3. ACTUALLY, BY""USING THE 'LIST ALL RECORDS' OPTION AND A BIT OF EXPERIMENTATION WITH L FIELDS WOULD BE 37 BYTES. IF YOU TRUNCATED YOUR""PROGRAM NAMES TO 16 CHARACTERS, THEN YOU COULD ENTER 23 FOR THIS INPUT. THE SHORTER YOUR PROGRAM TITLES, THE MORE RECORDS FILE CABINET CAN HANDLE AT ONE TIME.":700"11. YOU WILL NOW BE , 'TYPE'; COLUMN 3, 'SECT'; COLUMN 4, 'PROGRAM'. WHEN PROMPTED FOR COLUMN 5, YOU SHOULD HIT RETURN."3:"10. FOR 'AVERAGE RECORD SIZE', ESTIMATE THE AVERAGE NUMBER OF BYTES USED FOR EACH OF THE FOUR HEADERS. FOR EXAMPLE, THE MAXIMUM LENGTH FOR AL"8. AFTER RUNNING FILE CABINET II, YOU WILL BE PROMPTED TO 'ENTER NAME FOR NEW DATA BASE FILE' WHICH WILL APPEAR AT THE";"TOP OF THE SCREEN. TYPE IN 'DISKCAT'."f|700:"9. NOW SET UP YOUR HEADERS AS FOLLOWS: HEADER FOR COLUMN 1, 'VOL NBR'; COLUMN 2O UPDATE AN EXISTING FILE.": h"7. THE DISK WILL RUN INTERMITTENTLY FORA SHORT TIME, A 'WORKING' MESSAGE WILL FLASH ON AND YOU WILL RETURN TO THE MENUWHERE YOU MAY CATALOG ANOTHER DISKETTE OR ENTER A '7' TO RUN THE FILE CABINET II PROGRAM."r:E #, ANY NUMBER FROM 0 TO 999 YOU CARE TO DESIGNATE."::110 ^700:"5. NOW REPEAT STEPS 3 AND 4 UNTIL ALL DISKETTES YOU WISH TO CATALOG HAVE BEEN ENTERED. "::"6. YOU ARE NOW READY TO CREATE THE CAT-ALOG FILE. ENTER 2 TO START A NEW FILE OR 3 TYOU WISH TO OMIT TEXT FILES FROM THE DISKCAT FILE, ENTER A '4'. A '5' WILL REVERT TO LISTING ALL FILES.":? T"4. TYPE '1'. 'CATALOGING DISK #1' WILL APPEAR ON THE SCREEN AND YOU WILL BE PROMPTED TO HIT RETURN OR ENTER YOUR OWN DISTINCTIVE VOLUMIFY THE LENGTH OF THE PROGRAM NAME FIELD YOUWISH TO APPEAR IN THE DISKCAT FILE. DEFAULT IS SET TO 16. TITLES LONGER THAN16 CHARACTERS WILL BE TRUNCATED."l J:"3. INSERT DISKETTE YOU WISH TO CATALOG";:" FOR USE WITH FILE CABINET II PROGRAM. IF K HEX$HEX$" N D823G ":I1(HEX$):511I,((HEX$,I,1))128::72,0: ,::"PLEASE READ THE FOLLOWING INSTRUCTIONS CAREFULLY ": 6"1. REMOVE DISKPAK 6B-16 FROM DRIVE.": @"2. NOW BY TYPING '6' YOU MAY SPECo d800n140:150:144'x350HEX$"300:38 48 84 00 A0 00 C9 20 B0 02 69 C0 C9 60 B0 02 69 80 C9 80 B0 02 69 40 91 02 E6 02 D0 02 E6 03": HEX$"320:68 A4 00 60 00 00 00 00 A9 A0 60 A2 00 A0 02 8A 91 69 C8 A9 00 91 69 C8 A9 00 91 69 60":       MULTIPLE DISK CATALOG BY GARY A FOOTE MODIFIED FOR APPLESOFT BY DARRELL DUNMIRE AND VAL J GOLDING APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE SUITE 300 - 304 MAIN AV S RENTON, WA 98055 (206) 271-4514  RELEASED 15 AUGUST 1980 $(4):SP$" ":H(X)(X256):L(X)XH(X)256:CA$(500,3)D$(13)(4):NA$"DISKCAT INDEXFILE":OP$D$"OPEN"NA$:CL$D$"CLOSE"NA$:WR$D$"WRITE"NA$:RE$D$"READ"NA$:AP$D$"APPEND"NA$CL16:ST12288:D$"NOMONC,I,O":(R)SP$#WR$;",R0":(R$,10CL)3E$;CL$;AP$FWR$:O%3740^((RC)SP$,10CL)jX1RCY03:CA$(X,Y):E$ CL$:"DONE":130:  CL:130: R:D$"RUN FILE CABINET II":: kTXT1:130pTXT0:130SEE FOR"::" DISKCAT INDEXFILE TO GO ON"::" HIT RETURN WHEN READY "rvA$:A$::10:10::"WORKING":O%2670E$"OPEN DISKCAT INDEXFILE"E$"DELETE DISKCAT INDEXFILE"OP$:O%2720RE$",R0":R$:R(R$)RRRC:R$C$(212)Ĺ37,(37)1:" "7 STEN:EN32767520 "MEMORY FULL-TRANSFER CONTENTS TO ";(13);"CAT DISK-THEN CONTINUE" ::23::" HIT ANY KEY TO CONTINUE "::756:130: XCREATE FILE bR0Ml:3:5:"PLEASE INSERT TARGET DISKETTC$5 C$;:DCL:EX7:110:CA$(RC,3)C$:CHR0:" "; CTLX7CTL29:CHRCHR1:(CTL)127ĭ(CTL)160ĭCHRCL1Ğ:((CTL)64);:460 :CHRCL1ĺ((CTL)); (CTL)127ĭ(CTL)160ĹCTL,(CTL)64 CTL::" )" XX38:XEN1400 RN":SB$:(SB$)VOL$SB$:(VOL$)3VOL$"0"VOL$:(VOL$)3VOL$"0"VOL$^ |(VOL$)3370j XST20 RCRC1:"( ";VOL$;:CA$(RC,0)VOL$ D1:EX1:110:CA$(RC,1)C$:TXTĭC$(212)RCRC1:"";:480 " "C$" ";:D3:EX3:110:CA$(RC,2)ST):2,L(ST)0 @54,0:55,3:56,40:57,3:1002U JD$"CATALOG":D$"PR#0":D$"IN#0"j TEN(2)256(3) ^VOL$"":XST15ST17:VOL$VOL$((X)): hCGCG1:"CATALOGING DISK NO.: ";CG;:" VOL NO.: ";VOL$K r"ENTER SUBSTITUTE VOL NBR OR HIT RETU"6. CHANGE PROGRAM TITLE LENGTH";:"7. RUN FILE CABINET II":"8. QUIT"::::" SELECT ? ";::" ";| A$:A$(13)A$"1" A$(27)A$"8" O%(A$):O%1O%8130 O%300,600,670,875,880,800,850,190 : ,READ A CATALOG IN 63,H( dC$"?":1209n812,D:820,L(E):825,H(E):811:Bx900:5:6:"OPTIONS":33,30:32,8::"1. GET A CATALOG":"2. CREATE A NEW CAT FILE":"3. ADD TO AN EXISTING FILE":"4. OMIT CATALOGING TEXT FILES"c "5. RES