' +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- (  Ϡ@跻~!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 ~(` 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" d nx3*M(0)3019N(1)M1?M:140,95SiA0256(1).01oR((MN)A)95140R(A),95R(A)A:140 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`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@@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\o8 `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 |` |p01 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 4,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|x0p00pa p` x `|@`XN~x| @s`?x<8pp`<~@`s@` >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@=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$"# * * ~}:23:T(T1)2:TT500(T500):17);"DESIGN#"T::Y2039:X2039:XY(T4):X,Y:39Y,X:39X,39Y:Y,39X:X,Y:1T 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$" ,-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:  E DX1139,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 '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 } ,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"Oz #? ҠՠƠ ҠΠ( ŠǠӠ  ԠӠŠ ĠŠ ˠҠ Ƞɠ Ƞɠ ! Ǡ" ҠŠɠ ԠӠ Ԡ̠ɠ Ԡ̠ɠ ԠϠɠԠǠԠǮ" ԠԠ ԠŠ ԠŠҠɠ ԠŠҠɠ ԠŭӠˠԠ٠Ԡ͠ˠ ԠŠà ԠРԮؠ"!ԠŠ"ԠӠԠӠԠҠɠԠҠ֠ ԠҠ֠ ԠŠӠ ԠŠŠԠӠԠӠĠӠԠŠԠŮؠԠРԠϠ ԠàŠԠĠԠĠԠĠŠԠĠӠ ԠŠ2I0279 UI,SAV(I,0) Z% _Q2 `I0279Q aI,SAV(I,0)279I,SAV(I,1)W b] dg x:17IhSAV(279,1) ,IT203.14159265ID(1)501:D1(1)301P1XC0kI0ITIT279XI279IT:Y((ID)1)1592X1279X:Y1((ID1)1)1592$SAV(C,0)Y:SAV(C,1)Y12X,YX1,Y1<CC1FJQ27K0 P#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "       :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 RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA 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  WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    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"F"ERROR: FUNCTION IS CONSTANT"L[AA11100dTT1~AATTTT10TT: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  ***********************9 * *V * DON'T FORGET THE *s * CONTROL CHARACTERS * * (CTRL)@ IS THE * * FASTEST ONE! * * * ***********************8: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 0: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,0E x790,192:791,201:792,12 190 H(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