DMON-BASIC
FILE INFORMATION
FILENAME(S): DMON-BASIC
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-02 00:02:03
APPEARS ON: 1 disk(s)
FILE HASH
96fd88ca333c87ba44fb3a2f69f07cee07e34871e11e608abab09b83e59ed6a8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | DMON-BASIC | PRG | earthshaker | 8 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 44 49 53 4B 20 45 44 49 |....... DISK EDI| 00000010: 54 4F 52 20 46 4F 52 20 43 42 4D 20 36 34 00 38 |TOR FOR CBM 64.8| 00000020: 08 14 00 8F 20 53 54 55 41 52 54 20 43 4F 4F 4B |.... STUART COOK| 00000030: 45 20 41 55 47 27 38 34 00 4D 08 1E 00 8F 20 53 |E AUG'84.M.... S| 00000040: 45 54 20 55 50 20 53 54 52 49 4E 47 53 00 5B 08 |ET UP STRINGS.[.| 00000050: 28 00 86 20 4E 24 28 32 35 35 29 00 69 08 32 00 |(.. N$(255).i.2.| 00000060: 86 20 51 31 24 28 33 32 29 00 78 08 3C 00 81 20 |. Q1$(32).x.<.. | 00000070: 44 31 B2 30 20 A4 31 35 00 84 08 46 00 44 B2 44 |D1.0 .15...F.D.D| 00000080: 31 AC 31 36 00 9F 08 50 00 41 24 B2 C7 28 44 31 |1.16...P.A$..(D1| 00000090: AA 34 38 AB 28 37 AC 28 44 31 B1 39 29 29 29 00 |.48.(7.(D1.9))).| 000000A0: AF 08 5A 00 81 20 44 32 B2 30 20 A4 20 31 35 00 |..Z.. D2.0 . 15.| 000000B0: CA 08 64 00 42 24 B2 C7 28 44 32 AA 34 38 AB 28 |..d.B$..(D2.48.(| 000000C0: 37 AC 28 44 32 B1 39 29 29 29 00 DD 08 6E 00 4E |7.(D2.9)))...n.N| 000000D0: 24 28 44 AA 44 32 29 B2 41 24 AA 42 24 00 E8 08 |$(D.D2).A$.B$...| 000000E0: 78 00 82 44 32 2C 44 31 00 17 09 82 00 4D 24 B2 |x..D2,D1.....M$.| 000000F0: 22 48 2D 48 45 58 2F 41 53 43 20 53 2D 53 45 43 |"H-HEX/ASC S-SEC| 00000100: 20 54 2D 54 52 41 43 4B 20 45 2D 45 44 49 54 20 | T-TRACK E-EDIT | 00000110: 51 2D 51 55 49 54 22 00 39 09 8C 00 44 24 B2 22 |Q-QUIT".9...D$."| 00000120: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000130: 11 11 11 11 11 11 11 11 22 00 59 09 96 00 44 31 |........".Y...D1| 00000140: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............| 00000150: 11 11 11 11 11 11 11 11 11 00 97 09 A0 00 54 24 |..............T$| 00000160: B2 22 20 20 20 20 20 45 4E 54 45 52 20 4E 45 57 |." ENTER NEW| 00000170: 20 54 52 41 43 4B 20 20 20 20 20 20 20 20 20 20 | TRACK | 00000180: 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D | ........| 00000190: 9D 9D 9D 9D 9D 9D 22 00 D5 09 AA 00 52 24 B2 22 |......".....R$."| 000001A0: 20 20 20 20 20 45 4E 54 45 52 20 4E 45 57 20 53 | ENTER NEW S| 000001B0: 45 43 54 4F 52 20 20 20 20 20 20 20 20 20 20 20 |ECTOR | 000001C0: 20 20 20 20 20 20 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D | ..........| 000001D0: 1D 1D 1D 1D 22 00 DB 09 B4 00 3A 00 F3 09 BE 00 |....".....:.....| 000001E0: 8F 20 53 45 54 20 55 50 20 54 48 45 20 53 43 52 |. SET UP THE SCR| 000001F0: 45 45 4E 00 22 0A C8 00 99 22 93 11 1D 1D 1D 1D |EEN."...."......| 00000200: 1D 1D 30 20 31 20 32 20 33 20 34 20 35 20 36 20 |..0 1 2 3 4 5 6 | 00000210: 37 20 38 20 39 20 41 20 42 20 43 20 44 20 45 20 |7 8 9 A B C D E | 00000220: 46 22 00 33 0A D2 00 81 20 58 20 B2 20 30 20 A4 |F".3.... X . 0 .| 00000230: 20 31 35 00 43 0A DC 00 99 22 1D 1D 22 3B 4E 24 | 15.C...."..";N$| 00000240: 28 58 29 00 4A 0A E6 00 82 58 00 7E 0A F0 00 99 |(X).J....X.~....| 00000250: 22 11 11 11 12 20 20 20 20 20 20 20 20 20 20 20 |".... | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 86 | "..| 00000280: 0A FA 00 99 4D 24 00 8C 0A 04 01 3A 00 92 0A 0E |....M$.....:....| 00000290: 01 3A 00 BC 0A 18 01 8F 20 4F 50 45 4E 20 41 4C |.:...... OPEN AL| 000002A0: 4C 20 46 49 4C 45 53 20 41 4E 44 20 53 45 54 20 |L FILES AND SET | 000002B0: 55 50 20 56 41 52 49 41 42 4C 45 53 00 E3 0A 22 |UP VARIABLES..."| 000002C0: 01 9F 20 31 2C 30 3A 8F 20 4F 50 45 4E 20 43 48 |.. 1,0:. OPEN CH| 000002D0: 41 4E 4E 45 4C 20 4F 4E 45 20 54 4F 20 53 43 52 |ANNEL ONE TO SCR| 000002E0: 45 45 4E 00 0F 0B 2C 01 9F 20 32 2C 38 2C 32 2C |EEN...,.. 2,8,2,| 000002F0: 22 23 22 3A 8F 20 4F 4F 50 45 4E 20 41 4E 59 20 |"#":. OOPEN ANY | 00000300: 42 55 46 46 45 52 20 4F 4E 20 44 52 49 56 45 00 |BUFFER ON DRIVE.| 00000310: 3F 0B 36 01 9F 20 33 2C 38 2C 31 35 3A 8F 20 4F |?.6.. 3,8,15:. O| 00000320: 50 45 4E 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |PEN ERROR CHANNE| 00000330: 4C 20 54 4F 20 44 49 53 4B 20 44 52 49 56 45 00 |L TO DISK DRIVE.| 00000340: 56 0B 40 01 54 B2 31 38 3A 53 B2 30 3A 45 52 52 |V.@.T.18:S.0:ERR| 00000350: B2 30 3A 48 B2 30 00 5C 0B 4A 01 3A 00 62 0B 54 |.0:H.0.\.J.:.b.T| 00000360: 01 3A 00 81 0B 5E 01 8F 20 50 52 49 4E 54 20 53 |.:...^.. PRINT S| 00000370: 45 43 54 4F 52 20 4F 4E 54 4F 20 53 43 52 45 45 |ECTOR ONTO SCREE| 00000380: 4E 00 A4 0B 68 01 99 44 31 24 3B 22 1D 1D 1D 1D |N...h..D1$;"....| 00000390: 1D 1D 54 52 41 43 4B 3A 22 3B 54 3B 22 12 20 20 |..TRACK:";T;". | 000003A0: 20 92 22 3B 00 D5 0B 72 01 99 44 31 24 3B 22 1D | .";...r..D1$;".| 000003B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000003C0: 1D 1D 53 45 43 54 4F 52 3A 22 3B 53 3B 22 12 20 |..SECTOR:";S;". | 000003D0: 20 20 20 92 22 00 F9 0B 7C 01 8D 35 30 30 3A 8F | ."...|..500:.| 000003E0: 20 52 45 41 44 20 49 4E 20 53 45 43 54 4F 52 20 | READ IN SECTOR | 000003F0: 54 4F 20 42 55 46 46 45 52 00 0C 0C 86 01 8D 35 |TO BUFFER......5| 00000400: 35 30 3A 8F 20 45 52 52 4F 52 20 3F 00 28 0C 90 |50:. ERROR ?.(..| 00000410: 01 8B 20 45 52 52 B2 31 20 A7 20 A0 31 3A A0 32 |.. ERR.1 . .1:.2| 00000420: 3A A0 33 3A 89 32 38 30 00 41 0C 9A 01 8D 36 33 |:.3:.280.A....63| 00000430: 30 3A 8F 20 50 52 49 4E 54 20 4F 55 54 20 52 45 |0:. PRINT OUT RE| 00000440: 43 00 55 0C A4 01 A1 20 4B 24 3A 8B 4B 24 B2 22 |C.U.... K$:.K$."| 00000450: 22 A7 34 32 30 00 72 0C AE 01 8B 4B 24 B2 22 54 |".420.r....K$."T| 00000460: 22 A7 99 44 24 3B 54 24 3B 3A 85 20 54 3A 89 33 |"..D$;T$;:. T:.3| 00000470: 35 30 00 8F 0C B8 01 8B 4B 24 B2 22 53 22 A7 99 |50......K$."S"..| 00000480: 44 24 3B 52 24 3B 3A 85 20 53 3A 89 34 32 30 00 |D$;R$;:. S:.420.| 00000490: AB 0C C2 01 8B 20 4B 24 B2 22 48 22 AF 20 48 B2 |..... K$."H". H.| 000004A0: 30 A7 20 48 B2 31 3A 89 33 35 30 00 C7 0C CC 01 |0. H.1:.350.....| 000004B0: 8B 20 4B 24 B2 22 48 22 AF 20 48 B2 31 A7 20 48 |. K$."H". H.1. H| 000004C0: B2 30 3A 89 33 35 30 00 E0 0C D6 01 8B 20 4B 24 |.0:.350...... K$| 000004D0: B2 22 45 22 A7 8D 38 38 30 3A 99 44 24 3B 4D 24 |."E"..880:.D$;M$| 000004E0: 00 F8 0C E0 01 8B 20 4B 24 B2 22 51 22 A7 A0 31 |...... K$."Q"..1| 000004F0: 3A A0 32 3A A0 33 3A 90 00 01 0D EA 01 89 34 32 |:.2:.3:.......42| 00000500: 30 00 1E 0D F4 01 8F 20 52 45 41 44 20 53 45 43 |0...... READ SEC| 00000510: 54 4F 52 20 46 52 4F 4D 20 44 52 49 56 45 00 32 |TOR FROM DRIVE.2| 00000520: 0D FE 01 98 32 2C 22 55 31 22 3B 32 3B 30 3B 54 |....2,"U1";2;0;T| 00000530: 3B 53 00 38 0D 08 02 8E 00 3E 0D 12 02 3A 00 44 |;S.8.....>...:.D| 00000540: 0D 1C 02 3A 00 5E 0D 26 02 8F 20 43 48 45 43 4B |...:.^.&.. CHECK| 00000550: 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 68 | ERROR CHANNEL.h| 00000560: 0D 30 02 84 33 2C 44 53 00 7A 0D 3A 02 8B 20 44 |.0..3,DS.z.:.. D| 00000570: 53 B3 B1 30 A7 99 20 44 24 3B 00 A3 0D 44 02 8B |S..0.. D$;...D..| 00000580: 20 44 53 B3 B1 30 A7 99 22 20 20 20 20 20 20 20 | DS..0.." | 00000590: 20 20 20 20 20 20 20 12 44 49 53 4B 20 45 52 52 | .DISK ERR| 000005A0: 4F 52 92 00 B7 0D 4E 02 81 20 58 B2 31 20 A4 20 |OR....N.. X.1 . | 000005B0: 31 30 30 20 3A 82 58 00 C6 0D 58 02 99 44 24 3B |100 :.X...X..D$;| 000005C0: 4D 24 3B 22 13 22 00 DB 0D 62 02 8B 20 44 53 20 |M$;"."...b.. DS | 000005D0: B3 B1 30 20 A7 20 45 52 52 B2 31 00 E1 0D 6C 02 |..0 . ERR.1...l.| 000005E0: 8E 00 F6 0D 76 02 8F 20 44 49 53 50 4C 41 59 20 |....v.. DISPLAY | 000005F0: 53 45 43 54 4F 52 00 00 0E 80 02 99 22 13 11 22 |SECTOR......".."| 00000600: 00 0F 0E B2 02 81 20 58 B2 30 20 A4 20 31 35 00 |...... X.0 . 15.| 00000610: 1D 0E BC 02 99 22 1D 1D 1D 1D 1D 22 3B 00 27 0E |.....".....";.'.| 00000620: C6 02 53 24 B2 22 22 00 33 0E D0 02 81 20 59 B2 |..S$."".3.... Y.| 00000630: 30 A4 37 00 45 0E DA 02 A1 23 32 2C 41 24 3A A1 |0.7.E....#2,A$:.| 00000640: 23 32 2C 42 24 00 58 0E E4 02 8B 41 24 B2 22 22 |#2,B$.X....A$.""| 00000650: A7 41 24 B2 C7 28 30 29 00 6B 0E EE 02 8B 42 24 |.A$..(0).k....B$| 00000660: B2 22 22 A7 42 24 B2 C7 28 30 29 00 77 0E F8 02 |."".B$..(0).w...| 00000670: 41 B2 C6 28 41 24 29 00 83 0E 02 03 42 B2 C6 28 |A..(A$).....B..(| 00000680: 42 24 29 00 95 0E 0C 03 8B 20 48 B2 30 A7 99 4E |B$)...... H.0..N| 00000690: 24 28 41 29 3B 00 AF 0E 16 03 8B 20 48 B2 30 A7 |$(A);...... H.0.| 000006A0: 99 22 12 22 3B 4E 24 28 42 29 3B 22 92 22 3B 00 |.".";N$(B);".";.| 000006B0: BF 0E 20 03 8B 41 B3 33 32 A7 20 41 B2 34 36 00 |.. ..A.32. A.46.| 000006C0: CF 0E 2A 03 8B 42 B3 33 32 A7 20 42 B2 34 36 00 |..*..B.32. B.46.| 000006D0: EB 0E 34 03 53 24 B2 53 24 AA 22 20 22 AA C7 28 |..4.S$.S$." "..(| 000006E0: 41 29 AA 22 20 22 AA C7 28 42 29 00 F3 0E 3E 03 |A)." "..(B)...>.| 000006F0: 82 20 59 00 01 0F 48 03 8B 48 B2 31 A7 99 20 53 |. Y...H..H.1.. S| 00000700: 24 00 07 0F 52 03 99 00 0E 0F 5C 03 82 58 00 14 |$...R.....\..X..| 00000710: 0F 66 03 8E 00 2E 0F 70 03 8F 20 45 44 49 54 20 |.f.....p.. EDIT | 00000720: 53 45 43 54 4F 52 20 52 4F 55 54 49 4E 45 00 42 |SECTOR ROUTINE.B| 00000730: 0F 7A 03 8B 20 48 B2 31 20 A7 48 B2 30 3A 8D 36 |.z.. H.1 .H.0:.6| 00000740: 33 30 00 74 0F 84 03 99 44 24 3B 22 46 49 4E 49 |30.t....D$;"FINI| 00000750: 53 48 45 44 20 20 20 20 20 20 20 20 20 20 20 20 |SHED | 00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000770: 20 20 20 22 00 7E 0F 8E 03 84 31 2C 49 24 00 8F | ".~....1,I$..| 00000780: 0F 98 03 8B 20 49 24 B2 22 22 A7 89 39 31 30 00 |.... I$.""..910.| 00000790: AE 0F A2 03 8B 20 C8 28 49 24 2C 38 29 B2 46 49 |..... .(I$,8).FI| 000007A0: 4E 49 53 48 45 44 A7 8D 31 31 31 30 3A 8E 00 BF |NISHED..1110:...| 000007B0: 0F AC 03 51 24 B2 CA 28 49 24 2C 31 2C 32 29 00 |...Q$..(I$,1,2).| 000007C0: D0 0F B6 03 51 24 B2 CA 28 51 24 2C 32 2C 31 29 |....Q$..(Q$,2,1)| 000007D0: 00 DF 0F C0 03 51 B2 C6 28 51 24 29 AB 34 38 00 |.....Q..(Q$).48.| 000007E0: EF 0F CA 03 51 B2 51 AA 37 AC 28 51 B1 39 29 00 |....Q.Q.7.(Q.9).| 000007F0: 02 10 D4 03 51 31 24 B2 CA 28 49 24 2C 34 2C 33 |....Q1$..(I$,4,3| 00000800: 35 29 00 0C 10 DE 03 42 24 B2 22 22 00 1A 10 E8 |5).....B$.""....| 00000810: 03 81 43 B2 30 20 A4 20 31 35 00 30 10 F2 03 41 |..C.0 . 15.0...A| 00000820: 24 B2 CA 28 51 31 24 2C 43 AC 32 AA 31 2C 32 29 |$..(Q1$,C.2.1,2)| 00000830: 00 3F 10 FC 03 41 B2 C6 28 41 24 29 AB 34 38 00 |.?...A..(A$).48.| 00000840: 4F 10 06 04 41 B2 41 AA 37 AC 28 41 B1 39 29 00 |O...A.A.7.(A.9).| 00000850: 63 10 10 04 42 B2 C6 28 CA 28 41 24 2C 32 29 29 |c...B..(.(A$,2))| 00000860: AB 34 38 00 73 10 1A 04 42 B2 42 AA 37 AC 28 42 |.48.s...B.B.7.(B| 00000870: B1 39 29 00 87 10 24 04 42 24 B2 42 24 AA C7 28 |.9)...$.B$.B$..(| 00000880: 41 AC 31 36 AA 42 29 00 8E 10 2E 04 82 43 00 A2 |A.16.B)......C..| 00000890: 10 38 04 98 33 2C 22 42 2D 50 22 3B 32 3B 51 AC |.8..3,"B-P";2;Q.| 000008A0: 31 36 00 AD 10 42 04 98 32 2C 42 24 3B 00 B6 10 |16...B..2,B$;...| 000008B0: 4C 04 89 38 38 30 00 CD 10 56 04 8F 20 57 52 49 |L..880...V.. WRI| 000008C0: 54 45 20 54 48 45 20 42 55 46 46 45 52 00 DE 10 |TE THE BUFFER...| 000008D0: 60 04 98 33 2C 22 42 2D 50 22 3B 32 3B 30 00 F2 |`..3,"B-P";2;0..| 000008E0: 10 6A 04 98 33 2C 22 55 32 22 3B 32 3B 30 3B 54 |.j..3,"U2";2;0;T| 000008F0: 3B 53 00 F8 10 74 04 8E 00 00 00 |;S...t..... |
....... DISK EDITOR FOR CBM 64.8.... STU
ART COOKE AUG'84.M.... SET UP STRINGS.[.
(.. N$(255).I.2.. Q1$(32).X.<.. D1.0 .15
...F.D.D1.16...P.A$.G(D1.48.(7.(D1.9))).
..Z.. D2.0 . 15.J.D.B$.G(D2.48.(7.(D2.9)
))...N.N$(D.D2).A$.B$...X..D2,D1.....M$.
"H-HEX/ASC S-SEC T-TRACK E-EDIT Q-QUIT".
9...D$."........................".Y...D1
$."......................... .T$." E
NTER NEW TRACK ........
......".U...R$." ENTER NEW SECTOR
..............".....:.....
. SET UP THE SCREEN.".H.."........0 1 2
3 4 5 6 7 8 9 A B C D E F".3.R.. X . 0 .
15.C...."..";N$(X).J....X.~...."....
"..
....M$.....:.....:...... OPEN ALL FILES
AND SET UP VARIABLES...".. 1,0:. OPEN CH
ANNEL ONE TO SCREEN...,.. 2,8,2,"#":. OO
PEN ANY BUFFER ON DRIVE.?.6.. 3,8,15:. O
PEN ERROR CHANNEL TO DISK DRIVE.V.@.T.18
:S.0:ERR.0:H.0.\.J.:.B.T.:...^.. PRINT S
ECTOR ONTO SCREEN...H..D1$;"......TRACK:
";T;". .";.U.R..D1$;".................
..SECTOR:";S;". ."...|..500:. READ IN
SECTOR TO BUFFER......550:. ERROR ?.(..
.. ERR.1 . 1: 2: 3:.280.A....630:. PRIN
T OUT REC.U.... K$:.K$."".420.R....K$."T
"..D$;T$;:. T:.350......K$."S"..D$;R$;:.
S:.420...B.. K$."H". H.0. H.1:.350.G.L.
. K$."H". H.1. H.0:.350...V.. K$."E"..88
0:.D$;M$...... K$."Q". 1: 2: 3:.......42
0...... READ SECTOR FROM DRIVE.2....2,"U
1";2;0;T;S.8.....>...:.D...:.^.&.. CHECK
ERROR CHANNEL.H.0..3,DS.Z.:.. DS..0.. D
$;...D.. DS..0.." .DISK ERR
OR....N.. X.1 . 100 :.X.F.X..D$;M$;"."..
.B.. DS ..0 . ERR.1...L.....V.. DISPLAY
SECTOR......".."...... X.0 . 15......"..
...";.'.F.S$."".3.P.. Y.0.7.E.Z..#2,A$:.
#2,B$.X....A$."".A$.G(0).K....B$."".B$.G
(0).W...A.F(A$).....B.F(B$)...... H.0..N
$(A);...... H.0..".";N$(B);".";... ..A.3
2. A.46.O.*..B.32. B.46...4.S$.S$." ".G(
A)." ".G(B)...>.. Y...H..H.1.. S$...R...
..\..X...F.....P.. EDIT SECTOR ROUTINE.B
.Z.. H.1 .H.0:.630.T....D$;"FINISHED
".~....1,I$..
.... I$.""..910...... H(I$,8).FINISHED..
1110:......Q$.J(I$,1,2).P...Q$.J(Q$,2,1)
.....Q.F(Q$).48...J.Q.Q.7.(Q.9)...T.Q1$.
J(I$,4,35).....B$.""......C.0 . 15.0...A
$.J(Q1$,C.2.1,2).?...A.F(A$).48.O...A.A.
7.(A.9).C...B.F(J(A$,2)).48.S...B.B.7.(B
.9)...$.B$.B$.G(A.16.B)......C...8..3,"B
-P";2;Q.16...B..2,B$;...L..880.M.V.. WRI
TE THE BUFFER...`..3,"B-P";2;0...J..3,"U
2";2;0;T;S...T.....
> CLICK IMAGE PREVIEW FOR FULL MODAL