home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / misc / mas / mashelp / masbios.def < prev    next >
Encoding:
Modula Definition  |  1990-10-30  |  3.8 KB  |  140 lines
  1.  
  2. DEFINITION MODULE MASBIOS;
  3.  
  4. (* Import lists and Definitions *)
  5.  
  6.   FROM Portab IMPORT STRING;
  7.  
  8.   FROM MASELEM IMPORT GAMMAINT;
  9.  
  10.   FROM MASSTOR IMPORT LIST;
  11.  
  12.   VAR  CHI : GAMMAINT;
  13.  
  14.  
  15. PROCEDURE BKSP();
  16. (*Backspace.  Reread the last character from the input stream. *)
  17.  
  18.  
  19. PROCEDURE BLINES(N : GAMMAINT);
  20. (*Blank lines.  N is a positive integer.  N records of one blank each
  21. are output. *)
  22.  
  23.  
  24. PROCEDURE CREAD(): GAMMAINT;
  25. (*Character read.  Returns next character from the input stream. *)
  26.  
  27.  
  28. PROCEDURE CREADB(): GAMMAINT;
  29. (*Character read, skipping blanks. Returns next character from the
  30. input stream. *)
  31.  
  32.  
  33. PROCEDURE CWRITE(C : GAMMAINT);
  34. (*Character write. The character c is transmitted to the output
  35. stream. *)
  36.  
  37.  
  38. PROCEDURE CloseBIOS();
  39. (*Close BIOS.  Close all streams and write summary. *)
  40.  
  41.  
  42. PROCEDURE CUNIT(S : STRING): GAMMAINT;
  43. (*Close unit.  The unit S is closed, with S as the external name.
  44. CUNIT returns 0 on successful completion, ne 0 else.*)
  45.  
  46.  
  47. PROCEDURE DIBUFF();
  48. (*Display input buffer.  The input buffer status is displayed.*)
  49.  
  50.  
  51. PROCEDURE DIGIT(C : GAMMAINT): BOOLEAN;
  52. (*Digit.  c is a character.  If c is a digit then TRUE is returned
  53. otherwise FALSE is returned. *)
  54.  
  55.  
  56. PROCEDURE GREAD(): GAMMAINT;
  57. (*Gamma-integer read.  A gamma-integer is read from the input
  58. stream.  any preceding blanks are skipped. *)
  59.  
  60.  
  61. PROCEDURE GWRITE(a : GAMMAINT);
  62. (*Gamma-integer write.  The gamma-integer a is written in the output
  63. stream.*)
  64.  
  65.  
  66. PROCEDURE LETTER(C : GAMMAINT): BOOLEAN;
  67. (*Letter.  c is a character.  If c is a letter then TRUE is returned
  68. otherwise FALSE is returned. *)
  69.  
  70.  
  71. PROCEDURE LISTS(S : ARRAY OF CHAR ): LIST;               (* Topspeed-Change *)
  72. (*LIST FROM STRING. S is a character string with respect to local
  73. character code. A list if the corresponding ALDES character codes
  74. is returned.*)
  75.  
  76.  
  77. PROCEDURE SLIST(A : LIST; VAR S : STRING);
  78. (*STRING FROM LIST. A is a list of ALDES character codes. 
  79. S is a the corresponding character string with respect to local
  80. character codes. *)
  81.  
  82.  
  83. PROCEDURE MASCHR(C : GAMMAINT): CHAR;
  84. (*MAS character.  Returns the local character for the aldes character c. *)
  85.  
  86.  
  87. PROCEDURE MASORD(C : CHAR): GAMMAINT;
  88. (*MAS order.  Returns the aldes code for the character c. *)
  89.  
  90.  
  91. PROCEDURE MASORDI(C : GAMMAINT): GAMMAINT;
  92. (*MAS order integer.  Returns the aldes code for the integer c.*)
  93.  
  94.  
  95. PROCEDURE SILINE(VAR S, L, R : GAMMAINT);
  96. (*Set input line.  The input line length is set to S, the left margin is 
  97. set to L and the right margin is set to R. If any of the values of 
  98. S, L or R is negative, then the corresponding value is left unchanged. 
  99. The values in effect are returned. *)
  100.  
  101.  
  102. PROCEDURE SIUNIT(S : STRING): GAMMAINT;
  103. (*Set input unit.  iunit is set to n, with s as the external name.
  104. siunit returns 0 on successful completion, ne 0 else.*)
  105.  
  106.  
  107. PROCEDURE SOLINE(VAR S, L, R : GAMMAINT);
  108. (*Set output line.  The output line length is set to S, the left margin is 
  109. set to L and the right margin is set to R. If any of the values of 
  110. S, L or R is negative, then the corresponding value is left unchanged. 
  111. The values in effect are returned. *)
  112.  
  113.  
  114. PROCEDURE SOUNIT(S : STRING): GAMMAINT;
  115. (*Set output unit.  ounit is set to n, with s as the external name.
  116. sounit returns 0 on successful completion, ne 0 else.
  117. the current output buffer is emptied.*)
  118.  
  119.  
  120. PROCEDURE Summary();
  121. (*Summary of stream IO. *)
  122.  
  123.  
  124. PROCEDURE StorSummary();
  125. (*MASSTOR Summary. *)
  126.  
  127.  
  128. PROCEDURE SWRITE(S : STRING);
  129. (*String write. S is a character string with respect to local 
  130. character codes. The single characters are converted to ALDES codes
  131. and written to the output stream. *)
  132.  
  133.  
  134. PROCEDURE TAB(n : GAMMAINT);
  135. (*Tabulate.  n is a positive integer.  if lmarg le n le rmarg then
  136. blanks are inserted in obuff until opos eq n.*)
  137.  
  138.  
  139. END MASBIOS.
  140. ə