_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

DIR.PROC

FILE INFORMATION

FILENAME(S): DIR.PROC

FILE TYPE(S): SEQ

FILE SIZE: 318b

FIRST SEEN: 2025-11-30 01:07:52

APPEARS ON: 4 disk(s)

FILE HASH

ef0b86006a9a47e60298604469c4e236ca5152898c0f1e1d0809f4353c6304e0

FOUND ON DISKS (4 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FREEWARE DISK NR DIR.PROC SEQ Treasure Chest - Wolfgang Rauprich 3 9 DOWNLOAD FILE
FREESOFT DISK NR DIR.PROC SEQ Treasure Chest - Wolfgang Rauprich 3 9 DOWNLOAD FILE
C OMAL DIR.PROC SEQ Treasure Chest - Wolfgang Rauprich 3 9 DOWNLOAD FILE
C OMAL DIR.PROC SEQ Treasure Chest - Wolfgang Rauprich 3 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 0D  39 30 31 30 20 50 52 4F  |9000 //.9010 PRO|
00000010: 43 20 44 49 52 28 4E 41  4D 45 24 2C 44 45 56 49  |C DIR(NAME$,DEVI|
00000020: 43 45 29 20 43 4C 4F 53  45 44 0D 39 30 32 30 20  |CE) CLOSED.9020 |
00000030: 54 52 41 50 20 45 53 43  2D 0D 39 30 33 30 20 46  |TRAP ESC-.9030 F|
00000040: 4F 52 20 58 3A 3D 31 20  54 4F 20 4C 45 4E 28 4E  |OR X:=1 TO LEN(N|
00000050: 41 4D 45 24 29 20 44 4F  0D 39 30 34 30 20 50 4F  |AME$) DO.9040 PO|
00000060: 4B 45 20 38 33 34 2B 58  2C 4F 52 44 28 4E 41 4D  |KE 834+X,ORD(NAM|
00000070: 45 24 28 58 29 29 0D 39  30 35 30 20 45 4E 44 46  |E$(X)).9050 ENDF|
00000080: 4F 52 20 58 0D 39 30 36  30 20 50 4F 4B 45 20 32  |OR X.9060 POKE 2|
00000090: 36 39 39 37 2C 58 0D 39  30 37 30 20 50 4F 4B 45  |6997,X.9070 POKE|
000000A0: 20 32 37 30 31 33 2C 44  45 56 49 43 45 0D 39 30  | 27013,DEVICE.90|
000000B0: 38 30 20 50 4F 4B 45 20  32 37 31 31 30 2C 39 36  |80 POKE 27110,96|
000000C0: 0D 39 30 39 30 20 53 59  53 20 32 36 39 39 36 0D  |.9090 SYS 26996.|
000000D0: 39 31 30 30 20 50 4F 4B  45 20 32 37 31 31 30 2C  |9100 POKE 27110,|
000000E0: 37 36 0D 39 31 31 30 20  50 4F 4B 45 20 32 36 39  |76.9110 POKE 269|
000000F0: 39 37 2C 31 0D 39 31 32  30 20 50 4F 4B 45 20 32  |97,1.9120 POKE 2|
00000100: 37 30 31 33 2C 38 0D 39  31 33 30 20 57 48 49 4C  |7013,8.9130 WHIL|
00000110: 45 20 45 53 43 20 44 4F  20 4E 55 4C 4C 0D 39 31  |E ESC DO NULL.91|
00000120: 34 30 20 54 52 41 50 20  45 53 43 2B 0D 39 31 35  |40 TRAP ESC+.915|
00000130: 30 20 45 4E 44 50 52 4F  43 20 44 49 52 0D        |0 ENDPROC DIR.  |

9000 //.9010 PROC DIR(NAME$,DEVICE) CLOS
ED.9020 TRAP ESC-.9030 FOR X:=1 TO LEN(N
AME$) DO.9040 POKE 834+X,ORD(NAME$(X)).9
050 ENDFOR X.9060 POKE 26997,X.9070 POKE
 27013,DEVICE.9080 POKE 27110,96.9090 SY
S 26996.9100 POKE 27110,76.9110 POKE 269
97,1.9120 POKE 27013,8.9130 WHILE ESC DO
 NULL.9140 TRAP ESC+.9150 ENDPROC DIR.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL