Aktivität - NCR GW-BASIC Betriebsanleitung

GW-BASIC
40 ON TIMER(60) GOSUB 100
50 TIMER ON
60 CLS
70 K$=INKEY$:IF K$="" THEN 70
80 PRINT K$;
90 GOTO 70
100 REM ***** Befaßt sich mit Zeitgeber-
Aktivität
110 BEEP
120 ROW=CSRLIN:COL=POS(0)
130 FOR V=1 TO ROW
140 FOR H=1 TO 80
150 PIC$(V,H)=CHR$(SCREEN(V,H))
160 NEXT HrNEXT V
170 CLS:LOCATE 1,1
180 PRINT TIME$;
190 FOR DLY=1 TO 4000:NEXT DLY
200 CLS
210 FOR V=1 TO ROW
220 FOR H=1 TO 80
230 PRINT PIC$(V,H);
240 NEXT HrNEXT V
250 LOCATE ROW,COL
260 RETURN
GW-BASIC-BEFEHLE UND FUNKTIONEN
ON TIMER
4-18 5