10 ! program to convert octal to floating point
15 ! remember virtual arrays start at xx(0)
20 dim #3,oc%(3) : dim #4, an(1)
24 ! following open was done once using "/WR" to initially create file
25 open #3, "OCTFLOAT.DAT/BL/AP"
30 input "enter 2 octal digits ";a$,b$
35 oc%(2)=oct(a$) : oc%(3)=oct(b$)
40 print oct$(oc%(2)),oct$(oc%(3)),
45 close 3 : open #4, "OCTFLOAT.DAT/BL/RO"
50 A1=an(1)
55 close 4 : open #3, "OCTFLOAT.DAT/BL/AP"
60 print a1
70 goto 30