DIR DOC.
FILE INFORMATION
FILENAME(S): DIR DOC.
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-12-02 00:01:54
APPEARS ON: 1 disk(s)
FILE HASH
59e293d665956a7c8b06c799b782a3d3a98eee6126bb69ca5780a6e442562c03
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | DIR DOC. | PRG | earthshaker | 5 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 51 08 50 00 43 4C 24 B2 22 9D 9D 9D 9D 9D |..Q.P.CL$.".....| 00000010: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 00000020: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 00000030: 9D 22 3A 43 55 24 B2 22 91 91 91 91 91 91 91 91 |.":CU$."........| 00000040: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 |................| 00000050: 22 00 A2 08 5A 00 43 52 24 B2 22 1D 1D 1D 1D 1D |"...Z.CR$.".....| 00000060: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000070: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000080: 1D 1D 22 3A 43 44 24 B2 22 11 11 11 11 11 11 11 |..":CD$.".......| 00000090: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000000A0: 11 22 00 C4 08 64 00 8B C2 28 34 39 31 35 32 29 |."...d...(49152)| 000000B0: B2 37 36 AF C2 28 34 39 31 35 33 29 B2 31 30 30 |.76..(49153).100| 000000C0: A7 31 32 30 00 F4 08 6E 00 8B 41 B2 30 A7 41 B2 |.120...n..A.0.A.| 000000D0: 31 3A 93 22 53 51 22 2C 38 2C 31 3A 8F 20 43 48 |1:."SQ",8,1:. CH| 000000E0: 45 43 4B 20 46 4F 52 20 53 4F 52 54 20 52 4F 55 |ECK FOR SORT ROU| 000000F0: 54 49 4E 45 00 30 09 78 00 86 46 46 24 28 31 30 |TINE.0.x..FF$(10| 00000100: 30 30 29 2C 4E 42 24 28 31 30 30 30 29 3A 8F 20 |00),NB$(1000):. | 00000110: 50 52 4F 47 52 41 4D 20 4E 41 4D 45 53 20 26 20 |PROGRAM NAMES & | 00000120: 4E 55 4D 42 45 52 20 4F 46 20 42 4C 4F 43 4B 53 |NUMBER OF BLOCKS| 00000130: 00 65 09 82 00 99 22 93 08 0E 22 3A 8F 20 43 4C |.e...."...":. CL| 00000140: 45 41 52 20 53 43 52 45 45 4E 20 41 4E 44 20 50 |EAR SCREEN AND P| 00000150: 52 49 4E 54 20 43 48 41 52 41 43 54 45 52 20 38 |RINT CHARACTER 8| 00000160: 20 26 20 31 34 00 A8 09 8C 00 8D 33 37 30 3A 9F | & 14......370:.| 00000170: 31 2C 38 2C 30 2C 22 24 30 22 3A 8F 20 52 45 41 |1,8,0,"$0":. REA| 00000180: 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 20 |D ERROR CHANNEL | 00000190: 26 20 4F 50 45 4E 20 44 49 52 45 43 54 4F 52 59 |& OPEN DIRECTORY| 000001A0: 20 43 48 41 4E 4E 45 4C 00 CA 09 96 00 4E 24 B2 | CHANNEL.....N$.| 000001B0: C7 28 30 29 3A 8F 20 44 45 46 49 4E 45 20 44 55 |.(0):. DEFINE DU| 000001C0: 4D 4D 59 20 53 54 52 49 4E 47 00 FF 09 A0 00 A1 |MMY STRING......| 000001D0: 23 31 2C 41 24 2C 41 24 3A 8F 20 52 45 41 44 20 |#1,A$,A$:. READ | 000001E0: 41 4E 44 20 42 59 50 41 53 53 20 46 49 52 53 54 |AND BYPASS FIRST| 000001F0: 20 54 57 4F 20 43 48 41 52 41 43 54 45 52 53 00 | TWO CHARACTERS.| 00000200: 3B 0A AA 00 8B C2 28 32 31 34 29 B2 32 31 A7 99 |;.....(214).21..| 00000210: 22 11 48 49 54 20 41 20 4B 45 59 22 3A 92 31 39 |".HIT A KEY":.19| 00000220: 37 2C 31 39 31 3A 99 22 93 22 3A 50 53 24 28 31 |7,191:.".":PS$(1| 00000230: 29 B2 22 22 3A 8F 20 50 41 47 45 00 64 0A B4 00 |)."":. PAGE.d...| 00000240: A1 23 31 2C 41 24 2C 41 24 3A 8F 20 52 45 41 44 |.#1,A$,A$:. READ| 00000250: 20 4E 45 58 54 20 54 57 4F 20 43 48 41 52 41 43 | NEXT TWO CHARAC| 00000260: 54 45 52 53 00 90 0A BE 00 8B 41 24 B2 22 22 A7 |TERS......A$."".| 00000270: 32 39 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 |290:. CHECK FOR | 00000280: 45 4E 44 20 4F 46 20 44 49 52 45 43 54 4F 52 59 |END OF DIRECTORY| 00000290: 00 CC 0A C8 00 A1 23 31 2C 41 24 2C 42 24 3A 8F |......#1,A$,B$:.| 000002A0: 20 52 45 41 44 20 4E 45 58 54 20 54 57 4F 20 43 | READ NEXT TWO C| 000002B0: 48 41 52 41 43 54 45 52 53 20 28 4E 55 4D 42 45 |HARACTERS (NUMBE| 000002C0: 52 20 4F 46 20 42 4C 4F 43 4B 53 29 00 13 0B D2 |R OF BLOCKS)....| 000002D0: 00 4E 42 24 28 31 29 B2 C4 28 C6 28 41 24 AA 4E |.NB$(1)..(.(A$.N| 000002E0: 24 29 AA 32 35 36 AC C6 28 42 24 AA 4E 24 29 29 |$).256..(B$.N$))| 000002F0: 3A 8F 20 50 4C 41 43 45 20 4E 55 4D 42 45 52 20 |:. PLACE NUMBER | 00000300: 4F 46 20 42 4C 4F 43 4B 53 20 49 4E 20 53 54 52 |OF BLOCKS IN STR| 00000310: 49 4E 47 00 3D 0B D7 00 99 4E 42 24 28 31 29 3B |ING.=....NB$(1);| 00000320: 22 1D 22 3B 3A 8F 20 50 52 49 4E 54 20 4E 55 4D |".";:. PRINT NUM| 00000330: 42 45 52 20 4F 46 20 42 4C 4F 43 4B 53 00 5F 0B |BER OF BLOCKS._.| 00000340: DC 00 A1 23 31 2C 41 24 3A 8F 20 52 45 41 44 20 |...#1,A$:. READ | 00000350: 4E 45 58 54 20 43 48 41 52 41 43 54 45 52 52 00 |NEXT CHARACTERR.| 00000360: 9B 0B E6 00 8B 41 24 B2 22 22 A7 99 3A 4E B2 4E |.....A$.""..:N.N| 00000370: AA 31 3A 89 31 37 30 3A 8F 20 49 46 20 46 49 4C |.1:.170:. IF FIL| 00000380: 45 20 45 4E 54 52 59 20 45 4E 44 53 20 54 48 45 |E ENTRY ENDS THE| 00000390: 4E 20 4C 4F 4F 50 20 42 41 43 4B 00 DD 0B F0 00 |N LOOP BACK.....| 000003A0: 8B 41 24 B2 C7 28 33 34 29 A7 8D 20 33 36 30 20 |.A$..(34).. 360 | 000003B0: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 27 22 27 |:. CHECK FOR '"'| 000003C0: 20 49 46 20 46 4F 55 4E 44 20 47 4F 54 4F 20 54 | IF FOUND GOTO T| 000003D0: 4F 47 47 4C 45 20 52 4F 55 54 49 4E 45 00 02 0C |OGGLE ROUTINE...| 000003E0: FA 00 99 41 24 3B 3A 8F 20 50 52 49 4E 54 20 43 |...A$;:. PRINT C| 000003F0: 48 41 52 41 43 54 45 52 20 4F 4E 20 53 43 52 45 |HARACTER ON SCRE| 00000400: 45 4E 00 47 0C 04 01 8B 20 4D 4D B2 31 AF 41 24 |EN.G.... MM.1.A$| 00000410: B3 B1 C7 28 33 34 29 A7 46 46 24 28 4E 29 B2 46 |...(34).FF$(N).F| 00000420: 46 24 28 4E 29 AA 41 24 3A 8F 20 49 46 20 54 4F |F$(N).A$:. IF TO| 00000430: 47 47 4C 45 20 49 53 20 53 45 54 20 54 48 45 4E |GGLE IS SET THEN| 00000440: 20 41 43 43 45 50 54 00 87 0C 0E 01 8B 4D 4D B2 | ACCEPT......MM.| 00000450: 30 AF C6 28 41 24 29 B1 36 34 AF C6 28 41 24 29 |0..(A$).64..(A$)| 00000460: B3 38 36 A7 50 53 24 28 31 29 B2 50 53 24 28 31 |.86.PS$(1).PS$(1| 00000470: 29 AA 41 24 3A 8F 20 53 54 52 49 4E 47 20 46 49 |).A$:. STRING FI| 00000480: 4C 45 2D 54 59 50 45 00 AE 0C 18 01 89 32 32 30 |LE-TYPE......220| 00000490: 3A 8F 20 47 45 54 20 43 48 41 52 41 43 54 45 52 |:. GET CHARACTER| 000004A0: 53 20 49 4E 20 46 49 4C 45 20 54 59 50 45 00 E3 |S IN FILE TYPE..| 000004B0: 0C 22 01 A0 31 3A 9E 34 39 31 35 32 2C 4E 2C 46 |."..1:.49152,N,F| 000004C0: 46 24 28 31 29 3A 8F 20 43 4C 4F 53 45 20 46 49 |F$(1):. CLOSE FI| 000004D0: 4C 45 20 41 4E 44 20 53 4F 52 54 20 53 54 52 49 |LE AND SORT STRI| 000004E0: 4E 47 53 00 18 0D 2C 01 99 22 13 11 11 11 11 11 |NGS...,.."......| 000004F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000500: 11 11 1D 1D 1D 1D 12 C1 CE CF D4 C8 C5 D2 20 C4 |.............. .| 00000510: C9 D3 CB 20 D9 2F CE 22 00 3A 0D 36 01 9F 31 35 |... ./.".:.6..15| 00000520: 2C 38 2C 31 35 2C 22 49 22 3A A0 31 35 3A 8F 20 |,8,15,"I":.15:. | 00000530: 49 4E 49 54 49 41 4C 49 53 45 00 4F 0D 40 01 A1 |INITIALISE.O.@..| 00000540: 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 33 32 30 00 |AN$:.AN$."".320.| 00000550: 60 0D 4A 01 8B 41 4E 24 B2 22 59 22 A7 31 33 30 |`.J..AN$."Y".130| 00000560: 00 6F 0D 54 01 8B 41 4E 24 B2 22 4E 22 A7 80 00 |.o.T..AN$."N"...| 00000570: 78 0D 5E 01 89 33 32 30 00 97 0D 68 01 4D 4D B2 |x.^..320...h.MM.| 00000580: 31 AB 4D 4D 3A 8E 3A 8F 20 54 4F 47 47 4C 45 20 |1.MM:.:. TOGGLE | 00000590: 52 4F 55 54 49 4E 45 00 B0 0D 72 01 8F 20 52 45 |ROUTINE...r.. RE| 000005A0: 41 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C |AD ERROR CHANNEL| 000005B0: 00 C2 0D 7C 01 9F 31 35 2C 38 2C 31 35 2C 22 49 |...|..15,8,15,"I| 000005C0: 30 22 00 D7 0D 86 01 84 31 35 2C 45 4E 2C 45 4D |0"......15,EN,EM| 000005D0: 24 2C 54 52 2C 53 45 00 FA 0D 90 01 8B 45 4E B3 |$,TR,SE......EN.| 000005E0: B1 30 A7 99 22 11 11 1D 1D 1D 1D 1D 22 3B 45 4E |.0..".......";EN| 000005F0: 3B 45 4D 24 3B 54 52 3B 53 45 00 02 0E 9A 01 A0 |;EM$;TR;SE......| 00000600: 31 35 00 08 0E A4 01 8E 00 21 0E AE 01 9F 31 35 |15.......!....15| 00000610: 2C 38 2C 31 35 2C 22 53 3A 44 49 52 22 3A A0 31 |,8,15,"S:DIR":.1| 00000620: 35 00 2E 0E B8 01 94 22 44 49 52 22 2C 38 00 00 |5......"DIR",8..| 00000630: 00 |. |
..Q.P.CL$."............................. .........":CU$."........................ "...Z.CR$."............................. ..........":CD$."....................... .".D.D..B(49152).76.B(49153).100.120...N ..A.0.A.1:."SQ",8,1:. CHECK FOR SORT ROU TINE.0.X..FF$(1000),NB$(1000):. PROGRAM NAMES & NUMBER OF BLOCKS.E...."...":. CL EAR SCREEN AND PRINT CHARACTER 8 & 14... ...370:.1,8,0,"$0":. READ ERROR CHANNEL & OPEN DIRECTORY CHANNEL.J...N$.G(0):. D EFINE DUMMY STRING... ..#1,A$,A$:. READ AND BYPASS FIRST TWO CHARACTERS.;....B(2 14).21..".HIT A KEY":.197,191:.".":PS$(1 )."":. PAGE.D....#1,A$,A$:. READ NEXT TW O CHARACTERS......A$."".290:. CHECK FOR END OF DIRECTORY.L.H..#1,A$,B$:. READ NE XT TWO CHARACTERS (NUMBER OF BLOCKS)...R .NB$(1).D(F(A$.N$).256.F(B$.N$)):. PLACE NUMBER OF BLOCKS IN STRING.=.W..NB$(1); ".";:. PRINT NUMBER OF BLOCKS._....#1,A$ :. READ NEXT CHARACTERR......A$.""..:N.N .1:.170:. IF FILE ENTRY ENDS THEN LOOP B ACK......A$.G(34).. 360 :. CHECK FOR '"' IF FOUND GOTO TOGGLE ROUTINE......A$;:. PRINT CHARACTER ON SCREEN.G.... MM.1.A$ ..G(34).FF$(N).FF$(N).A$:. IF TOGGLE IS SET THEN ACCEPT......MM.0.F(A$).64.F(A$) .86.PS$(1).PS$(1).A$:. STRING FILE-TYPE. .....220:. GET CHARACTERS IN FILE TYPE.. .". 1:.49152,N,FF$(1):. CLOSE FILE AND S ORT STRINGS...,.."...................... .......ANOTHER DISK Y/N".:.6..15,8,15,"I ": 15:. INITIALISE.O.@..AN$:.AN$."".320. `.J..AN$."Y".130.O.T..AN$."N"...X.^..320 ...H.MM.1.MM:.:. TOGGLE ROUTINE...R.. RE AD ERROR CHANNEL.B.|..15,8,15,"I0".W.... 15,EN,EM$,TR,SE......EN..0..".......";EN ;EM$;TR;SE..... 15.......!....15,8,15,"S :DIR": 15......"DIR",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL