CLS

3000 OPEN "COM1:300,N,8,1,CD0,CS0,DS0,OP0,RS,TB2048,RB2048" FOR RANDOM AS #1
3001 PRINT "Warte auf Verbindung an COM 1"

3010 INPUT #1, meldung$

3012 PRINT "master>"; meldung$

3020 IF meldung$ <> "HI" THEN warum$ = "Fehler beim Verbindungsaufbau!": GOTO fehler
3021 SLEEP 1
3030 PRINT #1, "HI"

3032 PRINT "local>HI"

3040 INPUT #1, remname$

3042 PRINT "master>"; remname$

3050 SLEEP 1
3060 PRINT #1, "ANSWERROBOT on MULTLELIE"

3062 PRINT name$; ">"; name$

3070 PRINT "Verbunden mit "; remname$; "."

3090 INPUT #1, meldung$

3110 PRINT remname$; ">"; meldung$
3111 senden$ = "ERR"
3121 IF meldung$ = "DISCON" THEN GOTO discon
3122 IF meldung$ = "TIME?" OR meldung$ = "time?" THEN senden$ = TIME$
3123 IF meldung$ = "DATE?" OR meldung$ = "date?" THEN senden$ = DATE$
3124 IF meldung$ = "SHDN" OR meldung$ = "shdn" THEN senden$ = "SHDN - OK": shdn = 1
3125 IF meldung$ = "cls" THEN CLS : senden$ = "CLS - OK"
3126 IF meldung$ = "color" THEN GOTO farbe
3127 IF meldung$ = "sleep" THEN GOTO slep
3128 IF meldung$ = "help" THEN GOTO help
3129 IF meldung$ = "BEEP" OR meldung$ = "beep" THEN BEEP: senden$ = "BEEP - OK"
3130 IF meldung$ = "play" THEN GOSUB pla
rt:


'3196 FOR w = 1 TO 50000
'3197 LOCATE 1, 30: PRINT w
'3198 NEXT w
IF shdn = 1 THEN GOTO discon
3196 SLEEP 1


3199 PRINT "local>"; senden$

3210 PRINT #1, senden$


GOTO 3090

help:
PRINT "                           ANSWERROBOT"
PRINT "Der Answerrobot dient als Anrufbeantworter f�r ML-Modem (momentan in"
PRINT "der Ausf�hrung mit Nullmodemkabel. Er wird im Slave-mode betrieben, und"
PRINT "horcht so auf ankommende Anrufe."
PRINT
PRINT "   Befehle:"
PRINT "shdn     -       stoppt den ROBOT durch beenden"
PRINT "DISCON   -       die ''# end'' Prozedur von ML-Modem, also auflegen"
PRINT "color    -       wie der Color-befehl, nur Farbeingabe danach"
PRINT "beep     -       BEEP"
PRINT "sleep    -       macht Bildschirm dunkel und wartet auf Aufwach-Befehl"
PRINT "play     -       PLAY"


PRINT #1, "Help - OK"
GOTO 3090




farbe:
SLEEP 1
PRINT "local>COLOR 1?"
PRINT #1, "COLOR 1?"
INPUT #1, farbe1
COLOR farbe1
PRINT "local>COLOR"; farbe1
PRINT #1, "COLOR"; farbe1
GOTO 3090

slep:
CLS
PRINT #1, "SLEEPING-please send any mark to stop."
INPUT #1, meldung$
PRINT "Sleeping stopped!"
PRINT #1, "Sleeping stopped!"
GOTO 3090

fehler:
PRINT warum$
END

6000 discon:
6020 PRINT "local>OK"
6030 PRINT #1, "OK"
6040 warum$ = "Erfolgreich getrennt auf Wu. von " + remname$
6041 PLAY "abe"
6050 IF shdn = 1 THEN END
6060 PRINT "Warte auf Anruf"
6070 GOTO 3010

pla:
PRINT #1, "Welche Folge?"
INPUT #1, meldung$
ON ERROR GOTO errpl
PLAY meldung$
senden$ = "PLAY" + meldung$
meldung$ = ""
RETURN
errpl:
senden$ = "ERROR: PLAY " + meldung$
GOTO rt: