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
/
CHAIN.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
3KB
|
80 lines
%INCLUDE HEADER
%CHAIN 50, 3350, 200, 275
IF EXTRA1=-1 THEN GOTO 10
DIM I(50)
EXTRA1=-1
INPUT "WHAT IS YOUR NAME? ";N$
GRADE.NAME$=N$
IF END #1 THEN 1.1
OPEN GRADE.NAME$ AS 1:\
CLOSE 1:\
GOTO 1.2
1.1 CREATE GRADE.NAME$ AS 1:\
CLOSE 1
1.2 IF LEN(N$) > 3 THEN 10
10 PRINT CHR$(12)
PRINT "1 ADDITION OF FRACTIONS"
PRINT "2 SUBTRACTION OF FRACTIONS"
PRINT "3 MULTIPLICATION OF FRACTIONS"
PRINT "4 DIVISION OF FRACTIONS"
PRINT "5 ROUNDING OF DECIMALS"
PRINT "6 CHANGE MIXED FRACTIONS TO DECIMALS"
PRINT "7 SUBTRACTION OF DECIMAL NUMBERS"
PRINT "8 ADDITION OF DECIMAL NUMBERS"
PRINT "9 MULTIPLICATION OF DECIMAL NUMBERS"
PRINT "10 DIVISION OF DECIMAL NUMBERS"
PRINT "11 CONVERSION OF AREA TO METRIC EQUIVALENTS"
PRINT "12 COMPUTATION OF SIMPLE AREAS BY FORMULA"
PRINT "13 SIMPLE EQUATIONS WITH DECIMAL NUMBERS"
PRINT "14 SIMPLE EQUATIONS WITH WHOLE NUMBERS"
PRINT "15 CONVERSION OF VOLUME TO METRIC EQUIVALENTS"
PRINT "16 CONVERSION OF DISTANCE TO METRIC EQUIVALENTS"
PRINT "17 SIMPLE EQUATIONS WITH FRACTIONS"
PRINT "18 CONVERSION OF WEIGHT TO METRIC EQUIVALENTS"
PRINT "19 PERCENTAGES"
PRINT "20 ******************QUIT*********************"
PRINT
PRINT N$;", SOME OF THESE PROGRAMS WILL GIVE YOU HELP WHEN YOU ANSWER WITH -1"
PRINT "You can quit any program by answering with a 'QUIT'."
INPUT "PUT IN THE NUMBER OF THE PROGRAM THAT YOU WISH:";NUMBER%
PRINT NUMBER%
ON NUMBER% GOTO 20,30,40,50,60,70,80,90,100, \
110,120,130,140,150,160,170,180,190,200,500
20 CHAIN "FRAC1"
30 CHAIN "FRAC2"
40 CHAIN "FRAC3"
50 CHAIN "FRAC4"
60 CHAIN "DEC1"
70 CHAIN "DEC2"
80 CHAIN "DEC3"
90 CHAIN "DEC4"
100 CHAIN "DEC5"
110 CHAIN "DEC6"
120 CHAIN "AREA"
130 CHAIN "FORMULA"
140 CHAIN "DECIMAL"
150 CHAIN "WHOLE"
160 CHAIN "VOLUME"
170 CHAIN "DISTANCE"
180 CHAIN "FRACTION"
190 CHAIN "WEIGHT"
200 CHAIN "PERCENT"
500:
OPEN GRADE.NAME$ AS 1 BUFF 8 RECS 128
TRUE%=-1
PRINT CHR$(12)
PRINT "If you want your scores printed on the printer "
INPUT "please put in a 'Y' else hit return...";LINE Y$
IF Y$="Y" THEN LPRINTER
PRINT "DRILL TYPE";TAB(30);"% CORRECT","NUMBER OF PROBLEMS"
IF END #1 THEN 545
WHILE TRUE%
READ # 1; DRILL$,GRADE,NO.OF.PROBLEMS
PRINT DRILL$;TAB(30);GRADE,NO.OF.PROBLEMS
530 WEND
545 CLOSE 1
1000 END