' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` &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 ˆʎõĵ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              4įCHKPT:4500:75009 FWS11:P(F)SFP(F)1:FS F0FFF:F1:F:FFFY o 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 @(222)255Ħ!EER(2" 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:7500W3İ4000:7500 WCT55705vp550AuHS0:C$"QGC":SETCMD,C$:300:400UzCT15CT0ı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:" RETURN TO MASTER MENU":::(L(S)):HS1:A8:402:D$(L(S))Q$(0)<SCT5D$(L(S))"END"VXCT12D$(L(S))"AND"o]CT13D$(L(S))"OR"bCPYD2Q,S,Q,D$(1),Q$(1):CT0CT15gCT145700iCT11İ590:5700lCT12CT13QQ1:Q$(0)"END"5710nCT12CT135705 qSJ:5600CT11İ590:5600+CT6ınCT9İ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)#NNP1:300:F1:Q$(0)D$O 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,":5601NP1:HS0:C$"QG":SETCMD,C$:NC1:300:FL(S):A9:LCCT:402 CT19" MENU"::580-SEL,2,SP,SC:W(0):W0ıJSW:590:3100:DC0:UC0_5600:SC15000eyRS$(S)""5620C$"EQAOCG":SETCMD,C$:HS1:5700:RS$(S)"":CT6CT19CT165625UDİ6000:CT6CT145625?::10::"YOU ARE ABOUT T(A$)1(A$)2504500x:"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",12::"GLOBAL "F$10:P$(I):I:265C0NF0:I1(TF$):(TF$,I,1)","ĂI:Z5NF1: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:):I:265'Gh3970: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:I00ıW1İ4100:4000-W2İ4200:4000LW3İ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 I010:(34)P$(I)(345:ESı(6)1473982CW$""3984:TF$W$:4400:NFES0:~M1$"INVALID FILENAME":MSG,M1$,1:ES(0):ESTF$"":3984,12::"REPORT/QUERY REQUESTS"::" RETURN"::" SAVE"::" LOAD"::" CLEAR"SEL,2,2,3:W(0):WU$(FL(S1))""D$(F)U$(FL(S1))+ F:EM 260:265:275:260:aA$"REPORT REQUEST":W4xC$"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)141SCFSC9ĺ4H" ";N$(S):S:SP1:SC9SP2:JhNWSS: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"):" FL(S1)1L(S)1:$(L(S1)1):D$(L(S))"":7&NULL,S,D$(1):C%(0,S)ıb+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))"":D:" RETURN":S)"80":P$(4)((EN27)):P$(5)"1":P$(6)"Y":P$(7)"N":P$(8)"D":DS2:P$(9)"Y":P$(10)"6": :DS2:P$(9)"Y":P$(10)"6": ,P": E : 6": P),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$(0)N$(0):P$(1)"Y":P$(2)"1":P$(3DISK 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,"NAME",N$(0),X&#S1SC:INFO,S,L(S $wCL:#$ MSG,3:(0)7500:5$?!M2$"1":8520A$@!M2$"2"d$H!MSG,M1$,M2$:ES(0):SP1ES:$(#::EN2144:P02048:OPEN:RK$"":D$(4):(0)ī4500$-#M3$" TO QUIT":M4$" TO QUIT, TO CONTINUE"Y%2#(382)127M1$"SORT cER250M1$"FILE ACCESS ERROR-"((0)):8512:CL:o#eW3(26):W338M1$"CALC-"((10))":"(ER):8050#fW331M1$"QUERY-"(ER):8050#hM1$"FATAL ERROR-"(ER)" AT LINE-"((218)(219)256):8511:SPįCL:#mCL:$r8511:SPįFIX::(4)"BRUNCHAIN OBJ,A$9700":PG*"(4500<"@(222)255Ħ_"EER(222):ER0ER15İ8200:j"J8000"TER253ER249įCL:"YER77ĺ"OUT OF MEMORY":"aER250(0)254M1$"BLANK FORMS DO NOT MATCH DATA BASE":MSG,M1$,0:PG0:M2$"0":77006#W5įCHKPT:PG2:M2$"1":77003!W3İ4000:7500H!W4İ4500:7500l!FWS11:P(F)SFP(F)1:F!F0FFF:F1:F:FFF!!PG$"MASTER MENU":PGPG$"REPORTING" "M1$"GOING TO "PG$:MSG,M1$,M2$:(0)7500:CL:VER,0:(0)įCRN,0: 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:7500 ~W2İ5000:CHKPT:7500!MENU"::580+SEL,2,SP,SC:W(0):W0ı9560:590L5500:ES7215V 6000e#CT6İ550t/SC17000z4LEN,(69):W$"VOLUME":(EN31)2W$"DRIVE"T,12::"DATA BASE ACCESS MENU": V:" RETURN TO MASTER MENU":::" DATA10nCT12CT135705'qCT55705-v6p550iuHS0:C$"EQGB":SETC,C$:OUT,S,D$(1):300:400xCT6İ100:ES6005zCT19SJ:6000CT15CT06000CT11İ550:RS$(S)"":5600XSC1W1:7087 b,12::"DATA ENTRY ),Q$(1)ENNP1:300:F1:Q$(0)D$(L(S)):HS1:A8:402:D$(L(S))Q$(0)[SCT5D$(L(S))""uXCT12D$(L(S))"AND"]CT13D$(L(S))"OR"bCPYD2Q,S,Q,D$(1),Q$(1):CT0CT15gCT145700iCT11İ590:5700lCT12CT13QQ1:Q$(0)""57T11İ590:5600CT6ıFCT9įRECUPD,S,D$(1):SJCTLC:5605ZCT9SJ:5600vCT10į,S:CTLC:5605CT14İ550:5601CT16D$(K(P(S)))""WS:SWS:5500:SSW:ES5601:6000CT166000!5605DQ3ICPYQ2D,S,Q,D$(1C$:HS1:5700:RS$(S)"":CT6CT19CT165625z40: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(S):A9:LCCT:402CT19SJ:5600CKQ1:5700:KQ0:ES(CT6):HM1$"KEY NOT FOUND":MSG,M1$,1:ES(0):b|WSW:ES0:W1SWS:oS1W17600:F55505200:ESSSC:555050RS$(S)""İ5380:SS1:ESSSCS:RS$(S)""5620.C$"EQAOCGNBI":SETCMD,";A$:"IS THIS OK?";:SEL,0,Y:(0)4500:CL:P0176,(A$):XPG0:CL:M2$"2":7700lSC1W1:5040,12::"BROWSE/UPDATE MENU"::580SEL,2,SP,SC:W(0):W0ıSW:5905600:SC15000PC$"EQAOCG":SETC,C$:NP1:HS1:"ĂI:5NF1: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$)2504500=M1$" ":MSG,M1$::"NEW "W$" IS:(0)4235qw261: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:2650NF0:I1(TF$):(TF$,I,1)",560:9600:4000M3970: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' h3970:ES4235:TF$"SELECT."TF$:VER,1:ES0:AM1$"INVALID FILENAME":MSG,M1$,1:ES(0):ESTF$"":K3984r,12::"REPORT/QUERY REQUESTS"::" RETURN"::" SAVE"::" LOAD"::" CLEAR"SEL,2,2,3:W(0):W0ıW1İ4100:4000W2İ4200:4000W3İ565:5:260:$A$"REPORT REQUEST":W4;C$"SQ":SETCMD,C$eDIR,W,W$:ES(0)0:W$""3990:ESı::10:"ENTER NAME OF "A$::M3$", TO SELECT"::W$"":2,W$,39ES(6)145:ESı(6)1473982W$""3984:TF$W$:4400:NF),D$(1):75COP,Q$(1),Q$(L(SC)),Q$(1):Q$(L(SC))"":q: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:S1SC:RS$(S)"":S:SWS:M 260:265:27):ER158000:M1$"ERROR READING HELP TEXT":MSG,M1$,0:FIX::265:516eW$:(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%(I,S):RS$(W1)"":: 0COP,D$(1),D$(L(SC)-,0::TF$"HELP TEXT":VER,1:(0)0ı7520^261:264:A$(HS)(NP):508:516W$:(W$,1)"/"510:W$::(0)515:508(W$,2,2)A$530W$:(W$,1)"/"ĺW$::(0)515:512265:MSG,0:8000GER(222O SKIP, TO SAVE":MSG,M1$,M2$:23::SEL:(0)LCCT:CT9:476]CT9M2$"SAVE"uCT10M2$"DELETE"CT9CT10M1$"READY TO '"M2$"' RECORD":MSG,M1$,1:ES(0):ESCTF:305:FCT:402D$(L(S))"":NP0:D$(0)" ":(7):462I13JW:CT19:470:I17ĺ30);:FL1:325:430I(7):462CT6D$(K(S))""HS0M1$"NO RECORD TO BE WRITTEN":MSG,M1$,1:ES(0):ESİ305:400HD$(0)"U"CT9CT10M1$(7)"CHANGES MADE, DO YOU WANT TO 'SAVE'?":M2$" T1W1P(W)S)462463M1$(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,0I8I11WW1:450I21I10WW1:450FF1:FL404 FL1:305S WL(S):21::10:":";:2,D$(W),3:CT(32)128j (6)138F1:404} CT1FL:402 CT2460 CT8İ500:300:428 470 W0I21:463 WSC1I8:463W1(D$(K(P(W)))""):NP(HS0W1)(HSLFL1:4305 FLD,S,F,A:OF(7)L(S1):W$D$(OF)g 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 CT8İ500:HFF:300:FHF:404 470 CRITERIA:<>/=#* ?"2 LHS0NPM1$"UPDATE DATA"Q NHS0NPM1$"ENTER DATA" 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):FϺD$"WRITE"TF$:$ :D$"READ"TF$:: :D$"CLOSE"TF$:Q :D$"DELETE"TF$:e ,::SCR,S:306 1HS0įOUT,S,D$(1),NP 221::"TO SCREEN:";D$(L(S)); 6 ,S,D$(1),HS EHS1KQM1$"ENTER KEY CRITERIA:<>/=#* ?" JHS1KQM1$M1$"ENTER""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)          15:508(W$,2,2)A$530JW$:(W$,1)"/"ĺW$::(0)515:512\265:MSG,0:g8000mER(222):ER158000:M1$"ERROR READING HELP TEXT":MSG,M1$,0:FIX::265:516W$:(W$,1)"/"510:530COP,D$(L(S1)1),D$(L(S)),DCT9CT10M1$"READY TO '"M2$"' RECORD":MSG,M1$,1:M2$"":ES(0):ESİ305:CT15zD$(L(S))"":NP0:D$(0)" ":NC0:,0::TF$"HELP TEXT":VER,1:(0)0ı520261:264:A$(HS)(NP):508:516W$:(W$,1)"/"510:W$::(0)5:CT19:470&I17W$"":30):4285(7):462A GONED$(0)"U"CT9M1$"CHANGES MADE, DO YOU WANT TO 'SAVE'?":M2$" TO SKIP, TO SAVE":MSG,M1$,M2$:SEL:(0)LCCT:CT9CT9M2$"SAVE"CT10M2$"DELETE"T)462463vM1$(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:450I21I10WW1:450 I13JW0 M473 476G WL(S):22:10:":";:2,D$(W),3:CT(32)128^ (6)138F1:404q CT1FL:402 CT2460 CT8İ500:300:428 470 W0I21:463 WSC1I8:463W1(D$(K(P(W)))""):NP(HS0W1)(HS1W1P(W)SW$,HS:W$D$(OF)(C$,3,1)"S"D$(0)"U"Q D$(OF)W$:2,W$,HS:(32)128424x CT(32)128:CT1FF(F1):404 CT2FL1:305:460 CT8İ500:HFF:300:FHF:404 470 FF1:FL404 FL1:305 NC435 CT9:UDCT1PLACEMENT DATA"` 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(S1):W$D$(OF)) 2,? 1W1L(S1):WL(S)W11:21::NCĺ"TO SCREEN:";D$(W1W1);_ 3NCUDĺ"DELETE COUNT: ";DC 4NCUDĺ"UPDATE COUNT: ";UC @FLD,S,1:F1W:2,D$(W1F),HS:CURS2:F ENC350 JHS1M1$M1$"ENTER CRITERIA:<>/=#* ?" NHS0M1$"ENTER REWS: -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,S\GLOBALUPDATE8000(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 ? h)H e +,h͵H#$ hh 0gkh gghLl귍JJJJuõĵɵʵǵȵ˵̵ ŵ`JJJJ lɬ uu` ` \ µLCJT^ktyKI KKϲŬǬԠӬӬԬ̠ŬԠʬԠʬРʬԠʬԲӠʬJ)?iQegi(ih : { 륡 H:H    (S)0E$(S)"":RS$(S)"":3880+wE$(S)"E"4w(S:PwB$"REPORT REQUEST":W4gwC$"SQ":SETCMD,C$wDIR,W,W$:ES(0)0:W$""3990:ESıw::10:"ENTER NAME OF "B$::" TO QUIT, TO SELECT"::W$"":KBDIN,W$,39xES(6)14P0163,128v 10Zv SETREQ,0:CHKPT:SETREQ,1:CHKPT:DD$"FIRST":9112:SETR,1:INIT,2nv 6500:CL:7800vWS:W11SC:P(S)0SW:LW1:W1SC:W1:vSP(S):W1:SW:vHL0:S1SCv3750:LV(S)LvLHLHLLvS:v S1SCwPc(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` (7):D$(4)(#C%(SC,SC)((#S1SC0(#I0<($W1SCX($P(W)SII1:C%(I,S)Wj($:C%(0,S)I:w($P067,0(T$M3$" TO QUIT":M4$" TO QUIT, TO CONTINUE":1000 (SC),WS$(SC),PS$(SC)^'#SN$"":STR,SN$:W(26)(27)256:W,(235):W1,236:W2,8:N$(0)SN${'#YST:SCL,"NAME",N$(0),'#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$1610):P067,1:INFO,SC,W:W(0)20WSC30500:HM(115)(116)256W:HMg&;#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),RC20%@!M2$"2":8520 %A!M2$"3"<%H!8500:ES(0):SP1ES:G%(#8000%-#EN2144:P02048:SS2304:CL:2700:::SYSSEC:(0)9005%2#(382)127M1$"SORT DISK NOT ALLOWED":MSG,M1$,0:CL:YST:W$"1":SCL,"START",W$:P0176,(W$):9000K&5#SC(2567STED":M2$"2":8520:CLOSE:7700e$cER250M1$"FILE ACCESS ERROR-"((0)):M2$"2":8520:CL:7700$hM1$"FATAL ERROR-"((222))" AT LINE-"((218)(219)256):M2$"2":8520:CL:7700$ 8513:ESįCL:7700$ $4!MSG,M1$,M2$:%?!M2$"1":852":7700A#F10256(((2122)0)523):VER,0::(4);"RUNBOOT2"S#@(222)255Ħv#EER(222):ER0ER15İ8200:#J8000#T(222)253(55)2531000#V(222)253(55)253įCL:7700#YER77ĺ"OUT OF MEMORY": $^ER249M1$"ABORT REQUE̠`ԠŠ{ ̠ ƩϠԬξϠ̠ѾϠԬԠŠҠ͠ˇԠŠԠԠˠΠԠˠΠ    /̠ѾϠԍ ʘ`0 w} 8nL"w J,`Ϡ`( 0X0~EŠčŠҬԠ˭̠ Ԡҍ٠ϠԠӠeh`    ɍɑrf  f p L2fgjjjj hHtHi ՠ h  h  `  4`ɠ `8 #8nʊ  ( H Xh`,,`  y,y-` =?i, =?i0 ,-`? e```8` #ad Q a   nd bc c  d0   ɍd0 ɑ L% H ` pL pLI [ k } ?8 ­ б`` M ?}` d뷮? 鷽뷍균 췠 =-e? ?8` =8,- ɑL% ~ Y? ` L `8`   $(` x)?Ȣ /  /  LA)?`` a ` L`، z}~?췮i( ʊ 췮?8}JJJJj c Lugh"ɭɱɪ @,LLa $5    ?   ɍ `ɑ L% ~ #e `;Ѕ~,,e `Ѕ~,,e `` ? ? N $  # #,07xʊ aH c h b     ɍLۍxʊ a b| Ή΅΄ۭfh% I, #,JP e X% " ? ? ?   N 8}J 0} | L ? # N 688 8 #e8    427)(2428)256(2429)256256:"TOTAL RECORDS:",W3I"M2$"2":8520:"W1(RC(W1)6)(RC(W1)61)256:W2(DC(W1)6)(DC(W1)61)256""FWS11:P(F)SFP(F)1:F""CL:::VER,0:(0)07700"7750#PE,"BOOT:W$(W1W2):A$(W2)%!uW3W3W1W2]!x5:"ACTIVE RECORDS: ";W$:5:"DEAD RECORDS: ";A$u!yP(S)0A$W$:6524!zWP(S):6600:A$((W$)(W1(W10))):A$(A$,4)!|5:"AVG FREQUENCY: ";A$!}I1500:I:3280:ESı5"S::"TOTAL BYTES:",(2(TF$,I,1)","ĂI:, 5NF1:I(TF$):I: bPS$(S)"":IL(S1)1L(S)1:(QT$(I))0(QT$(I),1)(1)PS$(S)"P":IL(S)1 gI: d,0::"DATA BASE NAME: ";N$(0):34,2: nRC9256816:DCRC3:S1SC::"SCREEN ";S;" ";N$(S)!sWS:6600F$:VER,1:(0)4235|w261: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:FQT$(F)W$:F:S:265S1SC:4450:S 0NF0:I1(TF$):  e褐 @H h ɠ @ H h  М`]T8``  0123456789yT = ӠΠĠξL= =Ѽ L= 6 8` ` 8 !8 6 8 ? ? 8 ? & 8LyTyTh  4yTyTvTvT}TvTyT  }T` ɯJ=Rɽɍ?ɬNȱɬ ɍɠ T!Lu  ȱɬɍ݅Ȣ  LfS :`^ɂeѨ`ё ~ `эtT O BQ BM  Q Rȥɯ#ɍɬ(  P Q R8ȑ  O !   Q8LR8:;`hh8`HH0z H eh }8 9 i(i; ʘ: h  4((ɠ$  ɠ 0Q 0QLPȄ` ` O BQ`&=ɂ P8eg  eeɂ O ! LQ Oɂ O  H ! h8Ы` e=``<=` <``H3P6P4P7P2P5P` 4P7PL1Ph```:; O JP` 0Q  PLR` : uT`,uT @yuTtuTkɯ?ɍ(5  (uT0Fɍ 0Qɬ!$L5OȄ%#F   ȱɍ` $0 LO$  `%H$HPOQO#OO0`%$0C# B#LOɍ$$0-F %# ɍ$! йQOLOO h$h%#FL" O`LJPHh` :  :m<;m=` O < Oe<PLJ N O$$LcN`!$" N$0 N$LcN%(% "ɍ`!8$ LUN` PC<=<<C8!Ce!$$$ "=8=<LcN$< LNLcN`$` ɍ  M`> MLJɓ#$ M` P BM BQLJ rMLJɆ $ M`L?J ʎ,tT NtTLiM H Oh`ɍ ɯ ! L|M  `MMMMMM` MMLMLJP` B O>? P<ɍ `<= , JL LHȱh`8ɍ PLJ`$ P L?JLsJL?Jɑ$ M`Ɍ$ M ;O NLJɔ$ M H NhLJɖ!$ M H$0 ;O NhLJɋ#$ M`ɍ MLJLMLJɗ#$ M`ɠ MLJLML?JɄ$ "%$ "LJɍ $0 P PLJɈT N@$ $0 M M$$$' ȑ ߑ LnK L?J P M OLJɉ$ MLJɒ$ MLJL?Jɏ$ M NLJ NLJɅ'$ M`ɍ LK PLJɕW$$0 M LOLJLYPLJLJLJLSLPLHQLRLUS O #JL O X BQ`LJLJ$ ɠɊəLJ%@ NT L?JH h P$0ɍ`%#$С8f$0` P ;OL?J ɠɍɁ??L?Jɂ$ M      $"":4080/FSNFW$"P":4080:PS$(S)"K"FFSNFPS$(S)"K"OS: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."T::10:"ENTER NAME OF "B$::M3$", TO SELECT"::W$"":KBDIN,W$,39cES(6)145:ESıv(6)1473982W$""3984:TF$W$:4400:NFES0:M1$"INVALID FILENAME":MSG,M1$,1:ES(0):ESTF$"":3984 S1SC:4050:FSNFW:NFWS$(S)"C":38453750?LHLHLL:PS$(S)"K"HSSKS:SHS\ C%(0,S)0ıW11C%(0,S):WC%(W1,S):PS$(W)""SW:W199::3850:B$"REPORT REQUEST":W4C$"SQ":SETCMD,C$DIR,W,W$:ES(0)0:W$""3990:ESıMRC(S)RC(S)1:3S:25:RC(S)%;tC%(0,S)0NF1:WWS1SC:7600:F3740xPS$(WS)""NF0:WSSC:WS:WS:NF1:WS:W11SC:P(S)0SW:LW1:W1SC:W1:SP(S):W1:SW:HL0:S1SCPS$(S)""İ3750:38403700ETR,1:SR03075^ ::10::"SORT PHASE":::"TIME EST:":(SR(SR)((2)47))" SECONDS"t SEQ:(SR):CHKPT 6500:CLOSE:7700 :ES(0): I014 W((SS27I2)128)128:W1(SS26I):W1W1128(W1128):SS26I,W1W I: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 3800 40:SEN31)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?";@ M1$" ":MSG,M1$:SEL,0,Y:(0)2700:P0176,(W$):R P051615,1 ::10:"DO YOU WANT TO ADD DATA TO AN":"EXISTING SORTED FILE?";:SEL,0,N:(0)İ2000:KY$""1000 ::10:A$"VOLUME":(EN31)2A$"DRIVE" "INPUT STARTING QUIT":MSG,M1$:C$"Q":SETC,C$:W$((176))::"INPUT";::" STARTING "A$" NUMBER IS:";W$ "ENTER NEW NUMBER OR TO ACCEPT":KBDIN,W$,4:(6)145M2$"2":1025 W(W$):W1W2502700:W(176)ı ::"NEW "A$" NUMBER IS:";W$:"IS THIS 8`ӆɩʦ ) )Ҡӽ )  )֐ +  J֐L. , '  8  e`ɀ𽩠 43LY+ `   ~+ ,L-, LK )   43ȱɅ`8`Ӽ MLMLMMLO 3 3 3| mq{ } i 13J8~J{ | } LHihmMJMMM L 3ΫL 3 L 3` .3 3 3詠 3 3`Hm2hm3 ` Ңְ ) ) *LM * O {O h+LMH {Oh 3 ,+LM`Fޢ ? 6 LM 0 ߍ45{ L 13 3юɩʦz  ? 4б ML]N 3 ?  Oάe{ e| i} imMM0iqLMO L 3{ L| } LL,MLeLiL` 3 3L  L) 3 $ 3 3 3ee $ 8qee 13L)q  13J8~JLIM`8M9 * MemZ [ H)h)e[ Z %LK  3L LLL`ML2M3 L 3Ɂɀܢ  3ҎHMMNMhɅ)FH$0))NMh0 3LJL 3L4LυhHLTLʌ 3L L=Ԣ ? +3L* (3L LLL13eL  SE SELECTED WITH 'P,B/E,T'"::" ALL FIELDS"N SEL,11,2,1:FS1(0):FSı 2600:NFM1$"NO FIELDS SELECTED":M2$"2":8520:CT0 ( NF1:S1SC:PS$(S)"P"ĂS:- NF0: A$"VOLUME":(EN31)2A$"DRIVE"Z ::10:M1$" TOKY$""ı4I1(KY$)7:2160:SW1FWNF0:I99=I:S(74)193Ċ3::_0:0:u` W11163HM1000j P067,0:EN23,W256t 111635256:REQ,1~   4200:ESı ::10- CT1::"DO YOU WANT:":::" ONLY THO,3:20:W1$"D"ĺ" DESCENDING"D\W1$"A"W1$"+"ĺ" ASCENDING"vfI::"KEY LENGTH="KL" CHARACTERS "K" KEYS":pW1$(KY$,I,6):W((W1$,2)):W1((W1$,5,2)):W1$(W1$,3,1):P(W1)W2NF0:P(W1)0NF1:W1P(W1):2200NF1:"("00"(S),2)"+":KLW"K:P"INVALID SCREEN.FIELD COMBINATION":2015s :"INVALID SORT PATH"::2015{4:9(KY$)0ĺ"NO KEYS DEFINED YET":K0:>I1(KY$)7:2160MI1ĺ"SORT KEYS, MAJOR TO MINOR ARE:":RFLD,W1,W:PRTN e褐  @H  h ɠ @  H  h   М`d8``  0123456789 ڦ ӠΠĠξ L ڰѼ  L 8` `  & թ c L 蝀h  蝀蝀}}} ` ɯJ=Rɽɍ?ɬNȱɬ ɍɠ !L ȱɬɍ݅Ȣ Lm :`^ɂeѨ`ё `э{  I I   ȥɯ#ɍɬ(   8ȑ  A   8L8:;`hh8`HH0z H eh }8 9 i(i; ʘ: h  ((ɠ$ ɠ 7 7LȄ` `  I`&=ɂ 8eg eeɂ  L ɂ  H h8Ы` e=``<=` <``H:=;>9<` ;>L8h```:;  Q` 7 PL` : |`,| @y|t|kɯ?ɍ(5 (|0Fɍ 7ɬ!$L<Ȅ%#F  ȱɍ` $0 - L!$ `%H$HWX#V0`%$0C# #Lɍ$$0-F ( %# ɍ$! - йXLV - h$h%#FL# `LQHh` : :m<;m=`  < e<L  $$Lj`!$" $0 $Lj%(% # ɍ`!8$ L\` C<=<<C8!Ce!$$$ # =8=<Lj$< - LLj`$` ɍ  `> Lɓ#$ `  I IL yLɆ $ `LF ʎ,{ /N{Lp 2H h`ɍ ɯ L `` LLQ` B >? <ɍ `<= A QLHȱ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$LLLOLL\  *L   I`LL$ < ɠɊəL%@ U 7 LFH - h $0ɍ`%#$С8f$0`  BLF 7 < ɠɍɁ??LFɂ$       :NF2080)FLD,S,F:(1)(0)ī2070t:PRTN,3::"IS THIS THE FIELD YOU WANT(Y/N)?";:SEL,0,Y:(0)02015 WKL(3):W100ĺ:"ERROR, TOTAL KEYLENGTH TOO BIG("W")"::"CANNOT EXCEED 100 CHARACTERS":2015LSS:KY$KY$("00"(F),2)W$".W$"."W$"A"W$"D"(W$"0"W$"9")2070DW$"0"W$"9"ĂIWW$"."W2070jW$"."WI:II(A$)W02070F((A$,W1,(A$)W1)):S((A$,W1))SLSLS02048:W1LS:W2S:2200:NF2048:W1S:W2LS:2200:NF2080 2250RL B> TO RESTART":MSG,M1$,M2$:35,22AA$"":KBDIN,A$,7:W0:Y(6)135K15:K:x(6)145KY$"":K15:K:(6)130KY$"":LS0:KL0:K15:K:2000A$""2000(A$,1)"0"(A$,1)"9"A$A$"A"I1(A$),W$(A$,I,1):000 W1ī3000' W2İ2500:10003 K114K C$"GQB":SETCMD,C$U 2100e :34,(37) "ENTER SCREEN.FIELD NUMBER" K2ĺ"EXAMPLE:"::"'1.2A' FOR SCREEN 1,FIELD 2, ASCENDING"%M1$" TO GO SORT":M2$" TO QUIT, /SWS:41J 2SETR,0 4,S,DA$(1),QT$(1),N,CT:(0)WS$(S)"":RS$(S)"C":RC(S)RC(S)1:3S:25:RC(S): FRS$(S)"":WS$(S)"": :D$"OPEN"TF$: :D$"VERIFY"TF$: :D$"READ"TF$: SORT8000i(175)(176)256256:PE(175)(176)256::(4);"BLOAD BOOT2 DOS OBJ,A";PEs9000(WSS:SETR,0)P(S)RS$(P(S))""SP(S):41*3280:ESı +50:RS$(S)""WSSįSETR,1:SEQ,DA$(1),QT$(1),WS$(1):SETR,0:SRSR1                             8`ӆɩʦ ) )Ҡӽ )  )֐ 4 J֐L u멅  8 e`ɀ𽩠 9L 񰵥  uL, L)   9ȱɅ`8`Ӽ cd #L И Њ Э| mq{ } i 6Ю8~{ | } hHihm#J#"! h Ϋe  u ` 3Ц Х 詠 Э І`Hm2hm3 Ңְ ) ) FL ! E  LH h L`Fޢ L%  45{ e 6Щ Тюɩʦz  4б vL Т  άe{ e| i} im!"0iqL h Э{ b| } cd,"becid` Ѕ ЅL Ld  Х Х Хee 8qee 6Lzq 6Ю8~L`89 񤠮#emZ [ H)h)e[ Z %L  Нb hL`b23 h Ɂɀܢ  ІҎH hɅ)FH$0))h0 L LυhHLʌ Йe u=Ԣ 0Тe* -LbL6Хeb  "80":P$(4)((EN27)):P$(5)"1":P$(6)"Y":P$(7)"N":P$(8)"D":DS2:P$(9)"Y":P$(10)"6": 7)"Y":P$(10)"6": 0"6": : 6,:K(S)K(S)(K(S)0)L(S1):SK%#D$(L(SC)),Q$(L(SC)),C%(SC,SC):D$(0)" "%#9600:S1SC:I0:W1SC:P(W)SII1:C%(I,S)W%$:C%(0,S)I:%"$W0:S1SC:W1L(S)L(S1):W1WWW1%,$S:U$(W)%T$7500Z&%P$(0)N$(0):P$(1)"Y":P$(2)"1":P$(3):" RUN"::" LOAD CRITERIA"yu SEL,3,2,2:W(0):W3025,4000:M1$"GOING TO MASTER MENU":MSG,M1$,1:(0)03000:7700u 2000:ES3000u :::"REORGANIZE/MERGE IN PROGRESS"::u :34,(37):S1SC:(N$(S),20);:25:RC(S):S v 3800:3850:$,4:(6)14577009t W(W$):W1W2502700:W(176)ıkt ::"NEW "A$" NUMBER IS:";W$:"IS THIS OK?";t M1$" ":MSG,M1$:SEL,0,Y:(0)2700:P0176,(W$):t ::32,10:33,29::::"MERGE/REORGANIZE MENU":::" RETURN TO MASTER MENU"u 256st 111635256:REQ,1*s~ 0:0:Qs A$"VOLUME":(EN31)2A$"DRIVE"s ::10:M1$" TO QUIT":MSG,M1$:C$"Q":SETC,C$:W$((176))::"INPUT";::" STARTING "A$" NUMBER IS:";W$t "ENTER NEW NUMBER OR TO ACCEPT":KBDIN,W)2200:(382)127M1$"SORTED DISK NOT ALLOWED FOR OUTPUT":MSG,M1$,0:2200[rEFįINIT,1rDD$"LAST":9112:SETREQ,1:INIT,2:SETREQ,0:INIT,1r4rM1$"ERROR IN REORGANIZE, STARTING OVER":CL:MSG,M1$,0:9000r` W11163HM1000sj EN23,WEFĺ"OUTPUT TO EXISTING FILE"Lq :"EVERYTHING OK?";:SEL,0,Y:ES(0)0:q::10:"DO YOU WANT TO ADD DATA TO AN":"EXISTING FILE?";:SEL,0,N:EF(0)q1000:ESıq2400qSETREQ,0:SYSSEC:(0)2200KrSETREQ,1:INIT,0:EFįSYSSEC:(0250(W(176)1W(176)EV)1018/pP0178,Wp:::::"REVIEW":::"INPUT "A$":"(176)::"OUTPUT "A$":"(177)::"ENDING "A$":"(178):pTF$""ĺ"SELECTION FILE:";(TF$,8):pTF$""ĺ"NO SELECTION FILE":p EFĺ"NEW OUTPUT FILE"q P CURRENT "A$" NUMBERS":W(176)EV:W250WW250IoW$(W):KBDIN,W$,4oW(W$):W1W250(W(176)EVW(176)EV)1000oP0177,Wo::10:"ENTER ENDING "A$" NUMBER FOR ";::"OUTPUT"::W$((177)EV1):KBDIN,W$,4:W(W$)!pW(177)Wn:D$"READ"TF$:*n :D$"CLOSE"TF$:Xn5COP,Q$(1),Q$(L(SC)),Q$(1):Q$(L(SC))"":n::10:A$"VOLUME":(EN31)2A$"DRIVE"n"INPUT STARTING "A$" NUMBER IS:";((176))1o"ENTER STARTING "A$" NUMBER FOR ";::"OUTPUT"::"MUST NOT OVERLA1:3S:25:RC(S)8m(C%(0,S)30:PS:LLV(C%(1,S)):15>m1Jm2SETR,0m4,S,DA$(1),Q$(1),N,CT:(0)110000:(0)RS$(S)"":m7RS$(S)"C":C%(0,S)āW1C%(0,S):W1C%(W,S):E$(W1)"":RS$(W1)"":Wm<m:D$"OPEN"TF$:m:D$"VERIFY"TF$:l COMPRESSl8000$l90007l P0:LHL01hlS1SC::(0)49:LV(S)LĂS:PP(P):L:lE$(S)"E"ĂS:PP(P):L:lP(S)PĂS:PP(P):L:l50:ER49:RS$(S)""E$(S)"E":S:PP(P):L:m#SETR,1:WRITE,S,DA$(1),W:RC(S)RC(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:W2W2204815VW$W$":":INIT,3,S,W$,L3:P,W2: )L3:P,W2: hT,3,S,W$,L3:P,W2\5V INIT,3,S,W$,L3:P,W2|VD(2(P0)100(P0)):SCL,"FREQ",W$:W2(W$)r4|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:W21800W21800 5VW1$"LAST"OT "(SL)" DRIVE "(DR)",V"((176)):MSG,M1$,1:ES(0):ESıv3NINIT,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",W$:P(W$):W$((176)):::10:M2$W1$W$:"ENTER NEW NUMBER OR TO ACCEPT"g29NKBDIN,W$,4:(6)141200202>NW(W$):W1W250200202HNP01116,W2N::10:M2$"NEW":M3$2NSL(EN1):DR(EN2):(EN31)2DR(176)B3NM1$"INSERT "M2$" DISK, SL0:N$"":"ENTER NAME OF BLANK FORMS"::M9$:C$"QS":SETCMD,C$::KBDIN,N$,41:ES(6)145c1+%ESıv1-%(6)147950810%N$""95101:%1 N9500:ESı1*NA$"Y"İ45101/N7000:M2$"FORMATING AS"11NW1$" VOLUME ":(EN31)2W1$" DRIVE "F24NW$ıV0$,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":0$%DIR,1,N$:ES(0)0:N$""9530:ESıY1&%::1:KBDIN,W$,4:(W$)1(W$)2509100:P0176,(W$)a/#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):MSG,M1$,1:(0)PG$:ES(0)0:ES9012:PG$""9030/.*#::10O..#"ENTER BASIC PROGRAM NAME"o./#:M9$:C$"SQ":SETCMD,C$:.2#PG$"":2,PG$,29:ES(6)145.4#ESı.7#(6)1479001.<#PG$""9002.F#PG$"USER."PG$:2/#::10:W$((176)):"USING VOLUME:";ER(222):ER0ER15İ8200:)-J8000B-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:#.)#DIR,3,A BASE"::" INITIALIZE BLANK FORMS DISK"::" "PG$(0)U,SEL,2,2,7:W(0):W0ık,W1İ20000:7900}, W2PG4:71,W3İ6500:CL:7900,W4PG6:71,W5PG7:7500:7900,W6İ9200:7900,,W7PG0:71,@(222)255Ħ-E+W6İ7900:7800&+W4PG2:70N+,10::"DATA BASE UTILITY MENU":o+:" RETURN TO MASTER MENU"+:" FORMAT DATA DISK"+:" REORGANIZE DATA BASE"::" DATA BASE STATISTICS"8,:" GLOBAL UPDATE/DELETE"::" BACKUP/RESTORE DATEL,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*W5PG5:70)W332:W44ı$)W45W280:A)W46W330:W2154:W2:L)x8000s)},10::"DATA BASE MASTER MENU":):" RETURN TO BASIC"::" DEFINE ENVIRONMENT"::" "PG$(3)::" "PG$(1)*:" "PG$(2)::" SORT DATA BASE"::" UTILITIES":S3ıH(W487620:::E$"TYPE CODE:";:W$((EN31)):40:N27605:WN(:W$((EN62)1):E$"NUMBER OF TRACKS PER DISK:";:40:W2N(:W$((EN59)1):E$"NUMBER OF SECTORS PER TRACK:";:40:W3N:(W1:W47W332:W238:)W0:W240:W43ıMO(V):P0199(2IO),(V256):P0202IO,W31:'W$" RANA ELITE ":"DISK TYPE"::W(37):" FLOPPY":" CORVUS TYPE":" SANTA CLARA":W$"1/FLOPPY 40 TRK":W$2:W$3:" VISTA 1200"'" PERCOM"(" OTHER":SEL,W,1,8:W(0):W235:W316:W4W:Wі2:"SLOT :";:W$(SL):40:N1N77575::P0204IO,Nq&2:"DRIVE :";:W$(DR):40:N17577::P0196IO,N&2:"VOLUME:";:W$(VO):40:N1N2507579&:P01116IO,N::7600:P0206IO,W4:VW2W32(W0)2((W3)3W3)/'P0198(2IO),º(DT$,(206)61,6);:20:(DT$,(207)61,6):MSG,1:(0)ı[%wP0206,IT:P0207,OT:91%W$"INPUT (ORIGINAL)":IOW$"OUTPUT (DUPLICATE)"%:W$:::VO(176):SL(EN1):DR(EN2)%IO(EN)1SL(EN3):DR(EN4)%(EN31)2DRVO8&::"REVIEW":::"BLANK FORMS:";SN$m$j:"INPUT";:20:"OUTPUT"::"SLOT :";(204);:20:"SLOT :";(205)$o:"DRIVE :";(196);:20:"DRIVE :";(197):IT2ĹP0176,(196)$pOT2ĹP0177,(197)$q:"VOLUME:";(176);:20:"VOLUME:";(177)=%t:(W$)4#]W$((EN29)):SCL,"TEXT",W$:P0184,(W$)L#cP0192,1:P0163,0_#gP069,(EN):p#L200:(0)ı#N9500:ESı#QA$"Y"7520#V(SA)131(SA)1304515#[7000:7525#`4510#e::IO0:7560:ITW:::IO1:7560:OTW$$g:)256(2429)256256:"TOTAL RECORDS:",W3="O$"D"įMSG,0N"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,5:"ACTIVE RECORDS: ";W$:5:"DEAD RECORDS: ";A$O!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)(24280)į:O$"P", jN$SN$:YST:SCL,"NAME",N$\ 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)2!uW3W3W1W2:":W$::I0(EN26)1:" SLOT "(EN1I2)" DRIVE "(EN2I2):IaSEL,3,1,I1:W2(0)1:qd9500:ESıeA$"Y"İ7000:6503f4510g9100:ESıh::10:"OUTPUT TO:"::" DISPLAY"::" PRINTER":SEL,11,2,1 iW30:,8:O$"D":(fWW16(J1):I:W$(W):>W$((ENW))((ENW1)):lW255312,5313:(W$)0(W$)995320:(W$)0(W$)135320:(W$)0(W$)325320:W$("00"W$,2):ENW,(W$):ENW1,((W$,1)):W0:D|"SELECT SLOT AND DRIVE FOR:>EN30,W:;PW(EN33):W192(EN32)0W$(W192):ORW253W$"0":kTW$"$":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:" RIGHT "<9:E$"KEY FOR"W$"APPLE KEY":5178:EN56I,A:z:W16384:W,128:A(W):W16,0:WA:A160A141WA64:;(W);::<:E$"END OF RECORD DELIMITER":"FOR TEXT FILE OUTPUT:";:W$"/":2,W$,5:(W$)15180=W0:(W$)1W(W$) ION?";:SEL,0,N:EN61,99(0)X5:"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$а40::5310:W5167K0:E$"CURRENT DAY:";:W14:5300:40::5310:W5168Q12W1:(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))214WW64::"SHIFT KEY MODIFICAT,N:N0:W0:(0)5165U*:E$"SLOT# FOR CLOCK CARD:";:W$"4":40:N7N15162:WN,:E$"CLOCK IDENTIFICATION:";:W$"0":40::N165164-EN9,N16W.:E$"CURRENT YEAR:";:W10:5300:40::5310:W5166/:E$"CURRENT MONTH:";:W12:5300:PRINTER"::"TURN ON PRINTER":MSG,1:(0)5169$:"L1:";:W48122:(W);:W::"L2:THESE TWO LINES ARE SINGLE SPACED AND MUST NOT APPEAR ON THE SCREEN"%0::"EVERYTHING OK?":SEL,0,Y:(0)ı&:5130("DO YOU HAVE A CLOCK CARD:";:SEL,0(W2256)256:(W$)0ıfE$"PRINTER SETUP CHARACTERS":" FOR NONE OR TO END SEQUENCE":I05178:EN34I,A:A1415150:II1:I105145:EN34I,141::E$"DEFAULT LINES PER PAGE:";:W$((EN27)):40::EN27,N/":"READY TO TEST ͠Ҡz#?"NAME",N$(S),2%W$"":SCL,"PARENT",W$:P(S)(W$)l %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įFLD,S,K,0@%K0C)),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)"SCREEN "(S):SCL,SC):S1SC:FLD,S,0:L(S)L(S1)(7)1:Sc5#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$(SC),RC(SC),DA$(L(S M2$"3":8520:ES7700:6H!MSG,M1$,M2$:ES(0):A(#8000X)#P02048:ENP0616u+#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,0:SC256(0):L(7700"~YER77ĺ"OUT OF MEMORY":\~^ER249M1$"ABORT REQUESTED":M2$"2":8520:CL:7700~cER250M1$"FILE ACCESS ERROR-"((0)):M2$"2":8520:CLOSE:7700~hM1$"FATAL ERROR-"((222))" AT LINE-"((218)(219)256):M2$"2":8520:CL:77000}VER,0:(0)78007},0,"UPDATESTARTVOL":7810l}10256((2122)523):VER,0::(4);"RUNBOOT2"}10256((2122)523):VER,0::(4);"RUNUPDATESTARTVOL"}@(222)255Ħ}EER(222):ER0ER15İ8200:}J8000~T(222)253įCL:TES:",(2427)(2428)256(2429)256256:"TOTAL RECORDS:",W3P|:EC" ERRORS"d|M2$"0":8520:|W1(RC(W1)6)(RC(W1)61)256:W2(DC(W1)6)(DC(W1)61)256||7900|::VER,0:(0)7700|(,0,"BOOT2":7700}x795sWS:6600:W$(W1W2):A$(W2)/{uW3W3W1W2g{x5:"ACTIVE RECORDS: ";W$:5:"DEAD RECORDS: ";A${yP(S)0A$W$:6524{zWP(S):6600:A$((W$)(W1(W10))):A$(A$,4){|5:"AVG FREQUENCY: ";A${}:(0)ı=|W1500::S::"TOTAL BYI(TF$):I:z::10z"CURRENT STARTING INPUT"DT$"IS "(176):"ENTER NEW NUMBER OR TO ACCEPT":W$((176)):KBDIN,W$,4::zd::"DATA BASE NAME: "N$(0):34,(37)::(0)ıznRC9256816:DCRC3:S1SC::"SCREEN ";S;" ";N$(S){$:M2$"MUST BE CONVERTED FOR VERSION 2":265:MSG,M1$,M2$:4200dy|565:S1SC:FL(S1)1L(S):W$y}FLD,S,FL(S1):(13)9(1)FF1:4221yW$"/"FL(S)1:FyQ$(F)W$:F:S:265yy0NF0:I1(TF$):(TF$,I,1)","ĂI: z5NF1:˭ӮԠ ˭Ӯ٠ Ԡ" ̠  ̠Š Բ ̠ӠԠ ǠӠî Ԡʠ Рʠ ԲӠʠΠʠŠ!Ǡ+ԠӠ, РԠ ˭ӮԠ "ϲ/ԠŠʠ Ԡʱ Ԡʱ Ԡʠ Ӡ ҮҠנҠ͠ ҮŠԠ Ԡʱ ҮԠԠӠ ҮŠԠʠ      S1SC:CRN,S:FLD,S,0:L(S)L(S1)256(1)1:SK#D$(L(SC)),Q$(L(SC))"$SN$"":STR,SN$:W(26)(27)256:W,(235):W1,236:W2,8T$M3$" TO QUIT":4000 )(219)256):8511:SPĺ:D$"CLOSE":CL:4mCL:Jr8511:SPįFIX:TwCL:j MSG,3:(0)4010p ?!M2$"1":8520@!M2$"2"H!MSG,M1$,M2$:ES(0)SP1ES:(#::EN2144:P02048:D$(4)2#CRN,0:SC256(0)<#L(SC),P$(10)2#3ER249ĺ:D$"CLOSE":CL:9YER77ĺ"OUT OF MEMORY":r^W3(26):W334M1$"CALC-"((10))":"(ER):8050`W329M1$"QUERY-"(ER):8050cER250M1$"FILE ACCESS ERROR-"((0)):8512:CL:*hM1$"FATAL ERROR-"(ER)" AT LINE-"((218FL(S)1:F5 Q$(F)W$:F:S:I110:P$(I)::265; p M1$"GOING TO MASTER MENU":MSG,M1$,1:(0)4000 VER,0:(0)įCL:CRN,0::D$"BRUNCHAIN OBJ,A$9700":0 (7700 @(222)255Ħ EER(222):ER0ER15İ8200: J8000TER2570:ES4235:TF$"SELECT."TF$:VER,1:ES(0)0:ES4235 w261: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$ }FLD,S,FL(S1):(13)9(1)FF1:4221 W$"/"PUT FILENAME?";:SEL,Y:(0)İ3970:ES4010P VER,1:ES(0)0:ES4135:3405 263:"/2":S1SC:FL(S1)1L(S)1:FLD,S,FL(S1):(13)44114:(34)Q$(F)(34) F:"/":(34)Q$(L(S))(34):S I010:(34)P$(I)(34):I:265 '7 h39ORGANIZING:"W$:MSG,M1$,1:ES(0):ES39828 TF$W$: ::8:"REORGANIZE REPORT REQUESTS FOR:":::SN$:::"DUE TO THE INSERTION/DELETION"::"OF FIELDS IN THE BLANK FORM":MSG,0 4200:ESī7700 4100:4010, ::10:"USE 'TF$' FOR OUT0: A$"REPORT REQUEST":W46 C$"SQ":SETCMD,C$` DIR,W,W$:ES(0)0:W$""3988:ESı ::10:"ENTER NAME OF "A$::" TO QUIT, TO SELECT"::W$"":KBDIN,W$,39 ES(6)145:ESı (6)1473982:W$""3984+ M1$"RE&USER.REORGANIZE REPORT REQUESTS18000; 9000P:D$"OPEN"TF$:g:D$"VERIFY"TF$:{D$"WRITE"TF$::D$"READ"TF$: D$"CLOSE"TF$::D$"DELETE"TF$:5COP,Q$(1),Q$(L(SC)),Q$(1):Q$(L(SC))"": M 260:265:275:26 2&l ::"ENTER PROGRAM STATEMENTS":Ml"SET MAXFILES/HIMEM BEFORE &OPEN"{l"DO &OPEN BEFORE DEFINING ANY VARIABLES"l("YOU MUST ISSUE &CLOSE BEFORE ENDING"l2"'RUN BOOT2' TO RETURN TO MASTER MENU"l<:"'FP' WILL EXIT GM ENVIRONMENT"lF  FO,S,K,K:FIND,S,DA$(L(S1)1),Q$(1),C,1:(0)ıO'DA$(L(S1)K)DA$(L(S1)1)'M1$" TO SKIP THIS SCREEN":M2$" TO ACCEPT RECORD":MSG,M1$,M2$:24:SEL: įFLD,S,1,1:K(7):W$(K)&D%W1(3)HN%W2(W13)W2:W21800W21800^X%W$W$":":W2W2Wsb%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)ı/'ER0:ECEC1:IN     ):"INVOICE TOTAL ";:,W$::TTTTSBST:SB0:ST0:40i xF27:FLD,2,F:,DA$(L(1)F):" ";:F: }SBSB(DA$(L(1)6))(DA$(L(1)7)):STST(DA$(L(1)8)) 110 "CUSTOMER# ";DA$(2):E PDA$(1):DA$(3):DA$(4);" ";DA$(5):DA$(6)O Z::| dF27:FLD,2,F:PRTNAME,0:" ";:F:: n,2,DA$(1),KQ$:(0)120 p:W$(SB):"SUBTOTAL ";:,W$::W$(ST):"SALES TAX ";:,W$:: qW$(SBSTOPEN:IN0:TT02 SC3:L(SC):W$"":KQ$""NS1SC:INFO,S,L(S):SaDA$(L(SC)):u(,1,DA$(1),KQ$2(0)įCLOSE:W$(TT):FLD,2,7:"TOTAL OF INVOICES ";:,W$::(4);"PR#0":7SB0:ST0<ININ1:(12):"INVOICE# ";IN: FIT":4000f%P$(1)"Y":P$(8)"D":P$(9)"Y":P$(10)"6": ES:e(#::EN2144:P02048:D$(4):SYSSECe2#SC(378) f<#L(SC),P$(10)Cf#S1SC:CRN,S:FLD,S,0:L(S)L(S1)256(1)1:S\f#D$(L(SC)),Q$(L(SC))ff#9600f"$SN$"":STR,SN$:W(26)(27)256:W,(235):W1,236:W2,8fT$M3$" TO QUE ACCESS ERROR-"((0)):8512:CL:=ehM1$"FATAL ERROR-"(ER)" AT LINE-"((218)(219)256):8511:SPĺ:D$"CLOSE":CL:GemCL:]er8511:SPįFIX:gewCL:}e MSG,3:(0)4040e e?!M2$"1":8520e@!M2$"2"eH!MSG,M1$,M2$:ES(0)SP1c(7700c@(222)255ĦcEER(222):ER0ER15İ8200:dJ8000.dTER253ER249ĺ:D$"CLOSE":CL:LdYER77ĺ"OUT OF MEMORY":d^W3(26):W334M1$"CALC-"((10))":"(ER):8050d`W329M1$"QUERY-"(ER):8050dcER250M1$"FILW$)L(SC)ĉ::10:TF$::"REPORT REQUEST DOES NOT MATCH":"THE BLANK FORMS":265:MSG,0:Hc|F1L(SC):Q$(F):F:I06:P$(I):I:265NccM1$"GOING TO MASTER MENU":MSG,M1$,1:(0)4000cVER,0:(0)įCL:CRN,0::D$"BRUNCHAIN OBJ,A$9700":0VER,1:ES(0)0:ES4135:34059b263:"/2":S1SC:FL(S1)1L(S)1:(34)Q$(F)(34):F:"/":(34)Q$(L(S))(34):S^bI010:(34)P$(I)(34):I:265db'bh3970:ES4235:TF$"SELECT."TF$:VER,1:ES(0)0:ES4235:261:260:264crW$:(W$:;a::8:"CONVERT REPORT REQUESTS FOR:":::SN$:::"FROM VERSION 1.0/1.5 FORMAT"::"TO VERSION 2.0 FORMAT":MSG,0Na4200:ES7700^aS1SC:Q1aCPYQ,S,Q,D$(1),Q$(1):3800:NFQQ1:4020aQ1İ3700aS:3600:4100a4010aD,C$_DIR,W,W$:ES(0)0:W$""3988:ESıK`::10:"ENTER NAME OF "A$::" TO QUIT, TO SELECT"::W$"":KBDIN,W$,39a`ES(6)145:ESı`(6)1473982:W$""3984`M1$"CONVERTING:"W$:MSG,M1$,1:ES(0):ES3982`TF$L(S)1:(D$(F),1)"^"D$(F)"/"(D$(F),2) _yF:D$(L(S))"END"D$(L(S))"",_~CPYD,S,I2,D$(1),Q$(1):IR_I12:CPYD,S,I,D$(1),Q$(1):I:_NF1:FL(S1)1L(S)1:D$(F)""NF0:FL(S)1_F:_A$"REPORT REQUEST":W4_C$"SQ":SETCM]I611:P$(I1)P$(I):I]9600+^S1SC:CPYQ,S,0,D$(1),Q$(1):FL(S1)1L(S)1:D$(F)""3620f^FLD,S,FL(S1):(8)128(12)47(12)58D$(F)"T"^$F:CPYD,S,0,D$(1),Q$(1):S^)^tIQ111:CPYQ,S,I,D$(1),Q$(1):FL(S1)1: \USER.CONVERT REPORT REQUESTS\8000\ 9000 ]:D$"OPEN"TF$:"]:D$"VERIFY"TF$:6]D$"WRITE"TF$:K]:D$"READ"TF$:_] D$"CLOSE"TF$:v]:D$"DELETE"TF$:]5COP,Q$(1),Q$(L(SC)),Q$(1):Q$(L(SC))"":]M 260:265:275:260:9Š9Ҡˠ9Π9Š9Ҡˠ9Π9Š9Ҡˠ9Π9 Š9Ҡˠ9Π9Π9Ҡ9ҠàԂŠ9ƠҠ9Π9ĠҠ9Π9ΠŽŲԽٽѽŠӱ ŠϠӱ Ҡ͠ŽҠӍΠŽűԽٽѽŠŠϠ9ΠӠҠ9ҠàԂŠ9ƠҠ9Π9ĠҠ Ӎӱ۠ݠ̠٠ΠĠϠӠĢӍñ۲ݠ̠͠΍ҠԠĠƠӺâñӱӲӳӲӱ޲òӱӲӲҠƍ̠ӍҠݠӠ۹ݠӠӍҠϠŠҠٍ۠ݭԠŠϠŠčӺͯįݍ٠ͯݍ٠ΠƠì٬ͬĠĢԠӍΠ˩ݭԠĬ٠٩ݭΠčݭԠĠŠĩݭŠĠŠĩǠӺݭ٠Ҡčݭ٠č۰ݭ۹ݺҠݠӠԠӠŽŢΠŽ٠ҠŬٽΫīάԽЬѽάӽԯԢӠݠΠů֩ǠӺݭŠȠԠčݭĠȠԠčݭĠĬΠϠƠō̭ϠΠŠōϭϠРŠōѭԠԠōҭȠϠŠōӭϠϠԠΠҠ͍ԭϠРӍ֭ϠΠӍ׭ŠӠčĠōō̽͠ά̽ά̽άԠĠĠŠˠčŭˠĠȠŠ΍ˠӠǍԠҠĠӠō­ϠϠǠƠˠӍĭŠӠҍŭϠϠĠƠˠӍɭȠϠԠō˭ŠҠ٠ōέԠԠĠΠĠŠōѭԠůŠōӭŠӠϠŠԠčĠ΍ǭϠ͠ԍѭԠĠ΍ĠΠӍЭԠŠčԭԠĠ̠Šč­ɿȩůō­ԠŠϠǠƠōí٠ԠΠƠԠŠϠǠƠԍΠΠԍĭŠŠ٠ĠčǭԠԠĠΠ̠ŠōɭȠϠ΍ϭҧӠȠԍѭԠǠΠӺ̠ϠȩԠ̠ϠȩĠ٠ͩҠΠөӠΠԩӠȩĠ٠ҠĠΠħӠȠԍ­ԠŠϠǠƠōí٠ԠΠƠŭŠӠԠΠƠǭŠ̠Š΍ɭȠϠ٠ōέŠĠŠשРҠϠԠҍξŠϠԠĠҠ͍ĠŠϠ̠Ǿٍ­ȠϠůŠōŭĠ٠ǠΠ΍ǭŠĠ٠נˠ͍ѭԠٍō˭ŠҠƠč׭ŠůŠΠŠčڭԠΠҠĠҠԍЭĠ٠ŠϠҍƭ٠Р΍þҠΠŠōԠשˠРŠŠҍčԠ,(P$(2))((226)256):P0222,(P$(10))t$P0234,128(P$(7)"Y"):P0224,128(P$(1)"N"):P0223,128(P$(9)"N")$DS2ĹP075,(193):P0224,0:P0223,0$DS3ĹP0224,128:P0230,0:P0234,0:P0223,128$5%P0231,128:,0:W0::5)"HEAMSG,M1$:SEL,0,Y:(0)4500:CL:P0176,(A$):L#CL:M2$"0":PG0:7700#P070,DS:P071,(P$(4)):P0229,128:P0228,0:P0227,128(P$(6)"Y")#P0180,128(DS1DS3)($DS1ĹP075,(P$(3)):P073,(P$(5))1:P0226,((P$(2))256):P0225"DS3:"{NF1:r"::10:M1$" 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):TTSMTTSP0230,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(9ΠŽŲԽٽѽŠӱ ŠϠӱ Ҡ9Š9Ҡˠ9Π9Š9Ҡˠ9Π9Š9Š9Ҡˠ9Π9Š9Ҡˠ9Π9Š9Ҡˠ9Π9 Š9Ҡˠ9Π7)"N":P$(8)"D":DS2:P$(9)"Y":P$(10)"6": Q(74)0):D$(L(SC)),Q$(L(SC)),C%(SC,SC),T(TS,4):D$(0)" "t0#9600:4550:S1SC:I0:W1SC:P(W)SII1:C%(I,S)W0$:C%(0,S)I:0T$M3$" TO QUIT":7500,1%P$(0)N$(0):P$(1)"Y":P$(2)"1":P$(3)"80":P$(4)((EN27)):P$(5)"1":P$(6)"Y":P$(LV(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):S80#TS1535(.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)ˠó2 àˠӳ àˠӳ ÍñӲӲӳòӲӲӳóӲӲӳ`&$ $u9Ҡˠ9Π9 Š9Ҡˠ9Π9ΠŽĬԽٽѽŠӱ ŠϠӱ Šˠñ2 Šˠò2 Š9Ҡˠ9Π9 Š9Ҡˠ9Π9Š9Ҡˠ9Π9Š9Ҡˠ9Π9Š,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               ` L ),`,6N6FILLF;<,078GH8HG8GL,:0  8n;`Kʩ  L  HL`8   (ɩL ;?019901HS00.00Š , Q  HmrsiU9`L  rs  tu  vw`90i`098`/4. 0 /`. $/ $0L$  H0hhȑ`)* d `   `O `L,,qNqp ;  1  LooH ʊ ;h j LK FШvw 8KKJ   P8K N  F 4 L,0,0 dmtemu`tiui e `p ,;0 9 : N:N9pmpNl``8`o ; o n   oĢ LTn9p2n | `o oHp ;h j n `` e` HST L,_ n ʊ ;  -FGѠ $ $EE I`,0,mN _8n |  L8nl  Nl`,0,0, Nm6mmm` Pm ~   _ʊp Pp | pmppLBʎp8nl,0  ,0  ) 44 ` ,- ~З,40 `8`,7)N7    ) )` ~8`z 2}: ɭ3}; ʩLno8懲56q`z , ѭ,8-0`?  #э 2 aTf~U`` . / 012 8n7 `1.812 / !   IL/  L1./2բ ,-34 8s PJ  << ILO )&3!N5 ,lp0F   F~   ` H,0  F  !,5,30;  8n58n6L,P  ZFʊ8f8n+ жF%" `   ,5,30F8n5L6 Zэ)!0 HSLLL*LLaLs  ,` l jl 5,5,3LoF,l0p L 8n58n6L,lP 0Tp  Z,lP% L6,;) T ,lP-P'Fݎ+  ɭF 'L,l0 _(p     Ͳ͞ N8nй` NLݠʎ ޭK z 8(z 0 q ȦȄЩL` ӭ>? ߩ8 ݰ ` NL Ӣ  ߥ?}Ѿ  f Eݐ զ &  k ) P֮L k   c8 P(8( 8` HH ( hh )`h (hh` L `، ޭq}~췮% ʊ8m ݰD1n,0)뷮 & ՠ c L c ' թ V cLե 8ͫ`8` w &+   Z զмP &  `LeL L ܩ`89Ʉ```РL`Z Pܐ   u`L  f &   4( ] Z 4  c c吨  &d f &   ]孫 & آ 4 & Z  p &  PܐK ``L & զө ʩL! ٠ə ɤȢɢʅ>?<=<=0>=`? > H h> ` (L] w LڭCL ڦ  F  K ` ڰӽ )  L ڰѼ  L 8` `  & թ c L   Бȅׄ o  ;`8`L| A>ʎqCݭw@J"NsnrNtLr.stqC ҮA> >>ߝ%`Ct8qA7ts6988s遅sttLd s >0iɥiʐ` ٠ L,0!8n n Ԅ jj8j$0 n  QFݤѾ  нQ0 خ $0   (`  i-ߦЩQ &  ɀH ;h0 L) L &  , Q`  kЪ)* ^L` & P &  &R &   & Iװ` & p8`   ئа P f`ЩP`   & f ذ!ИRɁ i  P` k 8` R   (# حɑ T,P  ѩ` ذ r[ )`)*+,`мPL!֦мRL  Ѝ)1 Н*L>թ(L) Р* L> ` &`4e5e`8-*.+`jj` 3< 4 N*F C= e &  (   L wڤѾ  (@23Lx L&آL &L L<Ц VՍMՌNթ*PթQ JզЭ* + ,`*`  r(esՐȦ`-{  0`  VՍPՌQթ*MթNLJ &`  `  `  `  `*u*+u+,L>ՠ ɤ ՠ `ڽZ   آ=8f fd( o Ԣ=LL,F8f ( 6 TW& (= հڽ[ ) &ؐ( ӽ (L( $ &   & P֠ɩʩ W孀ά$P F ( L &P !  &$0 LV֩Lԩ! )AD Ȧӝ  ڝ: ; ѝ ("ڝZ ~ FҥԐ [ ` 0 &Lة  { ` ީ x)?  ө/ Ӣ/ ӭ LȽjȰ 8`{ L< & Э \ gҩ>?} | r2,({ !| }  ݭ> ,~ 0 \(`C, 潄6}qem7~`ɩʩ  `L}LiL`  ٬L x z $(AM> )? `CAH O 8hʊ ~ s}CAL wک eҰ )> L?,NL}ӍBH eҰ B LfhLgҢ eҰM L )> ނ,~ еLѥ0 gҩ`ˆ gҨTŠ ҠҠҠԠ Ġ ΠϮ٠` 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" ::    H eh`H@h`CYMDXA9876543210,ͯįįͯͯͯ 9`LLLLLL*&L~ Lg%LLL #L!LE"Lb  L  Ffݩ " ɀ Ɂ &&` ` &  ɍ)` " 9 "` Ȣ * 8`` L      )jѩLSCREENCALCSYSTEM ɠ) @)6Ⱦ0``̢ܦ`    `jn m ͐,0  詠 mɡ - `   (K, ! H f hY " 8`  V ` L` =ei ,`, em:ȱm;ȱLH whh  :  . `0  8 ɍɬ̌ (` * `ȱί ɂڅ ɍɩ@8n L^  LPL Q  RQ(謶L(L{ Vi8 Ȱ 8ZL+  ) . ) Y  ) ) Y 8`  ɠ)?`hh`L^Pk>9 ʊ ,0% !ɠɍei   dj jjj #  !   L%L{LQɠ} ,  8rr  r,m,0h {   PRTKUPDPKPRTNOUT&PRTHKPRTLKPRTSEQ&SELg MSGVERDIRx 3WRITE 32{~2C ,0Dˌ   ̍ N`̭LL{N`-D> 3`LkCURS2SETR2REQ3OPEN3SETCCL!3INFO$3NULLC0 PCPYQCCPYDCFIX DUMPSCRKBDIN2~KBDIN{COPB SCLqFIND33RECU3RECO 3RECI3STR PRTFLDSYS2INIT 3CHK3BCALCBQUERYBYSTvCRN_FLDӽ )8֐(`(`ʽ[ JJJJڰ8,~ 0eӅi`z e`KL ( = 6 dɍ d``ɩʠ')ȩHHHHL` Ť :,` * D0}8 h}9 `3H2Li୪i`  / fĝei8`ʥĝ0`0  8nL" # ᥠiL( { 륡`  ;Цʊ L)L ӳӳñӳӳñӳӳñӳӳñӳӳñӳӳñӳӳññòóôõö÷øùñññññññ`& !#B%ΠŽӬԽ= Ӡ&&&&&&&&&&&&&&&&&&`& !#B%ӳӳøӳӳùӳӳñ00įͯ000įͯ000įͯ000įͯ000įͯ000įͯ000įͯ000įͯ000ł0Խ=łԂĂōįͯ000įͯ000įͯ000įͯ000įͯ000įͯ000įͯ000įͯ0įͯįͯįͯįͯįͯįͯįͯįͯįͯįͯįͯįͯįͯįͯįͯΠŽԮԬŦTΠŽԬԽ==ޣ ̠҂9Ӡ Ӡ łÂΠŽìԽ=łÍįͯLv'y0m0  Q m0 ' Q L(m0n0jjjj 2o0H{0Hp0 a(y2 h(h a(2 h(h a(2Lh( L4텝ɠ ` u 8!$u ``8f` ( ( 3ɀyE <Ʌ  3٢ (L,L*L*`   ( Q 8n=An/*&   n  0 0 0, 0 ~0ɍ00 *&,ɑк Q A `H Q h` 0y22 0 0 ~0ɍɑmIHH I W hL, W (`j  T `& )& ) `& &8~&`ɠ#&ِ&& F&$`8$0` `@CFILOR ԠĮL'L0L+L*L(L(L[)L^)L`.L].L*L9,L+-L[)LI-LNLж L$ G%Ly$,a% ! `Ȅ T  8``Ȅ`b%Ȅ`8`CYMD 晥D (()$%,JPU ɠ @PT (PP( Ln%L ,, &OOH &hi$-m,mLK &%0 5$L# 5$  L#,a% ! `,a%0`L%Jna% G%     O%Ϡ &%,a%}?y T RHRhD;Mм ?Hȱ?)h)   %,a% ! 8`Ln$?3ȩCe(e)  L  %" X9'  0  6 h L2# H h200*13H &# ō1H &hH2 & h12H X LQ Jna% 5$    - O%(뷍귍h췩񷩷  &`(L# *  e  ! # & &N%" !( ZƴP0 " L" 0Ӭɴ#-y#ɴɮ # ɴ  `%8 ! ! $) L ٍ`$N Q X Q &N  r!  , ɍ)f L=!L!֦ʊL5!ǰ !  ! !` 0ee%$L"= >L *  `|x뷍I aj 鷍b .MNv$ Mj9  ѩj,)j ` - 0 '  `  '` 6  *  * * } ɍɑȌ`$ Ȅ  H h )ɍ `L ɕɈI!`ȱȱ0_ȱ)+=-  i 0ƚ.Lqƚ.  #   r`M r`H8emi:0ʽ.- 0i1h`ޥ$%`$% "` * Fݠ$08 W ` *  `LyL   M &Lq ȱ.E̙. ) 8ei8H ʽ.ʊ0: H,8h0ݰhii *Ly  0i   W L 0O8 $ J W `8`,O,+ KLK D"@&ɂȩɠ ɍ Lh  8`iO` * H hjfjf 5$0 % W 8OJ W O"ɂɠ $P- LgLgLgLLPLLg`).-ELg8` T :LgLgLgLLPLgLg) a{iL) \0:T L) IA==#9 /*)(0`)_!P T 0 EB8`` 6 ݌+, + 2`  5 %IE@  LT$E  0 -.ȱ$0 *  E$  `LLf $ې )) j T `$pLoI Lh  T A8`H h & Q 8n8` Q L  T JLmLLf L L   g% Lh" BLoL |7=-ɿ  0   + Lhɍ) r!;0 0 @ T Lh  ɍLzL  wj  = ;U  # L3 ' jL  yL,0Q *$ Yɑɍ ɢ$P ۰ ,nH  Q h  `&O0^p_  VJ)?$F8LLLLd3L& 7 9L!;Ll !8L8 8L73 Q8H8I8*K8L8 E8Э* + ,`*` {  m8(en8Ȧ`-{  IJ5JSJqJJJ Q8K8L8*H8I8LE8 !8` 8 8` 8 8` 8 8` 8 8`*u*+u+,L98  ɤ 8  `ڽZ [ ) ;=8f 7 &d( j? 7=L8L7,F8f - 0 9( 6 6 TW& (= 8ڽ[ ) !;( ӽ (L:( 8$ !8 8 8 !8 K9ɩʩ &ά$P F 8 B( =L: !8J 9 8 !8$0 BLQ9LZ ԩ@2 AD Ȧӝ  * ڝ: ; * ѝ * ("ڝZ ~ FҥԐ [ ` +A !8L;  { ` A x)?  6/ 6/ 6 LAȽjȰ 8`{ L73 !8 8 3 W4 b5J>?J} | m32,({ !| }  @> ,~ 0 W4(J`C, JJ6}qem7~JJ`ɩIʩ o  ! `Lx6Ld6L[6 6  <LA * x * z ? $(AM>! )?J @`CAH J= 34hʊ y5 s}CAL< r= `5 )> 3L:4,JNJLx6BH `5 AB 3La4hLb5 `5M L4 )> J,~ JJеL40 b5J`ˆ b5JJ G=L+AL3L{3L:L$7L5L34L:La?L7L (`(``ř'#>/*/= /`=8``88nʊ 00 0( 0H Xh`,,`  `G2X2d2~2 222:2222*2111211y1J131011#1  0 i I*(* , x ɤ >=<(>L/ /= />$ /: o//5  L. ?0$><= 8```"$ <= >/ ==8<> x ȱ)($0 Ʌ?$0 -8֐Ơ̫`m2m3 ʠ ĝ&8  @`8f,[ I- . .$phH$ p ((hL.h%H($0 H(`8`н I-ɀ 2jȄҩ=զҊeӨ  +Mɥ ` 0HH {hhL!멅 43 43`ҥ + , 9  eӪ 5),~  ) 9 , .L- ` 2 eҨ  u ҥ֐,ڽ: 8; .jjj~ `ӆɩʦ A)Ҡӽ )֐ +    ( ' ?, ,)Q 0   L+ 3LY, 34ɀ/ɋ ɂ)Ƀ3Ʌ9Ɂ) 0 3La,`2LZ 3 ? ` 3ʎ` 3L,8`i 4 N `hhȘL0Ʌ-` ,ȩ:  h+L* )+L* 43L*$0= 3L- L43 43 ~+ , '  8  e`ɀ𽩠 43LY+ `   ~+ ,L-, LK )   43ȱɅ`8`Ӽ  ' Ȑřذ +ƙ  L+` +` *L* *(`7LZ LM L* L* - 0 6 * &)̩ *Š  6 / .  B!< '   *`    9 ` L|*) H 8`N 9 `э ) E L* *L* *'  `3    $ $ 0@Ю`Ҙ1 3ɄLL0 ɀ  `L 4LZ ( ($0ȱO FɀGɅ$ $ 0G $ ɦ ' 3   Lu)Ҙ080,~ 0& 3 ! L)  ݩ 3I E L H H n  K 8nI`"Lo 8: 8 ); 9 *`I I`8`,I00 o 8`8))* *` I  H rI7h0 Iĝ 8 rII Ș` IIG8 EEEE EȭE  `,I H QH?  GLFѦ 9 `   G   8`` ? ř` ,I0LD f f `э,I"NI01 G ! ) 0 9H IΩ(H)hȩ(ȑȢ  LTE)ȑȩ:Ω { 4)  `NI/8nIѦ 9 ` ,I H,I  QHF)?  G   G  ,I H  LD+-*/^>=? A A8 @ ` @ &LA 6   B?}` ۆ 6 8 a9 @@ 8 ? !8 8 f9 8 ) K9L? f9 8  3 ^@8 K9(8( {38` c HH #8 hh )`h #8hh` @L`، Aq}~췮% ʊ8m @D1n,0)뷮Ͳ8 8 ? 8 6 & 8 8 8L? 9 &  "9 8 {3 8 Q9 8 6 &L8 8ͫ`8` r= - B !8+ 9 8 ? & ? 8мJ  !8 8 &L`:L7 ? ?L  ? ?`89Ʉ```РIL `Ѿ  8 8 ? &`LZ  8 ? a9 !8 8 {9 l ~ 4( & ? ? & 4 8 ? 9 & ? 8 6 & ? 8 8 8 !8d a9 !8 8 ? ? {9 & ? !8 8 ;  ~ 4  !8 8 & 8 k9 !8 8 ? K?K &`LZ ? !8 8ө  !IL= <ə ɤȢɢIʅ>?<=<=0>=`? * > H  =` #ʎqCݭw@J"NsnrNtLZ r.stqC < 5A> <>>B%`Ct8qA7ts6M9j88ssttLs ' >0iɥiʐ` < ʩ0!8n n 9 6 Ԅ * jj8j$0 i; 8 8 JFݤѾ  ? нJ0 ; ; ? 9$0  9 8(` 9 3 c IqJixߦЩJ !8 8 3ɀH 69h0 c 8L;) c 8 L; !8 8 '9 8 J`  f3)*  3 ` !8 J !8 8 !8J !8 8 8 !8 D:` !8 k:8` 9 8 8 ;а J &`ЩJ` 9 8 !8 a9 8 ;!ИJɁ & 8 8J` f9 88` 8J : C ? (# ;ɑ &,P  C ѩ` : &L:,`)*+,`мJL9мJL8 9 3)1 3*L98(LZ ) {3* {3L98 8` !8`4e5e`8-*.+`jj` - 0 6 3< 6 4 N*F C= `: !8  9( 8 8 8L9 r=Ѿ  c #8^LZS)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 < I`LH - * 0 #H` aH   (` I ĝ    I`,I I ` ` ( I0莪`ANDOR<>/=#=ѾPARMS2WK A RE) .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$"+" ` L]  ,`,TNTFILLW FT<,078GH8HG8GLIT,T0 iT M8nT`Kʩ LiT HL`8  (ɩL 6T019901TS00.00Š '9 8 JUE  QmTTiTT`PL$ ߍTT ߍTT ߍTT`90i`098`던TTT NT uST`T ST STLS  4H0hhȑ`)* C ~ `  `O `LiT,,TNTT R R Q zTLnTTTH &ʊ Rh R L+FШTT ` 8KKJ W zT nT P8K W T wT Q zTLnT,0,0 TmTTmT`TiTi e  `T "Q,T0 T T TNTNTTTTNT``8`T R RT S -RP  TĢ  L6QTT9T2T R ` `T THT Rh R 4 N `` e` QTT 9 L` ,ȠT ʊ R R -R-T㭰TѠ S STT S`,0,TN P8n R   L3P8nT iT LNT`,0,0, NT6TTT` QT R  Q PʊT QT R  TTTTLPʎT8nT,0 iT L,0 iTT ͝TT S` ~ TT SЗ,T0 WS`8`,T)NT ?   ` S8`z ? 2}: ɭ3}; ʩLTTT懲TTT`z T ѭT8T0`?  G Oэ E 2 STf~T`` * T * T * TT덛T SO8nT O`T͗T81͛T ͘T ! uS  SLcN͘T BS -SL N͚T͗T͘T͛Tբ ? TTTT Ts PJ TT SLN &T!N ZT,Tp0F  iT TF~ ` SH,0 7R SOF iT N!,T,T0; iT ZT8nT8nTL:M,P S OFʊ8f8n+ жF%" iT` *  SO N,T,T0F8nTLM Oэ)!0 QTLKLMLMLMLSLS 0 S TP,` SOT jT N5,T,TLLF,T0p iTLKL Q8nT8nTLL,TP 0Tp S O,TP% fQLL,T) 9 ` T R,TP-P'Fݎ+ ~  ɭF TLL,T0 Q(p     ):4500:CL:9000H$<#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),%#S1SC:INFO,S,L(S),K(S),P(S):CRN,S:N$(S)"SCREEN "(S):SCL,"NAME",N$(S)MSG,M1$,M2$:ES(0):SP1ES:U#(#::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,"START",W$:P0176,(W$38M1$"CALC-"((10))":"(ER):8050L"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":8520"@!M2$"2"#H!22):ER0ER15İ8200:#!J8000 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):5046EN,N::"WRITE DATA TO DISK AFTER EACH UPDATE?";:SEL,0,Y:EN63,(0)128:W$"PROGRAM DISK":5500EN24,W2: W$"BLANK FORMS DIS"ASSUMING NON STANDARD DRIVE"GI::5040:W2(EN26):5055:5095::"DEFINE DATA ";:7600:EN31,W:EN62,W21:::W1W46:(DT$,W11,6);::" SYSTEM":EN59,W31:Wĺ"DATA DRIVE ASSUMED HARD DISK"EN53,W4:W(EN26)1N1:5048kOT# FOR DRIVE-";::I;::":";:W$(DV$,(4WI)21,1):40::N7N1ĺ"SLOT MUST BE >0 AND <=7":5014zEN1(I1)2,NE$"DRIVE# FOR DRIVE-";::I;::":";:W$(DV$,(4WI)2,1):40:N1ĺ:5016EN2(I1)2,N:N2ĺ:"DRIVE NUMBER >2":REMOVE WRITE PROTECT TAB",'MSG,1:(0)ıF)VER,0:(0)04850:|NF0::W5010,5040,5050,5090,5130,5160,5170,5180E$"NUMBER OF DRIVES:";:W$"2":40::N1N4ĺ"NUMBER MUST BE >0 AND <=4":5010WN:EN26,W:EN,WI1W:fE$"SL9):V((EN62)1)(EN20)22((EN31)0)3((EN31)3)(EN20)mEN19,(V256):EN18,V256(V256)SEL,2,2,8:W(0):W0ı5000:4800:D$"BSAVE ENVIRONMENT V2.0,L64,A"EN:$::12:"SAVING ENVIRONMENT DATA ON PROGRAM DISK":"I2)_:" BLANK FORMS DISK IS ON: S";:I(EN25)1:(EN1I2)"/D"(EN2I2)",V"(EN29):" PRINTER SETUP"::" SET DATE/TIME"::" SET KEYBOARD/DISPLAY OPTIONS"::" TEXT FILE RECORD DELIMITER IS:";((EN30))CEN17,1:EN20,1(EN5ĺ" (";:4813+I2ĺ")":22:"(";:4813>I1I3ĺ" ";b"S"(EN1I2)"/D"(EN2I2);uI:")":I3ĺ" NUMBER OF DATA DRIVES="(EN)",";:W(EN53):(DT$,1W6,6):" PROGRAM DISK IS ON: S";:I(EN24)1:(EN1I2)"/D"(EN2)(27)256:W,(N$):P0141611,(N$)W I1(N$):P0141611I,((N$,I,1)):I: HX$"0123456789ABCDEF":,0:DV$"52516261":W$"":SETC,W$ :"DEFINE ENVIRONMENT":::" RETURN": " NUMBER OF DRIVES="(EN26); I0(EN26)1:I0GOING TO "PG$(PG):MSG,M1$,1:ES(0):J D$"BLOADBLANK-FORMS."N$",A"SA (SA)131(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(26Sı \VER,I:VO(0):VOıK ]P028,0:P010,255:CALC:PG4ĹP0192,0^ ^PG3įCRN,0 `PGĹ0,PG:D$"BRUNCHAIN OBJ,A$9700":: aD$"VERIFY"PG$ bNA(6)(7)256(249)281 d104,(NA256):103,MO(NA):NA1,0 n:D$"RUN"PG$' M1$"E":PG$(7)"BACKUP/RESTORE"? #SS9256:EN23,5:P062,0:7800l (2,W$,4:N(W$):N0N255N(N)40:z F75:7800 G:75:7900 K200:(0)ı L9500:ESı MA$"Y"80 N(SA)131(SA)1304515 O7000:91 P4510 [9000:ENG, THIS WILL ERASE DISK"U STR,SN$:W(26)(27)256:W,(235):W1,236:W2,8 PG$(7):PG$(0)"RUN USER PROGRAM":PG$(1)"ACCESS DATA BASE":PG$(2)"REPORTING" PG$(3)"BLANK FORMS EDITING":PG$(4)"REORGANIZE":PG$(5)"SORT":PG$(6)"GLOBAL UPDAT3- 80007:(4);"MAXFILES 1":D$(13)(4):CLR MO(Y)Y256(Y256)P08256:ENP0616:SA(58)(59)256:E$"ENTER " M9$" TO QUIT, TO SELECT":DT$"FLOPPYCORVUSSANTA 40 TRKELITE2ELITE3V 1200PERCOMOTHER ":M3$"WARNI"" " " " " """""""""