10 ! READ HICKOK POWER LINE MONITOR
20 DIM DP%(12),BU%(1),ST%(2)
30 LOAD "LB:[1,202]DIRECT.ATK"
40 DP%(0)=1+8*256		:! DPB CODE AND SIZE
45 DP%(1)=2*256			:! IO.RLB
50 DP%(2)=4			:! LUN
55 DP%(3)=3			:! EVENT FLAG
60 CALL "GETADR"(ST%(1),DP%(4))	:!STATUS ADDRESS
65 DP%(5)=0			:! NO AST ENTRY
70 CALL "GETADR"(BU%(1),DP%(6))	:! BUFFER ADRESS
75 DP%(7)=1			:! SIZE
80 OPEN #4, "TT46:/RO"
100 CALL "DIRECT"(DP%,SX)
110 B=0 : CALL "SPAWNB"("BRE 46",B)
111 SLEEP 3S
120 PRINT SX,BU%(1)
130 GOTO 100