10 KEY OFF:ON ERROR GOTO 230:CLS : COLOR 4, 0: LOCATE 1, 1: PRINT "De tijd is "; TIME$, DATE$
20 LOCATE 2, 1: PRINT STRING$(80, 205): LOCATE 22, 1: PRINT STRING$(80, 205)
30 LOCATE 8, 10: COLOR 9, 1: PRINT "ALARM PROGRAMMA"
40 LOCATE 9, 10: COLOR 1, 9: PRINT STRING$(15, 205)
50 REM Wachten...
60 LOCATE 12, 10: COLOR 5, 0: PRINT "Op welke tijd moet het alarm aflopen (uu:mm:ss) ";:INPUT AFLOOP$
70 IF TIME$ = AFLOOP$ GOTO 100 ELSE GOTO 80
80 LOCATE 1, 12: COLOR 4, 0: PRINT TIME$, DATE$
90 GOTO 70
100 REM Alarm
110 CLS : LOCATE 1, 1: PRINT "De tijd is "; TIME$, DATE$
120 LOCATE 2, 1: PRINT STRING$(80, 205)
130 LOCATE 22, 1: PRINT STRING$(80, 205)
140 REM Tatu
150 LOCATE 12, 20: COLOR 4, 0: PRINT "º";:COLOR 25,0:PRINT "ALARM !";:COLOR 4,0:PRINT "º"
160 COLOR 4, 0: LOCATE 13, 20: PRINT "È"; STRING$(7, 205); "¼"
170 LOCATE 11, 20: PRINT "É"; STRING$(7, 205); "»"
180 LOCATE 23,1:COLOR 14,0:PRINT "Druk op een toets voor TOOLS-MENU"
190 FOR A=1 TO 2:BEEP:NEXT A
200 LOCATE 1,12:COLOR 4,0:PRINT TIME$,DATE$
210 KEUZE$=INKEY$:IF KEUZE$="" THEN GOTO 220 ELSE RUN"amenu.bas
220 GOTO 190
230 IF ERR=25 AND ERL=190 THEN 250
240 RUN "pcvolk.bas
250 FOR A=1 TO 2:BEEP:NEXT A
260 LOCATE 1,12:COLOR 4,0:PRINT TIME$,DATE$
270 KEUZE$=INKEY$:IF KEUZE$="" THEN GOTO 220 ELSE RUN"amenu.bas
280 GOTO 250