10 REM TEST PROGRAM WITH IMPLIED 'THEN' IN LINES 30,60 AND 999
20 X=30
30 IF X=30 GOTO 60
40 PRINT "LINE 30 FAILED THE TEST"
50 GOTO 999
60 IF X=30 GOSUB 100
70 GOTO 999
100 REM SUBROUTINE
110 PRINT "LINES 30 AND 60 PASSED THE TEST.  DOES LINE 999?"
120 RETURN
999 IF X=30 END
