INTEGER FUNCTION IDSPTC(NCMD,NARGS,IARGS) INTEGER NCMD,NARGS,IARGS(20) C C Call the appropriate escape sequence generator routine with the C user supplied arguments. Subroutine names are sorted into RAD50 C rather than ASCII order! C IDSPTC = 0 - Success C -1 - Unrecognized subroutine name C -2 - Too many arguments for this subroutine C IDSPTC = 0 GO TO (100,200,300,400,500,600,700,800,900,1000,1100,1200,1300, # 1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500, # 2600,2700,2800,2900,3000,3100,3200,3300,3400,3500,3600,3700, # 3800,3900,4000,4100,4200,4300,4400,4500,4600,4700,4800,4900, # 5000,5100,5200,5300,5400,5500,5600,5700,5800,5900,6000,6100, # 6200,6300,6400,6500,6600,6700,6800,6900,7000,7100,7200,7300, # 7400,7500,7600,7700,7800,7900), NCMD IDSPTC = -1 !Unrecognized command RETURN 100 IF(NARGS .NE. 0) GO TO 99999 CALL ALIGND RETURN 200 IF(NARGS .NE. 0) GO TO 99999 CALL ANSI RETURN 300 IF(NARGS .NE. 0) GO TO 99999 CALL BIGBOT RETURN 400 IF(NARGS .NE. 0) GO TO 99999 CALL BIGTOP RETURN 500 IF(NARGS .NE. 0) GO TO 99999 CALL CLRALL RETURN 600 IF(NARGS .NE. 0) GO TO 99999 CALL CLRBEG RETURN 700 IF(NARGS .NE. 0) GO TO 99999 CALL CLRBOT RETURN 800 IF(NARGS .NE. 0) GO TO 99999 CALL CLREND RETURN 900 IF(NARGS .NE. 0) GO TO 99999 CALL CLRLIN RETURN 1000 IF(NARGS .NE. 0) GO TO 99999 CALL CLRTOP RETURN 1100 IF(NARGS .NE. 0) GO TO 99999 CALL CRLF RETURN 1200 IF(NARGS .NE. 0) GO TO 1201 CALL CUB RETURN 1201 IF(NARGS .NE. 1) GO TO 99999 CALL CUB(IARGS(1)) RETURN 1300 IF(NARGS .NE. 0) GO TO 1301 CALL CUD RETURN 1301 IF(NARGS .NE. 1) GO TO 99999 CALL CUD(IARGS(1)) RETURN 1400 IF(NARGS .NE. 0) GO TO 1401 CALL CUF RETURN 1401 IF(NARGS .NE. 1) GO TO 99999 CALL CUF(IARGS(1)) RETURN 1500 IF(NARGS .NE. 0) GO TO 1501 CALL CUP RETURN 1501 IF(NARGS .NE. 1) GO TO 1502 CALL CUP(IARGS(1)) RETURN 1502 IF(NARGS .NE. 2) GO TO 99999 CALL CUP(IARGS(1),IARGS(2)) RETURN 1600 IF(NARGS .NE. 0) GO TO 1601 CALL CUU RETURN 1601 IF(NARGS .NE. 1) GO TO 99999 CALL CUU(IARGS(1)) RETURN 1700 IF(NARGS .NE. 0) GO TO 99999 CALL DCSDIF RETURN 1800 IF(NARGS .NE. 0) GO TO 99999 CALL DCS105 RETURN 1900 IF(NARGS .NE. 0) GO TO 99999 CALL DCS125 RETURN 2000 IF(NARGS .NE. 0) GO TO 99999 CALL DWL RETURN 2100 IF(NARGS .NE. 0) GO TO 99999 CALL GIMOAP RETURN 2200 IF(NARGS .NE. 0) GO TO 99999 CALL GIMOHC RETURN 2300 IF(NARGS .NE. 0) GO TO 99999 CALL GPOFF RETURN 2400 IF(NARGS .NE. 0) GO TO 99999 CALL GPON RETURN 2500 IF(NARGS .NE. 0) GO TO 2501 CALL HPA RETURN 2501 IF(NARGS .NE. 1) GO TO 99999 CALL HPA(IARGS(1)) RETURN 2600 IF(NARGS .NE. 0) GO TO 2601 CALL HPR RETURN 2601 IF(NARGS .NE. 1) GO TO 99999 CALL HPR(IARGS(1)) RETURN 2700 IF(NARGS .NE. 0) GO TO 99999 CALL HRDCPY RETURN 2800 IF(NARGS .NE. 0) GO TO 99999 CALL HTBCLA RETURN 2900 IF(NARGS .NE. 0) GO TO 99999 CALL HTBCLC RETURN 3000 IF(NARGS .NE. 0) GO TO 99999 CALL HTBSTC RETURN 3100 IF(NARGS .NE. 0) GO TO 3101 CALL HTBSTS RETURN 3101 IF(NARGS .NE. 1) GO TO 3102 CALL HTBSTS (IARGS(1)) RETURN 3102 IF(NARGS .NE. 2) GO TO 3103 CALL HTBSTS (IARGS(1),IARGS(2)) RETURN 3103 IF(NARGS .NE. 3) GO TO 3104 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3)) RETURN 3104 IF(NARGS .NE. 4) GO TO 3105 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4)) RETURN 3105 IF(NARGS .NE. 5) GO TO 3106 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5)) RETURN 3106 IF(NARGS .NE. 6) GO TO 3107 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6)) RETURN 3107 IF(NARGS .NE. 7) GO TO 3108 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7)) RETURN 3108 IF(NARGS .NE. 8) GO TO 3109 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8)) RETURN 3109 IF(NARGS .NE. 9) GO TO 3110 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9)) RETURN 3110 IF(NARGS .NE. 10) GO TO 3111 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10)) RETURN 3111 IF(NARGS .NE. 11) GO TO 3112 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11)) RETURN 3112 IF(NARGS .NE. 12) GO TO 3113 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12)) RETURN 3113 IF(NARGS .NE. 13) GO TO 3114 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13)) RETURN 3114 IF(NARGS .NE. 14) GO TO 3115 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14)) RETURN 3115 IF(NARGS .NE. 15) GO TO 3116 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15)) RETURN 3116 IF(NARGS .NE. 16) GO TO 3117 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16)) RETURN 3117 IF(NARGS .NE. 17) GO TO 3118 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16),IARGS(17)) RETURN 3118 IF(NARGS .NE. 18) GO TO 3119 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16),IARGS(17), # IARGS(18)) RETURN 3119 IF(NARGS .NE. 19) GO TO 3120 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16),IARGS(17), # IARGS(18),IARGS(19)) RETURN 3120 IF(NARGS .NE. 20) GO TO 99999 CALL HTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16),IARGS(17), # IARGS(18),IARGS(19),IARGS(20)) RETURN 3200 IF(NARGS .NE. 0) GO TO 99999 CALL IND RETURN 3300 IF(NARGS .NE. 0) GO TO 99999 CALL KPAM RETURN 3400 IF(NARGS .NE. 0) GO TO 99999 CALL KPNM RETURN 3500 IF(NARGS .NE. 0) GO TO 3501 CALL LLEDS RETURN 3501 IF(NARGS .NE. 1) GO TO 3502 CALL LLEDS(IARGS(1)) RETURN 3502 IF(NARGS .NE. 2) GO TO 3503 CALL LLEDS(IARGS(1),IARGS(2)) RETURN 3503 IF(NARGS .NE. 3) GO TO 3504 CALL LLEDS(IARGS(1),IARGS(2),IARGS(3)) RETURN 3504 IF(NARGS .NE. 4) GO TO 99999 CALL LLEDS(IARGS(1),IARGS(2),IARGS(3),IARGS(4)) RETURN 3600 IF(NARGS .NE. 0) GO TO 99999 CALL LNEFDM RETURN 3700 IF(NARGS .NE. 0) GO TO 3701 CALL MDCPY RETURN 3701 IF(NARGS .NE. 1) GO TO 99999 CALL MDCPY(IARGS(1)) RETURN 3800 IF(NARGS .NE. 0) GO TO 99999 CALL NEL RETURN 3900 IF(NARGS .NE. 0) GO TO 99999 CALL NWLNEM RETURN 4000 IF(NARGS .NE. 0) GO TO 99999 CALL PLD RETURN 4100 IF(NARGS .NE. 0) GO TO 99999 CALL PLU RETURN 4200 IF(NARGS .NE. 0) GO TO 99999 CALL RESCUR RETURN 4300 IF(NARGS .NE. 0) GO TO 99999 CALL RGSTRM RETURN 4400 IF(NARGS .NE. 0) GO TO 99999 CALL RI RETURN 4500 IF(NARGS .NE. 0) GO TO 99999 CALL RIS RETURN 4600 IF(NARGS .NE. 0) GO TO 4601 CALL RM RETURN 4601 IF(NARGS .NE. 1) GO TO 99999 CALL RM(IARGS(1)) RETURN 4700 IF(NARGS .NE. 0) GO TO 99999 CALL RPTCP RETURN 4800 IF(NARGS .NE. 0) GO TO 99999 CALL RPTDS RETURN 4900 IF(NARGS .NE. 0) GO TO 99999 CALL RPTID RETURN 5000 IF(NARGS .NE. 0) GO TO 99999 CALL SAVCUR RETURN 5100 IF(NARGS .NE. 0) GO TO 5101 CALL SCSAL1 RETURN 5101 IF(NARGS .NE. 1) GO TO 99999 CALL SCSAL1(IARGS(1)) RETURN 5200 IF(NARGS .NE. 0) GO TO 5201 CALL SCSAL2 RETURN 5201 IF(NARGS .NE. 1) GO TO 99999 CALL SCSAL2(IARGS(1)) RETURN 5300 IF(NARGS .NE. 0) GO TO 5301 CALL SCSFIN RETURN 5301 IF(NARGS .NE. 1) GO TO 99999 CALL SCSFIN(IARGS(1)) RETURN 5400 IF(NARGS .NE. 0) GO TO 5401 CALL SCSFRA RETURN 5401 IF(NARGS .NE. 1) GO TO 99999 CALL SCSFRA(IARGS(1)) RETURN 5500 IF(NARGS .NE. 0) GO TO 5501 CALL SCSGER RETURN 5501 IF(NARGS .NE. 1) GO TO 99999 CALL SCSGER(IARGS(1)) RETURN 5600 IF(NARGS .NE. 0) GO TO 5601 CALL SCSGRF RETURN 5601 IF(NARGS .NE. 1) GO TO 99999 CALL SCSGRF(IARGS(1)) RETURN 5700 IF(NARGS .NE. 0) GO TO 5701 CALL SCSNOR RETURN 5701 IF(NARGS .NE. 1) GO TO 99999 CALL SCSNOR(IARGS(1)) RETURN 5800 IF(NARGS .NE. 0) GO TO 5801 CALL SCSQUE RETURN 5801 IF(NARGS .NE. 1) GO TO 99999 CALL SCSQUE(IARGS(1)) RETURN 5900 IF(NARGS .NE. 0) GO TO 5901 CALL SCSSWE RETURN 5901 IF(NARGS .NE. 1) GO TO 99999 CALL SCSSWE(IARGS(1)) RETURN 6000 IF(NARGS .NE. 0) GO TO 6001 CALL SCSUK RETURN 6001 IF(NARGS .NE. 1) GO TO 99999 CALL SCSUK(IARGS(1)) RETURN 6100 IF(NARGS .NE. 0) GO TO 6101 CALL SCSUSA RETURN 6101 IF(NARGS .NE. 1) GO TO 99999 CALL SCSUSA(IARGS(1)) RETURN 6200 IF(NARGS .NE. 0) GO TO 99999 CALL SCS0 RETURN 6300 IF(NARGS .NE. 0) GO TO 99999 CALL SCS1 RETURN 6400 IF(NARGS .NE. 0) GO TO 6401 CALL SETLPP RETURN 6401 IF(NARGS .NE. 1) GO TO 99999 CALL SETLPP(IARGS(1)) RETURN 6500 IF(NARGS .NE. 0) GO TO 6501 CALL SETLRM RETURN 6501 IF(NARGS .NE. 1) GO TO 6502 CALL SETLPP(IARGS(1)) RETURN 6502 IF(NARGS .NE. 2) GO TO 99999 CALL SETLPP(IARGS(1),IARGS(2)) RETURN 6600 IF(NARGS .NE. 0) GO TO 6601 CALL SETTBM RETURN 6601 IF(NARGS .NE. 1) GO TO 6602 CALL SETTBM(IARGS(1)) RETURN 6602 IF(NARGS .NE. 2) GO TO 99999 CALL SETTBM(IARGS(1),IARGS(2)) RETURN 6700 IF(NARGS .NE. 0) GO TO 6701 CALL SGR RETURN 6701 IF(NARGS .NE. 1) GO TO 6702 CALL SGR(IARGS(1)) RETURN 6702 IF(NARGS .NE. 2) GO TO 6703 CALL SGR(IARGS(1),IARGS(2)) RETURN 6703 IF(NARGS .NE. 3) GO TO 6704 CALL SGR(IARGS(1),IARGS(2),IARGS(3)) RETURN 6704 IF(NARGS .NE. 4) GO TO 99999 CALL SGR(IARGS(1),IARGS(2),IARGS(3),IARGS(4)) RETURN 6800 IF(NARGS .NE. 0) GO TO 6801 CALL SHPTCH RETURN 6801 IF(NARGS .NE. 1) GO TO 99999 CALL SHPTCH(IARGS(1)) RETURN 6900 IF(NARGS .NE. 0) GO TO 6901 CALL SM RETURN 6901 IF(NARGS .NE. 1) GO TO 99999 CALL SM(IARGS(1)) RETURN 7000 IF(NARGS .NE. 0) GO TO 99999 CALL SS2 RETURN 7100 IF(NARGS .NE. 0) GO TO 99999 CALL SS3 RETURN 7200 IF(NARGS .NE. 0) GO TO 7201 CALL SVPTCH RETURN 7201 IF(NARGS .NE. 1) GO TO 99999 CALL SVPTCH(IARGS(1)) RETURN 7300 IF(NARGS .NE. 0) GO TO 99999 CALL SWL RETURN 7400 IF(NARGS .NE. 0) GO TO 7401 CALL VPA RETURN 7401 IF(NARGS .NE. 1) GO TO 99999 CALL VPA(IARGS(1)) RETURN 7500 IF(NARGS .NE. 0) GO TO 7501 CALL VPR RETURN 7501 IF(NARGS .NE. 1) GO TO 99999 CALL VPR(IARGS(1)) RETURN 7600 IF(NARGS .NE. 0) GO TO 99999 CALL VTBCLA RETURN 7700 IF(NARGS .NE. 0) GO TO 99999 CALL VTBCLC RETURN 7800 IF(NARGS .NE. 0) GO TO 99999 CALL VTBSTC RETURN 7900 IF(NARGS .NE. 0) GO TO 7901 CALL VTBSTS RETURN 7901 IF(NARGS .NE. 1) GO TO 7902 CALL VTBSTS (IARGS(1)) RETURN 7902 IF(NARGS .NE. 2) GO TO 7903 CALL VTBSTS (IARGS(1),IARGS(2)) RETURN 7903 IF(NARGS .NE. 3) GO TO 7904 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3)) RETURN 7904 IF(NARGS .NE. 4) GO TO 7905 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4)) RETURN 7905 IF(NARGS .NE. 5) GO TO 7906 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5)) RETURN 7906 IF(NARGS .NE. 6) GO TO 7907 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6)) RETURN 7907 IF(NARGS .NE. 7) GO TO 7908 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7)) RETURN 7908 IF(NARGS .NE. 8) GO TO 7909 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8)) RETURN 7909 IF(NARGS .NE. 9) GO TO 7910 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9)) RETURN 7910 IF(NARGS .NE. 10) GO TO 7911 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10)) RETURN 7911 IF(NARGS .NE. 11) GO TO 7912 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11)) RETURN 7912 IF(NARGS .NE. 12) GO TO 7913 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12)) RETURN 7913 IF(NARGS .NE. 13) GO TO 7914 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13)) RETURN 7914 IF(NARGS .NE. 14) GO TO 7915 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14)) RETURN 7915 IF(NARGS .NE. 15) GO TO 7916 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15)) RETURN 7916 IF(NARGS .NE. 16) GO TO 7917 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16)) RETURN 7917 IF(NARGS .NE. 17) GO TO 7918 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16),IARGS(17)) RETURN 7918 IF(NARGS .NE. 18) GO TO 7919 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16),IARGS(17), # IARGS(18)) RETURN 7919 IF(NARGS .NE. 19) GO TO 7920 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16),IARGS(17), # IARGS(18),IARGS(19)) RETURN 7920 IF(NARGS .NE. 20) GO TO 99999 CALL VTBSTS (IARGS(1),IARGS(2),IARGS(3),IARGS(4),IARGS(5), # IARGS(6),IARGS(7),IARGS(8),IARGS(9),IARGS(10),IARGS(11), # IARGS(12),IARGS(13),IARGS(14),IARGS(15),IARGS(16),IARGS(17), # IARGS(18),IARGS(19),IARGS(20)) RETURN 99999 IDSPTC = -2 RETURN END