' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ɠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`D NUMBER ON THE CURRENT":"DISK IS "SNTN1"."&:"ENTER THE NUMBER TO BE USED FOR THE":"FIRST RECORD ON THE NEW DISK.":MN1:MX999699:140:MM1&::M:102&Z$"N"4000':(9):BP$4)"REMOVE CURRENT DISK FROM DRIVE 1!"::6)"INSERT NE$" / "U$::% "Record Number "RNSN1;:W157:"-";::% I114:U$AD$(I):190:U$(I)U$:I:I17:A$(I)": "U$(I)32(U$(I)))A$(I7)": "U$(I7):I% F23ĺD$"PR#0"% F23ĺ% % *** INITIALIZE NEW DISK ***.&:410::"THE LAST RECOR(Y$)2)AD$(8)14(AD$(8)))AD$(9)r$b I50CCC1:(12):U$H1$:190:"Page "C" / Customer/Client File / "U$:y$d J$f :ND$:(12):D$"PR#0":920$ *** PRINTING ROUTINE ***$ 5050$ D$"PR#1":(9)"90N"(30) % CC1:C1U$H1$:190:CC))Y$Y(Y$))" TELEPHONE 1 TELEPHONE 2"g#] I1Z2:"-";::" ";:I1Y:"-";::" "L$L$" "L$L$#^ J1TN:Z$NA$(Z(J)):Y$CO$(Z(J)):EZ$CO$(Z(J)):Y$NA$(Z(J))#_ U$Z$:190:Z$U$:U$Y$:190:(Z$)2JNA:3430#$` RNZ(J):240:Z$Z(Z$))U$Y)Z$:ZZ(I):Z(I)Z(I1):Z(I1)Z:CH1:".";:<"T I:CH3408E"V ".""Z U$H1$:190:C1:D$"PR#1":(9)"130N"P2$P3$:CC$" Telephone Directory / "U$:I176:"=";:::P4$:Z22:Y26:Z$"NAME":Y$"COMPANY":EZ$"COMPANY":Y$"NAME":Z26:Y22*#\ Z$Z(Z$10:EZ1:5050>!J I1TN:Z(I)I:Z$(I)NA$(I):EZ$(I)CO$(I)b!L :I1TN:Z$(I)""Z$(I)(95)n!N ".";:!P CH0:I1TN1:J1(Z$(I)):((Z$(I),J,1))((Z$(I1),J,1))ĂJ:3412,"R ((Z$(I),J,1))((Z$(I1),J,1))Z$Z$(I):Z$(I)Z$(I1):Z$(I1T *** 2012:300:30004 *** ALL RECORDS ***X RN1TN:240:RN1İ3500:3314l C6C0:(12)v 3520 RN::ND$:(12):D$"PR#0":3000!H :(10):18)"SORT?"::10)"1 - NAME (FIELD 1)"::10)"2 - COMPANY (FIELD 2)":MN1:MX2:1PECIFIC RECORD NUMBER":7)"2 - A GROUP OF RECORDS":7)"3 - ALL RECORDS":F3ĺ7)"4 - TELEPHONE DIRECTORY" MN1:MX4:F3MX3 110:F2Z:F3ı Z3100,3200,3300,3400 *** SPECIFIC RECORD ***& 2004:3500:3002 *** SEARCH & PRIN.MLML(M):120:M$" "ĺ(7):CFCF1:201382060_MN0:MX99999:140:Mĺ(7):2013y CQ$(CF)M$:CF52013F2ı300:2000 C0: *** PRINT FILE(S) *** :410::TNĺNO$:420:920l 13)"YOU MAY PRINT:"::7)"1 - A S)"$:I114:4)I7)"- "A$(I):LMN0:MX14:140:MCFĺ(7):2013\MCF2062CFāI1CF:MCF(I)ĺ(7):(21):9)"FIELD "M" ALREADY USED!":420:2013CFĂCFCF1:CF(CF)M::"ENTER '"A$(M)"' COMPARISON VALUE:":M62050 Z12012:(10):"RECORDS THIS DISK ARE "SN" -> "SNTN1::"ENTER RECORD NUMBER:":MN0:MXSNTN1:140:MSNĺ(7):2004RNMSN1:240F2ı1530:2000CF0:"SELECT COMPARISON FIELD "CF1:CFĺ:"(IF DONE PRESS :RNTN!|:(10):17)"FILING!"/~210:250:F1ıD1000Z ***EXAM/EDIT***CH0::410::TNĺNO$:420:9206)"YOU MAY RECALL A RECORD BY:"::6)"1 - SPECIFIC RECORD NUMBER"::6)"2 - SPECIFYING COMPARISON DATA":MN1:MX2:110,1110,1120,1130,1140:E20:1530<@ *** READY TO FILE? ***KBCHF1ıwJ:(10):BP$10)"READY TO FILE"YN$:104LZ$"Y"1650P(13):14)BP$"ABORT"YN$:104QZ$"Y"F1ıRZ$"Y"920T1530r *** FILE DATA ***tF1TNTN1ORD NUMBER "SNRN1":":I140:"=";::4I114GU$AD$(I):190aI3)"-"A$(I)": "U$:j"102#Z$"Y"F1CH1ı$Z$"Y"1600.:WL$:MN0:MX14:140:Mĺ(7):15302CH1:E21:M1010,1020,1030,1040,1050,1060,1070,1080,1090,1100:"USER FIELD 2:":ML28:1203XAD$(11)M$:E2ıU`:"USER FIELD 3:":ML28:120jbAD$(12)M$:E2ıj:"USER FIELD 4:":ML28:120lAD$(13)M$:E2ıt:"USER FIELD 5:":ML28:120vAD$(14)M$:E2ı *** PROOF READ ***(:"REC140&AD$(6)M$:E2ı7.:"ATTENTION:":ML20:120M0AD$(7)M$::E2ıu8:"TELEPHONE NUMBER 1:":ML12:120:AD$(8)M$:E2ıB:"TELEPHONE NUMBER 2:":ML12:120DAD$(9)M$:E2ıL:"USER FIELD 1:":ML28:120NAD$(10)M$:E2ıVtF1TNTN1:RNTN2|:(10):17)"FILING!"@~210:250KF1ıU1000k ***EXAM/EDIT***CH0::410::TNĺNO$:420:9206)"YOU MAY RECALL A RECORD BY:"::6)"1 - SPECIFIC RECORD NUMBER"::6)"2 - SPECIFYING COMPARISON DATA70,1080,1090,1100,1110,1120,1130,1140:E20:1530M@ *** READY TO FILE? ***\BCHF1ıJ:(10):BP$10)"READY TO FILE"YN$:104LZ$"Y"1650P(13):14)BP$"ABORT"YN$:104QZ$"Y"F1ıRZ$"Y"920T1530r *** FILE DATA ***D ***9:"RECORD NUMBER "SNRN1":":I140:"=";::EI114XU$AD$(I):190rI3)"-"A$(I)": "U$:{"102#Z$"Y"F1CH1ı$Z$"Y"1600.:WL$:MN0:MX14:140:Mĺ(7):153002CH1:E21:M1010,1020,1030,1040,1050,1060,10(10)M$:E2ı/V:"USER FIELD 2:":ML28:120DXAD$(11)M$:E2ıf`:"USER FIELD 3:":ML28:120{bAD$(12)M$:E2ıj:"USER FIELD 4:":ML28:120lAD$(13)M$:E2ıt:"USER FIELD 5:":ML28:120vAD$(14)M$:E2ı *** PROOF REA:":MN0:MX99999:140)&AD$(6)M$:E2ıH.:"ATTENTION:":ML20:120^0AD$(7)M$::E2ı8:"TELEPHONE NUMBER 1:":ML12:120:AD$(8)M$:E2ıB:"TELEPHONE NUMBER 2:":ML12:120DAD$(9)M$:E2ıL:"USER FIELD 1:":ML28:120 NAD$,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨéU$:!0' *** ERROR HANDLING ***e0'Z(222)::(10):Z6Z8ĺ8)"I/O ERROR! CHECK DRIVES!":100500$'5)"ERROR NUMBER "Z" HAS OCCURRED!"0B'420:D$"BRUNC.OBJ"OP$D$"OPEN":RD$D$"READ"F (Z$"MISC":OP$Z$",D1":RD$Z$:H1$,WL$,ND$,NO$,BP$,)U$(2):40)U$(3):40)U$(4)", "U$(5):64)U$(6):D$"PR#0":I:z/Y0:X0:Z(U$):I1Z:(U$,I,1)","ĭXXI1:6604/(U$,I,1)","XYI:IZ1//XYU$(U$,X3,YX3)" "(U$,X)(U$,Y):6610/XU$(U$,X3)" "(U$,X)0Z$(J):(10):"HOW MANY OF EACH LABEL DO YOU WISH?":MN0:MX99:140P.<NLM:NL6000a.>F21F23ı.d *** MAILING LABEL PRINTING ***.jI16:U$AD$(I):190:U$(I)U$:I.lEU$U$(1):6600:U$(1)U$@/nI1NL:Z$:D$"PR#1":(9)"99N":40)U$(1):40REVERSE NAMES IN FIELD 1"YN$:104:E0:Z$"Y"E1;- 5050-:(10):"DO YOU NEED AN ALIGNMENT PATTERN"YN$:104:Z$"N"6450-D$"PR#1":(9)"99N"-(I13:40)"ML";:J115:"ML";::::40)"MLMLMLMLMLML, ML":64)"00000":D$"PR#0":6420=.23004,Z6100,6200,6300;, *** SPECIFIC RECORD ***W,2004:6400:6500:6000u,8 *** SEARCH & PRINT ***,B2012:300:6000, *** ALL RECORDS ***,6400:RN1TN:240:6500:RN:6000, *** ALIGNMENT PATTERN ***1-:(10):4)"L$" "L$L$L$L$" "L$L$L$L$+I1TN:Z$(SNI1):U$NA$(I):190:Z$8(Z$))U$;:U$CO$(I):190:26(NA$(I)))U$:I42IC5442CC1:(12):36)"PAGE "C:+(:(12):D$"PR#0":920+p *** MAILING LABELS ***+z:410:TNĺ:NO$:420:920,*:(10)B*PRĺ10)"PRINTER READY"YN$:104:PR1:Z$"N"5050_*:(10):16)"PRINTING!"k*F5ı*C1:D$"PR#1":(9)"99N"*U$H1$:190:U$*:U$H1$:190:CC$" Summary":I176:"=";:*:"RECORD NAME"22)"ADDRESS 1 (COMPANY)"+ )D$"RUNHI"-) *** DISPLAY SUMMARY ***N):TNİ410::NO$:420:920):"REC#"8)"NAME / COMPANY":I139:"=";:::I1TN:U$NA$(I):190:ISN1;8)U$:U$CO$(I):190:8)U$::(37)18İ420:)I::12)"PRINT THIS"YN$:104:Z$"N"920 IALIZING!":D$"INITHI":270:OP$F1$:WR$F1$:"Z,"M",0,Z":CL$:D$"BSAVER,A2051,L4013":D$"BSAVEC.OBJ,A6064,L14920"):(10):BP$6)"REMOVE NEW DISK FROM DRIVE 1!"::" REPLACE ORIGINAL DISK INTO DRIVE 1!":420::(10):13)"READY"YN$:104:Z$"N"4060W DISK INTO DRIVE 1!":420N':I18:BP$::16)"WARNING!":16)"========"'BP$:" INITIALIZING WILL DESTROY ALL FILES"::" AND PROGRAMS WHICH ARE ON THE DISK."::" DO YOU STILL WISH TO CONTINUE"YN$:104:Z$"N"920r(:TN0:(10):14)"INITO$(I):190:10)U$$+(::420:920A+p *** MAILING LABELS ***b+z:410:TNĺ:NO$:420:920l+3004+Z6100,6200,6300+ *** SPECIFIC RECORD ***+2004:6400:6500:420:6000+8 *** SEARCH & PRINT ***+B2012:300:6000, ***"::"FOR SAMPLES OF THE ACTUAL OUTPUT.)":Z$:Z$7*C*F5ıW*U$H1$:190:U$*U$H1$:190:CC$" SUMMARY":I140:"=";::*"RECORD NAME / ADDRESS 1 (COMPANY)":I140:"-";::+I1TN:Z$(SNI1):U$NA$(I):190:Z$8(Z$))U$:U$C:(8):10)"PRINTER READY"YN$::::"(THIS IS THE PROMPT THAT YOU WILL GET"::"ON THE ACTUAL 'CCCP' PROGRAM DISK, BUT":1*"SINCE THIS IS JUST A 'DEMO' ALL PRINTING":"RESULTS ARE SENT TO THE SCREEN ONLY!"::"YOU SHOULD REFER TO THE 'USER'S MANUAL'.)":420:920+( *** DISPLAY SUMMARY ***L(:TNİ410::NO$:420:920(:"REC#"8)"NAME / COMPANY":I139:"=";:::I1TN:U$NA$(I):190:ISN1;8)U$:U$CO$(I):190:8)U$::(37)18İ420:(I::12)"PRINT THIS"YN$:104:Z$"N"920|):TN0:(6):14)"INITIALIZING!":::"(THIS IS THE PROMPT YOU WILL GET ON THE"::"ACTUAL 'CCCP' DISK, BUT ON THIS 'DEMO'"::"COPY, THIS IS AS FAR AS YOU CAN GO! FOR" (:"ADDITIONAL INFORMATION ON INITIALIZING,"::"PLEASE REFER TO THE 'USER'S MANUAL'E 1!"::6)"INSERT NEW DISK INTO DRIVE 1!":420d&:I18:BP$::16)"WARNING!":16)"========"&BP$:" INITIALIZING WILL DESTROY ALL FILES"::" AND PROGRAMS WHICH ARE ON THE DISK."::" DO YOU STILL WISH TO CONTINUE"YN$:104:Z$"N"920'410::"THE LAST RECORD NUMBER ON THE CURRENT":"DISK IS "SNTN1"."%:"ENTER THE NUMBER TO BE USED FOR THE":"FIRST RECORD ON THE NEW DISK.":MN1:MX999699:140:MM1%::M:102%Z$"N"40000&:(9):BP$4)"REMOVE CURRENT DISK FROM DRIVE ***$ 5050$ :@$ CC1:C1U$H1$:190:CC$" / "U$:p$ "RECORD NUMBER "RNSN1;:W125:"-";::$ I114:U$AD$(I):190:U$(I)U$:I:I17:A$(I)": "U$(I)36(U$(I)))A$(I7)": "U$(I7):I$ $ *** INITIALIZE NEW DISK ***D%:PHONE 2"#] I140:"-";::a#^ J1TN:Z$NA$(Z(J)):Y$CO$(Z(J)):EZ$CO$(Z(J)):Y$NA$(Z(J))#_ U$Z$:190:Z$U$:U$Y$:190:(Z$)2JNA:3430#` RNZ(J):240:Z$" / "U$:" "AD$(8)" / "AD$(9)#d J#f :ND$::420:920$ *** PRINTING ROUTIN1):Z$(I1)Z$:ZZ(I):Z(I)Z(I1):Z(I1)Z:CH1:".";:E"T I:CH3408N"V ".""Z U$H1$:190:C1::CC$" TELEPHONE DIRECTORY":U$:I140:"=";:::Z22:Y26:Z$"NAME":Y$"COMPANY":EZ$"COMPANY":Y$"NAME":Z26:Y22#\ Z$" / "Y$:" TELEPHONE 1 / TELE1:MX2:110:EZ1:5050G!J I1TN:Z(I)I:Z$(I)NA$(I):EZ$(I)CO$(I)k!L :I1TN:Z$(I)""Z$(I)(95)w!N ".";:!P CH0:I1TN1:J1(Z$(I)):((Z$(I),J,1))((Z$(I1),J,1))ĂJ:34125"R ((Z$(I),J,1))((Z$(I1),J,1))Z$Z$(I):Z$(I)Z$(I *** SEARCH & PRINT ***0 2012:300:3000J *** ALL RECORDS ***p RN1TN:240::RN1İ3500:3314 C6C0: 3520 RN::ND$::420:3000!H :(10):18)"SORT?"::10)"1 - NAME (FIELD 1)"::10)"2 - COMPANY (FIELD 2)":MN:"::7)"1 - A SPECIFIC RECORD NUMBER":7)"2 - A GROUP OF RECORDS":7)"3 - ALL RECORDS":F3ĺ7)"4 - TELEPHONE DIRECTORY" MN1:MX4:F3MX3 110:F2Z:F3ı Z3100,3200,3300,3400 *** SPECIFIC RECORD ***& 2004:3500:420:3002VALUE:":M62050?MLML(M):120:M$" "ĺ(7):CFCF1:2013I2060pMN0:MX99999:140:Mĺ(7):2013 CQ$(CF)M$:CF52013F2ı300:2000 C0: *** PRINT FILE(S) *** :410::TNĺNO$:420:920} 13)"YOU MAY PRINTNE PRESS )"5:I114:4)I7)"- "A$(I):]MN0:MX14:140:MCFĺ(7):2013mMCF2062CFāI1CF:MCF(I)ĺ(7):(21):9)"FIELD "M" ALREADY USED!":420:2013CFĂCFCF1:CF(CF)M::"ENTER '"A$(M)"' COMPARISON ":MN1:MX2:110Z12012:(10):"RECORDS THIS DISK ARE "SN" -> "SNTN1::"ENTER RECORD NUMBER:":MN0:MXSNTN1:140:MSNĺ(7):2004RNMSN1:240F2ı1530:2000CF0:"SELECT COMPARISON FIELD "CF1:CFĺ:"(IF DOELECT COMPARISON FIELD 1  _M IN a _ML 2 L1(IF DONE PRESS ) 1  =N JR O  ~ N r M ^ O rL52- 22  M Q  1 N M N M w L $ ~L _M $Q L2 O   L1 L $5R L4 _ML3 =N JR _M =N M dN M  AM 7N L1 X HO L0RECORDS THIS DISK ARE 0  L aL1 -> 0  L L c LN a L:1ENTER RECORD NUMBER: %1  N M L L c LN M w L L (L}1 O   L0 L L IN L !! M UN ` 6-L/ %N \M XL1SM L X HO  O L/FILING! /  g ! M 7N `L) N wM X & M $L0 Q  'L_( O L90YOU MAY RECALL A RECORD BY: 0  O Lk01 - SPECIFIC RECORD NUMBER P0  O L02 - SPECIFYING COMPARISON DATA 0  ,, N ML6- zM $ ~L M 7N Q ` X HO  Q  HO L. READY TO FILE .  Q  &L/Y >Q 5 / L/ O  O  Q L@/ABORT :/  Q  &LY/Y >Q 5 W/  ~L M 7N Q `L/Y >Q 5 / L_(L6- M 7N $L/ M :N M Q Q  M ^ N rL-- -  M Q L-: -  Q  1 L-Y >Q 5 -  ~L M 7N Q  ~L zM 7N (Q `L8.Y >Q 5 6. L. ]Q  N M N M w L $L. O   L6- =N wM =N M L )**k***+Z+++,N,,M  oO Q Q o M` L, USER FIELD 4: ,  bP M  O Q Q o M` L- USER FIELD 5: -  bP M  O Q Q o M` XLK-RECORD NUMBER <-  L L c LN aLj-: h-  =N JR 6O  ~L-= -  1 =N JR O  ~1: +  oO M  -O Q Q o M` L+TELEPHONE NUMBER 2: +  oO M  ?O Q Q o M` L(, USER FIELD 1: ,  bP M  HO Q Q o M` Lb, USER FIELD 2: T,  bP M  ]O Q Q o M` L, USER FIELD 3: ,  bP L*CITY: *  O M  N Q Q o M` L*STATE (ABBREVIATION): *  XN M  N Q Q o M` L.+ZIPCODE: %+  N M O M w O Q Q o M` Lk+ ATTENTION: `+  O M  O Q Q o X M` XL+TELEPHONE NUMBER P  n c dN i # N L)THIS WILL BE RECORD NUMBER )  P  ' XL*NAME: )  O M  =N Q Q o M` LE*ADDRESS 1 (COMPANY): 0*  P M  XN Q Q o M` L*ADDRESS 2 (STREET): q*  P M  N Q Q o M` N L(( LOGS IN NEW DISK!) (  =N M N M  AM M AM )/%4= BE =N JR O  ~ M QL") !) o 1 X & M :N L L L c LN  P M xO $L) Q  L)(NO SPACE! 300 RECORDS CURRENTLY ON FILE! p)  'L_( ` P  N L'(PRESS TO CONTINUE!) '   @Q  L'Z >Q 5 ' L_(` N JM  MML_( X HO  O LN(PLEASE INSERT PROPER DISK! 3(  'L ( N M & =N JR O  ~ ?O  M ^L( - (  M Q  1 P  ` X HO L&% NO RECORD WITH MATCHING DATA FOUND! &  '` X w O L'CCCP &  s O L'==== '  Q Q  Q  n c dN i # N  Q  -O  w M Q  n c dN i # N  M Q  s O L'**** '  "(U$,X)(U$,Y):66107/XU$(U$,X3)" "(U$,X)F/Z$(J)U$:c/' *** ERROR HANDLING ***/'Z(222)::(10):Z6Z8ĺ8)"I/O ERROR! CHECK DRIVES!":10050/$'5)"ERROR NUMBER "Z" HAS OCCURRED!"/B'420:D$"BRUNC.OBJ"DH1$,WL$,ND$,NO$,BP$,(I)U$:I(.lEU$U$(1):6600:U$(1)U$.nI1NL::4)U$(1):4)U$(2):4)U$(3):4)U$(4)", "U$(5):31)U$(6):D$"PR#0":I:.Y0:X0:Z(U$):I1Z:(U$,I,1)","ĭXXI1:6604.(U$,I,1)","XYI:IZ1./XYU$(U$,X3,YX3)" (I13:4)"ML";:J115:"ML";::::4)"MLMLMLMLMLML, ML":31)"00000":420:6420-2:(10):"HOW MANY OF EACH LABEL DO YOU WISH?":MN0:MX99:140-<NLM:NL6000->F21F23ı-d *** MAILING LABEL PRINTING *** .jI16:U$AD$(I):190:U$ ALL RECORDS ***?,6400::RN1TN:240:6500:RN:420:6000`, *** ALIGNMENT PATTERN ***,:(10):4)"REVERSE NAMES IN FIELD 1"YN$:104:E0:Z$"Y"E1, 5050,:(10):"DO YOU NEED AN ALIGNMENT PATTERN"YN$:104:Z$"N"6450,:(8)W-' X HO  O LAREADY A  Q  &LAN >Q 5 A L2A Q LBRUNHI A  X M $L/B & Q  'L_( XL:BREC# 5B  -O rLZBNAME / COMPANY KB  =N JR O  ~L{B= yB  1 =N JR M  ~ M Q Q  M L@Z, @  L aL@,0,Z @  |Q  Q L@BSAVER,A2051,L4013 @  Q L'ABSAVEC.OBJ,A6064,L14920 A  X HO  Q  O LhAREMOVE NEW DISK FROM DRIVE 1! JA  LA& REPLACE ORIGINAL DISK INTO DRIVE 1! yA  ES ?  L?% AND PROGRAMS WHICH ARE ON THE DISK. ?  L@ DO YOU STILL WISH TO CONTINUE ?  Q  &L/@N >Q 5 -@ L_( X N M HO  O Lh@ INITIALIZING! Z@  Q L@INITHI |@  " Q  P  Q  P  Q  N L>!REMOVE CURRENT DISK FROM DRIVE 1! >  O L?INSERT NEW DISK INTO DRIVE 1! >  ' X =N JR -O  ~ Q  1 O LT?WARNING! K?  O Lq?======== h?  Q  L?% INITIALIZING WILL DESTROY ALL FILTHE CURRENT =  L=DISK IS =  L L c LN aL=. =  L">#ENTER THE NUMBER TO BE USED FOR THE =  LN>FIRST RECORD ON THE NEW DISK. 0>  =N M O M w L $Ly> LN L L a L>N >Q 5 > L= X ?O  =N JR O  ~ M Q Q  M sQ Q o 1 JR =N JR O  ~ M Q L<: <  M qQ  M qQ  N  M O Q L0=: -=  M O qQ  1 JR L mN (Ls= Q Lh=PR#0 c=  L mN $L= ` X & L=%THE LAST RECORD NUMBER ON HQ  oO   Q L;PR#0 ;  L_( FC Q L;PR#1 ;  ?O  L <90N <  tP   L :N L 7N $L^< Q Q  )Q LJ< / F<  Q  Lp<Record Number a<  L L c LN a =N R )P  L<- <  1 Q @Q Q Q  >Q  UN (L: M ML; M P L !! >Q  >Q  ;M  Q  Q  n M aN  -O Q  -O Q  O  ?O Q  O L M $L; L :N L oO   Q Q Lg;Page a;  L ^L; / Customer/Client File / x;  Q  1 LRPHONE 1 TELEPHONE 2 9  =N JR XN ;M  ~L9- 9  1 L9 9  =N JR M  ~L:- :  1 L): &:  P  P LC: @:  P  P  =N LR M  ~ M P Q @Q M P 3Q Q MML: M P 3Q @Q M P Q Q >Q Q P  )Q L8 Telephone Directory / 8  Q  =N JR O  ~L8= 8  1 P  P >M N ML)9NAME $9 @QL<9COMPANY 49 Q MML{9LW9COMPANY O9 @QLg9NAME b9 Q GP >M N M >Q  >Q  ;M  Q  Q  n M L9 TELEM  =N 4  uL M :N P M  =N 4  rL (LG8 M P @Q M P M :N P o M :N P >Q o M P >M M P M :N P o M :N P AM o =N wML?8. =8  1 JR zML17LY8. W8  Q Q  =N L Q L8PR#1 |8  ?O  L8130N 8  P   ~ M P M o M P M Q o MML6 M P M 3Q o 1 =N JR M  ~L6 M P 6 L7 M P P  o L$7. "7  1 N wM =N JR =N L  ~ =N LR M P   ~ M P M  =N 4  uL M :N P M  =N 4  rL $L7 1 LRLG8 M P L N $L5 N L oO   < 1 R HQ  oO   Q L5PR#0 5  L%4 X HO  O L 6SORT? 6  HO LM61 - NAME (FIELD 1) 76  HO Lz62 - COMPANY (FIELD 2) d6  =N M dN M  =N ;M JM FC =N JR M 42 - A GROUP OF RECORDS 4  O L43 - ALL RECORDS 4  M |N $L.5 O L#54 - TELEPHONE DIRECTORY  5  =N M N M M |N LN5 sN M  8M L M |N ` AM r5{556 0 ;L+4 1 #L%4 =N R M  ~ !! L 7N $L5 ;L5L3 O   LN YM \ML1L3 N M O M w L $L3 O   L1 _M TQ Q o _M N (L1 M UN ` #L/ N L X & M $LN4 Q  'L_( O Lf4YOU MAY PRINT: W4  O L41 - A SPECIFIC RECORD NUMBER }4  O L ~ M P L $L3 O   O  ?O L2FIELD 2  L aL3 ALREADY USED! 2  'L1 _ML!3 1 _M IN \M P L o LG3ENTER ' ?3  L Q Lr3' COMPARISON VALUE: ^3  L N $L3 L P M L3 Q 5 3 L 8Z?L 8ZAL 8  CZ 8  YZ8ZwL 8ZyL 8  {Z-$T8U L 8UL 8UL 8UL 8  U-8WqL 8WsL 8WuL 8WwL 8WyL 8W{L 8W}L 8WL 8  W-8YL 8YL 8  Y 8YL 8YL 8  Y8ZL 8ZL 8ZL 8  Z8Z=:L LLdLCL LEL LGL LIL LKL LMLdLRL LTL LVL LXL LZL L\L L^L L`L LbL LdL LfL LhL LjL LlL LnL LpL 8  \R-8  T 8  KL KL KLdKLdLLdLL L LdLLdLL LL LL LL LLdL L L"L L$L L&L L(L L*L L,L L.L L0L L2L L4L L6L L8L L RFL RHL RJL RLL RNLdRUL RWLdKL KL KLdKL KL KLdKL KLdKLdKL KLdKLdKLdRLdRLdRLdRLdR!L R#L R%LdR*LdR/L R1L R3L R5LdR:L RL R@L RDLK BRUNC.OBJ K  Lc @@@ $` (P0%'F( * , ,L 0CO2t069Z:;\^_QL QLdQLdRL ' P  QLJ LLJLJ L pN Q ' J  P Q L  P  Q M P Q o ` }P D >M X HO  AM N $ ~L AM 'O $Q L_K -O LQKI/O ERROR! CHECK DRIVES! 8K  LK N LvK ERROR NUMBER hK  AM ^LK HAS OCCURRED! K  ' Q LJR` %N M %N L Q  >M =N JR AM  ~LI, Q M  =N 4 I LJ L $LJ =N M n LLFJLJ, Q M  =N 4 J R LFJ M M AM :N M 1 MR LJL^J L pN ~L L M c sN L Q L  L 1 \J  P Q L  P  P Q M 1 JR MMLH =N qQ Q I =N sQ Q o =N JR M  ~ >Q  Q LHPR#1 H  ?O  LI99N I  6O  =N qQ  6O  XN qQ  6O  N qQ  6O  N qQ LjI, fI  N qQ  .N  O qQ  Q LIPR#0 I  1 6O LGMLMLMLMLMLML, ML G  .N LG00000 G  Q LGPR#0 G  LF X HO L9H#HOW MANY OF EACH LABEL DO YOU WISH? H  N M O M w L M M $LE L FN $ ~L L mN $Q ` =N JR O  ~ M Q Q  M sQ Q o JMLFY >Q 5 F LF =N JM FC X HO LF DO YOU NEED AN ALIGNMENT PATTERN F  Q  &LGN >Q 5 G L H Q L6GPR#1 1G  ?O  LQG99N MG  =N JR N  ~ 6O LyGML vG  =N LR O  ~LGML G  1 1 N LEPAGE E  L ^ 1 oO   Q LEPR#0 E  L_( X & M $L"F Q  'L_( N4 AM 2F>FGF 0 iF HLE 1 #LE iF =N R M  ~ !! H 1 RLE X HO  N LFREVERSE NAMES IN FIELD 1 {F  Q  & N  P LD D  P  P  P  P LD D  P  P  P  P  =N JR M  ~ L M c LN  @Q M Q Q  >Q  >Q  *O  Q  M 3Q Q  M Q  DP  Q  M QO $ ~L L P TO M $Q LE L :N L oO   O LC PRINTING! C  M N ` =N L Q LCPR#1 C  ?O  LD99N D  Q Q  Q  Q Q  )Q L@D Summary 7D  =N JR O  ~LaD= _D  1 LD RECORD NAME tD  P LDADDRESS 1 (COMPANY) D L c LN a -O r Q  M 3Q Q  -O r Q  N D O LB ' X 1 JR oO LC PRINT THIS C  Q  &L3CN >Q 5 1C L_( X HO  N $LC HO LqC PRINTER READY cC  Q  & LN NLCN >Q 5 C LFC X HO N:Z$(I)""Z$(I)(95)##N ".";:p#P CH0:I1TN1:J1(Z$(I)):((Z$(I),J,1))((Z$(I1),J,1))ĂJ:3412#R ((Z$(I),J,1))((Z$(I1),J,1))Z$Z$(I):Z$(I)Z$(I1):Z$(I1)Z$:ZZ(I):Z(I)Z(I1):Z(I1)Z:CH1:".";:#T I:CH3408#V "."$Z U1İ3500:3314!" C6C0:(12)+" 3520Q" RN::ND$:(12):D$"PR#0":3000"H :(10):18)"SORT?"::10)"1 - NAME (FIELD 1)"::10)"2 - COMPANY (FIELD 2)":MN1:MX2:110:EZ1:5050"J I1TN:Z(I)I:Z$(I)NA$(I):EZ$(I)CO$(I)#L :I1TF3ĺ7)"4 - TELEPHONE DIRECTORY"9! MN1:MX4:F3MX3N! 110:F2Z:F3ıi! Z3100,3200,3300,3400! *** SPECIFIC RECORD ***!& 2004:3500:3002! *** SEARCH & PRINT ***! 2012:300:3000! *** ALL RECORDS *** " RN1TN:240:RNа140:Mĺ(7):2013. CQ$(CF)M$:CF52013: F2ıI 300:2000k C0: *** PRINT FILE(S) *** :410::TNĺNO$:420:920!! 13)"YOU MAY PRINT:"::7)"1 - A SPECIFIC RECORD NUMBER":7)"2 - A GROUP OF RECORDS":7)"3 - ALL RECORDS":3MCF2062_CFāI1CF:MCF(I)ĺ(7):(21):9)"FIELD "M" ALREADY USED!":420:2013iCFĂ~CFCF1:CF(CF)M::"ENTER '"A$(M)"' COMPARISON VALUE:":M62050MLML(M):120:M$" "ĺ(7):CFCF1:20132060 MN0:MX99999:R RECORD NUMBER:":MN0:MXSNTN1:140:MSNĺ(7):2004KRNMSN1:240VF2ıf1530:2000oCF0:"SELECT COMPARISON FIELD "CF1:CFĺ:"(IF DONE PRESS )":I114:4)I7)"- "A$(I):MN0:MX14:140:MCFĺ(7):201***EXAM/EDIT***5CH0::410::TNĺNO$:420:9206)"YOU MAY RECALL A RECORD BY:"::6)"1 - SPECIFIC RECORD NUMBER"::6)"2 - SPECIFYING COMPARISON DATA":MN1:MX2:110Z120128:(10):"RECORDS THIS DISK ARE "SN" -> "SNTN1::"ENTE,J:(10):BP$10)"READY TO FILE"YN$:104=LZ$"Y"1650_P(13):14)BP$"ABORT"YN$:104qQZ$"Y"F1ıRZ$"Y"920T1530r *** FILE DATA ***tF1TNTN1:RNTN|:(10):17)"FILING!"~210:250F1ı1000 I3)"-"A$(I)": "U$:"1026#Z$"Y"F1CH1ıG$Z$"Y"1600r.:WL$:MN0:MX14:140:Mĺ(7):15302CH1:E21:M1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140:E20:1530@ *** READY TO FILE? ***BCHF1ıML28:120bAD$(12)M$:E2ıAj:"USER FIELD 4:":ML28:120VlAD$(13)M$:E2ıxt:"USER FIELD 5:":ML28:120vAD$(14)M$:E2ı *** PROOF READ ***:"RECORD NUMBER "SNRN1":":I140:"=";::I114U$AD$(I):190ı*8:"TELEPHONE NUMBER 1:":ML12:120>:AD$(8)M$:E2ıfB:"TELEPHONE NUMBER 2:":ML12:120zDAD$(9)M$:E2ıL:"USER FIELD 1:":ML28:120NAD$(10)M$:E2ıV:"USER FIELD 2:":ML28:120XAD$(11)M$:E2ı `:"USER FIELD 3:":(STREET):":ML24:120)AD$(3)M$:E2ıC:"CITY:":ML16:120WAD$(4)M$:E2ı:"STATE (ABBREVIATION):":ML2:120AD$(5)M$:E2ı$:"ZIPCODE:":MN0:MX99999:140&AD$(6)M$:E2ı.:"ATTENTION:":ML20:1200AD$(7)M$::E2BE RECORD NUMBER "RN$::" WHICH METHOD DO YOU WANT TO USE:"::12)"1 - DIRECT INPUT"::12)"2 - PROPORTIONAL":MN1:MX2:110:"NAME:":ML20:120AD$(1)M$:E2ı:"ADDRESS 1 (COMPANY):":ML24:120AD$(2)M$:E2ı:"ADDRESS 2 8*L 8*L 8* L 8*"L 8*$L 8*&L 8*(L 8**L 8*,L 8*.L 8*0L 8  2*8*PL 8*RL 8  T* 8*jL 8*lL CLOSE ( 5 [  (LzREAD ( 5 u  2)LWRITE ( 5   )LDELL &L &L &Ld&L &L &L &L &L &L &L &L &L &L &L &L &L &L &L &L &L 8  )8  ) 8*L 8*L 8*L 8*L 8*L!$ , 09:;\^_)YLd)^Ld)cLd)hLd)mLd)rLd)wLd)|Ld)Ld)Ld&L &L &Ld&L &L &Ld&L &L &"SCREEN OR REQUEST A PRINTED COPY FOR":"THIS PURPOSE."::"WHEN ALL TYPOGRAPHICAL ERRORS HAVE BEEN"3"CORRECTED, YOU SHOULD THEN ALLOW THE":"PROGRAM TO FILE THE DATA TO THE DISK IN":"DRIVE 2, (THE 'STORAGE' DISK).":4"ONCE THE INITIAL RECORDLUES IN RESPONSE TO EACH."::Pİ420:2"ONCE YOU HAVE ENTERED A VALUE FOR EACH":"OF YOUR ACCOUNT NUMBERS, THE PROGRAM":"WILL THEN ALLOW YOU TO 'PROOFREAD' ALL":"YOUR INPUT AND MAKE CHANGES AS NEEDED."::"YOU MAY 'PROOF' THE DATA EITHER ON THE"g3 RETURN TO THE PROGRAM AND":"USE FUNCTION <1> TO ENTER THE NEW DATA.":1"THE PROGRAM WILL PROMPT YOU FOR THE":"INPUT FOR EACH ACCOUNT NUMBER IN THE":"SAME ORDER THAT IT APPEARS ON YOUR":"WORKSHEET AND ALL YOU NEED DO IS ENTER"'2"APPROPRIATE VA"0"FUNCTION <6> OF THE 'INITIAL MENU'."::"THESE WORKSHEETS PROVIDE A COMPLETE":"SUMMARY OF ALL THE ACCOUNTS THAT ARE":"CURRENTLY ACTIVE. (IF YOU WANT TO SEE"H1"THESE, USE FUNCTION <3>)"::"ONCE THE WORKSHEETS HAVE BEEN COMPLETED":"YOU SHOULD"IN WHICH METHOD ARE YOU INTERESTED?":MN1:MX2:110::PĺD$"PR#1"V/Z7104,7150:0"THE CREATION OF A BUDGET VIA 'DIRECT":"INPUT' OF NEW VALUES IS INITIALLY BEGUN":"BY MANUALLY COMPLETING THE WORKSHEETS":"FOR THIS METHOD THAT ARE PRODUCED UNDERMN1:MX2:110:Z2P1I.\:F17100,7200,7300,7400,7500:D$"PR#0":920.9)HE$(1):470::"A NEW YEAR'S BUDGET MAY BE INITIALLY":"CREATED BY EITHER OF TWO METHODS:":C/" 1 - DIRECT ENTRY OF NEW VALUES"::" 2 - PROPORTIONAL ADJUSTMENTS"::42IC5442CC1:(12):36)"PAGE "C:E-(:(12):D$"PR#0":920-XP0:410::5)"IN WHICH AREA DO YOU NEED HELP?"::I15:8)I" - "HE$(I)::MN1:MX5:110:F1Z.Z:(10):9)"DO YOU WANT THIS SENT TO:"::15)"1 - SCREEN"::15)"2 - PRINTER":R#1":(9)"99N"#,U$H1$:190:U$T,:U$H1$:190:CC$" Summary":I176:"=";:,:"RECORD NAME"22)"ADDRESS 1 (COMPANY)", L$" "L$L$L$L$" "L$L$L$L$)-I1TN:Z$(SNI1):U$NA$(I):190:Z$8(Z$))U$;:U$CO$(I):190:26(NA$(I)))U$:I"=";:::I1TN:U$NA$(I):190:ISN1;8)U$:U$CO$(I):190:8)U$::(37)18İ420:+I::12)"PRINT THIS"YN$:104:Z$"N"920+:(10)+PRĺ10)"PRINTER READY"YN$:104:PR1:Z$"N"5050+:(10):16)"PRINTING!"+F5ı,C1:D$"P051,L4013":D$"BSAVEC.OBJ,A6064,L14862"*:(10):BP$6)"REMOVE NEW DISK FROM DRIVE 1!"::" REPLACE ORIGINAL DISK INTO DRIVE 1!":420:D$"RUNHI"* *** DISPLAY SUMMARY ****:TNİ410::NO$:420:920V+:"REC#"8)"NAME / COMPANY":I139:==")BP$:" INITIALIZING WILL DESTROY ALL FILES"::" AND PROGRAMS WHICH ARE ON THE DISK."::" DO YOU STILL WISH TO CONTINUE"YN$:104:Z$"N"920'*:TN0:(10):14)"INITIALIZING!":D$"INITHI":270:OP$F1$:WR$F1$:"Z,"M",0,Z":CL$:D$"BSAVER,A2BE USED FOR THE":"FIRST RECORD ON THE NEW DISK.":MN1:MX999699:140:MM1](::M:102n(Z$"N"4000(:(9):BP$4)"REMOVE CURRENT DISK FROM DRIVE 1!"::6)"INSERT NEW DISK INTO DRIVE 1!":420):I18:BP$::16)"WARNING!":16)"======D$(I):190:U$(I)U$:I:I17:A$(I)": "U$(I)32(U$(I)))A$(I7)": "U$(I7):Ic' F23ĺD$"PR#0"o' F23ĺu' ' *** INITIALIZE NEW DISK ***':410::"THE LAST RECORD NUMBER ON THE CURRENT":"DISK IS "SNTN1"."M(:"ENTER THE NUMBER TO Page "C" / Customer/Client File / "U$:.&d JO&f :ND$:(12):D$"PR#0":920n& *** PRINTING ROUTINE ***x& 5050& D$"PR#1":(9)"90N"(30)& CC1:C1U$H1$:190:CC$" / "U$:& "Record Number "RNSN1;:W157:"-";::O' I114:U$AY:"-";::" "L$L$" "L$L$_%^ J1TN:Z$NA$(Z(J)):Y$CO$(Z(J)):EZ$CO$(Z(J)):Y$NA$(Z(J))%_ U$Z$:190:Z$U$:U$Y$:190:(Z$)2JNA:3430%` RNZ(J):240:Z$Z(Z$))U$Y(Y$)2)AD$(8)14(AD$(8)))AD$(9)'&b I50CCC1:(12):U$H1$:190:"$H1$:190:C1:D$"PR#1":(9)"130N"P2$P3$:CC$" Telephone Directory / "U$:I176:"=";:::P4$:Z22:Y26:Z$"NAME":Y$"COMPANY":EZ$"COMPANY":Y$"NAME":Z26:Y22$\ Z$Z(Z$))Y$Y(Y$))" TELEPHONE 1 TELEPHONE 2"%] I1Z2:"-";::" ";:I1RECORDS."::"A RECORD WHOSE STATUS IS 'ADOPTED' OR":"'AMENDED' WILL NOT ALLOW REFILING THAT":"RECORD UNDER THE SAME NAME SINCE THESE"GDV"ARE 'SECURE' RECORDS."::"ANY EXISTING RECORD, REGARDLESS OF ITS":"STATUS, MAY BE USED AS THE 'CORE DATA'":"FOENTS), TO A MAXIMUM OF $99,999,999.":"ACCOUNT NUMBERS MAY BE UP TO 3 DIGITS."::"ACCOUNT NAMES MAY BE ANY COMBINATION":"OF CHARACTERS TO A MAXIMUM LENGTH OF 32."BR:Pİ420:CT"EACH 'STORAGE' DISK, (DRIVE 2), WILL":"HOLD A MAXIMUM OF 50 BUDGET 16)HE$(5):470::"MAXIMA:"::" FUNDS = 10":" ASSET ACCOUNTS = 40":" LIABILITIES & FUND BALANCES = 40":" REVENUE ACCOUNTS = 80":" EXPENSE ACCOUNTS = 50":" EXPENSE OBJECT CODES = 70"BP:"ACCOUNT VALUES ARE IN WHOLE DOLLARS,":"(NO CTO USE THESE AS A"@,"BASIS FOR THE DEVELOPMENT OF NEW ONES."::"SO YOU COULD, FOR INSTANCE, RECALL THE":"RECORD FOR THE CURRENT YEAR'S ADOPTED":"BUDGET AND USE IT TO CREATE NEW FILES,":"SAY AS A BASIS FOR NEXT YEAR."@420:@LPĺD$"PR#1"ANTUS CANNOT BE CHANGED AND REFILED":"UNDER THE SAME NAME ONCE THIS STATUS":"CODE HAS BEEN ASSIGNED."@*:"THE EFFECT OF THESE RESTRICTIONS IS TO":"INSURE THAT THE RECORDS OF YOUR ADOPTED":"AND AMENDED BUDGETS WILL REMAIN INTACT":"WHILE ALLOWING YOU OR":"NOT YOU ARE ALLOWED REFILE A RECORD":"THAT YOU HAVE EDITED OR CHANGED.":>'"A 'PROPOSED' BUDGET MAY BE RECALLED,":"CHANGED AND REFILED UNDER THE SAME OR A":"DIFFERENT FILE NAME.":Pİ420:e?("A RECORD WITH AN 'ADOPTED' OR 'AMENDED'":"STAGET":"THAT IS FILED ON THE 'STORAGE' DISK":"CURRENTLY IN DRIVE 2.":=$"A 'STATUS' CODE IS ASSIGNED TO EACH":"EXISTING BUDGET RECORD WHICH IS EITHER:"::" 1 - PROPOSED":" 2 - ADOPTED":" 3 - AMENDED":Q>&"THE STATUS CODE DETERMINES WHETHERRY BUDGET RECORD THAT YOU MAY":"RECALL USING FUNCTION <2> AND REVISE":"AS NEEDED UNTIL YOU'RE SATISFIED WITH":"THE VALUES IN ALL ACCOUNTS."< (12):Pİ420<<420:< PĺD$"PR#1"F="9)HE$(2):470::"YOU MAY RECALL THE DATA FOR ANY BUDVALUES.";:"WHEN THIS IS DONE, THE PROGRAM WILL":"READ IN ALL VALUES FROM YOUR CURRENT":"BUDGET, APPLY THE GIVEN FACTOR, AND":"FILE THE NEW BUDGET RECORD TO THE":"'STORAGE' DISK IN DRIVE 2."<:"IT'S THAT SIMPLE! YOU NOW HAVE A PRE-":"LIMINATAGE FACTOR,":"THE PROGRAM WILL THEN ASK WHETHER THE":"EXISTING BUDGET VALUES ARE TO BE (1)":"INCREASED OR (2) DECREASED BY THE GIVEN";"PERCENTAGE. YOU SHOULD PRESS EITHER":"THE <1> KEY FOR 'INCREASE' OR THE <2>":"TO SIGNIFY A 'DECREASE' IN ALL HOWEVER, YOU":"MAY USE DECIMALS TO ENTER SAY, 7-1/2%"9"WHICH WOULD BE ENTERED AS <7.5>."::"IF YOU JUST WANT TO REPEAT LAST YEAR'S":"BUDGET, YOU WOULD SIMPLY ENTER <0> AS":"THE ADJUSTMENT PERCENTAGE."::Pİ420::"HAVING ENTERED THE PERCEN PER-":"CENTAGE VALUE YOU WISH TO USE."::"THIS SHOULD BE ENTERED AS THE VALUE"8"OF THE ACTUAL PERCENTAGE AND NOT AS ITS":"DECIMAL EQUIVALENT. FOR INSTANCE, IF":"YOU WANT TO USE A 5% FACTOR, YOU WOULD"89"ENTER <5> AND ";::"NOT";::" <.05>.ALISTIC FOR":"EVERY ACCOUNT.":420::"SINCE THE PROGRAM ONLY NEEDS TO KNOW":"THE PERCENTAGE VALUE TO BE APPLIED TO":"EACH ACCOUNT VALUE, NO WORKSHEET IS"Q8"PROVIDED."::"SHOULD YOU SELECT THIS METHOD, THE PRO-":"GRAM WILL PROMPT YOU FIRST FOR THEPENDITURES.":6"THIS METHOD MAY BE USED TO CREATE THE":"INITIAL BUDGET BY EVERY TOWN, BUT THE":"FINAL OUTPUT SHOULD THEN BE CAREFULLY":"CONSIDERED. THIS 'ACROSS-THE-BOARD'":"TYPE OF ADJUSTMENT CAN RESULT IN BUDGET"7"VALUES THAT MAY NOT BE REITY'S REVENUES AND EXPENSES ARE":"RELATIVELY STABLE."::"A NEW BUDGET IS DERIVED BY APPLYING AN"6"INCREASE OR DECREASE FACTOR, (WHICH YOU":"SPECIFY), TO THE VALUES FOR EACH ACTIVE":"ACCOUNT NUMBER FOR THE CURRENT YEAR'S":"BUDGETED REVENUES AND EX OF A BUDGET HAS":"BEEN CREATED, YOU MAY THEN RECALL IT BY":"USING FUNCTION <2> AND USE THIS TO RUN":"ANY NUMBER OF 'WHAT-IF' ANALYSES."4(12):Pİ4204b5"CREATING A NEW BUDGET VIA THE 'PROPOR-":"TIONAL' METHOD ASSUMES THAT YOUR":"COMMUNR ANY PURPOSE, FOR INSTANCE, AS THE":"BASIS FOR AN 'IMPACT' ANALYSIS."PD420mD' *** ERROR HANDLING ***D'Z(222)::(10):Z6Z8ĺ8)"I/O ERROR! CHECK DRIVES!":10050D$'5)"ERROR NUMBER "Z" HAS OCCURRED!"DB'420:D$"BRUNC.OBJ"HEN":RD$D$z!#     ҠîϠ)îʠ<ծʠĠ>ɠîʠ9à*ՠ àؠŠ SK FROM DRIVE 1!"::" REINSERT THE NEW DISK INTO DRIVE 1!":(23):5)"(PRESS TO CONTINUE!)":Z$:Z$:(7):Z$:Z$:(4)"SAVEHI" 1012,0:(4)"MAXFILES1":(4)"BLOADR"(13)(4)"BRUNC.OBJ"(13)[::Z$(45):I1242:Z$;::" COMPILED CUSTOMER/CLIENT PROCESSOR ";:I1253:Z$;:" COPYRIGHT 1983 ";:I165:Z$;::" PROFLO, INC. ";:I165:Z$;::" SALT LAKE CITY ";:I1173:Z$;:: (1012)ė:(10):(7)" REMOVE THE ORIGINAL DI SK FROM DRIVE 1!"::" REINSERT THE NEW DISK INTO DRIVE 1!":(23):5)"(PRESS TO CONTINUE!)":Z$:Z$:(7):Z$:Z$:(4)"SAVEHI" 1012,0:(4)"MAXFILES1":(4)"BLOADR"(13)(4)"BRUNC.OBJ"(13)Z[::Z$(45):I1242:Z$;::" COMPILED CUSTOMER/CLIENT PROCESSOR ";:I1253:Z$;:" COPYRIGHT 1983 ";:I165:Z$;::" PROFLO, INC. ";:I165:Z$;::" SALT LAKE CITY ";:I1173:Z$;:: (1012)ė:(10):(7)" REMOVE THE ORIGINAL DI :"ADDRESS 1 (COMPANY):":ML24:1208AD$(2)M$:E2ı`:"ADDRESS 2 (STREET):":ML24:120tAD$(3)M$:E2ı:"CITY:":ML16:120AD$(4)M$:E2ı:"STATE (ABBREVIATION):":ML2:120AD$(5)M$:E2ı$:"ZIPCODE:":MN0:MX99999:* ENTER NEW DATA ***,I114:AD$(I)""::410:RNTN1:RN$(RNSN1)::TN300ĺBP$:"NO SPACE! 300 RECORDS CURRENTLY ON FILE!":420:9206((RN$)2))"THIS WILL BE RECORD NUMBER "RN$:420:"NAME:":ML20:120AD$(1)M$:E2ı$"920 ! *** STARTUP ***f:E0:200:Eė:(10):7)"PLEASE INSERT PROPER DISK!":420:910F0:410:I16:9)I" - "RO$(I)::(23):5)"( LOGS IN NEW DISK!)"MN1:MX6:110FZ:Z1000,2000,3000,4000,5000,6000 **OUND!":420:# *** HEADING ***h::(19):"CCCP"::18)"===="::U$H1$:190:20((U$)2))U$(8)::(21((RO$(F))2)):RO$(F):::18)"****":: *** PRESS SPACE BAR ***(23):5)"(PRESS TO CONTINUE!)":Z$:Z$:Z$"ZS1F6İ6400!<S1F6İ6500*=322F>CH0::(10):RNTN324r@9)"CONTINUE SEARCH"YN$:104:Z$"N"ıBRN:F3SĺD$"PR#1"::ND$:(12):D$"PR#0"DSė:(10):12)"SEARCH COMPLETE!":420: F:(10):" NO RECORD WITH MATCHING DATA F1RN1TN:SS0:240:X1CF:P(CQ$(X)):Z1(AD$(CF(X)))P1:CQ$(X)(AD$(CF(X)),Z,P)SSSS1:307m2Z3X:SSCF3224SS1:F2İ1530:3185S1F3C6C0:D$"PR#1":(9)"99N":(12):3520:3226S1F3İ35188S1F3İ3500:288,D1":WR$F$",R"RN:I314:AD$(I)::299Z$"MISC":OP$Z$",D1":WR$Z$:H1$","WL$","ND$","NO$","BP$","CL$","WR$","F$","F1$","L$","YN$","CC$:I06:RO$(I)::I114:A$(I)","ML(I):+CL$:, *** SEARCH ***0S0::(10):15)"SEARCHING!"fWR$F1$:"Z,"SN","TN",Z":TN299cNA$(RN)AD$(1):CO$(RN)AD$(2):I1TN:NA$(I)","CO$(I)::299~ *** READ FILE ***OP$F$",L288,D1":RD$F$",R"RN:I314:AD$(I)::AD$(1)NA$(RN):AD$(2)CO$(RN):299 *** WRITE FILE ***+:OP$F$",L(U$,P1)";"(U$,P1)H(U$,P,1)(92)U$(U$,P1)":"(U$,P1)QP:p *** READ NDX FILE ***OP$F1$",D1":RD$F1$Z$,SN,TN,Z$:Z$"Z"E1:299TN299I1TN:NA$(I),CO$(I)::299***WRITENDXFILE***!OP$F1$:152 M$M$Z$T M(M$):MMNMMXĹ36,0:(7);:Z1(M$):(32);::36,0:141f (M$)MLĺ:o 142 *** SUBSTITUTE COMMAS AND SEMICOLONS *** (U$)2ı P2(U$):(U$,P,1)(94)U$(U$,P1)","(U$,P1)(U$,P,1)(95)U$ML((MX)):ML)"!" M$""C Z$:Z$(13)M$""M$" ":M0U Z$(13)ĺ:e Z$"Z"920 Z$(57)Z$(48)Z$(8)ĺ(7);:142 Z$(8)(M$)142 Z$;:Z$(8)(M$)2ĺ(32)(8);:141 Z$(8)M$(M$,(M$)1):(32)(8);:1+ }Z$(8)(M$)1ĺZ$;:" ";:Z$;:121N ~Z$(32)Z$(8)ĺ(7);:122 Z$;:Z$(8)M$(M$,(M$)1):(32)(8);:122 Z$(44)Z$(94) Z$(59)Z$(95) Z$(58)Z$(92) M$M$Z$:(M$)MLĺ: M$"ZZZ"920 122 Z$:Z$; pZ$(90)9203 qZ$(32)Fĺ:910E rZ$(32)119` tZ$(48)Z$(57)119{ uZ(Z$):ZMNZMX119 v: w(7)(8)(32)(8);:111 xML)"!" yM$"" zZ$:Z$(13)M$""M$" " {Z$(13)ĺ: |Z$(8)(M$)112CL$,WR$,F$,F1$,L$,YN$,CC$:I06:RO$(I)::I114:A$(I),ML(I)::CL$O 2900p f:"IS THE ABOVE CORRECT"YN$ hZ$:Z$;:Z$"Z"920 iZ$"Y"Z$"N"ĺ(32): jZ$(32)ĺ(7);:104 k(7)(8)(32)(8);:104 n *** GET SINGLE NUMBER *** o(N !INTEGERC,CH,E,E2,F,F1,I,J,ML,ML(14),MN,NL,P,PP,Q,RN,S,SS,TN,Z,Z(301)Z10000 AD$(14),A$(14),NA$(301),CO$(301),ML(14),U$(14),Z$(301),Z(301)D$(4)OP$D$"OPEN":RD$D$"READ"F (Z$"MISC":OP$Z$",D1":RD$Z$:H1$,WL$,ND$,NO$,BP$,               Y!!":I1500::E1:N(23):5)"(PRESS TO CONTINUE!)":Z$:Z$:[E(222):(10):5)"ERROR NUMBER "E" HAS OCCURRED!"420:D$"BRUNSV.OBJ,A6064"JEAD":WR$D$"WRITE":DE$D$"DELETE"R WL$"WHICH LINE WOULD YOU LIKE TO CHANGE?141(M$)MLı142+(U$)ıfP1(U$):(U$,P,1)(94)U$(U$,P1)","(U$,P1)(U$,P,1)(95)U$(U$,P1)";"(U$,P1)(U$,P,1)(92)U$(U$,P1)":"(U$,P1)P:BP$:"INVALID INPUT! PLEASE VERIFY AND RETRZ$(13)ĺZ$:;Z$(57)Z$(48)Z$(8)ĺ(7);:142SZ$(8)(M$)142Z$;:Z$(8)(M$)2ĺ(32);:(8);:141Z$(8)M$(M$,(M$)1):(32);:(8);:152M$M$Z$M(M$):MMNMMXĹ36,0:(7);:Z1(M$):(32);::36,0:2)Z$(8)ĺ(7);:122NZ$;:Z$(8)M$(M$,(M$)1):(32);:(8);:122eZ$(44)Z$(94)|Z$(59)Z$(95)Z$(58)Z$(92)M$M$Z$:(M$)MLı122ML((MX)):ML)"!"M$""Z$:Z$(13)M$""M$" ":M011tZ$(48)Z$(57)ĺ(7)(8)(32)(8);:111auZ(Z$):ZMNZMXĺ(7)(8)(32)(8);:111gvtxML)"!"~yM$""zZ$:Z$(13)M$""M$" "{Z$(13)ĺZ$:|Z$(8)(M$)1121}Z$(8)(M$)1ĺZ$;:" ";:Z$;:121~Z$(39 JF$"C.OBJ":DE$F$:D$"RENAMET,"F$:D$"BRUN"F$",A6064"Z f:"IS THE ABOVE CORRECT"YN$g hZ$:Z$; iZ$"Y"Z$"N"ĺ(32): jZ$(32)ĺ(7);:104 k(7)(8)(32)(8);:104 n *** GET SINGLE NUMBER *** oZ$:Z$;rZ$(32)ĺ(7);:11$"N"32 .H1$M$G D:(10):10)"READY TO FILE"YN$:104:Z$"N"32 FZ$"MISC":OP$Z$:WR$Z$:H1$","WL$","ND$","NF$","BP$","CL$","WR$","F$","F1$","L$","YN$","CC$:I06:RO$(I)::I114:A$(I)","ML(I)::CL$ HOP$"NDX":WR$"NDX":"Z,1,0,Z":CL$AME. YOU MAY USE ANY"::"COMBINATION OF CHARACTERS TO A MAXIMUM"::"OF 36, AS SHOWN BY THE '!' BELOW."w (ML36:120 *I1(M$):(M$,I,1)(33)Ă:(7):(18):6)"YOU MUST ENTER AT LEAST ONE"::10)"PRINTABLE CHARACTER!":420:32 ,:M$:102:Z20,12,12,28,28,28,28,28, I06:RO$(I): "SELECT FUNCTION","ENTER NEW DATA","EXAM/EDIT EXISTING","PRINT RECORD(S)","INITIALIZE NEW DISK","DISPLAY SUMMARY","PRINT MAILING LABELS"h :(8):"SINCE THIS IS YOUR FIRST USE, YOU MUST"::"ENTER YOUR N":ND$"///"(95)" E N D ///"(95):NF$" THERE ARE CURRENTLY NO ACTIVE RECORDS!"g I114:A$(I):  "NAME","ADR1","ADR2","CITY","ST ","ZIP ","ATTN","TEL1","TEL2","USR1","USR2","USR3","USR4","USR5" I114:ML(I): 20,24,24,16,2,5, 1000&A$(14),ML(14),MX(11)sF$"FILE":F1$"NDX":L$"------":YN$"? (Y/N)":CC$"Customer/Client File"D$(4):BP$(7):OP$D$"OPEN":CL$D$"CLOSE":RD$D$"READ":WR$D$"WRITE":DE$D$"DELETE"R WL$"WHICH LINE WOULD YOU LIKE TO CHANGE?     ˍ٠ٍԠǠӍŬұҲ٬ԠРά̱̲ұҲҳҴҵ̱̲ұҲҳҴҵҠŠũȠŠĠՠŠϠſߠŠΠĠ߬ŠŠ٠ϠŠӡŬŬŬجٯΩԠ΍ҠנͯԠǍԠĨөŠנ ڬڍޠΠʮӠĠӍޠ̠ӮύޠӠʮӭҭӍӭҭӍî ԠܠΠԠԍԍԍ͠ޠҮŠӯ̧΍ӠҠޠӠޠԠܠЍȠŠō٠ȍ؍͍ōӠҠޠޠӠԠܠҠԠܠΠ͠ԍōԍōӠҠޠޠӠԠܠ ԠܠΠЍЍ      L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH` ,խwqq膸 J즸 , hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hwУ8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! 5Bē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8oph0L8 MLh8HH`BUUȥViлh8HH`З{y SՠUEowyywxzzxwIy:e \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤh.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH     (1)M$:E2ı5:"ADDRESS 1 (COMPANY):":ML24:120IAD$(2)M$:E2ıq:"ADDRESS 2 (STREET):":ML24:120AD$(3)M$:E2ı:"CITY:":ML16:120AD$(4)M$:E2ı:"STATE (ABBREVIATION):":ML2:120AD$(5)M$:E2ı$:"ZIPCODE0,6000% *** ENTER NEW DATA ***=I114:AD$(I)""::410:RNTN1:RN$(RNSN1)::TN300ĺBP$:"NO SPACE! 300 RECORDS CURRENTLY ON FILE!":420:9206((RN$)2))"THIS WILL BE RECORD NUMBER "RN$:420:"NAME:":ML20:120 AD$)":Z$:Z$:Z$"Z"9202 *** STARTUP ***w:E0:200:Eė:(10):7)"PLEASE INSERT PROPER DISK!":420:910F0:410:I16:9)I" - "RO$(I)::(23):5)"( LOGS IN NEW DISK!)"MN1:MX6:110FZ:Z1000,2000,3000,4000,500TCHING DATA FOUND!":420:0 *** HEADING ***u::(19):"CCCP"::18)"===="::U$H1$:190:20((U$)2))U$(8)::(21((RO$(F))2)):RO$(F):::18)"****":: *** PRESS SPACE BAR ***::(23):5)"(PRESS TO CONTINUE!3İ3500:S1F6İ6400.<S1F6İ65007=322S>CH0::(10):RNTN324@9)"CONTINUE SEARCH"YN$:104:Z$"N"ıBRN:F3SĺD$"PR#0"::ND$::D$"PR#0"DSİ420::(10):12)"SEARCH COMPLETE!":420:F:(10):" NO RECORD WITH MA:(10):15)"SEARCHING!"1RN1TN:SS0:240:X1CF:P(CQ$(X)):Z1(AD$(CF(X)))P1:CQ$(X)(AD$(CF(X)),Z,P)SSSS1:3072Z3X:SSCF3224SS1:F2İ1530:3185S1F3C6C0:D$"PR#0":::3520:3226S1F3İ35188S1FTE FILE ***F:OP$F$",L288,D1":WR$F$",R"RN:I314:AD$(I)::299Z$"MISC":OP$Z$",D1":WR$Z$:H1$","WL$","ND$","NO$","BP$","CL$","WR$","F$","F1$","L$","YN$","CC$:I06:RO$(I)::I114:A$(I)","ML(I):+CL$:, *** SEARCH ***0S0:RITENDXFILE***<OP$F1$:WR$F1$:"Z,"SN","TN",Z":TN299~NA$(RN)AD$(1):CO$(RN)AD$(2):I1TN:NA$(I)","CO$(I)::299 *** READ FILE ***OP$F$",L288,D1":RD$F$",R"RN:I314:AD$(I)::AD$(1)NA$(RN):AD$(2)CO$(RN):299  *** WRI1)3(U$,P,1)(95)U$(U$,P1)";"(U$,P1)c(U$,P,1)(92)U$(U$,P1)":"(U$,P1)lP: *** READ NDX FILE ***OP$F1$",D1":RD$F1$Z$,SN,TN,Z$:Z$"Z"E1:299TN299I1TN:NA$(I),CO$(I)::299***W(M$,(M$)1):(32)(8);:152+ M$M$Z$o M(M$):MMNMMXĹ36,0:(7);:Z1(M$):(32);::36,0:141 (M$)MLĺ: 142 *** SUBSTITUTE COMMAS AND SEMICOLONS *** (U$)2ıP2(U$):(U$,P,1)(94)U$(U$,P1)","(U$,PM$"ZZZ"920 1221 ML((MX)):ML)"!"; M$""^ Z$:Z$(13)M$""M$" ":M0p Z$(13)ĺ: Z$"Z"920 Z$(57)Z$(48)Z$(8)ĺ(7);:142 Z$(8)(M$)142 Z$;:Z$(8)(M$)2ĺ(32)(8);:141 Z$(8)M$к: |Z$(8)(M$)1121F }Z$(8)(M$)1ĺZ$;:" ";:Z$;:121i ~Z$(32)Z$(8)ĺ(7);:122 Z$;:Z$(8)M$(M$,(M$)1):(32)(8);:122 Z$(44)Z$(94) Z$(59)Z$(95) Z$(58)Z$(92) M$M$Z$:(M$)MLĺ: * GET SINGLE NUMBER ***$ oZ$:Z$;6 pZ$(90)920N qZ$(32)Fĺ:910` rZ$(32)119{ tZ$(48)Z$(57)119 uZ(Z$):ZMNZMX119 v: w(7)(8)(32)(8);:111 xML)"!" yM$"" zZ$:Z$(13)M$""M$" " {Z$(13)CL$,WR$,F$,F1$,L$,YN$,CC$:I06:RO$(I)::I114:A$(I),ML(I)::CL$:CC$"CUSTOMER/CLIENT FILE"j 2900 f:"IS THE ABOVE CORRECT"YN$ hZ$:Z$;:Z$"Z"920 iZ$"Y"Z$"N"ĺ(32): jZ$(32)ĺ(7);:104 k(7)(8)(32)(8);:104 n **'N !INTEGERC,CH,E,E2,F,F1,I,J,ML,ML(14),MN,NL,P,PP,Q,RN,S,SS,TN,Z,Z(301)Z10000 AD$(14),A$(14),NA$(301),CO$(301),ML(14),U$(14),Z$(301),Z(301)D$(4)OP$D$"OPEN":RD$D$"READ"a (Z$"MISC":OP$Z$",D1":RD$Z$:H1$,WL$,ND$,NO$,BP$,            & N wM X HO  L L $Ls& ?O L%CONTINUE SEARCH %  Q  &L%N >Q 5 % ` 1 R M |N $HR IR Ls& Q L7&PR#1 2&  HQ  oO   Q Lh&PR#0 c&  ML& X HO  oO L&SEARCH COMPLETE! &  ' M |N $Q  ~L L N $Q L% N L Q L$PR#1 $  ?O  L%99N $  oO   Q LA",D1 ="  Q  >Q  Q Lf", d"  ]Q Ly", w"  HQ L", "  Q L", "  Q L ,Z   M $L# L Q =N Q o L 5Q XN Q o =N JR M  ~ M Q L!, !  M 3Q  1 L# Q  gQ L9!,L288,D1 0!  Q  gQ LV!,R S!  L ^ N JR O  ~ ' M Q  o  1 =N Q L Q o XN Q L 3Q oP  Q 1 :R` Q  P L,D1   Q  P  '  @Q  L  L  @Q L Z >Q 5  L% =N JML# M $L# =N JR M  ~ ' M Q  o M 5Q  o  1 L# Q  P  Q  P  L Z,   L aL ,   M ^Q   ~ Q nM  =N 4 P kP  P L L, =N hM Q    P nM :N Q * P  Q Q nM  =N 4 P P  P L_L3; =N hM Q  1  P nM :N Q * P  Q Q nM  =N 4 P YP  P LL: =N hM Q    P nM :N Q *  N   -O  L -O  >Q L Q  u =N Q  Q N   -O  L Q 5 >Q  Q Q  L M ( ~L L M Q L| N > N T O   =N 1R Q   ~ N   1 N > N TL Q  M $L `L Q  UN (` XN :R O  >Q  ~L Q 5  Q LL  Q %N L O  >Q L `LZ >Q 5  L_( )P  >Q 2 ~L O  >Q I L -O  >Q Q Q L[ O  L -O  >Q  ~L Q  $Q L >Q  -O  >Q  ~L Q  UN (Q L -O  >Q L Q  u =N Q  Q N   -O  L fO  >Q L kP  @Q PP  >Q L P  @Q ;P  >Q L9 YP  @Q Q 5 >Q  Q  M $LZ `LaZZZ Q 5 ] L_(L M   M rL!   L  Q  @QLL  Q  @QL O  >Q  ~L Q 5  Q LL  Q O  >Q L  ` -O  >Q  ~L Q  7N (Q L -O  >Q  ~L Q  7N $Q Lu >Q Ld b  >Q L N  >Q I ~L -O  >Q Q L O  L >Q  -O   N   -O  L&  @Q  2P  >Q L_( N  >Q  ~L M $Q L  L ( N  >Q ILp O  >Q I ~L )P  >Q 2Q Lp >Q  5M AM M ( ~L 8M M Q Lp ` O   -O   N   -O  L M rL!   o  1 =N JR O  ~ ' M Q  o M P  o  1 |Q  L ( LIS THE ABOVE CORRECT   Q   @Q L4Z >Q 5 2 L_(LLYLQN >Q 5 J  ~L >Q 5 O Q L N   ` N  >Q IL O  L& O  H: \Q U\ 7J N  !QLOPEN Q 5   QLREAD Q 5   QL MISC  @Q Q  >Q L',D1 #  Q  >Q  '  Q  _Q  JQ  Q  Q  ~Q  Q  iQ  P  P  Q  +Q  N JR O  ~ ' M Q                    AND RETRY!! %  x' ) (   1 ' '` (  ' L&(PRESS TO CONTINUE!) %   (  ` S( D n ' X '  ' LR& ERROR NUMBER D&  ' aLr& HAS OCCURRED! c&  % ( L&BRUNSV.OBJ,A6064 &  Lc !' O)  $  }( $' ' O) ' {(  Q) O) $'  x' 4 }( \(  {( L)%L$; ' !' O)  $  }( $' ' O) ' {(  Q) O) $'  x' 4 }( A(  {( L}%LQ%: ' !' O)  O%  }( $' ' O) ' {(  Q) 1 r)` )  L%(INVALID INPUT! PLEASE VERIFY (  ( c'   '  L# ( 5 (  ( (  & <' ( & ' N' Y) LH$ ' > Z' T '   x' h) (    c'   1 ' > Z' TLt" (  n -' $`L" O)  $` x' r) O)    O) $'  x' 4 }( J(  {( L$L$, 'L"L" " ( l' & '  ( L" (  ` &(  ( 2 & (  ( I & '  ( ^) Y) L'# '  L" '  (  & (  $Y) L" (  '  (  & (  ' (Y) L# c'   '  Lt" '  ( L# (  u x'( L! (  u x' (  ( c'   '  L '  ( L! J(  ( 8(  ( L" \(  ( /(  ( L1" A(  ( ( 5 (  (  n -' $`L Q'   n 0' oLi"! g"  Lx" w" (  (L" '  (  & ( 5 " Y)  (L '  (  & ( 5  Y) L L   ( '  ( L! (  ` '  (  & (  u' (Y) L '  (  & (  u' $Y) Lm! ( L\! Z!  ( L c'  ( I & '  ( Y) L! '  L (  '  '   c'   '  L:  (  c'  ( IL '  L (  ( I & &(  ( 2Y) L; '   '   c'   '  L (  ' <' ( & ' N' Y) L '   '   c'   '  L` 3' oL !   L  ( (  (  ( LRENAMET,   (  ( LBRUN   ( L,A6064   L)IS THE ABOVE CORRECT   &)   ( LHYLMN ( 5 F  & ( 5 K Y) L c'   ` c'  ( IL '  L: '     ( L,   &) L,   (  Z' ) '   E' :)  1 x' ) '   E' ) L&, $  E' e( a 1 (  E) LXNDX T  ) LpNDX l  LZ,1,0,Z ~  (  LC.OBJ  (   &)  :LN ( 5  LLMISC  ( E)  (  )  (  ( L,   ( L#, !  ( L6, 4  ( LI, G  ) L\, Z  ( Lo, m  ) L,   ( L,   ( L,  x' ) (    ( E'  x' 4 }( '  {( IL^ 1 '   (  ' L!YOU MUST ENTER AT LEAST ONE   ' LMPRINTABLE CHARACTER! 8  %L (  LrN ( 5 p L ( ( X '  ' L READY TO FILE UMMARYPRINT MAILING LABELS X ' L&SINCE THIS IS YOUR FIRST USE, YOU MUST   L/ ENTER YOUR NAME. YOU MAY USE ANY   Lg&COMBINATION OF CHARACTERS TO A MAXIMUM @  L!OF 36, AS SHOWN BY THE '!' BELOW. x  ' 0' TEL1TEL2USR1USR2USR3USR4USR5 x' ) '   E' g(  o 1 L$20242416252012122828282828L Z' ) '   E' <)  o 1 LSELECT FUNCTIONENTER NEW DATAEXAM/EDIT EXISTINGPRINT RECORD(S)INITIALIZE NEW DISKDISPLAY SETE ( 5   (L$WHICH LINE WOULD YOU LIKE TO CHANGE?  (L///L E N D /// \(      }( \(  {(  (LX' THERE ARE CURRENTLY NO ACTIVE RECORDS! 0 ( x' ) '   E' )  o 1 LNAMEADR1ADR2CITYST ZIP ATTN m*X)*m* 7&&LFILE  (LNDX  (L------  (L? (Y/N)  ()L%Customer/Client File  ( '  ( '  )LGOPEN ( 5 B  G)LaCLOSE ( 5 [  (LzREAD ( 5 u  2)LWRITE ( 5   )LDEL        BAR> LOGS IN NEW DISK!)",MN1:MX7:110ZFZ:Z1000,2000,3000,4000,5000,6000,7000y *** ENTER NEW DATA ***:410:RNTN1:RN$(RNSN1)::TN300ĺBP$:"NO SPACE! 300 RECORDS CURRENTLY ON FILE!":420:9206((RN$)2))"THIS WILL TO CONTINUE!)":Z$:Z$:Z$"Z"9203KI139:"=";:::a *** STARTUP ***TEXT:E=0:GOSUB200:IFETHENHOME:VTAB(10):PRINTSPC(7)"PLEASE INSERT PROPER DISK!":GOSUB420:GOTO910F0:410:I17:7)I" - "RO$(I)::(23):5)"(CH0::(10):RNTN324h@9)"CONTINUE SEARCH"YN$:104:Z$"N"ıBRN:F3SĺD$"PR#1"::ND$:(12):D$"PR#0"DSė:(10):12)"SEARCH COMPLETE!":420:F:(10):" NO RECORD WITH MATCHING DATA FOUND!":42:SS0:240:X1CF:P(CQ$(X)):Z1(AD$(CF(X)))P1:CQ$(X)(AD$(CF(X)),Z,P)SSSS1:307c2Zu3X:SSCF3224SS1:F2İ1530:3185S1F3C6C0:D$"PR#1":(9)"99N":(12):3520:3226S1F3İ35188S1F3İ3500:S1F6İR$F$",R"RN:I314:AD$(I)::299F$"MISC":OP$F$",D1":WR$F$:H1$","WL$","ND$","NF$","BP$","CL$","WR$","F$","F1$","L$","YN$","CC$:I06:RO$(I)::I114:A$(I)","ML(I):+CL$:, *** SEARCH ***0S0::(10):15)"SEARCHING!"\1RN1TNZ,"SN","TN",Z":TN299YNA$(RN)AD$(1):CO$(RN)AD$(2):I1TN:NA$(I)","CO$(I)::299t *** READ FILE ***OP$F$",L288,D1":RD$F$",R"RN:I314:AD$(I)::AD$(1)NA$(RN):AD$(2)CO$(RN):299 *** WRITE FILE ***!:OP$F$",L288,D1":W";"(U$,Z1)>(U$,Z,1)(92)U$(U$,Z1)":"(U$,Z1)GZ:f *** READ NDX FILE ***OP$F1$",D1":RD$F1$Z$,SN,TN,Z$:Z$"Z"E1:299TN299I1TN:NA$(I),CO$(I)::299***WRITENDXFILE***OP$F1$:WR$F1$:"M$Z$JM(M$):MMNMMXĹ36,0:(7);:Z1(M$):(32);::36,0:141\(M$)MLĺ:e142 *** SUBSTITUTE COMMAS AND SEMICOLONS ***(U$)2ıZ2(U$):(U$,Z,1)(94)U$(U$,Z1)","(U$,Z1)(U$,Z,1)(95)U$(U$,Z1)X)):ML)"!" M$""9 Z$:Z$(13)M$""M$" ":M0K Z$(13)ĺ:[ Z$"Z"920 Z$(57)Z$(48)Z$(8)ĺ(7);:142 Z$(8)(M$)142 Z$;:Z$(8)(M$)2ĺ(32)(8);:141 Z$(8)M$(M$,(M$)1):(32)(8);:152M$(8)(M$)1ĺZ$;:" ";:Z$;:121D ~Z$(32)Z$(8)ĺ(7);:122x Z$;:Z$(8)M$(M$,(M$)1):(32)(8);:122 Z$(44)Z$(94) Z$(59)Z$(95) Z$(58)Z$(92) M$M$Z$:(M$)MLĺ: M$"ZZZ"920 122 ML((M pZ$(90)920) qZ$(32)Fĺ:910; rZ$(32)119V tZ$(48)Z$(57)119q uZ(Z$):ZMNZMX119y v: w(7)(8)(32)(8);:111 xML)"!" yM$"" zZ$:Z$(13)M$""M$" " {Z$(13)ĺ: |Z$(8)(M$)1121! }Z$HANGING BUILT-IN DATA","INITIALIZING A NEW DISK","M, M, & M"E 2900f f:"IS THE ABOVE CORRECT"YN$ hZ$:Z$;:Z$"Z"920 iZ$"Y"Z$"N"ĺ(32): jZ$(32)ĺ(7);:104 k(7)(8)(32)(8);:104 n *** GET SINGLE NUMBER *** oZ$:Z$;"READ" (I07:RO$(I):: "SELECT FUNCTION","WRITE NEW BUDGET","EXAMINE, EDIT, & IMPACT","CHANGE BUILT-IN DATA","INITIALIZE NEW DISK","DISPLAY SUMMARY","PRINT WORKSHEETS","HELP"< *I15:HE$(I):: "WRITING A NEW BUDGET","EXAMINE/EDIT/IMPACT","C K T {L   K ^O .N   ~ K   1 !L > K TL .N  K $L  L  0N  mNL L  kN  J .N 5  'O LL  0N K JJ L  kN L `L!Z kN 5  L^( nM  kN 2 J L  kN I J L  kN ,O 'O L{ {L  L L  kN  J .N  $'O L kN  L N 'O L {L  L kN  L  kN L  .N  u K .N  0N K   L  L L  kN L% M  mN M  kN L? M  mN M  kN LY M  mN .N 5 kN  0N  K $Lz `LZZZ .N 5 } L^(L vK   K rL! L  L K rL!   L  0N  mNL L  kN  J .N 5  'O LL  0N L  kN L- ` L  kN  J .N  K ('O L L  kN  J .N  K $'O L kN L   kN L K  kN I J L  k kN IL {L  LF {L   L   K   L  LF  mN  M  kN L^( K  kN  J K $'O L, L ( K  kN IL L  kN I J nM  kN 2'O L kN  J J +K ( J J pK 'O L ` {L   L   K   o  1 K wO L  ~ ' [K N  o [K M  o  1 N  LCUSTOMER/CLIENT FILE  XNL ( L5IS THE ABOVE CORRECT    N   mN LTZ kN 5 R L^(LlYLqN kN 5 j  J kN 5 o 'O L K   ` K u7 Y$O4RY 7H L  NNLOPEN LN 5   OLREAD LN 5   NL MISC  mN O  kN L',D1 #  N  kN  '  :N  N  wN  N  N  N  N  N  N  N  N  XN  K wO oL  ~ ' [K N                      !!! ! ! ! ! !!:L5 wJ lL $L5 K tJ : 1 3O uN  'L$4 X L  J K $L=6 {L   oL L,6THERE IS ONLY 1 RECORD FILED! 6  'L$4 &M LL6SORT? F6  L Ly61 - NAME (FIELD 1) c6  L L62 - COMPANY (FIELD 2) 6 42 - A GROUP OF RECORDS 4  {L L43 - ALL RECORDS 4  K K $L-5 {L L"54 - TELEPHONE DIRECTORY  5  K .K L sK K K LM5 K sK  J 8J K K ` J q5}555 0 : 'L*4 1 #L$4 K 3O J  ~ A! X /J K $L5 L3 {L   K J JL1L3 K .K M sK  MJ $L3 {L   L1 J N .N o J L (L1 K K ` #L/ K tJ X & J $LM4 N  'L^( L Le4YOU MAY PRINT: V4  {L L41 - A SPECIFIC RECORD NUMBER |4  {L L ~ [K M DJ $L3 {L   JM  L L2FIELD 2  MJ aL3 ALREADY USED! 2  'L1 JL 3 1 J K J M MJ o LF3ENTER ' >3  MJ N Lq3' COMPARISON VALUE: ]3  MJ K $L3 MJ M K L3 .N 5 3 LECT COMPARISON FIELD 1  J K a JL2 L1(IF DONE PRESS ) 1  K wO L  ~ L r [K ^ {L rL42- 12  [K N  1 K .K *L sK  MJ $ J J $'O L2 {L   L1 MJ $bO L4 JL3 K wO J K .K K sK  J K L1 X L L0RECORDS THIS DISK ARE 0  _J aL1 -> 0  _J J c K a L91ENTER RECORD NUMBER: $1  K .K _J J c K sK  MJ VJ (L|1 {L   L0 _J GJ K &J A! K K ` 5-L/ K J XL1SEJ ,J X L  M L/FILING! /  ! K K `L) K K X & J $L0 N  'L^( oL L80YOU MAY RECALL A RECORD BY: 0  oL Lj01 - SPECIFIC RECORD NUMBER O0  oL L02 - SPECIFYING COMPARISON DATA 0  , K KL5- K $ J K K 'O ` X L  N  L L. READY TO FILE .  N  FL/Y kN 5 / L/ L  L  N L?/ABORT 9/  N  FLX/Y kN 5 V/  J K K 'O `L/Y kN 5 ~/ L^(L5- K K $L/ J K [K N O  [K ^ K rL-- -  [K N L-: -  O  1 L-Y kN 5 -  J K K 'O  J K K ('O `L7.Y kN 5 5. L. N  K .K *L sK  MJ $L. {L   L5- K K K K MJ ))*j***+Y+++,M,,,  L N .N o K` L, USER FIELD 4: ,  M K  L N .N o K` L- USER FIELD 5: -  M K  L N .N o K` XLJ-RECORD NUMBER ;-  _J #J c K aLi-: g-  K wO L  ~L-= -  1 K wO L  ~ : +  L K  L N .N o K` L+TELEPHONE NUMBER 2: +  L K  L N .N o K` L', USER FIELD 1: ,  M K  L N .N o K` La, USER FIELD 2: S,  M K  L N .N o K` L, USER FIELD 3: ,  M KL*CITY: *  M K  L N .N o K` L*STATE (ABBREVIATION): *  K K  HL N .N o K` L-+ZIPCODE: $+  K .K M sK  oL N .N o K` Lj+ ATTENTION: _+  8M K  {L N .N o X K` XL+TELEPHONE NUMBER 1  n c K i # K L)THIS WILL BE RECORD NUMBER )  $N  ' XL*NAME: )  8M K  K N .N o K` LD*ADDRESS 1 (COMPANY): /*  eM K  K N .N o K` L*ADDRESS 2 (STREET): p*  eM K  K N .N o K` L L(( LOGS IN NEW DISK!) (  K .K K sK  J K J )/$4;@D K wO L  ~ [K NL!)  ) o 1 X & J K ,J )J YJ c K  &N J L $L) N  L)(NO SPACE! 300 RECORDS CURRENTLY ON FILE! o)  'L^( $N \M  HL L'(PRESS TO CONTINUE!) '   mN  L'Z kN 5 ' L^(` K J  JL^( X L  {L LM(PLEASE INSERT PROPER DISK! 2(  'L ( K K & K wO oL  ~ L  [K ^L( - (  [K N  1 \M  H L&% NO RECORD WITH MATCHING DATA FOUND! &  '` X w /M L&CCCP &  s &M L'==== '  8N O  O  n c K i # 3L  O  L  w K N  n c K i # INITIALIZING! >  L?'(THIS IS THE PROMPT YOU WILL GET ON THE >  LL?&ACTUAL 'CCCP' DISK, BUT ON THIS 'DEMO' %?  L?'COPY, THIS IS AS FAR AS YOU CAN GO! FOR ]?  L?'ADDITIONAL INFORMATIO 1 M L=WARNING! =  M L========= =  N  L>% INITIALIZING WILL DESTROY ALL FILES =  LU>% AND PROGRAMS WHICH ARE ON THE DISK. />  L> DO YOU STILL WISH TO CONTINUE f>  N  FL>N kN 5 > D ON THE NEW DISK. <  K .K AM sK  MJ $L< K JJ MJ a L=N kN 5 < L; X L  N  L LM=!REMOVE CURRENT DISK FROM DRIVE 1! +=  oL L=INSERT NEW DISK INTO DRIVE 1! d=  ' X K wO L  ~ N   [K N  [K N  L  [K xL N L;: ;  [K xL N  1 wO` X & L'<%THE LAST RECORD NUMBER ON THE CURRENT <  L><DISK IS 5<  _J J c K aL]<. [<  L<#ENTER THE NUMBER TO BE USED FOR THE n<  L<FIRST RECOR uN  'L^( @A X wJ K tJ K $L; 8N O  VN L: / :  O  L;RECORD NUMBER  ;  )J YJ c K a K :O wM  LH;- F;  1 K wO L  ~ [K N O  [K N O o 1 wO K wO {L  ~ [K N L;: ; wO L  ~L9- 9  1 K yO J  ~ gK M O mN gK M `N DN JL: gK M `N mN gK M O DN kN O  O mN BN O  kN  K (LI: J dKL: gK M ,J A! kN Lb: / ^:  O  Ly: v:  L N L: / :  L N  1 yO TELEPHONE DIRECTORY 8  O  K wO L  ~L8= 8  1 SM J QL JL9NAME  9 mNL!9COMPANY 9 DN JL`9L<9COMPANY 49 mNLL9NAME G9 DN M J ZL J kN Lm9 / i9  BN  L9 TELEPHONE 1 / TELEPHONE 2 9  K N gK  K 4  I $L7 1 yOLs8 [K N gK  K 4  J [K K N gK  K 4  I (Ls8 [K N mN [K N [K K N o [K K N kN o [K M J [K M [K K M o [K K M J o K KLk8. i8  1 wO KL]7L8. 8  8N O  K tJ X VN L8 K .K K sK  K J J @A K wO J  ~ [K M [K o [K N [K O o JL7 [K N [K `N o 1 K wO J  ~L)7 [K N (7 LK7 [K N M  o LP7. N7  1 K K K wO K J  ~ K yO [K N   ~ [K N gK  K 4  J [K KW;L 8W=L 8W?L 8  AW8W_L 8WaL 8WcL 8  eW 8  {W8WL 8WL 8  W- IL IL IL IL IL 8  O-8  Q 8  R8R5L 8R7L 8  9R-8TL 8TL 8TL 8TL 8TL 8TL 8TL 8  T-8VL 8WL 8  W 8WL 8WL 8  W8 IL IL IL IL IL IL IL IL IL IL IL ILdIL IL IL IL ILdIL IL IL IL IL IL IL IL IL IL ILIcL IeLdIjL IlLdIqLdIvL IxLdI}LdILdIL IL ILdILdILdIL ILdILdIL IL IL IL ILdIL ILWLdO\L O^L O`L ObLdOgL OiL OkL OmL OqL OsL OuL OwL OyL O{LdOL IZL I\L I^Ld'F( , , 0COt09Z:;\^_O%L O'LdO,LdO3L O5LdO?LdODLdOILdONL OPL ORLdO J J L $'O LH L LHI/O ERROR! CHECK DRIVES! H  L6I HL L I ERROR NUMBER H  J ^L+I HAS OCCURRED! I  ' LN LLI BRUNC.OBJ BI  Lc @@ $` (P0%O [K  K 4 G IO LG RK J J K XK 1 JIO LOHLG kJ K J kJ J c K J O J  J 1 G  M O kJ  M  M O J ' M  OLH kJLHL\H kJ K O ' ZH  M O kJ  M  O gK N O o ` M D J X L  J lL $ ~ L  K N  L  K N  L  K N  L  L N LF, F  HL N  M  oL N  LN L3GPR#0 .G  1 wO` K J K hJ O  J K wO J  ~LoG, O [K  K 4 mG LG kJ $LG K UK n hJLGLG,