* PAYCHEK.ED   -EDIT PROGRAM
STORE T TO Emore
* Set up screen variables
  STORE last TO Mlast
  STORE first TO Mfirst
  STORE initial TO Minitial
  STORE ssno TO Mssno
  STORE vac TO Mvac
  STORE term TO Mterm
  STORE regpay TO Mregpay
  STORE otpay TO Motpay
  STORE sick TO Msick
  STORE gross TO Mgross
  STORE taxable TO Mtaxable
  STORE whhold TO Mwhhold
  STORE chkfica TO Mchkfica
  STORE ins TO Mins
  STORE pension TO Mpension
  STORE net TO Mnet
DO WHILE Emore
ERASE
* Get screen input
  DO PAYCHEK.IO
  @ 21,10 SAY ' ENTER ANY CHANGES '
  READ
  STORE 'N' TO Ecmd
  @ 21,10 SAY ' RECALCULATE OR MORE CHANGES (Y/N)? ' GET Ecmd
  READ
* Put screen entries into file
  REPLACE last WITH Mlast
  REPLACE first WITH Mfirst
  REPLACE initial WITH Minitial
  REPLACE ssno WITH Mssno
  REPLACE vac WITH Mvac
  REPLACE term WITH Mterm
  REPLACE regpay WITH Mregpay
  REPLACE otpay WITH Motpay
  REPLACE sick WITH Msick
  REPLACE gross WITH Mgross
  REPLACE taxable WITH Mtaxable
  REPLACE whhold WITH Mwhhold
  REPLACE chkfica WITH Mchkfica
  REPLACE ins WITH Mins
  REPLACE pension WITH Mpension
  REPLACE net WITH Mnet
  IF !(Ecmd) <> 'Y'
    STORE F TO Emore
  ENDIF
ENDDO
RELEASE Emore, Ecmd, Mlast, Mfirst, Minitial
RELEASE Mssno, Mvac, Mterm, Mregpay, Motpay
RELEASE Msick, Mgross, Mtaxable, Mwhhold, Mchkfica
RELEASE Mins, Mpension, Mnet

AT TO PRINT
  DO PAYCHEK.FMT
  SET FORMAT TO SCREEN
ELSE
  STORE F TO Mmore
ENDIF F
ENDIF P
ENDIF D
ENDIF E
ENDDO Mmore
RE