!
FILE INFORMATION
FILENAME(S): !
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:16:26
APPEARS ON: 1 disk(s)
FILE HASH
d6b4c827ce404e636923a93627daaf25f485549d4a837c652d08a5d00e35e782
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0020A | ! | PRG | DuncanTwain | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 05 00 97 35 33 32 36 35 2C 32 37 3A |.......53265,27:|
00000010: 97 35 33 32 36 39 2C 30 00 4B 08 0A 00 97 35 33 |.53269,0.K....53|
00000020: 32 38 30 2C 36 3A 97 35 33 32 38 31 2C 36 3A 86 |280,6:.53281,6:.|
00000030: 54 42 24 28 31 35 30 29 3A 99 22 93 22 C7 28 31 |TB$(150):.".".(1|
00000040: 34 29 3A 44 49 B2 38 3A 43 B2 31 00 88 08 14 00 |4):DI.8:C.1.....|
00000050: 9F 38 2C 44 49 2C 38 2C 22 3A 20 20 20 44 49 52 |.8,DI,8,": DIR|
00000060: 45 43 54 4F 52 59 20 20 20 22 3A 9F 31 35 2C 44 |ECTORY ":.15,D|
00000070: 49 2C 31 35 3A 84 31 35 2C 45 4E 24 2C 45 44 24 |I,15:.15,EN$,ED$|
00000080: 2C 45 54 24 2C 45 53 24 00 AA 08 1E 00 84 38 2C |,ET$,ES$......8,|
00000090: 44 4E 24 3A 8B 45 4E 24 B3 B1 22 30 30 22 A7 A0 |DN$:.EN$.."00"..|
000000A0: 38 3A A0 31 35 3A 89 33 31 30 00 C2 08 28 00 84 |8:.15:.310...(..|
000000B0: 38 2C 54 42 24 28 43 29 3A 8B 53 54 B2 36 36 A7 |8,TB$(C):.ST.66.|
000000C0: 37 30 00 FA 08 32 00 8B C6 28 C8 28 54 42 24 28 |70...2...(.(TB$(|
000000D0: 43 29 2C 31 29 29 B2 31 30 A7 54 42 24 28 43 29 |C),1)).10.TB$(C)|
000000E0: B2 C9 28 54 42 24 28 43 29 2C C3 28 54 42 24 28 |..(TB$(C),.(TB$(|
000000F0: 43 29 29 AB 31 29 3A 89 35 30 00 08 09 3C 00 43 |C)).1):.50...<.C|
00000100: B2 43 AA 31 3A 89 34 30 00 41 09 46 00 A0 38 3A |.C.1:.40.A.F..8:|
00000110: A0 31 35 3A 4D B2 43 AB 31 3A 54 42 24 28 43 29 |.15:M.C.1:TB$(C)|
00000120: B2 22 22 3A 4C 31 24 B2 22 12 22 3A 81 43 B2 31 |."":L1$.".":.C.1|
00000130: A4 34 30 3A 4C 31 24 B2 4C 31 24 AA 22 20 22 3A |.40:L1$.L1$." ":|
00000140: 82 00 55 09 50 00 4C 31 24 B2 4C 31 24 AA 22 92 |..U.P.L1$.L1$.".|
00000150: 22 3A 41 B2 31 00 88 09 5A 00 97 35 33 32 38 31 |":A.1...Z..53281|
00000160: 2C 31 3A 99 22 93 1F 22 3B 3A 81 43 B2 31 A4 34 |,1:."..";:.C.1.4|
00000170: 3A 99 4C 31 24 3B 3A 82 3A 81 43 B2 31 A4 32 3A |:.L1$;:.:.C.1.2:|
00000180: 99 22 1F 22 4C 31 24 3B 00 94 09 5F 00 82 3A 99 |."."L1$;..._..:.|
00000190: 22 13 22 3B 00 D9 09 64 00 99 A6 38 29 22 12 1F |".";...d...8)"..|
000001A0: C4 49 52 45 43 54 4F 52 59 20 C1 53 53 49 53 54 |.IRECTORY .SSIST|
000001B0: 41 4E 43 45 20 56 36 34 22 A6 31 30 29 22 28 43 |ANCE V64".10)"(C|
000001C0: 29 31 39 38 32 20 20 C3 CF CD CD CF C4 CF D2 C5 |)1982 .........|
000001D0: A0 C2 D5 D3 C9 CE C5 22 3B 00 19 0A 69 00 99 22 |.......";...i.."|
000001E0: D3 D3 A0 CD C1 C3 C8 C9 CE C5 D3 22 A6 31 31 29 |...........".11)|
000001F0: 22 C1 55 54 48 4F 52 3A 20 41 2E 47 2E 4A 2E 42 |".UTHOR: A.G.J.B|
00000200: 2E 4A 41 47 54 2A 2A 22 A6 35 37 29 22 1C 22 44 |.JAGT**".57)"."D|
00000210: 4E 24 A6 38 29 4C 31 24 3B 00 56 0A 78 00 81 43 |N$.8)L1$;.V.x..C|
00000220: B2 41 A4 41 AA 31 34 3A 99 22 12 22 C9 28 22 20 |.A.A.14:.".".(" |
00000230: 20 20 20 22 AA C4 28 43 29 2C 35 29 22 92 20 1F | "..(C),5)". .|
00000240: 22 54 42 24 28 43 29 A6 32 39 AB C3 28 54 42 24 |"TB$(C).29..(TB$|
00000250: 28 43 29 29 29 3B 00 6E 0A 82 00 99 22 1C 12 20 |(C)));.n....".. |
00000260: 20 20 20 20 22 3B 3A 82 3A 99 4C 31 24 3B 00 92 | ";:.:.L1$;..|
00000270: 0A 87 00 81 41 B2 31 A4 32 3A 99 22 1F 22 4C 31 |....A.1.2:."."L1|
00000280: 24 3B 3A 82 3A 99 C8 28 4C 31 24 2C 34 30 29 22 |$;:.:..(L1$,40)"|
00000290: 91 22 00 D1 0A 8C 00 99 A6 39 29 22 12 91 91 C6 |.".......9)"....|
000002A0: 31 20 3D 20 43 4F 4E 54 49 4E 55 45 20 4C 49 53 |1 = CONTINUE LIS|
000002B0: 54 49 4E 47 22 A6 31 39 29 22 C6 33 20 3D 20 43 |TING".19)".3 = C|
000002C0: 52 45 41 54 45 20 44 49 52 45 43 54 4F 52 59 22 |REATE DIRECTORY"|
000002D0: 3B 00 10 0B 96 00 99 A6 31 39 29 22 C6 35 20 3D |;.......19)".5 =|
000002E0: 20 45 58 49 54 20 50 52 4F 47 52 41 4D 1F 13 22 | EXIT PROGRAM.."|
000002F0: 3A 97 32 30 32 33 2C 31 36 30 3A 97 35 36 32 39 |:.2023,160:.5629|
00000300: 35 2C 36 3A 97 31 39 38 2C 30 3A 42 24 B2 22 22 |5,6:.198,0:B$.""|
00000310: 00 23 0B A0 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.#....A$:.A$."".|
00000320: 31 36 30 00 35 0B AA 00 8B C6 28 41 24 29 B2 31 |160.5.....(A$).1|
00000330: 33 A7 32 36 30 00 52 0B B4 00 8B 41 24 B2 22 85 |3.260.R....A$.".|
00000340: 22 A7 32 34 30 3A 8F 22 20 46 31 20 2A 2A 2A 2A |".240:." F1 ****|
00000350: 2A 2A 00 6F 0B BE 00 8B 41 24 B2 22 86 22 A7 33 |**.o....A$.".".3|
00000360: 30 30 3A 8F 22 20 46 33 20 2A 2A 2A 2A 2A 2A 00 |00:." F3 ******.|
00000370: A0 0B C8 00 8B 41 24 B2 22 87 22 A7 97 35 33 32 |.....A$."."..532|
00000380: 38 30 2C 33 3A 99 22 93 11 11 11 1F 52 55 4E 13 |80,3:.".....RUN.|
00000390: 22 3A 80 3A 8F 22 20 46 35 20 2A 2A 2A 2A 2A 2A |":.:." F5 ******|
000003A0: 00 CE 0B D2 00 8B C6 28 41 24 29 B2 32 30 A7 42 |.......(A$).20.B|
000003B0: 24 B2 22 22 3A 99 22 13 11 11 11 11 1C 12 20 20 |$."":."....... |
000003C0: 20 92 22 3A 42 24 B2 22 22 3A 89 31 36 30 00 ED | .":B$."":.160..|
000003D0: 0B DC 00 8B 41 24 B3 22 30 22 B0 41 24 B1 22 39 |....A$."0".A$."9|
000003E0: 22 B0 C3 28 42 24 29 B2 33 A7 31 36 30 00 0B 0C |"..(B$).3.160...|
000003F0: E6 00 42 24 B2 42 24 AA 41 24 3A 99 22 13 11 11 |..B$.B$.A$:."...|
00000400: 11 11 1F 22 42 24 3A 89 31 36 30 00 1C 0C F0 00 |..."B$:.160.....|
00000410: 8B 43 B1 4D A7 41 B2 31 3A 89 39 30 00 28 0C FA |.C.M.A.1:.90.(..|
00000420: 00 41 B2 43 3A 89 39 30 00 5C 0C 04 01 8B C5 28 |.A.C:.90.\.....(|
00000430: 42 24 29 B1 4D A7 99 22 13 11 11 11 11 1F 3F 3F |B$).M.."......??|
00000440: 3F 22 3A 81 43 B2 31 A4 31 35 30 30 3A 82 3A 41 |?":.C.1.1500:.:A|
00000450: 24 B2 C7 28 32 30 29 3A 89 32 31 30 00 9A 0C 0E |$..(20):.210....|
00000460: 01 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
00000470: 2C 31 34 3A 99 22 92 93 11 11 11 05 8E 4C 4F 41 |,14:.".......LOA|
00000480: 44 22 C7 28 33 34 29 54 42 24 28 C5 28 42 24 29 |D".(34)TB$(.(B$)|
00000490: 29 C7 28 33 34 29 22 2C 38 22 00 C8 0C 18 01 8F |).(34)",8"......|
000004A0: 20 20 20 50 52 49 4E 54 52 49 47 48 54 24 28 53 | PRINTRIGHT$(S|
000004B0: 54 52 24 28 44 49 29 2C 4C 45 4E 28 53 54 52 24 |TR$(DI),LEN(STR$|
000004C0: 28 44 49 29 29 2D 31 29 00 FB 0C 22 01 99 22 13 |(DI))-1)..."..".|
000004D0: 22 3A 97 31 39 38 2C 34 3A 97 36 33 31 2C 31 33 |":.198,4:.631,13|
000004E0: 3A 97 36 33 32 2C 38 32 3A 97 36 33 33 2C 32 31 |:.632,82:.633,21|
000004F0: 33 3A 97 36 33 34 2C 31 33 3A 80 00 0D 0D 2C 01 |3:.634,13:....,.|
00000500: 99 22 13 11 11 11 11 1F 57 41 49 54 22 00 41 0D |."......WAIT".A.|
00000510: 36 01 9F 38 2C 44 49 2C 30 2C 22 24 30 22 3A 81 |6..8,DI,0,"$0":.|
00000520: 43 B2 31 A4 38 3A A1 23 38 2C 41 24 3A 82 3A 43 |C.1.8:.#8,A$:.:C|
00000530: B2 31 3A 44 4E 24 B2 22 22 3A 81 43 B2 31 A4 31 |.1:DN$."":.C.1.1|
00000540: 36 00 7B 0D 40 01 A1 23 38 2C 41 24 3A 44 4E 24 |6.{.@..#8,A$:DN$|
00000550: B2 44 4E 24 AA 41 24 3A 82 3A A1 23 38 2C 41 24 |.DN$.A$:.:.#8,A$|
00000560: 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA |:.#8,A$:DN$.DN$.|
00000570: 22 20 20 22 3A A1 23 38 2C 41 24 00 BA 0D 4A 01 |" ":.#8,A$...J.|
00000580: 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 2C 41 |DN$.DN$.A$:.#8,A|
00000590: 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 3A A1 23 38 |$:DN$.DN$.A$:.#8|
000005A0: 2C 41 24 3A A1 23 38 2C 41 24 3A 44 4E 24 B2 44 |,A$:.#8,A$:DN$.D|
000005B0: 4E 24 AA 22 20 20 22 AA 41 24 00 DB 0D 54 01 A1 |N$." ".A$...T..|
000005C0: 23 38 2C 41 24 3A 44 4E 24 B2 44 4E 24 AA 41 24 |#8,A$:DN$.DN$.A$|
000005D0: 3A A1 23 38 2C 41 24 3A 43 B2 31 00 FD 0D 5E 01 |:.#8,A$:C.1...^.|
000005E0: 81 41 B2 31 A4 34 3A A1 23 38 2C 41 24 3A 82 3A |.A.1.4:.#8,A$:.:|
000005F0: 50 4E 24 B2 22 22 3A 54 59 24 B2 22 22 00 13 0E |PN$."":TY$.""...|
00000600: 68 01 A1 23 38 2C 41 24 3A 8B 53 54 B3 B1 30 A7 |h..#8,A$:.ST..0.|
00000610: 34 35 30 00 22 0E 72 01 8B 41 24 B2 22 22 A7 34 |450.".r..A$."".4|
00000620: 35 30 00 35 0E 7C 01 8B C6 28 41 24 29 B3 B1 33 |50.5.|...(A$)..3|
00000630: 34 A7 33 36 30 00 5B 0E 86 01 A1 23 38 2C 41 24 |4.360.[....#8,A$|
00000640: 3A 8B C6 28 41 24 29 B3 B1 33 34 A7 50 4E 24 B2 |:..(A$)..34.PN$.|
00000650: 50 4E 24 AA 41 24 3A 89 33 39 30 00 74 0E 90 01 |PN$.A$:.390.t...|
00000660: A1 23 38 2C 41 24 3A 8B C6 28 41 24 29 B2 33 32 |.#8,A$:..(A$).32|
00000670: A7 34 30 30 00 96 0E 9A 01 54 59 24 B2 54 59 24 |.400.....TY$.TY$|
00000680: AA 41 24 3A A1 23 38 2C 41 24 3A 8B 41 24 B3 B1 |.A$:.#8,A$:.A$..|
00000690: 22 22 A7 34 31 30 00 AF 0E A4 01 8B C8 28 54 59 |"".410.......(TY|
000006A0: 24 2C 33 29 B3 B1 22 50 52 47 22 A7 33 35 30 00 |$,3).."PRG".350.|
000006B0: C5 0E AE 01 8B C8 28 50 4E 24 2C 31 29 B2 22 20 |......(PN$,1)." |
000006C0: 22 A7 33 35 30 00 E4 0E B8 01 54 42 24 28 43 29 |".350.....TB$(C)|
000006D0: B2 50 4E 24 3A 43 B2 43 AA 31 3A 8B 53 54 B2 30 |.PN$:C.C.1:.ST.0|
000006E0: A7 33 35 30 00 0D 0F C2 01 A0 38 3A 9F 31 35 2C |.350......8:.15,|
000006F0: 44 49 2C 31 35 2C 22 53 3A 20 20 20 44 49 52 45 |DI,15,"S: DIRE|
00000700: 43 54 4F 52 59 20 20 20 22 3A A0 31 35 00 4D 0F |CTORY ":.15.M.|
00000710: CC 01 5A 24 B2 22 DA DA DA DA DA DA DA DA DA DA |..Z$."..........|
00000720: DA DA DA DA DA DA 22 3A 9F 38 2C 44 49 2C 38 2C |......":.8,DI,8,|
00000730: 22 3A 20 20 20 44 49 52 45 43 54 4F 52 59 20 20 |": DIRECTORY |
00000740: 20 2C 53 2C 57 22 3A 98 38 2C 44 4E 24 00 78 0F | ,S,W":.8,DN$.x.|
00000750: D6 01 81 41 B2 31 A4 43 AB 31 3A 43 24 B2 5A 24 |...A.1.C.1:C$.Z$|
00000760: 3A 81 42 B2 31 A4 43 AB 31 3A 8B 43 24 B3 54 42 |:.B.1.C.1:.C$.TB|
00000770: 24 28 42 29 A7 34 39 30 00 8A 0F E0 01 43 24 B2 |$(B).490.....C$.|
00000780: 54 42 24 28 42 29 3A 44 B2 42 00 AB 0F EA 01 82 |TB$(B):D.B......|
00000790: 3A 98 38 2C 43 24 3A 54 42 24 28 44 29 B2 5A 24 |:.8,C$:TB$(D).Z$|
000007A0: 3A 82 3A A0 38 3A 9C 3A 89 31 30 00 00 00 |:.:.8:.:.10... |
.......53265,27:.53269,0.K....53280,6:.5
3281,6:.TB$(150):."."G(14):DI.8:C.1.....
.8,DI,8,": DIRECTORY ":.15,DI,15:.15
,EN$,ED$,ET$,ES$......8,DN$:.EN$.."00".
8: 15:.310.B.(..8,TB$(C):.ST.66.70...2..
F(H(TB$(C),1)).10.TB$(C).I(TB$(C),C(TB$(
C)).1):.50...<.C.C.1:.40.A.F. 8: 15:M.C.
1:TB$(C)."":L1$.".":.C.1.40:L1$.L1$." ":
..U.P.L1$.L1$.".":A.1...Z..53281,1:.".."
;:.C.1.4:.L1$;:.:.C.1.2:."."L1$;..._..:.
".";.Y.D...8)"..DIRECTORY ASSISTANCE V64
".10)"(C)1982 COMMODORE BUSINE";...I.."
SS MACHINES".11)"AUTHOR: A.G.J.B.JAGT**"
.57)"."DN$.8)L1$;.V.X..C.A.A.14:."."I("
".D(C),5)". ."TB$(C).29.C(TB$(C)));.N
....".. ";:.:.L1$;......A.1.2:."."L1
$;:.:.H(L1$,40)".".Q.....9)"...F1 = CONT
INUE LISTING".19)"F3 = CREATE DIRECTORY"
;.......19)"F5 = EXIT PROGRAM..":.2023,1
60:.56295,6:.198,0:B$."".#. ..A$:.A$."".
160.5....F(A$).13.260.R....A$.".".240:."
F1 ******.O....A$.".".300:." F3 ******.
.H..A$."."..53280,3:.".....RUN.":.:." F
5 ******.N.R..F(A$).20.B$."":.".......
.":B$."":.160......A$."0".A$."9".C(B$).
3.160.....B$.B$.A$:."......"B$:.160.....
.C.M.A.1:.90.(...A.C:.90.\....E(B$).M.."
......???":.C.1.1500:.:A$.G(20):.210....
..53281,6:.53280,14:.".......LOAD"G(34)T
B$(E(B$))G(34)",8".H.... PRINTRIGHT$(S
TR$(DI),LEN(STR$(DI))-1)..."..".":.198,4
:.631,13:.632,82:.633,213:.634,13:....,.
."......WAIT".A.6..8,DI,0,"$0":.C.1.8:.#
8,A$:.:C.1:DN$."":.C.1.16.{.@..#8,A$:DN$
.DN$.A$:.:.#8,A$:.#8,A$:DN$.DN$." ":.#8
,A$...J.DN$.DN$.A$:.#8,A$:DN$.DN$.A$:.#8
,A$:.#8,A$:DN$.DN$." ".A$...T..#8,A$:DN
$.DN$.A$:.#8,A$:C.1...^..A.1.4:.#8,A$:.:
PN$."":TY$.""...H..#8,A$:.ST..0.450.".R.
.A$."".450.5.|..F(A$)..34.360.[....#8,A$
:.F(A$)..34.PN$.PN$.A$:.390.T....#8,A$:.
F(A$).32.400.....TY$.TY$.A$:.#8,A$:.A$..
"".410......H(TY$,3).."PRG".350.E....H(P
N$,1)." ".350.....TB$(C).PN$:C.C.1:.ST.0
.350...B. 8:.15,DI,15,"S: DIRECTORY
": 15.M.L.Z$."ZZZZZZZZZZZZZZZZ":.8,DI,8,
": DIRECTORY ,S,W":.8,DN$.X.V..A.1.C
.1:C$.Z$:.B.1.C.1:.C$.TB$(B).490.....C$.
TB$(B):D.B......:.8,C$:TB$(D).Z$:.: 8:.:
.10...
> CLICK IMAGE PREVIEW FOR FULL MODAL