' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L65 & "L}"BB5L&]655555553L36 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z# 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533󰍍PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):C5fPS%(HW$(1)):SU$PF$(1)I5P$(1):p5fPS%(HW$(1)):SU$PF$(1)v55(0)"":P$(1)"":HW$(2)"S"61010r4MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)4RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)4WHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)&5\HW:PF$(0)NU$D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$::3u"ERROR ON LINE >> "E2" ERROR CODE >> "E1:3`HW$(14):NU$(0)(0)33800:3810:3830!4HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$010:12000:380$2AuE16E213514592CuE16E2145155N2EuE16E21552002NuE2100ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:HK$::o3buE250ė:XX$XX$".00"=1aXX(XX$):XX$(XX$,XX2):XY0XX$"-"XX$C1b10uE1(222):E2(218)(219)256:E23000ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::2:uE1255İ3200'SL7020,9020$0'MI0:AM0:E0<(SL7500,9500:V0:LP0:S0:\0*D$"PR#"PS%:SU$:l0.D$"PR#0":0aXY(XX$):YX(XY):YX(YX100.5)100:XX$(YX):XX$"00"XX$:XX(XX$):(XX$,XX2,1)"."250600a(XX$,XX1,1)"."XX$XX$"0":25060 1aA$(5);:36,47:A$(6);:36,58:A$(7);:y/0%36,70:A$(1):" ":36,10:CO$:" ":36,10:DC$(PF):PF0āP12:" ":P:9530/5%(12)/:%LP0:S0:/'SL7000,9000:CH1TV0FLAG2/'/t'SL7010,9010:BF0:BB2:0'(BF$"B"(IDTDYJ0))BB1102A$(Y),LA3)PP$(PF)(A$(Y),2):A$(Y)(SP$A$(Y),9)O.(%A$(Y)(SP$A$(Y),9):Y.+%36,5:Z2$(PF);:36,18:Z3$(PF);:36,29:Z4$(PF);:36,39:Z5$(PF);:36,49:Z6$(PF);:36,59:Z7$(PF);:36,71:Z8$(PF)&/-%36,3:A$(2);:36,14:A$(3);:36,25:A$(4);:36,36:SP$AM$,9)CI$0-Z#LPLP1:LP13S0:9400:90006-#V-$PF0āP111:" ":P:9420a-$(12)g-$-%P116LP:" ":P::Y17:A(Y)(A(Y)100.5)100:XX$(A(Y)):25000:A$(Y)XX$:A(Y)0:LA(A$(Y)):LA3A$(Y)PP$(PF)(A$(Y),2):95123.&%A$(Y)(A$(DA$,2)S0$(DA$,3,2)S0$(DA$,2)V,>#LA(AM$):LA3AM$PP$(PF)(AM$,2):9027{,A#AM$(AM$,LA3)PP$(PF)(AM$,2),C#MI11MI0:9040,F#DA$;:36,10:IN$;:36,18:(SP$AM$,11)CI$:9050 -P#36,31:DA$;:36,41:IN$;:36,50:CD$(C);:36,55:(3:Y1$(PF);:36,41:Y9$(PF);:36,50:Z1$(PF);:36,58:Y8$(PF):LP13LP0:9100U+1#+2#XX$(BF):25000:LA(XX$):LA3XX$PP$(PF)(XX$,2):9013+4#XX$(XX$,LA3)PP$(PF)(XX$,2)+5#XX$(SP$XX$,11):"BALANCE FORWARD";:36,18:XX$:LPLP1:',<#D$(6);" ";N$(7);:36,61:Y1$(PF);:36,71:Y2$(PF)k*-#36,5:A1$(ND);A0$(ND);:36,59:DT$;:36,71:(X):" "*/#" ":S1:Y3$(PF);:36,6:TE$;:36,25:Y4$(PF):" ":36,15:Y5$(PF);:36,44:Y6$(PF)O+0#36,2:Y1$(PF);:36,10:Y7$(PF);:36,23:Y8$(PF);:36,3HC):36,5:CA$(HC):36,5:CC$(HC);C0$(HC);CS$(HC);" ";CZ$(HC):DT$(TD$,2)"/"(TD$,3,2)"/"(TD$,2)))#A1$(2)" ":A0$(2)" ":N$(3)N$(1)" "N$(2)A0$(2)N$(1)" "N$(2):A1$(2)"ATTN. "0**#P14:" ":P:36,5:N$(3):36,5:N$(4):36,5:N$(5);", ";NY"HK$"N"80054(J5:29:HK$:3020:HK$"N"8100(TN$(3)"COMPANY":N$(4)"1234 MAIN ST.":N$(5)"SMALLVILLE":N$(6)"CA":N$(7)"99999":IN$"123456":AM$"500.00":A(1)500.00:A(2)500.00:9000:9500:A(1)0:A(2)0:12000:8002(f)(#11000:36,5:CN$(R 150:";(A$(7),9)::36,20:"TOTAL >> ";(A$(1),9):"'P' = PARTIAL * = CLOSED":'@:5:BE$"INSERT "TP$(PF)" AND SET":"PRINTER TO TOP OF FORM.":"HIT ANY KEY WHEN READY ";:HK$::PF$"3"8100'B:5:"PRINT TEST STATEMENT? (Y/N) ";(EHK$:HK$"GO$"" &t&vX&L16:Y17:XX$(A(Y)):25000:A$(Y)XX$:A(Y)0:A$(Y)SP$A$(Y):Y&V(MI$,38):" CURRENT:";(A$(2),9);:36,21:" 91-120:";(A$(5),9):" 31-60:";(A$(3),9);Q'`36,20:" 121-150:";(A$(6),9):" 61-90:";(A$(4),9);:36,20:"OVE7V:(DA$,2);"/";(DA$,3,2);"/";(DA$,2);:36,10:IN$;:36,18MI:OC$"P"CI$CI$"P"%o(SP$AM$,9);CI$::LPLP1:LP8LP0:V0:D$:"PRESS 'C' OR 'H'";:7025%p7030%qGO$:GO$"H"GO$"C"7025&s:16:1:868:GO$"H"İ11000:768:12000::39(CL$(X)):CL$(X)$`(EQ$,38)::S1:" DATE INV/CK CHARGE CREDIT":"-------- ------ --------- ---------":34,7:$a$bMI0:VV1:XX$(BF):25000:"BAL. FWD.";:(XX$,1)"-"MI11$g36,18MI:(SP$XX$,9):BB2:BF0:W%lVV1:$(1)" "N$(2),#|CL$(X)"$"CL$(X)"NONE"?#CU$(X)N$(3):W#D$"CLOSE ARCUST":#:10:8:"PRESS ";::"<>";::" TO ABORT":#XD$::2:CU$(X):CU$(X)CV$Ģ2:27:"CREDIT LIMIT"$_"DATE >> ";(TD$,2);"/";(TD$,3,2);"/";(TD$,2);):SL:PS%(HW$(1)):D$:3"D$"CLOSE HARDWARE":["X112:L31:X4X6X9X11L30i"X2L29"Y1L:CC1:JD(X,Y)C:Y,X:"pD$"OPEN ARCUST,L127,D1":#zD$"READ ARCUST,R";X:Y18:N$(Y):Y:CL$(X):CL$(X)"$"CL$(X):N$(3)""N$(3)NA(5)A(5)AM:3270)! A(6)A(6)AM:3270:! A(7)A(7)AMK! A(1)A(1)AM]! BF$"O"3350n! FLAG23350! IDTDYJ0BFBF(BA$):3500! FLAG0İ10200:3500! CI$"":!D$"OPEN HARDWARE,D1":"D$"READ HARDWARE":TT%:SL113:HW$(SLJ1- YJTYIY:AD(TJIJ)(YJ366):AD(AD)F (BF$"B"BB1)3345d (AM).005CI$"*":3345u AD1503260 AD1203255 AD903250 AD603240 AD303238 A(2)A(2)AM:3270 A(3)A(3)AM:3270 A(4)A(4)AM:3270! N ARMEN,D1" D$"CLOSE":= :10:13:"** WORKING **": TD((TD$,2)):TM((TD$,3,2)):TY((TD$,2)):ID((DA$,2)):IM((DA$,3,2)):IY((DA$,2)):TJJD(TD,TM):TY4(TY4)TJJD(2,28)TJTJ1 l IJJD(ID,IM):IY4(IY4)IJJD(2,28)IJI25000:(XX$)0FLAG1) A(ZZ)0:ZZ:h OC$,DA$,IN$,AM$,CU$,BD$:LM(AM$):LM2AM$"."AM$:2506 AM$(AM$,LM2)"."(AM$,2) LM(BD$):LM2BD$"."BD$:2510 LM0BD$(BD$,LM2)"."(BD$,2) BA$AM$:AM(AM$)(BD$):  D$"RU34,0:12000:380-D$"OPEN"NF$",L40,D1":ZD$"READ OP,R";RN:2500:MI0:3100:D$:nD$"CLOSE"NF$:>D$"READ UC,R";RN:2440:D$:j D$"READ CM,R";RN:2440:D$: 2500:AMAM:BA$"-"BA$:MI11:3100: ZZ17:ZZTVXX$(A(ZZ)):1:"PRESS 'C' OR 'H' ";:1395IdGG$::GG$"H"GG$"Q"GG$"C"1380cn34,0::GG$"Q"1800mp1397sGG$::GG$"H"GG$"C"1395uGG$"H"İ11000:768:12000xCH2İ30201500BF0:BB0:FLAG0:XBF0:BB0:FLAG0:GO$"":C":C1:2000RN1UC%/XUC%(RN)İ2110=RN:2030`BF$"B"BB1TV0İ10100:700TV0FLAG0İ2450:FLAG1695LFLAG0CH$"3"1500F10300:CH$"2"OU$"S"Ė17:"PRESS 'Q' 'C' OR 'H' ";:1380KKC0POU$"P"1500_26020:CH3FLAG1İ10000:BF$"B"BB1:FLAG2İ10100IOP%0800\NF$"OP":2000jRN1OP%XOP%(RN)İ2010RN CM%010002030:NF$"CM":C0:2000RN1CM%XCM%(RN)İ2410RN:2030UC%01040 NF$"UPF1:S0$"/"PF$"1"HC0a16:25:PF$::1:"ENTER COMMENT >> ";:"";CO$:(CO$)60535:"ENTER TERMS ";:"";TE$:(TE$)10540+8000?CH2İ3020:OU$"P"İ6300XX11:X2CN:CH$"2"X2CU:X1CUXX1X2:OU$"P"İ6000:6010:"P"525:OU$"S"575#SL2:32,11:::8:"ARE YOU USING..."::32,8::"1. HEADED CUSTOM FORMS"::"2. UNHEADED CUSTOM FORMS"::"3. BLANK PAPER":32,11::"SELECT (1-3) ";PF$:PF$"1"PF$"3"532:S0$" " HC1:PF0:PF$"3"450&MM2YY4(YY4)DD28450ITD$MM$DD$YY$:"";X7$:X7$"":"COMPUTE BALANCE FORWARD (B)":" OR OPEN ITEM (O)? ";BF$:BF$"B"BF$"O"517SL1:D$:"OUTPUT TO SCREEN (S) OR PRINTER (P)? "; OU$:OU$"S"OU$TD$""TD$AG$:5161D$(1)(13)TD$""516ND$(Z)"0"D$(Z)"9"465ZD$(Z);Z:MM$D$(1)D$(2):DD$D$(4)D$(5):MM(MM$):DD(DD$):YY$D$(7)D$(8):YY(YY$):DD1DD31MM1MM12460(MM4MM6MM9MM11)DD30450MM2DD29415B5:14:CU$(CU);:(CU$)0ľHR$:HR$" "Ģ5:14:868:435d1:V3:868:"ENTER DATE >>"V3:14:TD$""ĺAG$(1)"/"AG$(2)"/"AG$(3):460(TD$,2);"/";(TD$,3,2);"/";(TD$,2)14:Z18:Z3Z6ĺ"/";:485V3:D$(Z):D$(1)(13)CH$"9"390FFLAG1:TV0:CH(CH$):::CH2CH9TV(CH1):FLAG0XCH$"9"3000jCH$"2"447D$::5:"CUSTOMER >>";:14:(UL$,20);:14:"";CU$:CU(CU$):CU0CUCN445CU$""415CU1CN:CU$(CU$(CU),(CU$))445CU:~"1. ALL CUSTOMERS":"2. SELECTED CUSTOMER":"3. CURRENT":"4. BALANCE OVER 30 DAYS""5. BALANCE OVER 60 DAYS":"6. BALANCE OVER 90 DAYS":"7. BALANCE OVER 120 DAYS":"8. BALANCE OVER 150 DAYS":"9. EXIT"::"ENTER CHOICE (1-9) "; CH$:CH$"1")"30":CM1CM3CM5CM7CM10CM12CM8AG$(2)"31"{(AG$)6CM2AG$(2)"28":YY(YY$):YY4(YY4)AG$(2)"29"|:D$::3:20(CN$(1))2::" "CN$(1)" "::5:"CUSTOMER STATEMENTS SELECTION MENU":"----------------------------------":VX1CM%:CM%(X)::3010-D$"APPEND UC,D1"D$"OPEN UC,L40":D$"READ UC,R0":UC%:UC%(UC%):D$"OPEN UC-CUST":D$"READ UC-CUST":X1UC%:UC%(X)::301083010:AG$(1)(AG$,2):AG$(2)(AG$,3,2):AG$(3)(AG$,2):(AG$)6AG$(1)CM$:AG$(3)YY$:AG$(2AG$D$"APPEND OP,D1"D$"OPEN OP,L40,D1":D$"READ OP,R0":OP%:OP%(OP%):D$"OPEN OP-CUST":D$"READ OP-CUST":X1OP%:OP%(X)::3010D$"APPEND CM,D1"D$"OPEN CM,L40,D1":D$"READ CM,R0":CM%:CM%(CM%):D$"OPEN CM-CUST":D$"READ CM-CUST":"INSERT TRANSACTION DISK":"FOR ";M$(CM);" IN DRIVE #2.":"HIT ANY KEY WHEN READY ";:HK$::10075:6000:D$"READ ARCUST,R0":CN:CU$(CN),CL$(CN):X1CN:6010:X:X0E20:C0:D$"OPEN LIW,L7":D$"READ LIW,R0":AG$:3010:LM(AG$):LM5AG$"0"Ȱ75:D$"OPEN SJTRANS,L100,D2":D$"READ SJTRANS,R0":S%,SL%,CJ$}D$"OPEN CRTRANS,D2,L100":D$"READ CRTRANS,R0":C%,CL%:3010S%SL%C%CL%ė:D$:5:"TRANSACTIONS NOT POSTED":"HIT ANY KEY TO RETURN TO MENU ";:HK$::3000aCM$CJ$ė:D$:5:JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER K:D$:2:10:"ACCOUNTS RECEIVABLE":7:"LOOK UP CUSTOMER ACCOUNTS":12:"PRINT STATEMENTS":10:3:"** READING CUSTOMER INFORMATION **": dD$"APPEND ART,D2">n"":PP$(1)".":PP$(0)" ":TP$(0)"STATEMENTS":TP$(1)"PAPER":CD$(0)"CR":CD$(1)"CK" :DC$(1)"CR= CREDIT MEMO, CK= YOUR CHECK, *= CLOSED ITEM":DC$(0)" ":A1$(1)"ATTN. ACCOUNTS PAYABLE":A1$(2)"ATTN. ":A1$(3)" ":A0$(1)" ":A0$(3)" " <100U A NFIG":D$"READ SJCONFIG":XX$,CM$,YY$,YY$:CM(CM$):D$"OPEN CONFIG.FIL":D$"READ CONFIG.FIL":CN$(1),CA$(1),CC$(1),CS$(1),CZ$(1),PS$,ND$,FF$,XX$,K1$,K2$,S1$,LF$:3010S 9ND(ND$):CN$(0)" ":CA$(0)" ":CC$(0)" ":CS$(0)" ":CZ$(0)" ":C0$(1)", ":C0$(0)1)"BAL. DUE"^ Y1$(0)" ":Y2$(0)" ":Y3$(0)" ":Y4$(0)" ":Y5$(0)" ":Y6$(0)" ":Y7$(0)" " Y8$(0)" ":Y9$(0)" ":Z1$(0)" ":Z2$(0)" ":Z3$(0)" ":Z4$(0)" ":Z5$(0)" ":Z6$(0)" " Z7$(0)" ":Z8$(0)" " 2D$"APPEND AR,D1" 775:D$"OPEN SJCOST #":Y3$(1)"TERMS:":Y4$(1)"STATEMENT":Y5$(1)"CHARGES":Y6$(1)"PAYMENTS/CREDITS":Y7$(1)"INV. #" Y8$(1)"AMOUNT":Y9$(1)"REF. #":Z1$(1)"CODE":Z2$(1)"CURRENT":Z3$(1)"31-60":Z4$(1)"61-90":Z5$(1)"91-120":Z6$(1)"121-150" Z7$(1)"OVER 150":Z8$(J-  ** STATE ** 03.30.82,30000JD(12,31),M$(12),LL%(24):D$(4):5000:D$"NOMON I,O,C":3010:V36:X1100:SP$SP$" ":EQ$EQ$"=":MI$MI$"-":UL$UL$(95)::BE$(7):X112:M$(X)::D$"BLOAD SCDMP":60000c Y1$(1)"DATE":Y2$(1)"CU               IN":DL11000:DL:22000TV]YVT:13:868:BL$;::"ENTRY TOO LONG"::DL1300:DL:300:DL:L6"U5);"ENTER POSITION TO START ";LS$:5);"IN KEY #";KN$;" (1-";UL$")"::10);LS$;" FROM: ":32,23::8:"";LN$:32,0::LN(LN$):LN1LN(UL$)ĺ(7)::5:22010JV(LNNL)1(UL$)ĺ(7)::5:"FAULTY ENTRY FOR SEARCH POSITION":"PLEASE TRY AGALETE":::915:CHR116050A>YY13:S(YY)AJS(YY)0:16030I>YY>D$;"OPEN";F$(CH):D$;"DELETE";F$(CH):D$;"CLOSE";F$(CH):D$:F$(CH)"":TN(CH)0:1200>D$:R0:3000UD$::5:NL(N$(AK)):LS$"SEARCH":SM6LS$"PRINT"UKN$"2":UL$"":CN$,CA$,CC$,CS$,CZ$:PS$,ND$,FF$,UL$,K1$,K2$,SP$:D$;"CLOSE CONFIG.FIL":PS$"PR#"PS$:UL(UL$)hB'>D$:(7)::5:"NO MORE SORT FILES MAY BE ADDED":"UNITL ONE IS DELETED":"HIT ANY KEY TO CONTINUE ";:HK$:::5:5);::"CHOOSE WHICH ONE TO DEADY. ";:HK$::P19P2212ė:D$:5:"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY. ";:HK$::P1,P2:'(4)"APPEND AR,D2"b'D$(4):D$;"OPEN CONFIG.FIL,D2":D$;"READ CONFIG.FIL:"** WRITING SORT FILE **"::1500:1600:1650:1200\1400:TX0:TN0:SF0:SR$"":3000P1(222):P2(218)(219)256P19P210000ė:D$:"REMOVE ANY DISK FROM DRIVE #2 AND":"INSERT ACCOUNTS RECEIVABLE CUSTOMER DISK.":"HIT ANY KEY WHEN RE);::"** SORTING **"::37984:TN(Y)TR/D$(SR$,1)"A"(SR$,1)"Z"ĺBL$D$::5:"SORT FILES MUST BEGIN WITH A LETTER.":"THE SORT FILE '"SR$"'":"WILL BE RECORDED AS 'A"SR$"'":"HIT ANY KEY TO CONTINUE ";:HK$::F$(Y)"A"SR$6D$:10:8);:RN%(RN)(RN):4040YSR$(N$(AJ),LN,NL)TNTN1:SR$(TN)(N$(AJ),LN,NL):RN%(TN)RNRN::TN0ES$"S"Ģ5:D$:"DID NOT FIND ANY '";SR$;"'":"HIT ANY KEY TO CONTINUE ";:HK$::4070TN(Y)TN:ES$"S"F$(Y)SR$:TN(Y)TN:4060'D$:10:1304010TN(Y)0SFSF1/Y:SF316000TF$(Y)SF$(AJ):ES$"S"F$(Y)SR$RN1TR:15:"READING CUSTOMER # ";RN;" OUT OF ";TR:1100:ES$"S"4037AJ114031SR$(RN)N$(AJ):4035SR$(RN)N$(7)N$(3):AJ13SR$(RN)N$(7)N$(2)J):3200Vg VT10:AJ540,540,540,540,540,540,540,540,540,540,637:AJ11AKAJ:22000ev SR$N$(AJ) :10:10);::"** READING FILES **"::1000:1010:LN0LN1:NL(SR$)Y13:ES$"E"SF$(AJ)F$(Y)4010ES$"S"SR$F$(Y)4010TN(Y)"A"AJ$"N"3130D 32,0::3S AJ$"N"İ1400:YX AJ(AJ$)64:AJ11ES$"A":3170] :5:"SORT BY ALL ";SF$(AJ);" (A)":"OR BY A SPECIFIC ";SF$(AJ);" (S) ?":"ENTER 'A' OR 'S' >> ";a ES$:ES$"A"ES$"S"3169b ES$"A"ES$"E":SR$SF$(A""SF$(10)K2$_ D$::5::"ADD/CHANGE, DELETE SORTED CUSTOMER FILE":::3010:3155l 32,10: X111:(64X)". "SF$(X):X "L. ZIP CODE/COMPANY":"M. ZIP CODE/LAST NAME":"N. RETURN TO MENU"::"ENTER CHOICE (A-N) ";: AJ$:AJ$ YRN%(RN):RN m. rD$;"CLOSE";F$(Y):Z D$;"READ";F$(Y):Z1TN(Y):RN(Z):Z: FIRST NAME,LAST NAME,COMPANY,ADDRESS,CITY,STATE,ZIP CODE,PHONE,CR. LIMIT,KEY #1,TAX EXEMPT,ZIP CODE/COMPANY,ZIP CODE/LAST NAME:X113:SF$(X)::K2$"(N$(3),1)"#"N$(3)N$(2)" "N$(1)L [N$(AJ)""AJ2AJ3N$(AJ)"0"f ]N$(2)""N$(2)N$(3)l ` D$;"WRITE ARCUST,R0":TR:Y13:TN(Y):F$(Y):Y: xD$;"CLOSE": D$;"OPEN";F$(Y): @D$;"WRITE";F$(Y):RN1TN(Y):RN%(RN)01645TRTN(CH):1500:1700:Y1TR:RNRN(Y):1100:13000:Y:1400:1650:D$;"PR#0":D$:800\ | D$;"OPEN ARCUST,L127,D2": D$;"READ ARCUST,R0":TR:Y13:TN(Y),F$(Y):Y:& LD$;"READ ARCUST,R"RN:X111:N$(X):N$(X)(N$(X)FR$,LR(X)):X:N$(3)"TX$"Y"637# ~N$(11)TX$:TX$:i 1000:1010:D$:32,10::R0:X13:TN(X)0ĺX;". ";F$(X):RR1 X:R0ĺ(7);"NO SORT FILES": R1;". CANCEL"::D$:"ENTER CHOICE "; CH$:CH(CH$):CH0CHR1950V 32,0:::D$;PS$:12000:YCH:R$"#":UN$UN$(95):/ BL$(7):2000:3000h :D$:10:14::"** WORKING **"::D$;"RUN CUST,D1" VT:868:1:SF$(AJ);:13:(UN$,LR(AJ)1);:13:" ";N$(AJ) (N$(AJ))LR(AJ)İ23000:540 ! }VT:868:13:(UN$,1):VT:TX$:TX$"N"^ 37984:(4);"OPEN MXRC,D2":(4);"READ MXRC":REC%:(4);"CLOSE MXRC":SR$(REC%),RN%(REC%):(4);"BLOAD SORT,D1":SF$(13),N$(13):10000d5000 ** SORT2 ** 11.11.82 10,15,20,20,15,2,9,12,6,6,1:LR(12):X111:LR(X)::X140:FR$F     EL8مߥ؅ސ3/iݥiܥܐݐL̔ޕ `LLԔ`ޕ kiХliѠkeЅȱkeхӥiiԥjiՠԅȱԅץօإׅFfLʕ8مۥ؅کܩݥ܅ޥ݅ߥeمe؅Ѕхe߅eޅee҅Ӆe߅eޅeeLLȱ:UP$;:36,70:XX$(PZ):25000:(SP$XX$,9):LPLP1:LP12999_9PF1āX110:" ":X:997j9(12)x9LP0:7609X$"":Y$"":50020:"9I. MISC.":48QB(QO$)(QS$):QB0QB0:QB(QB)8XX$(((UP$))):25000:UP$XX$:QB$(QB):QB$(SP$QB$,6):QS$(SP$QS$,7):QO$(SP$QO$,7):UP$(SP$UP$,8):50000:36,28PZEX:VA7CI$"1"PZEX?9QO$;:36,9:QS$;QB$;:36,24:DE$;:36,61EM":36,14:"------- ----"::"A. QUANTITY ORDERED":"B. QUANTITY SHIPPED":"C. DESCRIPTION....."::"D. UNIT PRICE......": 8" ACCOUNT #......."::"E. ";AC$(1);" ";AN$(1):"F. ";AC$(2);" ";AN$(2):"G. ";AC$(3);" ";AN$(3):"H. ";AC$(4);" ";AN$(4):" NAME":B$(2)"ANYTOWN":B$(3)"CA":B$(4)"99999":D1$DA$:D2$DA$:SV$"AIR":TE$"NET 30":FO$"CHICAGO":SM$"FRED":D3$D1$:PO$"123456":B$(1)"2000 MAIN ST.":ST$"SAME"6760:X122:" ":X:50020:DA$DD$:B2$"":B3$"":B4$""::|7:4:36,14:II$;" ITB25TB0950k5D$:5:BE$"INVOICE "TB$(TB)". PLEASE RE-ENTER.":"HIT ANY KEY WHEN READY ";:HK$::v5113:5:5:BE$"ALIGN FORM. HIT ANY KEY WHEN READY ";:HK$::50000:X$"JOE":Y$"JONES"6IN$"123456":DA$"010180":CU0:CU$(CU)"COMPANY113LP:" ":PL:36,25:BG$:" ":36,25:L6$(PF);:36,40:ST$;:" ";L7$(PF);:36,71:SC$:" ":36,25:L8$(PF);:36,414(SP$AM$(6),8);:" ";L9$(PF);:36,70:(SP$XX$,9):X14:" ":X:PF1ĺ(12)4500204TB0:(XX$)9TB15(XX$)0T"1"TITIAM(7):930%3TITIAM(6(d2XSTISX:XX$(XS):25000:AM(6)(XX$):AM$(6)XX$:XX$(TI)325000:ST$((SP$XX$),9):TITIXS(SC$):XX$(TI):25000:AM(8)TI:X18:XX$(AM(X)):25000:AM$(X)XX$:X:23000:SC$((SP$SC$),8):50000w4PLINE":"IF EVERYTHING IS OK ENTER 'O'":"ENTER 'X' TO CANCEL ";n2OK$:OK$"A"OK$"B"OK$"O"OK$"X"9002VF1:OK$"X"ĺ:34,0:2OK$"O"9202OK(OK$)64:XOK3:FLAG1:34,0:OK880,850:8952::34,0:3X14:TITIAM(X):X:CI$$1aX6:AM$(X)SX$:26000:NG185021fSX(SX$)=1kGW0:1p8:22:(UL$,8);:22:"";SC$:X5:AM$(X)SC$:26000:NG1Č1052:8801zXX$SC$:25000:SC$XX$:AM(X)(SC$):8:22:SC$::>2FLAG0:34,20::"ENTER LETTER TO CORRECT":"CORRESPONDING L00R0J:10:"COMMENT >>":868:(UL$,50);:11:1:"";BG$:(BG$)50Č1052:842`0M925:6000RGW1:B5$"N"Ģ9:22:SR$:8520S9:22:(UL$,5)0T9:22:"";SX$:SX$""B5$"N"SX$SR$0V22:9:SX$0W(SX$,1)"."8651\SX(SX$)100:875/>OK(OK$)64::34,0:OK620,640,655,670,730,730,730,730,730:810T/C::34,0:0HD$::5:5:"SHIPPING CHARGES AND SALES TAX":5:"-------- ------- --- ----- ---"::"A. SHIPPING CHARGES":"B. SALES TAX RATE..":880:850:895:OK$"X"İ372:537:6" ":L5$(PF):.*FLAG0:34,20::"ENTER LETTER TO CORRECT":"CORRESPONDING LINE":"IF EVERYTHING IS OK ENTER 'O'":"ENTER 'X' TO CANCEL ";./OK$:OK$"A"OK$"I"OK$"O"OK$"X"815.0OK$"I"CT1815.4OK$"X"ĺ::34,0:.9OK$"O"835D36,13:B$(2);", ";B$(3);" ";B$(4);:36,57:SZ$- 36,13:A1$(KK);A0$(KK):" ":36,3:L4$(PF):36,3:(D2$,2);"/";(D2$,3,2);"/";(D2$,2);:36,14:SV$;:36,26:FO$;:36,37.%TE$;:36,53:SM$;:36,62:(D3$,2);"/";(D3$,3,2);"/";(D3$,2);:36,73:PO$:1$,2):" ":" ":36,13:L3$(PF):" ":36,13p,D0$DA$:KKND:(N$(10),1)"0"(N$(10),1)"4"KK((N$(10),1)), A1$(2)" ":A0$(2)" ":Z$""A0$(2)X$" "Y$:A0$(2)" "A1$(2)"ATTN. ",36,13:CU$(CU);:36,57:ST$:36,13:B$(1);:36,57:AD$0- ";AC$;" ";:868:(UL$,20);:9:"";AN$:AN$(AN$,20):Z01A+~+SU$:36,67:L1$(PF):PF$"Y"Ĺ36,67:IN$:" ":" ":770+36,13:CN$;:36,67:IN$:36,13:CA$:36,13:CC$;", ";CS$;" ";CZ$+,36,69:L2$(PF):36,67:(D1$,2);"/";(D1$,3,2);"/";(D(AC$)1VA(AC$)68:695F*13:21:AC$;:868:745:AC$""705Y*Z01OK9740*OK4VAOK4:13:21:AC$(VA):AC$"MISC.":AN$(SP$,25):745*VA5VA7:OK9OK0:705**1:19:AC$""AC$"MISC."ĺ"I. MISC.";:868:755;+"I.730])CU0VA5Ģ13:BE$:"NO MISC. ACCOUNT FOR CASH SALE":DL1500:DL:13:1:868:685)Z01Ģ13:BE$"ONLY ONE MISC. ACCOUNT PER ENTRY.":DL1500:DL:13:1:868:685)13:21:(UL$,4);:21:"";AC$:(AC$)1000(AC$)4(AC$)5999705*(GW1:11:21:(UL$,8)Q(X1:11:21:"";UP$:AM$(X)UP$:26000:NG1675(XX$UP$:25000:UP$XX$:11:21:UP$:GW0:(13:" ACCOUNT #.......";:21:(UL$,1):868(13:21:IA$::VA(IA$)68:VA1VA5685)VA5Ģ13:21:AC$(VA):5)100:985:AM(VA)AM(VA)EX:6056'l7:21:(UL$,7)Y'q7:21:"";QO$:QO$"#"ġ:840k'v(QO$)7625q'{'8:21:QO$:8:21:"";QS$:QS$""QS$QO$:8:21:QS$'(QS$)7640''10:4:(UL$,35)'10:4:"";DE$:(DE$)35660( PRINT":"A TEST INVOICE? (Y/N) ";B&RYN$:YN$"Y"YN$"N"594[&T:YN$"Y"İ960:592&XZ00:BG$"":372:470:485:D$(1)"#"545&ZOK$"X"600&]OK0:975&b620:640:655:670:685:810:OK$"X"İ537:600!'gEX(QS$)(UP$):EX(EX100.1-3) ";%%<PF$:PF$"1"PF$"3"572B%>32,0::PF$"1"PF$"Y"Y%@PF0:PF$"3"PF1%NWI6:D$::5:PF$"3"ĺBE$"INSERT INVOICE FORMS":"IN THE PRINTER"%OBE$"HIT ANY KEY WHEN READY ";:YN$::DB$DA$::PF$"3"600"&P:8:BL$"DO YOU WANT TOI$"2"IC$"CREDIT MEMO #..":II$"CR MEMO":IM$"----- -- ----":C1$"CM":OC$"C"a$0CI$"3"570n$580:635%::32,11:::8:"ARE YOU USING..."::32,8::"1. HEADED CUSTOM FORMS"::"2. UNHEADED CUSTOM FORMS"::"3. BLANK PAPER":32,11::"SELECT ( SELECTION":"------ ---- ---------"::"1. PRINT INVOICES"::"2. PRINT CREDIT MEMOS"::"3. RETURN TO MENU":##"ENTER CHOICE (1-3) ";#&CI$:CI$"1"CI$"3"550O$+32,0::IC$"INVOICE #.....":OC$"S":II$"INVOICE":IM$"----- -------":C1$"SJ":COLD BY ORDERED P.O. #":L5$(1)" ORDERED SENT B/O DESCRIPTION PRICE EXTENSION":L6$(1)"SUB TOTAL":L7$(1)"SHIPPING CHARGES"" L8$(1)"SALES TAX":L9$(1)"TOTAL DUE >>"o#!D$:MC0:WI0:WD0::32,10::7:"PLEASE MAKE060:L1$(0)" ":L2$(0)" ":L3$(0)" ":L4$(0)" ":L5$(0)" ":L6$(0)" ":L7$(0)" ":L8$(0)" ":L9$(0)" ":L1$(1)"INV. #":L2$(1)"DATE":L3$(1)"SOLD TO >> SHIP TO"L4$(1)"SHIPPED VIA F.O.B TERMS S1:FLAG1::34,0:OK130,225,195,130,385,395,405,415,130,425,435,450,460Z OK1D1$DA$l OK4D2$DA$~ OK9D3$DA$ 505 VF0:34,0: 50000:PF1ĺ(12):539 SD122LP:" ":SD L10:50020: 59:ML%PL%99565!30:FLAG0:34,20::"ENTER LETTER TO CORRECT":"CORRESPONDING LINE":"IF EVERYTHING IS OK ENTER 'O'":"ENTER 'X' TO CANCEL ";:VF1OK$:OK$"A"OK$"M"OK$"O"OK$"X"510OK$"X"ĺ:34,0:OK$"O"ĺ::535H OK(OK$)64:WD0:WDOKWI5:VF0:130:D$(1)"#"ı225:195:WD3:D1$DA$:130:D2$DA$:385:395:405:415:WD8:130:WD0:D3$DA$:DA$D1$:425:435:AD$"":SZ$"":SS$"N"İ450:460505:OK$"X"ıB15:B$(B)" ":B:CU0İ30041:30045:3006050000:760:50020O.......":"D. DATE SHIPPED..":"E. SHIPPED VIA...":"F. F.O.B.........":"G. TERMS.........""H. SALESMAN......":"I. DATE ORDERED..":"J. CUST. P.O. #..":"K. SHIP TO.......":"L. ADDRESS.......":"M. CITY STATE ZIP":D0$""DA$D0$M60:0450 HSZ$"":17:19:(UL$,20):17:19:"";SZ$:(SZ$)20460ND$::2:4:"PRINT ";II$:4:IM$:LI$""CI$"1"Ģ2:19::">> LAST INV. # ";(LI$SP$,6):19:"---------------------":]5:"A. INV. DATE.....":"B. ";IC$:"C. SOLD T19:"";SM$:(SM$)8415YPO$"":14:19:(UL$,8):14:19:"";PO$:(PO$)8425_ST$"":SS$"":15:19:(UL$,20):15:19:"";ST$:(ST$)20435ST$""SS$"N":ST$"SAME"AD$"":16:19:(UL$,20):16:19:"";AD$:(AD$)2WRITE LIW,R";CU:DA$:Q9:19:(UL$,10):SV$"":9:19:"";SV$:(SV$)10385WFO$"":10:19:(UL$,10):10:19:"";FO$:(FO$)10395TE$"":11:19:(UL$,15):11:19:"";TE$:(TE$)15405SM$"":12:19:(UL$,8):12:NSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:YN$::RhE1963000hjE16E23663010p"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1:tL1LP::AC$"":DA$DB$:WD0:WI0:LP0:Q0:X18:AM(X)0:AM$(X)"":X:TI0:XS0:SC0:wD$;"WE230035ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::^E23006551000BfE260035ė:5:BE$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVABLE":"TRAAM$(X):25000:AM$(X)XX$:XX$(SP$XX$,9):V2:H1:XX$:TD$;"PR#0":E1(222):E2(218)(219)256:E230040E19ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK":"HIT ANY KEY WHEN READY ";:HK$::UE1254E1255Ħ;AN$;(SP$,40(AN$)):RNPL%CH$"3"İ255:3048/260>01XTCT:18:30:"---------":23000::19:4:868:AC$(7CT);" ";AN$(7CT);::30:(SP$XX$,9):30:"=========":T10:TQ0:6V2:H1:(UL$,9):V2:H1:"";AM$(X):26000:NG13109;XX$$,4)MX7:V2:H2:"";AC$:((AC$)1000(AC$)4(AC$)5999)AC$""267bAC$""İ95:280xV2:4:868:AC$AC$""AM$(X)"0.00":315V2:9:868:(UL$,20);:9:"";AN$:AN$""(AN$)20285,95:AC$""303/.V2:"J. ";AC$;" "N$)6225,IN$""IN$LD$:6:14WI:LD$2CAC$(X)""ıV1X:H1:(UL$,9):V1X:H1:"";AM$(X):26000:NG1250XX$AM$(X):25000:AM$(X)XX$:V1X:H1:(SP$XX$,9): CT1NF$"SJ"303 AC$"":95 V2:H21:868:" ";(UL),(CU$))220CU:195\7:14WI:CU$(CU);:(CU$)0ľHR$:HR$" "Ģ7:14:868:210xCU$"VOID"AC$"":CU0CU$(CU):6:14WI:CI$"1"(LI$)0LD$((LI$)1):6:14WI:LD$:2356:14WI:(UL$,6) 6:14WI:"";IN$:(I(YY4)DD281305DA$MM$DD$YY$:"";X7$:X7$"";[CT0:AC$AC$(8)AC$"":957:14WI:(UL$,20);:14WI:"";CU$:CU(CU$):CU$"VOID"(CU$,1)"*"CU$(0)CU$:CT1:95:222CU$""197CU0CUCN220 CU1CN:CU$(CU$(CUD$(1)(13)DA$""190:D$(Z)"0"D$(Z)"9"145FD$(Z);Z:MM$D$(1)D$(2):DD$D$(4)D$(5):MM(MM$):DD(DD$):YY$D$(7)D$(8):YY(YY$):DD1DD31MM1MM12130(MM4MM6MM9MM11)DD30130MM2DD29130MM2YY4::80uML%TL%İ49000:80-wCH$"2"ı9z90:98|V3WD:14WI:DA$""ĺ(UL$,2);"/";(UL$,2);"/";(UL$,2):140V3WD:14WI:(DA$,2);"/";(DA$,3,2);"/";(DA$,2)14WI:Z18:Z3Z6ĺ"/";:165V3WD:D$(Z):D$(1)"#"VF0ĺ:CT0:AC$"":90:98iqTRTR1:ML%ML%1:RNML%:30022:30029:CI$"1"LI$IN$:CU0İ30400:375:30430tML%PL%99ė:D$:5:BE$"THE LIMIT OF 100 TRANSACTIONS HAS BEEN":"REACHED. PLEASE POST THE CUSTOMER":"ACCOUNTS. HIT ANY KEY WHEN READY. ";:HK$";AC$(X);" ";AN$(X):L_CH2Ė1:17:868:CT0AC$""ĺ"J. MISC. ACCT."R`ib130:D$(1)"#"65e225:195:CU$(CU)"VOID"āZ18:AM$(Z)"000":Z:Z0:AC$"":DA$"":113hX16:250:X:CT1AN$AN$(8):110k265n305:21000:OK$"X"4:(MI$,13):LI$""CI$"1"Ė19:2::">> LAST INV. # ";(LI$SP$,6):19:"---------------------":\5:"A. INV. DATE":6:"B. ";II$:"C. SOLD TO"::" A/C# TITLE";:31:"AMOUNT":" ---- -------------------- ---------":X16:(67X);". IT MEMOS"::"3. RETURN TO MENU"::"ENTER CHOICE (1-3) >> ";Z GCI$:CI$"1"CI$"3"71 J32,0::II$"INVOICE #":OC$"S":CI$"2"II$"CR MEMO #":OC$"C" MCI$"3"86 P30020:30015:30030: V90:98:e ZVF0:D$::2:4:"SALES JOURNAL":K$::29" 8ML%0RNML%:30000( 9u ;PF$""::30008:30010:30012:ML%PL%100İ47:AC$"":AN$"":T2T21:65~ >116 ACH$"2"ı= DD$::7:32,09::"PLEASE MAKE SELECTION":"------ ---- ---------"::"1. RECORD INVOICES"::"2. RECORD CREDCH$:CH$"1"CH$"4"32A #32,0::CH(CH$):CH4İ31000:30035g $CH3ĺD$"VERIFY TRANS,D2":31000| &CH59,540,27000 )29 /D$:NO$"O"ML%TL%CH$"3"ĺBE$::5:"NO TRANSACTIONS FOR ";M$(CJ):"MAY BE ADDED. HIT ANY KEY":"TO CONTINUE ";:H"":D$::5::20(CN$)2:" "CN$" "::7:WI0:9:"SALES JOURNAL MENU":32,5::"1. RECORD INVOICES/CREDIT MEMOS": "2. PRINT INVOICES/CREDIT MEMOS"::"3. SEARCH/CHANGE TRANSACTIONS"::"4. RETURN TO MAIN MENU"::4:"ENTER CHOICE >> (1-4) "; 1 ** SJ2 ** 7.21.82j104,(176):103,((175)2((256(176)(175)1)0)):(4);"RUN COM"t 340FX129NF$"SJ":62015:60000:ND(ND$):A1$(1)"ATTN. ACCOUNTS PAYABLE":A1$(2)"ATTN. ":A1$(3)" ":A0$(1)" ":A0$(3)" "u CI$                             uHHH$H%H$% G& ( h%h$hhh` ɍ (`H h`E67` 10540\&16:"MUST BE PAID WITHIN ";(UL$,2);" DAYS":16:21:"";W$:(W$)2550f+8000?:10:13::CTE$:(TE$)10540\&16:"MUST BE PAID WITHIN ";(UL$,2);" DAYS":16:21:"";W$:(W$)2550f+8000?:10:13:(0):P$(1)PL$P$(1)NRHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)WHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):fPS%(HW$(1)):SU$PF$(1)"";TE$:(TE$):HK$::@uD$:"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1:[`HW$(14):NU$(0)(0)q3800:3810:3830HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$EMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$:: XuD$:E21000ĺBL$::5:"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";18)(219)256:E15(E21073E21175E21110E22030)Ħ5uE23000ĺBL$::D$:5:"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK":"HIT ANY KEY WHEN READY ";:HK$:::uE1254E1255ĦcNuD$:E16E2900ĺBL$::5:"RER INFORMATION **":yaXY(XX$):YX(XY):YX(YX100.5)100:XX$(YX):XX$"00"XX$:XX(XX$):(XX$,XX2,1)"."25060a(XX$,XX1,1)"."XX$XX$"0":25060aXX$XX$".00"aXX(XX$):XX$(XX$,XX2):XY0XX$"-"XX$b80uE1(222):E2(2-------- --------- ------------ ---------":o" ========= ============":pD$"PR#"PS%:SU$:z(12):D$"PR#0":XD$::2:10:"ACCOUNTS RECEIVABLE":11:"PRINT SALES REPORT":10:3:"** READING CUSTOMCLOSE HARDWARE"::SU$:" ":" ":EQ$:" ":36,20:CN$36,20:"CUSTOMER SALES REPORT":36,20:M$(CM);" 19"CY$:" ":EQ$:"CUST. # CUSTOMER MONTH YEAR TO DATE LAST SALE":5100::5010: ,"------- ------------------JTRANS":5100:XX$(TM):25000:36,8:"TOTALS>>";:36,35:(SP$XX$,9);:XX$(TY):25000:36,45:(SP$XX$,12):5120~j 6020 D$;"RUN ARMEN,D1"D$"OPEN HARDWARE,D1":D$"READ HARDWARE":TT%:SL113:HW$(SL):SL:PS%(HW$(1)):D$:D$"T$(X)))100 36,35:(SP$XX$,9);:XX$(T):25000:36,45:(SP$XX$,12);:36,59:DL$(X)"NO SALES"ĺ(DL$(X),2);"/";(DL$(X),3,2);"/";(DL$(X),2):2237DL$(X)LPLP1:LP50ĺ(12):5000:LP0` TMTMM:TYTYT:M0:T0:1505te D$;"CLOSE S1:X1CN2405+AP$"Y"AN1X(RN$(X));ML%02055[Y1ML%:(X)SJ$(Y)2050D$;"READ SJTRANS,R";Y:Z14:A$(Z):Z:A$(1)"C"A$(4)"-"A$(4):MM(A$(4))Y (SP$(X),7);" ";N$(X);:M(M.5)100:XX$(M):25000:TM((YAD COMPANY":X1CN:RN$(X):X:D$"CLOSE COMPANY"xD$::5:"SET PAPER TO TOP OF FORM.":"HIT ANY KEY WHEN READY ";HK$::D$::10:9:"<< PRINTING REPORT >>":6000:5000X0:D$"OPEN ARCUST,L127,D1":D$"OPEN SJTRANS,L100,D2" X1X11:XXDL$(X)"NO SALES":E20:D$;"OPEN LIW,L7": X:D$"CLOSE"M AP$"Y"1195 D$::5:"PRINT REPORT SEQUENTIALLY (S) OR":"ALPHABETICALLY (A)? "; SA$:SA$"S"SA$"A"1186 AN1::SA$"S"AN0:11952RN$(CN):D$"OPEN COMPANY,D1":D$"RED$"OPEN LIW,L7":X1CN:D$"READ ARCUST,R"XN HX$,Y$,Z$:Z$""Z$X$" "Y$o IN$(X)Z$:D$;"READ YTDS,R";X VE21110ĄYT$(X):1170 `E21110YT$(X)""E20:D$;"OPEN YTDS,L10" D$;"READ LIW,R";X E21175ĄDL$(X)( E21175DL$(X)""D$;"OPEN SJ-POINT":D$;"READ SJ-POINT":X1ML%:SJ$(X):X:D$;"CLOSE"c D$"OPEN ARCUST,L127,D1" D$"READ ARCUST,R0":CN:Y13:MX$(Y),NX$(Y):NX$(Y)"COMPANY"CN(MX$(Y))AP$"Y":1050 Y, Y0:N$(CN),YT$(CN1),DL$(CN1):D$"OPENYTDS,L10":OSE":7000g D$;"OPEN SJTRANS,L100":D$;"READ SJTRANS,R0":PL%,ML%,CJ$:D$;"CLOSE SJTRANS":SJ$(ML%) D$:CJ$CM$ĺBL$::5:"INSERT THE TRANSACTIONS DISK":"FOR ";M$(CM)" IN DRIVE #2.":"HIT ANY KEY WHEN READY ";:HK$::1034 ML%01039F M):M:M0 D$"APPEND AR,D1") 7000 D$;"OPEN CONFIG.FIL":D$;"READ CONFIG.FIL":CN$,CA$,CC$,CS$,CZ$,PS$,ND$,FF$,XX$,K1$,K2$,S1$,LF$:D$;"OPEN SJCONFIG":D$;"READ SJCONFIG":S$(1),CM$,CY$,CY$:D$"CLOSE":CM(CM$) D$"APPEND ART,D2" D$"CLj! ** SALES ** 04.14.83-30000D$(4):D$;"CLOSE":M$(12),S$(19):D$;"NOMON I,O,C":X167:EQ$EQ$"=":SP$SP$" "::BL$(7):60000 dJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER:M112:M$(            15160)Ħ )x"EL="EL,"ET="ET:5$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HR$::(Nu(EL16070EL42)(ET6ET8)ė:BE$:5:"INSERT 'PROGRAM DISK'":"IN DRIVE #1":"HIT ANY KEY TO CONTINUE ";:HR$:: )XuET5(EL15120EL15140ELSK IN FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:HR$::'5uEL4000ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::':uET254ET255Ħf(DuEL16000(ET6ET8)ė:5:BE1)"."VXLXX1:VVVV1:VX2261023&eVV226102K&eX1:(AM$)826102V&e26110_&eNG1g&e:&0uET(222):EL(218)(219)2569'2uEL16028(ET6ET8)ė:5:BE$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVBLE":"TRANSACTIONS DIXX$,XX1,1)"."XX$XX$"0":250604%aXX$XX$".00"R%aXX(XX$):XX$(XX$,XX2)X%b%e"";AM$:NG0:AM$"A"AM$BX$:26110%eAM$""26110%eLX(AM$):VV0:Y1:X1YLX:((AM$,X1,1))57((AM$,X1,1))48((AM$,X1,1))4626102#&e(AM$,X1,CTIONS HAVE NOT BEEN":" POSTED.... RETURN TO MENU":" SELECT POST BEFORE RECONCILLIATION"::" HIT RETURN TO CONTINUE ";:HR$::4000$>$aXY(XX$):YX(XY):YX(YX100.5)100:XX$(YX)$aXX$"00"XX$:XX(XX$):(XX$,XX2,1)"."25060"%a(D$"OPEN CRTRANS,L100"#>D$"READ CRTRANS,R0":LP%,LM%:D$"CLOSE":CJ$CM$ė:5:" WRONG MONTH":" CUSTOMER DISK IS MONTH ";CM$:" TRANSACTIONS ARE MONTH ";CJ$::"HIT RETURN TO CONTINUE ";:HR$::16000$>PL%ML%LP%LM%ė:5:" TRANSA"=">D$"APPEND AR,D1"[">D$"OPEN CONFIG.FIL,D1":D$"READ CONFIG.FIL":C9$:D$"CLOSE"">D$"OPEN SJCONFIG":D$"READ SJCONFIG":XX$,CM$,YE$,CY$:CM(CM$)">D$"APPEND ART,D2"#>D$"CLOSE":D$"OPEN SJTRANS,L100":D$"READ SJTRANS,R0":PL%,ML%,CJ$::!n;D$"CLOSE":15600:W!0SL$H014:958:W:D$"OPEN ARCUST,L127,D1":D$CI$:Z3$:CC$:Z4$:D$t/14:958:CH1ĺ"ANOTHER: INVOICE(I) "CM$"("R$") ":"BOTH(B) CANCEL(X) >> ";:12260/CH2ĺ"ANOTHER: "CM$"("R$") CANCEL(X) >> ";:12260/CH3CH4ĺ"ANOTHER: INVOICE(I) CANCEL(X) >> ";:12260/SL4:123603/$(AB):25000:BD$XX$:BA(BD$):BD(AM$(8))BA:XX$(BD):25000:BX$XX$/D$"WRITE OP,R"RI:OC$:DA$:IN$:XK$AM$(8):2900:Z1$XK$:XK$BD$:2900:Z2$XK$:XK$CA$(8):2900:Z3$XK$:XK$CB$:2900:Z4$XK$/Z1$:CU$:Z2$:D$"WRITE "CR$" ,R"RC:CO$:CD$::25000::(SP$XX$,9)::21:"*":" X(CANCEL) O(OK) R(RE-ENTER) >> ";tD/DS$:DS$"X"DS$"R"DS$"O"12100N/:DS$"R"Ģ17:958:12000X/DS$"X"SL4:12350Il/XX$(BC):25000:CB$XX$:CB(CB$):UA(CA$(8))CB:XX$(UA):25000:UX$XX$:XX(BX$):18:26000:NG1ĺBE$:12008_.AM(AM$):BCCBAM:ABBAAM:AMBDAM(UA)ĺBE$:12008/XX$AM$:25000:17:18:XX$:BD(AM$(8))AB:UA(CA$(8))BC:12:"UNAPPLIED ";:868:XX$(UA):25000::(SP$XX$,9):I/12:21:"*BAL. DUE ";:XX$(BD)<#RCZ:2700+F#CI$CN$FD0:6000:90502P#Z8Z#.12:"UNAPPLIED "(SP$UX$,9);:868:12:21:"*BAL. DUE "(SP$BX$,9);.1:19:"ENTER 'A' TO CLOSE OUT INVOICE BALANCE"$.1:17:"AMOUNT TO APPLY $";:18:(UL$,9);:BC0:AB0:UA(UX$):BD$,9)::1:"*":BX$XX$:32,0:33,40)V@D$:FD1:Z1IK:OP%(Z)((CU$))8040eTRIZ:3700^IN$NI$FD0:7000:8050hZr(#D$:FD1:Z1CK:CR$"UC"90164#CM%(Z)((CU$))90206#90408#UC%(Z)((CU$))9020:#9040 (20(CU$(CU))2):CU$(CU):32,20:33,19:4::Q109:"*":Q:5:BE$:"*DATE "(DA$,2)"/"(DA$,3,2)"/"(DA$,2)::"*INVOICE # ";#12:IN$::"*TOTAL..$ "(SP$AM$(8),9):1:12:"*BAL. DUE ";:BA(BD$):BD(AM$(8))BA:XX$(BD):25000::(SP$XXMEN,D1"pD$:3:(20(CU$(CU))2):CU$(CU):BE$::"DATE "(CD$,2)"/"(CD$,3,2)"/";(CD$,2)::CM$;:14:CI$::"TOTAL....$"(SP$CA$(8),9):1:12:"UNAPPLIED ";CB(CB$):UA(CA$(8))CB:XX$(UA):25000::(SP$XX$,9)::UX$XX$:1:XD$:3:D$AM$(8)3060 7000; 20:21:" RIGHT INV.?(Y/N) ";\ YN$:YN$"Y"YN$"N"3040l 21:868:r tD$"READ OP,R"RI:OC$,DA$,IN$,AM$(8),CU$,BD$:XK$AM$(8):2800:AM$(8)XK$:BD$""BD$"000"~XK$BD$:2800:BD$XK$:D$:D$"RUN ARC$,CB$:D$:XK$CA$(8):2800:CA$(8)XK$:CB$""CB$"000"R XK$CB$:2800:CB$XK$X z LM(XK$):LM2XK$"."XK$: XK$(XK$,LM2)"."(XK$,2):T LM(XK$):LM3XK$(XK$,2):^ XK$(XK$,LM3)(XK$,2): D$:YN$"":RIS:3700 Bė:10:" INVOICE "NI$" NOT FOUND":516712000:518@270F\YN$"":RCF:2700qCB$CA$(8)2060{600020:"RIGHT "CM$" ? (Y/N) ";YN$:YN$"Y"YN$"N"20401:868: 8 D$"READ "CR$",R"RC:CO$,CD$,CI$,CA$(8),CH4İ26029000 4FD1320C6S1IK:OP%(S)((CU$))318M83000f:YN$"Y"İ12000:319r>S:320?SL318,320,320,322@270B250:SL0CH6İ2609000FD1ė:10:CM$" "CN$" NOT FOUND":5168000'FD1CR$"CM":R$"M":CM$"CREDIT MEMO":CKCL%:ZCR$"UC":R$"R":CM$"CASH RECEIPT":CKUL%:17:958:BE$;BE$:20::"SEARCH COMPLETE ";::"FOR "CU$(CU):AA9ĺ"(X) TO CANCEL""RETURN TO CONTINUE ";:HR$::HR$"X"SL4,250:SL0.C2250:SL0:C0(F1CK:C1207BCM%(F)((CU$))209K212eUC%(F)((CU$))209n212x2000YN$"Y"İ12000:214F:216SL224,212,224,224260:SL0:CC1C2222203CUCNİ270C0:*"Y"SL2S0:116(mYN$"Y"S11:1124nF:122?oS1S1dpSS1IK:OP%(S)((CU$))ī120nr3000tYN$"Y"İ12000:121xS:110ySL111,101,101,130z260:CC1|C2128~F11:102270C0:8000FD122"";C3$:CN$C3$ V(CN$)680&XVZ16:HO:(UL$,6);:HO:"";NI$:(NI$)690\^d250:SL0:C0:F11:S11:S0:F0:102eF1F1fFF1CK:C1105gCM%(F)((CU$))107h110iUC%(F)((CU$))107j110k2000lYN$LL":76 >CU$""604 @CU(CU$):CU0CUCN74[ BCU1CN:CU$(CU$(CU),(CU$))74g FCU:60 J10:HO:CU$(CU);:CU$(CU):(UX$)0ľHR$:HR$" "CU$UX$:10:HO:868:70 L1: P82OK:HO:(UL$,6);:HO:OK2Ą"";C2$:CN$C2$:86T 2C3$""NI$""CH4:561 4C2$""CH5:56F 6C3$""CH6:56] 7CU1CN:CU$(CU) 8:CH100,200,300,300,500,500 9AA9SL4ĂCU :10 ;HO20 <AA0:CU0:10:HO:(UL$,20);:HO:"";CU$:UX$CU$:CU$"#"76 =CU$"0"Ģ10:HO:"A:41 OK$"O"ĺ:42E OK(OK$):OK$:OK2Ģ14:20:C3$"":868d $OK3Ģ12:20:C2$"":868x &OK60,80,80,90 '24 )4000 *CU$"0"CH1:AA9:55 ,C2$""C3$""NI$""CH1:56 .C2$""C3$""CH2:56 0C2$""NI$""CH3:56" ENTER '0' FOR ALL, '#' TO EXIT ":: " 1) CUSTOMER......"::" 2) CASH RECEIPT#.":10:"OR":" 3) CREDIT MEMO#.."::" 4) INVOICE#......":59:CU$"#"41 19:"OK(O) RETURN TO MENU(R)"::" OR NUMBER TO CHANGE >> ";:868:OK$:OK$"R"ĺER D$::2:10:"ACCOUNTS RECEIVABLE":3:"INVOICE AND RECEIPT RECONCILIATION":::10:3:"** READING CUSTOMER INFORMATION **":15000( D$:NI$"":C2$"":C3$""::3:22(C9$)2::" "C9$" "::5:6:"INVOICE AND RECEIPT RECONCILIATION":::6::!! ** RECON **10.15.81+30000M$(12):X112:M$(X):X:X0:D$(4):D$"NOMON I,O,C":UL140:UL$UL$(95):SP$SP$" "::BE$(7):D$"CLOSE":16000  JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMB                     PL$P$(1)s&RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)&WHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)&\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1): 'fPS%(HW$(1)):SU$PF$(1)'SCOUNTS":O%PúD$"PR#"PS%:SU$:e%dð1100:D$"PR#0":%`HW$(14):NU$(0)(0)%3800:3810:3830%HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"610108&MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)(CT)):25000:36,41:(SP$XX$,9):36,31:"========= =========":$(D$::2:10:"ACCOUNTS RECEIVABLE":3:"PREPARE FOR GENERAL LEDGER POSTING":10:10:"** READING FILES **":8%" ":" ":"PLEASE CHECK ACCOUNTS WITH THE GENERAL LEDGER'S CHART OF AC(EQ$,50):" "#H"A/C# TITLE DEBIT CREDIT":"---- ------------------------- --------- ---------":#"---- ------------------------- --------- ---------"$$:XX$(DT):25000:36,5:"TOTAL >>";:36,31:(SP$XX$,9);q$lXX$(MC$(X)MC(X)MC(X)(AM$(7)):38050b"X:Z1Z11"2110:MC$(Z1)AC$:MN$(Z1)AN$:MC(Z1)(AM$(7))""X<#@" ":" ":(EQ$,50):" ":36,10:CN$:36,10:JR$(ZX)" "DE$:36,10:"GENERAL LEDGER POSTING REPORT":36,10:M$(CJ)" "ME$", 19"CY$:" ":$"JOURNALS MUST BE PREPARED FOR POSTING":"BEFORE THE REPORT CAN BE PRINTED.":"HIT ANY KEY TO CONTINUE ";:HK$::!Q18:OC$"C"Q7XX$((AM$(Q))):25000:AM$(Q)XX$!TC(Q)TC(Q)(AM$(Q))"Q"AC$""İ38000"h&"pX1Z1S"AC$ CREATED.":"DO YOU WISH TO REPLACE IT? (Y/N) ";:HR$::8000:HR$"Y"Ħ uHR$"N"E23002İ1100:200 u"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1:!y:D$:5:"NO TRANSACTIONS ON FILE":"HIT ANY KEY TO CONTINUE ";:HK$::1100:!耗:D$:5:BEHK$::KvuE1254E1255ĦZ{uE25030Ħ}uE23000(E25000E16)ė:D$:5:BE$"THIS MONTH'S TRANSACTIONS":"HAVE BEEN POSTED. HIT ANY KEY":"TO RETURN TO MAIN MENU. ";:HR$::4000w uE23002ė:5:BE$"THIS MONTH'S POSTING FILE":"HAS ALREADY BEENFROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::6buE270ĺBE$::D$:5:"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:^aXX(XX$):XX$(XX$,XX2):XY0XX$"-"XX$db0uE1(222):E2(218)(219)256:E245ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$::5uE24000ĺBE$::D$:5:"REMOVE ANY DISK N(M$(CM)):MN(MN2):D$"CLOSE"NF$"CONFIG":o@HR$"N"8020JD$"UNLOCK"PG$",D2"TaXY(XX$):YX(XY):YX(YX100.5)100:XX$(YX):XX$"00"XX$:XX(XX$):(XX$,XX2,1)"."25060a(XX$,XX1,1)"."XX$XX$"0":25060.aXX$XX$".00"000:LP0=CopD$"OPEN"NF$"CONFIG,D1":D$"READ"NF$"CONFIG":ZZ16:AC$(ZZ),AN$(ZZ):ZZ:D$"CLOSE"NF$"CONFIG":]XD$"OPEN"NF$"CONFIG,D1":D$"READ"NF$"CONFIG":NM$,CM$,YE$,CY$,AC$(7),AN$(7):X16:AC$(X),AN$(X):X:AN$,AC$,SR$,GL$:CM(CM$):M):5040LCTCTMC(R):PK10mXX$((MC(R))):25000:5100R:40210:DT0:CT0:ZX1NP0ZX2:(12):40000:X1NP:X2R1:5035NP0:R10:X10:X20:DT0:CT0:(12):50020:1100:7MC$(R)" "MN$(R);:36,31PK:(SP$XX$,9):LPLP1:LP40İ400000:D$"OPEN"PG$",D2":D$"READ"PG$:DP$,Z$R1R11:MC$(R1),MC(R1),Z$:TS$JR$(2)5032TS$Z$NPR1:TS$JR$(2)MC$(R1)""5030R1R11:X11:X2NP1:NP0X2R1R1R1:MN$(R):RRX1X2:PK0:X2050426MC(R)0DTDTMC(RPG$",D2"D$"OPEN"PG$",D2":D$"READ"PG$:DP$:D$"CLOSE":DP$"POSTING FILE"İ33000:5110ZX1:DT0:CT0:LP0:TS$JR$(1):D$::5:BE$"SET PAPER TO TOP OF FORM ":"HIT ANY KEY WHEN READY ";:HK$:!:10:10:"<< PRINTING REPORT >>"Z50000:4Y16:AM$(Y);:Y:36,119:AM$(7);C9$:37000:Z10İ39000\ (12):50020:1100:D$"OPEN HARDWARE,D1":D$"READ HARDWARE":TT%:SL113:HW$(SL):SL:PS%(HW$(1)):D$:D$"CLOSE HARDWARE":D$;"RUN ARMEN,D1"7100:R10:D$"APPEND"1:RN$(R):RQ D$"LOCK"PG$",D2" D$::5:BE$"DO YOU WISH TO PRINT":"A POSTING REPORT? (Y/N) "; YN$:YN$"Y"YN$"N"3296 :YN$"Y"5000 1100: Y83350 AM$(Y)(XX$,10):3360 AM$(8)(XX$,10)h TC(Y)0:Y:AM$(8);:X):R1R11:RN$(R1)AN$(X)O X^ Z103260 X1Z1:(MC(X)100).005ĺMC$(X):MC(X)100:JR$(ZX):R1R11:RN$(R1)MN$(X) MC(X)0:MC$(X)"":X 1050:2120:Z10:ZZ18:TC(ZZ)0:ZZ:ZX  D$"WRITE"PG$"$ "":0:"":R103300; R1RRITE A/R.TRANSd ZX1āX16:TC(X)TC(X):X:3242 X46:TC(X)TC(X):X:TC(8)TC(8) D$"WRITE"PG$ (TC(8)).005ĺAC$(7):TC(8)100:JR$(ZX):R1R11:RN$(R1)AN$(7) X16:AC$(X)""(TC(X)100).0053246H AC$(X):TC(X)100:JR$(ZN :RN1ML%:RN$(RN):1030 Q18:OC$"C"Q7XX$((AM$(Q))):AM$(Q)XX$ TC(Q)TC(Q)(AM$(Q)) Q AC$""İ38000 D$:10:16(JR$(ZX))2:JR$(ZX)" "DE$:::2:"READING TRANSACTION # "RN" OUT OF "ML%:RN= SET SIGNS AND WLOSE ACCNM"NF$:W D$"APPEND"PG$",D2"m D$"OPEN"PG$",D2" D$"DELETE"PG$ D$"OPEN"PG$",D2" NF$(1)"SJ":NF$(2)"CR":R10:ZX12:NF$NF$(ZX):ZX7000,6000:1000:1010:2100:DP$CJ$ME$CY$ ZX1ĺD$"WRITE"PG$:DP$:"AR". ML%03260D$"READ"NF$"TRANS,R0":PL%,ML%,CJ$,NO$:CJ(CJ$):D$"READ"NF$"TRANS,R"RN:OC$,DA$,IN$,AM$(8),CU$X17:AM$(X):X:AC$:D$"CLOSE"NF$"TRANS":LD$"CLOSE":4D$"OPEN ACCNM"NF$",L21":%>D$"READ ACCNM"NF$",R"RN:AN$:?HD$"C:CH$"1"CH$"3"220iCH$:CH(CH$):CH3İ1100:4000NO$"N"ė:5:BE$"MONTH MUST BE CLOSED BEFORE POSTING":"TO THE GENERAL LEDGER.":"HIT RETURN TO CONTINUE ";:HR$::200CH2İ5000:200 3000:200-D$"OPEN"NF$"TRANS,L100,D2":e:7::20(CN$)2:" "CN$" ":::4:"GENERAL LEDGER POSTING PROGRAM"JR$(1)"SALES":JR$(2)"CASH RECEIPTS":DE$"JOURNAL" :"1) PREPARE JOURNALS FOR POSTING"::"2) PRINT POSTING REPORT"::"3) RETURN TO MENU"&:4:"SELECT CHOICE ";DCH$K":"FOR ";M$(CM);" IN DRIVE #2.":"HIT ANY KEY TO CONTINUE ";:HK$::70a200dCY(CY$):ME$"31":CJ4CJ6CJ9CJ11ME$"30"nCJ2ME$"28":CY4(CY4)ME$"29"su100:R10:PG$"A/R.TRANS":ZZ18:TC(ZZ)0:ZZ:LP0:CR0:PN0:D$:D$,FF$,XX$,K1$,K2$,S1$,LF$:1100f FD$"APPEND ART,D2" P41000:1000:1010:1100:CM$CJ$200 U:D$:5:"TRANSACTION DISK IS FOR ";M$(CJ):"DO YOU WISH TO CONTINUE? "; ZHK$:HK$"Y"HK$"N"90x_:HK$"Y"ė:5:"INSERT THE TRANSACTION DISRY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER X112:M$(X):X:X0 D$"NOMON I,O,C" (NF$"SJ" -D$"APPEND AR,D1" :41000:7000O DFF$(12):D$;"OPEN CONFIG.FIL":D$;"READ CONFIG.FIL":CN$,CA$,CC$,CS$,CZ$,PS$,NN  ** PGL ** 04.01.83Z 30000 M$(12),MC$(300),MN$(300),MC(300),RN$(300):D$(4):BE$(7):60000 X1130:UL$UL$(95):SP$SP$" ":MI$MI$"-":EQ$EQ$"="::X0:D$"NOMON I,O,C":V110:V217:H130:H216:V35:1100v  JANUARY,FEBRUA          OUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:HK$::nKuE2140E18135NuD$:"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1"CM)".":"HIT ANY KEY WHEN READY ";:HK$::KuE2140E18135NuD$:"ERROR ON LINE ::uE1254E1255Ħ/?uE25000E25015ĦDuE265E19ė:D$:5:BL$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$::YIuE275E19ė:D$:5:BL$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACC3)(XX$,2)8D$"WRITE YTDS,R"X:XX$:X:D$"CLOSE":l0uE1(222):E2(218)(219)256:E2140E161505uE23010E23000ė:D$:5:BL$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$:00.5)100:XX$(YX)%XX$"00"XX$3XX(XX$)O(XX$,XX2,1)"."5115x(XX$,XX1,1)"."XX$XX$"0":5115XX$XX$".00"XX(XX$)XX$(XX$,XX2)XY0XX$"-"XX$ XX(XX$):XX3XX$(XX$,2):5140 XX0XX$(XX$,XXNS,D2,L100"X1B%0D$"READ SJTRANS,R"XFY15:AM$(Y):YhAM$(1)"C"AM$(4)"-"AM$(4)yCU(AM$(5))AM(CU)AM(CU)(AM$(4))XD$"OPEN YTDS,D1,L10"X1CN:AM(X)AM(X)100:XX$(AM(X))XY(XX$):YX(XY):YX(YX1 D$"RUN ARMEN,D1"' D$"CLOSE":LE25000ĺD$"APPEND YTDS":5005V5030mD$"OPEN YTDS,L10"X1CN:D$"READ YTDS,R"XE25015ĄYT$E25015E20:YT$"":D$"OPEN YTDS,L10"AM(X)(YT$):XB%05075 D$"OPEN SJTRATION DISK HAS NOT BEEN POSTED":"HIT ANY KEY TO CONTINUE ";:YN$::3000D$::5:BL$"MONTH "M$(CM)" HAS NOT BEEN "CP$(CP):"HIT ANY KEY TO CONTINUE ";:YN$::3000 D$"APPEND ARP,D1" FT%33010 D$"OPEN FT":D$"WRITE FT":FT%3:FT%:3020:D$"OPEN A/R.TRANS":D$"WRITE A/R.TRANS":X175:"POSTING FILE":X:3020eD$"OPEN ART,D2":3020,:D$:5:BL$"DISKS ARE NOW READY FOR RECORDING":"THIS MONTH'S TRANSACTIONS.":"HIT ANY KEY TO CONTINUE ";:YN$::3000HD$::5:BL$"THE TRANSACD ART,D2"E2140135S1$SJ$(2):S2$"N":D$"OPEN SJTRANS,L100,D2":D$"OPEN CRTRANS,L100":D$"WRITE SJTRANS,R0":T%:T%:S1$:S2$:S3$:D$"WRITE CRTRANS,R0":T%:T%:S1$:S2$:C3$:3020JD$"OPEN TRANS,D2":D$"WRITE TRANS":"TRANSACTIONS":3020:3020xEY0İ5000:130@}D$"OPEN YTDS":D$"DELETE YTDS"D$"OPEN LIW,L7,D1":D$"WRITE LIW,R0":SJ$(2)"01"SJ$(4):3020D$::5:BL$"INSERT BLANK INITIALIZED":"TRANSACTION DISK IN DRIVE #2.":"HIT ANY KEY WHEN READY ";:HK$: D$"APPENOT MATCH":"TRANSACTION DISK. INSERT ":"THE CORRECT DISKS.":"HIT ANY KEY WHEN READY ";:YN$::65 nD$"OPEN SJCONFIG":D$"WRITE SJCONFIG":S%(SJ$(2))1 sS%13S%1:FY%(SJ$(4)):FY%FY%1:SJ$(4)(FY%)uSJ$(1)"N":SJ$(2)(S%):X122:SJ$(X):":A%,B%,S1$,S2$,S3$:D$"OPEN CRTRANS,L100":D$"READ CRTRANS,R0":X%,Y%,C1$,C2$,C3$:3020:A%B%X%Y%2000 RS2$"N"CP1:2010 UD$"OPEN ARCUST,L127,D1":D$"READ ARCUST,R0":CN:D$"CLOSE ARCUST"c ZSJ$(2)S1$ė:D$:5:BL$"CUSTOMER DISK DOES NHIT ANY KEY WHEN READY. ";:YN$:7 AD$"APPEND AR,D1" F5:D$;"OPEN SJCONFIG,D1":D$;"READ SJCONFIG":X122:SJ$(X)::D$;"CLOSE":CM(SJ$(2)):FT%2130 HSJ$(3)SJ$(2)EY1 KD$"APPEND ART,D2"m PD$"OPEN SJTRANS,D2,L100":D$"READ SJTRANS,R0'S":"ACCOUNT RECEIVABLE TRANSACTIONS DISK":"AND A BLANK INITIALIZED DISK? (Y/N) ";s YN$:YN$"Y"YN$"N"20 :YN$"N"3000! (:5:BL$"INSERT LAST MONTH'S":"CUSTOMER DISK IN DRIVE #1":"AND LAST MONTH'S TRANSACTION DISK.":"IN DRIVE #2.":"),SJ$(22),AM(300):X112:M$(X):X:X0:CP$(0)"POSTED":CP$(1)"CLOSED":CP0:BL$(7):D$(4):D$"OPEN FT,D1":D$"READ FT":FT%:3020:FT%265 D$"NOMON I,O,C"T D$::5:BL$"DO YOU HAVE DUPLICATE COPIES OF LAST":"MONTH'S CUSTOMER DISK, LAST MONTH ** OPEN ** 12.02.81z JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER10D$::2:10:"ACCOUNTS RECEIVABLE":12:"START NEW MONTH":10:10:"** READING FILES **": 30000 M$(12),CP$(1z#        ԲŠ/"   . 2.5 09-12-83  Π̠Π# Ӡ Р ʲ3Ԡ  Ԡ>ԠŠ ϠҠ ŠԠŠʠ Š* ΠРŠ͠& в Ҳ     BE$"IS THIS THE FIRST TIME":"THIS PROGRAM IS BEING USED? (Y/N) ";evYN$:YN$"N"YN$"Y"30210wv:YN$"Y"40 v:5:BE$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT THE CUSTOMER DISK." v"HIT ANY KEY WHEN READY ";:HK$:: D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::NuE21000030200SuE211000E1930220XuE2720E15Ħu"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1:CuD$::5:"AGAIN. HIT ANY KEY TO CONTINUE ";:HK$::NG1:340:Y16:6Y:" ";(64Y);:10:CC$(Y);:20:CN$(Y):YeX0āY16:6Y:" ";(64Y);:10:CC$(Y);:20:CN$(Y):Ye0uE1(222):E2(218)(219)256:E1254E1255ĦIuE23000E23010ė:16:6Y:" ";(64Y);:10:SA$(Y);:20:SN$(Y):Y:bReNG0:TS$AC$26100deTS$""26102e(TS$)4(TS$)1000(TS$)4999NG1:26102eY16:TS$CC$(Y)XY26100eY:26102le:5:BE$:"DUPLICATE ACCOUNT NUMBER. PLEASE ENTER":PEN AR":D$"CLOSE":,aNG0:TS$AC$25100_a(TS$)4(TS$)1000(TS$)4999NG1:25102aY16:TS$SA$(Y)XY25100aY:251024 b:5:BE$:"DUPLICATE ACCOUNT NUMBER. PLEASE ENTER":"AGAIN. HIT ANY KEY TO CONTINUE ";:HK$::NG1:340:YONFIG":X16:CC$(X),CN$(X)::D$"CLOSE"/t'I*D$"OPEN SJCONFIG,D2"a*D$"WRITE SJCONFIG"+"Y":CM$:YE$:CY$:AC$:AN$:X16:SA$(X):SN$(X)::CC$(1):CN$(1):SR$:"N" +D$"OPEN CRCONFIG":D$"WRITE CRCONFIG":X16:CC$(X):CN$(X)::D$"O%12 D$"OPEN FT":D$"WRITE FT":FT%:D";CLOSE"H D$"RUN ARMEN,D1"^'D$"APPEND AR,D2"'E20:D$"OPEN SJCONFIG,D2":D$"READ SJCONFIG".'NM$,CM$,YE$,CY$,AC$,AN$:X16:SA$(X),SN$(X)::CC$(1),CN$(1),SR$,GL$)B'D$"OPEN CRCONFIG":D$"READ CRCX16:" "(64X);" ";CC$(X);" ";CN$(X):X::"ENTER LETTER TO CHANGE OR 'O' IF OK ";OK$:OK$"A"OK$"F"OK$"O"1205:OK$"O"ıX(OK$)64:JR$"CASH RECEIPTS":4111200D$"CLOSE" D$"APPEND FT,D1" FT%0FT";SA$(X);" ";SN$(X):X::"ENTER LETTER TO CHANGE OR 'O' IF OK ";nQOK$:OK$"A"OK$"F"OK$"O"1105S:OK$"O"ıVX(OK$)64:JR$"SALES":390[1100a:4:5:"CASH RECEIPTS JOURNAL ACCOUNTS":5:"------------------------------":: CHANGE OR 'O' IF OK ";AOK$:OK$"A"OK$"B"OK$"O"1005R:OK$"O"ıoOK(OK$)64:OK210,420y1000"STATE ";CS$:"ZIP CODE ";CZ$:FL:4:9:"SALES JOURNAL ACCOUNTS":9:"----------------------"::X16:6)(64X);" 42026000:NG1420ZAC$TS$:"TITLE ";:"";AN$:AN$(AN$,20):AN$""Ģ(37):460`:5:10:"ACCOUNTS RECEIVABLE":10:"SYSTEM CONFIGURATION":10:"--------------------"::"A. SALES TAX RATE ";SR$:"B. ";AC$;" ";AN$::"ENTER LETTER TO"1"411.X3((TS$)1000(TS$)4999)413LX2(CC$(X),1)"4"4126XC:H2:"";CN$(X):CN$(X)(CN$(X),20):CN$(X)""418:5:X0"ENTER 'ACCOUNTS RECEIVABLE' (1000'S)"AC$"":"ACC # ";:"";TS$:(TS$)1000(TS$)19996X:" ";(X64);NX1X3Ģ6CX:H2:868:"CASH ACCOUNT (1000'S)"X2ĢC6X:H2:868:"SALES DISC. (4000'S)"TS$"":6XC:H1:"";TS$:TS$""X2CC$(X)"":CN$(X)"":41926000:NG1413CC$(X)TS$:(X1X3)(CC$(X),1)6Ģ12C:H2:"SALES TAX (2000'S)"d TS$"":6XC:H1:"";TS$:TS$""X5SA$(X)"":SN$(X)"":405y 25000:NG1390 SA$(X)TS$:X6(SA$(X),1)"2"400 (SA$(X),1)"4"390 6XC:H2:"";SN$(X):SN$(X)(SN$(X),20):SN$(X)""400 99Ģ(37):337 S TD$:g ^"ENTER ACCOUNT NUMBER AND TITLE":"FOR COLUMNS OF ";JR$;" JOURNAL" h"HIT RETURN FOR EACH COLUMN NOT NEEDED" m"COLUMN ACC # TITLE": |6X:" ";(64X); X5Ģ11C:H2:"SHIPPING (4000'S)"! X 0 ,"WHAT IS THE CURRENT MONTH? (1-12) ";\ 6"";CM$:(CM$)1(CM$)12Ģ(37):300b 8 @"ENTER MONTH FISCAL YEAR ENDS (1-12) "; J"";YE$:(YE$)1(YE$)12Ģ(37):320 O Q"ENTER CURRENT YEAR (YY) "; R"";CY$:(CY$)80(CY$)"Y"YN$"N"151% :YN$"N"150v 420:JR$"SALES":340:X16:380:X:JR$"CASH RECEIPTS":340:X16:410:X 1000:1100:1200:11000:3000 D$::5:"ENTER SALES TAX RATE ";:"";SR$:(SR$)5210 SR(SR$):SR1SRSR100:SR$(SR) TO CONTINUE ";:HK$::3000/ #E210000155 (D$::2:10:BE$"ACCOUNTS RECEIVABLE":5:BL$:"PLEASE INSERT THE CUSTOMER DISK":"IN DRIVE #2. HIT ANY KEY WHEN READY ";:HK$: :210:300:320:337:D$::"IS EVERYTHING OK? (Y/N) "; YN$:YN$ ** MAKE SJ ** 12.09(300008H110:H220 BE$(7):D$(4):D$"NOMON I,O,C":D$"OPEN FT,D1":D$"READ FT":FT%:D$"CLOSE":10000FT%0150 NM$"N"ĺD$::5:BE$:"NO CHANGES MAY BE MADE":"IN THE MIDDLE OF A MONTH":"HIT ANY KEY     $"OPEN FT":D$"WRITE FT":FT%:FT$:D$"CLOSE"@ D$"RUN ARMEN"O FT%3:100)Q ** MAKE FT 12.09 **:5:(7)"DO YOU HAVE 2 BLANK INITIALIZED DISKS":"ONE LABELED 'CUSTOMERS' AND ANOTHER ONE":"LABELED 'TRANSACTIONS'? (Y/N) ";YN$:YN$"Y"YN$"N"30(YN$:YN$"N"500- dD$(4):D$"OPEN FT":D$"DELETE FT":D).5):CH0PF$(0)PF$(0)(CH)`&WHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)&\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):&fPS%(HW$(1)):SU$PF$(0)&)&913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)6'ð1100:D$"PR#0":-%`HW$(14):NU$(0)(0)C%3800:3810:3830%HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010%MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1) &RHW48:CH((HW$(HW)RINT SALES/CASH RECEIPTS JOURNAL":10:10:"** READING FILES **":k$Y1GL:MC$(X)GA$(Y)MN$(X)GN$(Y)t$Y:$GL0G11:46030$G11GL:AC$GA$(G1)G1GL:G1:46100$ijG1$γGA$(G1)AC$:GN$(G1)AN$:GLG1$$PúD$"PR#"PS%:SU$:%d- ---------"J#:XX$(TM):25000:36,5:"TOTAL >>";:36,31:(SP$XX$,9);#lXX$((MT)):25000:36,41:(SP$XX$,9):36,31:"========= =========":X1Z1:MC$(X)"":MC(X)0:X:TM0:MT0:Z10:ZZ0:MA0:Q0:B$(D$::2:10:"ACCOUNTS RECEIVABLE":3:"PPP:(SP$XX$,9):LPLP1"g"X1Z1:PP0:MC$(X)" "MN$(X);:MC(X)0PP10:MTMT(MC(X)):40120w"TMTMMC(X)"XX$((MC(X))):25000"œ36,31PP:(SP$XX$,9):LPLP1:LP40LP0:40000"ǜX: #"---- ------------------------- --------00540080!LACX:X840020>!OAC7:NF$"CR"TC(X)TC(X)I!Q40050k!TNF$"SJ"TC(X)TC(X):40050!^NF$"CR"X3TC(X)TC(X)!rTC(X)0PP10:MTMT(TC(X)):40055!tTMTM(TC(X))!wXX$((TC(X))):25000"|AC$(AC)" "AN$(AC);:36,31(EQ$,50):" ":36,16(JP$)2:"RECAP OF "JP$" JOURNAL":36,19MN:M$(CJ)" 1 9 ";(CY$,1)" ";(CY$,1):" ":(EQ$,50):" " H"A/C# TITLE DEBIT CREDIT":"---- ------------------------- --------- ---------": !JPP0:(TC(X)).C$MC$(X)MC(X)MC(X)(AM$(7)):380505X:Z1Z11qMC$(Z1)AC$:MN$(Z1)AN$:MC(Z1)(AM$(7)):GL$"N"38050GG1GL:AC$GA$(GG)MN$(Z1)GN$(GG):38050GG:MN$(Z1)"** NO MATCH **"X PRINT JOURNAL RECAP{ @LP0:(12):" ":" ":40LP0:RNML%ĺ(12):35000#h" ========= ========= ========= ========= ========= ========= ========= =========":pZ1 = Z1 + 1:MC$(Z1) = AC$:MA(Z1) = VAL (AM$(7)): RETURN zX1Z1&A8),9);C8$;:Q16:C8$" ":(AM$(Q),1)"-"((AM$(Q)))0C8$"-":AM$(Q)(AM$(Q),2){(SP$AM$(Q),9);C8$;:Q:" ";AC$;C9$"":(AM$(7),1)"-"C9$"CR":AM$(7)(AM$(7),2)36,120:(SP$AM$(7),9);C9$:AM$(7)XM$:AC$""İ38000@LPLP1:LP)TC(8)(XX$):DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2)TIN$IN$SP$:IN$(IN$,6)C8$" ":(AM$(8),1)"-"((AM$(8)))0C8$"-":AM$(8)(AM$(8),2)TCU$(CX)CU$(CX)SP$:CU$(CX)(CU$(CX),25):(SP$RN$,3);" ";DA$;" ";IN$;" ";CU$(CX);:(SP$AM$(--------- --------- --------- --------- --------- ---- ---------":dXM$AM$(7):Q16:XX$AM$(Q)OC$"C"XX$((XX$)):25000:AM$(Q)XX$TC(Q)TC(Q)(XX$):Q:TC(7)TC(7)(AM$(7)):XX$AM$(8):OC$"C"XX$((XX$)):25000:AM$(8)XX$7TC(8NV. # CUSTOMER ";:35200^~"TR# DATE CHK. # CUSTOMER ";(AN$(7),9);:X16:36,55(X1)10:(AN$(X),9);::36,115:"MISC AMOUNT":35220:C"--- -------- ------ ------------------------ --------- --------- (CY$,1);" ";(CY$,1):" "q(EQ$,129):" ":36,48:CN$:36,48:CA$:36,48:CC$;", ";CS$;" ";CZ$;:36,95"PAGE ";PN;" OF ";TP" ":(EQ$,129):" ":" ":36,47:AC$(7);:Y16:36,57(Y1)10:AC$(Y);:Y:" "(}CH$"1"ĺ"TR# DATE I1030ė:D$:5:"NO TRANSACTIONS ON FILE":"HIT ANY KEY TO CONTINUE ";:HK$::1100:200mvuE1254E1255Ħu"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1:" ":PNPN1:(EQ$,129):" ":36,53CR:TR$;" J O U R N A L ":36,59MN:M$(CJ);" 1 9 ";:"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::buE270ė:D$:5:BL$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:HK$::XluE15E2XY0XX$"-"XX$bD0uD$;"PR#0":E1(222):E2(218)(219)2562uE245ė:D$:5:BL$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$::Q5uE24000ė:D$:5:BL$"REMOVE ANY DISK FROM DRIVE #1 AND"ĄB1$,B2$,B3$,B4$9CU$(CU)Z$:Z$""CU$(CU)X$" "Y$?aXY(XX$):YX(XY):YX(YX100.5)100:XX$(YX):XX$"00"XX$:XX(XX$):(XX$,XX2,1)"."25060a(XX$,XX1,1)"."XX$XX$"0":25060aXX$XX$".00"aXX(XX$):XX$(XX$,XX2):D$"OPEN HARDWARE,D1":]D$"READ HARDWARE":TT%:SL113:HW$(SL):SL:PS%(HW$(1)):D$:wD$"CLOSE HARDWARE":D$"RUN ARMEN,D1"pD$"OPEN ARCUST,L127,D1":D$"READ ARCUST,R0":CN:CU$(CN),SJ$(CN1):D$"READ ARCUST,R"CU:X$,Y$,Z$:CH2PORT >>":50000! HK$"U"32125 TPML%40:3213I TP(ML%PL%)40` TP(TP)TPTP1t TP(TP):35000 C9$"":RNP1%ML%:RN$(RN):1030:36000:RN:40000:X8:40010:X16:40010:X:Z10İ40100\ 40210:(12):50020f 1100:L%ML%HK$"U"ĺBE$"NO UNPOSTED TRANSACTIONS":"PRESS ANY KEY TO CONTINUE ";:HK$::3000i 2000:2100 :P1%1:HK$"U"P1%PL%1 Z10:D$::5:BL$"SET PAPER TO TOP OF FORM."! Q0:"HIT ANY KEY WHEN READY ";:HH$:::10:10:"<< PRINTING RE> TO EXIT, E)NTIRE MONTH OR":"U)NPOSTED "JP$" ONLY."P :"ENTER SELECTION "; HK$:HK$"E"HK$"U"HK$(27)Č1052:3020 HK$(27)3430 :1000:1010:ML%0ĺBE$"NO "JP$" TRANSACTIONS":"PRESS ANY KEY TO CONTINUE ";:HK$::3430Y P(CU$):CUCX:CX0İ2010< OC$"V"AC$""İ2110:46000BSLD$"CLOSE":uD$"OPEN CUSTNAME"NF$",L27":D$"READ CUSTNAME"NF$",R"RN:CU$(CX):4D$"OPEN ACCNM"NF$",L21":>D$"READ ACCNM"NF$",R"RN:AN$:5 D$::5:BE$"ENTER 30000F20W D$"CLOSE":JD(12,31),M$(12):D$(4):5000:D$"NOMON I,O,C":60000) X1132:DS$DS$"$":BR$BR$"%":SP$SP$" ":EQ$EQ$"=":MI$MI$"-":UL$UL$(95)::BE$(7):TL$(1)"IN      !!! ! ! ! ! !!!!!!!!!""" " " " " """""""fPS%(HW$(1)):$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):BCfPS%(HW$(1)):(1)CRHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)CWHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)C\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):D$"K":P$(0)"":P$(1)"":HW$(2)"S"61010zBMP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)BRHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)BWHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH).C\HW:PF(YY$):DD1DD31MM1MM1240000KAh(MM4MM6MM9MM11)DD3040000aAmMM2DD2940000ArMM2YY4(YY4)DD2840000AwDA$MM$DD$YY$:"";X7$A|A`HW$(14):NU$(0)(0)A3800:3810:3830)BHPF$(0)"":PF$(1)"":P9$(9):PL$P9:15WI:(DA$,2);"/";(DA$,3,2);"/";(DA$,2)U@J15WI:Z18:Z3Z6ĺ"/";:40035g@OV3WD:D$(Z)@TD$(1)(13)DA$""40060@YD$(Z)"0"D$(Z)"9"40015@^D$(Z);#AcZ:MM$D$(1)D$(2):DD$D$(4)D$(5):MM(MM$):DD(DD$):YY$D$(7)D$(8):YY?SR$N$(AK)SISI19?RNRN(SI):RNTRRN036150V?1100:SR$N$(AK)36150w?7000:1300:AJ$(27)36160?9900:SISI1:39055?@:V310:1:V3:868:"ENTER DATE >>"?BV3:15:DA$""ĺ(UN$,2)"/"(UN$,2)"/"(UN$,2):40010-@EV3WD1100:SR$(N$(AK),LN,NL)36150F>FC1:7000:1300:AJ$(27)36160_>19900:SISI1:36055i>69950~>@SI0:LN0:NL0:>X1100:ULLL1SR$N$(AK)36150>bSR$N$(AK)LLSI:36030>lSR$N$(AK)ULSI:36030?SISI1:SI0RNRN(SI):1100LLL1SR$(N$(AK),LN,NL)36150H=ŒSR$(N$(AK),LN,NL)LLSI:36030n=ČSR$(N$(AK),LN,NL)ULSI:36030=ȌSISI1:SI0RNRN(SI):1100=ʌSI0SI1:36055=ҌSR$(N$(AK),LN,NL)SISI1:36055=Ԍ36040=׌RNRN(SI):RNTRRN036150 >܌ (N) SEARCH? ";1>";::" TO EXIT"17mB34,22::7BPF0::5:(7);"SET PAPER TO TOP OF FORM.":"HIT ANY KEY WHEN READY. ";:HK$::7RD$::BE$:5:"HIT ANY KEY WHEN READY ";:HK$:7 RBE$::5:"DO YOU WANT A TEST LABEL? (Y/N) ";8 RYN$:YN$"D?":"ENTER 'S' OR 'D' ";;6>SD$:SD$"S"SD$"D"16010_6>:SD1:DS0:SD$"D"SD2:DS25v6>32,0:::40000:6>D$::5:5);"** PRINTING CUSTOMER LIST **":"7hB"PRESS RETURN TO HALT PRINTING":"PRESS SPACE BAR TO RESUME PRINTING"::8:"PRESDED"::"HIT ANY KEY TO RETURN TO MENU ";:HK$::5:D$:(7)::5:"NO CUSTOMERS ON FILE":"GET READY TO ENTER FIRST CUSTOMER.":"HIT ANY KEY TO CONTINUE ";:HK$::SM1:3266>D$::5:"DO YOU WANT THE CUSTOMER LIST":"SINGLE (S) OR DOUBLE (D) SPACE3:N$(11);:36,125:N$(10):NPNP1:SD$"D"ĺ" "V42JJJJ1:NPTRNP0:(12):13050k42JJ57DSİ12000u42620042KC27İ1650::110:80043461000:1010:1400256D$::5:"THERE ARE ";TR;" CUSTOMERS ON FILE"::300TR" CUSTOMERS MAY BE AD- ------------------- --------- ------------ ------ - ------":" ":JJ7:32RN$(RN):RN$XP$RN$:RN$(RN$,3):RN$;:36,4:N$(1);" ";N$(2);:36,31:N$(3);:36,52:N$(4);:36,73042N$(5);", ";N$(6);:36,93:N$(7);:36,103:N$(8);:36,116:N$(9);:36,12E ";PN;" OF ";TP:" ":(EQ$,131):" "2."CUS NAME COMPANY ADDRESS CITY & STATE ZIP PHONE CR LIMIT "SF$(10)I3/"--- -------------------------- -------------------- -------------------1.PNPN1:F11101.TPTR50:TR25TPTPSDI1.TP(TP)TP(TP)1Y1.PN1120081.FF$"N"āFF1F1:" ":FF:120101.PN1ĺ(12)1.(EQ$,131):" "1.CN$;" >> CUSTOMER LIST";:36,60:"DATE >> "MM"/"((DD$))"/ 19"YY$;&2.36,100:"PAG FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::0C+P16P18P210000P210100ė:D$:5:BL$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$::1\+P1,P2::"1) ATTN: ACCOUNTS PAYABLE":"2) ATTN: ":"3) LEAVE LINE BLANK"::"ENTER CHOICE (1-3) ";/F(ND$:ND$"1"ND$"3"10310/K(ND$::/*P1(222):P2(218)(219)256:P1254P1255Ħd0 +P19P2325ė:D$:5:BL$"REMOVE ANY DISK"WRITE MXRC":TR:PS$"PR#"PS$:K1$""SF$(9)K1$K.'K2$""SF$(10)K2$.'1650:FT%1FT%2:D$"OPEN FT,D1":D$"WRITE FT":FT%:1650:P21010:15000.'1650:200.<("AFTER COMPANY ON INVOICES & STATEMENTS"p/A(6:"PRINT WHICH OF THE FOLLOWING?":"N"10100%-'NN$"2"ND$"1"10167@-'NN$"1"ND$"1"10167-'D$"OPEN CONFIG.FIL,D2":D$"DELETE CONFIG.FIL":D$"OPEN CONFIG.FIL":D$"WRITE CONFIG.FIL":CN$:CA$:CC$:CS$:CZ$:PS$:ND$:FF$:UL$:K1$:K2$:SP$:LF$:UL(UL$)2.'D$"OPEN MXRC":D$P CODE ";CZ$: ,'CN$(CN$,39),,'FF$"Y"b,':10300:"PRINT HOW MANY LABELS ACROSS? (1-3) ";,'UL$:UL$"1"UL$"3"10142,'UL$::"ENTER KEY #1 ";K2$::K2$(K2$,6):"IS EVERYTHING OK? (Y/N) ";,'YN$:YN$"Y"YN$"N"10155 -'YN$::YN$CONFIG.FIL,D2":D$;"READ CONFIG.FIL":CN$,CA$,CC$,CS$,CZ$:PS$,ND$,FF$,UL$,K1$,K2$,SP$,LF$:NN$ND$:1650:PS$"PR#"PS$:UL(UL$)+.'CN$(CN$,39)+B'+t'D$"VERIFY AR,D2",~'D$::5:"COMPANY NAME ";CN$:"ADDRESS ";CA$:"CITY ";CC$:"STATE ";CS$:"ZI";::" "SR$.*&SR$""Ģ10:18:">> NULL <<"4*&`*&:10:9:BL$"** SEARCH COMPLETED **":~*&FC0Ė9:SR$" NOT FOUND"*&DL11000:DL:*'D$"VERIFY AR,D2"*'D$::2:10:"ACCOUNTS RECEIVABLE":7:"CUSTOMER FILE MAINTENANCE"+$'D$;"OPEN A139360)$SR$""9357M)$SR$(N$(AK),LN,NL)(SR$""N$(AK)"")9390i)$SR$""N$(AK)""9390~)$FC1:7000:1300)$AJ$(27)9400)$RNTRKA13İ9900)$RN)$9950)$FC0:LN0:NL0:)$1100: *&D$::10::"SEARCHING FOR >>119212"(#EN$"E"İ36022:9240I(#AK12İ9440:7000:1300:D$:9240[(#AK10İ22000l(#AK12İ9340|($AKKA:9200("$RI0:1400:D$:(|$SR$N$(AK):9900:SR$""9345(~$NL(SR$)($LN0LN1($N$(KA)"#"9400($RNSNTR )$1100:K:AK$"N"92501'#AK(AK$)64:KAAK:AK109200G'#IN(AK)63İ36000'#FC0:N$(AK)"":SN1:D$::VT10:5:"ENTER A '#' WHEN THROUGH":SQ1'#AK540,540,540,540,540,540,540,540,540,540,637,640,650:KA13N$(KA)"#"9240'#N$(KA)"#"9001(#AK&1#)&2#DI111:IN(DI)0IN(DI)255V&7#(64DI)". ";:50,IN(DI):SF$(DI)::DIp&#"L. CUSTOMER NUMBER"&#"M. SEQUENTIAL SEARCH":"N. RETURN TO MENU": ,0&#);"PLEASE MAKE SELECTION (A-N) ";&#AK$:AK$"A"AK$"N"9160'#(AJ$(27)SM1)ı%AJ(AJ$)64::VT10:8:13::N$(AJ)::SQ0:AF0:AKAJ:AJ540,540,540,540,540,540,540,540,540,540,637:7002%(#1000:1010:D$%)#N30:FC0:D$::5:EN$""%*#32,10:%+#%-#"SEARCH/EDIT MENU"%/#"----------------"&0#NTER LETTER TO CHANGE (A-K) ";9$AJ$:AK12SM17162o$(AJ$"A"AJ$"K")AJ$"P"AJ$"O"Č1052:7155$(AJ12SM1)AJ$(27)AJ$"P"(AJ$"A"AJ$"K")AJ$"O"Č1052:7155$:AJ$"P"İ100:768:110:7002$:AJ$"L"ı% AJ$"O"*#ZD$::3:3);"CUSTOMER # ";RN;" >>":X#]X110:(64X)". "SF$(X);:16:N$(X):Xv#"K. TAX EXEMPT? ";N$(11)#:"ENTER 'O' IF ENTRY IS OK"#:"ENTER 'P' TO PRINT ENTRY"#AK12SM1ĺ:"PRESS <> TO RETURN TO MENU"$:5:"OR E$(2,X)NN$(3,X)%"NN$(3,X)NN$(4,X);"NN$(4,X)NN$(5,X)B"XN"PP14Z"X1UMw"36,36(X1):NN$(PP,X);~"X"" ""PP"" ":" ":6200"KC276140"KC0""8(16384)127İ35000"B"XAF1:EF1:N31N$(3)"",Z2)N$(Z1):Z2:Z1!zX1UMV!NN$(1,X)""NN$(1,X)NN$(1,X)" "NN$(2,X):6020l!NN$(1,X)NN$(2,X)!NN$(3,X)""NN$(3,X)NN$(1,X):NN$(1,X)""!NN$(5,X)NN$(5,X)XP$:NN$(5,X)(NN$(5,X),17)!NN$(5,X)NN$(5,X)NN$(6,X)" "NN$(7,X)"NN(1-";MX1;") ";: CH$:CH(CH$)::CHMX1ġ:MX0:5000Q CH0CHMX15915 YCH:MX0ė:5:(7);"NO SORT FILES EXIST":"HIT ANY KEY TO CONTINUE ";:HK$:::5000 MX0: p100:MY0:AM126010 rHMUMUMHM!uZ117:Z21UM:NN$(Z1 ";LP;" LABELS PRINTED **"J12:10:"HIT ANY KEY TO CONTINUE ";:HK$:T5000Z D$::5:5);::"CHOOSE FROM SORT FILES BELOW"::Y13TN(Y)0ĺ10);Y;". ";F$(Y):MXMX1Y:10);MX1". CANCEL" :10);"ENTER CHOICE 1RTRMY0AM125295,6000:KC275295<AM125292KRTR5240lAM12HMHMUM:HMULUMHMUM0AM125280AM12LPTRTR0:R0:FLAG0:MX0:UM0:MY0110:KC27KC0:5310AM12LP(HM$)34,0:::10:10:"**sAM13TRTN(Y) xX1UM=RR1:RTRUMX1:5280NFLAG15280RNRN(R):AM12RN(RN$):FLAG1:1100:52611450AM115270AM12PL$(NN$(AM,X),LN,NL)MX1:5250MYMY1:LPLP1XMY0RTR5282MX):HM1ĺ(7):5177(<UM(UL$):21000[=:8:10::"** PRINTING LABELS **":::17000~QAM13İ1500:1700:1670:5220VLN0LN1:NL(PL$)ZAM12PL$N$(AM)_NL(PL$):NL0NL1:LN1dAM14AM12āX1TR:RN(X)X:XnAM12TRHMAM$:AM$"A"AM$"O"5145&32,0:8(AM$"O"5900I-AM(AM$)64U/:VT102AKAM:AM540,540,540,540,540,540,540,540,540,540,637,640,59104AM10AKAM:220007AM1251809:5:"HOW MANY LABELS DO YOU WANT ";:"";HM$:HM(HM$::"PRINT LABELS"::)LP0:LN0:KC0432,10X:X110:(64X)". "SF$(X):Xn"K. TAX EXEMPT?""L. CUSTOMER NUMBER" "M. SORTED ORDER" "N. ALL CUSTOMERS SEQUENTIALLY""O. RETURN TO MENU":"ENTER CHOICE (A-O) ";AD HARDWARE":TT%:SL113:HW$(SL):SL:PS%(HW$(1)):D$:UD$"CLOSE HARDWARE":LD$::5:BL$"300 CUSTOMERS ON FILE":"NO MORE CUSTOMERS MAY BE ADDED":"HIT ANY KEY TO RETURN TO MENU ";:HK$::34,0:1000:1010:D$:213); D$:8 :10:10);::"** LOADING PROGRAM **":G D$"CLOSE"] 1000:1010:1400 D$"OPEN MXRC,D2":D$"DELETE MXRC" D$"OPEN MXRC":D$"WRITE MXRC" TR D$"CLOSE MXRC" D$"RUN SORT2,D1"D$"OPEN HARDWARE,D1":;D$"RET,R";RNY111!NN$(Y,X)(Y2D$:FD$"OPEN";F$(Y)La@D$"WRITE";F$(Y)qTRN1TN(Y)YRN%(RN(RN))^RN%hRNmD$:rD$"CLOSE"|D$"CLOSE";F$(Y):D$;"READ";F$(Y)Z1TN(Y)RN(Z)Z0:SM2AK3N$(3)""N$(3)N$(2)" "N$(1):N31=[LPLP1GaD$:|D$"WRITE ARCUST,R0":TR:Y13:TN(Y):F$(Y):YD$:AF11320D$"WRITE ARCUST,R";RNX111:N$(X):X(AF0:D$:xD$"CLOSE ARCUST":D$"READ ARCUS0:1650:D$;"PR#0":D$:800!@D$"OPEN ARCUST,L127,D2":XD$"READ ARCUST,R0"uTR:M111:IN(M)255:MY13:TN(Y),F$(Y):M111:F$(Y)SF$(M)TN(Y)TRIN(M)63MY:D$:LD$"READ ARCUST,R";RNVX111:N$(X):X1XN3;". ";F$(X):RR1X9R0ĺ(7);"NO SORT FILES":MR1;". CANCEL"S[D$q"ENTER CHOICE ";CH$:CH(CH$)CH0CHR195032,0:100:YCH:TRTN(CH):120001500:1700:Y1TR:RNRN(Y):1100:13000:Y:1401000:1010:100:12000ORN1TR:1100:13000:RN:1400:D$;"PR#0":800:5:10);::"CHOOSE SORT FILES BELOW"::915:CHR19991600017100:16050:967R01000:1010D$:32,10:R0:X15TN(X)0ĺX ORDER":"PLEASE CHOOSE FROM BELOW":+6E>"A. CUSTOMER ORDER"KCcH"B. SORTED ORDER"J:"C. RETURN TO MENU"R:"ENTER CHOICE ";pAB$:AB$"A"AB$"C"880u32,0wAB$"C"999zAB$"B"ī900{16000|17100:16050:640 F10:"ENTER STARTING CUSTOMER # ";:641:SNRN:9345:a1200:1400:D$::200 34,0:D$:PN0:::5:10);::"PRINT CUSTOMER LIST"::"DS0:SD0:KC0:NP0%32,10:%*"CUSTOMER LIST MAY BE PRINTED":"IN CUSTOMER OR SORTED1TX$"Y"TX$"N"TX$"#")6387N$(11)TX$:TX$:ZVT:"ENTER CUSTOMER NUMBER ";"(1-"TR") ";:"";N$(AK):RN$N$(AK):RN$"#"SM2645RN(RN$):RN1RNTRė:5:(7);"CUSTOMER # ";RN;" DOES NOT EXIST":"PLEASE TRY AGAIN":DL11000:DL::N$(1)"#"RN1SM1700;(N$(AK))DT(AK)İ24000:540O N$(AK)"#"550"(AK2AK3)N$(AK)""(N$(AK),1)"A"İ23000:540$AK9İ26000:NG1540&}VT:868:13);(UN$,1):VT:"TAX EXEMPT? ";!~TX$:SQ0TX$"Y"TX$"N"(SQR300:1200:4940I ::"ADD CUSTOMERS";::RN1ĺ" ENTER '#' TO EXIT" EF0:AK110:540:AK:VT23:637:7000:AF0:1300:CP10CP0:1200D$:51616368,0:SM1EF0VTAK21VT:1:868:SF$(AK);:13:(UN$,DT(AK));:13:"";N$(AK) DO YOU":"WISH TO DO THIS? (Y/N) ";D CYN$:YN$"Y"YN$"N"323] D:YN$"Y"SM3:326t ED$;"RUN ARMEN,D1" FSM500,9000,3000,14000,5000,800:200 P21010P20:515 1000:1010:517 1000 TRRNRNTR1:CPCP1:D$:RN300TTION":"8. RETURN TO MAIN MENU":32,0::15);"PLEASE SELECT(1-8) ";c ;SM$:SM$"1"SM$"8"315 @:SM(SM$):SM710100 ASM8326$ B1650:D$::BL$:12:"IF ANY ADDITIONS OR CORRECTIONS":"HAVE BEEN MADE, THE CUSTOMERS":"SHOULD BE RESORTED." "CN$" ":::5:"CUSTOMER FILE MAINTENANCE"::"1. ADD CUSTOMERS":"2. EDIT/SEARCH CUSTOMER INFORMATION":"3. SORT CUSTOMERS"E "4. CHECK NUMBER OF CUSTOMERS":R0:"5. PRINT CUSTOMER LABELS":"6. PRINT CUSTOMER LIST":"7. REMAKE SYSTEM INFORMA0,CITY,15,STATE,2,ZIP CODE,9,TELEPHONE,12,CR. LIMIT,6:DT(10)8Z PX19:SF$(X),DT(X):Xc c130 dD$"PR#"PS%:PF$(PF);: iSU$;: nD$"PR#0": FT%110100 10000 PF1:R0:KC0:D$:K2$""SF$(10)K2$ SQ0::5::20(CN$)2:0:BL$(7)* D$"BLOAD SCDMP,D1":60000  JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER:X112:M$(X):X:X0 FSF$(10)"KEY #1":SF$(11)"TAX EXEMPT?"> K FIRST NAME,10,LAST NAME,15,COMPANY,20,ADDRESS,2C;(4)"MAXFILES 3"2 ** CUST ** 02.25.82>11000NN$(12,12),SF$(12),N$(20),RN(300),IN(20):UN120:UN$UN$(95):UN:D$(4):D$;"NOMON I,O,C":D$;"OPEN FT,D1":D$;"READ FT":FT%:1650M$(12) X1132:XP$XP$" ":EQ$EQ$"="::X                   1000hE260035ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:HK$::jE1963000lE16E27063010m"ERROR ON LINE "E2" ERROR CODE >> ";E1:E #1":"AND INSERT THE CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$::YE230035ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::^E1254E1255Ħ`E2300655========":T10:TQ0:O6V2:H1:(UL$,9):V2:H1:"";AM$(X):26000:NG1310;XX$AM$(X):25000:AM$(X)XX$:XX$(SP$XX$,9):V2:H1:XX$:@E20:KTD$;"PR#0":E1(222):E2(218)(219)256:E230040E19ė:D$:5:BE$"REMOVE ANY DISK FROM DRIV=V2:9:868:(UL$,20);:9:"";AN$:AN$""(AN$)20285Q,95:AC$""303.V2:"J. ";AC$;" ";AN$;(SP$,40(AN$)):CH$"1"RNPL%İ255/26001XTCT:18:30:"---------":23000:19:4::AC$(7);" ";AN$(7);::30:(SP$XX$,9):30:"= CT1NF$"SJ"303$ AC$"":95F V2:H21:868:" ";(UL$,4)X7:V2:H2:"";AC$:((AC$)1000(AC$)4(AC$)5999)AC$""267AC$""İ95:280V2:4:868:AC$GL$"Y"AC$""İ30095:GN1265AC$""AM$(X)"0.00":315);:(CU$)0ľHR$:HR$" "Ģ7:14:868:210<CU$(CU):n6:14:(UL$,6):6:14:"";IN$:(IN$)6225tAC$(X)""ıV1X:H1:(UL$,9):V1X:H1:"";AM$(X):26000:NG1250XX$AM$(X):25000:AM$(X)XX$:V1X:H1:(SP$XX$,9):4)DD28130/DA$MM$DD$YY$:"";X7$:X7$""5CT0:7:14WI:(UL$,20);:14WI:"";CU$:CU(CU$):(CU$,1)"*"CU$(0)CU$:CT1:222CU$""195CU0CUCN220CU1CN:CU$(CU$(CU),(CU$))220CU:195,7:14WI:CU$(CUD$(1)(13)DA$""1904D$(Z)"0"D$(Z)"9"145@D$(Z);Z:MM$D$(1)D$(2):DD$D$(4)D$(5):MM(MM$):DD(DD$):YY$D$(7)D$(8):YY(YY$):DD1DD31MM1MM12130(MM4MM6MM9MM11)DD30130MM2DD29130 MM2YY4(YY ";:HK$::80& zML%TL%İ49000:803 }90:105v V3WD:14WI:DA$""ĺ(UL$,2);"/";(UL$,2);"/";(UL$,2):140 V3WD:14WI:(DA$,2);"/";(DA$,3,2);"/";(DA$,2) 14WI:Z18:Z3Z6ĺ"/";:165 V3WD:D$(Z):D$(1)"#"VF0ĺ:80G n225:195:X16:250:X:265:305:21000:OK$"X"CT0:90:105r sTRTR1:ML%ML%1:RNML%:30022:30029 xML%PL%99ĺBE$:D$::5:"THE LIMIT OF 100 TRANSACTIONS HAS BEEN REACHED":"PLEASE POST THE CUSTOMER ACCOUNTS":"HIT ANY KEY WHEN READYRECEIPTS":14:(MI$,13):5:"A. DATE":6:"B. CHECK #":"C. PAID BY"::" A/C# TITLE";:31:"AMOUNT":" ---- -------------------- ---------":X16:(67X);". ";AC$(X);" ";AN$(X) \ _17:1:868:"J. MISC. ACCT.": i130:D$(1)"#" FOR ";M$(CJ):"MAY BE ADDED. HIT ANY KEY":"TO CONTINUE ";:HK$::20` <ML%0RNML%:30000f A FD$"APPEND TRANS,D2":31000:30008:30010:30012:ML%PL%100İ50:AC$"":90:105 P30020:30015:TR0İ30030 U ZVF0:D$::2:14:"CASH EIPTS"::"2. SEARCH/CHANGE TRANSACTIONS"::"3. RETURN TO MAIN MENU"::4:"ENTER CHOICE >> (1-3) "; CH$:CH$"1"CH$"3"25 32,0::CH(CH$):CH3İ31000:30035 #CH70,27000 (20F 2D$:NO$"O"ML%TL%CH2ĺBE$::5:"NO TRANSACTIONS  ** CR2 ** 6.22b104,(176):103,((175)2((256(176)(175)1)0)):(4);"RUN COM"l 340NF$"CR":60000D$"NOMON I,O,C"D$:::5:20(CN$)2:" "CN$" "::7:WI0:9:"CASH RECEIPTS MENU":32,5:e "1. RECORD CASH REC     E2135E2145E2155)Ħ1uE1254E1255E18Ħdu"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1:BL$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::NuE225ĺD$::5:BL$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK":"HIT ANY KEY WHEN READY ";:HK$::XuE15( D$"RUN ARMEN,D1"# D$"CLOSE":F0uE1(222):E2(218)(219)2562uE260ĺD$::5:BL$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:HK$::w5uE23000ė:D$:5:%:SP$(X):XXD$"POSITION CR-POINT,R"K1%:D$"WRITE CR-POINT":X1K2%K1%:CP$(X):XbL3010D$"OPEN SJTRANS,L100,D2":D$"OPEN CRTRANS,L100":D$"WRITE SJTRANS,R0":ML%:ML%:CJ$:NO$:LI$:D$"WRITE CRTRANS,R0":K2%:K2%:A$:B$:C$v3010$"WRITE UC,R"UC%X:Y16:CR$(X,Y):Y,X:D$"WRITE UC,R0":UC%CR:D$"OPENUC-CUST":D$"APPENDUC-CUST":D$"WRITEUC-CUST":X1CR:C3$(X):3010D$"OPEN SJ-POINT,D2":D$"OPEN CR-POINT" D$"POSITION SJ-POINT,R"PL%:D$"WRITE SJ-POINT":X1ML%PL010:MC0900*D$"OPEN CM,L40,D1":X1MC:D$"WRITE CM,R"CM%X:Y16:CM$(X,Y):Y,X:D$"WRITECM,R0":CM%MC:D$"OPENCM-CUST":D$"APPENDCM-CUST":D$"WRITE CM-CUST":X1MC:C2$(X):X3010:FLAG2FLAG3CR01000D$"OPEN UC,L40,D1":X1CR:D)0CRCR1:Y16:CR$(CR,Y)C$(Y):Y:C3$(CR)C$(5);bXN3010:S0800D$"OPEN OP,L40,D1":X1S:D$"WRITE OP,R"O%X:Y16:ST$(X,Y):Y,X:D$"WRITE OP,R0":O%S:D$"OPEN OP-CUST":D$"APPEND OP-CUST":D$"WRITE OP-CUST":X1S:C1$(X):X  35)"0"560JS$(1)"S"SS1:Y16:ST$(S,Y)S$(Y):Y:C1$(S)S$(5):560~&MCMC1:Y15:CM$(MC,Y)S$(Y):Y:C2$(MC)S$(5)0XNFLAG26904XD$"OPEN CRTRANS,L100,D2":XK1%1K2%:D$"READ CRTRANS,R"X:Y15:C$(Y):Y:CP$(XK1%)C$(5):(C$(5)E2145ĄCM%, E2145E20:D$"DELETE CM"Q D$"OPEN UC,L40":D$"READ UC,R0"c E2155ĄUC% E2155E20:D$"DELETE UC" 3010:FLAG1590 D$"OPEN SJTRANS,L100,D2":XPL%1ML%:D$"READ SJTRANS,R"X:Y15:S$(Y):Y:SP$(XPL%)S$(5):S$("CLOSE SJTRANS"B xFLAG2FLAG3ĺD$"CLOSE CRTRANS":FLAG31910v D$::10:6:"** POSTING CUSTOMER ACCOUNTS **" 3010:D$"OPEN OP,L40,D1":D$"READ OP,R0" E2135ĄO% E2135E20:D$"DELETE OP" D$"OPEN CM,L40":D$"READ CM,R0" N CRTRANS,L100":D$"READ CRTRANS,R0":K1%,K2%,A$,B$,C$ UJS$(5)CJ$ĺD$::5:"INSERT THE ACCOUNTS RECEIVABLE":"DISK FOR ";M$(CM);" IN DRIVE #2":"HIT ANY KEY WHEN READY ";:HK$::60 dPL%ML%FLAG1 nK1%K2%FLAGFLAG2 sFLAG1FLAG3ĺD$E,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERG D$"APPEND AR,D1" 2:D$"OPEN SJCONFIG,D1":D$"READ SJCONFIG":JS$(1),JS$(5):CM(JS$(5)):3010 <D$"APPEND ART,D2"6 A2:D$"OPEN SJTRANS,L100":D$"READ SJTRANS,R0":PL%,ML%,CJ$,NO$,LI$:D$"OPENTINUE? (Y/N) ";/ YN$:YN$"Y"YN$"N"13C :YN$"N"3000 MX100:ST$(MX,6),C1$(MX),C2$(MX),C3$(MX),CR$(MX,6),M$(12),CM$(MX,6),SP$(MX),CP$(MX):X112:M$(X)::D$(4):3010:D$"NOMON I,O,C":BL$(7)1  JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNe  ** CP2 ** 12.21*D$(4):10D$::2:10:"ACCOUNTS RECEIVABLE":9:"POST CUSTOMER ACCOUNTS":10:10:"** READING FILES **": 30000 (7)::5::"NOTICE >>";::" POSTED TRANSACTIONS":"MAY NOT BE CHANGED.":"DO YOU WISH TO CO    FULL. NO MORE TRANSACTIONS":"MAY BE ADDED. HIT ANY KEY TO CONTINUE ";:HK$::31000:FX1:20"DISK FULL. NO MORE TRANSACTIONS":"MAY BE ADDED. HIT ANY KEY TO CONTINUE ";:HK$::31000:FX1:20 H0PF$(0)PF$(0)(CH)X+XHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)+]HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):+bPS%(HW$(1)):SU$PF$(1):+ML%ML%1:D$"DELETE TRANS,D2":31000:30008:30022],"D$::5:BE$"DISK "*?D$(4):HW$(14):NU$(0)(0);*D62000:62005:62010*IPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"62035*NP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)+SHW48:CH((HW$(HW)).5):CN **")R13::"NOTE";::" ENTER ALL AMOUNTS POSITIVE"::"EXCEPTION >> FOR MISC., ENTER":"DEBITS POSITIVE, CREDITS NEGATIVE":)0D$"OPEN HARDWARE,D1":)5D$"READ HARDWARE":TT%:SL113:HW$(SL):SL:PS%(HW$(1)):D$:):D$"CLOSE HARDWARE":IG.FIL":CN$,CA$,CC$,CS$,CZ$,PS$,ND$,FF$,XX$,K1$,K2$,S1$,LF$:D$"CLOSE":CM(CM$):MN(M$(CM))u(~FF$"Y"FF$(12)(D$"VERIFY ART,D2"(31000:)HD$::2:10:"ACCOUNTS RECEIVABLE":13NF:TF$;" JOURNAL":10:3:"** READING CUSTOMER INFORMATIONM$,CM$,YE$,CY$,AC$(7),AN$(7):X16:AC$(X),AN$(X)::AC$(8),AN$(8),SR$,GL$:CM(CM$):M$(12):X112:M$(X)::NF$"SJ"60025'u31000'vD$;"OPEN CRCONFIG":D$;"READ CRCONFIG":X16:AC$(X),AN$(X):^(yD$"CLOSE":D$"OPEN CONFIG.FIL":D$"READ CONF5):SP$SP$" ":EQ$EQ$"=":MI$MI$"-"::TB$(1)"TOO LARGE":TB$(2)"INVALID"&jX0:BE$(7):V110:V217:H130:H216:V35:D$(4):31000:D$;"NOMON I,O,C"&o30040:30042:61000:CU$(CN):CU1CN:30045:CU'tD$"OPEN SJCONFIG,D1":D$"READ SJCONFIG":TO CONTINUE ";:HK$::/%PúD$"PR#"PS%:SU$;:?%dúD$"PR#0":%` JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER%bNF0:TF$"SALES":NF$"CR"TF$"CASH RECEIPTS":NF4L&eTL%750:NF%(TL%):X1130:UL$UL$(9$vAG$(1)(AG$,2):AG$(2)(AG$,3,2):AG$(3)(AG$,2):`$vD$"WRITE LIW,R0":DA$:AG$DA$:30415u$vD$"CLOSE LIW":$yD$"CLOSE":%hD$::5:BE$"THE LIMIT OF "TL%" TRANSACTIONS HAS BEEN":"REACHED. NO MORE TRANSACTIONS MAY BE":"ADDED. HIT ANY KEY vD$"OPEN ACCNM"NF$",L21,D2":D$"WRITE ACCNM"NF$",R";RN:AN$:D$"CLOSE ACCNM"NF$:AC$"":#fvD$"OPEN ACCNM"NF$",L21,D2":D$"READ ACCNM"NF$",R";RN:AN$:D$"CLOSE ACCNM"NF$:#vD$"OPEN LIW,L7,D1":#vD$"READ LIW,R0":AG$:LM(AG$):LM5AG$"0"AG$6"luD$"CLOSE ARCUST":"qu|"uD$"OPEN CUSTNAME"NF$",L27,D2":D$"WRITE CUSTNAME"NF$",R"RN:CU$(0):D$"CLOSECUSTNAME"NF$:"vD$"OPEN CUSTNAME"NF$",L27,D2":D$"READ CUSTNAME"NF$",R"RN:CU$(0):D$"CLOSECUSTNAME"NF$:"\vCU$"0"NF$"SJ"AN$AN$(8)Y#a!SuD$"RUN ARMEN,D1"E!XuD$"VERIFY AR,D1":D$"OPEN ARCUST,L127,D1":d!YuD$"OPEN ARCUST,L127,D1":!ZuD$"READ ARCUST,R0":CN:!]uD$"READ ARCUST,R"CU:X$,Y$,Z$:NF$"SJ"āB15:B$(B):B:B5$,N$(10),B5$!buCU$(CU)Z$:Z$""CU$(CU)X$" "Y$!guX17:AM$(X):X:30032:AC$:AC$""İ30300n JuAG$(1)MM$AG$(3)YY$(AG$(2))(DD$)İ30400:30420:30430 KuCU$"0"İ30200 Lu MuD$"APPEND"NF$"-POINT,D2":D$"WRITE"NF$"-POINT":CU$:D$: NuD$"CLOSE"NF$"-POINT": Pu(AC$)0AC$"" QuF$"TRANS":BDuD$"WRITE"NF$"TRANS,R0":PL%:ML%:CJ$:NO$:LI$:FuD$"WRITE"NF$"TRANS,R";RN:X18:AC$(X)""X8AM$(X)"0.00"GuLM(AM$(X)):LM3AM$(X)(AM$(X),2):30025HuAM$(X)(AM$(X),LM3)(AM$(X),2)- IuX:OC$:DA$:IN$:AM$(8):CU$:CU0SI1CT1:30210:NF$"SJ"FD$(3)AM$(7)N6uCU0NF$"CR"FD$(3)AM$(1)_7uFD$(4)CU$:8uD$"OPEN"NF$"TRANS,D2,L100"::uD$"OPEN"NF$"-POINT,D2":> X":"TO DELETE ";::"";::" D":"IF OK ENTER >> O":"OR LETTER TO CHANGE >> ";:868jOK$:OK$"X"ĺ:27415jOK$"O"27390LAG0:OC0:90:AC$""Ģ17:868:"J. "AC$" "AN$jV3:14:(DA$,2)"/"(DA$,3,2)"/"(DA$,2):3:29:"TRANS.# "RN:6:14:IN$:7:14:CU$(CX):X17CT:H1:V1X:(SP$AM$(X),9):XjAC$""(CT0NF$"CR")Ģ17:1:868:"J. "AC$" "AN$;:H1:(SP$ARN:FD1:27345 jTS$"":30000QjX1C:TS$TS$FD$(SR(X)):X:SR$TS$27340kj27350:OK$"X"27345jCF0OK$(4)27340jD$::5:"CONTINUE SEARCHING? (Y/N) ";jYN$:YN$"Y"YN$"N"27330j:YN$"N"27345j27300j1jCFwjVE3:HO:CU$(CU);:(CU$)0ľHR$:HR$" "ĢVE3:HO:868:27250XyjFD$(4)(CU):|jVE4:HO4:"(1-"ML%")":VE4:HO:(UL$,3);:HO:"";FD$(5):RN(FD$(5)):RN1RNML%27260jj30000:27350:jRN1ML%:FD$(4)(NF%(RN))27305j27225W^jXX$AM$(X):25000:AM$(X)XX$:VE2:HO:XX$SP$XX$:(XX$,8):FD$(3)AM$(X):cjVE3:HO:(UL$,20);:HO:"";CU$:CU(CU$):(CU$,1)"*"ī27257ejCU$""27235hjCU0CUCN27255mjCU1CN:CU$(CU$(CU),(CU$))27255rjCU:27235E9MM11)DD3027175*@jMM2DD2927175NEjMM2YY4(YY4)DD2827175wJjDA$MM$DD$YY$:FD$(1)DA$:"";X7$:OjVE1:HO:(UL$,6):VE1:HO:"";IN$:(IN$)627215TjFD$(2)IN$:YjX8:VE2:HO:(UL$,8):VE2:HO:"";AM$(X):26000:NG1(UL$,2);"/";(UL$,2);"/";(UL$,2):HO:Z18:Z3Z6ĺ"/";:27190n,jVE:D$(Z):D$(Z)"0"D$(Z)"9"27180z1jD$(Z);6jZ:MM$D$(1)D$(2):DD$D$(4)D$(5):YY$D$(7)D$(8):MM(MM$):DD(DD$):YY(YY$):DD1DD31MM1MM1227175;j(MM4MM6MMiYN$:YN$"Y"YN$"N"271305i:YN$"N"27155BjRN:FD1R jFD027155j:10:10:"SEARCH COMPLETE"BE$:X12000:Xj27010jSI0:30010:D$"DELETE"NF$"-POINT":30010:D$"WRITE"NF$"-POINT":X1ML%:NF%(X):X:30030"jD'jVE:HO:""İ27270:27145:0iFD$(4)""İ27290:27145ZiRN1ML%:30000:TS$"":SR$""27105{iX1C:TS$TS$FD$(SR(X)):XiSR$TS$ĺD$:27350:27115i27140iOK$"X"27155iCF0OK$(4)27140iD$::5:"CONTINUE SEARCHING? (Y/N) "; WO$"X"āX15:FD$(X)"":X::270158iWO$"O"27045SiWO$"1"WO$"6"27025oi21:WO$:WO$"O"27070iCC1:WO(WO$):WO27175,27215,27225,27235,27260iWO$"6"27160iSR(C)WO:SR$SR$FD$(WO):VEWO1:HO2:C;":":27020iFD$(5):C0:SR$"":TS$"":FD0::" 1) DATE.......":" 2) ";VR$:" 3) TOTAL......":" 4) CUSTOMER...":" 5) TRANS. #...":" 6) MENU"i17:"TO CANCEL ENTER >> X":" IF OK ENTER >> O":"SELECT CHOICES (1-6)":" TO SEARCH >> ";i868:WO$%iO$"":HO18:VE4:30008:30012:ML%0ė:"NO TRANSACTIONS";BE$:X12000::27170ziVR$"CHECK......":NF$"SJ"VR$"INV. #....."}i30010:D$"READ"NF$"-POINT":X1ML%:NF%(X)::30030iWO$"X":27030iD$::15:"SEARCH KEYS":15:"------ ----"26110/ eLX(AM$):VV0:Y1:(AM$,1)"-"Y2z eX1YLX:((AM$,X1,1))57((AM$,X1,1))48((AM$,X1,1))4626102 e(AM$,X1,1)"."VXLXX1:VVVV1:GW0VX226102 eVV226102 eX1:(AM$)926102 e26110 eNG1 e:QxiSI1:W YTQ0:n aXY(XX$):YX(XY):YX(YX100.5)100:XX$(YX):XX$"00"XX$:XX(XX$):(XX$,XX2,1)"."25060 a(XX$,XX1,1)"."XX$XX$"0":25060 aXX$XX$".00" aXX(XX$):XX$(XX$,XX2):XY0XX$"-"XX$ b eAM$AM$(X):NG0 eAM$""(Q)):Q:T1T1FC* YXTCTAM$(7)"0.00"H YCU$"0"T1T1(AM$(7))\ YT1FCT1:23028 YQ13:Q1Q1(AM$(Q)):Q:Q46:T1T1(AM$(Q)):Q YT1T1Q1(AM$(7)) YXX$(T1):25000:AM$(8)XX$:CT1NF$"SJ"AC$AC$(8):AM$(7)XX$:AM$(8)"0.00" 9TB19 U(XX$)0(NF$"CR"CU$"0"(AM$(8))0)TB2I UTB022006 U:21:1:958:"TOTAL "TB$(TB)". PLEASE RE-ENTER.":"HIT ANY KEY WHEN READY. ";:HK$: U YQ10:T10:FC1:NF$"CR"23020 YCI$"1"OC$"S"FC1 YQ16:T1T1(AM$CEL ";:VF1= ROK$:OK$"A"OK$"J"OK$"O"OK$"X"21010^ RTB0OK$"O"İ22005:21008y ROK$"X"OK$"O"21037 ROK(OK$)64:XOK3:FLAG1:34,0:OK130,225,195,250,250,250,250,250,250,265 +R305:21000 -RXT0:: UTB0:FLAG0:(XX$)^$6 N103,1:104,8:(2049)(2050)(2051)0Ĺ104,64>%N10X&N ** COM ** 02.01.83cR22000RCT0AC$""Ģ17:35:"0.00" R21:958:1:868:"ENTER LETTER TO CORRECT":"CORRESPONDING LINE":"IF EVERYTHING IS OK ENTER 'O'":"ENTER 'X' TO CAN             AM:3270: 90 DAYS! A(6)A(6)AM:3270: 120 DAYS! A(7)A(7)AM: 150 DAYS! A(1)A(1)AM: TOTAL DUE! (AM$,1)"-"AM$(AM$,2):MI10$" OU$"S"İ7000:3500: SCREEN PRINT@" 9000: STATEMENT PRINTY"* LP12ĺ(12):3600AY KEY WHEN READY ";:HK$::$"3"FLAG03500 AD1493260 AD1193255 AD893250 AD593240 AD293238 ! A(2)A(2)AM:3270: CURRENT-! A(3)A(3)AM:3270: 30 DAYSQ! A(4)A(4)AM:3270: 60 DAYSv! A(5)A(5)Y"HK$"Y":30220`uD$::5:"IS THIS THE FIRST MONTH":"THIS PROGRAM IS BEING USED? (Y/N) ";vHK$:HK$"N"HK$"Y"30210 v:HK$"Y"90vD$::5:"WRONG CUSTOMER DISK IN DRIVE #1":"PLEASE INSERT THE DISK":"FOR THE CURRENT MONTH":"HIT AN25ĺD$::5:BL$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$::Xu(E2135E2131)E15ĦbuE2200300duE2300400fuE2400500u"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1:uFT$"NTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::R:uE2127200DuE238ĺD$::5:BL$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT THE ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:HK$::vNuE2XX$)aXX$(XX$,XX2).aXY0XX$"-"XX$VbXX(XX$):XX3XX$(XX$,2):25100ybXX0XX$(XX$,XX3)(XX$,2) b0uE1(222):E2(218)(219)256:E1254E1255ĦB5uE23000ė:D$:5:BL$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOU"WRITE CRTRANS,R0":A%:B%:CJ$:NO$:C$:D$"CLOSE"I D$"RUN ARMEN,D1"~aXY(XX$):YX(XY):YX(YX100.5)100:XX$(YX)aXX$"00"XX$aXX(XX$)a(XX$,XX2,1)"."25060a(XX$,XX1,1)"."XX$XX$"0":25060aXX$XX$".00"aXX(::445D$"DELETE UC,D1",D$"CLOSE"2D$"OPEN SJCONFIG,D1":D$"WRITE SJCONFIG":JS$(1)"Y":X122:JS$(X)::D$"CLOSE SJCONFIG"3LD$"OPEN SJTRANS,L100,D2":D$"WRITESJTRANS,R0":NO$"O":PL%:ML%:CJ$:NO$:LI$:D$"OPEN CRTRANS,L100":D$(6)""R$(1)"P"$R$(5)"0"430pR$(6)"":U%U%1:UC$(U%)R$(5):D$"WRITE UC,R";U%:Y16:R$(Y):Y:430X:D$"WRITE UC,R0":U%:D$"CLOSE":D$"OPEN UC-CUST":D$"DELETE UC-CUST":U%0434D$"OPEN UC-CUST":D$"WRITE UC-CUST":X1U%:UC$(X)345ND$"DELETE CM,D1")YD$"CLOSE"<D$"APPEND UC"D$"OPEN UC,L40":D$"READ UC,R0":UC%:UC$(UC%),AC$(UC%):X1UC%:D$"READ UC,R"X:Y16:R$(Y):Y:CX(R$(5))R$(4)R$(6)430NV(R$(4))(R$(6)):XX$(NV100):25000:R$(4)XX$:R$$(1)"P"@R$(5)"0"330kBR$(6)"":OC%OC%1:CM$(OC%)R$(5):D$"WRITE CM,R";OC%:Y16:R$(Y):Y:330JX:D$"WRITE CM,R0":OC%:D$"CLOSE":D$"OPEN CM-CUST":D$"DELETECM-CUST":OC%0334LD$"OPEN CM-CUST":D$"WRITE CM-CUST":X1OC%:CM$(X)::D$"DELETE OP,D1"D$"CLOSE"2,D$"APPEND CM"1D$"OPEN CM,L40":D$"READ CM,R0":CM%:CM$(CM%),MC$(CM%):X1CM%:D$"READ CM,R";X:Y16:R$(Y):Y:CX(R$(5))6R$(4)R$(6)330;NV(R$(4))(R$(6)):XX$(NV100):25000:R$(4)XX$:R$(6)""R"P"R$(5)"0"230cR$(6)"":O%O%1:OP$(O%)R$(5):D$"WRITE OP,R";O%:Y16:R$(Y):Y:230X:D$"WRITE OP,R0":O%:D$"CLOSE":D$"OPEN OP-CUST":D$"DELETE OP-CUST":O%0234D$"OPEN OP-CUST":D$"WRITE OP-CUST":X1O%:OP$(X)::245NG "M$(CM)" JOURNALS **". D$"APPEND OP,D1" D$"OPEN OP,L40":D$"READ OP,R0":OP%:OP$(OP%),CL$(OP%):X1OP%:D$"READ OP,R";X:Y16:R$(Y):Y:CX(R$(5)) R$(4)R$(6)230NV(R$(4))(R$(6)):XX$(NV100):25000:R$(4)XX$:R$(6)""R$(1)SE":ML%PL%A%B%ĺD$::5:"CUSTOMER ACCOUNTS NOT POSTED":"HIT ANY KEY TO CONTINUE ";:HK$::3000 ANO$"O"ė:D$:5:M$(CM)" HAS BEEN CLOSED. PLEASE":"HIT ANY KEY TO CONTINUE ";:HK$::3000 HLM(M$(CM)) I KD$:10LM2:10:"** CLOSI2 /BL$"ARE YOU SURE YOU WANT TO CLOSE? (Y/N) ";Q 0YN$:YN$"Y"YN$"N"48h 1YN$:YN$"N"3000 2JS$(2)CJ$ĺD$::5:"INSERT ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM):"IN DRIVE #2. HIT ANY KEY WHEN READY ";:HK$::38g <D$"CLO &D$"APPEND ART,D2" (5:D$"OPEN SJTRANS,L100":D$"READ SJTRANS,R0":PL%,ML%,CJ$,NO$,LI$:D$"OPEN CRTRANS,L100":D$"READ CRTRANS,R0":A%,B%,A$,B$,C$ )NS0:ML%0NS1 *NC0:B%0NC2 -D$::5:NSNC047 ."NO "NS$(NSNC)" THIS MONTH."(4):D$"CLOSE":D$"NOMON I,O,C"~  JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER D$"APPENDAR,D1" 5:D$"OPEN SJCONFIG":D$"READ SJCONFIG":JS$(22):X122:JS$(X)::D$"CLOSE":CM(JS$(2)):FY(JS$(3))! ** CLOSE ** 12.31.82)10D$::2:10:"ACCOUNTS RECEIVABLE":14:"CLOSE MONTH":10:10:"** READING FILES **": 30000NS$(1)"SALES":NS$(2)"CASH RECEIPTS":NS$(3)NS$(1)" OR "NS$(2)! BL$(7):M$(12):X112:M$(X)::D$     ,1,8,29,1,12,7,3,12,13,3,12,19,3,12,25,3,12,31,3,16,7,3,16,13,3,16,19,3,16,25,3,16,31,3,18,30,1:X114:VT(X),HT(X),FL(X)::H3800:3810:3830:A830:`X038:BL$BL$" ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*"::D$(4):3900:BE$(7)jVT(14),HT(14),FL(14),HW$(14):NU$(0)(0)~ ENTER SELECTION,LETTER TO EDIT,R(RECORD),P(PRINT),X(CANCEL) X26:SC$(X):X~ 6,17,1,7,30OPEN HARDWARE,D1":YD$"READ HARDWARE":FT%:SL113:HW$(SL):SL:PS%(HW$(1)):D$:D$"WRITE HARDWARE":FT%:SL113:HW$(SL):SL:D$:D$"CLOSE HARDWARE":<D$"CLOSE":'E1(222):E2(218)(219)256:E1254E1255Ħ'216,0:aVSL3HW$(3)"Y"HW$(3)"N"NG1:1190[(SL3SL14)āZ13:((HW$(SL),Z,1)"0"(HW$(SL),Z,1)"9")(HW$(SL),Z,1)""NG1:Z3:]SL3SL14ĂZ:NG11190j:HT(SL):VT(SL):(HW$(SL)BL$,FL(SL))D$"DELETE HARDWARE,D1"D$"SC$(2);  *22:28:(95);:28:SL$GSL$"R"SL$"X"ĺ:1090hSL$"A"SL$"M"ĺBE$;:1040zDL1200:DL$SL$:SL(SL$)64:900:1040BLNG0:SL1HW$(1)"1"HW$(1)"7"NG1:1190QSL2HW$(2)"S"HW$(2)"P"NG1:1190+ED? (Y/N)"::2::" ASCII CODE(S) FOR 132-COLUMN FORMAT "::g:X15:5(X1)6:(67X);:X::14::2:" ASCII CODE(S) FOR 80-COLUMN FORMAT ":::X15:5(X1)6:(72X);:X:: 20:10:SC$(3)" (A-M)":SC$(6);:27:SC$(4):12:(HW$(SL))FL(SL)899.1100:NG18996::2:10:SC$(0):9::" PRINTER CONFIGURATION "::5:"PLEASE REFER TO CHART IN MANUAL"::"A";::" PRINTER SLOT#"::"B";::" S)ERIAL OR P)ARALLEL CARD?">:"C";::" SUPPRESS LINE FEEF0!%1000:SL114:1130:SL@R1040:SL$"X"İ61000:805N\EF0895dz3795:3820:3830jtBE$;16368,0:EF1:32,HT(SL)1:33,FL(SL)1:34,VT(SL)1:35,VT(SL)VT(SL):1:(UL$,FL(SL));:1:"";HW$(SL):HW$(SL)""HW$(SL)"0"E$;BE$"ARE YOU SURE YOU HAVE 2":"BLANK INITIALIZED DISKS":"ONE LABELED 'CUSTOMERS' AND ANOTHER ONE":"LABELED 'TRANSACTIONS'? (Y/N) ";YN$:YN$"Y"YN$"N"410YN$:YN$"Y"450::"PREPARE DISKS AND BEGIN AGAIN"::200 61000::10:13::"** LOADING **":12:HT::PN$(CH)::D$"RUN"NM$(CH) d:X139:SP$SP$" "::D$::10:SP$:(SP$,12);"BE SURE TO COPY";(SP$,12):(SP$,12);"THE CUSTOMER AND";(SP$,11):(SP$,12);"TRANSACTION DISKS";(SP$,10):SP$: :5:BE$;B:8:23:"PRESS 'R' TO RUN 'X' TO CANCEL ";K *RR$:RR$"X"RR$"R"42y ,:RR$"X"Ģ4CH:(64CH)". "PN$(CH):32 -CH$"O"İ800:30 .AC$"A":CH9AC$"C" /D$"OPEN FT":D$"WRITE FT":FT%:AC$:D$"CLOSE" 2LN(PN$(CH)):HT20LN2@ 7UNTS RECEIVABLE":3:8:"** MAIN SELECTION MENU **"::X116:(64X)". "PN$(X)::::8:"ENTER CHOICE (A-P) "; 23:868:8:"ENTER CHOICE (A-P) "; #CH$:CH$"A"CH$"P"35 %CH$;:CH(CH$)64:CH$"P"100, ):1:4CH:(64CH)". "PN$(CH):TATE,SALES,AGE,CUST,CLOSE,PGL,MAKE SJ,OPEN,MAKE FTk PN$(16),NM$(14):X116:PN$(X)::X114:NM$(X): D$(4):60000:D$"OPENFT":D$"READFT":FT%:D$:FT%330 FT%1CH9 FT%0İ400:CH12 FT%2CH13 50q D$::11:2:"ACCOCNT, PRINT SALES REPORT,PRINT AGING REPORT,CUSTOMER INFORMATION MAINTENANCE2  CLOSE MONTH,PREPARE FOR GENERAL LEDGER POSTING,CHANGE JOURNAL HEADINGS,START NEW MONTH,START NEW ACCOUNTS RECEIVABLE SYSTEM,PRINTER CONFIGURATION,EXIT,SJ2,CR2,JPR,CP2,RECON,S ** ARMEN ** 12.092(4)"MAXFILES3">10000KBE$(7){ SALES JOURNAL,CASH RECEIPTS JOURNALK  PRINT SALES/CASH RECEIPTS JOURNAL,POST CUSTOMER ACCOUNTS,RECONCILE INVOICES/RECEIPTS,PRINT CUST. STATEMENTS/LOOK UP AC           ";"SB$:SB$"Y"SB$"N"4256:AP$"Y"600:D$:5:"PRINT REPORT SEQUENTIALLY (S) OR":"ALPHABETICALLY (A)? ";SA$:SA$"S"SA$"A"505AN1::SA$"S"AN0:600D$"OPEN COMPANY,D1":D$"READ COMPANY":X1CN:RN%(X)::D$"NR$" REPORT"::10:"2. EXIT"::10:"ENTER CHOICE (1-2) ";YCH$:CH$"1"CH$"2"405m:CH$"2"3000:"DETAIL (D) OR TOTALS ONLY (T)? ";DT$:DT$"D"DT$"T"416DT$:DT$"D"495:5:"PRINT CUSTOMERS WITH NO BALANCE? (Y/N) "N3$"-CUST":D$"READ"N3$"-CUST":X1UC%:UC%(X):P00:10:PN0:LP0:D$::5:20(CN$)2::" "CN$" "::7:13:"CUSTOMER "NR$:13:"---------";:PM1(NR$):"-";:PM::10:958;X17:TC(X)0:A(X)0:TA(X)0:X:T10:TM0:10::10:"1. PRINT ""N1$"-CUST":X1OP%:OP%(X)::1056D$"UNLOCK"N2$;D$"OPEN"N2$",L"LL:D$"READ"N2$",R0":CM%:CM%(CM%):D$"OPEN"N2$"-CUST":D$"READ"N2$"-CUST":X1CM%:CM%(X)::10@D$"UNLOCK"N3$2ED$"OPEN"N3$",L"LL:D$"READ"N3$",R0":UC%:UC%(UC%):D$"OPEN;:HK$::10052:D$"OPEN ARCUST,L127,D1":D$"READ ARCUST,R0":CN:RN%(CN):Y13:MX$(Y),NX$(Y):NX$(Y)"COMPANY"CN(MX$(Y))AP$"Y":300Y,D$"UNLOCK"N1$"1D$"OPEN"N1$",L"LL:D$"READ"N1$",R0":OP%:OP%(OP%):D$"OPEN"N1$"-CUST":D$"READ52| nD$"OPEN SJTRANS,L100":D$"READ SJTRANS,R0":A%,B%,CJ$,OM$:D$"OPEN CRTRANS,L100":D$"READ CRTRANS,R0":C1%,C2%:10 A%B%C1%C2%4100 CM$CJ$ė:D$:5:"INSERT THE TRANSACTION DISK FOR ";M$(CM):"IN DRIVE #2: HIT ANY KEY WHEN READY "(3)YY$:AG$(2)"31":CM4CM6CM9CM11AG$(2)"30"x J(AG$)6CM2AG$(2)"28":YY(YY$):YY4(YY4)AG$(2)"29" KAG$AG$(1)AG$(2)AG$(3) MLL30:N1$"CL":N2$"CCM":N3$"AC":AC$"A"N1$"OP":N2$"CM":N3$"UC":LL40 dD$"VERIFY ART,D2" i$:10 8YY$CY$1 <AG(AG$):AG5AG$"0"AG$g AAG$(1)(AG$,2):AG$(2)(AG$,3,2):AG$(3)(AG$,2) FCM(CM$):X112:M$(X):: JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER5 H(AG$)6AG$(1)CM$:AG$:HT:NR$;" REPORT":10:3:"** READING CUSTOMER INFORMATION **": 7D$"OPEN SJCONFIG":D$"READ SJCONFIG":X$,CM$,FM$,CY$:D$"OPEN CONFIG.FIL":D$"READ CONFIG.FIL":CN$,CA$,CC$,CS$,CZ$,PS$,ND$,FF$,XX$,K1$,K2$,S1$,LF$:D$"OPENLIW,L7":D$"READ LIW,R0":AGVOICES":TL$(2)"CR MEM":TL$(3)"CASH REC" (K1$"ACCOUNTS RECEIVABLE":K2$"REPORT":D$"OPEN FT,D1":D$"READ FT":AA%,AC$:10:NR$"AGING":HT14 -K3$K1$" "NR$" "K2$:K3(K3$) 2D$"VERIFY AR,D1" 352:55B 4:D$:2:10:"ACCOUNTS RECEIVABLE"603240" AD3032383" A(2)A(2)AM:SP2:3300O" A(3)A(3)AM:SP3:3300k" A(4)A(4)AM:SP4:3300" A(5)A(5)AM:SP5:3300" A(6)A(6)AM:SP6:3300" A(7)A(7)AM:SP7" A(1)A(1)AM:DT$"T"3500s# IN$;:36,7:(DA$,2);"/";(DA$,3,2(TD$,2)):ID((DA$,2)):IM((DA$,3,2)):IY((DA$,2)):TJJD(TD,TM):TY4(TY4)TJJD(2,28)TJTJ1!v IJJD(ID,IM):IY4(IY4)IJJD(2,28)IJIJ1! YJTYIY:AD(TJIJ)(YJ366):AD(AD)! AD1503260! AD1203255! AD903250" AD:Z:N$(3)""N$(3)PC$:PC$" "%  ` 2200:(BR$,85):" ":"CUST. # ";RN;" ";:N$(3);" ";N$(8);:36,45:"CREDIT LIMIT:";N$(9);:36,65:"COMMENT:":PC$:LPLP5:(BR$,85):4020 j 10:D$"RUN ARMEN,D1"g! TD((TD$,2)):TM((TD$,3,2)):TY($:2104(6AM$(AM$,LM2)"."(AM$,2):8AC$"A"ĄBD$P9BD$""BD$"000"v:LM(BD$):LM2BD$"."BD$:2109<BD$(BD$,LM2)"."(BD$,2)=(BD$)0AM$BD$C9$"P"H PC$" ":D$"READ ARCUST,R"RN:Z19:N$(Z):PC$N$(1)" "N$(2)XX$,9):T20:36,76:XX$:4010:(12):D$"PR#0":ER0:4004040:Y27:XX$(TC(Y)):25000:36,30:(SP$XX$,10);:TC(Y)0:Y:XX$(TC(1)):25000:(SP$XX$,10):36,15:4010:(12):D$"PR#0":4004C9$"":OC$,DA$,IN$,AM$,CU$:LM(AM$):LM2AM$"."AM30:"TOTAL ACCOUNTS RECEIVABLE":" ":(DS$,85):" ":36,17:36205:36,16:4006Y17:TA(Y)(TA(Y)100.5)100:XX$(TA(Y)):25000:XX$(SP$XX$,9):Y11740T2T2TA(Y):36,16(Y2)10:XX$;8Y:T2(T2100.5)100:XX$(T2):25000:XX$(SP$C$:LPLP1:LP20ĺ(12):36000:37000:LP051670K@P1P2P31İ6000|Y27:TA(Y)TA(Y)TC(Y):TC(Y)0:Y:TC(1)0:P10:P20:P30:PI0Y17:A(Y)0:Y:1000:DT$"T"1800DT$"T"1800OER1:(12):36000:" ":" ":(DS$,85):" ":36,1DT$"D"İ7000"DT$"D"1600PXX$(A(1)):25000:(XX$)0SB$"N"16702200:37100:Y27:TC(Y)TC(Y)A(Y):XX$(A(Y)):25000:36,30:(SP$XX$,10);:Y:TC(1)TC(1)A(1):XX$(A(1)):25000:(SP$XX$,10);+(SP$N$(9),10)" "N$(8):36,4:PEAD"N3$",R"R:2100:AM$BD$14652sDT$"T"1455P30AC$"A"ĺ" ":36,32:"UNAPPLIED CASH RECEIPTS":36,32:"--------- ---- --------":" ":LPLP4:P31:4020:LP20PI0İ36195PI0:AM(AM$)(BD$):DT$"T"AMAM3100R:PI0P3"ĺ" ":36,34:"OPEN CREDIT MEMOS":36,34:"---- ------ -----":" ":LPLP4:P21:4020:LP20PI0İ36195PI0:AM(AM$)(BD$):DT$"T"AMAM3100RP21DT$"D"İ7000_TL3:UC%01500dFLAG1:R1UC%:RNUC%(R)1465 nD$"R--------":" ":LPLP4:4020:P11:LP20PI0İ36195NGPI0:AM(AM$)(BD$)XL3100_QRwVP11DT$"D"İ7000`TL2:CM%01375eFLAG1:R1CM%:RNCM%(R)1260oD$"READ"N2$;",R";R:2100:AM$BD$1260tDT$"T"1255iP20AC$"ACN1675FLAG0%DT$"T"1008SP00:2400:P01:LP58ĺ(12):LP0:36000hTL1:OP%01120R1OP%:RNOP%(R)1105D$"READ"N1$",R"R:2100:AM$BD$1105DT$"T"10954DP10AC$"A"ĺ" ":36,36:"OPEN INVOICES":36,36:"---- ORT >>":D$"PR#"PS%:SU$336000:DT$"T"İ37000;X0JOP%0993aD$"OPEN"N1$",L"LLpCM%0995D$"OPEN"N2$",L"LLUC%01000D$"OPEN"N3$",L"LLD$"OPEN ARCUST,L127,D1":CB0:XX1:RNX:AP$"Y"AN1XCNRNRN%(X)X12800-)(MM4MM6MM9MM11)DD30790A*MM2DD29790c+MM2YY4(YY4)DD28790w-TD$MM$DD$YY$."";X7$:X7$""4BE$:D$::5:"SET PAPER TO TOP OF FORM."R"HIT ANY KEY WHEN READY ";:HK$::10:10:"<< PRINTING REP(AG$,3,2);"/";(AG$,2)& 15:Z18>!Z3Z6ĺ"/";:806f"5:D$(Z):D$(1)(13)TD$AG$:820$D$(Z)"0"D$(Z)"9"802%D$(Z);&Z'MM$D$(1)D$(2):DD$D$(4)D$(5):MM(MM$):DD(DD$):YY$D$(7)D$(8):YY(YY$)(DD1DD31MM1MMCLOSE COMPANY"2XD1$"":XT$"":DT0:DT$"D"700<lDT38bv:TP(CN)20:TP(TP)TP(TP)1{TP$((TP)):DT$"1"XT$" OF "TP$:D1$"CR LIMIT TELEPHONE"D1$"CR LIMIT TELEPHONE":D$:5:"ENTER DATE >>"5WD:15:(AG$,2);"/"; "%(HW$(1)):SU$PF$(0):F:SU$PF$(0):D9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)/RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)/WHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)/\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):0fPS ";:36205:"--- -------------------------- -";:4005:" ------------":r.쐺(SP$(RN),3);" ";N$(3);:.`HW$(14):NU$(0)(0).3800:3810:3830.HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010E/MP$(0)P>":" ":(EQ$,85DT):" ":DT$"D"LP16/-M-cFLAG0ĺ"INV. #";:36200\-e"REF. #";p-h" DATE ";-m"CURRENT 31-60 61-90 91-120 121-150 OVER 150 TOTAL ";D1$:DT$"D"ER0LPLP1:4000-rQ."CUS CUSTOMER =========":,(EQ$,85DT):" ":36,20DT2:CN$:36,20DT2:CA$:36,20DT2:CC$;", ";CS$;" ";CZ$:36,60DT:PNPN1:"PAGE ";PN;XT$:" ":(EQ$,85DT):" ",36,20DT2:K3$)-36,20DT2(K314)2:"<< ";(TD$,2);"/";(TD$,3,2)"/";(TD$,2);" >0+fuE16E2320400q+vuE16E290ė:D$:5:"MONTH NOT CLOSED YET":"HIT ANY KEY TO CONTINUE ";:HK$::3000+{uE2900E18Ħ+u"ERROR ON LINE >> ";E2;" ERROR CODE >> ";E1: ,ˆ"====== ======== ========= ========= ========= ========= =========CUSTOMER DISK.":"HIT ANY KEY WHEN READY ";:HK$::*XuE2100ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #2":"AND INSERT ACCOUNTS RECEIVABLE":"TRANSACTIONS DISK FOR "M$(CM)".":"HIT ANY KEY WHEN READY ";:HK$::*buE16E2300310+duE16E231032):E2(218)(219)256:E1254E1255Ħ)5uE23000ė:D$:5:BE$"REMOVE ANY DISK FROM DRIVE #1 AND":"INSERT ACCOUNTS RECEIVABLE PROGRAM DISK.":"HIT ANY KEY WHEN READY ";:HK$::4*NuE250ĺD$::5:BE$"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT THE :4010:=(aXY(XX$):YX(XY):YX(YX100.5)100:XX$(YX)N(aXX$"00"XX$\(aXX(XX$)y(a(XX$,XX2,1)"."25060(a(XX$,XX1,1)"."XX$XX$"0":25060(aXX$XX$".00"(aXX(XX$)(aXX$(XX$,XX2)(aXY0XX$"-"XX$(b')0uE1(2225000:T10:36,76:(SP$XX$,9):4010:c'X4000:"TOTAL "TL$(TL);:36,28:Y17:FLAG1A(Y)A(Y)'lXX$((A(Y))):25000:Y1TMA(Y):7060'36,16(Y2)10:(SP$XX$,9);(TC(Y)TC(Y)A(Y):A(Y)0:Y:XX$((TM)):25000:TM0:36,76:(SP$XX$,9)INUE ";:HK$::3000<&X112:L31:X4X6X9X11L30J&X2L29l&Y1L:CC1:JD(X,Y)C:Y,X:&pCB1:" ":" ":"CUSTOMER BALANCE";:Y17:XX$(TC(Y)):25000:Y16060&T1T1TC(Y):36,16(Y2)10:(SP$XX$,9);&Y&'XX$(T1):24020 %Q%XCNLP58DT$"D"ĺ(12):PI0İ36000:P00LP16İ36195:PI1W%%36,31:"--------- --------- --------- --------- --------- --------- ---------":&D$::5:"CURRENT TRANSACTIONS DISK":"NOT UP TO DATE.":"HIT ANY KEY TO CONT-- ";$"-------- ";$"--------- --------- --------- --------- --------- --------- ---------";:DT$"D"ĺ" ":LPLP1:4020$%" ========= ========= ========= ========= ========= ========= =========":DT$"D"ĺ" ":" ":LPLP4:);"/";(DA$,2);:36,16(SP2)10:XX$(AM):25000:(SP$XX$,9);C9$:LPLP1:LP58ĺ(12):36000:2400:PI0İ36195y# #D$"OPEN HARDWARE,D1":#D$"READ HARDWARE":TT%:SL113:HW$(SL):SL:PS%(HW$(1)):D$:#D$"CLOSE HARDWARE":$"----