/L7"Pascal/iX" Nocase Block Comment On = { Block Comment Off = } File Extensions = PASCAL PAS pas external include module forward p /Delimiters = ~!@$%^&*()-+=|\/{}[]:;"'<> , .?/ /C1 and array begin boolean case char const div do downto else end enumerated false file for function goto if in input integer label maxint minint mod nil not of or output packed procedure program real record repeat set subrange text then to true type until var while with /C2 abs arctan chr close cos dispose eof eoln exp get ln new odd open ord pack page pred put read readln reset rewrite round sin sqr sqrt succ trunc unpack write writeln /C3 anyptr append assert associate baddress binary bit16 bit32 bit52 ccode disassociate export fnum get_alignment getheap globalanyptr halt hex implement import lastpos linepos localanyptr longint longreal mark maxpos module octal otherwise overprint p_getheap p_rtnheap position prompt readdir release rtnheap seek setstrlen shortint sizeof str strappend strdelete string strinsert strlen strltrim strmax strmove strpos strread strrpt strrtrim strwrite waddress writedir /C4 anyvar addr addtopointer bitsizeof buildpointer call callers_parmarea callers_tos cmpbytes crunched default_parm definition escape escapecode extensible fcall fast_fill flush_dc_entry flush_d_cache get_callers_xl get_control_reg haveextension haveoptvarparm hidden inline load_clear_sema load_phys_addr load_word_abs move_fast move_l_to_r move_r_to_l move_to_sys_mask movebyteswhile option probe_page purge_d_cache qualified readonly recover reset_sys_mask scanuntil scanwhile setconvert set_control_reg set_sys_mask sizeof statement_number strconvert susizeof sync_caches uncheckable_anyvar unresolved try /C5 argc argn argv