NCR GW-BASIC Betriebsanleitung Seite 269

GW-BASIC
Zähler immer dann anpassen, wenn sie von GW-
BASIC ausgefiihrt wird. Zum Beispiel:
10 ATTEMPT% = 5
20 ON ERROR GOTO 500
30 OPEN "COMl:„„ CS,DS,CD5000" AS #1
500 IF ERR 0 2 4 THEN GOTO 600
510 ATTEMPT%=ATTEMPT%-1
520 IF ATTEMPT%=0 THEN GOTO 540
530 RESUME
540 BEEPiPRINT "Einheit prüfen und
Programm erneut starten"
550 STOP
600 REM Andere Fehlerbehandlungsroutinen
GW-BASIC-BEFEHLE UND FUNKTIONEN
OPEN "COM
4-195