þþC>d$X; BY WALT LORD (C)nX;x'X;--- OPERATING SYSTEM CONSTANTS ---‚'X;--- AND ADDRESSES ---ŒX;–…ICCOMB;;I/O COMMAND †ICBADRD;;BUFFER ADDRª†ICBLENH;;BUFFER LENGTH´†ICAUX1J;;AUX 1¾X;ÈX;VECTOR TABLEÒX;Ü†DSKINVSä;;DISK HANDLERæ„CIOVVä;;CIO HANDLERð„SIOVYä;;SIO HANDLERú†SETVBV\ä;;SET VBI ADDRESS†XITVBVbä;;EXIT VBI†WARMSVtä;;WARM START†COLDSVwä;;COLD START"†DOSVEC ;;RUN DOS,‡INITADRâ;;DOS LOAD/INIT6…GOADRà;;DOS LOAD/GO@ †VDSLST;;DISPLAY LIST NMIJX;TX;SIO COMMAND BLOCK (DCB)^X;h†DDEVICr …DUNIT|†DCOMND††DSTATS†DBUFLOš†DBUFHI¤†DTIMLO®†DBYTLO¸†DBYTHI Â …DAUX1 Ì …DAUX2ÖX;à"†RTCLKL;;LOWER BYTE OF CLOCKê†SOUNDRA;;QUIET I/O FLAGô*†SDMCTL/;;SHADOW SCREEN CONTROL REG.þ+†SDLSTL0;;CONTAINS DISPLAY LIST ADDR.†STICK0x;;STICK 0 SHADOW†STRIG0„;;TRIG 0 SHADOW†COLORSÄ;;COLOR 0 SHADOW&$…CHBASô;;CHAR SET ADDR HI BYTE0 †CHRORGà;;OS CHAR SET ADDR:"†CONSOLÐ;;CONSOLE BUTTON REGD†HSCROLÔ;;HORZ SCROLL REGN†VSCROLÔ;;VERT SCROLL REGX(…WSYNC Ô;;CAUSES WAIT FOR VERT SYNCb!†VCOUNTÔ;;VERT LINE COUNTERl…NMIENÔ;;NMI ENABLE REGvX;€X;FLOATING POINT LOCATIONSŠX;”„FASCæØ;;FLOAT->ASCIIžƒIFPªÙ;;INT->FLOAT¨ƒFR0Ô;;FLOAT VARIBLE²!†INBUFFó;;OUTPUT BUFFER PNTR¼X;Æ)X;--- PROGRAM VARIBLES, CONSTANTS, ---Ð)X;--- AND ADDRESSES ---ÚX;ä%X;"BASE" IS THE DIFFERENCE BETWEENî&X;THE ASSEMBLED ADDRESS AND THE RUNø&X;ADDRESS. USED BECAUSE MICRODOS XL$X;WILL OCCUPY THE LOCATION OF DOSX;DURING OPERATION.X; „BASEP*X;4‡LOADADR;;LOAD ADDR>†DIRTAB ;;DIRECTORY TBLH†DSPDATp;;DISPLAY DATAR*…MAGLN†DSPDATJ;;MAGNIFIED LINE ADDR\0†STRTLN…MAGLN;;START OF DIPLAY FILE NAMESf!†BUFFER;;INPUT BUFFER ADDRp …CHSET1;;CHARSET LOAD ADDRz%‡TOPDOS2@;;LOMEM OF ATARI DOS 2„ †TOPOSS ;;LOMEM OF OSS DOSŽ$‡CHSTADR0;;ADDR OF NEW CHARSET˜"†SECBUFc;;TEMP SECTOR BUFFER¢!†DNSYFLc;;DISK DENSITY FLAG¬!†DOSLNKc;;LINKS TO DOS FILE¶X;À'X;ZERO PAGE VARIBLES USED BY CREATORÊX;ÔCÞ"†FILNUM ;;# FILES DISPLAYEDè…MOVFL ;;SCROLLING FLAGò†MOVCNT ;;DATA ADDR INCü#…INPFL ;;INPUT ACCEPTED FLAG'†PROPTR ;;PROGRAM SELECTION PNTR…VSCRL ;;VSCROL PNTRX;$+X;ZERO PAGE VARIBLES USED BY MICRODOS XL.X;8CB#†ENDBUF ;;END OF BUFFER PNTRL!†BFPNTR ;;POINTS TO BUFFERV%†MOVLOC ;;TEMP START MOVE ADDR`#†ENDPTR ;;TEMP END MOVE ADDRjX;tX;*** PROGRAM START ***~X;ˆX;TURN OFF SCREEN’X;œ†SDMCTL¦°X;ºÀ?ÄX;ÎX;CLEAR MEMORYØX;â†CLRMEM%>@ì„CLR1Q>ö>„CLR2P‡TOPDOS29 2 H„CLR2#„CLR2(12 H„CLR1<:FX;P‡INITADRZ †CLRMEMdX;n"X;SECTORS #1-3 (BOOT) AND #$2D0xX;‚‡LOADADR„BASEŒ!…SECLG „BASE;;# BYTES/SECTOR–€ ;;LOAD 3 SECTORSª ‡LOADADR;;LOAD ADDR´ †SETVEC;;INIT ADDR¾†SETVEC „BASEÈQ>4‡GETFILE;;SET DOSVECÒP†DOSVEC;;TO GETFILEÜQ>5‡GETFILEæP†DOSVECðQ†RSTFLG;;DOS RUNNING?úF…RESET;;YES, BRANCH,:X;")…RESET!†COLDSV;;RESET PRESSED, RE-BOOT,X;6†RSTFLG „BASE@;;DOS RUN FLAGJ†SECLNK „BASET ;;SECTOR LINK TO FILE^X;hX;*** GET FILE ROUTINE ***rX;|‡GETFILE „BASE†Q…SECLG;;SET TO CORRECTP†DBYTLO;;DENSITY FOR READš H…CONT0¤#†DBYTHI® …CONT0Q>¸P†RSTFLG;;SET TO DOS RUNNINGÂP†SOUNDR;;QUIET LOADÌX;ÖX;SETUP DCBàX;êP†DBUFLOôP†BFPNTRþ Q>5†BUFFERP†DBUFHIP†BFPNTRQ†SECLNK& P…DAUX10Q†SECLNK: P…DAUX2DQ>1NP†DDEVICXQ>b P…DUNITlQ> RvP†DCOMND€ ‡PREFILL;;PRE-FILL BUFFERŠQ†BUFFER;;STORE LOAD ADDR”P…GOADR;;FOR GO ADDRžQ†BUFFER¨ P…GOADR²! †RTRNST;;SET INITADR TO "RTS"¼X;ÆX;GET LOAD ADDRESS ROUTINEÐX;Ú†GETADR „BASEä$>î Q@†BFPNTR7øR>ÿH†MOVADR †INCPTR Q@†BFPNTR7 R>ÿ* H…CONT14 †INCPTR>!†MOVADR„BASEHX;R …CONT1Q>ÿ\P†MOVLOCf2pX;z#X;MOVE LOAD ADDRESS INTO PROGRAM„X;Ž†MOVADRQ@†BFPNTR7˜P†MOVLOC9¢ †INCPTR¬2¶(>ÀH†MOVADRÊQ†MOVLOCÔP†MOVPTRÞQ†MOVLOCèP†MOVPTRòX;üX;MOVE DATA X; …MOVERQ†BUFFER8 †MOVPTR „BASE$ Pÿÿ. †INCPTR8 Q†MOVPTRB R†ENDPTRL E†TSTADRV …CONT4#†MOVPTR` H…MOVERj #†MOVPTRt H…MOVER~ †TSTADRQ†MOVPTRˆ R†ENDPTR’ D…CONT4œ ' †JPINIT;;END OF SUBFILE, INITIALIZE¦ !†GETADR;;GET NEXT SUBFILE° X;º $X;ROUTINE TO INCREMENT THE Y REG.Ä "X;IF END OF BUFFER, FILL BUFFERÎ X;Ø †INCPTR „BASEâ 3ì )†ENDBUFö E†FLLBUF : X; #‡BUFFLEN ;;#BYTES/SECTOR - 3 †FLLBUF%>};;GET SECTOR LINKS( Q@†BFPNTR72 M>< P…DAUX2F 3P Q@†BFPNTR7Z P…DAUX1d L…DAUX2n F…RUNIT;;EOF? JUMP THRU GOADRx ‡PREFILL „BASE‚ AŒ 5– …CONT5 †GETSEC;;GET SECTOR G…CONT5;;ERROR, TRY AGAINª !%…SECLG;;GET # BYTES IN SECTOR´ 1¾ Q@†BFPNTR7È (P†ENDBUF;;STORE IN END OF BUFFER PNTRÒ 7Ü >æ %>ð :ú X;X;GET SECTOR ROUTINEX;†GETSEC „BASE"Q>@,P†DSTATS6Q>@P†DTIMLOJ !„SIOVTX;^X;JUMP THRU INIT ADDRESShX;r†JPINIT „BASE|C†5 „JINIš7¤?®X;¸ X;RESET INIT ADDRESS TO "RTS"ÂX;Ì†RTRNST „BASEÖQ>4„RTRNàP‡INITADRêQ>5„RTRN„BASE ôP‡INITADRþ „RTRN:X;„JINI „BASE!@‡INITADR:&X;0X;INITIALIZE THEN RUN:X;D…RUNIT „JININ!@…GOADR:XX;bX;*** MAINLINE ***lX;v†MAINLN „BASE€Q>ÿ;;INIT # OF FILESŠP†FILNUM”Q>i;;SET UP DCBž P…DAUX1¨Q>² P…DAUX2¼ Q>5†BUFFERÆP†DBUFHIÐQ>ÚP†DBUFLOäP†ENDPTR;;SET DIRECTORYîQ>5†DIRTAB;;TABLE PNTRøP†ENDPTR Q>4†STRTLN;;SET SCREEN PNTR P†MOVLOC Q>5†STRTLN P†MOVLOC* †CONT10 †GETSEC;;GET SECTOR4 G†ENDDIR;;ERROR, GOTO END> #…DAUX1;;INCREMENT SECTOR #H $>;;RESET BUFFER PNTRR &†BFPNTR\ †CONT11%>f Q@†BFPNTR7p F†ENDDIR;;ZERO? END.z G†NEXDIR;;IF - THEN LOCKED„ M> ;;IF NOT LOCKED NEXTŽ F†NEXDIR;;DIRECTORY˜ #†FILNUM;;FOUND, INC COUNT¢ %>¬ )‡CONT101Q@†BFPNTR7;;STORE SECTOR PNTRS¶ P@†ENDPTR6À #†ENDPTRÊ 3Ô )>Þ H‡CONT101è "†CONT12Q@†BFPNTR7;;DISPLAY NAMEò ;ü S> ;;CONVERT TO SCREEN DATA P@†MOVLOC6#†MOVLOCH†CONT13$#†MOVLOC.†CONT1338)>BH†CONT12LQ†MOVLOC;;INC TO NEXT LINEV,`O>jP†MOVLOCtD†NEXDIR~#†MOVLOCˆ-†NEXDIRQ†BFPNTR;;SET UP FOR NEXT DIRECTORY’,œO>¦P†BFPNTR° R…SECLGºF†CONT10;;END OF SECTORÄH†CONT11;;NOT END, CONTINUEÎX;Ø%†ENDDIRQ†NEWCOL8;;STORE NEW COLORSâP†COLORS8ì1öH†ENDDIRQ>4†DSPLST;;STORE NEW DL P†SDLSTL Q>5†DSPLSTP†SDLSTL(Q>4…DSPLI;;POINT TO DLI2P†VDSLST<Q>5…DSPLIFP†VDSLSTPQ>0;;SET TO NEWZP…CHBAS;;CHARACTER SETdQ>ð;;TURN ON DLIn P…NMIENxQ>;;CLEAR FLAGS‚ P…MOVFLŒ P…INPFL–P†PROPTR Q> ;;SET VSCROLªP†VSCROL´Q†FILNUM;;ANY LOCKED FILES?¾F†CONT14;;NO, BRANCHÈ %>4ƒVBI;;INSTALL DEFERRED VBIÒ $>5ƒVBIÜQ>æ †SETVBVð$†CONT14Q>!;;SET SCREEN TO NARROWúP†SDMCTL"‡GETINPTQ…INPFL;;WAIT FOR INPUTF‡GETINPT;;THRU DEF. VBIQ†PROPTR;;GET FILE PNTR"T?;;MULTIPLY * 2,>6"Q†DIRTAB9;;POINT INTO DIRECTORY@P†SECLNK;;TABLE AND STOREJQ†DIRTAB9;;SECTOR LINKSTP†SECLNK^Q>h>r%> |…LOOP5P†TOPOSS9†2 H…LOOP5š #…LOOP5¤1® H…LOOP5¸#†RSTFLG;;SET TO DOS DONEÂ!†WARMSV;;WARM STARTÌX;ÖX;"DOS.SYS" FILEàX;ê`ôÿ=ÿ;;BINARY LOAD HEADERþ †SDMCTL=†SDMCTL;;TURN OFF SCREEN †MOVCHS=†ENDDOSX;&$X;*** MOVE O.S. CHARACTER SET ***0X;:†MOVCHS$>DƒMV0Q†CHRORG9N P‡CHSTADR9X2bHƒMV0l#ƒMV0v#ƒMV0€QƒMV0ŠR>â;;TOP OF UPPER CASE?”HƒMV0;;NO, CONTINUEž:;;RETURN¨X;²X;*** DEFERED VBI ***¼X;ÆƒVBIQ…MOVFL;;SCROLLING?ÐH†CONTMV;;YES, CONTINUEÚQ†CONSOL;;READ CONSOLäW?îW?øD„DOWN;;SELECT PRESSED?W?D‚UP;;OPTION PRESSEDQ†STICK0;;READ STICK0 W?*D‚UP;;UP?4W?>D„DOWN;;DOWN?H%†STRIG0;;STICK TRIGGERRF…FOUND;;PRESSED?\Q†CONSOL;;START PRESSED?fW?pE„EXIT;;NOTHING EXITzX;„X;SELECTION IS MADEŽX;˜…FOUND#…INPFL;;SET FLAG¢H„EXIT;;EXIT¬X;¶X;SCROLL UPÀX;Ê ‚UPQ†PROPTR;;END OF PROGRAMS?ÔR†FILNUMÞ E„EXITè#†PROPTR;;NO, INC POINTERò$>(;;INC DSPDAT BY 40ü%>C;;SCROLL UP VALUESF†SETMOVX;$X;SCROLL DOWN.X;8!„DOWNQ†PROPTR;;TOP OF PROGRAMSBF„EXIT;;YES, EXITL"†PROPTR;;DEC POINTERV$>(;;INC DSPDAT BY -40`%>ÿjQ> ;;SCROLL DOWN VALUEStX;~X;STORE VALUES START SCROLLˆX;’†SETMOVP…VSCRLœ&†MOVCNT¦'†MOVCNT°Q>;;CLICK SPEAKERºP†CONSOLÄ#…MOVFL;;SET MOVE FLAGÎ"†CONTMV$…VSCRL;;GET NEXT VSCROLØQ†SCRVAL9;;VALUEâG†INCDSP;;NEG? INC DSPDATì%…STORE#…VSCRL;;POINT TO NEXT VALUEöP†VSCROL;;STORE INTO VSCROLR> ;;EQUALS 9? D„EXIT;;NO, EXITQ>;;SET DONE SCROLL P…MOVFL(X;2#X;ROTATE COLOR AND EXIT DEF. VBI<X;F„EXITQ†RTCLKLPM>Z H„GONEdQ†COLORSn,xO>‚L>ŒP†COLORS–„GONE!†XITVBV X;ª$X;INCREMENT DISPLAY DATA POINTERS´X;¾%†INCDSPM>;;MASK OFF VSCROL VALUEÈ5;;STORE ITÒQ†DSPTR1;;TOP OF WINDOW PNTRÜ,æO†MOVCNTðP†DSPTR1úQ†DSPTR1O†MOVCNTP†DSPTR1 Q†DSPTR2;;MAGNIFIED LINE PNTR",,O†MOVCNT6P†DSPTR2@Q†DSPTR2JO†MOVCNTTP†DSPTR2^&Q†DSPTR3;;BELOW MAGNIFIED LINE PNTRh,rO†MOVCNT|P†DSPTR3†Q†DSPTR3O†MOVCNTšP†DSPTR3¤7;;RESTORE VSCROL VALUE®!…STORE;;GO STORE IT¸X;ÂX;VSCROL VALUE TABLEÌX;Ö(†SCRVALð========= à!=========ùêX;ôX;*** DISPLAY LIST ***þX;†DSPLSTp=p=p=G †HEADLN P=s&†DSPTR1 †DSPDAT03=3=3=3=3=3=’: =ÖD†DSPTR2 …MAGLNNsX†DSPTR3 †DSPDAT@b3=3=3=3=3=3=l p=Fv †FOOTLN€AŠ †DSPLST”X;žX;HEADING LINE¨X;²†HEADLNA‚ A¼€=AˆmicrodosAÆ A‚ AÐ €=A‚xlAÚX;äX;FOOTER LINEîX;ø†FOOTLNA‚ A €=A‚upAA A€=A„downA A A*€=A„fireA4 A‚ A>X;HX;DISPLAY LIST INTERRUPTRX;\ …DSPLI5fQ†VCOUNTpR>@;;VCOUNT>=64z E‚D1;;YES.„Q>;;SET HSCROL TO 4ŽH‚D2˜X;¢"‚D1Q†NEWCOL;;STORE FOOTER COLOR¬PÐ;;IN REGISTER¶Q>;;SET HSCROL TO 2À‚D2P…WSYNC;;- WSYNC -ÊP†HSCROLÔ7Þ9èX;òX;NEW COLORSüX;†NEWCOLh= =…=( †ENDDOS€X;$ ‡INITADR=‡INITADR. †MOVCHS8X;BX;LX;CUSTOM CHARACTER SETVX;` …CHSET=…CHSETÎjX;t"†CHRSET?=3=3==s=s=s=~~=f=f==g=g==ˆ=g=g=`=c=c==’~=f=f=w=w=w==œ=`=`==p=p==¦=`=`==p=p=p=°=c=`=o=g=g==ºs=s=s==s=s=s=Ä=======Î=====n=~==fØf=l==g=g=g=â0=0=0=p=p=p=~=ìg===w=g=g=g=ög=w==o=g=g=g==c=c=g=g=g== =c=c==p=p=p==c=c=g=g=g==~=f=f==w=w=w=(=`===s=s==2========g<g=g=g=g=g==Fg=g=g=g=o=>==Pg=g=g=o===g=Zs=s=s=>=g=g=g=dg=g=g=====n=f=l==7=g=xX;‚ ªp=»pŒA’(C) WALT LORD 1984A–X; "X;LOAD SIO DCB FOR SECTOR #$2D0ªX;´ †DBUFLO=†DBUFHI¾ €È …DAUX1=…DAUX2Ò ÐÜX;æ ‡INITADR=‡INITADRð †GETSECúX; …GOADR=…GOADR †MAINLNX;"†DOSLEN `,X;6 X;CREATOR PROGRAM THAT WRITES@X;MICRODOS XL ONTO A DISKJX;Td^†CREATE%>h"ƒCR0Q†NEWCOL8;;STORE NEW COLORSrP†COLORS8|1†HƒCR0Q>4‡MNUDSPL;;STORE NEW DLšP†SDLSTL¤Q>5‡MNUDSPL®P†SDLSTL¸%>Â„CR05$>Ì!ƒCR1Q†CHRORG9;;MOVE OS CHARSETÖ P‡TOPDOS29à2êHƒCR1ô#ƒCR1þ#ƒCR11 H„CR05$>Ð&!ƒCR2Q†CHRSET9;;MOVE CHARSET0PA9:0DHƒCR2NQ>@;;SET TO NEW CHARSETX P…CHBASbQ>!;;NARROW SCREENlP†SDMCTLv†CRLOOPQ†CONSOL;;GET CONSOL€W?;;START PRESSED?ŠD…WRITE;;YES,WRITE LOADER”W?;;SELECT PRESSED?žE†CRLOOP¨"Q‡SYSNAME;;GET CURRENT DISK#² R> 4;;#=4?¼H„CR42;;NO, SKIPÆQ> 1;;RESET TO 1Ð H„CR43ÚX;ä„CR42,;;INCREMENT #îO>ø%„CR43P‡SYSNAME;;# IN REQ. NAMESP‡TMPNAMEP†RENAMEM>;;MAKE SCREEN BYTE L>€;;INVERSE VIDEO*P†DRVMSG;;DISPLAY IT4 Q>;;WAIT FOR BUTTON RELEASE>P†RTCLKLHQ>2R„CR45R†RTCLKL\ H„CR45fF†CRLOOPpX;z…WRITE$>;;CLEAR ERRMSG„Q>ŽƒCR5P…ERRLN9˜0¢HƒCR5¬ ‡WRITLDR¶!†CRLOOPÀX;ÊX;WRITE LOADER ON DISKÔX;Þ"‡WRITLDR$>0;;SET TO CHANNEL #3è%>4‡SYSNAME;;POINT TOòQ>5‡SYSNAME;;"D:D*.SYS"ü ‡STORADR;;STORE POINTERQ>$;;LOAD UNLOCK COMMAND †EXCCIO;;EXECUTE CIO COMMANDQ>!;;LOAD DELETE COMMAND$ †EXCCIO;;EXECUTE CIO COMMAND.%>4‡TMPNAME;;POINT TO8Q>5‡TMPNAME;;"D:TEMP.TMP"B ‡STORADR;;STORE PNTRSLQ>;;LOAD OPEN COMMANDV%>;;SET TO OUTPUT` †EXCCIO;;EXECUTE COMMANDj G†ERRJMP;;BRANCH IF CIO ERRORtQ>;;SET BUFFER ADDR~P†ICBADR9ˆQ>`’P†ICBADR9œQ>4†DOSLEN;;BUFFER LENGTH¦P†ICBLEN9° Q>5†DOSLENºP†ICBLEN9ÄQ>;;LOAD PUT CHAR COMMANDÎ †EXCCIO;;EXECUTE COMMANDØ G†ERRJMP;;BRANCH IF CIO ERRORâQ>;;LOAD CLOSE COMMANDì †EXCCIO;;EXECUTE COMMANDö G†ERRJMP;;BRANCH IF CIO ERROR%>4†RENAME;;POINT TO #Q>5†RENAME;;"D:TEMP.TMP,DOS.SYS" ‡STORADR;;STORE PNTRSQ> ;;LOAD RENAME COMMAND( †EXCCIO;;EXECUTE COMMAND2I‡GOODCIO;;BRANCH IF CIO OK<)†ERRJMP!†ERRPRS;;JUMP TO ERROR ROUTINEFX;P ‡GOODCIOQ>;;READ 1ST SECTORZ P…DAUX1dQ>n P…DAUX2xP†DBUFLO‚ Q>5†SECBUFŒP†DBUFHI–Q> R P†DCOMNDª †DSKINV´I‚C0¾!†ERRPRSÈX;Ò ‚C0Q†DOSLNK;;DOS SECTOR LINKSÜP†SECLNK„BASEæQ†DOSLNKðP†SECLNK„BASEúQ†DNSYFL;;GET DENSITY FLAGR>;;DOUBLE DENSITY?F‡DBLDENS;;YES, BRANCH$>""ƒCR4Q†SNGMSG9;;SET "SINGLE" MSG, P‡DENSMSG960@IƒCR4JQ>€;;SET SINGLE VALUEST$>}^H†STRDNShX;r!‡DBLDENS$>;;SET "DOUBLE" MSG|ƒCR3Q†DBLMSG9† P‡DENSMSG90šIƒCR3¤Q>;;SET DOUBLE VALUES®$>ý¸,†STRDNSP…SECLG„BASE;;STORE SECTOR LENGTHÂ!&‡BUFFLEN;;BYTES/SECTOR OFFSETÌQ> W;;WRITE 1ST SECTORÖP†DCOMNDàQ>WêP†DBUFHIô…WRSEC †DSKINVþG†ERRPRS #Q†DBUFLO;;ADVANCE TO NEXT SECTOR , O>€& P†DBUFLO0 D…INSCT: #†DBUFHID …INSCT#…DAUX1N Q…DAUX1X R>b H…WRSECl Q>Ð;;WRITE SECTOR $2D0v P…DAUX1€ Q>Š P…DAUX2” $Q…SECLG„BASE;;IN DESIRED DENSITYž P†DBYTLO¨ H‚C1² #†DBYTHI¼ ‚C1Q>€Æ P†DSTATSÐ Q>Ú P†DTIMLOä „SIOVî G†ERRPRSø $>!#ƒC05Q‡DONEMSG9;;PRINT "- DONE -"!P†ERRMSG9!0 !IƒC05*!:4!X;>!X;PROCESS ERROR ROUTINEH!X;R!†ERRPRSC;;STORE ERROR NUMBER\!5f!Q>;;LOAD CLOSE COMMANDp!$>0;;SET TO CHANNEL #3z! †EXCCIO;;EXECUTE COMMAND„!7;;RESTORE ERROR NUMBERŽ!PƒFR0;;PROCESS ERROR˜!Q>¢!PƒFR0¬! ƒIFP;;CONVERT TO¶! „FASC;;FLOAT.PNT->ASCIIÀ!%>ÿÊ!ƒC153Ô!Q@†INBUFF7;;CONVERT ASCIIÞ!;;;TO SCREEN VALUESè!S> ò!P†ERRNUM8ü! Q@†INBUFF7"IƒC15"M>";$"S> ."P†ERRNUM88"$>B" ‚C2Q†ERRLTR9;;PRINT "ERROR -"L"P†ERRMSG9V"0`"I‚C2j":t"X;~"!†EXCCIOP…ICCOM9;;STORE COMMANDˆ"C’"P†ICAUX19;;STORE AUX BYTEœ" „CIOV;;DO CIO¦":°"X;º"&‡STORADRP†ICBADR9;;STORE ADDRESSÄ"CÎ"P†ICBADR9Ø":â"ì"X;ö"X;FILE NAMES#X; #‡SYSNAMEA‰D1:D*.SYSA=›#‡TMPNAMEA‹D1:TEMP.TMPA=›#$†RENAMEA“D1:TEMP.TMP,DOS.SYSA=›(#X;2#X;MENU DISPLAY LIST<#X;F#‡MNUDSPLp=p=p=FP# †ANLHDGZ# P=Gd# †MCRHDGn# P=Gx# …CRTLN‚# P=BŒ# †DSPDAT–#'=========== # p=Fª# …ERRLN´#A¾# ‡MNUDSPLÈ#X;Ò#X;HEADING LINESÜ#X;æ#†ANLHDGA… Að#€=A†ANALOGAú# Aƒ A$†MCRHDGA‚ A$€=AˆmicrodosA$ A‚ A"$ €=A‚xlA,$…CRTLNA„ A6$€=A‡creatorA@$A… AJ$X;T$X;DISPLAY DATA^$X;h$†DSPDATr$€=A INSERT FA|$€=A‘ORMATTED A†$€=A DISK A$€=AINTO Aš$€=A’ DRIVE #A¤$†DRVMSG€=A1 A®$X;¸$ ,Â$€=Aˆ SELECT AÌ$X;Ö$ 1à$A–TO CHANGE DISK DRIVE #Aê$X;ô$ 1þ$€=A‡ START A%X;% 0% A™TO WRITE LOADER ONTO DISKA&%X;0% $:%€=A‰ AD%‡DENSMSG€=A‡SINGLE AN%€=ADENSITY AX%X;b%…ERRLN l%†ERRMSG v%†ERRNUM €%X;Š% X;MESSAGES”%X;ž%†SNGMSG€=A†SINGLEA¨%†DBLMSG€=A†DOUBLEA²%†ERRLTR€=A‡error -A¼%‡DONEMSG€=A-AÆ%A AÐ%€=A„doneAÚ%A Aä%€=A-Aî%X;ø% …GOADR& †CREATE&