SET MODE CHANGE SET EN W ' '' ,()=+-/*;[]<>' SET EN SEN ';' SET EN PAR "'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'ARRAY' ." DEF K G B AS "i'BEGIN' ." DEF K G C AS "i'COMMON' ( ." DEF K G D AS "i'DELETE' ." DEF K G E AS "i'END'; ." DEF K G F AS "i'FOR' ?*'FOR Loop variable: ':=?*':= Start: ' 'STEP' ?*' STEP ' 'UNTIL' ?*' UNTIL ' 'DO' ." DEF K G G AS "i'GOTO' ." DEF K G H AS "iEXT HELP CORAL." DEF K G I AS "i'IF' ." DEF K G J AS "i'LABEL' ." DEF K G K AS "i'CODE' 'BEGIN' { ." DEF K G L AS 'i''LIBRARY'' "LB:[1,1]CORALK.LIB" ''LIBRARY'' "LB:[1,1]FLOATK.LIB" .' DEF K G M AS "i'DEFINE' ." DEF K G N AS "i'LIBRARY' ""LY:[200,201]CNL?*'Library section: 'K.LIB"" ." DEF K G O AS "i'OVERLAY' ?*'OVERLAY Variable: ' 'WITH' ." DEF K G P AS "i'PROCEDURE' ." DEF K G Q AS "iWRITETEXT(""?*'WRITETEXT( Prompt: '""); ?*'; Variable':=READ." DEF K G R AS "i'ANSWER' ." DEF K G S AS "i'SWITCH' ." DEF K G T AS "i 'THEN' ." DEF K G U AS "iWRITEF?*'WRITEF No of parameters = '(""." DEF K G V AS "i'COMMENT' ." DEF K G W AS "i'FOR' ?*'FOR loop variable: ':=?*':=Start,step: ' 'WHILE' ?*' WHILE Condition: ' 'DO' ." DEF K G X AS "i:=READ." DEF K G Y AS "i 'ELSE' ." DEF K G Z AS "i'END' 'FINISH'." DEF K G @ AS "i'ABSOLUTE' ( ." DEF K G # AS "iFALSE." DEF K G $ AS "i'LITERAL'(." DEF K G "%" AS "i'VALUE'." DEF K G ^ AS "i 'AND' ." DEF K G & AS "i 'MASK' ." DEF K G * AS "iTRUE." DEF K G ( AS "i'LOCATION'(." DEF K G ) AS "i'OCTAL'(." DEF K G _ AS "i 'DIFFER' -1." DEF K G + AS "i 'OR' ." DEF K G = AS "i'IF' ?*'IF '=?*'=' 'THEN' ." DEF K G ` AS "D+C+CUNDC-C." DEF K G ~ AS "+CDEWBACKWUNDWADVW-C." DEF K G ] AS "i 'DIFFER' ." DEF K G [ AS "i'BYTE''ARRAY' ." DEF K G | AS "i 'UNION' ." DEF K G \ AS "i:=." DEF K G : AS "i'UNSIGNED'(." DEF K G ; AS "i'FLOATING' ." DEF K G } AS "i'TABLE' ." DEF K G { AS "i'INFINITY'." DEF K G > AS "i'IF' ?*'IF '>?*'>' 'THEN' ." DEF K G , AS "i'INTEGER' ." DEF K G < AS "i'IF' ?*'IF '