Systems Reference Library IBM 1130/1800 Plotter Subroutines

JO B
/ / F O R
*10CSI PL O T T ER)
*L I S T AL L
CALL F G RI D ( 1 . 0 . 0 t 8 5 . 6 )
X . 0 0 0
DO 2 I . 1 . 6
T HI S PROGRAM DRAWS T HE PO I NT CHARACT ERS
PLACE PLOTTER O N RI G HT S I DE O F PAPER
• T H E P E N I S NO T RAI SED AT T HE E ND O F T HE T EST
• S P A C E F I G URES ONE HAL F I NCH ARART
I I XEO
y Y + 0.5
L I F T P E N AND GO TO NEW L O CAT I O N
CALL FPLOT ( l . X . Y I
• D R O P PEN
CALL FPLOT 1 2 . X . Y )
• D R A W FIGURE
CALL PO I NT ( I * 1 )
LOOP
2 CONTINUE
STOP
ENO
VARI ABL E ALLOCATIONS
X(R 1.0000 V C R 1.0002 i c i 1.0006
STATEMENT ALLOCATIONS
2 = 0 0 8 9
FEATURES SUPPORTED
I 9CS
CALLED SUBPROGRAMS
FGRID FPLOT POINT F L D F S T O H C H R I S F I O S T O P
REAL CONSTANTS
. 5 0 0 0 0 0 E 0 0 = 0 0 0 8 . 0 0 0 0 0 0 E 0 0 . 0 0 0 A
INTEGER CONSTANTS
1= 000C 0 . 0 0 0 0 6 = 0 0 0 E 2 . 0 0 0 F 0 . 0 0 1 0
CORE REOUIREMENTS F O R
COMMON 0 VARIABLES 8 PROGRAM 9 2
END O F CO MPI L AT I O N
Figure 8 . S pecial Point Character Listing
Figure 9 . S pecial Point Character Drawing
(Actual Size 0.10 inch per character)
Cartridge status information will appear
following / / JOB Card on Monitor 2„
Appendix C. S ample Programs 1 7