' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < 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^6L65`  \* ?*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`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`9tLO":D$"OPENBACK.CHK":D$"WRITEBACK.CHK":(34)D2$:(34)D3$:D$"CLOSE":903,1n 904,1:903,1:905,1:14500 D2$D3$İ12000:33200 L(903)(902):D$"OPEN"F$(L)",L"F(L)D2$:D$"READ"F$(L)",R0":N:N05075!14000:SS(F(L)N):S0ĺD$"CLOSECCOUNTS"D3$::5:"THIS IS A DATA DISKETTE."::"ANY PREVIOUSLY EXISTING INFORMATION ON"::"THE DISKETTE WILL BE REPLACED.":::"DO YOU WANT TO DO THIS? ";:36000Z$"N"Ĺ216,0:90033200:216,0:61000N D$:D$"INIT HELLO"D3$:D$"DELETE HELRIVE "D:10)"SLOT "S:10)"VOLUME "V:19:"ARE THESE SETTINGS CORRECT? ";:36000:Z$"N"İ10000:5040x60000:5055D$:D$:D$"VERIFY BUSUTIL.OBJ"D3$::12:"THIS IS YOUR PROGRAM DISKETTE.":60000:216,0:61000216,0:5060D$"VERIFY A::SVD$".J20:"DO YOU WANT TO DO THIS? ";:36000:OK$Z$:OK$"N"900902,NF:ZB953:S(ZB):D(ZB1):V(ZB2):D3$D1$:5:"PLACE THE DISKETTE THAT IS TO CONTAIN"::"THE BACKUP DISK IN THE DISK DRIVE"::"INDICATED BELOW:":13f10)"D"ZIP CODE: ";:ZB0:ZT99999:59000:ZI$SS$g20:868:"IS ALL INFORMATION CORRECT? ";:36000:OK$Z$yOK$"N"4500BACKUP7:"THIS OPTION WILL MAKE A DUPLICATE COPY"::"OF YOUR DATA DISKETTE. 13:"YOUR DATA DISKETTE MUST BE IN"D$WM$"1":BI#XD$"CLOSE":19000S10:958:"NAME: ";:BMI,(24,"-AZ ",1),NA$12:868:"ADDRESS: ";:BMI,(24," -AZ-09.'/#&()",1),AD$14:868:"CITY: ";:BMI,(16,"-AZ ",1),CI$16:868:"STATE: ";:BMI,(2,"_-AZ",2),ST$*18:868:"4":CI$" "ST$" "ZI$:D$C:6:13:"BANK INFORMATION":4500VD$WM$"5":NA$iD$WM$"6":AD$D$WM$"7":CI$" "ST$" "ZI$:D$0:10:"WHAT IS THE VALUE"::"OF YOUR BEGINNING INVENTORY? ";:BMI,(10,"-09",1),BI$DBI(BI$) N"D2$D$WM$"0":"0":D$B:10:"THE EMPTY FILES ARE READY.o:"NOW YOU MUST GIVE A NAME AND ADDRESS:"FOR YOUR BUSINESS AND FOR YOUR BANK.":60000:6:11:"BUSINESS INFORMATION":4500D$WM$"2":NA$D$WM$"3":AD$D$WM$I)C1$(J)4188ZI:4200'\CTCT1A^D$"WRITE"F$(1)",R"CT\`C1$(J):C2$(J):0:D$gh13:JjD$"WRITE"F$(1)",R0":CTlD$"CLOSErI2NF:D$"OPEN"F$(I)",L"F(I)D2$|D$"WRITE"F$(I)",R0":0D$"CLOSE":13:ID$"OPEN"MI$",L25:"INDICATED BELOW:":33100:J19000/4118HD$"DELETE HELLO"D2$T61000mD$"OPENPERMFILE"D1$"D$"READPERMFILE":N1,J1N11C1$(J),C2$(J):136J:D$"CLOSE@D$"OPEN"F$(1)",L"F(1)D2$TCT0:J1N1VI1NDXAE$(,OF DATA FILES.FILES, AND MAKES BACK-UPS",OF DATA FILES.CD THE,GENERAL LEDGER.6ăPRINT REPORTS,PRINT REPORTSăPRINTS A VARIETY OF REPORTS BASED ON,INFORMATION CURRENTLY IN THE DATA,FILES.ăHOUSEKEEPING,CREATE DATA DISK"ă"RESTORES ORIGINAL DATA FILES, CREATES","EMPTY DATA FILES, AND MAKES BACK-UPS" OF EARLIER,ITEMS.3ÃVOUCHER ENTRY,VOUCHER ENTRYÃRECORDS NEW VOUCHERS AND CORRECTIONS,"OF EARLIER ENTRIES, THEN COPIES THEM",TO THE VOUCHER FILE.ÃPRINT CHECKS,PRINT CHECKSÃ"PRINTS THE ACCOUNTS PAYABLE CHECKS,",UPDATING THE VOUCHER FILE AN AS WELL AS",ANSWERING INQUIRIES.BÃJOURNAL ENTRY,JOURNAL ENTRYÃRECORDS JOURNAL ENTRIES AND,CORRECTIONS OF PREVIOUS ENTRIES AND,UPDATES THE GENERAL LEDGER.ÃSALES ENTRY,SALES ENTRYÃRECORDS NEW ACCOUNTS RECEIVABLE OPEN,ITEMS AND CORRECTIONSORRECTIONS TO THE DATA FILES ON THE,FILE DISKETTE.SÃCASH RECEIPTS,CASH RECEIPTSÃ"PROCESSES ALL CASH RECEIPTS, EITHER",CASH SALES OR CASH ON ACCOUNT.,""ÃINVENTORY,INVENTORY!Ã"PROCESSES THE PURCHASING, RECEIVING,","AND SELLING OF INVENTORY,Zà BUSINESS VOLUME 3,(ACCOUNTING),VERSION 1.8,10XdÃCREATE DATA DISK,CREATE DATA DISKnÃCREATES THE SECOND DISKETTE (THE DATA,FILE DISKETTE) FOR DOING STUDENT,ASSIGNMENTS.xÃFILE MAINTENANCE,FILE MAINTENANCE2Ã"MAKES ADDITIONS, DELETIONS, OR",C$:(Z$)ZB(Z$)ZTĢ24:1:ZF1:"ENTER A NUMBER BETWEEN "(ZB)" AND "(ZT)".";:ZV:ZH:868:370300ZN(Z$):ZFĢ24:1:958:ZF000xRANGED INPUT WITH 'END' CHECKING0VP(37)1:HP(36)1:ZL((ZT)):ILZL:IL3IL31HP:VP:BMI,(IL$"VOLUME "(Z6)","2/SVD$(SVD$,(SVD$)1):D/YES-NO INPUT/HP(36)1:VP(37)1:BMI,(3,"YESNO",ZC),Z$:Z$(Z$,1):(Z$""ZC)(Z$"Y"Z$"N")ĖHP:VP:868:36010// /ZH(36)1:ZV(37)1:ZL((ZT))e0BMI,(ZL,"-09",0),Z:Z2(ZB1):Z3(ZB2)?.ֈD1$",S"(Z1)",D"(Z2)",V"(Z3)i.ZB956:Z4(ZB):Z5(ZB1):Z6(ZB2).D2$",S"(Z4)",D"(Z5)",V"(Z6).SVD$"":Z1Z4SVD$SVD$"SLOT "(Z4)",".Z2Z5SVD$SVD$"DRIVE "(Z5)","/Z3Z6SVD$SVD19:"USE THE PROGRAM 'DISKETTE SUPPORT' TO"::"CHANGE THE SETTINGS.":60000:J1:d-V60000:33200}-[D$"INIT HELLO"D2$:-:12::"WORKING!";::" PLEASE DO NOT INTERRUPT.":-DRIVE STRINGS-ˆPROGRAM IN D1$, DATA IN D2$.̈ZB953:Z1(ZB)"OPEN BLAH.CHECK"D2$:D$"WRITE BLAH.CHECK":"CHECK":D$"CLOSE BLAH.CHECK":D$"DELETE BLAH.CHECK"f,v,LRIGHT DISK,M::10)"DRIVE "(957):10)"SLOT "(956):10)"VOLUME "(958)R-Q16:"ARE THESE SETTINGS CORRECT? ";:36000:J0:OK$Z$:OK$"N"Ģ:L:SSA(111)SA(109):D$"OPENBACK.CHK":D$"READBACK.CHK":D2$:D3$:D$"CLOSE":(905)5066,9041v+8JENDING ROUTINE+BJ:12:"ONE MOMENT PLEASE..."+LJD$"CLOSE+VJRNH,"MENU+耲DISK CHECK+D$(4)+:12:"ONE MOMENT PLEASE...":ZE0`,D$1N:D$"READ"F$(L)",R"L1:L21A(L):14100:L2:L1:*@8D$"WRITE"F$(L)",R0":N(L):L11N(L):D$"WRITE"F$(L)",R"L1:L21A(L):14200:L2:L1:*8::NF(902):F$(NF),F(NF),A(NF),N(NF)b+8SA(X)(X)(X1)256:D$(4):L1(902):F$(L):F(L):A(L)$(L1,L2):)`6AK$(L1,L2):")6g)6L13000,13100,13200,13300,13400,13500,13600,13700,13800,13900:)7L13010,13110,13210,13310,13410,13510,13610,13710,13810,13910:)x7L13020,13120,13220,13320,13420,13520,13620,13720,13820,13920:5*7N(L)N:L1(L1,L2):(4AG$(N,A(L)):.(4AG$(L1,L2):@(4AG$(L1,L2):S( 5AH$(N,A(L)):e(*5AH$(L1,L2):w(45AH$(L1,L2):(5AI$(N,A(L)):(5AI$(L1,L2):(5AI$(L1,L2):(5AJ$(N,A(L)):(5AJ$(L1,L2):(5AJ$(L1,L2):(L6AK$(N,A(L)): )V6AKN,A(L)):'2AA$(L1,L2):-'2AA$(L1,L2):@',3AB$(N,A(L)):R'63AB$(L1,L2):d'@3AB$(L1,L2):w'3AC$(N,A(L)):'3AC$(L1,L2):'3AC$(L1,L2):'3AD$(N,A(L)):'3AD$(L1,L2):'4AD$(L1,L2):'X4AF$(N,A(L)):'b4AF$(L1,L2): (l4AF$NAL DATA DISKETTE.":60000:12005G&.D$"CLOSE":D$"DELETE BACK.CHK":_&.216,0:EF1:61000e&.}&.216,0:EF0:12015&.:12:"PLEASE INSERT BACKUP DISKETTE.":60000&.EFĺ(13)D$"VERIFYBACK.CHK"D3$:&.12020&2BACKUPCONTROL '2AA$((V)))V;:12:ZB0:ZT254:37000:(ZN$)0ZN0Ė12:14:V:10050I%='VZNq%B'D3$",S"(S)",D"(D)",V"(V):%.DISKSWAPPING%.216,0:EF0:12015!&.D$:D$"OPENBACK.CHK"D3$:D$"READBACK.CHK":EFĄD2$:D3$:D$"CLOSE"::12:"PLEASE INSERT ORIGIDEFAULTS"d$$'1:10:958:" SLOT: ";:39:S;:12:BMI,(1,"-17",0),Z$:(Z$)0Ė12:10:S:10030p$)'S(Z$)$.'1:12:958:" DRIVE: ";:39:D;:12:BMI,(1,"-12",0),Z$:Z$""Ģ12:12:D:10040$3'D(Z$)@%8'1:14:958:" VOLUME: ";:37:3($D3$9110A#U#(F)(904)(902)ĭD2$D3$İ12000:33200:9110##D$"OPENMISCELLANEOUS,L25"D3$:D$"WRITEMISCELLANEOUS,R0":0:L112:D$"WRITEMISCELLANEOUS,R"L:AM$(L):L:D$"CLOSE":D$"DELETE BACK.CHK"##(906)5070,5080,5095#' $':8:32:"E.":60000:"(#-"-#D2$D3$İ12020:33200="2#F1Ĺ903,LS"7#F1Ĺ(903),(902)k"<#(904)(902)9100"F#L(904)(903):D$"OPEN"F$(L)",L"F(L)D3$:14400:D$"CLOSE":L:904,(903)"P#(F)(904)(902)Ĺ905,2:14500 #Q#((F)(904)(902))D2":906,1:9000:5070!143006!D$"CLOSE":L:F11i!AM$(12):SS257:S0F11:906,2:9000:5080!D$"OPENMISCELLANEOUS,L25"D2$:L112:D$"READMISCELLANEOUS,R"L:AM$(L):L:D$"CLOSE":F1:906,3:9000 ":12:"BACKUP OPERATION IS NOW COMPLET"VENDOR""l:7500:1000H"L8:CL:F$;" NUMBER: ";:ZB1:ZT9999:EP2["V59000:AN$SS$w"`10:CL:SS$"END"7700"jI1CT:AN$AN$(I)7550"tI:F$;" NUMBER NOT FOUND.":7500"~J1N2:AN$V$(J)ĺ"OUTSTANDING VOUCHER FOR THAT ";F$;".":7510Z01:59000:Z00:SS$"END"ı021:CL:23:"ARE ALL CHANGES CORRECT? ";:36000:Z$"N"12000Q0\0IT$(I)IT$m0f022:D$"WRITE STOCK,R"I0p0IT$:DE$:RP:NH:NO:UC:US:D$0z01200002:EP2:DELETE AN INVENTORY ITEM128:"INVENTORY NUMBER: ";:ZB0:ZT9999:59000:SS$"END":CA2:FP1:59000:FP0:SS$"END"1000E//SS$""Ģ18:17:UC:12300S/0UC(SS$)/ 019:CL:21:"(OLD UNIT SELLING PRICE $";US;")"/020:CL:"NEW UNIT SELLING PRICE: $";:FP1:59000:FP0:SS$"END"1000/ 0SS$""Ģ20:26:US:12350/40US(SS$):12200./NH(SS$)E./15:CL:17:"(OLD NUMBER ON ORDER=";NO;")"./16:CL:"NEW NUMBER ON ORDER: ";:59000:SS$"END"1000./SS$""Ģ16:22:NO:12250./NO(SS$)./17:CL:19:"(OLD UNIT COST $";UC;")"&//18:CL:"NEW UNIT COST: $";:CB7POINT=";RP;")"P-N/12:CL:"NEW REORDER POINT: ";:ZT1E7:59000:SS$"END"1000o-X/SS$""Ģ12:20:RP:12150}-l/RP(SS$)-v/13:CL:15:"(OLD NUMBER ON HAND=";NH;")"-/14:CL:"NEW NUMBER ON HAND: ";:59000:SS$"END"1000./SS$""Ģ14:21:NHRP$,NH$,NO$,UC$,US$:D$M,/RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$),/11:"(OLD DESCRIPTION=";DE$;")":10:CL:"NEW DESCRIPTION: ";:BMI,(22,LI$,0),SS$:SS$"END"1000,0/SS$""Ģ10:18:DE$:12100,:/DE$SS$-D/11:CL:13:"(OLD REORDER 11000-+.:EP3:CHANGE AN INVENTORY ITEM +.8:CL:"INVENTORY NUMBER: ";:ZB0:Z00:ZT9999:59000:Z01:IT$SS$:IT$"END"1000+.I1CT:IT$IT$(I)12050+/I:10:CL:"THERE IS NO ITEM WITH THAT NUMBER.":12010,/D$"READ STOCK,R"I:IT$,DE$,5$):H5(H5$):O5(O5$):C5(C5$):S5(S5$)C*+IT$(J1)IT$(J):13]*+D$"WRITE STOCK,R"J1*+I5$:D5$:R5:H5:O5:C5:S5*,J*,D$"WRITE STOCK,R"I*,IT$:DE$:RP:NH:NO:UC:US*$,IT$(I)IT$*.,D$"WRITE STOCK,R0":CTCT1*8,CT:D$+B,:SS$"END"1000)+US(SS$)Y)+23:"ARE ALL ENTRIES CORRECT? ";:36000:Z$"N"11000w)+I1CT:IT$IT$(I)11205)+I:ICT1:11280)+:12:"ONE MOMENT PLEASE...")+JCTI1)+D$"READ STOCK,R"J)+I5$,D5$,R5$,H5$,O5$,C5$,S5$+*+R5(RAND: ";:59000:SS$"END"1000,(f+NH(SS$)e(p+16:CL:"NUMBER ON ORDER: ";:59000:SS$"END"1000s(z+NO(SS$)(+18:CL:"UNIT COST: $";:CB7:CA2:FP1:59000:FP0:SS$"END"1000(+UC(SS$))+20:CL:"UNIT SELLING PRICE: $";:FP1:59000:FP0I1CT:IT$IT$(I)Ģ10:"THAT INVENTORY NUMBER IS ALREADY USED.":11010O'*+I'4+10:CL:"DESCRIPTION: ";:BMI,(22,LI$,1),DE$'>+DE$"END"1000'H+12:CL:"REORDER POINT: ";:ZB0:ZT1E7:59000:SS$"END"1000'R+RP(SS$)(\+14:CL:"NUMBER ON HER":HH18&$':7500:10006&*:EP2:INVENTORY FILE&*CT100Ģ10:"THERE ARE NOW 100 INVENTORY CATEGORIES."::"NO MORE CAN BE ADDED.":60000:1000&+8:CL:"NEW INVENTORY NUMBER: ";:ZB1:ZT9999:59000:IT$SS$:IT$"END"1000&+CT011060H' +TE"F$"S,R0":CT:D$*%PW$"S":C11W$""[%ZC10ė:12:C1;" ";F$;W$;" DELETED.":60000a%dt%@CUSTOMER FILE%JF$"CUSTOMER"%T:5500:1000%(# - CHANGE A CUSTOMER -%2#F$"CUSTOMER"%<#:6500:1000%'DELETE A CUSTOMER - &'F$"CUSTOM00"$:75001$:12:"ONE MOMENT PLEASE..."F$C10:I1CT:13f$AN$(I)"000"C1C11:7740u$ C107740$"D$"READ"F$"S,R"I$$AN$,NA$,AD$,CI$,ST$,ZI$$(D$"WRITE"F$"S,R"IC1$2AN$:NA$:AD$:CI$:ST$:ZI$$<I:CTCTC1%FD$"WRI#J9#D$"READ"F$"S,R"I:AN$,NA$,AD$,CI$,ST$,ZI$:D$S#10:F$;" NAME: ";NA$j#:"ADDRESS: ";AD$~#:"CITY: ";CI$#:"STATE: ";ST$#:"ZIP CODE: ";ZI$#21:"DO YOU WANT TO DELETE THIS RECORD? ";:36000:Z$"N"ė:7500$AN$(I)"0:13@ZB.01:ZT1E8:CB7:CA2:FP1:59000:FP0:SS$"END"900bSS$""Ģ19:13:CL:DE:5400(SS$)GADIĺ"SHOULD NOT EXCEED GROSS MINUS DISCOUNT.":5350DE(SS$)AN$""545021:CL:"ACCOUNT NUMBER:";8);"(OLD=";AN$;")";:17""DI(PCGA.5)100:DI$(DI.001):DI$(DI$,(DI$)1)b17:11:CL:DI$;" (";PC;"%)":5345:DC$DI$:50000:E05250GADCĺ"DISCOUNT SHOULD BE LESS THAN GROSS.":5250DIDC18:CL19:CL:"DEDUCTION: $";12);"(OLD=";DE;")";S OR PERCENT.)"D17:11:BMI,(7,"END$-09%",2),DI$:DI$"END"900pDI$""Ģ17:11:CL:"$";DI:DCDI:534018:CL:(DI$,1)"%"533519:DC$(DI$,(DI$)1):50000:E015250PCDC:PC100PC.5Ģ19:"INVALID PERCENTAGE AMOUNT":52507(OLD=";GA;")";RZ9:"";:ZB.01:ZT1E8:CB7:CA2:FP1:59000:FP0:SS$"END"900sdSS$""Ģ15:9:CL:GA:5250zCN$""DCAM(I)ĺ"INVOICE AMOUNT WAS $";AM(I):5200}GA(SS$)17:CL:"DISCOUNT:";13);"(OLD=";DI;")":"(YOU MAY ENTER DOLLAR"900$SS$""Ģ11:17:IN$:5170*(G*I1N2:IN$IN$(I)5166n,I:13:"NO SUCH OPEN ITEM.":5080z.IN$SS$213:CL:"DATE:";12);"(OLD=";DT$;")"<VP13:HP8:D3$DT$:62000:DT$D3$F13:8:CL:DT$P15:1:CL:"GROSS: $";12);"9999:59000:SS$"END"900=SS$""Ģ9:18:CL:CN$:5130fI1N2:SS$CN$(I)CN$CN$(I):5130I:11:"NO OPEN ITEM WITH THAT CUSTOMER NUMBER.":5080 11:CL:"INVOICE NUMBER:";8);"(OLD=";IN$;")"11:17:ZB100:ZT999:59000:SS$"END20202<)G71ĺA7$;C7$;A7$;:D3$"":G7G71:62020T<.G77G74G78ĺA7$;C7$;A7$;}<8G76G73ĺA7$;A7$;C7$;A7$;:G7G71&IQ&BL(I)BL(I)TEl& D$"WRITE ACCOUNTS,R"I&*AN$(I):TI$(I):BL(I)&4D$"WRITE RECEIPTS,R0"&>CT0:CT:D$&HC10&RI1N2&\AM(I).01C1C11:7300&'fKIC1:CN$(K)CN$(I):IITE%D$"WRITE ACCOUNTS,R"I:%AN$(I):TI$(I):BL(I)Y%I1N1:AN$(I)"112"7110`%Is%BL(I)BL(I)TA%D$"WRITE ACCOUNTS,R"I%AN$(I):TI$(I):BL(I)%I1N1:AN$(I)"413"7150%I%BL(I)BL(I)TI%D$"WRITE ACCOUNTS,R"I&$J1N1$AN$AN$(J)7044&$J9$BL(J)BL(J)GAT$D$"WRITE ACCOUNTS,R"Jo$AN$(J):TI$(J):BL(J)y$7058$TATAGA$J1N2$IN$IN$(J)AM(J)AM(J)GA:7058$J$I$I1N1:AN$(I)"111"7070$I%BL(I)BL(I)TGTEIPTS..."A#gD$"OPEN ACCOUNTS,L40"D2$:D$"OPEN INVOICES,L31"D2$Y#lTG0:TI0:TE0:TA0i#qI1CT:13#vD$"READ RECEIPTS,R"I#xCN$,IN$,DT$,GA$,DI$,DE$,AN$#yGA(GA$):DI(DI$):DE(DE$)#zD$#|TGTGGA:TITIDI:TETEDE#~AN$""7050 D$"B:CTCTC14"LD$"WRITE RECEIPTS,R0":CT:D$"VC10ė:10:"PRINT A CASH RECEIPTS PROOF TO VERIFY"::"THE DELETIONS.":60000"`900"XPOST RECEIPTS"]12:CT0ĺ"THERE ARE NO CASH RECEIPTS TO POST.":60000:900 #b"NOW POSTING CASH RECS,R"RR:"000":IN$:DT$:GA:DI:DE:AN$:D$:6000z!$C10:R11CT:D$;"READ RECEIPTS,R";R1:CN$,IN$,DT$,GA$,DI$,DE$,AN$!)GA(GA$):DI(DI$):DE(DE$)!.CN$"000"C1C11:6210"8C10ĺD$"WRITE RECEIPTS,R"R1C1:CN$:IN$:DT$:GA:DI:DE:AN$:NUMBER: ";CN$+ :"INVOICE NUMBER: ";IN$? :"DATE: ";DT$T :"GROSS: $";GAl :"DISCOUNT: $";DI :"DEDUCTION: $";DE AN$""ĺ:"ACCOUNT NUMBER: ";AN$ 22:"DO YOU WANT TO DELETE THIS? ";:36000::Z$"N"60002!D$"WRITE RECEIPT00:59000:SS$"END"6180(RR(SS$)CD$"READ RECEIPTS,R"RRhCN$,IN$,DT$,GA$,DI$,DE$,AN$:D$GA(GA$):DI(DI$):DE(DE$)CN$"000"Ģ10:"RECORD #";RR;" ALREADY FLAGGED FOR DELETION.":60000:60009:CN$""6100 :"CUSTOMER CN$:IN$:DT$:GA:DI:DE:AN$:D$.r5000Ep:DELETE RECEIPTSzCT0Ģ10:"THERE ARE NO CASH RECEIPTS TO DELETE.":60000:9006:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."7:CL:"WHICH RECORD DO YOU WANT TO DELETE? ";:ZB1:ZTZT:ZZB1:ZT999:59000:SS$"END"900E,SS$""Ģ21:17:CL:AN$:5450n6I1N1:SS$AN$(I)AN$AN$(I):5450@I:23:"ACCOUNT NUMBER NOT ON FILE.":5400J23:CS:"ARE ALL ENTRIES CORRECT? ";:36000:Z$"N"5000^22:D$"WRITE RECEIPTS,R"RR$h;C7$;"/";C7$;C7$;"/";C7$;C7$:VP:HPT:G708:G72G75ĺ"/";:D3$D3$"/":62900mDA7$:A7$(8)62500NA7$(13)G7862900SA7$(13)G70Z01D3$D2$:XG7862020]A7$" "(G70G73)62060bA7$"0"A7$"9"62020lA7$;:D"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."60000:0C7$(95):D2$D3$:D3$"":16368,0:HP:VP$5C7$ISKETTE.":60000:uuER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":60000:zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":60000:fER8ĺ"I/O ERROR0:16384,128:16368,0!~::7HERROR PROCESSINGZRER(222):LN(218)(219)256o\ER255Ĺ216,0:fD$;"PR#0":D$;"CLOSE"::10:"PROBLEM: ";pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DVATE PRINTER8"PACT:7bA7$"0"A7$"9"6202087lA7$;:D3$D3$A7$:62900H7$G7062020v7)G71ĺA7$;C7$;A7$;:D3$"":G7G71:620207.G77G74G78ĺA7$;C7$;A7$;:LL178G76G73ĺA7$;A7$;C7$;A7$;:LL27BD3$(D3$,(D3$)LL):G7G7LL:620207G7: 8ACTID4$D3$:D3$"":16368,0:HP:VP:C7$;C7$"/"C7$;C7$"/"C7$;C7$I65VP:HPy6:G708:G72G75ĺ"/";:D3$D3$"/":629006DA7$:A7$(8)625006NA7$(13)G78629006SA7$(13)G70Z01D3$D4$:6XG78620207]A7$" "(G70G73)A7$"0"LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'PRINTER SUPPORT'":"PROGRAM TO CORRECT IT.":60000:190005"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."560000:=60C7$(95):0:x4zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":60000:4ER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:5ER11TA FILE DISKETTE.":60000:3rER5EEĺ"END OF DATA"::"THERE IS MISSING DATA IN THE ";F$:"FILE.":D$"OPEN"F$D2$:D$"WRITE"F$",R0":I1:D$"CLOSE":60000:4uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":6000NTINUE";,2t16368,0:16384,128:16368,0:2~23:::E2HERRORh2RER(222):LN(218)(219)256}2\ER255Ĺ216,0:2fPOFF:D$;"CLOSE"::10:"PROBLEM: ";3pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DACH$"E"CH$"N"CH$"D"ZZL:E0111:E059050N1(SS$)ZB(SS$)ZTı1VPEP:868:((ZB))ZL(SS$)ZLĺ"PLEASE TYPE A "ZL" DIGIT NUMBER.":590201"ILLEGAL VALUE.":590201`G71400:2j24:7:"PRESS ";::"SPACE BAR";::" TO CO20 ˺14L1);V$;::0xRANGED INPUT WITH 'END' CHECKINGq0VP(37)1:HP(36)1:ZL((ZT)):ILZL:IL3IL30HP:VP:FPįBMI,(IL,"_-09END",Z0),SS$0FPįBMI,(CB,"$-09END",CA),SS$0SS$"END"(Z0SS$"")ı!1E00:Z1ZL:CH$(SS$,Z,1):":L1(V$):52000)/dȭB999999.99951400J/xV$(B):(V$)7V$V$".00"a/ȭ(V$)9V$V$"0"r/L110:51800/V$(B.001)/,L1(V$)1/V$(V$,L1)/ɭL1752000/XV$(V$,L16)","(V$,6):L1L110ʭL111V$(V$,1)","(V$,10):L11"0"CH$"9")ĺ"NO NON-NUMERIC CHARACTERS, PLEASE.":G.cĭCH$"."I1I0O.|ĂI0.ĭ(DC$)I12ĺ"ONLY TWO DECIMAL PLACES, PLEASE.":.E00:.8Dz2 DECIMAL PLACES.jB(100B.499)100.ǭB.01V$".00":L13:52000/ȭB9999999.99V$"*"(B)"*Y"Z$"N")ĖHP:VP:CL:36010$-:-PòSCREEN BAD INPUT]-E01:I1(DC$):DC(DC$):868-íDC0ĺ"ONLY POSITIVE AMOUNTS, PLEASE.":-íDC9999999.99ĺ"SHOULD BE LESS THAN 10 MILLION, PLEASE.":-āI01(DC$):CH$(DC$,I0,1)4.JĭCH$"."(CH$)",V"(Z3)6%ZB956:Z4(ZB):Z5(ZB1):Z6(ZB2)_%D2$",S"(Z4)",D"(Z5)",V"(Z6)e%%STANDARD YES-NO INPUT%ZH(36)1:ZV(37)1:BMI,(3,"YESNO",ZC),Z$:Z$(Z$,1):(Z$""ZC)(Z$"Y"Z$"N")ĖZH:ZV:CL:36010%!&8DzPRINTT PLEASE...":ZE0y$D$"OPEN BLAH.CHECK"D2$:D$"WRITE BLAH.CHECK":"CHECK":D$"CLOSE BLAH.CHECK":D$"DELETE BLAH.CHECK"$$ GET DRIVE STRINGS$ˆ PROGRAM IN D1$, DATA IN D2$$̈ZB953:Z1(ZB):Z2(ZB1):Z3(ZB2) %ֈD1$",S"(Z1)",D"(Z2--------":35);U$;4);U$G##"TOTALS";25);:BTD:51000:BTC:51000:V##I16::`##POFFi##900#8J ** END THE PROGRAM **#BJ:12:"ONE MOMENT PLEASE..."#LJD$"CLOSE"#VJRNH,"MENU"#耲 DISK STATUS CHECK#D$(4)$:12:"ONE MOMEN"x#D$;"WRITE ACCOUNTS,R";J:"#AN$(J):TI$(J):BL(J):D$V"#AM0SP0:BAM:TDTDBt"#AM0SP16:BAM:TCTCB"#AN$(J);6);TI$(J);22(TI$(J))SP);:51000"#16SP);:BBL(J):51000:"#I"#CT0:D$;"WRITE JOURNAL,R0":CT:D$##U$"----@#::32);"JOURNAL ENTRIES":35);DA$:k!B#"ACCT#";4);"TITLE";28);"DEBIT";10);"CREDIT";9);"BALANCE"!D#I179:"=";::!F#I1CT:D$;"READ JOURNAL,R";I:13!P#AN$,AM$,DT$:D$:AM(AM$)!Z#J1N1:AN$AN$(J)9070!d#J!n#BL(J)BL(J)AMRAL LEDGER ** Q 2#12:CT0ĺ"THERE ARE NO JOURNAL ENTRIES TO POST.":60000:900p 4#D$;"OPEN ACCOUNTS,L40"D2$ 7#"POSITION THE FORMS ON THE PRINTER...":60000 <#12:"NOW POSTING TO GENERAL LEDGER...":20:35,16 >#63000:D$(4):ZL16:TD0:TC0)!AC$"000"C1C11:8140SC10ĺD$;"WRITE JOURNAL,R";R1C1:AC$:BL:ZZ$:D$dR1:CTCTC1D$;"WRITE JOURNAL,R0":CT:D$C10ė:10:"PRINT A JOURNAL PROOF TO VERIFY"::"THE DELETIONS.":60000900 (# ** POST ENTRIES TO THE GENE10:CS:"ACCOUNT NUMBER: ";AC$I:"DATE: "ZZ$::"AMOUNT: $ ";:BL18:"DO YOU WANT TO DELETE THIS? ";:36000:Z$"N"8000D$;"WRITE JOURNAL,R";RR:"000":BL:ZZ$:D$:8000C10:R11CT:D$;"READ JOURNAL,R";R1:AC$,BL$,ZZ$:BL(BL$)RED 1-";CT;"."s^Z00:7:CL:"WHICH RECORD DO YOU WANT TO DELETE? ";:ZB1:ZTCT:59000:RR(SS$):SS$"END"8120rD$;"READ JOURNAL,R";RR:AC$,BL$,ZZ$:BL(BL$):D$|AC$"000"Ģ10:"RECORD #";RR;" ALREADY FLAGGED FOR DELETION.":60000:8000 JOURNAL,R";RR$4AC$:BL:DT$:D$.>7000]@: ** DELETE A PREVIOUS JOURNAL ENTRY ** JCT0Ģ10:"THERE ARE NO JOURNAL ENTRIES TO DELETE.":60000:900OCT1Ģ6:"THERE IS 1 RECORD, NUMBERED 1.":8030T6:"THERE ARE ";CT;" RECORDS, NUMBE";BN;")";:9SZB1E8:ZT1E8:CB7:CA2:FP1:59000:BL(SS$):FP0:SS$"END"900tSS$""BLBN:18:9:CL:BL(BL).01Ģ20:"AMOUNT SHOULD NOT BE ZERO, PLEASE.":709022:CL:"ARE ALL CHANGES CORRECT? ";:36000:Z$"N"7000*D$;"WRITESS$""AC$AN$:10:17:CL:AN$=I1N1:AN$(I)AC$7080{I:14:CL:"THERE IS NO ACCOUNT WITH THAT NUMBER.":703014:CL:"DATE:";11);"(OLD="D3$")";HP7:VP14:Z01:62000:DT$D3$14:7:CL:DT$ 18:CL:"AMOUNT $";11);"(OLD=$59000:RR(SS$):SS$"END"900Ul6:CS:"* PRESS 'RETURN' TO KEEP AN OLD VALUE. *"qmD$;"READ JOURNAL,R";RRnAN$,BN$,D3$:BN(BN$)qD$v10:CL:"ACCOUNT NUMBER: (OLD="AN$")";:17:Z01:ZB100:ZT999:59000:AC$SS$:SS$"END"900 : ** CHANGE A PREVIOUS JOURNAL ENTRY **nYCT0Ģ10:"THERE ARE NO JOURNAL ENTRIES TO CHANGE.":60000:900]CT1RR1:7020`6:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."b7:CL:"WHICH RECORD DO YOU WANT TO CHANGE? ";:ZB1:ZTCT:Z00:E JOURNAL,R";CT(AN$(I):BL:DA$:D$7I:CTCT1TD$;"WRITE JOURNAL,R";CTh"311":TT:DA$D$;"WRITE JOURNAL,R0"CT:D$12:"THE CLOSING JOURNAL ENTRIES HAVE BEEN"$:"RECORDED IN THE JOURNAL FILE.".600008900)X3$D3$A7$:62900!$G7062020O)G71ĺA7$;C7$;A7$;:D3$"":G7G71:62020v.G77G74G78ĺA7$;C7$;A7$;:LL18G76G73ĺA7$;A7$;C7$;A7$;:LL2BD3$(D3$,(D3$)LL):G7G7LL:62020G7::TEM **FzCT0Ģ10:"THERE ARE NO OPEN ITEMS TO DELETE.":60000:900}6:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."Z007:868:"WHICH RECORD DO YOU WANT TO DELETE? ";:ZB1:ZTCT:59000:RR$SS$:RR(RR$):RR$"END"6150 D$;"READ S:AM$SS$:FP0:AM$"END"900:dAM$""ĢVP:HP:AM:5250QnAM$""AM(AM$)21:958::"ARE ALL ENTRIES CORRECT? ";:36000:OK$Z$:OK$"N"500020:D$;"WRITE SALES,R";RRCN$:IN$:DT$:AM:D$5000p: ** DELETE AN A.R. OPEN IC5$,I5$:D$(,17:SS$I5$ĺW1$:5130/.I;0IN$SS$g217:868:"DATE:";12);"(OLD=";DT$;")"<VP17:HP8:D3$DT$:62000:DT$D3$F17:8:868:DT$P19:1:868:"AMOUNT $";12);"(OLD=";AM;")";:9ZFP1:ZB.01:ZT1E8:CB7:CA2:59000"INVOICE NUMBER:";8);"(OLD=";IN$;")";:17RZB100:ZT999:59000:SS$"END"900wSS$""ĢVP:HP:868:IN$:5170"W1$"THAT INVOICE NUMBER ALREADY EXISTS."$I1N3:SS$IN$(I)ĺW1$:5130&I:CT05168(I1CT *D$;"READ SALES,R";I:13:868:"CUSTOMER NUMBER:";8);"(OLD=";CN$;")";:18jZB1000:ZT9999:EP2:Z01:59000:SS$"END"900SS$""ĢVP:HP:868:CN$:5130I1N2:CN$(I)SS$CN$SS$:5130I:15:"THERE IS NO CUSTOMER WITH THAT NUMBER.":5080* 15:868:ED 1-";CT;"."l7:868:"WHICH RECORD DO YOU WANT TO CHANGE? ";:ZB1:ZTCT:59000:RR$SS$:RR$"END"900RR(RR$):RR1RRCT50309:"* PRESS 'RETURN' TO KEEP AN OLD VALUE. *"D$;"READ SALES,R";RRCN$,IN$,DT$,AM$:D$:AM(AM$)60201/)G71ĺA7$;C7$;A7$;:D3$"":G7G71:62020X/.G77G74G78ĺA7$;C7$;A7$;:LL1~/8G76G73ĺA7$;A7$;C7$;A7$;:LL2/BD3$(D3$,(D3$)LL):G7G7LL:62020/G7:/ACTIVATE PRINTER/"PACT:Z:HP4.:G708:G72G75ĺ"/";:D3$D3$"/":62900M.DA7$:A7$(8)62500g.NA7$(13)G7862900.SA7$(13)G70Z01D3$D4$:.XG7862020.]A7$" "(G70G73)A7$"0".bA7$"0"A7$"9"62020.lA7$;:D3$D3$A7$:62900/$G7062E ENTER THE 'PRINTER SUPPORT'":"PROGRAM TO CORRECT IT.":60000:19000-"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."-60000:-0C7$(95):D4$D3$:D3$"":16368,0:HP:VP.5C7$;C7$;"/";C7$;C7$;"/";C7$;C7$:VPTES":"HAVE ACCIDENTLY BEEN REVERSED.":60000:,ER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:F-ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASIN THE ";F$:"FILE.":D$;"OPEN";F$;""D2$:D$;"WRITE";F$;",R0":I1:D$;"CLOSE":60000:+uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":60000:/,zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKET2):LN(218)(219)256,*\ER255Ĺ216,0:V*fPOFF:D$"CLOSE"::10:"PROBLEM: ";*pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DISKETTE.":60000:W+rER5EEĺ"END OF DATA"::"THERE IS MISSING DATA 868:((ZB))ZL(SS$)ZLĺ"PLEASE TYPE A "ZL" DIGIT NUMBER.":59020c)"ILLEGAL VALUE.":59020s)`G71400:)j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";)t16368,0:16384,128:16368,0)~23:::)HERROR PROCESSING*RER(22T)):ILZL:IL3IL3A(HP:VP:FPįBMI,(IL,"_-09END",Z0),SS$e(FPįBMI,(CB,"$-09END-",CA),SS$(SS$"END"(Z0SS$"")ı(E00:Z1ZL:CH$(SS$,Z,1):CH$"E"CH$"N"CH$"D"ZZL:E01(:E059050((SS$)ZB(SS$)ZTıF)VPEP:'V$(B.001)',L1(V$)1.'V$(V$,L1)>'ɭL1752000d'XV$(V$,L16)","(V$,6):L1L11'ʭL111V$(V$,1)","(V$,10):L112' ˭SB0V$"-"V$'˺ZL(V$));V$;:'xRANGED INPUT WITH 'END' CHECKING(VP(37)1:HP(36)1:ZL((Z OUT A NUMBER TO 2 DECIMAL PLACES4&jSB(B):B(B)L&B(100B.499)100l&ǭB.01V$".00":L13:52000&ȭB9999999.99V$"*"(B)"*":L1(V$):52000&dȭB999999.9951400&xV$(B):(V$)7V$V$".00"&ȭ(V$)9V$V$"0"&L110:51800INED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'PRINTER SUPPORT'":"PROGRAM TO CORRECT IT.":60000:19000,"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC.",60000:,0C7$(95):D4$D3$:D3$"":16368,0:HP:VP*-"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":60000:+ER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:l,ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFND OF DATA"::"THERE IS MISSING DATA IN THE ";F$:"FILE.":D$;"OPEN";F$;""D2$:D$;"WRITE";F$;",R0":I1:D$;"CLOSE":60000:*uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":60000:U+zER6ĺ"FILE NOT FOUND":::)H ERROR PROCESSING<)RER(222):LN(218)(219)256Q)\ER255Ĺ216,0:|)fPOFF:D$;"CLOSE"::10:"PROBLEM: ";)pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DISKETTE.":60000:}*rER5EEĺ"E(SS$)ZB(SS$)ZTıj(VPEP:868:((ZB))ZL(SS$)ZLĺ"PLEASE TYPE A "ZL" DIGIT NUMBER.":59020("ILLEGAL VALUE.":59020(`G71400:(j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";(t16368,0:16384,128:16368,0)~23::NG9'VP(37)1:HP(36)1:ZL((ZT)):ILZL:IL3IL3f'HP:VP:FPįBMI,(IL,"_-09END",Z0),SS$'FPįBMI,(CB,"$-09END",CA),SS$'SS$"END"(Z0SS$"")ı'E00:Z1ZL:CH$(SS$,Z,1):CH$"E"CH$"N"CH$"D"ZZL:E01':E059050(&jǭ(V$)9V$V$"0"'&tL110:51090C&~V$(B.001):L1(V$)1_&V$(V$,L1):L1751110&V$(V$,L16)","(V$,6):L1L11&ǭL111V$(V$,1)","(V$,10):L112&V$PN$V$:L1L1(PN$)&ǺZLL1);V$;:'xRANGED INPUT WITH 'END' CHECKI868:36010%?%8Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACES\%=PN$"":B0BB:PN$"-"t%?B(100B.499)100%BǭB.01V$".00":L13:51110%LǭB9999999.99V$"*"(B)"*":L1(V$):51110%VǭB999999.99951070%`V$(B):(V$)7V$V$".00"$ֈD1$",S"(Z1)",D"(Z2)",V"(Z3)Q$ZB956:Z4(ZB):Z5(ZB1):Z6(ZB2)z$D2$",S"(Z4)",D"(Z5)",V"(Z6)$$STANDARD YES-NO INPUT %HP(36)1:VP(37)1:BMI,(3,"YESNO",ZC),Z$:Z$(Z$,1):(Z$""ZC)(Z$"Y"Z$"N")ĖHP:VP:(4),#:12:"ONE MOMENT PLEASE...":ZE0#D$"OPEN BLAH.CHECK"D2$:D$"WRITE BLAH.CHECK":"CHECK":D$"CLOSE BLAH.CHECK":D$"DELETE BLAH.CHECK"## GET DRIVE STRINGS#ˆ PROGRAM IN D1$, DATA IN D2$#̈ZB953:Z1(ZB):Z2(ZB1):Z3(ZB2)'7160 "J>"D$;"READ ACCOUNTS,R";J:AC$,TI$,BL$:BL(BL$)d"BLBLTT:D$;"WRITE ACCOUNTS,R";Jz" AC$:TI$:BL:D$"900"8J ** END THE PROGRAM **"BJ:12:"ONE MOMENT PLEASE...""LJD$;"CLOSE""VJRNH,"MENU""耲 DISK STATUS CHECK#D$!I:N3N3CT2!D$;"WRITE INVOICES,R0":N3:D$T!CT0:D$;"WRITE SALES,R0":CTs!J1N1:AN$(J)"112"7120z!J!D$;"READ ACCOUNTS,R";J:AC$,TI$,BL$:BL(BL$)!BLBLTT:D$;"WRITE ACCOUNTS,R";J!AC$:TI$:BL"J1N1:AN$(J)"411"İ60000:900/ l12:"NOW POSTING THE SALES..."i vD$;"OPEN INVOICES,L31"D2$:D$;"OPEN ACCOUNTS,L40"D2$z TT0:I1CT D$;"READ SALES,R";I CN$,IN$,DT$,AM$:AM(AM$) D$;"WRITE INVOICES,R";N3I CN$:IN$:DT$:AM:D$ TTTTAM:13$:IN$:DT$:AM$:CTCTC1?.D$;"WRITE SALES,R0":CT:D$8C10ė:12:"PRINT A PROOF TO VERIFY THE DELETIONS.":60000B900VAM$""AM(AM$)X ** POST SALES TO A.R. TRIAL BALANCE ** bCT0Ģ10:"THERE ARE NO OPEN ITEMS TO POST.":DELETE THIS? ";:36000:OK$Z$:OK$"N"6000>OK$"Y"6120xD$;"WRITE SALES,R";RR:"000":IN$:DT$:AM:D$:6000C10:R11CT:D$;"READ SALES,R";R1:CN$,IN$,DT$,AM$:AM(AM$)CN$"000"C1C11:6180C10ĺD$;"WRITE SALES,R";R1C1:CNALES,R";RR-CN$,IN$,DT$,AM$:D$:AM(AM$)}CN$"000"Ģ10:"RECORD #";RR;" ALREADY FLAGGED FOR DELETION.":60000:600011:"CUSTOMER NUMBER: ";CN$:"INVOICE NUMBER: ";IN$:"DATE: ";DT$:"AMOUNT: $";AM+21:"DO YOU WANT TO $G(G$):DI(DI$):DE(DE$)l$VN$"000"Ģ10:"RECORD #"RR" ALREADY FLAGGED FOR DELETION.":60000:5000$9:"VENDOR NUMBER: "VN$$:"VOUCHER NUMBER: "VO$$:"DATE: "DT$$:"GROSS: $"G$:"DISCOUNT: $"DI$ :"DEDUCTION: $"DE%MBERED 1.":5030B#6:"THERE ARE "CT" RECORDS, NUMBERED 1-"CT".#7:CL:"WHICH RECORD DO YOU WANT TO DELETE? ";:ZB1:ZTCT:EP2:Z00:59000:SS$"END"5180#RR(SS$):RR1RRCT5030#D$"READTEMP-VO,R"RR#VN$,VO$,DT$,G$,DI$,DE$,AC$:D$"ARE ALL ENTRIES CORRECT? ";:36000:Z$"N"4000N"v22:D$"WRITETEMP-VO,R"RRu"VN$:VO$:DT$:G:DI:DE:AC$:D$"4000":DELETE VOUCHERS"CT0Ģ10:"THERE ARE NO VOUCHER ENTRIES TO DELETE.":60000:900#CT1Ģ6:"THERE IS 1 RECORD, NUUS DISCOUNT.":4350!+DEDCu!021:CL:"ACCOUNT NUMBER:"8)"(OLD="AC$")";:17:ZB100:ZT999:59000:SS$"END"900!DSS$""Ģ21:17:CL:AC$:4450!NI1N1:AN$(I)SS$AC$SS$:4450!XI:23:CL:"ACCOUNT NUMBER NOT ON FILE.":44000"b23:CS:LESS THAN GROSS.":4250! DIDC- 18:CL 18:CL::CL:"DEDUCTION: $"12)"(OLD=$"DE")";:13:CB7:CA2:FP1:ZB0:ZT1E7:59000:FP0:SS$"END"900 SS$""Ģ19:13:CL:DE:DCDE:4390 DC(SS$)!&DCGDIĢ21:"SHOULD NOT EXCEED GROSS MINPC100PC.5Ģ19:"INVALID PERCENTAGE AMOUNT":4250lDI(PCG.5)100:DI$(DI.001):DI$(DI$,(DI$)1)17:11:CL:"$"DI$" ("PC"%)":4345(DI$,1)"$"DI$(DI$,(DI$)1)19:DC$DI$:50000:E014250 GDCĺ"DISCOUNT SHOULD BE "DISCOUNT:";13);"(OLD=$";DI;")":"(YOU MAY ENTER DOLLARS OR PERCENT.){17:11:BMI,(7,"-09END$%",2),DI$:DI$"END"900DI$""Ģ17:11:CL:"$"DI:DCDI:434018:CL:(DI$,1)"%"433019:DC$(DI$,(DI$)1):50000:E0142503PCDC:$J13:CL:"DATE:"12)"(OLD="DT$")JTVP13:HP8:D3$DT$:62000:DT$D3$^^13:8:CL:DT$h15:1:CL:"GROSS: $"12)"(OLD=$"G")";:9:CB7:CA2:FP1:ZB.01:ZT1E8:59000:FP0:SS$"END"900|SS$""Ģ15:9:CL:G:4250G(SS$)F17:CL:6SS$""Ģ11:17:CL:VO$:4170=9SS$(((SS$)1000),3)j:W1$"THAT VOUCHER NUMBER ALREADY EXISTS.<I1N3:SS$VO$(I)ĺW1$:4130>I:CT04168@I1CTBD$"READTEMP-VO,R"I:V1$,V2$:D$D13:SS$V2$ĺW1$:4130FIHVO$SS$1000:ZT9999:59000:SS$"END"900ESS$""Ģ9:16:CL:VN$:4130kI1N2:VN$(I)SS$VN$SS$:4130I:11:"THERE IS NO VENDOR WITH THAT NUMBER.":4080"11:CL:"VOUCHER NUMBER:";8);"(OLD=";VO$;")";:17:ZB1:ZT999:59000:SS$"END"900!2:Z00:59000:SS$"END"900%Z013RR(SS$)i6:CS:"* PRESS 'RETURN' TO KEEP AN OLD VALUE. *D$"READTEMP-VO,R"RRVN$,VO$,DT$,G$,DI$,DE$,AC$:D$G(G$):DI(DI$):DE(DE$)#9:CL:"VENDOR NUMBER:"8)"(OLD="VN$")";:16:Z01:ZB(4)l POFF 900/:CHANGE VOUCHERStCT0Ģ10:"THERE ARE NO VOUCHER ENTRIES TO CHANGE.":60000:900CT1RR1:405010:"THERE ARE "CT" RECORDS, NUMBERED 1-"CT".12:CL:"WHICH RECORD DO YOU WANT TO CHANGE? ";:ZB1:ZTCT:EP10)I6)VN$4)3(VO$))VO$4)DT$;I BG:51000:BDI:51000:BDE:51000X " "AC$v& T1T1G:T2T2DI:T3T3DE0 I:EE0: U$"------------":33)U$" "U$" "U$D "TOTALS:"24);N BT1:51000:BT2:51000:BT3:51000X :I16::b D$"VOUCHER PROOF":35)DA$:k "RECORD VENDOR VCH DATE"12)"AMOUNT"6)"DISCOUNT"5)"DEDUCTION ACCT  I180:"=";::::F$"TEMP-VO EE1:I1CT D$"READTEMP-VO,R"I VN$,VO$,DT$,G$,DI$,DE$,AC$ G(G$):DI(DI$):DE(DE$)" IA7$;:D3$D3$A7$:62900).$G7062020W.)G71ĺA7$;C7$;A7$;:D3$"":G7G71:62020~..G77G74G78ĺA7$;C7$;A7$;:LL1.8G76G73ĺA7$;A7$;C7$;A7$;:LL2.BD3$(D3$,(D3$)LL):G7G7LL:62020.G7:.ACTIVATE PRINTER."PACT:5C7$;C7$;"/";C7$;C7$;"/";C7$;C7$:VP:HPZ-:G708:G72G75ĺ"/";:D3$D3$"/":62900s-DA7$:A7$(8)62500-NA7$(13)G7862900-SA7$(13)G70Z01D3$D4$:-XG7862020-]A7$" "(G70G73)A7$"0"-bA7$"0"A7$"9"62020.lPTY.":60000:4ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'PRINTER SUPPORT'":"PROGRAM TO CORRECT IT.":60000:190004"ERROR NUMBER "ER" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC." 5":"MAY BE DAMAGED.":60000:3zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":60000:4ER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMECT STICKER":"FROM THE DATA FILE DISKETTE.":60000:2rER5EEĺ"END OF DATA"::"THERE IS MISSING DATA IN THE ";F$:"FILE.":D$"OPEN"F$D2$:D$"WRITE"F$",R0":I1:D$"CLOSE":60000:3uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE::"SPACE BAR";::" TO CONTINUE";G1t16368,0:16384,128:16368,0U1~23:::`1HERROR1RER(222):LN(218)(219)2561\ER255Ĺ216,0:1fPOFF:D$"CLOSE"::10:"PROBLEM: ";52pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTZ1ZL:CH$(SS$,Z,1):CH$"E"CH$"N"CH$"D"ZZL:E01I0:E059050f0(SS$)ZB(SS$)ZTı0VPEP:868:((ZB))ZL(SS$)ZLĺ"PLEASE TYPE A "ZL" DIGIT NUMBER.":590200"ILLEGAL VALUE.":590200`G71400::1#1j24:7:"PRESS ";11V$(V$,1)","(V$,10):L1123/ ˺14L1)V$;:R/xRANGED INPUT END CHECKING/VP(37)1:HP(36)1:ZL((ZT)):ILZL:IL3IL3/HP:VP:FPįBMI,(IL,"_-09END",Z0),SS$/FPįBMI,(CB,"$-09END",CA),SS$/SS$"END"(Z0SS$"")ı90E00:1.ȭB9999999.99V$"*"(B)"*":L1(V$):52000I.dȭB999999.99951400j.xV$(B):(V$)7V$V$".00".ȭ(V$)9V$V$"0".L110:51800.V$(B.001).,L1(V$)1.V$(V$,L1).ɭL1752000.XV$(V$,L16)","(V$,6):L1L11!/ʭL1H$(DC$,I0,1)V-JĭCH$"."(CH$"0"CH$"9")ĺ"NO NON-NUMERIC CHARACTERS, PLEASE.":i-cĭCH$"."I1I0q-|ĂI0-ĭ(DC$)I12ĺ"ONLY TWO DECIMAL PLACES, PLEASE.":-E00:-8Dz2 DIGIT NUMBER-jB(100B.499)100-ǭB.01V$".00":L13:52000:Z$(Z$,1):(Z$""ZC)(Z$"Y"Z$"N")ĖHP:VP:CL:36010C,L,Z00^,PòSCREEN INPUT,E01:I1(DC$):DC(DC$):CL,íDC0ĺ"ONLY POSITIVE AMOUNTS, PLEASE.":,íDC9999999.99ĺ"SHOULD BE LESS THAN 10 MILLION, PLEASE.":-āI01(DC$):CAM IN D1$, DATA IN D2$@+̈ZB953:Z1(ZB):Z2(ZB1):Z3(ZB2)i+ֈD1$",S"(Z1)",D"(Z2)",V"(Z3)+ZB956:Z4(ZB):Z5(ZB1):Z6(ZB2)+D2$",S"(Z4)",D"(Z5)",V"(Z6)++YES-NO=,HP(36)1:VP(37)1:BMI,(3,"YESNO",ZC),Z$ONE MOMENT PLEASE..."*KD$"CLOSE2*dKRNH,"MENU B*耲DISK CHECKN*D$(4)u*:12:"ONE MOMENT PLEASE...":ZE0*D$"OPEN BLAH.CHECK"D2$:D$"WRITE BLAH.CHECK":"CHECK":D$"CLOSE BLAH.CHECK":D$"DELETE BLAH.CHECK**DRIVE STRINGS+ˆPROGRI))N3N3CT:D$"WRITEVOUCHERS,R0":N3O)CT0:D$"WRITETEMP-VO,R0":CT:D$n)J1N1:AN$(J)"211"6150u)J)D$"READACCOUNTS,R"J:AC$,TI$,BL$:BL(BL$))BLBLTT:D$"WRITEACCOUNTS,R"J)AC$:TI$:BL:D$)$900)8JENDING*J:12:"DI$):DE(DE$)&(GAGDIDE:TTTTGAC(D$"WRITEVOUCHERS,R"N3Ij(VN$:VO$:DT$:G:DI:DE:AC$:D$(J1N1:AN$(J)AC$6100(J(D$"READACCOUNTS,R"J:AC$,TI$,BL$:BL(BL$)(BLBLGA:D$"WRITEACCOUNTS,R"J(AC$:TI$:BL:D$)13:R LISTI'zCT0Ģ10:"THERE ARE NO VOUCHER ENTRIES TO POST.":60000:900'D$"OPENACCOUNTS,L40"D2$:D$"OPENVOUCHERS,L57"D2$'12:"NOW POSTING THE VOUCHERS...'TT0:I1CT:D$"READTEMP-VO,R"I'VN$,VO$,DT$,G$,DI$,DE$,AC$:D$(G(G$):DI(FVN$"000"C1C11:5210\&PC10ĺD$"WRITETEMP-VO,R"R1C1:VN$:VO$:DT$:G:DI:DE:AC$k&Z:CTCTC1&dD$"WRITETEMP-VO,R0":CT:D$&nC10ė:10:"PRINT A VOUCHER PROOF TO VERIFY"::"THE DELETIONS.":60000&x900'pPOST VOUCHERS TO VOUCHE:"ACCOUNT NUMBER: "AC$U%23:"DO YOU WANT TO DELETE THIS? ";:36000:Z$"N"5000%2D$"WRITETEMP-VO,R"RR:"000":VO$:DT$:G:DI:DE:AC$:D$:5000%<C10:R11CT:D$"READTEMP-VO,R"R1:VN$,VO$,DT$,G$,DI$,DE$,AC$%AG(G$):DI(DI$):DE(DE$)&E THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DISKETTE.":60000:"uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":60000:#zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDE ";::"SPACE BAR";::" TO CONTINUE";J!t16368,0:16384,128:16368,0X!~23:::o!H ERROR PROCESSING!RER(222):LN(218)(219)256!\ER255Ĺ216,0:!fPOFF:D$;"CLOSE"::10:"PROBLEM: ";E"pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE00:Z1ZL:CH$(SS$,Z,1):CH$"E"CH$"N"CH$"D"ZZL:E01O :E059050l (SS$)ZB(SS$)ZTı VPEP:868:((ZB))ZL(SS$)ZLĺ"PLEASE TYPE A "ZL" DIGIT NUMBER.":59020 "ILLEGAL VALUE.":59020 `G71400:&!j24:7:"PRESS111V$(V$,1)","(V$,10):L112=V$PN$V$:L1L1(PN$)PǺZLL1);V$;:vxRANGED INPUT WITH 'END' CHECKINGVP(37)1:HP(36)1:ZL((ZT)):ILZL:IL3IL3HP:VP:BMI,(IL,"_-09END",Z0),SS$:SS$""ıSS$"END"(Z0SS$"")ı? 3:51110:LǭB9999999.99V$"*"(B)"*":L1(V$):51110RVǭB999999.99951070s`V$(B):(V$)7V$V$".00"jǭ(V$)9V$V$"0"tL110:51090~V$(B.001):L1(V$)1V$(V$,L1):L1751110V$(V$,L16)","(V$,6):L1L11"ǭLRD YES-NO INPUTHP(36)1:VP(37)1:BMI,(3,"YESNO",ZC),Z$:Z$(Z$,1):(Z$""ZC)(Z$"Y"Z$"N")ĖHP:VP:868:360108Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACES=PN$"":B0BB:PN$"-"?B(100B.499)100BǭB.01V$".00":L1H.CHECK"& GET DRIVE STRINGSHˆ PROGRAM IN D1$, DATA IN D2$r̈ZB953:Z1(ZB):Z2(ZB1):Z3(ZB2)ֈD1$",S"(Z1)",D"(Z2)",V"(Z3)ZB956:Z4(ZB):Z5(ZB1):Z6(ZB2)D2$",S"(Z4)",D"(Z5)",V"(Z6)STANDA END THE PROGRAM **5BJ:12:"ONE MOMENT PLEASE..."ELJD$;"CLOSE"UVJRNH,"MENU"m耲 DISK STATUS CHECKyD$(4):12:"ONE MOMENT PLEASE...":ZE0D$"OPEN BLAH.CHECK"D2$:D$"WRITE BLAH.CHECK":"CHECK":D$"CLOSE BLAH.CHECK":D$"DELETE BLAP(I)05060<CHCH1:8((CH)));CH;" ";DA$(I);" ";sVO$(I);3);VN$(I);4);NA$(P(I));24(NA$(P(I))))BG(I)DI(I)DE(I):51000:I60);"------------""TOTAL";55);:BTT:51000:I16::POFF34,58J **PEN MISCELLANEOUS":D$;"WRITE MISCELLANEOUS,R0":CHC1T"D$;"CLOSE MISCELLANEOUS"o PRINT CHECK REGISTERI110:::26);"CHECK REGISTER":"CHECK NO. DATE";7);"VCH# VENDOR NAME";26);"AMOUNT"I172:"=";:::ZL12 I1N3:N$,TI$,BL$:BL(BL$):BLBLTT:D$;"WRITE ACCOUNTS,R";IPAN$:TI$:BL:D$nI1N1:A$(I)"211"4090uID$;"READ ACCOUNTS,R";I:AN$,TI$,BL$:BL(BL$)BLBLTT:D$;"WRITE ACCOUNTS,R";IAN$:TI$:BL:D$;"CLOSE ACCOUNTS"6D$;"O;", ";MI$(7);74(MI$(6)MI$(7)));"/"8 "/";77);"/"W "/";:K177:"=";::"/"^ I D$;"WRITE VOUCHERS,R0":N3C1:D$ UPDATE ACCOUNTS D$;"OPEN ACCOUNTS,L40"D2$I1N1:A$(I)"111"4040ID$;"READ ACCOUNTS,R";I:ALOOP8D$"CLOSE"F9$'8LOOP1NUM78CMD$(LOOP)A8LOOPG8DG7:7ACTIVATE PRINTER&7"PACT:57|COMM CARDG7775:769,132M7b7DEFAULTS/SEARCHu7D$"PR#"(952){77DCOMMANDS7NF9$"PRINTER COMMANDS"7XD$"OPEN"F9$",D1"7bD$"READ"F9$7lFTYPE$,NUM7vLOOP1NUM7CMD$(LOOP)8"(G70G73)A7$"0"06bA7$"0"A7$"9"62020M6lA7$;:D3$D3$A7$:62900]6$G70620206)G71ĺA7$C7$A7$;:D3$"":G7G71:620206.G77G74G78ĺA7$C7$A7$;:LL168G76G73ĺA7$A7$C7$A7$;:LL26BD3$(D3$,(D3$)LL):G7G7LL:62020760000:R50C7$(95):D4$D3$:D3$"":16368,0:HP:VP:C7$C7$"/"C7$C7$"/"C7$C7$^55VP:HP5:G708:G72G75ĺ"/";:D3$D3$"/":629005DA7$:A7$(8)625005NA7$(13)G78629005SA7$(13)G70Z01D3$D4$:5XG78620206]A7$" ZL13:U$"------------ 9"$'D$"OPENMISCELLANEOUS,L25"D2$f".'D$"READMISCELLANEOUS,R1":BI$:BI(BI$)"8'D$"CLOSEMISCELLANEOUS "B'36)"PERIOD ENDING "DA$:"t'15)"INCOME":TT0:CT0"~'I1N1:(AN$(I),1)"4"10130"'10900"'I:NSTT #'K)TT(K)BL:BBL:51000: !#I;!#58);:"------------ `!#25)"TOTAL "W$(K)24(W$(K)));w!#BTT(K):51000::~!#K!#25)"TOTAL LIABILITIES AND CAPITAL ";!#BTT(2)TT(3):51000!#I110::!#900!'PROFIT AND LOSS STATEMENT "'SHEET< 2#W$(1)"ASSETS":W$(2)"LIABILITIES":W$(3)"CAPITAL U F#ZL15:K13:TT(K)0 K#:(87(W$(K)))2)"*** "W$(K)" ***": P#I1N1 d#AN$AN$(I):TI$TI$(I):BLBL(I):K1BLBL n#(BL).01(AN$,1)(K)9100 x#25)TI$30(TI$));!#TT(DI:51000:BDE:51000:BGDIDE:51000:GTGTGG:TITIDI:TETEDENIeD$"CLOSEVOUCHERS U$"------------":51)U$" "U$" "U$" "U$50);:BTG:51000:BTI:51000BTE:51000:BTGTITE:51000:I110::900 (#BALANCE 10));DI((ST$(I),29,10)):DE((ST$(I),(ST$(I))38))UD$"WRITEVOUCHERS,R"I|VN$:VO$:DT$:G:DI:DE:AN$:D$J1N2:VN$VN$(J)8080JD$"READVENDORS,R"J:VN$,NA$:D$VN$3)NA$25(NA$))AN$2)VO$2)DT$;)BG:51000:B)VN$VO$DT$AN$(ZZ$(G),10)(ZZ$(DI),10)(DE)OxI:EE0:CT1.58064ezL1%1:L2%7:X%CT|21251,("S"):21252,("T")128~21248I1CTVN$(ST$(I),4):VO$(ST$(I),5,3):DT$(ST$(I),8,8)AN$(ST$(I),16,3):G((ST$(I),19,"=";:::'YD$"OPENVOUCHERS,L57"D2$R^D$"READVOUCHERS,R0":CT:F$"VOUCHERS wcTG0:TI0:TE0:ZL13:CT.58125eZZ$"000000000 hEE1:I1CTrD$"READ VOUCHERS,R"ItVN$,VO$,DT$,G$,DI$,DE$,AN$uG(G$):DI(DI$):DE(DE$)6vST$(I 900$@OUTSTANDING VOUCHERSEN2.5ė:10:"THE VENDOR FILE IS EMPTY."::POFF:"USE 'FILE MAINTENANCE' TO ADD VENDORS.":60000:900J:"VEND# VENDOR NAME"12)"ACCT# VCH# DATE"12)"GROSS"5)"DISCOUNT"4)"DEDUCTION"10)"NET TI1102:IN$:DT$:AM:D$-J1N3:CN$CN$(J)70804JND$"READCUSTOMERS,R"J_CN$,NA$:D$15)CN$7)NA$25(NA$))DT$3)IN$;TTTTAM:BAM:51000:ID$"CLOSEINVOICES 68)"------------ 65);:BTT:51000:I110::ST$(I)CN$IN$DT$(AM)1I:EE0:CT1.57064GL1%1:L2%7:X%CTk21251,("S"):21252,("T")128v21248I1CTCN$(ST$(I),4):IN$(ST$(I),5,3)DT$(ST$(I),8,8):AM((ST$(I),(ST$(I))15))D$"WRITEINVOICES,R"ICN$:"6)"CUSTOMER NAME"12)"DATE"7)"INV#"8)"AMOUNT Pl15);:I165:"=";:::mqD$"OPENINVOICES,L31"D2$vD$"READINVOICES,R0":CT:F$"INVOICESZL15:TT0:CT.57115EE1:I1CTD$"READINVOICES,R"ICN$,IN$,DT$,AM$:AM(AM$)0:)I:U$"------------":55)U$6)U$N49);:BTD:51000:BTC:51000:^I110::g900~XA/R TRIAL BALANCE]N3.5ė:10:"THE CUSTOMER FILE IS EMPTY."::POFF:"USE 'FILE MAINTENANCE' TO ADD CUSTOMERS.":60000:9001b:15)"CUST#;C7$;A7$;:D3$"":G7G71:62020F&.G77G74G78ĺA7$;C7$;A7$;:LL1l&8G76G73ĺA7$;A7$;C7$;A7$;:LL2&BD3$(D3$,(D3$)LL):G7G7LL:62020&G7:&ACTIVATE PRINTER&"PACT: G72G75ĺ"/";:D3$D3$"/":62900;%DA7$:A7$(8)62500U%NA7$(13)G7862900x%SA7$(13)G70Z01D3$D4$:%XG7862020%]A7$" "(G70G73)A7$"0"%bA7$"0"A7$"9"62020%lA7$;:D3$D3$A7$:62900%$G7062020&)G71ĺA7$ER SUPPORT'":"PROGRAM TO CORRECT IT.":60000:19000$"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."$60000:$0C7$(95):D4$D3$:D3$"":16368,0:HP:VP$5C7$;C7$;"/";C7$;C7$;"/";C7$;C7$:VP:HP"%:G708:NTLY BEEN REVERSED.":60000:#ER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:4$ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'PRINT.z"#    ԠӠ ԠӠ,!Š"ԳҠԠŠԠ"IJ̮ʠ Šˠ.ŠŠ6ȠӠ2٠̠٠)Ӡ٠(Ҡ٠2ӠŠɠϠϠ ̮ʠ ŠӠҠӮΠՠ0:"PROBLEM: ";-pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DISKETTE.":60000: .rER5EEĺ"END OF DATA"::"THERE IS MISSING DATA IN THE "F$:"FILE.":D$"OPEN"F$""D2$:D$"WRITE"F$",R0":I1:D$"CLOSE"ZCZLZB$"***":ZC3&,ӺZLZC)ZB$;,,ӱ<,`G71400:u,j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";,t16368,0:16384,128:16368,0,~::,HERROR,RER(222):LN(218)(219)256,\ER255Ĺ216,0:-fPOFF:D$"CLOSE"::110:51090&+~V$(B.001):L1(V$)1B+V$(V$,L1):L1751110h+V$(V$,L16)","(V$,6):L1L11+ǭL111V$(V$,1)","(V$,10):L112+V$PN$V$:L1L1(PN$)+ǺZLL1);V$;:+ҲRIGHT JUSTIFY INTEGERS+ZB$((ZB.499)),ZC(ZB$):V"(Z6)*"*8Dz2 DIGIT NUMBER?*=PN$"":B0BB:PN$"-"W*?B(100B.499)100w*BǭB.01V$".00":L13:51110*LǭB9999999.99V$"*"(B)"*":L1(V$):51110*VǭB999999.99951070*`V$(B):(V$)7V$V$".00 *jǭ(V$)9V$V$"0 +tL1CLOSE BLAH.CHECK":D$"DELETE BLAH.CHECK".)A)DRIVE STRINGSb)ˆPROGRAM IN D1$, DATA IN D2$)̈ZB953:Z1(ZB):Z2(ZB1):Z3(ZB2))ֈD1$",S"(Z1)",D"(Z2)",V"(Z3))ZB956:Z4(ZB):Z5(ZB1):Z6(ZB2)*D2$",S"(Z4)",D"(Z5)",TTTBL(I):B(BL(I)):51000*(*:CTCT10(*<(8JENDING^(BJ:12:"ONE MOMENT PLEASE..."m(LJD$"CLOSE }(VJRNH,"MENU (耲DISK CHECK(D$(4)(:12:"ONE MOMENT PLEASE...":ZE0()D$"OPEN BLAH.CHECK"D2$:D$"WRITE BLAH.CHECK":"CHECK":D$"9"10530')10900 '")I:OETT2'')CT0ĺ42)U$W',)19)"TOTAL OTHER EXPENSES"28);i'6)BOE:51000:'@)68)U$:NINIOIOE'J)15)"NET INCOME"42);'T)BNI:51000:'h)I110::'r)900'*(BL(I)).01ı'*19)TI$(I)22(TI$(I)));(*T26);&(BNI:51000:::&(15)"OTHER INCOME":TT0:CT0^&(I1N1:(AN$(I),1)"8"10430i&(10900w&(I:OITT&(CT0ĺ42)U$&(19)"TOTAL OTHER INCOME"30);&(BOI:51000::&)15)"OTHER EXPENSES":TT0:CT0')I1N1:(AN$(I),1)"%<(15)"EXPENSES":TT0:CT0<%F(I1N1:AN$(I)"716"10330i%K((AN$(I),1)"6"(AN$(I),1)"7"10330t%P(10900%Z(I:TETT%_(CT0ĺ42)U$%d(15)"TOTAL EXPENSES"38);%n(BTE:51000:%x(68)U$:NIGPTE&(15)"NET INCOME FROM OPERATIONS"$(19)"NET PURCHASES"22);0$ (BNP:51000:Q$(19)"ENDING INVENTORY"19);c$(BEI:51000:{$(55)U$:GSBINPEI$(19)"COST OF GOODS SOLD"30)$#(BGS:51000:$((68)U$:GPNSGS$-(15)"GROSS PROFIT ON SALES"31);$2(BGP:51000::CT0ĺ42)U$%#'19)"NET SALES"39)9#'BNS:51000::a#'15)"COST OF GOODS SOLD":TT0:CT0#'19)"BEGINNING INVENTORY"16);#'BBI:51000:#'I1N1:AN$(I)"113"EIBL(I)#'(AN$(I),1)"5"10240#'10900#(I:NPTT$(CT0ĺ42)U$868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";N Du16368,0:16384,128t Xu1:868:1::ZV:ZH:16368,0: }ZE(222)::12:ZE4ĺ"PLEASE REMOVE THE WRITE-PROTECT STICKER.":32020 }"FATAL ERROR." }30000:SL(P(P(999))1)16:SL T(953)100505 .'(953)(956)Ĺ953,T:956,T:FL1E 8'953,T:FL1m B'T(P(P(999))14):T(955)10080 L'(955)(958)Ĺ955,T:958,T:FL1 V'955,T:FL1 `'FL1ĺD$"BSAVEDRIVE OPTIONS,A953,L6" j' 5uZH(36)1:ZV(37)1:ZF04 :u24:1::D$"BRUNLOGO":16304,0:16297,0:16299,0:16302,0K "HERE'S A FLAG"Z DSİ10005 D$"BRUNBUSUTIL.OBJ":RFL,"PRINTER COMMANDS.BIN"P(948) 216,0:RNH,"MENU" 'P(S)(S)(S1)256 'D$"BLOADDRIVE OPTIONS" $'T(P(P(999))1)16:  HELLO/PROGRAMMER:SHANE P. MCCARRONICOPYRIGHT:MECC, 1983b(UPDATE:84/02/24 RPBpf:D$(4)i(16361)128(64435)6ĺD$"PR#0":D$"IN#0":16372,0k32000nDS1:D$(13)(4):P(S)(S)(S1)25616368,06 230,64   ٠΍٠ōԠˍ ӠׯҍŠҍҠǍǠ̍$C7$A7$;:LL1028G76G73ĺA7$A7$C7$A7$;:LL2Y2BD3$(D3$,(D3$)LL):G7G7LL:62020c2G7:y2ACTIVATE PRINTER2"PACT:8)62500"1NA7$(13)G7862900E1SA7$(13)G70Z01D3$D4$:U1XG7862020t1]A7$" "(G70G73)620601bA7$"0"A7$"9"620201lA7$;:D3$D3$A7$:629001$G70620201)G71ĺA7$C7$A7$;:D3$"":G7G71:62020 2.G77G74G78ĺA70:19000]0"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."j060000:00C7$(95):D4$D3$:D3$"":16368,0:HP:VP05C7$C7$"/"C7$C7$"/"C7$C7$:VP:HP0:G708:G72G75ĺ"/";:D3$D3$"/":629001DA7$:A7$(ASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:0ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'SET PRINTER OPTIONS'":"PROGRAM AND CORRECT LINE ";LOOP;".":6000:60000:l.uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":60000:.zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":60000:]/ER8ĺ"I/O ERROR"::"PLEutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgC<<; J*BBC ACD|JUU2CFJ*NGj?D~>~UGsBcB6f`CBwJUNGk~E|~WGsBBCFB;FJ*NGAGsB`B0`Ca]a}}JUNGAGsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBnJ*NGAGsBcB6cCtwCA|ApB|@aVGOFx~J~xHBBX}- CFJ*NGSq?OAOGGBOAVGOH@NHxBByB{CFJUNGS | BOCOEOBOANVGsBBqCFJ*NGSp`pc`pB p`ggppgg`pEp`DgVGs00{C3ACFJUNGm!<<!?TGsvC6AB@@_BY_CFJ*NGPAsqqBsA@EDEDVGOG|L|HBFACFJUNGSDsECDEDsVGOD@CAAGA <EBgVGO~x`FGA>B~BBBYCFJUNGSxpxqpxBB~D>8xE80B30xVGQF@`Dp`@HFBAQB oBlOCFJUNGjsyE|ysVGP?D@B`ABpAB8ABAABBLBlOCFJ*NGjO3yyByVGOaHBAQBBOB`OCFJUNGPAAOAAOABFO?E~ BL VGQ|0TAA ~~B@@oBLOCFJ*NGP p`ggppgg`pBFgsx|Ep`B`pVBB3CFJ*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGAGOCC@B`ABpAB8ABAABBGlo`OCFJ*NGAGO~x`捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BA_BBC3ACFJUNA]??B/++*C*BB3?>CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)      SUPPORT":34,2 MENU7 L011:::"YOU MAY:":d " 1. CHECK CURRENT PRINTER SETTINGS": " 2. CHANGE PRINTER SETTINGS": " 3. RETURN PRINTER SETTINGS TO THEIR":" ORIGINAL STATE (SLOT SEARCH)": " 4. TEST PRINTER SETTINGS" PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983x(LAST UPDATE: 83/08/31 SPM2TEXT VERSIONdINITnAPL0:ADJUST PAPER LENGTHxD$(4)::35000PP(948)(949)256:Q$(34) ::13:"PRINTER          ϠƯ͍Ԡҍˍҍ ύĠԍˠ׍Ҡō mͳ   ފ $`PACRFRNSEPOFFEEBMO͊;h FЇ Ǎ` 䎱 掲` `@ i @ ȱ ~`,X` {ݩD ^ D`_D`ED` &L`L 䎱 掲`hj8ȱCv ȱ8쭩8ȱ>? :p"g>h? %p ʌg^h_^`ȱ^Șe^^_iȑ^^_]\[@A W  Gg?h $  { RPQ L ʌLl`N bD_E`BcCd@eAf>g?h $ &ʌ eL׭XLXLX ˌ$)ʌg>h? pʌ G 8`L8ghegiȱe` ` ~LH)hJJJ`,0 L, ,8m, ,  ` ` @߿ VD_E`BcCd@eAf> ,),,07\.LÉ-,,08n 윊L웊 9, 莤` 莤L#,쭊 ʎ -L 쨊 `,0LQ,0L8mLs ֩PyQ AL  L{ ( Lш {$0 掛 ,LÈ {$0L 占L J[n_n$n-  -͟ ̠^` , g 掜 ,  ߅ lݭ, `,0 KLMO` Luvw6H7HL6M7,O0 uɍ L`N8$$ xu  @ x6Lh7h6wvu`ɍɌ$Nͳ N$` `HЇȍ)hHЇɍ h`ʝ `?<>?>,>$f<<`JK ߅$0HJK LbLv Ǎ$H)ȍh0,ɍ0RL LM67  MLNO0Nɍ ʍ9ˍI7ʍ߆ˍ̍߭ ȍr >v?Ȑ۩`?)8鍸ζ`H88HH   <= <ȭ<ȭ<ȭ<ȭ<><ȥ?< <<= H <=I<< L+Ʉst+Lɯtl 8ɀ   Lޤȱ:,Әe湥 HH L`stL<=ʱD>` <=     8::L25,S$""İ9000:CTCT1:PPCT,13_L2:CTCT1:PPCT,0:PPCT1,255:PPCT2,25522:"ARE THE ABOVE COMMANDS CORRECT? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0TL(S$):C$:A(C$):A13Ĺ16368,0:36000/Z$"N"ĹPP2,0:PP3,255:PP4,255::"PLEASE TYPE IN THE SPECIAL COMMANDS FOR":"YOUR PRINTER. TYPE AN EXTRA 'RETURN'":"WHEN YOU HAVE FINISHED."L111:CT1L215:72L2:6:958:"PRINT "Q$;:8000S$""Ģ72L2:1:95XNOT A COMM CARDob::7:"THE PRINTER INTERFACE CARD MAY BE IN ANYSLOT 1 - 7. (MOST COMMONLY 1 OR 2.)"l12:"WHICH SLOT IS YOUR INTERFACE CARD IN? ";:ZB1:ZT7:37000:PP,128ZNv17:"DOES YOUR PRINTER REQUIRE ANY SPECIAL":"COMMANDS? ";:"1. HIGH SPEED (USUALLY 30 CPS)"::"2. LOW SPEED (USUALLY 10 CPS)"12:"WHICH PRINTING SPEED DO YOU WANT"::"TO USE? ";:ZB1:ZT2:37000PP2,128(ZN1)18:"WHICH SLOT IS THE COMMUNICATIONS"::"CARD IN? ";:ZB1:ZT7:37000PP,ZN:0:ZT120:ZC0:37000:PP1,ZN:-PID FIELDGZL120:PP106L,0:d14:"WHAT PRINTER ARE YOU MAKING THESE":"SETTINGS FOR? ";:"";P$:LP(P$):LP0ıiLP20P$(P$,20):LP20nL1LP:PP106L,((P$,L,1))::pSET COMM CARDDz:6:00,7000!PP1,66::APLİ5100Y5200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"D1$_xADJUST PAPER LENGTH4:"THE NORMAL SETTING FOR PAGE LENGTH IS":"66 LINES PER PAGE.":9:"WHAT PAGE LENGTH IS YOUR PRINTER SET TO PRODUCE? ";ZB1T IS NOT":" COMPATIBLE WITH THE APPLE //E)":"2. ANY OTHER TYPE OF PRINTER":" INTERFACE CARD (E.G., PARALLEL":" OR SERIAL, CENTRONICS TYPE, ETC.)"::"WHICH TYPE OF PRINTER INTERFACE WILL":"YOU BE USING? ";:ZB1:ZT2:37000ZN60TER...":D$"IN#0":D$"PR#0":PACT:"PRINTER TEST":qI13:J3295:(J);:::J96127:(J);:::::FEEDPOFF:12:" PRINTER TEST COMPLETE.":30000SET NEW OPTIONS06:"1. APPLE COMMUNICATIONS BOARD":" (AN OBSOLETE CARD THA THE PRINTER SETTINGS TO"::"THEIR ORIGINAL STATE (SLOT SEARCH)..."[ I0127:PPI,0: D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128"D1$ 30000:TEST THE PRINTER:12:"PLEASE PREPARE YOUR PRINTER...":300003:12:"TESTING THE PRIN4~ 7:"PRINT "(34)CA$;:L211:P(PPCT):CTCT1Q P0P13P32PP64:r L2(P13):PP21L2:(P);:| L2: L1: PRINTER TYPE :" TYPE OF PRINTER:"::7:L120:((PP106L));::: DEFAULTS D 11:"NOW RETURNING*  :"THE CURRENT PRINTER SETTINGS ARE:"l  :" SLOT: ";(PP)128::APLĺ" PAGE LENGTH: ";(PP1):  (PP2)0İ2400 $ (PP107)0İ2500 . 30000: ` PRINT SPECIAL COMMANDS j " COMMANDS:"::CT2 t L115:(PPCT)0L15:2470RD":"IN SLOT #";(PP);".":N SD$"LOW":SD10:(PP2)127SD$"HIGH":SD30 10:"THE SPEED IS SET TO '";SD$;"'":"(USUALLY ";SD;" CHARACTERS PER SECOND)." :APLĺ:" PAGE LENGTH: ";(PP1) :(PP107)0İ2500 30000: USER SETENTLY SET TO THE"::"DEFAULT SETTING, WHICH IS TO SEARCH"::"SLOTS 1 AND 2 FOR A RECOGNIZABLE CARD"::"EACH TIME THE DISKETTE IS STARTED UP." H30000: COMM CARD 6:"THIS DISKETTE IS CURRENTLY SET UP TO":"EXPECT AN APPLE COMMUNICATIONS BOA:" $" 5. RETURN TO MAIN MENU"U .::"WHAT IS YOUR CHOICE? ";:ZB1:ZT5:37000y 8:ZN2000,5000,3000,4000,31040 BL00:L0 CURRENT SETTING JP1((PP)0)((PP)127) JP2100,2200,2300: 4DEFAULTS >8:"THIS DISKETTE IS CURR,ESS ";::"SPACE BAR";::" TO CONTINUE";lDu16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000NuZP160ZP14130020Xu1:868:1::ZV:ZH:16368,0:yENDING ROUTINEy::DR2İ34000y12:"WOULD YOU LIKE TO TRY AGAIN? ";D;:12:INP,(1,"-12",0),Z$:Z$""Ģ12:12:D:10040? 3'D(Z$) 8'1:14:958:" VOLUME: ";:37:3((V)))V;:12:ZB0:ZT254:37000:(ZN$)0ZN0Ė12:14:V:10050 ='VZN B' 0uSPACE BAR 5uZH(36)1:ZV(37)1:ZF0):u24:1:868:7:"PRD:Z6V:956,S:957,D:958,V:35000:/ 4000@ @DR2İ34000K J31010\ 'DRIVE SPECSs '8:32:"DEFAULTS" $'1:10:958:" SLOT: ";:39:S;:12:INP,(1,"-17",0),Z$:(Z$)0Ė12:10:S:10030 )'S(Z$)3 .'1:12:958:" DRIVE: ";:39:0:"SET DRIVE PARAMETERS":5:"DATA DISKETTE:":SZ4:DZ5:VZ6:10000 SD0(SZ1DZ2VZ3)Ģ17::958:"THIS DISKETTE REQUIRES TWO DRIVES. PLEASE RE-ENTER YOUR OPTIONS.":30000:4010% 17:"ARE THESE ENTRIES CORRECT? ";:36000:Z$"Y"Z4S:Z5 VIEW PARAMETERS= :5:"VIEW CURRENT DRIVE PARAMETERS 4:"PROGRAM DISKETTE"::" SLOT: "Z1:" DRIVE: "Z2:" VOLUME: "Z3 13:"DATA DISKETTE:"::" SLOT: "Z4:" DRIVE: "Z5:" VOLUME: "Z6 30000: SET PARAMETERSD :1$"IN#0":: $DR1 MENU> ::12:"DISKETTE SUPPORT" 32,3::8:"1. VIEW CURRENT DRIVE PARAMETERS"::"2. SET DRIVE PARAMETERS"::"3. RETURN TO MAIN MENU 32,0:::" WHICH NUMBER? ";:ZB1:ZT3:37000 ZN3000,4000,8000 2000r  PROGRAM:DISKETTE SUPPORT:COPYRIGHT: MECC, 1983YPROGRAMMER:SHANE MCCARRONx(LAST UPDATE: 83/12/21 SPMINIT11072SD032000 P(S)(S)(S1)256D$(4):CS958:35000 D$"BRUND2UTIL.OBJ"D1$:D$"PR#0":D" " " """EGAL (BOOLEAN)(ZH(36)1:ZV(37)18ZL((ZT))"";Z$:(Z$)ZB(Z$)ZTĢ24:1:ZF1:"ENTER A NUMBER BETWEEN "(ZB)" AND "(ZT)".";:ZV:ZH:868:37030ZN(Z$):ZFĢ24:1:958:ZF0 D"((ZB1))",V"((ZB2))WֈD2$",S"((ZB3))",D"((ZB4))",V"((ZB5)):iYES-NO INPUTZH(36)1:ZV(37)1:"";Z$:Z$(Z$,1):Z$"Y"Z$"N"ĖZH:ZV:868:36010RANGED NUMERIC INPUT ZB = MIN, ZT = MAX, ZC = C/R L:ZV:ZH:16368,0:(yENDING ROUTINEg"y::12:"WOULD YOU LIKE TO TRY AGAIN? ";:36000:Z$"Y"Ĭ@y::12:"GETTING THE MENU PROGRAM...":RNH,"MENU"GET DRIVE STRINGSˆPROGRAM DISK IN D1$, DATA DISK IN D2$̈ZB953:D1$",S"((ZB))",(A);:#K:Q$:CTCTL #/0uSPACE BARN5uZH(36)1:ZV(37)1:ZF0:u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000NuZP160ZP14130020Xu1:868:1:S$,J,1)")"91003P#X$(S$,K5,JK5):X((X$))FZ#X0X127X0bd#L$"":K1L$(S$,K1)~n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#13:868:L(S$):K1L#A((S$,K,1)):PPCTK,A:A32AA64:#^(A8L0)ĺC$Q$;:8020'hA88080;rA34L198020N|A32AA64:j(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):L79120<#K1L6:(S$,K,5)"CHR$("9110F#JK6L:(Ǎ384,128:ZP(16384):ZP155ZFZF1:ZF231000KNuZP160ZP14130020qXu1:868:1::ZV:ZH:16368,0:{y1205YES-NO INPUTZH(36)1:ZV(37)1:"";Z$:Z$(Z$,1):(Z$""ZC)(Z$"Y"Z$"N")ĖZH:ZV:868:36010PòDATA1ZE16030,31000>ZN13ı9>ZN24ZC0:Z$"":16035I>ZC116040b>Z$Z$(ZN):ZN32ı}>ZCZC1:(ZN);:160400uSPACE BAR5uZH(36)1:ZV(37)1:ZF0:u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";0Du16368,0:16>ZE0:16368,0:ZC0:ZX(36)1:ZY(37)1:Z$""B>ZX:ZY:868S>A$:ZN(A$)>ZN1ZN8ZN13ZN24(ZN48ZN48TN)16040>ZN8ZC0ZCZC1:(8)" "(8);:ZC0Z$(Z$,ZC)>ZC0ZN8Z$"":16040>ZN816040>ZN27ZEZE1:S(S))Z$:Z$"PROGRAM DESCRIPTIONS":S(S))Z$:Z$DV$:S(S))Z$:5r:CT0:I1N:CT15DLİ30000:5:958:CT1:MN$(I)" -":CTCT1:J1DL:DS$(I,J)""DS$(I,J)" "ĺ" "DS$(I,J):CTCT1:J::I:30000::12000:>INPUT0 OF THIS SOFTWARE.""v/30000::52SCREEN FORMATQ2PD(PRDRSO):TNPDN2b3N1SP$"S"h3q6END6:11:8:"INSERT ANOTHER DISKETTE."630000:CL$6CS(P(P(999))1)16:SLOT #6CS1CS7CS66CS::C::Z$DN$:GED TO BE CAUSED DIRECTLY OR"l/:"INDIRECTLY BY THIS SOFTWARE, INCLUDING"::"BUT NOT LIMITED TO ANY INTERRUPTION OF"::"SERVICE, LOSS OF BUSINESS, OR"::"ANTICIPATORY PROFITS OR CONSEQUENTIAL"q/:"DAMAGES RESULTING FROM THE USE OR"::"OPERATIONAUL, MN 55112":"(612) 481-3660":32,06D/:30000:AN/DIıGX/b/"NOTICE: MECC SHALL HAVE NO LIABILITY OR"::"RESPONSIBILITY TO PURCHASER OR ANY OTHER":"PERSON OR ENTITY WITH RESPECT TO ANY"::"LIABILITY, LOSS, OR DAMAGE CAUSED OR "::"ALLE13:"ST. PAUL, MN 55112":13:"(612) 481-3527"</30000:F&/HELPQ+/121100/:3:"IF YOU HAVE ANY PROBLEMS USING MECC"::"COURSEWARE WITH YOUR COMPUTER,"::"WRITE OR CALL:"':/32,9:::"MECC HELP LINE":"3490 LEXINGTON AVENUE NORTH":"ST. PL "l.:4:17(IP$""):"A MANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILABLE FROM MECC.".9:" TITLE: ";DN$:D2$""Ė13:D2$/12:" DIRECT INQUIRIES TO:"//:13:"MECC DISTRIBUTION":13:"3490 LEXINGTON AVENUE NORTH":1,(A1)- :12:"GETTING "Z1$"...":RNH,Z$> 'SUBROUTINESk 'P(S)(S)(S1)256:S(S)20(Z$)2 ':DL3:CA0:DR1:PR1:IN1:DI1:MH2:TC1:SB975 .'CA$(1):CL$(12):CC$(3):D$(4) 8' .BOOK INFO.IP$"":IN1IP$"INSTRUCTIONAACHER OPTIONS":Z1$Z$:4000* A((A$))S PRAN2Z$X1$(0):Z1$X1$(1):4000 DRAN2PRZ$X2$(0):Z1$X2$(1):4000 AN2PDİ14000:3090  AN1İ15000:3090 A0ANZ$CN$(A):Z1$MN$(A):4000  3020  PROGRAM 90T":N2". "X1$(0)f >DRĖMHOF:X2$(1)"DISKETTE SUPPORT":X2$(0)"DISKETTE SUPPORT":N2PR". "X2$(0) ROFMH:N2PD". END": \:IX(36)1:IY(37)1: USER'S CHOICE IX:IY:868:MH:"WHICH NUMBER? ";:16000:A$Z$ CAA$(1)Z$"TE(37)1:R TCĖZX:ZY:ZL:LZN:ZY(LZ):22(L9):L". "MN$(L)::Z1:Z2:~ :MH(TC0)(TC1):"OTHER OPTIONS:": OF2((N1)9)7(TC1) OFMH:N1". GENERAL INFORMATION" 4PRĖMHOF:X1$(1)"PRINTER SUPPORT":X1$(0)"PRINTER SUPPORDS$(L,L1):: t13000 5 2000:3000:1210? MENUW :Z$DN$:S(S))Z$v D2$""Z$D2$:S(S))Z$ 5:MH(TC0)(TC1):"PROGRAM"SP$":": ZX(36)1:ZY(37)1:L1(N(TC1).5):2(L9)MH(TC0):L". "MN$(L)::Z1(36)1:Z2 BUSINESS VOLUME 3+PROGRAM: MENUICOPYRIGHT (C) MECC, 1981i( LAST UPDATE: 84/10/08 NAM{MAIN PROGRAM3379210000:INITLFORMAT SCREENVDN$,D2$,DV$,N`MN$(N1),CN$(N),DS$(N,DL) jL1N:MN$(L),CN$(L):L11DL:         ILL HAVE DATA.":15:"ANY PREVIOUSLY EXISTING INFORMATION ON"::"THE DISKETTE WILL BE ERASED.21:"DO YOU WANT TO DO THIS? ";:36000:OK$Z$OK$"N"900:5:"PLACE THE DISKETTE THAT IS TO CONTAIN$:"THE EMPTY FILES IN THE DISK DRIVE":B1(J)::<C1$(J),C2$(J),B1(J),B2(J),B3(J),B4(J),B5(J):sFC1$(J):C2$(J):B1(J):B2(J):B3(J):B4(J):B5(J):y5:"THIS OPTION WILL CREATE A SET OF EMPTY:"DATA FILES ON A DATA DISKETTE IN"::SVD$".^12:"ONLY THE ACCOUNTS FILE W(J),C4$(J),C5$(J),C6$(J):P C1$(J):C2$(J):C3$(J):C4$(J):C5$(J):C6$(J):C1$(J),C2$(J),C3$(J),B1(J),B2(J),B3(J),C4$(J):C1$(J):C2$(J):C3$(J):B1(J):B2(J):B3(J):C4$(J):(C1$(J),C2$(J),C3$(J),B1(J):2C1$(J):C2$(J):C3$(J): CT:D$"CLOSE8 I::12:"THE NEW FILES ARE READY.J 60000:19000eC1$(J),C2$(J),B1(J):C1$(J):C2$(J):B1(J):C1$(J),C2$(J),C3$(J),C4$(J),C5$(J),C6$(J):C1$(J):C2$(J):C3$(J):C4$(J):C5$(J):C6$(J):C1$(J),C2$(J),C3$ITE"F$(I)",R0":N1" J1N1:13; D$"WRITE"F$(I)",R"J` I3810,3830,3850,3870,3890,3910w J:D$"CLOSE"F$(I) I::12:"NOW CLEARING THE WORKFILES: CT0:I7NF:12:30:868:F$(I) D$"OPEN"F$(I)",L"F(I)D2$ D$"WRITE"F$(I)",R012:D$WM$J:""::D$1D :12:"NOW "ME$" FILE:fN D$"OPENPERMFILE"D1$:I16:12:22:868:F$(I)l D$"READPERMFILE":N1v J1N1:13 D$"READPERMFILE I3800,3820,3840,3860,3880,3900 J:D$ D$"OPEN"F$(I)",L"F(I)""D2$ D$"WR",L25"D2$ D$WM$"0":"01 D$WM$"1":"35000U D$WM$"2":"MANKATO INDUSTRIES"t D$WM$"3":"1920 LEE BLVD. D$WM$"4":"MANKATO MN 56001 D$WM$"5":"HOMETOWN STATE BANK& D$WM$"6":"123 MAIN ST.0 D$WM$"7":"MANKATO MN 56001: J8 :"ORIGINAL CONDITION. ANY CHANGES THATV :"YOU HAVE MADE TO THE FILES WILL BEv :"ERASED.":ME$"RESTORING 20:"DO YOU WANT TO DO THIS? ";:36000:OK$Z$ OK$"N"900 :12:"NOW STORING MISCELLANEOUS INFORMATION...  D$"OPEN"MI$ES IN THE DISK DRIVE"::"INDICATED BELOW:":33100?MJ19000Jf2170cpD$"DELETE HELLO"D2$oz61000ME$"CREATING":3040 RESTORE DATA FILES :8:"THIS OPTION WILL RESTORE ALL THE DATA :"FILES ON THE DATA DISKETTE TO THEIR+:"BUSINESS, 'MANKATO INDUSTRIES'.S ::"ANY PRE-EXISTING INFORMATION ON THEt :"DISKETTE WILL BE ERASED. 22:"DO YOU WANT TO DO THIS? ";:36000:OK$Z$ *OK$"N"19000 >:4:"PLACE THE DISKETTE THAT IS TO CONTAIN2H:"THE DATA FILA3000,4000,5000,19000, CREATE DATA DISKX 1:9:"CREATE DATA DISK PROGRAM":34,3 4:"THIS PROGRAM WILL CREATE A DATA FILE :"DISKETTE IN "SVD$". 9:"THE DISKETTE WILL CONTAIN ALL THE :"ACCOUNTING INFORMATION FOR AN IMAGINARY% HL$(3)"BACK-UP DATA FILES7 HL$(4)"END THE PROGRAMJ ::8:HL$(0)Y 19:"MENU{ 9:I1N:I;". ";HL$(I):: 19:868:"WHAT IS YOUR CHOICE? ";:BMI,(1,"-14",1),A$:A(A$) :8:HL$(0) HT(42(HL$(A)))2:HT:HL$(A) 34,4:S,57,7% I1NF:F$(I),F(I),A(I):? ND:I1ND:AE$(I):j 9,111,112,113,211,311,312,411,412,413} (901)12000 N4:HL$(N):HL$(0)"FILE HOUSEKEEPING PROGRAM HL$(1)"RESTORE ORIGINAL DATA FILES" HL$(2)"CREATE EMPTY DATA FILES (100),B2(100),B3(100),B4(100),B5(100),MI$(12),F$(NF),F(NF),A(NF)m MI$"MISCELLANEOUS":WM$"WRITE "MI$",R} ::D$(4) ACCOUNTS,40,3,CUSTOMERS,80,6,VENDORS,80,6,VOUCHERS,57,7,INVOICES,31,4,STOCK,76,7,JOURNAL,27,3,TEMP-VO,57,7,SALES,31,4,RECEIPT, BUSINESS VOLUME 36PROGRAM:CREATE DATA DISKTCOPYRIGHT (C) MECC, 1981q(PROGRAMMER: P. BOUCHARD2LAST UPDATE: 84/07/10 JJK<61000d35000:(901)İ33000nC1$(100),C2$(100),C3$(100),C4$(100),C5$(100),C6$(100):NF10@ xB1             BL(I):D$D 30003:EP4:DELETE AN ACCOUNT s10:"ACCOUNT NUMBER: ";:ZB1:ZT999:59000:SS$"END"4200AN$SS$:I1CT:AN$AN$(I)4040I:14:CL:"ACCOUNT NUMBER NOT FOUND.":4010(BL(I)).01Ģ14:"ACCOUNT HAS A BALANCE - CAN':3010) 13:CL:"OLD TITLE: ";TI$(I)Y 16:CL:"NEW TITLE: ";:BMI,(22,LI$,0),TI$m TI$"END"1000 TI$""Ģ16:13:TI$(I):3090 TI$(I)TI$ 20:"ARE ALL CHANGES CORRECT? ";:36000:Z$"N"3000 : D$"WRITEACCOUNTS,R"I:AN$:TI$(I):(I)BL)pD$"WRITE ACCOUNTS,R0":CTCT15zCT:D$?2000a :EP3:CHANGE AN ACCOUNT  Z00:10:CL:"ACCOUNT NUMBER: ";:ZB1:ZT999:59000:Z01:SS$"END"1000 AN$SS$:I1CT:AN$AN$(I)3040 I:13:CL:"ACCOUNT NUMBER NOT FOUND."I1CT:AN$AN$(I)2090/ I:ICT1:2140B*JCT1I11t4AN$(J)AN$(J1):TI$(J)TI$(J1):BL(J)BL(J1)>D$"WRITE ACCOUNTS,R"JHAN$(J):TI$(J):BL(J)RJ\D$"WRITE ACCOUNTS,R"I:BL0fAN$:TI$:BLkAN$(I)AN$:TI$(I)TI$:BLULD NOT BE LESS THAN 100.":2010fI1CT:AN$AN$(I)Ģ14:CL:"THAT NUMBER IS ALREADY USED.":2010mI14:CL:"ACCOUNT TITLE: ";:BMI,(22,LI$,1),TI$ CS:TI$"END"100020:"ARE THE ABOVE ENTRIES BOTH CORRECT? ";:36000:Z$"N"2000A211000,12000,130009:EP4:GENERAL LEDGER FILE CT100Ģ10:"THERE ARE NOW 100 ACCOUNTS."::"NO MORE CAN BE ADDED.":60000:100010:CL:"NEW ACCOUNT NUMBER: ";:ZB1:ZT999:59000:SS$"END"1000 AN$SS$:(AN$)100Ģ14:"ACCT# SHO$(A2)))2:HT:SL$(A2)I.A24ĺ" * TYPE 'END' TO QUIT THIS OPTION. *"3A22ĺ:"* PRESS 'RETURN' TO KEEP AN OLD VALUE. *"834,6:Z00:A22Z01BA1100,1110,1120,1130LA22000,3000,4000VA25000,6000,7000`A28000,9000,10000j990 TI$(I),BL$:BL(I)(BL$)+I:D$>::9:HL$(0)bHT(42(HL$(A)))2:HT:HL$(A)t(17):SL$(0)9:J1M:J;". ";SL$(J)::20:CL:"WHAT IS YOUR CHOICE? ";:BMI,(1,"-14",1),A2$:A2(A2$)A24900$3:CS:HT(42(SLRNH,"MENU"=2:CS:10:"LOADING FILE FROM DISK: ";F$(A)Z12:"RECORD NUMBER = ";xD$"OPEN"F$(A)",L"F(A)D2$D$"READ"F$(A)",R0":CT:D$CT.51000I1CT:12:17:ID$"READ"F$(A)",R"IA4ĄIT$(I):990AN$(I):A1īRECORD"$ >SL$(3)"DELETE A RECORD"Q HSL$(4)"EDIT A DIFFERENT FILE (OR QUIT)"r ::(9):HL$(0):19:"MENU" 8:I1N:I;". ";HL$(I):: 20:CL:"WHAT IS YOUR CHOICE? ";:BMI,(1,"-15",1),A$ A((A$)):A1AN920 D$;"CLOSE":ANLE MAINTENANCE PROGRAM"8 HL$(1)"GENERAL LEDGER FILE"Q HL$(2)"VENDOR FILE"l HL$(3)"CUSTOMER FILE" HL$(4)"INVENTORY FILE" HL$(5)"END THE PROGRAM" M4:SL$(M):SL$(0)"SUBMENU" *SL$(1)"ADD A RECORD" 4SL$(2)"CHANGE AN EXISTING 11,412,413 ND( I1ND:AE$(I):` :12:"ENTER RUN DATE:":VP12:HP18:62000:DA$D3$t XL4:F$(L),F(L) bF$(1)"ACCOUNTS":F(1)40 lF$(2)"VENDORS":F(2)80 vF$(3)"CUSTOMERS":F(3)80 F$(4)"STOCK":F(4)76 N5:HL$(N):HL$(0)"FISE VOUCHERS" 12:17:CL4 "10:26:"INVOICES"R ,D$"OPEN INVOICES,L31"D2$p 6D$"READ INVOICES,R0":N3 ;N3.5370 @I1N3 J12:17:I TD$"READ INVOICES,R"I ^I$(I) hI rD$"CLOSE INVOICES"  9,111,112,113,211,311,312,4FROM DISK:"& 12:"RECORD NUMBER ="I LI$"_ !-#+-.-":D$(13)(4)a 10:26:"VOUCHERS" D$"OPEN VOUCHERS,L57"D2$ D$" READ VOUCHERS,R0":N2 N2.5270 I1N2 12:17:I D$"READ VOUCHERS,R"I V$(I) I D$"CLO4 PROGRAM:FILE MAINTENANCEBPROGRAMMER:R. PHILIP BOUCHARD\COPYRIGHT:MECC, 1981z(LAST UPDATE:84/07/05 JJK261000d35000:33000nAN$(100),TI$(100),BL(100),IT$(100),V$(100),I$(100)x::CL868:CS958 10:"LOADING FILE                   SS$):6:CS:"* PRESS 'RETURN' TO KEEP AN OLD VALUE. *"RD$"READ RECEIPTS,R"RRwCN$,IN$,DT$,GA$,DI$,DE$,AN$:D$GA(GA$):DI(DI$):DE(DE$)Z01:EP2:CN$""51709:CL:"CUSTOMER NUMBER:";8);"(OLD=";CN$;")";:18Z01:ZB1000:ZTHANGE RECEIPTS UCT0Ģ10:"THERE ARE NO CASH RECEIPTS TO CHANGE.":60000:90010:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."EP212:CL:"WHICH RECORD DO YOU WANT TO CHANGE? ";:Z00:ZB1:ZTCT:59000:Z01:SS$"END"9007RR(:CL:"ACCOUNT NUMBER NOT ON FILE...":4675l\21:1:CL:"ARE ALL ENTRIES CORRECT? ";:36000:Z$"N"4770xpCTCT1zD$"WRITE RECEIPTS,R"CTCN$:IN$:DT$:GA:DI:DE:AN$D$"WRITE RECEIPTS,R0"CT:D$A230004000:CFP1:59000:FP0:SS$"END"900l9DE(SS$):DEGADIĢ18:"SHOULD NOT EXCEED GROSS MINUS DISCOUNT.":4650>A2AN$"":4700C18:CL:"ACCOUNT NUMBER: ";:ZB100:ZT999:EP3:Z00:59000:SS$"END"900MAN$SS$:I1N1:AN$AN$(I)4700+R:21100:DI$(DI.001):DI$(DI$,(DI$)1)Q14:18:"$";DI$;" (";PC;"%)":4645s16:DC$DI$:50000:E014600 DI(DI$):GADIĢ16:"DISCOUNT SHOULD BE LESS THAN GROSS.":4600%15:CL*16:CL:"DEDUCTION AMOUNT $";:CB7:CA2:ZB0:ZT1E8:T:":"(YOU MAY ENTER DOLLARS OR PERCENT)"O14:18:BMI,(7,"END$-09%",2),DI$bDI$"END"900z(DI$,1)"%"4630DC$(DI$,(DI$)1):16:50000:E014600 PCDC:PC100PC.5Ģ16:CL:"INVALID PERCENTAGE AMOUNT.":4600&DI(PCGA.5)59000rSS$"END"900GDM$("0"SS$,2):DT$(DA$,3)DM$(DA$,3)12:CL:"GROSS AMOUNT: $";:ZB.01:ZT1E8:CB7:CA2:FP1:59000:FP0:SS$"END"900GA(SS$)A2GAAM(I)ĺ"INVOICE AMOUNT WAS $";AM(I):4500)14:CL:"DISCOUNT AMOUNSS$:I1N2, CN$CN$(I)IN$IN$(I)4200X I::"THERE IS NO OPEN ITEM WITH THAT" :"CUSTOMER/INVOICE COMBINATION." 60000:3000:CASH SALE OR CASH ON ACCOUNTCN$"":IN$"":ZP0:EP2h10:CL:"DAY OF THE MONTH: ";:ZB1:ZT31:ER: ";: Z00:EP2:ZB1000:ZT9999:59000:SS$"END"900_ CN$SS$:I1N2:CN$(I)CN$3040 I:8:"NO OPEN ITEM WITH THAT CUSTOMER NUMBER.":3010 8:CL:"INVOICE NUMBER: ";:ZB1:ZT999:59000:SS$"END"900 SS$(((SS$)1000),3)  IN$YOU LIKE? ";:BMI,(1,"-17",1),A$, A(A$)> :10:HL$(0)b HT(42(HL$(A)))2:HT:HL$(A) A6A3ĺ" * TYPE 'END' TO QUIT THIS OPTION. *" 34,5 A4000,3000,9000,5000,6000,7000,19000 :CASH ON ACCOUNT 6:CL:"CUSTOMER NUMBE CASH RECEIPTS"2 HL$(5)"DELETE CASH RECEIPTS"R HL$(6)"POST CASH RECEIPTS"o HL$(7)"END THE PROGRAM" ::10:HL$(0) 19:"MENU":D$;"CLOSE" D$"OPEN RECEIPTS,L57"D2$ 7:I1N:I;". ";HL$(I):: 22:CL:"WHAT OPTION WOULD  ^CN$(I),IN$(I),DT$(I),AM(I)+ hI:EE03 rD$c :12:"ENTER RUN DATE:":VP12:HP18:62000o DA$D3$ N7:HL$(N):HL$(0)"CASH RECEIPTS PROGRAM" HL$(1)"CASH SALES" HL$(2)"CASH ON ACCOUNT" HL$(3)"PRINT A PROOF" HL$(4)"CHANGI D$"READ ACCOUNTS,R"I@ AN$(I),TI$(I),BL$:BL(I)(BL$)L I:EE0\ 12:17:CLz "10:26:F$"INVOICES":F$ ,D$"OPEN INVOICES,L31"D2$ 6D$"READ INVOICES,R0":N2 ;N2.5370 @EE1:I1N2 J12:17:I TD$"READ INVOICES,R"IS958:10:"LOADING FILE FROM DISK:"@ 12:"RECORD NUMBER ="L D$(4)j D$"OPEN RECEIPTS,L57"D2$ D$"READ RECEIPTS,R0":CT 10:26:F$"ACCOUNTS":F$ D$"OPEN ACCOUNTS,L40"D2$ D$"READ ACCOUNTS,R0":N1 EE1:I1N1 12:17:0 BUSINESS VOLUME 34PROGRAM: CASH RECEIPTSQPROGRAMMER: P. BOUCHARDo(COPYRIGHT (C) MECC, 19812LAST UPDATE: 84/07/05 JJK<61000d35000:33000nAN$(100),CN$(100),IN$(100),TI$(100),BL(100),AM(100),DT$(100)% ::CL868:C                 1:ZL((ZT)):ILZL:IL3IL3QHP:VP:BMI,(IL,"_-09END",Z0),SS$:SS$""ıbSS$"END"ı(SS$)ZB(SS$)ZTıVPEP:868:"INVALID LENGTH.":59020`G71400:j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";t16368,L110:51090(~V$(B.001):L1(V$)1DV$(V$,L1):L1751110jV$(V$,L16)","(V$,6):L1L11ǭL111V$(V$,1)","(V$,10):L112V$PN$V$:L1L1(PN$)ǺZLL1);V$;:x RANGED INPUT WITH 'END' CHECKINGVP(37)1:HP(36),V"(Z6)<8Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACESY=PN$"":B0BB:PN$"-"yBǭB.01V$".00":L13:51110LǭB9999999.99V$"*"(B)"*":L1(V$):51110VǭB999999.99951070`V$(B):(V$)7V$V$".00"jǭ(V$)9V$V$"0" t BLAH.CHECK":D$"DELETE BLAH.CHECK")A GET DRIVE STRINGScˆ PROGRAM IN D1$, DATA IN D2$̈ZB953:Z1(ZB):Z2(ZB1):Z3(ZB2)ֈD1$",S"(Z1)",D"(Z2)",V"(Z3)ZB956:Z4(ZB):Z5(ZB1):Z6(ZB2) D2$",S"(Z4)",D"(Z5)"600001100.8J ** END THE PROGRAM **PBJ:12:"ONE MOMENT PLEASE..."`LJD$;"CLOSE"pVJRNH,"MENU"耲 DISK STATUS CHECKD$(4):12:"ONE MOMENT PLEASE...":ZE0#D$"OPEN BLAH.CHECK"D2$:D$"WRITE BLAH.CHECK":"CHECK":D$"CLOSE)NHNHDC("D$;"WRITE STOCK,R";IN,IT$:DE$:RP:NH:NO:UC:US:D$W6900k ** INQUIRE **:"NUMBER ON HAND: ";NH:"NUMBER ON ORDER: ";NO:"REORDER POINT: ";RP:"UNIT COST: $";UC:"UNIT SELLING PRICE: $";USQUANTITY SOLD? ";:ZB1:ZTNH:59000:SS$"END"900CNHNH(SS$)]D$;"WRITE STOCK,R";IIT$:DE$:RP:NH:NO:UC:US:D$1100D$;"READ STOCK,R";IIT$,DE$,RP$,NH$,NO$,UC$,US$:D$RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$ER: ";NOO 14:868:"QUANTITY RECEIVED? ";:ZB1:ZTNO:59000:SS$"END"900m NONO(SS$):NHNH(SS$) D$;"WRITE STOCK,R";I IT$:DE$:RP:NH:NO:UC:US:D$ 1100 ** SELL INVENTORY **:"NUMBER ON HAND: ";NH214:868:"ON ORDER: ";NO*:"REORDER POINT: ";RPq18:868:"QUANTITY ORDERED? ";:ZB1:ZT1E8:59000:SS$"END"900NONO(SS$) D$;"WRITE STOCK,R";I*IT$:DE$:RP:NH:NO:UC:US:D$41100 ** RECEIVE INVENTORY ** :"NUMBER ON ORD tD$;"READ STOCK,R";I> ~IT$,DE$,RP$,NH$,NO$,UC$,US$:D$t RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$) 10:"DESCRIPTION: ";DE$ A2000,3000,4000,5000,19000  ** PURCHASE INVENTORY ** :"NUMBER ON HAND: ";NH:"NUMBER A5ĺ" * TYPE 'END' TO QUIT THIS OPTION. *"9 34,5H AN19000m L: - CODE COMMON TO ALL 4 PARTS Q8:868:"ITEM NUMBER: ";:ZB1:ZT9999:EP2:59000 VSS$"END"900 `I1N2:SS$IT$(I)1140 jI::"ITEM NUMBER NOT ON FILE.":1105D THE PROGRAM"" ::12:HL$(0)> 19:"MENU":D$;"CLOSE"Z D$;"OPEN STOCK,L76"D2$| 8:I1N:I;". ";HL$(I):: 20:868:"WHAT IS YOUR CHOICE? ";:BMI,(1,"-15",1),A$ A((A$)) :12:HL$(0) HT(42(HL$(A)))2:HT:HL$(A)/ IT$(I) I D$J :12:"ENTER RUN DATE:":VP12:HP18:62000V DA$D3$ N5:HL$(N):HL$(0)"INVENTORY PROGRAM" HL$(1)"PURCHASE INVENTORY" HL$(2)"RECEIVE INVENTORY" HL$(3)"SELL INVENTORY" HL$(4)"INQUIRE" HL$(5)"EN"NOMON C,I,O"" 10:26:"STOCK"> D$;"OPEN STOCK,L76"D2$Z D$;"READ STOCK,R0":N2 N2.5ė:10:"THERE ARE NO INVENTORY CATEGORIES."::"USE 'FILE MAINTENANCE' TO CREATE THEM.":60000:19000 I1N2 12:17:I D$;"READ STOCK,R";I PROGRAM:INVENTORY;PROGRAMMER:R. PHILIP BOUCHARDUCOPYRIGHT:MECC, 1981s(LAST UPDATE:83/09/16 SPM261000d35000:33000nIT$(100)x:10:"LOADING FILE FROM DISK:"12:"RECORD NUMBER ="D$(13)(4) D$;         :I1N1 AN$(I)"113"6070DD$;"OPEN MISCELLANEOUS,L25"D2$oD$;"WRITE MISCELLANEOUS,R1":(BL(I))D$;"CLOSE MISCELLANEOUS"(AN$(I),1)"4"AN$(I)"312"6120(BL(I)).016120TTTTBL(I):BLBL(I)(1)CTCT1:D$;"WRIT51000:.(DTTL).005ĺ"IN BALANCE":5180E"OUT OF BALANCE "a("THE DIFFERENCE IS $";y2B(DTTL):51000:<D$(13)(4)F60000P900p ** AUTOMATIC CLOSING ENTRIES ** z12::"WORKING!";::" DO NOT INTERRUPT."TT0AC$,BL$,DT$:D$:BL(BL$)-I10ĺ" ";KI;" ";AC$;" ";DT$;:ZL12pB(BL):BL.01ĺ12);:TLTLBBL.01DTDTB51000::C715C70:60000:I:EE0Q$"-----------":16);Q$;" ";Q$ 7);"TOTAL ";:BDT:51000:BTL:):51000:POFF900G ** DISPLAY A PROOF ON THE SCREEN **XD$(4):C70}::8);"JOURNAL PROOF";3);DA$" ACT DATE";11);"DEBIT";6);"CREDIT":DT0:TL0I139:"-";::EE1:I1CT:C7C71D$;"READ JOURNAL,R";I13);:TLTLB#6BL.01DTDTB8@51000::I:EE0^JQ$"------------":22);Q$;" ";Q$T13);"TOTAL ";:BDT:51000:BTL:51000::^(DTTL).005ĺ"IN BALANCE":4230h"OUT OF BALANCE "r:"THE DIFFERENCE IS ......$"; |B(DTTL&17);"JOURNAL PROOF":19);DA$:c"RECORD ACCT# DATE";12);"DEBIT";7);"CREDIT":DT0:TL0yI147:"=";::EE1:I1CTD$;"READ JOURNAL,R";IAC$,BL$,DT$:D$:BL(BL$)"I10);I;5);AC$;3);DT$;:ZL13,B(BL):BL.0100Y:8:"DO YOU WANT THE PROOF TO GO TO THE"::" 1) SCREEN OR"::" 2) PRINTER"14:CL:"WHAT IS YOUR CHOICE? ";:BMI,(1,"12",1),DD$F$"JOURNAL":DD$"1"5000:12:"POSITION THE FORMS ON THE PRINTER...":6000063000::D$(4)RE ALL ENTRIES CORRECT? ";:36000:Z$"N"3000:CTCT1WD$;"WRITE JOURNAL,R";CTiAC$:BL:DT$D$;"WRITE JOURNAL,R0" CT:D$3000 ** PRINT A JOURNAL PROOF ** CT0Ģ12:"THERE ARE NO JOURNAL ENTRIES TO PRINT.":60000:9ZB1:ZT31:EP4:59000:SS$"END"900UDM$("0"SS$,2):DT$(DA$,3)DM$(DA$,3)16:CL:"AMOUNT $";:ZB1E8:ZT1E8:CB7:CA2:FP1:59000:FP0:BL(SS$):SS$"END"900(BL).01Ģ20:"AMOUNT SHOULD NOT BE ZERO, PLEASE.":3770.20:CL:"A9000,19000- : ** JOURNAL ENTRIES ** ~ ~8:CL:"ACCOUNT NUMBER: ";:Z00:ZB100:ZT999:59000:AC$SS$:AC$"END"900 I1N1:AN$(I)AC$3740 I:12:CL:"THERE IS NO ACCOUNT WITH THAT NUMBER.":3710 12:CL:"DAY OF THE MONTH: ";&"D2$& 7:I1N:I;". ";HL$(I)::h 22:CL:"WHAT IS YOUR CHOICE? ";:BMI,(1,"-17",1),A$:A(A$)z :10:HL$(0) HT(42(HL$(A)))2:HT:HL$(A) A5A2ĺ" * TYPE 'END' TO QUIT THIS OPTION. *" 34,5 A3000,4000,7000,8000,6000,HL$(3)"CHANGE A PREVIOUS JOURNAL ENTRY"V HL$(4)"DELETE A PREVIOUS JOURNAL ENTRY"} HL$(5)"AUTOMATIC CLOSING ENTRIES" HL$(6)"POST TO LEDGER" HL$(7)"END THE PROGRAM" ::10:HL$(0) 19:"MENU":D$;"CLOSE" D$;"OPEN JOURNAL,L27OUNTS,R";I. AN$(I),TI$(I),BL$:BL(I)(BL$)= 12:17:II I:EE0Q D$ :12:"ENTER RUN DATE:":VP12:HP18:62000 DA$D3$ N7:HL$(N):HL$(0)"JOURNAL ENTRY PROGRAM" HL$(1)"JOURNAL ENTRIES" HL$(2)"PRINT A JOURNAL PROOF") DISK:":12:"RECORD NUMBER ="0 D$(13)(4)E D$;"NOMONC,I,O"c D$;"OPEN JOURNAL,L27"D2$ D$;"READ JOURNAL,R0":CT 10:26:F$"ACCOUNTS":F$ D$;"OPEN ACCOUNTS,L40"D2$ D$;"READ ACCOUNTS,R0":N1 EE1:I1N1 D$;"READ ACC' BUSINESS VOLUME 34PROGRAM: JOURNAL ENTRYQPROGRAMMER: P. BOUCHARDo(COPYRIGHT (C) MECC, 19812LAST UPDATE: 84/04/15 RPB<61000d35000:33000nAN$(100),TI$(100),BL(100) EP4:::CL868:CS958:10:"LOADING FILE FROM                   ----"&|"TOTAL";21);:BTT:51000:?OK$"1"İ60000:900NI16::fD$(13)(4):POFFo900: ** CHANGE AN A.R. OPEN ITEM **CT0Ģ10:"THERE ARE NO OPEN ITEMS TO CHANGE.":60000:900 6:"THERE ARE ";CT;" RECORDS, NUMBER1:I1CT#6D$;"READ SALES,R";IF@CN$,IN$,DT$,AM$:D$:AM(AM$)oJI10);I;5);CN$;" ";IN$;" ";DT$;TTTTTAM:BAM:51000:^W7W71:W717OK$"2"4210hW70:60000:"RECORD CUST INV DATE";11);"AMOUNT":rI:EE0:27);"--------:4100?:12:"POSITION THE PAPER ON THE PRINTER...":60000J63000YI16::11);"SALES ENTRY PROOF";:W70ĺ" ";DA$:4120:15);DA$:"RECORD CUST INV DATE";11);"AMOUNT""I139:"=";:::F$"SALES" ,ZL13:TT0:EE:"THERE ARE NO ACCOUNTS RECEIVABLE"::"OPEN ITEMS TO REPORT.":60000:9009:"DO YOU WANT THE PROOF"::" 1) ON THE SCREEN":" 2) ON THE PRINTER"15:868:"WHAT IS YOUR CHOICE? ";:BMI,(1,"12",1),OK$D$(4)OK$"1"ĉ::W70P0:AM(SS$):SS$"END"900V 18:868:"ARE ALL ENTRIES CORRECT? ";:36000:OK$Z$h OK$"N"3000t CTCT1 D$;"WRITE SALES,R",CT CN$:IN$:DT$:AM D$;"WRITE SALES,R0" CT:D$ 3000 ** PRINT A PROOF ** K:CT0Ģ10ALES,R";I:C5$,I5$:D$2: 12:IN$I5$ĺW1$:30509D I^N 12:868:"DAY OF THE MONTH: ";X ZB1:ZT31:59000:SS$"END"900l DM$("0"SS$,2):DT$(DA$,3)DM$(DA$,3)v 15:868:"AMOUNT OF SALE $";:ZB0:ZT9999999.99:CB7:CA2:FP1:59000:FUMBER.":3010/ 9:868:"INVOICE NUMBER: ";U ZB1:ZT999:59000:SS$"END"900q SS$(((SS$)1000),3)} IN$SS$ W1$"THAT INVOICE NUMBER ALREADY EXISTS." I1N3:IN$IN$(I)Ģ12:W1$:3050 I:CT03150& I1CT0 D$;"READ STN3100Ģ10:"THERE ARE NOW 100 OPEN ITEMS."::"NO MORE CAN BE ENTERED.":60000:900z 6:868:"CUSTOMER NUMBER: "; Z00:ZB1000:ZT9999:EP3:59000:SS$"END"900 CN$SS$:I1N2:CN$(I)CN$3050  I:9:"THERE IS NO CUSTOMER WITH THAT NWHAT IS YOUR CHOICE? ";:BMI,(1,"-16",1),A$:A(A$)E:11:HL$(0)iHT(42(HL$(A)))2:HT:HL$(A)A5A2ĺ" * TYPE 'END' TO QUIT THIS OPTION. *"34,5A3000,4000,5000,6000,7000,19000 : ** ENTER NEW A.R. OPEN ITEMS ** W COPEN ITEM"5 HL$(4)"DELETE AN ACCTS REC OPEN ITEM"d HL$(5)"POST SALES TO ACCTS REC TRIAL BAL" HL$(6)"END THE PROGRAM" ::11:HL$(0) 19:"MENU":D$;"CLOSE" D$;"OPEN SALES,L31"D2$ 7:I1N:I;". ";HL$(I)::320:868:"VOICES,R";I C1$,IN$(I)' I:EE0/ D$_ :12:"ENTER RUN DATE:":VP12:HP18:62000k DA$D3$ N6:HL$(N):HL$(0)"SALES ENTRY PROGRAM" HL$(1)"ENTER NEW ACCTS REC OPEN ITEMS" HL$(2)"PRINT A PROOF" HL$(3)"CHANGE AN ACCTS REC I TD$;"READ CUSTOMERS,R";I+ ^CN$(I)7 hI:EE0Q rD$;"CLOSE CUSTOMERS"c |12:17:868 10:26:F$"INVOICES ":F$ D$;"OPEN INVOICES,L31"D2$ D$;"READ INVOICES,R0":N3 N3.5470 EE1:I1N3 12:17:I D$;"READ IN:EE0 12:17:8686 "10:26:F$"CUSTOMERS":F$V ,D$;"OPEN CUSTOMERS,L80"D2$v 6D$;"READ CUSTOMERS,R0":N2 ;N2.5ė:10:"THE CUSTOMER FILE IS EMPTY."::"USE 'FILE MAINTENANCE' TO ADD CUSTOMERS.":60000:19000 @EE1:I1N2 J12:17:RECORD NUMBER ="a D$(13)(4):EP3:D$"NOMONCIO":D$"OPENSALES,L31"D2$:D$"READSALES,R0":CT 10:26:F$"ACCOUNTS":F$:D$"OPENACCOUNTS,L40"D2$:D$"READACCOUNTS,R0":N1 EE1:I1N1 12:17:I D$;"READ ACCOUNTS,R";I AN$(I) I& BUSINESS VOLUME 32PROGRAM: SALES ENTRYOPROGRAMMER: P. BOUCHARDm(COPYRIGHT (C) MECC, 19812LAST UPDATE: 84/04/14 RPB<61000d35000:33000nCN$(100),AN$(100),IN$(100)x:10:"LOADING FILE FROM DISK:" 12:"                      DI:DE:AC$$. D$"WRITETEMP-VO,R0 08 CT:D$:B 2000K PRINT PROOF CT0Ģ10:"THERE ARE NO VOUCHER ENTRIES TO PRINT.":60000:900 :12:"POSITION PAPER ON PRINTER...":60000 63000:T10:T20:T30:D$(4) IP16::IP :33)ZB100:ZT999:59000:SS$"END"900/AC$SS$LI1N1:AN$(I)AC$2300I:20:CL:"ACCOUNT NUMBER NOT ON FILE.":225020:CL:"ARE ALL ENTRIES CORRECT? ";:36000 Z$"N"2000 CTCT1 D$"WRITETEMP-VO,R"CT $ VN$:VO$:DT$:G:(DI$,1)"$"DI$(DI$,(DI$)1)D16:DC$DI$:50000:E012130DIDC:GDIĺ"DISCOUNT SHOULD BE LESS THAN GROSS.":213015:CL16:CL:"DEDUCTION: $";:ZB0:ZTGDI:FP1:59000:FP0:SS$"END"900#DE(SS$):18:"ACCOUNT NUMBER: ";:,DI$:DI$"END"900+f(DI$,1)"%"2190Yk16:DC$(DI$,(DI$)1):50000:E012130pPCDC:PC100PC.5Ģ16:"INVALID PERCENTAGE AMOUNT":2130zDI(PCG.5)100:DI$(DI.001):DI$(DI$,(DI$)1)14:11:"$";DI$;" (";PC;"%)":2210"0:SS$"END"900?*DM$("0"SS$,2):DT$(DA$,3)DM$(DA$,3)412:CL:"GROSS: $";:ZL.01:ZT1E8:CB7:CA2:FP1:59000:FP0:SS$"END"900>G(SS$)R14:CL:"DISCOUNT: ":"(YOU MAY ENTER DOLLARS OR PERCENT.)"\14:11:BMI,(7,"$-09%END",2)ADTEMP-VO,R"I:V1$,V2$,D3$:D$1VO$V2$2068^10:VN$V1$DT$D3$:"DATE: ";DT$:2100"THAT VOUCHER NUMBER HAS ALREADY BEEN":"USED WITH A DIFFERENT VENDOR.":2040I:11:CL11:CL10:CL:"DAY OF THE MONTH: ";:ZB1:ZT31:5900:SS$"END"900/CS:VO$(((SS$)1000),3)MI1N3:VO$VO$(I)205610:VN$V1$(I)DT$DT$(I):"DATE: ";DT$:2100"THAT VOUCHER NUMBER HAS ALREADY BEEN":"USED WITH A DIFFERENT VENDOR.":2040I:CT02070 I1CT:10 D$"REO MORE CAN BE ADDED.":60000:900p6:CL:"VENDOR NUMBER: ";:ZB1000:ZT9999:EP2:Z00:59000:SS$"END"900VN$SS$:I1N2:VN$(I)VN$2040I:8:"THERE IS NO VENDOR WITH THAT NUMBER.":20108:CL:"VOUCHER NUMBER: ";:ZB1:ZT999:59000A$:A(A$):10:HL$(0)@HT(42(HL$(A)))2:HT:HL$(A)wA5A2ĺ" * TYPE 'END' TO QUIT THIS OPTION. *"34,5A2000,3000,4000,5000,6000,19000:NEW VOUCHERS!CTN3100Ģ10:"THERE ARE NOW 100 OUTSTANDING VOUCHERS."::"NELETE VOUCHERS > HL$(5)"POST TO OUTSTANDING VOUCHERS LIST [ HL$(6)"END THE PROGRAM o ::10:HL$(0) 19:"MENU":D$"CLOSE D$"OPENTEMP-VO,L57"D2$ 7:I1N:I;". ";HL$(I):: 20:CL:"WHAT IS YOUR CHOICE? ";:BMI,(1,"-16",1),DT$(I) 12:17:I! I:EE0) D$Y :12:"ENTER RUN DATE:":VP12:HP18:62000e DA$D3$ N6:HL$(N):HL$(0)"VOUCHER ENTRY PROGRAM HL$(1)"ADD NEW VOUCHERS HL$(2)"PRINT A VOUCHER PROOF HL$(3)"CHANGE VOUCHERS  HL$(4)"D$"READVENDORS,R"I TVN$(I), ^12:17:I8 hI:EE0N rD$"CLOSEVENDORS x 10:26:F$"VOUCHERS":F$:12:17:CL D$"OPENVOUCHERS,L57"D2$ D$"READVOUCHERS,R0":N3 N3.5470 EE1:I1N3 D$"READ VOUCHERS,R"I V1$(I),VO$(I),(I) 12:17:I I:EE0H "10:26:F$"VENDORS ":F$:12:17:CLd ,D$"OPENVENDORS,L80"D2$ 6D$"READVENDORS,R0":N2 ;N2.5ė:10:"THE VENDOR FILE IS EMPTY."::"USE 'FILE MAINTENANCE' TO ADD VENDORS.":60000:19000 @EE1:I1N2 JDADING FILE FROM DISK:"1 12:"RECORD NUMBER ="= D$(4)Y D$"OPENTEMP-VO,L57"D2$u D$"READTEMP-VO,R0":CT 10:26:F$"ACCOUNTS":F$ D$"OPENACCOUNTS,L40"D2$ D$"READACCOUNTS,R0":N1 EE1:I1N1 D$"READACCOUNTS,R"I AN$0 BUSINESS VOLUME 34PROGRAM: VOUCHER ENTRYQPROGRAMMER: P. BOUCHARDo(COPYRIGHT (C) MECC, 19812 LAST UPDATE: 84/10/08 NAM<61000d35000:33000nVN$(100),AN$(100),VO$(100),V1$(100),DT$(100) CL868:CS958:::10:"LO                     "/";77);"/":"/ PAY TO THE ORDER OF:";8);:ZL12a NA$;28(NA$));"$";:BT:51000:7);"/" "/";29);AD$;48(AD$));"/" "/";29);CI$;" ";ST$;" ";ZI$;46(CI$ST$ZI$));"/" "/";77);"/":"/ ";MI$(5);76(MI$(5)));"/"& "/ ";MI$(6)1000:BDI(I):51000:BDE(I):51000:BT:51000:" /"p "/";77);"/":"/";:K177:"=";::"/":"/";77);"/" "/ ";MI$(2);61(MI$(2)));"CHECK NO. ";CHC1;5((CH)));"/" "/ ";MI$(3);76(MI$(3)));"/" "/ ";MI$(4);76(MI$(4)));"/"3D "/";6);DA$(I);16);"REMITTANCE ADVICE";\N 14);"CHECK NO. ";CHC1;6((CHC1)));"/"nX "/";77);"/"b "/ VENDOR VOUCHER";9);"GROSS";6);"DISCOUNT";5);"DEDUCTION";4);"NET AMOUNT /"l "/ ";VN$(I);4);VO$(I);4);:ZL145v BG(I):50! D$;"WRITE VOUCHERS,R";IC1Y VN$(I):VO$(I):DT$(I):G(I):DI(I):DE(I):AN$(I)g D$:3320 :::D$;"READ VENDORS,R";P(I)& VN$,NA$,AD$,CI$,ST$,ZI$:D$0 TG(I)DI(I)DE(I):TTTTT5 OK$"N"3320: "/";:K177:"=";:K:"/"+"> :"LIKE THE CHECKS TO BE PRINTED ALSO? ";:36000:OK$Z$u :12:"POSITION THE PAPER IN THE PRINTER.":60000 :12:"NOW RELEASING THE CHECKS..."::: 34,16:D$(4):63000:C10:TT0:CHCH1 I1N3:P(I)0C1C11:3100 C103321:P(I)J:DA$(I)D3$p20007 : PRINT THE CHECKS D 2:868w 12:CT0ĺ"NO CHECKS TO PRINT.":60000:19000 10:"THE CHECKS ARE READY TO BE RELEASED." :"AFTER THEY ARE RELEASED, THE CHECK" :"REGISTER WILL BE PRINTED. WOULD YOU( VN$VN$(I)VO$VO$(I)P(I).52110/*I4"THERE IS NO VOUCHER WITH THAT":"VENDOR/VOUCHER COMBINATION.":60000:2000>"CHECK DATE: ":VP16:HP13:62000:H20:"ARE THE ABOVE ENTRIES CORRECT? ";:36000:OK$Z$ROK$"N"2000fCTCT000:ZT9999:EP4:59000:VN$SS$3VN$"END"3000OJ1N2:VN$V$(J)2050J:12:868:"THERE IS NO VENDOR WITH THAT NUMBER.":201012:868:"VOUCHER NUMBER: ";:ZB1:ZT999:59000:VO$(((SS$)1000),3) VO$"END"300016:I1N3CH1ĺ"ENTER A POSITIVE NUMBER, PLEASE.":640MCT0:TT0:I1100:P(I)0:o:11:"PRINT CHECKS PROGRAM"" * TYPE 'END' WHEN NO MORE ENTRIES. *"34,3: ACCEPT INPUT OF VENDOR/VOUCHER COMBINATIONS8:"VENDOR NUMBER: ";:Z00:ZB1MISCELLANEOUS"# X:CH(MI$(0))1J ]10:"BEGINNING CHECK NUMBER: ";CH b12:868:"DO YOU WANT TO CHANGE IT? ";:36000:OK$Z$ lOK$(OK$,1):OK$"N"700 vOK$"Y"610 {12:868 10:25:BMI,(5,"-09",1),CH$ :868-CH(CH$):19000 I1N3! 12:17:I= D$;"READ VOUCHERS,R";Ii VN$(I),VO$(I),DT$(I),G$,DI$,DE$,AN$(I) G(I)(G$):DI(I)(DI$):DE(I)(DE$) I D$;"OPEN MISCELLANEOUS,L25"D2$ I07:D$;"READ MISCELLANEOUS,R";I:MI$(I) I:D$;"CLOSE 0000:19000 @I1N2& J12:17:IA TD$;"READ VENDORS,R";IS ^V$(I),NA$(I)Z hIl |12:17:868 10:26:"VOUCHERS" D$;"OPEN VOUCHERS,L57"D2$ D$;"READ VOUCHERS,R0":N3 N3.5ė:10:"THERE ARE NO VOUCHERS TO RELEASE.":60000:READ ACCOUNTS,R";I A$(I)$ I= D$;"CLOSE ACCOUNTS"O 12:17:868g "10:26:"VENDORS " ,D$;"OPEN VENDORS,L80"D2$ 6D$;"READ VENDORS,R0":N2 ;N2.5ė:10:"THE VENDOR FILE IS EMPTY."::"USE 'FILE MAINTENANCE' TO ADD VENDORS.":6P(100),A$(100),DA$(100) x:B 10:"LOADING FILE FROM DISK:"] 12:"RECORD NUMBER ="o D$(13)(4) D$;"NOMON C,I,O" 10:26:"ACCOUNTS" D$;"OPEN ACCOUNTS,L40"D2$ D$;"READ ACCOUNTS,R0":N1 I1N1 12:17:I D$;" BUSINESS VOLUME 33PROGRAM: PRINT CHECKSPPROGRAMMER: P. BOUCHARDn(COPYRIGHT (C) MECC, 19812 LAST UPDATE: 84/10/08 NAM <61000d35000:33000 nVN$(100),VO$(100),DT$(100),G(100),DI(100),DE(100),AN$(100),V$(100),NA$(100),          SCRIPTION"30)"DEBIT"12)"CREDIT @10);:I175:"=";:::TTD0:TC0:ZL18`I1N1AN$AN$(I):TI$TI$(I):BLBL(I)(BL).016080BL0SP0:TDTDBLBL0SP18:BLBL:TCTCBL10)AN$8)TI$28(TI$)SP);BBL:5100BUC:51000:BC:510003BUS:51000:BS:51000:?I:EE0RD$"CLOSESTOCKiU$"-------------"{74)U$15)U$"TOTALS:";66);:ZL14:BTC:5100014);:BTS:51000: I110::900pTRIAL BALANCE!z:10)"ACCT#"6)"DE5085EE1:I1CT-D$"READ STOCK,R"INIT$,DE$,RP$,NH$,NO$,UC$,US$RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$)IT$" "DE$22(DE$))ZL10:ZBNH:54000:ZBNO:54000:ZBRP:54000CUCNH:SUSNH:TCTCC:TSTSSZL14:: 900STOCK STATUS:"ITEM DESCRIPTION"14)"ON HAND ON ORDER RE-ORDER PT UNIT COST TOTAL COST UNIT PRICE TOTAL VALUEI1115:"=";:::D$"OPEN STOCK,L76"D2$D$"READ STOCK,R0":CT:F$"STOCKTC0:TS0:CT.5,CI$,ST$,ZI$K CN$4)NA$29(NA$))AD$26(AD$))CI$20(CI$))ST$5)ZI$R Ib I110::k 900CHART OF ACCOUNTS:30)"NUMBER"7)"ACCOUNT TITLE30);:I135:"=";:::I1N130)AN$(I)10)TI$(I)II110:PLAYt N3.5ė:10:"THE CUSTOMER FILE IS EMPTY."::POFF:"USE 'FILE MAINTENANCE' TO ADD CUSTOMERS.":60000:900 :"NUMBER NAME"25)"ADDRESS"19)"CITY"16)"STATE ZIP I195:"=";::: I1N3 D$"READ CUSTOMERS,R"I  CN$,NA$,AD$:"NUMBER NAME"25)"ADDRESS"19)"CITY"16)"STATE ZIP"RI195:"=";:::^I1N2vD$"READVENDORS,R"I VN$,NA$,AD$,CI$,ST$,ZI$VN$4)NA$29(NA$))AD$26(AD$))CI$20(CI$))ST$5)ZI$ I*I110::4900 CUST DIS))2)MI$&(95(HL$(A)))2)HL$(A)BA9ĺ40)"AS OF "DA$:}A2000,3000,4000,5000,6000,7000,8000,9000,10000,19000VENDOR DISPLAYN2.5ė:10:"THE VENDOR FILE IS EMPTY."::POFF:"USE 'FILE MAINTENANCE' TO ADD VENDORS.":60000:900:(I3)I3ĺIS22:868:"WHAT IS YOUR CHOICE? ";:BMI,(2,"-09",1),A$oA((A$)):A1AN930:10:HL$(0)HT(42(HL$(A)))2:HT:HL$(A)34,3:A10105012:"POSITION FORMS IN PRINTER...":60000:63000(95(MI$ HL$(6)"ACCTS RECEIV TRIAL BALANCE H HL$(7)"OUTSTANDING VOUCHERS b HL$(8)"BALANCE SHEET HL$(9)"PROFIT/LOSS STATEMENT HL$(10)"END THE PROGRAM :D$:FEED:POFF:::10:HL$(0) 19:"MENU 6:I1N:1(I10):I". "HL$(I)12:"ENTER RUN DATE:":VP12:HP18:620006 DA$D3$:f N10:HL$(N):HL$(0)"PRINT REPORTS PROGRAM HL$(1)"VENDOR DISPLAY HL$(2)"CUSTOMER DISPLAY HL$(3)"CHART OF ACCOUNTS HL$(4)"INVENTORY STOCK STATUS HL$(5)"TRIAL BALANCE &D$"OPENCUSTOMERS,L80"D2$6 D$"READCUSTOMERS,R0":N3E N3.5470V EE1:I1N3e 12:17:I D$"READCUSTOMERS,R"I CN$(I) I:EE0 D$"OPENMISCELLANEOUS,L25"D2$ D$"READMISCELLANEOUS,R2":MI$ D$"CLOSEMISCELLANEOUS"( :12:17:8682 "10:26:868:F$"VENDORS":F$N ,D$"OPENVENDORS,L80"D2$j 6D$"READVENDORS,R0":N2y ;N2.5380 @EE1:I1N2 J12:17:I TD$"READVENDORS,R"I ^VN$(I) hI:EE0 |12:17:868 10:26:F$"CUSTOMERS":F$ E FROM DISK:& 12:"RECORD NUMBER =2 D$(4)P 10:26:F$"ACCOUNTS":F$m D$"OPENACCOUNTS,L40"D2$ D$"READACCOUNTS,R0":N1 EE1:I1N1 12:17:I D$"READACCOUNTS,R"I AN$(I),TI$(I),BL$:BL(I)(BL$) I:EE0:D$"CLOSE * PROGRAM:PRINT REPORTS0AUTHOR:UNKNOWNJCOPYRIGHT:MECC, 1983h(LAST UPDATE:84/07/10 JJKt261000d35000:33000i(13);(4);"BLOAD SORT32"D1$nVN$(100),CN$(100),AN$(100),TI$(100),BL(100),ST$(100)x: 10:"LOADING FIL               ҍӍՠӍǠҍŠˍŠˍŠˍ̠ō̰ԍŠˍˍ΍ΠҍŠōΠύ΍ҧӠōԠԠԍɍ̍ڠˠӍȠŠōӍ΍׮ѮӠîȠԍԠ̍΍ƠŠîȠӷϠӍԠȠōٍÍҧӠٍԠȠԍΠō̠ҠϮĠō΍΍ЍΠԍύ΍®ʮ٠ϮҠčӍ͠ōҠԍ΍֠ӍԠȠԍύ΍ӠٍҠŠԍ΍ϠӍōנˍٍӠčȠԍύ΍ٍ̠Ԡԍύ΍̠ˠԍҠٍԠȠԍ΍ԍˠˠӍԠĠԍٍ֍Ӡ΍ԠȠԍύ΍Ӡ΍Ԡōύ΍͠͠ōҠԍōǠōΠԍčԠΠԍנˍٍӠٍԠō΍ζΠōɍ̧ӠӍԠΠԍӍ΍٠נύŠˍ΍΍٠Ġ̍Ԡԍנ͍΍Π̍ϠŮ΍΍ɍӠӍ֍ΠٍύҠŠÍȠŠԍӍ΍ϠӍŠčӍ΍̠ĠԍĠōύ΍ŠϠӍԠōԠōàٍ٠ԍԍ΍ĠÍԠ΍ύ΍ϠԠÍȠŠύ΍ŠԍōΠύ΍ӠԍӠӍŠӠōҠŠŠэǠōàǠōŠӍҠؠƠЍà̠ōŠٍ֠͠ҠǍčӠōӠōŠŠō̍ǍӍӠԠ׍ӠԍӍóȍӠōŠٍŠӍĠōŠԍ͠ҮŠѮŠԍ͠ҠƠэ!! ! ! ! ! !!!!!!!!!` ֩PyQ AL ~͏`vu Vuv` ~L`H)hJJJ` LANCS AZ09!/:@[`{~ @SEDDFMIN ~j `4 ` , g 掚 , w) ) ߅ l ) L{C  ɛ MCC0LECɈ9ɘɍ욏7, 웏ƝD) ~D9͏ Ъ L׎  䎱 掲`  (L | {$0! 掛 ,L` ^ {$0LZN 却| r- V  V-ͳ `L֍̴^`N ݮ 輮߹<><ȥ?< <<= H <=}I<|<~}` ы ` ׋ L( 掲 ` ?> =<8?+ e<#8>>> g R>P>Q?=<`L #H h` &L`L@LRL폩Յ 8ɀ  L8e湥 HH L` <=