DPAGE
FILE INFORMATION
FILENAME(S): DPAGE
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 19:47:27
APPEARS ON: 1 disk(s)
FILE HASH
b21da8a5c5a923cf64dffcbe7a71574b0a7aba72f0aa12a9ad47a8d4c0feebe3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A4 1 | DPAGE | PRG | Curtcool, Frank | 26 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 8F 20 44 50 41 47 45 00 39 08 |....d.. DPAGE.9.|
00000010: 6E 00 53 50 24 B2 22 20 22 3A 4E 4C 24 B2 C7 28 |n.SP$." ":NL$..(|
00000020: 30 29 3A 48 58 24 B2 22 30 31 32 33 34 35 36 37 |0):HX$."01234567|
00000030: 38 39 41 42 43 44 45 46 22 00 64 08 6F 00 46 53 |89ABCDEF".d.o.FS|
00000040: 24 B2 22 22 3A 81 49 B2 36 34 A4 39 35 3A 46 53 |$."":.I.64.95:FS|
00000050: 24 B2 46 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 |$.FS$."."..(I)."|
00000060: 92 22 3A 82 00 93 08 70 00 53 53 24 B2 22 20 20 |.":....p.SS$." |
00000070: 22 3A 81 49 B2 31 39 32 A4 32 32 33 3A 53 53 24 |":.I.192.223:SS$|
00000080: B2 53 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 |.SS$."."..(I).".|
00000090: 22 3A 82 00 A0 08 78 00 86 20 41 24 28 31 35 29 |":....x.. A$(15)|
000000A0: 00 AB 08 79 00 44 24 B2 22 30 22 00 C3 08 C8 00 |...y.D$."0".....|
000000B0: 85 22 45 4E 54 45 52 20 43 4F 4D 4D 41 4E 44 22 |."ENTER COMMAND"|
000000C0: 3B 43 24 00 D3 08 C9 00 43 31 24 B2 C8 28 43 24 |;C$.....C1$..(C$|
000000D0: 2C 31 29 00 E4 08 CA 00 8B 43 31 24 B2 22 4F 22 |,1)......C1$."O"|
000000E0: A7 33 30 30 00 F5 08 CB 00 8B 43 31 24 B2 22 44 |.300......C1$."D|
000000F0: 22 A7 34 30 30 00 06 09 CC 00 8B 43 31 24 B2 22 |".400......C1$."|
00000100: 52 22 A7 35 30 30 00 17 09 CD 00 8B 43 31 24 B2 |R".500......C1$.|
00000110: 22 4D 22 A7 35 35 30 00 28 09 CE 00 8B 43 31 24 |"M".550.(....C1$|
00000120: B2 22 57 22 A7 36 30 30 00 39 09 CF 00 8B 43 31 |."W".600.9....C1|
00000130: 24 B2 22 48 22 A7 32 32 30 00 55 09 D2 00 99 22 |$."H".220.U...."|
00000140: 49 4E 56 41 4C 49 44 20 43 4F 4D 4D 41 4E 44 22 |INVALID COMMAND"|
00000150: 3A 89 32 30 30 00 7C 09 DC 00 98 31 35 2C 22 49 |:.200.|....15,"I|
00000160: 22 44 24 3A A0 32 3A A0 34 3A A0 31 35 3A 99 22 |"D$:.2:.4:.15:."|
00000170: 44 50 41 47 45 20 45 4E 44 22 3A 80 00 87 09 2C |DPAGE END":....,|
00000180: 01 8F 20 4F 50 45 4E 00 97 09 36 01 8B 4F B2 31 |.. OPEN...6..O.1|
00000190: A7 A0 32 3A A0 31 35 00 9F 09 3B 01 4F B2 31 00 |..2:.15...;.O.1.|
000001A0: B8 09 3C 01 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |..<..15,8,15,"I"|
000001B0: AA 44 24 3A 8D 36 35 30 00 CC 09 3D 01 9F 32 2C |.D$:.650...=..2,|
000001C0: 38 2C 32 2C 22 23 22 3A 8D 36 35 30 00 DD 09 45 |8,2,"#":.650...E|
000001D0: 01 8B C3 28 43 24 29 B1 31 A7 33 35 30 00 EF 09 |...(C$).1.350...|
000001E0: 4A 01 54 B2 31 38 3A 53 B2 30 3A 8D 39 39 30 00 |J.T.18:S.0:.990.|
000001F0: 07 0A 4F 01 50 B2 31 34 34 3A 98 31 35 2C 22 42 |..O.P.144:.15,"B|
00000200: 2D 50 3A 32 2C 22 50 00 2B 0A 54 01 42 24 B2 22 |-P:2,"P.+.T.B$."|
00000210: 22 3A 81 49 B2 31 A4 32 30 3A A1 23 32 2C 41 24 |":.I.1.20:.#2,A$|
00000220: 3A 42 24 B2 42 24 AA 41 24 3A 82 00 45 0A 59 01 |:B$.B$.A$:..E.Y.|
00000230: 99 22 12 22 42 24 22 92 20 4F 50 45 4E 45 44 22 |."."B$". OPENED"|
00000240: 3A 89 32 30 30 00 54 0A 5E 01 46 24 B2 CA 28 43 |:.200.T.^.F$..(C|
00000250: 24 2C 33 29 00 61 0A 63 01 54 B2 31 38 3A 53 B2 |$,3).a.c.T.18:S.|
00000260: 31 00 6A 0A 64 01 8D 39 39 30 00 88 0A 68 01 81 |1.j.d..990...h..|
00000270: 50 B2 32 A4 32 32 36 A9 33 32 3A 98 31 35 2C 22 |P.2.226.32:.15,"|
00000280: 42 2D 50 3A 32 2C 22 50 00 9E 0A 69 01 A1 23 32 |B-P:2,"P...i..#2|
00000290: 2C 41 24 3A 8B 41 24 B2 22 22 A7 33 37 30 00 B1 |,A$:.A$."".370..|
000002A0: 0A 6A 01 8B C6 28 41 24 29 B3 31 32 38 A7 33 37 |.j...(A$).128.37|
000002B0: 30 00 BF 0A 6B 01 A1 23 32 2C 54 24 2C 53 24 00 |0...k..#2,T$,S$.|
000002C0: E8 0A 6C 01 81 49 B2 31 A4 C3 28 46 24 29 3A A1 |..l..I.1..(F$):.|
000002D0: 23 32 2C 41 24 3A 8B 41 24 B3 B1 CA 28 46 24 2C |#2,A$:.A$...(F$,|
000002E0: 49 2C 31 29 A7 33 37 30 00 F3 0A 6D 01 82 3A 8D |I,1).370...m..:.|
000002F0: 39 39 32 00 0D 0B 6E 01 99 22 12 22 46 24 22 92 |992...n.."."F$".|
00000300: 20 4F 50 45 4E 45 44 22 3A 89 32 30 30 00 1E 0B | OPENED":.200...|
00000310: 72 01 82 50 3A 54 B2 54 25 3A 53 B2 53 25 00 30 |r..P:T.T%:S.S%.0|
00000320: 0B 77 01 8B 54 B1 30 AF 54 B3 33 36 A7 33 35 36 |.w..T.0.T.36.356|
00000330: 00 4D 0B 78 01 99 22 46 49 4C 52 9D 45 20 4E 4F |.M.x.."FILR.E NO|
00000340: 54 20 46 4F 55 4E 44 22 3A 89 32 30 30 00 5B 0B |T FOUND":.200.[.|
00000350: 90 01 8F 20 44 49 53 50 4C 41 59 00 6C 0B 91 01 |... DISPLAY.l...|
00000360: 8B C3 28 43 24 29 B2 31 A7 34 30 36 00 75 0B 95 |..(C$).1.406.u..|
00000370: 01 8D 39 35 30 00 91 0B 96 01 54 B2 54 25 3A 53 |..950.....T.T%:S|
00000380: B2 53 25 3A 8B 54 B2 30 B0 54 B1 33 35 A7 32 31 |.S%:.T.0.T.35.21|
00000390: 30 00 AE 0B 9A 01 99 22 93 11 54 52 41 43 4B 22 |0......"..TRACK"|
000003A0: 54 22 20 53 45 43 54 4F 52 22 53 22 11 22 00 B7 |T" SECTOR"S"."..|
000003B0: 0B A4 01 8D 39 39 30 00 CD 0B A9 01 41 24 28 30 |....990.....A$(0|
000003C0: 29 B2 54 24 3A 41 24 28 31 29 B2 53 24 00 D5 0B |).T$:A$(1).S$...|
000003D0: AE 01 4B B2 32 00 DE 0B AF 01 8D 39 39 31 00 F4 |..K.2......991..|
000003E0: 0B B0 01 41 24 28 30 29 B2 54 24 3A 41 24 28 31 |...A$(0).T$:A$(1|
000003F0: 29 B2 53 24 00 1D 0C B3 01 81 4A B2 30 A4 33 31 |).S$......J.0.31|
00000400: 3A 8B 4A B2 31 36 A7 8D 37 31 30 3A 8B 5A 24 B2 |:.J.16..710:.Z$.|
00000410: 22 4E 22 A7 4A B2 38 30 3A 89 34 35 38 00 25 0C |"N".J.80:.458.%.|
00000420: B4 01 4B B2 32 00 4E 0C B6 01 81 4A B2 30 A4 33 |..K.2.N....J.0.3|
00000430: 31 3A 8B 4A B2 31 36 A7 8D 37 31 30 3A 8B 5A 24 |1:.J.16..710:.Z$|
00000440: B2 22 4E 22 A7 4A B2 38 30 3A 89 34 35 38 00 59 |."N".J.80:.458.Y|
00000450: 0C B8 01 81 49 B2 4B A4 37 00 7B 0C BA 01 A1 23 |....I.K.7.{....#|
00000460: 32 2C 41 24 28 49 29 3A 8B 41 24 28 49 29 B2 22 |2,A$(I):.A$(I)."|
00000470: 22 A7 41 24 28 49 29 B2 4E 4C 24 00 85 0C BE 01 |".A$(I).NL$.....|
00000480: 82 3A 4B B2 30 00 AC 0C C0 01 41 24 B2 22 22 3A |.:K.0.....A$."":|
00000490: 42 24 B2 22 3A 22 3A 4E B2 4A AC 38 3A 8D 37 39 |B$.":":N.J.8:.79|
000004A0: 30 3A 41 24 B2 41 24 AA 22 3A 20 22 00 C7 0C C2 |0:A$.A$.": "....|
000004B0: 01 81 49 B2 30 A4 37 3A 4E B2 C6 28 41 24 28 49 |..I.0.7:N..(A$(I|
000004C0: 29 29 3A 8D 37 39 30 00 E2 0C C4 01 43 24 B2 41 |)):.790.....C$.A|
000004D0: 24 28 49 29 3A 8D 38 35 30 3A 42 24 B2 42 24 AA |$(I):.850:B$.B$.|
000004E0: 43 24 00 EE 0C C6 01 82 3A 99 41 24 42 24 00 FC |C$......:.A$B$..|
000004F0: 0C CA 01 82 4A 3A 99 3A 89 32 30 30 00 07 0D F4 |....J:.:.200....|
00000500: 01 8F 20 52 45 41 44 00 1A 0D F9 01 8D 39 35 30 |.. READ......950|
00000510: 3A 54 B2 54 25 3A 53 B2 53 25 00 35 0D FA 01 98 |:T.T%:S.S%.5....|
00000520: 31 35 2C 22 55 31 3A 32 2C 22 44 24 3B 54 3B 53 |15,"U1:2,"D$;T;S|
00000530: 3A 8D 36 35 30 00 3E 0D FE 01 89 32 30 30 00 4B |:.650.>....200.K|
00000540: 0D 26 02 8F 20 4D 4F 44 49 46 59 00 54 0D 2B 02 |.&.. MODIFY.T.+.|
00000550: 8D 39 35 30 00 62 0D 30 02 50 B2 54 25 3A 56 B2 |.950.b.0.P.T%:V.|
00000560: 53 25 00 79 0D 35 02 98 31 35 2C 22 42 2D 50 3A |S%.y.5..15,"B-P:|
00000570: 32 2C 22 50 3A 8D 36 35 30 00 8B 0D 3A 02 98 32 |2,"P:.650...:..2|
00000580: 2C C7 28 56 29 3B 3A 89 32 30 30 00 97 0D 58 02 |,.(V);:.200...X.|
00000590: 8F 20 57 52 49 54 45 00 B7 0D 62 02 98 31 35 2C |. WRITE...b..15,|
000005A0: 22 55 32 3A 32 2C 22 44 24 3B 54 3B 53 3A 8D 36 |"U2:2,"D$;T;S:.6|
000005B0: 35 30 3A 89 32 30 30 00 BD 0D 76 02 8F 00 D1 0D |50:.200...v.....|
000005C0: 8A 02 8F 20 45 52 52 4F 52 2D 52 4F 55 54 49 4E |... ERROR-ROUTIN|
000005D0: 45 00 F1 0D A8 02 84 31 35 2C 45 4E 2C 45 4D 24 |E......15,EN,EM$|
000005E0: 2C 45 54 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 20 |,ET,ES:. EN.0 . |
000005F0: 8E 00 11 0E B2 02 99 22 12 44 49 53 4B 20 45 52 |.......".DISK ER|
00000600: 52 4F 52 92 22 45 4E 2C 45 4D 24 2C 45 54 2C 45 |ROR."EN,EM$,ET,E|
00000610: 53 00 17 0E BC 02 80 00 2D 0E C6 02 8F 20 53 43 |S.......-.... SC|
00000620: 52 45 45 4E 20 43 4F 4E 54 49 4E 55 45 00 45 0E |REEN CONTINUE.E.|
00000630: E4 02 99 22 11 1D 1D 43 4F 4E 54 49 4E 55 45 28 |..."...CONTINUE(|
00000640: 59 2F 4E 29 22 00 5B 0E EE 02 A1 5A 24 3A 8B 20 |Y/N)".[....Z$:. |
00000650: 5A 24 B2 22 22 20 A7 20 37 35 30 00 6B 0E F8 02 |Z$."" . 750.k...|
00000660: 8B 5A 24 B2 22 4E 22 A7 99 3A 8E 00 7F 0E 02 03 |.Z$."N"..:......|
00000670: 8B 20 5A 24 B3 B1 22 59 22 20 A7 20 37 35 30 00 |. Z$.."Y" . 750.|
00000680: A1 0E 0C 03 99 22 93 11 54 52 41 43 4B 22 20 54 |....."..TRACK" T|
00000690: 20 22 20 53 45 43 54 4F 52 22 53 20 22 11 22 3A | " SECTOR"S ".":|
000006A0: 8E 00 A7 0E 16 03 8F 00 CA 0E 34 03 41 31 B2 B5 |..........4.A1..|
000006B0: 28 4E AD 31 36 29 3A 41 24 B2 41 24 AA CA 28 48 |(N.16):A$.A$..(H|
000006C0: 58 24 2C 41 31 AA 31 2C 31 29 00 F0 0E 3E 03 41 |X$,A1.1,1)...>.A|
000006D0: 32 B2 B5 28 4E AB 31 36 AC 41 31 29 3A 41 24 B2 |2..(N.16.A1):A$.|
000006E0: 41 24 AA CA 28 48 58 24 2C 41 32 AA 31 2C 31 29 |A$..(HX$,A2.1,1)|
000006F0: 00 00 0F 48 03 41 24 B2 41 24 AA 53 50 24 3A 8E |...H.A$.A$.SP$:.|
00000700: 00 06 0F 52 03 8F 00 20 0F 7A 03 8B 20 C6 28 43 |...R... .z.. .(C|
00000710: 24 29 B3 33 32 20 A7 20 43 24 B2 22 20 22 3A 8E |$).32 . C$." ":.|
00000720: 00 26 0F 84 03 8F 00 46 0F 8E 03 8B 20 C6 28 43 |.&.....F.... .(C|
00000730: 24 29 B3 31 32 38 20 B0 20 C6 28 43 24 29 B1 31 |$).128 . .(C$).1|
00000740: 35 39 20 A7 20 8E 00 66 0F 98 03 43 24 B2 CA 28 |59 . ..f...C$..(|
00000750: 53 53 24 2C 33 AC 28 C6 28 43 24 29 AB 31 32 37 |SS$,3.(.(C$).127|
00000760: 29 2C 33 29 3A 8E 00 78 0F B6 03 54 25 B2 C5 28 |),3):..x...T%..(|
00000770: CA 28 43 24 2C 33 29 29 00 96 0F BB 03 81 49 B2 |.(C$,3))......I.|
00000780: 34 A4 31 30 3A 8B CA 28 43 24 2C 49 2C 31 29 B3 |4.10:..(C$,I,1).|
00000790: B1 22 2F 22 A7 82 00 AC 0F C0 03 53 25 B2 C5 28 |."/".......S%..(|
000007A0: CA 28 43 24 2C 49 AA 31 29 29 3A 8E 00 C7 0F DE |.(C$,I.1)):.....|
000007B0: 03 98 31 35 2C 22 55 31 3A 32 2C 22 44 24 3B 54 |..15,"U1:2,"D$;T|
000007C0: 3B 53 3A 8D 36 35 30 00 E3 0F DF 03 98 31 35 2C |;S:.650......15,|
000007D0: 22 42 2D 50 3A 32 2C 30 22 3A A1 23 32 2C 54 24 |"B-P:2,0":.#2,T$|
000007E0: 2C 53 24 00 F5 0F E0 03 8B 54 24 B2 22 22 A7 54 |,S$......T$."".T|
000007F0: 24 B2 4E 4C 24 00 07 10 E1 03 8B 53 24 B2 22 22 |$.NL$......S$.""|
00000800: A7 53 24 B2 4E 4C 24 00 1F 10 E2 03 54 25 B2 C6 |.S$.NL$.....T%..|
00000810: 28 54 24 29 3A 53 25 B2 C6 28 53 24 29 3A 8E 00 |(T$):S%..(S$):..|
00000820: 00 00 00 1D |.... |
....D.. DPAGE.9.N.SP$." ":NL$.G(0):HX$."
0123456789ABCDEF".D.O.FS$."":.I.64.95:FS
$.FS$.".".G(I).".":....P.SS$." ":.I.192
.223:SS$.SS$.".".G(I).".":.. .X.. A$(15)
...Y.D$."0".C.H.."ENTER COMMAND";C$.S.I.
C1$.H(C$,1)...J..C1$."O".300...K..C1$."D
".400...L..C1$."R".500...M..C1$."M".550.
(.N..C1$."W".600.9.O..C1$."H".220.U.R.."
INVALID COMMAND":.200.|....15,"I"D$: 2:
4: 15:."DPAGE END":....,.. OPEN...6..O.1
. 2: 15...;.O.1...<..15,8,15,"I".D$:.650
.L.=..2,8,2,"#":.650...E..C(C$).1.350...
J.T.18:S.0:.990...O.P.144:.15,"B-P:2,"P.
+.T.B$."":.I.1.20:.#2,A$:B$.B$.A$:..E.Y.
."."B$". OPENED":.200.T.^.F$.J(C$,3).A.C
.T.18:S.1.J.D..990...H..P.2.226.32:.15,"
B-P:2,"P...I..#2,A$:.A$."".370...J..F(A$
).128.370...K..#2,T$,S$...L..I.1.C(F$):.
#2,A$:.A$..J(F$,I,1).370...M..:.992...N.
."."F$". OPENED":.200...R..P:T.T%:S.S%.0
.W..T.0.T.36.356.M.X.."FILR.E NOT FOUND"
:.200.[.... DISPLAY.L....C(C$).1.406.U..
..950.....T.T%:S.S%:.T.0.T.35.210......"
..TRACK"T" SECTOR"S"."......990.M...A$(0
).T$:A$(1).S$.U...K.2......991.....A$(0)
.T$:A$(1).S$......J.0.31:.J.16..710:.Z$.
"N".J.80:.458.%...K.2.N....J.0.31:.J.16.
.710:.Z$."N".J.80:.458.Y....I.K.7.{....#
2,A$(I):.A$(I)."".A$(I).NL$......:K.0...
..A$."":B$.":":N.J.8:.790:A$.A$.": ".G.B
..I.0.7:N.F(A$(I)):.790...D.C$.A$(I):.85
0:B$.B$.C$...F..:.A$B$...J..J:.:.200....
.. READ......950:T.T%:S.S%.5....15,"U1:2
,"D$;T;S:.650.>....200.K.&.. MODIFY.T.+.
.950.B.0.P.T%:V.S%.Y.5..15,"B-P:2,"P:.65
0...:..2,G(V);:.200...X.. WRITE...B..15,
"U2:2,"D$;T;S:.650:.200...V...Q.... ERRO
R-ROUTINE......15,EN,EM$,ET,ES:. EN.0 .
.......".DISK ERROR."EN,EM$,ET,ES.......
-.F.. SCREEN CONTINUE.E...."...CONTINUE(
Y/N)".[....Z$:. Z$."" . 750.K....Z$."N".
.:...... Z$.."Y" . 750......"..TRACK" T
" SECTOR"S ".":........J.4.A1..(N.16):A
$.A$.J(HX$,A1.1,1)...>.A2..(N.16.A1):A$.
A$.J(HX$,A2.1,1)...H.A$.A$.SP$:....R...
.Z.. F(C$).32 . C$." ":..&.....F.... F(C
$).128 . F(C$).159 . ..F...C$.J(SS$,3.(F
(C$).127),3):..X...T%.E(J(C$,3))......I.
4.10:.J(C$,I,1).."/".......S%.E(J(C$,I.1
)):..G....15,"U1:2,"D$;T;S:.650......15,
"B-P:2,0":.#2,T$,S$......T$."".T$.NL$...
...S$."".S$.NL$.....T%.F(T$):S%.F(S$):..
....
> CLICK IMAGE PREVIEW FOR FULL MODAL