COMMON /WORK_AREA/ CHECKWKSP, WORKSPACE, TCA, TERMINATOR INTEGER WORKSPACE( 3 ), !General workspace 1 CHECKWKSP( 3 ), !Check workspace 2 TCA( 3 ), !Terminal Control Area 3 TERMINATOR, !Terminator returned by FDV 4 MENU_FORM( 500 ), !Storage for memory resident form 5 CHECK_FORM( 750 ), !Storage for memory resident form 6 DPOSIT_FORM( 500 ), !Storage for memory resident form 7 SIZE_MENU, !Place to hold menu size 8 SIZE_CHECK, !Place to hold check size 9 SIZE_DPOSIT !Place to hold deposit size