FILE'EXISTS.FUNC

FILE INFORMATION

FILENAME(S): FILE'EXISTS.FUNC

FILE TYPE(S): SEQ

FILE SIZE: 219b

FIRST SEEN: 2025-12-01 01:48:19

APPEARS ON: 2 disk(s)

FILE HASH

862f10f053326df40f7b9bf2246aa56f33c64a1b7cfc7da365c640e1895486ef

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COMAL 2	FILE'EXISTS.FUNC	SEQ	hedning, Mattias H00r	21	13	DOWNLOAD FILE
CCS COMAL 2	FILE'EXISTS.FUNC	SEQ	hedning, Mattias H00r	21	11	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 0D  39 30 31 30 20 46 55 4E  |9000 //.9010 FUN|
00000010: 43 20 46 49 4C 45 27 45  58 49 53 54 53 28 4E 41  |C FILE'EXISTS(NA|
00000020: 4D 45 24 29 20 43 4C 4F  53 45 44 0D 39 30 32 30  |ME$) CLOSED.9020|
00000030: 20 44 49 4D 20 53 24 20  4F 46 20 32 0D 39 30 33  | DIM S$ OF 2.903|
00000040: 30 20 4F 50 45 4E 20 46  49 4C 45 20 37 38 2C 4E  |0 OPEN FILE 78,N|
00000050: 41 4D 45 24 2C 52 45 41  44 0D 39 30 34 30 20 53  |AME$,READ.9040 S|
00000060: 24 3A 3D 53 54 41 54 55  53 24 0D 39 30 35 30 20  |$:=STATUS$.9050 |
00000070: 43 4C 4F 53 45 20 46 49  4C 45 20 37 38 0D 39 30  |CLOSE FILE 78.90|
00000080: 36 30 20 49 46 20 53 24  3D 22 30 30 22 20 54 48  |60 IF S$="00" TH|
00000090: 45 4E 0D 39 30 37 30 20  52 45 54 55 52 4E 20 54  |EN.9070 RETURN T|
000000A0: 52 55 45 0D 39 30 38 30  20 45 4C 53 45 20 0D 39  |RUE.9080 ELSE .9|
000000B0: 30 39 30 20 52 45 54 55  52 4E 20 46 41 4C 53 45  |090 RETURN FALSE|
000000C0: 0D 39 31 30 30 20 45 4E  44 49 46 20 0D 39 31 31  |.9100 ENDIF .911|
000000D0: 30 20 45 4E 44 46 55 4E  43 20 0D                 |0 ENDFUNC .     |

9000 //.9010 FUNC FILE'EXISTS(NAME$) CLO
SED.9020 DIM S$ OF 2.9030 OPEN FILE 78,N
AME$,READ.9040 S$:=STATUS$.9050 CLOSE FI
LE 78.9060 IF S$="00" THEN.9070 RETURN T
RUE.9080 ELSE .9090 RETURN FALSE.9100 EN
DIF .9110 ENDFUNC .

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL