fcb7b340 |
1 | C ACH JA, DAS AUCH |
2 | C |
3 | C |
4 | INTEGER X,Y |
5 | C |
6 | C |
7 | 1000 CALL PL$RST |
8 | DO 2000 X=0,600,50 |
9 | CALL LINE(X,-100,X,100) |
10 | 2000 CONTINUE |
11 | |
12 | 1500 DO 1600 Y=0,200,50 |
13 | CALL LINE(0,Y-100,600,Y-100) |
14 | 1600 CONTINUE |
9f6e6dbc |
15 | 1300 DO 1400 Y=0,150,50 |
16 | DO 222 X=0,580,20 |
17 | CALL LINE(X,Y-75,X+10,Y-75) |
18 | 222 CONTINUE |
19 | 1400 CONTINUE |
20 | C |
fcb7b340 |
21 | CALL LINE (0,1,600,1) |
22 | CALL LINE (0,-1,600,-1) |
9f6e6dbc |
23 | CALL LINE (-1,-100,-1,100) |
24 | CALL LINE (1,-100,1,100) |
fcb7b340 |
25 | C |
26 | CALL PL$MV(0,0) |
27 | CALL PL$PD |
28 | DO 3000 X=0,600 |
29 | TMP=X |
30 | PHI=(3.141/180.0)*TMP |
31 | Y=SIN(PHI)*90.0 |
32 | CALL PL$MV(X,Y) |
33 | 3000 CONTINUE |
34 | CALL PL$PU |
35 | C |
36 | C |
37 | C |
38 | CALL PL$MV(0,0) |
39 | CALL REBOOT |
40 | END |
41 | C |
42 | C |
43 | C |
44 | SUBROUTINE LINE(X1,Y1,X2,Y2) |
45 | INTEGER X1,Y1,X2,Y2 |
46 | CALL PL$MV(X1,Y1) |
47 | CALL PL$PD |
48 | CALL PL$MV(X2,Y2) |
49 | CALL PL$PU |
50 | RETURN |
51 | END |
9f6e6dbc |
52 | CCCCCCCCCC |
53 | C |
54 | CCCCCCCCCC |
fcb7b340 |
55 | $0 |
56 | |
57 | |