PROGRAM MENU C C This subroutine generates the MENU, the CHARACTER C COORDINATE SYSTEM and the CHARACTER as presently C defined. C COMMON /PLTR/ ILun, IDev, IsTerm, IMode, IXMax, IYMax, 1 Cnvrsn, CMag, CnvMag, IX0, IY0, KSetNo, IFancy, IBfDv3, 1 CSize, DeltaH, DeltaV, Upsiln, CosUp, SinUp, WidAdj COMPLEX MENUT(15), MENU8 LOGICAL*1 LABEL(20) EQUIVALENCE ( MENU8, LABEL(1) ) DATA MENUT/'Add', 'Clear', 'Delete', 'Display', 'Finish', 1 'Insert', 'Move', 'Pen Up', 'Restart', 'Save', 1 'Scale', 'Select', 'Tablet', 'Transfrm', 'Width'/ DATA XMENU, YMENU/ 1., 1./ DATA XCS, YCS/ .5, .5/ C C - GENERATE MENU. CALL PSEUDO(2,"13) CALL HCMAG(.75) YWRITE = IYMAX/CNVMAG CALL CALPLT( XMENU, YMENU, -3 ) DO 1000 I=0,3 CALL CALPLT( I*1., 0., 3 ) 1000 CALL CALPLT( I*1., 2.5, 2 ) DO 2000 I=0,5 CALL CALPLT( 0., I*.5, 3 ) 2000 CALL CALPLT( 3., I*.5, 2 ) C DO 4000 I=0,2 DO 4000 J=0,4 MENU8 = MENUT( I*5+J+1 ) DO 3000 K=8,1,-1 3000 IF( LABEL(K) .NE. ' ' ) GO TO 3100 3100 XP = I*1. + .5 - DELTAH*.5*K YP = ( 4-J )*.5 + .25 - CSIZE*.5 4000 CALL HCGEN( XP, YP, LABEL, K ) C CALL CALPLT(0.,0.,999) STOP END