VERY TINY DIR

FILE INFORMATION

FILENAME(S): VERY TINY DIR

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 17:31:34

APPEARS ON: 1 disk(s)

FILE HASH

21a729f3be0e49841be60b947b58de645a604fd231ca5c34b2069421daf7db96

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TERRY TO BOB	VERY TINY DIR	PRG	UK CD	26	0	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 F0 08 B4 00 85 20  22 11 49 53 20 54 48 45  |0...... ".IS THE|
000000D0: 20 50 52 49 4E 54 45 52  20 4F 4E 20 28 12 59 92  | PRINTER ON (.Y.|
000000E0: 2F 12 4E 92 29 20 20 59  9D 9D 9D 22 3B 20 41 24  |/.N.)  Y..."; A$|
000000F0: 00 02 09 BE 00 8B 20 41  24 B3 B1 22 59 22 20 A7  |...... A$.."Y" .|
00000100: 20 80 00 31 09 C8 00 86  20 4E 24 28 31 35 30 29  | ..1.... N$(150)|
00000110: 3A 20 8F 20 4C 49 53 54  53 20 55 50 20 54 4F 20  |: . LISTS UP TO |
00000120: 31 34 34 20 46 49 4C 45  53 20 4F 4E 20 44 49 53  |144 FILES ON DIS|
00000130: 4B 00 3F 09 D2 00 9F 20  31 35 2C 38 2C 31 35 00  |K.?.... 15,8,15.|
00000140: 49 09 DC 00 9F 20 34 2C  34 00 74 09 E6 00 98 34  |I.... 4,4.t....4|
00000150: 2C 20 45 53 43 24 C7 28  36 34 29 3B 3A 20 8F 20  |, ESC$.(64);: . |
00000160: 52 45 53 45 54 20 50 52  49 4E 54 45 52 20 20 45  |RESET PRINTER  E|
00000170: 53 43 20 40 00 A3 09 F0  00 98 34 2C 20 45 53 43  |SC @......4, ESC|
00000180: 24 C7 28 36 36 29 C7 28  33 29 3B 3A 20 8F 20 53  |$.(66).(3);: . S|
00000190: 45 54 53 20 31 37 20 43  50 49 20 20 45 53 43 20  |ETS 17 CPI  ESC |
000001A0: 42 20 33 00 E0 09 FA 00  98 34 2C 20 45 53 43 24  |B 3......4, ESC$|
000001B0: C7 28 38 33 29 C7 28 31  29 3B 3A 20 8F 20 53 55  |.(83).(1);: . SU|
000001C0: 42 53 52 49 50 54 20 4D  4F 44 45 20 49 53 20 53  |BSRIPT MODE IS S|
000001D0: 45 4C 45 43 54 45 44 20  20 45 53 43 20 53 20 31  |ELECTED  ESC S 1|
000001E0: 00 07 0A 04 01 98 34 2C  20 45 53 43 24 C7 28 38  |......4, ESC$.(8|
000001F0: 36 29 C7 28 31 29 3B 3A  20 8F 20 3F 3F 3F 20 20  |6).(1);: . ???  |
00000200: 45 53 43 20 56 20 31 00  4B 0A 0E 01 98 34 2C 20  |ESC V 1.K....4, |
00000210: 45 53 43 24 C7 28 36 35  29 C7 28 36 29 3B 3A 20  |ESC$.(65).(6);: |
00000220: 8F 20 43 48 41 4E 47 45  20 4C 49 4E 45 20 46 45  |. CHANGE LINE FE|
00000230: 45 44 20 54 4F 20 36 2F  37 32 22 20 28 31 2F 31  |ED TO 6/72" (1/1|
00000240: 32 22 29 20 45 53 43 20  41 20 36 00 70 0A 18 01  |2") ESC A 6.p...|
00000250: 99 20 22 11 11 49 4E 53  45 52 54 20 41 20 44 49  |. "..INSERT A DI|
00000260: 53 4B 20 49 4E 20 44 52  49 56 45 20 41 4E 44 22  |SK IN DRIVE AND"|
00000270: 00 8D 0A 22 01 99 20 22  11 54 48 45 4E 20 50 52  |...".. ".THEN PR|
00000280: 45 53 53 20 41 4E 59 20  4B 45 59 9A 22 00 A5 0A  |ESS ANY KEY."...|
00000290: 2C 01 A1 20 41 24 3A 20  8B 20 41 24 B2 22 22 20  |,.. A$: . A$."" |
000002A0: A7 20 33 30 30 00 B0 0A  36 01 99 20 22 93 22 3B  |. 300...6.. ".";|
000002B0: 00 BD 0A 40 01 98 31 35  2C 20 22 49 22 00 F5 0A  |...@..15, "I"...|
000002C0: 4A 01 43 54 B2 30 3A 20  8F 20 43 54 20 49 53 20  |J.CT.0: . CT IS |
000002D0: 54 48 45 20 43 4F 55 4E  54 20 4F 46 20 54 48 45  |THE COUNT OF THE|
000002E0: 20 4E 55 4D 42 45 52 20  4F 46 20 44 49 53 4B 20  | NUMBER OF DISK |
000002F0: 46 49 4C 45 53 00 08 0B  54 01 9F 20 32 2C 38 2C  |FILES...T.. 2,8,|
00000300: 30 2C 22 24 30 3A 2A 22  00 17 0B 5E 01 A1 23 32  |0,"$0:*"...^..#2|
00000310: 2C 20 41 24 2C 41 24 00  2C 0B 68 01 A1 23 32 2C  |, A$,A$.,.h..#2,|
00000320: 20 41 24 2C 41 24 2C 41  24 2C 42 24 00 5E 0B 72  | A$,A$,A$,B$.^.r|
00000330: 01 41 B2 C6 28 41 24 AA  C7 28 30 29 29 AA 32 35  |.A..(A$..(0)).25|
00000340: 36 AC C6 28 42 24 AA C7  28 30 29 29 3A 20 8F 20  |6..(B$..(0)): . |
00000350: 43 41 4C 43 20 46 49 4C  45 20 53 49 5A 45 00 6D  |CALC FILE SIZE.m|
00000360: 0B 7C 01 8B 20 53 54 20  A7 20 35 33 30 00 77 0B  |.|.. ST . 530.w.|
00000370: 86 01 4C 24 B2 22 22 00  97 0B 90 01 8B 20 43 54  |..L$.""...... CT|
00000380: 20 A7 20 4C 24 B2 CA 28  C4 28 41 29 AA 22 20 20  | . L$..(.(A)."  |
00000390: 20 22 2C 32 2C 33 29 00  A3 0B 9A 01 A1 23 32 2C  | ",2,3)......#2,|
000003A0: 20 41 24 00 D9 0B A4 01  8B 20 A8 28 41 24 B2 C7  | A$...... .(A$..|
000003B0: 28 33 34 29 20 B0 20 41  24 B2 22 42 22 29 20 A7  |(34) . A$."B") .|
000003C0: 20 34 31 30 3A 20 8F 20  53 45 41 52 43 48 20 46  | 410: . SEARCH F|
000003D0: 4F 52 20 22 20 4F 52 20  42 00 E3 0B AE 01 89 20  |OR " OR B...... |
000003E0: 34 36 30 00 FF 0B B8 01  A1 23 32 2C 20 41 24 3A  |460......#2, A$:|
000003F0: 20 20 8B 20 41 24 B2 22  22 20 A7 20 34 37 30 00  |  . A$."" . 470.|
00000400: 1A 0C C2 01 8B 20 28 C6  28 41 24 29 AF 31 32 37  |..... (.(A$).127|
00000410: 29 B3 33 32 20 A7 20 34  34 30 00 5E 0C C7 01 8B  |).32 . 440.^....|
00000420: 20 C6 28 41 24 29 B1 31  39 32 20 A7 20 41 24 B2  | .(A$).192 . A$.|
00000430: C7 28 C6 28 41 24 29 AB  31 32 38 29 3A 20 8F 20  |.(.(A$).128): . |
00000440: 43 4F 4E 56 45 52 54 20  54 4F 20 43 4F 4D 4D 4F  |CONVERT TO COMMO|
00000450: 44 4F 52 45 20 55 50 50  45 52 43 41 53 45 00 88  |DORE UPPERCASE..|
00000460: 0C CC 01 4C 24 B2 4C 24  AA 41 24 3A 20 89 20 34  |...L$.L$.A$: . 4|
00000470: 34 30 3A 20 8F 20 46 4F  52 4D 20 4E 45 58 54 20  |40: . FORM NEXT |
00000480: 46 49 4C 45 4E 41 4D 45  00 BD 0C D6 01 4C 24 B2  |FILENAME.....L$.|
00000490: C8 28 4C 24 2C 32 35 29  3A 20 8F 20 54 52 55 4E  |.(L$,25): . TRUN|
000004A0: 43 41 54 45 20 54 4F 20  41 54 20 4D 4F 53 54 20  |CATE TO AT MOST |
000004B0: 32 35 20 43 48 41 52 41  43 54 45 52 53 00 E9 0C  |25 CHARACTERS...|
000004C0: E0 01 4E 24 28 43 54 29  B2 4C 24 3A 20 8F 20 50  |..N$(CT).L$: . P|
000004D0: 55 54 20 46 49 4C 45 4E  41 4D 45 20 49 4E 20 4E  |UT FILENAME IN N|
000004E0: 41 4D 45 20 41 52 52 41  59 00 2A 0D EA 01 8B 20  |AME ARRAY.*.... |
000004F0: 43 54 B2 30 20 A7 20 99  20 22 12 22 3B 4C 24 3B  |CT.0 . . ".";L$;|
00000500: 22 92 22 3A 20 89 20 35  31 30 3A 20 8F 20 50 55  |".": . 510: . PU|
00000510: 54 20 44 49 53 4B 20 49  44 20 49 4E 20 52 45 56  |T DISK ID IN REV|
00000520: 45 52 53 45 20 56 49 44  45 4F 00 4E 0D F4 01 99  |ERSE VIDEO.N....|
00000530: 20 4C 24 3A 20 8F 20 4C  49 53 54 20 46 49 4C 45  | L$: . LIST FILE|
00000540: 4E 41 4D 45 20 4F 4E 20  53 43 52 45 45 4E 00 5A  |NAME ON SCREEN.Z|
00000550: 0D FE 01 43 54 B2 43 54  AA 31 00 64 0D 08 02 89  |...CT.CT.1.d....|
00000560: 20 33 36 30 00 85 0D 12  02 98 34 2C 20 22 22 3B  | 360......4, "";|
00000570: 4E 24 28 30 29 3A 20 8F  20 50 52 49 4E 54 20 D0  |N$(0): . PRINT .|
00000580: 20 49 4E 46 4F 00 B1 0D  1C 02 43 54 B2 43 54 AB  | INFO.....CT.CT.|
00000590: 31 3A 20 8F 20 41 44 44  20 46 52 45 45 20 42 4C  |1: . ADD FREE BL|
000005A0: 4F 43 4B 53 20 54 4F 20  50 52 49 4E 54 20 4F 55  |OCKS TO PRINT OU|
000005B0: 54 00 F9 0D 26 02 4E 24  28 43 54 29 B2 C8 28 4E  |T...&.N$(CT)..(N|
000005C0: 24 28 43 54 29 2C 33 29  AA 22 20 22 AA CA 28 4E  |$(CT),3)." "..(N|
000005D0: 24 28 43 54 29 2C 34 29  3A 20 8F 20 50 55 54 20  |$(CT),4): . PUT |
000005E0: 42 4C 41 4E 4B 20 49 4E  20 46 52 45 45 20 42 4C  |BLANK IN FREE BL|
000005F0: 4F 43 4B 20 43 4F 55 4E  54 00 09 0E 30 02 4D 49  |OCK COUNT...0.MI|
00000600: 44 B2 B5 28 43 54 AD 32  29 00 35 0E 3A 02 81 20  |D..(CT.2).5.:.. |
00000610: 49 B2 31 20 A4 20 4D 49  44 3A 20 98 34 2C 20 4E  |I.1 . MID: .4, N|
00000620: 24 28 49 29 22 20 20 20  22 4E 24 28 49 AA 4D 49  |$(I)"   "N$(I.MI|
00000630: 44 29 3A 20 82 00 72 0E  44 02 8B 20 43 54 B3 B1  |D): ..r.D.. CT..|
00000640: 32 AC B5 28 43 54 AD 32  29 20 A7 20 98 34 2C 20  |2..(CT.2) . .4, |
00000650: A3 32 38 29 3B 4E 24 28  43 54 29 3A 20 8F 20 43  |.28);N$(CT): . C|
00000660: 41 53 45 20 57 48 45 4E  20 43 54 20 49 53 20 4F  |ASE WHEN CT IS O|
00000670: 44 44 00 7E 0E 4E 02 98  34 2C 20 22 20 22 00 A8  |DD.~.N..4, " "..|
00000680: 0E 58 02 98 34 2C 20 45  53 43 24 C7 28 36 34 29  |.X..4, ESC$.(64)|
00000690: 3A 20 8F 20 52 45 53 45  54 20 50 52 49 4E 54 45  |: . RESET PRINTE|
000006A0: 52 20 20 45 53 43 20 40  00 B4 0E 62 02 98 34 2C  |R  ESC @...b..4,|
000006B0: 20 22 20 22 00 BC 0E 6C  02 A0 20 32 00 E2 0E 76  | " "...l.. 2...v|
000006C0: 02 99 20 22 11 44 4F 20  59 4F 55 20 57 41 4E 54  |.. ".DO YOU WANT|
000006D0: 20 54 4F 20 50 52 49 4E  54 20 41 4E 4F 54 48 45  | TO PRINT ANOTHE|
000006E0: 52 22 00 09 0F 80 02 85  20 22 11 44 49 52 45 43  |R"...... ".DIREC|
000006F0: 54 4F 52 59 20 28 12 59  92 2F 12 4E 92 29 20 20  |TORY (.Y./.N.)  |
00000700: 59 9D 9D 9D 22 3B 20 41  24 00 27 0F 8A 02 8B 20  |Y..."; A$.'.... |
00000710: 41 24 B2 22 59 22 20 A7  20 9C 3A 20 58 58 B2 31  |A$."Y" . .: XX.1|
00000720: 3A 20 89 20 31 35 30 00  2D 0F 94 02 99 00 33 0F  |: . 150.-.....3.|
00000730: 9E 02 80 00 00 00                                 |......          |

....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" . ..1.H.. N$(150): . LIST
S UP TO 144 FILES ON DISK.?.R.. 15,8,15.
I.... 4,4.T....4, ESC$G(64);: . RESET PR
INTER  ESC @......4, ESC$G(66)G(3);: . S
ETS 17 CPI  ESC B 3......4, ESC$G(83)G(1
);: . SUBSRIPT MODE IS SELECTED  ESC S 1
......4, ESC$G(86)G(1);: . ???  ESC V 1.
K....4, ESC$G(65)G(6);: . CHANGE LINE FE
ED TO 6/72" (1/12") ESC A 6.P.... "..INS
ERT A DISK IN DRIVE AND"...".. ".THEN PR
ESS ANY KEY."...,.. A$: . A$."" . 300...
6.. ".";...@..15, "I"...J.CT.0: . CT IS 
THE COUNT OF THE NUMBER OF DISK FILES...
T.. 2,8,0,"$0:*"...^..#2, A$,A$.,.H..#2,
 A$,A$,A$,B$.^.R.A.F(A$.G(0)).256.F(B$.G
(0)): . CALC FILE SIZE.M.|.. ST . 530.W.
..L$.""...... CT . L$.J(D(A)."   ",2,3).
.....#2, A$.Y.... .(A$.G(34) . A$."B") .
 410: . SEARCH FOR " OR B...... 460.....
.#2, A$:  . A$."" . 470...B.. (F(A$).127
).32 . 440.^.G.. F(A$).192 . A$.G(F(A$).
128): . CONVERT TO COMMODORE UPPERCASE..
.L.L$.L$.A$: . 440: . FORM NEXT FILENAME
...V.L$.H(L$,25): . TRUNCATE TO AT MOST 
25 CHARACTERS.....N$(CT).L$: . PUT FILEN
AME IN NAME ARRAY.*.... CT.0 . . ".";L$;
".": . 510: . PUT DISK ID IN REVERSE VID
EO.N.... L$: . LIST FILENAME ON SCREEN.Z
...CT.CT.1.D.... 360......4, "";N$(0): .
 PRINT P INFO.....CT.CT.1: . ADD FREE BL
OCKS TO PRINT OUT...&.N$(CT).H(N$(CT),3)
." ".J(N$(CT),4): . PUT BLANK IN FREE BL
OCK COUNT...0.MID..(CT.2).5.:.. I.1 . MI
D: .4, N$(I)"   "N$(I.MID): ..R.D.. CT..
2..(CT.2) . .4, .28);N$(CT): . CASE WHEN
 CT IS ODD.~.N..4, " "...X..4, ESC$G(64)
: . RESET PRINTER  ESC @...B..4, " "...L
.  2...V.. ".DO YOU WANT TO PRINT ANOTHE
R"...... ".DIRECTORY (.Y./.N.)  Y..."; A
$.'.... A$."Y" . .: XX.1: . 150.-.....3.
......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL