10 REM 'MOD' (FUNCTION) TEST PROGRAM
15 DEF MOD(X,Y)=INT(Y*(X/Y-INT(X/Y)))
20 A = MOD(13,5)
30 IF A = 3 THEN 60
40 PRINT "THE MOD FUNCTION FAILED THE TEST"
50 GOTO 99
60 PRINT "THE MOD FUNCTION PASSED THE TEST"
99 END
