Regarding my earlier post of creating a Sysop Chat function for Color 64 8.1, the below content will create a SYSOP IN or SYSOP OUT notification to the user.

Searching through code, I discovered that Color 64 8.1 does not utilize memory address #2, which is an unused address location from a kernal perspective; I used this to set a flag for if Sysop is in or out of office. The following code applies to create this notification.

In bbs.init:

1) insert line after 12060:
12061 if peek(2)=0 then print"<home><down 22 times>Status: In Office     "
12062 if peek(2)=1 then print"<home><down 22 times>Status: Out of office"

2) modify original 12510 line to be 12514 now

3) Insert new 12510 line and 12511:

12510 get a$:if a$="<key of choice - I use left arrow above the control key>" and peek(2)=1 then poke2,0:goto 12514
12511 if a$="<same key of choice>" and peek(2)=0 then poke 2,1
12514 <original 12510 line> if a$<"<reverse E>" or a$> "<reverse L>" then 12040.........

In bbs.msgs:

1) modify line 50 to be:

50 if lm then f$="<checkmark>welcome2":gosub 205

2) insert:

51 if lm and peek(2)=1 then f$="<checkmark>sysop out"
52 if lm and peek(2)=0 then f$="<checkmark>sysop in"
54 if lm then gosub 205:gosub13523:gosub8510

3) create sysop out and sysop in SEQ files to support.

Note 1: multiple IF statements can be combined with 8.1's ELSE command (pound) - but I run fine with the following code above. So code can definitely be refined.

Note 2: always backup your work before making these changes! My system runs fine on the changes above, but you never know....