PRG.SMAINT
FILE INFORMATION
FILENAME(S): PRG.SMAINT
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-10-19 22:35:22
APPEARS ON: 2 disk(s)
FILE HASH
80293d847b3896304ab28a281b16923943c408b78d71c520f41422f1527d00cf
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ILROYS ASTLE | PRG.SMAINT | PRG | Radd Maxx | 23 | 4 | DOWNLOAD FILE |
| CNET DATA | PRG.SMAINT | PRG | Radd Maxx | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 00 02 86 41 43 25 28 33 30 29 3A 8D |.......AC%(30):.|
00000010: 35 34 33 3A 54 5A B2 30 00 57 08 01 02 41 24 B2 |543:TZ.0.W...A$.|
00000020: 22 8B 93 8B D3 55 42 20 4D 41 49 4E 54 45 4E 41 |"....UB MAINTENA|
00000030: 4E 43 45 20 4F 50 54 49 4F 4E 53 3A 8B 8B 31 29 |NCE OPTIONS:..1)|
00000040: 20 20 C5 44 49 54 20 45 4E 54 52 59 20 46 49 4C | .DIT ENTRY FIL|
00000050: 45 8B 22 3A 8D 34 30 00 80 08 02 02 41 24 B2 22 |E.":.40.....A$."|
00000060: 32 29 20 20 D6 49 45 57 2F 45 44 49 54 20 42 4F |2) .IEW/EDIT BO|
00000070: 41 52 44 20 44 45 54 41 49 4C 8B 22 3A 8D 34 30 |ARD DETAIL.":.40|
00000080: 00 C5 08 03 02 41 24 B2 22 8B 20 20 20 20 CF 50 |.....A$.". .P|
00000090: 54 49 4F 4E 3F 20 22 3A 8D 34 30 3A 8D 32 32 30 |TION? ":.40:.220|
000000A0: 30 3A 41 B2 C5 28 41 4E 24 29 3A 41 24 B2 41 4E |0:A..(AN$):A$.AN|
000000B0: 24 3A 8D 34 30 3A 91 41 89 35 31 36 2C 35 32 34 |$:.40:.A.516,524|
000000C0: 3A 89 35 34 37 00 EC 08 04 02 41 24 B2 22 8B 8B |:.547.....A$."..|
000000D0: CC 4F 41 44 49 4E 47 20 45 4E 54 52 59 20 46 49 |.OADING ENTRY FI|
000000E0: 4C 45 2E 2E 2E 8B 8B 22 3A 8D 34 30 00 27 09 05 |LE.....":.40.'..|
000000F0: 02 4B 4B B2 31 3A 58 B2 31 3A 46 52 24 B2 22 53 |.KK.1:X.1:FR$."S|
00000100: 59 53 2E 22 AA 53 59 24 AA C4 28 45 25 28 42 4E |YS.".SY$..(E%(BN|
00000110: 29 29 3A 41 24 B2 46 52 24 AA 22 2C 53 2C 52 22 |)):A$.FR$.",S,R"|
00000120: 3A 8D 36 30 30 33 30 00 3C 09 06 02 8D 33 3A 8B |:.60030.<....3:.|
00000130: 41 24 B3 B1 22 30 30 22 A7 35 32 30 00 6E 09 07 |A$.."00".520.n..|
00000140: 02 9E 35 33 31 35 34 3A 8B 41 24 B3 B1 22 5E 22 |..53154:.A$.."^"|
00000150: AF 4B 4B B3 35 30 A7 54 54 24 28 4B 4B 29 B2 41 |.KK.50.TT$(KK).A|
00000160: 24 3A 4B 4B B2 4B 4B AA 31 3A 89 35 31 39 00 B4 |$:KK.KK.1:.519..|
00000170: 09 08 02 A0 32 3A 41 24 B2 22 C5 44 49 54 4F 52 |....2:A$.".DITOR|
00000180: 3A 20 2E D3 20 54 4F 20 53 41 56 45 2C 20 2E C8 |: .. TO SAVE, ..|
00000190: 20 46 4F 52 20 48 45 4C 50 8B 28 22 AA C4 28 4B | FOR HELP.("..(K|
000001A0: 4B AB 31 29 AA 22 20 4C 49 4E 45 53 29 8B 8B 22 |K.1)." LINES).."|
000001B0: 3A 8D 34 30 00 F3 09 09 02 4D 4D B2 39 3A 8D 31 |:.40.....MM.9:.1|
000001C0: 31 30 38 35 3A 91 AB 28 4B 4B B2 30 29 89 35 31 |1085:..(KK.0).51|
000001D0: 33 3A 41 24 B2 22 8B 8B D3 41 56 49 4E 47 20 45 |3:A$."...AVING E|
000001E0: 4E 54 52 59 20 46 49 4C 45 2E 2E 2E 8B 8B 22 3A |NTRY FILE.....":|
000001F0: 8D 34 30 00 28 0A 0A 02 98 31 35 2C 22 53 22 AA |.40.(....15,"S".|
00000200: C8 28 58 24 2C 31 29 AA 22 3A 22 AA 46 52 24 3A |.(X$,1).":".FR$:|
00000210: 58 B2 31 3A 41 24 B2 46 52 24 AA 22 2C 53 2C 57 |X.1:A$.FR$.",S,W|
00000220: 22 3A 8D 36 30 30 33 30 00 51 0A 0B 02 81 58 B2 |":.60030.Q....X.|
00000230: 31 A4 4B 4B AB 31 3A 98 32 2C 54 54 24 28 58 29 |1.KK.1:.2,TT$(X)|
00000240: 3A 82 3A 98 32 2C 22 5E 22 3A A0 32 3A 89 35 31 |:.:.2,"^":.2:.51|
00000250: 33 00 8B 0A 0C 02 41 24 B2 22 8B 93 8B C4 45 54 |3.....A$."....ET|
00000260: 41 49 4C 20 4C 49 53 54 20 46 4F 52 20 42 4F 41 |AIL LIST FOR BOA|
00000270: 52 44 20 28 22 AA CA 28 C4 28 42 4E 29 2C 32 29 |RD ("..(.(BN),2)|
00000280: AA 22 29 3A 8B 8B 22 3A 8D 34 30 00 D4 0A 0D 02 |."):..":.40.....|
00000290: 41 24 B2 22 31 29 20 20 C2 4F 41 52 44 20 4E 41 |A$."1) .OARD NA|
000002A0: 4D 45 3A 20 20 20 22 AA 42 42 24 28 52 53 29 AA |ME: ".BB$(RS).|
000002B0: 22 8B 32 29 20 20 C1 43 43 45 53 53 20 43 4F 44 |".2) .CCESS COD|
000002C0: 45 3A 20 22 AA C4 28 41 43 25 28 52 53 29 29 3A |E: "..(AC%(RS)):|
000002D0: 4C 50 B2 31 00 05 0B 0E 02 8D 34 30 3A 8D 35 34 |LP.1......40:.54|
000002E0: 30 3A 41 24 B2 22 33 29 20 20 D3 55 42 4F 50 3A |0:A$."3) .UBOP:|
000002F0: 20 20 20 20 20 20 20 20 22 AA 42 24 3A 4C 50 B2 | ".B$:LP.|
00000300: 31 3A 8D 34 30 00 48 0B 0F 02 41 24 B2 22 34 29 |1:.40.H...A$."4)|
00000310: 20 20 CF 50 45 4E 2F 43 4C 4F 53 45 3A 20 20 20 | .PEN/CLOSE: |
00000320: 22 3A 42 24 B2 22 C3 4C 4F 53 45 44 22 3A 8B CA |":B$.".LOSED":..|
00000330: 28 4F 43 24 2C 52 53 2C 31 29 B2 22 30 22 A7 42 |(OC$,RS,1)."0".B|
00000340: 24 B2 22 CF 50 45 4E 22 00 89 0B 10 02 41 24 B2 |$.".PEN".....A$.|
00000350: 41 24 AA 42 24 AA 22 8B 8B 20 20 20 20 23 20 54 |A$.B$.".. # T|
00000360: 4F 20 4D 4F 44 49 46 59 3F 20 22 3A 8D 34 30 3A |O MODIFY? ":.40:|
00000370: 8D 32 32 30 30 3A 41 B2 C5 28 41 4E 24 29 3A 41 |.2200:A..(AN$):A|
00000380: 24 B2 41 4E 24 3A 8D 34 30 00 A5 0B 11 02 91 41 |$.AN$:.40......A|
00000390: 89 35 33 30 2C 35 33 33 2C 35 33 36 2C 35 34 31 |.530,533,536,541|
000003A0: 3A 89 35 31 33 00 E7 0B 12 02 41 24 B2 22 8B 8B |:.513.....A$."..|
000003B0: 28 D2 C5 D4 D5 D2 CE 20 54 4F 20 4B 45 45 50 20 |(...... TO KEEP |
000003C0: 4F 4C 44 20 4E 41 4D 45 29 8B 20 C2 4F 41 52 44 |OLD NAME). .OARD|
000003D0: 20 4E 41 4D 45 3F 20 22 3A 8D 34 30 3A 50 4C B2 | NAME? ":.40:PL.|
000003E0: 30 3A 8D 32 31 30 30 00 06 0C 13 02 8B C3 28 41 |0:.2100.......(A|
000003F0: 4E 24 29 B1 32 A7 42 42 24 28 52 53 29 B2 41 4E |N$).2.BB$(RS).AN|
00000400: 24 3A 54 5A B2 31 00 0F 0C 14 02 89 35 32 34 00 |$:TZ.1......524.|
00000410: 54 0C 15 02 41 24 B2 22 8B 8B 28 D2 C5 D4 D5 D2 |T...A$."..(.....|
00000420: CE 20 54 4F 20 4B 45 45 50 20 4F 4C 44 20 41 43 |. TO KEEP OLD AC|
00000430: 43 45 53 53 29 8B 20 C1 43 43 45 53 53 20 43 4F |CESS). .CCESS CO|
00000440: 44 45 3F 20 22 3A 8D 34 30 3A 50 4C B2 31 3A 8D |DE? ":.40:PL.1:.|
00000450: 32 31 30 30 00 8A 0C 16 02 41 B2 B5 28 C5 28 CA |2100.....A..(.(.|
00000460: 28 41 4E 24 2C 31 2C 35 29 29 29 3A 8B 41 4E 24 |(AN$,1,5))):.AN$|
00000470: B3 B1 22 22 AF 41 B3 32 30 34 38 A7 41 43 25 28 |.."".A.2048.AC%(|
00000480: 52 53 29 B2 41 3A 54 5A B2 31 00 93 0C 17 02 89 |RS).A:TZ.1......|
00000490: 35 32 34 00 CE 0C 18 02 8B 28 53 46 25 AF 31 36 |524......(SF%.16|
000004A0: 29 B2 30 A7 41 24 B2 22 8B 8B D9 4F 55 20 43 41 |).0.A$."...OU CA|
000004B0: 4E 27 54 20 43 48 41 4E 47 45 20 54 48 41 54 21 |N'T CHANGE THAT!|
000004C0: 8B 5C 57 33 22 3A 8D 34 30 3A 89 35 32 34 00 14 |.\W3":.40:.524..|
000004D0: 0D 19 02 41 24 B2 22 8B 8B 28 D2 C5 D4 D5 D2 CE |...A$."..(......|
000004E0: 20 54 4F 20 4B 45 45 50 20 4F 4C 44 20 53 55 42 | TO KEEP OLD SUB|
000004F0: 4F 50 29 8B 20 D5 C9 C4 23 20 4F 46 20 53 55 42 |OP). ...# OF SUB|
00000500: 4F 50 3F 20 22 3A 8D 34 30 3A 50 4C B2 31 3A 8D |OP? ":.40:PL.1:.|
00000510: 32 31 30 30 00 47 0D 1A 02 41 B2 B5 28 C5 28 C8 |2100.G...A..(.(.|
00000520: 28 41 4E 24 2C 35 29 29 29 3A 8B 41 B1 30 AF 41 |(AN$,5))):.A.0.A|
00000530: B3 B2 55 52 A7 53 4F 28 52 53 29 B2 41 3A 54 5A |..UR.SO(RS).A:TZ|
00000540: B2 31 3A 89 35 32 34 00 5F 0D 1B 02 53 4F 28 52 |.1:.524._...SO(R|
00000550: 53 29 B2 AB 31 3A 54 5A B2 31 3A 89 35 32 34 00 |S)..1:TZ.1:.524.|
00000560: 95 0D 1C 02 42 24 B2 22 CE 4F 4E 45 22 3A 91 AB |....B$.".ONE":..|
00000570: 28 53 4F 28 52 53 29 B3 31 29 89 32 34 3A 42 24 |(SO(RS).1).24:B$|
00000580: B2 49 49 24 AA CA 28 C4 28 53 4F 28 52 53 29 29 |.II$..(.(SO(RS))|
00000590: 2C 32 29 3A 8E 00 D5 0D 1D 02 41 24 B2 CA 28 C4 |,2):......A$..(.|
000005A0: 28 AB C5 28 CA 28 4F 43 24 2C 52 53 2C 31 29 29 |(..(.(OC$,RS,1))|
000005B0: AA 31 29 2C 32 29 3A 4F 43 24 B2 C8 28 4F 43 24 |.1),2):OC$..(OC$|
000005C0: 2C 52 53 AB 31 29 AA 41 24 AA CA 28 4F 43 24 2C |,RS.1).A$..(OC$,|
000005D0: 52 53 AA 31 29 00 E3 0D 1E 02 54 5A B2 31 3A 89 |RS.1).....TZ.1:.|
000005E0: 35 32 34 00 05 0E 1F 02 52 53 B2 45 25 28 42 4E |524.....RS.E%(BN|
000005F0: 29 3A 58 24 B2 C8 28 58 24 2C 34 29 AA 22 30 30 |):X$..(X$,4)."00|
00000600: 22 3A 58 B2 31 00 3D 0E 20 02 41 24 B2 22 53 59 |":X.1.=. .A$."SY|
00000610: 53 2E 22 AA 53 59 24 AA 22 2C 53 2C 52 22 3A 8D |S.".SY$.",S,R":.|
00000620: 36 30 30 33 30 3A 9E 35 33 31 35 34 3A 42 5A B2 |60030:.53154:BZ.|
00000630: C5 28 41 24 29 3A 81 58 B2 31 A4 42 5A 00 7B 0E |.(A$):.X.1.BZ.{.|
00000640: 21 02 84 32 2C 42 24 2C 41 24 2C 41 4E 24 2C 43 |!..2,B$,A$,AN$,C|
00000650: 24 2C 4B 4B 24 3A 42 42 24 28 58 29 B2 42 24 3A |$,KK$:BB$(X).B$:|
00000660: 53 4F 28 58 29 B2 C5 28 41 4E 24 29 3A 44 56 25 |SO(X)..(AN$):DV%|
00000670: 28 58 AA 36 29 B2 C5 28 43 24 29 00 A8 0E 22 02 |(X.6)..(C$)...".|
00000680: 58 24 B2 58 24 AA CA 28 C4 28 C5 28 4B 4B 24 29 |X$.X$..(.(.(KK$)|
00000690: 29 2C 32 29 3A 41 43 25 28 58 29 B2 C5 28 41 24 |),2):AC%(X)..(A$|
000006A0: 29 3A 82 3A A0 32 3A 8E 00 DE 0E 23 02 91 AB 28 |):.:.2:....#...(|
000006B0: 54 5A B2 30 29 89 35 35 31 3A 8D 36 30 30 34 30 |TZ.0).551:.60040|
000006C0: 3A 58 B2 31 33 AB 28 53 59 24 B2 22 D5 2F C4 22 |:X.13.(SY$."./."|
000006D0: 29 3A 8D 32 3A 98 32 2C 4F 43 24 3A A0 32 00 1F |):.2:.2,OC$:.2..|
000006E0: 0F 24 02 41 B2 31 3A 8D 31 39 3A 98 31 35 2C 22 |.$.A.1:.19:.15,"|
000006F0: 53 22 AA C8 28 58 24 2C 31 29 AA 22 3A 53 59 53 |S"..(X$,1).":SYS|
00000700: 2E 22 AA 53 59 24 3A 58 B2 31 3A 41 24 B2 22 53 |.".SY$:X.1:A$."S|
00000710: 59 53 2E 22 AA 53 59 24 AA 22 2C 53 2C 57 22 00 |YS.".SY$.",S,W".|
00000720: 4C 0F 25 02 8D 36 30 30 33 30 3A 98 32 2C 42 5A |L.%..60030:.2,BZ|
00000730: 3A 81 58 B2 31 A4 42 5A 3A 98 32 2C 42 42 24 28 |:.X.1.BZ:.2,BB$(|
00000740: 58 29 3A 98 32 2C 41 43 25 28 58 29 00 79 0F 26 |X):.2,AC%(X).y.&|
00000750: 02 98 32 2C 53 4F 28 58 29 3A 98 32 2C 44 56 25 |..2,SO(X):.2,DV%|
00000760: 28 58 AA 36 29 3A 98 32 2C CA 28 58 24 2C 58 AA |(X.6):.2,.(X$,X.|
00000770: 36 2C 31 29 3A 82 3A A0 32 00 92 0F 27 02 41 24 |6,1):.:.2...'.A$|
00000780: B2 53 59 24 3A 8D 38 35 33 3A 9E 35 32 36 30 35 |.SY$:.853:.52605|
00000790: 3A 8E 00 00 00 |:.... |
.......AC%(30):.543:TZ.0.W...A$."...SUB
MAINTENANCE OPTIONS:..1) EDIT ENTRY FIL
E.":.40.....A$."2) VIEW/EDIT BOARD DETA
IL.":.40.E...A$.". OPTION? ":.40:.220
0:A.E(AN$):A$.AN$:.40:.A.516,524:.547...
..A$."..LOADING ENTRY FILE.....":.40.'..
.KK.1:X.1:FR$."SYS.".SY$.D(E%(BN)):A$.FR
$.",S,R":.60030.<....3:.A$.."00".520.N..
..53154:.A$.."^".KK.50.TT$(KK).A$:KK.KK.
1:.519..... 2:A$."EDITOR: .S TO SAVE, .H
FOR HELP.(".D(KK.1)." LINES)..":.40....
.MM.9:.11085:..(KK.0).513:A$."..SAVING E
NTRY FILE.....":.40.(....15,"S".H(X$,1).
":".FR$:X.1:A$.FR$.",S,W":.60030.Q....X.
1.KK.1:.2,TT$(X):.:.2,"^": 2:.513.....A$
."...DETAIL LIST FOR BOARD (".J(D(BN),2)
."):..":.40.T...A$."1) BOARD NAME: ".
BB$(RS).".2) ACCESS CODE: ".D(AC%(RS)):
LP.1......40:.540:A$."3) SUBOP:
".B$:LP.1:.40.H...A$."4) OPEN/CLOSE:
":B$."CLOSED":.J(OC$,RS,1)."0".B$."OPEN"
.....A$.A$.B$.".. # TO MODIFY? ":.40:
.2200:A.E(AN$):A$.AN$:.40......A.530,533
,536,541:.513.....A$."..(RETURN TO KEEP
OLD NAME). BOARD NAME? ":.40:PL.0:.2100.
.....C(AN$).2.BB$(RS).AN$:TZ.1......524.
T...A$."..(RETURN TO KEEP OLD ACCESS). A
CCESS CODE? ":.40:PL.1:.2100.....A..(E(J
(AN$,1,5))):.AN$.."".A.2048.AC%(RS).A:TZ
.1......524.N....(SF%.16).0.A$."..YOU CA
N'T CHANGE THAT!.\W3":.40:.524.....A$.".
.(RETURN TO KEEP OLD SUBOP). UID# OF SUB
OP? ":.40:PL.1:.2100.G...A..(E(H(AN$,5))
):.A.0.A..UR.SO(RS).A:TZ.1:.524._...SO(R
S)..1:TZ.1:.524.....B$."NONE":..(SO(RS).
1).24:B$.II$.J(D(SO(RS)),2):..U...A$.J(D
(.E(J(OC$,RS,1)).1),2):OC$.H(OC$,RS.1).A
$.J(OC$,RS.1).....TZ.1:.524.....RS.E%(BN
):X$.H(X$,4)."00":X.1.=. .A$."SYS.".SY$.
",S,R":.60030:.53154:BZ.E(A$):.X.1.BZ.{.
!..2,B$,A$,AN$,C$,KK$:BB$(X).B$:SO(X).E(
AN$):DV%(X.6).E(C$)...".X$.X$.J(D(E(KK$)
),2):AC%(X).E(A$):.: 2:....#...(TZ.0).55
1:.60040:X.13.(SY$."U/D"):.2:.2,OC$: 2..
.$.A.1:.19:.15,"S".H(X$,1).":SYS.".SY$:X
.1:A$."SYS.".SY$.",S,W".L.%..60030:.2,BZ
:.X.1.BZ:.2,BB$(X):.2,AC%(X).Y.&..2,SO(X
):.2,DV%(X.6):.2,J(X$,X.6,1):.: 2...'.A$
.SY$:.853:.52605:....
> CLICK IMAGE PREVIEW FOR FULL MODAL