home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / preprss.lbr / XFRAME.MZ / XFRAME.ML
Encoding:
Text File  |  1993-10-25  |  3.0 KB  |  97 lines
  1. ;;==========================================================================
  2. ; NOTE:
  3. ;         THE `|' VERTICAL BAR IS USED AS A CONTINUATION MARK.
  4. ; DOCUMENTATION ABREVIATIONS:
  5. ;         S/L  =  STRING VARIABLE OR LITERAL ENCLOSED WITH DOUBLE QUOTES.
  6. ;         N/L  =  NUMERIC VARIABLE OR LITERAL.
  7. ;         S    =  STRING VARIABLE ONLY.
  8. ;         N    =  NUMERIC VARIABLE ONLY.         
  9. ;         S/N  =  STRING OR NUMERIC VARIABLE.
  10. ;         
  11. ;;==========================================================================
  12. ;**
  13. ::LOOKUP (Macro)
  14. ;**   FUNCTION:
  15. ;**             Verify the existence of a file.
  16. ;**   USAGE:
  17. ;**             Two parameters required.
  18. ;**     Calling:
  19. ;**             [1] - S/L - a valid file name.
  20. ;**             [2] - N   - a valid file number (>0).
  21. ;**     Returning:
  22. ;**             [2] - zero if file not found.
  23. ;**   EXAMPLE:
  24. ;**             TXT% = 2
  25. ;**             $lookup "myfile.txt",TXT%
  26. ;**                       (if "myfile.txt" is not found then TXT% = 0.)
  27. ;**             $lookup MYFILE$,TXT%
  28. ;**
  29. MACRO LOOKUP
  30.    XX.$=[1]:XX.%=[2]:Gosub _Lookup:[2]=XX.%
  31.    $$_LOOKUP
  32. ENDM
  33. ;;==========================================================================
  34. ;**
  35. ::_LOOKUP (Subroutine)
  36. ;**   FUNCTION:
  37. ;**             Subroutine called by LOOKUP macro.
  38. ;**
  39. MACRO _LOOKUP
  40. Proc _Lookup
  41.    Open"R",XX.%,XX.$:X.X!=LOF(XX.%):Close XX.%|
  42.    IF(X.X!<1)Then XX.%=0:Kill XX.$
  43. Endp
  44. ENDM
  45. ;;==========================================================================
  46. ;**
  47. ::OPENFI (Macro)
  48. ;**   FUNCTION:
  49. ;**             Open a file for input.
  50. ;**   USAGE:
  51. ;**             Two parameters required.
  52. ;**     Calling:
  53. ;**             [1] - S/L - valid file name.
  54. ;**             [2] - N/L - valid file number.
  55. ;**   EXAMPLE:
  56. ;**             $openfi "myfile.txt",2
  57. ;**             $openfi MYFILE$,MYFILE%
  58. ;**             
  59. MACRO OPENFI
  60.    Open"I",[2],[1]
  61. ENDM
  62. ;;==========================================================================
  63. ;**
  64. ::OPENFO (Macro)
  65. ;**   FUNCTION:
  66. ;**             Open a file for output.
  67. ;**   USAGE:
  68. ;**             Two parameters required.
  69. ;**     Calling:
  70. ;**             [1] - S/L - valid file name.
  71. ;**             [2] - N/L - valid file number.
  72. ;**   EXAMPLE:
  73. ;**             $openfo "myfile.txt",2
  74. ;**             $openfo MYFILE$,MYFILE%
  75. ;**             
  76. MACRO OPENFO
  77.    Open"O",[2],[1]
  78. ENDM
  79. ;;==========================================================================
  80. ;**
  81. ::LINPUT (Macro)
  82. ;**   FUNCTION:
  83. ;**             Input a line from a file open for input.
  84. ;**   USAGE:
  85. ;**             Two parameters required.
  86. ;**     Calling:
  87. ;**             [1] - N/L - valid file number.
  88. ;**     Returning:
  89. ;**             [2] - S   - string buffer.
  90. ;**   EXAMPLE:
  91. ;**             $linput 2,BUFFER$
  92. ;**             $linput BUF%,BUFFER$
  93. ;**             
  94. MACRO LINPUT
  95.    Line Input #[1],[2]
  96. ENDM
  97. ;;==========================================================================