-- OthelloDefsDummyImpl.mesa -- Copyright (C) 1984, Xerox Corporation. All rights reserved. -- Michael Plass, September 27, 1984 7:59:22 am PDT DIRECTORY OthelloDefs, PDQueue, String; OthelloDefsDummyImpl: PROGRAM IMPORTS PDQueue, String EXPORTS OthelloDefs = BEGIN bufferLength: NAT = 60; buffer: LONG STRING _ [bufferLength]; WriteLongNumber: PUBLIC PROC [num: LONG CARDINAL] = { t: LONG STRING _ [20]; String.AppendLongNumber[t, num]; WriteString[t]; }; WriteOctal: PUBLIC PROC [num: CARDINAL] = { t: LONG STRING _ [20]; String.AppendOctal[t, num]; WriteString[t]; }; NewLine: PUBLIC PROC = { PDQueue.LogMessage[buffer]; buffer.length _ 0; }; WriteLine: PUBLIC PROC [str: LONG STRING] = { WriteString[str]; NewLine[]; }; WriteString: PUBLIC PROC [str: LONG STRING] = { FOR i: NAT IN [0..str.length) DO IF buffer.length >= bufferLength THEN NewLine[]; buffer[buffer.length] _ str[i]; buffer.length _ buffer.length + 1; ENDLOOP; }; END. ‌تکJکد —…—زُ