TINY DIRECTORY.C
FILE INFORMATION
FILENAME(S): TINY DIRECTORY.C
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
c5430d5b77aa801b414dd88ae96984c5a08e0e7072d34e95cc1b81609c0dae88
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG MAY 84 C | TINY DIRECTORY.C | PRG | Radd Maxx | 29 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 64 00 8F 20 22 54 49 4E 59 20 44 49 |....d.. "TINY DI| 00000010: 52 45 43 54 4F 52 59 22 00 4B 08 6E 00 8F 20 50 |RECTORY".K.n.. P| 00000020: 52 49 4E 54 53 20 41 20 54 49 4E 59 20 32 2D 43 |RINTS A TINY 2-C| 00000030: 4F 4C 55 4D 4E 20 DA 20 4F 4E 20 41 20 47 45 4D |OLUMN . ON A GEM| 00000040: 49 4E 49 20 50 52 49 4E 54 45 52 00 68 08 78 00 |INI PRINTER.h.x.| 00000050: 8F 20 4D 4F 44 49 46 49 45 44 20 42 59 20 52 2E |. MODIFIED BY R.| 00000060: 42 2E 20 57 4F 4C 46 46 00 6E 08 82 00 3A 00 77 |B. WOLFF.n...:.w| 00000070: 08 8C 00 58 58 B2 30 00 86 08 96 00 45 53 43 24 |...XX.0.....ESC$| 00000080: B2 C7 28 32 37 29 00 AF 08 A0 00 99 20 22 93 50 |..(27)...... ".P| 00000090: 52 49 4E 54 20 41 20 54 49 4E 59 20 32 2D 43 4F |RINT A TINY 2-CO| 000000A0: 4C 55 4D 4E 20 44 49 52 45 43 54 4F 52 59 22 00 |LUMN DIRECTORY".| 000000B0: C1 08 AA 00 8B 20 58 58 B3 B1 30 20 A7 20 32 30 |..... XX..0 . 20| 000000C0: 30 00 F1 08 B4 00 85 20 22 90 11 49 53 20 54 48 |0...... "..IS TH| 000000D0: 45 20 50 52 49 4E 54 45 52 20 4F 4E 20 28 12 59 |E PRINTER ON (.Y| 000000E0: 92 2F 12 4E 92 29 20 20 59 9D 9D 9D 22 3B 20 41 |./.N.) Y..."; A| 000000F0: 24 00 10 09 BE 00 8B 20 41 24 B3 B1 22 59 22 20 |$...... A$.."Y" | 00000100: A7 20 99 20 22 91 91 22 3B 3A 20 89 20 31 38 30 |. . "..";: . 180| 00000110: 00 3F 09 C8 00 86 20 4E 24 28 31 34 34 29 3A 20 |.?.... N$(144): | 00000120: 8F 20 4C 49 53 54 53 20 55 50 20 54 4F 20 31 34 |. LISTS UP TO 14| 00000130: 34 20 46 49 4C 45 53 20 4F 4E 20 44 49 53 4B 00 |4 FILES ON DISK.| 00000140: 4D 09 D2 00 9F 20 31 35 2C 38 2C 31 35 00 57 09 |M.... 15,8,15.W.| 00000150: DC 00 9F 20 34 2C 34 00 82 09 E6 00 98 34 2C 20 |... 4,4......4, | 00000160: 45 53 43 24 C7 28 36 34 29 3B 3A 20 8F 20 52 45 |ESC$.(64);: . RE| 00000170: 53 45 54 20 50 52 49 4E 54 45 52 20 20 45 53 43 |SET PRINTER ESC| 00000180: 20 40 00 B1 09 F0 00 98 34 2C 20 45 53 43 24 C7 | @......4, ESC$.| 00000190: 28 36 36 29 C7 28 33 29 3B 3A 20 8F 20 53 45 54 |(66).(3);: . SET| 000001A0: 53 20 31 37 20 43 50 49 20 20 45 53 43 20 42 20 |S 17 CPI ESC B | 000001B0: 33 00 EE 09 FA 00 98 34 2C 20 45 53 43 24 C7 28 |3......4, ESC$.(| 000001C0: 38 33 29 C7 28 31 29 3B 3A 20 8F 20 53 55 42 53 |83).(1);: . SUBS| 000001D0: 52 49 50 54 20 4D 4F 44 45 20 49 53 20 53 45 4C |RIPT MODE IS SEL| 000001E0: 45 43 54 45 44 20 20 45 53 43 20 53 20 31 00 15 |ECTED ESC S 1..| 000001F0: 0A 04 01 98 34 2C 20 45 53 43 24 C7 28 38 36 29 |....4, ESC$.(86)| 00000200: C7 28 31 29 3B 3A 20 8F 20 3F 3F 3F 20 20 45 53 |.(1);: . ??? ES| 00000210: 43 20 56 20 31 00 59 0A 0E 01 98 34 2C 20 45 53 |C V 1.Y....4, ES| 00000220: 43 24 C7 28 36 35 29 C7 28 36 29 3B 3A 20 8F 20 |C$.(65).(6);: . | 00000230: 43 4A 41 4E 47 45 20 4C 49 4E 45 20 46 45 45 44 |CJANGE LINE FEED| 00000240: 20 54 4F 20 36 2F 37 32 22 20 28 31 2F 31 32 22 | TO 6/72" (1/12"| 00000250: 29 20 45 53 43 20 41 20 36 00 7F 0A 18 01 99 20 |) ESC A 6...... | 00000260: 22 9B 11 11 49 4E 53 45 52 54 20 41 20 44 49 53 |"...INSERT A DIS| 00000270: 4B 20 49 4E 20 44 52 49 56 45 20 41 4E 44 22 00 |K IN DRIVE AND".| 00000280: 9C 0A 22 01 99 20 22 11 54 48 45 4E 20 50 52 45 |..".. ".THEN PRE| 00000290: 53 53 20 41 4E 59 20 4B 45 59 9A 22 00 B4 0A 2C |SS ANY KEY."...,| 000002A0: 01 A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 A7 |.. A$: . A$."" .| 000002B0: 20 33 30 30 00 BF 0A 36 01 99 20 22 93 22 3B 00 | 300...6.. ".";.| 000002C0: CC 0A 40 01 98 31 35 2C 20 22 49 22 00 04 0B 4A |..@..15, "I"...J| 000002D0: 01 43 54 B2 30 3A 20 8F 20 43 54 20 49 53 20 54 |.CT.0: . CT IS T| 000002E0: 48 45 20 43 4F 55 4E 54 20 4F 46 20 54 48 45 20 |HE COUNT OF THE | 000002F0: 4E 55 4D 42 45 52 20 4F 46 20 44 49 53 4B 20 46 |NUMBER OF DISK F| 00000300: 49 4C 45 53 00 17 0B 54 01 9F 20 32 2C 38 2C 30 |ILES...T.. 2,8,0| 00000310: 2C 22 24 30 3A 2A 22 00 26 0B 5E 01 A1 23 32 2C |,"$0:*".&.^..#2,| 00000320: 20 41 24 2C 41 24 00 3B 0B 68 01 A1 23 32 2C 20 | A$,A$.;.h..#2, | 00000330: 41 24 2C 41 24 2C 41 24 2C 42 24 00 6D 0B 72 01 |A$,A$,A$,B$.m.r.| 00000340: 41 B2 C6 28 41 24 AA C7 28 30 29 29 AA 32 35 36 |A..(A$..(0)).256| 00000350: AC C6 28 42 24 AA C7 28 30 29 29 3A 20 8F 20 43 |..(B$..(0)): . C| 00000360: 41 4C 43 20 46 49 4C 45 20 53 49 5A 45 00 7C 0B |ALC FILE SIZE.|.| 00000370: 7C 01 8B 20 53 54 20 A7 20 35 33 30 00 86 0B 86 ||.. ST . 530....| 00000380: 01 4C 24 B2 22 22 00 A6 0B 90 01 8B 20 43 54 20 |.L$.""...... CT | 00000390: A7 20 4C 24 B2 CA 28 C4 28 41 29 AA 22 20 20 20 |. L$..(.(A)." | 000003A0: 22 2C 32 2C 33 29 00 B2 0B 9A 01 A1 23 32 2C 20 |",2,3)......#2, | 000003B0: 41 24 00 E8 0B A4 01 8B 20 A8 28 41 24 B2 C7 28 |A$...... .(A$..(| 000003C0: 33 34 29 20 B0 20 41 24 B2 22 42 22 29 20 A7 20 |34) . A$."B") . | 000003D0: 34 31 30 3A 20 8F 20 53 45 41 52 43 48 20 46 4F |410: . SEARCH FO| 000003E0: 52 20 22 20 4F 52 20 42 00 F2 0B AE 01 89 20 34 |R " OR B...... 4| 000003F0: 36 30 00 0E 0C B8 01 A1 23 32 2C 20 41 24 3A 20 |60......#2, A$: | 00000400: 20 8B 20 41 24 B2 22 22 20 A7 20 34 37 30 00 29 | . A$."" . 470.)| 00000410: 0C C2 01 8B 20 28 C6 28 41 24 29 AF 31 32 37 29 |.... (.(A$).127)| 00000420: B3 33 32 20 A7 20 34 34 30 00 6D 0C C7 01 8B 20 |.32 . 440.m.... | 00000430: C6 28 41 24 29 B1 31 39 32 20 A7 20 41 24 B2 C7 |.(A$).192 . A$..| 00000440: 28 C6 28 41 24 29 AB 31 32 38 29 3A 20 8F 20 43 |(.(A$).128): . C| 00000450: 4F 4E 56 45 52 54 20 54 4F 20 43 4F 4D 4D 4F 44 |ONVERT TO COMMOD| 00000460: 4F 52 45 20 55 50 50 45 52 43 41 53 45 00 97 0C |ORE UPPERCASE...| 00000470: CC 01 4C 24 B2 4C 24 AA 41 24 3A 20 89 20 34 34 |..L$.L$.A$: . 44| 00000480: 30 3A 20 8F 20 46 4F 52 4D 20 4E 45 58 54 20 46 |0: . FORM NEXT F| 00000490: 49 4C 45 4E 41 4D 45 00 CC 0C D6 01 4C 24 B2 C8 |ILENAME.....L$..| 000004A0: 28 4C 24 2C 32 35 29 3A 20 8F 20 54 52 55 4E 43 |(L$,25): . TRUNC| 000004B0: 41 54 45 20 54 4F 20 41 54 20 4D 4F 53 54 20 32 |ATE TO AT MOST 2| 000004C0: 35 20 43 48 41 52 41 43 54 45 52 53 00 F8 0C E0 |5 CHARACTERS....| 000004D0: 01 4E 24 28 43 54 29 B2 4C 24 3A 20 8F 20 50 55 |.N$(CT).L$: . PU| 000004E0: 54 20 46 49 4C 45 4E 41 4D 45 20 49 4E 20 4E 41 |T FILENAME IN NA| 000004F0: 4D 45 20 41 52 52 41 59 00 39 0D EA 01 8B 20 43 |ME ARRAY.9.... C| 00000500: 54 B2 30 20 A7 20 99 20 22 12 22 3B 4C 24 3B 22 |T.0 . . ".";L$;"| 00000510: 92 22 3A 20 89 20 35 31 30 3A 20 8F 20 50 55 54 |.": . 510: . PUT| 00000520: 20 44 49 53 4B 20 49 44 20 49 4E 20 52 45 56 45 | DISK ID IN REVE| 00000530: 52 53 45 20 56 49 44 45 4F 00 5D 0D F4 01 99 20 |RSE VIDEO.].... | 00000540: 4C 24 3A 20 8F 20 4C 49 53 54 20 46 49 4C 45 4E |L$: . LIST FILEN| 00000550: 41 4D 45 20 4F 4E 20 53 43 52 45 45 4E 00 69 0D |AME ON SCREEN.i.| 00000560: FE 01 43 54 B2 43 54 AA 31 00 73 0D 08 02 89 20 |..CT.CT.1.s.... | 00000570: 33 36 30 00 94 0D 12 02 98 34 2C 20 22 22 3B 4E |360......4, "";N| 00000580: 24 28 30 29 3A 20 8F 20 50 52 49 4E 54 20 D0 20 |$(0): . PRINT . | 00000590: 49 4E 46 4F 00 C0 0D 1C 02 43 54 B2 43 54 AB 31 |INFO.....CT.CT.1| 000005A0: 3A 20 8F 20 41 44 44 20 46 52 45 45 20 42 4C 4F |: . ADD FREE BLO| 000005B0: 43 4B 53 20 54 4F 20 50 52 49 4E 54 20 4F 55 54 |CKS TO PRINT OUT| 000005C0: 00 08 0E 26 02 4E 24 28 43 54 29 B2 C8 28 4E 24 |...&.N$(CT)..(N$| 000005D0: 28 43 54 29 2C 33 29 AA 22 20 22 AA CA 28 4E 24 |(CT),3)." "..(N$| 000005E0: 28 43 54 29 2C 34 29 3A 20 8F 20 50 55 54 20 42 |(CT),4): . PUT B| 000005F0: 4C 41 4E 4B 20 49 4E 20 46 52 45 45 20 42 4C 4F |LANK IN FREE BLO| 00000600: 43 4B 20 43 4F 55 4E 54 00 18 0E 30 02 4D 49 44 |CK COUNT...0.MID| 00000610: B2 B5 28 43 54 AD 32 29 00 44 0E 3A 02 81 20 49 |..(CT.2).D.:.. I| 00000620: B2 31 20 A4 20 4D 49 44 3A 20 98 34 2C 20 4E 24 |.1 . MID: .4, N$| 00000630: 28 49 29 22 20 20 20 22 4E 24 28 49 AA 4D 49 44 |(I)" "N$(I.MID| 00000640: 29 3A 20 82 00 81 0E 44 02 8B 20 43 54 B3 B1 32 |): ....D.. CT..2| 00000650: AC B5 28 43 54 AD 32 29 20 A7 20 98 34 2C 20 A3 |..(CT.2) . .4, .| 00000660: 32 38 29 3B 4E 24 28 43 54 29 3A 20 8F 20 43 41 |28);N$(CT): . CA| 00000670: 53 45 20 57 48 45 4E 20 43 54 20 49 53 20 4F 44 |SE WHEN CT IS OD| 00000680: 44 00 8D 0E 4E 02 98 34 2C 20 22 20 22 00 B7 0E |D...N..4, " "...| 00000690: 58 02 98 34 2C 20 45 53 43 24 C7 28 36 34 29 3A |X..4, ESC$.(64):| 000006A0: 20 8F 20 52 45 53 45 54 20 50 52 49 4E 54 45 52 | . RESET PRINTER| 000006B0: 20 20 45 53 43 20 40 00 C3 0E 62 02 98 34 2C 20 | ESC @...b..4, | 000006C0: 22 20 22 00 CB 0E 6C 02 A0 20 32 00 F2 0E 76 02 |" "...l.. 2...v.| 000006D0: 99 20 22 9B 11 44 4F 20 59 4F 55 20 57 41 4E 54 |. "..DO YOU WANT| 000006E0: 20 54 4F 20 50 52 49 4E 54 20 41 4E 4F 54 48 45 | TO PRINT ANOTHE| 000006F0: 52 22 00 19 0F 80 02 85 20 22 11 44 49 52 45 43 |R"...... ".DIREC| 00000700: 54 4F 52 59 20 28 12 59 92 2F 12 4E 92 29 20 20 |TORY (.Y./.N.) | 00000710: 59 9D 9D 9D 22 3B 20 41 24 00 37 0F 8A 02 8B 20 |Y..."; A$.7.... | 00000720: 41 24 B2 22 59 22 20 A7 20 9C 3A 20 58 58 B2 31 |A$."Y" . .: XX.1| 00000730: 3A 20 89 20 31 35 30 00 42 0F 94 02 99 20 22 9A |: . 150.B.... ".| 00000740: 93 22 00 48 0F 9E 02 80 00 00 00 |.".H....... |
....D.. "TINY DIRECTORY".K.N.. PRINTS A TINY 2-COLUMN Z ON A GEMINI PRINTER.H.X. . MODIFIED BY R.B. WOLFF.N...:.W...XX.0. ....ESC$.G(27)... .. ".PRINT A TINY 2-CO LUMN DIRECTORY".A.... XX..0 . 200...... "..IS THE PRINTER ON (.Y./.N.) Y..."; A $...... A$.."Y" . . "..";: . 180.?.H.. N $(144): . LISTS UP TO 144 FILES ON DISK. M.R.. 15,8,15.W.... 4,4......4, ESC$G(64 );: . RESET PRINTER ESC @......4, ESC$G (66)G(3);: . SETS 17 CPI ESC B 3......4 , ESC$G(83)G(1);: . SUBSRIPT MODE IS SEL ECTED ESC S 1......4, ESC$G(86)G(1);: . ??? ESC V 1.Y....4, ESC$G(65)G(6);: . CJANGE LINE FEED TO 6/72" (1/12") ESC A 6..... "...INSERT A DISK IN DRIVE AND". ..".. ".THEN PRESS ANY KEY."...,.. A$: . A$."" . 300...6.. ".";.L.@..15, "I"...J .CT.0: . CT IS THE COUNT OF THE NUMBER O F DISK FILES...T.. 2,8,0,"$0:*".&.^..#2, A$,A$.;.H..#2, A$,A$,A$,B$.M.R.A.F(A$.G (0)).256.F(B$.G(0)): . CALC FILE SIZE.|. |.. ST . 530.....L$.""...... CT . L$.J(D (A)." ",2,3)......#2, A$...... .(A$.G( 34) . A$."B") . 410: . SEARCH FOR " OR B ...... 460......#2, A$: . A$."" . 470.) .B.. (F(A$).127).32 . 440.M.G.. F(A$).19 2 . A$.G(F(A$).128): . CONVERT TO COMMOD ORE UPPERCASE...L.L$.L$.A$: . 440: . FOR M NEXT FILENAME.L.V.L$.H(L$,25): . TRUNC ATE TO AT MOST 25 CHARACTERS.....N$(CT). L$: . PUT FILENAME IN NAME ARRAY.9.... C T.0 . . ".";L$;".": . 510: . PUT DISK ID IN REVERSE VIDEO.].... L$: . LIST FILEN AME ON SCREEN.I...CT.CT.1.S.... 360..... .4, "";N$(0): . PRINT P INFO.....CT.CT.1 : . ADD FREE BLOCKS TO PRINT OUT...&.N$( CT).H(N$(CT),3)." ".J(N$(CT),4): . PUT B LANK IN FREE BLOCK COUNT...0.MID..(CT.2) .D.:.. I.1 . MID: .4, N$(I)" "N$(I.MID ): ....D.. CT..2..(CT.2) . .4, .28);N$(C T): . CASE WHEN CT IS ODD...N..4, " "... X..4, ESC$G(64): . RESET PRINTER ESC @. C.B..4, " ".K.L. 2...V.. "..DO YOU WANT TO PRINT ANOTHER"...... ".DIRECTORY (.Y ./.N.) Y..."; A$.7.... A$."Y" . .: XX.1 : . 150.B.... "..".H.......
> CLICK IMAGE PREVIEW FOR FULL MODAL