@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}A HE |||DDOS DOSDOS SYS }}}}}UV}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED MANUAL TXT 173 COPYING---D1:MANU4}AL.TXT# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD 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 AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u) !"`3!3?@ABCDEFGHIJ}KLMNOPQRSTUVWXY}Z[\]^_`abcdefghi}jklmnopqrs6-6-@'6-@36-}??6-@K6-@W6-@c6-@o6-@{6-@6-@ 6-@6-@6-@}6-Ap6-@6-A 6-@#6->6-@@6-@e'6-@g36-@h?6-@i}K6-A pW6-@rc6-A`o6-A!`{6-A!p6-A16-A"6-AU6-AV6-A`}6-AC'6-A$36-A%?6-ApK6-A5W6-Agc6-A'o6-AG {6-AQ6-Ad6-B}www'6-A06-Aip'6-AI;,;,9<, $S 6.Y6-66- 6.I&6-.-96}-8<,D6-8<,S6A "6.Y A!C 6-%6-$+&,6-%-6-+&,$%;6-+&,$%}C6.I  )!6.O  )!6.O(4I*4I A 24O*4O A<4I*4O }A`d " n 6-6-"A"A@    6-8<,6-8<,  }!6-  6-  !6-  6-" / ,J  *  T !*! ^ } *  h !*! r " | 6-6-"A`"A   36-8<,6-8}<,$6-8<,/6-8<,3   6-6- !6-6-   6-6- !6}-6-& ,/ Db"Al"A @ "     6-8<,6-8<, } !6-  6-  !6-   6- ,6.N6.I >! 4}Y,6.N! R! /4O6.I!6.Yf p 6.Y6.Oz 6-6-   $O 6-&6-}&6-6+',*6-%+$,06-8->"D6-O6-6$%  "6-6-6$%  "6-6-+&,'6$  "}6-6-+&,'68  !)  B  !)  V  !*! `   *  j  !*! t   *   }* 6-%68<,-!68<,-'"*$   $   ""6-6-  ""  !6-% A%p}   6-(  &!$2  % $<  &!$F  % $P G 6--6-%/68<,-+$E:,,%C6}8<,-+$G:,,%G     J+ ;,;,/9A<,;,;,JD1:PRINTGR8.OBJ L ))})))6-$%0)7)E-$%&%L;,, < -)7,.>:," '1 A)p5"8#<  @"(}DATA SETS ON DISK DRIVE #1, A0 @D1:*.DAT  )(>:, A0 o A1`(1(INPUT NAME OF }DATA FILEP(FOR EXAMPLE:'D1:DEMO1.DAT'o(THIS FILE SHOULD HAVE BEEN l#(SAVED WITH THE LIST COMMAND&(6( FILE NAME=}:=(Y(I'M ATTACHING YOUR DATAl(STATEMENTS NOW& 1((TYPE RUN AFTER READY#- B1 X b (( BAD F}ILE NAMEv  5 AX6-6-A%6-16-A5   A 6-&6-&6-&#6-&+6-'36-}'A6-?u$    A4 * A 6-$6-+&,'6-&'6-%/6-&76-'A A4`\ 7 6-'6-+&,'}6-&'6-%/6-&76-'  B+%@0+6-+&,'+&,;6-+&,'+&,B6-6 6-+%,' A7`}$ 6-6-.M -2@#-' 129-= A G6-M6-t'-A }F:,'' A7@  A60!K:)!  6-6-C:,6-C:,J  "6-}P:,6-%(67,.=:,16-B:,A67%,. OF J6-B:,2567%,.=:,6-B:, "/6. 56-PB "*}967%,. ATARI LAYOUT BY JACK GILCHRISTB6-B:,Z> "567%,. >6-B:,d(6-?:}<<<<, )!( AG/%AC/ A83"-" 68<,-+68<,-}/ 3 &N "AD`b lG 6-$+8<,&, 6-%+6-8<,96-+&,$%G6-+&,$%C6}-$+8<,&,6-%'6-8<,56-+&,$%C6-+&,$% ! $   $ ! $   $   6-} !6-   6-* !6-4 -,/ $f( BAD COMMAND p-+ 0}0%0-0U - (DISPLAY OPTIONS&-<((A) SET WINDOWB-U( (B) DISPLAYN - (}(C) NEW DRAWING&-8( (D) RETURN>-N((E) STOP$+K:)' )!+ B " +L} "%D1:DRAWV "% D:DRAW2D.MSH` "  j# A2`~]+ (INPUT DATA MAX-MIN'S/( XMA}X==( XMIN=L( YMAX=Z( YMIN=](Y(CURRENT WINDOW RANGE+( XMAX=9( XMIN=H( YMAX=V}( YMIN=Y( m(YOUR OPTIONS ARE!+( (A) SHIFT X=( (B) SHIFT YX( (C) SET CENTER XC,YCm( (D) SCALE BY #}<]( (E) SET SCALE,( (F) SET WINDOWL( (G) WINDOW=DATA MAX-MIN'S]( (H) RETURNd+K:)'} )!+  " $+"@q6-6-!6-'6-+  " AS0"@f AS " AT0} " AUP " AVp"@p AW=(%(INPUT DESIRED SHIFT IN X )16-%96}-%= =(%(INPUT DESIRED SHIFT IN Y )16-%96-%= 6@g(+( INPUT X AND Y DESIRED AT CENTER!}B(CURRENT CENTER ISN6-+%,'Z6-+%,'g( XC=r`( YC=(*(DESIRED CENTER IS 086-&@6-%H}6-%P6-&X6-%`6-% T6-O:+&,'+&,,(.(CURRENT SCALE=D(CHANGE SCALE BY=HT6-+%,}'O6-+%,'6-+&,''6-+&,'16-%';6-&'E6-%'O6-&' &0T6-O:+&,'+&,,(.(C}URRENT SCALE=D(CHANGE SCALE TO=HT6-+%,'XO6-+%,'6-+&,''6-+&,'16-%';6-&'E6-%'O6}-&' Y(( YOUR VALUES0( WILL BE ADJUSTED TOV(!PROPORTIONAL RATIO OF THE TV TUBEY(b&(INPUT YOUR VIE}WPORT AS FOLLOWS>(XMAX,XMIN,YMAX,YMINT(YOUR VALUES ARE ^b  7 6-66-6-66-!+'/0}70HG 00--( PLEASE WAIT!3-G( I'M SCANNINGzP -( YOUR DRAWING#-7(} FOR IT'S X,Y=-P( MAX-MIN'S! AfP6-!"6-%!")"Ab!* @Ac}"Ad0!* AePZ$(I ENCOUNTER A TYPE OF DATA IB(DON'T RECOGNIZE. TYPE=Z(ENTITY NUMBER IS }8V """j %!6-%t & 6-&~ %!6-% & 6-& 1} -6-8<,%6-8<,+!16-  6- !6-  6-    <!"-"}!!6-d  6-n !6-x  6-    ""  !6-  6}- !6-  6- > 6-%6-%6-&#6-&)6-/6-56-;6->$,J "6-B}:, $rE6-$+&,6-%%6-+&,$%36-+&,$%E6-+'A ,$ "6-&+',-6-+'A,$@$}!"-6-&+',* 6-C:,"$6-@ &+',*6- - )!@9 !@"*!  } )! <6.7<,(6-%+$+P:+&P:,,$,,,<6-?:C:,<<<<,:  )"6-%D ")"6-%N   $b}" " 6-%"6-6  6-%6-6 " "T 6-68<,-68<,-,68<,-%768<},-G68<,-8<,T68<,-%=68<,-68<,-8<,)68<,-468<,-: =$36-8<,6-8<,!-}'"-6-36-4 "6-@6->ArpH;6-8<,&6-8<,&06-M:+$,%+$,,;6-D:',f}: 6-%68<,-+$E:,,%368<,-+$G:,,%7 :$ D:DRAW2D.MSH7Q7Q9Q16Q17Q19Q20Q25Q25Q36Q39Q48Q50M10000 REM BOX10010 DATA 10,0,0,10,1010015 REM TITLE10020 DATA 1,0,0,TEXT TYPE 110025 REM OTHER TEXT10030 DATA 2,5,1,TEXT } TYPE 210040 DATA 4,5,2,TEXT TYPE 410050 DATA 3,1,5,TEXT TYPE 310060 DATA 5,3,5,TEXT TYPE 510070 REM SOLID BOX11000 DATA } 11,0,0,1,111005 REM ANGLED BOX11010 DATA 12,7,7,1,2,2011015 REM FULL CIRCLE11020 DATA 8,10,1,8,.7511025 REM CCW ARC110 }30 DATA 7,10,5,5,2,-30,300,0,0,10,1010015 REM TITLE10020 DATA 1,0,0,TEXT TYPE 110025 REM OTHER TEXT10030 DATA 2,5,1,TEXT cdABFILENAMECLIPXYZTEXTCS1PTPTLASTANSM1VTYPETTADRADRIIALASBLASKPTCNDIFACENTEAMIRELUM$}IBMIRELVMAUMAVMIUVULASVLASCNDIFDIFMCUVBEGIENPRINTADRAMADIFBMARELARELUNDELTFIBCENTEIECNTYP$}ECNTXXYYZZXMAXMIYMAYMIZMAZMIAABBCSCALSCALXCENTEYCENTEZCENTEANGANGANGXYXYDIFDIFANPLP$}@@@ $}$} !"#$%&'()*+,-./$}0123456789:;<=>$}?@ABCDEFGHIJKLMN$}OPQRSTUVWXYZ[\]@^$}_`abcd@ef| PLOTING CODE DRAW3D $}|| RELEASE 1.0 |;@,;@,..9@P<@,;@@,;$}@,$..;@,;@,9@<@,.669@<@,;@,9@<@,86->6$}-BwwwB 6-C:,6-C:,L6.PLANV-@@`-@@j'68<,-'ZERO VIEW MA$}TRIXt ~ Z 68@<@,-@=68@<@,-@Z68@<@,-@))@@$}D:HIDDEN-@@-@@!@!BOX PLOT LOGIC68<,- $} @ A(| SUB. XYZ TO AB | FF6-8@<@$},$%8@<@,$%8@<@,$FF6-8@<@,$%8@<@,$%8@<@,$FF$}6-8@<@,$%8@<@,$%8@<@,$($2<| WINDOWING SUB. |F$}P 6.YZ 6-66-d 6.In6-x-@66-8<@,%6-8<@,$}66-8<@,| TEST FOR DATA COMMAND |6A$}COMMAND=1 IS PEN UP!"@6.Y! A$  | CONVERT XYZ TO TUBE UV |$} 6-%@ AXYZ TO AB6-?$+&, 6-%6-+&,$%$}6-+&,$%",| CLIP LOGIC |6@ 6.IJ  )!6.OT  )!6.$}O^4I*4I A#h4O*4O Ar4I*4O A!p|| PT$} IS OUT, LAST PT IN |"@A$p 6-6-"A"AP$}NOT 90 DEGREES TO EDGE A% @A$p16-8@<@,16-8@<@, $}AVERT LINE !6-  6-& A0:HORZ LINED !6-N  6-X$} / A$pb l | PT IS OUT, LAST PT OUT |v  * $}A$p!*!A$p * A$p!*!A$p"@A$p 6-6-"A p$}"A!LN HITS TUBE AT ANGLE A%@A$p16-8@<@,16-8@$}<@,16-8@<@,16-8@<@,  A!@VERT LINE ACROSS TUBE   6-6-* $}!6-6-4 A!@>HORZ LINE ACROSS TUBEH  6-6-R !6-6-\ ,f /p A$$}pz| PT IS IN, LAST PT OUT |"A#"$}A#PNOT 90 DEGREES TO EDGE"@A$p A% @A$p16-8@<@,$}16-8@<@, A#VERT LINE  !6-   6- A#$ . HORZ LINE8 $} !6-B   6-L  ,6.N6.IV ` | TRY TO DRAW |j t A$p$}~ # 4Y,6.N# A$ /  4O6.I6.Y A$  6.Y6.O  6-6- $}  $  | CLIP TO TUBE FOR ANGLE |  V=-M1*U+C1 EQ.$} FOR LINE SETUP EQ FOR PLOT PTS  6-&6-& 6-6+', 6-%+$, &6-&# OF SOLUTIONS FOUND( $}LOOP FOR PT ON EACH EDGE2 -@@< "@6- 6-6$%F "@6- 6-6$%P ""@$}6-"6-+&,'6Z ""@6-"6-+&,'6d TEST PT FOR ON TUBE BORDERn !) A'x !) $}A' !!TEST PT FOR IN RANGE OF PTS !*!A'  * A' !*!A'  * A'$} STORE ANSWER 6-%@ 68<@,- 68<@,- "@$   $ $} | CODE INITILIZATION |  +" INIT FOR DEGREES, !!LOAD ASSEMBLY CODE$} FOR TEXT6 00@@D1:PRINTGR8.OBJ@ {)@)@*)@7)@G6-$AV$}%T)@a)@{-$AV%&%@J  ;,6-C:,T .-@)@*7,.>:,. ^ %}@h r | GET DATA ATTACHED ||   A)`"# A1 ""%}(DATA SETS ON DISK DRIVE #1 DISPLAY DISK DATA SETS A0 ))@@D1:*.DAT ")@%}(>:," A0 @ A1P "("(INPUT NAME OF DATA FILE ""(FOR EXAMPLE:'D1:DEMO1.DAT' ""(THIS %}FILE SHOULD HAVE BEEN ##(SAVED WITH THE LIST COMMAND (( FILE NAME=  "("(I'M ATTACHING YOUR DATA (%}STATEMENTS NOW ((TYPE RUN AFTER READY& READ IN DATA STATEMENTS0 : BD A2N TRAP FOR B%}AD INPUTX (( BAD FILE NAMEb %l v | SET UP WINDOW MAX/MINS | %}  AR`CALC MAXMIN'S 6-@6-A 6-@6-A AA0 ""RETURN HERE AF%}TER WINDOW SET  6-&6-&  6-&6-&  6-'6-' CORRECT FOR SHAPE OF DOT 6-?u$ ""%} ""| MAKE WINDOW PROPORTIONAL | "" CHECK FOR DIFA TOO SMALL% }    A4 6-$* 6-+&,'@4  6-&6-%>  6-&6-'H A4PR 6-'\ 6-+&% },'@f  6-&6-%p  6-&6-'z WINDOW VALUES ALL SET NOW  | INIT FOR PLOT |% }  +@%@ '0@@ '@ ""SET UP TRANSFORMS TO CONVERT ""A,B% } DATA INTO TUBE U,V SPACE 6-+&,'+&, 6-+&,'+&, 6-6 6-+%,'@ 6-+%,'@ A7`% }| RETURN FROM PICTURE |$-AdAU!6-@-%}6-@.-@82@@B-@@ L%%2V%}-@@ ` j6-@6-@t-@A ~%F:Ad,AU'% A7@ %} A600#@@K:0)@@ AA0  | %}START LOOP FOR PLOTING | 6-GET NEXT COMMAND TYPE A5"6-P:%},6-%@67@,.=:,  6-B:,67%@,. OF  6-B:,(67%@,.=:,2 6-B:,%}<$ "6. $6-@FT"@*@K67%@,. ATARI LAYOUT BY JACK GILCHRISTT6-B:,PJ%}"@A67%@,. J6-B:,Z 6-?:<<@#<<,dn# @)!%}@# AA xqgAYAYAYAYAYA(A(A(A9pA@`A@`A@`q A8%}| SUB FOR PT ARRAY |"-@ "668%}<@,-%68<@,-668<@,-  A0| SUB FOR BOX |%} AcGET BOX CORNERS Ae DRAW BOX$( BAD COMMAND A5",| MA%}IN MENU |6@ +@AQ@J70@@ @70@@ @T70%}@ @70@@ @^,(@,(@ DISPLAY OPTIONSh+(@+(@ (A) SET %}WINDOWr((@((@ (B) DISPLAY|,(@,(@ (C) NEW DRAWING'(@'(@ (D) RE%}TURN%(@%(@ (E) STOP,(@,(@ (F) DATA REVIEW,(@,(@ (G) CHANGE %}VIEW;#@@K:0)@;@# @e)!@q# AA0#"@p AD#%} AA0"@i+"@h%D1:DRAW "@g % D:DRAW3D.MSH#"@e AFP# A%}A0#"@q Ah# AA`# A2P| SUB DATA REVIEW |&% }0 +:((XYZ DATA MAX-MIN'SD( XMAX=(XMIN=N( YMAX=(YMIN=X!( ZMAX%!}=(ZMIN=!(b(XYZ DISPLAY RANGEl( XMAX=(XMIN=v( YMAX=(YMIN=!( ZMAX=(%"}ZMIN=!(((( PROJECTION MAX-MIN'S (HORZ/VERT)( HMAX=(HMIN=!( VMAX=(VMIN=!( (CU%#}RRENT PROJECTION RANGE( HMAX=(HMIN=( VMAX=(VMIN='('( VIEW MATRIX BEING USED IS>%$}>(8@<@,8@<@,8@<@,>>(8@<@,8@<@,8@<@,>>%%}(8@<@,8@<@,8@<@, (HIT ANY KEY TO CONTINUE;#@@K:%&}0)@;@$ | SUB SET WINDOW | * +4(YOU%'}R OPTIONS ARE!>( (A) SHIFT HORZH( (B) SHIFT VERTR( (C) SET CENTER HC,VC\( (D) SCALE BY #f( %(} (E) SET SCALEp( (F) SET WINDOWz( (G) WINDOW=FILL( (H) RETURN;#@@K:0)@%)};@# @e)!@r# ACp"@r$U"@q6-6-!6-'6-96-+%,'@%*}K6-+%,'@U ACp"@e AH@"@f AH"@g AI@#"@h)"@%+}i# AP`"@p AQP SHIFT A((INPUT HORZ SHIFT 6-%6-% 6-% ACp%,} SHIFT Y$ ( (INPUT VERTICAL SHIFT.8 6-%6-%B 6-% ACpLSET X,Y CENTERV"("(%-}INPUT HORZ,VERT CENTER!`(CURRENT CENTER ISj( HC=t( VC=(~(DESIRED CENTER IS  ! %.}6-&6-%6-%!6-! 6-&6-%6-%!6- ACpSCALE OPTIONS6-O:+&,'+&,,%/}((CURRENT SCALE=M"@h%(CHANGE SCALE BY=);6-+&,'@M6-+&,'@M"@i%(CHANG%0}E SCALE TO=);6-+&,'@M6-+&,'@ 6-%' 6-&' 6-%'  6-&' ACp(%1}SET WINDOW VALUES(( YOUR VALUES2( WILL BE ADJUSTED TO<))(!PROPORTIONAL RATIO OF THE TV TUBEF(P&&(INPU%2}T YOUR VIEWPORT AS FOLLOWSZ++(#HORZ_MAX,HORZ_MIN,VERT_MAX,VERT_MINd(YOUR VALUES ARE n x'6-+%,'@%3}'6-+%,'@ ACp  | CALC XYZ & AB MAXMIN'S | %4}" 6-66-6-6-"6-! 6-6-6-6-!6- +@AQ@70@@ %5}@70@@ @70@ @70@@ @,(@,(@ PLEAS%6}E WAIT!,(@,(@ I'M SCANNING,(@,(@ YOUR DRAWING,(@,(@ %7} FOR IT'S 3D+(@+(@ MAX-MIN'S! AW6-",LOOP FOR EACH ENTITY6"%8}@6-%@J!!!@ * @AUT"@ AV^!!!* @AVPh$$(I ENCOUNTER %9}A TYPE OF DATA Ir!!(DON'T RECOGNIZE. TYPE=|(ENTITY NUMBER IS CALC MAXMIN OF BOXGET BOX CORNE%:}RS Ac-@@66-8<@,%6-8<@,66-8<@, Ag  AT%;}CALC MAXMIN OF PTARRAY"'-@"# Ag'  ATCALC MAXMIN OF TEXT%<}& "0"@ AT: AgD ATN 6-%6-%6-%X 6-&6-&6-&b6-+%=}%,'@l6-+%,'@v6-+%,'@ 6-6- 6-6- 6-6- AX 6-6-%>} 6-6-6-+%,'@6-+%,'@$| SUB FOR AB MAX-MINS |%?} 6-66-66-6--& -&-&  6-6-6- %@}A*  6-4  6-> !6-H !6-R   \$fp| %A}SUB FOR PLOT OF TEXT |z " A 6-B:, @$GET TUBE A,%B}B6-?$+&, 6-%6-+&,$%6-+&,$%CALC POSITION IN GR.06-+'A ,$@@!%C}"@!6-&+'@,6-+'A,$@$!"@!6-&+'@,3"@'6-@ &+'@%D},36-@#-@$# @)!@9# Ab`.#!@"*!@# Ab`8# )!@#%E}# Ab`B6.7<,LALLOW FOR VERT SHIFT TOVFRACTIONS OF A LINE`))6-%+@@$+P:+&P:,,$@,,,j%F}6-?:<<<<@,t' @)"@'6-%@~'"@)"@'6-%@ $%G}| SUB FOR BOX || CALC ALL CORNERS |" %H}6-%6-6 6-%6-6 6-%6-6"@"6-GET 8 CORN%I}ERS-% -%-%6-%@(668<@,-%68<@,-668<@,-2 %J}< F P$Zd| SUB TO DRAW BOX |nx 6-(-@@%K}(GET TUBE DEPTH66-8<@,%6-8<@,66-8<@, A+68<@,-@+68<@%L},-  6- MARK HIDDEN CORNERS-@@+8<@,"+68<@,- %M}SET UP DRAW TABLES6-@#-@@#BOX PLANE&-@@&PLANE CORNER$-@%N}@$CORNER XYZ68<,-88<,<,, 17'88<,<@,"Ag07HIDDEN CORNER6 @ A%O}`DRAW PLANEJ T$^h| TEST XYZ FOR MAX-MIN |r| %P}!6-  6- !6-  6- !6-  6-$| S%Q}ET VIEW MATRIX |'+@%@'AQ@((@((@  VIEW##%R}(@ NEW VIEW OPTIONS(@++@@ D:VIEW.MAT@-@&%S}@0(((@ (>:@d%,) :-@@D@N X b@%T}l0#@@K:0)@v@6-&@d @)!Ah++@@%U} D:VIEW.MAT@-@@-@@@< "%V}68<@,-+68<@,-<68<@,-  ! @ AW0$ D:DRAW3D.MSH0,%W} 1,1,0, 0,1,0, 0,0,0,,9,5, 0,0,2, 1,0,2, 1,1,2, 0,1,2, 0,0,2 9,2, 0,0,0, 0,0,2*9,2, 1,0,0, 1,0,249,2, 1,1,%X}0, 1,1,2>9,2, 0,1,0, 0,1,2A`ASM1VTYPETTADRADRIIALASBLASKPTCNDIFACENTEAMIRELUM$510000 REM 10010 REM | HOUSE DATA FLOOR 1 |10020 REM 10030 REM 10040 REM OUTSI)Z}DE WALLS (WEST)10050 DATA 10,0,0,27.0,.710060 DATA 11,-.7,.7,2.7,-.710070 REM DEN WINDOW10080 DATA 10,2,.5,5,-.310090 RE)[}M KITCHEN WINDOW 110100 DATA 11,25,.7,2,-.710110 DATA 10,20,.5,5,-.310120 REM KITCHEN WINDOW 210130 DATA 11,7,.7,5,-.710)\}140 DATA 10,12,.5,3.5,-.310150 DATA 11,15.5,.7,4.5,-.710160 REM SOUTH WALL10170 REM DEN WALLS10180 DATA 10,9,0,.4,-6.410)]}190 DATA 10,9,-8.9,.4,-2.510200 DATA 10,0,-11,6,-.410210 DATA 10,0,-11,1,-.410220 DATA 11,-.7,0,.7,-24.410230 REM COMMON )^}WALL KIT/DINNING RM10240 DATA 10,9.4,-11,13.5,-.410250 REM DINNING RM10260 DATA 10,13,-11.4,.4,-6.2510270 DATA 10,13,-23.)_}9,.4,-.510280 REM FRONT WALL10290 DATA 10,-.7,-24.4,26.7,-.710300 DATA 11,-.7,-24.4,2.95,-.710310 DATA 10, 2.25,-24.6,2.5)`},-.310320 DATA 11,4.75,-24.4,5,-.710330 DATA 10,9.75,-24.6,2.5,-.310340 DATA 11,12.25,-24.4,3.15,-.710350 REM FRONT DOOR)a}10360 DATA 10,15.4,-24.6,3,-.310370 DATA 11,18.4,-24.4,3.5,-.710380 REM HALF BATH WINDOW10390 DATA 10,21.9,-24.6,2,-.3104)b}00 DATA 11,23.9,-24.4,2.5,-.710410 REM NORTH WALL10420 DATA 10,27,0,.4,-410430 DATA 10,27,-7,.4,-410440 DATA 10,26,-11,.4)c},-.510450 DATA 10,26,-14.5,.4,-10.610460 REM FAMILY ROOM10470 DATA 10,26.7,9.7,.7,-9.710480 DATA 10,26.7,9.7,17.4,-.7104)d}90 DATA 11,43.4,9.7,.7,-48.0510500 DATA 10,26,-11,17.4,-.410510 REM DOOR FM10520 DATA 10,26.9,8.5,.3,-5.510530 DATA 11,26)e}.7,9.7,.7,-1.210540 DATA 11,26.7,3,.7,-310550 REM WINDOW FM10560 DATA 11,26.7,9.7,4.7,-.710570 DATA 10,31.4,9.5,8,-.3105)f}80 DATA 11,39.4,9.7,4.7,-.710590 REM LAUNDRY RM10600 DATA 10,37.5,-11.4,.4,-610610 DATA 10,29.4,-17.4,8.5,-.410620 REM KI)g}TCHEN CLOSET10630 DATA 10,15.75,-9,.4,-210640 DATA 10,18.1,-9,.4,-210650 DATA 9,2,15.75,-9,18.1,-910660 REM GARAGE10670 )q}B'DOS SYSB*+DUP SYSBUAUTORUN SYSBWDEMO2 DATBnDEMO3 DATBpDRAW BDEMOA3D DATBJDRAW2D MSHBDEMO4 DATBDRAW3D MSHBYDEMO1 DATByDEMOB3D DATB(|LISTING BASBPRINTGR8OBJB-HELP BASBTDUMPG24OBJBVIEW MATB VIEWBLD BASBHIDDEN BMUD BASB COMPROOMDATB COMPROOM BBKCASE3DDATB TITLE DATA 11,25.7,-25.1,.7,-13.2510680 DATA 11,25.7,-37.65,1.25,-.710690 DATA 11,42.85,-37.65,1.25,-.710700 DATA 10,26.95,-37.8)r}5,15.9,-.310710 REM PORCH10720 DATA 10,13.7,-25.1,12,-910730 REM BATH AND CLOSET WALLS10740 DATA 10,19.15,-18.9,3,-.4107)s}50 DATA 10,24.15,-18.9,1.85,-.410760 DATA 9,2,19.15,-18.9,19.15,-24.410770 DATA 10,21.25,-19.3,.4,-5.110780 REM WALL FOR S)t}TAIRS10790 DATA 10,16.4,-14.4,.4,-3.2510800 DATA 10,16.8,-14.4,6.1,-.410810 REM STEPS10820 DATA 10,13.4,-14.4,3,-110830 )u}DATA 10,13.4,-16.4,3,-110840 DATA 10,16.4,-11.4,1,-310850 DATA 10,18.4,-11.4,1,-310860 DATA 10,20.4,-11.4,1,-310870 REM R)v}OOM NAMES10880 DATA 5,4.5,-4.5,DEN10890 DATA 4,33,-14,WASH10900 DATA 4,6.5,-18,DINNING10910 DATA 4,6.5,-20,ROOM10920 DAT)w}A 4,35,5,FAMILY10930 DATA 4,35,1,ROOM10940 DATA 5,35,-26,GARAGE10950 DATA 4,19,-29,PORCH10960 DATA 4,24,-20.5,B10970 DAT)x}A 4,19,-4,KITCHEN10980 DATA 1,0,0,FIRST FLOOR LAYOUTA FLOOR 1 |10020 REM 10030 REM 10040 REM OUTSI(610000 REM BASEMENT WALLS10001 DATA 10, 0,1.5,0, -1.5,-16,710010 DATA 10, 0,0,0, 7.5,1.5,710015 REM FURNACE ROOM WALLS1002-z}0 DATA 10, 6.5,0,0, .33,-2.5,710021 DATA 10, 6.5,-5.5,0, .33,-.58,710022 DATA 10, 6.83,-6.08,0, 6.5,.33,710025 REM WINDOW-{}10030 DATA 10, 3.42,0,6.25, 2.66,1.5,.75,1.5,0, -1.5,-16,710010 DATA 10, 0,0,0, 7.5,1.5,710015 REM FURNACE ROOM WALLS1002,)12I^ARLINELNAFNAMECS1CNPAGPAGECCNDONES@1}} """"| LAST REVISED ON 12/10/83 1~}|""| UTILITY FOR LISTING |$1};@,;@,. A8""B""| INIT FOR FIRST USER LINE |L""1}V A`INDEX FIRST LINE 5 SPACESj(@ t6-~%6-%LAST BYTE P1}ROCESSED46-@4# OF LINES PRINTED ON CURRENT PAGE96-@9# OF CHARACTERS PRINTED ON CURRENT LINE,6-1}@,CURRENT PAGE BEING PRINTED46-@4PAGE COUNT SINCE LAST FIX OF "TOF"""1}""| BEGIN LOOP FOR NEXT BYTE |""""CHECK FOR LAST CHARACTER WASEND OF LINE. IF SO 1}INDEXNEXT CARD IN 5 SPACES.="AU#(@ 16-%@=6-@CHECK FOR LONG LINEL1}!@e6-@)6-%@B(@ L A HANDLE PAGE BREAKS HERE!@b A"P1})@6-%@(.!@1*@$(>:,. A`2 < | ATARI/EPSO1}N CONVERSION |F P 6-X=EPSON Y=ATARIZ"@6-AV|d"@6-1}ATn"@6-AQx"@6-AI"@6-Au"@6-A1}4"@&6-AS"@6-AP"@#6-AR"@$6-A1}X"@6-AY"@6-AW*@(>:, A`1}| CODE EXITING LOGIC |%6-@%FLAG NO NEW TMARGIN A"P PAGE B1}REAK LOGIC +"-@@,&(@>:@,&RING BELL6 @%D1:DRAWJ1}T| USER INITILIZATION |^h +r!!(THIS PROCEEDURE WILL LIST| (A PROG1}RAM STORED ON YOUR(DISK IN LIST FORM.( IT CONVERTS ATARI(CHARACTER<32 TO THEIR(EPSON EQUILIVE1}NT!#(#(DO YOU WISH TO CONTINUE?( ENTER (Y/N):0#@@K:0)@$@1}@$ A((INPUT THE FILE NAME (FOR EXAMPLE: D1:CODE.LST( FILE NAME IS ( (1}| PRINTER INITILIZATION |& A!00""@@1}P: A"D @@NINITILIZE THE PRINTERX%%(@>:@',>:@d,b00(@1}>:@',>:@g,>:@g,l""(DO YOU WANT DOUBLE STRIKE?v0#@@K:0)@$1}@@$ APDOUBLE STRIKE$$(@>:@',>:@q,(( LISTING FOR  ( (((1}1 LINE LARGE CHARACTERS + EMPHASED??(@>:@',W>:@,>:@',>:@i,!!TURN ON UNDERLING FOR1} TITLE))(@>:@',->:@,(@0%(@ LISTING OF 0(@(@1}TURN OFF EMPHASED%%(@>:@',>:@p, ""TURN ON COMPRESSED CHAR MODE(@>:@, T1}URN OFF UNDERLING*))(@>:@',->:,4SET # OF CHARS/LINE = 66>))(@>:@',Q>:@f1},H AR\| ERROR TRAPS HERE |fp"("(TURN ON THE PRINTER1} ANDz(SET AT TOP OF PAGE(HIT ANY KEY WHEN READY!0#@@K:0)@@1} A0"("(I HAD A PROBLEM OPENING(THE FILE NAMED (SO I AM TERMINATING1}| SUB FOR PAGE BREAKS |HANDLE SCREEN BREAK,()( END OF PAGE #(1}),( | PRINT PAGE # |  !@b A#$ -@b. (@1} 8  B 6-@cL 0(@ 0(@ V ''(@ PAGE #()` 6-1}%@j t | SET BOTTOM MARGIN |~  !(@ !(@  1}6- 6- 6-%@ 6-%@  @ A%` "" ""1}| COMPENSATE FOR TOF DRIFT | "" (@  6-@  1}| SET TOP MARGIN |  !!(@ !$ 6-@( -@+&@,2 (1}@ <  F INDEX IN FOR NEXT LINEP (@ Z $ D:LISTING.BAS0ah hh`hhhhhhhheX֥Yeׅטi@֥i׈ݠܱؠՊ)`@ @ ڊ)څک5}*mۤݱEդܑȄжi(֐ݩП`֥Yeׅטi@֥i׈ݠܱؠՊ)`@ @ ڊ)څک4/  ,FILEPAG@2 ";@,"6. D:HELPDOC.T| HELP9} UTILITY || RELEASE 2.0 | A0 +@AR@$70@@ @9}70@@ @.70@ @70@@ @8B| HELP MENU |L9}V-@@` (@ DOCUMENTATIONj-@@t""(@HELP AVAILABLE ON~9}-@@(@(A) USING HELP-@@!!(@(B) GEN. PURPOSE-@@9}(@ (C) METHOD-@@ $$(@(D) GETTING STARTED-@@(@(E)9} DATA IDEAS-@@(@ (F) WINDOWING-@@""(@(G) MAKING MANUAL -@9}@""(@(H) COPYING CODES-@@($$(@(I) CALLING AUTHORS2-@@9}<(@ (J) HARDCOPYSF-@@P(@ (K) DEMO'SZ-@@d##(@(L) TERMI9}NATE HELPn0#@@K:0)@x@6-&@d"@Ap!! @9})!@A"@A@ Ap A| DATA MENU |9} +@AR@70@@ @70@@ @70@ @70@9}@ @-@@ (@ DOCUMENTATION-@@""(@HELP AVAILABLE ON9}"-@@,(@ DATA IDEAS6-@@@(@ (A) OVERVIEWJ-@@T 9} (@(B) COORDINATES^-@@h""(@(C) GENERAL RULESr-@@ |##(@(D) 9}ENTITY FORMATS-@@!!(@(E) PLOT CONTROL-@@(@ (F) SAVING-@9}@(@ (G) LISTING-@@(@ (H) DEBUGING-@@(@9} (I) RETURN TO-@@(@ HELP MENU0#@@K:0)@@9}6-&@d!! @)!@ Ap&"@ A06-%@: ApD ApN9}Xb| HELP DISPLAY UTILITY |lv67@,.=:, AP9} @@ A p| FILE MISSING | +9}+( (+(YOUR DISK IS MISSING THE DATA(( FILE NAMED ((((TO USE THE HELP FUNCTIONS YOU((((WILL NEE9}D TO GET ALL THE DATA&(&(FILES, 'HELPDOC.T??', FROM ((YOUR BACKUP DISK.(( ( (((HIT ANY KEY TO CONTIN9}UE  A"!! !!| LOOP FOR EACH CHARACTER |*!!4 +9}AR@> A"@H)@R"@A!`\ >:,f A! pz9}| PAGE COMMAND HIT |6-@@@#**(! ԠŠҠҠԠš9} A"p| EOF TRAP HIT |6-*@@"(*@9}@"&&( Ԡ٠٠Ҡՠ0#@@K:0)@@ 9} | TEST FOR ANOTHER PAGE | $ !!"@2*A p. @9} B8 $  | FLIP DISK TO HELP SIDE |  A19} --@@ D:HELPDOC.T1 @ $ +@%@ @! -@& ,9}(@,(@ FLIP LAYOUT0 ,(@,(@ FLOPPY OVER: ,(@,(@ TO BACK S9}IDED +(@+(@ AFTER BUSYN .(@.(@ LIGHT TURNS OFF!S (@X ((@((9}@ HITb +(@+(@ ANY KEY TOl *(@*(@ CONTINUEv 0#@@9}K:0)@ @ A00""""| FLIP DISK TO MASTER SIDE |"9}" A@p''@@D:DRAW@ +@%@ @9}-@*(@*(@ EXITING*(@*(@ TO MAIN)(@)(9}@ PANEL%D:DRAWWRONG SIDE OF DISK IS UP +@%@ @+(@+(@9} FLIP FLOPPY+(@+(@ AFTER BUSY-(@-(@ LIGHT GOES OUT!(@"+9}(@+(@ HIT ANY KEY,+(@+(@ TO CONTINUE60#@@K:0)@9}@@h A@0 D:HELP.BAS| HELP UTILITY | +9}--@@ D:MANUAL.DAT A@)@ >:, A$@9}!!(@(N) ENTITY RULES0#@@K:0)@@| HELP UT9}ILITY | +--@@ D:MANUAL.DAT  A)@ >:9},$ A@L@2 ";@,"6. D:HELPDOC.T| HELP8|xphx% &qʍx x X`LHH#X R zV~}o=}i`h% PM% ;m .J &!U &E &hhLhhh@HHH=}ѭ׭إW٥XڥYۥ{٭ڭۥXץYixi( #(' !=}ͩέP' ͩΥ`NFfͥP'8'NFfͥ7NFfͥrN8' 'FfͥY=}NFfͥI<' ! !'#N!&Υ('! &e͍e΍()K+=}D+()(++()88#8<˭=}̠&11)8D 8HAY8č8p 8=}!# d'&N+ AN+ N+ N+ 'ڬ8jޅ֬8j߅׬8j=}܅ةݭ̭˭Эϭ P˪Պ)ͩ*Υmͭ)e΅ΠԈEM %ޠϑ ЩЕ;=}Ԥ8 ˰ИFުJ%ފťօޥυͥЅΥͅϥ΅Э̭˭ZКM%ߠϑ8=}˰FߪJ%ߊЗׅߩЪυѥЅ٥хϥمЭ̭˭!A)?ͩ*m͊mΠ=}ԈM%%ܠϑ Щ?ТЖԤ8#˰УFܪJ%܊ť؅ܭ̭˩г N+ =}N+ +N+ )N+ (N+  9ԭՠˢN+ɛ   ϩЃ3ԭՠˢ=}N+ɛ   ϭ! 7ԭՠˢN+ɛ   Д˩N+ N+=} @N+ N+ hhhh@x x X`LHH#X R zV~}o<%101,PLAN1,0,00,1,00,0,12,SIDE1,0,00,0,10,-1,03,FRONT0,-1,00,0,1-1,0,04,REAR0,1,00,0,11,0,05,BOTTOM1,0,00,-A}1,00,0,-16,OTHER SIDE-1,0,00,0,10,1,07,AUX TFL.707,-.707,0.224,.224,.948-.67,-.67,.3178,AUX TFR-.707,-.707,0.224,A}-.224,.948-.67,.67,.3179,AUX TRL.707,.707,0-.224,.224,.948.67,-.67,.31710,AUX TRR-.707,.707,0-.224,-.224,.948.67,.67A},.317LAN1,0,00,1,00,0,12,SIDE1,0,00,0,10,-1,03,FRONT0,-1,00,0,1-1,0,04,REAR0,1,00,0,11,0,05,BOTTOM1,0,00,-@;L| VIEWBLD |L++@@ D:VIEW.MATQ(@E}10VPLAN VIEW`(@1,PLANj(@1,0,0t(@0,1,0~(@0,0,1SIDE VIEWE}(@2,SIDE(@1,0,0(@0,0,1(@0,-1,0FRONT VIEW((@3,FRONE}T2(@0,-1,0<(@0,0,1F(@-1,0,0REAR VIEW(@4,REAR(@0E},1,0(@0,0,1(@1,0,0BOTTOM VIEW(@5,BOTTOM(@1,0,0(@E}0,-1,0(@0,0,-1JOTHER SIDE VIEWT(@ 6,OTHER SIDE^(@-1,0,0h(@0,E}0,1r(@0,1,0OTHER AUX LH FRONT(@ 7,AUX TFL(@ .707,-.707,0(@.224E},.224,.948(@-.67,-.67,.317OTHER AUX RH FRONT(@ 8,AUX TFR&(@ -.707,-.707,00 E} (@.224,-.224,.948:(@ -.67,.67,.317vOTHER AUX LH REAR(@ 9,AUX TRL(@ .E}707,.707,0 (@-.224,.224,.948(@ .67,-.67,.317OTHER AUX RH REAR(@ 10,AUX TRRE}(@ -.707,.707,0!!(@-.224,-.224,.948(@ .67,.67,.317 @ D:VIEWBLDDx124315687526842157311265134873(@ .67,.67,.317 @ D:VIEWBLDH<d n | MUD |x '+@%@'AQ@0@@ @M}0@@ @0@ @0@@ @-!!(@ M} NOW LOADING(@""(@ Atari CAD/CAM##(@ Facility Layout(@ (@M} written by(@""(@ Jack Gilchrist(@ and!!(@ Phil HeavenM},%D:DRAW D:MUD.BAS| MUD |x '+@%@'AQ@0@@ @L 10000 REM Outside Walls10010 DATA 11,0,0,.6,910011 DATA 10,0,9,.2,410012 DATA 11,0,13,.6,910020 DATA 11,0,22,8,-.610021 Q}DATA 10,8,22,4,-.210022 DATA 11,12,22,8,-.610030 DATA 11,20,22,-.6,-910031 DATA 10,20,13,-.2,-410032 DATA 11,20,9,-.6,-9Q}10040 DATA 10,20,0,-3.5,.210041 DATA 10,16.6,0,-3.6,.210042 DATA 11,13,0,-5.5,.610043 DATA 10,7.5,0,-2.5,.210044 DATA 11,Q}5,0,-5,.610100 REM Inside Walls10110 DATA 9,4,.65,.65,.65,21.35,19.35,21.35,19.35,.6510120 DATA 10,.65,.6,4.35,.0510121 DQ}ATA 10,7.5,.6,5.5,.0510200 REM Counter Top10210 DATA 9,4,13,.65,10.5,3.15,10,3.15,7.5,.6510220 DATA 9,7,3.15,.65,3.15,16.3Q}5,5.65,18.85,14.35,18.85,16.85,16.35,16.85,5.65,19.35,3.1510300 REM Cabinets10310 DATA 10,.65,.65,2.5,210311 DATA 4,1.5,2,Q}CAB10320 DATA 10,.65,16.35,2.5,-210321 DATA 4,1.5,16,CAB10330 DATA 10,5.65,21.35,2,-2.510331 DATA 4,7,21,CAB10340 DATA 1Q}0,16.85,16.35,2.5,-210341 DATA 4,18.5,16,CAB10350 DATA 10,16.85,5.65,2.5,210351 DATA 4,18.5,8.5,CAB10400 REM Printer StanQ}ds10410 DATA 10,.65,6.5,2.5,210411 DATA 4,2,8,PRT10420 DATA 10,.65,8.5,2.5,210421 DATA 4,2,10,PRT10430 DATA 10,14.35,21.R}35,-2,-2.510431 DATA 4,13.5,20,PRT10500 REM Book Cases10510 DATA 12,3.15,16.35,3.54,1,4510511 DATA 4,4,19.5,BK10520 DATAR} 12,14.30,19.05,3.54,1,31510521 DATA 4,15.5,18,BK10530 DATA 9,5,8.5,.65,10.25,2.30,10.25,3.15,10.25,2.30,12,.6510531 DATA R}4,9,3.5,BK10532 DATA 4,12,3.5,BK11000 DATA 1,0,0,COMPUTER ROOM,8.5,.65,10.25,2.30,10.25,3.15,10.25,2.30,12,.6510531 DATA PA10000 REM Outside Walls10010 DATA 11,0,0,.6,910011 DATA 10,0,9,.2,410012 DATA 11,0,13,.6,910020 DATA 11,0,22,8,-.610021 V}DATA 10,8,22,4,-.210022 DATA 11,12,22,8,-.610030 DATA 11,20,22,-.6,-910031 DATA 10,20,13,-.2,-410032 DATA 11,20,9,-.6,-9V}10040 DATA 10,20,0,-3.5,.210041 DATA 10,16.6,0,-3.6,.210042 DATA 11,13,0,-5.5,.610043 DATA 10,7.5,0,-2.5,.210044 DATA 11,V}5,0,-5,.610100 REM Inside Walls10110 DATA 9,4,.65,.65,.65,21.35,19.35,21.35,19.35,.6510120 DATA 10,.65,.6,4.35,.0510121 DV}ATA 10,7.5,.6,5.5,.0510200 REM Counter Top10210 DATA 9,4,13,.65,10.5,3.15,10,3.15,7.5,.6510220 DATA 9,7,3.15,.65,3.15,16.3V}5,5.65,18.85,14.35,18.85,16.85,16.35,16.85,5.65,19.35,3.1510300 REM Cabinets10310 DATA 10,.65,.65,2.5,210311 DATA 4,1.5,2,V }CAB10320 DATA 10,.65,16.35,2.5,-210321 DATA 4,1.5,16,CAB10330 DATA 10,5.65,21.35,2,-2.510331 DATA 4,7,20.5,CAB10340 DATAV } 10,16.85,16.35,2.5,-210341 DATA 4,18.5,16,CAB10350 DATA 10,16.85,5.65,2.5,210351 DATA 4,18.5,8.5,CAB10400 REM Printer StV }ands10410 DATA 10,.65,6.5,2.5,210411 DATA 4,2,8,PRT10420 DATA 10,.65,8.5,2.5,210421 DATA 4,2,10,PRT10430 DATA 10,14.35,2V }1.35,-2,-2.510431 DATA 4,13.5,20,PRT10500 REM Book Cases10510 DATA 12,3.15,16.35,3.54,1,4510511 DATA 4,4.5,19.5,BK10520 V }DATA 12,13.35,18.35,3.54,1,31510521 DATA 4,16,17,BK10530 DATA 9,5,8.5,.65,10.25,2.15,10.25,3.15,10.25,2.15,12,.6510531 DATV}A 4,9,3.5,BK10532 DATA 4,13,3.5,BK11000 DATA 1,0,0,COMPUTER ROOM,8.5,.65,10.25,2.15,10.25,3.15,10.25,2.15,12,.6510531 DATTC10000 DATA 10,0,0,26,42,10.75,.7510010 DATA 10,0,0,0,.75,10,2610020 DATA 10,42,0,0,-.75,10,2610030 DATA 10,0,10,0,42,.75,2Z}610040 DATA 10,.75,0,0,40.5,10,.7510050 DATA 10,.75,0,8.75,40.5,10,.7510060 DATA 10,.75,0,17.5,40.5,10,.7511000 DATA 1,0,Z}0,0,BOOKCASE10,.75,0,0,40.5,10,.7510050 DATA 10,.75,0,8.75,40.5,10,.7510060 DATA 10,.75,0,17.5,40.5,10,.7511000 DATA 1,0,X 7-<DISKDFLASd?;@@,?6.( DISK #144 ^} fS +@1AR@S6-F:A`,%AV$F:Aa,i{AY'AA^}9A KA@(]A@oAA{6-n;%@@p+-@@^}&/"7%; s116,6,6,7,6,6,6,6,6,6,6,2,2,2,2,2,2,2,2,112,2xE%@'@e.%@(F:A`,E%@)^}F:Aa,((( (( ŠBELLCOM (####################(^}(####################@-@@(& The BELLCOM Library consists of P.D. ..(& programs collected from Use^}rs and ..(& User Groups in Canada, the U.S.A, and..(& England. To the best of our knowledge,,($ all programs a^}re in Public Domain..-@ @.(ӠԠϠAY@45B2y!AU5^}-@@P#F:B2y,"@#%D:DRAW 6-@& AD:TITLEy!AU5\b