home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / COMMON1.TXT < prev    next >
Encoding:
Text File  |  1984-04-29  |  395 b   |  16 lines
  1. 1000.2       REM ************************
  2. PRINT "THAT'S EXCELLENT! NEXT TIME LET'S TRY HARDER PROBLEMS."
  3.        G=INT(C/N*100+.5)
  4. PRINT N$;", YOUR GRADE FOR THIS EXERCISE IS ";G;"%"
  5. OPEN "GRADE" AS 1
  6.          TRUE% = -1
  7. IF END #1 THEN 1000.3
  8.          WHILE TRUE%
  9.                READ #1;DUMMY$
  10.          WEND
  11. 1000.3   PRINT #1;"///",G,N
  12.          CLOSE 1
  13. CHAIN "CHAIN"
  14.          END
  15.  
  16.