-- 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.