L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`)AA((V2BB))d#:3En#24:"THIS IS THE CURVE YOU SELECTED."Ox#0,DDa#Q1001002v#YYF(Q)(QCC)#Q100,DDYY#Q#24:"PRESS SPACE BAR TO CONTINUE"#A$#H00^A(X)A((X2B))$h:3Or24:"THIS IS THE CURVE YOU SELECTED."Z|0,150lX1001002xYA(X)X100,150YX24:"PRESS SPACE BAR TO CONTINUE"D$(#2#AA80<#BB2000F#CC15P#DD80Z#F(V E :XN,YN IS THE POINT OF INTERSECTION OF PARTLY HIDDEN LINEs XN(Y1H(X1))(X2X1)(Y1Y2H(X2)H(X1)) YNY1XN(Y1Y2)(X2X1)  XN(Y1L(X1))(X2X1)(Y1Y2L(X2)L(X1)) YNY1XN(Y1Y2)(X2X1) @JA130TB10((U1)2)1%F X1XI(KK1)S1CCS1CP X2XI(KK1)S1(CC1)S1[Z A(KK,CC)99992740ud A(KK,CC1)99992740n Y1A(KK,CC)x Y2A(KK,CC1) Y10ĪY10 Y20ĪY20 Y1159ĪY1159 Y2159ĪY2159 X1,Y1X2,Y2 CC KK159ĪY1159 Y20ĪY200 Y2159ĪY2159G X1,Y1X2,Y2:2550N X^ A(K1,C)Y2f K0m Y : CROSS-HATCHING ROUTINE 24:"PRESS SPACE BAR TO SEE CROSS-HATCHING.":B$ X10:X20:Y10:Y20( XIYB2R2 KK1U2 < CC1(X1)Y1 j Y1L(X1)ĪL(X1)Y1@t C11ĪX2X1XN:Y2YN:2460`~ C12ĪX1X1XN:Y1YN:2460 C13ĪX1X1XN:Y1YN:2460 C14ĪX2X1XN:Y2YN:2460 X10ĪX10 X1279ĪX1279 X20ĪX20 X2279ĪX2279 Y10ĪY10  Y1Z2 A(K,C)Y1,$ Y1H(X1)ĪA(K,C)9999Z. Y1H(X1)Y2H(X2)Y1L(X1)Y2L(X2)25508 (Y1H(X1)Y2H(X2))ĪC11:2770B (Y1H(X1)Y2H(X2))ĪC12:2770L (Y1L(X1)Y2L(X2))ĪC13:2810V (Y1L(X1)Y2L(X2))ĪC14:2810` Y1H(X1)ĪH(279)L(279)HA12799H(HA)159:L(HA)0:HAD::3UYRR1S1_CC1vX2R2(R1)S1KK1C10Z1A((Y2X2))B(Y)Z2A((Y2(XS1)2))B(Y) X1YBS1CX:X2YBS1(C1)X Y1YBYZ1:Y2YBYA SETS HEIGHT OF CURVE*R40<4: R IS RADIUS OF CIRCLEE>D10uH: D IS THE PERIODICITY OF THE COS FUNCTIONRU(RS1)41\A(U,U)f :U IS THE NO. OF LINES pS21600zA(X)A((X2S2))(XD)B(X)A((X2S2))H10A(KK,CC1)01510)Y1A(KK,CC);Y2A(KK,CC1)LX1,Y1X2,Y2TCC\KKb: ****DECAYING COS CURVE***********************************************S14:S1 SETS SPACINGYB90 :YB SETS BASE LINEA8 : 360 FA(K,C)0 PX' ZA(K1,C)Y2/ dK06 nYk s24:"TO SEE CROSS-HATCHING,PRESS SPACE BAR":E$ xX10:X20:Y10:Y20 XIYB2R KK1U2 CC1((U1)2)1 X1XI(KK1)S1CCS1 X2XI(KK1)S1(CC1)S1A(KK,CC)015)((X2S2))6 Z2A((Y2S2))(((XS1)2)S2)X X1YBS1CX:X2YBS1(C1)Xr Y1YBYZ1:Y2YBYZ2 A(K,C)Y1 Y1H(X1)1350 Y2H(X2)1350 Y1H(X1)ĪH(X1)Y1 (Y2H(X2)ĪH(X2)Y2 2Y10Y201360 <X1,Y1X2,Y2:1A(U,U)' ` :U IS THE NO. OF LINES 3 jH(300)A tHA0299V ~H(HA)(YBR):HA` T.04 : T IS ARBITRARY FRACTION TO MAKE S2 GREATER THAN R ::3 YRR1S1 CC1 S2RT X2R2(R1)S1 KK1 Z1A((Y2S2)*******************************************************************EXPONETIAL SURFACE[ d S14z :S1 SETS SPACING YB100 :YB SETS BASE LINE $A80 .: A SETS HEIGHT OF CURVE 8R40 B: R IS RADIUS OF CIRCLE LU(RS1)41 V! n10)"1. EXPONENTIAL CURVE"' xK 10)"2. DECAYING COSINE CURVE"S NOk NO8000,9000,10000 NO1000,2000,3000 24:"DO YOU WANT TO DO THIS AGAIN?";C$ (C$,1)"Y"ī10 : 10:18)"OK" Q1500:Q :U ***** :16384:#18)"SURFACE"+:P(8)"H.EDELSTEIN FEB 21,1980"w2:10)"PLOTS A THREE-DIMENSIONAL"<10)"MATHEMATICAL SURFACE."F:P"AS A BASIS FOR THE SURFACE, ENTER THE"Z"NUMBER OF ONE OF THE FOLLOWING CURVES:" d      |b ` 0  0@ 3  px@a0p  C p@ @f @@ ` b @ x? @ `8 @  2 `<@@ 0 x@`  @   @B0@` `  `pa @ |?#` ` r Lp0 @ 2 `   ` `@ @@     0@a`  r@?0 x x  x  @ 0 @  p@@A` p?` ?` 6@  0 `@ A`   0 ` 0 ` @p     `<  @# 0 @ @ ~ |   |<@@80 P? 0 `x `  @ @?` p 0 `   0@ 0 ~  0`    @|  > `~   ` @ 00 G  @ x@`   x00x  0 p|`  x` 8   `@ ` <  0  0  P   p`0   @ x? 0 p`0 `  ` r0{G @@   ~`8`n 0  ~008 |  @a @ `   `0 `` p @ @8` @  xx?`1 | ~0@! 08  0 >`8`p`   @`@K `@0  @`>@ 0` 3@ @ x# `    @ @ p?`  0@ ` B X0`8` x `#` 0  `2@a 0@   @@h @@`  @p@h@p@ ?c ` p@> `?@@?@<8 ``@ @@  8@@A@  @ `@` >0@<@@ |8Ns p|p @0| ` p@x!@`p                       :# "WHICH DO YOU WANT?": :" 1 NEBUS "T:" 2 NEBUS II "l:"TYPE 1 OR 2":A16304,0:16302,0:16300,0:16297,0A130A25010" BLOAD STAR SHIP.X"(2" BLOAD STAR SHIP.Y"< 9:"HIT RETURN TO CONTINUE";A$:AU BECOME FAMILIAR WITH THIS PROGRAM. IF YOU HAVE A COPY OF THE ""APPLE ORCHAR THERE ARE SOME MORE DETAILS WORTH READING. GOOD LUCK AND HAVE FUN.":(14):"WM.J.KERR SR"^500:D$(4):D$;"RUN MENU":936:2:!:1 D$=CHR$(4):B= (DECIMAL STARTING ADDRESS) 2 POKE 232,FN MD(B):POKE 233,B/256 3 PRINT D$;'BLOAD (FILE),A';B "E" IT WOULD BE A GOOD IDEA TO THOR- OUGHLY REVIEW ALL HIGH RESOLUTION COM- MANDS AS YO. THE FOLLOWING MUST BE DEFINED --HGR OR HGR2, ROT, SCALE, AND "P500:400"HCOLOR. YOU MUST ALSO INCLUDE THE FOL- LOWING IN YOUR PROGRAMS BEFORE USING A SHAPE TABLE: 0 DEF FN MD(B)=B-INT(B/256)*256 "" HOW TO USE A SHAPE TABLE YOU CAN DRAW ANY OF THE SHAPES IN A SHAPE TABLE BY USING THE COMMAND 'DRAW I AT X,Y' OR 'XDRAW I AT X,Y' "B"WHERE I IS THE NUMBER OF THE SHAPE AND X AND Y ARE THE COORDINATES OF THE STARTING POINTT A CATALOG WILL APPEAR BUT IT DOES NOT. ALSO ALL DISK COMMANDS SPECIFY ""VOLUME 0 SO ANY DISK WILL WORK. 'NS' IN LINE #120 SETS THE NUMBER OF SHAPES THAT CAN BE STORED IN A SHAPE TABLE (PRESENTLY 128). SCALE HAS BEEN SET AT1"" " WARNING!!!!!! DO NOT MOVE 'UP' MORE THAN ONCE WHILE THE POINT IS OFF OR YOUR SHAPE WILL NOT FUNCTION RIGHT "M" NOTE: WHEN ASSEMBLING THE SHAPES INTO A SHAPE TABLE THE PROGRAM SUGGESTS THASIRE. (CTRL) W WILL ERASE THE ENTIRE SCREEN TO START OVER AND (CTRL) ""F TELLS THE PROGRAM YOU'VE FINISHED DRAWING. THE PROGRAM WILL THEN DISPLAY DETAILS OF THE SHAPE AND ALLOW YOU TO SAVE IT TO DISK. "500:400" NEXT DECIDE WHAT YOUR FIRST MOVE WILL BE, BUT BEFORE MAKING THE MOVE, TURN THE POINT ON OR OFF BY HITTING 'P' THEN HIT THE U, D, L, OR R KEYS TO MOVE"J"THE DOT IN THE DIRECTION YOU CHOOSE. THE POINT MAY BE TURNED ON OR OFF AS YOU DE SHAPE'S VECTOR TABLE. BE SURE TO SELECT A VACANT LOCATION THAT WILL NOT INTER- "x"FERE WITH EITHER YOUR HIGH RESOLUTION DISPLAY, YOUR DISK OPERATING SYSTEM OR APPLESOFT II. I'VE MOSTLY USED HEX 4000 (16384 DECIMAL) AS THE STARTING POINT. "ALLOWS YOU TO LOAD A SHAPE TABLE INTO MEMORY AND THEN DISPLAY THE SHAPES ONE AT A TIME BY SHAPE NUMBER. TO DRAW A SHAPE, TYPE 1 FROM THE MENU. "i500:400Un"THE PROGRAM WILL THEN ASK YOU WHERE IN MAIN MEMORY YOU WISH TO STORE THE SOFT AND DRAWING. " Z" AN ADDITIONAL PROGRRAM 'SHAPE DISPLAY UTILITY' HAS BEEN ADDED TO THIS COLLECTION. IT CAN BE USED TO REVIEW ANY SHAPE TABLE STORED ON THE DISK. IT ";d" " F"SHAPE TABLE AND STORES IT AS ABINARY SHAPE TABLE ON DISC. THESE SHAPE TABLES CAN BE USED IN ANY OTHER PROGRAM DEAL- ING WITH SHAPE DRAWING BY SIMPLY LOAD- "P P"ING THEM UNDER PROGRAM CONTROL,IDENTIFY -ING THEIR STARTING LOCATION TO APPLE- GRAM THAT ACTUALLY ALLOWS YOU TO DRAW INDIVIDUAL SHAPES ON THE HIGH "[ 7500:400 <"RESOLUTION SCREEN AND THEN SAVE THEM TO DISK AS BINARY PROGRAMS. PROGRAM THREE COLLECTS THE VARIOUS SHAPES MADE USING PROGRAM TWO INTO A ("PROGRAM' THAT WILL CALL A PROGRAM TO DRAW SHAPES IN HIGH RESOLUTION GRAPHICS , A PROGRAM TO ASSEMBLE PREVIOUSLY DRAWN SHAPES INTO A SHAPE TABLE, OR "M 2"EXIT FROM THE PROGRAM. PROGRAM TWO IS THE 'SHAPE DRAWING' PRODISPLAY UTILITY' PROGRAM THAT WILL ALLOW YOU TO VIEW THE FINISHED SHAPE TABLES THAT " "HAVE BEEN SAVED ON DISK WITHOUT GOING TO THE TROUBLE OF WRITING A PROGRAM. PROGRAM ONE IS A SHORT 'MENU "" 400 " THE FOLLOWING INSTRUCTIONS ARE PRESENTED TO ASSIST YOU IN THE USE OF THE 3 PROGRAMS THAT FORM THE 'SHAPE DESIGNED PROGRAM' BY MARK L. CROSBY IN "X "APPLE ORCHARD VOL. 1, #1, PAGES 37-45. TO THIS HAS BEEN ADDED A 'SHAPE           3 ERROR #12: NO FILE BUFFERS, SHOULDN'T HAPPENM CONTROLLED SHUTDOWN :::" PROGRAM TERMINATED DUE TO":" ERROR "A" LINE #"B" .J 3040:" YOU ALREADY HAVE A ";SHAPE$:" TABLE ON THIS DISK ";:3050S 640 ERROR #11: COMMAND SYNTAX, WHICH MEANS THAT FILE IS BEING SAVED THAT BEGINS WITH A NUMBER, ETC. 3040:" YOU MUST START NAME WITH A LETTER A-Z ";::3050 640" DISK ERROR - USE NEW DISK!! "::3050H 3330: CONTROLLED SHUTDOWNa ERROR #9:DISK FULL 3040:" DISK IS FULL, USE ANOTHER! "::3050 640 ERROR #10: FILE LOCKED, WHICH MEANS TABLE NAME IS BEING SAVED THAT ALREADY EXISTS ON THE DISKK! ":" PROGRAM WILL TERMINATE... "::3050LD 3330: CONTROLLED SHUTDOWNN 3040:" ";SHAPE$(I);" NOT ON THIS DISK! "::3050X 270b ERROR #7:VOLUME MISMATCH, SHOULDN'T HAPPENl 3330: CONTROLLED SHUTDOWNv ERROR #8:DISK I/O( 3040:S WRITE PROTECTED !!":"CHANGE DISKS... "::3050E 640r ERROR #5:END OF DATA, SHOULDN'T HAPPEN 3330: CONTROLLED SHUTDOWN& ERROR #6:FILE NOT FOUND0 B4403150: ELSE "MENU" IS BEING RUN,: 3040:" MENU IS NOT ON THIS DIS.* A4A123330: CONTROLLED SHUTDOWNg CA3: C=1 THROUGH 9,REPRESENTING ERROR CODES 4 THRU 12 C3060,3090,3110,3170,3190,3220,3250,3280,3310 21::958: J13:(7);:J:J13500:: ERROR $4:WRITE PROTECT< 3040:"DISK I"NAME OF SHAPE TABLE: ";:SHAPE$9SHAPE$""1410jD$;"BSAVE ";SHAPE$;",A";LC1;",L";CLC1;",V0D$;"LOCK ";SHAPE$;",V0"::D$;"RUN MENU" A(222):B(218)(219)256: A IS ERROR CODE AND B IS LINE # WHERE ERROR OCCURED233,B256:B,1:B1,0:B2,4:B3,0PdX30:Y79:SC13:SC:1X,Y:XX50:SCn:24:" HIT ANY KEY TO CONTINUE... ";:34x:A$:23"DO YOU WANT TO SAVE THIS":"SHAPE? (Y OR N) ";:A$:A$"Y"14401490:23% ";I04:LLL(I)0:I(I301;LOC16I1280bLLL(I)LLL(I)1:LOCLOC16I:1260qI:LOC$"" I301:1300:I::1340J015LLL(I)Jĺ(HEX$,J1,1);(J2< DRAW SECTIONF:0PBLC14$Z232,MD(B):0:D1:#tI13:D(I)0:I:D0:=~ CTRL F GOES TO HERE^ZD(1)D(2)8D(3)64:LOC,ZlZ01220LOCLOC1:LOC,0LOCLOC1:LOC,022:30:95823:1:"VECTOR TABLE: FROM ";LC1;" TO ";LOC:CLOC"HEX: FROM ";LOC$;" TOD(3)01040!F1:10602D(3)41060DQD(3):D(3)0^$ZD(1)D(2)8D(3)64.BYTEBYTE1:22:13:BYTE:18LOC,Z:LOCLOC1BF11110LQ01140VD(2)01130`D(1)0:D(2)Q:D(3)0:Q0:D2:jD(1)Q:D(2)0:D(3)0:Q:610/z22:33::"ON ";::"OFF "::1:61091150JYCO0YCO0_YCO159YCO159pXCO0XCO0XCO279XCO279PFLAG0980XCO,YCO10000:ODX,OLDY3:XCO,YCOODXXCO:OLDYYCO:F0:DD1:D(D)A:D3YCOOLDY1:A6#PFLAG0A271010:910:610C  RIGHTUXCOODX1:A5f PFLAG0A1z*1010:910:6104 LEFT>XCOODX1:A7HPFLAG0A3R1010:910:610\PFLAGPFLAGfPFLAG0890p22:33::"ON";::" OFF":1X24:"COMMANDS: CTRL-F,CTRL-W, U,D,L,R,P";:17bA$GlA$"U"700WvA$"D"740gA$"R"780wA$"L"820A$"P"860(A$)6900(A$)23560610 UPYCOOLDY1:A4PFLAG0A01010:910:610 DOWN ";:A$:::PFLAG0,YCO79:XCO139@OLDY79:ODX139L3:910&I14:H(I)((LOC$,I,1))48:H(I)9H(I)H(I)70I:LOC0:I13:LOCLOCH(I):LOCLOC16:I:LOCLOCH(4):LC1LOCD22:"BYTES USED:";N33:"ON ";::"OFF":/POSSIBLE COMMANDS..."8:3:"CTRL-F WHEN FINISHED":3:"CTRL-W TO WIPE CLEAN AND START OVER":8:"U - TO MOVE UP":8:"D - TO MOVE DOWN":8:"L - TO MOVE LEFT":8:"R - TO MOVE RIGHT" 8:"P - POINT ON/OFF":18:" HIT ANY KEY TO CONTINUE32,0:33,40 I124:922:* 3000m D$(4):D$;"MON I,O,C":D$;"NOMON C"::MD(B)B(B256)256 D(3),LLL(4),H(4):HEX$"0123456789ABCDEF" :3:2:"ENTER THE STARTING ADDRESS":2:"OF SHAPE IN HEX: "; LOC$ :2" THEN ASSEMBLE THOSE ";E @" OF YOUR CHOICE INTO A SHAPE TABLE THAT"s J" CAN BE USED IN ANY OTHER PROGRAM JUST" T" BY LOADING IT AND PERFORMING 2 POKES." ^I110 h" "; rI |:32 A$ :DURING THE NEXT SECTION, A MENU WILL"Q " GIVE YOU THE OPPORTUNITY TO DRAW A " " SHAPE AND THEN SAVE IT ON A DISK. "; "" "; ," AFTER SAVING THE VARIOUS SHAPES YOU "; 6" REQUIRE, YOU CAN "----------------------------------------";7 32,1d :"ONE USE IS IN GAMES THAT USE MOVING" "OBJECTS ACROSS THE SCREEN. ANOTHER" "MIGHT BE ARCHITECTURAL MODELING." ::5:"HIT ANY KEY TO CONTINUE..."; A$ 2:1:32,0% ""TABLES"(34)" EACH CAPABLE OF CON-":"TAINING MANY SHAPES. THESE"e n"FINISHED TABLES CAN EASILY" x"BE INSERTED INTO OTHER PRO-" "GRAMS." "ALL SHAPES AND TABLES CAN BE" "STORED AND RETRIEVED BY NAME." 32,0:33,40:34,0-   ::H:I124:" ";:IR2:9~("WELCOME TO "(34)"SHAPING UP"(34)2:" PURPOSE:";<32,11:34,1F12P"TO FACILITATE DRAWING SHAPES,";Z"AND THE CREATION OF "(34)"SHAPE":C d        L'"":151G2000:151':^'"ON THE BEEP TYPE 4000.5FFFW THEN PUSH PLAY / RECORD AND RETURN"$':"IF YOU WANT TO SAVE THE PICTURE TO DISK TYPE BSAVE (NAME) ,A4000 ,L1FFF,D1 TO 2 ,V0 .':"WHICH DO YOU WANT 1 DISK OR 2 TYPE"8'V:V210060B'RETURN "" ""AFTER THE PICTURE HAS BEEN LOADED YOU MUST LOAD APPLESOFT AND THE PROGRAM AGAIN TO MAKE ANOTHER PICTURE "" ""IF YOU HAVE ANOTHER PICTURE TO LOAD JUST TYPE 2000.3FFFR AND CONTINUE TO PLAY THE TAPE"X1 C$"L"X1X11' C$"U"Y1Y11; C$"D"Y1Y11J C$"N"Ē0Y C$"Y"Ē3o X11X12782000 *Y11Y11902000 4X1,Y1 >2000  "TO LOAD A PICTURE TYPE " " " "* C050 C052 C054 C057 2000.3FFFR " THEN HIT ICTURE" @ J T39 ^F$"KEYBOARD"F$"K"2000N rX1((0)1.085)h |(016287)127:CO1v X110: Y1((1).74) (116287)12710000 CO1:0 X1,Y1 CO0:3 370 C$ C$"S"10000 C$"R"X1X11T ONE SPACE"3 "L TO MOVE POINT LEFT ONE SPACE"| "N FOR NO PLOTING ON THE SCREEN Y TO START PLOTING AGAIN" "S WHEN FINISHED DRAWING" ,::: 6"AFTER YOU FINISHED THE DRAWING THERE WILL BE INSTRUCTIONS ON HOW TO SAVE THE PHE VERTICAL PADDLE TO NOT PLOT AND PUSH THE BUTTON ON THE HORIZONTAL PADDLE WHEN FINESHED DRAWING"m 300 "USING KEYBOARD" " " "TYPE" "D TO MOVE POINT DOWN ONE SPACE" "U TO MOVE POINT UP ONE SPACE" "R TO MOVE POINT RIGH xF }F35000 (10)i "DO YOU WANT TO USE THE PADDLES OR THE KEYBOARD TO DRAW THE PICTURE"q F$w "INSTRUCTIONS FOR SAVING A PICTURE" " " F$"KEYBOARD"F$"K"200 "USING PADDLES" " "d "PUSH THE BUTTON ON T S12X1015&(S)?X)"SAVE A SKETCH "ISS1X#T1500:~$(S1):X)" "(X2<150F"WHICH FUNCTION ?"P" "Z"1 DRAW "d"2 DRAW THEN SAVE "n"3 LOAD A DRAWING"(X1)Y1 j Y1L(X1)ĪL(X1)Y1@t C11ĪX2X1XN:Y2YN:2460`~ C12ĪX1X1XN:Y1YN:2460 C13ĪX1X1XN:Y1YN:2460I,J:.'769,100:: DURATION$8'( 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666e 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666CY2L(X2))ĪC14:2810` Y1H(X1)ĪH& 80,100P1,100P1,1500 0 P28013.125J 80,125P2,125P2,150P b P38019.685| 80,138P3,138P3,150 ' : GENERATES MUSIC TONES' 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174, 0,3,76,2,3,96 $'I770790:J:R t :CALC. % REMAINING6R100(D900)100\PP1: TIME PERIOD OF 100 UNITSn805P,150RRR(R10)1022:RR;"% REMAINING AFTER ";T;" DAYS " PITCHPITCH1768,PITCH 770::TONE ROUTINE* P1806.565-1 27,17,13,3,2,1,-15 24,3,17,2,7,4,5,2,-1X 22,3,19,1,2,1,2,3,3,1,1,3,-1w 21,2,16,2,4,1,1,3,5,3,-1 19,2,7,5,6,2,4,2,4,4,-1 18,2,5,3,5,3,3,2,4,2,1,3,1,1,-1& 17,2,5,1,11,2,1,2,4,3,5,1,-10 16,2,5,1,14,3,4,2,7,1,-1 3,3,7,2,22,2,14,16,-15 | 4,3,7,2,19,2,16,3,2,9,-1T  5,3,8,19,17,3,2,2,3,4,-1o  8,23,20,2,2,2,3,4,-1  29,3,18,4,3,4,-1  30,3,16,9,-1  30,3,14,5,-1  31,3,6,10,-1  32,14,-1  31,12,-1  30,2,9,2,-128,16,17,1, 1,3,13,6,32,3,2,7,2,7,-1; " 0,3,12,10,30,3,2,6,2,7,-1[ , 0,3,10,11,31,3,2,5,2,8,-1{ 6 0,3,10,10,32,3,3,3,2,9,-1 @ 0,3,12,6,34,4,6,9,-1 J 0,3,37,2,13,19,-1 T 1,3,36,2,13,18,-1 ^ 2,3,34,2,14,17,-1 h 2,3,33,2,14,5,2,10,-1 r,3,11,-14 15,11,1,4,2,3,1,2,2,2,3,3,2,9,4,10,-1V 9,3,14,2,5,3,4,4,8,9,7,7,-1y 7,3,21,5,3,4,10,7,3,2,3,7,-1 5,3,22,6,2,5,11,5,2,5,2,7,-1 3,3,24,5,3,4,12,5,2,6,2,7,-1  2,3,26,3,5,2,14,3,2,7,2,7,-1  1,3,51,3,2,7,2,7,-1 44,20,-1 38,3,1,6,10,8,-1= 34,-5,3,2,3,-10,2,10,-1[ 33,-5,3,2,3,-11,2,12,-1y 32,-5,3,2,3,-11,3,12,-1 31,-5,4,2,2,-11,3,1,1,13,-1 30,-4,5,2,4,-8,4,1,3,12,-1 30,1,6,1,3,1,4,-4,5,2,3,1,1,12,-1 30,5,1,1,1,4,1,4,2,11 *IIH::I -:55) 2B:B060D 7:S0āI1S:" ";:IS 9B:B095l <B0āI1B:" ";:I FL:L0ĺ"ERROR":NC:95 PL$"X":L0LL:L$"O" UI1L:L$;:I:50 _:0 cN: d 47,14,-1 n 35,-4,2,5,3,-7,3,8,-1 x  S=1,H=26 ARE GOOD!:D "SET MARGIN: ";S:S0S9910Jm"SET HEADER: ";H:H0H9918s"NO. OF COPIES? ";C:C0C1020"HARDCOPY? ";A$:A$"Y"A$"N"30#N1C(A$"Y"Ċ1:(9);"K":(12))" 80N"     * *XXXXXXXXXXXXXX* *"7(25):"**XXXXOXXXXXXOXXXX**"Y(25):"* *XXXXXXXXXXXXXX* *"_jC13(27):"*XXXXXXXX XXXXXX*"C NECKX150(29):"*XXIIIIIIXX*" X@X115J" "TX^5'0:****IIIIII******XXXXX**"L(8):" **XXXXXXX******************X**"(8):" **XXXXXXX*************XX**"(8):" ***XXXXXXXXXXXXXXXX***"(8):" ****************"X10000 KEYS (25):"XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXX*"j(8):" *XXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXX*"(8):" *XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXX**"(8):" **XXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXX**"(8):" **XXXXXXXXX**XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXX*"p(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXX*"(8):" *XXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXX*"(8):" *XXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXX*"-(8):" *XXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXXX*"k(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXX###XXXX###XXXXXX*"(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXX#####XX#####XXXXX*"(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXX###XXXX###XXXXXX*"0(8):"*XXXX000000>IIIIII<000000+0*XXXXXXXXXX*"d(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXX*"(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXX*"(8):"*XXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXXXXXX*")(8):"*XXXXXXXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXX*"e(8):" *XXXXXXXXXXX*0+000000>IIIIII<000000+0*XXXXXXXX*"(8):" *XXXXXXXXXXXX*0+000000>IIIIII<000000+0*XXXXXXXXX*"(8):" *XXXXXXXXXXXX*0+000000>IIIIII<000000+0*XXXXXXXXX*"#(8):"*XXXXXXXXXXXXX*0+8):" *XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXX*"o m(8):" *XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXX*" r(8):" *XXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXX*" w(8):" *XXXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXX*"'|(8):" *XXXXXXXX:" *XXXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXXX*"r T(8):" *XXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXXXX*" W(8):" *XXXXXXXXXXXXXXXXXXIIIIIIXXXXXXXXXXXXXXX*" YX15 ^(8):" *XXXXXXX*O+OOOOOOO>IIIIII($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fpPD$;"CATALOG"VkIN1ĺ"INPUT ";IN0ĺ"OUTPUT ";"FILE NAME: ";F$IN1ĺD$;"BLOAD ";F$IN0ĺD$;"BSAVE ";F$;", A$6800, L$400"0:0:54,0:55,9616297HARzIBL8KY768%J07CK06:812K,A(J,6K):Ke794:BYTE(809):IJ,BYTE:Jp400:X--KEY "X"bI03:54I,TM%(I):Il16300,0:v:--KEY "I"IN1:INPUT7300 --KEY "O"*IN0:OUTPUT--PRINT PROMPTF24:1:A$"@PRESS @RETURN TO STORE CHARACTER":10Lg--MOVE CHAR TO WINDOWuIBL8KY~768J07BYTE(IJ)809,BYTE:777K06:A(J,6K)(811K):K:J300:V0:H0:2000:p--MOVE WINDOW TO C127)!A(V,H)0Ĺ973,255:"%",973,02 @4--UNPLOTK>973,0YHV1:H3lRA(V,H)0ĺ"#"\A(V,H)0ĺ"%"f --GET REPLY 24:1:" " 24:1:10 KY$:24:1:A$BL$:10 KY$):KZ("9")1045+KZKZ("0"):1046?KZKZ("A")10NKYR16KZhMODE1İ4000:5000:z$6000:4000:--REM "C"I07:J06:A(I,J)0:J:I300:V0:H0:2000:--PLOT973,0V1:H3A(V,H)0ĺ( W2100\HH1:H0H0)a2000:8--KEY "S"B2100UHH1:H6H6a2000:p--KEY "E"MODE11020A$"@CORRECT?":3000KY$"N"10204000A$"@ROW (0-7)?":3000:R(KY$)A$"@COLUMN (0-@F)?":3000:KZ(500X--KEY "Y" ]A(V,H)1*b2100LgHH1:H7H0:VV1:V8V7Vl2000\vk--KEY "N"xA(V,H)0610--KEY "W"2100VV1:V0V02000: --KEY "Z"%2100*VV1:V7V7/2000:R--KEY "A"KY$KY$"Y"İ600,KY$"N"İ700> KY$"W"İ750PKY$"Z"İ800bKY$"A"İ850tKY$"S"İ900!KY$"E"MODE1:1000:500&KY$"C"İ1200DKY$(13)MODE0:1000FKY$"X"İ7000IKY$"I"İ7100NKY$"O"İ7200W::3:I ^& LIST SET IN MATRIXY 975,255:14:1:973,255:" 0123456789ABCDEF"d I07u I;:975,127 973,0 J015:3J KI16J:K12K13ĺ(K); J: 975,255:973,255:I 2000 4000  --GET COMMAND# HIRES BOXES DAVE DRAKE 8-79) 9X20(1)3CL189J7c0,00,LL,LL,00,0p(I0LX20,II,LL,LILI,00,I<IF10CAC,BCAEC,BDC( /A,BCAE,BCD0 F30 A2 K2 75A100(1)50:B50(1)50>C50`D((0)128)4:E((1)128)4}!(DDF)K(EEF)Kī30#DFD:EFE%:7(A,BAC,BAC,BCA,BCA,BAE,BDAEC,BDAEC,BDCAE,BDCAE,BD-AC,BAEC,BD .0*<=`.)*<Ș `\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$U*U*U*U*x8P<k]>>]k  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{> 10000241,19 1,0,4,0,36,22,54,4,0VX2000020008:N:X,N:\p(232,32:233,78v2<X1402FXPX1164ZX1d1139,79nX1,Xx22"DID YOU ENJOY THAT DISPLAY? (Y/N) ";A$, A$""ĺ"ANS1)20)  @ d'G(1)20038:H(1)10038;,A1(1)7015I(1)71pG,H76(1)(G38),78(1)(H38)vXC(1)101C8İ900 100X239(1)259LY152(1)172X,YI150 xX(40(1)20),Y(40( S :16302,0:74C1.684587814:C21.46073298CA02799R(D1(AC1)Y27k<A,00,191D1FA,191279,191D1P0,D1A,191D1Z279,D1A,191D1d:nx" BY LAWRENCE GUST" 1/1/81 AAPPEARINGINABACUSAUG1979@# SOUNDS:S(16336):S(16336)* 3G MX,MYRX,RY:MXRX:MYRYN A_ MX140:MY96 * LINE 240 IS CTRL G TEN TIMES * "" X(16384) X12790 255 :  WRITTEN BY BEN NEIBURGER INSPIREDBYANIDEOLS BACKGROUND COLOR *: nSOUNDS:S(16336):S(16336)A xI` (0): * CONTROLS SPEED *t A030P2DAD RX14070API(A):RY9650API(A) (0)36: * CONTROLS COLOR OF DRAWING ON SCREEN * G1A22:MXG,MYGRXG,RYG:G:1 BEN'S PROGRAME FROM NORTHWEST SUBERBAN APPLE USERS GROUPZ NOVEMBER, 1979b :k255q(MX140:MY962P223.141592635<DP2360FPI105PCX140:CY96ZDA360(13)1 dI01911:0,I279,I:(1)36: * CONTR   11000:I <:7 F20 . 7-A100(1)50:B50(1)50OC90(1):D50(1):E50(1)e#CC5:DD3:EE3(A,BAC,BAC,BCA,BCA,BAE,BDAEC,BDAEC,BDCAE,BDCAE,BD-AC,BAEC,BD.AC,BCAEC,BDC/A,BCAE,BCD 2I wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGwwwwwwwwwwwwwwwwwwwwwwẅ̈pwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwtDD̜ψwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwẅ̈(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDDÄ̈̌ŠwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDD$wwwwwwwwwwwwwwwwwwwwwwwwwwwDDwwwwwwwwwwwwwwwwwwwwwwwPwwwwwwwwwwwwwwwwwwwwwwwwwwwGDDDLjLjwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwtDD̜wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwww(wwwwwwwwwwwwwwwwwwwwwwwwwwwDDA̍̌ŠwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDD̈̈wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDDwwwwwwwwww wwwwwwwwwwwwwPwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDDDLjwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGwwwwwwwwwwwwwwwwwwẅ̈pwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwtDD̜̈wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwẅ̈(C1)4:B1E1:E1B11(B10)256:E2B23(B10)@ >60,B1:61,B2R ?62,E1:63,E2g @66,0:67,4PAGEq A1912w B} CwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDD̈TALOG": P40I 8NP04::NP=NUMBER OF PICS APPENDED TO THIS PROGRAM ^ 9 DISPLAY 1 PIC : PARAMETERS: PAGE=1 OR 2;PIC=1 TO NP ;(PAGE2)PAGE1 <1912,216:1913,160:1914,0:1915,76:1916,44:1917,254. =E1(175):E2(176):B2E2(NPPI~ T1200:T230:T3200:T4500+63800;:16302,0C#70_(PIC1:63801:C1T1:C{2PIC2:63801:C1T2:C7PIC4:63801:C1T42:C<PIC3:63801:C1T3:CFPIC4:63801:C1T4:C KKEY(16384):KEY127Ĺ16298,0:::"CA        R APPLE!!!":) ':2 '1009 $'5e .'6:"NEITHER RAIN, NOR SNOW, NOR GLOOM" 8'" OF NIGHT WILL KEEP US FROM SHOW-" ='" "; B'"ING YOU THIS GREAT MASTERPIECE. ":WER THE QUESTION!":1305 100 (A$,1)"Y"ĺ"SO YOU ENJOYED THE PROGRAM EH? WE NAMED IT FOR YOU!!!!!":255:"RUN APPLE BARREL SOFTWARE"! "SOME PEOPLE DON'T RECOGNIZE GOOD ART":"EVEN WHEN IT IS GIVEN TO THEM ON A":"A SILVEE,YF:YG,YH:YJ,YK:YL,YMY (OAA:OBB:OCC:ODD:OEE:OFF:OGG:OHH:OJJ:OKK:OLL:OMM +XAYA:XBYB:XCYC:XDYD:XEYE:XFYF:XGYG:XHYH:XJYJ:XKYK:XLYL:XMYM 2I F0 POA,OB:OC,OD:OE,OF:OG,OH:OJ,OK:OL,OM d231,92,224,100,207,104,22p3 I18  0NOA,OB:OC,OD:OE,OF:OG,OH:OJ,OK:OL,OM|XA,XB:XC,XD:XE,XF:XG,XH:XJ,XK:XL,XMA,B,C,D,E,F,G,H,J,K,L,MYA,YB,YC,YD,YE,YF,YG,YH,YJ,YK,YL,YM3A,B:C,D:E,F:G,H:J,K:L,M !YA,YB:YC,YD:Y  01,31,16,1,96,177,6,73,127,145,6,136,169,0,240,232,63,169? \ ***********************p  MULTICOLOR 1  AUTHOR UNKNOWN  MODIFIED BY  BY CRAIG A. MILLS  AUGUST, 1980  ***********************  0,80B139,159B. 279,80B140,159B5 B> TWOQ I110:768:d PAUSE1500:l 15 HIRES INVERSE ROUTINE  BY SCOTT KNASTER I76876835 X:I,X:9 169,64,133,7,169,0,133,6,160,255,192,255,208,2,198,7,165,7,2900,23:14:"MULTICOLOR 1"2 ?TWO12N((1)8)^X((1)8)o(A0139X22A,0139A,79<279A,0140A,79FA,159139A,80P279A,159140A,80ZAdB079X2n0,79B139,B x140,B279,79BX((1)12) X278190$ 110: HORIZONTAL PLOTK M11000:MS Y1d C1((1)8)w C10C14200 C1 T((1)150) U((1)150128) T,YU,Y YY((1)12) Y19010 220< : 716+"COLOR LINES"3(13;212U7"BY JERRY MCFARLAND"]<20f>" "{F VERTICAL PLOTPT12500:TRZX1_C1((1)8)dC10C1495nC1xW((1)100)zZ((1)10090)X,WX,Z XwwwwwwwwwwwwwwwwwwwwwwwwwwwDDǍŠTwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDDwwwwwwww wwwwwwwwwwwwwPwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDDDLjwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGwwwwwwwwwwwwwwwwwwwwwwẅ̈pwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwtDD̜ψwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwẅ̈(wwwwwwwwwwwwwwwwwwwwwwwwwwwDDǍŠwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDD0wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwDDwwwwwwww wwwwwwwwwwwwwPwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGDDDLj ((1)8)&X((1)8)7(A0139X2I2A,0139A,79_<279A,0140A,79sFA,159139A,80P279A,159140A,80ZAdB079X2n0,79B139,Bx140,B279,79B0,80B139,159B279,80B140,159BB 7,3,15,6,10,3,15,46,15,30,45,32,48,54,10,32,48,15,18,11,18,33,57,11,18,45,18f ` DAVE WINZLER, 1978g TRIANGLE ILLUSION9 CONFIGURED FOR ROM CARDS X(X)(3.5X.5)20Y lY(Y)1803YrHB044:HC13:HBHC:X,Y:X(X),Y(Y)(N117:X,Y:X(X),Y(Y):N2HC,HB:22cL d 6,10,54,10,57,15,33,57,27,5(1,I)CATV(3,I)SA5 TV(3,I)TV(3,I)CATV(1,I)SAW TV(2,I)TV(2,I)CATV(3,I)SAy &TV(3,I)TV(3,I)CATV(2,I)SA 0I : D ROTATE TESSERECT ON X-AXIS & 4-TH DIMENSION BY TOM TUCKERMAN 7/17/80P,I))4090 ^XA,YAXB,YB" hI0 rZ0Q:Z6 B I1NVb TV(1,I)TV(1,I)CTV(4,I)S TV(4,I)TV(4,I)CTV(1,I)S TV(3,I)TV(3,I)CTV(2,I)S TV(2,I)TV(2,I)CTV(3,I)S I  CA(.3):SA(.3) I1NV TV(1,I)TVJ I I1NE" J12. E(J,I)5 J< IG S(P)R C(P)[ 500d 300y A03.141592P 400:300 "A: , 1I1NE 6XATV(1,E(1,I))4090 @XBTV(1,E(2,I))4090 JYATV(2,E(1,I))4090 TYBTV(2,E(2 10,12 , 11,12 - 11,15, . 12,168 / 13,14D 0 13,15Q 1 14,10] 2 14,16i 3 15,16s A936| FP.1 PQ1000 Z:3 dNV16:NE32 nV(4,NV),E(2,NE),TV(4,NV) xM1 I1NV J14 V(J,I) TV(J,I)V(J,I) -1,-1,-1,-1  1,2  1,3*  1,54  1,9>  2,4H  2,6S  2,10]  3,4g  3,7r  3,11|  4,8  4,12 5,6 ! 5,7 " 5,13 # 6,8 $ 6,14 % 7,8 & 7,15 ' 8,16 ( 9,10 ) 9,11 * 9,13 + 1,1,1,1 1,1,1,-1/ 1, 1,-1, 1@ 1, 1,-1,-1Q 1,-1, 1, 1b 1,-1, 1,-1s 1,-1,-1, 1 1,-1,-1,-1 -1, 1, 1, 1 -1, 1, 1,-1 -1, 1,-1, 1 -1, 1,-1,-1 -1,-1, 1, 1-1,-1, 1,-1-1,-1,-1, 1   ,140,112,42,26,5,122,25,160,81,182d R 161,17,140,37,140,112,9 5,110,112,136,130,156 n :10I,106,194,114,205,118D X140,112,116,22,93,49,64,115,83,144,105,169  196,56,140,112,140,112, 140,112,140,112,180,132 140,112,91,8,70,38,35,117,55,152,82,182  180,36,161,52,142,76,12 9,108,138,128,154,144 " 140,1122,140,112,42,26,5 ,122,25,160,81,182 b 180,36,161,52,142,76,129,108,138,128,154,144  231,92,224,100,207,104, 224,108,231,108,212,102 161,17,140,37,140,112,95,110,112,136,130,156 & 213,74,204,84,196,96,18 04,108,231,108,212,102R 140,112,116,22,93,49,64 ,115,83,144,105,169 213,74,204,84,196,96,180,106,194,114,205,118 140,112,91,8,70,38,35,1 17,55,152,82,182 ,196,56,140,112,140,112,140,112,140,112,180,1320 ^ 140,11}788,2:789,3:790,96!(}50C "S11" YES PLAY AGAIN":X12000:,KN255@MNX12000::90HRN:_VEEEE500:ELEL50}770,173:771,48:772,192:773,136:774,208:775,5 }776,206:777,1:778,3:779,240:780,9:781,202}782,208:783,245:784,174:785,0:786,3:787,76:100:255:210 N:(%N200G*N"YOU HAVE BEEN DESTROYED".N"BUT OUR ESCAPE CAPSULE HAS BEEN PICKED UP. THEY NEED PILOTS BAD."4N"IF YOU WOULD LIKE TO TRY AGAIN TYPE Y OR N">NCCCC1CN"NO. OF GAMES "CC1#HN"YOU SCORE WASV'EEEE100:ESES100:`'SO502003:768,SO:769,2:770Bj'SOHt'Q:100Z:200:"MUST TRANSFER ENERGY FROM SHILD TO LASERIN ORDER TO FIRE":TR(ES2):"INPUT THE AMOUNT TO BE TRANSFERED "TR:ELELTR:ESESTR:X12000:SO1002004:768,SO:769,10:770*SO6S1S11?210E@KJc'X1X:X2X:Y1Y:Y2Yp'EF120'X1X11:Y1Y11:X2X21:Y2Y21.'X12100708'X23810070='Y12Y2210070B'13:X1,Y1:X2,Y2L'0:X1,Y1:X2,Y2Q'EFX1,Y1:X2,Y:X1,Y2Bz13:X,Y2:X1,Y3:X3,Y1:X3,Y3k9:X4,Y3:X6,Y4:X,Y6:X1,Y4xBL150CL((1)4)CL1:13CL2:1CL3:9CL4:8X4((1)20)10Y4((1)20)10X4,Y4:BL" A1:B39:A139:B139$ 4:3010= A1:B39:A139:B139J 0:3010T 3050` Q120 AA1:BB1:A1A11:B1B11 A,B:A1,B1 Q  S020015:768,S:769,2:770 S EEEE300:ELEL50 EE26000& p1:X,Y:B139Q12028AA1:BB1:A1A11:B1B11HA,B:A1,B1[0:A,B:A1,B1b Q2:20,20:19,21:21,22:21,18 0:20,20:19,21:21,22:21,18HS1002:768,S:769,1:770RSfEEEE500:ELEL50pEE106000 " 2451 X,Y:X1,Y:X1,Y:X,Y1:X,Y17 c 10,1820:22,3020:10,1820:22,3020i  X,Y:X1,Y1:X1,Y1:X1,Y1:X1,Y1  FX,Y:X1,Y:X1,Y:X,Y1: 8:X,Y:X1,Y1:X1,Y1:X1,Y1:X1,Y1A1:B39:A139:50) EF35İ10000" GH(0)6 FF80:TT.192G T.0120000V F020000g ES2020000w EL015000 (21):"FUEL LEFT "F" LASER ENERGY "EL" " (22):"ENEMY ENERGY "EE" SHIELD ENERGY "ES" " (23):"SCORE "S11" TIME "T" X20CX2 rX20CX2* |Y20CY2: Y20CY2L XXCX:YYCYX 8:250k X18X22436~ Y18Y22439 475 Y18Y22450 475 X18X22450 475 FC(2(1))1 FC1İ2000 FC2İ3000 EF((1)Y((1)35)2 15:1200# 8, 278A TY1İ1000:275V TY2İ1300:275k TY3İ1350:275q z 250 D((1)4)1 "D1:MX1:340 ,D2:MX1:340 6D3:MY1:340 @D4:MY1:340 T0:250 ^XXMX:YYMY hFUEL USED "TFF+ "LASER ENERGY "ELC "SHIELD ENERGY "ESL " "d "ENEMY ENERGY "EEm " " "TIME LEFT (HOURS) "T X13000: 255 100 S11 EE1500 TY((1)3)1 CH1 X((1)35)2 "  CC18000%(10)K" AUTO SPACE WARS"\X12000:Xg-32000m2ZEL1200:ES2000:EE1500:T24[F10000\TF10000_200d::200n" STATUS BOARD"x(5)"FUEL LEFT "F "     Z11500:Z 20X PW11390ZPP0ī1410'd14207nPP01410Ax1420MH(I1)0UI1`::30,0279,0279,1590,1590,01,1278,1278,1581,1581,1K1(0)3P3P(F(1,1),1)K1P4P(F(1,1),2)K1P1180P3(P3)P2120P4(X(I)X(K))2:E2(Y(I)Y(K))2:E3(Z(I)Z(K))2HE4(E12E22E32)lPP(A1E1A2E2A3E3)(A4E4)tW0PP01300 1310W1G1E1D(1)(G2E2D(2)2G3E3D(3)<G4(G12G22G32)FPP(A1G1A2G2A3G3)(A4G4)1(H$,1)"N"1420:IF(I1,1):JF(I1,2):KF(I1,3)qA1(Y(K)Y(J))(Z(I)Z(J))(Z(K)Z(J))(Y(I)Y(J))A2(Z(K)Z(J))(X(I)X(J))(X(K)X(J))(Z(I)Z(J))A3(X(K)X(J))(Y(I)Y(J))(Y(K)Y(J))(X(I)X(J))A4(A12A22A32)/E1KKV(J).J8S301120OBP(I,1)((A(1)Q(1))C(2)(A(2)Q(2))C(1))S3iLP(I,2)(A(3)Q(3))S3sV1140`P(I,1)((Q(1)A(1))C(3)(A(3)Q(3))C(1))S2jP(I,2)(A(2)Q(2))S2tI~:FLAG FACES WHICH ARE HIDDEN.I11N1H(I1)V(3)Z(I)D(3)2:CHECK FOR VALID VIEWPOINT]U(1)V(1)U(2)V(2)U(3)V(3)0ī1040"VIEWPOINT IS WITHIN OBJECT---PLOT IS ABANDONED---REENTER ALTERNATE VIEWPOINT."::KKD0(V(1)C(1)V(2)C(2)V(3)C(3))J13$A(J)D(J)INESHU(1)D(4)D(1)*RU(2)D(5)D(2)=\U(3)D(6)D(3)\fU1(U(1)2U(2)2U(3)2)gpI13xzC(I)U(I)U1IS3(1C(3)2)S2(1C(2)2)I13Q(I)D(I)D0C(I)II1N0V(1)X(I)D(1)V(2)Y(I)D(2)K3(L)D(2)K3(L)%D(3)K2o: D(1,2,3) ARE COORD. OF OBSERVER. D(1):VERT.;D(2):HORIZ.;D(3):DEPTH :D(4 TO 6) ARE COORD. OF POINT LOOKED ATD(4)0 D(5)0*D(6)04:PERSPECTIVE TRANSFORMATIONS>:FIRST..CALC.DIRECTION COS 3. TELEPHOTO"I>N"ENTER YOUR CHOICE (1,2,OR 3): ";AQXA610,620,630fbK350:D025:640{lK320:D010:640vK3200:D0100:640:"SHOULD HIDDEN LINES BE REMOVED? ";H$PI3.141593L02PIPI6K21(1)D(1)BERS FOR EACH FACE"%I1N11J1N2E" ";F(I,J);LJRYIa : "PRESS SPACE BAR TO CONTINUE":A$ ::5&"WHAT KIND OF PERSPECTIVE ?"+0" 1. NORMAL"5:" 2. WIDE ANGLE"?D" READ IN CLOCKWISE FOR EACH FACE FROM DATA STATEMENTS. h: IF A FACE HAS LESS THAN THE MAX NO. OF VERTICES,ENTER 0 AS THE LAST VERTEX NUMBER. rI1N1 |J1N2 F(I,J) F(I,J)0430 J JN21 V1(I)J1 I"VERTEX NUMZ(I) ,I 18 6"PRESS SPACE BAR TO CONTINUE":A$> @Y JF(N1,N2),V1(N1),H(N1) T: THE VERTEX NUMBERS OF EACH FACE ARE READ INTO ANARRAY F(N1,N2) WHERE N1 IS FACE NUMBER AND N2 IS THE MAX NO. OF VERTICES ON A FACE.6 ^: THE VERTEX NOS.ARE. CENTER C1,C2,C3@ :GET COORD. AND TRANSLATE TO ORIGIN.L I1N0` X(I),Y(I),Z(I)q X(I)X(I)C1 Y(I)Y(I)C2 Z(I)Z(I)C3 I  :"COORDINATES OF THE VERTICES": I1N0 ""VERTEX NO.";I;": ";X(I);4);Y(I);4);SING SPACE BAR."; F:"PRESS SPACE BAR TO CONTINUE. ":A$H d:16384g n:POLYHEDRON DATA IS INPUT xN0:...NO.OF VERTICES X(N0),Y(N0),Z(N0),P(N0,2) N1: :NO.OF FACES N2: :MAX.NO.OF VERTICES PER FACE : READ IN COORD. OF POLYHED %. ("THE OBJECT (A 'BARN') IS ROTATED."\ -"PADDLE(0) CONTROLS SIZE FIT ON SCREEN." 2"PADDLE(1) CONTROLS HEIGHT OF VIEW POINT." 7"KEEP SETTING AT MIN.(COUNTER-CLOCKWISE)" <"TO START AT 'GROUND LEVEL'." > A"HALT DRAWINGS BY PRES :18:"BARN" ?10:"H.EDELSTEIN JAN 16,1980"Er"ADAPTATION OF PROGRAM BY JOHN W. ROSS""IN 'PERSONAL COMPUTING'(NOV,DEC 1979)""DRAWS THREE DIMENSIONAL OBJECTS IN"#"PERSPECTIVE FROM VARIOUS POINTS OF VIEW."          <Ӎٍ.Y,A$2000" 100? ,16304,0:16302,0:16300,0:16297,0H 6100V 16299,0_ 100m 768:100 O PERFORM THE GRAPHIC COPY"! >A @"PRESS THE ESC KEY TO END"I B: F"FOR BEST EFFECT PRESS THE TWO KEY BEFORE THE THREE KEY" dA$ nA$"0"200 xA$"1"300 A$"2"400 A$"3"500 A$(27)ė:: :D$;"BLOAD DOLLAR COPYo D$(4)-:D$;"BLOAD DOLLAR COPY.X"39?E  "PRESS THE ZERO KEY TO LOAD THE TEST PICTURE TO PAGE 1""PRESS THE ONE KEY TO VIEW PAGE 1"(2"PRESS THE TWO KEY TO VIEW PAGE 2"4 <"PRESS THE THREE KEY T 3,6,7 p: FACE VERTICES* z 1,4,9,109  7,8,9,10G  8,3,4,9U  2,3,4,1d  7,2,1,10r  5,6,8,7  5,6,3,2  8,6,3,0  7,5,2,0  19,20,21,22  15,16,17,18  11,12,13,143,8,-1 -3,8,7" -3,-8,-70 -3,8,-7> 3,-8,-1K  3,8,-1W 3,8,7d 3,-8,7s( -3,-6,-32 -3,-6,-5< -3,-4,-5F -3,-4,-3P 1,-8,5Z 1,-8,3d -1,-8,3n -1,-8,5x 3,0,7 3,0,2 3,6,2 HNH1B1DHDB~H2HN8HNH1(B1159)DHDBBH2HNH^****************x 22:-NO.OF VERTICES 12: -NO.OF FACES  4:- MAX.NO.VERTICES PER FACE0,0,0:VERTEX COORDINATES -3,-8,7 -3,-8,-1 -: TO MAIN PROGRAM + BNB2H2DBDH5& B1BN;0 T BNB2(279H2)DBDH^ B1BNd w HNH2B2DHDB H1HN H HNH2(159B2)DHDBR H1HN\  BNB1H1DBDH B2BN BNB1(H1279)DBDHB2BN$tLP,1)"1")ĪSKIP1:2150 \LP&f>:RESET COORDINATESTH10ĪH10:3100nH1279ĪH1279:3200B10ĪB10:3300B1159ĪB1159:3400H20ĪH20:3500H2279ĪH2279:3600B20ĪB20:3700B2159ĪB2159:3800B1159ĪPBPB1/ : SET UP CODE FOR PEEB20ĪPEPE1000Z H20ĪPEPE100p*H2279ĪPEPE104B2159ĪPEPE16PB$(PB):PE$(PE)8PB$(PB$,4):PE$(PE$,4)>: COMPARE CODES OF PTSHLP14R((PB$,LP,1)"1"(PE$,:ENDPTS WITHIN WINDOW?WDSW(H10H1279H20H2279B10B1159B20B2159)]N:IS LINE COMPLETELY OUTSIDE WINDOW? :SET UP CODE FOR PBPB90000:PE90000:SKIP0B10ĪPBPB1000H10ĪPBPB100H1279ĪPBPB102000SKIP11760(2200:18607SW11730A1700RH2,B2H1,B1cQQ(16384)tQQ1271780{IL24"DO YOU WANT TO DO THIS AGAIN?":A$(A$,1)"Y"525:10:18)"OK"&E1500:E0::W1164062000#@SKIP116503J2200:1860BTSW11640L^1610]hH1,B1H2,B2drJ}|H1P1K1P(F(I,1),1)B1P2K1P(F(I,1),2)H2HL:B2BLDHH1H2:DBB1B2DH0ĪDH.0001DB0ĪDB.00011860SW11730(P4)I1N1!H(I)017602J1V1(I)1KH1P1K1P(F(I,J),1)fH2P1K1P(F(I,J1),1)B1P2K1P(F(I,J),2)B2P2K1P(F(I,J1),2)HLH2:BLB2DHH1H2:DBB1B2DH0ĪDH.0001DB0ĪDB.0001"1860:SKIP0,Spi|?`__iOS'nyy}pG<||xG>p@~w?}?|`m@H?~ |s}? |`7 ^{rO|@`?_?~||cp/8xn)N.He!fq-xAu[}W_g B_| @Fg`>|}0F~?>p`xsw>?|pw{eqh :@ (x! 0 n#1CCxAA zr~>?@|^| x h*w7:ow?^_{<~_X}}n~_fLs?|@`|t^xd8@?n p?x``@|`~@Xq7~@~?qo|@|Ca_A ?pG`-p:po0|h__`CC>^|}~37fN~8xqrpp?#,~?|3|`Ap~8|s|}x?|~ox@`_>@~8|cb `@@;p@~ x @~pc`xcw>>~<n/5Fch0<~(Xa v ~a B{8@g Xz?x~|=~ pxPpgx?/g \|? n`p^_I@qyOs=rc>OgGc<q8< p`~@}9|q?2`?~?w{tB P *@>``x`g_y{?~|\[y;rf]{{w{d q~@|``C|~?|?p~O<`_99~N7l`@`<|8|Gr`N@@8~u?@~o|ps`xcgG|>Ch00|pzp~ B94{?x0}~@ |~?q_xyjUoFt~|{pg8xo|x~``p<b=pch<x8<H`~`|;xp/?/}|{?g? @\T`           , @? ȄȄL` ΍`}N`Q??P8`@Pa{V s~kvx{w{CFax>x?~`|??x?~9byGx |_{{^ 0}~~w`_~@}_CCxa~8x?p{_ (zpwsdH(yX8R`!@ B@%0 z}xx~? 8< |xxppqo|cOG?y?|x@~T @~ xp``||?~@pqb9xa<G|EC<_8n^<~@xp@p;0@~?o/p= ?xo=`O@`Apy$xgwo|V[ n#psox~@p?pcCG|?' }~~~`~w}w{_}` ~_wos'f_|}93x{ }0r`?ypgHy a<!C@@!0 BA{~` |?`>>~O8fs>o#=?y>`{q#+p t9@!B@=D@ p | |<|>1| hW?@xq|?`4!|j_ y|oxwq{ p~O@`pp0||`pc|0`_}_;{{M~`p@w~?|?=@@cwcL|A}||xc!@|@`p^<<8wCp?~?~gp08 0"!`8B? pga8g@`@=>|~~~xAOpsw>>xa?H0 xpCx@!:F0cB<$!&|A?/}<|w?|S/}uo6^