10 ! 4380A Test Program
20 ! Do not use TAB, only spaces
30 ! Working June 17, 2003
40 PRINTER IS PRT ! sets external printer in 4395A
50 COM @Na
60 ASSIGN @Na TO 800   ! 4395A in internal Ibasic
70 Func=0    ! Cal Port
80 Mode=1   ! Open
90 CALL Bpo(Func,Mode)
100 END
110 !
120 SUB Bpo(Func,Mode)
130 COM @Na
140 Portdata=Func*16+BINAND(Mode,15)
150 OUTPUT @Na;"OUT8IO ";128+32+16
160 OUTPUT @Na;"OUT8IO ";128+Portdata
170 OUTPUT @Na;"OUT8IO ";Portdata
180 OUTPUT @Na;"OUT8IO ";128+32+16
190 SUBEND !