- SUBROUTINE LINE(X1,Y1,X2,Y2)
- INTEGER X1,Y1,X2,Y2
- CALL PL$MV(X1,Y1)
- CALL PL$PD
- CALL PL$MV(X2,Y2)
- CALL PL$PU
- RETURN
- END
+C SUBROUTINE LINE(X1,Y1,X2,Y2)
+C CALL PL$MV(X1,Y1)
+C CALL PL$PD
+C CALL PL$MV(X2,Y2)
+C CALL PL$PU
+C RETURN
+C END