' +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`#FW1#W$"1"ī9200+#W$"2"ī9250=#W$"3"ī9300O#W$"4"ī9350Y#2500l#34628: ROT90v#3350"$34665: ROT180,$3350T$34672: FLPRL^$3350$34697: FLPUD$3350''32000'D$(4) $'D$;"BLOAD LIFE (#::6%2#"FLIPS AND ROTATES !"@<#"-------------------"hF#::" 1. ROTATE PATTERN 90 CCW"P#:" 2. ROTATE PATTERN 180Z#:" 3. FLIP PATTERN RIGHT TO LEFT"d#:" 4. FLIP PATTERN TOP TO BOTTOM"n#::"SELECT ONE"x#W$PS(3,1)( L(J,2)NPS(2,2)N1PS(3,2)2 7500: N1A!N[ !32768: STORE SCREENq!32005: EDGELOAD !33616: GENERATION*!F304!"THE FRAME IS NOW COMPLETE.">!"DO YOU WANT TO SAVE IT ? "H!S$R!S$"Y"ī12360\!110:" THE IST COLUMN ?")PS(2,1)]:L110::L:" HOW FAR UP SHALL I START THE"~:" NEXT ROW OF PATTERNS ?"PS(3,2)l HM(40PS(2,1))v VM(40PS(3,2)){ 12500 :3 N0HM N10VM L(J,1)NPS(2,1)N1`34445: PLT1PNj?@::3:"SPACED PATTERN ENTRY !"]J"----------------------"cTl^PLJh"NOW I NEED TO KNOW HOW FAR APART THE"r:" ROWS AND COLUMNS OF PATTERNS SHOULD BE."|::" HOW FAR TO THE RIGHT SHOULD I START "ACEBAR TO GO ON)":C$J0'::=34940,3: DESCLRz" DONE ? ENTER 1000,0"::" PATTERN LOCATION ?";LX,LYLX1000ī100L(J,1)LX:L(J,2)39LYJ20ī1007500 ::7130L34937,L(J,1): XLOCV34936,L(J,2): YLOC"NOW I NEED TO KNOW WHERE THE PATTERNS"V:" SHOULD GO. AGAIN YOU ENTER DISTANCE":" RIGHT, COMMA, DISTANCE UP. 0,0 IS":" THE LOWER LEFT CORNER. 39,39 IS":" UPPER RIGHT."::" WHEN YOU'RE DONE ENTER 1000,0":" (SP10 5900RERE1(RE4ī5230K" A - ADD, N - NO, B - BLINK"SQ$eQ$"B"ī5220wQ$"A"ī53005110 TIME100TMR1TIME:TMR X::3:"INDIVIDUAL PATTERN ENTRY !"l"--------------------------"q'v" OKAY, WHERE DOES IT GO ? "02XB,YB=<YB39YBVF:33008: ON SCREENdP34942,XBrZ34941,YB{dRE0n34940,0x34399: PLT1SQOLD(34939)590034940,OLD34399590034940,334399RE4ī1::" "%Q$U::3:" AFTER YOU'VE SEEN THE DISPLAY"z:" YOU HAVE THREE OPTIONS." :" A - ADD THAT SQUARE !":" N - NO, DON'T ADD THAT SQUARE !":" B - BLINK IT AGAIN, SAM !"%(:::11:"RACE SCREEN":11:"EW LINE":11:"UIT"::10:"ONTINUE"X T16368,0:16384,128z ^:16297,0:16302,0:3:1:: *** INSTRUCTIONS *** 6:D ;::10:"///HIRES SKETCH\\\":b @:11)"[BY MIKE PETRIE]"{ E::"INSTRUCTIONS:" F:7)"PDL(0) BUTTON=DRAW LINE" J::10:"L"J$"S"J$"E"J$"N"J$"Q"J$;J$"C"::11> O11:"OAD A PICTURE":11:"AVE A PICTURE"250 A209ĹCL,0:::( A19580: "":310:80^ 16301,0:CL,0:21::12:B$: :"ENTER FILE NAME :";A$:A$""300 B$"SAVE A PICTURE"290 D$"BLOAD"A$",A$2000":300 "D$"BSAVE"A$",A$2000,L$2000" ,CL,0:16302,0:80 01X,Y iI18::1X,Y- n(P)127140? x(K)127180G 80W X1300160f X1,Y1X,Yt X1X:Y1Y} 120 A(K) A206X1X:Y1Y:300 A197đ:X1300:300 A211B$"SAVE A PICTURE":250 A204B$"LOAD A PICTURE":{///HIRES SKETCH\\\ 1 [BY MIKE PETRIE]: 45h768,1:769,0:770,4:771,0:772,5:773,0z232,0:233,3#SHAPE TABLE(P16287:K16384:CL16368:D$(4):J$(8)(10)-310FX1300PX((0).913)ZY((1)1.335) d    FAQ$"L"ī16800)PA15100')ANSNS1<)A(321582NS),XBQ)A(321592NS),YB\)A16120v) N34944,J: NO OF SQS)*NE0J)4NE134945(2E))>NE2E11)HNE1,P(E,1))RNE2,P(E,2))\NE)pN250034942,XB(@34941,YB(@RE0,(@34940,0@(@34399: PLT1SQQ(@OLD(34939)[(@5900j(@34940,OLDu(@34399(@5900(@34940,3(A34399( A5900(ARERE1(ARE4ī16560((A"L - LIST , N - NO , Q - QUIT"(2AQ$(:" "C'>Q$L'>NS0z'>::5:"YOU GET TO SEE THEM BEFORE YOU "'?:"ACTUALLY LIST THEM."' ?::" GIVE ME A TRIAL LOCATION -"'t@XB,YB'~@YB39YB'@:34240: SCREEN HELD FRAME(@"------------------------"E&>::" YOU CAN NOW SPECIFY A SERIES "n&>:" OF SQUARES THAT CAN BE CALLED"&>:" ONTO THE SCREEN BY NUMBER."&>::" I'M SORRY, BUT YOU'LL HAVE TO KEEP"&>:" TRACK OF WHICH NO. IS WHICH SQUARE"'>:" ON 0,3: DESCLR%>;1%?;34240: SCREEN HELD FRAME=%B;Q1NSZ%L;XTEMP(32158(2SN(Q)))y%V;YTEMP(32158(2SN(Q))1)%`;34942,XTEMP%j;34941,YTEMP%t;34399: PLT1SQ%~;Q%;F31:G0%;110%>FG1%>:5:"NUMBER SET SPECIFICATION"&>YOU STOPPED AT ";G;" GENERATIONS"S$:::" DO YOU WANT TO TRY ANOTHER ? "[$:Q$m$:Q$"N"ī1000$:::5:"OKAY, TYPE THE SQUARE NUMBERS"$;:" WITHOUT SEPARATION."$;Q$$;NS(Q$)$$;Q1NS$.;SN(Q)((Q$,Q,1))$8;Q %=;3494HZ35HZ40*#032006,HZ: FRAME WRAP HI?#0WZ(VM)PS(3,2)P#0WZ35WZ40j#132036,WZ: WIDE WRAPp#1#:::5:"NUMBERED SET RUNNING !"#:"-------------------- "#::" THE LAST SET WAS ";#:Q1NS#:SN(Q);" ";#:Q!$::" 033616: GENERATION%" 0Q11000:QA"0"ENTER ANOTHER OR "L" 012210U"*0F30["40d">0190"H0:33008: SCREEN LAST GEN."R034176: HOLD FRAME"W0FG1: FRAME STORED"\0190"f0F31: SPACEBAR OPERATION"p0:190"0HZ(HM)PS(2,1) #0/:" X = 0 IS THE LEFT EDGE"N!/:" Y = 0 IS THE TOP AND COUNTS DOWN"X!/::}!/"WHEN YOU'RE DONE ENTER 1000,O"!/XE,YE!/XE1000ī110!/:3!/33008: SCREEN LAST GEN.!/XE,YE!/32768: STORE SCREEN!/32005: EDGELOAD"SET" :/C$ D/C$"2"ī123302 N/C$"3"ī12360E X/C$"4"ī12390W b/C$"5"ī4000h l/C$"6"1000{ q/C$"7"ī16000 s/C$"8"ī15100 u/ CHOICE NO. 1 v/5000 /:::" YOU PLOT IN EXTRA SQUARES BY TYPING :" /:" PLOT X,Y " !//:" 2.RUN CONTINUOUSLY WITHOUT SPACEBAR"_/:" 3.SAVE THE GENERATION ON THE SCREEN./:" 4.RESUME SPACEBAR RUNNING"&/:" 5.RESTORE A SAVED GENERATION"0/:" 6.START OVER"5/:" 7.SET UP NUMBER SET" 7/:" 8.NEW NUMBER LANGUAGE".'F31'8'L(50,3),P(50,3)AB'32006,40: HIGH WRAP[L'32036,40: WIDE WRAPcV'G$tt'FLAG1:1000*FLAG0:.::5:"ESCAPE MENU NO. 1"."-----------------".:" SELECT ONE !".:" 1.PLOT EXTRA SQUARES AND CONTINUE" 8X%2,Y%: 9 K FROM APPLE ORCHARD FALL ISSUE PAGES 7-10 HA 560 RESOLUTION LINE NEXT TO THE FIRST ONE8 dY0159G nX%280Y8P xY%YZ 1000a Yk 22:  X% CAN RANGE FROM 0 TO 559 Y% CAN RANGE FROM 0 TO 191 XX%X%4:M%X%4XX% M%0Ē2 M%1Ē6 $M%2Ē1 .M%3Ē5L1" THIS PROGRAM SHOWS HOW TO MAKE"`"THE APPLE GO FROM 280,192 TO 560,192 ON"" A B&W TV OR MONITOR"I13000:I : FIRST DRAW A LINE IN 280 RESOLUTION FOR COMPARISON 3:130,0140,159+ 2 NEXT DRAW   d34,10:35,24n11 x&8 HI RES PLOT>NADDRS16384}233,ADDRS256:232,ADDRS(ADDRS256)256ADDRS,1:ADDRS1,0:ADDRS2,4:ADDRS3,0:SADDRS4I1A0:B0:C0X$PV$(I):1630:AVI2I1X$PV$(I2) +":X:Y:"+"*:1:24:FOUND1:0` SET UP A 5X7 MATRIX FOR HI RES CHARACTERSf~ 34,0:35,09:33,10XL7:YD7936(35,102X1XL:"*";::<Y1YD:"*";XL);"*":FX1XL:"*";::PX2:Y8Z33,39NT PLOT BEFORE PROCEEDING TO THE "="NEXT. (HIT ANY KEY).a16384,128:16368,0:255:500q TIME-CONSUMING, AND EACH PLOT REQUIRES"x "UP TO 17,400 EVALUATIONS OF THE EQUATIONBEING SHOWN. IN LINE 340 I HAVE" "INCLUDED AN ALARM CLOCK IN CASE YOU FALLASLEEP WAITING FOR THE PICTURE TO BE"""COMPLETED. LINE 345 LETS YOU PONDER THECURREGRAM WILL THEN PLOT ALL THE FUNCTIONS";| "IN SEQUENCE, RETURNING TO THE FIRST AND REPEATING. THE PROGRAM RUNS AT ABOUT" "THE SAME SPEED THAT I TYPE (ABOUT 1.5 BAUD) SO BE PATIENT. THOSE TRIG, LOG,"( "AND EXPONENTIAL ALGORITHMS ARE PRETTY S  -              $  ##$   ypx rri xmnxLlli ymoyL`(HIH h+HUH hsIH+H h+`''#""#`uv`ts깁tsLtLsL'`m8srr` p `m8t`m8s` t8ys8xrLd  2yx  rri`mrq I@`;6n `6??$$$((466$$$.5&$$6=66 6? $d-6- ?76=6.r $?66-/v ?76=6.? -? 6&$$8$$$( 3n 6&$,(( ?? .-%??$$$--I--$$$??M------( ??& /- ?v- =? -6?:88((((*%8?-*(((? 4.,$?66-%(6? d4.,$?66-%-? :-5&$6=6?'$=$,-6? $d-6 $?766.- $$=?$,-:?'$6=?6&$$,-5 5? $d--6$,'$[ M166>-'$$,? $466? 68/->--$46 61=6$/=$/-&=$6=`5$.:7$>'(;.M5' vv% ,8 d ( ,45>0 $6?--?62?-% (?6.7- $$*-='$- ?.-%% ??- :' %66=6=?$,-??? ,' -)46/? d-(6,',',( 8?6-%6m<%<%$8->?'6-$ 6/=6.? -6?6(6$,',/6>-6?>7&$$l6$<566>-6n$76. $?76.(? 8-?7&$$8-6.7$??$(=.76(=?-?'$4>-76A66?? $H $H6 $ c8( @ @ a *5>LW`hu~` &,<JVbem %(,5=Fj "/;ESanw ( ,r5>N$$6?--?62?-%      26/80b" PERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM FOR USE BY APPLE COMPUTER USER GROUPS , ALL COMMERCIAL RIGHTS RESERVEDT"+HH$" USE NU,ND,NR,NL FOR NO PLOT"6H1$:KH2$:H3$:H4$:U2310oH6$:H7$:HC$:HB$:H8$:H9$:HA$:2310HD$:HE$:HF$:HG$:HH$:FOUND1:  "CR TO CONTINUE ";A$  LOGAN R. ZINTSMASTER 12/SAVE: SAVE VECTOR FILE"6fHA$"EXIT: EXIT WITH SAVE"SpHB$"LIST: LIST VECTORS"wzHC$"REPLACE: REPLACE A VECTOR"HD$"VECTORS ARE PU-PLOT UP"HE$" PD-PLOT DOWN"HF$" PR-PLOT RIGHT"HG$" PL-PLOT LEF3$"HPLOT: PLOT ON HI-RES SCREEN"S*H4$"SCALE: RE-PLOT ON HI-RES WITH NEW SCALE"4H5$"ROTATE: RE-PLOT ON HI-RES WITH NEW ROT">H6$"INSERT: INSERT A NEW VECTOR"HH7$"DELETE: DELETE VECTORS 0 TO STOP"RH8$"LOAD: LOAD VECTOR FILE"\H9$"980'I1I12: I1 HAS # OF VECTORS 8D$"CLOSE"B$@24NFOUND1:T| ANOTHER SHAPE EDITOR LRZ 10/24/80 COMMANDS: (ONLY FIRST TWO LETTERS NEEDED) H1$"HELP: PRINT ALL COMMANDS"H2$"PLOT: PLOT USING LOW RES SCREEN"! HTATION0"ROTATION? ";RO#:RO-D16003NMX READ IN VECTOR FILESb]l936ev10"VECTOR FILE NAME?":" (RETURN IF NONE) ";B$(B$)02020D$"OPEN"B$D$"READ"B$I11PV$(I1):I1I11:(PV$(I11))01|V0:(X$)0ı1K07:(V$,2K1,2)X$VK7CX$"":Id SET PLOT PARAMETERSj|"SCALE? ";SCSC1600 CHANGE POSITION"X POSITION ";XP"Y POSITION ";YPFOUND1:& CHANGE RO1630:CV%I1I1X$PV$(I1)31630:BVBC1C4C0WBYAB8C1C64gS,BY:SS1t"II2C1,II114806S,0@:3:1XP,YPJ24:"HIT RETURN TO CONTINUE";Z$T16303,0:FOUND1:^h CONVERT VECTORrOAD SLIDE 5"^A$Zh::"SEE DOCUMENTATION ON HOW TO USE THESE":"PROGRAMS YOURSELF"`|rD$;"CATALOG" D$;"BLOAD SLIDE 3"$ A$:D$< D$;"BLOAD SLIDE 4"H "A$:D$ ,:16303,0:"I SWEAR I'D FIXED THAT BUG"::"OH WELL, THAT'S WHAT HAPPENS WHEN YOU":"PLUG IN YOUR CHARACTER GENERATOR CHIP":"UPSIDE DOWN." 6A$:16304,0 JD$ TD$;"BL:HC3:HC:1:0:16302,0" 17 12:6:A$"NOW SIT BACK AND WATCH THE SHOW":1:14:3:A$"PRESS ANY KEY TO MOVE TO NEXT SLIDE":1 A$ D$ D$"": CTRL D D$ D$;"BLOAD SLIDE 1" A$ D$ D$;"BLOAD SLIDE 2" A$:D$10:1:A$"NOW, SOME GRAPHICS...":1^ Y881283:0,Y279,Y:Y:X02793:X,88X,128:X 18:1:A$"NOW, THE WHOLE SCREEN IN INVERSE.":1 17 I12000:I 20:1:A$"THIS GETS A LITTLE FLASHY":1:I18:17:(07);:J1300:J:I (3HC):HC:6 d24:A$"WATCH THE SPACE ABOVE!!!":1B f(07);H im nA$"SAMPLE TEXT (UPPER CASE)":1 x3:1:A$"SAMPLE TEXT (LOWER CASE)":LC1:1 5:1:A$"SAMPLE TEXT (UNDERLINED)":UL1:1 7:1:A$"SAMPLE TEXT (IN INVERSE)":NV1:1& 1āNWH13H13:NW,V14NW,V14:NW:(HC3)S VVH1,V1:UL1VV32Ĕ95H1,V1a NV1ĒHCy I:LC0:UL0:NV0: VV9NV1:8 VV12LC1:8 VV14NV0:8 VV15UL0:8 VV16LC0:8 VV17UL1:8 8 17664:HCt4:232,0:233,64:HC3:HC:1:0:16302,0:100mPF0:I1(A$):VV((A$,I,1)):VV9VV11VV1810PF1Ĺ36,(36)1:(36)40Ĺ36,0:37,(37)1:(37)25Ĺ37,1:(07)H17(36)3:V18(37)4:PF1LC1VV64VV91VVVV64. NV     " SHAPES IN TABLE":300( BYTE MOVER7S501260CS50ıgIS0S8S0S61:IS5,(I):ImIS0S6S0S8:IS5,(I):I"MOVE SHAPE #";S9;" TO A POSITION JUST BEFORE WHICH SHAPE?";:S1S10300 #S1S9ĺ"OUT OF RA1):S6P(S11):12007`I1S9:S4P(I):IS1S4S42LeIS1S4S42S5j2IS0,S4(S4256)256:2IS01,(S4256):IoS4S8S52:S9S1S4P(S9)tS6S121:S52:1200yS7P(1):S8S4~"S7=";S7,"S9*2=";S92S9S91:S0,S9:S9;$C0C3C0:II2:1070%)II3;.S0S8,A8B64CR3S8S81:IA91045m5"S7=";S7,"S9*2=";S928S0S8,0:S8S81:S9;" SHAPES IN TABLE":300L DELETE SHAPEQ"DELETE SHAPE #?";S1:S10300VS1S9S50:1120[S5P(S1)P(S1:::I,S6 I= S8S82:S0S92,L(S8):S0S921,H(S8)cI0:A(A91)I:A(A92)I:A(A93)IAA(I1):BA(I2):CA(I3)ABC0B3:C1:II1:1070BC0II1:1070!AB0C3B1:C3:II1:1070"B0C3B1:C3:II1:1070(S0):62,L(S0S81):63,H(S0S81):652291J ADD SHAPE TO TABLEmS9S91:S0,S9:2S91S71037S6S7:S52:1200S91S84:S74:S02,4:1040S7S72IS02S0(S91)22:::S6(I)2:S6255S6S6256:I1,(I1)1 FILE TO SAVE TABLE?";SH$:SH$"TAPE"970N(SH$,4)".SHP"SH$SH$".SHP"uD$;"BSAVE ";SH$;",A";S0;",L";S8:"HIT 'RETURN' WHEN TAPE IS READY"A$:(A$)1397560,0:61,0:62,1:63,0:0,L(S8):1,H(S8):65229+60,L(S0):61,HS PAGE 1 OR 2 (0 TO END)? ";P,HP1P2ĀD\16304,0:16297,0QfP2890bp230,32:100}z230,64:16299,0:100 PROGRAM BY ART UDE 1/80SERIC INPUT & RETURN -NEW STEP"J:" X IS NOW ";X;" Y IS NOW ";Ys" STEP IS ";S;" COLOR IS "; C0ĺ"BLACK" C1ĺ"GREEN"C2ĺ"VIOLET"C3ĺ"WHITE"C4ĺ"ORANGE"C5ĺ"ORANGE"C6ĺ"BLUE">:"HIRE:1" ** 'ESC' KEY TO RETURN TO THIS PAGE **"Y" 'X' TO SWITCH PAGES":|"'P' - POSITION 'L' - LINE""'T' - TRIANGLE 'R' - RECTANGLE""'C' - CIRCLE 'O' - OVAL""'*' - CLEAR PAGE '!' - BACKGROUND""'S' - NUM" < LEFT WITH PLOT J LEFT NO PLOT"R " > RIGHT WITH PLOT K RIGHT NO PLOT"| " / DOWN WITH PLOT M DOWN NO PLOT" " + UP WITH PLOT I UP NO PLOT": "COLORS: 1 WHITE 2 VIOLET 3 GREEN"" 4 ORANGE 5 BLUE 0 BLACK"X H0H0 H279H279, V0V0= V191V191F H,VR "A:100q TX,YX4,Y4X3,Y3X2,Y2X,Yz X100 XF(0) b16300,0 lP3P1 vKEY216870 230,32:16303,0 16368,0::" PO' BOY'S GRAPHICS TABLET":' 0 X2,Y2:100+ X,YX2,Y2X3,Y3X,Y4 100? L17K 3:X,Y[ D1150:Dg 0:X,Yw D1150:D L:C:94 K1.2:CIRCLE Q((XX2)2(YY2)2) T.1:S19T.05 A.16.3T V((A)Q)(K)Y H((A)Q)1KEY208230! KEY170Č624505 KEY161Č62454F KEY210340W KEY212220o KEY216PP1:600 KEY207K.8:262 100 KEY176C0 KEY177C3 KEY178C2 KEY179C1 KEY180C5 KEY181C6 C:103XXS:X279X2798 KEY172KEY202XXS:X0X0\ KEY187KEY201YYS:Y0Y0 KEY175KEY205YYS:Y191Y191 KEY174KEY172KEY187KEY17580 KEY204200 KEY200KEY206100 KEY211ĄS:100 KEY195260  3840024567148K APPLESOFT ON ROMS 16302,0:X140:Y70:S1:700ZPCZX4X3:Y4Y3:X3X2:Y3Y2:X2X1:Y2Y1:X1X:Y1Y^X,YdKEY(16384):KEY155600hKEY128100n16368,0xKEY175KEY182190 KEY174KEY20     3"THE ANGLE IS THE 'ROT' PARAMETER OF THE DRAW FUNCTION. ROTATING A SINGLE DOT STILL PRODUCES A DOT. WHAT CHANGES IS"3"THE POINTER. ANY OF THE EIGHT ADJACENT DOTS CAN BE SELECTED BY USING THE 'ROT' PARAMETER.":3"THE 'SCALE' PARAMETER MUST B BEENABLE TO LOCATE WHERE THE ACTUAL POINTER IS, BUT THE END POINT IS ALWAYS KNOWN RELATIVE TO THE STARTING POINT."^3150003"WHEN PUT INTO A LOOP, ONE DOT SHAPES WILL DRAW A LINE. THIS IS HOW THE SCALARPORTION OF THE VECTOR IS PRODUCED.":yNGLE DOT (AN UP VECTOR). THE FIRST DRAW PUTS A DOT AT 5,6. AFTER DOING THE PLOT, THE"J3"POINTER CHANGES TO 5,5; SO THAT WILL BE WHERE THE SECOND DRAW PLACES IT'S DOT.":uT3"ALL OF THIS POINTER SHUFFLING IS DONE INTERNALLY BY APPLESOFT. I HAVE NOT12:2:#2SKYWRITER)2:/2:B2PAUL STADFELDJRAW"f19)"BUTTON 1: ERASE"?h19)": CLEAR SCREEN"bj19)" : EXIT PROGRAM":t1"BUTTONS 0 & 1 MAY BE USED SIMULTANEOUSLY"1"RUN SKYWRITER (INSTRUCTIONS) FOR MORE INFORMATION. "1"HIT RETURN TO START DRAWING ";1"";A$THAT USES VECTORS TO DO THE PLOTTING. THE SKYWRITER ITSELFIS A HIRES AIRPLANE THAT DRAWS BY MAKINGA TRAIL OF SMOKE AS IT FLIES ACROSS THE SCREEN. THE AIRPLANE IS CONTROLLED BY":`19)"PADDLE 0: DIRECTION"b19)"PADDLE 1: SPEED"d19)"BUTTON 0: DN63N0 D/(49152)12712550-N/49168,0<v/N012350E/T43M/16a 0J1T:2:80:l>011750rp0:0PART 3: INSTRUCTIONS0:1:8111)"S K Y W R I T E R":B119)"BY":L113)"PAUL STADFELD":V1"IS A DRAWING ROUTINE ,32,1,32,-30,32+0+:8$,PART 2: WAIT FOR INPUT>V,:h,23:"PRESS ANY KEY FOR INSTRUCTIONS"n,:,DO AN ARTISIC PATTERN-WHILE WAITING FORP-USER TO RESPOND-:-N0-J6411.JNJ.3|.80..NN2/64,3,32,1,24,1,16,2,8,2,64,1,16,1,24,1,16,1,8,4,16,1,48,3,32,1,24,3,16,1,8,1,64,1,8,1,64,3,32,1,24,2,16,1,8,1,64+1,16,4,64,1,16,8,64,13,32,1,24,3,16,1,8,1,16,2,8,1,64,2,48,1,40,2,32,1,24,4,16,3,8,1,64,4,16,1,48,3,32,1,24,2,16,2,8,-8,64,-13,48,13,48,-3 TABLE"*"H - PRINT THIS HELP MESSAGE"A 32,0:34,20:21:G Q"32,0g(#X$"6000.602F 0G"-#I1(X$):511I,((X$,I,1))128:I2#34,0::72,0:1447#72,0:144<#'':::::l"Z - CHANGE SCALE"*"C - CLEAR SHAPE"N32,0::"SHAPE TABLE OPTIONS:"Z32,2:z"G - GET SHAPE FROM TABLE""A - ADD SHAPE TO TABLE""S - DRAW SHAPE FROM TABLE (DOES NOT"" DESTROY CURRENT SHAPE""K - DELETE SHAPE FROMTIONS:"O32,2:-T"P - PLOT-DRAW LINE"@Y"N - NO PLOT"S^"U - MOVE UP"hh"D - MOVE DOWN"}m"L - MOVE LEFT"r"R - MOVE RIGHT"t32,22:3:w"E - ERASE MOVE"|"F - REDRAW SHAPE""X - CHANGE X0""Y - CHANGE Y0"@"PRESS 'RETURN' WHEN TAPE IS READY"?JA$:(A$)131610kT60,0:61,0:62,1:63,0:65277:S8P(0)^60,S0(S0256)256:61,(S0256):S8S0S81:62,S8(S8256)256:63,(S8256):65277h@ HELP MESSAGEE34,0:J2:"EDITING OPNGE":1300A(S5S8P(S9):IS81P(S1)1:S0IS5,(S0I):Ij-I0S51:S0P(S1)I,(S0S8I):I2IS9S111:S3P(I1)S5:S02I,L(S3):S0I21,H(S3):I7300I1(X$):511I,((S$,I,1))128:I34,0::72,0:144'O768,173:769,86:770,192:771,173:772,87:773,192:774,76:775,0:776,3U ]151,155:5,1515:1,1515:5,151(27<120,0240,0240,150120,150120,0Z768 6(SNOOPY)6:6:*6PAUL STADFELDAL THE SKYWRITER ROUTINE. ALTHOUGH A TABLE OF VECTORS IS MORE DIFFICULT TO CREATE, THE ADVANTAGE CAN BE SEEN IN THEABILITY TO ROTATE AND WRAP AROUND THE SCREEN"2251259224:"HIT ANY KEY TO BEGIN ";2A$36:6SKYWRITER6: S THE AIRPLANE (THIS SHAPE RETURNS TO THE STARTING POINT)C.:.#2 MOVES FORWARD ONE DOT POSITION WITHOUT PLOTTING.:.#3 PLOTS ONE DOT2:211)"SKYWRITER (SNOOPY)"22"DEMONSTRATES THE USE OF A DATA TABLE TO CONTRO,1,48,15,32,1,48,15,64,1,48,15,32,1,48,-1,64,14,64,1,48,14,32,-48,32J ':k 'PICTURE TERMINATES WITH A 0q ':x'0~':'THIS IS THE DATA FOR THE SHAPE TABLE':.3,0,8,0,18,0,20,0,36,100,145,63,59,151,9,13,221,0,128,0,4,0.:=.#1 IOKING FOR NEWUSES AND CAPABILITIES. "+:3:24W:"HIT ANY KEY TO CONTINUE ";_:A$e:k:q>:>SKYWRITER >:>(INSTRUCTIONS)>:>:>PAUL STADFELDTHEY HAVE BEEN STRIPPED OF ALL FRILLS BUT ARE EXTREMELY COMPLEX DESPITE THE FACT THAT THEY ARE EXECUTED BY A SINGLE LINE OF BASIC."4%4"THE SKYWRITER PROGRAMS ARE NOT INTENDED AS A FINAL PRODUCT. I INTEND TO KEEP EXPERIMENTING WITH THEM; LO15000l4"FINALLY, IT IS SIMPLE BUT POWERFUL. THE MAIN DRAWING ROUTINE CAN BE COMPRESSED INTO A SINGLE LINE. THE TWO SINGLE LINE VERSIONS OF SKYWRITER (ONELINER 1 & 2) ";v4"ARE VARIATIONS OF THE 'ARTISTIC PATTERN'CREATED UNDER THE SKYWRITER LOGO. AYS WITH THE 'ROT' PARAMETER";|N4". READ THE REMARKS AND RUN SKYWRITER(SNOOPY) TO SEE THIS EFFECT.":X4"FOURTH THE ANIMATION OF THE AIRPLANE IS AUTOMATIC. THE DRAW FUNCTION, NOT THE PROGRAM, MOVES THE AIRPLANE."b4E HELLO ROUTINE)"54`:4"SECOND THE DRAW FUNCTIONS WILL WRAP AROUND THE SCREEN."f?4%D4"THIRD THE USE OF VECTORS MAKES IT EASY TO RELOCATE A PICTURE ON THE SCREEN. PICTURES CAN BE TURNED UPSIDEDOWN AND SIDEWSKYWRITER HAS USESNOT AVAILABLE TO THE HPLOT FUNCTION."B&41500004"FIRST IT CAN XDRAW. IN ADDITION TO IT'S USE TO ERASE, XDRAW'S ABILITY TO 'TOGGLE' THE DOTS HAS PARITY GENERATING USES. (THIS IS SHOWN AS PATTERN IN THE INCLUDED TO SHOW"4"WHAT CAN BE DONE UNDER PROGRAM CONTROL. THE SKYWRITER LOGO USES A DATA TABLE ANDTHE PATTERN IS CREATED MATHEMATICALLY.":74"FOR PLOTTING POINTS AND DRAWING LINES, SKYWRITER IS NO BETTER THAN HPLOT. IN SOME USES, WORSE. BUT GRAM TO KEEP TRACK OF IT WHEN IT MOVES. THE THING TO DO IS HAVE THE PROGRAM NOT CARE. THE FREE FORM DRAWING"4"LETS THE USER KEEP TRACK OF THE POSITIONBY PROVIDING A CURSOR IN THE FORM OF THEAIRPLANE. THE TWO ROUTINES AT THE START OF THE PROGRAM WER SCREEN CAN BE PLOTTED."$3150003"THE BIGGEST RESTRICTION IS NOT KNOWING WHERE THE SKYWRITER IS ON THE SCREEN. IT CAN BE MOVED TO ANY POINT BY USING A 'DRAW 1 AT X,Y'; BUT WITHOUT KNOWING"o3"WHERE THE POINTER IS, IT IS DIFFICULT FOR A PROE SET TO 1 SO THE SINGLE DOTS ARE PLOTTED AS DOTS AND NOT LINES (LARGER SCALES WILL WORK).AT A SCALE OF 1, ONLY EIGHT VALUES FOR"3"THE 'ROT' PARAMETER ARE VALID. THIS RESTRICTS THE ANGLES TO MULTIPLES OF 45 DEGREES. STILL, EVERY DOT ON THE ) WRITTEN BY AL LAST SAN ANDREAS CA2:5BdA$"MOTHER"JnA$YxI1(A$)g}I2135(A$))(A$,I,1):140(A$)1I)(A$,I,1)II1(A$)I)(A$,I,1)II(A$)11(A$,I,1);I~ --------------------------=;?????????,--------XXX@IIAI /???????????????????????=X+/--------------------------------%?????????????????????????????????X=-------------------------------------$?????????????????????????????????????&@IIXXXXXXXX.-----55?????????????????gIII (----=M8???????/(-----------m8????????????(----------------$-7>?NIIIIIIIIII*-%$$?NCCCC1=CN"NO. OF GAMES "CC1tHN"YOU SCORE WAS "S11" YES PLAY AGAIN":X12000:}KN255MNX12000::90RN:VEEEE500:ELEL50}770,173:771,48:772,192:773,136:774,208:775,5 }776,206:777,1:778"INPUT THE AMOUNT TO BE TRANSFERED "TR=:ELELTR:ESESTRM:X12000:V:100_:255h:210p N:y%N200*N"YOU HAVE BEEN DESTROYED".N"BUT OUR ESCAPE CAPSULE HAS BEEN PICKED UP. THEY NEED PILOTS BAD."4N"IF YOU WOULD LIKE TO TR1:X2X21:Y2Y21".'X121007038'X23810070H='Y12Y2210070^B'13:X1,Y1:X2,Y2sL'0:X1,Y1:X2,Y2{Q'EFV'EEEE100:ESES100t':100:200:"MUST TRANSFER ENERGY FROM SHILD TO LASERIN ORDER TO FIRE":TR(ES2)':X6,Y4:X,Y6:X1,Y4%BL1506CL((1)4)ECL1:13SCL2:1aCL3:9oCL4:8X4((1)20)10Y4((1)20)10X4,Y4:BLS1S11210@J'X1X:X2X:Y1Y:Y2Y'EF120'X1X11:Y1Y1A1:B39:A139:B139! 0:3010+ 30907 Q120W AA1:BB1:A1A11:B1B11g A,B:A1,B1n Qt  EEEE300:ELEL50 EE26000& p1:X,Y:X1,Y1:X2,Y:X1,Y2z13:X,Y2:X1,Y3:X3,Y1:X3,Y39:X4,Y3: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,18fEEEE500:ELEL50pEE106000 A1:B39:A139:B139 4:3010 " 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 s  CC18000%(10)K" AUTO SPACE WARS"\X12000:Xg-32000m2ZEL1200:ES2000:EE1500:T24[F10000\TF10000_200d::200n" STATUS BOARD"x(5)"FUEL LEFT "F "        XXXX@XXXX@II(---$$56.$$56.$$$$$$?$5%5.$ғ-->?.->?.---mIIII%$6?>666.---=<<<>>&66660B0C0C0"D0D00E0E0>F0F0LG0G0Rc TIME DELAYsT1500:TyT11000:TT12000:TN  MANA,25 1:B,250C,25:C,22=&7:E,29J01:D,29p:28,25D:11:24,23D:1:22,21DD7:E,28:1:27,25E:11:24,23EN1:22,21EX7:F,28b1:28,25F:11:24,23F:1:22,21F:F,29l7:29,21GvB9:37,383661990@WJ"TO RUN PROGRAM AGAIN, PRESS #0 THEN THE RETURN KEY";G`T255o^G0ī1650yh1600r|1140,599 TREE BOTTOM&TRUCK72,18S22,38S819,21L121990(32,3318:34,3619:32,332021990e32,3323:35,3623:24,34:32,3325:35,3625o199032,3627:28,3132:33,3629:33,3631199032,3633:34,32:34,34:32,3635"1990 ,37,3932:33,3437:38,3934:35,3631180d2040n MERRY XMAS&x9. MU32,360:1,432:33,362:33,364_199032,366:7,832:7,34:7,836199032,3610:11,1232:32,3412:34,3511:12,36199032,3614:15,1632:33,3416:34,3515:16,36B2 HUEX,Y&X20ī13501R1Z?HUEHUE1PHUE4HUE5`X20ī1350sHUE12HUE13~R1ZHUE15HUE0 HUEHUE1HUEXX4(X,Y2R<T1100:TFZZ1PAA2:BB2:X0:Y0ZB18ī1050VV2:HH1#13:H,V0$7:7,25F.1:6,24:7:6,25V8V20C12lBM1100:NNM:MxLC:H,VVV2ī1040`13:20,1:12:20,2j1:6,25:7:6,24t COLOR LIGHTS~T11500:TA22:B0:HUE0Z0XA2:Y MAN BACKzQ1200:PPQ:Q'A0OBA1:CA2:DA3:EA4:FA5:GA6Y1920a13k1790uAA1A8ī910T11000:T: TIME DELAY MOVING YELLOW BALLQ1150:SSQ:Q: TIMERUNV24:H9X25:Y8C7RUCTION X29 Z129$ 122 J20:K20@ S29:L29I 800_ XX1:JJ1:KK1p X10İ1710 SS1:LL1 J,KX *X29Ġ15 4X29X29 >K37770 HX29Z RZ \T11000:T: TIME DELAY f2040 p MOVING0X29ī520 :7:20,292 D1:21,25:7:21,26F N RE-MOVING MANU X2020:G26} bFG1:EG2:DG3:CG4:BG5:AG6 lA0A0 v1920 1810 GG1 G0ī610 7:29,210 T11000:T: TIME DELAY 2040  TREE CONST D39D39 E39E39, G39G39; F39F39C 12M 1790W AA1f A19ī360p 2020  DROP BALL X25 U24 12:20,X:7:20,U XX1:UU1 12:20,X:7:20,U 1:21,26:7:21,25 &M150:TTM:M 13500:T! BACK GROUND COLOR' . 7: Y030F 0,39YM YU 15b "W3039n ,0,39Wu 6W @T11500:T: TIME DELAY J2020 T MOVEMENT MAN ^A39 hBA1:CB1:DC1:ED1:FE1:GF1 rB39B39 |C39C39Z" " d" "2 n" CCC AAA RRR DD "U x" C A A R R D D"x " C AAA RRR D D" " C A A RR D D" " CCC A A R R DD " 23 23 25 2020 "BY: PETER ZALOGA" TШ  2557E(" CCC H H RRR I SSS TTT MMMMM AAA SSS"s2" C H H R R I S T M M M A A S "<" C HHH RRR I SSS T M M M AAA SSS"F" C H H RR I S T M M M A A S"P" CCC H H R R I SSS T M M M A A SSS"         -------XXXXXXXX+-----------------=$7'7'7'$76'$76'$76'$$766'$$766'$$766'$$:??7--5?????7-----36????????????????????????}II (------------------%??????????????????/OI@II-----%?????}II8$,-=???}I6.$,-----%?'>?7>???????,------------%??????????????????????????????????????????}IA =--------------------------------------???@I$?7H 8?,--,-,-%-<'--->7-.-5-5(----------5??G!??>?>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX+/--------------------------------------------XXX@/???????????,--------%?????'-----%?,%?,%???66'$<66'$<66'$76??6????,---66..,.,.,.%'?'-%???'%5%5%5%56.$$56.$$56.%'%'-57-=X%%%%%%%%%,$'?'??'?????7??7?77.655555555=-.-.--.564IIIIIIIII4$$$$$$$$$$$$$$$$$<'-5%,--%???7'7'7'7'7'.>.%$$$$,66666%$$$$,5757--5??7--5??7----5????7----IIII!$$$$$$$$'?'?''%-,-,%5-.-.557?7?776------/???????666666&NIIII$$$$$$$<'?'%-%-5-55?7?6666666&A $-,--,-,%'???>?>?7766666666666.$$$$$$$$$$$$$->.>.>.>666666666.$$$$$$$$$566666666.$$$$$$$$$->.>.>.>.>.>666676---.>??76%,6%,6%,6%,6%,TIIIIIIIII ,6%,6-----%?????,----%?????$,6%,6%$$,666%$$--5???????'$.>.>.>6666666666666.$$$$$$$$$$$$$56'7?????????????????????????????????????'-------------------------------------????'??7?????HHHH-.,-., $<$<$'<67>6>6$5.$5.$5.$5.---------------?'7??,,,,ݚ:????'?7?G---.Û-.,~%-XX@IXX@IXX@IXX@IXX@IXX@IXX@IXX@IXX@I ,6%,6%$$,666%$$,66656.%'%'<$$$$,6666%$$$,6666%$$$,6666%$$$,6666%$$$,575766%$,66%$,5757--5????????.--56.%'%'-----`8Te81tn Lv$$77?/--%45-666XX8/.%=87?7?7?>.----..%%----%'??>?>?>7?>.------5-.6$%-,------%'?<'?'?'?'?4$$$$766>$$$?.>.>'$476'$76'<75?<>OIIII%%'%            Z11500:Z X(16384), X127204 :: x; ((1)8)&X((1)8)7(A0139X2I2A,0139A,79_<279A,0140A,79sFA,159139A,80P279A,159140A,80ZAdB079X2n0,79B139,Bx140,B279,79B0,80B139,159B279,80B140,159BB  32,1,24,5,32,2,40,2,24,1,40,1,56,1,64,1,56,1,40,1,48,1,40,2,32,3,24,-5,64,-4,48,1,40,2,32,1,40,4,32,2,24,1,161,24,1,16,1,24,1,16,-11,16,1,8,9,16,4,24,16,16,2,8,2,64,3,48,-1,64,-3,16,3,56,9,48,-8,32,-22,48,14,32,-1,48,14D64,1,48,15,32,1,48,15,64,1,64,1,56,1,48,4,561,48,1,56,7,48,1,40,1,48,1,40,1,48,1,40,1,32,2,40,2,32,1,40,1,32,9,48,-1,32,-2,16,8,32,1,16,8,64,1,16,9,32,-332,-7,56,2,8,3,64,1,8,2,64,1,8,14,64,4,56,1,48,1,56,4,64,-1,48,4,32,1,48,4,64,1,48,-1,32,3,32,1,40,1,48,3,40,7n9,16,2,24,3,16,1,8,1,64,7,16,30,32,2,48,34,32 73,48,1,64,-33,64,73,16,-1,16,-2,64,77,48,-14,64,-1,16,12,16,-9,16,56,16,-15,64,-7,48,17,64,1,56,5,48,2,32 -2,16,3,48,1,32,1,40,3,32,1,24,1,32,1,24,3,32,4,48,2,64,4,16,-4,48,-1,56,2,64,1,56,2,64,1,56 THE AIRPLANE WAS FLYING IN BEFORE KEY 0 WAS HIT.9 :I &D:D0700h XP(D0):D(D):R:RR148 J1D:(2P):50::550 :300 : PICTURE DATA (SNOOPY) :- 34,64,2,48,30,64,12,16,1,24,1,16,-7,16,1,8,13,16,-16,16,4,16,-1,16, WRAPAROUND) :y R = ROTATION (AT SCALE=1, THIS IS LIMITEDTO MULTIPLES OF 8 [8,16,24, 32,40,48,56,64] ) : IF D IS NEGATIVE, THE AIRPLANE IS MOVED WITHOUT PLOTTING. :3 ROTATION DATA (R) IS RELATIVE TO THE DIRECTION ,N(49152):49168,0:N174N182450> ^50:R1:2:50:300M N181250i NN176:NR1N16:300o : PICTURE DRAWING STARTS AT 550. DATA IS FORMATTED ASA PAIR OF NUMBERS (D,R). : D = LENGTH OF LINE (NO LIMIT DUE TO SCREEN ) :49234,0:3:0,0:62454:0:0,150/ : THE KEYBOARD CONTROLS THE AIRPLANE. ALL KEYS EXCEPT 0-5 ARE IGNORED. THE FUNCTIONS ARE: : 0 START DRAWING 1 RIGHT  2 DOWN  3 LEFT  4 UP  5 CLEAR SCREEN :& + 13000:!R116:100:21:1:I110::1:@a:bSKIP PAST PICTURE DATA TOREACH SHAPE TABLE (ONLY DURING INITIALIZATION)c:dN:N0100:LOAD SHAPE TABLE INTO PAGE 3: J768789:N:J,N::232,0:233,3:           * * ROD NELSEN *5 * DONATED TO APPLE *O * PI USER'S GROUP *i * MAY 10, 1980 * ********************IRES INVERSE ROUTINE+  BY SCOTT KNASTER= I76876835K X:I,X: 169,64,133,7,169,0,133,6,160,255,192,255,208,2,198,7,165,7,201,31,16,1,96,177,6,73,127,145,6,136,169,0,240,232,63,169  ********************  * SUPER KALIED BY 207,64Y X207,Y279,64Y1 Z0,Y6469,128YG [0,Y12869,191Y^ \69,Y64137,128Yv ^138,Y64207,128Y `208,Y64279,128Y b69,Y128137,191Y d138,Y128207,191Y f208,Y128279,191Y I110:768: 11 H1 7X138,0207X,64/ 9X138,65207X,129H :X138,130207X,191^ <X207,0279X,64v AX207,65279X,129 CX207,130279X,191 F KH((1)71) LH475 MH PY064(1)101 R0,Y69,64Y T69,Y137,64Y V138,Y :900:% 16302,0G SET TO FULL SCREEN GRAPHICSZ HC((1)7)1g HC420o HC X069(1)101 (X,069X,64 -X,6569X,129 /X,13069X,191 2X69,0138X,64 4X69,65138X,129 6X69,130138X,19! = ********************Z * SUPER KALIED BY * v * ROD NELSEN * * DONATED TO APPLE * * PI USER'S GROUP * * MAY 10, 1980 *  ********************   ING'. THE"63"MOVING IS MERELY CHANGING A POINTER TO INDICATE WHERE THE NEXT VECTOR WILL START. THIS POINTER WAS INITIALIZED BY THE 'AT 5,6' PORTION OF THE DRAW. THE"V@3"POINTER CHANGES AFTER THE DOT HAS BEEN PLOTTED. SUPPOSE SHAPE #1 WAS A SISAME POINT ITSTARTED ON, THE SECOND SHAPE WILL BE DISPLACED WITH RESPECT TO THE FIRST."e215000 ,3"A SHAPE DOES NOT END ON THE LAST POINT PLOTTED. CHAPTER 9 OF THE APPLESOFT MANUAL DESCRIBES THE ACTION OF SHAPE VECTORS AS 'MOVING AND PLOTTPOINT OF THE SECOND HPLOT WAS SIMPLY THE FIRST'S COORDINATE (1,2).BUT THE DRAW FUNCTION WORKS DIFFERENTLY.THE SECOND DRAW DOES NOT START AT (5,6),IT STARTS AT WHATEVER POINT ON THE"Z2"SCREEN SHAPE #1 ENDED. UNLESS THE SHAPE WAS DESIGNED TO END ON THE 2"THE FIRST TIME AN HPLOT OR DRAW FUNCTIONIS USED, A COORDINATE MUST BE SPECIFIED.APPLESOFT STORES THIS VALUE SO THAT IT MAY BE USED AGAIN AS A STARTING POINT.":28)"HPLOT 1,2 : HPLOT TO 3,4":28)"DRAW 1 AT 5,6 : DRAW 1":2"THE STARTING HOWEVER, A TRIVIAL SHAPE (ONE DOT) CAN BE USED AS A BUILDING BLOCK TO MAKE VECTOR PLOTTING AS EASY AS HPLOTTING.":x2"SKYWRITER NOT ONLY SHOWS HOW BUT WHY VECTOR PLOTTING IS DESIRABLE. THE KEY ISTHE NATURE OF THE DRAW FUNCTION."215000Ȱ15000 d2"VECTOR PLOTTING IS IMPLEMENTED IN APPLESOFT VIA THE DRAW FUNCTIONS. THE DRAW FUNCTIONS PRODUCE A SERIES OF PLOTSCALLED A SHAPE. A SHAPE IS ACTUALLY A TABLE OF VECTORS. SHAPES USUALLY ARE"yn2"PICTURES (THE AIRPLANE FOR EXAMPLE). IZONTAL & VERTICAL DIMENSIONS,POINT B IS SPECIFIED BY A SCALAR (S) ANDA ROTATION (R) ANGLE."::m 223)"\"| 222)"/ B" 221)"/ ." 220)"/ ." 219)"S ." 218)"/ ." 217)"/ ." 216)"/ .\" 215)"\ . R" 216)"A \" 2":: 123)"B+"" 122)". +"2 121)". +"C 120)". +"U 119)". V"h 118)". +"| 117)". +" 116)". +" 115)"A +" 115)"++++H++++" 115000` 2"VECTORS USE POLAR COORDINATES. INSTEAD OF THE HOR" ~115000 1"VECTORS ARE MERELY A DIFFERENT METHOD OFSPECIFYING POINTS ON A GRAPH (THE HIRES SCREEN). THE PLOT FUNCTIONS IN APPLESOFTUSE CARTESIAN COORDINATES. THIS IS SHOWNAS THE HORIZONTAL (H) AND VERTICAL (V)" 1"VALUES IN THE FOLLOWING DIAGRAM. THE AIRPLANE IS CONTROLLED BY":@ `19)"PADDLE 0: DIRECTION"Z b19)"PADDLE 1: SPEED"s d19)"BUTTON 0: DRAW" f19)"BUTTON 1: ERASE" h19)": CLEAR SCREEN" j19)" : EXIT PROGRAM": t1"BUTTONS 0 & 1 MAY BE USED SIMULTANEOUSLY 1:(8111)"S K Y W R I T E R":8B119)"BY":SL113)"PAUL STADFELD":" V1"IS A DRAWING ROUTINE THAT USES VECTORS TO DO THE PLOTTING. THE SKYWRITER ITSELFIS A HIRES AIRPLANE THAT DRAWS BY MAKINGA TRAIL OF SMOKE AS IT FLIES ACROSS THE SCREEN       0:L,MLK,MLK,MKL,MKL,MR AA7:BB5:CC7:DD5:EE7:FF5:GG7:HH5\ NN1 0:A7,B5:C7,D5:E7,F5:G7,H5 N15N0:A,B:C,D:E,F:G,H:110 120Z0:Y(1)1405:X,Y:I- iX138:Y77:J1:Z3] nA135:B75:C145:D75:E145:F85:G135:H85x x7:A,B:C,D:E,F:G,H yLX:MY:KP:XX2:YY2:JJ2 zJ75124 {P2J:Z:X,YXP,YXP,YPX,YPX,Y |J75J1:X138:Y77:P2:Z(1)71 ~ SPACE ANIMATION"7:3:C99,0276,0276,1599,1599,0P<Z1180p>R25:X10(Z1803.1415)RAY96(Z1803.1415)R:X,Y:ZGZ180360KR20:X275(Z1803.1415)RPY60(Z1803.1415)R:X,Y:Z WI1100:X(1)2601  7.-$*-$*-$066666666>????????gIIIII------#<$XXXXXXXXXX8???????.-------4???????7-------%???????7-------%:???????.-------t $$$$$$$$$d 666666666v $$$$$$$$$d 6666666666"!$$$$$$$$$$$$$$$$$$$$$$$:75??7575?7-5?7.,57575/-5.d5.$--<$%'-.$?'-%?'%'%??',&,,%-,%-%-%-,-.5-5-5-.5-.>????????????????$$$$$$$$,--$$$$$56666.%$$$,6666--$,6.-%$$$$,---%,-5.6666666.-%$$$$$$$56666666-$$$$5666.--5.--66666>????'$???6>?$$$$$$4XXXXXXXXX????GONAL PATTERN. COMPARE THIS TO (ONELINER 1).; ]:J ^SKYWRITERP _:b `(ONELINER 2)h a:n b: cPAUL STADFELDFJ768782:I:J,I::3,0,8,0,11,0,13,0,36,36,0,128,0,16,0:232,0:233,3::139,95:49234,0:N066:4:(2(1))3216:2(N64):NN(N64):J164:1:JN:1::: :5 SHAPE SIZE IS FOUR. SCALE SIZE IS ONE. THIS PRODUCES AN OCTA  f:3:A1616:CA4516:B(10(2200CC)):DBB:D140,((((DDCC)).13)8)1003A:: REF: STEMS FROM APPLE FEBRUARY, 1981 PAGE 3 PATTERN.COMPARE THIS TO (ONELINER 2) + ]:: ^SKYWRITER@ _:R `(ONELINER 1)X a:^ b:q cPAUL STADFELDRsJ768781:I:J,I::3,0,8,0,10,0,12,0,4,0,128,0,16,0:232,0:233,3::139,95:49234,0:4:N066:(2(1))3216:2(N64):NN(N64):J6411:JN:1::: :% SHAPE SIZE IS ONE. SCALE SIZE IS FOUR. THIS PRODUCES A CIRCULAR    c: d139,96:I1T:2:+ iI1642 sI9 x1? N I6411U I\ 1b h JiNJ768782:I:J,I::3,0,8,0,11,0,13,0,36,36,0,128,0,16,0:232,0:233,3T a49234,0g:z4:0,0:624540Z095:140,Z279,Z:Z96191:0,Z139,Z::1#T2(R85616-R:1002<TT2:40 b z# Ҡɠ ҠҠ Ҡ٠ ҮŠ֠ΠҠ ŠҠ  ŠҠ ŠŠҠ ŠŠҠӠӠ! ŠԠ"Ҡ Ҡɠ  ŠҠ Ԡɠ Ҡ  ҠҠɠ ҠŠɠ  ҠŠ ŠҠ ɭӠԠԠҠӠӠȠԠҠŠ Š# ŠŠ ŠҠ ԠԠɠ ԠӠĠ ϠŠҠɠ ĠҠàȠӠԠ ɭӠԠϠ ԠŠ!ԠΠ"Ԡ͠Ԡ̠ԠҠԠŠ ԠҠĠ ԠǠӠԠǠӠԠŠӠԠӠŠԠǠŠԠǠΠԠԠϠ ԠàŠԠΠԠӠԠŠԠϠCS j t7 ~ X,Y $500 $  CROSSHATCH/ 60010? Y018018N 0,Y279,YT d X025228s X,0X,179y  279,0279,179 *500 CROSSHAIR 60010 0,96279,96 140,0140,191 500  ` SET HIRES GRAPHIR"0 :22:"USE ";::"RETURN";::" TO EXIT"Q :20::" SELECT ";::" ";[ K$:l K$"1"1000} K$"2"2000 K$"3"3000 K$CR$100 :    DOT PATTERN 60010 Y1218028 X1426628 X,Y  REVISION 6-28-809 HIRES TV PATTERN GENERATORS BY PHILIP A. WASSONa(CR$(13)x2I1100:: DELAY~Zd DISPLAY MENUn:x2:"SELECT OPTIONS:"5:"1...DOT PATTERN":"2...CROSSHATCH" :"3...CROSSHAI AS1287J4,8I4 J:I& dC(% WILL PRINT IN HI-RES WHATEVER> IS IN MAIN DISPLAYQ232,0:233,64cd SCREEN COPYsn:3:1:32s TO REMOVE INVERT FEATUREv SET ROT=0x16302,0I2411J401141J:25IAS((40)256(41)(36))#(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$" "     UALLY ADD IT. AFTER"C:" YOU GIVE ME LOCATIONS I WILL SHOW"s:" THE PRESENT FRAME WITH YOUR SQUARE":" BLINKING. 1/3 THE TIME LIVE COLOR,":" 1/3 DEAD COLOR, AND 1/3 WHATEVER IT":" IS IN THE PRESENT FRAME." H 2500.34240: SCREEN HELD FRAME<F31:110h::3:"BLINK AND DELETE - 1 SQUARE !""-----------------------------":" THIS MODE ALLOWS YOU TO CHECK":" WHERE YOUR ADDED SQUARE WILL GO":" BEFORE YOU ACT77: PTNXFR 34569: EXTLIM1 XMAX(34932)C YMAX(34931)Z 34937,(19XMAX2)q 34936,(19YMAX2) :34445: PLT1PN ::H13060,3080,3100,3120,3140,3160,3180,3200,3220* " "4 W$> FW1ī9100CATHLON"N )X :" 6. GLIDER GUN"/b Ul :" 7. LIGHTWEIGHT SPACESHIP"[v  :" 8. MIDDLEWEIGHT SPACESHIP"  :" 9. HEAVYWEIGHT SPACESHIP"  H$ H(H$) HH1 H8ī3000 34943,H: DESPTN  334U !" " --------------"( Q19\ Q3060,3080,3100,3120,3140,3160,3180,3200,3220c Qm 3240 :" 1. DOUBLE BLINKER"  :" 2. BLOCK"  :" 3. BEEHIVE"& 0 :" 4. GLIDER": D :" 5. PENTADE :" OR YOU CAN -"A :" 3.SELECT A NEW PATTTERN.m :" 4.FLIP OR ROTATE THE PATTERN." ::" SELECT A NUMBER"( C$2 C$"1"ī7000< C$"2"ī8000F C$"3"ī3000P C$"4"ī9000Z 2500 ::3:" PATTERN MEN2)39PY J19ī20000# JJ1- 2140S ::4:"PATTERN LOCATION MENU !"r "-----------------------"{ FW0 :"THERE ARE 2 WAYS TO ENTER YOUR PATTERN.": :" 1.SPECIFY LOCATIONS." :" 2.SPECIFY SPACE BETWEEN PATTERNS. " ALL DIMENSIONS MUST BE PLUS."P *" WHEN YOU'RE DONE ENTER A SQUARE AT"m 4" LOCATION - 1000,0":u >J0 HPX,PY R2170 \" ANOTHER SQUARE? ENTER X,Y" f" DONE? ENTER 1000,0" pPX,PY zPX1000ī20000 P(J,1)PX:P(J," I CAN REMEMBER RELATIVE LOCATIONS FOR"X " 20 SQUARES. FOR EACH SQUARE YOU TELL" " ME DISTANCE RIGHT, FOLLOWED BY COMMA," " FOLLOWED BY DISTANCE UP.": " WHEN YOU'RE DONE WITH SQUARES I'LL" " ASK FOR THE PATTERN LOCATIONS"$, $:" 3.RESTORE A SAVED GENERATION."P ):" 4.STORE A NUMBER SET."e .:" 5.STOP" 8:" SELECT A NUMBER" BINDEX LFLAG1 VINDEX2000,3000,4000,16000,9999 ::5:"PATTERN DESCRIPTION !" "---------------------"*  16368,0 Y9127ī190) 12000O ::5:"FIRST GENERATION MENU !"n "-----------------------" :"I NEED A IST GENERATION PATTERN. YOU" " CAN: " :" 1.SPECIFY A SMALL PATTERN." :" 2.SELECT A PATTERN FROM MENU."!  10000dFLAG0ī10008n32768: STORE SCREENQx32005: EDGELOAD i33616: GENERATIONsGG1::"GENERATION NO. ";G;" READY !"F30ī210C$C$(27)ī1200033936: SCREEN NEXT GEN.110Y9(16384)       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 ''( ``8(LLH}'LVb '`$LVb '`| d~} q{ q{zLz`wmrrrrmy ~rmx } _ziwriиẁ `vu'Ϗ(''#('M'w(''ːP''P'I'`iiɎ`Յ؅مօօiօمiم`    $`jjjjj`L[ji****}HH`ir`Ꞟ'+'U''ӎ''''Q'{('((i*iqti*rui`(Mj (ޮHrj L 8L|` $ $ $ ` `Lp}(+sI`꩒ONOR[^NQZ]'r0rr0Ni*NOiOɕ0Nu0`#LVb '`(LVb '` ЁH Ёr Ё`yyiLʂy L`'U'''Ӓ''''Q'{(''ϓ(''#('M'w(''˔P''P'I`)rrʈrrd+ca` ] na(` L naP` L w``i`aiaci*cdid'IL_` ;`Lp(UIs+`(˔HH hHH h+HH hsUHH hIHUH hU`'+} d'# $ |' :( '# $ E' 2( `h}h}h rhJJJJmrH}H}H`h}h}hJJJJ hJJJJmH}H}H`  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    E DTHIS IS YOUR BAG, ENJOY!"@ 22:" SPACEBAR TO CONTINUE"U (4);"RUN LIFE" "SQUARES. THESE SELECTED SQUARES CAN BE"U "SPECIFIED SIMPLY BY ENTERING A STRING"h "OF NUMBERS." :"THE PROGRAM IS ALMOST COMPLETELY" "ESCAPED. THAT IS, YOU CAN TAP ESCAPE AT" "ALMOST ANY TIME AND RETURN TO MAIN MENU" :"SO, IF W d::(n"CONWAY'S GAME OF LIFE"Ex"---------------------"t:"THIS VERSION IS DESIGNED TO EMPHASIZE""FIELD PHENOMENA. IT IS VERY EASY TO ""FILL THE SCREEN. YOU CAN THEN RECALL""YOUR BASIC SCREENFULL AND ADD SELECTED"(     "P ," COLOR ALIGN BY LAWRENCE GUSTV 6\ @(30- A01:B015:B:0,39B16A:B,AN A3239:A32:0,39A::30V :\ z A116:C$(A1)::C15: BLACK,MAGENTA,DARK BLUE,PURPLE,DARK GREEN,GREY,MEDIUM BLUE,LIGHT BLUE,BROWN,ORANGE,GREY,PINK,LIGHT GREEN,YELLOW,BLUE-GREEN,WHITEA:39,0:39,10:39,20:39,30:39,39:30,39:20,39:10,39:0,39:30d xV6ĠC:A039:0,39A::30r V7200 "ENTER NAME OR NUMBER (0-15), HIT RETURN" "COLOR --->";S$:(S$)0S$"0"C(S$) D0 C$(D)S$CD DD1:D16170 C:0,390:0,3939:0,3920:0,3910:0,3930:30m ZV2ĠC:0,390:0,3910:0,3920:0,3930:0,3939:30 dV3ĠC:0,390:0,3910:0,3920:0,3930:0,3939:0,390:0,3910:0,3920:0,3930:0,3939:30B nV5ĠC:A03910:B03910:A,B:B,]  C$(15)::240I"(1)VERT BARS (2)HORZ BARS (3)CROSSHATCH"u("(4)COLOR BARS (5)DOTS (6)SOLID COLOR"2"(7)CHANGE COLOR (8)END COLOR = ";C$(C);" ";<A$:V(A$):V0V(V)V7220F:1 PV1Ġ     :(4)"CATALOG""W"TYPE THE NAME OF THE PICTURE YOU WANT TO LOAD.]e(A$yd(4)"BLOAD";A$nx16304,016297,016302,0A  0,39(40(1))1(0,39(40(1))W20,39(40(1)):0,39(40(1))^3Nh4NN1z5N15N0:516PAUSE1(0):PAUSE730 OS A 3-D-LIKE PICTURE OF TEN DIF-";y "FERENT FUNCTIONS OF TWO VARIABLES ON THE HGR2 SCREEN. IT WILL RUN IN EITHER" "TAPE OR ROM APPLESOFT. YOU ARE ASKED INITIALLY 'WHICH PLOT FIRST?' SO YOU "' "CAN SELECT A FAVORITE IF DESIRED. THE PROS "THAN JUST SNICKER, THIS TIME I THOUGHT IWOULD OFFER TO MY FELLOW PI-MEN (AND"*"LADIES!) MY FEEBLE EFFORTS (NOT AT ALL. -ED.) TO EXPLOIT APPLE HI-RES IN A " "PSEUDO-3D (ISOMETRIC) MODE."" " THE PROGRAM IS A VERY SIMPLE ONE, AND PLOT"ABILITY OF THE APPLE, AND YET NOBODY SEEMS INCLINED TO DEMONSTRATE IT VERY" "WELL (INCLUDING APPLE COMPUTER CO.!) ON THE OTHER HAND, WE SEE THE CRUDE AT-";"TEMPTS OF THE 'OTHER' MACHINES FILLING THE PAGES OF THE MICRO RAGS. RATHER":" THE PROGRAM WAS INSPIRED BY WM GAMES ARTICLE 'PATTERNS' IN THE NOV-DEC ISSUE""OF 'CREATIVE COMPUTING', AND MORE RE- CENTLY BY THE COVER OF 'MICRO' FOR ""SEPTEMBER 1979. I NEVER CEASE TO BE IMPRESSED WITH THE HI-RES PLOTTING CAP-"RS COTTRELL *) * SEPT 1979 *C * ---------- *]$ * WASHINGTON *w. * APPLE PI V1 N9 *8 *******************::" ARTICLE FROM WASHINGTON APPLE PI "130::" PLOTPOURRI BY SAMUEL S. COTTRELL"S32:RZ2:PC3:BC0: Z(X)3(((XXYY))).1(XY)A1r X12:X23:Y13:Y25.7:ZS80:RZ1:PC6:BC0*Z(X)(XY)((XXYY)9).241>530 ******************* * * * PLOTPOURRI * * Z(X)1((XY)(((XY.5))))( 1] X17:X27:Y117.4:Y217.4:ZS50:RZ2:PC0:BC3 Z(X)YXX(YYXXXX).4 1 X13:X23:Y13:Y23:ZS10:RZ1:PC2:BC0 Z(X)YX(XXYY)(XXYY)2 1X14:X26:Y13:Y25.7:ZSX1200:X2200:Y1100:Y2200:ZS12.5:RZ2:PC0:BC7W vZ(X)1((XY)((XXY4)))^ 1 X120:X220:Y120:Y220:ZS40:RZ2:PC0:BC3 Z(X)((XY(XXYY))1)((XXYY)120) 1 X15:X25:Y15:Y25:ZS12.5:RZ2:PC0:BC7! :Y24:ZS45:RZ1:PC3:BC0D Z(X)((XXYY)1)((XXYY)6)K &1| 0X14:X24:Y14:Y24:ZS12.5:RZ1:PC6:BC0 :Z(X)1(XY) D1 NX16:X22:Y15:Y21:ZS25:RZ2:PC0:BC3 XZ(X)((XXYY)1)((XXYY)16)1 b14 lGTON APPLE PI', OCTOBER 1979"l "DO YOU WANT TO READ THE ACCOMPANYING ARTICLE? ";YN$~ YN$"Y"2000 YN$"N"ĺ(7):507 "WHICH PLOT FIRST (1-10)? ";PN PN530,560,590,620,650,680,710,740,770,800 X14:X24:Y14K4NY V0VK5163 PC:H,V:BC:H,V1H,K5; :N J03:(7):o ST$: HIT A KEY TO CONTINUEu {  ::" PLOTS OF FUNCTIONS USING HIRES GRAPHICS. SOME PLOTS MAY TAKE FROM 15 MIN. TO 1 HOUR.":/ " FROM 'WASHINb 500 NYRZ87:NXRZ50&FDX(X2X1)NX:DY(Y2Y1)NYOH00hK158:K2Y2Y1:K390zK4174:K5191XX1X2DXH0(XX1)(X2X1)100:NH1 YY1Y2DY ZZZ(X) VZZZS(YY1)K2K1K3H0 NHNH1 HH0NH   C2C1 C2# SS1:SX1S1O X1C(S,1):Y1C(S,2):XLC(S,3):YLC(S,4)r AX1X1XL:Y1,YLY1A::100 BY LAWRENCE GUST 12/27/80 C(100,4)A:12:"PLEASE WAIT 11 SECONDS...":A03604KXX1p(C(X,1)(((A57.3))13)(1)122C(X,2)(((A57.3))13)(1)12<C(X,3)14:C(X,4)10FP::::ZdC1((1)16)nC1C2100xC15C110100  74,42,26,10,7* "!",1,1,1,1,384,1,1 K"0",57,69,131,258,131,69,57h".",1,1,129,449,129,1,1nt "*",69,41,17,512,17,41,69B "3",66,130,258,274,266,150,100a"4",33,49,41,37,35,512,33"5",160,274,274,274,274,274,226 "6",194,291,293,297,305,289,193"7",258,130,66,34,18,10,8"8",69,171,274,274,274,171,69 "9",263,138,,65,64&"X",388,69,41,17,41,69,388K"Z",386,322,290,274,266,262,260p"I",258,258,258,512,258,258,258"C",125,131,258,258,258,131,69"J",65,129,257,257,257,129,128"1",0,0,261,259,512,257,257"2",261,387,322,290,274,267,2617,17,512& "M",512,7,13,25,13,7,512A "?",5,3,2,354,18,11,5f "U",128,129,257,257,257,129,128 "R",512,18,18,50,82,146,271 "P",512,18,18,18,18,18,15 "Q",125,121,258,258,322,131,381 "Y",8,9,17,41,17,9,8"V",64,65,129,257,12969,139,274,274,274,163,69?  "O",125,131,258,258,258,131,125^ "N",512,7,9,17,33,193,512{ "F",512,18,18,18,18,2,2  "K",512,17,17,41,69,131,258 "B",512,274,274,274,274,274,239  "D",512,258,258,258,258,131,125 "H",512,17,17,17,1U)9K:445#  " ",0,0,0,0,0,0,0D "A",505,37,35,34,35,37,505 j  "G",125,131,258,258,290,163,101  "E",512,274,274,274,274,258,258  "T",2,2,2,512,2,2,2  "W",256,257,129,65,129,257,256  "L",512,257,257,257,257,257,257  "S", (634.5Y)G1((X$))1);- B1F(U)= J(B)0500P I1Y:X$;:IY 600d I1Yt I11(X$) " ";:I1 I XB l vT1 U H12X:" ":H T &H175:" ":H * ,H17X:" ":H -800 /F( PP$(A$,T,1) ZO050F _S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)U dP$S$200\ xOb l X$M$ M$"ALL"X$S$ U17 K8Q1 2KS(U)270 J(9K)0 280 J(9K)1:S(U)S(U)2K S(U)1815 K T11XvA$(72):O$(72)) "HORIZONTAL";X;"VERTICAL";YN"CENTERED";L$dG10:L$"P"G11"CHARACTER ( TYPE 'ALL IF YOU WANT PRINTER";M$"STATEMENT";A$#"SET PAGE";O$%1&" 80N"(A((A$,1))2<FT1(A$)     ::A(A)((1)A)ZI039:A(16):0,39I:0,3939I:0,39I:0,3939I::20`f(2" BY LAWRENCE GUST<F" 1/1/81PZ ,262,260, I,258,258,258,512,258,258,258O C,125,131,258,258,258,131,69r J,65,129,257,257,257,129,128 "1",0,0,261,259,512,257,257 "2",261,387,322,290,274,267,261 "*",69,41,17,512,17,41,69X,11,5)  U,128,129,257,257,257,129,128I  R,512,18,18,50,82,146,271g  P,512,18,18,18,18,18,15  Q,125,131,258,248,322,131,381  Y,8,9,17,481,17,9,8  V,64,65,129,257,129,65,64  X,388,69,41,17,41,69,388 Z,386,322,290,274,2668,258,131,125+  N,512,7,9,17,33,193,512G  F,512,18,18,18,18,2,2g  K,512,17,17,41,69,131,258  B,512,274,274,274,274,274,239  D,512,258,258,258,258,131,125  H,512,17,17,17,17,17,512  M,512,7,13,25,13,7,512  ?,5,3,2,354,18  A,505,37,35,34,35,37,505D  G,125,131,258,258,290,163,101h  E,512,274,274,274,274,258,258  T,2,2,2,512,2,2,2  W,256,257,129,65,129,257,256  L,512,257,257,257,257,257,257  S,69,139,274,274,274,163,69  O,125,131,258,25)1); B1F(U)# J(B)05006 I1Y:X$;:I? 600J I1YZ I11(X$)h " ";:I1o Iv XB| l vT1 U H1X2::H T &H175::H * ,H17X::H -800 /F(U)9K:445  " ",0,0,0,0,0,0,0(2),S(3),S(4),S(5),S(6),S(7), `P$" "812; dP$S$200B xOH R X$M$f M$"ALL"X$S$q U17 K801 2KS(U)270 J(9K)0 280 J(9K)1:S(U)S(U)2K S(U)1815 K T11X (634.5Y)G1((X$)  :"HORIZONTAL";X/"VERTICAL";YB"CENTERED";L$XG10:L$"P"G11s"CHARACTER OR ALL";M$"STATEMENT ";A$#"SET PAGE";O$(A((A$,1))2"PR#1"<" 96N"FT1(A$)PP$(A$,T,1)ZO150 _S$,S(1),S   48:200:1000 FTT1:40" :) 1; I1T:2::A :I :O :[ N063g J164n $4w .JN~ 81 B L VJJJ768781:I:J,I::3,0,8,0,10,0,12,0,4,0,128,0,16,0:232,0:233,3P ]49234,0c:v4:0,0:62454}0Z095:140,Z279,Z:Z96191:0,Z139,Z:X139:Y95:#T1(139,95216:200:10007139,95 < BINARY DRIVER CALL":P:PRP-P7ČP:5040=D$;"PR#"PRCRpD$;"PR#0"Xz0 31,9,6,3,3,15,6,16,1,1,1= 32,9,6,3,3,15,6,15,2,1,1` 33,10,6,1,3,16,6,14,3,1,1 34,10,10,16,6,12,5,1,1 35,11,8,13,27,1,1 36,11,8,13,27,1,1& 37,60,10PPR:P5020:8:"ENTER PRINTER SLOT OR 11,6,14,3,1,10  24,5,6,11,3,11,6,15,2,1,1R  25,6,6,9,3,12,6,16,1,1,1t  26,6,6,9,3,12,6,7,1,10,1  27,7,6,7,3,13,6,6,2,10,1  28,7,6,7,3,13,14,10,1  29,8,6,5,3,14,6,6,2,10,1  30,8,6,5,3,14,6,7,1,10,1 ,4,1& J 15,4,6,17,3,1,7,5,13,4,1D T 16,4,6,15,5,2,23,5,1^ ^ 17,1,29,5,17,8,1x h 18,1,29,9,9,12,1 r 19,60,1 | 20,1,13,5,11,1,28,1,1  21,1,13,5,11,1,28,1,1  22,4,6,13,3,10,6,12,5,1,1  23,5,6,11,3,,8,6,4,1&  7,4,6,21,10,10,5,4,1D  8,4,6,21,9,11,5,4,1 a  9,4,6,21,8,11,6,4,1  10,4,6,21,7,11,7,4,1 " 11,4,6,21,6,11,8,4,1 , 12,4,6,19,1,1,5,11,9,4,1 6 13,4,6,19,1,1,5,10,10,4,1 @ 14,4,6,18,2,1,6,8,11 ZA1A1A dI1A! n" ";( xI4 A1A1BD A1601170U IA1BA11a T$(I);h Ir 1310  1,60,1  2,1,12,26,9,12,1  3,3,8,24,17,8,1  4,4,6,23,21,6,1  5,4,6,22,12,5,6,5,1  6,4,6,21,11(A$,I,1) tI ~J C0. A11:CC1= C381330D AJ S A,Ba N21370m A1A1A~ IA1AA11 T$(I); I A1A1B I1B " "; I A1601170 (1210 2 < F6000 PQ111000:Q1:10Y  D$(4)* *** LOVE PICTURE ***6T$(90)@936b"KEY IN THE WORD(S) - UP TO"{"30 CHARACTERS":A$$:."1 FOR CLEAR LETTERS"8"2 FOR DARK LETTERS ":NB5000LL(A$)VJ1(60L)`I1L jT$(JLIL)   5 <48:200:1000" FTT1:40( :: I1T:2::@ :H :N :Z N063f J164m $1v .JN} 81 B L VJPJ768782:I:J,I:: 3,0,8,0,11,0,13,0,36,36,0,128,0,16,0:232,0:233,3V c49234,0i:|4:0,0:624540Z095:140,Z279,Z:Z96191:0,Z139,Z:X139:Y95:#T1(139,95216:200:1000 7139,9 20! REF:WASHINGTON APPLE PI5 FEB '81 PG 36 :, A$" RUBBER APPLE USER GROUP "=T((1)25)NB((1)25)_(L((1)40)p2R((1)25)<LR39LRTB20FRL2BT220P34,T:35,B:33,R:32,LZdI((1)2)1nI120,130xI1100:A$,::   139,96:1:I1T:2:" iI164) sI0 x16 E I6411L IS 1Y _ J`JJ768781:I:J,I::3,0,8,0,10,0,12,0,4,0,128,0,16,0:232,0:233,3P ]49234,0c:v4:0,0:62454}0Z095:140,Z279,Z:Z96191:0,Z139,Z::#T2(R8648-R:1002<TT2:40bc: d 230VPV$(I)"PR"1130,`XX1::1230CjPV$(I)"PL"1150UtXX1::1230l~PV$(I)"NU"1170~YY1::1230PV$(I)"ND"1190YY1::1230PV$(I)"NL"1210XX1::1230PV$(I)"NR"1230XX1::1230"LETE"C$:D$"OPEN"C$:D$"WRITE"C$:I1I1:PV$(I)::""KD$"CLOSE"C$YFOUND1:_q PLOT FIGUREw1260I1I1X0Y0ĺ"ERROR";I$X:Y.PV$(I)"PU"10908YY1::1230BPV$(I)"PD"1110LYY1::1*(A$,1)"Y"74024PV$(I2)"":"DELETED":740:>K1FHI1I1[R(PV$(I))0870s\PV$(K)PV$(I):KK1yfpI1K1zFOUND1: SAVE THE CURRENT FILE"FILE NAME? ";C$(C$)OC$B$ D$"OPEN"C$:D$"DE "NEW VECTOR ";PV$& PV$(I2)PV$2 FOUND18 > S  DELETE VECTORSY } "VECTOR NUMBER?(0 TO STOP)";I2 I20830 I2I1740 "VECTOR IS ";PV$(I2);1); "DELETE OK? (Y OR N)";A$ (A$)0820 (A$,1)"N"740PV$(I21)PV$& I1I11:I2I21:4604 FOUND1:: Q & LIST THE VECTORSW 0s :I1I1:I;5);PV$(I): DFOUND1: N X b REPLACE A VECTOR l v"VECTOR NUMBER? ";I2 I20ı I2I1630 "OLD VECTOR ";PV$(I2);5);Y"İ910 # "TIME FOR A ";:) ?  INSERT A VECTORE  "INSERT AFTER NUMBER?";I2:"TERMINATE WITH NULL (RETURN ONLY) ENTRY" I2I1440 I21;5); "VECTOR? ";PV$ (PV$)0530 II1I211 PV$(I1)PV$(I): (C$,2)"HP"İ1410, (C$,2)"SC"İ1700D (C$,2)"PO"İ1760\ "(C$,2)"RO"İ1820t ,(C$,2)"LO"İ1870 6(C$,2)"EX"ī340 @FOUND1170 J"ILLEGAL COMMAND":170 T ^ EXIT h r"SAVE THE VECTOR ARRAY? ";A$ |(A$,1)" X 7 CHARACTERS" x1260$ 1870* : EDIT LIST@ M "# ";C$Y FOUND0q (C$,2)"HE"İ2030 (C$,2)"IN"İ410 (C$,2)"LI"İ540 (C$,2)"RE"İ600 (C$,2)"DE"İ710 (C$,2)"SA"İ910 (C$,2)"PL"İ1000   24576, SHAPE VECTOR EDITOR2(@2PV$(256)Z<V$"NUNRNDNLPUPRPDPL"fFD$(4)}P1:0:XP139:YP90Z:936:15:"SHAPE EDITOR":(15):"TYPE 'HELP' FOR COMMANDS"d(11):" COMMANDS NEED ONLY 2 LETTERS" n(15):"BOX FOR 5EPPING BY "S:X:17S:X "S3! #E(1):E0.3S20 $E0.5S4 (W160SS:3:130,W260,80:4:130,(WS)260,82:23:" STEPPING BY "S:W ,S3 -E(1):E0.3S2 .E0.5S4 2X260SS:3:130,2X,80:4:132,2(XS),80:23:" ST3 E(1):E0.3S2& E0.5S4| WS160S:3:2,80132,W:4:4,78132,(WS):23:" STEPPING BY "S:W S3 E(1):E0.3S2 E0.5S4 XS260S:3:X,78130,160:4:(XS),78128,160:23:" STEPPING BY "SIN AT A RANDOM POINT.0 IN DOUG'S THEME, THEN POINTS ARE FIXED ON THEm BORDERS. ANOTHER DIFFER- ENCE: THE LINES IN DOUG'S  THEME END ON THE CENTER  LINE, NOT THE BORDERS. 936:22:" *** DOUG'S THEME ***": S ***DOUG'S THEME***Y BY DOUG PETER, 10/30/1980 FOR THE NSAUG CONTEST_} THIS PROGRAM IS AN OFF- SHOOT OF THE CONTRIBUTED PROGRAM,"BRIAN'S THEME". THE DIFFERENCE IS, IN BRIAN'S THEME, THE LINES BEG    $ LOGAN R. ZINTSMASTER 12/26/80" PERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM FOR USE BY APPLE COMPUTER USER GROUPS , ALL COMMERCIAL RIGHTS RESERVED256)256  3:SN130,90:730&*=4 SAVE SHAPE ARRAYC>iH"SAVE SHAPE ARRAY? (Y OR N) ";A$yRA$"N"890\"SHAPE FILE NAME? ";A$fPO(0)(131)(132)256pD$;"BSAVE"A$",A";PO(0)",L";505(NROW32)z EXIT:):SS1:S,SPD1256:5809 PLOT THE SHAPE TABLE?d"PLOT THE SHAPES? (Y OR N) ";A$tA$"N"810~:24"SHAPE NUMBER? ";SNSN0810"SCALE? ";S:S"ROTATION? ";R:R 233,ADDRS256 232,ADDRS(ADDRSRS0 0S,SH:SS1:S,0:SS1:S,SPD1:SS1:S,09 :S11J DSH;5);SPD1e NROWPO(S1)PO(S11)1p XBYTE0 bCOL311:BYTEBYTE8SH%(ROW,COL): lSPD1ADDRS,BY:SPD1SPD11 vROW S1S11:SS1 PO(S11)0670S,SPD1(SPD1256PE? (Y OR N) ";A$" (A$)01602 A$"Y"160C A$"N"440R PO(SH)ROWs SH%(0,1)SH1:SH%(0,2)ROW1y   STORE SHAPE ARRAY INTO A SHAPE TABLE  "STARTING ADDRESS FOR SHAPE TABLE? ";ADDRS SHSH1 &SPD12(SH1)1:SADD @I03: JVC$(I)D1$DD%I& T9 ^DD%DD%PLT%4W hSHAPE%(ROW,COL)DD%:DD%0` rCOLr |(PV$)0420 ROWROW1:ROWNROW230  COL1:ROWROW1: ROWROW1:I13:SHAPE%(ROW,I)0:I:ROWROW1 D$"CLOSE"B$ "ANOTHER SHA220 D$"OPEN"B$# D$"READ"B$: PO(SH)ROW:SHSH1G COL13i (B$)0Ą"PLOT VECTOR? ";PV$| (B$)0ĄPV$ (PV$)0COL3:370 PLT%1:(PV$,1)"N"PLT%0 D1$(PV$,1) "COL3320 ,PLT%1İ400:320 6D1$"U"İ400 :ROW1/ d"USE OLD SHAPE ARRAY? (Y OR N) ";A$? nA$"N"160[ x"SHAPE FILE NAME? ";A$w PO(0)(131)(132)256 D$"BLOAD"A$;",A"PO(0) SHSH%(0,1)1:ROWSH%(0,2) :"SHAPE NUMBER ";SH "TEXT FILE INPUT NAME? ";B$ (B$)0Ĩ  245769:936:"SIMPLE SHAPE TABLE GENERATOR ""USES A TEXT FILE GENERATORED BY ":" ANOTHER SHAPE EDITOR PROGRAM"(2NROW600<PO(50),SHAPE%(NROW,3)FVC$(3):VC$(0)"U":VC$(1)"R":VC$(2)"D":VC$(3)"L"PD$(4) ZSH1    e5 iI164 sI x1& , J-JJ768781:I:J,I::3,0,8,0,10,0,12,0,4,0,128,0,16,0:232,0:233,3P ]49234,0c:v4:0,0:62454}0Z095:140,Z279,Z:Z96191:0,Z139,Z::#84,9528A1F2:2P100Z50bc:d FILE FOR PROGRAM 2":5);"SPECIAL AREA FOR HI-RES CHARS" 2:"2. ANOTHER SHAPE GENERATOR":5);"USES TEXT FILES OF VECTORS":5);"CREATES A SHAPE TABLE AT USER ADDRS":5);"ACCEPTS MULTIPLE FILES" ' 3 4' ::10);"ANOTHER SHAPE PACKAGE"M:"CONSISTS OF TWO PROGRAMS: ":"1. ANOTHER SHAPE EDITOR":5);"CREATES A TEXT FILE OF PLOT VECTORS":5);"PROVIDES A SET OF EDIT COMMANDS":5);"PLOTS SET OF VECTORS ON HI-RES PAGE"8 (5);"STORES TEXT    P100 Z50 b c:" d) e15 iI164< sIC x1I O JPDRIFTING OCTAGON0J768782:I:J,I:[ 3,0,8,0,11,0,13,0,36,36,0,128,0,16,0m232,0:233,3s 49234,0:4:0,0:624540Z095:140,Z279,Z:Z96191:0,Z139,Z::#95,9528A1F2:2 :YYZ((A12)(A10)):XXZ((A11)(A13))8:PT830M;:::A(I)3ēX,YY<:::X,Y`>IiH300q:"SAVE SHAPE TABLE(Y/N)?";Y$Y$"Y"ĀSH$"TAPE"970SH$""950"SAVE TABLE TO ";SH$;:Y$:(Y$)89960)"NAME OFCC8:A8(C(C)):C(C)8:B8(C(C)):C(C)SA(A91)A:A(A92)B:A(A93)CmA9A93(C0)(CB0)~S3S31:740801 !XX0:YY0#PT0ēX,Y$A90840%I1A9'(PT)(A(I)3)ēX,Y*:A1A(I):A1A1(A14)4,9::q:IS2S4:S3:0:IX0,Y0Wv"SHAPE #";I;". 'N'=NO ERASE, OTHER=NEXT?";:A$:A$f{A$"N"đrI:300"SHAPE NUMBER?";S2S20300S2S9ĺ"OUT OF RANGE":700S2S0S22:S3(S2)(S21)256S0A90C(S3):C07901YYD:P4ēX,YX,Y:300+P4ēX,Y3P0JXXXD:YYYD:300^X SHAPE DISPLAY]"SHAPE #? (0=QUIT; -1=DISPLAY ALL IN SEQ)?";S4:"SCALE? (0=";Z;")";:S3:S40300bS30S3ZgS2S4:S41S21:S4S9lS4S9ĺ"OUT OF RANGE":300MA$"H"Ĺ16303,0:"HIT ANY KEY TO RETURN TO SHAPE";:A$::16304,0:300^A$"M"9000{A$"."PT1:A(0)0:300A$"-"PT0:300A$"V"A90:XX0:YY0:300" ILLEGAL COMMAND. TYPE 'H' FOR HELP."300PT500XXXD:Y"1000 hA$"S"600' mA$"K"11008 oA$"M"1300o rA$"Z"ĺ"SCALE=";Z;" CHANGE SCALE TO";:Z:300 wA$"Q"900 |A$"X"ĺ"INITIAL X=";X0;" CHANGE TO";:X0:300 A$"Y"ĺ"INITIAL Y=";Y0;" CHANGE TO";:Y0:300 A$"C"A90:80091:A(A9)P1:XDZ:460, EA$"P"P4:300A JA$"N"P0:300O OA90345 TA$"E"Ē0:X,Y:EA(A9):A9A91:EE(E4)4:XXZ((E3)(E1)):YYZ((E0)(E2)):P4(A(A9)3):X,Y:7:460 YA$"G"700 ^A$"F"800 aA$"*"9000 cA$"A0255 S S7P(1)* ":X,Y:Z4:C ,"COMMAND?";:A$:A$i -A9690ĺ"";A9;" POINTS PLOTTED!"w .XD0:YD0 1A$"U"A9A91:A(A9)P:YDZ:460 6A$"D"A9A91:A(A9)P2:YDZ:460 ;A$"L"A9A91:A(A9)P3:XDZ:460 @A$"R"A9A$ (SH$,4)".SHP"SH$SH$".SHP"A D$;"BLOAD ";SH$;",A";S0e S9(S0):S9;" SHAPES IN TABLE" :"** PLEASE WAIT **": S7S922 S1S9 S8P(S):S0S2,L(S7):S0S21,H(S7) S6(S8S0):S7S0,S6 S7S71:S8S81 S6A(0)4(PT0)2 P(P)(S0P2)(S0P21)256L L(B)B(B256)256` H(B)(B256){ X0140:Y080:XX0:YY0 P4:7 D$(4) 232,0:233,96 "SHAPE FILE NAME?";SH$ SH$""āI05:S0I,0:I:190 SH$"TAPE"İ1600:190dMAKE V01B 10-MAR-79 i--SHAPE TABLE EDITOR-- BY T.R.BERTA, PRACTICAL DATA SYSTEMS,INC. 404 S FESS #F BLOOMINGTON, IN 47401 (812)336-6681n16384:AVOID HIRES AREAs8000xA(700) }A90:S024576:       I154$ X(I)SXX(I):Y(I)SYY(I)+ I1 = I129Z X(I),Y(I)X(I1),Y(I1)a In I3148 X(I),Y(I)X(I1),Y(I1) I I5052 X(I),Y(I)X(I1),Y(I1) I X(54),Y(54) 403,5,21r n 5,19,5,13,4,10,5,8,12,2,15,1,17,3,19,2,21,3,23,6,24,8,24,11,22,13,21,15,21,22,19,24,17,21,15,13,14,11 x 9,9,10,10,11,9,11,8,10,9 I130 X(I),Y(I) I ,I3150 @X(I),Y(I) TI I5154 X(I),Y(I) I  DONATED BY ERIC DREW- X(60),Y(60)43;1T(SX11(1):SY6(1)Z2 d 16,17,14,18,13,20,12,19,12,17,10,15,9,15,8,17,7,18,5,19,3,19,1,17,2,19,3,20,5,21,8,20,10,18,11,16,10,21,10,27,11,28,12,28,13,26,14,