' +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(,24*/)>'/4%$$2%4%$(2()!)E(!8b $! X+0,0 `H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` HLGLЖȔЖȠ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# u`0 S:NFĂL:1 LHLİ3200:ES3575:3510F LL1:LLL:3515L HS1:C$"EQAOC":SETC,C$:5700:4450:CT19SJ:3600CPYQ,S,0,D$(1),Q$(1):HS2:C$"QG":SETC,C$:300:F1$A8:NP1:402:CPYD,S,0,D$(1),Q$(1):4450-CT0CTES3465:263 1 3490:ESĺ:D$"MAXFILES1"< 265:U VER,2:ES((0)0): SVİ200:RS$(0)"":ES3575:3200:ES3575:3500 LHL11:LL0 NF1 S1SC:LV(S)L3550 E$(S)"E"3550 50:RS$(S)""E$(S)"E":3550 NF282, PRTL,D$(1),Q$(1),B$(0),T(0,0),P$(0); :ES(0)A M DS3ıX ::e DS1į} PRTH,Q$(1),P$(0):H A$"TEXT FILE":W2:3980:ES3410:TF$"TEXT."TF$:VER,2:ES((0)0):ES3410:::M 260:265:275:260R  3490:3470! DS3ĹP0228,128:3205Q (227)127ĺ:(T(0,0))" RECORDS SELECTED" P0180,0:P0223,0:P0224,0:DS1ĺ:0 DS1įMSG,0 3000 I1SC:LV(I)RS$(I)""įQUERY,I,D$(1),Q$(1):(11)ISC:I:3280 I DS3İ3460:ES3E FIELDS"& SEL,2,2,5:W(0):W0ı4 W33050I W4İ4300:3000^ W5İ4600:3000w W1S1:3600:3000 S1:3610:CT63000 3800:NF3040 3850:RS$(0)"F":595 DS3İ3400:ESİ265:3000 4550:3300:4700:3500:DS3İ+?COP,PS$(1),PS$(SC),PS$(1):PS$(SC)"":=NWSS:S1:550]SS1SC:RS$(S)"":S:SWS: ,12::"DEFINE REPORT MENU": :" RETURN"::" SELECT RECORDS"::" SELECT FIELDS"::" RUN REPORT"::" SET REPORT PARAMETERS"  :" REARRANGL(S1)1),D$(L(S)),D$(L(S1)1):D$(L(S))"":K&NULL,S,D$(1):C%(0,S)ıv+W1C%(0,S):W1C%(W,S):RS$(W1)""::0COP,D$(1),D$(L(SC)),D$(1):5COP,Q$(1),Q$(L(SC)),Q$(1):Q$(L(SC))""::COP,Q$(L(S1)1),Q$(L(S)),Q$(L(S1)1):Q$(L(S))"":"510:W$::(0)515:5082(W$,2,2)A$530^W$:(W$,1)"/"ĺW$::(0)515:512p265:MSG,0:{8000ER(222):ER158000:M1$"ERROR READING HELP TEXT":MSG,M1$,0:FIX::265:516W$:(W$,1)"/"510:530-COP,D$(WW1:450%I21I10WW1:450>I13JW:CT19:470^I17ĺ30):FL1:330:430m(7):462D$(L(S))"":NP0:D$(0)" ":,0::TF$"HELP TEXT":VER,1:(0)0ı520261:264:A$(HS)(NP):508:516W$:(W$,1)"/W1(D$(K(P(W)))""):NP(HS0W1)(HS1W1P(W)S)462A 463 M1$"USE <-,-> AND TO SELECT":M2$" TO ENTER OTHER COMMANDS"(7):MSG,M1$,M2$:WS 22:10:":";:2,N$(W),29:16384,128:I(16384)128:16368,0:11 I8I11T8İ500:HFF:300:FHF:404% 4709 FF1:FL404H FL1:305z WL(S):22:10:":";:2,D$(W),3:CT(32)128 (6)138F1:404 CT1FL:402 CT2460 CT8İ500:300:428 470 W0I21:463 WSC1I8:4638 9::2,M2$,39:M1$"":M2$"":* A9:F1Y JS:FLD,S,0,A:L256(1):FLFL1:430 FLD,S,F,A:OF(7)L(S1):W$D$(OF) 2,W$,HS D$(OF)W$:2,W$,HS:(32)128424 CT(32)128:CT1FF(F1):404 CT2FL1:305:460 CW1W1);8 @FLD,S,1:F1W:2,D$(W1F),HS:CURS2:Fd JHS1M1$M1$"ENTER CRITERIA:<>/=#* ?" MHS2M1$"SELECT FOR:P)RINT,B)REAK/E)JECT,T)OTAL" OM2$"CTRL:":W1(C$):M2$M2$(C$,W,1)" ":W:M2$M2$";<-,," ^22::2,M1$,3,D$(1),Q$(1),F,0:210. ,1,D$(1),Q$(1),N,0< ES(0):Q :D$"OPEN"TF$:h :D$"VERIFY"TF$:| D$"WRITE"TF$: :D$"READ"TF$: D$"CLOSE"TF$: :D$"DELETE"TF$: ,::SCREEN,S 1W1L(S1):WL(S)W11:21::"TO SCREEN:";D$()REPORTING8000)0:9000Q RS$(S)""į,S,D$(1),Q$(1),F,1:20j ,S,D$(1),Q$(1),N,1(0)RS$(S)"C"(0)RS$(S)""210:RS$(S)"C"C%(0,S)āW1C%(0,S):W1C%(W,S):E$(W1)"":RS$(W1)"":W7 RS$(0)""į,1              W3İ4000:7500, W4įCHKPT:4500:7500P FWS11:P(F)SFP(F)1:Fj F0FFF:F1:F:FFFp  PG$"MASTER MENU" M1$"GOING TO "PG$:MSG,M1$,M2$:(0)7500:VER,0:(0)įCL:CRN,0::(4)"BRUNCHAIN OBJ,A$9700":PG (4500 !@RN TO MASTER MENU":::" GLOBAL UPDATE":::" GLOBAL DELETE"[::" SAVE/LOAD/CLEAR":" REPORT REQUESTS"::" ACCESS ALTERNATE":" STARTING "W$tSEL,2,3,4:W(0):W0įCHKPT:PG0:M2$"1":7700~W1W2UDW1:5000:CHKPT:7500 nCT12CT135705"qCT55705(v1p550XuHS0:C$"QGC":SETCMD,C$:300:400lzCT15CT0ıCOP,U$(1),U$(L(S)L(S1)),D$(L(S1)1):LEN,(69):W$"VOLUME":(EN31)2W$"DRIVE"T,12::"GLOBAL UPDATE/DELETE":@V:" RETUNP1:300:F1:Q$(0)D$(L(S)):HS1:A8:402:D$(L(S))Q$(0)SSCT5D$(L(S))"END"mXCT12D$(L(S))"AND"]CT13D$(L(S))"OR"bCPYD2Q,S,Q,D$(1),Q$(1):CT0CT15gCT145700iCT11İ590:5700lCT12CT13QQ1:Q$(0)"END"5710:LCCT:402 CT19SJ:56006CT11İ590:5600BCT6ıCT9İ3200:RECUPD,S,D$(1):UCUC1:NC1:305:NC0:CTLC:5605CT10į,S:DCDC1:NC1:305:NC0:CTLC:5605CT14İ550:5601!5605DQ3ICPYQ2D,S,Q,D$(1),Q$(1):N10::"YOU ARE ABOUT TO MAKE":"A MASS "F$" TO YOUR DATA BASE"::MSG,1:ES(0):ESı40:RS$(S)""RS$(P(S))""(CT15CT0)D$(K(P(S)))"":D$(0)" ":5605RS$(S)""M1$"END OF DATA,":5601 NP1:HS0:C$"QG":SETCMD,C$:NC1:300:FL(S):A9,12::"GLOBAL "F$" MENU"::580DSEL,2,SP,SC:W(0):W0ıaSW:590:3100:DC0:UC0v5600:SC15000|RS$(S)""5620C$"EQAOCG":SETCMD,C$:HS1:5700:RS$(S)"":CT6CT19CT165625UDİ6000:CT6CT145625V::$,4::(6)1454515:(A$)1(A$)2504500:"NEW "W$" IS:";A$:"IS THIS OK?";:M1$" ":MSG,M1$:SEL,0,Y:(0)4500:CL:P0176,(A$):CL:PG0:M2$"2":7700F$"UPDATE":UDF$"DELETE"SC1W1:5040F$"UPDATE":UDF$"DELETE"%)Q$(F)W$:F:S:I010:P$(I):I:265/Z0NF0:I1(TF$):(TF$,I,1)","ĂI:q5NF1:I(TF$):I:M1$" TO QUIT":::10:MSG,M1$:C$"Q":SETC,C$:W$"VOLUME":(EN31)2W$"DRIVE","ENTER NEW "W$" NUMBER":A$((176)):2,AI010:(34)P$(I)(34):I:265&'^h3970:ES4235:TF$"SELECT."TF$:VER,1:(0)4235w261:260:264:W$:W$"/2"M1$TF$:M2$"MUST BE CONVERTED FOR VERSION 2":265:MSG,M1$,M2$:4200|565:S1SC:FL(S1)1L(S):W$:W$"/"FL(S)1:FSEL,2,2,3:W(0):W0ı/W1İ4100:4000DW2İ4200:4000cW3İ565:560:9600:40003970:ES4135:TF$"SELECT."TF$:VER,1:(0)4135:3405263:"/2":S1SC:FL(S1)1L(S)1:(34)Q$(F)(34):F:"/":(34)Q$(L(S))(34):S 2,W$,39ES(6)145:ESı1(6)1473982ZW$""3984:TF$W$:4400:NFES0:M1$"INVALID FILENAME":MSG,M1$,1:ES(0):ESTF$"":3984,12::"REPORT/QUERY REQUESTS"::" RETURN"::" SAVE"::" LOAD"::" CLEAR" FL(S1)1L(S)1:U$(FL(S1))""D$(F)U$(FL(S1))B F:\M 260:265:275:260:xA$"REPORT REQUEST":W4C$"SQ":SETCMD,C$DIR,W,W$:ES(0)0:W$""3990:ESı::10:"ENTER NAME OF "A$::M3$", TO SELECT"::W$""::D:" RETURN":S1SC(FSC9ĺKH" ";N$(S):S:SP1:SC9SP2QJNWSS:S1:550:S1SC:RS$(S)"":S:SWS: ::10:"DO YOU WANT "F$" TO BE":"(M)ANUAL OR (A)UTOMATIC?":M$"M":2,M$,5! M$"M"M$"A"3100& M(M$"M"):9D$(L(S1)1),D$(L(S)),D$(L(S1)1):D$(L(S))"":N&NULL,S,D$(1):C%(0,S)ıy+W1C%(0,S):W1C%(W,S):RS$(W1)""::0COP,D$(1),D$(L(SC)),D$(1):5COP,Q$(1),Q$(L(SC)),Q$(1):Q$(L(SC))""::COP,Q$(L(S1)1),Q$(L(S)),Q$(L(S1)1):Q$(L(S))""0)N$(0):P$(1)"Y":P$(2)"1":P$(3)"80":P$(4)((EN27)):P$(5)"1":P$(6)"Y":P$(7)"N":P$(8)"D":DS2:P$(9)"Y":P$(10)"6": ,P": E : 6": PE",N$(0),y&#S1SC:INFO,S,L(S),K(S),P(S):CRN,S:N$(S)"SCREEN "(S):SCL,"NAME",N$(S),:K(S)K(S)(K(S)0)L(S1):S&#D$(L(SC)),Q$(L(SC)),C%(SC,SC):D$(0)" "▀:S1SC:I0:W1SC:P(W)SII1:C%(I,S)W&$:C%(0,S)I:&T$7500}'%P$(TINUE"z%2#(382)127M1$"SORT DISK NOT ALLOWED":MSG,M1$,2:W$"001":YST:SCL,"START",W$:P0176,(W$):4500:CL:9000%<#SC(378):L(SC),K(SC),P(SC),N$(SC),RS$(SC),P$(10) &#W0:STR,N$(0):W(26)(27)256:W,(235):W1,236:W2,8:YST:SCL,"NAM: $mCL:"$r8511:SPįFIX:,$wCL:D$ MSG,3:(0)7500:V$?!M2$"1":8520b$@!M2$"2"$H!MSG,M1$,M2$:ES(0):SP1ES:$(#::EN2144:P02048:OPEN:RK$"":D$(4):(0)ī4500%-#M3$" TO QUIT":M4$" TO QUIT, TO CON:MSG,M1$,0:PG0:M2$"0":7700W#cER250M1$"FILE ACCESS ERROR-"((0)):8512:CL:#eW3(26):W338M1$"CALC-"((10))":"(ER):8050#fW331M1$"QUERY-"(ER):8050$hM1$"FATAL ERROR-"(ER)" AT LINE-"((218)(219)256):8511:SPįCL0)7500:CL:VER,0:(0)įCRN,0::(4)"BRUNCHAIN OBJ,A$9700":PGK"(4500]"@(222)255Ħ"EER(222):ER0ER15İ8200:"J8000"TER253ER249įCL:"YER77ĺ"OUT OF MEMORY":#aER250(0)254M1$"BLANK FORMS DO NOT MATCH DATA BASE"!~W2İ5000:CHKPT:7500?!W5įCHKPT:PG2:M2$"1":7700T!W3İ4000:7500i!W4İ4500:7500!FWS11:P(F)SFP(F)1:F!F0FFF:F1:F:FFF!!PG$"MASTER MENU":PGPG$"REPORTING"A"M1$"GOING TO "PG$:MSG,M1$,M2$:(TURN TO MASTER MENU":::" DATA ENTRY":::" BROWSE/UPDATE" g::" SAVE/LOAD/CLEAR":" REPORT REQUESTS"::" ACCESS ALTERNATE":" STARTING "W$::" REPORTING" tSEL,2,3,5:W(0):W0įCHKPT:PG0:M2$"1":7700!yW1İ7000:CHKPT:75001:7087-b,12::"DATA ENTRY MENU"::580LSEL,2,SP,SC:W(0):W0ıZ560:590m5500:ES7215w 6000#CT6İ550/SC170004LEN,(69):W$"VOLUME":(EN31)2W$"DRIVE"T,12::"DATA BASE ACCESS MENU":? V:" RE90:5700.lCT12CT13QQ1:Q$(0)""5710DnCT12CT135705SqCT55705Yvbp550uHS0:C$"EQGB":SETCMD,C$:300:400xCT6İ100:ES6005zCT19SJ:6000CT15CT06000CT11İ550:RS$(S)"":5600XSC1W6000!5605DQ33ICPYQ2D,S,Q,D$(1),Q$(1)qNNP1:300:F1:Q$(0)D$(L(S)):HS1:A8:402:D$(L(S))Q$(0)SCT5D$(L(S))""XCT12D$(L(S))"AND"]CT13D$(L(S))"OR"bCPYD2Q,S,Q,D$(1),Q$(1):CT0CT15gCT145700iCT11İ5):A9:LCCT:402%CT19SJ:5600;CT11İ590:5600GCT6ırCT9įRECUPD,S,D$(1):SJCTLC:5605CT9SJ:5600CT10į,S:CTLC:5605CT14İ550:5601CT16D$(K(P(S)))""WS:SWS:5500:SSW:ES5601:6000CT16RS$(S)""5620ZC$"EQAOCGNBI":SETCMD,C$:HS1:5700:RS$(S)"":CT6CT19CT16562540:RS$(S)""RS$(P(S))""(CT15CT0)D$(K(P(S)))"":D$(0)" ":5605RS$(S)""M1$"END OF DATA,":5601NP1:HS0:C$"QSDCGNBI":SETCMD,C$:300:FL(S00GPC$"EQAOCG":SETC,C$:NP1:HS1:KQ1:5700:KQ0:ES(CT6):tM1$"KEY NOT FOUND":MSG,M1$,1:ES(0):|WSW:ES0:W1SWS:S1W17600:F55505200:ESSSC:555050RS$(S)""İ5380:SS1:ESSSCS:04500iM1$" ":MSG,M1$::"NEW "W$" IS:";A$:"IS THIS OK?";:SEL,0,Y:(0)4500:CL:P0176,(A$):PG0:CL:M2$"2":7700SC1W1:5040,12::"BROWSE/UPDATE MENU"::580SEL,2,SP,SC:W(0):W0ıSW:5905600:SC150520NF0:I1(TF$):(TF$,I,1)","ĂI:I5NF1:I(TF$):I:M1$" TO QUIT":::10:MSG,M1$:C$"Q":SETC,C$:W$"VOLUME":(EN31)2W$"DRIVE":"ENTER NEW "W$" NUMBER":A$((176)):2,A$,4::(6)1454515:(A$)1(A$)25h3970:ES4235:TF$"SELECT."TF$:VER,1:(0)4235w261:260:264:W$:W$"/2"M1$TF$:M2$"MUST BE CONVERTED FOR VERSION 2":265:MSG,M1$,M2$:4200|565:S1SC:FL(S1)1L(S):W$:W$"/"FL(S)1:FQ$(F)W$:F:S:I010:P$(I):I:260:4000W2İ4200:4000;W3İ565:560:9600:4000y3970:ES4135:TF$"SELECT."TF$:VER,1:(0)4135:3405263:"/2":S1SC:FL(S1)1L(S)1:(34)Q$(F)(34):F:"/":(34)Q$(L(S))(34):SI010:(34)P$(I)(34):I:265'614739822W$""3984:TF$W$:4400:NFES0:mM1$"INVALID FILENAME":MSG,M1$,1:ES(0):ESTF$"":w3984,12::"REPORT/QUERY REQUESTS"::" RETURN"::" SAVE"::" LOAD"::" CLEAR"SEL,2,2,3:W(0):W0ıW1İ410S1SC:RS$(S)"":S:SWS:4M 260:265:275:260:PA$"REPORT REQUEST":W4gC$"SQ":SETCMD,C$DIR,W,W$:ES(0)0:W$""3990:ESı::10:"ENTER NAME OF "A$::M3$", TO SELECT"::W$"":2,W$,39ES(6)145:ESı (6)(I,S):RS$(W1)""::50COP,D$(1),D$(L(SC)),D$(1):c5COP,Q$(1),Q$(L(SC)),Q$(1):Q$(L(SC))""::COP,Q$(L(S1)1),Q$(L(S)),Q$(L(S1)1):Q$(L(S))"":D:" RETURN":S1SCFSC9ĺH" ";N$(S):S:SP1:SC9SP2JNWSS:S1:550:265:MSG,0:8000sER(222):ER158000:M1$"ERROR READING HELP TEXT":MSG,M1$,0:FIX::265:516W$:(W$,1)"/"510:530COP,D$(L(S1)1),D$(L(S)),D$(L(S1)1):D$(L(S))"":&NULL,S,D$(1):C%(0,S)ı+I1C%(0,S):W1C%D$(L(S))"":NP0:D$(0)" ":,(7):462Y,0::TF$"HELP TEXT":VER,1:(0)0ıc520261:264:A$(HS)(NP):508:516W$:(W$,1)"/"510:W$::(0)515:508(W$,2,2)A$530W$:(W$,1)"/"ĺW$::(0)515:512ADE, DO YOU WANT TO 'SAVE'?":M2$" TO SKIP, TO SAVE":MSG,M1$,M2$:23::SEL:(0)LCCT:CT9:476CT9M2$"SAVE"CT10M2$"DELETE"CT9CT10M1$"READY TO '"M2$"' RECORD":MSG,M1$,1:ES(0):ESCTF:305:FCT:4028I11WW1:450,I21I10WW1:450EI13JW:CT19:470fI17ĺ30);:FL1:325:430u(7):462CT6D$(K(S))""HS0M1$"NO RECORD TO BE WRITTEN":MSG,M1$,1:ES(0):ESİ305:400tD$(0)"U"CT9CT10M1$(7)"CHANGES M3=W1(D$(K(P(W)))""):NP(HS0W1)(HS1W1P(W)S)462F463M1$(7)"USE <-,-> AND TO SELECT":M2$" TO ENTER OTHER COMMANDS":MSG,M1$,M2$:WS21::10:":";:2,N$(W),29:11:16384,128:I(16384)128:16368,0ICT8İ500:HFF:300:FHF:404( 470< FF1:FL404K FL1:305 WL(S):21::10:":";:2,D$(W),3:CT(32)128 (6)138F1:404 CT1FL:402 CT2460 CT8İ500:300:428 470 W0I21:463WSC1I8:46A9:F18 JS:FLD,S,0,A:L256(1):FLFL1:430a FLD,S,F,A:OF(7)L(S1):W$D$(OF) 2,W$,HS:W$D$(OF)(C$,2,1)"S"D$(0)"U" D$(OF)W$:2,W$,HS:(32)128424 CT(32)128:CT1FF(F1):404 CT2FL1:305:460 TERIA:<>/=#* ?"? JHS1KQM1$M1$"ENTER CRITERIA:<>/=#* ?"^ LHS0NPM1$"UPDATE DATA"} NHS0NPM1$"ENTER DATA" OM2$"CTRL:":W1(C$):M2$M2$(C$,W,1)" ":W:M2$M2$";<-,," ^22::2,M1$,39::2,M2$,39:M1$"":M2$"": D$"WRITE"TF$:$ :D$"READ"TF$:: :D$"CLOSE"TF$:Q :D$"DELETE"TF$:` ,::SCR,S 1W1L(S1):WL(S)W11:21::"TO SCREEN:";D$(W1W1);:HS0įOUT,S,D$(1),NP @FLD,S,1:F1W:2,D$(W1F),HS:CURS2:F EHS1KQM1$"ENTER KEY CRI""SP(S):41 /SWS:41V 210:RS$(S)"C"C%(0,S)āW1C%(0,S):RS$(C%(W,S))"":W\ <t dES0:D$(K(S))""ı iRECOUT,S,D$(1),T:(0)ı nM1$"DUPLICATE RECORD":8511:SPįRECOUT,S,D$(1) x :D$"OPEN"TF$: :D$"VERIFY"TF$: :DATABASE8000$9000L RS$(S)""į,S,D$(1),Q$(1),F,1:20e ,S,D$(1),Q$(1),N,1{(0)RS$(S)"C"(0)RS$(S)""(WSS)P(S)43*D$(K(P(S)))""SP(S):41+50:(RS$(S)""P(S)0)WSSSWS: -RS$(S)          "/"510:W$::(0)515:5085(W$,2,2)A$530aW$:(W$,1)"/"ĺW$::(0)515:512s265:MSG,0:~8000ER(222):ER158000:M1$"ERROR READING HELP TEXT":MSG,M1$,0:FIX::265:516W$:(W$,1)"/"510:5300COP,CT10M2$"DELETE"kCT9CT10M1$"READY TO '"M2$"' RECORD":MSG,M1$,1:M2$"":ES(0):ESİ305:CT15D$(L(S))"":NP0:D$(0)" ":NC0:,0::TF$"HELP TEXT":VER,1:(0)0ı520261:264:A$(HS)(NP):508:516W$:(W$,1)W1:450"I13JW:CT19:470=I17W$"":30):428L(7):462X GONED$(0)"U"CT9M1$"CHANGES MADE, DO YOU WANT TO 'SAVE'?":M2$" TO SKIP, TO SAVE":MSG,M1$,M2$:SEL:(0)LCCT:CT9CT9M2$"SAVE"0W1)(HS1W1P(W)S)462%463M1$(7)"USE <-,-> AND TO SELECT":M2$" TO ENTER OTHER COMMANDS":MSG,M1$,M2$:WS22:10:":";:2,N$(W),29:16384,128:I(16384)128:16368,0:11I8I11WW1:450 I21I10WC435 CT9:UDCT10# M473, 476^ WL(S):22:10:":";:2,D$(W),3:CT(32)128u (6)138F1:404 CT1FL:402 CT2460 CT8İ500:300:428 470 W0I21:463 WSC1I8:463W1(D$(K(P(W)))""):NP(HSS1):W$D$(OF)@ 2,W$,HS:W$D$(OF)(C$,3,1)"S"D$(0)"U"h D$(OF)W$:2,W$,HS:(32)128424 CT(32)128:CT1FF(F1):404 CT2FL1:305:460 CT8İ500:HFF:300:FHF:404 470 FF1:FL404 FL1:305 N& NHS0M1$"ENTER REPLACEMENT DATA"w OM2$"CTRL:":W1(C$):M2$M2$(C$,W,1)" ":W:M2$M2$";<-,," ^22:::2,M1$,39::2,M2$,39:M1$"":M2$"": A9:F1 JS:FLD,S,0,A:L256(1):FLFL1:430 FLD,S,F,A:OF(7)L(? 1W1L(S1):WL(S)W11:21::NCĺ"TO SCREEN:";D$(W1W1);_ 3NCUDĺ"DELETE COUNT: ";DC 4NCUDĺ"UPDATE COUNT: ";UC 6HS0įOUT,S,D$(1) @FLD,S,1:F1W:2,D$(W1F),HS:CURS2:F ENC350 JHS1M1$M1$"ENTER CRITERIA:<>/=#* ?"WS: -RS$(S)""SP(S):41+ /SWS:41g 210:RS$(S)"C"C%(0,S)āW1C%(0,S):RS$(C%(W,S))"":Wm 7 :D$"OPEN"TF$: :D$"VERIFY"TF$: :D$"WRITE"TF$: :D$"READ"TF$: :D$"CLOSE"TF$: :D$"DELETE"TF$: ,::SCR,SsGLOBALUPDATE8000(9000P RS$(S)""į,S,D$(1),Q$(1),F,1:20i ,S,D$(1),Q$(1),N,1(0)RS$(S)"C":OUT,S,D$(1)(0)RS$(S)""(WSS)P(S)43*D$(K(P(S)))""SP(S):41 +50:(RS$(S)""P(S)0)WSSS          )µLghL车 车 '    µegihe j@l```e`e` `𷢚  췽  `L bJ h)H e +,h͵H#$ hh 0gkh gghLl귍JJJJuõĵɵʵǵȵ˵̵ ŵ`JJJJ lɬ uu` ` \ µLCJT^ktyKI KKϲŬǬԠӬӬԬ̠ŬԠʬԠʬРʬԠʬԲӠʬJ)?iQegi(ih : { 륡 H:H     $`L L 4 5 0 1 `HU(T(hșTLL ,JP L ɍ`l8 " ̠Ҡ L < $ " ԠϠԠ i ~ 7h`ɀ ɠ? 2L ,JPH${h H{$2h`,JP  Lx HhɠH h($T{$! H hL % ,JPJ${e((`L ,JPhhF!$JU(T(!!`$JHTh`L ,J$P (H(I( ؍ ,a00,b040 Ս h(,JPTc(4);"MAXFILES1">W(2122):W10256((W0)523):Wb(4);"BRUN CHAIN OBJ,A$9700":0,BRUN CHAIN OBJ,A$9700":0P;SL;" DRIVE ";DR: 00o0%Zo*DP,(ENJ):DP2,(EN2(I1)2):DP4,(EN1(I1)2)`o+o.VO(ENJ):SL(EN1(I1)2):DR(EN2(I1)2):"SLOT ";SL;" DRIVE ";DR: ":10:W$"START/ENDVOL":(EN31)2W$"START/ENDDRIVE"c%:"UPDATING "W$" FOR:":SN$:*c!%VER,1:(0)7800: L)7800:n*DP,(ENJ):DP2,(EN2(I1)2):DP4,(EN1(I1)2)n+o.VO(ENJ):SL(EN1(I1)2):DR(EN2(I1)2):"SLOT "   A!M2$"3"5 H!MSG,M1$,M2$:ES(0):SP1ES:s %::10:W$"START/ENDVOL":(EN31)2W$"START/ENDDRIVE" %"UPDATING "W$" FOR:"::SN$: %MSG,1:(0)7800 !%VER,1:(0)7800: & ASP0(M1$" "):ES1SP:M2$"":M1$""bR!:b%:",L"LD xVER,0:(0)7800:CRN,0::D$"BRUNCHAIN OBJ,A$9700":0:V @(222)255Ħy EER(222):ER0ER15İ8200: TER253ER2497800 hM1$"FATAL ERROR-"((222))" AT LINE-"((218)(219)256):M2$"1":8520:SPĬ m  8513:ES78006:W(W1)(W2)256? I1(W$):W1I,((A$,I))128:I:K ::10l :"UNABLE TO UPDATE ";M7$:u M2$ "USE BLANK FORMS EDITING TO UPDATE":MSG,0:7800 CRN,0:W(6)(7)256(249)1:LWSA81 (:D$"BSAVEBLANK-FORMS."SN$",A"SADIGITS":30003 (A$)(W$)A$("000"A$,(W$))e 2000:M7$"ENDVOL":(EN31)2M7$"ENDDRIVE" W$"":SCL,"END",W$,:A$((178)):W$""7700 (A$)(W$)3000 (A$)(W$)A$("000"A$,(W$)) 2000:7700 STR,W$:W(26)(27)25? SN$"":STR,SN$:W(26)(27)256:W,(235):W1,236:W2,8I 9500 W$"":YST:SCL,"START",W$,:A$((177)):M7$"STARTVOL":(EN31)2M7$"STARTDRIVE" W$""M2$M7$" NOT CODED ON /SYSTEM":3000 (A$)(W$)M2$"NEW "M7$" HAS MORE UPDATESTARTVOL-:(4);"MAXFILES1"88000 M3$" TO QUIT":M4$" TO QUIT, TO CONTINUE":M8$M4$ W10256(((2122)0)523):WNA68256:BP6167:BE$(7):D$(4)P08256:ENP0616:SA(58)(59)256   RJۍxʊ a b| Ή΅΄ۭhJJJJj,. ~ " ~ u~~u ɭɱ,L` #C%(SC,SC)#S1SC"#I0.$W1SCJ$P(W)SII1:C%(I,S)W\$:C%(0,S)I:i$P067,0T$M3$" TO QUIT":M4$" TO QUIT, TO CONTINUE":1000 :SWS$(SC)P#SN$"":STR,SN$:W(26)(27)256:W,(235):W1,236:W2,8:N$(0)SN$m#YST:SCL,"NAME",N$(0),x#RK$""#S1SC:INFO,S,L(S),W,P(S):N$(S)"SCREEN "(S)ϋ#CRN,S:SCL,"NAME",N$(S),:Sꋾ#DA$(L(SC)),QT$(L(SC))#BE$(7):D$(4)):P067,1:INFO,SC,W:W(0)20WSC30500:HM(115)(116)256W:HMa;#P3P03:P7P07:P6P06Ɗ<#W(379)(380)256(381)2562:W1((EN16)(EN17)256)((EN18)(EN19)256):EV(WW1)1#SC(SS71610):L(SC),P(SC),N$(SC),RS$(SC),RC(SC),@!M2$"2":8520A!M2$"3"6H!8500:ES(0):SP1ES:A(#8000~-#EN2144:P02048:SS2304:CL:2700:::SYSSEC:(0)90052#(382)127M1$"SORT DISK NOT ALLOWED":MSG,M1$,0:CL:YST:W$"1":SCL,"START",W$:P0176,(W$):9000E5#SC(25671610:M2$"2":8520:CLOSE:7700_cER250M1$"FILE ACCESS ERROR-"((0)):M2$"2":8520:CL:7700hM1$"FATAL ERROR-"((222))" AT LINE-"((218)(219)256):M2$"2":8520:CL:7700ш 8513:ESįCL:7700׈ 4!MSG,M1$,M2$:?!M2$"1":8520700;F10256(((2122)0)523):VER,0::(4);"RUNBOOT2"M@(222)255ĦpEER(222):ER0ER15İ8200:{J8000T(222)253(55)2531000V(222)253(55)253įCL:7700݇YER77ĺ"OUT OF MEMORY":^ER249M1$"ABORT REQUESTED"ŠLʠ̠LƩϠԬξϠ̠ѾϠԬԠŠҠ͠ˇԠŠԠԠˠΠԠˠΠ    /̠ѾϠԍ0 hn 8nL"h Ϡ`(!I!o6ŠčŠҬԠ˭̠ Ԡҍ٠ϠԠӠ̠Ԡh`    ɍɑcW  W j L,WXjjjj YHeHZ Ơ h   h  `  4`ɠ `8,8nʊ tu ( H Xh`,,`  `y` 7?i 7?i! `? e```8`,RU K R   nU ST T  U0   ɍU0 ɑ L' H V ` jL jLI [ k } ?= í в`` G ?}` d뷮? 鷽뷍균 췠 7e? ?]` 78y ɑL' ~ S? Z L `8`   %(` x)?Ȣ /  /  LA)?`` a ` L`، z}~?췮i' ʊ 췮?=hJJJJj e =ugh"ɭɱɪ @,LLc $5  t | ?   ɍ `ɑ L' ~,V `;Ѕ~,,V `Ѕ~,,V `` ?8? P $  % ,,07xʊ aH e h tb |    ɍLۍxʊ a b| Ή΅΄ۭf' I,,,JP V X% " ? ? ?   P 8}J 0} | L ?, P 688 8,V    (2428)256(2429)256256:"TOTAL RECORDS:",W3CM2$"2":8520:W1(RC(W1)6)(RC(W1)61)256:W2(DC(W1)6)(DC(W1)61)256FWS11:P(F)SFP(F)1:FCL:::VER,0:(0)077007750PE,"BOOT2":7(W1W2):A$(W2)uW3W3W1W2Wx5:"ACTIVE RECORDS: ";W$:5:"DEAD RECORDS: ";A$oyP(S)0A$W$:6524zWP(S):6600:A$((W$)(W1(W10))):A$(A$,4)|5:"AVG FREQUENCY: ";A$݅}I1500:I:3280:ESı/S::"TOTAL BYTES:",(2427)$,I,1)","ĂI:&5NF1:I(TF$):I:zbPS$(S)"":IL(S1)1L(S)1:(QT$(I))0(QT$(I),1)(1)PS$(S)"P":IL(S)1gI:d,0::"DATA BASE NAME: ";N$(0):34,2:nRC9256816:DCRC3:S1SC::"SCREEN ";S;" ";N$(S)sWS:6600:W$ER,1:(0)4235vw261:260:264:W$:W$"/2"M1$TF$:M2$"MUST BE CONVERTED FOR VERSION 2":265:MSG,M1$,M2$:4200|565:S1SC:FL(S1)1L(S):W$:W$"/"FL(S)1:FɃQT$(F)W$:F:S:265ރS1SC:4450:S䃋0NF0:I1(TF$):(TFe褐 @H h ɠ @ H h  М`T8``  01234567892TӠΠĠξ ma˭`8˰Π˥88ȌZȱː2T2Th  42T2T/T/T6T/T2T  6T` ɯJ=Rɽɍ?ɬNȱɬ ɍɠ 9T!Lu  ȱɬɍ݅Ȣ  LS :`^ɂ  `ё ~ `э-T |O P L  Q [Rȥɯ#ɍɬ(  O Q [R8ȑ  |O !   Q8LQ8:;`hh8`HH0z H eh }8 9 i(i; ʘ: h  4(ɠ$  ɠ P PLTPȄ` ` |O P`&=ɂ O8eg  eeɂ qO ! LQQ qOɂ qO  H ! h8Ы` eѨ``<=` <``HOOOOOO` OOLOh```:; |O P` P  PLQ` : .T`,.T @y.Tt.Tkɯ?ɍ(5  (.T0Fɍ Pɬ(!$LNȄ%#F   ȱɍ` $0 LN$  `%H$H OO# O0`!# B#LXOɍ$$0-F %# ɍ$! нOL O h$h%#FL" |O`LPHh` :  :m<;m=` |O < Oe<e=PL^J N qO$$L N`!$" N$0 N$L N%(% "ɍ`!8$ LN` OC<=<<C8!Ce!$$$ "=8=<L N$< LNL N`$` ɍ  NM`> NML^Jɓ#$ NM` O L PLJ /MLJɆ $ NM`LI ʎ,-T N-TL&M H |Oh`ɍ ɯ ! L9M  `jMgMkMhMfMiM` hMkMLfMLP` B O>? O<ɍ `<= , LKHȱh`8ɍ OL~J`$ O LIL0JLIɑ$ NM`Ɍ$ NM N NL^Jɔ$ NM H MhL^Jɖ!$ NM H$0 N NhL^Jɋ#$ NM`ɍ NML^JLML^Jɗ#$ NM`ɠ NML^JLMLIɄ$ "%$ "L^Jɍ $0 O OL^JɈT N@$ $0 NM M$$$' ȑ ߑ L+K LI O NM qOL^Jɉ$ NMLbJɒ$ NMLbJLIɏ$ NM ML^J ML^JɅ'$ NM`ɍ LK OL^JɕW$$0 NM LOLILPLILILILSL=PLQLoRLS eO IL |O X P`LbJLJ$ ɠɊəLJ%@ T LIH h O$0ɍ`%#$С8f$0` O NLI ɠɍɁ??LIɂ$ NM      4080)FSNFW$"P":4080:PS$(S)"K"@FSNFPS$(S)"K"IS:NF1:I014:W(SS26(I2)):SWS128WI14::NF0:I:ׂPS$(S)W$:FL(S1)1L(S)1:DA$(F)W$:F:CPYD,S,0,DA$(1),QT$(1):h3970:ES4235:TF$"SELECT."TF$:V10:"ENTER NAME OF "B$::M3$", TO SELECT"::W$"":KBDIN,W$,39]ES(6)145:ESıp(6)1473982W$""3984:TF$W$:4400:NFES0:ԁM1$"INVALID FILENAME":MSG,M1$,1:ES(0):ESTF$"":ށ3984S1SC:4050:FSNFW$"":WS$(S)"C":384537509LHLHLL:PS$(S)"K"HSSES:SHSV C%(0,S)0ıW11C%(0,S):WC%(W1,S):PS$(W)""SW:W199::3850:B$"REPORT REQUEST":W4ˀC$"SQ":SETCMD,C$DIR,W,W$:ES(0)0:W$""3990:ESıG::S)RC(S)1:3S:25:RC(S)5tC%(0,S)0NF1:QWS1SC:7600:F3740rPS$(WS)""NF0:WSSC:WS:WS:NF1:WS:W11SC:P(S)0SW:LW1:W1SC:W1:SP(S):W1:SW:HL0:S1SCPS$(S)""İ3750:38403700:NFė:10::"SORT PHASE":::"TIME EST:":(SR(SR)((2)47))" SECONDS"n~ SETREQ,1:SETR,1:SEQ:(SR):CHKPT~ 6500:CLOSE:7700~ :ES(0):~ I014~ W((SS27I2)128)128:W1(SS26I):W1W1128(W1128):SS26I,W1W~ I:RC(INIT,1:SETREQ,1:2300:KY$""įINIT,0:925671614,128:S1SC:CRN,S:INIT,3,S,KY$,L(S)3,S1,0:KY$"":S:3500:INIT,2} 4000} ::::"RECORD SELECTION IN PROGRESS"::} :34,(37):S1SC:(N$(S),20);:25:RC(S):S} 3800F~ 40::EN31)3020| ::10:"ENTER ENDING "A$" NUMBER FOR ";::"OUTPUT"::W$((177)EV1):KBDIN,W$,4:W(W$):W(177)W250(W(176)1W(176)EV)3018| P0178,W:900:ES1000| 2400:SETREQ,1:KY$""įSYSSEC:(382)0950:INIT,1|} SETREQ,0: "A$" NUMBER IS:";((176)){ "ENTER STARTING "A$" NUMBER FOR ";::"OUTPUT"::"MUST NOT OVERLAP CURRENT "A$" NUMBERS":W(176)EV:W250WW250{ W$(W):KBDIN,W$,4{ W(W$):W1W250(W(176)EVW(176)EV)3005{ P0177,W | W255:( OK?";?z M1$" ":MSG,M1$:SEL,0,Y:(0)2700:P0176,(W$):Qz P051615,1z ::10:"DO YOU WANT TO ADD DATA TO AN":"EXISTING SORTED FILE?";:SEL,0,N:(0)İ2000:KY$""1000z ::10:A$"VOLUME":(EN31)2A$"DRIVE"{ "INPUT STARTING QUIT":MSG,M1$:C$"Q":SETC,C$:W$((176))::"INPUT";::" STARTING "A$" NUMBER IS:";W$y "ENTER NEW NUMBER OR TO ACCEPT":KBDIN,W$,4:(6)145M2$"2":1025y W(W$):W1W2502700:W(176)ız ::"NEW "A$" NUMBER IS:";W$:"IS THIS 8`ӆɩʦ ) )Ҡӽ )  )֐ +  J֐L-- L2 2 p+ ,  8  e` `   p+ ,L-, LK )   2ȱɅ`8`LEMLFMIMLN 2 2 2| mq{ } i 3J8~J{ | } LHihmIMJIMHMGM L 2ΫL 2 L 2` 3 2 2詠 2 2`Hm2hm3 ` Ңְ ) ) *LM * iO 6O Z+LMH 6Oh 2 )+LM` ? 6 LKM 0 ߍ45{ L 3 2юɩʦz  ? 4б MLN 2 ?  Oάe{ e| i} imGMHM0iqLO L 2{ L| } LL,HMLDMe퍉LiL` 2 2L  L) 2 $ 2 2 2ee $ 8qee 3L)q  3J8~JLM`D8M9 * IMemZ [ H)h)e[ Z %LK  2L LLK`DMLD2M3 L 2Ɂɀܢ  2ҎHDMEMNFMhɅ)FH$0))NDMh0 2LL 2LKυhHLLʌ 2L L=Ԣ ? 3L* 3LKLL3e썈L  SE SELECTED WITH 'P,B/E,T'"::" ALL FIELDS"Mx SEL,11,2,1:FS1(0):FSıx 2600:NFM1$"NO FIELDS SELECTED":M2$"2":8520:CT0x x( NF1:S1SC:PS$(S)"P"ĂS:x- NF0:x A$"VOLUME":(EN31)2A$"DRIVE"Yy ::10:M1$" TOKY$""ı3wI1(KY$)7:2160:SW1FWNF0:I99I1(KY$)7:2160uMI1ĺ"SORT KEYS, MAJOR TO MINOR ARE:":vRFLD,W1,W:PRTNe褐  @H  h ɠ @  H  h   М``8``  0123456789|ӠΠĠξ ma˭`8˰Π˥88ȌZȱː||h  ||yyy| ` ɯJ=Rɽɍ?ɬNȱɬ ɍɠ !L ȱɬɍ݅Ȣ Li :`^ɂ `ё `эw  E I   ȥɯ#ɍɬ(   8ȑ  A   8L8:;`hh8`HH0z H eh }8 9 i(i; ʘ: h  (ɠ$ ɠ 3 3LȄ` `  E`&=ɂ 8eg eeɂ  L ɂ  H h8Ы` eѨ``<=` <``H697:58` 7:L4h```:;  M` 3 PL ` : x`,x @yxtxkɯ?ɍ(5 (x0Fɍ 3ɬ(!$L<Ȅ%#F  ȱɍ` $0 - L!$ `%H$HWX#V0`!# #Lɍ$$0-F ( %# ɍ$! - нXLV - h$h%#FL# `LMHh` : :m<;m=`  < e<e=L  $$Lj`!$" $0 $Lj%(% # ɍ`!8$ L\` C<=<<C8!Ce!$$$ # =8=<Lj$< - LLj`$` ɍ  `> Lɓ#$ `  I EL yLɆ $ `LF ʎ,w /NwLp 2H h`ɍ ɯ L `` LLM` B >? <ɍ `<= A MLHȱh`8ɍ ( L`$ -  - - LFLzLFɑ$ `Ɍ$  B Lɔ$  H hLɖ!$  H$0 B hLɋ#$ `ɍ LLLɗ#$ `ɠ LLLFɄ$ "%$ # Lɍ ( $0  LɈT @$ $0  $$$' - ȑ - ߑ - - Lu LF   Lɉ$ Lɒ$ LLFɏ$  L LɅ'$ `ɍ - L ( LɕW$$0  LL$L\L!L!L$LLLKLLX  *L   E`LL$ < ɠɊəL%@ Q 7 LFH - h $0ɍ`%#$С8f$0`  BLF 7 < ɠɍɁ??LFɂ$       :NF2080(tFLD,S,F:(1)(0)ī2070st:PRTN,3::"IS THIS THE FIELD YOU WANT(Y/N)?";:SEL,0,Y:(0)02015t WKL(3):W100ĺ:"ERROR, TOTAL KEYLENGTH TOO BIG("W")"::"CANNOT EXCEED 100 CHARACTERS":2015uLSS:KY$KY$("00"(F),2)W$".W$"."W$"A"W$"D"(W$"0"W$"9")2070CsW$"0"W$"9"ĂIVsW$"."W2070isW$"."WI:IsI(A$)W02070sF((A$,W1,(A$)W1)):S((A$,W1))sSLSLS02048:W1LS:W2S:2200:NF2048:W1S:W2LS:2200:NF2080 t2250RL B> TO RESTART":MSG,M1$,M2$:35,22@rA$"":KBDIN,A$,7:W0:Xr(6)135K15:K:wr(6)145KY$"":K15:K:r(6)130KY$"":LS0:KL0:K15:K:2000rA$""2000r(A$,1)"0"(A$,1)"9"A$A$"A"rI1(A$)+sW$(A$,I,1):000qW1ī3000&qW2İ2500:10002qK114JqC$"GQB":SETCMD,C$Tq2100dq:34,(37)q"ENTER SCREEN.FIELD NUMBER"qK2ĺ"EXAMPLE:"::"'1.2A' FOR SCREEN 1,FIELD 2, ASCENDING"$rM1$" TO GO SORT":M2$" TO QUIT, TO SKIP THIS SCREEN":M2$" TO ACCEPT RECORD":MSG,M1$,M2$:24:SEL: 1LD,S,K,0,@%K0įFLD,S,1,1:K(7):W$(K)8D%W1(3)ZN%W2(W13)W2:W21800W21800pX%W$W$":":W2W2Wb%R01:SETREQ,Rl%INIT,3,S,W$,L(S)3,P(S),W2:R%'ER(0):M1$"INPUT DATA ERROR="(ER)", SCREEN="(S):MSG,M1$,1:(0)ıA REEN "(S):SCL,"NAME",N$(S),D%W$"":SCL,"PARENT",W$:P(S)(W$)~ %W$(100(P(S)0)2(P(S)0)):SCL,"FREQ",W$:W2(W$)!%W$"FIRST":SCL,"DUP",W$:W2048(W$DD$)"%W$"":SCL,"KEY",W$:W$""W$"-1"&%K(W$):%K0W11:9550>%K0įFC),RC(SC),DA$(L(SC)),Q$(L(SC)),C%(SC,SC):#D$(4):3000#W0:STR,N$(0):W(26)(27)256:W,(235):W1,236:W2,8:YST:SCL,"NAME",N$(0),#S1SC:CRN,S:9500:#S1SC:I0:W1SC:P(W)SII1:C%(I,S)W$:C%(0,S)I::%N$(S)"SC0:SC256(0):L(SC):S1SC:FLD,S,0:L(S)L(S1)(7)1:Su5#W(0)20L(SC)SC30500:HM(115)(116)256W:HM<#W(379)(380)256(381)2562:W1((EN16)(EN17)256)((EN18)(EN19)256):EV(WW1)1(#P(SC),N$(SC),RS$(SC),LV(SC),E$(S:8520:CL:7700- M2$"3":8520:ES7700:HH!MSG,M1$,M2$:ES(0):S(#8000j)#P02048:ENP0616+#2700:SYSSEC:(0)90032#CL:(382)127M1$"SORT DISK NOT ALLOWED":MSG,M1$,0:YST:W$"1":SCL,"START",W$:P0176,(W$):9000<4#FLD,0,(222)253įCL:77004YER77ĺ"OUT OF MEMORY":n^ER249M1$"ABORT REQUESTED":M2$"2":8520:CL:7700cER250M1$"FILE ACCESS ERROR-"((0)):M2$"2":8520:CLOSE:7700hM1$"FATAL ERROR-"((222))" AT LINE-"((218)(219)256):M2$"1" x7950!VER,0:(0)7800A,0,"UPDATESTARTVOL":7810z10256(((2122)0)523):VER,0::(4);"RUNBOOT2"10256(((2122)0)523):VER,0::(4);"RUNUPDATESTARTVOL"@(222)255ĦEER(222):ER0ER15İ8200:J8000T"TOTAL BYTES:",(2427)(2428)256(2429)256256:"TOTAL RECORDS:",W3Z:EC" ERRORS"nM2$"0":8520:W1(RC(W1)6)(RC(W1)61)256:W2(DC(W1)6)(DC(W1)61)2567900::VER,0:(0)7700(,0,"BOOT2":7700;N$(S))sWS:6600:W$(W1W2):A$(W2)9uW3W3W1W2qx5:"ACTIVE RECORDS: ";W$:5:"DEAD RECORDS: ";A$yP(S)0A$W$:6524zWP(S):6600:A$((W$)(W1(W10))):A$(A$,4)|5:"AVG FREQUENCY: ";A$}:(0)ıGW1500::S::5NF1:I(TF$):I:#::10"CURRENT STARTING INPUT"DT$"IS "(176):"ENTER NEW NUMBER OR TO ACCEPT":W$((176)):KBDIN,W$,4::d,0:"DATA BASE NAME: "N$(0):34,2:::(0)ınRC9256816:DCRC3:S1SC::"SCREEN ";S;" "t-ppp(pI (pL) Ypp0L`ߛ˜5>=1RBdwŊ۴@[XߘZ+ӠQd޶voqb8uwjzy.EFw~I[`rp9/(W%ZgTKuJQmvWf{G?tM~iX2: U4f<fr\(gW%51 Yi& @;NSHz7 /2"M1$TF$:M2$"MUST BE CONVERTED FOR VERSION 2":265:MSG,M1$,M2$:4200o|565:S1SC:FL(S1)1L(S):W$}FLD,S,FL(S1):(13)9(1)FF1:4221W$"/"FL(S)1:FQ$(F)W$:F:S:2650NF0:I1(TF$):(TF$,I,1)","ĂI:5VW1$"LAST"W2W22048@5VW$W$":":INIT,3,S,W$,L3:P,W2: hT,3,S,W$,L3:P,W2\5V INIT,3,S,W$,L3:P,W2|VD",W$:P(W$):W$(2(P0)100(P0)):SCL,"FREQ",W$:W2(W$)4|VW$"-1":SCL,"KEY",W$:W$W$"":SCL,"DUP",W1$:W1$W1$"":K(W$)4VK0W11:222004VK0įFLD,S,K,04VK0įFLD,S,1,1:K(7):W$(K)4VW1(3)4VW2(W13)W21:W21800W21800M2$" DISK, SLOT "(SL)" DRIVE "(DR)",V"((176)):MSG,M1$,1:ES(0):ESı3NINIT,0:,0:10::14::"PLEASE WAIT"::INIT3N22000:INIT,2:3UFLD,0,0:L0:SC256(0):S1SC:FLD,S,0:LL(7)1:CRN:S:22100::<4TVW$"0":SCL,"PARENT DRIVE "U24NW$((176)):::10:M2$W1$W$:"ENTER NEW NUMBER OR TO ACCEPT"v29NKBDIN,W$,4:(6)141200202>NW(W$):W1W250200202HNP01116,W2N::10:M2$"NEW":M3$2NSL(EN1):DR(EN2):(EN31)2DR(176)Q3NM1$"INSERT "ESıh1&%::10:N$"":"ENTER NAME OF BLANK FORMS"::M9$:C$"QS":SETCMD,C$::KBDIN,N$,41:ES(6)145r1+%ESı1-%(6)147950810%N$""95101:%1 N9500:ESı1*NA$"Y"İ45101/N7000:M2$"FORMATING AS"21NW1$" VOLUME ":(EN31)2W1$"MSG,M1$,1:(0)ıe0$,0:10::14::"PLEASE WAIT":::D$"INITH,S"SL",D"DR",V"VO::D$"DELETEH":0%::10:ES0:A$"":SN$""((SA)131(SA)130)95080 %"USE '";SN$;"' (Y/N)?";:SEL,0,Y0"%(0)A$"Y":1$%DIR,1,N$:ES(0)0:N$""9530:USING VOLUME:";:KBDIN,W$,4:(W$)1(W$)2509100:P0176,(W$)p/#P01216,0:SYSSEC:ES(0):SC(SS122):/#::10:I(EN25)1:SL(EN1I2):DR(EN2I2):VO(EN29)/#M3$0#M1$"INSERT NEW DISK, SLOT "(SL)" DRIVE "(DR)",V"(VO):/.)#DIR,3,PG$:ES(0)0:ES9012:PG$""9030;.*#::10[..#"ENTER BASIC PROGRAM NAME"{./#:M9$:C$"SQ":SETCMD,C$:.2#PG$"":KBDIN,PG$,29:ES(6)145.4#ESı.7#(6)1479001.<#PG$""9002.F#PG$"USER."PG$:A/#::10:W$((176)):")255Ħ*-EER(222):ER0ER15İ8200:5-J8000N-TER253ER249įCL:-hM1$"FATAL ERROR-"((222))" AT LINE-"((218)(219)256):M2$"1":8520:ESĬ-m- M2$"3":8520:ES7800- -H!MSG,M1$,M2$:ES(0)1:.(#ES0:I1:PGI0:/RESTORE DATA BASE"::" INITIALIZE BLANK FORMS DISK"::" "PG$(0)a,SEL,2,2,7:W(0):W0ıw,W1İ20000:7900, W2PG4:71,W3İ6500:CL:7900,W4PG6:71,W5PG7:7500:7900,W6İ9200:7900,,W7PG0:71-@(2225PG5:70 +W6İ7900:78002+W4PG2:70Z+,10::"DATA BASE UTILITY MENU":{+:" RETURN TO MASTER MENU"+:" FORMAT DATA DISK"+:" REORGANIZE DATA BASE"::" DATA BASE STATISTICS"D,:" GLOBAL UPDATE/DELETE"::" BACKUPTILITIES":SEL,2,2,6:W(0)*W0ĉ::"READY TO EXIT?";:SEL,0,Y:(0)7800::5:"ENTER 'RUN' TO REENTER SYSTEM":" 'FP' TO EXIT GM ENVIRONMENT":*W2PG3:200:(0)7800:91:7800*W1NF1:4800:NF04900:7800*W3PG1:70 +W:KBDIN,W$,4:(W$)0(W$)2557610:W2(W$):)W10ıM)WW10:W332:X)x8000)},10::"DATA BASE MASTER MENU":):" RETURN TO BASIC"::" DEFINE ENVIRONMENT"::" "PG$(3)::" "PG$(1)*:" "PG$(2)::" SORT DATA BASE"::" U"DISK TYPE"::W(37):" 0 FLOPPY":" 1 CORVUS TYPE":" 2 SANTA CLARA":" 3 OTHER":SEL,W,1,3:W(0):W235:W316:W3ı(::"ENTER TYPE CODE:";:W$"3":KBDIN,W$,4:(W$)2557605:W(W$).):W$((EN62)1):"ENTER NUMBER OF TRACKS PER DISK:";$,4:W(W$):W1W2557577.':P0196IO,Wn'2:"VOLUME:";:W$(VO):KBDIN,W$,4:W(W$):W1W2507579':P01116IO,W::7600:P0206IO,W:VW2W32(W0)2((W3)3W3)'P0198(2IO),MO(V):P0199(2IO),(V256):P0202IO,W31:|( &W$"INPUT:":IOW$"OUTPUT:"N&:W$:::VO(176):SL(EN1):DR(EN2)t&IO(EN)1SL(EN3):DR(EN4)&(EN31)2DRVO&2:"SLOT :";:W$(SL):KBDIN,W$,4:W(W$):W1W77575&:P0204IO,W'2:"DRIVE :";:W$(DR):KBDIN,WLANK FORMS:";SN$Y%j:"INPUT";:20:"OUTPUT"::"SLOT :";(204);:20:"SLOT :";(205)%o:"DRIVE :";(196);:20:"DRIVE :";(197)::"VOLUME:";(176);:20:"VOLUME:";(177)%t:(DT$,(206)61,6);:20:(DT$,(207)61,6):MSG,1:(0)ı%y91$((EN29)):SCL,"TEXT",W$:P0184,(W$)B$cP0192,1:P0163,0U$gP069,(EN):f$L200:(0)ıv$N9500:ESı$QA$"Y"7520$V(SA)131(SA)1304515$[7000:7525$`4510$e::IO0:7560:::IO1:7560%g:::"REVIEW":::"B29)256256:"TOTAL RECORDS:",W33#O$"D"įMSG,0D#0:CLOSE:#W1(RC(W1)6)(RC(W1)61)256:W2(DC(W1)6)(DC(W1)61)256##XW$"001":YST:SCL,"START",W$:P0176,(W$):W$((EN)(176)1):SCL,"END",W$:P0178,(W$)*$]W RECORDS: ";W$:5:"DEAD RECORDS: ";A$E"y(SS7S)0A$W$:6524"zW(SS7S):6600:W1W1W2:A$((W$)(W11(W10))):A$(A$,4)"|5:"AVG FREQUENCY: ";A$:O$"D"āI1500:I"~:(0)6540 #S::"TOTAL BYTES:",(2427)(2428)256(24P""!jN$SN$:YST:SCL,"NAME",N$R!k:"DATA BASE NAME: ";N$:O$"D"Ĺ34,(37)!lCRN,S:N$"":SCL,"NAME",N$:RC9256816:DCRC3:S1SC:!oCRN,S:N$"":SCL,"NAME",N$:"SCREEN "S" "N$:WS:6600:W$(W1W2):A$(W2)("uW3W3W1W2:5:"ACTIVE0(EN26)1:" SLOT "(EN1I2)" DRIVE "(EN2I2):IW SEL,3,1,I1:W2(0)1:g d9500:ESı eA$"Y"İ7000:6503 f4510 g9100:ESı h::10:"OUTPUT TO:"::" DISPLAY"::" PRINTER":SEL,11,2,1!iW30:,8:O$"D":(0)į:O$"(J1):I:W$(W):4W$((ENW))((ENW1)):bW255312,5313:(W$)0(W$)995320:(W$)0(W$)135320:(W$)0(W$)325320:W$("00"W$,2):ENW,(W$):ENW1,((W$,1)):W0:: |"SELECT SLOT AND DRIVE FOR:":W$::I:1PW(EN33):W192(EN32)0W$(W192):ERW253W$"0":aTW$"$":5206:W(EN32)VW$W$(HX$,(W16)1,1)(HX$,W1(W16)16,1):dW0:W$(W$,2):W$("0000"W$,4):I14:J116:(W$,I,1)(HX$,J,1)ĂJ:W$"":I4:I:fWW16ER KEY FOR"W$"APPLE KEY":5178:EN56I,A:i:W16384:W,128:A(W):W16,0:WA:A160A141WA64:x;(W);::<:"ENTER END OF RECORD DELIMITER":"FOR TEXT FILE OUTPUT:";:W$"/":KBDIN,W$,5:(W$)15180=W0:(W$)1W(W$)>EN30,W1,99(0)C5:"FIRST LETTER DEFAULT TO CAPS?";:SEL,0,N:WW(0)6:"DISPLAY SCREEN LABELS AS INVERSE?";:SEL,0,Y:EN22,W:EN58,6364((74)127)((0)0)(12864((74)128))7(74)128ı8W$" LEFT ":I0:5177:I1:W$" RIGHT "+9:"ENT CURRENT DAY:";:W14:5300:KBDIN,W$,4::5310:W5168<12W1:(74)25174::"ALLOW LOWER CASE IN DATA?";:SEL,0,Y:(0)51743:"DO YOU HAVE A LOWER CASE CHIP?";:SEL,0,N:W(1(0))21 4WW64::"SHIFT KEY MODIFICATION?";:SEL,0,N:EN6:"ENTER CLOCK IDENTIFICATION:";:W$"0":KBDIN,W$,4::(W$)0(W$)165164g-W(W$)16W:EN9,W.:"ENTER CURRENT YEAR:";:W10:5300:KBDIN,W$,4::5310:W5166/:"ENTER CURRENT MONTH:";:W12:5300:KBDIN,W$,4::5310:W516760:"ENTERER":MSG,1:(0)ıU%:W48122:(W);:::0:"EVERYTHING OK?":SEL,0,Y:(0)ıa&:5130("DO YOU HAVE A CLOCK CARD:";:SEL,0,N:W$"0":W0:(0)5165*:"ENTER SLOT# FOR CLOCK CARD:";:W$"4":KBDIN,W$,4::(W$)7(W$)15162:W(W$)N,UENCE":I0I5178:EN34I,A:A1415150:II1:I105145:EN34I,141::"ENTER DEFAULT LINES PER PAGE:";:W$((EN27)):KBDIN,W$,4:W2((W$))::W2255W24ĺ"MUST BE <= 255":5150#EN27,W2$:"READY TO TEST PRINTER"::"TURN ON PRINT5130C(W$,1)"$"5220:W2(W$):W$""W2768W29605133:5139|W2(W$):W2(W20)(W2192)256(W20)(240253256)EN33,(W2256):EN32,W2(W2256)256:(W$)0ı "ENTER ANY PRINTER SETUP CHARACTERS":" FOR NONE OR TO END SEQ͠Ҡz#Y1,("S")128)(4);"MAXFILES1"X 0,0::(4);"BRUN GENERAL MANAGER,A$6000" 0T  ! Ӡ Ԡ" ̠  ̠Š Բ ̠ӠԠ ǠӠî Ԡʠ Рʠ ԲӠʠΠʠŠ!Ǡ+ԠӠ, ̠Ҡ!Ԡֲ"ϲ/ԠŠʠ Ԡʱ Ԡʱ Ԡʠ Ϡͮ˱2ҠʱԠʱ ӠʱͮˠAԠʠ  FI$`8,N0` `@CFILOR LjLLqLLvLLLLz,0 1ߥɍ[ʍ\`[ɭ\ 9߰b ߰] ɍW`S)" HZIZh)S bߐ,Z,S . ߐ ,Z0 ކD (()$%,JPU ɠ @PT  (PP( LLP,, ݰOOH hi,N-m,mLKmIHH I hL, (`j  `4 )4 ) ݰ8~ޤ`ɠ#Iޠ ܰ,}?y 񦚥RHRhD;Mм ?Hȱ?)h)  , 8`L?3ȩCж L<ܤ Lܩ, `Ȅ  8``Ȅ`Ȅ`8`CYMD 5晥3H ~  ō1H QhH2 Q h12H  L񩠅Jn ۢ  - ܰ( ܰ0 L۠ ۢ L۩, `,0`LܩJn ܢ   ܰΠ( ZƴP0 $ >L] 0Ӭɴ٘-yڪɴɮ ڨ   ɴ -  `%8 ئ ,JPL e(e) L  zӥ%"  9'  0 -  h L H h200*1   $` 0ee%$L# =  >L  `|x뷍I aj 鷍b 뷍귍h췩詷 詷 N`(L  e  4ٰ M Q QN%" 4ٰ   } < ɍɑȌ`$ Ȅ  H h )ɍ  `LɕɈI،  $) < LIٍ`$N  QN sש ~ s, < ɍ)f 7 LإL֦ʊLǰ ٩  .L LӰ L۠ $Ӥ  Ӑ`M Ӑ`H8eii:0ʽ.- 0i1h`$%`$% # `NN.M Nv% Mj9  ѩj,)j `. ) 48ei8H ʽ.ʊ0: H,8h0ݰhii *Lש  ֩0`ȱȱ0fȱ)+C-  i 0ƚ. )8eL֤ƚ ɍ LԬ 8`iO` H _hjnjn ,0 Jݐ 8OJ O#ɂɠ,P-  ,08 ` ׭ `LL g Щ M ݰL׭ ֠ȱ.E˙ ^0:V Le) KC=?#; /)*%))_'P! T0EB0`8`` N+, + ,2` _ ԩ Jݐi ԥ  L խO8 $ J `8`,O,+ L D"@&ɂȩɠȤL $ې ))  j `$pLѥI LХ  A8`H zh Q ( 8n8` L  JӐLLLLLLL`).-EL8` ӐLLLL]LLLӥ) a{kLeӥ) LФɍ) Ӑ!;0  0 @ L  ɍLLLѥ zj  = =WJFA e 7 L$E  0 -.ȱ,N0 LӰ ۩ `LY < ɢ$P ۰ ,nH z ( h  ݰQ0apb  YJ)?w,NH8LLLLLLIL<ӭh PӰL8L; e ~LЦ# 2ԐCLLW Ԑ8=.ɿ  0 Ӑ  Ӑ 7/L3L'LLyL8LLLLL@LL.L sLz  ׭NNnN ׭ " ɀ Ɂ KK` ` gשK Х LӰ Lۤ LТ jL ~ L~ש,0 Q Р,N $ӥYɑɍ               Li $><= 8```"$ <= >/ ==8<> ȱ)Ʌ ?-(0ݪ/(. )=#<`=?<<>(`(``ř'#>/*/= /`=8` ^ 9$phH$ p ((hL1h%H($0 H(`8`н ɀ 2jȄҩ=զҊeӨ  =Mɥ 00 I*(* ɤ >=<(>L" b= />$ *: /5 , L 2 eҨ ҥ֐,ڽ: 8; jjj~ `ӆɩʦ A)Ҡӽ )֐ = 8֐Ơ̫`m2m3 ʠ ĝ&8  @`8f,[0 L`2L Ъ ` Ъʎ` L*8`i n `hhȘLn 0Ʌ-` cȩ:HH hhLi Т `ҥ = < eӪ 5),~  )  L, L)   ȱɅ`8`Ӽ  Ȑřհ +ƙ Lf` =` 3L V  (  <)Q 0  L L Ъ4ɀ/ɋ ɂ)Ƀ3Ʌ9Ɂ)  L     0ȑL) 8`N `э ) L@ VL 3'  & L L驠 L驀 LQ쩠 L   멅 8 e` 񰺥JɅ$ 0J Ʌʅ  LҘ080,~ 0& Т LM ݩ (`7LL 8L ;L &)̩ XL 3鰿    ,  !R  u - 8!$u - ``8f`  % БɀyE <Ʌ  Б٢ Б  $ 0@Ю`Ҙ1 БɄL0 ɀ `L4L  %$0ȱR Iɀ0,  ɍ00 *&,ɑк A `H h` &   ɍɑL  Lwjjjj 0HH h @ h 8L  L ɠ `莪`ANDOR<>/=#^L`  P  PGM1+132 LLLLLyL0L3LLLLLLLLLLLL넙   8n=An/*&   n    ׎ ĝ 8 嬪 Ș b`L h`  (` P    ĝ   b`,  ` ( 0`?`,0Lߢ `э,%N LN n  8n`"L8: 8 ); 9 *` `8` ,00 8``8))* *` P    H 7h0+?      , c` "#l8 lhjj lȭh `, c  㰒?  L@Ѧ   8`ȩ:ɩ 0   L   ፪,01  )   0 ~ !Ω(H)hȩ(ȑȢ L)ȑȩ:Ω )  `N/8n8nѦ , c,  H8ȹ]` HHhѪʊ = H8`  h  LH+-*/^>=<(()) ΩϠ(ȑȑȄ 8nN   h  #^8nɩʠ( * 1/ 09 N )8n!`:  $  !`  ʅ`ɍ `8 ` 8` ). )Ʌ  NZؠ,Z0 0 `  ` ߑ `ȱ)= ) ⥙ ` 8`] y! H hY b" y8`  ` L0` y=ei y,`, y Gɍ)` b U" U"`2 U Ȣ 8`` 6LJ  6,  Gɍɬ̌ ,(` `ȱί ɂڅ ɍɯ``̢ܦ` 6 J G jn G͐,0 I 詠 ɡ - - `  U(K, -) -. ) - -) -) 8` G ɠ)?`hh`LPk>9 󹙠ʊљ em:ȱm;ȱL H hh  : G . G`0  LLLɠ} G,  8rr  r,m,0h   @8n L^  LpPL Q G IRQ(謶L(L i Ȱ ΠL -ˌ   ̍ N`̭LuLN J,0% G!ɠɍei  Gdj jjj #  G! , COPSCLFINDЁЄRECUЄRECOЄRECI STRTPRTFLDЃSYSЄINITЃCHKQCALCNQUERYTYSTCRNFLDPRTUPDPPRTN OUTkPRTHPRTLPRTЃSEQzSELMSGVER DIR# ЅWRITE22C;~,0Dʠ8)-ȩHtHHHLL` =д :,` D`-D> `CURS2;SETRτREQ ЄOPEN#SETCЂCL&ЄINFO)NULLW0dCPYQZCPYD]FIXIDUMPSCRKBDIN2KBDIN 8nL# 0 # 2 iLF ( P ` 6 Цʊ `)L{ӽ )8֐(`(`ʽ[ JJJJڰ8,~ 0eӅi`z e`KL{( 6 ɍ  ``h6       iLl: ; 80 b` L D01` D23`1H0}8 h}9 `3H2Lei୪i` v/ ĝei8`ʥĝ0`0 0* z ``` ',H)ƙ E )h h`0:`8`L,p0z 7H h }8 9 i(iH; : m0hHm1 h`XvSq8RijQai\6HH) 98X67!H! h!h)?JJJJ%H   Q h#ɍɑɑɍ`HeɅh`hߚH`  ɭɱL 6H  !)PJJ he ! L 8 !` DɄ D U ^ ` x`  ` 6 e  =l,`ѮL ` `L!( =`  lnȪ` ,!`,JP 6Å7  `𚪩L '  Z 0)opo `#%LLLLvL(LTL^LvLLLLLLLbLLLJLELLLLLVLLLLLeɡLbɁ`ee``ɵ8`u`ɵ`) 8` ee`  / L 0 Ԡҍ٠ϠԠӠ̠)ԠŠ8`̠ƩϠԬξϠŇ̠ѾϠԬL`L0L=LULLLLbLLLLLLL6LBLJLLLWLLILLmL TO QUIT":MSG,M1$:C$"Q":SETC,C$:W$"VOLUME":(EN31)2W$"DRIVE"""ENTER NEW "W$" NUMBER":A$((176)):2,A$,4::(6)1454515:(A$)1(A$)25045001#:"NEW "W$" IS:";A$:"IS THIS OK?";:M1$" "::SEL,0,P$(7)::!"PRINT RECORD COUNTS?":SEL,0,P$(6):@!&k!0NF0:I1(TF$):(TF$,I,1)","ĂI:!5NF1:I(TF$):I:!bPS$(S)"":IL(S1)1L(S)1:(Q$(I))PS$(S)"P":IL(S)1!gI:!lNF0:W$"P"DS1:!qW$"D"DS2:"vW$"T)(P$(10)):W0W(P$(4))` W$(W):2,W$,4:::W$""4340:W2(W$):W21W2(P$(4))4340z P$(10)((P$(4))W2) "ENTER LEFT MARGIN":W$P$(5):2,W$,4:::W$""4360:W2(W$):W21W2(P$(3))4360 P$(5)(W2)!DS3ĺ"SUMMARY ONLY?"((P$(2)))b"ENTER PAGE WIDTH":W$P$(3):2,W$,4:::W$""4320:W2(W$):W210W22554320rP$(3)(W2)"ENTER LINES PER PAGE":W$P$(4):2,W$,4:::W$""4330:W2(W$):W24W22554330P$(4)(W2) "ENTER BOTTOM MARGIN":W(P$(4)(1)::P$(1)"Y"P$(9)"Y":4309S"PRINT TRAILING SPACES?":SEL,0,P$(9)::4320"ENTER REPORT TITLE:":2,P$(0),79::"ENTER STARTING PAGE NUMBER":"TO SUPPRESS ENTER 0":2,P$(2),4:::P$(2)""4310:(P$(2))0(P$(2))10004310 P$(2):P$(I):I:2653S1SC:4450:S:W$P$(8):44609::10:"OUTPUT TO:"::" PRINTER":" DISPLAY":" TEXT FILE":SEL,11,1,2:DS(0)1:DS1P$(8)"P"DS2P$(8)"D"DS3P$(8)"T"::DS14370 "PRINT HEADINGS?":SEL,0,P$I:265 'Dh3970:ES4235:TF$"SELECT."TF$:VER,1:(0)4235w261:260:264:W$:W$"/2"M1$TF$:M2$"MUST BE CONVERTED FOR VERSION 2":265:MSG,M1$,M2$:4200|565:S1SC:FL(S1)1L(S):W$:W$"/"FL(S)1:FQ$(F)W$:F:S:I010W1İ4100:4000%W2İ4200:4000IW3İ565:575:560:9600:40003970:ES4135:TF$"SELECT."TF$:VER,1:(0)4135:3405263:"/2":S1SC:FL(S1)1L(S)1:(34)Q$(F)(34):F:"/":(34)Q$(L(S))(34):SI010:(34)P$(I)(34):(6)1473982;W$""3984:TF$W$:4400:NFES0:vM1$"INVALID FILENAME":MSG,M1$,1:ES(0):ESTF$"":3984,12::"REPORT/QUERY REQUESTS"::" RETURN"::" SAVE"::" LOAD"::" CLEAR"SEL,2,2,3:W(0):W0ıP(S)0LV(S)0E$(S)"":RS$(S)"":38806E$(S)"E"?(S:[A$"REPORT REQUEST":W4pC$"SQ":SETC,C$DIR,W,W$:ES(0)0:W$""3990:ESı::10:"ENTER NAME OF "A$::M3$", TO SELECT"::W$"":2,W$,39ES(6)145:ESıS):L:SW:TNF1:HL0:T0:NT0:S1SC:PS$(S)""İ3750:LV(S)L:NF0:3650:3840ESNF:3700:SPNF:NFES:SPLV(S)0:38453750:LV(S)LLHLHLLS:MTT:NT(T0):T15MT15P0230,MT:I04:T0MT:T(T,I)0:T:I:( S1SC:153CT19SJ:36105*BDS3ıWDFL(S1)1L(S)1:(Q$(F),1)"T"TT1`LF:vtC%(0,S)0NF1:WS1SC:7600:FĂWS:NF1:PS$(WS)"P"NF0:WSSC:WS:WS:NF1:WS:L1SC:P(S)0SW:WL:LSC:L:LW: SP(WRI 6 6  6)0jѩLmSCREENCALCSYSTEM ɠ) @)يȾ0 H eh`H@h`CYMDXA9876543210,ͯįįͯͯͯ 9V L,BLPjBYT2SRT uREAD00 2:P$(9)"Y":P$(10)"6": R6": E Q$(L(SC)),C%(SC,SC),T(15,4):D$(0)" "a0#9600:4550:S1SC:I0:W1SC:P(W)SII1:C%(I,S)Ws0$:C%(0,S)I:0T$M3$" TO QUIT":75001%P$(0)N$(0):P$(1)"Y":P$(2)"1":P$(3)"80":P$(4)((EN27)):P$(5)"1":P$(6)"Y":P$(7)"N":P$(8)"D":DSLV(SC),E$(SC),P$(10),B$(3)/#SN$"":STRADD,SN$:W(26)(27)256:W,(235):W1,236:W2,8:N$(0)SN$:YST:SCL,"NAME",N$(0),/#S1SC:INFO,S,L(S),K(S),P(S):CRN,S:N$(S)"SCREEN "(S):SCL,"NAME",N$(S),:K(S)K(S)(K(S)0)L(S1):S%0#D$(L(SC)),.r8511:SPįFIX: .wCL:6. MSG,3:(0)7500<. N.?!M2$"1":8520Z.@!M2$"2"}.H!MSG,M1$,M2$:ES(0):SP1ES:.(#::EN2144:P02048:OPEN:RK$"":D$(4):(0)4500.2#SV(382)127/<#SC(378):L(SC),K(SC),P(SC),N$(SC),RS$(SC),PS$(SC),PG0:M2$"0":7700K-cER250M1$"FILE ACCESS ERROR-"((0)):8512:CL:-eW3(26):W338M1$"CALC-"((10))":"(ER):8050-fW331M1$"QUERY-"(ER):8050-hM1$"FATAL ERROR-"(ER)" AT LINE-"((218)(219)256):8511:SPįCL:.mCL:VER,0:(0)įCRN,0::(4)"BRUNCHAIN OBJ,A$9700":PG?,(4500Q,@(222)255Ħt,EER(222):ER0ER15İ8200:,J8000,TER253ER249įCL:,YER77ĺ"OUT OF MEMORY":-aER250(0)254M1$"BLANK FORMS DO NOT MATCH DATA BASE":MSG,M1$,0:W4PG1:M2$"1":7700,+W1İ3000:7500A+W2İ4000:7500V+W3İ4500:7500z+FWS11:P(F)SFP(F)1:F+F0FFF:F1:F:FFF++PG$"MASTER MENU":PGPG$"DATA BASE ACCESS"5,M1$"GOING TO "PG$:MSG,M1$,M2$:(0)7500:CL:*T,12::"REPORTING MENU":*V:" RETURN TO MASTER MENU":::" DEFINE REPORT":::" SAVE/LOAD/CLEAR":" REPORT REQUESTS"*g:" ACCESS ALTERNATE":" STARTING "W$::" DATA BASE ACCESS"*tSEL,2,3,4:W(0):W0M2$"1":PG0:7700+yCT5D$(L(S))""+)XCT12D$(L(S))"AND"D)]CT13D$(L(S))"OR"l)bCPYD2Q,S,Q,D$(1),Q$(1):CT0CT15|)gCT145700)lCT12CT13QQ1:Q$(0)""5710)nCT12CT135705)qCT55705)v)LEN,(69):W$"VOLUME":(EN31)2W$"DRIVE"25:L;:30:C;:35:W1;:39:((240)):A(\DS3ĹP0231,128:q(^P0231,0:I1256:PRT,Q$(1),I:(232)ĂI(a(231)ĹP0231,128(fI256:I:(DQ3(ICPYQ2D,S,Q,D$(1),Q$(1)(NNP1:300:F1:Q$(0)D$(L(S)):HS1:A8:402:D$(L(S))Q$(0))STC,C$:TF$"":2,TF$,21::(6)130TF$(160)['UPDP,Q$(1),(A$),(W$),(W1$),TF$:4600|'HW1W:OF0:W17:W117WW1:'JW1W117:W117OFOFW1:'LOFOF17:4682'RL(239):C(235):W1(44):S(232):F(233))(W" ";:PRTN,3,Q$(L(S1)F)::2,A$,4::(A$)1(A$)994622c&"ENTER POSITION:":W$(C):2,W$,4::(W$)1(W$)994624&"ENTER LEADING SPACES:":W1$(W1):2,W1$,4::(W1$)0(W1$)2554625.'"ENTER ALTERNATE COLUMN HEADING:":" FOR BLANK HEADING":C$"B":SEDING"11)"LINE POS LDSP TYP"::2::" RETURN":34,3Z%WW1:PRT,Q$(1),W:(232)4610d%WW1%4680:SEL,2,0,W:W((0)OF)((0)0):4615%4690::(0)4608:4605%W0ı% ::8:PRT,Q$(1),W:4690:"&"ENTER LINE NUMBER:":A$(L) H H'H H H H(X ` h x`x hir in h H H'H H H `} L  ( } IL~,JpÅ67`HHH6 7 hhh,JpK H 6 7h`ɀ z 3L d WL` { L L + * Q A n A x A C A I A F L A ` L6 8 A  Ln  A N A f x  h hi i h ,5:ST,0:(0)İ5000:2250! ` SN$""M1$"NO BLANK FORMS HAVE BEEN LOADED":MSG,M1$,0: (ST)128İ7100:M2$"1":8520:ESı 3210:ESı T 0,(58):1,(59):(ST)127W(ST):ST,141:,7:ST,W ^ ,0:L(29)256(28)ST81 c VER,TO ERASE CURRENT BLANK FORMS?":M2$"1":8520:ESıQ ::10:SN$"":3210:ESı\ 015100r :ST,141:P0186,0 v:,3:ST,0:(0)İ5000:2250  3210:A$"Y"ı ESı 40000 15100: 2010:ESı ST,0 :ST,141:,8:" 8000z :" CHANGE OLD BLANK FORMS"::" MAKE NEW BLANK FORMS"::" CHECK FOR ERRORS"::" SAVE BLANK FORMS" SEL,2,2,4:W(0):W0ĴW2225,1710,9000,2710:ES0:810 10000:810 :,2:,5:P031,141 J2 SN$""M1$"READY *EDIT SCREENS+:(4);"MAXFILES1"jPG0:P08256:M5$"' INVALID":M7$"ERROR=>'":D$(13)(4)P041,0:P0191,255bST(58)(59)256l,215000ENP0616 *,10::"BLANK FORMS EDIT MENU":::" RETURN TO MASTER MENU              h`` L ),`,8N8FILLF=<,078GH8HG8GL,<0  8n=`Kʩ  L  HL`8   (ɩL HA019901JS00.00Š; ʘ: UEl` JmtuiW;`PL  tu  vw  xy`90i`098`160 2 1`0 &1 &2L&  H0hhȑ`)* d `   `O `L,,sNsr =  3  LqqH ʊ =h l LK FШxy 8KKJ   P8K P  F 6 L,0,0 fmvgmw`viwi e r ,=0 ; < N<N;rorNn``8`q = q n  P qĢ LTp9r2p ~ `q qHr =h l n `` e` JUV L,a n ʊ =  -HIѠ & &GG K`,0,oN a8n ~  L8nn  Nn`,0,0, No6ooo` Ro    aʊr Rr ~ rorrLDʎr8nn,0  ,0 N7 ) 66 ` ./ З,60 `8`,9)N9    ) )` 8`z 2}: ɭ3}; ʩLpq:懲78s`z " /. 8.`.` %э 2 cVf~W`` 0 1 234 8n9 `30814 1 !   KL1  L3014բ ./56 :s PJ  >> KLQ )&5! ,np0F   F~   ` H,0  F  !,7,50<  8n78n8L,P  \Fʊ8nN8n+ еF%" `   ,7,50F8n7L8 \э)!0 JULLL,LLcLu  ,` n jn 5,7,5LpF,n0p L 8n78n8L,nP 0Tq  \,nP% L6,=) T ,nP.P(FN+  ɭF )L,n0 a(p      { N8nй` { NLݠʎ ޭK z 8(z 0 q ȦȄЩL` ӭ>? ީ- pݰ ` { NL Ӣ  xߥ?}` ލ뷢ݐ զ  L֩) 1֮L L i  M8 1(8( t8` HH hh )`h hh` {L`، ޭq}~췮i$ ʊ- pݰD1n,0)뷮Ͳ͞ i L u c  թ t 7 cLե 8ͫ`8` \ нP: 4 . Z ԦмP  ` MLL L ܩ`89Ʉ```РL`Ѿ G / G  a 4( ] Z 4 u c c吨 i d G  a ]孫  آ 4  Z Q  1ܐK ``L  զө   ՠ c ɢʅ>?<=<=0>=`? > H h> `  H` \ f ~ڰ `CL ڦ  F  K ` ڰӽ )  Lu ڰѼ  Lu 8` `  թ c L Z 1ܐ u`L`8`La A>ʎqCݭw@J#NsnrLr.sqtC ~ ҮA> >>ߝ%`Ct8qA7ts6988s遅sttLd s >0iɥiʐ` ٠ ʩL ٠ə ɤȢ jj8j N i i QѾ  нQ0 sخ  i(`  i-ߦЩQ  ɀH h0 kL) k L  i Q`  Ъ)*  Бȅׄ o  R  i i  *װ`  X8` ئаP f i`ЩP`  G ذ!ИRɁ i i iP` L i8` iR   (# حɑ T,P  ѩ` װ rL,08n n ֦мRL Ѝ)1 Н*Lթ(L) tР* tL i` `4e5e`8-*.+`jj` 3< 4 N*F C= M   ( i i iL \ڤѾ  ^L`  P  i L iL6Ц 7Ս.Ռ/թ*1թ2 +զЭ* + ,`*`  S(eTՐȦ`-{  0`  7Ս1Ռ2թ*.թ/L+ ` i` i` i` i`*u*+u+,Lՠ ɤ nՠ `ڽZ [ )`)*+,`мPLfj( M Ԣ= LML/8 ( i 6 TW& (= ԰ڽ[ ) ؐ( ӽ (L( i  1֠ɩʩ W孀ά ( L P   7 `Lԩ@23Lx `L ӝ  ڝ: ; ѝ ("ڝZ ~ FҥԐ [ ` # Lة  { ` ީ x)?  ө/ Ӣ/ ӭ LȽjȰ 8`{ L6 iL  آ= Yҩ>?} | f2,({ !| }  ݭ> ,~ 0 F(`C, 潄6}qem7~`ɩʩ  `LhLTLK  p٠L x z $(AM>! )AD AH 0 "hʊ p s}CALp \ک WҰ )> L),NLhӍBH WҰ B LPhLYҢ WҰQ Ly )> ނ,~ бLyѥ0 Yҩ`ˆ YҨ Э FL-L#LLtLLLL"LLGLLLALLJLLLؤ fЄ* oe}e~`qJj`8n8nD q"pee 1L 6Ю``H h` )? `C     9999::Z$:"FLD#";:10:"NAME";:24:"TYPE";:29:"REFR";:34:"LEN":SO2Ĺ34,(37)$FLD,S,1,1:(1)ĺM7$"NO FIELDS DEFINED'":9985%FLD,S,1:F1L(S)L(S1):SO3ĺ:F;:4:" ";:PRTN,2 %(3)0(3)(193)ĺ:M7$"FIELD MUST BE ON ONO MANY KEYS'":"UP TO 16 ALLOWED":9985|$TKTKK(K0):3)AV(S)" "N$(S)" RECORDS":P(S)ĺ5)"FOR EACH "N$(P(S))" RECORD"$3)L(S)L(S1)" SCREEN FIELDS"$IP$""ĺ:"INVALID PARAMETER:"::IP$:9985$SO39470 $SO2(37)15įMSG,1:(0)2:(K$,I3,1)"A"W0ĺ" (ASC)"@$(K$,I3,1)"D"ĺ" (DESC)"$A(13):A15A5ĺ"OUTPUT/EXPANSION FIELD CANNOT BE A KEY":9985$I:" COMBINED KEY LENGTH:"KL:KL100ĺM7$"KEY LENGTH TOO BIG '":"CANNOT EXCEED 100 BYTES":9985'$K16ĺM7$"TO,10,IP$ $P(S)ĺ3)"PARENT:";:$3(P(S)0))N$(P(S))`$I1K:W1:KW((K$,I32,2))$K(S)W:W0ĺ3)"SCREEN HAS NO KEY":9430$W0įFLD,S,W,8$W0įFLD,S,1,1:(1)9430$39(I1));:WI1ĺ"KEYS ARE:"; $KLKL(3):PRTN,0#L(S)L(S1)L;$W$"1">@$INIT,3,S,W$,(L(S)S)3,0,1EJ$SgT$DA$(100):N$(0)"ROOT SCREEN"r$:SC" SCREENS":L(SC)" FIELDS"|$S1SC:COP,DA$(1),DA$(100),DA$(1)$M1$"":M2$"1":8520:ES9999$::SO3į,0$10300:KL0$METER:"::W$:9985>#CRN,0:(0)0ĺM7$"/SCREEN"M5$:9985_#SC256(0):W106((74)0)#SCWĺ"TOO MANY SCREENS DEFINED":"MAXIMUM OF "W" ALLOWED":9985#P(SC),N$(SC),L(SC),K(SC),AV(SC),TL(SC)#S1SC#FLD,S,0:L256(1):L256L10200:W(W$):W1W250ĺM7$M3$M5$:99857#M3$"="W$\#W$"":SCL,"TEXT",W$:W$""9120#M3$"TEXTVOL":SCL,"TEXTD",M3$:M3$W$M3$"TEXTDRIVE"#10100:W(W$):W1W255ĺM7$M3$M5$:9985#M3$"="W$#(0)į,10,W$:W$""ĺ:"INVALID PARA$"001":SCL,"START",W$:P0176,(W$)cn#M3$"STARTVOL":SCL,"STARTD",M3$:M3$W$M3$"STARTDRIVE"s#10200:W(W$):W1W250ĺM7$M3$M5$:9985x#M3$"="W$:W(W$)#W$"":SCL,"END",W$:M3$"END"(M3$,6):W$""W$("00"((EN)W1),3):9099)#1ES: I! (#20000:SO0ĬF7#,0:S0:91631325650:W(0)|<#INIT,0:P028,0:P07,0:P010,255:CALC:NC(0)A#SO1į,6:(12)F#"SYSTEM PARAMETERS";:YST:(0)ĺ" DEFAULTED TO";I#":"::W$SN$:SCL:"NAME":W$Z#"NAME="W$%d#WK":@(222)255Ħ:JER(222):ER1ER15İ8200:EK8000ZLER253ER249ĬTM1$"FATAL ERROR-"(ER)" AT LINE-"((218)(219)256):M2$"1":8520:SPĬY M2$"3":8520 ESĬ 1::H!SO0SO2įMSG,M1$,M2$:ES(0):SPLP TEXT":MSG,M1$,0:FIX::D$"CLOSE":5016XW$"001":YST:SCL,"START",W$:P0176,(W$):W$((EN)(176)1):SCL,"END",W$:P0178,(W$)]W$((EN29)):SCL,"TEXT",W$:P0184,(W$)bP069,(EN):M1$"BLANK FORMS HAVE NOT PASSED ERROR CHEC,0::TF$"HELP TEXT":VER,1:(0)0ı45020V:D$"VERIFY"TF$:D$"READ"TF$xW$:(W$,3)"/99"5012:5008W$:(W$,1)"/"ĺW$::(0)5015:5012D$"CLOSE"TF$:MSG,08000+ER(222):ER158000:M1$"ERROR READING HEEL,0,Y:(0)NM$SN$:A$"Y":C DIR,1,NM$:ES(0)0:ESNM$""ı ::10:"ENTER NAME OF BLANK FORMS"::" TO QUIT, TO SELECT":R NM$"":C$"SQ":SETCMD,C$:KBDIN,NM$,41:ES(6)145:ESız (6)1473250 NM$""3310:)" REORGANIZE DATA BASE"6 SEL,2,3,3:W(0):W0ıP W1W2İ30000:3020 M1$"GOING TO REORGANIZE":MSG,M1$,1:(0)3020 7000:P028,0:P010,255:CALC:P0192,0 PG4:10005:3020 ES0:A$"":::10:SN$""ĺ"USE '"SN$"'(Y/N)?";:S1:(0)ı0 h ST,131((ST)127)1((ST)128)Z D$"BSAVEBLANK-FORMS."NM$",A"ST",L"L"s 15100:(ST)131ı ,10::"FORMAT/UPDATE DATA DISK": :" RETURN TO EDIT MENU":::" FORMAT NEW DATA DISK":::" UPDATE OLD DATA DISK" ::`*% 8(j%ۅLީ?Ijj%뷝ߊ a 鷽b뷍균 xߥ췩qeM`8pqypyq` e `0RINTER SETUP Ch`H@h`CYMDXA9876543210,ͯįįͯͯͯ 9V L,LLLLLL&La LL%LLL#L!L("  L  NNnN  " ɀ Ɂ ͨ&&` ` &   # ɍ)` " . "` yȢ  8`` L      )jѩLSCREENCALCSYSTEM ɠ) @), Ⱦ 0 H eܦ`    Vjn c ͐,0  詠 cɡ - `  y (K, ! H [ hY " 8`  K ` L` =ei ,`,  m:ȱm;ȱLH mhh  :  . `0  . ɍɬ̌ (`  `ȱί ɂڅ ɍɯ``̢ L^  LPL Q  RQ(謶L(Lq Li. Ȱ .PL!  ) . ) N  ) ) N 8`  ɠ)?`hh`LTPk>9 ʊљ e !ɠɍei   dj jjj #  !   yLLqLGɠ} ,  8rr  r,m,0h q   @8nUPDPKPRTNpOUT&PRTHKPRTLKPRTmSEQ&SELv\ MSGVERDIRm 2WRITE22dg2jmC ,0Dˌ   ̍ N`̭LLqN ,0%> 2`CURS2SETR2REQ3OPEN3SETCsCL 3INFO 3NULLB0 JCPYQBCPYDBFIX DUMPySCR KBDIN2gKBDINdCOP7 SCLgFIND22RECU3RECO2RECI2STR PRTFLDjSYS2INIT2CHK2BCALCBQUERYBYSTlCRNUFLDPRTK8֐(`(`ʽ[ JJJJڰ8,~ 0eӅi`z e`KL ( 2 6 ^ɍ ^`` ɩʠ')ȩHHHHL` Ť :,`  D`-D8 h}9 `3H2Li୪i` u / _ĝe i 8`ʥĝ0`0  8nL" # ᥠiL(Å6 { 륡`  5Цʊ `)L ӽ )H V h }8 9 i(iH; : m0hHm1 h`XvSq8RijQai\6HH) 98X67!H! gh!h)?JJJJh6       iL" l: ; 80 ` L 01` 23`1H0} 2 ɭ­ɱлL H 9 X!)PJJ he ! 2 LX8 !` Ʉ    ` `  e l,`Ѯ  z ` `` H)ƙ )h N h`0:`8`LI,p0z 7, ` 𚪩Le R R  R䨈0)opo : R `#%%H  X & h#ɍɑɑɍ`HeɅh`hߚH`L     I `ɵ8`u`ɵ`) 8` ee` . / L L ` m m`L ( ` ߅ Ȫ` ?L L L L LM L: L( L L. LN L L L L, LLLL L L L LL|LLL L LLL_ L L L L5L L L L L LK L LmLu L L[ L LLLL L#LL_LfL LLL Lc LLLKL8LTL] LLLL L L ɡL Ɂ`ee`                    V0W0jjjj 2X0Hd0HY0 =(b2 D(h =(2 D(h =(2LD( L4텝ɠ ` u 8!$u ``8f` ( ( 2ɀyE <Ʌ  2٢ 2    $ $ 0@Ю`Ҙ ' Q 8n=An/*&   n  j0 j0 0, j0 g0ɍ00 *&,ɑк Q A `H Q h` j0b22 j0 j0 g0ɍɑLR'b0V0  Q V0 & Q L' W (`j  T `& )& ) G&y&8~y&`ɠ#&x&y& F&$`8,N0` `@CFILOR  L&Lj0L+L*L(L(L7)L:)LX.LU.L)L1,L#-L7)LA-LMLa(L,  ,F% ! `Ȅ T  8``Ȅ`G%Ȅ`8`CYMD 晥D (()$%,JPU ɠ @PT (PP( LS%L ,, &OOH &hi,N-m,mLKmIHH I W hL,  L#,F% ! `,F%0`L$JnF% ,%     4%Π %,F%}?y T RHRhD;Mм ?Hȱ?)h)   $,F% ! 8`LS$?3ȩCж L$ ,%L^$ %" X9'  0  6 h L# H h200*13H &n# ō1H &hH2 & | h12H X LQ JnF% $    - 4%( %0 $L# $詷 詷 &`(L" *  e  ! " & &N%" !( ZƴP0 " L" 0Ӭɴ"-y"ɴɮ " ɴ  `%8  m!e(e)  L $N Q X Q &N  U!  , ɍ)f L !L ֦ʊL!ǰ m!  m! !` 0ee%$L"= >L *  `|x뷍I aj 鷍b 뷍귍hNv% Mj9  ѩj,)j ` 6  *  * * } ɍɑȌ`$ Ȅ  H h )ɍ `L ɕɈI  $) L ٍ`ȱ0fȱ)+C-  i 0ƚ. )8eL~ƚ.Ll  #   f`M f`H8eii:0ʽ.- 0i1h`$%`$% "`NN.M * ,08 W `  `LsL   M &Lk ȱ.E˙. ) 8ei8H ʽ.ʊ0: H,8h0ݰhii *Ls  0`ȱ   W L *O8 $ J W `8`,O,+ KLK D"@&ɂȩɠ ɍ L`  8`iO` * H hjnjn -,0 % W 8OJ W O#ɂɠ,P- L LEL L\`).-EL\8` T /L\L\L\LLEL\L\) a{kL) ^0:V L) KC=?#; /)*%))_'P! T0EB0`8`` 6 N+, + 2`  -  %iA  L?$E  0 -.ȱ,N0   )$  `LLZ $ې )) j T `$pL_I LT  T A8`H h & Q 8n8` Q L  T JL\L\L\L L   L% LT# CL_L q8=.ɿ  0    LTɍ) f!;0 0 @ T LT  ɍLfL  zj  = =WJFL ' jL  sL,0 Q ,N Yɑɍ ɢ$P ۰ ,nH  Q h  G&Q0apb  YJ)?,NH8LLLLXLaLLh 8 8Э* + ,`*` {  78(e88Ȧ`-{  IIIJ.JLJjJ 888*88L8 7` 7 M8` 7 M8` 7 M8` 7 M8`*u*+u+,L8  ɤ R8  `ڽZ [ )`)*+,`мJL8мJL8 8 3) - 0 9( 8 M8 6 6 TW& (= 7ڽ[ ) :( ӽ (L:( 6 7 M8 7 9ɩʩ &ά B j8( =L: 7J 8 7 7 9 B`LZ ԩ@23L& 7 9 :`Ll 7L8 M8L3 888*8* ѝ * ("ڝZ ~ FҥԐ [ ` A 7Ld;  { ` fA x)?  6/ 6/ 6 LAȽjȰ 8`{ L3 M8L= 7 7 ;= 7 &j( 1? 6= 7L1:L7/82,({ !| }  d@> ,~ 0 *4(J`C, J潪J6}qem7~JJ`ɩIʩ o  ! `LL6L86L/6 6  T<LfA * x * z ? $(AM>! AD Ȧӝ  * ڝ: ; CALT< @= ;5 )> 3L 4,JNJLL6BH ;5 AB 3L44hL=5 ;5Q L]4 )> ިJ,~ JJбL]40 =5J`ˆ =5JJ 3 *4 =5J>?J} | J3L:L+?L6L;L%=L3L.=L6L7LBؤ J3* S4e}e~`qJj`8nJ8nDJ Jq"pee 1LZ 3``H u3h`J )?J d@`CAH = 4hʊ T5 s}ĠȠԠŠĠŠčŠҬԠ˭̠0 Ԡҍ٠ϠԠӠ̠)ԠŠ8`̠ƩϠԬξϠŇ̠ѾϠԬL=LAL3LX3L:L6L5L4     ԠԠŠˍ    ΍ҠŪ̠ѾϠԬξϠЯԠ͠ˍԠˠӠˍҠ·ĠƠŠӠҍŠξԠŠ#<`=?<<>(`(``ř'#>/*/= /`=8``88nʊ 00 0( 0H Xh`,,`  `02A2M2g21u22#22222111211b1311000 1     I*(* , x ɤ >=<(>L/ /= />$ /: g//5  L. (0$><= 8```"$ <= >/ ==8<> x ȱ)Ʌ ?-(0ݪ/(. )=Ơ̫`m2m3 ʠ ĝ&8  @`8f,[ A- . .$phH$ p ((hL.h%H($0 H(`8`н A-ɀ 2jȄҩ=զҊeӨ  +Mɥ ` 00 i H {hhL!멅 2 2`ҥ + , 9  eӪ 5),~  ) 9 , .Lz- ` 2 eҨ  u ҥ֐,ڽ: 8; .jjj~ `ӆɩʦ A)Ҡӽ )֐ +  8֐ 7, ,)Q 0   L+ 2LQ, 24ɀ/ɋ ɂ)Ƀ3Ʌ9Ɂ) 0 2LY,`2LZ 2 ? ` 2ʎ` 2L,8`i 4 N `hhȘL0Ʌ-` ,ȩ:H Z+L* +L* 2L* 2L- L2 2 p+ ,  8  e` `   p+ ,L-, LK )   2ȱɅ`8`Ӽ  Ȑřհ +ƙ  L+` +` *L) *  ( 0 6 * &)̩ *L* *    ,  B!R   L*    9  0ȑL*) H 8`N 9 `э ) E L* *L* *'  ` 1 2ɄLL0 ɀ  `L 4LZ ( ($0ȱR IɀJɅ$ $ 0J $ Ʌʅ 2   LQ)Ҙ080,~ 0& 2 ! L)  ݩ 2(`7LZ LL L* L* - 8` ,~I00 o 8``8))* *` H  H !I7h0 IIĝ 8 !II Ș < H`L/H - * 0 G` H   (` H ĝ ɑ  `,~I G G?  xGLFѦ 9 `   eG   8``?`,~I0LTD f f `э,I%NI E LG H n  K 8n~I`"Lo 8: 8 ); 9 *`݃I I`)ȑȩ:Ω { 4)  `NI/8nI8n~IѦ 9 ` ,~I G,I  GH+?  xG   xG  ,~I G` IIF8 DDDD DȭD  8nINI G H G^8nIɩʠ( * 8G 1/ &F09 F G)ȩ:ɩ { 40 G H LE G H ፪,I01 G ! ) 0 G IΩ(H)hȩ(ȑȢ  LE  `  D` TD  `ȱ)= K )  ⥙  ` 8`D 8ȹD` - 0 HHhѪʊ D 3 H8` G H H  LD+-*/^>=<(()) - 0 ΩϠ(ȑȑ Cb "D] ɍW`S)" HDIDh)S C,D,S K . TD ,D0 f x ކ8n!`:  { $  4 N !` B  ' ʅ`ɍ  `8 ` 8` . Ʌ   9 NDؠ,D0 0(j%ۅLA?Ijj%뷝B a 鷽b뷍균 \B췩qeM`8pqypyq` e `0RINTER SETUP CLBL\CLDLxDLHL"HL~DL/HLD,0 CɍDʍD`DɭD` _@ &L@ʎ fAK z 8(z 0 ? q ȦȄЩLZ ` 6>? A A- T@ ` _@ &LA 6   \B?}` A뷢`*B% 8 9L? 09 M8  3 1@8 9(8( X38` c HH 7 hh )`h 7hh` _@L`، Aq}~췮i$ ʊ- T@D1n,0)뷮Ͳ͞ _@ &8nй7 X3 e8 9 8 6 &Lj8 8ͫ`8` @= - нJ: 74 7. 8 7 ? & ? 7мJ  7 7 & 1:LBL7 ? ?L  ? x?`89Ʉ```РIL `Ѿ 6 7 +9 @ j8 ? 7 7 09)4( & x? ? & 4 7 ? Y9 & ? 8 6 & ? e8 M8 j8 7d +9 7 7 ? ? E9 & x? 7 8 ;  ~ 4  7 8 & 7 59 7 7 ? ?K &`LZ u? 7 8ө  7 8 ? 8 6 & e8 M8 j8L? Y9 &  8 >=`? * > H  <` ; ,6` @= - J= b= u=`CLZ =   +` =ӽ ) LY= =Ѽ LY= 6 8` ` 7 6 r8 u? ? 8 ? & j8L? u? ? 7 & ? 7 7 ? &`LZ  7 ? +9 7 7 E9 l ~ ʎqCݭw@J#NsnrLZ r.sqtC b< q5A> <>>B%`Ct8qA7ts6M9'88ssttLs ' >0iɥiʐ` < ʩIL< <ə ɤȢɢIʅ>?<=<=0M8 JѾ  ? нJ0 ; W; ? 9 8 M8(` 8 3 c I.JixߦЩJ 7 7 3ɀH 9h0 c O8Lg;) c O8 Lg; 7 7 8 M8 J`  3)*  3ȅׄ &  9`8`LE= * A> 7 <:8` 8 7 z8 ;аJ & M8`ЩJ` 8 7 7 +9 8 ;!ИJɁ & M8 M8J` 09 M88` M8J : B ? (# ;ɑ &,P  B ѩ` : &L:,08n n e9 6 * jj8j 2; M8 1 3*L8(LZ ) X3* X3L8 M8` 7`4e5e`8-*.+`jj` - 0 6 3< 6 4 N*F C= 1: 7  8( M8 M8 M8L9 @=Ѿ  c 7^LZ ` 7 J 7 M8 7J 7 M8 M8 7 :`S)W$:":"N$(S);X)A(::LL(S)L(S1):L99ĺM7$"MAXIMUM OF 99 FIELDS EXCEEDED'":10399)F(W$"FIRST":SCL,"DUP",W$:W$"FIRST"W$"LAST"ĺ:M7$"DUPLICATE' OPTION IS INVALID:":W$:9985)K(3)"DUPLICATES ARE "W$*Z(W$"0":SCL,"PARENT",W$:(W$)S0"(W$)1W$(W$,2):10100/(y'((W$))W$ıD('M7$M3$M5$:9985X('(W$)310210('I13:(W$,I,1)"0"(W$,I,1)"9"ĂI:('M7$M3$"' MUST BE 3 DIGITS":9985(<(CRN,S:N$(S)"SCREEN "(S):W$"":SCL,"NAME",W$,)>("SCREEN "S;:W$""N$(GOING TO MASTER MENU":MSG,M1$,1:(0)ı''((ST)128(ST)0)SN$""M1$"BLANK FORMS HAVE NOT BEEN SAVED":MSG,M1$,1:(0)ı''PG0:(ST)128ĹST,141:,7:ST,130''VER,0:(0)ĹP0191,0:CRN,0:D$"BRUNCHAIN OBJ,A$9700":PG''(t'(W$,1)"ST,128_&&,0:L(28)(29)256ST:"FREE SPACE:"::" BLANK FORMS:";:L(60)(61)256L:L&&:" VARIABLES :";:LTL6L(SC)&'M1$"NO ERRORS FOUND":M2$"0"::::SOSO(SO3):8520:9999&'SO0:M1$"":M2$"0"::::8520&'0:(''M1$"(S)TL:S:"COMBINED RECORD LENGTH IS:":TL" CHARACTERS"n%&TB0:S1SC:ISSC:P(I)SAV(I)AV(I)AV(P(I))%&I:TBTBAV(S)TL(S):S:TB(TB)%&:"BASED ON FREQUENCIES PROVIDED":"THE ESTIMATED FILE SIZE IS:"::TB" CHARACTERS":&&(ST)131ĹS"CS"."CF;$&9$&:"INVALID SCREEN FIELD REFERENCE:"Z$&"FIELD:"F"-";:PRTN,3:9985s$&M1$"":M2$"1":8520$&SO3į,0:9:$&L(SC)" FIELDS"::TK" KEY FIELDS"::TK31ĺ:M7$"TOO MANY KEYS'":"CANNOT EXCEED 31":99858%&TL0:S1SC:TLTL&W191M1$"FORMULA TOO COMPLEX"T#R&W12M1$"INVALID CALC NUMBER FOUND IN /CALC"u#\&W53M1$"ILLEGAL QUANTITY"#f&:M1$:9985#p&CS(10):CF(11)#u&((13)15(13)7)CSS9890#z&CS0CSSCF09890:CFL(CS)L(CS1)9890 $&SO3Ė29:"W16M1$"SYNTAX ERROR"N"&W9M1$"RESULT OF CALCULATION IS A STRING VALUE"t" &W10M1$"CALCULATION NOT FOUND""*&W11M1$"INVALID SCREEN FIELD (S?.?) REFERENCE""4&W163M1$"TYPE MISMATCH"">&W69W133M1$"OVERFLOW OR DIVISION BY ZERO"!#HADD:DA$(1):P0316,(26):P03161,(27)Q!%NCĺ:M7$"/CALC' NOT FOUND":9985q!%CALC:SO3Ė29:"C"(10);!%(33)0ı!%9720!%8000!%FLD,S,F,0!&:"ERROR:"(222)" IN CALCULATION:"(10):"FIELD:"F"-";:PRTN,3:M2$"2"" &W(222):%(C4(10)3)(C20(10))ĺ:M7$"INVALID DATE/TIME FORMAT'":9985 %(C4(((10)2(3)8)((10)1(3)5)))(C20(3)8)ĺ:M7$"NO ROOM FOR DATE/TIME'":9985 %A2(12):(C4(A24A213A225))(C20A257)9659:9550 % %9710*!%STR2$"1":8520:ESī99993%::SCR,S:LL(S)L(S1)V%OUTFLD,S,DA$(1),0:FLD,S,1,8%S$(S):I1L:DA$(I)""W$S$(I):2,W$,0:C:I:9640%2,DA$(I),0:C:I%8000%SO1ĺ(12)%S::9950%SO3Ė29:(64C);:C4ĺ(10);E (3):(8)128FL(81)+X%SO3Ė35:FL;G]%A$"O"TL(S)TL(S)FLr_%(4)209572:CURS2:F:(4)239573d%:M7$"TOO MANY LINES FOUND'":"ONLY 21 ALLOWED":9985e%::"APPROXIMATE RECORD LENGTH IS "TL(S)::g%SO29645l%9710v%ML PLACES > FIELD LENGTH FOR:";:PRTN,3:9985zG%(3)14ĺ:"NUMERIC FIELD LENGTH TOO LONG":"MUST BE LESS THAN 15":9985I%(8)128(A23A24A213A225A257A21A224)A264N%A264ĺ:M7$"INVALID ENDING ATTRIBUTE' FOR:":PRTN,3:9985S%FLа9840:9540 :%C3İ9660:9540:=%C4C20İ9651:9540?%(C0C32)(80)ĺ:"INVALID ATTRIBUTE DATA FOR:":PRTN,3:9985D%A2(12):(8)128((A21A224A232)(A247A258))A264,F%(8)128(12)48(12)579545:(12)47(3)ĺ:"DECIMAE LINE'":9985/%A(13):A$"":A27A$A$(A)h%A$""ĺ:"INVALID ATTRIBUTE FOR:";:PRTNAME,3:9985|%SO3Ė25:A$;%(80)9535 %((83)2(84)3)A6C1:9535!%(82)(83)(84)(88)(85)(86)(87)A6C1:9535 0%C(9):C19   H`,I I ` ` ( ΂I0莪`ANDOR<>/=#^LZ ` 7 J 7PUT IN FAC ) .MNW2į*.RNSO3(W3)2(W1)(W2)s.\NA$(26):A$(4)"D":A$(5)"E":A$(6)"F":A$(7)"G":A$(9)"I":A$(22)"V".aNA$(15)"O".N:.0uNFW2.DuM2$"FORMATING AS:":NFM2$"UPDATING".IuW1$" VOLUME ":(EN31)2W1$" DRIVE#"/NuW$((176)):36:W2,8:SN$""ĹST1,96:ST,0&-:>-:P0141611,(NM$)u-;I1(NM$):P0141611I,((NM$,I,1)):I:15000- NSN$""İ2010:ESı-!N,12::"ERROR CHECK":-%N::" RETURN"::" DISPLAY"::" PRINTER"::" SUMMARY".HNSEL,3,2,3:W(0^,(C$"":I1(K$)3:W((K$,I,2)):J1(K$)3:IJW((K$,J,2))I99:J99:J:I:10390j,(J:I:,(M7$"KEY"M5$:C$:W0$:10399,(M7$"KEY' SPECIFIED IS NOT ON SCREEN":W2$:W0$,(9985 -:SN$"":STR,SN$:W(26)(27)256:W,(235):W1,2+(KK1:I1(W$)9+(C$(W$,I,1):C$"0"C$"9"ĂIw+(I110390:W2$(W$,I1):(W2$)L10395:W2$("0"W2$,2)+(C$"A"C$"D"II1:K$K$W2$C$:C$(W$,I,1):10380+(C$"+"K$K$W2$"A"+(C$"+"10390+(I(W$)W$(W$,I1):10368M7$"PARENT"M5$:9985n*n(M3$"PARENT":10100:P(S)(W$):K(P(S))0P(S)ĺM7$"PARENT' CANNOT BE UNKEYED":9985*s(W$((P(S)0)100(P(S)0)):SCL,"FREQ",W$:M3$"FREQ":10100:AV(S)(W$)*x(W$"":SCL,"KEY",W$:K$"":W0$W$:K0*}(W$""ı*~(W$W$"+"h`` L]  ,`,^TN^TFILLW FcT<,078GH8HG8GLT,bT0 (T L8ncT`Kʩ L(T HL`8  (ɩLHgT019901pTS00.00Š; ʘ: UE"T` pQmTTi}TaT`PL$ ߍTT ߍTT ߍTT`90i`098`WT\TVT ENXT 4SWT`VT LSWT LSXTLLS  4H0hhȑ`)* B ~ `  `O Q`L(T,,TNTT cR R YQ 9TL-TTTH &ʊ cRh R L+FШTT ` 8KKJ W 9T -T P8K W vT 6T \Q 9TL-T,0,0 TmTTmT`TiTi e  (TT P,cT0 aT bT SNbTNaTT͕TΘTNT``8`T cR RT R QP  ΗTĢ  LPTT9͘T2T R ` `T THT cRh R 4 N `` e` pQ{T|T 9 L` ,T ʊ cR R S-nToTѠ LS LSmTmT qS`,0,TN P8n R   LO8nT (T KNT`,0,0, NT6TTT` xQﭕT R  P PʊT xQT R  T͕TΘTTLjPʎT8nT,0 (T K,0 N]T \T\T S` ~ TTUT SЗ,\T0 S`8`,_T)N_T ?   ` S8`z ? 2}: ɭ3}; ʩLTT`T懲]T^TT`z " ? UTTT 8TT`TT` KOэ E 2 T|Tf~}T`` * VT * WT * XTYTZT O8n_T N`YTVT81ZT WT ! 4S  qSL"NWT S RLMYTVTWTZTբ ? TTUT[T\T `Ts PJ dTdT qSLwN &[T! T,Tp0F  (T SF~ ` RH,0 Q OF (T EN!,]T,[T0< (T T8n]T8n^TLL,P S OFʊ8nN8n+ еF%" (T` *  O EN,]T,[T0F8n]TL^M Oэ)!0 pQ{LKLLLRMLMLSLS 0 R P,` OT jT EN5,]T,[TLLF,T0p (TLL Q8n]T8n^TLK,TP 0Tq S O,TP% %QL\L,cT) 9 ` T Q,TP.P(FN+ ~ } ɭF OTLK,T0 Q(p     "START",W$:P0176,(W$):4500:CL:9000_$<#SC(378):L(SC),K(SC),P(SC),N$(SC),RS$(SC),P$(10)$#SN$"":STRADD,SN$:W(26)(27)256:W,(235):W1,236:W2,8:N$(0)SN$:YST:SCL,"NAME",N$(0),5%#S1SC:INFO,S,L(S),K(S),P(S):CRN,S:N$(S)"SCREEN "8520#@!M2$"2"4#H!MSG,M1$,M2$:ES(0):SP1ES:l#(#::EN2144:P02048:OPEN:RK$"":D$(4):(0)4500#-#M3$" TO QUIT":M4$" TO QUIT, TO CONTINUE"($2#(382)127M1$"SORT DISK NOT ALLOWED":MSG,M1$,2:W$"001":YST:SCL,:CL:?"eW3(26):W338M1$"CALC-"((10))":"(ER):8050c"fW331M1$"QUERY-"(ER):8050"hM1$"FATAL ERROR-"(ER)" AT LINE-"((218)(219)256):8511:SPįCL:"mCL:"r8511:SPįFIX:"wCL:" MSG,3:(0)7500:#?!M2$"1":(222)255Ħ/!EER(222):ER0ER15İ8200::!J8000S!TER253ER249įCL:q!YER77ĺ"OUT OF MEMORY":!aER250(0)254M1$"BLANK FORMS DO NOT MATCH DATA BASE":MSG,M1$,0:PG0:M2$"0":7700"cER250M1$"FILE ACCESS ERROR-"((0)):8512S,W$,L3,P,W2:;2@VER,1:D$"BLOADBLANK-FORMS."NM$",A"ST"2J((103)(104)2561)0M1$"DAMAGE!!!, SCREENS TO BIG":MSG,M1$:2O 0M1$:2O MIG":MSG,M1$:2O vW$"-1":SCL,"KEY",W$:W$W$""+1\vK(W$)P1avW1$"":SCL,"DUP",W1$:W1$W1$""e1fvK0W11:30350z1pvK0įFLD,S,K,01zvK0įFLD,S,1,1:K(7):W$(K)1vW1(3)1vW2(W13)W21:W21800W218001vW1$"LAST"W2W220482vW$W$":":INIT,3,0:NFĹP01216,0:SYSSEC:(0)ı00uNFįINITE0u30190:INIT,2:W0uFLD,0,0:L0g0vSC256(0)s0 vS1SC0vFLD,S,0:LL(7)10 vCRN:S:30260:S:04vW$"0":SCL,"PARENT",W$:P(W$)0HvW$(2(P0)100(P0)):SCL,"FREQ",W$:W2(W$)1R::10:M2$W1$W$-/uM2$"NEW":NFM2$"DATA"x/u"INSERT "M2$" DISK, SLOT ";(EN1);:DR(160):(EN31)2DR(EN2)/u" DRIVE "DR",V"(176)/uNF0ĺ"WARNING, THIS WILL ERASE DISK"/uM2$"1":8520:ESı!0u,14:10:::"PLEASE WAIT"::INIT,͍ŠԍέŬîԠǠӬîͮˬ ԠʬKԠֲ`ϲ`ӿHӿ hӿLD / X$ XŠȍ $ XӠҠΠՍ $ XӠfifQeRfjf;e]f\ee%eŠŬ΍ŠŬ΍Ǡˠčìͮ˱Ҡʱ ӠʱԠʱԠŠʬpÍ  ΠčŠĠ͍ˠ /dglh LblYp7`` `8967`(DFHhH#J hJ0 `,0,Jp`P6Í7L,Jɀ  ɠ 2l6geheeeefe\f~fhd b b` b"c,L d,p d:;k b뷍|(,JP ȌvP0 ?,JJ0 ,visH bhH) 98l6b788hiDhH8697 dhH gh)0JJJJ)l)m)n)oeZ Fd b[WSJ b b T;:X<=Lc,, b, b  Lc ,, b,`,, b,, b, s ;:~<R=Lcʊ dd ``ʊ dddd dd` d X ,JPi !8 ! bJ s` a ^a' ma a  ^aµegihe j@l```e`e` `𷢚  췽  `LQ`Vǩfl 鷍L " Ԡ`La귍JJJJэõaĵɵʵǵȵ˵̵ ŵ`JJJJ lɬ aa` c` ` {aL`` ` aµ)µL]aghL`ȱ Ȅ车 r  ES(6)145:ESı$(6)1473982MW$""3984:TF$W$:4400:NFES0:M1$"INVALID FILENAME":MSG,M1$,1:ES(0):ESTF$"":39844200:CT1ES:3000h3970:ES4235:TF$"SELECT."TF$:VER,1:(0)4235Iw261:260:264:W$:W$"SC(P(S)0E$(S)"":RS$(S)"":38806E$(S)"E"?(S:[B$"REPORT REQUEST":W4rC$"SQ":SETCMD,C$DIR,W,W$:ES(0)0:W$""3990:ESı::10:"ENTER NAME OF "B$::" TO QUIT, TO SELECT"::W$"":KBDIN,W$,39800:3850:P0163,128 10e SETREQ,0:CHKPT:SETREQ,1:CHKPT:DD$"FIRST":9112:SETR,1:INIT,2y 6500:CL:7800WS:W11SC:P(S)0SW:LW1:W1SC:W1:SP(S):W1:SW:HL0:S1SC3750:LV(S)LLHLHLLS: S1ENU"( :" RUN"::" LOAD CRITERIA" SEL,3,2,2:W(0):W3025,4000:M1$"GOING TO MASTER MENU":MSG,M1$,1:(0)03000:7700 2000:ES3000 :::"REORGANIZE/MERGE IN PROGRESS":: :34,(37):S1SC:(N$(S),20);:25:RC(S):S 3N> TO ACCEPT":KBDIN,W$,4:(6)1457700P W(W$):W1W2502700:W(176)ı ::"NEW "A$" NUMBER IS:";W$:"IS THIS OK?"; M1$" ":MSG,M1$:SEL,0,Y:(0)2700:P0176,(W$): ,10::::"MERGE/REORGANIZE MENU":::" RETURN TO MASTER M256t 111635256:REQ,15~ (74)193Ċ3::A 0:0:h A$"VOLUME":(EN31)2A$"DRIVE" ::10:M1$" TO QUIT":MSG,M1$:C$"Q":SETC,C$:W$((176))::"INPUT";::" STARTING "A$" NUMBER IS:";W$( "ENTER NEW NUMBER OR 0 AND <=";(EN26):50463W(W$):EN,W::"WRITE DATA TO D BE>=1":5016$EN2(I1)2,W2:bW22ĺ:"DRIVE NUMBER >2":"ASSUMING NON STANDARD DRIVE"I::5040:W2(EN26):5055:5095:34,(37):"DEFINE DATA ";:7600:EN31,W:EN62,W21:::W1W6(W4)18(W3):(DT$,W11,6);::" SYSTEM":1T# FOR DRIVE-";::I;::":";:W$(DV$,(4WI)21,1):KBDIN,W$,4:W2((W$))::W27W21ĺ"SLOT MUST BE >0 AND <=7":5014EN1(I1)2,W2 "ENTER DRIVE# FOR DRIVE-";::I;::":";:W$(DV$,(4WI)2,1):KBDIN,W$,4:W2((W$)):W21ĺ"DRIVE# MUSTR,0:(0)04850:HNF0::W5010,5040,5050,5090,5130,5160,5170,5180"ENTER NUMBER OF DRIVES:";:W$"2":KBDIN,W$,4:W$(((W$)))::(W$)1(W$)4(W$)1ĺ"NUMBER MUST BE >0 AND <=4":5010W(W$):EN26,W:EN,WI1W:{"ENTER SLO31)3)(EN20)9EN19,(V256):EN18,V256(V256)VSEL,2,2,8:W(0):W0ıf5000:4800:D$"BSAVE ENVIRONMENT V2.0,L64,A"EN:$::12:"SAVING ENVIRONMENT DATA ON PROGRAM DISK":"REMOVE WRITE PROTECT TAB"'MSG,1:(0)ı)VE)1:(EN1I2)"/D"(EN2I2)",V"(EN29):" PRINTER SETUP"::" SET DATE/TIME"::" SET KEYBOARD/DISPLAY OPTIONS"::" TEXT FILE RECORD DELIMITER IS:";((EN30))EN17,1:EN20,1(EN59):V((EN62)1)(EN20)22((EN31)0)3((ENN2I2);I:")":I3ĺ" NUMBER OF DATA DRIVES="(EN)",";:W(EN31):W3(W3)W(W4):(DT$,1W6,6);:W3ĺ(EN31);::" PROGRAM DISK IS ON: S";:I(EN24)1:(EN1I2)"/D"(EN2I2)+:" BLANK FORMS DISK IS ON: S";:I(EN25 HX$"0123456789ABCDEF":,0:DV$"52516261":W$"":SETC,W$j :"DEFINE ENVIRONMENT":::" RETURN": " NUMBER OF DRIVES="(EN26); I0(EN26)1:I0ĺ" (";:4813 I2ĺ")":22:"(";:4813 I1I3ĺ" "; "S"(EN1I2)"/D"(E1(SA)130M1$"BLANK FORMS HAVE NOT PASSED ERROR CHECK":MSG,M1$,0: 7000:L(43616)(43617)256:LSAL80:P0186,(L256):P0185,MO(L) STR,SN$:W(26)(27)256:W,(N$):P0141611,(N$) I1(N$):P0141611I,((N$,I,1)):I: TO QUIT, TO SELECT":DT$"FLOPPYCORVUSSANTA OTHER ":M3$"WARNING, THIS WILL ERASE DISK"+ STR,SN$:"" " " " " """""""""