' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `PP`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-(Q pP Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(` d£֠ԠPˣ٠Ơ͠z# Pu`ӂ@ @!(P""CԂ@!d@@" p@p"@c      X*U ت +aΟd""PRBpP AD88|ƒ@ " " "!`G    @.Պրd$@@""P2BԊ    !$D"  2A` @    @"МH ""0B@   @! x*  @*@a@CP*`P  d"br @   A<<<*   &֪Ղ !*D8 Ђ ЪԪ  `ÿ    DD.`6 ` "@! d U@`g`          @@C"Ґ#% $$@@@8pA pApp`A`r""&„"ddd"駠""#$`T׫׫ݮծ׺!%%eÉ""`GC"add鿄@ $׮ъ2ŪԢѢъժъՀԢъ$&ŪԢѢъըيՀ  dddêԢѢњըъȡB2$$ԢѢъըъՀ"@'% ЪԢѢъըъԨŪԢѢъըъըł" BCĪԢբъը ъըъըŪԨŪԢѢъըъըł!&&@CCԢѢъ ԨŪԢѢъըѪը">ԢѢՊ !%׊ԨŪԢѢъըъլł@`dd $$@#%ؐ࿂BR*`GC8`@ @Cpx@Cxq>>" $&@CC"  ȤĤɤĤɤ@!$$     $$É>"!&ݏ!%@CC" $&BCАpBrq& @@" ! !" $$ $$" Ʌ ‹ȤĤɤĤɤACC" ddd"""@!$""&@CC " $$"$牤 @ @ @B"@x" a >!"@CC"ddd䠂ɋ""Ё@ ȤĤɤĤɤ"`#%"""AC"$$ъ< $$ŪԢѢъըъՀԢъ>ŪԢѢъըъՀ @CC>`gddêԢѢъը @ @ @B" ԢѢъըъ H@! `A`( $%ԢѢъъԨŪԢѢъըъըŊ"ȪԢժѢъըŪԨŪԢѢъըъըł &Ԣъ`GCԨŪԢѢъըъը"@CCCԢѢӊԨŪԢѢъըъըł`GCddd΄ "%@ @ @ @prrqP@! !I  `#&@CC࣠`ACЁ饠   @ $ґ $ґ!$$>"#%΄<@"& @ @ @"@CC> `@@!0 @! "" "" $!$௠"$Ё饠 GCҐ>@`ddadd"Ё           68,0:::300^IN$h :"SPECIFIED. PLEASE RE-DEFINE PARAMETERS.":(20):"PRESS 'RETURN' TO CONTINUE. "uD$"DELETE";F$"."R1"-"R2",D";DRIN$::300 @ INPUT SUBROUTINEE868: CLEAR LINEJKEY(16384):KEY138010O36,(36)2 TKEY155Ĺ163 CNTR0!ICOL(COLNO1)7R20ĺ0:0:7200MCNTRCNTR1:CNTRqJ(I1)WIDTH1:(I2$,J,WIDTH)J(I2$)7300 I*D$"CLOSE"4 TOO FEW COLUMNS ERROR:D$"CLOSE":(5)Q"YOUR FILE HAD FEWER COLUMNS THAN" 105,96: .X WRITE OUT FILESC]F$F$"."(COL)dbD$"OPEN"F$"."R1"-"R2",D";DRlD$"WRITE"F$"."R1"-"R2vNO:NOCNTR0ICOL(COLNO1)CNTRCNTR1:CNTRJ(I1)WIDTH1:(I1$,J,WIDTH)J(I1$)7300I ";2(20):(15):"WHICH";:IN$]<IN(IN$):(IN1)(IN3)5100cFkO P COMMA CATCHER INPUTUZJ768788dI:J,I:Jn 162,0,32,117,253,160,2x 138,145,105,200,169,0 145,105,200,169,2,145 ETURN' TO CONTINUE.":IN$$z216,0-5008 C MENUI|(1):(5):" APPLE PLOT FILE CONVERSION MENU " (5):(8):"1. INPUT A VISICALC FILE "(8):"2. RUN APPLE PLOT "((8):"3. QUIT 768:IN$(IN$,1)I:I2$IN$,: C\ FILE INPUT ERRORf:(5):"DOS ERROR NUMBER ";(222);".":"PROBLEM MAY BE A MISMATCH BETWEEN THE":"FILE VISICALC WROTE AND THE NUMBER OF":"ROWS OR COLUMNS OF INPUT YOU SPECIFIED."p(20):"PRESS 'R DRIVE."6(20):"PRESS 'RETURN' TO CONTINUE.":IN$k216,0:560: FILE NOT THERE, RETURN TO CATALOG LOAD VISICALC FILED$"OPEN"F$",D"DRD$"READ"F$I1R1768:IN$(IN$,1)I:I1$IN$R2R14600IR11R2: 0 VERIFY FILE EXISTENCEP :4450: SET UP FOR NON-EXISTING FILE ERRORh DD$"VERIFY"F$",D"DR N4700: SET UP FOR OTHER ERRORS X4500 b:(5):"THE FILE YOU SPECIFIED, CALLED" lF$;", DRIVE ";DRv"IS NOT PRESENT ON THE SPECIFIED(14):(5):"PLOT HOW MANY COLUMNS? ";:8000R NO(IN$):(NO0)(NOCOL63)4090 (16):(5):"FILE IN WHICH DRIVE (1 OR 2)? ";:8000 DR(IN$):(DR1)(DR2)4110 "(18):(5):"IS EVERYTHING CORRECT (Y/N)? ";:8000: ,IN$"Y"4000 YRST? ";:80001 R1(IN$):(R11)(R1254)4030s (10):(5):"WHAT ROW SECOND? ";:8000:R2(IN$):R22544050 (R21)R2R1 R2R1TEMPR1:R1R2:R2TEMP (12):(5):"START IN COL. (1-63)? ";:8000 COL(IN$):(COL1)COL634070+  :   USER QUERY!  (3):(5):"VISICALC COLUMN WIDTH":(5):"(1-37, DEFAULT=9)? ";:8000:WIDTH(IN$):(WIDTH37)4020 WIDTH0WIDTH9 (7):(5):"YOU MAY CONVERT 1 OR 2 ROWS":(5):"AT A TIME. WHAT ROW WILL ":(5):"YOU PLOT FILOG,D"DR# D::(2):868:868:I N(22):(5):"WHICH FILE? ";:8000[ X(IN$)0590f bF$IN$n l: v(10):6);"NOW CONVERTING PARTS OF THE" :18(F$)2);F$;" FILE" 4400: INPUT VISICALC DATA 7000: WRITE OUT FILES 300 ! APPLE PLOT FILE CONVERTER= REVISION 4/2/80 QdIN$" ":D$(4)fnD$"NOMON C,I,O"s255::,5100: MENU6IN2ĺD$"RUN HELLO,D1"@IN3ė:5200: GET COMMA CATCHER4000: GET INPUT DATA034,1: :D$"CATA   ȍӠˤԠӠԍٍ΍ٍ΍ ̠ŠԯӠύԠƠŠΠԍ΍΍ӍԠ̍΍΍ ӠƠŠٍ٠ӍԠҠԍ΍΍ԍō΍΍΍΍ŭ؍ٍōŭŭŭŭŭ  ؍ٍΨΨΨة΍΍     ̍ԍٍ΍ȍӠڠϮӍٍ΍  CE BAR TO CONT)";:T$::T$(32)1062-(h*::10:7);"PRINTER CARD NOT IN SYSTEM":1062:20,XB(100XB.5)100:YB(100YB.5)100:XM(100XM.5)100:YM(100YM.5)100:XX$(XB):YX$(YB):XM$(XM):YM$(YM):DD6:"";VT$:VT$"Y"Ģ23:868:10182VT$QZ$20j 53008,H1:53007,H2:53012,H3:53009,H4:0:0:1002"34,1:2:868:1062::22:13);"(CNTL C FOR MENU)":10:14);::"PRINTING GRAPH"::672::(17):0:0:1002:'&22:8):868:"(PRESS SPAH30:1046VT$QZ$10464VT$"N"H30:1046?H3255:"LEFT MARGIN (LESS THAN 38): ";H4;:" ";VT$:VT$QZ$T(VT$):T0T38H420:1052VT$QZ$1052H4T"16:"ANY CHANGES? (Y/N) ":22:10);"(PRESS RTN FOR MENU)":20):1"UNI/BI DIRECTIONAL (U/B): ";VT$;:" ";VT$:VT$"B"VT$"U"VT$QZ$H2255:1034gVT$QZ$1034VT$"B"H20:1034H2255 :H30VT$"N":1038 VT$"I" "NORMAL/INVERSE PRINT (N/I): ";VT$;:" ";VT$:VT$"I"VT$"N"VT$QZ$VT$"Y"1016 VT$"N"1058g672::H1(53008):H2(53007):H3(53012):H4(53009):0:0:1002Ä34,1::5:"INTENSITY (0-7): ";H1;:" ";VT$:VT$QZ$H1(VT$):H10H17H17:1022ՄVT$QZ$1022:H20VT$"B":1026VT$"U"U672:" ";:T(0):53008,7:53007,255:53012,0:53009,20:0:0:1002::T0ī1066::13);"APPLE SILENTYPE":10);"(PRESS RTN FOR MENU)":34,2:10:3);"CHANGE PRINTER PARAMETERS? (Y/N) ";:"";VT$:VT$"Y"VT$"N"VT$QZ$1006VT$QZ$ı(FILE$,(FILE$)3):988$F$FILE$*IFILE$" ":F$"":VT(36)1`F$:F$(13)1000F$(8)T(FILE$):T1992F$(8)FILE$(FILE$,T1):36,VT(FILE$):868:992قF$;:FILE$FILE$F$:992(FILE$)2FILE$(13):Sz  T0:VT$(19)TM20:+VT$(1)TM1:AVT$"I"VYVYTMWVT$"M"VYVYTMmVT$"K"HXHXTMVT$"J"HXHXTMVY183VY183VY0VY0HX279HX279ǁHX0HX0ځVT$(13)T1((FILE$,3),1)(44)F$UME":958:K17:A(53247):I110:A(49152K256):960,I:961:(960)D(I)956gI:16428,K:957yK:1066:960::10:18);"QUME":1062::16458:ှ22:"========> ";::GG$;::"?(RTN)";:VT$:(VT$)13ı쀿:940:20VT$:AVAILABLE FOR THE PRINTERS BELOW)":23:10);"(PRESS RTN FOR MENU)";:7:(1):"1. APPLE SILENTYPE"::"2. QUME":22:"ENTER SELECTION NO.: ";:T$:T(T$)::T$(13)960T1T3940T952,954GG$"APPLE SILENTYPE":958:1004:RGG$"Q:10:12);"CHECK YOUR INPUT":14:16);"ERROR #";T:1062:20T~VT$"/"ġ:20Z~n~VT$"/"ġ:276t~~(VT$)0(VT$)100T(37):(37),T1:"NUMBER SHOULD BE 0-100, REENTEER: ";:~T0::E:12);"PRINT THE GRAPH"::"(ONLY :494:XM$((XM)):YM$((YM)):YX$((YB)):XX$((XB)):YXYB:XXXB:20}D$:D$,"CLOSE";F$:T(222):0:0:1002:T5T254VT$" R":914}T25520}I06:(T)ER$(I,0)Ă}I7ĉ::10:20(ER$(I,1))2);ER$(I,1);"":1062:20A~::YT$:XT$b|XB:YB:C1:C2:C3:C4:P1:P2:M1$:M2$:BA:MT$:HQ:MT:YR$:YS$:YE$:C(1):C(2)|D$:D$,"CLOSE";F$:YXYB:XXXB:YM(YM$):XM(XM$):E1N1:E2N2:((VT$,2,1)"D"(VT$,3,1)"R")ML120I}::10:14);::"RANGING DATA";::VT$" R"1:D$:D$;"BLOAD";FILE$;",A$2000":20{D$:D$"VERIFY"F$:D$"OPEN "FILE$:D$"READ "F$:N1:N2:I1N1:X1(I):Y1(I)::I1N2:X2(I):Y2(I)::(VT$,3,1)"R"914|D$;"READ";F$:S1:E1:S2:E2:NX:NY:XX$:XM$:YX$:YM$:XL$:YL$:LA$:OV:G:NEG$:20z|(VT$,2,1)"P"888z~34,2::3::"DATA FILES AVAILABLE ON THIS DISK:":23:"PRESS RETURN":T$"":(VT$)4T$(VT$,3)z34,3:35,22:::D$;"CATALOG ";T$:23::"NAME FOR THIS PLOT:";::990:984:24:PI0:F$RT$20%{(VT$,2,1)"P"PI,L$2000":20gyt10);"RECALL DATA FROM DISK":11);"(PRESS RTN FOR MENU)":10:12);"DATA / PICTURE?"yx34,13::23:2);"(USE X,D# FOR ALT DRIVE. E.G. D,D2)":14:14:16);:"(D / P) ";:990:VT$FILE$:(VT$,2,1)"D"(VT$,3,1)"R"894z{VT$RT$::I1N2:X2(I):Y2(I)::S1:E1:S2:E2:NX:NY:XX$:XM$:YX$:YM$:XL$:YL$:LA$:OV:G:NEG$:YT$:XT$xnXB:YB:C1:C2:C3:C4:P1:P2:M1$:M2$:BA:MT$:HQ:MT:YR$:YS$:YE$:C(1):C(2):D$:D$;"CLOSE";F$:20 yrD$:D$;"BSAVE";FILE$;",A$2000(VT$)2T$(VT$,3)w`"ALREADY USED:":23:"PRESS RETURN":34,3:35,22:::D$;"CATALOG";T$:34,0:35,24:23::"NAME FOR THIS PLOT:";::990:984:FILE$RT$20wh(VT$,2,1)"P"882lxjD$:D$"OPEN"FILE$::D$"WRITE"F$:N1:N2:I1N1:X1(I):Y1(I))":10:13);"DATA / PICTURE?"vU23:2);"(USE X,D# FOR ALT DRIVE. E.G. D,D2)":13:17);"(D / P) ";:990:VT$FILE$:VT$RT$20vX(VT$,2,1)"D"(VT$,2,1)"P"852wZ:14);"DATA TO DISK":10);"(PRESS RTN FOR MENU)":3::"FILE NAMES ";:T$"":C47:JJ1:1uDHX279(M2$)7HX279(M2$)7\uFFF1:C3HX:C4VY:T1FF0:"":830wuHFF1C3HX:C4VY:830uJQQ0:EE0uLKB(16384):KB160850uP844uR16368,0::20vT:11);::"SAVE DATA TO DISK"::10);"(PRESS RTN FOR MENU1AA0:EE0:"":HX0:VY0:812;t:AA1C1HX:C2VY:812et<4:I07:C3,C4IC3(M2$)7,C4I:t>3:J0:I1(M2$):((M2$,I,1))31C3J7,C47:JJ1::FF1QQ1834t@FF0QQ1840 uBFF1İ962:0:J0:I1(M2$):((M2$,I,1))31C3J7,)31C1J7,C27:JJ1::AA1EE1820:s.AA0EE1834Hs0P20842zs2HXC3:VYC4:TM20:T2807(M2$):C3TC3T1s4AA1İ962:0:J0:I1(M1$):((M1$,I,1))31C1J7,C27:JJ1:s6HX279(M1$)7HX279(M1$)7 t8AA1C1HX:C2VY:T1ZYYDET4:MMM:C(K):CH0MM(MM)Ur TX(VT)ZT,83OFMMTX(VT)TZ,83OFMM:M\r"Ifr#805mr$Kwr%926r&P10816r(HXC1:VYC2:T2807(M1$):C1TC1T1r*4:I07:C1,C2IC1(M1$)7,C2I:'s,3:J0:I1(M1$):((M1$,I,1)(I)0VT1ZTDXKq M1UDX:TX(VT)ZTM,83OFTX(VT)ZTM,YV:M:7:802qC(K):CH1:ZYY(I):ZT.35DX:X(I)0VT1ZTDXqINXZT.35DXqTZ.35DX:INXTZ0:YR$"Y"INX2TZ.35DXqX(I)0TZ.65DXqY(I)0ZYY(I):CH1'rM83OFST:768cp7:TX(VT).35DX,83OFTX(VT).35DX,YVTX(VT).35DX,YVTX(VT).35DX,83OF:768p7:TX(VT).35DX,83OFTX(VT).35DX,YVTX(VT),YVTX(VT),83OFpU.7:C(K):INXYR$"Y"U.35pX(I)0VT1U.35pK1784qZT.35DX:XISME2:X(I)X2(I)XM:Y(I)Y2(I)YM:I:TE2:SMS2XoC(K):ISMT:YR$"Y"X(I)1802|oVTI:YR$"Y"VTI1:VT0VT1oYV83OFY(I)YD:X(I)0VT1752oX(I)0Y(I)0802oINXĭYR$"Y"764o758 p7:44,YV44.35DX,YV44.35DX,YR$"Y"X(I)17223nX(I)XD44,83OFY(I)YD:nIDn725PnK:PS2YnPS2cn926qnBA1732zn806nKPSOV:K1TE1:SMS1:736nTE2:SMS2nHCC(K):YR$"Y"XM1nK1āISMT:X(I)X1(I)XM:Y(I)Y1(I)YM:I:7441o::704KmX(1)0:Y(1)0:IS2E2:X(I)X2(I)XM:Y(I)Y2(I)YM::TE2:SMS2om7:ISMT:YR$"Y"X(I)1708m59KX(I)XD44,83OFY(I)YDmI:HQ1724mC(K):YR$"Y"X(SM)1718mX(SM)XD44,83OFY(SM)YDmSMT724nISM1T:LKK1:678DlXX(NXK1)XD:XX(XX10.5)10:PX$(XX(XM$)):~lLL0:PS1:YD151(YBYM):XD231(XBXM):OF0YDYD2lG3692lG4LL1:692l728lK1OVLL:TE1:SMS1:7:YR$"Y"XM1mK1āIS1E1:X(I)X1(I)XM:Y(I)Y1(I)YM$)10.5)10):K0NX:XD$(XD):I1(XD$):(XD$,I,1)"."670OkI:J0:676xkT1(PX$):(PX$,T,1)"."J0:676kPX$"0"J0:676kT:PX$PX$".0":J0kL0:I(PX$)11:JJ1:((PX$,I,1))31279J7DXK,173: lLL1:(PX$)7DXMT12jJ1::I0MT1:JJ1:MM$:J13Į:JJ13ljI:J1NX:MM$:((MM$,1,1))31TX(J)3,173:J:682jYR$"Y"āI0NX:VT$"'"("0"((YS$)I),2):J02:((VT$,3J,1))3144IDX3J7,173:J,I:682?kXX(XX$)(XM$):XDXXNX:PX$(((XXPY$"0"J2:646(iT:PY$PY$".0":J0>i(PY$)J15652iL0:MY$"-"PY$:NC(MY$):INC11:JJ1:((MY$,I,1))3139J7,162KDY:iLL1:LDY81KK1:650iYX(NYK1)YD:YX(YX10.5)10:PY$(YX):KiMT$"Y"664jMT0K1:628LhvYX(NYK1)YD:YX(YX10.5)10:PY$((YM$)YX):K:OF0636Uhz654h|YX(YX$)(YM$):YDYXNY:PY$(((YX$)10.5)10):K0NY1:YD$(YD):I1(YD$):(YD$,I,1)"."640h~I:J0:646hT1(PY$):(PY$,T,1)"."J0:646iNY:YD$(YD):I1(YD$):(YD$,I,1)"."618=ghI:J0:624fgjT1(PY$):(PY$,T,1)"."J0:624|glPY$"0"J2:624gnT:PY$PY$".0":J0gpNC(PY$):NCJ5630grL0:INC11:JJ1:((PY$,I,1))3139J7,KDY10: htLL1:LDY81K:CN1682(YL$)28:I1(YL$):((YL$,I,1))310,CN8(I1)::CN2352(XL$)2736:I1(XL$):((XL$,I,1))31CN7I,191:-gdCN2352(LA$)2736:I1(LA$):((LA$,I,1))31CN7I,6::YX(YX$)(YM$):YDYXNY:PY$(((YX$)10.5)10):K0,V8:KTVDY2:XT$"Y"Ĕ15TX(I)3,K:K6ePI:608reRXT$"Y"Ĕ15TX(I)3,83KDY2:15TX(I)3,83KDY2:K~eTI:608eVI1NY:41,83IDY49,83IDY:41,83IDY49,83IDY:K41TDX2:15K,83IDY:15K,83IDY:K,I:576e^ML1682f`10:566d4T277d6OF0598hd8INY11:40,159IDY49,159IDY:K41TDX2:15K,159IDY:K,Iyd@XT$"Y"582dBT78OF:V87OF:584dFT8:V163dHI1NX:TX(I)44IDX:G1$"Y"G2$"Y"ēTX(I),78TX(I),87:K12NY:594*eLTX(I),VTX(I)N1NXBA1E1NX'c$N2NXBA1E2NXc&YE$(NX((YS$,2))):DX231NX:DY151NY:OF76:YM(YM$):XM(XM$):G1$"Y"OF0:DYDY2:554c(G2$"Y"OF0:DYDY2c*ML1682c,44,444,83OF:44,83OF279,83OF:44,83OF44,159:3:YT$"Y"564d0T$"0",b(MT$"Y"YR$"Y")E2XBXBE2:T1Wb(Y2(I))YBYB(Y2(I)):YX$(YB):T1b(Y2(I))(YM)YM(Y2(I)):YM$(YM):T1b(X2(I))XBXB(X2(I)):XX$(XB):T1b(X2(I))(XM)XM(X2(I)):XM$(XM):T1b:512:b"VT$" R"ıc#IT DATA":13:9);"YMAX = ";YB;:(24):"XMAX = ";XB:9);"YMIN = ";YM;a T1VT$" R"Ė(24):"XMIN = ";XM:16:17);"GRAPH ";K:1062:16300,0:16297,0:16302,0:16304,0a aOV1546a530:546bK2:T0:IS2E2:Y2(I)0G2$"Y":YM0:YM1068:VT$" R"ıD`T1(MT$"Y"YR$"Y")NXXB:E1NXNXE1:XBNXr`T1(MT$"Y"YR$"Y")ĭE2NXNXE2:XBNX`T1MT$"Y"NX30NX30:XB30:E130:E230`T1YR$"Y"NX12NX12:E112:E212:XB12FaT1ė::10:5);"GRAPH SCALE CHANGED TO F0:YM$"0"1_(MT$"Y"YR$"Y")E1XBXBE1:T1\_(Y1(I))YBYB(Y1(I)):YX$(YB):T1_(Y1(I))(YM)YM(Y1(I)):YM$(YM):T1_(X1(I))XBXB(X1(I)):XX$(XB):T1_XM(XM$):(X1(I))(XM)XM(X1(I)):XM$(XM):T1_:512:`(VT$)13488^KB141488&^I:C^KB(16384):KB127486d^16368,0:255:0:0:1002:l^:^:16304,0:16297,0:16300,0:16302,0:2:1:0:G1$"N":G2$"N":I(0):PI1ML0844^496:526 _K1:T0:IS1E1:Y1(I)0G1$"Y":YM:I$(I):(4(I$)):I$;:X(X(I)100.5)100:X$(X):K1(X$):(X$,K,1)"."ĺ13K);X;:474u]K:12(X$));X;]Y(Y(I)100.5)100:Y$(Y):K1(Y$):(Y$,K,1)"."Ė(23K):Y:480]K:(22(Y$)):Y ^KB(16384):KB160Ĺ16368,0:VT$:Y2(I)::DP100:VTN2:T1{\24:" (SPC KEY TO STOP/START--RTN FOR MENU)":672:" ";:53004,255:53009,8:53008,7:53007,0\5:868::868::868:32,9:33,30::6:4);"PLOT ";SET;" (";VT;" PTS)":"POINT# X(I) Y(I)":34,8:35,22:9_]ITDPAYING DATA FOR: ":2);" PLOT 1 (";N1;"PTS)":7);" OR ":2);" PLOT 2 (";N2;"PTS) SELECT (1 OR 2)?";:" ";SE$:SE$QZ$276[SE(SE$):SE1SE2ĺ"":452[SE1āI1100:X(I)X1(I):Y(I)Y1(I)::DP100:VTN1:T1:462\I1100:X(I)X2(I):Y(I)T41:I10001:T4T41:Y2(I)0Ă=ZT1101T11:T3100UZT2101T21:T4100ZS1T1:E1100T3:S2T2:E2100T4:E10S10ZE20S20ZN1100T3:N2100T4:23:868:276ZT1:454:488::276}[:(2):14);"DISPLAY DATA":(5):"DISPL::"WAIT":_Y23:868:11)::"WAIT":::SE1āI1100:X1(I)X(I):Y1(I)Y(I)::TN1:438YI1100:X2(I)X(I):Y2(I)Y(I)::TN2YT10:I1100:T1T11:Y1(I)0ĂYT20:I1100:T2T21:Y2(I)0ĂYT31:I10001:T3T31:Y1(I)0Ă%Z(X$,K,1)"."Ė(13K):21:X(I):420AX:(12(X$)):21:X(I)}X18):21:"";VT$:VT$"/"Y(I)(VT$):Y$(Y(I)):424X::352X18):21:868:K1(Y$):(Y$,K,1)"."Ė(23K):21:Y(I):912: Y:(22(Y$)):21:Y(I):912::23:18)I100āJ0I1:X(J)J::408:352ZWI0I100Ė(6):21:"ENTRY OUTSIDE RANGE":352hW410:352WII100:1:21:868:(4((I))):21:I:X$(I):X(I)I:414::352WI(I$):8):21:"";T:X(I)(T)%XX$(X(I)):4):21:868:K1(X$):1):21:" ":352-VI$"DY"I$"DXY"432mVI$"DY"İ356:I(I$)99:Y(I)Y(I1)::(1):21:" ":352VI$"DXY"202VI$"DXY"İ356:I(I$)99:X(I)X(I1):Y(I)Y(I1)::(1):21:" ":352V402#W(I$,1)"S"I((I$,(I$)1)):I0)11:X(I)X(I1)::410:352:U|I$"IY"I$"IXY"432vU~I$"IY"İ356:I100(I$)11:Y(I)Y(I1)::410:352UI$"IXY"432U356:I100(I$)11:X(I)X(I1):Y(I)Y(I1)::410:352U432VI$"DX"İ356:I(I$)99:X(I)X(I1)::(1)"L"İ466::255:370 Tp372YTrT0T100ĉ:23:868:16);"(/ ENDS)";:348:352Tt(I$,1)"L"(T0T100)IT:404TvI$"IX"I$"IY"I$"IXY"I$"DX"I$"DY"I$"DXY"402TxI$"DX"I$"DY"I$"DXY"390UzI$"IX"İ356:I100(I$f(I$)0(I$)100Ė(5):21:"ENTRY OUTSIDE RANGE"::352DShYSjT(I$):T3T3Sl1:21:868:(4T):21:I$:(I$,1)"L"T((I$,2)):T0T100ĉ:23:5);"(SPC BAR START/STOP-RTN TO END)";:348:150:22Sm(I$,1)"L"T0T1Tn(I$, ENDS)"RW32,32:10:"EDITING":"COMMANDS"::" IX-":" IY-":" IXY-":" DX-":" DY-":" DXY-":" L-":" S-":348:350R\33,25:32,7:34,9:35,22:R^216,0:354R`356:362Rb"":352RdI0:1:21:"";I$:I$"/"ġ:432>SQQSE(SE$):SE1SE2ĺ"":334aQRDP100:SE1āI1100:X(I)X1(I):Y(I)Y1(I)::TN1:6:342QTDP100:I1100:X(I)X2(I):Y(I)Y2(I)::TN2:6RV868::868::868:8:12);"PLOT ";SET;" (";T;" PTS)":8);"POINT# X(I) Y(I)":24:14);"( /#PHS2GG$"DATA ENTRY":32:334HPJS3GG$"DISPLAY DATA":32:452[PL22:868:280PN:(2):15);"DATA ENTRY":(5):"ENTERING DATA FOR:":2);"PLOT 1 (";N1;" PTS)":7);"OR":2);"PLOT 2 (";N2;" PTS) SELECT (1 OR 2)? ";:"";SE$:SE$QZ$276"O8934:936:T0310OO:S2(VT$):12:868:" STARTING PT FOR PLOT #2: ";S2O<13:868:" ENDING PT FOR PLOT #2: ";E2;O>" ";VT$:VT$QZ$276O@934:936:TO318OBE2(VT$):E2S2E2S2PD13:868:" ENDING PT FOR PLOT #2: ";E2:276N*10:868:" ENDING PT FOR PLOT #1: ";E1;IN," ";VT$:VT$QZ$308`N.934:936:TO300{N0E1(VT$):E1S1E1S1N210:868:" ENDING PT FOR PLOT #1: ";E1N411:868:12:868:" STARTING PT FOR PLOT #2: ";S2;N6" ";VT$:VT$QZ$316::S1328MGG$"PLOTTING RANGE":32::13);"PLOTTING RANGE":"(RTN SKIPS ENTRY AND / RETURNS TO MENU)":9:" STARTING PT FOR PLOT #1: ";S1;M$" ";VT$:VT$QZ$298M&934:936:T0292M(S1(VT$):(9):868:" STARTING PT FOR PLOT #1: ";S1. CHANGES? (Y/N) ";VT$:VT$"Y"234*L20L:RR3:10);"DATA ENTRY AND EDITING":11);"(PRESS RTN FOR MENU)":(5):"1. PLOTTING RANGE"::"2. DATA ENTRY "::"3. DISPLAY DATA "::216,0:926L(22):"SELECTION NUMBER: ";:S$:S$RT$20 MS(S$) Y-AXIS LABEL: ":YL$:"";VT$:VT$QZ$260AK932:YL$(VT$,19)K:"ENTER THE TITLE OF THIS GRAPH: ":LA$:"";VT$:VT$QZ$266K932:LA$(VT$,32)K :"EXTENDED HORIZ. GRID LINES? (Y/N) ";YT$;:" ";VT$:VT$QZ$272K 932:YT$VT$"L:"ANY$QZ$242+J932:NY((VT$)):NY0NY1?OI!$$*-%$6&J %$$< O -O $$N!$$tH1333 !$$*-=I - / !??2 I!$$4333-- - $;?$-- $-6;? $ - $ Rfz.BVj~ 2FZn"6J^r %%-....>76???$I $4 I$4 H 4 !4 $$$--'466& ??I -- ;? )-066&J - ;. 5'J` B`.@-@HI@J(@LWC@LWC(.@)ii? @-@)i@@-@)JJJJi@@ B(`G@ `B@ `$@i1@LB$@8(1@`/@81@`&@81@`%@81@`'@'$@.(@)@LTB(@)@$@`'@8(@F@(@)@)@LB(@mF@(@m)@)@` B'@$@`$@`'@I'@`(@8*@-@)@+@.@*@8(@-@+@)@.@`-@8/.@81@` BI`2@ 2@Р B X(hhh`$@%@&@/@'@#@(@)@*@+@PTWR@,@ B  B`%@C@`&@i`/@ i`m$@`0@`#@0@=4@0@` B C(@*@)@+@ \C`'@8(@3@(@)@)@LA(@m3@(@m)@)@`#@81@1@`'@ FN@H@O@HI3I <@  @ (P. HHH@ A C  ZA cA wA A A0@ UBL@ A0@ A A#@#@ A1@ƭ'@#@ B A1@е B B1@ B 2B'@#@/@ cC B1@А/@&@ B1@Ѐ&@%@ (B1@L^@ BQS @?p~?~~~}~_?^{n{=osg;^_g=^;sy~_{oO˿ ˿?`xw@?~~}|C|1_~{;( ?p~~wo_s{>~g{s|_qyHh~wCo_~}|~?`w@?`o@_~}|~@a~?~~~}~_?~xoww?_o9^{{y~wso_os=n@?~_~~}ox?bss +`@?`o~?~|~~G{oO;<>?`xw@|x~}|y_꽌?`xw@?~~?|~goGy>~g[<w\'q>ȥ&)|wGo_~}?|~x|p`&?`xw@?`o@_~}|p` H@o~?~~~}~_?@|Aoww?@_o^{{y~wso_os=p@?|_~~}gs?fssJ@@?`o~|~@J&6?`xw@xp~}|?`xw@?~~?|~gO?p|~OY=~g^9w=N|'s7{<'?|wOo_?~}|~px`@?`xw@?`o@_~}|``@?|o~?~~q~?^c{1osg9^_g{sygso_os=Nw @?x_~~}owgO?ww ﳐ@o~|~ ?`xw@?p`~}|~?`xw@?~~?|~gO??Os|~<~Opy`|?0B0x80BƴPˣ٠Ơ͠z# ţŠ! Ԯà! ţ!ţ! ţ" ţ"ţĠŠ Ԡ  Ԡ ˠ Ԡ ԠԮà   ЮԠήԠŠŠ ŠԠŠΠԠŠҠȠҠ ҮԠŮԠϮԠ ٮԠήԠ׮ԠԮԠ îԠϮԠ׮ԠîԠ îԠˮԠԠ ٭ؠ"٭" ٭ؠ" ϮԠ ŮԠ ̮Ԡ ԮԠ Š ٠Š, ǠΠ ϭӠՠ ̠  ԠΠ ٭ " Ҡ٠©Ӡ ŠϭĠβ ŠӠŠҠӠ  ԠӠ ԠԠ àŠҠ Ԯà"ˮà"נĠ٠éϠ Ԡ" Բ Ԡ à Š Ԡà@?_~~}ɠ~wAo_~}|~ ] ГT TEXT: ";M2$:"CHANGE TO: ";:" ";VT$:FF1:932:VT$QZ$M2$(VT$,39):"EXTENDED VERTICAL GRID LINES? (Y/N): ";XT$;:"";VT$:VT$QZ$VT$"Y"VT$"N"XT$VT$932::"ANY CHANGES? (Y/N): ";VT$:VT$"Y"148qI20: SPLIT" ";VT$:AA1:932:VT$QZ$M1$(VT$,39)@P21VT$"Y":220LVT$"N":"USE LABEL #2? (Y/N): ";VT$;:" ";VT$:932:VT$QZ$VT$"Y"P20VT$"Y"P21P21::"CHANGE LABEL #2? (Y/N): ";VT$:932:VT$QZ$226JP21VT$"N"ĺ:"CURREN(VT$,34)P11VT$"Y":210+VT$"N"v:"USE LABEL #1? (Y/N): ";VT$;:" ";VT$:932:VT$QZ$VT$"Y"P10VT$"Y"P11P11::"CHANGE LABEL #1? (Y/N): ";VT$:932:VT$QZ$216)P11VT$"N"ĺ:"CURRENT TEXT: ";M1$:"CHANGE TO: ";:31@:"ENTER MAX X-AXIS VALUE: ";XB;:" ";VT$:VT$QZ$194^932:XB((VT$)):XX$VT$:"ENTER MIN X-AXIS VALUE: ";XM;:" ";VT$:VT$QZ$200932:XM$VT$:XM((XM$)):"ENTER X-AXIS LABEL: ":XL$:"";VT$:VT$QZ$206932:XL$12NX12:YE$(12(YS$)):XB129V$"/"YR$"N"184TVT$QZ$VT$"/"200zV$"N"İ932:V$QZ$VT$QZ$200VT$V$:932:"ENTER NUMBER OF X-AXIS DIVISIONS: ";NX;:" ";VT$:VT$QZ$188932:NX((VT$)):NX1NX1NX31NX("0"VT$,2)!932:V$"N"168z:"ENTER ENDING YEAR ";"'"(YE$,2);:" ";VT$:VT$QZ$VT$"/"YE$("0"VT$,2)V$"N"YR$"N"(YS$)(YE$)YE$(100(YE$))V$"N"YR$"Y"NX((YE$)(YS$)):XBNX:XM0 V$"N"YR$"Y"ĭNX"N"MT$"N":1605VT$V$:932:V$QZ$ĭMT$"Y"200:"IS THIS A YEARLY PLOT? (Y/N) ";YR$;:" ";VT$:932:V$VT$:YR$"Y"V$QZ$168V$"N"YR$"Y"XM0 V$"N"YR$"Y"::"ENTER BEGINING YEAR ";"'"YS$;:" ";VT$:VT$QZ$VT$"/"YS$T MONTH (1-12) ";MT;:" ";VT$:932:VT$QZ$MT(VT$):MT1MT1V$"Y"MT$"Y"V$"/"ĺ:"NUMBER OF MONTHS (30 MOS. MAX): ";NX;:" ";VT$:932:VT$QZ$NX(VT$):XBNX:XM0:NX30NX1NX12:XBNXV$"Y"200V$"N"MT$"Y"XM0V$L0:74ML1:7488t:12);"X-AXIS PARAMETERS":3:1);"(RTN SKIPS ENTRY AND / RETURNS TO MENU)":34,4:6:"IS THIS A MONTHLY PLOT? (Y/N) ";MT$;:" ";V$:V$"N"V$"/"156CV$"Y"MT$"Y"V$"/"MT$"Y":YR$"N"::"ENTER NO. OF 1S;:" ";VT$:VT$QZ$İ134:C(1)(VT$):C(1)0C(1)7C(1)7GT::5);"ENTER COLOR # FOR PLOT 2: ";C(2);:" ";VT$:VT$QZ$İ134:C(2)(VT$):C(2)0C(2)7C(2)674VT$"/"ġ:74GG$"OVLY ADDITIONAL GRAPHS":32:GT:HQJ:ML1M5);"PLOT COLORS":1);"(PRESS RETURN TO SKIP AND / FOR MENU)":19:8);"BLACK=0 OR 4 WHITE=3 OR 7":21:8);"GREEN=1 ORANGE=5":23:8);"VIOLET=2 BLUE=6":2:47,334:4,3633:33,4736<GT:HQJ:8:5);"ENTER COLOR # FOR PLOT 1: ";C(1)$"EXCHANGE PLOTS":72:22:(11)::868:"EXCHANGING PLOTS";::I0100:X(I)X1(I):X1(I)X2(I):X2(I)X(I):Y(I)Y1(I):Y1(I)Y2(I):Y2(I)Y(I):wVTN1:N1N2:N2VT:GT:HQJ:VTS1:S1S2:S2VT:VTE1:E1E2:E2VT:74|GG$"CHANGE COLOR OF GRAPHS":72::1"STANDARD GRAPH W/OVERLAY":72:OV2:BA0:GVT:74]hGG$"BAR CHART":72:OV1:BA1:GVT:74lGG$"GRAPH W/BAR OVERLAY":72:OV2:BA1:GVT:74pGG$"MULTIPLE BAR CHART":72:OV2:BA1:GVT:74tGG$"SCATTER CHART":72:OV1:BA0:HQ1:G1:74vGG:"ON"::88*V21:33):20::"OFF":_X22:"ENTER SELECTION NO.: ";:VT$:VT$(13)20ZVT(VT$):VT9VT0Ģ22:(1):868:88\:HQ0:VT96,100,104,108,112,116,118,124,140`GG$"STANDARD GRAPH":72:OV1:BA0:OV1:BA0:GVT:742dGG$R CHART OVERLAY"::"5. MULTIPLE BAR CHART"::"6. SCATTER CHART"::"7. EXCHANGE PLOTS":M"8. CHANGE COLOR OF GRAPHS"::"9. OVERLAY ADDITIONAL GRAPHS(ON/OFF)"::G7HQ0Ģ(2G2)::G;"."::84RT1HQ1Ģ(14)::"6.": TML1Ģ21:30):20:Pˣ٠Ơ͠z# ţŠ! Ԯà! ţ!ţ! ţ" ţ"ţĠŠ Ԡ  Ԡ ˠ Ԡ ԠԮà   ЮԠήԠŠŠ ŠԠŠΠԠŠҠȠҠ ҮԠŮԠϮԠ ٮԠήԠ׮ԠԮԠ îԠϮԠ׮ԠîԠ îԠˮԠԠ ٭ؠ"٭" ٭ؠ" ϮԠ ŮԠ ̮Ԡ ԮԠ Š ٠Š, ǠΠ ϭӠՠ ̠  ԠΠ ٭ " Ҡ٠©Ӡ ŠϭĠβ ŠӠŠҠӠ  ԠӠ ԠԠ àŠҠ Ԯà"ˮà"נǧӠȠ"Ϡ Ԡ" Բ Ԡ à Š Ԡà*********z"wf"3Lg"g2>;n;w]ffn]Wz"f "]w}"]we "< "g"36L~"HwmLn;Dd*dD*z;n_w]w;n;n;n """r^]?n;]:"bFDz";f"Dg"fgfnDp;n;Dp+ff"""H;3|]c ""Diznm1**n;n;Dd/z;w]0`w]]w]w]w]w rn;DDn;n~]NgF*z"f"ff"ffyp;n;DDNffD*zX3L?ngL?"xDHH8x*:n;DDfff/z;w] ?`n;;nGwED-rn;ffn;n %16299,0:44# (D$;"BLOAD";A$1 *16300,0F ,I1100:I:YN$V -YN$"Q"60g 2KMAXPIX15u 7K0::11 <::10:"THANKS FOR THE SLIDESHOW"::10:"CATCH YOU LATER...":16300,0:YHIRES & CLEAR TEXT PAGE 1 6 16302,0B D$(4)c 2: NUMBER OF PICTURES AIRPORT.PIC,STOCK.PIC MAXPIX K0 KK1 A$ MOD((K2(K2))2.05)(K2) MOD140 #D$;"BLOAD";A$;",A$4000"ES THE NAMES OF FILES": :"THE PROGRAM WILL CONTINUOUSLY DISPLAY "::"PICTURE FILES DEFINED IN STATEMENT 10"::"PRESS RETURN TO SEE EACH NEW PICTURE" ::"PRESS Q & RETURN TO QUIT"::24:"PRESS RETURN TO START SLIDESHOW";YN$( :: SET . SLIDESHOW PROGRAM BY PAUL WYMAN 2/1/80:"APPLEPLOT SLIDESHOW"::"THIS PROGRAM WILL DISPLAY 'PICTURE'"::"FILES IN THE SEQUENCE DEFINED BY" :"DATA STATEMENTS 9 AND 10 IN THIS PROGRAM"::" 9--DEFINES NUMBER OF PICTURES"::" 10--DEFIN P>ĀbBDDD(x"  @p"@C( D`T*U+U*U*]*U.U*U*u*U*U*U*U+U*U*]*U.# Aժ͊P @a X"B<<88|d!@    DU*P(@ $6"   " "   "  @Cdd@`#"A$ $ՠժЪՂժԪՠժЪՂժ @C"`gdժЪՂժ   ՠժЪՂժ@p` @px@Cp)< $ՂժՊԪՠժЪՂժЪՂժժՊԪՠժЪՂժ> ժ`GՊԪՠժЪՂժ@CCՂժՊԪՠժЪՂժ`Gdd "@   !! " !d# "!$$I "`#@C`A  @  !$#"@"    @C"!D! "  !$ " !$$ "  !" >G@`dad>           $"A!pp>Ac'p` >AC#pp""dd#`T**]*U.!%e"`Gad>@ ԪՠժЪՂժ$ԪՠժЪՂժ dd"ժЪՂժ  $ՠժЪՂժ@'ЪՂժՊԪՠժЪՂժBЪՂժ ժՊԪՠժЪՂժ!&@CժՊԪՠժЪՂժ Ղժ!ՊԪՠժЪՂժ"@`d $@#* `G@Cpx@Cpp@c8p $@C @!$  $!"!@C $*B   "" $ " @ $ $ AC dd@!"@C 0:A$;:2300<LCFLAG0A$"@"A$(96)A$((A$)160)S(A$)0A$(128)|T$T$A$:460:(T$)FR(S$)ĺ(7);(T$)FRI(16336)(16336)2100 :S$""2350 VT(37)1:"REPLACE OLD MACRO (Y/N)? ";A$::A$"Y"23501:2090$uA$(17)LCFLAG0:2090.22854GA$(8)2280Y(T$)02100z(T$)FRĺA$;"_";A$;:2250(T$)FR(S$)ĺA$;".";A$;:2250A$;" ";A$;(T$)1T$"":2100T$(T$,(T$)1):2100 A$(13)Č958:LCFLAG5::FR::VT LCFLAG0#*900+4A$?9A$(27)2200R>A$"":A$;:A$nCA$">"A$(254):2287HA$"/"A$"\"RA$"-"A$"_"\A$"]"A$"["fA$(4)(S$)0T$T$S$:K1(S$):A$(S$,K,1):460::2100pA$(19)LCFLAG56TTL(1);:28:"TABLE 2 : ";256TTL(2)^34,9:10:"ENTER A MACRO KEY: ":800:(A$)0500S$W$(T,WN):FR256TTL(T)::S$""ĺ"OLD:";:410:A$"":T$"":VT(37)1FR0ĺ(UL$,FR); FR0(S$)0āI1(S$):".";: 8:23(T2)1FLAG0ĺ" ";&: TAB 6 SPACES: DEFINE MACROSc:::10:" DEFINE/CHANGE MACRO ":DH$;::" LOWER/C:";::"ESC+CTRL-S = ON +CTRL-Q = OFF"" SPECIAL KEYS: _ \ [ USE ESC + '-/]'":750'8::"BYTES FREE:";::" TABLE 1 : ";2-";:6$"SHIFT-";(77J);::I1ĺ" (";(J61);")";U)" = ";:S$W$(I,J29):410a.J:" "p3I111008I2:PFLAG0Ğ:" HIT A KEY TO NEXT TABLE ";:B756:::34,6:5:1020LPFLAGĺD$"PR#0":500QK141500V10000:500P0:1500:DH$$:I1:750:34,5:4f1500:"MACRO-TABLE ";I;" (";TTL(I);" BYTES LONG)"::J126650:K141J26:I0:10701500:I1ĺ"-";: (J64);::I1ĺ" (";(J32);")"; " = ";:S$W$(I,J):410JJ01:1500:I1ĺ"p:'VT(37)1:HT(36)1::3MLCFLAG0Ė23:"ON";:37::"OFF"sLCFLAG0Ė37:"OFF";:23::"ON"VT:HT: DISPLAY TABLES22:"DISPLAY ON (S) SCREEN OR (P) PRINTER ? ";:A$:A$PFLAG0:A$"P"1015 PFLAG1::2000800,/A27ĺ"ESC SEQUENCE RESERVED":800B4A31A64AA32d>A32WNA:T1:"CTRL-";:845pHWNA64MWN27T1ĺ(A64);" (";(A32);")";:860RWN27ĺ(A);:880\WN29ĺ"SHIFT-M";:T1ĺ" (=)";fWN30ĺ"SHIFT-N";:T1ĺ" (>)"; TO NEXT MACRO"V1500:2::"H";::" = '<-' DEL. ";::"U";::" = '->' COPY ";o:"M";::" = RET."1500:DH$: " (CTRL-@ TO ABORT)"::10)"ESC + ";:A$:"";:(A$)0ı*A(A$):T2:A32A59A60A63A64ĺA$;" KEY NOT USABLE":OPT1000,2000,3000,3220,60005K(16384):K128ıL16368,0:K141ıgK(16384):K128670w16368,0:I12:TTL0:J130:L(W$(I,J)):TTLTTLL(L0):TTL(I)TTL1::1500:2::"[";::" = ESC.";:17::">";::" = CHAIN<1> DISPLAY MACRO TABLES"?::6:"<2> DEFINE/CHANGE MACRO"mD:6:"<3> STORE MACRO TABLES IN MEMORY"I:6:"<4> EXIT PROGRAM"N:6:"<5> CLEAR MACRO TABLES"S::6:"SELECT AN OPTION ==>";:A$:A$XOPT(A$):OPT1OPT5500b128AA128& A32Ğ:(A64);::3 (A);:F  OPTIONS MENU| ::"[][][][][][][][][][][][][][][][][][][][]["; I118:40:"][";: "][][][][][][][][][][][][][][][][][][][]"; &4:6::" M A C R O B U I L D E R ":0::6:"(S$)1:340. |TTL(I)TTL1:I1I2::3307 500H (S$)0ĺ:` 64,(I1)5:(34); PFLAG1āK1(S$):A$(S$,K,1):460::450 DISP (34): A(A$):A254A126 A122A128Ğ:(A64);:: A128Ğ:"@";:: A>G@`dad>"@@#1.N*10:868:" ENDING PT FOR PLOT #1: ";E1;IN," ";VT$:VT$QZ$308`N.934:936:TO300{N0E1(VT$):E1S1E1S1N210:868:" ENDING PT FOR PLOT #1: ";E1N411:868:12:868:" STARTING PT FOR PLOT #2: ";S2;N6" ";VT$:VT$QZ$3S$)::S1328MGG$"PLOTTING RANGE":32::13);"PLOTTING RANGE":"(RTN SKIPS ENTRY AND / RETURNS TO MENU)":9:" STARTING PT FOR PLOT #1: ";S1;M$" ";VT$:VT$QZ$298M&934:936:T0292M(S1(VT$):(9):868:" STARTING PT FOR PLOT #1: ";SANY CHANGES? (Y/N) ";VT$:VT$"Y"234*L20L:RR3:10);"DATA ENTRY AND EDITING":11);"(PRESS RTN FOR MENU)":(5):"1. PLOTTING RANGE"::"2. DATA ENTRY "::"3. DISPLAY DATA "::216,0:926L(22):"SELECTION NUMBER: ";:S$:S$RT$20 MS(TER Y-AXIS LABEL: ":YL$:"";VT$:VT$QZ$260AK932:YL$(VT$,19)K:"ENTER THE TITLE OF THIS GRAPH: ":LA$:"";VT$:VT$QZ$266K932:LA$(VT$,32)K :"EXTENDED HORIZ. GRID LINES? (Y/N) ";YT$;:" ";VT$:VT$QZ$272K 932:YT$VT$"L:"VT$QZ$242+J932:NY((VT$)):NY0NY1?OI!$$*-%$6&J %$$< O -O $$N!$$tH1333 !$$* - / !??2 I!$$4333-- - $;?$-- $-6;? $ - $ Rfz.BVj~ 2FZn"6J^r %%-....>76???$I $4 I$4 H 4 !4 $$$--'466& ??I -- ;? )-066&J - ;. 5'J@` B`.@-@HI@J(@LWC@LWC(.@)ii? @-@)i@@-@)JJJJi@@ B(`G@ `B@ ` $@i1@LB$@8(1@`/@81@`&@81@`%@81@`'@'$@.(@)@LTB(@)@$@`'@8(@F@(@)@)@LB(@mF@(@m)@)@` B'@$@`$@`'@I'@`(@8*@-@)@+@.@*@8(@-@+@)@.@`-@8/.@81@` BI`2@ 2 B X(hhh`$@%@&@/@'@#@(@)@*@+@PTWR@,@ B  B`%@C@`&@i`/@ i`m$@`0@`#@0@=4@0@` B C(@*@)@+@ \C`'@8(@3@(@)@)@LA(@m3@(@m)@)@`#@81@1@`'@@ FN@H@O@HI3I <@  @ (P. HHH@ A C  ZA cA wA A A0@ UBL@ A0@ A A#@#@ A1@ƭ'@#@ B A1@е B B1@ B 2B'@#@/@ cC B1@А/@&@ B1@Ѐ&@%@ (B1@L^@ BQS          $:(VT$)13488^KB141488&^I:C^KB(16384):KB127486d^16368,0:255:0:0:1002:l^:^:16304,0:16297,0:16300,0:16302,0:2:1:0:G1$"N":G2$"N":I(0):PI1ML0844^496:526 _K1:T0:IS1E1:Y1(I)0G1$"Y"DP:I$(I):(4(I$)):I$;:X(X(I)100.5)100:X$(X):K1(X$):(X$,K,1)"."ĺ13K);X;:474u]K:12(X$));X;]Y(Y(I)100.5)100:Y$(Y):K1(Y$):(Y$,K,1)"."Ė(23K):Y:480]K:(22(Y$)):Y ^KB(16384):KB160Ĺ16368,0:VTI)Y2(I)::DP100:VTN2:T1{\24:" (SPC KEY TO STOP/START--RTN FOR MENU)":672:" ";:53004,255:53009,8:53008,7:53007,0\5:868::868::868:32,9:33,30::6:4);"PLOT ";SET;" (";VT;" PTS)":"POINT# X(I) Y(I)":34,8:35,22:9_]ITSPLAYING DATA FOR: ":2);" PLOT 1 (";N1;"PTS)":7);" OR ":2);" PLOT 2 (";N2;"PTS) SELECT (1 OR 2)?";:" ";SE$:SE$QZ$276[SE(SE$):SE1SE2ĺ"":452[SE1āI1100:X(I)X1(I):Y(I)Y1(I)::DP100:VTN1:T1:462\I1100:X(I)X2(I):Y(%ZT41:I10001:T4T41:Y2(I)0Ă=ZT1101T11:T3100UZT2101T21:T4100ZS1T1:E1100T3:S2T2:E2100T4:E10S10ZE20S20ZN1100T3:N2100T4:23:868:276ZT1:454:488::276}[:(2):14);"DISPLAY DATA":(5):"DI18)::"WAIT":_Y23:868:11)::"WAIT":::SE1āI1100:X1(I)X(I):Y1(I)Y(I)::TN1:438YI1100:X2(I)X(I):Y2(I)Y(I)::TN2YT10:I1100:T1T11:Y1(I)0ĂYT20:I1100:T2T21:Y2(I)0ĂYT31:I10001:T3T31:Y1(I)0Ă$):(X$,K,1)"."Ė(13K):21:X(I):420AX:(12(X$)):21:X(I)}X18):21:"";VT$:VT$"/"Y(I)(VT$):Y$(Y(I)):424X::352X18):21:868:K1(Y$):(Y$,K,1)"."Ė(23K):21:Y(I):912: Y:(22(Y$)):21:Y(I):912::23:0I100āJ0I1:X(J)J::408:352ZWI0I100Ė(6):21:"ENTRY OUTSIDE RANGE":352hW410:352WII100:1:21:868:(4((I))):21:I:X$(I):X(I)I:414::352WI(I$):8):21:"";T:X(I)(T)%XX$(X(I)):4):21:868:K1(X:(1):21:" ":352-VI$"DY"I$"DXY"432mVI$"DY"İ356:I(I$)99:Y(I)Y(I1)::(1):21:" ":352VI$"DXY"202VI$"DXY"İ356:I(I$)99:X(I)X(I1):Y(I)Y(I1)::(1):21:" ":352V402#W(I$,1)"S"I((I$,(I$)1)):I(I$)11:X(I)X(I1)::410:352:U|I$"IY"I$"IXY"432vU~I$"IY"İ356:I100(I$)11:Y(I)Y(I1)::410:352UI$"IXY"432U356:I100(I$)11:X(I)X(I1):Y(I)Y(I1)::410:352U432VI$"DX"İ356:I(I$)99:X(I)X(I1):I$,1)"L"İ466::255:370 Tp372YTrT0T100ĉ:23:868:16);"(/ ENDS)";:348:352Tt(I$,1)"L"(T0T100)IT:404TvI$"IX"I$"IY"I$"IXY"I$"DX"I$"DY"I$"DXY"402TxI$"DX"I$"DY"I$"DXY"390UzI$"IX"İ356:I100>Sf(I$)0(I$)100Ė(5):21:"ENTRY OUTSIDE RANGE"::352DShYSjT(I$):T3T3Sl1:21:868:(4T):21:I$:(I$,1)"L"T((I$,2)):T0T100ĉ:23:5);"(SPC BAR START/STOP-RTN TO END)";:348:150:22Sm(I$,1)"L"T0T1Tn(( / ENDS)"RW32,32:10:"EDITING":"COMMANDS"::" IX-":" IY-":" IXY-":" DX-":" DY-":" DXY-":" L-":" S-":348:350R\33,25:32,7:34,9:35,22:R^216,0:354R`356:362Rb"":352RdI0:1:21:"";I$:I$"/"ġ:4326"QQSE(SE$):SE1SE2ĺ"":334aQRDP100:SE1āI1100:X(I)X1(I):Y(I)Y1(I)::TN1:6:342QTDP100:I1100:X(I)X2(I):Y(I)Y2(I)::TN2:6RV868::868::868:8:12);"PLOT ";SET;" (";T;" PTS)":8);"POINT# X(I) Y(I)":24:14);"276#PHS2GG$"DATA ENTRY":32:334HPJS3GG$"DISPLAY DATA":32:452[PL22:868:280PN:(2):15);"DATA ENTRY":(5):"ENTERING DATA FOR:":2);"PLOT 1 (";N1;" PTS)":7);"OR":2);"PLOT 2 (";N2;" PTS) SELECT (1 OR 2)? ";:"";SE$:SE$QZ$2716O8934:936:T0310OO:S2(VT$):12:868:" STARTING PT FOR PLOT #2: ";S2O<13:868:" ENDING PT FOR PLOT #2: ";E2;O>" ";VT$:VT$QZ$276O@934:936:TO318OBE2(VT$):E2S2E2S2PD13:868:" ENDING PT FOR PLOT #2: ";E2:   à͠àӠӠΠ٠ĠɠӠàҠŠŠΠŠĠɠԠϠҠ`ĠҠӬî͠àҠϠ%͠àҠϠӠàŠĠϠŠ٠`0"àӠɠҠàݠԠ`-`0    А10FN@H@O@HI3I <@  @ (P. HHH@ A C  ZA cA wA A A0@ UBL@ A0@ A A#@#@ A1@ƭ'@#@ B A1@е B B1@ B 2B'@#@/@ cC B1@А/@&@ B1@Ѐ&@%@ (B1@L^@ BQS:YM0:YM$"0"1_(MT$"Y"YR$"Y")E1XBXBE1:T1\_(Y1(I))YBYB(Y1(I)):YX$(YB):T1_(Y1(I))(YM)YM(Y1(I)):YM$(YM):T1_(X1(I))XBXB(X1(I)):XX$(XB):T1_XM(XM$):(X1(I))(XM)XM(X1(I)):XM$(XM):T1_:512:`EATED,"::"RUN IT TO SET-UP APA INSTEAD OF LOADAPA"I D$(4):Q$(34)X "D$;"PR#0"~ ,D$;"IN#0": TURN OFF MACRO-SCED 6D$"OPEN LINKAPA.EX" @D$"WRITE LINKAPA.EX" J"MON C,I" T"SAVE APA INSTRUCTIONS" ^"LOAD LOADAPA"& h"312 PRINUST IN":" CASE)"K ::"HAVE CONDITIONS 1 & 2 BEEN MET (Y/N)?";A$: A$"Y"ĺ"DO ITEM 1 & 2 ABOVE AND RERUN THIS":"PROGRAM.": ::"INSERT DOS TOOL KIT BACKUP DISKETTE":"AND HIT ";A$4 :::"AFTER THE 'LINKAPA' PROGRAM IS CRSAGE NOTES"5 :"ENTER 'C' OR 'N':";A$:A$"N"500F A$"C"200S 4:958 ::"TO CREATE A 'LINKAPA' PROGRAM, YOU'LL":"NEED TO:": "(1) ACTIVATE MACRO-SCED": "(2) HAVE READY A BACKUP COPY OF THE":" DOS TOOL KIT DISKETTE (J d INSTRUCTIONS FOR7n USING DOS TOOL KIT'SRx APA WITH MACRO-SCEDXm FOR DOS 3.3u:" USING APPLESOFT PROGRAMMER'S ASSISTANT":19:"WITH":16:"MACRO-SCED" ::"(C) TO CREATE 'LINKAPA' PROGRAM"::"(N) TO SEE U   ܡˠàӠЮӠԮàϭĮð֠ð̠ðĠߠðԠ͠ɠ˧ӠƳӠѠРӮ٠ӠҀʠ߳ ҠҠڠԠŠҠϠǠנððԮàðРðȠðؠ4Ҡ٠Юà͠ܡŠՠޠҮ͠Π˧ӠӠƠӠЮ֠ܠ  ORA ˠҠʠРĠҠˠϠҮϠԠҮݫ ٠ŠӮ BCC NXTҠԠҠήΠŠҮݫ͠٠ȠϠӮNYpSTA ԠҠҠ ĠҠˠϠԠ̠Ϡŭ٠̠٠ӠԮРŠԠŠίƠȮ BUFFERέŠҮɠԠӮҠŮݫӬҠ̬ŠҠĠΠƣ AT '׬ӬڠŠҠլ̬ҬĠŠṶ̊ӽҠŠΠƠҠϠĠƠŮITER`:ë׬ӬڠŠҠԠӮ٠٠ϠԠҮΠέŮ֠ŠˠҠίƠȮ 8٠ƠӠҠ ԭРҠԭ͠Šޠ٠ҮĠŠԠҾ23CH ̠̭ӠѫӠҠҽŠŠҠŠҠϠĠƠŮERS "STANDARD GRAPH W/OVERLAY":72:OV2:BA0:GVT:74]hGG$"BAR CHART":72:OV1:BA1:GVT:74lGG$"GRAPH W/BAR OVERLAY":72:OV2:BA1:GVT:74pGG$"MULTIPLE BAR CHART":72:OV2:BA1:GVT:74tGG$"SCATTER CHART":72:OV1:BA0:HQ1:G1:74vGG:"ON"::88*V21:33):20::"OFF":_X22:"ENTER SELECTION NO.: ";:VT$:VT$(13)20ZVT(VT$):VT9VT0Ģ22:(1):868:88\:HQ0:VT96,100,104,108,112,116,118,124,140`GG$"STANDARD GRAPH":72:OV1:BA0:OV1:BA0:GVT:742dGG$R CHART OVERLAY"::"5. MULTIPLE BAR CHART"::"6. SCATTER CHART"::"7. EXCHANGE PLOTS":M"8. CHANGE COLOR OF GRAPHS"::"9. OVERLAY ADDITIONAL GRAPHS(ON/OFF)"::G7HQ0Ģ(2G2)::G;"."::84RT1HQ1Ģ(14)::"6.": TML1Ģ21:30):20:22:"========> ";::GG$;::"?(RTN)";:VT$:(VT$)13ıBI:90J:TG:JHQ:RR2:9);"GRAPH FORMAT SELECTION":10);"(PRESS RTN FOR MENU)":(4):"1. STANDARD GRAPH"::"2. STANDARD GRAPH WITH GRAPH OVERLAY"::"3. BAR CHART":ZL"4. GRAPH WITH BA0<22:(1):868:28?>GG$"LEAVE":64:216,0:::D$"FP"@::8:17)::"WARNING"::10:4);"YOU ARE ABOUT TO ";GG$;" APPLE PLOT":12:14);"AND LOSE DATA":23:2);"(PRESS ESC TO ";GG$;" / RTN FOR MENU)";:VT$A(VT$)27ıF:208H0(0SE5GG$"DISPLAY GRAPH":32:492M4GG$"SAVE DATA TO DISK":32:852x6GG$"RECALL DATA FROM DISK":32::8848GG$"CLEAR FOR NEW PLOT":32:GG$"CLEAR":64:::FILE$" ":(10):17);::"CLEARING":::RS1:6:GG$"PRINT GRAPH":32:940:2#SE$"Q"620 $SE38,40,42,44,46,52,54,56,588 %60a &GG$"GRAPH FORMAT SELECTION":32:74 (GG$"X-AXIS PARAMETERS":32:146 *GG$"Y-AXIS PARAMETERS":32:234 ,GG$"DATA ENTRY AND EDITING":32:276.ML0PI0GG$"DISPLAY GRAPH":32:49DATA FROM DISK"::"8. CLEAR FOR NEW PLOT"::"9. PRINT THE GRAPH" 23:6);"(PRESS Q TO EXIT APPLE PLOT)":VT(0):22:"ENTER SELECTION NO.: ";:SE$:SE(SE$)::35 22:"========> ";::GG$;::"?(RTN)";:VT$:(VT$)13ı ":RR60,74,276 20 1062D ::RR1:15);"APPLE PLOT MENU":RS0:MT$"Y"XM1 (3):"1. GRAPH FORMAT SELECTION"::"2. X-AXIS PARAMETERS"::"3. Y-AXIS PARAMETERS"::"4. DATA ENTRY AND EDITING":B "5. DISPLAY GRAPH"::"6. SAVE DATA TO DISK"::"7. RECALL $"0":YB1:XB1:YX1:XX1:YX$"1":XX$"1":XT$"N":YT$"N":YF$"N":RT$(13):S10:E10:S20:E20:YR$"N":YS$"80":YE$"90":C(1)7:C(2)6:G2:TM20:MT1:MT$"N" D(10):D(1)74:D(2)9:D(3)3:D(4)157:D(5)184:D(6)4:D(7)74:D(8)74:D(9)74:D(10)72:RS1ćVT$: 4,DISK WRITE PROTECTED,6,FILE NOT FOUND,8,I/0 ERROR--CHECK YOUR DISK,9,DISK FULL,10,FILE LOCKED,11,SYNTAX ERROR,13,MIXING FILE TYPES:I06:ER$(I,0):ER$(I,1): NX10:NY10:YL$"Y":XL$"X":LA$"UNFORMATTED GRAPH":OV2:YM0:XM0:YM$"0":XM8156,113:8157,73:16297,0:16302,0:16304,0R"MAXFILES1":926 D$(4):232,0:233,68:X(100),Y(100),X1(100),X2(100),Y1(100),Y2(100),TX(40),ER$(6,1): D,J,F,M,A,M,J,J,A,S,O,N,D,J,F,M,A,M,J,J,A,S,O,N,D,J,F,M,A,M,J,J,A,S,O,N:I136:!                                       !!! ! ! ! ! !!!!!!!201,186,208,232,160,35,177,30,201,207,208,224,165,31,41,15,133,0,32,149,254,32,234,3,96,169,0,133,0,96 172,192,3,185,13,200,141,192,3,96:I961970:K:I,K: (4);"RUN APPLEPLOT"(4);"PR#0"#(4);"IN#0"+:U(10):12)::"LOADING APPLE PLOT":x"NOMON C,I,O":"MAXFILES 1"J672729:K:J,K:J:12n 169,0,133,30,169,192,133,31,230,31,165,31,201,200,176,37,160,4,177,30,201,4,208,240,160,19,177,30, @?`o~?~~~~~_{o)r@x~?~~~}~_?LsN{9Oq G9Lc^c|GyO\ossõLD?x@@wooO?Os{gy|Os~Ap~q#x}E8`@?_~~}ɠ~wAo_~}|~ ] ГT TEXT: ";M2$:"CHANGE TO: ";:" ";VT$:FF1:932:VT$QZ$M2$(VT$,39):"EXTENDED VERTICAL GRID LINES? (Y/N): ";XT$;:"";VT$:VT$QZ$VT$"Y"VT$"N"XT$VT$932::"ANY CHANGES? (Y/N): ";VT$:VT$"Y"148qI20: SPLIT" ";VT$:AA1:932:VT$QZ$M1$(VT$,39)@P21VT$"Y":220LVT$"N":"USE LABEL #2? (Y/N): ";VT$;:" ";VT$:932:VT$QZ$VT$"Y"P20VT$"Y"P21P21::"CHANGE LABEL #2? (Y/N): ";VT$:932:VT$QZ$226JP21VT$"N"ĺ:"CURREN(VT$,34)P11VT$"Y":210+VT$"N"v:"USE LABEL #1? (Y/N): ";VT$;:" ";VT$:932:VT$QZ$VT$"Y"P10VT$"Y"P11P11::"CHANGE LABEL #1? (Y/N): ";VT$:932:VT$QZ$216)P11VT$"N"ĺ:"CURRENT TEXT: ";M1$:"CHANGE TO: ";:31@:"ENTER MAX X-AXIS VALUE: ";XB;:" ";VT$:VT$QZ$194^932:XB((VT$)):XX$VT$:"ENTER MIN X-AXIS VALUE: ";XM;:" ";VT$:VT$QZ$200932:XM$VT$:XM((XM$)):"ENTER X-AXIS LABEL: ":XL$:"";VT$:VT$QZ$206932:XL$12NX12:YE$(12(YS$)):XB129V$"/"YR$"N"184TVT$QZ$VT$"/"200zV$"N"İ932:V$QZ$VT$QZ$200VT$V$:932:"ENTER NUMBER OF X-AXIS DIVISIONS: ";NX;:" ";VT$:VT$QZ$188932:NX((VT$)):NX1NX1NX31NX("0"VT$,2)!932:V$"N"168z:"ENTER ENDING YEAR ";"'"(YE$,2);:" ";VT$:VT$QZ$VT$"/"YE$("0"VT$,2)V$"N"YR$"N"(YS$)(YE$)YE$(100(YE$))V$"N"YR$"Y"NX((YE$)(YS$)):XBNX:XM0 V$"N"YR$"Y"ĭNX"N"MT$"N":1605VT$V$:932:V$QZ$ĭMT$"Y"200:"IS THIS A YEARLY PLOT? (Y/N) ";YR$;:" ";VT$:932:V$VT$:YR$"Y"V$QZ$168V$"N"YR$"Y"XM0 V$"N"YR$"Y"::"ENTER BEGINING YEAR ";"'"YS$;:" ";VT$:VT$QZ$VT$"/"YS$T MONTH (1-12) ";MT;:" ";VT$:932:VT$QZ$MT(VT$):MT1MT1V$"Y"MT$"Y"V$"/"ĺ:"NUMBER OF MONTHS (30 MOS. MAX): ";NX;:" ";VT$:932:VT$QZ$NX(VT$):XBNX:XM0:NX30NX1NX12:XBNXV$"Y"200V$"N"MT$"Y"XM0V$L0:74ML1:7488t:12);"X-AXIS PARAMETERS":3:1);"(RTN SKIPS ENTRY AND / RETURNS TO MENU)":34,4:6:"IS THIS A MONTHLY PLOT? (Y/N) ";MT$;:" ";V$:V$"N"V$"/"156CV$"Y"MT$"Y"V$"/"MT$"Y":YR$"N"::"ENTER NO. OF 1S;:" ";VT$:VT$QZ$İ134:C(1)(VT$):C(1)0C(1)7C(1)7GT::5);"ENTER COLOR # FOR PLOT 2: ";C(2);:" ";VT$:VT$QZ$İ134:C(2)(VT$):C(2)0C(2)7C(2)674VT$"/"ġ:74GG$"OVLY ADDITIONAL GRAPHS":32:GT:HQJ:ML1M5);"PLOT COLORS":1);"(PRESS RETURN TO SKIP AND / FOR MENU)":19:8);"BLACK=0 OR 4 WHITE=3 OR 7":21:8);"GREEN=1 ORANGE=5":23:8);"VIOLET=2 BLUE=6":2:47,334:4,3633:33,4736<GT:HQJ:8:5);"ENTER COLOR # FOR PLOT 1: ";C(1)$"EXCHANGE PLOTS":72:22:(11)::868:"EXCHANGING PLOTS";::I0100:X(I)X1(I):X1(I)X2(I):X2(I)X(I):Y(I)Y1(I):Y1(I)Y2(I):Y2(I)Y(I):wVTN1:N1N2:N2VT:GT:HQJ:VTS1:S1S2:S2VT:VTE1:E1E2:E2VT:74|GG$"CHANGE COLOR OF GRAPHS":72::1`@?|o~?~~q~?^c{1osg9^_g{sygso_os=Nw @?x_~~}owgO?ww ﳐ@o~|~ ?`xw@?p`~}|~?`xw@?~~?|~gO??Os|~<~Opy`|?0B0x80Bƴp`?@|~`p@ⵍ?@xw@?`o@_~}|@ܵ i @?po~?~~a3N{n{=Osg;Ng9s{s|Owy~O_~y}y| @`~ @xw@?`o@_~}| (@?`o~?~~A>p@xx@x@pp`|@G8pǴҵԵ@?~?~~~}o ?~p`p`wOsOO?gsyLg|D||~lZ?`w@?|ox_~}|~`L ?`xw@?xp~?|~??~s3~?~ssy|oo@?_~~} õw@o_~}|~lV e` B`.@-@HI@J(@LWC@LWC(.@)ii? @-@)i@@-@)JJJJi@@ B(`G@ `B@ `$@i1@LB$@8(1@`/@81@`&@81@`%@81@`'@'$@.(@)@LTB(@)@$@`'@8(@F@(@)@)@LB(@mF@(@m)@)@` B'@$@`$@`'@I'@`(@8*@-@)@+@.@*@8(@-@+@)@.@`-@8/.@81@` BI`2@ 2@Р B X(hhh`$@%@&@/@'@#@(@)@*@+@PTWR@,@ B  B`%@C@`&@i`/@ i`m$@`0@`#@0@=4@0@` B C(@*@)@+@ \C`'@8(@3@(@)@)@LA(@m3@(@m)@)@`#@81@1@`'@ FN@H@O@HI3I <@  @ (P. HHH@ A C  ZA cA wA A A0@ UBL@ A0@ A A#@#@ A1@ƭ'@#@ B A1@е B B1@ B 2B'@#@/@ cC B1@А/@&@ B1@Ѐ&@%@ (B1@L^@ BQS @?p~?~~~}~_?^{n{=osg;^_g=^;sy~_{oO˿ ˿?`xw@?~~}|C|1_~{;( ?p~~wo_s{>~g{s|_qyHh~wCo_~}|~?`w@?`o@_~}|~@a~?~~~}~_?~xoww?_o9^{{y~wso_os=n@?~_~~}ox?bss +`@?`o~?~|~~G{oO;<>?`xw@|x~}|y_꽌?`xw@?~~?|~goGy>~g[<w\'q>ȥ&)|wGo_~}?|~x|p`&?`xw@?`o@_~}|p` H@o~?~~~}~_?@|Aoww?@_o^{{y~wso_os=p@?|_~~}gs?fssJ@@?`o~|~@J&6?`xw@xp~}|?`xw@?~~?|~gO?p|~OY=~g^9w=N|'s7{<'?|wOo_?~}|~px`@?`xw@?`o@_~}|`f(I$)0(I$)100Ė(5):21:"ENTRY OUTSIDE RANGE"::352DShYSjT(I$):T3T3Sl1:21:868:(4T):21:I$:(I$,1)"L"T((I$,2)):T0T100ĉ:23:5);"(SPC BAR START/STOP-RTN TO END)";:348:150:22Sm(I$,1)"L"T0T1Tn(I$, ENDS)"RW32,32:10:"EDITING":"COMMANDS"::" IX-":" IY-":" IXY-":" DX-":" DY-":" DXY-":" L-":" S-":348:350R\33,25:32,7:34,9:35,22:R^216,0:354R`356:362Rb"":352RdI0:1:21:"";I$:I$"/"ġ:432>SQQSE(SE$):SE1SE2ĺ"":334aQRDP100:SE1āI1100:X(I)X1(I):Y(I)Y1(I)::TN1:6:342QTDP100:I1100:X(I)X2(I):Y(I)Y2(I)::TN2:6RV868::868::868:8:12);"PLOT ";SET;" (";T;" PTS)":8);"POINT# X(I) Y(I)":24:14);"( /#PHS2GG$"DATA ENTRY":32:334HPJS3GG$"DISPLAY DATA":32:452[PL22:868:280PN:(2):15);"DATA ENTRY":(5):"ENTERING DATA FOR:":2);"PLOT 1 (";N1;" PTS)":7);"OR":2);"PLOT 2 (";N2;" PTS) SELECT (1 OR 2)? ";:"";SE$:SE$QZ$276"O8934:936:T0310OO:S2(VT$):12:868:" STARTING PT FOR PLOT #2: ";S2O<13:868:" ENDING PT FOR PLOT #2: ";E2;O>" ";VT$:VT$QZ$276O@934:936:TO318OBE2(VT$):E2S2E2S2PD13:868:" ENDING PT FOR PLOT #2: ";E2:276N*10:868:" ENDING PT FOR PLOT #1: ";E1;IN," ";VT$:VT$QZ$308`N.934:936:TO300{N0E1(VT$):E1S1E1S1N210:868:" ENDING PT FOR PLOT #1: ";E1N411:868:12:868:" STARTING PT FOR PLOT #2: ";S2;N6" ";VT$:VT$QZ$316::S1328MGG$"PLOTTING RANGE":32::13);"PLOTTING RANGE":"(RTN SKIPS ENTRY AND / RETURNS TO MENU)":9:" STARTING PT FOR PLOT #1: ";S1;M$" ";VT$:VT$QZ$298M&934:936:T0292M(S1(VT$):(9):868:" STARTING PT FOR PLOT #1: ";S1. CHANGES? (Y/N) ";VT$:VT$"Y"234*L20L:RR3:10);"DATA ENTRY AND EDITING":11);"(PRESS RTN FOR MENU)":(5):"1. PLOTTING RANGE"::"2. DATA ENTRY "::"3. DISPLAY DATA "::216,0:926L(22):"SELECTION NUMBER: ";:S$:S$RT$20 MS(S$) Y-AXIS LABEL: ":YL$:"";VT$:VT$QZ$260AK932:YL$(VT$,19)K:"ENTER THE TITLE OF THIS GRAPH: ":LA$:"";VT$:VT$QZ$266K932:LA$(VT$,32)K :"EXTENDED HORIZ. GRID LINES? (Y/N) ";YT$;:" ";VT$:VT$QZ$272K 932:YT$VT$"L:"ANY$QZ$242+J932:NY((VT$)):NY0NY1?OI!$$*-%$6&J %$$< O -O $$N!$$tH1333 !$$*-=I - / !??2 I!$$4333-- - $;?$-- $-6;? $ - $ Rfz.BVj~ 2FZn"6J^r %%-....>76???$I $4 I$4 H 4 !4 $$$--'466& ??I -- ;? )-066&J - ;. 5'JN1NXBA1E1NX'c$N2NXBA1E2NXc&YE$(NX((YS$,2))):DX231NX:DY151NY:OF76:YM(YM$):XM(XM$):G1$"Y"OF0:DYDY2:554c(G2$"Y"OF0:DYDY2c*ML1682c,44,444,83OF:44,83OF279,83OF:44,83OF44,159:3:YT$"Y"564d0T$"0",b(MT$"Y"YR$"Y")E2XBXBE2:T1Wb(Y2(I))YBYB(Y2(I)):YX$(YB):T1b(Y2(I))(YM)YM(Y2(I)):YM$(YM):T1b(X2(I))XBXB(X2(I)):XX$(XB):T1b(X2(I))(XM)XM(X2(I)):XM$(XM):T1b:512:b"VT$" R"ıc#IT DATA":13:9);"YMAX = ";YB;:(24):"XMAX = ";XB:9);"YMIN = ";YM;a T1VT$" R"Ė(24):"XMIN = ";XM:16:17);"GRAPH ";K:1062:16300,0:16297,0:16302,0:16304,0a aOV1546a530:546bK2:T0:IS2E2:Y2(I)0G2$"Y":YM0:YM1068:VT$" R"ıD`T1(MT$"Y"YR$"Y")NXXB:E1NXNXE1:XBNXr`T1(MT$"Y"YR$"Y")ĭE2NXNXE2:XBNX`T1MT$"Y"NX30NX30:XB30:E130:E230`T1YR$"Y"NX12NX12:E112:E212:XB12FaT1ė::10:5);"GRAPH SCALE CHANGED TO F0:YM$"0"1_(MT$"Y"YR$"Y")E1XBXBE1:T1\_(Y1(I))YBYB(Y1(I)):YX$(YB):T1_(Y1(I))(YM)YM(Y1(I)):YM$(YM):T1_(X1(I))XBXB(X1(I)):XX$(XB):T1_XM(XM$):(X1(I))(XM)XM(X1(I)):XM$(XM):T1_:512:`(VT$)13488^KB141488&^I:C^KB(16384):KB127486d^16368,0:255:0:0:1002:l^:^:16304,0:16297,0:16300,0:16302,0:2:1:0:G1$"N":G2$"N":I(0):PI1ML0844^496:526 _K1:T0:IS1E1:Y1(I)0G1$"Y":YM:I$(I):(4(I$)):I$;:X(X(I)100.5)100:X$(X):K1(X$):(X$,K,1)"."ĺ13K);X;:474u]K:12(X$));X;]Y(Y(I)100.5)100:Y$(Y):K1(Y$):(Y$,K,1)"."Ė(23K):Y:480]K:(22(Y$)):Y ^KB(16384):KB160Ĺ16368,0:VT$:Y2(I)::DP100:VTN2:T1{\24:" (SPC KEY TO STOP/START--RTN FOR MENU)":672:" ";:53004,255:53009,8:53008,7:53007,0\5:868::868::868:32,9:33,30::6:4);"PLOT ";SET;" (";VT;" PTS)":"POINT# X(I) Y(I)":34,8:35,22:9_]ITDPAYING DATA FOR: ":2);" PLOT 1 (";N1;"PTS)":7);" OR ":2);" PLOT 2 (";N2;"PTS) SELECT (1 OR 2)?";:" ";SE$:SE$QZ$276[SE(SE$):SE1SE2ĺ"":452[SE1āI1100:X(I)X1(I):Y(I)Y1(I)::DP100:VTN1:T1:462\I1100:X(I)X2(I):Y(I)T41:I10001:T4T41:Y2(I)0Ă=ZT1101T11:T3100UZT2101T21:T4100ZS1T1:E1100T3:S2T2:E2100T4:E10S10ZE20S20ZN1100T3:N2100T4:23:868:276ZT1:454:488::276}[:(2):14);"DISPLAY DATA":(5):"DISPL::"WAIT":_Y23:868:11)::"WAIT":::SE1āI1100:X1(I)X(I):Y1(I)Y(I)::TN1:438YI1100:X2(I)X(I):Y2(I)Y(I)::TN2YT10:I1100:T1T11:Y1(I)0ĂYT20:I1100:T2T21:Y2(I)0ĂYT31:I10001:T3T31:Y1(I)0Ă%Z(X$,K,1)"."Ė(13K):21:X(I):420AX:(12(X$)):21:X(I)}X18):21:"";VT$:VT$"/"Y(I)(VT$):Y$(Y(I)):424X::352X18):21:868:K1(Y$):(Y$,K,1)"."Ė(23K):21:Y(I):912: Y:(22(Y$)):21:Y(I):912::23:18)I100āJ0I1:X(J)J::408:352ZWI0I100Ė(6):21:"ENTRY OUTSIDE RANGE":352hW410:352WII100:1:21:868:(4((I))):21:I:X$(I):X(I)I:414::352WI(I$):8):21:"";T:X(I)(T)%XX$(X(I)):4):21:868:K1(X$):1):21:" ":352-VI$"DY"I$"DXY"432mVI$"DY"İ356:I(I$)99:Y(I)Y(I1)::(1):21:" ":352VI$"DXY"202VI$"DXY"İ356:I(I$)99:X(I)X(I1):Y(I)Y(I1)::(1):21:" ":352V402#W(I$,1)"S"I((I$,(I$)1)):I0)11:X(I)X(I1)::410:352:U|I$"IY"I$"IXY"432vU~I$"IY"İ356:I100(I$)11:Y(I)Y(I1)::410:352UI$"IXY"432U356:I100(I$)11:X(I)X(I1):Y(I)Y(I1)::410:352U432VI$"DX"İ356:I(I$)99:X(I)X(I1)::(1)"L"İ466::255:370 Tp372YTrT0T100ĉ:23:868:16);"(/ ENDS)";:348:352Tt(I$,1)"L"(T0T100)IT:404TvI$"IX"I$"IY"I$"IXY"I$"DX"I$"DY"I$"DXY"402TxI$"DX"I$"DY"I$"DXY"390UzI$"IX"İ356:I100(I$)31C1J7,C27:JJ1::AA1EE1820:s.AA0EE1834Hs0P20842zs2HXC3:VYC4:TM20:T2807(M2$):C3TC3T1s4AA1İ962:0:J0:I1(M1$):((M1$,I,1))31C1J7,C27:JJ1:s6HX279(M1$)7HX279(M1$)7 t8AA1C1HX:C2VY:T1ZYYDET4:MMM:C(K):CH0MM(MM)Ur TX(VT)ZT,83OFMMTX(VT)TZ,83OFMM:M\r"Ifr#805mr$Kwr%926r&P10816r(HXC1:VYC2:T2807(M1$):C1TC1T1r*4:I07:C1,C2IC1(M1$)7,C2I:'s,3:J0:I1(M1$):((M1$,I,1)(I)0VT1ZTDXKq M1UDX:TX(VT)ZTM,83OFTX(VT)ZTM,YV:M:7:802qC(K):CH1:ZYY(I):ZT.35DX:X(I)0VT1ZTDXqINXZT.35DXqTZ.35DX:INXTZ0:YR$"Y"INX2TZ.35DXqX(I)0TZ.65DXqY(I)0ZYY(I):CH1'rM83OFST:768cp7:TX(VT).35DX,83OFTX(VT).35DX,YVTX(VT).35DX,YVTX(VT).35DX,83OF:768p7:TX(VT).35DX,83OFTX(VT).35DX,YVTX(VT),YVTX(VT),83OFpU.7:C(K):INXYR$"Y"U.35pX(I)0VT1U.35pK1784qZT.35DX:XISME2:X(I)X2(I)XM:Y(I)Y2(I)YM:I:TE2:SMS2XoC(K):ISMT:YR$"Y"X(I)1802|oVTI:YR$"Y"VTI1:VT0VT1oYV83OFY(I)YD:X(I)0VT1752oX(I)0Y(I)0802oINXĭYR$"Y"764o758 p7:44,YV44.35DX,YV44.35DX,YR$"Y"X(I)17223nX(I)XD44,83OFY(I)YD:nIDn725PnK:PS2YnPS2cn926qnBA1732zn806nKPSOV:K1TE1:SMS1:736nTE2:SMS2nHCC(K):YR$"Y"XM1nK1āISMT:X(I)X1(I)XM:Y(I)Y1(I)YM:I:7441o::704KmX(1)0:Y(1)0:IS2E2:X(I)X2(I)XM:Y(I)Y2(I)YM::TE2:SMS2om7:ISMT:YR$"Y"X(I)1708m59KX(I)XD44,83OFY(I)YDmI:HQ1724mC(K):YR$"Y"X(SM)1718mX(SM)XD44,83OFY(SM)YDmSMT724nISM1T:LKK1:678DlXX(NXK1)XD:XX(XX10.5)10:PX$(XX(XM$)):~lLL0:PS1:YD151(YBYM):XD231(XBXM):OF0YDYD2lG3692lG4LL1:692l728lK1OVLL:TE1:SMS1:7:YR$"Y"XM1mK1āIS1E1:X(I)X1(I)XM:Y(I)Y1(I)YM$)10.5)10):K0NX:XD$(XD):I1(XD$):(XD$,I,1)"."670OkI:J0:676xkT1(PX$):(PX$,T,1)"."J0:676kPX$"0"J0:676kT:PX$PX$".0":J0kL0:I(PX$)11:JJ1:((PX$,I,1))31279J7DXK,173: lLL1:(PX$)7DXMT12jJ1::I0MT1:JJ1:MM$:J13Į:JJ13ljI:J1NX:MM$:((MM$,1,1))31TX(J)3,173:J:682jYR$"Y"āI0NX:VT$"'"("0"((YS$)I),2):J02:((VT$,3J,1))3144IDX3J7,173:J,I:682?kXX(XX$)(XM$):XDXXNX:PX$(((XXPY$"0"J2:646(iT:PY$PY$".0":J0>i(PY$)J15652iL0:MY$"-"PY$:NC(MY$):INC11:JJ1:((MY$,I,1))3139J7,162KDY:iLL1:LDY81KK1:650iYX(NYK1)YD:YX(YX10.5)10:PY$(YX):KiMT$"Y"664jMT0K1:628LhvYX(NYK1)YD:YX(YX10.5)10:PY$((YM$)YX):K:OF0636Uhz654h|YX(YX$)(YM$):YDYXNY:PY$(((YX$)10.5)10):K0NY1:YD$(YD):I1(YD$):(YD$,I,1)"."640h~I:J0:646hT1(PY$):(PY$,T,1)"."J0:646iNY:YD$(YD):I1(YD$):(YD$,I,1)"."618=ghI:J0:624fgjT1(PY$):(PY$,T,1)"."J0:624|glPY$"0"J2:624gnT:PY$PY$".0":J0gpNC(PY$):NCJ5630grL0:INC11:JJ1:((PY$,I,1))3139J7,KDY10: htLL1:LDY81K:CN1682(YL$)28:I1(YL$):((YL$,I,1))310,CN8(I1)::CN2352(XL$)2736:I1(XL$):((XL$,I,1))31CN7I,191:-gdCN2352(LA$)2736:I1(LA$):((LA$,I,1))31CN7I,6::YX(YX$)(YM$):YDYXNY:PY$(((YX$)10.5)10):K0,V8:KTVDY2:XT$"Y"Ĕ15TX(I)3,K:K6ePI:608reRXT$"Y"Ĕ15TX(I)3,83KDY2:15TX(I)3,83KDY2:K~eTI:608eVI1NY:41,83IDY49,83IDY:41,83IDY49,83IDY:K41TDX2:15K,83IDY:15K,83IDY:K,I:576e^ML1682f`10:566d4T277d6OF0598hd8INY11:40,159IDY49,159IDY:K41TDX2:15K,159IDY:K,Iyd@XT$"Y"582dBT78OF:V87OF:584dFT8:V163dHI1NX:TX(I)44IDX:G1$"Y"G2$"Y"ēTX(I),78TX(I),87:K12NY:594*eLTX(I),VTX(I)(FILE$,(FILE$)3):988$F$FILE$*IFILE$" ":F$"":VT(36)1`F$:F$(13)1000F$(8)T(FILE$):T1992F$(8)FILE$(FILE$,T1):36,VT(FILE$):868:992قF$;:FILE$FILE$F$:992(FILE$)2FILE$(13):Sz!""" " " " T0:VT$(19)TM20:+VT$(1)TM1:AVT$"I"VYVYTMWVT$"M"VYVYTMmVT$"K"HXHXTMVT$"J"HXHXTMVY183VY183VY0VY0HX279HX279ǁHX0HX0ځVT$(13)T1((FILE$,3),1)(44)F$UME":958:K17:A(53247):I110:A(49152K256):960,I:961:(960)D(I)956gI:16428,K:957yK:1066:960::10:18);"QUME":1062::16458:ှ22:"========> ";::GG$;::"?(RTN)";:VT$:(VT$)13ı쀿:940:20VT$:AVAILABLE FOR THE PRINTERS BELOW)":23:10);"(PRESS RTN FOR MENU)";:7:(1):"1. APPLE SILENTYPE"::"2. QUME":22:"ENTER SELECTION NO.: ";:T$:T(T$)::T$(13)960T1T3940T952,954GG$"APPLE SILENTYPE":958:1004:RGG$"Q:10:12);"CHECK YOUR INPUT":14:16);"ERROR #";T:1062:20T~VT$"/"ġ:20Z~n~VT$"/"ġ:276t~~(VT$)0(VT$)100T(37):(37),T1:"NUMBER SHOULD BE 0-100, REENTEER: ";:~T0::E:12);"PRINT THE GRAPH"::"(ONLY :494:XM$((XM)):YM$((YM)):YX$((YB)):XX$((XB)):YXYB:XXXB:20}D$:D$,"CLOSE";F$:T(222):0:0:1002:T5T254VT$" R":914}T25520}I06:(T)ER$(I,0)Ă}I7ĉ::10:20(ER$(I,1))2);ER$(I,1);"":1062:20A~::YT$:XT$b|XB:YB:C1:C2:C3:C4:P1:P2:M1$:M2$:BA:MT$:HQ:MT:YR$:YS$:YE$:C(1):C(2)|D$:D$,"CLOSE";F$:YXYB:XXXB:YM(YM$):XM(XM$):E1N1:E2N2:((VT$,2,1)"D"(VT$,3,1)"R")ML120I}::10:14);::"RANGING DATA";::VT$" R"1:D$:D$;"BLOAD";FILE$;",A$2000":20{D$:D$"VERIFY"F$:D$"OPEN "FILE$:D$"READ "F$:N1:N2:I1N1:X1(I):Y1(I)::I1N2:X2(I):Y2(I)::(VT$,3,1)"R"914|D$;"READ";F$:S1:E1:S2:E2:NX:NY:XX$:XM$:YX$:YM$:XL$:YL$:LA$:OV:G:NEG$:20z|(VT$,2,1)"P"888z~34,2::3::"DATA FILES AVAILABLE ON THIS DISK:":23:"PRESS RETURN":T$"":(VT$)4T$(VT$,3)z34,3:35,22:::D$;"CATALOG ";T$:23::"NAME FOR THIS PLOT:";::990:984:24:PI0:F$RT$20%{(VT$,2,1)"P"PI,L$2000":20gyt10);"RECALL DATA FROM DISK":11);"(PRESS RTN FOR MENU)":10:12);"DATA / PICTURE?"yx34,13::23:2);"(USE X,D# FOR ALT DRIVE. E.G. D,D2)":14:14:16);:"(D / P) ";:990:VT$FILE$:(VT$,2,1)"D"(VT$,3,1)"R"894z{VT$RT$::I1N2:X2(I):Y2(I)::S1:E1:S2:E2:NX:NY:XX$:XM$:YX$:YM$:XL$:YL$:LA$:OV:G:NEG$:YT$:XT$xnXB:YB:C1:C2:C3:C4:P1:P2:M1$:M2$:BA:MT$:HQ:MT:YR$:YS$:YE$:C(1):C(2):D$:D$;"CLOSE";F$:20 yrD$:D$;"BSAVE";FILE$;",A$2000(VT$)2T$(VT$,3)w`"ALREADY USED:":23:"PRESS RETURN":34,3:35,22:::D$;"CATALOG";T$:34,0:35,24:23::"NAME FOR THIS PLOT:";::990:984:FILE$RT$20wh(VT$,2,1)"P"882lxjD$:D$"OPEN"FILE$::D$"WRITE"F$:N1:N2:I1N1:X1(I):Y1(I))":10:13);"DATA / PICTURE?"vU23:2);"(USE X,D# FOR ALT DRIVE. E.G. D,D2)":13:17);"(D / P) ";:990:VT$FILE$:VT$RT$20vX(VT$,2,1)"D"(VT$,2,1)"P"852wZ:14);"DATA TO DISK":10);"(PRESS RTN FOR MENU)":3::"FILE NAMES ";:T$"":C47:JJ1:1uDHX279(M2$)7HX279(M2$)7\uFFF1:C3HX:C4VY:T1FF0:"":830wuHFF1C3HX:C4VY:830uJQQ0:EE0uLKB(16384):KB160850uP844uR16368,0::20vT:11);::"SAVE DATA TO DISK"::10);"(PRESS RTN FOR MENU1AA0:EE0:"":HX0:VY0:812;t:AA1C1HX:C2VY:812et<4:I07:C3,C4IC3(M2$)7,C4I:t>3:J0:I1(M2$):((M2$,I,1))31C3J7,C47:JJ1::FF1QQ1834t@FF0QQ1840 uBFF1İ962:0:J0:I1(M2$):((M2$,I,1))31C3J7,22:"========> ";::GG$;::"?(RTN)";:VT$:(VT$)13ıBI:90J:TG:JHQ:RR2:9);"GRAPH FORMAT SELECTION":10);"(PRESS RTN FOR MENU)":(4):"1. STANDARD GRAPH"::"2. STANDARD GRAPH WITH GRAPH OVERLAY"::"3. BAR CHART":ZL"4. GRAPH WITH BA0<22:(1):868:28?>GG$"LEAVE":64:216,0:::D$"FP"@::8:17)::"WARNING"::10:4);"YOU ARE ABOUT TO ";GG$;" APPLE PLOT":12:14);"AND LOSE DATA":23:2);"(PRESS ESC TO ";GG$;" / RTN FOR MENU)";:VT$A(VT$)27ıF:208H0(0SE5GG$"DISPLAY GRAPH":32:492M4GG$"SAVE DATA TO DISK":32:852x6GG$"RECALL DATA FROM DISK":32::8848GG$"CLEAR FOR NEW PLOT":32:GG$"CLEAR":64:::FILE$" ":(10):17);::"CLEARING":::RS1:6:GG$"PRINT GRAPH":32:940:2#SE$"Q"620 $SE38,40,42,44,46,52,54,56,588 %60a &GG$"GRAPH FORMAT SELECTION":32:74 (GG$"X-AXIS PARAMETERS":32:146 *GG$"Y-AXIS PARAMETERS":32:234 ,GG$"DATA ENTRY AND EDITING":32:276.ML0PI0GG$"DISPLAY GRAPH":32:49DATA FROM DISK"::"8. CLEAR FOR NEW PLOT"::"9. PRINT THE GRAPH" 23:6);"(PRESS Q TO EXIT APPLE PLOT)":VT(0):22:"ENTER SELECTION NO.: ";:SE$:SE(SE$)::35 22:"========> ";::GG$;::"?(RTN)";:VT$:(VT$)13ı ":RR60,74,276 20 1062D ::RR1:15);"APPLE PLOT MENU":RS0:MT$"Y"XM1 (3):"1. GRAPH FORMAT SELECTION"::"2. X-AXIS PARAMETERS"::"3. Y-AXIS PARAMETERS"::"4. DATA ENTRY AND EDITING":B "5. DISPLAY GRAPH"::"6. SAVE DATA TO DISK"::"7. RECALL $"0":YB1:XB1:YX1:XX1:YX$"1":XX$"1":XT$"N":YT$"N":YF$"N":RT$(13):S10:E10:S20:E20:YR$"N":YS$"80":YE$"90":C(1)7:C(2)6:G2:TM20:MT1:MT$"N" D(10):D(1)74:D(2)9:D(3)3:D(4)157:D(5)184:D(6)4:D(7)74:D(8)74:D(9)74:D(10)72:RS1ćVT$: 4,DISK WRITE PROTECTED,6,FILE NOT FOUND,8,I/0 ERROR--CHECK YOUR DISK,9,DISK FULL,10,FILE LOCKED,11,SYNTAX ERROR,13,MIXING FILE TYPES:I06:ER$(I,0):ER$(I,1): NX10:NY10:YL$"Y":XL$"X":LA$"UNFORMATTED GRAPH":OV2:YM0:XM0:YM$"0":XM8156,113:8157,73:16297,0:16302,0:16304,0R"MAXFILES1":926 D$(4):232,0:233,68:X(100),Y(100),X1(100),X2(100),Y1(100),Y2(100),TX(40),ER$(6,1): D,J,F,M,A,M,J,J,A,S,O,N,D,J,F,M,A,M,J,J,A,S,O,N,D,J,F,M,A,M,J,J,A,S,O,N:I136: """""""""                                                        CE BAR TO CONT)";:T$::T$(32)1062-(h*::10:7);"PRINTER CARD NOT IN SYSTEM":1062:20,XB(100XB.5)100:YB(100YB.5)100:XM(100XM.5)100:YM(100YM.5)100:XX$(XB):YX$(YB):XM$(XM):YM$(YM):DD6:"";VT$:VT$"Y"Ģ23:868:10182VT$QZ$20j 53008,H1:53007,H2:53012,H3:53009,H4:0:0:1002"34,1:2:868:1062::22:13);"(CNTL C FOR MENU)":10:14);::"PRINTING GRAPH"::672::(17):0:0:1002:'&22:8):868:"(PRESS SPAH30:1046VT$QZ$10464VT$"N"H30:1046?H3255:"LEFT MARGIN (LESS THAN 38): ";H4;:" ";VT$:VT$QZ$T(VT$):T0T38H420:1052VT$QZ$1052H4T"16:"ANY CHANGES? (Y/N) ":22:10);"(PRESS RTN FOR MENU)":20):1"UNI/BI DIRECTIONAL (U/B): ";VT$;:" ";VT$:VT$"B"VT$"U"VT$QZ$H2255:1034gVT$QZ$1034VT$"B"H20:1034H2255 :H30VT$"N":1038 VT$"I" "NORMAL/INVERSE PRINT (N/I): ";VT$;:" ";VT$:VT$"I"VT$"N"VT$QZ$VT$"Y"1016 VT$"N"1058g672::H1(53008):H2(53007):H3(53012):H4(53009):0:0:1002Ä34,1::5:"INTENSITY (0-7): ";H1;:" ";VT$:VT$QZ$H1(VT$):H10H17H17:1022ՄVT$QZ$1022:H20VT$"B":1026VT$"U"U672:" ";:T(0):53008,7:53007,255:53012,0:53009,20:0:0:1002::T0ī1066::13);"APPLE SILENTYPE":10);"(PRESS RTN FOR MENU)":34,2:10:3);"CHANGE PRINTER PARAMETERS? (Y/N) ";:"";VT$:VT$"Y"VT$"N"VT$QZ$1006VT$QZ$ı