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
/
GRADE.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
403b
|
16 lines
1000.2 REM ************************
N=N-1
PRINT "THAT'S EXCELLENT! NEXT TIME LET'S TRY HARDER PROBLEMS."
G=INT(C/N*100+.5)
PRINT N$;", YOUR GRADE FOR THIS EXERCISE IS ";G;"%"
OPEN GRADE.NAME$ AS 1
TRUE% = -1
IF END #1 THEN 1000.3
WHILE TRUE%
READ #1;LINE DUMMY$
WEND
1000.3 PRINT #1;DRILL.NAME$,G,N
CLOSE 1
CHAIN "CHAIN"