Listing: 1 (******************************************************************************) 2 (* SAMPLE01.MOD *) 3 (* *) 4 (* MoveTo/LineTo Example *) 5 (* Taken from SAMPLE01.PAS - Metagraphics Software Corporation (c) 1987-1989 *) 6 (* *) 7 (* PSW 10/31/90 07:42pm *) 8 (******************************************************************************) 9 10 MODULE Sample01; 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 Meta; 24 IMPORT IO; 25 26 VAR 27 GrafixCard, 28 CommPort, 29 i: INTEGER; 30 ch: CHAR; 31 sR: GrConst.rect; ***** ^ not supported yet 32 33 34 BEGIN 35 (* init the system *) 36 37 GrQry.GrInit(GrafixCard, CommPort); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 39 i := Meta.InitGrafix(-GrafixCard); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 40 41 IF (i # 0) THEN 42 (* Display reason for no go *) 43 GrQry.GrInitErr(GrafixCard, CommPort, i); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 44 END; 45 46 Meta.SetDisplay(GrConst.GrafPg0); (* Switch to graphics page 0 *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 47 Meta.ScreenRect(sR); (* Get the screen limits *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 48 Meta.EraseRect(sR); (* Erase the screen *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 49 Meta.FrameRect(sR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 50 Meta.MoveTo(sR.Xmin, sR.Ymin); (* Draw a full screen x *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 51 Meta.LineTo(sR.Xmax, sR.Ymax); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 52 Meta.MoveTo(sR.Xmin, sR.Ymax); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 53 Meta.LineTo(sR.Xmax, sR.Ymin); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 54 55 Meta.MoveTo(sR.Xmin+10, sR.Ymax DIV 2); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 56 Meta.DrawString('This is a line of text'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 57 ch := IO.RdChar(); (* Wait for a keypress *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 58 59 GrQry.GrQuit('', 0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 60 END Sample01. 63 errors