DIR2
FILE INFORMATION
FILENAME(S): DIR2
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-12-01 13:47:46
APPEARS ON: 1 disk(s)
FILE HASH
62c549f436543ac0593bd7bf61e8b42f62232bdb73acf53a7a86c3e22396399e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 37 | DIR2 | PRG | hedning, Zeta | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 00 00 89 20 31 30 30 30 00 1E 08 01 |....... 1000....|
00000010: 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 20 31 00 24 |..Z$:.Z$."". 1.$|
00000020: 08 02 00 8E 00 3E 08 0A 00 84 31 35 2C 45 52 2C |.....>....15,ER,|
00000030: 45 52 24 3A 8B 20 45 52 B2 30 20 A7 20 8E 00 5D |ER$:. ER.0 . ..]|
00000040: 08 14 00 99 22 44 49 53 4B 20 45 52 52 4F 52 20 |...."DISK ERROR |
00000050: 23 22 45 52 3A 99 45 52 24 3A 80 3A 8E 00 8F 08 |#"ER:.ER$:.:....|
00000060: 64 00 99 22 13 11 11 11 22 3A 81 49 B2 30 A4 31 |d.."....":.I.0.1|
00000070: 35 3A 81 20 4A B2 30 20 A4 4E 43 3A 99 A3 4A AC |5:. J.0 .NC:..J.|
00000080: 32 30 29 3B 56 24 28 49 AA 4A AC 31 36 29 3B 00 |20);V$(I.J.16);.|
00000090: 9C 08 6E 00 82 20 4A 3A 99 3A 82 49 00 B5 08 78 |..n.. J:.:.I...x|
000000A0: 00 97 58 42 2C 30 3A 52 4C B2 30 3A 43 4C B2 30 |..XB,0:RL.0:CL.0|
000000B0: 3A 8D 36 30 30 00 E3 08 82 00 81 20 49 B2 30 A4 |:.600...... I.0.|
000000C0: 31 A9 30 3A 8D 31 3A 5A B2 C6 28 5A 24 29 3A 54 |1.0:.1:Z..(Z$):T|
000000D0: 43 B2 43 4C 3A 54 52 B2 52 4C 3A 81 4A B2 30 A4 |C.CL:TR.RL:.J.0.|
000000E0: 31 A9 30 00 0E 09 8C 00 8B 20 28 5A AF 31 32 37 |1.0...... (Z.127|
000000F0: 29 B2 32 39 20 A7 43 4C B2 28 43 4C AA 31 AA 32 |).29 .CL.(CL.1.2|
00000100: AC 28 5A B2 31 35 37 29 29 20 AF 20 4E 43 00 39 |.(Z.157)) . NC.9|
00000110: 09 96 00 8B 20 28 5A AF 31 32 37 29 B2 31 37 20 |.... (Z.127).17 |
00000120: A7 52 4C B2 28 52 4C AA 31 AA 32 AC 28 5A B2 31 |.RL.(RL.1.2.(Z.1|
00000130: 34 35 29 29 20 AF 20 31 35 00 4A 09 A0 00 8B 20 |45)) . 15.J.... |
00000140: 5A B2 31 33 20 A7 20 49 B2 31 00 66 09 AA 00 8B |Z.13 . I.1.f....|
00000150: 20 56 24 28 52 4C AA 43 4C AC 31 36 29 B3 B1 42 | V$(RL.CL.16)..B|
00000160: 24 20 A7 4A B2 31 00 84 09 B4 00 82 3A 8B 28 54 |$ .J.1......:.(T|
00000170: 43 B3 B1 43 4C 29 B0 28 54 52 B3 B1 52 4C 29 A7 |C..CL).(TR..RL).|
00000180: 8D 35 30 30 00 8C 09 BE 00 82 3A 8E 00 B2 09 F4 |.500......:.....|
00000190: 01 97 20 58 41 2C 54 52 AA 33 3A 99 3A 99 A3 54 |.. XA,TR.3:.:..T|
000001A0: 43 AC 32 30 29 3B 56 24 28 54 52 AA 31 36 AC 54 |C.20);V$(TR.16.T|
000001B0: 43 29 00 DE 09 58 02 97 20 58 41 2C 52 4C AA 33 |C)...X.. XA,RL.3|
000001C0: 3A 99 3A 99 A3 43 4C AC 32 30 29 3B 22 12 22 3B |:.:..CL.20);".";|
000001D0: 56 24 28 52 4C AA 31 36 AC 43 4C 29 3A 8E 00 F9 |V$(RL.16.CL):...|
000001E0: 09 84 03 81 49 B2 31 20 A4 20 4E 56 3A 56 24 28 |....I.1 . NV:V$(|
000001F0: 49 29 B2 42 24 3A 82 3A 8E 00 0A 0A E8 03 99 22 |I).B$:.:......."|
00000200: 13 13 93 22 3A 8D 36 30 30 30 00 23 0A F2 03 4E |...":.6000.#...N|
00000210: 43 B2 31 3A 8B C2 28 32 31 33 29 B2 37 39 A7 4E |C.1:..(213).79.N|
00000220: 43 B2 33 00 5D 0A FC 03 4E 56 B2 28 4E 43 AA 31 |C.3.]...NV.(NC.1|
00000230: 29 AC 31 36 AB 31 3A 8D 32 30 30 30 3A 42 24 B2 |).16.1:.2000:B$.|
00000240: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000250: 20 20 20 20 22 3A 86 56 24 28 4E 56 29 00 87 0A | ":.V$(NV)...|
00000260: 4C 04 4E 50 B2 30 3A 53 4C B2 31 3A 56 24 28 30 |L.NP.0:SL.1:V$(0|
00000270: 29 B2 22 4E 45 58 54 20 50 41 47 45 22 3A 99 22 |)."NEXT PAGE":."|
00000280: 93 11 12 22 48 45 24 00 AE 0A 56 04 53 4C B2 53 |..."HE$...V.SL.S|
00000290: 4C AA 4E 50 3A 4E 50 B2 4D 41 AB 53 4C AA 31 3A |L.NP:NP.MA.SL.1:|
000002A0: 8B 20 4E 50 B1 4E 56 A7 20 4E 50 B2 4E 56 00 C0 |. NP.NV. NP.NV..|
000002B0: 0A 60 04 8B 20 4E 50 B2 30 20 A7 20 33 30 30 30 |.`.. NP.0 . 3000|
000002C0: 00 E8 0A 6A 04 8D 39 30 30 3A 81 20 49 B2 31 20 |...j..900:. I.1 |
000002D0: A4 20 4E 50 3A 56 24 28 49 29 B2 50 52 24 28 53 |. NP:V$(I).PR$(S|
000002E0: 4C AA 49 AB 31 29 3A 82 00 02 0B 74 04 8D 31 30 |L.I.1):....t..10|
000002F0: 30 3A 8B 20 43 4C AA 52 4C B2 30 20 A7 20 31 31 |0:. CL.RL.0 . 11|
00000300: 31 30 00 0D 0B 7E 04 89 20 35 30 30 30 00 1C 0B |10...~.. 5000...|
00000310: D0 07 8D 32 39 30 30 3A 4D 41 B2 30 00 36 0B DA |...2900:MA.0.6..|
00000320: 07 9F 31 35 2C 55 4E 2C 31 35 2C 22 49 22 AA 44 |..15,UN,15,"I".D|
00000330: 52 24 3A 8D 31 30 00 4A 0B E4 07 9F 31 2C 55 4E |R$:.10.J....1,UN|
00000340: 2C 33 2C 22 24 22 AA 44 52 24 00 54 0B EE 07 9E |,3,"$".DR$.T....|
00000350: 20 38 39 36 00 76 0B F8 07 46 4F B2 C6 28 49 4E | 896.v...FO..(IN|
00000360: 24 29 3A 8B 20 28 46 4F 20 AF 20 33 29 B2 31 20 |$):. (FO . 3).1 |
00000370: A7 20 32 31 30 30 00 97 0B 02 08 A0 31 3A A0 31 |. 2100......1:.1|
00000380: 35 3A 99 22 42 41 44 20 44 49 53 4B 20 46 4F 52 |5:."BAD DISK FOR|
00000390: 4D 41 54 2E 22 3A 80 00 AD 0B 34 08 48 45 24 B2 |MAT.":....4.HE$.|
000003A0: CA 28 49 4E 24 2C 31 34 33 2C 31 36 29 00 E4 0B |.(IN$,143,16)...|
000003B0: 3E 08 8B 20 46 4F B1 31 20 A7 20 53 45 B2 31 38 |>.. FO.1 . SE.18|
000003C0: 3A 48 45 24 B2 48 45 24 AA 22 2C 20 31 35 34 31 |:HE$.HE$.", 1541|
000003D0: 2F 34 30 34 30 20 46 4F 52 4D 41 54 22 3A 89 20 |/4040 FORMAT":. |
000003E0: 32 32 30 30 00 0F 0C 48 08 8B 20 46 4F B2 31 20 |2200...H.. FO.1 |
000003F0: A7 20 53 45 B2 31 39 3A 48 45 24 B2 48 45 24 AA |. SE.19:HE$.HE$.|
00000400: 22 2C 20 32 30 34 30 20 46 4F 52 4D 41 54 22 00 |", 2040 FORMAT".|
00000410: 2D 0C 98 08 86 20 50 52 24 28 53 45 AC 38 29 3A |-.... PR$(SE.8):|
00000420: 81 49 B2 31 20 A4 53 45 3A 9E 38 39 36 00 55 0C |.I.1 .SE:.896.U.|
00000430: A2 08 81 4A B2 31 20 A4 20 32 35 34 20 A9 20 33 |...J.1 . 254 . 3|
00000440: 32 3A 41 B2 C6 28 CA 28 49 4E 24 2C 4A 29 29 20 |2:A..(.(IN$,J)) |
00000450: AF 20 31 32 37 00 7C 0C AC 08 8B 41 B2 32 A7 4D |. 127.|....A.2.M|
00000460: 41 B2 4D 41 AA 31 3A 50 52 24 28 4D 41 29 B2 CA |A.MA.1:PR$(MA)..|
00000470: 28 49 4E 24 2C 4A AA 33 2C 31 36 29 00 84 0C B6 |(IN$,J.3,16)....|
00000480: 08 82 20 4A 00 94 0C C0 08 8B 20 53 54 20 A7 20 |.. J...... ST . |
00000490: 49 B2 53 45 00 9C 0C CA 08 82 20 49 00 A9 0C D4 |I.SE...... I....|
000004A0: 08 A0 31 3A A0 31 35 3A 8E 00 BF 0C 54 0B 55 4E |..1:.15:....T.UN|
000004B0: B2 38 3A 44 52 B2 30 3A 44 52 24 B2 22 30 22 00 |.8:DR.0:DR$."0".|
000004C0: C5 0C 5E 0B 8E 00 E4 0C 68 0B 99 22 55 4E 49 54 |..^.....h.."UNIT|
000004D0: 20 23 20 20 22 3B 55 4E 3B 3A 85 22 9D 9D 9D 9D | # ";UN;:."....|
000004E0: 22 3B 55 4E 00 16 0D 72 0B 99 22 44 52 49 56 45 |";UN...r.."DRIVE|
000004F0: 20 23 20 20 22 3B 44 52 3B 3A 85 22 9D 9D 9D 9D | # ";DR;:."....|
00000500: 22 3B 44 52 3A 8B 44 52 AC 28 44 52 AB 31 29 20 |";DR:.DR.(DR.1) |
00000510: A7 20 32 39 33 30 00 26 0D 7C 0B 44 52 24 B2 C4 |. 2930.&.|.DR$..|
00000520: 28 44 52 29 3A 8E 00 5C 0D B8 0B 8D 20 39 30 30 |(DR):..\.... 900|
00000530: 3A 99 22 93 11 4E 4F 20 4D 4F 52 45 20 50 52 4F |:."..NO MORE PRO|
00000540: 47 52 41 4D 53 20 4F 4E 20 44 49 53 4B 2E 20 20 |GRAMS ON DISK. |
00000550: 4F 50 54 49 4F 4E 53 20 41 52 45 3A 00 9C 0D CC |OPTIONS ARE:....|
00000560: 0B 56 24 28 30 29 B2 22 53 45 45 20 4E 45 57 20 |.V$(0)."SEE NEW |
00000570: 44 49 53 4B 22 3A 56 24 28 32 29 B2 22 52 45 53 |DISK":V$(2)."RES|
00000580: 54 41 52 54 20 54 48 49 53 20 44 49 53 4B 22 3A |TART THIS DISK":|
00000590: 56 24 28 34 29 B2 22 45 58 49 54 22 00 AF 0D D6 |V$(4)."EXIT"....|
000005A0: 0B 8D 20 31 30 30 3A 8B 52 4C B2 30 A7 20 8A 00 |.. 100:.RL.0. ..|
000005B0: C1 0D E0 0B 8B 20 52 4C B2 32 20 A7 20 31 31 30 |..... RL.2 . 110|
000005C0: 30 00 CC 0D EA 0B 99 22 93 22 3A 80 00 E6 0D 88 |0......".":.....|
000005D0: 13 55 31 24 B2 C4 28 55 4E 29 55 31 24 B2 55 31 |.U1$..(UN)U1$.U1|
000005E0: 24 AA 22 2C 31 22 00 23 0E 89 13 99 22 93 11 11 |$.",1".#...."...|
000005F0: 4C 4F 41 44 22 3B C7 28 33 34 29 3B 56 24 28 52 |LOAD";.(34);V$(R|
00000600: 4C AA 31 36 AC 43 4C 29 3B C7 28 33 34 29 3B 22 |L.16.CL);.(34);"|
00000610: 2C 22 3B 55 31 24 3A 99 22 11 11 11 11 52 55 4E |,";U1$:."....RUN|
00000620: 13 22 3B 00 47 0E 92 13 8B 58 41 B2 32 31 34 A7 |.";.G....XA.214.|
00000630: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A |.631,13:.632,13:|
00000640: 97 58 42 2C 32 3A 80 00 64 0E 9C 13 97 36 32 33 |.XB,2:..d....623|
00000650: 2C 31 33 3A 97 36 32 34 2C 31 33 3A 97 31 35 38 |,13:.624,13:.158|
00000660: 2C 32 3A 80 00 86 0E 70 17 49 4E 24 B2 22 5A 5A |,2:....p.IN$."ZZ|
00000670: 22 3A 81 49 B2 31 A4 36 3A 49 4E 24 B2 49 4E 24 |":.I.1.6:IN$.IN$|
00000680: AA 49 4E 24 3A 82 00 A3 0E 7A 17 49 4E 24 B2 CA |.IN$:....z.IN$..|
00000690: 28 49 4E 24 2C 32 29 3A 49 4E 24 B2 49 4E 24 AA |(IN$,2):IN$.IN$.|
000006A0: 49 4E 24 00 CD 0E 84 17 8B 20 C2 28 36 35 35 33 |IN$...... .(6553|
000006B0: 35 29 B2 32 35 35 20 A7 20 58 41 B2 32 31 34 3A |5).255 . XA.214:|
000006C0: 58 42 B2 31 39 38 3A 89 20 36 30 34 30 00 DF 0E |XB.198:. 6040...|
000006D0: 8E 17 58 41 B2 32 31 36 3A 58 42 B2 31 35 38 00 |..XA.216:XB.158.|
000006E0: 0B 0F 98 17 81 49 B2 38 39 36 20 A4 20 39 32 39 |.....I.896 . 929|
000006F0: 3A 87 20 58 24 3A 8B 20 C8 28 58 24 2C 31 29 B3 |:. X$:. .(X$,1).|
00000700: B1 22 41 22 20 A7 20 36 30 36 30 00 31 0F A2 17 |."A" . 6060.1...|
00000710: 58 24 B2 C4 28 C5 28 C9 28 58 24 2C C3 28 58 24 |X$..(.(.(X$,.(X$|
00000720: 29 AB 31 29 29 AA 33 AC 28 58 41 B2 32 31 36 29 |).1)).3.(XA.216)|
00000730: 29 00 40 0F AC 17 97 49 2C C5 28 58 24 29 3A 82 |).@....I,.(X$):.|
00000740: 00 46 0F B6 17 8E 00 7B 0F C0 17 83 20 31 36 30 |.F.....{.... 160|
00000750: 2C 32 2C 31 37 37 2C 41 34 35 2C 31 35 33 2C 41 |,2,177,A45,153,A|
00000760: 31 33 37 2C 30 2C 32 30 30 2C 31 39 32 2C 36 2C |137,0,200,192,6,|
00000770: 32 30 38 2C 32 34 36 2C 31 36 32 00 AF 0F CA 17 |208,246,162.....|
00000780: 83 20 31 2C 33 32 2C 31 39 38 2C 32 35 35 2C 33 |. 1,32,198,255,3|
00000790: 32 2C 32 32 38 2C 32 35 35 2C 31 36 34 2C 41 31 |2,228,255,164,A1|
000007A0: 34 32 2C 31 34 35 2C 41 31 34 30 2C 32 30 30 00 |42,145,A140,200.|
000007B0: DA 0F D4 17 83 20 31 33 32 2C 41 31 34 32 2C 31 |..... 132,A142,1|
000007C0: 39 36 2C 41 31 33 39 2C 32 30 38 2C 32 34 32 2C |96,A139,208,242,|
000007D0: 37 36 2C 32 30 34 2C 32 35 35 00 00 00 |76,204,255... |
....... 1000......Z$:.Z$."". 1.$.....>..
..15,ER,ER$:. ER.0 . ..]...."DISK ERROR
#"ER:.ER$:.:....D.."....":.I.0.15:. J.0
.NC:..J.20);V$(I.J.16);...N.. J:.:.I...X
..XB,0:RL.0:CL.0:.600...... I.0.1.0:.1:Z
.F(Z$):TC.CL:TR.RL:.J.0.1.0...... (Z.127
).29 .CL.(CL.1.2.(Z.157)) . NC.9.... (Z.
127).17 .RL.(RL.1.2.(Z.145)) . 15.J. ..
Z.13 . I.1.F.... V$(RL.CL.16)..B$ .J.1..
....:.(TC..CL).(TR..RL)..500......:.....
.. XA,TR.3:.:..TC.20);V$(TR.16.TC)...X..
XA,RL.3:.:..CL.20);".";V$(RL.16.CL):...
....I.1 . NV:V$(I).B$:.:......."...":.60
00.#...NC.1:.B(213).79.NC.3.]...NV.(NC.1
).16.1:.2000:B$." ":.V
$(NV)...L.NP.0:SL.1:V$(0)."NEXT PAGE":."
..."HE$...V.SL.SL.NP:NP.MA.SL.1:. NP.NV.
NP.NV...`.. NP.0 . 3000...J..900:. I.1
. NP:V$(I).PR$(SL.I.1):....T..100:. CL.R
L.0 . 1110...~.. 5000...P..2900:MA.0.6.Z
..15,UN,15,"I".DR$:.10.J....1,UN,3,"$".D
R$.T.... 896.V...FO.F(IN$):. (FO . 3).1
. 2100..... 1: 15:."BAD DISK FORMAT.":..
..4.HE$.J(IN$,143,16)...>.. FO.1 . SE.18
:HE$.HE$.", 1541/4040 FORMAT":. 2200...H
.. FO.1 . SE.19:HE$.HE$.", 2040 FORMAT".
-.... PR$(SE.8):.I.1 .SE:.896.U....J.1 .
254 . 32:A.F(J(IN$,J)) . 127.|....A.2.M
A.MA.1:PR$(MA).J(IN$,J.3,16)...... J....
.. ST . I.SE...J.. I...T. 1: 15:....T.UN
.8:DR.0:DR$."0".E.^.....H.."UNIT # ";UN
;:."....";UN...R.."DRIVE # ";DR;:."....
";DR:.DR.(DR.1) . 2930.&.|.DR$.D(DR):..\
.... 900:."..NO MORE PROGRAMS ON DISK.
OPTIONS ARE:...L.V$(0)."SEE NEW DISK":V$
(2)."RESTART THIS DISK":V$(4)."EXIT"...V
.. 100:.RL.0. ..A.... RL.2 . 1100.L...."
.":......U1$.D(UN)U1$.U1$.",1".#...."...
LOAD";G(34);V$(RL.16.CL);G(34);",";U1$:.
"....RUN.";.G....XA.214..631,13:.632,13:
.XB,2:..D....623,13:.624,13:.158,2:....P
.IN$."ZZ":.I.1.6:IN$.IN$.IN$:....Z.IN$.J
(IN$,2):IN$.IN$.IN$.M.... B(65535).255 .
XA.214:XB.198:. 6040.....XA.216:XB.158.
.....I.896 . 929:. X$:. H(X$,1).."A" . 6
060.1...X$.D(E(I(X$,C(X$).1)).3.(XA.216)
).@....I,E(X$):..F.....{.... 160,2,177,A
45,153,A137,0,200,192,6,208,246,162...J.
. 1,32,198,255,32,228,255,164,A142,145,A
140,200.Z.T.. 132,A142,196,A139,208,242,
76,204,255...
> CLICK IMAGE PREVIEW FOR FULL MODAL