home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / GRADE.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  403 b   |  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.