Listing: 1 IMPLEMENTATION MODULE NumTypes; 2 (* 3 * REPERTOIRE 4 * Release 1.6 5 * By Charles Bradford and Cole Brecheen 6 * (c) Copyright 1985-1990 PMI 7 * Portland, Oregon 8 * All rights reserved 9 * (503) 236-1788 10 * 11 * $Header: D:/logfiles/masters/numtmod.jpv 1.1 03 Dec 1990 22:49:30 coleb $ 12 * 13 *) 14 15 VAR 16 Initialized : BOOLEAN; 17 18 PROCEDURE Init(); 19 BEGIN 20 IF Initialized THEN 21 RETURN; 22 ELSE 23 Initialized := TRUE; 24 END; 25 L0 := VAL( LONGINT, 0 ); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 26 L1 := VAL( LONGINT, 1 ); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 27 L2 := VAL( LONGINT, 2 ); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 28 L65535 := VAL( LONGINT, 65535 ); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 29 R8TenPowers[0] := 10.0; ***** ^ undeclared identifier ***** ^ not supported yet 30 R8TenPowers[1] := 100.0; ***** ^ undeclared identifier ***** ^ not supported yet 31 R8TenPowers[2] := 10000.0; ***** ^ undeclared identifier ***** ^ not supported yet 32 R8TenPowers[3] := 1.0E8; ***** ^ undeclared identifier ***** ^ not supported yet 33 R8TenPowers[4] := 1.0E16; ***** ^ undeclared identifier ***** ^ not supported yet 34 R8TenPowers[5] := 1.0E32; ***** ^ undeclared identifier ***** ^ not supported yet 35 R8TenPowers[6] := 1.0E64; ***** ^ undeclared identifier ***** ^ not supported yet 36 R8TenPowers[7] := 1.0E128; ***** ^ undeclared identifier ***** ^ not supported yet 37 R8TenPowers[8] := 1.0E256; ***** ^ undeclared identifier ***** ^ not supported yet 38 END Init; ***** ^ not supported yet 39 40 (* JPI version *) 41 42 PROCEDURE REALToReal8( TheReal: REAL ): Real8; ***** ^ undeclared identifier 43 BEGIN 44 RETURN VAL( Real8, TheReal ); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 45 END REALToReal8; ***** ^ not supported yet 46 47 PROCEDURE Real8ToREAL( TheReal8: Real8 ): REAL; ***** ^ undeclared identifier 48 BEGIN 49 RETURN VAL( REAL, TheReal8 ); ***** ^ undeclared identifier ***** ^ not supported yet 50 END Real8ToREAL; ***** ^ not supported yet 51 52 BEGIN 53 Initialized := FALSE; 54 END NumTypes. ***** ^ not supported yet 41 errors