' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` 鷎귭෍ᷩ췩緈JJJJx i 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,&" ʎ L/  !"#$%&'()*+,-./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#0EB 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`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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-U@Ϡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ Ť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볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` F d֠ĭz"# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z# u`8ı& AW21(36)9ın& JVJV(AW21AW32)(AW8):(AW48AW57)AW32ĺ(AW);:P$(CV,JV)(AW):JVJV1w& NT1& AW21Č1036& AW8Č1008& & J18:PP$PP$P$(CV,J)::P(CV)(PP$):& PS(CV)P(CV)& NT1& (36)16Ė1:JV1'9:22)::11F%r12:"(1) - CHANGE DATA"::12:"(2) - CHANGE STYLE"T%z16368,0x%T(16384)128:T13T272000%T49T502180%TT48:T1ī14000%T2İ1000:1900::105%16368,0:T%CP2105%CS1:102& (36)0AW$\16368,0:G32000)$aG3GC1Ľ:4x$bG1Ľ:PS(12),P(12),HR$(12),HC$(12),L$(12),AL$(12),P$(12,8)::1000:1900$eG1GC1Ľ:4$fG1Đ::GC1::102$mG2DC1:L112:L$(L)"": %p::5:9::22):6:9:" CHANGE DATA OR STYLE ":7:5(#*G4Ĺ16297,0:16304,0:16299,06#/G43000C#1G3ĉ:R#3G32125#9G3Ģ8::16368,0:" SAVE PIE CHART ":#>12:"TYPE A NAME: ";NAME$:NAME$""2000#M#O6000#RG3ĺ:8000::(4)"BSAVE "NAME$",A$4000,L8192,D"(DN)4)" PLOT CURRENT DATA":E$(5)" QUIT: RETURN TO MENU"b"M16:::" ";M;" ";::E$(M1):q"BB12060"BB1:34,0:32,0"16368,0:" G(16384)12848:G6G12060""16368,0"#G6ĺ(4)"RUN MENU,D1"#%G5İ1000:1900::10X!3:12::" ":4:12:" PIE CHART MENU ":5:12:" ":t!32,5:CS0:T$"":NT0::"E$(0)" ENTER NEW SET OF DATA":E$(1)" CHANGE DATA OR STYLE":E$(2)" SAVE PRESENT PIE CHART":E$(3)" LOOK AT PRESENT CHART":E$(":' 12:"CHOOSE 3D ANGLE (1-4): ";5 16368,0V AS(16384)128:AS131900s ASAS48:AS1AS41970| KAS EL1.02K10:PW30(K4)15(K3)10(K2)6(K1): :::1:J037:"*";::1:J121:"*";:39:"*"::J038:"*";::33,40::32,8:8:5:" WHICH KIND ?":12:fv"(1) - TWO DIMENSIONAL"::"(2) - THREE DIMENSIONAL"t16368,0AN(16384)176:AN1AN2AN211930AN21ġ:2000EL1.0:PW0:AN1ı 34,0::9:"PIE SHAPE: ";::" ELLIPTICAL CP2Ģ6:3!CP21860I&:"G";::"REEN ";::"V";::"IOLET ";+:"W";::"HITE ";::"R";::"ED ";::"B";::"LUE":?CP2ĺ:DCP2ĺ:G:3:"ENTER ";::"STOP";::" WHEN YOU ARE FINISHED."N16368,0`,l32,0X7)15(CX7)):(37)1:HS,Y$HR$(CN);Y$""730RY$"G"W$"GREEN"jY$"V"W$"VIOLET"Y$"W"W$"WHITE"Y$"R"W$"RED"Y$"B"W$"BLUE"W$:1:9::22)2:9:" PIE CHART DATA ENTRY ":3:9:22): N4)7(LN4))YJX271JX367IYIY10>ZNUM2Ē3:1631R[IXXCIXIX14\II0404:04(HC4):M("H"):MIXII,IY2:MIXII,IY:MIXII,IY2::3_LN(Z$):LL1LN:((Z$,LL,1))IX7(LL1),IY::HC:(37):HS20(CIXIX7(JX0JX110)7(JX330JX440):IYIY14(JX330)14(JX30JX110)jNJX110JX170IYIY10yOIY0IY0PJX171JX232IXIX10QIX279IX279RJX256JX330IYIY10:IXIX7SIY191IY191TZ$""ı UIXXCIXIX(L"R"Ē5:HC5%HC$(CN)"B"Ē6:HC6+F@PG1.4:NUM2PG.7:3MA2EJX(SF)2:ACJX:IXXCPGRY(A):IYYCPGR(A):PP(100P(CN1)):Z$L$(CN1):IXXCIXIX1210(OUT1)GNUM2Z$AL$(CN1):1627HIX(IX):IY(IY):LN(Z$)NKRY(A),YCREL(A)PW:tHR$(CN)"G"HR$(CN)"V"HR$(CN)"W"HR$(CN)"R"HR$(CN)"B"Ģ(37):5:715zHC$(CN)HR$(CN1)HC$(CN)""Ē3:HC3HC$(CN)"G"Ē1:HC1HC$(CN)"V"Ē2:HC2HC$(CN)"W"Ē3:HC3 HC$(CN)28:H272000&BHH48:H0H410804LH1CP1BVH2CP2T[H3H4CP3Z`|LSF1(FS1)(CP3):ACLCSCS:CS3.141596LF:1230CSCL:CS3.141596ēXCR,YCXCR,YCPW:LF:1230XCRY(A),YC3(CP3)REL(A)XCMATIC COLOR FILL":N$(2)"USER COLOR FILL":N$(3)"EXPLODED OUTLINE":N$(4)"CLOSED OUTLINE"V:H2::19):V1:H2:" PIE CHART OPTIONS ":V2:H2:19):32,5:33,35:1V7::M14:"(";M;") - ";N$(M)::.16368,0 8H(16384)16:232,0:`?|`$ ``(Q$):J1LN:P$(JL,J)(Q$,J,1)::147CNPI1:48760G4:T$""ı|4:WC7:TY8:(T$)18WC15:233,134:232,204:TY14:PT140WC24:IT1(T$):VN((T$,IT,1))31((233)96):VNPTWC2WC((T$)2)WC(IT1),TY:VN42PTPT5 5::233,9I):P(I)PA:P(J)PB3/::[36:::1:13:14):2:13:" CORRECT DATA ":3:13:14):3611:K1PI:HH1(K7)20(K6):HS817(K6):HH:(91);K;(93);:HS::" ";PS(K);" ":::36P(K)PS(K)36K6Ģ1136%47P$"":JL1PI:Q$(PS(JL)):LN4,128::(37):HS:713?2.:34,0:35,9:32,0:33,40::35,242.6:1:39):6:1::" REARRANGE VALUES FROM HIGH TO LOW ?";:16368,0:2.AY(16384)128:AY78AY89AY13120102.AY13AY78ı3.PM0:I1PI:JIPI:PAP(J):PAP(I)PBP(R UP ";::" M ";::" MOVES IT DOWN"V1;'8:11:"HIT ";::"ESC";::" WHEN DONE."1='16368,0:10:32,8:33,32::1::AW$1B'7621*PL$(P(CN)):LG(PL$):LG8Ģ(37):HS8:LG);:(37)1:HS:"TOO LARGE":1*LG8ı1+16368,02 +163880200^DN35ġ:20000h80'16368,0:16384,128i0'AS(16384)128:AS78AS89AS1310010x0$'AS137410.'AS7874108'AS89Ĺ34,0:35,8::34,0:35,24:2:12:" CORRECT DATA:"'1:'AS89Ģ6:1::38):6:1::" I ";::" MOVES CURSO:32,0:33,40)/B23:"CHART TITLE: ";T$//L|/p:11:" DISK IS FULL. PLEASE HIT RETURN. ":16368,0:16384,128:2000/@18:"STORE ON DISK IN DRIVE ";::" 1 ";::" OR ";::" 2 ";::" ?"/J16368,00TDN(16384)176:DN1DN2DN35(NUM1)10(NUM2);::" CHARACTERS PER LABEL":::16368,0`.8JH1PI:(91);JH;(93);" ";r.:" ";L$(JH):.<LW8(NUM1)13(NUM2).=(L$(JH))LWĢ(37)1:8:1315(JH7)):(37)1:7:4922.>JH6Ĺ32,20:33,20:9.?JH8Ĺ32,19 /@NUM1NUM34250F-NUM1N440:R70:U76:PX140:PY104:PE0:4900Y-NUM1İ4150:-NUM2R70:PXRSEP6:PY104:N440:U76:PE0:4900:-4150--$:::1:1:18):2:1:" PIE SLICE LABELS ":3:1:18):::<.):"MAXIMUM ";::83) - DO NOT LABEL"#,32,0:33,40,18::" NOTE: ";::" OPTION ";::" 3 ";::" LATER PERMITS YOU TO ":"SELECT PIE WIDTH AND SCREEN LOCATION.",16368,0,NUM(16384)176:NUM21ġ:2000,NUM3PE0:R70:N440:U76:PX140:PY104:-28:PE13PE78:)+JPE89PE784160/+[?+^PE784400E+g\+hEL1ĉ::NUM3:+i::32,7::1:6:15):2:6:" LABEL FORMAT: ":3:6:15)::32,4+m9:1:"(1) - LABEL BESIDE EACH SLICE"+r:"(2) - LIST LABELS IN A TABLE",:"(30)(LO76)(27930R)(LO82)140(LO66LO84):PY80w*,PY92(LO77LO76LO82)(R30)(LO84)(191R30)(LO66)}*.*0U76PE0:*1J1500::*623:40):23:1::" TYPE PERCENTAGES INSIDE SLICES (Y/N)? ";:16368,0+@PE(16384)1,0:2)::"WHERE (TOP,BOT,MID,RIGHT,LEFT) ? ";Z)LO(16384)128:LO13LO27LO77)LO66LO84LO77LO76LO824070))LO66ĺ"BOT")LO84ĺ"TOP")LO77ĺ"MID")LO76ĺ"LEFT")LO82ĺ"RIGHT"7*"PX140(LO77)(RL, MED, LARGE) ? ";8(U(16384)128:U27U77:2000Z(U83U77U76U134015(N440(U13U76)310(U77)225(U83)(R70(U76U13)47(U77)35(U83)(U76U13Ğ:"LARGE"(U77Ğ:"MEDIUM"(U83Ğ:"SMALL")16368 (36)16Ė18:JV1' '' 16368,0?' (16384)1283010e' L(16384)128:L27L133020|' L27L13ė:2000'4200'::NUM3ı'1::31):2:1:" SELECT PIE SIZE AND LOCATION: ":3:31)::6:1(16368,0:"PIE SIZE (SMAL SHAPES: 3  = L3 = 5 3 L;  L4BLOAD 3  = L4 ,A26986,D 4  9   < D n :L;  L4BSAVE L4,A$ 9:L{ 8 ; $L3 8  : s9 : M8 : 49 9  _8  8 c: : $L3 9  _8  8 : `: 8 ; $LI3 $ : 9 _; M8 : 49L83B 63 = : s9LG 8 ,; $L}3 >;  Lr3 RUN MENU,D1 f3  X <  K= > {: T X <  'L3NAME OF : D u 0= n 8 : ( 7 8 ,; = L1 = > {: T 8 : $ 7 D8 : $= L"2 : 8 : 9L"2 8 : $ 7 D8 : $= L 8 : $L_2 : 9: : A8L{ 8 ; $L?4 8 : $L% 8 : $L4 8 ; $ 7 <: : $= L2 :IONS 0 o >; =L0SAVE SCREEN TO DISK 0 o ; =L0VIEW PRESENT SCREEN 0 o ; =L1LOAD SPECIAL SHAPES  1 o d< =LE1QUIT: RETURN TO MENU 01 o : > d<   8  wLo1 m1  0: aL1 1  sL1 1  0: =  1/  s :  wL/* /  1 < > <  L/* /  1 ;  <  w <  >;  < L)0 CHART EDITOR 0  ;  <  <  s d<  : =Lh0DRAW ON A CHART X0 o : =L0DRAW A NEW SCENE y0 o ; =L0SEE THE INSTRUCT 8 = > {: TL 9 : $ ; 8 7 9 : $ S; 7 7 9 : $ ; 7 7 9 : $ : 7 7 9 ;  : 7 8 8 9 h8 8 < L;/ : 8` X #; 8 s K= > {: T w < > <  Lp/* n/  1 H: : $L/ : 9 : > B=  L/* : s9 h; o: h; 58 : 49 : M8 : @9 8   7 H: : $L. 9  _8  8 : E: 8 : $L$. 9  _8  8 : 8 ; 9 ; 9 : 9 8 : $ 7 H: : $= Lw.  = 9  _8  8 LGL 8  : s9 : M8 : @9 W: .< $L. 9  _8 {: T V; 9 f=  ; 9 {:  : 8 : 8 : s9 : @9 8  q; o: q; 58 : 49 : M8 : 9 9  _8  8 : E: : 8 : 49L W: ; $L- < > ; T v< > {: T ; 9 9=  q; 9 {:  : 8 : 8 : E: 8 : $ 7 79 : $= L- 9  _8  8 + < > : T v< > {: T : 9 : 9 :  {:  : 8 : E: : 8 : 8 ; O9 W: < $L-, 9  _8  8  = : 49 : M8 h; o: h; 58 : M8 : 49  7 : 9 W: ; $Lb,LG W: ; $L, :  _8  8 : 9L W: < $L, < > ; T v< > L* *  = L*Z *  = L* SET CURSOR TRAVEL *  : > : ] D8 : $L++ X = > {: TL {: TL2 W: ; $L+ < > < T v< > < T : 9 : 9 :  {:  : 8 : E: : 8 : 8 : O9 W: < $LE BOX SHAPE = 5 )  = o=  =  )  =  )  =  )   L*SL * L*SL * CHANGE SHAPE = 5 *  = o=  =   *  =  *  =  *   Lo*Q = 5 m*  =  L* *  = L*A *  = SCREEN = 5 (  =  (   L(NUMBERL(SELECTS COLOR OF CURSOR = 5 (  =  (   L.)SPACEBAR = 5 %)  =  LR) ROTATE L\)ARROWSLg)MAGNIFY H) 5 =  U)  =  _)   L)BL) L)BL)CHANG}'  =  '   L'DL'DRAW PERMANENT IMAGE = 5 '  =  '  =   wL(ESC (  sL*(MENU = 5 %(   LF(ELm(#ERASE PORTION OF SCREEN WITH CURSOR = 5 D(  =  I(   L(F + COLOR NUMBERL( FILLS &  =  &   L&CL&CIRCLES = 5 &  =  &  L' L'PL'POINTS & 5 =  '  =   '  L?' LD'WLM'WEAVE ;' 5 =  B'  =  G'   L'RL' RELOCATE CURSOR (LEAVE NO IMAGE) = 5 CT$"TITLE TOO LONG":233,96:232,08:IT1(T$):((T$,IT,1))31((233)96)PTWC2WC((T$)2)WC(IT1),TY::233,96:232,0:(V::" I ";::".....UP";:11);::" M ";::".....DOWN"::" J ";::".....LEFT";:9);::" K ";::".....RIGHT ::" U ";::".....UP LEFT";:6);::" O ";::".....UP RIGHT ::" N ";::".....DOWN LEFT";:4);::" , ";::HARACTERS":::" CTRL-E ";::"......ERASE CHARACTERS"v19:"THE MENU CAN BE REACHED AT ANY TIME BY"::"HITTING THE ";::"ESC";::" KEY."16368,0(16384)128711034,6:35,18:7:"USE THESE KEYS TO MOVE THE CURSOR: "L 8>L 8  > 8>L ?L 8  ? 8?3L 8?5L 8?7L 8?9L L 8L 8L 8L 8L 8L 8L 8L 8?L 8?L 8?L 8?L 8?L 8?L 8  ? 8?L L L 87Ld7L 7L 7L 7L 7L 7L 7L 7L 7L 7L 7Ld7L 7L 7L 7L 7L 7L 7L 7L 7L 7L 7L 7L 8>L 8>L 8>L 8>L 87*Ld7/Ld74Ld79L 7;Ld7@Ld7ELd7JLd7OLd7TLd7YLd7^Ld7cLd7hLd7mLd7rLd7wLd7|Ld7Ld7Ld7L 7Ld7L 7Ld7Ld7L 7L 6L 6Ld6L 6Ld6Ld6L 6Ld6Ld6Ld6L 6Ld6Ld6L 6L 6L 7Ld7Ld7 Ld7Ld7Ld7L 7Ld7 Ld7%Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld6L 6Ld6L 6L 6L >Ld>$Ld>)Ld>.Ld>3Ld>8Ld>=Ld>BLd>GLd>LLd>QLd>VLd>[Ld>`Ld>eLd>jLd>oLd>tLd>yLd>~Ld>Ldj? n.s???[<]?=L =Ld=Ld=Ld=Ld=Ld=Ld=Ld=Ld=Ld>Ld>Ld> Ld>Ld>Ld>Ld8 < T:LjLLc`@!I諂@4 `#d0p (P@`p\H@ &$  .4"4?i ?ji5  wL5 1 5  sL5 OR 5  wL5 2 5  sL5 ? 5  = > {: T : D u 0= n 9 5; n 9 $L@6 { L {: T` W: .< $L6 9  _8  8 k8 9 Y8 \8 k8 9 8 4000,L8192,D 4 5 =  4  = 9  =   = > {: TL;  La5BLOAD Z5  = Lu5,D r5  9   #; 8L2 L5WHICH DRIVE ? DEEP,HDEEPL::Z6120bwL2W1:BL,H2BL,157::L3W2:BL,H1BLDEEP2,H1DEEP:lxJJ:y::114:5:07::21):6:7:" SELECT BOTTOM LABEL:":7:7:21)::YE20132< zA$(1)"MONTHS":A$(2)"YEARS":A$(3)"DAYS":A$(4)"OTHER":M0:"SELECT BAR DEPTH (1-9) : ":16368,0LpDP(16384)176:DP1DP9112\qDEEPDP4:r:J1246:"*";:::J121:"*";::33);::"*"::J1246:"*";:::sJJ4Ē0tJJ3Ē4uZ6Ē3(C3)vL3(V(J)SC)6:BW2,H3LB1W::13:"WHICH NUMBER ? ";BgNUM(16384)176:NUM1NUM5103nh16368,0:RP0:NUM1ĉ::RP0:V1:168iNUM3Ĺ16297,0:16304,0:16299,0jNUM2RP1:163kNUM5141lNUM4145m16368,0:16384,128:::100n110(o:8TP2:11:" "::HT5::QM0:X0:CC0:CD0fE$(1)" ENTER NEW SET OF DATA":E$(2)" CHANGE DATA OR STYLE":E$(3)" VIEW CHART NOW ON SCREEN":E$(4)" SAVE CHART TO DISK":E$(5)" RETURN TO DISK MENU":J15::HT::" ";J;" ";::E$(J)::LLLL1:MM%(LL)X,VP:LLLL1:MM%(LL)X7,VP:LLLL1:MM%(LL)X14,VP:XXCC:d::D20:0:GT0:FR(0):F4:SP140:C3:YG0:JL$"":C120:CAP$"":DAP$"":1938e16368,0:114:TP3:HT11:TP:HT::" ":TP1:11:" BAR CHART MENU ":21LL03]LLLL1:DD%(LL)X,VP:LLLL2:XXCC:^LLLL1:DD%(LL)X,VP:LLLL1:DD%(LL)X7,VP:LLLL1:DD%(LL)X14,VP:XXCC:_XX7:D2197`XX14(YE4)32(YE3)46(YE2)aLL(SM1)3:CCWSEP:N1YEARS:LL33LL0b99::PcWSEP::=USYSY1:MM1YEARS:XXCC:SYSY1:SY100SY0fVZ$(SY):ZZ$(Z$,1):SY10Ĕ48X,VPWSY10G(ZZ$):G48X,VPXZZ$(Z$,1):G(ZZ$):G48X7,VP:CCWSEP::YXX7:LL0:CCWSEP:N1YEARS:91:Z[YEARS794\LL)):LS5YP165SPHPK1LN:VN((SN$,K,1)):48VNXP,YP:XPXP7::QXX9(YEARS9)9(YEARS10)8(YEARS8)5(YEARS7):XX3(YE7NUM3):F82,85,89,90RWSEP24İ95:SJ1YEARS:XXCC:ARGJSM1:ARG12ARGARG12 TM(ARG)X,VP:CC(TQBQ)BQ:M010:ARG510M:HIARGHI2ARGHI2ARGBJ:[K0:216,0:155:109qLVP174:F2XX3MF3YEARS7XX(W2)ND2281OLS05:SN$((2HILS10)):YP165SP5LS:LN(SN$):XP3212(YE11YE12)RE7(LN1)7((HI,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé!0%!'X10:Y10:5000(S2!'X10:Y10:5000(0%M!'X10:Y10:5000(X!0%l!'X10:Y10:5000(16368,0' z!G(16384)128:G08570; !G27G131000T !GG48:G1G68570a !G4G0g ! !G:4400:CSG:5000 (#22::"NOT ON DISK. HIT RETURN";::K$:1000 %:J1246:"*";::!&%J121:"*";::33);::"*"::J1246:"*";:CAPS1LL31h"4!::9500,5!HT12S>!4:11::" CHOOSE COLOR ":::HTc?!8520:8590H!M$(1)"GREEN":M$(2)"VIOLET":M$(3)"WHITE":M$(4)"BLACK":M$(5)"ORANGE":M$(6)"BLUE":J16::HT:J;" - ";M$(J):f!21:11:"WHICH NUMBER ? "; p!ETURN";::" TO SEE INSTRUCTIONS AGAIN,"::"OR HIT ";::"ESC";::" TO BEGIN TYPING."e;16368,0<T(16384)128:T27T137996=T137000?1000@ACAPS0(L47L58)LL47:NCAPS0L32XXWX:4030TCAPS0LL1^ING:";::" RELOCATE CURSOR TO THE ";::"LEFT"::8:"OF THE CHARACTERS YOU WISH TO ERASE."::"YOU MAY THEN ERASE TO THE RIGHT WITH9:"THE ";::"SPACEBAR";::", ";::"RIGHT ARROW";::", OR ";::"K";::" KEYS."W::::::"HIT ";::"R".....DOWN RIGHT o 16368,0:16384,128:34,6:35,24::11::"UPPER/LOWER CASE:";::" IN DRAW MODE HIT ";%:"@":::"KEY TO SWITCH BACK AND FORTH FROM UPPER"::"AND LOWER CASE CHARACTERS."616368,0:16384,1283734,6:35,24:::" ERASLN(DO$):I1LN:(DO$,I,1);:150::35,24:255`/AS(16384)128:AS78AS89AS27203o/AS27100/AS78Ĺ34,0:35,24::HV1:11:16368,0:s034,0:35,6::34,0:35,24:1:13::13):2:13:" CHANGE DATA ":3:13:13)::8::5:"HIV$"G"C$"GREEN":HC(N)1<.V$"V"C$"VIOLET":HC(N)2[.V$"W"C$"WHITE":HC(N)3x.V$"R"C$"RED":HC(N)5.V$"B"C$"BLUE":HC(N)6.1/6:1:39):6:1:16368,0:A(0):34,4:35,9::DO$"DO YOU WANT TO CHANGE THIS DATA ?":6:1:$):SK7:YX174İ194-0:1:XXRC(LN2SK):JN1LN:VN((CT$,JN,1))31((233)96):VNXX,YX:XXXXSK:(233)96VN42XXXX5-:233,96:232,0:YX174:-:2-WTQB440:LNWT152SK15:232,204:233,134:-LNWT72LNWT72.9):,N1168Q,(37):HV:22):(37)1:HV::"STOP (Y/N)?";::16368,0,FD(16384)128:FD89FD78FD27185,FD78Ģ(37)1:HV:15):16368,0:53,FD27100,(37)1:HV:15):HV:N13İ202,YEARSN1:61-LN(CT0:CX1.+AS(16384)128:AS78AS89175M+CM0:CM(AS89):CM1İ180f+ZNUM:D22:Z4D21+OUT0:Z3Z6OUT1+::4+:"YES":16368,0::::"WILL YOU BE USING COLOR ? ";+AB(16384)128:AB89AB78181,CM0:CM(AB8D"::"5 - SOLID BARS COLORED BY USER"::"6 - OUTLINED BARS (NO COLOR)":16368,0t*NUM(16384)128:NUM27100*NUMNUM48:NUM1NUM6170*NUM1NUM4177*CX1177+NUM1NUM4ĉ::11:"IS THIS A COLOR TV OR MONITOR ? ";:16368,CHART TYPE: ":3:6:24)::V1::::11::"TWO DIMENSIONAL"::1::"1 - SOLID BARS AUTOMATICALLY COLORED"::"2 - SOLID BARS COLORED BY USER"::"3 - OUTLINED BARS (NO COLOR)"R*::11::"THREE DIMENSIONAL":::"4 - SOLID BARS AUTOMATICALLY COLORE" CHANGE STYLE OR DATA ":6:1:22)::11:1:"1 - CHANGE DATA "::"2 - CHANGE STYLE":::3:"WHICH NUMBER ? ";:16368,0(AS(16384)128:AS27AS49AS50165(AS27100(AS49134)34,0:35,24::1:6::24):2:6:" SELECT BAR 1LN:VN((CAP$,JN,1)):VNB47((HI))43(D21),YX:YXYXYD::0:CT$""161]'NV(0)'WC40QB4:RCB420(WC2):YX13:CT$""İ190'JL$""CT$JL$:YX174:190''::V1:V(1)0V(2)0NUM1YEARS1:133}(4:1::22):5:1:ITE":16368,0<&AS(16384)176:AS1AS2AS35151Q&AS35C0:154c&C0:AS2C3&C::0,0:62454:C3(C0):&CAP$""160&YX0:LN(CAP$):48:RR2Ę0&YD6:YX906(LN2):RR2YX9010(LN2):YD10Q'LN(CAP$):JNSK IN DRIVE ";::" 1 ";::" OR ";::" 2 ";::" ?";:16368,0d%DN(16384)176:DN1DN2147p%:100%(4)"BSAVE "NAME$",A$4000,L8192,D"(DN):100&5:1::21):6:1:" SELECT SCREEN COLOR ":7:21)::11:1:"1 - BLACK"::"2 - WH4)176:AS1AS21426$AS1ĺ:(4)"RUN MENU,D1"?$100$16368,0:::6:14::" ":7:14:" SAVE CHART ":8:14:" "::13:"HIT RETURN FIRST TO EXIT WITHOUT SAVING.":100@%17:"TYPE A NAME: ";NAME$::"STORE ON DI,0:32,0:33,40:::V1:168#::6:"MAKE SURE YOU HAVEN'T FORGOTTEN TO SAVE"::"CHARTS YOU WISH TO KEEP BEFORE YOU QUIT.":16368,0:14:"1 - QUIT. LEAVE BAR CHART PROGRAM."::"2 - RETURN TO PROGRAM MENU.":::3:"WHICH NUMBER ? ";$AS(16388:100]":11:34,10:HV3:M1YEARS:HV:(91);M;(93);" ";::VA(M)::M9M11HV19u"M6M18Ģ10:HV20"M17HV19"M12İ206:34,7:35,24:32,0:33,40:34,10::HV2:10:"::YEARS12İ206"YEARS12C121:207:C120#341126/!F2ĉ::11:"STARTING YEAR: ";YR$M!F2S$(YR$,2):SY(S$)Y!F4ı!34,7:35,21:32,4:33,30::12:"LABEL: ";JL$::34,0:35,24:32,0:33,40:"YEARS2ĉ::11:"THERE IS NO DATA IN MEMORY. HIT RETURN.":16368,0:16384,12:1:10:M14:::11:" ";M;" ";::" "A$(M)::16368,0X {F(16384)128:F27ıp |FF48:F0F4123 }16368,0:F1129 ~F1ĉ::11:"STARTING MONTH (JAN,FEB,..ETC.): ";MR$:JJ112:MR$MO$(JJ)CD1 MR$MO$(JJ)SMJJ!:CD7  ?  7  ?6  ?  7     ++;=&:+:+>.?+:*/?=>*+++.;/?++:>./; *.=/;;!"*:>:5//-::+->>:+$.==9)**/?796ii ?%$$  7  766 7 =66 7  7=&  hh  ?? ="- 7?  ?? / / />7/  ??=7 7  =6  7/ "    =%$$  =   ??  >?///*::9///>6:+++>>>+++*:=??.&)+; ""*+;??>**)'??5:**.$>6;?*.&+7;=6*!++gg76    ?  7  =?  = = +  +?  ?6  ?6ff        ?  ?7766  ?6    ?   ??   ?7  ?6  ?6 76  ?6  ?>    $.>.IRI:5757757 5575757575757575ow575w>.>.IRI:5757757 5575757575757575ow575w>.>.IRI:5757757 5575757575757575ow575w>.JV176(36)16Ė18:JV1!76Ė18:JV157662AW21(36)9ıa62JVJV(AW21)(AW8):ANAW48:AN0AN9ĺAN;:P$(CV,JV)(AN):JVJV1s62AW21Č103662AW8Č10086266AW27N12C121CVCV1266PP$"":J18:PP$PP$P$(CV,J)::V(CV)(PP$):NT1:VA(CV)V(CV)76(36)16Ė1:1%5l/AW73Č998:998:JV1:PP$""@5v/AW74(36)16Ė1:11_5/AW75Ė18:11:JV1:PP$""5/(37)18AW77AW75:121505/AW77Č922:JV1:PP$"":9225/16368,0:1207052(36)0AW8ı52NT162AW32ĺ(32);:P$(CV,JV)(32):JVJV1P$PP$P$(CV,J)::V(CV)(PP$):NT1:VA(CV)V(CV):(36)16Ė1:JV1Y4(36)16Ė18:JV1_4V(CV):(36)16Ė1:JV14(36)16Ė18:JV14)))AW27AW32İ14000:NT04D/AW73AW74AW75AW77AW27120705b/(37)10AW73Ģ23:3(36)0AW8ıB3NT1:AW32ĺ(32);:P$(CV,JV)(32):JVJV1W3AW21(36)9ı3JVJV(AW21)(AW8):ANAW48:AN0AN9ĺAN;:P$(CV,JV)(AN):JVJV13AW21Č10363AW8Č100833AW27N12C121CVCV12B4PP$"":J18:P:NT012AW73AW74AW75AW77AW27208L2(37)10AW73Ģ23:1o2AW73Č998:998:JV1:PP$""2AW74(36)16Ė1:112AW75Ė18:11:JV1:PP$""2(37)18AW77AW75:2182AW77Č922:JV1:PP$"":922216368,0:208W$:AW(AW$):CV((37)2)4:(36)16CVCV6B1C121CVCV12^1AW27RT1:223:230:t1NUM2C1212131N12C121CVCV121PP$"":AW21AW8(AW480AW489)AW32İ2232NT1(AW57(AW48(AW8AW21)))AW27AW32İ230T ";::"ESC";::" WHEN YOU ARE FINISHED.":6:1::" I ";::" MOVES CURSOR UP ";::" M ";::" MOVES IT DOWN"016368,0:10:32,7:33,33::1::PP$"":JL1N:Q$(V(JL)):LN(Q$):J1LN:P$(JL,J)(Q$,J,1):::216,0:JV1:PP$"".116368,0:A->7->7->7->7->7->o?*mm)???.m- -5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;oIII7*m-???.m -5??.mI->?.mI->?.mI->?.mI->?MIIJm-??-m-->??7-M ->?.mI->?.-M-5???w- -?oII*m-???.m -5??.mI->?.m -???.m-;7->oII >J-m-";::" KEY WHEN FINISHED."#2&R:Q2U23:1:"TO GO BACK, HIT ";::"ESC.":: SMNL: LEN EACH SHOW FILE 1vTv|A$"GET CHARTS":H6:790:34,7v:11:"PLEASE INSERT INTO DRIVE 1 OR DRIVE 2"::"THE DISK WITH THE CHARTS TO BE USED IN"::"THE SLIDE SHOW. HIT RETURN WHEN YOU"w:"ARE READY.":16368,0:16: MENUu HERE TO LOAD LIST,uAK27ıOu16368,0:BC36001:BC$(BC1)nu:(4);"BLOAD LIST,A"BC$uSN(BC1): NUM OF SHOWS ON DISKuSM15: MAX SLIDES PER SHOWuSL15: NAME OF SHOW LENGTHuNLSL: LENGTH OF SHOW NAME+vLS3SL6:790Nt1::10:"WHERE ARE CHARTS: DRIVE 1 OR 2 ? ";:XM34:XX34:78:42^tAK271000}tDN(E$):DN1DN24510tt:"SLIDES ARE THOSE MARKED WITH A ";::"B";::"."t:(4);"CATALOG,D"(DN):16368,0:16384,128:1000u$1000 LENGTH VALUEs LN(B)&s N$(J)""Ns K1LN:D$((BK)):N$(J)N$(J)D$Ts cs CH13582{s :(91);J;(93);:s " ";N$(J):s :CH1CH0:s32,0s16368,0:16384,128:1000s HERE TO CATALOGt:A$"SEE LIST OF CHARTS":HrJ 187,r HERE TO SHOW LIST OF ALL SHOWSJr 34,0::H6:A$T$(3):790Tr 34,9\r 10hr J1SNwr CH13530r (J7)J7(1)J0Ĺ32,20:10r J13Ĺ16368,0:16384,128r (J14)J14Ĺ32,0::10 s BBC(J1)LS2: TOP OF SHOW NAME1)LS): HOW MANY SLIDES THIS SHOW/q J1NS=q PN$(J)""sq SB(J1)NL: THIS IS WHERE SLIDE NAME LENGTH ISq L(S): SLIDE LENGTHq K1L:PN$(J)PN$(J)((SK)):q A$(J1)PN$(J)q q NOW ALL SLIDE NAMES HAVE BEEN OBTAINEDq (E$):E$:::4:"IS NOT ON THIS DISK. ";:"HIT RETURN.":]pk JS0Ĺ16368,0:16384,128~pn JS01000: MENU px JSAVE IS NUM OF SHOW, G$ IS SHOW'S NAMEp NOW GO TO TOP OF SHOW'S SLIDE NAMESp BBCLS(JS1)3SL#q NS(BC1(JSW FILE%o( BB3: TOP OF SHOW'S NAMEDo2 LN(E$):M0: AGREE INDEXNo7 G$""po< K1LN:C$(E$,K,1):AK(C$)oF AK(BK1)KLN:2650oK AK(BK1)MM1:G$G$C$:MLNJSJ:KLN:JSN:2650oZ Kod M0:Jof JS0Ĺ34,8:=pi JS0Ģ15::20n H6:A$T$(2):790n VT12&n VTRn "TYPE SLIDE SHOW NAME: ";:XM24:XX39Zn 78un 42:AK271000: MENUn E$""1000: MENUn NOW SEARCHLIST FOR E$n J0:JS0: JSAVEn J1SN: SN=NO OF SHOWSo BBCLS(J1): START OF EACH SHO(93); ( " RETURN TO DISK MENU"0 :_ 21:1::40):21:6:"WHICH NUMBER ? ";s XM22:XX22:42 E$""6080 E(E$):E1E46080 E2ģ38400:104,96:103,1:24576,0::(4);"RUN SLIDE PROJECTOR" E3ė:A$"ERASING SHOW 2:36)  LA(A$)6 4:((40LA)2):A$:> p12n r:(91);"1";(93);::" SEE INSTRUCTIONS"t t z:(91);"2";(93); :" RUN SLIDE PROJECTOR PROGRAM"  :(91);"3";(93);  " ERASE LIST": :(91);"4";J125:D$(J)""::E$"" 3# d/ fD$(25)5 gA iD$(4)I n:r sA$"SLIDE PROJECTOR":H6:790:216,0| t6000 u 34,8 55 :790 1::J138:"*";::J1H \"*";::39::"*": pJ139:"*";: u 4: 16383 100F*16368,0:PX(36)1:K$:AK(K$):AK27ĝ:c+AK21PXXXČ1036:42,AK13E$"":J1PXXM:E$E$D$(J)::-AK8PXXMČ1008:42.AK32PXXXĝ:" ";:/PXXX420D$(PXXM1)K$::K$;:421: 2  : :8 8 &L0 =8  c6  7 1 1 8 48 L0  x=L/  x=` 9 D = (L$1 :  P:  =8  5 L0 7 ` 8 : $L1 9 D n 8 9 8 9 :8 9  b: u6 6 9 6 9 > 9 T 2: > 9 T k: > : T : > 9 T 9 D n 8 9 9 9  < > 9 T :  9  9 <  9 <  = 9  = 9  9 9  < <  < 9  '< <  '< <  9 <  = <  9 <  = B< n 7 : > w:   7 .; 7 : > w:   : 8 m; 7; `6 =8 .  sL. = STOP WHEN SHAPE IS FINISHED .  L/#ANY NUMBER (1-3) = COLOR OF CURSOR .  :  wL0/ESC ,/  sLF/ = MENU >/  < > 9 T 9 D u 9 9 (L`/L) 9 D n 8 K<  d= ; > : T 9 :8 w:  -  wL-COMMA -  sL- = DIAGONALS -  wL-R -  sL. = RELOCATE CURSOR  .  wL2.D 0.  sLa. = DRAW (LEAVE IMAGE ON SCREEN) @.  wLw.E u.  sL. = ERASE IMAGE .  wL.S wL,I ,  sL, = UP ,  wL,M ,  sL, = DOWN ,  wL-J -  sL- = LEFT -  wL,-K *-  sLC- = RIGHT :-  s wLY-U W-  sLl- g-  wL|-O z-  sL- -  wL-N -  sL- 9 TLb( 7 : $Ll, X w:  <  wL+ KEYBOARD COMMANDS +  s ; L(,"I = UP M = DOWN J = LEFT ,  La,'K = RIGHT U O N COMMA = DIAGONALS 9,  X w:  <  wL, KEYBOARD COMMANDS ,  s ;  - HELP *  < L*WHICH NUMBER ? *  < > 9 T 9 D u < n 7 : ( 5 7 : = L* 7 a 7 : $Lc+ :  LX+ RUN MENU,D1 L+  7 \: $Lw+ L 7 ;: $L+ < > 9 T < > 9 T 9< >9 ; 5 5 09 (L) <9 5Lb( X w:  0<  wL) SHAPE MAKER MENU )  <  s : 6 6 L1*1 - RETURN TO DISK MENU *  6 L]*2 - START ALL OVER H*  6 L*3 - RETURN TO PRESENT SKETCH t*  6 L* 4 :  =8  5  1  5 L(D N= 5 ( L(L(Q ( P=L>L(E N= 5 ( L)L)Q ) P=L  x6 E9 L/) K9 u6 x6 7 (LC) 7 u6 6 5 LW) 5 6 6 F8 (Lk) L8 6 <9 8 48 (L) <9 8 :8 =8 09 (L) <9 :8 <9 ; 5 (L) : 7 o< U8 9 5 7 : 7 X8 : U8 7 A X8 ????III@@@@)5?;?VIII*m ->?mI57m ->???-m5ۛmI)>???w---??MI*---5????.M m 5???---->???III5 ->?.-755w57m:?.->I5575757575757575o--?7-575w5575?7-?VIRIIۿ-m 5???7- --?7mIR ?RII????7----5????7----5????7----5????7----5????7----57->7->7->7->7->7->7->on-?7-->7->7-?.?.5?.5??.-?MI?RIIۿ-m 5????7----?7mIR ?RIII:???.-m-->???.-m-->???.-m--ۛ-- -->???.-m-->???.-m-->???MII @@@@mI ->?.m)M->;?.m)M->;?.m)M->;?.m-m->??m-mMII?*MI)5??.-M--??w-m;?-?-m-?;?7-mI->;oIIII*mI->?.mI->?.mI->??w-- ->;wI)5????7----???oII ?*---->????.---*?-?NII:????.---->????MIII->?--?.5?.?.?.5?.5?-5?M7->>??-M ->?.mI->?.-- ->??-M->7-> *m-??.m);7->7->7->7->oII?Jm??-M)?.- ??N -5?*m ->??w- -oI wI?.5?-- 5??N->7->7->7-M:?m5MI*mI->?.mI->?.mI->?.mI->?.-- ->??w-- ->;oIIے*MI)>;.mI->?-M->;wm->s)5?.>MIے*((TT$,IT,1))31((233)96):SNPTWC2WC(LT2)WC(IT1)SH,TY:SN42SH6SHj3:233,96:232,04BL$(1)"LOWER"İ62558:NUM4ī676NUM356P7STTS:JSTNYST1:XBLLW3W(J1ST1):YB191BT12:XBXBW7:D$(J)(A$,3(J1)16B5:C6C2WW:ST2(COL$"Y"):XXB1B2ST:XX,C1XX,C3::L0WWST:XWL,C2LXWL,C4L::47u/3::TT$""5201:0:PT(279LT)2LTWC2:LT(TT$):LT36TT$(TT$,36):LT361TY8(LT18):WC7:LT18WC13:233,134:232,204U2IT1LT:SNSK CALLED";}:"'TOOL KIT' WHICH CONTAINS A SCREEN DUMP"i:"PROGRAM. LIKEWISE, APPLE'S DMP PRO-":"VIDES A PROGRAM CALLED 'SCRN DUMP'.":"EPSON ALSO HAS A SCREEN DUMP PROGRAM.",16368,0:16384,128:1@6"THERE ARE MANY COMARD, YOU CAN STILL DUMP YOUR CHARTS"Ti:"TO THE PRINTER BY USING THE SCREEN DUMPn:"PROGRAM WHICH IS OFTEN SUPPLIED WITH"s:"THE PRINTER."u16368,0:16384,128v:VV x"FOR EXAMPLE, APPLE'S IMAGEWRITER"::"PRINTER COMES WITH A DI 5UL 5WL 5YL 5[L 5]L 5_L 5aL 5cL 5eL 5gL 5iL 5kL 8  >`8  ?8?L 8?L 8?L 8?L 8?L 8?L 8?L 8?L L 8?L Ld4Ld5L 5L 5Ld5 Ld5Ld5Ld5L 5Ld5#L 5%L 5'Ld5,L 5.L 50L 52L 54L 56L 58Ld5=L 5?Ld5DLd5IL 5KL 5ML 5OL 5QL 5SL4Ld4L 4L 4Ld4Ld4Ld4L 4L 4L 4Ld4Ld4L 4Ld4Ld4Ld4Ld4Ld4Ld4L 4Ld4Ld4Ld4L 4Ld4Ld4Ld4ML 4OLd4TL 4VL 4XL 4ZL 4\L 4^L 4`L 4bL 4dL 4fLd4kL 4mL 4oLd4tL 4vLd4{L 4}L 4Ld4Ld4Ld4L >Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld>Ld4>FLd>KLd>PLd>UL >WLd>\Ld>aLd>fLd>kLd>pLd>uLd>zLd>Ld>Ld>Ld>L >Ld>L >Ld=Ld=L =Ld=Ld=Ld=Ld>Ld> Ld>Ld >L >Ld>Ld>$Ld>)Ld>.Ld>3L >5L >7Ld>ALdLd=Ld=Ld=Ld=Ld=Ld=L =Ld=Ld=L =Ld=Ld=L =L =Ld=Ld=Ld=Ld=Ld=LdePt@\ 8D:F4,Q~i(S z ?@ j ?, ?@ 0???5:\?=L =Ld=Ld=Ld=x6 8 6 8 L3 6 8 x6 8 (L3 x6 8 6 8 (L3 6 8 <9 8 48 (L4 <9 8 :8 =8 09 (L4 <9 :8 <9 ; 5 (L54 <9 ; 5 5 09 (LI4 <9 5`Lc@``@``@` @#``@ `2N v= 5 2 L2 : 9 : n 5L2, v= 5 2 L2 : 9 : 5L2O v= 5 2 L"3 : n 9 : 5 6 9 6 9 39 5 5 x6 5 u6 5 39 78 :8` x6 E9 La3 K9 u6 x6 ; (Lu3 ; u6 6 v; L3 y; 6 6 ; (L3 ; 6 x6 8 L3 u6 f< 6` 0= x= 9 9 9 5 v=  < $L) < D v5 < D p5 n T9L1I v= 5 1 L2 : n 9L2M v= 5 2 L82 : 9L=2J v= 5 ;2 L\2 : n 5La2K v= 5 _2 Lz2 : 5L2U v= 5 }2 L2 : n 9 : n 5LA7   9 _: 9 : > 9   9 A 9 T 1 6 G n 8 6 9 G v5 6 9 : G 9 s5 v5 b: ;7 m5 5 ; 5 p8 v8 9 n 5 5 6 9 A 5 Q 6 9 : A v8 T 1 > 6 9 : 6 6 : 6 = 6 :  :  b: ;7 6 A 6 G T 1 9 = n $9 o 36 %= : $L$ 7 A \7 Q 36 %= 9 $L$ 7 A 27 Q 1 = 1 > 5 8 (L" P7 : M7 A 9 T A7 = &7 J7 o s ]<  < LJ% ?%  ]<  s <  : 7 7 a ` f< 6 A 8 : Q 9 9 8 9 $Lm' : > 8 : c : W6 n 9 G 6 9 8 : > [;   8 : 7 8 : Y: q7 7 '= 8 6 n c t7 i o 7 %= w7 8 8 -% 1 P7 : 7 : = [;   P7 : M7 7 7 : $Lh$ 7 : c 36 7 36 %= t: $L$ 36 '= : o 36 %= J: $L$ 36 '= 9 ]<  wL" PLEASE WAIT "  8 i9 : 7 8 ?6 6 : 6 5 : 5 7 $ 7 P7 : M7 7 9 $L1# : Y7 : /7 : x9 P7 A {9 Q 7 : $L]# : Y7 A: /7 ; x9 P7 A {9 Q ' : 7 o9 8 : 6 7 : $L# o9 7 : 8 : n 6 7 > 8  6 :  5 g8 \: = Lu! < > 9 T :  L!BSAVE !  D= L " ,A$6000,L "  6  L!",D "  g8   :  LP" RUN MENU,D1 D"  P7 #7 : 7 8 8 : 7 8 8 : 8 : 7 _: # l9 9 5 : 8 8 6 X 0<   'L CALL THIS TABLE ?   F= L D= 5  L L ; L!WHICH DRIVE ? !  wL$! 1  !  sL7! OR 2!  wLI! 2 E!  sL[! ? W!  < > 9 T 9 D u < n d8 : n a8 $L! XL g8  5 9 ;: = L 9 : $L 8 : 8 9 > 8 Q : 8L 9 ;: $L! :  L RUN MENU,D1   <  ;  wL? PLEASE WAIT 3  s t% 9 D : M: n 7 c T< 6 / X 0<  ; L WHAT DO YOU WANT TO   ;L X ;  : L1. DRAW ANOTHER SHAPE.   : L2. STOP HERE AND STORE SHAPES.   : LI!3. DON'T STORE: RETURN TO MENU. '  7 ; LxWHICH NUMBER ? h  < > 9 T 9 D u < n 9 : (LLR  P=LS 0= 5  L` : n c x6 5 : n 5 $ 5 7 \: $ 5 7 : $= = L8 x6 : u6 =8 69 :8 : n c x6 : $ 5 7 : $ 5 7 : $= = L x6 : u6 =8 69 :8` [" < > 9 T 6 :  5 0= Z= X=  u x< n 6 9  5 6 : (= L  6  6 7 6 7 6 %;  <= `LE l= 5   L' 9 L,D l= 5 * LE 9 LJD 0= 5 H LjLbD ` P= 9 5 9 9L{E 0= 5 y LLE  P=LR 0= 5  ` : n c x6 `9 : $ 5 7 : $ 5 7 : $= = L x6 5 u6 6 9 6 <9 5 78 :8 <9 9 5 5 : n ]9 $ 5 7 : $ 5 7 \: $= = L~ x6 5 u6 6 9 6 <9 5 78 :8 <9 9 5 5 :  x6  6 P:  =8  5 7 ` 5  LLQ  P=Lb(LE N= 5  LLQ  P=L  1 M3 w:  :  x6  6 P:  =8  5 LH 9  9 <  9 <  ): 9  ): 9  9 : 7  < K9 :  < K9 :  : : 7  : : 7  < 5  LLQ  P=L LR N= 5  LLR  P=Lb( 1 M3 7   5 L]LE  n= w:  :  :  x6  6 P:  =8  5  2= 9  :  x6  6 P:  =8  5 LD N= 5 ~ LLQ  P=L>LR N= 5 Q 1 : 5 ; 5 ; (8 b: 5 8 +8 5 c b: i %8 l6 : 6 w:  9 7 A: 7 ; 7 ; H9 & ; u6 @; 6 I; :8 @; 5 ; I8 R; 5 ; 8 b(LCD A n= w:  9 5 9 9 7   0  2= 7   LD N= 5 ~ LLQ  P=L>LE N= % V?=?? <  9 8 : n >7 o< M7 :  A: 7 X w:  A7 : >7 8 : L +1 ; 8 9 8 ; 8 9 8 ; > 9 T ; > w: T c 9 8 : 99L2060805045452663631045452663630 9 > <    5 < 9 A                        V(I,1)V(I,2)XWWW,YBV(I,1)V(I,2)WW:HC3(COL$"N")2(COL$"Y"):HC:LXXW:L,YBL,YBV(I,1)::L1WW:XLW,YBLXWL,YBLV(I,1)1::3:1(COL$"Y")3(COL$"N")a.B1X:C1YTV(I,3):B2B1W:C2C1:B3B1:C3YT:B4B3W:C4C3:B5B4WW:C5C4WW:B+WW(W2):X1XWW:Y1YTWW:X2X1W:Y2Y1:X3X2:Y3YBWW:XW,YBX3,Y3:X,YTX1,Y1X2,Y2X3,Y3:X2,Y2XW,YT:X,YB1XW,YB1:X,YBV(I,1)XW,YBV(I,1):NS345,X,YBV(I,1)V(I,2)XW,YBV(I,1)V(I,2)-XW,YBV(I,1)XWWW,YBV(I,1)WW:XW,YB60:BT20:TM5:LLLT:W(279LT)(3NY1):W(W):W2(W2):YB191BT::3:127:16368,0:I1NY:(16384)155143(XLT(13(I1))W:XX(W2):NUM1XX1)YTYBSUM(I):42*X,YBX,YTXW,YTXW,YB:COL$"Y"ēX1,YBX1,YTXW1,YTXW1,YBA$(J,2)VA$(J,2)V$(J,LL)::LL3239:VA$(J,3)VA$(J,3)V$(J,LL)::V(J,1)(VA$(J,1)):V(J,2)(VA$(J,2)):V(J,3)(VA$(J,3)) %VS(J,1)V(J,1):VS(J,2)V(J,2):VS(J,3)V(J,3):J:I1NY:SUM0:J13:SUMSUMV(I,J)::SUMSMAXSMAXSUM &r'125:LT30:TT0:0,0:62454::16383:128y !:VS(12,3),V(12,3),SUM(12),D$(24),V$(12,39),SS(12),SL$(13),VA$(12,3):COL$"N":NY2:NS3 "79 #16368,0:81:70:94{ $NYVMAX::11:14::" PLEASE WAIT "::J1NY:LL714:VA$(J,1)VA$(J,1)V$(J,LL)::LL2027:V):7::SL$(TL2)(A$,WI(VVST1)1,WI):TLTL16 a VV(37)1:HH(36):HH7HH14HV1y HH20HH27HV2 HH32HH39HV3 VVVV9:HLHH(HV1)6(HV2)19(HV3)31:VV13AK27::36 V$(VV,HH)K$:VVVMAXVMAXVV  28HS4:18 PH31HS4:19% < M1HS:64500::S M1HS:64528::s PH20PH27NS2PH34:24 PH7PH14HS20PH:18 WI3:NUM3WI4 PH20PH27HS32PH:180 PH32Ģ(37)2:1::(A$,WI(VVST1)1,WI):(37 NUM4A$""7 (AK21K$"K")(36)39Č64500:] (K$"I"AK11)(37)VČ64538: (K$"M"AK10)(37)23Č64614: AK48AK57ĺK$;::26 AK32ĺ" ";:26 PH(36):(PH15AK8K$"J")HS5:18 PH19HS5:19 PHb$Y:(4);"BLOAD CHARACTERS,A$6000"::(4);"BLOAD BLOCK,A34508":16383:1:0:::32(K$)27V$(1,8)""V$(1,20)""V$(1,32)""ė:16368,0:35AK(K$):AK13NS1PH32:24K$"S"AK27ġ:36AK13İ20 (AK8K$"J")Č64528:            ! G:((40LA)2)1:A$:$ 34,0:*1060542;>UH15::" DISK MENU":_\N0:easf16368,0pNN1:1040:"ENTER & PLOT NEW DATA"zNN1:1040:"PLOT CURRENT OR OLD DATA"NN1:1040:"PLOT MATHEMATICAL FUNCTION"NN1TERFACE BOARD, OR A SCREEN DUMP PRO-"V,:"GRAM. THERE ARE MANY INTERFACE BOARDS.".::"GRAPPLER";::", BY ORANGE MICRO, IS JUST ONE"0:"EXAMPLE."F16368,0:16384,128P:VV_$d"IF YOU DON'T HAVE A GRAPHICS INTERFACE"::"BON AGAIN."#16368,0:16384,128-34,79:VV2i "TO USE THIS PROGRAM TO PRINT YOUR CHARTS""ON THE PRINTER YOU MUST HAVE A PRINTER":"WITH GRAPHICS DUMP CAPABILITIES (MOST)"(:"OF THEM HAVE), AND EITHER A GRAPHICS"%*:"INee%,18AL$ 3456789LLLL`ª`LQLY8LXLeL ,X16368,0:16384,128::(4);"RUN MENU"2gG::J138:"*";::J1H:"*";::39::"*":J139:"*";:::VG:2::LA(A$)VG:((40LA)2)1:A$:::J1H:"*";::39::"*":J139:"*";:::VG:2::LA(A$)V OF OUR"_ &:"PROGRAM, COMPLETE WITH INSTRUCTION"::"MANUAL AND PICTURES OF SAMPLE CHARTS."m 16368,0} 16384,128  G1 A$"MASTERCHART!":H4:V2:790 1 VV14 (637)255ĢVV:"PLEASE PUT CAPS LOCK KEY ";::"DOWN.":SE HONOR OUR COPYRIGHT":H4:V2:790- VV9 "VV:"PLEASE MAKE JUST ONE COPY OF OUR PROGRAM":"FOR YOUR OWN USE. OTHERS MAY COPY"::"MASTERCHART! IF THEY SEND US A CHECK" $:"FOR $29.95. WE WILL THEN RUSH THE MOST"::"ADVANCED, UPDATED VERSIONOPYRIGHT (C) 1983":20(A$)21:A$N VV6:A$"SPECTRAL GRAPHICS SOFTWARE"\ HT9:A$ VV8:A$"6333 PACIFIC AVENUE, SUITE 256" HT11:A$ VV10:A$"STOCKTON, CALIFORNIA 95207" HT9:A$ 16368,0:16384,128$ ::2:A$"PLEA O f kG2b nA$"":H20:V3:790:3::A$" MASTERCHART! ":LA(A$):(40LA)2:4G:A$: pHH(40LA)2:3G::HH:LA):5G:HH:LA): qG1 sVV10 uHT16 vVV1:A$"BY JOSEPH F. ALWARD":20(A$)2:A$ xVV3 }HT$ A$"C1:K$:AK(K$):AK27ĝ:6 +AK21PXXXČ1036:42b 0AK13E$"":J1PXXM:E$E$D$(J)::~ 5AK8PXXMČ1008:42 :AK32PXXXĝ:" ";:D$(PXXM1)" "::42 ?PXXX42 DD$(PXXM1)K$::K$;:42 I: NJ125:D$(J)""::E$""K$"Y"K$"N"4005- INSTRUCTIONSN:A$"INSTRUCTIONS":H6:790XVV11VV:"TURN PRINTER OFF BEFORE PRINTING":"TO CLEAR IT OF ANY LINGERING CONTROL":"PARAMETERS EXISTING AFTER THE LAST" :"PRINTING. THEN TURN IT O:DN1DN21115_?`E2Ĺ34,0:::D$;"CATALOG,D"(DN)^e16368,0:16384,128:AK0gj110A$"CHART PRINTER":H6:790:216,0::D$;"PR#0":::12:1:39):12:112:1:39):12:1"CHECK. CHART PRINTED YET ? ";:K$ NAMES."":21:1:39):21:1>$6:"WHICH NUMBER ? ";N.XM22:XX23V842hBAK27ė:110xGE$""1050LE(E$):E1E21050VE1Ĺ34,8::135[E2Ĺ34,8::12::"WHICH DRIVE ? ";:50:XM15:XX15:42:AK27110]DN(E$);: u4:2:36),LA(A$)G4:((40LA)2):A$:x::2000:12:NAME$;" IS NOT ON THIS DISK."216,0:::(91);"1";(93);:" GO BACK AND RE-TYPE NAME.":::(91);"2";(93); " SEE LIST OF CHARTUFACTURER."%D&::"REBOOT THE DISK IF YOU HAVE PROBLEMS.":N*225_+:D$;"PR#1", TYPE CONTROL CHARACTERS FOR SCREEN DUMP BELOW6(9);"G2"D$;"PR#0":1101::J138:"*";::J1H\"*";::39::"*":pJ139:"*". YOU MUST"=!:"HAVE A DOT MATRIX PRINTER WITH GRAPHICS"":"DUMP CAPABILITIES. AND YOU MUST ALSO"::"HAVE EITHER A GRAPHICS INTERFACE CARD"::"FOR YOUR PRINTER, OR A SCREEN DUMP" $:"PROGRAM THAT IS USUALLY PROVIDED BY THE"::"PRINTER MAN:C$"ESC = DON'T PRINT CHART":20(C$)2:C$c 16368,0:16384,128:PK(16384)128:PK27110s PK13270 34,0: "IF THE CHART IS NOT PRINTING IT MAY BE"::"BE BECAUSE YOUR PRINTER IS NOT PROPERLY":  :"CONFIGURED TO PRINT GRAPHICSAD "NAME$",D"(V)? 16368,0:16384,128:PK(16384)128N PK27110f SET CONTROL CHARSn :x 2000 A$"TURN ON PRINTER.":B$"HIT RETURN WHEN READY." :12:1:39):12:1 20(A$)2::A$: 14:20(B$)2:B$- 19$+07@ 3AME OF CHART: ";:XM22:XX39) 12:221 50D 42:AK27110S E$""110` NAME$E$ 17:1::"WHICH DRIVE (1 OR 2) IS CHART IN ? ";:50:XM36:XX36:42 AK27134 V(E$):V1V2162 1000 :0:1:3  :D$;"BLOĝ:70 I34,0::4 M::(4);"CATALOG,D"(DN)N N16368,0:16384,128W P134h d16383:8191t fD$(25)z g iD$(4) n: s2000 t6000 u 34,8 55 :790 12:1::40):12:1 16368,0 "TYPE NJ125:D$(J)""::E$"" 3h 712:1::"WANT TO SEE CHART LIST ? ";:50:XM26:XX26:42:AK276000 <E$(E$,1):E$"N"E$"Y"55 AE$"N"ė:134 E F17:1:"WHICH DRIVE (1 OR 2) ? ";:50:XM24:XX24:42:AK27ı GDN(E$):DN1DN2 16383 100F*16368,0:PX(36)1:K$:AK(K$):AK27ĝ:c+AK21PXXXČ1036:42,AK13E$"":J1PXXM:E$E$D$(J)::-AK8PXXMČ1008:42.AK32PXXXĝ:" ";:/PXXX420D$(PXXM1)K$::K$;:421: 2          ! ` ;-_     z #$&    Ҡ, ŠҠ Š$ ŠҠ ԠӠ Ԡ ̠!ŠҠ"ΠӠ ӠŠӠ ӠҮʠ' ՠӠҠҠӠŠҠ1ˠԠҠϠŠ2Ůʠ)ҠҠנӠԠҠ...":138:165Y"v9:"ENTER STARTING YEAR: ";:159:"";Y$:(Y$)2Ģ14:1:33)::118u"wY$(Y$,2):Y$""ġ:39"x(Y$)27ġ:39"yA$"19"Y$:J111:A$A$"19"((Y$)J)::#z:16368,0:165:VT5:VT:"AFTER YOUR CHART IS COMPLETED, YOU MANOV"M$"DEC"111!rST1(M$"JAN")2(M$"FEB")3(M$"MAR")4(M$"APR")5(M$"MAY")6(M$"JUN")7(M$"JUL"):ST0116!sST8(M$"AUG")9(M$"SEP")10(M$"OCT")11(M$"NOV")12(M$"DEC")!t"u:2::" YEARLY:";::" 1977, 1978, 1979,THLY: ";::" JAN, FEB, MAR,...":138:165:9:"ENTER STARTING MONTH: ";:159:"";M$:M$""ġ:35 p(M$)3Ģ14:1:33):1:111!qM$(M$,3):M$"JAN"M$"FEB"M$"MAR"M$"APR"M$"MAY"M$"JUN"M$"JUL"M$"AUG"M$"SEP"M$"OCT"M$"5l(M$)3Ĺ16368,0:107wmM$(M$,3):M$"MON"M$"TUE"M$"WED"M$"THU"M$"FRI"M$"SAT"M$"SUN"107nST1(M$"MON")2(M$"TUE")3(M$"WED")4(M$"THU")5(M$"FRI")6(M$"SAT")7(M$"SUN"):(37):21::M$::d o:2::" MONWI(ST1)1,WI):V:1::SL$(1):V:H:<gAK3İ144:V:H]hK$:VV12(K$)13HVNS36i2:(36)H1HS1H(36):18j104k:2::7):1:" DAILY:";::" MON, TUE, WED,...":138:165:9:"ENTER STARTING DAY: ";:159:"";M$:M$""ġ:3368,0:99'_BL$(1)""BL$(1)"LOWER"F`BL$(2)""BL$(2)"MIDDLE"daBL$(3)""BL$(3)"UPPER"b:8::BL$(1);:21:BL$(2);:33:NS3ĺBL$(3)c:1:PH(36):WI3:V10:H8:V:H:NUM4ST1dNUM3WI4:ST1eNUM4A$""'fSL$(1)(A$,292_[A$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":A$A$A$:J112:D$(J)(A$,3(J1)1,3)::o\NUM3İ117u] ^::"DATA ENTRY.";::" HIT RETURN AFTER EACH ENTRY.":BL$(1)(BL$(1),8):BL$(2)(BL$(2),8):BL$(3)(BL$(3),8):A(0):162:NS1Ĺ16:PK(16384)128:PK27Ĺ32,0:34,0:::34ASPK13NUM4:86qTPK(16384)128:PK49PK52Ĺ16368,0:82UNUMPK48VNUM4İ122WNUM189XA$"MONTUEWEDTHUFRISATSUN":A$A$A$:32,0:107:TSST:Y32,0:NUM2İ111ZTSST:NUM:16384,128:(16384)155ġ:1284P"";TT$:77:Q:165:139:VT6::VT1:30):1:VT:"SELECT WHICH BOTTOM LABEL TYPE:":1:30):1::VT4:B$(1)"DAILY":B$(2)"MONTHLY":B$(3)"YEARLY":B$(4)"OTHER":J14:::J;::" - ";B$(J):,R16384,128BELOW:"::::"LABEL:";::16368,0:16384,128:(16384)155ė::34WN" ";VL$:"OVT7:16368,0:1::16)::" ENTER NEW DATA ":16)::165::VT1:27):1:VT:"TYPE THE CHART TITLE BELOW:":1:27):1::VT4::"TITLE:";::" ";:16368,0:"LOWER BAR'S NAME: ";:68:"";BL$(1):NS275\J:"MIDDLE BAR'S NAME: ";:68:"";BL$(2)K:"UPPER BAR'S NAME: ";:68:"";BL$(3):NS2BL$(2)BL$(3)L23:1:39):1:"DO YOU WANT COLOR ? ";COL$:COL$(COL$,1):GM:::"TYPE VERTICAL LABEL 384,128:(16384)155Ĺ16368,0::35,EF13:"HOW MANY BARS PER STACK (1,2,OR 3) ? ";:16368,0:16384,128:PK(16384)128:PK2735GNSPK48:NS1NS3Ė1:70H:NS::NS1ı/I16368,0::"TYPE NAMES FOR THESE "(NS)" BARS BELOW:":YYBW:M2M26:JJ1(BL$(2)):SN((BL$(2),JJ,1)):SNM2(JJ1)7,YY::M2M2(JJ1)7SP:NS2ıBJ1BW2:M2J,YYM2J,YYBW::M2M2BW6:JJ1(BL$(3)):SN((BL$(3),JJ,1)):SNM2(JJ1)7,YY::C:16368,0:16384,128:128&D16368,0:16))(BL$(3)):LL7:S3BW18L:SP279(LT20)S:SP(SP2):YYTY40:XXLT30:XBXXXXBW:XB,YYXB,YYBW::232,0:233,96:JJ1(BL$(1)):SN((BL$(1),JJ,1)):SNXXBW6(JJ1)7,YY::M2XXBW6(JJ1)7SPaAM2BW,YYBWM2BW,YYM2,YYM2,YYBWM2BW,B:XBXB7:::67:VL$""ıN;3:LN(VL$):LN10Ĺ232,204:233,134:S15l<LN10Ĺ232,0:233,96:S7=K1LN:SN((VL$,K,1)):48:SN31((233)96)10,182KS::232,0:233,96:0:>BW12:NS2BL$(3)""?NS1ı@L(BL$(1))(BL$(2,3):XBXB7(NY8):K112(NY8):SN((D$(J),K,1)):SNXB,YB:XBXB7:::67j8WW$"19":NY6WW$""9VY(Y$):J1NY:ZVYJ1:D$(J)WW$(Z):XBLLW3W(J1):YB191BT12:XBXBW74(NY6)4(NY6):K122(NY6):SN((D$(J),K,1)):SNXB,Y  .""xb16368,0:16384,128:1000WTzB0@aB16368,0U0B16384,128:PK(16384)176:PK1PK2PK21PK35Ĺ16368,0:17033n0BPK21PK3517000{0B:PK::0BDNPK0B200000B:(4);"BSAVE"NAME$",A$4000,L8192,D"(DN)0B85001PF16368,0:16384,128:PK(16384)128:PK27(16384)155ġ:8500/t@E/hB::12)::1:" SAVE CHART ":12):P/iB22000W/mB1/rB7:"TYPE CHART NAME BELOW.":::"NAME: ";/|B16368,0:16384,128:(16384)1558500/B"";NAME$/BNAME$""85000B::"WHICH DRIVE (1 OR 2) ? ";:1N AFTER EACH ENTRY.":!.>21000..>AK3ėX.>10:M1NY::SL$(M);:8::VS(M,1);k.>NS1ĺ:16020.>NS1Ė21:VS(M,2);.>NS2ĺ:16020.>NS3Ė33:VS(M,3):.>.>M1NY:N13:VA$(M,N)""::.>M1NY:SS(M)0:/>16384,128:0:16384,128:8500)-*0:232,0:233,96d-*SS(I)(SS(I)):V$(SS(I)):J1(V$):SN((V$,J,1)):-+(V$)3WĔSNXJ7,YT15- +:-:::8500->V(1,1)0V(2,1)0V(3,1)0ġ:8500->SMAX0->16368,0.>::"EDIT DATA.";::" HIT RETUR"HIT THE ";::"ESC";::" KEY WHEN FINISHED."::`,23:1:"TO GO BACK, HIT ";::"ESC.":: )!AK33728w,",(#16368,0:,%TT$""ı,%2::2(TT$))::" "TT$" ":2(TT$)):,&%,'16297,0:16304,0:16299,0,'-'16368,128:PK(16384)128:PK27ġ:35'+e+16368,0:"DRIVE DOESN'T EXIST.":J14000::216,0:152+(637)255ĺ"RELOCATE CURSOR WITH ARROWS OR ";::"IJKM";::" KEYS"+(637)255ĺ"RELOCATE CURSOR WITH THE ";::"ARROW";::" KEYS."2,:""1286*::"WHICH DRIVE (1 OR 2) ? ";:16368,0*16384,128:PK(16384)176:PK1PK2PK21PK35Ĺ16368,0:155*PK21PK35152*:PK::DNPK:161*:(4);"BSAVE"NAME$",A$4000,L8192,D"(DN):128!+16368,0:16384,,3)\):M1NY:N13:VA$(M,N)"":::M1NY:SS(M)0::16384,128:(16384)155ġ:128b))::12)::1:" SAVE CHART ":12)::165:1:7:"TYPE CHART NAME BELOW.":::"NAME: ";:16368,0:16384,128:(16384)155128*"";NAME$:NAME$::1281(V(1,1)0V(2,1)0V(3,1)0ġ:128(SMAX0:16368,0:::"EDIT DATA.";::" HIT RETURN AFTER EACH ENTRY."::162:AK3ė(10:M1NY::SL$(M);:8::VS(M,1);:NS1ĺ:150(NS1Ė21:VS(M,2);(NS2ĺ:150)NS3Ė33:VS(M'16368,0:!'TT$""ıS'2::2(TT$))::" "TT$" ":2(TT$))::'16297,0:16304,0:16299,0::16368,0:16384,128:128:0:232,0:233,96:SS(I)(SS(I)):V$(SS(I)):J1(V$):SN((V$,J,1)):(V$)3WĔSNXJ7,YT15': (T":C$(6)" RETURN TO DISK MENU":9:HT8:J16::HT:J;::C$(J)::&16368,0:16384,128:AK(16384)176:AK1AK6130&AK2ĺ:(4);"RUN PRINTER"&AK5ī152&:AK4ė:141&AK133&AK6ĺ:(4);"RUN MENU,D1"&AK3103'";:::J121:"*";::37);::"*"::J1250:"*";:::TP4:HT10:TP:HT::20)::HT:" STACKED BAR CHARTS ":HT:20)F&C$(1)" ENTER NEW SET OF DATA":C$(2)" PLOT CHART ON PAPER ":C$(3)" CHANGE DATA":C$(4)" LOOK AT CHART":C$(5)" SAVE CHARp$}AX(((SMAX))):TQSMAX10(AX1):BQ10(AX1):HI(TQBQ)BQ:M010:ARG510M:HIARGHI2ARGHI2ARGx$~:$SC(191BTTTTM)HI:I1NY:SUM(I)0:J1NS:SS(I)SS(I)V(I,J):V(I,J)SCV(I,J):SUM(I)SUM(I)V(I,J):::|%:::J1250:"*Y"::"STORE IT, RETURN TO THE DISK MENU, AND"::"SELECT OPTION #3,";::"'TYPE ON A CHART'";::" TO"::"TYPE WHATEVER BOTTOM CAPTIONS YOU WISH.#{A$" ":::"PLEASE HIT RETURN TO CONTINUE.":16384,128:(16384)155ī35#|16368,0::3:980 ;JSF:ACJ:XCRY(A),YCREL(A):2:IEL1.0ı\1200:CP3ınJSF:ACJ:A3.141596ıXCRY(A),YCREL(A)PW:2::32,0:34,0::V4:H12:G1:J1200:EL0.5:PW30GC0:CN0YN$(1)"AUTOY0B((Z$,LL,1))IX7(LL1),IY::37IX7(LL1)2,IY:HC:TCP3Ē3:950JSF:ACJ:XC,YCXCRY(A),YCREL(A)29811600:HCJSF(FS)(CP3):ACJ:XC,YCXCRY(A),YCREL(A)2:1600:JX(SF)2:ACJX:IXXC.7RY(A):IYYC.7R(A):PP(100P(CN1).1):Z$(PP):IX(IX):IY(IY)k3IXIX9(IXXC)6(IXXC)CP2āII418:4(HC4):HG("H"):HGIXII,IY2:HGIXII,IY:HGIXII,IY2::3LN(Z$):LL1LN:IY0I:YLYL10:XL170:91XL,YL:(AL$(M))XL7,YL:93XL14,YL:XL200S+L$(M)""820Z,2/NK1(L$(M)):XLXL7:XL272NK(L$(M)):8192((L$(M),NK,1))XL,YL3:L$(M)""8204:HC5HCNUM1Ē3:1600:HC:919PE89919d"" AW74(36)16Ė1:11BAW75Ė18:11:AW$:JV1:PP$""a(37)18AW77AW75:782AW77Č922:JV1:PP$"":92216368,0768 NUM2Ē3:SSS:FFF:HC!SSS:FFF:%NUM2900'3(YL9510((PI2))A*M1PI(36)16CVCV6HPP$"":AW21AW8AW32(AW480AW489)İ2500NT1(AW57(AW48(AW8AW21)))AW27İ2700:NT0AW73AW74AW75AW77AW27768AW27İ2700:741 (37)10AW73Ģ23:1 AW73Č998:998:JV1:PP$J)SUM PICN1#12000.216,0A16368,0:1054:8:"DATA ENTRY IS COMPLETE.":6:7::" MAKE CORRECTIONS (Y/N)?"::10000216,0JV1:PP$""AW(16384)128AW1374116368,0:AW$:AW(AW$):CV((37)2)4:(37)1:HS:16368,0:7100216,0:CS1105a(37)1:HS7::16):35,10:34,0::35,24PP$"":JL1CN1:Q$(P(JL)):LN(Q$):J1LN:P$(JL,J)(Q$,J,1):::760J1CN1:SUMSUMP(J):216,0:2000J1CN1:PS(J)P(J):P(J)P(CP2İ1300216,0 7302CP2ĺ:707ACP2ī707O16368,0m(37):HH:CN1Ľ:::420);:(37)1:HH::" STOP (Y/N)? ";:U(16384)128:U78U89733U89U78733U78Ĺ216,0:(37)1:HH:15):105 600& HH:(91);CN;(93);0 730R HS817(CX7):HS:CS1715 "VALUE = ";P(CN):(37):HS:15):(37)1:HS::" ";P(CN);" "::11000 P(CN)0Ģ(37):HS:710 CP2ĖHS:"COLOR = ";HR$(CN):HR$(CN)(HR$(CN),1):1700 (FS)2:XCPXSEP(THETAC):YCPYSEP(THETAC)G 800:PE89İ902N 2a JNG4:2090j 198~ XCN7Ģ11:HH20 YCXCN [CN13738 bCN10HH19  1800 SEP54(H3) 34,10 VV11:HH1:VV CNCN1:CNPICS1CNCN1 16368,0& CNPI499H 16297,0:16304,0:16299,0k K$:((K$)27(K$)13)206u 2000 SEP55(H4) SSP(CN)N:FFP(CN1)N:16368,0 HCHC1:HC4HC5 HC7HC1:PI6HC2 HC:CP2İ15002 THETAS :EL1164q :9:10:"(1) - MONITOR CIRCULAR"::10:"(2) - PRINTER CIRCULAR":::14:"WHICH NUMBER ? " 16368,0 AS(16384)176:AS1AS2137 RYR:AS2RY0.832R ::EL1RYR CN1:3:T$""198 15000 0"/ Z(34508)100ĺ(4)"BLOAD BLOCK,A34508"= d::2000M f:CN0:700i i:HC0:S0:F0:::SUM0 jKJ$"ABCDEFGHIJKL":JG112:AL$(JG)(KJ$,JG,1): xST1 z:4200:4003:NUM3Ĺ16368,0:::"CHART TITLE: ";T$ }C3.141596N ~C2C."34,0:35,24:32,0:33,40:4Q(16384)12827(16384)12813ġ:2000W1:0:EL1:PW30::16383:D$(4):HC0:N0:WX7P(12),HR$(12),HC$(12),L$(12),AL$(12) P16302,0:232,0:233,96:(24576)192ĺ:(4)"BLOAD CHARACTERS,A$600               . HIT RETURN. %  # 8 ; $L% sL4 sL}3 X = > {: T : ':L& o=  &  = T=  = L%&BL.&BOXES = 5 #&  =  (&  LT& LY&LLb&LINES P& 5 =  W&  =  \&  L& L&SL&SHAPES & 5 = 8 L : @9 {:  : 58 : o:  =  n T:L 9 : 9 ,;  7 8 : $= L % : 9 9 :  7 H: : $= L3% : 9 : M8 : 49 9  _8  8 L =  wLz%DISK IS FULL. HIT RETURN `%  s #L {: T` = > {: T : > : ]` < > {: T '= > {: T < > {: T`  =  :  7 =  P; (= L$ =   {:  {: = ; =  8 : M8 : 49 9  _8  8 : 9 : : 9 ; $L" #; 9  7 9 ,; L" : 9 : D u : n 7L# 8 ;  7 8 ; (= L7# ; 7  ; 7 9 : 7 8 : Lf# : M8 : 49 : s9 : t8 : #8L 9  w8 : $L#  = : t8LGLG 8 R< $L# 88 : 58 # 8 I< $ 7 P8 : = L! 9  _8  8 =  ]= $L! XL;  _8  8 W: ; $L,- =  n [9 ; X9 [9 :  7 ^9 : &=  7 H: : $= L& ^9 9LC+ 8 : $ 7 ^9 P; (=  7 ^9 : = L^ ^9 9 H: : $Lr : 9 =  n 8 < D n 9 8 z; $ 7 9 L9 = L $ 7 8 : = Lp6 W: %< $L? : 58 : o: : 49 : M8 : s9 : @9 8  V; 9 < > ; T v< > {: T : 8 : 8 : E: : 9 :  : 8 W: .< $Lz. W: 7< $LC$ W: @< $L{ : #8 : 58 : o: W: ; $ 7 H: : $= L < > ; T v< >= L : 8 9=  q; 9L$ W: < $LC+ W: ;  7 W: ; (= L4 ; Q:  ; Q: 8  =  n T: D8 : $L4 : 8 : A8 W: < $L_ 8 : 8 : $L_ : h8L, 9 : $L >;  <  G; : 9 W: ; $ 7 j9 : $= LC+ 8 : C9 : L 9  _8  8 v9 : $ 7 P8 : = L 9  _8  8 C9 : $L 9  _8  8 W: ; $ 7 H: : $=  7 j9 : $= Lj < > < T v< > < TL$ W: < $L : M8 8  : @9 : s9  7 9 : $ 7 W: ; $ q; 9 ; 9 < > ; T v< > {: T {:  {: = ; =  n T: : A8 9 : $L  : 9 4 $  = v9 : $ 7 P8 : = LG 9  _8  8 =  n T: 8 : $Ly 9  _8  8 : 8 W: ; $L 8  : @9 : s9 : 58 : M8 : o: @9 : s9 : 8 {:  {:  : E: 9 : $L; >;  LBLOAD SCENE BOXES,D1   : 9 >;  L0BLOAD CIRCLES,A$6000   ; O9 ; : ; X9 [9 :  7 ^9 : &=  7 H: : $= L ^9 9  = ; :  ; T:LB  = 9= ǰ"& ?=>? : `: : 9 x=  X : : c m< i "9L;  = h; o: h; 58 : 8 : A8 ; 8 ;  v< > {: T {:  :  >;  = ; \8 ; 8 : +9 : M8 :                (JS0)JS^kBBBCLS(NUM1): BEGIN OF THIS S HOW FILE vkBC1,SN: NO SHOWSkBB,NUM: THIS IS SHOW NUMBERkBB1,NC: HOW MANY SLIDESkBB2,(NAME$): LENGTH OF SHOW'S NAME&lJ1(NAME$):D$(NAME$,START OF SHOW LIST6jJSNSN1: INCREMENT SHOW NUMBER@jO34,8FjTWj^VT:1:40)jh"NAME OF THIS SHOW: ";:XM21:XX38jm78jr42:AK271000jwE$""1630jxJS0:J1SN:E$N$(J)SNSN1:JSJjyj|NAME$E$:LN(NAME$): kNUMSN ARE FINISHED."i 34,12%i:NC0MiN1SM::(91);N;(93);::" ";:niNCNC1: COUNT NO OF SLIDESvi78i"XX38:XM6:42:AK27NSM:1590i)E$""Ģ(37)1:1570i,PN$(N)E$i.A$(N1)PN$(N)i1:i6i;NCNC1j@BC36001: 00: SEE INDIVIDUAL SLIDESPhN5Ĺ104,8:103,1:16384,0::(4);"RUN MENU,D1"}hCH1: FOR USE IN 3521:HERE FOR NEW SHOWh3520h34,8:hA6:A$T$(1):790hVT10hVT:34,VTi"TYPE PICTURE NAMES BELOW. HIT ";::"ESC"::"WHEN YOU)g16368,0gVT1::6:"WHICH NUMBER ? ";:XM21:XX21:78:42:AK27Ĺ104,8:2048,0:103,1::(4);"RUN SLIDE CONTROLLER,D1"gN(E$):gN1N51150gN11500: NEW SHOWgN22500: OLD SHOWgN33500: SEE SHOW LISThN445LIST OF EXISTING SHOWS"@fT$(4)"SEE LIST OF AVAILABLE SLIDES"gfT$(5)"QUIT: RETURN TO DISK MENU"vfLHT1:VT10~f`VTfeJ15fjHT::(91);J;(93);::" ";ftT$(J)::fuNT11145fv5000:NT1: BLOAD LISTfyVT20g~VT:1:401He\"*";::39::"*" ef4epJ139:"*";:Cez:LA(A$)Se4:2:36)le4:((40LA)2):A$re}e MENUeCH0:eH6:A$"SLIDE PROJECTOR MENU":790eT$(1)"CREATE A NEW SLIDE SHOW"eT$(2)"RUN A SLIDE SHOW"fT$(3)"SEE 1ĉ::1000 dPK(16384)1286dPK21WTWT2000KdPK8WTWT2000ZdWT0WT0d&PK32Ĺ16368,0:16384,128:NW0dN16368,0dXdNW0NW1:dJ1WT::dd  TITL PAGE/HEADINGd*1d4d>J138dH"*";:eRJ$cA$(PN)""190: START ALL OVER-c5003crcPAGE16300:AA$"$2000":(1)PN0PAGE16299:AA$"$4000"}c7000c(4);"BLOAD "A$(PN)",A"AA$c500c700cPAGE,0: NOW SWITCH TO THIS PAGEc210 dPP(16384):PP155PP1449234,0:D0:S0:PN0::(4);"BLOAD "A$(0)",A$2000,D"(DN):16297,0:500:700:16300,0:16304,0pb7000b:(4);"BLOAD "A$(1)",A$4000,D"(DN)b500b700b16299,0bD1:PN1cPNPND: PN IS PIC NUM, D IS DIRETION + OR - ONE1:$aNJ125:D$(J)""::E$"":*aX6aYWT2000JadD$(25),PN$(15)VamN$(12)anA$(14):B049249:B1BO1:S149236:KB49152:CKB49168:L$(4)"BLOAD ":S$(0)",A$2000":S$(1)",A$4000"ax:1000a::5500a16368,0a7000ebPP1::6 ` 35999`(1:3:0!`)88R`*16368,0:PX(36)1:K$:AK(K$):AK27ĝ:o`+AK21PXXXČ1036:42`,AK13E$"":J1PXXM:E$E$D$(J)::`-AK8PXXMČ1008:42`.AK32PXXXĝ:"";:`/PXXX42`0D$(PXXM1)K$::K$;:42a          G 16383R16383::(4)"BLOAD CHARACTERS,A$6000":(4)"BLOAD BLOCK,A34508"[ 100*16368,0:PX(36)1:K$:AK(K$):AK27ĝ:+AK21PXXXČ1036:42,AK13E$"":J1PXXM:E$E$D$(J)::-AK8PXXMČ1008:42 .AK32PXѰ 35099!16384,0:D$(25);(770)1Ĺ770,0:800[(772)1Ĺ772,0:34,0:800u (773)1Ĺ773,0:800 1:3:0: (774)1Ĺ774,0:2000:D$(4)&TX38:TY55:D$(4)(16302,0)102 *16368,0:PX(36) !!!!J,1):AK(D$):BB2J,AK:: SHOW NAMEdlBBB3SL: START OF NAMES OF SLIDES IN SHOWl EACH SLIDE NAME IS NLlJ1NC: NC=NO OF SLIDES lB(J1)SL,(PN$(J))lK1(PN$(J)):D$(PN$(J),K,1) mAK(D$):B(J1XXĝ:" ";: /PXXX428 0D$(PXXM1)K$::K$;:42@ 1:] 2J125:D$(J)""::E$""c 3 712:1::"WANT TO SEE CHART LIST ? ";:50:XM26:XX26:42:AK27ĺ:(4);"RUN MENU" <E$(E$,1):E$"N"E$"Y"55 AE$"N"ė: E9 F17:1IN DRIVE ";DT;". PLEASE HIT ";::"RETURN."::D$"DELETE "NAME$:216,0:16368,0:16384,128:1 OM WHICH DRIVE, ";::" 1 ";::", OR ";::" 2 ";::" ?"[bDN(16384)128:DN27ġ:1zlDNDN48:DN1DN27010pVV:1:39):1qVV:"LOADING FROM DRIVE ";::" ";DN;" ":v(#`)#20:"THERE IS NO ROOM FOR FILE ON THE"::"DISK CATALOGt16368,04uSE(16384)128:SE271SxSESE48:SE1SE26005ay16368,0|34,11:35,24::34,0:35,24216,0:SE1EC1:40051:14:"CATALOG SEARCH:":VV16:7000:16368,0D$"CATALOG, D"(DN):K$:1:XVV:"FRSK ";::" ";DT;" ":'216,0:9000\D$"BSAVE "NAME$",A"(LOC)",L"(LN)",D"(DT)c1}10:39):216,0:220p18:3:"THIS FILE IS NOT ON THE DISK."::3::" 1 ";::" GO BACK AND RE-TYPE NAMEq:3::" 2 ";::" LIST FILES ININ DRIVE ";::(DT);::" ?"+16368,0cA(16384)128:A50A49A89A78A274024oA271~A894030A781A48DT1LN(43616)256(43617)LOC(43634)256(43635)12:1:39):12:1:"STORE FILE ON DI1:8::17):2:8:" TRANSFER A FILE ":3:8:17):Q16368,0:10:1:39)b1:A$"FILE"10:"FILE'S NAME: ";NAME$:FT1:1:VV12:NAME$""17000:EC1:250DT2(DN1)(DN2)216,0:16368,012:"PUT THIS FILE ON THE DISK NNCOL,ROW4(16384)12827J3:I3:ST1:2050F::16368,0XST1ST0:1h 16384,128zNNNS12015 16384,128:1 :5:1::" LIST FILES IN THE CATALOG ": VV12 9:7000:16368,0:D$"CATALOG,D"(DN):K$:16:32,0:233,96W D$"BLOAD"NAME$",A$6000,D"(DN)::3:1:0:NS(24576):NS93NS93]  0,0276,0276,1910,1910,0:0,64276,64:0,128276,128 92,092,191:184,0184,191:ROW37 J13:ROWROW64:I13:COL(I1)9340:NNNN1:NNNS,0 ,16368,0' 6(16384)128310. @24 : \ ::4::" "(N)" ";::10b { 1::J037:"*";: %1 *J121:"*";:39:"*": /J038:"*";: 4: J221:J:3:" ":: 210:1:39)' 1:10:A$"'S NAME: ";- 8 216,0F "";NAME$V NAME$""2a 216,0 1:VV12:EC0İ7000:EC1 EC0:6000 G3ī2000 :(4)"BLOAD "NAME$",A$4000,D"(DN) FT1FT0:4020 16297,0:16304,0:16299)(4) G1A$"CHART". G2A$"SCENE"H G3A$"SHAPE TABLE"W G4ī3000f G5ī4000 G6ĺ(4)"RUN MENU,D1" G7ĺ(4);"RUN PRINTER,D1" ::3:1::15):4:1:" VIEW GRAPHICS ":5:1:15): 16368,0 16368,0 PNN1:700:"SEARCH FOR FILE IN CATALOGU ZNN1:700:"TRANSFER FILE DISK-TO-DISK| iNN1:700:"EXIT TO THE DISK MENU kNN1:700:"DUMP CHARTS TO PRINTER" x16368,0 G(16384)176:G1G7130 6000 R$(4)"BLOAD RUNTIME"(13b )16383:A(0):::::D$(4):1:19::N0::G16302,0P800W2]j HH16:4~ HH::" VIEW " NN1:700:"VIEW BAR, PIE, OR LINE CHART<NN1:700:"VIEW A GRAPHICS SCENEFNN1:700:"VIEW A SHAPE TABLE)      WXXWXX270XWX+YTALLYTALLBY191TALLYTALLDX(L75)(L79)(L44)(L74)(L85)(L78)(L21)(L8)(L32)XXWXDXDY(L77)(L44)(L78)(L85)(L73)(L79)YTALLDYYXCX,Y16368,0:5010p::(233)96WX1544000TT27ė:1000CTT13ė:1000[(16384)1285010gXCX,Y{L(16384)128L4(233)96WX15:TALL22:CS:4030L4WX7:TALL10:CS:4030L5ĒSS:4030(L27TT13L13)ė:1000XCC:SSS:EFX2,Y:EFX,Y:EFX2,Y:EFX4,Y:EFX6,Y:EFX8,Y:XXWX:CC:~LX,Y:XXWX:(228)127ĔLXWX1,YBF1(233)96ĔLXWX1,Y016297,0:16304,0:16299,0:XC15:(233)96XC016368,0:XCX,Y:E20)m(233)964235nrSS:28X,Y:28X,YTALL2:XXWG:(228)127Ĕ28XWG1,Y:28XWG1,YTALL2:CCwR5GG1XXWX1:GG1:4210yR5XX1~GG0:EF42:R14240,4250,4250SS:EFX,Y:EFX3,Y:EFX6,Y:EFX9,Y:XXWX:47L58LL163(233)96WX15:TALL22:8000GFS1L72:WX1fFS1(233)96L42:WX1(233)96L42XX3:WXWX34200(233)96L42WXWX3X279WXXWX:YYTALL4030hE214290kWGWX(L21L75L32S:4030ZL18(233)96E21WX15:FS0:E20:CC1:X(XWX)WX:Y(YTALL)TALL:5000oL18CC1:5000L13XWX:YYTALL:4030L27ė:1000L64CAPS(CAPS):4030CAPS0(233)96L64LL64:L5XZ1(233)96CAPS0LSS:E21E21ĒSS*A(16336):XZ0:16384,128NL(16384)128]L204030kL5L18L4(233)96E21WX15:FS0:E20:X(XWX)WX:Y(YTALL)TALL:4030L4(233)96E21WX7:FS0:E20:X(XWX)WX:Y(YTALL)TALL:C (4)"BSAVE "NAME$",A$4000,L8192,D"(DN)8 1000 9:1:39):9:1:"DISK IS FULL. PLEASE HIT RETURN.";:K$:9:1:39):1000:4400TALL10:XWX:YTALL(233)96X15:TALL22516368,0CS:L5XZ0Ē11:8520 G:SSG, :4400:0,0:62454D HCHC1:HC7HC1R HC:5000e ::VV5:HH14l 5 :" SAVE SCREEN " :16368,0 16368,0:9:1 "TYPE NAME: ";NAME$ 16368,0 1300 NAME$""1000 216,0:3100.4);"BLOAD "NAME$",A$4000,D"(DN)K 16297,0:16304,0:16299,0:5000s ::11:"ERASE PRESENT SCREEN ? ";| HC0 16368,0 G(16384)128:G02520 G891000 ::9500 4:06::" CHOOSE BACKGROUND COLOR "::11: HT" 2 ";::" ? ";:16368,0= DN(16384)176:DN351000S (DN1DN21310e -DN:16368,0k 2y >16368,0 HVV5:HH1 RVV:HH \:" LOAD SCREEN ": fVV5 p"TYPE NAME: ";NAME$ zNAME$""1000 1300 9000# (N1N81080) B16368,0:21:29::N:< LN1ĉ::2110a VN2500,2500,6000,8500,7000,3000 tN7Ĺ16297,0:16304,0:16299,0:5000 ~N8ĉ::11::" RUN DISK MENU ":::(4)"RUN MENU,D1" ::"WHICH DRIVE ? ";::" 1 ";::" OR ";::$(3)"CHANGE TEXT STYLE":N$(4)"CHANGE TEXT COLOR":N$(5)"SEE TYPING INSTRUCTIONS":N$(7)"RETURN TO GRAPHICS SCREEN N$(6)"STORE SCREEN ON DISK":N$(8)"QUIT: RETURN TO DISK MENU J18::HT::J;::" - "N$(J): 316368,0 8N(16384)176:,A$6000":(4)"BLOAD STENCIL,A25592":(4)"BLOAD WESTERN,A30383":(4)"BLOAD BLOCK,A34508"i qVV5:7000 uWX7:HT5::1:3: ::9500:HT5:HT:A(0) 3:12::" TEXT TYPER ":s N$(1)"LOAD SCENE OR CHART":N$(2)"BEGIN A NEW TEXT SCREEN":N" 16383:::SS4:CS3:TALL10h 1:6::28):2:6:" GRAPHICS SCREEN TEXT TYPER ":3:6:28):CAPS1:WX7:XWX:Y102233,96:232,0F9999oHH1:(24576)192(30383)100(25592)100(34508)100ī113Z p:(4)"BLOAD CHARACTERS         :1040"CHANGE DATA"$33,38LNN1:1040:"PRINT CHART ON PAPER"20:12:"WHICH NUMBER ? ";:"";G$:G(G$):G1G592033,4016368,0104,64:103,1:16384,0:35099G4Ĺ34,0:G4ĺ:(4)"BLOAD RUNTIME,D1"(13)384,128w(16384)1551000^w:1:21:"WHICH DRIVE DID YOU CHOOSE ? ";:XM30:XX30:42wwAK27Ĺ34,0::1000wDN(E$):DN1DN25520wxX:::12:"YOUR SHOW CONTAINS A SLIDE WHICH DOESN'T"::"EXIST ON THIS DISK. PLEASE HIT RETURNN BAR"& E2Ľ::(4);"RUN NEWBAR"E E3ĺ:(4);"RUN MENU,D1" (91);"2";(93); ; " MULTI-VALUE (STACKED) BARS"C :[ :(91);"3";(93);a ~ " RETURN TO DISK MENU" 21:1::40):21:6:"WHICH NUMBER ? "; XM22:XX22:42 E$""6080 E(E$):E1E36080 E1ĺ:(4);"RU 34,8  55% :790E 1::J138:"*";::J1H^ \"*";::39::"*":r pJ139:"*";:x u 4:2:36)  LA(A$) 4:((40LA)2):A$: p12 z:(91);"1";(93); :" SINGLE-VALUE BARS"  :O"%:"GET RID OF THE FIRST ONE."?16368,0:16384,128I:12:"SHOW LIST.";::" WHEN THE LIST OF SHOW NAMES":"BECOMES TOO LONG, YOU MAY START ALL":"OVER BY USING THE ";::"ERASE LIST"::"OPTION." 16368,0:1IGHT ARROW KEYS. THE SPACE BAR"M v:"WILL FREEZE THE SLIDE; HIT IT AGAIN"t :"TO CONTINUE THE PRESENTATION." 16368,0:16384,128 34,11: :"SHOW NAMES.";::" DON'T GIVE THE SAME NAME TO""TWO DIFFERENT SHOWS UNLESS YOU WANT TNAME LIST":H6:790:G E3Ģ15:B$"PLEASE WAIT.":20(B$)2::B$:V E3ī9000u E4ĺ:(4);"RUN MENU,D1" E17000 X:A$"SLIDE PROJECTOR INSTRUCTIONS":H6:790 ]12 b:"SLIDE SPEED";::" IS CONTROLLED BY THE LEFT" l:"AND R)SLK,AKLm:: THIS COMPLETES ASC CODES OF ALL SLIDE NAMES IN THIS SHOWmLLLS(SN1): LS LEN EACH SHOW FILE, SN=NO OF SHOWSm:(4);"BSAVE LIST,A"BC$",L"(LL)",D1"m1000: MENUm~ VT:34,VTm HERE TO REm m 34,0:m :"WHICH DRIVE (1 OR 2) ? ";:50:XM24:XX24:42:AK27ıT GDN(E$):DN1DN270b I34,0:: M::(4);"CATALOG,D"(DN) N16368,0:16384,128 P d fD$(25) g iD$(4) n: sA$"BAR CHARTS":H6:790:216,0 t6000 u# F# D:6::" "(N)" ";::12 9 :1:J037:"*";:@ %1] *J121:"*";:39:"*":q /J038:"*";:y 4: J221:J:3:" ":: F# ":: F# ":: F4ĺ:R$"BRUN SCENE.OBJ"F G5ĺ:(4)"RUN HIRES MAKER CONTROLLER"l G1ĺ:(4);"RUN BAR CONTROLLER" G2ĺ:(4)"RUN PIE" G3ĺ(4);"RUN TEXT TYPER" G6ĺ:(4)"RUN VIEW GRAPHICS" G7ĺ:(4);"RUN SLIDE CONTROLLER"  : f"DRAW ON A CHART; gNN1:700:"DRAW SPECIAL SHAPESd iNN1:700:"VIEW OR PRINT GRAPHICS" nNN1:700:"MAKE A SLIDE SHOW" x16368,0 G(16384)176:G1G7130 16368,0 G7220 R$(4)"BLOAD RUNTIME"(13)(4) G)16383:A(0):::::D$(4):1:13::<800C2Is 15::" DISK";::" ";::" MENU ":}N0:#16368,0FNN1:700:"MAKE A BAR CHARTPNN1:700:"MAKE A PIE CHARTdNN1:700:"TYPE ON A CHART" eNN1:700    CL0Ē311000$NGJMAX(I)1QM1NG:Y(I,M)(Y(I,M)YN)150(YXYN):tYS0S(YS)YL:S(S150YX)|S0YS0āM1NG:Y(I,M)Y(I,M)(YS150YX)S:M1NG:X(I,M)(X(I,M)XN)230(XXXN):CL07092M1NG1LX(I,27923:II,JJ::;m3:49,10279,10279,16049,16049,10VnJJ1016015:51,JJ:soYX(YS)YMYXYX(YS)qYS0İ17000rYX(YS)YMYXYX(YS)s49,160S(YS150YX)279,160S(YS150YX)vITII0IT1I(I3)7(I7):I4927923:II,12:8_51,12:51,158:277,158:277,12_g50,11278,11278,15950,15950,11nhYS07020i164,158164,154:51,8555,85:164,12164,16:277,85273,85kAA$"N"7021l3:49,10279,10279,16049,16049,10:JJ1016015:II49RGYX2ARG  70002 XXN1E20Ľ:10000M Y216,0:XN0:YN0:9800 Z:12:"PLOT GRID MARKS ON CHART ? ";AA$:AA$(AA$,1):AA$"N"AA$"Y"7002 [16297,0:16304,0:16299,0 \JJ1016015:277,JJ: ]II4927923:II,158:^I527 XX(XX) YS0YS00 YX(YXYS)? Z((XX))N Q((YX))m TPXX10(Z1):BT10(Z1) TQYX10(Q1):BQ10(Q1) XX(TPBT)BT YX(TQBQ)BQ M010 ARG510M XXARGXX2ARGXX2ARG YXARGYX2A(I,J) 7X(I,J)XXXXX(I,J)7 8X(I,J)XNXNX(I,J)O :JJ1:J10HVHV1h <JJMAX(I)JMAX(I)J DHV:(91);:J;:(93)" "; I16368,0 KYSYN:YLYS:YMYX N10000 X"";X(I,J) YCH1:X(I,J)0580 Z(37):28:"";Y(I,J) b(16384)12826' I4II1:100000 HH6m <5:3:"ENTER ";::"STOP";::" WHEN YOU ARE FINISHED." 8:10::" X ":8:27:" Y ":: N0:HV5:34,9 14000:10  HERE0HERE1:570 3Y(I,J)YNYNY(I,J) 6Y(I,J)YXYXY6384,128:J12:"HIT ";::"ESC";::" TO END THE SLIDE PRESENTATION."i 16368,0:16384,128:103(# HERE TO ERASE LIST2#J1500:36000(J1),0:::(4);"BSAVE LIST,A36000,L500,D1"<#103 ) N0:YN1E20:YX1E20@ XN1E20:XX1E20:N0:LT1ī12:J ::S HV1k CW4: CURSOR WIDTHv 14000 SEP10 VV14 I4ĉ::11:"SORRY. NO MORE THAN FOUR GRAPHS ARE"::"ALLOWED. PLEASE HIT ";:"RETURN."::16368,0 I4"}16383:::9:14::" ":10:14:" LINE CHART ":11:14:" ":::(4)"BLOAD CHARACTERS, A$6000":(4)"BLOAD PLOT CURSORS,A25592":::3:1:0:10000XX1:XY21:YX25:YY21 16368,0:X(4,24),Y(4,24),JMAX(24      ! !!!!MERCIALLY AVAILABLE"::"SCREEN DUMP PROGRAMS WHICH CAN DO SOME"@:"SENSATIONAL THINGS WITH GRAPHIC SCREEN"::"IMAGES. THESE PROGRAMS ARE COMPATIBLE"J:"WITH ALMOST EVERY IMAGINABLE PRINTER."::"EXAMPLES ARE ZOOM GRAPHICS, PAPER"T:"GRAPH ABORT THE SHAPE. 16368,03 G(16384)128@ G0240N 16368,0 (4)"BLOAD RUNTIME"(13)(4)"BRUN HIRES MAKER.OBJ"HHH:"(1) GREEN < :H:"(E) ERASE";:HH:"(2) VIOLET h :H:"(R) RELOCATE";:HH:"(3) WHITE ::"WHEN YOU ARE FINISHED, HIT ";::"S";::" (STOP)." 21:"NOTE:";::" HIT THE ";::"ESC";::" KEY IF YOU NEED": "HELP OR WANT TOd16383::iH5"jHH200nV1:HT13xV:HT::" ":V1:HT:" SHAPE MAKER ":V2:HT:" ":V6:"HIT THE FOLLOWING KEYS BEFORE EACH:"SERIES OF KEYBOARD ENTRIES: :H:"(D) DRAW ";:  X(0,M),158PYY(0,M)::3$77102L1NG1`2SLOPE(Y(0,L)Y(0,L1))(X(0,L1)X(0,L))q7SLOPESLOPE<J49X(0,L)49X(0,L1)FY160SLOPE(J49X(O,L))Y(0,L)PJ,157J,Y::d16368,0:K$:n:@::2:13::" 7570A49Ľ:6#A5010000)\::11:"FILL AREA UNDER CURVE ? ";:16368,0h10000"";A$:(A$,1)"Y"(A$,1)"N"7700(A$,1)"Y"77051000016297,0:16304,0:16299,0233,99:232,248:M1NG:0:1PPPXRT WILL BE ERASED IF YOU"::"WANT TO PLOT ANOTHER GRAPH."f`::::"1";::" - YES. ERASE CHART j::"2";::" - NO. RETURN TO THIS PROGRAM'S MENU.t22:11~"WHICH NUMBER ? ";16368,0A(16384)128:A27A13A49A5031LN31K0:YT183:XT1657LN2:J1LN:((BT$,J,1))XT,YT:XTXT7:wGA(16384)128:A13A27A327495HCF1CF1::I1İ7700J:10000L::4:17::" ":5:17:" PLOT ":6:17:" ":Q:V::"THE PRESENT CHA((SN$,K,1)):(SN$,K,1)"."VN2?48VNXP,169:XPXP7:aYS0Ĕ4842,160(YS150YX)o16368,0ST$""7450LN(ST$):LN15LN1548:XT7:YT857LN2:J1LN:((ST$,J,1))XT,YT:YTYT7:BT$""7495LN(BT$):LN169:XPXP7:YS07395SSN$(YX2YS):LN(SN$):XP427(LN1):LN57400K1LN:VN((SN$,K,1)):(SN$,K,1)"."VN248VNXP,88:XPXP7:SUM(XXXN)2:SN$(SUM):LN(SN$):XP1577(LN1)7(XX(XX)):LN57400#K1LN:VNЭVN0K1VN3:YS0VN0648VNXP,160:XPXP7:iSN$(XX):LN(SN$):XP2757(LN1):LN57400K1LN:VN((SN$,K,1))48VNXP,169:XPXP7:SN$(XN):LN(SN$):XP487(LN1):LN57400K1LN:VN((SN$,K,1)) 48VNXP,,158PYY(I,M)::233,96:232,0& ICRR50YSYN:YXYXYN:R0xSN$(YXYS):LN(SN$):XP427(LN1):LN57400K1LN:VN((SN$,K,1))48VNXP,13:XPXP7:SN$(YS):LN(SN$):XP427(LN1):LN57400K1LN:VN((SN$,K,1)):M)X(I,M)2:49X(I,M),160Y(I,M)49X(I,M1),160Y(I,M1):X(I,M)X(I,M)2:ZM1NG149X(I,M),160Y(I,M)49X(I,M1),160Y(I,M1):PX44:PY0:NNNN1:NN4NN1233,99:232,248:M1NG:0:2PPPXX(I,M),158PYY(I,M):3:NNPXX(I,M)ICS, AND PRINTOGRAPHER."9h16368,0:16384,128::110Ap12Ht1`z:(91);"1";(93);:" DUMP A CHART TO PRINTER.":(91);"2";(93);" SEE INSTRUCTIONS."::(91);"3";(93);" RETURN TO DISK?M%d-@j@@6e$$ -o$,- ,-5o%<#$d-5 $$$36-6o$$< $$$M-'$$4 $$$666$$$$$$$$ -6 $$$-?$$$?M5#$JMb$$4 $$36v$$$366f 4  v.$d v-' o $?766.@@2@e$ -?M ? -5e$AE3GU\gq{ #-:BOVcp|.<o%$?N:'$$)6o%$$;6-%?6 #$, $ -56    L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH` ,խwqq膸 J즸 , hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hwУ8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBw U  yUUwyVxz`ЗПwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eФk ЮU 4Г U 5,wЅƩѤ wU! 5Bē唐\tsʆbc83o񁪥pTopȆbcĂbUVdf0Ѓe8oph0L8 MLh8HH`BUUȥViлh8HH`З{y SՠUEowyywxzzxwIy:e \`hH,Hops8otpf,k8UlV*U$f&łkUŁdbUȥcUUŭSVŮKsłEUŁ< UV0ЅUŕȱU喰!0UUdUV0+UiUVmVn̢͊wUV0ЦyyUUݤh.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH      ";::"LUE": CZ2Z5ĺ:\D:3:"ENTER ";::"STOP";::" WHEN YOU ARE FINISHED."uEP(BWDEEP):Z6ıFP2(P2)0(JJ1JJ5)DEEPDEEP1GP2(P2)0JJ2JJ6DEEPDEEP1H:IAX(((HI))):TQHI10(AX1):BQ10(AX1):HI0:J1YEARS:V(J)MAXMAXV(J)2?:HIGHMAX:>@N24ıAV1:V:8::22):V1:8:" BAR CHART DATA ENTRY ":V2:8:22)::Z2Z5ĺ::1::"G";::"REEN ";::"V";::"IOLET "; BZ2Z5Ğ:"W";::"HITE ";::"R";::"ED ";::"BZ2Z5:HV6:"COLOR = ";V$:V$(V$,1)w9V$"G"V$"V"V$"W"V$"R"V$"B"Ģ(37):HV6:12):(37)1:56:(37):HV6:12)::(37):HV5:196:" "C$" ";Z2Z5ĺ<47=216,0:YEARS(N1)(N24)N(N24):62:73:6!>MAXRS1612N19Ģ11:HV18(3RP154241835HV:(91);N;(93);:" ";::"VALUE:";::" ";V(N):V(N)0((V(N)))8ī1836VA(N)V(N):RP1ĖHV:(91);N;(93)7(37):HV6:1612(N7)):(37)1:HV6::" ";V(N);" "::Z2Z559*8 CHART TITLE:":20:1:13)::19:15:"";CT$:a-34,7:K0:N0:16368,0:HV3:Z2Z5HV13u.11:34,10:HV1/N12N24İ202:32,0:33,40::64:34,7:11::HV1:HV:N24YEARSN1:34,0::61016368,0:NN1:N7Ģ11:HV181RP1NYEA5:14:"";DAP$:DAP$""ī44i(216,0:9:"1 - SIDEWAYS"::"2 - TOP TO BOTTOM":14:"WHICH NUMBER ? ";)RR(16384)176:RR1RR241*LN(DAP$):RR1LN21DAP$(DAP$,21)+RR2LN12DAP$(DAP$,12)/,16368,0:18:1::13):19:1:"21,161B421,161B421,1&!D2235g"JH15:YI162JHSP5:B420,YIB415,YI:Q15,YIQ20,YI:{#75:16368,0:$(16384)12827(16384)1281336%100&4:1::12):5:1:" SIDE LABEL:":6:1:12)::216,0:16368,0:9'EP:AA(QQ):B1DEEPW,H1DEEPBDEEPW1,159DEEP:BDEEPW,159DEEPBW,159:BWDEEP1,159DEEPBW1,159:JJ:115:XB4W2:C:Q256(225)(224):Q257Q257:QMQD21ēB420,2Q20,2Q20,160B420,160B420,2 D21ēB421,1Q21,1Q:B,HBDEEP,HDEEP:AA(QQ):BW,HBWDEEP,HDEEP:BDEEP,H1DEEPBDEEPW,H1DEEP:AA(QQ):BDEEP,HDEEPBDEEPW,HDEEPwB,159B,HBW,HBW,159B,159:AA(QQ):B,H1BW,H1:B,158BW,158:BDEEPW,HDEEPBW,H:BDEEPW,HDEEPBDEEPW,159DE:B1,HBW,H6 CM0JJ3:Z4JJJJ(YG):YG(YG)L JJ:69:OUT1ĒCj Z2Z5JJHC(J):69:JJ K0W1(W1)(OUT1):BK,H1BK,159:BK1,H1BK1,159:AA(QQ)::D2130~K0W1(W1)(OUT1):BK,H1BDEEPK,H1DEEP:AA(QQ):0, J1YEARS:PK(16384)128:V(J)030 H159V(J)SC:H(H)4:BLM(J1)(WSEP):B4LM42RE(D21):BB9(YEARS9)10(YEARS10)8(YEARS8)5(YEARS7):D21ĒC JJJJ1:JJ7JJ1 BB42RE:JJ4JJ5 OUT1D21ĒC:B,H1BW1,H1:::150a LT327((HI)):BOT.5(YEARS1)YEARS:W(RM20LT((YEARS1)22))BOT:W18W17 WW2(YE6)(D22):W20W20 W(W):YEARS12W11:D22W9 16368,0:SEP(.5W):XX102YEARSW(YEARS1)W2LM:RERMXX:RE(RE2):RE0REа38:CAP$DAP$:DEEP0:Z4İ110. HI5HI5E SP110:Z4SP128[ RQ(0):16368,0 SC(SPRDEEP)HIGH:LM2012(YE11YE12):RM279DEEP:D22LM2012(YE11YE12) LMLM(D21)7((HI)):CLOSE.15:SHARE(RMLM)YEARS:WWIDE::Z3Z6ėBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":LL136:MM%(LL)((U$,LL,1))::J112:MO$(J)(U$,(J1)31,3)::100 X10:Y10:QQ16336:VV6::RP1Z2Z56 ::3:64:233,96:232,0:45 F4ĉ: CAP$DAP$:F4ė AG(0) 62:73:121::a, 16383V(24),VA(24),P$(24,8),MM%(36),MO$(12),DD%(21),M(12),HC(24),HC$(24):16383::::JJ0::3:0:1: 74,70,77,65,77,74,74,65, 83,79,78,68:LL112:M(LL)::E$"SUNMONTUEWEDTHUFRISAT":LL121:DD%(LL)((E$,LL,1)):i U$"JANFE             *MI5;.MI5;.MI5;.MI5?;w---5?II*MI)>;mI5wm)>w-5?w5II*MII5;.M)M)>;;.M)M)>;;.M-m)>?????-m)-۷III*MI)>?-M-??w-5?--??-M ->;VIII*MI5;.MI5;.MI5?;w---5?wI)>---???MII*---5????NI)---->???IIII??7-M)5;.MI5;.MI5;.MI5;VII J--???-M)5;.MI5;.MI5?;w---??VII* -???7-M)5;.MI5;.m -???7m-;.>MIIJ--->???-M 5;.MI5;.m ->???-m57-> * -???.m)757575II --->???.>.--???NI5---???VIIII:.>--->??w)>.>.>.-5?I---5????-M ->;.MI)>?---->??NI)>---???MII75757m-???7-M)5;.MI5;.MI5;.MI5;VII 55*>.>.>.>.>V 5-5?w)>.>.>.>-o 55757mI7m)7-5?7m;.M)۷II 55757575757575 * - -?????7m m 57m m 57m m 57m m 5IIII* -?5;.MI5;.MI5?;w---5?II55757m--????.mI->;.MI)>;.MI)>?.---??IIIJ--???-M -757mII:?---??II III 575---5????-MI57mI 57mI 5??---->??VIIJ--???-M ->;.---->????.?---->???VIIII)->?-7m???.--757575IIJmI 57mI 5IIImmI 57mI 57-M -??--?w57575II-----5????wII)>-?-?-?->7----5????III--->?75757575757-->?I 5w5w5w5w5w5w5 --->?w 575757575-->?I J ?--???----;7->7->II----5????oII )?7-?RJ--->???-M I 5??---??II -----5????wI57575757575IImmI 57mI 57mI 57mI 57mI 57mI 5??---??II mmI 57mI 57mI 5wmI5wm)>w-5?w5IImmII)>7mII)>7m m 57m m 57m m 5wm-m5?w-M->IIIImI 57mI 5wmI;-5?m)ۿMI)>;.MI)>;.MI)>;.MI)>?---??II ----????.MI->;.MI)>;.MI-????.---;.>.>VIII --???-M ->;.MI)>;.MI)>;.MI)>?7m -->?;w---??VII----????.MI->;.MI)>;.MI-????.---?7m -?7mI)5III --???-M ->;.?---???NI->ۛm75757mI5??--?II mmI)>7m -?7m-??.-??. -?7m -?7mI)5III5575757575757---5???II mmII)>7-MI)5?;7-mI-5??7mm) 5;7m)-M5;?7m m 57mII)>۷IIIIM-MI5;7-mI5?7mm 57m)M5;7m m57mI-5?7mI)5?۷III --???-M ->;.MI)>;.---???III-----5????75757---->???75757----5????III-----5????75757---->???757575III --???-M ->;.>.MI??;.M)-57mI 5;w---->???VIImmI 57mI 57mI 57----5????7mI 57mI 57mI 5III--5?w575757575-5?I ---5???wI575I5?-?75*>VI J)5?.5?.m????---??-VI)I)?--??-M ->;.MI)>;.---->????.MI)>;.MI)>;VIII----????.MI->;.MI);.---????.MI->;.MI)>;.---???III --???-M ->;.>.>.>.MI)>?---??II ----????.MI->;.MI)>;.MI)>;.MI)>;.-M ->;.MI)>?---5???-M ->;.MI)>?---??II --???-M ->;.MI)>?---->??NI)>ۛmI 5??---??II J:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????NI-7I --???-M ->;NIIII --???-M ->;NII5?--5??wI->ۛmI 5??---??II III5?-5??- 5;-M)>7----5????wI 575I-----5????757mI???7----?5*MI)>?---??II --???-M ->;.>. --????.mI->;.MI)>?---??II -----5????wII)>-?-?-7575II --???w--?----?--m)M۷IIJ 575----5????wI575II ?7-5?.o -->?JIJ:7->IIII5555555II --???-M)->?7m m57m)M5;7mm 57-mI5?;?---??II I 5?7-575757575*-->??VII- --???-M ->;.MI)>-?-?-?----5????m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII -??7m)>7m-?7->?- m >7mI->?;.-- ->;?VII )?7-5?.RI 575757575w w575757575IRRIm)M̆d0[8HVcx;f2o +h=`Ib([ , i  ; i  N u 2 _ o ! L y &F~!3`RI575757575*>Vmm)>7m)>߷JI       YOU WISH, YOU MAY ERASE (OR FIRST "::"SAVE, THEN ERASE) THE PRESENT CHART,"~%.:"AND THEN START ALL OVER WITH A NEW GRAPH%.:%.:"HIT ANY KEY TO CONTINUE."%.16368,0%.(16384)128012010%.10000%2::8:17::" SORRY ":&257mI-5?7mI)5?۷III --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??II ----????.MI->;.MI)>;.MI-????.---;.>.>VIII --???-M ->;.MI)>;.MI)>;.MI)>?7m -->?;w---??VII----????.MI->;.MI)>;.MI-????.---?7m -?7mI)55;7m mSLIDE 6COMPUTER SALESSTOCK VOLUME 1!$'A59000*$'A6ĺ(4)"RUN MENU,D1"5$':A:;$)K$*NJMAX(I)1]$+J1N:KJN$ +X(I,K)X(I,J)XJX(I,J):X(I,J)X(I,K):X(I,K)XJ:YJY(I,J):Y(I,J)Y(I,K):Y(I,K)YJ$+::$.M%.::8:"SORRY, YOU MAY NOT ADD ANOTHER GRAPH."::"IF CH115000'#~'A1Ľ:CH1:C30:PC0:6;#'A2C3112000S#'A2CH0Ľ:CH1:6s#'A2II1:VV4:::J0:20#'A3ė:18000#'A3CH013000#'A3PC1ī7500#'A3PC1:8000#'A4Ĺ16297,0:16304,0:16299,0:16368,0$'A47400";::" - PLOT GRAPH(S)E";'::"4";::" - RETURN TO PRESENT CHART"o"<'::"5";::" - SAVE LINE CHART "X'::"6";::" - RETURN TO DISK MENU"['32,0:33,40:"j'16368,0:"t'A(16384)176:A1A610100"y'"z'A1CF0:I0 #{'A133);:"*"::L1246:"*";:&!'VT3!$'VT:10::" ":VT1:10:" LINE CHART MENU ":VT2:10:" ":!)'32,5:33,33::!.'::"1";::" - ENTER NEW SET OF GRAPHS"!8'::"2";::" - ADD ONE MORE GRAPH":'::"3SPOND TO THE"::"BEGINNING AND END OF THESE AXES."G &VV15:16368,0O &VV &3:"MINIMUM X = ";XN::3:"MAXIMUM X = ";XX &:3:"MINIMUM Y = ";YN::3:"MAXIMUM Y = ";YX '7002 ' '::ST$"":BT$""!'L1246:"*";:::L121:"*";0 &16000&R497002)&16368,0&R50ĉ::1:13::" "::2:13:" SET SCALES ":3:13:" ":&::"TO SET THE SCALES FOR THE HORIZONTAL"::"AND VERTICAL AXES, YOU MUST SPECIFY THE"3 &:"VALUES YOU WANT TO CORREWN SCALES IF YOU WISH."(p&::HN7:HNWz&:"1";::" - YES. SCALE AUTOMATICALLY."&:HN::"2";::" - NO. I WILL SET SCALE."&:::11:" WHICH NUMBER ? ";&16368,0&R(16384)128:R27R13R49R509890&R27R131000 F#10000H&::VR1I&VR]R&16::" ":VR1:16:" PLOT ":VR2:16:" ":\&VR6:"THIS PROGRAM WILL AUTOMATICALLY SCALE"::"THE VERTICAL AND HORIZONTAL AXES FOR"::"PROPER VIEWING OF YOUR GRAPHS. HOWEVER,f&"YOU MAY SET YOUR O,0 /#80#1000052#::"TYPE A NAME: ";NAME$4#::"STORE DISK IN DRIVE ";::" 1 ";::" OR ";::" 2 ";::" ? ";:16368,06#DN(16384)176:DN35100008#DN1DN29014:#:DN:<#(4)"BSAVE "NAME$",A$4000,L8192,D"(DN) RETURN TO ENTER DATA!h23:149l"WHICH NUMBER ? ";Gq16368,0erA(16384)128:A08050tA1A2A27A13A49A508050uA13A2710000wA50A2:PC0:10120yC31:4000'#(#::5::" SAVE CHART ":*#16368 ":3:13:" PLOT GRAPH(S) ":4:13:" ":AJ8T"IF YOU CONTINUE WITH THIS OPTION YOU"::"WILL BE UNABLE TO ADD MORE GRAPHS TO"::"YOUR CHART."V:Y::4::"1";::" - YES. BEGIN PLOTTING":::4::"2";::^" - NO. ???w)5?.5?.5?.5?MI?J-m->??--m->?7-M ->?w-- ->?wI)5????7----???oII 7->7->7- -???.m--5??.mI->?.mI->?.mI->?.mI->?MII5->7-*5?.5?.5?.5?.5?.5?M>)5?.-5?w->7->7->7->?.o I->7->7-M)5?;7- -??.m5?.m-??.m)->?.m ->?MII ->7->7;oIII->7->7- -???.m--5??.mI->?.mI->?.m -5???.m--??MII J- ??-- -5?;?.5?.5?.-M)5???-m-?MI II)5?.5?ߛ-m->??-m ->?.mI->?.mI->?.-M)5???w-- ->;oIIJ- ??-- -5?;?.mI)>???.m--?.-M)5???-m-??MI ?I)->?--;?.5?---5-?NII????7----5????oII 5- ->?.m-?.5?.5?.5?.5?.m??.m->?MI-57->w->w->w->w->w->w5o-- ->?.m->7->7->7->7->7->?.m->?MIRI-??---????NI:7->7->IIIII:????.---->????MII-5?7-?RJ-m->??--m->?7-M ->?.mI->?.-M)5???w-- ->?.-M-??.- -?.- ?.-oI-MI)5?;7-MI)5?;7-Mm)5?;7-Mm)5?;7-Mm)5?;7- -m->??- -m;?mI5oII -M ->?.mI->?.-M-?;N)-?-m??-m)->?.mI->?.mI->?MII-MI->;7-MI->;7-mI-??wm)?->7->7->7->oI ?----5????7-----?-?-??.mI->?.m -???.m-???.m -5??.mI->?.mI->?MII m-??-m-->?.5?.- -??m-->?->ۛ-M)->??w- -?oII---->???7----*5?.5?.5?.5?.5?.5?MI -M ->?.mI->?.mI->?.mI->?.mI->?.mI->??7-m-->??w- -?oIII-M ->?.mI->?.mI->?.mI->???.m)-5??.m -5??.mI->?MII- m-??-m-->??7-M ->?.mI->?.mI->?.mI->?.-M-5???w- -?oIII- -???.m--5??.mI->?.mI->?;7- --???.m-;7->7->oII m-??-m-->?;7-M ->?.mI->?.mI->?.mm->??.- - ???-- ->?oIII- -???.m--5??*m ->??w- -oII--MI->??.m -?;7- -??.m?.m??.m-?;7-M)-??.mI)5?MII 5->7->7->7->7->7->7- -->??.m-->??MIIMII >7-MI)5?;7- M-->????.m---5????.m-m->??.m)M->;?.mI ->?.mI ->?MIII?mI)5?7-M ->?.mM->?.mm->?.m--5MI:??.m-->??MII- -->??.m--;7->7- -5??.m-;7->7->7->oII - ??-- -5?;?.5?.mI??.m -5;7-MI5?7-- -5???-m-5??MI -M ->?.mI->?.mI->?.mI->???.m--5??.mI->?.mI->?.mI->?MII5->7->7->7->7->7->7->7->o?I)-->??.--?.5?.5?.5?.5?.mI->?.mI->?MII?- -???.m--5??.mI->?.m -??.m--??.mI->?.m -5???.m--??MII - ??-- -5?;?.5?.5?.5?.5?.-M)5???-m-?MI ?- -???.m--5??.mI->?.mI->?.mI->?.mI->?.m -5???.m--??MII5- -->??.m--;7->7- -5??.m-;7->7-?7-5?7-:?.->?.-NJ?7-5?7-:?.->7-?MMJ >-MI:??-- -->??w->II---5???*--->???RIIJI7-???.-m--???NI)7I m-??-m-->?;wII->-??7--?.5?N:7->oI .RI?.5?.5?NI:???w---??-VI -??- --5??.mI->?.mI->?.mI->???.m--5?--?MI M m-??-m-->?7->7-m-??7-m)->?.mI->?.-M-5???w- -?oIII----5????7----*-?-?7->7->7->7->oII m-??-m-->??7-M ->?m -?7m-?;-M ->?.-M-5???w- -?oII m-??-m-->??7-M ->?.-M-5???m-->7->ۛ-M)->??w- -?oII>J>?-->?7-->7->7->7->--???.--5???MI- m-??-m-->??7-M ->?-?-?-?7-MI???.m--5???MIIM m-??-m-->?;wII->-??7--?w->ۛ-M)->??w- -?oII5II->j->- ->;-M)5?7-- -5???.-m-?.5?.5?M?- --5???.m--?.5?.m-???NI)->7->ۛ-M)->???m-->?M -??N-5?.5?.5?.5?.5?.5?*-?oI?J mw--?----?--w JIMJ 575----5????wI575II *->?.->7o I??7--5??JI7-5?7-5?o 5II5->->->->->->75oII- m-??-m-->??7-M ->?.mI->?.mI->?.mI->?.-M-5???w- -?oII> -->;wM R7Im)>7m)*----->?????NII:wII?????7-----m)>7m)>oII?I--->???.M:7---???NI5---???NI iM)>7mm5w 555mI߿m) 5;m moII mI---???---;7-M??w---M???w---??N?M ?-5?7-5?.?J -5??-?.5?.5?.5?.5?.?wcd Hr%Hdt#^Hr)Ia]?W g 7 s  m  @ Y   B o KU%Eu;r6WI->7->7->7->7->7-?.5?M-M->;7-M            III --???-M ->;.?---???NI->ۛmI 5??---??II -----5????wI57575757575IImmI 57mI 57mI 57mI 57mI 57mI 5??---??II mmI 57mI 57mI 5wmI5wm)>w-5?w5IImmII)>7d 35099!16384,0:D$(25);(770)1Ĺ770,0:800[(772)1Ĺ772,0:34,0:800u (773)1Ĺ773,0:800 1:3:0: (774)1Ĺ774,0:2000:D$(4)&TX38:TY55:D$(4)(16302,0)102 *16368,0:PX(36)1916368,0J6:"WHICH NUMBER ? ";:XM21:XX21:78:42:AK27800gAK(E$):AK1AK42040104,64:103,1:16384,0:35099 AK1ĺ:(4)"BLOAD RUNTIME,D1"(13)(4)"BRUN ENTER.OBJ"*AK330004AK4ė:800>AK22200& 34,0:1A$"DATA ENTRY ":H4:V2:G1:790910Q$(1)"ENTER NEW DATA NOW":Q$(2)"PLOT DATA ALREADY ON DISK"::Q$(3)"SEE DATA ENTRY INSTRUCTIONS":Q$(4)"GO BACK TO DISK MENU"J14::(91);J;(93);::" "Q$(J):::1:19:39):(4)"BRUN CHANGE DATA.OBJ"<G5ĺ:(4)"RUN PRINTER,D1"JG12000XG22200yG3ĺ(4);"RUN SCI EXEC,D1"::5::" "(N)" ";::11$:1:J037:"*";:.1:8J121:"*";:39:"*":LJ038:"*";:`*|BYSYS:F*PF1:14::13):2:14:" TYPE TITLES:":3:14:13)V*UF16368,0:m*ZF11:1:" SIDE: ";y*nF"";ST$*xF14:216,0*F" BOTTOM: ";*F"";BT$*F(ST$)19ST$(ST$,19)*F(BT$)29BT$(BT$,29)*F(STHE GRAPHS IN COLOR ? ";&)>16368,0M)>G(16384)128:G89G7816020\)>G89CL1j)>16368,0p)>)hB HERE IF YS<0)mBYS(YS):Z((YS)):TPYS10(Z1):BT10(Z1):YS(TPBT)BT)oBM010:ARG510M)pBYSARGYS2ARGYS2ARG*qBRASED.2(::::3::"1";::" - YES. CONTINUE.i(::3::"2";::" - NO. RETURN TO PROGRAM MENU."w(:16368,0(:L(16384)128:L27L13L49L5015050(:L27L1310000(:L4910110(:L5010000(>)>::14:"DO YOU WANT TRY ":3:8:23)::':::2:7::" ":3:7:" ENTER NEW SET OF GRAPHS ":4:7:" ":'::::"WARNING";::": IF YOU CONTINUE WITH THIS"::"OPTION ANY EXISTING CHART AND ITS DATA"(::"WILL BE E11:"YOU CAN'T PLOT GRAPHS UNTIL YOU HAVE"::"ENTERED THE DATA FIRST. PLEASE CHOOSE"::"ANOTHER OPTION FROM THE MENU. PLEASE&2:"HIT ";::"RETURN.":&216368,0&2(16384)128013020&210000'61:8::23):2:8:" LINE CHART DATA EN:109 1ZF1BJR1 N16368,0:"DRIVE DOESN'T EXIST.":J14000::216,0:170001R(637)255ĺ"RELOCATE CURSOR WITH ARROWS OR ";::"IJKM";::" KEYS"1R(637)255ĺ"RELOCATE CURSOR WITH THE ";::"ARROW";::" KEYS."2R:"HIT THE ";::"ESC MENU."621:1::40):21:6:"WHICH NUMBER ? ";JXM22:XX22:42ZE$""6080tE(E$):E1E36080E1117E25000E3ĺ:(4);"RUN MENU,D1" E1ıE25000E3ĺ:(4);"RUN MENU,D1" D ":23::"LOADING HIGH-RESOLUTION SHAPE MAKER"y >N(4)"BLOAD RUNTIME"(13)(4)"BRUN HIRES MAKER.OBJ"NS , OR AS"A ,N:"BIT-MAPPED ";::"BLOCK";::" SHAPES FOR USE" -N:"IN GAMES OR PROGRAMS WHICH REQUIRE"::"RAPID ";::"ANIMATION.": 3NN2:TNN:NC0:23:11:" ":23:11::"HIT RETURN":K$::(K$)13ī20019> 4N23:11:" 9 N:3:14::"SHAPE"::13:"CREATOR"::TA1ī20038V!NNS(24576):GB0:NN0:0})N3:14::"SHAPE"::13:"CREATOR"*N:08:"WITH THIS PROGRAM YOU MAY CREATE"::"HIGH-RESOLUTION FIGURES FOR USE" +N:"AS STANDARD ";::"VECTOR ";::" SHAPE!! ! -???wm ;.>.?7-5?II - --???7mIw--mI5???7---??II>I:.>--->??w)>.>.M5??7--?I 5*m ->?mI57mI57-M-????.---5??II M*-M-5?;?mI5wm)>w-5?7-5?III*-M -5??wmI 5;7m)M5;7m-m5????w-M-۷III*mI->?Nm)?7-;mI?;?.-M5->7->.>.>.>.?7-5?I* - -?????m)M5;7m)M5;7m)M?;7-Mm)5?;IIIII* -???wm ->7mI57mI?;?.-M-5?;?VIII-J--???-M)5;.MI5;.m ->???w---??VII**m-???w-M->7mI57-M-???. -?.5?MIIJ--->???-M)>7mI57-M->??w- ?.5oN* )5;.---7mI????---??III)??--->;.>--->??w)>.?7-5?II ?J---5????-M 5;.m ->???-m5ۛmI->???w---??MI I->7->.--???.M)57mI57mI?;?.-M-5?;?VIII>)>.*5?5757?7-5?Iw 57->w5757575?7-?M7->7->.M)>;. ?7-7m)??7-m-5??III--???----;7->7->II----5????oII )?7-?R --???7mI5*--57mI????.---5??VII?->7->.--???7mI->7mI)>7mI->????.---??IIIJ--???---->757mI)>???w---??VIIIII)5?.*--5???-M 5;.MI5;.mI????w---->?II IJ--???-M7m-m5????7-m)->?VIII-m)->??7-m)-wm)?w5-;mI?;?.-M-5?;?VIII -m)->??7-m)-7mI;.--?w57?7-5?II-----5????7----5?wI -?-?-?-MI5????7----5????III7-->?7--;.>.>.>.M:?7-->?I 55w5w5w5w5w5w5 --->?7-->.>.>.>.>?7-->?I J ?>;.M ?;?.-M-5?;?VIII --???---->75w--??wI)>mI)>???w---??VII----5????7----5;wI575757?7-5?II -m)->??7-m)-7mI57mI57mI57mI5??--?II--m)->??7-m)-7mI57mI5wm)>w-5?7-5?III-mI-5??7-mI-7m)M5;7m)M5;7m)M5;-m -?7-m 5;7mm)>;.Mm5?7m -5?;?.-M)5?;?VIII? --???---->?.MI5;.MI5;.MI5;.m ->???w---??VIII---???7---->7mI57m -???.--7?7-5?IIII --???---->?.MI5;.MI5;.MI5;.m)-???w---5??VIII---????.---->7mI)>7mI-???7----m -5??III ?--5??7--;.>.>.>.??7--5??II5I)-->??.--757575mI5???w--?II m-m)->??7-m)-7m)7-??.M7mIm:?;?.-M-->?;?VIII5-5?7-7575757m 5???7---5???II 7-MI)5?;7-mI-??.-M-5?;?. -m5?7m)M5;7mI ??7-mI-5??IIIII-m -5??7?VII---???7---->7mI57mI57mI57m ->???7---???VII ---->???7---->757--->??757mI5????.---5????VII I---->???7---->757--5??757?7-5?IIII --???---->?.>.MI?7m -5;.mI5????---??VIII-m -5??7-m -;.MI5;.---5????.MI5;.MI??7JIIJI7-????.----????NI-7I --???---->?.MI5?-?75w?7-5?II?J)5?.5?.m????---??-VI)I-5?7-;.M?߿mI57---57mI?;?.-M-5?;?VIII---????.---->7mI)7---7mI)>7mI->????.---???IIII --???---->?.>.>.>.mI5????---??----5????7----5?wI -?-?.>.?7-5?II - --???----5??.MI)>?---5???-M ->;.mI->????---??II - --???----5??.MI)>;.mI->???w-- 5*MI->????---??II :J:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???--???-7mI 5????7----5????IIIM --???----5?wII)>--5??wI->ۛmI)5????w---??II II ->?-->?-M5?.M m:????.----7?7-5?I -----5????7----;.MI:???.---?5*MI->????---??II --???----5;7mI??7----??.MI)>;.mI->????---??II w--?----?--m)M۷IIJ 575----5????wI575II ?7-5?.o -->?JIJ:7->IIII5555555II --???----5?7m m57m)M5;7mm 57-m ->????---??II 5I)5?*-->??N)5?.5?.5?.m????.---5????VII --???----5?wII)>*m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII -??7--5;. -?7->?- m)?7m -????7--m->;?VII )?7-5?.RI 575757575w w575757575IRRIm)Mvd0[:JXezW(h"Jh:l ,Q4n I o  I s  ) 9 c  B v  L y >] :azI575757575*>Vmm)>7m)>߷JI "" " " " " """""""""