' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH 20 LDIVERSI-DOS(TM) BY BILL BASHAM C1982 DSR THIS DISK CONTAINS A HIGH-SPEED OPERATING SYSTEM CALLED DIVERSI-DOS. TO LEGALLY USE DIVERSI-DOS, PLEASE SEND A ONE-TIME FEE OF $30 DIRECTLY TO: DSR, INC. 5848 CRAMPTON CT. ROCKFORD, IL 61111 815 877-1343 (VISA/MC) YOU WILL RECEIVE A UTILITY DISK, DOCUMENTATION, AND A VALIDATION STICKER AS PROOF OF PAYMENT. YOUR HONESTY WILL ALLOW DSR TO DISTRIBUTE FUTURE PROGRAMS THIS SAME, LOW-COST WAY. <> Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-p  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(`# d£àĠàz( u`ˠӠ®Ġɠ٠ήӠΠŠҠ͍ҠʮĠΠӍŠĠӠƠҍԠȮˍŠҠӠƠΠ̍Š̠ŠҍĭӠ̍ŠҠƠӠҮɮǮ͠ÍΠԮͮĠԠ®ҮŠǠ٠ҍҠРͮŠӠƠӠΠٍŠӠƠΠӍˠŠҍӧҍĠɮРӮҮĠˠҍΠ٠ԠƠōǠ̠ͮҠȠȮĠҠŠ̠Ӡ͠ΠǠҍ͠ĠŮӍٍ̠Πʮٍ̠ĠĠԻĠĠǠŠԠĠΠٍӠĠҠĠΠčŠ̠ΠƠӍȠӠŮŠ̠ΠƠ̠ӍΠҠ̮ҮΠӠΠ̠ĠĠŠàǠƠ̠ӍŠ٠ȮŠ̠ΠƠĠĠˍɠԍΠĠ̮ĠΠŠٍ̠ƠΠʮ̠ӍҠҠʮӍΠЮîàРΠčΠӮӮĠҠĠȠ͠ōŠӠŠōΠӮ̮ĠɠǮĮŠǠƠӍҠ̠ƮέĠӍέӠȍŠԠӠΠ΍̠٠٠ΠŠ̠ӠƠӍԠΠɮҮҠȠ΍ΠĠĠˠԍŠŠƠҠ΍Π׮ȠĠӠŠǮàǠΠΠӍΠԠʮĠӠ٠֮ҠӠĠٍ͠ĠӠĠӠƠŠȠō٠ҠƮŠ٠ƠӍԠĠĠ٠ԍŠŠƠӍ̠Š׮ŠΠƠȠ͠ӍӍŠ̠ȮĠӭŠĠĠҠΠŠԠ΍ˠ΍ӠĠԠǮŠΠƠӠ٠ҠǍȠčŠΠƠŠΠŠŠ͍Ǡ΍Š٠Ơ΍΍͠ŮЮŠ͠ӍŠ̠ҮҠЍΠōŠǠӠΠŠȠٍנĠͮӭĠҠҠӍԭΠԍԠӠΠӍΠ̠ǮĠΠΠ̮٠ĠӍĠΠȮŠΠҠȮǮŠӠƠ̠ح٠ӍĠΠîĠŠЮŠԠƠŠԠàōΠ̠î͠Ġ٠Ӡ̮ҮĠΠ̠ˍŠ̠٠ƠԠӍΠōԠӍҠҠҠ͍ŠΠƠà΍ԠĠ׮ĠŠʮōҭǠӍ٠ĠĠҠ̍ԠĠӍɠčĠ٠Ơ٠ӠĠӍΠΠŮĠΠˠٮȠΠ٠ҍΠĻҭȻ͍Š٠ƠŠϠΠĠɮΧӠ٠ƠٍҠΠĠӠàӠƠٍԠλҠŠĠŠ؍Š΍ˠ΍à΍ΠΠʮĠҠĠŠƠŠǠ̍ҠԠĠҠŠӠƠԠԮӍˠԠʮŠ٠٠ٍנ΍ŠˠӠƠǠɠĠŠʮŠŠҠƠŠծӮٍҠȠҮĠҠ΍ŠӠɍŠ٠ӠƠӍΠλҮӍĠΠǮĠҠčЭϠōǠҠĮĠǠ΍ŠōŠ̠ҮŠӍΠΠîΠҠȮĠǠҠĮĠǠ΍ŠԠ̠ӮӠΠŠōŠӍҠ̠ʮĠΠΠčŠōɍŠ٠ӠƍҠ٠Šĭ٠͍̠ĠϠӠϠŠōɍӍӠΠŠōҠ̠ʮĠ̠ĠϠӠϠŠōٍŠ̠׮ŠٍŠĠŠӠƠԍҠ٠ŠΠŠӠԠҮŠĠŠӠƠԍԍɍӍĠ͠ȮĠ̠٠Ҡ̠΍ҠԮϮӍҠԮϮӍˠԠˮŠ̠̠ԍˠԠˮŠ̠̠ԍ              ٍɪˠӍϠɪٍԠ̪ҠҪōҠӯō٠٠ٍͪŪٍͪΠĠٍͪҪٍȪٍŠԠҠ͠ҪӍҪӍԪȍӪٍύҠӍحҠōĪӍ͠ů٠ƠōҪٍĪϪͯōŠٍêҪٍ̠Š̪Ӎٍ̱čٍɪٍ     MED7 v#nARY7 #nWEA4 nMIC9 |nARY8 nAST10ZOO5 CHE3 #$oCOM3 ed[AST11AST12 8 MED5 ph8 ARY6 @A?AST8 yMED6 nt#PHY2 HIS4 IFPHY3 }COM2 ]_MIS2 hOPT3 CEL8 #$AST9 CHE2 ZOO4 BOT2  CEL7 !$" PHY1 #FMET1 \ARY5 \HIS3 FHMIC1 F}MIC2 }|xMIC3 zyxMIC4 }{|MIC5 yxMIC6 x#MIC7 {|#MIC8 |}zMAT1 e[(^ZOO2 ^GEO4 <AARY4 =SOC1 hECL1 6AST6 CEL6 %p"MAT2 g"ZOO3 "OPT2 jARC2 ՙWEA3 AST7 O1 WEA2 MED3 tn$oMIS1 *oCEL5  $%AST5 GEO3 <>A?FSY1 NVC3 AGR3 8+ARC1 NVC4 *NVC5 MED4 q|pARY3 AST3  ARY2 ECN1 .)/CEL3 &GEO2 ?AAST4 BOT1 OPT1 MED2 pno|HIS2 FNVC1 NVC2 COM1 Z_[CEL4  "ZO]_GEO1 @*-hCEL1 $%p~MED1 orsAST1 AGR1 32+ PHI1 ^CHE1 HIS1 GFWEA1 AGR2 5467CEL2 $"%IMM1 PupoQAST2  ARY1 MED7 v#nARY7 WEA4 3MIC9 :|ARY8 BAST10 ZZOO5 pCHE3 ~#$oCOM3 ed[AST11 AST12 x8 MED5 6phARY6 @@A?AST8 JyMED6 nt#PHY2 HIS4 IFPHY3 ʗ}COM2 ]_MIS2 5hOPT3 >CEL8 H#$AST9 hCHE2 ZOO4 .BOT2 8 CEL7 T!$" PHY1 b#FMET1 l\ARY5 xHIS3 FHMIC1 BF}MIC2 L}|xMIC3 ZzyxMIC4 ~}{|MIC5 yxMIC6 x#MIC7 {|#MIC8 ƀ b|}zMAT1 ~e[(^ZOO2 GEO4 <AARY4 =SOC1 -hECL1 66AST6 BCEL6 j%p"MAT2 zgZOO3 OPT2 jARC2 ՙWEA3 $AST7 O1 WEA2 MED3 tn$oMIS1 0*CEL5 < $%AST5 HGEO3 d<>A?FSY1 vNVC3 AGR3 8+ARC1 NVC4 7*NVC5 @MED4 Lq|pARY3 AST3  ARY2 ECN1 0.)/CEL3 8&GEO2 D?AAST4 \BOT1  OPT1 MED2 pno|HIS2 FNVC1 )NVC2 0COM1 @Z_[CEL4 X "ZO]_GEO1 7@*-hCEL1 > $%p~MED1 JorsAST1 \AGR1 f32+ PHI1 r^CHE1 |HIS1 GFWEA1 AGR2 *5467CEL2 4$"%IMM1 PPupoQAST2 h ARY1 z     MED7 v#nARY7 WEA4 3MIC9 :|ARY8 BAST10 ZZOO5 pCHE3 ~#$oCOM3 ed[AST11 AST12 xEDIT?EIGENg8[ ARY1 z8 MED5 6phARY6 @@A?AST8 JyMED6 nt#PHY2 HIS4 IFPHY3 ʗ}COM2 ]_MIS2 5hOPT3 >CEL8 H#$AST9 hCHE2 ZOO4 .BOT2 8 CEL7 T!$" PHY1 b#FMET1 l\ARY5 xHIS3 FHMIC1 BF}MIC2 L}|xMIC3 ZzyxMIC4 ~}{|MIC5 yxMIC6 x#MIC7 {|#MIC8 ƀ b|}zMAT1 ~e[(^ZOO2 GEO4 <AARY4 =SOC1 -hECL1 66AST6 BCEL6 j%p"MAT2 zgZOO3 OPT2 jARC2 ՙWEA3 $AST7 O1 WEA2 MED3 tn$oMIS1 0*CEL5 < $%AST5 HGEO3 d<>A?FSY1 vNVC3 AGR3 8+ARC1 NVC4 7*NVC5 @MED4 Lq|pARY3 AST3  ARY2 ECN1 0.)/CEL3 8&GEO2 D?AAST4 \BOT1  OPT1 MED2 pno|HIS2 FNVC1 )NVC2 0COM1 @Z_[CEL4 X "ZO]aGEO1 7@*-hCEL1 > $%p~MED1 JorsAST1 \AGR1 f32+ PHI1 r^CHE1 |HIS1 GFWEA1 AGR2 *5467CEL2 4$"%IMM1 PPupoQAST2 h ARY1 z*n5w)$$466n! e 4s&D42M @)6$#l 6J)--D w1$ H-< -36uk a ;.M5/ deM?- D @@ I@ $ M $MIH -/ 6?/-M --$$D166.m)--DD -u -e?c-uv@--$.5.67>7?<'?$-6.-kI<,--5??& $7>'<'I#-%$-6.-6?76?$>655''?>>,, <<$-..%%-677..6?<<77?$%e/4=&%%..77<|%%%...777<<| +,,,455u7777<<??'d #$,---5666>???'$L Pu,,55>>'g,,,555>>>'''I#%,%-pp` 06@Vqv-8]o !3BP`is~(6DR\gr}(3?Tcr)>JTajCOPYRIGHT (C) 1980 INTERACTIVE MICROWARE, INC.     { lݠȱȱ `  iȱi8逑` g RP ` l݅ ` ` l݅ `lm$$`"X`"X`q"Xi"Xm"X$$ )$$`$8}$$m$$8i$$i$ )`$$$ 8 $$`$$$}$$$m$$`$}$$m$&iie $$`$}$$$m$$$$$$.$$i$$i$$k +)}$$$i$ k}$$km$$k$8$$$$$ +)$$$$$ i Ii$L2($8$?$}$$$i$$}$$m$ )͡$$$$`$$$ +)$}$$$i$$ξ$޾$$}$$m$$$$$$$$i$$$i$$$$$$$ '$$$$L]'$$$8$0'$$$$$$$$$$$$LO%$$$$$$$$$$$$$8$$$L&ݺ$&ͺ$!$$$$$$$$$$LO%L& J) )$$$$-$8$$$$8$$$8$$$$Lk& '$e$ i0$F J) )$$$$$8$$$$$0$L%$$$$8$$$La%L%ͦ$ͦ$/$ݸ$'$͸$$$ i`$$$$$$Y$'$ kl$eeȑL%L$ i$$$$$$$$$$$$$$$N$~$$ $L&$$$$8$$$$$$$$$$$}$$$m$$ͦ$?$8 $$$$$8<ͬ$$`$$ݮ$⭰$ͮ$ک$L($$$i$i$$$Ͱ$`$`$$$i $$i$$qk$$qk$$$$Ͱ$$``$i$$i$$8$$$`ER5ĺ"END OF DATA":5030*ER8$ i$$$ !$$ i$$$ `8$<$$$$i$$m$ i$?5$m$$i$1$80$`ݰ$`$$Э$$`ݰ$0$`LR($$i i$$$i$i $ȱ$8$$$I$L~& &y$$L~&Σ$Σ$$$`$L~&$8$i$$i$Le%k}$$km$$&iie$$kikkik$i$$i$kݸ$L&k͸$L&$$$$$ L&k}$$km$$ m$ $$$$$k$}$$$m$$꽴$i$$i$k}$$$qk$$ i$$ $L&(ݲ$0J$ i$$ 'L~& (L~& (L~& +)$$$$$L&$* &9$$L~&$+ &$$L~&$-$Ԡ̩$$$$Y$'$ kl$eeȑL%L$ $i$$ i$$$i$$$$8$$$$L'$$$$$$$D$}$$$m$$$.$$i$$i$    膢 ȱ " <67 L  hl v vo>(yJM6275[(~L%(JC1)L%(JC)JJ1p(BL%(JC)6285(L%(IC)L%(JC):IJ:6260(L%(IC)B:0(IC)B: FOR "F$(0,SP):"SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):"AND PRESS RETURN?";A$:'`:"INSERT "A$" DISK FOR "F$(0,SP):"SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):6215:'eMN:L(N2)11:BL%(LC):6255:(jL1:MN111:BL%(MC1):L%(MCA$"PROGRAM"ĺ::"MOUNT "A$" DISK SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):6215Y&B&G"PRESS RETURN TO CONTINUE OR":"ESC TO ESCAPE TO MENU?";:C$:(C$)13(C$)27Ģ(37):1:6215&L(C$)27ġ::385&Q&VOKıT'[:"INSERT "A$" DISKI):6%I025:H$(I):K$(I):K$(I26)::CD$"CLOSE"%"COPY COMPLETED":B$F$(0,1):N$(0)B$:N0āI19:I%(I)0:J%(I)0:N$(I)"EMPTY":%$F$(0,3)F$(0,1)%)"PRESS RETURN TO CONTINUE?";A$%.30%3HT33:VT23:1775:15:H0ĖH83%8S&=DSK0J:RNK:N0RRI%(N0)K$CD$"WRITE "F$(0,1);T$",R"R:LT(0)ĺH$(K)]$LT(1)ĺK$(K)r$LT(2)ĺK$(K26)$ K:CD$"CLOSE":N$SP3:A$"DESCRIPTORS":6235:%CD$"OPEN "F$(0,1);F$;F$(1,SP);F$(2,SP):CD$"READ ";F$(0,1);F$:J:NK:I02:LT(:6230R#:CD$"OPEN "F$(0,0);T$;",L"RL;F$(1,0);F$(2,0):I0J:RNI:N0RL%(R)#CD$"READ "F$(0,0);T$",R"R:LT(0)ĄH$(I)#LT(1)ĄK$(I)#LT(2)ĄK$(I26)#I:CD$"CLOSE":SP1:A$"DATA":6230::CD$"OPEN "F$(0,1);T$;",L"RL;F$(1,1);F$(2,1)$K1:KRC:6025Y":"CREATING "F$(0,1);D$:SP1:A$"DATA":6235:OKSP0:A$"DATA":6235"CD$"BSAVE "F$(0,1);D$;F$(1,1);F$(2,1)",A"RC",L"(NR1)RM2:RL06175":"CREATING "F$(0,1);T$:5000"NN1N226:J25:N25N2JN2N#SP0:A$"DATA"$(I):K$(I):K$(I26)::CD$"CLOSE":N0C%(0):N00N10:N2NR:6090!N1I%(N0):N2J%(N0)1:NK%(N0):CN11:"SORTING LIST "N0!6245!"COMPRESSING MEMORY DATA":JRC2:NN1N2:RL%(N):RPRC2RMR:I0RM1"J,(IRP):JJ1:::K1K%(N0)1:NRA0Ė1:6040 F$(0,1)A$:L OK1:F$(1,0)F$(1,1)F$(2,0)F$(2,1)OK0 :"CREATING "F$(0,1);F$:A$"DESCRIPTORS":SP3:F$(0,3)F$(0,1):6235:CD$"OPEN "F$(0,1);F$;F$(1,SP);F$(2,SP) CD$"WRITE "F$(0,1);F$:123:NK:I02:LT(I):C!I025:H" FREE SPACES FOR LISTS":A$"INPUT"\A$" LIST NUMBER?";:95:C%(CC)C:CJĺCG$;:1:6015d:uK1MXK1MXK2(K1256):K,K2:K1,K1256K2:CC0:6000:F$(0,0)B$:W0 "NEW DATABASE NAME?";:(DT$,1,10);:19:ML10:W$"":FI0:105:66:772,223:773,154:774,72:775,152>776,72:777,96:768JW1410T6105p:J%NR1:K%(0)J%:J%;6)" ARTICLES IN LIST 0 = "N$(0):J0uI%(1)0:I19:K%(I)J%(I)I%(I):K%(I)0ĺK%(I);6)" ARTICLES IN LIST "I" = "N$(I):JI#z:LLJ%(J)ER9ĺ"DISK FULL"ER2230jER4ĺ"WRITE PROTECTED":"INSERT CORRECT DISK AND PRESS RETURN?";A$:ER11ĺ"ILLEGAL VALUE"ER254ĺCG$;CH$;:"ERROR "ER"PRESS RETURN TO CONTINUE?";A$30%|768,104:769,168:770,104:771,1ER(222)VER8ĺ"I/O ERROR. INSERT CORRECT DISK":"AND PRESS RETURN?";C$:ER6ĺ"FILE NOT FOUND. INSERT CORRECT DISK":"AND PRESS RETURN?";C$:ER5ĺCD$;"CLOSE":"END OF DATA. INSERT CORRECT DISK":"AND PRESS RETURN?";A$:5500F$(1,SP),3)" DRIVE#"(F$(2,SP),3):"AND PRESS RETURN?";A$:x&:CD$"BLOAD "F$(0,SP)D$;F$(1,SP);F$(2,SP)",A"RC:AU0:':CD$"BLOAD "F$(0,SP)D$;F$(1,SP);F$(2,SP)",A"RC:NR(RC)256(RC1):AU0:,QL(TM(NK12)):RL0J(NSRL):QLJQLJ1T "A$" DISK SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):1487A"PRESS RETURN TO CONTINUE OR":"ESC TO ESCAPE TO MENU?";:C$:(C$)13(C$)27Ģ(37):1:1487(C$)27ġ::30OKı;:"INSERT "A$" DISK FOR "F$(0,SP):"SLOT#"(0,2);F$;F$(1,2);F$(2,2):CD$"READ ";F$(0,2);F$:J:NK:I02:LT(I):wI025:H$(I):K$(I):K$(I26)::CD$"CLOSE"}"PRESS RETURN TO CONTINUE?";A$:RL1530385HT33:VT23:1775:15:H0ĖH83;DSA$"PROGRAM"ĺ::"INSERLOSE":SP2:A$"DATA":1495::CD$"OPEN "F$(0,2);T$;",L"WO;F$(1,2);F$(2,2)ZK0J:RNKCD$"WRITE "F$(0,2);T$",R"R:TT(0)ĺH$(K)TT(1)ĺK$(K)TT(2)ĺK$(K26)K:CD$"CLOSE":NSP2:A$"DESCRIPTORS":1500:ECD$"OPEN "F$(E":30oWO01460:NN1N226:J25:N25N2JN2NCSPMWA$"DATA":1495:CD$"OPEN "F$(0,SP);T$;",L"DL;F$(1,SP);F$(2,SP):I0J:RNIN1CD$"READ "F$(0,SP);T$",R"R:TT(0)ĄH$(I)TT(1)ĄK$(I)TT(2)ĄK$(I26)II:CD$"CCD$"READ "F$(0,SP);F$,J:J123ī200SPĺ"LOADING DESCRIPTORS":OK1:NK:RMNK12:RL0:I02:LT(I):LT(I)0RLRLLT(I)1::CD$"CLOSE":5000:"DATABASE "F$(0,SP)" DOES NOT EXIST":"PRESS RETURN TO CONTINUE?";A$::CD$"CLOS";A$:N$(0)F$(0,2)306A$"PROGRAM":SP1:1485o:CD$"BLOAD MAIN,A520";F$(1,1);F$(2,1):520"INPRED"A$"PROGRAM":SP1:1485:CD$"BLOAD MAIN,A520";F$(1,1);F$(2,1):520"SESOMEDE"960CD$"OPEN "F$(0,SP);F$;F$(1,SP);F$(2,SP));D$;",A"RC",L"(TK12)(NR1TR)2,1457NDSĺ:A$"DATA":SP2:1500:n"DATABASE MERGE COMPLETED"I%(1)0:J%(1)0:NKTK:RMTK12NRNRTR:RL0:F$(0,3)B$I02:LT(I)TT(I):LT(I)RLRLLT(I)1"PRESS RETURN TO CONTINUE?:U$F$(2,SP)KDSA$"DATA":F$(1,SP)F$(1,SP):F$(2,SP)F$(2,SP):1500WN1N21pSPN2N21NR:DLRLSP0N2N2TR:DLTL1391DSF$(1,M)S$:F$(2,M)U$K1((NRTR)256)RC,K1:RC1,NRTR256K1":CD$"BSAVE ";F$(0,2ITE "B$;F$:123:TK:I02:TT(I):UI025:H$(I):K$(I):K$(I26)::CD$"CLOSE"`OKDS~DSA$"DATA":SP2:1500SPMDSA$"DATA":1500SP0N2TR1:DLTLN10:SP1N2NR:DLRL1391MM:SPM DSS$F$(1,SP)1RM(NR1),KMSP CG$v"NAME OF MERGED DATABASE?";:W$"":ML10:(DT$,1,10);:(36)9:105:A0Ė1:421B$A$:F$(0,2)B$:F$(1,2)F$(1,M):F$(2,2)F$(2,M):SP2:A$"DESCRIPTORS":1500#:CD$"OPEN "B$;F$;F$(1,2);F$(2,2)::CD$"WR0^SP1:A$"PROGRAM":1485U`:CD$"BLOAD MAIN,A520";F$(1,1);F$(2,1):520"KWIC1"pSPSP:A$"DATA":1500J(RC(RM(NR1)))K(RC1(RM(NR1))):CD$"BLOAD "F$(0,SP);D$;F$(1,SP);F$(2,SP);",A"RM(NR1)RCRCRM(NR1),J RC:"COMPRESSING MEMORY DATA"#NA0aOSPKRC2(NK12)(NR1):ML(TR1)(KN12):UTKKN:LKNPSPKRC2(KN12)TR:MLNR(NK12):UTKNK:LNKTJ0MLL12UN011L:KAN,(IJN2)V:N12LTK11:KAN,255:WAATK12:]42TLRLāI02:TT(I)TL(I):.TLRLWOTL@"TLRLWORLR,KNNKTKNKa6NKKN400;SPI39590(TR(KN12)2)@SPI39590((NR1)(NK12)2)DSPSPEA$"DATA":1500J:CD$"BLOAD "F$(0,SP);D$;F$(1,SP);F$(2,SP)",A"I:K(0,1)A$:A$"DESCRIPTORS":15003 900:B$F$(0,3)< SP1\ A$"DATA":1500:1575:1580m DLQLQLDL NR1TRQLĺCG$:"DATABASES TOO LARGE TO MERGE":350 KNNKTKKN:SP0:A$"DATA":1500:1574 MSP RLTLāI02:TT(I)LT(I):AML110 W$A$:AML110# . 5000a TRNR1:TLRL:DLQL:KNNK:I02:TL(I)LT(I):p F$(0,0)B$x W1 :"NAME OF DATABASE TO BE MERGED":"WITH '";B$;"' ?";:W$"":ML10:(DT$,1,10);:(36)9:105 A0ī205 SP3:F$(0,3)A$:F$(W$,A,1):A$A$C$:C$;:ML(W$));:< C27ġ::::30 C21AMLW$""(W$)(A)AA1:C$(W$,A,1):A$A$C$:C$;:110 C13FIA0ĺMLA);:A$A$(BL$,MLA) C13C12C21ı 110 C$;:A$A$C$:AA1:A(W$)W$A$(W$,A1):CH$; Z _50:Dı# d85:951 iA0:A$""K nC$:C(C$):C31180d sC13FIĺMLA);: xC21A(W$)1W$""ĺMLA);: }C16ı C8150 A0ı C$;:A1105 AA1:A$(A$,A):110& C21(AML1A(W$))AA1:C$DATA":5)"4 SEARCH, SORT, MERGE, DELETE LIST"T -:"ENTER SELECTION NUMBER?";:95 .C1350,200,6035,700,750,30,30,30,30,30 2B0:DB:EB:FB:C$:C(C$) 5C27ġ::30 6C32B1: 7C$;:CC48:C0C10D1: < UCG$;:BĺCH$" "  51,0:5000:CD$"CLOSE"::CD$"PR#0"::3);NR1;" ARTICLES IN DATABASE "B$::ST$"PRESS ESC TO ESCAPE TO THIS MENU":#5)"0 RETURN TO MAIN MENU":5)"1 MERGE DATABASES ":5)"2 COPY DATABASE, OR COPY LIST". (5)"3 INPUT, PRINT, EDIT                     5040:+$ER6ĺ"FILE NOT FOUND";:5040:9$ER2220N$"ERROR "ER:305$" INSERT CORRECT DISK":"PRESS RETURN TO CONTINUE?";A$:T11:BL%(LC):4010:R#L1:MN111:BL%(MC1):L%(MC1)L%(C1):4010::Z#ILn#JII:JM4040|#JM4030#L%(JC1)L%(JC)JJ1#BL%(JC)4040#L%(IC)L%(JC):IJ:4015#L%(IC)B:$ER(222):ER8ĺ"I/O ERROR";:050"K(SP)N:SPSP1:2005L"SP0E%(EE)K(SP1):EEEE1:SPSP1:2070^"CP0U1:k"E%(EE)0"N%(0)B0:N%(1)B1:N%(2)B2:N%(3)B3:N%(4)LL:N%(5)NK:N%(6)RC:N%(7)RM:U0:N%(8)U" 9419:" N%(0)RM:N%(1)RC:9414:#MN:L(N2)NB02005$!EEEE1:N4120450!CPCP1A!SP0U1:`!SPSP1:NK(SP):N402005{!E%(EE)N:EEEE1:2030!N40K(SP)N:CPCP1:SPSP1:2005!SP02065!JPR(N40):KPR(K(SP1)40):JK2065" SPSP1:E%(EE)K(SP):EEEE1:2/ &14:1:(C65)" ";:JK0ĺH$(C);41):1840C +"JOURNALS"41)} 0K1:I09:I"="(K$(G),K,5)" ";:KK5::WĢVT:HT1 5 CC5:EE0:SP0:CP0 CCCC1:NC%(CC):N02070 E%(EE)CC:EEEE1:NB3CCCC5:2005 NB2CCCC1:2005 !50:Fĺ". ";:1790:B(C13C21C8)GJK:H1:H85:1775iGCJK:W1:1830:50:D1805FĺCH$;CH$;C$" "CH$;:179085:HT:1775 C4(G25G51)1800HC::I012:(I65)"="H$(I);21);(I78)"="H$(I13):I2::"(F$(1,1),3)" DRIVE#"(F$(2,1),3):1487."PRESS RETURN TO CONTINUE OR":"ESC TO ESCAPE TO MENU?";:C$:(C$)13(C$)27Ģ(37):1:1487(C$)27ġ::20':CD$"BLOAD "B$D$;F$(1,0);F$(2,0)",A"RC:NR(RC)256(RC1):AU0:20I)N1:J%(I)N1::20=(KN1:IN2J%(J):L%(K)L%(I):KK1:-KN2N1:IN08:I%(I)I%(I1)K:J%(I)J%(I1)K:N$(I)N$(I1)::N$(J)"EMPTY":J%(9)I%(9):202:CD$"OPEN "B$;T$",L"RL;F$(1,0);F$(2,0):(DSA$"PROGRAM"ĺ::"INSERT "A$" DISK SLOT#CC0:U$"DELETE":270:N0C:N1I%(N0):N2J%(N0):N00ĺCG$;"LIST 0 CANNOT BE "U$"D":305:"PRESS RETURN TO "U$" LIST "N0"="N$(N0):"OR ESC TO ESCAPE TO MENU?";!A$:(A$)13(A$)271313"(A$)2720#N2J%(J)N$(J)"EMPTY":IN09:I%(I%(N2)J%(N2)1:L%(J)L%(I):JJ1::J%(N1)Jv CI%(N1)1:4000:JI%(N1)1:CL%(J1):IJJ%(N1)1:DL%(I):DC1300L%(J)D:JJ1:CD:J%(N1)J:N19I%(N11)J:J%(N11)J:CG$;J%(N1)I%(N1)" ARTICLES IN LIST "C%(2)" = "N$(C%(2)):305X:N1C%(2):N2C%(1):N0C%(0):NK%(N0)K%(N2):LLJ%(J)N1275^"OUTPUT LIST TOO SMALL":305C%(0)0C%(1)0ĺ"LIST 0 CANNOT BE MERGED":305:" MERGING WILL TAKE ABOUT "(N60)" MINUTES":JI%(N1):II%(N0)J%(N0)1:L%(J)L%(I):JJ1:,IG "U$;:195::(NO)C%(CC)C%(CC)=CCCC1:CC6C01225C%(3)ĺ:BL$;ST$" "U$" IN PROGRESS "ST$:3000:CG$;U$" COMPLETED":CD$"CLOSE":305CC0:U$"FIRST":270:LLJ%(J)K%(C%(0))1270C%(0)01275<U$"MERGE":CC1:280:291485::CD$;"BLOAD SORT.OBJ";F$(1,1);F$(2,1)pCC0:U$"SORT":270:C%(0)0ĺCG$;"LIST 0 CANNOT BE SORTED":3051055:I15:C%(I)0::CC3"LEVEL "CC2:U$" 0=NONE 1=ALPHA 2=JOURNAL 3=YEAR?";95:C4İ85:1230":C0C%(CC)C:"ASCENDIN08I15:C%(CCI)((A$,I,1))::" ";:CCCC6:1100220::BL$;ST$" "U$" IN PROGRESS "ST$:2000:U0ĺCG$"MISSING ( OR ) ":305::220::CG$;N%(8)" ARTICLES IN LIST "C%(1)" = "N$(C%(1)):305+(9416)(9417)196A$"PROGRAM":SP1:1C)NK:CCCC1:1100%NB3:CNB2N50:E(C59C63)ĺCH$;:85:1100C%(CC)N60C%(CC)N61C%(CC)N62C%(CC2)0:958C%(CC)NC:FI1:ML5:W$"":105:NB2C%(CC1)(A$):CCCC2:1100C21A$A$(BL$,MLA1)(A$)58900lFİ85:1100'oC0C241175?tC9C10İ85:1100OyJK0:CH$;:e~C9JK26:"J=";vC10ĺ"K=";HT(36)1:VT(37)1:W1:1775:HT:H0ĺCG$;:1100K10(GJK)H:315:NB1:JK0NB0C%(CC)B2C%(CC1)0:958C%(CC13C%(CC)0:958::"SEARCH STRING OK";:195:YS1200C`890ZeEC38C42:1130zfE(C35C37)CC10:1130gEC58C43:1130hE(C40C41)1130i1132jC%(CC)B2C%(CC1)0:958kC%(CC)C:CH$;OP$(C40)" ";:CCCC1:11A$A$BL$:I15:RPI,((A$,I,1))::RPRPRMG=:CD$"CLOSE":AU1:DRLĺ:"NO TEXT FILE"::"PRESS RETURN TO CONTINUE?";A$:EG20:8:CC6LCC33C13:1115ML16C13:1115QLL1:50:B1125VC21İ905:C13:OK1100:[1:OK0:71092:1:"UPDATING DATA FILE";41)VSP0:A$"DATA":1485:1575"MOVE AUTHORS TO ALPHA";:195::(NO)ı)1092:N0:1:"UPDATING AUTHORS FILE":SP0:A$"DATA":1485:13304RPRC1NRM:RNNR:CD$"READ "B$;T$",R"R.8A$:1095TOK1:NC%(CC):NB3ĺ"A"(NB3);:ICC1CC5:(C%(I));::" ";:CCCC6:NB2ĺ"Y"(NB2);C%(CC1)" ";:CCCC2:NB1ĺ"J=";:JK26:KNB1:315:CCCC1:NB0ĺ"K=";:JK0:KNB0:315:CCCC1:N39N48ĺOP$(N40)" ";:CCCC))LLĺCG$;"LIST FULL":305u1815:1055:14:1:958:17:"K=KEY, J=JOURNAL, Y=YEAR, A=ALPHA ":"&=AND, :=OR, #=NOT, %=XOR":"< (LESS), = (EQUAL), > (MORE), (PAREN) zCC6:L0:20:1:958:U$":";CC34İ905:OK895C%(CC)0:C%(2)CC:868::CD$"BLOAD MAIN,A520";F$(1,1);F$(2,1)4`CCC5IaC1354,356,361Yb520"KWIC1"jd520"INPRED"zi520"MERGE"k(9416)(9417)(10412)522SP1:A$"PROGRAM":1485::CD$"BLOAD SEARCH.OBJ"F$(1,1);F$(2,1)lCC0:U$"SEARCH":290:I%(C%(1T$,1,10);:24:105:A0Ė1:295i.:N$(K)A$:I%(J1)J%(J):I%(1)0:J%(J1)I%(J1):CCCC1:C%(CC)J1:11:"PRESS RETURN TO CONTINUE";:A$:206K1(K10):K2KK110:K1K1JK:A$(K$(K1),K251,5):;310:A$" ";:'^SP1:A$"PROGRAM":1485:IST "I" = "N$(I):JI< :LLJ%(J)" FREE SPACES FOR LISTS"t U$" LIST NUMBER?";:95:C%(CC)C:CJĺCG$;:1:280| : "270 #J9K%(J)LLĺ"NO OUTPUT LIST AVAILABLE"::305 '"NAME OF OUTPUT LIST ";J1;" ?";:KJ1,FI0:ML10:W$"":(D E(C13C24)ĺCG$;CH$;:2005 C13Bĺ"Y";:\ NO1:YS0:C24(BC13)YS1:NO0b ~ 22:1:120);:22:1: :K%(0)NR1:NR1;6)"ARTICLES IN LIST 0 = "N$(0):J0 I%(1)0:I19:K%(I)J%(I)I%(I):K%(I)0ĺK%(I);6)"ARTICLES IN L:20J C21AMLW$""(W$)(A)AA1:C$(W$,A,1):A$A$C$:C$;:110v C13A0ĺMLA);:A$A$(BL$,MLA): 110 C$;:A$A$C$:AA1:A(W$)W$A$(W$,A1):AML110 W$A$:AML110 "(Y:N)?";:868 50:BC13200": ACC17:C0C27F1:/ FCC65:E1:I UCG$;:BĺCH$" "CH$;O Z\ _50:Dıh d85:95v iA0:A$"" nC$:C(C$):C31180 sC13FIĺMLA);: C8155 A0ı C$;:A1105 AA1:A$(A$,A):110 C27ġ:::NT, EDIT DATA":5);"7 MERGE DATABASES,COPY DATABASE,":7)" OR COPY LIST" :"ENTER SELECTION NUMBER?";:95:C1350,875,1210,1255,1310,1045,350,350,20,20 2B0:DB:EB:FB:C$:C(C$):C27ġ::::20 7C32B1: <C$;:CC48:C0C10D1 51,0:5000v:CD$"CLOSE"::3);NR1;" ARTICLES IN DATABASE "B$::ST$"PRESS ESC TO ESCAPE TO THIS MENU":5)"0 RETURN TO MAIN MENU":5)"1 SEARCH":5)"2 SORT":5)"3 MERGE":5)"4 DELETE"J 5)"5 RESTORE ALPHA DATA":5)"6 INPUT, PRI                     4);*I4Q(1,I)1ĺ" ";%*7007"":J04:Z$Z$((RPJ))::Z$;:7055E)lL$(2);:L0:JRP12:JK0e)qK(LJ):K(I)K:K2557035)v315:LL1:LNK7025){7055)K(RP5):R(0)K:JK26:315:KRP6:335:R(1)K1)" (";:335:R(2)K1:") ";:335:R(3)K1:".";:7055*T$(I,5)Q(0,6))7003@(YCD$"READ "B$;T$",R";R:J02:LT(J)ĄT$(J)Q(Z:CD$"IN#0"([U17:I06:Q(0,I)UĭI4Q(1,I)1ĺ" ";(\Q(0,I)UĭQ(1,I)0ĺ(^Q(0,I)UĴI17010,7015,7020,7040,7050,7050,7050(_::(bL$(0);R1;:7055()gL$(1);:Z$ND PRESS RETURN?";C$:3'ER9ĺ"DISK FULL":5030A'ER2230d'ER4ĺ"WRITE PROTECTED":5030'ER254ER11ĺ"ILLEGAL VALUE":"PRESS RETURN TO CONTINUE?";A$'ER1130'ER254Ħ'"ERROR "ER'305(XRPRC2RRM:RL0(Q(0,4)Q(0)" ";:KK5::WĢVT:HT1 &5@&:CD$"PR#"Q(0,9):WQ(0,9):W&?:CD$"PR#0":W1:e&ER(222)&ER5ĺ"END OF DATA":5030&ER8ĺ"I/O ERROR. INSERT CORRECT DISK ":"AND PRESS RETURN?";C$:'ER6ĺ"FILE NOT FOUND. INSERT CORRECT DISK":"AD1805&%FĺCH$;CH$;C$" "CH$;:17908%85:HT:1775R% C4(G25G51)1800\%HC:%:I012:(I65)"="H$(I);21);(I78)"="H$(I13):I2::%&14:1:(C65)" ";:JK0ĺH$(C);41):1840%+"JOURNALS"41)&0K1:I09:I"="(K$(G),K,5L$':CD$"BLOAD "B$D$;F$(1,0);F$(2,0)",A"RC:NR(RC)256(RC1):AU0:30$CD$"BSAVE "B$;D$",A"RC",L"(NR1)(NK12)2;F$(1,0);F$(2,0):30$50:Fĺ". ";:1790$B(C13C12C21C16C8)GJK:H1:$85:1775%GCJK:W1:1830:50:,L"RL;F$(1,0);F$(2,0)#7w#DSA$"PROGRAM"ĺ::"INSERT "A$" DISK SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):1487}##"PRESS RETURN TO CONTINUE OR":"ESC TO ESCAPE TO MENU?";:C$:(C$)13(C$)27Ģ(37):1:1487#(C$)27ġ::30$30:RPRC1NRM:RNNR:CD$"READ "B$;T$",R"Rd"8A$:A$A$BL$:I15:RPI,((A$,I,1))::RPRPRMv"=:CD$"CLOSE""BAU1:30":CD$"BLOAD "B$D$;F$(1,0);F$(2,0)",A"RC:NR(RC)256(RC1):AU0:"SP0:A$"DATA":#2RL0ĺ:CD$"OPEN "B$;T$"I)1035?";:868:U0:A0JOK0:50:A1847 TO PRINT ON THE SAME LINE":"ANY CHANGES ";:195:NO851N:(37)12:I79w;1:L$(I);"<"Q(0,I)">?";:868:A$""<50:D(BC13)ĭBĺCG$;CH$;:828=BC13828>C13(A$)0837?C13833@A$A$C$:828AQ(0,I)(A$)BIO/CC0:270:N0C:"CURRENT PRINT OPTIONS:":Q(0,8)K%(N0)Q(0,8)K%(N0)p0I79:L$(I);"<"Q(0,I)">":{4I066Q(1,I)1W$(45)7Q(1,I)0W$""8"PRINT "L$(I)"<"W$;Q(0,I)">":99"ENTER (0:7) AS ORDER OF OUTPUT":"ENTER (-1:-7)9581786:225:"ANY CHANGES ";:195:YS525DRL0HT0785tCD$"WRITE "B$;T$",R"R:I02:LT(I)ĺT$(I) :CD$"PR#0"225:"MORE ARTICLES";:195:RP5,R(0):I13:KRP4I2:K1R(I):320::W$;:(W$)MLĺ(DT$,ML(W$));ĺ35ML)&VT:HT:W$(T$(I),1,ML)OS$W$:235:T$(I)A$:C21A0ĺML);wC8I0NK5Ģ20:VTVT1:ML5:635C8I0Ģ19:VTVT1:ML5:635C8I1LT(T$(I1))C8JI1:VTVT2:LTLT(T$(I1)):724LTLT(T$(I))HT6:IJ2+I2OLLT75MLOLLTFI2OLLT36MLOLLT^I2OLLT35ML35vI2OLLT74ML74MLT$(I)"":755VTVT1:VT:1:L$(I4);(T$(I),1,ML);:ML(T$(I))āK(T$(I))1ML:".";:I2ĺ74ML); I28ĺ")";:12:660 C12ī716ML5:KRP8:K1R(2):320:19:R(2);23);")"26);:W$(R(3)):790:26:HT26:S$W$:235:R(3)(A$)KRP10:K1R(3):320:26:VT:R(3)"."33);C8685RL765J0:LT0:NK5VT20OLLT(0)LT(1)LT(2)765C8BĢ18:1:555)C12ī716BW$(R(1)):ML5:790f12:S$W$:HT12:235:R(1)(A$)C8Ė1:VTVT1:630C12ī716KRP6:K1R(1):320:12:R(1);18):18:"(";:W$(R(2)):ML4:790:19:HT19:S$W$:235:R(2)(A$)CNK560g625:lKNNK1:K(K)255:6);::NK5VT19kq1:VT1:K0NK1:RPK12,K(K)::C16765vVTVT1:L$(3);:R(0)255ĺ".. ";{6:HT6:JK26:1775:H0R(0)(GJK)10H|C13R(0)255HT:KR(0):315:RP5,R(0)C16īH:580%:C13(C21K(N)255)620;?C12ĭNK5VT19rDKK(N):HT:315:HTHT6:HT42(C8B)HT2:VT19IC8HT12Bī525NC8(HT8H2)BVT18:HT36:NN1:560SC8BHTHT12:NN1:560XC16ī625]C12ī625bNN1:N20J1:(DT$,MLJ1);:c20:HT20:S$W$:235:868:C12Z$A$:C13A5Z$Z$(BL$,A1)!RPRC2RRM:I04:RPI,((Z$,I1,1)):&C8525+18:1:L$(2);:JK0:HT6:VT18:N00K(N)255ĺ".. ";5HT:VT:1775:H0K(N)G10":1750B17:1:L$(0);BL$;:9:ML4:FI0:W$"":"....";:9:105WC21RR1:509kC8RR1:509yR(A$)1RNRR0ĺCG$;:505935:HT0:760 17:1:L$(0);R1;14);L$(1);Z$;:ML5:W$Z$:I15:(Z$,I,1)" "JI:535:540::W1:R(0)255,Z$BL$:I02:T$(I)"":cNRQL1Č936:"MAXIMUM RECORDS REACHED ";QL:305RNR1:LT0:525:NRNR1:NRQL1480YS470KRC:K1NR:320:500RLİ1205:1485:AUİ12001330:1815505:YS495CD$"CLOSE:O330:K1;:.^SP1:A$"PROGRAM":1485Z_:CD$"BLOAD MAIN,A520";F$(1,1);F$(2,1)g`CCC5|aC1354,356,361b520"KWIC1"d520"SESOMEDE"i520"MERGE"RLİ1205:1485:AUİ12001330:1815:I0NK1:K(I)255::I13:R(I)0NUMBER?";:95:C%(CC)C:CJĺCG$;:1:2801:\11:"PRESS RETURN TO CONTINUE?";A$:306K1(K10):K2KK110:K1K1JK:A$(K$(K1),K251,5):;310:A$" ";:@K1MXK1MXEK2(K1256):K,K2:K1,K1256K2:JK1(K)256(K1):KK265%C8A$W$:A$;:ML(A$));:. 240j:K%(0)NR1:NR1;6)" ARTICLES IN LIST 0 = "N$(0):J0I%(1)0:I19:K%(I)J%(I)I%(I):K%(I)0ĺK%(I);6)" ARTICLES IN LIST "I" = "N$(I):JI:LLJ%(J)" FREE SPACES FOR LISTS")"PRINT LIST $;CH$;:200 C13Bĺ"Y";:E NO1:YS0:C24(BC13)YS1:NO0M :i 14:1:120);:14:1:r FI0 105:C13AMLı (C12C16)(37)23Ģ23 C12A$S$:HT:S$;:ML(S$));: C21ıC16ĖHT:S$;:ML(S$));::7(A)Č846,A:860,C$:C$;:AA1:1109 C12C16C21ıB 110\ C$;:C44C58Ĺ8,59l C34Ĺ8,39 846,A:895:AA1:AUUA AML110 8,13 846,A:895:902,A$: "(Y:N)?";:868 50:BC13200 E(C13C24)ĺCGMLA);:190C xC21AML1Č846,A:860,C$:C$;:MLU);:AU:186Q C8150` A0U0ı A0Ĺ8,13:846,U:895:902,W$: C$;:A1109 AA1:110 C21(AML1AU)ĺC$;:MLU);:AU:186 C27ġ::::30# C21AMLU0UB:C$:C(C$):C27ġ::::30/ 7C32B1:P <C$;:CC48:C0C10D1:l ACC17:C0C27F1:} FCC65:E1: UCG$;:BĺCH$" "CH$; Z _50:Dı d85:95 i768,W$:U(W$):C$"" mA0 n818:C(C$):C31180 sC13ĺORE ALPHA DATA":5)"5 MOVE AUTHORS TO ALPHA":5)"6 SEARCH, SORT, MERGE, DELETE LIST" %5)"7 MERGE DATABASES, COPY DATABASE,":7)" OR COPY LIST" -:"ENTER SELECTION NUMBER?";:95 .C1350,455,815,485,1045,1075,350,350,30,30 2B0:DB:EB:F&"%:CD$;"BLOAD GET,A$300":U(0)6 51,0:5000:CD$"CLOSE"::CD$"PR#0"::3);NR1;" ARTICLES IN DATABASE "B$::ST$"PRESS ESC TO ESCAPE TO THIS MENU":#5)"0 RETURN TO MAIN MENU":5)"1 INPUT":5)"2 PRINT":5)"3 EDIT"V $5)"4 REST            ER11ĺ"ILLEGAL VALUE":"PRESS RETURN TO CONTINUE?";A$F'ER11385^'ER254ĺCG$;CH$;:n'"ERROR "ERw'305L"END OF DATA":5030Z&ER8ĺ"I/O ERROR. INSERT CORRECT DISK":"AND PRESS RETURN?";C$:&ER6ĺ"FILE NOT FOUND. INSERT CORRECT DISK":"AND PRESS RETURN?";C$:&ER9ĺ"DISK FULL":5030&ER22385&ER4ĺ"WRITE PROTECTED":50307'ER254"TYPE THE LETTER/NUMBER OF SELECTION";:X%&14:1:(C65)" ";:JK0ĺH$(C);41):1840l%+"JOURNALS"41)%0K1:I09:I"="(K$(G),K,5)" ";:KK5::WĢVT:HT1%5%:CD$"PR#"Q(0,9)%;WQ(0,9):%?:CD$"PR#0":W1:%ER(222)&ER585:1775,$GCJK:W1:1830:50:D1805L$FĺCH$;CH$;C$" "CH$;:1790^$85:HT:1775x$ C4(G25G51)1800$HC:$:I012:(I65)"="H$(I);21);(I78)"="H$(I13):I2::$220:1825::"ENTER CHANGES THEN PRESS RETURN?";:(%!Q#FI1:ML5:W$(K$(G),H51,5):S$W$:105:C16C12ĖH83:15(H5):S$;:`#C8A$W$|#H0A$(K$(G),H5)A$#K$(G)A$(K$(G),H56):#HT1:1775:15:H83:#50:Fĺ". ";:1790#B(C13C12C21C16C8)GJK:H1: $H$(I):K$(I):K$(I26)::CD$"CLOSE "B$;F$G"OK0ĹRC,255:RC1,255S"OK385"SP0:A$"DATA":1500::CD$"BSAVE "B$;D$;F$(1,SP);F$(2,SP)",A"RC",L3":385#SP0:A$"DATA":1485::CD$"BSAVE "B$;D$;F$(1,SP);F$(2,SP)",A"RC",L"(NR1)(NK12)2:385":"NEW DATABASE NAME?";:(DT$,1,10);:19:105:A0Ė1:1730W!B$A$:N$(0)B$:5000!24:1:SP3:A$"DESCRIPTORS":F$(0,0)B$:F$(0,1)B$:F$(0,3)B$:1500!:CD$"OPEN "B$;F$;F$(1,SP);F$(2,SP):CD$"WRITE "B$;F$:123:NK:I02:LT(I):+"I025::H0ı 1755:C16ī1690, C8HH2Y HH1:H10H1(H4(G25G51))ī1690m H5C12ī1690{ C12H5 HT33:VT23:H83:15(H5):1695 OKİ220:"SAVE EDITED DESCRIPTORS ";:195:NO385 OK1735=!220:FI0:ML10:W$";:ML(H$(H)))*hC12C16H$(H)A$:mC16ī1595KrC8CCCC2gwCCC1:C26C1ī1595q|1610220:"EDIT KEYS";:195:NO1675JK0:1685220:"EDIT JOURNALS";:195:NO1725JK26::1690:17251815 1820:1475O166561815&;1820:50:F16107@BC131665EE85:1595mJHC:HT3:VTC1:C12HT23:VTC12OVT:HT:DT$;TVT:HT:FI0:ML18:CCC:W$H$(H):H$(H);:VT:HTY105:C8A$W$:A$;:ML(A$));^C21C13C8AMLĖHT:H$(H)DING DATA"j':CD$"BLOAD "B$D$;F$(1,0);F$(2,0)",A"RC:NR(RC)256(RC1):AU0::1580:NR65535NR1s(305,QL(TM(NK12)):RL0J(NSRL):QLJQLJ-"TOTAL NUMBER OF ARTICLES ALLOWED IS ";QL;41):1220:"EDIT CATEGORIES";:195:NCG$;41):15544LT(2)(A$)2:LT(0)1:LT(1)1:U2NLT(2)0RL3LT(2)25:1:1580:6:"ANY CHANGES ";:195:NO15852:1545"I025:H$(I),K$(I),K$(I26)::CD$"CLOSE"B$;F$:5000#SP0:A$"DATA":F$(0,0)B$:OKDS:1495 $:"LOA0IA0:A$"":3:"MAXIMUM TOTAL LENGTH OF TEXT";" <"LT(2)U">?";:868uC$:(C$)13((C$)48(C$)57)1555A$A$C$:(C$)13A0ĺC$;:1561AA1:(C$)13ĺC$;:1555(A$)0āI02:LT(I)0::U0:1561(A$)J(A$)3Ė1:3::"HOW MANY KEYS PER ARTICLE <"NK">?";:868X C$:((C$)48(C$)57)(C$)131546} A$A$C$:(C$)13A0ĺC$:1552 AA1:(C$)13ĺC$;:1546 (A$)12Ė1:2:CG$;41):154541)NK(A$)RMNK12:RL0:J144:U2:LT(2)0UAD "B$;F$J:J1231530t"LOADING DESCRIPTORS":OK1:NK:RMNK12:RL0:I02:LT(I):LT(I)0RLRLLT(I)1:1570:CD$"CLOSE":5000OK0:DB1:936:"CREATE NEW DATABASE";:195:NO15055000A$ST$, NR1:A$"":A0:21487:T"DATABASE NAME?";:FI0:ML10:W$"":(DT$,1,10);:15:105:A0Ė1:1505|B$A$:N$(0)B$:RC,0:RC1,0:1528I09:J%(I)0:F$(0,1)B$:F$(0,3)B$SP3:A$"DESCRIPTORS"::1501: :CD$"OPEN "B$;F$;F$(1,SP);F$(2,SP):CD$"RE(A$)27Ģ(37):1:1487/(A$)27ġ::3855?OKı:"INSERT "A$" DISK FOR "F$(0,SP):"SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):"AND PRESS RETURN?";A$::"INSERT "A$" DISK FOR "F$(0,SP):"SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):"B$;T$",L"RL;F$(1,0),F$(2,0)"7IHT33:VT23:1775:15:H0ĖH83ODSA$"PROGRAM"ĺ::"INSERT "A$" DISK SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):1487"PRESS RETURN TO CONTINUE OR":"ESC TO ESCAPE TO MENU?";:A$:(A$)13z#? ϱà ҠϳҠ  Ϡϳϲϱϳà ϳԠ) ϲà  Š" ٠ Π Ȯʠ ԮʠԠ ϮԠٮԠ ήԠ׮ԠԮԠ ЮԠŠήԠ ϠˮԠîԠîԠ ˮԠԠҮԠ ŮԠ ԮԠîԠϮԠ ׮Ԡ Ġ$ ŠȮԠ خԠȠՠñ! ɮԠŮԠ̮Ԡ ĠŠ$Ϡ"!Ϡ!Ǡ ǠٍŪٍͪΠĠٍٍͪȪٍŠԠҠҪӍҪӍԪȍӪٍύҠӍحͪҠōĪӍ͠ů٠ƠōҪٍĪͯōŠٍêҪٍ̠Š̪ӍϪٍčٍɪٍ Р̠΍ΠӠӠҠˍǠΠ̮ҮԠ̭΍ӠԠîŠӠƠӍӠĠӠҠǍӠӠŠŭĠήŠΠŠ̠ƠؠӮŠ̠ƮΠĠ΍ŠĻΠ̠ĠȠ΍ҠŠōŠàōč̠נЮҠĠ΍ΠàɮŠǠƠŠΠ̍ӠҠӍŠĠЮĠ̠Ġ®àΠΠٍ̠ŠԠŠӠƠӠĠӍǠōŠǠƠŠ̠ōˠӠĠҠԍȭ٠ŠǠΠΠҍٍɪˠӍϠɪٍԠ̪ҠҪōҠӯō٠٠ӪٍŪٍͪΠĠٍٍͪȪٍŠԠҠҪӍҪӍԪȍӪٍύҠӍحͪҠōĪӍ͠ů٠ƠōҪٍĪͯōŠٍêҪٍ̠Š̪ӍϪٍčٍɪٍ   ٍɪˠӍϠɪٍԠ̪ҠҪōҠӯō٠٠)"="H$(I);21);(I78)"="H$(I13):I2:.E220:1825:"?";:s!"TYPE THE LETTER/NUMBER OF SELECTION";:&JK0Ģ1:9:(G65);" ";H$(G)'JK26Ģ1:9:(G39);" JOURNAL"0K1:I09:1:(I2)3:(K$(G),K,5)"=";J$((G)10I):KK5:50:Fĺ". ";:1790>B(C13C12C21C16C8)GJK:H1:L85:1775GCJK:W1:1:1:I122:41);::1830:38:24:50:D1805FĺCH$;CH$;C$" "CH$;:179085:1775 C4(G25G51)1800HC:958:(:JK0āI012:(I65$"EXPANDED DESCRIPTORS":1501L:CD$"OPEN "B$;T$:CD$"WRITE "B$;T$:123oI0519:J$(I)::CD$"CLOSE "x385ML74:W$J$((G10)H):S$W$:105:C16C12Ė7:H23:S$;:C8A$W$J$((G10)H)A$:HT1:1775:H23:7:5DOES NOT EXIST":305/JK0:1675:1690:1725P:"PLEASE WAIT":A(0):1:lJK26:1675:1690:17251815:1820:1475:H0ı1755:C16ī1690C8HH2HH1:H10H1(H4(G25G51))ī16907:H23:1695385:A1B$A$:159854A$"EXPANDED DESCRIPTORS":1501:]6:CD$"OPEN "B$;T$:CD$"READ "B$;T$q7J:J12315308"LOADING EXPANDED DESCRIPTORS":I0519:J$(I)::50009:CD$;"CLOSE":385>:CD$"CLOSE":5000?"EXPANDED DESCRIPTORS FILE DESCRIPTORS":NK:I02:LT(I)::1570?:CD$"CLOSE":5000j"DATABASE ";B$;" DOES NOT EXIST":305"I025:H$(I),K$(I),K$(I26)::CD$"CLOSE"B$;F$:5000(385,:"DATABASE NAME?";:FI0:ML10:W$"":(DT$,1,10);:15:105:A0Ė1:15803:"INSERT "A$" DISK":" FOR "B$:1487::"DATABASE NAME?";:FI0:ML10:W$"":(DT$,1,10);:15:105:A0Ė1:1580B$A$:1528SP3:A$"DESCRIPTORS":1501::CD$"OPEN "B$;F$:CD$"READ "B$;F$J:J1231530&"LOADING $(G):1846::::870J*1850::G2651:(G39)" JOURNALS":1846:::ef1855:CD$"CLOSE":305|1775:7:3(H2)"PRESS RETURN TO CONTINUE OR":"ESC TO ESCAPE TO MENU?";:A$:(A$)13(A$)27Ģ(37):1:1487(A$)27ġ::385 DESCRIPTORS"Q"7 LOAD EXPANDED DESCRIPTORS FOR EDITING":"8 RETURN TO BASIC":"ENTER SELECTION NUMBER?";:95:OK1:C1385,1505,1670,1680,805,810,1735,1580,800,385 ::"RETURN TO BASIC";:195:(NO)385!%1850::G025:(G65)" "HN TO CONTINUE?";A$:385k CD$;"IN#0"::"1 LOAD DATABASE DESCRIPTORS":"2 EDIT EXPANDED KEY DESCRIPTORS" "3 EDIT EXPANDED JOURNAL DESCRIPTORS":"4 PRINT EXPANDED KEY DESCRIPTORS":"5 PRINT EXPANDED JOURNAL DESCRIPTORS":"6 SAVE EXPANDED KEY/JOURNAL85 C13(C13C32)ī200F C13C89C78ĺCG$;C$;CH$;:200W C13C$"Y" C$;:NO1:YS0:C89C13YS1:NO0 : 24:1:40);:24:1: 14:1:120);:14:1: ST$"PRESS ESC TO ESCAPE TO THIS MENU": 11:"PRESS RETUR85; C21AMLU0U(A)Č846,A:860,C$:C$;:AA1:110L C12C16ıU 110{ C$;:(C58C44)U$"CAT"Ĺ8,59 846,A:895:AA1:AUUA AML110 8,13 846,A:895:902,A$: "(Y:N)?";:868 C$:C(C$):C27ġ:::3):C31180# sC13ĺMLA);:190Z xC21AML1Č846,A:860,C$:C$;:AU:MLA);:186h C8150w A0U0ı A0Ĺ8,13:846,U:895:902,W$: C$;:A1109 AA1:110 C21(AML1AU)ĺC$;:MLU);:AU:186 C27ġ::::3):C27ġ::::385$ 7C32B1:E <C$;:CC48:C0C10D1:a ACC17:C0C27F1:r FCC65:E1: K50:Fı P85:75 UCG$;:BĺCH$;CH$" "CH$;CH$; Z _50:Dı d85:95 i768,W$:U(W$):C$"Z" mA0 n818:C(C$3(4);"MAXFILES 1":I0:C$"A":CD$(4):5000NCD$;"BLOAD GET,A$300"H$(25),K$(51):F$".DESC":DT$".................."J$(519),LT(2):CH$(8):CG$(7):T$".IDENTIFIER":I0519:J$(I)" ": 51,0:385 2B0:DB:EB:FB:C$:C(C$        ,ADRS: INITIALIZE HRCG3 6216,0: ONERR OFF9 @O J"UNABLE TO LOAD"g T216,0: ON ERR OFFm ^DFx J"UNABLE TO LOAD" @216,0: ON ERR OFF Jd A0300? ADRS0ADRSADRS65536: MAKE ADRS POSITIVEU CSADRS768A:CSs CH(CS256):CLCS256CH ADRS7,CL:ADRS8,CH I1A "NAME OF CHARACTER SET ";I; CN$ (4);"BLOAD ";CN$;",A";CS(I1)768: LOAD IN SET "Ind PROGRAM TO LOAD HRCG&n3301xADRS0I(4);"BLOAD RBOOT"b520: EXECUTE RBOOTwADRS(0),"HRCG" BRING IN HRCG, ADRS=STARTING ADDRESS"HOW MANY ALTERNATE CHARACTER SETS""WOULD YOU LIKE (0-9)? ";A (A0)(A9)170&<]gjnA 'FNVry);@CQZ`cfiknAq%svz} !A%u)A-:=h ,5>BFIKMOQSUY[]_acegikmoqsuwy{} <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$$! $%%#,fp% "Lp"% $`"H Β*+)hi#"H Β!*0+i+idH#d hd`"%$$%H hi#`$% Βc,d*+Me,dPMc*!0 +i+`%J) b+je *`PPPP򠥹,r0tL"$!e (' !!%##`f`" e$$ ",r0st(!#L"L $b . % `L a,gPgA[8 & & &mh)mi ̒e$*+Me$(Mc,dp ,cpP!pA* +i+Mebrs"t`,Tb@0,U`* L" {LB$!$$"% %L"c`g`g`,,Lҩc`@a`de` qLXde`s$t%L$td`e`g`f`Yd`e`L$e (' 8!$!$%"{LȎ !%# "LȎ5 )5`)aW L| JHIHa`G~ҏ#+@HPXs{ɐG֐G+R$a`1  emhi` b` ,r0rbj$s%t`@b`s$$hLde`,rSjd LL LHLH C `u8967 ,R,W U ,P`ɭӠҠΠΠ Р̺((*)  b+*HN OI*P,h*,H,`0ɛ` ɍ $h`ɐ 6+` qLȎ LȎ      Ӎ΍ӠĠӍ٠Ơ΍Ҡ΍ҠӍӍ٠ƠӍٍӍŻٍٍ͍̍΍ٍ΍٠Πٍ΍ōٍǠΠ٠ӍӍӠƠٍԍӍӠԠΠōٍ̠ΠƠӍӍحӍŠٍӍӍ٠ƠҠӍӠƠӍϠŠӍ̠ҠōӠƠҠōӍӍٍӍÍٍٍčōӍԍٍ΍ŠӍӍ٠ΠٍΠƠ̠ӍӍŠٍӍٍٍ̠͠ӍōӻӍҍٻōӠƠٍϠ΍ǍŠƠӍӠƠٍ̠ӍӍӍٻӍ̠ӍǍӍŠҍٍӍԍӍōҍӠƠōӻǍٍٍ̠àٍàٍٍٍ̠͠ҠٍŠƠӍٍ̠ӻӍàčàčӍΠӍӍԱ٠ƠٍӍҠͻ΍ӍӻӍӍӍϠٍٻӍӠƠٍŻǍӍŠӍٻō΍ӍӻӍ̠  "ERROR "ER305I5ER254ĺCG$;CH$;:?"ERROR "ERH305305I6ĺ"FILE NOT FOUND. INSERT CORRECT DISK":"AND PRESS RETURN?";C$:_ER9ĺ"DISK FULL":5030nER22385ER4ĺ"WRITE PROTECTED":5030ER254ER11ĺ"ILLEGAL VALUE":"PRESS RETURN TO CONTINUE?";A$ER11385ER254ĺCG$;CH$;: 96K1:I09:(K$(G),K,5)"=";J$((G)10I):KK5::m::"PRINTER SLOT#?";Q$:Q$"0"Q$"7"Ė15:1850;:CD$"PR#"Q$:?:CD$"PR#0"::ER(222)ER5385ER8ĺ"I/O ERROR. INSERT CORRECT DISK":"AND PRESS RETURN?";C$:BER<<<>>>>~|<<<|llLL @```@`px||xpppp 3#008`pxXXXP@?gG@p00  >@` >>>?@@```p@```@@``ppxXlfb  ??????3333333s@`p000000 @X ^`p`x@~|p8p`xx 0@8@@0< g```````p8p00xxx0px@` |~sqpppp x8xpp008   9:ML4:W$"":"....";:9:1052C21RR1:509FC8RR1:509TR(A$)1mRNRR0ĺCG$;:505935:HT0:760 17:1:L$(0);R1;14);L$(1);Z$;:ML5:W$Z$:I15:(Z$,I,1)" "JI:535:54020J1:(DT$,MLJ1);:>20:2:T$(I)"":CNRQL1Č936:"MAXIMUM RECORDS REACHED ";QL:305mRNR1:LT0:525:NRNR1:NRQL1480yYS470KRC:K1NR:320:500RLİ1205:1485:AUİ12001330:1815505:YS495CD$"CLOSE":175017:1:L$(0);BL$;:A$"PROGRAM":1485>_:CD$"BLOAD MAIN,A520";F$(1,1);F$(2,1)K`CCC5`aC1354,356,361pb520"KWIC1"d520"SESOMEDE"i520"MERGE"RLİ1205:1485:AUİ12001330:1815:I0NK1:K(I)255::I13:R(I)0::R(0)255 Z$BL$:I0CG$;:1:280:@11:"PRESS RETURN TO CONTINUE?";A$:30{6K1(K10):K2KK110:K1K1JK:A$(K$(K1),K251,5):;310:A$" ";:@K1MXK1MXEK2(K1256):K,K2:K1,K1256K2:JK1(K)256(K1):KK2:O330:K1;:^SP1:(A$));: 235N:K%(0)NR1:NR1;6)" ARTICLES IN LIST 0 = "N$(0):J0I%(1)0:I19:K%(I)J%(I)I%(I):K%(I)0ĺK%(I);6)" ARTICLES IN LIST "I" = "N$(I):JI:LLJ%(J)" FREE SPACES FOR LISTS" "PRINT LIST NUMBER?";:95:C%(CC)C:CJ13Bĺ"Y";:2 NO1:YS0:C24(BC13)YS1:NO0: :V 14:1:120);:14:1:m 105:C13AMLı (C12C16)(37)23Ģ23 C12A$S$:HT:S$;:ML(S$));: C21ı C16ĖHT:S$;:ML(S$));::765 C8A$W$:A$;:ML:C$;:AA1:110& C12C16C21ı/ 110I C$;:C44C58Ĺ8,59Y C34Ĺ8,39x 846,A:895:AA1:AUUA AML110 8,13 846,A:895:902,A$: "(Y:N)?";:868 50:BC13200 E(C13C24)ĺCG$;CH$;:200 CЭC21AML1Č846,A:860,C$:C$;:MLU);:AU:186@ C8150O A0U0ıt A0Ĺ8,13:846,U:895:902,W$: C$;:A1109 AA1:110 C21(AML1AU)ĺC$;:MLU);:AU:186 C27ġ:::30 C21AMLU0U(A)Č846,A:860,C$C27ġ:::30 7C32B1:? <C$;:CC48:C0C10D1:[ ACC17:C0C27F1:l FCC65:E1: UCG$;:BĺCH$" "CH$; Z _50:Dı d85:95 i768,W$:U(W$):C$"" mA0 n818:C(C$):C31180 sC13ĺMLA);:1902 x:5)"5 MOVE AUTHORS TO ALPHA":5)"6 SEARCH, SORT, MERGE, DELETE LIST" %5)"7 MERGE DATABASES, COPY DATABASE,":7)" OR COPY LIST" -:"ENTER SELECTION NUMBER?";:95 .C1350,455,815,485,1045,1075,350,350,30,30 2B0:DB:EB:FB:C$:C(C$):I"%:CD$;"BLOAD GET,A$300":U(0)6 51,0:5000CD$"CLOSE"::3);NR1;" ARTICLES IN DATABASE "B$::ST$"PRESS ESC TO ESCAPE TO THIS MENU":#5)"0 RETURN TO MAIN MENU":5)"1 INPUT":5)"2 PRINT":5)"3 EDIT"G $5)"4 RESTORE ALPHA DATA"            à΍΍ӍԠԍӍ΍ΠٍŠٍٍӍӍӍӍŠٍӍҠ΍ΠōŠō٠ō̠ӠΠōҠōٍٍ٠ƠōӠӠӍӍҍҠӍӍӍӍٍծӮύӠ͍ȍٍ̠Ԡ΍ҍٻԠӍӍӍΠӍӍ΍ҍōčҍٍ̠Ҡ΍٠Ġٍ΍0:1:"UPDATING AUTHORS FILE"41):DSİ1205:1485f"51330:RPRC1NRM:RNNR:CD$"READ "B$;T$",R"R"8A$:A$A$BL$:I15:RPI,((A$,I,1))::RPRPRM"=:CD$"CLOSE""BAU1:30#:CD$"BLOAD "B$D$;F$(1,0);F$(2,0)",A"RC:NR(RC)256(RC1):8:CD$"READ "B$;T$",R";R:I02:LT(I)ĄT$(I)R!:CD$"IN#0":I02:LT(I)1035!L$(I4);:T$(I);:(T$(I))35I2Ģ(37)2:1! :!RL1075!1:"UPDATING DATA FILE "41):DSİ1205:1485!1575!3RLĺ:"NO TEXT FILE":3051"4N(IJ):K(I)K:K2559752 315:II1:INK960N 41);:NK5I6ĺ41); L$(3);:K(RP5):R(0)K:JK26:315:KRP6:330:R(1)K1:W(K1100):W15)" #"K1(W100); 20);"(";:335:R(2)K1:25)")";28);:335:R(3)K1:"."40)::RL0ı-!95)Q(0,5)Q(0,6)İ1330KW1850:NQ(0,7)1Q(0,8)1:RN:N0RL%(I%(N0)N)qX7000:(16384)128NQ(0,8):C$\::1855g305RPRC2RRM:1:L$(0);R1;13);:14:L$(1);:Z$"":I04:Z$Z$((RPI))::Z$L$(2);:I0:JRP12:JK0 K>?";:868:U0:A0(JOK0:50:A1847OKDC8A1:OK1:868:UQ(1,I)0eNOKQ(0,I)C:842|OC13ĺ41)::825PC45U1A0Q(1,I)1:UU1:842QBĺCG$;CH$;R842SRLQ(0,4)Q(0,5)Q(0,6)ĭDSSP0:A$"DATA":1485T:Q(0,433@A$A$C$:828%AQ(0,I)(A$)KBI7(Q(0,7)1Q(0,7)K%(N0))827CI8(Q(0,8)1Q(0,8)Q(0,7)Q(0,I)K%(N0))827DI9(Q(0,9)0Q(0,9)7)827E868::FI06:Q(1,I)1W$(45)HQ(1,I)0W$""I"PRINT "L$(I)"<"W$;Q(0,I)"TER (0:7) AS ORDER OF OUTPUT":"ENTER (-1:-7) TO PRINT ON THE SAME LINE":"ANY CHANGES ";:195:NO851{:(37)12:I79;1:L$(I);"<"Q(0,I)">?";:868:A$""<50:D(BC13)ĭBĺCG$;CH$;:828=BC13828>C13(A$)0837?C13820::,W$;:(W$)MLĺ(DT$,ML(W$));2|/CC0:270:N0C:"CURRENT PRINT OPTIONS:":Q(0,8)K%(N0)Q(0,8)K%(N0)0I79:L$(I);"<"Q(0,I)">":4I066Q(1,I)1W$(45)7Q(1,I)0W$""8"PRINT "L$(I)"<"W$;Q(0,I)">":f9"EN(T$(I1)):724"LTLT(T$(I))(2958^786:225:"ANY CHANGES ";:195:YS525qRL0HT0785CD$"WRITE "B$;T$",R"R:I02:LT(I)ĺT$(I) :CD$"PR#0"225:"MORE ARTICLES";:195:RP5,R(0):I13:KRP4I2:K1R(I):3(I))1ML:".";:$I2ĺ74ML);6I2ĺ35ML)SVT:HT:W$(T$(I),1,ML)|S$W$:235:T$(I)A$:C21A0ĺML);C8I0NK5Ģ20:VTVT1:ML5:635C8I0Ģ19:VTVT1:ML5:635C8I1LT(T$(I1))C8JI1:VTVT2:LTLTJ0:LT0:NK5VT20-OLLT(0)LT(1)LT(2)=HT6:IJ2XI2OLLT75MLOLLTsI2OLLT36MLOLLTI2OLLT35ML35I2OLLT74ML74MLT$(I)"":755VTVT1:VT:1:L$(I4);(T$(I),1,ML);:ML(T$(I))āK(T$(R(2)):ML4:790:21:HT21:S$W$:235:R(2)(A$)HC8ĺ")";:12:660VC12716ML5:KRP8:K1R(2):320:25);")"28);:W$(R(3)):790:28:HT28:S$W$:235:R(3)(A$)KRP10:K1R(3):320:28:VT:R(3)"."35);C8685RL765W(R(1)100):W$(W):U$(R(1)(W100)):ML3:790:12:S$W$:HT12:235:W(A$):C8C12ĺ" #";:W$U$:ML2:790:17:S$W$:HT17:235:U$A$R(1)W100(U$)C8Ė1:VTVT1:630C12716KRP6:K1R(1):320:20);020:"(";:W$6);::NK5VT19Dq1:VT1:K0NK1:RPK12,K(K)::C16765lvVTVT1:L$(3);:R(0)255ĺ".. ";{6:HT6:JK26:1775:H0R(0)(GJK)10H|C13R(0)255HT:KR(0):315:RP5,R(0)C16765C8BĢ18:1:555C12716?C12ĭNK5VT19MDKK(N):HT:315:HTHT6:HT42(C8B)HT2:VT19cIC8HT12Bī525NC8(HT8H2)BVT18:HT36:NN1:560SC8BHTHT12:NN1:560XC16625]C12625bNN1:NNK560g625lKNNK1:K(K)255:HT20:S$W$:235:868:C12Z$A$:C13A5Z$Z$(BL$,A1)m!RPRC2RRM:I04:RPI,((Z$,I1,1)):z&C8525+18:1:L$(2);:JK0:HT6:VT18:N00K(N)255ĺ".. ";5HT:VT:1775:H0K(N)G10H:580:C13(C21K(N)255)620CG$;:1:280:@11:"PRESS RETURN TO CONTINUE?";A$:30{6K1(K10):K2KK110:K1K1JK:A$(K$(K1),K251,5):;310:A$" ";:@K1MXK1MXEK2(K1256):K,K2:K1,K1256K2:JK1(K)256(K1):KK2:O330:K1;:^SP1:(A$));: 235N:K%(0)NR1:NR1;6)" ARTICLES IN LIST 0 = "N$(0):J0I%(1)0:I19:K%(I)J%(I)I%(I):K%(I)0ĺK%(I);6)" ARTICLES IN LIST "I" = "N$(I):JI:LLJ%(J)" FREE SPACES FOR LISTS" "PRINT LIST NUMBER?";:95:C%(CC)C:CJ13Bĺ"Y";:2 NO1:YS0:C24(BC13)YS1:NO0: :V 14:1:120);:14:1:m 105:C13AMLı (C12C16)(37)23Ģ23 C12A$S$:HT:S$;:ML(S$));: C21ı C16ĖHT:S$;:ML(S$));::765 C8A$W$:A$;:ML:C$;:AA1:110& C12C16C21ı/ 110I C$;:C44C58Ĺ8,59Y C34Ĺ8,39x 846,A:895:AA1:AUUA AML110 8,13 846,A:895:902,A$: "(Y:N)?";:868 50:BC13200 E(C13C24)ĺCG$;CH$;:200 CЭC21AML1Č846,A:860,C$:C$;:MLU);:AU:186@ C8150O A0U0ıt A0Ĺ8,13:846,U:895:902,W$: C$;:A1109 AA1:110 C21(AML1AU)ĺC$;:MLU);:AU:186 C27ġ:::30 C21AMLU0U(A)Č846,A:860,C$C27ġ:::30 7C32B1:? <C$;:CC48:C0C10D1:[ ACC17:C0C27F1:l FCC65:E1: UCG$;:BĺCH$" "CH$; Z _50:Dı d85:95 i768,W$:U(W$):C$"" mA0 n818:C(C$):C31180 sC13ĺMLA);:1902 x:5)"5 MOVE AUTHORS TO ALPHA":5)"6 SEARCH, SORT, MERGE, DELETE LIST" %5)"7 MERGE DATABASES, COPY DATABASE,":7)" OR COPY LIST" -:"ENTER SELECTION NUMBER?";:95 .C1350,455,815,485,1045,1075,350,350,30,30 2B0:DB:EB:FB:C$:C(C$):I"%:CD$;"BLOAD GET,A$300":U(0)6 51,0:5000CD$"CLOSE"::3);NR1;" ARTICLES IN DATABASE "B$::ST$"PRESS ESC TO ESCAPE TO THIS MENU":#5)"0 RETURN TO MAIN MENU":5)"1 INPUT":5)"2 PRINT":5)"3 EDIT"G $5)"4 RESTORE ALPHA DATA":") ";:335:".";:7055&*T$(I4);>*I4Q(1,I)1ĺ" ";H*7007"::)bL$(0);R1;:7055S)gL$(1);:Z$"":J04:Z$Z$((RPJ))::Z$;:7055p)lL$(2);:L0:JRP12:JK0)qK(LJ):K(I)K:K2557035)v315:LL1:LNK7025){7055*K(RP5):JK26:315:KRP6:330:W(K1100):W" #"K1(W100)" (";:335(305;(XRPRC2RRM:RL0(Q(0,4)Q(0,5)Q(0,6))7003k(YCD$"READ "B$;T$",R";R:J02:LT(J)ĄT$(J)|(Z:CD$"IN#0"([U17:I06:Q(0,I)UĭI4Q(1,I)1ĺ" ";(\Q(0,I)UĭQ(1,I)0ĺ(^Q(0,I)UĴI17010,7015,7020,7040,7050,7050,7050)_ĺ"FILE NOT FOUND. INSERT CORRECT DISK":"AND PRESS RETURN?";C$:^'ER9ĺ"DISK FULL":5030l'ER2230'ER4ĺ"WRITE PROTECTED":5030'ER254ER11ĺ"ILLEGAL VALUE":"PRESS RETURN TO CONTINUE?";A$'ER1130'ER254Ħ'"ERROR "ER1840&+"JOURNALS"41)S&0K1:I09:I"="(K$(G),K,5)" ";:KK5::WĢVT:HT1Y&5o&:CD$"PR#"Q(0,9):&?:CD$"PR#0":&ER(222)&ER5ĺ"END OF DATA":5030&ER8ĺ"I/O ERROR. INSERT CORRECT DISK ":"AND PRESS RETURN?";C$:A'ER6C8)GJK:H1:%85:1775?%GCJK:W1:1830:50:D1805_%FĺCH$;CH$;C$" "CH$;:1790q%85:HT:1775% C4(G25G51)1800%HC:%:I012:(I65)"="H$(I);21);(I78)"="H$(I13):I2::&&14:1:(C65)" ";:JK0ĺH$(C);41):13(C$)27Ģ(37):1:14873$(C$)27ġ::309$$':CD$"BLOAD "B$D$;F$(1,0);F$(2,0)",A"RC:NR(RC)256(RC1):AU0:30$CD$"BSAVE "B$;D$",A"RC",L"(NR1)(NK12)2;F$(1,0);F$(2,0):30$50:Fĺ". ";:1790%B(C13C12C21C16AU0:#SP0:A$"DATA":N#2RL0ĺ:CD$"OPEN "B$;T$",L"RL;F$(1,0);F$(2,0)T#7#DSA$"PROGRAM"ĺ::"INSERT "A$" DISK SLOT#"(F$(1,SP),3)" DRIVE#"(F$(2,SP),3):1487#$"PRESS RETURN TO CONTINUE OR":"ESC TO ESCAPE TO MENU?";:C$:(C$)&"&"" ,2"2,">,22, &"""  0 "" " ****&""""""&&,22, &< """2,""""***6"""""< >> "*6< ">"A"!!""" !!! """"=#> 0"""!@> H>@ "!  ! B=**+**A&*+**"EEE"""%B@0L?"""!@>>@>@?B<B%$$$$2MDDD(:JJJ*B% R!B%$$XA>> > *666< (#21 *>*>> "2*&" >"  >"  "> """>"""""""<  00>> " .&"&""` ,2"2l"><$,22, &""w  0 "2 # ***+&""#"""&&l22, `&< $g""2lw""c***6ccg""< >$> !-3>">""w"""""""""""?"  "??""r""w"">""w>**>p #"c  g"?c6**""ws&*2""w""""""""""*,"""w1 #Iw"""""w""""c""**6"c""cw"">""> "$$$< (#21*>*>> "2*&" >" ">"  " 0($~ p>" """">"""""""< "00>> " L @?@@@ ?^? (4);"RUN QUICKSEARCH"(  L<$*0 >*** > >>> >*$$$"><>    >**>  "> >>8>$>> > >> """"  **" >"""">>""     <$*0 >*** > >>> >*$$$"><>    >**>  "> >>8>$>> > >> """"  **" >"""">>""    8 > > >  >" >>>>$>> > >** >> (  >"" >>>>$$$$>><$"  <> >> & > ">$8""$.<&( <*(6$ 0($ $1"$*$ "8$ $$ #)-*8  80,>c""""?""?""?>k>?""">""""  "c6**"""&*2""""""""?!!?""?""?6c"""""k*"">> >00000>"g(~ < (&20 *, **>> """ " >> ">> """>""""""< >> " 6>6>>>>>>""">AAAAA>cAAc> 0`@@`0  @@ AUIc]A>"""A~ ~ *II*< ("">>>""""" >"  >"  "> """>"""""""<     666< (#21   *>*>>> "2*&" >"  >"  "> """>"""""""<  >>>> < "  373>33>00>3;3>>#?3>7733>03?3?3338888;;377>>*"66?##77>2&>33?>33?60?7?'9?><<8;;;3??3366"*>>66666;;3?07??9'?"< "*6<?!?!333;;3333337773?3?3??3?33;3;;3?377773377'3;???--!33;3'?937>26&>3;?>33377>#<1??-- ?;;;;;3;; 33!--?333??33;;3?07?? .&? * 66$>+89#21:;6>> >"666">39???30<03?????03>333?31?3??3?>33>03?$ $>> $ >60<0>3>3333300>333>3?633>03333 00000333 >kkcc33333333333>003>063333333 cckk>3 3333>0? ?𘘜8>c]]A]Uw?a]!]]a?>c]uu]c>1m]]m1>c]q}]c>>c]q>c}u]c>wU]A]UUwAwwApPPPW]c>gU--Ug}AAUU]UUwwUYUMUUw>c]UU]c>?a]]a=>c]]UMc>?a]]a-Ug~C}#^_a?AwwUUUU]c>wUUUU*wUU]UUAcU**UcwUU*A_(zA8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p83;?73  ?30 ?30038<63?00?0333?3 333333>0 ~~ < <~b0  8  |&& ,2"""" "$(4"|****,2"""""",22, &&,2  <| """&""""***6""""">> 88 "*6, "">"""<""<""<" "<"""""<> < >> < " &""""">""">>D8"$(0($" >"6**"""""2*&"""""""<""< """*$<""<($"" ">""""""""""""""**6""""""""> >< <@ <<*666>>( <bd&F($*>*>> @"&*2"(>" >" " $~> <"  <"">""""""" >>00"$8DD>"8Dd"8D!8$DBB1xx8D2!DD">"~?p@ H$!8TRB"LLJ*)8DD""8DD>8DD"*1^8DD> 8D ~DD"""DD""" DD"**B$!DB"~@`? @< <* $H~$>> >G%tRq  . *"*>@ 8DD""p($!!!> 0 " wss"*6<wo[]_Q]L_1=_!=@_3 }};A_1-===@?}_A}??}oa}}|^3 }%;A===?!==_Dwwww_@? oommfq==]oi]=}}}}}}_@;-1====;55-===_3====AoQ]Oa}}|_3=5-=A_1=_i]=_!]^ =A?wwwwws======A=====;_o=====5;=;_ooW;==[oooog?0_ow{?_C{{{{_A}{wo_?_Q_____Ao_? ooogoooogog[[I[?[?[Io? _?7Ig?=\o7|ݽoowo-;_?+-goo? ogooos_Aooc??_ow{}|_#==-5>Aokoooo?_3=_g{?_3=?S?>Aook=hog?}_0?>A?}_1=>A?!<_owws_#=_#=>A_#=>1?_`ogogogogs?{}{w?_A_A{to_ow{|oQ^o&"&""` ,2"2l"><,22, &""w  0 "2 # ***+&""#"""&&l22, `&< g""2lg""c***6ccg""< >$> !-3>">""w"""""""""""?"  "??""r""w"">""w>**>c  g"?c6**""w#&*2""w"""""""!!!)."""w1 #Iw"""""w""""c""**6"c""cw"">""> "$$$< (#21*>*>> "2*&" >" ">"  ">" """">"""""""< "00>> "    .>>>>> ,>>><>><<>>, >666 00000>2> >*"">666>>>>><>>, ><8 > <666><"""""*>>>>66>< ><> "*6<>>>666>>>>>>>>>>>>>>>>>>..>66>>>66>>>>8>>>>6>>>66626>>>6&>>>>>>>>>:6.>>>>8>>>>>>>>>>>>>>""">>>>>>>>>>>>>0 >> *C.":X10:Y15:906 S$"COPYRIGHT (C) 1982":Y30:90N CD$;"RUN INITMENU";68U:90 QZZ1: U96M Z96X,Y:I1(S$):96:96:((S$,I,1))::f `0,0279,00,1350,0 d30,191279,68279,19130,191 nS$"BY TERRY CORL &":1:0:X140:Y160:90 xS$"PAUL K. WARME":X165:Y170:90 S$"INTERACTIVE MICROWARE, INO?28671:24576:CD$(4):(28672)96ĺCD$;"BLOAD PKWDATA"[IN$(50),D(500):MAX500e 51,0232,0:233,112:STAR$"********** ":3(2:59:Z0;U13<S$"QUICK-SEARCH":XUZ24:Y151U:90 PS$" LIBRARIAN":XUZ46:Y1&"&"",2"2, >" ,22,"""& " 0 " " ****"""&"""&& ,22,& <,2""""""6***""" <""">>  "<6*"""">""""""""""""">>>""2"""">""">>"  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**""""""""""> > *666( <12# *>*>>  "&*2"> >  ""  "" >""">""""  <""00>>  >!!!&!!!>> .!!!>> >!!& !!!! ! !%%%%!!!!!!!!!!>!!!. > !!!!"""))))6""!! ? ?77$$~$~$$6.""> !!<<!!!?????<9"!!!/!!!8!  !?!%%%%%!!!!!!!!!!! !!!!!<   ><!!!!!!>!!! %%))"""""??<<00> 6677> 75:+;<>> 00*6*>00>1)%#! ?? ?? ""?!!!!""$ $ $      &"\"#"@@ <"""<0H""<&!@   >*$"""^0$8D">"D""D"*"D"<              UND MOUNT CORRECT DISK":"AND PRESS RETURN?";C$:xER8ĺ"I/O ERROR MOUNT CORRECT DISK ":"AND PRESS RETURN?";C$:ER4ĺ"WRITE PROTECT ERROR MOUNT CORRECT DISK":"AND PRESS RETURN?";C$:65]R4ĺ"WRITE PROTECT ERROR INSERT CORRECT DISK":"AND PRESS RETURN?";C$:P65:RN?";C$:h651"Y"ĺ:CD$;"BSAVE SLDRINFO,A$2A00,L$6";F$(1,1);F$(2,1):CD$"BLOAD MAIN,A520"F$(1,1);F$(2,1):520"KWIC1"ER(222)2ER6ĺ"FILE NOT FODRINFO,A$2A00,L$6";F$(1,1);F$(2,1)Y:CD$"BLOAD MAIN,A520"F$(1,1);F$(2,1):520"KWIC1"gER(222)ER6ĺ"FILE NOT FOUND. INSERT CORRECT DISK":"AND PRESS RETURN?";C$:ER8ĺ"I/O ERROR. INSERT CORRECT DISK ":"AND PRESS RETURN?";C$:HE"THE PROGRAM DISK, THEN PRESS RETURN?";A$x:"INSERT PROGRAM DISK SLOT#"(F$(1,1),3)" DRIVE#"(F$(2,1),3):"AND PRESS RETURN?";A$}DSĺ:"INSERT DATA DISK SLOT#"(F$(1,0),3)" DRIVE#"(F$(2,0),3):"AND PRESS RETURN?";A$"~W$"Y"ĺ:CD$;"BSAVE SL,0)F$(2,1)DS1{nDSĺ:"ARE DESCRIPTORS AND DATA ":"ON THE SAME DISK (Y:N)?";:A$:A$"Y"(A$)13A$"N"Ģ22:110oDSĺA$:A$"Y"NSNS3328pF$(1,0)F$(1,2)F$(2,0)F$(2,2)DSNSNS3328)vW$"Y"ĺ:"REMOVE WRITE PROTECT TAB FROM ":abd958:"ARE SLOTS AND DRIVES OK (Y:N)?";:A$:A$"Y"(A$)13A$"N"ĺ:(37):100jiA$yjA$"N"65kI02:107522I,((F$(1,I),3)):10752I21,((F$(2,I),3)):lF$(1,3)F$(1,2):F$(2,3)F$(2,2)::mF$(1,0)F$(1,1)F$(25)P(C$)13ĺC$;:F$(1,I)",S"C$:75/Q7UA0eVA$" DISK DRIVE#<"(F$(2,I),3)">?";:868ZC$:((C$)49(C$)50)(C$)1390[A1(C$)13ĺ:97\A1(C$)1390]A0(C$)13A1_(C$)13ĺC$;:F$(2,I)",D"C$:90`SCRIPTORS"]CI2ĭF$(1,0)F$(1,1)F$(2,0)F$(2,1)F$(1,2)F$(1,0):F$(2,2)F$(2,0):DS1:97FA$" DISK SLOT#<"(F$(1,I),3)">?";:868GA0KC$:((C$)49(C$)55)(C$)1375LA1(C$)1375MA0(C$)13A1NA1(C$)13ĺ:8:A$" DISK DRIVE#<"(F$(2,I),3)">":: >1:"DO YOU WANT TO CHANGE THE SLOT#":"OR DRIVE# OF ANY DISK (Y:N)?";:W$:W$;:(W$)13W$"Y"W$"N"Ģ22:62 ?W$"N"108 @958:W$"Y" A14::A$"DATA":DS0:I02:I1A$"PROGRAM" BI2A$"DE:LT(1)0:LT(2)0 7TM155887 8(46014)3NS118369P 9(46014)2NS93275 :I02:F$(1,I)",S"((107522I)):F$(2,I)",D"((10752I21)): ;:A$"DATA":I02:I1A$"PROGRAM" <I2A$"DESCRIPTORS& =A$" DISK SLOT#<"(F$(1,I),3)">"9),J%(9),K%(9),L%(LL),PR(7),Q(1,9)n LT(2),H$(25),K$(51),R(3),L$(9),OP$(7),N$(10),F$(2,3),TT(2),K(12),T$(2) I09:L$(I)::I07:OP$(I):PR(I): : 0Q(0,7)1:Q(0,8)1 1A$ST$:I19:A$A$ST$::I051:K$(I)A$: 214:1 3LT(0)00:HT0:VT0:FI0:ML0:LT0  "ARTICLE#","ALPHA=","KEYS=","REFR=","AUTH=","TXT1=","TXT2=","FIRST ARTICLE=","LAST ARTICLE=","PRINTER SLOT#=","(",0,")",0,"AND",3,"OR",1,",",0,"NOT",4,".",0,"XOR",2 W$"":A$"":QL0" LL1299:N%(9),C%(40),E%(15),I%(P0:YS0:WO0:S$""R CD$(4):CG$(7):CH$(8):BL$" ":STAR$"*****":Z$"" DB0:I0:J0:K0:L0:M0:N0:A0:B0:C0:D0:E0:F0:G0:H0:R0:S0:U0:W0:DS0:TR0:TL0:DL0:KN0 CC0:JK0:K10:K20:NK5:NR1:OK0:NO0:YS0:N10:N20:AU0:RLQ (4);"MAXFILES 1"810832:RC24000:RC1:500`:(4);"BLOAD SLDRINFO,A$2A00":11n 51,0:25 C$"A":MX65535:B0256:B1512:B21024:B32048 D$".DATA":F$".DESC":T$".TEXT":U$".AUTH":DT$"..................":B$"":N00:RM0:RP0:S     6072,255:46075,255:46076,255:46059,255:46060,255:1230:SP1:A$"PROGRAM":1485::CD$;"BLOAD GET,A$300";F$(1,1);F$(2,1):U(0):3851280:520"MERGE"SP1:A$"PROGRAM":1485::CD$"BLOAD MAIN,A520";F$(1,1);F$(2,1):2RL0ĺ:CD$"OPEN ELETE MUD"R768,169:769,183:770,160:771,232:772,32:773,217:774,3:775,96I1:47081,((F$(1,0),3))16:47082,((F$(2,0),3)):47083,0:47084,17:47085,0:47088,187:47089,17947092,I:768:I1I2:46067,255:46068,255:46071,255:4:9::CG$;"INSERT DATA DISK TO BE INITIALIZED":"SLOT#"(F$(1,0),3)" DRIVE#";(F$(2,0),3)"PRESS RETURN TO CONTINUE OR":"ESC TO ESCAPE TO MAIN MENU?";:A$(A$)27385(A$)13ĺ:12:1201:CD$"INIT MUD";F$(1,0);F$(2,0) :CD$"D"::305.1:N0O3"UPDATING AUTHORS FILE"41):SP0:A$"DATA":1485:13304RPRC1NRM:RNNR:CD$"READ "B$;T$",R"R:50008A$:A$A$BL$:I15:RPI,((A$,I,1))::RPRPRM=:CD$"CLOSE":H(NR256):RC,H:RC1,NR256HBAU1:Z0::::870J*1850:W0::G2651:(G39)" JOURNALS":1840::::870ef1855:CD$"CLOSE":305~k1280:520"SESOMEDE"1065:385RLĺ:"NO TEXT FILE":305SP0:A$"DATA":1485:::"UPDATING DATA FILE":1575)RLĺ:"NO TEXT FILE)ī385 a:"YOU MAY APPEND DRIVE#, SLOT#, VOLUME# ":"AND THEN PRESS RETURN":"CATALOG";FI0:ML15:U$"CAT":W$"":105:U$".AUTH"::CD$"CATALOG"A$:3051280:520"INPRED" 1850:1815:870 %1850:W0::G025:(G65)" "H$(G):1840CG$:385>:"PRINT 0=CATEGORIES 1=KEYS 2=JOURNALS"k"EDIT 3=CATEGORIES 4=KEYS 5=JOURNALS"5:5)"ENTER SELECTION NUMBER?";:95C1800,805,810,1590,1670,1680,405,405,405,405CG$;:385936:"RETURN TO BASIC";:195:(NOEDIT DATA DESCRIPTORS":|5)"6 MOVE AUTHORS TO ALPHA":5)"7 RESTORE ALPHA DATA":5)"8 MERGE DATABASES, COPY DATABASE,"7)" OR COPY LIST":5)"9 CATALOG":"ENTER SELECTION NUMBER?";:95:OK1:C1440,1530,455,875,1200,405,1040,1050,1250,45LOSE"::CD$"PR#0":::3);NR1" ARTICLES IN DATABASE "B$::230 :5)"0 RETURN TO BASIC":5)"1 CREATE, OR LOAD DATABASE":5)"2 INPUT, PRINT, EDIT DATA":50005)"3 SEARCH, SORT, MERGE, DELETE LIST":5)"4 INITIALIZE DATA DISK":5)"5 PRINT, $;:NO1:YS0:C89C13YS1:NO0) :E 22:1:120);:22:1:a 14:1:120);:14:1: ST$"PRESS ESC TO ESCAPE TO THIS MENU": 11:"PRESS RETURN TO CONTINUE?";A$:385 @K1MXK1MX EK2(K1256):K,K2:K1,K1256K2:A :CD$"C:(C58C44)U$"CAT"Ĺ8,59< 846,A:895:AA1:AUUAJ AML110T 8,13n 846,A:895:902,A$: "(Y:N)?";:868 C$:C(C$):C27ġ:::385 C13(C13C32)ī200 C13C89C78ĺCG$;C$;CH$;:200 C13C$"Y"! CW$: C$;:A1109% AA1:110S C21(AML1AU)ĺC$;:MLU);:AU:186j C27ġ::::385 C21AMLU0U(A)Č846,A:860,C$:C$;:AA1:110 C13FIĺMLA);:IAA(MLA):512I,32::AML:186 C12C16ı 110 C$;$;:BĺCH$" "CH$; Z% _50:Dı1 d85:95L i768,W$:U(W$):C$""T mA0o n818:C(C$):C31180 sC13FIĺMLA);:190 xC21AML1Č846,A:860,C$:C$;:AU:MLA);:186 C8150 A0U0ı A0Ĺ8,13:846,U:895:902,x 5000.CD$;"BLOAD GET,A$300":U(0)?DBė:1530N 51,0:3852B0:DB:EB:FB:C$:C(C$):C27ġ::::3857C32B1:<C$;:CC48:C0C10D1:ACC17:C0C27F1:FCC65:E1:K50:FıP85:75 UCG }D$;"RUN";A$(JN);:) 216,0:140B D$;"BRUN";A$(JN);:S 216,0:150l D$;"EXEC";A$(JN);: (7);:24:1:39);:1::"FILE NICHT GEFUNDEN !!";: PA12000::34,0:::25PII1:216,0:I15TAB10:65<TAB10 A:"M E N U E":= F(TAB):J1I::(64J);::3:"----> ";A$(J):S P:"ENDE = '1'": Z23:1::"BITTE WAEHLEN SIE !";::JN$:JN$;:JN$"1"Ā dJN(JN$)64:JN1JNIĺ(7);:90 n24:1:39);:1::A$(JN);" WIRD GELADEN !";: s34,22 x130 :33:"DOS TOOL KIT";30);"VERSION 1.0"e5:"(C) COPYRIGHT 1980, APPLE COMPUTER INC."n:: 34,0:255:D$(13)(4):A$(20)50I120:A$(I):( LOADAPA2II1:216,0:I15TAB10:65<TAB10 A:"M E N!!   "&HOLD" "&MERGE"( "&LENGTH"9 "&COMPRESS"F "&SHOW"U "&NOSHOW"p "&AUTO ," "&MANUAL" ""&XREF" ,"&KEYS" 6: @216,0: ON ERR OFF J T"UNABLE TO LOAD" ^216,0: ON ERR OFF h !d PROGRAM TO LOAD APA'n1x340<ADRS0T(4),"BLOAD RBOOT"m520: EXECUTE RBOOTADRS(0),"APA" BRING IN APA, ADRS=STARTING ADDRESSADRS: INITIALIZE APA:"&RENUMBER ,,," !!!= B Z ] Aa h , M \ a f k w } U Z ` i iqx"%2DIQZbiy 6 9 < A D K N Q Y \ z  $  5 #(3N$9BORY\dlory&-;T[y&5JQrINTERLEAVED OLINTOO LONdž L A#/14!#%')+-CNXA),6FILOASbnqtyjlkmln`kP ȱkQ`keׅklץnlmkeׅmnsmtn`8u`H hHHrH h hh`#%.#%4=HQZ=c4=quINVALIPROGRALENGTH I BYTESAVENHOLD FILIN USDUPLICATLINE NUMBEINCREMENTOO LARGCONTINUEQ`PQPQ&u0؈` FJJJJ) ` + PQ A `݆`ı0&:"PQ ђ hh LLȱ0:8`` `8喨嗪ʘ ^8^Ɯ8^ƚ`ik ߩ  ׈PQ +׈k @ @nДmЎ `Lh89 ` ɋ`Ɍ`ɏ`g^h_^4^ L hh`8e^^e_ȑ^^_^_ȐՈ^e^^_` Q&P*QP & &ePPeQQ )ePP% ( F k k`MLHHHhhh`0: A[`8`mnLikeׅjli-  ׈k @ @㥜ݥklа`k`׈Hkhk`8iׅkjl 2 ɠ @٥st ȑ @gL2 S s ĐL; R ͑LL ץgh` Ƀ ɲ F` : &؄"" &L`H &hVkȱHȱkhk > k > $itjsmg ȱLɏ ȱPȱQ kPȱkQP Q ȱ Hha z  kPȱkQ ȄȹFJJJJ) 0 ߥ,М L` @L` ghPQLߌȱPPȱQQȱ LLPPQ ,ȱPȱQPQPťQ妰ĠΥghkFJ z  kPȱkQPٹQ,кɠ# LL @ d'smtnMLgms 8minj8s쥧 ũ媰 Ld ץPQ VȥћȥJ &MLkȑkȥkȥk LLeeimjn`ikũ媰OghLJȱPȱQPQlPũQ媰 PťQ妰 L, H h`sog^⥙ LĽљ,љ#ȱ @ȱȱȱȱ @ @ůДL2st ^ikm`Fװ  Q `Lg LL  gh^_sŖt嗐ML stLL  LL ^_ML ghLHљ(2Qљ($P$ 0  L + ȱ @ȱ @$ ghנC6 zȐ   & "MLPkȥQk,ȰТ @ghȱTȱPȱQȱ3ɲȱ @ :  ȩ @ @ ikm  L 8寅P尅Q [ة67 `ɍ ɀɠ)?LJJ Lb89 ` GɠC ʆFJJJJ)   ވۥꩠ$`ɘN`ɍ)N$mm  [`L GTHAUKEYSEA<70,%  S ؈7W ؈evOhh HH  ,پ #!Ȱ,إƹƸ:` HH f0PQ ђ/ PQ , IJJJJ`hhL LgPhQ [ Q `ZLL : W`L/L `ԠҧӠԠΠéԠŠҠîĸLLLLKLlL\L L LLKLlL_RENUMBERHOLDMERGELECOMPRESSSHOWNOSHOWAUTMANUALXREF""""""""!!! ! ! ! ! !!!!HȑnhmȑstLS g ^ m  ` ^LLg L@A8m  @0 /@   q@8 @8e@@AiAP`L2Ġ JJJJHȱH ȩȩȩȑhhȩȩȑ /"& &  "  gLS) LSȩȩȩ ȩȩȩ gȭ" " "X Y Z [ \ ] hhh`HH ' hh^ `HHHV  V ` Lhhh`,n àϠȥ𬠄𠠠ŠϠÊәĠ̠ m ` 18)`8`HHH n  V H$hb V W X Y m [ l \ ] S ^ T _  ' hhh`HHV ' b i-c ihh`HH$Hȱhhh` LHHHHHHV W L m m  뭒 L   m   (m , r0+p  LJ  LJ -  ȱ  LJ ȱ  LJ s tL m JJJJl ȱm n   ,L, L%" n  :, " +, S l L\DЪ m L\        s t   ަL !8 """ " "