' +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*`):OK$"N"19000# OK$"Y"5050X :8:"TAKE THE PROGRAM DISKETTE OUT OF DRIVE 1" "AND REPLACE IT WITH THE BACK-UP" :"DISKETTE. LEAVE THE DATA FILE DISKETTE" :"IN DRIVE 2.":60000!:12::"INITIALIZING";::" - PLEASE DO NOT D2 ** COPY WORKFILES TO BACK-UP DISKETTE ** `8:"THIS PROGRAM WILL COPY ALL THE DATA":"FILES FROM A DATA FILE DISKETTE IN":"DRIVE 2 TO A BACK-UP DISKETTE IN":"DRIVE 1."20:"DO YOU WANT TO DO THIS? ";OK$ OK$(OK$,1$,1)"A"(SS$,1)"Z"Ģ18:"ONLY ALPHABETIC CHARACTERS, PLEASE.":453018:868:"ZIP CODE:":VP18:HP11:LP5:59000:ZI$SS$59500:E01455020:868:"IS ALL INFORMATION CORRECT? ";OK$OK$(OK$,1):OK$"N"4500OK$"Y"4570958:"NAME:":VP10:HP7:EP2:ZM25:59200:NA$SS$n12:868:"ADDRESS:":VP12:HP10:ZM25:59200:AD$SS$14:868:"CITY:":VP14:HP7:ZM16:59200:CI$SS$16:868:"STATE:":VP16:HP8:LP2:59000:ST$SS$F(SS$,1)"A"(SS$,1)"Z"(SSD$;WM$;"6":AD$=D$;WM$;"7":CI$" "ST$" "ZI$:D$~0:10:"WHAT IS THE VALUE"::"OF YOUR BEGINNING INVENTORY?":VP12:HP30:EP2:ZM10:59200:BI$SS$DBI(BI$):BI0(BI)BI$4400ND$;WM$;"1":BIXD$;"CLOSE":19000310:AME AND ADDRESS"E:"FOR YOUR BUSINESS AND FOR YOUR BANK.":60000p:6:11:"BUSINESS INFORMATION":4500D$;WM$;"2":NA$D$;WM$;"3":AD$D$;WM$;"4":CI$" "ST$" "ZI$:D$:6:13:"BANK INFORMATION":4500D$;WM$;"5":NA$";F$(1);",R0":CT!lD$;"CLOSE"NrI2NF:D$;"OPEN";F$(I);",L";F(I);",D2"m|D$;"WRITE";F$(I);",R0":0D$;"CLOSE":13:ID$;"OPEN";MI$;",L25,D2"D$;WM$;"0":"0":D$:10:"THE EMPTY FILES ARE READY.":"NOW YOU MUST GIVE A NEAD PERMACC,R";J'1C1$(J),C2$(J):13:6J:D$;"CLOSE"_@D$;"OPEN";F$(1);",L";F(1);",D2"pTCT0:J1N1|VI1NDXAE$(I)C1$(J)4188ZI:4200\CTCT1^D$;"WRITE";F$(1);",R";CT`C1$(J):C2$(J):0:D$h13:JjD$;"WRITE:"THE EMPTY FILES IN DRIVE 2.":60000b:12::"WORKING!";::" PLEASE DO NOT INTERRUPT."zD$;"INIT HELLO,D2"4118D$;"DELETE HELLO,D2"61000D$;"OPEN PERMACC,L";F(1);",D1""D$;"READ PERMACC,R0":N1,J1N1:D$;"ROUNTS FILE WILL HAVE DATA."K:"ANY PREVIOUSLY EXISTING INFORMATION ON"q:"THE DISKETTE WILL BE ERASED."20:"DO YOU WANT TO DO THIS? ";OK$OK$(OK$,1):OK$"N"900OK$"Y"4060:10:"PLACE THE DISKETTE THAT IS TO CONTAIN")"::"SERVICE, LOSS OF BUSINESS OR"d#:"ANTICIPATORY PROFITS OR CONSEQUENTIAL"::"DAMAGES RESULTING FROM THE USE OR"::"OPERATION OF THIS SOFTWARE."n#900::0u POKE PRINTER SPECS INTO MEMORY:uF$"PRINTER COMMANDS"DuD$"OPEN"F$:D$"READ"":"RESPONSIBILITY TO PURCHASER OR ANY OTHER":"PERSON OR ENTITY WITH RESPECT TO ANY"::"LIABILITY, LOSS, OR DAMAGE CAUSED OR"#Z#:"ALLEGED TO BE CAUSED DIRECTLY OR"::"INDIRECTLY BY THIS SOFTWARE, INCLUDING"::"BUT NOT LIMITED TO ANY INTERRUPTION OF"IF YOU HAVE ANY DIFFICULTIES USING":"MECC COURSE WARE WITH YOUR COMPUTER,"::<#"WRITE OR CALL:"::32,10::"MECC HELP LINE":"2520 BROADWAY DRIVE":"ST. PAUL, MN 55113":"(612) 638-0638"F#:900:P#"NOTICE: MECC SHALL HAVE NO LIABILITY ORA VARIETY OF REPORTS BASED ON","INFORMATION CURRENTLY IN THE DATA","FILES."f HOUSEKEEPING,HOUSEKP "RESTORES ORIGINAL DATA FILES, CREATES","EMPTY DATA FILES, AND MAKES BACK-UPS","OF DATA FILES."(#HELP LINE & DISCLAIMER SCREENSQ2#:32,2:6:W VOUCHERS AND CORRECTIONS","OF EARLIER ENTRIES, THEN COPIES THEM","TO THE VOUCHER FILE."s PRINT CHECKS,CHECKS "PRINTS THE ACCOUNTS PAYABLE CHECKS,","UPDATING THE VOUCHER FILE AND THE","GENERAL LEDGER."l PRINT REPORTS,REPORTSKv "PRINTS ORDS JOURNAL ENTRIES AND","CORRECTIONS OF PREVIOUS ENTRIES AND","UPDATES THE GENERAL LEDGER."v@ SALES ENTRY,SALENTJ "RECORDS NEW ACCOUNTS RECEIVABLE OPEN","ITEMS AND CORRECTIONS OF EARLIER","ITEMS."  VOUCHER ENTRY,VOUCENTY "RECORDS NE714:868:"CITY:":VP14:HP7:ZM20:59200:CI$SS$KCT$"END"100016:868:"STATE:":VP16:HP8:LP2:59000:ST$SS$:SS$"END"1000(SS$,1)"A"(SS$,1)"Z"(SS$,1)"A"(SS$,1)"Z"Ģ18:"ONLY ALPHABETIC CHARACTERS, PLEASE.":5620L15500CT05560_I1CT:AN$AN$(I)Ģ10:"THAT ";F$;" NUMBER IS ALREADY USED.":5500fI10:868:"NAME:":VP10:HP7:ZM22:59200:NA$SS$NA$"END"100012:868:"ADDRESS:":VP12:HP10:ZM20:59200:AD$SS$AD$"END"10000 *** VENDOR FILE ***1F$"VENDOR":HH20C:5500:1000|CT100Ģ10:"THERE ARE NOW 100 ";F$;"S."::"NO MORE CAN BE ADDED.":60000:10008:868:"NEW ";F$;" NUMBER:":VP8:LP4:EP2:HPHH59000:AN$SS$:AN$"END"ı59500:E0wC104230yKIC1K|D$;"WRITE ACCOUNTS,R";K:AN$(I):TI$(I):BL(I)wAN$(K)AN$(I):TI$(K)TI$(I):BL(K)BL(I)I:CTCTC1D$;"WRITE ACCOUNTS,R0":CT:D$W$"S":C11W$""C10ė:12:C1;" ACCOUNT";W$;" DELETED.":60000100AN$AE$(J)Ģ18:"ESSENTIAL ACCOUNT - CANNOT BE DELETED.":60000:4000LJ18:"DO YOU WANT TO DELETE THIS RECORD? ";OK$OK$(OK$,1):OK$"N"4000OK$"Y"4060AN$(I)"000"4000hC10:I1CTrAN$(I)"000"C1C11:4230 LP3:HP18:VP10:59000:SS$"END"4200LAN$SS$:I1CT:AN$AN$(I)4040I:14:868:"ACCOUNT NUMBER NOT FOUND.":4010(BL(I)).01Ģ14:"ACCOUNT HAS A BALANCE - CAN'T BE DELETED":401014:868:"ACCOUNT TITLE: ";TI$(I)EJ1ND:1. NO DISK DRIVE DOOR IS OPEN.":"2. NO DISK DRIVE IS EMPTY.":60000:*"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."*60000: THIS ERROR TO MECC."*61000*60000*LN900Ĭ*900 CSKETTES ARE NOT REVERSED")pER4ĺ"WRITE PROTECTED"::E9$:"1. ";E8$:"2. NO WRITE-PROTECT STICKER IS ON THE DATA FILE (OR BACK-UP) DISKETTE":60000:)zER5ER6ĺ"END OF DATA OR FILE NOT FOUND"::E9$:E8$:60000:F*ER8ĺ"I/O ERROR"::E9$:"RESS ";::"SPACE BAR";::" TO CONTINUE";N(t16368,0:16384,128:16368,0V(~:l(HERROR PROCESSING(RER(222):LN(218)(219)256(\ER255Ĺ216,0:(fD$;"PR#0":D$;"CLOSE"::10:"PROBLEM: ";)kE9$"PLEASE MAKE SURE THAT":E8$"THE DI(SS$)ZMĺ:VPEP:"NO MORE THAN ";ZM;" CHARACTERS, PLEASE.":59210O':r'l SCREEN INPUT FOR NON-DIGITS 'vE01:I01(SS$):CH$(SS$,I0,1)'CH$"0"CH$"9"ĢVPEP:868:"ONLY DIGITS, PLEASE.":':E00:'`G71400:*(j24:7:"PP:868&TA$8&^A$(21)A$","A$";"A$":"59220L&hA$(8)59280\&rZO059220&|ZOZO1:A$;::" ";::A$;" ";A$;:ZO0ZB$"":59220&ZB$(ZB$,ZO):59220&A$(13)ZOZO1:A$;:ZB$ZB$A$:59220&SS$ZB$:SS$""Z0059210G'CCEPT INPUT OF SPECIFIC LENGTH D%VP:HP:G71LP:"-";::" ";a%HP:"";SS$:SS$"END"ıt%SS$""Z01ı%(SS$)LPĢVPEP:868:"INVALID LENGTH.":59010%%@ ACCEPT INPUT OF LIMITED LENGTH AND STRIP COMMAS &JZB$"":ZO0:VP:HCOPYING HAS BEEN COMPLETED."H$,12:"TAKE THE BACK-UP DISKETTE OUT OF"q$6:"DRIVE 1 AND REPLACE IT WITH THE"$@:"PROGRAM DISKETTE.":60000$8J ** END THE PROGRAM **$BJ:12:"ONE MOMENT PLEASE..."$LJD$;"CLOSE"$VJD$;"RUN HELLO,D1"!%x A$;"CLOSE"#I'#F$MI$:12:20:F$C#D$;"OPEN";F$;",L25,D2"S#J112:13l#D$;"READ";F$;",R";Jx#MI$(J)#J:D$;"CLOSE"#D$;"OPEN";F$;",L25,D1"#J112:13#D$;"WRITE";F$;",R";J#MI$(J)#J:D$;"CLOSE"$":8:"THE AD";F$(I);",R";J5"<I3800,3820,3840,3860,3880,3900<"FJL"PD$;"CLOSE"q"ZD$;"OPEN";F$(I);",L";F(I);",D1""dD$;"WRITE";F$(I);",R0":CT"nCT05280"xJ1CT:13"D$;"WRITE";F$(I);",R";J"I3810,3830,3850,3870,3890,3910"J #DISTURB." !D$;"INIT HELLO,D1"+!5108E!D$;"DELETE HELLO,D1"Q!61000p!:12:"NOW COPYING FILE:"!I1NF:12:20:868:F$(I)! D$;"OPEN";F$(I);",L";F(I);",D2"!D$;"READ";F$(I);",R0":CT!CT05200!(J1CT:13"2D$;"RE868:"UNIT SELLING PRICE: $";DC$:DC$"END"1000S,+23:50000:USDC:E0111144,+23:"ARE ALL ENTRIES CORRECT? ";OK$:OK$(OK$,1),+OK$"Y"OK$"N"11150,+OK$"N"11000,+I1CT:IT$IT$(I)11205,+I:ICT1:11280-+:12:"ONE MOM868:"NUMBER ON HAND: ";ZI$:ZI$"END"1000L+f+16:53000:NHZI:E0111100+p+16:868:"NUMBER ON ORDER: ";ZI$:ZI$"END"1000+z+18:53000:NOZI:E0111120++18:868:"UNIT COST: $";DC$:DC$"END"1000++20:50000:UCDC:E01111402,+20:1CT:IT$IT$(I)Ģ10:"THAT INVENTORY NUMBER IS ALREADY USED.":11010L**+I*4+10:868:"DESCRIPTION:":VP10:HP14:ZM22:59200:DE$SS$*>+DE$"END"1000*H+12:868:"REORDER POINT: ";ZI$:ZI$"END"1000*R+14:53000:RPZI:E0111080++\+14:ɲ *** INVENTORY FILE ***|)*CT100Ģ10:"THERE ARE NOW 100 INVENTORY CATEGORIES."::"NO MORE CAN BE ADDED.":60000:1000)+8:868:"NEW INVENTORY NUMBER:":VP8:HP23:LP4:59000:IT$SS$:IT$"END"1000) +59500:E0111010)+CT011060E* +I" ";F$;W$;" DELETED.":60000"(d>(@ *** CUSTOMER FILE ***V(JF$"CUSTOMER":HH22h(T:5500:1000((# - CHANGE A CUSTOMER -(2#F$"CUSTOMER":HH18(<#:6500:1000(' - DELETE A CUSTOMER -('F$"CUSTOMER":HH18($':7500:1000)*:EP2:AN$(I)"000"C1C11:7740+' C107740E'"D$;"READ";F$;"S,R";Ib'$AN$,NA$,AD$,CI$,ST$,ZI$'(D$;"WRITE";F$;"S,R";IC1'2AN$:NA$:AD$:CI$:ST$:ZI$'<I:CTCTC1'FD$;"WRITE";F$;"S,R0":CT:D$'PW$"S":C11W$""(ZC10ė:12:C1;&:"CITY: ";CI$(&:"STATE: ";ST$@&:"ZIP CODE: ";ZI$s&21:"DO YOU WANT TO DELETE THIS RECORD? ";OK$&OK$(OK$,1):OK$"N"ė:7500&OK$"Y"7610&AN$(I)"000"&:7500&:12:"ONE MOMENT PLEASE..."&C10:I1CT:13'ND"7700%%jI1CT:AN$AN$(I)7550K%tI:F$;" NUMBER NOT FOUND.":7500%~J1N2:AN$V$(J)ĺ"OUTSTANDING VOUCHER FOR THAT ";F$;".":7510%J%D$;"READ";F$;"S,R";I:AN$,NA$,AD$,CI$,ST$,ZI$:D$%10:F$;" NAME: ";NA$%:"ADDRESS: ";AD$6670$@AN$(I)AN$2$J22:D$;"WRITE";F$;"S,R";IX$TAN$:NA$:AD$:CI$:ST$:ZI$:D$d$^:6500~$X - DELETE A VENDOR -$bF$"VENDOR":HH16$l:7500:1000$L8:868:F$;" NUMBER:":VP8:LP4:EP2:HPHH$V59000:AN$SS$%`10:868:SS$"E$SS$<#21:868:"(OLD ZIP CODE=";ZI$;")";4);"NEW ZIP:"e#HP34:VP21:LP5:59000:SS$"END"ı#SS$""Ģ21:34:ZI$:6670#59500:E016635# ZI$SS$#23:"ARE ALL CHANGES CORRECT? ";OK$:OK$(OK$,1)#OK$"N"ė:6500$"OK$"Y" "CI$SS$G"19:868:"(OLD STATE=";ST$;")";4);"NEW STATE NAME:"p"VP19:HP35:LP2:59000:SS$"END"ı"SS$""Ģ19:35:ST$:6635"(SS$,1)"A"(SS$,1)"Z"(SS$,1)"A"(SS$,1)"Z"Ģ21:"ONLY ALPHABETIC CHARACTERS, PLEASE.":6610#STRESS=";AD$;")":13:868:"NEW ADDRESS:"R!VP13:HP14:ZM20:59200:SS$"END"ıq!SS$""Ģ13:14:AD$:6590}!AD$SS$!17:"(OLD CITY=";CI$;")":16:868:"NEW CITY NAME:"!VP16:HP16:ZM20:59200:SS$"END"ı"SS$""Ģ16:16:CI$:6610"THERE IS NO ";F$;" WITH THAT NUMBER.":6500c D$;"READ";F$;"S,R";I:AN$,NA$,AD$,CI$,ST$,ZI$:D$ 11:"(OLD NAME=";NA$;")":10:868:"NEW NAME:" VP10:HP11:ZM22:59200:SS$"END"ı SS$""Ģ10:11:NA$:6570 NA$SS$(!14:"(OLD ADDAN$%D$;"WRITE";F$;"S,R0":CTCT11CT:D$=:5500Wp - CHANGE A VENDOR -mzF$"VENDOR":HH16:6500:1000d8:868:F$;" NUMBER:":VP8:LP4:EP3:HPHHn59000:AN$SS$:AN$"END"ıI1CT:AN$AN$(I)6545, I:10:868:E MOMENT PLEASE...""NJCTI1<XD$;"READ";F$;"S,R";JYbV5$,N5$,A5$,C5$,S5$,Z5$qlAN$(J1)AN$(J):13vD$;"WRITE";F$;"S,R";J1V5$:N5$:A5$:C5$:S5$:Z5$JD$;"WRITE";F$;"S,R";IAN$:NA$:AD$:CI$:ST$:ZI$AN$(I)18:868:"ZIP CODE:":VP18:HP11:LP5:EP3:59000:ZI$SS$:ZI$"END"1000b 59500:E01564021:"ARE ALL ENTRIES CORRECT? ";OK$:OK$(OK$,1)OK$"N"ė:5500&OK$"Y"5650:I1CT:AN$AN$(I)5705DI:ICT1:5780I:12:"ON:<@ ACCEPT INPUT OF LIMITED LENGTH AND STRIP COMMASX7h313000O73C10:I1CTp73IT$(I)"000"C1C11:1324073C101324073D$;"READ STOCK,R";I73IT$,DE$,RP,NH,NO,UC,US73D$;"WRITE STOCK,R";IC173IT$:DE$:RP:NH:NO:UC:US83I:CTCDELETED.":13010)63"DESCRIPTION: ";DE$E63:"REORDER POINT: ";RPb63:"NUMBER ON HAND: ";NH6"3:"NUMBER ON ORDER: ";NO6,3:"UNIT COST: $";UC613:"UNIT SELLING PRICE: $";US66323:"DO YOU WANT TO DELETE THIS RECORD? ";OK$7@3OK$(OK$,1)::SS$"END"13200/52I1CT:IT$IT$(I)13050\52I:"INVENTORY NUMBER NOT FOUND.":1301052D$;"READ STOCK,R";I:IT$,DE$,RP$,NH$,NO$,UC$,US$:D$52RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$)6210:NH0NO0ĺ"ITEM STILL IN STOCK; CAN'T BE )4H0OK$"Y"OK$"N"1235014R0OK$"N"12000@4\0IT$(I)IT$^4f022:D$;"WRITE STOCK,R";I4p0IT$:DE$:RP:NH:NO:UC:US:D$4z01200042:EP2: - DELETE AN INVENTORY ITEM428:"INVENTORY NUMBER:":VP8:HP19:LP4:59000:IT$SS$5210:86830UCDC>3 019:868:21:"(OLD UNIT SELLING PRICE $";US;")"}3020:868:"NEW UNIT SELLING PRICE: $";DC$:DC$"END"10003 0DC$""Ģ20:26:US:123503*023:50000:E0112300340USDC4>021:868:23:"ARE ALL CHANGES CORRECT? ";OK$:OK$(OK$,1 ORDER: ";ZI$:ZI$"END"1000<2/ZI$""Ģ16:22:NO:12250W2/18:53000:E0112200a2/NOZI2/17:868:19:"(OLD UNIT COST $";UC;")"2/18:868:"NEW UNIT COST: $";DC$:DC$"END"10002/DC$""Ģ18:17:UC:123002/20:50000:E0112250I21v/13:868:15:"(OLD NUMBER ON HAND=";NH;")"l1/14:868:"NEW NUMBER ON HAND: ";ZI$:ZI$"END"10001/ZI$""Ģ14:21:NH:122001/16:53000:E01121501/NHZI1/15:868:17:"(OLD NUMBER ON ORDER=";NO;")"2/16:868:"NEW NUMBER ONVP10:HP18:ZM22:59200:SS$"END"1000H00/SS$""Ģ10:18:DE$:12100T0:/DE$SS$0D/11:868:13:"(OLD REORDER POINT=";RP;")"0N/12:868:"NEW REORDER POINT: ";ZI$:ZI$"END"10000X/ZI$""Ģ12:20:RP:121500b/14:53000:E01121001l/RPZ$(I)12050H//I:10:868:"THERE IS NO ITEM WITH THAT NUMBER.":12010//D$;"READ STOCK,R";I:IT$,DE$,RP$,NH$,NO$,UC$,US$:D$//RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$)//11:"(OLD DESCRIPTION=";DE$;")":10:868:"NEW DESCRIPTION:"(0&/R";I&.,IT$:DE$:RP:NH:NO:UC:US5.$,IT$(I)IT$V..,D$;"WRITE STOCK,R0":CTCT1b.8,CT:D$m.B,11000..:EP3: - CHANGE AN INVENTORY ITEM ..8:868:"INVENTORY NUMBER:":VP8:HP19:LP4:59000:IT$SS$..IT$"END"1000 /.I1CT:IT$ITENT PLEASE..."-+JCTI16-+D$;"READ STOCK,R";JW-+I5$,D5$,R5$,H5$,O5$,C5$,S5$-+R5(R5$):H5(H5$):O5(O5$):C5(C5$):S5(S5$)-+IT$(J1)IT$(J):13-+D$;"WRITE STOCK,R";J1-+I5$:D5$:R5:H5:O5:C5:S5-,J.,D$;"WRITE STOCK,54004J23:958:"ARE ALL ENTRIES CORRECT? ";OK$SOOK$(OK$,1):OK$"N"5000fTOK$"Y"5450^22:D$;"WRITE RECEIPTS,R";RRhCN$:IN$:DT$:GA:DI:DE:AN$:D$r5000p: ** DELETE CASH RECEIPTS ** zCT0Ģ10:"THERE ARE NO CASH S DISCOUNT.":5350DEDC-AN$""5450b21:868:"ACCOUNT NUMBER:";8);"(OLD=";AN$;")""VP21:HP17:LP3:59000:SS$"END"900,SS$""Ģ21:17:AN$:54506I1N1:SS$AN$(I)AN$AN$(I):5450@I:23:"ACCOUNT NUMBER NOT ON FILE.":ISCOUNT SHOULD BE LESS THAN GROSS.":52503DIDCA18:868t19:868:"DEDUCTION: $";12);"(OLD=";DE;")";13:"";DE$:DE$"END"900DE$""Ģ19:13:DE:540021:DE$DE$:50000:E015350DCGADIĺ"SHOULD NOT EXCEED GROSS MINU015250GPCDC:PC100PC.5Ģ19:"INVALID PERCENTAGE AMOUNT":5250DI(PCGA.5)100:DI$(DI.001):DT$(DI$,(DI$)1)17:11:DI$;" (";PC;"%)":5345(DI$,1)"$"DI$(DI$,(DI$)1)19:DC$DI$:50000:E015250)GADCĺ"D";AM(I):5200}GADCm17:868:"DISCOUNT:";13);"(OLD=";DI;")":"(YOU MAY ENTER DOLLARS OR PERCENT.)"17:11:"";DI$:DI$"END"900DI$""Ģ17:11:"$";DI:DCDI:534018:868:(DI$,1)"%"533019:DC$(DI$,(DI$)1):50000:E8:868:DT$?P15:1:868:"GROSS: $";12);"(OLD=";GA;")";]Z9:"";GA$:GA$"END"900zdGA$""Ģ15:9:GA:5250n17:DC$GA$:50000:E015200xDC.01ĺ"GROSS SHOULD NOT BE ZERO, PLEASE.":5200 zCN$""DCAM(I)ĺ"INVOICE AMOUNT WAS $HP17:LP3:59000:SS$"END"900?SS$""Ģ11:17:IN$:5170U(59500:E015130r*I1N2:IN$IN$(I)5166,I:13:"NO SUCH OPEN ITEM.":5080.IN$SS$213:868:"DATE:";12);"(OLD=";DT$;")"<VP13:HP8:D1$DT$:62000:DT$D1$ F13:8);"(OLD=";CN$;")"=VP9:HP18:LP4:59000:SS$"END"900[SS$""Ģ9:18:CN$:5130I1N2:SS$CN$(I)CN$CN$(I):5130I:11:"NO OPEN ITEM WITH THAT CUSTOMER NUMBER.":5080 11:868:"INVOICE NUMBER:";8);"(OLD=";IN$;")" VP11:ND"900&RR(RR$):RR1RRCT5030_6:958:"* PRESS 'RETURN' TO KEEP AN OLD VALUE. *"|D$;"READ RECEIPTS,R";RRCN$,IN$,DT$,GA$,DI$,DE$,AN$:D$GA(GA$):DI(DI$):DE(DE$)Z01:EP2:CN$""51709:868:"CUSTOMER NUMBER:";G73ĺA7$;A7$;C7$;A7$;:G7G71FCBD1$(D1$,(D1$)1):G7G71:62020PCG7:D1$(D1$,2)"/"(D1$,3,2)"/"(D1$,2):62900?BXG7862020^B]A7$" "(G70G73)62060yBbA7$"0"A7$"9"62020BlA7$;:D1$D1$A7$:62900B$G7062020B)G71ĺA7$;C7$;A7$;:D1$"":G7G71:62020B.G77G74G78ĺA7$;C7$;A7$;C8G76"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."^A60000:A0C7$(95):D1$"":16368,0:HP:VP:C7$;C7$"/"C7$;C7$"/"C7$;C7$A5VP:HPA:G708:G72G75ĺ"/";:62900ADA7$:A7$(8)62500/BNA7$(13)G78.":60000:@zER6ĺ"FILE NOT FOUND"::"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:QA6,0:5?fD$;"PR#0":D$;"CLOSE"::10:"PROBLEM: ";?pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DISKETTE.":60000: @uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGEDPEP:868:"ONLY DIGITS, PLEASE.":1>:E00:D>`G71999::1>j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16368,0>t(16384)12860020>~16368,0>:>H ERROR PROCESSING>RER(222):LN(218)(219)256?\ER255Ĺ210/=A$(13)ZOZO1:A$;:ZB$ZB$A$:59220N=SS$ZB$:SS$""Z0059210=(SS$)ZMĺ:VPEP:"NO MORE THAN ";ZM;" CHARACTERS, PLEASE.":59210=:=l SCREEN INPUT FOR NON-DIGITS=vE01:I01(SS$):CH$(SS$,I0,1)$>CH$"0"CH$"9"ĢV99999.99V$"*"(B)"*":L1(V$):52000@/dȭB999999.99951400a/xV$(B):(V$)7V$V$".00"x/ȭ(V$)9V$V$"0"/L110:51800/V$(B.001)/,L1(V$)1/V$(V$,L1)/ɭL1752000/XV$(V$,L16)","(V$,6):L1L110ʭL111V$("0"CH$"9")ĺ"NO NON-NUMERIC CHARACTERS, PLEASE.":G.cĭCH$"."I1I0O.|ĂI0.ĭ(DC$)I12ĺ"ONLY TWO DECIMAL PLACES, PLEASE.":.E00:.8Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACES.jB(100B.499)100.ǭB.01V$".00":L13:52000(/ȭB99-VJD$;"RUN HELLO,D1":-Pò SCREEN OUT BAD INPUT VALUES]-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$:3);AN$@,#I:EE0:U$"------------":28);U$;" ";U$;" ";U$y,#"TOTALS:";19);:BTT:51000:BTI:51000:BTE:51000,#I16::,#D$(13)(4),#D$;"PR#0",#900,8J ** END THE PROGRAM **,BJ:12:"ONE MOMENT PLEASE..."-LJD$;"CLOSE"D RECEIPTS,R";I0+n#CN$,IN$,DT$,GA$,DI$,DE$,AN$R+o#GA(GA$):DI(DI$):DE(DE$)q+p#TTTTGA:TITIDI:TETEDE+r#AN$""AN$" "+t#CN$""CN$" ":IN$" "+x#I;".";4((I)));CN$;" ";IN$;" ";DT$; ,#BGA:51000:BDI:51000:BDE:51000TER.":60000&*7#34,16:63000:D$(4)R*<#28);"CASH RECEIPTS PROOF":33);DA$:*F#5);"CUST# INV# DATE";13);"GROSS";6);"DISCOUNT";5);"DEDUCTION ACCT#"*P#I176:"=";:::*Z#ZL14:TT0:TI0:TE0:F$"RECEIPTS"*_#EE1:I1CT+d#D$;"REA)pD$;"WRITE INVOICES,R";K>)zCN$(K):IN$(K):DT$(K):AM(K)E)Ia)D$;"WRITE INVOICES,R0"v)N2N2C1:N2:D$)900)(# ** PRINT A PROOF **)-#12:CT0ĺ"THERE ARE NO CASH RECEIPTS TO PRINT.":60000:900 *2#"POSITION THE PAPER IN THE PRIN)"412"7190(I&(BL(I)BL(I)TEC( D$;"WRITE ACCOUNTS,R";I^(*AN$(I):TI$(I):BL(I)z(4D$;"WRITE RECEIPTS,R0"(>CT0:CT:D$(HC10(RI1N2(\AM(I).01C1C11:7300(fKIC1:CN$(K)CN$(I):IN$(K)IN$(I):DT$(K)DT$(I):AM(K)AM(I)$(I):BL(I)*'I1N1:AN$(I)"112"71101'ID'BL(I)BL(I)TAa'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'AN$(I):TI$(I):BL(I) ( I1N1:AN$(I(J)GA#&D$;"WRITE ACCOUNTS,R";J>&AN$(J):TI$(J):BL(J)H&7058U&TATAGAa&J1N2&IN$IN$(J)AM(J)AM(J)GA:7058&J&I&I1N1:AN$(I)"111"7070&I&BL(I)BL(I)TGTITE&D$;"WRITE ACCOUNTS,R";I 'AN$(I):TIICES,L31,D2"$%lTG0:TI0:TE0:TA04%qI1CT:13P%vD$;"READ RECEIPTS,R";Iq%xCN$,IN$,DT$,GA$,DI$,DE$,AN$%yGA(GA$):DI(DI$):DE(DE$)%zD$%|TGTGGA:TITIDI:TETEDE%~AN$""7050%J1N1%AN$AN$(J)7044%J&BL(J)BL0:"PRINT A CASH RECEIPTS PROOF TO VERIFY"::"THE DELETIONS.":60000N$`900m$X ** POST CASH RECEIPTS **$]12:CT0ĺ"THERE ARE NO CASH RECEIPTS TO POST.":60000:900$b"NOW POSTING CASH RECEIPTS..." %gD$;"OPEN ACCOUNTS,L40,D2":D$;"OPEN INVOD$;"READ RECEIPTS,R";R1:CN$,IN$,DT$,GA$,DI$,DE$,AN$V#)GA(GA$):DI(DI$):DE(DE$)s#.CN$"000"C1C11:6210#8C10ĺD$;"WRITE RECEIPTS,R";R1C1:CN$:IN$:DT$:GA:DI:DE:AN$:D$#B:CTCTC1#LD$;"WRITE RECEIPTS,R0":CT:D$E$VC10ė:1$";DI":"DEDUCTION: $";DEE"AN$""ĺ:"ACCOUNT NUMBER: ";AN$"22:"DO YOU WANT TO DELETE THIS? ";OK$:OK$(OK$,1):OK$"N"6000"6:OK$"Y"6150"D$;"WRITE RECEIPTS,R";RR:"000":IN$:DT$:GA:DI:DE:AN$:D$:60004#$C10:R11CT:$#!GA(GA$):DI(DI$):DE(DE$)s!CN$"000"Ģ10:"RECORD #";RR;" ALREADY FLAGGED FOR DELETION.":60000:6000!9:CN$""6100!:"CUSTOMER NUMBER: ";CN$!:"INVOICE NUMBER: ";IN$!:"DATE: ";DT$!:"GROSS: $";GA":"DISCOUNT: RECEIPTS TO DELETE.":60000:900W 6:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"." 7:868:"WHICH RECORD DO YOU WANT TO DELETE? ";RR$:RR$"END"6180 RR(RR$):RR1RRCT6030 D$;"READ RECEIPTS,R";RR!CN$,IN$,DT$,GA$,DI$,DE$,AN$:D(AN$(I),1)"4"AN$(I)"312"61208(BL(I)).016120VTTTTBL(I):BLBL(I)(1){CTCT1:D$;"WRITE JOURNAL,R";CTAN$(I):BL:DA$:D$I:CTCT1D$;"WRITE JOURNAL,R";CT"311":TT:DA$D$;"WRITE JOURNAL,R0"CT:D$,7$"0"A7$"9"620201lA7$;:D1$D1$A7$:62900A$G7062020o)G71ĺA7$;C7$;A7$;:D1$"":G7G71:62020.G77G74G78ĺA7$;C7$;A7$;:LL18G76G73ĺA7$;A7$;C7$;A7$;:LL2BD1$(D1$,(D1$)LL):G7G7LL:62020G7:D1$"":16368,0:HP:VPD5C7$;C7$;"/";C7$;C7$;"/";C7$;C7$:VP:HPt:G708:G72G75ĺ"/";:D1$D1$"/":62900DA7$:A7$(8)62500NA7$(13)G7862900SA7$(13)G70Z01D1$D2$:XG7862020]A7$" "(G70G73)62060bA":60000:ER8ĺ"I/O ERROR"::"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$D1$:D 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 ACCIDENTLY BEEN REVERSED.::" TO CONTINUE";7t16368,0:16384,128:16368,0A~::WHERROR PROCESSINGzRER(222):LN(218)(219)256\ER255Ĺ216,0:fD$;"PR#0":D$;"CLOSE"::10:"PROBLEM: ";2pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECTE";F9$(9LOOP1NUM:CMD$(LOOP):LOOP.9200,633008| COMM CARD+8775:769,13218G8 DEFAULTS/SEARCH\8D$;"PR#";(952)b8y8D COMMANDS ON FILE8NF9$"PRINTER COMMANDS"8XD$;"OPEN";F9$;",D1"8bD$;"READ";F9$8lFTYPE$,NUM8vLOOP1NUM:CMD$(LOOP):LOOP9D$;"CLOSD1$A7$:629007$G7062020L7)G71ĺA7$;C7$;A7$;:D1$"":G7G71:62020s7.G77G74G78ĺA7$;C7$;A7$;:LL178G76G73ĺA7$;A7$;C7$;A7$;:LL27BD1$(D1$,(D1$)LL):G7G7LL:620207G7:7 DIVERT OUTPUT TO PRINTER 8"(950)63100,63$"/"C7$;C7$"/"C7$;C7$!65VP:HPQ6:G708:G72G75ĺ"/";:D1$D1$"/":62900j6DA7$:A7$(8)625006NA7$(13)G78629006SA7$(13)G70Z01D1$D2$:6XG78620206]A7$" "(G70G73)620606bA7$"0"A7$"9"620207lA7$;:D1$PTION."::"PLEASE ENTER THE 'SET PRINTER OPTIONS'":"PROGRAM AND CORRECT LINE ";LOOP;".":60000:190005"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."560000:60C7$(95):D2$D1$:D1$"":16368,0:HP:VP:C7$;C7IF 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:g5ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER O 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":"MAY BE DAMAGED.":60000:@4zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE "2RER(222):LN(218)(219)25672\ER255Ĺ216,0:g2fD$;"PR#0":D$;"CLOSE"::10:"PROBLEM: ";2pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DISKETTE.":60000:h3rER5EEĺ"END OF DATA"::"THERETS(1vE01:I01(SS$):CH$(SS$,I0,1)d1CH$"0"CH$"9"ĢVPEP:868:"ONLY DIGITS, PLEASE.":q1:E00:1`G71400:1j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";1t16368,0:16384,128:16368,01~::1H ERROR PROCESSINGV$,1)","(V$,10):L112+0 ˺14L1);V$;:Q0x ACCEPT INPUT OF SPECIFIC LENGTHt0VP:HP:G71LP:"-";::" ";0HP:"";SS$:SS$"END"ı0SS$""Z01ı0(SS$)LPĢVPEP:868:"INVALID LENGTH.":5901001lSCREEN INPUT FOR NON-DIGI".00"'ȭ(V$)9V$V$"0"-'L110:51800>'V$(B.001)M',L1(V$)1]'V$(V$,L1)m'ɭL1752000'XV$(V$,L16)","(V$,6):L1L11'ʭL111V$(V$,1)","(V$,10):L112' ˭SB0V$"-"V$'˺ZL(V$));V$;:(x ACCEPT INPUT OF SIMAL PLACES, PLEASE.":"&E00:P&8Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACESc&jSB(B):B(B){&B(100B.499)100&ǭB.01V$".00":L13:52000&ȭB9999999.99V$"*"(B)"*":L1(V$):52000&dȭB999999.9951400'xV$(B):(V$)7V$V$ THAN 10 MILLION, PLEASE.":S%í(DC).01ĺ"AMOUNT SHOULD NOT BE ZERO, PLEASE.":t%āI01(DC$):CH$(DC$,I0,1)%JĭCH$"."CH$"-"(CH$"0"CH$"9")ĺ"NO NON-NUMERIC CHARACTERS, PLEASE.":%cĭCH$"."I1I0%|ĂI0&ĭ(DC$)I12ĺ"ONLY TWO DECI16::&$#D$(13)(4):D$;"PR#0"/$#900K$8J ** END THE PROGRAM **m$BJ:12:"ONE MOMENT PLEASE..."|$LJD$"CLOSE"$VJD$;"RUN HELLO,D1"$Pò SCREEN OUT BAD INPUT VALUES$E01:I1(DC$):DC(DC$):868%í(DC)9999999.99ĺ"SHOULD BE LESSM:TDTDB'##AM0SP16:BAM:TCTCBX##AN$(J);6);TI$(J);22(TI$(J))SP);:51000w##16SP);:BBL(J):51000:~##I##CT0:D$;"WRITE JOURNAL,R0":CT:D$##U$"------------":35);U$;4);U$##"TOTALS";25);:BTD:51000:BTC:51000: $#T";10);"CREDIT";9);"BALANCE"4"D#I179:"=";::["F#I1CT:D$;"READ JOURNAL,R";I:13z"P#AN$,AM$,DT$:D$:AM(AM$)"Z#J1N1:AN$AN$(J)9070"d#J"n#BL(J)BL(J)AM"x#D$;"WRITE ACCOUNTS,R";J"#AN$(J):TI$(J):BL(J):D$ ##AM0SP0:BA900#!4#D$;"OPEN ACCOUNTS,L40,D2"V!7#"POSITION THE FORMS ON THE PRINTER...":60000!<#12:"NOW POSTING TO GENERAL LEDGER...":20:35,16!>#63000:D$(4):ZL16:TD0:TC0!@#::32);"JOURNAL ENTRIES":35);DA$:"B#"ACCT#";4);"TITLE";28);"DEBIZ$:D$ R1:CTCTC1: D$;"WRITE JOURNAL,R0":CT:D$ C10ė:10:"PRINT A JOURNAL PROOF TO VERIFY"::"THE DELETIONS.":60000 900 (# ** POST ENTRIES TO THE GENERAL LEDGER ** !2#12:CT0ĺ"THERE ARE NO JOURNAL ENTRIES TO POST.":60000:THIS? ";YN$:YN$(YN$,1):YN$"N"80009YN$"Y"8090pD$;"WRITE JOURNAL,R";RR:"000":BL:ZZ$:D$:8000C10:R11CT:D$;"READ JOURNAL,R";R1:AC$,BL$,ZZ$:BL(BL$)AC$"000"C1C11:8140 C10ĺD$;"WRITE JOURNAL,R";R1C1:AC$:BL:ZCT8030>rD$;"READ JOURNAL,R";RR:AC$,BL$,ZZ$:BL(BL$):D$|AC$"000"Ģ10:"RECORD #";RR;" ALREADY FLAGGED FOR DELETION.":60000:800010:958:"ACCOUNT NUMBER: ";AC$:"DATE: "ZZ$::"AMOUNT: $ ";:BL&18:"DO YOU WANT TO DELETE HERE ARE NO JOURNAL ENTRIES TO DELETE.":60000:900hOCT1Ģ6:"THERE IS 1 RECORD, NUMBERED 1.":8030T6:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."^7:868:"WHICH RECORD DO YOU WANT TO DELETE? ";RR$:RR$"END"8120hRR(RR$):RR1RRNT SHOULD NOT BE ZERO, PLEASE.":7090o22:868:"ARE ALL CHANGES CORRECT? ";OK$:OK$(OK$,1):OK$"N"7000 OK$"Y"7190*D$;"WRITE JOURNAL,R";RR4AC$:BL:DT$:D$>7000@: ** DELETE A PREVIOUS JOURNAL ENTRY ** 3JCT0Ģ10:"T868:"DATE:";11);"(OLD="D1$")";DHP7:VP14:Z01:62000:DT$D1$Z14:7:868:DT$18:868:"AMOUNT $";11);"(OLD=$";BN;")";9:"";DC$:DC$"END"900DC$""BLBN:18:9:BL:719022:50000:E017090%BLDC:BL0Ģ22:"AMOUqD$Tv10:868:"ACCOUNT NUMBER: --- (OLD="AN$")";:17:"";AC$:AC$"END"900uAC$""AC$AN$:10:17:AN$(AC$)3Ģ14:868:"INVALID LENGTH.":7030I1N1:AN$(I)AC$7080I:14:868:"INVALID ACCOUNT NUMBER.":7030!14:RE ";CT;" RECORDS, NUMBERED 1-";CT;"."nb7:868:"WHICH RECORD DO YOU WANT TO CHANGE? ";RR$:RR$"END"900gRR(RR$):RR1RRCT7010l6:958:"* PRESS 'RETURN' TO KEEP AN OLD VALUE. *"mD$;"READ JOURNAL,R";RRnAN$,BN$,D1$:BN(BN$)12:"THE CLOSING JOURNAL ENTRIES HAVE BEEN"S$:"RECORDED IN THE JOURNAL FILE."^.60000g8900X: ** CHANGE A PREVIOUS JOURNAL ENTRY **YCT0Ģ10:"THERE ARE NO JOURNAL ENTRIES TO CHANGE.":60000:900]CT1RR1:7020&`6:"THERE AIES CORRECT? ";OK$:OK$(OK$,1):OK$"N"5000@OK$"Y"5250_20:D$;"WRITE SALES,R";RRzCN$:IN$:DT$:AM:D$5000p: ** DELETE AN A.R. OPEN ITEM **zCT0Ģ10:"THERE ARE NO OPEN ITEMS TO DELETE.":60000:900"6:"THERE ARE "17:8:868:DT$BP19:1:868:"AMOUNT $";12);"(OLD=";AM;")";`Z9:"";AM$:AM$"END"900}dAM$""Ģ19:9:AM:5250n21:DC$AM$:50000:E015200xAM.01ĺ"AMOUNT SHOULD NOT BE ZERO, PLEASE.":5200}AMDC-21:958::"ARE ALL ENTRR ALREADY EXISTS."5$I1N3:SS$IN$(I)ĺW1$:5130G&I:CT05168S(I1CTy*D$;"READ SALES,R";I:C5$,I5$:D$,17:SS$I5$ĺW1$:5130.I0IN$SS$217:868:"DATE:";12);"(OLD=";DT$;")"<VP17:HP8:D1$DT$:62000:DT$D1$F$(I)SS$CN$SS$:5130OI:15:"THAT CUSTOMER NUMBER DOES NOT EXIST.":5080 15:868:"INVOICE NUMBER:";8);"(OLD=";IN$;")"VP15:HP17:LP3:59000:SS$"END"900SS$""Ģ15:17:IN$:5170 59500:E015130"W1$"THAT INVOICE NUMBE* PRESS 'RETURN' TO KEEP AN OLD VALUE. *"CD$;"READ SALES,R";RRfCN$,IN$,DT$,AM$:D$:AM(AM$)13:868:"CUSTOMER NUMBER:";8);"(OLD=";CN$;")"VP13:HP18:LP4:EP2:Z01:59000:SS$"END"900SS$""Ģ13:18:CN$:5130I1N2:CNNGE AN A.R. OPEN ITEM **XCT0Ģ10:"THERE ARE NO OPEN ITEMS TO CHANGE.":60000:9006:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."7:868:"WHICH RECORD DO YOU WANT TO CHANGE? ";RR$:RR$"END"900RR(RR$):RR1RRCT5030)9:"S/SEARCH0D$;"PR#";(952)#0:0D COMMANDS ON FILEU0NF9$"PRINTER COMMANDS"n0XD$;"OPEN";F9$;",D1"0bD$;"READ";F9$0lFTYPE$,NUM0vLOOP1NUM0CMD$(LOOP)0LOOP0D$;"CLOSE";F9$0LOOP1NUM0CMD$(LOOP)0LOOP07G71:620204/.G77G74G78ĺA7$;C7$;A7$;:LL1Z/8G76G73ĺA7$;A7$;C7$;A7$;:LL2/BD1$(D1$,(D1$)LL):G7G7LL:62020/G7:/ DIVERT OUTPUT TO PRINTER/"(950)63100,63200,63300/| COMM CARD/775:769,132/0 DEFAULTD1$D1$"/":62900+.DA7$:A7$(8)62500E.NA7$(13)G7862900h.SA7$(13)G70Z01D1$D2$:x.XG7862020.]A7$" "(G70G73)62060.bA7$"0"A7$"9"62020.lA7$;:D1$D1$A7$:62900.$G7062020 /)G71ĺA7$;C7$;A7$;:D1$"":GORRECT LINE ";LOOP;".":60000:19000y-"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."-60000:-0C7$(95):D2$D1$:D1$"":16368,0:HP:VP-5C7$;C7$;"/";C7$;C7$;"/";C7$;C7$:VP:HP.:G708:G72G75ĺ"/";:ER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:$-ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'SET PRINTER OPTIONS'":"PROGRAM AND CE";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 DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":60000:y,#0":D$;"CLOSE"::10:"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$;"WRITPEP:868:"ONLY DIGITS, PLEASE.":1):E00:A)`G71400:z)j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";)t16368,0:16384,128:16368,0)~:)HERROR PROCESSING)RER(222):LN(218)(219)256)\ER255Ĺ216,0:$*fD$;"PRPECIFIC LENGTH1(VP:HP:G71LP:"-";::" ";N(HP:"";SS$:SS$"END"ıa(SS$""Z01ı((SS$)LPĢVPEP:868:"INVALID LENGTH.":59010((l SCREEN INPUT FOR NON-DIGITS(vE01:I01(SS$):CH$(SS$,I0,1)$)CH$"0"CH$"9"ĢV NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."V,60000:,0C7$(95):D2$D1$:D1$"":16368,0:HP:VP,5C7$;C7$;"/";C7$;C7$;"/";C7$;C7$:VP:HP,:G708:G72G75ĺ"/";:D1$D1$"/":62900,DA7$:A7$(8)62500-N:"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:+ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'SET PRINTER OPTIONS'":"PROGRAM AND CORRECT LINE ";LOOP;".":60000:19000I,"ERROR"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:I+ER8ĺ"I/O ERROR"::"PLEASE CHECK TO SEE IF""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":60000:X*uER5(`G71400:G(j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";k(t16368,0:16384,128:16368,0u(~::(H ERROR PROCESSING(RER(222):LN(218)(219)256(\ER255Ĺ216,0:(fD$;"PR#0":D$;"CLOSE"::10:"PROBLEM: ";g)pER4ĺ'HP:"";SS$:SS$"END"ı.'SS$""Z01ıe'(SS$)LPĢVPEP:868:"INVALID LENGTH.":59010k''l SCREEN INPUT FOR NON-DIGITS'vE01:I01(SS$):CH$(SS$,I0,1)'CH$"0"CH$"9"ĢVPEP:868:"ONLY DIGITS, PLEASE.":':E00:&~V$(B.001):L1(V$)18&V$(V$,L1):L1751110^&V$(V$,L16)","(V$,6):L1L11&ǭL111V$(V$,1)","(V$,10):L112&V$PN$V$:L1L1(PN$)&ǺZLL1);V$;:&x ACCEPT INPUT OF SPECIFIC LENGTH&VP:HP:G71LP:"-";::" ";MBER TO 2 DECIMAL PLACES5%=PN$"":B0BB:PN$"-"M%?B(100B.499)100m%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"&tL110:51090D BE LESS THAN 10 MILLION, PLEASE.":F$āI01(DC$):CH$(DC$,I0,1)$JĭCH$"."(CH$"0"CH$"9")ĺ"NO NON-NUMERIC CHARACTERS, PLEASE.":$cĭCH$"."I1I0$|ĂI0$ĭ(DC$)I12ĺ"ONLY TWO DECIMAL PLACES, PLEASE.":$E00:%8Dz PRINT OUT A NU#900$#8J ** END THE PROGRAM **F#BJ:12:"ONE MOMENT PLEASE..."V#LJD$;"CLOSE"m#VJD$;"RUN HELLO,D1"#Pò SCREEN OUT BAD INPUT VALUES#E01:I1(DC$):DC(DC$):868#íDC.01ĺ"ONLY POSITIVE AMOUNTS, PLEASE.":%$íDC9999999.99ĺ"SHOUL2"D$;"READ ACCOUNTS,R";J:AC$,TI$,BL$:BL(BL$)X"BLBLTT:D$;"WRITE ACCOUNTS,R";Jj"AC$:TI$:BL"J1N1:AN$(J)"411"7160"J"D$;"READ ACCOUNTS,R";J:AC$,TI$,BL$:BL(BL$)"BLBLTT:D$;"WRITE ACCOUNTS,R";J" AC$:TI$:BL:D$!D$;"READ SALES,R";I7!CN$,IN$,DT$,AM$:AM(AM$)W!D$;"WRITE INVOICES,R";N3Ir!CN$:IN$:DT$:AM:D$!TTTTAM:13!I:N3N3CT!D$;"WRITE INVOICES,R0":N3:D$!CT0:D$;"WRITE SALES,R0":CT!J1N1:AN$(J)"112"7120!JERIFY THE DELETIONS.":60000% B900R X ** POST SALES TO A.R. TRIAL BALANCE ** bCT0Ģ10:"THERE ARE NO OPEN ITEMS TO POST.":60000:900 l12:"NOW POSTING THE SALES..." vD$;"OPEN INVOICES,L31,D2":D$;"OPEN ACCOUNTS,L40,D2" TT0:I1CT$:DT$:AM:D$:6000WC10:R11CT:D$;"READ SALES,R";R1:CN$,IN$,DT$,AM$:AM(AM$)tCN$"000"C1C11:6180C10ĺD$;"WRITE SALES,R";R1C1:CN$:IN$:DT$:AM$:CTCTC1.D$;"WRITE SALES,R0":CT:D$ 8C10ė:12:"PRINT A PROOF TO VDELETION.":60000:6000811:"CUSTOMER NUMBER: ";CN$V:"INVOICE NUMBER: ";IN$j:"DATE: ";DT$:"AMOUNT: $";AM21:"DO YOU WANT TO DELETE THIS? ";OK$:OK$(OK$,1):OK$"N"6000OK$"Y"6120D$;"WRITE SALES,R";RR:"000":IN;CT;" RECORDS, NUMBERED 1-";CT;"."k7:868:"WHICH RECORD DO YOU WANT TO DELETE? ";RR$:RR$"END"6150RR(RR$):RR1RRCT6030D$;"READ SALES,R";RRCN$,IN$,DT$,AM$:D$:AM(AM$)CN$"000"Ģ10:"RECORD #";RR;" ALREADY FLAGGED FOR #+DEDC=#021:868:"ACCOUNT NUMBER:";8);"(OLD=";AC$;")"h#:VP21:HP17:LP3:59000:SS$"END"900#DSS$""Ģ21:17:AC$:4450#NI1N1:AN$(I)SS$AC$SS$:4450#XI:23:868:"ACCOUNT NUMBER NOT ON FILE.":4400-$b23:958:"ARE ALL ENTROSS.":4250"DIDC#"18:868W"19:868:"DEDUCTION: $";12);"(OLD=$";DE;")";v"13:"";DE$:DE$"END"900"DE$""Ģ19:13:DE:DCDE:4390"21:DC$DE$:50000:E014350"&DCGDIĢ21:"SHOULD NOT EXCEED GROSS MINUS DISCOUNT.":4350Ģ19:"INVALID PERCENTAGE AMOUNT":4250`!DI(PCG.5)100:DI$(DI.001):DI$(DI$,(DI$)1)!17:11:"$";DI$;" (";PC;"%)":4345!(DI$,1)"$"DI$(DI$,(DI$)1)!19:DC$DI$:50000:E014250 "GDCĺ"DISCOUNT SHOULD BE LESS THAN GR868:"DISCOUNT:";13);"(OLD=$";DI;")":"(YOU MAY ENTER DOLLARS OR PERCENT.)"p 17:11:"";DI$:DI$"END"900 DI$""Ģ17:11:"$";DI:DCDI:4340 18:868:(DI$,1)"%"4330 19:DC$(DI$,(DI$)1):50000:E014250'!PCDC:PC100PC.5:D1$DT$:62000:DT$D1$-^13:8:868:DT$_h15:1:868:"GROSS: $";12);"(OLD=$";G;")";{r9:"";G$:G$"END"900|G$""Ģ15:9:G:425017:DC$G$:50000:E014200G.01ĺ"GROSS SHOULD NOT BE ZERO, PLEASE.";4200GDCM 17:-:W1$"THAT VOUCHER NUMBER ALREADY EXISTS."P<I1N3:SS$VO$(I)ĺW1$:4130b>I:CT04168n@I1CTBD$;"READ TEMP-VO,R";I:V1$,V2$:D$D13:SS$V2$ĺW1$:4130FIHVO$SS$J13:868:"DATE:";12);"(OLD=";DT$;")"TVP13:HP816:VN$:41303I1N2:VN$(I)SS$VN$SS$:4130jI:11:"THAT VENDOR NUMBER DOES NOT EXIST.":4080"11:868:"VOUCHER NUMBER:";8);"(OLD=";VO$;")",VP11:HP17:LP3:59000:SS$"END"9006SS$""Ģ11:17:VO$:4170859500:E014130 PRESS 'RETURN' TO KEEP AN OLD VALUE. *"DD$;"READ TEMP-VO,R";RRhVN$,VO$,DT$,G$,DI$,DE$,AC$:D$G(G$):DI(DI$):DE(DE$)9:868:"VENDOR NUMBER:";8);"(OLD=";VN$;")"VP9:HP16:LP4:EP2:Z01:59000:SS$"END"900 SS$""Ģ9:10:"THERE ARE NO VOUCHER ENTRIES TO CHANGE.":60000:900OCT1RR1:405010:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."12:868:"WHICH RECORD DO YOU WANT TO CHANGE? ";RR$:RR$"END"900RR(RR$):RR1RRCT4030(6:958:"*& T1T1G:T2T2DI:T3T3DE)0 I:EE0X: U$"------------":33);U$;" ";U$;" ";U$mD "TOTALS:";24);N BT1:51000:BT2:51000:BT3:51000X :I16::b D$(13)(4)l D$;"PR#0" 900: ** CHANGE VOUCHER ENTRIES **:CT0EDUCTION ACCT"5 I180:"=";::::F$"TEMP-VO"F EE1:I1CTa D$;"READ TEMP-VO,R";I VN$,VO$,DT$,G$,DI$,DE$,AC$ G(G$):DI(DI$):DE(DE$) I10);I;6);VN$;4);VO$;4);DT$; BG:51000:BDI:51000:BDE:51000 " ";AC$RE NO VOUCHER ENTRIES TO PRINT.":60000:900] :12:"POSITION PAPER ON PRINTER...":60000 63000:T10:T20:T30:D$(4) IP16::IP :33);"VOUCHER PROOF":35);DA$: "RECORD VENDOR VCH DATE";12);"AMOUNT";6);"DISCOUNT";5);"DOK$(OK$,1):OK$"Y"OK$"N"Ģ22:"ENTER YES OR NO.":2300O OK$"N"2000[ CTCT1x D$;"WRITE TEMP-VO,R";CT$ VN$:VO$:DT$:G:DI:DE:AC$. D$;"WRITE TEMP-VO,R0"8 CT:D$B 2000 ** PRINT A PROOF ** , CT0Ģ10:"THERE ADS ON FILE%/NF9$"PRINTER COMMANDS">/XD$;"OPEN";F9$;",D1"Q/bD$;"READ";F9$a/lFTYPE$,NUMq/vLOOP1NUM/CMD$(LOOP)/LOOP/D$;"CLOSE";F9$/LOOP1NUM/CMD$(LOOP)/LOOP/MLL1*.8G76G73ĺA7$;A7$;C7$;A7$;:LL2S.BD1$(D1$,(D1$)LL):G7G7LL:62020].G7:|. DIVERT OUTPUT TO PRINTER."(950)63100,63200,63300.| COMM CARD.775:769,132.. DEFAULTS/SEARCH.D$;"PR#";(952). /D COMMANA7$(13)G78629008-SA7$(13)G70Z01D1$D2$:H-XG7862020g-]A7$" "(G70G73)62060-bA7$"0"A7$"9"62020-lA7$;:D1$D1$A7$:62900-$G7062020-)G71ĺA7$;C7$;A7$;:D1$"":G7G71:62020..G77G74G78ĺA7$;C7$;A7$;:1:D$;"CLOSE":60000:y3uER5ĺ"END OF DATA"::"THE DATA FILES ON THE DATA FILE DISKETTE":"MAY BE DAMAGED.":60000:3zER6ĺ"FILE NOT FOUND"::"PLEASE CHECK TO SEE IF THE TWO DISKETTES":"HAVE ACCIDENTLY BEEN REVERSED.":60000:j4ER8ĺ"I/O E::10:"PROBLEM: ";2pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE THE WRITE-PROTECT STICKER":"FROM THE DATA FILE DISKETTE.":60000:3rER5EEĺ"END OF DATA"::"THERE IS MISSING DATA IN THE ";F$:"FILE.":D$;"OPEN";F$;",D2":D$;"WRITE";F$;",R0":IIGITS, PLEASE.":1:E00:11`G71400::1j1j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";1t16368,0:16384,128:16368,01~:1H ERROR PROCESSING1RER(222):LN(218)(219)2561\ER255Ĺ216,0:2fD$;"PR#0":D$;"CLOSE"VP:HP:G71LP:"-";::" ";;0HP:"";SS$:SS$"END"ıN0SS$""Z01ı0(SS$)LPĢVPEP:868:"INVALID LENGTH.":5901000l SCREEN INPUT FOR NON-DIGITS0vE01:I01(SS$):CH$(SS$,I0,1)1CH$"0"CH$"9"ĢVPEP:868:"ONLY DV$V$".00""/ȭ(V$)9V$V$"0"3/L110:51800D/V$(B.001)S/,L1(V$)1c/V$(V$,L1)s/ɭL1752000/XV$(V$,L16)","(V$,6):L1L11/ʭL111V$(V$,1)","(V$,10):L112/ ˺14L1);V$;:/x ACCEPT INPUT OF SPECIFIC LENGTH0(DC$)I12ĺ"ONLY TWO DECIMAL PLACES, PLEASE.":;.E00:h.8Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACES.jB(100B.499)100.ǭB.01V$".00":L13:52000.ȭB9999999.99V$"*"(B)"*":L1(V$):52000.dȭB999999.99951400 /xV$(B):(V$)7):8685-íDC0ĺ"ONLY POSITIVE AMOUNTS, PLEASE.":u-íDC9999999.99ĺ"SHOULD BE LESS THAN 10 MILLION, PLEASE.":-āI01(DC$):CH$(DC$,I0,1)-JĭCH$"."(CH$"0"CH$"9")ĺ"NO NON-NUMERIC CHARACTERS, PLEASE.":-cĭCH$"."I1I0-|ĂI00.ĭAC$,TI$,BL$:BL(BL$);,BLBLTT:D$;"WRITE ACCOUNTS,R";JQ,AC$:TI$:BL:D$Z,$900v,8J ** END THE PROGRAM **,J:12:"ONE MOMENT PLEASE...",KD$;"CLOSE",dKD$;"RUN HELLO,D1",Pò SCREEN OUT BAD INPUT VALUES-E01:I1(DC$):DC(DC$ACCOUNTS,R";J:AC$,TI$,BL$:BL(BL$)J+BLBLGA:D$;"WRITE ACCOUNTS,R";J`+AC$:TI$:BL:D$k+13:I+N3N3CT:D$;"WRITE VOUCHERS,R0":N3+CT0:D$;"WRITE TEMP-VO,R0":CT:D$+J1N1:AN$(J)"211"6150+J,D$;"READ ACCOUNTS,R";J:.."**TT0:I1CT:D$"READ TEMP-VO,R";IN*VN$,VO$,DT$,G$,DI$,DE$,AC$:D$n*G(G$):DI(DI$):DE(DE$)*GAGDIDE:TTTTGA*D$;"WRITE VOUCHERS,R";N3I*VN$:VO$:DT$:G:DI:DE:AC$:D$*J1N1:AN$(J)AC$6100*J$+D$;"READ RIFY"::"THE DELETIONS.":60000))x900_)p ** POST VOUCHERS TO OUTSTANDING VOUCHER LIST **)zCT0Ģ10:"THERE ARE NO VOUCHER ENTRIES TO POST.":60000:900)D$;"OPEN ACCOUNTS,L40,D2":D$;"OPEN VOUCHERS,L57,D2"*12:"NOW POSTING THE VOUCHERS.R1:VN$,VO$,DT$,G$,DI$,DE$,AC$>(AG(G$):DI(DI$):DE(DE$)[(FVN$"000"C1C11:5210(PC10ĺD$;"WRITE TEMP-VO,R";R1C1:VN$:VO$:DT$:G:DI:DE:AC$(Z:CTCTC1(dD$;"WRITE TEMP-VO,R0":CT:D$ )nC10ė:10:"PRINT A VOUCHER PROOF TO VE:"DEDUCTION: $";DE3':"ACCOUNT NUMBER: ";AC$z'23:"DO YOU WANT TO DELETE THIS? ";OK$:OK$(OK$,1):OK$"N"5000'(6:OK$"Y"5150'2D$;"WRITE TEMP-VO,R";RR:"000":VO$:DT$:G:DI:DE:AC$:D$:5000(<C10:R11CT:D$;"READ TEMP-VO,R";,DI$,DE$,AC$:D$0&G(G$):DI(DI$):DE(DE$)&VN$"000"Ģ10:"RECORD #";RR;" ALREADY FLAGGED FOR DELETION.":60000:5000&9:"VENDOR NUMBER: ";VN$&:"VOUCHER NUMBER: ";VO$&:"DATE: ";DT$&:"GROSS: $";G&:"DISCOUNT: $";DI' CT1Ģ6:"THERE IS 1 RECORD, NUMBERED 1.":5030h%6:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."%7:868:"WHICH RECORD DO YOU WANT TO DELETE? ";RR$:RR$"END"5180%RR(RR$):RR1RRCT5030%D$;"READ TEMP-VO,R";RR&VN$,VO$,DT$,G$IES CORRECT? ";OK$:OK$(OK$,1):OK$"N"4000@$lOK$"Y"4450a$v22:D$;"WRITE TEMP-VO,R";RR$VN$:VO$:DT$:G:DI:DE:AC$:D$$4000$: ** DELETE VOUCHER ENTRIES **$CT0Ģ10:"THERE ARE NO VOUCHER ENTRIES TO DELETE.":60000:9001%60000:| zER6ĺ"FILE NOT FOUND"::"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:!ER1fD$;"PR#0":D$;"CLOSE"::10:"PROBLEM: ";pER4ĺ"WRITE PROTECTED"::"PLEASE REMOVE 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.":7(SS$)LPĢVPEP:868:"INVALID LENGTH.":59010=M`G71400:j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";t16368,0:16384,128:16368,0~:H ERROR PROCESSINGRER(222):LN(218)(219)256\ER255Ĺ216,0:L17511100V$(V$,L16)","(V$,6):L1L11YǭL111V$(V$,1)","(V$,10):L112tV$PN$V$:L1L1(PN$)ǺZLL1);V$;:x ACCEPT INPUT OF SPECIFIC LENGTHVP:HP:G71LP:"-";::" ";HP:"";SS$:SS$"END"ıSS$""Z01ıPN$"-"?B(100B.499)100?BǭB.01V$".00":L13:51110qLǭB9999999.99V$"*"(B)"*":L1(V$):51110VǭB999999.99951070`V$(B):(V$)7V$V$".00"jǭ(V$)9V$V$"0"tL110:51090~V$(B.001):L1(V$)1 V$(V$,L1):;"------------"0"TOTAL";55);:BTT:51000:?I16::ND$;"PR#0"X34,5t8J ** END THE PROGRAM **BJ:12:"ONE MOMENT PLEASE..."LJD$;"CLOSE"VJD$;"RUN HELLO,D1"8Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACES=PN$"":B0BB: NO. DATE";7);"VCH# VENDOR NAME";26);"AMOUNT"NI172:"=";:::ZL12gI1N3:P(I)05060CHCH1:8((CH)));CH;" ";DA$(I);" ";VO$(I);3);VN$(I);4);NA$(P(I));24(NA$(P(I))))BG(I)DI(I)DE(I):51000:I60)D$;"READ ACCOUNTS,R";I:AN$,TI$,BL$:BL(BL$)TBLBLTT:D$;"WRITE ACCOUNTS,R";IjAN$:TI$:BL:D$D$;"WRITE MISCELLANEOUS,R0":CHC1"D$;"CLOSE MISCELLANEOUS" PRINT CHECK REGISTERI110:::26);"CHECK REGISTER"2:"CHECK:N3C1:D$# UPDATE ACCOUNTS BD$;"OPEN ACCOUNTS,L40,D2"`I1N1:A$(I)"111"4040gID$;"READ ACCOUNTS,R";I:AN$,TI$,BL$:BL(BL$)BLBLTT:D$;"WRITE ACCOUNTS,R";IAN$:TI$:BL:D$I1N1:A$(I)"211"4090I.AD$));"/"C "/";29);CI$;" ";ST$;" ";ZI$;46(CI$ST$ZI$));"/"u "/";77);"/":"/ ";MI$(5);76(MI$(5)));"/" "/ ";MI$(6);", ";MI$(7);74(MI$(6)MI$(7)));"/" "/";77);"/" "/";:K177:"=";::"/" I  D$;"WRITE VOUCHERS,R0"R#";(952)8'8D COMMANDS ON FILEB8NF9$"PRINTER COMMANDS"[8XD$;"OPEN";F9$;",D1"n8bD$;"READ";F9$~8lFTYPE$,NUM8vLOOP1NUM8CMD$(LOOP)8LOOP8D$;"CLOSE";F9$8LOOP1NUM8CMD$(LOOP)8LOOP8DG77G74G78ĺA7$;C7$;A7$;:LL1G78G76G73ĺA7$;A7$;C7$;A7$;:LL2p7BD1$(D1$,(D1$)LL):G7G7LL:62020z7G7:7 DIVERT OUTPUT TO PRINTER7"(950)63100,63200,633007| COMM CARD7775:769,13277 DEFAULTS/SEARCH 8D$;"P6DA7$:A7$(8)6250026NA7$(13)G7862900U6SA7$(13)G70Z01D1$D2$:e6XG78620206]A7$" "(G70G73)620606bA7$"0"A7$"9"620206lA7$;:D1$D1$A7$:629006$G70620206)G71ĺA7$;C7$;A7$;:D1$"":G7G71:62020!7.OOP;".":60000:19000j5"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."w560000:50C7$(95):D2$D1$:D1$"":16368,0:HP:VP:C7$;C7$"/"C7$;C7$"/"C7$;C7$55VP:HP5:G708:G72G75ĺ"/";:D1$D1$"/":62900RROR"::"PLEASE CHECK TO SEE IF":"1. A DISK DRIVE DOOR IS OPEN.":"2. A DISK DRIVE IS EMPTY.":60000:5ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'SET PRINTER OPTIONS'":"PROGRAM AND CORRECT LINE ";LA$));AN$;2);VO$;2);DT$;S BG:51000:BDI:51000:BDE:51000:BGDIDE:51000:q TGTGG:TITIDI:TETEDEx I D$;"CLOSE VOUCHERS" U$"------------":51);U$;" ";U$;" ";U$;" ";U$ 50);:BTG:51000:BTI:51000 !BTE:51000:BTGTIST$(I),16,3):G((ST$(I),19,10))XDI((ST$(I),29,10)):DE((ST$(I),(ST$(I))38))uD$;"WRITE VOUCHERS,R";IVN$:VO$:DT$:G:DI:DE:AN$:D$J1N2:VN$VN$(J)8080JD$;"READ VENDORS,R"J:VN$,NA$:D$ VN$;3);NA$;25(NDI(DI$):DE(DE$)SvST$(I)VN$VO$DT$AN$(ZZ$(G),10)(ZZ$(DI),10)(DE)lxI:EE0:CT1.58064zL1%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$(0);"NET"!TI1102:"=";:::@YD$;"OPEN VOUCHERS,L57,D2"m^D$;"READ VOUCHERS,R0":CT:F$"VOUCHERS"cTG0:TI0:TE0:ZL13:CT.58125eZZ$"000000000"hEE1:I1CTrD$;"READ VOUCHERS,R";ItVN$,VO$,DT$,G$,DI$,DE$,AN$uG(G$):: 900,@ ** OUTSTANDING VOUCHERS **EN2.5ė:10:"THE VENDOR FILE IS EMPTY."::D$;"PR#0":"USE 'FILE MAINTENANCE' TO ADD VENDORS.":60000:900J:"VEND# VENDOR NAME";12);"ACCT# VCH# DATE";12);"GROSS";5);"DISCOUNT";4);"DEDUCTION";1:D$!J1N3:CN$CN$(J)7080(JED$;"READ CUSTOMERS,R";JVCN$,NA$:D$15);CN$;7);NA$;25(NA$));DT$;3);IN$;TTTTAM:BAM:51000:ID$;"CLOSE INVOICES"68);"------------"65);:BTT:51000:I110:DT$(AM)"I:EE0:CT1.570648L1%1:L2%7:X%CT\21251,("S"):21252,("T")128g21248sI1CTCN$(ST$(I),4):IN$(ST$(I),5,3)DT$(ST$(I),8,8):AM((ST$(I),(ST$(I))15))D$;"WRITE INVOICES,R";ICN$:IN$:DT$:AME";7);"INV#";8);"AMOUNT"9l15);:I165:"=";:::XqD$;"OPEN INVOICES,L31,D2"vD$;"READ INVOICES,R0":CT:F$"INVOICES"ZL15:TT0:CT.57115EE1:I1CTD$;"READ INVOICES,R";ICN$,IN$,DT$,AM$:AM(AM$) ST$(I)CN$IN$49);:BTD:51000:BTC:51000:2I110::;900YX ** A/R TRIAL BALANCE **]N3.5ė:10:"THE CUSTOMER FILE IS EMPTY."::D$;"PR#0":"USE 'FILE MAINTENANCE' TO ADD CUSTOMERS.":60000:900b:15);"CUST#";6);"CUSTOMER NAME";12);"DAT5:"=";:::!TD0:TC0:ZL18-I1N1PAN$AN$(I):TI$TI$(I):BLBL(I)d(BL).016080|BL0SP0:TDTDBLBL0SP18:BLBL:TCTCBL10);AN$;8);TI$;28(TI$)SP);BBL:51000:I:U$"------------":55);U$;6);U$"LOOP&D$;"CLOSE";F9$)&LOOP1NUM9&CMD$(LOOP)M&LOOPCHECKS,D1S& O%lFTYPE$,NUM %vLOOP1NUM0%CMD$(LOOP):%LOOPN%D$;"CLOSE";F9$^%LOOP1NUMn%CMD$(LOOP)x%LOOP~% E%NF9$"PRINTER COMMANDS"%XD$;"OPEN";F9$;",D1"%bD$;"READ";F9$%lFTYPE$,NUM%vLOOP1NUM%CMD$(LOOP)&20 $G7:+$ DIVERT OUTPUT TO PRINTERI$"(950)63100,63200,63300Y$| COMM CARDk$775:769,132q$$ DEFAULTS/SEARCH$D$;"PR#";(952)$$D COMMANDS ON FILE$NF9$"PRINTER COMMANDS"$XD$;"OPEN";F9$;",D1"%bD$;"READ";F9$" "(G70G73)620601#bA7$"0"A7$"9"62020N#lA7$;:D1$D1$A7$:62900^#$G7062020#)G71ĺA7$;C7$;A7$;:D1$"":G7G71:62020#.G77G74G78ĺA7$;C7$;A7$;:LL1#8G76G73ĺA7$;A7$;C7$;A7$;:LL2$BD1$(D1$,(D1$)LL):G7G7LL:620000:4"0C7$(95):D2$D1$:D1$"":16368,0:HP:VPa"5C7$;C7$;"/";C7$;C7$;"/";C7$;C7$:VP:HP":G708:G72G75ĺ"/";:D1$D1$"/":62900"DA7$:A7$(8)62500"NA7$(13)G7862900"SA7$(13)G70Z01D1$D2$:"XG7862020#]A7$11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'SET PRINTER OPTIONS'":"PROGRAM AND CORRECT LINE ";LOOP;".":60000:19000!"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC.""60z#?    !ՠ"֠ԠҠӠ ҠӠ͠ĠŠ Գ" Ϡ  Ԡ3Ӡ Ӡ. àΠӠ Ϡ  ϠР$Π=à3ԠԠ+Ԡ)PTIONS'":"PROGRAM AND CORRECT LINE ";LOOP;".":60000:190000"ERROR NUMBER ";ER;" IN LINE ";LN:ER15ĺ:"PLEASE REPORT THIS ERROR TO MECC."060000:00C7$(95):D2$D1$:D1$"":16368,0:HP:VP05C7$;C7$;"/";C7$;C7$;"/";C7$;C7$:VP:HP*1:N 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:<0ER11LN63000ĺ"SYNTAX ERROR IN USER-DEFINED":11:"PRINTER OPTION."::"PLEASE ENTER THE 'SET PRINTER OOPEN";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 DISKETTES":"HAVE ACCIDENTLY BEE255Ĺ216,0:<-fD$;"PR#0":D$;"CLOSE"::10:"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$;"(ZB.499))/,ZC(ZB$):ZCZLZB$"***":ZC3A,ӺZLZC);ZB$;G,ӱW,`G71400:,j24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";,t16368,0:16384,128:16368,0,~::,HERROR PROCESSING,RER(222):LN(218)(219)256 -\ERЭ(V$)9V$V$"0"#+tL110:51090?+~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$;:+Ҳ RIGHT JUSTIFY INTEGERS ,ZB$("RUN HELLO,D1";*8Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACESX*=PN$"":B0BB:PN$"-"p*?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"+j;"NET INCOME";42);%)T)BNI:51000:5)h)I110::>)r)900R)*(BL(I)).01ıs)*19);TI$(I);22(TI$(I)));)*TTTTBL(I):B(BL(I)):51000)*:CTCT1)*)8J ** END THE PROGRAM **)BJ:12:"ONE MOMENT PLEASE...")LJD$;"CLOSE"*VJD$;);"TOTAL OTHER INCOME";30);0((BOI:51000::U()15);"OTHER EXPENSES":TT0:CT0y()I1N1:(AN$(I),1)"9"10530()10900(")I:OETT(')CT0ĺ42);U$(,)19);"TOTAL OTHER EXPENSES";28);(6)BOE:51000:(@)68);U$:NINIOIOE)J)15)15);"TOTAL EXPENSES";38);-'n(BTE:51000:C'x(68);U$:NIGPTEp'(15);"NET INCOME FROM OPERATIONS";26);'(BNI:51000::'(15);"OTHER INCOME":TT0:CT0'(I1N1:(AN$(I),1)"8"10430'(10900'(I:OITT'(CT0ĺ42);U$((19&#(BGS:51000:'&((68);U$:GPNSGSO&-(15);"GROSS PROFIT ON SALES";31);c&2(BGP:51000::&<(15);"EXPENSES":TT0:CT0&F(I1N1:AN$(I)"716"10330&K((AN$(I),1)"6"(AN$(I),1)"7"10330&P(10900&Z(I:TETT&_(CT0ĺ42);U$'d(N$(I)"113"EIBL(I)0%'(AN$(I),1)"5"10240;%'10900H%(I:NPTT[%(CT0ĺ42);U${%(19);"NET PURCHASES";22);% (BNP:51000:%(19);"ENDING INVENTORY";19);%(BEI:51000:%(55);U$:GSBINPEI%(19);"COST OF GOODS SOLD";30)INCOME":TT0:CT05$~'I1N1:(AN$(I),1)"4"10130@$'10900N$'I:NSTTa$'CT0ĺ42);U$|$'19);"NET SALES";39)$'BNS:51000::$'15);"COST OF GOODS SOLD":TT0:CT0$'19);"BEGINNING INVENTORY";16);$'BBI:51000:%'I1N1:A51000##I110::##900F#' ** PROFIT AND LOSS STATEMENT ** b#'ZL13:U$"------------"#$'D$;"OPEN MISCELLANEOUS,L25,D2"#.'D$;"READ MISCELLANEOUS,R1":BI$:BI(BI$)#8'D$;"CLOSE MISCELLANEOUS"#B'36);"PERIOD ENDING ";DA$:$t'15);"(BL).01(AN$,1)(K)91007"x#25);TI$;30(TI$));X"#TT(K)TT(K)BL:BBL:51000:_"#Iz"#58);:"------------""#25);"TOTAL ";W$(K);24(W$(K)));"#BTT(K):51000::"#K"#25);"TOTAL LIABILITIES AND CAPITAL ";##BTT(2)TT(3):TE:51000:!I110::%!900?!(# ** BALANCE SHEET **v!2#W$(1)"ASSETS":W$(2)"LIABILITIES":W$(3)"CAPITAL"!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#02:Z2(ZK)07ZI02558:Z2(ZK)Z2(ZK)(ZWZI)::eZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25640120CARD:SLOT:CARD0:SLOT0951,CARD:952,SLOTœCARD1Ĺ950,CARD:D$"BLOAD COMM CARD ROUTINE"̜ CARDS: COMM=1,SERIAL=2,PAR=3,MALIBU=4KTD$"CLOSE"F$:Z5(4),Z7(4),Z2(2)r^Z5(1)24:Z5(2)56:Z5(3)72:Z5(4)8hZ7(1)56:Z7(2)24:Z7(3)72:Z7(4)72rSLOT17:AD(SLOT192)256|CARD14(AD5)Z5(CARD)(AD7)Z7(CARD)40110 ZKF$:FT$'NuFT$"COM-CARD"FT1:35000GXuFT$"DEFAULTS"FT2:40000`buFT$"USER-SET"FT3ylu950,FT:D$"CLOSE"F$vuCOMM CARDˆSP:SP10Ĺ802,82:818,82̈D$"BLOAD COMM CARD ROUTINE"ֈ@ SEARCH SLOTS FOR AN INTERFACE 'J2<C1$(J),C2$(J),B1(J),B2(J),B3(J),B4(J),B5(J):kFC1$(J):C2$(J):B1(J):B2(J):B3(J):B4(J):B5(J): ** CREATE EMPTY DATA FILES **8:"THIS OPTION CREATES A SET OF EMPTY DATA":"FILES ON A DISKETTE IN DRIVE 2. ONLY":"THE ACCJ),C5$(J),C6$(J):H 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):B1(J):"CLOSE"0 I::12:"THE NEW FILES ARE READY."B 60000:19000]C1$(J),C2$(J),B1(J):zC1$(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$(J),C4$(J1N1:13( D$;"WRITE";F$(I);",R";JM I3810,3830,3850,3870,3890,3910` J:D$;"CLOSE" 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);",R0" CT:D$;(F$(I),3)1b D$;"OPEN";F3$(I);",L";F(I);",D1"Ql D$;"READ";F3$(I);",R0":N1av J1N1:13~ D$;"READ";F3$(I);",R";J I3800,3820,3840,3860,3880,3900 J:D$;"CLOSE" D$;"OPEN";F$(I);",L";F(I);",D2" D$;"WRITE";F$(I);",R0":N1  $ D$;WM$;"4":"MANKATO MN 56001"K D$;WM$;"5":"HOMETOWN STATE BANK"k& D$;WM$;"6":"123 MAIN ST."0 D$;WM$;"7":"MANKATO MN 56001": J812:D$;WM$;J:""::D$D :12:"NOW ";ME$;" FILE:"N I16:12:22:868:F$(I) X F3$(I)"PERM" ";OK$$ OK$(OK$,1):OK$"N"9007 OK$"Y"3015m :12:"NOW STORING MISCELLANEOUS INFORMATION..." D$;"OPEN";MI$;",L25,D2" D$;WM$;"0":"0" D$;WM$;"1":"35000" D$;WM$;"2":"MANKATO INDUSTRIES" D$;WM$;"3":"1920 LEE BLVD." **5 :8:"THIS OPTION WILL RESTORE ALL THE DATA"b :"FILES ON THE FILE DISKETTE TO THEIR" :"ORIGINAL CONDITION. ANY CHANGES THAT" :"YOU HAVE MADE TO THE FILES WILL BE" :"ERASED.":ME$"RESTORING" 20:"DO YOU WANT TO DO THIS?E THAT IS TO CONTAIN"@H:"THE DATA FILES IN DRIVE 2.":60000yR:12::"WORKING!";::" PLEASE DO NOT INTERRUPT."\D$;"INIT HELLO,D2"f2170pD$;"DELETE HELLO,D2"z61000ME$"CREATING":3040 ** RESTORE ORIGINAL DATA FILESAN IMAGINARY BUSINESS, 'MANKATO"6 :"INDUSTRIES'."e ::"ANY PRE-EXISTING INFORMATION ON THE" :"DISKETTE WILL BE ERASED." 23:"DO YOU WANT TO DO THIS? ";OK$ *OK$(OK$,1):OK$"N"19000 4OK$"Y"2080>:10:"PLACE THE DISKETT,4:A3000,4000,5000,190007  ** CREATE DATA DISK **c 1:9:"CREATE DATA DISK PROGRAM":34,3 6:"THIS PROGRAM WILL CREATE A DATA FILE" :"DISKETTE IN DRIVE 2. THE DISKETTE WILL" :"CONTAIN ALL THE ACCOUNTING INFORMATION" :"FOR  HL$(3)"BACK-UP DATA FILES"< HL$(4)"END THE PROGRAM"O ::8:HL$(0)_ 19:"MENU" 9:I1N:I;". ";HL$(I):: 19:868:"WHAT IS YOUR CHOICE? ";A$:A((A$)):A1AN930 :8:HL$(0) HT(42(HL$(A)))2:HT:HL$(A) 34RS,80,VOUCHERS,57,INVOICES,31,STOCK,76,JOURNAL,27,TEMP-VO,57,SALES,31,RECEIPTS,57k I1NF:F$(I),F(I):~ (955)12000 N4:HL$(N):HL$(0)"FILE HOUSEKEEPING PROGRAM" HL$(1)"RESTORE ORIGINAL DATA FILES" HL$(2)"CREATE EMPTY DATA FILES"00),B3(100),B4(100),B5(100)R MI$(12):MI$"MISCELLANEOUS":WM$"WRITE "MI$",R"h ::D$(13)(4)~ D$;"NOMON C,I,O" , 9,111,112,113,211,311,312,411,412,413 6ND:I1ND:AE$(I): NF10:F$(NF),F(NF)Q ACCOUNTS,40,CUSTOMERS,80,VENDO", BUSINESS VOLUME 3 - FORMERLY "MICAS"X FILE HOUSEKEEPING PROGRAM (HOUSEKP) v LAST UPDATE: 4/9/82 RPB( (C) MECC 1981261000d(13);(4);"MAXFILES 3"nC1$(100),C2$(100),C3$(100),C4$(100),C5$(100),C6$(100) xB1(100),B2(1           16:13:TI$(I):3090$ TI$(I)TI$Z 20:"ARE ALL CHANGES CORRECT? ";OK$:OK$(OK$,1)l OK$"N"3000& OK$"Y"30900 D$;"WRITE ACCOUNTS,R";I: AN$:TI$(I):BL(I):D$D 3000:EP4: - DELETE AN ACCOUNT '10:"ACCOUNT NUMBER:":18:LP3:59000:SS$"END"1000D AN$SS$:I1CT:AN$AN$(I)3040x I:13:868:"ACCOUNT NUMBER NOT FOUND.":3010 13:868:"OLD TITLE: ";TI$(I) 16:868:"NEW TITLE:":VP16:HP13:EP4:ZM22:59200:TI$SS$ TI$"END"1000 TI$""HAN$(J):TI$(J):BL(J) RJB\D$;"WRITE ACCOUNTS,R";I:BL0TfAN$:TI$:BLwkAN$(I)AN$:TI$(I)TI$:BL(I)BLpD$;"WRITE ACCOUNTS,R0":CTCT1zCT:D$2000 :EP3: - CHANGE AN ACCOUNT  10:868:"ACCOUNT NUMBER:":VP10:HP1000920:"ARE THE ABOVE ENTRIES BOTH CORRECT? ";OK$XOK$(OK$,1):OK$"N"2000kOK$"Y"2062I1CT:AN$AN$(I)2090 I:ICT1:2140*JCT1I114AN$(J)AN$(J1):TI$(J)TI$(J1):BL(J)BL(J1)>D$;"WRITE ACCOUNTS,R";J59500:E012010[AN$SS$:(AN$)100Ģ14:"ACCT# SHOULD NOT BE LESS THAN 100.":2010I1CT:AN$AN$(I)Ģ14:868:"THAT NUMBER IS ALREADY USED.":2010I14:868:"ACCOUNT TITLE:":VP14:HP16:ZM22:59200:TI$SS$ 958:TI$"END"A28000,9000,10000,jA211000,12000,13000Y:EP4: *** GENERAL LEDGER FILE *** CT100Ģ10:"THERE ARE NOW 100 ACCOUNTS."::"NO MORE CAN BE ADDED.":60000:100010:868:"NEW ACCOUNT NUMBER:":VP10:HP22:LP3:59000:SS$"END"1000$3:958:HT(42(SL$(A2)))2:HT:SL$(A2)_.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`AN$(I):A1ī990-TI$(I),BL$:BL(I)(BL$)8I:D$K::9:HL$(0)oHT(42(HL$(A)))2:HT:HL$(A)(17):SL$(0)9:J1M:J;". ";SL$(J)::20:868:"WHAT IS YOUR CHOICE? ";A2$A2((A2$)):A21A2M1040A24900,ELLO,D1"<2:958:10:"LOADING FILE FROM DISK: ";F$(A)Y12:"RECORD NUMBER = ";~D$;"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):990STING RECORD"* >SL$(3)"DELETE A RECORD"W HSL$(4)"EDIT A DIFFERENT FILE (OR QUIT)"x ::(9):HL$(0):19:"MENU" 8:I1N:I;". ";HL$(I):: 20:868:"WHAT IS YOUR CHOICE? ";A$ A((A$)):A1AN920D$;"CLOSE":ANĺD$;"RUN H0)"FILE MAINTENANCE PROGRAM"> HL$(1)"GENERAL LEDGER FILE"W HL$(2)"VENDOR FILE"r 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 EXI,312,411,412,413 ND. I1ND:AE$(I):f :12:"ENTER RUN DATE:":VP12:HP18:62000:DA$D1$z 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$(E VOUCHERS" 12:17:8685 "10:26:"INVOICES"T ,D$;"OPEN INVOICES,L31,D2"s 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 12:"RECORD NUMBER ="- D$(13)(4)C D$;"NOMON C,I,O"[ 10:26:"VOUCHERS"z 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$;"CLOSR; BUSINESS VOLUME 3B FILE MAINTENANCE PROGRAM (FILMAIN)` LAST UPDATE: 3/1/83 RPBt( (C) MECC 1981261000d(13);(4);"MAXFILES 2"nAN$(100),TI$(100),BL(100),IT$(100),V$(100),I$(100)x: 10:"LOADING FILE FROM DISK:"                    :D$A230004000C: ** CHANGE CASH RECEIPTS ** CT0Ģ10:"THERE ARE NO CASH RECEIPTS TO CHANGE.":60000:90010:"THERE ARE ";CT;" RECORDS, NUMBERED 1-";CT;"."12:868:"WHICH RECORD DO YOU WANT TO CHANGE? ";RR$:RR$"E1:868:"ACCOUNT NUMBER NOT ON FILE...":4675{\21:1:868:"ARE ALL ENTRIES CORRECT? ";OK$:OK$(OK$,1):OK$"N"4770fOK$"Y"4700pCTCT1zD$;"WRITE RECEIPTS,R";CTCN$:IN$:DT$:GA:DI:DE:AN$D$;"WRITE RECEIPTS,R0"CTOT EXCEED GROSS MINUS DISCOUNT.":4650<>A2AN$"":4700C18:868:"ACCOUNT NUMBER:":VP18:HP17:LP3:EP3:Z00:59000:SS$"END"900HAN$SS$:(((AN$)))3Ģ21:"INVALID ACCT #. PLEASE RE-ENTER.":4675MI1N1:AN$AN$(I)4700.R:2DI$,(DI$)1)/16:DC$DI$:50000:E014600r DIDC:GADIĢ16:"DISCOUNT SHOULD BE LESS THAN GROSS.":4600%15:868*16:868:"DEDUCTION AMOUNT $";DE$:DE$"END"900/DC$DE$:18:500004E014650&9DEDC:DEGADIĢ18:"SHOULD N$,1)"%"4628<16:DC$(DI$,(DI$)1):50000:E014600 PCDC:PC100PC.5Ģ16:868:"INVALID PERCENTAGE AMOUNT.":4600DI(PCGA.5)100:DI$(DI.001):DI$(DI$,(DI$)1)14:18:"$";DI$;" (";PC;"%)":4645 (DI$,1)"$"DI$($:14:50000E014500QGADC:GA0Ģ14:"NO ZERO AMOUNTS, PLEASE.":4500A2GAAM(I)ĺ"INVOICE AMOUNT WAS $";AM(I):450014:868:"DISCOUNT AMOUNT:":"(YOU MAY ENTER DOLLARS OR PERCENT)"14:18:"";DI$DI$"END"900(DIOF THE MONTH:":VP10:HP19:LP2:590009rSS$"END"900O59500:E0142000(SS$)1(SS$)31Ģ12:"DATE SHOULD BE AN INTEGER FROM 1 TO 31":4200DM$SS$:DT$(DA$,3)DM$(DA$,3)12:868:"GROSS AMOUNT: $";GA$:GA$"END"900 DC$GA"END"900 IN$SS$:I1N2= CN$CN$(I)IN$IN$(I)4200i I::"THERE IS NO OPEN ITEM WITH THAT" :"CUSTOMER/INVOICE COMBINATION." 60000:3000: ** CASH SALE OR CASH ON ACCOUNT ** CN$"":IN$"":ZP0:EP2&h10:868:"DAY CCOUNT *** 6:868:"CUSTOMER NUMBER:"c Z00:EP2:VP6:HP18:LP4:Z00:59000:SS$"END"900 CN$SS$:I1N2:CN$(I)CN$3040 I:8:"NO OPEN ITEM WITH THAT CUSTOMER NUMBER.":3010  8:868:"INVOICE NUMBER:":VP8:HP17:LP3:59000:SS$22:868:"WHAT OPTION WOULD YOU LIKE? ";A$I A((A$)):A1AN930[ :10:HL$(0) 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 AT A PROOF", HL$(4)"CHANGE CASH RECEIPTS"N HL$(5)"DELETE CASH RECEIPTS"n HL$(6)"POST CASH RECEIPTS" HL$(7)"END THE PROGRAM" ::10:HL$(0) 19:"MENU":D$;"CLOSE" D$;"OPEN RECEIPTS,L57,D2" 7:I1N:I;". ";HL$(I)::-  TD$;"READ INVOICES,R";I; ^CN$(I),IN$(I),DT$(I),AM(I)G hI:EE0O rD$ :12:"ENTER RUN DATE:":VP12:HP18:62000 DA$D1$ N7:HL$(N):HL$(0)"CASH RECEIPTS PROGRAM" HL$(1)"CASH SALES" HL$(2)"CASH ON ACCOUNT" HL$(3)"PRINI1N1 12:17:I2 D$;"READ ACCOUNTS,R";IV AN$(I),TI$(I),BL$:BL(I)(BL$)b I:EE0t 12:17:868 "10:26:F$"INVOICES":F$ ,D$;"OPEN INVOICES,L31,D2" 6D$;"READ INVOICES,R0":N2 ;N2.5370 @EE1:I1N2 J12:17:I"LOADING FILE FROM DISK:"5 12:"RECORD NUMBER ="G D$(13)(4)\ D$"NOMON C,I,O"{ 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:/1, BUSINESS VOLUME 3 - FORMERLY "MICAS"R CASH RECEIPTS PROGRAM (CASHREC)p LAST UPDATE: 3/2/83 RPB( (C) MECC 1981261000d(13);(4);"MAXFILES 4"nAN$(100),CN$(100),IN$(100),TI$(100),BL(100),AM(100),DT$(100)x: 10:                4ЂI0E00::x ACCEPT INPUT OF SPECIFIC LENGTH]VP:HP:G71LP:"-";::" ";zHP:"";SS$:SS$"END"ıSS$""Z01ı(SS$)LPĢVPEP:868:"INVALID LENGTH.":59010`G71400:j24:7:"PRESS ";::"SPACE BAR";):8685lϭDC0ĺ"ONLY POSITIVE AMOUNTS, PLEASE.":rϭDC9999999ĺ"SHOULD BE LESS THAN 10 MILLION, PLEASE.":ρI01(DC$):CH$(DC$,I0,1)ϭCH$"."ĺ"NO FRACTIONAL AMOUNTS, PLEASE.":ЭCH$"0"CH$"9"ĺ"NO NON-NUMERIC CHARACTERS, PLEASE.":tL110:51090-~V$(B.001):L1(V$)1IV$(V$,L1):L1751110oV$(V$,L16)","(V$,6):L1L11ǭL111V$(V$,1)","(V$,10):L112V$PN$V$:L1L1(PN$)ǺZLL1);V$;:ϲ ACCEPT INPUT OF POSITIVE INTEGERS:E01:DC(DC$VJD$;"RUN HELLO,D1"A8Dz PRINT OUT A NUMBER TO 2 DECIMAL PLACES^=PN$"":B0BB:PN$"-"~BǭB.01V$".00":L13:51110LǭB9999999.99V$"*"(B)"*":L1(V$):51110VǭB999999.99951070`V$(B):(V$)7V$V$".00"jǭ(V$)9V$V$"0"QUIRE **%:"NUMBER ON HAND: ";NHC:"NUMBER ON ORDER: ";NO_:"REORDER POINT: ";RPx:"UNIT COST: $";UC:"UNIT SELLING PRICE: $";US6000011008J ** END THE PROGRAM **BJ:12:"ONE MOMENT PLEASE..."LJD$;"CLOSE"IT$:DE$:RP:NH:NO:UC:US:D$*1100CD$;"READ STOCK,R";IhIT$,DE$,RP$,NH$,NO$,UC$,US$:D$RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$)NHNHDC"D$;"WRITE STOCK,R";I,IT$:DE$:RP:NH:NO:UC:US:D$6900 ** INC:US:D$ 1100. ** SELL INVENTORY **K:"NUMBER ON HAND: ";NHp14:868:"QUANTITY SOLD? ";DC$DC$"END"90016:53000:E014020DCNHĺ"MUST BE LESS THAN NUMBER ON HAND.":4020NHNHDCD$;"WRITE STOCK,R";I NTORY **& :"NUMBER ON ORDER: ";NOO 14:868:"QUANTITY RECEIVED? ";DC$b DC$"END"900| 16:53000:E013020 NODCĺ"MUST BE LESS THAN NUMBER ON ORDER.":3020 NONODC:NHNHDC D$;"WRITE STOCK,R";I  IT$:DE$:RP:NH:NO:U";NH":"NUMBER ON ORDER: ";NO>:"REORDER POINT: ";RPf18:868:"QUANTITY ORDERED? ";DC$yDC$"END"900 20:53000:E012040NONODC D$;"WRITE STOCK,R";I*IT$:DE$:RP:NH:NO:UC:US:D$41100 ** RECEIVE INVE NOT ON FILE.":1105- tD$;"READ STOCK,R";IR ~IT$,DE$,RP$,NH$,NO$,UC$,US$:D$ RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$) 10:"DESCRIPTION: ";DE$ A2000,3000,4000,5000,19000  ** PURCHASE INVENTORY ** :"NUMBER ON HAND: ))2:HT:HL$(A)B A5ĺ" * TYPE 'END' TO QUIT THIS OPTION. *"L 34,5[ AN19000 L: - CODE COMMON TO ALL 4 PARTS Q8:868:"ITEM NUMBER:":VP8:HP14:LP4:EP2 V59000:SS$"END"900 `I1N2:SS$IT$(I)1140 jI::"ITEM NUMBER"INQUIRE"& HL$(5)"END THE PROGRAM": ::12:HL$(0)V 19:"MENU":D$;"CLOSE"r D$;"OPEN STOCK,L76,D2" 8:I1N:I;". ";HL$(I):: 20:868:"WHAT IS YOUR CHOICE? ";A$ A((A$)):A1AN930 :12:HL$(0) HT(42(HL$(A) D$;"READ STOCK,R";I# IT$(I)* I2 D$b :12:"ENTER RUN DATE:":VP12:HP18:62000n DA$D1$ N5:HL$(N):HL$(0)"INVENTORY PROGRAM" HL$(1)"PURCHASE INVENTORY" HL$(2)"RECEIVE INVENTORY" HL$(3)"SELL INVENTORY" HL$(4)ЖD$(13)(4)% D$;"NOMON C,I,O": 10:26:"STOCK"V D$;"OPEN STOCK,L76,D2"r 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, BUSINESS VOLUME 3 - FORMERLY "MICAS"M INVENTORY PROGRAM (INVENT)l LAST UPDATE: 4/10/82 RPB( (C) MECC 1981261000d(13);(4);"MAXFILES 4"nIT$(100)x:10:"LOADING FILE FROM DISK:"12:"RECORD NUMBER ="           00 P9003p ** AUTOMATIC CLOSING ENTRIES ** cz12::"WORKING!";::" DO NOT INTERRUPT."tTT0:I1N1AN$(I)"113"6070D$;"OPEN MISCELLANEOUS,L25,D2"D$;"WRITE MISCELLANEOUS,R1":(BL(I))D$;"CLOSE MISCELLANEOUS"!C715C70:60000:I:EE0DQ$"-----------":16);Q$;" ";Q$s 7);"TOTAL ";:BDT:51000:BTL:51000:(DTTL).005ĺ"IN BALANCE":5180"OUT OF BALANCE "("THE DIFFERENCE IS $";2B(DTTL):51000:<D$(13)(4)F600);"DEBIT";6);"CREDIT":DT0:TL06I139:"-";::OEE1:I1CT:C7C71jD$;"READ JOURNAL,R";IAC$,BL$,DT$:D$:BL(BL$)I10ĺ" ";I;" ";AC$;" ";DT$;:ZL12B(BL):BL.01ĺ12);:TLTLBBL.01DTDTB51000::N BALANCE":4230'h"OUT OF BALANCE "Kr:"THE DIFFERENCE IS ......$";c|B(DTTL):51000:D$(13)(4):D$;"PR#0"900 ** DISPLAY A PROOF ON THE SCREEN **D$(4):C70::8);"JOURNAL PROOF";3);DA$ " ACT DATE";11AC$,BL$,DT$:D$:BL(BL$)B"I10);I;5);AC$;3);DT$;:ZL13g,B(BL):BL.01ĺ13);:TLTLB|6BL.01DTDTB@51000::I:EE0JQ$"------------":22);Q$;" ";Q$T13);"TOTAL ";:BDT:51000:BTL:51000::^(DTTL).005ĺ"ID$"1"5000D:12:"POSITION THE FORMS ON THE PRINTER...":60000Y63000::D$(4)17);"JOURNAL PROOF":19);DA$:"RECORD ACCT# DATE";12);"DEBIT";7);"CREDIT":DT0:TL0I147:"=";::EE1:I1CTD$;"READ JOURNAL,R";ICT0Ģ12:"THERE ARE NO JOURNAL ENTRIES TO PRINT.":60000:900:8:"DO YOU WANT THE PROOF TO GO TO THE"::" 1) SCREEN OR"::" 2) PRINTER"14:868:"WHAT IS YOUR CHOICE? ";DD$:DD$"1"DD$"2"Ģ16:"ENTER 1 OR 2.":4030 F$"JOURNAL":DDC:E013770W20:868:"ARE ALL ENTRIES CORRECT? ";YN$:YN$(YN$,1):YN$"N"3000jYN$"Y"3790vCTCT1D$;"WRITE JOURNAL,R";CTAC$:BL:DT$D$;"WRITE JOURNAL,R0" CT:D$3000 ** PRINT A JOURNAL PROOF ** > MONTH:"8VP12:HP19:LP2:EP4:59000:SS$"END"900N59500:E013740(SS$)1(SS$)31Ģ16:"SHOULD BE AN INTEGER FROM 1 TO 31.":3740DM$SS$:DT$(DA$,3)DM$(DA$,3)16:868:"AMOUNT $";DC$DC$"END"900 20:50000:BL000& : ** JOURNAL ENTRIES ** f ~8:868:"ACCOUNT NUMBER: ---";:17:"";AC$:AC$"END"900 (AC$)3Ģ12:868:"INVALID LENGTH":3710 I1N1:AN$(I)AC$3740 I:12:868:"INVALID ACCOUNT NUMBER":371012:868:"DAY OF THE:I1N:I;". ";HL$(I)::E 22:868:"WHAT IS YOUR CHOICE? ";A$a A((A$)):A1AN930s :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,9000,19ANGE A PREVIOUS JOURNAL ENTRY"K HL$(4)"DELETE A PREVIOUS JOURNAL ENTRY"r 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,L27,D2" 7# AN$(I),TI$(I),BL$:BL(I)(BL$)2 12:17:I> I:EE0F D$v :12:"ENTER RUN DATE:":VP12:HP18:62000 DA$D1$ N7:HL$(N):HL$(0)"JOURNAL ENTRY PROGRAM" HL$(1)"JOURNAL ENTRIES" HL$(2)"PRINT A JOURNAL PROOF" HL$(3)"CH:"RECORD NUMBER ="% D$(13)(4): D$;"NOMONC,I,O"X D$;"OPEN JOURNAL,L27,D2"v D$;"READ JOURNAL,R0":CT 10:26:F$"ACCOUNTS":F$ D$;"OPEN ACCOUNTS,L40,D2" D$;"READ ACCOUNTS,R0":N1 EE1:I1N1 D$;"READ ACCOUNTS,R";I), BUSINESS VOLUME 3 - FORMERLY "MICAS"S JOURNAL ENTRY PROGRAM (JOURENT) q LAST UPDATE: 3/2/83 RPB( (C) MECC 1981261000d(13);(4);"MAXFILES 4"nAN$(100),TI$(100),BL(100)x:10:"LOADING FILE FROM DISK:" 12                    51000:'^W7W71:W717OK$"2"4210ahW70:60000:"RECORD CUST INV DATE";11);"AMOUNT":rI:EE0:27);"------------"|"TOTAL";21);:BTT:51000:OK$"1"İ60000:900I16::D$(13)(4):D$;"PR#0"900: ** CHA ";DA$:4120:15);DA$:J"RECORD CUST INV DATE";11);"AMOUNT"k"I139:"=";:::F$"SALES",ZL13:TT0:EE1:I1CT6D$;"READ SALES,R";I@CN$,IN$,DT$,AM$:D$:AM(AM$)JI10);I;5);CN$;" ";IN$;" ";DT$;TTTTTAM:BAM:+15:868:"WHAT IS YOUR CHOICE? ";OK$[OK$"1"OK$"2"ĺ:"ENTER 1 OR 2.":4050gD$(4)OK$"1"ĉ::W70:4100:12:"POSITION THE PAPER ON THE PRINTER...":6000063000I16:: 11);"SALES ENTRY PROOF";:W70ĺ" :AM D$;"WRITE SALES,R0") CT:D$3 3000N ** PRINT A PROOF ** :CT0Ģ10:"THERE ARE NO ACCOUNTS RECEIVABLE"::"OPEN ITEMS TO REPORT.":60000:9009:"DO YOU WANT THE PROOF"::" 1) ON THE SCREEN":" 2) ON THE PRINTER"DM$(DA$,3)Av 15:868:"AMOUNT OF SALE $";DC$:DC$"END"900[ 18:50000:E013190e AMDC 18:868:"ARE ALL ENTRIES CORRECT? ";OK$ OK$(OK$,1):OK$"N"3000 OK$"Y"3220 CTCT1 D$;"WRITE SALES,R",CT CN$:IN$:DT$ALES,R";I:C5$,I5$:D$2: 12:IN$I5$ĺW1$:30509D I\N 12:868:"DAY OF THE MONTH:"X VP12:HP19:LP2:59000:SS$"END"900] 59500:E013150b SS(SS$):SS1SS31Ģ15:"SHOULD BE AN INTEGER FROM 1 TO 31":3150 l DM$SS$:DT$(DA$,3)STOMER NUMBER.":30105 9:868:"INVOICE NUMBER:"_ VP9:HP17:LP3:59000:SS$"END"900} IN$SS$:59500:E013050 W1$"THAT INVOICE NUMBER ALREADY EXISTS." I1N3:IN$IN$(I)Ģ12:W1$:3050 I:CT03150& I1CT0 D$;"READ SEW A.R. OPEN ITEMS ** t CTN3100Ģ10:"THERE ARE NOW 100 OPEN ITEMS."::"NO MORE CAN BE ENTERED.":60000:900 6:868:"CUSTOMER NUMBER:" VP6:HP18:LP4:EP3:59000:SS$"END"900 CN$SS$:I1N2:CN$(I)CN$3050 I:9:"INVALID CUHL$(I)::420:868:"WHAT IS YOUR CHOICE? ";A$PA((A$)):A1AN930b:11:HL$(0)HT(42(HL$(A)))2:HT:HL$(A)A5A2ĺ" * TYPE 'END' TO QUIT THIS OPTION. *"34,5A3000,4000,5000,6000,7000,19000 : ** ENTER NL$(3)"CHANGE AN ACCTS REC OPEN ITEM"P HL$(4)"DELETE AN ACCTS REC OPEN ITEM" 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;". ";12:17:I& D$;"READ INVOICES,R";I6 C1$,IN$(I)B I:EE0J D$z :12:"ENTER RUN DATE:":VP12:HP18:62000 DA$D1$ N6:HL$(N):HL$(0)"SALES ENTRY PROGRAM" HL$(1)"ENTER NEW ACCTS REC OPEN ITEMS" HL$(2)"PRINT A PROOF"% H@EE1:I1N2 J12:17:I: TD$;"READ CUSTOMERS,R";IF ^CN$(I)R hI:EE0l rD$;"CLOSE CUSTOMERS"~ |12:17:868 10:26:F$"INVOICES ":F$ D$;"OPEN INVOICES,L31,D2" D$;"READ INVOICES,R0":N3 N3.5470 EE1:I1N3 NTS,R";I AN$(I) I:EE02 12:17:868Q "10:26:F$"CUSTOMERS":F$q ,D$;"OPEN CUSTOMERS,L80,D2" 6D$;"READ CUSTOMERS,R0":N2 ;N2.5ė:10:"THE CUSTOMER FILE IS EMPTY."::"USE 'FILE MAINTENANCE' TO ADD CUSTOMERS.":60000:19000 RECORD NUMBER ="" D$(13)(4)8 D$;"NOMON C,I,O"T D$;"OPEN SALES,L31,D2"p D$;"READ SALES,R0":CT 10:26:F$"ACCOUNTS":F$ D$;"OPEN ACCOUNTS,L40,D2" D$;"READ ACCOUNTS,R0":N1 EE1:I1N1 12:17:I D$;"READ ACCOU', BUSINESS VOLUME 3 - FORMERLY "MICAS"O SALES ENTRY PROGRAM (SALENT)m LAST UPDATE: 3/2/83 RPB( (C) MECC 1981261000d(13);(4);"MAXFILES 5"nCN$(100),AN$(100),IN$(100)x:10:"LOADING FILE FROM DISK:" 12:"                       3:VP18:HP17:59000:SS$"END"900q(SS$)100(SS$)999Ģ20:"SHOULD BE AN INTEGER FROM 100 TO 999":2250}AC$SS$I1N1:AN$(I)AC$2300I:20:868:"ACCOUNT NUMBER NOT ON FILE.":2250=20:868:"ARE ALL ENTRIES CORRECT? ";OK$:=DIDC:GDIĺ"DISCOUNT SHOULD BE LESS THAN GROSS.":2130K15:868|16:868:"DEDUCTION: $";DE$:DE$"END"90018:DC$DE$:50000:E012220DEDC:DEGDIĺ"SHOULD NOT EXCEED GROSS MINUS DISCOUNT.":2220$18:"ACCOUNT NUMBER:":LP1):50000:E012130SpPCDC:PC100PC.5Ģ16:"INVALID PERCENTAGE AMOUNT":2130zDI(PCG.5)100:DI$(DI.001):DI$(DI$,(DI$)1)14:11:"$";DI$;" (";PC;"%)":2210(DI$,1)"$"DI$(DI$,(DI$)1)16:DC$DI$:50000:E012130G$"END"900->14:DC$G$:50000:E012100hHGDC:G.01ĺ"GROSS SHOULD NOT BE ZERO, PLEASE.":2100R14:868:"DISCOUNT: ":"(YOU MAY ENTER DOLLARS OR PERCENT.)"\14:11:"";DI$:DI$"END"900f(DI$,1)"%"2190k16:DC$(DI$,(DI$)Ɍ86811:868^10:868:"DAY OF THE MONTH: ":LP2:VP10:HP19:59000:SS$"END"900t59500:E012070 (SS$)1(SS$)31Ģ12:"SHOULD BE AN INTEGER FROM 1 TO 31":2070*DM$SS$:DT$(DA$,3)DM$(DA$,3) 412:868:"GROSS: $";G$:RENT VENDOR.":2040%I:CT020705 I1CT:10a D$;"READ TEMP-VO,R";I:V1$,V2$,D3$:D$tVO$V2$206810:VN$V1$DT$D3$:"DATE: ";DT$:2100"THAT VOUCHER NUMBER HAS ALREADY BEEN":"USED WITH A DIFFERENT VENDOR.":2040I:11:IST.":2010Q8:868:"VOUCHER NUMBER:":VP8:HP17:LP3:59000:SS$"END"900oVO$SS$:59500:E012040I1N3:VO$VO$(I)205610:VN$V1$(I)DT$DT$(I):"DATE: ";DT$:2100"THAT VOUCHER NUMBER HAS ALREADY BEEN":"USED WITH A DIFFECTN3100Ģ10:"THERE ARE NOW 100 OUTSTANDING VOUCHERS."::"NO MORE CAN BE ADDED.":60000:9006:868:"VENDOR NUMBER:":HP16:VP6:LP4:EP2:Z00:59000:SS$"END"900VN$SS$:I1N2:VN$(I)VN$2040 I:8:"THAT VENDOR NUMBER DOES NOT EX0:868:"WHAT IS YOUR CHOICE? ";A$?A((A$)):A1AN930Q:10:HL$(0)uHT(42(HL$(A)))2:HT:HL$(A)A5A2ĺ" * TYPE 'END' TO QUIT THIS OPTION. *"34,5A2000,3000,4000,5000,6000,19000: ** ADD NEW VOUCHERS **aOF" HL$(3)"CHANGE VOUCHERS"= HL$(4)"DELETE VOUCHERS"l HL$(5)"POST TO OUTSTANDING VOUCHERS LIST" HL$(6)"END THE PROGRAM" ::10:HL$(0) 19:"MENU":D$;"CLOSE" D$;"OPEN TEMP-VO,L57,D2" 7:I1N:I;". ";HL$(I)::#2 D$;"READ VOUCHERS,R";I4 V1$(I),VO$(I),DT$(I)C 12:17:IO I:EE0W D$ :12:"ENTER RUN DATE:":VP12:HP18:62000 DA$D1$ N6:HL$(N):HL$(0)"VOUCHER ENTRY PROGRAM" HL$(1)"ADD NEW VOUCHERS" HL$(2)"PRINT A VOUCHER PRO00:19000 @EE1:I1N25 JD$;"READ VENDORS,R";IA TVN$(I)P ^12:17:I\ hI:EE0t rD$;"CLOSE VENDORS" 10:26:F$"VOUCHERS":F$:12:17:868 D$;"OPEN VOUCHERS,L57,D2" D$;"READ VOUCHERS,R0":N3 N3.5470 EE1:I1N3READ ACCOUNTS,R";I AN$(I)- 12:17:I9 I:EE0e "10:26:F$"VENDORS ":F$:12:17:868 ,D$;"OPEN VENDORS,L80,D2" 6D$;"READ VENDORS,R0":N2 ;N2.5ė:10:"THE VENDOR FILE IS EMPTY."::"USE 'FILE MAINTENANCE' TO ADD VENDORS.":600ROM DISK:"% 12:"RECORD NUMBER ="7 D$(13)(4)M D$;"NOMON C,I,O"k D$;"OPEN TEMP-VO,L57,D2" D$;"READ TEMP-VO,R0":CT 10:26:F$"ACCOUNTS":F$ D$;"OPEN ACCOUNTS,L40,D2" D$;"READ ACCOUNTS,R0":N1 EE1:I1N1 D$;"\1, BUSINESS VOLUME 3 - FORMERLY "MICAS"R VOUCHER ENTRY PROGRAM (VOUCENT)p LAST UPDATE: 3/2/83 RPB( (C) MECC 1981261000d(13);(4);"MAXFILES 5"nVN$(100),AN$(100),VO$(100),V1$(100),DT$(100)x: 10:"LOADING FILE F                       ;MI$(2);61(MI$(2)));"CHECK NO. ";CHC1;5((CH)));"/"^ "/ ";MI$(3);76(MI$(3)));"/" "/ ";MI$(4);76(MI$(4)));"/" "/";77);"/":"/ PAY TO THE ORDER OF:";8);:ZL12 NA$;28(NA$));"$";:BT:51000:7);"/"  "/";29);AD$;48(ENDOR VOUCHER";9);"GROSS";6);"DISCOUNT";5);"DEDUCTION";4);"NET AMOUNT /"xl "/ ";VN$(I);4);VO$(I);4);:ZL14v BG(I):51000:BDI(I):51000:BDE(I):51000:BT:51000:" /" "/";77);"/":"/";:K177:"=";::"/":"/";77);"/": "/ "D VENDORS,R";P(I)2& VN$,NA$,AD$,CI$,ST$,ZI$:D$Q0 TG(I)DI(I)DE(I):TTTTTc5 OK$"N"3320: "/";:K177:"=";:K:"/"D "/";6);DA$(I);16);"REMITTANCE ADVICE";N 14);"CHECK NO. ";CHC1;6((CHC1)));"/"X "/";77);"/"Ob "/ V:12:"NOW RELEASING THE CHECKS...":::V 34,16:D$(4):63000:C10:TT0:CHCH1x I1N3:P(I)0C1C11:3100 C103320 D$;"WRITE VOUCHERS,R";IC1 VN$(I):VO$(I):DT$(I):G(I):DI(I):DE(I):AN$(I) D$:3320 :::D$;"REAO BE RELEASED."; :"AFTER THEY ARE RELEASED, THE CHECK"i :"REGISTER WILL BE PRINTED. WOULD YOU" :"LIKE THE CHECKS TO BE PRINTED ALSO? ";OK$ OK$(OK$,1):OK$"Y"OK$"N"3012 :12:"POSITION THE PAPER IN THE PRINTER.":60000* 20:"ARE THE ABOVE ENTRIES CORRECT? ";OK$:OK$(OK$,1)JROK$"N"2000]\OK$"Y"2120{fCTCT1:P(I)J:DA$(I)D1$p2000 : PRINT THE CHECKS  2:868 12:CT0ĺ"NO CHECKS TO PRINT.":60000:19000 10:"THE CHECKS ARE READY TOUCHER NUMBER:":VP12:HP17:LP3:59000:VO$SS$C VO$"END"3000S16:I1N3{ 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:8H. *"34,3B: ACCEPT INPUT OF VENDOR/VOUCHER COMBINATIONS8:"VENDOR NUMBER:":VP8:HP16:LP4:EP4:59000:VN$SS$VN$"END"3000J1N2:VN$V$(J)2050J:12:868:"THERE IS NO VENDOR WITH THAT NUMBER.":2010/12:868:"VCH(CH):(CH)CH$ĺ"A WHOLE NUMBER, PLEASE.":640dCH1ĺ"A POSITIVE NUMBER, PLEASE.":640CH99999ĺ"LESS THAN 100000, PLEASE.":640CT0:TT0:I1100:P(I)0::11:"PRINT CHECKS PROGRAM"" * TYPE 'END' WHEN NO MORE ENTRIES(MI$(0))13 ]10:"BEGINNING CHECK NUMBER: ";CHc b12:868:"DO YOU WANT TO CHANGE IT? ";OK$ lOK$(OK$,1):OK$"N"700 vOK$"Y"610 {12:868 10:25:868:"";CH$ :868 CH(CH$):(CH)CH$ĺ"ONLY DIGITS, PLEASE.":640719000 I1N3 12:17:I< D$;"READ VOUCHERS,R";Ih 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$ X:CH000:19000 @I1N2% J12:17:I@ TD$;"READ VENDORS,R";IR ^V$(I),NA$(I)Y hIk |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:EAD ACCOUNTS,R";I A$(I)# I< D$;"CLOSE ACCOUNTS"N 12:17:868f "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.":60(100),A$(100),DA$(100) x:A 10:"LOADING FILE FROM DISK:"\ 12:"RECORD NUMBER ="n 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$;"R- BUSINESS VOLUME 3 - FORMERLY "MICAS" Q PRINT CHECKS PROGRAM (CHECKS)p LAST UPDATE: 3/15/83 RPB( (C) MECC 1981261000d(13);(4);"MAXFILES 4" nVN$(100),VO$(100),DT$(100),G(100),DI(100),DE(100),AN$(100),V$(100),NA$(100),P          ;"CLOSE STOCK"%U$"-------------":74);U$;15);U$a"TOTALS:";66);:ZL14:BTC:51000z14);:BTS:51000: I110::900p ** TRIAL BALANCE **z:10);"ACCT#";6);"DESCRIPTION";30);"DEBIT";12);"CREDIT" 10);:I17,US$:RP(RP$):NH(NH$):NO(NO$):UC(UC$):US(US$)YIT$;" ";DE$;22(DE$))ZL10:ZBNH:54000:ZBNO:54000:ZBRP:54000CUCNH:SUSNH:TCTCC:TSTSSZL14:BUC:51000:BC:51000BUS:51000:BS:51000:I:EE0D$ RE-ORDER PT UNIT COST TOTAL COST UNIT PRICE TOTAL VALUE"\I1115:"=";:::xD$;"OPEN STOCK,L76,D2"D$;"READ STOCK,R0":CT:F$"STOCK"TC0:TS0:CT.55085EE1:I1CTD$;"READ STOCK,R";IIT$,DE$,RP$,NH$,NO$,UC$ ** CHART OF ACCOUNTS **A:30);"NUMBER";7);"ACCOUNT TITLE"`30);:I135:"=";:::lI1N130);AN$(I);10);TI$(I)II110::900 ** INVENTORY STOCK STATUS **C:"ITEM DESCRIPTION";14);"ON HAND ON ORDER NAME";25);"ADDRESS";19);"CITY";16);"STATE ZIP"K I195:"=";:::W I1N3t D$;"READ CUSTOMERS,R";I CN$,NA$,AD$,CI$,ST$,ZI$ CN$;4);NA$;29(NA$));AD$;26(AD$));CI$;20(CI$));ST$;5);ZI$ I I110:: 9004);NA$;29(NA$));AD$;26(AD$));CI$;20(CI$));ST$;5);ZI$E IU*I110::^4900{ ** CUSTOMER DISPLAY ** N3.5ė:10:"THE CUSTOMER FILE IS EMPTY."::D$;"PR#0":"USE 'FILE MAINTENANCE' TO ADD CUSTOMERS.":60000:9003 :"NUMBER DOR FILE IS EMPTY."::D$;"PR#0":"USE 'FILE MAINTENANCE' TO ADD VENDORS.":60000:900:"NUMBER NAME";25);"ADDRESS";19);"CITY";16);"STATE ZIP"I195:"=";:::I1N2D$;"READ VENDORS,R";I VN$,NA$,AD$,CI$,ST$,ZI$>VN$;050912:"POSITION FORMS IN PRINTER...":60000:63000R(95(MI$))2);MI$q(95(HL$(A)))2);HL$(A)A9ĺ40);"AS OF ";DA$:A2000,3000,4000,5000,6000,7000,8000,9000,10000,19000 ** VENDOR DISPLAY **VN2.5ė:10:"THE VEN!:D$;"PR#0":::10:HL$(0)119:"MENU"Y6:I1N:1(I10):I;". ";HL$(I)k(I3)I3ĺrI22:868:"WHAT IS YOUR CHOICE? ";A$A((A$)):A1AN930:10:HL$(0)HT(42(HL$(A)))2:HT:HL$(A)34,3:A101HL$(3)"CHART OF ACCOUNTS"? HL$(4)"INVENTORY STOCK STATUS"Z HL$(5)"TRIAL BALANCE" HL$(6)"ACCTS RECEIV TRIAL BALANCE" HL$(7)"OUTSTANDING VOUCHERS" HL$(8)"BALANCE SHEET" HL$(9)"PROFIT/LOSS STATEMENT" HL$(10)"END THE PROGRAM"ELLANEOUS,L25,D2"6 D$;"READ MISCELLANEOUS,R2":MI$T D$;"CLOSE MISCELLANEOUS" :12:"ENTER RUN DATE:":VP12:HP18:62000 DA$D1$: N10:HL$(N):HL$(0)"PRINT REPORTS PROGRAM" HL$(1)"VENDOR DISPLAY" HL$(2)"CUSTOMER DISPLAY" ^VN$(I) hI:EE0* |12:17:868I 10:26:F$"CUSTOMERS":F$i D$;"OPEN CUSTOMERS,L80,D2" D$;"READ CUSTOMERS,R0":N3 N3.5470 EE1:I1N3 12:17:I D$;"READ CUSTOMERS,R";I CN$(I) I:EE0 D$;"OPEN MISCUNTS,R";I- AN$(I),TI$(I),BL$:BL(I)(BL$)E I:EE0:D$;"CLOSE"W 12:17:868z "10:26:868:F$"VENDORS":F$ ,D$;"OPEN VENDORS,L80,D2" 6D$;"READ VENDORS,R0":N2 ;N2.5380 @EE1:I1N2 J12:17:I TD$;"READ VENDORS,R";I,ST$(100) x:4 10:"LOADING FILE FROM DISK:"O 12:"RECORD NUMBER ="[ D$(4)q D$;"NOMON C,I,O" 10:26:F$"ACCOUNTS":F$ D$;"OPEN ACCOUNTS,L40,D2" D$;"READ ACCOUNTS,R0":N1 EE1:I1N1 12:17:I D$;"READ ACCO<,, BUSINESS VOLUME 3 - FORMERLY "MICAS"R PRINT REPORTS PROGRAM (REPORTS)p LAST UPDATE: 3/2/83 RPB( (C) MECC 1981261000d(13);(4);"MAXFILES 3"i(13);(4);"BLOAD SORT32,D1" nVN$(100),CN$(100),AN$(100),TI$(100),BL(100)             0 4000:CM$(I)S$ I:I9 *NUMI1:NUM0FT$"DEFAULTS":12:"RESETTING PRINTER OPTIONS TO DEFAULTS (SLOT SEARCH).":2100 ,20:868:"ARE THE ABOVE COMMANDS CORRECT? ";OK$ .OK$(OK$,1):OK$"N"2020 0OK$"Y"2092 4D$"WRITE"F$:1520 D$"WRITE"F$:FT$:SP( 3000? SPECIAL INTERFACER FT$"USER-SET"{ :4:"ENTER THE COMMANDS NECESSARY" "TO TURN ON YOUR PRINTER." :"(TO END, JUST PRESS 'RETURN'.)" I19 I8:" "I". ";:868:2500 S$""ĺ:209:11:"ARE YOU USING A COMMUNICATIONS CARD? ";CC$S CC$(CC$,1):CC$"N"2000f CC$"Y"1030 GET SPEED FOR COMM CARD FT$"COM-CARD" 14:"DO YOU WANT TO USE 10 OR 30 CHARACTERS" :"PER SECOND? ";SP$ SP(SP$):SP10SP30% & SET PRINTER OPTIONS PROGRAM 2.1CLAST UPDATE: 5/6/82 RPBV(C) MECC 1982ad9000snD$(13)(4)xTI$"SET PRINTER OPTIONS"::11:TI$:34,3F$"PRINTER COMMANDS"DETERMINE TYPE OF PRINTER FILE950,3:D$"OPEN"F$4 ԠōԠōэǠōàǠōŠӍҠؠƠЍà̠ōŠٍ֠ӠԠ׍ӠԍӍӠԍӠӍŠӠōҠŠŠӠōӠōŠŠō̍ǍӍԍ͠ҮŠѮŠԍ͠ҠƠэǍ͠ҠǍčȍӠōŠٍŠӍĠōŠ  CLOSE";F9$4LOOP1NUM*4CMD$(LOOP)44LOOP:4,132 3 3 DEFAULTS/SEARCH53D$;"PR#";(952)X3(151)3(151)4ĺ(9)"132N"^3u3D COMMANDS ON FILE3NF9$"PRINTER COMMANDS"3XD$;"OPEN";F9$;",D1"3bD$;"READ";F9$3lFTYPE$,NUM3vLOOP1NUM3CMD$(LOOP)3LOOP 4D$;"1ĺA7$;C7$;A7$;:D1$"":G7G71:62020L2.G77G74G78ĺA7$;C7$;A7$;:LL1r28G76G73ĺA7$;A7$;C7$;A7$;:LL22BD1$(D1$,(D1$)LL):G7G7LL:620202G7:2 DIVERT OUTPUT TO PRINTER2"(950)63100,63200,633002| COMM CARD3775:769G708:G72G75ĺ"/";:D1$D1$"/":62900C1DA7$:A7$(8)62500]1NA7$(13)G78629001SA7$(13)G70Z01D1$D2$:1XG78620201]A7$" "(G70G73)620601bA7$"0"A7$"9"620201lA7$;:D1$D1$A7$:629001$G7062020%2)G7ow wpO_X_lfW_{_>fwooq?868:20::(#ERROR RECOVERYB2#ER(222):LN(218)(219)256<#:12:ER4ĺ"ERROR NUMBER "ER" IN LINE "LN:5000:3000F#"PLEASE REMOVE THE WRITE PROTECT LABEL.":5000:CC$"N"2100P#15505:868:L(S$):K1LCC$(S$,K,1):A(C$):A32AA64:P(A);:W"K_,:vSPACE BAR ROUTINE24:7:16368,0"PRESS ";::"SPACE BAR";::" TO CONTINUE";Z01:ZC(16384):Z(ZC141)(ZC160):Z 16368,0:1:R$L(S$):L74140>K1L6:(S$,K,5)"CHR$("4090`JK6L:(S$,J,1)")"4080X$(S$,K5,JK5):X((X$))X0X127X0L$"":K1L$(S$,K1)R$"":LJR$(S$,LJ)S$L$(X)R$LKLJ:4090JK (A);::S$S$C$:2520( ( 16368,0:= END THE PROGRAMU D$"CLOSE"F$:950,0 :9:6:"IF YOU WISH, YOU MAY NOW PLACE" :8:"A WRITE-PROTECT STICKER ON" :6:"THE BUSINESS VOLUME 3 DISKETTE.":5000 D$"RUN HELLO"SCAN FOR CHFT$:NUM >Q$(34)4 HJ1NUM:Q$;CM$(J);Q$:J> R3000P STRING INPUTd S$"":16368,0 C$:A(C$):A132600 L(S$) A34(A8L0)2520 A82580 C$" "C$;:L1S$"":2520 S$(S$,L1):2520  A32AA64: îȠԍԠ̍΍ƠŠîȠԍŠˍˍΠҍŠōΠύ΍ҧӠōԠԠԍɍ̍ڠˠӍȠŠōӍ΍׮Ѯ̠ҠϮĠō΍΍ЍΠԍύ΍®ʮ٠ϮҠčӍ΍ӠčȠԍύ΍ϠӍԠȠōٍÍҧӠٍԠȠԍΠō΍֠ӍԠȠԍύ΍ӠٍҠŠԍ΍ϠӍōנˍٍԠȠԍ΍ԍˠˠӍԠĠԍٍ֍Ӡ΍ԠȠԍύ΍ΠōҠԲٍ̠Ԡԍύ΍̠ˠԍҠ     L8Hmx 6*+(n*+c*ȩ*h`HH$hH,b (hHI  X $ i$h`l&ӍѢǠōΠԍčԠΠԍנˍٍӠٍԠō΍΍Π̍ϠŮ΍΍Ӡ΍Ԡōύ΍͠͠ōҠԍō̧ӠӍԠΠԍӍ΍٠נύŠˍ΍΍٠Ġ̍Ԡԍנ͍΍ȠŠԍӍ΍ϠӍŠčӍ΍̠ĠԍĠōύ΍ŠϠӍΠōɍ͠ÍȠŠύ΍ŠԍōΠύ΍ӠӍ֍ΠٍύҠŠÍϱàٍ٠ԍԍ΍ĠÍԠ΍ύ΍Ϡ     0"^ 2DN:(1023)DNĹ950,0:230,64:D$;"BRUN LOGO":16299,0:16297,0:16302,0:16304,0 <DN$,D2$,N:MN$(N),CN$(N),DE$(N,DL) FSP$"":N1SP$"S" PI1N:MN$(I) ZCN$"YES"ćCN$(I) dJ1DL:DE$(I,J):J:I nP(I)(I)(I1)256z HELLO(VERSION 4.5 - MODIFIEDFLAST UPDATE: 3/14/83 RPBY(C) MECC 1982_t INITIALIZATIONSDL3:CN$"YES":CA$"NO":PR$"YES":DR$"NO":K48$"YES":IS$"YES"D$(13)(4):D$"NOMON CIO" (16372,0::::255:0:1:D$"PR#  ! ! ! !!!!!!!!!      TT TT`^U_Uij^U_Ukl8`iiLUȱȱȱ`^U_Uklmn)^U_UeeLnU8`ee` TffTTT`8 T ST8` T A731ee T80ee T`&&eeee`TSLjSAS TTTTL ERROR IN SORT CALL.6S TVARIABLEHS TSORT ARRAY\S TELEMENT COUNTTTT̢ U̢ U آ USS `U jj&&8   ˠ׍Ҡōҍ ύĠԍǠ̍ϠƯ͍Ԡҍˍ ӠׯҍŠҍҠǍŠˍ٠΍٠ōԠˍǠҍŠˍŠˍӍՠӍ̠ō̍ҍ   CASHRECW "PROCESSES ALL CASH RECEIPTS, EITHER","CASH SALES OR CASH ON ACCOUNT.",""nx INVENTORY,INVENT "PROCESSES THE PURCHASING, RECEIVING,","AND SELLING OF INVENTORY, AS WELL AS","ANSWERING INQUIRIES." JOURNAL ENTRY,JOURENT] "REC DISK,HOUSEKPmV "CREATES THE SECOND DISKETTE (THE DATA","FILE DISKETTE) FOR DOING STUDENT","ASSIGNMENTS." FILE MAINTENANCE,FILMAIN "MAKES ADDITIONS, DELETIONS, OR","CORRECTIONS TO THE DATA FILES ON THE","FILE DISKETTE." CASH RECEIPTS,CONTINUE";9Z01:ZC(16384):Z(ZC141)(ZC160):ZX16368,0:1:868:23:: USER DATA. FIRST LINE FORMAT:DISKETTE#,LINE 1 NAME,LINE 2 NAME(BLANK IF UNNEEDED,NUMBER OF MENU ITEMS 21,BUSINESS VOLUME 3,ACCOUNTING,10 L CREATE DATA3:D2$*\15:" DIRECT INQUIRIES TO:"f:13:"MECC DISTRIBUTION CENTER":13:"2520 BROADWAY DRIVE":13:"ST. PAUL, MN 55113":13:"(612) 638-0627"p900:9000:SPACE-BAR ROUTINE24:7:16368,0 "PRESS ";::"SPACE BAR";::" TO I,J)" "ĺ" "DE$(I,J)' J::I:900/*:F4SUPPORT BOOK INFOq>IP$"":IS$"YES"IP$"INSTRUCTIONAL "H4:17(IP$""):"A MANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILABLE FROM MECC."R11:" TITLE: ";DN$:D2$""Ė1CS:DISPLAY LOGO<J1600:(16384)128J600ZJ:16368,0:1023,DN::`tDESCRIPTIONS ::21(DN$)2:DN$:11:"PROGRAM DESCRIPTIONS":34,4:I1N:(37)21DLİ900: MN$(I)" -"J1DL:DE$(I,J)""DE$( OPTION4b::10:1:"DO YOU WANT TO RUN ANOTHER"flIN11:12:868:"DISKETTE? ";A$:A$(A$,1)vA$"N"ĉ::255::IN(A$"Y"):IN:11:8:"INSERT THE NEW DISKETTE."900:CS(P(P(999))1)16:SLOT #CS1CS7CS6N$(A)"...")PR$"YES"(950)0İ300008 955,(A1)VCN$"YES"ĺD$"RUN"CN$(A)iD$"RUN"MN$(A)&NOT ENOUGH MEMORY010:"SORRY, THIS APPLE DOES NOT HAVE ENOUGH ":"MEMORY TO RUN THIS DISKETTE."::"(48K IS NEEDED.)"D900XENDIONS"o ^A((A$)):A1AN2(A)A$ĢVV:958:VV2:6F35:"PLEASE TYPE A NUMBER FROM 1 TO "N2".";:IN0 hIN:AN2İ600 rAN1İ750:MENU0 |MENU SEED RANDOM # GENERATOR X(P(78)) GET THE PROGRAM ::12:"GETTING "MN2". END") ,RESPOND TO USER'S CHOICEB 6VVVV7:VV22VV22o @IN11:VV:6F35:"WHICH NUMBER? ";A$ JPR$"YES"A$"PR"ĺD$"RUN SET PRINTER OPTIONS" ODR$"YES"A$"DR"ĺD$"RUN SET DRIVE OPTIONS" TCA$"YES"A$(1)ĺD$"RUN TEACHER OPT# 5F5:6F35:"PROGRAM"SP$":"9 VV7F5:HH9F38` I1N:VV:HH(I10):I". "MN$(I) VVVV1:F3IC2VV7F5:HH22 I:VVVV2F2F3 VV:6F35:"OTHER OPTIONS:" VV2:9(N9):N1". PROGRAM DESCRIPTION"SP$ "VV3:9(N8):4 xC2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMSL F3N7:TWO COLUMNSs F5N14:FULL SCREEN (18 IS LIMIT) (1023)DNİ700 K48$"YES"(978)157İ550 DISPLAY MENU MENU11:1(D2$""):21(DN$)2:DN$ 2:21(D2$)2:D2$!! ! Fox? F>ppA}@x @OI?_}v}<{o?A?AX_{@@wF~_>?wv@yFx?@o@`B @}@?@_EyxA?oB}={C^o^k@|Bs @g"A~np{G~`{{aq{Bw@x @NO8oJV[_{]n]v= @}@?@_E}xA?oA}]A;?o@g@yB{ @s"@~nGun{~n{{n@{@wA?~Noxp67\_{]qcf? AwgBo@g@?@wAo@Ax?Co@ A?~D?x@F>{m?_9v@> @_A`C_@@_@~A{~A?@pD_0@G@~@~A?J]{o}_ow[g_ A{n%AsBo@x @|A?@x@OI>n?_}xA @_@yC_@@_A8A{~A? A?~Iwp`}xA Dx@sA~LxXc{o~_ow[k_ FoxG? DG|A}@x @J?_}v{}>{o7_H?X_s;wF|_>?gv@|F_x?@oA~ B?~xA~L0W]v[k6wmo.{~A?Oy>x`ow[m_?` Fox? Cq?@A}@| @?J?`}

x`T?8ok=?o{z^>?Wt?~FOx?@xA| @}J?`

x`@?@OE|xA?oE}@?7{Fox?@sD}|@qJ?_}v{}>{o7_@?@oL~xA?oOoy]_{?o@g@OB{ @}"qHpnpqan`{q@{@w@qAqA`}@O? AwsBo@@@w@n%Aw_Bo@p @qA?@x@g@O@|CO@@_@~A{~A? @Fk{m?_}v@> F?|@Bs @}?@w@gB?|@{@_? AwxBoA?~A_J|pn6|Xg]_cn%Aw_Bo@p @gA?@x@w@o@~Co@@_@~A{~A? @gF]{m?_}v@? F?~D~~B?~LPO>zog>{k/{~A?N|>{o7ow[n_? Fox> A?|@} A?~S?xp~@|_]n%Aw_Bo@x @A?@|@g@oA?~Co@ @|A? ApF>{m?_}v@? F?pAxB?CX_~zoF>{k/?{~A?N~>{o7owoW? Fox< A@@}@~D??|@_@OFox?@gD}x@GJ?_}~{}{w_@?@gK~xA?o/wu>o{C^o_kA~@_O~zog>{K/{~A?O?~>{o7_ow[oO? Bo8 A`@}@~A? @~@gFox?@OD}xA~J?_}~{}.{w_A?A|p{D@|~?~B1wv@wF?~xc?oIx p|ao?l@xBg @}?@s@OB@{@_"qK~{nqan{`xq`A~Bo@xA_J8onV;W[]_? @a@@D}x @xJ?`}|}6x`A?M8o{;?o{~_}~.wv@sF?x?@o@cBO @}?@{@Bo @_"nC~{v{nE{{wn{@ Bg@x @sA_JX_nfWO{]_>n%AwOBoA?~@? @o@g@?Co@ @qD?| @CI>{m?_}~C F?@C~`Q?a?lA?~Bg @O"M~n~{z{fn{{on{>Bw@p @gA_JX_nvW_{]_~n%AwoBo@|@? @o@w@?Co@ @GD?x @xF>{m?_mv@? F??`@A?`Q@?W~v[k>w-w.{~A?@M> x`\o_?@ FO0A?~@}@~A? @_Nqwlw`\o<>` FoxCo@ @D?xA?~F>{m?_Uv@? @AGC_@KX~nx1{~A?@GF_ @@|@~A? @_O?|k{o;_ow[o_?~_ Fox? @ AA}@x @cI?_}v}:{o?A?AX_{@?wF~_>wv@{G?x?o@A~B_ @}@?@@E{?|c@o}F`|` ` ʚhih@ (0: Hh @H(hJ)?Pp݄PD & &JJոP`)Bw@p @ON_X_lfW_{_>f%AwoBo@q@? @o@w@?" " " """""""""""