100 REM TIME BUZZER
120 PRINT "ENTER HOURS";
130 INPUT A
140 PRINT "ENTER MINUTES";
150 INPUT B
160 PRINT "ENTER SECONDS";
170 INPUT C
180 D=(A*216000)+(B*3600)+(C*60)
190 POKE 18,0:POKE 19,0:POKE 20,0
200 IF ((PEEK(18)*255*255)+(PEEK( 19)*255)+(PEEK(20)))>D THEN 220
210 GOTO 200
215 REM SET DATA LINES FOR OUTPUT
220 POKE 54018,48
225 POKE 54016,255
230 POKE 54018,52
235 REM SET DATA LINES LOGIC LOW TO TURN ON BUZZER
240 POKE 54016,0
245 POKE 18,0:POKE 19,0:POKE 20,0
250 IF ((PEEK(18)*255*255)+(PEEK( 19)*255)+(PEEK(20)))>300 THEN 270
260 GOTO 250
265 REM SET DATA LINES HIGH TO TURN OFF BUZZER
270 POKE 54016,255
280 REM RESET DATA LINES FOR INPUT
290 POKE 54018,48
300 POKE 54016,0
310 POKE 54018,52