READ DIR
FILE INFORMATION
FILENAME(S): READ DIR
FILE TYPE(S): PRG
FILE SIZE: 415b
FIRST SEEN: 2025-12-02 00:02:03
APPEARS ON: 1 disk(s)
FILE HASH
61d1376272553b102b9f43825d6db1c7efa73367a43e60a0aa1a222bcdaf18bc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | READ DIR | PRG | earthshaker | 6 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 E8 03 9F 31 2C 38 2C 30 2C 22 24 30 |.."....1,8,0,"$0| 00000010: 22 3A 8F 20 4F 50 45 4E 20 44 49 52 2E 20 46 49 |":. OPEN DIR. FI| 00000020: 4C 45 00 3D 08 F2 03 4E 24 B2 C7 28 30 29 3A 8F |LE.=...N$..(0):.| 00000030: 20 44 55 4D 4D 59 20 53 54 52 49 4E 47 00 5E 08 | DUMMY STRING.^.| 00000040: FC 03 A1 23 31 2C 41 24 2C 41 24 3A 8F 20 42 59 |...#1,A$,A$:. BY| 00000050: 50 41 53 53 20 4C 4F 41 44 20 41 44 52 2E 00 7E |PASS LOAD ADR..~| 00000060: 08 06 04 A1 23 31 2C 41 24 2C 41 24 3A 8F 20 42 |....#1,A$,A$:. B| 00000070: 59 50 41 53 53 20 53 45 43 54 2E 50 54 52 00 9C |YPASS SECT.PTR..| 00000080: 08 10 04 8B 41 24 B2 22 22 A7 31 31 31 30 3A 8F |....A$."".1110:.| 00000090: 20 45 4E 44 20 4F 46 20 44 49 52 2E 00 BA 08 1A | END OF DIR.....| 000000A0: 04 A1 23 31 2C 41 24 2C 42 24 3A 8F 20 4E 4F 2E |..#1,A$,B$:. NO.| 000000B0: 20 4F 46 20 42 4C 4F 43 4B 53 00 F3 08 24 04 99 | OF BLOCKS...$..| 000000C0: C6 28 41 24 AA 4E 24 29 AA 32 35 36 AC C6 28 42 |.(A$.N$).256..(B| 000000D0: 24 AA 4E 24 29 3B 3A 8F 20 20 20 20 20 50 52 49 |$.N$);:. PRI| 000000E0: 4E 54 20 4E 55 4D 42 45 52 20 4F 46 20 42 4C 4F |NT NUMBER OF BLO| 000000F0: 43 4B 53 00 13 09 2E 04 A1 23 31 2C 41 24 3A 8F |CKS......#1,A$:.| 00000100: 20 47 45 54 20 4E 45 58 54 20 43 48 41 52 41 43 | GET NEXT CHARAC| 00000110: 54 45 52 00 45 09 38 04 8B 41 24 B2 22 22 A7 99 |TER.E.8..A$.""..| 00000120: 3A 89 31 30 33 30 3A 8F 20 20 20 20 20 20 20 20 |:.1030:. | 00000130: 20 20 20 45 4E 44 20 4F 46 20 4C 49 4E 45 20 4E | END OF LINE N| 00000140: 45 58 54 2E 2E 00 61 09 42 04 99 41 24 3B 3A 8F |EXT...a.B..A$;:.| 00000150: 20 50 52 49 4E 54 20 4F 4E 45 20 4C 45 54 54 45 | PRINT ONE LETTE| 00000160: 52 00 84 09 4C 04 89 31 30 37 30 3A 8F 20 47 45 |R...L..1070:. GE| 00000170: 54 20 54 48 45 20 4E 45 58 54 20 43 48 41 52 41 |T THE NEXT CHARA| 00000180: 43 54 45 52 00 9C 09 56 04 A0 31 3A 8F 20 45 4E |CTER...V..1:. EN| 00000190: 44 20 4F 46 20 50 52 4F 47 52 41 4D 00 00 00 |D OF PROGRAM... |
.."....1,8,0,"$0":. OPEN DIR. FILE.=...N $.G(0):. DUMMY STRING.^....#1,A$,A$:. BY PASS LOAD ADR..~....#1,A$,A$:. BYPASS SE CT.PTR......A$."".1110:. END OF DIR..... ..#1,A$,B$:. NO. OF BLOCKS...$..F(A$.N$) .256.F(B$.N$);:. PRINT NUMBER OF BLO CKS......#1,A$:. GET NEXT CHARACTER.E.8. .A$.""..:.1030:. END OF LINE N EXT...A.B..A$;:. PRINT ONE LETTER...L..1 070:. GET THE NEXT CHARACTER...V. 1:. EN D OF PROGRAM...
> CLICK IMAGE PREVIEW FOR FULL MODAL