30 LET T=4
40 LET D=1
50 GOSUB 200
60 PRINT R
70 SYSTEM
200 LET R=T-D
210 IF R<0 THEN LET R=0
220 RETURN