' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx͙ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠z# 6364 7364 8364 9364 :364 <364 >364 @364 G364 J364 P364 U364 S364 364 364 C364 364 364 364 364 12D007713C00771450077154007716*007717$007718007719007720007721007722 007723007724007725=007726007727007728007729$007730Y007731b007732c007733z007734007735q007736w364 364 364 364 364 *364 4364 536479007680007682007683007684007685007686007687007688007689007690007691007692007693007694007695007696N007697007698007699007700007701007702007703J007704007705007706d007707c007708b007709Y007710U007711P007745A007646!007647007648007649007650007651007652007653007654007655Q007657K007659 007660007661007662"007663#0076649007665007666G007667007668M007669R007670X007671d007672p007673007674007675007676007677007678007612,007613+007615)007616007617007618007619K007620X007621?007622007623007624007625007626007627007628007629007630007631\007632[007633Z007634007635007636007637007638007639007640.007641M007642O007643W007644C007678s007579b007580`007581^007582T007583 007584007585007586007587007588007589Q007590007591007592007593007594007595007598007599007600y007601"007602i007603a007604`007605_007606W007607A007608@007609=00761020076111007646*007547/0075482007549;007550E007551F007552007553007554007555007556007557007558007559%007560'007561;007562<007563>007564V007565j007566k007567o007568Y007569#007570 007571007572H007573007574|007575w007576v007577u007599l007500h007501m007502n007503o007504p007505q007506c007507r007509t007513x007514y007515z007516{007518}007519~007520007521007522007525007526007527007528007529007533007535007538007539007540I007543'007544(007545)007541v007442x007444|007445~007446007447007448007451 007452F007453007457007460007463007465007466007467007468{007475007477007478007480007481007482H007485_007487a007490d007491e007492f007495i007496g007497j007498k007483007384007389$0073903007392B007394007396O007397S007398007400l007401007403007404!007405(007410-007411.00741200074163007417600741870074198007420:007422?007425B007426007428[007429\007433e007434f007435h007438m007439n00749700729800729A00729Bt007301007313E007315/007318 007323I007329007330007343V007346N007348007349007350007352007356007358007360 007361 007364007365007369]007371007372007374007377007378}0073790073810073820073(\ H\hf /WHXhH\006207006949 006976%006977&007023R007057L007059007084007121u007122s007178&007187Z007188]007189^007193007194007206D007223007232007235007236 007241007253T007260L0072690072880072930072ΠԠͮĮԠĮϮ΍ΰՠ٠îЮϮؠٍ̠ΰנӠî24STE125STO126SUB000SUP127TAN128TCC129TIM130TIN000TOB000TOY000TRI131TVF132UNI000UNI002UNI133UNIT00USA000USE134VAL000VAL135VAL136VAL137VAL138VAL139VAL140VAL141VAN142VIC143VOL000WAS144WAS145WES1    αǯҍΰİǯҍΰȠԍΰԍΰȰǯҍΰӰǯҍΰԍΰðǯҍΰҰԍΰȠԍΰǯҍΰذǯҍΰȠԍΰȠP `  ` >  ` >   `ki li `ŠǠˠϮ׮̠Ůύ̍ΰ͠΍ĠŠӮŮ΍ΰҮԍŠӠîȠĠŮԠΰҮɍӮĮŠΠΰԍΰҰǯҍΰ԰ǯҍΰҰԍΰԍΰ̱ԍΰ°ԍΰɱδȠԍΰȠǯҍΰűԍΰ̱ԍΰȠǯҍΰȠԍΰԍΰձԍΰȠԍΰðԍΰȠԍΰΰԍΰͰǯҍΰɱıԍΰŰǯҍΰ԰ԍΰаԍΰŰԍΰҰǯҍΰ԰ԍΰðԍΰ̰ԍΰɱǯҍΰϰԍΰȠԍΰǯҍΰͰԍΰϰǯҍΰձԍΰԍΰаǯҍΰɱԍΰ̱ٱԍΰ԰ԍΰҰԍΰDZαԍΰ̰ԍΰԍΰ²ԍΰԍΰԍΰԍΰӰԍΰɱԍΰԍΰԍΰҰǯҍΰŰԍΰԍΰհԍΰҰԍΰװñԍΰձԍΰձǯҍΰȠİǯҍΰ²ԍΰȠčΰİǯҍΰҰǯҍΰǯҍΰ٠ӍԠĮ΍ΰĠӍŠԧ̠ԍŠΰΠĮ٠ӍΠŮΠΰҮȠčӮĠԮ΍ΰҮ̍ӮĠԮΠΰҠύӮ׮ԍ΍ΰðǯҍΰٱԍΰȠǯҍΰΰٰԍΰ°ǯҍΰ̰ԍΰԍΰԍΰαԍΰӰԍҰǯҍΰ̰ԍΰӰԍΰð̱ǯҍΰðԍΰҰǯҍΰٰǯҍΰӰԍΰҰǯҍΰİԍΰǯҍΰñԍΰҍΰ԰ԍΰİԍΰİԍΰǯҍΰ̱ǯҍΰȰǯҍΰİǯİǯҍΰϰǯҍΰİǯҍΰİ԰ǯҍΰİǯҍΰİԍΰ԰ԍΰȠǯҍΰðԍΰͰԍΰϰԍΰȰǯҍΰΰ²ԍΰϰǯҍΰԍΰΰԠàĠ٩ԠŠύٍ̠ΰ٠Π΍ȠŮϮΠΰǯҍΰ԰ԍΰȠԍΰŰǯҰԍΰҰԍΰǰԍΰձǯҍΰҰǯҍΰȠԍΰȠԍΰٰǯҍΰձǯҍΰűǯҍΰװԍΰձǯҍΰбǯҍΰٰǯҍΰİǯҍΰǯҍΰűǯҍΰİԍΰİǯҍΰԍΰǯҍΰȠǯҍΰ̱ԍΰԍΰԍΰӰȠԍΰаԍΰаǯҍΰŰǯҍΰҰԍΰͰǯҍΰĠǠōϮȍ΍ΰàԍЮϮؠҠčΰōΰԠàȩҠōΰԠàũȠŮōō̰ԍΰٰǯҍΰ԰ԍΰǯҍΰȠԍΰҰǯҍΰϰǯҍΰǯҍΰİԍΰӰǯҍΰṉ̃ǯҍΰɱԍΰ̱ǯҍΰҰ԰ԍΰ԰ǯҍΰаԍΰ԰ǯҍΰȰԍΰϰԍΰűǯҍΰ԰ǯҍΰ̱ǯҍΰҍΰűǯҍΰ̰ԍΰ̱ԍΰԍΰαԍΰðǯҍΰٰǯŰԍΰϱǯҍΰɱǯҍΰȠԍΰհԍΰҰԍΰİǯҍΰİǯҍΰȠԍΰȠԍΰӰԍΰ²ǯҍΰȠԍΰűǯҍΰǯҍΰԍΰİԍΰİԍΰ°ԍΰ̱ԍΰ԰ԍΰͰǯҍΰİΠ̍ȠŮϮԍΰˠîɠŠō̍ΰٱԍΰıԍΰŰǯҍΰǯҍΰðǯҍΰñԍΰİǯҍΰ̰ԍΰ̱ǯҍΰӰԍΰڰǯҍΰŰԍΰǯҍΰαԍΰɱԍΰȠԍΰԍΰ԰ԍΰϰԍΰ԰ŰǯҍΰǰԍΰαԍΰΰձǯҍΰҰǯҍΰԍΰǯҍΰαԍΰɱԍΰԍΰаԍΰȠǯҍΰԍΰ̰ԍΰΰԍΰαԍΰǯҍΰϰǯҍΰıǯҍΰб03rPUL104sQUE105tRAY106uRCP000REC107vRED108wREN109xREN110yREN111zREN112{ROO113}ROT000RWN000~SAL114SDR000SEA000SEA111SEA116SEA117SHA000SHE000SHE111SHE118SKC119SOU0008SOU111SOU120SOU121SOU122STA000STA123STE185^NAP086_NIC043`NOR087aNOR088bNOR089cNOR090dNOR092eNOR093fNUW000OFF095gONW000OWE096iPAC000APAC001PAC002PAC097jPAC098kPAN000=PAY099lPBC000PED000PEP100mPGA000nPOR000oPOR050PRO000PRO001PRO010PRO101pPSI0009PUB102qPUG160BHLS061CHOL000HYD063DIES064EITT066GJAZ000HJEM067IJLO000KAM068JKEL069KKER000KEY070LKIN071MKOL072NKRA0000KSC000LAI073OLEI074PLIF000QLYO000MAN076RMAR077SMAR078TMAZ075UMEA000VMET000MET081YMIT082ZMOL000[MOO083\MOT084]MUS035'DRP000DRP036(DRQ000DRR003DRR037)DRR038*DRR039+DRS000DRS040,DRS041-DRS042.DRS111FDRS115/EDD0441EDM0492ELE0453ENV0464EXP0475FAR0006FAT0487FIN000 FIR000FLO000FOX052:FUT000FWR000GIB054<GLE000XGRA056>HAR057?HAR058@HHD018COF017COM000COR019CRA020CSM000CUS000DAV021DES000DRA030DRB000DRB001DRB023DRB111DRB222DRD000DRD001DRD050;DRG025DRG050DRH000DRH026DRH027DRH028 DRH029!DRH050DRH062"DRJ031#DRM000DRM032$DRM033%DRN034&DRO0>H5>]E]ET%11@WHI0ACM000ALB000|ALW001AME000AMT002ANA003AND004APO005ART000ATA091AUB000AUT007BBC010 BEH000BES011 BLU012 BOS013 BRA014BRB000BRF000BRN000BRS000CAS000hCAS015CASH CBE016CED000WCFS0  ɱǯҍΰϰԍΰɱǯҍΰΰ԰ԍΰ̰ǯҍΰٱԍΰͰԍΰűǯҍΰǯҍΰаԍΰ̰ԍΰذԍΰ̱ǯҍΰԍΰɱǯҍΰԍΰűԍΰıԍΰҰԍҰǯҍΰȠǯҍΰ̰ǯҍΰűűǯҍΰűԍΰԍΰ̱ԍΰٱԍΰðԍΰڰǯҍΰٱǯҍΰӰԍΰҍΰñԍΰűǯҍΰӱǯҍΰǯҍΰŰԍΰӰԍΰͱǯ̱ԍΰͱǯҍΰٰǯҍΰӰ٠΍àٮӮōΰҮȠӍԠĠϠ΍ΰİԍΰȠԍΰñǯҍΰֲĠƠōȠōԍΰҠ΍Ԡ٠ٍ΍ΰΰȠůӍĠүΠ̠ōΰԍȠŠϮԍΰ٠ōōΰΠ͍ȠŠϮԍΰҮٍĠŠήŮ΍ӍӠŠˍ΍ΰΠ΍ϮȠԍԍΰΠō٠ӍȠӮ׮ŠҮΰȮҠ̍ҠˠԍŠΰΠϠΠîȠŠϮԍΰÍϮȠōԍΰ٠ÍԠĠϮ΍ΰ٠٠Íˠč΍ΰ٠̠ōԠĠϮ΍ΰ٠̍Ӯ׮Ġԍ΍ΰΰ٠ٍԠĠϮ΍ΰ٠ҠŠԍϮԠō΍ΰԍΰծӮàîٍ̠čΰ٠ǠîϮҠč΍ԠŠȍōΰԮ֮ӍӮŮĠč΍ΰĠҠٍϮȍĠӍâԍ΍ΰӠҠӍ̠ĮϮԠΰɭȠԮӍύϮȠԍԍΰԮî٧ӍӮ׮Ġԍ΍ΰٍΰҠԠԍӮ׮Ƞԍ΍ΰ؍ϮȠōԍΰԠٍԠ٠čԍΰˠϮîҠˠԍōΰǠӍԠŠȍōΰΰĠҠîԠ٠ٍԍΰȠ̠Ԡ٠č΍ΰŠϮ΍ΰÍϮȍԍΰҮ΍ԠĮϮ΍ҠˠōΰΠîîҠ̮ŠΰέΠ΍ҠԠ̠ϮȠŠϮԍΰŠōϮ٠٠΍ΰҠנӠҠˮŮΰΠӮ׮Ġԍ΍ΰŠǍӮ׮ĠԍΠΰƠӍήŮȍčΰΠŠԍ̠ŠϮ΍ΰΠŠٍϮ٠ٍ΍ΰΰΠүōҠŠϮ΍ΰΠԠԍήŮĠԠ΍ΰԍ΍ΰ٠ӍҠ٠Ϯ΍ΰĠԠ̍Ӯ׮Ġԍ΍Ԡ٠č΍ΰΠ̠ӍˠŮϮ΍ΰϠ̠ōӮ׮ԠΠōȠŠӮŮ΍ΰԠĠӍӮ׮Ԡԍ΍ΰŠӠîĠٍЮϮؠčҍΰϠӠӍĠŠϮԍΰϠÍԠ٠ٍ΍ΰРǠӍԠ٠ٍԠΰàҍϮȠԍԍΰ٧ΠˍϮ̍ԍΰΰӭǠӍҠˠԠΰàӠōԠ٠č΍ΰ΍ΰŠӍӮ׮Ġԍ΍ΰŠ٠îԠĮϮ΍ŠϮԍΰԠ΍ȠԍԍΰΠٍԠĮϮϠîӮ׮Ġԍ΍ΰԠĠӍԠ٠č΍ΰԠÍĠ؍ԠĮϮ΍ΰΠ͍Ӯ׮Ԡԍ΍ΰΠà̍ΠŠϮ΍ΰ΍ϮȠԍԍΰŠӠӍҠĠΰҠٍ̠ĠŠϮԍΰ̠ǠōҠٍōΰŠΠٍӮ׮ԠԮ΍ΰΰΠҍȠŮŠŠΰϠҠԍҠč΍ΰΰԠӠîϠȍԍΰčȠ̠ϮԍΰŮǠōΰԠ̠ōȠȍōΰ΍Ϯȍԍנ͍ϮȍԠΰԠӍҠĠōΰ؍ȠŠήǠծӮӍĠŠϮǠԍΰŠӠîӮ׮Ԡԍ΍ΰǠӠϮȠŠϮԍΰ̠ǠōӮ׮Ġԍ΍ΰ٠Ƞō Ӯ׮٠ٍ΍ΰ٠̠ƠȮȠŠϮԍΰҠîȠӮ׮ŠӍΰҠ΍àŠȠōΰΰԠ̠ŠÍϮ̠̠ԍΰōЮϮؠ΍ΰԍΰӍӮ׮Ԡԍ΍ΰҮǍӮ׮ĠԮ΍ӍȠŠϮԍΰŠנōԍΰàҍϮȍˠčϮ٠٠΍ΰàΠͮŮ٠ĮΠΰȠȠōȠԍԍΰ٠РӍȠŠȍōΰΠٍήŮԠč΍ΰÍĠŮӮ׮΍ΰΰؠΠԮӠ٠٠΍ΰҮԠ΍ԠĮ΍ΰΰĠ΍Ҡˠ׮ΰɠîĠԍΰΰΰĠӍȠӮŮ΍ΰŠ٠îҠˠԍōԠԍ΍ΰ̠ȍà٠ϮōΰӠōϮ̍ԍҍϮȍԍΰΧӠ٠îӮ׮Ġԍ΍ΰϠӍӮҮΠ΍Ԡ٠č΍ΰԠîĠōנ٠ŠұԍΰŠҮĠٍҠĠΰҮ̮׮׍ԠĮϮ΍ΰҮʮЮ΍Ӯ׮Ԡԍ΍ΰҮĠ΍ԠĮϮ΍ΰҮύԠĮϮ΍ΰԠ̠îԠĮϮ΍ΰΰҮ̠ϧ̍ˠĮϮ΍ΰҮ̮ӍԠĮϮ΍ΰč΍ΰҮԠčԠĮϮ΍ΰҮ̮ĮčҠĠ׍ԠĮϮ΍ΰҮҮԍϮĠŠ΍ΰҮȮٍҮĮĮčԠĮϮ΍ΰҮǮЮǍԠĮϮ΍ΰҮĠҮӠǍԠĮϮ΍ΰҮΠōԠĮϮ΍ΰԠǠϮȠ֠ӠŠ΍ΰҮĮ̮ӍԠĮϮ΍ΰҮՍҠĮΰҮĠ΍ԠĮϮ΍ΰΰΠҠȍҠŮϮ΍ΰŠЭɍЮϮؠ΍ΰϮ΍ΰǠҠԍԠ٠č΍ΰĠˠîĠŠϮԍϮ̠٠ԍΰ٭ӠîΠ֠Ӡōΰ̠٠ٍԠԍȠŠϮԍΰӠ̍Ӯ׮ȍ΍ΰŠǠӍŠΠōĠŠϮԍΰҠٍΰí Ƞ֠Ơ΍Ҡˠԍΰ٠ԧ̠ӍĠŠӮ׮΍ΰԠŠ̍ЮϮؠøōΰŠΠٍȠȍōΰΰ̠ӍϮ̠̮ԍΰ®®îōԠŠȍōΰΰԠ٠ӍȠŮŠ΍ΰŠӍϮȠԍԍԍ΍ΰϠàӍҠčōΰӠӍӮ׮ȍ΍ȠŠύԍΰǠӍӮ׮ĠԮŠč΍ΰ٧Ӡ̍Ӯ׮Ԡ؍؍؍؍؍؍؍ΰ̠ǠӍҠĠōΰͭÍ                                                    ٰԍΰذǯҍΰϰǯҍΰαԍΰȠԍΰ԰ԍΰϰǯҍΰͱǯҍΰŰԍΰԍΰϰǯҍΰűǯҍΰðԍΰԍΰȰǯҍΰıǯҍΰ̱46WES147WES148WHI150WIL000WIL050WIL151WOR152YOR000YOU153cϰǯҍΰͰǯҍΰŰǯҍΰڰ̰ԍΰϰԍΰӰǯҍΰӠ٠٠ΠΰҠӠîӠŠӠ΍ΰԠàȩȠŠōŴαԍΰ̱ǯҍΰϰǯҍΰаԍΰ̱ǯҍΰ̰ԍΰǯҍΰ̰ԍΰȠԍΰǯҍΰԍΰȠǯҍΰ԰ǯҍΰŰͰԍΰͰԍΰϰԍΰ԰űԍΰŰǯҍΰͰǯҍΰȠǯҍΰ̱ԍΰǰԍΰz#????     ŠЙӠ ŭԠ ͠͠ Ԯʠ Ƞ ͙ՠŮʠӠӠҠŠmșɠ Ӡ ӠC$"REQ"C$"-9999":1F:18:"REQ":JD(J,F)(C$):2335a+ 1F:18:(PF$SP$,21):JD(J,F)(C$)k+ 2278y+$ J32350+) 2145+. :12:7:+3 FU1ĺ"ENTER ";+8 FU5ĺ"CHANGE ";+= "MISC. CHARGES (Y/N) ";,B Y$:Y$"Y"Y$"N"Y$(27)23599JD(J,F)0IJD(J,F):2359* JD(J,F)9999PF$"REQ"T* 23:5:(PF$SP$,30);f* 23:5:"";C$w* 1F:1:F$;* C$""2278* (C$,1)"*"C$""* (C$,1)(2)FU1İ545:15:"PRESS RETURN ";Y$:560:595:23:1:F$:23107+ I(C$):235:25)ı)PF$"":IW$""(IW$,1)" "FU5Ģ24:1:"WO MUST BE REVERSED THEN CHANGE CHARGES";:A11500:A:24:1:(SP$,39);:N$"N":CD$"":)(F$)27IR$"R"IR$"":FU6:)(F$)272340)F1FLM2280)FLME1:2280*JD(J,F)99P$,21):JI$(J,F)(C$,OL(F))%(2224@(560: GET DOLLAR INFO(FU1E0:F$(65):F1:595:23:1:F$::1F:1:F$;::2310(FU1E0F$((F$)1):F(F$)64:E1(FLM1):FLM1İ595:23:1:F$::1F:1:F$;::2297)595:F(F$)64:F$((F$)64:F$(25)ı('(F$)272275;'F1F202225O'F20E1:2225o'23:5:(JI$(J,F)SP$,30);'23:5:"";C$'1F:1:F$;'C$""2224'C$"Y"C$"YES"'C$"N"C$"NO"'(C$,1)"*"C$""(1F:18:((C$,OL(F))S(C$,1)"*"C$""%&JD$(J)(C$,40)<&IR$"R"ĉ::2275T&545: GET JOB INFO&FU1E0:F$(65):F1:595:23:1:F$::1F:1:F$;::2240&FU1E0F$((F$)1):F(F$)64:E1(F21):F21İ595:23:1:F$::1F:1:F$;::2236'595:F'%zR$"R"J2(Y$"N"Y$(27))2350A%Y$"N"Y$(27)2350G%\%FU1ĺ"ENTER ";r%FU5ĺ"CHANGE ";%"JOB "J" DESCRIPTION (40 CHARS MAX)"%2:(JD$(J)SP$,40);:2:1:"";C$:C$(25)ı%IR$"R"2210%C$""C$(27)2220&΍΍΍Ҡ٠ǠҍӮ׮ĠԍΠٍٍٍٍ΍ٍٍٍٍٍٍٍЍŰǯҍΰذǯҍΰͰԍΰz   Ұԍΰհԍΰðԍΰ̠٠ٍӠȠٍ̠̍ΰҭύϮҠĮ΍ΰҮĠȱȠŠύԍΰˠǭҍנԍ΍ΰ͠ǠîЮϮؠĠנҮϮ٠٠Š΍ΰҠǠҠϮϮȠԍԍΰ̠ŠÍŮ٠Į΍ΰŠӍӠӠ٠ӮŠΰҠ: X13::*" ";:4Y174:>SZ11:Y7SZ13L:HX3Y7ĺ" ":4730x:RLE(ACT$(Y((X1)7))):LL((SZLE)2):\L$(SP$ACT$(Y((X1)7)),LELL):L$(L$SP$,SZ):fY7ĺL$:4730:pL$;:zY:Z17:JDJD(J,Z((X1)7));JD99994(JI$(J,13)))JI$(J,14)05(JI$(J,14)));9JI$(J,15)03(JI$(J,15)))JI$(J,16)05(JI$(J,16)))JI$(J,17)03(JI$(J,17)))JI$(J,18)04(JI$(J,18)))(JI$(J,19),6)9" "9" "JI$(J,20)9 Z120:JD(J,Z)9999JD(J,21)JD(J,21)JD(J,Z)9Z J,3)))JI$(J,4)05(JI$(J,4)))JI$(J,5)09(JI$(J,5)))JI$(J,6)14(JI$(J,6)))(JI$(J,07)SP$,29)j8" "*9" "JI$(J,08)21(JI$(J,08)))JI$(J,09)16(JI$(J,09)))JI$(J,10)04(JI$(J,10)))JI$(J,11)04(JI$(J,11)))JI$(J,12)04(JI$(J,12)))JI$(J,13)0))OI$(7)7" "_7" "OI$(8)11(OI$(8)))OI$(9)11(OI$(9)))OI$(10)11(OI$(10)))OI$(11)7" ":J13:JD$(J)""(JD$(J),1)" "āX113:" ":X:4820723)JD$(J):" "a85)JI$(J,1)06(JI$(J,1)))JI$(J,2)08(JI$(J,2)))JI$(J,3)04(JI$(52006953006955006957 006958!006959"006960#006961$006962%006963&006964'006965(006966)006967*006968+006969,006970-006971/0069720006973100697420069753006976400697750069786006979700698080069819006982:006983;006984<006985=006916006917006918006919006920006922006923006924006925006926006927006928006929 006930 006931 006932 006933 006934006935006936006937006938006939006940006944006945006946006947006948006949006950006951006981006882^006883006884`006885006886b006887006888d006889006890f006891006892h006893006894006895006896006897006898006899006900006901006902006903006905006907006908006909006911006912006913006914006915006948006849006850006851006852006853006854006855006856006857006858006859006860006861006862006863006864006865006866006867006869006870006871006872006873006874006875006876006877006878Z006879006880\006815006816006817006818 006819006820"006821006822$006823006824&006825006826(006827006828006829006830006831006832006833006834006835006836006837006839006840006841006842006843006844006845006846006847006876}006777~006778006779006783006785006786006787006788006789006790006791006792006793006795006796006798006799006800006801006802006803006804006805006806006807006808006809006810006811006813006814006838]006739^006741_006743`006744a006745b006747c006748d006749e006750f006751g006752h006754i006755j006757k006758l006759m006760n006761o006762p006763q006764r006765s006766t006767u006768v006770w006771x006772y006773z006774{006775|0067 (4);"RUN MENU" , ϰǯҍΰаǯҍΰҰǯҍΰԠԠōĠӮӭŠΰ̠ԮӮ׮Ġ΍ΰٍӮĮͮĮˠŮϮ΍ΰȍӮĠŠōΰĠȍЮϮؠ,1))),7);4Dw(JI$(J,5))0ĺ" ";:5510aD|(" "((JI$(J,5))),11)" ";|D(JD$(J)SP$SP$,50);DIJD(J,21):235:(" "PF$,9)D" "DJDA13:MD(A)0ĺ" ":5580D52)(MD$(A)SP$,20);EIMD(A):23),2)"/"(OI$(1),3,2)"/"(OI$(1),5,2)6C6" ":" "EC@7)AF$(3)TCJ7)AF$(4)wCT7)AF$(5)", "AF$(6)". "AF$(7)C^A17:" ":AChJ13:JD$(J)""(JD$(J),1)" "ĺ" ":" ":5540Cm(JI$(J,1))0ĺ" ";:5495 Dr(" "((JI$(JWK$:5380ABD$(OI$(4),2)"/"(OI$(4),3,2)"/"(OI$(4),5,2)pB(D$" ",11)("000000"(IV),6)B" ":" ":SIVIVBQ$"Y"ĺ" ":" ":" ":5430B54)("000000"((AF$(1))),6)" "OI$(5)B"" "(C,52)(AF$(9)SP$,16)(OI$(13:MD(A)99996090AA11:5:"YOU HAVE "XM" WORKORDERS ON FILE."[>15:5:"PRESS RETURN";:Y$f>CD$""l>~>N$"Y":4000:>C$(25)ı> N$"N"5110>R$"R":J0:2035>Y$"C"C$(25)F$(25)N$"N"ı>(CMCX>2385:5110><7320J΍΍΍Ҡ٠ǠҍӮ׮ĠԍΠٍٍٍٍٍٍٍٍٍٍٍ΍ЍΰǯҍΰǯҍΰαǯҍΰǯҍΰӰǯҍΰذǯҍΰذǯҍǯҍΰϰǯҍΰŰǯҍΰϰǯҍΰҰǯҍΰװǯҍΰٰǯҍΰɱǯҍΰ԰ǯҍΰаǯҍΰϱԍΰİǯҍΰ԰԰ǯҍΰɱԍΰȠǯҍΰ԰ԍΰ԰ԍΰȰǍΰҰ԰ǍΰİǍΰڰԍΰְǍΰаǍΰ԰Ǎΰ԰ǍΰٱǍΰҰǍΰԍΰưԍΰȰǍΰҰԍΰǍΰ̰ԍΰ̰ԍΰűӰӍΰ̱ӍΰӱǍΰ̱ͰǍΰİǍΰDZӍΰǰԍΰذǍΰ̱ǍΰŰӍΰǍΰİǍΰԍΰŰԍΰŰԍΰŰԍΰԍΰŰԍΰŰԍΰŰ_  L  L`kili !L3ii  LPTALS":A13:B125:AC(A,B):B,A:A125:ACT$(A):AN.A13:LT$(A):A:A125:AN$(A):A:RA$:RP:VN$:CD$"CLOSE DEF-TOTALS"N8Q(1)IV OBCD$"OPEN BNAME,D1,V1":CD$"WRITE BNAME":BN$:BA$:BC$:A120:Q(A):A:A145:Q$(A):A:DT$:TM$:A14X1M:AF$(X)"X":X9M6550:AF$(2)(AA%(5)):CM0:380QMA(PC)(PC1)256MCD$"":CD$"BSAVE "HK$",A"L",L"AL",D2,V23"M6440MCD$"OPEN WOCNT,D2,V23":CD$"WRITEWOCNT":WN:CD$"CLOSEWOCNT"6N$CD$"OPEN DEF-TOTALS,D2,V23":CD$"WRITE DEF-TOAC(C,A)MD(B)):C:MD(B)0"LB:mLB13:(MD$(B),4)"WASH"āC13:AC(C,A)I(AC(C,A)MD(B)):C:MD(B)0vLB:L24:4:"REQUIRED CHARGES MUST BE ENTERED ";:A11000:A:24:1:(SP$,39);L5190L160:CD$"CLOSE CUSTOMER FILE":6170M(AF$(11),1)"Y"AF$(11)""āA13:AC(A,23)I(AC(A,23)SB):AVKp ACCUM NON-TAXABLESKz(AF$(11),1)"N"āA13:AC(A,24)I(AC(A,24)SB):AK ACCUM TAXESKA13:AC(A,25)I(AC(A,25)TX):AKLB13:(MD$(B),4)"TYPE"āC13:AC(C,A)I( ACCUM AR'J*(AF$(12),1)"Y"5960NJ4A13:AC(A,21)I(AC(A,21)BL):AtJ> ACCUM CASH WITH BL AND DEPOSITSJHA13:AC(A,22)I(AC(A,22)(AF$(13))):(AF$(12),1)"Y"AC(A,22)I(AC(A,22)BL)JRAJ\ ACCUM TAXABLES=Kf(AF$(11),1)" "İ6050 IA4IA120:(ACT$(A),4)"WASH"İ6070;IANIA13:B120~IAC(A,B)I(AC(A,B)JD(1,B)JD(2,B)JD(3,B))IB,AIA2011:ACT$(A)""(ACT$(A),1)" "CA:A0IAI A13:AC(A,C)I(AC(A,C)MD(1)MD(2)MD(3))IA J )0ĺ"BAD INV. ADD "SIV2H6550:CMAA%(6):220HA((PC)(PC1)256)8:B(PS9)(PS10)256:(A)255B399Ģ24:"A/R FILE IS FULL-CANNOT ADD ANY MORE!";:A110000:A:AF1H170:155H ACCUMULATE TOTALSIA120:(ACT$(A),4)"TYPE"΍΍΍΍΍Ҡ٠ǠҍӮ׮ĠԍΠٍٍٍٍٍٍٍٍٍٍٍ΍ЍΰàӍԠĠȍ΍ΰҠōӮ׮Ġԍ΍ѰԍΰҰǯҍΰҰԍΰűǯҍΰȰԍΰðǯҍΰǯҍΰϰǯҍΰðǯҍΰӰԍΰǯҍΰذǯҍΰԍΰԍΰаǯҍΰΰǯҍΰ԰ U364 r364 364 364 364 P364 g364 364 364 "364 364 )364 364 364 364 364 364 364 364 364 364 364 364 364 D364 +364 ,364 -364 0364 1364 4364 53640 ]vA=]A13:AC(A,C)I(AC(A,C)MD(1)MD(2)MD(3)):Av](AF$(12),1)"Y"āA13:AC(A,21)I(AC(A,21)BL):A]A13:AC(A,22)I(AC(A,22)(AF$(13))):(AF$(12),1)"Y"AC(A,22)I(AC(A,22)BL)]A*^(AF$(11),1)" "(AF$(11),1)"Y"AF$$(11),1)"N"TXSBQ(5)1000;\:TTSBTX:BLTT(AF$(13))a\DW$""I((E$(9)))I(BL)7160t\NW$""IW$W$\X REVERSE TOTALS\bA13:B120:AC(A,B)I(AC(A,B)JD(1,B)JD(2,B)JD(3,B)):B,A]lA2011:ACT$(A)""(ACT$(A),1)""CA:ARSE THE ABOVE W.O. (Y/N) ";:Y$:Y$"Y"Y$"N"6900F[Y$"N"6810c[::12:17:"WORKING":[A13:JD(A,21)0:A:A13:B120:[JD(A,21)JD(A,21)JD(A,B):B,A:SBJD(1,21)JD(2,21)JD(3,21)[&A13:SBSBMD(A):A:SBI(SB):TX0\0(AF"N"6840ZY$"N"6810Z:"ENTER THE OLD INVOICE NUMBER ";Y$:W$("000000"((Y$)),6):160:165:A$W$:60:FC,3:455:(RT)2NB2:155:7160Z6550:ZRAA%(6):155ZCD$"READ ACCOUNTS RECEIVABLES,R"ZR:A19:E$(A):A:CD$""5[15:5:"REVERATED FOR WO";:A13000:A:24:1:(SP$,39);Y:"IF THIS IS A PREVIOUSLY DELETED W.O. ANDYOU DUPLICATED IT IN ORDER TO REVERSE ANINVOICE THEN ANSWER THE QUESTION BELOW WITH A 'Y'."Z:"ARE YOU REVERSING A DUPLICATE W.O. (Y/N)";:Y$:Y$"Y"Y$D(A)9999.99:A%X^FU6İ5310:6770/Xh4450iXr10:"RETRY ALIGNMENT AGAIN (Y/N) ";:K$:K$"Y"6750uX|FU6ıXPY$"Y":X XNB0:W$"":C$"":RR$"R":5190:C$(25)ıXIW$""(IW$,1)" "6900.Y24:3:"NO INVOICE HAS BEEN GENE"N"6700W6Y$"N"IA$"Y":PW@X$"999999XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"WJA110:AF$(A)(X$,CL(A)):A:A111:OI$(A)(X$,DL(A)):A:A13:JD$(A)(X$,40):A:A13:B120:JI$(A,B)(X$,OL(B)):JD(A,B)9999.99:B,AXTA13:MD$(A)(X$,15):M,10,2)4VA((TD$,7,2)):BA:A12AA12:HR$(A)GVB13HR$(A)_VB12TD$TD$" AM"VTD$(TD$,5)"/"(Q(8))" "HR$(TD$,9):B11TD$TD$" PM"VVVV"PY$"Y"ıW,:12::10:"PERFORM ALIGNMENT (Y/N) ";:Y$:Y$"Y"Y$ U804:ULU6590:A1152:LOA1,(ALA):LOA,(ALA1):A:iUAL(108)256(107)8:zUTM$""6660VA(53247):CD$:CD$"IN#"TM$:CD$"PR#"TM$:TD$:CD$"IN#"Q(19):CD$"PR#"Q(19):TD$(TD$,11):(TD$,9,1)";"TD$(TD$,8)":"(TD$):A T!T(CD$"CLOSE":38400AT2CD$:CD$"RUN PMENU,D2,V23"|T<24:10:"ERROR "(222)" AT LINE "(218)(219)256;:TFTPCI$" "TZTdTnTx10,L(L256)256:11,(L256):768:TT10,L(L256)256:11,(L256):783:UASCD$"OPEN DEF-TOTALS,D2,V23":CD$"READ DEF-TOTALS":A13:B125:AC(A,B):B,A:A125:ACT$(A):A:A13:LT$(A):A:A125:AN$(A):ASRA$:Y$:VN$:RP(Y$):CD$"CLOSE DEF-TOTALS":S RE1100TA120:TA$(A)(ACT$(A)"...............",15(A)32(A2)207ĹA2,215# A A% A34816368885(A)32(A2)200ĹA2,208V(A)32(A2)201ĹA2,209w(A)32(A2)202ĹA2,210(A)32(A2)203ĹA2,211(A)32(A2)204ĹA2,212(A)32(A2)205ĹA2,213(A)32(A2)206ĹA2,214   ōΰӠ̠ÍȠŠϠĭٍ̠ΰΰˠîЮϮؠōˍΰĠ̠̍ҠĠ` ` ` ` y   i `L,Ѡ :`L,ѠL,8     `h!h" H"H!H`h!h"h @ "H!H` hLѭ Lѩ-    Mѭ  d`$.%.&.'8&(') &'$` J Э @ "ҭ  @ ?`          ` 0ѭ   Lj 0ѭ     `  `  А`    `i #` B<=?>ЅC ,B , `ΰĠӮΠĮĮӮȠŠӮŮ΍ΰҮΠӍԠĠϠ΍ΰ      Ұԍΰԍΰ°ԍΰCARE, *9 * INC. THE VIOLATION OF *j * THIS COPYRIGHT WILL BE * * PROSECUTED. * * * ***************************************************D * *u * THIS PROGRAM IS DE- * * VELOPED AND COPYRIGHTED * * BY D.A.I., FOR EXCLUSIVE * * DISTRIBUTION BY WESTWUNINV200,V4,D2"C V2Ą"PLACE V4 IN DRIVE 2 AND HIT RETURN";Y$c V2ĺCD$"RUNINV210,V4,D2" V3Ą"PLACE V4 IN DRIVE 2 AND HIT RETURN";Y$ V3ĺCD$"RUNINV220,V4,D2" V4ĺCD$"RUNMENU,V1,D1"  *************5:"*"4)"WHICH PROCESS?"11)"*":18:5:"*"29)"*":19:5:"*******************************" Z17:25:"";L$:17:35:"*":V(L$):V1V4ĺ"";:17:25:" ":90 d110 n22:3:V1Ą"PLACE V4 IN DRIVE 2 AND HIT RETURN";Y$ xV1ĺCD$"R"*"1)"1. FILE MAINTENANCE"9)"*":10:5:"*"29)"*" <11:5:"*"1)"2. POINT OF SALES"11)"*":12:5:"*"29)"*":13:5:"*"1)"3. REORDER REPORT"11)"*" F14:5:"*"29)"*":15:5:"*"1)"4. RETURN TO MASTER MENU"4)"*":16:5:"*"29)"*"^ P17:? A$"INVENTORY SYSTEM MENU, HI, 1-JUN-81":38400:CD$(4)H90:4:5:"*******************************":5:5:"*"29)"*"(6:5:"*"4)"INVENTORY SYSTEM MENU"4)"*":7:5:"*"4)"====================="4)"*"5 28:5:"*"29)"*":9:5:     A$(A):A:N(1),N(2) PCD$:? UCD$"WRITECUSTOMER FILE,R"ZRh ZA28:A$(A):A:I(N(1)):I(N(2))s _CD$:| d460 iCD$"WRITE"HT$",R0":" ":" ":" ":" ":" ":I(NF(1)):0:0:0:0:0:CD$: nBN3,(PA):BN4,(PA1):BN2,6: sCD$"΍΍΍Ҡ٠ǠҍӮ׮ĠԍΠٍٍٍٍ΍ٍٍٍٍٍٍٍЍ׮č΍ΰĠٍ̮Ӯ׮ԠΠΰàŠǠĮӷǯҍΰ԰ǯҍΰİǯҍΰŰǯҍΰΰǯҍΰǯҍΰǯҍΰϰԍΰðǯҍΰҰǯҍΰԍΰɱԍΰİǯҍΰðDZԍΰ̰ǯҍΰҰǯҍΰ԰԰ǯҍΰҰǯҍΰȠԍΰ y   i `Lՠ "`LՠL8     `h!h" H"H!H`h!h"h "H!H` hLtխ Ltթ  V` ` ` թ ֩` Dԩ,    *` թ` ԭ   L ԩL ԍ`L Ӡ LL          ` խ   Lnԭ `  Ԑ`    `i #`` ` ` ` ` ȱ `, ,LL8$%$ ,LQLӭ ѩ,spq ѩ ,YpW()&' ѭ ( ѩ&' m$m% ѩ ,CpL ,p %L ԭL ԭ$J&m(&'m)'~$` Э!  N` `   * ҩ ҩ``L ѭ ` LҬ  Mѩ-  dѭ,p`ȠԍΰӰԍΰӰԍΰŰǯҍΰͰԍΰذԍΰȠǯҍΰԍΰӱԍΰαԍΰṉ̃ǯҍΰ԰ԍΰаǯҍΰͰ̱ԍΰ԰ԍΰӰԍΰŰǯҍΰͰǯҍΰİǯҍΰ̱ǯҍΰϰԍΰαǯҍΰҍΰٰԍΰڰԍΰҰǯҍΰǯҍΰӰǯҍΰŰǯҍΰٱӰԍΰϰǯҍΰְԍΰ̱ñԍΰٰǯҍΰǯҍΰ°ǯҍΰٰǯҍΰڰԍΰ214$ %(A)76(A2)207ĹA2,215+ dA M(A)32(A2)207ĹA2,215= (A)76(A2)200ĹA2,208^ (A)76(A2)201ĹA2,209 (A)76(A2)202ĹA2,210 !(A)76(A2)203ĹA2,211 "(A)76(A2)204ĹA2,212 #(A)76(A2)205ĹA2,213 $(A)76(A2)206ĹA2,- A34816368885(A)32(A2)200ĹA2,208V(A)32(A2)201ĹA2,209w(A)32(A2)202ĹA2,210(A)32(A2)203ĹA2,211(A)32(A2)204ĹA2,212(A)32(A2)205ĹA2,213(A)32(A2)206ĹA2,214    ԍΰͱԍΰͱԍΰͱԍҍΰŰǯҍΰذǯҍΰűԍΰԍΰаԍΰȠԍΰȰǯҰǯҍΰ̰ǯҍΰ̱ǯҍΰҰԍΰȠԍΰαԍΰñԍΰ̱ԍΰӱԍΰȠԍΰбԍΰŰԍΰΰİԍΰΰԍΰαԍΰǯҍΰȠǯҍΰϰԍΰİǯҍԍΰǰԍΰǯҍΰű̱ǯҍΰ̰ǯҍΰűǯҍΰ԰űǯҍΰаǯҍΰ԰ǯҍΰϱԍΰ̱ԍΰԍΰ'% (4)"BLOAD KSAM,A$8500":340481146,141:1147,136:1148,192g1149,76:1150,250:1151,04(1274,32:1275,0:1276,20821277,76:1278,122:1279,5<1402,141:1403,137:1404,192:1405,96 ԠŮϮŠΰàԠĠĠčϮ٠ٍ΍ΰҮҍӮŮȠԍŠٍװŰԍΰͱԍΰԍΰձǯҍΰаǯҍΰҰǯҍΰ̰ǯҍΰҰǯҍΰǯҍΰӰԍΰ԰ԍΰҰǯҍΰǯҍΰаԍΰİǯҍΰǯҍΰǯҍΰ°ǯҍΰɱǯҍΰ԰Ͱǯҍΰİǯҍΰαǯҍΰ԰ȠԍΰϱԍΰñԍΰҰǯҍΰɱԍΰ̱ԍΰñԍΰҰǯҍΰȰԍΰаǯҍΰձԍΰӱԍΰԍΰͰԍΰӰǯҍΰȠԍ  m i 8   `   խ   ȭ `  ȱ ` `ii` ȱ `,T խ  mmi ԭ , `  L@֭  mi ԭ   ȭ ` `   ȱ ` #`ԍΰӰԍΰϰԍΰΰҮ̍ϮĠŠ΍ΰʮӠîȠȍԍΰԍΰȠԍΰ԰ԍΰϰǯǯҍΰDZԍΰ԰ǯҍΰҰ°ǯҍΰǯҍΰİǯҍΰҍȠԍΰȰԍΰ̱ԍΰҍΰӰԍΰҰԍΰΰΰǯҍΰİԍΰɱԍΰ²ҍҍҍҍҍҍҍҍҍҍ̍ѰԍΰαԍΰαԍΰȰаԍΰбǯҍΰѰԍΰӰԍΰαԍΰ԰ԍΰȠԍΰȠǯҍΰذǯҍΰӰԍΰ԰ǯҍΰ԰ǯҍΰԍΰͰԍΰ°ԍΰͰԍΰűԍΰǯҍΰñ      """ "                                              )"*"C$""@"%F:13:((C$,CL(F))SP$,27):AF$(F)(C$,CL(F))J"*2039n"/530: GET ORDER INFO AND DATES"0FU1E0:F$(65):F1:595:23:1:F$::F:1:F$;::2115 #2FU1E0F$((F$)1):F(F$)64:E1(F12):F12İ595:23:1:F$::F:1:(AF$(F)SP$,30);$! 23:5:"";C$3! F:1:F$;C!C$""2039S!C$(25)ı!F12(C$,1)"Y"(AF$(2)""(AF$(2),1)" ")Ģ24:1:" A CHARGE WITHOUT CUST-# IS INVALID ";:A11500:A:24:1:(SP$,39);:2039!F2C$""2560 " (C$,1:F$::F:1:F$;::2055v FU1E0F$((F$)1):F(F$)64:E1(F13):F13İ595:23:1:F$::F:1:F$;::2054 595:F(F$)64:F$(25)ı (F$)27IR$"R"J1:::2195 (F$)272095 F2F122040 F12E1:2040!23:5:56:750:XM69Ģ24:10:"FILE IS FULL";:A11500:A:@J0T(SL)255İ190C$("00000"(WN),6):2545:(RT)3WNWN1:WN999999WN1(RT)32020AF$(1)C$:IW$""515: GET CUSTOMER INFO FU1E0:F$(66):F2:595:23:1" WO-# TO BE CHANGED "<I3GG$" WO-# TO BE PRINTED "aI6GG$" WO-# TO BE INVOICED "uFU1FU91204FU2000,4000,4200,5030,5110,5180,6810,7200,6110:1100GG0100:CXGG:320CMGG:385:GG:FU18XM(GL1)(GL2)23:"*"32)"*":3:"*"4)"WHICH FUNCTION?"13)"*":3:"*"32)"*":3:"**********************************"20:24::" ";::24:C$:20:36:"*":I(C$)FUI:CD$"":I7GG$" WO-# TO BE REVERSED "I2GG$" WO-# TO BE DELETED "I5GG$"#n3:"* 4. FILE STATUS"17)"*"Mo3:"* 5. CHANGE A WORK ORDER"09)"*"wt3:"* 6. PRINT INVOICE "09)"*"u3:"* 7. REVERSE INVOICE "09)"*"v3:"* 8. FILE QUICK LIST *"w3:"* 9. RETURN TO MENU *"i~3:"*";:20(HT$)2:HT$;:36:"*"me3:"* ";:X130:"=";:X:" *":3:"*";:20(TD$)2:TD$;:36:"*"j3:"*"32)"*":3:"* 1. ADD A WORK ORDER "5)"*"k3:"* 2. DELETE A WORK ORDER "2)"*"m3:"* 3. PRINT WORK ORDERS"11)"*A$(255):FC,3:55:GL,1:455:(RT)2ıqK1(PA)(PA1)256:K2(LP)(LP1)256:XM(K1K2)((KL)2):L::Q$"":IR$""QTM$""İ6600V[PG0:LNLI:TC0:R$""]:4:3:"**********************************":3:"*"32)"*"#`:23:1::" "::23:1: bF$0g23:1:F$;6lYq:09)"MISCELLANEOUS CHARGES"}v3:" DESCRIPTION.... CHARGES"{"A":"B":"C"|A13:3A:3:MD$(A):3A:19:MD(A)9999PF$"REQ":638}IMD(A):235:~PF$A,9999IJD(J,A):235:PF$5DJD(J,A)9999ĺ"REQ"EIA:LMA1:KJzN22:1:"FLD DESCRIPTION---- CHARGES":600S22:1:"FLD -------------DATA-------------"X24:1:"ESCAPE FOR NEXT SCREEN-CTRL Y TO CANCEL";ZFU1E0ı]16368,0T$(A)(OI$(A),21)A:D!:11)" JOB "J" INFORMATION":A120h&(64A)" "OT$(A)(JI$(J,A),22)q+A:0:13)" JOB "J" CHARGES":A1205ACT$(A)""(ACT$(A),1)" "LMA1:A21:586:1A:1:(64A)" "TA$(A);?JD(J,A)0JD(J,A)2 Ѝ`A ðԍΰԍΰɱԍΰ΍ԠĠӠŠ΍ΰҠˍԠĠӍ΍ΰĠŠЍ$(25)ı2C$""4060.2EOF0:N$"N":L2C$("000000"((C$)),6)s2FC,3:A$C$:55:455:(RT)2409026550:CXAA%(6):320:AF$(1)A$:41202FU2CMSC:N$"N":2:"NOTHING FOUND":A1700:A:N$"N":FU2ı240003FU2İ5LID CUSTOMER";:A11000:A:24:1:(SP$,35);:20361 14:13:70:2:13:A$:A26:1A:13:(A$(A)SP$,27):AF$(1A)A$(A):A:AF$(2)A$:20391::12:"WHAT IS THE ";::(GG$,7);::(GG$,8,20);1C$:(C$)640301"TOO LONG":4010 2C1)256):CM69ĺ"FILE IS FULL - CANNOT ADD ANY MORE":A15000:AN0 T0 Z0 t0 FC,3:A$C$:55:455:z0 0 C$(C$" ",6):160:150:FC,3:A$C$:60:455:6550:ZRAA%(6):(RT)3İ155:257041 155:24:1:(SP$,39);:24:15:"INVA *B********************************UTED. *A* *r********************************* **********************************OSECUTED. ** IN 1981 BY D.A.I., FOR *L* EXCLUSIVE *}* DISTRIBUTION BY WESTWARE ** INC. THE VIOLATION OF ** THIS COPYRIGHT WILL BE ** PROSEC32.141593E+92.32 BEEP!! W********************************* ** THIS PROGRAM WAS DE- ** VELOPED AND COPYRIGHTED ** A:B1A:C:767B,C:B:768p 19,169,76,32,178,165,169,220,133,80,169,0,133,81,32,26,214,76,65,217 40,169,37,141,242,3,169,3,141,243,3,73,165,141,244,3,169,8,133,1,160,0,132,0,152,145,0,200,208,251,230,1,165,1,201,192,144,242,76,37,3&54,189:55,158:56,129:57,158:10:5:"ALL KSAM MODULES ARE OPERATIVE"::2:"HIT RETURN TO RETURN TO MASTER MENU";Y$ (4)"RUNMENU,D1,V1" 54,240:55,253:56,27:57,253:::A118:B01:6B8:2A2:"*":B:"":A:  ZY Z1100:50:A$((Z)" ",6):40:FC,3:PT5,00:PT6,0:70:(RT)3220` Z Z1100:50:A$((Z)" ",6):40:FC,2:PT5,0:PT6,0:70:(RT)4220 Z:PT5,0:PT6,0 Z1100:FC,4:70:(RT)5220 Zy TI:::"NOW TESTING ALL KSAM MODULES"::" TEST WILL TAKE APPROXIMATELY 4 MINUTES" dA:B1A:C:767B,C:B:54,0:55,3:56,0:57,3 nA112:PTA,0:A:PT2,48:PT4,48:PT7,6 xTI14:Z1100:50:A$((Z)" ",6):40:FC,1:70:(RT)02206:MH(PT3)(PT4)256:S (Z%(105)(106)2563:PT17,(Z%):PT18,(Z%1):~ 2111,JJ(JJ256)256:112,(JJ256): <PT5,0:PT6,0: FI(LC):HA:I(53247): PZ0:FL0:JJ(111)(112)256:LC(46208)(46209)256:LC,0:M Z:10:7sR A$"KSAM BOARD TEST FOR FMS, 21-SEP-81, U 10-AUG-82 "m(4)"BLOAD ASM,A2098"PT2057:FCPT15:RTFC1:HA2098:KLPT7:GLKL1:RCGL1:RNRC2:PHRN2:80 CR(RC)(RC1)256:NR(RN)(RN1)256:HP(PH)(PH1)25    ðԍΰűԍΰȠǯҍΰȰ̱ԍΰȠԍΰȰԍΰŰԍΰȠǯҍΰűǯҍΰӱԍΰðǯҍΰӰԍΰŰǯҍΰ԰ԍΰ̰ǯҍΰҍΰȠǯҍΰǯҍΰаǯҍΰǯҍΰŰԍΰͰǯҍΰȠǯ؍؍؍؍؍؍ͰǯҍΰȠԍΰҰŠàӍȠŠύԍΰΠРԍȠŠύԍΰ͠ӠЮϮؠŠΰ̠ӠîӮ׮ԠԮ΍ΰlpx|~𷄝]V߼ȿBLB3BhzBB5zaM|wQTWZ\^`cegkޔ6G݀ $-H^ݭ_%H\ݭ]HZݭ[H`ݭa rsLNHhL{ K @ jLrs`au`hhHHL9DLQL#VXZdfLf Lf Lf Lf e fL䍁L׍L6 -Lf ]Lfl8 o,,(`l6LfLlll f ލ` f Lи fL fL f L f L f QLB'Byyyy-Bz9BEBWBWBWBfBlBrBxBBhBBBBBBimBXmB z5hDLw@@DiLj@AC@B@BCAC KB C@ CAB"@lL@ʽBi@ȽBi}@ΩL6 ݍ̹A_COkhC濹տ AuA L1D͙PADL Lf @@ɝ @ `ƠĠάō#C@CCA @i@@AAACCi$΢D@DA@ /k@ɝe*ɷ@MIiՐɵA@餐;-7iϑ@ȩ53@ʭXCWC _C@Ƚ`C @i@@8/e@@eAA : A$"F.M.S. MENU, MENU, 29-DEC-81":38400:(4)"PR#0"^ (4)"BLOAD KSAM,A$8500":34048|O$"YYYYYYYYYYYYYYYYYYYY"EQ$"========================================"(602A1255::A<X(53247)F(4)"BLOADMOVE.OBJ"B PCD$"": !!! ! ! ! ! !!!!!!!!!" " " """""""""1ĺCD$"RUNHI,V1,D1"8C2ĺCD$"RUNHACCTSP,V"V",D"D[C3ĺCD$"RUNHACCTSR,V"V",D"DC4ĺCD$"BLOAD CHAIN,A520,V"V",D"D:520"PYR000"C5ĺCD$"RUNHACCTNG,V"V",D"DC6ĺCD$"RUNCASH,V"V",D"DC7ĺCD$"RUNHI,D1,V0"C8ĺCD$"R81070,`((D$,2))0((D$,2))121070Tj(D$,3,1)"/"(D$,6,1)"/"1070~t((D$,7,2))70((D$,7,2))991070~TM$"":DT$D$:TD$D$1190C4Ģ8:9:"PLACE VOLUME 9 IN ";::"DRIVE 1":C1İ390:C4V9:D1CSE REENTER":X12500:X:970L:82(C4):12::"PASSWORD VERIFIED":V$1170n.TM$""İ310:11508:DT$""Ģ11:"THE PRESENT DATE IS "(DT$,8):B"ENTER TODAY'S DATE (MN/DY/YR): ";D$LD$(25)DT$""D$(DT$,8):1150V(D$)1:12:"ENTER ";::GW$;::" PASSWORD --->";;D$""I16368,0xY1(P$(C,1)):C$:D$D$C$:D$(25)680Y:D$P$(C,1)WWWW1WW21300D$(13)P$(C,1)""1050D$P$(C,1)ė:12::"INVALID PASSWORD";::". PLEAC4GW$"PAYROLL":V10:D2DC5GW$"GENERAL LEDGER":V5:D2kC6GW$"GENERAL JOURNAL":V5:D2C7GW$"DATABASE":V0:D1C8GW$"CHART OF ACCTS.":V5:D2C9GW$"VENDOR MAINT.":V6:D2C10GW$"CUSTOMER MAINT.":V7:D2080:430:CD1:6800>C1C14WW1:W21300BHC1C14780R(O$,C,1)"Y"ė:12:10:"OPTION NOT ALLOWED!":A12000:A:680\C132000fX0pC1GW$"INVENTORY"zC2GW$"PAYABLES":V6:D2C3GW$"RECEIVABLES":V7:D2:"6. GENERAL JOURNAL"1)"13. OPTIONAL MODULES"n19:"7. DATABASE II";:20:"14. STOP PROCESSING":21:EQ$23:12:"SELECT 1-14?";:868680 VT23:HT26:530:C0760C141290 C6969Ĺ214,0:216,0:*C1213204C11İ1(TD$)2)TD$;7:"1. INVENTORY"8)"8. CHART OF ACCOUNTS"f9:"2. PAYABLES"9)"9. VENDOR MAINT."11:"3. RECEIVABLES"5)"10. CUSTOMER MAINT."13:"4. PAYROLL"9)"11. CHANGE DATE"15:"5. GENERAL LEDGER"2)"12. SYSTEM UTILITIES"/17530$NDD1:C$(C$,(C$)1):5402XP24530FbP25C$(P):YlP48P57670qvDD1:D8D8:670C$C$(P):540VT:HT:C$:C(C$)"";:540 :EQ$;:7:"PBS SYSTEM IIE--LEVEL K.0.0":15:"MASTER MENU":EQ$;:19((DT$,4,2))Q(11):Q(2)I(I)K410:CD$"PR#"Q(19):CD$"IN#"Q(19):680cD0:C$"":16368,0(16384)128İ310:5:1:20(DT$)2:DT$:VT:HT:(C$" ",8):540&P(16384)128:16368,0:P136500P8600:D0670DD1PENBNAME":CD$"WRITEBNAME"_BN$:BA$:BC$:A120:Q(A):A:A145:Q$(A):A:(DT$,8):TM$vA140:OP$(A):ACD$"CLOSEBNAME"C$:(C$)6ĺ"MUST BE = TO 6 IN LENGTH":480:FL0:210:(DT$)0İ1070IMN(((DT$,2)))$" AM "< hTD$(TD$,9)HR$(TD$,12):B11TD$TD$" PM "O rDT$TD$:D$DT$\ |33,40: 10:8:"PLACE VOLUME "V" IN ";:D1ğ "DRIVE "D:::15:"HIT RETURN ";Y$: TM$""C10İ310:D$(D$,5)"/"(Q(8)) Q$(20)"50944"CD$"O6384S25621)104300 "S:9 ,X(53247):TM$(S):N 6TM$""CD1380 @EO(175)(176)2561:EO117,(TM$):EO70,(Q(8)5)8Q(8)(Q(8)16)16:EO121 JTD$A$:A((TD$,10,2)):BA:A12AA12:HR$(A) TB13HR$(A) ^B12TD$TD19)0 A140:OP$(A):A6 CD$:CD$"CLOSEBNAME" S17:X(53247):(16384S25619)3(16384S25619)177(16384S25619)236(16384S25619)44280 S: (16384S25621)248(16384S25621)253(16384S25621)7(1.5)! CD$"OPENPASSWORDS":CD$S CD$:CD$"READPASSWORDS":A110:P$(A,1):A CD$:CD$"CLOSEPASSWORDS":CD$:Q(20)X:500 CD$: CD$"OPENBNAME":CD$"READBNAME" BN$:BA$:BC$:A120:Q(A):A:A145:Q$(A)::DT$:TM$:TM$"" Q(P$(10,6),C$(20),D$(20),BN$(30),BA$(30),BC$(30),Q(20),Q$(45),DT$(8)O ZOP$(40)b dCD$"NOMONCIO"h n x11:"COPYRIGHT 1978,1982 DARRELL SMITH" MN(12) 31,28,31,30,31,30,31,31,30,31,30,31 A112:MN(A):A I(I)(I102.5)(102**** J 98  Q)򩯝舩H)JJJJ 0h) 0 );:iiȑi ?``Aiiȑi ?``XY WESTWARE, *@#* INC. THE VIOLATION OF *q#* THIS COPYRIGHT WILL BE *#* PROSECUTED. *#* *$******************************************************K"* *|"* THIS PROGRAM IS DE- *"* VELOPED AND COPYRIGHTED *"* BY D.A.I., FOR EXCLUSIVE *#* DISTRIBUTION BC5V12 !390:C3V20:D1A!C1ĺCD$"RUNPOMENU,V"V",D"Dc!C2ĺCD$"RUNLAYAWAY,V"V",D"D!C3İ430:CD$"RUNJC000,V"V",D"D!C4ĺCD$"RUNGRAF100,V"V",D"D!C5ĺCD$"BLOADCHAIN,A520,D"D2",V"V12:520"CI000"! "******HT24:530:C$(25)680* 4C1C62090w >(O$,C14,1)"Y"ė:12:10:"OPTION NOT ALLOWED!":A12000:A:2000 HC6680 R2130 \:C3Ģ8:8:"PLACE VOLUME 20 IN ";::"DRIVE 1": fD2:V60:C2V22 zC3V21 C4V100 !)"*":6:"* 3. JOB COSTING"11)"*"A6:"* 4. ANALYSIS"14)"*"f 6:"* 5. CYCLE INVOICING"7)"*"6:"* 6. RETURN TO MASTER MENU *":6:"*"26)"*" 14:6:"*"4)"SELECT 1-6?"11)"*":6:"*"26)"*":6:"****************************" *VT14:CD$"RUNKSAM TEST,V"V",D"DR:6:"****************************":6:"*"26)"*"|6:"*"4)"OPTIONAL PROCESSING"3)"*"6:"*"4)"==================="3)"*":X01:5X:6:"*"26)"*":X:6:"*"1)"1. ORDER ENTRY"11)"*""6:"* 2. LAYAWAY"15OPY,V"V",D"D0C2ĺCD$"RUNFILE COPY,V"V",D"DWC3ĺCD$"RUNOPTIONCHANGE,V"V",D"D}C4ĺCD$"RUNINITIALIZER,V"V",D"DC5ĺCD$"RUNEMPLOYEE MOVE,V"V",D"DC6ĺCD$"BRUNMEMORY TEST,V"V",D"DC7ĺCD$"RUNDISK SPEED TEST,V"V",D"DC8"* 9. RETURN TO MASTER MENU *":6:"*"26)"*"x17:6:"*"4)"SELECT 1-9?"11)"*":6:"*"26)"*":6:"****************************"VT17:HT23:530:C$(25)680C1C91400C96801450:V4:D1(C1):390 C1ĺCD$"RUNCSYSTEM BACKUP"9)"*"4P6:"* 2. FILE COPY"13)"*"uZ6:"* 3. OPTIONCHANGE"10)"*":6:"* 4. INITIALIZER"11)"*"_6:"* 5. MOVE EMPLOYEES"8)"*"d6:"* 6. MEMORY TEST"11)"*":6:"* 7. DISK TEST"13)"*"i6:"* 8. KSAM TEST"13)"*"-n6:,3,141,242,3,169,224,141,243,3,73,165,141,244,3,32,88,252,76,0,224 N(13302:6:"****************************":6:"*"26)"*"<6:"*"5)"SYSTEM UTILITIES"5)"*"F6:"*"4)"==================="3)"*":X01:5X:6:"*"26)"*":X:6:"* 1. UNACCOUNTS,V"V",D"D7C9ĺCD$"RUNVENDORS,V"V",D"D]C10ĺCD$"RUNCUSTOMERS,V"V",D"D 210:DT$"":D$"":Q(19)0:410:0:0:A:B1A:C:511B,C:B:512C43,169,3,133,1,160,0,132,0,152,145,0,200,208,251,230,1,165,1,201,192,144,242,169ӰǯҍΰҰԍΰӰǯҍΰҍΰӰԍΰ԰ǯҍΰ̱ǯҍΰǯҍΰҰǯҍΰԍΰ̱ȠǯҍΰӰԍΰӰԍΰҰ