' +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`Հ~ߪժժժՀ||~ APPLESOFT II TOKEN."$:"IF RIGHT AFTER & THERE IS A '$',THEN THEPRESENT ROUTINE DOES NOTHING. THIS IS INCLUDED FOR POSSIBLE LATER ENHANCEMENTS".A THE THE BASE PAGE. THE INTEGERS A,B,C,D ARE STORED INREVERSE ORDER:DO,D1=D;D2,D3=C;D4,D5=B; D6,D7=A.":"YOU CAN PASS LESS THEN 4 INETGERS. IF YOU PASS MORE THEN 4,THEN ONLY THE LAST FOUR ARE STORED":"THE 'AT' AND THE ',' CAN BE ANY SINGLE  @@(T *T  P@@(P(T Ђ@(T *T @@(T *T Ђ((D "  Ђ(@(D "T  P@ T*U*U*T*U*U*U*U*U*  @(PD"Ղ*U*U*U*U*U*U*U*U*U*U* @@(T *T  P@ժժ@(T*T Ђ@(T *T @@(T *T Ђ((D"  Ђ(@(D "T  P@ *U*U*U*U*ժժ  @(PD"Ԫ U*U*U*U*U*U*U*U*U*U*U*U*Հ @@(T *T  P@@(T*T  Ђ@(T *T @@(T *T Ђ((D"  Ђ(@(D "T  P@ U*U*U*U*U*U ( @ PD"@*U*U*U*U*U*U*U*U*U*U*U*U*U ߺ@E BAR TO CONTINUE...>"-(16384)155436E(16384)160424p SPECIAL END ROUTINE. 16368,0:936:16298,0::432434:10CT$"* * * THE END * * *":440: PRINT CENTER ROUTINE. 200 CT$"BY ROGER WAGNER":440OCT$"DONATED BY SAN DIEGO APPLECORPS":440kCT$"OCTOBER 1979":440r :CT$"DRAWS HI-RES POLYGONS":440 PAUSE ROUTINE. 21:" PRESS THE 'ESC' TO END"22:"< PRESS THE SPACIN X(I),Y(I)X(J),Y(J)$ J+ IT KEY(16384):KEY127Ĺ16368,0:20h KK1:KZ135 16368,0:A$:A$"X"20   INITIALIZE. CT$(40):434  TITLE PAGE ROUTINE. 3:CT$"* POLYGONS *":44I1C X(I)OX(K)R(K)((PI2N)I):Y(I)OY(K)R(K)((PI2N)I)R X(I),Y(I)_ I2N1 X(I)OX(K)R(K)((PI2N)I):Y(I)OY(K)R(K)((PI2N)I) X(I),Y(I) I (16384)155436:16368,0 CONNECT ALL POINTS I1N J(K)3))3u sIF THE FIG. IS TOO COMPLEX FOR ITS SIZE, (N>R(K) AND R(K)<13) THEN N IS REDONE. EXCEPTION IF R(K) < 3 x:22:"FIGURE #";K1;" ";:18:"ORDER:";N;" ":"ORIGIN:<";OX(K);",";OY(K);"> ";:18:"RADIUS:";R(K);" "; } DRAW POLYGON 105+ U REDUCE RADIUS TO FIT AVAIL. SPACEA ZTK1:T:T0K1 _TR(((OX(K)OX(T))2(OY(K)OY(T))2))R(T)4:R(K)TRR(K)TR dT:R(K)330 i DETERMINE N SIDES nN((1)((R(K)12)9)(R(K)11)R(K))4:R(K)NR(K)13R(K)3N((1)(R(OX(K)140):DY(80OY(K))2 -DX140DX:DY80DYJ 2DXDYR(K)(DX1)b 7DYDXR(K)(DY1)n <K105 A CHECK FOR INTERCEPT WITH PREVIOUS FIGURES FT0K1 KR(K)R(T)((OX(K)OX(T))2(OY(K)OY(T))2)ĂT:105 PIF NO INTERCEPT THEN  P PRESS ANY KEY TO START OVER; PROG. HALTS AT Z+1 FIGURES UNTIL KEY PRESS.Y400r Z40:PI223.1416:3X(20),Y(20),OX(Z),OY(Z),R(Z)K0 DETERMINE ORIGIN AND RADIUS#OX(K)((1)279)1:OY(K)((1)159)1 (DXB0:A139:::15:10::"IMPACT"::P13000:P@^2:I0191:0,I279,I:Il#X1X:Y1Y(X279(1):Y191(1)20FAA1:A279A0GBB1:B191B0P139,95A,BZ35Y  P@ U*U*U*U*U*U*U*U*U*U*U*U* @(PD"ЪժՀ(U*U*U*U*U*U*UժժЪ @@(T *T  P@(P(T Ђ@(T *T @@(T *T Ђ((D "D  Ђ(@(T "T  P@ T*UU*U*U*U*U*U*U*U*U*U*  @(PD"*U*U*U*U*U*U*U*U*UX,Y:0:139,80OX,OY:OXX:OYY:) ^20X* RADAR BY BRUCE KESSEL# cX27901:Y0:7:139,80X,Y:0:139,80OX,OY:OXX:OYY:nY0159:X0:7:139,80X,Y:0:139,80OX,OY:OXX:OYY:X0279:Y159:7:139,80X,Y:0:139,80OX,OY:OXX:OYY:! Y15901:X279:7:139,80**********************C  ' POLYGONS ';**********************W* CONTRIBUTED TO THE *s* SAN DIEGO ** APPLE CORPS ** BY ** ** ROGER WAGNER ** (7-79) *(CT$)2CT$""", G GIVEN TO APPLE COREc OF SAN FRANCISCO FOR| USE OF MEMBERS.  PROGRAM CLASSIFIED - PUBLIC DOMAIN -  LAST MOD.OCTOBER 1979 FOR CONVENTIONS UPDATE.O PPST JJJJ ` UP ԭT 9 X`< =>?< =>?BC ,`]]]]]]]]]]o)K)qqqqqqqqqqqqqqqq)K)oM+ mK))Km +Mo)K):p^<~nnnnnn~<^p::p^<<^p::p^<~\LLLL\~<^p::p^<;;;;;;;;;;;<^p::p^<<^p::p^<~llllll~<^p::p^<<^p::p^<<^p::p_______________p::p^<~\:((:\~<^p::((((((((((((((((((::p^=============^p::p^<~\JJJJ\~<^p:                    :******************::p^<~\:**:\~<^p::p^]]]]]]]]]]]]]^p::qqqqqqqqqqqqqqqqq::p^<~\::\~<^p::pp:)oM+ nnnnnnn +Mo))oM++Mo))oM+ mLLLLLm +Mo))oM;;;;;;;;;;;;Mo))oM++Mo))oM+ mlllllm +Mo))oM+ +Mo))oM+ +Mo))o______________o))oM+ mK)()Km +Mo))((((((((((((((((())oM============Mo))oM+ mKJJJKm +Mo)                    L*******************)oM+ mK***Km +Mo))o]]]]]]]]]]]]]]o))qqqqqqqqqqqqqqqq))oM+ mK))Km +Mo)))     ,0,0,1,1,1,1X 0,1,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,1,0 0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1 1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,1,1,1< 0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1t 1,1,1,1,1,1,1,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,1,1,1,1 1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,1,0,0,0,1,0,1,0,0,0,0,1,1,0,1,1,1,1,1  1,1,1,1,1,1,1,0,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,1,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0 1,1,1,1,1,1,1,0,0,0,0,0,1,0,0,0,0,1,1,0,0,0,0,0,0,0,1,0,1,1,1,1,1,1,1 1,1,1,1,1,1,1,0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,1,1,1,1,1,1,1( 1,1,1,1,1,1,1,1,0,0,0,0,0,1,1D FOR LOVERS TO EXPRESS""3000D"THEIR LOVE FOR EACH OTHER!"N3000X1000iI14000:Iox100 :I13000:I:::AY" Q3000:V"THINGS THAT YOU HAVE DONE FOR ME THESE"D[3000s`"PAST UN-FORGETABLE YEARS. I ONLY REGRET"}e3000j"THAT I HAVE HAD SO LITTLE CONSIDERATION"o3000t"IN REMEMBERING THOSE SPECIAL DAYS THAT"y3000~"ARE RESERVE4,22' 11:18,2020:18,2022:21,19- 7 2000A 1100h "THIS IS ALL I HAVE TO OFFER - ";z :"MY LOVE!"  "BE MY VALENTINE - YOUR HUSBAND HAROLD" 2000 I12000:I 100L::"THANK YOU MY DARLING FOR ALL THE MAN8,7:19,8:20,7:21,6) 2,517:2,521P 2,823:23,262:23,268:23,255 20,30:21,31:22,32:23,33:24,32:25,31:26,30:34,3823 *30,3828:30,3831:28,3130:28,3138 430,3833:30,3836:33,3638 10,22:11,23:12,24:13,23:1  :3F138,8149,15192,148181,14944,11846,109138,8p(149,1565,104161,126165,13646,109277,107135,43161,126<135,43143,34181,149F21P N'T BE SURPRISED IF THIS ENDS UP IN A FUTURE G.R.A.P.E. VOLUME OF PROGR"100 M K1PO THHAPIKPO4 XXCATH(THOF)N YYCDIATH(THOF)^ X.5,Y.5e &Kl 0Js :I <L13000:L >: ?(7) X"HIT RETURN TO CONTINUE: ";X$ b l v"DO YOU WANT TO DO ANOTHER ONE? ";X$ (X$,1)"NF REVOLUTIONS IN EACH? ";HA@ x"NUMBER OF POINTS IN EACH? ";POu "DRAW BOTH FOWARD AND REVERSE SPIRALS ? ";BO${ AMX(HAPI) DI1 DC2:(BO$,1)"N"DC1 ,I1DC 6I2DI1 J1SP OF2PI(J1)SP 3 XC,YC >850 H:936:5:200: R:936:7:16:"GOOD-BY"@ \\ f JE MUSGRAVE & WR DIALIRETURN."% 6"IF NOT PRESS N,RETURN"6 @I03500:I= JCI TPI3.14T ^M1.25\ rS3h |:936n z 140,95 E02PI2PI180 &R95(ES) XX(MR(AE)) Y(R(BE)) X140,Y95 E *AGAIN$ 4AGAIN$"D"840( d:&n" BRUN ART ILLUSION.X"X:XIr 4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1d | 2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,34,-1  14,17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1  14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1  12,29,31,33,-1,11,13,17,17,19,19,22,22,2430,40,-1,7,17,29,40,-1,8,19,28,40,-1e J 9,20,27,40,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1 T 13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1 ^ 19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1 h 8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1/ X0160 X128240# X);:Y; IXY:JI5(I5)K (LB(J));R I[ 170a o 260:450u I16:(10);:I   " 2,21,14,25 , 1,2,-1 62,11,27,40,-1,3,12,28,40,-1,4,14,29,40,-1$ @ 5,15,31,40,-1,6,16,g 17);"BUNNY"B CREATIVE COMPUTING MORRISTOWN NEW JERSEYL::{d "BUNNY" FROM AHL'S 'BASIC COMPUTER GAME'n DELETE LINE 120 AND BUNNY WILL BE ALL @@@@@@xI04:B(I):I260L64: ASCII LETTER CODE... X: 0,1,1,1,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,1,1,1,0v 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  DONT FORGET TO TURN ONH YOUR PRINTER MANUALLYI,0,1,0,0,1,0,1,1,0,0,1,0db 0,0,0,0,0,1,1,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,1g 0,1,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,1,0l 0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,1,1,1,0Hq,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,1,0S 0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,0,1,1,1,1,1,1,1,0,0,0,1,0,0,0X 0,1,0,1,1,1,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,1] 0,1,1,1,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,0P? 0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,0,1,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0D 0,0,0,0,0,0,0,1,0,0,0,0,1,0,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0I 1,1,0,0,0,1,0,1,0,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,04N 0,1,0,0,0,1,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1l1 1,1,0,0,0,0,1,1,0,1,0,0,0,1,1,0,0,1,1,0,1,1,0,0,0,0,1,1,1,0,0,0,0,1,16 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0: 0,0,0,0,0,0,0,1,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,1" 1,1,1,1,1,1,1,0,1,0,0,0,0,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,1,1,1,1,1,1,1' 1,1,0,0,0,1,1,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,1,0,0,1,1,0,0,0,1,1 , 0,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,1,1,0278I% S01 3S6 ,XS,0A,B279XS,159? @S,XO TY0158I%Z hS01c |3S~ 279,YSA,B0,159YS S,Y PAUSE11500:PAUSE 120  TONY SEVERAAP: CLEAR THE TEXT AREABd24: MOVE CURSOR TO BOTTOM LINEkx: ST HIGH-RESOLUTION GRAPHICS MODEA(1)279: PICKA ND X FOR CENTERB(1)159: PICK A Y FOR CENTERI%((1)4)2: PICK A STEP SIZE15:"STEPPING BY ";I% X0  ĒC2  :C20: 40< . MODIFICATION FUNCTIONSJ .X1(XR)X .Y1(XR)a 2122Xb& HYPER BY FRED MITCHELL OCT4,784R57.2958:HC12:C25[ :16302,0:2cC1y(C1C17:C2C27dX1180xX1(XR):Y1(XR)y12000z140X1140,86Y186140X1140,86Y186}CC~P(16336)C1 C0 ,31,-1-  10,11,17,18,22,22,24,24,29,29,-1Y  22,23,26,29,-1,27,29,-1,28,29,-1,4096_ e XR 140! PAUSE1750:PAUSEA J((1)5)3ī600$ TY0191I%/ hS01= |S0ĒM1%J S1ĒM%e 279,YSA,B0,191YSn S,Y PAUSE1100:PAUSE ((1)3)2140 PAUSE1750:PAUSE:120 XX2780I% ]S01 b0 lXS,0A,B279XS,191 vS,X#Pd24x$A(1)2793B(1)191KPAUSE1750:PAUSE]I%((1)4)2kM%(1)7zM1%(1)7M%M1%M1%M1%1M1%7M1%M%1X0278I%S01S0ĒM%S1ĒM1%,XS,0A,B279XS,191@S,X CC ~P(16336) C1* C0ĒC20 = :C20:E 30b . MODIFICATION FUNCTIONSp .X1(XR)~ .Y1(XR) 21229& HYPER BY FRED MITCHELL OCT4,784R57.2958>936b"ENTER FIRST TWO COLORS";C1,C2u :16302,0:2}C1(C1C17:C2C27dX1180xX1(X57.2958):Y1(X57.2958)y12000z140X1140,86Y186140X1140,86Y186 }  01 CP%S(P%Q%)4 D0,XS140,95279,191XS= ES,XI JM:120Jx}M%((2.78)5)1)M1M%9P%(4)61GP%4131ZQ%(4)(7P%)nP%3ĭQ%1133(P%Q%)7131I%((1)8)2X0278I%S01P%SQ%,XS,0140,95279XS,191@S,XAX1900I%1.01 BS 6 1500 (6 21600& Z20 d15007 2A 1600I 10X B11922g 0,B279,Bn Bt  @B01902 J0,B279,B TB ^1211452 ,0,D279,D 6D& J27 TC1431922F ^0,C279,CM hCT |2e B1681902t 0,B279,B{ B PAUSE11500:PAUSE  16302,0 2 1600 .5 81500 `5 j1600 1 1500 1 1600  16302,02*(B0242920,B279,B@<BGP5UZC1242dd0,C279,CknCr5B247220,B279,BB1C4712020,C279,CC6B9616820,B279,BB6 "D  d xA(1)279+B(1)191=I%((1)5)9MX0278I%XS01a1S|XS,0A,B279XS,191S,X,Y0190I%@S01J1ST279,YSA,B0,191YS^S,YPAUSE11600:PAUSE120 E ";A$ '2AAIN & JERRY JACKSON"B'-L'17);"AGE 13"7V'::e`'"PLEASE SEND ANY COMMENTS, SUGGESTIONS,"j'"OR QUESTIONS TO HENDERSON JR. HIGH"t'"STARKVILLE, MS. 39759"~':"WE WOULD LOVE TO HEAR FROM YOU SOON!"'24'"PRESS RETURN TO CONTINU5901 135,77279,Z:Z, W27901? 135,77W,0:WM RE0159b 135,770,RE:REi &0u 0B4ī1~ :450 24 16)"GOOD-BY"  ':: '8 $'"HIGH-RESOLUTION GRAPHICS DEMONSTRATION" .':8'"AUTHORS--PAUL CHAST79,0279,1590,1590,0279,159. T1500:TF FD(280):WE(159)M 5s FD,WE279,15912,4545,148FD,WE AA1:A,12B,13C,15D,19E,25F,100100,G10,H 570 BB1:CC1 B B6B0 W0279 135,77W,159:W Z17, T45,4547,8032,34159,1590,96240,343 ^1e h279,1590,034,13046,7946,10020,145279,0 r100,100200,15932,5412,84124,14965,121,21,10056,3290,9891,9245,8794,320,1495,3512,9764,756,49,4510,2030,4050,60 |0 0,020279,1590,1590,04 1,1278,1278,1581,1581,1K 2,2250,3434,156m 4,52,9270,45270,15080,90t 3 "45,900,140250,13030,90123,79 ,45,3835,6812,15945,3691,2353,12365,146 6260,1000,80270,70250,60200,40150,30 J 1,1279,04 2,2279,0:3,3279,0:4,4279,0; 5M 10,10279,10_ 11,11279,11 6:13,13279,13:14,14279,14:15,15279,15 20,20279,20 21,21279,20:22,22279,20:23,23279,20 0,0279,0279,1590,0 5 0,0279, 10000:9A3:B4:C5:D6:E7:F8:G8:H10? T130,130100,100e(130,1300,0r-X1100y.X21<170,1700,0F53,4739,70P10,10100,100Z1d5,100100,50n130,0120,36x175,1750,0 0,0279,0    @@(T *T  @@@(T*T  Ђ@(T *T @@(T *T Ђ(D"  Ђ(@(D "D  P@ P*U*U*U*U*UժՊ(P @ PD T*U*U*U*U*U*U*U*U*U*U*U*U*U* @@(T *T  @@@(T *T  Ђ@(T "T Ђ@(T *T @(D" Ђ(@(D "D  P@U*U*U*U*(P @ PD ԪT*U*U*U*U*U*U*U*U*U*U*U*U*U*ЪՂ @@(T *T @@(T *T  Ђ(@(T "T Ђ@(T *T @(D" Ђ((D "D  P@U*U*((T @ P@ @*U*U*U*U*U*U*U*U*U*U*U*U*U @@(T *T @@(T *T  Ђ(@(T "T Ђ@(T *T@  @(PD"F@  Ђ((D "D                 P xA(1)279,B(11)191>I%((1)3)9NX0278I%YS01b5S},XS,0A,B279XS,191@S,XTY0190I%hS01|5S279,YSA,B0,191YSS,YPAUSE11500:PAUSE120 ???~~~|}yswoo_~|p`@366???~~0p`@8sxp8??|`0`p?xp8~3ay??L`0~|pps9ysg?~}}}}_??g3f p`@~ 0acf` xpp00p@`px|~~@p|~@`px|~??}l @`@???GCg"AD@HAR PI) W %".X0`@  " IP("(%S V,X PP0p@@``ppxCCggfvp0|~wr00ysg|g`px|~72~||xxpp``@  ,268 @ ' 101,104,92,91,96,91,93,94,98,104,93,106,95,91,93F H 4000  K111" t) K/ << K1600C KI h\ @I((1)15)1h ENP%(I)s JIT(I)y T (#H0Ē0:H0: #H((1)7)1:H49200 T$H: ' 58,60,91,92,192,175, 210,273,45,60,90,120,213,183 l9000 vDD1:D2D0:1500. JN11K X(J1),Y(J1)X(J),Y(J)R J\ 9000c Ml 600| 4G11000: LI 600 ` 936 ( 3600 15);"LAST ";L 4000 T 936 4000  936 3600 15)"NEXT ";I";(N1)2;" DIVISIONS" A0& D0. J08 JJ1H SAI:RACk X(J)140S(R):Y(J)90S(R) LX(J)0X(J)279Y(J)0Y(J)189JJ1:1400 AAI 800 xNJ: H7:H M13 140,90 @J1N X(J),Y(J) J 8:15:"WORKING . . ."= "SORRY FOR THE WAIT. I AM BUSY :C s "CALCULATING ";(N1)2" SINES AND COSINES" "(TO 9 DECIMAL PLACES)" :"PERFORMING ";(N1)41;" ADDITIONS" :"DOING ";(N1)2;" MULTIPLICATIONS" :"WORKING ON G!dX(110),Y(110),T(15),P%(15)-nI1157sT(I)>xIJI115UP%(I)\IkD0:H7:7X(0)140:Y(0)90,C6.2832360Z(1(1)):I1360(1)X8000l::16:"NEXT ANGLE"n:20:Iv:17:"DEGREES"  x|||~~~???@``pppxx_Ogw{{}?f66~~~?? g8p`x@`px|~@`px|~~|p`?x<$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,"*:<>""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""">>>> >00000>"PPPP(~ < (&20 *, **>> """ " >> ">> """>""""""< >> " +i+M$$! $%%#,p% 3Lp"% $`"H ߒ*+)hi#"H ߒ!*0+i+i䭂H# h`"%$$%H hi#`$% ߒ,*+M,PM*!0 +i+`%J) +ie *`((((' 8!$!$%",0L"$!e (' !!%##`` e$$ "(!#L"L $ J A `L ~,PA\8 & & &m)m ݒe$*+M$(M,p ,pP!pA*L`,S"`,T@0,U`* L" LB$!$$"% %L"```,,Lҩ`@~`` LX`$%L$t````Y``L$e ( L L L !%# 3L㎅5 E5``)~W L fHeH~`cƏ 7?G\dltʐאc cGc$~`1  em` ` ,0$%`@`$$hLLC0LdLd m0 @ @ Cf `89467 ,R,W f *,P`ɭӠҠΠؠ `((*)  +*HN OI*P,h*,H,}0ɛ} ɍ $h`ɐ 6+}       SPIRO BY JIM SIMMONS8 LAST MODIFIED 2/27/80R WASHINGTON APPLE PIj VOL 2, NO 2, PG 2} (APRIL,1980) SUB BY WM.R.DIAL:(:2MX95:XC139:YC95:PI3.1415926d"NUMBER OF SPIRALS? ";SP n"NUMBER OF HAL   :*770,32:771,74:772,255:773,173:774,48:775,192:776,136:777,208:778,5*779,206:780,1:781,3:782,240:783,9:784,202:785,208:786,245:787,174*788,0:789,3:790,76:791,5:792,3:793,32:794,63:795,255:796,96*PT768:DR769:TN770:1 LMMMMNO"')RBT$(1,0)"2 IH "A)RBT$(1,1)"2 ONL "\)RBT$(1,2)"2 ONML "x)RBT$(1,3)"2 ONMML ")RBT$(1,4)"2 ONMMML ")RBT$(1,5)"2 ONMMMML "0* START BUGS:*BY((1)16)1:BX1:BD1:BC1* TONE SUBROUTINEM TIVU 0ZYXW 321  "i")FROG$(1,4)"2 GF EDC  BA  9I8CBA 7654GF"h)RBT$(0,0)"1 HI"r)RBT$(0,1)"1 LNO"|)RBT$(0,2)"1 LMNO")RBT$(0,3)"1 LMMNO")RBT$(0,4)"1 LMMMNO")RBT$(0,5)")"1ABCS FGHIT  UVIT  WXYZ0 123 "~(FROG$(0,4)"1  FG CDE AB  ABC8I9 FG4567 ")FROG$(1,1)"2    QEDCBARKJIHGFPONML ")FROG$(1,2)"2 JIH"")FROG$(1,3)"2 SCBA TIHGF  "%F(BUG$(0,1)"1&'*():"AP(BUG$(0,2)"1 !# $%"[Z(BUG$(1,0)"  "wd(BUG$(1,1)"2*'&:)("n(BUG$(1,2)"2#! %$ "(FROG$(0,1)"1   ABCDEQ FGHIJKR LMNOP"(FROG$(0,2)"1 HIJ"7(FROG$(0,3LUTTER.W,A$8E00"5'D$;"BLOAD ART FLUTTER.X,A$8800"Z'D$;"BLOAD ART FLUTTER.Y,A$8B00"'D$;"BLOAD ART FLUTTER.Z,A$4000"'36359,0:36360,136:36355:INIT HRP'(15);(20);:TRANSPARENT OVERLAY'(16);:CLR' PICTURES <(BUG$(0,0)"I15:FX5:RBT$(1,I);:PT,32II:DR,3:TN:g 2I501:FX5:RBT$(1,I);:PT,10II:DR,3:TN: <FY:FX:FROG$(1,1);: (# END 2#16368,0 <#(26);(16);: CLEAR SCREEN # ' INITIALIZE t':::34816:D$(4)~'D$;"BLOAD ART F. FY4:FX:FROG$(0,2);:(1).5İ800:1250d I15:FXI1:RBT$(0,I);:PT,32II:DR,3:TN: I501:FXI1:RBT$(0,I);:PT,10II:DR,3:TN: FY:FX:FROG$(0,1);:  RIBBIT RIGHT FY4:FX4:FROG$(1,2);:(1).5İ800:13400 (MAIN LOOP$ I1(1)400100:100K P0(255(1)):P080FDFD0:900e P0230FDFD1:900~ P116(255(1)16) (16384)1559000 $QS(1):QS(30QS) )QS2İ1200 .QS28İ400 8:1200:1000  RIBBIT LEFT FD1300$(1,3);:100:> FYP119:FY:FX:FROG$(1,4);:100::FY19Y FY:FX:FROG$(1,1);:h X HOP LEFTn ~  HOP RIGHT   CROAK *W120805:PT,40:DR,2:TN:PT,W:DR,3:TN::  TURN AROUND FY:FX:FROG$(FD,1);:100:  1(BX20)23 BXBXBD:BY:BX:BUG$((BD0),1):C  JUMP LEFTT 100:FD500 FY19P111:FY:FX:FROG$(0,3);:100: FYP119:FY:FX:FROG$(0,4);:100::FY19 FY:FX:FROG$(0,1);:  JUMP RIGHT FY19P111:FY:FX:FROG : BUY DOS TOOL KIT AND HELP THE FROG EAT THE FLUTTERQ 10000:INITIALIZEfFX20:FY19:FD0u900:1000d FLUTTER BYxBCBC:BCĢBY:BX:BUG$((BD0),2):BX1BX38150 BY:BX:BUG$(0,0):BY((1)8)21:BX((1).5)371:BD     z#?ŠҠ Ҡ ҠҠɠҠ٠ ԠŠɠ ԠŠ֠ ԠŠ֠ԠŠԠŠ ԠӠˠ ԠҠŠ" ԠŠԠϠɠԠӠ ԠҠӠ ԠŠɠ ԠŠɠ ԠҠ ԠΠנ ԠӠԠӠ ԠԠԠҠԠŠҠ  ԠԠԠϠӠ ԠϠŠ ԠŠ Ԡ ԠҠ ԠҠ ԠҮڠ" ԠĠ ԠڠӠ ԠҠɠԠҠɠԠΠԠήؠ  ԠŠ !ԠŮؠ""ԠӠԠҠ٠ԠҮנ ԠҮؠ ԠҮ٠ ԠҠΠԠ٭ӠˠԠ٠Ԡנ ԠנӠԠנӠҠ ԠנӠȠϠ ԠàŠԠĠĠԠӠԠǠ̠ԠҠҠ R1 NAR,BR: XBR20( bAR25344 lBRBR1A vAR,BR:\ 4:34,10:34,9:35,10u 2:36,8:36,7:37,8 9:35,8:35,9:36,9 1:7,35:8,35:7,34 2,83 2,88 8,108 2,812:2,815 12,152:12,158 17,6:1I1618 @15,33I EI0 TC15:D33:T18F ^CC1:DD1:TT1Q hC,DT_ |CDī350w 16,2315:25,3215 17,2214:26,3114 18,2113:27,3013 13 BR36 AR712 BRBR1 &AR,BR: 0BR28 :AR1620 DBRBS IN THE HEARTS!":= "TOUCH RETURN TO VIEW VALENTINE!";A$C d` x:15:I039:0,39I:Ih 11u I2122 6,24I: A6:B24:U23 A,BU AA1:BB1:UU1 A16175 7,1420:16,2120 8,1319 9,1218 ,1 6V "THIS PROGRAM MAY SAVE THE NECK OF SOME-":"ONE THAT, LIKE ME IS A CLOD!":"MODIFY MESSAGE IN TEXT AS DESIRED!"::"CHANGE NAME IN LINE 1010 OR YOUR WIFE":"MIGHT BE SHOCKED!": :"MODIFY LINES 900 AND 910 TO CHANGE":"INITIAL8,0 < 0,39X: 0,39X3 F 0,39Y: 0,39YI P 0,XX: 0,XX_ Z 0,YY: 0,YYh d 30 j 37,10>"PRESS A KEY TO CHANGE COLORS."g"PRESSING A LOT OF KEYS AS FAST AS""YOU CAN WILL GIVE AN INTERESTING PATTERN." T1 6000: T X0:Y39XX1:YY1: X39 Y1 20( (16384) 2 1636#(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$" "     ZdK1.2x3(M(1)3037N(1)M1U2:I0191:0,I279,I:IfLX140:LY95|A0256(1).01R((MN)A)90X140KR(A):Y95R(A)0:Q13:LXQ,LYQXQ,YQ:Q3:LX,LYX,Y:LXX:LYYA:140KC(1)92) C((2)1310). D((3)81)> R((4)2)P O((5)21)_ O280,290s X139:Y96:300 "X0:Y0:300 ,R0Ę0 6R1Ę8 @ABCD JEA255A TE ^1X,Y hE,A rCOUNTCOUNT1 |COUNT2210 320 *** KALEIDO-SHAPE ***5 BY MARK L. CROSBYO WASHINGTON APPLE PIh( VOL 1 NO 10 PG 8x2 NOV, 1979d768,1:769,0:770,4:771,0:772,40:773,54:774,63:775,36:776,5:777,0232,0:233,3:16302,0:COUNT0 B(   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)275255)2) Y((1)187255)2;  PLOT CURSORJ CURSRX,Y` OLDĕCURSRX2,Y2i X2Xr Y2Y| OLD1 F W CURSOR SHAPE TABLE X1,0,4,0: HEADER b18,63,36,36,45,45,54,54,63,0: SQUARE SHAPE 'CTE LOC7 232,0:233,3: SET SHAPE TABLE ADDRESSF  RUN DEMOl :16302,0:FULL SCREEN GRAPHICSs 1z 3 0 OLD0: NO CURSOR TO START WITH 5000:1050  MOVE CURSOR TO FOLLOW JOYSTICK  READ JOYSTICK OR PADDLES X JOYSTICK3 BY J SCHMOYER (10/19/79) 9:T LISTED BY T N TAYLORZ#:x( FROM PG 15 OF THE 11/79* ISSUE OF 'FROM THE CORE'+ (CAROLINA APPLE CORE)CURSR1 PUT SHAPE IN MEMORYLOC768781BYTE LOC,BYdiV1550 nI119,sJ3146xKIJL}J3(I3)IV12eI,K:K,I:40I,40K40K,40I:K,40I:40I,K:I,40K:40K,IJ,I:"PRETTY, ISN'T IT?":V:105dV 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     :(4)"CATALOG""W"TYPE THE NAME OF THE PICTURE YOU WANT TO LOAD.]e(A$yd(4)"BLOAD";A$nx16304,016297,016302,0A ,210,120 190,40,190,150,170,60,1 70,150,150,70,150,150,130,90 ,130,150,110,102,110,150 -1,2,2,2 RR.1: Z1500:Z C1C11:C1129999 1 'R30,180,30,198,18k 80,112,90,120,100,90,110,102,120,80,130,90,140,60,150,70,160,50,170,60,180,30,190,40# 190,40,210,40,170,60, 2 10,60,150,70,21 0,70,130,90,2 10, 90,110,102,210,102,90,120 n 80,112,80,138,90,120,90,150,198,18,210,30,210,30,210,150,210,150,90,150 66,130,90,150,90,120,110,102,110,102,130,90,130,90,150,70,150,70,170,60,170,60,190,40,190,40,210,30 80,112,100,90,100,90,120,80,120,80,140,60,140,60,160,50,160,50,180, R.1C0 39X,Y,X1,Y1:X12000CCC1cXXR:YYR:X1X1R:Y1Y1RrX,YX1,Y1z(20d 66,0,80,12,80,12,198,1 2,198,12,188,0,188,0,66,0,66 ,0,66,130,80,12,80,112,198,1 2,1 98,18K   STOP: ";R$:: 6 140YBCXAC,90ZXASYBS? 180B140,0140,9014990BC,9090BS:140,9014090AC,9090ASJ nZ40406^ xS112:CT0 X(BBZZ1)(BBZZ1)4 YS(BBZZXX) CTCT1:CT1210 S4 140YBCXAC,90ZXASYBS :: 23:"PRESS RETURN TO @ 3-D HYPERBOLOID GRAPH9 WWRITTEN BY JON MAUCHT MADEIRA CITY SCHOOLSp( WRITTEN WITH APPLE IIv2<:B20:3:PI3.14159265F:21:"THREE-DIMENSIONAL HYPERBOLOID"PANPI9:AS(AN):AC(AN)ZBNPI16:BS(BN):BC(BN): d  B0 3300 M " "& L. K> K1 W2D L KT* Jd4 K1 7Wj> rH KzR I\ K1 20f p Kz 54,240:55,253  Q1 H " "; Q 3280A55,253D B$%I " IS NOT LEGAL!"NN "IT IS CHARACTOR #";J;" IN WORD#";IYX A$(I)_b n K 1 7z L1W BC(K) M1 9 (B2)2B 3500 Q1 H O0 "X"; O1 (A$(I),J,1); Q B(B2) '"  I 1 N( "INPUT WORD # ";I4 " A$(I)< J IK  I1 12U : Id I 1 Nz J1 (A$(I)) B$(A$(I),J,1) C$ S1 7 C(S)  S  C$B$ 3200 & C$"END" 3130 0 3050: 54,240:ANY WORDS";  N! N((N))D $ 1100 : REM CHECK THIS TURKEYY ." TWENTY MAX! "_ 8 L"LETTER HEIGHT (1 TO 4) "; V H `H((H))  "LETTER WIDTH ";  W W((W)) "INPUT EACH WORD WITHOUT USING SPACES":"ONE WORD PER '?2,4,504$ z "W",511,2,4,24,4,2,511E { "X",387,68,40,16,40,68,387h | "Y",256,128,64,63,64,128,256 } "Z",259,261,265,273,289,321,385  "END",0,0,0,0,0,0,0  A$(20),C(7) :1184:: "OPTION:0='X'S , 1=LETTERS"  O "HOW M130,257,257,257,130,124; s "P",272,511,272,272,272,224,0a t "Q",124,130,257,265,261,130,125 u "R",272,511,272,280,276,226,1 v "S",2,193,289,273,265,262,128 w "T",256,256,256,511,256,256,256 x "U",508,2,1,1,1,2,508 y "V",504,4,2,1,270,136( k "H",511,16,16,16,16,16,511N l "I",257,257,257,511,257,257,257t m "J",262,257,257,257,510,256,256 n "K",511,16,48,72,132,258,1 o "L",511,1,1,1,1,1,1 p "M",511,128,64,48,64,128,511 q "N",511,64,32,16,8,4,511 r "O",124,#d "A",63,80,144,272,144,80,63Ie "B",511,273,273,273,273,273,238of "C",124,130,257,257,257,257,130g "D",511,257,257,257,257,130,124h "E",511,273,273,273,273,273,257i "F",511,272,272,272,272,272,256 j "G",124,130,257,265,265, ,100B,130 X15:X' B268(0)> DRAW SECOND LINEO B,100B,130V 0n DELETE FIRST LINE A,100A,130 100B  B1(3-20,90279,90;<279,140GF0,140RP0,90Z21:" 10 20 30 40 50 60 70 80 90 100"d3nA(0)xA268A DRAW FIRST LINEA,100A,130ABī1900 DELETE SECOND LINE B  M(16)(1)(X(40(1))9Y(40(1))BX,YK"220X,0,0,0,1,1,1,1,1,1,1` 1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1 0,1,1,0,0,0,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,1,1,1,1,0,0,0,0,0,0,1 1,1,1,1,1,1,1,0,0,0,1,0,0,0,0,0,1,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,0,0,1D 1,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,0,0,0,1| 1,1,1,1,1,1,1,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,0,0,1 0,1,1,1,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,1,0 1,1,1,1,1,1,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1L 1,1,1,1,1,1,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,1,0 1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,1,1 1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,1,1,1,00 1,1,1,1,1,1,1,1,0,0,1@@@@@@"5 .ALPHA%(H,W)0PLINE$PLINE$" "< 8W_ BQ15:PLINE$:D11000:D:Qq LPLINE$" ":H V:::: H114::H: ***LETTER DATA***5 ROWS OF 7 1,1,1,1,1,0,0,0,0,0,1,0,1,0,0,0,0,1,0,0,1,0,0,0,1,0,1,0,1,1,1,1,1,0,0,J,1))İ1000 <J:I6 F** PRINTER OFF LOGIC HERE.< d] ***PRINT ROUTINE***MER 0001c s J27ī2000 G1J:G115:G217:ALPHA%(G1,G2):G2:G1 G  ***PRINT LINES OF LETTER $H15:W17:ALPHA%(H,W)1PLINE$PLINE$"@@@@7):CHECK$"ABCDEFGHIJKLMNOPQRSTUVWXYZ !?1234567890."M ** PRINTER OFF HERE "SIGN TO BE PRINTED (MUST BE LESS THAN 50 CHARICTERS):":INPLIN$ ** PRINTER ON HERE T112::T (I1(INPLIN$):A%((INPLIN$,I,1)) 2J140:A%((CHECK$** BANNER:936:"***************************************** SIMPLEXITY SOFTWARE SYSTEMS' BANNER *****************************************" SUB BY WM.R.DIAL"*** TURN PRINTER ON MANUALLY ***":::I1500:4 PLINE$" ":ALPHA%(5, B Z11500:Z 20X  ((1)8),X((1)8)=(A0139X2O2A,0139A,79e<279A,0140A,79yFA,159139A,80P279A,159140A,80ZAdB079X2n0,79B139,Bx140,B279,79B0,80B139,159B279,80B140,159B   THE NEW BALL BALL& XNOW,YNOW;  ERASE OLD BALLB 9Q XOLD,YOLDe 4 SAVE NEW BALLs HXOLDXNOW RYOLDYNOW \ MOVE AGAIN p580,BTHE SCREEN?) l(XNOW0)(XNOW40)ī686>  MOVE BALL LEFTQ XMOVE1XMOVEZ 580o  NEW Y POSITION YNOWYOLDYMOVE(1)70  IS BALL ON THE SCREEN? (YNOW0)(YNOW40)ī720  MOVE BALL UP YMOVE1YMOVE 686  PLOTTWEEN 1 AND 15." 4200  SET GRAPHIC MODE6 N  STARTING POSITIONZ XOLD20f YOLD38  MOVE THE BALL BACK AND FORTH XMOVE1 ! MOVE BALL UP AND DOWN &YMOVE1 0 NEW X POSITION DXNOWXOLDXMOVE(0)70 X IS BALL ON  SET TEXT MODE,J@"TO SELECT A COLOR FOR THE BOUNCING BALL"qT"TYPE A NUMBER FROM 1 TO 15-----"|"THEN PRESS 'RETURN'" CHOOSE BALL COLORBALL IS BALL BETWEEN 1 AND 15?(BALL0)(BALL16)ī460 "THAT WASN'T BE    X,159Y 279X,159Y! * 1002 :Y (222)255ĺ"BAD ERROR!":a ,HIg - bDISKĺ"RUN APPLE BARREL SOFTWARE" l::12DXC):YR(YC) Z39 dXDR(3)2: PICK A NEW DIRECTIONK nR(100)340f s(16384)127ľW$:40u xYDR(3)2 LR(XC2) N1L XXD0100 XXDXC100 XXXD YYD0100 YYDYC100 YYYD X,Y 279X,Y DISK((994)(1001))1928HI(115)(116)256B 280L8192R(_-34,20:.:" PRESS ANY KEY FOR NEW PATTERN"/" PRESS TO STOP"2XC28021<YC1592: CHOOSE CENTERSFR(X)((1)X1) PXR(H+ * KNIGHTSTOWN IND'R+ * JUNE 1980I36:"YOU ARE NOW IN APPLESOFT":9* * PROGRAM REQUIRESO+ * APPLESOFT ROMf + * CARD FOR HIRES+ * GRAPHICS PORTION+ + * THIS PROGRAM IS*+ * PUBLIC DOMAIN/+4+ * CREATED AND9+ * DONATED BY;+>+ * HAROLD JEFFERY10:936:41610,:936:261610Bl:936Pq16302,0jv4:I047:0,20I:I2:I047:20,39I:I1:V0:K38I0190,VIVV2II20390,KIKK2IJ$10 ':9278,YY3A120,76160,76160,114120,114120,76ID$Q10a:16302,0oX16:Y12Y1218024X1627935X,YXY6G$?10@:936:1J16302,0TI047^0,39IhIH$ R5ī1320 R6ī1320$ B$, 10< :16302,0C 3R (0,00,191[ 2X32j <X,0X,191u FXX36 PX2791340 Z278,0278,191 _R6ī1500 dC$ i10 x:16302,0 3 Y019119 X027920 X,Y X :L2122:0,47L:L/ $2:L2526:0,47L:LK .14:L2930:0,47L:Lg 812:L3334:0,47L:L B4:L3738:0,47L:L GA$ I10 :16302,0 3 0,0279,0 X24 0,X279,X XX24 X1911240 0,191279,191 0. TRI-COLOR SCREEN."5 9:16:"11. EXIT PROGRAM."; A M :936[ 16302,0v 0:L3847:0,39L:L 13:L12:0,47L:L 9:L56:0,47L:L 1:L910:0,47L:L 3:L1314:0,47L:L 7:L1718:0,47L:L 6ARS."% 10:7:"3. VERTICAL BARS."C 10:8:"4. DOT PATTERN."i 10:9:"5. CROSS-HATCH PATTERN." 10:10:"6. DOT/CROSS-HATCH PATTERN." 10:11:"7. RED SCREEN." 10:12:"8. GREEN SCREEN." "10:13:"9. BLUE SCREEN." '9:14:"10000 210+ 10:"COLOR BAR GENERATOR"[ :"HAROLD JEFFERY, KNIGHTSTOWN, IND. 1980"a "----------------------------------------"; 3:"SELECT FROM THE FOLLOWING BY NUMBER" 10:5:"1. COLOR BARS." 10:6:"2. HORIZONTAL B(  REM AT END OF LIST+:936:200<I12000:IH :936Q 250Z220"TOUCH ANY KEY WHEN FINISHED WITH PATTERN";220:"SELECT PATTERN (1 TO 11) TOUCH RETURN";R R1000,1200,1300,1400,1200,1200,1600,1700,1800,1900,1     E DTHE END * * *":23 . I13:(7);::4 N  PROGRAM CLASSIFIED g  - PUBLIC DOMAIN -m " , LAST MOD. NOV.1979 J< FKK1 P(JK)280100( Z309 d22:1:958R h23:34:"* ";J;" *"] i23:1r n"INTERVAL? ";A$~ xJ(A$) }K0 J0160 J127J(J2):135 1 30 16289,0:16300,0:16368,0::936 10:10)"* * * :15)"INSTRUCTIONS"H :"THIS PROGRAM CREATES DIFFERENT PATTERNS"z :"BY ENTERING DIFFERENT POSITIVE INTEGERS." :"THAT IS (1 TO 126)": :"TO STOP THE PROGRAM ENTER:": " '0' OR ANY LETTER" 100 J) ( 2J2) .6:12)"* * ART PATTERN * *":200X8:10)"BY ROBERT P.C. DE LOUW":200|10:13)"THE NETHERLANDS":20012:16)"JULY 1979":20014:20)"*"23:5)"< PRESS SPACE BAR TO CONTINUE >" (16384)1608 16368,0     /Z "ROD'S COLOR PATTERN" FROM THE RED BOOKP_ TYPED BY JACK MARGLON,6/80VdbiW350nnI119zsJ019xKIJJ3(I3)IW12I,K:K,I:40I,40K40K,40I:K,40I:40I,K:I,40K:40K,IJ,IW:105W: 100 ) S((1)(UL1))L/ M pH((1)8):H3H46000T zHZ ,PASS"3 ("2 - CHANGE STEP SIZE AND COLOR BETWEEN"[ -" HOTIZONTAL AND VERTICAL PASS"b 2Ah ds nJ1C sB((1)L) x5000 }6000 IB191S 0,I279,I A1220 5000 6000 IB279S I,0I,191 [( ::"ENTER MINIMUM STEP SIZE";:LK"ENTER MAXIMUM STEP SIZE";:Uz"ENTER NUMBER OF VERTICAL AND HORIZONTAL""PASSES BEFORE SCREEN CLEAR";:C"DO YOU WANT:"#"1 - SAME STEP SIZE AND COLOR FOR " %" HORIZONTAL AND VERTICAL EW PROGRAM - YOU MAY WISH TO ADD A NAME OF A NEW PROGRAM HERE. CONTROL D FOLLLOWS THE PRINT STATEMENT 170: CLEAR THE SCREEN & REPEAT  THE FOLLOWING SUBROUTINE PICKS RANDOM POINTS X(1)280 Y(1)160  ZTRIANGLE?440 HPLOT TO X2,Y: REM A RECTANGLE6 X2,Y@ X,Y] (1).2180: ADD MORE? I15000:I: TAKE FIVE ALSO NOTE THAT LINE 471 & 472 ARE USED TO BREAK OUT OF PROGRAM (16384)127ī480 16368,0:p " CATALOG": NXV,YU ,XU,YV# 6XV,YU7 @SS2V1:VV1E JS0230Y TSS2U2:UU1b ^230 h PLOT A RECTANGLE OR TRIANGLE? r(1).5460 | PICK TWO RANDOM POINTS 1000:X2X:Y2Y 1000 X,YX,Y2 X2,Y2+ (1).5450: 3: SET COLOR TO WHITE3 : INITIALIZE SCREENR (1).2360: PLOT CIRCLE` R(1)95w XR(1)(2802R) YR(1)(1602R) UR:V0:SR VU360: CIRCLE DONE? XU,YV XV,YU XU,YV XV,YU XU,YV " ::::5" ** APPLE ART ** ";(b2:"HIT SPACE BAR TO STOP PROGRAM"s<Z15000:ZyFd *** APPLE ART ***nx WRITTEN IN APPLESOFT II BASIC BY JIM DAY, 1978B(11): BEGIN RANDOM SEQUENCE     NX(I):Y(I)NY(I) I"& CC.12+ C8CC8N, IC(C):IC0IC48230U0 Cy: DX(X(1)X(0)):DY(Y(1)Y(0))D (DXDXDYDY)18135N X SEE LINES 170-195 RWL 1979R23.1415926NI0N6X(I)139(1(RI))MY(I)79(1(RI))TIlX(N)X(0):Y(N)Y(0)I0N1:X(I),Y(I)X(I1),Y(I1):II0N1NX(I)(X(I1)X(I))SCX(I)NY(I)(Y(I1)Y(I))SCY(I)I I0N1 X(I)192):N(1)7.98.015Y0191:CX,CY0,Y:7500:YXX0279:CX,CYX,191:7500:X~Y19101:CX,CY279,Y:7500:Y X27901:CX,CYX,0:7500:XKLCCNQC8CC8:7505VCOC47500`C:@SC10N((1)7)31HT(1)4040!V112,I140PX0:II1:Y(IDV)HTV96:C%aY191Y191nY0Y0wX,YX1MX%3:II3:XMX%6140Y(IDV)HTV96Y191Y191Y0Y0X,Y:::XCX((1)280):CY((1)NW%0Y191Y05080$NW%1-X,YNX1MX%3:II1:XMX%5140gYOY:Y(IDV)HT90{Y191Y05140YYONW%0ēX,Y:5140 X,Y::pMX%278:DV(1)404B0(1)10C%(1)71:C%7(B0(C%0C%4))6025(X0:II1:Y(IDV)HT90:C%:X,Y[X1MX%:II1:Y(IDV)HT90:C%:X,Y:::MX%278:DV(1)404:HT(1)1030:C%(1)8I(1)1000B0(1)10C%(1)71:C%7(B0(C%0C%4))5030X0:II1:Y(IDV)HT90:C%191 I(1)2F X0278I:S01:7S:XS,0A,B279SX,191::| Y0190I:S01:7S:279,YSA,B0,191YS:: MX%278:DV(1)504:HT(1)6030:C%(1)8I(1)1000B0(1)10C%(1)71:C%7(B0(C%0C%4))4012:C((1)7):C3CC1LC,VI0N1F[I1IJ:I1NI1I1Na`X(I),Y(I)X(I1),Y(I1)geo~:xCG$I0TIMEOUT:(16384)1272040I:209016368,0(16384)1282050 16368,0*CG$: A(1)279:B(1) JANUARY 1979.= ENTERY BY..LIBRARY ASS. LEROY W.LARSEN` N((1)40)4:DR6.28318531Nl RT2.85y I0N1 X(I)(IDRRT)130140 Y(I)(IDRRT)9096  T00 T1N2 T21 (1)0.5T0T1:T10:T21$JT0T1T::T GIVEN TO APPLE CORPS BY BOB & JANET MENSCHEL SANTA BARBARA,CA. THIS PROGRAM IS MADE SO OTHER HI-RES CAN BE MURGED WITH IT AS THE USER WISHES PERMISSION GIVEN TO APPLE CORPS LIBRARY FOR USE AND DISTRIBUTION TO MEMBERS:N%(1)73:C%0" I1N%:I%Iz 2X0(I%)(1)XS:Y0(I%)(1)YS:DX(I%)((1)XSX0(I%))T%:DY(I%)((1)YSY0(I%))T% P dJ1T%:C%(1)8:C% nX0(N%),Y0(N%) xI1N%:I%I X0(I%),Y0(I%):X0(I%)X0(I%)DX(I%):Y0(I%)Y0(I%)DY(I%) Y(50),NX(20),NY(20)% XS280:YS1927 CG$(7):18? 20Q (222)255Ā :"ERROR CODE ";(222)" AT STATEMENT ";(218)(219)256: :16302,0:Q%(1)81:Q%Q%(Q%8):Q%25,1000,3000,4000,5000,6000,7000,8000:2000:20 T%(1)5025) " BEEP SOUNDS (YES, EVEN BEFORE THE"Q " FIRST), TO FREEZE THE DESIGN.":y "THE DESIGN WILL DISAPPEAR AT THE" " SOUND OF THE SECOND BEEP." :::"TYPE ANY CHARACTER TO START THE DISPLAY" A$ X0(10),Y0(10),DX(10),DY(10),X(50), TIMEOUT2400K::3:"HIGH-RESOLUTION GRAPHICS DISPLAY PROGRAM":w"THE COMPUTER WILL BEEP AT THE END OF"" EVERY PIECE OF ART, AND WILL WAIT"" FOR HALF A MINUTE BEFORE BEEPING AGAIN.":"TYPE ANY CHARACTER BEFORE THE SECOND"     " PG 67 TUTORIAL,&6HUE05@CO0355EJLI03010STHUEHUE1e^HUE15HUE0nhHUE~rROLILI8|CO,CO3ROROLICOH"030008001B002E00"A "3537003B1B130909111B1B130909111B1B1300"o"0D09111B1F130909311B1B170909111B1F1300" "292D153F3F372D2D353F3F372D2D353B3F1700"0D16301,0:GS0:195(L768:11004L16384HI14:1100:INVLA$gVX1(A$)2}`Y((A$,X,1))48jY9YY7tZ((A$,X1,1))48~Z9ZZ7L,Y16ZLL1X: "01000400123F20642D15361E0700" TO 3) ?";NSrNS1NS3880'tBS05uPS1:195c:22:"UNDER WHAT NAME IS IT SAVED? ";A$m750D$;"BLOAD ";A$195:22:"UNDER WHAT NAME? ";A$750D$;"BSAVE ";A$;",A8192,L8192"195GS0Ĺ16302,0:GS1:195(A$)56CB(A$):505P"INVALID COLOR; COMMAND CANCELLED.":I12000:I:195XCBaX,Yl62454t CD}195"INVALID NAME; COMMAND CANCELLED."I12000:I:195R233,3WPS0:BS0:195k233,64 p:24:1:"BRUSH # (1 X1X:Y1Y"6(116287)128ī2106<PS1BS1:195E@SW1ī350^JX1,Y1X,Y:X1X:Y1YgT210v^X1,Y1X,Yh210:22:"0-7?";A$(A$)47(A$)56CD(A$):410504CD195:22:"0-7?";:A$(A$)47105 A$"C"400$ A$"B"5004 A$"S"950D A$"G"900T A$"P"875f (A$)27980| A$"F"SW1:850 A$"L"SW0:850 A$"" 210 "PS0BS0ĕNSX,Y #PS0ĕNSX1,Y1 $(16287)128310 (PS1BS0:195 , "LINE MODE"9 "COLOR: ";CD;" BACKGROUND: ";CB;O X((0)256280)e Y((1)256192)q NSX,Y PS0ĕNSX1,Y1 PS1BS1ĔNSX,Y (16384)128290 A$ 16384,0 PS0ĕNSX1,Y1 PS0BS0ĕNSX,Y A$"H"TYPE 'X' TO STOP THIS PROGRAM.";( A$6 A$"X"ijH A$(13)190Q 180_ 16304,0l :22:1 " TYPE 'H' FOR HELP" PS0202 BS0ĺ"PAINT MODE, BRUSH UP":205 "PAINT MODE, BRUSH DOWN":205 SW1ĺ"FILL MODE":2050-7)" - "G : GET A PREVIOUS DRAWING"E "S : SAVE DRAWING"K r " : FULL SCREEN/TEXT SWITCH"x "H : HELP; RETURNS TO THIS PAGE" "FROM THIS PAGE YOU MAY:" "PRESS TO GO TO DRAWING PAGE," "OR (NS1:GS0 -PS0:BS0+ 27:0:1:SW09 7CB0:CD7? dM i16303,0S kp l"DRAWING PAGE OPTIONS:"v m n"L : LINE MODE" x"F : FILL MODE" y"P : PAINT MODE" z "C : NEW DRAWING COLOR (0-7)" "B : NEW BACKGROUND COLOR ( *:11:10:"HIGH RESOLUTION DRAWING"O14:11:"MARK PELCZARSKI, 1980"f D$"": CONTROL-D 768,1:769,0:770,4:771,0772,18:773,63:774,32:775,100776,45:777,21:778,54779,30:780,7:781,01000232,0:233,3      ACTUAL PRACTICE DRAWING A SHAPE "P4"TABLE TAKES VERY LITTLE TIME. "X>""`H""hR""rf3000xp SCREEN PAUSE 22:"PRESS ANY KET TO GO ON" 35 A$  A THE DIRECTION "8"KEY AT THE SAME TIME. THE REPT "a"FUNCTION WILL NOT WORK WITH THIS ""PROGRAM. """ "REMEMBER THAT TWO KEYS MUST BE ""DEPRESSED FOR EACH PLOT POINT. " ""!*"IN "SHAPES.":(21)=" USE THE 'X' KEY TO EXIT.":(24)i" ART MCGEE""K(16384):(16368),0,K831006K881610@1570J"WHEN DRAWING YOU WILL HAVE TO PRESS ""BOTH THE F (OR S) ANDT;"' IF YOU DESIRE TO SAVE":(9)H"YOUR SHAPE TABLES ON DISK.":(11)z" TO RUN THE SAVED TABLES INCLUDE":(13)"'POKE(233),";L;":POKE(232),";M;"' BEFORE":(15)"USING 'DRAW'.":(17)" USE THE 'S' KEY TO DISPLAY YOUR":(19) PI1H2Z(AA10I),0%dIQn(AA),4:(AA1),0:(AA2),10:(AA3),0:xHAA256:L(H):M256(HL):(233),L:(232),M:(936):(2)" END OF SHAPE TABLES":(5)" USE 'BSAVE(SHAPE TABLE NAME),":(7) "A";AA;",L";ANOTHER SHAPE TABLE? (Y/N)"9K(16384):(16368),0OK78ī1320: NOfK89ī1270: YESp1230ET256:F(E):G256(EF)S1İ200 S2İ300S3İ400SS1:TT1:1005(H82S2I2H2<(AA10I),1FI890-LA1R1D1L1P1:A2R2D2L2P2:AA1A2W`K69Ĺ(AAT),A:TT1:(AAT),0:1200tA0Ĺ(AAT),8:TT1:(AAT),24:TT1:1050~(AAT),A:TT1:1050(936):(21)" END OF SHAPE TABLE #";SS4I1:I12500:I:1390" = NOPRINT I = UP F = PRINT"L"J = LEFT K = DOWN L = RIGHT"k" E = END OF SHAPE"U10:R10:D10:L10:P10:U20:R20:D20:L20:P20:A0:A10:A20.5008690=K69A20:(AAT),A1:TT1:(AAT),0:1200B795GK69ī990 890( P20Ē0:X,Y:39 YY1:X,Y:N P20Ē0:X,Y:3_ XX1:X,Y:t P20Ē0:X,Y:3 YY1:X,Y: P20Ē0:X,Y:3 XX1:X,Y: P20Ē0:X,Y:3:  T10:S1 :3:(24) X139:Y79:X,Y""S: P10Ē0:X,Y:3( XX1:X,Y:? P10Ē0:X,Y:3:E a K(16384):(16368),0s K70P232: *K83P20: 4795 zK(16384):(16368),0 K73U21:950 K76R28:960 K75D216:970 K74L224:980 0: l500) K(16384):(16368),0= K73U11:750Q K76R11:760e K75D12:770y K74L13:780 K69790 690 P10Ē0:X,Y:3 YY1:X,Y: P10Ē0:X,Y:3 XX1:X,Y: P10Ē0:X,Y:3 YY1:X,Y,0 K66ī1410 150: E1Ĺ(AA5),0:(AA4),T:T (AA5),F:(AA4),G:s ,E1Ĺ(AA7),0:(AA6),T: @(AA7),F:(AA6),G: E1Ĺ(AA9),0:(AA8),T: (AA9),F:(AA8),G: K(16384):(16368),0 XK70P14: bK83P1) A3000:20003 F" INPUT STARTING ADDRESS"; PAAE Z1000` d:3:(233),L:(232),Mg n0n s2{ x170,40 }2210,40 370,120 4210,120 (936):(24) "USE THE 'B' KEY TO RETURN TO END TABLE" K(16384):(16368) " DONATED BY KEVIN ARMSTRONG5 :(936):(4)U" SHAPES":(8)" A PROGRAM FOR THE GENERATION":(10)(" OF FOUR HIGH-RESOLUTION":(12)2" SHAPE TABLES.":(16) <" ART MCGEE 1-20-79":(22     ROSE SUPER"" BY CHIP ANDERSON< CAROLINA APPLE CORE=3 Z75:34,21(K1.3<PI3.1415926535D(T3J-l2"TYPE A,B (0,0 TO END):";A,B}7A0B0ĉ:8:139,79<TH02PI2PI180FRZ(THT)PX%KR(ATH)ZY%R(BTH)dX%139,Y%79nx45 "BSAVE ";NS$;",A";ST;",L";CEST1*1400A'# EXIT SHAPE ADDERK(# BYEQ'}' WRITTEN BY J SCHMOYER (919) 852-1482' CAROLINA APPLE CORE1LACE3STHT(LA256)/BYTE,LAHT256>BYTE1,HTJNSNS1UST,NSt FINALLY INSERT NEW ENTRYD$;"BLOAD ";NA$;",A";CE31300k SAVE TABLEl16v"NAME TABLE IS TO BE SAVED UNDER ?";NS$(NS$)01900 D$;" PLACES NS0BYTECE:17009 BYTECE2NS2ST1M BYTE2,(BYTE)W BYTEk ? UPDATE HEADER @BYTEST2ST22(NS1)2 JLA(BYTE)(BYTE1)2562 THT(LA256) ^BYTE,LAHT256 hBYTE1,HT rBYTE  ADD NEW ENTRY E1:1320 w GET OPTION* x12:38:NSN 13:"CURRENT LENGTH: ";CEST1V 14y 958: CLEAR BOTTOM OF SCREEN "NAME OF SHAPE/SAVE/END ?";NA$ NA$"SAVE"1900 NA$"END"9000 (NA$)01420  MOVE ALL EXISTING ENTRIES BACK 2 "NUMBER OF SHAPES CURRENTLY IN TABLE ?";IN$C NS0NS01230` (IN$)0NS(ST):1230n NS(IN$)y ST,NS ST1,0 NS0CEST1:1400  FIND CURRENT END OF TABLE LA(ST2NS1)256(ST2NS) CESTLA ((CE)0CEC ADD TO L9 QNS1C V"LOAD EXISTING TABLE FROM DISK ?";IN$Z `(IN$,1)"N"1200r j(IN$,1)"Y"1100{ oNS0 t10 ~"NAME OF EXISTING TABLE ?";IN$ (IN$)01140 D$;"BLOAD ";IN$;",A";ST  GET CURRENT NO OF SHAPES 12/HAPES RESIDING ON DISK,"5 \"AND SAVES IT TO DISK."P  GET STARTING ADDRESSW 8 "STARTING ADDRESS OF SHAPE TABLE ?";IN$ (IN$)09000 ST(IN$) HT(ST256) 233,HT $232,STHT256 K SEE IF THERE IS AN EXISTING TABLE TO SHAPE ADDER8 WRITTEN BY J SCHMOYER 8/25/79CD$""YXD$;"NOMON C,I,O"COMPANY$"ANDROMEDA COMPUTER SYSTEMS" :*COMPANY$4"SHAPE ADDER BY J SCHMOYER">H"THIS PROGRAM CREATES A SHAPE TABLE" R"FROM SEVERAL S     ::\"THIS PROGRAM DEMONSTRATES THE USE OF THE '&' TO ENHANCE APPLESOFT II.":"THE INSTRUCTION: & ADDRESS AT A,B,C,D WILL CALL A MACHINE LANGUAGE SUBROUTINE AT DECIMAL 'ADDRESS' AND WILL PASS UP TO";g"FOUR INTEGERS (2 BYTES) TO& AIRPLANE BELOW* x,:928,32:929,0:930,3:931,16:932,10:933,31:934,195:935,8:936,135:937,138:938,1356:939,159:940,207:941,191:942,255:943,255:944,255:945,191:946,255:947,159:948,254:949,136@:950,128:951,31:952,1925,162:896,5:897,181:898,208:899,149:900,210:901,202:902,16:903,249:904,165:905,160:906,133:907,208:908,165:909,161:910,133:911,209 :912,144:913,220:914,176:915,218:916,222 :1013,76:1014,89:1015,3" 21:867,32n:868,82:869,231:870,165:871,80:872,133:873,232:874,165:875,81:876,133:877,233:878,32:879,183:880,0:881,208:882,3:883,108:884,232:885,0:886,32:887,177:888,0:889,320:890,103:891,221:892,32:893,12:894,225:89,133j:845,219:846,230:847,214:848,198:849,218:850,240:851,4:852,164:853,221:854,208:855,195:856,96:857,208  & SUBROUTINE BELOW :857,208:858,1:859,96:860,201:861,36:862,240:863,251:864,32:865,103:866,21:816,164:817,213:818,48:819,7:820,192:821,40:822,176:823,3:824,32:825,0:826,248:827,230:828,213:829,198:830,219:831,240:832,5:833,202:834,208:835,224:836,240:837,14:838,165:839,211:840,133:841,213:842,165:843,217:844788,133:789,219yx:790,200:791,177:792,215:793,133:794,218:795,200:796,177:797,215:798,133:799,220:800,132:801,221:802,162:803,8:804,6:805,220:806,144:807,19:808,165:809,214:810,48:811,15<:812,201:813,40:814,176:815,116368,0:16384,128:a <b LORES SUBROUTINE BELOWCc d:768,104:769,133:770,215:771,104:772,133:773,216:774,165:775,211:776,133:777,213:778,165n:779,209:780,133:781,214:782,160:783,1:784,177:785,215:786,133:787,217:N $D0,D1. THE 928,A,B,C,D CAN BE ANY LEGAL FLOATING POINT OR INTEGER EXPRESSIONS"U:"THE AIRPLANE SHAPE TABLE IN THIS PROGRAM IS LOCATED AT $3A0 (928)."V24::"HIT ANY KEY TO CONTINUE":95:::24:"USE GAME PADDLES TO FLY THE THING"X52_SELF CAN PASS UP TO 4INTEGER PARAMETERS. LESS THEN 4 IS OK, IF MORE THAN 4 THEN ONLY THE LAST 4 WILLBE USED."QT:"& 928 AT A,B,C,D WILL PASS INTEGERS (2 BYTES ONLY) D TO $D0,D1;C TO $D2,D3;B TO $D4,D4 AND A TO $D6,D7. THE LAST PARA- METER IS ALWAYS IN:"HIT ANY KEY TO CONTINUE"::95 P:"IN THIS EXAMPLE, X-COL=$09, Y-ROW=$07. TO DRAW THE SHAPE:& 928 AT X,Y: WHERE 928 IS THE DECIMAL ADDRESS OF THE SHAPE TABLE. THIS SHAPE TABLE CAN BE PLACED ANYWHERE AT ALL IN RAM"n R:"THE & SUBROUTINE ITHE LORESSUBROUTINE IS ALSO RELOCATABLE."::"SUPPOSE THE SHAPE IS THE LETTER 'E'.THEN THE DATA IS: FF 80 80 00 80 00 FC 00 80 00 80 00 FF 80" K L"THE 'ORIGIN IS AT THE UPPER LEFT CORNER.AN '0N' POINT IS 1, AN 'OFF' POINT IS 0.BINARY STYLE" M$ E DRWING SUBROUTINE." G H"THE SHAPE TABLE FORMAT: 20 00 03 #X-COL #Y-ROW DATA DATA ... THE FIRST 3 BYTES MUST BE 'JSR
'. THE NEXT 2 ARE NUMBER OF X COLUMNS AND Y ROWS OF THE SHAPE" I J"THEN 'DATA' FOLLOWS. NOTE THAT T >0:AIRPLANEX,Y @X(0)7K ATT1:T10054:-----END OF MAIN-----Q B CT0:1000:24::"HIT ANY KEY TO CONTINUE": D95: F"THIS & SUBROUTINE IS LOCATED AT $359 TO $394 BUT IS RELOCATABLE. FROM $300 TO $358 IS A LOW RESOLUTION SHAP  1004::22:5:"S.H.LAM, PRINCETON,N.J."c24:"LOW RESOLUTION SHAPE ROUTINE WITH &"i(z*AIRPLANE928,.------------------------0THIS IS THE MAIN PROGRAM246Y(1)889:AI