100REM NOTIFY
200REM (C) Ian Wolstenholme 2002
300REM Version 1.2 30/xii/2002
310REM Includes transmit polling;
320REM Not sure if this is necessary
400DIM osblock 255
500PRINT"Input station to notify ";
600INPUT""station%
700PRINT'"Enter message"
800INPUT""message$
910?osblock=8
920A%=&13
930X%=osblock MOD256
940Y%=osblock DIV256
950CALL&FFF1
960station=osblock?1
970ID$="--- "+STR$station+" --- "
980msgspace=245-LENID$
990IFLENmessage$>msgspace message$=LEFT$(message$,msgspace)
1000?osblock=1
1100osblock?1=station%
1200osblock?2=0:REM net 0
1300$(osblock+3)=CHR$7+ID$+message$+CHR$0
1500A%=20
1600X%=osblock MOD256
1700Y%=osblock DIV256
1800CALL&FFF1
1900PROCwaitforcompletion
2000IFsuccess<>0END
2010END
24000DEFPROCwaitforcompletion
24050REPEAT
24100A%=&32
24200U%=USR&FFF4
24300UNTIL(U% AND &8000)=0
24400success=(U% AND &FF00) DIV 256
24500IFsuccess=&40PRINT"Line jammed":ENDPROC
24550IFsuccess=&41PRINT"Not present":ENDPROC
24600IFsuccess=&42PRINT"Not listening":ENDPROC
24650IFsuccess=&43PRINT"No clock":ENDPROC
24700IFsuccess=&44PRINT"Bad transmit block":ENDPROC
24710ENDPROC