| MODULE tinyindr ; | |
| FROM SYSTEM IMPORT WORD, BYTE ; | |
| TYPE | |
| File = RECORD | |
| lastWord: WORD ; | |
| lastByte: BYTE ; | |
| END ; | |
| PROCEDURE Create (VAR f: File) ; | |
| BEGIN | |
| WITH f DO | |
| lastWord := WORD (0) ; | |
| lastByte := BYTE (0) | |
| END | |
| END Create ; | |
| VAR | |
| foo: File ; | |
| BEGIN | |
| Create (foo) | |
| END tinyindr. |