10 LET T=4
20 LET D=5
30 GOSUB 200
40 IF R<>0 THEN PRINT "Test failed"
50 IF R=0 THEN PRINT "Passed"
60 SYSTEM
200 LET R=T-D
210 IF R<0 THEN LET R=0
220 RETURN