3) PRECISE DIVISION (197 B)
To use: LOAD 1, RUN 100

110 REM
120 REM PRECISE DIVISION
130 REM
140 PRINT "HOW MANY DECIMAL PLACES?"
150 INPUT D
160 PRINT "DIVIDEND?"
170 INPUT R
180 PRINT "DIVISOR?"
190 INPUT Y
200 LET Z=R/Y
210 LET R=R-Z*Y
220 PRINT "QUOTIENT IS ";Z;".";
230 FOR J=1 TO D
240 LET Z=10*R/Y
250 LET R=10*R-Z*Y
260 PRINT Z;
270 NEXT J
280 STOP