; 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