TM 5-6675-323-14
SAMPLE PROGRAM
10 DIM X(4), Y(4), P (4)
20 FOR D=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
(5) Load blank scratch tape
80 FOR L=1 TO 4
i n c o m p u t e r a n d p l a c e it in PRINT
ALL and program modes.
9 0 DISP X(L);Y (L);P(L):
(6) Type in each line of
100 NEXT L
program. A f t e r e a c h i s t y p e d i n t o
display, press STORE to enter line.
110 END
(7) When program is entered,
500 PRINT USING "K"; "OS"
s e t computer in run mode and press
EXECUTE.
510 ENTER 7,5;Status
(8) Using front panel con-
520 S t a t u s = I N T (Status/2)
trols, move pen to first point to be
digitized.
Press ENTER key on
530 S t a t u s = I N T (Status/2)
plotter front panel. Repeat until
all points are digitized (trans-
540 Statue=Status MOD 2
ferred).
Computer's printer should
p r i n t X- and Y-coordinates of each
550 IF Status=0 THEN 500
point digitized in units of scale
set.
560 PRINT USING "K"; "OD"
570 RETURN !****
DITIZE****
3-76
