home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / kaypro / newritkp.lbr / CTVSTUFF.IZC / CTVSTUFF.INC
Encoding:
Text File  |  1986-12-27  |  640 b   |  15 lines
  1. CONST
  2. MNR=1; MNC=1; MXR=23; MXC=50; CAPS=TRUE; ACAPS=FALSE; NUM=TRUE; 
  3. ANUM=FALSE; FRACS=TRUE; AFRACS=FALSE; FAST=TRUE; SLOW=FALSE;
  4. TYPE
  5. shortstr=string[1]; midstr=string[50]; longstr=string[90];
  6. charset =set of char; filetype=text; filename=string[50];
  7. crtcommand=(HOME,CLEAR,ERASEOL,UP,DOWN,LEFT,RIGHT,
  8. LV,NV,GRON,GROFF,BEEP,ESC,UNDER,NOUNDER,BS,CAN,RET);
  9. VAR
  10. row,col,maxlen : integer; sstr,bstr : shortstr;
  11. mstr,msgstr,inpstr,defstr : midstr; lstr : longstr;
  12. textin,textout: filetype; fnamein,fnameout : filename;
  13. i,j,k,l,m,n : integer; r : real; e : boolean;
  14. idstr; lstr : longstr;
  15. textin,textout: filetype; fnamein,fname