* PAYCHEK.GO
* Use this program to start a keyed data file or re-index
* an existing one.
SET TALK OFF
SELECT PRIMARY
USE PAYCHEK
INDEX ON ssno+ last TO PAYCHEK
SELECT SECONDARY
USE TRANSFIL
INDEX ON ssno + last TO TRANSFIL
SELECT PRIMARY

' TO Wslct
STORE 'Y' TO Wans
* Provide for individual printings.
@ 21,10 SAY 'PRINT INDIVIDUAL FORM (Y/N)?'  GET Wans
READ
@ 21, 10
IF !(Wans) = 'Y'
  @ 21,10 SAY 'PLEASE ENTER SOCIAL SECURITY NUMBER'
  @ 23,10 GET Wslct
  READ
  @ 21,10
  @ 23,10