1DEFFNZ(X,Y)=X-Y*INT(X/Y)
2REM FILEV#4:"LPT:"
3INPUTZ
4M=Z
5IFZ<>0GOTO7
6GOTO12
7IFZ>MGOTO9
8GOTO10
9M=Z
10INPUTZ
11GOTO5
12PRINT"MAX = ";M
13REM CLOSE#4\STOP
14END