VIEW'DIRECTORY
FILE INFORMATION
FILENAME(S): VIEW'DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-12-01 01:48:19
APPEARS ON: 2 disk(s)
FILE HASH
ec3c3b66a32730246d7415495bbc0364c1f0e8b7f95f5178451ba95d54c502da
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMAL 2 | VIEW'DIRECTORY | PRG | hedning, Mattias H00r | 26 | 0 | DOWNLOAD FILE |
| CCS COMAL 2 | VIEW'DIRECTORY | PRG | hedning, Mattias H00r | 26 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 48 0A A1 0B AA 0D 00 0A 18 00 44 45 4C 45 54 45 |H.........DELETE|
00000010: 20 22 30 3A 56 49 45 57 27 44 49 52 39 22 00 14 | "0:VIEW'DIR9"..|
00000020: 2F 00 28 43 29 20 31 39 38 34 20 43 4F 4D 41 4C |/.(C) 1984 COMAL|
00000030: 20 55 53 45 52 53 20 47 52 4F 55 50 2C 20 55 2E | USERS GROUP, U.|
00000040: 53 2E 41 2E 2C 20 4C 49 4D 49 54 45 44 00 1E 19 |S.A., LIMITED...|
00000050: 00 53 41 56 45 20 20 20 22 30 3A 56 49 45 57 27 |.SAVE "0:VIEW'|
00000060: 44 49 52 31 31 22 00 28 30 7F 31 03 28 56 49 45 |DIR11".(0.1.(VIE|
00000070: 57 20 43 41 54 41 4C 4F 47 20 4F 46 20 41 20 44 |W CATALOG OF A D|
00000080: 49 53 4B 20 4E 4F 54 20 4F 4E 20 54 48 45 20 4D |ISK NOT ON THE M|
00000090: 41 53 54 45 52 15 00 32 0C 8C 8F 3D 00 02 00 01 |ASTER..2...=....|
000000A0: 93 C5 00 3C 0C 8C 8F 21 00 02 00 10 93 C5 00 46 |...<...!.......F|
000000B0: 0C 8C 8F 22 00 02 00 02 93 C5 00 50 0C 8C 8F 23 |...".......P...#|
000000C0: 00 02 00 1E 93 C5 00 5A 0C 8C 8F 14 00 02 00 10 |.......Z........|
000000D0: 93 C5 00 64 14 8C 8F 2B 01 02 00 80 90 02 00 84 |...d...+........|
000000E0: 92 02 00 03 93 C5 00 6E 0F 0C 2B 02 00 80 19 03 |.......n..+.....|
000000F0: 03 2A 2A 2A 3C 00 78 0F 0C 2B 02 00 81 19 03 03 |.***<.x..+......|
00000100: 53 45 51 3C 00 82 0F 0C 2B 02 00 82 19 03 03 50 |SEQ<....+......P|
00000110: 52 47 3C 00 8C 0F 0C 2B 02 00 83 19 03 03 55 53 |RG<....+......US|
00000120: 52 3C 00 96 0F 0C 2B 02 00 84 19 03 03 52 45 4C |R<....+......REL|
00000130: 3C 00 A0 35 B5 03 2A 12 49 4E 53 45 52 54 20 54 |<..5..*.INSERT T|
00000140: 48 45 20 44 49 53 4B 20 54 4F 20 56 49 45 57 20 |HE DISK TO VIEW |
00000150: 49 4E 54 4F 20 44 52 49 56 45 20 30 3A 20 20 20 |INTO DRIVE 0: |
00000160: 92 B7 09 3D BA BB 00 AA 0E 68 04 2F 6A BD 03 03 |...=.....h./j...|
00000170: 4C 50 3A BE 00 B4 0F 7F 42 02 00 02 0D 03 01 30 |LP:.....B......0|
00000180: 0F 43 13 00 BE 06 7F 30 81 00 C8 04 00 00 D2 11 |.C.....0........|
00000190: 70 01 3E 8B 04 72 02 75 03 77 04 77 05 7C 00 DC |p.>..r.u.w.w.|..|
000001A0: 0F 7F 06 02 00 8E 0D 07 02 10 07 03 16 00 E6 12 |................|
000001B0: 7F 07 09 04 12 02 00 10 0D 07 02 10 07 03 16 00 |................|
000001C0: F0 0F 7F 06 02 00 02 0D 07 02 10 07 03 16 00 FA |................|
000001D0: 12 7F 07 09 05 12 02 00 02 0D 07 02 10 07 03 16 |................|
000001E0: 01 04 0F 7F 06 02 00 5C 0D 07 02 10 07 03 16 01 |.......\........|
000001F0: 0E 05 7D 01 01 18 04 00 01 22 15 70 08 98 8B 06 |..}......".p....|
00000200: 72 02 75 09 77 0A 76 0B 76 0C 75 0D 7C 01 2C 0E |r.u.w.v.v.u.|.,.|
00000210: 08 0B 0B 0E 07 02 10 07 09 16 3B 01 36 0E 7F 0F |..........;.6...|
00000220: 07 02 10 07 09 10 09 0A 18 01 40 0E 08 0C 0B 10 |..........@.....|
00000230: 07 02 10 07 09 16 3B 01 4A 0E 7F 11 07 02 10 07 |......;.J.......|
00000240: 09 10 07 0D 16 01 54 05 7D 08 01 5E 04 00 01 68 |......T.}..^...h|
00000250: 0D EA 0E F7 8B 02 72 02 75 03 7C 01 72 0E 08 12 |......r.u.|.r...|
00000260: 0A 13 07 02 10 07 03 16 3B 01 7C 0F 7F 06 02 00 |........;.|.....|
00000270: 02 0D 07 02 10 07 03 16 01 86 21 68 05 12 02 00 |..........!h....|
00000280: 81 2A 05 12 02 00 84 30 39 6A 08 12 02 00 80 3B |.*.....09j.....;|
00000290: 00 46 49 58 20 54 59 50 45 01 90 07 F0 05 12 F2 |.FIX TYPE.......|
000002A0: 01 9A 05 ED 0E 01 A4 04 00 01 AE 0F 70 0F 64 8C |............p.d.|
000002B0: 03 72 02 75 03 77 14 7C 01 B8 12 7F 07 09 14 12 |.r.u.w.|........|
000002C0: 02 00 10 0D 07 02 10 07 03 16 01 C2 10 83 15 4E |...............N|
000002D0: 8C 02 00 01 84 09 14 51 85 87 01 CC 19 68 0C 14 |.......Q.....h..|
000002E0: 08 15 17 49 02 00 A0 2C 6A 0C 14 08 15 1D 02 00 |...I...,j.......|
000002F0: 20 4B 3C 01 D6 07 8B 15 25 8C 01 E0 0F 7F 06 02 | K<.....%.......|
00000300: 00 09 0D 07 02 10 07 03 16 01 EA 05 7D 0F 01 F4 |............}...|
00000310: 04 00 01 FE 0D EA 10 A5 8C 02 72 02 75 03 7C 02 |..........r.u.|.|
00000320: 08 0E 08 16 0A 13 07 02 10 07 03 16 3B 02 12 12 |............;...|
00000330: 08 16 02 01 00 0A 13 07 02 10 07 03 16 24 3E 02 |.............$>.|
00000340: 1C 07 F0 05 16 F2 02 26 05 ED 10 02 30 04 00 02 |.......&....0...|
00000350: 3A 0F 70 11 05 8D 03 72 02 75 03 75 17 7C 02 44 |:.p....r.u.u.|.D|
00000360: 07 07 18 43 3A 02 4E 09 07 17 02 00 01 3D 02 58 |...C:.N......=.X|
00000370: 0D 68 04 17 02 00 08 2C 69 EE 8C 02 62 09 07 17 |.h.....,i...b...|
00000380: 02 00 00 3A 02 6C 07 07 18 44 3A 02 76 04 6F 02 |...:.l...D:.v.o.|
00000390: 80 13 68 04 18 6A 7F 06 02 00 02 0D 07 02 10 07 |..h..j..........|
000003A0: 03 16 02 8A 05 7D 11 02 94 04 00 02 9E 09 E9 2F |.....}........./|
000003B0: B5 8D 00 7C 02 A8 29 5F 03 20 4F 55 54 50 55 54 |...|..)_. OUTPUT|
000003C0: 20 54 4F 20 53 43 52 45 45 4E 20 4F 52 20 50 52 | TO SCREEN OR PR|
000003D0: 49 4E 54 45 52 28 53 2F 50 29 65 66 61 02 B2 04 |INTER(S/P)efa...|
000003E0: 95 02 BC 08 A1 F9 A3 50 8D 02 C6 11 A4 A7 8D 03 |.......P........|
000003F0: 01 D3 A6 03 01 53 A6 A7 76 8D 02 D0 0F 5F 03 06 |.....S..v...._..|
00000400: 53 43 52 45 45 4E 65 60 61 02 DA 06 EF 44 F2 02 |SCREENe`a....D..|
00000410: E4 11 A4 A7 8D 03 01 D0 A6 03 01 50 A6 A7 9D 8D |...........P....|
00000420: 02 EE 10 5F 03 07 50 52 49 4E 54 45 52 65 60 61 |..._..PRINTERe`a|
00000430: 02 F8 06 EF 43 F2 03 02 06 A8 A7 8D 03 0C 04 F4 |....C...........|
00000440: 03 16 04 A9 03 20 0A DA 43 44 2C 96 44 8D 03 2A |..... ..CD,.D..*|
00000450: 05 EC 2F 03 34 04 00 03 3E 09 70 30 E8 8D 00 7C |../.4...>.p0...||
00000460: 03 48 0A BD 03 03 44 53 3A BE 03 52 13 03 02 49 |.H....DS:..R...I|
00000470: 30 7E 00 20 52 45 53 45 54 20 42 55 53 03 5C 05 |0~. RESET BUS.\.|
00000480: 7D 30 03 66 04 00 03 70 0B 70 31 1C 8F 01 74 32 |}0.f...p.p1...t2|
00000490: 7C 03 7A 17 00 20 52 45 51 55 49 52 45 53 20 50 ||.z.. REQUIRES P|
000004A0: 52 4F 43 20 50 41 47 45 03 84 09 07 33 09 32 51 |ROC PAGE....3.2Q|
000004B0: 3A 03 8E 11 07 34 02 00 28 04 33 29 47 02 00 02 |:....4..(.3)G...|
000004C0: 25 3A 03 98 0F 07 35 02 00 28 04 34 29 04 33 29 |%:....5..(.4).3)|
000004D0: 3A 03 A2 14 7F 36 81 00 20 43 4C 45 41 52 20 53 |:....6.. CLEAR S|
000004E0: 43 52 45 45 4E 03 AC 17 5F 02 00 0E 4B 65 66 61 |CREEN..._...Kefa|
000004F0: 00 20 4C 4F 57 45 52 20 43 41 53 45 03 B6 12 FF |. LOWER CASE....|
00000500: 20 02 00 00 47 FF 21 00 20 42 4C 41 43 4B 03 C0 | ...G.!. BLACK..|
00000510: 11 FF 46 02 00 0C 47 FF 47 00 20 47 52 41 59 03 |..F...G.G. GRAY.|
00000520: CA 11 FF 1E 02 00 0C 47 FF 1F 00 20 47 52 41 59 |.......G... GRAY|
00000530: 03 D4 16 5F 02 00 12 4B 65 66 61 00 52 45 56 45 |..._...Kefa.REVE|
00000540: 52 53 45 20 4F 4E 03 DE 17 82 1E 0F 00 02 00 01 |RSE ON..........|
00000550: 84 04 34 85 88 5F 03 01 20 65 66 61 89 03 E8 09 |..4.._.. efa....|
00000560: 5F 06 32 65 66 61 03 F2 17 82 1E 0F 00 02 00 01 |_.2efa..........|
00000570: 84 04 35 85 88 5F 03 01 20 65 66 61 89 03 FC 19 |..5.._.. efa....|
00000580: 82 1E 10 00 02 00 01 84 02 00 28 85 88 5F 02 00 |..........(.._..|
00000590: A2 4B 65 66 61 89 04 06 17 5F 02 00 92 4B 65 66 |.Kefa...._...Kef|
000005A0: 61 00 52 45 56 45 52 53 45 20 4F 46 46 04 10 05 |a.REVERSE OFF...|
000005B0: 7D 31 04 1A 04 00 04 24 09 70 36 4B 8F 00 7C 04 |}1.....$.p6K..|.|
000005C0: 2E 19 5F 02 00 93 4B 65 66 61 00 20 43 4C 45 41 |.._...Kefa. CLEA|
000005D0: 52 20 53 43 52 45 45 4E 04 38 05 7D 36 04 42 04 |R SCREEN.8.}6.B.|
000005E0: 00 04 4C 1B 70 42 1C 91 03 72 02 74 25 72 26 7B |..L.pB...r.t%r&{|
000005F0: 00 20 4E 4F 54 20 43 4C 4F 53 45 44 04 56 04 B4 |. NOT CLOSED.V..|
00000600: 04 60 06 7F 1A 81 04 6A 0A 03 01 49 06 25 28 7E |.`.....j...I.%(~|
00000610: 04 74 07 07 03 44 3A 04 7E 0F DB 04 02 DC 03 01 |.t...D:.~.......|
00000620: 24 06 25 28 DD DE 04 88 11 7F 01 07 02 10 07 03 |$.%(............|
00000630: 10 09 21 12 09 22 18 04 92 09 68 04 26 69 2A 90 |..!.."....h.&i*.|
00000640: 04 9C 1D 5F 03 05 44 49 53 4B 3A 65 67 06 21 65 |..._..DISK:eg.!e|
00000650: 67 03 03 49 44 3A 65 67 06 22 65 60 61 04 A6 06 |g..ID:eg."e`a...|
00000660: 5F 60 61 04 B0 28 5F 03 1F 4E 55 4D 20 46 49 4C |_`a..(_..NUM FIL|
00000670: 45 20 4E 41 4D 45 20 20 20 20 20 20 20 20 54 59 |E NAME TY|
00000680: 50 20 42 4C 4F 43 4B 53 65 60 61 04 BA 28 5F 03 |P BLOCKSe`a..(_.|
00000690: 1F 2D 2D 2D 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.--- -----------|
000006A0: 2D 2D 2D 2D 2D 20 2D 2D 2D 20 2D 2D 2D 2D 2D 2D |----- --- ------|
000006B0: 65 60 61 04 C4 04 6F 04 CE 17 07 0D 02 00 00 3A |e`a...o........:|
000006C0: 07 27 02 02 98 3A 42 07 28 02 00 00 3A 42 04 D8 |.'...:B.(...:B..|
000006D0: 04 95 04 E2 17 7F 08 07 02 10 07 03 10 09 14 12 |................|
000006E0: 08 29 11 08 2A 11 07 0D 16 04 EC 0D 68 05 29 02 |.)..*.......h.).|
000006F0: 00 80 32 69 93 90 04 F6 08 07 27 05 2A 40 05 00 |..2i......'.*@..|
00000700: 09 07 28 02 00 01 3D 05 0A 15 00 20 49 4E 54 4F |..(...=.... INTO|
00000710: 20 41 52 52 41 59 53 20 48 45 52 45 05 14 04 6F | ARRAYS HERE...o|
00000720: 05 1E 09 68 04 26 69 D5 90 05 28 10 5F 03 03 23 |...h.&i...(._..#|
00000730: 23 23 62 04 28 D6 D7 67 61 05 32 15 5F 06 14 65 |##b.(..ga.2._..e|
00000740: 66 02 00 16 63 66 0C 2B 08 29 17 65 67 61 05 3C |f...cf.+.).ega.<|
00000750: 10 5F 03 03 23 23 23 62 05 2A D6 D7 60 61 05 46 |._..###b.*..`a.F|
00000760: 04 6F 05 50 09 DA 04 03 96 45 90 05 5A 07 CF 04 |.o.P.....E..Z...|
00000770: 02 D0 05 64 06 5F 60 61 05 6E 2D 68 04 26 6A 5F |...d._`a.n-h.&j_|
00000780: 04 28 64 67 03 09 46 49 4C 45 53 20 41 4E 44 65 |.(dg..FILES ANDe|
00000790: 67 04 27 64 67 03 0B 42 4C 4F 43 4B 53 20 46 52 |g.'dg..BLOCKS FR|
000007A0: 45 45 65 60 61 05 78 05 7D 42 05 82 20 00 20 34 |EEe`a.x.}B.. . 4|
000007B0: 20 44 49 53 4B 20 47 45 54 20 52 4F 55 54 49 4E | DISK GET ROUTIN|
000007C0: 45 53 20 46 4F 4C 4C 4F 57 3A 05 8C 19 00 20 3E |ES FOLLOW:.... >|
000007D0: 3E 56 45 52 53 49 4F 4E 20 33 20 2D 20 46 41 53 |>VERSION 3 - FAS|
000007E0: 54 45 52 05 96 1D 00 20 42 59 20 44 41 56 49 44 |TER.... BY DAVID|
000007F0: 20 53 4B 49 4E 4E 45 52 20 38 2F 31 34 2F 38 34 | SKINNER 8/14/84|
00000800: 05 A0 0D E9 13 D8 91 02 72 19 75 03 7C 05 AA 0B |........r.u.|...|
00000810: E4 02 07 EC E5 04 19 E6 05 B4 0C E4 02 07 EA E5 |................|
00000820: 02 00 01 E6 05 BE 08 E7 02 07 E9 E8 05 C8 0A 07 |................|
00000830: 03 02 00 90 D8 3A 05 D2 1F EF 01 90 4E 00 00 00 |.....:......N...|
00000840: D8 F2 00 56 41 4C 55 45 20 4F 46 20 43 48 41 52 |...VALUE OF CHAR|
00000850: 41 43 54 45 52 05 DC 05 EC 13 05 E6 04 00 05 F0 |ACTER...........|
00000860: 09 70 1A 32 93 00 7C 05 FA 10 83 1B 0C 92 02 07 |.p.2..|.........|
00000870: E8 84 02 07 FC 85 87 06 04 08 AF 07 1C B0 B3 06 |................|
00000880: 0E 0A E4 05 1B E5 04 1C E6 06 18 07 8B 1B EA 91 |................|
00000890: 06 22 18 AA AD 00 00 AB 2B 92 00 20 20 20 20 20 |."......+.. |
000008A0: 20 20 20 20 44 41 54 41 06 2C 1F AA AD 00 A0 AD | DATA.,......|
000008B0: 00 00 AB 4A 92 00 20 20 20 20 20 49 4E 20 4C 44 |...J.. IN LD|
000008C0: 59 20 43 4F 55 4E 54 06 36 22 AA AD 00 A2 AD 00 |Y COUNT.6"......|
000008D0: 00 AB 6C 92 00 20 20 20 20 20 20 20 20 4C 44 58 |..l.. LDX|
000008E0: 20 46 49 4C 45 27 4E 55 4D 06 40 1D AA AD 00 20 | FILE'NUM.@.... |
000008F0: AD 00 C6 AD 00 FF AB 89 92 00 20 20 20 4A 53 52 |.......... JSR|
00000900: 20 43 48 4B 49 4E 06 4A 1D AA AD 00 20 AD 00 CF | CHKIN.J.... ...|
00000910: AD 00 FF AB A6 92 00 42 31 20 4A 53 52 20 43 48 |.......B1 JSR CH|
00000920: 52 49 4E 06 54 1F AA AD 00 99 AD 00 FF AD 00 CD |RIN.T...........|
00000930: AB C5 92 00 20 20 53 54 41 20 42 55 46 46 49 4E |.... STA BUFFIN|
00000940: 2C 59 06 5E 18 AA AD 00 88 AB DD 92 00 20 20 20 |,Y.^......... |
00000950: 20 20 20 20 20 20 20 44 45 59 06 68 1A AA AD 00 | DEY.h....|
00000960: D0 AD 00 F7 AB F7 92 00 20 20 20 20 20 20 42 4E |........ BN|
00000970: 45 20 42 31 06 72 1E AA AD 00 20 AD 00 CC AD 00 |E B1.r.... .....|
00000980: FF AB 15 93 00 20 20 20 4A 53 52 20 43 4C 52 43 |..... JSR CLRC|
00000990: 48 4E 06 7C 19 AA AD 00 60 AB 00 00 00 20 20 20 |HN.|....`.... |
000009A0: 20 20 20 20 20 20 20 20 52 54 53 06 86 04 00 06 | RTS.....|
000009B0: 90 05 7D 1A 06 9A 04 00 06 A4 0F 70 06 72 93 03 |..}........p.r..|
000009C0: 72 1D 72 19 75 03 7C 06 AE 0B E4 02 07 EA E5 04 |r.r.u.|.........|
000009D0: 1D E6 06 B8 0B E4 02 07 EC E5 04 19 E6 06 C2 08 |................|
000009E0: E7 02 07 E9 E8 06 CC 0A 07 03 02 00 90 D8 3A 06 |..............:.|
000009F0: D6 05 7D 06 06 E0 04 00 06 EA 11 70 07 CC 93 04 |..}........p....|
00000A00: 77 20 72 1D 72 19 75 03 7C 06 F4 0E 7F 06 07 1D |w r.r.u.|.......|
00000A10: 10 07 19 10 07 03 16 06 FE 15 09 20 03 00 3C 07 |........... ..<.|
00000A20: 43 04 1D 01 90 4E 01 00 00 27 3A 42 07 08 1D 83 |C....N...':B....|
00000A30: 1E 0F 00 02 00 01 84 04 1D 85 88 0C 20 08 1E 1D |............ ...|
00000A40: 04 43 05 1E 29 D8 4B 3C 89 07 12 05 7D 07 14 DC |.C..).K<....}...|
00000A50: 8A 00 00 00 00 00 00 00 10 7D AF 00 00 00 00 00 |.........}......|
00000A60: 00 00 00 00 00 00 00 14 3B 93 00 00 14 7B 93 00 |........;....{..|
00000A70: 00 14 4B 8B 00 00 00 00 00 00 00 00 00 00 00 00 |..K.............|
00000A80: 00 00 00 00 00 00 00 00 00 00 10 78 AF 00 00 16 |...........x....|
00000A90: A5 8B 00 00 14 04 8C 00 00 16 71 8C 00 00 14 B2 |..........q.....|
00000AA0: 8C 00 00 00 00 00 00 00 15 83 91 00 00 12 AC AF |................|
00000AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000AC0: 00 00 00 00 00 00 00 00 00 00 00 14 E1 91 00 00 |................|
00000AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12 E8 |................|
00000AF0: AF 00 00 12 E2 AF 00 00 12 C0 AF 00 00 00 00 00 |................|
00000B00: 00 00 00 00 00 00 00 00 00 00 00 00 10 73 AF 00 |.............s..|
00000B10: 00 10 6E AF 00 00 11 6C AF 00 00 11 6A AF 00 00 |..n....l....j...|
00000B20: 92 A5 AF 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B30: 00 00 00 00 15 12 8D 00 00 14 C2 8D 00 00 14 F5 |................|
00000B40: 8D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B50: 00 00 00 00 00 00 00 14 29 8F 00 00 00 00 00 00 |........).......|
00000B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B70: 00 00 00 00 00 00 00 00 00 00 12 FC AF 00 00 00 |................|
00000B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000B90: 00 00 00 14 58 8F 00 00 00 00 00 00 00 00 00 00 |....X...........|
00000BA0: 00 00 00 00 00 00 00 0A 44 49 52 27 48 45 41 44 |........DIR'HEAD|
00000BB0: 45 52 06 44 27 46 49 4C 45 08 46 49 4C 45 27 45 |ER.D'FILE.FILE'E|
00000BC0: 4E 44 06 44 27 4E 41 4D 45 04 44 27 49 44 0D 44 |ND.D'NAME.D'ID.D|
00000BD0: 49 53 4B 27 47 45 54 27 53 4B 49 50 0F 44 49 53 |ISK'GET'SKIP.DIS|
00000BE0: 4B 27 47 45 54 27 53 54 52 49 4E 47 09 4E 45 58 |K'GET'STRING.NEX|
00000BF0: 54 27 46 49 4C 45 05 46 27 45 4E 44 02 46 4E 02 |T'FILE.F'END.FN.|
00000C00: 46 54 02 46 42 02 42 43 08 47 45 54 27 54 59 50 |FT.FB.BC.GET'TYP|
00000C10: 45 08 47 45 54 27 4E 41 4D 45 0A 47 45 54 27 42 |E.GET'NAME.GET'B|
00000C20: 4C 4F 43 4B 53 0F 43 48 45 43 4B 27 44 49 52 27 |LOCKS.CHECK'DIR'|
00000C30: 43 59 43 4C 45 09 54 48 49 53 27 54 59 50 45 08 |CYCLE.THIS'TYPE.|
00000C40: 44 49 53 4B 27 47 45 54 06 46 27 4E 41 4D 45 05 |DISK'GET.F'NAME.|
00000C50: 53 50 41 43 45 06 42 4C 4F 43 4B 53 0B 42 4C 4F |SPACE.BLOCKS.BLO|
00000C60: 43 4B 27 43 4F 55 4E 54 0A 42 4C 4F 43 4B 27 46 |CK'COUNT.BLOCK'F|
00000C70: 4C 41 47 08 46 49 4C 45 27 4E 55 4D 0D 44 49 53 |LAG.FILE'NUM.DIS|
00000C80: 4B 27 47 45 54 27 49 4E 49 54 03 4C 4F 43 01 56 |K'GET'INIT.LOC.V|
00000C90: 05 43 4F 55 4E 54 01 58 01 59 04 49 54 45 4D 09 |.COUNT.X.Y.ITEM.|
00000CA0: 44 49 53 4B 27 4E 41 4D 45 07 44 49 53 4B 27 49 |DISK'NAME.DISK'I|
00000CB0: 44 09 46 49 4C 45 27 49 4E 46 4F 08 52 45 41 44 |D.FILE'INFO.READ|
00000CC0: 27 44 49 52 05 44 52 49 56 45 04 53 48 4F 57 0B |'DIR.DRIVE.SHOW.|
00000CD0: 42 4C 4F 43 4B 53 27 46 52 45 45 0A 46 49 4C 45 |BLOCKS'FREE.FILE|
00000CE0: 27 43 4F 55 4E 54 06 46 27 54 59 50 45 08 46 27 |'COUNT.F'TYPE.F'|
00000CF0: 42 4C 4F 43 4B 53 04 54 59 50 45 03 4C 53 54 06 |BLOCKS.TYPE.LST.|
00000D00: 4C 49 53 44 53 54 03 53 45 51 07 50 52 49 4E 54 |LISDST.SEQ.PRINT|
00000D10: 45 52 06 53 43 52 45 45 4E 05 49 4E 54 52 4F 05 |ER.SCREEN.INTRO.|
00000D20: 54 49 54 4C 45 06 4C 45 4E 47 54 48 05 4C 45 46 |TITLE.LENGTH.LEF|
00000D30: 54 27 06 52 49 47 48 54 27 04 50 41 47 45 04 49 |T'.RIGHT'.PAGE.I|
00000D40: 4E 49 54 06 4D 41 53 54 45 52 01 43 0A 44 55 41 |NIT.MASTER.C.DUA|
00000D50: 4C 27 44 52 49 56 45 03 50 52 47 04 4D 45 4E 55 |L'DRIVE.PRG.MENU|
00000D60: 05 44 55 4D 4D 59 09 4D 41 58 27 46 49 4C 45 53 |.DUMMY.MAX'FILES|
00000D70: 0A 46 49 4C 45 27 4E 41 4D 45 53 0B 46 49 4C 45 |.FILE'NAMES.FILE|
00000D80: 27 42 4C 4F 43 4B 53 0A 46 49 4C 45 27 54 59 50 |'BLOCKS.FILE'TYP|
00000D90: 45 53 09 52 45 41 44 27 44 49 52 32 06 42 55 46 |ES.READ'DIR2.BUF|
00000DA0: 46 49 4E 05 4C 4C 49 53 54 05 4B 4C 49 53 54 00 |FIN.LLIST.KLIST.|
00000DB0: 00 |. |
H.........DELETE "0:VIEW'DIR9"../.(C) 19
84 COMAL USERS GROUP, U.S.A., LIMITED...
.SAVE "0:VIEW'DIR11".(01.(VIEW CATALO
G OF A DISK NOT ON THE MASTER..2...=....
.E.<...!.....E.F...".....E.P...#.....E.Z
.........E.D...+.............E.N..+.....
.***<.X..+......SEQ<....+......PRG<....+
......USR<....+......REL<. 5..*.INSERT T
HE DISK TO VIEW INTO DRIVE 0: ...=....
.H./J...LP:....B......0.C....0..H...R.
P.>..R.U.W.W.|........................
......................................
......\..........}......".P....R.U.W.V.
V.U.|.,...........;.6............@.....
......;.J............T.}..^...H......R.
U.|.R...........;.|..............!H....
.*.....09J.....;.FIX TYPE...............
....P.D..R.U.W.|..................B...N
.......Q...L.H.....I.. ,J....... K<.V...
%..................}.............R.U.|.
............;................$>........&
....0...:.P....R.U.U.|.D...C:.N......=.X
.H.....,I...B......:.L...D:.V.O...H..J.
.............}........./...|..)_. OUTPUT
TO SCREEN OR PRINTER(S/P)EFA..........P
..F......S...S..V..P._..SCREENE`A.Z..D..
.......P...P......._..PRINTERE`A....C...
............. .ZCD,.D..*../.4...>.P0...|
.H....DS:..R...I0~. RESET BUS.\.}0.F...P
.P1...T2|.Z.. REQUIRES PROC PAGE....3.2Q
:....4..(.3)G...%:....5..(.4).3):...6..
CLEAR SCREEN..._...KEFA. LOWER CASE....
...G.!. BLACK....F...G.G. GRAY.J......G
... GRAY.T._...KEFA.REVERSE ON..........
..4.._.. EFA...._.2EFA............5.._..
EFA..............(.._...KEFA...._...KEF
A.REVERSE OFF...}1.....$.P6K..|..._...KE
FA. CLEAR SCREEN.8.}6.B...L.PB...R.T%R&{
. NOT CLOSED.V...`....J...I.%(~.T...D:.
~.......$.%(.............!.."....H.&I*.
..._..DISK:EG.!EG..ID:EG."E`A..._`A..(_.
.NUM FILE NAME TYP BLOCKSE`A..(_.
.--- ---------------- --- ------E`A.D.O.
N......:.'...:B.(...:B.X...............
.)..*.......H.)...2I......'.*@....(...=.
... INTO ARRAYS HERE...O...H.&IU..(._..#
##B.(VWGA.2._..EF...CF.+.).EGA.<._..###B
.*VW`A.F.O.P.Z...E..Z.O..P.D._`A.N-H.&J_
.(DG..FILES ANDEG.'DG..BLOCKS FREEE`A.X.
}B.. . 4 DISK GET ROUTINES FOLLOW:.... >
>VERSION 3 - FASTER.... BY DAVID SKINNER
8/14/84. ...X..R.U.|...................
.............H......X:.R....N...X..VALUE
OF CHARACTER............P.2..|.........
................................."......
+.. DATA.,.... ....J.. IN LD
Y COUNT.6"........L.. LDX FILE'NU
M.@.... ..F....... JSR CHKIN.J.... ..O
.......B1 JSR CHRIN.T..........M.E.. ST
A BUFFIN,Y.^......... DEY.H....
P....... BNE B1.R.... ..L.......
JSR CLRCHN.|....`.... RTS.....
..}........P.R..R.R.U.|.................
......B.......L......X:.V.}........P.L..
W R.R.U.|................. ..<.C....N..
.':B................ ....C..)XK<....}...
.........}..............;....{....K.....
...................X..............Q.....
........................................
........................................
.............................S....N....L
....J.............................B.....
........................)...............
........................................
....X...................DIR'HEADER.D'FIL
E.FILE'END.D'NAME.D'ID.DISK'GET'SKIP.DIS
K'GET'STRING.NEXT'FILE.F'END.FN.FT.FB.BC
.GET'TYPE.GET'NAME.GET'BLOCKS.CHECK'DIR'
CYCLE.THIS'TYPE.DISK'GET.F'NAME.SPACE.BL
OCKS.BLOCK'COUNT.BLOCK'FLAG.FILE'NUM.DIS
K'GET'INIT.LOC.V.COUNT.X.Y.ITEM.DISK'NAM
E.DISK'ID.FILE'INFO.READ'DIR.DRIVE.SHOW.
BLOCKS'FREE.FILE'COUNT.F'TYPE.F'BLOCKS.T
YPE.LST.LISDST.SEQ.PRINTER.SCREEN.INTRO.
TITLE.LENGTH.LEFT'.RIGHT'.PAGE.INIT.MAST
ER.C.DUAL'DRIVE.PRG.MENU.DUMMY.MAX'FILES
.FILE'NAMES.FILE'BLOCKS.FILE'TYPES.READ'
DIR2.BUFFIN.LLIST.KLIST..
> CLICK IMAGE PREVIEW FOR FULL MODAL