home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG037.ARK
/
DEC5.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
3KB
|
111 lines
%INCLUDE HEADER
REM *********************DEC 5**********************
DRILL.NAME$="Multiplication of Decimal Numbers"
B=19
P=9
D=4
PRINT "OK, ";N$;", Let's practice multiplying decimal numbers. If"
PRINT "you have difficulty with a problem, enter"
PRINT "-1 instead of an answer, and I'll try to give you"
PRINT "some assistance."
PRINT
C=0
I=0
N=0
230 GOSUB 640
GOSUB 900
IF A$<>"C" THEN GOTO 290
360 C=C+1
I=I+1
GOTO 370
I=0
290 PRINT " TRY AGAIN."
GOSUB 900
IF A$="C" THEN GOTO 370
380 PRINT " TRY ONE MORE TIME"
GOSUB 900
IF A$="C" THEN GOTO 370
410 PRINT " THE ANSWER IS ";A
370 IF I>P*C/N THEN GOTO 450
IF N<7 THEN GOTO 230
IF C/N >= .7 THEN GOTO 230
IF D=1 THEN GOTO 230
D=D-1
IF C/N >= .5 THEN GOTO 230
D=1
GOTO 230
450 PRINT
IF C<>N THEN GOTO 1000.2
D=D+1
REM THIS DRILL IS FOR THE SUBTRACTION OF DECIMALS
640 N=N+1
PRINT
660 X=D
GOSUB 1190
A1=X
IF A1 < .1 THEN GOTO 660
X=D
GOSUB 1190
A2=X
IF A2 < .1 THEN 660
IF FNR(2)=2 THEN GOTO 770
PRINT " ",A1;"*";A2;"= ";
GOTO 820
770 PRINT
PRINT " ",A1
PRINT "X",A2
PRINT " ","-------------"
PRINT " "," ";
820 A=A1 * A2
FOR J=1 TO 10
X=A*10^J
O=J
IF X <> INT(X) THEN GOTO 880
J=10
880 NEXT J
RETURN
900 INPUT X$
RANDOMIZE
IF X$="QUIT" THEN GOTO 1000.2
X=VAL(X$)
IF A <> X THEN GOTO 940
A$="C"
RETURN
940 IF X = -1 THEN GOTO 990
PRINT "NOT CORRECT. ";
I=0
A$ = "I"
RETURN
990 PRINT
PRINT "MAKE SURE THAT THERE ARE AS MANY PLACES TO THE RIGHT OF THE"
PRINT "DECIMAL POINT IN YOUR ANSER AS THERE ARE IN THE PROBLEM."
PRINT
PRINT "HOW MANY TOTAL PLACES ARE TO THE RIGHT OF THE DECIMAL POINTS"
PRINT "IN THE PROBLEM."
1050 INPUT X
IF X=O THEN 2495
PRINT "NO. COUNT AGAIN. HOW MANY";
GOTO 1050
2495 PRINT "THAT'S RIGHT! ";O;"DECIMAL PLACES TOTAL. NOW CHECK TO MAKE"
PRINT "SURE THAT IN YOUR ANSER THERE ARE";O;"PLACES TO THE RIGHT OF"
PRINT "THE DECIMAL POINT. HERE IS YOUR PROGLEM AGAIN;"
PRINT
PRINT " ",A1
PRINT " ",A2
PRINT " ","-------------"
PRINT "WHAT IS YOUR ANSWER NOW? ";
X=0
GOTO 900
1190 X=FNR(X)
X=INT(RND*10^X)/10^INT(FNR(X))
RETURN
%INCLUDE GRADE
END