1 PROGRAM PLOTTERTEST(OUTPUT);
3 CONST UP="H"; DOWN="I";
4 C=100.0; P=0.125; RHO=0.0174532925;
10 PENXPOS,PENYPOS: INTEGER;
12 (********** P L O T T E R PROZEDUREN **********)
14 PROCEDURE PEN(I:CHAR);
17 PROCEDURE SEND(IX,IY: INTEGER);
19 IF IX>=0 THEN WRITE( IX:1,"@")
20 ELSE WRITE(-IX:1,"P");
21 IF IY>=0 THEN WRITE( IY:1,"A")
25 PROCEDURE MOVE(X,Y: REAL);
27 PENXPOS:=ROUND(X); PENYPOS:=ROUND(Y);
29 SEND(PENXPOS,PENYPOS);
33 PROCEDURE LINE(X,Y: REAL);
38 SEND(DX,DY); WRITELN("J");
39 PENXPOS:=PENXPOS+DX; PENYPOS:=PENYPOS+DY
42 PROCEDURE SYSIZE(R,G: INTEGER);
44 WRITE("C", CHR(G+16*(R+2)))
47 (***********************************************)
52 WRITELN("BPLOTTER-PROGRAMMIERUNG IN PASCAL-S");
57 FOR GRAD := 1 TO 180 DO