> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 E8 03 8F 20 2A 20 44 41 52 4B 53 54 |....... * DARKST|
00000010: 41 52 20 42 42 53 20 33 2E 30 00 20 08 F2 03 8F |AR BBS 3.0. ....|
00000020: 00 44 08 FC 03 8F 20 2A 20 50 41 4C 20 53 4F 55 |.D.... * PAL SOU|
00000030: 52 43 45 20 43 4F 44 45 20 46 4F 52 20 42 42 53 |RCE CODE FOR BBS|
00000040: 2E 54 58 54 00 68 08 06 04 8F 20 2A 20 4D 4F 44 |.TXT.h.... * MOD|
00000050: 49 46 59 20 46 4F 52 20 4F 54 48 45 52 20 41 53 |IFY FOR OTHER AS|
00000060: 53 45 4D 42 4C 45 52 53 00 7B 08 10 04 8F 20 2A |SEMBLERS.{.... *|
00000070: 20 2E 4F 52 47 20 24 39 38 30 30 00 81 08 1A 04 | .ORG $9800.....|
00000080: 8F 00 9E 08 24 04 8F 20 2A 20 54 45 58 54 20 28 |....$.. * TEXT (|
00000090: 43 29 20 31 39 38 36 20 44 2E 53 2E 53 2E 00 A4 |C) 1986 D.S.S...|
000000A0: 08 2E 04 8F 00 BD 08 38 04 9F 32 2C 38 2C 31 2C |.......8..2,8,1,|
000000B0: 22 40 30 3A 50 4C 4F 54 2F 54 58 54 22 00 C6 08 |"@0:PLOT/TXT"...|
000000C0: 42 04 9E 37 30 30 00 D2 08 4C 04 2E 4F 50 54 20 |B..700...L..OPT |
000000D0: 4F 32 00 DE 08 56 04 AC B2 24 39 41 30 30 00 ED |O2...V...$9A00..|
000000E0: 08 60 04 4E 30 20 2E 42 59 54 45 20 30 00 FD 08 |.`.N0 .BYTE 0...|
000000F0: 6A 04 2E 42 59 54 45 20 31 33 2C 31 33 00 1A 09 |j..BYTE 13,13...|
00000100: 74 04 2E C6 20 22 16 30 31 32 30 05 D0 4F 53 54 |t... ".0120..OST|
00000110: 20 9A CF 46 46 49 43 45 2E 22 00 27 09 75 04 2E | ..FFICE.".'.u..|
00000120: 42 59 54 45 20 31 33 00 51 09 76 04 2E C6 20 22 |BYTE 13.Q.v... "|
00000130: 16 30 31 32 30 05 C3 4F 4D 4D 41 4E 44 20 9A 4F |.0120..OMMAND .O|
00000140: 52 20 3F 20 05 5B 9A CD D3 05 5D 9A 3A 20 07 05 |R ? .[....].: ..|
00000150: 22 00 60 09 7E 04 4E 31 20 2E 42 59 54 45 20 30 |".`.~.N1 .BYTE 0|
00000160: 00 70 09 88 04 2E 42 59 54 45 20 31 33 2C 31 33 |.p....BYTE 13,13|
00000170: 00 90 09 92 04 2E C6 20 22 16 30 31 32 30 05 D0 |....... ".0120..|
00000180: 4F 53 54 41 4C 20 9A C3 4C 41 53 53 45 53 2E 22 |OSTAL ..LASSES."|
00000190: 00 9D 09 93 04 2E 42 59 54 45 20 31 33 00 B7 09 |......BYTE 13...|
000001A0: 94 04 2E C6 20 22 9F A3 A3 A3 A3 A3 A3 A3 A3 A3 |.... "..........|
000001B0: A3 A3 A3 A3 A3 A3 22 00 C7 09 9C 04 2E 42 59 54 |......"......BYT|
000001C0: 45 20 31 33 2C 31 33 00 D6 09 A6 04 4E 32 20 2E |E 13,13.....N2 .|
000001D0: 42 59 54 45 20 30 00 E6 09 B0 04 2E 42 59 54 45 |BYTE 0......BYTE|
000001E0: 20 31 33 2C 31 33 00 09 0A BA 04 2E C6 20 22 16 | 13,13....... ".|
000001F0: 30 31 32 30 05 CE 4F 52 4D 41 4C 20 9A D3 43 41 |0120..ORMAL ..CA|
00000200: 4E 20 05 CD 4F 44 45 2E 22 00 18 0A C4 04 4E 33 |N ..ODE.".....N3|
00000210: 20 2E 42 59 54 45 20 30 00 28 0A CE 04 2E 42 59 | .BYTE 0.(....BY|
00000220: 54 45 20 31 33 2C 31 33 00 4A 0A D8 04 2E C6 20 |TE 13,13.J..... |
00000230: 22 16 30 31 32 30 05 D1 55 49 43 4B 20 9A D3 43 |".0120..UICK ..C|
00000240: 41 4E 20 05 CD 4F 44 45 2E 22 00 59 0A E2 04 4E |AN ..ODE.".Y...N|
00000250: 34 20 2E 42 59 54 45 20 30 00 69 0A EC 04 2E 42 |4 .BYTE 0.i....B|
00000260: 59 54 45 20 31 33 2C 31 33 00 97 0A F6 04 2E C6 |YTE 13,13.......|
00000270: 20 22 16 30 31 32 30 05 D7 48 49 43 48 20 9A CC | ".0120..HICH ..|
00000280: 45 54 54 45 52 20 23 20 05 D4 4F 20 C4 45 4C 45 |ETTER # ..O .ELE|
00000290: 54 45 3F 20 3A 20 22 00 A6 0A 00 05 4E 35 20 2E |TE? : ".....N5 .|
000002A0: 42 59 54 45 20 30 00 B6 0A 0A 05 2E 42 59 54 45 |BYTE 0......BYTE|
000002B0: 20 31 33 2C 31 33 00 D8 0A 14 05 2E C6 20 22 16 | 13,13....... ".|
000002C0: 30 31 32 30 07 05 CE 4F 20 9A CE 45 57 20 9A CC |0120...O ..EW ..|
000002D0: 45 54 54 45 52 53 21 22 00 E7 0A 1E 05 4E 36 20 |ETTERS!".....N6 |
000002E0: 2E 42 59 54 45 20 30 00 F7 0A 28 05 2E 42 59 54 |.BYTE 0...(..BYT|
000002F0: 45 20 31 33 2C 31 33 00 1C 0B 32 05 2E C6 20 22 |E 13,13...2... "|
00000300: 16 30 31 32 30 07 05 C5 4E 56 45 4C 4F 50 45 20 |.0120...NVELOPE |
00000310: 49 53 20 9A C5 CD D0 D4 D9 21 21 22 00 2B 0B 3C |IS ......!!".+.<|
00000320: 05 4E 37 20 2E 42 59 54 45 20 30 00 3B 0B 46 05 |.N7 .BYTE 0.;.F.|
00000330: 2E 42 59 54 45 20 31 33 2C 31 33 00 68 0B 50 05 |.BYTE 13,13.h.P.|
00000340: 2E C6 20 22 16 30 31 32 30 07 05 CE 4F 20 9A CD |.. ".0120...O ..|
00000350: 41 49 4C 20 C4 45 4C 49 56 45 52 59 20 05 C6 4F |AIL .ELIVERY ..O|
00000360: 52 20 D9 4F 55 21 20 22 00 77 0B 5A 05 4E 38 20 |R .OU! ".w.Z.N8 |
00000370: 2E 42 59 54 45 20 30 00 87 0B 64 05 2E 42 59 54 |.BYTE 0...d..BYT|
00000380: 45 20 31 33 2C 31 33 00 AC 0B 6E 05 2E C6 20 22 |E 13,13...n... "|
00000390: 16 30 31 32 30 05 CD 41 49 4C 20 9A D2 45 41 44 |.0120..AIL ..EAD|
000003A0: 20 05 C3 4F 4D 4D 41 4E 44 53 2E 22 00 B9 0B 6F | ..OMMANDS."...o|
000003B0: 05 2E 42 59 54 45 20 31 33 00 D7 0B 70 05 2E C6 |..BYTE 13...p...|
000003C0: 20 22 9F A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | "..............|
000003D0: A3 A3 A3 A3 A3 A3 22 00 E4 0B 78 05 2E 42 59 54 |......"...x..BYT|
000003E0: 45 20 31 33 00 07 0C 82 05 2E C6 20 22 05 C3 20 |E 13....... ".. |
000003F0: 20 9A 3A 20 05 D2 C5 C1 C4 20 9A D4 48 49 53 20 | .: ..... ..HIS |
00000400: CC 45 54 54 45 52 22 00 14 0C 8C 05 2E 42 59 54 |.ETTER"......BYT|
00000410: 45 20 31 33 00 47 0C 96 05 2E C6 20 22 05 2B 20 |E 13.G..... ".+ |
00000420: 20 9A 3A 20 05 D2 C5 C1 C4 20 9A C9 4E 20 C6 4F | .: ..... ..N .O|
00000430: 52 57 41 52 44 20 CD 4F 44 45 9F 5B 4E 4F 4E 2D |RWARD .ODE.[NON-|
00000440: 43 4F 4E 54 2E 5D 22 00 54 0C A0 05 2E 42 59 54 |CONT.]".T....BYT|
00000450: 45 20 31 33 00 87 0C AA 05 2E C6 20 22 05 2D 20 |E 13....... ".- |
00000460: 20 9A 3A 20 05 D2 C5 C1 C4 20 9A C9 4E 20 D2 45 | .: ..... ..N .E|
00000470: 56 45 52 53 4F FF 7F AF B3 12 0F 90 DF D0 FF FF |VERSO...........|
00000480: FA EF 4D 54 22 5D 22 00 94 0B 6F FF FF DF F2 EF |..MT"]"...o.....|
00000490: FF FF F7 FF FF A2 F7 CD 8E 19 6A 80 08 8E 04 14 |..........j.....|
000004A0: 81 F0 50 88 8F 68 FD FC FA 81 F8 7F BA 88 69 AF |..P..h........i.|
000004B0: E8 ED 9C E8 9A 88 7F AF 99 9F FF FC AC AF B9 D9 |................|
000004C0: BF B9 DD AF DD EC F6 08 81 FD 87 49 8E 19 A8 FF |...........I....|
000004D0: D9 9E 80 C4 4C 88 1F 17 4D 8E 19 6A 80 08 8E 04 |....L...M..j....|
000004E0: 16 81 F0 50 88 8F 68 FD FC FA 81 F8 7F BA 81 68 |...P..h........h|
000004F0: 9D E9 9D E8 EC 9E 20 CD 4F 44 45 9F 5B 43 4F 4E |...... .ODE.[CON|
00000500: 54 49 4E 55 4F 55 53 5D 22 00 16 0D B8 05 2E 42 |TINUOUS]"......B|
00000510: 59 54 45 20 31 33 00 40 0D BE 05 2E C6 20 22 05 |YTE 13.@..... ".|
00000520: D2 20 20 9A 3A 20 05 D2 C5 D0 CC D9 20 9A D4 4F |. .: ...... ..O|
00000530: 20 C3 55 52 52 45 4E 54 20 CC 45 54 54 45 52 22 | .URRENT .ETTER"|
00000540: 00 4D 0D C8 05 2E 42 59 54 45 20 31 33 00 74 0D |.M....BYTE 13.t.|
00000550: D2 05 2E C6 20 22 05 C6 20 20 9A 3A 20 05 C6 CF |.... ".. .: ...|
00000560: D2 D7 C1 D2 C4 20 9A CC 45 54 54 45 52 20 D4 4F |..... ..ETTER .O|
00000570: 2E 2E 2E 22 00 81 0D DC 05 2E 42 59 54 45 20 31 |..."......BYTE 1|
00000580: 33 00 A9 0D E6 05 2E C6 20 22 05 D2 23 20 9A 3A |3....... "..# .:|
00000590: 20 05 D2 C5 C1 C4 20 9A CC 45 54 54 45 52 53 20 | ..... ..ETTERS |
000005A0: C2 59 20 D2 C5 C6 2E 23 22 00 B6 0D F0 05 2E 42 |.Y ....#"......B|
000005B0: 59 54 45 20 31 33 00 EA 0D FA 05 2E C6 20 22 05 |YTE 13....... ".|
000005C0: C4 20 20 9A 3A 20 05 C4 C5 CC C5 D4 C5 20 9A C3 |. .: ....... ..|
000005D0: 55 52 52 45 4E 54 20 CC 45 54 54 45 52 9F 5B C9 |URRENT .ETTER.[.|
000005E0: 46 20 D9 4F 55 52 53 21 5D 22 00 F7 0D 04 06 2E |F .OURS!]"......|
000005F0: 42 59 54 45 20 31 33 00 20 0E 0E 06 2E C6 20 22 |BYTE 13. ..... "|
00000600: 05 23 23 23 9A 3A 20 05 D2 C5 C1 C4 20 9A C1 20 |.###.: ..... .. |
00000610: D3 50 45 43 49 46 49 43 20 CC 45 54 54 45 52 22 |.PECIFIC .ETTER"|
00000620: 00 2D 0E 0F 06 2E 42 59 54 45 20 31 33 00 62 0E |.-....BYTE 13.b.|
00000630: 10 06 2E C6 20 22 05 D1 20 20 9A 3A 20 05 D1 D5 |.... ".. .: ...|
00000640: C9 D4 20 9F 5B C1 42 4F 52 54 53 20 C3 4F 4E 54 |.. .[.BORTS .ONT|
00000650: 49 4E 55 4F 55 53 20 D2 45 41 44 20 CD CF C4 C5 |INUOUS .EAD ....|
00000660: 5D 22 00 72 0E 18 06 2E 42 59 54 45 20 31 33 2C |]".r....BYTE 13,|
00000670: 31 33 00 9B 0E 22 06 2E C6 20 22 9E D2 C5 D4 D5 |13..."... ".....|
00000680: D2 CE 20 9A C1 42 4F 52 54 53 20 CD 41 49 4C 20 |.. ..BORTS .AIL |
00000690: D2 45 41 44 20 CD 4F 44 45 21 22 00 A8 0E 2C 06 |.EAD .ODE!"...,.|
000006A0: 2E 42 59 54 45 20 31 33 00 B7 0E 36 06 4E 39 20 |.BYTE 13...6.N9 |
000006B0: 2E 42 59 54 45 20 30 00 C7 0E 40 06 2E 42 59 54 |.BYTE 0...@..BYT|
000006C0: 45 20 31 33 2C 31 33 00 ED 0E 4A 06 2E C6 20 22 |E 13,13...J... "|
000006D0: 16 30 31 32 30 05 D0 4F 53 54 41 4C 20 9A C3 4C |.0120..OSTAL ..L|
000006E0: 41 53 53 20 4F 52 20 3F 20 3A 05 20 22 00 FD 0E |ASS OR ? :. "...|
000006F0: 54 06 4E 31 30 20 2E 42 59 54 45 20 30 00 0D 0F |T.N10 .BYTE 0...|
00000700: 5E 06 2E 42 59 54 45 20 31 33 2C 31 33 00 38 0F |^..BYTE 13,13.8.|
00000710: 68 06 2E C6 20 22 16 30 31 32 30 05 CC 45 54 54 |h... ".0120..ETT|
00000720: 45 52 20 9A C8 41 53 20 C2 45 45 4E 20 C4 45 4C |ER ..AS .EEN .EL|
00000730: 45 54 45 44 21 21 05 22 00 48 0F 72 06 4E 31 31 |ETED!!.".H.r.N11|
00000740: 20 2E 42 59 54 45 20 30 00 64 0F 7C 06 2E C6 20 | .BYTE 0.d.|... |
00000750: 22 16 30 31 32 30 9A CC 45 54 54 45 52 20 20 20 |".0120..ETTER |
00000760: 3A 20 05 22 00 74 0F 86 06 4E 31 32 20 2E 42 59 |: .".t...N12 .BY|
00000770: 54 45 20 30 00 8B 0F 90 06 2E C6 20 22 9A D0 53 |TE 0....... "..S|
00000780: 54 20 C3 4C 41 53 53 3A 20 05 22 00 9B 0F 9A 06 |T .LASS: .".....|
00000790: 4E 31 33 20 2E 42 59 54 45 20 30 00 B2 0F A4 06 |N13 .BYTE 0.....|
000007A0: 2E C6 20 22 9A D3 45 4E 54 20 C2 59 20 20 3A 20 |.. "..ENT .Y : |
000007B0: 05 22 00 C2 0F AE 06 4E 31 34 20 2E 42 59 54 45 |.".....N14 .BYTE|
000007C0: 20 30 00 D9 0F B8 06 2E C6 20 22 9A D3 45 4E 54 | 0....... "..ENT|
000007D0: 20 D4 4F 20 20 3A 20 05 22 00 E9 0F C2 06 4E 31 | .O : .".....N1|
000007E0: 35 20 2E 42 59 54 45 20 30 00 00 10 CC 06 2E C6 |5 .BYTE 0.......|
....... * DARKSTAR BBS 3.0. .....D.... *
PAL SOURCE CODE FOR BBS.TXT.H.... * MOD
IFY FOR OTHER ASSEMBLERS.{.... * .ORG $9
800.........$.. * TEXT (C) 1986 D.S.S...
.......8..2,8,1,"@0:PLOT/TXT".F.B..700.R
.L..OPT O2...V...$9A00...`.N0 .BYTE 0...
J..BYTE 13,13...T..F ".0120.POST .OFFICE
.".'.U..BYTE 13.Q.V..F ".0120.COMMAND .O
R ? .[.MS.].: ..".`.~.N1 .BYTE 0.P....BY
TE 13,13......F ".0120.POSTAL .CLASSES."
......BYTE 13......F "................".
G....BYTE 13,13.V...N2 .BYTE 0......BYTE
13,13......F ".0120.NORMAL .SCAN .MODE.
"...D.N3 .BYTE 0.(.N..BYTE 13,13.J.X..F
".0120.QUICK .SCAN .MODE.".Y...N4 .BYTE
0.I....BYTE 13,13......F ".0120.WHICH .L
ETTER # .TO DELETE? : ".....N5 .BYTE 0..
....BYTE 13,13.X....F ".0120..NO .NEW .L
ETTERS!".....N6 .BYTE 0...(..BYTE 13,13.
..2..F ".0120..ENVELOPE IS .EMPTY!!".+.<
.N7 .BYTE 0.;.F..BYTE 13,13.H.P..F ".012
0..NO .MAIL DELIVERY .FOR YOU! ".W.Z.N8
.BYTE 0...D..BYTE 13,13...N..F ".0120.MA
IL .READ .COMMANDS."...O..BYTE 13.W.P..F
"...................."...X..BYTE 13....
..F ".C .: .READ .THIS LETTER"......BYT
E 13.G....F ".+ .: .READ .IN FORWARD MO
DE.[NON-CONT.]".T. ..BYTE 13......F ".-
.: .READ .IN REVERSO.......P....MT"]".
..O............M..J.......P..H.......I.
..............Y...........I....Y..DL...
M..J.......P..H.......H...... MODE.[CON
TINUOUS]"......BYTE 13.@....F ".R .: .R
EPLY .TO CURRENT LETTER".M.H..BYTE 13.T.
R..F ".F .: .FORWARD .LETTER TO..."....
..BYTE 13......F ".R# .: .READ .LETTERS
BY REF.#"......BYTE 13......F ".D .: .D
ELETE .CURRENT LETTER.[IF YOURS!]"......
BYTE 13. ....F ".###.: .READ .A SPECIFIC
LETTER".-....BYTE 13.B....F ".Q .: .QU
IT .[ABORTS CONTINUOUS READ MODE]".R....
BYTE 13,13..."..F ".RETURN .ABORTS MAIL
READ MODE!"...,..BYTE 13...6.N9 .BYTE 0.
G.@..BYTE 13,13...J..F ".0120.POSTAL .CL
ASS OR ? :. "...T.N10 .BYTE 0...^..BYTE
13,13.8.H..F ".0120.LETTER .HAS BEEN DEL
ETED!!.".H.R.N11 .BYTE 0.D.|..F ".0120.L
ETTER : .".T...N12 .BYTE 0......F ".PS
T CLASS: .".....N13 .BYTE 0......F ".SEN
T BY : .".B...N14 .BYTE 0.Y....F ".SENT
TO : ."...B.N15 .BYTE 0...L..F
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL