PROC 0 GLOBAL R1 R2 R3 Q1: WRITE WRITE ENTER NAME OF PARTITIONED DATASET WHICH CONTAINS PRECOMPUTED WRITENR IMAGES, TO BE ALLOCATED TO FILE "ADMGDF": READ &ADMGDF IF &STR(&ADMGDF) EQ THEN GOTO Q1 IFREE ADMGDF ALLOCATE DATASET(&ADMGDF) FILE(ADMGDF) SHR IFREE ADMSYMBL ALLOCATE DATASET('APP5.GDDM4.SYMBOL') FILE(ADMSYMBL) SHR WRITE WRITE WRITE AFTER 50 SECONDS OF BLANK SCREEN, AN IMAGE-INVENTORY SCREEN AND WRITE A MENU OF COMMANDS WILL APPEAR. WRITE THE MOST IMPORTANT COMMANDS TO REMEMBER ARE: WRITE "M" TO BRING BACK THE MENU,AND WRITE "Q" TO QUIT AND RETURN TO TSO. WRITE WRITE NOTES ON PHOTOGRAPHING THE 3179-G TERMINAL SCREEN: WRITE -TURN BRIGHTNESS UP TO FULL WRITE -TURN OFF ROOM LIGHTS, SHUT DOORS AND BLINDS WRITE -FOR SLIDE PHOTOGRAPHY: EKTACHROME 100 DAYLIGHT WRITE NO FILTER WRITE F/8 WRITE 1 SECOND WRITE (PRINTS CAN BE MADE FROM SLIDES BY TYPE-R PROCESS) WRITE -FOLLOW WITH 2-3 FRAMES OVEREXPOSED (WHITE) TO DEFINE FRAMES. WRITE WRITENR HIT ENTER TO PROCEED, OR ANY OTHER CHARACTER TO EXIT: READ &ANSWER IF &STR(&ANSWER) EQ THEN - RUNGDDM GDDMMOD(VIEW)