TM 5-6675-318-14
SAMPLE PROGRAM
10 DIM X(4), Y(4), P (4)
20 FOR 0=1 TO 4
30 PRINT USING "K"; "DP"
40 DISP "ENTER POINT'' ;D;''PLEASE"
50 COSUB 500
6 0 ENTER 7,5:X (D), Y(D), P(D)
70 NEXT D
80 FOR L=1 TO 4
(5) Load blank scratch tape
i n computer and place it in PRINT
9 0 DISP X(L):Y (L);P(L);
ALL and program modes.
100 NEXT L
(6) Type in each line of
program.
After each is typed into
110 END
display, press STORE to enter line.
500 PRINT USING "K"; "0S"
(7) When program is entered,
s e t computer in run mode and press
510 ENTER 7,5:Status
EXECUTE.
520
Status=INT(Status/2)
(8) Using front panel con-
trols, move pen to first point to be
530
Status=INT(Status/2)
digitized.
Press ENTER key on
plotter front panel. Repeat until
540 Status=Status MOD 2
all points are digitized (trans-
ferred).
Computer's printer should
550 IF Status=0 THEN 500
p r i n t X- and Y-coordinates of each
point digitized in units of scale
560 PRINT USING "K": "OD"
set.
570 RETURN !****
DITIZE****
3-76
