10 LET X = 6
20 LET Y = R
30 GOSUB 1000
40 PRINT Z
50 END
1000 REM mode operation
1010 LET Z = Y/X*X
1020 LET Z = Y-Z
1030 RETURN
2000 PRINT Z