PROC Main:
GLOBAL H%,Buf%
DelDRV:
LoadDRV:
OpenCh:
Draw:
IOCLOSE(H%)
ENDP

PROC DelDRV:
LOCAL S$(4)
S$="SMP"
CALL($0885,ADDR(S$)+1,0,$DD01)
ENDP

PROC LoadDRV:
LOCAL Off%(6),F$(130),R%
LOCAL Ax%,Bx%,Cx%,Dx%,Si%,Di%,Fl%
F$=PARSE$("\SYS$SAMP.LDD",CMD$(1),Off%(1))
Bx%=ADDR(F$)+1
Ax%=$0600
Fl%=OS($85,ADDR(Ax%))
Ax%=Ax% OR $FF00
IF (Fl% AND 1) AND (Ax% <> -32)
ALERT("Failed To Load SYS$SAMP.LDD",ERR$(Ax%))
STOP
ENDIF
ENDP

PROC OpenCh:
LOCAL R%
R%=IOOPEN(H%,"SMP:",-1)
IF R%
ALERT("Failed To Open Channel To SMP:",ERR$(R%))
STOP
ENDIF
ENDP

PROC Draw:
LOCAL X%,Y%
DEFAULTWIN 1
gFONT 4
DO
gCLS
gGREY 1 : gAT 0,20 : gLINETO 480,20
gGREY 0 : gAT 455,24 : gPRINT " 20"
gGREY 1 : gAT 0,40 : gLINETO 480,40
gGREY 0 : gAT 455,44 : gPRINT " 40"
gGREY 1 : gAT 0,60 : gLINETO 480,60
gGREY 0 : gAT 455,64 : gPRINT " 60"
gGREY 1 : gAT 0,80 : gLINETO 480,80
gGREY 0 : gAT 455,84 : gPRINT " 80"
gGREY 1 : gAT 0,100 : gLINETO 480,100
gGREY 0 : gAT 455,104 : gPRINT "100"
gGREY 1 : gAT 0,120 : gLINETO 480,120
gGREY 0 : gAT 455,124 : gPRINT "120"
gGREY 1 : gAT 0,140 : gLINETO 480,140
gGREY 0 : gAT 455,144 : gPRINT "140"
gAT 0,80
X%=1
DO
IOREAD(H%,ADDR(Buf%),1)
Y%=80+(Buf%/8)
gLINETO X%,Y%
X%=X%+2
UNTIL X%>=480
UNTIL 1=2
ENDP