' +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`٠ӬȠ͠Ŭ٬٠ӬȠ͠Ŭ٬РϠ Ӭ̬ōϬР٠àԬР̬ĠҬ٠ӬȠ͠Ŭ٬٠ӬȠ͠Ŭ٬٠ӬȠ͠Ŭ٬٠ӬȠ͠Ŭ٬٠ӬȠ͠Ŭ٬ ٠ӬȠ͠Ŭ٬ ٠ӬȠ͠Ŭ٬ ԠŠǬР٠Ӡ̹ ٠ӬȠ͠Ŭ٬Ԡ̠ìРΠŠǬР٠ӠŬΠŬϠŠҠΠ̹ ٠ӬȠ͠Ŭ٬٠ӬȠ͠Ŭ٬٠ӬȠ͠Ŭ٬z #?     Ϡ٠ŠҠ! ٠ŠX,YX6,Y(XX1:YY1:I"(-<(I158A(10400Z001#'X,Y8X1,YX3,Y4X5,YX6,Y86'XX1:YY1:I<'G(I1NR(10001l(X,Y8X6,Y:X,YX6,Y8(XX1:YY1:I ( (I1N (10001(X,Y8X3,Y4X6,Y8(X3,YX3,Y4(XX1:YY1:I((I1N(10001 (X,Y8X6,Y8''I1N'10001,'X,Y8X6,Y8<'X3,YX3,Y8O'XX1:YY1:IU'`'I1Nk'10001'X,Y8X,Y1X1,YX5,YX6,Y1X6,Y8'XX1:YY1:I''I1N'10001'X,Y8X3,YX6,Y8'XX1:YY1:I''I1N'10:X4,Y2X6,Y'XX1:YY1:I%'0'I1N;'10001f'X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4v'X5,Y4X6,Y'XX1:YY1:I''I1N'10001'X6,Y7X5,Y8X1,Y8X,Y7X,Y5X1,Y4X5,Y4X6,Y3X6,Y1X5,YX1,YX,Y1'XX1:YY1:I '10001A'X,Y1X,Y7X1,Y8X5,Y8X6,Y7X6,Y1X5,YX1,YX,Y1T'XX1:YY1:IZ'e'I1Np'10001'X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4'XX1:YY1:I''I1N'10001 'X,Y1X,Y7X1,Y8X5,Y8X6,Y7X6,Y1X5,YX1,YX,Y1X6,Y'XX1:YY1:I'('I1N3'10001F'X,Y8X,YX6,YY'XX1:YY1:I_'j'I1Nu'10001'X,YX,Y8X3,Y4X6,Y8X6,Y'XX1:YY1:I''I1N'10001'X,YX,Y8X6,YX6,Y8'XX1:YY1:I''I1N01(d'X,YX,Y8:X6,YX6,Y8:X,Y4X6,Y4;h'XX1:YY1:IAi'Lj'I1NWl'10001en'X,YX,Y8xr'XX1:YY1:I~s't'I1Nv'10001x'X,Y1X5,YX5,Y1X6,Y8|'XX1:YY1:I}'~'I1N'10001'X,YX,Y8:X,Y2X6,Y8:X2,Y46,Y8H'X,Y4X4,Y4'J'XX1:YY1:I-K'8L'I1NCN'10001WP'X,YX,Y8X6,Y8gR'X,Y4X4,Y4zT'XX1:YY1:IU'V'I1NX'10001Z'X6,Y7X5,Y8X2,Y8X,Y7X,Y1X1,YX5,YX6,Y1X6,Y2X5,Y2^'XX1:YY1:I_'`'I1Nb'100X,Y ,'XX1:YY1:I -'( .'I1N3 0'10001d 2'X6,Y1X5,YX1,YX,Y1X,Y7X1,Y8X5,Y8X6,Y7w 6'XX1:YY1:I} 7' 8'I1N :'10001 <'X,YX,Y8X5,Y8X6,Y7X6,Y1X5,YX,Y @'XX1:YY1:I A' B'I1N D'10001F'X6,YX,YX,Y8XY40SY:Y5Y50SY:Y7Y70SY:Y8Y80SY:Y2Y20SY:Y6Y60SYE 'P 'I1N[ '10001z 'X,YX,Y5X3,Y8X6,Y5X6,Y 'X,Y4X6,Y4 "'XX1:YY1:I #' $'I1N &'10001 ('X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4 *'X5,Y4X6,Y3X6,Y1X5,Y@0 JI211364 TI,8I,152:270I,8270I,152: ^B h:H rT |D$(4){ D$;"RUN COMPANY PURCHASE MANAGER"  ' SET UP DRAW PARAMETERS 'X1X5SX:X2X10SX:X3X15SX:X4X20SX:X5X25SX:X6X30SX? 'Y1Y10SY:Y3Y30SY:Y4080 X160:Y100:100101 X186:Y100:10190H X210:Y100:10050^ X54:Y140:10130t X78:Y140:10010 X102:Y140:10140 X126:Y140:10010 X150:Y140:10070 X174:Y140:10050 X198:Y140:10180 6I020:X(I):I X54:Y60:10030% xX78:Y60:10150; }X102:Y60:10130Q X126:Y60:10160g X150:Y60:10010} X174:Y60:10140 X198:Y60:10250 X42:Y100:10160 X64:Y100:10210 X90:Y100:10180 X114:Y100:10030 X138:Y100:10: Z3:E "ARE YOU USING A COLOR MONITOR ";Q$:(Q$,1)"Y"Z5PI15X2:_<6jAX17FX1261X:Y161XKX10,XX1,XX1,YX10,YX10,XPXi(23):" COPYRIGHT 1983 GENERAL MASTERS CORP."kSX.40:SY.40:N5lZ s     14001470" "Nh"ANOTHER INVENTORY RECORD ";Q$:(Q$,1)"Y"4040bmD$;"DELETE";I$prIQ:1260v|:(10): SEARCHES FOR INVENTORY RECORD IN THE INVENTORY FILEI$"INVENTORY FILE"1600I"THIS PROGRAM SEARCHES OUT I D$;"DELETE";I$! IQ:1260' ]:(10): CHANGES DATA IN AN INVENTORY RECORDuI$"INVENTORY FILE"1600"THIS PROGRAM CHANGES DATA IN AN":"INVENTORY RECORD":" ""INPUT INVENTORY RECORD'S SEQUENCIAL N0 ";I:(3)":"NUMBER ";I :(3); " RECORDS NAME IS ";X$(I,0)m " ":"DO YOU WANT TO DELETE THIS RECORD ";Q$ (Q$,1)"Y"32000 QQ1: JIQD K020N X$(J,K)X$(J1,K)X Kb J "ANOTHER INVENTORY RECORD ";Q$:(Q$,1)"Y"3040S THIS A NEW FILE ";Q$1 (Q$,1)"Y"QI:1260; 1200f :(10): DELETES INVENTORY RECORDS~ I$"INVENTORY FILE" 1600 "THIS PROGRAM DELETES INVENTORY RECORDS":"FROM THE INVENTORY FILE":" " "INPUT INVENTORY RECORD'S SEQUENCIAL ADDS INVENTORY RECORDS TO THE INVENTORY FILE8I1PI$"INVENTORY FILE"\:1400f1470(14):"DO YOU NEED TO MAKE CORRECTIONS ";Q$:(Q$,1)"Y"Ģ(3):2020" ":"ANOTHER INVENTORY RECORD ";Q$:(Q$,1)"Y"II1::(3):2020"IKK):KK7$K2ĭK8ĭK4ĭ(Y$(K))(X$(M1,K))1850P%K2ĭK8ĭK41835j&Y$(K)X$(M1,K)1850+KK020:X$(M,KK)X$(M1,KK):KK0MM1:M0M1:185051828:KK020:X$(M,KK)Y$(KK):KKDMMMM1:MMQ1ıb18200:(10):ORDSJD$;"OPEN";I$(TD$;"READ";I$/^Q:hJ1QrX$(J,0),X$(J,1),X$(J,2),X$(J,3),X$(J,4),X$(J,5),X$(J,6),X$(J,7),X$(J,8),X$(J,9)|JD$;"OPEN";I$D$;"CLOSE";I$ SORTS FILESMM2MMM!KK020:Y$(KK)X$(MM,F * COMPUTES DAY OF THE YEAR;M((C$,2))ND((C$,4,2))_Y((C$,2))hL59Y4(Y4)0L60M3MM12"D1(30.6(M3)0.5)LD,M12D1D1306L6DCD1(Y365.25.751);@ READS INVENTORY RECATE"F$(5)"ZIP CODE"*F$(6)"COST"DF$(7)"MINIMUM STOCK"`F$(8)"AMOUNT IN STOCK"|F$(9)"AMOUNT TO ORDER"F10:F29:(F13)FF1F2F$(F);18);X$(I,F);:(18):"";X$:X$""X$(I,F)X$:X$""(F3):(18):X$(I,F)X$X$(J,0). <JJ19:X$X$","X$(J,JJ):JJ< FX$:X$""C PJU ZD$;"OPEN";I$h dD$;"CLOSE";I$n n x DATA INPUT & CORRECT SUB F$(0)"STOCK ITEM NAME" F$(1)"STOCK NUMBER" F$(2)"SUPPLIER" F$(3)"ADDRESS"F$(4)"CITY & ST  STORES INVENTORY RECORDS1 D$;"OPEN";I$C D$;"READ";I$J Q\ D$;"OPEN";I$o D$;"CLOSE";I$y QQI D$;"OPEN";I$ D$;"WRITE";I$ Q D$;"OPEN";I$ D$;"CLOSE";I$ D$;"APPEND";I$ (D$;"WRITE";I$ 2J1I 7 " J1N $O$(J) . 3" ":"CURSOR POINTS OUT CHOICE":" ":"-> STEPS CURSOR DOWN":" ":"<- STEPS CURSOR UP":" ":"PRESS RETURN KEY TO SELECT" 8(M1K) BA$ LA$H$KK1:K1K1 VA$U$KK1:KNKN `A$R$ı j1080T ON VIDEO" |1000J K2000,3000,4000,9000,5000,7000,8000,10000,6500 :(10):"DO YOU WANT TO USE ANOTHER OPTION ";Q$ (Q$,1)"Y"Ľ:300   MENU SUBROUTINE H$(8):U$(21):R$(13):K1 M((16N)2) :(M) O$(0):"CORDS", cO$(4)" UPDATE INVENTORY RECORD"X hO$(5)" SEARCH INVENTORY RECORDS FILE" mO$(6)" SEARCH BY INVENTORY RECORD SEQ NO" rO$(7)" SORT AND PRINT INVENTORY RECORDS" wO$(8)" PRINT PURCHASE ORDERS" zO$(9)" SUMMARY INVENTORY REPORb8,X$(200,20),Y$(20): SETS UP FILE CONTROL OPTIONSS1D$(4): D$=CONTROL D[6N9@O$(0)" INVENTORY RECORDS CONTROL OPTIONS"JO$(1)" ADD INVENTORY RECORDS"TO$(2)" DELETE INVENTORY RECORDS" ^O$(3)" CHANGE OR VIEW INVENTORY RE          "#&'X(X$(I,9))(X$(I,6)):YYXI&'X$(X.001):L(X$):X$(X$,L1)&'5(X$(I,9)));X$(I,9);" ";X$(I,0);25(X$(I,0)));X$(I,1);17(X$(I,1)));5(X$(I,6)));X$(I,6);9(X$));X$&'Y$(Y.001):L(Y$):Y$(Y$,L1)L''X$(I1,2)X$(I,2)ĺ400%8'K2:1800%='X0:Y0:1*%B'I1QL%L'(X$(I,8))(X$(I,7))10300i%V'X$(I,2)X$(I1,2)10200{%`'10);X$(I,2)%j'10);X$(I,3)%t'10);X$(I,4);" ";X$(I,5):" ":" ":" "&'" AMT ITEMS ORDERED STOCK NUMBER PRICE COST RETURN FOR NEXT INVENTORY RECORD ";Q$::" "N$R#"STOCK ITEMS NAME ";X$(I,0)t$T#"STOCK NUMBER ";X$(I,1):" "~$Z#1412$d#F12:1470$#I$#D$;"DELETE";I$$#IQ:1260$$$' PRINTS PURCHASE ORDERS$'$$'I$"INVENTORY FILE"%.'16GRAM UPDATES THE INVENTORY":"RECORDS. EACH RECORD WILL BE PRESENTED":"WITH THE LAST ITEMS INPUT.":"FOR NO CHANGE PRESS RETURN ONLY":"TO MAKE A CHANGE TYPE NEW OVER OLD"#K#"PRESS RETURN TO CONTINUE.";Q$:#P#I1Q:I1ė:" ":9042-$Q#" ":"PRESS7)" COST"'"zO$(8)" MINIMUN STOCK"E"{O$(9)" AMOUNT IN STOCK"d"|O$(10)" AMOUNT TO ORDER"m"N10w"1000"KK1"1800"6030""(#:(8): UPDATES INVENTORY RECORDS",#1500"2#I$"INVENTORY FILE""<#1600#F#"THIS PROE":"RECORDS":"PRESS RETURN TO CONTINUE";Q$]!hO$(0)"YOU MAY SORT ON ANY OF THE FOLLOWING"|!rO$(1)" STOCK ITEMS NAME"!tO$(2)" STOCK NUMBER"!uO$(3)" SUPPLIER"!vO$(4)" ADDRESS"!wO$(5)" CITY AND STATE"!xO$(6)" ZIP CODE" "yO$(AT YOU ARE":"LOOKING FOR ";Q$5 (Q$,1)"Y"7200? 5115t "ANOTHER SEQUENCE NUMBER ";Q$:(Q$,1)"Y"7040z * @ SORTS AND PRINTS INVENTORY RECORDS E:(10) JI$"INVENTORY FILE" T1600,!^"THIS PROGRAM SORTS AND PRINTS THE FILER bI$"INVENTORY FILE"%l1600yv"THIS PROGRAM SEARCHES FOR INVENTORY":"RECORDS USING INVENTORY RECORD SEQ NO""INPUT INVENTORY RECORD SEQUENTIAL N0 ";I:(3)"INVENTORY RECORD'S NAME IS ";X$(I,0) " ":"IS THIS THE RECORD TH"" ":"VALUE OF STOCK";17);V$bC(X$(I,6))(X$(I,9)):C$(C.001):L1(C$):C$(C$,L11)"COST TO REORDER";17);C$" ":"ANOTHER INVENTORY ITEM ";Q$:(Q$,1)"Y"6510X:(10): SEARCHES FOR INVENTORY RECORD USING SEQUENCE NUMBI06d: INVENTORY VIDEO SUMMARY REPORTTiI$"INVENTORY FILE":1600n"INPUT STOCK ITEMS SEQUENTIAL NUMBER ";Ix1400:(5)JJ09:F$(JJ);17);X$(I,JJ):JJV1(X$(I,6))(X$(I,8)):V$(V1.001):L1(V$):V$(V$,L11)CK NUMBER SUPPLIER COST AMT MIN ORDER"I(9);"80N"TI1QxX$(I,0);:(22):X$(I,1);:(39)X$(I,2);20(X$(I,2)));6(X$(I,6)));X$(I,6);5(X$(I,8)));X$(I,8);5(X$(I,7)));X$(I,7);5(X$(I,9)));X$(I,9)" "" "X$(I,8)(X)O"ANOTHER INVENTORY RECORD ";Q$:(Q$,1)"Y"5240cD$;"DELETE";I$qIQ:1260wp:(10): PRINTS INVENTORY FILEzI$"INVENTORY FILE"1600:" ":1:"INVENTORY FILE"9"STOCK NAME STOINVENTORY RECORD SEQUENCIAL N0 ";I-:(3)K"STOCK ITEM IS ";X$(I,0)"INPUT AMOUNT TO ADD OR SUBTRACT FROM INVENTORY ";AA05280K4AAX(X$(I,8))AX0ĺ"STOCK ITEM DEPLETED AND":(X);" TOO MANY WERE ASKED FOR":X0(2)" CHANGE INVENTORY RECORD"HO$(3)" ADD PURCHASES TO INVENTORY"t#O$(4)" SUBTRACT ITEMS FROM INVENTORY"(O$(5)" EXIT DONT CHANGE FILE"210007:K6520,4050,5250,5250,5180<P ADD OR SUBTRACT ITEMS OF INVENTORY"x"INPUT PE IN INVENTORY RECORD NUMBER ";Q$:I(Q$)6I(Q$)"YOU HAVE FOUND THE NAME NEEDED YOU HAVE THE FOLLOWING OPTIONS PRESS RETURN KEY";Q$:N5 O$(0)" INVENTORY RECORDS CONTROL OPTIONS"O$(1)" DISPLAY INVENTORY SUMMARY REPORT"O$NVENTORY":"RECORDS IN THE INVENTORY FILE":"PRESS RETURN TO CONTINUE";Q$TJ1QgJ;" ";X$(J,0)(J20)J2005100"IF THE NAME NEEDED IS IN THE LIST ABOVE":"TYPE IN ITS NUMBER IF NOT PRESS RETURN ";Q$Q$""5110J*"TY٠ӬȠ͠Ŭ٬0);"TOTAL ";15(Y$));Y$:" ":" ":" ":" ":" ":" ":" ":" ":" ":Y0S'<(IZ'F(0`'P(D٠ӬȠ͠Ŭ٬ȠάάĠ٠ȬΠ̹٠ӬȠ͠Ŭ٬Ϡ ӬРȠάά٠ӬȠ͠Ŭ٬Ϡ ӬРȠάά٠ӬȠ͠Ŭ٬Ϡ ӬРȠάά٠ӬȠ͠Ŭ٬Ϡ ӬРȠάά٠ӬȠ͠Ŭ٬Ϡ ӬРȠάά٠ӬȠ͠Ŭ٬Ϡ ӬРȠάά٠ӠӬҠάΠȠҬ̠Ǭά͠ŠάϠϠ٠ӬȠ͠Ŭ٬Ӡ̬ҠԠͬҬ٠ӬȠ͠Ŭ٬Ϡ ӬР٠ӬȠ͠Ŭ٬Ϡ ӬР٠ӬȠ͠Ŭ٬Ϡ ӬРŠӠР ٠ӬȠ͠Ŭ٬!٠ӬȠ͠Ŭ٬"