Corrections par Ross SIMPSON
There were some small bugs with the original listing:
Line 610 - PRINT " should read PRINT " " at the end of that line.
I thought there was a bug with line 720 and changed the line to read:
720 K$=UPPER$(INKEY$):IF K$="Y" THEN 140 ELSE IF K$="N" THEN 730 ELSE 720
though the line should read:
720 - K$=UPPER$(INKEY$):IF K$="Y" THEN 140 ELSE IF K$<>"N" THEN 720