10 ! SAMPLE USE OF DIRECTIVE MACRO TO DO GTSK$ DIRECTIVE
20 DIM DP%(12),BU%(16)
30 LOAD "LB:[1,202]DIRECT.ATK"
40 DP%(0)=61+2*256
50 CALL "GETADR"(BU%(1),DP%(1))
60 ST%=0
70 CALL "DIRECT"(DP%,ST%)
90 PRINT "YEAR     ";R5A$(BU%(1))
100 PRINT "MONTH     ";R5A$(BU%(2))
102 U=BU%(8)
104 U1=INT(U/256)
106 U2=INT(U-256*U1)
108 IF U1<0 THEN U1=U1-OCT("177400")
110 PRINT "UIC           ";OCT$(U1);",";OCT$(U2)
120 ! NOW GET TI INFO
130 PRINT
140 DP%(0)=5+3*256
150 DP%(1)=2	!LUN
155 CALL "GETADR"(BU%(1),DP%(2))
160 CALL "DIRECT"(DP%,ST%)
165 PRINT "TASK TI       ";
170 C1=INT(BU%(1)/256) : C2=INT(BU%(1)-C1*256)
175 C3=INT(BU%(2)/256) : C4=INT(BU%(2)-C3*256)
180 PRINT CHR$(C1);CHR$(C2);OCT$(C4)
185 DP%(0)=3+7*256
190 DP%(1)=OCT("2540")	! GET TERM CHARACTERISTICS
195 DP%(2)=2		! LUN
200 DP%(3)=3+50*256	! EV FLAG & PRI
205 CALL "GETADR"(BU%(1),DP%(4)) ! IO STAT BLOCK
210 DP%(5)=0		! NO AST
215 DP%(6)=8		! GET TERMINAL TYPE
220 CALL "DIRECT"(DP%,ST%)
225 PRINT "TERM TYPE     ";OCT$(BU%(2))
230 DP%(6)=4		! CHANGE TO SPEED
235 CALL "DIRECT"(DP%,ST%)
240 PRINT "TERM SPEED    ";OCT$(BU%(2))
245 STOP