ART.LIB

FILE INFORMATION

FILENAME(S): ART.LIB

FILE TYPE(S): SEQ

FILE SIZE: 1K

FIRST SEEN: 2025-11-30 21:28:18

APPEARS ON: 1 disk(s)

FILE HASH

1b5041f3134ca80c8c4e2efd70361390ee4af4b91975a3375e12a9a6939da739

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
VCGN D 64007	ART.LIB	SEQ	DuncanTwain	19	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 28 2A 20 61 72 74 2E 6C  69 62 20 2A 29 0D 50 52  |(* art.lib *).PR|
00000010: 4F 43 45 44 55 52 45 0D  20 20 20 20 20 20 20 20  |OCEDURE.        |
00000020: 20 20 67 72 61 66 69 6E  69 74 0D 20 20 20 20 20  |  grafinit.     |
00000030: 20 20 20 20 20 28 6B 31  2C 6B 32 3A 20 69 6E 74  |     (k1,k2: int|
00000040: 65 67 65 72 29 3B 0D 42  45 47 49 4E 0D 20 20 62  |eger);.BEGIN.  b|
00000050: 6F 72 64 65 72 28 6B 31  29 3B 0D 20 20 70 61 70  |order(k1);.  pap|
00000060: 65 72 28 6B 32 29 3B 0D  20 20 70 6C 6F 74 28 30  |er(k2);.  plot(0|
00000070: 2C 30 2C 30 2C 30 2C 30  29 3B 0D 20 20 70 6C 6F  |,0,0,0,0);.  plo|
00000080: 74 28 31 2C 30 2C 30 2C  30 2C 30 29 3B 0D 20 20  |t(1,0,0,0,0);.  |
00000090: 68 69 72 65 73 28 31 29  3B 0D 45 4E 44 0D 3B 0D  |hires(1);.END.;.|
000000A0: 50 52 4F 43 45 44 55 52  45 0D 20 20 20 20 20 20  |PROCEDURE.      |
000000B0: 20 20 20 20 65 6D 70 74  79 3B 0D 42 45 47 49 4E  |    empty;.BEGIN|
000000C0: 0D 20 20 57 48 49 4C 45  20 4E 4F 54 20 28 67 65  |.  WHILE NOT (ge|
000000D0: 74 6B 65 79 3D 63 68 72  28 30 29 29 20 44 4F 0D  |tkey=chr(0)) DO.|
000000E0: 45 4E 44 0D 3B 0D 50 52  4F 43 45 44 55 52 45 0D  |END.;.PROCEDURE.|
000000F0: 20 20 20 20 20 20 20 20  20 20 77 61 69 74 6B 65  |          waitke|
00000100: 79 3B 0D 42 45 47 49 4E  0D 20 20 57 48 49 4C 45  |y;.BEGIN.  WHILE|
00000110: 20 28 67 65 74 6B 65 79  3D 63 68 72 28 30 29 29  | (getkey=chr(0))|
00000120: 20 44 4F 0D 45 4E 44 0D  3B 0D 50 52 4F 43 45 44  | DO.END.;.PROCED|
00000130: 55 52 45 0D 20 20 20 20  20 20 20 20 20 20 72 65  |URE.          re|
00000140: 61 64 79 3B 0D 42 45 47  49 4E 0D 20 20 77 61 69  |ady;.BEGIN.  wai|
00000150: 74 6B 65 79 3B 0D 20 20  68 69 72 65 73 28 30 29  |tkey;.  hires(0)|
00000160: 3B 0D 45 4E 44 0D 3B 0D  50 52 4F 43 45 44 55 52  |;.END.;.PROCEDUR|
00000170: 45 0D 20 20 20 20 20 20  20 20 20 20 6D 6F 76 65  |E.          move|
00000180: 3B 0D 43 4F 4E 53 54 0D  20 20 20 20 20 20 20 20  |;.CONST.        |
00000190: 20 20 20 20 65 73 63 3D  20 32 37 3B 0D 56 41 52  |    esc= 27;.VAR|
000001A0: 0D 20 20 20 20 20 20 20  20 20 20 70 72 69 6E 74  |.          print|
000001B0: 3A 20 74 65 78 74 3B 0D  20 20 20 20 20 20 74 61  |: text;.      ta|
000001C0: 62 78 2C 74 61 62 79 3A  20 69 6E 74 65 67 65 72  |bx,taby: integer|
000001D0: 3B 0D 42 45 47 49 4E 0D  20 20 77 72 69 74 65 6C  |;.BEGIN.  writel|
000001E0: 6E 0D 20 20 28 27 56 65  72 73 63 68 75 69 76 69  |n.  ('Verschuivi|
000001F0: 6E 67 20 70 72 69 6E 74  65 72 20 68 65 61 64 20  |ng printer head |
00000200: 3A 27 29 3B 0D 20 20 77  72 69 74 65 28 27 48 6F  |:');.  write('Ho|
00000210: 72 69 7A 6F 6E 74 61 61  6C 20 74 61 62 20 3D 20  |rizontaal tab = |
00000220: 27 29 3B 0D 20 20 72 65  61 64 6C 6E 28 74 61 62  |');.  readln(tab|
00000230: 78 29 3B 0D 20 20 77 72  69 74 65 28 27 56 65 72  |x);.  write('Ver|
00000240: 74 69 63 61 61 6C 20 20  20 74 61 62 20 3D 20 27  |ticaal   tab = '|
00000250: 29 3B 0D 20 20 72 65 61  64 6C 6E 28 74 61 62 79  |);.  readln(taby|
00000260: 29 3B 0D 20 20 72 65 77  72 69 74 65 28 70 72 69  |);.  rewrite(pri|
00000270: 6E 74 2C 34 2C 30 29 3B  0D 20 20 77 72 69 74 65  |nt,4,0);.  write|
00000280: 0D 20 20 28 70 72 69 6E  74 2C 63 68 72 28 65 73  |.  (print,chr(es|
00000290: 63 29 2C 27 41 27 2C 63  68 72 28 38 29 29 3B 0D  |c),'A',chr(8));.|
000002A0: 20 20 77 72 69 74 65 0D  20 20 28 70 72 69 6E 74  |  write.  (print|
000002B0: 2C 63 68 72 28 65 73 63  29 2C 27 4D 27 2C 63 68  |,chr(esc),'M',ch|
000002C0: 72 28 74 61 62 78 29 29  3B 0D 20 20 77 72 69 74  |r(tabx));.  writ|
000002D0: 65 0D 20 20 28 70 72 69  6E 74 2C 63 68 72 28 65  |e.  (print,chr(e|
000002E0: 73 63 29 2C 27 61 27 2C  63 68 72 28 74 61 62 79  |sc),'a',chr(taby|
000002F0: 29 29 3B 0D 45 4E 44 0D  3B 0D 50 52 4F 43 45 44  |));.END.;.PROCED|
00000300: 55 52 45 20 68 61 72 64  63 6F 70 79 3B 20 65 78  |URE hardcopy; ex|
00000310: 74 65 72 6E 20 24 63 66  30 30 0D 3B 0D 46 55 4E  |tern $cf00.;.FUN|
00000320: 43 54 49 4F 4E 20 61 66  64 72 75 6B 3A 20 62 6F  |CTION afdruk: bo|
00000330: 6F 6C 65 61 6E 3B 0D 56  41 52 20 63 3A 63 68 61  |olean;.VAR c:cha|
00000340: 72 3B 0D 42 45 47 49 4E  0D 20 20 72 65 61 64 79  |r;.BEGIN.  ready|
00000350: 3B 0D 20 20 77 72 69 74  65 28 27 4F 70 20 70 61  |;.  write('Op pa|
00000360: 70 69 65 72 20 7A 65 74  74 65 6E 20 27 2C 0D 20  |pier zetten ',. |
00000370: 20 20 20 20 20 20 20 27  28 6A 2F 6E 29 20 3F 20  |       '(j/n) ? |
00000380: 27 29 3B 0D 20 20 72 65  61 64 6C 6E 28 63 29 3B  |');.  readln(c);|
00000390: 0D 20 20 61 66 64 72 75  6B 3A 3D 28 63 3D 27 6A  |.  afdruk:=(c='j|
000003A0: 27 29 3B 0D 45 4E 44 0D  3B 0D 46 55 4E 43 54 49  |');.END.;.FUNCTI|
000003B0: 4F 4E 20 6B 6C 61 61 72  6F 76 65 72 3A 20 62 6F  |ON klaarover: bo|
000003C0: 6F 6C 65 61 6E 3B 0D 56  41 52 20 63 3A 20 63 68  |olean;.VAR c: ch|
000003D0: 61 72 3B 0D 42 45 47 49  4E 0D 20 20 77 72 69 74  |ar;.BEGIN.  writ|
000003E0: 65 28 27 4E 6F 67 20 65  65 6E 20 72 75 6E 20 28  |e('Nog een run (|
000003F0: 6A 2F 6E 29 20 3F 20 27  29 3B 0D 20 20 72 65 61  |j/n) ? ');.  rea|
00000400: 64 6C 6E 28 63 29 3B 0D  20 20 6B 6C 61 61 72 6F  |dln(c);.  klaaro|
00000410: 76 65 72 3A 3D 28 63 3D  27 6E 27 29 3B 0D 45 4E  |ver:=(c='n');.EN|
00000420: 44 0D 3B 0D 0A                                    |D.;..           |

(* ART.LIB *).PROCEDURE.          GRAFIN
IT.          (K1,K2: INTEGER);.BEGIN.  B
ORDER(K1);.  PAPER(K2);.  PLOT(0,0,0,0,0
);.  PLOT(1,0,0,0,0);.  HIRES(1);.END.;.
PROCEDURE.          EMPTY;.BEGIN.  WHILE
 NOT (GETKEY=CHR(0)) DO.END.;.PROCEDURE.
          WAITKEY;.BEGIN.  WHILE (GETKEY
=CHR(0)) DO.END.;.PROCEDURE.          RE
ADY;.BEGIN.  WAITKEY;.  HIRES(0);.END.;.
PROCEDURE.          MOVE;.CONST.        
    ESC= 27;.VAR.          PRINT: TEXT;.
      TABX,TABY: INTEGER;.BEGIN.  WRITEL
N.  ('VERSCHUIVING PRINTER HEAD :');.  W
RITE('HORIZONTAAL TAB = ');.  READLN(TAB
X);.  WRITE('VERTICAAL   TAB = ');.  REA
DLN(TABY);.  REWRITE(PRINT,4,0);.  WRITE
.  (PRINT,CHR(ESC),'A',CHR(8));.  WRITE.
  (PRINT,CHR(ESC),'M',CHR(TABX));.  WRIT
E.  (PRINT,CHR(ESC),'A',CHR(TABY));.END.
;.PROCEDURE HARDCOPY; EXTERN $CF00.;.FUN
CTION AFDRUK: BOOLEAN;.VAR C:CHAR;.BEGIN
.  READY;.  WRITE('OP PAPIER ZETTEN ',. 
       '(J/N) ? ');.  READLN(C);.  AFDRU
K:=(C='J');.END.;.FUNCTION KLAAROVER: BO
OLEAN;.VAR C: CHAR;.BEGIN.  WRITE('NOG E
EN RUN (J/N) ? ');.  READLN(C);.  KLAARO
VER:=(C='N');.END.;..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL