NEW
100 REM DIVIDE.BAS, FOR THE
110 REM INDUSTROLOGIC, INC.
120 REM SBC-1. THIS PROGRAM
130 REM SHOWS HOW TO DISPLAY
140 REM THE MOD FROM A DIVIDE
150 REM AS A PERCENTAGE USING
160 REM INTEGER VARIABLES
170 REM ---------------------
200 PRINT
210 PRINT "DIVIDEND";:INPUT A
220 PRINT "DIVISOR";:INPUT B
230 C=A/B:M=A MOD B
240 V=0
250 IF M<=3276 THEN M=M*10:V=1
260 IF M<=3276 THEN M=M*10:V=2
270 IF V=0 THEN B=B/10:V=1
280 IF V=1 THEN B=B/10:V=2
290 D=M/B
300 PRINT C;".";
310 IF D<10 THEN PRINT "0";
320 PRINT D
330 GOTO 200
RUN