'AJAwSAVE"D:QDIRMAK.BAS" ;@,- +-(Quick Directory, by Mat*Rat""((c) 1989, Antic Publishing($($(Get disk in Drive 1 ready2$(and press RETURN !($(<#F; @1@@D:QDIR; @P8(Couldn't create D:QDIR.5(ERROR F:A,8Z? #1;"10 ";d77(@CLR:DIM A$(153):A$(1,100)=>:@4,n-@Ax"(@>:, %%(@>:@4,>:AU,? #1;"20 ";))(@ A$(101,153)=>:@4,-AAS"(@>:, TT(@>:@4,:? >:@4, Dir Spec >:@4,;:A=USR(ADR(A$))@((Done.""(Try E.>:@4,D:QDIR (to get a quick directory( listing now!(((E(B(E.>:@4,D:QDIR>:@(,>:@(,>:@(,E##104,240,6,170,104,104,202,208251,162,0,169,11,141,66,3"142,72,3,142,73,3,169,63,32,86,228,169,5,141,66,36169,4,141,69,3,142,68,3@169,40,141,72,3,32,86,228J162,80,169,12,157,66,3,32T86,228,169,3,157,66,3,169^4,157,69,3,169,0,157,68h3,169,6,157,74,3,169,128r157,75,3,32,86,228,48,55|162,80,169,0,157,68,3,15773,3,169,4,157,69,3,16940,157,72,3,169,5,157,663,32,86,228,48,25,162,0169,4,141,69,3,142,68,3169,40,141,72,3,169,9,14166,3,32,86,228,16,201,16280,169,12,157,66,3,76,86 228,-1 D:QDIRMAK.BAS