Listing: 1 (******************************************************************************) 2 (* SAMPLE05.MOD *) 3 (* *) 4 (* ZoomBits Example *) 5 (* Taken from SAMPLE05.PAS - Metagraphics Software Corporation (c) 1987-1989 *) 6 (* *) 7 (* PSW 10/31/90 09:25pm *) 8 (******************************************************************************) 9 10 MODULE Sample05; 11 (* 12 * Graphix 13 * Release 3.7 14 * (c) Copyright 1986-1992 PMI 15 * Green Bay, Wisconsin 16 * (414) 468-6040 17 * All rights reserved 18 * 19 *) 20 21 IMPORT GrQry; 22 IMPORT GrConst; 23 IMPORT GrPorts; 24 IMPORT Meta; 25 IMPORT IO; 26 27 VAR 28 GrafixCard, 29 CommPort: INTEGER; 30 i, j: INTEGER; 31 ch: CHAR; 32 thePort: GrPorts.adsPort; (* pointer to default port *) ***** ^ not supported yet 33 theBitmap: GrPorts.adsBMap; (* pointer to default bitmap *) ***** ^ not supported yet 34 scrnR, dstR, 35 srcR: GrConst.rect; ***** ^ not supported yet 36 37 38 BEGIN 39 (* init the system *) 40 41 GrQry.GrInit(GrafixCard, CommPort); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 42 43 i := Meta.InitGrafix(-GrafixCard); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 44 45 IF (i # 0) THEN 46 (* Display reason for no go *) 47 GrQry.GrInitErr(GrafixCard, CommPort, i); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 48 END; 49 50 Meta.ScreenRect(scrnR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 51 Meta.SetDisplay(GrConst.GrafPg0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 52 Meta.EraseRect(scrnR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 53 54 Meta.GetPort(thePort); (* Get default port address *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 55 theBitmap := thePort^.portBMap; (* Get default bmap address *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 56 Meta.MoveTo(50, 50); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 57 Meta.DrawString('ZoomBits'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 58 Meta.SetRect(srcR, 45, 40, 115, 55); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 59 Meta.FrameRect(srcR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 60 Meta.SetRect(dstR, 50, 100, 595, 195); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 61 Meta.FrameRect(dstR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 62 Meta.ZoomBits(theBitmap, theBitmap, srcR, dstR, dstR, 0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 63 64 Meta.MoveTo(10, 20); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 Meta.DrawString('press return to terminate'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 66 67 ch := IO.RdChar(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 68 69 GrQry.GrQuit('', 0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 70 END Sample05. 68 errors