| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * FORMIO.DEF - Modula-2 formatted i/o *
- 5 * *
- 6 * COPYRIGHT (C) 1987..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 (*# call(o_a_copy => on,
- 12 o_a_size => on) *)
- 13 (*# module(init_code => on) *)
- 14 (*%F _fdata *)
- 15 (*# call(seg_name => null) *)
- 16 (*# data(seg_name => null) *)
- 17 (*%E *)
- 18 (*# module(implementation=>off) *)
- 19
- 20 DEFINITION MODULE FormIO ;
- 21
- 22 (*# call(o_a_copy=>off) *)
- 23
- 24 PROCEDURE WrF ( Pat : ARRAY OF CHAR ) ;
- ***** ^ not supported yet
- 25
- 26 PROCEDURE WrF1 ( Pat : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 27 P1 : ARRAY OF BYTE ) ;
- ***** ^ undeclared identifier
- 28
- 29 PROCEDURE WrF2 ( Pat : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 30 P1,P2 : ARRAY OF BYTE ) ;
- ***** ^ undeclared identifier
- 31
- 32 PROCEDURE WrF3 ( Pat : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 33 P1,P2,P3 : ARRAY OF BYTE ) ;
- ***** ^ undeclared identifier
- 34
- 35 PROCEDURE WrF4 ( Pat : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 36 P1,P2,P3,P4 : ARRAY OF BYTE ) ;
- ***** ^ undeclared identifier
- 37
- 38 PROCEDURE WrF5 ( Pat : ARRAY OF CHAR ;
- ***** ^ not supported yet
- 39 P1,P2,P3,P4,P5 : ARRAY OF BYTE ) ;
- ***** ^ undeclared identifier
- 40
- 41 END FormIO.
- ***** ^ not supported yet
- 12 errors
|
