100 PRINT "THIS PROGRAM DOES A VERY LONG, LOG DIVISION"
110 INPUT "WHAT IS THE NUMBER TO BE DIVIDED?(THE NUMBERATOR)",X
120 INPUT "WHAT IS IT TO BE DIVIDED BY?(THE DENOMINATOR)",Y
130 PRINT "HOW MANY DECIMAL PLACES SHOULD THE ANSWER (THE QUOTIENT)"
140 INPUT "BE CARRIED OUT TO?",N
150 GOSUB 1020
160 GOTO 110
1020 Q=INT(X/Y)
1030 PRINT Q;".";
1040 X=(X-Q*Y)*10
1050 Q=INT(X/Y)
1060 PRINT Q;
1070 N=N-1
1080 IF N>0 THEN GOTO 1040
1085 ?:?:?
1090 INPUT "WOULD YOU LIKE TO DO ANOTHER DIVISION? ";A$
1100 IF A$="YES" OR A$="Y" THEN 110
1999 CHAIN "MATH2"
2000 END