| 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 |
| 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 |
| 21 | CALL LINE (0,1,600,1) |
| 22 | CALL LINE (0,-1,600,-1) |
| 23 | CALL LINE (-1,-100,-1,100) |
| 24 | CALL LINE (1,-100,1,100) |
| 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 |
| 52 | CCCCCCCCCC |
| 53 | C |
| 54 | CCCCCCCCCC |
| 55 | $0 |
| 56 | |
| 57 | |