' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`# d ֠z# u`CS06&OP%RS%:(VN$,1,1)"+"(VN$,1,1)"-"4410D&OP%6620j&4:19:VN$;:30:MF$:6:19:SD$&8:30:OHBO04640& 0:4660& OHBO&410:30:OH&HISL:1820:12:29:I$&\EX%ICS:1820:12:29:I$'pRS%ICS:1820:14:60%14::"NOT ON FILE":,%MK%4100:%IS%4760%3:19:"VENDOR":I64:2060:VN$I$:1520:VN$:3:19:"MNF # ":I79:2060:MF$I$:1520:MF$:3:19:"ITEM NAME":I82:2060:SD$I$:1520:SD$&3:19:" ":OH0:BO0:OO9999:ML0:SL0:$LP%1HP%4400$$SASK4380@$HP%LP%:LP%HP%2:4240`$LP%LP%((HP%LP%)2):4240t$0NF%1:R0:SKSA$:OP%RS%Ģ22:868::"NOT ON FILE"::4100$DSA99994480$XTP%3440%lVN$"":MF$"":SD$"BALANCE FORWARD":QY1:SP1:B0:450:SW%4130,4100,4120,13000-#(I$)07780=#"VI304100Z#'OP%(I$)0İ2680:6580s#,(I$)0İ2680:4100#@SA(I$)#T1520:SA#hSANS4400#|NF%0:HP%NR:LP%HP%2#RLP%#R0R1#RI$;R:SK:""$SASKİ940:910:4570:16:958:1:20::"RECEIVING"::4100"TP%1:MK%0:18:1:958:" P=PROCESS":" R=RETURN ITEM":" N=NON-TAXABLE ITEM":" B=BACKORDERED ITEM"":1:20:" SALE ";:PQ%Ė20:"QUOTATION";:EX%Ė20:"*EXPENSE*"":#QY0:I4:NUM1:206I$"O"İ2750:6380[!(I$"M"ğ:18:1:958:1:20:"MARKUP"::12260:2750:MK%1:4100!<I$"E"İ12260:2750:PQ%1:EX%1:4040!I$"R"3700!12260:2750("RS%1:14:1:"NEW CST";:19:"ITEM CST":6:"RECEIVED":8:(SP$,7):10:(SP$,7)X"12240K I$"D"VIVC0Ģ14::"UNABLE TO PRODUCE DUPLICATE"::3700 I$"D"DS%1:IVIV1:POPO1:VT14:1500:10330:IVIV1:POPO1:3340 I$"Q"İ2750:PQ%1:4040 I$"I"İ2750:IS%1:3600 I$"S"İ2750:4040 I$"T"11560!URN> TO CANCEL":4100F$18:" S=SALE Q=QUOTATION D=DUPLICATE"p8" E=EXPENSE I=INQUIRE M=MARKUP"L" O=ORDERING T=TOTAL"`" C=CANCEL R=RECEIVING X=STORE MGMT"t1350:14:1:868I$"C"İ2755:3340 I$" 4:"STOCK #"# 6:"QUANTITY"G 8:"SHIPPED";:19:"AVAILABLE" 10:"BKORDER";:19:"IN STOCK":12:"PRICE";:19:"SALES PR" RS%1İ1400 RS%23620 RS%4020 TP%4040IS%Ģ1:20::"INQUIRY"::18:958:" PRESS OR"::"PRESS TO RESUME ";:I$:I$:I$(13)ĺ"PR#6"n IN$"]"İ1450:33404 TP%0:IS%0:IN$"A"3420H :VT1:1500:(10):"PR#0":3340\ ***** BEGIN PS-ENTRYp :"DAILY TRANSACTIONS";:32:DT$ 26200 WX$;7((I$,2)):00 YR$(I$,2)3260> WX$;6:0U DT$I$:WX$;0:DT$g WX$;7:"0,0"p CX$ 768,((DT$,4,2)) I(0):::"CLOSE"::IN$:(IN$)312380U IN$""Ģ12:"REMOVE DISKETTES AND POWER OFF OR"::"REPLACE DISKE2840,2960,2840 I$VD$2 5:33::"VERIFY":E I1:1520:I$;\ IN$:IN$"N"2840o IN$"Y"3020 DT$I$3320 MO$(DT$,2):YR$(DT$,2) YR$(I$,2)31600 MO$(I$,2)2840D YR$(I$,2)2840X :OX$l MO$(I$,2)326TUAL CLOCK CURRENT DATE IS";:VD$(T$,2)"/"(T$,4,2)"/"(DT$,2):(DT$,2)"12"(T$,2)"01"VD$(VD$,6)(((DT$,2))1)6 32:VD$@ 1:"DAILY TRANSACTIONS";:32:DT$T 3:"PLEASE ENTER CURRENT DATE --> / / "h I1:1560| SW%2980,:TP%0:RS%0:DS%0:MK%0:PQ%0:VC0:VI0:ST0:NX0:IR0:ND0:Z **********************v M A I N P R O G R A M ********************** 2620:(768)((DT$,4,2))(DT$,4,2)(T$,4,2)3340 2620::T$(SP$,18)VD$DT$:2880}, 7:"AC91:2060:16:1:868 (I$)0VR%(VI)0:VK$(VI)"NOTE":VD$(VI)I$:VS$(VI)"":VO$(VI)"":VB$(VI)"":VX$(VI)"":VP$(VI)"":VA$(VI)"":VIVI1:""; RS%OP%İ1400 LP35VIı :5640 22::OI$:RI$;0:NR,NS:""> EX%0:OP%0:IS%000( I$"":2560Y< T$(SP$,18):(50176)8(50177)120(50176)8(50177)1202640dF 2::P 22::"PR#4":"IN#4":" ";T$:"IN#0":"PR#0"Z T$(T$,8)":"(T$,10,2)":"(T$,6)d 2:32:(T$,7,5):x 16:1:868::"COMMENTS";::I2:1520:SD$26,I10:1520:LO;:32:OHBO06740?6@0:6760J6TOHBOr6hI13:1520:DL$;:29:ISL:1820:I$6|12:10:SQ;:29:ICS:1820:I$6:10:OO;:32:DO$6:10:ML6OHOOBOML69006ML0Ģ20:30::"REORDER"::6900'7IHIP";:20:"ITEM CST":75"ON ORDER";:20:"AS OF":Y5"MIN LVL";:20:"CST/ITEM":c54100u5VN$VS$66705(VS$)06670522:1::"NOT ";VS$;" STOCK ITEM"::4100522:1:868 6I4:1520:SK:I64:1520:VN$:I79:1520:MF$:I80404:CI$:RS%2:3340L412260:4:20:"VENDOR":R0:I79:2060:VS$I$\4OP%1:TP%1}41:20::"ORDERING"::9584(26204<4:"STOCK #":4P"QUANTITY":4d"LST ORDR";:20:"AVAILABLE":4x"LST DATE";:20:"SALES PR":5"ITM/S03:12:10::"UPDATING";::" INVENTORY"S3I0VI1:VD$(I)"*VOID"6375f3VR%(I)063753RVR%(I):940:OHOH(VO$(I)):DU$DT$:OO063703DO$DT$:OO(VO$(I))63653OO0:DO$"12/31/99":63703OOOO(VO$(I))4SL(VS$(I)):12VD$(J)"*VOID"6310>2VK$(J)"NOTE"Ĺ36,5:VD$(J):63102VK$(J);:36,5:VD$(J);:36,42:VX$(J);:36,53:VO$(J);:36,57:I(VB$(J)):1820:I$;:36,68:VA$(J)2:US$:IST:1820:36,68:I$2I1LPVI8:(10);:::" 40N":"PR#0"3DS%Č868:(IN$)133440,1j2620:VT22:1500w1tCN$;:36,32:"ITEMS RECEIVED";:36,70:DT$:36,35:DS%ĺ"DUPLICATE";1y36,70:(T$,7,8):(10):US$:"SK# PRODUCT DESCRIPTION";:36,39:"SHIPPED(QTY) UNITS ITEM COST AMOUNT":(10)1~J0VI1)R:VX$(VI)((QYSQ))"("(SQ)")":VK$(VI)(SK):VD$(VI)VN$" "MF$" "SD$:VO$(VI)(QY):VB$(VI)(NC):VS$(VI)(SL):IAM:1820:VP$(VI)I$:IQYNC:1820:VA$(VI)I$:VIVI1:STST(QYNC)0H56201`22:1::"PRESS RETURN TO PRINT";::IN$::22:1:10,5900,5900,5040*/ (I$)0NCCS:5920/NC(I$):INC:1820:14:8:(I$,10):18:"CHANGE COST ON FILE? ";:IN$::18:868:IN$"Y"CSNC:1040:CI$:OI$::"CHANGED"::I1800:I:18:868/ 14:8:INC:1820:(I$,10)/*SQ0SQ104VR%(VI)"*VOID":5840*.lVCVC1:I1(VA$(J))F.(VA$(J),I,1)"$"5800L.l.AM((VA$(J),(VA$(J))I)).VK$(J)"0":VD$(J)"*VOID":STSTAM:VX$(J)"*"NXNXAM."":.SLAM:MK%İ1040:CI$:OI$:"":MK%0:3440/I76:NUM1:2060:SW%59IN$"N"5560r-ISPAM:1820:VA$(VI1)I$:STST(BAM):STST(B(VI1)AM):I0:1820:B(VI1)0VA$(VI1)I$-"":LP35VI3440-3:1:958:"VOUCHER OVERFLOW"::"CONTINUE ON SEPERATE VOUCHER":I11500::7780.XVK$(J)"NOTE"VD$(JR:VK$(VI)(SK):VD$(VI)VN$" "MF$" "SD$:VO$(VI)(QY):VS$(VI)(SP):VB$(VI)(B):IAM:1820:VP$(VI)I$:I(SPB)AM:1820:VA$(VI)I$:VIVI1:STST((SPB)AM),B0B(VI1)05620,14:1:"CHARGE FOR BACKORDER? Y/N ";,IN$:IN$"Y"5620-PROCESSD+I$"N"VX$(VI)"*":NXNX((SPB)AM):5460:NON-TABABLEl+(VN$,1,1)"+"(VN$,1,1)"-"5280+I$"R"5440:RETURN ITEM+I$"B"5460:PROCESS BACKORDER+,5280+@QYQY:SPQY:B0+TSALE+hB(VI)0:I$"B"B(VI)SP,|VR%(VI)I$)0I$(CS)$*(SA9999ND(I$)U*<AM(I$):12:7:IAM:1820:I$:RS%MK%5860g*PSA99995460u*dNF%5280*xOHBOQY00ML5280*ML0Ģ20:30::"REORDER":*1350:IS%3440*VX$(VI)" ":SW%5320,5280,3440,5030+I$"P"5460:60)t(I$)05020.)B(I$):BSPQY4950;)1520:Bc)(VN$,1,1)"+"(VN$,1,1)"-"3440)I16:NUM1:2060:SW%5160,5140,5140,5060)RS%4740)MK%3440)SA99993440)SPQY4860)4950)EX%(I$)0I$(SL)*EX%(20,3440((I$)0I$"1"<(QY(I$):1520:QY:RS%5040j(I10:NUM1:2060:SW%4900,4880,4880,4800((I$)0I$(QY)($SP(I$):NF%0SPOHSPOH(8SPQY4860(L1520:SP(VBQYSP:B05040)`I13:NUM1:2060:SW%4980,4980,4980,4829:I$:22:868,'MK%Ģ14:1:868:5040P'IS%Ģ18:19:" ":5220b'SA99995040'(VN$,1,1)"+"(VN$,1,1)"-"QY1:SP1:B0:AM(STND)((VN$)100):AM((AM)):AM(AM100.5)100:I$(AM):5180(I7:NUM1:2060:SW%4840,4820,48CL$LS$F OP%8460"F :7360EF !I25:1520:FS$;LS$:I28:2060^F !A2$"":A3$"":A4$""tF4!A2$I$:1520:A2$FH!SW%8540,8540,8540,7780F\!I31:2060:A3$I$:1520:A3$Fp!SW%8580,8580,8620,8420G!T(36)93(CF$)(CL$)(A2$)(A3$):A4$(AI28:1520:A2$:I31:1520:A3$:I34:1520:A4$:I49:1520:PH$nE 5:1:"OK?";:IN$:1:" ":IN$"Y"8620E (IN$)312380E IN$"N"8320E I25:1520:I28:1520:I31:1520:I34:1520:I49:1520:" / - ":8240F NCR1:NF%1:CF$FS$:C$;0:NC:R0:NF%0:""PD (FS$)1:(FS$)27FS$(FS$,(FS$)1):RNC:8400D (LS$)1:(LS$)27LS$(LS$,(LS$)1):RNC:8400D0 RR1:RNC8400DD 2:RC$;R:CL$:CF$:"":LS$CL$8240DN 1140DX FS$CF$8240?El I25:1520:CF$;CL$::IST:1820:30:I$;:21:"TAX";:ITX:1820:30:I$;:"TERMS";:21:"CREDIT"C:"CO #";:21:"TOTAL";:ITA:1820:30:I$:"TAX #";:21:"AMT PAID"::21:"TENDERED"::21:"CHANGE";C(FS$)(LS$)0CF$"":CL$"":NF%1:8420D23:1:" ":OC$:RTSW%8080,8060,8040,78809Bh(I$)0OP%FS$"":8080KB|(I$)08000zBLS$I$:3:1:SP$:TX0:TAST:STNX08120BTX(STNDNX)TR:TX((TX)):TX(TX100.5)100:TASTTXLC3:"SOLD TO":8:"SHIP TO":13:"PHONE / -";:21:"SUBTOTAL";2755:3340ARS%6240&AOP%71000A2620UAI(0):3:1:958:"FIRST NAME"vAT(24)15:I22:2060:T(24)25ASW%7980,7940,7940,3440A(I$)07980AFS$"":3:"COMPANY NAME":8000A,FS$I$" ":3:1:"LAST NAME "A@I22:2060B36,62:"TOTAL";:36,68:IST:1820:I$:(10):"AUTHORIZATION";:36,21:(US$,40):(10):36,21:"** RETURN ONE COPY AS ACKNOWLEDGEMENT **"@I1LP20VI:(10);::@(:" 40N":"PR#0"@<DS%ı@P11390@dMK%3440@xIS%3340 AVIVC0İCRIPTION";:36,48:"QUANTITY PRICE AMOUNT":(10)`?I0VI1:VD$(I)"*VOID"Ă:7680?VK$(I)"NOTE"Ĺ36,10:VD$(I)::7680?" ";VK$(I);(SP$,9(VK$(I)));VD$(I);:36,50:VO$(I);:36,55:"@";VP$(I);(SP$,12(VP$(I)));VA$(I):@US$::28:C2$:28:C3$:33:(CP$,3);"/";(CP$,4,3);"-";(CP$,4):(10)i>tCL$;:36,44:"DATE DESIRED ";S1$>A2$;:36,44:"TERMS ";S2$>A3$;:36,44:"F.O.B. ";S3$>A4$;:36,44:"SHIP VIA ";S4$:?(10):US$:"OUR # ITEM DES30,7430,7435= 8880:74304=I$"C"İ2755:3340F=I$"P"7430\=$2620:VT22:1500=8I$(PO):"P-O # ";I$;(SP$,21(I$));CN$;(SP$,40(CN$));"DATE ";DT$=LDS%ĺ"DUPLICATE";C>`28:C1$;(SP$,40(C1$));"TIME ";(T$,7,8):(CF$,(CF$)3);1520:I34:1520:I49:1520:" / - ":7180J<NCR1:NF%1:CF$FS$<I25:2060:CL$I$:1520:CL$:SW%7360,7360,7360,7100<I28:2060:1520:I$:SW%7380,7380,7380,7340<A2$I$<A3$"":A4$"":8540:7430<8620 =1350:SW%7440,74320,; RC$;R:CL$:CF$:"":FS$CF$71806;*1140;4I25:1520:CL$:I28:1520:A2$:I31:1520:A3$:I34:1520:A4$:I49:1520:PH$;H5:1:"OK?";:IN$:1:" ":IN$"Y"7420;\(IN$)312380;pIN$"N"72401<I25:1520:I28:1520:I31:":I79:2060:VS$I$:4:1:868:(VS$)07100:3:"VENDOR":8:"DESIRED":"TERMS":"F.O.B.":"SHIP VIA"::"PHONE / -":1400:18:" P=PROCESS":" C=CANCEL":FS$"VN*"VS$:23:1:" ":OC$:RC$;0:NC:R0:NF%0:""; RR1:RNC7NC07060(9VP$(VI1)"":VA$(VI1)""T9(VS$)0VD$(VI1)VN$" "MF$" "SD$l9"":LP35VI640093:1:958:"VOUCHER OVERFLOW"::"CONTINUE ON SEPERATE VOUCHER":I11500:93:958.:(VS$)0Ģ4:1:"DISTRIBUTOR'S VENDOR NAME:"CHANGE COST ON FILE? ";:IN$::18:868:IN$"Y"CSNC:1040:CI$:OI$::"CHANGED"::I1800:I:18:868 9lVK$(VI)(SK):VS$(VI)"":VB$(VI)"":VD$(VI)MF$" "SD$:VO$(VI)(QY):INCSQ:1820:VP$(VI)I$:INCQYSQ:STSTI:1820:VA$(VI)I$:VIVI1:7:NUM1:2060:SW%6940,6920,6920,642097(I$)06400K7(I$)06400Z70SQ0SQ1x7DQY((I$)SQ):QY0QY17X1520:QY:VR%(VI)R:VX$(VI)""7bNCCS:I94:NUM1:2060:SW%7015,7015,7015,6900o8g(I$)0NC(I$):INC:1820:16:29:I$:18ID ";I$;:36,54:IST:1820:"SUBTOTAL ";I$:ITN:1820:"TENDERED ";I$;:TX010980V*36,43:TX$;:36,54:"TAX EXEMPT ";:11040V*(TX$)011020V*36,54:"TAX ";TX$;:36,68:11040V +36,54:"TAX ";TR100;"%";:36,68W +ITX:1820(VD$(I),35);iU*(VD$(I),1,1)"+"(VD$(I),1,1)"-"Ĺ36,41:VO$(I);:36,46:VS$(I);:36,51:VB$(I);U*36,56:VP$(I);VX$(I);VA$(I)U*VX$(I)"*"VX%1U*U*US$:VX%VX%0:36,54:"NON-TAXABLE *":10940U*(10)_V*IAP:1820:"AMOUNT PA"SK# PRODUCT DESCRIPTION ORDER SHIP BK-ORDER PRICE AMOUNT"ZT*(10)iT0*PS%11280wTD*I0VI1TX*VD$(I)"*VOID"10900Tl*VK$(I)"NOTE"Ĺ36,5:VD$(I):10900Tv*(VD$(I),1,1)"+"(VD$(I),1,1)"-"VK$(I)""U*VK$(I);:36,5:A4$;:(S4$)0106800S)(SP$,53(A4$));S4$;@S)" ":(10)S)"PHONE ";PH$;(SP$,9);"TERMS:";TM$;(SP$,20(TM$));"CUSTOMER ORDER # ";CO$S)(10)S)"SHIPPING DATE______________ROUTING______________WAYBILL/INSURANCE #____________":(10)OT* ";A$YcW0:1mc\0:ER255:12366vc2J1c2JJ1:OP%JVI6420c2JVI3440c2VD$(J)"*VOID"13020sd22620:958::"STOCK # ";VK$(J);:IST:1820:20:"SUBTOTAL ";I$:PC%3:Gb 0" ":PC%PC%1:PC%0Ĺ1010,1:1011,3:1012,166:216,0:769Sb40:3340bH0ER(222):::"":XX%XX%1:"CLOSE"bJ0ER4ĺ"DISK WRITE PROTECT";bK0ER5ĺ"DATA FILE";bL0ER8ĺ"DISK I/O";bM0ER9ĺ"DISK FULL"; cN0ER20ER11ER20:I A L * * *"aX/I1LP21)al/(10);1a/:=a/" 40N"Ja/"PR#0"Ta/3340~a/12260:CI$:"RUN PS-MENU,S6,D1,V0"a/PW$"NONE"(PW$)0ıa/14:1:"ENTER PASSWORD ";:X1(PW$):IN$:" ";:IN$(PW$,X,1)12320b 0:1:"";(SP$,15): ";:IX(10):1820:I$@`."NOV SALES ";:IX(11):1820:I$j`/"DEC SALES ";:IX(12):1820:I$`/"Y-T-D SALES ";:IX(13):1820:I$`0/(10):"NEXT PO# ";PO;" NEXT INVOICE# ";IVaD/(10):"* * * C O M P A N Y C O N F I D E N T SALES ";:IX(4):1820:I$H_|."MAY SALES ";:IX(5):1820:I$q_."JUN SALES ";:IX(6):1820:I$_."JUL SALES ";:IX(7):1820:I$_."AUG SALES ";:IX(8):1820:I$_."SEP SALES ";:IX(9):1820:I$`."OCT SALES(I) ^-^-RX$;6^-X(13)(^-CX$R^."TODAY'S CASH ";:IX(14):1820:I${^."TODAY'S SALES ";:IX(0):1820:I$^,."JAN SALES ";:IX(1):1820:I$^@."FEB SALES ";:IX(2):1820:I$^T."MAR SALES ";:IX(3):1820:I$_h."APRWX$;6:YSE],RX$;7((DT$,2)):MS:MSMSST:WX$;7((DT$,2)):MS\],IVIV1:WX$;3:IVj]-CX$:CI$t]-3340](-14:12260:" ":VT14:1500]<-CN$;:36,50:DT$:36,50:(T$,7,8)]P-14:OX$]d-RX$;7:X(0),X(14)]x-I112]-RX$;I7^-X(VA$(I),J,1)"$"11415$\,:11420G\,RSRS((VA$(I),(VA$(I))J))Q\,1040b\,:EX%11520\,STSTND:12:20:"INDEX "\,OP%ĺOX$:POPO1:WX$;5:PO:11520\,OX$:RX$;7:TS,TC:TCTCAP:TSTSST:WX$;7:TS;",";TC ],RX$;6:YS:YSYSST:422\[,OP%RVR%(I):940:OOOO((VO$(I))SQ):LO(VO$(I))SQ:DL$DT$:DO$DT$:1040:11420[,RVR%(I):940:BOBO(VB$(I))B(I):OHOH(VS$(I)):DU$DT$:BO0BO999BO0[,OH0OH9999OH0[,EX%11420[,ITIT(VS$(I))[,J1(VA$(I))\,C:(10);::$Z`,:" 40N":"PR#0"/Zt,DS%ıMZ~,:12:10::"UPDATING":hZ,(CF$)(CL$)011396Z,12:20:"CUSTOMER":AD$DT$:1240:WC$;0:NC:CC$Z,PQ%EX%11520Z,12:20:"INVENTORY"Z,I0VI1:VD$(I)"*VOID"11422[,VR%(I)011I0VI1#Y$,VD$(I)"*VOID"11340ZY),(VD$(I),1,1)"+"(VD$(I),1,1)"-"ĺ(10):11340wY.,VK$(I)"NOTE"VK$(I)""Y8,VK$(I);:36,5:(VD$(I),35);:36,41:"X";:36,46:VS$(I);:36,51:"X";:36,60:"XXXXX";:36,71:"XXXXXX" ZL,:US$:I1LP18VIV X+(10)>X+I13:(10);:::36,31:"T H A N K Y O U"_X+I1LP29VIVC:(10);::X+EX%DS%(S1$)(S2$)(S3$)(S4$)011260X+PQ%DS%(S1$)(S2$)(S3$)(S4$)011360X+PS%1:"PACKING SLIP ";:EX%ĺIV;X,10420 Y,PS%0::I$W4+CR011100HWH+ICR:1820:36,54:"LESS CREDIT ";:I$:11120SW\+(10)Wp+ICH:1820:"CHANGE ";I$;:36,54:ITA:1820:"TOTAL ";I$:(10):ITAAP:I011160W+1820:"AMOUNT DUE ";I$;:36,44:(US$,25);" SIGNATURE":1118024R$(20)(SP$,(25(R$(20)))2)R$(20)?&800:R$(20):4090M&'R$(20)I$&)(R$(20))24R$(20)(SP$,(25(R$(20)))2)R$(20)&,800:R$(20)&6I94:1000:SW%4175,4180,4160,4170&@(I$)0R$(21)I$ 'B(R$(21))24R$(21)(SP$,(25(R$(21(R$(24),3);"/";(R$(24),4,3);"-";(R$(24),4)@%14:13:R$(25)m%23:"HIT --> TO CHG DATA RTN TO EXIT"%" <-- TO BACK PAGE";%I1:1000:SW%4100,4110,5000,3000%I91:1000:SW%4135,4140,4120,4125%(I$)0R$(20)I$(&(R$(20))):3860$UR$(19)I$&$Z800:R$(19)0$d3200]$:" * * CHANGE SYSTEM INDEX * *"o$:"CO. NAME"$:"ADDRESS"$11:"PHONE"$14:"PASSWORD"$3:13:R$(20)$5:13:R$(21)$7:13:R$(22)$9:13:R$(23),%11:13:NUM1:FP%1:1000:SW%3885,3890,3870,3880A#(I$)0R$(18)I$X##800:R$(18):3200o#(800:R$(18):3820}#-R$(18)I$#2800:R$(18)#<I88:NUM1:FP%1:1000:SW%3925,3930,3910,3920#F(I$)0R$(19)I$#K800:R$(19):3200$P800:R$(19(I$)0R$(16)I$("800:R$(16):3200?"800:R$(16):3740M"R$(16)I$^"800:R$(16)"I82:NUM1:FP%1:1000:SW%3845,3850,3830,3840"(I$)0R$(17)I$"800:R$(17):3200"800:R$(17):3780"R$(17)I$" 800:R$(17)*#I85:0:R$(14):3660!R$(14)I$.!800:R$(14)b!I76:NUM1:FP%1:1000:SW%3765,3770,3750,3760y!(I$)0R$(15)I$!800:R$(15):3200!800:R$(15):3700!R$(15)I$!800:R$(15)!I79:NUM1:FP%1:1000:SW%3805,3810,3790,3800" LI70:NUM1:FP%1:1000:SW%3685,3690,3670,3680I V(I$)0R$(13)I$` [800:R$(13):3200w `800:R$(13):3620 eR$(13)I$ j800:R$(13) tI73:NUM1:FP%1:1000:SW%3725,3730,3710,3720 ~(I$)0R$(14)I$ 800:R$(14):3200!8000(I$)0R$(11)I$0 800:R$(11):3200G800:R$(11):3540UR$(11)I$f800:R$(11)$I67:NUM1:FP%1:1000:SW%3645,3650,3630,3640.(I$)0R$(12)I$3800:R$(12):32008800:R$(12):3580=R$(12)I$B800:R$(12)2200 800:R$(9):3460& R$(9)I$6 800:R$(9)j I61:NUM1:FP%1:1000:SW%3565,3570,3550,3560 (I$)0R$(10)I$ 800:R$(10):3200 800:R$(10):3500 R$(10)I$ 800:R$(10) I64:NUM1:FP%1:1000:SW%3605,3610,3590,36z 800:R$(7)D I55:NUM1:FP%1:1000:SW%3485,3490,3470,3480Z (I$)0R$(8)I$p 800:R$(8):3200 800:R$(8):3420 R$(8)I$ 800:R$(8) I58:NUM1:FP%1:1000:SW%3525,3530,3510,3520 (I$)0R$(9)I$ 800:R$(9):31000:SW%3405,3410,3390,34004> (I$)0R$(6)I$JC 800:R$(6):3200`H 800:R$(6):3340mM R$(6)I$}R 800:R$(6)\ I52:NUM1:FP%1:1000:SW%3445,3450,3430,3440f (I$)0R$(7)I$k 800:R$(7):3200p 800:R$(7):3380u R$(7)I$ 800:R$(4):3200+ 800:R$(4):3260M R$(4)I$:(I$)40R$(4)"40"] 800:R$(4) I46:NUM1:1000:SW%3365,3370,3350,3360 (I$)0R$(5)I$ 800:R$(5):3200 800:R$(5):3300% R$(5)I$* 800:R$(5)4 I49:NUM1:FP%1: R$(2)I$ 800:R$(2)G I40:NUM1:1000:SW%3285,3290,3270,3280] (I$)0R$(3)I$s 800:R$(3):3200 800:R$(3):3220 R$(3)I$ 800:R$(3) I43:NUM1:1000:SW%3325,3330,3310,3320 (I$)0R$(4)I$:(I$)40R$(4)"40");:27:R$(19)B 23:1:"HIT --> TO CHG DATA RTN TO CONTINUE"_ " <-- TO BACK PAGE"; I1:1000:SW%3200,3220,4000,2120 I37:NUM1:FP%1:1000:SW%3245,3250,3230,3240 (I$)0R$(2)I$ 800:R$(2):3200 800:R$(2):3200 7:R$(2);:32:R$(3)30 5:12:R$(4);:32:R$(5)P: 9:7:R$(6);:27:R$(7)oD 11:7:R$(8);:27:R$(14)N 13:7:R$(9);:27:R$(15)X 15:7:R$(10);:27:R$(16)b 17:7:R$(11);:27:R$(17)l 19:7:R$(12);:27:R$(18)v 21:7:R$(13AGE";:24:"ORDER #"E :"********** AMOUNT OF SALES **********"b :"Y-T-D";:21:"TODAY"{ :"JAN";:21:"JUL" :"FEB";:21:"AUG" :"MAR";:21:"SEP" :"APR";:21:"OCT" :"MAY";:21:"NOV" :"JUN";:21:"DEC"& 3:ASKİ400:2140#/LP%1HP%212534SASK2120O>HP%LP%:LP%HP%2:2065oHLP%LP%((HP%LP%)2):2065MUS%1:S1SK<R3:2:" ";::"NEW ITEM";::" RTN = SKIP, --> = ADD":SKSA:OH0:BO0:OO0:LO0:ML0:SQ1:CS0:SL0:IT0:RS0:VN$"8Ģ23:1::"STOCK NUMBER GREATER THAN 9998"::2022SK0SKNS:SK9998Ģ23:1::"STOCK NUMBER GREATER THAN 9998"::2022SASK800:SKRNRSKNS2125 US%0:HP%NR:LP%HP%2RLP%R0R1 RI$;R:SK:""*SG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC. %:1'ER(222):::"":333206::ER255W(ER4ĺ"DISK WRITE PROTECT";n2ER8ĺ"DISK I/O"; ";A$d:10` COPYRIGHT AU020((#:CC$:"RUN PS-MENU,S6,D1,V0"EN%ER(222):::"":9660TX%::ER255u%ER4ĺ"DISK WRITE PROTECT";%ER8ĺ"DISK I/O";%ER9ĺ"DISK FULL";%ER20ĺ"RESET";%ER255ĺ"CTRL C";%" ERROR ("ER")"::"PRESS ";A$VERIFY"::I22:1000:15:SP$:I$"Y"25304 2400C RNR2550h NRR1:WC$;0:NR:NL$(R)CF$CL$w 550:2020 RNR2140 958:"***** DELETING RECORD" NRNR1:DRR:RNR:500:RDR:550:NL$(R)NL$(NR):NL$(NR)"" WC$;0:NR:"":2PH$,5,3):2310)B 800:(PH$,5,3):2400<L (I$)32350_V PH$(PH$,4)I$(PH$,5):2370` I19:1000:SW%2420,2500,2500,2410j 800:(PH$,4):2350t (I$)42400~ PH$(PH$,8)I$ 12:14:AD$DT$:PH$;:32:AD$* 958:15:4::"2290,2290,2280"800:A4$:22306(I$)0A4$I$D800:A4$r I13:NUM1:1000:SW%2330,2325,2500,2320 800:PH$:2265 800:PH$:2350 (I$)32310$ PH$I$(PH$,9):800:PH$. I16:1000:SW%2380,2370,2500,23608 800:(FILE";.v%ER8ĺ"DISK I/O";5.%ER9ĺ"DISK FULL";J.%ER20ĺ"RESET";a.%ER255ĺ"CTRL C";.%" ERROR ("ER")"::"PRESS ";A$.%:1.` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.,";DS(10);",";DS(11);",";DS(12):-I26:WX$;I:R$(I):S-WX$;7:R$(7);",";CHm-I825:WX$;I:R$(I)s--CX$:"RUN PS-MENU"-N%ER255::9620-X%ER(222):::"":XX%XX%1:"CLOSE"-b%ER4ĺ"DISK WRITE PROTECT";.l%ER5ĺ"DATA 0,4450,4400,4430',0(I$)0R$(25)I$>,D800:R$(25):4090U,N800:R$(25):4270c,XR$(25)I$z,b800:R$(25):4090,:,WX$;0,R$(1),WX$;1-DS(1);",";DS(2);",";DS(3);",";DS(4);",";DS(5);",";DS(6);",";DS(7);",";DS(8);",";DS(9);"R$(24),4)!+800:(R$(24),4,3)P+I109:NUM1:1000:SW%4375,4380,4360,4370b+(I$)04365l+ 4350+ 800:(R$(24),4):4090+800:(R$(24),4):4310+(I$)44350+R$(24)(R$(24),6)I$+800:(R$(24),4),&I112:1000:SWW%444$(24),3):4230 *(I$)34270:*R$(24)I$(R$(24),7)P*800:(R$(24),3)y*I106:1000:SW%4335,4340,4320,4330*(I$)04325*4310*800:(R$(24),4,3):4090*800:(R$(24),4,3):4270*(I$)34310 +R$(24)(R$(24),3)I$(R$(23))800:R$(23):40904)800:R$(23):4190B)R$(23)I$z)(R$(23))24R$(23)(SP$,(25(R$(23)))2)R$(23))800:R$(23))I103:NUM1:1000:SW%4295,4300,4280,4290)(I$)04285)4270)800:(R$(24),3):4090*800:(R2)R$(22) (m800:R$(22):40907(r800:R$(22):4150E(wR$(22)I$}(y(R$(22))24R$(22)(SP$,(25(R$(22)))2)R$(22)(|800:R$(22)(I100:1000:SW%4255,4260,4240,4250((I$)0R$(23)I$)(R$(23))24R$(23)(SP$,(25(R$(23)))2))))2)R$(21)$'E800:R$(21):4090;'J800:R$(21):4110I'OR$(21)I$'Q(R$(21))24R$(21)(SP$,(25(R$(21)))2)R$(21)'T800:R$(21)'^I97:1000:SW%4215,4220,4200,4210'h(I$)0R$(22)I$ (j(R$(22))24R$(22)(SP$,(25(R$(22)))$)8):DX$:BX$:OX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$ WX$;0:DT$:WX$;1:IS$;",";ID$;",";BS$;",";BD$;",";CS$;",";CD$;",";RS$;",";RD$;",";PS$;",";PD$;",";NS$;",";ND$ R26:RX$;R:R$:WX$;R:R$: RX$;7:R$,RISK WRITE PROTECT";*'2ER8ĺ"DISK I/O";B' ";A$'d:1'` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.,";MF$;" ";SD$;:36,52:OH;:36,58:RR1W& ML0ĭOHOOBOMLĺ" **** REORDER ****";c& :3250o& " 40N"|& "PR#0"& 900:2020&WI$;0:NR;",";NS:"":CI$:"RUN PS-MENU,S6,D1,V0"&ER(222):::"":33320&::ER255'(ER4ĺ"D1:450:RR2:31802% RR1:R0NR1:NS1:3120;% 400U% NRNR1:NSSK1:3120[% h% "PR#1"z% " K":" 80N"% "RECORD";:36,10:"STK# ITEM DESCRIPTION";:36,50:"ON-HAND":(10)% RNR3270'& 400:"R-";R;:36,10:SK;:36,15:VN$;" 1:RC%282020@$0 WI$;0:NR;",";NS:"":RC%0:CI$:OI$:2020Q$5 SAS1RR1j$: 500:450:550:RR1}$D NSSK13130$N 450:NRR1:3120$X 3:" DELETING RECORD #";R;" STOCK #";SK;" "$] NS1SK3200$b RR1$l RNR3210%v 400:RROBOML3010-# ML0Ģ13:32::"REORDER":N# I43:1000:23:1:(SP$,31)k# SW%3050,2250,2020,2880# I$"Y"Ģ2:""::3080# I$"N"2020# 3000# US%03100# 450:CI$:OI$:2020# SKNS3125#& NSSK1:NRNR1:450$+ RC%RC%600:SL(I$)$"6 JSL:600:800:I$9"@ I37:NUM1:1000V"J SW%2920,2930,2900,2910l"T (I$)0SQ(I$)y"V 800:SQ"Y 3000"^ 800:SQ:2820"h SQ(I$)"r 800:SQ" 23:1::" UPDATE? ENTER 'Y' IF YES":" 13:32:" " # OHO! J(I$):J99999.992760.! 600:CS(I$)E! JCS:600:800:I$`! I40:NUM1:FP%1:1000}! SW%2860,2870,2840,2850! (I$)0J(I$):600:SL(I$)! JSL:600:800:I$! 3000!" JSL:600:800:I$:2760!, J(I$):J99999.992820 "1 50,2720,2730" (I$)0BO(I$)/ 800:BO9 3000L 800:BO:2640Y BO(I$)f 800:BO I34:NUM1:FP%1:1000 SW%2800,2810,2780,2790 (I$)0J(I$):600:CS(I$) JCS:600:800:I$ 3000 JCS:600:800:I$:27000DL$I$+ 800:DL$!- 300052 800:DL$:2530@< DL$I$NF 800:DL$cP I22:NUM1:1000Z SW%2680,2690,2660,2670d (I$)0LO(I$)f 800:LOi 3000n 800:LO:2590x LO(I$) 800:LO I31:NUM1:1000 SW%2740,27800:OO 3000$ 800:OO:24201 OO(I$)> 800:OOS I16:NUM1:1000p SW%2570,2580,2550,2560 (I$)0ML(I$) 800:ML 3000 800:ML:2470 ML(I$) 800:ML I19:850( SW%2620,2630,2602,2610 * (I$)!e DU$DT$:T(I3):T(I2):DU$.j 800:OH<t I10:850Y~ SW%2450,2460,2432,2440m (I$)0DO$I${ 800:DO$ 3000 800:DO$:2360 DO$I$ 800:DO$ I13:NUM1:1000 SW%2510,2520,2490,2500 (I$)0OO(I$) ,2352,23540 (I$)0MF$I$21 800:MF$:3000F2 800:MF$:2300Q3 MF$I$_4 800:MF$t8 I28:NUM1:1000B SW%2400,2410,2380,2390L (I$)12385N OH(I$):DU$DT$:T(I3):T(I2):DU$Q 800:OH:3000V 800:OH:2351` OH(I$)SW%2280,2290,2270,2250-(I$)0VN$I$;800:VN$E3000PVN$I$^800:VN$lI7:1000 SW%2340,2350,2320,2330 (I$)0SD$I$ 800:SD$ 3000 800:SD$:2250$ SD$I$. 800:SD$ / I46:1000:SW%2355,2356Q21:21:JSL:600:I$1OHOOBOML2230RML0Ģ13:32::"REORDER":d3:1:;:IN$x(IN$)1320203:1:"--> = FWD, <-- = BKWD, RTN = UPD "IN$"D"ĺCI$:OI$:3160IN$"L"ĺCI$:OI$:3220I4:NUM0:1000":MF$"":SD$"":DU$"12/31/99":DO$"12/31/99":DL$"12/31/99"^\5:8:SK;:16:VN$;:30:MF$nf7:16:SD$p11:10:DO$;:21:OO;:32:MLz13:10:DL$;:21:LO15:10:DU$;:21:OH;:32:IT17:26:BO19:21:JCS:600:I$;:36:S(TS$):(TS$,I,1)"E"4415 ":H"?I((TS$,I1)):SA$(I):I(SA$)1x"DSA$(TS$,(TS$)I)(SP$,11):SA$(SA$,11)"NSS%4435,4432,4433,4434"PCY$(R)CY$:4435"QST$(R)ST$:4435"RZP$(R)ZP$"SI1(SC$)"X(SC$,I,1)"N"4460#](E$(I))):I(TS$)11:(TS$,I,1)" "(TS$,I,1)"+"4370H!:4430}!TS$(TS$,I):I(TS$)11:(TS$,I,1)"+"4385!:4430!!(TS$)24430!&CY$(TS$,(TS$)I)(SP$,11):CY$(CY$,10):TS$(TS$,I)!+(TS$)2TS$"++"4430"0I25 J043008 ZP$(SP$,6J)(TS$,J):TS$(TS$,I)q I(TS$)11:(TS$,I,1)" "(TS$,I,1)"+"4320} :4430 TS$(TS$,I):I1110:SE$(I)(TS$,(SE$(I)))4340 :4370 ST$SE$(I):(ST$)2ST$SE$(I1) ";A$#9000.` COPYRIGHT AUG 1$:WX$;7:R$;",";R1$9 R825:RX$;R:R$:WX$;R:R$:L CX$:XX$:NX$V9000(#:12:"INSERT PROGRAM DISK IN SLOT 6 DRIVE 1"::"AND PRESS TO RETURN TO MENU. ";:A$:" ":"RUN PS-MENU,S6,D1,V0"#ER(222):1:1::"":9115#ōō٠ԍԍč٠ΠōҍҠٰ  TECHNOLOGY INC.ER4ĺ"DISK WRITE PROTECT";4%>NER5ĺ"DATA FILE";K%HNER8ĺ"DISK I/O";c%RNER9ĺ"DISK FULL";x%\NER20ĺ"RESET";%fNER255ĺ"CTRL C";%pN" ERROR (";ER;")"::"PRESS ";A$%zN9999&` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH$SF$(R)SF$(R)CY$:45404$(SC$,I,1)"A"4540J$SF$(R)SF$(R)SA$P$e$:(SC$)02015$"***** SORT PHASE BYPASSED":2150$(#CC$$'"RUN PS-REPORT-MENU,S6,D1,V0"$ NER(222):14::958::"PR#0":20020$*N222,255:20000%4NCF$)(CL$)294455K#bSF$(R)SF$(R)CL$CF$(SP$,30(CF$)(CL$)):4540x#gSF$(R)SF$(R)CL$(CF$,30(CL$)):4540#l(SC$,I,1)"Z"4480#vSF$(R)SF$(R)ZP$:4540#(SC$,I,1)"S"4500#SF$(R)SF$(R)ST$:4540#(SC$,I,1)"C"4520&0 L0 Π L> CCESSED FOR OVER MONTHS."::de 13:24:"__ ";:24:NM$"":I12:A$:(A$)13I2:2::2410|f A$"0"A$"9"2405h NM$NM$A$:A$;j :NM(NM$):NM19000o DM((DT$,2))12((DT$,2))NMrp :2:958:12:"CUSTOMER RECORDS THAT HAVEQB L2$A3$" "A4$:CL$;CF$;:36,22:" ";A2$;:36,57:PH$;" ";AD$:36,24:L2$]G LCLC2cL Q VNĺ(10):"> IDENTIFIES VENDORS":LCLC2V ILCLP:(10);:::" 40N":"PR#0"!` 2:958:11::"DELETE CUSTOMER RECORDS THAT HAVE NOT BEEN AD ADDRESS LIST";:36,63:"PAGE ";PG;" ";DT$:PGPG18 "SEQ:";SC$;" SEL:";SL$;:36,70:(TM$,7,8):(10):"NAME";:36,24:"ADDRESS";:36,57:"PHONE NUMBER LAST VISIT":(10)= (CF$)02370> (CF$,3)"VN*"CF$CL$:CL$"> ":2370? CF$", "CF$$))2330 23803 SL$(ZP$(R),2,(SL$))2330= 2380O LCLP52365^$ PG12350& VNĺ(10):"> IDENTIFIES VENDORS":LCLC2) ILCLP:(10);::. LC6:CN$;:36,30:VN22355/ VNĺ"VENDOR ";0 VNĺ"CUSTOMER ";33 "NAME ANON PRINTER ";:A$::"PR#1":" K":" 80N"ApLF$"LABEL"2500ZL1N%:RS%(L):400iVN22310VN(CF$,3)"VN*"2380VN(CF$,3)"VN*"2380 SS%2330,2315,2317,2319 SL$(CY$(R),(SL$))2330 2380 SL$(ST$(R),(SL M%M%2M%02150,J%1:K%N%M%6 I%J%CL%I%M%] SF$(I%)SF$(L%)2120*T%S%(I%):T$SF$(I%):S%(I%)S%(L%):SF$(I%)SF$(L%):S%(L%)T%:SF$(L%)T$4I%I%M%>I%12070HJ%J%1RJ%K%2030\2060+f"***** TURN I2(I$)I$(I$,I2)/I$"$"I$:950HI$"$"I$".00":950ZI$"$"I$"0"xI$(SP$,1,11(I$))I$:**********************M A I N P R O G R A M**********************4000"***** BEGIN SORT PHASE"M%N% ,WC$;R16CL$:CF$:A2$:A3$:A4$:PH$:AD$:@""@JY***** READ CUSTOMERdRC$;RCL$:CF$:A2$:A3$:A4$:PH$:AD$""I$((I100.5)100):I1(I$)(I$,I,1)"."920I(I$)935I1(I$)940IN#4":" ";TM$:"IN#0":"PR#0"OTM$(TM$,8)":"(TM$,10,2)":"(TM$,6)OC$:RC$;R:NR:RR1:"":N%NR1:S%(N%),SF$(N%)2000***********************S U B R O U T I N E S***********************+***** WRITE CUSTOMERPEN PS.CUSTOMER,L120,S"CS$",D"CD$B RC$"READ PS.CUSTOMER,R"a WC$"WRITE PS.CUSTOMER,R"~ CC$"CLOSE PS.CUSTOMER" SP$" ":I111:SP$SP$(SP$,I): TM$(SP$,18):(50176)8(50177)120(50176)8(50177)120180!"PR#4":"999* FOX$"OPEN PS.INDEX,L25,S6,D1,V0"E PRX$"READ PS.INDEX,R"_ ZCX$"CLOSE PS.INDEX" dOX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$:RX$;4:LP:RX$;20:CN$ nCX$ xDT$"12/31/00"ĺ"RUN PS-UPDATE"$ OC$"OXAS,TX,VERMONT,VT,VIRGINIA,VA,VIRGIN ISLANDS,VI,WEST VIRGINIA,WV,WISCONSIN,WI,WYOMING,WY -IOWA,IA,RHODE ISLAND,RI,COLORADO,CO,INDIANA,IN,MASSACHUSETTS,MA,NORTH DAKOTA,ND,UTAH,UT,WASHINGTON,WA 2I%0:J%0:K%0:L%0:M%0:N%0 <T$"":T%0:R0:PG1:LC,MISSISSIPPI,MS,MISSOURI,MO,MONTANA,MT,NEBRASKA,NB,NEVADA,NV,NEW HAMPSHIRE,NH #NEW JERSEY,NJ,NEW MEXICO,NM,NEW YORK,NY,NORTH CAROLINA,NC,OHIO,OH,OKLAHOMA,OK,OREGON,OR,PENNSYLVANIA,PA,PUERTO RICO,PR,SOUTH CAROLINA,SC,SOUTH DAKOTA,SD,TENNESSEE,TNX (TEBAMA,AL,ARIZONA,AZ,ARKANSAS,AR,CALAFORNIA,CA,CANAL ZONE,CZ,CONNECTICUT,CT,DELEWARE,DE,DISTRICT OF COLUMBIA,DC,FLORIDA,FL,GEORGIA,GA,GUAM,GU,HAWAII,HI,IDAHO,ID,ILLINOIS,ILM KANSAS,KS,KENTUCKY,KY,LOUISIANA,LA,MAINE,ME,MARYLAND,MD,MICHIGAN,MI,MINNESOTA,MN9 PS-CUSTOMER-NA-LIST 06/25/79 X*************************wI N I T I L I Z A T I O N*************************(55)253Č769 20000 "NOMON I,O,C":SE$(110):I1110:SE$(I): ALASKA,AK,ALA                LL";\NER20ĺ"RESET";0fNER255ĺ"CTRL C";bpN" ERROR (";ER;")"::"PRESS ";A$mzN10000` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.)8'(808)P$"PS-TURNOVER-RPT":10060BB'P$"PS-REPORT-MENU"^L'"RUN ";P$;",S6,D1,V0" NER(222):12:958::"PR#0":20020*N222,255:200004NER4ĺ"DISK WRITE PROTECT";>NER5ĺ"DATA FILE";HNER8ĺ"DISK I/O";RNER9ĺ"DISK FU;I$:LCLC12#(10):36,66:IFT:900:"**";I$:ILCLP6:(10);::"* * * * * * * * * C O M P A N Y C O N F I D E N T I A L * * * * * * * * *"<#(10);(10)'CI$:" 40N":"PR#0"'(806)10050.'(810)P$"PS-MOVEMENT-RPT":10060)? IST:900:36,67:"*";I$:ST0:LCLC1D@ LV$VN$:LCLP52340B SK;:36,6:VN$;:36,17:I19(MF$):MF$;" ";(SD$,I);:36,39:OH;:36,49:OO;:ICS:900:36,54:I$;" ";:ICSOH:STSTI:FTFTI:900:I$L LCLC1V (#IST:900:36,67:"*"LP4:(10);::d. LC5:CN$;:36,26:"INVENTORY VALUE REPORT";:36,63:"PAGE ";PG;" ";DT$:PGPG18 36,70:(TM$,7,8):(10):"STK# VENDOR MF# & DESCRIPTION ON-H ON-O ITEM COST TOTAL COST":(10)= VN$LV$2370> LV$""2368*** TURN ON PRINTER ";:A$6p:"PR#1":" K 80N"sL1N%:RS%(L):400:(VN$,1,1)"+"(VN$,1,1)"-"2390 LCLP52365$ PG12350) (10);(10):"* * * * * * * * * C O M P A N Y C O N F I D E N T I A L * * * * * * * * *":ILC PHASE"M%N%M%M%2,M%02150>J%1:K%N%M%H I%J%kL%I%M%:SF$(I%)SF$(L%)2120*T%S%(I%):T$SF$(I%):S%(I%)S%(L%):SF$(I%)SF$(L%):S%(L%)T%:SF$(L%)T$:I%I%M%:I%12070HJ%J%1:J%K%2030\2060f(806)ĺ"**$"0"#I$(SP$,1,11(I$))I$:?**********************[M A I N P R O G R A Mw**********************"***** BEGIN READING FILE"R1N%:RI$;R:SK:VN$:MF$:"":S%(R)R:SF$(R)VN$(SP$,11(VN$))MF$:"***** BEGIN SORTDU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS? ""E j I$((I100.5)100):I1(I$) (I$,I,1)"."920  I(I$)935 I1(I$)940 I2(I$)I$(I$,I2) I$"$"I$:950 I$"$"I$".00":950I$"$"I********# S U B R O U T I N E S@ ***********************[ +***** WRITE INVENTORYf ,WI$;R 6SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS @"" J ***** READ INVENTORY RI$;R6 SK:VN$:MF$:SD$:TM$(SP$,18):(50176)8(50177)120(50176)8(50177)120180y "PR#4":"IN#4":" ";TM$:"IN#0":"PR#0" TM$(TM$,8)":"(TM$,10,2)":"(TM$,6) OI$:RI$;R:NR,NS:RR1:"":N%NR1:S%(N%),SF$(N%) 2000 ***************:RX$;4:LP:RX$;20:CN$! nCX$H xDT$"12/31/00"ĺ"RUN PS-UPDATE"y OI$"OPEN PS.INVENTORY,L115,S"IS$",D"ID$ RI$"READ PS.INVENTORY,R" WI$"WRITE PS.INVENTORY,R" CI$"CLOSE PS.INVENTORY" SP$" ":I111:SP$SP$(SP$,I):H R E P O R T":9 2I%0:J%0:K%0:L%0:M%0:N%0X <T$"":T%0:R0:PG1:LC999~ FOX$"OPEN PS.INDEX,L25,S6,D1,V0" PRX$"READ PS.INDEX,R" ZCX$"CLOSE PS.INDEX" dOX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$ 8 PS-INV-VALUE-RPT 06/07/79 W*************************vI N I T I L I Z A T I O N*************************(55)253Č76920000 "NOMON I,O,C": " I N V E N T O R Y V A L U E      STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.B*N222,255:2000034NER4ĺ"DISK WRITE PROTECT";K>NER5ĺ"DATA FILE";bHNER8ĺ"DISK I/O";zRNER9ĺ"DISK FULL";\NER20ĺ"RESET";fNER255ĺ"CTRL C";pN" ERROR (";ER;")"::"PRESS ";A$zN10000(` COPYRIGHT AUG 1978 6,60:DU$;" ";:ISL:900:I$(L LCLC1.V I(#ILCLP1:(10);::c'CI$:" 40N":"PR#0"v'(806)100508'(808)P$"PS-TURNOVER-RPT":10060B'P$"PS-REPORT-MENU"L'"RUN ";P$;",S6,D1,V0" NER(222):12:958::"PR#0":20020$:PGPG18 36,70:(TM$,7,8):(10):"STK# VENDOR MF# & DESCRIPTION ON-H BKORD TURN LAST ACT SALES PRICE":(10)= DU$"12/31/99"2370> DU$" "B SK;:36,5:VN$;:36,16:MF$;" ";SD$;:36,42:OH;:36,48:BO;:36,54:IT;:3(806)ĺ"***** TURN ON PRINTER ";:A$Bp:"PR#1":" K 80N"L1N%:RS%(L):400:(VN$,1,1)"+"(VN$,1,1)"-"2390 LCLP52365$ LC5:PG12350) I15:(10);:: . CN$;:36,30:"ITEM MOVEMENT REPORT";:36,63:"PAGE ";PG;" ";DT* BEGIN SORT PHASE"M%N%)M%M%28M%02150JJ%1:K%N%M%T I%J%wL%I%M%:SF$(I%)SF$(L%)2120*T%S%(I%):T$SF$(I%):S%(I%)S%(L%):SF$(I%)SF$(L%):S%(L%)T%:SF$(L%)T$:I%I%M%:I%12070HJ%J%1:J%K%2030\2060)f,1,11(I$))I$:-**********************IM A I N P R O G R A Me**********************"***** BEGIN READING FILE"R1N%400:S%(R)R:I$(IT):B$(BO):SF$(R)(ZR$,6(I$))I$(ZR$,6(B$))B$(DU$,2)(DU$,5):"****:BO:OO:LO:ML:SQ:CS:SL:IT:RS- ""3 X I$((I100.5)100):I1(I$)o (I$,I,1)"."920u  I(I$)935 I1(I$)940 I2(I$)I$(I$,I2) I$"$"I$:950 I$"$"I$".00":950 I$"$"I$"0"I$(SP$B R O U T I N E S. ***********************I +***** WRITE INVENTORYT ,WI$;R 6SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS @"" J ***** READ INVENTORY RI$;R$ SK:VN$:MF$:SD$:DU$:DO$:DL$:OH(50176)8(50177)120(50176)8(50177)120180g "PR#4":"IN#4":" ";TM$:"IN#0":"PR#0" TM$(TM$,8)":"(TM$,10,2)":"(TM$,6) OI$:RI$;R:NR,NS:RR1:"":N%NR1:S%(N%),SF$(N%) 2000 *********************** S U xDT$"12/31/00"ĺ"RUN PS-UPDATE"V OI$"OPEN PS.INVENTORY,L115,S"IS$",D"ID$u RI$"READ PS.INVENTORY,R" WI$"WRITE PS.INVENTORY,R" CI$"CLOSE PS.INVENTORY" SP$" ":I111:SP$SP$(SP$,I): ZR$"000000"6 TM$(SP$,18):0:K%0:L%0:M%0:N%05 <T$"":T%0:R0:PG1:LC999[ FOX$"OPEN PS.INDEX,L25,S6,D1,V0"v PRX$"READ PS.INDEX,R" ZCX$"CLOSE PS.INDEX" dOX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$:RX$;4:LP:RX$;20:CN$ nCX$%* 8 PS-MOVEMENT-RPT 06/07/79 W*************************vI N I T I L I Z A T I O N*************************(55)253Č76920000 "NOMON I,O,C":" M O V E M E N T R E P O R T": 2I%0:J%     z#?   Ӯؠ Ӯ٠ Џӭ٭֭Ԡ!ЏӭҭԠ"ЏӭҭԠЏӭԭԠЏӭ֭ŭԠЏӭҭԠ ЏӭΠ ЏӭԭŠЏӭ֭ŠЏӭԭŠЏӭ֭Š!ЏӭԭРЏӭԭՠЏӭϭԠϠŠҠЏӭ٠`ЏӭՠЏӭŭՠЏӭŠЏӭŠ(L C ERROR"$ xER20ĺ"RESET ERROR"~ :"CODE="ER::"PRESS ";A$::"ATTEMPTING RESTART":"RUN THE CASHIER,D1,S6" ` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.:11:"APPLE COMPUTER INC."h 721:13:"COPYRIGHT 1978"::2:"STEPHEN M WILLIAMS/HIGH TECHNOLOGY INC" <"VERIFY PS.INDEX,S6,D1,V0" F"RUN PS-ENTRY,S6,D1,V0" dER(222):::ER6ER8ĺ"INSERT PROGRAM DISK IN SLOT 6 DRIVE 1" nER255ĺ"CTR166 5 I952975:J:I,J::I10101012:J:I,J: #"VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV";:I223:")";:40:"(";: (4:9:"* * THE CASHIER * *"::12:"STORE MANAGEMENT" -:::19:"BY"::11:"STEPHEN M. WILLIAMS"::19:"FOR":: PS-START-UP 07/02/79 K(55)253ĀY16292,1c 100y"NOMON I,O,C":977,1:978,3"BLOAD PS-SIREN"  32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212,184,3,   L C ERROR"$ xER20ĺ"RESET ERROR"~ :"CODE="ER::"PRESS ";A$::"ATTEMPTING RESTART":"RUN THE CASHIER,D1,S6" ` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.N:11:"APPLE COMPUTER INC."h 721:13:"COPYRIGHT 1978"::2:"STEPHEN M WILLIAMS/HIGH TECHNOLOGY INC" <"VERIFY PS.INDEX,S6,D1,V0" F"RUN PS-ENTRY,S6,D1,V0" dER(222):::ER6ER8ĺ"INSERT PROGRAM DISK IN SLOT 6 DRIVE 1" nER255ĺ"CTR166 5 I952975:J:I,J::I10101012:J:I,J: #"VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV";:I223:")";:40:"(";: (4:9:"* * THE CASHIER * *"::12:"STORE MANAGEMENT" -:::19:"BY"::11:"STEPHEN M. WILLIAMS"::19:"FOR":: PS-START-UP 07/02/79 K(55)253ĀY16292,1c 100y"NOMON I,O,C":977,1:978,3"BLOAD PS-SIREN"  32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212,184,3,   I$IN$:VT:HT:IN$;:HTHT1:MXMX138 MX02500HL (US$,MX):2100X` SW%4:2480ht SW%3:2480{ (I$)02480 SW%2 (SP$,MX) NUM0: (I$)22580 I$(I$,(I$)1) MXMX1:HTHT1:VT:HT:(95):2100 (I$)024RIN$"]"İ1450:2120*\(IN$)312380>p(IN$)212440R(IN$)132420e(IN$)82520(IN$)44(IN$)58(IN$)342120(IN$)27(I$)02120(IN$)272120NUM2340IN$"."2340 IN$"0"IN$"9"2120$$ I$(I$,I2)I$FL$I$:20207I$FL$I$".00":2020II$FL$I$"0"qI$(SP$,15(I$))I$:I$(I$,11):***** GET & EDIT FIELD FROM INPUT SCREEN  VTT(I):HTT(I1):MXT(I2):I$"":SW%1 VT:HT:(US$,MX)4VT:HT:;HIN$60DI$DI$I$"/")T(I1)T(I1)3GNUM1:2060:(I$)21760eI$DI$I$:T(I1)T(I1)6tT(I2)8:FL$"$"&I$((I100.5)100)0I1(I$)D(I$,I,1)"."1900XlI(I$)1980I1(I$)2000 I2(I$)I$):T(I):T(I1):,***** GET & EDIT DATEST(I2)2:NUM1:2060:(I$)01800j,(I$)1I$"0"I$@I$"01"I$"12"1560TDI$I$"/":MO(I$)hT(I1)T(I1)3|NUM1:2060:(I$)01660(I$)1I$"0"I$I$"01"I$DM$(MO)1616291,0:X110::16292,1:h16368,0:VT:1:868:49296,128:I120:W(49601)::W2541503:"VERIFY PRINTER"::I1600:(16384)155I600:::16368,0:2755:3340:1500"PR#1":" K 80N":T(I):T(I1):(SP$,T(I2)ER tRC$;R4CL$:CF$:A2$:A3$:A4$:PH$:AD$=""C]***** WRITE CUSTOMERhWC$;RCL$:CF$:A2$:A3$:A4$:PH$:AD$""F23:11:"ENTER SELECTION:":I19:2060:x16::(SP$,39);:13:" O P T I O N S ":: RI$;RWSK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS`""f***** WRITE INVENTORYWI$;R$SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS8""L`***** READ CUSTOMI):-431,29,31,30,31,30,31,31,30,31,30,317H2760T\***********************opS U B R O U T I N E S***********************VI0RS%OP%ıI0VI1:SK(VK$(I))OHOH(VS$(I)):BOBO(VB$(I)):***** READ INVENTORY 10,25 13,7,3,13,11,3,13,15,4,15,7,13,17,7,10,4,19,10,10,20,4,19,30,11,21,30,11,14,10,8,4,30,10,6,19,15,19,7,10,15,30,11,16,10,25 16,29,8 VK$(30),VD$(30),VO$(30),VS$(30),VB$(30),VP$(30),VA$(30),VX$(30),VR%(30),B(30) DM$(12):I112:DM$(S$(US$,I):* ***********************E D A T A T A B L E Sb *********************** T(96),X(14):I196:T(I): 3,32,8,4,10,4,6,10,4,8,10,4,10,10,4,12,10,8,23,28,1,4,1,25,3,10,25,4,10,25,5,10,25,6,10,25,8,10,25,9,10,25,10,10,25,11, PS.CUSTOMER"4 SP$" ":I111:SP$SP$(SP$,I):` 0(CN$)24CN$(SP$,(25(CN$))2)CN$ D(C1$)24C1$(SP$,(25(C1$))2)C1$ X(C2$)24C2$(SP$,(25(C2$))2)C2$ l(C3$)24C3$(SP$,(25(C3$))2)C3$ US$(95):I112:US$UOPEN PS.INVENTORY,L115,S"IS$",D"ID$E @RI$"READ PS.INVENTORY,R"e TWI$"WRITE PS.INVENTORY,R" hCI$"CLOSE PS.INVENTORY" |OC$"OPEN PS.CUSTOMER,L120,S"CS$",D"CD$ RC$"READ PS.CUSTOMER,R" WC$"WRITE PS.CUSTOMER,R" CC$"CLOSEX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$:RX$;2:TR:TRTR100:RX$;3:IV:RX$;4:LP RX$;5:PO:RX$;20:CN$:RX$;21:C1$:RX$;22:C2$:RX$;23:C3$:RX$;24:CP$:RX$;25:PW$:CX$ DT$"12/31/00"ĺ"RUN PS-UPDATE"& ,OI$"*^8 PS-ENTRY 06/27/79 L(55)253Č769]PER0:12360sd"NOMON I,O,C":}PC%3OX$"OPEN PS.INDEX,L25,S6,D1,V0"RX$"READ PS.INDEX,R"WX$"WRITE PS.INDEX,R"CX$"CLOSE PS.INDEX"l OX$:R                              AMG ` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.2RUN PS-ENTRY"* "RUN PS-CREATE-MENU"A "RUN PS-UPDATE"] $"RUN PS-MAST-BACKUP"y ."RUN PS-REPORT-MENU" 8"RUN PS-INV-UPDATE" B"RUN PS-CUST-UPDATE" L1000 V1000 214,0::REM TERMINATE THE PROGRA$:"";:A$(PW$,X,1)1028/ :""::2000A ER(222)::V ER20ĺ"RESET";m ER255ĺ"CTRL C"; ER8ĺ"DISK I/O"; " ERROR ("ER")"::"PRESS ";A$::1 PC%PC%1:PC%0PS$A$:PS(PS$)::1010 1012,0:769 "1050,1060,1070,1080,1090,1100,1110 PS$""ė:12:"REMOVE DISKETTES AND POWER OFF OR"::"REPLACE DISKETTES AND PRESS OR"::"PRESS TO RESUME ";:I$:I$:I$(13)ĺ"PR#6" PS$""ī10 PS$""1000 22:25:X1(PW$):LE,7. MAINTAIN CUSTOMER FILE,,j PW$" ":PC%3:REM POINT OF SALE MENU :" * * STORE MANAGEMENT * *" 5 I19:8:M$(I):: 21::8:"ENTER SELECTION: ";:PS$:PS(PS$):PS$" PS1030,1040,I8 PS-MENU 05/27/79 C1023W(55)253Č769rM$(9):I19:M$(I): 1. DAILY TRANSACTIONS,2. CREATE NEW DATA FILES,3. CHANGE SYSTEM INDEX,4. COPY DATA FILES,5. PRINT REPORTS,6. MAINTAIN INVENTORY FI     1000 B1000 L1000" V10004 ER(222)::K ER8ĺ"DISK I/O";` ER20ĺ"RESET";w ER255ĺ"CTRL C"; " ERROR ("ER")"::"PRESS ";A$ :1 ` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.PS2:5:PS:14::"PRESS 'Y' TO CREATE OR 'N' TO CANCEL ";::A$::A$"Y"10 PS1030,1040,1050,1060,1070,1080,1090,1100,1110 1000 "RUN PS-MENU" "RUN PS-CREATE" "RUN PS-INV-CREATE" $"RUN PS-CUST-CREATE" .1000 8TE NEW DATA FILES * *"Y 22:5:"WARNING CREATE WILL DESTROY":13:"CURRENT MASTER!"` 4y I19:5:M$(I):: 13::5:"ENTER SELECTION: ";:16368,0:PS$:(PS$)3ER255:::2030 PS(PS$):PS$N PS1PS5ğ:22:5:"WARNING":28 PS-CREATE-MENU 06/27/79 C2000W(55)253Č769rM$(9):I19:M$(I):1. RETURN TO STORE MANAGEMENT,2. CREATE SYSTEM INDEX,3. CREATE INVENTORY MASTER,4. CREATE CUSTOMER MASTER,,,,, :" * * CREA   IAMS HIGH TECHNOLOGY INC. 13456,NONE N%ER(222):::""A X%ER4ĺ"DISK WRITE PROTECT";X b%ER8ĺ"DISK I/O";p l%ER9ĺ"DISK FULL"; v%ER20ĺ"RESET"; %ER255ĺ"CTRL C"; %" ERROR ("ER")"::"PRESS ";A$ %:1 ` COPYRIGHT AUG 1978 STEPHEN M WILL$"12/31/00" (WF$;17 )"6,2,6,2,6,2,6,2,6,2,6,2"C 2I225K 7R$V <WF$;I^ FR$d Pu ZWF$;7:0:0~ nCL$ x"RUN PS-UPDATE" ,4,1,66,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,YOUR COMPANY NAME,123 ANY STREET,ANY TOWN USA 73106,,1112228 PS-CREATE 06/27/79 C9550W(55)253Č769k"NOMON I,O,C" :OP$"OPEN PS.INDEX,L25,S6,D1,V0":CL$"CLOSE PS.INDEX":WF$"WRITE PS.INDEX,R"OP$12:10:"CREATE INDEX IN PROGRESS"#WF$;0    3):DS(6)DS(4): REMOVE FOR V2. 800:DS(X)4 A X142` DS(X)2DS(X)7SX:2510 DS(X1)1DS(X1)2SX1:2510 :2345 X99::2400 :" * * CHANGE SYSTEM INDEX * *" :"TAX %";:22:"INVOICE #" :"LINES/P800:R$(1)\ S15` XS4:V2 WILL BE X=1 TO 10 Mj IX34:NUM1:1000jt SW%2445,2450,2430,2440~ (I$)0DS(X)(I$) DS(5)DS(3):DS(6)DS(4): REMOVE FOR V2  800:DS(X):X99:2460 800:DS(X):2360 DS(X)(I$) DS(5)DS(17:26:DS(9)"$ 18:26:DS(10)V) 23:1:"HIT --> TO CHG DATA RTN TO CONTINUE"q. R$(1)"12/31/00"23603 I1:1000:SW%2345,2360,3000,23608 I4:850B SW%2390,2395,2380,2360L (I$)0R$(1)I$Q 800:R$(1):2470V R$(1)I$ [ "DRIVE #"):"ACCTS PAY MAST SLOT #"<16:"DRIVE #"N3:26:R$(1)`5:26:DS(1)r6:26:DS(2)8:26:DS(5)9:26:DS(6)2345:REMOVE FOR V211:26:DS(3)12:26:DS(4) 14:26:DS(7) 15:26:DS(8) M INDEX * *"$R:"CURRENT DATE"D\:"INVENTORY MAST SLOT #"Wf16:"DRIVE #"wp:"CUSTOMER MAST SLOT #"z16:"DRIVE #"2240:REMOVE FOR V2:"BACKORDER MAST SLOT #"16:"DRIVE #":"ACCTS REC MAST SLOT #" 16:$(1)RX$;1_DS(1),DS(2),DS(3),DS(4),DS(5),DS(6),DS(7),DS(8),DS(9),DS(10),DS(11),DS(12)DS(5)DS(3):DS(6)DS(4): REMOVE FOR V2  I26:RX$;I:R$(I):*RX$;7:R$(7),CH4I825:RX$;I:R$(I)>:""H:" * * CHANGE SYSTEP$,MX)*NUM0:FP%0:*.(I$)21085?3I$(I$,(I$)1)h8MXMX1:HTHT1:VT:HT:(95):1010z=(I$)01056BI$"":1080*************************M A I N P R O G R A M*************************OX$RX$;0R1015(IN$)271015(NUM1045> FP%IN$"."1045XIN$"0"IN$"9"1015I$I$IN$:VT:HT:IN$;:HTHT1:MXMX1MX01066(US$,MX):1010 SW%4:1060!SW%3:1060"(I$)01066#SW%2$(I$)01066)(S2)8:8***** GET & EDIT FIELD FROM INPUT SCREEN dVTT(I):HTT(I1):MXT(I2):I$"":SW%1{VT:HT:(US$,MX)VT:HT:;IN$:(IN$)39550(IN$)211058(IN$)131057(IN$)81070(IN$)44(IN$)58(IN$)34$ VI$"01"I$"12"8502 XDI$I$"/":MO(I$)F ZT(I1)T(I1)3c \NUM1:1000:(I$)0860z ^(I$)1I$"0"I$ `I$"01"I$DM$(MO)860 bDI$DI$I$"/" dT(I1)T(I1)3 fNUM1:1000:(I$)2870 hI$DI$I$:T(I1)T(I1)6jT(I U B R O U T I N E S4 ************************* J +***** READ INDEXU ,RX$;R^ 6IO$g @""m Jx R$(1) T(I):T(I1):(SP$,T(I2)):T(I):T(I1): Q***** GET & EDIT DATE RT(I2)2:NUM1:1000:(I$)0874 T(I$)1I$"0"I,7,12,21,7,12,11,27,12,13,27,12,15,27,12,17,27,12,19,27,12,21,27,12 3,13,24,5,13,24,7,13,24,9,13,24,11,13,3,11,17,3,11,21,4,14,13,8 DM$(12):I112:DM$(I): 31,29,31,30,31,30,31,31,30,31,30,31 2000 ************************* S T A T A B L E S1 *************************N T(114):I1114:T(I): 23,21,1,3,26,8,5,26,1,6,26,1,8,26,1,9,26,1,11,26,1,12,26,1,14,26,1,15,26,1,17,26,1,18,26,1C 3,7,5,3,32,8,5,12,3,5,32,8,9,7,12,9,27,12,11,7,12,13,7,12,15,7,12,17,7,12,19PS.INDEX,R"' (WX$"WRITE PS.INDEX,R"A 2CX$"CLOSE PS.INDEX" SP$" " R$(25),DS(12) US$(95):I125:US$US$(US$,1): ************************* D A&8 PS-UPDATE 06/27/79 W*************************vI N I T I L I Z A T I O N*************************9560(55)253Č769 "NOMON I,O,C":OX$"OPEN PS.INDEX,L25,S6,D1,V0" RX$"READ              EPHEN M WILLIAMS HIGH TECHNOLOGY INC.*UN PS-MENU,S6,D1,V0", N%ER(222):::""M X%ER4ĺ"DISK WRITE PROTECT";d b%ER8ĺ"DISK I/O";| l%ER9ĺ"DISK FULL"; v%ER20ĺ"RESET"; %ER255ĺ"CTRL C"; %" ERROR ("ER")"::"PRESS ";A$ %:1& ` COPYRIGHT AUG 1978 ST "O *S U B R O U T I N E SY 2000d WC$;Rm IO$v ""|  *M A I N L I N E :12:5:"CUSTOMER CREATE IN PROGRESS" OC$ R0:IO$"1":400 R1:IO$SP$:400 CC$:"RDEX" 7DS(12)% <OX$:RX$;0:DT$N ARX$;1:IS$,ID$,BS$,BD$,CS$,CD$:CX$~ FOC$"OPEN PS.CUSTOMER,L120,S"CS$",D"CD$ PRC$"READ PS.CUSTOMER,R" ZWC$"WRITE PS.CUSTOMER,R" dCC$"CLOSE PS.CUSTOMER"3 SP$" (8 PS-CUST-CREATE 06/27/79 C9550W(55)253Č769w *I N I T I L I Z A T I O N "NOMON I,O,C":OX$"OPEN PS.INDEX,L25,S6,D1,V0"RX$"READ PS.INDEX,R"(WX$"WRITE PS.INDEX,R" 2CX$"CLOSE PS.IN    PHEN M WILLIAMSU,S6,D1,V0"" N%ER(222):::""C X%ER4ĺ"DISK WRITE PROTECT";Z b%ER8ĺ"DISK I/O";r l%ER9ĺ"DISK FULL"; v%ER20ĺ"RESET"; %ER255ĺ"CTRL C"; %" ERROR ("ER")"::"PRESS ";A$ %:1 '*** COPYRIGHT AUG 1978 '*** STE "C *S U B R O U T I N E SM 2000X WI$;Ra IO$j ""p  *M A I N L I N E :12:5:"INVENTORY CREATE IN PROGRESS" OI$ R0:IO$"1,1":400 R1:IO$SP$:400 CI$:"RUN PS-MENDEX" 7DS(12)% <OX$:RX$;0:DT$> ARX$;1:IS$,ID$:CX$o FOI$"OPEN PS.INVENTORY,L115,S"IS$",D"ID$ PRI$"READ PS.INVENTORY,R" ZWI$"WRITE PS.INVENTORY,R" dCI$"CLOSE PS.INVENTORY"' SP$" 8 PS-INV-CREATE 06/27/79 C9550W(55)253Č769w *I N I T I L I Z A T I O N "NOMON I,O,C":OX$"OPEN PS.INDEX,L25,S6,D1,V0"RX$"READ PS.INDEX,R"(WX$"WRITE PS.INDEX,R" 2CX$"CLOSE PS.IN    0,2020(I$)0A2$I$(800:A2$OI7:1000:SW%2250,2250,2250,2240c800:A3$:2200w(I$)0A3$I$800:A3$T(12)93(CF$)(CL$)(A2$)(A3$):A4$(A4$,T(12)):T(12)25T(12)25I10:T(I):T(I1):868:1000:SW%2290,E"::" D=DELETE"::" N=NEXT MATCH":::"RECORD # ";R;" OF ";NR1o\I22:1000:SW%2150,2140,2020,2140fI$"U"2200pI$"D"3000zI$"N"2140RNR2140SR1:5:15:958:SNR21052084I4:1000:SW%2210,2210,221500SHI4:800:A2$:I7:800:A3$:I10:800:A4$:12:"PHONE";:14:PH$;:32:AD$fL(KF$)32130M(KF$,3)"VN*"Ģ5:(CF$,(CF$)3):4:14:CL$:RNRĢ5:(KF$,(KF$)3);(SP$,11((KF$)3)):4:14:868:KL$:CF$KF$:CL$KL$GR15:" U=UPDAT1:"VENDOR";:958:7*ISNR1:NL$(I)KF$KL$2110p/(KF$)2:(KF$,3)"VN*"(NL$(I),(KF$))KF$2110v49RNR:A2$"":A3$"":A4$"":PH$".../...-....":AD$DT$:CF$KF$:CL$KL$:(KF$,3)"VN*":(KF$)3(KL$)02020;2120>RI:13KF$(KF$,13)04:1:"LAST NAME ":958f KL$"":I1:T(3)25:1000:SW%2080,2065,2065,2030(I$)(KF$)09000(I$)0(KF$,3)"VN*"2020 KL$I$$(KF$,3)"VN*"2086%4:1:"NAME & ADDR ";KF$;KL$;:958::2090&4:(I$,1)"#"2040&(I$)22030R800:I((I$,(I$)1)):I1INR2030{RI::500:KF$CF$:KL$CL$:SI:2084(I$)02050KF$"":4:1:958:"COMPANY NAME"::"HIT RETURN TO EXIT":2060KF$I$" ":(I$,3)"VN*"KF$I$:(KF$)C$:RC$;0:NR:"":NL$(NR200):NR12020_R1NR1:RC$;R:CL$:CF$:"":NL$(R)CF$CL$::"CUSTOMER MAINTENANCE";:32:DT$:S14:1:868:"FIRST NAME "::"HIT RETURN FOR CO NAME OR TO EXIT":I1:T(3)15:1000:SW%2050,2040,2035,20206)(SP$,MX)*NUM0:..(I$)21085C3I$(I$,(I$)1)l8MXMX1:HTHT1:VT:HT:(95):1010~=(I$)01056BI$"":1080**********************M A I N P R O G R A M***********************"***** READING FILE":O)58(IN$)341015'(IN$)2810156NUM1045H IN$"."1045bIN$"0"IN$"9"1015I$I$IN$:VT:HT:IN$;:HTHT1:MXMX1MX01066(US$,MX):1010 SW%4:1060!SW%3:1060"(I$)01066#SW%2$(I$)0106):T(I):T(I1):B ***** GET & EDIT FIELD FROM INPUT SCREEN n VTT(I):HTT(I1):MXT(I2):I$"":SW%1 VT:HT:(US$,MX) VT:HT:; IN$ (IN$)39560 (IN$)211058 (IN$)131057 (IN$)81070(IN$)44(IN$ O U T I N E S+ ***********************D ***** READ CUSTOMERO RC$;Rv CL$:CF$:A2$:A3$:A4$:PH$:AD$ ""  %***** WRITE CUSTOMER &WC$;R 0CL$:CF$:A2$:A3$:A4$:PH$:AD$ :"" D T(I):T(I1):(SP$,T(I2)112:US$US$(US$,I):4 ***********************O D A T A T A B L E Sl *********************** T(24):I124:T(I): 4,14,25,6,14,25,8,14,25,10,14,25,12,14,3,12,18,3,12,22,4,15,1,1 2000 *********************** S U B R:CP$: =RX$;25:PW$:CX$C >DT$"12/31/00"ĺ"RUN PS-UPDATE"s UOC$"OPEN PS.CUSTOMER,L120,S"CS$",D"CD$ ZRC$"READ PS.CUSTOMER,R" _WC$"WRITE PS.CUSTOMER,R" dCC$"CLOSE PS.CUSTOMER" SP$" ":I17:SP$SP$SP$: US$(95):IPS.INDEX,R"' (WX$"WRITE PS.INDEX,R"A 2CX$"CLOSE PS.INDEX" <OX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$:RX$;2:TR:TRTR100:RX$;3:IV:RX$;4:LP:RX$;5:PO:RX$;20:CN$:RX$;21:C1$:RX$;22:C2$:RX$;23:C3$:RX$;2428 PS-CUST-UPDATE 06/27/79 W*************************vI N I T I L I Z A T I O N*************************(55)253Č769 9550 "NOMON I,O,C":OX$"OPEN PS.INDEX,L25,S6,D1,V0" RX$"READ            TOCK # "2I1:NUM1:1000:23:1:(SP$,39)h3:1:" RTN = SKIP, --> = EDT, D = DEL, L = LST"SW%2040,2031,2035,2020SKSA1:SK9998Ģ23:1::"STOCK NUMBER GREATER THAN 9998"::20222042(I$)1327675SK(I$):SK999)01056BI$"":10807*************************TM A I N P R O G R A Mt************************* }OI$900:RI$;0:NR,NS:""13:32:" ":I1513:T(I):T(I1):(SP$,T(I2)): 3:" RTN = EXIT, --> = GET NEXT S$;:HTHT1:MXMX1!MX010666(US$,MX):1010F SW%4:1060V!SW%3:1060i"(I$)01066s#SW%2$(I$)01066)(SP$,MX)*NUM0:FP%0:.(I$)210853I$(I$,(I$)1)8MXMX1:HTHT1:VT:HT:(95):1010=(I$(US$,MX)VT:HT:;0IN$:(IN$)333310D(IN$)211058X(IN$)131057k(IN$)81070(IN$)44(IN$)58(IN$)341015(IN$)271015NUM1045 FP%IN$"."1045IN$"0"IN$"9"1015I$I$IN$:VT:HT:IN15:"ON HAND";:27:"TURN"B17:"BACKORDERED BY CUSTOMER"l19:"SHIPPING/ITEM COST";:32:"QTY"21:"SALES PRICE"I(0)***** GET & EDIT FIELD FROM INPUT SCREEN VTT(I):HTT(I1):MXT(I2):I$"":SW%1VT:HT:(I1)6jT(I2)8:5***** PRINT SCREEN CONST.^:"INVENTORY MAINTENANCE";:32:DT$5:"STOCK#";:13:"VN-";:27:"MF#"7:"ITEM NAME"32:"MINIMUM"12:"DATE";:21:"QUANTITY INV LVL":"ON ORDER"13:"LAST ORD"(I$)1I$"0"I$)VI$"01"I$"12"850AXDI$I$"/":MO(I$)UZT(I1)T(I1)3r\NUM1:1000:(I$)0860^(I$)1I$"0"I$`I$"01"I$DM$(MO)860bDI$DI$I$"/"dT(I1)T(I1)3fNUM1:1000:(I$)2870hI$DI$I$:T(I1)TJ2(I$)I$(I$,J2)7104I$I$".00":710BI$I$"0"iI$(SP$,15(I$))I$:I$(I$,8):***** CLEAR INPUT FIELDS T(I):T(I1):(SP$,T(I2)):T(I):T(I1):Q***** GET & EDIT DATERT(I2)2:NUM1:1000:(I$)0874TAVE AREA TO I/O AREA&SKS1:VN$S1$:MF$S2$:SD$S6$:DU$S3$:DO$S4$:DL$S5$:OHS2:BOS3:OOS4:LOS5:MLS6:SQS7:CSS8:SLS9:ITSX:RSSY0XI$((J100.5)100)lJ1(I$)v(I$,J,1)"."650J(I$)690J1(I$)700 SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RSU ""[  ***** READ INVENTORY TO SAVE AREA RI$;R S1:S1$:S2$:S6$:S3$:S4$:S5$:S2:S3:S4:S5:S6:S7:S8:S9:SX:SY "" %***** TRANSFER S************************* 3 +***** READ INDEX> ,RX$;RG 6IO$P @""V Jp ***** READ INVENTORY{ RI$;R SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS ""  ***** WRITE INVENTORY WI$;RL5,11,10,8,11,21,4,11,32,4,13,10,8,13,21,4,15,10,8,15,21,4,17,26,3,19,21,8,19,36,3,21,21,8,23,31,1,5,30,10,15,32,4 DM$(12):I112:DM$(I): 31,29,31,30,31,30,31,31,30,31,30,31 2000 ************************* S U B R O U T I N E S Y,R"" dCI$"CLOSE PS.INVENTORY"I SP$" ":I180:SP$SP$(SP$,1):r US$(95):I119:US$US$(US$,1): ************************* D A T A T A B L E S ************************* T(51):I151:T(I):q 5,8,4,5,16,10,7,16,1 PS.INDEX,R"( (WX$"WRITE PS.INDEX,R"B 2CX$"CLOSE PS.INDEX" <OX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$:CX$ FOI$"OPEN PS.INVENTORY,L115,S"IS$",D"ID$ PRI$"READ PS.INVENTORY,R" ZWI$"WRITE PS.INVENTOR8 PS-INV-UPDATE 06/27/79 W*************************vI N I T I L I Z A T I O N*************************(55)253Č76933300 "NOMON I,O,C":OX$"OPEN PS.INDEX,L25,S6,D1,V0" RX$"READ                :NC$! **********************0 I N D E XL **********************[ XS04000 :10:"INDEX MASTER SLOT 6 DRIVE 1"::"INDEX BACKUP SLOT ";XS;" DRIVE ";XD:::"INSERT DISKETTES AND PRESS  ";:A$:X "OPEN";(DX$,(DXISKETTES AND PRESS  ";:A$:Q"OPEN";(DC$,(DC$)8):DC$:BC$:OC$kRC$;0:NR:WC$;0:NRy I1NR1NR12110RC$;I CL$:CF$:A2$:A3$:A4$:PH$:AD$*WC$;I4CL$:CF$:A2$:A3$:A4$:PH$:AD$>HCC$:XC$LO:ML:SQ:CT:SL:IT:RS V3`CI$:XI$:NI$O**********************dC U S T O M E R**********************CS03000%:10:"CUSTOMER MASTER SLOT ";CS$;" DRIVE ";CD$::"CUSTOMER BACKUP SLOT ";CS;" DRIVE ";CD:::"INSERT D"OPEN";(DI$,(DI$)8):DI$:BI$:OI$KRI$;0:NR,NS:WI$;0:NR;",";NSY$I1NR1h)NR11110s.RI$;I8SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CT:SL:IT:RSBWI$;ILSK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:BACKUP"#**********************:I N V E N T O R YV**********************eIS02000 :10:"INVENTORY MASTER SLOT ";IS$;" DRIVE ";ID$::"INVENTORY BACKUP SLOT ";IS;" DRIVE ";ID:::"INSERT DISKETTES AND PRESS  ";:A$:'AME PS.CUS.BACKUP,PS.CUSTOMER,S"(CS)",D"(CD)",V0"rTBX$"OPEN PS.IND.BACKUP,L25,S"(XS)",D"(XD)",V0"YDX$"DELETE PS.INDEX,S"(XS)",D"(XD)",V0"^NX$"RENAME PS.IND.BACKUP,PS.INDEX,S"(XS)",D"(XD)",V0"hXX$"CLOSE PS.IND.$",D"CD$@BC$"OPEN PS.CUS.BACKUP,L120,S"(CS)",D"(CD)^"RC$"READ PS.CUSTOMER,R",WC$"WRITE PS.CUS.BACKUP,R"6CC$"CLOSE PS.CUSTOMER"@XC$"CLOSE PS.CUS.BACKUP"EDC$"DELETE PS.CUSTOMER,S"(CS)",D"(CD)",V0"7JNC$"RENWI$"WRITE PS.INV.BACKUP,R"=CI$"CLOSE PS.INVENTORY"\XI$"CLOSE PS.INV.BACKUP"DI$"DELETE PS.INVENTORY,S"(IS)",D"(ID)",V0"NI$"RENAME PS.INV.BACKUP,PS.INVENTORY,S"(IS)",D"(ID)",V0" OC$"OPEN PS.CUSTOMER,L120,S"CSL"::12:"ENTER SELECTION: ";:IN$:22::(IN$)8145JIN$"R"ė:70\IN$"C"9000nIN$"B"150xIP%1OI$"OPEN PS.INVENTORY,L115,S"IS$",D"ID$BI$"OPEN PS.INV.BACKUP,L115,S"(IS)",D"(ID)RI$"READ PS.INVENTORY,R"2135# CS(CS$)CD(CD$)130G 11:26:IN$:IN$:(IN$)8135b XS(IN$):IN$"0"150u XS2XS7140 11:36:IN$:IN$:(IN$)8140 XD(IN$):XD1XD2145 XS6XD1140721:958:" B=BEGIN COPY R=RE-ENTER C=CANCE"130 |IS2IS7120; }5:36:IN$:IN$:(IN$)8120X ~ID(IN$):ID1ID2125u IS(IS$)ID(ID$)120 8:26:IN$:IN$:(IN$)8125 CS(IN$):IN$"0"140 CS2CS7130 8:36:IN$:IN$:(IN$)8130 CD(IN$):CD1CD MASTER SLOT# 6 DRIVE# 1":12:"BACKUP SLOT# DRIVE# ": n20::I139:" ";::14:"O P T I O N S":::"ENTER SLOT# AND DRIVE# OF YOUR BACKUP.":"TO SKIP A FILE BACKUP ENTER 0 TO SLOT#." x5:26:IN$:IN$:(IN$)8120 zIS(IN$):IN$"0X$;24:CP$: ACX$= F" * * COPY DATA FILES * *" P4:"INVENTORY MASTER SLOT# ";IS$;" DRIVE# ";ID$:12:"BACKUP SLOT# DRIVE# ": Z"CUSTOMER MASTER SLOT# ";CS$;" DRIVE# ";CD$:12:"BACKUP SLOT# DRIVE# ":? d"INDEX PS.INDEX,R", (WX$"WRITE PS.IND.BACKUP,R"F 2CX$"CLOSE PS.INDEX" <OX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$:RX$;2:TR:TRTR100:RX$;3:IV:RX$;4:LP:RX$;5:PO:RX$;20:CN$:RX$;21:C1$:RX$;22:C2$:RX$;23:C3$:R08 PS-MAST-BACKUP 06/27/79 W*************************vI N I T I L I Z A T I O N*************************(55)253Č7699100 "NOMON I,O,C":OX$"OPEN PS.INDEX,L25,S6,D1,V0" RX$"READ         1! L"RUN PS-CUSTOMER-NA-LIST"+ V1000= ER(222)::T ER8ĺ"DISK I/O";i ER20ĺ"RESET"; ER255ĺ"CTRL C"; " ERROR ("ER")"::"PRESS ";A$ :1 ` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.5 PS1030,1040,1050,1060,1070,1080,1090,1100,1110? 1000T "RUN PS-MENU"q "RUN PS-PHY-INV-LIST" "RUN PS-TURNOVER-RPT" $"RUN PS-BACKORDER-RPT" ."RUN PS-MOVEMENT-RPT" 8"RUN PS-INV-VALUE-RPT" B"RUN PS-AUTO-RPT"INVENTORY VALUE REPORT,7. AUTO REPORT SCHEDULER,8. CUSTOMER NAME/ADDR LIST, :"* * STORE MANAGEMENT REPORT MENU * *" 4 I19:4:M$(I):: d806,0 21::4:"ENTER SELECTION: ";:PS$:(PS$)3ER255:::2030 PS(PS$):PS$8 PS-REPORT-MENU 06/27/79 C2000W(55)253Č769rM$(9):I19:M$(I):M 1. RETURN TO STORE MANAGEMENT,2. PHYSICAL INVENTORY CHECK-LIST,3. TURNOVER REPORT,4. BACKORDERED ITEMS,5. ITEM MOVEMENT REPORT,6.     ER")"::"PRESS ";A$& :1m ` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC. P$"PS-REPORT-MENU"1 r"RUN ";P$;",S6,D1,V0"G A$:(A$)32010X A$"N"1040j A$"Y"1000w 806I,1 A$:: ER(222):::2020 ::ER255 ER8ĺ"DISK I/O"; ER20ĺ"RESET"; ER255ĺ"CTRL C"; " ERROR (""----- START AND ALIGN PRINTER ----- ";:A$:22:^ 6(807)P$"PS-PHY-INV-LIST":370 @(809)P$"PS-BACKORDER-RPT":370 J(811)P$"PS-INV-VALUE-RPT":370 T(810)P$"PS-MOVEMENT-RPT":370 ^(808)P$"PS-TURNOVER-RPT":370 hT TOTALS ";:1000:A$"Y"Ĺ808,2I Z" BACKORDER REPORT ";:I3:1000v d" ITEM MOVEMENT REPORT ";:I4:1000 n" INVENTORY VALUE REPORT ";:I5:1000 "IS ABOVE CORRECT ";:I0:1000:A$"N"10 X0:I807811:XX(I)::X3607 ,U L E R":' 806,1:I15:806I,0:k ("REPLY TO THE FOLLOWING BY ENTERING A 'Y' OR 'N'.":: 2"DO YOU WISH TO RUN:": <" PHYSICAL INVENTORY LIST ";:I1:1000 F" TURNOVER REPORT ";:I2:1000:A$"N"90 P" RESEo) PS-AUTO-RPT 06/27/79 H*************************gI N I T I L I Z A T I O N*************************(55)253Č7692000 "NOMON I,O,C": " A U T O M A T I C R E P O R T S C H E D      "DATA FILE";$HNER8ĺ"DISK I/O";<RNER9ĺ"DISK FULL";Q\NER20ĺ"RESET";hfNER255ĺ"CTRL C";pN" ERROR (";ER;")"::"PRESS ";A$zN10000` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLOGY INC.LUE-RPT":100608.'(810)P$"PS-MOVEMENT-RPT":10060a8'(808)P$"PS-TURNOVER-RPT":10060zB'P$"PS-REPORT-MENU"L'"RUN ";P$;",S6,D1,V0" NER(222):12:958::"PR#0":20020*N222,255:200004NER4ĺ"DISK WRITE PROTECT"; >NER5FTI:900:I$"L LCLC1:LV$VN$(V R(#SR%IST:900:36,67:"*";I$:LCLC12#(10):36,66:IFT:900:"**";I$:ILCLP3:(10);::'CI$:" 40N":"PR#0"'(806)10050'(809)P$"PS-BACKORDER-RPT":10060$'(811)P$"PS-INV-VAALES PRICE TOTAL PRICE":(10)9= VN$LV$LV$""2370H> SR%2370r? IST:900:36,67:"*";I$:ST0:LCLC1B SK;:36,6:VN$;:36,17:I19(MF$):MF$;" ";(SD$,I);:36,39:OH;:36,43:"_____";" ";OO;:ISL:900:36,54:I$;" ";:ISLOH:STSTI:FT"(VN$,1,1)"-"2390' LCLP52365;$ LC5:PG12350R) I15:(10);::. CN$;:36,26:"PHYSICAL INVENTORY CHECK-LIST";:36,63:"PAGE ";PG;" ";DT$:PGPG1 8 36,70:(TM$,7,8):(10):"STK# VENDOR MF# & DESCRIPTION ON-H ON-O SSF$(L%)2120n*T%S%(I%):T$SF$(I%):S%(I%)S%(L%):SF$(I%)SF$(L%):S%(L%)T%:SF$(L%)T$:I%I%M%:I%12070HJ%J%1:J%K%2030\2060f(806)ĺ"***** TURN ON PRINTER ";:A$p:"PR#1":" K 80N"L1N%:RS%(L):400:(VN$,1,1)"+EADING FILE"\R1N%:RI$;R:SK:VN$:MF$:"":S%(R)R:SF$(R)VN$(SP$,11(VN$))MF$:SR%ĺ"***** SORT PHASE BYPASSED":2150"***** BEGIN SORT PHASE"M%N%M%M%2M%02150J%1:K%N%M% I%J% L%I%M%:SF$(I%)"I$"0"&I$(SP$,1,11(I$))I$:B**********************^M A I N P R O G R A Mz**********************SR%1:(806)ĺ"VENDOR OR STOCK# SEQUENCE? (V/S) ";:A$:A$::A$"S"SR%0:2005(806)A$"V"2003 "***** BEGIN RD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RSB ""H m I$((I100.5)100):I1(I$) (I$,I,1)"."920  I(I$)935 I1(I$)940 I2(I$)I$(I$,I2) I$"$"I$:950 I$"$"I$".00":950I$"$***********& S U B R O U T I N E SC ***********************^ +***** WRITE INVENTORYi ,WI$;R 6SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS @"" J ***** READ INVENTORY RI$;R9 SK:VN$:MF$:SK TM$(SP$,18):(50176)8(50177)120(50176)8(50177)120180| "PR#4":"IN#4":" ";TM$:"IN#0":"PR#0" TM$(TM$,8)":"(TM$,10,2)":"(TM$,6) OI$:RI$;R:NR,NS:RR1:"":N%NR1:S%(N%),SF$(N%) 2000 ************ND$:RX$;4:LP:RX$;20:CN$$ nCX$K xDT$"12/31/00"ĺ"RUN PS-UPDATE"| OI$"OPEN PS.INVENTORY,L115,S"IS$",D"ID$ RI$"READ PS.INVENTORY,R" WI$"WRITE PS.INVENTORY,R" CI$"CLOSE PS.INVENTORY" SP$" ":I111:SP$SP$(SP$,I): C H E C K L I S T":< 2I%0:J%0:K%0:L%0:M%0:N%0[ <T$"":T%0:R0:PG1:LC999 FOX$"OPEN PS.INDEX,L25,S6,D1,V0" PRX$"READ PS.INDEX,R" ZCX$"CLOSE PS.INDEX" dOX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$, 8 PS-PHY-INV-LIST 06/07/79 W*************************vI N I T I L I Z A T I O N*************************(55)253Č76920000 "NOMON I,O,C": " P H Y S I C A L I N V E N T O R Y         PR#0":20020!*N222,255:20000B4NER4ĺ"DISK WRITE PROTECT";Z>NER5ĺ"DATA FILE";qHNER8ĺ"DISK I/O";RNER9ĺ"DISK FULL";\NER20ĺ"RESET";fNER255ĺ"CTRL C";pN" ERROR (";ER;")"::"PRESS ";A$zN100007` COPYRI$:36,55:IFS:900:"** ";I$:ILCLP7:(10);::"* * * * * * * * * C O M P A N Y C O N F I D E N T I A L * * * * *<#(10);(10);(10)'CI$:" 40N":"PR#0"'P$"PS-REPORT-MENU"L'"RUN ";P$;",S6,D1,V0"  NER(222):12:958::"IRS:900:I$:(MF$,1,1)">"SSSSRS:FSFSRS>G R%2377LH IT0:RS0eI (MF$,1,1)">"SL0nJ 300|L LCLC2:(#36,55:ISC:900:"* ";I$;:ISP:900:I$:36,55:ISS:900:"* ";I$:LCLC2}2#(10):36,55:IFC:900:"** ";I$;:IFP:900:B SK;:36,5:VN$;:36,16:I19(MF$):MF$;" ";(SD$,I);:36,38:OH;:36,43:IT;:ICS:36,47:900:I$;:ICSIT:SCSCI:FCFCI:900:I$;:IRS(CSIT):SPSPI:FPFPI:900:I$C IT0(MF$,1,1)">"2373D IRSIT:2374E ISL0F 36,47:900:I$;:M$,7,8):"STK# VENDOR MF# & DESCRIPTION ON-H TURN COST/PRICE TOTAL GR PROFIT":(10)t= VN$LV$2370> LV$""2368? 36,55:ISC:900:"* ";I$;:ISP:900:I$:36,55:ISS:900:"* ";I$:SC0:SP0:SS0:LCLC2@ LV$VN$:LCLP62340 (10);(10):"* * * * * * * * * C O M P A N Y C O N F I D E N T I A L * * * * * * * * *":ILCLP3:(10);::. LC5:CN$;:36,29:"INVENTORY TURNOVER REPORT";:36,63:"PAGE ";PG;:PGPG1:" ";DT$3 R%Ĺ36,36:"** RESET **";b8 36,70:(T%)SF$(L%):S%(L%)T%:SF$(L%)T$:I%I%M%:I%12070LHJ%J%1:J%K%2030V\2060f(806)ĺ"***** TURN ON PRINTER ";:A$p:"PR#1":" K 80N"L1N%:RS%(L):400 (MF$,1,1)">"SLRS:CS0:RS0 LCLP62365$ PG12350x)PR1N%:RI$;R:SK:VN$:MF$:"":S%(R)R:SF$(R)VN$(SP$,11(VN$))MF$:o"***** BEGIN SORT PHASE"yM%N%M%M%2M%02150J%1:K%N%M% I%J%L%I%M%:SF$(I%)SF$(L%)21204*T%S%(I%):T$SF$(I%):S%(I%)S%(L%):SF$(II1(I$)940/I2(I$)I$(I$,I2)BI$"$"I$:950[I$"$"I$".00":950mI$"$"I$"0"I$(SP$,1,11(I$))I$:**********************M A I N P R O G R A M**********************"***** BEGIN READING FILE":LO:ML:SQ:CS:SL:IT:RS% @""+ JE ***** READ INVENTORYP RI$;R SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS ""  I$((I100.5)100):I1(I$) (I$,I,1)"."920 I(I$)9352)":"(TM$,6)I OI$:RI$;R:NR,NS:RR1:"":N%NR1:S%(N%),SF$(N%)S 2000p *********************** S U B R O U T I N E S *********************** +***** WRITE INVENTORY ,WI$;R 6SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO WI$"WRITE PS.INVENTORY,R"> CI$"CLOSE PS.INVENTORY"e SP$" ":I111:SP$SP$(SP$,I): TM$(SP$,18):(50176)8(50177)120(50176)8(50177)120180 "PR#4":"IN#4":" ";TM$:"IN#0":"PR#0" TM$(TM$,8)":"(TM$,10," ZCX$"CLOSE PS.INDEX" dOX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$:RX$;4:LP:RX$;20:CN$ nCX$ xDT$"12/31/00"ĺ"RUN PS-UPDATE" OI$"OPEN PS.INVENTORY,L115,S"IS$",D"ID$ RI$"READ PS.INVENTORY,R"(808)2RS$"Y" (806)25F "RESET TOTALS? ";:RS$:RS$:R%0V RS$"N"50g RS$"Y"20 (R%1:"***** RESET" 2I%0:J%0:K%0:L%0:M%0:N%0 <T$"":T%0:R0:PG1:LC999 FOX$"OPEN PS.INDEX,L25,S6,D1,V0" PRX$"READ PS.INDEX,R98 PS-TURNOVER-RPT 06/07/79 W*************************vI N I T I L I Z A T I O N*************************(55)253Č76920000 "NOMON I,O,C": " T U R N O V E R R E P O R T"::RS$"N":!! ! ! ! ! !!!!!!!!! GY INC.ISK WRITE PROTECT";*>NER5ĺ"DATA FILE";AHNER8ĺ"DISK I/O";YRNER9ĺ"DISK FULL";n\NER20ĺ"RESET";fNER255ĺ"CTRL C";pN" ERROR (";ER;")"::"PRESS ";A$zN10000` COPYRIGHT AUG 1978 STEPHEN M WILLIAMS HIGH TECHNOLO50,$'(811)P$"PS-INV-VALUE-RPT":10060U.'(810)P$"PS-MOVEMENT-RPT":10060~8'(808)P$"PS-TURNOVER-RPT":10060B'P$"PS-REPORT-MENU"L'"RUN ";P$;",S6,D1,V0" NER(222):12:958::"PR#0":20020*N222,255:200004NER4ĺ"DIDOR MF# & DESCRIPTION BKORD ON-H ORDERED DATE":(10)B SK;:36,5:VN$;:36,16:MF$;" ";SD$;:36,54:BO;:36,60:OH;:36,67:OO;:36,72:DO$L LCLC1:(#LCāILCLP1:(10);::'CI$:" 40N":"PR#0"'(806)100p:"PR#1":" K 80N"0L1N%:RS%(L):400D BO0OO02330P :9000b LCLP52370v$ LC5:PG12350) I15:(10);::. CN$;:36,31:"ITEMS BACKORDERED";:36,63:"PAGE ";PG;" ";DT$:PGPG1N8 36,70:(TM$,7,8):(10):"STK# VENM%02150J%1:K%N%M%) I%J%LL%I%M%:SF$(I%)SF$(L%)2120*T%S%(I%):T$SF$(I%):S%(I%)S%(L%):SF$(I%)SF$(L%):S%(L%)T%:SF$(L%)T$:I%I%M%:I%12070HJ%J%1:J%K%2030\2060f(806)ĺ"***** TURN ON PRINTER ";:A$I$: **********************<M A I N P R O G R A MX**********************y"***** BEGIN READING FILE"R1N%:RI$;R:SK:VN$:MF$:"":S%(R)R:SF$(R)VN$(SP$,11(VN$))MF$:"***** BEGIN SORT PHASE"M%N%M%M%2 ML:SQ:CS:SL:IT:RS ""& K I$((I100.5)100):I1(I$)b (I$,I,1)"."920h y I(I$)935 I1(I$)940 I2(I$)I$(I$,I2) I$"$"I$:950 I$"$"I$".00":950 I$"$"I$"0"I$(SP$,1,11(I$)) E S! ***********************< +***** WRITE INVENTORYG ,WI$;R 6SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:ML:SQ:CS:SL:IT:RS @"" J ***** READ INVENTORY RI$;R SK:VN$:MF$:SD$:DU$:DO$:DL$:OH:BO:OO:LO:50177)120(50176)8(50177)120180Z "PR#4":"IN#4":" ";TM$:"IN#0":"PR#0" TM$(TM$,8)":"(TM$,10,2)":"(TM$,6) OI$:RI$;R:NR,NS:RR1:"":N%NR1:S%(N%),SF$(N%) 2000 *********************** S U B R O U T I NX$) xDT$"12/31/00"ĺ"RUN PS-UPDATE"Z OI$"OPEN PS.INVENTORY,L115,S"IS$",D"ID$y RI$"READ PS.INVENTORY,R" WI$"WRITE PS.INVENTORY,R" CI$"CLOSE PS.INVENTORY" SP$" ":I111:SP$SP$(SP$,I):) TM$(SP$,18):(50176)8(0:J%0:K%0:L%0:M%0:N%09 <T$"":T%0:R0:PG1:LC999_ FOX$"OPEN PS.INDEX,L25,S6,D1,V0"z PRX$"READ PS.INDEX,R" ZCX$"CLOSE PS.INDEX" dOX$:RX$;0:DT$:RX$;1:IS$,ID$,BS$,BD$,CS$,CD$,RS$,RD$,PS$,PD$,NS$,ND$:RX$;4:LP:RX$;20:CN$ nC 8 PS-BACKORDER-RPT 06/07/79 W*************************vI N I T I L I Z A T I O N*************************(55)253Č76920000 "NOMON I,O,C":" B A C K O R D E R R E P O R T": 2I%"" " " " " """""""