10 ! PROGRAM TO RETURN AN EXIT STATUS
20 LOAD "EXITST"
30 PRINT "WILL NOW RETURN A STATUS OF 2"
35 B=2
40 CALL "EXITST"(B)
50 PRINT "I SHOULD NOT GET HERE "
60 EXIT