��% X;SAVE#D:QDIR.M65
X;ASM,#-,#D:QDIR.OBJ X;ASM,#-,#D:QDIR.COM X;(
�OBJECT 2
�COM < �CODE �OBJECTF X;P X; Set CODE equal to OBJECTZ X; to create an object filed X; to be used from a BASICn X; USR routine.x X; Set CODE equal to COM to� X; make a stand alone .COM� X; file for use with Sparta� X; or any other DOS.� X;� X;� X; Quick Directory by Mat*Rat� X; Ratware Softworks� X; (c) 1989, Antic Publishing� X;� X; A quick and dirty utility� X; for getting a complete� X; directory listing while in� X; Atari BASIC.#X; The BASIC program QDIRMAK.BAS X; 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 listed�X; in LONG format.�X;� �XCORD U� �YCORD T�
�SAVMSC X��STRING �;;String ptr��FILEBUF ;;Cas buffer��CIO V�;;CALL OS HERE� �ICCOM B;;COMMAND TO CIO� �ICBADR D;;BUFFER OR FNAME� �ICBLEN H;;BUFFER LENGTH��ICAUX1 J;;AUX BYTE #1�ICAUX2 K;;AUX BYTE #2X; �COPN ;;COMMAND OPEN& �CCLOSE ;;COMMAND CLOSE0�CGTXR ;;GET TEXT REC:�CPTXR ;;PUT TEXT RECD �CGBINR ;;GET BINARY RECN �CPBINR ;;PUT BINARY RECX �CDRAW ;;COMMAND DRAWTOb�CFILL ;;COMMAND FILLlX;v�OPIN ;;OPEN FOR INPUT� �OPOUT ;;OPEN FOR OUTPUT��OPDIR ;;OPEN FOR DIR�X;�%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 F�CODE�OBJECT �BEGIN*74 F�GETDRV>X; Clean up unecessaryH X; parameters and continueR>\ �CLEANf7p7z0�
H�CLEAN��
�GETDRV� X; Show only a question mark� X; as a prompt for file spec�#X; No room for more in the code.�$> � Q>�CPBINR�
P�ICCOM� &�ICBLEN�&�ICBLEN�Q>
?� �CIO X; Accept the user's fileX; specification. Q>�CGTXR$
P�ICCOM.Q>5�FILEBUF8P�ICBADRB &�ICBADRLQ>(V P�ICBLEN` �CIOjX; FILEBUF now containstX; the text file spec~X; to use as a template�X; for the directory�X; listing.�
�GOTDRV�$>P� Q>�CCLOSE� P�ICCOM9� �CIO�
Q>�COPN� P�ICCOM9�Q>5�FILEBUF�P�ICBADR9�Q> P�ICBADR9
Q>�OPDIR P�ICAUX19 Q>�( P�ICAUX292 �CIO<
G�CLOSEDRVF
�GETFILP$>PZQ> d P�ICBADR9nP�ICBLEN9xQ>5�FILEBUF�P�ICBADR9�Q>(� P�ICBLEN9� Q>�CGTXR� P�ICCOM9� �CIO�
G�CLOSEDRV�$> �Q>5�FILEBUF�P�ICBADR� &�ICBADR�Q>(� P�ICBLEN Q>�CPTXR
P�ICCOM �CIO" I�GETFIL, �CLOSEDRV6$>P@ Q>�CCLOSEJ P�ICCOM9T!�CIO^�CODE�COMh �r �GETDRV|Back to previous page