Listing 2 Eliminates special-case checksum handling

CALL * getch - read the reply from the keyboard *
**************************************************

!IF : Does the operator want another sample

Y ->, Continue, read another sample, etc

**************************************************
CALL * GetNextSample - read another sample *
**************************************************

N ->, Terminate the process

CASE : What was the return code (from GetNextSample)

0 -> Return code = 0, finished with samples

1 -> Everything OK, store sample

9 -> Default! Abort sample process