-- file: MFInteractionImpl.mesa
-- Pascal-to-Mesa translator output, translated at October 31, 1985 4:28:00 pm PST


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  MFTypes,
  MFExternals,
  MFMath,
  MFSymbols,
  MFInput,
  MFFileNames,
  MFInteraction,
  MFDebug,
  MFInit;

MFInteractionImpl: PROGRAM IMPORTS PascalBasic, PascalWizardFiles, MFTypes, MFExternals, MFMath, MFSymbols, MFInput, MFFileNames, MFDebug, MFInit EXPORTS MFInteraction = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, MFTypes, MFExternals, MFMath, MFSymbols, MFInput, MFFileNames, MFInteraction, MFDebug, MFInit;
--:13----20:
Xord: LONG POINTER TO ARRAY PascalChar OF AsciiCode _ PascalStaticZone.NEW[ARRAY PascalChar OF AsciiCode];
Xchr: LONG POINTER TO ARRAY AsciiCode OF PascalChar _ PascalStaticZone.NEW[ARRAY AsciiCode OF PascalChar];
--:20----25:
NameOfFile: LONG POINTER TO PACKED ARRAY PascalInteger[1..127] OF PascalChar _ PascalStaticZone.NEW[PACKED ARRAY PascalInteger[1..127] OF PascalChar];


NameLength: PascalInteger[0..FileNameSize];
--:25----29:
Buffer: LONG POINTER TO ARRAY PascalInteger[0..7500] OF AsciiCode _ PascalStaticZone.NEW[ARRAY PascalInteger[0..7500] OF AsciiCode];

First: PascalInteger[0..BufSize];


Last: PascalInteger[0..BufSize];

MaxBufStack: PascalInteger[0..BufSize];
--:29----31:--
TermIn: AlphaFile;


TermOut: AlphaFile;
--:31----38:
StrPool: LONG POINTER TO PACKED ARRAY PoolPointer OF AsciiCode _ PascalStaticZone.NEW[PACKED ARRAY PoolPointer OF AsciiCode];

StrStart: LONG POINTER TO ARRAY StrNumber OF PoolPointer _ PascalStaticZone.NEW[ARRAY StrNumber OF PoolPointer];

PoolPtr: PoolPointer;


StrPtr: StrNumber;

InitPoolPtr: PoolPointer;

InitStrPtr: StrNumber;


MaxPoolPtr: PoolPointer;

MaxStrPtr: StrNumber;
--:38----42:
StrRef: LONG POINTER TO ARRAY StrNumber OF PascalInteger[0..127] _ PascalStaticZone.NEW[ARRAY StrNumber OF PascalInteger[0..127]];
--:42----50:--
PoolFile: AlphaFile;
--:50
--54:--
LogFile: AlphaFile;

Selector: PascalInteger[0..5];
Dig: LONG POINTER TO ARRAY PascalInteger[0..22] OF PascalInteger[0..15] _ PascalStaticZone.NEW[ARRAY PascalInteger[0..22] OF PascalInteger[0..15]];


Tally: PascalInteger;

TermOffset: PascalInteger[0..MaxPrintLine];


FileOffset: PascalInteger[0..MaxPrintLine];

TrickBuf: LONG POINTER TO ARRAY PascalInteger[0..64] OF AsciiCode _ PascalStaticZone.NEW[ARRAY PascalInteger[0..64] OF AsciiCode];

TrickCount: PascalInteger;


FirstCount: PascalInteger;
--:54----68:--
Interaction: PascalInteger[0..3];
--:68----71:

DeletionsAllowed: PascalBoolean;

History: PascalInteger[0..3];

ErrorCount: PascalInteger[-1..100];
--:71----74:
HelpLine: LONG POINTER TO ARRAY PascalInteger[0..5] OF StrNumber _ PascalStaticZone.NEW[ARRAY PascalInteger[0..5] OF StrNumber];

HelpPtr: PascalInteger[0..6];

UseErrHelp: PascalBoolean;


ErrHelp: StrNumber;
--:74----91:--
Interrupt: PascalInteger;

OkToInterrupt: PascalBoolean;
 PrintLn: PROCEDURE = 
BEGIN SELECT Selector FROM 3 =>BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLn[file: @LogFile];TermOffset_0;FileOffset_0; END;
2 =>BEGIN PascalWriteLn[file: @LogFile];FileOffset_0; END;1 =>BEGIN PascalWriteLn[file: @TermOut];
TermOffset_0; END;0,4,5 => NULL; ENDCASE; END;--:57----58:
 PrintChar: PROCEDURE[S: AsciiCode]
 = 
BEGIN SELECT Selector FROM 3 =>BEGIN PascalWriteChar[file: @TermOut, item: Xchr^[S]];
PascalWriteChar[file: @LogFile, item: Xchr^[S]];TermOffset_TermOffset+1;
FileOffset_FileOffset+1;
IF TermOffset=MaxPrintLine  THEN BEGIN PascalWriteLn[file: @TermOut];
TermOffset_0; END;
IF FileOffset=MaxPrintLine  THEN BEGIN PascalWriteLn[file: @LogFile];
FileOffset_0; END; END;2 =>BEGIN PascalWriteChar[file: @LogFile, item: Xchr^[S]];
FileOffset_FileOffset+1;IF FileOffset=MaxPrintLine  THEN PrintLn[];
 END;1 =>BEGIN PascalWriteChar[file: @TermOut, item: Xchr^[S]];TermOffset_TermOffset+1;
IF TermOffset=MaxPrintLine  THEN PrintLn[]; END;0 => NULL;
4 =>IF Tally<TrickCount  THEN TrickBuf^[ PascalMODPower2Mask[Tally ,63]]_S;
5 =>BEGIN IF  INT[PoolPtr]<PoolSize  THEN BEGIN StrPool^[PoolPtr]_S;
PoolPtr_PoolPtr+1; END; END; ENDCASE;Tally_Tally+1; END;--:58----59:
 Print: PROCEDURE[S: PascalInteger] = 
BEGIN J:PoolPointer;
 IF(S<0)OR (S>=StrPtr) THEN S_131;J_StrStart^[S];
WHILE  INT[J]<StrStart^[S+1]DO BEGIN PrintChar[StrPool^[J]];J_J+1; END ENDLOOP ; END;
--:59----60:-- SlowPrint: PROCEDURE[S: PascalInteger] = 
BEGIN J:PoolPointer;
 IF(S<0)OR (S>=StrPtr) THEN S_131;J_StrStart^[S];
WHILE  INT[J]<StrStart^[S+1]DO BEGIN Print[StrPool^[J]];J_J+1; END ENDLOOP ; END;--:60
--62:-- PrintNl: PROCEDURE[S: StrNumber]
 = 
BEGIN IF(( INT[TermOffset]>0)AND (PascalODD[Selector]))OR (( INT[FileOffset]>0)AND (
 INT[Selector]>=2)) THEN PrintLn[];Print[S]; END;--:62----63:
 PrintTheDigs: PROCEDURE[K: EightBits] = 
BEGIN WHILE  INT[K]>0 DO BEGIN K_K-1;
PrintChar[48+Dig^[K]]; END ENDLOOP ; END;--:63----64:-- PrintInt: PROCEDURE[N: PascalInteger]
 = 
BEGIN K:PascalInteger[0..23];M:PascalInteger; K_0;IF N<0  THEN BEGIN PrintChar[45];
IF N>-100000000  THEN N_-N  ELSE BEGIN M_-1-N;N_ M /10;
M_( M MOD 10)+1;K_1;IF M<10  THEN Dig^[0]_M  ELSE BEGIN Dig^[0]_0;N_N+1;
 END; END; END;DO Dig^[K]_ N MOD 10;N_ N /10;K_K+1; IF N=0 THEN EXIT; ENDLOOP;
PrintTheDigs[K]; END;--:64----103:-- PrintScaled: PROCEDURE[S: Scaled]
 = 
BEGIN Delta:Scaled; IF S<0  THEN BEGIN PrintChar[45];S_-S; END;
PrintInt[ PascalDIVPower2[S ,16]];S_10*( PascalMODPower2Mask[S ,65535])+5;
IF S#5  THEN BEGIN Delta_10;PrintChar[46];
DO IF Delta>65536  THEN S_S+32768-( PascalDIVPower2[Delta ,1]);
PrintChar[48+( PascalDIVPower2[S ,16])];S_10*( PascalMODPower2Mask[S ,65535]);Delta_Delta*10;
 IF S<=Delta THEN EXIT; ENDLOOP; END; END;--:103----104:-- PrintTwo: PROCEDURE[X,Y: Scaled]
 = 
BEGIN PrintChar[40];PrintScaled[X];PrintChar[44];PrintScaled[Y];
PrintChar[41]; END;--:104----187:-- PrintType: PROCEDURE[T: SmallNumber]
 = 
BEGIN SELECT T FROM 1 =>Print[196];2 =>Print[197];3 =>Print[198];4 =>Print[199];
5 =>Print[200];6 =>Print[201];7 =>Print[202];8 =>Print[203];9 =>Print[204];
10 =>Print[205];11 =>Print[206];12 =>Print[207];13 =>Print[208];14 =>Print[209];
16 =>Print[210];17 =>Print[211];18 =>Print[212];15 =>Print[213];19 =>Print[214];
20 =>Print[215];21 =>Print[216];22 =>Print[217];23 =>Print[218];
 ENDCASE =>Print[219]; END;--:187----195:-- BeginDiagnostic: PROCEDURE
 = 
BEGIN OldSetting_Selector;
IF(Internal^[13]<=0)AND (Selector=3) THEN BEGIN Selector_Selector-1;
IF History=0  THEN History_1; END; END;
 EndDiagnostic: PROCEDURE[BlankLine: PascalBoolean] = 
BEGIN PrintNl[157];
IF BlankLine  THEN PrintLn[];Selector_OldSetting; END;--:195----197:
 PrintDiagnostic: PROCEDURE[S,T: StrNumber,Nuline: PascalBoolean]
 = 
BEGIN BeginDiagnostic[];IF Nuline  THEN PrintNl[S] ELSE Print[S];
Print[137];PrintInt[Line];Print[T];PrintChar[58]; END;--:197----772:
--43:-- FlushString: PROCEDURE[S: StrNumber]
 = 
BEGIN IF  INT[S]<StrPtr-1  THEN StrRef^[S]_0  ELSE DO StrPtr_StrPtr-1;
 IF StrRef^[StrPtr-1]#0 THEN EXIT; ENDLOOP;PoolPtr_StrStart^[StrPtr]; END;--:43----:73
--76:-- JumpOut: PROCEDURE = 
BEGIN  ERROR Error9998; END;--:76----77:-- Error: PROCEDURE
 = 
BEGIN  C:AsciiCode;S1, S2, S3:PascalInteger;J:PoolPointer;
 IF  INT[History]<2  THEN History_2;PrintChar[46];ShowContext[];
{IF Interaction=3  THEN BEGIN SetNormalPriority[];--78:
WHILE TRUE DO BEGIN DO {--Label22:--ClearForErrorPrompt[];BEGIN Print[135];
TermInput[]; END;IF Last=First  THEN  GOTO Label10;C_Buffer^[First];
IF  INT[C]>=97  THEN C_C-32;--79:
SELECT C FROM 48,49,50,51,52,53,54,55,56,57 =>IF DeletionsAllowed  THEN--83:
BEGIN S1_CurCmd;S2_CurMod;S3_CurSym;OkToInterrupt_FALSE;
IF( INT[Last]>First+1)AND ( INT[Buffer^[First+1]]>=48)AND ( INT[Buffer^[First+1]]<=57) THEN C_
C*10+Buffer^[First+1]-48*11  ELSE C_C-48;WHILE  INT[C]>0 DO BEGIN GetNext[];
--742:
IF CurCmd=39  THEN BEGIN IF  INT[StrRef^[CurMod]]<127  THEN IF  INT[StrRef^[CurMod
]]>1  THEN StrRef^[CurMod]_StrRef^[CurMod]-1  ELSE FlushString[CurMod]
; END--:742--;C_C-1; END ENDLOOP ;CurCmd_S1;CurMod_S2;CurSym_S3;
OkToInterrupt_TRUE;BEGIN HelpPtr_2;HelpLine^[1]_150;
HelpLine^[0]_151; END;ShowContext[]; GOTO Label22; END--:83--;68 =>BEGIN DebugHelp[];
 GOTO Label22; END;69 =>IF  INT[FilePtr]>0  THEN BEGIN PrintNl[136];
Print[InputStack^[FilePtr].NameField];Print[137];PrintInt[Line];
Interaction_2;JumpOut[]; END;72 =>--84:
BEGIN IF UseErrHelp  THEN BEGIN--85:--J_StrStart^[ErrHelp];
WHILE  INT[J]<StrStart^[ErrHelp+1]DO BEGIN IF StrPool^[J]#37  THEN Print[
StrPool^[J]] ELSE IF J+1=StrStart^[ErrHelp+1] THEN PrintLn [] ELSE IF
StrPool^[J+1]#37  THEN PrintLn [] ELSE BEGIN J_J+1;PrintChar[37]; END;
J_J+1; END--:85-- ENDLOOP ;UseErrHelp_FALSE;
 END  ELSE BEGIN IF HelpPtr=0  THEN BEGIN HelpPtr_2;HelpLine^[1]_152;
HelpLine^[0]_153; END;DO HelpPtr_HelpPtr-1;
Print[HelpLine^[HelpPtr]];PrintLn[]; IF HelpPtr=0 THEN EXIT; ENDLOOP; END;
BEGIN HelpPtr_4;HelpLine^[3]_154;HelpLine^[2]_153;HelpLine^[1]_155;
HelpLine^[0]_156; END; GOTO Label22; END--:84--;73 =>--82:--BEGIN BeginFileReading[];
IF  INT[Last]>First+1  THEN BEGIN CurInput.LocField_First+1;
Buffer^[First]_32; END  ELSE BEGIN BEGIN Print[149];TermInput[]; END;
CurInput.LocField_First; END;First_Last+1;
CurInput.LimitField_Last; GOTO Label10; END--:82--;81,82,83 =>--81:
BEGIN ErrorCount_0;Interaction_0+C-81;Print[144];
SELECT C FROM 81 =>BEGIN Print[145];Selector_Selector-1; END;82 =>Print[146];
83 =>Print[147]; ENDCASE;Print[148];PrintLn[];PascalTextBREAK[file: @TermOut]; GOTO Label10; END--:81--;
88 =>BEGIN Interaction_2;JumpOut[]; END; ENDCASE => NULL;--80:--BEGIN Print[138];
PrintNl[139];PrintNl[140];IF  INT[FilePtr]>0  THEN Print[141];
IF DeletionsAllowed  THEN PrintNl[142];PrintNl[143]; END--:80----:79--;
EXIT; EXITS Label22 => NULL} ENDLOOP; END--:78-- ENDLOOP ; END;ErrorCount_ErrorCount+1;
IF ErrorCount=100  THEN BEGIN PrintNl[134];History_3;JumpOut[]; END;
--86:--IF  INT[Interaction]>0  THEN Selector_Selector-1;
IF UseErrHelp  THEN BEGIN PrintNl[157];--85:--J_StrStart^[ErrHelp];
WHILE  INT[J]<StrStart^[ErrHelp+1]DO BEGIN IF StrPool^[J]#37  THEN Print[
StrPool^[J]] ELSE IF J+1=StrStart^[ErrHelp+1] THEN PrintLn [] ELSE IF
StrPool^[J+1]#37  THEN PrintLn [] ELSE BEGIN J_J+1;PrintChar[37]; END;
J_J+1; END--:85-- ENDLOOP ; END  ELSE WHILE  INT[HelpPtr]>0 DO BEGIN HelpPtr_HelpPtr-1;
PrintNl[HelpLine^[HelpPtr]]; END ENDLOOP ;PrintLn[];
IF  INT[Interaction]>0  THEN Selector_Selector+1;PrintLn--:86--[];
EXITS Label10 => NULL};SetBackgroundPriority[]; END;--:77----88:
 FatalError: PROCEDURE[S: StrNumber] = 
BEGIN NormalizeSelector[];
BEGIN IF Interaction=3  THEN NULL;PrintNl[133];Print[158]; END;
BEGIN HelpPtr_1;HelpLine^[0]_S; END;
BEGIN IF Interaction=3  THEN Interaction_2;Error[];
IF  INT[Interaction]>0  THEN DebugHelp[];History_3;JumpOut[]; END; END;--:88----89:
 Overflow: PROCEDURE[S: StrNumber,N: PascalInteger] = 
BEGIN NormalizeSelector[];
BEGIN IF Interaction=3  THEN NULL;PrintNl[133];Print[159]; END;Print[S];
PrintChar[61];PrintInt[N];PrintChar[93];BEGIN HelpPtr_2;
HelpLine^[1]_160;HelpLine^[0]_161; END;
BEGIN IF Interaction=3  THEN Interaction_2;Error[];
IF  INT[Interaction]>0  THEN DebugHelp[];History_3;JumpOut[]; END; END;--:89----90:
 Confusion: PROCEDURE[S: StrNumber] = 
BEGIN NormalizeSelector[];
IF  INT[History]<2  THEN BEGIN BEGIN IF Interaction=3  THEN NULL;PrintNl[133];
Print[162]; END;Print[S];PrintChar[41];BEGIN HelpPtr_1;
HelpLine^[0]_163; END; END  ELSE BEGIN BEGIN IF Interaction=3  THEN NULL;
PrintNl[133];Print[164]; END;BEGIN HelpPtr_2;HelpLine^[1]_165;
HelpLine^[0]_166; END; END;BEGIN IF Interaction=3  THEN Interaction_2;
Error[];IF  INT[Interaction]>0  THEN DebugHelp[];History_3;JumpOut[]; END; END;--:90
--:36----44:-- MakeString: PROCEDURE RETURNS[MakeStringResult: StrNumber]
 = 
BEGIN IF StrPtr=MaxStrPtr  THEN BEGIN IF StrPtr=MaxStrings  THEN
Overflow[130,MaxStrings-InitStrPtr];MaxStrPtr_MaxStrPtr+1; END;
StrRef^[StrPtr]_1;StrPtr_StrPtr+1;StrStart^[StrPtr]_PoolPtr;
MakeStringResult_StrPtr-1; END;--:44----45:-- StrEqBuf: PROCEDURE[S: StrNumber,
K: PascalInteger] RETURNS[StrEqBufResult: PascalBoolean] = 
BEGIN  J:PoolPointer;Result:PascalBoolean;
 J_StrStart^[S];
{WHILE  INT[J]<StrStart^[S+1]DO BEGIN IF StrPool^[J]#Buffer^[K] THEN BEGIN
Result_FALSE; GOTO Label45; END;J_J+1;K_K+1; END ENDLOOP ;Result_TRUE;
EXITS Label45 => NULL};StrEqBufResult_Result; END;--:45----46:
 StrVsStr: PROCEDURE[S,T: StrNumber] RETURNS[StrVsStrResult: PascalInteger] = 
BEGIN 
 J, K:PoolPointer;Ls, Lt:PascalInteger;L:PascalInteger;
 Ls_(StrStart^[S+1]-StrStart^[S]);
Lt_(StrStart^[T+1]-StrStart^[T]);IF Ls<=Lt  THEN L_Ls  ELSE L_Lt;
J_StrStart^[S];K_StrStart^[T];
{WHILE L>0 DO BEGIN IF StrPool^[J]#StrPool^[K] THEN BEGIN StrVsStrResult_
StrPool^[J]-StrPool^[K]; GOTO Label10; END;J_J+1;K_K+1;L_L-1; END ENDLOOP ;
StrVsStrResult_Ls-Lt;EXITS Label10 => NULL}; END;--:46----47:-- PrintDd: PROCEDURE[N: PascalInteger] = 
BEGIN N_ ABS[N]MOD 100;
PrintChar[48+( N /10)];PrintChar[48+( N MOD 10)]; END;--:65----66:
  TermInput: PROCEDURE = 
BEGIN K:PascalInteger[0..BufSize]; PascalTextBREAK[file: @TermOut];
IF  NOT InputLn[@TermIn,TRUE] THEN FatalError[132];TermOffset_0;
Selector_Selector-1;
IF Last#First  THEN FOR i:INT    IN [ INT[First ].. INT[Last-1 ]] DO  K _ i; Print[Buffer^[K]] ENDLOOP;PrintLn[];
Buffer^[Last]_37;Selector_Selector+1; END;--:66----87:
 
 NormalizeSelector: PROCEDURE = 
BEGIN IF  INT[JobName]>0  THEN Selector_3  ELSE Selector_1;
IF JobName=0  THEN OpenLogFile[];
IF Interaction=0  THEN Selector_Selector-1; END;--:87----93:
 PauseForInstructions: PROCEDURE
 = 
BEGIN IF OkToInterrupt  THEN BEGIN Interaction_3;
IF(Selector=2)OR (Selector=0) THEN Selector_Selector+1;
BEGIN IF Interaction=3  THEN NULL;PrintNl[133];Print[167]; END;
BEGIN HelpPtr_3;HelpLine^[2]_168;HelpLine^[1]_169;HelpLine^[0]_170;
 END;DeletionsAllowed_FALSE;Error[];DeletionsAllowed_TRUE;Interrupt_0;
 END; END;--:93----94:-- MissingErr: PROCEDURE[S: StrNumber]
 = 
BEGIN BEGIN IF Interaction=3  THEN NULL;PrintNl[133];Print[171]; END;Print[S];
Print[172]; END;--:94----99:-- 
 OpenLogFile: PROCEDURE = 
BEGIN OldSetting:PascalInteger[0..5];K:PascalInteger[0..BufSize];
L:PascalInteger[0..BufSize];M:PascalInteger;Months: LONG POINTER TO  PACKED ARRAY PascalInteger[1..36] OF  PascalChar _ PascalZone.NEW[PACKED ARRAY PascalInteger[1..36] OF PascalChar];
 OldSetting_Selector;IF JobName=0  THEN JobName_616;
PackJobName[617];WHILE  NOT AOpenOut[@LogFile]DO--788:
BEGIN IF  INT[Interaction]<2  THEN BEGIN BEGIN IF Interaction=3  THEN NULL;
PrintNl[133];Print[610]; END;PrintFileName[CurName,CurArea,CurExt];
Print[611];JobName_0;History_3;JumpOut[]; END;
PromptFileName[619,617]; END--:788-- ENDLOOP ;
LogName_AMakeNameString[@LogFile];Selector_2;--789:
BEGIN PascalWriteLongString[file: @LogFile, item: "This is METAFONT 0.9999, for Cedar 6.0"];
Print[BaseIdent];Print[620];PrintInt[RoundUnscaled[Internal^[16]]];
PrintChar[32];Months^_['J, 'A, 'N, 'F, 'E, 'B, 'M, 'A, 'R, 'A, 'P, 'R, 'M, 'A, 'Y, 'J, 'U, 'N, 'J, 'U, 'L, 'A, 'U, 'G, 'S, 'E, 'P, 'O, 'C, 'T, 'N, 'O, 'V, 'D, 'E, 'C];
M_RoundUnscaled[Internal^[15]];
FOR i:INT    IN [ INT[3*M-2 ].. INT[3*M ]] DO  K _ i; PascalWriteChar[file: @LogFile, item: Months^[K]] ENDLOOP;PrintChar[32];
PrintInt[RoundUnscaled[Internal^[14]]];PrintChar[32];
M_RoundUnscaled[Internal^[17]];PrintDd[ M /60];PrintChar[58];
PrintDd[ M MOD 60]; END--:789--;InputStack^[InputPtr]_CurInput;
PrintNl[618];L_ INT[InputStack^[0].LimitField]-1;
FOR i:INT    IN [ INT[1 ].. INT[L ]] DO  K _ i; Print[Buffer^[K]] ENDLOOP;PrintLn[];Selector_OldSetting+2;PascalZone.FREE[@Months];  END;

END.