SET MODE CHANGE SET SCREEN 72 SET EN W ' ,()=+-/*' SET EN SEN ' ' SET EN PAR 'CONTINUE' SET EN PAG 'END' DEF K CON B AS "BACKWADV." DEF K CON G AS "^G." DEF K CON N AS "EXT N?*'Change next: '?*' to: '." DEF K CON P AS "CUTPAR=PARAGRAPH." DEF K CON R AS "SEN." DEF K CON V AS "EXT S?*'Change every: '?*' to: 'WH." DEF K CON _ AS "CUTSEN=SENTENCE." DEF K CON ^ AS "PAR." DEF K CON \ AS "SHL." DEF K CON ] AS "SHR." DEF K G CON H AS "16-C." DEF K G CON I AS "16+C." DEF K G CON P AS "PASTE=PARAGRAPH." DEF K G CON R AS "BACKSENADV." DEF K G CON _ AS "PASTE=SENTENCE." DEF K G CON ^ AS "BACKPARADV." DEF K G DEL AS "EXT DEL S." DEF K G ` AS "D+C+CUNDC-C." DEF K G ~ AS "+CDEWBACKWUNDWADVW-C." DEF KEY G FUN 3 AS "CUTSRPASTE." DEF KEY G FUN 4 AS "RESET" DEF KEY G FUN 5 AS "(-66L)." DEF KEY G FUN 6 AS "(+66L)." DEF KEY FUN 19 AS "D+EL." DEF K FUN 20 AS "EXT SET SCREEN 132." DEF K G FUN 20 AS "EXT SET SCREEN 80." DEF K FUN 21 AS "CHGCSR." DEF K G FUN 21 AS "DATE." DEF K FUN 23 AS "^[." DEF K FUN 26 AS "EXT ?*'Command :'." DEF K G FUN 26 AS "EXT QUIT." DEF K G FUN 29 AS "EXT EXIT." DEF K FUN 31 AS "^M-C." DEF K FUN 32 AS "RESET" DEF K G FUN 32 AS "D+C+CUNDC." DEF K FUN 33 AS "UNDW." DEF K G FUN 33 AS "D+EW +W UNDW." DEF K FUN 34 AS "UNDL." DEF K G FUN 34 AS "D+NL+LUNDL." DEF K G A AS "i ACCEPT *,." DEF K G B AS "i BYTE ." DEF K G C AS "i CLOSE(UNIT=?*'CLOSE(UNIT= ') ." DEF K G D AS "i DATA ." DEF K G E AS "i END." DEF K G F AS "i FORMAT(." DEF K G G AS "i GOTO ." DEF K G H AS "EXT HELP FORTRAN." DEF K G I AS "i INTEGER ." DEF K G J AS "i IF(." DEF K G K AS "i CALL ." DEF K G L AS "i LOGICAL ." DEF K G M AS "i ELSE ." DEF K G N AS "i CONTINUE ." DEF K G O AS "i OPEN(UNIT=?*'OPEN(UNIT= ',NAME=?*',NAME= '." DEF K G P AS "i SUBROUTINE ." DEF K G Q AS "i TYPE ?*'Prompt format No: ' ACCEPT *,?*'' ." DEF K G R AS "i RETURN ." DEF K G S AS "i STOP." DEF K G T AS "i TYPE *,." DEF K G U AS "i DO ?*'DO ' ?*' '=." DEF K G V AS "i VIRTUAL ." DEF K G W AS "i WRITE(." DEF K G X AS "i READ(." DEF K G Y AS "i EQUIVALENCE (." DEF K G Z AS "i COMMON/." DEF K G "!" AS "i,TYPE='." DEF K G @ AS "i INCLUDE '." DEF K G # AS "i.FALSE.." DEF K G "%" AS "i,FORM='?*'FORM={UN} 'FORMATTED'." DEF K G $ AS "i PARAMETER ." DEF K G ^ AS "i DECODE(." DEF K G & AS "i .AND. ." DEF K G * AS "i.TRUE.." DEF K G ( AS "i FUNCTION ." DEF K G ) AS "i ASSIGN ." DEF K G _ AS "i .NOT.." DEF K G + AS "i .EQV. ." DEF K G = AS "i IF(?*'IF('.EQ.?*'.EQ.') ." DEF K G ~ AS "+CDEWBACKWUNDWADVW-C." DEF K G ` AS "D+C+CUNDC-C." DEF K G ] AS "i CHARACTER ." DEF K G [ AS "i .XOR. ." DEF K G | AS "i .OR. ." DEF K G \ AS "i * ." DEF K G : AS "i BLOCK DATA." DEF K G ; AS "i REAL ." DEF K G '"' AS "i,DISPOSE='." DEF K G "'" AS "i,CARRIAGECONTROL='." DEF K G } AS "i COMPLEX ." DEF K G { AS "i DOUBLE PRECISION ." DEF K G < AS "i IF(?*'IF('.LT.?*'.LT.') ." DEF K G , AS "i DIMENSION ." DEF K G > AS "i IF(?*'IF('.GT.?*'.GT.') ." DEF K G . AS "i C ." DEF K G ? AS "i ENCODE(." DEF K G / AS "i EXTERNAL ." SET COMMAND SYS$LOGIN:EDTINI.EDT SET COMMAND EDTINI.EDT