L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`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 US"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:        y"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$" * ********* **** * * * * * * #"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$"# * * 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* '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$"                      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,,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           ,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: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     "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*(ZD$)89ī770" ":"WHAT TIME DO YOU WANT THE ALARM TO GO OFF? PLEASE USE 24 HOUR NOTATION, FOR EXAMPLE 1340 AND NOT TWENTY TO TWO";SET770ZB$"N":ZC$"N":ZD$"N"936%"WHAT IS THE CURRENT T";ZA$(ZA$)89ī765$936R"WHICH OF THE FOLLOWING WOULD YOU LIKE?""JUST PRINT Y OR N, (DON'T FORGET TO HIT THE RETURN KEY)"" "" ""CHIMES?";ZB$"TICK TOCK?";ZC$"ALARM?";ZD$:160936_"THIS PROGRAM WRITTEN BY BILL SMITH, GAMBIER ISLAND, B.C., CANADA"::"HI, I'M GRANDFATHER CLOCK":40)"DO YOU WANT ME TO CHIME THE HOURS OR USE NY OTHER FACILITIES?":" ""PLEASE TYPE Y OR N, THEN HIT 'RETURN' KEY:3:1:0l232,150:233,63)v16277DA118:B,C:3B,C:A^A15:B,C:4B,C:AxA14:B,C:5B,C:AA112:B,C:6B,C:A5:825,16:8252,16:32:826,141:8253,141A770790:B:A,B:AA0:B0:C0:XPH%65:XPM%65,132,148,84,136,60,110,64,74,70,40,86,14,130,2,138,16,170,24,192,46,200,78,192,110,170,132,138,140,106,132,84,110,76,78,84,46,106,24D 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96XA18:B:A]A1627816382:B:A,B:A b 44,62,00f! 63,63,54,45,53,62,62,62,54,53,53,62,62,46,46,54,55,55,46,46,46,54,63,55,46,45,5,0& 144,1,148,1,178,14,200,40,204,40,208,74,212,74,216,74,216,74,200,110,146,148,98,136,102,136,74,110,78,110,82,110,60,73,100,13+ 204,110,178,1364,00,70,00,73,00,77,00( 36,36,36,007 36,36,00R 54,54,54,54,54,14,00  118,118,118,118,118, 05,100,100,100,100,100,12,0  14,14,14,14,14,14,14,14,14,14,222,219,219,27,96,12,12,12,12,12,12,12,12,12,12,00 53,39,00N PM1ALARMALARM1200/ ALARMSET4209 E4:O SETSET1:E1:R1[ AE87 (16384)127ZD$"N":R0:455 768,255:769,255:770 A 16368,0   100,150,100,250,100,150,50,150 08,00,18,00,22,00,25,00,32,00,49,50:770:F1200:F:A& iA8ī3656 jF1400:FI kA47:E:360Z mA11000:Au rHHOUR:HOUR0HOUR12 wE1H:768,250:769,100:770 |F1800:F E E500(H133)  MIN60ALARM(HOUR1)100:405 ALARMHOUR100MI 6(16384)127ī800 ;F, @B1335F E768,100:769,03:770h J780,180:B1:7168,180:345 O768,70:769,03:770 T7168,180:780,180:B2 YG1:A [B1ĕ780,180 \B2ĕ7168,180 ]E1:160 ^ cA03:E h768,E:76295% XPH%PM%XPH%PH%ĘPM%:295G PM%XPH%PH%PM%1ĘPM%:295` PH%XPH%ĘXPH%:295 OPM%PM%:XPH%PH%:B1:E1:FLAG1İ350 FLAG0:R0ī120 160 "1140,80: '2140,80: ,7:780,180:G19 1AE486267:Q1 3FG60HOUR0:PM1PM0:200, PM0PM1:2004 12P PM%MIN6460:PM%:290s PH%(HOUR64PM%)12:PH%:295 PH%XPH%ĘPH%:295 PM%PH%ĘPH%:295 B0ī285 OPM%:290 XPH%:295 OPM%PH%ĘPH%:295 HOUR6MIN34ĘPH%:Y 16277-ZD$(1),ZC$(1),ZB$(1),ZA$(1)6700HZE420(H140)PwE1dx(ZC$)89ī300r}AE4862(16384)127ī800AMINMIN1:(ZD$)89İ400MIN60ī200MIN0:HOURHOUR1(ZB$)89FLAG1HOUR12200        D$(4)::GM$"YOUR APPLE COMPUTER SAYS, GIDDY UP GO."S(15:50{2I140(M$)2:M$(32)M$(32):<J3911FJ:(M$,40J);PI14:X(16336):ZI110:XI:dnI11500:Ix:D7,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 1100:D38,25$7200,12723,18GD1100:DR20,21\7400c9n29,24~D1100:D12 15,1770001(15,232D1100:D<12F23,11P7200Z8,25dD1100:Dn29,24119,87000 15+23,18;D1100:DB9M29,24W7200_12i8,25q13|20,21D1100:D2$23,11.7400812B29,24LD1100:DV1`15,17j7000t12~19,8 D811B25,3332#L31,35271V31,3531;`6000E6000M25VM1$\eM2$n255x60006000600060006000 1230D150:DD11200:Dp3z8,25D1100:D6000f13&pY2832:6,10Y:Y0z600072]PROGRAM BY CARL & WARREN MAGDANZs6,1029:28,328}600015Y3537:12,21Y:Y6000912,213635,371460006Y3135:25,33Y:Y$6000 13,18:5000 14,19:50001 15,20:5000B 16,21:5000S 17,22:5000d 18,23:5000u 19,24:5000 20,25:5000 21,26:5060 9,21:5000 *10,22:5000 411,23:5000 >12,24:5000 H13,25:5000 R14,26:5060\ 016,14:5000! :17,15:50002 D18,16:5000C N19,17:5000T X20,18:5000e b21,19:5000v l22,20:5000 v23,21:5000 24,22:5000 25,23:5000 26,24:5000 27,25:5000 28,26:5060 11,16:5000 12,17:50000 17,9:5000" 18,10:50003 19,11:5000D 20,12:5000U 21,13:5000f 22,14:5000w 23,15:5000 24,16:5000 25,17:5000 26,18:5000 27,19:5000 28,20:5000 29,21:5060 14,12:5000 &15,13:5000 13,2512 14,2411( 14,24105 15,239B 15,238O 16,227\ 16,226i "17,215v ,17,214 618,203 @18,202 J19,1 T1 ^18,3:5000 h19,4:5000 r20,5:5000 |21,6:5000 22,7:5060 16,8:500Y2932:16,22Y:Y (8+ 218,20289 <18,2027A F12N P6,3226[ Z7,3125h d7,3124u n8,3023 x8,3022 9,2921 9,2920 10,2819 10,2818 11,2717 11,2716 12,2615 12,2614 13,2513 936"ENTER YOUR MESSAGE HERE - IN 2 LINES MAX."::"EACH LINE MAY BE A MAXIMUM OF 40"::"CHARACTERS IN LENGTH."::"LINE 1:";M1$:"LINE 2:";M2$D11500:D:936PROGRAM BY CARL & WARREN MAGDANZ 80001 z #XȰ ǠҠŠɠҠՠƠ ҠΠ( ŠǠӠ " Ԡ̠ɠ" Ԡ̠ɠ"ԠϠɠ"ԠԠ"ԠӠŠĠŠˠҠ ԠŠҠɠ ԠŠҠɠ ԠŭӠˠ!Ԡ٠! Ԡ͠ˠ !ԠŠà!ԠӠ  ԠŠԠӠԠӠԠҠɠԠҠ֠ ԠҠ֠ ԠŠ  ԠŠ2ԠŠӠ  ԠŠŠԠӠԠӠĠӠԠŠ ԠŮؠ̠Ϡ ̠Ϯà!ԠРԠԠРԮؠ"ԠǠԠǮ"ԠĠӠ @@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp.(@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 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) (hp8VA @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"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@pC @q~vxx A@xG@q          "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" (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).":'      @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\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 |` |p`0|pp`0p~fx0`~<< p@@x@`8x o@~{a@~0`{`pAO? |@}=`p` \Nx`@~LpAc>@?`py?~4),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:   |~@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.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                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 RETU   U*U*U*U @@  @P@ @ @@@P @   @ @*U* @(  T U@P@@ @@  U*U*U*U @ D(@ Q @  @(@@  D @@ " (@@ @P U*U*U*U@@ P*U*AU*U "  @* @@@@ @ "  U*U*U*U@@@ @ 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  @@  @ @@  @! * P( @ @ @@. IT ..SHOULD RUN FASTER.8 ..CAN YOU GUESS WHY?O "INPUT SPACING";BU \ 2w (I0159:0,I279,I:I~ <0 =XXB:X279X279 FY159100 GX279YYB HY159Y159 IX0Y0Ā P138,95X,Y Z60 d0 nXX..THIS PROGRAM USES THE9..PADDLES. ENTER SOMES..SMALL NUMBERS LIKEp..UNDER 20 AND THEN HIT..RETURN AND ADJUST BOTH..PADDLES AND WATCH..WHAT HAPPENS...NEXT PUT ALL REM  ..STATEMENTS AT END ..OF PROGRAM-(Y/3):Y=Y+(X/1.5) . THIS PROGRAM WASI INSPIRED BY BYTE AUG.] AND APRIL 1978x SERENDIPITOUS CIRCLES *WRITTEN BY CHRIS OBERTHdAHESE FORMULAS IN  LINE 140.& B  X=X-(Y/2):Y=Y+(X/2.1)^  X=X-(2*Y):Y=Y+(X/1.1)x & X=X-(Y/2):Y=Y+(X/4) 0 X=X-Y:Y=Y+(X/2) : X=X-(2*Y):Y=Y+(X/3) D X=X-(Y/8):Y=Y+(X/8) N X=X+(Y/2):Y=Y-(X/2) X X=X-(Y/8):Y=Y-(X/8) b X=X191YY191 Y1YY1917 A(X2)140:B(Y2)96L A279B191140t A,B:279A,B:279A,191B:A,191B A1,B:279A1,B:279A1,191B:A1,191B (16384)128140 16368,0 ""; X(X)50:Y(X)50 140  TRY T  936<5:" ****** SERENDIPITOUS CIRCLES ******"D:R" ";x"HIT ANY KEY TO RANDOMIZE X & Y"#A14000:A(XX(Y2):YY(X2.1)d:3xX21:Y13XX(Y3):YY(X1.5)X279XX279X1XX279 Y(A) A:A992506 10:10:"M=";M:10:"N=";NS 1052:H150:H:1052d P15000:Pm 100) *** CENTER DISPLAY& 4 :140,95: h *** PLOT FOR 100 RADIANS n A0100(1).01 *** FIND RADIUS VECTOR R((MN)A)95 *** CONVERT TO X AND Y  140R(A),95Rn _ CONTRIBUTED BY WM.R.DIAL\d *** APPLE-ROSE BY JIM DAY ,MODIFIED BY WM. R. DIALi *** RECREATIONAL COMPUTING VOL 7 NO 5 ISS 38 PG 55 MAR-APR 1979nx((1)31)}936 ::: SET PARAMETERSM((1)101) N((1)51  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,  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 }::3:I025024:J017012:I18,J6I12,JI6,JI,J6I6,J12I12,J12I18,J6I24,J6:J,I:21:11:"HONEYCOMBS FOREVER":12:"BY THE MAD MAC'S"OtC(8(1))C01'C41221:Cl ::C:I025010:J01709:I,JI5,J9I9,J:J,Is1-sr::3:I025010:J01709:I,JI5,J9I9,J:J,I:21:10:"HERRINGBONES FOREVER":13:"BY THE MAD MC'S"- Ljmm 8 mm 8 m8 8 m8 8 ` 2PRȘ   dH hL|  3d DAZZLE+x(4)"BRUN ART DAZZLE.X"1