' +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` Lw k| G n Rz | G n } XL,M ENTER DATA !M c H~ 8| $~ s} K J } } $LZM $~ } Uz } $LnM $~ Rz ~ -{  E{  f{ w L  0{    0{  }  H{    H{  }  i{    i{  6~  w g  } - Uz ~ & Iz % } - ;|  LL* L  s   wL+L* )L  1 } -   LQL* OL  1 s v}  }  ~  s a  n z v}  z  c ~ i #  a  ` | G n } k| G n Rz } } $ %z }  3  %z Uz } $3  %z Uz  3 SC WHEN DONE. J wL6K!USE IJKM KEYS TO RELOCATE CURSOR. K LhK&USE CTRL-IJKM KEYS TO RELOCATE CURSOR. AK   z } $LK c a  n c ~ i   a  u  n c ~ i   u  ` }  w } -   LK* K  1 I  1 ` w J|  } - ;|   C} L/J* -J  1 J|  } - ;|   C} z c } LmJ* kJ  1 s` -~ > > T X s } { G _| ~ G| D LJ w } zLJ"USE ARROW KEYS TO RELOCATE CURSOR. J cL KHIT E Q } > } ?{ Q } > H{  Q X -~ > } T } > } T } >  T 0{ @}LG | } ( %z | ?~ 3 LHLeh } - ~   C} {  w ܀   | a   sLI I  |   1 C} { }  >  ` w } - z  LI*z { & $L6^ z } ( %z z ?~ 3 LG H{  J|  I H{  J| 5|  I H{ @} J J| ~  H{ @} $~ { pI ~ D|  ~ z B{ %z u  n c ~ i z  w u  s ~ B{ { R} J| 5| c ~  C} { ~  D &C  | { & $LMI -~ > H~ D|GYEARS F o } LGMONTHS G o 6~ L1GDAYS ,G o ~ LHGOTHER BG o > LbGWHICH ? YG o J| ~  0{ @} $~ { pI ~ D|  0{ z c ~ i %z a  n c ~ i z  w a  s ~ { ~ R} J| 5| c ~  C} { ~  D &C  a J1XL$(L)DY$(M)a !a xa J1NX:PB6(J1)8:L(XL$(J)):P,L:M1L:D$(XL$(J),M,1):AK(D$):PM,AK::a J1NY:PB7(J1)8:L(YL$(J)):P,L:M1L:D$(YL$(J),M,1):AK(D$):PM,AK::a360ap:buY224Y22:XX3:YSY:XSX: ^T$(NT)T$^SL(NT)SL%^HT20<^NT0SL(0)4NT1S^NT1SL(1)42390^VV:1::39):1:"BEGINNING "T$(NT)": ";:HT:XMHT:XX39^220:130:AK27NT0260^AK27NT1VVVV4:NT0:2340^SL(NT)1(E$)02220^YC0_40BdPXXX40.BnD$(PXXM1)K$::K$;:406Bx:UBJ125:D$(J)""::E$"":_BDM20BD$(25),SL$(DM),V(DM,DM),BL$(DM),X(DM)CC$(3)"NO ":C$(5)"YES":C$(1)"YES":C$(2)"YES":C$(4)"YES":C$(5)"YES":A(3)2:A(5)1:A(1)1:A(2)1:A(4)1:A(5)1L yL yL yLdyL yLdyLdyLdyL yL yL yL yL yL yLdyL yL yL yLdyLdzL zLdz L z L z L zL zL zL z,L:N1L:D$(S$,N,1):AK(D$):PN,AK::y]LdybLdygLdylLdyqLdyvLdy{L y}LdyL yLdyLdyLdyLdyLdyLdyL yL yL yLdyLdyLdyLdyLdyL yL y L y LdyL yLdyL yL yLdy L y"Ldy'Ldy,Ldy1Ldy6Ldy;Ldy@L yBL yDLdyILdyNLdySLdyXLd2Ld7Ld78:42:AK272030^HNX(NT)(E$):NX(NT)1NX(NT)202105^T SL(NT)SL:JS(NT)JS:NTNT1_^ G "T$(NT)": ";:HT:XMHT:XX39=]78:42:AK27NT0120`]AK27NT1VVVV4:NT0:2105{]SL(NT)1(E$)02030]YC0]SL(NT)1JS(E$)] SL(NT)2E$(E$,3):J112:E$Y$(J)YC1:JSJ:J12]SL(NT)2Ă:YC02030]YC02^SR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC:J112:Y$(J):e]H MON,TUE,WED,THU,FRI,SAT,SUN:J17:DY$(J):]R34,0::A$"SET AXES LIMITS":H4:V3:600]\SLSL(NT0)FL(NT1)]fSL4SLFL:NT1]pSL1T$"YEAR"]zSL2T$"MONTH"]SL3T$"DAY"POW(P2)256.(P1)(P)(P3)100.:V(I,J)V::L\ 620: TO SHOW DATA\SL4FL4SL(0)SL:SL(1)FL:NX3:NY3:NX(0)NY:NX(1)NX:2390\SL4SL(0)SL:NY3:NX(0)NY:\FL4SL(1)FL:NX3:NX(1)NX\ \*VV10\4NT02]> JAN,FEB,MAR,APD DATA HERE3[SL(B2):FL(B3):NY(B4):NX(B5)[J1NX:PB6(J1)8:L(P):XL$(J)"":M1L:XL$(J)XL$(J)((PM))::[J1NY:PB7(J1)8:L(P):YL$(J)"":M1L:YL$(J)YL$(J)((PM))::[J1NY:I1NX:PB8(J1)MX4(I1)44\V480ZlE$""1860&Zv(E$)018600Z4000FZ16::1:39):1xZ16:"DRIVE NUMBER: ";:XM16:XX16:220:130ZAK27Ĺ34,15::1860ZDN(E$):DN1DN21940Z2800Z:(4);"BLOAD "NAME$",A"BC$",D"(DN):43624,1 [ UNFOLDN;::" IS FULL, OR ELSE THE"::"DRIVE IS INOPERATIVE. HIT RETURN."WY120::1700]Y&gY0VT12Y::A$"CHANGE DATA STORED ON DISK":H4:V3:600YDVT:1::39):VT:1YN12:"NAME OF DATA: ";:220:XM16:XX39:130YX16384,0ZbAK271Ĺ34,VT3::16700XDN(E$):DN1DN21700PXB2,SL:B3,FL:B4,NY:B5,NX[X1800|XLB84MXNY1BC10:L$(L)X:(4);"BSAVE "NAME$", A"BC$",L"L$",D"(DN):43624,1XX1480X216,0FY34,VT3:::"DISK IN DRIVE ";::CHANGED DATA":H4:V3:600$W|VT13{WVT:1::39):1:"TYPE DATA NAME: ";:XM18:XX39:220:130:E$""AK27ė:1480W4000WVT4:1::39):1:W"STORE ON DISK IN DRIVE (1/2) ? ";:XX33:XM33:220:130:AK27Ĺ34,VT3::1670XE$""1):MKD$K$5RVV$VV$D$::V(I,J)(VV$):10:500>R500DRJRWRYY21ıdRXX21ılR14RJ(YY10)(YY9)(YY10)YYRH1:7):H1:V(XX2,J);:H2:7):H2:V(XX1,J);:H3:7):H3:V(XX,J):R8S12:H1:7);:H1:XL$(XX6:32:500Qf500(QpAK57AK465001QzK$;VQIXX(XH1XH2)2(XH2XH3)yQJ(YY9)(YY10)(YY10)Y14QV$(V(I,J)):L(V$):KXH1(I1)H2(I2)H3(I3)QKK1QKLV$V$K$:V(I,J)(V$):10:500 RVV$"":M1L:D$(V$,M,YDj^ jh 232,0:233,8=jr SD(MAXVN)5:(SD)SDDEC1Vj| J05:S$(JSDVN){j DEC1(S$)1S$"0"S$"0"S$j DEC1((S$))(S$)S$S$".0"j L(S$)j XX77L7:YY7JYDj A(7)23000j X7,YX8,YX5,Y5JYDj YY3+k 1:2650eP YYYY1:NYNY1CeZ YY21XX21NY21XX21NX21740jed SL(0)1YL$(NY)((YL$(NY1))1)en SL(0)2JJS(0)NY1:JJ(J12)(J12)(J12J25)(J24)(J25):YL$(NY)Y$(J)es S$YL$(NY):PB7(NY1)8:3000Ifx SL(0)3JJS(0)NY1:J1) c c SL(J)22530ec L1NX(J):MJS(J)L1:MM(M12)(M12)(M12M25)(M24)(M25){c J0YL$(L)Y$(M)c J1XL$(L)Y$(M)c c SL(J)32580d L1NX(J):MJS(J)L1:MM(M7)(M7)(M7M15)(M14)(M14M22)(M21)(M216368,0:21::6:"WHICH NUMBER ? ";:220:XM22:XX22:130MVN(E$):AKNaV"AK1AK51550gV,tV616384,0V@AK1260VJAK21830VTAK3620V^AK4ĺ:(4);"RUN CHART 3D"VhAK5ĺ:775,1:(4);"RUN POST HELLO"Wr34,0::A$"SAVE ::34,7)UA$"DATA ENTRY":H4:V3:600UW$(1)"ENTER NEW SET OF DATA":W$(2)"CHANGE DATA STORED ON DISK":W$(3)"RETURN TO PRESENT DATA":W$(4)"PLOT CHART":W$(5)"RETURN TO DISK MENU"U11U1UJ15::(91);J;(93);::" "W$(J)::AK22200M:A$"LOAD DATA FROM DISK":H4:V2:790M34,8:MVV9NVV:"HIT ";::"RETURN";::" ALONE IF DATA IS"::"PRESENTLY IN COMPUTER MEMORY.1Y13YY60006L4AK10P70Y13YYXEXX:6000PL5AK10P70Y236000jL6AK13P71Y236000pL7yL9590L:Y23AK10P70YYNY500LDY23AK13P71YYNY500LNX1AK8XX3500LXX1AK10P71XX3500&MbXH36(AK213P71)(AK10P70))YY20Y23500]K NX20((AK11P71)(AK21P70))XX20XH36500mK AK271210~KYYNYYYNYKY12AK11P70YY10500K&Y12AK9P71YY10500K/XH36XXNX(AK11P71)500K1YYNY567L2AK13P7(NY10):14(J1):H1:7);:H1:V(1,J);:H2:7);:H2:V(2,J);:H3:7);:H3:V(3,J):dJ14:H1JXX3(NX3)NX(NX3):YY10(NY10)NY(NY10)JX(36)1:Y(37)1: TRUE HTAB AND VTAB LOCATIONSJ16368,0JK$:AK(K$)%K NY20((AKER DATA":H4:V3:340:240)IjNX0NX38IkNY0NY3NImH110:H220:H330TII12:H1:7);:H1:XL$(1);:H2:7);:H2:XL$(2);:H3:7);:H3:XL$(3)I:14:J1NY(NY10)10(NY10):1:7);:1:YL$(J):IIXJJ1NY(NY10)10."2HC$"USE CTRL-IJKM KEYS TO RELOCATE CURSOR."9H"7IH,P71A$C$]H620(A$)2:A$sH@:20(B$)2:B$yHJHT1::J138:"*";::J1H:"*";::39::"*":H^J139:"*";:::V:2:36)::LA(A$):V:((40LA)2):A$:Ih:A$"ENTVV:J1H:HH:"*"::VV:J1H:HHW1:"*":::ZG:A$"ENTER DATA":H4:V3:340:240hG34,5::zGR1:S16:VV8G(637)255B$C$:P71HA$"USE ARROW KEYS TO RELOCATE CURSOR.":B$"HIT ESC WHEN DONE.":C$"USE IJKM KEYS TO RELOCATE CURSOR:HHD9`F78:42:FL(E$):AK27Ĺ34,VV4:32,H21:33,40H2::34,0:32,0:33,40:HHH1:176sFFL1FL4186F2000: SET STARTING TIMESFJ14:HHD::(91);J;(93);::" ";C$(J):::HHD1:C$(5);:F41F:J1W:"*";::2G:)2(A$)2::A$:3EXM13:XX13:VVH2:HHD9oE78:42:SL(E$):AK27Ĺ775,1::(4);"RUN POST HELLO"ESL1SL4176EH2:VV:210:H2:VVH:210:HHH2:220:VV2:HHH2:D3:190:EVV2:H2W2(B$)2::B$:FXM12H2:XXXM:VVH2N,AK::jNAME$E$Bj(NAME$,4)"DATA"NAME$NAME$" DATA"Hj DATA"WjE.":6A(16368,0:PX(36)1:K$:AK(K$):AK27ĝ:SA2AK21PXXXČ1036:40A<NF1(AK46AK57)(AK32AK8AK21AK13)40AFAK13E$"":J1PXXM:E$E$D$(J)::APAK8PXXMČ1008:40BZAK32PXXXĝ:" ";:D$(PXXM1)" "::%@HM38900:35099@10@:(4);"BLOAD CHARACTERS,A2048"::(4);"BLOAD BLOCK,A3072"::(4);"BLOAD PLOT CURSORS,A7168"@ 140@21:1:"USE ";::"ARROWS";::" TO RELOCATE CURSOR."A23:1:"HIT ";::"ESC";::" TO GO BACK TO TITLE PAG             DATA IN MEMORY.":B$"HIT RETURN.":20(A$)2:A$::20(B$)2:B$Ji^ Sir 120]i| 1480ji S$""ıi L(S$):P,L:N1L:D$(S$,N,1):AK(D$):PN,AK::iNAME$E$i(NAME$,4)"DATA"NAME$NAME$" DATA"iL:D$(S$,N,1):AK(D$):P6368,0:16384,128%Q 34,VV::22008QVV15:34,VV:@Q18oQ"THERE IS NO DATA IN MEMORY. HIT RETURN.Q16368,0:16384,128Q2200)8::3000)h 12:H3:XL$(NX):YS:H3:6h P(222)Nh A$". HIT RETURN."Vh :\h h P6ĺ:"FILE IS NOT ON DISK"A$h P8ĺ:"DRIVE IS INOPERATIVE"A$h" 16368,0:16384,128h, 34,0:::1850h6 :14:hJ 216,0DiT A$"THERE IS NO)T,SL(1)3JJS(1)NX1:JJ(J7)(J7)(J7J15)(J14)(J14):XL$(NX)DY$(J),S$XL$(NX):PB6(NX1)8:182:12:H3:XL$(NX):YS:H3:,P(222):A$". HIT RETURN."::::P6ĺ:"FILE IS NOT ON DISK"A$,P8ĺ:"DRIVE IS INOPERATIVE"A$H1)(XH1XH2)H1(XH2XH3)H2(XH3)H3:YL$(NY):Y1::H1:7);:H2:7);:H3:7);:H1:0;:H2:0;:H3:0;:HX:45+NXNX1:SL(1)1XL$(NX)((XL$(NX1))1),SL(1)2JJS(0)NX1:JJ(J12)(J12)(J12J25)(J24)(J25):XL$(NX)Y$(JE ENTRIES ARE NOT PERMITTED FOR"::"AREA CHARTS. UP TO 100 DATA POINTS ARE"_P :"ALLOWED."yP 16368,0:16384,128P P 34,0::2000P 216,0P VV6:1::39):1P "DATA FILE IS NOT IN DRIVE ";DN;:". PLEASE"::"HIT RETURN."Q 1:4O A$"DATA ENTRY INSTRUCTIONS":H4:V2:G1:790>O 34,5EO 9O "POSITIVE OR NEGATIVE NUMBERS MAY BE"::"ENTERED. INCLUDING NEGATIVE SIGNS AND"O :"DECIMAL POINTS, A MAXIMUM OF SEVEN"::"CHARACTERS PER NUMBER ARE ALLOWED."MP :"NEGATIVNAME$NAME$" DATA"N3200EN:(4);"BLOAD "NAME$",D"(DN)PN216,0sN103,1:104,64:16384,0:36899N:(4);"BLOAD RUNTIME,D1"(13)(4)"BRUN GRID SCRUNCH.OBJ"N 16368,0:16384,128N HERE FOR DATA ENTRY INSTRUCTIONSO 34,0P2255P30P32554000'ME$""22704MNAME$E$`M(NAME$,4)"DATA"NAME$NAME$" DATA"xMVV3:1::39):1M"WHICH DRIVE (1 OR 2) ? ";:XM24:XX24:78:42MAK27Ĺ34,(37)::2220MDN(E$):DN1DN22245N(NAME$,4)"DATA"J(J7)(J7)(J7J15)(J14)(J14J22)(J21)(J21):YL$(NY)DY$(J)hf S$YL$(NY):PB7NY8:3000~f Y1:1::7):1f HX(XH1)(XH1XH2)H1(XH2XH3)H2(XH3)H3 g YL$(NY):Y1::H1:7);:H2:7);:H3:7);:H1:0;:H2:0;:H3:0V:"HIT ";::"RETURN";::" ALONE IF DATA IS"::"PRESENTLY IN COMPUTER MEMORY."]LVVVV6sLVV:1::39):1L"NAME OF DATA: ";:XM16:XX39:78:42:AK27800LE$""P1(3510020):P2(3510019):P3(3510018)ME$""ĭP10P1255P20 | A } T 1 } - (}   }  (}   | \ |  } o | \ | ށLXF WF o 1 1 -~ > C T X ~ G|  } -{  E{LF SIDE LABEL F cLF FRONT LABEL F w 0{  J|  G z ~ 8| I 0{  J| 5|  I 0{ @} J } L104,64:103,1:16384,0:36899AKAK1ĺ:(4);"BRUN ENTER GRID"KAK1ĺ:(4);"BLOAD RUNTIME,D1"(13)(4)"BRUN GRID SCRUNCH.OBJ"K*AK33000K4AK4ė:800K>AK22200K:A$"LOAD DATA FROM DISK":H4:V2:790K34,8:KVV9QLVEADY ON DISK"::Q$(3)"SEE DATA ENTRY INSTRUCTIONS":Q$(4)"GO BACK TO DISK MENU"~JJ14::(91);J;(93);::" "Q$(J)::J:1:19:39):19J16368,0J6:"WHICH NUMBER ? ";:XM21:XX21:78:42:AK27800JAK(E$):AK1AK42040KSCI EXEC,D1"I4I::5::" "(N)" ";::11:ISI$:1:J037:"*";:[I.1:xI8J121:"*";:39:"*":ILJ038:"*";:I`I34,0:IA$"DATA ENTRY ":H4:V2:G1:790I10OJQ$(1)"ENTER NEW DATA NOW":Q$(2)"PLOT DATA ALRN1:1040:"PRINT CHART ON PAPER"^H20:12:"WHICH NUMBER ? ";:"";G$:G(G$):G1G4920iH33,40wH16368,0H104,64:103,1:16384,0:35099HG32200HG4ĺ:(4)"RUN PRINTER,D1"HG1AK1:2070HG22200 IG3ĺ(4);"RUN )1:A$:G 34,0:G*1060&G43,G>YGHA$" 3DCHART! MENU ":20(A$)2::A$:cG\N0:iGawGf16368,0GpNN1:1040:"ENTER & PLOT NEW DATA"GzNN1:1040:"PLOT CURRENT OR OLD DATA"GNN1:1040G"CHANGE DATA"G33,38"HNHERWISE NOTED, MAY BE USED TO GO"PF"BACK ONE STEP, OR RETURN TO THE PREVIOUSeF"PROGRAM MENU."FX16368,0:16384,128::800FFG::J138:"*";::J1H:"*";::39::"*":FJ139:"*";:::VG:2::LA(A$) GVG:((40LA)2PLE CHARTS."E16368,0*E16384,1280E8EG1WEA$"3DCHART!":H4:V2:790^E1gEVV9E(637)255ĢVV:"PLEASE PUT CAPS LOCK KEY ";::"DOWN.":E VV14:1:VVE:"IMPORTANT NOTICE:";::" THE ESC KEY, EXCEPT"!F:"WHERE OTDATA"G33,387GNN1:1040:"PLOT CHART ON PAPER"\GNN1:1040:"SEE DOCUMENTATION"G19:11:"WHICH NUMBER ? ";:"";G$:G(G$):G1G5920G33,40G16368,0G104,64:103,1:16384,0:35099GG51200GG32200HG4ĺ:(4PY OF OUR PROGRAM":"FOR YOUR OWN USE. OTHERS MAY COPY"::"3DCHART! IF THEY SEND US A CHECK"D$:"FOR $29.95. WE WILL THEN RUSH THE MOST"::"ADVANCED, UPDATED VERSION OF OUR" E&:"PROGRAM, COMPLETE WITH INSTRUCTION"::"MANUAL AND PICTURES OF SAM60 F42F>::FHA$" DISK MENU ":20(A$)2::A$:oFM3:LA(A$):20LA2::LA):5:20LA2:LA):yF\N0:Ff16368,0FkFpNN1:1040:"ENTER & PLOT NEW DATA"FzNN1:1040:"PLOT CURRENT OR OLD DATA"FNN1:1040G"CHANGE CHT9:A$;CVV8:A$"6333 PACIFIC AVENUE, SUITE 256"JCHT11:A$uCVV10:A$"STOCKTON, CALIFORNIA 95207"CHT9:A$C16368,0:16384,128C::2:A$"PLEASE HONOR OUR COPYRIGHT":H4:V2:790CVV9^D"VV:"PLEASE MAKE JUST ONE COBO BfBkG4^BnA$"":H20:V3:790:4::A$" 3DCHART! ":LA(A$):(40LA)2:5G:A$:BpHH(40LA)2:4G::HH:LA):6G:HH:LA):BqG1BsVV10BuHT16BxVV3B}HTBA$"(C) 1984":A$BVV6:A$"SPECTRAL GRAPHICS SOFTWARE"1:K$:AK(K$):AK27ĝ:6A+AK21PXXXČ1036:42bA0AK13E$"":J1PXXM:E$E$D$(J)::~A5AK8PXXMČ1008:42A:AK32PXXXĝ:" ";:D$(PXXM1)" "::42A?PXXX42ADD$(PXXM1)K$::K$;:42AI:ANJ125:D$(J)""::E$"" @36899!@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@)102A*16368,0:PX(36)        1)d J0YL$(L)DY$(M)0d J1XL$(L)DY$(M)6d LLA(A$)YL4:((40LA)2):A$:L::2000:12:NAME$;" IS NOT ON THIS DISK."L216,0L:::(91);"1";(93);:L" GO BACK AND RE-TYPE NAME."L:::(91);"2";(93);L M" HIT RETURN.":D$"FILE IS LOCKED. HIT RETURN."4K:KOK216,0:PK(222)]KPK4ĺA$kKPK8ĺB$yKPK9ĺC$KPK1ĺD$K16368,0:16384,128K560K16368,0K16384,128K1::J138:"*";::J1HL\"*";::39::"*":R 2) ? ";:XM24:XX24:50:42:AK27Ĺ34,(37)::580SJDN(E$):DN1DN2620]J700J:(4);"BSAVE NAME$,A$2000,L8192,D"(DN)J110.K:A$"DISK IS WRITE PROTECTED. HIT RETURN.":B$"DRIVE DOOR IS OPEN. HIT RETURN.":C$"DISK IS FULL. 16384,128IAK(16384)128-I&AK13110TI0:A$"SAVE CHART TO DISK":H6:790^I:VV14tIDVV:1::39):1IN"CHART NAME: ";:XM14:XX39:50:42IXAK27480I]((E$,1))0580IbNAME$E$IlVV3:1::39):15Jv"WHICH DRIVE (1 O(9);"G"HD$;"PR#0" } TL=E ~ D  $L:E ~ > } TL;fL6^ XLVECHOOSE AXIS LABELS CE c H~ 8| $~ s} K ^ LE PLEASE WAIT. vE c  n c ~ i   a  } - (}   | LE E o | LE E o 1 | - | :  L&C {  $ %z { L} (3 LRD sL(D &D  { { } NLDD BD o wL&C { L} L&C { { } N  o w  L&C } - ʀ   | NLD D o 1 LD D ` Q~ D $ %z ~ D  $3 LD Q~ > } T ~ > } TL6^ V(I,J)IJ:D~ODVV10:VV:H11:H220:A$" SIDE LABEL":B$" FRONT LABEL "yDH1:VV:W16:H12:210:H1:VVH:210DHHH1:220:DC$(1)"YEARS":C$(2)"MONTHS":C$(3)"DAYS":C$(4)"OTHER":C$(5)"WHICH ? "DVV2:HHH1:D3:190EVV2:(H1W:" ";:D$(PXXM1)" "::42+C?PXXX42ICDD$(PXXM1)K$::K$;:42QCI:pCNJ125:D$(J)""::E$"":{CdDM100CnD$(25),YL$(20),V(20,20),XL$(20),X(100),Y$(12)Co1050Cx:A$"CHOOSE AXIS LABELS":H4:V3:340C|130 D}J112:I18::: B)16368,0:16384,128:QB*16368,0:PX(36)1:K$:AK(K$):AK27ĝ:nB+AK21PXXXČ1036:42B/NF1(AK46AK57)(AK32AK8AK21AK13)42B0AK13E$"":J1PXXM:E$E$D$(J)::B5AK8PXXMČ1008:42C:AK32PXXX100:RB(RB)+A LB0B(1)B(2)B(3)0:20zAB(3)(LBPOW):B(2)LBB(3)POW:B(2)(B(2)256):B(1)LBB(3)POWB(2)256APB8(J1)NX44(I1):B(5)RBAJ14:P(J1),B(J)::B L(VV$):PB(J1)MX:P,L:M1L:D$(VV$,M,1):AK(D$):PM,AKn&2@HM38900:35099:BC35100:MX20:POW256.256.@B1BC20:B2B11:B3B21:B4B31:B5B41:B6BC40:B7BC40MX8:B8BC402MX8@H110:H220:H330@J1400:B8(J1),0:@ 100@ V(V(I,J)):LB(V):LBVRB0:13 A RBVLB0.001:RBRBz @36899!@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@)102A*16368,0:PX(36)                      A$@m104,64:103,1:16384,0:35099?@x(4);"RUN POST HELLO" 32KLHTH1(II1)H2(II2)H3(II3)::HT:7):HT:(V(I,J));:X:VV$(V(I,J))dSV$(I,J)VV$qS 50:740wS2}S<SFYYMX1XXMX1ıSZ14SdJ(YY10)(YY9)(YY10)YY TnH1:7):H1:V(XX2,J);:H2:7):H2:V(XX1,J);:H3:7):H)RIXX(II1)2(II2)=RJ(YY9)(YY10)(YY10)Y14vRV$V$(I,J):L(V$):KXH1(II1)H2(II2)H3(II3)RKK1R KLV$V$K$:V$(I,J)V$:V(I,J)(V$):50:740RVV$"":M1L:D$(V$,M,1):MKD$K$TSVV$VV$D$::V(I,J)(VV$):AK:XLV$V$K$:XL$(XXI3)V$:JXXI3:BB6:VV$V$:110:740fQVV$"":M1L:D$(V$,M,1):MXD$K$QVV$VV$D$::XL$(XXI3)VV$:JXXI3:BB6:110:740QAK57AK46AK32740QXH36740QK$;RII(XH1XH2)2(XH2XH3)3(XH3$(J)V$:VV$V$:BB7:110:740GP`VV$"":M1L:D$(V$,M,1):MKD$K$rPjVV$VV$D$::YL$(J)VV$:BB7:110:740P~ HERE FOR XL TITLESPK$;PI(XH1XH2)2(XH2XH3)3(XH3)PXXH1(I1)H2(I2)H3(I3)1XH36XXNX(AK11P71)740LHYYNY930LRAK13P71(Y13YYY23)2620L\AK10P70Y13YYXEXX:2620MfAK10P70Y210):KX(36)1:Y(37)1: TRUE HTAB AND VTAB LOCATIONSHK16368,0_KXH37ĖH36:740pKK$:AK(K$)KAK13XH3Y13NYĖ1:740KAK132KNYMX((AK13P71)(AK10P70))YYMXY23740 L NXMX((AK11P71)(AK21P70))XXMH3:XL$(3)FJ:14:J1NY(NY10)10(NY10):1:7);:1:YL$(J):LJRJJJ1NY(NY10)10(NY10):14(J1):H1:7);:H1:V(1,J);:H2:7);:H2:V(2,J);:H3:7);:H3:V(3,J):J14:H1KXX3(NX3)NX(NX3):YY10(NY10)NY(NY139:"*";:::V:2:36)::LA(A$):V:((40LA)2):A$:\IlNX0NXMXNY0NYMX2870It:A$"ENTER DATA":H4:V3:600:500IvNX0NX3INY0NY3IH110:H220:H330I J12:H1:7);:H1:XL$(1);:H2:7);:H2:XL$(2);:H3:7);:CATE CURSOR.":B$"HIT ESC WHEN DONE.":C$"USE IJKM KEYS TO RELOCATE CURSOR."|HC$"USE CTRL-IJKM KEYS TO RELOCATE CURSOR."H&7H0P71A$C$H:20(A$)2:A$HD:20(B$)2:B$HNHX1::J138:"*";::J1H:"*";::39::"*":Uj?U/Uz@8`@0p@x x 0  |+U~*U`@`DD``@p p `eZN2W1W2R1.3.7072edN3W14S:W2W1RHenW1(W1):W2(W2)WexW12W12feW22W24pe2590e16297,0:16304,0:16300,0X0ı` XQ(EXRSL)MX:YQVY6` YQ8YQ2YQ:3540G` XQYQ3560Z` YQ(XQYQ)YQm` NX(EXRSL)XQz` NTSPYQ`J1NT:YY0JYQ:K1NX:XSLKXQ:X,Y::``34,0::A$"END OF LINE CHART PROGRAM":H4:V3:790`$VV9`.VVRa8MX:YH4:J1MX1:XSL(J1)DD:X,Y0X,Y0YH:L$(MIN(J1)DX):L(L$)c_z J1JMX1L23490{_ XX(L2)4(L3)7_ K1L:D$(L$,K,1):AK(D$)_ AKX(K1)7,Y014:_ _ J1NP:X(J)SL(X(J)MIN)(XXSL)(MAXMIN):_ 1230` M2:D$(VA):L(D$):XSL5SX:K1L:F$(D$,K,1):AK(F$):AKX(K1)74(L2)7(L3),Y014:f^ ^ J1NP:X(J)X(J)(XXSL)MAXSL:^* A(2)13380^4 ^> 1230^H ^R MX10:DXMAXMIN:DX10MXDX^\ DXDXMX^f XXEXRH_p DD(XXSL)Y0SL(J0)SX,Y0YH%] MAX103330|] X$(J):L(X$):XSL(J0)SX:YY014:K1L:D$(X$,K,1):AK(D$):AKX,Y:XX7:] 3350] ("0")SL,Y014:D$(MAX):L(D$):XXX4(L2)7(L3):K1L:F$(D$,K,1):AK(F$):AKX(K1)7,Y014:`^ VAMAXBQ10(Q1):MAX(TQBQ)BQ2\ M010:ARG510MT\ MAXARGMAX2ARGMAX2ARGZ\ r\ MAXVKMAX(VK1)\ NI0A(4)2NI1:3170\ A(4)23400\ MXMAX:MX10MX10\ NI0A(4)1NI1:3170] SX(XXSL)MX:YH4:J0MX:SL(J0)SX,3120[& RB((BL$(J),LP))7[0 RBRB100:X(J)LBRB:\[: P0:RB0:LB0:X(J)MAXMAXX(J)q[D X(J)MIMIX(J)w[N }[X [b MAX10(MAX)MAXMAX(MAX1):3260[l MAX10(MAX)MAX3260[v VKMAX\ MAX$((MAX)):Q(MAX$):TQ(MAX)10(Q1):Ģ20:1::39):1:2720+Z A(5)2A(1)21Z ;Z 1000]Z 16297,0:16304,0:16300,0cZ yZ MAX0:MIN1000000Z J1NP:L(BL$(J)):K1L:D$"."PJZ P0LB(BL$(J)):3120Z P1LB0:3110Z LB((BL$(J),P1)):P0[ PLRB0:$(J)"YES":A(J)1"YT NT0ĺ:1:*Y^ :?Yh NT0NT1:2750SYr 23:1:39):1gY| 21:1:39):1pY 255Y 20:"ARE THESE CORRECT ? ";::"YES";::21:78:XM21:XXXM:42:E$(E$,1)Y E$"Y"E$"N"E$""Ė1:255:2960Y K$E$Z K$"N"WW::"NO "::2910'X AK27J12550HX" K$"N"K$"Y"AK132810mX, A(J)1(AK13K$"Y")2(K$"N")X6 K$"N"ĖWW::3):WW::"NO "::C$(J)"NO ":A(J)2X@ AK13ĖWW::C$(J)::A(J)(C$(J)"YES")2(C$(J)"NO ")YJ K$"Y"ĖWW::"YES"::C3:39:VT13^iVT:1::39):1:"TYPE DATA NAME: ";:XM18:XX39:20:13:E$""AK27ė:94gj:1yk(E$)0107l184mVT4:1::39):1:"STORE ON DISK IN DRIVE (1/2) ? ";:XX33:XM33:20:13:AK27Ĺ34,VT3::105nE$""Ĺ34,VT3:(E$):AKN:AK1AK696.a16384,0:AK125<bAK2115JcAK3125wd(B4)0(B4)255(B5)0(B5)255181e:AK4ĺ(4);"RUN CHART 3D,D1"fAK6ĺ:775,1:(4);"RUN POST HELLO,D1"gAK5104 h34,0::A$"SAVE PRESENT DATA":H4:VT PRINTING IT MAY BE"::"BE BECAUSE YOUR PRINTER IS NOT PROPERLY":tF :"CONFIGURED TO PRINT GRAPHICS. YOU MUST"F!:"HAVE A DOT MATRIX PRINTER WITH GRAPHICS"'G":"DUMP CAPABILITIES. AND YOU MUST ALSO"::"HAVE EITHER A GRAPHICS INTERFACE CARD":IT RETURN WHEN READY."0E:12:1:39):12:1HE20(A$)2::A$:`E14:20(B$)2:B$E 19:C$"ESC = DON'T PRINT CHART":20(C$)2:C$E16368,0:16384,128:PK(16384)128:PK27110EPK13270E34,0:CF"IF THE CHART IS NO(E$):V1V2162?DE$""Ĺ16297,0:16304,0:16300,0:210WDE$""đ:16302,0bD1000oD0:1:3uDD:D$;"BLOAD "NAME$",A$2000"",D"(V)DJ13000:D SET CONTROL CHARSDDD2000EA$"TURN ON PRINTER.":B$"HIN MEMORY."%C17:1::40):17:13C16368,0]C"TYPE NAME OF CHART: ";:XM22:XX39iC17:22qC50C42:AK27110CE$""168CNAME$E$C22:1::"WHICH DRIVE (1 OR 2) IS CHART IN ? ";:50:XM36:XX36:42CAK27134DVE$):DN1DN2ĝ:70"BI34,0::BBM::(4);"CATALOG,D"(DN)\BN16368,0:16384,128eBP134kBdwBfD$(25)}BgBiD$(4)Bn:Bs2000Bt6000BuB34,8BB55 C:790:12:"HIT ";::"RETURN";::" ALONE IF CHART IS A1:%A2J125:D$(J)""::E$""+A3vA712:1::"WANT TO SEE CHART LIST ? ";:50:XM26:XX26:42:AK276000A<E$(E$,1):E$"N"E$"Y"55AAE$"N"ė:134AEAF17:1:"WHICH DRIVE (1 OR 2) ? ";:50:XM24:XX24:42:AK27ıBGDN( @35099@16302,0#@ 100T@*16368,0:PX(36)1:K$:AK(K$):AK27ĝ:q@+AK21PXXXČ1036:42@,AK13E$"":J1PXXM:E$E$D$(J)::@-AK8PXXMČ1008:42@.AK32PXXXĝ:" ";:@/PXXX42A0D$(PXXM1)K$::K$;:42              ?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 ? ";:220:XM22:XX22:130,WN(E$):AKN@W"AK1AK61550FW,SW616384,0aW@AK1260pWJAK21830WTAK32000WY(B4)0(B4)255(B5)0(B5)2552870W\W^AK4ĺ(4);"RUN CHART 3D,D1"XhAK6ĺ:775,1:(4);"RUN POST HELLO,D(2)"CHANGE DATA STORED ON DISK":W$(3)"RETURN TO PRESENT DATA":W$(4)"PLOT CHART":W$(5)"SAVE PRESENT DATA":W$(6)"RETURN TO DISK MENU":9:1_J16::(91);J;(93);::" "W$(J)::`16368,0:22::6:"WHICH NUMBER ? ";:20:XM22:XX22:13:N SET OF DATA":W$(2)"CHANGE DATA STORED ON DISK":W$(3)"RETURN TO PRESENT DATA":W$(4)"PLOT CHART":W$(5)"SAVE PRESENT DATA"VW$(6)"RETURN TO DISK MENU"V9V1VJ16::(91);J;(93);::" "W$(J)::W16368,0:22::6:"WHICH NUMBER ;:H2::XL$(XX1);:H3:7);:H3::XL$(XX)RU:14:J(YY10)(YY9)(YY10)YYlU1:7);:1:YL$(J):UXSH36XSH3UYS:XSUCH1CH0:U740U120:34,0::U34,0::34,7UA$"DATA ENTRY":H4:V3:600|VW$(1)"ENTER NEW(V(I,J));:X:VV$(V(I,J))*TV$(I,J)VV$7T 50:740=T2CT<VTFYY21XX21ı^TZ14TdJ(YY10)(YY9)(YY10)YYTnH1:7):H1:V(XX2,J);:H2:7):H2:V(XX1,J);:H3:7):H3:V(XX,J):Tx*U12:H1:7);:H1:XL$(XX2);:H2::7)14XH36XXNX(AK11P71)740gMHYYNY930MRAK13P71(Y13YYY23)2620M\AK10P70Y13YYXEXX:2620MfAK10P70Y232620MX1AK8XX3740NX1AK10P71XX3740L16368,0%LXH37ĖH36:7406LK$:AK(K$)WLAK13XH3Y13NYĖ1:740dLAK132LNY20((AK13P71)(AK10P70))YY20Y23740L NX20((AK11P71)(AK21P70))XX20XH36740LAK271650L YYNYYYNYM*Y12AISK MENU"8LJ14::(91);J;(93);::" "Q$(J)::OL:1:19:39):19]L16368,0L6:"WHICH NUMBER ? ";:XM21:XX21:78:42:AK27800LAK(E$):AK1AK42040L104,64:103,1:16384,0:36899:43624,1L34,0:33,409MAK1ĺ:RE AND STORE SHAPES.   : LI!3. DON'T STORE: RETURN TO MENU. '  7 ; LxWHICH NUMBER ? h  < > 9 T 9 D u < n 9 : ( 5 9 ;: = L 9 : $L 8 : 8 9 > 8 Q : 8L 9 ;: $L  :8 : n c x6 : $ 5 7 : $ 5 7 : $= = L x6 : u6 =8 69 :8` [" < > 9 T 6 : L X ;  : L1. DRAW ANOTHER SHAPE.   : L2. STOP HE        gx        ,VV::2200QVV15:34,VV:&Q18UQ"THERE IS NO DATA IN MEMORY. HIT RETURN.oQ16368,0:16384,128yQ2200:(4);"RUN CHART 3D,D1"QAK1:770,6:2070Q 16368,0:16384,128Q 1200Q 16368,0:16384,128Q R 34,0::20001:YL$(J):KKKJ1NY(NY10)10(NY10):14(J1):H1:7);:H1:V(1,J);:H2:7);:H2:V(2,J);:H3:7);:H3:V(3,J):K14:H1KXX3(NX3)NX(NX3):YY10(NY10)NY(NY10)LX(36)1:Y(37)1: TRUE HTAB AND VTAB LOCATIONS0NY202870"JqNY(B4):NX(B5)JJt:A$"ENTER DATA":H4:V3:600:500YJvNX0NX3hJNY0NY3~JH110:H220:H330JJ12:H1:7);:H1:XL$(1);:H2:7);:H2:XL$(2);:H3:7);:H3:XL$(3) K:14:J1NY(NY10)10(NY10):1:7);:S TO RELOCATE CURSOR."I&7-I0P71A$C$AI:20(A$)2:A$WID:20(B$)2:B$]INIX1::J138:"*";::J1H:"*";::39::"*":IbJ139:"*";:::V:2:36)::LA(A$):V:((40LA)2):A$:IlNX(B5):NY(B4) JmNX0NX20NY1H:HHW1:"*":::>H:A$"ENTER DATA":H4:V3:600:500LH34,5::^HR1:S16:VV8{H(637)255B$C$:P71HA$"USE ARROW KEYS TO RELOCATE CURSOR.":B$"HIT ESC WHEN DONE.":C$"USE IJKM KEYS TO RELOCATE CURSOR."IC$"USE CTRL-IJKM KEY:AK27Ĺ34,VV4:32,H21:33,40H2::34,0:32,0:33,40:HHH1:360VGFL1FL4410uG2070: SET STARTING TIMESGJ14:HHD::(91);J;(93);::" ";C$(J):::HHD1:C$(5);:G120G:J1W:"*";::H:VV:J1H:HH:"*"::VV:J);:H1:XL$(XX2);:H2:7);:H2:XL$(XX1);:H3:7);:H3:XL$(XX)::14:J(YY10)(YY9)(YY10)YY:1:7);:1:YL$(J):SH36XSH3\YS:XS:CH1CH0:]45^34,0::34,7:A$"DATA ENTRY":H4:V3:39:W$(1)"ENTER NEW SET OF DATA":W$AK32KLHTH1(II1)H2(II2)H3(II3)::HT:7):HT:(V(I,J));:X:VV$(V(I,J))mXV$(I,J)VV$:6:45Y:YY21XX21ı}Z14:J(YY10)(YY9)(YY10)YY:H1:7):H1:V(XX2,J);:H2:7):H2:V(XX1,J);:H3:7):H3:V(XX,J):::12:H1:72(XH2XH3)3(XH3):IXX(II1)2(II2):J(YY9)(YY10)(YY10)Y14:V$V$(I,J):L(V$):KXH1(II1)H2(II2)H3(II3):KK1:KLV$V$K$:V$(I,J)V$:V(I,J)(V$):6:45VVV$"":M1L:D$(V$,M,1):MKD$K$VWVV$VV$D$::V(I,J)(VV$):H3(I3)1:V$XL$(XXI3):L(V$):XLV$V$K$:XL$(XXI3)V$:JXXI3:BB6:VV$V$:11:45QVV$"":M1L:D$(V$,M,1):MXD$K$RVV$VV$D$::XL$(XXI3)VV$:JXXI3:BB6:11:45SAK57AK46AK3245TXH3645UK$;:II(XH1XH2)A$)2::A$:-FhXM13:XX13:VVH2:HHD9PFr220:130:SL(E$):AK271480cF|SL1SL4360FH2:VV:470:H2:VVH:470:HHH2:480:VV2:HHH2:D3:450:FVV2:H2W2(B$)2::B$:FXM12H2:XXXM:VVH2:HHD9CG220:130:FL(E$) E 34,11:IE,VV10:VV:H11:H220:A$" SIDE LABEL":B$" FRONT LABEL "sE6H1:VV:W16:H12:470:H1:VVH:470E@HHH1:480:EJC$(1)"YEARS":C$(2)"MONTHS":C$(3)"DAYS":C$(4)"OTHER":C$(5)"WHICH ? "ETVV2:HHH1:D3:450 F^VV2:(H1W)2(:1480 D(770)5Ĺ770,0:260;D(770)6Ĺ770,0:2000ED1480D:A$"CHOOSE AXIS LABELS":::H4:V3:600:13:A$"PLEASE WAIT.":20(A$)2:A$DJ1MX:XL$(J)"":YL$(J)"":DJB6B81600:J,0:DJ1MX:I1MX:V(I,J)0:V$(I,J)""::: CAK8PXXMČ1008:130PCAK32PXXXĝ:" ";:D$(PXXM1)" "::130_CPXXX130~CD$(PXXM1)K$::K$;:130C:CJ125:D$(J)""::E$"":CD$(25),YL$(17),V(17,17),XL$(17),Y$(12),V$(17,17)D(771)8(770)6Ĺ771,0:770,0B(4)RB$BdJ14:P(J1),B(J)::lBnL(VV$):PB(J1)8:P,L:M1L:D$(VV$,M,1):AK(D$):PM,AK::Bx16368,0:16384,128:B16368,0:PX(36)1:K$:AK(K$):AK27ĝ:BAK21PXXXČ1036:130CAK13E$"":J1PXXM:E$E$D$(J):    402MX8 AH110:H220:H330)A(240PA2V(V(I,J)):LB(V):LBVRB0:70uA<RBVLB0.001:RBRB100:RB(RB)AFLB0B(1)B(2)B(3)0:90APB(3)(LBPOW):B(2)LBB(3)POW:B(2)(B(2)256):B(1)LBB(3)POWB(2)256BZPB8(J1)MX44(I1):;:J(YY9)(YY10)(YY10)Y14:KX:L(YL$(J)):V$YL$(J):KLV$V$K$:YL$(J)V$:VV$V$:BB7:11:45NVV$"":M1L:D$(V$,M,1):MKD$K$OVV$VV$D$::YL$(J)VV$:BB7:11:45\PK$;:I(XH1XH2)2(XH2XH3)3(XH3):XXH1(I1)H2(I2)P71XX3456D(AK8P70)(AK10P71)Č1008:45_E(AK10P70)(AK13P71)Č922:45F(AK11P70)(AK9P71)Č998:45GY1345HY12XH145I(XH16XH2)(XH26XH3)45JY14XH183KXH180LX745fMK$)<@350991800:BC350991801:MX17:POW(65536):BC$(BC)D@10u@HHH1(XH1)H2(XH1XH2)H3(XH2XH3)@HH0ĖHH@XH3Y23Č922:1:Y12Č922:1@740 A B1BC20:B2B11:B3B21:B4B31:B5B41:B6BC40:B7BC40MX8:B8BCXNXİ174:45>XH3645R?Y23YYNY(AK10AK13)YYYY1:XSX:YSY:89@Y12YY10((AK11P70)(AK9P71))YYYY1:YSY:XSX:89AX1(AK8(AK10P71))XXXX1:XSX:YSY:89B(AK21P70)(AK11P71)Č1036:45 CX1AK10                   " XH36XXNX(AK11P71)45,7YYNY59P8AK13P71(Y13YYY23)167u9AK10P70Y13YYXEXX:167:AK10P70Y23167;X1AK8XX345<X1AK10P71XX345 =XH36(AK21(AK11P71))XXXX1:XSX:YSY:CH1:89:XK(K$):AK13XH3Y13NYĖ1:450/AK132e0NY20((AK13P71)(AK10P70))YY20Y23451NX20((AK11P71)(AK21P70))XX20XH36452AK271043YYNYYYNY4Y12AK11P70YY10455Y12AK9P71YY104561:7);:1:YL$(J):::,J1NY(NY10)10(NY10):14(J1):H1:7);:H1:V(1,J);:H2:7);:H2:V(2,J);:H3:7);:H3:V(3,J)::14:H1:XX3(NX3)NX(NX3):YY10(NY10)NY(NY10)-X(36)1:Y(37)1:16368,0:XH37ĖH36:45#.K$:AX(B5):NY(B4):NX0NX20NY0NY20181n)NY(B4):NX(B5)::A$"ENTER DATA":H4:V3:39:36:NX0NX3}*NY0NY3+H110:H220:H330::12:H1:7);:H1:XL$(1);:H2:7);:H2:XL$(2);:H3:7);:H3:XL$(3)::14:J1NY(NY10)10(NY10):! OF THE ARROW KEYS.2K16368,0:16384,128:800LK16368,0:16384,128XK34,0:~KA$"DATA ENTRY ":H4:V2:G1:790K10 LQ$(1)"ENTER NEW DATA NOW":Q$(2)"PLOT DATA ALREADY ON DISK"::Q$(3)"SEE DATA ENTRY INSTRUCTIONS":Q$(4)"GO BACK TO D THE EDGES OF THE SCREEN.J"THE GRID WILL THEN SCROLL IN THE DIREC- TION DESIRED. BE CAREFUL NOT TO SCROLL TOO FAR, OR ELSE NEW COLUMNS OR ROWS OF"K"ZEROED DATA WILL BECOME PART OF YOUR DATA. IF YOU USE AN APPLE II+, USE THE IJKM KEYS INSTEAD:H4:V2:G1:790IVV8"IVVI"DATA IS ENTERED ON A GRID OF MAXIMUM DIMENSIONS 17 BY 17. ONLY A PORTION OF THIS GRID MAY BE SHOWN ON THE"J"SCREEN AT ONE TIME. TO SEE OTHER PARTS OF THE GRID, USE THE ARROW KEYS TO MOVE THE CURSOR PAST)"RUN PRINTER,D1",HG1AK1:770,5:2070:HG22200[HG3ĺ(4);"RUN SCI EXEC,D1"aHH::5::" "(N)" ";::11HH$:1:J037:"*";:H.1:H8J121:"*";:39:"*":HLJ038:"*";:H`I34,0::A$"DOCUMENTATION"USE IJKM KEYS TO RELOCATE CURSOR.":C$"USE CTRL-IJKM KEYS TO RELOCATE CURSOR.":7:P71A$C$&20(A$)2:A$::20(B$)2:B$:'1::J138:"*";::J1H:"*";::39::"*"::J139:"*";:::V:2:36)::LA(A$):V:((40LA)2):A$:+(N)"MONTHS":C$(3)"DAYS":C$(4)"OTHER":C$(5)"WHICH ? "OETVV2:HHH1:D3:450sE^VV2:(H1W)2(A$)2::A$:EhXM13:XX13:VVH2:HHD9Er220:130:SL(E$):AK271480E|SL1SL4360 FH2:VV:470:H2:VVH:470:HHH2:480:VV2:HHH2V3:600*DJ117:XL$(J)"":YL$(J)"":FDJB6B84MXMX:J,0:rDJ1MX:I1MX:V(I,J)0:V$(I,J)""::D,VV10:VV:H11:H220:A$" SIDE LABEL":B$" FRONT LABEL "D6H1:VV:W16:H12:470:H1:VVH:470D@HHH1:480:6EJC$(1)"YEARS":C$(2AK8PXXMČ1008:130HCAK32PXXXĝ:" ";:D$(PXXM1)" "::130WCPXXX130vCD$(PXXM1)K$::K$;:130~C:CJ125:D$(J)""::E$"":CD$(25),YL$(17),V(17,17),XL$(17),Y$(12),V$(17,17)C1480D:A$"CHOOSE AXIS LABELS":H4:BdJ14:P(J1),B(J)::dBnL(VV$):PB(J1)8:P,L:M1L:D$(VV$,M,1):AK(D$):PM,AK::Bx16368,0:16384,128:B16368,0:PX(36)1:K$:AK(K$):AK27ĝ:BAK21PXXXČ1036:130BAK13E$"":J1PXXM:E$E$D$(J)::C(91);J;(93);::" ";C$(J):::HHD1:C$(5);:H":J1W:"*";::#:VV:J1H:HH:"*"::VV:J1H:HHW1:"*":::$34,5:::R1:S16:VV8:(637)255B$C$:P71]%A$"USE ARROW KEYS TO RELOCATE CURSOR.":B$"HIT ESC WHEN DONE.":C$"YH2:VV:34:H2:VVH:34:HHH2:35:VV2:HHH2:D3:33:VV2:H2W2(B$)2::B$:XM12H2:XXXM:VVH2:HHD9:20:13:FL(E$):AK27Ĺ34,VV4:32,H21:33,40H2::34,0:32,0:33,40:HHH1:27FL1FL430 1271!J14:HHD::L " H1:VV:W16:H12:34:H1:VVH:34:HHH1:35:C$(1)"YEARS":C$(2)"MONTHS":C$(3)"DAYS":C$(4)"OTHER":C$(5)"WHICH ? ":VV2:HHH1:D3:33:VV2:(H1W)2(A$)2::A$: XM13:XX13:VVH2:HHD9:20:13:SL(E$):AK2794 SL1SL4276Ĺ770,0:125 94 :A$"CHOOSE AXIS LABELS":H4:V3:39:13:A$"PLEASE WAIT.":20(A$)2:A$:J1MX:XL$(J)"":YL$(J)""::JB6B81600:J,0::J1MX:I1MX:V(I,J)0:V$(I,J)"":::34,11::VV10:VV:H11:H220:A$" SIDE LABEL":B$" FRONT LABE08:135 AK32PXXXĝ:" ";:D$(PXXM1)" "::13C PXXX13a D$(PXXM1)K$::K$;:13 J125:D$(J)""::E$"": D$(25),YL$(17),V(17,17),XL$(17),Y$(12),V$(17,17):(771)8(770)6Ĺ771,0:770,0:94 (770)5Ĺ770,0:25 (770)1),B(J)::T L(VV$):PB(J1)8:P,L:M1L:D$(VV$,M,1):AK(D$):PM,AK::p 16368,0:16384,128: 16368,0:PX(36)1:K$:AK(K$):AK27ĝ: AK21PXXXČ1036:13 AK13E$"":J1PXXM:E$E$D$(J):: AK8PXXMČ10:H110:H220:H330:21< V(V(I,J)):LB(V):LBVRB0:8a RBVLB0.001:RBRB100:RB(RB) LB0B(1)B(2)B(3)0:10 B(3)(LBPOW):B(2)LBB(3)POW:B(2)(B(2)256):B(1)LBB(3)POWB(2)256 PB8(J1)MX44(I1):B(4)RB:J14:P(J&?350991800:BC350991801:MX17:POW(65536):BC$(BC):5{HHH1(XH1)H2(XH1XH2)H3(XH2XH3):HH0ĖHHXH3Y23Č922:1:Y12Č922:145 B1BC20:B2B11:B3B21:B4B31:B5B41:B6BC40:B7BC40MX8:B8BC402MX8            "!8AH110:H220:H330!A(240HA2V(V(I,J)):LB(V):LBVRB0:70mA<RBVLB0.001:RBRB100:RB(RB)AFLB0B(1)B(2)B(3)0:90APB(3)(LBPOW):B(2)LBB(3)POW:B(2)(B(2)256):B(1)LBB(3)POWB(2)256AZPB8(J1)MX44(I1):B(4)RBp(<@350991800:BC350991801:MX17:POW(65536):BC$(BC)D@10u@HHH1(XH1)H2(XH1XH2)H3(XH2XH3)@HH0ĖHH@XH3Y23Č922:1:Y12Č922:1@740A B1BC20:B2B11:B3B21:B4B31:B5B41:B6BC40:B7B6MX8:B8B7MX):R1RS2760)i N2W1W2R1.3.707Ai N3W14S:W2W1RWi W1(W1):W2(W2)fi W12W12ui W22W24i" 1880i, 16297,0:16304,0:16300,0i6 YYY7Y1i@ VX10VX15MAX15iJ YDYY5:J05:YYY7JYDjT X7,Y7JYDX74,Y7Jz!# >'?`q??3o?"B   Š ؠ"ŠŠ$נŠ# ؠ# ԠĠ7ԠŠ خʠŠؠ Ҡ ٠Ġ ' Ġ٠ (Ԡ  ĠȠ("ĠȮʠDԠӠĠؠ"+ Ϡ Ӡˠ! ŠԠĠ2ҠĠ, ԠϠ{ ~ $ =z z } $= 8 3  %z yz  $3  %z {{  $3 L/O }  $ %z { ~ $ 4z z } $8  4z { / $ =z z } $= 8 3  %z U}  $3  %z i{ l~ z $3 L/O { & $L } T i{ ]~ z $LyO i{ l~ L/O   n { ~ $ %z { `{ 3  %z ~ r{ Fz $3 LO } L/O { ~ $LA@ Uz  $ %z { ~ $ 4z z } $8  4z z Uz ~  ~ "z   }    }  |  1 s w } - Uz ~ & Iz %z Uz ~  ~ "z   } | ~  0{    0{  | \ }  a H{    H{  | \ }  a i{    i{  | \ 6~  a 1 g  0{  } ~  ~ %z(E$,3):J17:E$DY$(J)YC1:JSJ:J7Aa SL(NT)3Ă:YC02220Ga a$ VV2:1::39):1:"HOW MANY ";T$(NT)"S: ";:HT:XMHT:XXXM2a. 220:130:AK272220a8 NX(NT)(E$):NX(NT)1NX(NT)202340aB SL(NT)SL:JS(NT)JS:NTNT1 bL VVVV4:N220:130:AK27NT02601`AK27SL(0)4260T`AK27NT1VVVV4:NT0:2340o`SL(NT)1(E$)02220x`YC0`SL(NT)1JS(E$)`SL(NT)2E$(E$,3):J112:E$Y$(J)YC1:JSJ:J12`SL(NT)2Ă:YC02220`YC0&a SL(NT)3E$SL(NT)1JS(E$)K_SL(NT)2E$(E$,3):J112:E$Y$(J)YC1:JSJ:J12f_SL(NT)2Ă:YC02220o_YC0_ SL(NT)3E$(E$,3):J17:E$DY$(J)YC1:JSJ:J7_ SL(NT)3Ă:YC02220_ `$ VV2:1::39):1:"HOW MANY ";T$(NT)"S: ";:H1"XmAK51650AXr34,0::A$"SAVE PRESENT DATA":H4:V3:600KX|VT13XVT:1::39):1:"TYPE DATA NAME: ";:XM18:XX39:220:130:E$""AK27ė:1480X:1X(E$)01675X4000XVT4:1::39):1:8Y"STORE ON DISK IN DRIVE (")X,YYS(J1):("*")X((T$)1)152,YYS(J1):FYYYS(J1)J1N72:("*")X(J1)7,Y:("*")X(J1)7,YYD:233,134:232,204" 23:14::"HIT RETURN.":.16368,0>16384,128X:D$;"RUN DISK MENU"{XXTX10:YTY10:N((T$)1)15]233,96:232,0bJ1N72gYD7l("*")X(J1)7,Y:("*")X(J1)7,YYD:uNT14vJ1NTYS85("*ND ONE BY FIRST CLASS MAIL "L ^:"THE SAME DAY, IF THEY AGREE TO SEND A "{ h:"CHECK FOR $29.95 TO SPECTRAL GRAPHICS" r:"SOFTWARE, 540 N. CALIFORNIA, SUITE 22," |:"STOCKTON, CALIFORNIA 95202. THANK YOU":"FOR HONORING OUR COPYRIGHT.16368,0:16384,128 #N $:::"PLEASE MAKE JUST ONE COPY OF CURVEPLOT"T % ("FOR YOUR OWN USE. IF OTHER APPLE USERS" * ,"WOULD LIKE A COPY OF CURVEPLOT THEY" 6 @"MAY CALL (209) 463-7309 OR 957-1302 AND" J T"WE WILL SEHICS":J1(T$):((T$,J,1))TX,TY:TXTX7: TYTY10:TXTB:T$"540 N. CALIFORNIA":J1(T$):((T$,J,1))TX,TY:TXTX7: TYTY10:TXTB:T$"STOCKTON, CA 95202 J1(T$):((T$,J,1))TX,TY:TXTX7: 16297,0:16304,0:16299,0 "TYTY80:TX25:VNTX,TY:TX220:VNTX,TY/ D TX((T$)1)15:W 233,96:232,0y ("T")TX,TY:("M")TX7,TY TY40 TX91:TYTY60:T$"(C) 1984" J1(T$):((T$,J,1))TX,TY:TXTX7: TB57. TYTY20:TXTB:T$"SPECTRAL GRAPA34508" d" nT$" CURVEPLOT "+ p600o xJ1(T$):VN((T$,J,1))31:VNTX,TY:TXTX14:VN42TXTX4 VN49TXTX2 VN46TXTX3 TX40 185 VN11:JTX15TX15((T$)1)15:VNJ,TY20::TYTY40:NT0NT1:170) A$@m104,64:103,1:16384,0:35099?@x(4);"RUN POST HELLO"e@m104,64:103,1:16384,0:35099@x(4);"RUN POST HELLO"UN POST HELLO"RUN POST HELLO"LLO"204P:D$"BLOAD CHARACTERS,A$6000" Z233,134:232,204::D$"BLOAD BLOCK,(-16368,0:16384,128:34,0:::116-:14::216,0:A$"THERE IS NO DATA IN MEMORY.":B$"HIT RETURN.":20(A$)2:A$::20(B$)2:B$::12:94-S$""ı-L(S$):P,L:N1L:D$(S$,N,1):AK(D$):PN,AK::.NAME$E$:(NAME$,4)"DATA>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     BL/O   { '{  %z { 9{ (3  %z { 9{  4z { `{ (8  ~ "z %z { `{  ~ "z | } $ *{ z %z | ~ $ <{ z %z | ~ $ c{ z } { U} | c $~ Y  n dz { ^z LY W 5   Y U} | c $~ W o U} | c $~ |~ sz %z yz ~  z %z yz ~ & "z u{ c ~ | { a} |  n dz | Y d} ^z LW W 5   Y | W o W ԁ | z BL/OLW W ԁ } o gz   W z  } 4 z ^} $LW  ҁ 5  ԁ 1 | ҁ o | z z } $3  %z { ~ $ 4z z } $8 3 L@V  8L/O {{ ~ $L/O {{ ~~ $ %z { '{ (3 L/O 0{ l~ z ( %z { 9{ (3  %z H{ l~ z ( 4z { `{ (8 3 L/O {{ ~  %z { '{ 3 LY { '{ LX { Z~ L/O   L U U 8L/O { } $ %z { ~ $3  %z z } $3  %z U} ~ $3 L/O { ~ $ %z z } $3  %z { ~ $ 4z z } $8 3 LU 8L/O { ~ $ %z z } $3  %z { ~ $ 4z z } $8 3 LU Ӏ 8L/O { ~ $ %z%z { ~ $ 4z z } $8  4z { ~ $ =z z } $= 8 3 L`T } sz vz {{ } { |LO\ { } $ %z { ~ $ 4z { ~ $ =z z } $= 8 3 LT } O} R} { | {{ }LO\ { / $ %z z } $3  %z { ~ $ 4z z } $8 3 { l~ z & %z { / $ 4z { ~ $ =z z } $= 8 3 LsS U} } R} { | {{ } } { O\ U} } LsS #uL/O i{ l~ z (L/O {{   %z yz Fz &3  %z { ~ $ 4z { ~ $8 3 LS yz } vz { | {{ }LO\ {{ ~~ & %z yz ~ 3  8 3 Lq { ~ $ %z z } $3  %z ^ n u{ pz 3 LRR U} {Lq { ~ $ %z z } $3  %z {{  $3 Lq { } $ %z { ~ $3  %z U} ~ $3 L/O { } $ %z { ~ $3  %z z } $3  %z U} ~ $3 L/O iLSL(NT0)FL(NT1)*_fSL4SLFL:NT1>_pSL1T$"YEAR"S_zSL2T$"MONTH"f_SL3T$"DAY"t_T$(NT)T$_SL(NT)SL_HT20_NT0SL(0)4NT1_NT1SL(1)42390_VV:1::39):1:"BEGINNING "T$(NT)": ";:HT:XMHT:XX39` $3  %z z } $3  %z yz ~ &3 L/O {{ ~~ & %z { ~ $3  %z z } $3  %z yz ~ &3 L/O i{ l~ z & %z U} } $3  %z { ~ $ 4z z } $8 3 L/O yz Fz (LR { ~ $ %z z } $3  %z ~ r{ pz  4z {{  $1/2) ? ";:XX33:XM33:220:130:AK27Ĺ34,VT3::1670TYE$""Ĺ34,VT3::1670sYDN(E$):DN1DN21700YB2,SL:B3,FL:B4,NY:B5,NXY1800YLB84MXNY1BC10:L$(L)Z:(4);"BSAVE "NAME$", A"BC$",L"L$",D"(DN):43624,1*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         46AK57)(AK32AK8AK21AK13)42UA0AK13E$"":J1PXXM:E$E$D$(J)::qA5AK8PXXMČ1008:42A:AK32PXXXĝ:" ";:D$(PXXM1)" "::42A?PXXX42ADD$(PXXM1)K$::K$;:42AI:ANJ125:D$(J)""::E$"":AeDM100( 8  ܍ 8L 8   8 L 8   L 8L 8L 8L 8  8L 8  ҋ8L 8L 8   8L 8   8  ,8   8  ʎ 8   L zL 8  d 8  8   8  & 8  ] 8L 8  8L 8L 8L 8L 8L 8L 8  ֊8L 8L 8  8"L 8  $ 8:L 8  <8L 8  ƍ(1 OR 2) ? ";:XM24:XX24:78:42>OAK27Ĺ34,(37)::2220]ODN(E$):DN1DN22245O(NAME$,4)"DATA"NAME$NAME$" DATA"O3200O:(4);"BLOAD "NAME$",D"(DN)O216,0O103,1:104,64:16384,0:36899 PG2ĺ:(4);"RUN C" NVVVV6#NVV:1::39):1ZN"NAME OF DATA: ";:XM16:XX39:78:42:AK27800jNB43690023NE$""ĭ(B4)2(B4)174000NE$""2270NNAME$E$N(NAME$,4)"DATA"NAME$NAME$" DATA"NVV3:1::39):1!O"WHICH DRIVE  a i{    i{  | \ U}  a 1 w L  0{    0{  ~ O}  H{    H{  } O}  i{    i{  U}  w g  yz ~ & %z ~ sz 4z yz ~  1z "z - yz   }    }  |  1  {  | \ |    {  | \ |   ԁ | \ | ށ ҁ o dAL/O w yz / $ %z U} / $3 ` g  yz ~ & %z ~ sz 4z yz ~  1z "z - yz   0{    0{  ~ O} %z | \ (z  a H{    H{  } O} %z | \ (z | \ | ށ W o | \ |  W  o dAL/OL1[ 0[ ԁ } o gz   W z  } 4 z ^} $Lp[  ҁ 5  ԁ 1 | \ |  ҁ  o {  $ %z d} ^z (3 L4\ z } $ *{ %z z ~ $ <{ "z %z z ~ $ c{ "z { w {   3  %z { 9{  4z { `{ (8  ~ "z %z { `{  ~ "z z } $ ~ O} %z z ~ $ z | ~ sz %z yz ~  z %z yz ~ & "z u{ c ~ | \ | ܁ Y  n dz z } $ *{ z %z z ~ $ <{ z %z z ~ $ c{ z a} } a} ^z L-[ W 5   Y | z W ԁ BL/OLY Y ԁ } o gz   W z  } 4 z z $LQY  ҁ 5  ԁ 1 U} | c $~ ҁ o U} | c $~ | | z BL/O {   %z {  ( 4z {  8 3 L/O i{ l~ z (L/O   { '{  %z { 9{ (ZZ1480Z216,0Z34,VT3:::"DISK IN DRIVE ";::DN;::" IS FULL, OR ELSE THE"::"DRIVE IS INOPERATIVE. HIT RETURN."Z120::1700Z&Z0VT12Z::A$"CHANGE DATA STORED ON DISK":H4:V3:600ZDVT:1::39):VT:1)[N12:Fzz`ˠ5     I:5757757 5575757575757575ow575w>.>.IRI:5757757 5575757575757575ow575w>.>.IRI:5757757 5575757575757575ow575w>.>.IRI:5757757 5575757575757575ow575w>.>.IRI:5757757 557575757575757ē唐\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   > } T ~  L#aRUN POST HELLO,D1 a  { u~ $L } T XL`aSAVE PRESENT DATA Na c H~ 8| $~ s} K ~ | |  }  s   } LaTYPE DATA NAME: a  e {  R} D &CLa 5 a  %z { & $3 La XL6^ s }R} &C  T{ { } ( %z { i~ 3 L_ } > } T { } $L=E { ~ $Ldd { ~ $L;f k| G } $ %z k| G $3  %z | G } $3  %z | G $3 Lw { ?~ $L` ~  L`RUN CHART 3D,D1 `  { i~ $L.a LOT CHART ^ o > L(_SAVE PRESENT DATA _ o  LM_RETURN TO DISK MENU 9_ o   }  } -    w ܀   | a   sL_ | _   1 > } T  s  L_WHICH NUMBER ? _  D \ { \ i{ l~ | $L^ i{ | }  |  { } $L3^ } {`L/O -~ > } T X -~ >  TL_^ DATA ENTRY T^ c H~ 8| $~ s} K } L^ENTER NEW SET OF DATA ^ o } L^CHANGE DATA STORED ON DISK ^ o 6~ L^RETURN TO PRESENT DATA ^ o ~ L_ PT:XMHT:XXXM2)`. 220:130:AK272220S`8 NX(NT)(E$):NX(NT)1NX(NT)MX2340s`B SL(NT)SL:JS(NT)JS:NTNT1`L VVVV4:NT12140`V HERE WHEN DONE SETTING STARTING TIMES`` B2,SL(0):B3,SL(1):B4,NX(0):B5,NX(1)aa SLSL(0):FLSL(1):SL4HART 3D,D1"!PAK1:770,6:2070;P 16368,0:16384,128EP 1200_P 16368,0:16384,128eP wP 34,0::2000P 216,0P VV6:1::39):1P "DATA FILE IS NOT IN DRIVE ";DN;:". PLEASE"::"HIT RETURN."P 16368,0:16384,128 Q 34"NAME OF DATA: ";:220:XM16:XX39:1306[X16384,0F[bAK271480V[lE$""1860i[v(E$)01860s[4000[16::1:39):1[16:"DRIVE NUMBER: ";:XM16:XX16:220:130[AK27Ĺ34,15::1860[DN(E$):DN1DN21940[2800THERE ARE MANY COMMERCIALLY AVAILABLE"::"SCREEN DUMP PROGRAMS WHICH CAN DO SOME"T@:"SENSATIONAL THINGS WITH GRAPHIC SCREEN"::"IMAGES. THESE PROGRAMS ARE COMPATIBLE"UJ:"WITH ALMOST EVERY IMAGINABLE PRINTER."::"EXAMPLES ARE ZOOM GRAPHICS, PAI EXEC"(4);"RUN SCI EXEC"(E$):AKN?E AK1AK72470:6:"WHICH NUMBER ? ";:78:XM22:XX22:42XD AK27Ĺ774,1::(4);"RUN POST HELLO"iD N(E$):AKN}D AK1AK42470D AK1ĺ:(4);"RUN HIGH LINE"D AK2ĺ:(4);"RUN AREA CHART"D AK3ĺ:(4);"RUN TREND CHART"E AK4ĺ:(4);"RUN SCJ):/CL :A$"SELECT CHART TYPE":V3:H4:790;CV 34,7:EC` VT13OCt VV10C~ VV:W$(1)"LINE CHART":W$(2)"AREA CHART":W$(3)"TREND CHART":W$(4)"MATHEMATICAL EQUATION"C VVC 1C J14::(91);J;(93);::" "W$(J)::-D 16368,0:19:"NAME$NAME$" DATA".! z o | } $L1q gz z o 1 1 | ?~ $L}q } - }   } | ~ | { | Ax 1 z ?~ $LL } - Uz   } | ~ | { | Ax 1 LL s {{ ~ w Lr \ x{ $~ R} {{ } { | } { yz } v o | } $L"p gz z ( o 1 | , ~ L6q } G | !   | az c } z Z~ & z %z `~ z 4z z Z~  =z z ~ (=  1z "z %z ~ z 4z z ~  =z z Y (=  1z "z %z 2 z 4z z /  1z "z z | } $Lq gz az c }  o | } $L@o gz | az c }  o 1 | , ~ L'p } G | !   | az c } z ~~ & z %z ~ z 4z z ~~  =z z n (=  1z "z %z z z 4z z n  1z "z z | } $Lo gz z ({ o } } } J| E~ G| } } &Lj | A } , Q V| A } , Q k| A } ! Q | A } ! Q } , z } , | z ?~ $ %z | ?~ $3 LL } ! Rz } ! } } - }   | , } LEo } G | !   | } $Lo gz | | { `~ | } , ~ $L/m 1 { } $Lj J| ~  }  s   } LZm HOW MANY Pm LjmS: } ǁ em   {  { { ~ R} D &C { & $Lj } #  o } ! } ( %z } !  3 L/m } . z o } $3 Lj } { } , } $L-l  { } , ~ $Ll 6~  } - L   | ( Ll } { | { ~ | } , ~ $Ll 1 { } $Lj } { } , ~ $Lm 6~  } -    | Lm } {3 L n J|  }  s   } L1k BEGINNING L8k: } ǁ &k  4k   {  { {  R} D &C { & $ %z } } $3 L=E { & $ %z } , ?~ $3 L=E { & $ %z } } $3 Lk H~ D| G| } }L/m } , } $ %z  }| $~ s} K } } $ z %z } } $ | "z z ?~ $L>j | z } } z } $L\jLTjYEAR Oj z ~ $L{jLsjMONTH mj z ~ $LjLjDAY j } Ɂ o } . z o  { } } $ %z } , ?~ $3 Lj } } } } $ %z } , ?~ $i } . | o $~ } } # } o c ~ G| } }LaiJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECi } - L   | *  o 1 LiMONTUEWEDTHUFRISATSUN } -    |  o 1 -~ > } T XLiSET AXES LIMITS i c H~ 8n 1} %z { } G } n "z %z { G n "z %z { !~ G n c  i "z s} | \ |  v} o 1 1 LL z ?~ $ %z | ?~ $3 Lh } . z o } . | o $~ } $~ Rz } # Uz o } # } o L n z ?~ $Lh } . z o $~ Rz } # Uz o | ?~ $L| | D { z G  B  o 1 1 } - Uz   } | ~ | { G n dz | Leg dg o } o gz   | | D { z G  B  o 1 1 } - Uz   }  }   } | "} B~ | %z } | B~ "z { ~ G 5  e    e  D w|  B   A } T | G n z V| G n | k| G n Rz | G n } } $ %z } } 3  %z Uz } $ 4z Uz } 8 3 Lw } - }   } | ~ | { G n dz | Lf f o } o gz   } T { & $L6^Le 5 e Ld  } Ld x  s }    }  LoeDRIVE NUMBER: _e  G { G R} D &C { & $Le -~ > p T XLd  t| }  %z w| ~ 3 L;e 7v ~  LeBLOAD Le,ALe,D e | a sLd IS FULL, OR ELSE THE d  LPd"DRIVE IS INOPERATIVE. HIT RETURN. -d  C XLb ~ | XLdCHANGE DATA STORED ON DISK pd c H~ 8| $~ s} K |  }  s   |  }  L LdNAME OF DATA: d  D G {  R} &C } > k| A Uz Q | A } Q 7c H~ "} Iz | } c { ~ dz  m ~  LScBSAVE LZc, AL`c,LLfc,D Lc 5  Vc    ]c  k  cc  D w|  B   A } TL6^ > } T -~ > | !~ Q X sLcDISK IN DRIVE c  w w   } La x | E~  }  s   } LUb STORE ON DISK IN DRIVE (1/2) ? 4b   R}  { D &C { & $Lb -~ > | !~ Q XL}aLb 5 b Lb -~ > | !~ Q XL}a  t| }  %z w| ~ 3 Lb | A z Q V| A | QW1:W2DX3W2W21:W1W2RR:700TIN3RRW1W2:W1DY1W1W11:W2W1RR:710jIW1(W1):W2(W2)yIW12W12IW22W22ITLTM:SPY7Y4:J1NY:I1NX:V(I,J)SP(V(I,J)VN)(VXVN)::I2870: PLOT TICK MARKS AND TYPE LABELS JA(XX4,Y4X7,Y7HbX5,Y5X8,Y8PHlX5,Y5X5,Y54:X6,Y6X6,Y64:X7,Y7X7,Y75rHvX81,Y8X11,Y1:X5,Y5X2,Y2HX4,Y4X1,Y1X2,Y2HX6,Y61X5,Y51HX51,Y5X21,Y2HT(A)HSXX8X7:SYY6Y7:DXSX(NX1):DYSY(NY1)H3"IRRW2LS7(LN2)"GX1279RSW(A),GTM116GY1TMLGX2279RS:Y2WTMeGX3LSW(A):Y3WTMuGX4LS:Y4Y1GX5279RS:Y5191BLGX6X3:Y6Y5GS6X6G&X7LS:Y7Y6WG0X8X1:Y8Y7G:R1X1GDHHY5Y2GNX5,Y5X6,Y6X7,Y7X8,Y8H1610: TELL HIGH/LOW, PICK NEW =Fh:16302,0DFr3RF|A45:W80gFAA1803.141596wFRS5:BL20:FVXMAXVX$(VX):LN(VX$)FVXMAXVX$(MAX):LN(VX$)F(SL$(1))LNLN(SL$(1))F(MAXVN)5((MAXVN)5)İ3240 G4(I1)4:P2P11:P3P21:P4P31IE"P1(P1):P2(P2):P3(P3):P4(P4)E,LBP1P2256.P3POW:RBP4100:RB(RB):RBRB10000:V(I,J)LBRBE6V(I,J)VNVNV(I,J)E@V(I,J)VXVXV(I,J):JSJEJ:ETA(4)1VN0:2360: SET SCALE MAX-F^A(4)2B31:B5B41:B6BC40:B7B6MX8:B8B7MX8BDNX(B5):NY(B4)DJ1NX:BL$(J)"":BB6(J1)8:L(B):K1L:BL$(J)BL$(J)((BK))::DJ1NY:SL$(J)"":BB7(J1)8:L(B):K1L:SL$(J)SL$(J)((BK))::!EJ1NY:I1NX:P1B8(J1)MX'lD DX25āJ1NX:BL$(J)(BL$(J),1):GlN J1NX:X1X6JDX:Y1Y67:ilX P31DX18RPRP:RP03230lb DX9WPWP:WP03230ll Y1Y17:X1X14lv LN(BL$(J)):LN1X1X16l P31DX18X1X11l LN4P31X1X14.m LN(BL$(J)):K1LNPER"*UT:"GRAPHICS, AND PRINTOGRAPHER."KUh16368,0:16384,128::110SUp12ZUt1rUz:(91);"1";(93);U:" DUMP A CHART TO PRINTER."UU:(91);"2";(93);UU" SEE INSTRUCTIONS."U:U:(91);"3";(93);UV,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé 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! 5Bz | } | O\ Uz } RzL'r yz } vz Uz } Rz yz / $ %z U} / $3  %z Uz / $3  %z U} / $3  %z } / $3 L/O } , } $Lr Uz } Lz  }  o } , ~ $L>s } Oz c } | ~~ & | %z ~ | 4z | ~~  =z | nRVES":R$(4)"AUTOMATIC SCALING":R$(5)"PLOTTING SYMBOLS"LX21:1:39):1TX20^XW$""gXNT0qX VT2|XJ15X R$R$(J)W$:XM(R$)1:R$;X*L121(R$):".";:::C$(J);X4WW22X>NT02210#YH16368,0:22:K$:AK(K$):(AK27:"CHART TITLE: ";:130:XM15:XX32:40CWUU1AK27UU0:1230SWAK272590^WCT$E$gW:1sWVT10:W34,9:WVT:1WVT::"RETURN";::" ALONE ACCEPTS DEFAULT CHOICE."8XR$(1)"LABEL CURVES":R$(2)"GRID DOTS":R$(3)"COLORED CU7Ĺ34,15::1720 VE$""17709VBN(E$):BNVX1770CV::_V&VXBX:VNBN:MAXVX:360eV0oV:34,0yVDVT12VN2590: SIZEVX:A$"SET 3DCHART TITLES AND STYLE":H4:V3:200VbNT1NT0:1970VlVT12VvVT:1::39):VT:1(W12::39):1VU"SET THE ";::"UPPER";::" LIMIT EQUAL TO: ";:XM32:XX39:130:40lUAK27NT1:1880|UE$""1720UBX(E$):BXVX1720U16:1::39):1U"SET THE ";::"LOWER";::" LIMIT EQUAL TO: ";:XM32:XX39:130:40VAK2URN."'T616368,0:16384,128::1450-T@3TJCTTZXVX:ZNVNLT^LG1XTh34,0:aTrVT4T|A$"SET SCALE LIMITS":H4:V3:200TVT5T1T"THE HIGHEST DATA VALUE IS ";::VX:TT"THE LOWEST DATA VALUE IS ";::VN: U14:1N)S43624,1S*SN5İ2340:1220VSN6Ĺ772,1::(4);"RUN POST HELLO,D1"SN7Ĺ770,1::(4);"RUN POST HELLO,D1"S1230S"216,0T,34,VT3:::"DISK IN DRIVE ";::DN;::" IS FULL, OR ELSE THE"::"DRIVE IS INOPERATIVE. HIT RETAK27ė:1230RNAME$E$3RVT4:1::39):1:R"STORE ON DISK IN DRIVE (1/2) ? ";:XX33:XM33:130:40:AK27Ĺ34,VT3::1430RE$""Ĺ34,VT3::1430RDN(E$):DN1DN21450R1570S:(4);"BSAVE "NAME$",A$2000,L8192,D"(D2480 QFQP22:*QZAK1UU1:1840PQdAK2ĺ:(4);"RUN CHART TYPE,D1"sQnAK4ĺ:(4);"RUN PRINTER,D1"QxAK31520Q34,0::A$"SAVE CHART":H4:V3:200QVT13 RVT:1::39):1:"TYPE CHART NAME: ";:XM19:XX39:130:40:E$"" AT CHART":W$(6)"ENTER DATA FOR A NEW CHART":W$(7)"RETURN TO DISK MENU"PP8WP 1PJ17::(91);J;(93);::" "W$(J)::P16368,0:23::6:"WHICH NUMBER ? ";:130:XM22:XX22:40P(N(E$):AKNP2AK1AK71310Q<AK4AK6AK716368,0:16384,128:34,0::1O34,0::34,7;OVT13bOA$"LINE CHART MENU":H4:V3::200O5:W$(1)"CHANGE GRID, TITLES, COLOR, SCALE":W$(4)"PLOT CHART ON PRINTER":W$(3)"SAVE CHART TO DISK":W$(2)"CHANGE CHART TYPE"IPW$(5)"RETURN TO LOOK0NLXFX61:N3XFX6DNVK1V:X31,Y3KXF,Y3K:: FRONT KN`3bNjX1,Y1X2,Y2X3,Y3sNtX4,Y4X5,Y5N~X71,Y7NX3,Y3X6,Y6:X2,Y2X7,Y7:X4,Y4X1,Y1X2,Y2NN31190N3:K1W11:X1K,Y1KX1K,Y4K:NN3NOMX4X1:Y3Y4W1:X5X4W2:Y5Y4:X6X5W1T:Y6Y3:X7X6:Y7Y2DM0rMK1W1T1:X1K,Y1KX1K,Y4K:: SIDExMM3M1MK1W11:X4K,Y4KX5K,Y4K:: TOP M$3M.X4,Y4X3,Y3:X5,Y5X6,Y6:X61,Y6M8X61,Y6X71,Y7NBN38,0:34,0:::1850%LzVV(NXI1,J).L9704L:LRLX6LSWT:Y6191BL^LJ1NXLX1X6JDX:Y1Y6:X2X14T:Y2Y64:X12,Y1X22,Y2LX12,Y1X12,Y14LL3040L3:1220LLX1X:Y1Y:X2XW1T:Y2Y1W1:X3X2:Y4YV=25 K>D8%KHOPOP:DY8OP0860KRXLLSJDYT:YLYW12D:LN(SL$(J)):XLXL7(LN1):K1LN:D$(SL$(J),K,1):AK(D$):AKXL(K1)7,YL:K\R1JDYT,YW12R1JDYT,YW12HHKfI1NX:XX8IDXJDYTW22W12Lp(16384)155Ĺ1636:D$(BL$(J),K,1):AK(D$):AKX1(K1)7,Y1:4m Om HERE IF FRACTION MAXqm S$((MAXVN)5):LN(S$)1:m A$"3DCHART! INSTRUCTIONS":H4:V3::200m 9:n "THE INSTRUCTION SET IS PRESENTLY EMPTY. PL" RETURN TO DISK MENU."HV21:1::40):21:6:"WHICH NUMBER ? ";\VXM22:XX22:42lVE$""6080VE(E$):E1E36080VE1117VE25000VE3Ĺ772,1::(4);"RUN POST HELLO,D1" E3Ĺ772,1::(4);"RUN POST HELLO,D1" RUN 1:K$:AK(K$):AK27ĝ:7A2AK21PXXXČ1036:40oA<NF1(AK46AK57)(AK32AK8AK21AK13)40AFAK13E$"":J1PXXM:E$E$D$(J)::APAK8PXXMČ1008:40AZAK32PXXXĝ:" ";:D$(PXXM1)" "::40AdPXXX40BnD$(PXX0@HM38900:35099:1:0:3_@:(4);"BLOAD CHARACTERS,A2048"::(4);"BLOAD BLOCK,A3072"h@ 140@21:1:"USE ";::"ARROWS";::" TO RELOCATE CURSOR."@@23:1:"HIT ";::"ESC";::" TO GO BACK TO TITLE PAGE.":A(16368,0:PX(36)p|@p@~>Uj~+U0`` |~@`  ~ x?0`A ^*5W*}W*0d@~@   0e P31DX18X1X11-e LN4P31X1X14te LN(BL$(J)):K1LN:D$(BL$(J),K,1):AK(D$):AKX1(K1)7,Y1:ze e HERE IF FRACTION MAXe S$((MAXVN)5):LN(S$)1:z "z | Uz | o Uz Uz ~ | { Ax {{ }  }  w   }  { '{ ( %z { '{  4z { 9{ (8  *{ "z %z { 9{  4z { `{ (8  <{ "z %z { `{  c{ "z { Uz  {{ }  w 0{    H{    i{    0{  (=  1z "z %z z | 4z | n  1z "z | Uz | ( o Uz } Lz ~ | { Ax } , ~ $Lt } Oz c } | Z~ & | %z `~ | 4z | Z~  =z | ~ (=  1z "z %z ~ | 4z | ~  =z | Y (=  1z "z %z 2 | 4z | /  120:1:39):1D` "CHOOSE SIZE (1-10): ";:XM22:XXXM1:130:40g` AK27Ĺ34,(37)::34,0:2610` S(E$):S1S102710` W24S:N1W1W20.7071.3:W1(W1):W2(W2):1880` N1ĝ:22:1:39):1)a "RATIO OF FACE/EDGE LENGTHS (1-";:(39):1$_< :"TYPE OF BAR:":::6_F "(1) SQUARE<_P a_Z "(2) FRONT-FACING RECTANGLE":_d "(3) SIDE-FACING RECTANGLE":_n :"WHICH NUMBER ? ";:XM17:XXXM1_x 130:40_ AK27ĺ:(4);"RUN POST HELLO"_ N(E$):N1N32610` :TO CONTINUE."^ h^ :"NOTE: CHARTS MAY BE PRINTED ON PAPER"::"WITHOUT FIRST SAVING IT ON DISK."^ 16368,0:16384,128^ AA(16384)128^ AA27AK3:1410^ 1350^ :A$"SELECT BAR SHAPE AND SIZE":H4:V3:200^( VT8_2 :VT:1:2ARG ] ] 350L] 34,0::A$"END OF LINE CHART PROGRAM":H4:V3:200U] VV9]] VV] "WARNING. IF YOU HAVEN'T SAVED YOUR"::"CHART TO DISK, AND WISH TO DO SO, PLEASE ^ "HIT THE ";::"ESC";::" KEY. OTHERWISE, HIT ";::"RETURN":::"MAX(MAX1):3500\V MAX5MAX10MAX10:350Z\` MAX10(MAX)MAXMAX(MAX1):350u\j MAX10(MAX)MAX350\t VKMAX\~ MAX$((MAX)):Q(MAX$):TQ(MAX)10(Q1):BQ10(Q1):MAX(TQBQ)BQ\ M010:ARG510M] MAXARGMAX2ARGMAX1:130:XM21:XXXM:40:E$(E$,1)K[E$"Y"E$"N"E$""Ė1:255:2270U[K$E$y[K$"N"Ģ20:1::39):1:2030[ A(5)2A(1)2[ [ 220[$ 16297,0:16304,0:16300,0[. [8 MAXVX[B MAX(MAX)MAX5350\L MAX5(MAX)MAXA(J)2CZAK13ĖWW::C$(J)::A(J)(C$(J)"YES")2(C$(J)"NO ")qZK$"Y"ĖWW::"YES"::C$(J)"YES":A(J)1ZNT0ĺ:1:Z:ZNT0NT1:2060Z23:1:39):1Z21:1:39):1Z255![20:"ARE THESE CORRECT ? ";::"YES";::2EASE HIT RETURN."n 1220Hn34,7::A$"SET ROW COLORS":H4:V3:200^nJ1NY:HC(J)0:en7n"GREEN VIOLET WHITE BLACK RED BLUE"nVV10nNY(B4)n:M16:CC$(M):: GREEN,VIOLET,WHITE,BLACK,RED,BLUEnJJ1NY:o:VVPOST HELLO,D1"               !"   G6(Y202)T*NA(6)1ēF11,G1F21,G2GNA(7)1ēF21,G2F21,Y1MN_N 233,8:232,0|N*J1NY:YY8JDYW1T2N,3N/A(6)2822N4LSJDYT,YW12R1JDYT,YW12N6N7LSJDYT,YW12LSJDYT4,YW12N>D4 OHOPOP:DYMW1(W1):W2(W2)%MW12W124MW22W22yMTLTM:SPY7Y4:J1NY:I1NX:V(I,J)SP(V(I,J)VN)(VXVN)::M2870: PLOT TICK MARKS AND TYPE LABELSMM Y2W:Y3Y2 NF6LSWT:G6191BL:J1NX:F1F6JDX:G1G6:F2F1(Y202)T:G25,Y51LX51,Y5X21,Y20LX2,Y21X11,Y1=LX12,Y1HLT(A)xLSXX8X7:SYY6Y7:DXSX(NX1):DYSY(NY1)L3LN3710LRRW2W1:(W2DX3W1DY3)W2W21:W1W2RR:700MN3RRW1W2:(W1DY3W2DX3)W1W11:W2W1RR:710VL$,J,1):AK(D$):AK7,7(LVJ1)TM::0GKRX5,Y5X6,Y6X7,Y7X8,Y8\KSX7,Y71X8,Y81mKXX4,Y4X7,Y7~KbX5,Y5X8,Y8Kk630KlX5,Y5X5,Y54:X6,Y6X6,Y64:X7,Y7X7,Y75KvX81,Y8X11,Y1:X5,Y5X2,Y2KX4,Y4X1,Y1X2,Y2LX6,Y61X):RT(LV1)48:RT:LV0594:JJ233,12:232,0:LV12590]JKYTM:X0:LV5Y(5LV)213YJLJ1LV:D$(VL$,J,1):AK(D$):AK31X,Y(LVJ1)12:YY5(D$"I")2(D$"L")2(D$"W"D$"M")3(D$"1"):JM0:594*KN232,0:233,8:48:J1LV:D$(L2lI0K1L:D$(CT$,K,1):AK(D$):AK31XC(K1)13,0:XCXC4(D$"I")2(D$"L")2(D$"W")2(D$"M")I5XCXC2(D$"1")I?IG585IH233,8:232,0:L(CT$):XCLS(X8X7)27L2:K1L:D$(CT$,K,1):AK(D$):AKXC(K1)7,10:JILV(VL$Y1TMHX2279RS:Y2WTM4HX3LSW(A):Y3WTMDHX4LS:Y4Y1\HX5279RS:Y5191BLlHX6X3:Y6Y5vHS6X6H&X7LS:Y7Y6WH'X8X1:Y8Y7H(R1X1H)HHY5Y2:(CT$)0583H*(CT$)20584I.233,12:232,0:L(CT$):XCLS(X8X7)213Gr3G|A45:W80)GAA1803.1415969GRS5:BL20:CGLS25dGVXMAXVX$(VX):LN(VX$)GVXMAXVX$(MAX):LN(VX$)G(SL$(1))LNLN(SL$(1))G(MAXVN)5((MAXVN)5)İ3240GLS7(LN2)LSGX1279RSW(A)GTM23H3):P4(P4)PF,LBP1P2256.P3POW:RBP4100:RB(RB):RBRB10000:V(I,J)LBRBiF6V(I,J)VNVNV(I,J)F@V(I,J)VXVXV(I,J):JSJFJ:FTA(4)1VN0:2360: SET SCALE MAXF^A(4)21610: TELL HIGH/LOW, PICK NEW Fh:16302,01540QEJ1NX:BL$(J)"":BB6(J1)8:L(B):K1L:BL$(J)BL$(J)((BK))::EJ1NY:SL$(J)"":BB7(J1)8:L(B):K1L:SL$(J)SL$(J)((BK))::EJ1NY:I1NX:P1B8(J1)MX4(I1)4:P2P11:P3P21:P4P31 F"P1(P1):P2(P2):P3(P):A$: D`D34,0::A$"ANALYZING DATA":H4:V3:200:12:A$"PLEASE WAIT.":20(A$)2:A$}DVN10000000.:VX7777777DNX(B5):NY(B4)D14ENX0NY0NX255NY255ĺ"THERE IS NO DATA IN MEMORY. HIT RETURN.":16368,0:16384,128:N6:350991801:MX17:POW(65536):BC$(BC)sCB1BC20:B2B11:B3B21:B4B31:B5B41:B6BC40:B7B6MX8:B8B7MX8C:1840C220CC1::J138:"*";::J1H:"*";::39::"*":DJ139:"*";:::V:2:36)::LA(A$):V:((40LA)23HM38900:35099V:(4);"BLOAD CHARACTERS,A2048"::(4);"BLOAD BLOCK,A3072"}:(4);"BLOAD PLOT CURSORS,A7168" 10121:1:"USE ";::"ARROWS";::" TO RELOCATE CURSOR." 23:1:"HIT ";::"ESC";::" TO GO BACK TO TITLE PAGE.":|v } } c } | Z~ & | %z `~ | 4z | Z~  =z | ~ (=  1z "z %z ~ | 4z | ~  1z "z | } | o } } } ~ | { Ax L  i{  }  }  i{ ` D n {Lv. HIT RETURN. v c s { i~ $M1)K$::K$;:40Bx:9BJ125:D$(J)""::E$"":CBDM20nBD$(25),SL$(DM),V(DM,DM),BL$(DM),X(DM)zBHC(DM)BC$(4)"YES":C$(5)"NO":A(4)1:A(5)2BC$(6)"YES":A(6)1: BOT GRIDBC$(7)"YES":A(7)1: S IDE GRID 'CBC } ^ H{  } ^ i{  } ^ { L/O } } } } , } $L^u } } }  }  o } , ~ $Lu } } c } | ~~ & | %z ~ | 4z | ~~  =z | n (=  1z "z %z z | 4z | n  1z "z | } | ( o } , ~ $L7)::1842^AVL$E$^DVT120^N2590: SIZE<^X34,5:m^]A$"SET CHART STYLE PARAMETERS":H4:V3:200^lJ117:HC(J)3:^VT10:^34,9:^VT:1^VT::"RETURN";::" ALONE ACCEPTS DEFAULT CHOICE."?_R$(4)"AUTOMATIC SCALING":R$BN:MAXVX:360H]034,0::A$"SET CHART STYLE PARAMETERS":H4:V3:200:]2:8:1:39):1:"CHART NAME: ";:XM17:XX39:130:40]3CT$E$]4AK271230]:34,0]?:10:1:39):1:"VERTICAL LABEL: ";:XM18:XX39 ^@130:40:AK27Ĺ34,(30:40\AK27NT1:1880+\E$""1720D\BX(E$):BXVX1720Z\16:1::39):1\"SET THE ";::"LOWER";::" LIMIT EQUAL TO: ";:XM32:XX39:130:40\AK27Ĺ34,15::1720\E$""1770\BN(E$):BNVX1770\::]&VXBX:VNй34,0:[rVT47[|A$"SET SCALE LIMITS":H4:V3:200A[VT5H[1s["THE HIGHEST DATA VALUE IS ";::VX:y[["THE LOWEST DATA VALUE IS ";::VN:[14:1::39):1\"SET THE ";::"UPPER";::" LIMIT EQUAL TO: ";:XM32:XX39:1316384)128DZ.P10PK27ĺ:(4);"UNLOCK "NAME$",D"(DN):1500qZ/P10PK13Ĺ34,(37)3::43624,1:1430Z0P9P101590Z1"DISK DRIVE IS INOPERATIVE. HIT RETURN."Z616368,0:16384,128::1450Z@ZJZTZXVX:ZNVNZ^LG1[hUN POST HELLO,D1"Y1230&Y"216,07Y$34,VT3::nY'P(222):P9ĺ"DISK IS FULL. PLEASE HIT RETURN."|Y(P91590Y)P10ĺNAME$" IS LOCKED. PLEASE HIT RETURN TO"::"RENAME, OR ESC TO UNLOCK."Y*P101585 Z,16368,0:16384,128:PK(21450X1570EX:(4);"BSAVE "NAME$",A$2000,L8192,D"(DN)RX43624,1XXmXN5İ2340:1220X104,64:103,1:16384,0:36899XN6Ĺ770,6:771,8::(4);"BLOAD RUNTIME,D1"(13)(4)"BRUN GRID SCRUNCH.OBJ"YN7Ĺ770,1::(4);"RT:1::39):1:"TYPE CHART NAME: ";:XM19:XX39:130:40:E$""AK27ė:1230]WNAME$E$vWVT4:1::39):1:W"STORE ON DISK IN DRIVE (1/2) ? ";:XX33:XM33:130:40:AK27Ĺ34,VT3::1430WE$""Ĺ34,VT3::1430XDN(E$):DN1DNNUMBER ? ";:130:XM22:XX22:402V(N(E$):AKNFV2AK1AK71310_V<AK4AK6AK72480eVFoVP22:VZAK1UU1:1840VdAK23500VnAK4ĺ:(4);"RUN PRINTER,D1"VxAK31520V34,0::A$"SAVE CHART":H4:V3:200VVT13PWVOT CHART ON PRINTER":W$(3)"SAVE CHART TO DISK":W$(2)"SEE INSTRUCTIONS"UW$(5)"RETURN TO LOOK AT CHART":W$(6)"ENTER OR EDIT DATA":W$(7)"RETURN TO DISK MENU"U8U 1UJ17::(91);J;(93);::" "W$(J)::!V16368,0:23::6:"WHICH X2,Y2:X6,Y6X7,Y7:HC(J)HTN3Ē34((228)127):X1,Y1X2,Y2:HC(J)_T3:X7,Y7:HC(J):T16368,0:16384,128:34,0::T34,0::34,7TVT13TA$"3DCHART! MENU":H4:V3::200HU5:W$(1)"SET CHART STYLE AND PLOT ON SCREEN":W$(4)"PLW11:X1K,Y1KX1K,Y4K:PS(228)127(1)(X7)0Ē3:X7,Y7X6,Y6:H(J)VSrSPC(228):34(PC127)SA(5)1Ē34(PC127):X4,Y4X3,Y3:X5,Y5X6,Y6:4(PC127):X71,Y7:HC(J)SA(5)1ēX2,Y2X3,Y3:T(228)0(228)128Ē3:X3,Y3Y6R8X61,Y6X71,Y7#RBN3Ē0:RLXFX61:N3XFX6eRVK1V:X31,Y3KXF,Y3K:: FRONT {R`34((228)127)RjX1,Y1X2,Y2X3,Y3RtX4,Y4X5,Y5R~X71,Y7RX3,Y3X6,Y6:X2,Y2X7,Y7:X4,Y4X1,Y1X2,Y2RN31190SHC(J):K1Y:X2XW1T:Y2Y1W1:X3X2:Y4YVaQX4X1:Y3Y4W1:X5X4W2:Y5Y4:X6X5W1T:Y6Y3:X7X6:Y7Y2hQ0QK1W1T1:X1K,Y1KX1K,Y4K:: SIDEQQ3Q HC(J)QK1W11:X4K,Y4KX5K,Y4K:: TOP R.X4,Y4X3,Y3:X5,Y5X6,Y6:X61,::1840PzVV(NXI1,J)$P970*P0PHPX6LSWT:Y6191BLWPJ1NX:3~PX1X6JDX:Y1Y6:X2X14T:Y2Y64PA(6)1939: IF BOT GRIDPX11,Y1X21,Y2P940PX11,Y1X11,Y14PP3040P3:1220P"QX1X:Y18OP0855{ORXLLSJDYT:YLYW12D:LN(SL$(J)):XLXL7(LN1):K1LN:D$(SL$(J),K,1):AK(D$):AKXL(K1)7,YL:OWA(7)2870O\R1JDYT,YW12R1JDYT,YW12HHOfI1NX:XX8IDXJDYTW22W12 Pp(16384)155Ĺ16368,0:34,0:)(M25):J0YL$(L)Y$(M)1(J1XL$(L)Y$(M)7(I(SL(J)3163(L1NX(J):MJS(J)L1:MM(M7)(M7)(M7M15)(M14)(M14M22)(M21)(M21):J0YL$(L)DY$(M)(J1XL$(L)DY$(M)((:FL4165 )J1NX:PB6(J1)8:S$XLL(1):B4,NX(0):B5,NX(1):SLSL(0):FLSL(1):SL4FL440c'NYNX(0):NXNX(1):J01:SL(J)1155'L1NX(J):J0YL$(L)(JS(J)L1)'J1XL$(L)(JS(J)L1)''SL(J)2159(L1NX(J):MJS(J)L1:MM(M12)(M12)(M12M25)(M2417:E$DY$(J)YC1:JSJ:J77&SL(NT)3Ă:YC0136&VV2:1::39):1:"HOW MANY ";T$(NT)"S: ";:HT:XMHT:XXXM2:20:13:AK27136&NX(NT)(E$):NX(NT)1NX(NT)20147&SL(NT)SL:JS(NT)JS:NTNT1:VVVV4:NT11318'B2,SL(0):B3,S:XX39:20:13:AK27NT0253%AK27SL(0)425U%AK27NT1VVVV4:NT0:147o%SL(NT)1(E$)0136%YC0:SL(NT)1JS(E$)%SL(NT)2E$(E$,3):J112:E$Y$(J)YC1:JSJ:J12%SL(NT)2Ă:YC0136&YC0:SL(NT)3E$(E$,3):JMITS":H4:V3:39=$SLSL(NT0)FL(NT1):SL4SLFL:NT1Q$SL1T$"YEAR"f$SL2T$"MONTH"y$SL3T$"DAY"$T$(NT)T$:SL(NT)SL:HT20$NT0SL(0)4NT1$NT1SL(1)4150%VV:1::39):1:"BEGINNING "T$(NT)": ";:HT:XMHTFL:NX3:NY3:NX(0)NY:NX(1)NX:150D#SL4SL(0)SL:NY3:NX(0)NYe#FL4SL(1)FL:NX3:NX(1)NX$:VV10:NT0: JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC:J112:Y$(J):: MON,TUE,WED,THU,FRI,SAT,SUN:J17:DY$(J)::34,0::A$"SET AXES LIL-w LwFILE IS NOT ON DISK w 5 a   { ~ $Ljw LVwDRIVE IS INOPERATIVE Aw 5 a   > } T } > } ] -~ > } T X sLjd X g  s > } TLwTHERE IS NO DATA IN MEMORY. w cLw HIT RETURN. w w a  nJJ:19oL(B7(JJ1)8):K1L:((B7(JJ1)8K));:To9:XM9:XX15:130:40joAK27ĝ:9:10)o AK27JJ11880o!AK27JJJJ1:3608o"E$""HC(JJ)03608o#E$""İ3800:CH03608o$L$(E$,1)o.L$"G"HC(JJ)1p8L$"V"H7\:(4);"BLOAD "NAME$",A"BC$",D"(DN):43624,1N\ UNFOLD DATA HEREv\SL(B2):FL(B3):NY(B4):NX(B5)\(NX0NXMX)(NY0NYMX)2870\J1NX:PB6(J1)8:L(P):XL$(J)"":M1L:XL$(J)XL$(J)((PM))::4]J1NY:PB7(J1)8:"CHART TO DISK, AND WISH TO DO SO, PLEASEe "HIT THE ";::"ESC";::" KEY. OTHERWISE, HIT ";::"RETURN":::"TO CONTINUE."e e :"NOTE: CHARTS MAY BE PRINTED ON PAPER"::"WITHOUT FIRST SAVING THEM ON DISK."e 16368,0:16384,128f X$((MAX)):Q(MAX$):TQ(MAX)10(Q1):BQ10(Q1):MAX(TQBQ)BQ\d M010:ARG510M~d MAXARGMAX2ARGMAX2ARGd d 350d 34,0::A$"END OF 3DCHART! PROGRAM":H4:V3:200d VV9d VV,e "WARNING. IF YOU HAVEN'T SAVED YOUR":A(5)13600c 2206c$ 16297,0:16304,0:16300,0NT02210/`H16368,0:22:K$:AK(K$):HU,FRI,SAT,SUN:J17:DY$(J):M\34,0::A$"SET AXIS LIMITS":H4:V3:340h\SLSL(NT0)FL(NT1)}\SL4SLFL:NT1\SL1T$"YEAR"\SL2T$"MONTH"\SL3T$"DAY"\T$(NT)T$\SL(NT)SL\HT20!]VV:1::39):1:"BEGINNINNY:I1NX:PB8(J1)NX(I1)4`[6V256.256.(P2)256.(P1)(P)(P3)100.:V(I,J)V:x[@360: TO SHOW DATA[SL4FL43000[[VV10[NT0[ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC:J112:Y$(J):\ MON,TUE,WED,TLOAD "NAME$",A35100,D"(DN)5Z UNFOLD DATA HERE]ZSL(B2):FL(B3):NY(B4):NX(B5)ZJ1NX:PB6(J1)8:L(P):XL$(J)"":M1L:XL$(J)XL$(J)((PM))::Z"J1NY:PB7(J1)8:L(P):YL$(J)"":M1L:YL$(J)YL$(J)((PM))::![,J1AK271050YE$""1400-Y(E$)01400:YNAME$E$fY(NAME$,4)"DATA"NAME$NAME$" DATA"|Y16::1:39):1Y16:"DRIVE NUMBER: ";:XM16:XX16:78:42YAK27Ĺ34,15::1400YDN(E$):DN1DN21480Y10300Z:(4);"B IS FULL, OR ELSE THE"::"DRIVE IS INOPERATIVE. HIT RETURN."`XP16368,0:16384,128::1260fXZpXdVT12Xn:A$"CHANGE DATA STORED ON DISK":H4:V3:340XxVT:1::39):VT:1X12:"NAME OF DATA: ";:78:XM16:XX39:42X16384,0 Y""Ĺ34,VT3::12303W DN(E$):DN1DN21260SWB2,SL:B3,FL:B4,NY:B5,NX^W1340WLB84NXNY1BC10:L$(L)W:(4);"BSAVE "NAME$", A35100,L"L$",D"(DN)W(W21050W<216,0>XF34,VT3:::"DISK IN DRIVE ";::DN;::"VT:1::39):1:"TYPE DATA NAME: ";:XM18:XX39:78:42:E$""AK27ė:1050^VNAME$E$V(NAME$,4)"DATA"NAME$NAME$" DATA"VVT4:1::39):1:V"STORE ON DISK IN DRIVE (1/2) ? ";:XX33:XM33:78:42:AK27Ĺ34,VT3::1230WE$VV15:34,VV:T18ET"THERE IS NO DATA IN MEMORY. HIT RETURN._T16368,0:16384,128iT220000S. UP TO 100 DATA POINTS ARE"5S :"ALLOWED."OS 16368,0:16384,128US gS 34,0::2000rS 216,0S VV6:1::39):1S "DATA FILE IS NOT IN DRIVE ";DN;:". PLEASE"::"HIT RETURN."S 16368,0:16384,128S 34,VV::2200T R 216,0#R VV6:1::39):1gR "DATA FILE IS NOT IN DRIVE ";DN;:". PLEASE"::"HIT RETURN."R 16368,0:16384,128R 34,VV::2200RVV15:34,VV:R18R"THERE IS NO DATA IN MEMORY. HIT RETURN.R16368,0:16384,128S22SL(0)SL:NY3:NX(0)NY:9^FL4SL(1)FL:NX3:NX(1)NX?^ I^*VV10R^4NT0^> JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC:J112:Y$(J):^H MON,TUE,WED,THU,FRI,SAT,SUN:J17:DY$(J):^R34,0::A$"SET AXES LIMITS":H4:V3:600_\S:L(P):YL$(J)"":M1L:YL$(J)YL$(J)((PM))::`]J1NY:I1NX:PB8(J1)MX4(I1)4]VPOW(P2)256.(P1)(P)(P3)100.:V(I,J)V::] 620: TO SHOW DATA]SL4FL4SL(0)SL:SL(1)FL:NX3:NY3:NX(0)NY:NX(1)NX:2390^SL4AA(16384)128&f AA27AK3:14100f 13506f @f( VT12Vf2 :VT:1:39):1pf< :"TYPE OF BAR:"::f> T$(1)"SQUARE":T$(2)"FRONT-FACING RECTANGLE":T$(3)"SIDE-FACING RECTANGLE"fF "(1) "T$(1)fP fZ "(2) "T$(2):gd "(3) "T$(3ER COMES WITH A DISK CALLED"MS}:"'TOOL KIT' WHICH CONTAINS A SCREEN DUMP"{S:"PROGRAM. LIKEWISE, APPLE'S DMP PRO-"S:"VIDES A PROGRAM CALLED 'SCRN DUMP'."S:"EPSON ALSO HAS A SCREEN DUMP PROGRAM."S,16368,0:16384,128:S1RT6" !@"`@ @ $P`0p8 pX(%0H@ &d8H'( aa H   ?*h c ~ i   a  u  n c ~ i   u  CL6^LEx 5 Dx `  n dz { A gz Q } gz   W{  } 4  n { { Q{ A { Q 1 ` LxDATA ~  x LxLx DATA 5 x  `Lc@(M2)aXX1(M1)X3(M3)X2(M2):J14:D$(BL$(A),J,1):AK(D$):AKX(J1)7,Y:::1810Y191BM14:J1NP:XX(J)7(LX3)3(LX2)10(LX4):L1LXYF1BL$(J)(BL$(J),2)D$(BL$(J),L,1):AK(D$):AKX(L1)73LF,Y: XS7):B$BL$(1):LX(B$):LX3LXXDLX1=LX4XD41710MLXXD1810lYF0:LX4LXXDLX2:YF1|AV(NP1)2LX2XD21770LX21770LX2YF1XD2Y191BM14:X1X(1)10:X2X(AV)10:X3X(NP)10:M13:A(M1)NP(M3)AV0.5:HD7(J2)4(J3):SS(HHD):WXHD(ADH)@M(Y2Y1)(X2X1):L1SS1:XX1(L1)WX3(K1)3(KNP1J2):YY1M(XX1)JXX5:YY4T233,99:232,248:J1X,Y^hr|3:232,0:233,96:3:0(C2)41805)XD( 233,99:232,248:XA5:XB3ZJ1A(3)1ēX1,Y1X2,Y2:X1,Y11X2,Y21:NC11640"NC1A(3)1Ē0:X3X1XA:X4X2XA:Y3Y1XB:Y4Y2XB:3X3,Y3:3X4,Y4:3:4X3,Y3:4X4,Y4:1640,NC1A(3)11640.6OP(Y2Y1):ADX2X1:H(OPOPADAD)X(J),Y0HY*(C2)41520bA(2)1āJ010:YY0JSY(J0):KSLXX5:K,Y::A(2)1āJ1NP:K110:X(J),Y0(K1)SYSY2::J1NC:A(3)1HCJ:HC2(J3)K1NP1:X1X(K):X2X(K1):Y1Y0V(J,K):Y2Y0V(J,K1)1BMSBXX,191BMSBHnSL1,0SL1,191BM1XX1,191BM1XX1,1SL,1Nx]}VN01435fHY4J010:YY0SYJ:SL,YSLHY,Y:XXHY,YXX,Y4105HC3:HCNP401490A(2)11490(C2)41490 J2NP1:X(J),Y0J1NC:K1NP9<V(J,K)SC(V(J,K)VN(VN0))SB(VN0)AA:OCY0191BMZFXXEXR`HsK(C2)41370PXS(XXSL)(NP1):X(1)SL:X(NP)XX:K2NP1:X(K)SL(K1)XS:ZdSL,0XX,0XX,191BMSL,191BMSL,0fVN01390iSL,19M! VXARGVX2ARGVX2ARG9:VXVKVX(VK1)bCZ1VNVX:(1)((VN))0VNVN1xVN0VN0:1307CZ0VGVX:VX(VN):VKVX:CZ1:1270VXVGSTVXSP(VX(VN)):SBSPSTSCSP(VX(VN))#VN0SCSP(VXVN)((L1L2)7:BMBM10:LB272BMBM107 NC3BMBM15S A(1)2BM305(NC1)d SP191TMBMq SYSP10 232,0:233,96 A(4)22810 VKVX:CZ0 VX$((VX)):Q(VX$):TQ(VX)10(Q1):BQ10(Q1):VX(TQBQ)BQM010:ARG510`V(LBRB)SN jVVNVNV, tVVXVXV= ~V(J,K)V::W NP30(C2)41190 J1NP:HS1(J1)9:BL$(J)"":L(H):K1L:PK(HK):BL$(J)BL$(J)(PK):  SL70:TM30:BM305(NC1) L1(N1):L2(N2):L3(N3)$ NC2LB106$(J)"":K1L:NM$(J)NM$(J)((NJK))::0 .K 8VN10000000:VX500000[ BPOW256256 LJ1NC:DJN320(J1)500:K1NP:DDJ(K1)5:SN((D)1)((D)0) VLB(D1)256(D2)POW(D3):RB(D4):RB$(RB):L(RB$):RBRB100:L1RB10RB J1H:"*";::39::"*":_ J139:"*";:::4:2:36)::LA(A$):4:((40LA)2):A$:e l 3s 0 S2S1900:S3S220:S4S320 EXR265 NC(C):NP(C1) NO(S2):J1NO:A(J)(S2J):* $J1NC:NJC1(J1)20:L(NJ):NM 5AK8PXXMČ1008:42J :AK32PXXXĝ:" ";:D$(PXXM1)" "::42X ?PXXX42v DD$(PXXM1)K$::K$;:42~ I: NJ125:D$(J)""::E$"": eDM7 fD$(25),SL$(DM),V(3,DM),BL$(30),X(DM) i:3140 t1000 1::J138:"*";::k, 16383 101M23:"HIT ";::"ESC";::" TO GO BACK ONE STEP.":~*16368,0:PX(36)1:K$:AK(K$):AK27ĝ:+AK21PXXXČ1036:42/NF1(AK46AK57)(AK32AK8AK21AK13)420AK13E$"":J1PXXM:E$E$D$(J)::SL)MX:YQVY%6qYQ8YQ2YQ:600166uXQYQ6100I6YQ(XQYQ)YQ\6NX(EXRSL)XQi6NTSPYQ68J1NT:YY0JYQ:K1NX:XSLKXQ:X,Y::6B:6B Š>>`ؠШ        ͠ Ci:2550Ct1000CQC1::J138:"*";::J1H:"*";::39::"*":C J139:"*";:::V:2:36)::LA(A$):V:((40LA)2):A$:CBC350991801:MX17:POW(65536):BC$(BC)DB1BC20:B2B11:B3B21:B4B31:B5B41:B6BC40:B7B642B?PXXX42.BDD$(PXXM1)K$::K$;:426BI:UBNJ125:D$(J)""::E$"":_BeDM20BfD$(25),SL$(DM),V(DM,DM),BL$(DM),X(DM)CgC$(3)"NO ":C$(5)"YES":C$(1)"YES":C$(2)"YES":C$(4)"YES":C$(5)"YES":A(3)2:A(5)1:A(1)1:A(2)1:A(4)1:A(5)1LdLdLdLdLdLdLdLdLdLdLdLd LdLdLdLdLd#Ld(Ld-LdyLd~LdLdLdLdLdLdLdLdLdLdLdLdLdLdLdLdE.":6A*16368,0:PX(36)1:K$:AK(K$):AK27ĝ:SA+AK21PXXXČ1036:42A/NF1(AK46AK57)(AK32AK8AK21AK13)42A0AK13E$"":J1PXXM:E$E$D$(J)::A5AK8PXXMČ1008:42B:AK32PXXXĝ:" ";:D$(PXXM1)" "::%@HM38900:35099@10@:(4);"BLOAD CHARACTERS,A2048"::(4);"BLOAD BLOCK,A3072"::(4);"BLOAD PLOT CURSORS,A7168"@ 101@21:1:"USE ";::"ARROWS";::" TO RELOCATE CURSOR."A23:1:"HIT ";::"ESC";::" TO GO BACK TO TITLE PAGC(JJ)2pBL$"W"HC(JJ)31pLL$"R"HC(JJ)5JpVE$"BLACK"HC(JJ)0bp`E$"BLUE"HC(JJ)6jpj:spt220pCH0:M16:E$CC$(M)CH1p:XX7:AKX,Y:%C11YY15:XSLyYY5:XX15(C11):XX14(C11):233,99:232,248:2310:232,0:233,96:XX14J1L2:XX7:AK(N120J):AKX,Y5:NC23130Y177XSL7:C10XC(279SL)2:XXCL37:DXL37272:D0XXD2380,2100,2100J4L106(L1L2)7:Y181(L279)171(L279):X(279SL)2V>XXL2`HY181~RDXL279:D0XXD27\NC3YY15fC10:X0YY15:XSL:C11pX1X:X2X120zC11X1SL3:X2SL242290:XX28:J1L1:AK(N1J):6):YC(191BM)2FFL2P47L2P6QX0:48:P61XSL7(LL1)24:X10X10\2070SF31P4:J1L:AK(S4J):AKSFX,YC(J1)(7P6FFP4):AK73YCYC5P4 XSL10:YY10:232,0:233,96:L(N1) 216,0:A(1)22380*0:NC:Y8(LTT)15(LTT) XX4fJ1LT:AK(S3J)31(LTT):AKX(J1)(7(LTT)FF(LTT)),YLTTAKAK31:AK73XX5L(S4):L02070N(191BM)FF:233,96(LN)134(LN):232,0(LN)204(LN)#P6((233)96):P4(PbNlK1LL:XXSL7(LL1):D$(VL$,K,1):AK(D$):AKXX(K1)7,Y3::XvFF13pLT(S3):LT02000T((2795SL)FF)1TCSL(279SL)2:233,96(LTT)134(LTT):232,0(LTT)204(LTT)0:1:XTC7(LTT)LT2FF(LTT)LT2JINVN)0LL(VL$)':VX101890MD(VL$,1)"."VL$"0"VL$:LLLL1iNVL$"0"VL$"0.0":LL3XLL1VL$VL$".0":LL3](IN)INLL2(VL$,1)"-"VL$VL$".0":LL4_LL3(IN)IN(VL$,1)"-"(VL$,2,1)"."VL$"-0"(VL$,2):LL4:XSLKSX:X,Y::fJVNVX2SF:VL$(J):XSL7(L1):YY0VY(JVN):SL,YSL4,Y:EXR4,YEXR,Yp$1840%S5(VN0):F5(VN0)10(VN0)&XSL7(L1):IN(VX(VN))10:JSF2:YY0SY(J5(VN0)):VL$(JIN)+S0IN(VXVN)10:VL$(V23:"HIT ";::"ESC";::" TO G@BA@` ONE STEP":163$l        68,0:PX(36)1:K$:AK(K$):AK27ĝ:+AK21PXXXČ1036:42/NF1(AK46AK57)(AK32AK8AK21AK13)42 0AK13E$wn[]}3Ld8Ld=LdBLdGLdLLdQLdVLd[Ld`LdeLdjLdoLdtLdFULL, OR ELSE THE"::"DRIVE IS INOPERATIVE. HIT RETURN."\Q*16368,0:16384,128::1950bQ4hQ>|QH(C2)4İ3050QRZXVX:ZNVNQ\PK((C2)4)1QfLG1PKQpLG2VXMAX:VNMINQzTYPE$"VERTICAL":LG2TYPE$"HORIZONTAL"Q34,0:20707P:(4);"BSAVE "NAME$",A$2000,L8192,D"(DN)DP43624,1JP_PN5İ3030:1720PN6Ĺ772,1::(4);"RUN POST HELLO,D1"PN7Ĺ770,1::(4);"RUN POST HELLO,D1"P 1730P216,0:Q 34,VT3:::"DISK IN DRIVE ";::DN;::" IS :1:"TYPE CHART NAME: ";:XM19:XX39:78:42:E$""AK27ė:1730PONAME$E$iOVT4:1::39):1:O"STORE ON DISK IN DRIVE (1/2) ? ";:XX33:XM33:78:42:AK27Ĺ34,VT3::1930OE$""Ĺ34,VT3::1930ODN(E$):DN1DN21950PNN(E$):AKN#N&AK1AK71810N3RRW1W2:W1DY1W1W11:W2W1RR:1342GFW1(W1):W2(W2)GPW12W12GZW22W22Pȯ 0$ JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC19881989 ! ! S(0)NY1:JJ(J12)(J12)(J12J25)(J24)(J25):YL$(NY)Y$(J)*S$YL$(NY):PB7(NY1)8:182:SL(0)3JJS(0)NY1:JJ(J7)(J7)(J7J15)(J14)(J14J22)(J21)(J21):YL$(NY)DY$(J)|+S$YL$(NY):PB7NY8:182:Y1:1::7):1:HX(X):,gn :"WHICH NUMBER ? ";:XM17:XXXM19gx 130:40\g AK27Ĺ34,(37)::34,0:1855vg N(E$):N1N32610g 34,VT1::34,0g VT:17::T$(N):g :16:1:39):1g "CHOOSE SIZE (1-10): ";:XM22:XXXM1:130:40h AK27Ĺ34,(3{ Q 1 ` > } T } > } ]` > } T ~ D } n {   n { & $LbC s` { / $ %z { L} &3 LC U 8L&C { ~ $LCLC C } - { {   | L  1 ` { ~ $ %z { { 3 LD 87 1} z o } 9 } 7 c  i # o } 9 6~ 7 1} z %z } 7  z o } | "} B~ | %z } | B~ "z { ~ 9 ,| o } - ~   } | { A | 7 Q 1 ` ҁ  n dz } | ~ z { A gz Q } o gz   ҁ z  } 4  n { { z A  | } | } S| } h| } | {  | {  %z (} ~ "z | {  %z ~ "} ~ "z | ~ -{  E{  f{LD | \ |  s} # z m} $LA } )|LA z p} )|  )| # )| z } $LA } 9 } 7 %z 6~ 7 z $ } $ o LFB 6~ 9 7} z # o } 9 6~ @3B .i%???2% y (  y 1 { ~ %} 4} {  L@ { '{ ( *{ %z { '{  4z { 9{ (8  <{ "z %z { 9{  4z { `{ (8  c{ "z @} } L@ C}  { `{  %z {{  3 L@ Ӏ 8 }  {{ ~~ $L@ Ӏ 8 } L/O { """"                   $(J):182:)SL440F)J1NY:PB7(J1)8:S$YL$(J):182::40):Y224Y22:XX3:YSY:XSX:CH1:YYYY1:GGGG1:89:NYNY1:169)YYYY1:NYNY1)YY21XX21NY21XX21NX2145)SL(0)1YL$(NY)((YL$(NY1))1)E*SL(0)2JJW NT0W VT2W J15