% X;SAVE#D:QDIR.M65 X;ASM,#-,#D:QDIR.OBJX;ASM,#-,#D:QDIR.COMX;( OBJECT2 COM<CODEOBJECTFX;PX; Set CODE equal to OBJECTZX; to create an object filedX; to be used from a BASICnX; USR routine.xX; Set CODE equal to COM toX; make a stand alone .COMX; file for use with SpartaX; or any other DOS.X;X; X; Quick Directory by Mat*RatX; Ratware Softworks X; (c) 1989, Antic PublishingX;X; A quick and dirty utilityX; for getting a complete X; directory listing while inX; Atari BASIC.#X; The BASIC program QDIRMAK.BASX; will create a the file:X; D1:QDIR."X;,X; From BASIC immediate mode6X; use the command:@X;JX; E."D:QDIRTX;^#X; The user will be prompted forh X; a directory specification,r"X; and a DIR will be displayed.|X; If it's a SpartaDOS disk,"X; the directory will be listedX; in LONG format.X; XCORDU YCORDT SAVMSCXSTRING;;String ptrFILEBUF;;Cas bufferCIOV;;CALL OS HEREICCOMB;;COMMAND TO CIOICBADRD;;BUFFER OR FNAMEICBLENH;;BUFFER LENGTHICAUX1J;;AUX BYTE #1ICAUX2K;;AUX BYTE #2X;COPN;;COMMAND OPEN&CCLOSE ;;COMMAND CLOSE0CGTXR;;GET TEXT REC:CPTXR ;;PUT TEXT RECDCGBINR;;GET BINARY RECNCPBINR ;;PUT BINARY RECXCDRAW;;COMMAND DRAWTObCFILL;;COMMAND FILLlX;vOPIN;;OPEN FOR INPUTOPOUT;;OPEN FOR OUTPUTOPDIR;;OPEN FOR DIRX;%X; A=USR(ADR(QDIR$),ADR("D1:*.*"))X;(X; QDIR$ holds the code that follows.!X; It pulls the address of the$X; directory specification string'X; off the stack. It allows the user$X; to enter a file specification,%X; such as D2:*.BAS, which is then#X; used for a directory listing.X;4 FCODEOBJECT  BEGIN*74 FGETDRV>X; Clean up unecessaryHX; parameters and continueR>\ CLEANf7p7z0 HCLEAN GETDRVX; Show only a question markX; as a prompt for file spec#X; No room for more in the code.$> Q>CPBINR PICCOM &ICBLEN&ICBLENQ> ? CIOX; Accept the user's fileX; specification. Q>CGTXR$ PICCOM.Q>5FILEBUF8PICBADRB &ICBADRLQ>(V PICBLEN` CIOjX; FILEBUF now containstX; the text file spec~X; to use as a templateX; for the directoryX; listing. GOTDRV$>P Q>CCLOSE PICCOM9 CIO Q>COPN PICCOM9Q>5FILEBUFPICBADR9Q> PICBADR9  Q>OPDIR PICAUX19Q>( PICAUX292 CIO< GCLOSEDRVF GETFILP$>PZQ>d PICBADR9nPICBLEN9xQ>5FILEBUFPICBADR9Q>( PICBLEN9 Q>CGTXR PICCOM9 CIO GCLOSEDRV$>Q>5FILEBUFPICBADR &ICBADRQ>( PICBLEN Q>CPTXR PICCOM CIO" IGETFIL, CLOSEDRV6$>P@ Q>CCLOSEJ PICCOM9T!CIO^CODECOMhr GETDRV|