Ascii: CEDAR DEFINITIONS = BEGIN NUL: CHAR = 0C; ControlA: CHAR = 'A - 100B; ControlB: CHAR = 'B - 100B; ControlC: CHAR = 'C - 100B; ControlD: CHAR = 'D - 100B; ControlE: CHAR = 'E - 100B; ControlF: CHAR = 'F - 100B; ControlG, BEL: CHAR = 'G - 100B; ControlH, BS: CHAR = 'H - 100B; ControlI, TAB: CHAR = 'I - 100B; ControlJ, LF: CHAR = 'J - 100B; ControlK: CHAR = 'K - 100B; ControlL, FF: CHAR = 'L - 100B; ControlM, CR: CHAR = 'M - 100B; ControlN: CHAR = 'N - 100B; ControlO: CHAR = 'O - 100B; ControlP: CHAR = 'P - 100B; ControlQ: CHAR = 'Q - 100B; ControlR: CHAR = 'R - 100B; ControlS: CHAR = 'S - 100B; ControlT: CHAR = 'T - 100B; ControlU: CHAR = 'U - 100B; ControlV: CHAR = 'V - 100B; ControlW: CHAR = 'W - 100B; ControlX: CHAR = 'X - 100B; ControlY: CHAR = 'Y - 100B; ControlZ: CHAR = 'Z - 100B; ESC: CHAR = 33C; SP: CHAR = ' ; DEL: CHAR = 177C; controlOffset: NAT = 100B; caseOffset: NAT = 'a - 'A; Control: PROC [ch: CHAR] RETURNS [CHAR] = INLINE { RETURN [IF ch IN ['A..'Z] THEN ch - controlOffset ELSE ch] }; Upper: PROC [ch: CHAR] RETURNS [CHAR] = INLINE { RETURN [IF ch IN ['a..'z] THEN ch - caseOffset ELSE ch] }; Lower: PROC [ch: CHAR] RETURNS [CHAR] = INLINE { RETURN [IF ch IN ['A..'Z] THEN ch + caseOffset ELSE ch] }; Letter: PROC [ch: CHAR] RETURNS [BOOL] = INLINE { RETURN [ch IN ['A..'Z] OR ch IN ['a..'z]] }; Digit: PROC [ch: CHAR] RETURNS [BOOL] = INLINE { RETURN [ch IN ['0..'9]] }; END. -- of Ascii.mesa ÜAscii.Mesa Edited by Karlton on Jun 12, 1979 1:33 PM Last edited by Paul Rovner on August 8, 1983 12:21 pm Last Edited by: Levin, August 8, 1983 6:21 pm some control characters character conversion operations Ę˜Jšœ6™6šœ6™6JšĪk-™-Jšœœ˜š˜J™Jšœ™Jšœœ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œœ ˜ Jšœ œœ ˜Jšœ œœ ˜ Jšœ œœ ˜Jšœ œ ˜Jšœ œœ ˜Jšœ œœ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜Jšœ œ ˜J˜Jšœœ˜Jšœœ˜Jšœœ˜J™Jšœ™J˜Jšœœ ˜Jšœ œ ˜J˜š Īnœœœœœœ˜2Jš œœœ œœ˜:J˜J˜—š žœœœœœœ˜0Jš œœœ œœ˜7J˜J˜—š žœœœœœœ˜0Jš œœœ œœ˜7J˜J˜—š žœœœœœœ˜1Jšœœ œœ ˜)J˜J˜—š žœœœœœœ˜0Jšœœ ˜J˜J˜——J˜JšœĪc˜—J˜—…—¨ ˜