C C Module: WATCHIMAG.INC - COMMON IMAGE INFORMATION C C Original: George H. Walrod III C C Corrected Modification: C None C * PARAMETER + MAX_IMAGE_LEN ! Maximum Image Name Length + = 100, + MAX_NO_IMAGE = 10 ! Maximum No Image Rest's STRUCTURE /IMAGE_RECORD/ UNION MAP LOGICAL*1 + WILDCARD ! Wildcard Entry INTEGER*2 + LENGTH ! Image String Length CHARACTER ! Image Name + NAME*(MAX_IMAGE_LEN) INTEGER*4 + START_MSG, ! Start Message Value + STOP_PROC ! Stop Process Value END MAP END UNION END STRUCTURE INTEGER*2 + MAX_IMAGE ! Number of Image Restricted RECORD /IMAGE_RECORD/ ! Restricted IMAGE List + IMAGE_LIST(MAX_NO_IMAGE) COMMON /IMAGE_TABLE/ + MAX_IMAGE, IMAGE_LIST