00001
00002 c
00003 c Copyright (c) 1986,1987,1988,1989,1990,1991,1992,1993,
00004 c by Steve McMillan, Drexel University, Philadelphia, PA.
00005 c
00006 c All rights reserved.
00007 c
00008 c Redistribution and use in source and binary forms are permitted
00009 c provided that the above copyright notice and this paragraph are
00010 c duplicated in all such forms and that any documentation,
00011 c advertising materials, and other materials related to such
00012 c distribution and use acknowledge that the software was developed
00013 c by the author named above.
00014 c
00015 c THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
00016 c IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
00017 c WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
00018 c
00019
00020 subroutine init chars
00021 save
00022 c
00023 c General routine to set up useful character strings.
00024 c
00025 character*1 ctrl(0:31),
00026 & null,ctrla,tab,lf,ff,cr,ctrlx,ctrlz,esc,gs,del
00027 common /ctrlch/ ctrl,
00028 & null,ctrla,tab,lf,ff,cr,ctrlx,ctrlz,esc,gs,del
00029 c
00030 character*1 tekc(4),hpc(3),hpon(3),hpoff(6)
00031 common /dev controls/ tekc,hpc,hpon,hpoff
00032 data hpc/'P','G',';'/
00033 & hpon/' ','.','y'/hpoff/'P','U',';',' ','.','Z'/
00034 c
00035 do 1 i=0,31
00036 ctrl(i) = char(i)
00037 1 continue
00038 c
00039 null = ctrl(0)
00040 ctrla = ctrl(1)
00041 tab = ctrl(9)
00042 lf = ctrl(10)
00043 ff = ctrl(12)
00044 cr = ctrl(13)
00045 ctrlx = ctrl(24)
00046 ctrlz = ctrl(26)
00047 esc = ctrl(27)
00048 gs = ctrl(29)
00049 del = char(127)
00050 c
00051 tekc(1) = gs
00052 tekc(2) = esc
00053 tekc(3) = ff
00054 tekc(4) = gs
00055 hpon(1) = esc
00056 hpoff(4) = esc
00057 c
00058 end
