home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Oakland CPM Archive
/
oakcpm.iso
/
cpmug
/
cpmug037.ark
/
COMMON1.TXT
< prev
next >
Wrap
Text File
|
1984-04-29
|
395b
|
16 lines
1000.2 REM ************************
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" AS 1
TRUE% = -1
IF END #1 THEN 1000.3
WHILE TRUE%
READ #1;DUMMY$
WEND
1000.3 PRINT #1;"///",G,N
CLOSE 1
CHAIN "CHAIN"
END