' +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`@xq|?`4!|j_ y|oxwq{ p~O@`pp0||`pc|0`_}_;{{M~`p@w~?|?=@@cwcL 3,6,7 p: FACE VERTICES* z 1,4,9,109  7,8,9,10G  8,3,4,9U  2,3,4,1d  7,2,1,10r  5,6,8,7  5,6,3,2  8,6,3,0  7,5,2,0  19,20,21,22  15,16,17,18  11,12,13,143,8,-1 -3,8,7" -3,-8,-70 -3,8,-7> 3,-8,-1K  3,8,-1W 3,8,7d 3,-8,7s( -3,-6,-32 -3,-6,-5< -3,-4,-5F -3,-4,-3P 1,-8,5Z 1,-8,3d -1,-8,3n -1,-8,5x 3,0,7 3,0,2 3,6,2 HNH1B1DHDB~H2HN8HNH1(B1159)DHDBBH2HNH^****************x 22:-NO.OF VERTICES 12: -NO.OF FACES  4:- MAX.NO.VERTICES PER FACE0,0,0:VERTEX COORDINATES -3,-8,7 -3,-8,-1 -: TO MAIN PROGRAM + BNB2H2DBDH5& B1BN;0 T BNB2(279H2)DBDH^ B1BNd w HNH2B2DHDB H1HN H HNH2(159B2)DHDBR H1HN\  BNB1H1DBDH B2BN BNB1(H1279)DBDHB2BN$tLP,1)"1")ĪSKIP1:2150 \LP&f>:RESET COORDINATESTH10ĪH10:3100nH1279ĪH1279:3200B10ĪB10:3300B1159ĪB1159:3400H20ĪH20:3500H2279ĪH2279:3600B20ĪB20:3700B2159ĪB2159:3800B1159ĪPBPB1/ : SET UP CODE FOR PEEB20ĪPEPE1000Z H20ĪPEPE100p*H2279ĪPEPE104B2159ĪPEPE16PB$(PB):PE$(PE)8PB$(PB$,4):PE$(PE$,4)>: COMPARE CODES OF PTSHLP14R((PB$,LP,1)"1"(PE$,:ENDPTS WITHIN WINDOW?WDSW(H10H1279H20H2279B10B1159B20B2159)]N:IS LINE COMPLETELY OUTSIDE WINDOW? :SET UP CODE FOR PBPB90000:PE90000:SKIP0B10ĪPBPB1000H10ĪPBPB100H1279ĪPBPB102000SKIP11760(2200:18607SW11730A1700RH2,B2H1,B1cQQ(16384)tQQ1271780{IL24"DO YOU WANT TO DO THIS AGAIN?":A$(A$,1)"Y"525:10:18)"OK"&E1500:E0::W1164062000#@SKIP116503J2200:1860BTSW11640L^1610]hH1,B1H2,B2drJ}|H1P1K1P(F(I,1),1)B1P2K1P(F(I,1),2)H2HL:B2BLDHH1H2:DBB1B2DH0ĪDH.0001DB0ĪDB.00011860SW11730(P4)I1N1!H(I)017602J1V1(I)1KH1P1K1P(F(I,J),1)fH2P1K1P(F(I,J1),1)B1P2K1P(F(I,J),2)B2P2K1P(F(I,J1),2)HLH2:BLB2DHH1H2:DBB1B2DH0ĪDH.0001DB0ĪDB.0001"1860:SKIP0,SwwwwwwwwwwwwwwwwwwwwwwwwwwwDDǍŠTwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDDwwwwwwww wwwwwwwwwwwwwPwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDDDLjwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGwwwwwwwwwwwwwwwwwwwwwwẅ̈pwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwtDD̜ψwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwẅ̈( @~? `@x @s~ghporwqy~~x|(pc__~^r_` ~_7< ~}~gp@Hy[/o]Y7`pb?h 9H(P0~q0 L z~@`xp}@ xGGp_}_~fyG6 @@AW'{a(?0p+_{g?~p}|?8 ~`?p<>`=pa|xGx\><>|L@r`}p@xs@ P?pbpO```P~@gxG@@$xyxs|sgG|>2$~}N`Q??P8`@Pa{V s~kvx{w{CFax>x?~`|??x?~9byGx |_{{^ 0}~~w`_~@}_CCxa~8x?p{_ (zpwsdH(yX8R`!@ B@%0 z}xx~? 8< |xxppqo|cOG?y?|x@~T @~ xp``||?~@pqb9xa<G|EC<_8n^<~@xp@p;0@~?o/p= ?xo=`O@`Apy$xgwo|V[ n#psox~@p?pcCG|?' }~~~`~w}w{_}` ~_wos'f_|}93x{ }0r`?ypgHy a<!C@@!0 BA{~` |?`>>~O8fs>o#=?y>`{q#+p t9@!B@=D@ p | |<|>1| hW?NSECTALPHABETA'BETABETAA(I)>JALPHABETA0.01HC(I)^XX1R(JGAMMA)tYY1R(JGAMMA)X1,Y1X,YC(I)0C(I)418203X,YJ&SI(ALPHABETA)2GAMMA0X2(I)X1R1.3(SI):Y2(I)Y1R1.3(SMT. 5%,3# 15,FUNCT. STUDY 15%,1> 20,SYST. DESIGN 20%,2R 30,PROG. 30%,3n 15,DOCUMENTATION 15%,5 15,TEST/DEBUG 15%,44EST/DEBUG 15%,4R  X(16384), X1282520: 16368,0@ F U : BEGIN INPUT DATA x 19,1 SYSTEM DEVELOPMENT ACTIVITIES (TYPICAL PROJECT) 5,PROJ.MG2V X2(I)(X2(I)7)73!` 00j C(I)5Ē4<t K116e~ X2(I)8,Y2(I)8KX2(I)8,Y2(I)8Kl Kx (JI) I CV I  TYPE ANY CHARACTER TO RETURN TO TEXT MODE CH SECTION !-Y2(L)0<LABEL$(L)IYCYC16j3(LABEL$(L))7,YCX2(L),KqI{2520 J("A")1 I1NSECT $ (JI);" = ";LABEL$(I). CV(37)18 Y2(I)81B X2(I)71L Y2(I)(Y2(I)8)8I(42(TITLE$(I)))2-TITLE$(I)4I;6OMODE2090,2310\*4:YC20k>I1NSECTuHK200RJ1NSECT\Y2(J)K2170fY2(J)02170pKY2(J):LJzJ LABEL EA)DIN READ IN THE CHARACTER GENERATOR AND TABLE AND LABEL THE PIE CHARTX:vD$(4)D$;"BLOAD PIE CHART.X,A$6000"D$;"BLOAD PIE CHART.Y,A$6800"D$54,0:55,96I12SECTALPHABETA&BETABETAA(I)=JALPHABETA0.01GC(I)]XX1R(JGAMMA)sYY1R(JGAMMA)X1,Y1X,YC(I)0C(I)418203X,YJ&SI(ALPHABETA)2GAMMA0X2(I)X1R1.3(SI):Y2(I)Y1R1.3(SI0C(NSECT)715109"COLORS MUST BE IN THE RANGE 1-6"?PTTZ(NSECT)Z1460n(222)421600"L(218)(219)256,"APPLE ERROR NO. ";(222);" IN LINE # ";L6@216,0hI1NSECTrA(I)Z(I)TPI|II1NOR 2" ' GAMMAPI4GAMMA360PIC (Z(10),LABEL$(10),C(10)V 2X2(10),Y2(10)k <A(10),TITLE$(2)v dI12 nTITLE$(I) xTITLE$(I)(TITLE$(I),40) I 1560 Z(NSECT1),LABEL$(NSECT1),C(NSECT1) NSECTNSECT1C(NSECT) LABEL=SECTOR LAB.*1 * COLOR=SECTOR *M * COLOR(1-5)*i * * ********************** : R87:PI8(1):X1279R:Y1192R GAMMA,MODE MODE1MODE21310 "ERROR - LABELLING MODE MUST BE 1 ~* LINE OF TITLE *5 * LINE # DATA,SECOND *Q * LINE OF TITLE *m * LINE # DATA,VALUE, * * LABEL,COLOR * * WHERE: * * VALUE=PORTION OF * * TOTAL FOR PIE * * SECTION. * ** B* ROTATION *9 L* (DEG. CLKWSE) *U V* LABEL MODE=1, *q [* DRAW POINTER * `* TO EACH SECT.* e* LABEL MODE=2, * j* LETTER CODE * t* EACH SECTION * y* LINE # DATA, FIRST * :  ENTERED 8/7/80! := **********************Y "* *u $* DATA FORMAT: * &* * )* LINE # DATA,ANGLE, * .* LABEL, MODE * 8* WHERE: * =* ANGLE=ANGLE OF **********************9* *U* PIE CHART GENERATOR*q* ** CREATIVE COMPUTING ** AUG.'80 PAGE 110 ** * * ***********************      |A}||xc!@|@`p^<<8wCp?~?~gp08 0"!`8B? pga8g@`@=>|~~~xAOpsw>>xa?H0 xpCx@!:F0cB<$!&|A?/}<|w?|S/}uo6^<qAx3`~m?{enqW8 ~}O^}g|c?xx`xrr?H?~?~@@~ |z_7``` p?`{ |?p88_ x?`]. rpi|?`__iOS'nyy}pG<||xG>p@~w?}?|`m@H?~ |s}? |`7 ^{rO|@`?_?~||cp/8xn)N.He!fq-xAu[}W_g B_| @Fg`>|}0F~?>p`xsw>?|pw{eqh :@ (x! 0 n#1CCxAA zr~>?@|^| x h*w7:ow?^_{<~_X}}n~_fLs?|@`|t^xd8@?n p?x``@|`~@Xq7~@~?qo|@|Ca_A ?pG`-p:po0|h__`CC>^|}~37fN~8xqrpp?#,~?|3|`Ap~8|s|}x?|~ox@`_>@~8|cb `@@;p@~ x @~pc`xcw>>~<n/5Fch0<~(Xa v ~a B{8@g Xz?x~|=~ pxPpgx?/g \|? n`p^_I@qyOs=rc>OgGc<q8< p`~@}9|q?2`?~?w{tB P *@>``x`g_y{?~|\[y;rf]{{w{d q~@|``C|~?|?p~O<`_99~N7l`@`<|8|Gr`N@@8~u?@~o|ps`xcgG|>Ch00|pzp~ B94{?x0}~@ |~?q_xyjUoFt~|{pg8xo|x~``p<b=pch<x8<H`~`|;xp/?/}|{?g? @\T`          "NAME OF SHAPE TABLE: ";:SHAPE$9SHAPE$""1410jD$;"BSAVE ";SHAPE$;",A";LC1;",L";CLC1;",V0D$;"LOCK ";SHAPE$;",V0"::D$;"RUN MENU" A(222):B(218)(219)256: A IS ERROR CODE AND B IS LINE # WHERE ERROR OCCURED233,B256:B,1:B1,0:B2,4:B3,0PdX30:Y79:SC13:SC:1X,Y:XX50:SCn:24:" HIT ANY KEY TO CONTINUE... ";:34x:A$:23"DO YOU WANT TO SAVE THIS":"SHAPE? (Y OR N) ";:A$:A$"Y"14401490:23% ";I04:LLL(I)0:I(I301;LOC16I1280bLLL(I)LLL(I)1:LOCLOC16I:1260qI:LOC$"" I301:1300:I::1340J015LLL(I)Jĺ(HEX$,J1,1);(J2< DRAW SECTIONF:0PBLC14$Z232,MD(B):0:D1:#tI13:D(I)0:I:D0:=~ CTRL F GOES TO HERE^ZD(1)D(2)8D(3)64:LOC,ZlZ01220LOCLOC1:LOC,0LOCLOC1:LOC,022:30:95823:1:"VECTOR TABLE: FROM ";LC1;" TO ";LOC:CLOC"HEX: FROM ";LOC$;" TOD(3)01040!F1:10602D(3)41060DQD(3):D(3)0^$ZD(1)D(2)8D(3)64.BYTEBYTE1:22:13:BYTE:18LOC,Z:LOCLOC1BF11110LQ01140VD(2)01130`D(1)0:D(2)Q:D(3)0:Q0:D2:jD(1)Q:D(2)0:D(3)0:Q:610/z22:33::"ON ";::"OFF "::1:61091150JYCO0YCO0_YCO159YCO159pXCO0XCO0XCO279XCO279PFLAG0980XCO,YCO10000:ODX,OLDY3:XCO,YCOODXXCO:OLDYYCO:F0:DD1:D(D)A:D3* *XXXXXXXXXXXXXX* *"7(25):"**XXXXOXXXXXXOXXXX**"Y(25):"* *XXXXXXXXXXXXXX* *"_jC13(27):"*XXXXXXXX XXXXXX*"C NECKX150(29):"*XXIIIIIIXX*" X@X115J" "TX^5'0:52005,<14 YRS.,1$ 12771,14-17,28 25148,18-24,3L 41086,25-34,4` 36592,35-44,5u 25311,45-54,1 20776,55-64,4 17084,65 - 74,3 12021,>74YRS.,2212021,>74YRS.,2  X(16384)- X1282520; 16368,0A G V : BEGIN INPUT DATA x 15,2 PROJECTED US POPULATION AGE DISTRIBUTION ---1990--- 2V X2(I)(X2(I)7)73"` 01j C(I)5Ē4=t K116f~ X2(I)8,Y2(I)8KX2(I)8,Y2(I)8Km Ky (JI) I CV I  TYPE ANY CHARACTER TO RETURN TO TEXT MODE ACH SECTION ".Y2(L)0=LABEL$(L)JYCYC16k3(LABEL$(L))7,YCX2(L),KrI|2520 J("A")1 I1NSECT $ (JI);" = ";LABEL$(I). CV(37)18 Y2(I)81B X2(I)71L Y2(I)(Y2(I)8)8I(42(TITLE$(I)))2.TITLE$(I)5I<6PMODE2090,2310]*4:YC20l>I1NSECTvHK200RJ1NSECT\Y2(J)K2170fY2(J)02170pKY2(J):LJzJ LABEL EI) DIN READ IN THE CHARACTER GENERATOR AND TABLE AND LABEL THE PIE CHARTX:vD$(4)D$;"BLOAD PIE CHART.X,A$6000"D$;"BLOAD PIE CHART.Y,A$6800"D$54,0:55,96I12, @? ȄȄL`@0 `| |```@ @x@ g0 @p@   `@@@bL@ pd8  9:"HIT RETURN TO CONTINUE";A$:AU BECOME FAMILIAR WITH THIS PROGRAM. IF YOU HAVE A COPY OF THE ""APPLE ORCHAR THERE ARE SOME MORE DETAILS WORTH READING. GOOD LUCK AND HAVE FUN.":(14):"WM.J.KERR SR"^500:D$(4):D$;"RUN MENU":936:2:!:1 D$=CHR$(4):B= (DECIMAL STARTING ADDRESS) 2 POKE 232,FN MD(B):POKE 233,B/256 3 PRINT D$;'BLOAD (FILE),A';B "E" IT WOULD BE A GOOD IDEA TO THOR- OUGHLY REVIEW ALL HIGH RESOLUTION COM- MANDS AS YO. THE FOLLOWING MUST BE DEFINED --HGR OR HGR2, ROT, SCALE, AND "P500:400"HCOLOR. YOU MUST ALSO INCLUDE THE FOL- LOWING IN YOUR PROGRAMS BEFORE USING A SHAPE TABLE: 0 DEF FN MD(B)=B-INT(B/256)*256 "" HOW TO USE A SHAPE TABLE YOU CAN DRAW ANY OF THE SHAPES IN A SHAPE TABLE BY USING THE COMMAND 'DRAW I AT X,Y' OR 'XDRAW I AT X,Y' "B"WHERE I IS THE NUMBER OF THE SHAPE AND X AND Y ARE THE COORDINATES OF THE STARTING POINT3 ERROR #12: NO FILE BUFFERS, SHOULDN'T HAPPENM CONTROLLED SHUTDOWN :::" PROGRAM TERMINATED DUE TO":" ERROR "A" LINE #"B" .J 3040:" YOU ALREADY HAVE A ";SHAPE$:" TABLE ON THIS DISK ";:3050S 640 ERROR #11: COMMAND SYNTAX, WHICH MEANS THAT FILE IS BEING SAVED THAT BEGINS WITH A NUMBER, ETC. 3040:" YOU MUST START NAME WITH A LETTER A-Z ";::3050 640" DISK ERROR - USE NEW DISK!! "::3050H 3330: CONTROLLED SHUTDOWNa ERROR #9:DISK FULL 3040:" DISK IS FULL, USE ANOTHER! "::3050 640 ERROR #10: FILE LOCKED, WHICH MEANS TABLE NAME IS BEING SAVED THAT ALREADY EXISTS ON THE DISKK! ":" PROGRAM WILL TERMINATE... "::3050LD 3330: CONTROLLED SHUTDOWNN 3040:" ";SHAPE$(I);" NOT ON THIS DISK! "::3050X 270b ERROR #7:VOLUME MISMATCH, SHOULDN'T HAPPENl 3330: CONTROLLED SHUTDOWNv ERROR #8:DISK I/O( 3040:S WRITE PROTECTED !!":"CHANGE DISKS... "::3050E 640r ERROR #5:END OF DATA, SHOULDN'T HAPPEN 3330: CONTROLLED SHUTDOWN& ERROR #6:FILE NOT FOUND0 B4403150: ELSE "MENU" IS BEING RUN,: 3040:" MENU IS NOT ON THIS DIS.* A4A123330: CONTROLLED SHUTDOWNg CA3: C=1 THROUGH 9,REPRESENTING ERROR CODES 4 THRU 12 C3060,3090,3110,3170,3190,3220,3250,3280,3310 21::958: J13:(7);:J:J13500:: ERROR $4:WRITE PROTECT< 3040:"DISK I΍`<Ӎٍ @xC@p}g @ `@0v@ p@ `@  @@00`p0@@b`@$  @ @?~?X% x/@ `x @``@ @ < xN0 @p3L`@ 8@0@  @0`@q#p$9  0@ "r<@p e 0h@<8! <@ @@00``0@ @x00`` @<@ ``@@0  8@ @@@0` $  @ "$`@p8gd <0`pL`x@L`@( ! @< .Y,A$2000" 100? ,16304,0:16302,0:16300,0:16297,0H 6100V 16299,0_ 100m 768:100 O PERFORM THE GRAPHIC COPY"! >A @"PRESS THE ESC KEY TO END"I B: F"FOR BEST EFFECT PRESS THE TWO KEY BEFORE THE THREE KEY" dA$ nA$"0"200 xA$"1"300 A$"2"400 A$"3"500 A$(27)ė:: :D$;"BLOAD DOLLAR COPYo D$(4)-:D$;"BLOAD DOLLAR COPY.X"39?E  "PRESS THE ZERO KEY TO LOAD THE TEST PICTURE TO PAGE 1""PRESS THE ONE KEY TO VIEW PAGE 1"(2"PRESS THE TWO KEY TO VIEW PAGE 2"4 <"PRESS THE THREE KEY T   0@ 0 ~  0`    @|  > `~   ` @ 00 G  @ x@`   x00x  0 p|`  x` 8   `@ ` <  0  0  P   p`0   @ x? p@@@ `  @@@s @`@@ @ p @@@a '  p @?@ pp ``B@@`~p  @@ @`8@`  p@``@ @@pC` pd8 ~?@0p @@!  % `x   0*<=`.)*<Ș `\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$U*U*U*U*x8P<k]>>]k  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>    00^A(X)A((X2B))$h:3Or24:"THIS IS THE CURVE YOU SELECTED."Z|0,150lX1001002xYA(X)X100,150YX24:"PRESS SPACE BAR TO CONTINUE"D$(#2#AA80<#BB2000F#CC15P#DD80Z#F(V E :XN,YN IS THE POINT OF INTERSECTION OF PARTLY HIDDEN LINEs XN(Y1H(X1))(X2X1)(Y1Y2H(X2)H(X1)) YNY1XN(Y1Y2)(X2X1)  XN(Y1L(X1))(X2X1)(Y1Y2L(X2)L(X1)) YNY1XN(Y1Y2)(X2X1) @JA130TB10((U1)2)1%F X1XI(KK1)S1CCS1CP X2XI(KK1)S1(CC1)S1[Z A(KK,CC)99992740ud A(KK,CC1)99992740n Y1A(KK,CC)x Y2A(KK,CC1) Y10ĪY10 Y20ĪY20 Y1159ĪY1159 Y2159ĪY2159 X1,Y1X2,Y2 CC KK159ĪY1159 Y20ĪY200 Y2159ĪY2159G X1,Y1X2,Y2:2550N X^ A(K1,C)Y2f K0m Y : CROSS-HATCHING ROUTINE 24:"PRESS SPACE BAR TO SEE CROSS-HATCHING.":B$ X10:X20:Y10:Y20( XIYB2R2 KK1U2 < CC1 |b ` 0  0@ 3  px@a0p  C p@ @f @@ ` b @ x? @ `8 @  2 `<@@ 0 x@`  @   @B0@` `  `pa @ |?#` ` r Lp0 @ 2 `   ` `@ @@     0@a`  r@?0 x x `H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`  )AA((V2BB))d#:3En#24:"THIS IS THE CURVE YOU SELECTED."Ox#0,DDa#Q1001002v#YYF(Q)(QCC)#Q100,DDYY#Q#24:"PRESS SPACE BAR TO CONTINUE"#A$#H_ ::"AFTER CHARACTER SETS HAVE BEEN SAVED TO":"DISK OR TAPE, SEE THE APPLE CONTRIBUTED""VOLUMES 3-5 MANUAL TO SEE HOW TO APPEND":"THE NEW CHARACTER SET TO YOUR PROGRAMS." ,0:16299,0:400<(#I07:J06:A(I,J);:J::I:I03:54I,TM%(I):I816298,0:16300,0:16303,0>PD$;"CATALOG"VkIN1ĺ"INPUT ";IN0ĺ"OUTPUT ";"FILE NAME: ";F$IN1ĺD$;"BLOAD ";F$IN0ĺD$;"BSAVE ";F$;", A$6800, L$400"0:0:54,0:55,9616297HARzIBL8KY768%J07CK06:812K,A(J,6K):Ke794:BYTE(809):IJ,BYTE:Jp400:X--KEY "X"bI03:54I,TM%(I):Il16300,0:v:--KEY "I"IN1:INPUT7300 --KEY "O"*IN0:OUTPUT--PRINT PROMPTF24:1:A$"@PRESS @RETURN TO STORE CHARACTER":10Lg--MOVE CHAR TO WINDOWuIBL8KY~768J07BYTE(IJ)809,BYTE:777K06:A(J,6K)(811K):K:J300:V0:H0:2000:p--MOVE WINDOW TO C127)!A(V,H)0Ĺ973,255:"%",973,02 @4--UNPLOTK>973,0YHV1:H3lRA(V,H)0ĺ"#"\A(V,H)0ĺ"%"f --GET REPLY 24:1:" " 24:1:10 KY$:24:1:A$BL$:10 KY$):KZ("9")1045+KZKZ("0"):1046?KZKZ("A")10NKYR16KZhMODE1İ4000:5000:z$6000:4000:--REM "C"I07:J06:A(I,J)0:J:I300:V0:H0:2000:--PLOT973,0V1:H3A(V,H)0ĺ( W2100\HH1:H0H0)a2000:8--KEY "S"B2100UHH1:H6H6a2000:p--KEY "E"MODE11020A$"@CORRECT?":3000KY$"N"10204000A$"@ROW (0-7)?":3000:R(KY$)A$"@COLUMN (0-@F)?":3000:KZ(500X--KEY "Y" ]A(V,H)1*b2100LgHH1:H7H0:VV1:V8V7Vl2000\vk--KEY "N"xA(V,H)0610--KEY "W"2100VV1:V0V02000: --KEY "Z"%2100*VV1:V7V7/2000:R--KEY "A"KY$KY$"Y"İ600,KY$"N"İ700> KY$"W"İ750PKY$"Z"İ800bKY$"A"İ850tKY$"S"İ900!KY$"E"MODE1:1000:500&KY$"C"İ1200DKY$(13)MODE0:1000FKY$"X"İ7000IKY$"I"İ7100NKY$"O"İ7200W::3:I ^& LIST SET IN MATRIXY 975,255:14:1:973,255:" 0123456789ABCDEF"d I07u I;:975,127 973,0 J015:3J KI16J:K12K13ĺ(K); J: 975,255:973,255:I 2000 4000  --GET COMMAND:A$"@E EDIT":10+ 22:A$"@C CLEAR":10I 22:A$"@I INPUT SET":10h 22:A$"@O OUTPUT SET":10 "22:A$"@X EXIT":10 '300:400:500 ,PLOT CHARACTER 1:3 2975,255 6I07:J06 @A(I,J)1ĺ"%"; JA(I,J)1ĺ"#"; TJ&C @HOME @COMPUTER @CENTER":10:20:A$"@HAMPTON, @VIRGINIA":10] 13:22:A$"@Y PLOT":10y 22:A$"@N NO PLOT":10 22:A$"@W CURSOR UP":10 22:A$"@Z CURSOR DOWN":10 22:A$"@A CURSOR LEFT":10 22:A$"@S CURSOR RIGHT":10 223:TM%(I)(54I):I* 0:0:54,0:55,96= 974,64:973,0E L$R 975,255 1:17:A$"@THE @APPLE @HI-@RESOLUTION":10 22:A$"@CHARACTER @TABLE":10:25:A$"@GENERATOR":10 28:A$"-BY-":10:25:A$"@SKIP @GUILD":10 @ 18:A$"((A$,J)):I("A")I("Z")L05 #(IL);:J::O (I$I$(IL):J:I$:| - REMOVE LINE 35 FOR LINE-AT-A-TIME MODE d iD$;"BLOAD CHARACTER TABLE.X" nD$;"BLOAD CHARACTER TABLE.Y" pD$;"BLOAD CHARACTER TABLE.Z" x:A(7,6) }I0=D$"": CONTROL-D/L$" ": CONTROL-L5fBL$" "BLOCK26624:LOW BLK100 ** CASE CONVERTER SUBR. ** I$"":J1(A$):L32L$(A$,J,1):L$"@"L$"&"JJ1:L064(L$"&")! I      PW11390ZPP0ī1410'd14207nPP01410Ax1420MH(I1)0UI1`::30,0279,0279,1590,1590,01,1278,1278,1581,1581,1K1(0)3P3P(F(1,1),1)K1P4P(F(1,1),2)K1P1180P3(P3)P2120P4(X(I)X(K))2:E2(Y(I)Y(K))2:E3(Z(I)Z(K))2HE4(E12E22E32)lPP(A1E1A2E2A3E3)(A4E4)tW0PP01300 1310W1G1E1D(1)(G2E2D(2)2G3E3D(3)<G4(G12G22G32)FPP(A1G1A2G2A3G3)(A4G4)1(H$,1)"N"1420:IF(I1,1):JF(I1,2):KF(I1,3)qA1(Y(K)Y(J))(Z(I)Z(J))(Z(K)Z(J))(Y(I)Y(J))A2(Z(K)Z(J))(X(I)X(J))(X(K)X(J))(Z(I)Z(J))A3(X(K)X(J))(Y(I)Y(J))(Y(K)Y(J))(X(I)X(J))A4(A12A22A32)/E1KKV(J).J8S301120OBP(I,1)((A(1)Q(1))C(2)(A(2)Q(2))C(1))S3iLP(I,2)(A(3)Q(3))S3sV1140`P(I,1)((Q(1)A(1))C(3)(A(3)Q(3))C(1))S2jP(I,2)(A(2)Q(2))S2tI~:FLAG FACES WHICH ARE HIDDEN.I11N1H(I1)V(3)Z(I)D(3)2:CHECK FOR VALID VIEWPOINT]U(1)V(1)U(2)V(2)U(3)V(3)0ī1040"VIEWPOINT IS WITHIN OBJECT---PLOT IS ABANDONED---REENTER ALTERNATE VIEWPOINT."::KKD0(V(1)C(1)V(2)C(2)V(3)C(3))J13$A(J)D(J)INESHU(1)D(4)D(1)*RU(2)D(5)D(2)=\U(3)D(6)D(3)\fU1(U(1)2U(2)2U(3)2)gpI13xzC(I)U(I)U1IS3(1C(3)2)S2(1C(2)2)I13Q(I)D(I)D0C(I)II1N0V(1)X(I)D(1)V(2)Y(I)D(2)K3(L)D(2)K3(L)%D(3)K2o: D(1,2,3) ARE COORD. OF OBSERVER. D(1):VERT.;D(2):HORIZ.;D(3):DEPTH :D(4 TO 6) ARE COORD. OF POINT LOOKED ATD(4)0 D(5)0*D(6)04:PERSPECTIVE TRANSFORMATIONS>:FIRST..CALC.DIRECTION COS 3. TELEPHOTO"I>N"ENTER YOUR CHOICE (1,2,OR 3): ";AQXA610,620,630fbK350:D025:640{lK320:D010:640vK3200:D0100:640:"SHOULD HIDDEN LINES BE REMOVED? ";H$PI3.141593L02PIPI6K21(1)D(1)BERS FOR EACH FACE"%I1N11J1N2E" ";F(I,J);LJRYIa : "PRESS SPACE BAR TO CONTINUE":A$ ::5&"WHAT KIND OF PERSPECTIVE ?"+0" 1. NORMAL"5:" 2. WIDE ANGLE"?D" READ IN CLOCKWISE FOR EACH FACE FROM DATA STATEMENTS. h: IF A FACE HAS LESS THAN THE MAX NO. OF VERTICES,ENTER 0 AS THE LAST VERTEX NUMBER. rI1N1 |J1N2 F(I,J) F(I,J)0430 J JN21 V1(I)J1 I"VERTEX NUMZ(I) ,I 18 6"PRESS SPACE BAR TO CONTINUE":A$> @Y JF(N1,N2),V1(N1),H(N1) T: THE VERTEX NUMBERS OF EACH FACE ARE READ INTO ANARRAY F(N1,N2) WHERE N1 IS FACE NUMBER AND N2 IS THE MAX NO. OF VERTICES ON A FACE.6 ^: THE VERTEX NOS.ARE. CENTER C1,C2,C3@ :GET COORD. AND TRANSLATE TO ORIGIN.L I1N0` X(I),Y(I),Z(I)q X(I)X(I)C1 Y(I)Y(I)C2 Z(I)Z(I)C3 I  :"COORDINATES OF THE VERTICES": I1N0 ""VERTEX NO.";I;": ";X(I);4);Y(I);4);SING SPACE BAR."; F:"PRESS SPACE BAR TO CONTINUE. ":A$H d:16384g n:POLYHEDRON DATA IS INPUT xN0:...NO.OF VERTICES X(N0),Y(N0),Z(N0),P(N0,2) N1: :NO.OF FACES N2: :MAX.NO.OF VERTICES PER FACE : READ IN COORD. OF POLYHED %. ("THE OBJECT (A 'BARN') IS ROTATED."\ -"PADDLE(0) CONTROLS SIZE FIT ON SCREEN." 2"PADDLE(1) CONTROLS HEIGHT OF VIEW POINT." 7"KEEP SETTING AT MIN.(COUNTER-CLOCKWISE)" <"TO START AT 'GROUND LEVEL'." > A"HALT DRAWINGS BY PRES :18:"BARN" ?10:"H.EDELSTEIN JAN 16,1980"Er"ADAPTATION OF PROGRAM BY JOHN W. ROSS""IN 'PERSONAL COMPUTING'(NOV,DEC 1979)""DRAWS THREE DIMENSIONAL OBJECTS IN"#"PERSPECTIVE FROM VARIOUS POINTS OF VIEW."        }788,2:789,3:790,96!(}50C "S11" YES PLAY AGAIN":X12000:,KN255@MNX12000::90HRN:_VEEEE500:ELEL50}770,173:771,48:772,192:773,136:774,208:775,5 }776,206:777,1:778,3:779,240:780,9:781,202}782,208:783,245:784,174:785,0:786,3:787,76:100:255:210 N:(%N200G*N"YOU HAVE BEEN DESTROYED".N"BUT OUR ESCAPE CAPSULE HAS BEEN PICKED UP. THEY NEED PILOTS BAD."4N"IF YOU WOULD LIKE TO TRY AGAIN TYPE Y OR N">NCCCC1CN"NO. OF GAMES "CC1#HN"YOU SCORE WASV'EEEE100:ESES100:`'SO502003:768,SO:769,2:770Bj'SOHt'Q:100Z:200:"MUST TRANSFER ENERGY FROM SHILD TO LASERIN ORDER TO FIRE":TR(ES2):"INPUT THE AMOUNT TO BE TRANSFERED "TR:ELELTR:ESESTR:X12000:SO1002004:768,SO:769,10:770*SO6S1S11?210E@KJc'X1X:X2X:Y1Y:Y2Yp'EF120'X1X11:Y1Y11:X2X21:Y2Y21.'X12100708'X23810070='Y12Y2210070B'13:X1,Y1:X2,Y2L'0:X1,Y1:X2,Y2Q'EFX1,Y1:X2,Y:X1,Y2Bz13:X,Y2:X1,Y3:X3,Y1:X3,Y3k9:X4,Y3:X6,Y4:X,Y6:X1,Y4xBL150CL((1)4)CL1:13CL2:1CL3:9CL4:8X4((1)20)10Y4((1)20)10X4,Y4:BL" A1:B39:A139:B139$ 4:3010= A1:B39:A139:B139J 0:3010T 3050` Q120 AA1:BB1:A1A11:B1B11 A,B:A1,B1 Q  S020015:768,S:769,2:770 S EEEE300:ELEL50 EE26000& p1:X,Y:B139Q12028AA1:BB1:A1A11:B1B11HA,B:A1,B1[0:A,B:A1,B1b Q2:20,20:19,21:21,22:21,18 0:20,20:19,21:21,22:21,18HS1002:768,S:769,1:770RSfEEEE500:ELEL50pEE106000 " 2451 X,Y:X1,Y:X1,Y:X,Y1:X,Y17 c 10,1820:22,3020:10,1820:22,3020i  X,Y:X1,Y1:X1,Y1:X1,Y1:X1,Y1  FX,Y:X1,Y:X1,Y:X,Y1: 8:X,Y:X1,Y1:X1,Y1:X1,Y1:X1,Y1A1:B39:A139:50) EF35İ10000" GH(0)6 FF80:TT.192G T.0120000V F020000g ES2020000w EL015000 (21):"FUEL LEFT "F" LASER ENERGY "EL" " (22):"ENEMY ENERGY "EE" SHIELD ENERGY "ES" " (23):"SCORE "S11" TIME "T" X20CX2 rX20CX2* |Y20CY2: Y20CY2L XXCX:YYCYX 8:250k X18X22436~ Y18Y22439 475 Y18Y22450 475 X18X22450 475 FC(2(1))1 FC1İ2000 FC2İ3000 EF((1)Y((1)35)2 15:1200# 8, 278A TY1İ1000:275V TY2İ1300:275k TY3İ1350:275q z 250 D((1)4)1 "D1:MX1:340 ,D2:MX1:340 6D3:MY1:340 @D4:MY1:340 T0:250 ^XXMX:YYMY hFUEL USED "TFF+ "LASER ENERGY "ELC "SHIELD ENERGY "ESL " "d "ENEMY ENERGY "EEm " " "TIME LEFT (HOURS) "T X13000: 255 100 S11 EE1500 TY((1)3)1 CH1 X((1)35)2 "  CC18000%(10)K" AUTO SPACE WARS"\X12000:Xg-32000m2ZEL1200:ES2000:EE1500:T24[F10000\TF10000_200d::200n" STATUS BOARD"x(5)"FUEL LEFT "F "     z #  Ҡ ҠӠ ҠР ҠЮؠ" ҠЮ٠" ŠĠ ŠԠɠŠԠɠ ŠԮؠ ŠԮ٠ ҠϭӠˠ Ҡ٠  ŠȠ  ҠŮؠ ҠŮ٠ ҠŮڠ Ҡ٠ҠٮҠٮؠҠٮ٠" ԠԠ!ԠŠΠ"ԠԠɠϠŠҠɠΠĠҠŠҠ ҠŠŠ ԠӠԠӠԠԠԠԠРԠӠԠҠԠӠϠ ԠàŠԠؠӠԠӠԠӠĠԠ٠Π)0C(NSECT)71510:"COLORS MUST BE IN THE RANGE 1-6"@QTTZ(NSECT)[1460o(222)421600"L(218)(219)256,"APPLE ERROR NO. ";(222);" IN LINE # ";L6@216,0hI1NSECTrA(I)Z(I)TPI|II1 OR 2" ( GAMMAPI4GAMMA360PID (Z(10),LABEL$(10),C(10)W 2X2(10),Y2(10)l <A(10),TITLE$(2)w dI12 nTITLE$(I) xTITLE$(I)(TITLE$(I),40) I 1560 Z(NSECT1),LABEL$(NSECT1),C(NSECT1) NSECTNSECT1C(NSECT* LABEL=SECTOR LAB.*2 * COLOR=SECTOR *N * COLOR(1-5)*j * * ********************** : R87:PI8(1):X1279R:Y1192R GAMMA,MODE MODE1MODE21310 "ERROR - LABELLING MODE MUST BE 1 ~* LINE OF TITLE *6 * LINE # DATA,SECOND *R * LINE OF TITLE *n * LINE # DATA,VALUE, * * LABEL,COLOR * * WHERE: * * VALUE=PORTION OF * * TOTAL FOR PIE * * SECTION. *  * B* ROTATION *: L* (DEG. CLKWSE) *V V* LABEL MODE=1, *r [* DRAW POINTER * `* TO EACH SECT.* e* LABEL MODE=2, * j* LETTER CODE * t* EACH SECTION * y* LINE # DATA, FIRST *:  ENTERED 8/8/80 " :> **********************Z "* *v $* DATA FORMAT: * &* * )* LINE # DATA,ANGLE, * .* LABEL MODE * 8* WHERE: * =* ANGLE=ANGLE OF **********************9* *U* PIE CHART GENERATOR*q* ** CREATIVE COMPUTING ** AUG.'80 PAGE 110 ** * * ***********************      #(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$" "      `H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`  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   <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>  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    ****IIIIII******XXXXX**"L(8):" **XXXXXXX******************X**"(8):" **XXXXXXX*************XX**"(8):" ***XXXXXXXXXXXXXXXX***"(8):" ****************"X10000 KEYS (25):"XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXX*"j(8):" *XXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXX*"(8):" *XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXX**"(8):" **XXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXX**"(8):" **XXXXXXXXX**XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXX*"p(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXX*"(8):" *XXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXX*"(8):" *XXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXX*"-(8):" *XXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXXX*"k(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXX###XXXX###XXXXXX*"(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXX#####XX#####XXXXX*"(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXX###XXXX###XXXXXX*"0(8):"*XXXX000000>IIIIII<000000+0*XXXXXXXXXX*"d(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXX*"(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXX*"(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXXX*")(8):"*XXXXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXX*"e(8):" *XXXXXXXXXXX*0+000000>IIIIII<000000+0*XXXXXXXX*"(8):" *XXXXXXXXXXXX*0+000000>IIIIII<000000+0*XXXXXXXXX*"(8):" *XXXXXXXXXXXX*0+000000>IIIIII<000000+0*XXXXXXXXX*"#(8):"*XXXXXXXXXXXXX*0+8):" *XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXX*"o m(8):" *XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXX*" r(8):" *XXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXX*" w(8):" *XXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXX*"'|(8):" *XXXXXXXX:" *XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXX*"r T(8):" *XXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXX*" W(8):" *XXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXX*" YX15 ^(8):" *XXXXXXX*O+OOOOOOO>IIIIIIC50`D((0)128)4:E((1)128)4}!(DDF)K(EEF)Kī30#DFD:EFE%:7(A,BAC,BAC,BCA,BCA,BAE,BDAEC,BDAEC,BDCAE,BDCAE,BD-AC,BAEC,BD . (X1)Y1 j Y1L(X1)ĪL(X1)Y1@t C11ĪX2X1XN:Y2YN:2460`~ C12ĪX1X1XN:Y1YN:2460 C13ĪX1X1XN:Y1YN:2460I,J:.'769,100:: DURATION$8'( 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666e 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666CY2L(X2))ĪC14:2810` Y1H(X1)ĪH& 80,100P1,100P1,1500 0 P28013.125J 80,125P2,125P2,150P b P38019.685| 80,138P3,138P3,150 ' : GENERATES MUSIC TONES' 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174, 0,3,76,2,3,96 $'I770790:J:R t :CALC. % REMAINING6R100(D900)100\PP1: TIME PERIOD OF 100 UNITSn805P,150RRR(R10)1022:RR;"% REMAINING AFTER ";T;" DAYS " PITCHPITCH1768,PITCH 770::TONE ROUTINE* P1806.565-1 27,17,13,3,2,1,-15 24,3,17,2,7,4,5,2,-1X 22,3,19,1,2,1,2,3,3,1,1,3,-1w 21,2,16,2,4,1,1,3,5,3,-1 19,2,7,5,6,2,4,2,4,4,-1 18,2,5,3,5,3,3,2,4,2,1,3,1,1,-1& 17,2,5,1,11,2,1,2,4,3,5,1,-10 16,2,5,1,14,3,4,2,7,1,-1 3,3,7,2,22,2,14,16,-15 | 4,3,7,2,19,2,16,3,2,9,-1T  5,3,8,19,17,3,2,2,3,4,-1o  8,23,20,2,2,2,3,4,-1  29,3,18,4,3,4,-1  30,3,16,9,-1  30,3,14,5,-1  31,3,6,10,-1  32,14,-1  31,12,-1  30,2,9,2,-128,16,17,1, 1,3,13,6,32,3,2,7,2,7,-1; " 0,3,12,10,30,3,2,6,2,7,-1[ , 0,3,10,11,31,3,2,5,2,8,-1{ 6 0,3,10,10,32,3,3,3,2,9,-1 @ 0,3,12,6,34,4,6,9,-1 J 0,3,37,2,13,19,-1 T 1,3,36,2,13,18,-1 ^ 2,3,34,2,14,17,-1 h 2,3,33,2,14,5,2,10,-1 r,3,11,-14 15,11,1,4,2,3,1,2,2,2,3,3,2,9,4,10,-1V 9,3,14,2,5,3,4,4,8,9,7,7,-1y 7,3,21,5,3,4,10,7,3,2,3,7,-1 5,3,22,6,2,5,11,5,2,5,2,7,-1 3,3,24,5,3,4,12,5,2,6,2,7,-1  2,3,26,3,5,2,14,3,2,7,2,7,-1  1,3,51,3,2,7,2,7,-1 44,20,-1 38,3,1,6,10,8,-1= 34,-5,3,2,3,-10,2,10,-1[ 33,-5,3,2,3,-11,2,12,-1y 32,-5,3,2,3,-11,3,12,-1 31,-5,4,2,2,-11,3,1,1,13,-1 30,-4,5,2,4,-8,4,1,3,12,-1 30,1,6,1,3,1,4,-4,5,2,3,1,1,12,-1 30,5,1,1,1,4,1,4,2,11 *IIH::I -:55) 2B:B060D 7:S0āI1S:" ";:IS 9B:B095l <B0āI1B:" ";:I FL:L0ĺ"ERROR":NC:95 PL$"X":L0LL:L$"O" UI1L:L$;:I:50 _:0 cN: d 47,14,-1 n 35,-4,2,5,3,-7,3,8,-1 x  S=1,H=26 ARE GOOD!:D "SET MARGIN: ";S:S0S9910Jm"SET HEADER: ";H:H0H9918s"NO. OF COPIES? ";C:C0C1020"HARDCOPY? ";A$:A$"Y"A$"N"30#N1C(A$"Y"Ċ1:(9);"K":(12))" 80N"    # HIRES BOXES DAVE DRAKE 8-79) 9X20(1)3CL189J7c0,00,LL,LL,00,0p(I0LX20,II,LL,LILI,00,I<IF10CL'"":151G2000:151':^'"ON THE BEEP TYPE 4000.5FFFW THEN PUSH PLAY / RECORD AND RETURN"$':"IF YOU WANT TO SAVE THE PICTURE TO DISK TYPE BSAVE (NAME) ,A4000 ,L1FFF,D1 TO 2 ,V0 .':"WHICH DO YOU WANT 1 DISK OR 2 TYPE"8'V:V210060B'RETURN "" ""AFTER THE PICTURE HAS BEEN LOADED YOU MUST LOAD APPLESOFT AND THE PROGRAM AGAIN TO MAKE ANOTHER PICTURE "" ""IF YOU HAVE ANOTHER PICTURE TO LOAD JUST TYPE 2000.3FFFR AND CONTINUE TO PLAY THE TAPE"X1 C$"L"X1X11' C$"U"Y1Y11; C$"D"Y1Y11J C$"N"Ē0Y C$"Y"Ē3o X11X12782000 *Y11Y11902000 4X1,Y1 >2000  "TO LOAD A PICTURE TYPE " " " "* C050 C052 C054 C057 2000.3FFFR " THEN HIT ICTURE" @ J T39 ^F$"KEYBOARD"F$"K"2000N rX1((0)1.085)h |(016287)127:CO1v X110: Y1((1).74) (116287)12710000 CO1:0 X1,Y1 CO0:3 370 C$ C$"S"10000 C$"R"X1X11T ONE SPACE"3 "L TO MOVE POINT LEFT ONE SPACE"| "N FOR NO PLOTING ON THE SCREEN Y TO START PLOTING AGAIN" "S WHEN FINISHED DRAWING" ,::: 6"AFTER YOU FINISHED THE DRAWING THERE WILL BE INSTRUCTIONS ON HOW TO SAVE THE PHE VERTICAL PADDLE TO NOT PLOT AND PUSH THE BUTTON ON THE HORIZONTAL PADDLE WHEN FINESHED DRAWING"m 300 "USING KEYBOARD" " " "TYPE" "D TO MOVE POINT DOWN ONE SPACE" "U TO MOVE POINT UP ONE SPACE" "R TO MOVE POINT RIGH xF }F35000 (10)i "DO YOU WANT TO USE THE PADDLES OR THE KEYBOARD TO DRAW THE PICTURE"q F$w "INSTRUCTIONS FOR SAVING A PICTURE" " " F$"KEYBOARD"F$"K"200 "USING PADDLES" " "d "PUSH THE BUTTON ON T S12X1015&(S)?X)"SAVE A SKETCH "ISS1X#T1500:~$(S1):X)" "(X2<150F"WHICH FUNCTION ?"P" "Z"1 DRAW "d"2 DRAW THEN SAVE "n"3 LOAD A DRAWING"   11000:I <:7 F20 . 7-A100(1)50:B50(1)50OC90(1):D50(1):E50(1)e#CC5:DD3:EE3(A,BAC,BAC,BCA,BCA,BAE,BDAEC,BDAEC,BDCAE,BDCAE,BD-AC,BAEC,BD.AC,BCAEC,BDC/A,BCAE,BCD 2I YCOOLDY1:A6#PFLAG0A271010:910:610C  RIGHTUXCOODX1:A5f PFLAG0A1z*1010:910:6104 LEFT>XCOODX1:A7HPFLAG0A3R1010:910:610\PFLAGPFLAGfPFLAG0890p22:33::"ON";::" OFF":1X24:"COMMANDS: CTRL-F,CTRL-W, U,D,L,R,P";:17bA$GlA$"U"700WvA$"D"740gA$"R"780wA$"L"820A$"P"860(A$)6900(A$)23560610 UPYCOOLDY1:A4PFLAG0A01010:910:610 DOWN ";:A$:::PFLAG0,YCO79:XCO139@OLDY79:ODX139L3:910&I14:H(I)((LOC$,I,1))48:H(I)9H(I)H(I)70I:LOC0:I13:LOCLOCH(I):LOCLOC16:I:LOCLOCH(4):LC1LOCD22:"BYTES USED:";N33:"ON ";::"OFF":/POSSIBLE COMMANDS..."8:3:"CTRL-F WHEN FINISHED":3:"CTRL-W TO WIPE CLEAN AND START OVER":8:"U - TO MOVE UP":8:"D - TO MOVE DOWN":8:"L - TO MOVE LEFT":8:"R - TO MOVE RIGHT" 8:"P - POINT ON/OFF":18:" HIT ANY KEY TO CONTINUE32,0:33,40 I124:922:* 3000m D$(4):D$;"MON I,O,C":D$;"NOMON C"::MD(B)B(B256)256 D(3),LLL(4),H(4):HEX$"0123456789ABCDEF" :3:2:"ENTER THE STARTING ADDRESS":2:"OF SHAPE IN HEX: "; LOC$ :2" THEN ASSEMBLE THOSE ";E @" OF YOUR CHOICE INTO A SHAPE TABLE THAT"s J" CAN BE USED IN ANY OTHER PROGRAM JUST" T" BY LOADING IT AND PERFORMING 2 POKES." ^I110 h" "; rI |:32 A$ :DURING THE NEXT SECTION, A MENU WILL"Q " GIVE YOU THE OPPORTUNITY TO DRAW A " " SHAPE AND THEN SAVE IT ON A DISK. "; "" "; ," AFTER SAVING THE VARIOUS SHAPES YOU "; 6" REQUIRE, YOU CAN "----------------------------------------";7 32,1d :"ONE USE IS IN GAMES THAT USE MOVING" "OBJECTS ACROSS THE SCREEN. ANOTHER" "MIGHT BE ARCHITECTURAL MODELING." ::5:"HIT ANY KEY TO CONTINUE..."; A$ 2:1:32,0% ""TABLES"(34)" EACH CAPABLE OF CON-":"TAINING MANY SHAPES. THESE"e n"FINISHED TABLES CAN EASILY" x"BE INSERTED INTO OTHER PRO-" "GRAMS." "ALL SHAPES AND TABLES CAN BE" "STORED AND RETRIEVED BY NAME." 32,0:33,40:34,0-   ::H:I124:" ";:IR2:9~("WELCOME TO "(34)"SHAPING UP"(34)2:" PURPOSE:";<32,11:34,1F12P"TO FACILITATE DRAWING SHAPES,";Z"AND THE CREATION OF "(34)"SHAPE":C d     AAPPEARINGINABACUSAUG1979@# SOUNDS:S(16336):S(16336)* 3G MX,MYRX,RY:MXRX:MYRYN A_ MX140:MY96 * LINE 240 IS CTRL G TEN TIMES * "" X(16384) X12790 255 :  WRITTEN BY BEN NEIBURGER INSPIREDBYANIDEOLS BACKGROUND COLOR *: nSOUNDS:S(16336):S(16336)A xI` (0): * CONTROLS SPEED *t A030P2DAD RX14070API(A):RY9650API(A) (0)36: * CONTROLS COLOR OF DRAWING ON SCREEN * G1A22:MXG,MYGRXG,RYG:G:1 BEN'S PROGRAME FROM NORTHWEST SUBERBAN APPLE USERS GROUPZ NOVEMBER, 1979b :k255q(MX140:MY962P223.141592635<DP2360FPI105PCX140:CY96ZDA360(13)1 dI01911:0,I279,I:(1)36: * CONTR   T A CATALOG WILL APPEAR BUT IT DOES NOT. ALSO ALL DISK COMMANDS SPECIFY ""VOLUME 0 SO ANY DISK WILL WORK. 'NS' IN LINE #120 SETS THE NUMBER OF SHAPES THAT CAN BE STORED IN A SHAPE TABLE (PRESENTLY 128). SCALE HAS BEEN SET AT1"" " WARNING!!!!!! DO NOT MOVE 'UP' MORE THAN ONCE WHILE THE POINT IS OFF OR YOUR SHAPE WILL NOT FUNCTION RIGHT "M" NOTE: WHEN ASSEMBLING THE SHAPES INTO A SHAPE TABLE THE PROGRAM SUGGESTS THASIRE. (CTRL) W WILL ERASE THE ENTIRE SCREEN TO START OVER AND (CTRL) ""F TELLS THE PROGRAM YOU'VE FINISHED DRAWING. THE PROGRAM WILL THEN DISPLAY DETAILS OF THE SHAPE AND ALLOW YOU TO SAVE IT TO DISK. "500:400" NEXT DECIDE WHAT YOUR FIRST MOVE WILL BE, BUT BEFORE MAKING THE MOVE, TURN THE POINT ON OR OFF BY HITTING 'P' THEN HIT THE U, D, L, OR R KEYS TO MOVE"J"THE DOT IN THE DIRECTION YOU CHOOSE. THE POINT MAY BE TURNED ON OR OFF AS YOU DE SHAPE'S VECTOR TABLE. BE SURE TO SELECT A VACANT LOCATION THAT WILL NOT INTER- "x"FERE WITH EITHER YOUR HIGH RESOLUTION DISPLAY, YOUR DISK OPERATING SYSTEM OR APPLESOFT II. I'VE MOSTLY USED HEX 4000 (16384 DECIMAL) AS THE STARTING POINT. "ALLOWS YOU TO LOAD A SHAPE TABLE INTO MEMORY AND THEN DISPLAY THE SHAPES ONE AT A TIME BY SHAPE NUMBER. TO DRAW A SHAPE, TYPE 1 FROM THE MENU. "i500:400Un"THE PROGRAM WILL THEN ASK YOU WHERE IN MAIN MEMORY YOU WISH TO STORE THE SOFT AND DRAWING. " Z" AN ADDITIONAL PROGRRAM 'SHAPE DISPLAY UTILITY' HAS BEEN ADDED TO THIS COLLECTION. IT CAN BE USED TO REVIEW ANY SHAPE TABLE STORED ON THE DISK. IT ";d" " F"SHAPE TABLE AND STORES IT AS ABINARY SHAPE TABLE ON DISC. THESE SHAPE TABLES CAN BE USED IN ANY OTHER PROGRAM DEAL- ING WITH SHAPE DRAWING BY SIMPLY LOAD- "P P"ING THEM UNDER PROGRAM CONTROL,IDENTIFY -ING THEIR STARTING LOCATION TO APPLE- GRAM THAT ACTUALLY ALLOWS YOU TO DRAW INDIVIDUAL SHAPES ON THE HIGH "[ 7500:400 <"RESOLUTION SCREEN AND THEN SAVE THEM TO DISK AS BINARY PROGRAMS. PROGRAM THREE COLLECTS THE VARIOUS SHAPES MADE USING PROGRAM TWO INTO A ("PROGRAM' THAT WILL CALL A PROGRAM TO DRAW SHAPES IN HIGH RESOLUTION GRAPHICS , A PROGRAM TO ASSEMBLE PREVIOUSLY DRAWN SHAPES INTO A SHAPE TABLE, OR "M 2"EXIT FROM THE PROGRAM. PROGRAM TWO IS THE 'SHAPE DRAWING' PRODISPLAY UTILITY' PROGRAM THAT WILL ALLOW YOU TO VIEW THE FINISHED SHAPE TABLES THAT " "HAVE BEEN SAVED ON DISK WITHOUT GOING TO THE TROUBLE OF WRITING A PROGRAM. PROGRAM ONE IS A SHORT 'MENU "" 400 " THE FOLLOWING INSTRUCTIONS ARE PRESENTED TO ASSIST YOU IN THE USE OF THE 3 PROGRAMS THAT FORM THE 'SHAPE DESIGNED PROGRAM' BY MARK L. CROSBY IN "X "APPLE ORCHARD VOL. 1, #1, PAGES 37-45. TO THIS HAS BEEN ADDED A 'SHAPE     S :16302,0:74C1.684587814:C21.46073298CA02799R(D1(AC1)Y27k<A,00,191D1FA,191279,191D1P0,D1A,191D1Z279,D1A,191D1d:nx" BY LAWRENCE GUST" 1/1/81   :# "WHICH DO YOU WANT?": :" 1 NEBUS "T:" 2 NEBUS II "l:"TYPE 1 OR 2":A16304,0:16302,0:16300,0:16297,0A130A25010" BLOAD STAR SHIP.X"(2" BLOAD STAR SHIP.Y"< 1)20)  @ d'G(1)20038:H(1)10038;,A1(1)7015I(1)71pG,H76(1)(G38),78(1)(H38)vXC(1)101C8İ900 100X239(1)259LY152(1)172X,YI150 xX(40(1)20),Y(40( `@  bs< @@ d`@ F@|@8 ! x` 8@ `@@ ` `@@@@8x <  @@`@  `@q@  @@ br< @@ `F@s`@@`~p( !  `@ ` `0` >`?@@?@<8 ``@ @@  8@@A@  @ `@` >0@<@@ |8Ns p|p @0| ` p@x!@`p              R APPLE!!!":) ':2 '1009 $'5e .'6:"NEITHER RAIN, NOR SNOW, NOR GLOOM" 8'" OF NIGHT WILL KEEP US FROM SHOW-" ='" "; B'"ING YOU THIS GREAT MASTERPIECE. ":WER THE QUESTION!":1305 100 (A$,1)"Y"ĺ"SO YOU ENJOYED THE PROGRAM EH? WE NAMED IT FOR YOU!!!!!":255:"RUN APPLE BARREL SOFTWARE"! "SOME PEOPLE DON'T RECOGNIZE GOOD ART":"EVEN WHEN IT IS GIVEN TO THEM ON A":"A SILVE 10000241,19 1,0,4,0,36,22,54,4,0VX2000020008:N:X,N:\p(232,32:233,78v2<X1402FXPX1164ZX1d1139,79nX1,Xx22"DID YOU ENJOY THAT DISPLAY? (Y/N) ";A$, A$""ĺ"ANS  wwwwwwwwwwwwwwwwwwwwwwwwwwwDDǍŠwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDD0wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDDwwwwwwww wwwwwwwwwwwwwPwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDDDLjwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGwwwwwwwwwwwwwwwwwwwwwwẅ̈pwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwtDD̜ψwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwẅ̈(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDDÄ̈̌ŠwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDD$wwwwwwwwwwwwwwwwwwwwwwwwwwwDDwwwwwwwwwwwwwwwwwwwwwwwPwwwwwwwwwwwwwwwwwwwwwwwwwwwGDDDLjLjwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwtDD̜wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwww(wwwwwwwwwwwwwwwwwwwwwwwwwwwDDA̍̌ŠwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDD̈̈wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDDwwwwwwwwww wwwwwwwwwwwwwPwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDDDLjwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGwwwwwwwwwwwwwwwwwwẅ̈pwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwtDD̜̈wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwẅ̈(C1)4:B1E1:E1B11(B10)256:E2B23(B10)@ >60,B1:61,B2R ?62,E1:63,E2g @66,0:67,4PAGEq A1912w B} CwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDD̈TALOG": P40I 8NP04::NP=NUMBER OF PICS APPENDED TO THIS PROGRAM ^ 9 DISPLAY 1 PIC : PARAMETERS: PAGE=1 OR 2;PIC=1 TO NP ;(PAGE2)PAGE1 <1912,216:1913,160:1914,0:1915,76:1916,44:1917,254. =E1(175):E2(176):B2E2(NPPI~ T1200:T230:T3200:T4500+63800;:16302,0C#70_(PIC1:63801:C1T1:C{2PIC2:63801:C1T2:C7PIC4:63801:C1T42:C<PIC3:63801:C1T3:CFPIC4:63801:C1T4:C KKEY(16384):KEY127Ĺ16298,0:::"CA       0 p`0 `  ` r0{G @@   ~`8`n 0  ~008 |  @a @ `   `0 `` p @ @8` @  xx?`1 | ~0@! 08  0 >`8`p`   @`@K `@0  @`>@ 0` 3@ @ x# `    @ @ p?`  0@ ` B X0`8` x `#` 0  `2@a 0@   @@h @@`  @p@h@p@ ?c ` p@> " "{F VERTICAL PLOTPT12500:TRZX1_C1((1)8)dC10C1495nC1xW((1)100)zZ((1)10090)X,WX,Z X (X1)Y1 j Y1L(X1)ĪL(X1)Y1@t C11ĪX2X1XN:Y2YN:2460`~ C12ĪX1X1XN:Y1YN:2460 C13ĪX1X1XN:Y1YN:2460 C14ĪX2X1XN:Y2YN:2460 X10ĪX10 X1279ĪX1279 X20ĪX20 X2279ĪX2279 Y10ĪY10  Y1Z2 A(K,C)Y1,$ Y1H(X1)ĪA(K,C)9999Z. Y1H(X1)Y2H(X2)Y1L(X1)Y2L(X2)25508 (Y1H(X1)Y2H(X2))ĪC11:2770B (Y1H(X1)Y2H(X2))ĪC12:2770L (Y1L(X1)Y2L(X2))ĪC13:2810V (Y1L(X1)Y2L(X2))ĪC14:2810` Y1H(X1)ĪH(279)L(279)HA12799H(HA)159:L(HA)0:HAD::3UYRR1S1_CC1vX2R2(R1)S1KK1C10Z1A((Y2X2))B(Y)Z2A((Y2(XS1)2))B(Y) X1YBS1CX:X2YBS1(C1)X Y1YBYZ1:Y2YBYA SETS HEIGHT OF CURVE*R40<4: R IS RADIUS OF CIRCLEE>D10uH: D IS THE PERIODICITY OF THE COS FUNCTIONRU(RS1)41\A(U,U)f :U IS THE NO. OF LINES pS21600zA(X)A((X2S2))(XD)B(X)A((X2S2))H10A(KK,CC1)01510)Y1A(KK,CC);Y2A(KK,CC1)LX1,Y1X2,Y2TCC\KKb: ****DECAYING COS CURVE***********************************************S14:S1 SETS SPACINGYB90 :YB SETS BASE LINEA8 : 360 FA(K,C)0 PX' ZA(K1,C)Y2/ dK06 nYk s24:"TO SEE CROSS-HATCHING,PRESS SPACE BAR":E$ xX10:X20:Y10:Y20 XIYB2R KK1U2 CC1((U1)2)1 X1XI(KK1)S1CCS1 X2XI(KK1)S1(CC1)S1A(KK,CC)015)((X2S2))6 Z2A((Y2S2))(((XS1)2)S2)X X1YBS1CX:X2YBS1(C1)Xr Y1YBYZ1:Y2YBYZ2 A(K,C)Y1 Y1H(X1)1350 Y2H(X2)1350 Y1H(X1)ĪH(X1)Y1 (Y2H(X2)ĪH(X2)Y2 2Y10Y201360 <X1,Y1X2,Y2:1A(U,U)' ` :U IS THE NO. OF LINES 3 jH(300)A tHA0299V ~H(HA)(YBR):HA` T.04 : T IS ARBITRARY FRACTION TO MAKE S2 GREATER THAN R ::3 YRR1S1 CC1 S2RT X2R2(R1)S1 KK1 Z1A((Y2S2)*******************************************************************EXPONETIAL SURFACE[ d S14z :S1 SETS SPACING YB100 :YB SETS BASE LINE $A80 .: A SETS HEIGHT OF CURVE 8R40 B: R IS RADIUS OF CIRCLE LU(RS1)41 V! n10)"1. EXPONENTIAL CURVE"' xK 10)"2. DECAYING COSINE CURVE"S NOk NO8000,9000,10000 NO1000,2000,3000 24:"DO YOU WANT TO DO THIS AGAIN?";C$ (C$,1)"Y"ī10 : 10:18)"OK" Q1500:Q :U ***** :16384:#18)"SURFACE"+:P(8)"H.EDELSTEIN FEB 21,1980"w2:10)"PLOTS A THREE-DIMENSIONAL"<10)"MATHEMATICAL SURFACE."F:P"AS A BASIS FOR THE SURFACE, ENTER THE"Z"NUMBER OF ONE OF THE FOLLOWING CURVES:" d      01,31,16,1,96,177,6,73,127,145,6,136,169,0,240,232,63,169? \ ***********************p  MULTICOLOR 1  AUTHOR UNKNOWN  MODIFIED BY  BY CRAIG A. MILLS  AUGUST, 1980  ***********************  0,80B139,159B. 279,80B140,159B5 B> TWOQ I110:768:d PAUSE1500:l 15 HIRES INVERSE ROUTINE  BY SCOTT KNASTER I76876835 X:I,X:9 169,64,133,7,169,0,133,6,160,255,192,255,208,2,198,7,165,7,2900,23:14:"MULTICOLOR 1"2 ?TWO12N((1)8)^X((1)8)o(A0139X22A,0139A,79<279A,0140A,79FA,159139A,80P279A,159140A,80ZAdB079X2n0,79B139,B x140,B279,79B  ,140,112,42,26,5,122,25,160,81,182d R 161,17,140,37,140,112,9 5,110,112,136,130,156 n :10I,106,194,114,205,118D X140,112,116,22,93,49,64,115,83,144,105,169  196,56,140,112,140,112, 140,112,140,112,180,132 140,112,91,8,70,38,35,117,55,152,82,182  180,36,161,52,142,76,12 9,108,138,128,154,144 " 140,1122,140,112,42,26,5 ,122,25,160,81,182 b 180,36,161,52,142,76,129,108,138,128,154,144  231,92,224,100,207,104, 224,108,231,108,212,102 161,17,140,37,140,112,95,110,112,136,130,156 & 213,74,204,84,196,96,18 04,108,231,108,212,102R 140,112,116,22,93,49,64 ,115,83,144,105,169 213,74,204,84,196,96,180,106,194,114,205,118 140,112,91,8,70,38,35,1 17,55,152,82,182 ,196,56,140,112,140,112,140,112,140,112,180,1320 ^ 140,11E,YF:YG,YH:YJ,YK:YL,YMY (OAA:OBB:OCC:ODD:OEE:OFF:OGG:OHH:OJJ:OKK:OLL:OMM +XAYA:XBYB:XCYC:XDYD:XEYE:XFYF:XGYG:XHYH:XJYJ:XKYK:XLYL:XMYM 2I F0 POA,OB:OC,OD:OE,OF:OG,OH:OJ,OK:OL,OM d231,92,224,100,207,104,22p3 I18  0NOA,OB:OC,OD:OE,OF:OG,OH:OJ,OK:OL,OM|XA,XB:XC,XD:XE,XF:XG,XH:XJ,XK:XL,XMA,B,C,D,E,F,G,H,J,K,L,MYA,YB,YC,YD,YE,YF,YG,YH,YJ,YK,YL,YM3A,B:C,D:E,F:G,H:J