L|&+EQA Q BYYYY  R@P m   !  0@R!L}`S @1H& )* Yh`'&'ԭ֭Ԧ`CODPפ  38`CȱC)ȱC( Q ݥ gРCmCD` `H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@| Ҡ2e1i1232435ޥ<<8`^ u ]  : J)LI D L(( h L|Y)*ɢjT  A>لNA>LA 0٭) Ȅ A0 @ٮٝy؝}L|{A~ )`1   Y8`N@  LE:V V W VWV VWV W V V V VWV |`^ u ]  : J)LI D L(( h LL() [ L6 L( | L 0p  [  C?   O ~ L? |LL  !` O ) `A! ߰")- 0" $ |G@LLL&0") e $G%H0 3P8`GȱGȱG 0GȭGȭGG}GH |8(()) e G$H% D`(0)8` )LU LGȘ LL  : |  LL )N>Q G 7 !H H) h  OhyhyB  1L > L$ |JJ R  R T L *` B'8 0 } H| H`$ g 3 LHG!@1F K|GȱGLLEE Ed E7EȩE 1 ͍8 3L  : L|  P ?   : L  : :    1L  [  h L  aL E`L|  : L)   L ) `L0AML ML  NL|LLNLML ,0,0SGɛ L  L 'EHEh  G |L LSROTCES EERF G) *Gȩ GȽG GȌd   )G`8| 0G`DCEDC0X:Ȣ ȱC* ? 0.. ,0%n?A[ 0 : L|_`L  `,0``piH 0)բ?ٗ |08`0   0$L GGȽG L ! `8|Lw`L08`  05G),G)ȱGȱGHh0})Hh` B! 8`8|iiiLGE`E8FEh( 30`ɃLL 'L18^~jj8jHi h|EEEiEȱEiE` dTEH8EEȱEEȩEh JE8  .mi`LI|!EF RLGH`L~` `HGHh| 3`   :` 30 0) ~LRIIIIIIIIIIIIIIIIC|`0 hߩ0 "  01  DDS , ߍ?TT|U  L2    t`L C D~ CCDDܢ 0D|CDCD`ʆ  өj  # l00 F F Yh < |    L+8DE  F  2 ^L`BDEHI V |(`BJ VLZ DEHIB V0dVQDEH!|I VF9 2,0 i,0 0hhLL t FLr` 2H 2hDHEhDE"|Li8HI [ [ 0 HI,00   VL,0 fL[&@*IJ#|`ll 2J 08 BD&EHI V0 20`BcDELV 2!B ` <0BcDE J V$| <(`  V⪍  Eઍ  E 2-LL+   DE%|HILV%, <><>`  l  l Z h  ` `` $B V&|BHID&E V BLV nBqDE J V* \*` B V BLVDEHI'| BLV)H hO }`N@  L&(|qi9>`0ݦ P ȌL `@}}MACH SYS D2:MACH.SYSD1:MACHCP.SYSD1:MACH)|GN.SYSD1:AUTORUN.SYSD1:MEMSAV.SYSE:Need MEMSAV to loadERROR: MEM.SAV I/OType "Y" to contPut MACH disk in D1, hit ret*|urn`Is$ @p? MACH SYS }*&} |&8>&8>pppB(&BP&BA&㉀! $irectory( 'en-!#(/ $up&ile ,}" #artridge) &ormat0 3et$ensity# #opy* $up$isk1 #onvert$ $elete+ 3ave"in2 $ef$r$% 2 -}ename, ,oad"in6 6erify/&&& ,ock- 2un ,oc8 &x3ys/&&' 5nlock. -em3av󚀑 .}/&&/.}K:Function not readyDIRECTORY: search spec,list fileCOPY: fro /}m,toCopying: DN:Type 'Y' to DELETE:DELETE: file specGEN MEMSAV.SYS: [Y/N]RUN: loc 0}ationLOAD: filespecFORMAT: driveFORMAT disk 2 [Y/N]Formatting D2:UNLOCK: filespecRENAME: old,new filespecsSAVE 1}: file,start,end[,init,run]Insert I/P disk, hit RETURNLoad both disks, hit RETURNDUP DISK: input,output drive(s)Disk type 2}, ile or ectorType 'Y' if ok to use program areaSET DEFAULT: DriveSET PROTECT: DriveVerify changedSET DENSITY: DriveD 3}UP FILE: filespec [cr=all]CONVERT: filespec [cr=all]ERROR: 160-skip -abortNeed D1 thru D4Too longBad hex par 4}mBad nameOne letterERROR: Unlike drivesNO CartridgeNo wild cards in destBad Load FileIllegal requestERROR: Not MACH f 5}ormatNot a disk fileMEMSAV.SYS already exists9k9؆R'S  01ih&ȱi& 6}%,:>$9>,e \<><>P>7&8&&,n='>'' &P@''ʈ !Fː 7}H o'y}'p'hک&10T' F @ 1;} ' FL{+8A0H' Fh ,, 8}Fiil<>e8F <>L,9>$:>%01:><>l$;>P && &L,;>i( &i &L, 9}Э;>I<>Le,<>l9>"---W0u11111A2g4Y5555969!:!:!:&:!:7:!:!:' v< ;G>f>e>:*f>h>.g>i> :}G>F> += ~< _<JB@> A=G>8F>L/F>g>DL/* hj )LzU * FL ;}{+ ;Lz' vF>g>D ;L//P>Q>R>JBgD>E A=BHISD>E A=S>0: <} B A=L{+Q>R>R>Q> B A=]>401h>:'S> ' S> .'ȽS> ' 𩛙'' F =} ;BJD'E@> A= +=G>HH>H ~hG>F>g>DL/1h>:' 2L/ 'D'EL/ += ~ ; >}* FL{+ _< ;g>K@CL/S,BJ@> A=F>g>K E?>L/* F 2L{+CAD  J ?}B?> A=K@>?>B BDDEE@>ܝHݝI VE>?>@>HHIIH A=E>ɈLS=@> B V?> @}B V?>' F,P>L.L{+;( v< _< ;g>D * FL{+N !B A=L{+'( FH> !BܝD>ED>:>h>:1 A}>BJgD>E A=ߝD>EBG>HI A=> hG>G>H>0ߢ> >0.> >> 0F>? B}>詛>ܢ> F 1H>F>> A= k1L0 k1L{+ BLA=( v< h< _< ; B A=L{+( v< _<#B A=L{+( v< _<$ C}B A=L{+*~ )ͩFDEZ  F ; _< 2 ^L1( ; =i0(( _<( F 1A> =?> _< ;O>?>@>ʆ@>}ȌN>O>@>y}?>y} u* FL{+ )  E}\) F 1<؆B>F ɛSԆ$ ) F ^:@>$0 :,B>0B>$0@> A4=>>>=> >> ̥    F} L3$0' H)94ޭ h)FjFjFji E%и ȭ Șeˍe̍} 9LS=mN>˭mO>mN G}>mO>iiL3 => >>$0 :?>Υͥ $0L2L{+͍ ȱ͍ ii}8 9L H}S=mN>ͭmO>L3@ EF}h 3LS=`( v<HG>f> =  * = 8 95 I} L{+>5) =  = _< hAB,0 J A=   B DEH J}I,H DE A=HIHI D ELq( v<N _< LX+LS=* F 2L{+c( ; = _< K}I># LM( 1Ȍ?> L} v< _<DE:ɛ *ȑ.D: ;˥̭~{z{+++ 9 99  + M} :BKJ <=B>EgDIH <=h> L7 {:/ f:̩; f:àiig> : 9L6 N} B <=˅ޥ̅ߥ˅ͥ̅8ڥ8څܥۅݥ L8 :ޅ߅܅݅)4ˤ̭@> N9 BDE O}JK V06 ˢ BDȥ˝EHI Vȑˤ M=L8 HeIe8HI P}$ B <=) 9Ls7 :)@>ȱL8ͤέ?> N90BDEJK <= @͢0͝H Q}͝I͝Dȱ͝E B <=ͪ))͢0 B <=!LI7+ !9 ;L{+ɛeͥͅiΥL88 R}ɛe˅˥i` !9L+9 9 +{)L: 0ɛLFS  |9`l ^}`*8CPYXLASNETHIDEdY +}) !"`3!3ɛ` `}g> g> .g>Ȣ g> g> 𩛙g>`ɛ`@> ;I?> ;O )ф٩) F ^:$0 a}L^`h>:)}N>N> A4E ˢ* FL{+`pBD'EJ VL8pBDEC>IH VC> b}p B V,C>0ȭ`H B Vhiɀ`v) F 1M>ߠ>8߅ܭ>`g>* ? ɛ c},`P>G>H>C>BD>EPHI VC>`C> C> 2L{+D>0 j* FL6<>`,C>0`L{+I>G> d}H>L< ; +=G>H> I>>,;ɛ7>,"ɛ:ݑ>1ݐ>I>>A"Dg>I>I>ݏ>I>Dg>ȩ:g>ȩ>g>ɛ,,( e}/+.I>I>ީa* FC>>,ɛH>G>`>轏>f>gmG>D>iE` "* V0 "*` "*8d/8 i:!* ** f} F"*"*L^: 2L{+I>J>K>H>>H>ɛ+,' =0*.K>.J> K>K>I>өK* FC>`K>J>`T*800 0 8 00 g}`,C>0'H>>D800H>,ɛH>h`C>;*LF  L+ $irectory( 'en-!#(/ $up&ile XB>BB>B?F&8>9+8Put disk to gen MACH on in D1Gen MACH 2XH on driveGen MACH 2XH running on D2:Gen MACH 2X$i}H on drive 2 [Y/N]Drive must be between 1 and 4 V0`8d/8 i:!* ** F̢> 2L{+t> F 0ɛ0:܍->$j}>1!~V> F ) ^ 0> F 0YФ> F+B,DEJ > B > }@ }@L{$k}+ ˦˽CDCGG g˥D# C  0L?G˦  0L?+H$l},HY+,   8 90 i h,h+LLeB>5A =A>Aɛ-D$m}EBJ >3DAEHI B >5AD6AE9AH:AI B >;ACA$n} BL>B>B?F+Y)*ɢjT  A>لNA>LA 0٭) Ȅ A0$}l " AXLPB0NZ<( ((@@d"( p} +AdAU0@@@70@@Q0@@@c@@q}u@@7{(}AR@++(#++(#| PAGE 6 - DISK #35 UTILITIESr} 5 |++(#++(# @ -@As} $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@t}D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ <@ ,.u}.i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--v}@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@w},.0$@(''7@<@,4FREE@- @ 2() <@F''7@x}<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z+y}+(#| |[ ( |  |\++(#]%%( z} SELECT HELP FILE FIRSTxAR[@@9'-@@"C( SELECTIONM A0{}Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@|},$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6.}}-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR~}@'-@@"? } LOADING 4D1:HELP.%? A@@91@@5}? BE-@@".  CANNOT LOAD 8 @B BE%D2:MENU@91@@5`MACH DOS Menu functions: A-Disk directory list. Similar to DOS II. Minor change to read whole directory into memory befo}re displaying it. If MEM.SAV is used, it will ask permission to overwrite the program area. B-Run cartridge. Same as DOS} II. If you are using MACH on one of the newer XL series systems (excluding the 1200XL), you will have a pleasant surprise. } MACH switches the XL BASIC in an out to give you more ram while operating in MACH mode. BASIC is switched back in when you }request option "B". C-Copy file(s). Same as DOS II D-Delete file(s). Same as DOS II. E-Rename file(s). Same as DOS }II. F-Lock file(s). Same as DOS II. G-Unlock file(s). Same as DOS II H-Write MACH files. Changed from DOS II to lo}ad the "MACHGN.SYS" program from the system disk. If the system disk is not in D1:, MACH will ask for it to be inserted. Do}n't worry if you have changed the density; MACH will set it to load the program then reset it to what it was, if necessary, f}or you to write the MACH files at a density different than the boot disk. I-Format disk. Similar to DOS II. The only diff}erence is that if you try to boot a disk that was formatted under MACH but does not contain any operating system, you will NO}T get a boot error. Instead, it will boot as though the disk drive was not turned on. J-Duplicate Disk. Similar to DOS I}I with one major exception: after you have told MACH the source and destination drives, it will ask you if it is a "DOS" or }"BOOT" disk. Atari DOS II's "J" function is the same as the "DOS" option here. The "BOOT" option will perform a sector by se}ctor copy of your disk, regardless of the contents. K-Binary Save. Same as DOS II. L-Binary Load. Same as DOS II. }M-Run at address. Same as DOS II. N-Create a Mem Sav file. Same as DOS II. O-Duplicate File(s). The MACH DUP FILE }is really a full one drive copy function. If you specify wild cards for more than one file, MACH will read as many files into} memory as it can, then ask you to switch disks, repeating the process as times as necessary to complete the request. P-Se}t Density. Asks you for the drive number to reverse the density (between single and double). The menu display will be updat}ed to reflect the new density. Q-Convert File(s). Similar to the "O" function with one important difference: the output wi}ll be at the opposite density as the input. R-Set Default Drive. Changes the drive which is to be assigned as D1:. In othe}r words, if you say the default drive is 2, then all requests for D1: will be routed to drive 2, and all request for D2: will} be roued to drive 1. Sounds a little confusing, but it won't be after you try it a couple of times. V-Set write verify. } Reverses the current Write verify status. X-FiX the non-resident portion of MACH in memory. Transfers to the cartridge o}r XL BASIC will have approximately 7k less ram, but transfers between DOS and the cartridge will take less than half a second}.MACH Differences.1.The first thing you will notice is the new menu. The MACH "flip-up" menu is unique among Atari ope}rating system. You can control the menu and display totally. Pressing the SELECT function key flips the menu up and down, r}evealing the display contents which are behind it.2.The next thing you notice is that selecting a menu option does not req}uire hitting the return key. You can now type non-stop when requesting menu functions.3.Whenever MACH wants the system dis}k (to load the non-resident part, or to load the MACHGN program), it will instruct you to insert it into drive 1. It will re}set the density to the proper setting for the system disk. The system disk is defined as the one you booted from.4.Unlike s}ome other Atari operating systems, you can generate MACH on ANY diskette which is in DOS II format. It does NOT have to be fo}rmatted by MACH.6.Even if you don't fix MACH (menu option X), it will check if the console processor is intact. If it is,} guess what, no disk access. By the way, even if Fix is ON, MACH will reload the console processor if the copy in ram is dam}aged.7.If you have double density drives that will automatically switch density to match your diskette, more good news. M}ACH will automatically "sense" the density of the disk when it opens a file. Most of the double density drives I have tested} will do this.8.The operating system file names are totally different. There is no DOS.SYS or DUP.SYS files. Their equiva}lents are MACH.SYS and MACHCP.SYS. Also, MEM.SAV has been changed to MEMSAV.SYS 9.You cannot open D:MACH.SYS from your pro}gram. You must use the console processor to generate MACH files.o MEMSAV.SYS 9.You cannot open D:MACH.SYS from your proD @ٮٝy؝}L{A~ )`1   Y8`N@  LE:?H 2X$yAR@+6-@=@@O@@9Y Ai"@A`nAdAUs F:}Ad,AUA5x* -6-%@# @ *(}.!@( "!@.6- A} OR PEEK(764)<255 THEN INPUT SPQP$:RUN"D:MENU"RUN"D:TITLE"10,0:POKE 709,0:POKE 712,0DIM SPQP$(1)IF STRIG(0)=0H66-F:Ad,2"@)"A4)"@R6 "A8AP - Ae-@@}P:6-@6-@ 06-@6-&@0 AI-@@#I(>:AS,#}ҠӠԠġD-@A % B0@: AuD AL"!-@}@#I("Խ̭кԽٺԽˠL$$*** FRAME1 ***(>:A%,11(&Š٠ˠ}Ӡ (11(&This disk does not contain DOS.SYS 11(&(check the directory) but uses a }11(&new DOS called MACHDOS. You can make 11(&your own master MACHDOS by reading the11(&MACHDOS documentat}ion. Knowledge of 11(&BASIC programming is required to get 11(&the most from this disk - you have 11(}&been warned! (11(&Ӻ Use a word processor to read 11(&MACHDOS.DOC. Ev}erything you need is 11(&there. If you haven't got a word  11(&processor choose DISPLAY.MAN from the 1}1(&menu. To see MACHDOS now press System 11(&Reset and type DOS. (11(&Һ No}t for beginners but it "11(&will allow you to include Player '11(&Missile Graphics in your programs... },(1(6?6-A 6-A'6-A36-@ ?6-@8; Au A@*** FRAME2 ***E}(>:A%,J(O11(&without writing any code. Your T11(&program must be inserted between linesY11(}&200 and 9000. You must understand how ^11(&players are made up and be able to go c11(&to the appropriate sub}routine for h11(&movement. Study the listing for clues.m(r11(&ĺ This will help you design w}11(&players for the above or other |11(&programs. Everything is joystick 11(&controlled. Go thro}ugh the different 11(&choices, it is excellent. (11(&Ժ A demonstration of various }11(&sorts. USe the code in your own 11(&program, instructions are included. (11(&} Use ESC to format any number11(&of disks. SELECT key will give you the11(&special formatting option. For } 11(&advanced users only. 11(& Cont... ?6-AU6-A}'6-A036-@"?6-@7 Au A*** FRAME3 ***(>:A%,(((}11(&к Will dissassemble any 11(&program for which you can supply a 11(&filename. Either t}o screen or printer.(11(&ź Self-explanatory from the 11(&intro screen. An excellent time- } 11(&saving utility for BASIC programmers. (11(&Ӻ For listing any program to  11(&an Epso}n. I assume ir works but do 11(¬ have an Epson to test it. (11(&ͺ A demo of PMG wh}ich you can !11(&use in your own programs. &(+11(&Ժ Self-explanatory. Unfortun- 011(}&ately it does not seem to work with 511(&figures. :11(& } Cont... ?(D?6-A6-A%'6-Ae36-@!?6-@6I Au AN*** FRAME4} ***S(>:A%,X(](b11(&ֺ Add this to the end of your g11(&programs and type GOTO 32000}. Change l11(&the 128 in line 32020 for different q11(&effects. Re-save this program with v11(&LIST '}'D:VREM.LST'' and follow {11(&instructions in listing. ((11(&If there is enoug}h room on the disk 11(&there may be one or two other programs11(&for you to discover. (}(((((((11(& End. (?6-A}%6-A`'6-A36-@!?6-@5 Au AW(>:A%,"AdAU4AR}?%D:MENUWTHIS IS THE LAST LINED:HELP Au AW(>:A%,"AdAU4AR5^_oi}AFRSPLBT3T5BDT6T7T8HDSTFIRSLCLINFCDLINCOROCENPRNFLAINFULPAUS }!58=&c w }  & @eA @} !}d*=*=*= A. C. E. =*=*=*e##****MASTER DISK DIRECTORY****i##J.M.APICE,COMPUTE!5:41 OCT 83n##*REVISED: R.A.BA}RKLEY NOV 85*x;@ ,;@,;@,;@,;@ ,;@,;@,;@8,;@ ,;@},;@,;@,;@8,[6-@e6-A %6. 16. >6. L6. [6. } C +AAF1AAFCAR@@(>:A%,"-@@@(+-+-+-+-+-+-+-+-+}-+-+-+-+##(| MASTER DIRECTORY FILE |##(+-+-+-+-+-+-+-+-+-+-+-+-+*-@@*(ՠΠ*}-@@ *(1..Šˠ*-@@*(2..ŠŠ+-@@+(3..ԠӠ}/-@@/(4..Š٠--@@-(5..̠Š#-@@#( 6..Ԡ}/((ENTER NO. ---> /4A* 6-A:,* @)!@A`77AA AA}APA A"*** FORCED READ S/R ***, (CONT.-0AB@&2A}B@4$6*** UPDATE ***88(>:A%,"-@@%(/A8(CONT:e-@@>(#CHAN}GE DATE AND RE-ENTER LINE 1990:PARb-@@e&@F(>:A%,"-@@F(INSERT DISK TO }CATALOG IN DRIVEJ4-@@0(DISK NUMBER/LABEL -->4O4A0T%AR@ A%6-h} # "r4A| 6-% A` 6- Ap26-@2@@D:*.*}@(>:A%,!((% DATA ! A6-%@ A  B@:(>:A%,(}0( DATA ,&@: AA 6-%-&@!(>:A%,((! A06}-%@ DE(>:A%,>:AS,--@@A(ANY MORE DISKSEN4Y)4YESA X:-@}@6(REMOVE DISK, PRESS :] 6- $b *** LIST DISKS ON FILE ***gM(>:A%,"-@@G(} DISKS ON MASTER FILE: NO.FILES:J(M(l6-6- AEq7-"@)"@2)"@H)"@d7 AT}vN6-@0#"'6-%@66-F:@,B @N6-@1{ (-(&@ 6-% A%}c B(%( DISKS LISTED7-@@!_(!ENTER DISK ID OR TO GO ON:c 4 $ A}A-@@"=(!ENTER DISK ID,OR TO GO ON:A3 4(>:A%,)-@@3 A0 }A 6- $*** DISK ***(>:A%, 6. 6- A P # "4A` 6-%} A0% 6-B:,%6-@ &P:'@,-(-@ -@(-  +-@@}((DISK DIRECTORY+(*%-@@%6. >++"@)"@4)"@QA 0H"R%%7@}<@,4 FA \%%7@<@,0* Af   A z   ( (} A @:(&(PRESS TO CONTINUE*0(}: A@2( (+(PRESS TO CONTINUE/2$ B}5(>:A%,((5( DISK --->  Ԡ2(+(PRESS TO CONTINUE --->/2$*** FILE SE}ARCH ***C(>:A%,"-@@?(SEARCH WHICH FILE? --->C;-@ @+( LIST TO PRINTER/;6}-0YA9-@@-( ΠҠΡ96-@O@3>:@',@>:@',>:@h},>:@ ,>:,OSET TAB @ 20>;3 DISK:>:@ , FILE NAME:FIND......>36-A (>:A%},# AP "6.  Ǡ--->  (  6-B:,-@"$%%7@<@},0* A&-@@.K7%@<%,4.( FILE LOCATED:6-@=(AK A00 8 } A=-@BK7%@<%,4.( FILE LOCATED:6-@=(AK A@G L `} 6-% Aj3>:@ , At#3>:@ , # A~ApF(>:A%,>:AS,}--@@F(-- NO MATCH FOUND --P6-6-(I(LIST EXHAUSTED ---> >:AS,MP$}*** DISK LABELS ***?(>:A%,"-@@?(LOAD LABELS INTO PRINTER&( (&(PUT PRINTER ON LINE-- }%( (%(<> WHEN READY. A '6-6-'6-@.@.@@}P:3>:@',@ A!@4ApZ*@@')*@@f<*@@}O*@ZPUT #2,0u*@@')*@@e<*@@O*@@b*@@'}u*@@6-@1$b*@@')*@@f<*@@O*@@b*}@*@@')*@@e<*@@O*@@b*@@'u*@}@*@6-@9$g(>:A%,"-@@5( FOR MENUG-@@g(PRINT }LABEL FOR WHICH DISK?$-@@ (---> $ 4 $-@@(-@@ N*(}"Any added ID or heading for label?-(N( It will look like this:SAR(A($}O(  S%AR@6-% A0 # "(4A@2 6-% A<)*}@@')*@@q>B 6-B:,96.& BCLEAR$AM67@<,.467}%@<%@,. M67%@<@8,.F(@P)*@@')*@@dZ A`6}-%@n-@"I7@<@,4 F1(@ ?6-%@I A%%7@<@},0* APU(@$6-%@26-%@>"@I(@U6- A`W(@} &6-%@46-%@@"@K(@W6-# "6-#3>:@, }"@(@0 #A""(@ 03>:@,E(>:A%,>:AS,--@@A(ANOTHER }LABEL E 0Y$ A0 B A B A*** INSTALL UPDATE ***|(>:A%},"-@@I("INSERT DISK WITH Ҡ[-@@x(PRESS WHEN READY|"T(>:A%},(T(SAVE >:@4, D:MASTER.DIR>:@4,>:@X,CONT, A67(>:A%,"-@@7(}Š@-@AP J$l*** EXIT ***v0 +(((DOS--0&>------} &'P0P1P2P3MXYLXMYMLMVTAATAXNNDDD0D1D2D3BREMOVDMDMDMPMBASBYTDM0DMDM1DM2)}DM3OFFSEVVMOVEDM@@@@@ @ ) } ) } !"#$%&'()*+) },-./01@2~~;@,;@,;@,;@,;@,9@) },9@,9@,9@,9@,9@,} +@-@@=(@A SELF-MODIFYINGO-@) }@k(@PLAYER-MISSILE}-@@ b!(@GRAPHICS UTILITY3-@@J(@ ke)}n grace^-@A b p +(p([THIS UTILITY ASKS SEVERAL QUESTIONS ABOUT THE P-M GRAPHICS SITUATION YO)}U WANT TO SET UP.e(:(/IT THEN MODIFIES ITSELF INTO A PROGRAMSKELETON.=(e(#SUBROUTINES FOR PLAYER AND MISSILE q()}MOTION ARE INCLUDED.(D( YOU ADD THE REST OF THE PROGRAM.G(q(%ANIMATION IS POSSIBLE BY COPYING NEW `&(SHAPE STRI)}NGS INTO THE STRINGS@(DEFINING THE PLAYERS.C(F(`(PRESS TO BEGIN. &6-F:B2y,&@@  L>(>:)}A%,+ENTER THE GRAPHICS MODE FOR PLAYFIELDH(GR. L ' @( 9000 GR. ' @ ['(RESOLUTION )}DESIRED FOR PLAYERS:;(0 = DOUBLE-LINEW(1 = SINGLE-LINE (FINER)[H6-P:'@,$6-&@$0@H6-)}@$+@%,%"@%6-@%@$%"@%6-@%@$%"@%6-@$%@)}$%"@%6-@6%@$G @%( 9010 RES=:S=/ @G6-A($+@%,3 @)}!-@@%() 3 @,((NUMBER OF PLAYERS TO BE DEFINED,] @ @'-@;()}A%@P$O(A%@P$S ] @I @ @'-@;(A%@$? I @)}h-&@&(>:A%,)(b(1COLOR (0 - 15) AND INTENSITY (0 - 15) FOR PLAYER hF @<(AP)}% POKE A%,@$%F @`(WIDTH OF PLAYER :-( 0 = NORMALB(1 = TWICE NORMAL\(3 = FO)}UR TIMES NORMAL`< @2(A`% POKE B2V%,< @gc(?INITIAL HORIZONTAL POSITION (0 - 255) )}FOR LEFT EDGE OF PLAYER  (45 TO 210ON SCREEN)gW @M(A%@P$X()=:REM HORIZ POS OF )}PLAYER W @ A-("VERTICAL LENGTH (BYTES) OF PLAYER 1>(>:A%,A(!QM(4INITIAL VERTICAL POSITION OF TOP )}OF PLAYER (1 TO &&@)Q"k @a(A%@P$Y()=:L()=%@:REM VERT PO)}S AND LENGTHk @#( USE LINES A%@P$ TO A %@P$# TO ENTER DATA STATEMENTS WITH THE )} BYTES DEFINING PLAYER $)(&(TYPE TO WHEN FINISHED.)&%7  @%-@@6)(- 7 @&) }8(4((HOW MANY MISSILES TO BE DEFINED (0 TO 4)8'G" @--@9(AP%= G @)!}(] @ @'-@;(A%@P$O(A%@P$S ] @)&"(>:A%,& @)"}R*q6-%-&@2(>:A%,5(M(WIDTH OF MISSILE \( 0 = NORMALq(1 = TWICE NORMAL+i()#}3 = FOUR TIMES NORMAL!>6-P:@#%?,$%H @_(9064 POKE 53260,i @,u1(&INITIAL HORIZONTAL )$}POSITION OF MISSILE5? @u(A%@P$XM()= :REM MISSILE -V( HORIZ POS @E(#VER)%}TICAL LENGTH (BYTES) OF MISSILE IV(>:A%,.e(a(4INITIAL VERTICAL POSITION OF TOP OF MISSILE (1 TO A($+)&}@%,&&@)e/n @d(A%@P$ YM()=:LM()=%@:REM VERT POS AND LENG)'}THn @0zz( USE LINE A%@P$ (TO A %@P$$) TO ENTER DATA STATEMENTS WITH THE  'BYTES')(} DEFINING1o(MISSILE +6-P:@#%?,.(l(ALLOWED VALUES ARE 0, , @$, OR @$o(2$!))}(ENTER WHEN FINISHED.$&3 43 @!-@7@Q%() 3 @5I @ @'-@)*};(AP%@$? I @6O" @--@A(A%@$E O @7s(P)+}RIORITY SCHEDULE :(G($1 - PLAYERS 0-3,PLAYFLDS 0-3,BACKGNDJ(s($2 - PLAYERS 0-1,PLAYFLDS 0-3,PLAYERS8o( 2-3,BACK),}GND(B($4 - PLAYFLDS 0-3,PLAYERS 0-3,BACKGNDE(o(%8 - PLAYFLDS 0-1,PLAYERS 0-3,PLAYFLDS9s( 2-3,BACKGND(s(UALS)-}O, THE NUMERICAL SUMS OF THE ABOVE CHOICES ARE ALLOWED, GIVING BLACK FOR OVERLAPS.:h(,(!ABOVE +32 GIVES COLOR IN OVERLAP).}S/(;(CHOICE?I @^(9045 POKE 623,h @;I(1(&WHEN YOU SEE YOU MAY LIST OR RUNE-@A)/} I <3 @!-@R@Y%() 3 @=o( ((60(61(90%(91,(92H(POKE 842,12:? CH)0}R$(125)Z-lAB@o&Z00@@ @*(>:A%,-(0$[9( ((CONT$-)1}6AB@9&\BAB@"(>:A%,%(?0@@ @B$c AdllMOTION OF PLAY)2}ER P. X(P) AND Y(P) ARE X,Y POSITIONS. DX AND DY ARE CHANGES. USE FOR DY=-2,-1,0,1 OR 2.e! A!"Af/)3}/%@AAAAg678,%,. Ah678,%,. Ai678,%,. A)4}j678,%,.kMB2H%8,%$68,-8,%268,-8,%>6-J6-M$l%6-6-% A)5}n88MOTION OF PLAYER P. USE FOR DY >2 OR <-2 (OR 0).o9 A9%@AAAAp2 6)6}.B2H8,%(678,%,.2 Aq2 6.B2I8,%(678,%,.2 Ar2 6.B2P8,%(67)7}8,%,.2 As( 6.B2Q8,%(678,%,.t:68,-8,%68,-8,%+6-76-:$u%6-)8}6-% AddMOTION OF MISSILE P. XM(P),YM(P) ARE X,Y COORDS. DX,DY ARE CHANGES.USE FOR DY=-2,-1,0,1 OR)9} 2.L AX68,% @)8,%%8,!)"B6-L AW//%@ASATAUAV):}4*6-?:<%8,%<<8,<AR,4 AW4*6-?:<%8,%<<8@,<AC,4 AW4*6-?:<%8,%);}<<8@,<A,4 AW**6-?:<%8,%<<8@,<@c,MB2R%8,%$68,-8,%268,-8,%)<}>6-J6-M$/6-6-,B2R%8,/$88MOTION OF MISSILE P. USE FOR DY>2 OR <-2 (OR)=} 0).B Ah68,% @)8,%%8,!)"B6-//%@AcAdAeAf^"6-)>}?:<%8,<<8,<AR,3B2R8,%T6-?:<%8,%<<8,<AR,^ Ag^"6-?:<%8,<<8,<AC,3B)?}2S8,%T6-?:<%8,%<<8,<AC,^ Ag^"6-?:<%8,<<8,<A,3B2T8,%T6-?:<%8,%<)@}<8,<A,^ AgT"6-?:<%8,<<8,<@c,3B2U8,%T6-?:<%8,%<<8,<@c,:68,-8,%)A}68,-8,%+6-76-:$%6-6-% Aa A7#AY@F%@$<#)B}.6-F:A,& BBy.6-$AVF#9B2w@!6-A(-"@96-AUn#L ;,6-C:,+67)C}@,.>:,=67,.>:,L67@,.}#B;8,,-6.7@<8,,BB2H8,#B #A)D},-@8,&@0">67<,.>:,B #B;8@,,-6.7@<8@,,BB2I8@,)E}#B #AP,-@8@,&@0">67<,.>:,B #B;8@,,-6.7@<8@,,BB2P8@)F},#B #A,-@8@,&@0">67<,.>:,B $B;8@,,-6.7@<8@,,BB2Q)G}8@,$B #AP,-@8@,&@0">67<,.>:,B E$B;8,,-6.7@<8,,)H}BB2R8,J$K #A,-@8,&@0">67<,.>:,B K6-C:,w$B;8@,,-6.7@)I}<8@,,BB2S8@,|$K #AP,-@8@,&@0">67<,.>:,B K6-C:,$B;8@)J},,-6.7@<8@,,BB2T8@,$K #A,-@8@,&@0">67<,.>:,B K6-C:)K},$B;8@,,-6.7@<8@,,BB2U8@,$K #AP,-@8@,&@0">67<,)L}.>:,B K6-C:,%G%6-F:A4,%AV$F:A5,G6-F:A@,%AV$F:AA,!%6-%A$+@%,&&%)M}-@0%$6-P:'AV,$6-&AV$:%%@%@D%1#%@A($+@&,1%)N}@N%1#%@A($+@&,1%@X%+6-%@+6-%A($+@%,b%+"@+6-%A)O}$+@%,&l% % 6.678,,.% 6.678@,,.% 6.678@,,.% 6.678@)P},,.%8 6.678,,.8678,%8,,.%W-@8@,36-8@,%&@S67<,)Q}.>:@:7<,,%@:7<,,,W %W-@8@,36-8@,%&@S67<,.>:@:7<,,%@:7<,,,W %W-@)R}8@,36-8@,%&@S67<,.>:@:7<,,%@:7<,,,W %*;@8,6-C:,*6-C:,&@% #)S}A % #A0%--@@7")67<,.>:,- &YY104,104,133,204,104,133,203,104,133,206,104,133,205,104)T},104,133,207,104,104,133,208 &AA160,0,177,203,37,208,113,205,145,203,200,196,207,208,243,96' A D:PMDESGNR(}Z"o"TRAATRACSDMCTPCOLRCRSINHPOSPSIZEPGRACTPMADPMBASBISALCSWMDEVPQTOCCSCRPWWXY-V}YYYXXXWPMSAV -W} -X} !"#$%&'()*+-Y},-.%%CREATIVE COMPUTING JANUARY 1982&6-F:A,&@&A o+@%@/0@-Z}@ @:(@E(@d(@ PLAYER/MISSILEo(@x (@ DESIGN AID+(@-[}6(@P(@ -BY-[(@x(@ TOM GURAK(c6-@w6-AY'6-A36-A-\}R?6-B2HK6-B2VW6-B2wc6-BByF6-$AV%AP#-%Ah# Z 6-]}-%@4dG;@,;@,;@,;@,;@,;@,O6.+W6.d6.Shift o6.All {6-^}.Line 6.Blank n'6-B6-'6-@Fs;@,xP&;@,;@,;@,:6. Push-_} FIRE to P6.Pos Cursor for #-AV$@# T +'0@A0@@-`}@M@T( - @!@-A A31%@+6-A(-a}36-%^-%@(>:, 6-6(6-%<-@#@ O6-R:,^6-T:,"@*A-b}%-%@(>:,%A  "@"A 6-@:,"6-@:,h-%@(>:,-c}!6-%*6-F:,M6-P:@#+@&,%?P,V"@:,^6-%h A` 6-& 6- A@-d}A(6-R:,((T:,Ap,H6-6-1!@* @>6-6@H A 6%-e}!@* @%6-@@:#"@)"@)"@06-6@: A5J/#"@)"@ )"@-f}/6-@O"@"**6-T 6-%6-%W  Y!! @*Ae^"@"A-g}cE"@!)"@#%6-16-; AE Ae(T:,AWh/6-@"6-@-q}b&SHELP b;MASTER bTAUTORUN SYSb UTITLE b CLRALIGN boMENU b&MACHDOS DOCb'MACH SYSb2+MACHCP SYSbhMACHGN SYSbNPMDESGNR bEUPMDAID bFASTSORT b,FORMATIX bEDISKDUMP b2LINEMOVE bLJLISTPLUS b MPLGRDEM bWIDETEXT bVARREMV b HEXDEC % AP/ Am%!@#6-% Ar 6-@#w A|(T:,A-r}% @6-@% A!@6-@ A6-&@AA A0A@-s}APA`ApAAAAA#A"AA AAA; A-t}6-%6-@#16-@; A< A6-@#%6-26-6@< AT A6-u}-%6-@#16-@=6-J6-6@T APS A6-%6-@#16-=6-@-v}I6-@S AP=6-@ A'6-&@36-@#= A06-@#6-6@& A-w}0 AB6-@6-(6-6@2 A86-B APA6-6-@'6-@1 A-x}76-A AP+ A% A! A+ A A AP^6-6-26.7@<@-y},< A`H6-@T6-A^ A6-(A0%!@6-% A  -z}6-@ Ae A06-P:@#+@&,%?P,D-@#T1%@e"@:,-{}AP& 6-%6-F:,6-&& A&-%@( :/6-"@"% AP/ A? A-|} AD$6.7@<@,$ AN6.7@<@,X`6-6---@@#4(-}}> AJ6-@V6-A` Ab6-Ael 6- A$,-@#--~}@((, 1 6-%6-6-' A1 ApM-&#-@51%@%E-%@-}%M(>:,>-%@(>:, %6-%06-F:%,: A>  AP --&G1%@-}%%-%@%-(>:,;-%@C(>:,G O-%@(6-%'6-F:,4"6@E6-P:'@-},O A+6-$@AV+6-&AV  A  Ap " -@( "$G -}A (Color" AG )!@)P:,A 6-$@[ A ( Luminance& A[ -})!@)P:'@,$@A  6-% A P Ap4 6-F:,-@(@!1(CO-}LOR= 4$D-@@#/( A-@@#D$S-@##-@((<-}-@J-%@O(S + 6-%6-6-' A+ $-@'$( COMMANDS:?-}-@'@!(3-@'@?(?-@'@!(3-@'@?(?-}-@'@!(3-@'@?($?-@'@!(3-@'@ ?(&-}5-@'@(.-@'@5((#-@'@#(Column0&-@'@&( Change Mode3-}G-@'@'( Change Width9-@'@G(Poke P/M8F-@'@$( Set Color6-@'@F-}( Poke ColorBc-@'@$( Save Data6-@'@E( Load DataO A$Y A"Pc A PD6--}6-G  $L6.Change  A`~6.Select  A`&-@@#(& A(%2-}($i-@@#%( Processing9-@@@(.D f2AP@-}@i$b%2@P@@9-@#= _2b$xX6--}6-;@@K:E AQX(?$)@$"AUA3"A&-} 6-P:'@,)( 3 AE!@G* @X36-$@%+&@H,;(>:,E A A$-}@@!( $$C-@@#/(Enter Poke Values C-@#--@ A-"-}A A!! )AVA 6- A!$-@(  $ Ap6> 6-%6-F:,-} A*-@1( 4'> Ap@n A -@@#/( Poke Color9 An )AV)P:-}'@,$@AJ6- A 0' A% A6- Ak @@-}.6-%@76.=:,A AN6. DATA X Aa6.=:,k A, 6.=:, A"6.=:F:,,, A-}5-@#"6-F:%,+6.=:,5 A7 6.-1 A-*@AU7 A:@-} -@@":(Name -@#@"$*@@D0-@B:,)*@-}@:7<,,- 0$l[ A% A#6-@- A96-[2q Ar-} AsE @@4-@A)@E vQ A 6- A$' A -6--}7 A"PA A GQ A P:-@#! A -"@E0': A 6- A! D-}@ -@@":( D ApI6-#-@0)@<"@D?'I-} A "@E' A 6-$@%A:>:,, *$4?6-A(#-@1-%@? -}A! >(6-& A!0H(R*6-'@ 6-%' A*$%"6-@% A"0-}%"@6-@% A"06- A"P Ap' -@$@!$(W='$/ A-}"@F%6-@b/ A#0 6-@F P A$!-@#,6-F:%,4%B%F P Ap-}` + -@@!%(M=+6-j +6-A%@4+"@FA$0t 6-A$%@h~ 6-$A-}V%$ (T:,A% \ A -@@#.(Confirm8 AH1%@T6-A(\6-%-} ^-%@(>:, 6-6(6-%<-@#@ O6-R:,^6-T:, "@*A% 2-}-%@(>:,%@('2 Ap $ D2:PMDAID.SAV,^6-T:, "@*A% 2,I&'<NKXTXSCYSPSEELJFJDF@&<@%@@5@@&1} @ Z x SAVE "D:FASTSORT"""BY STEVE 1}GOLDEN - EUGENE ACE A  AP(SAU@=(#1=MOD-BUBBLE 2=SHUTTLE 3=SHELL ASAU1}2!! @)!@@@<1@A Ap1AU@F>(( COMPARES*( SWITCH1}ES>"@AP( @0Z##( ĠŠԠ d6-n-@x6-%@1}#7<,37%@<%@,.6.7<,N67<,.7%@<%@,i67%@<%@,.u6-@6-%@1}0XAp ( (? 6.67<,..367%@<%@,..7(?( 6-&@1}A ( ($( ŠԠ6-%@6--@&@1}-@6@96-%@97<,/7%@<%@,A0c6.7<,.67<,.7%@<%@1},I67%@<%@,.U6-@c6-%@"0XA , ( (6? 6.67<,..367%@<1}%@,..7(?(@ J TN=N-1:IF S>0 THEN 205^ ( (h$r( ̠Ԡ|6-%1}@6-@6--@&-@6-6-%@-7<,/7%<%,AK6.1}7<,"67<,.7%<%,167%<%,.=6-@K6-%@0XAp ( (3 6.67<,..'61}7%<%,..+(3(  7#6-+%@,'@&@7!A ( ($GG;@01},;@0,;@0,;@0,;@0,;@,E67@0,. -67@<@,. E67@,.7@1}, A&##0##:##ӠŠǠļD#1}# ϠӠŠNooؤ砠 䮠ؤ 堠1}䠠X##ؤbII̠ 䮠1}l##νv776-P:+@#P:K:,'K:@,,&@,%?P,$-@&$-@61}%6-$&%@6-$%6-$?6-%@)7<,/7%+,<%+,,56-@? AG6.7<,&67<,.1}7%+,<%+,,967%+,<%+,,.G6-%@   7#6-+%@,'@&@7!A@$ؤ1}䮛 +(M(( This is a demonstration of threeM( sorting methods. The alphabet isJ(( loaded 1}into an array in Z thru AG(order and sorted A thru z.J(]*("You may notice a difference in theN(sort time between t1}he different]( methods. # (Try them in 1,2 3 order!#(Q'(You may watch the letters beingQ(%sorted but it will 1}slow down the sortn'(considerably so I suggest firstM(!running without viewing to get ank(idea of the actual speed.1}n( P'(After you see the difference inP($timing, re-run the program, entering)%(an 'x' here to see the sort.!)1} $*V(.(#䠠V(#宠󠠵4S+(#Ҡ1}S(#󠠠>S+(#堠S(#宠1}H ( ( R6-,-@@e6@:6-%@H67<,.>:,L X6-@%d6-p6-1}s$FILL ARRAY Z-A ORDER D:FASTSORT6@:6-%@H67<,.>:,L X6-@%d6-p6-03./OACADEBCDEF5} 5} !"#( B) %-5}g +@2(@ =(@\(@ FORMATTEDg(@2{"(@ 5}DRIVE #1.@K(@ W@u(@ esc {7$ F:," +@5}$ @A< 6-F:, @(@UF: +@@4(@ working:P@6-?:<<<<,,6-F5}:,%AV$F:%,@ A!AZ*@*(@ WORKINGK -% 6-?:<%<<<,,@5}G(@ K %6-?:<<<<,%6-?:<<<<,4 % D:DOS.SYS4$%D:G5}@ ,(@ aan ??3)G"@@A %+J+000+-@5};( >(JARV 6-6-%-A6Ab=6-F:,%F:%,$AVI!A L'V A@5}G -( SECTOR# #6-%7%"$* Ax=6-G6-%$+%"@7* A !6-+6-$% -5}A E-@#*(̠ɠ٠Π8-A< E6-F:,`+@C,*+@5,)-@#5}D( SHALL I TRY AGAIN ??R-AV ` A@$"@5+.  @A Z+A5}@P5( ;Z(() Write DOS to disk(s). M( (,(() Change directory sectors./(2(M(5}() Use boot sectors. B( ("(() Skip to format.%(((B(() Do both and . )( (#( Selection:>>>5}) F:,"A0 K )$+!@S,)+ @I,5( C-AG K  ' (>:,6-&@H5}' %$A  ((A10! E (}E(1CANNOT write DOS if BOOT sectors are being used.& 6(0($Press 5}'Y' to cancel BOOT sector use.6+ F:,"A10 % )(>:,%"@A105 L('( Write DOS CA5}NCELED./-9-$= D(H L : L 6-6-+67@<@,.>:$,.(L(Adjusting to write DOS.? A5}6-@:7<,,!A%6-&367<,.>:,A67<,.>:,D ( --$  ($ (  ((A20 : 5}(}:(&MUST write altered DOS to diskette(s). 6(0($Press 'Y' to cancel BOOT sector use.6 F:,"A25} % )(>:,%"@A20 L('( Directory alter CANCELED./-9-$= D(H L  h 6-5}6-+67@<@,.>:$,.(L(Adjusting to write DOS.h67@<@,.>:$, R67<,.>:A,+67<5},.>:A,9-AC-$G N(R  `(} ٠+@46-F:,`( Directory leng5}th is  sector(s). !(( NEW LENGTH=! F:,"A2P G )+!,)+ @I,1( OUT OF BOUNDS5}9-= G A2@ 6 (>:,6-&@H*6-A2p6 A2`% )67<,.>:,%67<,.>:@c,)  )675}<,.>:,%67<,.>:@1,)  )67<,.>:,%67<,.>:@,)  )67<,.>:,%67<,.>:@,)  )67<5},.>:,%67<,.>:@,)  )67<,.>:,%67<,.>:@,)  )67<,.>:,%67<,.>:A,)  %67<,.5}>:A',%67<,.>:, ? 6-%&6-@:7<,,#6-%167<,.>:,?67<,.>:, Z(4( Directory changed to F:,5} sector(s).7(T( Press 'Y' if correct.Z F:,"A2  )@A2@ ! (>:,-A5} !  ((A30 J (}J(6 CANNOT use BOOT sectors if DOS is being written. 2(,( Press 'Y'5} to cancel DOS write.2 F:,"A3 % )(>:,%"@A30 O(*( Use BOOT sectors CANCELED5}.2-<-$@ G(K O  Y 6-6-/67@<@,.>:A',2(Y(! Adjusting to use BOOT sector5}s. 56-@:7<,,6-%'67<,.>:,567<,.>:, ( --$  ($ ( H $ a 6-67<,.>:A5},167<,.>:A,Q67@<@,.>:A',W6-a A2@'<;A`,;A(,;@,;A,5};A(,H6-@T6-Ad`6-A6l6-@3x6-AU6-A0'c6-@6-A`#6-%+6-%5}36-%;6-%G6-B2yO%W6-&c6-@' +@@7(@ DISK FORMATB(@\(5}@ g(@(@ verify6-'ic67@,.Phh h  hhhhhh85}˥`Ω1iˍi6-$'XX67@,.Ei̍  @! W)  Y5}&''67AP,.>:AU,'6-A9('67AQ,. ԩ`)'A@ (@8(@ by: 5}A6-C:,.'`-AA867&A<&A,.>:F:,,< W67@<@,.`6-C:,8'nn6.d5}='8/67A,.5}86-C:,B'1-A(% )6-@V16-%G'? 6.67A(,.%67,..6-C:,5}<K:?$D2:FORMATIX.BASA(% )6-@V16-%G'? 6.67A(,.%67,..6-C:,4(CDDZ"j"AAHDHDIADBGINOUSSANEVPOPOPRSFNCHCHS9}   BB"9}&@7 @ (@ G  FILEDUMPLLROUTINE TO GET BYT9}ES FROM DISKETTE AND PRINT HEX, DECIMAL AND OP CODESWITH PRINTER(11;@,;@,;@,;@,2119};@,;@,;@,;@,<LL;@,;@ ,;@ $AV,;@,;@$AV,A'9}@'@@9F=6-B6-B'6-1 B=6-P< +!(PRINTER (Y/N9})%<B:,"@Q 4Y AR%(Enter skip count%6-U. @6-A:,$ B.9} @X6- BZ(Enter complete filename[B:,"@\* @!*(@9} _<@+@@<OPEN DISK FILE` B Ac (FILE NOT FOUND @9}dFOR LABEL REFERENCEnFOR LABEL REFERENCE6-F:Ad,"AUA5"@!AdAU9}+ A5 A5"@5!AdAU+ A 5 A5"@")"@b+AdAU5 AP9} A6-&@ 6- 6- 6.$ A)@$ B9} 6.7@<@,<6-%@<6.7$@ %@<$@ %@ ,!..6.7$@%@<$9}@%@,&(:   02!2(@:   : AX!$9}bA#@@P:/6-@>( ҠA$l"$v-@6-*( Ҡ9}-$6!@&6-6( Ҡ$$(CONT may be used to continue& A)F:A9},"A6&( Input EOF)4( I/O Error F:A,(@46-((( Type CONT and to continue9}& @'INPUT CONVERSION ROUTINE' GIVEN A$ (DIM A$(5)), WITH$'!!LEADING 0 FOR HEX, CONVERTS.'!!ADDRESS TO9} BINARY (DECIMAL)8'IN D. DESTROYS TRAP, WITHB'D=-1 IF INVALID VALUEL'!B:,"6-!$V'B:,"@:}B`'$$7@<@,40B j' B6-A:, Bt'$~'6-6@ B$'46-:} -@B:,4 BP'L7<,1A*7<,/FB6-$@%@:7<,,%@&@:A,L B`'D7<:},10*7<,/9:6-$@%@:7<,,&@:0,D B`'6-6@'   $'OUTPUT CONVERSION ROUTINE'!!GIVE:}N D (DECIMAL), CONVERTS'!!TO FOUR CHARACTER HEX IN H$'(DIM H$(4)), USES HI, D1,(D2. D IS NOT DESTROYED (6.:}0000 $(& 6-&-@@6@($6-P:'@,$6-&$@((6!@ ,67<,.>:@:A:},%&@,6 B2(67<,.>:@:0,%,<( 6- $**uu67@<@,.ZBRK ORA (I X)NOP NOP:} NOP ORA Z ASL Z NOP PHP ORA IMM *uu67@<A,.ZASL A NOP NOP ORA ABS AS:}L ABS NOP BPL ORA (I) YNOP NOP *uu67A<Ap,.ZNOP ORA Z X ASL Z X NOP CLC O:}RA ABS YNOP NOP NOP ORA ABS X*uu67Aq<A`,.ZASL ABS XNOP JSR AND (I X)NOP NOP : }BIT Z AND Z ROL Z NOP *uu67Aa<AP,.ZPLP AND IMM ROL ACC NOP BIT ABS AND ABS ROL ABS : } NOP BMI AND (I) Y*uu67AQ<A@,.ZNOP NOP NOP AND Z X ROL Z X NOP SEC AND ABS: } YNOP NOP *uu67AA<A0,.ZNOP AND ABS XROL ABS XNOP RTI EOR (I X)NOP NOP NOP : } EOR Z +uu67A1<A ,.ZLSR Z NOP PHA EOR IMM LSR ACC NOP JMP ABS EOR ABS LSR ABS NOP : } +uu67A!<A,.ZBVC EOR (I) YNOP NOP NOP EOR Z X LSR Z X NOP CLI EOR ABS Y+u:}u67A<A ,.ZNOP NOP NOP EOR ABS XLSR ABS XNOP RTS ADC (I X)NOP NOP +uu67A :}<A ,.ZNOP ADC Z ROR Z NOP PLA ADC IMM ROR ACC NOP JMP IND ADC ABS +uu67A <A:},.ZROR ABS NOP BVS ADC (I) YNOP NOP NOP ADC Z X ROR Z X NOP +uu67A<Ap,.ZS:}EI ADC ABS YNOP NOP NOP ADC ABS XROR ABS XNOP NOP STA (I X)+uu67Aq<A`,.ZNOP :}NOP STY Z STA Z STX Z NOP DEY NOP TXA NOP +uu67Aa<AP,.ZSTY ABS STA ABS :} STX ABS NOP BCC STA (I) YNOP NOP STY Z X STA Z X +uu67AQ<A@,.ZSTX Z Y NOP TYA :} STA ABS YTXS NOP NOP STA ABS XNOP NOP  +uu67AA<A0,.ZLDY IMM LDA (I X)LDX IMM NOP :} LDY Z LDA Z LDX Z NOP TAY LDA IMM  +uu67A1<A ,.ZTAX NOP LDY ABS LDA ABS LDX A:}BS NOP BCS LDA (I) YNOP NOP  +uu67A!<A,.ZLDY Z X LDA Z X LDX Z Y NOP CLV LDA :}ABS YTSX NOP LDY ABS XLDA ABS X +uu67A<A,.ZLDX ABS YNOP CPY IMM CMP (I X)NOP NOP CPY:} Z CMP Z DEC Z NOP  +uu67A<A,.ZINY CMP IMM DEX NOP CPY ABS CMP ABS DEC ABS NO:}P BNE CMP (I) Y+uu67A<A,.ZNOP NOP NOP CMP Z X DEC Z X NOP CLD CMP ABS YN:}OP NOP +uu67A<A p,.ZNOP CMP ABS XDEC ABS XNOP CPX IMM SBC (I X)NOP NOP CPX Z :}SBC Z +uu67A q<A!`,.ZINC Z NOP INX SBC IMM NOP NOP CPX ABS SBC ABS INC ABS NOP :} +uu67A!a<A"P,.ZBEQ SBC (I) YNOP NOP NOP SBC Z X INC Z X NOP SED SBC ABS Y+QQ6:}7A"Q<A#,.6NOP NOP NOP SBC ABS XINC ABS XNOP .uu67@<@,.ZHEART RTINT RTBAR ULA:}NG LFINT DLANG RTSLANTLFSLANTDRTRI DRSQR DLTRI URSQR ULSQR .uu67@<A,.Z UBAR DBAR DLSQR CLUB DRA:}NG MBAR INTRS BLOT DHALF LFBAR DTEE UTEE LHALF.uu67A<Ap,.Z URANG ESC UAROW DAROW LAROW RAR: }OW SPACE ! # $ % & .##67A9<A9,.>:@4,.uu67Aq<A`,.Z ' ( :!} ) * + COMMA - . / 0 1 2 3 .uu67Aa<AP,.Z 4 5 6 :"} 7 8 9 : ; < = > ? @ .uu67AQ<A@,.Z A B C D :#} E F G H I J K L M.uu67AA<A0,.Z N O P Q R :$} S T U V W X Y .uu67A1<A ,.ZZ [ \ ] ^ ULINE DIA:%}MND a b c d e f .uu67A!<A,.Z g h i j k l m n :&} o p q r s .uu67A<A ,.Z t u v w x y z SPADE VST:'}ROK CLRSCN BACKSP TABF IHEA.uu67A <A ,.ZRT IRTINT IRTBAR IULANG ILFINT IDLANG IRTSLNTILFSLNTIDRTRI IDRSQR IDL:(}TRI IURSQR IULSQR IUB.uu67A <A,.ZAR IDBAR IDLSQR ICLUB IDRANG IMBAR IINTRS IBLOT IDHALF ILFBAR IDTEE IUT:)}EE ILHALF IU.uu67A<Ap,.ZRANG RETURN CSRUP CSRDN CSRLF CSRRT ISPACE I! I I# I$ I% I& :*} I.##67A6<A6,.>:@4,.uu67Aq<A`,.Z' I( I) I* I+ ICOMMA I- I. I/ :+} I0 I1 I2 I3 .uu67Aa<AP,.ZI4 I5 I6 I7 I8 I9 I: I; I< I= :,} I> I? I@ .uu67AQ<A@,.Z IA IB IC ID IE IF IG IH II IJ IK :-} IL IM .uu67AA<A0,.Z IN IO IP IQ IR IS IT IU IV IW IX IY :.} IZ .uu67A1<A ,.Z I[ I\ I] I^ IULINE IDIAMNDIa Ib Ic Id Ie If Ig :/}.uu67A!<A,.Z Ih Ii Ij Ik Il Im In Io Ip Iq Ir Is It.mm67:0}A<A,.R Iu Iv Iw Ix Iy Iz ISPADE IVSTROKBUZZER DELCHR INSCHR /$D/EEHEART,RTINT,:1}RTBAR,ULANG,LFINT,DLANG,RTSLANT,LFSLANT,DRTRI,DRSQRD:TEMP.2PADE IVSTROKBUZZER DELCHR INSCHR /$D/EEHEART,RTINT,8D./U k DAZBZAZLZERZADDLNUCX1X2Y1Y2L1L2AAeA^eB B'h>3}@W @B 0u*** LIST"D:LINEMOVE.ENT"5u<6-A<9,9,;@,>4};@%,;@,:uO B(}8( LINE RANGE MANIPULATION UTILITY;(>(B(E(H(O6.?uY(( SELECT (D)ELETE, (>5}M)OVE, (C)OPY,E( (K)OUNT, OR (E)NDH(U(SELECT YDu4DBIu4MBNu4CBSu>6}4KBXu4EB`]uh67@<@,.'367@<@,.^67@<@%,.' UNKNOWN. REENTE>7}R!h Blu&vu Bu(>:A%,($uB( ((CONT(CONT--?AB@B&u(>8}AB@"(>:A%,%(($u76-%F:%@,46-F:,%F:%@,$AV7$u DELETEu0((DELETE B>9}0"BPu:6-P:'@,&6-&+$@,:"B u\-+&@,% B9->:}@@J(8$@%,N X B\ u"B0u: B-@,(8$@%,0 : B>;}uU67@<}&"B6.NULL RANGE SPECIFIED.L Bv((MOVE TO BPvR-@ B"8,4-@>=}@C6-B:=:8,,,R6-B:=:8,,, v*-@(  *B0v -@+&,( v7-@>>}@(8,("()(8,3 B7 *vS67@?}\v COPYavL((COPY B&"B6.NULL RANGE SPECIFIED.L Bfv((COPY TO BPkvR-@>@} B"8,4-@@C6-B:=:8,,,R6-B:=:8,,,pv*-@(  *B0uv -@>A}+&,( zv1-@@#(8,- B1 vT67@B},. LINES COPIED.T Bv COUNTv=(COUNT RANGE (FROM,TO) %1!B'g=6-B'gv,  "( BAD RANGE->C}-REENTER., BvO%6-F:A6,%F:A7,$AVC6-F:,%F:%@,$AVO6-v ! B B >D}v+ !6-%@! B+ B%wU67@E}$w8( RANGE (FROM,TO)  ,!B'g86-B'g)w,  "( BAD RANGE. REENTER., B.wO%6-F:A6,%F>F}:A7,$AVC6-F:,%F:%@,$AVO6-3w ! B B8w   $=w4  6-%@ >G}68,-* B4 B Bw/"6.RANGE TOO LARGE FOR DIM.%'/ BVw%( RANGE (LINE #,INCRE) %[w>-@>H}(68,-%+&@,$78, B'h; >$`w5+(# BAD LINE NUMBER IN RANGE. REENTER.5 BPtw?6.=:F:A,,2(>I}OOPS!- ERROR NUMBER 5'? B`D:LINEMOVE.SAVINE NUMBER IN RANGE. REENTER.5 BPtw?6.=:F:A,,2(<>Y%%PFINDHL@eAU @A5%%ӠΠBK}͠қ!!îŮ AY A SAY@4+90@@BL}S0@@HH(@ԠӠ By Paul Freeman(NN(FӠBM}٠͠ΠΠӠ Please turn on printer2\('(Enter filename to be printedI(or press for BN}directoryM\4A< @P*@@4 AT@@P:(@BO}A>:@ ,N>:@,AYFAAdAU"@3-@B:,A6-@:7<,,P=967$@BP},.7$@%@<$@%@,= Zc6-P:B:,'AV,*6-B:,&$AVF(@L>:,>:,cF:BQ}Ad,"AU@p ƛ#@@# @ ٛ ; AP@;@@BR}D:*.**0@("@&(0 AR@ @P ԛ11;A H,;@ ,BS};A,;A@,? #A!-@A H%"167,.>:,5 ? @  0,48,120,124,62,124,120,480,BT}0,0,255,255,24,24,240,0,0,0,0,0,255,25524,24,24,248,248,0,0,024,24,24,255,255,0,0,024,24,24,31,31,0,0BU},03,7,14,28,56,112,224,192192,224,112,56,28,14,7,31,3,7,15,31,63,127,2550,0,0,0,15,15,15,15255,BV}127,63,31,15,7,3,10,0,0,0,240,240,240,240240,240,240,240,0,0,0,0%%192,192,192,192,192,192,192,1923,3,3,BW}3,3,3,3,315,15,15,15,0,0,0,00,24,24,122,102,122,24,240,0,0,31,31,24,24,2424,24,24,24,24,24,24,24BX}24,24,24,255,255,24,24,240,28,62,62,62,62,28,015,15,15,15,15,15,15,15255,255,0,0,0,0,0,024,24,24,31,BY}31,24,24,2424,24,24,248,248,24,24,24255,255,255,255,0,0,0,00,0,0,248,248,24,24,240,248,248,174,174,10BZ},10,00,16,48,126,126,48,16,00,8,12,126,126,12,8,00,16,56,124,84,16,16,00,16,16,84,124,56,16,00,B[}0,0,0,0,0,0,0 0,0,0,122,122,0,0,0 0,112,112,0,0,112,112,0 !!36,126,126,36,36,126,126,36 0,36,116,214,214,92B\},72,0 0,102,108,24,48,102,70,00,12,94,242,186,236,78,100,0,0,112,112,0,0,00,0,0,60,126,102,66,00B]},66,102,126,60,0,0,016,84,124,56,56,124,84,160,16,16,124,124,16,16,00,0,1,7,6,0,0,00,16,16,16,16,16,1B^}6,00,0,0,6,6,0,0,00,6,12,24,48,96,64,00,60,126,74,82,126,60,00,2,34,126,126,2,2,00,34,102,78,90B_},114,34,00,68,70,82,122,110,68,00,12,28,52,126,126,4,00,116,118,82,82,94,76,00,60,126,82,82,94,12,0B`}0,64,70,78,88,112,96,0 0,44,126,82,82,126,44,0!0,32,114,82,86,124,56,0"0,0,0,54,54,0,0,0#0,0,1,55,54,Ba}0,0,0$0,0,16,56,108,198,130,0%0,36,36,36,36,36,36,0&0,130,198,108,56,16,0,0'0,32,96,74,90,112,32,0(0Bb},60,126,66,90,122,58,0)0,30,62,100,100,62,30,0*0,126,126,82,82,126,44,0+0,60,126,66,66,102,36,0,0,126,126Bc},66,102,60,24,0-0,126,126,82,82,82,66,0.0,126,126,80,80,80,64,0/0,60,126,66,74,78,78,000,126,126,16,16,12Bd}6,126,010,66,66,126,126,66,66,020,4,6,2,2,126,124,030,126,126,24,60,102,66,040,126,126,2,2,2,2,05 0,1Be}26,126,48,24,48,126,12660,126,126,56,28,126,126,070,60,126,66,66,126,60,080,126,126,72,72,120,48,090,60,1Bf}26,66,68,126,58,0:0,126,126,72,76,126,50,0;0,32,114,82,82,94,12,0<0,64,64,126,126,64,64,0=0,126,126,2,2,1Bg}26,126,0>0,120,124,6,6,124,120,0? 0,126,126,12,24,12,126,126@0,102,126,24,24,126,102,0A0,96,112,30,30,112,Bh}96,0B0,70,78,90,114,98,66,0C0,0,0,126,126,66,66,0D0,96,48,24,12,6,2,0E0,66,66,126,126,0,0,0F0,8,24,4Bi}8,96,48,24,8G2,2,2,2,2,2,2,2H0,24,60,126,126,60,24,0I0,4,46,42,42,62,30,0J0,126,126,18,18,30,12,0K0,Bj}28,62,34,34,34,0,0L0,12,30,18,18,126,126,0M0,28,62,42,42,58,24,0N0,0,16,62,126,80,80,0O0,25,61,37,37,63,6Bk}2,0P0,126,126,16,16,30,14,0Q0,0,18,94,94,2,0,0R0,0,1,1,1,95,94,0S0,126,126,8,28,22,2,0T0,0,66,126,12Bl}6,2,0,0U0,62,62,24,28,56,62,30V0,62,62,32,32,62,30,0W0,28,62,34,34,62,28,0X0,63,63,36,36,60,24,0Y0,2Bm}4,60,36,36,63,63,0Z0,62,62,32,32,48,16,0[0,18,58,42,42,46,36,0\0,32,32,124,126,34,34,0]0,60,62,2,2,62,62,Bn}0^0,56,60,6,6,60,56,0_0,56,62,14,28,14,62,56`0,34,54,28,28,54,34,0a0,57,61,5,7,62,60,0b0,34,38,46,58Bo},50,34,0c0,24,58,126,126,58,24,0d0,0,0,255,255,0,0,0e0,124,124,112,120,94,78,0f0,16,56,124,254,0,0,0gBp}0,0,0,254,124,56,16,0h%%255,207,135,131,193,131,135,207i!!255,255,255,0,0,231,231,231j!!255,255,255,255,255,255,0,0Bq}k!!231,231,231,7,7,255,255,255l!!231,231,231,0,0,255,255,255m%%231,231,231,224,224,255,255,255n##252,248,241,227,Br}199,143,31,63o##63,31,143,199,227,241,248,252p##254,252,248,240,224,192,128,0q%%255,255,255,255,240,240,240,240r##Bs}0,128,192,224,240,248,252,254s!!255,255,255,255,15,15,15,15t!!15,15,15,15,255,255,255,255u63,63,63,63,63,63,63,63Bt}v%%252,252,252,252,252,252,252,252w%%240,240,240,240,255,255,255,255x%%255,231,231,133,153,133,231,231y%%255,255,Bu}255,224,224,231,231,231z%%231,231,231,231,231,231,231,231{!!231,231,231,0,0,231,231,231|%%255,227,193,193,193,193,22Bv}7,255}%%240,240,240,240,240,240,240,240~!!0,0,255,255,255,255,255,255%%231,231,231,224,224,231,231,231!!231,231Bw},231,7,7,231,231,2310,0,0,0,255,255,255,255!!255,255,255,7,7,231,231,231255,7,7,81,81,245,245,255%%255,23Bx}9,207,129,129,207,239,255%%255,247,243,129,129,243,247,255%%255,239,199,131,171,239,239,255%%255,239,239,171,131,By}199,239,255%%255,255,255,255,255,255,255,255%%255,255,255,133,133,255,255,255%%255,143,143,255,255,143,143,255Bz}%%219,129,129,219,219,129,129,219##255,219,139,41,41,163,183,255%%255,153,147,231,207,153,185,255""255,243,161,1B{}3,69,19,177,245%%255,255,255,143,143,255,255,255%%255,255,255,195,129,153,189,255%%255,189,153,129,195,255,255,25B|}5%%239,171,131,199,199,131,171,239%%255,239,239,131,131,239,239,255%%255,255,254,248,249,255,255,255%%255,239B}},239,239,239,239,239,255%%255,255,255,249,249,255,255,255%%255,249,243,231,207,159,191,255%%255,195,129,181,173,1B~}29,195,255%%255,253,221,129,129,253,253,255%%255,221,153,177,165,141,221,255%%255,187,185,173,133,145,187,255%B}%255,243,227,203,129,129,251,255%%255,139,137,173,173,161,179,255%%255,195,129,173,173,161,243,255%%255,191,185,B}177,167,143,159,255%%255,211,129,173,173,129,211,255%%255,223,141,173,169,131,199,255%%255,255,255,201,201,255,25B}5,255%%255,255,254,200,201,255,255,255$$255,255,239,199,147,57,125,255%%255,219,219,219,219,219,219,255$$255,B}125,57,147,199,239,255,255%%255,223,159,181,165,143,223,255%%255,195,129,189,165,133,197,255%%255,225,193,154,154B},193,225,255%%255,129,129,173,173,129,211,255%%255,195,129,189,189,153,219,255%%255,129,129,189,153,195,231,255B}%%255,129,129,173,173,173,189,255%%255,129,129,175,175,175,191,255%%255,195,129,189,181,177,177,255%%255,129,12B}9,239,239,129,129,255%%255,189,189,129,129,189,189,255%%255,251,249,253,253,129,131,255%%255,129,129,231,195,153,B}189,255%%255,129,129,253,253,253,253,255%%255,129,129,207,231,207,129,129%%255,129,129,199,227,129,129,255%%2B}55,195,129,189,189,129,195,255%%255,129,129,183,183,135,207,255%%255,195,129,189,187,129,197,255%%255,129,129,183B},179,129,205,255%%255,223,141,173,173,161,243,255%%255,191,191,129,129,191,191,255%%255,129,129,253,253,129,129,2B}55%%255,135,131,249,249,131,135,255%%255,129,129,243,231,243,129,129%%255,153,129,231,231,129,153,255%%255,15B}9,143,225,225,143,159,255%%255,185,177,165,141,157,189,255%%255,255,255,129,129,189,189,255%%255,159,207,231,243,B}249,253,255%%255,189,189,129,129,255,255,255%%255,247,231,207,159,207,231,247%%253,253,253,253,253,253,253,253B}%%255,231,195,129,129,195,231,255%%255,251,209,213,213,193,225,255%%255,129,129,237,237,225,243,255%%255,227,193B},221,221,221,255,255%%255,243,225,237,237,129,129,255%%255,227,193,213,213,197,231,255%%255,255,239,193,129,175,1B}75,255%%255,230,194,218,218,192,193,255%%255,129,129,239,239,225,241,255%%255,255,237,161,161,253,255,255%%25B}5,255,254,254,254,160,161,255%%255,129,129,247,227,233,253,255%%255,255,189,129,129,253,255,255%%255,193,193,231,B}227,199,193,225%%255,193,193,223,223,193,225,255%%255,227,193,221,221,193,227,255%%255,192,192,219,219,195,231,25B}5%%255,231,195,219,219,192,192,255%%255,193,193,223,223,207,239,255%%255,237,197,213,213,209,219,255%%255,223B},223,131,129,221,221,255%%255,195,193,253,253,193,193,255%%255,199,195,249,249,195,199,255%%255,199,193,241,227,2B}41,193,199%%255,221,201,227,227,201,221,255%%255,198,194,250,248,193,195,255%%255,221,217,209,197,205,221,255%B}%255,231,197,129,129,197,231,255!!255,255,255,0,0,255,255,255%%255,131,131,143,135,161,177,255##255,239,199,131,B}1,255,255,255##255,255,255,1,131,199,239,255D:LISTPLUS.BAS255,131,131,143,135,161,177,255##255,239,199,131,@G23DIRVDIRHTEMPMBASPOKMOVPLAYERMOVUAAApB$@F@@AF}eAA ` AR B  ''/ @// @PO6-?:<<%<,#6-R:F},/B2H:6-%8,E6-%8,O @21 +'0@@@1 A@6-F:A,&@F}(6-AV$46-A@6-@PSS6-?:C:,<BBy<<AY<@F<B2w<@<B2H<<A<A,?F}%A?6-?:C:,<%A<%A<A(,69 6-C:,6-C:,#6-%A/6-@9 @%9F}@,9@,%#A5-@@"$68,-("168,-5 L0,0,0,0,0,0,0,0V771,1,1,-1,1,0,0,0,F}-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,00;@%,06.hJhhhȑh`>;@9,>6.'hhhhhhhF}`F;@G,F6./hhhhhheeh` $;@,!6. $$F}D:TEMP.1`F;@G,F6./hhhhhheeh` $;@,!6. $$D]< R AWID((@@AUA@ WIDETEXT.BASBY BILL MORJ}RISANTIC MAGAZINE( BAAD2;@@,< (} ((F/)(! graphi cs 1 & GRAPHIJ}CS 0,(/(P( BY(Z'('( bi l l m orri sd6-?:A6,n AsxAJ},(,(! WIDETEXT IS A BASIC PROGRAM THAT))(!USES A LITTLE MACHINE LANGUAGE TO((( CREATE A GR.1 CHARACTER SETJ} THAT&&(USES A DIFFERENT SET OF RULES:/(/($1.THEY CAN GO ANYWHERE ON THE SCREEN**("2.THE COLOR MATCHES THE GR.J}0 TEXT.&&(3.THE BACKGROUND STAYS INTACT.(4.INVERSE VIDEO WORKS.,,($5.EACH WIDE LETTER IS PRINTED WITH 2,,(J}$ KEYSTROKES: LOWER CASE A + CONTROL( A GIVE US A WIDE A. As**(" TO GET USER INPUT, OF COURSE, WEJ}++(#CAN'T EXPECT A USER OF OUR PROGRAMS--(%TO INPUT ANYTHING REQUIRING 2 STROKES**("PER LETTER. HERE IS A ROUTINE THJ}AT"**("GETS A$ IN THE PROGRAM'S CHOICE OF,!!(WIDE OR NORMAL CHARACTORS6 As@'A`A`'AdAfJ}J AsT A` ^p!!wi de INPUT,NORMAL INPUTz;@@,##@@K:J}(YOUR FAVORITE COMPUTER?6- Ad##@@K:(YOUR FAVORITE MAGAZINE?267J}@,. #67@@,.267@,.6-@ Ad$*** INPUT ROUTINE*** 6-@)@J}"AUAe("Ad2!"@2( ! Ad<6-%@2(>:,F#6-&@dJ}(>:,# AdP (>:,Z67<,.>:,d6-%@ Ad n( (@$x$-@@"J},,($ PRESS 兠 TO CONT.##@@K:)@@ (}$J} N(-A6A"!% ($*N104,169,0,133,69,1334N204,133,206,133,71,56>N165,89,233,1,133,72HN23J}3,1,133,207,233,1RN133,205,233,1,133,70\N160,0,185,0,224,145fN69,185,0,225,145,204pN141,254,6,74,74,74zN7J}4,141,255,6,173,254N6,41,15,32,106,6N145,206,173,255,6,32N106,6,145,71,200,192N208,208,213,185,0,224NJ}145,69,185,0,225,145N204,185,0,226,145,206N185,0,227,145,71,200N192,255,208,231,165,70N141,244,2,96,170,J}41N8,201,8,208,7,138N24,105,184,76,121,6N138,170,41,4,201,4N208,7,138,24,105,44O76,136,6,138,170,41J}O2,201,2,208,7,138O24,105,10,76,151,6$O138,170,41,1,201,1.O208,7,138,24,105,28O76,166,6,138,96,0J}D:WIDETEXT.SAVANALOG 105,10,76,151,6$O138,170,41,1,201,1.O208,7,138,24,105,28O76,166,6,138,96,0H% !}c (}+6-F:A0,%AV$F:A1,?-AJ6-F:%,N}V"Y'c B  }   }&-%A(# &}QQ-This program will remove all of the variableN}s from your programlistings.(}QQThe program will still run, but nobody will be able to read it or alter it.2}``The way toN} use it is to LOADyour program,then ENTER "D:VREM.LST Next, type in GOTO 32000<}QQFor an even screwier LIST, change the N}128 in line 32020 to 32. Have fun!D2:VARREMV.SAVt, type in GOTO 32000<}QQFor an even screwier LIST, change the L;------------< 13 NOV 85 D:MASTER.BASXIT ***v0 +(((DOS--0&>------9  \A @g ;@, }A  (%(DO YOU WANT INSTRUCTIONS? Y/N((0YA   AR@(.+(# TO USE THIS PR}OGRAM, ADJUST THE.(2-*(" COLOR POT, LOCATED AT THE BACK-(<,)(! OF YOUR COMPUTER, SO THAT THE,(F,)(! BARS} SEEN ABOVE AND BELOW THE,(P,)(! THIN BLACK LINE ARE IDENTICAL,(Z4( IN COLOR.'-@7@"4 >:@3,}_-@A0 de +@A@3-@@= A A O6-%@[6-@e A }n AxL6-%@ )-@7,%E/@y%I L$?-@ @#+%@2}7-@A; ?  Az +@-@1AAI(@ GTIA COLOR[-@}@z(@ALIGNMENT PROGRAM-@ @%(@by7-@@V(@PETER SANTEUSANIO}h-@(@ATARI COMPUTER CLUB,-@@ ,(@ OF DENVER-@A332}P:H:,$@u,@@ ) )2-@A $ D:}COLORALI.GN,$@u,@@ ) )2-@A $ D: #$!QQQQQ1Q1Q1Q3Q30AADTEM R} %+0@0%0o6-6-@'6-@36-@ R}?6-@K6-@W6-@c6-@0o6-A 8;,;,(8(!دàҠӠv(,(R}!ENTER D FOR DEC TO HEX CONVERSIONR(!ENTER H FOR HEX TO DEC CONVERSIONr(ENTER M FOR RETURN TO MENUv# 4M%DR}:MENU( B:," 2 4H < 0D Z @dc(-("ENTER A DECIMAL NUMBER FROM 0 THRU=( 9999999999.R}G(úKc )EA 6-< 6-6-P:',6-&$$ 267<,.=:,< A67<,.>:&R}%@:A,, 6-& A@(غ 7<,( ,Z  (-(ENTER A HEX NUMBER FROM 0 THRU;( FFFFFFFF.E(R}غIO6-Z-B:,Y6.7<,20 ^'7<,/96-$%A:,' Apc 2A e 3F hR}6-$%@:,&@:A,%r (ú (  D:HEXCONV6-$%A:,' Apc 2A e 3F hPG