' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-!(!0 ͠٠ˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u` '  $=  ? LCLOSE   ` < r= < < :< L> u= < < @ (@ < @ < @ o < @ &@ o ` < W?  < m?  y< $L < @  ` < @  c= ( b; < x? q; < m? k; $O@ L < ?  < ?  n  Q= <` ? LOPEN   ? L/.CONFIG '  ? LHREAD C  ? La.CONFIG Y  '  =<  f= r@ @<   ' ; Y?  o ; z?  o ; ?  o ; o?  o ; N?  o ; d?  o  1 '  < ;  ?  ` ; N= $L ; <`L4>> SAVING RECORD #L; << ;  !  7  ? # ?  < aLl,V i  '= a f= r@ @<   ?  ; aL,B   ; b? a ; @  1 ?  E= ^ < a ; a < a ? `L>> READING RECORD #L << ;      ? # ?  < aLI,V F  '= a f= r@ @<   @  ; aL},B z  ; b? a ' ; @  o  1 ?  ` ?  < aL,V   '= a @  '  ;  ;  ~= D n ; = D n = <= D 7? $ b; Z= D 7? $O@ Lg <= > :? T Z= > :? T ~= > ; Q = > = QL7 ?  < aL,V |  '= a f= r@ <   @  ; aL,B   < b? a ' ; ?  o  1 ?  ` ; N= $  ; ; A ; T 1 r@L20113224037620122232177032227223324421323218902208250134157138328222816001451312001651131451312001651141451311602162016515776226229 &>  ?L  ? =  ? X &>  ? q,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé GN@BG > > z> T > > D> T > > = T M> r@ ?  ,165,159,48,20,32,174,239,104,168,177,6,56,229,159,145,6,200,152Z72,240,20,76,12,3,32,174,239,104,168,177,6,24,101,159,145,6,200,152,72,208,212,230,7,165,7,197,8,240,3,76,12,3,104,96OR ENCRYPTED FILE ":"/";PO$:470b(:34,1:1:12:"PATH NAME FOR DECRYPTED FILE ":"/"PO$:5802::"DISK FULL ERROR!":G$;:<::G$:"ERROR # ";ER:F::"FILE NOT FOUND ERROR!":G$;:@P169,0,133,6,169,64,133,7,160,0,152,72,32,174,239S%2PF$"":350S%3410'520w34,10::G$:MG$PO$" ALREADY EXISTS!":(1):12:MG$:1:"REPLACE IT Y/N";AN$:AN$"Y"AN$"N"1280 AN$"N"S%2ė:34,1:440AN$"N"ė:34,1:550!AN$"Y"S%2ė:34,1:1:12:"PATH NAME FIG":15306A$(A$,AO1)".CONFIG"(A$,O1(A$)A)xD$"OPEN"A$:A$(A$,A6):680:21:11)"ONE MOMENT PLEASE.":L"B?D$"WRITE"A$",R0":"1,450,0":D$"WRITE"A$",R1":AO1FDjB1LN(A):"X";::M$;::D$"CLOSE":{OPEN A FILE680:15)K$::"NAME OF FILE:":FFDİ18023:XZ:A22:520:A$""ġ: 680:AO1(A$):(A$,A,O1)","Ă:A$A$".CONF220:FO1: SAVE THE WORKPADEK$"SAVE FORMAT":1490:K$ES$ıpD$"DELETE"A$:D$"OPEN"A$:D$"WRITE"A$FD:BZ:XO1FD:VT(X)","HT(X)","PR$(X)","H2(X)","LN(X)","B:BBLN(X)O1:B:0:A$(A$,AO1):D$"OPEN"A$:D$"DELETE"A$:D$"OPEN"A$",180(BX:AZ42X1XO1FD:WH(X1)WH(B)BX1\<:200:AB:BXA:200:AX:BX:200rFXXO1:XFD1320xPZLOAD FORMATdK$"LOAD FORMAT":1490:K$ES$ınD$"READ"A$:FD:AO1FD:VT(A),HT(A),PR$(A),H2(A),LN(A),X: xD$"CLOSE":220:FFD:FDZFO1*FDMXıN680:20:13:"INSERTING FIELD"lB1:AMXFO11:200:480:FDFDO1:BF:220:FB:VT(F):255,Z:768: RENUMBER FIELDSFDTWġ:850680:11)"RENUMBERING FIELDS":XZ:100:XO1:FFDİELDN680::"D)ELETE FIELD"19)"OR"26)"I)NSERT A FIELD":17)"WHICH ?"H$;{A$:A$"I"A$"D"A$ES$A$M$1170A$ES$A$M$FFDıXZ:A$"I"1250680:20:13:"DELETING FIELD"BO1:AFMXO1:200:AMX:480:FDFDO1 aL-) : ,  Q= < E= Y? = o E= N? = o E= o? > o E= @LB- A- o u= v< " < @  c= (Lo' < @  < o= ( b; < :< O@ L, X L-ENTER ITEM TO SEARCH FOR: -  E= N? < L? o E= Y? > o E= o? u= o E= @L- o' ; r= ; < L, < ;Lo' Lo' f=  D> L2, -,  & u= ; ; aLU,. R,  ; ?  ; :< L, ; r= ; >  ; aL,. ,  ; ?  ; :< L, ; r= ; LI, X X L,FOUND IN WHAT FIELD? (1- ,  @< < >  ? L(+ Q= < u= < < ; ! Lo'L* ; N= $L' X > LV+ EDIT A RECORD H+  L+' PRESS TO RETURN TO COMMAND MENU. g+  u= v< % u= < u= < w " s o < r= < :< L+ u=  L( < ; $L:*L,* > DISK FULL < * ? $Lo' u= ; X > L\* ADD A RECORD O*  L*' PRESS TO RETURN TO COMMAND MENU. m*  < r= < Q= < < ; u= v< % u= < u= < < @ ? w " s o < r= < :< L* u=5 ( L *L )E ? 5  ) L++L%)L ? 5 #) L+L=)N ? 5 ;) L+LU)S ? 5 S) L,Lm)R ? 5 k) L 0L)P ? 5 ) L1L)D ? 5 ) L) {6Lo'L)X ? 5 ) Ld7L)? ? 5 ) L7L)/ ? 5 )   q> L((R) READ RECORD (  ? L3( (/) NEW FILE &(  LJ((L) LAST A(  q> Le( (P) PRINT [(  ? L( (?) STATUS v(  L((N) NEXT (  ? L((X) EXIT (  f=  > L(ENTER COMMAND: (   ? > L(A ? T X = > > T = > > T`L3'> NO RECORD AVAILABLE < ' ? u= < $ f= @ @<   < @Lb' a' o 1 %? 8 Q= v< % <L'  % ;L * XL'(A) ADD '  q> L' (S) SEARCH '  ? L' (D) DELETE '  L'(E) EDIT '%  > L &USED &  < aL & &  .? L9&UNUSED 1&  < ; a = 8 & f= @ @<   < x? b; < m? Y; $L& < W?  < x?  < ?  o 1 > ` f=  f= r@ ;>  L&= &  1 ` = > = T = > >?  >  ? @  b; ?  ? O@ LO$ < $ b; >  ? O@ LZ%LR%N P% ?L_%YLd%N < $ b; ? 5 ]% O@  b; ? 5 b% O@ LO$` f= @ @<   < @L% % o 1 f=  f= L%RECORD # %  ; aL%   ?  `L $  $ @ & />  ?  c= L2$ # @  c= LO$ @ ? # >  <L$L$% PRESS RETURN WHEN READY TO CONTINUE: `$  ?  < $L$L$#PRESS 'Y' FOR YES OR 'N' FOR NO (Y/ $  wL$N $  sL$): $  ?   5 " 2L d< z; &L# $L8# < @ < @ ?  o d< r= a< < @  n ; < L? z; (L# < L? ; < @ < @ < L?  o < L? X< (L# < L? a< &>   `L" & _>  ?  n c = i = "< o= (L# u= "< %<L " ; r= a< oLA# =  ? L*" u= a< oLA# >  ?  b; d< o= $O@ Lh" < @LZ" Y" o oLA# >  ? L" < @ < @ u= [<  o oLA# < @ ? < @  n ; o u= a< o < W?  < m? c u= ^<   ?L" ? o u= a  ? L! =  ? L0! ` oLA# ?  ? L! ; $LX! s o { Lo' f= @ @<  Lm! < @ l! L! u= ; 1 ;L! Q= ; s o { Lo' Q= ; Q= < u= ; ; u= < < s Lo' >  ? ` >  ? ` =  ?  N= $` s o w u= < < o= (L% @< < < @ ? < @  n ;` d< r= a< ; r= X< (Lg ; r= a< < L? X< (L u= a< < r= < @  n ; < :< L u= <` />  ? L L" >  ? L D L" >  ? L! < @ ? @ u= [<  ? < @ d< };  ?  o ` d< o= $LN < @ < @ ?  o ` d< z; $L < @ < @ u= [<  ?  ? < @ f=  ?  o ` < @ < @ u= [<  ?  ? < @ d< }; r=  ?  o ` u= [< a< N= L% u= a<  = LF:PLEASE INSERT CORRECT DATA DISK &:  >  = L:"RETURN TO CONTINUE OR ESC TO EXIT `:   ? ?  ? L: XLc >  ? L:L ?  LQ:Lc"@#d$L9WRITEL9,R ? 5 8  ?  9  ?L09CLOSE ? 5 *9  ? f= @ ;>  LW9X E@ 5 U9  G@ 1  ; < ; < =  & >  & = > > T < ; Lo' ? > E= T XL9 IS NOT ON THIS DISK ? 5 9  2@ ?  ?  =  0@8WHAT IS THE NAME OF THE FILE 7  '  ? L28L78A ? 5 18  b; ? f=  58 2O@ L7 79 ? Ly8VERIFY r8  ?  ? > E= T  u= 0=L8OPENL8,L ? 5 8  ?  8  ?L8READL8,R ? 5 8  ?  8  @? 5 6 Lo' ; < $L+7 u= < < ;  W` X ; < < ;  X < ; u= < < N= (L`7 Q= < W` = $L7 3= ? f= @ =   1 @ E= B h> 8 X =  L7 RUN HELLO.DB 7  &>   = > :? TLo' V> ; > =< X = L b; < r= W? Y; L>6 < W? = @ < r= W?   1 u= < 1 =L\6 1 @ Q= = ? Lm6PR#0 h6  Lo' ; N= $ b; < N= $O@ L'L6YOU ARE ABOUT TO ERASE A RECORD 6 ?L6DO YOU WISH TO PROCEED? 6 @ Q= < $L6Y 4  3= a f= @ @<   < x? c <  < x? b; < m? Y; L5 < ?  < m? b; < x? q; < ?  n n; \;  < @  < W? b; < r= W? Y; $L5 < m? b; < @  n _; < 1 L\6 < W? r=O@ L3L 4Y ? 5 4 L2LD4#DO YOU WANT TO PRINT THE WHOLE FILE  4   ?LZ4YL_4N ? 5 X4  b; ? 5 ]4 O@ LO4L4Y ? 5 4 L4 u= = f= @ <   m< ; ? L4PR#0 4   >  u= < ? L4PR# < m? b; < L? _; < 1 L{3 < W? r= b; < r= W? Y; Lp3 < W? = @ < r= W?   1 u= < 1 ? L3PR#0 3  XL3DO YOU WANT ANOTHER TEST? 3  />    ?L3YL3N ? 5 3  b; ? 5 3 L1L2N ? 5 2 L2 L4 u= < ? L12PR# -2  3= a f= @ @<   < x? c <  < x? b; < m? Y; L2 < ?  < m? b; < x? q; < ?  n n; \;  < L? E@   < W? b; < r= W? Y; $L3 L1 &>   L 0 1< ; Lo' ; N= $L' X > L]1&TURN ON YOUR PRINTER! THEN PRESS [RTN] 61  s  ? XL1!PRINT TEST PATTERN FOR ALIGNMENT? t1  _> L1 [Y]ES OR [N]O 1   ?L1YL1N ? 5 1  b; ? 5 1 O@ / ? & _>  #` X =  ? L>0ENTER RECORD NUMBER TO READ:  0  Q= < Y? = o < N? = o < o? > o < z? < m? o < ? ;  o < @L0 0 o u= v< " < @  c= (Lo' X < @  .< o= ( b; 1< < O@> L/ < E= @ .  .  @  8> L2/ E= @ @ u= < $ 1< ; Lo' % X Lu/!IS THIS THE RECORD YOU WANT? (Y/ S/  wL/N /  sL/) /   ?L/Y ? 5 / L/ { L' ?  ? L/ { 1< ; Lo' XL/ > SEARCHING < - o u= v< Q= < " E= @  n < Q= v< X < o= (Lo' < < $Lj.LY.> RECALLING DATA < F. ? # j j < < ; . SEARCHING < y. ? # f= w@ <   ; ? <  ? E= @ ? L.  G/ 1 L.SORRY. I COULD NOT FIND: . ?L.L#J-+-K "  l6  l6  l6  6 L*#! (#  l6  6 LC#M A# ` 5  Q4  _5 ; ` Q4 6 5  Lx#= v#  1 ` 4 3 4  O6 4 3 4 4L# 3 5 D 3 25 D H4 3 3 4 D 3 n` 4 6 5    d3 @3 A g3 Q 1 ?4 3 ? !  5 rL*"R)ENUMBER FIELDSL)OAD FORMAT  "  5 rLH" S)AVE FORMAT ;"  La" Z)AP FIELD V"  5 rL"C)LEAR WORK ARE r"  5 > f4 T 5  q5 L"<- -> "  5 L"I "  l6  6 L"! "  l6  l6  l6  6 6  n 3 $6 L 6 5 l6 LC! /6  n c 3 /6  16L 6 5 %6 LX! { ` ?4 # G u $4  6L= L#L! P)ROMPT/NAME y!  5 rL! F)IELD LENGTH !  L! A)DD FIELD(S) !  5 rL! N)EXT FIELD !  L!ESC)APE PROGRAM6  2 6 5   2 6 5  6 6 6 LLB  /6  n 73 ( 2 6 5 @ /6 L 6  /6 5 6  16LL  6 5  /L 6 5 96 ` 6  6 5 l6  2 /6  n 3 $6 L L   L 6 5 l6  2 / 3 6 3 6 c g3 o { L% @3 6 4 o @3 5 4 o @3 6 4 o @3 5 3 o @3 c6Li h o ` 4 > $4 ]  6`L  16  6L,L: 6  -4 ( 2 6 5 96 6  2 6 5 %6 6  2 6 5 l6 6  2 6 5 6 5 2 2 $6 L$ 3 5 d3L 6 5 l6  2 3 6 2 3 6 3 3 a6  n 2 2 $6 L 3 6 3 6 o L 3 d3 6 5 l6 L Q4 n d3 3 6 3 6 a3 o 3 6 3 ( 2 3 6 2 3 5 2 4 6 LL8 3 6 3 5 4 o 3 6 3 6 c g3 o L%LL? 3 a6 > L 6 5 6  2 3 6 2 3 6 2 $6 L 3 a6  n d3L 3 6 2 3 6 2 $L 3 5 d3L 6 5 6  2 3 6 2 3 6 3 3 6 2 3 5 2 2 3 6 2 3 a6  n 2 2 (L 3 6 3 $ 2 3 6 3 $6 L 3 6 3 a6  /5 n o L 3 6 3 o g3 3 (L 3 6 g3 3 o 3 6 3 6 a3 o L% 3 6 3 $ 2 3 6 3 $6  6 3 6 c ]4 o LK 6 5  L] 3 6 3 6 3 o 3 6 3 6 3 o 3 6 3  2 3 6 3 6  2 3 6 2 3 5 2 4 (6  2 3 6 2 3 a6  n 2 4 (6 L% 3 6 2 3 6 2 d3 3 6 L  3 5 3 5 3 o L)I 6 5 ' L} 3 5 3 5 c 3 o 3 5 o4 (L} 3 5 4 o 3 5 4 L 3 5 r4 o 3 5  5 > 3 Q 4 8L%LJ 6 5  L 3 6 3 6 c 3 o 3 6 @3 L3 6 o @3 5 @3 L3 5 o @3 c6 @3 L3 a6 o @3 6 @3 L3 6 o ` 3 d3 4  Q4  v3  4  5 > 3 Q 4 8 5 > 5 T 4 6 q5   @3  4 8 1 3 6 3    1 ` { LILM 6 5   2 6 5  6 L  3 6 2 3 6 2 $ 2 3 a6  6 LY 3 5 C6   s` 3 a6 3 5   3 5 2 3 a6  n 2 (L 3 5 2 3 a6  n 2 C6   s` 3 5  5 > 5 T 4 8` @3 5 @3 L3 5 o @3 q,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé %\969\9L#  3 6  3 a6  g3L w 3 5  3L 8FL 8FL 8  F8FL 8FL 8FL 8  F8GL ;GL ;IL ;KL ;ML ;OL ;QL ;SL ;UL ;WL 8  A8  nA8  A8  ,B8  B8BL 8BL 8BL 8BL 8BL 8BL 8  B8  C8FL 8FL 8FL 8F:Ld;Ld;Ld; Ld;Ld;L ;L ;L ;L ;L ; Ld;%L ;'L ;)L ;+L ;-L ;/L ;1L ;3L ;5L ;7L ;9L ;;L ;=L ;?L ;AL ;CL ;EL 6Ld6Ld6L 6Ld6Ld6Ld6Ld6Ld6Ld6Ld6Ld6Ld6Ld6Ld6Ld6Ld6Ld6Ld /6  @3 4 /6  16 L# 5  D5 rL;2ONE MOMENT PLEASE. (2  `Lc@ @@ $ H0($ (() |B_6Ld6Ld0  3 3 L1  5  3 d3 4 =3 L/1 /6 5 .1 LF1 { ` L# 3 6 /6   Lb1, /6 @3  3 1 `1 L1 1 L1.CONFIG /6 5 1  16L1L1.CONFIG 3 :3 /6  1  6 /6  n 3 c @3 /6  6  16 M6 L1OPEN 1  M6 L0WRITE  0  /6 L$0,R0  0  L:01,450,0 20  M6 LT0WRITE N0  /6 Li0,R1 e0  3 6 3   Q4 6 @3 5  L0X 0  1 96  1 M6 L0CLOSE 0  ` L# V5 r 6  L0 NAME OF FILE: .  g3 a6 L/, /  g3 6 aL+/, )/  g3 5 aLD/, B/  R3 a g3 5 L3 3 O3 1 R3 a 64 ^ 3 :3 /6  16 M6 L/OPEN /  /6  M6 L/DELETE /  /6  M6 L/OPEN /  /6 L/,L /  R3 a 1 M6 L.CLOSE  .  Z 3 3`L5. SAVE FORMAT ). 6 0 6 5 %6 ` M6 L_.DELETE X.  /6  M6 L~.OPEN y.  /6  M6 L.WRITE .  /6  3 a 3 O3 3 6 3   g3 5 aL., .  g3 6 aL., - 3 O3 1  R3 =3 ^3 O3  g3 =3 g3 O3  g3 3 d3 3 (L,`LP- LOAD FORMAT D- 6 0 6 5 %6 ` M6 Lx-READ s-  /6  '  3  3 6 3   ' @3 5  o @3 6  o @3 c6  o @3 6  o @3 5  o  d3  Q4 n O3 4 6 3 3  Q4   1  3 3 3 3 O3 Z R3 3 5  5 > 3 Q 4 8` 3 3 (Ly, { L& L# D5 rL,RENUMBERING FIELDS ,  3 d3  3 d3 3 3 L,  g3 O3 3 =3 g3 3 6 3   3 :$ 2 R3 :$ 2 L%6  2 /6 5 96 6  2 3 3 6 ` 3 d3L6+I /6 5 4+ L+ L# 5  M5 Lj+DELETING FIELD [+  3 O3 3 6 3 3    1 4 =3  3 3 3 Z 3 3 3 3 $L+ 3 3` 3 3 $` L# 5  M5 L+INSERTING FIELD + 3 5  5 > 3 Q 4 8` L# L2* D)ELETE FIELD $*  5 rLF*OR C*  5 rLg*I)NSERT A FIELD W*  q5 rL*WHICH ? {*  l6   16L*IL*D /6 5 *  2 /6 5 * 6  2 /6 5 %6 6  2 /6 5 96 6 L* /6 5 R3 5  3  5  3 6 3   @3 5 2 R3 5 2 $ 2 @3 I3 6 Ll) R3 5  @3 3  1 R3 3 5 > 3 Q 3 5  4 8 { L% 3 3 $L) W6 ` 3 d3  3 3 3 $L) 3 Z4 3 3 3 3L) 3 3 3 3 3 $L) 3 3'Y /6 5 ' ` X 5  M6 L1( RUNHELLO.DB %(  L#L\(CLEAR WORK SCREEN ? (Y/N) B(  l6  l6  l6  l6  l6  l6  l6  ]4 =3 L(Y /6 5 ( ` XL 3 3 L(  3 3L( 3 d3  3 3 3 3 L( 3 3 3 O3 3 d33 5 a L 'MAXIMUM LENGTH=> '  g3 a LD' NEW LENGTH=> 7'  3 6 p3 3   n =3  /6  3 ( 2 /6  [3 6 L& 3 5 /6  o ` L#L'LEAVE PROGRAM ? (Y/N) '  l6  l6  l6  l6  l6  l6  l6  ]4 =3 Ld3  r 3 6 v6    v6 @3  3 1 6 L@& 1 W6 L& @3 j&&)(e,A-&.*<(';;L% L# q5 L~&PROMPT? v&  3 a6  Q4  5  3 6 p3 3 =3  3 c6 /6 o ` 3 6 p3 3 d3 L#L&CURRENT LENGTH=> &  1 C6 5  E6LU%1604162036255162162518931315322323213616246160X%L%391854131454013616248963411534017740145341185 X {4  5 > 64 T 4 8 b# z5  b# s! Q4  h5 L%FIELD # %  3 aL% %  3 4 3 ]4 3 5 s3 4 3 4 3 3 3 3 6 4    1 L_$ 3 5 c r4 4 .3 "3 6 +3` 5  6 &5  n6 ;5  6 5  Y6 M5  ;6 5  '6L$ PFANRLSIJKMZC $ 5 %6  l6  6  x6 5  6 5  6  E6 Q4 6 4   C6 5 C6  E6   78  88  889L 89L 89L 89L 89L 89L 89L 8  989SL 89UL 89WL 89YL 89[L 2Ld2Ld2L 2L 2L 2L 2L 2L 2L 2L 2L 2Ld2L 2L 2L 2L 2L 2L 2L 2L 2L 2L 2L 2L 2L 2L 2L 8  786Ld7Ld2JL 2LL 2NL 2PL 2RL 2TLd2YL 2[L 2]Ld2bL 2dLd2iL 2kLd2pL 2rLd2wLd2|L 2~L 2Ld2Ld2Ld2L 2Ld2Ldz #?     ҮР:ҠͮР0Ү͠ԠŠөŠˠ٠Ҡ͠٠ˠϮ Ҡ#Ҡ͠ Ϯ®РuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":Q |:1000l 1:" 80N":0,63998:03:D$T$A$(A) 1 NAME$(105),A$(105),T(105)I "X138:B$B$"=":g ,X10511:NAME$(X)B$:} 6NAME$(0)(B$,19) @D$(4) E12:12::"READING CATALOG"::12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":E h( L40  MAXX& 85:34,224 23:958p "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) 2(NA$(N),8,1))6520003 ((NA$(N),8,1))942000= XX1V A$(X)(NA$(N),8,30)p T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:2000:32,19:2:1::- U33,40:32,0:23:1::s Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 (m8(ST6UVk,ȱk-`)M,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:11:"CORE PROGRAM LIBRARY":20:22:20:34,2:3: P33,21     1:40);:AO1FD7.VT(A)VT(B)ABĢVT(B):FA:110[8:FB:255,Z:VT(F):768::830qBDEFINE THE FIELDLFZĺG$;:VXZ:100:FFDO1FF1:FDFDO1:1130`FFDO1jFMXFZtVT(F):255,Z:768:~ZAP (DELETE OR INSERT) A FIA1:520:A$"Y"ı2::24:D$"RUNHELLO.DB"GCLEAR WORK AREA|680:"CLEAR WORK SCREEN ? (Y/N)"H$H$H$H$H$H$H$;A1:520:A$"Y"ı:GRAB NEXT FIELDFFDİ180:FO1:1060XZ:100:FFO1:FFDFO1$BF:XZ:VT(B):O$:ALTER LENGTH\XGXH2(F)O1:680:"CURRENT LENGTH=>"LN(F)::"MAXIMUM LENGTH=>"X:"NEW LENGTH=>";:A((GXH2(F)O1)):520(A$)O1(A$)X910LN(F)(A$):ESCAPE PROGRAM680:"LEAVE PROGRAM ? (Y/N)"H$H$H$H$H$H$H$;6:"FIELD #"F" ";HXO1:100RR500:AO1(KY$):K$(KY$,A,O1)Ă:G$;:850\A880,910,1100,1040,1300,1380,1420,250,250,250,250,1160,1000,960,390,390:820fNAME PROMPTp680:17:"PROMPT?"::PR$(F);z1:22:AGXHT(F)O1:520:PR$(F)AH$U$< BF$(95)(95):A15:BF$BF$BF$::BF$(BF$,40)160,4,162,0,36,255,16,2,162,5,189,31,3,153,22,3,232,136,16,246,160 39,185,41,3,145,40,136,16,248,96,3,41,153,40,177,40,145,3,41,185*:2:255,0:768:700:18:7004630>1:1IELDS25>D$(4):CH20:CV10:SC(A)(40)(41)256(36)WA768808:X:A,X:NF0:Z0:O11:GX40:GY17:TW2:FO1AZMX:480::WH(X)41(VT(X)3)HT(X)U$(21):H$(8):J$(10):G$(7):M$(13):ESC$(27):KY$"PFANRLSIJKMZC"ES$EAR WORK ARE";:2039,193c19:17:"<- ->":20:"I"H$J$"!"H$H$H$J$"J-+-K"H$H$H$J$"!"H$J$"M";:{ERASE MESSAGE AREA19:1:64578::PRINT 40 '='A140:"=";::INITIALIZE VARIABLESVT(25),HT(25),PR$(25),H2(25),LN(25):MXF$)O1):530XK$ES$ġ:8bK$((SC(0))128):540MlPRINT MAIN MENUv680:"P)ROMPT/NAME"25)"F)IELD LENGTH":"A)DD FIELD(S)"25)"N)EXT FIELD""ESC)APE PROGRAM"25)"R)ENUMBER FIELDSL)OAD FORMAT"25)"S)AVE FORMAT""Z)AP FIELD"25)"C)L NUMBER OF CHARACTERSA$""hK$:((K$)32K$M$K$ES$K$H$K$U$)((K$","K$":")X)530(A$)AK$" "ĺK$;:A$A$K$:530&K$" "5300K$M$ı:K$;:K$H$(A$)Zĺ" ";:530DK$H$(A$)O1520 NK$H$A$(A$,(A)(PR$(F))H2(F)HT(F):4601 XO1:K$H$X1j H2(F)H2(F)X:H2(F)O1H2(F)LN(F)41H2(F)H2(F)Xu :840 INITIALIZE FIELD VALUES HT(A)20:VT(A)10:H2(A)20:LN(A)O1:PR$(A)"": GET A KEY 16384,128:K$:INPUT SPECIFIEDH2(F)HT(F)X:840J hHT(F)ZH2(F)ZH2(F)41LN(F):HT(F)H2(F)X:840S r340f |POSITION DATAy PR$(F)""440 K$U$HT(F)H2(F)X(PR$(F)):450 HT(F)H2(F)XLN(F):450 K$U$H2(F)HT(F)LN(F)XLN(F):450 K$H$H2(F)HT(FF)HT(F)O1:H2(F)H2(F)1C ,K$"K"HT(F)HT(F)O1:H2(F)H2(F)O1~ 6HT(F)ZH2(F)ZH2(F)LN(F)42HT(F)(PR$(F))42840 @XH2(F)HT(F):H2(F)LN(F)HT(F)(PR$(F))360 JHT(F)ZH2(F)ZHT(F)41(PR$(F)):350 THT(F)O1:XO1HT(F)O1X ^X);:3:255,Z:768:255,255:A317:AC 768::FO1FD:100::b MOVE FIELD IN A DIRECTION} :K$"I"K$"M"290 180:VT(F)VT(F)O1:K$"I"VT(F)VT(F)TW:VT(F)3VT(F)17 VT(F)17VT(F)3 VT(F):255,Z:768:840 "K$"J"HT((PR$(F),LN(F));:LN(F)(PR$(F))ĺ(BF$,LN(F)(PR$(F)));E :Z ERASE THE FIELDu VT(F):255,255:768: MOVE FIELDS VT(A)VT(AB):HT(A)HT(AB):LN(A)LN(AB):PR$(A)PR$(AB):H2(A)H2(AB): PRINT ALL THE FIELDS& XZ:3:1:Gy COREFILER FORM.BY RAY DARRAH4(J2INITIAL RESEARCH`<BY DAVE THOMPSONfFoP710ZPRINT FIELD WE ARE WORKING ONd180nHT(F):PR$(F);xXĞVT(F):H2(F):H2(F)HT(F)PR$(F)""150(BF$,LN(F));::=          EFILER"% d(4)"RUN COREFILER FORM"I n:A$"COREFILER ":X14:A$;: x24:(A$,8);:X13:A$;::"C";:2039,15:23:"O"; 2:1:"O";:40:" "(8);:Y1:Z3:X121 (A$,Y,1)(A$,Z,1);:40:YY1:Y(A$)Y1 ZZ1:Z(A$)Z1 :: ::110%X110:768X,0:I8:5:"1. ENTER/CHANGE DATA":w(5:"2. ADD/EDIT CONFIGURATION FILE(S)":25:"3. EXIT TO BASIC":<:16:"WHICH ?";:A$:A$;:(A$"1"A$"3")A$(27)60F(A$)90,100,80P: Z(4)"RUN COR  D$"PREFIX/"=D$"PREFIX":PF$:D$"BLOAD"PF$",A$3000,TDIR"CWERROR HANDLINGsER(222):216,0:1190ER191270ER91330ER6ER2ER3ER11ER7ER161340:(VT):MG$"PATH NOT FOUND!":(20(MG$)2)::73011::11:(20(M1$)2)::M1$:::@B PROGRAM INITIALZATIONvLAD768836:BY:AD,BY::POKE ENCRYPTION ROUTINEV:::(8):"RANDOM ENCRYPTION SYSTEM":`34,1:10496jD$(4):G$(7):EN14336tMOD(A)((AB(AB))B.05)(AB) ~ I0NR*6,0:7,64:8,(NB256)65PINRNBMOD(PL):8,(NB256)65D$"BLOAD"PI$",T"TY$",A$4000,L"NB",B"BC:Z(EK):768::11:(20(M2$)2)::M2$:$D$"BSAVE"PO$",T"TY$",A$4000,L"NB",B"BC.INR1NBMOD(PL):$8BCBC20480:E!"::730:::130UPL40960MG$PI$" IS TOO LARGE TO ENCRYPT!"::730:::130mTY252TY$"BAS":TY6TY$"BIN":TY$"TXT":ENCRYPTION/DECRYPTION ROUTINEBC0:NB20480:B20480:NR(PLNB)::11:(20(M1$)2)::M1$CTCT1:AA39:CT12AA5:CT11pAEN1350:z860ENM$""kIAA(PI$)1:NM$NM$((I)):PI$NM$(((I))0(PI$)15)PL(A22)65536(A21)256(A20):940:870TY(A15):TY252TY4TY6MG$"UNSUPPORTED FILE TYP4NU$(8)(EK$)1ĺNU$;:" ";:NU$;:EK$"":760m NU$(8)ĺNU$;:" ";:NU$;:EK$(EK$,(EK$)1):760*(NU$)1(EK$)3ĺG$;:7604EK$EK$NU$:NU$;:760> GET PATH INFOHA12332:CT0RFC((PI$,1))\(A)FC(A1)0900"fROUTINEaG$:11:(20(MG$)2):MG$:24:8:"HIT ANY KEY TO CONTINUE":16368,0:16384,128:yGET ENCRYPTION KEYEK$"":15:1:"ENCRYPTION KEY ";NU$:(NU$)13(EK$)0EK(EK$):NU$(27)ġ:130 NU$(8)(EK$)1ĺG$;:760PN$)1((PN$)15PF)((PN$)50PF)ĺG$;:630hPC$(8)(PN$)1ĺPC$;:" ";:PC$;:PN$"":C0:630PC$(8)ĺPC$;:" ";:PC$;:PN$(PN$,(PN$)1):630C(PC$)45(PC$)58ĺG$;:620C1:PN$PN$PC$:PC$;:630PC$;:630WAIT "WRITING "PO$:1000X1303bINPUT PATH NAMETlHT:VT:C0:PN$"":A$:"/";svPC$:PC$(13)(PN$)0ıPC$(27)ġ:130((PC$)65(PC$)90)((PC$)46((PC$)57))(PC$)8((PN$)15PF)((PN$)64PF)ĺG$;:630/PC$(8)(ILE) 794,56:795,229:814,24:815,101Y :HT1:VT09:A$"PATH NAME TO DECRYPT":620l D$"VERIFY"PN$} PI$PN$:840 &HT1:VT12:A$"PATH NAME FOR DECRYPTED FILE":620 0PO$PN$ :D$"CREATE"PO$",T"TY$ D740NM1$"DECRYPTING "PI$:M2$1:VT09:A$"PATH NAME TO ENCRYPT":620< D$"VERIFY"PF$PN$M PI$PN$:840 HT1:VT12:A$"PATH NAME FOR ENCRYPTED FILE":620 PO$PN$ D$"CREATE"PO$",T"TY$ 740 M1$"ENCRYPTING "PI$:M2$"WRITING "PO$:1000 130  DECRYPT A FNUE":16368,0:16384,128:1307 T SET PRODOS PREFIXh ^:PF1:VT9:HT1:A$"SET PRODOS PREFIX":620| hPF$"/"PN$"/" rD$"PREFIX"PF$:D$"BLOAD"PF$",A$3000,TDIR" |PF0:130  ENCRYPT A PATH 794,24:795,101:814,56:815,229& :HT:::" KEYBOARD INPUT ROUTINE _ 21:18:S$:S$"C"S$"D"S$"E"S$"P"S$"Q"230g S$x S$"C"S%1 S$"P"S%2 S$"E"S%3 S$"D"S%4 "S$"Q"S%5 , 6CATALOG @:D$"CAT" J9:24:"HIT ANY KEY TO CONTI90 n1100# xMAIN PROGRAM MENUI :09:07:"P) SET PRODOS PREFIX"i 09:9:"E) ENCRYPT A PATH" 09:11:"D) DECRYPT A PATH" 09:13:"C) CATALOG" 09:15:"Q) QUIT" 10:18:"CHOOSE ONE" 230 S%310,350,390,510 34,0 ************************=* *[* DATA ENCRYPTOR *y(* *2* WRITTEN UNDER *<* PRODOS 1.1 *F* *P************************Z d11      AXAN$(13)AN$"N":AXAN$"Y"AN$"N"1200@WZERO DATA STRINGSp CT1NF:A$(CT)"":PRINT RECORD STATUS1:1:"RECORD #"RR" ";:17:"USED "RC" ";:30:"UNUSED "RTRC;:868(PRINT DATA TO SCREEN21390:CT1INT WITH PROMPT1390:81(A$)1İ1130:N(A2$)1A$A2$:1130:V16AXĺ" PRESS RETURN WHEN READY TO CONTINUE:"G$;AXĺ"PRESS 'Y' FOR YES OR 'N' FOR NO (Y/";::"N";::"):"G$;AN$:AN$AXAN$(13)AN$(27)1200INCREMENT CURSOR$PP1..IS FIELD FULL?i8L(A$(CT)):LLN(CT)LLN(CT):A$(CT)(A$(CT),LN(CT))BPLN(CT)PLN(CT):(7):L990VCENTER AND PRINT`1390:10jHT20((A$)2):HT1HT1tHT:A$:~A2$""CENTER AND PRTRY POINT#B$A$(CT):L(A$(CT))CENTER WITH STRING AND TABSP420:P1jTAB AND PRINT STRING420:VT(CT):H2(CT)1P:CH$CTRL CHARACTER CHECKCH$" "680INSERT A CHARACTERPLİ540:1060A$(CT)A$(CT)CH$\CH$(24)ı(fJUMP TO END OF LINEGpCH$(5)PL1:420:1080bzJUMP TO START OF LINECH$(2)P1:420:1080CLEAR TO END OF LINECH$(12)P1A$(CT)"":420:1080CH$(12)A$(CT)(A$(CT),P1):420:1080 INITIAL ENH$(4)İ480:420:1080)EXIT TO MENU=CH$(27)840U ADĝ:420::1450qD1NF:A$(D)""ZW1w *ZWZW0::420::14504AD0:WF0:RRRR1:RCRC1::220:1450>RETURN TO CALLERHCH$(13)ıRRETURN WITHOUT SAVELN(CT)P1:CTCT1:L(A$(CT)):CTNFCT11L MOVE CURSOR BACKWARDdCH$(8)İ580:990~ MOVE CURSOR FORWARDCH$(21)İ640:990SAME AS BEFORECH$(18)A$(CT)B$:P1:990CH$(16)ī360DELETE A CHARACTERCLA$(CT)(A$(CT),P1)CH$(A$(CT),1):W0A$(CT)(A$(CT),P1)CH$(A$(CT),LP1):k: BACKWARD MOVE~DPP1:P0610NP1:CT0ıX:420::CTCT1:CT1CTNFbB$A$(CT):L(A$(CT))lv FORWARD MOVEPP1:PL1PL1+PT)ı#X1LN(CT)LL:(95);::;DELETE SUBROUTINE FPLı[L1A$(CT)"":{PLA$(CT)(A$(CT),P1):P1A$(CT)(A$(CT),L1):A$(CT)(A$(CT),P1)(A$(CT),LP):INSERT SUBROUTINEP1A$(CT)CH$A$(CT):(&PCT1 rCCNFCC1; |T$A$(CT):A$(CT)A$(CC):A$(CC)T$A _ >> INPUT ROUTINE CODE <<v PRINT NEW STRING VT(CT):H2(CT):EDĺA$(CT): (A$(CT))1HT(CT)H2(CT)ĺNN$(CT);:LL(NN$(CT)):450 A$(CT);:L(A$(CT)):LLLLLLN(C205 6:OF$XL",V"V:X1NF:WF$RR",B"BY(X):A$(X):W @WF$0:RC:RT:ID:CL$:WF0:p JREAD VARIABLES FILE T:D$"OPEN"N$".CONFIG":D$"READ"N$".CONFIG":NF:X1NF:VT(X),HT(X),NN$(X),H2(X),LN(X),BY(X)::XL:V:D$"CLOSE": ^FLIP FIELDS hCC0ı3 A$">> READING RECORD #"(RR)" <<":1120l :OF$XL",V"V:X1NF:RF$RR",B"BY(X):A$(X)::CL$r GET ID NUMBER :OF$XL",V"V:RF$:RO,RT,IO:CL$: WRITE A RECORD "RR0WFRR: ,A$">> SAVING RECORD #"(RR)" <<":116,226,229 G$(7)3 A$"":D$(4):::G$(7)K SL(770):DV(771)j (768)255(769)255180 768,255:769,255:770,SL:771,DV 2630 READ A FILE :OF$XL",V"V:X1RC:RF$X",B"BY(S):S$(X)::CL$: READ A RECORD RR*************** _2 d1013,76:1014,9:1015,3N nX777827:X%:X,X%:X x201,132,240,3,76,201,222,32,177,0,32,227,223,32,44,213,232,189,0,2,208,250,134,157,138,32,82,228,160,0,145,131,200,165,113,145,131,200,165,114,145,131,160,2,162,0,165,157,7! ************************=* *[* COREFILER *y(* *2* FILE MANAGEMENT *<* *F* PROGRAM *P* * Z*********          :M$"DIRECTORY COLUMN SELECTION":1440:5:" 1 COLUMN (NORMAL)":" 2 COLUMNS"" 4 COLUMN DIRECTORY":" 5 COLUMNS IN DIRECTORY":"WHICH ?"(8);A$:(A$"A"A$"D")A$(13)A$(27)980A$(27)A$(13)ıT44580:BTH":1070$zA$"N"Ĺ44541,128:910S6:M$"ENTER THE CHARACTER":1120:44541,XM$"DISPLAY THE CHARACTER TO THE RIGHT OF "(10)"THE FILE LENGTH":1070A$"N"Ĺ44559,128:6:M$"ENTER THE CHARACTER":1120:44559,X:*COLUMNS*S:45992,X<420:M$"ENTER TEXT FILE CODE":1120:45991,X:L>*SECTOR #*HT44557:B44555:M$"DISPLAY THE FILE LENGTHS":1070RA$"N"1750\B,32:B1,66:T,174:f*FUNNY CHARS*pM$"DISPLAY THE CHARACTER TO THE LEFT OF THE FILE LENGTODE":1120:44515,X:&*FILE TYPE*VT44539:BT2:M$"DISPLAY FILE TYPES":1070g A$"N"17501770:5:M$"ENTER BINARY FILE CODE":1120:45994,X 10:M$"ENTER APPLESOFT FILE CODE":1120:45993,X *15:M$"ENTER INTEGER FILE CODE":1120)A$(13)680(A$(27)A$(13)ıS:(A$)64720,770,840,880,950::620f*LOCK/UNLOCK*T44519:B44517:M$"DISPLAY LOCK/UNLOCK CODES":1070A$"N"17501770:6:M$"ENTER 'UNLOCK' CODE":1120:44508,X11:M$"ENTER 'LOCK' C LENGTH SURROUNDINGS"::" NUMBER OF COLUMNS IN DIRECTORY"}:" EXIT TO MAIN MENU":1790:(44567)29CHA30:670CHA(40COL)DC:44567,CHA122:"FILENAME LIMIT: "CHA" CHARACTERS":17:"WHICH ?"(8);A$:(A$"A"A$"E")A$(275,175:44466,179:#:A$(13)ı>D*PUT TITLE IN MEMORY*GNMM0lXITB1:MMMM1:I,IA%(MM)::b*DIRECTORY FORMAT*lM$"FORMAT ALTERATION":1440:4:" LOCK/UNLOCK CODES":v" FILE TYPES"::" FILE LENGTHS":=" FILE *OK?*T11:1:"RETURN=>OK"3)"SPACE=>REDO"3)"ESC=>MENU"::"WHICH ?"(8);}A$:A$" "A$(27)A$(13)530A$" "B45999:T46010:ML12:44463,11:44465,175:44466,179::320&0A$(27)B45999:T46010:ML12:44463,11:4446::"DISPLAY THE VOLUME NUMBER ?"(8);GA$:A$"N"A$"Y"460|A$"N"B44480:TB2:1750:BDL:TDH:VOL0:50044480,32:44481,66:44482,174:VOL1*PRINT TITLE*34,2::34,1:5:"THE WAY IT WILL APPEAR:":8:1720:VOLĺ(46017):ML12:44463,11:44465,175:44466,179:410r A$"B"B45995:T46010:ML16:44463,15:44465,171:44466,179:410 B48351:T48382:ML32:44463,31:44465,223:44466,188 DHT:DLB *GET TITLE* 10:"ENTER TITLE":V12:1460 *VOLUME #?**:" 12 CHARACTER TITLE"R J" 16 CHARACTER TITLE":" 32 CHARACTER TITLE"u T9:"YOUR CHOICE < >"(8)(8); ^A$:(A$"A"A$"C")A$(27)A$(13)350 hA$(27)A$(13)ı r1:868:(A$)60::"<"A$">":+ |A$"A"B45999:T46010 A$:A$"E"A$"A"2404 *GOTO PROPER ROUTINE*_ :(A$)64320,620,1140,280,1360:140t *SEE DIRECTORY* :::(4)"CATALOG" "::"PRESS ANY KEY" ,:16384,128:A$::110 6*DIRECTORY TITLE* @M$"* DIRECTORY TITLE *":1440:5NGE DIRECTORY TITLE"C 11:10:(91)"B] CHANGE DIRECTORY FORMAT"s 14:10:(91)"C] LOAD/SAVE FORMAT & TITLE" 17:10:(91)"D] SEE DIRECTORY" 20:10:(91)"E] EXIT PROGRAM" *YOUR CHOICE?* 23:10:"YOUR CHOICE "(91)" ]"(8)(8);48,("-"):0,390:0,3946:48,("!")128:2,450:2,4539Y x34,1:32,1:35,23:33,38e *MENU* :M$"THE DISK DIRECTORY DESIGNER":1440 3:M$"---------------------------":1440 5:M$"WRITTEN BY TIM LEWIS":1440 8:10:(91)"A] CHA ************************=** THE DISKETTE **[** DIRECTORY DESIGNER **y(** BY **2** TIM LEWIS **<************************FP*INITALIZE VARIABLES*Z::255::1380d*BORDER*; n:          768::# *NEGATE CAT. ROUTINE*9 IBT:I,234::V *ACTIVATE CAT. ROUTINE*r B,32:B1,237:T,253: *FIGURE EXTRA SPACE* DC((44517)234)((44539)234) DCDC3((44555)234)((44541)128)((44559)128):TA$"@"IA%(L)(A$)h1480Or:A$;::IA%(L)(A$):A$"@"IA%(L)(A$)64Y|1480jA$"@"1620:A$;::IA%(L)(A$)64:1480A$"@"1620((A$)32);:IA%(L)(A$)160:1480*PRINT WAY IT APPEARS*I1ML 769,IA%(I):;:X2:1480."A$(6)Ė1:"FLSH";:X3:1480Q,A$(3)Ė1:"CTRL";:X4:1480u6A$(12)Ė1:"LOWR";:X5:1480@LMLA$" "A$(95)1480JLL1:HH1:X1620,1630,1650,1670,1690TA$;:IA%(L)(A$)128:1480^:A$;::IA%(L)(A$)64:1ML:"-";::H6V:H:A$6A$(29)A$(91)MA$(30)A$(95)cA$(0)A$(28)zA$(13)L0ĺ:A$(8)L01480A$(8)IA%(L)32:LL1:HH1:A$;:868:1480A$(14)Ė1:"NRML";:X1:1480 A$(9)Ė1:"INVS")1:COL1:CHA30COL2MnML0:L0:H0:V0:1790:CHA13COL4:CHA5COL5tx768,169:770,76:771,240:772,253IA%(32)*CENTER*20((M$)2):M$:*INPUT ROUTINE*L0:X1:I132:IA%(I)160::V:1"NRML>"(10);:I:(4)"WRITE";:1720:FX13:"BLOAD";:1720:"."X::(4)"CLOSE"k(:7:"TO INSTALL NEW FORMAT:":2"USE 'EXEC ";:771,240:1720:"'"<::771,240:290F*EXIT*P::24::Z*INITIALIZE*dT0:B0:DL45999:DH46010:CHA(44567:771,240:*SAVE FORMAT*K:(4)"BSAVE";:1720:".1,A$AD98,L$97"v(4);"BSAVE";:1720:".2,A$B3A7,L$04"(4)"BSAVE";:1720:".3,A";DL;",L";DHDL1*EXEC FILE* (4)"OPEN";:1720::(4)"DELETE";:1720:(4)"OPEN";:1720:>AVE DIRECTORY"D" ESC=>MENU"12)"SPACE=>REDO"::"WHICH ?"(8);tA$:A$"L"A$(27)A$" "A$"S"1180A$(27)Ĺ771,240:A$" "ė:1140:12:11::"ONE MOMENT PLEASE.":A$"S"1250 X13:(4)"BLOAD";:1720:"."X:13)A$(27)ġ:!L(8)":"A$:;V*ASK FOR ALTERATION*a`1:V(37)3:M$:1460:XIA%(1):yj*LOAD/SAVE FORMAT*tM$"* LOAD/SAVE DIRECTORY TYPE *":1440:5:"FILENAME TO USE:"~V7:ML15:1460:MLL:771,23711:"OAD DIRECTORY"5)"RETURN TO CALLERHCH$(13)ıRRETURN WITHOUT SAVELN(CT)P1:CTCT1:L(A$(CT)):CTNFCT11L MOVE CURSOR BACKWARDdCH$(8)İ580:990~ MOVE CURSOR FORWARDCH$(21)İ640:990SAME AS BEFORECH$(18)A$(CT)B$:P1:990CH$(16)ī360DELETE A CHARACTERCLA$(CT)(A$(CT),P1)CH$(A$(CT),1):W0A$(CT)(A$(CT),P1)CH$(A$(CT),LP1):k: BACKWARD MOVE~DPP1:P0610NP1:CT0ıX:420::CTCT1:CT1CTNFbB$A$(CT):L(A$(CT))lv FORWARD MOVEPP1:PL1PL1+PT)ı#X1LN(CT)LL:(95);::;DELETE SUBROUTINE FPLı[L1A$(CT)"":{PLA$(CT)(A$(CT),P1):P1A$(CT)(A$(CT),L1):A$(CT)(A$(CT),P1)(A$(CT),LP):INSERT SUBROUTINEP1A$(CT)CH$A$(CT):(&PCT1 rCCNFCC1; |T$A$(CT):A$(CT)A$(CC):A$(CC)T$A _ >> INPUT ROUTINE CODE <<v PRINT NEW STRING VT(CT):H2(CT):EDĺA$(CT): (A$(CT))1HT(CT)H2(CT)ĺNN$(CT);:LL(NN$(CT)):450 A$(CT);:L(A$(CT)):LLLLLLN(C205 6:OF$XL",V"V:X1NF:WF$RR",B"BY(X):A$(X):W @WF$0:RC:RT:ID:CL$:WF0:p JREAD VARIABLES FILE T:D$"OPEN"N$".CONFIG":D$"READ"N$".CONFIG":NF:X1NF:VT(X),HT(X),NN$(X),H2(X),LN(X),BY(X)::XL:V:D$"CLOSE": ^FLIP FIELDS hCC0ı3 A$">> READING RECORD #"(RR)" <<":1120l :OF$XL",V"V:X1NF:RF$RR",B"BY(X):A$(X)::CL$r GET ID NUMBER :OF$XL",V"V:RF$:RO,RT,IO:CL$: WRITE A RECORD "RR0WFRR: ,A$">> SAVING RECORD #"(RR)" <<":116,226,229 G$(7)3 A$"":D$(4):::G$(7)K SL(770):DV(771)j (768)255(769)255180 768,255:769,255:770,SL:771,DV 2630 READ A FILE :OF$XL",V"V:X1RC:RF$X",B"BY(S):S$(X)::CL$: READ A RECORD RR*************** _2 d1013,76:1014,9:1015,3N nX777827:X%:X,X%:X x201,132,240,3,76,201,222,32,177,0,32,227,223,32,44,213,232,189,0,2,208,250,134,157,138,32,82,228,160,0,145,131,200,165,113,145,131,200,165,114,145,131,160,2,162,0,165,157,7! ************************=* *[* COREFILER *y(* *2* FILE MANAGEMENT *<* *F* PROGRAM *P* * Z*********           & & EXIT PROGRAM%& PP2590C& PR:H136::H:0:1002I& g&( :::(4)"RUN HELLO.DB"|&2 STATUS DISPLAY&< (7):772,255:1450&F RT450:NF17:VT(18),HT(18),NN$(18),M$(18),A$(18),H2(18),LN(18),BY(18)%'P :3:"WHAT IS THE NAME OF :D$"PR#0":1450&% DELETE A RECORD:% RR0RC01410% A$"YOU ARE ABOUT TO ERASE A RECORD":A2$"DO YOU WISH TO PROCEED?":AX0:1170:AN$"Y"1450% RRRCRCRC1:RRRC:220:310:% :A1RR:RRRC:220::RRA1% RCRC1:RC0RC0% 310RC:RRZB::D$"PR#0":230:24{$t D11::D$"PR#"PR:::D1NF:HT(D)D1):HT(D)H2(D)ĺNN$(D);H2(D)(HT(D)(NN$(D))))$~ A$(D);:VT(D)VT(D1)D1H2(D)(A$(D))::2470$ :VT(D)1VT(D1)āS3VT(D)2VT(D1)::$ D11:$ BZĂZB:BZ0% 601#$ :VT(D)1VT(D1)āS3VT(D)2VT(D1)::<#. D11:p#8 :D$"PR#0"::"DO YOU WANT ANOTHER TEST?";(8)#B A$:A$"Y"A$"N"2370#L A$"Y"2320#V "DO YOU WANT TO PRINT THE WHOLE FILE"#` A$:A$"Y"A$"N"2400$j A$"Y"BZ1:ZB1"PRINT TEST PATTERN FOR ALIGNMENT?"::10:"[Y]ES OR [N]O";Y"A$:A$"Y"A$"N"2300m" A$"N"ĺ:2390" D11::D$;"PR#";PR:D1NF:HT(D)D1):HT(D)H2(D)ĺNN$(D);H2(D)(HT(D)(NN$(D))))# (TE$,LN(D));:VT(D)VT(D1)D1H2(D)LN(D)::23H2(CT)34:HT(CT)H2(CT):NN$(CT)(RR):A$(CT)"":ED1:970O!(A$(CT))11450U!~!RX(A$(CT)):RX1RXRCĺ(7):2200!RRRX!220:1450!PRINT SCREEN DATA!RR01410!:19:"TURN ON YOUR PRINTER! THEN PRESS [RTN]";::A$;"::"IS THIS THE RECORD YOU WANT? (Y/";::"N";::") ";:AN$:AN$"Y"ġ:1470o pAN$(27)ġ:RRRX:220:1450 z:A$"> SEARCHING <":1390:10:1130  >>READ A RECORD<< 9!::5:G$"ENTER RECORD NUMBER TO READ: ";:CT0:VT(CT)20:LN(CT)3:SES:RXRR:A$"> SEARCHING <":11201RR1RCT (S$(RR),SF)A$(0)İ220:2150Z*m4KEY NOT FOUND>A$"SORRY. I COULD NOT FIND:":A2$"> "A$(0)" <":(A2$)40A2$A$(0)HAX1:1170RRRRX:220:1450\CORRECT RECORD?M f1310::TEM TO SEARCH FOR:":LN(0)LN(S):VT(0)22:H2(0)1:A$(0)"":ED1:CT0:970:SF(A$(0))fCLEAR SCREENqED0:SF11450IS DATA IN MEMORYSSE2060GET THE DATAA$"> RECALLING DATA <":1120:200200COMPARE TO KEY$ X1:20:X". "NN$(X):XNFXX1::18902l:HvGET FIELD NUMBER::"FOUND IN WHAT FIELD? (1-"NF") :":CT0:VT(0)20:LN(0)2:H2(0)30:A$(0)"":ED1:970(A$(CT))11450S(A$(CT)):S1SNF1920GET SEARCH KEYT::"ENTER IEAD LAST RECORD2RRRR1:RR1RR1:1450A220:1450WREAD NEXT RECORD]|&RRRR1:RRRCRRRC:14500220:1450:>> ENTRY SEARCH <<DCLEAR SCREENN1:9:" ":1390::X1XPRINT FIELDS*bX". "NN$(X);:XNFX::420:CTCT1:CTNFCT1MCH$(24)WF0:RCRC1:RRRC:350:220:1450W1690fRR01410::14:"EDIT A RECORD"::" PRESS TO RETURN TO COMMAND MENU."ED1:1310:CT1:WF1:950::420:CTCT1:CTNFCT11750R570TAN$"?"2620$^AN$"/"Ĭ5h(7);:1520GrADD A RECORDq|RCRTA$"> DISK FULL <":1150:1450AD1:::14:"ADD A RECORD"::" PRESS TO RETURN TO COMMAND MENU."RCRC1:SE0:RRRC:ED1:1290:CT1:WF1B$A$(CT)::97028:"(?) STATUS"2"(N) NEXT";:28:"(X) EXIT"Z1:24:"ENTER COMMAND: ";:AN$:23lAN$"A"1660~AN$"E"1720AN$"L"1780AN$"N"1820"AN$"S"1870,AN$"R"22006AN$"P"2270@AN$"D"İ2490:1450JAN$"X"2CT1NF:A$(CT)"":1NORMAL ENTRY POINTW10621:ED0:1310:WFİ290:1310dAD1660j"(A) ADD";:11:"(S) SEARCH";:28:"(D) DELETE""(E) EDIT";:11:"(R) READ RECORD";:28:"(/) NEW FILE""(L) LAST";:11:"(P) PRINT";:NF:HT(CT)H2(CT)13504<VT(CT):HT(CT):NN$(CT);EF420::19:YPPRINT 40 "="'SrZ1:X140:"=";::dCLEAR DATA WINDOWn34,2:35,17::34,18:35,24:xERROR-NO RECORDSA$"> NO RECORD AVAILABLE <":AX1:1150COMMAND MENU$(13)Ĭ) G$:279034,18( RRRC:220:14503( FILE NOT ON DISKB( 216,0::d( EM$N$" IS NOT ON THIS DISK"( G$G$:5:20(EM$)2:EM$( 10:4:"PLEASE INSERT CORRECT DATA DISK"( 12:3:"RETURN TO CONTINUE OR ESC TO EXIT ";:A$( A$(27)ė: ) ATHE FILE":N$:N$""(N$,1)"A"26400'Z 2750I'd D$"VERIFY"N$:216,0R'n 340['x PR1' OF$D$"OPEN"N$",L":RF$D$"READ"N$",R":WF$D$"WRITE"N$",R":CL$D$"CLOSE":D140:TE$TE$"X":' 270:RCRO:IDIO' S$(RT)( 2:1370:18:1370::M$"DIRECTORY COLUMN SELECTION":1440:5:" 1 COLUMN (NORMAL)":" 2 COLUMNS"" 4 COLUMN DIRECTORY":" 5 COLUMNS IN DIRECTORY":"WHICH ?"(8);A$:(A$"A"A$"D")A$(13)A$(27)980A$(27)A$(13)ıT44580:BTH":1070$zA$"N"Ĺ44541,128:910S6:M$"ENTER THE CHARACTER":1120:44541,XM$"DISPLAY THE CHARACTER TO THE RIGHT OF "(10)"THE FILE LENGTH":1070A$"N"Ĺ44559,128:6:M$"ENTER THE CHARACTER":1120:44559,X:*COLUMNS*S:45992,X<420:M$"ENTER TEXT FILE CODE":1120:45991,X:L>*SECTOR #*HT44557:B44555:M$"DISPLAY THE FILE LENGTHS":1070RA$"N"1750\B,32:B1,66:T,174:f*FUNNY CHARS*pM$"DISPLAY THE CHARACTER TO THE LEFT OF THE FILE LENGTODE":1120:44515,X:&*FILE TYPE*VT44539:BT2:M$"DISPLAY FILE TYPES":1070g A$"N"17501770:5:M$"ENTER BINARY FILE CODE":1120:45994,X 10:M$"ENTER APPLESOFT FILE CODE":1120:45993,X *15:M$"ENTER INTEGER FILE CODE":1120)A$(13)680(A$(27)A$(13)ıS:(A$)64720,770,840,880,950::620f*LOCK/UNLOCK*T44519:B44517:M$"DISPLAY LOCK/UNLOCK CODES":1070A$"N"17501770:6:M$"ENTER 'UNLOCK' CODE":1120:44508,X11:M$"ENTER 'LOCK' C LENGTH SURROUNDINGS"::" NUMBER OF COLUMNS IN DIRECTORY"}:" EXIT TO MAIN MENU":1790:(44567)29CHA30:670CHA(40COL)DC:44567,CHA122:"FILENAME LIMIT: "CHA" CHARACTERS":17:"WHICH ?"(8);A$:(A$"A"A$"E")A$(275,175:44466,179:#:A$(13)ı>D*PUT TITLE IN MEMORY*GNMM0lXITB1:MMMM1:I,IA%(MM)::b*DIRECTORY FORMAT*lM$"FORMAT ALTERATION":1440:4:" LOCK/UNLOCK CODES":v" FILE TYPES"::" FILE LENGTHS":=" FILE *OK?*T11:1:"RETURN=>OK"3)"SPACE=>REDO"3)"ESC=>MENU"::"WHICH ?"(8);}A$:A$" "A$(27)A$(13)530A$" "B45999:T46010:ML12:44463,11:44465,175:44466,179::320&0A$(27)B45999:T46010:ML12:44463,11:4446::"DISPLAY THE VOLUME NUMBER ?"(8);GA$:A$"N"A$"Y"460|A$"N"B44480:TB2:1750:BDL:TDH:VOL0:50044480,32:44481,66:44482,174:VOL1*PRINT TITLE*34,2::34,1:5:"THE WAY IT WILL APPEAR:":8:1720:VOLĺ(46017):ML12:44463,11:44465,175:44466,179:410r A$"B"B45995:T46010:ML16:44463,15:44465,171:44466,179:410 B48351:T48382:ML32:44463,31:44465,223:44466,188 DHT:DLB *GET TITLE* 10:"ENTER TITLE":V12:1460 *VOLUME #?**:" 12 CHARACTER TITLE"R J" 16 CHARACTER TITLE":" 32 CHARACTER TITLE"u T9:"YOUR CHOICE < >"(8)(8); ^A$:(A$"A"A$"C")A$(27)A$(13)350 hA$(27)A$(13)ı r1:868:(A$)60::"<"A$">":+ |A$"A"B45999:T46010 A$:A$"E"A$"A"2404 *GOTO PROPER ROUTINE*_ :(A$)64320,620,1140,280,1360:140t *SEE DIRECTORY* :::(4)"CATALOG" "::"PRESS ANY KEY" ,:16384,128:A$::110 6*DIRECTORY TITLE* @M$"* DIRECTORY TITLE *":1440:5NGE DIRECTORY TITLE"C 11:10:(91)"B] CHANGE DIRECTORY FORMAT"s 14:10:(91)"C] LOAD/SAVE FORMAT & TITLE" 17:10:(91)"D] SEE DIRECTORY" 20:10:(91)"E] EXIT PROGRAM" *YOUR CHOICE?* 23:10:"YOUR CHOICE "(91)" ]"(8)(8);48,("-"):0,390:0,3946:48,("!")128:2,450:2,4539Y x34,1:32,1:35,23:33,38e *MENU* :M$"THE DISK DIRECTORY DESIGNER":1440 3:M$"---------------------------":1440 5:M$"WRITTEN BY TIM LEWIS":1440 8:10:(91)"A] CHA ************************=** THE DISKETTE **[** DIRECTORY DESIGNER **y(** BY **2** TIM LEWIS **<************************FP*INITALIZE VARIABLES*Z::255::1380d*BORDER*; n:          768::# *NEGATE CAT. ROUTINE*9 IBT:I,234::V *ACTIVATE CAT. ROUTINE*r B,32:B1,237:T,253: *FIGURE EXTRA SPACE* DC((44517)234)((44539)234) DCDC3((44555)234)((44541)128)((44559)128):1A$"@"IA%(L)(A$)h1480Or:A$;::IA%(L)(A$):A$"@"IA%(L)(A$)64Y|1480jA$"@"1620:A$;::IA%(L)(A$)64:1480A$"@"1620((A$)32);:IA%(L)(A$)160:1480*PRINT WAY IT APPEARS*I1ML 769,IA%(I):;:X2:1480."A$(6)Ė1:"FLSH";:X3:1480Q,A$(3)Ė1:"CTRL";:X4:1480u6A$(12)Ė1:"LOWR";:X5:1480@LMLA$" "A$(95)1480JLL1:HH1:X1620,1630,1650,1670,1690TA$;:IA%(L)(A$)128:1480^:A$;::IA%(L)(A$)64:1ML:"-";::H6V:H:A$6A$(29)A$(91)MA$(30)A$(95)cA$(0)A$(28)zA$(13)L0ĺ:A$(8)L01480A$(8)IA%(L)32:LL1:HH1:A$;:868:1480A$(14)Ė1:"NRML";:X1:1480 A$(9)Ė1:"INVS")1:COL1:CHA30COL2MnML0:L0:H0:V0:1790:CHA13COL4:CHA5COL5tx768,169:770,76:771,240:772,253IA%(32)*CENTER*20((M$)2):M$:*INPUT ROUTINE*L0:X1:I132:IA%(I)160::V:1"NRML>"(10);:I:(4)"WRITE";:1720:FX13:"BLOAD";:1720:"."X::(4)"CLOSE"k(:7:"TO INSTALL NEW FORMAT:":2"USE 'EXEC ";:771,240:1720:"'"<::771,240:290F*EXIT*P::24::Z*INITIALIZE*dT0:B0:DL45999:DH46010:CHA(44567:771,240:*SAVE FORMAT*K:(4)"BSAVE";:1720:".1,A$AD98,L$97"v(4);"BSAVE";:1720:".2,A$B3A7,L$04"(4)"BSAVE";:1720:".3,A";DL;",L";DHDL1*EXEC FILE* (4)"OPEN";:1720::(4)"DELETE";:1720:(4)"OPEN";:1720:>AVE DIRECTORY"D" ESC=>MENU"12)"SPACE=>REDO"::"WHICH ?"(8);tA$:A$"L"A$(27)A$" "A$"S"1180A$(27)Ĺ771,240:A$" "ė:1140:12:11::"ONE MOMENT PLEASE.":A$"S"1250 X13:(4)"BLOAD";:1720:"."X:13)A$(27)ġ:!L(8)":"A$:;V*ASK FOR ALTERATION*a`1:V(37)3:M$:1460:XIA%(1):yj*LOAD/SAVE FORMAT*tM$"* LOAD/SAVE DIRECTORY TYPE *":1440:5:"FILENAME TO USE:"~V7:ML15:1460:MLL:771,23711:"OAD DIRECTORY"5)"Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱb  HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pMV0UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0 hHj=i<<=kbޙץ,,stHʈzyhH ʈpoophMm X RQtPsh`y                L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`  `% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` Lh 8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH Z ,խwqq膸 J즸 , hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J 5BwУ8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 ZeCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! hē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8oph0L8 MLh8HH`BLE? ";:1120:RF2:1360: IF A DISK COMMANЗ{y SՠUEowyywxzzxwIy:w \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤ.QP$  "LWHhL:5~  e  eȱeeLaL LRwwxȆH Jh`w5U,w`,hbhcbwȱbxcȘHH`wȄ ep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   堰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM0UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈzyhH ʈpoophMm X RQtPsh`yhH               Z1 ::REFILER.COMP"1 d(4)"BRUN COREFILER FORM.COMP"U n:A$"COREFILER ":X14:A$;: x24:(A$,8);:X13:A$;::"C";:2039,15:23:"O"; 2:1:"O";:40:" "(8);:Y1:Z3:X121 (A$,Y,1)(A$,Z,1);:40:YY1:Y(A$)Y1 ZZ1:Z(A$) ::110%X110:768X,0:I8:5:"1. ENTER/CHANGE DATA":w(5:"2. ADD/EDIT CONFIGURATION FILE(S)":25:"3. EXIT TO BASIC":<:16:"WHICH ?";:A$:A$;:(A$"1"A$"3")A$(27)60F(A$)90,100,80P: Z(4)"BRUN CO