| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 |
- Listing:
- 1 (******************************************************************************)
- 2 (* META.MOD - MetaWINDOW Initialisation. *)
- 3 (* *)
- 4 (* This module initialises the MetaWINDOW or MetaWINDOW Plus v3.6a interface.*)
- 5 (* *)
- 6 (* PSW 10/31/90 02:44am *)
- 7 (******************************************************************************)
- 8
- 9 IMPLEMENTATION MODULE Meta;
- 10 (*
- 11 * Graphix
- 12 * Release 3.7
- 13 * (c) Copyright 1986-1992 PMI
- 14 * Green Bay, Wisconsin
- 15 * (414) 468-6040
- 16 * All rights reserved
- 17 *
- 18 *)
- 19
- 20 IMPORT MW;
- 21
- 22 VAR
- 23 FarPTR: FarADDRESS;
- ***** ^ undeclared identifier
- 24
- 25 BEGIN
- 26 (*** Ensure the library is properly linked in. The Meta_DPL byte seems ***)
- 27 (*** always to be zero at first but this may not always be true. ***)
- 28 FarPTR := FarADR(MW.Meta_DPL);
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- 29
- 30 IF (FarPTR = FarNIL) THEN
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 31 HALT
- ***** ^ undeclared identifier
- 32 END;
- 33 END Meta.
- ***** ^ not supported yet
- 9 errors
|
