DE2
FILE INFORMATION
FILENAME(S): DE2
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
9016d32a16105c49ce42e0bcfb435ec6d3bc57e2fc763f9e2ba51fd0a79fddeb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU FEBRUARY 90 | DE2 | PRG | UK CD | 24 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4F 08 01 00 97 35 33 32 38 30 2C 35 3A 97 |..O....53280,5:.|
00000010: 35 33 32 38 31 2C 31 31 3A 97 31 39 38 2C 30 3A |53281,11:.198,0:|
00000020: 99 22 93 08 0E 05 11 20 C4 C9 D2 C5 C3 D4 CF D2 |."..... ........|
00000030: D9 20 D3 CF D2 D4 20 20 20 20 20 20 20 20 20 20 |. .... |
00000040: C2 D9 A0 CA C1 D3 CF CE A0 C6 C9 CE C3 C8 22 00 |..............".|
00000050: A1 08 02 00 99 22 11 11 11 11 11 11 9B 20 20 20 |....."....... |
00000060: 20 20 20 20 20 C9 4E 53 45 52 54 20 54 48 45 20 | .NSERT THE |
00000070: 52 45 51 55 49 52 45 44 20 44 49 53 4B 22 3A 99 |REQUIRED DISK":.|
00000080: 22 20 20 20 20 20 20 20 20 41 4E 44 20 54 48 45 |" AND THE|
00000090: 4E 20 50 52 45 53 53 20 27 D2 C5 D4 D5 D2 CE 27 |N PRESS '......'|
000000A0: 2E 00 B6 08 03 00 A1 41 24 3A 8B 41 24 B3 B1 C7 |.......A$:.A$...|
000000B0: 28 31 33 29 A7 33 00 FC 08 04 00 99 22 93 11 8E |(13).3......"...|
000000C0: 22 2C 22 9D 9D 12 9A 20 20 20 20 20 20 20 20 20 |",".... |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 | ":.|
000000E0: 2C 22 9D 9D 12 20 50 52 4F 43 45 53 53 49 4E 47 |,"... PROCESSING|
000000F0: 20 44 49 52 45 43 54 4F 52 59 20 22 00 4D 09 05 | DIRECTORY ".M..|
00000100: 00 99 2C 22 9D 9D 12 20 20 20 20 20 20 20 20 20 |..,"... |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 | ":.|
00000120: 22 11 11 9E 20 20 20 20 46 49 4C 45 4E 41 4D 45 |"... FILENAME|
00000130: 20 20 20 20 20 20 20 54 59 50 45 20 53 49 5A 45 | TYPE SIZE|
00000140: 20 54 52 43 4B 20 53 45 43 54 11 05 22 00 99 09 | TRCK SECT.."...|
00000150: 06 00 54 24 28 30 29 B2 22 44 45 4C 22 3A 54 24 |..T$(0)."DEL":T$|
00000160: 28 31 29 B2 22 53 45 51 22 3A 54 24 28 32 29 B2 |(1)."SEQ":T$(2).|
00000170: 22 50 52 47 22 3A 54 24 28 33 29 B2 22 55 53 52 |"PRG":T$(3)."USR|
00000180: 22 3A 54 24 28 34 29 B2 22 52 45 4C 22 3A 54 24 |":T$(4)."REL":T$|
00000190: 28 35 29 B2 22 3F 3F 3F 22 00 CF 09 07 00 4E B2 |(5)."???".....N.|
000001A0: 30 3A 53 B2 31 3A 54 B2 31 38 3A 86 46 24 28 31 |0:S.1:T.18:.F$(1|
000001B0: 34 34 29 2C 53 24 28 31 34 34 29 3A 9F 31 35 2C |44),S$(144):.15,|
000001C0: 38 2C 31 35 3A 9F 38 2C 38 2C 38 2C 22 23 22 00 |8,15:.8,8,8,"#".|
000001D0: 0B 0A 08 00 98 31 35 2C 22 55 31 20 38 20 30 22 |.....15,"U1 8 0"|
000001E0: 54 3B 53 3A A1 23 38 2C 41 24 3A 54 B2 C6 28 41 |T;S:.#8,A$:T..(A|
000001F0: 24 AA C7 28 30 29 29 3A A1 23 38 2C 41 24 3A 53 |$..(0)):.#8,A$:S|
00000200: B2 C6 28 41 24 AA C7 28 30 29 29 00 48 0A 09 00 |..(A$..(0)).H...|
00000210: 81 49 B2 30 A4 37 3A 98 31 35 2C 22 42 2D 50 3A |.I.0.7:.15,"B-P:|
00000220: 38 22 49 AC 33 32 3A 53 24 B2 22 22 3A A1 23 38 |8"I.32:S$."":.#8|
00000230: 2C 41 24 3A A1 23 38 2C 41 24 3A A1 23 38 2C 50 |,A$:.#8,A$:.#8,P|
00000240: 24 3A A1 23 38 2C 54 24 00 5C 0A 0A 00 8B 54 24 |$:.#8,T$.\....T$|
00000250: B2 22 22 AF 50 24 B2 22 22 A7 32 34 00 80 0A 0B |."".P$."".24....|
00000260: 00 54 24 B2 C8 28 54 24 AA C7 28 30 29 2C 31 29 |.T$..(T$..(0),1)|
00000270: 3A 50 24 B2 C8 28 50 24 AA C7 28 30 29 2C 31 29 |:P$..(P$..(0),1)|
00000280: 00 B5 0A 0C 00 4E 24 B2 C7 28 30 29 AA C7 28 30 |.....N$..(0)..(0|
00000290: 29 AA 50 24 AA 54 24 3A 81 4A B2 31 A4 32 38 3A |).P$.T$:.J.1.28:|
000002A0: A1 23 38 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 |.#8,A$:.A$."".A$|
000002B0: B2 C7 28 30 29 00 C7 0A 0D 00 8B C6 28 41 24 29 |..(0).......(A$)|
000002C0: B2 31 36 30 A7 31 35 00 DE 0A 0E 00 8B 4A B1 31 |.160.15......J.1|
000002D0: AF 4A B3 31 38 A7 53 24 B2 53 24 AA 41 24 00 13 |.J.18.S$.S$.A$..|
000002E0: 0B 0F 00 4E 24 B2 4E 24 AA 41 24 3A 82 3A 8B 53 |...N$.N$.A$:.:.S|
000002F0: 24 B1 53 24 28 4E 29 A7 4E B2 4E AA 31 3A 46 24 |$.S$(N).N.N.1:F$|
00000300: 28 4E 29 B2 4E 24 3A 53 24 28 4E 29 B2 53 24 3A |(N).N$:S$(N).S$:|
00000310: 89 31 39 00 2B 0B 10 00 81 4B B2 31 A4 4E 3A 8B |.19.+....K.1.N:.|
00000320: 53 24 B1 53 24 28 4B 29 A7 31 38 00 75 0B 11 00 |S$.S$(K).18.u...|
00000330: 4E B2 4E AA 31 3A 81 4A B2 4E A4 4B AA 31 A9 AB |N.N.1:.J.N.K.1..|
00000340: 31 3A 46 24 28 4A 29 B2 46 24 28 4A AB 31 29 3A |1:F$(J).F$(J.1):|
00000350: 53 24 28 4A 29 B2 53 24 28 4A AB 31 29 3A 82 3A |S$(J).S$(J.1):.:|
00000360: 46 24 28 4B 29 B2 4E 24 3A 53 24 28 4B 29 B2 53 |F$(K).N$:S$(K).S|
00000370: 24 3A 4B B2 4E 00 7B 0B 12 00 82 00 B3 0B 13 00 |$:K.N.{.........|
00000380: 54 50 B2 C6 28 CA 28 4E 24 2C 33 2C 31 29 29 3A |TP..(.(N$,3,1)):|
00000390: 54 4B B2 C6 28 CA 28 4E 24 2C 34 2C 31 29 29 3A |TK..(.(N$,4,1)):|
000003A0: 54 32 B2 54 50 AF 31 35 3A 8B 54 32 B1 34 A7 54 |T2.TP.15:.T2.4.T|
000003B0: 32 B2 35 00 FA 0B 14 00 53 43 B2 C6 28 CA 28 4E |2.5.....SC..(.(N|
000003C0: 24 2C 35 2C 31 29 29 3A 99 22 20 20 22 CA 28 4E |$,5,1)):." ".(N|
000003D0: 24 2C 36 2C 31 36 29 22 20 22 54 24 28 54 32 29 |$,6,16)" "T$(T2)|
000003E0: 3B 3A 8B 28 54 50 AF 31 32 38 29 B2 30 A7 99 22 |;:.(TP.128).0.."|
000003F0: 9D 9D 9D 9D 2A 1D 1D 1D 22 3B 00 11 0C 15 00 8B |....*...";......|
00000400: 28 54 50 AF 36 34 29 B2 36 34 A7 99 22 3C 9D 22 |(TP.64).64.."<."|
00000410: 3B 00 45 0C 16 00 99 22 1D 1D 22 C9 28 22 20 20 |;.E...."..".(" |
00000420: 22 AA C4 28 C6 28 CA 28 4E 24 2C 33 31 2C 31 29 |"..(.(.(N$,31,1)|
00000430: 29 29 2C 33 29 22 20 20 20 22 C9 28 C4 28 54 4B |)),3)" ".(.(TK|
00000440: 29 2C 32 29 3B 00 5A 0C 17 00 99 22 20 20 20 22 |),2);.Z...." "|
00000450: C9 28 C4 28 53 43 29 2C 32 29 00 68 0C 18 00 82 |.(.(SC),2).h....|
00000460: 3A 8B 54 B3 B1 30 A7 38 00 A4 0C 19 00 8B 4E B3 |:.T..0.8......N.|
00000470: 31 34 34 A7 81 49 B2 31 A4 28 31 34 34 AB 4E 29 |144..I.1.(144.N)|
00000480: AF 37 3A 81 4A B2 30 A4 33 31 3A 46 24 28 49 AA |.7:.J.0.31:F$(I.|
00000490: 4E 29 B2 46 24 28 49 AA 4E 29 AA C7 28 30 29 3A |N).F$(I.N)..(0):|
000004A0: 82 4A 2C 49 00 D6 0C 1A 00 99 22 11 9A 96 20 50 |.J,I......"... P|
000004B0: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
000004C0: 56 49 45 57 20 53 4F 52 54 45 44 20 44 49 52 45 |VIEW SORTED DIRE|
000004D0: 43 54 4F 52 59 22 00 18 0D 1B 00 99 22 20 28 50 |CTORY"......" (P|
000004E0: 52 45 53 53 20 27 53 48 49 46 54 27 20 54 4F 20 |RESS 'SHIFT' TO |
000004F0: 50 41 55 53 45 20 54 48 45 20 4C 49 53 54 49 4E |PAUSE THE LISTIN|
00000500: 47 29 22 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C |G)":.198,0:.198,|
00000510: 31 3A 97 31 39 38 2C 30 00 5D 0D 1C 00 99 22 93 |1:.198,0.]....".|
00000520: 05 11 30 20 12 22 C7 28 33 34 29 3B 3A 98 31 35 |..0 .".(34);:.15|
00000530: 2C 22 55 31 20 38 20 30 20 31 38 20 30 22 3A 98 |,"U1 8 0 18 0":.|
00000540: 31 35 2C 22 42 2D 50 3A 38 20 31 34 34 22 3A 81 |15,"B-P:8 144":.|
00000550: 49 B2 31 A4 31 36 3A A1 23 38 2C 41 24 00 9A 0D |I.1.16:.#8,A$...|
00000560: 1D 00 99 41 24 3B 3A 82 3A 99 C7 28 33 34 29 C7 |...A$;:.:..(34).|
00000570: 28 33 32 29 3B 3A A1 23 38 2C 41 24 3A A1 23 38 |(32);:.#8,A$:.#8|
00000580: 2C 41 24 3A 81 49 B2 31 A4 35 3A A1 23 38 2C 41 |,A$:.I.1.5:.#8,A|
00000590: 24 3A 99 41 24 3B 3A 82 3A 99 00 D5 0D 1E 00 81 |$:.A$;:.:.......|
000005A0: 49 B2 31 A4 4E 3A 99 CA 28 C4 28 C6 28 CA 28 46 |I.1.N:..(.(.(.(F|
000005B0: 24 28 49 29 2C 33 31 2C 31 29 29 AA C6 28 CA 28 |$(I),31,1))..(.(|
000005C0: 46 24 28 49 29 2C 33 32 2C 31 29 29 AC 32 35 36 |F$(I),32,1)).256|
000005D0: 29 2C 32 29 3B 00 17 0E 1F 00 99 A3 35 29 C7 28 |),2);.......5).(|
000005E0: 33 34 29 53 24 28 49 29 C7 28 33 34 29 A3 32 34 |34)S$(I).(34).24|
000005F0: 29 3B 3A 50 B2 C6 28 CA 28 46 24 28 49 29 2C 33 |);:P..(.(F$(I),3|
00000600: 2C 31 29 29 3A 50 32 B2 50 AF 31 35 3A 8B 50 32 |,1)):P2.P.15:.P2|
00000610: B1 34 A7 50 32 B2 35 00 3C 0E 20 00 99 54 24 28 |.4.P2.5.<. ..T$(|
00000620: 50 32 29 3B 3A 8B 28 50 AF 31 32 38 29 B2 30 A7 |P2);:.(P.128).0.|
00000630: 99 22 9D 9D 9D 9D 2A 1D 1D 1D 22 3B 00 51 0E 21 |."....*...";.Q.!|
00000640: 00 8B 28 50 AF 36 34 29 B2 36 34 A7 99 22 3C 22 |..(P.64).64.."<"|
00000650: 3B 00 57 0E 22 00 99 00 68 0E 23 00 8B C2 28 36 |;.W."...h.#...(6|
00000660: 35 33 29 B2 31 A7 33 35 00 99 0E 24 00 82 3A 99 |53).1.35...$..:.|
00000670: 22 11 20 96 4F 4B 2E 20 50 52 45 53 53 20 27 46 |". .OK. PRESS 'F|
00000680: 31 27 20 54 4F 20 53 41 56 45 20 54 48 45 20 44 |1' TO SAVE THE D|
00000690: 49 52 45 43 54 4F 52 59 22 00 C3 0E 25 00 99 22 |IRECTORY"...%.."|
000006A0: 20 4F 52 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 | OR ANY OTHER KE|
000006B0: 59 20 54 4F 20 41 42 4F 52 54 2E 22 3A 97 31 39 |Y TO ABORT.":.19|
000006C0: 38 2C 30 00 D5 0E 26 00 A1 41 24 3A 8B 41 24 B2 |8,0...&..A$:.A$.|
000006D0: 22 22 A7 33 38 00 EE 0E 27 00 8B 41 24 B3 B1 C7 |"".38...'..A$...|
000006E0: 28 31 33 33 29 A7 A0 38 3A A0 31 35 3A 8A 00 29 |(133)..8:.15:..)|
000006F0: 0F 28 00 99 22 93 11 22 2C 22 20 12 9A 20 20 20 |.(..".."," .. |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000710: 3A 99 2C 22 20 12 20 53 41 56 49 4E 47 20 44 49 |:.," . SAVING DI|
00000720: 52 45 43 54 4F 52 59 20 22 00 46 0F 29 00 99 2C |RECTORY ".F.)..,|
00000730: 22 20 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |" . |
00000740: 20 20 20 20 20 22 00 84 0F 2A 00 81 49 B2 31 A4 | "...*..I.1.|
00000750: 4E A9 38 3A 98 31 35 2C 22 42 2D 50 3A 38 20 30 |N.8:.15,"B-P:8 0|
00000760: 22 3A 81 4A B2 30 A4 37 3A 98 38 2C 46 24 28 49 |":.J.0.7:.8,F$(I|
00000770: AA 4A 29 3B 3A 82 3A 98 31 35 2C 22 42 2D 50 3A |.J);:.:.15,"B-P:|
00000780: 38 20 30 22 00 C2 0F 2B 00 54 B2 31 38 3A 53 B2 |8 0"...+.T.18:S.|
00000790: B5 28 28 49 AA 37 29 AD 38 29 AC 33 AA 31 AB 31 |.((I.7).8).3.1.1|
000007A0: 37 AC B5 28 B5 28 28 49 AA 37 29 AD 38 29 AD 36 |7..(.((I.7).8).6|
000007B0: 29 3A 8B 49 AA 38 B1 4E A7 54 B2 30 3A 53 B2 32 |):.I.8.N.T.0:S.2|
000007C0: 35 35 00 06 10 2C 00 98 38 2C C7 28 54 29 C7 28 |55...,..8,.(T).(|
000007D0: 53 29 3B 3A 98 31 35 2C 22 55 32 20 38 20 30 20 |S);:.15,"U2 8 0 |
000007E0: 31 38 22 B5 28 28 49 AB 31 29 AD 38 29 AC 33 AA |18".((I.1).8).3.|
000007F0: 31 AB 31 37 AC B5 28 B5 28 28 49 AB 31 29 AD 38 |1.17..(.((I.1).8|
00000800: 29 AD 36 29 3A 82 00 39 10 2D 00 A0 38 3A A0 31 |).6):..9.-..8:.1|
00000810: 35 3A 99 22 93 05 09 22 C7 28 33 34 29 22 44 49 |5:."...".(34)"DI|
00000820: 52 45 43 54 4F 52 49 45 53 20 45 58 50 4C 41 49 |RECTORIES EXPLAI|
00000830: 4E 45 44 22 C7 28 33 34 29 00 52 10 2E 00 99 22 |NED".(34).R...."|
00000840: 42 59 20 4A 41 53 4F 4E 20 46 49 4E 43 48 90 22 |BY JASON FINCH."|
00000850: 3A A2 00 00 00 |:.... |
..O....53280,5:.53281,11:.198,0:.".....
DIRECTORY SORT BY JASON FINCH".
....."....... INSERT THE REQUIRED
DISK":." AND THEN PRESS 'RETURN'
.......A$:.A$..G(13).3......"...","....
":.,"... PROCESSING
DIRECTORY ".M....,"...
":."... FILENAME TYPE SIZE
TRCK SECT..".....T$(0)."DEL":T$(1)."SEQ
":T$(2)."PRG":T$(3)."USR":T$(4)."REL":T$
(5)."???".O...N.0:S.1:T.18:.F$(144),S$(1
44):.15,8,15:.8,8,8,"#"......15,"U1 8 0"
T;S:.#8,A$:T.F(A$.G(0)):.#8,A$:S.F(A$.G(
0)).H....I.0.7:.15,"B-P:8"I.32:S$."":.#8
,A$:.#8,A$:.#8,P$:.#8,T$.\....T$."".P$."
".24.....T$.H(T$.G(0),1):P$.H(P$.G(0),1)
.....N$.G(0).G(0).P$.T$:.J.1.28:.#8,A$:.
A$."".A$.G(0).G....F(A$).160.15......J.1
.J.18.S$.S$.A$.....N$.N$.A$:.:.S$.S$(N).
N.N.1:F$(N).N$:S$(N).S$:.19.+....K.1.N:.
S$.S$(K).18.U...N.N.1:.J.N.K.1..1:F$(J).
F$(J.1):S$(J).S$(J.1):.:F$(K).N$:S$(K).S
$:K.N.{.........TP.F(J(N$,3,1)):TK.F(J(N
$,4,1)):T2.TP.15:.T2.4.T2.5.....SC.F(J(N
$,5,1)):." "J(N$,6,16)" "T$(T2);:.(TP.1
28).0.."....*...";......(TP.64).64.."<."
;.E....".."I(" ".D(F(J(N$,31,1))),3)"
"I(D(TK),2);.Z...." "I(D(SC),2).H....
:.T..0.8......N.144..I.1.(144.N).7:.J.0.
31:F$(I.N).F$(I.N).G(0):.J,I.V...."... P
RESS ANY KEY TO VIEW SORTED DIRECTORY"..
...." (PRESS 'SHIFT' TO PAUSE THE LISTIN
G)":.198,0:.198,1:.198,0.]...."...0 ."G(
34);:.15,"U1 8 0 18 0":.15,"B-P:8 144":.
I.1.16:.#8,A$......A$;:.:.G(34)G(32);:.#
8,A$:.#8,A$:.I.1.5:.#8,A$:.A$;:.:..U....
I.1.N:.J(D(F(J(F$(I),31,1)).F(J(F$(I),32
,1)).256),2);.......5)G(34)S$(I)G(34).24
);:P.F(J(F$(I),3,1)):P2.P.15:.P2.4.P2.5.
<. ..T$(P2);:.(P.128).0.."....*...";.Q.!
..(P.64).64.."<";.W."...H.#..B(653).1.35
...$..:.". .OK. PRESS 'F1' TO SAVE THE D
IRECTORY".C.%.." OR ANY OTHER KEY TO ABO
RT.":.198,0.U.&..A$:.A$."".38...'..A$..G
(133). 8: 15:..).(..".."," ..
":.," . SAVING DIRECTORY ".F.)..,
" . "...*..I.1.N.8:.15,
"B-P:8 0":.J.0.7:.8,F$(I.J);:.:.15,"B-P:
8 0".B.+.T.18:S..((I.7).8).3.1.17..(.((I
.7).8).6):.I.8.N.T.0:S.255...,..8,G(T)G(
S);:.15,"U2 8 0 18".((I.1).8).3.1.17..(.
((I.1).8).6):..9.-. 8: 15:."..."G(34)"DI
RECTORIES EXPLAINED"G(34).R...."BY JASON
FINCH.":....
> CLICK IMAGE PREVIEW FOR FULL MODAL