Epson SRC-300 Referenzhandbuch Seite 287

Beispiel 2: Verwendung wie beim Multitasking
100 FUNCTION MAIN
110 TRAP 2 SW($0)=1 OR SW($1)=1 CALL FEEDER
.
.
.
540 FEND
.
.
.
700 FUNCTION FEEDER
710 IF SW($0)=1 THEN OFF $0;ON #2,$0
720 IF SW($1)=1 THEN OFF $1;ON #3,$1
730 FEND
Beispiel 3: Scheintätigkeit des Programms (Dummy-Aktion)
Wenn Eingang SW(31) eingeschaltet wird, wird der WAIT-Status zwingend
aufgehoben und das System verzweigt zum TRAP-Unterprogramm.
110 FUNCTION MAIN
120 TRAP 1 SW(31)=1 GOSUB SKP_WAIT
.
.
.
200 WAIT SW(0)=1
210 WAIT SW(1)=1
.
.
.
700 SKP_WAIT:
710 IF (STAT(1) AND &H0008)=1 THEN END
720 WAIT SW(31)=0
730 TRAP 1 SW(31)=1 GOSUB SKP_WAIT
740 RETURN
750 '
760 FEND
Beispiel 4: ERROR ist angegeben
10 FUNCTION MAIN
20 TRAP ERROR CALL MSGOUT
.
.
.
999 FEND
1000 FUNCTION MSGOUT
1010 PRINT #20, ERRMSG$(ERR(0))
1020 END
1030 FEND
Befehlsbeschreibung
'Die TRAP-Bedingung
wird während der
Armbewegung erfüllt.
Sie wird nicht wieder-
holt
'Definiert die TRAP-
Bedingung erneut
269
T