1 '*Classroom Timer 2 CLV:CLK:VIDEO 5:CLS 3 ?"Minutes" 4 ?"(1-99)=" 5 INPUT T 6 A=T*60 7 CLS:? 8 FOR S=0 TO 29 9 ?CHR$(165);:NEXT 10 GSB 25 11 BEEP 12 'TIMER 13 FOR S=0 TO 29:B=0 14 '@SLOOP 15 CLT 16 IF TICK()<59 CONT 17 A=A-1 18 GSB 25 19 B=B+1 20 IF B