'NOLIST'
   'DEFINE' BAS"
   (
 
   'COMMENT' I/O INITIALIZATION AND TERMINATION PROCEDURES;
 
 
   'PROCEDURE'           DEFLUN   ('VALUE''BYTE','VALUE''INTEGER','LABEL');
   'PROCEDURE'           CREATE   ('VALUE''BYTE','VALUE''INTEGER','VALUE''INTEGER','VALUE''BYTE','LABEL');
   'PROCEDURE'           OPEN     ('VALUE''BYTE','VALUE''INTEGER','VALUE''INTEGER','VALUE''BYTE','LABEL');
   'PROCEDURE'           CLOSE    ('VALUE''BYTE','LABEL');
   'PROCEDURE'           RELEASE  ('VALUE''BYTE','LABEL');
   'PROCEDURE'           DELETE   ('VALUE''BYTE','LABEL');
   'INTEGER''PROCEDURE'  QIO      ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER',
   'VALUE''INTEGER','INTEGER''ARRAY','INTEGER''ARRAY');
   'INTEGER''PROCEDURE'  WAITEF   ('VALUE''INTEGER');
 
   'COMMENT' RECORD I/O PROCEDURES;
   'PROCEDURE'           READREC  ('VALUE''BYTE','BYTE''ARRAY','VALUE''INTEGER','LOCATION''INTEGER','LABEL',
   'LABEL');
   'PROCEDURE'           WRITEREC ('VALUE''BYTE','BYTE''ARRAY','VALUE''INTEGER','LOCATION''INTEGER','LABEL');
   'PROCEDURE'           DIRECT   ('VALUE''BYTE','VALUE''FLOATING','LABEL');
 
   'COMMENT' CONVERSION PROCEDURES;
   'INTEGER''PROCEDURE'  ASCRAD   ('VALUE''BYTE','VALUE''BYTE','VALUE''BYTE','LOCATION''INTEGER');
   'INTEGER''PROCEDURE'  RADASC   ('LOCATION''BYTE','LOCATION''BYTE','LOCATION''BYTE','VALUE''INTEGER');
 
   'COMMENT' ERROR HANDLING PROCEDURES;
   'PROCEDURE'           ERRSET   ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER',
   'VALUE''INTEGER','BYTE''ARRAY');
 
   'COMMENT' SPECIAL MACRO BASED ROUTINES;
   'INTEGER''PROCEDURE'  SPAWN    ('INTEGER''ARRAY');
   'INTEGER''PROCEDURE'  SPEAK    ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  LISTEN;
 
   'COMMENT' MATHS PROCEDURES;
   'FLOATING''PROCEDURE' ABS      ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' AINT     ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' AMOD     ('VALUE''FLOATING','VALUE''FLOATING');
   'FLOATING''PROCEDURE' SIGN     ('VALUE''FLOATING','VALUE''FLOATING');
   'FLOATING''PROCEDURE' DIM      ('VALUE''FLOATING','VALUE''FLOATING');
   'FLOATING''PROCEDURE' EXP      ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' ALOG     ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' ALOG10   ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' SQRT     ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' SIN      ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' COS      ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' ATAN     ('VALUE''FLOATING');
   'FLOATING''PROCEDURE' RAN      ('LOCATION' 'INTEGER','LOCATION' 'INTEGER');
 
   'COMMENT' SPECIAL PLOTTER ROUTINES;
   'PROCEDURE'           INIPLT;
   'PROCEDURE'           FINPLT;
   'PROCEDURE'           RED;
   'PROCEDURE'           BLK;
   'PROCEDURE'           TXT      ('VALUE''FLOATING','VALUE''INTEGER','VALUE''INTEGER');
   'PROCEDURE'           MOV      ('VALUE''FLOATING','VALUE''FLOATING');
   'PROCEDURE'           PLT      ('VALUE''FLOATING','VALUE''FLOATING');
   'PROCEDURE'           CIR      ('VALUE''FLOATING');
   'PROCEDURE'           ARR      ('VALUE''INTEGER','VALUE''FLOATING');
   'PROCEDURE'           ARC      ('VALUE''FLOATING','VALUE''FLOATING','VALUE''FLOATING');
   'PROCEDURE'           DEV      ('VALUE''INTEGER');
   'PROCEDURE'           SQR      ('VALUE''FLOATING');
   'PROCEDURE'           CRS      ('VALUE''FLOATING');
   'PROCEDURE'           PLS      ('VALUE''FLOATING');
 
   'COMMENT' ROUTINES WRITTEN IN MACRO 11;
   'PROCEDURE'           WHERE    ('LOCATION''FLOATING','LOCATION''FLOATING','LOCATION''FLOATING');
   'PROCEDURE'           PLOT     ('LOCATION''FLOATING','LOCATION''FLOATING','LOCATION''INTEGER');
   'PROCEDURE'           SYMBOL   ('LOCATION''FLOATING','LOCATION''FLOATING','LOCATION''FLOATING',
   'LOCATION''INTEGER','LOCATION''FLOATING','LOCATION''INTEGER');
 
   'COMMENT' BASIC COMPATABLE PROCEDURES;
   'INTEGER''PROCEDURE'  LEN      ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  COMPARE  ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  SEG      ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  COPY     ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  POS      ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  ADD      ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  ADD TO   ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  VDU      ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  VDULUN   ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  VDUFLG   ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  SYS      ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  INKEYS;
   'INTEGER''PROCEDURE'  RT04     ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  VDUSP    ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  STR      ('VALUE''INTEGER','VALUE''FLOATING');
   'BYTE'   'PROCEDURE'  ASC      ('VALUE''INTEGER');
   'FLOATING''PROCEDURE' VAL      ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  CHR      ('VALUE''BYTE');
   'INTEGER''PROCEDURE'  QUOTE;
   'INTEGER''PROCEDURE'  A SPACE;
   'INTEGER''PROCEDURE'  A TAB;
   'INTEGER''PROCEDURE'  FILEIN   ('VALUE''BYTE');
   'INTEGER''PROCEDURE'  BLOCKIN  ('VALUE''BYTE');
   'INTEGER''PROCEDURE'  LFILEIN  ('VALUE''BYTE','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  LBLOCKIN ('VALUE''BYTE','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  FILEOUT  ('VALUE''BYTE','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  BLOCKOUT ('VALUE''BYTE','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  FILE     ('VALUE''BYTE','VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  FILL     ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  CRLF;
   'INTEGER''PROCEDURE'  CLEAR    ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  DAT;
   'INTEGER''PROCEDURE'  CLK;
   'INTEGER''PROCEDURE'  UIC;
   'FLOATING''PROCEDURE' CLOCK    ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  TABLOAD  ('VALUE''INTEGER','VALUE''INTEGER');
   'PROCEDURE'           TERMINAL ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  ASCR50   ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  R50ASC   ('VALUE''INTEGER');
   'INTEGER''PROCEDURE'  COMSORT  ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  CHARVER  ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  MULS     ('VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  CVT      ('VALUE''INTEGER','VALUE''FLOATING');
   'INTEGER''PROCEDURE'  SRP      ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  CYPHER   ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  SPLIT    ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  SPLITS   ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  ASK      ('INTEGER''ARRAY','VALUE''INTEGER');
   'INTEGER''PROCEDURE'  TABMOD   ('VALUE''INTEGER');
 
   'COMMENT' PROCEDURE STRINGS;
   'INTEGER''PROCEDURE' BIGS;
   'INTEGER''PROCEDURE' AS;
   'INTEGER''PROCEDURE' BS;
   'INTEGER''PROCEDURE' CS;
   'INTEGER''PROCEDURE' DS;
   'INTEGER''PROCEDURE' ES;
   'INTEGER''PROCEDURE' FS;
   'INTEGER''PROCEDURE' GS;
   'INTEGER''PROCEDURE' HS;
   'INTEGER''PROCEDURE' IS;
   'INTEGER''PROCEDURE' JS;
   'INTEGER''PROCEDURE' KS;
   'INTEGER''PROCEDURE' LS;
   'INTEGER''PROCEDURE' MS;
   'INTEGER''PROCEDURE' NS;
   'INTEGER''PROCEDURE' OS;
   'INTEGER''PROCEDURE' PS;
   'INTEGER''PROCEDURE' QS;
   'INTEGER''PROCEDURE' RS;
   'INTEGER''PROCEDURE' SS;
   'INTEGER''PROCEDURE' TS;
   'INTEGER''PROCEDURE' US;
   'INTEGER''PROCEDURE' VS;
   'INTEGER''PROCEDURE' WS;
   'INTEGER''PROCEDURE' XS;
   'INTEGER''PROCEDURE' YS;
   'INTEGER''PROCEDURE' ZS)";
   'LIST'