-- file: GFtoPressImpl5.mesa
-- Pascal-to-Mesa translator output, translated at October 25, 1985 5:07:13 pm PDT
DIRECTORY
PascalBasic,
PascalWizardFiles,
GFtoPressPrivate,
GFtoPressVars1,
GFtoPressVars2,
GFtoPressVars3;
GFtoPressImpl5: PROGRAM IMPORTS PascalBasic, PascalWizardFiles, GFtoPressPrivate, GFtoPressVars1, GFtoPressVars2, GFtoPressVars3 EXPORTS GFtoPressPrivate = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, GFtoPressPrivate, GFtoPressVars1, GFtoPressVars2, GFtoPressVars3;
--3:-- --4:----:4-- InitStrings: PROCEDURE =
BEGIN--77:
StrPtr←0;PoolPtr←0;StrStart↑[0]←0;L←0;FirstString[0];L←9;
Buffer↑[9]←116;Buffer↑[8]←105;Buffer↑[7]←116;Buffer↑[6]←108;
Buffer↑[5]←101;Buffer↑[4]←102;Buffer↑[3]←111;Buffer↑[2]←110;
Buffer↑[1]←116;FirstString[1];L←9;Buffer↑[9]←108;Buffer↑[8]←97;
Buffer↑[7]←98;Buffer↑[6]←101;Buffer↑[5]←108;Buffer↑[4]←102;
Buffer↑[3]←111;Buffer↑[2]←110;Buffer↑[1]←116;FirstString[2];L←8;
Buffer↑[8]←103;Buffer↑[7]←114;Buffer↑[6]←97;Buffer↑[5]←121;
Buffer↑[4]←102;Buffer↑[3]←111;Buffer↑[2]←110;Buffer↑[1]←116;
FirstString[3];L←9;Buffer↑[9]←115;Buffer↑[8]←108;Buffer↑[7]←97;
Buffer↑[6]←110;Buffer↑[5]←116;Buffer↑[4]←102;Buffer↑[3]←111;
Buffer↑[2]←110;Buffer↑[1]←116;FirstString[4];L←13;Buffer↑[13]←116;
Buffer↑[12]←105;Buffer↑[11]←116;Buffer↑[10]←108;Buffer↑[9]←101;
Buffer↑[8]←102;Buffer↑[7]←111;Buffer↑[6]←110;Buffer↑[5]←116;
Buffer↑[4]←97;Buffer↑[3]←114;Buffer↑[2]←101;Buffer↑[1]←97;
FirstString[5];L←13;Buffer↑[13]←108;Buffer↑[12]←97;Buffer↑[11]←98;
Buffer↑[10]←101;Buffer↑[9]←108;Buffer↑[8]←102;Buffer↑[7]←111;
Buffer↑[6]←110;Buffer↑[5]←116;Buffer↑[4]←97;Buffer↑[3]←114;
Buffer↑[2]←101;Buffer↑[1]←97;FirstString[6];L←12;Buffer↑[12]←103;
Buffer↑[11]←114;Buffer↑[10]←97;Buffer↑[9]←121;Buffer↑[8]←102;
Buffer↑[7]←111;Buffer↑[6]←110;Buffer↑[5]←116;Buffer↑[4]←97;
Buffer↑[3]←114;Buffer↑[2]←101;Buffer↑[1]←97;FirstString[7];L←13;
Buffer↑[13]←115;Buffer↑[12]←108;Buffer↑[11]←97;Buffer↑[10]←110;
Buffer↑[9]←116;Buffer↑[8]←102;Buffer↑[7]←111;Buffer↑[6]←110;
Buffer↑[5]←116;Buffer↑[4]←97;Buffer↑[3]←114;Buffer↑[2]←101;
Buffer↑[1]←97;FirstString[8];L←11;Buffer↑[11]←116;Buffer↑[10]←105;
Buffer↑[9]←116;Buffer↑[8]←108;Buffer↑[7]←101;Buffer↑[6]←102;
Buffer↑[5]←111;Buffer↑[4]←110;Buffer↑[3]←116;Buffer↑[2]←97;
Buffer↑[1]←116;FirstString[9];L←11;Buffer↑[11]←108;Buffer↑[10]←97;
Buffer↑[9]←98;Buffer↑[8]←101;Buffer↑[7]←108;Buffer↑[6]←102;
Buffer↑[5]←111;Buffer↑[4]←110;Buffer↑[3]←116;Buffer↑[2]←97;
Buffer↑[1]←116;FirstString[10];L←10;Buffer↑[10]←103;Buffer↑[9]←114;
Buffer↑[8]←97;Buffer↑[7]←121;Buffer↑[6]←102;Buffer↑[5]←111;
Buffer↑[4]←110;Buffer↑[3]←116;Buffer↑[2]←97;Buffer↑[1]←116;
FirstString[11];L←11;Buffer↑[11]←115;Buffer↑[10]←108;Buffer↑[9]←97;
Buffer↑[8]←110;Buffer↑[7]←116;Buffer↑[6]←102;Buffer↑[5]←111;
Buffer↑[4]←110;Buffer↑[3]←116;Buffer↑[2]←97;Buffer↑[1]←116;
FirstString[12];L←4;Buffer↑[4]←114;Buffer↑[3]←117;Buffer↑[2]←108;
Buffer↑[1]←101;FirstString[13];L←5;Buffer↑[5]←116;Buffer↑[4]←105;
Buffer↑[3]←116;Buffer↑[2]←108;Buffer↑[1]←101;FirstString[14];L←13;
Buffer↑[13]←114;Buffer↑[12]←117;Buffer↑[11]←108;Buffer↑[10]←101;
Buffer↑[9]←116;Buffer↑[8]←104;Buffer↑[7]←105;Buffer↑[6]←99;
Buffer↑[5]←107;Buffer↑[4]←110;Buffer↑[3]←101;Buffer↑[2]←115;
Buffer↑[1]←115;FirstString[15];L←6;Buffer↑[6]←111;Buffer↑[5]←102;
Buffer↑[4]←102;Buffer↑[3]←115;Buffer↑[2]←101;Buffer↑[1]←116;
FirstString[16];L←7;Buffer↑[7]←120;Buffer↑[6]←111;Buffer↑[5]←102;
Buffer↑[4]←102;Buffer↑[3]←115;Buffer↑[2]←101;Buffer↑[1]←116;
FirstString[17];L←7;Buffer↑[7]←121;Buffer↑[6]←111;Buffer↑[5]←102;
Buffer↑[4]←102;Buffer↑[3]←115;Buffer↑[2]←101;Buffer↑[1]←116;
FirstString[18];--:77----78:--L←3;Buffer↑[3]←46;Buffer↑[2]←103;
Buffer↑[1]←102;FirstString[19];L←6;Buffer↑[6]←46;Buffer↑[5]←112;
Buffer↑[4]←114;Buffer↑[3]←101;Buffer↑[2]←115;Buffer↑[1]←115;
FirstString[20];L←4;Buffer↑[4]←46;Buffer↑[3]←116;Buffer↑[2]←102;
Buffer↑[1]←109;FirstString[21];L←7;Buffer↑[7]←32;Buffer↑[6]←32;
Buffer↑[5]←80;Buffer↑[4]←97;Buffer↑[3]←103;Buffer↑[2]←101;Buffer↑[1]←32;
FirstString[22];L←12;Buffer↑[12]←32;Buffer↑[11]←32;Buffer↑[10]←67;
Buffer↑[9]←104;Buffer↑[8]←97;Buffer↑[7]←114;Buffer↑[6]←97;Buffer↑[5]←99;
Buffer↑[4]←116;Buffer↑[3]←101;Buffer↑[2]←114;Buffer↑[1]←32;
FirstString[23];L←9;Buffer↑[9]←32;Buffer↑[8]←32;Buffer↑[7]←70;
Buffer↑[6]←97;Buffer↑[5]←109;Buffer↑[4]←105;Buffer↑[3]←108;
Buffer↑[2]←121;Buffer↑[1]←32;FirstString[24];L←4;Buffer↑[4]←32;
Buffer↑[3]←32;Buffer↑[2]←96;Buffer↑[1]←96;FirstString[25];L←2;
Buffer↑[2]←39;Buffer↑[1]←39;FirstString[26];L←3;Buffer↑[3]←32;
Buffer↑[2]←61;Buffer↑[1]←32;FirstString[27];L←4;Buffer↑[4]←32;
Buffer↑[3]←43;Buffer↑[2]←32;Buffer↑[1]←40;FirstString[28];L←4;
Buffer↑[4]←97;Buffer↑[3]←109;Buffer↑[2]←114;Buffer↑[1]←56;
FirstString[29];L←6;Buffer↑[6]←97;Buffer↑[5]←109;Buffer↑[4]←116;
Buffer↑[3]←116;Buffer↑[2]←49;Buffer↑[1]←48;FirstString[30];L←4;
Buffer↑[4]←103;Buffer↑[3]←114;Buffer↑[2]←97;Buffer↑[1]←121;
FirstString[31];L←6;Buffer↑[6]←109;Buffer↑[5]←97;Buffer↑[4]←110;
Buffer↑[3]←102;Buffer↑[2]←110;Buffer↑[1]←116;FirstString[32];L←8;
Buffer↑[8]←111;Buffer↑[7]←112;Buffer↑[6]←113;Buffer↑[5]←114;
Buffer↑[4]←115;Buffer↑[3]←116;Buffer↑[2]←117;Buffer↑[1]←113;
FirstString[33];--:78----88:--L←21;Buffer↑[21]←47;Buffer↑[20]←47;
Buffer↑[19]←47;Buffer↑[18]←70;Buffer↑[17]←111;Buffer↑[16]←110;
Buffer↑[15]←116;Buffer↑[14]←115;Buffer↑[13]←47;Buffer↑[12]←70;
Buffer↑[11]←111;Buffer↑[10]←110;Buffer↑[9]←116;Buffer↑[8]←77;
Buffer↑[7]←101;Buffer↑[6]←116;Buffer↑[5]←114;Buffer↑[4]←105;
Buffer↑[3]←99;Buffer↑[2]←115;Buffer↑[1]←47;FirstString[34];--:88-- END;
ProcessACharacter: PROCEDURE =
BEGIN--165:
BEGIN
--173:--
--174:
IF FontsNotLoaded THEN LoadFonts[];--166:
IF CurGf=67 THEN BEGIN Fam←SignedQuad[];CharCode← PascalMODPower2Mask[Fam ,255];
IF CharCode<0 THEN CharCode←CharCode+256;
Fam← PascalDIVPower2[(Fam-CharCode),8];K←SignedQuad[];MinX←SignedQuad[];
MaxX←SignedQuad[];MinY←SignedQuad[];MaxY←SignedQuad[];
END ELSE BEGIN Fam←0;CharCode←GetByte[];MinX←GetByte[];
MaxX←GetByte[];MinX←MaxX-MinX;MinY←GetByte[];MaxY←GetByte[];
MinY←MaxY-MinY; END;
IF MaxX-MinX>WidestRow THEN BEGIN {PascalWriteLongString[file: @TermOut, item: " "]
; PascalWriteLongString[file: @TermOut, item: "Character too wide!"]};JumpOut[]; END--:166--;--171:
IF PreMinX<MinX*65536 THEN OffsetX←OffsetX+MinX*65536-PreMinX;
IF PreMaxY>MaxY*65536 THEN OffsetY←OffsetY+MaxY*65536-PreMaxY;
IF PreMaxX>MaxX*65536 THEN PreMaxX← PascalDIVPower2[PreMaxX ,16] ELSE
PreMaxX←MaxX;
IF PreMinY<MinY*65536 THEN PreMinY← PascalDIVPower2[PreMinY ,16] ELSE
PreMinY←MinY;
DeltaY←PascalROUND[UnscYRatio*PascalFLOAT[(MaxY+1)]-YRatio*PascalFLOAT[OffsetY]]+3276800;
DeltaX←PascalROUND[XRatio*PascalFLOAT[OffsetX]-UnscXRatio*PascalFLOAT[MinX]];
IF SlantRatio>=PascalFLOAT[0 ] THEN OverCol←
PascalROUND[UnscXRatio*PascalFLOAT[PreMaxX]+UnscSlantRatio*PascalFLOAT[MaxY]] ELSE OverCol←
PascalROUND[UnscXRatio*PascalFLOAT[PreMaxX]+UnscSlantRatio*PascalFLOAT[MinY]];OverCol←OverCol+DeltaX+10000000;--:171--TotalPages←TotalPages+1;
IF UseLogo THEN BEGIN PressSetFont[5];Hbox[33,5,TRUE]; END;
PressSetFont[1];Hbox[TimeStamp,1,TRUE];Hbox[22,1,TRUE];
DviScaled[PascalFLOAT[TotalPages]*65536.0];
IF(CharCode#0)OR (Fam#0) THEN BEGIN Hbox[23,1,TRUE];
DviScaled[PascalFLOAT[CharCode]*65536.0];IF Fam#0 THEN BEGIN Hbox[24,1,TRUE];
DviScaled[PascalFLOAT[Fam]*65536.0]; END; END;
IF TitleHead#0 THEN BEGIN Right↑[TitleTail]←0;DO Hbox[25,1,TRUE];
Hbox[Info↑[TitleHead],1,TRUE];Hbox[26,1,TRUE];
TitleHead←Right↑[TitleHead]; IF TitleHead=0 THEN EXIT; ENDLOOP; END;--:173--{PascalWriteLongString[file: @TermOut, item: "["]; PascalWriteInteger[file: @TermOut, item: TotalPages, fieldMinLength: 1]};IF RuleSlant#PascalFLOAT[0 ] THEN PressSetFont[4];
WHILE RulePtr#0 DO BEGIN P←RulePtr;RulePtr←Right↑[P];
IF Xx↑[P]=0 THEN Xx↑[P]←GrayRuleThickness;
IF Xx↑[P]>0 THEN BEGIN Convert[Xl↑[P],Yt↑[P]];TempX←DviX;TempY←DviY;
Convert[Xr↑[P],Yb↑[P]];IF ABS[TempX-DviX]<6554 THEN--177:
BEGIN IF TempY>DviY THEN BEGIN K←TempY;TempY←DviY;DviY←K; END;
PressGoto[DviX-( PascalDIVPower2[Xx↑[P],1]),DviY];PressSetRule[DviY-TempY,Xx↑[P]];
END--:177-- ELSE IF ABS[TempY-DviY]<6554 THEN--178:
BEGIN IF TempX<DviX THEN BEGIN K←TempX;TempX←DviX;DviX←K; END;
PressGoto[DviX,DviY+( PascalDIVPower2[Xx↑[P],1])];PressSetRule[Xx↑[P],TempX-DviX];
END--:178-- ELSE--179:
IF(RuleSlant=PascalFLOAT[0])OR (ABS[PascalFLOAT[TempX]+RuleSlant*PascalFLOAT[(TempY-DviY)]-PascalFLOAT[DviX]]>PascalFLOAT[Xx↑[P]])
THEN SlantComplaint[PascalFLOAT[(DviX-TempX)]/PascalFLOAT[(TempY-DviY)]] ELSE BEGIN IF
TempY>DviY THEN BEGIN K←TempY;TempY←DviY;DviY←K;K←TempX;
TempX←DviX;DviX←K; END;M←PascalROUND[PascalFLOAT[(DviY-TempY)]/SlantUnit];
IF M>0 THEN BEGIN PressGoto[DviX,DviY];Q←( (M-1)/SlantN)+1;
K← M /Q;P← M MOD Q;Q←Q-P;--180:--PressSetChar[K];
Dy←PascalROUND[PascalFLOAT[K]*SlantUnit];PressMoveY[-Dy];
WHILE Q>1 DO BEGIN PressSetChar[K];PressMoveY[-Dy];Q←Q-1; END--:180-- ENDLOOP ;
--181:--IF P>0 THEN BEGIN K←K+1;PressSetChar[K];
Dy←PascalROUND[PascalFLOAT[K]*SlantUnit];PressMoveY[-Dy];
WHILE P>1 DO BEGIN PressSetChar[K];PressMoveY[-Dy];P←P-1; END ENDLOOP ;
END--:181--; END; END--:179--; END; END--:174-- ENDLOOP ;--182:--OverflowLine←1;
IF LabelTail#0 THEN BEGIN Right↑[LabelTail]←0;PressSetFont[3];
--188:--P←Right↑[0];FirstDot←0;
WHILE P#0 DO BEGIN IF INT[Left↑[P]]<53 THEN DoDot[P] ELSE BEGIN Convert[Xx↑[P]
,Yy↑[P]];Xx↑[P]←DviX;Yy↑[P]←DviY;DlTie↑[P]←0; END;P←Right↑[P]; END--:188
ENDLOOP ;NearestDot[];PressSetFont[2];--189:--Q←0;
WHILE Right↑[Q]#0 DO BEGIN P←Right↑[Q];
IF INT[Left↑[P]]>48 THEN BEGIN Right↑[Q]←Right↑[P];DoALabel[P];
END ELSE Q←Right↑[Q]; END--:189-- ENDLOOP ;--190:--Q←0;
WHILE Right↑[Q]#0 DO BEGIN P←Right↑[Q];QSave←Right↑[P];DoBLabel[P];
IF OvFlag=TRUE THEN Q←Right↑[Q] ELSE Right↑[Q]←QSave; END--:190-- ENDLOOP ;--191:
P←0;WHILE Right↑[P]#0 DO BEGIN P←Right↑[P];--200:--BEGIN Q←DlTie↑[P];
NLDot[Q];OverflowLine←OverflowLine+1;
PressGoto[OverCol,OverflowLine*ThriceXHeight+655360];
Hbox[Info↑[P],2,TRUE];Hbox[27,2,TRUE];Hbox[-Info↑[QDot],2,TRUE];
Hbox[28,2,TRUE];
DviScaled[PascalFLOAT[(Xx↑[P]-Xx↑[QDot])]/XRatio+PascalFLOAT[(Yy↑[P]-Yy↑[QDot])]*FudgeFactor];
PressSetChar[44];DviScaled[PascalFLOAT[(Yy↑[QDot]-Yy↑[P])]/YRatio];
PressSetChar[41]; END--:200--; END--:191-- ENDLOOP ; END--:182--;DoPixels[];
PressWritePage[];PascalWriteLongString[file: @TermOut, item: "]"]; END--:165--; END;
Error9999: ERROR = CODE;
GFtoPressRun: UnsafeCommandProc = BEGIN
{ENABLE Error9999 => GOTO Label9999;Initialize[];
InitStrings[];StartGf[];--219:
IF GetByte[]#247 THEN BEGIN {PascalWriteLongString[file: @TermOut, item: " "]; PascalWriteLongString[file: @TermOut, item: "Bad GF file: "]
; PascalWriteLongString[file: @TermOut, item: "No preamble"]; PascalWriteLongString[file: @TermOut, item: "! (at byte "]; PascalWriteInteger[file: @TermOut, item: CurLoc-1, fieldMinLength: 1]; PascalWriteLongString[file: @TermOut, item: ")"]};JumpOut[]; END;
IF GetByte[]#131 THEN BEGIN {PascalWriteLongString[file: @TermOut, item: " "]; PascalWriteLongString[file: @TermOut, item: "Bad GF file: "]
; PascalWriteLongString[file: @TermOut, item: "Wrong ID"]; PascalWriteLongString[file: @TermOut, item: "! (at byte "]; PascalWriteInteger[file: @TermOut, item: CurLoc-1, fieldMinLength: 1]; PascalWriteLongString[file: @TermOut, item: ")"]};JumpOut[]; END;K←GetByte[];
FOR i:INT IN [ INT[1 ].. INT[K ]] DO M ← i; StrPool↑[PoolPtr]←GetByte[];
PoolPtr←PoolPtr+1; ENDLOOP;UseLogo←FALSE;S←StrStart↑[StrPtr];
IF StrPool↑[S]=32 THEN IF StrPool↑[S+1]=77 THEN IF StrPool↑[S+2]=69 THEN
IF StrPool↑[S+3]=84 THEN IF StrPool↑[S+4]=65 THEN IF StrPool↑[S+5]=70
THEN IF StrPool↑[S+6]=79 THEN IF StrPool↑[S+7]=78 THEN IF
StrPool↑[S+8]=84 THEN BEGIN StrPtr←StrPtr+1;StrStart↑[StrPtr]←S+9;UseLogo←TRUE;
END;TimeStamp←MakeString--:219--[];CurGf←GetByte[];
InitStrPtr←StrPtr;WHILE TRUE DO BEGIN--156:-- RuleThickness←0;
OffsetX←0;OffsetY←0;XOffset←0;YOffset←0;PreMinX←268435456;
PreMaxX←-268435456;PreMinY←268435456;PreMaxY←-268435456;--:156
--159:--RulePtr←0;MaxNode←0;--:159----162:--TitleHead←0;TitleTail←0;
LabelTail←0;Root←0;--:162--WHILE( INT[CurGf]>=239)AND ( INT[CurGf]<=244)DO--154:
BEGIN K←InterpretXxx[];SELECT K FROM 19 => NULL;
1,2,3,4 =>IF FontsNotLoaded THEN BEGIN FontName↑[K]←CurString;
FontArea↑[K]←0;FontAt↑[K]←0;InitStrPtr←StrPtr;
END ELSE BEGIN PascalWriteLn[file: @TermOut];
{PascalWriteLongString[file: @TermOut, item: "(Tardy font change will be ignored (byte "]; PascalWriteInteger[file: @TermOut, item: CurLoc, fieldMinLength: 1]
; PascalWriteLongString[file: @TermOut, item: ")!)"]}; END;
5,6,7,8 =>IF FontsNotLoaded THEN BEGIN FontArea↑[K-4]←CurString;
InitStrPtr←StrPtr; END ELSE BEGIN PascalWriteLn[file: @TermOut];
{PascalWriteLongString[file: @TermOut, item: "(Tardy font change will be ignored (byte "]; PascalWriteInteger[file: @TermOut, item: CurLoc, fieldMinLength: 1]
; PascalWriteLongString[file: @TermOut, item: ")!)"]}; END;
9,10,11,12 =>IF FontsNotLoaded THEN BEGIN FontAt↑[K-8]←GetYyy[];
InitStrPtr←StrPtr; END ELSE BEGIN PascalWriteLn[file: @TermOut];
{PascalWriteLongString[file: @TermOut, item: "(Tardy font change will be ignored (byte "]; PascalWriteInteger[file: @TermOut, item: CurLoc, fieldMinLength: 1]
; PascalWriteLongString[file: @TermOut, item: ")!)"]}; END;15 =>RuleThickness←GetYyy[];13 =>--160:--BEGIN P←GetAvail[];
Right↑[P]←RulePtr;RulePtr←P;Xl↑[P]←GetYyy[];Yt↑[P]←GetYyy[];
Xr↑[P]←GetYyy[];Yb↑[P]←GetYyy[];IF Xl↑[P]<PreMinX THEN PreMinX←Xl↑[P];
IF Xl↑[P]>PreMaxX THEN PreMaxX←Xl↑[P];
IF Yt↑[P]<PreMinY THEN PreMinY←Yt↑[P];
IF Yt↑[P]>PreMaxY THEN PreMaxY←Yt↑[P];
IF Xr↑[P]<PreMinX THEN PreMinX←Xr↑[P];
IF Xr↑[P]>PreMaxX THEN PreMaxX←Xr↑[P];
IF Yb↑[P]<PreMinY THEN PreMinY←Yb↑[P];
IF Yb↑[P]>PreMaxY THEN PreMaxY←Yb↑[P];Xx↑[P]←RuleThickness; END--:160
;16 =>--157:--BEGIN OffsetX←GetYyy[];OffsetY←GetYyy[]; END--:157--;
17 =>XOffset←GetYyy[];18 =>YOffset←GetYyy[];14 =>--163:--BEGIN P←GetAvail[];
Info↑[P]←CurString;
IF TitleHead=0 THEN TitleHead←P ELSE Right↑[TitleTail]←P;
TitleTail←P; END--:163--;0 =>--164:
IF( INT[LabelType]<47)OR ( INT[LabelType]>56) THEN BEGIN PascalWriteLn[file: @TermOut];
{PascalWriteLongString[file: @TermOut, item: "Bad label type precedes byte "]; PascalWriteInteger[file: @TermOut, item: CurLoc, fieldMinLength: 1]; PascalWriteLongString[file: @TermOut, item: "!"]};
END ELSE BEGIN P←GetAvail[];Right↑[LabelTail]←P;LabelTail←P;
Left↑[P]←LabelType;Info↑[P]←CurString;Xx↑[P]←GetYyy[];Yy↑[P]←GetYyy[];
IF Xx↑[P]<PreMinX THEN PreMinX←Xx↑[P];
IF Xx↑[P]>PreMaxX THEN PreMaxX←Xx↑[P];
IF Yy↑[P]<PreMinY THEN PreMinY←Yy↑[P];
IF Yy↑[P]>PreMaxY THEN PreMaxY←Yy↑[P]; END--:164--; ENDCASE; END--:154-- ENDLOOP ;
IF CurGf=248 THEN--115:--BEGIN PressCloseFile[]; GOTO Label9999; END--:115--;
IF CurGf#67 THEN IF CurGf#68 THEN BEGIN {PascalWriteLongString[file: @TermOut, item: " "]
; PascalWriteLongString[file: @TermOut, item: "Missing boc!"]};JumpOut[]; END;ProcessACharacter[];CurGf←GetByte[];
StrPtr←InitStrPtr;PoolPtr←StrStart↑[StrPtr]; END ENDLOOP ;
EXITS Label9999 => NULL};{PascalWriteLongString[file: @TermOut, item: ""]; PascalWriteLn[file: @TermOut]};--:217
END;
PascalRegister["GFtoPress", GFtoPressRun];
END.