; TXT2SPR.ACT›; Bill Kendrick 2015››Proc Main()›  Byte N,I,Z,L›  Byte Array Buf(255)››  Close(1)›  Close(2)›  Open(1,"D:TANK.SPR",4,0)›  Open(2,"D:TANKSPR.ACT",8,0)››  L=0›  Do›    InputSD(1,Buf)›    If Buf(0)=8 Then›      Print(Buf)›      N=0›      Z=128›      For I=1 To 8 Do›        If Buf(I)='  Then›          N=N+Z›        Fi›        Z=Z Rsh 1›      Od›      PrintBE(N)››      PrintBD(2,N)›      PutD(2,' )›      L=L+1›      If L=8 Then›        PutDE(2)›        L=0›      Fi›    Fi›  Until EOF(1) Od›  PutDE(2)››  Close(1)›  Close(2)›Return››