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