' +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#?     ϠϠȠҠ͠ԠŠŬȬŠԬŠ٠ӬӍ٬Ӡ̬ϠҬ̠ǬӠ̬͠ŠάΠȠǬҠάI15(10001*(X,Y8X6,Y:X,YX6,Y8=(XX1:YY1:IC (N (I15Y (10001o(X,Y8X3,Y4X6,Y8(X3,YX3,Y4(XX1:YY1:I((I15(10001(X,Y8X6,Y8X,YX6,Y(XX1:YY1:I(<(I15A(10400ZX1:YY1:I''I15)'10001N'X,Y8X,Y1X1,YX5,YX6,Y1X6,Y8a'XX1:YY1:Ig'r'I15}'10001'X,Y8X3,YX6,Y8'XX1:YY1:I''I15'10001'X,Y8X1,YX3,Y4X5,YX6,Y8'XX1:YY1:I'(,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y44'X5,Y4X6,YG'XX1:YY1:IM'X'I15c'10001'X6,Y7X5,Y8X1,Y8X,Y7X,Y5X1,Y4X5,Y4X6,Y3X6,Y1X5,YX1,YX,Y1'XX1:YY1:I''I15'10001'X,Y8X6,Y8'X3,YX3,Y8 'X'XX1:YY1:I'#'I15.'10001Y'X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4l'XX1:YY1:Ir'}'I15'10001'X,Y1X,Y7X1,Y8X5,Y8X6,Y7X6,Y1X5,YX1,YX,Y1:X4,Y2X6,Y'XX1:YY1:I''I15'10001$'XX6,Y'XX1:YY1:I'('I153'10001R'X,YX,Y8X3,Y4X6,Y8X6,Ye'XX1:YY1:Ik'v'I15'10001'X,YX,Y8X6,YX6,Y8'XX1:YY1:I''I15'10001'X,Y1X,Y7X1,Y8X5,Y8X6,Y7X6,Y1X5,YX1,YX,Y1 j'I15l'10001#n'X,YX,Y86r'XX1:YY1:I<s'Gt'I15Rv'10001mx'X,Y1X5,YX5,Y1X6,Y8|'XX1:YY1:I}'~'I15'10001'X,YX,Y8:X,Y2X6,Y8:X2,Y4X6,Y'XX1:YY1:I''I15'10001'X,Y8X,Y1P'X,YX,Y8X6,Y8%R'X,Y4X4,Y48T'XX1:YY1:I>U'IV'I15TX'10001Z'X6,Y7X5,Y8X2,Y8X,Y7X,Y1X1,YX5,YX6,Y1X6,Y2X5,Y2^'XX1:YY1:I_'`'I15b'10001d'X,YX,Y8:X6,YX6,Y8:X,Y4X6,Y4h'XX1:YY1:Ii'YX1,YX,Y1X,Y7X1,Y8X5,Y8X6,Y75 6'XX1:YY1:I; 7'F 8'I15Q :'10001z <'X,YX,Y8X5,Y8X6,Y7X6,Y1X5,YX,Y @'XX1:YY1:I A' B'I15 D'10001 F'X6,YX,YX,Y8X6,Y8 H'X,Y4X4,Y4 J'XX1:YY1:I K' L'I15N'1000' 'I15 '100018 'X,YX,Y5X3,Y8X6,Y5X6,YH 'X,Y4X6,Y4[ "'XX1:YY1:Ia #'l $'I15w &'10001 ('X,YX,Y8X5,Y8X6,Y7X6,Y5X5,Y4X,Y4 *'X5,Y4X6,Y3X6,Y1X5,YX,Y ,'XX1:YY1:I -' .'I15 0'10001" 2'X6,Y1X5, r |D$(4)9 D$;"RUN MICRO TECH ORDER SYSTEM"? \ ' SET UP DRAW PARAMETERS 'X1X5SX:X2X10SX:X3X15SX:X4X20SX:X5X25SX:X6X30SX 'Y1Y10SY:Y3Y30SY:Y4Y40SY:Y5Y50SY:Y7Y70SY:Y8Y80SY:Y2Y20SY:Y6Y60SY X150:Y95:10050' X175:Y95:10180= X60:Y140:10190S X85:Y140:10250j X110:Y140:10190 X135:Y140:10200 X160:Y140:10050 X185:Y140:10130 ,(1) 6I020:X(I):I @0 JI15145 T30,I243,I ^ h:0:Y50:10130" sX57:Y50:100907 xX70:Y50:10030L }X95:Y50:10180b X120:Y50:10150x X155:Y50:10200 X177:Y50:10050 X200:Y50:10030 X225:Y50:10080 X75:Y95:10150 X100:Y95:10180 X125:Y95:10040 Z3:E "ARE YOU USING A COLOR MONITOR ";Q$:(Q$,1)"Y"Z5PI15X2:_<6kAX512FX1261X:Y161XKX10,XX1,XX1,YX10,YX10,XPXi(23):" COPYRIGHT 1983 GENERAL MASTERS CORP."kSX.40:SY.35lZ nX3      REQUEST ";Q$:(Q$,1)"Y"40403mD$;"DELETE";I$ArIQ:1260G|s:(10): SEARCHES FOR PURCHASE REQUESTI$"REQUEST FILE"1600"THIS PROGRAM SEARCHES OUT PURCHASE REQUESTS":"PRESS RETURN TO CONTINUE";Q$J1QJ;" " CHANGES DATA IN A PURCHASE REQUEST:I$"REQUEST FILE"D1600"THIS PROGRAM CHANGES DATA IN A PURCHASE REQUEST RECORD":" ""INPUT PURCHASE REQUEST'S SEQUENCIAL N0 ";I:(3)14001470" "h"ANOTHER PURCHASEX$(I,6)9 " ":"DO YOU WANT TO DELETE THIS RECORD ";Q$P (Q$,1)"Y"3200Z0 QQ1e: JIQqD K020N X$(J,K)X$(J1,K)X Kb J "ANOTHER PURCHASE REQUEST ";Q$:(Q$,1)"Y"3040 D$;"DELETE";I$ IQ:1260 $:(10):NEW FILE ";Q$( (Q$,1)"Y"QI:12602 1200Z :(10): DELETES PURCHASE REQUESTSp I$"REQUEST FILE"z 1600 "THIS PROGRAM DELETES PURCHASE REQUESTS":" " "INPUT PURCHASE REQUEST'S SEQ. NO. ";I :(3) "ITEM REQUESTED IS ";(10): ADDS PURCHASE REQUESTS(I1>I$"REQUEST FILE"G(3)S:1400]1470(14):"DO YOU NEED TO MAKE CORRECTIONS ";Q$:(Q$,1)"Y"Ģ(3):2020" ":"ANOTHER PURCHASE REQUEST ";Q$:(Q$,1)"Y"II1::(3):2020 "IS THIS A CLOSE";I$" SORTS FILES+MM24MMMV!KK020:Y$(KK)X$(MM,KK):KKp&Y$(K)X$(M1,K)1850+KK020:X$(M,KK)X$(M1,KK):KK0MM1:M0M1:185051830:KK020:X$(M,KK)Y$(KK):KKDMMMM1:MMQ1ıb1820 :M12D1D1306L+6DCD1(Y365.25.751)1;R@ READS INVENTORY RECORDSdJD$;"OPEN";I$vTD$;"READ";I$}^QhJ1QrX$(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$;"18);X$(I,F);:(18):"";X$:X$""X$(I,F)X$:X$""L(F2):(18):X$(I,F)SFYx COMPUTES DAY OF THE YEARM((C$,2))D((C$,4,2))Y((C$,2))L59Y4(Y4)0L60M3MM12"D1(30.6(M3)0.5)LD,IERS NAME"%F$(1)"STREET ADDRESS"@F$(2)"CITY AND STATE"UF$(3)"ZIP CODE"gF$(4)"DATE "F$(5)"AMOUNT NEEDED"F$(6)"ITEM NEEDED"F$(7)"COST PER ITEM $"F$(8)"REQUESTOR"F10:F28:(2)FF1F22F$(F); Q D$;"OPEN";I$, D$;"CLOSE";I$@ D$;"APPEND";I$S (D$;"WRITE";I$^ 2J1Im 7X$X$(J,0) <JJ19:X$X$","X$(J,JJ):JJ FX$:X$"" PJ ZD$;"OPEN";I$ dD$;"CLOSE";I$ n x DATA INPUT & CORRECT SUB F$(0)"SUPPL 8(M1K) BA$/ LA$H$KK1:K1K1I VA$U$KK1:KNKNV `A$R$ı` j1080  STORES INVENTORY RECORDS D$;"OPEN";I$ D$;"READ";I$ Q D$;"OPEN";I$ D$;"CLOSE";I$ QQI D$;"OPEN";I$ D$;"WRITE";I$  MENU SUBROUTINE7 H$(8):U$(21):R$(13):K1I M((16N)2)T :(M)d O$(0):" "o J1Nz $O$(J) . 3" ":"CURSOR POINTS OUT CHOICE":" ":"-> STEPS CURSOR DOWN":" ":"<- STEPS CURSOR UP":" ":"PRESS RETURN KEY TO SELECT"RCH BY PURCHASE REQUEST SEQ NO"N rO$(7)" SORT AND PRINT PURCHASE REQUESTS"r wO$(8)" PRINT PURCHASE ORDERS"| |1000 K2000,3000,4000,9000,5000,7000,8000,10000 :(10):"DO YOU WANT TO USE ANOTHER OPTION ";Q$ (Q$,1)"Y"Ľ:300 " PURCHASE REQUEST CONTROL OPTIONS"G JO$(1)" ADD PURCHASE REQUESTS"n TO$(2)" DELETE PURCHASE REQUESTS" ^O$(3)" CHANGE OR VIEW PURCHASE REQUESTS" cO$(4)" UPDATE PURCHASE REQUESTS" hO$(5)" SEARCH PURCHASE REQUEST FILE" mO$(6)" SEA"THIS IS THE MICRO TECH ORDER SYSTEM. IT":"PROCESSES PURCHASE REQUESTS FOR SMALL":"BUSINESS ON MICRO COMPUTER":"TYPE RETURN TO CONTINUE";Q$,X$(200,20),Y$(20): SETS UP FILE CONTROL OPTIONS1D$(4): D$=CONTROL D6N8# @O$(0)          ŬȬŠԬŠ٠ӬӍI"'53);T1$:TL0"'0::10);X$(I,2);" ";X$(I,3):" ":" "m!y'"DATE NO. ITEM DISCRIPTION PRICE COST TOTAL":" "!z'CO(X$(I,5))(X$(I,7)):C1$(CO.001):L(C1$):C1$(C1$,L1)!{'TLTLCO!~'X$(I,4);10);X$(I,5);15);X$(I,6);39);X$(I,7);7);C1$"' ' $'I$"REQUEST FILE"$ .'16002 8'K1:18009 V'1d `'"PURCHASE ORDERS":" ":" ":" ":" "o j'I1Q o'X$(I,0)X$(I1,0)10106 r'T1$(TL.001):L(T1$):T1$(T1$,L1) s'TL0ĺ53);T1$:TL0:" ":" ":" "&!t'10);X$(I,0):10);X$(I,1)PE NEW ITEM OVER OLD";K#"PRESS RETURN TO CONTINUE.";Q$:XP#I1Q:I1ė:" ":9050Q#" ":"PRESS RETURN FOR NEXT PURCHASE REQUEST ";Q$::" "Z#1400d#1470#I#D$;"DELETE";I$#IQ:1260$' PRINTS PURCHASE ORDER REQUESTS UPDATES PURCHASE REQUESTS%,#1500;2#I$"REQUEST FILE"E<#1600F#"THIS PROGRAM UPDATES THE PURCHASE REQUESTS. EACH RECORD WILL BE PRESENTED WITH THE LAST ITEMS INPUT. FOR NO CHANGE PRESS RETURN ONLY TO MAKE A CHANGE TYREET ADDRESS"*uO$(3)" CITY AND STATE"AvO$(4)" ZIP CODE"TwO$(5)" DATE"pxO$(6)" AMOUNT NEEDED"yO$(7)" ITEM NEEDED"zO$(8)" COST PER ITEM"{O$(9)" REQUESTOR"N91000KK118006030(#:(8):RTS AND PRINTS PURCHASE REQUESTS,E:(10)BJI$"REQUEST FILE"LT1600^"THIS PROGRAM SORTS AND PRINTS THE FILE RECORDS":"PRESS RETURN TO CONTINUE";Q$hO$(0)"YOU MAY SORT ON ANY OF THE FOLLOWING"rO$(1)" SUPPLIERS NAME" tO$(2)" ST PURCHASE REQUEST'S SEQUENTIAL N0 ";I0:(3)S"ITEM REQUESTED IS ";X$(I,6)" ":"IS THIS THE RECORD THAT YOU ARE LOOKING FOR ";Q$(Q$,1)"Y"72005115 "ANOTHER SEQUENCE NUMBER ";Q$:(Q$,1)"Y"7040* @ SO,7);10);X$(I,4);20);X$(I,0)&" "-I40:~X:(10): SEARCHES FOR PURCHASE REQUEST USING SEQUENCE NUMBER bI$"REQUEST FILE"l1600v"THIS PROGRAM SEARCHES FOR PURCHASE REQUESTS USING PURCHASE REQUEST SEQ NO"%"INPUTp:(10): PRINTS PURCHASE REQUEST FILE>zI$"REQUEST FILE"H1600o:" ":1:"PURCHASE REQUEST FILE""REQUESTOR ITEM NEEDED AMT COST DATE SUPPLIER"" "I1QX$(I,8);15);X$(I,6);34);X$(I,5);39);X$(IE THE FOLLOWING OPTIONS PRESS RETURN KEY";Q$:6N3e O$(0)" PURCHASE REQUESTCONTROL OPTIONS"O$(1)" DELETE PURCHASE REQUEST"O$(2)" CHANGE PURCHASE REQUEST"(O$(3)" EXIT DONT CHANGE FILE"210007:K3080,4050,5180<(;X$(J,6)"(J20)J2005100|"IF THE ITEM NEEDED IS IN THE LIST ABOVE TYPE IN ITS NUMBER IF NOT PRESS RETURN ";Q$Q$""5110J"TYPE IN PURCHASE REQUEST NUMBER ";Q$:I(Q$)I(Q$)."YOU HAVE FOUND THE NAME NEEDED YOU HAVŬȬŠԬŠ٠ӬӍȬŠԬŠ٠ӬӬԬ̠Ŭ٠ƬȬŠԬŠ٠ӬӬȬŠԬŠ٠ӬӬˠŠŬԠ٬٬ԠҬ٬Ԡ٠͠٬٬Ԡ٬ӠӠȠ٬ԠǠŬԠӠӬ٠ԠˬԠˠ٬ԠˬҬРЬȬŠԬŠ٠ӬӬˠŠŬԠ٬٬ԠҬ٬Ԡ٠͠٬٬ԠӠӠȠ٬ԠǠŬԠӠӬ٠ԠˬԠˠ٬ԠˬҬȬŠԬŠ٠ӬӬˠŠŬԠ٬٬ԠҬ٬Ԡ٠͠٬٬ԠӠӠȠ٬ԠǠŬԠӠӬ٠ԠˬԠˠ٬ԠˬҬ٬РЬάԠŬϬոìȵҬϹǬշԬԬάչɸɬˬ˻ɸˬǬŬȬŠԬŠ٠ӬӍˠŠŬԠ٬ŬРԮР ŬȬŠԬŠ٠ӬӍˠŠŬԠ٬!ŬȬŠԬŠ٠ӬӍˠŠŬԠ٬٠̠ŬРî̬Р"