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
/
WEIGHT.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
2KB
|
91 lines
%INCLUDE HEADER
REM **********************WEIGHT***************************
REM METRIC CONVERSIONS OF WEIGHT
DRILL.NAME$="Metric Conversions of Weight"
PRINT
B=12
DEF FNT(X) = X - INT(X/100) * 100 + INT(X/100) * 60
DATA 28.349523,"OUNCES","GRAMS"
DATA .45359237,"POUNDS","KILOGRAMS"
DATA .90718474,"TONS","METRIC TONS"
P=9
D=4
PRINT
PRINT "OK, ";N$;". Let's practice converting some inglish units of"
PRINT "weight to their metric equivalents. I will give you a problem"
PRINT "and you give me your answer, which I will check. If you need"
PRINT "some help, enter -1 instead of an answer."
PRINT
C=0
N=0
I=0
290 GOSUB 690
GOSUB 920
IF A$ <> "C" THEN 350
C=C + 1
I = I + 1
GOTO 430
350 I = 0
PRINT " TRY AGAIN."
GOSUB 920
IF A$ = "C" THEN 430
PRINT " TRY ONE MORE TIME."
GOSUB 920
IF A$="C" THEN 430
PRINT " THE ANSWER IS ";A
430 IF I > P * C/N THEN 1000.2
IF N < 7 THEN 290
IF C/N >= .7 THEN 290
IF D = 1 THEN 290
D = D - 1
IF C/N >= .5 THEN 290
D = 1
GOTO 290
510 PRINT
IF C <> N THEN 1000.2
D = D + 1
690 PRINT
N = N + 1
R = FNR(3)
R3 = FNR(D^2) + 1
GOSUB 760
A = R3 * C
RETURN
760 RESTORE
FOR Q = 1 TO R
READ C, E$, M$
NEXT Q
PRINT "HOW MANY ";M$;" ARE IN";R3;E$;
RETURN
820 PRINT
RESTORE
FOR J = 1 TO 3
READ C, E$,M$
PRINT "TO CONVERT FROM ";E$;" TO ";M$
PRINT " MULTIPLY BY";C;"."
PRINT
NEXT J
PRINT " THERE ARE 1000 KILOGRAMS IN ONE METRIC TON. "
RETURN
920 INPUT LINE X$
RANDOMIZE
IF X$="QUIT" THEN GOTO 1000.2
X=VAL(X$)
IF X < 0 THEN 970
IF ABS(X - A) > .005 THEN 1020
A$ = "C"
RETURN
970 GOSUB 820
PRINT
PRINT "HERE IS YOUR PROBLEM AGAIN:"
GOSUB 760
GOTO 920
1020 PRINT "NOT CORRECT. ";
I = 0
A$ = "I"
RETURN
%INCLUDE GRADE
END