' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-6(p @àԠà@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`0 d ֠Ġz# u`@@  @P@ @ @@@P @   @ @*U* @(  T U@P@@ @@  U*U*U*U 0!%bP1%(I)0ĺ"FINISH";:251408*b"DRAW TO ";P1%(I)>4bDHbJISH";:20460O"DRAW TO ";P%*O20100SR16700:"ENTER POINT TO ";M$;" TO":YUca936paPUPC14aPUPHPUPHa1:1:"ENTRY # ACTION ON POINT"aIPCPUb(2IPC):1 b3);I;9); bP1%(I)0ĺ"SKIP TO ";(P1%(I));:2514"DRAW":202800.OA$"F"P1%(I%)0:P%0:20400;3O20220b8O16700:"ENTER POINT TO ";M$;" TO"n=O21000}LOP%:216,0`OP1%(I%)MP%O(2I%PC):1:868O(2I%PC):1:3);I%;9);OP1%(I%)0ĺ"SKIP TO ";P%;:20460 OP1%(I%)0ĺ"FIN20100+NI%PCI%PUPCI%:25000:20100JN16700:20:1:"ENTRY ";I%O"S TO MARK A POINT TO SKIP TO":"D TO MARK A POINT TO DRAW TO, OR ":"F TO MARK FINISH OF DRAWING ";OA$:(A$)332767$OA$"S"M1:M$"SKIP":20280)OA$"D"M1:M$CO(I,2) >>+936>1:1:"POINT X Y Z">PUPC14>PUPHPUPH>IPCPU>I;6);CO(I,0);16);CO(I,1);26);T3A$"M"ī14000*^3A$""I%I%1:131807h3I%(A$)O|3I%0I%PHī13100t3I%PCI%PUPCI%:16000:13100316700:"ENTER NEW COORDINATES FOR POINT ";I%3135003CO(I%,0),CO(I%,1),CO(I%,2)3216,03(2I%PC):1:86853(2I% @(@@  D @@ " (@@ @P U*U*U*U@@ P*U*AU*U "  @* @@@@ @ "  U*U*U*U@@@ @    U*U*U*U A @F @   T*U"F `mw0TN{'UP*^Wbp/;#T*UW U x @cu*@W PDE:U@,FP@ @+wk}oU @ U*w?W/P @01: ] W.Yt0U  h: |~u>m A0 FA |j8p3_ Pow``U8 &*@ (} @!P:`L (&&@s~+}g?@,`(& V`aDV  "&D Ah8_DCyn@*0 ?008o.=@``@OL6@@(]8a @+ @ 8Q."0u zVtrt*@A B 42pu_w{@:D+@.@+Pjt p:U(W W.]:ujU+W@g{_~_*UP*Uo]?7P+Uju:].W+@$0L &@@D"@ -*`G@>@k(.GF.Do@9.U*U:g n @@E F##@ @  .Q` 0&T#`hp(' Q0o?8gUT ;nABan_0Q (!G.(U`@@1t*$+A0@ *\& 0L@#\:ujtj_~U*@!Uj;vgA+Uju"DP+B ne  U:8 U W& @:\*D `A2@VoUx48@  D}*`a{_p?8`U "W8pTP`"@!4]Pt0Y ,M@8EBA'Y._9 >.(@(DPW`}CGL/P PE"D Q0p@ `U  DU@*p Q  (Yp|a`@Wj]N{00xsX, A  h "@!@.(A \.  u {[Pi u.""F @E:P@wkP2 (WPP. @@  @ @@  @! * P( @ @ @@@ D(@ Q @ pxy`pp!@xp8~p3\<>pC @q~vxx A@x"CATALOG" ; "TO SEE A PICTURE, TYPE ITS NAME."` "OTHERWISE, PRESS RETURN ONLY."~ "WHAT'S YOUR CHOICE?";A$ (A$)0320 :16302,0 $"BLOAD ";A$;",V0" .A$ 3 5 81000 DO YOU WISH TO NAME THE PICTURE?";N$5 1(N$)0300[ 6"BSAVE ";N$;",A$2000,L$2000,V0"~ 8"THE MINOR FACTOR WAS ";N;"." ;"IT IS NOW SAVED UNDER THE NAME -- ";N$;"." =:"PRESS RETURN TO CONTINUE";A$ @:126 :5:" LIST OF PICTURES"  :H3:HC6.2832360=Z(1(1)):I1360(1)E A0Q#140,90a(SAI:RAC~2X140S(R):Y90S(R)7X0X279Y0Y18990<X,YFAAIP40ZHdG11000:i1(3(1))n:I1360(1):32 0@jt?Gk}h@AAL8(_o_?` @.E t@ Tt. A A:u Acms;(p*8 A A A:u Acm{;(p*8 A@*UJA (eP+QP*U jwkA:+UP*}O=?}+U*UP  8@\"F'U`A  S P+x@@x UEQ-@@,8;(8.]*U;f A`]n&T&ATT D#@XP48\ 8@\"F'U`A QP*U jwkA:+UP*}=8}/GU*UP @*UJ @A (eP+P@(p: ] AAT k}.U@Tjw+7 P@(p: ] AAT@.E t@ Tt.AL8(_o+` 0@jt;Gk}h@AT&ATT D#@XP48\@@,8;(8.]*U;f A`]a& S P+x@@x UEQ-& hj@qOEj`E F AY` UoW{<Y0/]8j`!(hQ*0:u(``uOw:1 p* @D@p:5 kW+ `z]A TP@+TjA :u@+@"F(Uzu+~_*E*U>u;ukU*# A  @T  W0(  A,\R@+> @&hP" P&`\g0 L3_*U/r `0~3,FPP,(@ . WQ+" @"Q-  PSP)W @&  (U*kwcPv]+UT*]3\0|k*U*@ S Wj<@fu T P  a* "< T`{}/UjU W+Ujwow P @,d* 8"AP.8 jA:W X: *|{}#.] B A0`Xj \;GkUhUp $V8t` p PT!P.*`"Y@ @ _ p_+]OsS?A @ "E8(P |0Dp|U(1.D$"  n`TwDs~3* "DPM@0]~_; `D*M 4U(!P @ .8q8xUW{et(ADt(u~WKA@8Q P+ W@!PjA @:U*P*W.]:ujU+W~w;}~_*U.W+Uo;woW+Uju:].W+U$D(P&!T p  & &]+@ k@R.F TP@Yoa!gW*U3N(8|_QPP&q`( Q T) (hp8V `O?`@@g0@c8`;<`~?|w~ |qr} xCqw px?| >x?~?v`@]|@`@ p@xG?@ x|Hbq;`8p~`|<8`psx/ <`gp`w<|?@`p.^?@<@s`8~|@px8@?8<p8@n>08@G~ @7`?oryn`@ xx`@\| @@8F`^@s`q@|@p`@a@/@;0{`@opp<0@w@AoCx?x` <pL |` |p`0|pp`0p~fx0`~<< p@@x@`8x o@~{a@~0`{`pAO? |@}=`p` \Nx`@~LpAc>@?`py?~p`{c p ~?x@?`|p` p?Gg|0@p`psx@8?px@_3<|x`#@pv?0x0`A@sp=x@w?p0 CA|@pCp@```x```0? p`@G@@``a@@7~@@8>p`?w`?x@<<}x|x8s @ @x@x\paqypC@Ba |``c~<@~@~p@ 8p`0~ pp@x@CxC`> x> px3p8< x|?>x@q>`w@@|p ?@x3x^a?ppX3x0p@p `7<`pq=`C_@<@axCN``x?`O8 t`0p0<@xp|~`xc< ` `p @|@ ~^8rGppx9<@qs`qc`<|x ``0`@@o|p.@o@=@p~x@0'|>@0 `y? 0>~8`G`0`Afxp`p@ x`!@xpsXdpG`P@ <~| 0<0p~~?x@xpppp Fp >@ O`@@?p8``p?@`pp``s@x}`38|a|0`>``p`n<~??xp`C3z0>s~`8@sxqs<\@`n~`@`x p@sspw` `0?X;~>x@ @8@sx'`x@9h><@<x|0`F#`|`|aKpp?@?@fppAp|C?xx`?```@p@[@?c`p\o8d nx3*M(0)3019N(1)M1?M:140,95SiA0256(1).01oR((MN)A)95140R(A),95R(A)A:1407,3:2,8V15`8,4:3,9(j9000/t2=~8,4:3,9CJ@2_AY19:1,9Y:YfE8rJ0,100}T1,95^0,1010h1,90r1,95|1,910(#D1150:D2# M4,3:8,9:3,7:8,21564,8:9,3:1,2:7,6@9000G2_4,8:9,3:1,2:7,6ev THIRD SNOW~152,3:8,7:6,2:1,7900022,3:8,7:6,2:1,7$15.3,4:9,8:7,3:2,889000B2L3,4:9,8:9000 2#4,4:9,9:8,3:3,8);  SECOND SNOWC*15[42,1:6,7:9,4:4,9e>9000lH2R2,1:6,7:9,4:4,9\15f3,2:7,8:2,6:7,1p9000z23,2:7,8:2,6:7,1154,3:8,9:3,7:8,290002 x7400X15 b1,1)l6,63v9000:2H1,1:6,6P15h2,2:7,7:6,1:1,6r9000y22,2:7,7:6,1:1,6153,3:8,8:7,2:2,7900023,3:8,8:7,2:2,7154,4:9,9:8,3:3,8 |~@bp` @8f`|@|Xs?b<~?sx?`o@p`{>``xl``x`8lpo?xy@``x~ 8|`0|x$: *** PLOT REMAINS ON SCREEN UNTIL A KEY IS PRESSEDS: *** SAVES TYPING THISY'I *** LEFTXXA0X1X279:X,Y:140B *** SEE 231LX,YU140d *** DOWNnYYAY191Y0:X,Y:140 *** SEE 231X,Y014016368,0: *** CLEARS THE KEYBOARD STROBE SO ANOTHER KEY CAN BE READ IN5A400,500 *** RIGHT! XXA: X279X0:X,Y:140 *** PROVIDE SCREEN WRAP AROUND SO THAT WALK WILL CONTINUE AT THE OPPOSITE SCREEN EDGE X,Y 140 , *** UP @YYA JY1Y191:X,Y:140 K *** SEE 231 TX,Y h140 *** AS II TAPE VERSION% }X140:Y96. X,YW *** PLOTS A POINT AT SCREEN CENTERk *** STEP SIZE} A(5(1))5 K(16384) *** ALLOWS YOU TO STOP THE PLOT K1271000 *** CHOOSE DIRECTION D(4(1))1 D200,300,* Z" 3) TYPE 'LOMEM: XXXXX'"O [" 4) PRESS 'RETURN'"p \" 5) TYPE 'RUN'" ]" 6) PRESS 'RETURN'" ^" 7) SKIP THE SECOND TIME" `" ":"PRESS RETURN TO GO ON.";A$ i n3 x y 2936 6" " 711,18, <I12000:I6 A936? C" "J F18,26[ KI12000:Ie P936} RL(105)(106)256 T:" " V"YOUR COMPUTERS LOMEM IS ";L W" " X"TO CONTINE: 1) PRESS 'CONTROL C'" Y" 2) PRESS 'RETURN'" ! PROGRAMED BY != ! G. MCCLELLAND !\ -------------------------{ ! MODIFIED BY ! ! T N TAYLOR ! ! VERSION 2 ! ! 03 JAN 79 ! -------------------------  Z & -------------------------E ! RANDOM WALK !d -------------------------! FROM PAGE 2 OF THE !! 11/78 ISSUE OF THE !! SOUTHEASTERN !! NEWSLETTER !-------------------------   qZ4$;E2$LvE3$"### ''WWWWWWWWWWW WWWWWWWWWWWWW ##"Y{Z4$;E3$E4$" ## * * #"Z3$;E4$E5$" # * * ## ****#" SZ4$;D9$aXE0$" ##WWWWW ******** #"n]Z4$;E0$bE1$" #WWWWWWWWW;, .;WWWW ,;**#"gZ4$;E1$lE2$" ## WWWWWWWWWWWWWWWWW'''WWWWWWWWWWWWWW******;' #" #"5Z3$;D6$e:D7$" #### *************** WWWWWW ##### ###"r?Z3$;D7$DD8$" ### ** ******* ** WWW # ###"IZ3$;D8$ND9$" ### * * * * **WWWWWWWWWWWL #"B!Z3$;D4$&D5$" # WWWWWWWWWWWWWWWWWW* **WWWWWWWWWWWWWWWW #"+Z3$;D5$0D6$" # WWWWWWF' ''YWWWWWWWWWWWWWWWP''''''=WWWWWWWWL #Z3$;D1$cD2$" # * #"p Z3$;D2$D3$" # ,;WWWWWW, * * ,;WW; #"Z3$;D3$5D4$" # WWWWWWWWWWWWWWWW* 40,3 ,42,6,2,41,7,38,6,40,9 7 2,39,10,37,8,38,11A' 0,0T' GENE JACKSONn' CAROLINA APPLE COREI,4,44,3,43,4,42,6,41,6,41,7,40,9,39,9,39,10,38,11,39,12,40,11,41,12,42,13,43,15,44,17,44,19,43,21,39,21,40,18,38,15  29,7,27,6,26,8,25,8,25,9,24,11,23,11,23,12,22,14,25,15,26,16 2,22,14,20,11,23,13,2,24,11,22,8,25,9,2,26,11,24,5,27,6,2,43,4,,50,20,52,21,52,17,54,18,54,14,56,16,56,10,57,12,57,7,59,11,62,9,61,13,62,12,60,16,62,16,59,19,60,20,56,22,58,24,53,26,54,27,50,32 2,50,20,51,19,50,18,51,17,50,14,51,13,50,12,50,10,49,10,47,8,46,11,44,10,44,12,41,12v 2,52, 17,52,15,51,9,46,5,46,65,43,65,42,63,42  2,23,32,22,31,24,29,23,28,25,26,24,25,26,23,25,22,27,20,26,19,28,17,26,16,26,13,27,14,27,12,29,14,29,11,31,14,31,12,33,15,34,14,35,18,36,17,37,19,39,18,39,21,41,20,42,22,43,21,44,23,45,2247,25,48,24,49,25,50,24,49,23,50,232,56,51,63,51,2,58,49,60,49M~ 2,9,42,8,41,5,39,5,35,8,33,9,33,12,33,14,37 2,12,37,10,35,9,35,8,35,7,35,7,38,8,39,9,39,8,38,8,36,9,36  2,60,45,59,42,60,40,62,40,63,39,69,39,69,43,68,46,66,48 2,67,42,67,40,62,40,6 3,42,64,4334,38o 2,36,47,36,38,2,38,38,38,65,2,40,38,40,66,2,42,38,42,66,2,44,38,44,66,2,46,38,46,66,2,48,63,48,66,2,48,38,48,57,2,50,52,50,55t 2,52,54,52,55,2,49,65,51,65,2,48,63,55,63,2,48,61,58,61,2,47,59,62,59,2,48,57,63,57,2,54,55,64,55,2,55,53,64,53,"STOP PLAYING WITH THE APPLE!!!!, GO TELL JIM TO WIND UP THE CLOCK AND START IT AGAIN"ZIME (IN TWENTY FOUR HOUR NOTATION)";AW936:"HANG ON, WHILST I WIND THIS APPLE UP"aAA1qQ1999:QMIN(((A100(A100))100.05)(A100)) A1200AA1200:PM1HOUR(AMIN)100:A0HOUR12HOUR0500 :936X*01 CP%S(P%Q%)4 D0,XS140,95279,191XS= ES,XI JM:120Jx}M%((2.78)5)1)M1M%9P%(4)61GP%4131ZQ%(4)(7P%)nP%3ĭQ%1133(P%Q%)7131I%((1)8)2X0278I%S01P%SQ%,XS,0140,95279XS,191@S,XAX1900I%1.01 BS  **** * * * * * * #"N%Z2$;G9$%H0$"* *** * * * * * * * #"%Z3$;H0$=&H1$" * * * * * * #"6$kG7$$pG8$" #*** ***** * * * * * * * #"$uG8$A%zG9$" ***** ****#"#WG5$#\G6$" # * * * * * * *** * * *** #"#aG6$-$fG7$" # * ** * ***** * * * **** * * * *****#"}"MG4$#RG5$" # * * * * * * *** * * ** ** * ** #"]!9G2$!>G3$" # * * * * * #"!CG3$t"HG4$" # * XXXXXX * #"< %G0$ *G1$" # **** * * * XXX * #" /G1$T!4G2$" # ****** * X * #"!Z1$;F8$F9$"# **** * ******************************** * XXXXXXX * #"Z1$;F9$3 G0$" # ***** ** #"Z1$;F6$F7$" # * * XXXX * #"Z1$,F7$ F8$" # * ************************** ********* XXXXX1$;F4$|F5$" # * * * #"Z1$;F5$F6$" # * * ## XXXXX * $vF3$" # * * * #"Z1$;F3$F4$" # * * * #"Z #"Z2$;F0$}F1$" # * * * #"Z2$;F1$F2$" # * * ## * #"Z2$;F2 * #"5Z3$;E8$E9$" # * * ## * #"Z2$;E9$ F0$" # * * #"Z3$;E5$dE6$" ## * * #"qZ3$;E6$E7$" # * * * #"Z3$;E7$(E8$"# * * XG,RYG:G:1 A32 DMX,MYRX,RY:MXRX:MYRY9 FAJ UMX140:MY96R d34 MT MX140:MY9635P223.1415926535BDP2360MPI105^CX140:CY96"I19000:I:DA360(1)1:#2:I01912:0,I279,I:I(A030P2DAD2RX14070API(A):RY9650API(A)?0 @G1A22:MXG,MYGR  ER SPECIFIED":"CURVE."::" ** HIT RETURN ** ";X$:3000XOCEDURES WITH LOCAL VARIABLES, THIS":"PROGRAM SIMULATES TRUE RECURSIVE CALLS""BY MAINTAINING A 'STACK' CONTAINING A":"LOCAL VARIABLE."::" OPTIONS 2 & 3 AUTOMATICALLY RUN ":"THROUGH 4 SUCCESSIVE CURVES. OPTIONS"B"4 & 5 DRAW A PARTICULAR USy"PROGRAM BY CARL MAGDANZ"&.(0),.'Z-QZ8$;J0$I-VJ1$" **** * *"V-[Z8$;J1$-`J2$" ***********"-eZ8$;J2$-j::::::::-o"LITTLE PIZZA MAN"-t:"REGISTERED TRADEMARK OF KAY H. SONGER"." ********* WWWWWWWWW ****** * **"t,=Z3$;I8$,BI9$" **** * *",GZ8$;I9$,LJ0$" *** * *" $I6$" ** * ***************** *** * * * * ******"|+)Z2$;I6$+.I7$" **** * *********** WWWWWWWWWWWWW WWWWWW******* * *****"+3Z3$;I7$g,8I8$ * * *",* Z4$;I3$*I4$" ********* * * * * * ***********"*Z3$;I4$*I5$"** * * * * **************"*Z3$;I5$o+ *")Z5$;H9$S)I0$" * * * *"`)Z5$;I0$)I1$"* * * *")Z6$;I1$)I2$" ***** * * *")Z5$;I2$*I3$" ************* * * * *** *"@(Z5$;H6$}(H7$" * * * *"(Z5$;H7$(H8$" * * * *"(Z5$;H8$ )H9$" * * * *********** * *"3'Z2$;H3$'H4$"* ******** * * ***** * *"'Z3$;H4$'H5$" *************** * * * **** * *"'Z3$;H5$3(H6$" **** * * * * *****#"J&Z2$;H1$&H2$" * ******* * * *** *"&Z2$;H2$&'H3$" * ********* Y(1)191::3:16302,0:I1750:XXY2279(X279):XX279(X279):YYX4191(Y0):YY191(Y0):X,Y:X,191Y:279X,191Y:279X,Y:I:1YY ~}:23:T(T1)2:TT500(T500):17);"DESIGN#"T::Y2039:X2039:XY(T4):X,Y:39Y,X:39X,39Y:Y,39X:X,Y:1T ,-0.6,1N114,155,132,125,108,86,123,863F132,98,138,86,123,86,138,110,165,71,201,71,192,86,174,86,147,125,165,155,228,56,27,71,96,185,1,0,1,0,58,26,115,125,1,0,1,0,129,158,147,185,0.6,-1.2,1,0,69,26,174,26,0,1,-0.6,1,36,71,147,71,0.6,1,-0.6,1,165,71,201,71,0.6,1R16:X1,Y1,X2,Y2,A,B,C,D:Z115:X1AZ,Y1BZX2CZ,Y2DZ:Z:R2<156,56,165,41,81,41,99,71,108,56,99,41,111,125,90,86,54,86,111,185,96,185,27,71,36,56,72,56,54,26,63,11,201,11,174,56,228,56,237,71,165,185,147,185,129,158,111,185,138,140,102,137,>0 :3:NN6:99,71108,56:20:NN19:72,86102,137:20:30Y0N1NN:X,Y:X,Y::054,26174,26:165,41:27,7181,71:72,56:NN16:132,125111,125:200(138,140165,185:156,140192,86:138,86147,71:99,71:201,11210,26:192,56F122:   X1139,80Y179 }CC) ~P(16336)1 C1> C0ĒC2D Q :C20:Y 30v . MODIFICATION FUNCTIONS .X1X1(XR) .Y1Y1(XR) .X1X1X1 2122,& HYPER BY FRED MITCHELL OCT4,784R57.2958:BC1~"TYPE TWO NUMBERS FOR COLOR":"EFFECT (EX: 2,6)";C1,C2#:16302,0:2(C1C17:C2C27dX1180xX1(X57.2958):Y1(X57.2958)y12000 z140X1139,80Y179140 "PINSKI. THE PROGRAM IS WRITTEN IN ""BASIC. THE ALGORYTHYMS ARE DESCRIBED":"WITH ALGOL PROGRAMS IN WIRTH'S BOOK ON":"DATA STRUCTURES. THIS PROGRAM IS AN "N"EXAMPLE OF A RECURSIVE PROCEDURE. AS":"BASIC DOES NOT SUPPORT TRUE RECURSIVE":"PR3,3075 J11:J54:10, J11:J54:1005T :"WHAT DEGREE ";:X:X1X63071f J1X:J5X:10 :"WHAT DEGREE ";:X:X1X73073 J1X:J2X:1005 %:" THIS PROGRAM PLOTS SPACE FILLING":"CURVES OF TWO TYPES, HILBERT AND SIER-":RODUCTION") "2. HILBERT CURVES 1-4 "J "3. SIERPINSKI CURVES 1-4 "r "4. INDIVIDUAL HILBERT CURVES 1-6" "5. INDIVIDUAL SIERPINSKI CURVES 1-7" "6. STOP" ::"WHICH NUMBER ";X 24 X1X63040 X4000,3069,3070,3071,3071100YY2H:X,Y/IIII1:II1:1300FXXHX:YYH:X,Y^IIII1:II1:1400h1900~lIIII1:IS(II):" *** HIT RETURN *** ";X$::::M:3000 ::5 "S P A C E F I L L I N G C U R V E S "::  "1. INTIIII1:II1:1300,XXHX:YYH:X,YD#IIII1:II1:1400W(XX2HX:X,Yo-IIII1:II1:12002XXHX:YYH:X,Y7IIII1:II1:1300<1900xS(II)I:I01900}IIII1:II1:1400XXHX:YYH:X,YIIII1:II1:X,YoIIII1:II1:1100't1900=S(II)I:I01900UIIII1:II1:1200lXXHX:YYH:X,YIIII1:II1:1300YY2H:X,YIIII1:II1:1100XXHX:YYH:X,YIIII1:II1:12001900S(II)I:I01900H:X,Y .IN:II1:13002 3XXHX:YYH:X,YE 8IN:II1:1400\ =XXHX:YYH:X,Yf B1990| LS(II)I:I01900 QIIII1:II1:1100 VXXHX:YYH:X,Y [IIII1:II1:1200 `XX2HX:X,Y eIIII1:II1:1400jXXHX:YYH:) N1031,1032,1033,1034,1035,1036,1037: TT172:1040K TT110:1040[ TT90:1040k TT90:1040{ TT70:1040 TT60:1040 TT40:1040 XTTHX:Y160H:X,Y IN:II1:1100 XXHX:YYH:X,Y $IN:II1:1200 )XXHX:YYX:X,Y IIII1:II1:400. YYH:X,YE IIII1:II1:300N 999d IIII1:IS(II): " *** HIT RETURN ***";X$::::N:3000 MJ1J5::24 " DEGREE ";M NM1 H128(2N) HH4 :HXH:3)I:I0999# 6IIII1:II1:2004 ;XXHX:X,YK @IIII1:II1:300[ EYYH:X,Yr JIIII1:II1:300 OXXHX:X,Y TIIII1:II1:400 ^999 S(II)I:I0999 IIII1:II1:100 YYH:X,Y IIII1:II1:400 XXHX,Y IIII1:II1:100, XXHX:X,YC IIII1:II1:200L 999a S(II)I:I0999x IIII1:II1:300 YYH:X,Y IIII1:II1:200 XXHX:X,Y IIII1:II1:200 YYH:X,Y IIII1:II1:100 999 ,S(IIC S(30)3000# NJ1J5B" DEGREE ";N]H128(2N):HXH32.6f:3(X218HX:Y158H:X,Y2IN:II1<100F1000dS(II)I:I0999nIIII1:II1:400sXXHX:X,YxIIII1:II1:100 }YYH:     0Y179 }CC C1% C0ĒC2+ 8 :C20:@ 30] . MODIFICATION FUNCTIONSn .X1X1(XR) .Y1Y1(XR) 2122.& HYPER BY FRED MITCHELL OCT4,784R57.2958:BC1"TYPE TWO NUMBERS FOR COLOR":"EFFECT (EX: 2,6) ";C1,C2#:2(C1C17:C2C27dX1180xX1(X57.2958):Y1(X57.2958)y12000 z140X1139,80Y179140X1139,8 z#??? ŠǠӠ ǮԠ  ˠҠ Ƞɠ Ƞɠ  Ǡ ҠŠɠ! ҠՠƠ" ҠΠ( Ԡ̠ɠ ԠϠɠԠǠԠǮ" ԠԠ ԠӠŠ ĠŠ ԠŠҠɠ ԠŭӠˠ Ԡ٠ Ԡ͠ˠ ԠŠàԠӠԠ̠ɠ ԠӠ!ԠӠ"ԠҠɠԠҠ֠ԠҠ֠ԠŠ ԠŠҠɠ ԠӠԠӠĠӠԠŠԠŮؠԠРԠԠРԮؠ"ԠŠàԠàԠĠԠĠԠĠŠԠĠӠ ԠŠ2ԠŠӠ ԠŠŠ0ēX,Y:F1:190 X,Y 9 G0G1:0:F0:140A 10G [ ,QQ3.14159180h 6XR(Q)u @YR(Q){ J X0X0 X279X279 Y0Y0 Y159Y159  C COLOR GRAPHICS TEST!F24: MOVE CURSOR TO BOTTOM LINEi(: SET HIGH RES GRAPHICS MODEp27F0:G0: FLAGS FOR FIRST PLOT AND SCALEA026.43.14159.08RAXR(A)YR(A)XX140YY80500 F(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!":T |:1000o 1:" 80N":0,63998:0X23:D$T$A$(A) 4 NAME$(105),A$(105),T(105)L "X138:B$B$"=":j ,X10511:NAME$(X)B$: 6NAME$(0)(B$,19) @D$(4) E12:12::"READING CATALOG"::12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":H h00 L40  MAXX) 85:34,227 23:958s "SELECT A FILE BY NUMBER (X TO END->";A$:A$"X"ĉ:: A(A$):AMAX2010 A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN "  23:T$A$(A) ((NA$(N),8,1))6520006 ((NA$(N),8,1))942000@ XX1Y A$(X)(NA$(N),8,30)s T(X)((NA$(N),2,1)) X20İ30:2000 X20X58X96İ80 X39İ40:2000 $X39X77İ90 .X58İ30:2000 8X77İ40:2000 BX96İ30:20,21:32,19:2:1::0 U33,40:32,0:23:1::v Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,2:35,21::35,24: 60:X0 N1105 (NA$(N),8,1)"="N105:2000 p8(ST6UVk,ȱk-`)1,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";:::X;::5:A$(X):(" ";::X;::" ";:6:(A$(X),15):<1:9:"COMPUTER LEARNING CENTER":20:22:20:34,2:3: P33     7:5:"WHILE LOADING/STORING TAPE"H.9:5:"PRESS ANY KEY TO RETURN"j/11:5:"TO MAIN CHOICE PAGE"r/A${/50029362PL1:PC1:PH100:I%1216000,316700:"ENTER NUMBER OF POINT TO CHANGE":"OR M FOR MAIN CHOICE PAGE"@3A$ IN A BLANK CASSETTE"2-:"AND START RECORDING"^(-:"THEN PRESS ANY KEY TO STORE POINTS"j<-A$:COP-:"NOW PRESS ANY KEY TO STORE PATTERN"d-A$:P1%x-32,0:-216,0-.936:216,0.5:5:"SORRY, AN ERROR HAS OCCURRED"#.PUT IN CASSETTE CONTAINING"B +:"DRAWING, AND START IT PLAYING"o4+:"THEN PRESS ANY KEY TO RECALL POINTS"wH+A$\+COp+:"PRESS ANY KEY TO RECALL PATTERN"+A$+P1%+32,0:+216,0+,936:12000,32,5:-:"PUT>!R0RR10H!5100M!16700:"ENTER DISTANCE":"(CURRENTLY ";R;")":R!16700:"ENTER ELEVATION ANGLE":"(CURRENTLY ";P;")":P!16700:"ENTER LEFT-RIGHT ANGLE":"(CURRENTLY ";T;")":T!5100(#:*936:12000+32,5: +5:"VX%(P%),VY%(P%)'I%I%1:P%P1%(I%)170207LA@PP5TJP360PP360^T5100hPP5yP0PP3605100 TT5 T360TT360 5100l TT5v T0TT360 5100 RR10 R0R10 51004!RR10VY%(I)0VY%(I)160ī6500$8.B6700d16700:"SORRY, THIS IS OUT OF SCREEN BOUNDS":"PRESS A KEY TO TRY AGAIN":ER1A$,X:3bI%1:P%(P1%(I%))lP%0ī7500P%0ī7200VX%(P%),VY%(P%)7400 P%P%4I1MPUS%(I)0ī62003X((XCCO(I,0))XV)IY(CO(I,1)YC)ZVbZ((ZCCO(I,2))YV)sXTXCTZSTYTXA1YCPZA3ZTXA2YSPZA4ZT0ī6500VX%(I)280XTZT140VY%(I)80160YTZTVX%(I)0VX%(I)280ī650001zCT(TAR):ST(TAR):SP(PAR):CP(PAR)YA1STSP:A2STCP:A3CTSP:A4CTCP THE ABOVE STATEMENT GETS THE CROSS-PRODUCTS OF SIN AND COSINE OF THETA AND PHI TO AVOID MULTIPLYING THEM DURING ROTATION LOOP.XVRA2:YVRA4:ZVRSPINTS%ER0İ7000: DISPLAY POINTS16700:"U=UP,D=DOWN,L=LEFT,R=RIGHT,F=FORWARDS":"B=BACK,Y=YOUR OWN VIEWPOINT,":"OR M FOR MAIN CHOICE PAGE ";S$"UDLRFBYM":2000A%8000,8100,8200,8300,8400,8500,8600,90005020pAR3.14159265418:4140! "CO(I,0)XHXHCO(I,0)B ,CO(I,1)YLYLCO(I,1):4160] 6CO(I,1)YHYHCO(I,1)~ @CO(I,2)ZLZLCO(I,2):4180 JCO(I,2)ZHZHCO(I,2) T ^XC(XLXH)2:YC(YLYH)2:ZC(ZLZH)2 :3 R400:T0:P0ER0:6000: ROTATE POTTING UP..."1 XLCO(I,0):YLCO(I,1):ZLCO(I,2)G XHXL:YHYL:ZHZLP MP0h I1100:US%(I)0:u I1200 US%((P1%(I)))1 P1%(I)04100 P%(P1%(I)) P%MPMPP%  I2MP US%(I)0ī4180 CO(I,0)XLXLCO(I,0)A$ A$"E"(A$)3ī32767' A%1@ A$(S$,A%,1)ī2200L A%A%1a 4A%(S$)ī2060 H23:1:"PLEASE ENTER ONE OF "; \I1(S$)1 a(S$,I,1);","; f p" OR ";(S$,1) 2000 23:1:958  936 12:14:"SEFY PATTERN FOR CONNECTING":" THOSE POINTS"J 0:"4. VIEW THE DRAWING"p ::"5. STORE THE DRAWING ON TAPE" D:"CHOOSE ONE OF THE ABOVE":"OR TYPE 'E' TO EXIT" N32,0: X20:S$"12345":2000 bA%11000,13000,20000,4000,11500 l500 EWMAN AND SPROULL"C 21:5:"PRESS ANY KEY TO CONTINUE, PLEASE."K A$U 936z 3:5:"WHAT DO YOU WANT TO DO?" 32,5::"1. RECALL A DRAWING FROM TAPE" :"2. MODIFY COORDINATES OF THE":" POINTS THAT MAKE THE DRAWING"- &:"3. MODIL4CO(100,2),VX%(100),VY%(100),P1%(200),US%(100)>9363:12:"3-D EXTRAVAGANZA":5:18:"BY":7:13:"J D EISENBERG"11:5:"FORMULAS AND THEORY DERIVED FROM:" 13:5:"PRINCIPLES OF INTERACTIVE":5:"COMPUTER GRAPHICS":16:5:"BY N            800 1200% 20/ 1200D A(C)P(NAN)M 200b $A(C)P(NAN)k .200u 31200~ 8400 =1200 B600 L1200 V1015 I13000:I  D(AN)Q((PQ)ANQ)' XX130:YY75@ SW0ēX,Y:SW1:740J X,YQ JW l DE23.14159900x *P3:Q4 /SW0 4I090010 >THDEI HX130130(PTH) RY7575(QTH) \SW0ēX,Y:SW1:880 fX,Y pI z 3 XX130:YY70* SW0ēX,Y:SW1:5104 X,Y; IA Q XP60:Q22.5Z ]SW0e bDT300x lF23.14159DT vI161 DLPIQ(PIQ) DL.00001670 I J0IDT10 ANJF X(PQ)(AN)Q((PQ)ANQ) Y(PQ)004 ANIF RA(C)- XR(AN)130> YR(AN)70W SW0ēX,Y:SW1:300a "X,Yh ,In 6 P22.5:Q18.75 SW0 F23.14159250 I0125010 ANIF X(PQ)(AN)Q((PQ)ANQ) Y(PQ)(AN)Q((PQ)ANQ) 1000SW0$R104010/P60R:(Q15RN2F23.14159300]<I03004hFANFIzPX130P(AN)ZY75Q(AN)dSW0ēX,Y:SW1:110iX,YnIsSW0xRP70:N4SW0F23.14159600 I06   936 . "SAVE PLOT TO DISK ? ";R$C (R$,1)"N"450` "WITH WHAT FILENAME";N$ (4);"BSAVE ";N$;", A16384,L8192" " Q15:Q,Q: Q15:Q,6Q:  W2)) RHP0HP279200. SVP0VP189200< THPHL90Y XA%(HP)VP:B%(HP)VP:120v ZVPA%(HP)VPB%(HP)200 dVPA%(HP)A%(HP)VP:120 nVPB%(HP)B%(HP)VP xH1(HP) V1192(VP) H1,V1 :HLHP 400 R$ A%(280),B%(280)&OY25:OX90/:3PI1280:A%(I)OY:B%(I)OY:X#C0g(Y010.4r-CC.22Y0OYC5:X0OXC12<X1010.02AX15(X):Y15(Y):D(X1X1Y1Y1)FZ4040(2D)(2D.001) PHPX0(7X):VP(Y0(Z  (6A),95R(2A) A:140$ = (222)255ĉ::126 (222)9ĺ"SORRY, NO SPACE LEFT ON THIS DISKETTE.":"EITHER EXCHANGE DISKETTES OR FORGET IT."::"PRESS RETURN TO CONTINUE.";A$::127 32767 ""ERR=";(222):32767$ ,:::"WHAT "YOU MUST CHOOSE A MAJOR SHAPE FACTOR."c "WHAT NUMBER AS A SHAPE FACTOR (3 TO 32)?";M:M99300r M032767 M551000 M3M32140 N(1)M1 16302,0 3 140,95 A0256(1).01 R((MN)A)95 140R d245Ax::5:"STRING ART PRETTY PICTURE MAKER!!!!!!!!"p}:"TYPE CONTROL C TO HALT THE WHITE PEN."v~"TYPE 99 TO SAVE THE PICTURE.":"TYPE 55 TO SEE THE LIST OF PICTURES.""YOU MAY QUIT BY TYPING A 0 (ZERO).":' EPS"E:" B- FOR TURNING 180 DEGREES VERTICALY IN 10 STEPS"u:" C- FOR CHANGING TO A DIFFERENT FIGURE":" I- FOR INSTRUCTION LIST":" X- TO QUIT":"TAP ANY KEY TO GET A PICTURE"Z$+F5F11014M)1:[I16:P(1,I)22\P(2,I)21.5(M9I)P]P(3,I)21.5(M9I):I:{::" -----ACTION CODES ARE-----":" H- FOR HORIZONTAL ROTATION":" V- FOR VERTICLE ROTATION":" A- FOR TURNING 180 DEGREES HORIZONTALLY IN 10 ST110OF4H6:1115#PF5300VP(1,1)3:P(3,1)3:P(1,2)3:P(2,2)3:P(3,2)3:P(1,3)3:P(2,3)3:P(1,4)3:P(3,5)3:P(2,6)3:P(3,6)3:P(2,7)3XP(2,1)1:P(3,3)1:P(2,4)1:P(3,4)1:P(1,5)1:P(2,5)1:P(1,6)1:P(1,7)1:P(3,7)1:P(1,8)1:P(2,8)1:P(3,8RN"::" 1- CUBE":1" 2- SQUARE":[" 3- SQUARE WITH CROSSED CENTER":r" 4- HEXAGON":" 5- QUIT":"WHICH ONE ?";FF5F11014"NO SUCH FIGURE.TRY AGAIN":1002LF1H8:1110MF2F3H4:13:P(J,I)X(J):J:*X2X(1)2:Z2X(3)2EX(1)X2(D)Z2(D)2`X(3)X2(D)Z2(D)2f~X2X(1)2:X3X(2)2X(1)X2(D)X3(D)2X(2)X2(D)X3(D)2,::"CHOOSE WHICH FIGURE (BY NUMBER ), AND THEN TAP RETU4),Y(4):' HERE FOR THE HEXAGON ~ G(1),Y(1)G(2),Y(2):G(3),Y(3):G(4),Y(4):G(5),Y(5):G(6),Y(6):G(1),Y(1): 23:"THROUGH WHAT ANGLE (IN DEGREES)?";D DDM: I1H:110:200:180:I: I1H:110:190:180:I:J1 F2ı F3149` G(1),Y(1)G(5),Y(5):G(6),Y(6):G(7),Y(7):G(8),Y(8):G(5),Y(5) G(8),Y(8)G(4),Y(4):G(7),Y(7)G(3),Y(3):G(6),Y(6)G(2),Y(2) 2:G(5),Y(5)G(7),Y(7):G(6),Y(6)G(8),Y(8): 2:G(1),Y(1)G(3),Y(3):G(2),Y(2)G((2)2X(1))D1* zT(2)(5X(3)2X(1))D10 {; J12S H(J)(T(J)1)2.54g L(J)(H(J).5)z G(I)8L(1)40 Y(I)8L(2)20 J: 3:: HERE FOR THE SQUARE F4151 G(1),Y(1)G(2),Y(2):G(3),Y(3):G(4),Y(4):G(1),Y(1)100:140:NO:40 2C$"C"15/ 3C$"I"25? 4C$"X"300N 5C$"T"60 6"I DONT UNDERSTAND THAT ":I1500:I:39 dI1H:110:120:130:I: nJ13 oX(J)P(J,I) pJ: tP(2,I)21.5(M9I) xD15X(1) yT(1)(5X PROJECT AND LOAD, #140: PRINT GRAPHICS2 'O (23:"WHICH COMMAND?";C$n )C$"H"İ160:170:100:35 *C$"V"İ160:175:100:35 +C$"A"45 ,46 -NO118:D10M:170:100:140:NO:40 .C$"B"48 /50 0NO118:D10M:175: G 3D PROJECTIONS OF A CUBE,SQUARE,CROSSED SQUARE, AND A HEXAGON.g X(3),P(3,8),F(1),T(2),L(2) M3.14159265180:M93.1415926531000: PRINT FIGURE CHOICES 1100: DECIDE WHICH FIGURE 1200: PRINT ACTION CODES  100:     170200,130:200,130190,130d210,130210,170:210,170220,170:220,170220,130:220,130210,130180,170230,170:230,170230,172:230,172180,172:180,172180,17024703030016,22:116,22124,14:124,14128,10r 128,10126,18:126,18122,28:122,28116,34:116,34110,40:110,40110,34 110,40128,10 3 180,128230,128:230,128230,130:230,130180,130:180,130180,128190,130190,170:190,170200,170:200,55:184,55180,44:180,44174,34 n174,34172,30:172,30162,22:162,22160,20:160,20142,20:142,20138,22:138,22130,26:130,26126,30 x126,30122,34:122,34120,40:120,40100,40 1# 110,40110,34:110,34112,30:112,30114,26:114,26136140,130:140,130144,120 Z144,120146,110:146,110148,108:148,108154,104:154,104150,100:150,100150,96:150,96154,92:154,92158,90 d158,90156,84:156,84160,80:160,80166,78:166,78176,76:176,76182,76 i182,76186,60:186,60184,i F90,176110,176:110,176112,180:112,180118,188:118,188120,190:120,190126,190:126,190128,188 P128,188132,182:132,182134,180:134,180136,174:136,174142,164:142,164146,154:146,154150,146 U150,146148,142:148,142146,136:146,1:16,6012,70:12,7010,80 210,8012,90:12,9014,100:14,10016,106:16,10618,110:18,11020,116:20,11622,120:22,12036,146:36,14658,180 <58,18066,188:66,18870,190:70,19072,190:72,19076,188:76,18880,186:80,18684,182:84,18290,176.0 24576 BY BUD GROVE8 PHONE 213-549-9664R TOPPLESS SOFTWAREXaK2hK100,4070,20:70,2050,20:50,2042,22:42,2238,26:38,2634,30:34,3030,34:30,3426,40 (26,4022,44:22,4420,50:20,5018,54:18,5416,60               G@q            L187,39,192204,28,206K208,31,204,206,30,210,205,29,210,207,28,210T 801d!Y((1)4)x"X((0)5)190#(16287)127ī1000*X,Y:X,Y4801R7:16182,28198,28:198,39:182,39182,286:8014:90037,178#Z 170,38,178,173,39,178 `189,28,193,186,29,194,196,30,185,184,31,188,193,31,197 184,32,186,193,32,198,196,33,198,183,33,186,186,34,183 198,34,195,196,35,198,186,35,184,184,36,186,194,36,197 184,37,188,192,37,196,185,38,195,,173I158,173,163,178,163,178,158,183,158,183,147,183,147,178,147,188153,178,153,188,137,178,137,188,137,188,143,183,143,183,137,178X174,28,178,170,29,178,169,30,178,172,31,168,172,32,168Y168,33,172,172,34,168,172,35,168,178,36,168,170,47>181,91,192,181,90,192,183,89,192,180,93,182,180,92,182z180,94,182,184,98,192,182,97,192,182,96,184,180,95,182133,178,127,178,127,178,127,188,127,188,133,188,133,188,133,183133,183,122,183,122,183,117,178,117,178,122,173,122,173,158,91,125,119,92,124,118,93,123,118,94,123d.118,95,123,119,96,124,120,97,127,121,98,127,123,99,127138,89,101,139,89,101,140,89,101148,93,152,148,94,152,148,95,152,146,96,151,143,97,149140,89,149,140,90,150,146,91,152,147,92,152,143,98,1' i109,108,115,99,109,103,111,109,113d 111,80,113,80,110,81,112,81,109,82,111,82,109,83,111,83 108,84,110,84,107,85,109,85,106,86,108,86,107,87,107,87 113,79,113,79 ,130,89,99,132,89,99,131,89,99,133,89,99(-125,89,130,122,90,130,120120,110,87,117,95,89,117O e96,89,118,94,90,117,94,91,116,93,92,116,92,93,116 f92,94,115,92,95,116,93,96,116,93,97,116,93,98,117 g92,99,119,93,100,119,94,101,119,95,102,119,95,103,119 h 95,104,119,96,106,118,96,107,115,98,108,105,96,105,1181,32139,35 C142,32* DX112:A,B,C7 FA,BC,B> HXQ KX119:A,B,Ca LA,BC,B:X M193,33193,35:182,33182,35 OA,B,C:X311 PA,BXC,BX:X QX14:A,B,C RA,BC,B:X S212,28212,30 d98,87,102,114,86,116,97,88,,B60 7X 8X110:A,B,C8 9A50,B60C50,B60H :A,BC,B:Xj ;174,85174,98:176,85176,98 <190,92188,95:191,92189,95 =192,92:3 >X015 ?G,D,H,A:G,DH,A @X:6 A126,25126,38:124,25124,38 B140,32138,35:14,BC,B +X ,% -X13:D,E,FA .D,ED,F:D18,ED18,Fo /D50,E60D50,F60:D32,E60D32,F60 0D80,E60D80,F60 1X 2X110:A,B,C 4A,BC,B:A18,BC18,B 5A32,B60C32,B60:A50,B60C50,B60 6A80,B60C80   "APPLE" :#5)5X128IA,B,C:A,BC,BPXV]1hX19~D,E,F,G:D,EF,G X"#6:X14%A,B,C:A,BA,C&A50,B60A50,C60'X(X111:A,B,C)A50,B60C50,B60 *A     "PITCH(0"RUN"b @D$"CLOSE TEMP"u JD$"EXEC TEMP"{  657:I$"" A512767:K(A)128:K13I$I$(K):  L*** FOR EXAMPLE THE EQUATION FOR 50 % MODULATION OF A 100 WPE THE LINE INCORRECTLY,"H "THEN YOU WILL GET A SYNTAX ERROR LATER."N } "TYPE THE FUNCTION NOW, THEN HIT RETURN." "(DO NOT TYPE A LINE NUMBER.)" 1000 I$""Ā ,D$"DELETE TEMP" .D$"OPEN TEMP" 0D$"WRITE TEMP" 6EMENTS"5 q"ON THE SAME LINE, SEPARATED BY COLONS."; rZ s"YOUR STATEMENTS MAY USE"~ t"ANY SINGLE LETTER VARIABLES." v x"THEY MAY INCLUDE" z"ANY FUNCTIONS DEFINED BY BASIC," |"SUCH AS SIN, COS, LOG, AND EXP." ~ "IF YOU TY  D$(4) Q$(34)/D$"NOMON C,I,O"72:dd"TYPE IN THE FUNCTION YOU WANT TO PLOT"f"AS A BASIC STATEMENT"h"FOR CALCULATING Y FROM X."jn"MORE THAN ONE STATEMENT"o"MAY BE USED, IF NEEDED." p"IF SO, TYPE THE STAT    Ljmm 8 mm 8 m8 8 m8 8 ` 2PRȘ   dH hL| O TRY AGAIN";I$%D$"RUN GRAPH II"I"ERROR: FUNCTION IS CONSTANT"O^AA11100gTT1AATTTT10TT:1020AATTLTL1VTTTL10:AATTTLTT:1110`AATLj ?";:N$:N$:NN(N$)",NN1509.NN2ĺD$"RUN"P$:V0NN3ĺD$"DELETE TEMP":_2810tP$"GRAPH"960:"EITHER YOU DIDN'T ENTER A FUNCTION""OR THE FUNCTION WAS CONSTANT""(YOU LEFT OUT THE X MAYBE?)."HIT RETURN TXT" BY "XTE m"Y: "YL" TO "YH", GRID "LYYT" TO "HYYT" BY "YT;40)M I$g ::"YOU MAY EITHER" ""1) PLOT THE SAME FUNCTION" $" OVER A DIFFERENT RANGE, OR" &"2) PLOT A NEW FUNCTION, OR" ("3) STOP."*"DO YOU WANT 1, 2, OR 3IIIIQQ II,0:II,YM . TTLYHYI JJ((Y2TTYT)DYHH)W 2(TT0)i 0,JJ:XM,JJo v 3 II0XM:XXLIIIX II0ēII,((Y2Y)DYHH)::600 II,((Y2Y)DYHH): X l"X: "XL" TO "XH", GRID "LXXT" TO "HXYTYT2 6LX(X1XT)4 7(LX1)XTX1LXLX1D 8HX(X2XT)_ 9(HX1)XTX2HXHX1q :LY(Y1YT) ;(LY1)YTY1LYLY1 <HY(Y2YT) =(HY1)YTY2HYHY1  TTLXHX II2(((TTXTX1)DX1)2) QQTT0:2QQ:A AA(RYFC):1000:CYAA+ YLY(YL)9 YHY(YH)H Y1YD(YL)W Y2YU(YH)d YRY2Y1q DYYRYM ,XUXR20:AAXU:1000:XTAA .XTXU5XTXT5 /XTXU2XTXT2 1YUYR20:AAYU:1000:YTAA 3YTYU5YTYT5 4YTYU2 nRXXHXL:RX0100# xIXRXXM? AA(RXFF):1000:AXAAN X1XD(XL)] X2XU(XH)j XRX2X1w DXXRXM II0XM:XXLIIIX YYLYLY YYHYHY II0Ă:240 YLY:YHY: RYYHYL:RY0900 AA(RYFF):1000:AYA D$(4)HH.5#FF1000.FC100@ XM279:YM159WXD(X)AX(XAX)pXU(X)AX(XAX)Y(Y)AY((YAY)HH) YD(Y)CY(YCY)"YU(Y)CY(YCY)2::ZP$"GRAPH"d"MINIMUM X=";XLf"MAXIMUM X=";XH  ***********************: * *W * DON'T FORGET THE *t * CONTROL CHARACTERS * * (CTRL)@ IS THE * * FASTEST ONE! * * * ***********************128:793,48:794,237:795,96:796,162:797,8:798,202:799,240:800,250 801,160:802,240:803,136:804,208:805,253:806,240:807,246 768 KEY(16384):16368,0 KEY155Ā 802,240(KEY207) 140 (222)255KEY130:170 70:0,4739:0,390:0,3946% PA1 d768,169:769,0:770,141:771,87:772,192:773,141:774,82:775,192:776,141:777,80:778,192 n779,32:780,28:781,3:782,141:783,81:784,192:785,32:786,28:787,3:788,173:789,0F x790,192:791,201:792,1 190 I(808)96(809)34ĺ(4);"BLOAD ^ART FLIP IT.X"]808,96:809,3410:16:(34);"FLIP-IT";(34)(12:12:"BY CHIP ANDERSON"214:3:"(HIT 'ESCAPE' TO STOP,"<15:11:"ANY OTHER KEY TO CHANGE SPEED)" F10:0,4   @*@nq T:  UU+W.@.wunW*U*U*U~uzw/:].W pL APA@+R& (U@r@pPj-V!"\} p\3U U*r\ jY D `& @P",SS)(TP@E"6`& @P",SS)(TP@E"6"\} p\3U U*s@ j[c D +R& (U@v0@pPj-V!pL APA@U+W.@.wunW*U*U*U~Uzw/:].W @*@nq T:  U(WPP.F @E:P@w{Pr   u {[aPi u.""  h "@!@.(A \. (Yp|a`@Wj}N008pX, AD Q0p@ W  FU@*p Q (DPU`DL/P PE" ,M@8EBA'Y._9n>.(@W8pTP`"@!4]Pt0Y D}*`a{p?8`U "D `A2@VoU848@  W& @:\*P+B ne  U:8 U#\:ujtj_~U*@!Uj{@+Uju"DA0@ *\& 0L@!G.(U`@@1t*$+ Q0o?8gUT ;nyBanoQ ( .Q` 0&T#`hp('@E F##@ @ F.Do@9.U*U:g n @ -*`_a@>@k(.G$0L &@@D"@ W.]:ujU+W@g{_~_*UP*Uo]7V+Uju:].W+@@+Pzt  p:U(W+@.B 42pu_z@:E"0u zVGurt*@A (]8a @+ @ 8Q. ?008on@``@M6@@D Ah8DCyn@*0(& T ODV  "&(&&@s~+}'\? @,`*@ (} @!P:`L FA |j8p#WPow``U8 & h: |~w3>m A0W.Yt0U P @01: ] @ @+wk}oU @ U*w;W.PDE:U@,FPW U 8 @cu*@W T*U"F `mw0TN{'UP*~ucp?3#T*UA @F @   P&q`( Q T) (hp8VTP@Yoa!gW*U3(8|_ QP &]+@ k@R.F $D(P&!T p  & P*W.]:ujU+W~w;}~_*U.W+UokwoW+Uju:].W+U@!PjA @:U*P+ Wt(u~wKA@8Q 8q8xUW{et(AD*M 4U(!P @ .PM@0]~_:~`D"  n`tts~3* "D "E8(P w+uku*#@+TjpA :u@+ TP@p:5 ku+ `z]A 0:u(``uo:1 p* @D/]8j`!(hQ*AY` Uow;|Y0& hj@q?ej`E F           WA`0WA H Q10279WA) Q277834 Q1,Q2@ Q2:Q1F W Q1800WAg Q2Z3Z3} Q20Q22794030 Q2,Q1 Q2:Q1 Q180160WA Q2Z3Z3 Q20Q22794070 Q2,Q1 Q2:Q1:@BE SU WANT THE ORIGIN" ( "L = LEFT"9 "R = RIGHT"K "M = MIDDLE"Q b "WHERE?";A$h  "WHAT STARTING VALUE";B  "WHAT ENDING VALUE";E * 4"WHAT STEP";S 9 >"HOW MANY UNITS OF THE X AXIS";WA AWBWA CWA2800 " ":" NOMON C,I,O"/ " RUN AAA":5 U " G R A P H I N G"[ a  "PLEASE ENTER YOUR EQUATION AT 80"  $"USE THIS EXAMPLE:" ) ."80 Y=X" 3 8"THEN TYPE 'RUN 10' ENTER" B  "WHERE DO YO:Y80Y; ]X10Y0ĺ"STILL PLOTTING BUT OFF SCREEN":110s aX1279Y160ĺ"STILL PLOTTING BUT OFF SCREEN":110 dX1,Y: n s23 u"FINISHED PRESS RETURN " xB$:: "DO YOU WANT DO ANOTHER GRAPH?":O$ O$"Y"O$"YES"10  1000 2000"2CA$"M"ē140,0140,160:Z140^(A$"L"ē0,00,160:Z02A$"R"ē279,0279,160:Z279<0,80279,80AWB40İ3000CWB40İ4000D3FNBESI23KXNPY(X)UXXWA:YYWA ZX1XZ    sr::3:I025010:J01709:I,JI5,J9I9,J:J,I:21:10:"HERRINGBONES FOREVER":13:"BY THE MAD MC'S"-,5,11,3,10,1,1#  9,5,11,3,9,2,19  10,3,12,3,8,3,1K  10,3,9,17,1]  10,3,9,17,1f  40y I110::I:A,3,10,1,1  5,3,7,3,7,3,123 * 5,3,6,3,8,3,12K 4 5,3,6,3,8,3,4,2,6c > 6,3,5,3,8,3,4,2,6w H 6,3,5,3,8,9,6 R 7,3,4,3,8,9,6 \7,3,3,3,9,3,4,2,6 f 7,3,3,3,9,3,4,2,6 p 8,3,2,3,9,3,12 z 8,3,1,3,10,3,12  8,7,10,3,12  9 3,4,13,3,8,4,5&  3,4,13,4,6,5,5?  3,4,11,1,2,4,4,6,5U  3,4,10,2,2,13,6j  3,4,9,3,3,11,7{  1,18,5,8,8  1,18,7,4,10  40  1,8,5,8,1,16,1  1,8,5,8,1,16,1  4,3,9,3,6,3,8,3,1  4,3,9,3,6,3,9,2,1  4,3,8,3,7T$(I);:I:P0% A140ĺ(13):200. 2107 X 40I ] 1,8,17,4,10Z b 2,6,16,8,8l g 3,4,16,10,7~ l 3,4,15,12,6 q 3,4,14,5,4,5,5 v 3,4,14,4,6,4,5  3,4,13,4,7,4,5  3,4,13,3,8,4,5  3,4,13,3,8,4,5  3,4,13,3,8,4,5 z(<"YOUR MESSAGE PLEASE?";A$:L(A$)BFT$(120):I110::IVGI110:" ":IgdJ0(60L)rnI1LxT$(JLI)(A$,I,1)I:JC0A11:P1:CC1:C42999A:A1A1A:P1300I1A:" ";:I:P1:400 ,IA1AA11: tC(8(1))C01'C41221:Cl ::C:I025010:J01709:I,JI5,J9I9,J:J,Is1- ,50,2,17,40,17,43,2,16,45,16,57,2,18,41,18,62,2,20,38,20,66,2,22,38,22,66,2,24,66,24,60,2,26,61,26,65,2,28,61,28,65j 2,30,61,30,65,2,32,61,32,65,2,34,61,34,65,2,36,60,36,65,2,24,47,24,38,2,26,46,26,38,2,28,46,28,38,2,30,46,30,38,2,32,46,32,38,2,34,46,2,29,38,2, 32,32,32,38,2,35,32,35,38,2,38,32 ,38,38 ` 2,41,32,41,38,2,44,32,44,38,2,47,32,47,38,2,60,45,58,48,2,62,46,60,49,2,64,47,62,50,2,66,48,64,51,2,22,66,22,71,2,41,66,41,71,2,44,66,44,71,2,47,66,47,72se 2,13,43,13,47,2,15,41,153,0,27,55,28,55,28,56 ,30,55,31,55,31,57,30,57,30,56,28 ,57,27.5,57,27.5,55V 2,31,52,27,52,27,50,31,50,31,50.5,28,51.5,28,51.5,31,51.5,31,52A[ 3,1,9,42,12,44,2,11,4 0,14,42,2,17,40,13,38,2,23,38,23, 32,2,26,32,26,38,2,29,39,22,54,24,52,22,52,22,49,25,46,35,46,38,49,38,52,36,54 L 2,37,56,37,58,35,60,25,60,23,58,23,55,25,53,34,53,35,52,35,50,34,49,26,49,25,50,25,51,23,51,23,49,25,47,35,47,37,49,37,52,35,54,26,54 M 25,55,25,57,26,58,34,58,35,57,35,56,37,56WQ 6= 2,15,50,11,45,10,46,7,43,9,42,15,36,17,40,18,41B 2,50,66,51,65,55,63,62,59,63,57,64,53,65,52,66,52,67,49,58,44,57,47,58,48,57,49,56,51C 55,53,54,55,50,55,48,57,47,59,48,61,48,63,49,65,50,668G3,3,36,54,38,54,38,58,35,61,35,61,25,61,22,50,24,65K3 2,38,74,39,73,38,72,39,71,38,70,39,69,38,68,39,67,38,66,39,658 3,1,24,71,22,71,20,71,20,66,17,60,15,55,15,50,14,45,19,40,20,38,20,32,50,32,50,38,49,43,48,50,53,55,50,55,48,57,47,59,48,61,48,63,49,65,50,66,50,72,47,71,44,71,41,71,39,71 5k$ 3,3,24,75,37,75,38,74,36,71,37,75,36,73,34,73,33,75,32,73,30,73,29,75,28,73,26,73,26,75,25,72,24,75) 2,26,65,27,68,27,65,28,67,29,67,35,65,31,67,32,67,33,65,34,67,35,67,36,65,37,68,38,65,25,65. 3,0,25,72,24,71,25,70,24,69,25,68,24,67,25,623,87,22,87,23,88,25,89,27,88,25,88,27,87,28,84,27,85,27,83,27,84,25,86,24,88,23,85,25,82  3,0,30,83,31,83,33,82,31,81,30,81,28,82 2,23,75,23,77,24,80,25,82,27,83,28,83,34,83,36,82,38,80,39,78,39,78,39,76,38,74,37,75,35,76,30,76,26,76,23,71,23,93,2,36,82,37,83,37,85,38,84,39,86,38,84,40,87,41,85,42,87,42,85,44,85,43,84,42,83,43,82,41,82  42,80,40,81,40,80,39, 81,39,80,38,80,39,80,42,89,3 6,82,40,83,38,80,38,82,36,82 _  2 ,25,82,24,83,24,81,23,83,22,82,22,85,8,23,100,23,98,24,97,24,96  2,44,90,45,89,46,91,47,89,49,94,49,92,50,94,51,96,51,94,54,97,53,94,55,95,53,92,52,90,54,91,52,88,52,86,53,87,51,83,53,84,51,81  53,81,51,78,53,78,50,75,52,75,50,72c  2,48,89,52,94,51,88,50,90,2,22,90,22,97,25,929,94%  2,33,94,31,94,31,90,33,90b  2,37,94,35,94,34.5,93,35,92,37,92,37.5,91,37,90,35,90  2,39,94,39,90,41,90,41,94   3,0,24,80,23,79,22,80,21,79,20,80,19,81,20,82,19,83,21,85,19,86,21,88,20,89,21,90,21,92,20,97,21,96,21,97,21,99,22,900,39,99,36,98,34,98,32,99,27,97,26,97,43,97,44,97,45,96,44,96,43,92,43,89,42,90,41,89  40,90,39,89,38,90,37,89,36,90,35,89,34,90,33,89,32,90,31,89,30,90,29,89,28,90,27,89,26,90,25,89,25,93,24,96,25,95  2,39,99,43,97  3,3,27,90,27,94,29,90,odnX,Y:500!x3:X,Y3X,Y:X5300<500FX,YO130\,X0400h6X1Ē3@X2XY:Y:500:X,Y:130JX3Ē3:X,Y:500:X,YT130X(269100)X20Y159((Y)159100)10V  34,100,35,100,36,1! ! ! ! !!!!!!!!!    ::3:I025024:J017012:I18,J6I12,JI6,JI,J6I6,J12I12,J12I18,J6I24,J6:J,I:21:11:"HONEYCOMBS FOREVER":12:"BY THE MAD MAC'S"O! 'WWWW'' WWWWWWWWWWWW##"8Z3$;C9$D0$" ## **** WWWWWWWWWW ##"Z3$;D0$D1$" # ** WWWWWWWW #"WWWWWWW"Z4$;C6$gC7$" # <''',,,,,, ,> * <-'''''',. WWWWW WWWWWWWWWWWWWWWW"tZ4$;C7$C8$" # 'WWWWW'' ** ', WWWWW,'> WWWW WWWWWWWWWWWWWWWW"Z4$;C8$+C9$" #### ****C4$" #***** *****WWWW ## WW"XZ4$;C4$C5$" # WWWWWWWWWWWWWWWWWW WWWWWWWWWWWWWW # WWWWWWW"Z4$;C5$C6$" # ,,=, 'WWW WWW WWWWWW WWWWW Z4$;C0$NC1$" #******************************** #"[Z4$;C1$C2$" # **** ##"Z4$;C2$C3$" # ***** ##"Z4$;C3$K * #"wZ3$;B7$f|B8$" #####**** * * **#"sZ3$;B8$B9$" # * * ****** #"Z4$;B9$C0$" # * ********* #" #"YZ3$;B4$a^B5$"# * ******** * * #"ncZ3$;B5$hB6$" ## **** * * #"mZ3$;B6$rB7$" ##### ***** * ;Z3$;B1$X @B2$" ## ******* * ####"e EZ3$;B2$ JB3$"## ** * * #" OZ3$;B3$ TB4$"# * ****** * * ######### * * ##"H 'Z4$;A0$ ,B0$" ###### * * ##" 1Z3$;B0$ 6B1$" ### * * ####" #" Z7$;A6$K A7$" ### **** #"X Z6$;A7$ A8$" #### #" Z6$;A8$ A9$" ##### #" Z5$;A9$; "A0$" ### ####" Z7$;A2$M A3$" #### ###"Z Z7$;A3$ A4$" ## ******* ##" Z7$;A4$ A5$" ## **** ***** ##" Z7$;A5$ A6$"## ** ** "f Z7$" " Z8$" " A1$" ###########" Z8$;A1$ A2$" ####-&dZ1$" "5nZ2$" "^xZ3$" "Z4$" "Z5$" " Z6$" " " " """""""""                CC C1 C0ĒC2 & C MODIFICATION FUNCTIONT X1X1(XR)d X1(Y1)X1y (X1)1X11X1 7& HYPER BY FRED MITCHELL OCT4,784R57.2958<C1Bv"TYPE TWO NUMBERS FOR COLOR":"EFFECT: ";C1,C2#:2(C1C17:C2C272X1180<X1(X57.2958):Y1(X57.2958)F200P140X1139,80Y179140X1139,80Y179 }""