FW‡.pڎE]NNNNNNNNNNNNNNNNNNNNNN=NNNNNNNNNNNNNNNNNNNNNNMANEX  )NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@NNNNNNNNNNNNNNNNNNNNNNnNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN sNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN_NNNNNNNNNNNNNNNNNNNNNNREVID  SHUTTLE P $ MATTE a&. ) SRM PT 2 SRM_DATA ae 6 STATISTICSPi= C STATSUB1 P G STATSUB3 P P NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN &NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNNNNNNNNNNNNNNNNNNSTATSUBS P S VAPOR a W MECH P, ! EMISSION P+ ! BREAKOUT P' ! ID_MODULE P> ! KBD_LN_ED PA !" ICONS P^ !' m?NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNCsize Py !1 Lorg P !6 Ldir P !A SinLabel P  !E SinViewprtP !Q SinGrdAxesP  !Y SinAxes P  " CharCell P  " E3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN PNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN6NNNNNNNNNNNNNNNNNNNNNNPen P " SinLabel2 P  "! BAR_KNOB P  "% Iplot P  "1 Lem2 P  "5 Animation P "A DumpGraph  "FContour  ! "RNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN aNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNcNNNNNNNNNNNNNNNNNNNNNNRIPPLES P.  "X BACKGROUNDP7 # CIRCLES PS # Scenery Ph # Pie_Chart P& #$ Lem2D P% #2 Gstore P #@ Gray_Map  #GKNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNPNNNNNNNNNNNNNNNNNNNNNNSTORM PA #V Surface <# $MARQUEE P_ $ Symbol Pr $% Rplot P $2 STEREO P6 $@ TIMEFPA P PRIMEGEN P DuNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNNNNNNNNNNNNNNNNNNNN[WNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNWÇ/sގJ"gNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNNNNNNNNNNNNNN_plotDrawline Get_colorsColor F_color_data B_color_data 11/30/81 (Modified 4/20/83)@ ȭNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 9 0,6,97,2,130,3,217,1,252,2,256,2,272,3,279,1,293,2,350,6@: @! "%use design graphics on this computer.@*> J12 READING DATA 1@* T 12MATTE-2@ ^ ۞ͣ ͤ@  h$@( r2Press CONTINUE to proceed.@ ( |9|NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN<(----------------------------------------------@ <2@T <EPress Return or ENTER to get back to the BASIC System when demo done.@ TF@6 P"'Press Return or ENTER to continue demo.@ 6Z @ dٵ#,K@ nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN PBNNNNNNNNNNNNNNNNNNNNNN@ 2 @ @ !P1k!21@    @  @ »@ ̂ٵ#,KK@  @ !2@  @ @$ ??@$ ~>NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ x @ @ ٵ#,K@2"#You are back into the BASIC System.@ 2@nn b A$A$A$A$ Delimiter2@]NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN csNNNNNNNNNNNNNNNNNNNNNN@  @ &@ &յAp 'ղ@  0@ :&@ D յ1 'ղ@ NAܵ?ə$@  X@ b@, l$Ե!2յ!\յ1յ2RUDDERՁՄղ@2, v$Ե!2յ1յ1յ2 CARBON TILESՁՃղ@22 $Ե!2յ!GNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNsMNNNNNNNNNNNNNNNNNNNNNN@ `.  4: <$:3 4   @  @" @Q @(* @2V. @<4"J:" <>ZB@ ^P NP T@ F  P jP r@ F ,P NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN`յ1Dյ2 MAIN ENGINEՁՇղ@42 $Ե!2յ1|յ1/յ2ORBITAL ENGINEՁՃղ@24 $Ե!2յ1յ1յ2 CARGO DOORSՁՄղ@62 $Ե!2յ1յ1յ2MANIPULATOR ARMՁՂղ@,6 $Ե!2յ!Lյ1յ2ELEVONՁՄղ@2, $Ե!2յ1յ17NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@|NNNNNNNNNNNNNNNNNNNNNN0 VP0P@ F ^P 0 l0 tRJBX@ P @ P P @ #b@ 0 2"@ P @ *"@ (@ QNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNյ2 LANDING GEARՁՂղ@ 2 @ ƃ@0 $Ե1յ1Wյ1Dյ2 3000 DEG FՂՁղ@00 $Ե1յ1Wյ1յ2 1200 DEG FՂՂղ@00 $Ե1`յ1Wյ1յ2 700 DEG FՂՆղ@00 $Ե1յ1Wյ1յ2 1200 DEG FՂՂղ@00 $Ե10rTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/NNNNNNNNNNNNNNNNNNNNNN6P B@ NtderPrintebGenAuto WidthFAbWd@FiShuttle ConfigurationSvmPlotterPrinterGenAutoWidthFBWd@FileRe_plot Star_dataIXYMat{NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNյ1Wյ1vյ2 2300 DEG FՂՃղ@ 0 @  ׳&@   'ͤ@ * 4@N > C 0,5,51,3,89,4,98,5,335,2,470,5,483,3,580,4,640,5,720,2,730,3,785,4@4N H ( 832,7,940,5,1040,4,1130,5,1303,2,1380,44R@D \NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZŇ1 uN&hNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,-GNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZNNNNNNNNNNNNNNNNNNNNNNgiikqpuwwz~|xpmb_||uvii\]Q NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNtVB2/0pm36jf:=^`ljTRkSVcsiyn~quz|wtslkda[YNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4kNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$UNNNNNNNNNNNNNNNNNNNNNN0,566,30,306,83,33,274,51,450@LL  A 32,429,462,475,454,472,21,164,391,35,-19,193,515,364,284,330,570@LL  @ 139,210,73,-79,184,97,80,17,7,368,290,49,427,192,28,239,473,-23@LL  @ 473,348,80,-43,342,280,320,403,449,322,65,69,161,340,60,261,370'UNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNRPIG?>657.B<MGXRd^niztzxtlqvy30../:kNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNdNNNNNNNNNNNNNNNNNNNNNN@6L  + 204,583,255,93,452,445,1,75,70,238,405,300@6 q *H@ (L @  X" Q @ F @ ""Q( NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNl/wsWVePPsWhtxwg djholwsvv||'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNB7NNNNNNNNNNNNNNNNNNNNNNF .@ @!'@$Mat_plot ACoords @FileIC`enJCoundColor@ @ @ 'Mat_plotACoords@FileIPenColorCnt@  @ ԃ@ @ Ȑ@  !hNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ˞NNNNNNNNNNNNNNNNNNNNNNg fex!#*eGNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNqNNNNNNNNNNNNNNNNNNNNNN@  Գ@ Ȼ@  萳@ @ $@ .&@ 8v@B@L.PF b   +  P "Bd$@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN mnmqttx}|HNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ @ @! "HdrawlineB`1X2YBd$ Which_cetColor@  DrawlineX1X2YL$ Which_setColor@ V @ `@ j@ t@  ~@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN a8NNNNNNNNNNNNNNNNNNNNNNHf|~qUVUZUZ\[^dchiikNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN۠NNNNNNNNNNNNNNNNNNNNNN @  @ @ @   @ F    +  P "Bd$@ @ @ @! "HdrawlineB`1X2YBd$ Which_cetCWNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN R NNNNNNNNNNNNNNNNNNNNNNqptvvxeLKPRRUXX[^^`TCCBGIILPPF<<<?eKCGcbb(NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN6NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN\ȇ4 xQ)lNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNm]jfWc`R]YKVSFPK?HD:B?5=9074+2.&,)!&"!D~A}>NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN $NNNNNNNNNNNNNNNNNNNNNNYY Z []^_tAo@k=g9d5b1\%["[[]!,) cdT#9oAy6h=v/b76(NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNGNNNNNNNNNNNNNNNNNNNNNN?::18.x3qnj y#w rp } {.-+)%  !!QNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNqNNNNNNNNNNNNNNNNNNNNNN888788<79@DJNSXd?@@><9EFFEB?=KKKKJGFNOPQQOMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNvNNNNNNNNNNNNNNNNNNNNNN&,"3{Bk@d:`3U7S1O3O-R,Yg a6W9T7/:"%%#NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNBNNNNNNNNNNNNNNNNNNNNNNSTUVUTXZ[ZY^^^^0-+&! DFBA=CDB?<8&#EI20NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNRNNNNNNNNNNNNNNNNNNNNNNsNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNHNNNNNNNNNNNNNNNNNNNNNN {!!$),.3~4|4y3x0v,v(w%x#z"xu snNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNaNNNNNNNNNNNNNNNNNNNNNN#NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN yNNNNNNNNNNNNNNNNNNNNNNponnnprt   w458:=}>{>y=x:w7x5z3v8u:s<p=n<l:l7l5m2o1q1s2GNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4NNNNNNNNNNNNNNNNNNNNNNok936)%%z_F~@}:|5}.%#{~ } NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN *NNNNNNNNNNNNNNNNNNNNNNv4v6v7oon!l$j&g'd&a$`"_ _`cfhkmnCyLsRoRiQdLaG_C_@e;d=eAgFjKnNrOtOvOzKwLtKqNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN x<NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNInFmCmAsAtDvFzH|I}HE~E{DzB_@]@Z?X=W9k3h-n)q0t.q'n)s'k)U#S RQQS UXZfXVUUV wNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%NNNNNNNNNNNNNNNNNNNNNNxwwkkj_^^SRRF~EF9}99.-1fRdcRvd@LK?!rbpݪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNXZ\ZYYY []^`^]] ] _acba`` acfe e ff_5_5\6\6X7X7\*\*Y+Y+U-U-ZYܾNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNrNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ3 xO(lNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN      uNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN FNNNNNNNNNNNNNNNNNNNNNNMT\cgklljjjfa[ULD@==AHOTw]`dGm-uyzeeeda]UNC=>CNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN9NNNNNNNNNNNNNNNNNNNNNN     NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN uNNNNNNNNNNNNNNNNNNNNNNLS[_ab c>>CLS[_ab c [ S LE@?>Yu9;=<8"==<8"& 8NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNjNNNNNNNNNNNNNNNNNNNNNN ټNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN=?&& 8=?@>#7)@@>#7),%7";>AF\NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[NNNNNNNNNNNNNNNNNNNNNN   0-*% ikov}їNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN}}}zz}~~~|{yyxy{1,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN DHBEA?A=;>:7:636203555430.0 "$$$#!NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNeNNNNNNNNNNNNNNNNNNNNNNikov}{tomkjh{tomkjhhjllިNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0NNNNNNNNNNNNNNNNNNNNNN    FI.C D @+6< 5 5 918004 1 , 1,/8',3*2*+/, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN TNNNNNNNNNNNNNNNNNNNNNNmoqu}~xtqoopokquwwrrtx}quwwNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNeNNNNNNNNNNNNNNNNNNNNNN$+ % & ) ' ' #")'5',*, )%,(*'% #'' "."NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNrrtx}|upkjms~{{omjiiYuqqoje`[XUTW__]NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNVNNNNNNNNNNNNNNNNNNNNNN ,"   RNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 6NNNNNNNNNNNNNNNNNNNNNN^[YWYwbnf"!pdwaWVWXZYXSPQSUY_einp qaw`VSLGFHJNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ2 vN&jNNNNNNNNNNNNNNNNNNNNNNNNNNN +NNNNNNNNNNNNNNNNNNNNNNtxlu|yzwtqmhecddfjrz^whXu@(("NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN INTERNAL#@X@_\(]!\ @ »@ ̀X@`zG @ր11+@ @ ꇻ@ @ ?@ 11@4 2#,K2SHARED RESOURCE MANAGEMENT@4UNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNp@nnTq /29/81q /29/81q /29/81q /29/81Srm@ @ Բ@ @ (@2nn@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 0NNNNNNNNNNNNNNNNNNNNNNJ@&A&X@0X@^(]!Z @ :!1!1+@ D@ N&@  X#@ b@ l@ v$@ @CONTINUE@    @ @ ٵ#,KNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN YbEADPHYWRYbEADPHYWRYbEADPHYWRYbEADPHYWR Delimiter2@<@F 2 | | T: @XF @b @ll" @v& @* @0"60f8J'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN $NNNNNNNNNNNNNNNNNNNNNNK@׳@12SRM_DATA-2@۞ͤ@ 0@ @ 1 @  ȀH@ Ȼ@  p@ *Ȼ@ 4Ȑ@ >@ HȊ@$ R!=ѵA&bյBtYNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ X`0nFB@ r0hFLR0bV@ F` jl@ r0F|@ 0tFF> 6gerationPlgtterPrinderSvmGefAutoWidthAStaSrm ConfigurationPlotterPrinterSNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNVwNNNNNNNNNNNNNNNNNNNNNNLղ@$$ \!DѵA&uյBRղ@$$ f!HѵA&lյBRղ@$$ p!O ѵA&XյBLղ@$$ z!T 8ѵA&lյBLղ@$$ !Y \ѵA&XյBLղ@$$ !` ѵA&bյBLղ@$$ 1f ѵA&XյBRq\NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNvmGenAutoWidthAStartGoDoneWdSrm_idleIProdSrm_plotLeave@FileLastxDrawJ@ P@ Z)d @ n@ x2@ٵ#,K'HNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNeFNNNNNNNNNNNNNNNNNNNNNN@$$ 1l ѵA&uյBRղ@$$ 1r ѵA&bյBRղ@$ Ȼ@@ʁȁȻ@2(?(??ə @2  @ @  h@ TtNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNuxNNNNNNNNNNNNNNNNNNNNNN(%a\XSNF?953211hhikorwdNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNK@ @ &@  @ CONTINUE @  @ EXIT @ȸ\@ ҄ @ ܈EXITAUTO @湳@!2r@!P!@ @6 UNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNFINNNNNNNNNNNNNNNNNNNNNN}}z}~~~|{yyeNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN!** SHARED RESOURCE MANAGEMENT **@62 /@B"20Shared Resource Management (SRM) permits several@BB,20desktop computers to share hard discs, printers,@DJPQV0 Q\QfZl@ AQp0508Q\QQ0nQ^xQpQ@ KQ04hQ :Q@`Q?NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNDNNNNNNNNNNNNNNNNNNNNNN_mmec__zzii}}ffddyzzzbcbb..aa..)NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNͫNNNNNNNNNNNNNNNNNNNNNNƀXQȀPQ Q̀HQ΀@QҀ8Q܀0Q(Q Q Q@ Q0@ \Q0r bQQQ`"Q(@ cQ,04Z. Q Q0Q4 *Q (NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNw3NNNNNNNNNNNNNNNNNNNNNN2xx||bxb||ww7x72 F2Fzrr)2)zttK''KKKDD0NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNtQ PQ Q rQ8b< "Q QB "Q QDQHQJQLQNQTQVQZxQ`Qd0(Qj (Qddp.t )Q2QzQQ%}NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ @ @@x THdP H   F  "@ 0F@ "0zF&@ *0F.@ 20F6:BDq&D26D26Cd36)wNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNg NNNNNNNNNNNNNNNNNNNNNNK=='$$''$$'(II((GAAGGKK'$$''$$'QNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNݕNNNNNNNNNNNNNNNNNNNNNND36DDrawProd Direction$BD16D26D36D45PointsJLastx@$)@.A&X@8A&b@BA&l @LA&u @ V @ ` HNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN T@  @1 ,2@ =Բ@ 1,2@ %=@ \@   %=@ T@ #@*EXIT#@ 4$Բ@ >@ H@ RNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNsNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.NNNNNNNNNNNNNNYƇ3 vM&kNNNNNNNNNNNNNNNNNNNNNNNNNNNLNNNNNNNNNNNNNNNNNNNNNNBDEVIATION OF VARIATION@2 P'Ȑ@ Q'Ȁ'ȂPP퐳@. R3ǣP'PQQQ'P@ . ̼ 10A,6D,4(2X,M10D.2D)@" SMM'ȀM'ȂPP퐳@" TSM'P@$ R2ǣPM'PSST@ $ n$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNWNNNNNNNNNNNNNNNNNNNNNNB R-SQUARED =dg@8 dٞBSTANDARD ERROR OF ESTIMATE =dfUP@8 nٵB2/@  xٵB38X,3A,/BAOV@R dhBSOURCEBDFBSUM OF SQUARESB MEAN SQUAREBF-VALUE@,R  6A,14X,2A,5X,14A,8X,11A,7X,K,2/@, tNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN٥@@ ٞBCORRELATION = M'ȀM'Ȁ'PPSQ@@ ٵB/@  PM@ U'Ȑ@  &VPP'ȀP'Ȃ'ꐳ@ 0WPP'Ȑ@ :'Ȁ'ȿ@ DJPH@ NJ'ȀJ'Ȁ'퐳@ XJ @ bJP@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN fNNNNNNNNNNNNNNNNNNNNNN diBTOTALUV@. # 10A,1X,11D,2(3X,M11D.3D),2X,10D.2D@>. diB REGRESSIONPVdfVdfPVdfUPdfP@> JPP@ TJM'ȂUPdf퐳@. djBX^JJM'ȂJM'ȂT@. ҴJ@. ܼ"eNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*NNNNNNNNNNNNNNNNNNNNNN@ lOJPP@vJO~@XJp³@JJ'JJ'XJ'Ȃꐳ@Xp@JJ'ȀV@4B&Specified maximum degree is too large!@4,'Հյ! Հյ! ղ@+(Ձյ!ղ@ Y@ иp@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 5NNNNNNNNNNNNNNNNNNNNNN X,10A,11D,2(3X,M11D.3D),2X,10D.2D@.. diBRESIDUALUPdfdfUP@. -BYESdk@ JM@ JJ'ȁJJ'퐳@ Jڳ@ JMꀁ @ "OMJ @  ,dl@  6XJO x@ @dldl,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNJJ'JJ'ȿ@乳@޳@XJ`@JO'JO'XJ'XO'ꐳ@ X`@JO'JO'JJ'퐳@ @ *OPr@ 4J@\@ >1 ,2@  H[@ R1,2@ \@  f@ pp@ ZNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNJX'XO'萳@ JX P@ TJO'dlJJ'됳@ ^O .@ hJ @N rٵB2/,22X,23A,9X,KBREGRESSION COEFFICIENTSBSTANDARD ERROR@LN |ٵB#,8A,9X,11A,11X,8ABVARIABLEB STD. FORMATBE-FORMAT@>L ٵB 5X,1VNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN:NNNNNNNNNNNNNNNNNNNNNNz$Բ@ @ #@ @ @  ]@ @  [@* ٵB33X,KBPRELIMINARY AOV@`* ٵB6A,16X,7A,5X,7A,8X,2A,10X,KBSOURCEBADD. SSBF-VALUEBDFBR^2@` ^B TOTAL(ħNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN  NNNNNNNNNNNNNNNNNNNNNN6A,5X,KBREG. COEFFICIENTBT-VALUE@> +)Հյ!1ղ@ +*Հյ!1ղ@ JP"Ⳏ@ OJP"@ J)J)JO'OM'萳@ J*J*JO'Ȃ萳@ ̴O!ܳ@ J*J*dfUP@  J"Xdm 'CONSTANT'@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNADJ)V@2 ' 10A,3X,M11D.3D,4X,4D.3D,5X, 7A,5X,D.4D@ 2 _V@ `@ JP0P@ ``JP'Ȃ萳@ $__JP'Ȃꐳ@  .aB(1,UJ)@: 8^BX^JJP'ȂJP'ȂUJ_a`V@: BJ0@  LNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN :NNNNNNNNNNNNNNNNNNNNNN J"tdmX^J@$ dndmJ)ǣJ)ǣJ*ǣJ)J*@8$ , 10A,,4X,M7D.5D,1X,M.12DE,5X,6D.5D,X,M10D.2D@8 J!ȳ@ #<@<  B*Confidence coefficient (eg., 90,95,99) = ?do@< &#R@ 0do!_@ :@ Ddo-fNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNXNNNNNNNNNNNNNNNNNNNNNN@  V@  `  j]@ tٵ#,KK@  ~@ D@8 B Enter degree of regression (Max=MB)@ 8 b@ bb@ bMb6@  dd@  de@ ι@ ظV@  b@ 칳@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNoNNNNNNNNNNNNNNNNNNNNNNdo#@  Ndd@ Xdp@ b@ ldqdo퐳@ vdrdq @h dsdrx@`|Ah?O drX?&ر]>drx?!drh?9rēdrH?Un&NHbodrꐳ@h dtUPꐳ@N du!Ods1dsAdsAds1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNiNNNNNNNNNNNNNNNNNNNNNN ٵ#,KK@ 1 ,2@< ٵB2/,K,KB Selected degree of regression = b@ < dfW@ Pb@ (JP @ 2dfdfJM'Ȃꐳ@ <J 泎@0 Fdfdf>. &֕>df>. &֕@0 PdgVdfV퐳@ ZٞY>NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN\NNNNNNNNNNNNNNNNNNNNNNdsP@dt퐳@rN dvdsdsdsdtds!dsds!`dtds!ds!ds!ds1dtdu萳@8r ٵB 2/,40X,K,KdoB % CONFIDENCE INTERVAL@T8 ٵB18X,11A,8X,11A,8X,KB COEFFICIENTB LOWER ;NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNlNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNYŇ0sߎK"gNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN "J`*ij@ ,ٵB/@ 6ddd퐳@: @ٵB /,K,X,K,2/BDurbin-Watson Statistic:d:J@$ Td}BYES PLOT RESIDUALS@*$ ^d ASSIGN @PRT_DEVICE TO CRT@ * hB@4 r( P2$ -- "YES" -> Use an external plottxNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN *tNNNNNNNNNNNNNNNNNNNNNN  d$@2 B$Improper response--please try again.@2 A #@    L @ 4賎@  (#@ 25γ@ <ٵ#,KK@  F$Բ@ P5Ƴ@,ZdzѵBGraphics dump (YES/NO)?d}ղ@&,dd}BYES'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN :JNNNNNNNNNNNNNNNNNNNNNNLIMITB UPPER LIMIT@T JP&@  J%dm 'CONSTANT'@ J%dmX^J@> ٵB10A,3(3X,M11D.3D)dmJ)ǣJ)dvJ*J)dvJ*褳@> 䴎J%@ ٵB3/@ dwdfUP@  dx@ &@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNer@ 4 |3@ dmB 'SEQUENCE #'@  9@ :10萳@D ٵB8A,13X,7A,9X,KBVARIABLEBMINIMUMBMAXIMUM@&D ٵB12A,2(2X,M7D.5D)dm9:@ & @ d@ DB#,K@" ٵBK,KBX-min = 9@"" ٵBNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN  {NNNNNNNNNNNNNNNNNNNNNN &|@  #@ *&@  4$Բ@ >@  H@ R@ \@BYES'@ fHBYES&Ի@ pHBYES&@ z! @ J9:E'@ dy)ǐ@ Ob'\@ dydyO)JO萳@ O'6bNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNK,KBX-min = :@"" ٵBK,KBX-min = @&" ٵBK,KB where X = dm@& / @ .@ #@ /@ &$Բ@ 0@ :@  DE:9ꐳ@ NHBYES/J@  X@ b@ l@* v9?ə/NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN \(NNNNNNNNNNNNNNNNNNNNNN@ J9'@ Jdy@ ʸ'@ Jdy@ ޹@ 贎J'@  @ HBYES'@ @ L@ @ $@  .@ 8@ B(X@0 LdzѵBChange degree of regression?-ղ@0 V(p@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ՁNNNNNNNNNNNNNNNNNNNNNNE:?E뇻@* 9:녻@ 9%@  @ @ @ J9:P0( X axis@ J(@fffffg@ ƻ DJ@ дJP/ֳ@  ڀ@ J녁@0~( Y axis@ 9?QEJ@ FNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN oNNNNNNNNNNNNNNNNNNNNNN `-BNO@ j@ t-BYES(]@  ~ { @ ٵ#,KK@ 1 ,2@  ٥@ d|@  50("*")@, ٵB17X,KBRESIDUAL ANALYSIS@, d|@  ٥@ ǵ@ ǵNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN BDDJ@ J@0<@   @ @   d@ *J01 1ܳ@ 4d)ǐ@ >OP018@Hdx0dldsJ/O@Rdx1dlOdJ/Ȑ@\ddO)dl萳@ fO00ڳ@ pd2J/ddw퐳@ zdNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN**@ ǵ***@ ǵ****@   ds3@* d}BYES PRINT OUT RESIDUALS@* )1 ,2@ ()d~1,2@2 2& #,2/,5A,6X,10A,5X,11A,8X,8A,6X,10A,4X@T2 <dB OBS#B OBSERVED YB PREDICTED YBcNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 'NNNNNNNNNNNNNNNNNNNNNN1dd@ dd萳@  d@ 31J0d@ 313J/d@  B#,KB+@ J 0@  @ 9:(@@ Ի D@ 9(@@  胻@ (@ @:  BSTANcNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ſNNNNNNNNNNNNNNNNNNNNNNRESIDUALB STAND.RES.@T FٞBSIGNIF.@  Pd@ Zd@ dd@ nJ01`,j@  xdd@ d)ǐ@ OPp+P@dx+dldsJ/O@dx+*dlOdJ/Ȑ@ddO)dl萳@ Op*@ d2JSNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN LNNNNNNNNNNNNNNNNNNNNNNDARDIZED RESIDUALS (versus dmB)@: :?E臻@ d2d@  B# OFF GRAPH = d@ $HBYES2L@ .ٵ#,KK@  8@ B@ Lٵ#,KK@ V3|@, `dzѵBAnother re NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN/dꐳ@ dddd萳@" J+dddddd萳@"" XdӁdӄddwղղ@" 2J/ȵAc,@dJ@  5D," MISSING VALUE"@ ,X@<ٵB5D,4(2X,M7D.5D),5X,4AJ2J/ȣddddwXǤ@< @ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ENNNNNNNNNNNNNNNNNNNNNNsidual plot?d}ղ@, j3@ td}BNO@ ~@& d}BYESd}BNO3d@& d}BYES3d@  # &@ 43%!@64%5 #@ ΂ٵ#,KK@ ?4R%dddz@ ׳NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN )NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNLNNNNNNNNNNNNNNNNNXć0sߎK$iNNNNNNNNNNNNNNNNNNNNNNNNNNN  0NNNNNNNNNNNNNNNNNNNNNN@nn8! 8! 8! 8! 8! @ @H Q QNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN"Q(_b. _b0 _bp _b 26<_bBHaticYXfn$Xmin`maxInfoIop@Dprt_InXorgYorgXticYticYXVn$XminXmaxYminYmaxNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 8NNNNNNNNNNNNNNNNNNNNNNQQ Qd Pr@PrtWidthA$WdDoneDone@ @2@ !2 @ !P @>  2 " ** STATISTICS LIeXNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@SB @TB @  V@ W @4 \ BVARIABLEBMINIMUMBMAXIMUM@44 f B--------B-------B-------@4 p 8A,15X,7A,10X,7A@ z ǵB (X) @  14AwNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNd}BNO5pd@&nd}BYES5@x ٵB5/@ @  ٵB5/@@ @ @  @  @ ȶ@ Ҷ B@4涎( P2$ -- "YES" -> Use an external plotter@ 4 "@ 6NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN (?NNNNNNNNNNNNNNNNNNNNNNBRARY ** "@:> & . "",Routines will available for data entry and@:: 0 / "manipulation, regression analysis, graphical"@8: : - "data display, analysis of variance, simple"@68 D + "hypothesis testing, factor analysis, and"@&6 N|NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@ HBNO@ INTERNAL#@ 7F@. "dzԵBEXTERNAL PLOTTER (YES/NO)Hղ@$. ,HBYESHBNO6d@$ 6HBYES7@@BHPGL#@ J7>@TINTERNAL#@ ^@ h@  r@ |@ 2NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN  Monte Carlo Simulation.,""@:& X / This demonstration shows two routines from the@4: b ) Regression Analysis section: Polynomial@04 l % "Regression, and Residual Analysis."@0 v @  @ @  ٞ@ @sNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNPX 2  22N ON DATP @`zn 9lQ!   Q Zero1AMinMwNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN N]NNNNNNNNNNNNNNNNNNNNNN ٵB15X,K@ @   @JlfQQ Q o,$1(,048>o,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNaxI@ !@ س@  ǀ@ @±@ ̶@\ P\ H :XQ"   Q QB#@ u&NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN }lNNNNNNNNNNNNNNNNNNNNNNBQFJQRQT QHeaderComComstatT$Vn$Sn$NvMnvNoMnoScHcHcbusNsMnsIop@Dprt_YX8 @P\\  @8@ @ @ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN mRNNNNNNNNNNNNNNNNNNNNNN(@@  Zero2ADl1Dm1Dl2Dm2IJ@ !!@ H@ 6@Ȁ@ @ @@ &@08nB@n8 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN٥@ @ Ƽ  50("*")@6ٞB#POLYNOMIAL REGRESSION ON DATA SET: @ 6@> ٵB/,K,KB--where: Dependent variable = Ǥ@:>ٵB 10X,K,K,2/BIndependent variable = Ǥ@:hINTERNAL#@rNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ^cNNNNNNNNNNNNNNNNNNNNNN;Q@ Q0,0 Q@ IdleOnwardIdler@:@ DCONTINUE@4 NB%Press the CONTINUE softkey to proceed@ 4X$ b l@ vNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@nn_b8! 8! 8! 8! Statistics@Rrxr_b_b _bNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNNNNNNNNNNNZƇ2 vN&iNNNNNNNNNNNNNNNNNNNNNNNNNNN (NNNNNNNNNNNNNNNNNNNNNN& * . Y!@  ٵB!/@   FNMinA0A1A2A3A4A5A6A7A8A9Min@ @ @ JBS  @ T 󷎷BS @ ^BS  @h NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ~NNNNNNNNNNNNNNNNNNNNNN@  @  D@ @ j@ Z@  @  *@  4@  >1!2@  H@  R BBOARD PASSES!!@  \@  f1!2@  p BNEEDS ADJUSTMENT@  zAе?ə$@ ? NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN }NNNNNNNNNNNNNNNNNNNNNN h 󷎷BS @  r @ |@  @ 8@D "( YesnoPrompt$A$Y'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN -NNNNNNNNNNNNNNNNNNNNNND4@4@D@N@T@Y@^@a@d@f@i@k@n@p@@q@r@t@u@@v?Gz?/v@FYJ@1\hr@KnQ@b(]@v-R@@D\(@- =p@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNNesYesNoNoIdleIdle@ @ YES@ @ NO@    BYES@̑B@׳BNO@ꑵB@ @   QNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@`33334@ŔzG@\@؃!G{@.@}fffg@v@@ANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN "NNNNNNNNNNNNNNNNNNNNNN,2(2X,M7D.5D)@   ǵB (Y)@ ٵB/@   @0 ٞBY-axis crosses X-axis at X = @00 ٞBX-axis crosses Y-axis at Y = @0 !(@. ٞBDistance between X-ticks = @. Qm`@. ٞBDiNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ^NNNNNNNNNNNNNNNNNNNNNNPNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNstance between Y-ticks = @. 豳DJPQV0 Q\QfZl@ AQp0508Q\QQ0nQ^xQpQ@ KQ04hQ :Q@`Q]NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN mNNNNNNNNNNNNNNNNNNNNNNVAPOR PRESSURE@5@TEMP. mm. Hg                                 rNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN @NNNNNNNNNNNNNNNNNNNNNN@nn_b8! 8! 8! 8! Statistics@@(VP vNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 8NNNNNNNNNNNNNNNNNNNNNN                                   NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN qNNNNNNNNNNNNNNNNNNNNNN"& * . 6 < _bB FNMaxA0A1A2A3A4A5A6A7A8A9Max@  @ xNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN  NNNNNNNNNNNNNNNNNNNNNN#@ ?ə$@  @  @  &೎@ 0@ :r@  D 萳@  N ղ@  X@  b ղ,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNBS @  򷎷BS @ BS  @  򷎷BS @   @ "@ , @6@(VP "NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ONNNNNNNNNNNNNNNNNNNNNN@ l A& Q( R@ v<@  @  @  1!2@   BNEEDS ADJUSTMENT@  1!2@  @   BBOARD PASSES!!@ ƵAе?ə$@ е?#@ ڵA?ə$@  tNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[LJ2 vL#fNNNNNNNNNNNNNNNNNNNNNNNNNNN JNNNNNNNNNNNNNNNNNNNNNN&0Q*06.020*^V60:0>@ <B0$>J@ >R0>VZD>\D^@ C`0>hxppD>r2thx`zX|D~<4,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN bNNNNNNNNNNNNNNNNNNNNNN@#ꐳ $ @䀵11+@ @ @& %(?333333?333333 @&  1%1%@,  2#,K2MECHANICAL DRAWING@, % Ƴ@ *'@ 4%1̳@ >(@ H(!c܎NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN yNNNNNNNNNNNNNNNNNNNNNN$D>D>$  (&f0@ D> @ @)@ @ 0@ c ranterSvmCgenAutoEgidthBVEctartFinMech CӌNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN SNNNNNNNNNNNNNNNNNNNNNN Z*@.R(,-./0123456789:; . \,=@ f? p-?fffffg@  z=@ @ ? .@AB@  @A@ @ D@ @ ? /@AB@ ޅ?fffffg@  @A@ rNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ,NNNNNNNNNNNNNNNNNNNNNNonfigurationPlotterPrinterSvmGenAutoWidthBVStartFiniStop_tI1xI2xI1yI2yScxminScxmaxScyminScymaxDxDyXsYsSmallestLenxLenyLeftyLeftxV1xV2xV1yV2yTitleI Title_areaTLeaveL1L1LANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@ D@ @ @ ? $0@ABEF@ .G@ABEFղ@  8? B1@ABH@  L@A@ VB @ `IH .@  jJ@ tJ @ ~IH  @ I @   @ @ ? NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN2L3L4L5L6L7L8L9L10L11L12L13L14L15L16DlinesNiXYRCircleSEArcNJLL$DAGxXgdusGyYgdusCarrowLarrowL2 Mech_arrowX1Y1OLblIdleDevicePlottersOrigin Plt_deviceP:NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 1NNNNNNNNNNNNNNNNNNNNNN2H@ @ H@ ? 3@ABEFK@  L@ K L@ MEF萳@ JK 퐳@&  N J?333333@BMO萳@$& P"(?񙙙ABMQ萳@$ R@ABEFLKNPղ @  (? 24@AJK@ <6NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN+@ n nq /29/81q /29/81q /29/81q /29/81Mech@ @(Բ  SDD 4/82, MODIFIED 7/82@(@0("!You are back in the BASIfNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNltr@Z\]^@ d@ n)@ x"@ @ @ ٵ#,KK@J@2_Ե"MECH: Choose a plotting device:]ղ@2\@  ]1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN >NNNNNNNNNNNNNNNNNNNNNNC System.@ 02@<nn  @"@"@"@" Delimiter2@F@P nL2|Lhf  @@[NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN  @D @$ @(Dj( @2, @H@ 0>VP^Hb@f8j0n(v ~NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN iNNNNNNNNNNNNNNNNNNNNNN2HPGL#@ r2@ |2K2VS10@@  $@, 2No external plotter available@, (?#@  $@ ׳@¹ @ @ 쐳@ @ @ !Q됳@!6NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN \NNNNNNNNNNNNNNNNNNNNNNĀȀ0 dЀ@ 0>@ )08>0 >0 Ď0  0 j0 0 0 N^V0 z0<"0l?NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ZNNNNNNNNNNNNNNNNNNNNNN@ @ !P@& ----FIX V'S@ 0ꐳ@ :ꐳ@ D퐳@N퐳@X Ⳏ@  b@ l @  v@ @ 쐳@ 쐳@ ꐳ@ꐳ@ 萳@!ꐳ@"ԯNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN lNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ1tM%iNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN @ @ &(@ @ 0 @ :?fffffg@ D @  N X?% :b'@lO! 퐳@vQ#"퐳@ !"# @@  =@@AH@ @A@ I:NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ,ANNNNNNNNNNNNNNNNNNNNNN.29,3,11.6,12.7,3.5,0,0,-40,7,2,16,59,47.7@JP  > 15,57.01,32,5,356,-86,2,57,27,1,-21,0,1,36,27,1,-9.5,0,2,63.1@NJ  C 52.2,1,6.9,0,3,65.5,47,1.5,14,60,46,18,.5,.5,.5,-.5,0,-.5,1.5,0,.5@NN  B -.5,0,-1,1.5,-1,.5,-1,-.5,-1,0,-1,.5,-1.5,-1,-1,0NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN <NNNNNNNNNNNNNNNNNNNNNNH@ Ơ@  @ ڴI`@  D@(!@B(@(@ M1h(.@ M@BMABM@  @BMABM@*M䳎@ 4 >*$@ H@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN,-.5,-.5,-.5,-.5@PN  D .5,-1,1,0,4.3,-2,3.7,7,3,6,9,24,0,1,17,6,26,27,180,1,11,6,21,29,0,1@LP  A 5,6,66,56,180,3,3,5,45,9,10.5,24,-32,"20",9,16.5,27,-29,"18.5",9@JL ļ > 22.5,29,-27,"17",6,36,23.5,270,1,20,6,38,23.5,270,1,16.5,6,65@LJ μNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNNR@ \#@ f @ p³@z @CONTINUE  ZZ@ @    @  "@ ʻ@ ׳@N޼ C 7,1,1,40,22,6,0,-4,-23.5,0,0,40,18.5,0,5,-4.5,0,-21.5,5,40,27,5,90@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN @ 15.5,270,1,4.5,6,70,15.5,270,1,17,9,36,4.5,34,"22 ",9,38,8.5,32@LL ؼ A "20 ",9,65,12.5,5,"3.2 ",6,65.8,15.5,343.5,2,3.3,14.6,8,70,16,15@NL  C 270.5,66.8,"73.5",6,62.5,42.1,0,1,13.5,6,63,47,0,2,5,6.5,6,65.5,50@RN  F 270,1,6,9,75,42,-5,"3.2kNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ZNNNNNNNNNNNNNNNNNNNNNNN C -180,1,45,28,3,4.5,0,0,-2,-4.5,0,1,25,18,6,0,36.5,10,0,3,-2.5,0,-8@NN B -7,-12,0,-14,1,31,20,1,-6,0,1,31,24.5,1,-6,0,1,31,32,1,-6,0,7,2,2@LN @ 31,32,4,1.5,0,0,-6,5.5,0,0,18,2,40,48,1,-2,0,2,25,48,1,-8.5,0,2@NL  B 16.5,50,1,8.5,0|JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ӴNNNNNNNNNNNNNNNNNNNNNN",10,77,58.5,14.7,0,225,11,78,58.7,2,"1.575 R"@NR  C 10,54,34,8.2,0,315,11,53,34,8,"2.15 R",6,58.3,48.9,116,1,16.5,6,62@LN  A 43,90,1,23,6,70,56.5,90,1,16.5,6,67,56.5,48.5,1,18,8,62,43,20,90@HL  < 27.8,"30 ",9,62,64.5,8,"5 ",8,70,60,11.5,48W_NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN i,NNNNNNNNNNNNNNNNNNNNNN,2,38,50,1,2,0,3,40,27,1.25,4,40,27,1.75,3,20.5,27@NN  C 1.5,4,20.5,27,2,3,20.5,53,1.5,4,20.5,53,2,3,28,27.5,2.5,7,3,6,20.5@LN  A 73,270,5,14,8,14,8,16,9,20.5,7,19.5,"12.5",6,40,5,90,1,12.5,6,31@NL $ C 17.5,270,1,7.5,6,28,17.5,270,1,4.5,6,251NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN.5,41.5,"41 ",99@H @( (ARC!8@ (   2 D> D  Dj  l&,40.5,18l ,1,12.5,y$51.5,18,ArcNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNS@AJKղ@  F? P5@A+TM@ ZU@A+MՁղ@  d@A@ nV@+M萳@ xWA+M萳@  VW@ VVTM萳@ WWTM萳@  VW@ ? 6@AXK@ Y@AKXՂղ@  ? 7 @  M@ pNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN yNNNNNNNNNNNNNNNNNNNNNN,17.5,270,1,7.5,9,25,11.5,6@HN . < "",9,25,15,3,"",6,40.5,18,0,1,12.5,9,51.5,18,-35.5,"22.5",6@PH 8 E 40.5,53.5,0,1,12.5,6,38.5,45,60,1,25,6,40,54.5,90,1,16.5,6,34.5,58.5@PP B E 135,1,10,8,40,54,15,48,42,"24",8,40,54,15,90,48,"45",6,5,53,0,1,1fNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ÊNNNNNNNNNNNNNNNNNNNNNN(@, V(@MW(@M@, ̳@, V(@MW(@M@, @  ? "8@ ,1@  6됳@ @!N@  J @ T'@ ^? h9@AH@  r@A@ |IHRNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN J#NNNNNNNNNNNNNNNNNNNNNN2,6@NP L B 18,53,0,1,6,6,5,27,0,1,12,6,18,27,0,1,6,6,5,18,0,1,11,9,6.5,18,-9@PN V D "5.5",9,6.5,27,-26,"16.6",6,37,27,0,1,6,6,40,24,90,1,6,10,40,27,4.8@PP ` D 6,45,12,11,45,35,8,"30R ",6,10,13,180,1,3,10,7,13,17.8,0,45,11,10.5@JP j > 13,JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@  @  @ IZ@ HȁȐ@ HȁȐ@  ? :@ABEF@  @A@ օ?fffffg@ G@ABEFղ@  ? ;@A@  @A@ ?fffffg@  ?陙(?fffffg?NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN pNNNNNNNNNNNNNNNNNNNNNN2,"2-56",11,10.5,11,1," ",11,10.5,10,2,"3 PLACES"@PJ t D 13,7,1,1,70,16,5,-5,0,-27,8,-11.5,0,0,5,15.5,3,5,42,30.5,1.5,90,-90@PP ~ D 1,36,24,2,0,6.5,23,0,5,59,33,2.5,270,125,1,61,34.5,1,-6,7.5,5,55.71@PP  D 42.7,1,225,-90,1,54.89,43NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[LJ3 xN&jNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNwXYLL$SNVertOffsetDL1 Mech_arrowLbl@ @ @ @ B@ @ @ 萳@  ?쐳@   ꐳ@  NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN )@ E$  0 @ EF0,@ EN0 :0@@ F@  Plt_devicePrompt$DeviceCrtP9872cP7580Idle@ *5NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN>4NNNNNNNNNNNNNNNNNNNNNN @   퐳@ "  ,   յ1ղ@ 6   Հղ@ @Յղ@ J׳ T @  ^@ h (?͐@ r萳@ |  ꐳ@  յ1Ձղ@  յ!ZՁղ@ ՅNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@ 4@ >CRT@ H@ RPLOTTER@ \@ f7580@  p  z @ @ ׳  @  @  ׳  @ ʑ@ Ա@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNղ@ @% % CURVE ARROW@ N (8@@N8 $ D> D  Dj  F ^V  ( 2,&f0s$,"21.5",y$38,8.5,3/ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN . NNNNNNNNNNNNNNNNNNNNNN*h@nnx! x! x! x! Emission@ @ Ѳ@ @0("!You are back in the BASIC System.@ 02@ D  Dj @ @ lmNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNHhNNNNNNNNNNNNNNNNNNNNNNF. @4 @l: @B @J @PV @ Fd @l @lt @(x @2| @<@ X0lF@ 0`F @ 0F@ 0F$v'FNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ @ @LblXYL$OSLdir@ :B׳@ D ѵ!Zղ@ N@& X>(@333333(?(\)@&& bd(@333333?ٙ@ & l@ v @ yNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN{YNNNNNNNNNNNNNNNNNNNNNNl@ 0Fx0#& ufitsYunEmissionPlottersDeviceOriginPlotinfoXorgYorgXunitsYunitsXuserYuser ConfigurationPlotterPrinterSvmGenAutoWidUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNkgNNNNNNNNNNNNNNNNNNNNNNXYRSETA@ 2)@ <@ F@ P@ Z$!@ d@  n@ x@ \@ @ @* *L ARROW@ JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ @% % MECH ARROW@   ( D> D  Dj AfAa@ @  Mech_arrowXYDANDx@ -NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNXVNNNNNNNNNNNNNNNNNNNNNN* fd*  D> D  Dj  0x>"*@ ,0&>0(4&f@ebtVertFgffsetDBd1L1LarroNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN )@ @ ?333333@ $?333333@   @  @ ?ə @ ?ə @ ?ə @ ?ə @   @ @ @ , n( ]YNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNKNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[Ƈ2 vN&lNNNNNNNNNNNNNNNNNNNNNNNNNNN.NNNNNNNNNNNNNNNNNNNNNN: FAT BLACK, THIN BLACK, RED, BLUE, GREEN, LIME, GOLD, ORANGE@ Tx@ @   @  @ b@  @ EXIT@ @ ȸ@ ҄NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN KNNNNNNNNNNNNNNNNNNNNNNjѵB Voltage, mVղ@*t* WINDOW@ ~ чղ@ 8@-@0 "8@-X@-3E? T@ 0 "@ "(?芻@ "(?耻@ "?耻@ Ĵ" @$ ԵH@-յ(?UhNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN{NNNNNNNNNNNNNNNNNNNNNN@ ܈EXITAUTO@ 湳@ 2@  )@ "@ @ ٵ#,KK@ " <@< ,ԵB)NOx EMISSIONS: Choose a plotting device:ղ@< 6N@  @@ J@ T`@  ^"@ h NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNղ@$ тյ?ղ@ !рղ@ фղ@ ѵBWINDOWղ@** DRAW THE ARROWS@  Ե8@+fffffgՅղ@  цղ@  %@" (Ե8@+fffffgյ8@ղ@" 2шղ@ <ѵBRICH ղ@ F8@.(@333333NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNHNNNNNNNNNNNNNNNNNNNNNN@ r@ |@ @ 슋 @  @ @   @  @  ̻"@  BHPGL#@  2@ 긎@  $@, BNo external plotter available@, (?#@  $M@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN )NNNNNNNNNNNNNNNNNNNNNN@ P1  *******@  Z%@ d @" nԵ8@.յ8@ղ@" xтղ@ ѵB LEANղ@** CO@  @: Ե(@յ(@fffffgյ(?յ(?ղ@:  сղ@  хղ@  @2 ȵ(?񙙙NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ ׳@ & 0 @* :Ե8@)333333յ8@0ffffffՁյ! ղ@ * D@ *N* FRAME@ X! !@  b@ l@ *v* TITLE@" Ե8@-յ8@%ղ@" цղ@ фյ?ղ@, ѵBHC, CO, NONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN XNNNNNNNNNNNNNNNNNNNNNN(?񙙙(?񙙙@(2 &(?񙙙끵?zG{೎@( &&&@ 洎&@  @" &&?&ղ@"  тղ@ хղ@ ԃյ?ղ@ "ѵBCOղ@*,* HC@  6@ VNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNNNNNNNNNNNNNNx EMISSION CONTROLղ@", Ե8@-յH@$(\)ղ@"  тղ@ уյ?ղ@ фղ@B ѵB2USING A THREE WAY CATALYST IN A CLOSED LOOP SYSTEMղ@B*ڶ* AXES@ ! !@ ! %@  @ 8@/!pNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN kNNNNNNNNNNNNNNNNNNNNNN@ фղ@> JԵ(?񙙙(?񙙙(?յ(?񙙙ղ@(> T&(?񙙙끵?zG{@( ^&&(?&@ h&೎@* r&&(??&ղ@* | тղ@ ԃյ?ղ@ ѵBHCղNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNuNNNNNNNNNNNNNNNNNNNNNN@  (@!%@  @ * * LABEL LEFT Y AXIS@ *Ե! Հղ@" 4ѵ(@ յ?ղ@" >чղ@ HѵBLow ղ@ RԵ! Պղ@ \щղ@ fѵBHigh ղ@ pԵ8@)fffffgՅղ@ z!ѵ!Zղ3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN>NNNNNNNNNNNNNNNNNNNNNN@** ZIRCONIA@: Ե(@յ(@fffffgյ(?յ(?ղ@:  уղ@. 8??8?ͻ@2. &8?(?񙙙?zG{Z@2 &?&@ ִ&,@$ Ե(@fffffgյ(NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNDNNNNNNNNNNNNNNNNNNNNNN@ цղ@. ѵBConversion efficiency, percentղ@.** X AXIS@ !рղ@ цղ@ "! ! 8@ "յ?əղ@ "B:1ղ@ Դ" @$ Ե8@-յ?陙ղ@$ фղ@ -yNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN?񙙙ղ@$  тղ@  @ ԁղ@" Ե(@333333յ?ղ@" ѵB zirconia,ղ@$ Ե(@fffffgյ8?fffffgղ@$ &ѵB exhaust gasղ@$ 0Ե(@fffffgյ(?333333ղ@$ :ѵB oxygen sensorղ@*D* NGNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNthLeaveStop_t Plt_devicePltrStartWindowMoveLorgCsizeLabelPenLdirINArrowXFiniIdleSubs@*Z NOx EMISSION CONTROL - 4/20/81@ *d@T nH PEN ORDERN6NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNzNNNNNNNNNNNNNNNNNNNNNNѵBAir-fuel ratioղ@** RIGHT Y AXIS@ тղ@ #1Ȑ@0 "(@(@!(@ 6@0 $Ե!"ղ@ .ѵB #ղ@ 8##1萳@ B" 쳎@ LԵ8@0LՅղ@ V!ѵ1ղ@ `фղ@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN=NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[LJ3 xP(nNNNNNNNNNNNNNNNNNNNNNNNNNNNҚNNNNNNNNNNNNNNNNNNNNNNOx@( NԅՄյ(?333333յ(?ղ@( X уղ@  b@4 l8? =p! 8? =p8? =p@24 v&8? =p(?p =q?zG{F@2 &! &&@ &@  @" Ե8@յH?tkNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[3NNNNNNNNNNNNNNNNNNNNNN,0Zl28:<@ @ \|#* LLabelL$PlottersDeviceOriginCrtPltrBertXYL@ F@ P Z B#,K@ d׳ n @  x@ BKBLB*NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNղ@"  тղ@ ԃյ?ղ@ ѵBNOxղ@*ƶ* FINISH ' @ ڀ쀋 @ ԀՁՀՁղ@ ԁՁղ@  @ @  D@  (Ѳ@  V@  *#@ 4@  > H NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN hNNNNNNNNNNNNNNNNNNNNNN@ ׳   @ @  @(  (?Q됳@ (  (?Q됳@ " (?됳@ B ?됳@ ܻ@2 曵BKBCP B, B;LB@2 @;NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNR@  \@ f2@  p"@ z@ ׳@    % @ ?333333 @ ?뀻 @ ?333333 @" (?zG{(? @ " ʵ(?zG{(? @ Ԁ?333333 @ ޵?JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN =QNNNNNNNNNNNNNNNNNNNNNN* * LDIR@  D |  F @dF @n@ "0BF(s DeviceFgriginPldrPltr@ @ LdirDPlottersDeviceOriginPltrNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN @  @  @ @    ) @* * CSIZE@ $@j|zt F F r @dF @n@ &0F,2@ 40 F:NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN `NNNNNNNNNNNNNNNNNNNNNN@ @  )@ ".@  ,@ 6׳ @ @, JBKBDI죵,줳@, T@* ^* PEN@ hh `Dh `  F @hNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN^NNNNNNNNNNNNNNNNNNNNNN@D@ H0BFPraginPltr PltrRCsizeHArPlottersDeviceOriginPltrRHorizPwPhLabelit@ .@ 8@  B@ L׳ VNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNdF @n@ 08F&FdeviceOraginPltr Pltr@ @ PenPPlottersDeviceOriginPltr@ r@  |@ 0@ ׳  @ BKBSPNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-oNNNNNNNNNNNNNNNNNNNNNN @  `@ j @ t (?p =q쐳@ ~ ?쐳@   @  쐳@ (?p =q쐳 @$ BKBSR B, @$ ı@* ζ* LORG@  ьNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@ @ (@ , n(   F @ 0F @ $0F,@ 40 F:0@@ FF@  Plt_devicePrompt$DeviceCrtP9872c-NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNx @F @LDR @dF\ @ndXp @ F~ @ @ll @( @2 @<FF`unitsYufitsXusebYuserPWindowXminXmaxYminYmaxPlodNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN YbEADPHYWRYbEADPHYWRYbEADPHYWRYbEADPHYWR Delimiter2@@L4 Lh N @  @$ @ @(, @2 06 @8 @< @0NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNLNNNNNNNNNNNNNNNNNNNNNNtinfoXorgYorgXunitsYunitsXuserYuserPlottersDeviceOriginSvm ConfigurationPlotterPrinterGenAutoWidthXY@ м @ ڼ @  @ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN KNNNNNNNNNNNNNNNNNNNNNN@ @DH AJ AN AR AV Ab Alv @0z @: @N @b @l  @  ̀Ԁ@ #E0NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN}NNNNNNNNNNNNNNNNNNNNNN@  @  @ ׳@  @ @ * @ 4ٞBOC@ >۞@  H@ R @ \ٞBOC@ f۞@ p퐳@ z 퐳@  @  @ b@>!NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN xNNNNNNNNNNNNNNNNNNNNNN `zr@ (E.0 "@ *E0R>0 N@ -EV0`0 jvp@ 1E0 ~0 @ 40 0 6j@ 80 @ :@ 0@ =NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNhNNNNNNNNNNNNNNNNNNNNNN6 ' F  @F @ @l @( @0 @6< @dFF @nN&Z @ Fh @p @lV @(x @2| @< z ebYuserPlgttersDeficeONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN CNNNNNNNNNNNNNNNNNNNNNN0t@ ?@ @0  @ 0b(Z.R>JHBT:b@ Jh0p@ Lx0~@ N026.&!0@ 0^0NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[NNNNNNNNNNNNNNNNNNNNNNriganSvmMoveXYPlotinfoXorgYorgXunitsYunitsXuserYuserPlottersDeviceOriginSvm ConfigurationPlotterPrinterGenAutoWidth@  @  @  )NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN rNNNNNNNNNNNNNNNNNNNNNN@ X@ Y0@ 0$j0F @O @ H&')P@Rϳ@\Q&@ fFQGꐳ@ pR'@ zQRPȁ@  1R?'퐳@ SՁղ@ R0@Q @  . 3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNYNNNNNNNNNNNNNNNNNNNNNN paddle travel (depend on paddle width)@HB@L@N@O@ P@ Q@ S@ V!!@`@ @@ j,@ k!@ l"@ t$@ u%&'쐳@ ~)@ +NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 9NNNNNNNNNNNNNNNNNNNNNN@ C@  @ʁ NUM OF T@ Ԇ ROWS=&T@ չ@ ޺ C@ @   TRAIL: V@"  V@" $LEVEL: W@ .IWNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNjNNNNNNNNNNNNNNNNNNNNNN ,@ . /@ 0Բ@ @ / 2 @ @ @  3 @ ϻ@ 5 6@ 7@ 9@ "% n6@% <@ " >@ 3@  NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@ /(@ 2 AUTO A@ 3Z@ 5EXITZ@ 6MANUAL2@ 7~@ 8\@ :EXITAUTO\@ ;!v@  @  ? BK @ C7ij@PNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN6NNNNNNNNNNNNNNNNNNNNNN, (A@ 2@ <3@ = F5@G! @  H!@ L@P 6@  Q@ ZC@ d R@  n@ x@ @ D@ "@ @ %&'쐳@$ E%' for progressive speed@$vNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN zNNNNNNNNNNNNNNNNNNNNNN D]рղ@  F7@  G@  L^Բ@  M7@  N@  V0Բ@  W@  `1>@  j 됳@ tAе?zG{$@ ~@ 1|@  됳@ ?zG{$@ @ @ 1ԁ$@  ""NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN +@ 1@!2@ Һ 9 @ٞ12K@,B SCORE:D!%""BALL@," DS@B LEFT@ C@ #@ 6@ @ @  JC@ T @  ^#NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN INNNNNNNNNNNNNNNNNNNNNN@ κ@  ع@"   F@ " 됳@  萳@* & (@?萳@* 1?Q$@ . _`?'1?@. (``'賎@  21`?'퐊NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZŇ1uM&iNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ ι@$ 11@ $ Ѐ@ с@ @ ӻ B+@ Թ@ ձ@  ֶ zn0z,f v0 A A A ANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ?NNNNNNNNNNNNNNNNNNNNNNj:?E뇻@* 9:녻@ 9%@  @ @ @ J9:P0( X axis@ J(@fffffg@ ƻ DJ@ дJP/ֳ@  ڀ@ J녁@0~( Y axis@ 9?QEJ@ lNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN A * A4> @NBH @bN @lX^ @` @d @h @lpvEdrailAuto Main_autgTempPaddlePaddlePPxPyPw Gear_ratio P_lim_lowP_lim_hiOpTrailAutoMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNjINNNNNNNNNNNNNNNNNNNNNN@ (*66@ h@ @ C P Xp @ 2@ V@@ D@ dVH@ nBL@ P@ R@"@ ^@"h$@ x@ gNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN Main_autoTempBBxByVxVyAutoX@  !     @   @  @( ! for auto@ (  @   normal lines@ 쐳@ xꐳ@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNYxNNNNNNNNNNNNNNNNNNNNNN$@ @ J@ @ @ TofsS_hSSn$Sn_disp$ONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIFNNNNNNNNNNNNNNNNNNNNNN#@  J@  T ^W @ rII@ sH(@I퐳@ |IW@  @  I6! @ I쐳@  萳@  1ꐳ@  @  @  ̵1@  ց@  ׵(?bNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ *@  4萳@ >@  H@ R@  \@ f@ pf@ z@  萳@ *@  @ @  @ @ @ ʱ@  ԶNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNzwNNNNNNNNNNNNNNNNNNNNNN#@    <@8 B SCORE:D!"E X C E L L E N T !@8 a!>@ Aп?$@ a@ Aп?$@ jZ@  &  0>@6 :B SCORE:D!"G NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN ` p !0    @ @ @" @&* @0. @::H @NTr`BryPenAbBxByBfxVyBr Brick_wNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/$NNNNNNNNNNNNNNNNNNNNNNA M E O V E R@ 6 ;$@  D E\ GZ,@ H@ J"@ K@  N+@ X ^h  j0f @ @ @ @?NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN0eighBrickBrickBrxBryPenBBxByVxVyBr Brick_width Brick_heightFlagEraseY@ ߼@  @  @  @ г@  @ @   fNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN" @N&, @28<@ E@AbBxByBfxVyOp TrailFlagEraseOxMoveitMoveitBBxByVxVyOpTrailFlagEraseOxOy@ b@ lNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN:@  @ $ @. @/|@  1@ 3 B+@  4@ 7@ 8@ Bϳ@L@ V@` \Dd \ $  @TNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ m @  v @ @  萳@  萳@ @( 1 1 :@ ( @ @ @ Ļ B+@ ǹ@  @& 11@ & ˀ@ ̂@ fNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN  +NNNNNNNNNNNNNNNNNNNNNN @ @ @ efBBxBy @ @ @  First_drawingPenBBxByVxVy@a@b@ f@ g@ h@ i B+@!hNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNi%NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ3 vN&iNNNNNNNNNNNNNNNNNNNNNNNNNNNԯNNNNNNNNNNNNNNNNNNNNNNer" available with "Shift-Recall".@>Fȶ3 Insert and delete lines with corresponding keys.@:>Ҷ/ Write file with "DUMP ALPHA" or "Print" key.@*:ܶ Read file with "Result" key.@ *涎@ ! @  @ eNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ]NNNNNNNNNNNNNNNNNNNNNN!;@ @H  2Tn% key ("Shift" ).@ H@  @D  2'Ҷ "Prev" key (HIL keyboard only).@D ꐳ@ *@: 4 2,0 "Next" kezTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@   @  @ " @  , @ 6 @ @ @ JPѲ@  T@ ^ @ hxѲ@  r@ | @ 䳎@ @N B *****************************************************************-%NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN n7NNNNNNNNNNNNNNNNNNNNNNy (HIL only).@:>!5$萳@ H@6 R 2* "Insert line" key.@6\!=ǿ س@f !=@p  ǐ@z @ǵ2@곎@ $@ @ @6 ewNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@^j6B.  A  A"!B(("B2 . A<D AF: APR\hv x ~fdagSubsEdext$ Lastgline$LKbd_proc W NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN;dNNNNNNNNNNNNNNNNNNNNNN 2/ "Delete line" key.@ 6 @ ʁ ǐ@ !<@  ǐ@贎 ^@!=ǵ"@ @F  B? " "Recall" key (for insert buffer).@ F@ ٞBPNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNrite_flag Read_flagSubsText$ Last_line$Ll_flag0 Current_lineLl_flag1 Screen_top Screen_bottomIKey$ Kbd_line$@.  # This COM shared with main program.@. ! @  ¶ @F ̶ : This COM BNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNUNNNNNNNNNNNNNNNNNNNNNN#@ $@L . B@ ( "Shift-Recall" key (for delete buffer).@ L8 @ BٞB# @ L@> V BE  "Return" and "Enter" keys.@8>`BKBD LINE/ <<<<<<<-------bBNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNkNNNNNNNNNNNNNNNNNNNNNN@ " SERIAL NUMBER@Hٵ"9D118@p !@   褳@VH18@p    1 1@ V(iNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNshared with Write_file and Read_file subprograms@PF ֶ D (preserves text and recall buffer between invocations of Kbd_proc).@&P D=PH@& ! @   @  ! ! !@  @P@@   @NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+ZNNNNNNNNNNNNNNNNNNNNNN@,x  A  A@ "@ ,T8@ DNrgc Write_file Write_file Write_flag Read_flagKbd_proc Write_fNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN   .@* & ! "System" key.@>* 0 ## "System" key with "CTRL" pressed.@8>:ٞ %" Display characters on kbd. line.@(8D % Remove from key buffer.@ (%N%@. XZ "System" ke\6NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN~ NNNNNNNNNNNNNNNNNNNNNNile Read_file@2d& Simple 60-line editor, which uses the@(2n SYSTEM$("KBD LINE") feature.@ (x@(  Here are its main features:@ (@F ; Type a line of characters and preNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNy w/o "CTRL" key.@4.b  z  Implement actions based on@*4 l  second character of sequence.@ * v @T  2&2X' Select (HIL) and EXECUTE (98203) keys.@Tٞ2#@ @: NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNM8NNNNNNNNNNNNNNNNNNNNNNss "Return" or "Enter".@4F( Move cursor with "cursor arrow" keys.@N4B Select current line for editing with "Select" or "EXECUTE" key.@DN8 Two-line "insert buffer" available with "Recall" key.@FD: Two-line "delete buff;NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN đNNNNNNNNNNNNNNNNNNNNNN 2^L cursor key.@:@ꐳ@ @<  2V cursor key.@<!=萳@ ж@J ڻ 2W& key ("Shift" ).@JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN8NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[LJ3 xP(jNNNNNNNNNNNNNNNNNNNNNNNNNNN;NNNNNNNNNNNNNNNNNNNNNN @һB=BEB/B*B,B'BTBWB^BV> Refresh screen.@ 쐳@$ !5!=!4萳@$ٞBK@@ p-NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN %NNNNNNNNNNNNNNNNNNNNNN@F@ ڼ\\@ !  @   @ !@ @@$  ) Anticipate errors.@ $  @"  BRead which file?@" *B>׳@ 4 1-2@2NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ ೎@ ǿ  "@"Ҁ\@,12 1@6ҁ@@1 ǵ1@Jҳ@$T1 ǁ1 ǂ@ $^@ h@ r Ǥ@ |@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN +NNNNNNNNNNNNNNNNNNNNNN >!;) Read 60 lines from file.@2 H ۞Ǥ@ R@  \ 0@ f @2 p ' Initialize recall buffer and pointers.@2 z "","","","",0,0,0@ ͣ@ ׶ EXIT LOOP.. BSorry. Cannot readNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*NNNNNNNNNNNNNNNNNNNNNN @ @0   Remove processed "system" key.@0  "System" key.@2  First key is not "system" key.@62  B ! Check for embedded "system" key.@$6  x Found one.@:$ٞ '# DNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN that file.@ . $@ #@: B,Program paused (press 'Continue' to resume).@ : @ ʻ@,Ա End of "Read_file" subprogram.@P,޶D ******************************************************************* 3P@0Pf BhN  T& !B('B2 A<$ AF2 AP<F XH@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN~NNNNNNNNNNNNNNNNNNNNNN$ J@ @ @ TofsS_hSI_sTestK$XYIcons Define_iconsS_hS_wI_xI_yIJ Draw_iconA$ Frame_iconDo_iconNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnNNNNNNNNNNNNNNNNNNNNNN----------@68jٞB#/ Needed to clear kbd. line.@ 6t@ ~@  @ !P ³@ @ != 萳@B@ @!P@!Q@!= 萳 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNvNNNNNNNNNNNNNNNNNNNNNN0V^ Write_fileSubsText$ Last_line$ Current_lineLl_flag0Ll_flag1IFile$Exists@F@ ::\\@ D!  @  N!@ X@@  b BEnter File Name@ l @ v! ӪNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]NNNNNNNNNNNNNNNNNNNNNN@!=ǿ `@ != R@  ǐ@ 0@ @ $@ ٞ@(B@2@<@F Z@ P@T Z B=BD & "Result" or "EDIT" (98203 onlNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN GNNNNNNNNNNNNNNNNNNNNNN  @  1-2@ !;@  ٞǤ@ Գ@   0@D 9 ********************************************************@ Dƶ@f B  NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNy) keys.@ Td@ n@L x BO ) "DUMP ALPHA" or "Print" (HIL only) keys.@ L@ @:  ⶎ& Send character sequence to kbd. line.@:ٞ @ @ @ @   NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN!B('B2 A<" AF0 AP:D XF@ L00V`@ dDcubsText$ Last_line$ Currend_lineLlgflag0L Read_fileSubsText$ Last_line$ Current_lineLl_flag0Ll_flag1IFile$Problems=NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ2 tK"cNNNNNNNNNNNNNNNNNNNNNNNNNNNaNNNNNNNNNNNNNNNNNNNNNN' Use minimal alpha height.@@2Ȁ1틻 )% Specify graphics area (above alpha).@4@Ҁ'! Set up scaling on graphics area.@<4 !𐶎'( 20 char. widths for horz. icon spacing.@>< 萶'( 6 char. widths for vert.\uNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNp@@   | ? u'3/u'3/@! Frame_iconAaJ@ @ @@'  Frame_iconIJ#& Draws/undraws a frame arobNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNPNNNNNNNNNNNNNNNNNNNNNN icon spacing.@8>  -- Array for icon "states".@68ղ'% Determine which cells contain icons.@,6 $' Draw rows of icons.@.,  ' Draw columns of icons.@4.  ɷ ղ4 Draw (if icNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN )NNNNNNNNNNNNNNNNNNNNNNund an icon.@" # Complementing pen.@" !@   @ ƀ @ Њ뀻 @ ڀ @$ 䁻# Back to default pen.@$ "Frame_icon"@ @` bCNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN9NNNNNNNNNNNNNNNNNNNNNNon there).@4 " ̳@, @66'( Enable raster (if separate from alpha).@:6@2TABLET3' Specify Touchscreen as input.@4:J '' Indefinitely (i.e., until "Stop" key).@84 T4'' Read coords. of pointer (& gNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN nNNNNNNNNNNNNNNNNNNNNNN  f _  Ad_ An@#@ @ _0p<@ @!  Cafcel_icons IJKI_`LI_yIcgns Frame_acon Frame_iconI_c  Cancel_iconsIJKI_xLI_yIconsX}NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNproximity).@08 ^ '! Begin conversion to icon coords.@ 0 h @4 r : Pointer is on icon.@44 | 萶'" Finish conversion to icon coords.@4  萳@0  ɷ v' Icon present in this cell.@00  jsNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN _NNNNNNNNNNNNNNNNNNNNNN Frame_iconI_s.! Unframes icons and clears flags.@   ! @ !!@&  . For all rows.@(& *. For all columns.@.( 48 Icon flagged.@"KNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN_NNNNNNNNNNNNNNNNNNNNNN' This icon is not framed.@00 ղ* Un-frame all other icons.@(0 ղ' Then frame this one.@(( Ɂ' Set flag to "framed".@( ¹ Icon not framed.@6 64 Ɂ P3 Pointer withdrawn@$6 ղNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN.> ղ. Unframe icon.@"Hɀ. Clear flag.@ R@ \ @ fⳎ@p@ z@ rn r#P&r @?' Define_iconsIeNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNlNNNNNNNNNNNNNNNNNNNNNN3 (so select it).@*$ ɂ3 Set flag to "selected".@* 깶 Pointer withdrawn.@&  Icon present in this cell.@*&   Pointer is not on icon.@<* ԁՁղ(% Unframe and clear flag on all icons.@ <  Pointer is onXNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN=NNNNNNNNNNNNNNNNNNNNNNconsIJ*# Specify which cells contain icons.@4 !!*! Replace with your own routine to@>4 ΁ж*" assign screen locations to icons.@<> ΂*! (This should be coordinated with@8< *$ "Draw_ico]NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN Cancel_icons@*d ICON picking with Touchscreen@ *n@: x ! '" Number of icons in X and Y dir's.@>:!! ! !'% Screen height and width; misc. vars.@*>"' Initialize grap9NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN|NNNNNNNNNNNNNNNNNNNNNN icon.@ ȳ@ &$ 0 ( Read keystroke(s).@$:  L@RD t12P12! ( "Pause" or "Stop" keys.@6R N! ( Restore initial screen height.@26 X(% Terminate program ()NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2NNNNNNNNNNNNNNNNNNNNNNhics system.@B*2INTERNAL#'$ Select graphics display as plotter.@(B' Set up key trapping.@<(! '% Use height for alpha/graphics split.@<<'( Use ht. and width for graphics scaling.@2<! g\NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ONNNNNNNNNNNNNNNNNNNNNNnon-continuable).@*2b t All other keystrokes.@:* lٞ & Send them to the keyboard input line.@ :v@&  From subroutine "Test".@L&? of main program. *********************************************@ LcNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN`NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[ȇ4 wO&iNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ @ @ @6@!(" D  Draw_iconIJD_i Next_iconABCD(" Draws icon at specified location.@6 !( Replace with routine that draws@ 6 ( your icons.@ (@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 9/NNNNNNNNNNNNNNNNNNNNNN@P|z @ 0* H@"(@ 6@ <@ F D@ V@ @ ` ntLdestinatiof$FNAskC$IQ$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@h  ] 2,1,0,0,0,6,2,2,-1,3,2,1,3,1.6,1,7,1.6,1,7,2,1,8,2,1,8,1,1,7,1,1,7,1.3,1,3,1.3,1,3,1,0,0,0,7@bh  V 4,.3,0,0,0,6,4,.6,-1,6,.6,1,6,.3,0,0,0,7,4,2.3,0,0,0,6,4,2.6,-1,6,2.6,1,6,2.3,0,0,0,7@b $ 2,.3,0,0,0,6,2,.6,-1,3,.6,1,3,1.6,1abNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN l|NNNNNNNNNNNNNNNNNNNNNNExitText$Csize@ 12K@.ٵ#,K) Clear left over debris@:.,Demonstration of character size in graphic[NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,2,1.6,1,2,1.3,1,1,1.3,1,1,2,1,4,2,1,4,2.6,1,6,2.6,1,6,2,1,9,2,1,9,1.3,1,8,1.3,1,8,1.6,1,7,1.6,1,7,.6,1,8,.6,1@2 . ' 8,.3,1,6,.3,1,6,1,1,4,1,1,4,.3,0,0,0,7@2 8 2,1.6,0,0,0,6,2,2.6,-1,8,2.6,1,8,.6,1,2,.6,1,2,1.6,1,3,1.6,1,3,1,1,7,1,1,7,2.3,1,3,{NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN _MNNNNNNNNNNNNNNNNNNNNNNs.@::(,--------------------------------------------@ :2@B <3Press the SPACEBAR to get back to the BASIC System.@ BF@> P"/Press Return or ENTER to see the demonstration.@&>Z ) Let user read messages@$&dAONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNOsNNNNNNNNNNNNNNNNNNNNNN2.3,1,3,1.6,0,0,0,7,4,1.3,0,0,0,6,4,2,-1,6,2,1,6,1.3,0,0,0,7@ B 3,1.3,0,0,0,6,3,2.6,-1,3.5,2.6,1,3.5,2,1,4,2,1,4,2.6,1,4.5,2.6,1,4.5,2,1,5,2,1,5,2.6,1,5.5,2.6,1,5.5,2,1,6,2,1,6,2.6,1,6.5,2.6,1,6.5,1.6,1@D L 8 7,1.6,1,7,2.3,1,7.5,2.3,1,7.5,1.3>NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN) Provide for exit@*$nٵ#,K) Clear for graphics@(*x @2) Allow the long strings@4(")' Initialize various graphics parameters@642INTERNAL#+ Use the internal screen@*6) Turn on the graphics screenTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN|BNNNNNNNNNNNNNNNNNNNNNN,1,6.5,1,1,4,1,0,0,0,7@8D V@48 `ͣͣͣͤ# Each array contains an icon.@4 j!@ t L@ ~x@ ͻDG@ @ ͻ1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@**) Draw a box around the screen@&*끊) Anisotropic units@4&)$ Bottom center of labels is ref. pt.@(4 n) Six labels total@6( Ƞ )' Read the characters cell size and text@6 ) Use Csize@0 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)NNNNNNNNNNNNNNNNNNNNNNDG@ г@ ͻDG@ @ ͻDG@  λ@ ر@ ⶎpp@@@RvZnR  _ :NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ܀ ) Move to appropriate place@0  ) Write the text@. ) Looplooplooplooplooploop@>. 2 30,T,20,his,10,isjustlike,7,thosecutelittlecharts@,> ! 5,thatyoualwaysseeinyourfriendly@8, - 3,neighborhoodoptNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN $?<(/-----------------------------------------------@ >2@B <3Press the SPACEBAR to get back to the BASIC System.@ BF@4 P!NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@.ٵ#,K' Clear off old display@<.-Demonstration of label direction in graphics.@<<(----------------------------------------------@ <2@> </Press SPACEBAR to get back to the BASIC System.@ >F@4 PNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN&Press Return or ENTER to see the demo.@&4Z ! Let user read messages@$&d! Provide for exit@2$nٵ#,K! Clear for graphics display@42x"!' Initialize various graphics parameters@642INTERNAL#! Use the iNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN&Press Return or ENTER to see the demo.@&4Z ' Let user read messages@&dٵ#,K@"n' Provide outlet@4"x"'' Initialize various graphics parameters@642INTERNAL#' Use the internal screen@*6'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNnternal screen@*6! Turn on the graphics screen@D*8@%!) Isotropic scaling: Left/Right/Bottom/Top@*D! Draw a box around the screen@0*2! Loop on LORG parameters@60 !& Left-center origin for thNINNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 4NNNNNNNNNNNNNNNNNNNNNN Turn on the graphics screen@**' Draw a box around the screen@F*끵(?񙙙끻') Anisotropic units; Left/Right/Bottom/Top@$F)' Angular mode: Degrees@,$' Label origin is left center@,,1^' Every 1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNe "LORG n ="@,6 ! Characters cell 4 GDUs high@6, Ȁ!& Move to position for "LORG n =" label@26 һ 2LORG2=! Write the label@*2 ܈??! \@** 戵??! \@N* NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN !NNNNNNNNNNNNNNNNNNNNNN0 degrees@ , ' Labelling angle@( Ҁ' Move to center of screen@>( ܻ 2 -------LDIR' Write using the current LDIR@ >洎' And so on@& ' Stay in demo of graphics & @* ٵ#,K' Final s)NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN??!& > Draw an "X" to show where pen is@*N ??! /@(* ! Specify LORG for "TEST",@&( ! ...and larger letters@*& ! Move the center of the "X"@8* " 2TEST!! WripNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNtVNNNNNNNNNNNNNNNNNNNNNNcreen clear@0* 2!You are back in the BASIC System.@0' Quit@>( ܻ 2 -------LDIR' Write using the current LDIR@ >洎' And so on@& ' Stay in demo of graphics & @* ٵ#,K' Final sNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNte "TEST", using current LORG@"8,ʶ! And so forth@ "6! Let user see demo& @! Clear graphics display@& Jٵ#,K@> T2/You now have control of the BASIC System again.@>^! Cease and desist!! WrihNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNGgNNNNNNNNNNNNNNNNNNNNNN@ P"" ^^L0@ @ 6@ <@ F DV@ `@" n@ @ t@ z@ |@ @ O=NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNw:NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ3 xP(kNNNNNNNNNNNNNNNNNNNNNNNNNNNzNNNNNNNNNNNNNNNNNNNNNNd...@D0 J 8@0&%' Get a data point and plot it against X@ DT % et cetera@$ ^% Stay in graphics demo $ h@ rٵ#,K@: |2+You have control of the BASIC System again.@:% finisENNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1NNNNNNNNNNNNNNNNNNNNNNopsSoerce$ FNFide_existsLdestinatiof$FNAskC$XIExitQ$ X_gdu_max Y_gdu_max@ 12K@$ٵ#,K% Clear screen@*$KNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!NNNNNNNNNNNNNNNNNNNNNNopsSoerce$ FNFide_existsLdestinatiof$FNAskC$XExitQ$ X_gdu_max Y_gdu_max@ 12K@.ٵ#,K% Clear off old dis]NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNDNNNNNNNNNNNNNNNNNNNNNN@\PVp L0(@ @ 6@ <@ F DV@ `@ OopsSoerce$ FNFide_existsLdestinatiof$FNAskC$XExitNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNplay@@.1Demonstration of vertical/horizontal line labels.@@@(1-------------------------------------------------@ @2@: <+Press SPACEBAR to exit to the BASIC System.@ :F@4 P&Press Return or ENTER to see theHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN uNNNNNNNNNNNNNNNNNNNNNNQ$ X_gdu_max Y_gdu_max@ 12K@.ٵ#,K$ Clear leftover display@0."Initial demonstration of graphics.@00("------------------------------ANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNGNNNNNNNNNNNNNNNNNNNNNN demo.@&4Z % Let user read messages@$&d% Provide for exit@*$nٵ#,K% Clear for graphics@6*x"%( Initialize various graphics parameters.@662INTERNAL#% Use the internal screen@*6% Turn on theDNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN &NNNNNNNNNNNNNNNNNNNNNN----@ 02@B <3Press the SPACEBAR to get back to the BASIC System.@ BF@: P+Press Return or ENTER to see demonstration.@ :Z @ d@nٵ#,K@6x"$( Initialize various graphics parameters.@66ўNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNtNNNNNNNNNNNNNNNNNNNNNN graphics screen@B*쐶%+ Determine how many GDUs wide the screen is@DB 쐶%+ Determine how many GDUs high the screen is@8D%( Reference point: center of top of label@28 % Move to middle of top of screenNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN2INTERNAL#$ Use the internal screen@*6$ Turn on the graphics screen@8*쐶$! How many GDUs wide the screen is@:8 쐶$! How many GDUs high the screen is@Z:?(?zG(?333333 ?[[NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)NNNNNNNNNNNNNNNNNNNNNN@82 "VOLTAGE VARIANCE% Write title of plot@48Ȼ)%' Angular mode is degrees (used in LDIR)@*4ҵ!Z% Specify vertical labels@2*ܵ(@ % Specify smaller characters@82 %& Move to center of left edge of screen҂NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN dNNNNNNNNNNNNNNNNNNNNNN  t Define subset of screen area@.Z$! Draw a box around defined subset@B.!!$+ Anisotropic scaling: left/right/bottom/top@0B $ Points to be plotted...@D0 8@0&$' Get a data point and plot iNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@.8 2Voltage% Write Y-axis label@:.%+ Reference point: center of bottom of label@(:% Horizontal labels again@F(?Q %) X: center of screen; Y: above key labels@4F 2Time (seconds)% Write XNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN WNNNNNNNNNNNNNNNNNNNNNNt against X@ Dܴ $ et cetera@  @ ٵ#,K@B 24Continue working. You are back in the BASIC System.@B$ finisoints to be plotted...@D0 8@0&$' Get a data point and plot iQNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNKNNNNNNNNNNNNNNNNNNNNNN-axis label@Z4"?(?zG(?333333 ?  u Define subset of screen area@.Z,%! Draw a box around defined subset@B.6!!%+ Anisotropic scaling: left/right/bottom/top@0B@ ^% Points to be plotteS)NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN @R " " 0 , L "@"(@ 6@ <@ F DV@ `@" nx@ t@ z@ |@ @ OݮNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNgNNNNNNNNNNNNNNNNYŇ1 uK#gNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN?!%%% Draw axes intersecting at lower left@JHJ?!%%& Draw axes intersecting at upper right@BJT(?!$% Draw grid with no minor ticks@6B^%) So labels can be outside VIEWPORT limitsDNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN>NNNNNNNNNNNNNNNNNNNNNN2ENTER12 to begin.@ dZ @. dٵ#,K% Clear screen for graph@2.n% Provide outlet to BASIC System@62x"%( Initialize various graphics parameters.@662INTERNAL#% Use the internal screene'NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#NNNNNNNNNNNNNNNNNNNNNN@B6h(@?%! Smaller chars for axis labelling@*Br% Ref. pt: Top center |\@4*|  <% Every 10 units | \@D4  H@/G{%+ A smidgeon below X-axis | > Label X-axis@6D  2#,K % ComDNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@*6% Turn on the graphics screen@B*쐶%+ Determine how many GDUs wide the screen is@DB 쐶%+ Determine how many GDUs high the screen is@8D%( Reference point: center of top of label@V8 ?333333?}GNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1NNNNNNNNNNNNNNNNNNNNNNDemonstrates grids and axes.@**(----------------------------@ *2@. <View graph as long as you wish.@B.F3Press the SPACEBAR to get back to the BASIC System.@&BP % Let user view messages@ &ZNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3NNNNNNNNNNNNNNNNNNNNNNpact; no CR/LF | /@06 % et sequens |/@,0% Ref. pt: Right center |\@D, !!(? \% Every quarter | \@DD ? %+ Smidgeon left of Y-axis | > Label Y-axis@:UNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN% Provide exit@. dٵ#,K% Clear screen for graph@6.n"%( Initialize various graphics parameters.@66x2INTERNAL#% Use the internal screen@*6% Turn on the graphics screen@8*%( Reference point: center of toNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNND » 2#,DD.DD % DD.D; no CR/LF | /@2:̴ % et sequens |/@22ֻ%$ LABEL statement leaves the pen down@02  "% Points to be plotted...@D0  8@0&%' Get a data point and pl8NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNSNNNNNNNNNNNNNNNNNNNNNNp of label@B8쐶%+ Determine how many GDUs wide the screen is@DB 쐶%+ Determine how many GDUs high the screen is@VD ?333333?333333?z% Offset of X from starting point@:V  %& Move yNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN UNNNNNNNNNNNNNNNNNNNNNNot it against X@ D % et cetera@  @ ٵ#,K@H 2:The demo is complete. You can use the BASIC System again.@H&% finisto be plotted...@D0  8@0&%' Get a data point and plZNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNbNNNNNNNNNNNNNNNNNNNNNNto about middle of top of screen@8:  "VOLTAGE VARIANCE% Write title of plot@.8ȴ ڶ% Next position for title@4.һ)%' Angular mode is degrees (used in LDIR)@*4ܵ!Z% Specify vertical labels@2*(@ % Spe4NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN fNNNNNNNNNNNNNNNNNNNNNN h@ P" d" PL 0 X@ 6@ <@ F DV@ @ `@" nx@ t@ z@ |@ @ ONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNvNNNNNNNNNNNNNNNNNNNNNNcify smaller characters@82 %& Move to center of left edge of screen@.8 2Voltage% Write Y-axis label@:.%+ Reference point: center of bottom of label@(:% Horizontal labels again@F(?Q %) X: oNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN \NNNNNNNNNNNNNNNNNNNNNNopsSoerce$ FNFide_existsLdestinatiof$FNAskC$XIQ$Exit X_gdu_max Y_gdu_max@ 12K@.ٵ#,K% Clear leftover di6XNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNENNNNNNNNNNNNNNNNNNNNNNcenter of screen; Y: above key labels@4F" 2Time (seconds)% Write X-axis label@Z4,?(?\(](?333333 ?  u Define subset of screen area@BZ6!!%+ Anisotropic scaling: left/right/bottom/top@HB@ Label Y-axis@:D » 2DNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@ !% \@, ??% \@,, ??% \@F, ??% > Draw all the little Xs.@,F ??% /@, 洎% /<NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNf#NNNNNNNNNNNNNNNNNNNNNN#,DD.DD % DD.D; no CR/LF | /@2:̴ % et sequens |/@ 2ֻ@,  ʶ% Points to be plotted@0, 8@0&% Plot a data point@0 @*% Keep graph up til user exitsNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@ % /@ !% \@  耵!% \@8 %* > Draw boxes around the character cells@8 *% /@6"%( Deactivate clipping so LABELs will work@66,!2%% Character cells half the KNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNUNNNNNNNNNNNNNNNNNNNNNN** % Clear graphics from screen@2* 2#You can again use the BASIC System.@2% finis ʶ% Points to be plotted@0, 8@0&% Plot a data point@0 @*% Keep graph up til user exits}NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNܻNNNNNNNNNNNNNNNNNNNNNNscreen high@266%# Starting point (LORG 1 by default)@&2@ 2AbCd% Sample letters@&J(?ͻ3 \@T3 \@*^!!3 > Write the title@:*h 2#Size of Character in Character Cell3 /@ :r†NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN̅NNNNNNNNNNNNNNNNNNNNNN333333?Ҷ% Offset of X from starting point@:V  %& Move to about middle of top of screen@8: Ȼ "VOLTAGE VARIANCE% Write title of plot@.8Ҵ 2% Next position for title@4.ܻ)%' Angular mode is degreNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNE,NNNNNNNNNNNNNNNNNNNNNNv@pZ"r"Z@"@ LP  @ @"@"(@ 6@ <@ F D@ V@ `@" n@ tz|@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNes (used in LDIR)@*4!Z% Specify vertical labels@2*(@ % Specify smaller characters@82 %& Move to center of left edge of screen@.8 2Voltage% Write Y-axis label@:.%+ Reference point: center of boNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN vNNNNNNNNNNNNNNNNNNNNNN0 NrLdestinatiof$FNAskXIYC$Q$Exit@ 12K@.ٵ#,K% Clear leftover diNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNttom of label@(:% Horizontal labels again@F("?Q %) X: center of screen; Y: above key labels@4F, 2Time (seconds)% Write X-axis label@Z46?(?\(](?333333 ?  u Define subset of scNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN #NNNNNNNNNNNNNNNNNNNNNNNsplay@<."-Demonstration of character cells in graphics.@<<("----------------------------------------------@ <2@^ <" Press the 12SPACEBAR12! to get back to the BASIC System.@ ^F@t PPres5NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNreen area@.Z@%! Draw a box around defined subset@B.J!!%+ Anisotropic scaling: left/right/bottom/top@DBT?!%%! Draw axes with appropriate ticks@6D^%) So labels can be outside VIEWPORT limits@B6h(@\xNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNs 12Return12 or 12ENTER12 to see the graphics demo.@&tZ % Let user see messages@"&d% Left user exit@*"nٵ#,K% Clear for graphics@4*x"%' Initialize various graphics pzNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNANNNNNNNNNNNNNNNNNNNNNN?%! Smaller chars for axis labelling@*Br% Ref. pt: Top center |\@4*|  2% Every 10 units | \@D4  H@/G{%+ A smidgeon below X-axis | > Label X-axis@6D  2#,K % Compact; no CR/PNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNarameters@642INTERNAL#% Use the internal screen@*6% Turn on the graphics screen@**% Draw a box around the screen@P*!$(@8@6%' Isotropic units; Left/Right/Bottom/Top@P !$ % \)NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNHNNNNNNNNNNNNNNNNN[LJ3 yQ)mNNNNNNNNNNNNNNNNNNNNNNNNNNNNQlNNNNNNNNNNNNNNNNNNNNNN_____________@ 02@. <Press SPACEBAR to exit program.@ .F@6 P'Press Return or ENTER to start program.@ 6Z @* dٵ#,K1 Clear for graphics@*n@.x!!!!!1 Make loops faster@$.ANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNoundary condition?@$( 0ꐶ1 Start re-using over@$ :  (new>0)@& D1 Re-use next entry@& N (new=0?)@$ X1 Don't connect polygons@.$ b1 This works either way for Pen@*. lж1 Don't interrupt in "SidNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNb]NNNNNNNNNNNNNNNNNNNNNN!1 How many polygons?@$$1 How many sides apiece?@*$1 1: Draw/erase; 0: Complement@,*) (@,%$@"1 Different each time@,""1 Initialize graphics parametNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNe" loop@* v \1 \@  Ȼ&1 \@,  1 > Erase oldest line@",  ~ Ȼ&1 /@" 1 /@ 1 Drawing pen@ 1 \@  萶1 \@ 1 (1 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN7NNNNNNNNNNNNNNNNNNNNNNers@6,2INTERNAL#1 Use the internal screen@&6һ1 Turn on graphics screen@6&܀111 Integer arithmetic is faster@&61 Select appropriate pen@*&1 For each vertex...@6*  ȿ1쐶1 ... NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN \@ 됶1 \@ ڸ ^1 \@"  J됶1 \@" 1 \@    萶1 \@2 萶1 \ Draw the new line@62  11 / same way as before.@6 ^NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN?NNNNNNNNNNNNNNNNNNNNNNdefine a starting point...@.6 ȿ1쐶1 ...for both X and Y...@4.  ȀȻ&1 ...then draw to that point.@ 4ڶ1 et cetera@< "΀ ȀȻ&1 If simple line, don't close@,<,1 Get dx and dy for each veNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1 /@  P1 /@" *>됶1 /@" 41 /@ >萶1 /@ H Ȼ&1 /@ R Ķ1 /@" \ Ȼ&1 /@ " f϶1 Interrupts OK again@( p1WNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN% Stay with graphics |@ ٵ#,K@0 2!You are back in the BASIC System.@0% TerminateT3 \@*^!!3 > Write the title@:*h 2#Size of Character in Character Cell3 /@ :r+NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNrtex@0,6 n1 Draw all the polygons@$0 @1 Don't connect polygons@4$ J 1 Each vertex of each polygon@,4 T 萶1 Avoid recalculation@, ^1&1 \@ h됶1 \@H rp7 (it'sƘNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNf@r`&h:,h&(*@  0@"@"(@ 6@ <@ F D@ V2@ `@" n@ @ t2 z@ |@ >eNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN '0NNNNNNNNNNNNNNNNNNNNNN not off right side) ! > Is X out of range?@H |D됶1 /@,  (off right side?) ! /@*,   萶7 Calculate next X@,* 萶1 Avoid recalculation@, 1 >1 \@ 됶1 aNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNBDB11 @ 02B΀ԀC$XQ$ExitYPoldNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN rcNNNNNNNNNNNNNNNNNNNNNN\@H  7 (it's not off top) ! > Is Y out of range?@H  \됶1 /@, ̹ (off the top?) ! /@*, 萶7 Calculate new Y@.*  Ȼ&1 Draw line to new point@4. 괎1SNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNygonPolygonsSideSidesPenDxDy Define_deltasTempNewPrevious@ 12K@.ٵ#,K1 Clear screen of debris@0.!Demonstration of Moving graphics.@00(!____________________NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ARNNNNNNNNNNNNNNNNNNNNNN Loop for next side of polygon@44  H Ȼ&7 If line, don't close@&4*1 Get each polygon@&&1 Start re-use at entry 0@.&h1 Change deltas periodically@. 1 Ad infinitum...@( & F1 B{NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%NNNNNNNNNNNNNNN[LJ2 vO(jNNNNNNNNNNNNNNNNNNNNNNNNNNNONNNNNNNNNNNNNNNNNNNNNN @h " " drL0  @ @ 6@ <@ F DV@ `@" n@ t@ z@ |@ @ ONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 7NNNNNNNNNNNNNNNNNNNNNNrite X-axis label@Z46?(?zG(?333333 ?  u Define subset of screen area@.Z@%! Draw a box around defined subset@B.J!!%+ Anisotropic scaling: left/right/bottom/top@0BT  d% Points to be NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'NNNNNNNNNNNNNNNNNNNNNNopsSoerce$ FNFide_existsLdestinatiof$FNAskC$XIExitQ$ X_gdu_max Y_gdu_max@ 12K@.ٵ#,K% Clear off old dis>NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN qNNNNNNNNNNNNNNNNNNNNNNplotted...@D0 ^ 8@0&%' Get a data point and plot it against X@ Dh % et cetera@ r% Stay in graphics  |@ ٵ#,K@0 2!You are back in the BASIC System.@0% finisnts to be gNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNplay@@.1Demonstration of vertical/horizontal line labels.@@@(1-------------------------------------------------@ @2@^ < Press the 12SPACEBAR12! to get back to the BASIC System.@ ^F@l PNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN @NNNNNNNNNNNNNNNNNNNNNN&@\PlP|\D0d@ ^@ ;bV;@ d0|J"0>.@ 8@ @0\JFZLvce Knob_sbvce Old_develFNSwapExit]NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNANNNNNNNNNNNNNNNNNNNNNNPress 12Return12 or 12ENTER12 to see the demo.@.lZ % Let the user read the messages@6.d%" Provide for getting back to BASIC@.6nٵ#,K% Clear screen for demo@6.x"z{NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIChangeLevelHere Knob_srvce Old_levelAbortExitFNPround@2 & "BAR_KNOB" Interactive graphics demo@ 2@ Abort@ (@ 2@4 <ٵ"#,B1rNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNrNNNNNNNNNNNNNNNNNNNNNN%( Initialize various graphics parameters.@662INTERNAL#% Use the internal screen@*6% Turn on the graphics screen@B*쐶%+ Determine how many GDUs wide the screen is@DB 쐶%+ Determine how many GDUs hNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNN!K- Clear the screen@ 4F"@ P@ Z@ d@ n!_@2x "!Rotate knob to fill in bar graph.@2!\@* "Press softkey 1 to abort.@*1!1x@1@1H@Y NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN Next one to re-use.@((z ඎ1 End of infinite loopH(: ---------------------------------------------------------@(H1 For each vertex@*( ǿ萶1 Magnitude of this dx@6* ?됶1 SigeNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNbNNNNNNNNNNNNNNNNNNNNNNigh the screen is@8D%( Reference point: center of top of label@V8 ?333333?333333?4% Offset of X from starting point@:V  %& Move to about middle of top of screen@8: Ȼ "VOLTAGE VARIANCE% WriNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-NNNNNNNNNNNNNNNNNNNNNNn of this dx@*6 ǿ萶1 Magnitude of this dy@6* ?b됶1 Sign of this dy@ 61 et cetera@& ʺ1 back to the main program& 1 Clear graphics@( ނٵ#,K1 Clear the screen@8(  NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN QNNNNNNNNNNNNNNNNNNNNNNte title of plot@.8Ҵ % Next position for title@4.ܻ)%' Angular mode is degrees (used in LDIR)@*4!Z% Specify vertical labels@2*(@ % Specify smaller characters@82 %& Move to center of left edge of NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN~NNNNNNNNNNNNNNNNNNNNNN!!You can use the BASIC System now.@81 Finis^S&L|N/-1 et cetera@& ʺ1 back to the main program& 1 Clear graphics@( ނٵ#,K1 Clear the screen@8( 貭NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNscreen@.8 2Voltage% Write Y-axis label@:.%+ Reference point: center of bottom of label@(:% Horizontal labels again@F("?Q %) X: center of screen; Y: above key labels@4F, 2Time (seconds)% W YNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[LJ3 uM%hNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$@   @ ๳@ ?əꐳ@ 1@ 1@ г@Z@  @ &R@ 0@ :A ?$@  D @ N@ X1@ b1@" l(?)NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN  NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%NNNNNNNNNNNNNNNNNNNNNN*@ " v@ 1@  @ @ ?ə萳@ ~@  @ ƅ@ е1Ȋ@ ځ@  2DDD.D Ղղ@ @ 1Ȋ@  2DDD.D Ղղ@  ]NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN :NNNNNNNNNNNNNNNNNNNNNNArrayLetterPointsFLAX@ 12K@ٵ#,K@,Demonstration of use of IPLOT.@.,( --------------------------------@ .2@T <NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN @B  24That's all... The demo is over. Continue your work.@ B*@ 4@>6@vn0Z DJ  F@!F@!0FNProundXY@FNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 5NNNNNNNNNNNNNNNNNNNNNNPress 12Return12 or 12ENTER1@ TF @( P # Make the arrays start at 1@6(ZB# Set aside space for the array@46d"#' Initialize various graphics parameters@64n2INTERNAL#NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN5NNNNNNNNNNNNNNNNNNNNNN H@ R @ \??<( 50% gray: half-and-half@D 8ͻDG@( ܻDG2 Bookshelf@( 9ͻDCG@$ DC2Table@($ <( 100% gray scale: Black@( NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN# Use the internal screen@&6x# Turn on graphics screen@0&!#!!# Isotropic scaling@*0C# Four letters total@.* D# How many points in this letter?@@. uBDwwx#" Adjust the array size accNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNfNNNNNNNNNNNNNNNNNNNNNN @"(Z 4& 4L  P  @ @"@"(@ 6@ <@ F D@ V@ @ `@" n@ @ t@ z@ |@ @ i4NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNSNNNNNNNNNNNNNNNNNNNNNNordingly@2@ Bͤ#" Read the correct number of points@62 C쀻#$ Move to lower-left corner of letter@ 6 BͻDF# Draw letter@ ȴC# et ceteraR E D 10, 0,5,-1, 5,0,-1, 0,-1,-1, -4,0,-1, 0,-1,(ANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNWNNNNNNNNNNNNNNNNNNNNNN@ B@ @ D@ B@ @ B@ P B@ @ @ @ @ @ @ !@ "@ #@  @ %@ &@ ' @ ($@ ).@ 8@ +DBNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN`NNNNNNNNNNNNNNNNNNNNNN-1@PRܼ D 3,0,-1, 0,-1,-1, -3,0,-1, 0,-2,-1, -1,0,-1RPF D 6, 0,5,-1, 1,0,-1, 0,-4,-1, 4,0,-1, 0,-1,-1@R  -5,0,-1RG E 12, 2,5,-1, 1,0,-1, 2,-5,-1, -1,0,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNpNNNNNNNNNNNNNNNNNNNNNN@1ܵH@Y @1܀@ȵ1@ Ҷ@ ܈@ @ 1@  2K,"-"@V@ @ 1Ȋ@ "@ , 2DDD.D@ 6@ @1ܵ!P@&JiNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNiNNNNNNNNNNNNNNNNNNNNNN@ ,NP BXP b@ /Bh@ nP t@ z@ 3@ 4BP @ @ B@ @ D@ B@";P P P P P P "0&NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNCNNNNNNNNNNNNNNNNNNNNNN 2K2 - High Normal@&T1ܵ!<@$^ 2K2 - Low Normal@$h?zG{+ r@ | @ @  @ ^@  @ P@ @ ̌?NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN XNNNNNNNNNNNNNNNNNNNNNN0 H0 0 ~ ide_existsLdestinatiof$FNAskC$Q$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNPNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNLNNNNNNNNNNNNNNNNNNNNZƇ2 uN&jNNNNNNNNNNNNNNNNNNNNNNNNNNN5ENNNNNNNNNNNNNNNNNNNNNN2.5,-1,1.9,-2.5,-1, -1,0,-1, -1.5,2,-1@&P,  -1.5,-2,-1, -1,0,-1@<&62-Program returns to BASIC System in 4 seconds.@ <@#@ J@$ T2You can use BASIC now.@$^# Finis 1,0,-1, -1.9,-NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN( Plot the dataJ" 5 < X Y Pen | X Y Pen | X Y Pen | X Y Pen@PJȼ  0, 0, 11 ($ Start of polygon with FILL and EDGE@TPҼ < 1.5, 1, -2, 2.5, 2, -1, 2.5, 3, -1, 1.5, 4, -1 G Octagon NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN`NNNNNNNNNNNNNNNNNNNNNN @h@N ~ < ~@"@ LP  @ @"@"(@ 6@ <@ F D@ V@ @ `@" n@ @ t@ z@ |@ @ nNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN@FTܼ : -1.5, 4, -1, -2.5, 3, -1, -2.5, 2, -1, -1.5, 1, -1@@F  0, 0, 7 ( End of first polygon@F@  0, 0, 6 ( Start of polygon with FILL@PF < -2.5, 1, -2, 2.5, 1, -1, 2.5, -2, -NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNS'NNNNNNNNNNNNNNNNNNNNNN@ B@ @ D@ B@ @ B@ P B@ @ @ @ @ @ @ !@ "@ #@  @ %@ &@ ' @ ($@ ).@ 8@ +DBNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ڎNNNNNNNNNNNNNNNNNNNNNN1, -2.5, -2, -1 G Box@P -2.5, 1, -1@B  0, 0, 7 ( End of second polygon@TB < -2.5, -2, -2, -4.5, -4, -1, -2.5, 0, -1, -5, -4, -2 G Left Leg@T" -4, -4, -1@T, < 2.5, -2, -2, 4.5 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNʰNNNNNNNNNNNNNNNNNNNNNN@ ,NP BXP b@ /Bh@ nP t@ z"@ 4B0 oerce$ FNFide_existsLdestinatiof$FNAskNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN CNNNNNNNNNNNNNNNNNNNNNN, -4, -1, 2.5, 0, -1, 5, -4, -2 G Rt. leg@T6 4, -4, -1@F@  0, 0, 10 ( Start of polygon with EDGE@RFJ < -0.5, -2, -2, -1, -3, -1, 1, -3, -1, 0.5, -2, -1 G Nozzle@@RT  0, 0, 7 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN p(NNNNNNNNNNNNNNNNNNNNNN ( End of third polygon@ @^#@ h@ rٵ#,K6@<|2.The program has ended. You can use BASIC now.@ <! -2, -2, -1, -3, -1, 1, -3, -1, 0.5, -2, -1 G Nozzle@@RT  0, 0, 7 fNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNLemLemC$Q$@ 612K@(ٵ#,K6( Clear the screen@<(.Demonstration of drawing a Lunar lander (Lem).@<<(.================================,JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%{NNNNNNNNNNNNNNNNNNNNNNN@0v<F:0l DF 0V PF F 4F F *F 0B >!F \F f@ refStar Position DirectiofDiameteRadiusUsedNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN==============@ <2@* <The display lasts 3 seconds.@$*FPress Return or ENTER@ $P 7@ Zٵ#,K6@"d ( Arrays start at one@2"n3!( Data and pen-control array@$2x3ͤ( Define the LEM data NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNJNNNNNNNNNNNNNNNNNNNNNNPenStarPosition DirectionDiameterStars Circles_in Circles_out Selection Max_radius@  "@ "INTERNALI@! ! ! ! @ (@ 2@ < @ F @ P @~NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNtNNNNNNNNNNNNNNNNNNNNNN-1, -.4,1,-1@PR D -2.2,0,-1, -.4,-1,-1, -1,0,-1, 1.8,2,-2, .7,2,-1@(P  .7,-2,-1, -1.4,0,-1R(H E 12, 1.9,2.5,-1, -1.9,2.5,-1, 1,0,-1, 1.5,-2,-1, 1.5,2,-1@PR" E 1,0,-1, -1.9,-؀NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN@4$"(' Initialize various graphics parameters@642INTERNAL#( Use the internal screen@&6늊늻( Isotropic scaling@*&( Turn on the graphics screen@6*8?8?8?<( 12.5% gray@"63ͻDENNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[LJ2 vM%hNNNNNNNNNNNNNNNNNNNNNNNNNNNN sNNNNNNNNNNNNNNNNNNNNNN Z!M@ d!L@ nM@ xꀀM@ @ M@L>--------------------------------------------------------------@L!@ @  @ H@ һDNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN wNNNNNNNNNNNNNNNNNNNNNNixels)G130 ALLOCATE Hi$[Y_pixels],Lo$[Y_pixels] ! High- and low-order byteslF140 ALLOCATE INTEGER Screen(Y_pixels,Words_per_row) ! Screen arrayH150 Pad$=RPT$(CHR$(0),45) ! 45 nulls centers the image?160 GSTORE Screen(*) ENNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN BNNNNNNNNNNNNNNNNNNNNNNB>@  萳@ !@ (?fffffg쐳@?ڳ@ J =-------------------------------------------------------------@J!@"!@ , @ 6H@ @DB>@  Jꐳ@`NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN DNNNNNNNNNNNNNNNNNNNNNN ! Store the picturetP170 Esc$=CHR$(27)&"K"&CHR$((Y_pixels+45) MOD 256)&CHR$((Y_pixels+45) DIV 256)L180 OUTPUT Dev_selector USING "K";CHR$(27)&"A"&CHR$(8) ! 1 line=8/72 inchN190 FOR Column=1 TO Words_per_row ! For every 16-NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN T!@ ^(?fffffg쐳@h?Ƴ@ rP |B -----------------------------------------------------------------@P %g@ ΀{y@ )@ !20@   @ 8@v`NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN-bit swath across...I200 FOR Row=Y_pixels TO 1 STEP -1 ! and for every pixel down...sP210 Element=Screen(Row,Column) ! get the appropriate array element,M220 Char=Y_pixels-Row+1 ! determine the string subscriptіNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN  NNNNNNNNNNNNNNNNNNNNNN@  ܳ@   ǁ@ 쐳@ !萳@  萳@   @ @  @ H@  @  & @ 0г@ :D?tzG{숻B>@ D@ N8?쐳@  X萳NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN "NNNNNNNNNNNNNNNNNNNNNN,nL230 Hi$[Char]=CHR$(INT(Element/256)) ! fill up the high-order byte...E240 Lo$[Char]=CHR$(Element MOD 256) ! and the low-order byte.b250 NEXT Rowa4260 OUTPUT Dev_selector USING "K";Esc$&Pad$&Hi$4270 OUTPUT Dev_selector&NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 2NNNNNNNNNNNNNNNNNNNNNN@ b!@ l!T@vҳ@ @ h  @ @  @ H@  @  & @ 0г@ :D?tzG{숻B>@ D@ N8?쐳@  X萳ibNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN USING "K";Esc$&Pad$&Lo$280 NEXT ColumnN290 OUTPUT Dev_selector USING "K";CHR$(27)&"A"&CHR$(12) ! 1 line=12/72 inch 300 SUBEND der byte.b250 NEXT Rowa4260 OUTPUT Dev_selector USING "K";Esc$&Pad$&Hi$4270 OUTPUT Dev_selectoriNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNN>10 Dump_graphics: SUB Dump_graphics(OPTIONAL Dev_selector_)?20 OPTION BASE 1 ! Arrays start at 1 P30 INTEGER Y_pixels,Row,Column,Element,Char,Return_array(6) ! Speed it up...C40 DIM Pad$[45] NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN /NNNNNNNNNNNNNNNNNNNNNNP10 ! ************************************************************************F20 Contour: SUB Contour(Sfc(*),Min,Max,Interval,Extremes,Stats,Crt)P30 !------------------------------------------------------------------------!P40 ! NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN TNNNNNNNNNNNNNNNNNNNNNN ! Padding for centeringpI50 IF NPAR=1 THEN ! Is output device specified?t<60 Dev_selector=Dev_selector_ ! If so, use it.870 ELSE ! Otherwise,<80 Dev_selector=701 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN |NNNNNNNNNNNNNNNNNNNNNN Copyright 1983, Hewlett-Packard Company !P50 ! All Rights Reserved !P60 ! !P70 ! This subprogram pnNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN gNNNNNNNNNNNNNNNNNNNNNN ! Default to 701 90 END IFsA100 GESCAPE CRT,3;Return_array(*) ! Get the screen sizeeH110 Words_per_row=Return_array(5) ! Width of screen (in words)J120 Y_pixels=Return_array(6) ! Height of screen (in pGNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN MNNNNNNNNNNNNNNNNNNNNNNlots a contour map of the array Sfc(*), and !P80 ! optionally plots local minima, maxima, and statistics. !P90 ! !P100 ! Sfc(*): This is the two-XNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZŇ0sߎK#iNNNNNNNNNNNNNNNNNNNNNNNNNNN!PNNNNNNNNNNNNNNNNNNNNNN-----------------------------------------------------!330 INTEGER I,J,Imax,Jmax-340 IF Crt THEN 350 GINITT360 GRAPHICS ONm370 ALPHA OFFO 380 END IF390 Imax=SIZE(Sfc,1)400 Jmax=SIZE(Sfc,2)410 IF Stats THEN /420 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!NNNNNNNNNNNNNNNNNNNNNN(not Bottom)P740 IF Left THEN ! Top and Left..............................E750 Ileft=I+(Cont-Sfc(I,J))/(Sfc(I+1,J)-Sfc(I,J)).#760 MOVE Jtop,In$770 DRAW J,IleftP780 AANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!NNNNNNNNNNNNNNNNNNNNNNdimensional real array containing the !P110 ! data to be plotted. It need not be square. !P120 ! Min & Max: These are the lowest and highest levels, respectively, !P130 ! of the contour lines. TheNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!nNNNNNNNNNNNNNNNNNNNNNNCALL Gdu(X_gdu_max,Y_gdu_max,Xmid,Ymid)-m430 CALL Label(3,.6,0,5,1,Xmid,.04*Y_gdu_max,"Array has "&VAL$(Imax)&" rows and "&VAL$(Jmax)&" columns.")440 CALL Label(3,.6,0,5,1,Xmid,.02*Y_gdu_max,"Minimum: "&VAL$(Min)&"; Maximum: "&VAL$(Max)&"; Cof{NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!NNNNNNNNNNNNNNNNNNNNNNse allow you to specify the !P140 ! exact range within which you want contours. Every !P150 ! contour line outside of this range will not be plotted. !P160 ! Interval: This specifies how far apart the conNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN! 2_NNNNNNNNNNNNNNNNNNNNNNntour interval: "&VAL$(Interval)&".")4450 VIEWPORT 0,X_gdu_max,.06*Y_gdu_max,Y_gdu_max 460 END IF470 Show(1,(Jmax),(Imax),1).480 CLIP 1,Jmax,Imax,1490 AXES 1,1,1,1,1,1,1500 AXES 1,1,Jmax,Imax,1,1,1510 Northeast=0 ! \8520 wNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!NNNNNNNNNNNNNNNNNNNNNNtour lines have to !P170 ! be (in value, not in distance). The smaller the inter- !P180 ! val, the denser the contour plot. !P190 ! Extremes: This is a logical variable which specifies whe>DNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN! g NNNNNNNNNNNNNNNNNNNNNNNorthwest=0 ! > Figure what to do for case 4.530 Cross=1 ! /540 FOR I=1 TO Imax-1/550 FOR J=1 TO Jmax-1 >560 Big=MAX(Sfc(I,J),Sfc(I,J+1),Sfc(I+1,J),Sfc(I+1,J+1))@570 Small=MIN(Sfc(I,J),Sfc(I,J+1),Sfc(I+1,J),Sfc(I+1,J6NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN!ݔNNNNNNNNNNNNNNNNNNNNNNther or !P200 ! not to label local maxima and minima. A local maximum !P210 ! is a point whose value is larger that its eight !P220 ! neighbors immediately to the west, northwest, north, =~NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN! T=NNNNNNNNNNNNNNNNNNNNNN+1))+580 FOR Cont=Min TO Max STEP Interval(,590 IF Cont>Small AND ContMIN(Sfc(I,J),Sfc(I,J+1)) AND ContMIN(Sfc(I+1,J),Sfc(I+1,J+1)) AND ContMIN(Sfc(I,J),Sfc(I+1,J)) AND ContMIN(Sfc(I,J+1),Sfc(I+1,J+1)) AND Cont0 THEN 1320 Pen=4e1330 ImageNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"uyNNNNNNNNNNNNNNNNNNNNNNom and Left...........................E880 Ileft=I+(Cont-Sfc(I,J))/(Sfc(I+1,J)-Sfc(I,J)).$890 MOVE J,Ileft(900 DRAW Jbottom,I+1P910 ELSE ! Not left, therefore Bottom and RigNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN" NNNNNNNNNNNNNNNNNNNNNNe$="K"1340 FOR I=2 TO Imax-1 1350 FOR J=2 TO Jmax-1 :1360 Point=Sfc(I,J) ! (The point we're working on)t1370 Min=MIN(Sfc(I-1,J-1),Sfc(I-1,J),Sfc(I-1,J+1),Sfc(I,J-1),Sfc(I,J+1),Sfc(I+1,J-1),Sfc(I+1,J),Sfc(I+1,J+1))t1380 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"FHNNNNNNNNNNNNNNNNNNNNNNht..............L920 Iright=I+(Cont-Sfc(I,J+1))/(Sfc(I+1,J+1)-Sfc(I,J+1))(930 MOVE Jbottom,I+1'940 DRAW J+1,Iright1)950 END IF ! (if left)cP960 ELSE ! Not :NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN" NNNNNNNNNNNNNNNNNNNNNNMax=MAX(Sfc(I-1,J-1),Sfc(I-1,J),Sfc(I-1,J+1),Sfc(I,J-1),Sfc(I,J+1),Sfc(I+1,J-1),Sfc(I+1,J),Sfc(I+1,J+1))+1390 IF Point>Max OR PointMax THEN 41420 CAnNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNBottom, therefore Left and Right................C970 Ileft=I+(Cont-Sfc(I,J))/(Sfc(I+1,J)-Sfc(I,J)).J980 Iright=I+(Cont-Sfc(I,J+1))/(Sfc(I+1,J+1)-Sfc(I,J+1))"990 MOVE J,Ileft%1000 DRNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN" VvNNNNNNNNNNNNNNNNNNNNNNLL Label(3,.6,0,5,Pen,(J),(I),"H")1430 ELSE41440 CALL Label(3,.6,0,5,Pen,(J),(I),"L")1450 END IF!1460 IF Extremes>1 THEN ,J1470 CALL Label(3,.6,0,5,Pen,J,I+.2,"") ! No label, just setup(1480 sdNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNAW J+1,IrightS)1010 END IF ! (if bottom)I$1020 END IF ! (if top)P1030 CASE 4 ! Four intersections....................................>1040 Jtop=J+(Cont-Sfc(I,J))/(Sfc(I,J+1)-Sfc(I,J))G1050 vNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN" eGNNNNNNNNNNNNNNNNNNNNNN LABEL USING Image$;Point1490 END IF1500 END IF1510 NEXT J1520 NEXT I1530 END IF ! (if Stats)1540 End: CALL Pause(1) 1550 SUBEND CALL Label(3,.6,0,5,Pen,J,I+.2,"") ! No label, just setup(1480 u.NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"3xNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNXć0tL%iNNNNNNNNNNNNNNNNNNNNNNNNNNN#ZNNNNNNNNNNNNNNNNNNNNNNG{$l@m?zG{쐳@n4@v@Zꐳ@@ @p@$2K,D.DDD2Hue: @ $@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN# NNNNNNNNNNNNNNNNNNNNNN0B @ ,P B8@ D0BN@ XP B`@ h@ t@ x@ |@ @ a@ @ @ @ 0:" !@ 0!@8"@"L".dUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN# NNNNNNNNNNNNNNNNNNNNNN{$l@m?zG{쐳@n4@v@Zꐳ@@ @p@$2K,D.DDD2Hue: @ $@ |NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#FNNNNNNNNNNNNNNNNNNNNNN"p0RLdestinatiof$FNAskGeessageBPABIOldCmapExitQ$+NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#8NNNNNNNNNNNNNNNNNNNNNN @ Z R0"0E" ""| 008Z@ <@ F D@ V@ @ `@" n@ t@ z@ |@ @ 2NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#uNNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#eNNNNNNNNNNNNNNNNNNNNNN@  @4  @"4!!!!! !!!@ "(ͤ@ 2  1,1,1@<!@F!@P!@.Zuwwxwwx@.d΀{y@n΀{y@xmNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#NNNNNNNNNNNNNNNNNNNNNN@ B@ @ D@ B@ @ B@ P B@ @ @ @ @ @ @ !@ "@ #@  @ %@ &@ ' @ ($@ ).@ 8@ +DBNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#VNNNNNNNNNNNNNNNNNNNNNN퐳@ 퐳@ 퐳@<0 PRINT USING 160;Thickness,Mid,Frac,Max_distance@L< A "Thickness: ",K,", Mid: ",K,", Frac: ",K,", Max_distance: ",K@ L@ :@ 쐳@ȶ PRINT^NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN# 7NNNNNNNNNNNNNNNNNNNNNN@ ,NP BXP b@ /Bh@ nP t@ z@ 3@ 4BP @ @ B@ @ D@ B@";P P P P P P @ B@ C@ DP _NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#NNNNNNNNNNNNNNNNNNNNNN Fraction@ @ ȁ@  @̳@.# PRINT USING "3(D.DD,2X),/";Mask(*)@6.* PRINT USING "3(D.DD,2X),/";Color_array(*)@6ͻL@ "@ "2INTERNALI@,@ 6@ @LgNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN# dNNNNNNNNNNNNNNNNNNNNNNP P P  @ I @ JB@ K@  @ M.8@ O<@ PB@ QR\@ Sb@ Td@ Up@ Vt@ Wx@ @ Y@ Z@ [@"\B@ ]@ @ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#0NNNNNNNNNNNNNNNNNNNNNN@ J@ T!(г@ ^萳@ hb@ rȻL@ |z@ L@ @  H@" D?!(B>@" ?zG{$@@‹?zG{$@ ꐳ6NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN# UNNNNNNNNNNNNNNNNNNNNNNB@ @ DP P P P @ @ @ @ i@"jB@ k@ lB@  @ D@ o@ p"@ q.P B2@ s6P B<@ uB@ vBF@ wL@"xBHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#kNNNNNNNNNNNNNNNNNNNNNN@ ?+@  @ !Գ@ ͻL@ ³@ @!萳@&?PbM@0ȻL@ :b@ D@ N,@X@b?z[NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#  NNNNNNNNNNNNNNNNNNNNNNR@"y`@"Dj@ BZ@ |t@ }x@ ~@ @ @!T@ @"@ @ @!@"y@ @ @ @!"RX@ sB"$@ B@ @ D@ .NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN#ENNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMNNNNNNNNNNNNNNNNNNNNZƇ2 uM%iNNNNNNNNNNNNNNNNNNNNNNNNNNN$FNNNNNNNNNNNNNNNNNNNNNN2K@ @* * Arrays start at 1 by default@.*d   @4.d)* How to connect the points?@<4(ddgdg0 Faster than calculation@F<2d d -NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$ qNNNNNNNNNNNNNNNNNNNNNN. 4th col.) to be one@<: ~*$ Nine points: eight vertices, center@<  dȣ dȣ dȤ@  D* et cetera@4 dͤ*$ How to proceed from point to point?@4ͣͤ@ͻM@&* Turn on graphics screenyNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$wNNNNNNNNNNNNNNNNNNNNNNd d d @F< @"F !* Speed up plotting@,"P)* So trig arrays are in degrees@,Zd* Set up program@:d?+d* Change angle from top (phi)@::ndλ|y*& \ Both transfoNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$ BNNNNNNNNNNNNNNNNNNNNNN@:&ƀdǀ*" If trig arrays undefined, define.@8:  1g* Not 1 to 360, because of MODs@68  d *# \ Array fetches are substantially@86  d *% / faster than SIN or COS evaluation@"8  f* and so foNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$$NNNNNNNNNNNNNNNNNNNNNNrmation matrices start@6:xdλ|y*# / start out as identity matrices.@6 * forever@ 萳@  @ H@ dRdǐ* \@4 dRd됶* \ Rotate the cube around the@"4 dRdǐ* / Y-axis.@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNNNNNNNNNNNNNNNNNNrth@"@2R*% \ Looking toward the cube at origin@"2 N* / from the +y axis"  @J  . -1,-2,-3, 1,-2,-3, 1,2,-3, -1,2,-3 : bottom face@FJ* . -1,-2,3, 1,-2,3, 1,2,3, -1,2,3 : top face@JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNNNNNNNNNNNNNNNNNN" ȃdRdǐ* /@ ҂dNdǐ* \@4 ܂dNd됶* \ Rotate the cube around the@"4 惂dNdǐ* / X-axis.@" dNdǐ* /@: dddλy* Concatenate the transformations@: dλzy@0 dddλy1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$$NNNNNNNNNNNNNNNNNNNNNNF4 . 0,0,0 : center point>J>0 First column: next point; Second column: Draw?@P>H D 1,-2, 2,-1, 3,-1, 4,-1, 1,-1, 5,-1, 6,-1, 7,-1, 8,-1, 5,-1, 9,-1,@0PR % 2,-2, 6,-1, 3,-2, 7,-1, 4,-2,=JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$4NNNNNNNNNNNNNNNNNNNNNNPhiTheta5NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$+NNNNNNNNNNNNNNNNNNNNNN Modify the data array@60 2Phi:N* How many degrees from vertical@:6 "RR1h*# Cause cube to be rotated next time@ : ,@ 6J@ @ !곎@ Jd dȐ@ Tdddd dȻ&@ ^ @ hNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$ NNNNNNNNNNNNNNNNNNNNNN@ rͻM@ |,@ ͻM@ @ @ J@  !@ d dȐ@ dd dȻ&@ ̴ b@,ֻX* End of rotate/draw loopL,> -----------------------------cNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$RNNNNNNNNNNNNNNNNNNNNNNTransformation Connectivity InitializeKnob_isr Connectivity MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$ INNNNNNNNNNNNNNNNNNNNNN--------------------------------@6LNN1h* Update phi according to knob@06N|NN1h萶* Ensure positiveness@*0* Go back, young man, go back!J*< -----------------------------------------------------------@ J{3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$aNNNNNNNNNNNNNNNNNNNNNNaster_cubeTrigSineCosineCubeOld_cubeTemp1Temp2PointCube@ ٵ#,K12K@. Press SPACEBAR to exit program.@ .@& Press ENTER to continue.@ & @ ٵ#,K1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$ xNNNNNNNNNNNNNNNNNNNNNN@0 "*# Set up various graphics parameters@0&2INTERNALI@0늊늻@ :@ D$@ N@$ X?ə?ə%@$bJ@$l녅녻* Isotropic units@:$vd΁{y*% Make array (esphNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNBNNNNNNNNNNNNNNNNNNNNYć0tM&iNNNNNNNNNNNNNNNNNNNNNNNNNNN%eNNNNNNNNNNNNNNNNNNNNNNP@dhNhEEEE "" xE("`<*"H$0"00:@"<<@HF0 `JN"ltLV0vl@ گNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN% NNNNNNNNNNNNNNNNNNNNNN@ R@ @ @ @ M@@ &@ 0΁{y*\@:ͻM* \@&D΀{y* > Pens for labels@&NͻM* /@XͻM*/@ b@( lͻK* ReaNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%NNNNNNNNNNNNNNNNNNNNNN@ 0002@ 0d@ 00@ natCyan$IRedGreenBlueAdditive SubtractiveJPoint New_pointUnitBlack$Green$White$ Pen_image2SurpriseSurpriseHueNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN% [NNNNNNNNNNNNNNNNNNNNNNd additive palette@ (v@4 ٵ2#,B1!K* Clear the screen@ 4@N C************** Create the Subtractive Palette *********************@ NB  4 A,"Pen ",D,XX,D,X,D,X,D,55X,A,"Pen ",D,XX,D,X,D,X,D@FBSNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%NNNNNNNNNNNNNNNNNNNNNNDummyAdditive Subtractive Surprise2All_doneHere@N B "CIRCLES" to demonstrate non-dominant writing to the frame buffer@0N$ and some color map tricks@ 0@, (-NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN% 4jNNNNNNNNNNNNNNNNNNNNNN: IMAGE for printing pens to screen; B's simulate CHR$ for@LF@ selecting printing colors that appear only in their own display@ Lƶ@2  ΁{y* Define unit vector for RGB to@2*ڶ* CMY conversion@ *䶎*@4 !INNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%NNNNNNNNNNNNNNNNNNNNNN@,,2 @ ,<@. F* Turn off the graphics and alpha@,.P* screens to prevent "flashing"@ ,Z)@ d@* n"* Defaults for graphics system@*xNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%a9NNNNNNNNNNNNNNNNNNNNNN >* Create subtractive palette@4  t@6 Ȑ*# Read a point from additive palette@6   ,@  λy@   @L * @ The next line prints out PEN INTENSITY values for both palettes@:L 4  =NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%ۡNNNNNNNNNNNNNNNNNNNNNN2INTERNALI@(J* Set non-dominant mode@ (@  1*\@.1* > For changing text colors@. 1*/@ @ 낂낻@ ȶ@P ҶD************** Create the Surprise Palette *******3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%RNNNNNNNNNNNNNNNNNNNNNNȣȣȣ ȣȣȤ@: >ͻM*@H @ R@ \ * Restore green text@ f@ p΁{y*\@*zͻM* \ Create pens for labels@*΀{y* /@ͻM*/@ @* ͙NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%B6NNNNNNNNNNNNNNNNNNNNNN 8,-10 \ @Bf 6 0,1,0, 0,0,0, 0,1,0, .3,.3,.3, 0,1,0, .3,.3,.3, 0,1,0@BBp 7 0,0,1, 0,1,0, 0,0,1, 0,1,0, 0,0,1, 0,1,0, 0,0,1, 0,1,0@BBz 6 0,0,0, 0,1,0, 0,1,0, .3,.3,.3, .3,.3,.3, 0,1,0, 0,1,0@BB 7 0,0,1, 0,0,1, 0,1,0, 0,1,0,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%˟NNNNNNNNNNNNNNNNNNNNNN******************@ Pܶ@@ 怵?333333?333333?333333M* Gray background@2@*" Make sure you read the right data(2 DATA for surprise palette@"( .9  Pen 1@"" .2  Pen 2@"~NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%qNNNNNNNNNNNNNNNNNNNNNN 0,0,1, 0,0,1, 0,1,0, 0,1,0@*B* Go back, young man, go back! * @< 2.You are returned to the BASIC language system.@<* Finis  hhD @h @h    RNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN% NNNNNNNNNNNNNNNNNNNNNN" .5  Pen 3@""" .7  Pen 4@"", .1  Pen 5@""6 .8  Pen 6@""@ .3  Pen 7@ "J@ T泎@  ^@ hL@r@ |{jNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%$TNNNNNNNNNNNNNNNNNNNNNN  back, young man, go back! * @< 2.You are returned to the BASIC language system.@<* Finis  hhD @h @h    NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN% NNNNNNNNNNNNNNNNNNNNNN@ ε?333333{y*\@ͻM* \@$ͻM* > Pens for labels@$΀{y* /@ͻM*/@ @ ƒͻK@ ̶@P ֶD******************* Create the Additive Palette ********************@ Pඎ5NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN%bUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ2 uM%hNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNNNNNNNNNNNNNNH* /@`DB>*/@ j@. t * Restore coordinate orientation@.~*\@1 * \@*?* > Third circle@*H* /@DB>*/@ @& * Label Origin is cenܽNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN& 6!NNNNNNNNNNNNNNNNNNNNNN@ ,NP BXP b@ /Bh@ nP t@ z@ 3@ 4BP @ @ B@ @ D@ B@";P P P P P P @ B@ C@ DP _NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNNNNNNNNNNNNNNter@H&?tzG{?tzG{?tzG{x* Make bolded labels@H ΀(?fffffg@$ ؊* Visible in Surprise@B$  BKB)------< These Pens are all wrong! >------@$B 숻* Visible in additive@.$  BKNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN& NNNNNNNNNNNNNNNNNNNNNNP P P  " "x " .8<BR\bdptxide_existsLdestinatiof$FNAskC$XIQzNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&.NNNNNNNNNNNNNNNNNNNNNNBAdditive Color Circles@&. * Visible in subtractive@2&   BKBSubtractive Color Circles@2>@ @N (C****************** Set up the Control Structure *******************@N2@ <BMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN& NNNNNNNNNNNNNNNNNNNNNN$YDxyNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&&NNNNNNNNNNNNNNNNNNNNNN @F泎@PAdditive@"Z Subtractive@"dSurprise@nQuit@ x @ @H <*************** ON KEY destinations ************************NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN& NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&sLNNNNNNNNNNNNNNNNNNNNNN@ H @ͻM@ @ ȶ @܀ͻM@ @  @ͻM@ @  "@ , 6@< @B.You are returned to the BASIC language syste First circle@*H* /@DB>*/@ $@. . * Restore coordinate orientation@.8*\@B1 * \@*L?* > Second circle@*VNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN& crNNNNNNNNNNNNNNNNNNNNNN@ B@ @ D@ B8@ B@ P B@ @ @ @ @ @ @ !@ "@ #@  @ %@ &@ ' @ ($@ ).@ 8@ +Dc%NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN&NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNWÇ/rݎIcNNNNNNNNNNNNNNNNNNNNNNNNNNN'oNNNNNNNNNNNNNNNNNNNNNNault@T4H Draw sunrise-----------------------------------------------------------@*TL!1 Diameter of outer layer@**M1 Shrinkage of each brightness@$*111 Center of sun@>$ !큁! 1 All non-blaeNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN' NNNNNNNNNNNNNNNNNNNNNNR!ꐶ1 Bird's tilt@2$ NS萶1 Radius of arcs of birds' wings@<2 XT1!ZNR萶1 Direction of left arc's center@2< bU ST萶1 Center of left wing's arc (X)@22 lVST萶1 Center of left wing's arc (Y)@*2 v 1 UNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN' <1 Define dithered gray shade@2, ܻDL!! M!B>< Draw sun@"2洎 1 and so forth@T"H Draw horizon-----------------------------------------------------------@0TIȀ1 \ Lower lefXNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN' @NNNNNNNNNNNNNNNNNNNNNNnrotated coords for MOVE@"* UV1 Left arc's center@6" R!ZN 1 Rotated coords for POLYLINE@06 S! but don't include first@44 T1 / and last points (corners).@T4H Draw clouds----------------------------------f@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN' NNNNNNNNNNNNNNNNNNNNNNd the trunk@,. Jȵ?됶1 / of the tree@,*Jȁ1 /@4 ! "1 \@ > Jȵ! 됶1 \@2 H J 퐶1 \ Define programmatically@B2 R J Jȵ?퐶1 / the branches of the trees@B JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'NNNNNNNNNNNNNNNNNNNNNN--------------------------@0T낵!!1 Anisotropic scaling@:0(?(?(?<1 25% gray shade@$: ,1 10 ellipses@4$ ̿?陙1 Random position@84 ֻD?陙B>1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'QNNNNNNNNNNNNNNNNNNNNNN\ J Jȁ萶1 /@f ^1 /@<p ! !1 \ The right half of the tree@8< z Jȵ! J됶1 \ (and thus the tree array,)@88  Jȵ! JȐ1 / is the mirror image of the@$8 ^1 / left half.@ X%NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'6NNNNNNNNNNNNNNNNNNNNNN random size, fill it@"8എ 1 and so forth@2"ꀵ111 Back to 1 UDU = 1 pixel@T2H Draw birds-------------------------------------------------------------@$T)1 Angular mode: Degrees@,$N!F1 Arc subtendedUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'`NNNNNNNNNNNNNNNNNNNNNN$11 Starting value@.  궎1 For a few iterations...@@.  11 No. of trees dependent upon Y@&@ V!쐶1 Random variation@6& 1V!1 Bottom of center of tree@B6 Z1V?NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'^NNNNNNNNNNNNNNNNNNNNNN1 For PLOT, RPLOT@,@n"1 Initialize graphics parameters@6,x2INTERNAL#1 Use the internal screen@&61 Turn on graphics screen@*&111 1 UDU = 1 pixel@4*Ao4T1 "Looks better" than defNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'&NNNNNNNNNNNNNNNNNNNNNN by each wing@(,O1 Ten birds enough@4( P1h쐶1 Bird's direction from 100,300@44 &Q!F쐶1 Bird's distance from 100,300@,4 0 QP萶1 Bird's actual X position@0, :1,QP萶1 Bird's actual Y position@$0 DNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN'=NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[ȇ3 vM&iNNNNNNNNNNNNNNNNNNNNNNNNNNN({NNNNNNNNNNNNNNNNNNNNNN쐶1 Size of tree dependent upon Y@.B KJZy1 Scale tree appropriately@*. KͻDBG1 FILL, but don't EDGE@"* 贎 1 and so forth@0" ?陙쐶1 Go lower on the screen@"01 for a while...@ "#NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(HNNNNNNNNNNNNNNNNNNNNNN@ @P 2AEnd of scenery demo. You have been returned to the BASIC System.@P$1 Finis@ and so forth@0" ?陙쐶1 Go lower on the screen@"01 for a while...@ "#NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN( (NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(NNNNNNNNNNNNNNNNNNNNNN%x@$  0 L_ A"@"=@"@"(@ 6@ <@ F D@ V@ @ `@" n@ t@ z@ |@ @ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN( {NNNNNNNNNNNNNNNNNNNNNN"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(.NNNNNNNNNNNNNNNNNNNNNN@ B@ @ D@ B@ @ B@ P B@ @ @ @ @ @ @ !@ "@ #@  @ %@ &@ ' @ ($@ ).@ 8@ +DBNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN( JNNNNNNNNNNNNNNNNNNNNNNDataTitle$Legends$PiecesMult Pie_chart@ 12K@ٵ#,K@2$Demonstration of drawing pie chart*NNNNNNNNNNNNNNNNNNNNNNs.@22($------------------------------------@ 22@T <Press 12Return12 or 12ENTER1@ TF @ P 4 Arrays start at 1@D ZdwdxDdD4 Pie data, 2 titles, labyNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(ENNNNNNNNNNNNNNNNNNNNNNP P P  @ I @ JB@ K@  @ M.@ N8@ O<@ PB@ QR@ \@ Sb@ Td@ Up@ Vt@ Wx@ @ Y@ Z@ [@"\B@ ]@ @ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(  NNNNNNNNNNNNNNNNNNNNNNels@8Ddٵ"#,B,K12K4 Clear the screen@&8nd4 A good average number@<&xudwdwxddwx4 Adjust array sizes@<d4 \@. d 4 \ Make some random@.. dwǿd쐶4 \ dNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(NNNNNNNNNNNNNNNNNNNNNNB@ @ DP P P P @ @ @ @ i@"jB@ k@ lB@  @ D@ o@ p"@ q.P B2@ s6P B<@ uB@ vBF!dL!$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(XNNNNNNNNNNNNNNNNNNNNNNata for the pie-@>. ?333333 D dw dw됶4 \ chart routine to@.> dǵ2Legend # 2~@2. ض4 / work on: random data@:2dxǵTest Pie Chart4 / and random-length@8:Ȃdxǵ(This isNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN('NNNNNNNNNNNNNNNNNNNNNNR@"y`@"Dj@ BZ@ |t@ }x@ ~@ @ @!T@ @"@ @ @!!$@! of$FNAskC$IExitNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN(kNNNNNNNNNNNNNNNNNNNNNN the subtitle)4 / labels.@68ddwdxdղ4 Call the pie-chart routine 6#@ @4 2&You have returned to the BASIC System.@44 End of program@TH *******************************************************NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN([NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[LJ2 vN&kNNNNNNNNNNNNNNNNNNNNNNNNNNN)NNNNNNNNNNNNNNNNNNNNNN labels for the pie segments. These !@TTH may be any desired length; the aspect ratios of the labels will !@TTH be reduced accordingly. Readability is the only limiting factor !@TTH determining label length. NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN):NNNNNNNNNNNNNNNNNNNNNNment@*$ > 4 Unrotated coords for MOVE@&* H4 Move to center of pie@$& R ǷJ E Explode?@ $ \ 4 Put the pen down@, f 4 Rotate coords by cum pieces@, p4 Color?@( zH4 Yes, so select a NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN) NNNNNNNNNNNNNNNNNNNNNN****************p@4 `bx h $0B !!D!B" , r4j<bDZJ1VLNTF\>b6BTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)NNNNNNNNNNNNNNNNNNNNNN !@TT¶H-----------------------------------------------------------------------!@*T̼@(@24 Temporary strings@T*ֶH Set up the plotter ----------------------------------------------------@(T%NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)>5NNNNNNNNNNNNNNNNNNNNNNl#.v.|&Ā_chart Pie_chartData Title$Hdegends$end$ Pie_chart Pie_chartDataTitle$Legends$Image$Legend$PiecesColorIExplodeMaxNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN) NNNNNNNNNNNNNNNNNNNNNN"4 Initialize graphics params@.(΁4 How many elements in data?@B.2CRT ID2C 4 Does the CRT support color?@ B |4 If so, then...@: 2INTERNALI4 Specify color-mapped device@4:   Z)NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)kfNNNNNNNNNNNNNNNNNNNNNNlenTotal X_gdu_max Y_gdu_maxLabelRadius Cum_angle Rect_ratioPiece New_angle Mid_angleEdge Asp_ratioChunkPchunk@TH-----------------------------------------------------------------------!@TT"H This is a r|HNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN) NNNNNNNNNNNNNNNNNNNNNN4 \ Define the color map to@<4  ?333333L4 > have colors equidistant@0< & 4 / around the color wheel.@"00  (not color CRT)@," :2INTERNAL#4 Monochrome CRT@,D (color?)@&N4 Turn on NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)XWNNNNNNNNNNNNNNNNNNNNNNoutine which draws a pie chart. The data is passed !@TT,H through the array Data(*), which is a one-dimensional real array !@TT6H with up to fourteen elements. Fourteen, because a 9836C has 16 !@TT@H entries in the colNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN) NNNNNNNNNNNNNNNNNNNNNN graphics raster@$&X4 Turn off alpha raster@T$bH Extract information from the array-------------------------------------@0Tl 4 Array of "explode" flags@&0v ΀y4 Define the array@*& 4 Initialize max labeNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)NNNNNNNNNNNNNNNNNNNNNNor map and a black and white are always needed. !@TTJH If an entry in Data(*) is negative, that is a flag which specifies !@TTTH that the corresponding pie segment is to be exploded, i.e., pulled !@TT^H out slightly from the NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN) HiNNNNNNNNNNNNNNNNNNNNNNl length@2*  |4 For every piece in the pie@(2   ǿ4 Make pieces positive@.(  ǿ 4 New max label length?@. 4 etc.@,  4 All positive, so take sum@., 쐶4 This is for the lNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)NNNNNNNNNNNNNNNNNNNNNNcenter of the pie. !@TThH Title$(*) is a one-dimensional, two-entry string array whose !@TTrH first element is the main title of the pie chart, and whose second !@TT|H element is the subtitle. NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN) {XNNNNNNNNNNNNNNNNNNNNNNabels@4.쐶4 drawn before the WINDOW@64Ԇյ?333333ՀՆՁ Ձղ@ Main title@@6ԃյ?333333ՀՆՁ յ(?fffffgՂղ@ Subtitle@0@!늊8@'4 Isotropic units@0)4 Set degrees mode@iNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)NNNNNNNNNNNNNNNNNNNNNNEither of these may be blank, if desired. !@TTH Legends$(*) is a one-dimensional string array which is expected !@TTH to have the same number of elements in it as the Data(*) array. !@TTH The individual strings are the}KNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN). NNNNNNNNNNNNNNNNNNNNNN4 Radius of pie@4 Start at zero@2 ?3333334 Box's distance from center@*24 Pie segment char cell size@&* 4 For each piece@*& * 1h쐶4 This piece's angle@$* 4萶4 Middle of segNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN)-gNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNYŇ1sގJ"fNNNNNNNNNNNNNNNNNNNNNNNNNNN*<~NNNNNNNNNNNNNNNNNNNNNN--m%-------- 0LabelLabelCsize Asp_ratioLdirLorgPenXYText$@PD This defines several systems variables (in CSIZE, LDIR, etc.), and@2P' labels the text (if any) accnlNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*NNNNNNNNNNNNNNNNNNNNNN0*B @ ,0NB8@ D0BN@ X0 B`hBt:x|2* d""L0LIExitC$ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*ONNNNNNNNNNNNNNNNNNNNNNordingly.@ 2)@ @ @ @ @ @"  B8 B#,K @ "@ @PD This defines several systems variables (in CSIZE, LDIR, etc.), and@2P' labels the text (if any) acc[NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*NNNNNNNNNNNNNNNNNNNNNNTempPNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*NNNNNNNNNNNNNNNNNNNNNNcolor@( < (not color)@4 퀀<4 Select a dithering density@4  (color?)@8 ?tD1BC>H Piece@<8  (?Q 4 Greater than 3.5% of pie?@$< <4 Black on both CTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*qNNNNNNNNNNNNNNNNNNNNNN$@ P@F@ P0B <@ @"@"(@ 6@ <@ F D@ V@ @ `@" n@ t@ z@ |@ @ 3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*NNNNNNNNNNNNNNNNNNNNNNRTs@8$  ?ꐶ4 Where is edge of segment?@(8  4 Go to middle of segment@<(  (?fffffg 4 Adjust for possible explode@:< ޻D?fffffgBC=9 Black out label area@*: 耻 4 Unrotated coords for MOr NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN* ,@NNNNNNNNNNNNNNNNNNNNNN@ B@ @ D@ B@ @ B@ P B"$@ @ @ @ @ @ !@ "@ #@  @ %@ &@ ' @ ($@ ).@ 8@ +D2NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*NNNNNNNNNNNNNNNNNNNNNNVE@8* (@333333ǿ 9 Asp. ratio for labels@28 !Z14 Right side of pie?@62Ե(@ ՈՁՁǵ ղ@6  (left side)@<Ե(@ 1ՂՁՁյ ղ@ 3.5% of pie?)@$ 8ǂ4 Value of piece@&$ B 쐶4 Percentage of piece@`& LBK,":", ǿ X,/,,2X,K,.DD," (",K,.DD,"%)" Define appropriate IMAGE@>` VǟNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN* J"NNNNNNNNNNNNNNNNNNNNNNP P P  @ I @ JB@ K@  @ M.@ N8@ O<@ PB@ QR<\@ Sb@ Td@ Up@ Vt@ Wx@ @ Y@ Z@ [@"\B@ ]@ @ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*ZNNNNNNNNNNNNNNNNNNNNNN Convert values to string@R> `Ե(@ 333333յ(?ՀՃՁյ!Պ(?ղ8 Plot the label@.R j萶4 Update angle accumulator@ .t4 et cetera@ ~4 arrivederci@TH ***************************LNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN* ӵNNNNNNNNNNNNNNNNNNNNNNB@ @ DP P P P @ @ @ @ i@"jB@ k@ lB@  @ D@ o@ p"@ q.P B2@ s6P B<@ uB@ vBF@ wL@"xBHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*i-NNNNNNNNNNNNNNNNNNNNNN********************************************(2@$NBVJB #.0B  D B D" x( , . Wh0@ @ @ @ --cNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN* NNNNNNNNNNNNNNNNNNNNNNR@"y`@"Dj@ BZ@ |t@ }x@ ~@ @ @!T@ (>@ @ @!@"y@ @ @ @! """P0NBLJD@ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN*NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZŇ1 tM#gNNNNNNNNNNNNNNNNNNNNNNNNNNN+NNNNNNNNNNNNNNNNNNNNNNAR to recenter Lunar lander.@*6P Press ENTER to continue.@*ZExit@ d @: nd 3 d  @":xd)d!d!d!@ "d@ d@ ?zG{+d@ABNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+ 0NNNNNNNNNNNNNNNNNNNNNNar mode.................................................@` d2shear@` ,2 < Start over.................................................@` d3λzy@  d@N л,; Oops...............................bNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+JNNNNNNNNNNNNNNNNNNNNNNd ..L > -------------------------------------------------------------@Ld d@` Ȼе2rotate䶎8 Modify the angle of rotation...........................@` R쐳@ dRdղ@` е2vNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+cNNNNNNNNNNNNNNNNNNNNNN.......................@N ڋ?zG{$@ @ 2Mode: d@ H : ---------------------------------------------------------@ H @ %@  ! @ *d dȐ@ 4ddddȻ@ >d dNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+yNNNNNNNNNNNNNNNNNNNNNNscale(8 Compress/expand LEM in X or Y..........................@` d@, dж! (shift key pressed)@ ,d@ d?萳@*  (shift key not pressed)@*"d?萳@ ,dNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+RNNNNNNNNNNNNNNNNNNNNNNȐ@ HddddȻ@R ³@ \J f< -----------------------------------------------------------@ Jp"@ z@ !!!!@3΁{y@ !@  3ȣ 3Ȥ@ ̳@ @NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+lNNNNNNNNNNNNNNNNNNNNNNSpinLemLemgNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+iNNNNNNNNNNNNNNNNNNNNNN@ 6 (shift pressed?)@ @ddddղ@` Jе2 translate4 Move LEM in X or Y.................................@` Td@, ^d! (shift key pressed)@ ,hd@ rd?됳@* |?NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+]NNNNNNNNNNNNNNNNNNNNNNThetaNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+ ZNNNNNNNNNNNNNNNNNNNNNNl (shift key not pressed)@*d?쐳@ d@ 2Mode:d@  (shift pressed?)@ ddddղ@` е2shearƶ8 Shear the LEM..........................................@` d@,3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+NNNNNNNNNNNNNNNNNNNNNNMode$Transformation Modified_lem ConnectivityMask First_point Last_point Initialize Display_lemUNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+ NNNNNNNNNNNNNNNNNNNNNN dn! (shift key pressed)@ ,d@ d?됳@* 긎 (shift key not pressed)@*d?쐳@ d@  (shift pressed?)@ ddddղ@ @ &ddλy@0dλzm>NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+?NNNNNNNNNNNNNNNNNNNNNNKnob_isrKbd_isr Rotation_2dSxSy Scaling_2dTxTyTranslation_2dShxShy Shearing_2d Connectivity@ 12K@ٵ#,#,K@N@Program demonstrates two-dimensixNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+  -------------------------------------------------------------@LX n@` b,2Rⶎ< Rotation mode..............................................@` ld2rotate@` v,2NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+,NNNNNNNNNNNNNNNNNNNNNNonal movement of a Lunar lander.@XN(JKnob causes movement. Modes are: R=rotate, T=translate, H=shear, S=scale.@@X22Press letter for desired mode. Then, rotate knob.@.@< Press softkey 1 to exit program.@6.F(Press SPACEB$NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+ NNNNNNNNNNNNNNNNNNNNNNSV< Scaling mode...............................................@` d2scale@` ,2Tζ< Translation mode...........................................@` d2 translate@` ,2HB< ShetNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN+NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNLNNNNNNNNNNNNNNNNNNNNNNNNZƇ1 vM%jNNNNNNNNNNNNNNNNNNNNNNNNNNNN,}NNNNNNNNNNNNNNNNNNNNNN@ TH L 0B "D$*rd Rotationg2d Rotatign_2dThetaArraySifeCosin Rotation_2d Rotation_2dThetaArraySineCosine@TH ThisHNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN, ,NNNNNNNNNNNNNNNNNNNNNN@@g_2d Shearing_2dShxShyArray@JҶ? This subprogram takes a 3x3 real array and converts it into a@BJܶ6 shearing matrix for two-dimensional transformations.@Bλ|y@sNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,NNNNNNNNNNNNNNNNNNNNNNN subprogram takes a 3x3 real array and converts it into a rotation@RTG matrix for two-dimensional transformations. The angular mode assumed@FRĶ: for the SIN and COS will be that of the calling context.@ F@ @ λ|ANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN, NNNNNNNNNNNNNNNNNNNNNNx@fbNZ <@"LP  @ @"@"(@ 6@ <@ F DVx@ `@" np@ thz@ |@ @ gNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,NNNNNNNNNNNNNNNNNNNNNNy@쁁@됳@@ @@TH ***********************************************************************(`~Fn| 0B  D")NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,NNNNNNNNNNNNNNNNNNNNNNN@ B@ @ D@ B`XB@ P B@ @ @ !  $.x8pDNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,(NNNNNNNNNNNNNNNNNNNNNNB  Sca Scaling_2d Scaling_2dSxSyArray@R2G This subprogram takes a 3x3 real array and converts it into a scaling@8R<- matrix for two-dimensional transformations.@8Fλ|y@P$SNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,NNNNNNNNNNNNNNNNNNNNNN@ ,N0.BX0b@ /Bhhn0^tfzT@ @ 50@ OopsSoerce$ FNFide_existsLdestinatiof$FNAskXI X_gdu_max Y_gdu_maxoNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,ANNNNNNNNNNNNNNNNNNNNNNdͤ@ d3λzy@ ʻ)@ d2rotate@ޑ2Mode: d 5 @> 3 1.5,1, 2.5,2, 2.5,3, 1.5,4, -1.5,4, -2.5,3@@> 4 -2.5,2, -1.5,1, -2.5,1, 2.5,1, 2.5,-2, -2.5,-2@>@ 3 -2.5,0, -4.5,-4, -5,-4, VNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,8NNNNNNNNNNNNNNNNNNNNNN@Z@d@TnH ***********************************************************************x`~Rn  d0B  D"B(_2dTranslation_2dTNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,pNNNNNNNNNNNNNNNNNNNNNN -4,-4, 2.5,0, 4.5,-4@>> 2 5,-4, 4,-4, -.5,-2, -1,-3, 1,-3, .5,-2>@J$ 2 1,2, 2,3, 3,4, 4,5, 5,6, 6,7, 7,8 > Octagon@FJ. 2 9,10, 10,11, 11,12, 12,9 > Box@JF8 21NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,  NNNNNNNNNNNNNNNNNNNNNNxTyTranslation_2dArray@J? This subprogram takes a 3x3 real array and converts it into a@DJ9 translation matrix for two-dimensional transformations.@Dλ|y@@@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,#NNNNNNNNNNNNNNNNNNNNNN 13,14, 14,12, 15,16 > Left leg@LJB 2 17,18, 18,11, 19,20 > Right leg@HLL 2 21,22, 22,23, 23,24 > Nozzle@ HV `@ j12KNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN, ^NNNNNNNNNNNNNNNNNNNNNN@TH ***********************************************************************>`F  "L0B  D"B P H&W She Sheabing_2d Shearing_2dCchxShyArbayExiNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,NNNNNNNNNNNNNNNNNNNNNN@tٵ#,K@4~B&You have returned to the BASIC System.@ 4@ @T H ***********************************************************************H@@@PZNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN, mNNNNNNNNNNNNNNNNNNNNNNt Shearing_2d Shearing_2dShxShyArray@JҶ? This subprogram takes a 3x3 real array and converts it into a@BJܶ6 shearing matrix for two-dimensional transformations.@Bλ|y@_XNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN,"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZŇ2 vN'lNNNNNNNNNNNNNNNNNNNNNNNNNNN-NNNNNNNNNNNNNNNNNNNNNN% To store the screen image in@60"%( Initialize various graphics parameters.@662INTERNAL#% Use the internal screen@*6% Turn on the graphics screen@,*% Large letters for main title@8,%( Reference poiF!NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN- NNNNNNNNNNNNNNNNNNNNNN |\@,4 &% | \@,, 0% | \@<, : "$?zG{% A smidgeon below X-axis | \@L< D 2#,K210 %* Compact; no CR/LF | \ Label the@6L N%'SNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN- 1NNNNNNNNNNNNNNNNNNNNNNnt: center of top of label@B8쐶%+ Determine how many GDUs wide the screen is@DB 쐶%+ Determine how many GDUs high the screen is@VD (?(??% Offset of X from starting point@:V bpNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN- NNNNNNNNNNNNNNNNNNNNNN | / X-axis@.6 X% | /@@. b !?zG{"$?Q, | /@6@ l 2#,K % | /@06v % et sequens |/@02)NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-8NNNNNNNNNNNNNNNNNNNNNN %& Move to about middle of top of screen@<: ܻ 2Blackbody Radiation% Write title of plot@.<洎 춎% Next position for title@6.%' Smaller letters for temperature legend@46 (?fffffg% Right below main INNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN- NNNNNNNNNNNNNNNNNNNNNN% | \@!"%% | \@:! #%%$ | > Only powers of 10 on Y-axis@:"$% | /@% | /@6"#% Logarithmic Y-axis |\@,6 % Big chars for "10" | \@., ƈANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-mSNNNNNNNNNNNNNNNNNNNNNNtitle@P4 2Temperature (K): %' Label offset to left so value will fit@4P)%' Angular mode is degrees (used in LDIR)@*4!Z% Specify vertical labels@2*"(@ % Specify smaller characters@82, %& Move to c55NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-NNNNNNNNNNNNNNNNNNNNNN% | \@<. !?Q% Smidgeon left of Y-axis | \@J< ڻ 2#,K210%+ | \ Label the@8J 䂻%( Small chars for exponent | / Y-axis@.8 % ?%' \ Calculate X and Y inteNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-NNNNNNNNNNNNNNNNNNNNNNveSpinDeltaDelta FNIntensityC$Q$Exit@ 312K@*ٵ#,K3% Clear old display@(*Demonstration of graphing.@(((--------------------------@ (2@B <3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN- }mNNNNNNNNNNNNNNNNNNNNNNrnal data@>"됶% /@#!% /@$#"ꐶ% /@% /@< "#%+ Anisotropic scaling: left/right/bottom/top@6<̻%) So labels can be outside VIEWPORT limits@&6% Ҷ% |\@*& &% kNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-NNNNNNNNNNNNNNNNNNNNNNPress the SPACEBAR to get back to the BASIC System.@ BF@> P/Press Return or ENTER to see the graphics demo.@&>Z 4% Let user read messages@*&dٵ#,K3% Clear for graphics@$*n6% Provide for exit@0$x%0!NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN- (>NNNNNNNNNNNNNNNNNNNNNN ) | \@"*  %& 萶% | \@:"  "%* | > Draw logarithmic X-axis@ :  #% | /@& & % | /@$&% ⶎ% |/@4$  % NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNHNNNNNNNNNNNNNNNNNNNYŇ1tߎK"dNNNNNNNNNNNNNNNNNNNNNNNNNNN.:KNNNNNNNNNNNNNNNNNNNNNNd8B ..%) LooplooplooplooplooplooplooplooplooploopL8-> -------------------------------------------------------------@(L++萶% Accumulate knob pulses@.(+'к* If not enough, return@6.ͻ%' Load grid (in effect,gINNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN. NNNNNNNNNNNNNNNNNNNNNN0Z% finis@TdI ************************************************************************a0n@zTn0f0B  D".sity FNIntensity IntensiSNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN. zNNNNNNNNNNNNNNNNNNNNNN erase old curve)@*60+% Which way was knob turned?@>*()0()!0u Reached the limits@(> ʋ?zG{$% Let user know@(ԸR (in range)@@  +'6*" Allow rapid change of temperature@2NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN. NNNNNNNNNNNNNNNNNNNNNNty Wavelength Temperature Intensity@.xP@D@H@,ǮzH퐳@ .@ zTn0f0B  D".sity FNIntensity Intensi!NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.NNNNNNNNNNNNNNNNNNNNNN@ 1%$ Increment/decrement logarithmically@2  @ (out of range?)@**()쐶* Build temperature value@4*+%' Start knob rotation accumulation again@84%+ Allow label to be written outside viewport@.8$8@9NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN. DNNNNNNNNNNNNNNNNNNNNNNP10 ! ************************************************************************.20 Gray_map: SUB Gray_map(Surface(*),N,Crt)P30 !------------------------------------------------------------------------!P40 ! Copyright 1983, HewD& (䶎%* Need to increment order of magnitude yet?@,> ))萶% Increment order of magnitude@&, (% Start over with mantissa@& ĸ4 (mantissa<9)@6 ((萶%' INNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.LNNNNNNNNNNNNNNNNNNNNNNn a color CRT, !P110 ! all pixels will be lit, but the luminosity of the gray will be !P120 ! directly proportional to the value in the corresponding element of !P130 ! the surface array. _NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.\)NNNNNNNNNNNNNNNNNNNNNN.........@4T ͻ%$ Store the screen image in the array@,4*% Same size letters as before@(,4% Lower left label origin@8(>'%* Number of knob pulses before action taken@28H(*% \ These three statements define the@22eNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.ՀNNNNNNNNNNNNNNNNNNNNNNn the middle of an order of magnitude@6 ع (mantissa=9?)@D⸎ 2 (delta<0) ! Counterclockwise rotation@>D (2%* Need to decrement order of magnitude yet?@,> ))ꐶ% Decrement order of magnitude@2, (%% Start]NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.oNNNNNNNNNNNNNNNNNNNNNNR)*% > temperature in a way which can be@.2\*()쐶* / changed logarithmically.@4.f+%& Make the subroutine notice first pass@04p-%# Load the screen and plot the curve@B0z?+-%% Look at the knob every half a seconTeNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN. NNNNNNNNNNNNNNNNNNNNNN mantissa over again at top end@2   (mantissa>1)@6 ((ꐶ%' In the middle of an order of magnitude@6  (mantissa=1?)@( (delta>0?)@ 2 <6@ Fٵ#,K3@0 PB!You are back in the BASIC System.@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.|JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNBNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ2 vO'jNNNNNNNNNNNNNNNNNNNNNNNNNNNN/NNNNNNNNNNNNNNNNNNNNNN170 ! N: This specifies the number of pixels square each element !P180 ! in the data array should be. The probability of any !P190 ! particular pixel in the square being on is linearly !P200 ! YNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/ NNNNNNNNNNNNNNNNNNNNNN Pen=(Left+(Right-Left)*Subx)*14+1l680 PEN Penf0690 PLOT Col*N+Subcol,Row*N+Subrow700 ELSET710 IF RND<=Left+(Right-Left)*Subx THEN PLOT Col*N+Subcol,Row*N+Subrow720 END NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/LNNNNNNNNNNNNNNNNNNNNNN interpolated in both directions to get a smooth !P210 ! transition from one value to another. !P220 ! Crt: This is a logical variable specifying whether or not to !P230 ! # NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/ VNNNNNNNNNNNNNNNNNNNNNNIF730 NEXT Subcol=740 NEXT Subrowo750 NEXT Col760 NEXT Row 770 END IF780 CALL Pause(1)b 790 SUBENDSET710 IF RND<=Left+(Right-Left)*Subx THEN PLOT Col*N+Subcol,Row*N+Subrow720 END NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/NNNNNNNNNNNNNNNNNNNNNN send the plot to the CRT. !P240 !------------------------------------------------------------------------!250 OPTION BASE 1-'260 INTEGER Xmax,Ymax,Xpixels,Ypixels-E270 INTEGER Row,Rowmax,Col,Colmax,Subrow,SubroZNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/ gNNNNNNNNNNNNNNNNNNNNNN@$@;8::j;: ""P ""$"0""<*"H2"pT8"`> lF"nL"BzX"d"p"~"b";$ONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/YNNNNNNNNNNNNNNNNNNNNNNwmax,Subcol,Subcolmax- 280 CALL Scale(Surface(*),0,1)290 IF Crt THEN 300 GCLEAR310 GRAPHICS ONr320 ALPHA OFFO 330 END IF0340 IF POS(SYSTEM$("CRT ID"),"C") THEN Color=1350 IF Color THEN 360 BEEP 100,.1 370 FOR eNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/ oNNNNNNNNNNNNNNNNNNNNNN;;0;0r;0;0;0;0;0;06;0;;;@ E:0&;;;0&;;8;"@ %E00R;*;206R08F@ *E06^NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/hNNNNNNNNNNNNNNNNNNNNNNPen=1 TO 15R*380 SET PEN Pen COLOR 0,0,(Pen-1)/14390 NEXT Pen 400 END IF#410 CALL Gdu(X_gdu_max,Y_gdu_max)n420 Colmax=SIZE(Surface,2)430 Rowmax=SIZE(Surface,1)440 Xpixels=Colmax*(N+1)450 Ypixels=Rowmax*(N+1)460 WINDOWNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/ \NNNNNNNNNNNNNNNNNNNNNN03;jz;p03$;x@ ;~r;04;05 ;05;j;0dP 0P"*l GroundDdreeTreColormapFlash1Flash2Flash3NormalGroundTreeTree2LeavesText$ House_front House_side House4NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/;NNNNNNNNNNNNNNNNNNNNNN 0,511,389,0470 LINE TYPE 21480 IF N=1 THEN 490 FOR Row=1 TO Rowmax)#500 FOR Col=1 TO Colmax-(N>1)n6510 IF RND<=Surface(Row,Col) THEN PLOT Col,Row520 NEXT Col530 NEXT Row 540 ELSE550 Recip_n_plus_1=1/NWNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/ NNNNNNNNNNNNNNNNNNNNNN_roof House_shadowChimney Side_windowRandomIJFlashSkyMoonGroundHouse House_front House_side House_roofChimney Side_windowXYTree DirectionDistance LightningStrokeCloudsXcloud Move_cloudsFlash4 Good_nightܳNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/ NNNNNNNNNNNNNNNNNNNNNN560 FOR Row=1 TO Rowmax-1o570 FOR Col=1 TO Colmax-1,>580 Left_row_delta=Surface(Row+1,Col)-Surface(Row,Col)C590 Right_row_delta=Surface(Row+1,Col+1)-Surface(Row,Col+1)a600 FOR Subrow=0 TO N-1f(610 Suby=SubgNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/:NNNNNNNNNNNNNNNNNNNNNNFlashFlashedHereFlashesFlash1Flash2Flash3Cloud House_shadowChimney_shadowChimney_shadow@  , Arrays start at 1@ @8NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/*NNNNNNNNNNNNNNNNNNNNNN !P140 ! !P150 ! Surface(*): This is the two-dimensional real array containing the !P160 ! data to be plotted. It need not be square. !PnNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/4NNNNNNNNNNNNNNNNNNNNNNrow*Recip_n_plus_17620 Left=Surface(Row,Col)+Left_row_delta*Subye;630 Right=Surface(Row,Col+1)+Right_row_delta*Subyw!640 FOR Subcol=0 TO N-1o*650 Subx=Subcol*Recip_n_plus_1660 IF Color THEN 3670 HNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN/ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN[LJ4 wN&iNNNNNNNNNNNNNNNNNNNNNNNNNNN0NNNNNNNNNNNNNNNNNNNNNN@>8(2dd @<@8>2    @88<8 @88Fٵ"#,B,K12K, Clear the sNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0l}NNNNNNNNNNNNNNNNNNNNNNleaves@<2  .68,1,.18  Pen 10: Left lightning flash@><  .68,1,.18  Pen 11: Middle lightning flash@>>  .68,1,.18  Pen 12: Right lightning flash@.>¼  0,0,.2  Pen 13: Clouds@2.̼  0,1,.65NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0NNNNNNNNNNNNNNNNNNNNNNcreen@68P"'Copyright 1983, Hewlett-Packard Company@"6Z"All Rights Reserved@ "d#@8 nٵ"#,B,K12K, Clear the screen@,8x", Initialize graphics parameters@<,2INTERNALI, MUST be a color-mapped ANNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0 _LNNNNNNNNNNNNNNNNNNNNNN  Pen 14: House side@.2ּ  .22, 1,.35  Pen 15: Ground@T.ඎI Second modified colormap for second flash of lightning -----------------@Tλzy, \@λzy, \@8,! \ The only differencNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0NNNNNNNNNNNNNNNNNNNNNNdevice@*<, Turn on the graphics raster@**11, 1 UDU = 1 pixel@**ͣͤ, Define color map values@,*ͻL, Define colors for picture@8,  0,0,0  Pen 0: Black background@*8  .68,1,.18 :NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0  NNNNNNNNNNNNNNNNNNNNNNe between@28 , \ the three lightning arrays@02 , / is which lightning pen is@.0 ! , / defined to be white.@. &! , /@0, /R : D Draw the sky ------------------------------dNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0NNNNNNNNNNNNNNNNNNNNNN  Pen 1: Sky@,*ȼ  0,0,.7  Pen 2: Moon@<,Ҽ  .22,1,.1  Pen 3: House and tree shadow@4<ܼ  0,1,.2  Pen 4: House's front@.4  0,0,0  Pen 5: Window@R.  .19,.4,.08 2 PenNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0 9.NNNNNNNNNNNNNNNNNNNNNN------------------------@RD, \@2NH,# > Fill the whole bloomin' screen@ 2XD11B=, /P b C Draw the moon ----------------------------------------------------@Pl!21,, \@2vH," \ The crNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0)NNNNNNNNNNNNNNNNNNNNNN 6: Left side of tree trunk and chimney shadow@2R  .33,1,.17  Pen 7: Left leaves@T2  .19,.4,.08 4 Pen 8: Right side of tree trunk and unshadowed roof@4T  .33,1,.17  Pen 9: Right leaves@<4  .68,1,.18 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0 NNNNNNNNNNNNNNNNNNNNNNescent moon is a white@:2D!B>, \ circle (actually a 60-gon)@2:H,# / mostly covered up by another,@02!.1., / sky-colored, circle.@0D!B>, /NA Draw the ground -------------------ZNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0!NNNNNNNNNNNNNNNNNNNNNN  Pen 10: Left lightning flash@><"  .68,1,.18  Pen 11: Middle lightning flash@>>,  .68,1,.18  Pen 12: Right lightning flash@.>6  0,0,.05  Pen 13: Clouds@2.@  0,1,.2  Pen 14: House sidNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0 NNNNNNNNNNNNNNNNNNNNNN-----------------------------@NȀ, \@Ȁ, \@!1, \@> !/1쐶, \ The ground is a polygon@:> ȵ1萶, \ which includes the lower@6:䴎X,! \ corners +NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0OrNNNNNNNNNNNNNNNNNNNNNNe@.2J  .22,1,.1  Pen 15: Ground@:.T! 8,! \ Define a subset of the color@:: ^ ," \ map so execution time will be@6: hȐ," > faster when setting the color@:6 r ,$ / map back to nINNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0NNNNNNNNNNNNNNNNNNNNNNof the CRT as its@:6!2ȵ1,# / first and last points. All@6:!2Ȁ,# / the intermediate points are@06, / a constant plus a random@ 0 !H, / number.@ ͻDBE, /@ , /P*CNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0|CNNNNNNNNNNNNNNNNNNNNNNormal when turning@0:| ^, / off a lightning bolt.@T0I Modified color map for lightning flashes -------------------------------@>T  .1,.68,.38  Pen 8: Lit tree trunk and roof@2>  .33,.61,.3  Pen 9: Lit )NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0NNNNNNNNNNNNNNNNNNNNNNB -----------------------------------------------------------------@P4 ͣ ͣ ͣ ͤ@>ͣ8ͣͤ2H5% 100,100, 150,50, 50,0, 0,0, 0,50:2R- 50,50, 50,120, 100, 160, 150,120, 150,502:\$ 150,50, 150,120, 200,dNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN0ŷNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNXć/sߎL$fNNNNNNNNNNNNNNNNNNNNNNNNNNN1 NNNNNNNNNNNNNNNNNNNNNN! BC=, / common corner.@6 δ궎, /@ش, /@※) \@싵!2) \@,D!!(=) > Draw the door@,1h!C) /@ D>) /@>3 Draw the side windows -1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1^NNNNNNNNNNNNNNNNNNNNNN fill with house shadow color.@>83 Draw leaves---------------------------------------@(> ͤ, A hexegon is sufficient@:(̼ . -10,0, -8,-2, 8,-2, 10,0, 8,2, -8,2@&:ֻ), Make it easy on yourself@0&1 &,5NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1`NNNNNNNNNNNNNNNNNNNNNN150, 200,8042f& 100,160, 150,190, 200,150, 150,120>4p& 0,0,3 8 PEN 0@H>z= 4,0,13, 0,0,11, -9,0,-2, -9,15,-1, 6,15,-1, 6,-12,-1, 0,0,7@JH? 14,0,13, 0,0,11, 6,-12,-2, 12,-9,-1, 12,18,-1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1NNNNNNNNNNNNNNNNNNNNNN---------------------------@>!, Red edges@ (H, Black interiors@" 2118, \@8" <?333333!?333333ꊰ , \@08 F,! \ Draw the left window on the@20 PͻDBCG, / NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1QNNNNNNNNNNNNNNNNNNNNNN, 6,15,-1, 0,0,7@JJ? 0,0,13, 0,0,6, 6,15,-2, 12,18,-1, -3,18,-1,-9,15,-1, 0,0,70J7" 0,0, 15,-12, -15,-27, -30,-15*0 0,0, 6,3.6, 6,13.6, 0,10@>*H!/ \ Though pens 3 and 8 are initially the same@@> ͻDfNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1 )NNNNNNNNNNNNNNNNNNNNNNside of the house.@2 Z, /@dn, /@"n11`&, \@8" x?333333!?333333ꊰp, \@28 ," \ Draw the right window on the@22 ͻDBCG, / side of the house.NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1NNNNNNNNNNNNNNNNNNNNNNBE!+ \ color, the pixels drawn by them have a@4@!' > different color value. Thus, when@:4!ʶ!. / lightning strikes and the ground (pen 15)@::!Զ!/ / chenges color, the shadow (pen 3) doesn't.@:ހ, \@0舻H, \ /NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1 |NNNNNNNNNNNNNNNNNNNNNN@2 p, /@`Z, /P  C Draw the tree (the whole trunk) ----------------------------------@P!2P R, \@ ȅ됶, \@6 ꐶ, \ The tree is a tall, skinny@<6 ҵ1eȅsNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN13NNNNNNNNNNNNNNNNNNNNNN Fill and edge the roof (the@80 ͻDBCE, / color as the tree trunk).@8, /@>3 Draw the chimney ---------------------------------@>H, \@611, \ The chimney's shadow on the@86$8ͻDBG," [NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1 ONNNNNNNNNNNNNNNNNNNNNN萶,! / rectangle with rough sides.@< ܵ1eꐶ, /@洎P, /@*λzy, Make a spare copy...@8*1!,# \ Fill the whole tree trunk with@28H,# > the unchanging color of brown.@2ͻDBCNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1_NNNNNNNNNNNNNNNNNNNNNN / roof is the same color as the@(8., / left side of the tree.@8(811+# \ All three faces of the chimney@68BͻDG+# > are contained in the array, as@26L+% / are PEN and AREA PEN specifiers.@>2V3 ---------ХNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1  NNNNNNNNNNNNNNNNNNNNNNG, /@>3 Draw the right side of the trunk -----------------@>"!2@!Զ, \@: ,Ȃ萶,$ \ Just redefine the right side of@*: 6ꐶ, / the tree trunk.@*@@!X, /@0JH, \ ...then fill fNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1lNNNNNNNNNNNNNNNNNNNNNN-----------------------------------------@0>`H,! \ The front of the house covers@80j ͻDBCE, > up the extended brown area@*8t, / of the chimney's shadow.@2*~!H)! \ This side of the house will@@2 ͻDBCNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1 2^3 Draw the tree's shadow ---------------------------@4>hλzy, Get the original outline back@"4r, Uppen zie picken it@8"|0#, \ Make the Y valuNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN19NNNNNNNNNNNNNNNNNNNNNNE)& / light up when lightning strikes.@@!F!P, \@H, \@., \ The window is compsed of@4.끂P, \ four filled and edged@<4 끂8," / rectangles all touching at a@6< ĻDnNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1oNNNNNNNNNNNNNNNNNNNNNNes negative,@48 됶, \ and translate the X values@D4 ȵ(?333333萶,! \ by an amount proportional to@4D0#, / the corresponding Y value,@04H,! / i.e., "shear" it left. Then@80ͻDBG," /ʚNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNZƇ2 vN'lNNNNNNNNNNNNNNNNNNNNNNNNNNN2NNNNNNNNNNNNNNNNNNNNNN, / color.@&$$ѵ1wյ1,Հյ1Ղղ, /@8& ٵB#,B,K12K, Clear the screen@8*+@  4 @ >! @H+|@8R ,"What was that? You heard a noise from the"@88\ -"frontNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2+NNNNNNNNNNNNNNNNNNNNNN@04 -,# Lightning struck since int'pt set?0 . @0 -3, We need to reenable interrupt@&0 i,, Random wait@0& -," No, we haven't seen lightning yet@0 @. (.,! looplooplooplooplooplooplooploop. 2(NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2+NNNNNNNNNNNNNNNNNNNNNN room. Was that just a noise from the"@88f ,"wind, or an animal, or.... You cautiously"@88p -"enter the other room, and turn on the light"@&8z "to see what is there...."@&#, \@6?tzG{$, \ Turn on the light witK>NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2NNNNNNNNNNNNNNNNNNNNNN,@( <0萶, How many strokes?@,( F123(: Which stroke?@., P-,! Yes, a strike. Reset interrupt.@ . Z8  d1+ Left stroke ------------------------------@8 n05@ xͻL@ ͻL@NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2NNNNNNNNNNNNNNNNNNNNNN Four hundred "leaves"@80 !1h쐶," Which direction from tree center?@<8 "!F쐶,$ Skewed distance for uniform density@< 1"!1"!@$ !1!1;"!2&@($ H, These leaves will be lit@*( NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2NNNNNNNNNNNNNNNNNNNNNNh a@@6(?\(õ(?QL, / resounding (?) click.@@#, /@8ٵB#,B,K12K, Clear the screen@8-ij@   @ ʛ! @Դ-@8޼ -"It was only the screen door slamming JNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2;NNNNNNNNNNNNNNNNNNNNNN&H, not on upper right edge@,* &H, These leaves will not be lit@, 0@" :ͻDBG, Make a leaf@"D % , etc.LN#> Draw the lightning ------------------------------------------@TLXH The main purpose for the3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2 $NNNNNNNNNNNNNNNNNNNNNNin the"@:8 /"wind. Well, it looks as though you won't get"@<: 0"much sleep tonight; more clouds are rolling in"@<< 0"and it looks like the storm will get worse...."@< ! , \@ ! H, \@ Ao4H, \@DBNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2nNNNNNNNNNNNNNNNNNNNNNN story line is to cover up the fact that there@PTbE are massive amounts of computation going on behind the scenes. The@TPlH lightning is drawn during this time, but it is drawn in the same color@TTvI as the sky, so nothing visible i*NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2 wNNNNNNNNNNNNNNNNNNNNNN $$ѵ1յ1,Հյ1Ձղ, \ Draw the second and third@4D .! ,# > lightning bolts as the user,@,4 8! H, / oblivious, reads on.@, BAo4<, /@& L$ѵ1յ1,Հյ1Ձղ, /@& V#, /@8 `ٵB[9NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2]NNNNNNNNNNNNNNNNNNNNNNs happening. Somehow, lightning is not@TTH nearly so impressive if it crawls along at a snail's pace. Therefore,@RTF it is drawn in the background color, and "flashed" by redefining the@R color map.@8ٵB#,B,K1NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2 FNNNNNNNNNNNNNNNNNNNNNN#,B,K12K, Clear the screen@28 j,$ Don't need alpha raster for a whileN2 t&A Draw the thunderhead -------------------------------------------@2N ~,! Anisotropic scaling for ellipses@ 2 ', Position of clouds@8fNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2xNNNNNNNNNNNNNNNNNNNNNN2K, Clear the screen@:8)Զ,# \ Four lines of text in the first@.:  ,! \ installment. Tab to the 20th@<. ! ,$ / column so as to not cover up the@<ƴ)L, / moon.@8м ,"It is a dark and storyNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2 MNNNNNNNNNNNNNNNNNNNNNN  1ض,! \ Put the random numbers in an@68 ȿ쐶, \ array to guarantee that the@@6 ȿ!!F萶,# > same random number sequence is@8@ 1*,# / used when the clouds gradually@$8 ), / cover up thlNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2INNNNNNNNNNNNNNNNNNNNNNmy night. You huddle"@:8ڼ ."under the blankets, listening to the howling"@4: )"wind and the creaking shutters, waiting"@(4 "desperately for the day..."@(, \@2H,# \ Draw the lightning in the sky@$2 Ao4Pz"NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2 ~NNNNNNNNNNNNNNNNNNNNNNe moon.@T$ ĶI Here's where the action is----------------------------------------------@>T  P@!<m+7 One minute from now...@2> ؊h), Move clouds every ten seconds@42 ⁻i,, High priority flash interruptrNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN2(NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNXŇ1 uL$hNNNNNNNNNNNNNNNNNNNNNNNNNNN3NNNNNNNNNNNNNNNNNNNNNN9f7 /@  0@  :@T  DI ************************************************************************ 2@d@d`<P@@KyNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3 TNNNNNNNNNNNNNNNNNNNNNN Copyright 1983, Hewlett-Packard Company !P50 ! All Rights Reserved !P60 ! !P70 ! This subprogramqNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3ԮNNNNNNNNNNNNNNNNNNNNNNP@@  NN  ;8;0 ;  ;  ;";,;0;4@ @ NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3]NNNNNNNNNNNNNNNNNNNNNN receives a two-dimensional real data array and !P80 ! plots the surface as a series of lines of constant row; one row in !P90 ! the data array results in one line on the plot. !P100 ! NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3NNNNNNNNNNNNNNNNNNNNNN sStrokeStrokeXYSkewBottom ThicknessDxR1R2@  X @T  bH This is a recursive lightning-stroke subroutine. When is calls itself,@PT lE it starts a branch at its current position. This new bNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3n6NNNNNNNNNNNNNNNNNNNNNN !P110 ! Surface(*): A 2D real array whose values contain the height of the !P120 ! surface at that point. It need not be square. !P130 ! Opaque: A logical variable speciNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3~NNNNNNNNNNNNNNNNNNNNNN 4Գ@  8  2+ Middle stroke ----------------------------@8 05@ ͻL@ ͻL@ ȴ5X@  Һ8  3+ Right stroke -----------------------------@8 06 @ ͻL@ ͻPNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3NNNNNNNNNNNNNNNNNNNNNNranch will be@NP vC narrower, and will its bottom end will be no lower than the parent@N  stroke.@8 ?d׶, Ignore it if it's too thin@8 , Pick up the pen@2  ,$ Loop until "Bottom" of bolt reached@22 qhNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3M9NNNNNNNNNNNNNNNNNNNNNNL@ 5ܳ@  8  (* Heat lightning --------------------------@8 "06@ ,! ?333333L@ 6! ?L@ @6b@  JJ  T+< -------------------------------------------------3NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3 ĐNNNNNNNNNNNNNNNNNNNNNN?@쐶, \@(2 萶, > Figure next position@*( ?陙@萶, /@* ?@0 , \ Make a fat bolt if necessary@$0 ڻD?솻B>, /@$ 与䳎@( U*NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3jNNNNNNNNNNNNNNNNNNNNNN----------@ J ^@@  h!*"Harry! Turn off the lights and come back@@@ r!)to bed. It's only another thunderstorm!"@ @ |#@"  ! "Yes, dear."@ " #@,  ?tzG{$, (The light switch)@&, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3 NNNNNNNNNNNNNNNNNNNNNN&, Otherwise a skinny one@( @ , \@: 11퐶,! > Should we start a new branch?@":  (?, /@6" տ?յ11ղ@(6 *, Come back to bifurcation@( 4@,,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3+[NNNNNNNNNNNNNNNNNNNNNNL, Window goes black@ & t, Turn off interrupt@  #@8  ٵB#,B,K12K) Clear the screen@,8 ̻, Last time we'll need alpha...@ , ֺJ  )< -----------------------------------------------------------/NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3 NNNNNNNNNNNNNNNNNNNNNN >, Low limit reached yet?@, H, \@: 11퐶,! > Should we start a new branch?@":  (?, /@6" տ?յ11ղ@(6 *, Come back to bifurcation@( 4@,NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3NNNNNNNNNNNNNNNNNNNNNN@J ! H, Cloud color@: ''?ꐶ,! Move clouds to the left a little@: 4:7 \@. '44Ȼ7 \ Replot same cloud@.. DB>7 > formation a smidgeon@(. '!F7 / to the left@( &4XNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3 ;eNNNNNNNNNNNNNNNNNNNNNNP10 ! ************************************************************************G20 Surface: SUB Surface(Surface(*),Opaque,Front_edge,Back_edge,Crt)*P30 !------------------------------------------------------------------------!P40 ! R~NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN3^kNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN\ȇ4 wQ)mNNNNNNNNNNNNNNNNNNNNNNNNNNNN4NNNNNNNNNNNNNNNNNNNNNN ! greater than Back_edge, more of the bottom surface will !P270 ! be visible. If Front_edge=Back_edge, the surface will !P280 ! be plotted edge-on. !P290 ! Crt: NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4 jHNNNNNNNNNNNNNNNNNNNNNN ELSE690 PEN Top_peno700 END IF710 ELSE ! (not topside)e720 IF Crt THEN (730 LINE TYPE Bottom_linetype,10740 ELSE750 PEN Bottom_pen760 END IF770 END IF780 FOR I=Imax TO 1 STEP|ONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4NNNNNNNNNNNNNNNNNNNNNN This is a logical variable which specifies whether the !P300 ! plot is to be sent to a CRT or a plotter. !P310 !------------------------------------------------------------------------!F320 OPTION BASE 1 FNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4 YyNNNNNNNNNNNNNNNNNNNNNN -1nC790 PRINT TABXY(1,2),"Working on line ";VAL$(Imax-I+1);". " 800 PENUP &810 IF I<>Imax THEN Base=Base+Di#820 Pres_pt=Base+Surface(I,1)+830 Pres_top=Height(1,1)+840 Pres_above_top=(Pres_pt>Pres_top) 850 NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4NNNNNNNNNNNNNNNNNNNNNN ! Arrays start at 1, not zeroA330 DIM Height(2,100) ! Row 1: Max; Row 2: Min C340 INTEGER I,J,Imax,Jmax,Pos(0:1,0:1) ! Make the loops go fastereO350 ! Pos(*) is a map into the SELECT statement farther down. TherebNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN4 *NNNNNNNNNNNNNNNNNNNNNN Pres_btm=Height(2,1)+860 Pres_below_btm=(Pres_pt