@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 D8u?@ ABXXSTEPYSTEPCLOCLINFLSSSSLOYXMISESPO@@T} U} <<;@6,;@,;@,9@,9@,6-A 6-A0V}$ (DO YOU WANT EXTRA VOWELS$6-(7@<@,4Y(6-@(M#6.ABCDEFGHIJKLMNOPRSTUVWXYZ5W}6. AAAEEEIIIOOA6-@M6-@%2;"@#67B:,%@,./6-@;6-@67' +@'0@X}@:70@@ @70@@@<-@6@F6-P:+&@,',P-Y}%@6$%Z6-P:H:,$,%@d @7<,i"A n67<,.7<,x } AZ}'@ '@ 6-@6-@6-@6-@%%6-F:@,%AV$[}F:@,6-%@ $% 6-F:,%@dT:,@ T"F:B2y,@*!@06\}-%@<6-@H6-T6-F"F:B2y,@*@.6-@ :6-F6--]}@@% 6-R:,"@  A& 6-F:,!@d&&@d6-%8,6-%^}8,&!%@) @&6-&8, @)!6-&8,, J Au-68@,-@-68@_},-@.68@,-@.68@,-6@-68@,-@-68@,-.68@ ,-6@`}.68@ ,-@/68@,-6@/68@,-6@.68@,-6@.68@,-$-68a}@,--68@,-@..68@,-.68@,-6@8-68@,--68@,-b}B$%%6-AV$F:@,%F:@ ,6-P:'A6,6-&$A6&&6-+P:'@`,$@,'@c}-@- @#(@: - A U(@:"@ A@ $ 6-d}F:,  "*"$  6-6- !@d6-&@d 6-%$@ % %A( 6-%@ 442e}$$@$H:,@@ =-@@ =2 $'-@f}@'(@TIME(-@@((@IS UP,-@@,(@ PRESS ANY)-@g}@)(@KEY TO(-@@((@STARTq-@AU32@@G-@h}@K O q2"F:Ad,"AU" A@PAdAU @ i} D:WSQUAREK O q2"F:Ad,"AU" A@PAdAU @  \INLINEQUITTXTBYTBYTxxBx}v ;A ,; k}@,: DEFINE EOF FROM CP/M&6.>:@,&67@,.DONE:FIND MEMORY AVAILABLE6-I:,&AV l}())6-$+B'g,%B'g$+!B'g,2 ;,;: OPEN RS-232 PORT<$$@@R1:F,,@@ m}@R1:P' @>:@,':START CP/MY$$:LOOP TO GET PROGRAM FROM CP/MZ-@ n}d@ APn x4AP: APPEND INLINE$ TO TXT$67B:,%@,.  o}: WAIT (BLINDLY): FOR CP/M PROMPT-@A  : SIGNOFF FROM CP/M @BYE@ p}&: TO WRITE CASSETTE,!!: TYPE "GOTO 200" OR "CONT";@,: OPEN CASSETTE##@@ q}C:!!: LOOP TO WRITE TO CASSETTE-@B:, 6.7, 6-@:,"@ *@ r} @ D:BULLETINTTE-@B:, 6.7, 6-@:,"@ *@ .RS ! FIPIISSULINECOUNICRSRANGLINCOUNCHECKSUNUMBEPRODUCITETOTADATUt}@ @ u}d88 DEBUGGING AID BY ISTVAN MOHOSi""VERSION 2 MODS BY TOM HUDSONn[ +v}([(FThis run will LIST data statements with the name: , to the disk.xi(f([The DATA is created by evaluatinw}g each character of a user program, LISTed to disk.i(};@,(ENTER FILENAME*6-F:AY,6-x}*,((ENTER ISSUE NUMBER( A@,* A0*@@A0A0y}f (},(DISABLING SCREEN...STAND BY...@-@AD PAYfdebug before poking 6-;A&z},( A@(6-%@ AK@6-P:'@,69,9,;@,K+")4,A{}`II@:7@<@,, @H)@:7@<@,,!@WA`6-@ AP4 6-6-#-@|}@067<,. 4  6-*@6-@*6-%@87<,0  67<,.7<,.6-%@}}8 A` 6-A:, 68,-6-%@" A @,%6-%@%"@A@6 A~}@$@6-@$ APJ-@6-TF)@6-$ 6-%.6-%@:"@F6-@}Y"AUA`^ A@h?6-&A$P:'A,'68,-3!@ ?6-@m r@@}1@@D:BUG:6-8,@6-|'6-@6-! @'6- @ DATA B-@}$6-8@$%,6 @,>6-%B  @36-%@6-&@3 @AP} 6-8, A@AYUU(M}To check data against printed data statements, type NEW. Th}en type:\\(ENTER >:@4,@D:BUG . Type LIST after the READY prompt.U(U(JThe line numbe}r of each data statementcoincides with the first line of the88(0user program which the data statement evaluates.aa(YN}umbers within each data statement represent consecutive lines of the user program.%%(The last number is the total.}R(R(GCheck the number of each state- ment against the printed version;PP(Honly in case of a discrepancy check} each number in the data statement.]](7Make note of the lines containing the bugs. Then ENTER >:@4,D:yourprog}&# (to make the corrections.#0PAY(}P(5Your typed-in program was not properlyLISTed to disk.:e}(_(*Please LIST your program to disk, thenRUN >:@4,D:CHECK>:@4, again.beD:CHECK2o disk.:eq`a STARDEVTABDIRECTORYFILENAMEANSDISPRNTEDIRTACOLWIOUTPUNULDIRICOUNSPACWIDTHEADCNB6}((*/B@@@ @@ @ @ @@} $$******************************$$* UTILITY #4 *$$* DISKCAT VER.1 *$$* }BY TONY MESSINA *$$* FOR A.N.A.L.O.G. COMPUTING *#$$******************************(*-*****************}****2* MAKE SCREEN TITLE *7*********************<*A +@/6-F:A`,%F:Aa,$AVC%@ }@W%@@k%@@%@@F'A@2'A@K!(@ } Uiiy ,(@K(@ s i uPl(@ ==================(@ BYPm!(@} S(@$ ..... m(@ UK*(@ } 堣K(@ ==================Z*_*****************d* VARIABLE INIT *i*****************}n*sD;@,;@@,*;@,7;@,D;@,x>6.D:*.*>6.( } }o6-@6-@'6-@36-@@?6-@K6-W6-@c6-@o6-@}******************** GET USER INPUT ******************** (}8 6.P: A4(}ȠҠ 8#@@*@# A`"@6- A'6-@6-@'6-@}(********************** OPEN DEVICES FOR ** INPUT/OUTPUT *********************}* A3 A************************* ASK FOR HEADER NAME *}************************(ҠˠŠ  46.-DEFAULT NAME-*****************}**** PRINT TITLE OUT ********************"*'B:,!@ A, A188 7@"G68,-K W6-A c6-@m @`}86-%@(LINE:!"8B:,@AF%6-F:A,%F:A,$AV+C(LINE  MISSING}!Fq-@@@56-@:7<,,&@H[6-@:7%@<%@,,&@Hq6-8,$@%8,(;67},.>:,6-%@%6-%) -";"@%2 A< F:A,@AF_-(%WARNING: MAKE SURE P}ROGRAM IS !0(N(READY TO RUN ̠Ҡ[;@,_P! 4YES6-?:C:,}O CLEAR DISPLAY!;;THIS SECTION HANDLES PLAYER'S DEATH;CRASHLDA#0;NO WARBLE SOUNDSTAAUDC1STAAUDC2STAAUDC3LDA?}#1;NO PLAYER COLORSTANOCCHG;CHANGE IN VBILDA#15;SET BRIGHTNESS OFSTADEDBRT;PLAYER DEATH.TIMRSTLDA#5;SET DEA@}TH TIMERSTATIMER;TO 5 JIFFIES.DEADCCLDADEDBRT;MOVE BRIGHTNESSSTAAUDC1;TO DEATH SOUND VOLUMELDARANDOM;GET RANDA}OMAND#$1F;DEATH SOUNDSTAAUDF1;FREQUENCYLDARANDOM;GET RANDOMAND#$F0;DEATH COLORORADEDBRT;ADD BRITESTACOB}LPF1;PUT IN LINE COLORSTACOLPM3;AND PLAYER COLORLDATIMER;TIMER DONE YET?BNEDEADCC;NO, GO CHANGE COLOR.DECDEDBC}RT;DECREMENT BRIGHTNESSBPLTIMRST;IF MORE, GO DO IT.DECLIVES;1 LESS LIFELDALIVES;GET # LIVESORA#$90;ADD COLORD}STASCOLN2+19;AND DISPLAY!CMP#$90;ZERO LIVES?BNENOTDED;NO!LDA#GOMSG&255;WE'RE COMPLETELYSTASCDL;DEAD, SHOWE}LDA#GOMSG/256;'GAME OVER'STASCDL+1;MESSAGECKSTRTLDACONSOL;WAIT FOR STARTAND#1;KEY...BNECKSTRT;NOT PRESSEDF}--LOOP.RELEASLDACONSOL;KEY PRESSED, NOWAND#1;WAIT FOR RELEASE! BEQRELEAS;NOT RELEASED YET!LDA#SCOLIN&255;PUG}T SCORESTASCDL;LINE BACKLDA#SCOLIN/256;IN DISPLAYSTASCDL+1;LIST...JMPSTART;AND START GAME!;;THIS SECTION PLH}ACES PLAYER AT A RANDOM;LOCATION IF THERE ARE MORE LIVES LEFT.;NOTDEDLDA#1;DON'T SHOWSTASHOOFF;PLAYERNEWLOCLDARAI}NDOM;GET RANDOM XAND#$FE;MUST BE EVENCMP#159;AND ON SCREENBCSNEWLOCSTAPLOTXCSHYLDARANDOM;GET RANDOM YANDJ}#$7E;MUST BE EVENCMP#85;AND ON SCREENBCSCSHYSTAPLOTYJSRPLOTCLLDY#0LDABITSON,XAND(LO),Y;IS LOCATION OK}NCMPCOLOR1,X;COLOR 1?BNENEWLOC;NO, TRY AGAIN.JSRPMCLR;IT'S OK, CLEAR P/MLDAPLOTX;SAVESTAPX;THE PLAYER'SL}LDAPLOTY;NEWSTAPY;COORDINATES.LDA#0;REDRAW THESTARDRCOL;PLAYER'S TRACKLDAHASDRN;IN COLOR 0BEQJCTRKJSRM}REDRAWLDAINIX;THIS PART ISSTAPLOTX;NEEDED TO PLOTLDAINIY;A COLOR 1 BLOCKSTAPLOTY;AT THE START OFJSRPLOTCLN};THE PLAYER'S TRACKLDY#0;AFTER IT IS ERASED.LDABITOFF,X;(NOBODY'S PERFECT!)AND(LO),YORACOLOR1,XSTA(LO),YJCTO}RKLDA#$24;RESTORE DRAW LINESTACOLPF1;COLORLDA#0STANOCCHGSTAHITCLRSTADEADFGJMPCLRTRK;AND GO START NEW TP}RACK.;;THIS ROUTINE USES THE TRACKING TABLES,;DIR AND LGTH, TO REDRAW THE LINE THE;PLAYER DREW. RDRCOL INDICATES THE COLQ}OR;DESIRED.;REDRAWLDAINIXSTAREXLDAINIYSTAREYLDA#0STAXREDXLPLDXXLDADIR,XSTAREDIRLDALGTH,XSTAR}LGTHYLDA#1STAYREDYLPLDA#3STATIMESTIMES3LDAREXSTAPLOTXLDAREYSTAPLOTYJSRPLOTCLLDY#0LDARDRCOLS}BNERDC1LDABITOFF,XAND(LO),YSTA(LO),YJMPSETNRPENDRDLDA#0STADRAWFGRTSRDC1LDABITOFF,XAND(LO),YORAT}COLOR1,XSTA(LO),YSETNRPDECTIMESBEQNXTYLDXREDIRLDAREXCLCADCXD,XSTAREXLDAREYCLCADCYD,XSTAREYU}JMPTIMES3NXTYINCYLDAYCMPLGTHYBEQJNRDBCSNXTXJNRDJMPREDYLPNXTXINCXLDAXCMPMOVIXBEQJRXLPBCSENDV}RDJRXLPJMPREDXLP;;2-BYTE DECIMAL CONVERTER. CONVERTS;A 2-BYTE BINARY NUMBER TO A 5-BYTE;DECIMAL NUMBER. WILL PLACE TW}HE;DECIMAL NUMBER IN SCOLIN IF DESIRED;(SLLOC DETERMINES POSITION).;CNVDECLDX#4LDA#0CDLPSTADECIMAL,XDEXBPLCDX}LPLDX#4CKMAGLDAHIWKCMPHIVALS,XBEQCKM2BCSSUBEMBCCNOSUBCKM2LDALOWKCMPLOVALS,XBCSSUBEMNOSUBDEXBPLY}CKMAGJMPSHOWITSUBEMLDALOWKSECSBCLOVALS,XSTALOWKLDAHIWKSBCHIVALS,XSTAHIWKINCDECIMAL,XJMPCKMAGSHZ}OWITLDX#$4LDYSLLOCBMISHENDSHOLPLDADECIMAL,XORA#$D0STASCOLIN,YINYDEXBPLSHOLPSHENDRTS;;THIS ROUTINE[} MOVES THE STAR AROUND ON;THE PLAYFIELD. THE STAR IS ROTATED AND;PLOTTED (IN A PLAYER) IN THE VBI.;MOVSTRLDASMTIM;TIM\}E TO MOVE?BEQMSTR;YES, GO DO ITJMPGETSTK;NO, GET STICKMSTRLDASTRSPD;SET MOVEMENT TIMERSTASMTIM;WITH STAR SPEE]}DLDASTRHGT;ADJUST P/MSEC;COORDINATES TOSBC#13;MATCH PLAYFIELDSTASTRLY;PLOTTINGLDASTRHOR;COORDINATES.SEC^}SBC#44STASTRLXLDARANDOM;WANT TO CHANGECMP#240;THE STAR'S DIRECTION?BCCSAMSTD;NO, USE SAME.NEWDIRLDARANDO_}M;GET RANDOMAND#7;DIRECTIONJMPDIRCHKSAMSTDLDASTRDIR;GET OLD DIRECTION.DIRCHKTAX;CHECK TO SEESTATMPDIR;IF `}STAR WILLLDASTRLX;BUMP INTO ANYCLC;PLAYFIELDADCSTRDTX,X;OBJECT.STAPLOTXLDASTRLYCLCADCSTRDTY,XSTAPLOa}TYJSRPLOTCLLDY#0LDABITSON,XAND(LO),Y;ANY COLLISION?BEQWAYCLR;NO, ALL CLEAR!LDA#15;HIT SOMETHING,STABSb}CNT;START BUMP SOUND ANDBNENEWDIR;GET NEW DIRECTION.WAYCLRLDAPLOTX;ADJUST STARCLC;COORDINATESADC#44;BACK TO c}P/MSTASTRHOR;COORDINATESLDAPLOTY;FROM PLAYFIELD.CLCADC#13STASTRHGTLDATMPDIR;SET DIRECTIONSTASTRDIRJMd}PGETSTK;AND LOOP;;SEARCH FOR FILLABLE AREA;;THIS SECTION SEARCHES FOR THE AREA TO;BE FILLED. IT IS SO COMPLICATED THAe}T;EXPLANATION OF ITS FINER DETAILS;WOULD BE ALMOST IMPOSSIBLE WITHOUT;WRITING ANOTHER COMPLETE ARTICLE. AT;ANY RATE, IT f}WORKS. THOSE WITH ANY;SPECIFIC QUESTIONS SHOULD WRITE ME,;CARE OF A.N.A.L.O.G.;SEARCHLDA#1STAFILLONLDA#0STADg}LDASTRHORSECSBC#44STASXLDASTRHGTSECSBC#13STASYFINDCLLDXDLDASXCLCADCSXD,XSTASXSTAPLOTXq}B%DOS SYSB*)DUP SYSBSWSQUARE B jBULLETIN BsCHECK2 BDISKDIR BCFILLERUP BFILLERUPASMBGTIA10 BGTIA11 BGTIA9 BLEPRDEMO BVLEPRECHN BMAGICKEY B!5MASTRDIR BVMENU BlPMMOVER BzPMMOVER ASMBTRAP1 BTRAP2 B TRAP3 BTRAP4 BTRAP5 ;ADVENTRE LDASYCLCADCSYD,XSTASYSTAPLOTYJSRPLOTCLLDY#0LDA(LO),YANDBITSON,XCMPCOLOR1,XBEQFINDC2CMPCOLOR2r},XBNEFINDCLLDA#0STATDJMPFOUND2FINDC2LDADSTATDJSRDECDFC2AJSRSRCHLCCMPCOLOR1,XBNEFC2BJSRGRABEMs}JMPFINDC2FC2BCMPCOLOR2,XBNEFC2CJSRGRABEMJMPOUTLINFC2CJSRINCDJMPFC2AFOUND2LDA#0STATRIESJSRDECDFt}ND2AJSRSRCHLCCMPCOLOR2,XBNEFND2BJSRGRABEMJMPFOUND2FND2BLDATRIESCLCADC#1STATRIESCMP#3BEQFINDC1u}JSRINCDJMPFND2AFINDC1LDADSTATDJSRDECDFC1AJSRSRCHLCCMPCOLOR1,XBNEFC1BJSRGRABEMJMPFINDC2FC1BJSRv}INCDJMPFC1AOUTLINJSRPLSXSYLDA#0STATRIESOUTLAJSRSRCHLCCMPCOLOR1,XBNEOUTLBJSRGRABEMJMPOUTLINOUTLBLw}DATRIESCLCADC#1STATRIESCMP#4BEQOUTLDJSRINCDJMPOUTLAOUTLDJSRLOCTXYOUTLD2CMPCOLOR2,XBNEOUTLEJSRx}FILLLDA#0STAFILLONRTSOUTLEJSRINCDJSRSRCHLCJMPOUTLD2SRCHLCLDXTDLDASXCLCADCSXD,XSTATXSTAPLOTy}XLDASYCLCADCSYD,XSTATYSTAPLOTYLOCTXYLDAPLOTXCMP#159BCSNOREADLDAPLOTYCMP#85BCSNOREADJSRPLOTz}CLLDY#0LDA(LO),YANDBITSON,XRTSNOREADLDA#0LDX#0RTSGRABEMLDATDSTADLDATXSTASXLDATYSTASYRT{}SINCDLDATDCLCADC#1AND#3STATDRTSDECDLDATDSECSBC#1AND#3STATDRTSPLSXSYLDASXSTAPLOTXCMPM|}AXXBCCTMINX2STAMAXXJMPCKYMM2TMINX2CMPMINXBCSCKYMM2STAMINXCKYMM2LDASYSTAPLOTYCMPMAXYBCCTMINY2S}}TAMAXYJMPENDMM2TMINY2CMPMINYBCSENDMM2STAMINYENDMM2JSRPLOTCLLDY#0LDABITOFF,XAND(LO),YORACOLOR2,X~}STA(LO),YRTS;;FILL ROUTINE;;AS WITH THE 'SEARCH' SUBROUTINE, THE;FILL SUBROUTINE IS FAR TOO COMPLEX TO;EXPLAIN HERE.} THIS FILL IS ENTIRELY;DIFFERENT FROM THE SYSTEM'S FILL;ROUTINE, AS IT WILL FILL ANY SHAPE;THAT IS OUTLINED IN COLOR 2.;}FILLLDA#0;TURN OFFSTAAUDC2;SOUND CHANNELSSTAAUDC3;2 AND 3.LDAMAXY;INITIALIZESEC;THE FILLSBCMINY;SOUND}STAFILFRQ;FREQUENCY.LDAMINXSECSBC#1STAMINXSTAFXLDAMINYSTAFYSECSBC#1STAMINYLDAMAXXCLCAD}C#1STAMAXXLDAMAXYCLCADC#1STAMAXYLDA#0STASCTALYCLRC2TLDA#0STAC2TALYLOCLP1JSRLOCATECMP#2BNE}LOCLP1LOCLP2INCC2TALYJSRLOCATECMP#2BEQLOCLP2AND#1BNECLRC2TLDAC2TALYCMP#1BEQFILLITJSRLOCPRVBEQ}CLRC2TFILLITLDAFXSTAPLOTXLDAFYSTAPLOTYJSRPLOTCLLDY#0LDA(LO),YORACOLOR3,XSTA(LO),YINCSCTALYJS}RLOCATECMP#0BEQFILLITAND#1BNECLRC2TLDA#1STAC2TALYFOLLOWJSRLOCATECMP#0BEQLOCLP3AND#1BNECLRC2}TINCC2TALYJMPFOLLOWLOCLP3LDAC2TALYCMP#1BNELOCLP4JMPCLRC2TLOCLP4JSRLOCPRVCMPBITSON,XBEQFILLITJMP}CLRC2TLOCATELDAFXCLCADC#1STAFXCMPMAXXBNESTOFXLDACURLOCLCADCSCTALYSTACURLOLDACURHIADC#0STA}CURHILDA#0STASCTALYLDAMINXSTAFXLDA#0STAC2TALYLDA#$86STAAUDC1LDAFILFRQSTAAUDF1BEQNOFFDCDEC}FILFRQNOFFDCLDAFYCLCADC#1STAFYCMPMAXYBEQFILENDLDAFXCMPMINXBNESTOFXPLAPLAJMPCLRC2TFILENDPL}APLARTSSTOFXLDAFXSTAPLOTXLDAFYSTAPLOTYJSRPLOTCLLDY#0LDABITSON,XAND(LO),YCMPCOLOR2,XBNENOTC2}LDABITSON,XORA(LO),YSTA(LO),YINCSCTALYLDA#2RTSNOTC2CMPCOLOR1,XBNENOTC1LDA#1RTSNOTC1CMP#0BNE}C3RTSC3LDA#3RTSLOCPRVLDAFXSTAPLOTXLDAFYSECSBC#1CMPMINYBEQNOLOCPSTAPLOTYJSRPLOTCLLDY#0LD}ABITSON,XAND(LO),YRTSNOLOCPLDA#0LDX#0RTS;;VBI ROUTINE;INTRPTLDAKEY;IS SPACE BARCMP#$21;PRESSED?BNE}NOPRES;NO, CHECK FOR PAUSE.LDA#$FF;CLEAR OUTSTAKEY;KEY CODE,LDAPAUSE;COMPLEMENTEOR#$FF;THE PAUSESTAPAUSE};FLAG.NOPRESLDAPAUSE;ARE WE PAUSED?BEQNOPAUS;NO!JMPXITVBV;PAUSED, NO VBI!NOPAUSLDABSCNT;MORE BUMP SOUND?BM}INOBS;NO, PROCESS TIMER.ORA#$A0;MIX VOLUME WITHSTAAUDC4;PURE TONE,LDA#$80;SET UP BUMPSTAAUDF4;SOUND FREQUEN}CY DECBSCNT;AND DECREMENT COUNT.NOBSLDATIMER;TIMER DOWN TO ZERO?BEQNODEC;YES, DON'T DECREMENT.DECTIMER;DECREM}ENT TIMER.NODECLDAFILLON;ARE WE FILLING?BEQNOFILL;NO, DO REST OF VBI.JMPXITVBV;YES, EXIT VBINOFILLLDA#0;CLEAR} OUTSTADEADFG;DEAD FLAGLDAP0PL;HAS PLAYER 0AND#$08;HIT PLAYER 3?BEQNOHITP;NO!INCDEADFG;YES!!!NOHITPLDA}P0PF;HAS PLAYER 0AND#$02;HIT COLOR 2?BEQNOHITL;NO!INCDEADFG;YES!!!NOHITLSTAHITCLR;CLEAR COLLISION.LDAMOVT}IM;MOVEMENT TIMER ZERO?BEQNOMDEC;YES, DON'T DECREMENT.DECMOVTIM;DECREMENT TIMER.NOMDECLDASMTIM;STAR MOVE TIMER Z}ERO?BEQNMTDEC;YES, DON'T DECREMENT.DECSMTIM;DECREMENT TIMER.NMTDECLDASTARCT;STAR ROT. TIMER ZERO?BEQSTAROT;YE}S, ROTATE STAR!DECSTARCT;DECREMENT TIMERJMPVBREST;AND SKIP ROTATION.STAROTLDA#1;SET ROT. TIMERSTASTARCT;TO 1}LDASTRPOS;INCREMENTCLC;STAR ROTATIONADC#1;COUNTER,CMP#7;ALLOW ONLY 0-6.BNESTOSTP;ROT. COUNT OKLDA#0;ZE}RO ROT. COUNTER.STOSTPSTASTRPOS;SAVE ROT. POS.VBRESTLDYSTRPOS;THIS SECTIONLDXSTRHGT;DRAWS THE STARLDA#0;IN PL}AYER 0STAPL0-1,X;MEMORY USINGSTAPL0+8,X;THE TABLESLDASTARB1,Y;'STARB1' THRUSTAPL0,X;'STARB8'.LDASTARB2,Y}STAPL0+1,XLDASTARB3,YSTAPL0+2,XLDASTARB4,YSTAPL0+3,XLDASTARB5,YSTAPL0+4,XLDASTARB6,YSTAPL0+5,XLDA}STARB7,YSTAPL0+6,XLDASTARB8,YSTAPL0+7,XLDASTRHOR;SET STAR'SSTAHPOSP0;HORIZ. POS.LDASHOOFF;OK TO SHOW PLA}YER?BNEENDVBI;NO, EXIT VBILDAPX;SET PLAYER'SCLC;HORIZONTALADC#47;POSITIONSTAHPOSP3LDAPY;DRAW PLAYERC}LC;IN PLAYER 3ADC#$10;MEMORYTAXLDA#0STAPL3-3,XSTAPL3-2,XSTAPL3+2,XSTAPL3+3,XLDA#$40STAPL3-1,XS}TAPL3+1,XLDA#$A0STAPL3,XLDANOCCHG;COLOR CHANGE OK?BNEENDVBI;NO, EXIT VBIINCCOLPM3;YES, CYCLE THE COLOR.EN}DVBIJMPXITVBV;DONE WITH VBI!;;DATA;DLISTDB$70,$70,$70DB$4D,DISP&255,DISP/256DB$D,$D,$D,$D,$D,$D,$D,$D,$D,$DD}B$D,$D,$D,$D,$D,$D,$D,$D,$D,$DDB$D,$D,$D,$D,$D,$D,$D,$D,$D,$DDB$D,$D,$D,$D,$D,$D,$D,$D,$D,$DDB$D,$D,$D,$D,$D,$D,$D,}$D,$D,$DDB$D,$D,$D,$D,$D,$D,$D,$D,$D,$DDB$D,$D,$D,$D,$D,$D,$D,$D,$D,$DDB$D,$D,$D,$D,$D,$D,$D,$D,$D,$DDB$D,$D,$D,$}D,$D,$20,$46SCDLDWSCOLINDB$46DWSCOLN2DB$41,DLIST&255,DLIST/256SCOLINDBCT,CG,CT,CCOL,0,0,0,0,0,0DB0,CC,CU,C}R,CCOL,0,0,0,0,0SCOLN2DBCL,CV,CCOL,0,0,0,CS,CC,CODBCR,CE,CCOL,0,0,0,0,0,0,0,0GOMSGDB0,0,0,0,0,CG,CA,CM,CE,0DB0,CO},CV,CE,CR,0,0,0,0,0;;LEVEL TABLES;TGTLODB64,16,224,40,248,212,16,4DB248,224,212,224,68,168,112,212TGTHIDB31,39,46},35,42,48,39,41,42DB46,48,46,47,47,48,48STARSPDB4,4,4,3,3,3,2,2,2,2,2,1,1DB1,1,1KILLFGDB0,0,1,0,1,1,0,1,1,1,1,0,0}DB1,1,1ZERO1DB0SCOREDB0,0,0,0,0,0SLLOCDB0CURLODB0CURHIDB0LEVELDB0PAUSEDB0HASDRNDB0LOWKDB0HIWK}DB0SCTALYDB0LIVESDB0;;STAR PLAYER-MISSILE IMAGES;STARB1DB$81,$40,$20,$10,$08,$04,$02STARB2DB$42,$43,$20,$10,}$08,$04,$C2STARB3DB$24,$24,$13,$10,$08,$C8,$24STARB4DB$18,$18,$1C,$1F,$F8,$38,$18STARB5DB$18,$18,$38,$F8,$1F,$1C,$18}STARB6DB$24,$24,$C8,$08,$10,$13,$24STARB7DB$42,$C2,$04,$08,$10,$20,$43STARB8DB$81,$02,$04,$08,$10,$20,$40STARCTDB}0STRPOSDB0STRHGTDB0STRHORDB0STRLXDB0STRLYDB0TMPDIRDB0STRDIRDB0STRDTXDB1,1,0,255,255,255,0,1STRDTYD}B0,1,1,0,1,255,255,255STRSPDDB4COLOR1DB$40,$10,$04,$01COLOR2DB$80,$20,$08,$02COLOR3DB$C0,$30,$0C,$03BITSONDB$}C0,$30,$0C,$03BITOFFDB$3F,$CF,$F3,$FCBXSTRTDB0,158,158,0BYSTRTDB0,0,84,84BXINCDB1,0,255,0BYINCDB0,1,0,255BORC}NTDB159,85,159,85BORNUMDB0BDINCXDB0BDINCYDB0BDCNTDB0PXWCDB0PYWCDB0SHOOFFDB0CKXDB0CKYDB0INIXDB}0INIYDB0MINXDB0MINYDB0MAXXDB0MAXYDB0REXDB0REYDB0XDB0YDB0SXDB0SYDB0TXDB0TYDB0FXDB0F}YDB0TDDB0DDB0BSCNTDB0FILFRQDB0TRIESDB0FILLONDB0C2TALYDB0NOCCHGDB0DEDBRTDB0STKHLDDB0RDRCOLDB}0REDIRDB0LGTHYDB0TIMESDB0CKVDB0CKVXDB0DRAWFGDB0MOVIXDB0XDDB0,0,0,0DB0,0,0,1DB0,0,0,255DB0,0},0,0YDDB0,0,0,0DB0,0,0,0DB0,0,0,0DB0,1,255,0SXDDB0,1,0,255SYDDB255,0,1,0DECIMALDB0,0,0,0,0ZERO2DB0HI}VALSDB0,0,0,3,39LOVALSDB1,10,100,232,16DIRDS256LGTHDS256.ENDDB255,0,1,0DECIMALDB0,0,0,0,0ZERO2DB0HIM]CCXYDISCHOL GRAPHICS 10 G!}TIA DEMO +@(""CHANGE DATA TO CHANGE COLORS2F-@")A%- F6,12,23,42,53,62!},73,84<#6-#0@F-@9P-@Z16-@9&6-@&16-P:!}M:$%$,,d..@%@$+'@&P:'@,,n ,x,@y&,A&,@y&A&!}  ROTATE COLOR REGISTERS6-F:A,6-AF:%@,%6-%@% A!}AA AD:GTIA10A,6-AF:%@,%6-%@% A 40hxCL GRAPHICS 11 GTIA DEMO +@(56-@6%}-50@@2-A<-@yF)6-%@"@)6-P%}Z ,d n06-%@"@$6-606-@x# 6-%"@#6-  A@%}D:GTIA11 n06-%@"@$6-606-@x# 6-%"@#6-  A@$  <TIMXY@@9@%@V !!GRAPHICS 9 GTIA DEMO (OVAL) +@ )}(#6-#0@2-@9<-@F76-@9&6-@&7P:M:$%$)},'@P,P ,Z,@y&d,A&n,@y&A&x  )6-%@!@)6)}-0@-@A  A@D:GTIA9 )6-%@!@)6(X0CHBASSEVALUBHAX@ ;+@%@;START OUT WITH A GRAPHICS STATEMENTT -}AF:A,&@TSET ASIDE 2 PAGES OF MEMORY FOR THE CHARACTER SETV6-F:A,$AVVTHIS IS WHERE THE-} CHARACTER SET WILL BE POKED INTO MEMORY(U6-F:A,UTHIS IS WHERE THE CHARACTERS WILL GO IN TERMS OF PAGES OF MEMORY-}2:""6@@:READ IN PART OF A CHARACTER<& %&PUT THE NUMBER IN MEMORYF6-%@ @PK-}DATA FOR SPACEP0,0,0,0,0,0,0,0UDATA FOR SMILEYZ&&60,126,219,255,189,195,126,60,-1_JAVJTELL THE -}COMPUTER WHERE THE NEW CHARACTER SET IS LOCATEDdB @,@@BPUTS SMILEY ON THE SCREEN AT 5,5n1 A-}1ENDLESS LOOP FOR DISPLAY PURPOSES D:LEPRDEMO,@@BPUTS SMILEY ON THE SCREEN AT 5,5n1 A,8**MMXYZZSECHATIMGRGRGRGRGGBAGDBAGGOLKEZRMRMSDSDOSSDSSCAANDGOLPGOLDDDD1}FFDRWAYWWWWW1W2W3W4LCOUNOMOMFRCCPITCDURATIO1} 1} !"#$%1}&'()*+,-./0123451}6789:;<=>?@ABCDE1}N6-@6-@*6-@66-@B6-@N6-@3+@%@$(@ 3(@1} Q#(@ THE HALLS OF THEB(@ LEPRECHAN KINGQ(@ .(@ created.(1}@ +(@ by+(@  Q#(@ 2(@ Q(@ 1}  %-@@ ! B% x AF:A,&@+@%@6-F:A,$AV1}6-F:A,AV-@% -@@c" %1} q)-@d@q%%AF) r)-@r@y%%AD) s)-@@%%A() 1}t'-@@"#%' #@* @##A@@#Ap6-%@16-1}@%"@)"@16-@ ""6@ A@ @5,/ A "1}"6@A A0, A@} @@5+,@@=,@@O,@1}@a,@@k@2},@@[6-6-'6-36-? @I1}@7[,@@" @#A U@#Ap-1@@9"@2C@7U,@1}@G6-@6-@"#")6-/6-;6-@G6-@" 6-6-1}AAQ@w"R:,"@" A6-R:,"@6-&@&1}"@6-%@0"@6-&@:"@6-%@D# 1"@56-#6-N"1}A0 A Sw"@86-%6-2-6@0@0Q2O:,@@U w21}X#"@ A# A%]"@76-@'6-@`D-@`@@6@`21}@@|2@@@6-&@ ^G%2G2@1}g@@2,l @6,n:*"*"*"@*T:,"4@2:,oS "1}*"6-%@9%,+6-16-76-=6-I6-S Ap*"@9APv6-$6@1}"@A1&@1&@1%@1%@*AP% "*1}!6-@%6-% "* 6-@%6-% "*!6-@%6-% "* 6-@1}%6- A  6-@ !6-@  6-@  !6-@1}A  /"@*@5%6-@/ AP*/"@*@5%6-@/ AP4/"@*1}@5%6-@/ AP>/"@*@5%6-@/ APH%%6-P:H:,$@,%@R!!"@1}*"@5A@\!!"@*"@5A@f!!"@*"@5A@p!!"@*"@5A@z 1} AP?6-%"@*@536-%@?6-@3"@*@5'6-%@36-@1}3"@*@5'6-%@36-@3"@*@5'6-%@36-@3"@*@51}'6-%@36-@3"@*@5'6-%@36-@3"@*@5'6-%@36-@1}3"@*@5'6-%@36-@"@A@"@6-@"@6-1}@"@6-@"@6-@ A@p AP A##170,84,124,170,146,21}54,40,108!!126,60,66,223,209,219,66,60!!170,85,170,85,170,85,170,85##60,126,219,255,189,195,126,60 0,0,7,2531},85,87,0,0 ""28,54,119,65,119,119,119,12724,24,126,126,24,24,24,24""31,35,69,249,137,138,140,248gg13,13,14,11}3,2,14,4,14,5,15,4,15,5,16,8,16,15,15,16,15,13,16,14,16,2,18,5,18,7,18,9,18,15,18,17,181,0,18,0dd2,19,3,19,7,19,9,11}9,11,19,13,19,5,20,7,20,16,20,18,20,2,21,3,21,5,21,7,21,9,21,14,21,2,22,3,22$ee1,1,1,5,18,1,18,7,9,1,9,4,16,6,16,8,18,12,11}8,16,16,14,16,17,16,20,16,22,13,10,13,11,13,17,13,18.gg9,9,9,10,8,13,8,14,3,16,3,17,0,0,0,23,0,23,19,23,19,23,19,0,3,1,9,11},11,1,16,1,11,2,16,2,11,4,16,48ee4,6,9,6,3,3,5,3,6,4,7,4,3,5,4,5,11,5,12,5,14,6,16,6,11,7,12,7,2,8,6,8,8,8,9,8,11,8,14,8,51},9,6,9Bnn11,9,13,9,16,9,17,9,1,10,3,10,6,10,7,10,15,10,17,10,6,11,7,11,9,11,11,11,2,12,3,12,17,12,18,12,5,13,6,13G&&10,1}13,16,17,11,13,11,17,-1,0,0,0Lhh4,2,5,5,13,7,4,9,8,9,12,10,18,11,15,12,3,13,9,13,5,14,13,14,12,15,4,16,15,17,6,18,4,21,12,1}22,15,20V2,6,-1,0`++17,2,15,22,16,22,18,22,9,12,17,22,-19~="@+,@=,1}>"6@@ ,,@>,>"6@@,,@>,1} AAv6-A,-@ 6@B2@d2@%+$@,@r6-&@1}v J%2G2@J$C6-&@56-%P:H:,$A,1}%@C6-&@b -@ 6@<2@ @@ b2;1}"6@)"6@%@7+,5@9;,$ L @8,L:LI=LI-1:IF LI=-3 THEN GOSUB 9150:GOSUB 6001}0:GOTO 2570 ' 1"@6!@2', 71%@"@6)@27,%@ 71&@1}"@6)@27,&@ 71&@"@6)@27,&@ 71%@"@6)1}@27,%@ <6-&@"6@( AP2 A`< A%p  @8, K6-@6-@1}!6-'6-36-@?6-@E6-K6- 6-@2 &"6@6-& A2 -A1} 9 E 6-6-!6-@-6-@96-@E6-@<  6-6-F 6-@2 A -2}@ 0@@ -@@P  0@@ -@@P 2}   0@@ $%%6-P:H:,$@,%@"@A"@6-@2}"@6-@"@6-@"@6-@ AP"@6-@2}"@6-@"@6-@"@6-@"AC"@6-2}&@""@6-&@,"@6-%@6"@6-%@;) 1)"@6)"@92}AAb@  ,B6-@2E+ 1"@6! A+ A%J @,O 6-6-To6-2}6-'6-36-?6-K6-W6-c6-o6-^c6-6-2}'6-36-?6-K6-W6-c6-h A%%6-P:H:,$@,%@2}!!"@*"@5AC!!"@*"@5AC!!"@*"@5AC!!"@*"@52 }AC AA 9 A0 A! A`/6-%@9 Ap< @26-%6-26@2 }< A`qY"6@ A`,AVA$>-@Y(@ Ž rH-@@2 }/(@ push trigger<"6@H6-s:0@@@:T:,"A`tW-@2 }@P 50@I-@@PM W A`u& #A@"6@&6-w& @2 2 }A`#AV&$z6-@##,//@3 6$XZZ0,0,19,0,19,0,19,23,19,23,0,23,0,23,0,0,3,3,2}5,3,5,2,5,2,9,1,11,1,14,3,16,3,14,2,14,2bgg9,4,11,6,9,6,11,4,16,5,14,5,14,6,14,6,9,10,11,10,11,10,11,12,11,12,9,12,9,12,9,2}10,3,5,5,5,5,6,5,6lYY3,9,3,10,5,9,5,10,14,9,14,10,16,9,16,10,3,12,3,13,5,12,5,13,14,12,14,13,16,12,16,13vRR10,15,10,17,2}9,16,11,16,3,17,5,17,14,17,16,17,3,19,5,19,14,19,16,19,8,20,9,20]]11,20,12,20,8,22,9,22,11,22,12,22,2,22,2,23,17,22,17,232},12,21,12,21,8,21,8,21,3,19,3,20[[3,16,3,17,16,16,16,17,16,19,16,20,2,10,3,10,6,10,5,10,2,12,3,12,6,12,5,12,13,10,14,102}//16,10,17,10,13,12,14,12,17,12,17,12,-1,-1__4,2,15,2,4,6,15,6,10,4,10,6,9,5,11,5,4,9,15,9,2,11,4,11,6,11,13,11,15,11,12}7,11,4,13,15,13CC9,15,11,15,9,17,11,17,4,16,15,16,4,20,15,20,9,21,11,21,4,2,-1--10,21,10,13,10,12,10,11,10,22,10,12,-2}28@33121,6,96,6,91,6,81,1,0,8,121,8,96,8,91,8,81,1J440,8,121,8,96,8,91,8,81,2,96,2,121,2,96,2,108,1T990,8,96,8,96,8,2}108,8,121,2,121,6,96,2,81,4,81,4,91,2^770,8,91,8,96,8,91,8,81,2,96,2,108,4,108,4,121,1,-1(# #A2#"<#"6@2}A0P#"6-P:@P',Z#2@@d#"An#''2@%@@@2}x#-@ #%%2#%%2@#-@@ 2}# A#$# #Ap#""6@$#6-P:$@,#""A#6-$@#22}@@#''2@%@@@$-@ $%%2$2}%%2@"$-@@ ,$ A`6$FF2,47,2,60,1,81,3,60,2,47,2,60,1,53,3,53,2,47,2}2,60,1,45,2,45,1,45@$WW1,47,1,47,1,53,1,53,3,60,1,0,1.5,47,.5,53,1,60,1,53,1,47,1,47,2,47,1,53,1,53,2,53J$ZZ1,47,1,40,2,42}0,1.5,47,.5,53,1,60,1,53,1,47,1,47,2,47,1,53,1,53,1,47,1,53,3,60,1,0,-1T$}-@@4-@ 6@P2}2@ @T v2z }$'-@@'6-F:A,$'mA2}F:A,-AF:A,BAF:A ,NA R f-@@j m$ D:LEPRECHNmA0s"#& 8 ELINECCONMNAMENOFLALL 6 } \G;A,;A,;@,;@,;@,;@,O6.,\6. DATA X +6!}((X(@ ENTER NUMBER OF ELEMENTS (LIMIT 9) OR PRESS 'P' TO PACK DATA\#@@K:0)@6"};@F>:,4PR6-@P\ @`(O B @@9A:>:,,!*A:>:,, @E6-A:>:,,O @`6#}2 @ <(#( PRESS 'K' TO USE KEYPADC@@K:P)@[@mAdAU6$}x>:,4K6-@Fa B @p((;( INPUT FIRST LINE NUMBER ?M6-&@a A@pPJ 6%} B @((F($ INPUT NAME OF FILE (8 LETTERS MAX.)JZ''B:, @)B:,!@@d$$7@<6&}@,4 @n'"67B:,%@,.'6-@x "D:L-@(}(D(%1E9 WRITES DATA 'END' EN6'}DS PROGRAML6. 66(INPUT ELEMENT NO.  LINE NO. %@@"@ A 46(}1E9 AP4ENDA86-%+B:,,%@.!A* @8 @ !AAP#!@6)}#67B:,%@,."@6.#!@#67B:,%@,. NA @(})6-%@6*};-@@C(N( CONT *-'AB@*&MAB@(}-A @6+}741E9C6-M A0+  6-@!6-@+ A " A0,^-@A7@6,}@K:D)@O@["AU^$6,>:,4U(4"67<,.4, A@,>:,4I(56-}"67<,.5, AJ,>:,4O(6"67<,.6, AT,>:,4J(1"67<,.1, A^,>:,4K6.}(2"67<,.2, Ah,>:,4L(3"67<,.3, Ar,>:,4M(0"67<,.0, A| (>:6/},67<,.>:,   $[A @(}--@@I-@A@M(Q [(CONT *-60}'AB@*&ZAB@(}--@@I-AA@M(Q Z(CONT61}*-'AB@*&ZAB@(}--@@I-AA@M(Q Z62}(CONT*-'AB@*&lAB@(}--@@I-AAp@M(63}Q ](LIST `(c(f(i(l(O(( POKE 842,12:POKE 709,10:GR.0:END:-LAB@O& D:MAGI64}CKEY](LIST `(c(f(i(l(O(( POKE 842,12:POKE 709,10:GR.0:END:-LAB@O& D:MAGI4QR OFTMPDISKIDFULNAMFNAMTYPRECDSKNAMDATESIBUFTMUPDATERFOUNSEBYT:6} :7} 26-BDD2@@K:' @'0@]];@,;@:8},;@ ,;@ ,;@,;@8,;A%,;@,( 6.D1:26-I:,&@P;,F8 +@:9}-@@8 @ Po-@@2 @D-@@W @V ::}628k-@Ao Z1 +@10@d(  $ Enter date as YYMMDD (xB::;},@A& } Main Menu#(&(  to read a new disk  to update this disk's T%%  :<}to write directory to disk.|!  )@! >:,%"@6-% A@"@A%:=}"@6-@% A@ AO / $Enter 5 letter code identifying typeK of files on this disk O:>}D? 6-B:, @.-%@@;67<,. ? W77Get disk id--------------------------------------X) A:?})67@,. DISKNAME.TXTlC@+@@8@C@7-B:,@6@:@}*7<,4>-'7 A  AD6-&@*-&@6@77<,4 :'D A   :A}A4 A6-%@&6.7<,* 4 A88No file DISKNAME.TXT------------------------------ &6-F::B}A,&ApA"*# A  DISK ID# 4R7 .Do you want to write DISKNAME.TXT on this disk;R:C}B:,"A>0YAHe Text to identify disk!=67@,. DISKNAME.TXTH@e@@:D}\) @< >)@x33Make sure that DISKID is exactly 6 charactersz? 6-B:, :E}@.-%@@;67<,. ? 99Read disk directory-------------------------------->67@,.*.*:F}!@>@@'@'B:, @A@ Don't catalog common namesaa7@:G}<@,4SYS)7@<@,4DISKNAME)7@<@ ,4MINIDOSA HH7@<@,4AUTORUN)7@:H}<@,4DISKNAMEA c(67B:,%@,.7@<@,>67B:,%@,..c67B:,%@,.7@<@:I},-67B:,%@,. -67B:,%@,.T67B:,%@,. >67B:,%@,.7@<@,T67B:,%@:J},. e(67B:,%@,.7@<@,>67B:,%@,.*[67B:,%@,.>:AU,e A "@:K}A$B:,!?$A8 ALI" }Load disk containing fileE MASTRDIR.DB; then press IV##:L}Update mode to mark deletions`O A@C@@ D:MASTRDIR.DBO6-t>@:M}@>7@<@#,0A@*67@7<@7,.D*6-%@)@ @) A:N}@x3 A")A AA 3 A"`5 +  old entries found for disk 5 A K $ Load d:O}isk containing fileG MASTRDIR.DB; then press KAppend new catalogG A`@C@@ :P} D:MASTRDIR.DBG d @@O@5@ D:MASTRDIR.DBZ@d A:Q}3 A")A AA3 A"`,# Unexpected EOF on update#@ MASTRDIR.DB written J88:R}What next? ---------------------------------------TF  write another copy.  end programF  read another disk:S}  )@ "@6. A@"@eA"@i A6-F:A,:T}"Ap6-@$k"Ag) Unlocking MASTRDIR.DB\@6@ D:MASTRDIR.DBh6:U}-@k$"A66-@$:: Error  at line F:A,%AV$F:A, D:MASTRDIR.DBh68wO a ABCDMXYLOOBBA(Bh@@@@ @>W} @ @1  LOAD*IT BY KARL STIEFVATERREVISED 10/24/85BY CLAYTON>X} WALNUMCOPYRIGHT (C) 1985(BY ANALOG COMPUTING2 Ap<&&;@ ,;@,;@@,FA +A>Y}R@A6-F:A`,%F:Aa,$AVPk0@70@Q0@@>Z}k0@ZG%@@d%@3%@@G%@&@Hd70@@>[}70@@@nh6-6-% Ap,(}V(% h-@>\}@x1@1@@D:*.*J@J7@<@,4 F)7@<@,4 F>]}A`&&7@<@,4SYSA06-%@( J@J7@<@,4 F)7@<>^}@,4 FA`&&7@<@,4SYSAE( A0J-@(>--@@!J(>_}USE