' +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#?     Ϡ ˠҠ ٠ŠٮРˠϠΠάР̠ŬРРԠȠȬРΠŠӬԮŬΠӬԮŬҮϠԠРԠ̹ԮРàԬРԠ̹РˠϠԠҬ4X6,Y'XX1:YY1:I'*'I155'10001}'X,Y1X1,YX5,YX6,Y1X6,Y3X5,Y4X1,Y4X,Y5X,Y7X1,Y8X5,Y8X6,Y7'XX1:YY1:I''I15'10001'X,Y8X6,Y8'X3,YX3,Y8'XX1:YY1:I' (I15 (10001(5 '10001B'X,Y1X,Y7X1,Y8X5,Y8X6,Y7X6,Y1X5,YX1,YX,Y1U'XX1:YY1:I['f'I15q'10001'X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4'XX1:YY1:I''I15'10001'X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4'X5,YX4,Y4 T'XX1:YY1:I U') j'I154 l'10001B n'X,YX,Y8U r'XX1:YY1:I[ s'f ~'I15q '10001 'X,YX,Y8:X,Y3X6,Y8 'X2,Y5X6,Y 'XX1:YY1:I ' 'I15 '10001 'X,Y8X,YX6,Y 'XX1:YY1:I ''I1Y1 6'XX1:YY1:I 7'& 8'I151 :'10001Z <'X,YX,Y8X5,Y8X6,Y7X6,Y1X5,YX,Ym @'XX1:YY1:Is A'~ B'I15 D'10001 F'X6,YX,YX,Y8X6,Y8 H'X,Y4X4,Y4 J'XX1:YY1:I K' L'I15 N'10001 P'X,YX,Y8X6,Y8 R'X,Y425SX:X6X30SXW 'Y1Y10SY:Y3Y30SY:Y4Y40SY:Y5Y50SY:Y7Y70SY:Y8Y80SY] 'h 'I15s '10001 'X,YX,Y5X3,Y8X6,Y5X6,Y 'X,Y4X6,Y4 "'XX1:YY1:I #' .'I15 0'10001 2'X6,Y7X5,Y8X1,Y8X,Y7X,Y1X1,YX5,YX6,0:Y140:10050% X170:Y140:10180. (1)E I0100:X(I):IL 0Z I15145j 35,I243,Ip x :~ D$(4) D$;"RUN STOCK DATA FILER" , ' SET UP DRAW PARAMETERS 'X1X5SX:X2X10SX:X3X15SX:X4X20SX:X5X10190 xX90:Y50:102000 }X125:Y50:10150F X160:Y50:10030\ X190:Y50:10110q X85:Y95:10040 X110:Y95:10010 X135:Y95:10200 X155:Y95:10010 X75:Y140:10060 X100:Y140:10090 X110:Y140:10120 X14< Z3I"ARE YOU USING COLORED MONITOR ";Q$:(Q$,1)"Y"Z5Q2:X<6dAX512yFX1261X:Y161XKX10,XX1,XX1,YX10,YX10,XPXi(23):" COPYRIGHT 1983 GENERAL MASTERS CORP."lZnSX.6:SY.35 sX60:Y50:     ;Q$:(Q$,1)"Y"4040)mD$;"DELETE";I$7rIQ:1260=|:(10): SEARCHES FOR INVENTORY RECORD IN THE INVENTORY FILEI$"INVENTORY FILE"1600"THIS PROGRAM SEARCHES OUT INVENTORY":"RECORDS IN THE INVENTORY FILE":"PRESS RETURN CHANGES DATA IN AN INVENTORY RECORD<I$"INVENTORY FILE"F1600"THIS PROGRAM CHANGES DATA IN AN":"INVENTORY RECORD":" ""INPUT INVENTORY RECORD'S SEQUENCIAL N0 ";I:(3)14001470" "h"ANOTHER INVENTORY RECORD "0)4 " ":"DO YOU WANT TO DELETE THIS RECORD ";Q$K (Q$,1)"Y"3200U0 QQ1`: JIQlD K020N X$(J,K)X$(J1,K)X Kb J "ANOTHER INVENTORY RECORD ";Q$:(Q$,1)"Y"3040 D$;"DELETE";I$ IQ:1260 $:(10): 00- :(10): DELETES INVENTORY RECORDSE I$"INVENTORY FILE"O 1600 "THIS PROGRAM DELETES INVENTORY RECORDS":"FROM THE INVENTORY FILE":" " "INPUT INVENTORY RECORD'S SEQUENCIAL":"NUMBER ";I :(3) " RECORDS NAME IS ";X$(I,I$"INVENTORY FILE"#:1400-1470v(14):"DO YOU NEED TO MAKE CORRECTIONS ";Q$:(Q$,1)"Y"Ģ(3):2020" ":"ANOTHER INVENTORY RECORD ";Q$:(Q$,1)"Y"II1::(3):2020"IS THIS A NEW FILE ";Q$ (Q$,1)"Y"QI:1260 12%K2ĭK8ĭK418351&Y$(K)X$(M1,K)1850V+KK020:X$(M,KK)X$(M1,KK):KKo0MM1:M0M1:1850y51828:KK020:X$(M,KK)Y$(KK):KKDMMMM1:MMQ1ıb1820:(10): ADDS INVENTORY RECORDS TO THE INVENTORY FILEI1QVrX$(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)]|JoD$;"OPEN";I$D$;"CLOSE";I$ SORTS FILESMM2MMM!KK020:Y$(KK)X$(MM,KK):KK$K2ĭK8ĭK4ĭ(Y$(K))(X$(M1,K))1850))D((C$,4,2))&Y((C$,2))/L59FY4(Y4)0L60VM3MM12s"D1(30.6(M3)0.5)LD,M12D1D1306L6DCD1(Y365.25.751);@ READS INVENTORY RECORDSJD$;"OPEN";I$TD$;"READ";I$^QhJ1IMUM STOCK"'F$(8)"AMOUNT IN STOCK"CF$(9)"AMOUNT TO ORDER"SF10:F29:_(F13)lFF1F2F$(F);18);X$(I,F);:(18):"";X$:X$""X$(I,F)X$:X$""(F3):(18):X$(I,F)F COMPUTES DAY OF THE YEARM((C$,2"" PJ ZD$;"OPEN";I$/ dD$;"CLOSE";I$5 nT x DATA INPUT & CORRECT SUBp F$(0)"STOCK ITEM NAME" F$(1)"STOCK NUMBER" F$(2)"SUPPLIER" F$(3)"ADDRESS" F$(4)"CITY & STATE" F$(5)"ZIP CODE" F$(6)"COST" F$(7)"MIN;"READ";I$ Q# D$;"OPEN";I$6 D$;"CLOSE";I$@ QQIR D$;"OPEN";I$e D$;"WRITE";I$l Q~ D$;"OPEN";I$ D$;"CLOSE";I$ D$;"APPEND";I$ (D$;"WRITE";I$ 2J1I 7X$X$(J,0) <JJ19:X$X$","X$(J,JJ):JJ FX$:X$UT CHOICE":" ":"-> STEPS CURSOR DOWN":" ":"<- STEPS CURSOR UP":" ":"PRESS RETURN KEY TO SELECT"r 8(M1K)z BA$ LA$H$KK1:K1K1 VA$U$KK1:KNKN `A$R$ı j1080  STORES INVENTORY RECORDS D$;"OPEN";I$ D$0,7000,8000,10000F :(10):"DO YOU WANT TO USE ANOTHER OPTION ";Q$^ (Q$,1)"Y"Ľ:300d z  MENU SUBROUTINE H$(8):U$(21):R$(13):K1 M((16N)2) :(M) O$(0):" " J1N $O$(J) .e 3" ":"CURSOR POINTS OCORDS", cO$(4)" UPDATE INVENTORY RECORD"X hO$(5)" SEARCH INVENTORY RECORDS FILE" mO$(6)" SEARCH BY INVENTORY RECORD SEQ NO" rO$(7)" SORT & PRINT & SUM INVENTORY" wO$(8)" PRINT PURCHASE ORDERS" |1000 K2000,3000,4000,9000,500r8,X$(200,20),Y$(20): SETS UP FILE CONTROL OPTIONSS1D$(4): D$=CONTROL D[6N8@O$(0)" INVENTORY RECORDS CONTROL OPTIONS"JO$(1)" ADD INVENTORY RECORDS"TO$(2)" DELETE INVENTORY RECORDS" ^O$(3)" CHANGE OR VIEW INVENTORY RE          ,2)X$(I,2)ĺ40);"TOTAL ";15(Y$));Y$:" ":" ":" ":" ":" ":" ":" ":" ":" ":Y0c&<(Ij&F(0p&P(D PRICE COST"3%'X(X$(I,9))(X$(I,6)):YYXY%'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)\&'X$(I1RY FILE"$.'1600 $8'K2:1800/$='X0:Y0:1:$B'I1Q\$L'(X$(I,8))(X$(I,7))10300y$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 =#Q#" ":"PRESS RETURN FOR NEXT INVENTORY RECORD ";Q$::" "^#R#"STOCK ITEMS NAME ";X$(I,0)#T#"STOCK NUMBER ";X$(I,1):" "#Z#1412#d#F12:1470##I##D$;"DELETE";I$##IQ:1260#$#' PRINTS PURCHASE ORDERS#'$$'I$"INVENTO0"F#"THIS PROGRAM 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ė:" ":9042IP CODE"!yO$(7)" COST"7!zO$(8)" MINIMUN STOCK"U!{O$(9)" AMOUNT IN STOCK"t!|O$(10)" AMOUNT TO ORDER"}!N10!1000!KK1!1800!6030!!(#:(8): UPDATES INVENTORY RECORDS!,#1500!2#I$"INVENTORY FILE""<#160D PRINTS THE FILE":"RECORDS":"PRESS RETURN TO CONTINUE";Q$m 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)" ZIS THE RECORD THAT YOU ARE":"LOOKING FOR ";Q$E(Q$,1)"Y"7200O5115 "ANOTHER SEQUENCE NUMBER ";Q$:(Q$,1)"Y"7040*@ SORTS AND PRINTS INVENTORY RECORDSE:(10)JI$"INVENTORY FILE"T1600< ^"THIS PROGRAM SORTS ANNG SEQUENCE NUMBER +bI$"INVENTORY FILE"5l1600v"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 TH(40):"VALUE OF INVENTORY $";V$aC(X$(I,6))(X$(I,9)):C$(C.001):L(C$):C$(C$,L1)(40):"COST TO REORDER $";C$" ":I" ":(40):"TOTAL VALUE OF INVENTORY $";T0X:(10): SEARCHES FOR INVENTORY RECORD USI);"80N"I1Q6X$(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)V1(X$(I,6))(X$(I,8)):TTV1V$(V1.001):L1(V$):V$(V$,L11)#$,1)"Y"5240!D$;"DELETE";I$/IQ:12605]p:(10): PRINTS INVENTORY FILEuzI$"INVENTORY FILE"1600:" ":1:"INVENTORY FILE""STOCK NAME STOCK NUMBER SUPPLIER COST AMT MIN ORDER"(9";X$(I,0)E"INPUT AMOUNT TO ADD OR SUBTRACT FROM INVENTORY ";ASA05280aK4AAtX(X$(I,8))AX0ĺ"STOCK ITEM DEPLETED AND":(X);" TOO MANY WERE ASKED FOR":X0" "X$(I,8)(X) "ANOTHER INVENTORY RECORD ";Q$:(QNTORY"2#O$(4)" SUBTRACT ITEMS FROM INVENTORY"V(O$(5)" EXIT DONT CHANGE FILE"`210007:K3080,4050,5250,5250,5180<P ADD OR SUBTRACT ITEMS OF INVENTORYx"INPUT INVENTORY RECORD SEQUENCIAL N0 ";I:(3) "STOCK ITEM IS "YOU HAVE FOUND THE NAME NEEDED YOU HAVE THE FOLLOWING OPTIONS PRESS RETURN KEY";Q$:`N5 O$(0)" INVENTORY RECORDS CONTROL OPTIONS"O$(1)" DELETE INVENTORY RECORD"O$(2)" CHANGE INVENTORY RECORD"O$(3)" ADD PURCHASES TO INVE TO CONTINUE";Q$J1Q.J;" ";X$(J,0)H(J20)J2005100"IF THE NAME NEEDED IS IN THE LIST ABOVE":"TYPE IN ITS NUMBER IF NOT PRESS RETURN ";Q$Q$""5110J"TYPE IN INVENTORY RECORD NUMBER ";Q$:I(Q$)I(Q$)XĠϬɠРԬ٠ҬĠӬԠŬĠŬԠŬˮή٠ǮŬǠ٬ԮŬ X,Y8X3,Y4X6,Y8!(X3,YX3,Y44(XX1:YY1:I:(XIG(ZРˠϠΠάР̠ŬРРԠȠȬРРŠӠӬРРРΠŠӬԮŬΠӬԮŬҮϠԠРԠ̹ԮРàԬРԠ̹РˠϠԠҬ˦ŬРРΠРŬРРӬРҠȠԬРϠ ȬРϠԧӠŠŬҠԠӬӠŠ٠ϬҠŮΠӠȠӬӠŠ٬ҠŮΠӠؠȠӬӠ٠٬ȠԮӠРϠԯ̬РŠԠŬРŠŠԬРĠϬɠРԬ٠ҬĠӬԠŬĠŬԠŬˮή٠ǮŬĠϬɠРԬ٠ҬĠӬԠŬĠŬԠŬˮή٠ǮŬĠϬɠРԬ٠ҬĠӬԠŬĠŬԠŬˮή٠ǮŬĠϬɠРԬ٠ҬĠӬԠŬĠŬԠŬˮή٠ǮŬĠϬɠРԬ٠ҬĠӬԠŬĠŬԠŬˮή٠ǮŬĠϬɠРԬ٠ҬĠӬԠŬĠŬԠŬˮή٠ǮŬӠŬРĠϬɠРԬ ĠϬɠРԬ!ĠϬɠРԬ"