@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H  }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 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;DEL`?<0LV`@ʆ 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  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu }56FOTASTNAMHDMYMDYPPPPHILO@ *}  +} *** BIORYTHMUS ***##@@P: @>: ,}@',O(RR9@,;@Q,;@!,;@,;@,;@@,;@,2:-@@ @ -}#"667<%@,.: <!!SUN,MON,TUE,WED,THU,FRI,SATF6-@(1P(-@@"$68,-( Z))31, .}28,31,30,31,30,31,31,30,31,30,31d#0@#(}n#(YOUR NAME ('' to END)#x 4E:(2( /}'IHR GEBURTSDATUM (IN FORMAT DD,MM,YY): : 6-6-6- A 6-6-:(2('TAGESDATUM 0} (IN FORMAT DD,MM,YY): : A 6-6-6-@53PP3H ****** ****** ****** ****** ** ** 1}** ** ****** ** ** ** **PP3H ** ** ** ** ** ** ** ** ** ** ** ** ** ** *** ***PP3H ** 2} ** ** ** ** ** ** ****** * * ** ****** ** * * **PP3H ***** ** ** ** ****** ****** ** 3} ** ****** ** * **PP3H ** ** ** ** ** ** * ** ** ** ** ** ** ** **PP3H ** ** ** 4} ** ** ** * ** ** ** ** ** ** ** **PP3H ****** ****** ****** ** * ** ** ** ** ** 5}** ** **,-@@u$67<,.-( ,3"3 3 33, 6-&6HE3= DIESE BIORHYTHMUS-AUSW 6}ERTUNG WURDE ERSTELLT FUERH3@(%3 (3J6-%@TE6. / !B:=:,,"@;67 7}@<@,.=:,E A`^67@<@,.=:,h9B:=:,,"@/67@<@,.=:,9 Ar67 8}@<@,.=:,|FF3# GEBURTSDATUM 7<%@, /6-+$@,%@E6. 9} / !B:=:,,"@;67@<@,.=:,E A 67@<@,.=:,9B:=:,,"@/67@< :}@,.=:,9 A@67@<@,.=:,FF3# TAGESDATUM 7<%@, / ;}39931 K = KOERPERLICH (23 TAGE)9931 S = SEELISCH (28 TAGE)9931 <} G = GEISTIG (33 TAGE)4.3& D = DURCHSCHNITT1343II3A TIEF =} KRITISCH HOCHII3A -------------------------!--------------------------3 >}+'@,"P:'@,368@,-@) 6-%6-[.(O P1= P2= P3= P4[(7+$ ?}@,%@<+$@,%@,& 6-0-&@:6-%@6. / D(-@@Q$67<, @}. ( N67@&<@&,.!XP6-C6-+G:$+'@#&P:'@#,,,$@%,%@&P67<,.KbL 6- A}%?6-+G:$+'@3&P:'@3,,,$@%,%@&L67<,.GlL 6-%?6-+G:$+'@(&P:'@(,,,$@%,%@ B}&L67<,.Sv"6-+%,'@"67<,.D%"6-@% A`6-+$@,%@9B:= C}:,,"@/67@<@,.=:,9 A67@<@,.=:,9B:=:,,"@/67@<@,.=:, D}9 A67@<@,.=:,,, @7<%@,  )6-%@!@)6- E}46-%@!8,&6-@46-%@)@6-@)6-%@=+'@,P:'@,36 F}8@,-@(= A`68@,-@) <3 3,3 *** ENDE DER AUSWERTUNG ***2(}< A D G}ATUM BERECHNEN*6-$Ae"6-P:'@,*6-% '@A@*"A@4!@A@ H}>6-&@H@AR-@&@\6-%8,f p. 6-%6-P:'@,.6-&+ I}@$,z$ D:BIO.BASAR-@&@\6-%8,f p. 6-%6-P:'@,.6-&+ !56FSXXIODDXXXXADXXADXXAXXLXXAUXXXMXXLXXER$K} ');@ ,;@,)6.hhhLV'%%ҠŠڮ®ı$L}Ү'd +(((00@J0@@d0@@@'(INPUT Dx:P$M}ICTURENAME ''+@%@'%%6-F:A`,%F:Aa,$AV'))6-F:%@,%F:%@,$AV'W$N}AY)%@@x=-@S%@%@W 'M-@A-%@%@$O}1 M%@%@@x' B'" B"Ϡ'ŠĠ˛' 6-'=6$P}-F:%@,%6-F:%@,=6-%AV$%Av'06-@6-$4C:06-A( '77Ӥú$Q}衛!'M+F:@,"@)F:@,"@$76-@C6-@0M B"'3 +0 $R}ERROR: IMPROPER GRAPHICS MODE 3#'T B!$@@0A H<A IHA RTA S$'B$S}A F@)6-?:C:,<A,86-F:A E,B B"%'6-F:A,&'@ B'g''T@+$T}Q ERROR:  AT LINE F:A,%F:A,$AVT('@B&)'WAF:,)AF:%@,$U}@A F:%@,WAF:%@,*'AY@4+'$D2:BILDLOAD.MPF:,)AF:%@,$`;< . TYPEDAYSMONTHBCBLCDALIMIDATABSDADAYNNNno | (W} dd  &&;(X}A,;@,;@,;@,;@ ,2 +d   HIT ΢ WHENi2. %YOU ARE READY TO (Y}PRINT OUT A CALENDAR26-=(( Enter number of months you want 9( printed out=5/(&Enter initial Mo(Z}nth and Year (MM,YYYY)5!@ A A6-%A6-'A6-+&P:,,$A([}6-P:%?P,6. 03032323323236-'A"P:,"A ,6-+&P:,,$A6""P:%?P(\},"A`@6-'@J6-+&P:,,$@T""P:%?P,!A`^67@<@,.1h(]}6-P:+%@,'@,r6-P:+&@,'A,|6-%&%@-@6-%A:7<,, ))(^}6-A:7%@<%@,,%@(6-'@6-+&P:,,$@6-P:%?P,"@6.JANUAR(_}Y"@6.FEBRUARY"@6.MARCH"@6.APRIL"@6.MAY"@(`}6.JUNE"@6.JULY"@6.AUGUST"@ 6. SEPTEMBER"@6.OCTOBER(a}"@6.NOVEMBER"@6.DECEMBER 6- +@-(@(b} (@&$$(@ 06-@:-@@ D-@N-$@(c}X(@b6-%@l!A0v 6-  3 3))3!Sun Mon (d}Tue Wed Thur Fri Sat36-@ 6-* 6.6. *"A-@67B:,%(e}@,. -@@-@ @A? 6.$67@<@,.=:,?67@(f}<@,. !67B:,%@,.! A @ 6.$67@<@,.=:,@67@<@,. !67B:(g},%@,.*6-%@4!A`> H6-M36.3R \ 3 3f 3 3k6-%@(h}p76-%@!@)6-@76-%@z A  A% D:CALENDAR6-%@(rSTLAWABCOPOPHDEHEPRPRPRPSINDZPIMREINDZPABABSABSSTARMTEMPO,j} ,k}R;@ ,;@ ,;,l}@ ,;@,;@ ,;@,;@,^6-@@j6-@%v6-@06-@5@@,m}K: p;@9,0@@S:^6.' pAR@{6,n}-A6-A'6-A36-A?6-AK6-AW-Ac6-Ao6-A {6-A A,o} P (6-%@$($#($(@ @p$)6-@ *N 6,p}-6-P:'@,*6-&$@6 @D67<,.=:,N @F, 67<,.>:&@%@:A,,.'6-&,q}@' @B06.7<@ ,$2D-@##-@7-@@9D)@4D-,r}@##-@7-@@9D)@667<,.>:,8  3 $F"6.00$G %@,s}P"6.00$Q 6.01$R 6.02$S 6.03$T 6.04$U 6.05$V 6.06$W ,t}6.07$X 6.08$Y 6.09$Z 6.0A$[ 6.0B$\ 6.0C$] 6.0D$^ 6.0E$_ 6.,u}0F$dG6-F:%@, 6.(6.(0026.,X)@6-%@D G$D6-F:%@, 6.(6.$00/6.=,v}6-%@A D$,C6-F:%@, 6.'6.#$.6.<6-%@@ C$C6-F:%@, 6.'6.#$,w}.6.<6-%@@ C$H6-F:%@, 6.)6.($0036.),YA6-%@E H$XF6-F:%@, ,x}6.(6.$0016.,X?6-%@C F$]6-F:%@, 6./6-F:%@,3 96.A6.$H6.V6-%,y}@Z ]$ _6-F:%@, 6./6-F:%@,3 96.A6.$J6.,YX6-%@\ _$_6-F:%@,z}, 6./6-F:%@,3 96.A6.$J6.,XX6-%@\ _$#(}WELCHE START ADRESSE?#\\ʠ,{}ŠҠӠҠΠ̠͠ҠŠŠРҠқ? 6-F:@,@#+)@?,|}"@tA P"@vA+"@(}!6-+ A)"@ @P%6-) ,}} @@(2 6-F:,6- 6.& A2 %AL 6.BRK  M6.ORA   Q6.ORA ,~}  R6.ASL   T 6.PHP  U6.ORA   V6.ASL A  Y6.ORA   Z6,}.ASL   \6.BPL   ]6.ORA   a6.ORA   b6.ASL   d 6.CLC  ,}e6.ORA   i6.ORA   j6.ASL   l6.JSR   m6.AND   p6.BIT ,}  q6.AND   r6.ROL   t 6.PLP  u6.AND   v6.ROL A  x6.,}BIT   y6.AND   z6.ROL   |6.BMI   }6.AND   6.AND   ,}6.ROL    6.SEC  6.AND   6.AND   6.ROL    6.RTI ,} 6.EOR   6.EOR   6.LSR    6.PHA  6.EOR   6.LSR,} A  6.JMP   6.EOR   6.LSR   6.BVC   6.EOR   ,}6.EOR   6.LSR    6.CLI  6.EOR   6.EOR   6.LSR   ,} 6.RTS  6.ADC   6.ADC   6. ROR    6.PLA  6.ADC ,}  6.ROR A  6.JMP   6.ADC   6.ROR   6.BVS   6,}.ADC   6.ADC   6.ROR    6.SEI  6.ADC   6.ADC   ,}6.ROR   6.STA   6.STY   6.STA   6.STX    6.DEY ,}  6.TXA  6.STY   6.STA   6.STX   6.BCC   6.S,}TA   6.STY   6.STA   6.STX    6.TYA  6.STA    ,}6.TXS  6.STA   6.LDY   6.LDA   6.LDX   6.LDY   ,}6.LDA   6.LDX    6.TAY  6.LDA    6.TAX  6.LDY ,}  6.LDA   6.LDX   6.BCS   6.LDA   6.LDY   6.,}LDA   6.LDX    6.CLV  6.LDA    6.TSX  6.LDY    ,}6.LDA    6.LDX    6.CPY    6.CMP   6.CPY   6.CMP  ,} 6.DEC    6.INY  6.CMP    6.DEX  6.CPY   6.CMP ,}  6.DEC   6.BNE   6.CMP   !6.CMP   "6.DEC   $ 6,}.CLD  %6.CMP   )6.CMP   *6.DEC   ,6.CPX   -6.SBC   ,}06.CPX   16.SBC   26.INC   4 6.INX  56.SBC   6 6.NOP ,} 86.CPX   96.SBC   :6.INC   <6.BEQ   =6.SBC   A6.S,}BC   B6.INC   D 6.SED  E6.SBC   I6.SBC   J6.INC   x:,}(NICHT ZULAESSIGER CODE( B66-%@: @&(UEBERPRUEFE DEN DRUCKER"'& D:DISASSEM.BAS  x:,r|CLS CUSTOMISED DISK JACKETnAR@x'AAH'AAH}0};@,6.>:A%,/(-@/(***DISK JACKET***f-@@f(LThis program is designe0}d to print out a customised Disk Jacket, there are no\-@@\(Buser defined parameters, all the workings0} are in the listing.d-@@d(JYou will need to set up your printer (Epson) with the color paper of yourW0}-@@W(=Choice, (A4 size), it will need to be at least 100gms weight.b-@@b(HThe printer will 0}mark out the corners of the Jacket with a '+', you thenF-@@F(,join up the marks and cut along the lines.0}1-@ @"1(PRESS START TO CONTINUE F:B2y,@Ao(-@@o(QThere are spac0}es marked out for labels(89*36mm) with your programs listed onthem.c-@@c(IA number of public domain progra0}ms arearound which are capable of listing=-@@=(#out a directory in condensed print.b-@@b0}(HWhen you have cut out the jacket, the sides will need to be firmly stuckU-@@U(;with a suitable adhesive0} and left to dry for a short while.R-@@R(8Place paper in printer and press SELECT when ready. F:0}B2y,@Ap"B(AR@+-@@B(Setting up Printer,D#@@P:0}D @>:@',>:@d,6.-@ @ .(PRESS START TO PRINT@ F:B2y,@AJ+(A0}@H+A@HT.-@@.(Printing Disk Jacket^[[ @J +------------------------------0}----------------------------------------+hBB @>:@',G>:@, YOUR NAMErJJ @9 0} **************************************|JJ @9 * 0} *JJ @9 * *JJ @9 * 0} *JJ @9 * Place Label Here *JJ @9 0} * *JJ @9 * *0}JJ @9 * *JJ @9 * 0} *JJ @9 **************************************JJ @9 0} **************************************JJ @9 * *JJ0} @9 * *JJ @9 * 0} *JJ @9 * Place Label Here *JJ @9 0} * *JJ @9 * *JJ @0}9 * *&JJ @9 * 0} *0[[ @J + ************************************** +: @>:@'0},HDj @ @j @C + +N&-@0}@'" @& X__ @>:@,C +--------------------------------------------------------+b0})) @>:@$,>:@',@l+(AAb+AAbv:@ -@@:(Disk J0}acket finished!6-@@6( Press SELECT to print again.-@@.( Press START to end."F:B0}2y,"@" AF:B2y,"@33F:B2y,@)F:B2y,@A` D:DISKJACKF:B0y x TMPADSKNAMESTBAFLTXT (n 4} ?, dG;A`,;@@,;@,;@,;A,;@D,X6. d6-2((>:A%,4}*** PROGRAM LABEL ***2 @@H(( ENTER DISK# (3)!$(A( ENTER DISK TOPIC (18)EH$(Q(+( 4}ԠԠˠΠţ.(Q( ** Press [RETURN] when ready).( -OR-.AdAU*MM(E ** TYPE 4}IN UP TO 44 CHARACTERS TO BYPASS THE DIRECTORY.+ F:Ad,"AU@C-XF:Ad,"@*Ad4}AU<AYN@@X @`246. 756-@!AY@4+ @04}5 Ap<8@1@@D:*.*86.FI A@)B:, @3 A?6-@4}I AEP6.7@<@,Z$$7@ <@ ,4 Ad+67@<@,.7@<@,S67@4}<@,.7@<@,{67@<@,.7@ <@ ,67@ <@ ,..n -@@6@4}x:7<,4 $67,.7%@,:67B:,%@,.  67B:,%@,. !67B:,%@,.! @p4} B0 6-B:,2B:, AP(67B:,%@,. 2 A`;AY@4(}-AR@1(4}; @02B:, @(67B:,%@,. 2 Ag}}3>:@',8>:@',0>:@',P>:@',ED4}ISK#  >:@',F 7@<@,UI3A----------------------------------------------------------4}-------U6-@"@Az Az37<%@,7%A<%A),7%A4<%AF,7%A4}Q<%Ac,7%A<%A,46-%@!A*37AP,4 A A% Ap,4}'3 3 33E333!3$3'36%fqDIMST$(110)iqOO6.Ehhhhhԩх֢ׅͥ؅ͅi>ͥ΅iΤϱː 4}=аȐjq<<67@p,.)>HˑhмжР`pqc#67@X<@X,.>:@(,C67@q<@q4},.>:@,c67@6<@6,.>:@,zq'A'A@q##6-?:C:,:@,zq'A'A@q##6-?:C:,:@8},G(@>:@',>:@,>:,(9@5("DISKNAME EINGEB ( FUER ENDE)9*# 4@8} @#-?6-6-'6-36-?6-@2(@ DISK = <6-%@d8}&&@@D:*.*x A@T(@ $6-%@26-%@T7@<8}@,4 FA&"@ @&6-1"@@ @% @16- A 68}"A 86-P:'@,:@6-%@<"-@& @" @ @@* B8}*F:A,"A8@ IF(FEHLER #F:A, IN ZEILE F:A,%AV$F:A,I& D:DISKINH8{oasBNCTRECCTINDEMARKEAD( <}11SUPER DISK LABEL PROGRAM by Richard Kushner""ANTIC MAGAZINE, JANUARY 1984Ӡ. ;@,<};@@,* (}'(LOAD PRINTER WITH LABELS.*(.+(#TURN ON PRINTER/850 INTERFACE UNIT..()&(INSERT DISKETTE IN<}TO DRIVE #1.)(# (PRESS WHEN READY.#( A##@@P:!<*@@'<})*@@Q<*@@%<(@>:@,<(@>:@',>:@,(;@7($ENTER <}DISKETTE NAME ( FOR END);*# 4@ @#-?6-6-'6-36-?6-<}@2(@ DISK = <6-%@d&&@@D:*.*x A@S(@<} #6-%@16-%@S7@<@,4 FA&"@ @&6-&"@<} @&6-FFƠǠΠҬŠŠƠҽΠҽ1"@0 @% <}@16- A 6" A 86-P:'@,:@6-%@<"-@&<} @" @ @@* B*F:A,"A8@ GD(ERROR #F:A, AT LINE F:A,%AV<}$F:A,G& D:DISKLABEB*F:A,"A8@ GD(ERROR #F:A, AT LINE F:A,%AV<"dBNCTRECCTINDEMARKE(@@@@@11SUPER @}DISK LABEL PROGRAM by Richard Kushner""ANTIC MAGAZINE, JANUARY 1984nnӠӠΠ ϠŠӬ@}ŠϠӠŠϠΠŠ??ϠŠ ŠΠԠԠƠӛ @};@,;@@,* (}'(LOAD PRINTER WITH LABELS.*(.+(#TURN ON PRINTER/850 INTERFACE UNIT..()&(INSERT D@}ISKETTE INTO DRIVE #1.)(# (PRESS WHEN READY.#( A##@@P:!<*@@}@')*@@Q<*@@%<(@>:@,<(@>:@',>:@,(;@@}7($ENTER DISKETTE NAME ( FOR END);*# 4@ @#-?6-6-'6-36-@}?6-@2(@ DISK = <6-%@d&&@@D:*.*x A@@}T(@ $6-%@26-%@T7@<@,4 FA&"@ @&6-@}FFƠǠΠҬŠŠƠҽΠҽ1"@@ @% @16- A@} 6" A 86-P:'@,:@6-%@<"-@& @" @ @@@}* B*F:A,"A8@ GD(ERROR #F:A, AT LINE F:A,%AV$F:A,G& D:DI@}SKLABLB*F:A,"A8@ GD(ERROR #F:A, AT LINE F:A,%AV$F:A,G& D:DI@280 OPEN #1,8,0,"P:"290 PUT #1,27:PUT #1,65:PUT #1,6310 FOR Y=0 TO 191 STEP 6320 PUT #1,27:PUT #1,75330 PUT #1,64:PUT #1,D}1350 FOR X=0 TO 319:A=0352 FOR Y1=Y TO Y+5:LOCATE X,Y1,Z354 A=A+A+Z:NEXT Y1360 PUT #1,A370 NEXT X:? #1:NEXT Y380 END ,D|56uCLSCLTLDOT1DOTXXFILECIOTAXYNTOTANSZH}  FILERdhh;@,;@,H};A,;@%,;@,;A,;@,;@,;@,xH6.>:A%,!6.>:AV,967@,.>:H}AW,H6.>:@ , B 6-@5 #A`!-@@%"167,.>:,5 104,104,104,170H},76,86,228$-@A 67,.$ +6-I:,&A+6-P:'A,;$A,'$ Maximum nuH}mber or records=' ,6@%%(oad or create ew file J6.7@<@,T( 4N6.6-H}( A^0LA h$$(Filename..r4A | BH} -@ Name & Address Database.$-@@$( Entries X%%( (1) Add aH} New Entry...(1)b%%( (2) Edit or Examine...(2)l%%( (3) Store The File....(3)v%%( (4) Find an Entry.....(H}4)&-@ (&@  Option... A B6-O:P:,,!! @)!@H}A  $A -@(Add A NEW Address.6-%@L 6.H} BV-@@`'#-@@%%+!@,'j-@B:,t7<,467<,. ~ H}, @%-@%(67,. , 6#6-+&@,$@%%@667<%@$,.  A!H}&6- &-@ Examine/Edit An Address.-@@ Address H}no.... 4A A 6-A:, B  @)!A *006.7+&@,$A%@H}<$A,4 B>-@@H (Correct R\G 4E( NOT SAVED 9  Press RI}eturn to continue=G Af4YA$p A!6-A:, Bz* 6-P:,* @)!@A!I}'#-@%@%+!@,':B:, @%+-B:,%@@%667,. : 6#6-+&@,$@%%I}@667<%@$,. A!` 6#6-+&@,$A%@667<%A,.j  !6- A I}     -@ Save to Cassette or Disk    $$(Filename.. I}4A0 F7@<@,4C<@@A(C:F A20 @@ I} @ 0@02 A -@I} Find an Entry.-@ %%(You may enter any part of the%%(address you wish to find.....(I}(...4A##6-?:C:,H A@&&6-P:+&@,'A,%@006.7+&@,$A%@<$A," B,-I }@ 6 This one @5B:,'7@<@,4Y+ 5 A!J6-?:C:,%@q,^ I } AA N!N*Na-@@)-@@ 7(>:AV,; O-@@ ](>:AW,I }a 4N&&( Name: 1)7@<@%,>N&&( Addr: 2)7@&<@P,HN&&( Addr: 3)7@Q<@u,RN&&(I } Town: 4)7@v<A,\N&&( County: 5)7A<A%,fN(pN&&( 6)7A&<AP,zN&&( I } 7)7AQ<Au,N&&( 8)7Av<A,N-@!N  Entry Number N =====I}==========N$NNR RRF7@<@,4C<@@A(C:F BP0R @I}@:RAP@DR0 6-C:,6-P:'AV,06-P:&$AV,NRARASXR'AWI}AU'AV@bR6-?:C:,<@,lR96-F:AQ,A66 Error >:AS,9&vR%%6-F:AV,I}%AV$F:AW,R67%@,.R6-'AR@R6-P:'A,*S$2S3S}}}I} };A ,#B P}-@A "}67<,.>:, (}$2}kk104,104,133,204,104,133,203,104,141,2I}41,6,104,141,240,6,104,133,206,104,133,205,104,104,141,242,6,2403}kk74,169,1,141,243,6,169,0,141,244,6,238,240,6,208,3,238,I}241,6,160,0,177,203,209,205,208,18,200,204,2424}jj6,208,244,173,243,6,133,212,173,244,6,133,213,96,104,238,243,6,208,3,238,I}244,6,230,203,208,2,230,2045}VV173,244,6,205,241,6,208,208,173,243,6,205,240,6,208,200,169,0,133,212,133,213,96D:FII}LER6,230,203,208,2,230,2045}VV173,244,6,205,241,6,208,208,173,243,6,205,240,6,208,200,169,0,133,212,133,213,96D:FIHVT %%ˠĠԠΠҠś""****************************""* ausM}: Hardcopy fuer Atari *""* Seite 50 *""**************************** d;@,;@`,M}n##@@P:x-@@> ";(@K>:@,>:, >3 M}##,Widerstand)),Schmelzsicherung//,Wicklung/InduktivitaetM}D:GRAPTEXT.BAS,Widerstand)),Schmelzsicherung//,Wicklung/InduktivitaetL  LHSFF +d&&;@,;@Q},;@,n6.0123456789ABCDEF 6.D1:##@@K:93(>:A%, H E X F I LQ} E D U M P 6(9((ENTER DISK FILE NAME67@<@,.4A A  @Q}@##@@P:"=2(>:A%,DEPRESS ANY KEY TO STOP PRINTER=(@,K@(@Q }>:@,HEX DUMP OF FILE --> >:@,K(@.HH(@7BYTE# 0 1 2 3 4 5 6 7 8 9 A B C Q!} D E F 6FF(@5-----------------------------------------------------@AdAUr6-P:'AV, Q"}Aw6-&+$AV, A|(@:  6.X$-@@$)@b A(@Q#} g467,..(+!@1,*+ A#,467,.>:,l)6-%@ )(@  F:Ad,"AUQ$}Ap)@AR@(--($CONTINUE, RESTART, OR STOP (C,R,S) ?$)@$"@gAQ%}"@A @A 9AR @+@6@976-F:A,Q&}A6-(ERROR# 7 A'-@#(@ ' 3(@ "(@3(@EOQ'}F#@@# A&6-P:'@,&6-&+$@,==(@7%@<%@,7%@:A%U/},O0@@@i0@0@@@6-@66-@6-@6-@U0}$$( ___________________________%%(****̠Ҡ****$$( ___________________________+ -+U1}(| COMMAND |=-&@%@=(>:@,>:@,>:@,H-&@!(>:@#,U2}% H(>:@,>:@,>:@,,w-@%@'-&@4(>:@,B-%@O(>:@,S wU3}(>:@&,>:@,>:@,hH-&@!(>:@$,% H(>:@,>:@,>:@,N@@U4}'@@7*(N(TORE ETRIEVE DIT LEAR RINT&&(ISK SAVE ASSETTE SAVE IST<-@@ <("U5}̠ŠԠ<-@@!<("ՠӠҠ$"-@!@"(U6}Ԡ9AR'-@@9( >:A&,$ A)@$ A6"@'!ARU7}@3A@d6$k"A%$-@F:@,:-@&@A( E Z-@F:@,a( U8}k Ap0F:@,!@4&(>:AU,0 Ap.F:@, @$"@0. Ap#!AU# U9}AXAp!ASAp (>:, Ap+ Ap:?-@!@'( 9-@ @U:}?(>N> A)@$ A0!A(>6-&A(X7"@ A0# AU - Ap7 A8aU;}b#"@ Ap0# A8al "@i AP EDITv!"@g Aa!CLEARy "@v AU<} LIST#"@ A0# Ah0>"@h!-@!@2( Šĺ>D:LABEL6"@e!-U=}@!@3( Š64 Ap6#@@K:&$6OPEN KEYBOARD@$4#U>}@@S:&$4OPEN SCREEN@$>EAR@'-@!@9( ǠE6-U?}H9-@@+-@@496-%@R: 1- (>:%A(,,!A(:6-&A(TU@}"@D6-@2W467<,.>:,  %6-16-4$EAR@F&-@!@&( UA}ǠG 6. A8d$AR@%-@!@%( ǠE6-#-@@UB}7-@@4E6-%@ -(7<,   &-@!@&( (6-$%-@!UC}@%( Ǡ0 6.6-06-@:7A<A,,O7A<A,4 767A<AUD},.=:,E6-%@O AUHU7A<A,0 3!@H* @XUA:7A<A,,Aia"I:UE}, A" Aid--@A@p-6-%@67B:,%@,.=:%,67B:,%@,. DATUF}A 67B:,%@,.>:@4,$$67B:,%@,.7<%@i, 67B:,%@,.>:@4,  Af5 6UG}.6-%67B:,%@,.1000067B:,%@,. DATA67B:,%@,.=:,67B:,%@,.,UH}67B:,%@,.=:,'2(>:A%,(( (CONT2-NAB@&XAB@vAUI}Y(>:A%,$*6-6-F:AY,*AY!!-@B:,B:,'@(>:A%,(##(7UJ}<%+B:,'@&@,," (CONT,-6AB@&@/AB@ # AVG/AYUK}_*@@'@@9*$PRINT OUT ROUTINENNӺӬŠŠĠŧҠUL}нϠΠŠ. Aha.-@AB:,'@++3 7<%+B:,'@&@,,   3 $UM}R(>:AS,"-@@:(ҠԠŠN-@AR 1-@@.( UN} 1$1U(>:AS,"-@@=(ŠĠQ-@AU 2=(>:AS,"-@@UO}=( 3' Ap4V(>:AS,"-@@>(ĠԠƠ٠R-@AUP}V 5>(>:AS,"-@@>( 6' ApbRETRIEVE ROUTINEv #B6.UQ}6.w%-@!@!(Ơ%x$-@!@$( "'7@<@,4##' ArUR}""7@i<@q,4Ar Ap@*((67B:,%@,.7@<@q,4((67B:,%@,.7@<@US}q,>((67B:,%@,.7@<@q,H$@ #BE 6.J@ " Ar A8a) A6)@UT}@ AK1@'17@<@,0##AT$' 11000,1NN"###,,++ LABEL PRINTER ++,,####------UU}-----+++++-------------- SORRY THE"II" LABEL YOU REQUESTED IS NOT IN THE MEMORY --------------"NN"----------UV}REMEMBER TO PRESS THE 'S' KEY TO STORE YOUR LABEL IN MEMORY " D:LABMAKER MEMORY --------------"NN"----------TP34ITAPSBBLFLNZRECLLTELMWAIP  (( YX} @ @ @ @ @ @@@#@@&@@@HYY}@@@2RRӠ͠ŠΠԠΠΠΠ͠ɠԠdYZ}nxQ#@@K:-+?AR@QAYh;A ,;@,;@Y[},;@,;@@,;@,;@,;@0,;@,6.AND PRESS RETURNv67@,. %67A ,.Y\} 467@,.;6.B6.I6.Q6. `67@@,.o67@,.v6.$$6.ORIGINAL DISKETTEN INHALT Y]}: A00@@D:*.*: B#-@6. # @)7@Y^}<@,4FREE) A6.7@<@,6-%@6-B:,*"6- @* A:0Y_}67$@&@<$@&@%,.: A0" 6.6- Ap,6=6-P:'@,%@,-@Y`}&=-@6@SS7$@&@<$@,/7+%,$@&@<+%,$@,A`Jn&6.7$@Ya}&@<$@,n67$@&@<$@,.7+%,$@&@<+%,$@,T..67+%,$@&@<+Yb}%,$@,.^ h r!@A=6-@6-@)6-&@2=A@'Yc}!6-@'6-@26-P:'@,CAY@4+1AR@C@@4 Yd}6-B:,$6-+@8&,'@0-4(-@@(S $-@@-$6.@ Ye}6.>:@2,4() 0(7$@&@<$@,4 ,@@%-%@,6.0@Yf}@ !@ 06.>:@2,4() 0(7$@&@<$@,4 <-@@!<("1) RUN Yg} 2) DOS 3) PRINT&2!!-@@"2( 4) NEXT PAGE0(-@@#(( CHOOSE OPTION:.)@Yq}bbҠbЮĮbŠb٠bˠbb%DOS SYSb!)BIO BASb JBLDLOAD BASbVCALENDAR b0iDISASSEMBASb DISKJACK bDISKLABLBASb DISKLABLJAKb DSKLABE BASb DSKLABL BASbDUMPER2 LSTb'FILER BASbGRAPTEXTBASb HEXDUMP BASb.)LABMAKERBASb"WMENUPRI BASb"SDUMP LISbADDRESS LABbSDMP1020BASbSDUMP0 BASbSDUMP8 BASbOCADCAM PRTb#CHART PRTb?DISKDUMP b+OEPLISTERBASb3zGTIADUMP bTINYLIST bINTRO bAUTORUN SYS. @I)!@RA`D6-A:>:,,N"@AX"@.b"@A li"@Yr}*"@&(>:A%,.6-%:6-@3S6-P:'@,%@2_6-@i A`v/"@*"@%6-Ys}@/ A`l A-@@!G(# INPUT PROGRAMM YOU WANT Y-@@"^(bl Yt}BP:,A"A&&6.7$@&@<$@,=7@ <@ ,4 36.7@Yu}<@,= Ap] -@@6@@67<,.7&@<&@,D ]67@ <@ ,..2 6.Yv}D:-@B:,27<,4 A 67B:,%@,.7<,  :AR@'-@@":( LYw}OADING * A % B4L-@@"*( CANNOT RUN 4 BH-@A L >)-@Yx}@)-@ @#H(7@<@8,R \-@@ A@PRINT ROUTINE A @Yy}#6-%@#6. 9 6-B:,967$@&@<$@&@%,.$$'@P:'@,A Yz}7 A-@@P:7 Bjj(@>:@,N-----------------------------------------Y{}-------------------------------------N8(@>:@,>:@ ,>:@ ,SN(@>:@,U?(@Y|}- DISKETTE NO: SEITE NO.U(@>:@,6-@,6-P:'@,"-@Y}},-e9(@>:@ ,7$@&@<$@,= S(@>:@ ,a6-%@e (@Y~}6-%@ @ A __(@N----------------------------------------------------------------------Y}--------@ A@LVy@(>:A%,-@@?AR@Q-@@c( CY}HECK PRINTERl(y)@`@@ Aju(>:A%,"@@4AR@F-@Y}@U( CHECK DISK^(k)@u A D:M(>:A%,"@@4AR@F-@XE94 REM ***SCREEN DUMP****95 REM *BY JERRY WHITE &*96 REM *FERNANDO HERREA *97 REM * NATIC MAGAZINE *98 REM * JANUARY, 198]}4 *99 REM ******************100 REM Р110 GRAPHICS 0:POKE 82,4:POKE 752,1:POKE 710,160:POKE 712,24:GOSUB 1601]}15 REM РҠҠӛ120 CLOSE #1:OPEN #1,8,0,"P:":? #1;CHR$(27);CHR$(64);CHR$(27);CHR$(51);CHR$(24)130 PR1=ADR]}(PR1$):PR2=ADR(PR2$)135 REM ΠϠҠЛ140 FOR X=0 TO 39:PICT=191*40+SCR+X:STR=USR(1536,PICT,PR1,PR2):? #1;PR1$:]}? #1;PR2$:NEXT X150 CLOSE #1:GRAPHICS 0:? :? "BASIC":? "IS";:END 155 REM Рӛ160 DIM PR1$(964),PR2$(964),HD$(]}4),FN$(15),CIOV$(42),DL$(33)170 ? :? :? "SDUMP CREATING:":LIST 175175 REM Ԡӛ180 FOR ME=1 TO 4:READ IT:HD$(ME,ME]})=CHR$(IT):NEXT ME190 DATA 27,76,192,3200 PR1$=CHR$(0):PR1$(964)=CHR$(0):PR1$(2)=PR1$:PR2$=PR1$210 PR1$(1,4)=HD$:PR2$(1,4)]}=HD$220 REM ˠϠΠś230 LIST 220:FOR ME=1 TO 42:READ IT:CIOV$(ME,ME)=CHR$(IT):NEXT ME240 DATA 104,104,104]},10,10,10,10,170,104,104,157,66,3,104,157,69,3,104,157,68,3250 DATA 104,157,73,3,104,157,72,3,32,86,228,169,0,133,213,189,67]},3,133,212,96260 REM ٠Ԡś270 LIST 260:FOR ME=1 TO 33:READ IT:DL$(ME,ME)=CHR$(IT):NEXT ME280 DATA 104,17]}3,48,2,133,203,173,49,2,133,204,160,1,200,177,203290 DATA 201,15,240,4,201,79,208,4,233,1,145,203,192,200,208,237,96300 REM]} ҠҠӛ310 LIST 300:FOR ME=1731 TO 1746:READ PAT:POKE ME,PAT:NEXT ME320 REM Ľś330 DATA 0,0,]}0,0340 REM ҠǮˠٛ350 DATA 10,5,10,5360 REM ҠǮԠٛ370 DATA 10,0,5,0380 REM ҠǮ]}˛390 DATA 15,15,15,15400 REM ΠРś410 LIST 400:FOR ME=1536 TO 1730:READ ML:POKE ME,ML:NEXT ME420 DATA 1]}04,104,133,204,104,133,203,104,141,192,6,104430 DATA 141,191,6,104,141,194,6,104,141,193,6,169440 DATA 1,133,207,169,191,13]}3,208,160,0,177,203,141450 DATA 190,6,165,207,240,28,169,0,133,207,173,193460 DATA 6,24,105,4,141,193,6,133,205,173,194,64]}70 DATA 105,0,141,194,6,133,206,76,95,6,169,1480 DATA 133,207,173,191,6,24,105,4,141,191,6,133490 DATA 205,173,192,6,105,0,]}141,192,6,133,206,32500 DATA 137,6,32,146,6,32,160,6,32,137,6,32510 DATA 169,6,32,160,6,165,207,240,177,56,165,203520 DATA]} 233,40,176,2,198,204,133,203,198,208,165,208530 DATA 201,255,208,151,96,173,190,6,41,3,10,10540 DATA 170,96,160,0,189,195,]}6,145,205,232,200,192550 DATA 4,208,245,96,173,190,6,74,74,141,190,6560 DATA 96,160,0,189,195,6,10,10,10,10,24,113570 DATA]} 205,145,205,232,200,192,4,208,238,96,0,0,0,0,0590 GRAPHICS 0:POKE 710,208:POKE 712,24:? :? ,"Π"600 ? :? " MICROP]}AINTER TO EPSON GRAFTRAX+"610 ? :? "by Jerry White & Fernando Herrera"620 ? :? "Print intensity patterns may be"630 ? "alt]}ered by swapping data in the"640 ? "following lines:":LIST 320,400650 POKE 752,0:POKE 82,2:? :? "ENTER DEV:FILENAME.EXT";:I]}NPUT FN$655 REM Рà٠ԛ660 GRAPHICS 24:SCR=PEEK(88)+PEEK(89)*256:ASM=USR(ADR(DL$))670 CLOSE #1:OPEN #1]},4,0,FN$:ASM=USR(ADR(CIOV$),1,7,SCR,7680)680 REM ԠҠҠӛ690 GET #1,IT:POKE 712,IT700 GET #1,IT:POKE 7]}08,IT710 GET #1,IT:POKE 709,IT720 GET #1,IT:POKE 710,IT730 CLOSE #1:RETURN 32000 REM Type Your Program Once -- "TYPO"321]}00 CLR :DIM Q$(20):QF=7:CLOSE #QF:? "File for output ";32110 INPUT Q$:OPEN #QF,12,0,Q$:QREM=032130 QCNT=1:FOR QADDR=PEEK(13]}0)+256*PEEK(131) TO PEEK(132)+256*PEEK(133)-132140 QSUM=QSUM+PEEK(QADDR)*QCNT:QCNT=QCNT+1:NEXT QADDR32150 ? #QF;"Variable c]}hecksum = ";QSUM:? #QF32160 QADDR=PEEK(136)+256*PEEK(137):? #QF;" Line num range Code Length"32170 QLINE=PEEK(QADDR)+]}256*PEEK(QADDR+1)32180 IF QLINE>=32000 THEN END 32190 QLEN=0:QSUM=QLEN:QCNT=QLEN:? #QF;" ";QLINE,"- ";32200 IF NOT (QCN]}T<12 AND QLEN<500 AND QLINE<32000) THEN 3227032220 QLEN=QLEN+PEEK(QADDR+2):QCNT=QCNT+132230 IF PEEK(QADDR+4)=0 AND QREM THE]}N QADDR=QADDR+PEEK(QADDR+2):GOTO 3226032240 FOR QADDR=QADDR TO QADDR+PEEK(QADDR+2)-132250 QSUM=QSUM+PEEK(QADDR):NEXT QADDR]}32260 Q$=STR$(QLINE):QLINE=PEEK(QADDR)+256*PEEK(QADDR+1):GOTO 3220032270 QSUM=QSUM-676*INT(QSUM/676):QCNT=INT(QSUM/26)32280]} ? #QF;Q$,CHR$(65+QCNT);CHR$(65+QSUM-26*QCNT);" ";QLEN32290 GOTO 32180SUM=QSUM-676*INT(QSUM/676):QCNT=INT(QSUM/26)32280\K01TABNAMESTREETTOWNCITYPOSTCOUNTVILLAGEAZx<a} RR;@0,;@0,;@0,;@0,;@0,;@0,;@,( +(((*a}(SWITCH PRINTER ON!-H(H(=POSITION TOP OF LABLE JUST UNDER BOTTOM OF MATRIX GUARD..a(a(VENTER ADDRESS AS YOUa} WOULD WRITE IT, CAPITALS OR SMALL LETTERS, SLOPED OR OTHERWISE./ ( (2   ENTER NAME  < ENTER STREa}ET F# ENTER VILLAGE # @PZ Bd ENTER TOWN n ENTER COUNTY a}x ENTER POSTCODE  AP B113>:@',>:@q,>:@',>:@i,33a}4A 334A@34A`3113>:@',>:@r,>:@',>:@a}p,((GO AGAIN 4Y @P" 4N, Ap D:ADDRESS.LAB:@r,>:@',>:@`dVW_SFLAADDNNNAACTREGREGREGREGBCOPZPPPASTARTFDISSCREESLOAe} e} 1020 e}PLOTTER SCREEN DUMPF< (}6-F:A,.A+&@2,<6-&@2P A0Zd%6-%@%@e}An6-%@6-F:,x-@@6-'@ 6-P:, 6-&$"67,.0e}$ A67,.1 6- '"@6-'6-@6-&@7<%@,4e}106-7<%@,4016-7<%@,4006-7<%@,4116-'"@6-@ e}'6-$"," (} ("(CHOICE OF COLOURS6'('( RED BLACK BLUE GREEN WHITE@J(J(? TYPE COLOUR Ce}HOICE AS ABOVE FOR BACKGROUND press J)6.  A#6-)6-TJ(J(? TYPE COLOUR CHOICE AS Ae}BOVE FOR PLAYFIELD 0 press ^)6.  A#6-)6-hJ(J(? TYPE COLOUR CHOICE AS ABOVE FOR e} PLAYFIELD 1 press r)6.  A#6-)6-|J(J(? TYPE COLOUR CHOICE AS ABOVE FOR PLAYFe}IELD 2 press )6.  A#6-)6-$*4WHITE6-@'6-@*$*4BLACKe}6-'6-*$)4BLUE6-@&6-A )$*4GREEN6-@'6-A*$( 4RED6e}-@%6-@V($G-(%PLEASE TYPE NAME OF COLOUR CORRECTLY!96. =G A F:A,"A6e}ACC(Error F:A, at line AV$F:A,%F:A,@ Ao<;@,e};@,;@,;@,;@,H6-T6-`6-@ o6.000000006.hLV6.D:&N (e}} (!(Enter file name $(,(D:0D67B:,%@,.N A0+@%@%@2:3AAe}'A 3ADN%%6-F:Aa,$AV%F:A`,X6-@b$6-F:AY,$AYle}+%@,@xv)+%@,@)+%@,+-@A'+%,@+ G+%A,@xe}/+%A,G+%A ,%@+-AA'+%,@+ K+%A,@e2+%e}A,F:A`,K+%A,F:Aa,AY6-+$AV,%@'@@!@e}'6-* A*@@'AI@'AX@+@+@@e}!AR@!AS'AV'AW@0 !AP@!6-?:C:,,@e} &6-&@@& AP*4##@@P:>((@((@M0,-700He}(@IR-@\-A@f-A6@p Aze}A (@C(@D2,0(@M0,1(@D2,1(@M0,2(@e}D2,2(@M0,3(@D2,3(@M0,4(@I3"A6$(@M2,-6403e}(@I  9(@M-384,0'(@I56-&@9 2A$(@M0,-200/e}@2## AV$F:A,%F:A,D:SCRDUMP1.02056-&@9 2A$(@M0,-200/dCC}ЭŠ }頠}堰}i}}ɭ}""****************************}""* aus: Hardcopy fuer Atari *}""* Sei}ite 17 *}""* Abbildung 2.1 *}""****************************P}##@@P:Z}i}-@#d}-@9n} 1x}(@>:,} }(@>:@,} }@i} D:SDUMP0.BAS-@9n} 1x}(@>:,} }(@>:@,} }@h 6VlSMESMEMS} }ɠ}m}}堸(} **************************)} *aus: HARDCOPY FUER ATARI**} * Seitem} 8 *+} * Abbildung 1.4 *,} **************************Z}4#@@P:4(@m}Ad};%6-F:@,%AV$F:@,;6-%@@$An}3-@96-%3(@ Kx} -m}A6@}(@>:F:,,}6-&@@} } }(@A }@D:SDUMm}PVII.BAS6@}(@>:F:,,}6-&@@} } }(@A }@D:SDUMl deL'`'QKCIRCOLDCOLORRFVWPARHORDIVERANPRERUSCRD1RD1XYXYCIRCLEANGLP5Aq}"AdAAA{@(W?t`1t @I5`y @ @ @cccc @4@@"@q}@@@@ ApUw'EA?pI@@'@'AEAC`)AEAg`) @q}!"@#@y$@u%@s&@''6DE(@$ A ##*** PRINTER INITIALISATION ** Aq}3>:@',3>:@$,767A%<A%,.W67@<@,.>:@',q67@<@,.K@67@q}<@,.>:@,$*** PRINTOUT SCREEN ***-@#))6-?:A6<$A :A%,)--(%q}.--(%àϠ͠РՠԠŠҠӠӠɠӠԠŠĠ3--(%8--(%ĠŠӠɠǠq}Π=--(%B$G6-H:,$@L+@%@Q0@q}V0@@[0@@` @e$j Ao-@t6-+AP'+&q}@,,y68<@,-A~$$68<@,-++$,&,%@!68<@,-8<@,68<@,-86-@H A5 A @A%# @ A5# Au# @ r }A5# A#!@ A`# AP A%-@6-@&g8<@, @r }36-@&8<@,C6-P:$G:$,,]68,-8<@,%+&,g AF6-8<@,&@,6-P:$G:$,,F68r },-8<@,&+&, $-@6-8<@,&A`68,-P:$G:$,,  $%%2r }@@@-@@!-@@ &%%2@@ @@+-@r }@ 0%%2@@0@@5 :%%2@?$D%%2@r}@@I%%2@@@@N-@@ S%%2X%%2@r}]$b>8<@,!A168<@,-A; A>$g>8<@, 16r}8<@,-@; A>$l>8<@,!A168<@,-A; A>$q%%2A@r}@v%%2@A@@{-@@ %%2%%2@r}$-@@36-%? +68<@,-E:,+68<@,-G:,   $ r}A56-5-@@5(堠ᠠ$ A5(([1] LOAD and RUN(r}[2] MENU displayed.FF(>[3] All functions are locked out except 'new design'. ([4] Select 'new design'.;r};(3[5] 'New design Y/N' is displayed for checking.LL(D[6] Program creates COS and SIN arrays for faster circle drr}awing.GG(?[7] Select how many construction circles are required.([8] Return to MENU.**("[9] Drawing pr}age is now available.0( (0(! ӠΧϠŠ F:B2y,@A 0 A5((r}[10] DRAWING PAGEG(G(< Select which segment to be drawn with fire button.Q(Q(F Joystick will then 'rr}ubber band' drawing line to the desired``(X profile. All eight directions are supported and there are limit r} checks. d(d(Y then draws design if other parameters have been entered.((((r} goes back to MENU+(+( ӠΧϠ F:B2y,@A u  A5%(r}([11] MAIN MENU*n(n(b Attempting to 'draw current design' without entering other parameterr}s /(will result in 4..(& program asking for these entries.9o(o(c 'Draw current design' will r} draw three-dimensional representation of >(drawn profile.C+( (+( ӠΧϠHr} F:B2y,@A! M A5R ( ( ( ([12] PARAMETERSWP(P(E 'Construction lines' r } Any number from 1 upwards.\n(n(c 'Angle of view' 0 deg - eye level, 90 r!}deg - overhead.^M(M(B After drawing is completed press [CTRL]P to print.a7-@@"7(Ӡr"}ΧҠΠf F:B2y,@A!Pk A D:CADCAM.PRTint.a7-@@"7(ӠpXFGXCOORYCOORXSCALYSCALXMARKERYMARKERZAZZZZZZZZZZZPAAY@R@ @v$}@E2@A @ B(H B1 @BuBwF@@$A6ADv%}E""Main prog.to start at L.1000))Gosub 190 to print out screen image&&*** GR.8 SCREEN DUMP ROUTINE *** v&}##*** PRINTER INITIALISATION ** ;A%, @03>:@',3>:@$,767A%<A%,.W67@v'}<@,.>:@',q67@<@,.K@67@<@,.>:@, @@0-A")A6v(}%- 0$""*** EPSOM DATA STATEMENTS ** BB104,104,168,104,24,101,88,133,203,152,101,89,133,204,104,141!9978,6,10v)}4,141,77,6,160,0,162,0,177,203,157,104,6,165"??203,24,105,40,133,203,144,2,230,204,232,224,8,208,235,165#??203,56,233,6v*}4,133,203,165,204,233,1,133,204,169,0,141,103$;;6,169,0,162,7,30,104,6,106,202,16,249,141,255,255,238%7777,6,208,3,238,v+}78,6,238,103,6,173,103,6,201,8,208&%%224,200,192,40,208,178,96,0,0,0(6-A6-AY26-@R6-@ v,}<6-@6-@PH@+@)@;AH;@P,xO,!/v-}'/3/E/O A =AR@=(# ŭҭŠˠԠ Av.}V(6.#1: AAA DOORKNOB RENTALS, INC.46-@@6-A0L6-V A` A[-6.##2: XYZ DESIGNv/}ER WASTEBASKETS, INC.96-@E6-A@Q6-[ A`; 6.$156-@%6-@616-; A`v0}; 6.$106-@%6-@v16-; A`: 6.$56-@$6-A06-: A`t##*v1}** PRINTOUT SCREEN IMAGE ***u-@#v))6-?:A6<$A }ii14.25,13.05,13.47,13.61,13.74,13.18,12.96,12.43,12.03,11.36,10.89,10.62,10.89,10.49,10.69,10.96,101 D:CHART.PRT` tzcdN`STARDEVTABDIRECTORYFILENAMEANSDISEDIRTACOLWIOUTPUNULDIRICOUNSPACWIDTPRNTEHEADCNB6z@}((*/B@@ @ @ @ @@@@zA}@@<JJŠȠԠìӬѩҠ̠ˠӠA +@/6-F:A`,zB}%F:Aa,$AVC%@ @W%@@k%@@%@@F'A@2'AzC}@sD;@,;@@,*;@,7;@,D;@,x>6.D:*.*>6.( zD} }o6-@6-@'6-@36-@@?6-@K6-W6-@c6-@o6-@zE} (}7 6.P: A3( Ҡ7#@@*@# A`"@6-zF} A'6-@6-@'6-@( A3 A( zG}   46.-DEFAULT NAME-'B:,!@ A, A188 7@#@@K:0)@;@>$ -"(@~U}}INITIALIZING ...-(@E<;@ ,;A,9@,;A,;@ ,E6.D:68@,-A~V}-68@,-AB68@,-AW68@,-Al68@,-A68@,-A68@,-A~W}68@,-A(68@ ,-A 4-68@,-A 5B68@,-A bW68@,-A gl68@,-A~X} x68@,-A d;A H, A`e5-@@1678,<8,,.>:@4,5 n- A-@~Y}@P:s?(@N?IF PRINTER IS NOT GRAFTRAX+ CHANGE TO ""v# 6.#(@ } ?x~Z}K @ (@>:,*AUA67B:,%@,.>:,K A y@zB:, @A}67@~[}<@,0D:,67@,.6 A0~ 6. A@* @@* AL~\}A@$,(@ }:(@L(@@6.1B:,!A !6.7A!~]},167A!,.U6-P:B:,$@'AV,:6-B:,$@&$AVU(@L>:,>:,p(@;~^}F:@,"@*F:@,"@R(@ }`(@p(@W-@B:,(6-@:7,,%@~_}S(@7$@&@<$@,W *@AU! 06.6.! AQ 6. A~`}PF:A,"A8#@B(@} M(@X(@s(@ (~a}@ |F:A,"A84(@ ?(@J(@h(@ press RETURNr~b} @ | A0F:A,A60(ERROR - F:A,(@pXX67B:,%@,.@0x|>|x0~c}8pp8qXX67B:,%@,.@??~d}rXX67B:,%@,.@zfz>>>>sXX67B:,%@,.@~e} 0~~0 ~~ 8|TT|8tXX67B:,%@,.@zzpppp$~~$$~~$$t\H~f}fl0fF ^N ppuXX67B:,%@,.@<~fBBf~<T|88|T|| 0`@vXX67B:,%~g}@,.@<~JR~< ~~ fNZr DFRznD 4~~tvRR^L<~RR^ @FNXp`wXX67B:,%@,.@,~RR~, rRV|866~h}768lƂ$$$$$$l8 `JZp xXX67B:,%@,.@<~BZz:>dd>~~RR~,<~BBf$~~Bf<~~RRRB~~PPP@<~BJNN~i}yXX67B:,%@,.@~~~~BB~~BB~|~~~~ > ~~>**:>~PP=%%?>}XX67B:,%@,.~l}@~~^^_^~~B~~>>8>>> >> >~XX67B:,%@,.@??$$<<$$??>> 0:**.$ |~m}~ <>>>8<<88>>8XX67B:,%@,.@ 66 9=>< &.:2 :~~:||px^N8||8XX67B~n}:,%@,.@χǏ??XX67B:,%@,.@~o}????????XX67B:,%@,.@煙~p}XX67B:,%@,.@QQρǃ遲XX67B:,%@,.@~q}ہہۋ))ϙ EXX67B:,%@,.@Á遲ǃ~r}ϟXX67B:,%@,.@Á݁ݙˁÁXX67B:,%@~s},.@ӁߍǓ9}}9ߟXX67B:,%@,.@ÁÁ~t}ÁXX67B:,%@,.@ÙρぁÁX~u}X67B:,%@,.@ÁߍXX67B:,%@,.@灙Ꮯ~v}ϟXX67B:,%@,.@Á큁~w}XX67B:,%@,.@XX67B:,%@,.@~x}߃XX67B:,%@,.@Ł~y}ǃ AD:EPLISTER.BASXX67B:,%@,.@Ł|<mmOPCHOICECHOICE1XYVAKENOKEFILENRTOBASBTHLDUNNXYMAXDYDBARCBUFFERGREYGRAYCMIXMASCAL{}SETUJOYSTICDPTMODBKGNBMIBMACMAMINNSH@WP (@9@y@@Ad|}AU 4 @ A8@@AIAA`}}A!A HX A@y A!"#@q$B(H%@&@u~}'@(@B)*@ +@,@-@1.@/@0@123456}7A GTIA LOADER AND DUMP1 +@@1AR@! A  A! A`(&(>:}A%,1 &,2" 6-F:," A0<6O:&@,,",&,,6 @P}"@b Ap"@@ A0"@G A"@5 A."@W B.FOR }SCREEN DUMPING"@FAP @P.S ApH(>:A%,*( TO EXIT).INPUT FULL FILENAME TO SAVE TOL}Sś307@<@,4E& B0 @@8@A(Bg6-AV$F:A,<6-F:@,%}AV$F:@,D6-&U6-P:'AV,g6-&+$AV,LWAP@*ARF:@,?ASF:@,K}AVWAWV$6-?:C:hhhLV,<@,$` B @@jY A0N(>:A%,0( FOR MENU). }INPUT FILENAME TO LOAD FROMRYět07@<@,4E& B0 @@~@A(W}AP@*ARF:@,?ASF:@,KAVWAW$6-?:C:hhhLV,<@,$ B} @@S8(>:A%,%DO YOU WANT TO SAVE THIS IMAGE FIRST?L@K:S)&>:,0Y*>:,0N}& A>:,4Y Ap"@G"@5%/-@y,!/% / @@M}ODE SELECTION(>:A%,'('(PLEASE SELECT GRAPHICS MODE: .( (.( MODE 9 (16 SHADES OF ONE HUE)0(0(%} MODE 10 (9 HUE/SHADE COMBINATIONS),(,(! MODE 11 (16 HUES OF ONE SHADE)#!( (!(DO PRESS RETURN$q( (q}(cPLEASE NOTE, MODE 9 GIVES A TRUE REPRE-SENTATION, THE OTHER TWO MODES ARE FOR EXPERIMENTAL EFFECTS!(@K:})2,,&@HA@ApA`<M6-@ ((M(3GRAPHICS Š GIVES YOU 16 SHADES OF ANY ONE H}UE.F\<(3WHAT BACKGROUND COLOUR WOULD YOU LIKE TO USE(0-15)@J+@\AR@PaA#@d!@}'6-36-@1?6-@M0@W A]6-a Zd6-@((a(GGRAPHICS Š GIVES YOU YOUR }CHOICE OF ANY 9 HUE/SHADE COMBINATIONS.d(d-@n1+(COLOUR # HUE,SHADE(0-15) 1x)) )!@}) )!@A68,-$@% x6-@ 6-@%'6-@1+@CA#A(O@}c-AAt8&A,x AR@ A 6- R6-@((O(5GRAPHICS ͂}Š GIVES YOU 16 HUES OF ANY ONE SHADE.R(,((WHAT SHADE(0-15) WOULD YOU LIKE,y +@AR@1}A#A=@G AU0@[6-g6-@1s6-@y6-W 6- #-8,8,@7}-@E,%APS/%AYW S 6-%6-@9'6-@y0O:&,?,8,AYP/8%,AY}S$AY{{9@,9@,9@2,9@,;@,;@@,;@ ,;A,;@}2,9@<@,i 6-6-!6-@-6-@96-@yE6-AIQ6-A]6-Adi6-A}U5-@@"$68,-("168,-5 GG0,0,0,0,0,0,0,0,1,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1},0,0"(-@@2"$68,-( ,dd8,11,12,15,16,19,20,23,24,27,28,31,32,35,36,39,40,43,44,47,48,51,52,55,56,5}9,60,63,64,67,68,7166.ave, etrieve746. ardcopy, ew, uit1AY@44$@%%6-F:A`,%AV$F:}Aa,JAYT%AfAC^'A@'Ah-A6AFr" } |++72,169,0,141,10,212,141,27,208,104,64BBAAY@4$ +@AR@}90@@ @S0@@@m0@@0@@ @0@@@}3-@@3(@GTIA LOADER/DUMP1-@@1(@ BY BRYAN COXLL(D For the scr}een loading and dumping of all 3 GTIA modes.-@A   (}+$0u44(>:A%,!a}ndom or atterned?(esc to exit):uP#@@K:0)@;@F"@:P,P B0Du"@'} @@Nu BXu##@@P:bu+-@+-@lu"68<,-vu }  u%%255,255,255,255,254,253,251,247u%%254,222,253,219,222,219,187,183u%%222,181,213,183,181,213,244,173u%%18}1,177,213,149,177,149,212,165u##177,145,149,84,145,148,84,161u145,33,148,68,33,36,68,72u33,1,36,8,1,4,16,64u}0,4,0,64,0,0,0,0uU67@,.%67@,.K=67@,.>:A(,U67@,.>:@,u>(@(@}>(@>:@',A>:@,um -@y6@,6-@@-AH1m67,.>:8P:}H:,$@,<,,uB067%@,.>:8P:H:,$@,<,,>6-%@B u!(@ ! v} B @@v7 B0#BP7@@P: v>-@@2")67<,.>:,- >Se}t grey scale*v%%255,255,251,223,251,222,206,1834v!!219,78,221,70,217,70,248,85>v 38,153,36,153,36,145,17,72Hv4,65,}4,32,0,16,0,0Rvy67@,.>:@',,67@,.KD67@,.>:A(,\67@,.>:@,yTell Epson 384 do}ts coming\vZ @ @> @>:@',A>:@,Zset Epson for 8 dots/linefv -@y6}@,6-@@-AH1X6-%%@n67,.7<%@,|6-%@ pv! @ } ! zv$D2:GTIADUMP.PRT1X6-%%@n67,.7<%@,|6-%@ pv! @ ()*LBHPAGTLILPRLINDEVICBUTTOFM} TINYLISTBY JERRY WHITEANTIC 4/10d APnQ 6.67B:,%}@,.:67B:,%@,. PAGE Q67B:,%@,.=:,s Ap36-x A 6- 6.$})@$"AUAp+6-%@!A'+6-&A( @26-@E67<,.>:, A}0;6-P:'A2,%@-"P:'A2,;6-&@ 6-%6-%! Ap! A@A /6-A} A/ @>:@,6-%@ AAR@< 6.=:,/67B:,%@,. LINES }PRINTED23< ApH(@>:@,--@@26 HAf. B'(.(PRESS І} TO RERUN<((PRESS TO END"(<(PRESS Ԡ FOR DOS!6-F:B2y,"@!.1"@+}(&(BASIC.(IS1""@%, Ap61(>:AS,(1(YOUR PRINTER ISN'T READY@,("(PRE}SS START WHEN READY, BJF:B2y,"@ T A0^<<;@,;@,;@,;I:,&A}V,h+6-@!A@+ Are6-Ap@%@E@@E:e@}@P:|27,65,5,15,27,83,0Q-@@"?2A&@@M67<,.>:,}Q ?((ԠɠΠ٠̠ɠӠԠ?2PAR'AdAU*(I(ENTER HEADI}NG INFORMATION:L(PE( (ENTER INPUT FILENAME$. A`EB:, @A@C37@<@,4:)7@}<@,4:96.C AP 6.D: 67B:,%@,.@@+@@=Af@}@$+(>:AS,!( NOT FOUND+ A ;6-Ap A--@@4(8 ;$ D:TINYLIST})*ALLFILESFOASCIFNSTAREXVA}  MENU REV1.00.PUBLIC DOMAIN 1989.BY DEAN G}ARRAGHTY.d&&;A,;@ ,;@ ,i6-@j6-@ek An&&@@D:}*.*x@}6.7@<@,367<%@,.367%@<%@,. 6-%B:,%@ }A @1 +AR@1@@#(#( ժ6-@6-}@ AP-#7%@<%@,4FREE- APE#7%@<%@,4FREE;( >:,.7<,E} APII( >:,.7<, >:%@,.7%@<%@,6-%@$6-%@$6-%@} A (((( PLEASE CHOOSE BY LETTER.##@@K:)@@}C#6-+&@e,$@%@C6-+&@e,$@%@"6-@"6.7<,,##6. } 667@<@,.D:@++67@<@,.7@<@,B:-@B:,!7<,4 '6-}-6-0': A0C J67<,..T//67%@<%@,.7@ <@,Y(( LOADING Z%"}7@<@ ,4DUP.SYS%.[ A^% ERROR.%(%( SORRY. CAN'T LOAD.-@A }6-F:@,@-&@@($ @-&@@($ } -&@ A`D:MENU @-&@@($ IEiͩkΩ͙kCop j`j {j`Hi͝Νh`}L"ORTNI:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh``hhh&JJ ](ll  LI0 |/qcdHH 99 H H  I9 9 } NY =H  I8 d c  |FcdL HII/ Ih8`h`Lcdc`cd`u F Ɗ}E KE]LG/auF a0BF/aɜɛ׽]E F  |W  KFL FREE SECTORS C}