10 REM 'ON-ERROR-GOTO' TEST PROGRAM
20 ON ERROR GOTO 100
30 PRINT "ENTER A NUMBER AND IT'S INVERSE WILL BE COMPUTED";
40 INPUT N
45 IF N = -999 THEN 999
50 A=1/N
60 PRINT "THE INVERSE OF";N;"IS";A
70 GOTO 30
100 PRINT "THE INVERSE OF 0 CANNOT BE COMPUTED - TRY AGAIN"
110 RESUME 30
999 END
