home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU4.DMS / in.adf / RatMail / Includes / DIR.Fun < prev    next >
Unknown  |  1993-10-07  |  548 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: '; Function to return current directory listing' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 46 75 6e 63 74 69 | 6f 6e 20 74 6f 20 72 65 |; Functi|on to re|
|00000010| 74 75 72 6e 20 63 75 72 | 72 65 6e 74 20 64 69 72 |turn cur|rent dir|
|00000020| 65 63 74 6f 72 79 20 6c | 69 73 74 69 6e 67 00 3b |ectory l|isting.;|
|00000030| 00 3b 20 46 69 6c 6c 73 | 20 75 70 20 64 69 72 24 |.; Fills| up dir$|
|00000040| 28 20 29 20 77 69 74 68 | 20 66 69 6c 65 6e 61 6d |( ) with| filenam|
|00000050| 65 73 00 3b 20 61 6e 64 | 20 20 20 20 20 20 20 64 |es.; and|       d|
|00000060| 69 72 28 20 29 20 77 69 | 74 68 20 66 69 6c 65 20 |ir( ) wi|th file |
|00000070| 6c 65 6e 67 74 68 73 00 | 3b 20 72 65 73 75 6c 74 |lengths.|; result|
|00000080| 3d 30 20 69 66 20 65 72 | 72 20 65 6c 73 65 20 2d |=0 if er|r else -|
|00000090| 31 00 00 3b 44 69 6d 20 | 64 69 72 24 28 31 30 30 |1..;Dim |dir$(100|
|000000a0| 29 2c 64 69 72 28 31 30 | 30 29 00 00 80 09 20 44 |),dir(10|0).... D|
|000000b0| 49 52 20 7b 64 24 7d 00 | 00 20 20 80 15 20 64 69 |IR {d$}.|.  .. di|
|000000c0| 72 24 28 29 2c 64 69 72 | 28 29 00 20 20 74 2e 77 |r$(),dir|().  t.w|
|000000d0| 3d 30 00 00 20 20 65 78 | 3d fe 97 28 32 36 30 2c |=0..  ex|=..(260,|
|000000e0| 31 29 00 20 20 80 0b 20 | 65 78 3d 30 20 80 21 20 |1).  .. |ex=0 .! |
|000000f0| 72 65 73 75 6c 74 3d 30 | 3a 80 05 20 47 65 74 63 |result=0|:.. Getc|
|00000100| 64 6f 75 74 00 00 20 20 | 6b 65 79 3d fe 0a 28 26 |dout..  |key=..(&|
|00000110| 64 24 2c 2d 32 29 00 20 | 20 80 0b 20 6b 65 79 3d |d$,-2). | .. key=|
|00000120| 30 20 80 21 20 72 65 73 | 75 6c 74 3d 30 3a 80 05 |0 .! res|ult=0:..|
|00000130| 20 47 65 74 63 64 6f 75 | 74 00 00 20 20 72 65 73 | Getcdou|t..  res|
|00000140| 75 6c 74 3d fe 0d 28 6b | 65 79 2c 65 78 29 00 20 |ult=..(k|ey,ex). |
|00000150| 20 80 0b 20 72 65 73 75 | 6c 74 3d 30 20 80 21 20 | .. resu|lt=0 .! |
|00000160| 80 05 20 47 65 74 63 64 | 6f 75 74 00 00 20 20 80 |.. Getcd|out..  .|
|00000170| bb 00 00 20 20 20 20 64 | 69 72 24 28 74 29 3d da |...    d|ir$(t)=.|
|00000180| 02 24 28 65 78 2b 38 29 | 00 00 20 20 20 20 64 69 |.$(ex+8)|..    di|
|00000190| 72 28 74 29 3d da 02 2e | 6c 28 65 78 2b 31 32 34 |r(t)=...|l(ex+124|
|000001a0| 29 00 00 20 20 20 20 72 | 65 73 75 6c 74 3d fe 0e |)..    r|esult=..|
|000001b0| 28 6b 65 79 2c 65 78 29 | 00 00 20 20 20 20 74 2b |(key,ex)|..    t+|
|000001c0| 31 00 00 20 20 80 bc 20 | 72 65 73 75 6c 74 3d 30 |1..  .. |result=0|
|000001d0| 00 00 20 20 fe 0b 20 6b | 65 79 00 20 20 72 65 73 |..  .. k|ey.  res|
|000001e0| 75 6c 74 3d 2d 31 00 00 | 20 20 47 65 74 63 64 6f |ult=-1..|  Getcdo|
|000001f0| 75 74 3a 00 00 20 20 80 | 0b 20 65 78 3e 30 20 80 |ut:..  .|. ex>0 .|
|00000200| 21 20 fe 99 20 65 78 2c | 32 36 30 00 00 20 20 80 |! .. ex,|260..  .|
|00000210| 09 20 80 07 20 72 65 73 | 75 6c 74 00 00 80 02 20 |. .. res|ult.... |
|00000220| 80 09 00 00             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+