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 / COMMON1.TXT < prev    next >
Text File  |  1984-04-29  |  395b  |  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.