bwBASIC/NBS2/M005.BAS

100 REM PURPOSE:  VERIFY ON TIMER ... GOSUB ...
110 REM  AUTHOR:  HOWARD WULF, AF5NE
120 REM    DATE:  2015-01-25
130 REM
140 REM ---------------------------------------
150 REM THE '50' BELOW IS THE NUMBER OF BASIC LINES
160 REM TO EXECUTE BEFORE FIRING THE TIMER EVENT
170 REM
200 ON TIMER 0.05 GOSUB 500
205 LET N = 0
210 TIMER ON
220 WHILE 1
230 WEND
240 GOTO 999
500 REM --------------------------------------
510 PRINT "TIMER"
515 REM AS CURRENTLY IMPLEMENTED,
516 REM THE TIMER CLEARS WHEN ACTIVATED.
517 REM
518 REM IF YOU WANT IT TO FIRE AGAIN,
519 REM THEN YOU HAVE TO SET IT AGAIN.
520 TIMER ON
525 N = N + 1
527 IF N < 1 OR N > 5 THEN
528 LET N = 1
529 END IF
530 ON N GOTO 1000,2000,3000,4000,5000
540 STOP
999 END
1000 REM ROUTINE 1
1010 PRINT "ROUTINE #1"
1020 RETURN
2000 REM ROUTINE 2
2010 PRINT , "ROUTINE #2"
2015 REM WATCH OUT FOR RECURSION WITH LARGE LOOP VALUES
2020 FOR J = 1 TO 10
2030 PRINT "J=";J
2040 NEXT J
2050 RETURN
3000 REM ROUTINE 3
3010 PRINT , , "ROUTINE #3"
3020 RETURN
4000 REM ROUTINE 4
4010 PRINT , , , "ROUTINE #4"
4020 RETURN
5000 REM ROUTINE 5
5010 PRINT , , , , "ROUTINE #5"
5020 RETURN