' +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- (  Ϡ@跻~!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 ~(` d ֠z#EENS", "NA","SCROLL UP TO NEXT TARGET FIELD"s" "SCROLL DOWN TO PREVIOUS TARGET FIELD", "LIST FIELD NAMES", "NA"^#X1TF:O%(X)1:F%(X)0:E$(X)"":C$(X)""::::1:"SOURCE";:23:"INTO";:28:"TARGET":A140:"-";:::34,3:21:"(RETURN)ACCEPT (RANSFER INTO TARGET FIELD", "TRANSFER NOTHING INTO TARGET FIELD"," "INCREMENT SOURCE FIELD NUMBER(S) (WILL WRAPAROUND)", "DECREMENT SOURCE FIELD NUMBER(S) (WILL WRAPAROUND)", "PROCESS DATAFILE", "RESTART RECONFIGURE", "RETURN TO MENU", "THIS SET OF SCRHS$ HNHN1:(37)13189- HN15185Y 1:19:"PRESS (RETURN) ";Z$:HN15ė:@!184: "TRANSFER SOURCE FIELD INTO TARGET FIELD", "CONCATENATE ONE SOURCE FIELD ONTO THE END OF ANOTHER AND TRANSFER INTO TARGET FIELD", "SPLIT SOURCE FIELD AND T$(TB);:29:Z$:M(Z$):M27ė:2454M13ė:223BM32176cMM128:28:868:29:(M);}30:Z$:(Z$)27176(Z$)13180E$(TB)(M)::26:223HN1:HS1HN:HN$::HS115:HS$::HS$"NA"187 "("HN$") = "":L$"9":O9L$(O)'10:J1157NJ0E$(TB)((M10)N):26::223\J16169O(Z$):H:Z$;:HH1:K$"1":L$"0"10:J1157J0173E$(TB)((M100)(N10)O):26::223#1:19:868:"ENTER CHARACTER TO SPLIT AT "E223J16159OM(Z$):H:Z$;:HH1:NFL(M10):N0K$"1":L$"0":164nK$"0":L$"9":N9L$(N)10:J1157J0E$(TB)(M):26::223J16164N(Z$):H:Z$;:HH1:OFL((M100)(N10)):O0K$"1":L$"0":169K$"0TTF87137%96:17:1362TTF87;142P96:17:21:141FL(SF%(F%(TB)1)SF%(F%(TB)))1:K$"1":L$"9":FL9L$(FL)1:19:868:"SELECT SPLIT POSITION (1-"FL")"E$(TB):V19:H27((FL))10:J1ė:245J0ė:53,137)E$(TB)((M10)(Z$)):26:212H17Q10:J1E$(TB)(P):131^J0223J206,142,244,83,137,137,154,221,222,137,137,137,137,156,13713774:26:21:13177:26:21:131TTF8713296:17:21:131 10:J1232J0223_J206,132,244,83,146,147,148,221,222,132,132,132,132,150,132M(Z$):P(E$(TB)):E$(TB)(M):2621:H17:5710:J1E$(TB)(P):131J0223J206,137,244,83,137,137,151,221,222,137,137,137,137,1J0ıHxJ118,118,118,118,118,118,128,130,222,118,118,118,118,118,118hyF%(TB)(M10)(Z$):26:21z10:J1F%(TB)P:{J0ı|J7ĭTTFġ:87}J8ġ:221~J9222122TFTġ:87118::193V9:H17:55P1:(((XSF)(XTF))(P17))98Yp1:19:"PRESS (RETURN) ";Z$:((XSF)(XTF))ė:aq97rM(Z$):PF%(TB):O%(TB)1198sF%(TB)M:26:21:57:O%(TB)1H11:118t((O%(TB)2)(O%(TB)7))H14:118uH10v10:J1F%(TB)P:w fC1104gC$C$(C)DhK(C$):(SH$(X),1,17K);::C$;:Vi28:XTF111jC$" ":C(TF%(X1)TF%(X))1:K(TH$(X)):K2108k((TH$(X),K,1)" ")C$C$"J"lC1110mC$C$(C)nK(C$):(TH$(X),1,13K);::C$;:#oXX1:PMSMR:CM0:M$(MR,NC):/mRCR:RCR1D3RCQnCMCM1:((RR1)(D22))121_oCMMR22pR(RCCM)1:WMMRCM:FO1RR1:WMWM1q73:NA0120rCMCM1:CM0112s75:NA19tFO1124uFL19vFM1FM0:MRMSw22xOSE":FX%:j:13:9:"PLEASE INSERT":LQ(Z$)6:((40LQ)2)::Z$;::" VOL ";::"2":::14:"INTO DRIVE ";::DQ::10:"AND PRESS (RETURN) ";Z$:100::14:"INTO DRIVE ";::DQ::10:"AND PRESS (RETURN) ";Z$:100kMR1500MR1500l((RR1)(D22))91&a65:NA096b67:NA19>c22SdZ$N$:DQ1:102eD$"BLOAD"Z$",D"DQ:D$"CLOSE":216,0:106f216,0:D$"CLOSE":FX%:(222)13106g105hD$"OPEN"Z$:D$"READ"Z$:ZZ$:D$"CLOSE":216,0:106 i216,0:D$"CL5L RP :L9PVQW`8VVWW`YWXV ɇLćyƇiU TkLŇ g ɇLXYLL`ć g{`ć gÇY4`XY RSć +L 4ȹ  LXY`  L  ` L   L ` ` ` ݆ ` ` ` ݆ `Ň L`Ň L`RS RP :LPVQW` :L܆VW` :L9HH Jhh8` $QP  ɠ؈đP ˈ` Hȱ h  L $੠ QPP `  ȭ ȥ  C 5)ͯL` ߅ ZL` L ( L& #,) L܄R&LB&&.Hʽ,$h g R&ʘ]&&L|Lޭ ` Hȱ h qjCLL> ' L HLDEL '  `   ȥ L L &JJJJ b X!S&LD&LV&&. g & 0# &LLL+( g R猪 L> ` LREL ' L  ȩ < L ߅ Zć ć g{LLqć gqxWRL ' L  ȩ < L ߅ Zć ć g Y4LL߂ć g߂ciLi ]v^v`$0$0`ӠǺLŁ DISK I/O 4.4 07-JUN-84 OPL؁LCRLDL ' L+ ((̑LvݘL_8坍mn}ȍ͚훁L=͚Lǀhhn m ӅmnLL߀hhHH ߪhh ӭ}ȱiiAL٠Ҡ ޥHH Lޥqȥqȱ hhLi ᥡ Lhh ߮8mnńŃ愥Ŝśꥃmn8ȱ8Li L}~@~~P~~`~ip~i~` Ҡ ӠŠҠDLAL Bq<ȥCq=8m>mȥn?n , ,(L)LH h,L~Lh L~L`A@~*@~^P~_^oL*}p~^~_ȥo^ȥp^Ll|8om~pn~]v^^v_~^ȭ~^`$$`^0ȱ^08`^q^_q^_^`L?~~ȱ~ȱ~~o~pv~m~nj~@~~P~\~@~~P~44"A~@~Q~P~a~`~q~p~~~AL~ ~LO| g %0@0L ~8pn͓~ ~~L_}stop`~@~P~ij^_lkL| }^i_i }^i^_i_L|nmL| } }L|^ ie^_i } }ii_^L|`~LP}8o`~oppP~oTR/L{Ҡ͠Šˠ é {LԠ Ȅ`$$`SWL| ߍ|| || ߍ|| ||Lԭ||||||`$$`GQNCė:87Y34,2::$ZFIXıo[FIX758:XFIXFIX9:Y:X,Y::104,168,104,166,223,154,72,152,72,96:y\:11]CS20:CP(CS((CP$))2.5):CP);CP$::CP(CS((CQ$))2.5):CP);CQ$:CQ$"":^0:0:AB0:16368,0:20:958:14)" INTO":CQ$"DRIVE #1 AND PRESS SPACEBAR":154:156:CP$"THANK YOU":154:&T%(0)0:DA%,T%(0):T%(RCDC):X1RCDC:T%(I%(X))X::X1RCDC:I%(X)T%(X)::&EC5:96&D11SD1:177' Y)ES OR N)O";:" ";DM$:DM$"Y"DM$"N"162C%DM$"N"167T%D11OP2:e%D22OP6:v%D12OP4:%D11OP3:%D22OP7:%D12OP5:%&CP$"PLEASE PLACE INTO":CQ$"DRIVE #1 AND PRESS SPACEBAR":154:R DATABASE FILE AFTER SORTING Y)ES OR N)O";:" ";DM$:DM$"Y"DM$"N"160}$DM$"N"OP1:2%11:" SHALL I REWRITE THE SORTED DATA FILE TO THE ORIGINAL DISK IN DRIVE #";D1;::" CP);CP$::CP(CS((CQ$))2.5):CP);CQ$:CQ$"":#0:0:AB0:16368,0:20:958:14)"";:SB$::SB$(17)AB1:158#SB$" "156#20:958:1002:#ER(222):LN(218)((219)256):i$:7:" DO YOU WISH TO REWRITE YOUNCĺ:1519"QW;" ";:(H$(QW),E);:QW15NCĺ:151_"20:QW15;" ";:(H$(QW15),E)}":21:"";:DM$:::"FIXı"FIX758:XFIXFIX9:Y:X,Y::104,168,104,166,223,154,72,152,72,96:":112#CS20:CP(CS((CP$))2.5): SORT - ASCENDING":A)"6) DATE SORT - DESCENDING"A!Y15::~!22:A3)"WHICH: ";:DM$:B(DM$):DM$:B1B6Ė1:142!B0SRT$"W"!B2SRT$"N"!B4SRT$"D"!DIR$"A":B2B4B6DIR$"D"! "E16::Q1NC30:W014:QW"";B$:B$(6)İ148:1388 F(B$):F1FNCİ148:1382!CP$"PLEASE":CQ$"SELECT SORT TYPE":154:::A6:A)"1) WORD SORT - ASCENDING":A)"2) WORD SORT - DESCENDING"::A)"3) NUMBER SORT - ASCENDING":A)"4) NUMBER SORT - DESCENDING"::A)"5) DATE16,0:FIX:PW$"":130134UDO$;"DATE,D"D:DR$;"DATE":IN%,DA$:DC$:216,0:n216,0:FIX:DA$"":w96DO$;"DATE,D"D:DW$;"DATE":DA$:DC$:216,0:148:CP$"PLEASE ENTER THE SORT KEY" CQ$"FIELD NUMBER ?":154:::18)"#";:E STATS TO NEW DISK":154:DO$;"DATA FILES,D";D:DW$;"DATA FILES":1:N$:DC$:216,0:_~96DO$;N$;".PW,D";D:DW$;N$;".PW":PW$:DC$:216,0:131CP$"LOADING FILE STATS":154:DO$;N$;".PW,D";D:DR$;N$;".PW":PW$DC$:216,0:2:BOCL(QA1):DW$;N$;",R";(STQ);",B";BO:Q$(Q,QA):QA:Q:DC$:216,0:Q14:(7):Q:xCP$"PLEASE INSERT "SD$" INTO DRIVE "DD$:FGİ154:FG0:yCQ$"PRESS (RETURN) TO CONTINUE":FHFH0:155:123z154{Z$:|185V}CP$"SAVING FILL"LL",D"CD:179r96sCP$"SAVING RECORDS "(ST1)" THROUGH "(TR):CQ$"TO NEW DISKS":154:DF0:Q1(TRST):VS1:(STQ)D3VS2tQ1DF1:VS2DF0uVS1DFDF0:DO$;N$;",L"LL;",D"DvVS2DFDF1:DO$;N$;",L"LL;",D1"WwQA1NC)109nZ$"C"19300o8LI86:"PRESS (RETURN) TO GO TO MENU";:Z$:Z$:Z$"E"5ohEC275}iEC3110jEC4110kEC5112lQ$(Q,QA)"":96mRO1:86nS$(X)"":76oRNR:FDM:103pT$(M,T)"":96qDO$N$",VOL 2":14:"INTO DRIVE 1":10:"AND PRESS (RETURN) ";Z$:102mCP$"THE NEW DISK IN DRIVE "(D):CQ$"HAS NOT BEEN INITIALIZED":92:CP$"INSERT ANOTHER DISK":CQ$"AND PRESS (C) TO CONTINUE":93:CP$"OR PRESS (A) TO ABORT":93:Z$:Z$:(Z$"C")(Z$"A" PRESS (RETURN) ";Z$:98"f104IgD$"BLOAD"N$",D1":216,0:DC$:108nh216,0:DC$:FIX:(222)13108xi107jDO$;N$",D1":DR$;N$:Z$:DC$:216,0:108k216,0:DC$:FIX:(222)5ı=l:9:13:"PLEASE INSERT":((40((N$)6))2):N$" R>";:SB$::SB$(17)AB1:960_SB$" "94F`20:958:1002:maER(222):LN(218)((219)256):wb100cD$"BLOAD MENU,D1":DC$:216,0:101d216,0:DC$:FIX:(222)13ıe:10:8:"PLEASE INSERT FIRST BASE":3:"INTO DRIVE 1 ANDуLzm{i{ {Lz{{Lz{{у"HȱȱhLzm{i{ {Lz{д{LWz{{]v^v{ȭ{`$$`4 hh{ȱ {{ {{ {H{H4`Ѓ^HyIyLw]v^vHyIy_v`RH {hR lݠ`MAL&{ ߍ{{ z{ ޥHH ߍ{{ z{Lhh HH g RP{Q{hhLޠq{ȥq{{{{#{{ z zMz z{{{L ^L y L yNy g LHy +;$ l݅^_ ;L OyLx OyKyLy ߥHyHyMyуMyLxȱPȱQMyNyNHyPȌHyGyMyLx,Oy=NyMy* JyMyMyJyȌJyĝ^L y,Oy RH {hR lL>w" l݅`IS'Lpy Insert String V2.0 13-JUN-84 ޥKyLy l݅Gyȱgȱh.ůȱ尰"QP 㨈PHyIy L+y PyF g LʎHy +;$ l݅^_ ;v7v:sovtp`L:v_v ߍ]v^vɀLޥ))L`vSLLwSLLw w w , g XTPLJwee8ȌKw vJwJwKw!LvJwIwhhLw`Iw]v^vIw`             GA%::59AE1153 AJ1>MA%,DT$,K$(AJ):MA%159jTCTC1:R%(TC)MA%:AJMA%1:AJRC150r59X1RC:SS%,DT$,K$(X):AE2ĭSS%1TCTC1:R%(TC)XAE3ĭSS%0TCTC1:R%(TC)X:59K$(R)Q$(Y)GA%::53)AE11482AJ1PMA%,DT$,K$(AJ):MA%153|TCTC1:R%(TC)MA%:AJMA%1:AJRC14553X1RC:SS%,DT$,K$(X):AE2ĭSS%1TCTC1:R%(TC)XAE3ĭSS%0TCTC1:R%(TC)X:5301K$(R)Q$(Y) 10:13::"* SEARCHING *"::YAGAH0:AI0:143OCL%(Y)ADAH1:AI0:138bAH1:AI1:AGYF1Y:F2Y:R1RC:44:GA%:AE1ĭQ$(Y)DT$TCTC1:R%(TC)RSS%,DT$,Q$(Y):AE2ĭSS%1TCTC1:R%(TC)RAE3ĭSS%0TCTC1:R%(TC)R AI1(NCAC)1000:AD(((0)AB)RC):AD0AD0:K$(RC):20:8:11:"SELECT SEARCH TYPE"::3:"1. MATCH EXACTLY":3:"2. MATCH ANY PORTION":3:"SELECT (1-2) AND PRESS (RETURN) ";Z$:AE0:Z$""AE(Z$)((AE1)(AE2))132AE2AE31:128 216,0:D$"CLOSE":FX%::13:9:"PLEASE INSERT":((40((N$)6))2)::N$;::" VOL 2":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:122AB450(3(7(2(RC)))):AC0:X1NC:CL%(X)ACACCL%(X)*:ABAB(2(7(2RC)))4v23:"PRESS (RETURN) ";Z$:QFNCĹ34,(34)2::wRxQFQF1:QFNC114[y118ez124{D$"BLOAD"N$",D1":D$"CLOSE":216,0:128|216,0:D$"CLOSE":FX%:(222)13128}127~D$"OPEN"N$",D1":D$"READ"N$:Z$:D$"CLOSE":216,0:ELETING RECORD ";::R::=pF11:F2NC:Z$"@":111:69:79lq:"FIELD# LENGTH NAME":34,(34)2:QF1:rQF;:8:"("CL%(QF)")";:15:QL(H$(QF)):QL22QL22s(H$(QF),1,QL);:((QL2)((H$(QF),1)" "))ĺ:117t38:"(J)"u(37)20120ELECTIONS ALLOWED!":X12000::87~i:11:13:"PRESS (RETURN)":3:10:"A(UTO) M(ANUAL) R(ESTART) Q(UIT) ";Z$:Z$"A"110jZ$"M"55kZ$"R"80lZ$"Q"9m105nTS1TC:F11:F2NC:Z$"@":RR%(TS):111:69::80o22:958:11:"D5124)6)5"CD:(216,0:FIX:DC$(CP$"THE NEW DISK IN DRIVE "(D):CQ$"HAS NOT BEEN INITIALIZED":154:CP$"INSERT ANOTHER DISK":CQ$"AND PRESS (C) TO CONTINUE":155:CP$"OR PRESS (A) TO ABORT":155:Z$:Z$:(Z$"C")(Z$"A")186(Z$"C"124(6)qqq `8Hh i emu ȱ `qqL\}q췎q } g}h}`H  hi }  `LU~}   `LU~8`g}ig}h} g}g}h} f nsg]v^vfȹf`08byc0 bcLX`d     ` ^_JJJJ]\ ` V!S_LD_LV__, g 抮_ h0k \_LL-XYfg L4 |L __ L4L % XiXYiY[ XZkLgf_id * L_i!e bȱ c L4de )d4L搠_i#L<_LV ޥ`a ߍXY LԥHH`a LޠqZȥq[hh ] \^ ȩ |LJJJJ) 0) 0bc Lxbc8  bc L% $xD1":D$"CLOSE":216,0#8BU,0:59L9216,0:D$"CLOSE":768:(22)1356m:BU,255:D$"DELETE DEBUG,D1"v;63<D$"OPEN BREAK,D1":D$"READ BREAK":Z$:D$"CLOSE":216,0:BR0:Z$""BR(Z$)=BR0BR65536ĹBR,0>D$"DELETE BREAK,D1": 5]v^vȭ ; LX `4 hhȱΘΗHH4`INL֎ ߥ0Lޢ uH h)ȹ`CACLҠǠԠȠέӠé ̏ L2ɈOLˌ \LLaV ΑL틬ȑ 0ΑLً,0̏LɊɋɌߪ \ƍ⍲ࠐY) LA۰=) Lఐ)ະ%ȩ ̏)Lً :L -L- L*ɍ, \[[[ ̏Lɕ1H!͏h Lˌh LɂLˌɃLˌɄLˌɅLˌɑLˌɁh \܌錬L錩 ͏ȱȱ ̏L% *䥠 ̏ ̏L 0̏Lً0Lԋ%ȱPȱQ͐%#P ̐ ̏LċP ̏ ̏L틢5LԠ ̏ ,0L̏L ɘ! \--2ȱPWȱPVPqPTȥQqPUXYRS8``$$`4i hiPhiQ8PȱPHH8PȱPHH4`KE L KEYIN3 g RQP,IL8Lԋ ߍ$0$0L Lԋ  WLV  8LV) LV8LVL"`  Lm(`  ` H$h )(` ]v^vވuڥv  _v`]v^vȑ`LZ8PQPŁAȱPł:P 4 w w`Hȱh 4 w w` wĝ w`  +` ᅅ e` 㥝 P` L m`ia`H` Jh`8L ` PQ *䥠 "OPENING ";:40070%|"READING ";-N$G"PRESS (RETURN) ";Z$WEC110000]h20050IįCL%,N$:PD2:OP%,N$,(LL),D2:OP%0EROP%:EC1:40000>>NuHNRE%,N$,(RN,CL(F1)),Q$:RE%0ERRE%:EC2:40000{RNWNGA%\N@ PROCESS READ ERRORSJT"ERROR "ER" RECORD "RN" FIELD "F^"OCCURRED WHILE ";hEC40050,40060r((40((N$)9))2)&@)N$" VOLUME 2".J)14BT)"INTO DRIVE 1"J^)10hh)"AND PRESS (RETURN) ";Z$sr)10470 N READ FIELD F RECORD RN INTO Q$*N((RND3)(PD1))įCL%,N$:PD1:OP%,N$,(LL),D1:OP%0EROP%:EC1:4000084N((RND3)(PD2)),D4:OP%0EROP%:EC1:52O2RE%,N$,(RN,CL(F1)),Q$:RE%0ERRE%:EC2:52Z3GA%:4"ERROR "ER" RECORD "RN" FIELD "F:"OCCURRED WHILE ";:EC53,545"OPENING ";:556"READING ";7N$:"PRESS (RETURN) ";Z$:EC135851CT"6)q |$i }L8 i ȹ L҂L悩ȩ } L悩8 {8 {{{8   { {䭷L (ȍ ƃ{J L @ @){8ƄƄ  {8{L؁}ȩo ~L~ȩ }  }oiooiooo | **ɰ,,,0+ ,)` d' ᥡ`h h H    LTh H H` h h  ȱ ΩΨHH`8`8` 8`8`` ɍ   ` ND! ?PRESS (RETURN) ` ,,Lvw,_ 1_`` `__` a_``L~HH  i}hh i8Ȋ iH9B,q* ?VTOC BEFORE = DŽ ? AFTER = hI9,q DŽ`8h` ,* - 2 - ȱ 6}` }LS~ 0&  H qh`i#L ~8`8 c ?I/O ERROR!L8 c ?RECORD OUT OF RANGE!L8 c ?STRING OVERFLOW ERROR!L8c ?ERROR! DISK FULL!L8 c ?FILE NOT FOU.CL%,N$/:13:9:"PLEASE INSERT":((40((N$)9))2):N$" VOLUME 2":14:"INTO DRIVE 1":10:"AND PRESS (RETURN) ";Z$:440((RND3)(PD1))įCL%,N$:PD1:OP%,N$,(LL),D1:OP%0EROP%:EC1:521((RND3)(PD2))įCL%,N$:PD2:OP%,N$,(LL)"*':"FIELD # LENGTH NAME":34,2:X1:o(X;:9:"("(CL(X)CL(X1))1")";:16:(H$(X),1,13):(37)2042)XX1:XNC40*24:12:"PRESS (RETURN) ";Z$:XNCė:41+:,D21:OP%,N$,D4:D22:OP%047-RE%,N$,Z$:RE%0įCL%,N$: D":"PRESS (RETURN) ";Z$:385":D$"RUN REPORT,D1"D#ME$"MENU"h$OP%,ME$,D2:CL%,ME$:OP%1338%:7:8:"PLEASE INSERT PROGRAM DISK"::14:"INTO DRIVE 1"::10:"AND PRESS (RETURN) ";Z$:36&::12:10:"* LOADING MENU *":D$"RUN MENU,D1"N$".S,D"D1:D$"WRITE"N$".S":SM:SM129>X1SM:S%(X):ZD$"CLOSE":RE$"REPORT"~OP%,RE$,D4:CL%,RE$:OP%1332:5:9:"PLEASE INSERT HOMEFILER DISK":14:"INTO DRIVE 1":10:"AND PRESS (RETURN) ";Z$:30 SM034!SI$" NOT FOUN)(ST$"2"))24 22 :13:9:"SEARCHING FOR":((40(SI$))2):SI$:SM0:RN1RC:RN%RN:MA%,RN%,I%(0):ROMA%:RO1RO0 48:SS%,SI$,Q$:((ST$"1")(Q$SI$))SMSM1:S%(SM)RO ((ST$"2")(SS%0))SMSM1:S%(SM)RO):CL%,N$:D$"OPENIN WHICH FIELD? (1-"NC")";:"";Z$:Z$"F"İ39:19I F0:Z$""F(Z$)` ((F1)(FNC))19 :6:11:"SELECT SEARCH TYPE":::8:"1. EXACT MATCH":8:"2. MATCH ANY PORTION"::11:"SELECT (1-2)":23:13:"PRESS RETURN":24:13:"";ST$:((ST$"1":7 D22İ44v :9:8:"ENTER ITEM TO SEARCH FOR":23:13:"PRESS (RETURN)":11:KE%,1,SI$,39:TR%,SI$:KE%18~ 16 SH((40(SI$))2)1 :SH:SI$:34,4:9:23:"PRESS (F) (RETURN)FOR FIELD NAMES":12:4:"PRESS (RETURN)":10:4:"FOUND X1NC:RE%,N$,(0,CL(X1)),H$(X):RE%0įCL%,N$:11G :CL%,N$:12n :"ERROR READING FIELD NAMES!":7w 14 D$"OPEN"N$".I,D"D1:D$"READ"N$".I":X1RC:I%(X)::D$"CLOSE":216,0:15 216,0:D$"CLOSE":FX%::"ERROR READING INDEX FILE!"OPEN"N$".V,L498,D"D1:D$"READ"N$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:8 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" "PRESS (RETURN) ";Z$:35 LLCL(NC)NC:OP%,N$,(LL),D1:OP%0115 (254)2543&(255)2554L(4)"BRUN AMPER FACTORY.OBJ0,D1"D$(4):I(868):N$"":X869(868I):N$N$((X))::CL(88),H$(88),I%(1500),Q$(88),S%(1500):D12:D41::15:"* SEARCH *":34,2:9:10:"* READING FILE STATS *":6t D$"       qpo ȥ V L xL q{JJJJpo b X!S{L{D{L{V{{. g { {0{ o{Ly{L|L|` ߅ L`sxyz L| { |L|  ȩ { L ߅   *Bz>^L *Bz;~I~B~WRLz { |L|  ȩ { L ߅   *z *z&~4~-~CLLz { |L| ~LDELU{ { X{ | #}  >mȥn?n ,ty ,(tyLey)tyLeyHty h,LyLh L=ytyL`Ly DISK I/O 4.2 18:30 02-APR-84 OPLywLyCRLzwLy {mn}~ Ly ((}~Ly( g Rmn X{r |Lz #} u}LREL{z 艭 W = W 3 W + W # W (ȥL&( HLP0ȱP08`PqPQqPQP`<ȱȱ.ůȱ尰" 㨈`朥ů`LmnƔƕƖƗijLimjm日mŖn嗰楛Ÿ幰 8}~ 8}~mmimijmjkmklmlmmmnmn]vm]v^vm^v )ȩ W W ȩ W W W W WP WQ ֥ijPQlk! }PiQi PiQiL]nm; } LP iePQi iથiQPLmड़m8寍對0e Lmmnm ӭL-`$$`]v^vވuڥv  _v`S *P. @0 VOLUME SLOT  DRIVE FREE ) 3H  TBARSBAIFXLhhߚHH`ZRL㒠lOVL OVERLAY 15:44 13-MAR-84 ' L `hq8`q` x,q0 X [q  ALZ LZ ` LZ ,q0 X [$ ?READING RECORD #`$ ?WRITING DATA`  ɠ ȩ  `x 釐 g Y 釐 : yL `x% ć Y ć : yL0`x ć , Y ć : yLU`nL{n{{8nLq{{`ˠx x i} ~`H i}o ~hLhq8`q`H i}n ~hLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ? VOL 21L΅ x$ ?AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ? VOL 12 ԅ` x$ ?AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ? VOL 1La ` ( Y : yL`xHx xhx 釐 Y 釐 : yLنL솭xHx xhnuqux x`uquL$ ?PLEASE INSERT UTILITY DISK INTO DRIVE 1` $ ?AND PRESS (RETURN) ` ,,` $ ?PLEASE INSERT` x$ ?AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA ? VOL 21 ԅ`H$ ?INTO DRIVE h ` x$ ?Ą DŽ ? PAGE ń DŽ ? SLOT  DŽ ? DRIVE  DŽ ? VOLUME } DŽÄLC?Ąńȥ }  }`8 c ?ILLEGAL TRACK REFERENCE!LƄJJJJ) Ƅ) ` 8 ` `n L„ {{L@„LE{  Ƅ { fLL9 ȹ  } L9` Ƅ` ƃ`ÄĄń,qn ?WRITE TRACK Ä DŽ ? SECTOR TURN)";:V:8:"ALL CORRECT (Y/N) ";Z$:Z$"Y"āX1NC:FF(X)0:::33MDEC110000sSP$"Y"Ċ1~20050136L:9:"YOU HAVE CHOSEN FIELDS ";:QS0:QE0:X1NC:FF(X)1155`QS0QSX:160nQEX:160{QSĺQS;QEĺ"-"QE;:QE0:QS0:159QS0160QS0",";:QSĺQS;QEĺ"-"QE;G::V(37)1:24:13:"PRESS (REH:",";:HH2:143(:H1:V24VV1=XX1:XTF138CYSP$"Y"Ċ0:1002"ERROR "ER" RECORD "RN" FIELD "X:"OCCURRED WHILE ";:EC147,148"OPENING ";:149"READING ";N$:"PRESS (RETURN) ";Z$:EC1119SP$"Y"Ċ1ТӠŠŠƠȍŠΠҠԢŠҠͮӠϠŠΠΠŬŠΠύԢ͠ήԠנŢӠՍϠŠŠΠԠˍҠŠĠנŠΠˠˬԠǠƠŠҮΠΠōĠҠĠΠŠήŠӢŠӠčϠŠĠӠ͠ōˮ̠ƠŠǠӍΠϠŠҠΠȠٍŠĮƠՠԠōǠҩԢ٠ӠΠōάԠӬҠԍǠӮȢŠӠԍΠΠӬӬҍӮŠӠӠϠŠŬԠ͍άҠŠŠӍ͠ŠˮӠΠōĠ٠ĬҬҠŮҠŬĺάŬΠҩάŬ΍Һҩźנ٠Ӡ̍ԠΠŠˮԯŢՠΠˠԍӠҠŠΠ΍٠ƠŠӮԢŠӠΠŮӠٍ̠ΠӠŠ̠պčҠŮŠ΢ӠōӠƠҠŬŮǮŧӠŬŠƠȠٍĩנ٠ӠՍŠĠҠȠٍĠȩנ٠ӍՠŬĠȍŠǠӠŠčϠРՠĠŠΠƍȠŠΠŠҠͮҠ̠ΠӍөȠΠՠԍϠРΠŮӠӠנՍĠӠϠ   ((RND3)(PD2))įCL%,N$:PD2:OP%,N$,(LL),D4:OP%0EROP%:EC1:145X1TF:FF(X)1įRE%,N$,(RN,CL(X1)),Q$(X):RE%0ERRE%:EC2:145:GA%:123::128:V13:H1:X1V:H:FF(X)1143X;:HH1:X9HH1H35142ՠ֠ΠϠРѠҠӠԠȠɠڠˠ̠͠0132(RE%,N$,Z$:RE%0įCL%,N$:4CL%,N$:13:9:"PLEASE INSERT":((40((N$)9))2):N$" VOLUME 2":14:"INTO DRIVE 1":10:"AND PRESS (RETURN) ";Z$:129((RND3)(PD1))įCL%,N$:PD1:OP%,N$,(LL),D1:OP%0EROP%:EC1:145H àĠŠƠǠ  :12:"PRESS (RETURN) ";Z$:XNCė:125/:7:5:"ENTER FIELD(S) # TO BE PRINTED":5:"(DISPLAYED)":17:"PRESS (RETURN) AFTER EACH FIELD #":23:"PRESS (F) (RETURN) TO VIEW FIELDS":"PRESS (0) (RETURN) WHEN DONE";:D21:OP%,N$,D4:D22:OP%ISK"::14:"INTO DRIVE 1"::10:"AND PRESS (RETURN) ";Z$:120tz::12:10:"* LOADING MENU *":D$"RUN MENU,D1"{:"FIELD # LENGTH NAME":34,2:X1:|X;:9:"("(CL(X)CL(X1))1")";:16:(H$(X),1,13):(37)20126}XX1:XNC124'~24(29)360 JKE%,4,Q$(Y),39' TYY10 ^3108 h23R r"PRESS (RETURN) ";Z$X wa |340q OP%,FI$,DQ| Y1X WR%,FI$,Q$(Y)  CL%,FI$1086qVM(X):HM(X):KE%,1,Z$,2;:TR%,Z$:KE%1113TrZ(Z$):Z$"F"İ123:103msZ$"0"MF(X)0:110t((Z1)(ZNC))113uMF(X)Z:XX1:X7113vwME$"MENU"xOP%,ME$,D4:CL%,ME$:OP%13122?y:7:8:"PLEASE INSERT PROGRAM D8!-F8:LF$"Y"CR$CR$(10)'.(OPTIONAL)":"LINE 2. PERSON TO CONTACT":"LINE 3. ADDRESS":"LINE 4. CITY STATE ZIP":X1tiMF(X)0113jMF(X)0110kVM(X):HM(X):MF(X);lXX1:X7105mnX3112oVM(X):1:868:108pVM(X):HM(X)6:" ";: (Z$)3İ33:32 Z$:270 CL%,FI$:5P !23:"PRESS (RETURN) ";Z$:t ":"HELP NOT AVAILABLE":33:32XN"N$".S,D2":D$"WRITE"N$".S":RC:X1RC:X::D$"CLOSE": :6:10:"PLACE BOOT DISK INTO DRIVE 1":10:"AND PRESS (RETURN) ";Z$:D$"PR#6" DQ1:FI$"HELP":OP%,FI$,DQ:OP%034  RE%,FI$,Z$:RE%034 Z$""31 (Z$)29İ33:26$"RUN REPORT,D1"' D$"RUN SEARCH,D1"> D$"RUN DELREC,D1"P D$"RUN I,D1"Y 22 D$"OPEN"N$".V,D2":D$"READ"N$".V":NC:RC:D$"CLOSE":216,0: 216,0:D$"CLOSE":FX%:23:9:"ERROR READING .V FILE!":12:"PRESS (RETURN) ";Z$:: D$"OPE11,9,9,9,9,11,25,24 RC011Z 23:13:"FILE IS EMPTY":12:"PRESS (RETURN) ";Z$:5 :11:10:"* LOADING MODULE *":Z12,13,14,15,16,17,18,19 D$"RUN STDINP,D1" D$"RUN FILEINFO,D1" D$"RUN INSCHN,D1" D$"RUN SORT,D1" 23:DE":10:"4. SORT":10:"5. REPORT":10:"6. SEARCH":10:"7. DELETE RECORDS":10:"8. SELECT A NEW FILE":10:"9. HELP" 9:"10. EXIT"::10:"CHOOSE (1-10)"::10:"PRESS (RETURN)":17:24:"";Z$:Z0:Z$""Z(Z$) ((Z1)(Z10))5 Z11,11,v(254)2543&(255)2554L(4)"BRUN AMPER FACTORY.OBJ0,D1"D$(4):I(868):X869I868:N$N$((X)):X:20w :3:15:"FIRST BASE":((40(N$))2)::N$:::10:"1. ENTER DATA":10:"2. FILE INFORMATION":10:"3. INSPECT/CHANG     E MAILING LABEL FORMAT"::19:1:"PRESS (F) (RETURN) TO VIEW FIELDS":20:1:"PRESS (0) (RETURN) FOR NO ENTRY":11:1:"ENTER ANY FIELD # ON ANY LINE":12:1:"PRESS (RETURN)":18:1:"LINE 4 MAY TAKE UP TO 3 FIELD NUMBERS":3ch"LINE 1. COMPANY NAME L 1":14:"INTO DRIVE ";::"2"::11:"AND PRESS (RETURN)";Z$:19` 216,0:768:(222)1321h 242 104,168,104,166,223,154,72,152,72,96:Q$N$:19:; 25X D$"BLOAD"Q$",D2":216,0a 23 D$"OPEN"Q$:D$"READ"Q$:Z$:D$"CLOSE":D$"UNLOCK"Q$:216,0: 216,0:768:D$"CLOSE"B :13:9:"PLEASE INSERT":((40((Q$)6))2)::Q$;::" VO::D$"WRITE"N$".V,R1":D2:D3:D$"CLOSE":10:"REWRITING INDEX FILE":D$"OPEN"N$".I,D2":D$"WRITE"N$".I":X1RC:X: D$"CLOSE":8:"REWRITING SURVIVOR LIST":D$"OPEN"N$".S,D2":D$"WRITE"N$".S":RC:X1RC:X::D$"CLOSE":22 X768777:Q:X,Q::RCDR:12 RCSCDR& RC0RC0< RCD3D21:D3RCN :8:DR116w 8::DR;::" RECORDS WERE DELETED"v 11::RC;::" RECORDS REMAIN":8:"REWRITING VARIABLE FILE":D$"OPEN"N$".V,L498,D2":D$"WRITE"N$".V,R0":NC:RC:RR:X1NC:CL(X)1":10:"AND PRESS (RETURN)";Z$:2\ 12:12:"* LOADING MENU *":867,254:D$"RUN MENU,D1"v ((SU0)(DR0))10} 2 D$"OPEN"N$".V,L498,D2":D$"READ"N$".V,R0":NC:RC:RR:CL(NC):X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":SU0RCixSC(764)((765)256):DR(766)((767)256):SU(867)::D$(4):N$"":X869((868)868):N$N$((X))::18:85D$"BLOAD MENU,D1":216,0:7216,0:768:(222)134" :7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE    T),CF,CD):98:CC0%`XX1:XTF85-a67BbLNLN1:LNLPı^cLN0:SP$"Y"ĺ(12);:d24:"PRESS (C) TO CONTINUE ";Z$::Z$"C"ġ:119ef:X16:VM(X):HM(X):: 3,34,4,28,5,18,6,16,6,25,6,34:X16:MF(X)1:g:4:"THIS IS TH(X))XCCCDCO90RYCECOCC:(H$(X),CF,CE):98:CC0:CDCDCE:CFCFCE:88Z(H$(X),CF,CD);:CCCD:CCCOĺ:98:CC0[":";:CCCC1\CF1:CD(Q$(X))]CCCDCO95^CECOCC:(Q$(X),CF,CE):98:CC0:CDCDCE:CFCFCE:93_(Q$(X77KPF$"Y"ĺH$(X)":";%LQ$(X)EM:QPQP1:RORO1:ROSM70TNQPRQ67qO:RNI%(S%(RO)):133:73PCC0:PR$"Y"84QRN". ";:CC3:RN9CC4RRN99CC5SRN999CC6TX1UFF(X)196VPF$"Y"92WCF1:CD(H$z#??????     Ҡ Р  ˠ"Š !Π ˠ Ԡ#ƠàϠ ՠԠȠϠҠٮʰ!РΠԯůŠ ɠˠ"N$".S,D2":D$"WRITE"N$".S":RC:X1RC:X::D$"CLOSE": :7:10:"THANK YOU FOR WORKING":10:"WITH HOMEFILER ";Z$:D$"PR#6" DQ1:FI$"HELP":OP%,FI$,DQ:OP%034  RE%,FI$,Z$:RE%034 Z$""31 (Z$)29İ33:26 (Z$) (4)"RUN TDF"5LԠ ̦ ,0L3̦L, ɘ sYYLLY Lʇɍ* s, ̦L,ɕ ͦ LɂLɃLɄLɅLɑLɁf s󈬦L :LԠ Ȅ`$$`FXL\hhߚHH`KE L KEYIN2 g RQP,IL8L ߍ$0$0L L *䥠 ̦ ̦L 0̦Li @hiPhiQ8PAȱPHAH8@PAȱPHAH4`SWLɆ ߍ† ņ ߍÆĆ ņLԭ†ÆĆņƆ`$$`TR/LGҠ͠Šˠ é +*(`+* , *+` H$h )(` EzFzވuڥv  Gz`EzFzȑ`L8PQPŁAȱPł:P2ȱPȱPPqPȥQqP녥8``$$`4 ĝ ` Z +` Z ᅅ e` !B 㥝 PB` LmB`ia`H` Jh`8L` PQ *䥠 B L  8L) LBBB8LL`+* , L^i kLR] *>M aLNL`\ L3!`\ [̃` 녬셆\ +L 4ȹ  L񅑅򅑅` 4  `Hȱh 4  `X .` u .` 7 %` X %` u %`] `] `녬 RP ҂LWPQ` ҂Lt` ҂LтHH Jhh5LR RP ҂LтPQ`8` aL=\yHʘHM]GMkkLLRMJKH ` Hȱ h 8` $QPB ɠ׈BP Ɉ` Hȱ h  LR $੠ QPP ` 7 .` X!SkL*DkL*Vkk. g k e0h EkLLRLR` ߅ L`HMNO LJ ( NOLJk #,) L#RkLBkk.HʽG,M$h g Rk ȩ L} ߅ \ \ ̃\  CLL l KLR   ,LN L}DEL l  K  GFE ȥ , L} NLT GkJJJJFE b GFE ȥL  ,DL ,6) , LR  ,L} LNREL~ l KLR  ȩ L} ߅ \ \ ~3!\ ~WRLN l KLR >mȥn?n ,U} ,(U}LF})U}LF}HU} h,L|Lh L}U}L`Lx} DISK I/O 4.0 10-FEB-84 09:20 OPL}LL}CRL~LL} lCDRS L} ((RSL}( g RCD  KL}  CȭDHH ߪhh|||| ӭ|||}|ȱii|i||||||L|| |EzFz||`$0$0`ӠǺDLV}ALV} Bq<ȥCq=8mꥃmn|||8|ȱ8||||L| |||Lvݘ||L{|8坍|mn|}|ȍ||||||L=||L{hh|n |m||||| ӅmnL(|||L|hh?216,0:D$"CLOSE":768:62IDE ON LENGTH OF FIELDS"::6:"PRESS (RETURN) TO CONTINUE ";Z$: A BLANK DISK":14:"INTO DRIVE ";::"1"::8:"PRESS (I) TO INITIALIZE":4:"OR (RETURN) TO RETURN TO MENU ";Z$~\Z$""9]Z$"I"91^:14::"INITIALIZING"::D$"INIT HELLO,D1":D$"DELETE HELLO":CR%,N$,D1:D22:97_RCR:RCR1D3RC`OR ";:OP%0ĺRE%;:87 VOP%;.WEC88,89GX" VARIABE FILE":90ZY" INDEX FILE"{Z"PRESS (RETURN) ";Z$:NA1:q[::CL%,N$:QD0:5:"IT IS NECESSARY TO INITIALIZE":13:"A SECOND DISK":5:"IN ORDER TO STORE RECORD ";::R:::10:"INSERTKR99BIBI270:77.LBIBI((R10)3):80HMR999BIBI3600:79bNBIBI((R100)4):80yOBIBI((R1000)5)POP%,I$,(1),D4:OP%084QZ$(R):WR%,I$,(0,BI),Z$:WR%084RCL%,I$:GA%:SEC1:85TEC2U22:1:958:"ERRV$,(498),D4:OP%083WEZ$(NC):Y$(RC):X$(RR):WR%,V$,(0,0),Z$,Y$,X$:WR%083FX1NC:Z$(CL(X)):WR%,V$,Z$:WR%083G:Z$(D2):Y$(D3):WR%,V$,(1,0),Z$,Y$:WR%083HCL%,V$:IBI0:R9BIBI18:75JBIBI((R1)2):80,N$,(R,B),M$(CF):WR%063#=:C>22:958:"ERROR "OP%;:64_?22:958:"ERROR "WR%;@" RECORD "R" FIELD "CF:"PRESS (RETURN) ";Y$:NA1:A22:1:958:10:"WRITING RECORD ";::R;::58:NA1ıB73:CNA0:RCR1D3RCDOP%,2 WILL HOLD ";::R2;::" MORE RECORDS";a96:1:868:"PRESS (RETURN) AFTER ENTERING DATA"::NA0:((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%062;((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%062<CF1NC:BCL(CF1):WR%$"Y"TY1:951TY4:26l23:1:868:"CURRENT NUMBER OF RECORDS = ";::RC;::4:1:868:RCR1543"DISK WILL HOLD ";::RRR1ĺR1RC;4RRR1ĺRRRC;5:" MORE RECORDS";:576RRR1577R2RRR1:RCR1R2RRRC)82:"DISK SS1:FCPC(SS):BU1:27Q+V(SC):H(SC):M$(SC);:LSCL%(SC)(M$(SC)):LS145e,X1LS:" ";:u-SCSC1:35.SCSC1:SCFC35/SSSS1:FCFC1:SCNC270GA%:22:1:958:24:13:"PRESS (RETURN)";:22:10:"ALL CORRECT (Y/N) ";Z$:Z),CL%(SC):KE%39,40,41,35,35,26,37,24.$35n%V(SC):H(SC):Q$(SC);:(Q$(SC))CL%(SC)M$(SC)Q$(SC):46&X1CL%(SC)(Q$(SC)):" ";::M$(SC)Q$(SC):46'TR%,Q$(SC):M$(SC)Q$(SC):46(Q$(SC)"":M$(SC)Q$(SC):46)SC135*SCSFSS(36)1:M$(FC);:LSCL%(FC)(M$(FC)):LS130B X1LS:" ";:R :FCNC33 CH(CL%(FC1)2)7:CV(CH40)2:((37)CV)1933 FCFC1:28 !22:958:13:23:"(CTRL-Q) MENU";:BU1BU0:SCFC:35 "SCSF&#V(SC):H(SC):KE%,TY,Q$(SCRCRR25L 34,2::10:11:"THIS FILE IS FULL!":12:"PRESS (RETURN) ";Z$S 9 R1(97280LL):50:RRC1:X1NC:M$(X)""::GA% FC1:SS1:BU0 SFFC:PC(SS)SF::"RECORD ";::R::. FC".";:5::H$(FC);::" - ";:V(FC)(37)1:H(FC)OP%,N$,(LL),D4:OP%018J X1NC:RE%,N$,(0,CL(X1)),H$(X):RE%018\ :CL%,N$:19 :"ERROR READING FIELD NAMES!":8 20 :((40((N$)4))2):"* "N$" *":34,7:I$N$".I":V$N$".V":OP%,I$,D4:OP%0įCR%,I$,D4 CL%,I$ :OAD MENU,D1":216,0:D$"CLOSE":13K 216,0:D$"CLOSE":FX%:(222)1314 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:10 ::10:12:"* LOADING MENU *":D$"RUN MENU,D1": LLCL(NC)NC:V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ100 15 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" :"PRESS (RETURN) ";Z$ :CL%,N$ 12" D$"BL(254)2543&(255)2554L(4)"BRUN AMPER FACTORY.OBJ0,D1"TV(901):PC(88):CL%(88),CL(88),H$(88),Q$(88),V(88),H(88),M$(88):TY1:D$(4):I(868):X869(868I):N$N$((X))::D11:D42:7} D$"OPEN"N$".V,L498,D2":D$"READ"N$".      ";Z$:21]:SQ0:"ENTER SINGLE RECORD(S) AND/OR":"RECORD RANGE(S) (EXAMPLE 0-"RC")"::"PRESS (RETURN) AFTER EACH SELECTION"::"PRESS (P) AND (RETURN) TO PROCESS":34,9^TC0:_7:16:" ";Z$:((Z$"P")(TC0))113`Z$"P"114aZ$"ERROR "OP%;:87+V22:958:"ERROR "WR%;fW" RECORD "R" FIELD "CF:"PRESS (RETURN) ";Y$:OP%0ıpX:21YFCFC1:FCNC53ZSCSC1:SCTC51[X1TC:R%(X)0::TC0:21 \22:1:958:9:"NO RECORDS TO PROCESS!":12:"PRESS (RETURN)68:H$(CF)Q$(CF)3O81:((CFAG)(R0))K$(R)Z$APFCSF:54Q((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%085R((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%085SBCL(CF1):WR%,N$,(R,B),Z$:WR%086TU22:958:"F):KE%,4,Z$,CL%(CF):KE%73,74,71,71,71,71,806H71FITR%,Z$:75TJZ$"":75kKQ$(CF)Z$:R079LJ%(CF)0:((CL%(CF)2)((Z$)CL%(CF)))78M21:1:958:9:"JUSTIFY FIELD (Y/N) ";JF$:JF$"Y"Q$(CF)Z$" ":Z$Z$" ":J%(CF)1N21:8 (M) MENU":"PRESS (RETURN)":22:29:"";Z$:Z$""89J?Z$"C"89Y@Z$"E"91hAZ$"R"52wBZ$"S"90CZ$"M"8DCF0:Z$""CF(Z$)E((CFSF)(CFFC))62F21:1:958:"PRESS (CTRL-A) TO REPEAT".GV(CF):H(CF):Z$Q$(C!9((R0)(J%(FC)1))ĺ" (J)";1::FCNC62f;CH(CL%(FC1)2)7:((R0)(J%(FC1)1))CHCH4<CV(CH40)2:((37)CV)1862=FCFC1:55;>20:958:"PRESS ("SF"-"FC") TO CHANGE OR":"(C) CONTINUE (R) REVIEW (E) RESTART":"(S) SKIPN) ";Z$:OP%043044&1TC192/2SC1K3RR%(SC):F11:F2NC:40T4FC1^5SFFCy6:"RECORD ";::R::7FC".";:5::H$(FC);::" - ";:V(FC)(37)1:H(FC)(36)1:Q$(FC);:BS(FC)CL%(FC)(Q$(FC)):BS(FC)1578X1BS(FC):" ";:,N$,(LL),D4:OP%045T)((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%045*F3F1F2:BCL(F31):RE%,N$,(R,B),Q$(F3):RE%046+,-22:958:"ERROR "OP%;:47.22:958:"ERROR "RE%;/" RECORD "R" FIELD "F3:"PRESS (RETUR1:23:13:"PRESS (RETURN)":VVB (CL%(Y)40)Ė((40CL%(Y))2)f!KE%,1,DT$,CL%(Y):KE%35,37,39{"17:1:958:32#TR%,DT$:(DT$)1DT$" "$38%DT$""&138'SQ0:21(BF1F2:Q$(B)""::((QD1)(RD3))įCL%,N$:QD1:OP%"PRESS (F) TO VIEW FIELDS"::19:"OR":23:13:"PRESS (RETURN)":12:9:"SELECT FIELD (1-"NC") ";:"";Z$:Z$"F"İ119:27 Y0:Z$""Y(Z$) ((Y0)(YNC))31 27:11:"PRESS (CTRL-B) FOR"::10:"INSPECT/CHANGE MENU":SQ1::VV(37):CL%,N$:QD0:SQ131 7:8:"1. SELECTED RECORDS":8:"2. ENTRY SEARCH":8:"3. RETURN TO MENU"::2:"SELECT (1-3) AND PRESS (RETURN) ";Z$:Z0:Z$""Z(Z$) Z321 RC1ĭZ221 Z93,27,8 21z :12:"* ENTRY SEARCH *":8:8:NC:OP%,N$,(LL),D4:OP%018q X1NC:RE%,N$,(0,CL(X1)),H$(X):((CL%(X)1)((H$(X),CL%(X),1)" "))J%(X)1 RE%018 :QD1:19 :"ERROR READING FIELD NAMES!"::"PRESS (RETURN) ";Z$ 135 :11:"* INSPECT/CHANGE *":34,2 D$"BLOAD MENU,D1":216,0:D$"CLOSE":12P 216,0:D$"CLOSE":FX%:(222)1313 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:9 ::10:12:"* LOADING MENU *":D$"RUN MENU,D1": LLCL(NC)$"READ"N$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ128 14 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!"::"PRESS (RETURN) ";Z$ CL%,N$ 11' (254)2543&(255)2554L(4)"BRUN AMPER FACTORY.OBJ0,D1"BS(88),CL%(88),CL(88),H$(88),I%(1500),Q$(88),R%(1500),S%(1500),V(88),H(88),J%(88):D$(4):I(868):X869(868I):N$N$((X))::D11:D42:7 D$"OPEN"N$".V,L498,D2":D          3İ33:32 Z$:27% CL%,FI$:5E !23:"PRESS (RETURN) ";Z$:i ":"HELP NOT AVAILABLE":33:323:32X٠Ϡ堤ĥ堠頠̠ԓ̠涠Ϡ堤Ė̠ͥ͠蠠ҠΉᠮ蠽Ėӯ蠠ҠΉᠮ蠽ĬLe e ` & e e ` 蘝 ` ʼʽ ```$ ) I`Hh``` `(`LL֠ı堠頠𺷰ŀ躱𠩠戠  Lu Lu Y8 YiiLii Y Y8Ly L g gLy `     H h   E   EH h ` H H & $  & he he  ȱ  8 $  L ȱ ȱ  С!L̒ L   E ȥ 88ii { ii {80LLii8Jfee   E   $  LO mѐiɐ ȐL_ϐдАL ϐАyzАȭϐ`$$`4 hhՐȱ֐Ր֐Ր֐HՐH4`ЃQLSLLv t $0$  ȱLҐӐ Ԑ ޥHH ߍƐǐ ԐLhh HH g RPϐQАhhLޠqȐȥqɐƐǐԐِѐ ҐӐѐуLgmѐiɐ ȐL_ϐАLˏҐӐу"HȱȱhLgُ44"ЎώLGߎ᎙iiώ` Ҡ ӠŠҠINL& ߥ0Lޢ uH h)ȹ`MALܐ i_^LL8ooppݟoݏ*^_^oLy^ώ_ȥo^ȥp^L8om㎥pn䎭y^z_䎑^ȭ㎑^`$$`^0ȱ^08`^q^_q^_^`Lȱߎȱߎopvߎmnjߎ͏ퟎ\h,LLh LRL`FXLhhhߚHH`GAL L g %0@0L 8pn⎐ ㎍Lstopij^_lkL ԍ^i_i ^i^_i_LӌnmLJ ԍ L^ ie^_i i; SVsotp`LV{ ߍyzɀLޥ))L|DLӋCLӋ ߅LȱȱˋËˋ`ҰDLSALS Bq<ȥCq=8m>mȥn?n ,R ,(RLC)RLCHR      :8.H"OR Q (RETURN) TO QUIT ";Z$:Z$"R"Ĭ=IZ$"Q"16WJZ$"I"Ģ5:958:71zK::14:"INITIALIZING"::77LD$"INIT HELLO,D2":D$"DELETE HELLO,D2":216,0:M216,0:D$"CLOSE":FX%::"ERROR "(222)" OCCURRED!":"PRESS (RETURN) ";Z$:C0::E:67F:7:5G"PLEASE INSERT A BLANK DISK":14:"INTO DRIVE ";::"2"::10:"AND PRESS (RETURN) ";Z$::7:"THIS WILL DESTROY ALL DATA":15:"ON DRIVE ";::"2":::5:"PRESS I(RETURN) TO INITIALIZE":6:"PRESS R (RETURN) TO RESTART"12[=:"FIELD# LENGTH NAME"::34,2:Y1X:Y;:8:FL(CL(Y)CL(Y1))1:FL0ĺ"("FL")";u>M(H$(Y)):M22M22?M165@15:(H$(Y),1,M);:38:(H$(Y),1)" "ĺ"(J)";:66AB(37)1868C:D20:1:"PRESS (RETURN) ";Z$:OC1O0:D$"CLOSE"<D$"OPEN"N$",L"LL",D2":X1NC:D$"WRITE"N$",R0,B"CL(X1):H$(X)::D$"CLOSE":D$"OPEN"N$".P,D2":D$"WRITE"N$".P":80:1:66:1:"F":1:"Y":"P":"C":1:0:"":2:"Y":"N":D$"CLOSE":D$"OPEN"N$".PW,D2":D$"WRITE"N$".PW":PW$:D$"CLOSE":7":Z(Z$):((ZRS)(Z239))57 ;RR(19500(Z3))::7:10:"* WRITING FILE VARIABLES *":D$"OPEN DATA FILES,D2":D$"WRITE DATA FILES":1:N$:D$"CLOSE":D$"OPEN"N$".V,L498,D2":D$"WRITE"N$".V,R0":NC:0:RR:X1NC:CL(X)::D$"WRITE"N$".V,R1":1:7;7LLCL(NC)NC:RS((19500(220160LL)))3:RS10RS10N8RS239RS2399:9:5:"PRESS (RETURN) TO VIEW FIELDS"::V9(37)1:23:13:"PRESS (RETURN)":V9:"ENTER THE LENGTH OF THE LONGEST FIELD":8:"YOU WILL SORT ("RS"-239)";:" ";Z$:Z$""4 (0-"NC1") AND PRESS (RETURN) ";:"";Z$:Z$"0"ĉ:55N1Z0:Z$""Z(Z$)w2((Z1)(Z(NC1)))Ģ23:1:958:483ZNC1āX1NC:H$(X)"":CL(X)0:::184:XZ:TCL(X):26:TCL(X)475XNC476VTCL(X):Y(X1)NC:CL(Y)CL(Y)V::4*26:OC1OC0:451+XX1:X89NC88:479,42M-X1NCX1:47.:4:10:"PLEASE INITIATE AT LEAST 1 FIELD":Y12000::41/XNC:61:20:"0 ";::6:"ALL CORRECT"::"1-"NC" ";::6:"EDIT"::NC1" ";::6:"RESTART":60"SELECT6! L(Z$):((L0)(L240))34)!26C"CL(X)(CL(X1)(L1))#:::V9(37)1:V99:958:"PRESS (RETURN)":V9:"ENTER NAME OF FIELD ";::X::V92$KE%,1,Z$,L:KE%39,38%9:1:958:36&Z$"":40'TR%,Z$(H$(X)Z$:)78RETURN) TO VIEW FIELDS"::"PRESS 0 (RETURN) WHEN FINISHED":1: V9(37)1:::"PRESS (RETURN)":V9:"ENTER LENGTH OF FIELD ";::X;::" (1-239)";:OC2OC0:(CL(X)CL(X1))1:35 " ";Z$:Z$"0"OC1: Z$""33Z$"F"İ61:OC1:68:2PRESS (RETURN)":11:7:KE%,1,N$,25:KE%203 18k TR%,N$:L(N$):AV((N$,1)):((AV64)(AV91))22 ::12:"ILLEGAL FILENAME"::X12000::18 X1 ((N$,X,1))4421 XX1:XL23 X1:41 :27:28@ 21:"PRESS (F) (::D$"CLOSE":216,0:, 216,0:FX%:G0: :9:8:"PLEASE INSERT BOOT DISK":14:"INTO DRIVE 1":10:"AND PRESS (RETURN) ";Z$:9:"NICE WORKING WITH YOU":X12000::::(4)"PR#"((47081)16): 70+ :12:9:"ENTER FILE NAME"::13:13:"316 ZG22 ZG117- N$F$(Z) 864,2:P1$"Y":866,(P1$):868,(N$):X869((N$)868):X,((N$,X868,1)):::12:10:"* LOADING MENU *":D$"RUN MENU,D1": G0:15 D$"OPEN DATA FILES,D2":D$"READ DATA FILES":G:X1G:F$(X). "F$(X): G1". ";::"BEGIN A DATA DISK"::G2". ";::"CHANGE A DATA DISK"::G3". ";::"EXIT":::V9(37)1::13:"PRESS (RETURN)":V9:13 "SELECT (1-"G3") ";:"";Z$:Z0:Z$""Z(Z$) ((Z1)(Z(G3)))Ģ(37):1:958:6 ZGf(4)"NOMON C,I,O":(4)"BRUN AMPER FACTORY.OBJ0,D1":255,255:254,254:CL(88),H$(88):D$(4):3::9:8:"PLEASE INSERT DATA DISK":14:"INTO DRIVE ";::"2"::10:"AND PRESS (RETURN) ";Z$13::4:14:"HOMEFILER"::G05 X1G:X"     0 Z$(3) WR%,FI$,Z$% 23? "PRESS (RETURN) ";Z$L CL%,FI$R b WR%,FI$,Z$j 60z OP%,FI$,DQ Q$(100) X1 RE%,FI$,Q$(X) Q$(X)(3)290 XX1 250 "CL%,FI$:Y1 , 6Q$(Y)(3)390 @Q$(Y)Ф' (4)"BRUN AMPER FACTORY.OBJ0,D1"0DQ1?FI$"HELP"O#"EDIT ";Z$_$Z$"Y"220o(CR%,FI$,DQu2<KE%,1,Z$,39FTR%,Z$PKE%200,200,90,140,140,140,140,140ZZ$(29)dWR%,FI$,Z$n23x"PRESS (RETURN) ";Z$ 5  5)UTɈ@` L'L'"QB2SRT$"N"%RB4SRT$"D"HSDIR$"A":B2B4B6DIR$"D"NTvU:"FIELD# LENGTH NAME":34,4:Q1:VQ;:8:"("((CL(Q)CL(Q1))1)")";:15:(H$(Q),1,25):(37)2188WQQ1:QNC86 X24:6:"PRESS (RETURN) TO CONTINUE ";DM$:":A)"4) NUMBER SORT - DESCENDING"::A)"5) DATE SORT - ASCENDING":A)"6) DATE SORT - DESCENDING":MV9(37)1:23:A4:"PRESS (RETURN)":V9:A4:"SELECT (1-6) ";DM$:DM$(17)ġ:7NB0:DM$""B(DM$)O((B1)(B6))76PB0SRT$"W:"PRESS (RETURN)":V9:18)"#";:"";B$:B$(17)ġ:7KJB$(6)İ85:73iKF(B$):F1FNCİ85:73fL:17:"PLEASE"::12:"SELECT SORT TYPE":::A6:A)"1) WORD SORT - ASCENDING":A)"2) WORD SORT - DESCENDING"::A)"3) NUMBER SORT - ASCENDING"E"7>EC249 ?EC368-@EC468:AEC570OBQ$(Q,QA)"":54_CRO1:18140pDS$(X)"":50ERNR:FDM:61FT$(M,T)"":54GDO$N$",L"LL",D"CD:30060HCP$"ENTER NUMBER OF FIELD TO SORT"6ICQ$"":92::V9(37)1:23:13N::"PLEASE NOTIFY PROGRAMMER":"PRESS (RETURN) TO GO TO MENU";:Z$:Z$:7a<RNI%(QST):FDQA=:8:4:"RECORD# ";::RN;::" FIELD# ";::FD;::" IS BAD":"PRESS (E) TO ENTER A NULL IN IT'S PLACE":6:"PRESS (RETURN) TO GO TO MENU";:Z$:Z$:Z$%,S(0):/ER559(0RNX:FDF:6121A$"";254\3DO$;N$",L"LL",D"D4:EC323i4EC429q5386DC$:216,0:FIX:97:EC1607EC2478EC3479EC447:EC569K;"ERROR CODE ";::ER;::" OCCURRED IN LINE ";::L":IN%,A$:A$"@"S(X)1E35:DCDC1:396&S(X)(A$)R'I%(X)X::DC$:216,0:u(D41:DC$:DO$;N$",L"LL",D1":)SEL44,45,46*GA%:DIR$"D"İ11+,QS%,S$(0),I%(0):DA%,S$(0):-QS%,S$(0),I%(0):DA%,S$(0):.QS%,S(0),I%(0):DA(X)""S$(X)" "4S$(X)"@"S$(X)(254):DCDC1=34Q DC%,S$(X):54m!I%(X)X::DC$:216,0:z"FX%:33#D4D:EC2:54$S(RC1),I%(RC1):S(RC1)1E36:S(0)S(RC1):DO$;N$",L"LL",D"D:X1RC:XD31İ40'%DR$;N$",R"X",B"B:A$"",R"X",B"B:IN%,S$(X)-S$(X)""S$(X)" "QS$(X)"@"S$(X)(254):DCDC1mI%(X)X::DC$:216,0:D4D:S$(RC1),I%(RC1):S$(0)"":S$(RC1)(255):EC4:54DO$;N$",L"LL",D"D:X1RC:XD31İ40DR$;N$",R"X",B"B:IN%,S$(X)S$P BCL(F1):DC0:S$(1)"":S(1)0:I%(1)0:DA%,S$(0),S(0),I%(0):SRT$"W"SEL1d SRT$"D"SEL2x SRT$"N"SEL3 SEL20,26,35 D4D:S$(RC1),I%(RC1):S$(0)"":S$(RC1)(255):EC3:54 DO$;N$",L"LL",D"D:X1RC:XD31İ40DR$;N$":D2,D3:DC$:LL(CL(NC)NC):H$(NC):DO$;N$",L"LL",D2":X1NC:BCL(X1):DR$;N$",R"0",B"B:IN%,H$(X)::DC$:216,0: DC$:216,0:FIX::9:10:"PLEASE CHECK TO SEE":13:"THAT DATA DISK":13:"IS IN DRIVE ";D:10:"THEN PRESS (RETURN)";:Z$:Z$:132 ::3:" * SORT ROUTINE *":34,2:o X1(RC2):I%I%(RCX1):I%(RCX1)I%(X):I%(X)I%:: I(868):X869I868:N$N$((X))::VL498 15v DO$;N$".V,D2,L"VL:DR$;N$".V,R0":NC,RC,RR:CL(NC):X1NC:CL(X)::DR$;N$".V,R1":92:41:CP$"** ALL DONE **":92:(7);(7):GA%:9K X14:(7);:: 98:::10:12:"SORT COMPLETED":13:"LOADING MENU":D$"RUN MENU,D1": CP$"WRITING INDEX FILE":CQ$"TO DISK":92:DC$:DO$;N$".I,D2":DW$;N$".I":X1RC:I%(X)::DC$:CONTINUE ";Z$:85E 72:AQ(0)2000:AQ(((CL(F)CL(F1))1)RC)5 :10:7:"OUT OF MEMORY MAY RESULT!":8:"PRESS (C) TO CONTINUE ";Z$:Z$"C"3 D2:D21İ1025 CP$"READING DATA ON "(RC)" RECORDS":CQ$"PLEASE WAIT":92:16:CP$"SORTING(4)"BRUN QSORT/DATE/MERGE,D1":254,0:255,0:A$"":D$(4):DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":D2:10:CP$"READING FILE STATS":CQ$"PLEASE WAIT":92:90:12::10:7:"YOU MAY SORT ON ANY FIELD":6:24 "PRESS (RETURN) TO            "COPYRIGHT (C) 1983 MICROLAB INC.", 3 8R "2699 SKOKIE VALLEY ROAD"X _ 8 "HIGHLAND PARK, IL. 60035"  14 &"312-433-7550" (4)"RUN I"27,0:D$;"RUNI" 5Q60035"::14:"312-433-7550"::2t "MICRO LAB IS A REGISTERED TRADEMARK"::11:"OF MICROLAB, INC.":(4)"RUN I"60035"::14:"312-433-7550":(4)"RUN I"13 "DAVID SOUSSAN" X1600: (4)"BRUN ECHECK"  X16:: 4&5,37,0, 3,5,7,9,11,13,15,19, 24,27,31,35,36,0, 3,5,8,11,13,15,16,17,19!  23,24,25,27,28,29,31,32,33,35,37,0, 0,0::14:"VERSION 1.0"::(4)"BRUN ECHECK":4:"COPYRIGHT 1984 BY MICROLAB, INC."::8:"2699 SKOKIE VALLEY ROAD"::8:"HIGHLAND PARK, IL. u$:11:"MICROLAB PRESENTS"::2X:X04DX:"%";::2U:X:X03gX:X0ĺ:3F  3,5,8,11,13,15,16,17,19,20, 21,23,24,25,27,31,32,33,35,36,0, 3,5,7,9,11,12,13,15,19, 24,27,31,35,37,0, 3,4,5,7,9,11,13,15,16,19,20 , 24,27,31,32,3   FVSV102&`(TC(FVSV)1)RC104FaXSVFV:TCTC1:R%(TC)X:TbTCRC84c:10:"ALL CORRECT (Y/N) ";Z$:Z$"Y"83d34,2:TC0105e21f(TC(SVFV)1)RC104gXFVSV:TCTC1:R%(TC)X::98#h(37):6:958:"ONLY "RC" SP"100VZ$""88-W(37):1:958:84XXIL(Z$):FV(Z$):((FV1)(FVRC))87pY(FV)Z$SVFV:97ZSL((FV)):SLIL87[(Z$,SL1,1)"-"87\(SL1)IL87]Z1$(Z$,SL2):SV(Z1$):((SV1)(SVRC))87^(SV)Z1$87 _ROCESS!":12:"PRESS (RETURN) ";Z$:21R:SQ0:9:"ENTER SINGLE RECORD OR":8:"RECORD RANGE (1-"RC")":2:"PRESS (RETURN) AFTER EACH SELECTION":3:"PRESS (P) AND (RETURN) TO PROCESS":34,7STC0:T7:17:" ";Z$:((Z$"P")(TC0))99UZ$"75 I:+J22:958:"ERROR "OP%;:76GK22:958:"ERROR "WR%;L" RECORD "R" FIELD "CF:"PRESS (RETURN) ";Y$:OP%073M:21NFCFC1:FCNC57OSCSC1:SCTC56PX1TC:R%(X)0::TC0:21&Q22:1:958:9:"NO RECORDS TO P$"D"112AZ$"R"80'BZ$"S"795CZ$"Q"9=D63|E((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%074F((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%074GCFF1F2:CFAGK$(R)Z$HBCL(CF1):WR%,N$,(R,B),Z$:WR%0)CL%(FC)(Q$(FC)):BS(FC)1608;X1BS(FC):" ";:H<:FCNC63=CH(CL%(FC1)2)7:CV(CH40)2:((37)CV)2063>FCFC1:58?22:958:"SELECT (C)CONTINUE (D)DELETE R(RESTART)":"S(SKIP) Q(MENU) PRESS (RETURN) ";Z$:Z$"C"78 @Z"ERROR "RE%;H3" RECORD "R" FIELD "F3:"PRESS (RETURN) ";Z$:OP%047P448]5TC181f6105o7SC18RR%(SC):F11:F2NC:44:FC19SFFC::"RECORD ";::R:: :FC".";:5::H$(FC);::" - ";:V(FC)(37)1:H(FC)(36)1:Q$(FC);:BS(FCBF1F2:Q$(B)""::((QD1)(RD3))įCL%,N$:QD1:OP%,N$,(LL),D4:OP%049-((QD2)(RD3))įCL%,N$:QD2:OP%,N$,(LL),D1:OP%049.F3F1F2:BCL(F31):RE%,N$,(R,B),Q$(F3):RE%050/0122:958:"ERROR "OP%;:51 222:958:IT"V#:8:"ENTER ITEM TO SEARCH FOR":SQ1::V9(37)1::13:"PRESS (RETURN)":V9y$(CL%(Y)40)Ė((40CL%(Y))2)%KE%,1,DT$,CL%(Y):KE%39,41,43&17:1:958:36'TR%,DT$:(DT$)1DT$" "(42)DT$""*132+SQ0:21M,82,30,9 21 :8:"PRESS (F) TO VIEW FIELDS":V9(37)1::13:"PRESS (RETURN)":V9:5:"FOUND IN WHICH FIELD (1-"NC")";:" ";Z$:Z$"F"İ113::30 Y0:Z$""Y(Z$) ((Y0)(YNC))35 !13:1:958:28":9:"PRESS (CTRL-B) TO EXRY SEARCH":3:"3. RETURN TO MENU"::3:"SELECT (1-3) AND PRESS (RETURN) ";Z$:Z$"DEBUG"24 FI$"DEBUG":CR%,FI$,D1:CL%,FI$:21 Z$"BREAK"26 FI$"BREAK":Z$:CR%,FI$,D1:WR%,FI$,Z$:CL%,FI$:21 Z0:Z$""Z(Z$) Z321 ZNC)NC:OP%,N$,(LL),D4:OP%018R X1NC:RE%,N$,(0,CL(X1)),H$(X):RE%018a :QD1:19 :"ERROR READING FIELD NAMES!":8 129 :11:"* DELETE RECORDS *":34,2 :CL%,N$:QD0:SQ134^ 8:3:"1. SELECTED RECORDS":3:"2. ENTBLOAD MENU,D1":216,0:D$"CLOSE":13M 216,0:D$"CLOSE":FX%:(222)1314 ::7:9:"PLEASE INSERT PROGRAM DISK":14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN) ";Z$:10 ::10:10:"* COMPACTING FILE *":D$"RUN REWRITE,D1":! LLCL(N$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::D22İ122 15 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" :"PRESS (RETURN) ";Z$ CL%,N$ 12$ D$"(254)2543&(255)2554L(4)"BRUN AMPER FACTORY.OBJ0,D1"BS(88),CL%(88),CL(88),H$(88),I%(1500),Q$(88),R%(1500),S%(1500),V(88),H(88):D$(4):I(868):X869(868I):N$N$((X))::D11:D42:7 D$"OPEN"N$".V,L498,D2":D$"READ"          ӠӠРΡΧԠԠˠԍӠӠŠĠ΍ΠҠϠԠӠō̭ Ӡנō̭ìĬŬѩӠĠƠōŠԠŠΠӍRECORDS USED = "RC;CR$;CR$;:"NUMBER OF VOLUMES = "D2;CR$;CR$;:R1(97280LL):R1RRR1RR*"MAXIMUM RECORDS ON VOLUME 1 = "R1;CR$;CR$:D22ĺ"RECORDS ON VOLUME 1 = "D3;CR$;CR$;+P$"Y"ĊMO::1002:8,22:6:"PRESS (RETURN) TO GO TO MENU ";Z$:"((XNC)(P$"Y"))41&#XNC385$P$"Y"39j%CCCL%(X1)14:CV(CCCO)1:((37)1CV)2039&22:7:"PRESS (RETURN) TO CONTINUE ";Z$:'XX1:XNC21(P$"Y"Ĺ34,4:Z)CR$;:"MAXIMUM NUMBER OF RECORDS = "RR;CR$;CR$;:"TOTAL X);:CCFL14:29 SC1:TP0R (H$(X),SC,CC);:SCCCTP1:TPTPCC:TPFL29l CCFLTP:CCCOCCCOz CR$;:26 ((CL%(X)2)((H$(X),1)" "))ĺCR$;:34 SC1 CCCOĺCR$; (" (J)",SC,1);:CCCC1:SCSC1:SC5ĺCR$;:34 !31"CO39:? SP((CO(N$))2):SP);N$;CR$;:P$"Y"Ĺ34,4:o "FIELD# LENGTH NAME";CR$;:P$"Y"Ĺ34,6: X1:P$"Y"ė X;" ";:X10ĺ" "; "("CL%(X)") ";:CL%(X)100ĺ" "; CL%(X)10ĺ" "; FL(H$(X)):CCCO14:FLCCĺH$(CT$:N:TF$:LF$:D$"CLOSE":216,0:16k 216,0:D$"CLOSE":FX%::"ERROR READING PRINTER VARIABLES!":7 :10:"* FILE INFORMATION *":34,4::23:13:"PRESS (RETURN)":10:3:"SEND FILE INFO TO PRINTER? (Y/N) ";P$:CR$(13):P$"Y"İ45 P$"YENU,D1":5 LLCL(NC)NC:OP%,N$,(LL),D4:OP%012f X1NC:RE%,N$,(0,CL(X1)),H$(X):RE%012x :CL%,N$:13 :"ERROR READING FIELD NAMES!":7 15' D$"OPEN"N$".P,D2":D$"READ"N$".P":CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F8:MO:N$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:X1NC:CL%(X)(CL(X)CL(X1))1::9 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" :"PRESS (RETURN) ";Z$ ::10:12:"* LOADING MENU *":D$"RUN M((254)2543&(255)2554L(4)"BRUN AMPER FACTORY.OBJ0,D1"BS(88),CL%(88),CL(88),H$(88),I%(1500),Q$(88),R%(1500),S%(1500),V(88),H(88):D$(4):I(868):X869(868I):N$N$((X))::D11:D42:6y D$"OPEN"N$".V,L498,D2":D$"READ"     "RUN REPORT,D1"& D$"RUN SEARCH,D1"= D$"RUN DELREC,D1"O D$"RUN I,D1"X 22 D$"OPEN"N$".V,D2":D$"READ"N$".V":NC:RC:D$"CLOSE":216,0: 216,0:D$"CLOSE":FX%:23:9:"ERROR READING .V FILE!":12:"PRESS (RETURN) ";Z$:9 D$"OPEN1,9,9,9,9,11,25,24 RC011Y 23:13:"FILE IS EMPTY":12:"PRESS (RETURN) ";Z$:5 :11:10:"* LOADING MODULE *":Z12,13,14,15,16,17,18,19 D$"RUN STDINP,D1" D$"RUN FILEINFO,D1" D$"RUN INSCHN,D1" D$"RUN SORT,D1" 23:D$":10:"4. SORT":10:"5. REPORT":10:"6. SEARCH":10:"7. DELETE RECORDS":10:"8. SELECT A NEW FILE":10:"9. HELP" 9:"10. EXIT"::10:"CHOOSE (1-10)"::10:"PRESS (RETURN)":17:24:"";Z$:Z0:Z$""Z(Z$) ((Z1)(Z10))5 Z11,11,1k(254)2543&(255)2554L(4)"BRUN AMPER FACTORY.OBJ0,D1"D$(4):I(868):X869I868:N$N$((X)):X:20v :3:15:"HOMEFILER":((40(N$))2)::N$:::10:"1. ENTER DATA":10:"2. FILE INFORMATION":10:"3. INSPECT/CHANGE     ͝ȱȱ ̝L3 ̝ L@ɈOLى jZZod ΟLȑ 0ΟL,0̝LɊɋɌߪ jԊࠐY) LA۰=) L̝ ,0L̝L# ɘ! j;;.;L; L8ɍ, jii#i ̝L#ɕ1H!͝h Lىh LɂLىɃLىɄLىɅLىɑLىɁh jLIL8L ߍ$0$0L L∍ *䥠 ̝ ̝L 0̝L0L∭%ȱPȱQ͞%#P ̞ ̝L҈P ̝ ̝L5LԠ Lԭ/01234`$$`TR/LҠ͠Šˠ é LԠ Ȅ`$$`FXLʇhhߚHH`KE Lγ g RQP,ĝ  * 8L)L * 8` H$h )(` 2|3|ވuڥv  4|`2|3|ȑ`$$`ҠSWL7 ߍ/0 !3 ߍ12 !3P Ɉ` Hȱ h  LP $੠ QPP ` PQ *䥠 *  8L煠$ɍ/)ϭ 橰8L煭 8L煭 歛L܅ 㪨P`.Hʽ,$h g R箬ʘ]LƒLP `8PQPŁAȱPł:P2ȱPȱPPqPQqP፝8`` Hȱ h 8` $QP ɠ׈̛";::"2":V110`"AND PRESS (RETURN)";Z$9j900Dt216,0M~768`(222)13912j1000980D$"OPEN"Q$#D$"READ"Q$+Z$:D$"CLOSE"LD$"UNLOCK"Q$W216,0]h216,0q768D$"CLOSE"139"PLEASE INSERT"((40((Q$)6))2)$Q$;.8" VOL 1"B14 L"INTO DRIVE X1RC X ( D$"CLOSE"0 80C  UNLOCK FILESR X768777Y Qb *X,Qh 4 > 104,168,104,166,223,154,72,152,72,96 \Q$N$ f900 p z VERIFY AND UNLOCK Q$ VOL 1 1140 D$"BLOAD"Q$",D2" 216,0WRITE"N$".V,R1" &D2 0D3. :D$"CLOSE"6 D10R N"REWRITING INDEX FILE"i XD$"OPEN"N$".I,D2"~ ]D$"WRITE"N$".I" bX1RC lX v D$"CLOSE" 8 "REWRITING SURVIVOR LIST" D$"OPEN"N$".S,D2" D$"WRITE"N$".S" RC8  DR; 4 " RECORDS WERE DELETED"< 11B K RC;Q h " RECORDS REMAIN"o 8 "REWRITING VARIABLE FILE" D$"OPEN"N$".V,L498,D2" D$"WRITE"N$".V,R0" NC RC RR X1NC CL(X)  D$"L498,D2" D$"READ"N$".V,R0"' NC/ RC7 RRC CL(NC)O X1NCZ CL(X)` w "D$"READ"N$".V,R1" ,D2 6D3 @D$"CLOSE" JSU0RCRCDR:350 TRCSCDR ^RC0RC0 hRCD3D21:D3RC r |8 DR1420 68:(222)1383 U:7> V9:"PLEASE INSERT PROGRAM DISK"V W14:"INTO DRIVE 1"w X10:"AND PRESS (RETURN)";Z$ Y81 Z12 d12 n"* LOADING MENU *" x867,254 D$"RUN MENU,D1" ((SU0)(DR0))200 80 D$"OPEN"N$".V,kSC(764)((765)256)7DR(766)((767)256)ESU(867)KQW]co D$(4)y N$"" X869((868)868) N$N$((X))740140PQ84RD$"BLOAD MENU,D1":216,0S:90 T216,0:7      6=BACK CHR WITHOUT CHARACTERF | 7=CONCAT WITH SEPARATOR CHARATERg  8=FRONT POS WITH CHARACTER  9=FRONT CHR WITH CHARACTER 10=BACK POS WITH CHARACTER 11=BACK CHR WITH CHARACTER   SV(1,0)=VOL1 TV(1,0)=VOL1  SV(2,0)  SS & TS = SLOT VALUES7  SD & TD = DRIVE VALUES= "K , OPCODESX 6 0=NULLi @ 1=TRANSFER J 2=CONCAT NO SEPARATOR CHARACTER T 3=FRONT POS WITHOUT CHARACTER ^ 4=FRONT CHR WITHOUT CHARACTER h 5=BACK POS WITHOUT CHARACTER r,TV(2,2),TF%(89),TH$(88),C%(1500),SH$(88)5 FI(88)D WL%(1500)J g SRC$="SOURCE FILENAME" TRG$="TARGET FILENAME" SL & TL = RECORD LENGTHS SC & TC = RECORD COUNTS SR & TR = ROLLOVERS  SF & TF = FIELD COUNTS(4)"BRUN RECON,D1"%254,00255,0E SS((47081)16)USD(47082)eTSSS:TDSDn(255{2768,104<769,168F770,104P771,166Z772,223d773,154n774,72x775,152776,72777,96) SV(2,2)        16RO1:SP$"Y"Ċ1:56!7E8QP((CO(N$))2):QP0ĺQP);M9N$V:QP0v;RNI%(S%(RO)):133:RO172<RP1LN0:80=PR$"Y"ĺRN". ";>X1TF:FF(X)165?PF$"Y"ĺH$(X)":";@Q$(X)A:QPQP1:RORO1:ROSM70 B-:RL0:X1:QF1:QN0:PF$"Y"QF2:QNQN1B.PR$"Y"QNQN6S/FF(X)150~0RLRL1:LF(((CL(X)CL(X1))1)QF)QN1LFCORLRL1:LFLFCO:492XX1:XTF473RLRL1:RP0:QPLP4RLQPRPRP1:QPQPRL:525RQRP:QP2RQRQ:128:V8:H173"V:H:868:KE%,1,Z$,2;:KE%36;#34X$TR%,Z$:Z$"F"İ137:34g%Z$"0"44&Z(Z$):((Z1)(ZNC))34'V:H:868:Z;:FF(Z)1:HH1:Z9HH1(H3542)H:",";:HH2:34*:H1:V24VV1+34,152-ANT FIELD NAMES? (Y/N) ";PF$::3:"DO YOU WANT RECORD NUMBERS? (Y/N) ";PR$:CO39:SP$"Y"CO79|LP23:SP$"Y"LP60TFNC::24:13:"PRESS (RETURN)";:3:10:"PRINT (DISPLAY) ALL FIELDS (Y/N) ";PA$:PA$"Y"33 X1TF:FF(X)1::45!:Q$(MF(1)):Q$(MF(2)):Q$(MF(3)):Q$(MF(4))" "Q$(MF(5))" "Q$(MF(6)):::RORO1:ROSM24m 0:1002:119 :SP$"N"SH8:28 SH14:SH:"PRINT REPORT":29 SH:"DISPLAY REPORT ON SCREEN"c34,2:23:13:"PRESS (RETURN)":9:3:"DO YOU WNT MAILING LABELS"::6:"4. RETURN TO MENU":23:9:"PRESS (RETURN)":17:9:"SELECT (1-4) ";Z$:Z$"1"SP$"N":26 Z$"2"SP$"Y":26 Z$"4"119 Z$"3"18 102::TFNC:X1TF:MF(X)0FF(MF(X))1 :RO1:1[ RNI%(S%(RO)):133CLOSE":216,0:17N 216,0:D$"CLOSE":FX%::"ERROR READING INDEX FILE!":7 216,0:D$"CLOSE":FX%::"ERROR READING SURVIVOR LIST!":7 D22İ129t :15:"* REPORT *":6:9:"1. DISPLAY REPORT ON SCREEN"::6:"2. PRINT REPORT"::6:"3. PRIRE%,N$,(0,CL(X1)),H$(X):RE%0įCL%,N$:11> :CL%,N$:12e :"ERROR READING FIELD NAMES!":7n 15 D$"OPEN"N$".I,D"D1:D$"READ"N$".I":X1RC:I%(X)::D$"CLOSE":216,0:16 D$"OPEN"N$".S,D"D1:D$"READ"N$".S":SM:X1SM:S%(X)::D$",L498,D"D1:D$"READ"N$".V,R0":NC:RC:RR:X1NC:CL(X)::D$"READ"N$".V,R1":D2:D3:D$"CLOSE":216,0:8 216,0:D$"CLOSE":FX%::"ERROR READING VARIABLE FILE!" "PRESS (RETURN) ";Z$:119 LLCL(NC)NC:OP%,N$,(LL),D1:OP%011, X1NC:N(254)2543&(255)2554L(4)"BRUN AMPER FACTORY.OBJ0,D1"D$(4):I(868):N$"":X869(868I):N$N$((X))::CL(88),FF(88),H$(88),I%(1500),Q$(88),S%(1500),MF(88):D12:D41::9:10:"* READING FILE STATS *":6j D$"OPEN"N$".V     "         Ԡ ̦ ,0L3̦L, ɘ sYYLLY Lʇɍ* s, ̦L,ɕ ͦ LɂLɃLɄLɅLɑLɁf s󈬦L :LԠ Ȅ`$$`FXL\hhߚHH`KE L KEYIN2 g RQP,IL8L ߍ$0$0L L *䥠 ̦ ̦L 0̦L5L @hiPhiQ8PAȱPHAH8@PAȱPHAH4`SWLɆ ߍ† ņ ߍÆĆ ņLԭ†ÆĆņƆ`$$`TR/LGҠ͠Šˠ é RC%,SRC$,TRG$,SL,TL,SC,TC,SR,TR,SF,TF,SS,TS,SD,TD,SV(1,0),TV(1,0),SV(2,0),TV(2,0),SV(1,1),TV(1,1),SV(2,1),TV(2,1),SF%(1),TF%(1),WL%(0)H  X1TF" (AD(X1)),O%(X)E O%(X)0Ĺ(AD100(X1)),F%(X)K U 3340g DB1ĹBU,255z O%(TF),F%(TF)  I1TF O%(I)1 F%(I)I  3210   CALL THE MACHINE CODE ROUTINE* 4 TCTCWL%(0)> FQ$SRC$& AD(0000)((0001)256)0 TAAD6 O& BMBM((WL%(0)1)2)_0 BM(BMTL)p: BH(BM256)D BH255BH255:BM65535N 3,BHX 2,BM(BH256)Y "DEBUG";DB:BU,DBZ "BREAK";BRb BR0ĹBR,0l HD,1v FU,MO 3260ACK":F0:D1:1180bG0ı1lO1:1520:1880H S22SV(2,0)255_ T22TV(2,0)255x BU(((5)256)(6)) HD((7)256)(8): HARD DRIVE FLAG FU((9)256)(10): DISK FUNCTION LOCATION  BM(((3)256)(4))((2)256) 1:D2:1180G01850 (13/9D"PLEASE INSERT"_((40((SRC$)6))2)qSRC$" VOL 1"y14"INTO DRIVE ";::"2":10"AND PRESS (RETURN)";Z$&MO10ı01710:1420DG01730N1880XG$"RB6H$TRG$" VOL 1":16100@H$TRG$" VOL 2"8J13MT"PLEASE INSERT"b^((40(H$))2)jhH$rr14|"INTO DRIVE ";::"1":10"AND PRESS (RETURN)";Z$ MARK DISKS AND PREPARE FOR RTWO AS OF VARIABLE MO G$SRC$:F216,0216,0"768*G10U DISK MESSAGES AS OF VARIABLE O[b9O1550,1560,1570,1580,1590,1600H$"UTILITY DISK":1610H$SRC$" VOL 2":1610"H$"TARGET DISK VOL 1":1610,H$"TARGET DISK VOL 2":1610$"OPEN"G$",D"DD$"READ"G$&Z$5D$"CLOSE"@ 216,0KF2ıUG0:`(216,0i2768o<zFF1ıPG0:Z216,0d768n(222)131220xG1: LOCK G$ DRIVE D RETURN GG01470D$"LOCK"G$",D"DBI1SC:WL%(I)I:%LI1(SF1)7VTF%(I)SF%(I)=`IjI1SF[tTH$(I)SH$(I)a~k1710u3000 VERIFY FILE G$ VOLUME F DRIVE D RETURN G1370G0D$"BLOAD"G$",D"D216,0F012901320G1DzTV(1,1)T3 TV(2,1)TCT3&/BR08M00AF11PS22MO1VdTRG$SRC$nTLSLxTCSCTRSRTFSFTSSSTDSDTV(1,0)SV(1,0)TV(2,0)SV(2,0)$TV(1,1)SV(1,1).TV(2,1)SV(2,1)8WL%(0)SC",D2"590)DO$;SRC$".V,L498"IS$>DR$;SRC$".V,R0"FSFUSF%(SF1)]SCeSMqB1SF SF%(B1) SLSF%(SF1)SF*DR$;SRC$".V,R1"4S2>S3HSRS31RDC$\216,0fSV(1,1)S3pSV(2,1)SCS3:F1:D2:1180F 0G0ė:12:10:"* LOADING MENU *":D$"RUN MENU,D1"V :MO10:1730_ D550j N216,0s XDC$y b l"ERROR READING "SRC$".V FILE!" v500  SRC$"" X869((868)868) SRC$SRC$((X)) IS$",S"(SS)=VOL2 TV(2,0)=VOL21  SV(1,1)=V1C TV(1,1)=V1CP  SV(2,1)=V2C TV(2,1)=V2C D$(4):DO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE" 650 X14000: : G$"RBACK":F0:D1:1180 G0550 O1:1520:520 &G$SRC$`ii8ppppȱ`8`O|O|o8`p`O| O|iͽoo8ooo`o8ooo8o`L|eWeVeX`J eejfffV`L|ͽq qO| om{om{`O|p8 nn` ,q0%$Lom{{om{{{{{Ȏ{{̼o L{{L{o{{Ȏ{{{ L{{`{{8`nL{n 8``nn }Ω` | | } 6} P|O|XqH=ɍ9Ä }魉uÄLQzɍL.y }` | | } 6} P|O|Xq9ɍ5 }LzuɍL.y }ᩍ`uL1yuLhyuLyuLzuLnzL{SIZE = DŽɍ  }䩍`L~ xשּu ߄O|Xq { | | } 6}L y | | } 6} P|O|Xq2'ɍ#L.y uLy }ԩ` | | } 6} P|O|Xq-ɍ)uL.yL.yN RBACK,D1Lxoo̼o/L+xo%pq pp}`}x`pq pp}`}q x`Lvx x"oq oo}`}`oq oo}`}`` | | } 6} P|,q ?F: ҀLu sxx1yhyyznzzzzzz{{'„q  x " i}cqmqqqmqqq ooqq n   ԧ  sq ?RUN RBACK,V$ DŽ ? ?RULuu <|Lv E{Luq  x{ qq „ "{o{oqmqqqmqqqq{q q Lu i}q  x„_`Lu z { w,qC ?WRITE RECORD   ? FIELD O|  ?  }i  ux x{{ {{o{o{qqqq,q0 %$ B ?READING RECORD #Lu |L)w zLq~ 1{ ,q0 B | | } 6}O|:,q! ?DELETE RECORD  DŽ DŽqiqqiqe LsqLrt n x o x8"xJx8"xJx n r o 7 %$ B ?READING DIRECTORYx x i}n ~L~  }i  uoPx x i}n ~L~ 7oo 7pp 7oo 7ppHnHɠn h8 ȱ hHoHoL6s nHȹnnhnoHoohoW ߠ p ȱ p  & 8L n 8eeȑ   e ze qe q XHn ޠ  h HoL$r 7nn 7oo 7nn 7oo 7nn 7oo 7n 7o 7o 7p 7o 7p 7o 7p 7o 7p {{ ޺q  nLnLsontppnLqمqӅq ޅ `LOn ߥɀLޥ))INLq ߥ0Lޢ uH h)ȹ`!! ! ! ! ! !!!!!!!!!  I::462S225353G$SRC$:F2:D1:12:G053E4O2:26:515:TCTCWL%(0):RC%,SRC$,TRG$,SL,TL,SC,TC,SR,TR,SF,TF,SS,TS,SD,TD,SV(1,0),TV(1,0),SV(2,0),TV(2,0),SV(1,1),TV(1,1),SV(2,1),TV(2,1),SF%(1),TF%(1),WL%(0):6577D$"BLOAD DEBUG,G035&392'G$"RBACK":F0:D1:12:G0ıB(O1:26:39Y)S22SV(2,0)255p*T22TV(2,0)255>+BU(((5)256)(6)):HD((7)256)(8):FU((9)256)(10):BM(((3)256)(4))((2)256):FQ$SRC$:AD(0000)((0001)256):TAAD:BMBM((H$))2):H$:14:"INTO DRIVE ";::"1"::10:"AND PRESS (RETURN)";Z$:i"G$SRC$:F1:D2:12:G037#:13:9:"PLEASE INSERT":((40((SRC$)6))2):SRC$" VOL 1":14:"INTO DRIVE ";::"2"::10:"AND PRESS (RETURN)";Z$:MO10ı$34%23:D"D:216,0:" 216,0:768:G1:@ :9:O27,28,29,30,31,32Z H$"UTILITY DISK":33s H$SRC$" VOL 2":33 H$"TARGET DISK VOL 1":33 H$"TARGET DISK VOL 2":33 H$TRG$" VOL 1":33 H$TRG$" VOL 2"I!13:"PLEASE INSERT":((40ɂ:34:41 213 G0:D$"BLOAD"G$",D"D:216,0? F017H 19| G1:D$"OPEN"G$",D"D:D$"READ"G$:Z$:D$"CLOSE" 216,0:F2ı G0: 216,0:768:F1ı G0: 216,0:768:(222)1314 G1: G0:25 D$"LOCK"G$",(2,1)SCS3:TV(1,1)T3:TV(2,1)TCT3:BR0:M00:F11:S22MO1 TRG$SRC$:TLSL:TCSC:TRSR:TFSF:TSSS:TDSD:TV(1,0)SV(1,0):TV(2,0)SV(2,0):TV(1,1)SV(1,1):TV(2,1)SV(2,1):WL%(0)SC:I1SC:WL%(I)I::I1(SF1):TF%(I)SF%(I)::I1SF:TH$(I)SH$(I):"SRC$".V FILE!":3_ SRC$"":X869((868)868):SRC$SRC$((X))::IS$",S"(SS)",D2":8> DO$;SRC$".V,L498"IS$:DR$;SRC$".V,R0":SF:SF%(SF1):SC:SM:B1SF:SF%(B1)::SLSF%(SF1)SF:DR$;SRC$".V,R1":S2:S3:SRS31:DC$:216,0:SV(1,1)S3:SVO$D$"OPEN":DR$D$"READ":DW$D$"WRITE":DC$D$"CLOSE":9O X14000:::q G$"RBACK":F0:D1:12:G06 O1:26:4 G$SRC$:F1:D2:12:G0ė:12:10:"* LOADING MENU *":D$"RUN MENU,D1" MO10:35:6 216,0:DC$::"ERROR READING  (4)"BRUN RECON,D1":254,0:255,0:SS((47081)16):SD(47082):TSSS:TDSD:255:768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:SV(2,2),TV(2,2),TF%(89),TH$(88),C%(1500),SH$(88):FI(88):WL%(1500); D$(4):D" " " " " """""QPRPĺ:59%CSP$"Y"ĺ(12);:58dD24:"PRESS (C) AND (RETURN) TO CONTINUE ";Z$::Z$"C"58mE119FSP$"Y"ĺ(12):0:1002:119G24:"PRESS (RETURN) TO GO TO MENU ";Z$:119HRQ1LN2:80IPR$"Y"ĺRN". ";JX1TF:FF(X)1