–€€@L|}ˬð6­…C­…D­¬® l0¬±C)HÈCð±C¨ WhL/©ÀÐh ¨`¥Cm…C¥Di…D` Œ ©R @©W €Œ©1 Œ©ÿ© €Êð©  Œ YäÎÿ0¢@©RÍð ©!Í𢀎L¢®­`ª ¾ Ë ¦ …D­ Ö­ …C­ …D­  ¢Ž  ° ©)1ð6 ©‘C莩S Sä ­ê) Ј˜® ¥C)¥D1 pˆð pʲ¬ ¢©ˆ˜˜0 ¥C9¥DI pèàÐâ¥Cç¥DèL~¥Ci€…C¥Di…D` ª ¾ Ë ¦ …D­ Ö­ …C­ …D­  ¢Ž  ° ©)1ð6 ©‘C莩S Sä ­ê) Ј˜® ¥C)¥D1 pˆð pʲ¬ ¢©ˆ}˜˜0 ¥C9¥DI pèàÐâ¥Cç¥DèL~¥Ci€…C¥Di…D` ©™ˆÐú ¹ð ÉDðÈÈÈÀÐð©D™©Ë™©™` d ž½J‚)ðL­ !½‚}ÉðÉðDÉ ð É ðL¿(°(° ¬ ® LðL»(°ú¬¹)ð ¬ ¿ Ž½‹L| L·(° S ¬LH ­0p n­­ ¿¬¢ © ™È}Êù® ¬™½‹™©C™©™™¢½YÉ?ð™Èèà ð® q • â©€… ›ÐL L𠽩…­ ©‡` • ¬¹)„¹}‹¹Œ `½A…! d¬¹Éß°©…"½‚)ð-¼‡˜Ý† ”°"   °±$þ‡­‘G©@……LðL¿Lô½…&0©¥")ð ® °¥$…G¥% }…H­0 3°S8`­ø‡¨±G ȱG ȱG  ”¬ø­ ‘GÈ­ ‘GÈ­ ‘G¥G}†…G¥Hi…H8¥(ý†…(¥)éê…) ® ¡¥G…$¥H…%¼ˆˆ Ð`­þÉÐ¥(0ó }¥)Ðï8` d½‚)ðL¹ ½‡݆ & ðLô¨±GȘ‡¼‹Ð¼ŒР݆©LÓLð d ž !° ¬ LðL» d½‚)ðN>…Q « € ½H½H½‚) }ð ® û½‹½ŽŒ ³¬hy™hy™©B™ q •©‚Lê>…ó øLm ½JJ ›  › Ln© *ˆÐù` d½BÉþð%É' }°8é  ¨¹Å H¹Æ H` Ø 1 Ò { ‚ ¹ L¿L žŒ  !L» ¬ ›Ð ¬  ´ ›Ð¬¹H¹¨h S¢¬½YÉ?ð™Èèà ð® q ž 1¸L }ê ž !°? S ›Ð  q 1í •Lê ¿¬ ¬ ©€™ ® Ll ° ÅLg  ©ÿ‘E`L»© Щ ž !L»¬¹)ß ™ q 1êLê¬}¹) Ð`LÁ½…0A½M݊нL݉ð½…ð ø©…½MŒ½L‹ ° ½N݆ðLÇLðL¹½‡N½‰L½ŠMLð¥H¥G©!©@}®þ©1¬F †ÀР±GÉÿÐȱGÉÿðLµLÓ©¨‘EÈû ©‘EȩÑEÈÈ‘E©ˆ‘EÈÈ‘E  ©ÿ‘EÈÀdÐù©  ‘E 7©‘EÈ©‘E •©¨™Èú© qÎø} Lê© !,°0,0S¬±GîɛРÀ°©€Lð© 1° !Lð ‹ ±EHˆ±E¨h W ¢ ½‘GÈÊ÷ g©LêLôSROTCES EERF  ©} ‘G®½) ð©*‘GÈ© ‘GȽ‘GèÈÀ õ© ‘GÈŒ®¼½¢d q¢ q˜  ©›‘G Œ`Ž¢ÿ Œ è8­ í¨­ é°êŠ 0¬‘Gî­ ¬ `½D}…C½E…D ±Cˆ0XÉ:Ð÷È¢ © YÊú¢Ž ȱCÉ*Ð ©? ùð0.É.Ð , 0%¢n ÞÉ?ðÉAÉ[ àðÉ0 É:° Lî`LÅà ðà `, 0`Y}è`©ÿ©pî­iî©ÍðH n©¨¹ð0)ÐÕ¢½YÉ?ðÙÐÇèÈà Ðî­­­­¹0¢8®`½…0 } … ø0$L ½‡¬û‘G½Œ¬ø‘GȽ‹‘G ø­©‚­LÓþÐþ ©‹Œ‡­ø†`8½Š¼‰L÷½‹‰½ŒŠ`½…ðL”½}‹ŒÐ8`  ù05¬ø±G)üÝÐ,±G)ŒȱG‹ȱGH½„Ðh0©})Hh†©‡` å½BÉ!ð Ç8`8©©­ii¨©iL« ±Eð`} ©‘E8¥F¥E h©(®þ l0`ɃðLåLÉ ‹L•½‰Šð8© ^Š~‰jˆÐö jˆÐü¨©8jˆüH½‰i ¨hE‘E ±Ei‘EȱEi‘E`  ÈÀd°T±Eð÷Œ} H8 ±Eé‘EȱEé‘EÈ©ÿ‘Eh ÿÈ üŒ Jˆü¬ ‘E8­ é  Œ  . ÈÀ÷m ‹­ iŒ`LË©Ÿ…IŽºè莮¤!Œˆ¹)…E¹1…F¹ðRþ¨¹ø}ø¹ûû¼ˆˆ1 ¹ðÈÀöLÍ­þJ°ÈÀ°ò¹Ð舩€™©€™˜ˆþˆ¹9…G¹I…H`Lϼˆðˆ©ˆ™­þJ°J™`H¥G¥Hh®þ l`¼‰}½Š S gLð©©©©  î ¢8 r­i€­i­ ÍÐÞ`Œ­þ¬øŒд­…C­…D ±C‘GÈÌøö˜‡ WÍ  }Ð¥CÍ Ð ”Lq`  ¹X٨ЈÐõ`DOS SYS æIæIæIæIæIæIæIæIæIæIæIæIæIæI¥I®C®š®¨­`­0é® Þ©Ðß©ˆ0Û}}ýÿ÷}›liz €€ÿþýüûúùø÷öõôóü||ü|ÊDDOS DOSDOS SYS €}}€}€}}CDOS SYS} 0 `©B©›D©ELVäŒü ©!B Û} `LV©U©Q… ©… ©š © ©] ©  à¥Ð©ÀT©U J©À ]L!­T©ž©Ÿ… ©… ©# © ©æ ©  à¥Ð© T©U “©À } ¦Lª­ð­žð ? . “ tä©`…ðöÿàá©€Ÿ©Gà©á¢©B©J Vä©Ð~¢©ôD©E©H©I ©B Vä0d©ÿÍôÐVÍõ!}ÐQ¢© D©E©H©I VäFÀˆÐ9 ª,ž0 ©,ŸŸ0 s0hhL¸­Ð ©¢ ¾L©ª` ª©Ð÷˜H ªh¨Ð DH­¡E¨hÈШÈЭ"}¢ ­£¡©¢D©E©L­¢8í H­£í¡I­¡ ú°­£ ú° ­ 0©€ ŸŸþHÐþI,Ÿ0­ 0Î  9© .¢©Gâ©ã VäLO#},ž0 L÷ÉÉ4*IJ`lâlàD1:AUTORUN.SYS›NEED MEM.SAV TO LOAD THIS FILE.›D1:MEM.SAV› ª©J y08© B©|D©E©ŠH©I$} Vä0 ª0 `©B©;D©ELV䌚 ª©!B y `@¢ŽžŽŸʆ v s©…ð? F0Ξ05©:¢ ¾©[¢ ¾©B©D©E©H©I%} Vä­ÉYÐ8©…¢ © B Vä¥ œ¥ ©@… ©… ©/¢D©E ŒžˆŒ ¤`E:›D1:DUP.SYS›ERROR-SAVING USER MEMORY ON DISK›TYPE Y TO &}STILL RUN DOS› ´©B©;D©E© J Vä ´(`©ð 9¢ Vä©ðî ­âä­ãå©âªà© ï©ðî¾­àä­áå©àªà© ï ª­ž-'}”ðî”LLu áèŽâ㢩àD©E©H©ILVä 9© .lú¿ 9© .l­œ… ­… `­žÐ` s©…ð$©B Vä©B©ŠH©(}I©|D©E Vä© BLVä n䢩B©,D©E© J V䢎Ž ©* \ä­*Ðû`© ¢B Vä¢ © BLVäDŽE©€H¢ŽI© B­ÐLVäL)}ª1ÿÿàáu ˜Hæ2Ðæ3¥2Å4¥3å5¥;Ð ¥1 ÒÆ;Ð ¥ …Òh¨h@ ±2 Òe1i…1L˜H­Ò Ò0 Œ„0) РŽ„0¥8ð­ ÒÅ1ð „0©ÿ…9h¨h@­ Ò ‘2e*}1i…1æ2Ðæ3¥2Å4¥3å5Þ¥<ð©…<ðÐÆ8ÐÐÃœÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ}ÿÿ 3E:›}DISK OPERATING SYSTEM II VERSION 2.0S›COPYRIGHT 1980 ATARI››A. DISK DIRECTORY I. FORMAT DISK›B. RUN CARTRIDGE J. D,}UPLICATE DISK›C. COPY FILE K. BINARY SAVE›D. DELETE FILE(S) L. BINARY LOAD›E. RENAME FILE M. RUN AT ADDRESS›F. LOCK F-}ILE N. CREATE MEM.SAV›G. UNLOCK FILE O. DUPLICATE FILE›H. WRITE DOS FILES›9!î&x#É!7&p)˜)Ù'€&X*./)L'š'-¢ÿ؆莟.}©…R©'…S¥ €…Ò v©ô©W…© …©D©E©HH©I £1¢ÿšèŽA#©¢! ¾©@¾ ~0É›ðÏ8éA0.Íô) ¨±È…±… ±ªˆ± µ1 »1¥i…/}¥i…l© ¢! µ1L¶ NO SUCH ITEM›SELECT ITEM OR ÒÅÔÕÒÎ FOR MENU›§! Ï0 Ä.®©›{½zÉ:Щ*{}©.|©›~èè莎¢ Ý1 è0 Ä0©0}¢J©BŽþàÐ î1­8íÉðL^%®½|ÉDÐóLl%DIRECTORY--SEARCH SPEC,LIST FILE?› # Ï0 Ä0 n&­|ÉDð©å¢! µ1L¶ NOT A DISK FILE1}›¢­žÉNÐ ©!B î1L¶ ©÷¢" µ1©¢ ©!B©ñD©E©Dñ©:ó­}É:Щ1ò¢©B©J©|D©E î1©ôD©E©B©¢©H©2}I î1­õÉ Ðhî­Í0ߢ ¹ôÉ ð ôèÈà0ð©.ôè  ¹ôôÈèÀ 0ôŽ©?ôè©›ô©ñ¢ µ1 ~0ÉYЛ­®©›ô¢ î1 í"L<" í"L¶ ¢3}© BLî1TYPE "Y" TO DELETE...›DELETE FILE SPEC›COPY--FROM, TO?›OPTION NOT ALLOWED› COPYING---DN:4}# Ï0­­|ÉDТ ×.ðLá$©€A#©B#©C#¢©J©B©|D©E î1©B©H©I©DD©#E î1­D#É0É:° © B5} î1L¶ ­B#ÍC#ðîC#ÐÁîB#© B î1 ¹N#Ù$Јõ0‰SYS 1­}É:ð¨Œe#¢ ½D#É ð™d#Èèà Ðð½D#É ð©.™d#ȽD#É ð™d#Èèà Ðð©›™d#©X¢# µ1,A#6}P¢©dD©#ELO- A.¢©B©J©dD©#EŽþ î1¢ Ý1­H­H è0hh®½|ÉDðL^% 1½}É:ð¨Ìe#Ð ªLt%¢ Œe#©dD©#EL”%¢7} Ý1 è0® í.® ×.Ð0©¢% µ1L¶ WILD CARDS NOT ALLOWED IN DESTINATION› Ä0 A.­|ÉKð@ÉCð<ÉEТŽþL^%ÉSð,¢©B©JŽþàÐ î1®8}½|ÉKð ÉEЩÿL«%©.¢# µ1 ªL¶ ÉCðﮞàAÐÉDÐä© Ð©¢ J©BŽÿ î1©K©®þ¬ÿB© ™B¥D™D¥E™E®þ­H­I V9}äŒø®ÿ¬þ¹HH¹IIHð î1­øÌɈðLö1®þð© B Vä®ÿð© B Vä®ÿЩé¢& ¾,A#Lž#L¶ R& Ï0 Ú0 Ä0 n&© ¢B î1L¶ RENAME :}- GIVE OLD NAME, NEW› ­}É:ð)¨ŒöLó(¹& <0 ¾2i0è&ë& Ä0©Ð¢& µ1 ~0ÉYЩê¢D©&E©þB î1L¶ WHICH DRIVE TO FORMAT?›TYPE ";}Y" TO FORMAT DISK 2›D2:›K'¬ý¿©ªý¿Íý¿Ð©Uý¿Íý¿Ð Œý¿©?¢' µ1L¶ ­ü¿Ðñª­ý¿ðëÍý¿ÐæèÐó v©¢ä _ \ä©¢ä b \äLNO CARTRIDGE›h' <0 $<}2 Ä0…†­ÉðP vL RUN FROM WHAT ADDRESS?›TYPE "Y" TO CREATE MEM.SAV›' ~0ÉYÐ s0 ©½¢' µ1 ªL¶ FõLõ1MEM.SAV FILE ALREAD=}Y EXISTS›u( <0 ¾2 Ä0ö 0Ë(Ç( ó(©¨¢( µ1 ~0ÉYÐr©’¢( µ1©¢B©ÊD©(E©J î1¢© B î1¢ ½.{ÊÐ÷­Ë(}Ž¢ Ý1© à©á>}©â©ùø/©ý/©3ãH©uà© áξL /L¶ DRIVE TO WRITE DOS FILES TO?›WRITING NEW DOS FILES›TYPE "Y" TO WRITE DOS TO DRIVE 2.›?}D2:DOS.SYS›ERROR - NOT VERSION 2 FORMAT.›©­ö ä,°©€ &*­ôÉð ©Õ¢( µ1L¶ `[) Ï0©®žžàNÐΞ Ä0 ©àðàð˜Lö1©M¢) µ1@} ªL¶ BAD LOAD FILE›LOAD FROM WHAT FILE?›…) Ï0 Ä0©#¢B î1L¶ WHAT FILE TO LOCK?›­) Ï0 Ä0©$¢B î1L¶ WHAT FILE TO UNLOCK?›DUA}P DISK-SOURCE,DEST DRIVES?›TYPE "Y" IF OK TO USE PROGRAM AREA›CAUTION: A "Y" INVALIDATES MEM.SAV.›© ©h ©©ô ,©B}­þþ©© © `Â)©  <0 ¾2ö ¾2ÿ Ä0©€© ­ö ä, ¢ŽèŽ ­ÿ ä,,©Þ¢* µ1L¶ ,ñ­öÍÿðK¢*©¿ µ1 ~0Î 0C}FINSERT BOTH DISKS, TYPE RETURN›ERROR - DRIVES INCOMPATIBLE.›©¢, µ1 ~0©©3­å8í­æí ­Í­í° ©¢, µ1L¶ D}¾,©ž &*­ ù­ ú­û­ü­þýLz+©ž, 0 ©¢, µ1 ~0 Ò+ Y,0!,ž0 ,L+ ˜,­m­m  v,ð"­Í­í°Ç­žE}0«Îž, 0·©5¢,Lt+­žìL¶  ¹ü+…¹,…¢¡H¹ùh™ùˆå­­` þNOT ENOUGH ROOM›INSERT SOURCE DISK,TYPE RETURN›F}INSERT DESTINATION DISK,TYPE RETURN›þÎÐþþ©­þ`­ ÉÐЭ Éðî Ðî `­öL ,­ÿ8©÷¢,0è( rG}Î÷ìLõ1(`¥ð©ß¢) µ1©¢* µ1 ~0ÉYЩ…ž`hhL¶ ©S©÷ SäÎ÷öLõ1­ê) ð8`NAME OF FILE TO MOVE?›- Ï0 Ä0­|ÉDðLtH}% A.¢,© µ1 <0 Ä0 ×.Щ@L–#¢ í.¢©B©J î1©  ¢¥D¥E­H­I©B Vä ÀˆðLõ1Î ¢,©5 µ1 <0,õL.¢   ­ ÐI} î ˜J©B©| ,A#P©d #D˜E î1 ¢ ©ÙHÐÙIð© B¥D¥E¹HH¹II î1© B î1­ Т,© µ1 <0,õ0Lf-¢© B VäJ},A#P¢,© µ1 <0 Ä0Lž#L¶ ¥ð©ß¢) µ1©¢* µ1 ~0ÉYÐj©…ž©…©3…­å8é­æé3©©}m©m­Í Ðå­Í°Ý­K}Щ}Í`­8é}­é`©ô…©…©ú©`½|èÉ*ð É?ð É›ðÉ,Ðìè`è½|É:ðèè ¹Í(Ý|ÐÈèÀÐò©¢/ µ1L¶ `DESTINATION CANT L}BE DOS.SYS›0© ¾ Ï0­žH®©›{ $2àŽáà2°Δ $2âŽã8íàø/ŠíáL¶ ý/À›ð) $2âŽã ãðΠÀ›ð $2 Ä0àŽá áðξM}©žhÉAÐΞ¢©B,ž0©Ð© J î1© B©ÞD©E©H©I,ž©H©àD©E î1¢©ùH©IþHÐþI­àD­áEL“SAVE-N}GIVE FILE,START,END(,INIT,RUN)›©›¢O¤Êú©õ X0 »1`©B©¤D©E©PH©I¢ VäÀ€ÐÎõ`©õ X0­H÷ »1­õ ªL¶ O}­÷É0 ©¯¢0 µ1Lƒ0­¤`PLEASE TYPE 1 LETTER›,õ0`hhL¶ <0¢ Ý1Lè0©¬®LA1¬®© ½¤É,ð;É›ð7½¥É,ð"É›ð©:ݦð1Ý¥ÐÎP}½¤ÉA"©D™|ÈÎÎݤðíΩD™|È©:™|È©ž½¤™|èÈÉ›ð,É,ð(É/ð+É.ЩÎÞ©•¢1 µ1Îõ½¤èÉ,ðÉ›ÐôŽŒ`½¤ž轤™{èQ}éNAME TOO LONG›© B¢ VäÀ€ÐL¶ ` ¾L»1©ªI© H©1E©ÓDL£1œ©|mD©iE` Vä˜0`˜8éd¢/è8é úi:"2Ž!2¢2© µ1R} ªL¶ ERROR- 138›©©®½¤îÉ›ð+É,ð' ¥20* ..ˆö ÎÓ©w¢2 µ1Îõ`¨­®`©‡¢2ÐëTOO MANY DIGITS›INVALIDS} HEXADECIMAL PARAMETER›8é00É 0 8éÉ 0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0ÉH½¤èÉ,ðÉ›ÐôŽh`Îõ©õ¢2Lµ1NEED D1 THRU D4›àáuT} HEXADECIMAL PARAMETER›8é00É 0 8éÉ 0É0©ÿÉ`,õ0'®½¤èÉDðø8é0ð0ÉH½¤èÉ,ðÉ›ÐôŽh`Îõ©õ¢2Lµ1NEED D1 THRU D4›àáuÈÉɸÆZERÏONÅTWÏTHREÅFOUÒFIVÅSIØN·ATÅNINÅTEÎN1µN1¶N2°N4°N8°N10°N12¸N14¸N15°N15±N15²DF¤RGB¨CÚÁPÍPL°PL±ÉKN4°KN5°KN6°KN7V}°PCOL°PCOL±P°ÐP¶SCØSCÙMAIÎMEXIÔDÒXÐØYÐÙX±Y±SÃTNE×PÒSÁÑÊËNPÃSCÏK4°NÙPÃPØPÙW} X}€@ !"#$%Y}&'()*+,-./012345Z}6789:;<=>?&&"DRAW"/D DISILVERIE (C) 83 ATARI› [}11"€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•CC0,1,2,3,4,5,6,7,8,9,10,15,16,20,40,80,100,128,148,150,151,152›–;@\},—9…,6˜-‘%‚$‘$F:AV,N6™-F:%†,&BBy™&6š-‚$‘$™06›-š%„$‘:6œ-š%…$‘B6™-™%ƒNA™#6–.D1:]}PLOTTS.OUT ( -…"™6—8,-™ -68,200,150,2,26›F"žŸ ¡¢£¤¥¦§¨K881040,1050,1060,1070,704,705,5324^}8,190,1536,3.4,3.8›P 6©-%Š AU A0Z% 6©--+%Š,$ % A d ‚$ ª “k «"€ ©n# 6¬-­_}6®-¯6°-­6±-¯#¦%€p ‚$©s#€ ,¬®/°±ª¦%# ©x² ,¬®/­¯6°-­6±-¯}³"€A‚ ¦`}%´" Ž$‡µ AEŒ ©– 6™-¯'ˆ6¶-P:™,™"¶ © //¶…$©†$©‡$©ˆ$©©©„$©ƒ$©ƒ$©ƒ$©‰$©´ ©a}È 6ª-€6³-?:¦%‰,ܳ"€*F:¦,*F:¦%, ‚$"96­-F:¦%‚,&Ž&…6¯-F:¦%ƒ,&Œ'­!%Ž-6ª-1³9¦%'$, ·-„›%b}&‡%·Š%‚ ·1& ¢—8…,€6¸-“ ¡ ¡%& ¡%‚@) 6²-¶&‡6¹-„&²²6¸-“% ¡%²&) © ·-„›%&‡%·‹ ·š#c}€ 6¸-“ ¡ ¡% ¡%‚#6¹-€¤ ²-ƒ¢—8²,®" ·-Ž6³-?:¦%„,"³AP¸ · ² A  6º-² º ©ô%d}‚ ž&Š  6«-!¦‚% ©X#‚ ž Ap´6´-# ©€ 6´-‚ˆ€P4:Š% ‚! ‚ C0*M0,-500*Ie}% ©ž ž6´-€ »‚ ©¼µ AÆ% 6µ- AV‚ Ÿ% A0ä„€–‰€–óf} £—8ƒ, ©ô Aeˆ€–ø £—8‚, ©ý » £—8, Ÿ © µ A% Ÿ‚g}   A0>! Au„€–!£—8‚,R6 Ae)¹)¬")®))­0)¯6„&¹S ¹"€ ºW ´" h}Ž$\ ,¬®/­¯ APa »    ©k! »£—8,  ! ©„‚ ¡%Šµ“ ´" ‚Hi}*C3‚¢ AU ©ü ,’/•‡,•/’‡$+ ,’‹/’‰/“‰/•‰%‚%/•‰%„+/“‹  /’‹ $* ,’%ƒ/’j}&ƒ/”&ƒ!/”'/’*$+ ,”%…/’%…/’%ˆ#/”%ˆ+/”‹%Œ /’‹%Œ$$",’@3/’Ž&/”Ž&"$.:,¸k}@f/¸@i),¸%@f7/¸%@i:$/* ,¸&†/¸&ƒ,¸%&†'/¸%&ƒ*$0* ,¸%‚/¸%…,¸%%‚'/l}¸%%…*$8B ,“%‰/’%‰/’%‹'/“@•3,”@?,”@”B$¸  -€‹œ%@W%€   £—8,6¼-m}%Ž… ¤%¥%„Š 2 -€‰·-€‡"6™-F:ˆ$%·%˜,.œ%¼&ƒ%·™2 ·  6¸-R:,‹6¸-” " ·-¸6³-?:¦%„,"³A2n}@ž  ·  A2¨ ¼"@hA2`² ,6¼-@h"6–7ˆ,.>:@:0,%,, A2¼ &6–7‰,.>:@:0,%,#6–7Š%„,.o} &$  A@€¹"½A@0´ ‚C¹¾06¾-P:§$¬,6¿-P:¨$+%‹&®,,0 ‚M¾,¿Ò6¾-P:§$­,6¿-P:¨$+%‹&¯,,p}Ü ¬"­*®"¯6¾-¾%‚æ ‚D¾,¿6½-¹$ð »  ž6´-6$”3 AE *¹*¬"*®)*­0*¯3q}$¨ »  Ÿ$| -€‡¤%€ ) ¦¦%B2w€)AY‚I +@#A—8„,+A—8r},:A —8‚,IA—8ƒ,†-››%ƒ$‘€ ‹9 ©"-‡!›%A€%Œ% 9›%A„A8 ¢—8…,s}£—8,¢%‚‹’ ·-„›%&‡%·‰%ƒ ·š"«´µ²¹½º#AU0Ÿ0,0,0,1,3,0,3›®,’&‡‚/’&‡&†³% t}ž&Š ž Ÿ  6¸-’ ¡% ¡%Š¸‚ ¡%ƒ ¡%‚º¦%‚A¦%ƒ%ˆ¾)AYŽ%‚B2wƒ)A#¿u} ¤¥%‚¤%‚¥&ƒ$€D:DRAWP©d #D˜E î1N1µN1¶N2°N4°N8°N10°N12¸N14¸N15°N15±N15²DF¤RGB¨CÚÁPÍPL°PL±ÉKN4°KN5°KN6°KN74ÐÑÙP^ZERÏONÅTWÏTHREÅFOUÒFIVÅSIØN·ATÅNINÅTEÎN1µN1¶N2°N4°N8°N9°N10°N12¸N14¸N15°N15±N15²DF¤RGB¨FILE¤HEAD¤CÚÁPÍPL°PL±ÉKN w}4°KN5°KN6°KN7°PCOL°PCOL±P°ÐP¶SCØSCÙMAIÎLINEÓK4°N±N²PÒSÁNPÃXÐYÐØÙSCÏËNÙÊPÃPØPÙDÒSà x}  y}€@€€ !"#$ z}%&'()*+,-./01234 {}56789:;<=>?@??DOODLERS DELIGHT/D |}ANCINE DISILVERIE "SHOW" (C)1983 ATARI› 33"€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–FF0,1,2,3,4,5,6,7,8,9,10,15,16, }}20,40,80,90,100,128,148,150,151,152›++—;@,˜9…,™;@,š;@ ,6›-’%‚$’$F:AV,N6œ-F:‘%†,&BB ~}yœ&6-‚$’$œ06ž-%„$’:6Ÿ-%…$’B6œ-œ%ƒNAœ#/6—.D1:PLOTTS.OUT /6™. SCREEN $6š. MARCH }1983 (  -…"œ6˜8 ,-œ  -68,200,150,2,26›F"¡¢£¤¥¦§¨©ª«K881040,1050,1060,1070,704,705,53248,19 €}0,1536,3.4,3.8›P! AU6¬-%…6­-! †$‘U 6¬-%† A0V.  ‚H*C1 ‚$ ‚š. ‚Z' ®6¬ }-% -+%Š,$‘!  ' ‰$‘[9 ¯-€‰6—7ˆ,.>:@:0,%¯,&°-€‰96—7‰,.>:@:0,%°,\06—7Š%„,. 6¬-%ƒ &ƒ€* A0 ‚}0 †$‘] 6¬-%„6­-€ A0^3 ­" %† ‚H*C1% ‚3 ‚™—7ˆ<‰,_ ­" ‚` ®6¬-%‡ ‰$ ƒ}‘a  ° ¯b  -€‡§% €  X‚ ¡ Ap± ¬€ 6±-‚ˆ€P4:Š' ‚­"' ‚ C0*M0,- „}500*I” ¬ž ¡6±-6 ® ¬¼² AÆ% 6²- AV‚ ¢% A0ä„€—‰€ …}—ó ¦˜8ƒ, ¬ô Aeˆ€—ø ¦˜8‚, ¬ý ® ¦˜8, ¢ ¬ ² A% ¢ †}‚ £ A0>! Au„€—!¦˜8‚,R6 Ae)³)´")µ))¶0)·6„&³S ³"€ ¸W ±" ‡} A@Y6­-@\ ,´µ/¶· APa ®  £ ¬k! ®¦˜8, £! ¬„‚ ¤%Š² ˆ}“ ±*­ A  ‚H*C3˜ ® ± A 0‚¢ ® 6±-€­" AU§ A€¬ ¬ü ,“ ‰}/–‡,–/“‡$+ ,“‹/“‰/”‰/–‰%‚%/–‰%„+/”‹  /“‹ $* ,“%ƒ/“&ƒ/•&ƒ!/•'/“*$+ ,• Š}%…/“%…/“%ˆ#/•%ˆ+/•‹%Œ /“‹%Œ$$",“@3/“Ž&/•Ž&"$.:,¹@f/¹@i),¹%@f ‹}7/¹%@i:$/* ,¹&†/¹&ƒ,¹%&†'/¹%&ƒ*$0* ,¹%‚/¹%…,¹%%‚'/¹%%…*$8B ,”%‰/“%‰/“ Œ}%‹'/”@•3,•@?,•@”B$¸   -€‹Ÿ%@W% €    ¦˜8‚,6º-%Ž…  §%¨%„6 -¯Š * »-€‡6 }œ-F:ˆ$ %»%›,&Ÿ%º&ƒ%»œ* »¨ º"@h$² 6º-@h6 -° A2  A@€³"¼A@0´ ‚C³¾06½ Ž}-P:ª$´,6¾-P:«$+%‹&µ,,0 ‚M½,¾Ò6½-P:ª$¶,6¾-P:«$+%‹&·,,Ü ´"¶*µ"·6½-½%‚æ ‚D½,¾6¼-³$ð } ®  ¡6±-6$”3 AE *³*´"*µ)*¶0*·3$¨ ®  ¢$|  -€‡§% €  ) © }©%B2w€)AY‚I +@#A˜8„,+A˜8,:A ˜8‚,IA˜8ƒ,† -žž%ƒ$’ € ‘}   ¥˜8…,¦˜8,¥%‚‹’ »-„ž%&‡%»‰%ƒ »š"¿±²À³¼¸#AU0Ÿ0,0,0,1,3,0,3›®,“&‡‚ ’}/“&‡‘&†³% ¡&Š ¡ ¢ £6¹-“ ¤% ¤%Š¸‚ ¤%ƒ ¤%‚º©%‚A©%ƒ%ˆ¾)AYŽ%‚B2wƒ “})A#¿ §¨%‚§%‚¨&ƒ$€D:SHOW€ ‹9 ©"N9°N10°N12¸N14¸N15°N15±N15²DF¤RGB¨FILE¤HEAD¤CÚÁPÍPL°PL±ÉKN CPWXˆzŠD¨ÉÓÃËÊ@ ##@@P:(@•}€9@<@,(-@26‚-$@’e'@P<''6€8<,-G:‚,$A%A@F''6€8<@–},-E:‚,$A&A@P dH6ƒ-@H(@M€8<,,€8<@,n-@@—}x)6ƒ-ƒ%@ƒ!@)6ƒ-‚ (@Cƒ 6„-Œ…-@@–% 6„-„%„!@%6„-„˜}&@ 00(@D€8„<,,€8„<@,ª  … €D:SAMPLE@À@AHcÀqt’“A!’c™ÁV‘i–A7–B”™}ÁhF)9A‘Áp— 9A–4?@ ##@@P:(@':;3”¤ÁÂÃÄØÙËÊÉAÁBÂCÃDÄZÚEÅFÆGÇÑÒÓÔ×ÍÎÐÖÌÈADÙÕA¤›} œ}€ NO TWO DRAWINGS ARE ALIKE!›ž;@,{6’-@6–-A}'6—-A36˜-AP?6‘-K6•-@W6”-@c6“-@$o6š-@u6›-‘{6-• M•š‘P:(•ž}&(•C‘8(•M‘,6—>"•C•I6-‘M ’6€-P:H:‘,$’,6-P:H:‘,$’,6‚-P:H:‘,$’,6ƒ-P:H:‘,$’,6„-P:HŸ}:‘,$–,6…-P:H:‘,$—,6‡-P:H:‘,$–,6†-P:H:‘,$—,(! ˆ-•š6›-›%•›"”$”!6›-‘- ™-•’$”™"’$” (•C›2%(• }M„,…%(•D‡,†7# 6„-„%€6…-…%6‡-‡%‚#6†-†%ƒ< „–6€-6€6„-„%€A ‡–6‚-6‚6‡-‡%‚F ‡‘6‚-¡}6‚6‡-‡%‚K „‘6€-6€6„-„%€P …—6-66…-…%U †—6ƒ-6ƒ6†-†%ƒZ †‘6ƒ-6ƒ6†-†%ƒ_ …‘6-66¢}…-…%d" ™ ˆ(•M‘,6–"•nD (} (((+(DO YOU WANT ANOTHER?.(D(NO TWO ARE ALIKE!x+(( ENTER (£}Y/N)ž+ž0YA‚ (} ’È€D:RANDOM"¡¢£¤¥¦§¨M01¡ ²LOOÐØX±Y±ÔX²Y²A1¨A2¨A3¨ÙSIÚOÆNUÍ@@@ ¥} |6-@$/@@P:X‡9@<,ˆ9@<,‰9@<,d6‹¦}-Ap6Œ-@P|6-@$(@.6„-.-6@@@'(_6Š--6‡8<§}„,-P:$‹%?P,M6‡8@<„,-P:Š$‹%?P%Œ,[6„-„%@_ 2.6„-.-@6@'<p 6Š-6M:¨}@,$%M:@,>6ˆ8<„,-P:$‹%?P,^6ˆ8@<„,-P:Š$‹%?P%Œ,l6„-„%@p F/6„-/-©}6@6@'Po6Š-M:@,$%M:@,=6‰8<„,-P:$‹%?P,]6‰8@<„,-P:Š$‹%?P%Œ,k6„-„%@ª}o Z!(@C1!„-dc_(@M‰8@<,,‰8<,*D‡8@<„,,‡«}8<„,c „n!(@C2!„-xc_(@M‡8@<,,‡8<,*Dˆ8@<„¬},,ˆ8<„,c „‚!(@C3!„-Œc_(@Mˆ8@<,,ˆ8<,*D‰8@­}<„,,‰8<„,c „–(@M0,-600&€ D:TRIANGLE¨©ª«K8810@@@ [01¡ARLOOÐØX±Y±ÔX²Y²A1¨A2¨A3¨ÙSIÚOÆNUÍ@@@ ¯} |6-@$/@@P:X‡9@<,ˆ9@<,‰9@<,d6‹°}-Ap6Œ-@P|6-@$(@.6„-.-6@@@'(_6Š--6‡8<±}„,-P:$‹%?P,M6‡8@<„,-P:Š$‹%?P%Œ,[6„-„%@_ 2.6„-.-@6@'<p 6Š-6M:²}@,$%M:@,>6ˆ8<„,-P:$‹%?P,^6ˆ8@<„,-P:Š$‹%?P%Œ,l6„-„%@p F/6„-/-³}6@6@'Po6Š-M:@,$%M:@,=6‰8<„,-P:$‹%?P,]6‰8@<„,-P:Š$‹%?P%Œ,k6„-„%@´}o UGOTO 200›Z!(@C1!„-dWS(@M‰8@<„,,‰8<„,*D‡8@<„,,µ}‡8<„,W „n!(@C2!„-xWS(@M‡8@<„,,‡8<„,*Dˆ8@<„,,ˆ8¶}<„,W „‚!(@C3!„-ŒWS(@Mˆ8@<„,,ˆ8<„,*D‰8@<„,,‰8·}<„,W „–(@M0,-600&È„-@Ò™™(@M‡8@<„,,‡8<„,*Dˆ8@<„,¸},ˆ8<„,*D‰8@<„,,‰8<„,*D‡8@<„,,‡8<„,Ü „€ D:TRIANG2Z' ®6¬¹}-,ˆ8<„,*D‰8@<„,,‰8<„,*D‡8@<„,,‡8<„,Ü „€ D:TRIANG2Z' ®6¬PVW‡ÍÜÙØÃÁÂÏ ##@@P:(@ »}'6…-AP6ƒ-@'6„-@‚-@(@C‚ €-A6@((@ ¼}M…,€$„2''(@D+A&€,$ƒ%…,06 €7„"6@6ƒ-6@8 6„-6„F ‚d(@M0 ½},-400Þ@€D:COLORINARY LOAD›E. RENAME FILE M. RUN AT ADDRESS›F. LOCK FILE ICS CALL›(6( sÿÿÿ¾ Êh`®½çî Ê­x®Žë¬ŒêJJ7JdJ°h­iL—8­éÉD¨©î‘̈ˆˆ©‘ÌÈÈÈÈ‘ÌÈÈÈ©‘ÌL†­iÉp°¨©î‘ÌÈÈÈ©$¿}‘̈ˆˆˆ‘̈ˆˆ©‘Ì­x®JJL*8­éªìî°®îà̢̎ŽЭЭÍëЭÍêÐ¥ÔÐLh`©…Ô…Õ­„íÐ Íìð¢†Ô†Mì`-º-¾$À}h`®½çî Ê­x®Žë¬ŒêJJ7JdJ°h­iL—8­éÉD¨©î‘̈ˆˆ©‘ÌÈÈÈÈ‘ÌÈÈÈ©‘ÌL†­iÉp°¨©î‘ÌÈÈÈ©$ wôÏÁÂØÔÓÒÙÍLOOÐÚ @6†-(Â}A@. SET RADIUS AND SELECT DEGREES›>#@@P:>. OPEN THE PRINTER›0((Ã}@0. ISSUE SET GRAPHICS CALL›(6(@C16. SELECT SECOND PEN›n2„-A`@(Ä}2. DRAW 180 LINES›x<6ƒ-†$E:„,%AP<. THIS IS THE CIRCLE FORMULA›‚6‡-†$G:„,&AŒ6(@Mƒ,(Å}‡6. MOVE TO THIS POINT›–?6ƒ-†$E:@$„,%AP?. THIS IS A 2 TO 1 FIGURE› 6‡-†$G:@$„,&Aª(Æ}6(@Dƒ,‡6. DRAW TO THIS POINT›¾ „ 7(@M0,-9007. FEED OUT SOME PAPER›Þ@(Ç}€D:GRAPH„n€RAPHM0,-200P:(È}(É}%…6­-! †$‘ @6†-()  TŽD¨ÉÓÃËÊP¨ØÚ@AiAd@ †9A`<@,,Ë}‡-A`@**6†8‡<@,-P:A$G:‡$@,,(**6†8‡<@,-P:@0$G:‡$@,,2**6†8‡<,Ì}@,-P:A$G:‡$@P,,< ‡F##@@P:P$$(@>:@',>:@,Zˆ-@,Í}@d::(@Cˆ*M,†8@<ˆ,&@Pn‡-A`@x77(@D‡$@0%,Î},†8‡<ˆ,&@P‚  ‡ ˆŒ$$(@C0*M00,-50*X1,13,36–##(@M234,-150*X0,20,10 (@,Ï}M0,-800ª@´€D:SINESAiAd@ †9A`<@,,+TO DOC›TS CT›PR [THE following procedures will link]›PR [your LOGO turtles and the Atari 1020]›PR [Printer - Plotter.]›PR []›0Ñ}PR [While executing a LOGO graphics]›PR [procedure with the command]›PR []›PR []›PR [DRAW [procedure]]›PR []›PR []›PR [your 10Ò}020 will plot whatever is]›PR [drawn on the screen.]›PR []›PR [Press RETURN for MORE]›MAKE "A RC›CT›PR [For a little fun, pre0Ó}ss BREAK and]›PR [type the following commands right]›PR [now!]›PR []›PR []›PR [DRAW [SQUIRAL 117\]]]›PR []›PR [DRAW [FRACTAL 0Ô}SN 300 9\]]]›PR []›PR []›PR [Press BREAK to try demonstration]›PR [or]›PR [Press RETURN for more documentation]›MAKE "A RC›CT0Õ}›PR [Procedures intended to be drawn on]›PR [your Atari 1020 Printer - Plotter]›PR [must be modified to substitute the]›PR [F0Ö} and B procedures for the usual FD]›PR [and BK primitives.]›PR []›PR [Two procedures ( P.PROC & P.PROCS]›PR [are included to 0×}print out your]›PR [procedures on the plotter.]›PR [] PR []›PR [Press RETURN for MORE.]›MAKE "A RC›CT›PR [These procedures ar0Ø}e by DAVID]›PR [THORNBURG and were published in the]›PR [March, 1984, issue of COMPUTE!]›PR []›PR [If you'd like to find some0Ù} graphics]›PR [fuel for your plotter, check out]›PR [THORNBURG's]›PR []›PR [Computer Art and Animation: A User's]›PR [Guide t0Ú}o Atari Logo]›PR [] PR [Available from:]›PR [MICRO BOOKS - - Addison - Wesley]›PR [] PR []›PR [Have FUN!]›END››TO P.PROC :PRO0Û}CEDURE_NAME›SETWRITE "P:›( TYPE CHAR 27 CHAR 27 CHAR 14 )›PO :PROCEDURE_NAME›SETWRITE []›END››TO P.PROCS›SETWRITE "P:›( TYPE 0Ü}CHAR 27 CHAR 27 CHAR 14 )›POPS›SETWRITE []›END››TO SQUIRAL :ANGLE›MAKE "SIDE 0›REPEAT 180 [F :SIDE RT :ANGLE MAKE "SIDE :SIDE0Ý} + 1]›END››TO PENRED›( TYPE CHAR 67 CHAR 51 )›END››TO PENGREEN›( TYPE CHAR 67 CHAR 50 )›END››TO PENBLUE›( TYPE CHAR 67 CHAR 40Þ}9 )›END››TO PENBLACK›( TYPE CHAR 67 CHAR 48 )›END››TO C›CS›PR "M0,0›END››TO B :X›BK :X›PLOT›END››TO DRAW :LIST›SETWRITE "P:›(0ß} TYPE CHAR 27 CHAR 27 CHAR 7 )›( PR "M240,0\*I\*M INT 2 * YCOR ", INT ( - 2 ) * XCOR )›RUN :LIST›SETWRITE []›END››TO PLOT›( P0à}R IF PEN = "PD ["D] ["M] INT 2 * YCOR ", INT ( - 2 ) * XCOR )›END››TO FRACTAL›PU SETPOS [-150 0] PLOT SETH 90 PD›HT›END››TO F0á} :X›FD :X›PLOT›END››TO SN :S :L›IF :S < :L [F :S STOP]›SN :S / 3 :L›LT 60›SN :S / 3 :L›RT 120›SN :S / 3 :L›RT 120›SN :S / 3 :0â}L›LT 120›SN :S / 3 :L›LT 120›SN :S / 3 :L›RT 60›SN :S / 3 :L›END›››MAKE "A "\››››DL 4: i 1020]›PR [Printer - Plotter.]›PR []›0WCD<äúÙYÕYÌREÓÂK°ØXÌXÒÚÈHÌXØXINÃYÙISÏYINÃZINÃDBÇK±ÔÓFLAÇÄÆQ¤FC¤ÑZ¤DÍDUMP¤¿ @?P@4ä}@ @ ¿9#P` ?™I$5b ¿™W5C A“@ @#3333Af%5?R5˜wP@#3333@!`s@!P‡Ve@A4å}@©(Ñ(@–¨©BDùK:hB@ Ahh‘’’’’’’—’’’’’4æ}—’’’’—’’… üáîáìïçüíáù¸µüðç´¶üøóü š’’’’’’˜’’’’’˜’’’’˜’’ƒ› €-‚6ƒ$+&‚,6„-… †-‡ˆƒ$4ç}+ˆ&‡, 6‰-G:†, ‰!Š)‰ ‹6„-… @4 6Œ-†$ 6Ž-Œ$ 6Œ-Œ&€$6Ž-Ž%€$$ 6Ž-Ž%‰$‘6Ž-A‘&4è}Ž&’/6Œ-Œ%AY„/ŒŽ% A / @4 ASETUP FOR PLOT›  ,ŒŽ A 6„-“! ASETU4é}P FOR DRAW›"  † €$†-‡ˆƒ$+ˆ&‡,6„-…&€-‚6ƒ$+&‚,( 6‰-G:†,* ‰!Š)‰ ‹6„-… @`, 6Œ-†$. 6Ž4ê}-Œ$0 6Œ-Œ&€$26Ž-Ž%€$$4 6Ž-Ž%‰$‘66Ž-A‘&Ž&’8/6Œ-Œ%AY„/ŒŽ% A / @`9 A4ë}SET UP FOR PLOT›: ,ŒŽ A 6„-“; ASTUP FOR DRAW›< € † Ad 6Š-…6‹-… €-‚6ƒ$+&‚,4ì}f†-‡ˆƒ$+ˆ&‡,h 6‰-G:†,i ‰!Š6Š-‰j ‰ ‹6‹-‰k  † €l ‹!…6‹-…m Š …6Š-…n$ÈM2…A@4í}@-”-…A1 ”;2…………MAdAUÊ26•-F:B2y,•"@( A02 AÌ•"@4î} Î#•"@ A# AÐ(F:Ad,"@((}( AÒ AX+6–-@6—-…6˜-…4ï}!6™.š+ A Yo,AYA‘'/@ A9/AY@DK/AA]/AYA‘o/AYAG4ð}Zi,@ A'/@ @s9,AY@DE/AY“W,AAi/A@s\E/AYAG4ñ}'/@ @s3/AY“E/A@s^u 6—-“6˜-@#6™.‘’’’’’…- A 96˜-@G6™.üÁÔÁÒÉüQ 4ò}A ]6˜-@k6™.š’’’’’ƒu A `X 6—-…6˜-@6™.=:,( A 16™.=:ˆ,B6—-@9&B:™,N6˜-@X A4ó} bw6—-@6˜-@#$6™.=:‚,. A :6—-@#C6™.=:‡,M A Y6—-@&_6˜-“m6™.HIGH Z=w A 4ô}c86—-@36™.=:Š,'B:™,!@86™.™7“<@,dr A 6—-@&%6˜-@36™.LOW Z== A I6—-@34õ}R6™.=:‹,aB:™,!@r6™.™7“<@,fb A 6—-@%6˜-@26™.Y-AXIS< A H6—-@0U6™.X-4ö}AXIS_ A b$„<6›-?:C:œ,<—<˜:›,4 ”ïe@‚…+…%AAHB( ÄÁÖÅ ÂÁÄÅÒ§Ó ÚÐÌÏÔÔÅÒ¡ e( ³Ä ÉÓÏÍÅÔÒÉÃ4ù} ÐÌÏÔÔÅÒ ÐÒÏÇÒÁÍ ðM,($ ÁÔÁÒÉ ±°²° ÐÒÉÎÔÅÒ­ÐÌÏÔÔÅÒ ÖÅÒÓÉÏΠM( âù Äéãë ¦ Äáöéä Âòõäúùîóëé ñpQ(IINPUT FORMULA AS... Z=(4ú}IN TERMS OF X&Y) ÍÁËÅ ÓÕÒÅ THAT SYNTAX IS CORRECT.p((eg: PAIRS OF PARENTHESIS)òEš (}AY…%-…@/(144û} š;-…@E(40 šóJ-…@(104 š&-…@!/(CONT5-……GAB@J&ôUAY@4'A4ü}B@U()}  ÚÐÌÏÔÔÅÒ¡  ÐÁÒÁÍÅÔÅÒÓ ÅÎÔÒÙ ÓÃÒÅÅΠ   õMM(ENOTE: ALL THREE PRIMARY AXIS (X,Y,Z) ÍÕÓÔ BE IN SPECIFI4ý}ED DOMAINS!ö_( (š (Y(GAUTOMATIC BOUNDS SELECTION ENSURES FULL PLOTTING BUT TAKES MORE TIME..._6”-…÷g(U(JPLEASE C4þ}HOOSE |1] AUTOMATIC SCALING Z-AXIS BOUNDS |2] MANUAL SETTINGS.Y”g”"“A ø@((INPUT LOWER Ú LIMIT#‹<(I4ÿ}NPUT UPPER Ú LIMIT@Šú&‹!Š)‹!…)Š …(WOOPS!& Aü%((ØÜÙ LOWER LIMIT‡%6‚-‡þ"(ØÜÙ UPPER LIMIT5}ˆ"6-ˆ&‡!ˆ)‡!…)ˆ …(WOOPS!& A N(.("DESIRED RESOLUTION (4=HIGH;10=LOW)2ƒ@6ƒ-ƒ%@N6ƒ-ƒ$>P 5}@((( ÏÐÔÉÏΠ ADD LABELS & BORDERS@( ÓÅÌÅÃÔ  START OVER --(%  ÓÔÁÒÔ  PLOT SURFACE TO 1020 PLOTTER6($(PRESS A5}NY KEY TO BEGIN...6AdAU F:Ad,"AUA@> ”"“ (4(# AUTO SCALING SEQUENCE IN ACTION!> A5}V6-A@'+ˆ&‡,'6-A@'+&‚,96‘-@C'+Š&‹,V6’-O:‹$‘,%O:‡$$,%O:‚$$,9 +@$AAV+5}A …/“9 @`bb104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,104,133›ji5}i217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89,101,215,133,215,152,240,15›tff165,214,105,64,1335},214,165,215,105,1,133,215,136,208,241,132,221,160,0,132,220,177,216,160,0,170›~XX16,1,136,132,213,138,41,96,208,4,169,64,15}6,14,201,32,208,4,169,0,16,6,201,64,208,2›ˆ__169,32,133,218,138,41,31,5,218,133,218,169,0,162,3,6,218,42,202,208,250,109,245}4,2,133,219›’hh164,221,177,218,69,213,164,220,145,214,200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,2›œ55230,5 }215,230,221,169,8,197,221,208,159,96,207,96›ÜSHIFT TO DRAW COMMAND›æ6ž7B:ž,,.*Dð$@SWITCH TO PLOT COMMAND›J5 }6ž7B:ž,,.*MT$Ð77PLOTTER SCALING AND DUMP STRING BUILDING SEQUENCE›Ú--6ž7B:ž,%@,.=:P:@$Œ'@,,ä5 }6ž7B:ž,%@,.,î..6ž7B:ž,%@,.=:P:6@$Ž'@,,ø6ž7B:ž,%@,.;$¸ PRINT THE DUMP$›Â .5 }@.@@P:Ì (@Ö (@Ià &&(@ž7@}hen the 3-D object plot program is›executed, the computer will ask you›several questions.››1. DMA OFF? If you answer Y, the=?}›computer will turn off the screen›while performing the complex 3-D›math. This will speed up the program›considerably. If y=@}ou don't care›about speed, type N.››2. OUTPUT TO PLOTTER? If you own an›Atari 1020 plotter and would like›hard-copy of your=A} 3-D objects, ready›your plotter and answer Y to this›question. Otherwise, answer N.››3. FILE OR KEYBOARD INPUT? Type an›F=B} or a K depending on your choice.››4. If you want file input (F), the›computer will ask for the name of a›3-D object file. =C}If you're using›cassette, position your tape to the›beginning of the 3-D file, press›PLAY, type C: and press RETURN. For›dis=D}k, respond D:FILENAME.EXT and›press RETURN. The computer will load›the desired 3-D object data and›continue at step 6.››5. =E}If you want to define a new 3-D›object (K), you will be asked how›many points there are in the object.›Our pyramid has 5 poin=F}ts. You will›then be asked for the X, Y and Z›coordinates of each point. For›example, to enter the coordinates of›point 2 o=G}f the pyramid, you would›type 4,4,0 and press RETURN. Next›you will be asked how many lines›there are in the object. Type t=H}his›number and press RETURN. After this›you must enter the endpoints of each›line. Enter these point numbers as›in Figure 6=I}. Finally, you'll be›asked if you'd like to save the›object in a file. If you type Y, the›computer will ask for a filename.=J}›For cassette, position your tape,›press RECORD and PLAY, type C: and›press RETURN. When the computer›beeps, press RETURN ag=K}ain and the›file will be saved. For disk, type›D:FILENAME.EXT and press RETURN.››6. You're now ready to look at the›object.=L} You will be asked:›› ENTER OBSERVER LOCATION X,Y,Z› OR E FOR EDIT››If you'd like to examine and/or›change the object data=M}, type E, press›RETURN and go to step 8. Otherwise,›type in the X, Y and Z coordinates of›the point in space where your›imag=N}inary "eye" is located and press›RETURN. A good observer location for›our pyramid is 5,7,3. Next you will›be asked:›› ENTE=O}R COORDINATES LOOKED AT X,Y,Z››Now you should enter the X, Y and Z›coordinates of the place where you›want to look. If, for =P}example, you›want to look at the center of our›pyramid, you should type 0,0,2.5 and›press RETURN. Finally, you'll be›asked:›=Q}› ENTER ZOOM FACTOR››The normal zoom factor is 1. To›enlarge the object image, type a›larger number; to make the object›sma=R}ller, enter a smaller number.››7. At this point, the object will be›drawn on your screen and on the›plotter, if selected. W=S}hen drawing›is complete, a short tone will sound.›Press START, SELECT, OPTION or the›joystick #1 trigger to start a new›plot =T}at step 6.››8. The EDIT section of the program›has three options: PRINT the object›data, EDIT POINTS or EDIT LINES.›These o=U}ptions are self-prompting and›similar to the original data entry›procedure above. After editing, you›may save the edited obj=V}ect data to a›file, if desired, as in step 5.›› More complex objects.››You can design and plot extremely›complex objec=W}ts with this image›processor. The procedure is the same›as the simple pyramid used in the›above illustrations, there are jus=X}t›more points and lines involved.››SHUTTLE.3D is the data for a›futuristic 3-D space shuttle. Try›entering this data into yo=Y}ur computer›and viewing it. Other files with the›extension .3D will be placed on the›TCS download area from time to time.›› =Z} Who gets the credit?››To be honest, I can't take all the›credit for this program. I got it›from a Compucolor II compu=[}ter›bulletin board several years ago; the›author was not credited. I modified›the program to work on the Atari›computers, ad=\}ded the editing, screen›clipping, plotter output and file›handling.››Although the code has been heavily›modified, the author =]}may recognize›the general structure, and is›encouraged to let me know his or her›name. I'll be glad to give credit›where it =^}is due.›› Attention, artists.››I'd be interested in seeing some of›the 3-D objects created by our›readers with this p=_}rogram. Just›upload your object's data in a .3D›file, and you may see your work›displayed in the TCS download area!›››Curren=`}t unit: 11 (SOUND/GRAPHICS #2)›Download options: D,E,H,L,R,S,U or ?x›>, Issue #16›24K Cassette, 32K Disk››Copyright (C) 1984 <F÷øPê&ÿ&A¤F¤DMA¤O¤EG¤IN¤XÌXÒYÔYÂOFÆPÃPÓX¨Y¨Z¨P¨VIS¨ÉQ±Q²Q³LÓLN¨ZOOÍOØOÙOÚVØVÙVÚD°DØDÙDÚU±CØCÙCÚS³S²QØQÙQÚX×Y×Z×VCØVCÙVCAb}ÚËAØAÙAÚÔXAÄYAÄTÖQÔISAVÅI±I²XT±YT±ZT±XT²YT²ZT²FÖFÈX±Y±X²Y²POËØPÔLÎL±L²R±R²T±T²B±B²X³Y³X´Y´R¤AN²AN³FLAÇÒAN±XÉXÁÓDÌDLL¨DLH¨DHL¨Ac}DHH¨ADÓÚDAÔA A‘ B AA eAAd}}eAÛeA9eASe@@Àu@AA±o@P@0ÀPA@Ae} !"#$%&'()*+,-Af}./0123456789:;<Ag}=>?@ABCDEFGHIJK@LAq}ÃB'DOS SYSB*+DUP SYSB!UDRAW BvSHOW B”SAMPLE B šRANDOM B ¤TRIANGLE B ®TRIANG2 BºCOLOR B¾AUTODRAWSY B ÁGRAPH BÊSINES BASBÐPLOT LGOB0ãZPLOTTERBASB DIR1020 BASBDSOLIDS DOCBNaSOLIDS BASB¸BUTTRFLYDATB ÖCHIP DATB ßTIEFGT DATBìXWING DATB úADJSTP DATBCSOLIDMODBASBGLBL1020 BASB#XVCWPLO BASB{PM1020 BASB—BOLD BASBšBANRDEMOBASB«IMPOSSI BLEB °DISK1020TXTMNOPQRSTUVWXYZ[?Hˆˆˆ\Ar}?—www]^_`abcAdåAe÷Af AghijÀ11**As} ANALOG COMPUTING ** JUN 84 ** PAGE 93 **›d +n##(***************************x##(* 3-D IMAGE PLOT SYSTEM *At}‚##(* BY TOM HUDSON *‡##(* ROTATION: LARRY HARRIS *Œ##(* ANALOG COMPUTING # 16 *–##(*************Au}************** yRÚ;@,€;@,;@ ,‚;@,ƒ;@,„;@,…;@,a6„.>:@',y6„7@,.Av}>:@,ª?6†-6‡-A'6ˆ-36‰-A‘?6Š-B´-((DMA OFF‚-‚0Y*‚0NA€¾7(Aw}(OUTPUT TO PLOTTER!ƒ7ƒ0Y*ƒ0NAȃ4NA Òa A@7@@PU(Ax}@„*H*I*M0,-300*Ia6‹-Ü6("(ÆILE OR ËEYBOARD INPUT&€6€4FAæ€0KA ð)(%(HOAy}W MANY POINTS ARE THERE)Œú&&9Œ,Ž9Œ,9Œ,9Œ<@,‘9Œ,..(&ENTER X,Y,Z COORDINATES FOR EACH POINTF’-@Az}Œ(POINT ’'“”•068’,-“96Ž8’,-”B68’,-•F ’7($(HOW MANY LINES ARE THERE(–7—9–<@,"&(&(NOA{}W ENTER POINT INFORMATION,(FOR EACH LINE.6n’-@–( (LINE ’0( FROM POINT4“E6—8’<,-“U( TOA|} POINTY“j6—8’<@,-“n ’@?(+(DO YOU WANT TO SAVE THIS OBJECT/€?€4YAPJ€0NA T!!*****A}}**********************›^!!* TIME FOR NEW PLOT *›h!!***************************›r((((ENTER OBSERVER LOCATION X,A~}Y,Z|( OR Å FOR EDIT A@†6˜-@ ™š›š,(,(!ENTER COORDINATES LOOKED AT X,Y,Z¤ AœžA}®.((ENTER ZOOM FACTOR& A0*˜. Š²=()(DO YOU WANT TO DO AN X-Y LOOP-Ú=Ú0YA@´A%(HOW MANY DA€}EG. TOTAL ROTATION)ÛA6Û-+Û'A`,$@(¶]$(HOW MANY DEG. INC. ROTATION(Ü@6Ü-+Ü'A`,$@(J A#]SA}ET UP PAGE FLIP›· A ¸068,-œ!6Ž8,-068,-žÂ)6Ÿ-@‚4Y)AYÌ!!**A‚}*************************›Ö!!* CALCULATE PERSPECTIVE *›à!!***************************›ê 6 -œ&™6¡-&š6¢-ž&›ô.6£Aƒ}-M: $ %¡$¡%¢$¢,"£".6£-=þ 6¤- '£6¥-¡'£6¦-¢'£)6§-M:@&¦$¦,)6¨-M:@&¥$¥,! 6©-™%Ÿ$¤6ª-A„}š%Ÿ$¥!6«-›%Ÿ$¦:’-Œ6¬-8’,#6­-Ž8’,,6®-8’,6 A: ’&(’-Œ(‘8’,"Ap02 6¬-8’,A…}6­-Ž8’,6®-8’,( A2 Ap: ’ A@D!!***************************›N!!* IS THE POINT VISIBLE? *›X!A†}!***************************›b*6‘8’,-@6¯-¬&™"6°-­&š*6±-®&›l $¯%¡$°%¢$±!$v6‘8’,-$€!!A‡}***************************›Š!!* NOW CALC PLOT COORDS *›”!!***************************›ž6²-Ÿ'+¯$¤%°$¥%±$¦,¨! 6³-Aˆ}™%²$¯6´-š%²$°!6µ-›%²$±²§"A ¼&&68’<@,-++³&©,$¥&+´&ª,$¤,'§Æ68’<@,-+µ&«,'§$Ð&&68’!!* NOW DRAW THE IMAGE! *›H!!*************************A}**›R5 A"'0@1@5 Š\9 ƒ4Y9(@ M0,0*D480,0*D480,288*D0,288*D0,0fI’-@AŽ}–56¹-‘8—8’<,,%‘8—8’<@,,I¹"Ap¹"@A €zl6º-6»-’/‘8—8’<,,"A}@6¼-—8’<,Q6½-—8’<@,b6’-—8’<,l A „66¼-—8’<@,%6½-—8’<,66’-—8’<@,ŽQ A}6¾-8¼,6¿-Ž8¼,6À-8¼,'6Á-8½,06Â-Ž8½,96Ã-8½,E6Ä-Q6Å-˜C6¬-+¾%Á,'@'6­-+¿%Â,'@96®-+À%Ã,A‘}'@C A¢.‘8’,!6Á-¬6Â-­$6Ã-®. A P¬ 6¾-¬6¿-­6À-®¶%6º-º%@%º @A ÀA’} 6¬-Á6­-Â6®-à AÊb Ap-68’<@,-8’<@,$¶%·M68’<@,-8’<@,$¶%¸\6‘8’,-b6’-A“}»Ô6Æ-8—8’<,<@,C6Ç-A‘&8—8’<,<@,_6È-8—8’<@,<@,ƒ6É-A‘&8—8’<@,<A”}@, APÞƒ4N)Ê"Aèi[(@MÆ$@P,+A‘&Ç,$@P*D¬$@P,+A‘A•}&­,$@Pi6‹-‹%@ò ’ü4‹!((@ H*M0,-300*I46‹-@ Ë-@6@<2A–}A(@Ë@ Ë ÝA!33F:B2y,"@*T:,"@A5" +"(LAST PARAMETERS:A—}$V(#( OBSERVER: ™,š,›@( VIEWPOINT:œ,,žL(ZOOM:˜V A@.!!***************************›8!!*A˜} LOAD 3-D IMAGE FILE *›B!!***************************›L_@*(ENTER FILENAME TO LOAD.8 AU@A™}@_ A€V3@Œ39Œ,Ž9Œ,9Œ,9Œ<@,‘9Œ,`+Ë-@Œ@“'68Ë,-“+ ËjAš}+Ë-@Œ@“'6Ž8Ë,-“+ Ët+Ë-@Œ@“'68Ë,-“+ Ë~@–—9–<@,ˆQË-@A›}–@“/6—8Ë<,-“<@“M6—8Ë<@,-“Q Ë’@ Š A@œ(((ýFILE FORMAT ERAœ}ROR!( A¦-(#( ýI/O ERROR - F:A•,- A°((ýCAN'T OPEN FILE!º( PRESS ÒÅÔÕÒÎ…%Ä!!*****A}**********************›Î!!* SAVE 3-D IMAGE FILE *›Ø!!***************************›â_@*(ENTER FILENAME TO Až}SAVE.8 AU@@_ Aì(@Œö%Ë-@Œ!(@8Ë,% Ë%Ë-@AŸ}Œ!(@Ž8Ë,% Ë %Ë-@Œ!(@8Ë,% Ë\(@–Ë-@–6(@—8Ë<,N(@A }—8Ë<@,R Ë\ Ap!!***************************›(!!* EDIT THE 3-D IMAGE DATA *›2!!**************************A¡}*›<7 Š (#(ÐRINT, ÅDIT OR ÑUIT'€7€4EAF€4QA@P€0PA@Z A@3POINTS:Œ3A¢}d9Ë-@Œ23POINT Ë: 8Ë,Ž8Ë,8Ë,6 Ë93n3LINES:–3xTË-@–C3LINE Ë: —8Ë<,A£} TO —8Ë<@,G ËJ3T A@‚> Š (*(EDIT ÐOINT OR ÌINE OR ÅXIT.€>€4LA€Œ€4EA –€0A¤}PA H("(ENTER POINT# OR ÒÅÔÕÒÎ, A0ÌHÌ!Œ)Ì A@ª&(&(X=8Ì,Y=Ž8Ì,Z=8Ì,´.(A¥}$(ENTER NEW X,Y,Z OR ÒÅÔÕÒÎ. A¾0 “”•68Ì,-“6Ž8Ì,-”&68Ì,-•0 AÈG(!(ENTER LINE# OR ÒÅÔÕÒÎ+ A¦}A/ÍGÍ!–)Í A€Ò@(#( FROM POINT:—8Í<,@( TO POINT:—8Í<@,Ü4(*(ENTER NEW LINE PA§}OINTS OR ÒÅÔÕÒÎ4 Aæ&( FROM POINT:“&“!ŒAð6—8Í<,-“ú&( TO POINT:“&“!ŒA0A¨}6—8Í<@,-“ A!!***************************›!!* GRAPHICS CLIP ROUTINE *›"!!***************************A©}›,o6Î-6Ï-'6Ð-36Ñ-?6Ò-K6Ó-W6Ô-c6Õ-o6Ê-6 Æ †6Î-Aª}@ A@ Æ!‡6Ð-@J Ç!‰6Ô-@ A0T Ç ˆ6Ò-@^ È †6Ï-@ APhA«} È!‡6Ñ-@r É!‰6Õ-@ Ap| É ˆ6Ó-@†85Î%Ï"@)Ð%Ñ"@)Ò%Ó"@)Ô%Õ"@8$A¬}% 6Ö-Æ6×-Ç6Ø-È6Ù-É% A0š 6Î-Ï6Ð-Ñ6Ò-Ó6Ô-Õ¤1 6Æ-¬6Ç-­6Ö-È6×-É!6Ø-Æ'6Ù-Ç1 A0®(%Æ †)Æ!A­}‡)Ç ˆ)Ç!‰)¬ †)¬!‡)­ ˆ)­!‰($¸ ,ÆÇ/¬­6Ê-@$Â$Î%Ò%Ô%Ð"6¬-Ö!6­-×$$Ì>Î 6¬-†%6­-×%+Ù&×,$+†&Ö,A®}'+Ø&Ö,+6Ö-¬16×-­;׈*׉>$Ö>Ð 6¬-‡%6­-×%+Ù&×,$+‡&Ö,'+Ø&Ö,+6Ö-¬16×-­;׈*׉>$à>Ô 6­-‰%6¬-Ö%+Ø&Ö,$+‰&×,'A¯}+Ù&×,+6Ö-¬16×-­;Ö‡*Ö†>$ê1Ò 6­-ˆ%6¬-Ö%+Ø&Ö,$+ˆ&×,'+Ù&×,+6Ö-¬16×-­ô$ÐD6Ý-@16Þ-+™#@%š#@A°},#?P<6ß-D:š'™,D6Û-Û%ß4! 6ß-ß%Ü6™-Þ$E:ß,!6š-Þ$G:ß,H A@—PAGE FLIP›˜(Ý+@$$™ ß!Û6Ý-A±}š=%6à-à%@&@$+à"@,=6á-@&+à"@,@ â-@@6@<2â@@A²}@ â¢%ã%@ä8á,%ã%@å8á,¬%ã%Aæ8á,%ã%Aç8á,¶!@ˆä8à,!@‰å8à,À*6è-ä8à,A³}%AV$å8à,*6é-?:A6<è,Ê$ûSET UP DATA FOR PAGE FLIP›üQ A%;ä9@,å9@,æ9@,ç9@A´},G6Ë-Q#A$ "êê"6@A#0 )A6%Ëê6Ë-Ë%@) A# L6Ë-@ A#P%6Ë-@Aµ}BAF:A,&@2L A#P$ $. g +@$6ä8Ë,-F:@ˆ,16å8Ë,-F:@‰,S6ã-F:A`,%AV$F:A¶}Aa,g6æ8Ë,-F:ã%A,8 6ç8Ë,-F:ã%A,$_ CLR DATA›` ^^104,24,104,133,4,104,133,3,165,4,105,30,133,10,160,0A·},169,0,145,3,200,192,0,208,249,160,0›j &&230,4,165,4,197,10,208,237,96,-1›Ä  Š+@$$€ D:IMAGE3D.BAS×VCØVCÙVC@t187›0›0.5›0.5›0.5›1.5›0.5›0.25›1›0.5›1.5›1.75›1.75›1.5›3.5›5›8›8.5›1›6›8›9›10›7›4›1›1.5›-0.5›-0.5›-0.5›-1.5›-0.5›-0.25›-1›-0.E¹}5›-1.5›-1.75›-1.75›-1.5›-3.5›-5›-8›-8.5›-1›-6›-8›-9›-10›-7›-4›-1›-1.5›0.5›0.5›0.5›1.5›0.5›0.25›1›0.5›1.5›1.75›1.75›1.5›-0.5›-Eº}0.5›-0.5›-1.5›-0.5›-0.25›-1›-0.5›-1.5›-1.75›-1.75›-1.5›3›2›3.5›7›4.5›5›6.5›9›7.5›5›2.5›1.5›2›9›8.5›8.5›9›8.5›8›8›8.5›8›7.5›7.E»}5›8›3›2.5›3›3.5›4›3.5›4›4.5›5›4.5›6›7›6›6.5›6.25›7.5›8.5›3›1.5›1›2.5›3.5›3›4.5›5›4.5›5›5.5›7›5›7.5›-3›-2›-3.5›-7›-4.5›-5›-6.5E¼}›-9›-7.5›-5›-2.5›-1.5›-2›-9›-8.5›-8.5›-9›-8.5›-8›-8›-8.5›-8›-7.5›-7.5›-8›-3›-2.5›-3›-3.5›-4›-3.5›-4›-4.5›-5›-4.5›-6›-7›-6›-6.E½}5›-6.25›-7.5›-8.5›-3›-1.5›-1›-2.5›-3.5›-3›-4.5›-5›-4.5›-5›-5.5›-7›-5›-7.5›-4›-3›-2›0›3›4.5›4.5›5.5›6›7.75›7.75›8›8›-8.5›-9›-7E¾}›-3›0›-4›-4›-2›6›9›9›4.5›3›-3›-2›0›3›4.5›4.5›5.5›6›7.75›7.75›8›8›-8.5›-9›-7›-3›0›-4›-4›-2›6›9›9›4.5›3›-3›-2›0›3›4.5›4.5›5.5›6E¿}›7.75›7.75›8›8›-3›-2›0›3›4.5›4.5›5.5›6›7.75›7.75›8›8›6›4.5›2.5›8.5›8.5›7.5›7.5›6›7›0›0.5›1.5›0›4›4›3.5›3.5›3›3›2.5›2.5›2›2›1.EÀ}5›1.5›0›-0.5›-1›-0.5›-1›-1.5›-2›-1.5›-1.5›-2›-3.5›-3.5›-2›-1.5›-1.75›-3.5›-1.5›-2›-0.5›-2›-5›-3.5›-5.5›-7.5›-4.5›-5›-7›-5›-5›EÁ}-8.5›-6.5›6›4.5›2.5›8.5›8.5›7.5›7.5›6›7›0›0.5›1.5›0›4›4›3.5›3.5›3›3›2.5›2.5›2›2›1.5›1.5›0›-0.5›-1›-0.5›-1›-1.5›-2›-1.5›-1.5›-EÂ}2›-3.5›-3.5›-2›-1.5›-1.75›-3.5›-1.5›-2›-0.5›-2›-5›-3.5›-5.5›-7.5›-4.5›-5›-7›-5›-5›-8.5›-6.5›-5›-4.5›-4.5›-4.5›-3.5›-4.5›-4.75EÃ}›-4›-4.5›-3›-3›-3›-3›-1.75›0›3.75›4.25›-4.5›1.25›3.75›4.75›6›2.5›-1›-4.5›-4›-4.5›-4.5›-4.5›-3.5›-4.5›-4.75›-4›-4.5›-3›-3›-3›-EÄ}3›-1.75›0›3.75›4.25›-4.5›1.25›3.75›4.75›6›2.5›-1›-4.5›-4›-5.5›-5.5›-5.5›-6.5›-5.5›-5.25›-6›-5.5›-3.25›-3.25›-3›-3›-5.5›-5.5›-EÅ}5.5›-6.5›-5.5›-5.25›-6›-5.5›-3.25›-3.25›-3›-3›-2.25›-3.5›-1.5›2.5›-0.5›0›2›4.75›3›0›-3›-4›-3.5›4.75›4.25›4.25›4.75›4.25›3.75›EÆ}3.75›4.25›3.75›3›3›3.75›-2.25›-3›-2.25›-1.75›-1›-1.75›-1›-0.5›0›-0.5›1.25›2.5›1.25›2›1.5›3›4.25›-1.5›-3.25›-4›-2.25›-1›-1.5›0EÇ}.25›0.5›0.25›0.5›1.5›3›0.5›3.5›-2.25›-3.5›-1.5›2.5›-0.5›0›2›4.75›3›0›-3›-4›-3.5›4.75›4.25›4.25›4.75›4.25›3.75›3.75›4.25›3.75›EÈ}3›3›3.75›-2.25›-3›-2.25›-1.75›-1›-1.75›-1›-0.5›0›-0.5›1.25›2.5›1.25›2›1.5›3›4.25›-1.5›-3.25›-4›-2.25›-1›-1.5›0.25›0.5›0.25›0.EÉ}5›1.5›3›0.5›3.5›225›1›2›2›3›3›4›4›5›5›6›6›7›7›8›8›9›9›10›10›11›11›12›12›13›13›10›14›15›15›16›16›17›17›18›18›19›19›20›20›21›21EÊ}›22›22›23›23›24›24›25›25›26›26›18›1›27›27›28›28›29›29›30›30›31›31›32›32›33›33›34›34›35›35›36›36›37›37›38›38›35›18›3›43›28›39›EË}40›40›41›41›42›42›43›43›44›44›45›45›46›46›47›47›48›48›49›49›50›50›51›51›43›1›52›52›53›53›54›54›55›55›56›56›57›57›58›58›59›60›EÌ}61›61›62›62›63›63›60›1›64›64›65›65›66›66›67›67›68›68›69›69›70›70›71›72›73›73›74›74›75›75›72›76›77›77›78›78›76›79›80›80›81›81›EÍ}82›82›79›83›84›84›85›85›83›86›87›87›88›88›86›89›90›90›91›91›92›92›89›93›94›94›95›95›96›96›93›97›98›98›99›99›100›100›97›101›10EÎ}2›102›103›103›104›104›101›105›106›106›107›107›108›108›105›109›110›110›111›111›112›112›113›113›109›114›115›115›116›116›117›117EÏ}›114›118›119›119›120›120›121›121›118›122›123›123›124›124›122›125›126›126›127›127›128›128›125›129›130›130›131›131›129›132›133›EÐ}133›134›134›132›135›136›136›137›137›138›138›135›139›140›140›141›141›139›142›143›143›144›144›142›145›146›146›147›147›148›148›1EÑ}45›149›150›150›151›151›152›152›149›153›154›154›155›155›156›156›153›157›158›158›159›159›160›160›157›161›162›162›163›163›164›16EÒ}4›164›165›166›166›167›167›168›168›169›169›165›170›171›171›172›172›173›173›170›174›175›175›176›176›177›177›174›178›179›179›180EÓ}›180›178›181›182›182›183›183›184›184›181›185›186›186›187›187›185›35›72›36›73›37›74›38›75›8›33›58›70›34›9›59›71›2›52›4›54›5›55EÔ}›6›56›7›57›8›58›9›59›10›60›11›61›12›62›13›63›27›64›29›66›30›67›31›68›32›69›33›70›34›71›3›14›39›28›58›70›1›2›52›64›2›27›5›30›4EÕ}›29›9›10››Current unit: 11 (SOUND/GRAPHICS #2)›Download options: D,E,H,L,R,S,U or ?x›>5›-0.5›-0.5›-0.5›-1.5›-0.5›-0.25›-1›-0.DV81›11›11›-12›-12›-12›-12›-9›-9›-8›-8›-5›-5›-4›-4›-1›-1›0›0›3›3›4›4›7›7›8›8›11›11›11›11›8›8›7›7›4›4›3›3›0›0›-1›-1›-4›-4›-5›-5›I×}-8›-8›-9›-9›-12›-12›8›8›8›6›6›6›5›5›3›3›2›2›2›0›0›0›-1›-1›-3›-4›-6›-6›-4›-9›-7›-7›-9›-9›-8›0›8›8›0›0›0›0›0›0›0›0›0›0›0›0›0›0›IØ}0›0›0›0›0›0›0›0›0›0›0›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›2›4›6›2›4›6›6›2›6›2›6›4›2›2›4›6›2›6›6›2›2›6›6›2›2›6›6›4IÙ}›4›8›8›8›8›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›5›0›0›5›8›8›8›8›8›8›8›8›8›IÚ}8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›70›1›2›2›3›3›4›4›1›1›28›2›29›3›52›4›5›5›28›28›29›29›52›52›5›5›6›6›7›7›8›9›10›10›11›11IÛ}›12›13›14›14›15›15›16›17›18›18›19›19›20›21›22›22›23›23›24›25›26›26›27›27›28›29›30›30›31›31›32›33›34›34›35›35›36›37›38›38›39›3IÜ}9›40›41›42›42›43›43›44›45›46›46›47›47›48›49›50›50›51›51›52›53›55›53›56›56›58›54›57›59›60›60›61›61›62›63›65›65›66›66›68›64›67›IÝ}69›70›70›71›72›73›73›74›74›75›75›72›76›77›77›78›78›79›79›80›80›81››Current unit: 11 (SOUND/GRAPHICS #2)›Download options: D,EIÞ},H,L,R,S,U or ?x›>12›-12›-9›-9›-8›-8›-5›-5›-4›-4›-1›-1›0›0›3›3›4›4›7›7›8›8›11›11›11›11›8›8›7›7›4›4›3›3›0›0›-1›-1›-4›-4›-5›-5›H84›5›5›5›5›5›5›-5›-5›-5›-5›-5›-5›-1›1›1›-1›-1›1›1›-1›-1›1›1›-1›-1›1›1›-1›-2›-2›-2›-2›2›2›2›2›2›2›2›2›3›3›3›3›-2›-2›-2›-2›-3›-Mà}3›-3›-3›3›3›3›3›4›4›4›4›-3›-3›-3›-3›-4›-4›-4›-4›4›4›4›4›5›5›5›5›-4›-4›-4›-4›-5›-5›-5›-5›-2›2›4›2›-2›-4›-2›2›4›2›-2›-4›-2›-2›-Má}2›-2›1›1›-1›-1›2›2›2›2›-1›-1›1›1›1›-1›-1›1›1›-1›-1›1›0›1›0›-1›0›1›0›-1›0›1›0›-1›0›1›0›-1›0›0.67›0›-0.67›0›0.67›0›-0.67›0›0.67Mâ}›0›-0.67›0›0.67›0›-0.67›0›0.33›0›-0.33›0›0.33›0›-0.33›0›0.33›0›-0.33›0›0.33›0›-0.33›6›6›0›-6›-6›0›6›6›0›-6›-6›0›1›1›-1›-1›2›2Mã}›2›2›-1›-1›1›1›-2›-2›-2›-2›1›1›-1›-1›-1›-1›1›1›1›0›-1›0›1›0›-1›0›1›0›-1›0›1›0›-1›0›0.67›0›-0.67›0›0.67›0›-0.67›0›0.67›0›-0.67Mä}›0›0.67›0›-0.67›0›0.33›0›-0.33›0›0.33›0›-0.33›0›0.33›0›-0.33›0›0.33›0›-0.33›0›138›1›2›2›3›3›4›4›5›5›6›6›1›1›4›2›5›3›6›7›8›8›9Må}›9›10›10›11›11›12›12›7›7›10›8›11›9›12›13›20›20›17›17›24›24›21›21›28›28›25›25›16›16›13›14›19›19›18›18›23›23›22›22›27›27›26›26›Mæ}15›15›14›13›14›14›35›35›36›36›23›23›24›24›29›29›30›30›13›16›15›15›34›34›33›33›22›22›21›21›32›32›31›31›16›17›18›18›36›36›33›33Mç}›27›27›28›28›32›32›29›29›17›20›19›19›35›35›34›34›26›26›25›25›31›31›30›30›20›37›38›38›39›39›40›40›37›41›42›42›43›43›44›44›41›3Mè}7›41›38›42›39›43›40›44›45›46›46›47›47›48›48›45›49›50›50›51›51›52›52›49›45›49›46›50›47›51›48›52›53›54›54›55›55›56›56›53›57›58›Mé}58›59›59›60›60›57›53›57›54›58›55›59›56›60›61›62›62›63›63›64›64›61›65›66›66›67›67›68›68›65›61›65›62›66›63›67›64›68›69›70›70›71Mê}›71›72›72›69›73›74›74›75›75›76›76›73›69›73›70›74›71›75›72›76›77›78›78›79›79›80›80›77›81›82›82›83›83›84›84›81›77›81›78›82›79›8Më}3›80›84››5›5›5›-5›-5›-5›-5›-5›-5›-1›1›1›-1›-1›1›1›-1›-1›1›1›-1›-1›1›1›-1›-2›-2›-2›-2›2›2›2›2›2›2›2›2›3›3›3›3›-2›-2›-2›-2›-3›-L94›0›0›7›7›7›7›37›37›40›40›40›22›22›40›40›46›46›50›55›55›60›60›55›55›50›50›55›55›60›60›55›55›50›46›46›40›40›22›22›40›40›40›37Qí}›37›24›24›33›33›36›36›0›0›7›7›7›7›37›37›40›40›22›22›40›40›46›46›50›55›55›60›60›55›55›50›50›55›55›60›60›55›55›50›46›46›40›40›2Qî}2›22›40›40›37›37›33›33›26›22›21›27›26›22›28›32›32›43›44›44›46›46›47›47›43›32›31›32›32›28›28›29›28›20›19›20›20›16›16›17›16›5›1Qï}›1›2›2›4›4›5›16›16›20›23›25›26›22›25›23›26›22›21›27›26›22›28›32›43›44›44›46›46›47›47›43›32›31›32›32›28›28›29›28›20›19›20›20›1Qð}6›16›17›16›5›1›1›2›2›4›4›5›16›20›26›22›11›11›12›12›11›11›13›13›13›12›12›11›11›12›12›12›12›13›11›12›12›12›12›11›13›13›11›12›12Qñ}›12›12›11›13›12›12›12›12›11›11›12›12›13›13›13›12›12›15›15›13›13›9›9›8›8›9›9›6›6›8›8›9›9›8›8›8›8›6›9›8›8›8›8›9›6›6›9›8›8›8›8›9Qò}›6›8›8›8›8›9›9›8›8›6›6›13›13›161›1›51›2›52›3›53›4›54›5›55›6›56›7›57›8›58›9›10›10›59›11›60›12›61›13›62›14›63›15›64›16›65›17›66Qó}›18›67›19›68›20›69›21›70›22›71›23›72›24›73›25›74›26›75›27›76›28›77›29›78›30›79›31›80›32›81›33›82›34›83›35›84›36›85›37›86›38›8Qô}7›39›88›40›89›41›90›42›41›43›91›44›92›10›17›17›18›33›34›34›41›12›13›13›14›14›11›11›12›61›62›62›63›63›60›60›61›10›15›15›16›16›Qõ}17›17›10›59›64›64›65›65›66›66›59›38›39›39›40›40›37›37›38›87›88›88›89›89›86›86›87›41›34›34›35›35›36›36›41›90›83›83›84›84›85›85Qö}›90›46›45›46›47›47›49›49›50›50›48›48›45›45›94›94›50›46›93›93›49›47›48›47›93›48›94›1›2›2›3›3›4›4›1›51›52›52›53›53›54›54›51›5›6Q÷}›6›44›44›26›26›25›25›7›7›5›55›56›56›92›92›75›75›74›74›57›57›55›25›18›18›8›8›7›7›25›74›67›67›58›58›57›57›74›44›43›43›33›33›26›Qø}26›44›92›91›82›75›75›92›18›19›19›20›20›21›21›22›22›23›23›24›24›25›25›18›67›68›68›69›69›70›70›71›71›72›72›73›73›74›74›67›26›33Qù}›33›32›32›31›31›30›30›29›29›28›28›27›27›26›75›82›82›81›81›80›80›79›79›78›78›77›77›76›76›75›91›82›6›46›40›40›22›22›40›40›40›37Pa58›-13›-13›-13›-13›-13›-13›13›13›13›13›13›13›-13›1›-1›8›6›13›-1›8›6›1›-13›-13›13›13›-6›-4.86›-3.88›-3.23›-3›-3.23›-3.88›-4.86Uû}›-6›-7.14›-8.12›-8.77›-9›-8.77›-8.12›-7.14›-6›-4.86›-3.88›-3.23›-3›-3.23›-3.88›-4.86›-6›-7.14›-8.12›-8.77›-9›-8.77›-8.12›-7.1Uü}4›-12›-12›-14›-14›-12›-12›-12›-12›-14›-14›-12›-12›-3›-3›-7›-7›-3›-3›8.25›8.25›10›10›10›5›5›10›-4›-4.23›-4.88›-5.86›-7›-8.14›-Uý}9.12›-9.77›-10›-9.77›-9.12›-8.14›-7›-5.86›-4.88›-4.23›-4›-4.23›-4.88›-5.86›-7›-8.14›-9.12›-9.77›-10›-9.77›-9.12›-8.14›-7›-5.8Uþ}6›-4.88›-4.23›-9›-5›-5›4›4›8›8›4›4›-5›-5›-9›-9›-9›-9›-9›-9›-9›4›4›2›2›2›8›8›2›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9›-9Uÿ}›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›8›88›1›2›2›3›3›4›4›5›5›6›6›7›7›8›8›9›9›10›10›11›11›12›12›1›2›11›3›10›4›9›5›8›6›7›1›13›13›14›14V}›15›15›16›16›17›17›18›18›12›15›19›19›20›20›21›21›17›20›16›14›22›19›22›13›23›23›24›24›25›25›26›26›18›26›21›23›22›24›6›25›7›27›V}28›28›29›29›30›30›31›31›32›32›33›33›34›34›35›35›36›36›37›37›38›38›39›39›40›40›41›41›42›42›27›27›43›43›44›44›45›45›46›46›47›47V}›48›48›49›49›50›50›51›51›52›52›53›53›54›55›54›55›56›56›57›57›58›58›43›28›44›29›45›30›46›31›47›32›48›33›49›34›50›35›51›36›52›3V}7›53›38›54›39›55›40›56›41›57›42›58››13›13›13›-13›1›-1›8›6›13›-1›8›6›1›-13›-13›13›13›-6›-4.86›-3.88›-3.23›-3›-3.23›-3.88›-4.86T#›100 GRAPHICS 0›110 ? "***************************"›120 ? "* 3-D IMAGE PLOT SYSTEM *"›130 ? "* BY TOM HUDSON *"›1Z}40 ? "* ANALOG COMPUTING # 16 *"›150 ? "***************************"›160 DIM A$(5),F$(20),DMA$(1),O$(1),EG$(2),IN$(1),B$(14Z}):EG$=CHR$(27):EG$(2)=CHR$(7)›170 XL=0:XR=319:YT=0:YB=191:OFF=40000›180 ? :? "DMA OFF";:INPUT DMA$:IF DMA$<>"Y" AND DMA$<>"N"Z} THEN 180›190 ? :? "OUTPUT TO PLOTTER";:INPUT O$:IF O$<>"Y" AND O$<>"N" THEN 190›200 IF O$="N" THEN 215›210 TRAP 190:CLOSE #3Z}:OPEN #3,8,0,"P":? #3;EG$;"*H*I*M0,-300*I":PC=0›212 REM *** INPUT SLIDE FILE NAME TO SAVE SCREEN *** ›215 ? :? "ENTER SLIDE Z }FILE TO SAVE";:INPUT B$›220 ? :? "FILE OR KEYBOARD INPUT";:INPUT A$:IF A$="F" THEN 1100›230 IF A$<>"K" THEN 220›240 ? :? "HOWZ } MANY POINTS ARE THERE";:INPUT PS›250 DIM X(PS),Y(PS),Z(PS),P(PS,2),VIS(PS)›260 ? "ENTER X,Y,Z COORDINATES FOR EACH POINT"›27Z }0 FOR I=1 TO PS:? "POINT ";I;:INPUT Q1,Q2,Q3:X(I)=Q1:Y(I)=Q2:Z(I)=Q3:NEXT I›280 ? :? "HOW MANY LINES ARE THERE";:INPUT LS:DIMZ } LN(LS,1)›290 ? :? "NOW ENTER POINT INFORMATION"›300 ? "FOR EACH LINE."›310 FOR I=1 TO LS:? :? "LINE ";I:? "FROM POINT";:INPUZ }T Q1:LN(I,0)=Q1:? " TO POINT";:INPUT Q1:LN(I,1)=Q1:NEXT I›320 ? :? "DO YOU WANT TO SAVE THIS OBJECT";:INPUT A$:IF A$="Y" THEZ}N 1250›330 IF A$<>"N" THEN 320›340 REM ***************************›350 REM * TIME FOR NEW PLOT *›360 REM **************Z}*************›370 ? :? "ENTER OBSERVER LOCATION X,Y,Z"›380 ? "OR E FOR EDIT":TRAP 1340›390 ZOOM=1›400 INPUT OX,OY,OZ›410 ? :?Z} "ENTER COORDINATES LOOKED AT X,Y,Z"›420 TRAP 410:INPUT VX,VY,VZ›430 ? :? "ENTER ZOOM FACTOR":TRAP 430:INPUT ZOOM:TRAP OFF›44Z}0 X(0)=VX:Y(0)=VY:Z(0)=VZ›450 D0=1:IF DMA$="Y" THEN POKE 559,0›460 REM ***************************›470 REM * CALCULATE PERSPZ}ECTIVE *›480 REM ***************************›490 DX=VX-OX:DY=VY-OY:DZ=VZ-OZ›500 U1=SQR(DX*DX+DY*DY+DZ*DZ):IF U1=0 THEN U1=1EZ}-06›510 CX=DX/U1:CY=DY/U1:CZ=DZ/U1›520 S3=SQR(1-CZ*CZ):S2=SQR(1-CY*CY)›530 QX=OX+D0*CX:QY=OY+D0*CY:QZ=OZ+D0*CZ›540 FOR I=0 TOZ} PS:XW=X(I):YW=Y(I):ZW=Z(I):GOSUB 610:NEXT I›550 FOR I=0 TO PS:IF VIS(I)=0 THEN 570›560 XW=X(I):YW=Y(I):ZW=Z(I):GOSUB 610:GOSZ}UB 670›570 NEXT I:GOTO 740›580 REM ***************************›590 REM * IS THE POINT VISIBLE? *›600 REM ******************Z}*********›610 VIS(I)=1:VCX=XW-OX:VCY=YW-OY:VCZ=ZW-OZ›620 IF DX*VCX+DY*VCY+DZ*VCZ>0 THEN RETURN ›630 VIS(I)=0:RETURN ›640 REM Z}***************************›650 REM * NOW CALC PLOT COORDS *›660 REM ***************************›670 K=D0/(VCX*CX+VCY*CY+VZ}CZ*CZ)›680 AX=OX+K*VCX:AY=OY+K*VCY:AZ=OZ+K*VCZ›690 IF S3=0 THEN 720›700 P(I,1)=((AX-QX)*CY-(AY-QY)*CX)/S3›710 P(I,2)=(AZ-QZ)/Z}S3:RETURN ›720 P(I,1)=((QX-AX)*CZ+(AZ-QZ)*CX)/S2›730 P(I,2)=(AY-QY)/S2:RETURN ›740 REM ***************************›750 REM * Z} SCALE THE IMAGE *›760 REM ***************************›770 T=450*ZOOM:FOR I=0 TO PS›780 P(I,1)=P(I,1)*T›790 P(I,2)=P(IZ},2)*T›800 NEXT I›810 XAD=160-P(0,1):YAD=96-P(0,2):FOR I=1 TO PS:P(I,1)=P(I,1)+XAD:P(I,2)=P(I,2)+YAD:NEXT I›820 REM **********Z}*****************›830 REM * NOW DRAW THE IMAGE! *›840 REM ***************************›850 GRAPHICS 24:SETCOLOR 2,0,0:COLOZ}R 1:TRAP OFF›860 IF O$="Y" THEN ? #3;"M0,0*D480,0*D480,288*D0,288*D0,0"›870 FOR I=1 TO LS:TV=VIS(LN(I,0))+VIS(LN(I,1)):IF TV=Z}0 THEN 1010›880 IF TV=2 THEN 980›890 QT=0:ISAVE=I:IF VIS(LN(I,0))=0 THEN I1=LN(I,0):I2=LN(I,1):I=LN(I,0):GOTO 910›900 I1=LN(IZ},1):I2=LN(I,0):I=LN(I,1)›910 XT1=X(I1):YT1=Y(I1):ZT1=Z(I1):XT2=X(I2):YT2=Y(I2):ZT2=Z(I2):FV=0:FH=0›920 XW=(XT1+XT2)/2:YW=(YT1Z }+YT2)/2:ZW=(ZT1+ZT2)/2:GOSUB 610›930 IF VIS(I)>0 THEN XT2=XW:YT2=YW:ZT2=ZW:GOTO 950›940 XT1=XW:YT1=YW:ZT1=ZW›950 QT=QT+1:IF QZ!}T<15 THEN 920›960 XW=XT2:YW=YT2:ZW=ZT2:GOSUB 610›970 GOSUB 670:P(I,1)=P(I,1)*T+XAD:P(I,2)=P(I,2)*T+YAD:VIS(I)=0:I=ISAVE›980 XZ"}1=P(LN(I,0),1):Y1=191-P(LN(I,0),2):X2=P(LN(I,1),1):Y2=191-P(LN(I,1),2):GOSUB 1550›990 IF O$="N" OR POK=0 THEN 1010›1000 ? #3;Z#}"M";X1*1.5;",";(191-Y1)*1.5;"*D";XW*1.5;",";(191-YW)*1.5:PC=PC+1›1010 NEXT I›1020 IF PC>0 THEN ? #3;"H*M0,-300*I":PC=0›1030 FZ$}OR X=15 TO 0 STEP -1:SOUND 0,128,10,X:NEXT X›1032 REM *** HIT SPACE BAR TO SAVE SCREEN *** ›1035 IF PEEK(764)<>33 THEN 1Z%}040›1037 POKE 764,255:GOSUB 10000›1040 IF PEEK(53279)=7 AND STRIG(0)=1 THEN 1035›1050 GRAPHICS 0:? "LAST PARAMETERS:"›1060 ? Z&}:? "OBSERVER: ";OX;",";OY;",";OZ:? "VIEWPOINT:";VX;",";VY;",";VZ:? "ZOOM:";ZOOM›1065 ? :? "ENTER NEW SLIDE FILE";:INPUT B$›10Z'}68 GOTO 340›1070 REM ***************************›1080 REM * LOAD 3-D IMAGE FILE *›1090 REM ***************************›11Z(}00 CLOSE #1:? :? "ENTER FILENAME TO LOAD";:INPUT F$:TRAP 1200:OPEN #1,4,0,F$:TRAP 1180›1110 INPUT #1,PS:DIM X(PS),Y(PS),Z(PS)Z)},P(PS,2),VIS(PS)›1120 FOR X=1 TO PS:INPUT #1,Q1:X(X)=Q1:NEXT X›1130 FOR X=1 TO PS:INPUT #1,Q1:Y(X)=Q1:NEXT X›1140 FOR X=1 TO Z*}PS:INPUT #1,Q1:Z(X)=Q1:NEXT X›1150 INPUT #1,LS:DIM LN(LS,1)›1160 FOR X=1 TO LS:INPUT #1,Q1:LN(X,0)=Q1:INPUT #1,Q1:LN(X,1)=Q1:Z+}NEXT X›1170 CLOSE #1:TRAP OFF:GOTO 340›1180 ? :? "}FILE FORMAT ERROR!":GOTO 1210›1190 ? :? "}I/O ERROR - ";PEEK(195):GOTO 121Z,}0›1200 ? :? "}CAN'T OPEN FILE!"›1210 ? "PRESS RETURN":INPUT IN$:RUN ›1220 REM ***************************›1230 REM * SAVE 3Z-}-D IMAGE FILE *›1240 REM ***************************›1250 CLOSE #1:? "ENTER FILENAME TO SAVE";:INPUT F$:TRAP 1210:OPEN #1,8Z.},0,F$:TRAP 1190›1260 ? #1;PS›1270 FOR X=1 TO PS:? #1;X(X):NEXT X›1280 FOR X=1 TO PS:? #1;Y(X):NEXT X›1290 FOR X=1 TO PS:? #1;Z/}Z(X):NEXT X›1300 ? #1;LS:FOR X=1 TO LS:? #1;LN(X,0):? #1;LN(X,1):NEXT X:GOTO 1170›1310 REM ***************************›1320 RZ0}EM * EDIT THE 3-D IMAGE DATA *›1330 REM ***************************›1340 TRAP OFF:? :? "PRINT, EDIT OR QUIT";:INPUT A$:IF A$=Z1}"E" THEN 1410›1350 IF A$="Q" THEN 340›1360 IF A$<>"P" THEN 1340›1370 TRAP 1340:LPRINT "POINTS:";PS:LPRINT ›1380 FOR X=1 TO PSZ2}:LPRINT "POINT ";X;": ";X(X),Y(X),Z(X):NEXT X:LPRINT ›1390 LPRINT "LINES:";LS:LPRINT ›1400 FOR X=1 TO LS:LPRINT "LINE ";X;": Z3}";LN(X,0);" TO ";LN(X,1):NEXT X:LPRINT :GOTO 1340›1410 TRAP OFF:? :? "EDIT POINT OR LINE OR EXIT";:INPUT A$:IF A$="L" THEN 14Z4}80›1420 IF A$="E" THEN 320›1430 IF A$<>"P" THEN 1410›1440 ? :? "ENTER POINT# OR RETURN";:TRAP 1410:INPUT PT:IF PT>PS OR PT<0 Z5}THEN 1440›1450 ? :? "X=";X(PT),"Y=";Y(PT),"Z=";Z(PT)›1460 ? :? "ENTER NEW X,Y,Z OR RETURN":TRAP 1410›1470 INPUT Q1,Q2,Q3:X(PTZ6})=Q1:Y(PT)=Q2:Z(PT)=Q3:GOTO 1410›1480 ? :? "ENTER LINE# OR RETURN";:TRAP 1410:INPUT LN:IF LN>LS OR LN<0 THEN 1480›1490 ? :? "Z7}FROM POINT:";LN(LN,0):? " TO POINT:";LN(LN,1)›1500 ? :? "ENTER NEW LINE POINTS OR RETURN":TRAP 1410›1510 ? "FROM POINT:";:INZ8}PUT Q1:IF Q1>PS THEN 1510›1520 LN(LN,0)=Q1›1530 ? " TO POINT:";:INPUT Q1:IF Q1>PS THEN 1530›1540 LN(LN,1)=Q1:GOTO 1410›1550 Z9}REM ***************************›1560 REM * GRAPHICS CLIP ROUTINE *›1570 REM ***************************›1580 L1=0:L2=0:R1=0Z:}:R2=0:T1=0:T2=0:B1=0:B2=0:POK=0›1590 IF X1XR THEN R1=1›1610 IF Y1>YB THEN B1=1:GOTO 1630›1Z;}620 IF Y1XR THEN R2=1›1650 IF Y2>YB THEN B2=1:GOTO 1670›1660 IF Y2Z<}XR OR Y1YB OR XW}XW>XR OR YWYB THEN RETURN ›1720 PLOT X1,Y1:DRAWTO XW,YW:POK=1:RETURN ›1730 IF L1+T1+B1+R1=0 THEN XW=X3:YW=Y3:RETURNZ?} ›1740 IF L1 THEN XW=XL:YW=Y3+(Y4-Y3)*(XL-X3)/(X4-X3):X3=XW:Y3=YW:IF Y3>=YT AND Y3<=YB THEN RETURN ›1750 IF R1 THEN XW=XR:YW=Z@}Y3+(Y4-Y3)*(XR-X3)/(X4-X3):X3=XW:Y3=YW:IF Y3>=YT AND Y3<=YB THEN RETURN ›1760 IF B1 THEN YW=YB:XW=X3+(X4-X3)*(YB-Y3)/(Y4-Y3):ZA}X3=XW:Y3=YW:IF X3>=XR AND X3<=XL THEN RETURN ›1770 IF T1 THEN YW=YT:XW=X3+(X4-X3)*(YT-Y3)/(Y4-Y3):X3=XW:Y3=YW›1780 RETURN ›99ZB}60 REM ***************************›9970 REM * SAVE LATEST SCREEN TO *›9980 REM * LATEST .PIC FILENAME *›9990 REM *******ZC}********************›10000 OPEN #1,8,128,B$›10010 RTOP=256*PEEK(106):BASE=PEEK(88)+256*PEEK(89):BTS=RTOP-BASE:HI=INT(BTS/256)ZD}:LO=BTS-(HI*256)›10020 POKE 850,11:POKE 852,PEEK(88):POKE 853,PEEK(89):POKE 856,LO:POKE 857,HI›10030 DUM=USR(ADR("hhh*LVd"),1ZE}6):CLOSE #1›10040 FOR X=15 TO 0 STEP -1:SOUND 0,128,10,X:NEXT X›10050 RETURN ››Current unit: 11 (SOUND/GRAPHICS #2)›Download ZF}options: D,E,H,L,R,S,U or ?x›>********************"›120 ? "* 3-D IMAGE PLOT SYSTEM *"›130 ? "* BY TOM HUDSON *"›1X@ghÐêüOFÆA¤ARRAY¤SORT¤ØÉIÉNUMREÃÁROWÓRO×LASÔËBEg##@@c~~@@ @@A˜q^H} @ @ @ @% '@‚@'@ƒ@96€-BEg..;@5,‚;@d$@,ƒ;^I}A&,(J +A*@J@@K:2II6ƒ.?hh…Ùh…Øh…Ñh…Щ…Ú…Ï¢¥Ø…Ö¥Ù…×¥Ö…Ô^J}eÍ…Ö¥×…Õi…פ˥Îð ±ÖÑÔ,ð °±<RR6ƒ7@d,.?ÖÑÔ ð°ÈÄÌðã°ß©…ڤ͈±ÖH±Ô‘Öh‘ÔÀÐñèàÐæÏäÐЬ¥ÑÅÏЦ¥ÚÉÐ`F3( ( (3^K}(" THIS PROGRAM PRINTS DISK MENUSP&&( ALPHABETIZED IN COLUMNSZ''( ON THE ATARI 1020 PLOTTERd&( ( ^L}(#(TURN ON YOUR 1020.&(n)&(INSERT DISKETTE INTO DRIVE #1.)(x (TYPE ÒÅÔÕÒÎ WHEN READY.‚)@ˆ(Œ ^M}A –2@.@@P:2 € (@ª2.(&ENTER DISKETTE NAME ( ÒÅÔÕÒÎ to Quit )2^N}´6„-4¾3 6‚. $6‚7@d$@,. 36‚7@,.‚È##(@ Disk name =  Ò%%Çåô ôè^O}å Äéòåãôïòù Éîæïòíáôéïî  ›Ü0&@@D:*.*0 A€æ…-@@dð@ú,&6‚7…$@^P}&@<…$@,.,6†-… …%%Äïî§ô óïòô øøø ÆÒÅÅ ÓÅÃÔÏÒÓ íóç›6‡-†&@"@ €,%%ªªªªªªªª ^Q}Óïòô ôèå Áòòáù ªªªªªªª›6%%ÓÔÁÒÔ ÁÎÄ ÅÎÄ ÏÆ ÓÏÒÔ ËÅÙ      ›@'A@'A@J%%ÒÅàÌÅÎÇÔȽ±·¬ ×ÁÎÔ Á^R}ÓÃÅÎÄ®    ›T'A@'A^%%ÎÏ× ÍÁËÅ ÔÈÅ ÕÓÒ ÃÁÌÌ          ›h6ˆ-?:C:ƒ,>(@M‚,6@$+A&ƒ,*J0,4;1,0;0,-4b]}hF:A,A€| €¤TITLE AND INITIALIZATION›¸@@6‘.6h¢©B©èD©E©H©I©…à ¥àÉð É ðÉð:AU,QQ6‘7A),.>`©ÅêðRðɥ頑à©Peà…à©eá…áææ©`ÅæÐ/©ÅìЩeä…ä…à©…ì…æeå…å…0GG6‘7A‘,.4áæì©(eä…àba}©…æeå…á¥ëð°Ð•¥é ‘à©eà…à©eá…á¥ëð—Ðå:GG6•.=h­0…à­1…á©eà…à©eá…á ©AÑàð©Ñàð©OÑàð ÐÝ©‘àÖ©N‘àÏ`D$XRR9bb}@,„9@,…;@,†;@,‘;AB,“;A(,•;@a,l' +@'0@€'-@bc}@'(@1020”*-@@*(@picture¨(-@@((@íáëåò¼;AR@bd};(!(c)1984 George L. GraffÐ A@Ú #A`ä(‡-@"ˆ$6„8‡,-ˆ( ‡ø712,708,709be},710› $‡-@ 68‡,-‡$ ‡ 6‰-@€6Š-A)46‹-A'A‹H6Œ-@ˆ\''READ MACHIbf}NE LANGUAGE ROUTINES305›f #A@pM‚-@A"'6“7‚,.>:,+ ‚?‚-B&•B(7C"I‚M ‚z‚-A6bg}AV{ " ‚| ‚„’;@,˜OPEN PICTURE FILE›¬TRAP 940›À##(ÔOUCH TABLET OR ÇRAPHICS 8?Ôbh}’è’0T*’0G A `üG }ENTER FILENAME…-‡-@B:…,:…7‡<‡,4:='G A€ ‡$! 6†.…6….D:bi}!6…7@,.†8+@+@@…LDISPLAY PICTURE›V/ +@$/6Ž-F:A`,%F:Aa,$AVbj}j Œ‰Œ%@Št! ’4G6-?:C:“,,! A€~6-?:C:•,,ˆ6-?:C:‘,,6-@œ++POKE SAVMSC,MEMLO:POKbk}E SAVMSC+1,MEMHI›°A`Ä6-?:C:“,%@x,Ø#ì ‡-@ 6ˆ-8‡,ˆ"„8‡,bl}ˆ"@„8‡,AH(ˆ"@„8‡,A˜<ˆ"@„8‡,@pPˆ"@„8‡,@d ‡bm}xIŽ%@‰Ž%@Š3Ž%AIŽ%AŠ%@Œ6‚-F:B2y, %‚"@6-@% A bn}´‚"@$È A ÜSELECT COLORS›ð(Choose Pen Color:( Black °( Blue ±bo},( Green ²@( Red ³T( Blank ´hS‡-@B( Pen Color No.‡%@bp}?8‡,FˆO68‡,-ˆS ‡| AGRAPHICS 7+ CONVERTER›¤AND SCREEN LOADER FROM›¸A.N.A.L.O.G. NO. 12›Ìbq}ZZ216,104,173,48,2,24,105,3,133,203,173,49,2,105,0,133,204,160,0,177,203,201,79,208,21›à]]169,78,145,203,165,203,24,105,2br},133,203,165,204,105,0,133,204,169,0,240,14,201,15,208,6›ô]]169,14,145,203,208,4,201,65,240,17,165,203,24,105,1,133,203,165bs},204,105,0,133,204,169,0›]]240,198,96,104,162,16,169,7,157,66,3,169,0,157,72,3,169,30,157,73,3,165,88,157,68,3,165›==89bt},157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,96›0PRINTER DRIVER›D%%104,104,104,133,205,165,204,208›X!!12,169,0,bu}133,208,169,64,133›l 206,169,1,133,207,169,1,36›€$$208,208,95,198,206,198,206,165›”##206,201,254,208,19,198,207,16›¨$bv}$15,230,208,165,208,201,192,144›¼ 228,162,0,134,204,76,7,128›Ð!!32,18,128,133,203,6,203,230›ä!!206,32,18,128,198,206,bw}5,203›ø%%197,205,208,201,134,204,165,208› !!133,212,6,212,169,0,133,213› ""38,213,96,162,96,165,206,133›4##85,165,207bx},133,86,165,208,133›H84,169,7,157,66,3,169,0›\157,72,3,157,73,3,32,86›p""228,96,230,206,230,206,208,2›„$$230,207,by}165,206,201,64,208,176›˜ 165,207,240,172,76,224,127›¬ (ý@ A@üGG162,16,169,1,157,72,3,169,0,157,73,bz}3,32,86,228,48,1,96,104,104,96›(#$‚-@@ (F:Ž%‚,$ ‚€D2:BOBSPGM.V20DE¤A@`YTU $COLÒPEN¨ØPIXEÌMEMLOC¨ÉÒÏMEMLÏMEMHÉRÔSAVMSÃÎFILE¤DLISÔÁSAMVSÃ×A¨OUTFILE¤LÎMEMLOÃTEMP¤@f|}@ € @f}}€€ 1020 PICTURE MAKER› Ap A(##@@P:2(f~}@*H*I<€-@F8€,"@APP&(@H&(@C8€,ZAdf}6‚-?:B&•<€,n B'gx-6ƒ-F:A,F:A,-6ƒ-ƒ%AV‚>>(@M‚,6@$+A&ƒ,*f€}J0,4;1,0;0,-4ŒF:A,A– € ©TITLE AND INITIALIZATION›ª119@,„9@,;@,–;@f},´' +@'0@¾'-@@'(@1020È*-@@*(@picturef‚}Ò(-@@((@íáëåòÜ;AR@;(!(c)1984 George L. Graffæ(…-@"†fƒ}$6„8…,-†( …ð712,708,709,710›ú$…-@ 68…,-…$ …6ˆ-@€6‰-A)6Š-A'AŠf„}6‹-@ˆ"''READ MACHINE LANGUAGE ROUTINES305›,G‚-A6AT"Œ!‚Œ% ‚9‚-B&•B(7="ŒC‚ŒG ‚f…}5OPEN PICTURE FILE›6 A@G }ENTER FILENAME-…-@B:,:7…<…,4:='G APJ …T$& 6–.f†}6.D:$67@,.–^+@+@@gDISPLAY PICTURE›h> +@$/6Ž-F:A`,%F:Aaf‡},$AV>6-?:A6,r ‹ˆ‹%@‰|‡A†6-?:A,#š …-@ 6†-8…,¤fˆ}†"„8…,®†"@„8…,AH¸†"@„8…,A˜Â†"@„8…,@p̆"@f‰}„8…,@Ö …àIŽ%@ˆŽ%@‰3Ž%AIŽ%A‰%@ê6‚-F:B2y,ô%‚"fŠ}@6‡-@% A0þ‚"@$ ASELECT COLORS›(Choose Pen Color:( Black f‹} °&( Blue ±0( Green ²:( Red ³D( Blank ´NS…-@B(fŒ} Pen Color No.…%@?8…,F†O68…,-†S …X A`bGRAPHICS 7+ CONVERTER›lAND SCREEN LOADER FROMf}›vA.N.A.L.O.G. NO. 12›€ZZ216,104,173,48,2,24,105,3,133,203,173,49,2,105,0,133,204,160,0,177,203,201,79,208,21›Š]]169,fŽ}78,145,203,165,203,24,105,2,133,203,165,204,105,0,133,204,169,0,240,14,201,15,208,6›”]]169,14,145,203,208,4,201,65,240,17,1f}65,203,24,105,1,133,203,165,204,105,0,133,204,169,0›ž]]240,198,96,104,162,16,169,7,157,66,3,169,0,157,72,3,169,30,157,73,3,f}165,88,157,68,3,165›¨==89,157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,96›²PRINTER DRIVER›¼%%104,104,104,133,205f‘},165,204,208›Æ!!12,169,0,133,208,169,64,133›Ð 206,169,1,133,207,169,1,36›Ú$$208,208,95,198,206,198,206,165›ä##206,20f’}1,254,208,19,198,207,16›î$$15,230,208,165,208,201,192,144›ø 228,162,0,134,204,76,7,128›!!32,18,128,133,203,6,203,230›f“} !!206,32,18,128,198,206,5,203›%%197,205,208,201,134,204,165,208› !!133,212,6,212,169,0,133,213›*""38,213,96,162,96,f”}165,206,133›4##85,165,207,133,86,165,208,133›>84,169,7,157,66,3,169,0›H157,72,3,157,73,3,32,86›R""228,96,230,206,f•}230,206,208,2›\$$230,207,165,206,201,64,208,176›f 165,207,240,172,76,224,127›z (ý@ @0€D:DUMPf–}ERTU $COLÒPEN¨ØPIXEÌMEMLOC¨ÉÒÏMEMLÏMEMHÉRÔSAVMSÃÎFILE¤DLISÔÁSAMVSÃ×A¨OUTFILE¤LÎMEMLOÃTEMP¤@dA¤Î#P@ ##@@P:(@(@I(€;@€,2j˜}(INPUT A STRING<€F(@IP-@Z(@M,0d(@P€i(@j™}P*In x @P€D:BOLD1@P:(@(@I(€;@€,2h*CDL  ÁÂÃÄØÙËÊÉAÁBÂCÃDÄZÚEÅFÆGÇÑÒÓÔ×ÍÎÐÖÌÈADÙÕA¤NAME¤LOOÐÀÀ@A“A'@WAn›}S@ @@$@@Anœ}AAP@!@   @è NO TWO DRAWINGS ARE ALIKE!›üž;@n},Ÿ;@,(TYPE IN YOUR NAMEŸ{6’-@6–-A'6—-A36˜-AP?6‘-K6•-@W6”-@nž}c6“-@$o6š-@u6›-‘{6-•$S•š‘P:(•&(•C‘8(•M‘,6—>"•C•I6-‘S A`8nŸ}6€-P:H:‘,$’,6-P:H:‘,$’,L6‚-P:H:‘,$’,6ƒ-P:H:‘,$’,`6„-P:H:‘,$–,6…-P:H:‘,$—,t6‡-P:H:‘,$–,6†-P:H:‘,$—,ˆn }! ˆ-•š6›-›%•›"”$”!6›-‘œ ™-•’$”™"’$” (•C›°%(•M„,…%(•D‡,†Ä# 6„-„%€6…-…%6‡-‡%n¡}‚#6†-†%ƒØ „–6€-6€6„-„%€ì ‡–6‚-6‚6‡-‡%‚ ‡‘6‚-6‚6‡-‡%‚ „‘6€-6€6„-„%€( …—6-66…n¢}-…%< †—6ƒ-6ƒ6†-†%ƒP †‘6ƒ-6ƒ6†-†%ƒd …‘6-66…-…%x( ™ ˆ#(•M‘,6A(•Ð##@n£}@P:Ú(@ä(@I*S63*Q1î -@ø(@C (@n¤}M ,0 (@PŸ   @¸ ##@@P: (@Ì (@n¥}I*S10*Q1Ö (@IÛ (@C2à (@M400,0ê !!(@PFIRST UNITARIANô (@M310,0n¦}ù (@C3þ (@P Sunday School (@ M220,0*C0 (@ P 1 - 5 (@ M22n§}0,0*C1 (@ P 9 8 (@ M220,0*C2 (@ P 8 9 (@ M220,0*C3 (@n¨} P 4 1 (@ M130,0*C0& (@ PBest of Love0 (@M70,0*C0: (@S5D ##(@n©}P --Your teachersN (@M0,0*C3X (@S7b $$(@PSEE YOU NEXT YEAR!l (@ M0,-9nª}00*I (@C0@ª A%€ D:SUNDAY1N EmmyyÀ@A“A'@WAlQ#$TG]NUÍMOVETOØMOVETOÙLOOÐDRAWTOØDRAWTOÙ@A@’@A0@$ Bè##@r¬}@P:ò(@ü(@IL "€‚V(@M,6‚°ƒ-@€º "„…Är­}(@D„,6…Î ƒØ A'HH8,50,189,77,200,161,174,161,35,130,24,50,49,50,189,130,163,161,174›'555,13r®}0,163,130,130,95,118,95,128,115,135,130,130›$'%%3,95,128,95,156,115,149,115,135›.'556,95,156,65,165,65,63,115,47,115,67,95,r¯}74,65,63›8'!!3,95,74,95,85,115,92,115,67›B'2,115,92,130,97,130,24› N(@M0,0*N€D2:IMPOSSI.BLEpw Welcome to the ACE 1020 Printer › Plotter Disk!› › We've packed this disk with a lot of › 1020 fun and learning!› › First ofv±} all, this disk contains all › the utilities that came on the › cassette you received with your 1020 › Printer Plotter. They v²}are all ready › to run.› › There's been one small change:› › To run the joystick DRAW program you › have to rename the file Dv³}RAWAUTO.SY › to AUTORUN.SYS and revoot the disk › with BASIC installed. It will load › in a short handler routine for the › mv´}ain program.› › In all other respects, consult the › documentation you received with your › printer-plotter.› › In addition tvµ}o the Atari programs › that came with your 1020, the › members of ACE have included a few › programs, utilities, and demo's ov¶}f › their very own.› › Your 1020 will print great labels › for your disk library. You'll want › to check out DIR1020.BAS and v·}› LBL1020.BAS to get your disk › collection organized. (LBL1020 wll › sort the files into alphabetical › order.)› › We've alsv¸}o included Dick › Brudzynski's adaptation of ZPLOTTER › (from ANALOG #30). It'll plot some › spectacular graphics for you on v¹}the › 1020! › › If you haven't tried ZPLOTTER before › here's some data to get you started:› › Z=Y*COS(3*X)› › LOW Z=-6› HIGHvº} Z=6› › LOW X/Y=0› HIGH X/Y=6.28› › Once you get started plotting these › 3-D graphs, you'll find it hard to › stop!› › For tv»}hose of you with the excellent › ATARI LOGO cartridge, we have › PLOT.LGO which demonstrates how to › use your plotter with Lv¼}OGO.› › Of course, no 1020 disk would be › complete without TOM HUDSON's › spectacular "Solid States" › (SOLIDS.BAS). It'll pv½}lot to screen › or plotter 3-D views of any object › rotated to any orientation and › viewed from any distance! Since your › v¾}ATARI becomes a spectacular 3-D › world, it may take some getting used › to before you can successfully › navigate in your nev¿}w found universe. › We really recommend reading › SOLID.DOC before starting out!› › We've got some 3-D pictures for you › to vÀ}plot; they're the file with the › .DAT extenders.› › When TOM heard we were putting › together this disk he volunteered a › pvÁ}reviously unpublished utility which › runs a hitherto secret "hidden line › algorithm" which will eliminate the › see throughvÂ} views provided by the › main program. TOM warns that this › utility takes awhile to run!› › Do you have a Koala Pad, Touch ›vÃ} Tablet, or Micropainter? You do! › GREAT! We've got two super utilities › for you that will dump your PIC's to › the plottervÄ} in gorgeous color! › › PM1020.BAS will handle your KOALA or › Touch Tablet PICS.› › VCWPLO.BAS will dump any file in the › "vÅ}standard" (62 sector) Micropainter › format!› › We can guarantee that you'll be › fascinated by the process of › watching youvÆ}r picture unfold.› › We have a couple short DEMO's on the › disk:› › BOLD.BAS will show you how to › produce BOLD print on yovÇ}ur plotter!› › BANRDEMO.BAS uses the BOLD technique › (rotated 90 degrees) to generate › banners and other pretty printing!› vÈ}› We've also included IMPOSSI.BLE, a › BASIC program which uses data › statements to plot an "impossible" › picture--one way vÉ}you can include › 1020 graphics in your programs.› › You can play around with the code in › impossible by changing the signs vÊ}of › the coordinates to produce mirror › and inverse images or multiply or › divide by a "scaling" factor to › produce a REALvË}LY BIG or really small › "impossible" drawing! You can also › add and subtract constants from your › coordinates to move the vÌ}figure › around on the paper.› › (Incidentally, the drawing was › produced by tracing a figure in a › book and then superimpovÍ}sing the › tracing on a sheet of graph paper to › get the coordinates. Much more › complex drawings are possible using › thisvÎ} technique!)› › How does ZPLT1020.BAS produce those › fast plots of complex geometrical › shapes? To see, try BREAKing the › vÏ} Welcome to the ACE 1020 Printer › Plotter Disk!› › We've packed this disk with a lot of › 1020 fun and learning!› › First oft}