home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbopas / tp-util.ark / POINTERS.PAS < prev    next >
Unknown  |  1986-01-06  |  256 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% TrID PrintFox/Pagefox bitmap (640x800) default (weak)
100% gt2 Kopftext: 'PROGRAM POINTERS; default (weak)
100% disktype Blank disk/medium default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 52 4f 47 52 41 4d 20 | 50 4f 49 4e 54 45 52 53 |PROGRAM |POINTERS|
|00000010| 3b 0d 0a 0d 0a 54 59 50 | 45 20 50 5f 43 48 41 52 |;....TYP|E P_CHAR|
|00000020| 20 3d 20 5e 43 48 41 52 | 3b 0d 0a 0d 0a 56 41 52 | = ^CHAR|;....VAR|
|00000030| 20 43 48 20 20 20 20 20 | 20 20 3a 20 43 48 41 52 | CH | : CHAR|
|00000040| 3b 0d 0a 20 20 20 20 42 | 20 20 20 20 20 20 20 20 |;.. B| |
|00000050| 3a 20 42 59 54 45 3b 0d | 0a 20 20 20 20 43 48 41 |: BYTE;.|. CHA|
|00000060| 52 5f 50 54 52 20 3a 20 | 50 5f 43 48 41 52 3b 0d |R_PTR : |P_CHAR;.|
|00000070| 0a 0d 0a 42 45 47 49 4e | 0d 0a 20 20 43 48 20 3a |...BEGIN|.. CH :|
|00000080| 3d 20 27 5a 27 3b 0d 0a | 20 20 42 20 3a 3d 20 36 |= 'Z';..| B := 6|
|00000090| 35 3b 0d 0a 20 20 43 48 | 41 52 5f 50 54 52 20 3a |5;.. CH|AR_PTR :|
|000000a0| 3d 20 41 44 44 52 28 42 | 29 3b 0d 0a 20 20 43 48 |= ADDR(B|);.. CH|
|000000b0| 20 3a 3d 20 43 48 41 52 | 5f 50 54 52 5e 3b 0d 0a | := CHAR|_PTR^;..|
|000000c0| 20 20 57 52 49 54 45 4c | 4e 28 27 43 48 3d 27 2c | WRITEL|N('CH=',|
|000000d0| 43 48 29 0d 0a 45 4e 44 | 2e 0d 0a 1a 00 14 00 00 |CH)..END|........|
|000000e0| 53 43 52 45 45 4e 20 20 | 50 41 53 20 00 00 00 00 |SCREEN |PAS ....|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 24 00 45 16 00 00 |........|..$.E...|
+--------+-------------------------+-------------------------+--------+--------+