@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  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8udX;Graphics macros for MAC/65nX;by Karl E. WiegersxX;$X;*******************************X;X;equates needed bT}y macrosX;VDSLSTSDMCTL/PCOLR0HPOSP0HPOSM0SIZEP0 SIZEM GRACTLU}PMBASE NMIENSETVBV\XITVBVb"X;,$X;*******************************6X;@X;VBION macroJX;TXV};Usage: VBION address^X;h X;'address' is the address orr$X;label for the beginning of your|X;deferred VBI routineX;W} VBION    AError in VBIONA %>4  $>5 Q> SETVBVX;$X;*************************X}******X;X;VBIOFF macroX;&X;Usage: VBIOFF0X;: VBIOFF D %>4XITVBVN $>5XITVBVXQ>b SETVBVlvX;$Y}X;*******************************X;X;DLION macroX;X;Usage: DLION addressX;X;'address' is the starting"X;Z}address of the DLI routine toX;be executedX; DLION    AError in DLIONA  QNMIENL>  PNMIEN*[} Q>4 4 PVDSLST> Q>5 HPVDSLSTR\fX;p$X;*******************************zX;X;DLIOFF macroX;X;Usa\}ge: DLIOFFX; DLIOFF  QNMIENN> PNMIENX;$X;*******************************X;X;SETPCOLOR macro]}X;!X;Usage: SETPCOLOR p#,hue,lumX;$X;p# is player number (0-3).X;hue is color number (0-15)8"X;lum is luminance^} value (0-15)B#X;all can be values or addressesLX;VSETPCOLOR `  j AError in SETPCOLORAt~  $ _}$>   Q T?T?T?T? Q>    % (%> 2< PPCOLR09FCPM>`}Z,d OPCOLR09n PPCOLR09xX;$X;*******************************X;X;PWIDTH macroX;X;Usage: PWIDTHa} p#,widthX;X;p# is player number (0-3)"X;width is width factor (1,2,4)X; PWIDTH    AError in PWIDTb}HA$> "Q>,  6Q>@J  TQ>^h PSIZEP09r|X;$X;*******************************c}X;X;PMGON macroX;X;Usage: PMGON addressX;$X;'address' is the address of theX;reserved PMG RAM blockX;d} PMGON    AError in PMGONA Q>5  PPMBASE&POKE GRACTL=0 QSDMCTL:L> D PSDMCTLNXbe}X;l$X;*******************************vX;X;PMGOFF macroX;X;Usage: PMGOFFX; PMGOFF Q> PGRACTL QSf}DMCTLN>  PSDMCTLX;$X;*******************************X; X;PMGRES macroX; X;Usage: PMGRES res*X;4g} X;res is 1 for single-line, 2>X;for double-line resolutionHX;R PMGRES \  f AError in PMGRESApz  h} QSDMCTLL> PSDMCTLX;$X;*******************************X;X;HPLAYER macroX;X;Usage: HPLi}AYER p#,XX; X;p# is player number (0-3) X;X is horizontal position X;$ HPLAYER .  8  AError in HPLAYERABj} L $> V Q> ` PHPOSP09j PXPOSP09t ~  X; $X;******************************* X; X;HMISSILE macro X; Xk};Usage: HMISSILE m#,X X; X;m# is missile number (0-3) X;X is horizontal position X; HMISSILE    AErrl}or in HMISSILEA  $>  Q> ( PHPOSM092 PXPOSM09< F P X;Z $X;*******************************d X;n X;MWIDTH m}macrox X; X;Usage: MWIDTH m#,width X; X;m# is missile number (0-3) X;width is 1, 2, or 4 X; MWIDTH  n}  AError in MWIDTHA  , D@SKIPMWIDTH @TEMP  @SKIPMWIDTH Q>   Q>" ,  6 Q>@ J o}%> T F@SHDONE^ @SHLOOPh T?r T?| 1 H@SHLOOP @SHDONE P@TEMP QSIZEM L@TEMP PSIZEM   X; #X;**p}**************************** X; X;PLFIELD macro X; X;Usage: PLFIELD width X; %X;'width' is 0 to turn screen off,&q} "X;1 for narrow playfield, 2 for0 X;standard, 3 for wide: X;D PLFIELD N  X  AError in PLFIELDAb l QSDMCTLvr}   Q>    V? V? T? T? L>    V? L> T?    L> * PSDMCTL4s} >  Q>    V? V? T? T? L>    V? L> T?    L> * PSDMCTL4d$X;Demonstration of player/missilenX;graphics macrosxX;X;by Karl E. WiegersX;F=EIX;#X;************** u}****************X; PULL IN MACRO LIBRARIES#X;******************************X;>D8:MACRO.LIB>D8:GRAPHICS.LIB v}X;X;equates we need todayX; ATRACTMSTICK0xSTRIG0" M0PL,COLPF06HITCLR@CONS w}OLJ WSYNC TX;^$X;*******************************hX; SET UP PMG STORAGEr$X;*******************************|X x};0X; PMG MIS PL0 PL1 PL2 PL3 XPOSP0 YPOSP0 XPOSM0 YPO y}SM0 LEFT RIGHT TOPX;&$X;*******************************0X; VBI ROUTINE STARTS HERE:$X;********** z}*********************DX;N@XX;bVBIlPOKE ATRACT=v#XPOSP0;;move car 1QXPOSP0;;pixel to rightP {}HPOSP0QSTICK0;;get stick 1M>;;left?HCHKRIGHT;;no,check rightQXPOSP0;;yes - at leftRLEFT;;edge?FM |}OVEMISSILE;;yes, go on"XPOSP0;;no, move Bonzo"POKE HPOSP0=XPOSP0;;to leftHMOVEMISSILE;;go on CHKRIGHTQST }}ICK0;;get stick 1M>;;right? HMOVEMISSILE;;no, go onQXPOSP0;;yes - at right RRIGHT;;edge?*FMOVEMISSILE;;yes, ~} go on4#XPOSP0;;no, move him to> POKE HPOSP0=XPOSP0;;rightHMOVEMISSILERQXPOSM0;;missile fired?\FCHKTRIG;;no, } check trigfQYPOSM0;;yes - at thepRTOP;;top?zHMOVEM;;no, move it POKE XPOSM0=;;yes - movePOKE HPOSM0= };;missilePOKE YPOSM0=;;offscreen$>;;zero outA;;missile 1 area ZMISSILE PMIS92(> HZMISSILE }FCHKTRIG;;check trigger MOVEMQ>5MIS;;move missilePMOVEFROM;;up 1 scan!POKE MOVEFROM=YPOSM0;;line%>$ } LOOPUP.Q@MOVEFROM781BP@MOVEFROM7L3V3`)> ;;missile is 10jHLOOPUP;;bytes tallt "YPOSM0~ CHKTRIGQST }RIG0;;trigger pressed?HCOPYBONZO;;no, go on$X;yes-copy shooting form of BonzoMOVE SHOOTER=PL0=QXPOSM0;; }missile fired?HVBIEXIT;;yes, exit$XPOSP0;;no, copy missile2;;form into PMG2;;and move to&HPOSM0;;Bonzo's lo }cation &XPOSM0MOVE MISSILE=MIS= ,  DVBIEXITX;copy normal Bonzo form COPYBONZO(MOVE BONZO=PL0 }=2X;leave VBI routine< VBIEXITF !XITVBVPX;Z$X;*******************************dX; MAIN PROGRAM STARTS HEREn$X; }*******************************xX;PX; START-;;binary mode GRAPHICS ;;open screenPOKE LEFT=8; };set limitsPOKE RIGHT=POKE TOP=$>;;zero PMG areaAINIT PMIS9 PPL09 PPL19 PPL29 PPL3 }9"2, HINIT6X;@$X;-------------------------------J X;now point to PMG area, moveT"X;car and Bonzo shapes into PMG^!X };RAM, set colors, widths, andh#X;positions, and resolution, andrX;turn on PMG and VBI|$X;------------------------------- }X;MOVE BONZO=PL0=MOVE CAR=PL1=SETPCOLOR == SETPCOLOR ==PLFIELD PMG }RES PWIDTH =PWIDTH =MWIDTH =PMGON PMGHPLAYER =xHPLAYER =HMISSILE = }POKE YPOSM0=VBION VBI&X;0$X;-------------------------------:X;clear collision registers;D#X;loop until }you get a collisionN$X;between the missile and the carX$X;-------------------------------bX;lPOKE HITCLR=v CHKCO }L QM0PLM> FCHKCOLX;$X;------------------------------- X;when collide, turn off VBI, X;move missile offsta }ge, copy%X;wreck shape on car; flash colors$X;-------------------------------X; VBIOFF POKE HPOSM0=PO }KE XPOSM0=MOVE WRECK=PL1= FOR I== SETPCOLOR ==  PAUSE *SETPCOLOR ==4 PAUS }E > NEXT IHX;R$X;-------------------------------\"X;change color registers, printf"X;messages, turn on rainbow for }p%X;color register 0, wait for presszX;of START or RESET keys$X;-------------------------------X;SETCOLOR == }SETCOLOR = =POSITION =PRINT =WINNERPOSITION =PRINT =WHATNEXT RAINBOW%> }2 &WSYNCA PCOLPF08 QCONSOL R>$ HRAINBOW. X;8 $X;-------------------------------B "X;close screen, reset }collisionL %X;registers, turn off PMG, go backV #X;and start it all over if START` X;was pressedj $X;----------------------- }--------t X;~ CLOSE  POKE HITCLR= PMGOFF !START X; $X;------------------------------- "X;lines to pr }int, player shapes $X;------------------------------- X; WINNER  ABONZO WINS!A=EOL WHATNEXT  Astart to go aga }in A  A ԠϠA=EOL X; BONZO  =<==~=(  ===<=<2  $=$=$=f===< X;F CARP   }==~===Z  [====d  [====~n X;x SHOOTER  ==$=B==  =~=<=<=<=<  <=$=B=$= }f X; WRECK  =Y=b=V==)  V==Y=l==V  (=T=V=== X; MISSILE ! ======== }= X; #X;****************************** X; DON'T FORGET THE SUBS! #X;****************************** X;" >D8:SUB }S.LIBX; #X;****************************** X; DON'T FORGET THE SUBS! #X;****************************** X;" >D8:SUB #)7)FILEFNDBTNADRMLBLVSSEHPHPSTSTBLKBLKSTADSTADADLCHHPVPCPIRNCNCNCBNCBCOLTA}LUMTADSTARBDLSTAR  $,4EAY @ A# @ }@ @6AAAVAVBrBHARAQB@@}@@A` AR!AH"B#Bx$B6%&'()*+@f},@-@6.@/B!0Bh $$CHRXFR.BAS -- ANALOG COMPUTING]];@,;@,;@,;@},;@,;@,;@,;@ ,9@,(& 6.D:6.Base&6.Transfer2o6-@$68},-A968@,-N68@,-AVc68@,-Aho6-A#<6-6-@'6-@6}36-?6-K6-W6-c6-o6-{6-6-Fo6-6-}'6-36-@?6-@K6-W6-c6-o6-PJ6-F:A, 6-&@.6-&@}<6-$AVJ6-$AVZ!A!AA$d--@@ ")67<,.>:,- nPP104,162,4},160,0,177,205,145,203,200,208,249,230,206,230,204,202,208,242,96x? (}AY-AR@?A@}!A$!SET AT XFR FONT-A""6@AA6% %%6-F:}A`,%F:Aa,$AV%@A0%@A0%@A0%@!A0}%@%A0-A""6@AA%" ,6-?:A,6BB}A@((72,169,6,141,10,212,141,24,208,169J%%0,141,23,208,169,26,141,0,2,169T!!6,141,1,2,104,64,72,173,0,4^''1}41,10,212,141,9,212,169,0,141,24h((208,169,10,141,23,208,169,58,141,0r##2,169,6,141,1,2,104,64,72,169|**224,141,10,2}12,141,9,212,169,144,141))24,208,169,10,141,23,208,169,89,141!!0,2,169,6,141,1,2,104,64,72))169,164,141,10,212,14}1,24,208,169,0&&141,23,208,169,115,141,0,2,169,6%%141,1,2,104,64,72,169,80,141,10**212,141,24,208,169,10,141,23,2}08,104 64,-1##104,160,176,162,6,169,7,32,92228,96,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,169,0,14}1,0,2,169,6141,1,2,76,98,228,-1 AY+6-P:+@@&+@%B:,,,'@,5 A0A-@Y( ** Ge}tting  **TBB@d2@@DBBAT-%A#()@ }%@($&N+6-P:+@@&+@%B:,,,'@,7-@N( ** Saving  **0NBB@d2@}@DBBAN-%:S*@F:, )BB@d4@FBBAP A0}S$D#6-6-%%#6-%%N -%X%F:,6-%@b   $lI@.@@}K:;)@F@I$vP-@@#-@I(! M P$P-}@@ #-@I(! M P$-@( $)-@&(&@>}:A',)$8-@(>:AU,(-@5(>:AU,8$8-@(>:AT,(-@5(>:AT,8$}*-@( !-@'( *$*-@( !-@'( *$<"@*"@E# AP/6-@}9 A`<$<"@*"@a# AP/6-@9 A`<$4"@a AP'6-%@1 A`}4$4"@E AP'6-&@1 A`4$$*"@v6-@'6-*$*"@6-}@'6-*$ &#"@B*"@*"@6&$&#"@C*"@*"@&$ (%"@B*"@*}"&@($*(%"@C*"@*"%@($4>"@C*"@# A16-&@; A>$>>"@}B*"@# A16-%@; A>$H>"@C*"@# A16-&@; Ap>$R>"@B}*"@# A16-%@; Ap>$\$f"@C*"@$p"@B*"@6$zV"@C} A# A16-&@?6-&@I ApS AV$V"@B A# A16-%@?}6-%@I ApS AV$$+6-@0+-@@@72@72@%@}@\6-&@ 72Y2@\$6-@@ })(* Hit any Key *3 A 6$8 A0-@@8(Select Main Block...F-@@ C(Use >:}@(,>:@), Then RETURNF$Z-@@4(Enter  Font File NameF-@@S(Here...WZ}$<37@<@,4:)7@<@,4:96.<$ 6.67@,.$9"A#6-A--@}@"6(Half9$9"A6-A#--@@"6(Full9$_@ BBA* A0<-@ }@U(䮮_ A P,Af@ A0) A@,$) A0Af) }A0$) A0Af) AP. A0 A8:-@@:( CHARACTER BLOCK TRANSFER UTI}LITYB'-@@'( Function MenuL<-@@<("R.1,2 ASE FONT AVE IRV=-@@}=(#RANSFER OAD NEW LEAR UIT`$-@@$( Messages..jAAf@!6-@-6-@A-}A't)!@56-@)6-%@~4 -(>:,6-%@" 4Af5-@@}5(Do you wish to start with a>-@@">($Save=Full Font (C)1988 A.N.A.L.O.G!A!A}A$6-?:C:,,@-@@$( base font?6AY@4@ A  A0@A`} AP6. A 4A`1 A 6- A ' A 1 A!A!AA$}6-?:C:,,O A0A$+-@@=( transfer fontOAf@ @-@@6( Ple}ase Select Function @ A "@fA"@A("@vA2"@A @}<"@gA F#"@q A# AP"@+Z"@hA" d"@}+n Ax+ A`-@@+(from...> A0-@@4(LOCK or EGMENT> A} 9"@6-@% Ap/ A9 AP%"@f6-% AP A A `} A  A6-8&@,!!"AU*"@A!!"AU*"A A`}J A@-@@@( alf Block or ull Block J A "@rAP1"@p6-'6}-AU1 A` A@-@@6( irst Half or econd Half @ A 1"@p6-'6}-A'1 A`"3"@6-A()6-&@3 A`, AP6J A0 A@)-@@}J(Choose eft or ight pointer@S-@ @G(Use >:@0,>:@1, Then Hit RETURNS6-@J A }TE'"AU*+&+%@,,"1 A0; A@E A^o"AU6-@'6-?6-+&@},$@e6-++&+%@,,$@,&@o A`h A`r A|:A$!-@@:(to.}.... base font ! A0 A@! A ` A  A6-8&@,!!"AU*"A0}!!"AU*"@A A%"AU6-% A@@-@@6( irst Half or} econd Half @ A %"@p6-% A@%"@6-A(% A@ A@B-@}@B(Move Segment with >:@0,>:@1,3 A@-@@ 3(Then Hit RETURN A I"A}U6-'6-?6-+&@,$@I A@ Ap& A0 A:U A0 A@})-@@A(TRANSFER COMPLETE..K A PU A@DJ A A#-@*( <-@@J(} NU6-@6-@6'A$9-@@K( transfer fontU AXfA$!-@@}3( base font E-@@f(This is your new BASE FONT..b A PlG A@A$+-@@}=( transfer fontG AvFAf'-@@F(ase Font or ransfer Font A #"@}f A0# A`#"@ A0# A  A  Ap6. A : 4 A0 }A@0Af@: A' A 6- A ' A )Af@ A0) A Ap}6. A : 4 A0 A@0Af@: A' A 6- A ' A )A}f@ A0) ApAf A01-@@N(Enter NEW FONT File Name`-@@}l(Here..p: 4 A0 A@0Af@: A + A  A0! AP+ A 3}-@@)(Save Complete..3 A P 3Af@ A0) A@3 A*4-@@4(a}se Font or ransfer Font4 A >#"@f A0# A!@H#"@ A0# A!R A!\T}-@ @/(Your BASE FONT is nowA-@@T(ATARI STANDARDf!A!AA$p6-?:C:},,z A P! A0 A@! A!A!AA$6-?:C:,, AB A0}BB@dB@@D:*.*@s!@*"@%6-@16-@CBB}AM A PW A0a A@sBB@d'!@6-@'6-@''7@<@,4FRE}EA" - (6-%@ A"0r@ BBA.-%@2(< A PF A0P A}@\6-@h6-@r A D:CHRXFR.BAS BBA.-%@2(< A PF A0P A;1 T BDEHI VT `RUN"D:. ɛ]݀}LȹɛȹLLCommand not supported! BDEHI VLU!˹lFORMATLOCKUNLOC}KDELETERENAME DIR1 BASICL"REBOOTwBLOAD"COPY"DUP$WDOS%WMEM%BSAVE&BOOT(HELP)GO+STATUS+CLICK}R0?]0D1:D1:*.*Directory - Drive #1D1:DOS.SYSD1:MEM.SAVWrite Verify: Active Drives: Maximum # of files that can be ope}n simultaneo usly: 8GLECan't format drive 8 from COM-DOS! B"DE#HI VLU!BJK}DE VLU!L #BJKDE VLU!L $BJKDE VLU!L !BJKD}E VLU!L   !BJKDE VLU!L ɛBJKDE VL BDE}HI VBDEHI V(L BDEHI VL  B VLU!Ԣ B V B V} ؠȹ) !" BID!E HI V BDEHI VLU!I/O Error - ʍ B}D!EHI VBDEHI VLEnter command:n`BJKL!E:̝D!E VL"}COM-DO}S Ver. 3.1 02/06/86"# BߝD!E&HI V)ҩ>(") LU!I `LtLe"No Cartr}idge! BVD"EHI VLU!BJKDE V LU!,L"ȢɛL"BJ}KDE VL ȹ/)ɛ## BJKDE V-L  B JKDE VL }BҝD0EHI V(L BҝD0EHI VLP#H˽I̢ #L# BҝD0E˝H̝I V`L } B V B VL#File copied. B#$D#E HI VLU!L:$Insert source disk, press RETURN. BD$E}"HI V BJKDE VL BҝD0E`HI VL H˽I̢ B VL$Ins}ert destination disk, press RETURN BŝD$$%E&HI V BJKDE V #L } B VLb%Duplication complete. BLD%EHI VLU!BJKDE VD B VL%DOS.SY}S file written. BD%EHI VLU!L %&8DL&Can't write MEM.SAV to drive 8! BD%E HI} VLU!BJKDE Vf BҝD0EHI VD B VL&MEM.SAV file written. BD}&EHI VLU!L ,L&ȹ, &'L& ȹɛL&BJKDE V} B"DEHI V ٥ԅ˥Յ ݩ  ٢ BԝDEHI V B˝DE}HI VԝD՝E ݩ ` ٢ԥ՝H'(I B VL((Enter RUN address (press RETURN if n}one) BD'E,HI VBDEHI V䭀ɛ: ٥ԍ Ս! BDEH }I V B VL(File saved. BD(E HI VLU!BJ()KL)D:AUTORUN.SYSD(E VP B } VLA)AUTORUN.SYS file already exists! BD)E"HI VLU! B VBJKL)D:AUTORUN.SYSD) }E VZɛL) B$DEIHI V B VLU! BD)E)*HI VLU!} LOCK D:filename.ext  } DIRn UNLOCK D:filename.ext FORMATn DELETE D:filename.ext WDOSn RENAME D:old,new WMEMn BSAVE D:file,begin },end REBOOT BLOAD D:filename.ext GO addr COPY D:file1,D2:file2[/] BASIC DUP D*+:filename.ext STATUS BOOT fi}lename.ext CLICK ?hxnm HELPn=drive number (1-8)hxnm = 4-digit hex numberAll input MUST be in d}ecimal. l BŝDEHI VyP'L+ON BǝD+E+,HI VL,L+OFF B}D+EHI V BӝDEHI V )1 , )2 , )3 , )4 , )8 ,Ln, Bm}D,EHI V BDE6HI V ԩ ؠȹ) BD,-EHI VL-} BDEHI V`L- BD-EHI VLU-Toggle Write Verify on/off (Y/N)? B3D-E"H}I VBDEHI VY ɛLU!L-yIyL-Change active drives (Y/N)? BD-.-EHI V}BDEHI VY ɛLU!L?/L_.Type the drive numbers, one at a time,pressing RETURN after each one. }BD.EFHI VL.Enter 0 when you're finished. BD.EHI VBDE./HI }V0S123#4+83L9/mL.mL.mL.mL.mL. L}/Change number of files t}hat can be open simultaneously? BBD/E;HI VBDEHI VYLU!L/How many/0 file}s do you want open at one time (1-7)? BƝD/E6HI VBDEHI V ٥ԍ L}U!ILU! 0έ 0 0խ 0έ 0 0 ؠȹ) BDEHI VLU!80m`0}0 e`! 0խ 0έ 0 0 ؠȹ) BDEHI VLU!80m`00 X;COM-DOS By Robert BerryX;Replacement Disk Utilities X;Package(X;2 X;Created using MAC/65 Macros<X; and a}nother one, POKE.F>D:SYSEQU.M65P LBUFFZ PTRd AFPn FSUB`x FPIق FR0Ԍ FR1 INBUFF} CIX IFPٴ FASCؾ FMOVE TRAMSZRESETVtREBOOTw RAMTOPjDOSLOAD LOLEN} HILENDRVBYT WVERIFYy"SABYTE , POKMSK6 IRQEN@CONSOLJCDTMV2TCDTMA2(}^ CHACThNOCLIKrCOLOR1|COLOR2 FINEn LOBYTE͚ HIBYTEΤ CBUFF  N1BU }FF  N2BUFF  DRNUM  BUFF2 A1 AINIDAT;Run address data ===& RUNDAT0 =!}:NNND =NPROGX =====b ===T==l = ==B==v ==D=== =E==="}= H===I==  V=====T = ====` R=U=N="=D=: FILEDAT ===== #}==.=== ======HEX$ ========= = ====== = =   ==$} CHECK%>$>  CMPLOOP QTAB8 R>EOL;;End of command?*FGOTCOM;;Yes!4RLBUFF9;;No, compare next>HFINDE%}ND;;branch FINDENDH2R3\ !CMPLOOPfX;p!X;Commands are not the same soq"X; far, so we must move to nextrX; command.z&}X; FINDEND3 QTAB8R>EOL;;End of next command?HFINDEND;;No, do it again3;;Skip over33 QTAB8R>'};;End reached? FENDTABX;%X;Not end of table, so reset X-regX;and jump back to CMPLOOPX;$> !CMPLOOP$ (}ENDTAB.(PRINT =ACommand not supported!A8 !MAINLOOPB GOTCOMLX;V%X;Goes here if a command is found.`X;j QTAB)}8tPPTR~ QTAB8 PPTR !@PTR:X;#X;This is the command table. TheX;format is:X;.BYTE "COMMAND",EOL*}X;.WORD COMMANDX;"X;A 255 should be placed at theX;end of the table.X;TAB AFORMATA=EOL  FORMAT A+}LOCKA=EOL LOCK( AUNLOCKA=EOL2 UNLOCK< ADELETEA=EOLF DELETEP ARENAMEA=EOLZ RENAMEd ADIRA=EOLn ,}DIRx ABASICA=EOL BASIC AREBOOTA=EOL REBOOT ABLOADA=EOL BLOAD ACOPYA=EOL COPY ADUPA=E-}OL DUPLICATE AWDOSA=EOL WDOS AWMEMA=EOL WMEM ABSAVEA=EOL BSAVE ABOOTA=EOL" BOOT, AH.}ELPA=EOL6 HELP@ AGOA=EOLJ GOT ASTATUSA=EOL^ STATUSh ACLICKA=EOLr CLICK| A?A=EOL HEXDEC /};;End of table FMTFILE AD1:A=EOL DIRFILE AD1:*.*A=EOL DIRMSG ADirectory - Drive #1A EOL DOSSYS0} AD1:DOS.SYSA=EOL MEMSAV AD1:MEM.SAVA=EOL WVERMSG AWrite Verify: A DRIVEMSG AActive Drives: A& MA1}XFILES0 AMaximum # of files thA1 Aat can be open simuA2 Altaneously: A: FORMATD QLBUFFNR> 8X HOKFMTb32}PRINT =ACan't format drive 8 from COM-DOS!Al !MAINLOOPv OKFMTPFMTFILEXIO ====FMTFILE)> H3}FMTERR !MAINLOOP FMTERR !ERRORLOCKXIO #====LBUFF)> HLCKERR !MAINLOOP LCKERR !ER4}ROR  UNLOCKXIO $====LBUFF )>* HUNLERR4 !MAINLOOP> UNLERRH !ERRORR DELETE\XIO !====5}LBUFFf)>p HDELERRz !MAINLOOP DELERR !ERROR RENAMEXIO  ====LBUFF)> HRENERR !MA6}INLOOP RENERR !ERRORDIR QLBUFF R>EOL FGETDIR PDIRFILE PDIRMSG GETDIR$ OPEN ===7}DIRFILE. )>8 FSDIRLOOPB !ERRORL SDIRLOOPV PRINT =DIRMSG` DIRLOOPj INPUT =LBUFFt )>~ FDIRDONE )>8} FPRINTIT !ERROR PRINTIT PRINT =LBUFF !DIRLOOP DIRDONE CLOSE  !MAINLOOP ERROR 'FR0;;St9}ore error X;Now close IOCB's 1 & 2 CLOSE  CLOSE  Q>;;Clear hi byte PFR0(  IFP2 X;< !X;Error code n:}ow in FP format,F X;stored at FR0.P X;Z FASCd X;n %X;Error code now in ATASCII formatx X;in LBUFF. X; X;Now find e;}nd of string, add X;carriage return. X; %> ELOOP 3 QLBUFF8 IELOOP M>;;Un-invert char. PLBUFF8 Q><}EOL PLBUFF8;;Store EOL X; #X;Now in ATASCII format in LBUFF X;with EOL at end of it." X;, BPUT =ERRMSG= 6 =}PRINT =LBUFF@ !MAINLOOPJ X;T X;^ X;h ERRMSGr  AI/O Error - A| X; X; X; MAINLOOP Q>ʮ PCOLOR1 Q>>} PCOLOR2 BPUT =EMSG= POKE = INPUT =LBUFF !CHECK EMSG  EOL=AEnter command:A  EOL ?}X; X; X;& BEGIN0 Q>: PFINE? %X; Do I/O to enable fine scrollingD OPEN ===AE:AN 6PRINT =A}COM-DOS @} Ver. 3.1 02/06/86AX QPOKMSKb M>l PPOKMSKv PIRQEN Q>4VBROUT PCDTMA2 Q>5VBROUT PCDTMA2 Q> A} PCDTMV2 !MAINLOOP VBROUT QCHACT N> PCHACT Q> PCDTMV2 : X; X; X;* BASIC4 QTRAMSZ> FNOBB}ASH !RESETVR NOBAS\ PRINT =ANo Cartridge!Af !MAINLOOPp BLOADz OPEN ===LBUFF DOSLOAD !MAINLC}OOP X; X; COPY "X;Format: COPY D1:file,D2:FILE2 %> CLOOP QLBUFF8 R> , FFNDCOMMA 3 !CLOOP FNDCOD}MMA Q>EOL PLBUFF8$3.$>8 CLOOP2B QLBUFF8L PCBUFF9V R>EOL` FMOVEDONEj3t2~ !CLOOP2 MOVEDONEOE}PEN ===LBUFF)> FFRSTOK !ERROR FRSTOK%> SLLOOP3 QCBUFF8R> /;;Append? FAPPENDIT RF}>EOL  HSLLOOPOPEN ===CBUFF)>( FSCNDOK2 !ERROR< APPENDITF Q>EOLP PCBUFF8ZOPEN = ==CBUFG}Fd)>n FSCNDOKx !ERROR SCNDOKBGET =ENDCOMDOS=)> FITSOK)> FPUT128 !ERROR PUT128H}BPUT =ENDCOMDOS= !SCNDOK ITSOK QICBLEN9 PLOLENQICBLEN9 PHILEN$> " PUTBYTES, !CONTCOPY6 I}PUTBYTES@ Q>CPBINRJ PICCOM9TQ>4ENDCOMDOS^ PICBADR9hQ>5ENDCOMDOSrPICBADR9| QLOLEN PICBLEN9 QHILENJ}PICBLEN9 CIO: CONTCOPY)> FITSOK2 !ERROR ITSOK2 CLOSE  CLOSE PRINT =AFile copiK}ed.A !MAINLOOPX;#X;DUPLICATE - Will duplicate the&"X;file specified after command.0X;: DUPLICATED2PRINT =AL}Insert source disk, press RETURN.ANPOKE =X DGLOOPbQlR> v HDGLOOPOPEN ===LBUFF)> FM}DUPOK !ERROR DUPOKBGET =ENDCOMDOS=`)> FDUPOK2 !ERROR DUPOK2 QICBLEN9 PLOLENQICBLENN}9 PHILEN  CLOSE 6PRINT =AInsert destination disk, press RETURNA POKE =* GETLOOP4Q>R> H HGO}ETLOOPROPEN ===LBUFF\$>f PUTBYTESp)>z FDUPOK3 !ERROR DUPOK3 CLOSE &PRINT =ADuplP}ication complete.A !MAINLOOPWDOS QLBUFFPDOSSYSOPEN ===DOSSYS)> HWDOSERR CLOSE Q}&PRINT =ADOS.SYS file written.A !MAINLOOP WDOSERR !ERROR$WMEM. QLBUFF8R> 8B HWMEMSAVL0PRINT =R}ACan't write MEM.SAV to drive 8!AV !MAINLOOP` WMEMSAVjPMEMSAVtOPEN ===MEMSAV~)> HWMEMERRBPUS}T =ENDCOMDOS=)> HWMEMERR CLOSE &PRINT =AMEM.SAV file written.A !MAINLOOP WMEMERR !ERRORT} BSAVE%>$> BSVLOOP  QLBUFF8R> , FBENDFL( PCBUFF923<2F !BSVLOOPP BENDFLZ Q>EOLd PCBUFF9nU}$>;;Copy 1st #x3 CN1LOOP QLBUFF8R> , FCN1DONE PN1BUFF932 !CN1LOOP CN1DONE Q>EOL PN1BUFF9V}$>3 CN2LOOP QLBUFF8 PN2BUFF9" R>EOL, FCN2DONE63@2J !CN2LOOPO"X; Filename now in LBUFF, n1 inPX;W} N1BUFF, n2 in N2BUFF.T CN2DONE^X;Open IOCB 1 for outputhOPEN ===CBUFFrX;|BPUT =NNN=$X;Now converX}t second number to FPX; Q>4N2BUFF PINBUFF Q>5N2BUFFPINBUFFQ>PCIX AFP FPIQFR0PPTRY} QFR0 PPTR IFPX;&X;Move it to FR10X;: FMOVEDX;NX;Convert 1st number to FPXX;b Q>4N1BUFFl PZ}INBUFFv Q>5N1BUFFPINBUFFQ>PCIX AFPX;X;Convert # to IntegerX; FPIBPUT =FR0=B[}PUT =PTR=X;$>QFR0 PICBADR9  QFR0PICBADR9 X;*X;Convert 1st # back to FP4X;> IFPH F\}MOVE;;Put it in FR1RX;\$X;Convert 2nd # back to FP in FR0fX;p Q>4N2BUFFz PINBUFF Q>5N2BUFFPINBUFFQ>]}PCIX AFPX;X;Do subtractionX; FSUB FPI;;Convert to intX;$>#FR0QFR0 FINCHI HSTORIT^}$ INCHI. #FR08 STORITB PICBLEN9L QFR0VPICBLEN9` Q>CPBINRj PICCOM9t CIO;;Put bytes~<PRINT =A_}Enter RUN address (press RETURN if none)AINPUT =LBUFF QLBUFF R>EOL FGOMNLP Q>4LBUFF PINBUFF Q>5`}LBUFFPINBUFFQ>PCIX AFP FPIQFR0  PRUNDAT QFR0PRUNDAT(BPUT =INIDAT=2 GOMNa}LP< CLOSE FPRINT =AFile saved.AP !MAINLOOPZBOOTd#OPEN ===AD:AUTORUN.SYSAn)>x FDOBOOT CLOb}SE 2PRINT =AAUTORUN.SYS file already exists!A !MAINLOOP DOBOOT CLOSE #OPEN ===AD:AUTORUN.SYSc}A%> BOOTLOOPQLBUFF8 PFILEDAT8 R>EOL FDONEBOOT3 !BOOTLOOP DONEBOOTBPUT =PROG=I" Cd}LOSE , !MAINLOOP6HELP@&BPUT =HELPLST=ENDLSTHELPLSTJ !MAINLOOPT HELPLST^ A}Ah A LOCK D:filename.extAe}i A DIRnA=EOLr A UNLOCK D:filename.exAs At FORMATnA=EOL| A DELETE D:filename.exA} At WDOSnA=EOLf} A RENAME D:old,newA A WMEMnA=EOL A BSAVE D:file,begin,eA And REBOOTA=EOL A BLOAD D:filename.eg}xtA A GO addrA=EOL A COPY D:file1,D2:fileA A2[/] BASICA=EOL A DUP D:filename.extA A STATUSA=q}B%DOS SYSB*)DUP SYSB!SBOOTCMP1M65B*tBOOTCMP2M65BSCHARXFERBASB*COMDOS OBJBdCOMDOSNWM65B?DISKPRNTBASBFASTPRNTM65BFASTPRNTOBJBBGEMSETUPBASBV+MICRODNGBASBTESSELA1BASBTESSELA2BASBTESSELA3BASEOL A BOOT filename.extA A CLICKA=EOL A ?hxnm A A HELPA=EOL EOL=An=drive numbr}er (1A EOL=A-8)A=EOL Ahxnm = 4-digit hex nuA AmberA=EOL AAll input MUST be in A Adecimal.A=EOL ENDs}LSTGOQ>4LBUFF PINBUFFQ>5LBUFFPINBUFF&Q>0PCIX: AFPD FPIN !@FR0:X STATUSbBPUT t}=WVERMSG=l QWVERIFYvR>P FVEROFFPRINT =AONA !DRIVES? VEROFFPRINT =AOFFA DRIVES?BPUTu} =DRIVEMSG= QDRVBYTM> FNXTBITQ> 1 PRBIT NXTBIT QDRVBYT M> FNXTBIT2 Q> 2* PRBIT4 NXv}TBIT2> QDRVBYTHM>R FNXTBIT3\Q> 3f PRBITp NXTBIT3z QDRVBYTM> FNXTBIT4Q> 4 PRBIT NXTBIT4 Qw}DRVBYTM> FENDDRIVEQ> 8 PRBIT ENDDRIVE PRINT BPUT =MAXFILES=6 QSABYTEPFR0Q>$ Px}FR0. IFP8 FASCB%>L MAXLOOPV3` QLBUFF8j IMAXLOOPtM>~ PLBUFF8 Q>EOLPLBUFF8PRINT =Ly}BUFF !CHANGEM PRBIT PBUFF2BPUT =BUFF2=: CHANGEM PRINT 2PRINT =AToggle Write Verify on/oz}ff (Y/N)?AINPUT =CBUFF QCBUFF R> Y FCHWV R>EOL( HCHCONT12 !MAINLOOP< CHCONT1F !CHDRVS?PCHWVZ Q{}WVERIFYdN>n PWVERIFYx CHDRVS?,PRINT =AChange active drives (Y/N)?AINPUT =CBUFF QCBUFFR> Y FC|}HNGDR R>EOL HCHCONT2 !MAINLOOP CHCONT2 !CHFLS? CHNGDRVPRINT =AType the drive numbers, one at a time,}}pressing RETURN after each one.A.PRINT =AEnter 0 when you're finished.AQ> PDRNUM DRLOOP"INPUT =CBUFF~}, QCBUFF6R> 0@ FDONEDRJR> 1TFDR1^R> 2hFDR2rR> 3|FDR3R> 4FDR4R> 8FDR8 !DONEDRDR1Q}>, ODRNUM PDRNUM !DRLOOPDR2Q> , ODRNUM PDRNUM& !DRLOOP0 DR3: Q>D ,N ODRNUMX PDRNUM}b !DRLOOPl DR4v Q> , ODRNUM PDRNUM !DRLOOP DR8 Q> , ODRNUM PDRNUM !DRLOOP DONEDR QD}RNUM PDRVBYT! CHFLS? !KPRINT =AChange number of files that can be open simultaneously?A!INPUT =CBUFF ! Q}CBUFF*!R> Y4! FCHFLS>! !MAINLOOPH! CHFLSR!FPRINT =AHow many files do you want open at one time (1-7)?A\!INPUT }=CBUFFf! Q>4CBUFFp! PINBUFFz! Q>5CBUFF!PINBUFF!Q>!PCIX! AFP! FPI!QFR0! PSABYTE! !MAINLOOP! }CLICK! QNOCLIK!N>! PNOCLIK! !MAINLOOP" HEXDEC" QLBUFF" COMP$" PHIBYTE." QLBUFF8" COMPB" PLOBYTEL"} MULTV" PFR0`" QLBUFFj" COMPt" PHIBYTE~" QLBUFF" COMP" PLOBYTE" MULT"PFR0" IFP" FASC"%>}" HDLOOP"3" QLBUFF8" IHDLOOP"M># PLBUFF8 # Q>EOL#PLBUFF8#PRINT =LBUFF(# !MAINLOOP2#COMP<#;F#}S>0P#>Z# QHEX9d#:n#MULTx# QHIBYTE#T?#T?#T?#T?#,# OLOBYTE#:# ENDCOMDOS#;;Run address# BEGINF#z TjTITLESPTEMPBORDTLENPFLAGDREDGELINEDNFRSECLNINDIN2KLDOTWIDTPPOHEIGHOUT1ADFINISBAINT}TPPOGCHARDAIVUPFGTROTATOUTHLOPRNAPRNNFILDPOSIDMAXLECNIINSLEFILDCUROUMATCTPOCHARDATOUT2ROTATE}GTPRNTZGT2@@ @ @ @ }} !@"#$%&'()*+,}-./0123456789:;<}=>?@A%%%%ˠԠҠ%%}Πà%%٠%%ԠΠ%%}%%٠ǠǠ%% ~ Br;@h,;A,};@P,;@P,9@,9@,;A2,;@,;@P,~6-@k;@,6. )67A},. 867@,.C6.K6.\67@P,.k67@,.&9@,9@,9@,568,-@%}J68@,-@!Y68,-@n68@,-@}68,-@68@,-@(P+!0@@@},@F@@K:P APd( 6-B:,6-$@$"6-(6--@6.L6-@}6-%@)6-@-:6-6@F6-L6-O6-@:7,,6-!A'#6-)6-O6-?:<<BsD<8}&A($,<<,J6-B:,%@&67,.2A>AJA46-?::@t%,>:,>:,!6-?:<<$@<$,!(" ,$=(>:A%,}"-@:(ˠԠ=$L%6-%6-$A%@V*67<%A,.*"@'Ap`}c-@@+(LOADING DIRECTORY5 A@@c@@D:*.*j$@$"@H}AptR7@<@,4 FH67$@%@<$@%@,.R A`~267<%@,.$6-%@}26-%@ A0@ A!$ F:A,"A6ApN(+( / ERROR!!>F:A},N( PRESS ANY KEY TO CONTINUE )@'' APC6-$@%@-67@,.7<,C67<},.7%@,A67@<&@,.(6-@46-@> A A$+6-6-+6-@}~+6-P:+@&8$@%,,'@,j6.7$@4%$@%@<$@4%$@%@,s6-8,~6-8,%(}'6-@&6-@' A2E'67@<@,.>:@,;67<,.>:@,E AP<-67@,.>:}@",-67,.>:@",FA6-@6-@% A 36-@&A6-%@P@AZ$x/ }6.|67,.|/67@<&@,.! *8,!67<%&@,.$D 6-6- A+6-@}76-@A A D$@F$6.SIDE A FREE SECTORSF67@<@,.>:%@e,Jv-67@<@,.7$@}%@,36-?6-@&H6-8,T6-@^ Aj6-@v6-@T A $6-@6-@}'6-@36-@?6-@5K6-@W6-@4[g6-As6-@6-6@4_-@#}*6.7<%@,;67@,. _67@,.7%@<%@3,, 6- A A %6-%) ,$h}6-6-+6-@76-@h67B:,%@,.7@<+@&,$@, A$4-6-$}A%@- @A!p>'-@&@'6-%@H-@&R;;7%@<%@ ,17}%@<%@ ,A!P\E6-%@6-%@*6.7<,:67<,.7<,E67<,.f6-%@ p6-}%@ z$ԠƠ͠K-@! A3-@@K(TITLE >:%@e,}>6-$@4%@+AR>67<%@3,.V-@@0(ENTER A TWO LINE TITLEV(! PRESS AFTER EACH LINE))(! MAXIMUM 17 CHARACTERS PER LINEg-@%6-$@9-@@ %O(}-----------------c-@@%g$ 6-B:,!@$6-@A68%$@,-=67%$@<%$@}%@,.A ^AR@'-@ @L(INSERT DISK>SIDE >:%@e,^-@@^'(OR PRE}SS FOR NO DIRECTORY4)@C68,-@O"@'^68,- A m A@@}1-@@H(raphics Density>\(ew Disk Jacketm( uit Program%( RINT%@@ 1-}@(@$(>:%Av,1)@'"@q6-@&' AQ#"@ AR# AQ("}@xAP2^"@!-@@0( QUIT(/)?=)@O-@@^( <"@}+F AQ0PԠԠZPAY ARp$8@P:D6-P6-@}Ida6- A# A- A7 AA AK AW6-@a An 6-@6-@A} (xK6-@ A# A- A7 AA AK A;-@! A% 16}-; AAY@4 AQ0_AY@4(9( / ERROR!!>F:A,_(! PRESS }ANY KEY TO CONTINUEB)@''(-@@8( B AQ0'Π'6-}6-@$']]9A',;@,;A `,;A `,;A ,;@,;@a,;@E,8'c-@1},68,-+%@d,$@0 D-@2@_68,-+&@2,$@c B',-@A'(68,-$@, }V'O67@,.%67A `,.467@,.=6-C:,F6-C:,O6-C:,`'-6.6-C:,$6-C:,-6-C:,}j'Š̠Ӡt'7 #B !-@A %"367<,.>:,7 ~'--@@")67<,.>:},- '--@@E")67<,.>:,- '--@@a")67<,.>:,- '$.gg104,104,133,213,1}04,133,212,104,133,215,104,133,214,104,104,133,216,104,133,222,104,133,221,160,0.__132,220,162,0,177,212,230,212,208,2,230},213,149,228,232,224,8,208,241,162,0,22,228,42,232.bb224,8,208,248,166,216,240,8,133,219,152,73,7,168,165,219,145,214,230,}220,165,220,164,220,201.^^8,208,222,162,8,165,221,56,233,1,133,221,176,2,198,222,230,214,208,2,230,215,202,208,236/((16}6,221,208,175,166,222,208,171,96/ff104,162,10,104,149,212,202,208,250,166,215,240,4,198,215,198,215,165,219,133,223,165,22}0,133,224/cc165,217,24,101,223,144,2,230,224,133,223,165,224,101,218,133,224,160,0,177,223,69,215,153,225&/\\0,200,152,2}01,9,208,243,160,0,132,217,165,213,240,4,152,73,7,168,185,225,0,164,217,1450/""221,200,152,201,8,208,233,96:/gg104,104,13}3,217,104,133,216,104,133,219,104,133,218,162,0,134,220,164,205,177,218,164,220,145,216D/NN230,203,165,203,197,204,208,6,16}9,0,133,203,230,205,232,224,8,208,227,96N/\\104,162,6,104,149,211,202,208,250,162,11,142,114,3,162,0,142,120,3,142,121,3,16}0,0,132X/dd220,177,216,162,48,32,86,228,230,220,166,220,228,212,208,243,230,216,208,2,230,217,198,214,208b/--227,165,215,}240,5,198,215,24,144,218,96D:DISKPRNT.BAS166,220,228,212,208,243,230,216,208,2,230,217,198,214,208b/--227,165,215,2 $X********************************$X** F A S T P R I N T **$X** By Bill Bodenstein **($X** !} 11/24/86 **2$X********************************<X;FX;This m/l routine will putP$X;characters directly into s!}creenZ X;memory for faster printing.dX;Output sent to the screennX;editor is routed here.xX;X** EQUATES **X;!}RGTMARGINSCURSCOLUKEYPRESS NOKEY BRKKEY BREAK CLEAR} RETURNX; ICCOMB!}ICBADRDICBAUXJ FPFLGNPAUSEFLGO" OPEN, CLOSE 6 INOUT @ CIOVJEHANDTABTX;^!}VKEYBDhX;rX;|X;INITIALIZE SETKEYINTQVKEYBD;;Change keybdR>5NEWKEYINT;;interruptFSETFLG!}S;;vector to goPOLDKEYINT;;to hereQVKEYBD;;beforePOLDKEYINT;;handling=;;keypressQ>4NEWKEYINT PVKEYBD!}Q>5NEWKEYINTPVKEYBD.X;& COPYEHAND0%>;;Move E handler:COPYBYTEQEHANDTAB8;;tableDPNEWEHAND8;;from!} o.s. toN1;;Fast PrintX ICOPYBYTEbX;l SETNEWPUTvQ>4EPUTCHAR ;;Set newPNEWEHAND;;put charQ>5EPUTCHA!}R ;;vectorPNEWEHAND;;to F.P.X;SETNEWHANDQ>4NEWEHANDP!Q>5NEWEHANDP"X; CLOSESCR$>!};;Close editor Q>CLOSE PICCOM9  CIOX;  OPENSCR*Q>OPEN;;Then open it4 PICCOM9> Q>INOUTH PICBAUX9R Q>4!}EDEV\ PICBADR9f Q>5EDEVpPICBADR9z CIOX; SETFLGSQ>;;Set flags:PFPFLG;;Fast Print onQ>PPAU!}SEFLG;;Pause on:X;X;EDEV AE:AX;X;X;"X;Receive a character being putX;to the screen editor.!}$X;. EPUTCHAR8 FPON?B%FPFLG;;Go to o.s. ifLHGR0?;;F.P. offVGO.OS!PRINTCHAR`X;jGR0?t%W;;Go to o.s. if~!}HGO.OS;;not text modeX; BREAK?%BRKKEY;;Abort ifFABORTOUTPUT;;breakedX; CTRL1?%;;Loop if CTRL-1!}HBREAK?;;pressedX; PAUSEON? %PAUSEFLGFFASTPRINTCHARX;  CLEAR?R>CLEAR;;If clear char,HCOUNTLINE;;r!}eset row(%>;;counter2 'ROWCNTR< FGO.OSFX;P COUNTLINEZR>RETURN;;Keep count of #dFINCLINE;;of linesn$CURSC!}OL;;printedx(RGTMARGINDFASTPRINTCHARINCLINE#ROWCNTRX;#X;Every 22nd line printed, pause"X;output and wait f!}or keypress.X; PAUSESCR? PRINTCHAR $ROWCNTR(> DLEAVEX; PUTMSG%>;;Print prompt'ROWCNTR;;me!}ssagePUTBYTEQMSG8"P@^7,36)>4ROWCNTRMSG @ HPUTBYTEJX;TQ>NOKEY;;Clear last^PKEYPRESS;;key pressedhX!};rWAITFORKEY|RKEYPRESS;;Wait for userHCONTOUTPUT;;to hit a key $BRKKEYHWAITFORKEYX;ABORTOUTPUT%>B!}REAK;; pressed 'BRKKEY:X;CONTOUTPUTPKEYPRESS;;Clear keypress CLRMSG%>;;Clear prompt C;;msg!}CLRBYTEP@^73&)>4ROWCNTRMSG 0 HCLRBYTE: LEAVE:DX;NX;Put character directly inX#X;screen memory unless sc!}rollingbX;or control character.lX;vFASTPRINTCHAR $CURSCOL(RGTMARGINEPRINTCHAR>M>;;Is char aR>};!};non-controlEPRINTIT;;char?R>  EPUTITR> DPUTITX; PRINTITA  PRINTCHAR?;;Print this char QE!}HANDTAB;;with o.s.* 5;;routine4QEHANDTAB>5HCR:\X;f PUTITp CONVCHARzR>`;;Convert to6;;internal A!};;charset8 EPUTCHAR;S> X; PUTCHAR%>;;Put char inP@^7;;curs pos in;screen mem MOVCURS#C!}URSCOL;;Move cursor #c;;pointers to #^;;next column HPUTCURS$ #_. X;8 PUTCURSB Q@^7;;Save char underL P];;c!}ursor andV N>;;inverse it` P@^7j X;t EXITPUTCHAR:~ X; X; !X;Clear row counter for screen X;pause everytime a ke!}y is X;pressed. X; NEWKEYINT 5 Q> PROWCNTR 7 !@OLDKEYINT: X; X; MSG A A ROWCN!}TR  NEWEHAND ( OLDKEYINT 2 X;< ENDFPF X;P X;Z d  INITIALIZEX; MSG A A ROWCN Vh Ux Xʍ!" B VB JgDE VNO`E:NLW%}IOR}ɛUS= /^ `^`US)}  H%}H``(8 ^Uc^_^]I^`Hhl `^`US)}  H$IP BDEIWZCHR12CFPGVEENBMALINZZDOPFMEMMLUNS)} )} !")}#$%&' ** GEMSETUP ** 9/86$$Sets Gemini printer from Atari88Jackson Beebe/807 W)}. Hill St/Urbana/Illinois/61801(** INITIALIZE **2 A<** MAIN MENU **Fk(>:A%,"A4)}AF-@k( P**(" |򠳮 GEMSETUP ʮ|Z**(" )}dE%( |B|Bottom margin | |7-@'@E( (0-16) |n11( |C|Condensed |)} | |x11( |D|Double strike | | |11( |E|Emphasized | | |E%()} |F|Font | |7-@'@E( (P/E/N) |X( |G|PaGe length |1-@%@8(|J-@')}@X( (1-127) |**(" |H|Help | | |11( |I|Italics | | |X()} |L|Left margin |1-@%@8(|J-@'@X( (1-255) |11( |M|Mini print | | )} |C( |P|Proportional |0-@%@C(| (1-6) |**(" |Q|Quit to BASIC | | |W( |R)}|Right margin |1-@%@7(|I-@'@W( (1-255) |00( |S|Spacing 72nds | | (1-127) |)}W( |T|Top line |1-@%@7(|I-@'@W( (1-16) |11( |U|Unidir print | | )} |11( |W|Wide print | | |11( |Z|Zero slashed | | |**(" )}"-@@"=(" COMMAND > O-@@"V( a@)}@@K:)@, 6.>:,64B)4bA @N+4C)4c,*4 &3>:@,.6.*)}@-@"@D(N AJN+4C)4c,*4*&3>:@,.6. @-@"@D(N ATY+4D)4)}d,*4 13>:@',>:@q,96.*K-@"@O(Y A^Y+4D)4d,*4*13>:@',>:@r,96)}. K-@"@O(Y AhY+4E)4e,*4 13>:@',>:@i,96.*K-@"@O(Y A)}rY+4E)4e,*4*13>:@',>:@p,96. K-@"@O(Y A|d+4F)4f,*4P<3>:@')},>:@f,>:@,D6.EV-@"@Z(d Ad+4F)4f,*4E<3>:@',>:@f,>:@,)}D6.NV-@"@Z(d Ad+4F)4f,*4N<3>:@',>:@f,>:@,D6.PV-@"@*}Z(d A4G)4gAp4H)4hAY+4I)4i,*4 13>:@',>:@R,96.*K-*}@"@O(Y AY+4I)4i,*4*13>:@',>:@S,96. K-@"@O(Y A*}4L)4lA d+4M)4m,*4 <3>:@',>:@,>:,D6.*V-@"@Z(d A1+*}4M)4m,*4*13>:@',>:@,Y+4M)4m,*4*13>:@',>:@r,96. K-@"@O(Y *}A4P)4pApd4Q)4q#-@@"8( J-@@!W3>:@,a+*}d4R)4rAP4S)4sA 4T)4tA Pd+4U)4u,*4 <3>:@',>:@*},>:@,D6.*V-@"@Z(d A&d+4U)4u,*4*<3>:@',>:@,>:,D6. *}V-@"@Z(d A0d+4W)4w,*4 <3>:@',>:@,>:@,D6.*V-@"@Z(d *}A:d+4W)4w,*4*<3>:@',>:@,>:,D6. V-@"@Z(d ADd+4Z)4z,* }*4 <3>:@',>:@,>:@,D6.*V-@"@ Z(d ANd+4Z)4z,*4*<3>:@',>:@* },>:,D6. V-@"@ Z(d AX AWRONG INPUTb** BOTTOM MARGIN **lI-@@"* }3(NEW bottom margin E-@%@"Iv6-A  A6 6-A:," )!@, Ap* }6 A \!3>:@',>:@x,>:,3-@"@;( M-@"@R(\ A** PAGE LENGTH *** }I-@@"3(NEW page length E-@%@"I6-Ap A6 6-A:," )!*}A', Ap6 ApZ 3>:@',>:@g,>:,2-@"@:( L-@"@P(Z A***} LEFT MARGIN **I-@@"3(NEW left margin E-@%@"I6-A  A6 6-A:,*}" @)!AU, Ap6 A Z 3>:@',>:@w,>:,2-@"@:( L-@"@P(Z *}A** PROPORTIONAL **f"@23>:@',>:@,>:,86.J-@"@N(`-@"@*}f(  -"@6-#6. - AT"!-@@">(Letter spacing P-@%*}@"T 6-A A*6 6-A:," @)!@, Ap6 A4F 3>:@',>:@,>:,2*}-@"@8( >6.F6. >8 6.=:,-@"@"(.6-@8 AH** RIGHT MARGIN **RI-@*}@"3(NEW right margin E-@%@"I\6-AP Af6 6-A:," @)!AU,*} Ap6 APpZ 3>:@',>:@,>:,2-@"@:( L-@"@P(Z Az** LINE SPA*}CING **J-@@"4(NEW line spacing X/72 F-@%@"J6-A  A< 6-A:,6.*}( @)!A'2 Ap< A Z 3>:@',>:@e,>:,2-@"@:( L-@"@P(Z *}A** TOP LINE **I-@@"3(NEW top line E-@%@"I6-A P A*}6 6-A:," @)!@, Ap6 A PY 3>:@',>:@,>:,2-@"@9( K-@"@*}O(Y A* * SUBROUTINES * *** CHECK FOR NUMBERS ** 4 ' -@B:,11@:7<,, *}@H)@:7<,,!@WAP   $T-@@"5(* must be numbers * I-@AM P'T *}$** ERROR MESSAGE **.P-@@"5(* WRONG numbers * I-@AM P$8** INSTRUCTIO*}NS **Bn >:A%,"AA4AAF-@n(#РРLI(&(*} Sets up GEMINI printerI( for Atari 8-bit computer VS(-("1. Set paper and turn on printer.0(S(2. Using* } BASIC, run GEMSETUP.`V(.(#3. Enter commands to set the type,V(# margins, and special functions.jD+(# Re-sel*!}ecting functions, togglesD( them on and off.tJ(-("4. Set margins last, as they varyJ( with each type size.*"}~N(.(#5. Program performs a form feed onN( Quit, to realign paper.K(*(6. Default right margin may beK( *#} custom set at line 1280.o-@@#=(" push ASAeA*$}o @p** INITIALIZE **;@,;@,;@,;@,;@,;@,;@,;*%}@,;@,;@,;@,;@,;@,;@,K6-6-@f'6-@36-*&}?6-@K6-@T 6. 6. 6. #6.P+6. 36. <6.12D6. L6. T6. A*'} AP3>:@',>:@d,fF:A,"A8(}0-@@BA@6f(* * TURN *(}ON PRINTER * *XF:A,"A8*-@@ Q(! push to begin UX% ** DEFAULT RI*)}GHT MARGIN **K6-@p,3>:@',>:@,>:,K( change R for new default ) $D:GEMSETUP.BAS33 P **}12 P *P * pS252* P *52 2 P 12 8or new default ) $D:GEMSETUP.BAS33 P (H**MRKCRDZOBGTS1TS2GPPPCCSSSBCAAXVVVGXPRAAPSPSPMPOOPOOPWXYTT.,}DCHSEKAAA, An     P     @ AR .-}@@@@ @@@AAt@9@9@@@@B..}A@ @!@"@A#@$%@&@'@(Ar)*@+@ ,@./}-@.@/@p0@1@234@5@ 6@7B89@:A&;@.0}<@=@>A?@@A MICRODUNGEON JERRY OLEJARZ FOR ANALOG MAGAZINE APR/86.1}THANX TO OLSIR,PCS Fiesta2~~9A,9A,9@,9@,;A ,;@ ,;@ ,;@,;@ .2},;@$,;@ ,7 A!dP6. .6.]]]]]]]]]]]]]]]]]]]]:6-@D A)PAVn.3}6-6-'6-46-6@@6-@L6-@ X6-@d6-p6-A|6-6-.4}@AA0x,'/@9,@K/@@]/@@o/@.5}/@,@@/@@bAR@(}%#A59-@@="Q-@.6}@%^(@b ((STARS ,, ,saved "] A)P-@@7(@ adventurer.7}I-@@](@beware[-A&68,-@8568,-@9 Q68,-8,[ A)P.8}y #A!-@@'"36-?6-AU"@5)"@6a6-Am"@6y6-@.9}- - 68,-$"@7-68,-"@368,-   A)0**9,39,19,41,9,37,9,33,5,36,4,35.:},19,42\0((} \(' SCORE |]]]MICRODUNGEON]]]|p/(' BONUS .;}|] 1988 ANALOG MAG]|\(( f A)p A>'6-P:H:,$@6,%@6$.<}>8,@8A$<%6-P:H:,$A,%@<8,@8A$nn6.d.=} cc67A,.P .>} ;;67A,.( )".?})67@0<@1,.A"(67@<@,.A67A<A,.A"@(67@<@.@},.A67A<A,.G"@+67A<A,.G67A <A,.K6-@6$%@.A}$%76-P:H:,$@,K"A+-@6-As' A+ 8,@8 A.B})8,8,68,-8,)6-%@o-@+-@@%?-@g(@>:8@6.C}$%@$%,,k o %2@A@@=1@%@%I&@2_,@%@%2.D}@J6-%@!@)6-3 AA6-@&J68,-<-@.E}+-%@8(@< j -@6@4-%@f(@7$@ %@<.F}$@ %@ ,j r%@!,@@8+!6@,$@J,@@V%@h,@@.G}r A)f @,(F:@w,!:@wH6-&@R A)f @A&6-R:.H},&"@ApQQ6-%+"@,%+"@,%+"@,&+"@,&+"@,&+"@ ,nQ6-%+"@ .I},%+"@,%+"@,&+"@,&+"@,&+"@,nT:,"Ap 1@2AP .J}s%2@AP@@/@25,;6-A6-K@Q,s2@$$8,"@.K}A*!@At6-%@ AP36-!6-%+ ,&+!,36-%+ ,&+!, 1"@.L}A@2AP9 @2,6-6-)@A/,9 AP, 6-8, "@3A 66.M}-16-@%P:H:,$@,S6-@%P:H:,$@,u6-+&@,$@ %%@67<,.>:,.N}$@[67A<A ,.[=:;<67A%<A),.[<[<X67AE<AH,.,,!<[$^1!@2* @C1 ++.O}$@,%@p,c[6-+"@ )"@,5*"@*AC6-%@Q6-&@[ Ad7*"@.P}6-&@-6-%@7 AeK%+"@*"@,*"@36-&@A6-%@K AfK%+"@.Q}*"@,*"@36-%@A6-&@K Ah Apr"APt/6-&@%@.R}/,@@u+6-6-&6-&%6-+6-v1%%6-%@w @2(+"*", ,.S}x@2AyG'2@$@@/6-%76-%A@9G,zG-@@ =2.T}G At|#@A A)# AP} ,68,-@8'68,-@81@.U}G,@%@%Q[ A)pi6-%As A)} AP06-6@ & A)0 AP.V}"6-%@"8,"A A  A) AP67A<A ,. <67A%<A).W},. X67AE<AH,. j-@@(@7A<AH,t6-6@68,-@8.68,-.X}@88@N,@%@%Xj,@@t A)p6-%A.-@6@<.Y}%b2@@0$@@$2@$@-@@    @2,.Z}@@3-@H%F:&@H%,L Z6-%Ad A)r6-%@"@A!%.[}@!,@@ AP6-%@6-@ 6-@36-@$+&@5P,a-AP$+ .\},AP$+!,}2@@ 2 A6-&@ A.]}$16-6@!6@' A)1 AP"6-%@"8,"AH AD% 6-@%,@.^}@}68,-@8!68,-@8/6-%@P9 A)C@2I,S@i,@%@%s A)p._}} AP#!@ A)# AP96-%@%@/,@@9 AP A) A.`}6-P:H:,$@,5 @+6-&P:H:,$@P,5 APk!@* @26-@$N:.a}&@,@6-&@Pa6-P:+&@,$'+&@,,k APC)6-&+@P%P:H:,$@P,,6 6@PC6.b}-6@P AP<-@+-%@8(@<  @A0 6-&@6.c}-%@) A)M2'@@@c @*!s6-%&@6-@ A" !.d}A" i-@@2(@D-@@_(@ i A@a.e}-@@1(@C-@@a(@K-@@ '(@.f}game9-@@K(@over_-@@3(@STARTE-@@_(@ .g}&'( SCORE '( D?+F:B2y,"@*T:,"@5 A)P? AN A.h}4\6-F:A,&@.A&@<6-$AVH6-R A)\ A"6 #A!9--@@.i}2")67<,.>:,- >!!104,104,133,213,104,133,212@!!104,133,215,104,133,214,162B4,160,0,177,212,145,214D.j}!!200,208,249,230,213,230,215F202,208,240,96H!!6-?:C:,<A$$AV<,R!&@!#A!PWM".k}!'-@+"?+%$@%,C M A!5\ A"P$f''2,255,129,189,165,165,189,129,255g.l}5,28,20,28,8,8,24,8,24h##9,62,127,73,91,127,127,127,85j8,24,24,60,90,24,36,36,36l7,0,8,16,92,58,8,16,0n((.m}26,255,255,255,255,255,255,255,255p((27,254,252,250,246,238,222,190,126r&&28,254,252,248,240,224,192,128,0t((29,127,.n}127,127,127,127,127,127,127v&&30,127,63,95,111,119,123,125,126x31,127,63,31,15,7,3,1,0z&&12,0,255,255,255,255,255,.o}255,255|((11,255,128,176,176,160,160,128,128~15,255,1,13,13,5,5,1,159,0,1,3,7,15,31,63,127&&60,0,128,192,22.p}4,240,248,252,254$$61,170,85,170,85,170,85,170,856,0,0,0,24,24,0,0,03,0,8,28,62,8,8,8,04,0,8,8,8,62,28,.q}8,0!!1,28,54,34,127,119,119,62,0 14,24,24,60,90,24,36,36,3610,0,8,8,8,28,54,54,28""13,0,0,14,63,127,253,24.r}3,1260a%6-F:A`,%AV$F:Aa,9%@@fM%@@a%@@%@#.s}@+%@$@?%@%@S%@&@ej%@'F:A`,%@(F:Aa,T @:_,.t},@@0/@1@B,@@T/@2@8 #A"%!-@@)"/-4(.u}8 PP12,2,ANALOG COMPUTING,16,3,presents,4,6,,12,7,By Jerry Olejarz888,13,INITIALIZING EVERYTHING-,13,14,.v}PLEASE WAIT...$96. HIT fire BUTTON TO 96. START THE GAME a @2,@@1/@1@.w}C,@&@U/@@aAV-@+-@&@B(7@<%@,T-.x}@k(7@ &<@ ,T:,"$r'2@$@@U2@@$+@&,.y}@@Y f6-6@r6-@T:,"$V 6-%! @)!@(6-6B6-P:H:.z},$@,L A)PV A"e)0@&T:,")$ A"`T ̠ӛr :-@.{}327 :$ U-@!#A)U;6-P:H:,$@,I-@M"Q U" .|}2@@  $ $$243,193,162,121,96,81,60,47,40 ' A6-@&$68,-'$ ` #A)u!-.}}@%"A2@@U-@@ Y ] `$ ''251,217,193,162,162,193,162,162,0 u -@.~}6@@2AU&@$@n2@AU&@$@'@r u$ ( (.} ( $ 7+@-0@7 A) 0@@ ~0@@@.}70@@@Q0@@c@uAR@{(}~$D:MICRODNG.BAS,w./RPXYYCENTXCENTSCRNSCRNSRCNXY2}  &&**** TESSELATION PROGRAM #1 ******2}** SQUARE TILES ****00**** BY ALLAN MOOSE AND MARIAN LORENZ ****( +@$@24,-4,4,4,-4,4,-4,-4,4,-4<$2}$**** DRAWING CONTROL LOOP ****F-@A@P-@A@Z #@Pd A`n 2},x A` / A` / A` / A` /  ! A !THE2} PROGRAM'S END77**** SUBROUTINE TO READ AND DRAW COORDINATES **** " 6-% 6-&"$2} D:PROGRAM1ND77**** SUBROUTINE TO READ AND DRAW COORDINATES **** " 6-% 6-&"$0 vwg YCENTXCENTFLASCRNSCRNXYPR1PR2HDMIPRPRSCPICSTMGRAFSCRNMEMEMLOSCRNCOHIBYTLOBYTGRHGRLGR6}ADUM 6} 6}&&**** TESSELATION PROGRAM #2 **** **** TRIANGULAR TILES ****00**** BY ALLAN MOOSE AND MARIAN LORENZ ****($ }6}$ LOADING SCREEN DUMP...2 A<C +@1A@F1A ACA@`A**** COORDINA6}TE DATA ****F0,-8,0,8,-12,-8,0,-8P0,-8,12,8,0,8,0,-8U$$**** DRAWING CONTROL LOOP ****Z-@Av@6}d-@AD@n6-@x A6-@ A  $ A$GOTO6} THE SCREEN DUMP,,**** SUBROUTINE TO DRAW TRIANGLES ****#"@#@p#@#"@#6}@#@ A, A/ A/ A/W"@-&@/6}Ae@W@@S:$ AA**** SUBROUTINE TO READ AND COMPUTE SCREEN COORDINAT6}ES ****" ", 6-%6 6-&@$ ,,**** TEXTURED SCREEN DUMP PROGRAM ****%*;A,46}B67@,.>:,367A,.>:,B67@,.>&&3>:@',>:@e,>:@,H%%6-F:@,%F:@6},$AVR6-%@@$A\9A'A9Af-%@9p6-P:6}'AV,z6-&$AVAA 6-P:C:,'AV,6-C:,&$AVAA6}6-?:A6,333>:@',>:@v,>:AD,>:@,  #A0%-A6A"6}!% $__104,169,192,133,203,160,0,177,208,170,41,192,201,128,208,9,133,204,169,64,133,205,76,29,6^^133,204,16}33,205,138,41,48,201,32,208,13,5,204,133,204,169,16,5,205,133,205,76,57,6,5,204\\133,204,5,205,133,205,138,41,12,201,8,206}8,13,5,204,133,204,169,4,5,205,133,205,76,85,6$YY5,204,133,204,5,205,133,205,138,41,3,201,2,208,13,5,204,133,204,169,1,5,26}04,133,204.ff76,113,6,5,204,133,204,5,205,133,205,230,206,208,2,230,207,165,204,145,206,230,206,208,2,230,2078>>165,2056},145,206,169,0,133,204,133,205,198,203,240,18,216B>>56,165,208,233,40,133,208,144,3,76,5,6,198,209,76,5,6,96 D:PROG6}RAM2206,169,0,133,204,133,205,198,203,240,18,216B>>56,165,208,233,40,133,208,144,3,76,5,6,198,209,76,5,6,96 D:PROG4 YCENTXCENTFLARODRACHOOSREASCRNSCRNXYPR1PR2HDMIPRPRSCPICSTMGRAFSCRNMEMEMLOSCRNCOHIBYT:}LOBYTGRHGRLDUM :} :} &&**** TESSELATION PROGRAM #3 ****##**** QUADRILATERAL TILES ****00**** BY ALLA:}N MOOSE AND MARIAN LORENZ ****($ }$ LOADING SCREEN DUMP...2 A<C +@1A@1A@:}CA@$F&&**** DATA FOR THE FIRST ROW ****P -6,-4,0,-10,0,8,-6,6,-6,-4Z0,-10,6,-4,6,6,0,8,0,-10d#:}#**** DATA FOR SECOND ROW ****n-6,4,0,10,0,-8,-6,-6,-6,4x0,-8,6,-6,6,4,0,10,0,-8'6-@'INITIALIZE Y-POS:}ITION$$**** DRAWING CONTROL LOOP ******** DRAW ROW #1 ****-@AP@6-@6-@:} A@6-@ A@ **** DRAW ROW #2 ****'6-%@!Ad' A****:} DRAW ROW #2 ****-@AP@6-@6-@ A@6-@" A@, 6:}'6-%@!Ad' A@- A`-LOOP BACK TO DRAW ANOTHER ROWEJ''**** MAIN DRAWING SUBROUTINE **:}**OT A A@^ ,h A@r /| A@ / A@ / A@ /:}a"@*"@'-&@9Ae@a@@S:a"@*"@:}'-&@9Ae@a@@S:$++**** CHOOSE CORRECT DATA NUMBERS ****:}-"@*"@##@-@-"@*"@##@-@-"@*"@##A:}-@-"@*"@##A -@$ AA**** SUBROUTINE TO READ AND COMPUTE SCREEN COORDIN:}ATES **** "& 6-%0 6-&:$ $$**** TEXTURED SCREEN DUMP ****%*;A,4B67:}@,.>:,367A,.>:,B67@,.>&&3>:@',>:@e,>:@,H%%6-F:@,%F:@,$:}AVR6-%@@$A\9A'A9Af-%@9p6-P:'AV:},z6-&$AVAA 6-P:C:,'AV,6-C:,&$AVAA:}6-?:A6,333>:@',>:@v,>:AD,>:@, %%**** MACHINE LANGUAGE DATA **** :} #A0%-A6A"!% $__104,169,192,133,203,160,0,177,208,170,41,192,201,128,208,9,133,204,:}169,64,133,205,76,29,6^^133,204,133,205,138,41,48,201,32,208,13,5,204,133,204,169,16,5,205,133,205,76,57,6,5,204\\133:},204,5,205,133,205,138,41,12,201,8,208,13,5,204,133,204,169,4,5,205,133,205,76,85,6$YY5,204,133,204,5,205,133,205,138,41,3:},201,2,208,13,5,204,133,204,169,1,5,204,133,204.ff76,113,6,5,204,133,204,5,205,133,205,230,206,208,2,230,207,165,204,145,2:}06,230,206,208,2,230,2078>>165,205,145,206,169,0,133,204,133,205,198,203,240,18,216B>>56,165,208,233,40,133,208,144,3,7:}6,5,6,198,209,76,5,6,96 D:PROGRAM3206,169,0,133,204,133,205,198,203,240,18,216B>>56,165,208,233,40,133,208,144,3,78*