Proof of concept 0 and 1 in Blitz Max - Encoder.bmx
Local in1:String="" Local inm2:String="" Local dec:String="" Local binu:String="" Local bintrim:String="" Local inread:String="" Local cbyte:String="" Local memorybit:Int=0 Local decint:Int=0 Local totalascii:Int=0 Local memdump:Int=0 Local memorybyte1:String="" Local memorybyte2:String="" Local memorybyte3:String="" Local memorybyte4:String="" Local memorybyte5:String="" Local memorybyte6:String="" Local memorybyte7:String="" Local memorybyte8:String="" Print "1.Load File from File to 1 Output 1" Print "2.Load File from 1 to File Output File" Print "3.Load File from File to 0 Output 0" Print "4.Load File from 0 to File Output File" Print "5.Load Directory from File to 1 output 1" Print "6.Load Directory from 1 to File output File" Print "7.Load Directory from File to 0 output 0" Print "8.Load Directory from 0 to File output File" dec$=Input ("Choose from 1 2 3 4 5 6 7 8 >") If dec$="1" Then in1$=Input("Filein:>") Local in:TStream = ReadStream(in1$) If Not in RuntimeError "Failed to open a ReadStream to file "+in1$ inm2$=Input("Fileout:>") Local in2:TStream = WriteStream(inm2$) If Not in2 RuntimeError "Failed to open a ReadStream to file "+inm2$ While Not Eof(in) inread$=ReadByte(in) decint=0 If inread$=0 Then decint=0 binu$=Bin (decint) bintrim$=Right (binu$,8) memorybyte1=Mid(bintrim$,8,1) memorybyte2=Mid(bintrim$,7,1) memorybyte3=Mid(bintrim$,6,1) memorybyte4=Mid(bintrim$,5,1) memorybyte5=Mid(bintrim$,4,1) memorybyte6=Mid(bintrim$,3,1) memorybyte7=Mid(bintrim$,2,1) memorybyte8=Mid(bintrim$,1,1) If memorybyte1="0" Then WriteLine (in2,"") If memorybyte1="1" Then WriteLine (in2,"0") If memorybyte2="0" Then WriteLine (in2,"") If memorybyte2="1" Then WriteLine (in2,"0") If memorybyte3="0" Then WriteLine (in2,"") If memorybyte3="1" Then WriteLine (in2,"0") If memorybyte4="0" Then WriteLine (in2,"") If memorybyte4="1" Then WriteLine (in2,"0") If memorybyte5="0" Then WriteLine (in2,"") If memorybyte5="1" Then WriteLine (in2,"0") If memorybyte6="0" Then WriteLine (in2,"") If memorybyte6="1" Then WriteLine (in2,"0") If memorybyte7="0" Then WriteLine (in2,"") If memorybyte7="1" Then WriteLine (in2,"0") If memorybyte8="0" Then WriteLine (in2,"") If memorybyte8="1" Then WriteLine (in2,"0") Else Repeat decint=decint+1 Until decint=inread$ binu$=Bin (decint) bintrim$=Right (binu$,8) memorybyte1=Mid(bintrim$,8,1) memorybyte2=Mid(bintrim$,7,1) memorybyte3=Mid(bintrim$,6,1) memorybyte4=Mid(bintrim$,5,1) memorybyte5=Mid(bintrim$,4,1) memorybyte6=Mid(bintrim$,3,1) memorybyte7=Mid(bintrim$,2,1) memorybyte8=Mid(bintrim$,1,1) If memorybyte1="0" Then WriteLine (in2,"") If memorybyte1="1" Then WriteLine (in2,"0") If memorybyte2="0" Then WriteLine (in2,"") If memorybyte2="1" Then WriteLine (in2,"0") If memorybyte3="0" Then WriteLine (in2,"") If memorybyte3="1" Then WriteLine (in2,"0") If memorybyte4="0" Then WriteLine (in2,"") If memorybyte4="1" Then WriteLine (in2,"0") If memorybyte5="0" Then WriteLine (in2,"") If memorybyte5="1" Then WriteLine (in2,"0") If memorybyte6="0" Then WriteLine (in2,"") If memorybyte6="1" Then WriteLine (in2,"0") If memorybyte7="0" Then WriteLine (in2,"") If memorybyte7="1" Then WriteLine (in2,"0") If memorybyte8="0" Then WriteLine (in2,"") If memorybyte8="1" Then WriteLine (in2,"0") EndIf Wend CloseStream in CloseStream in2 EndIf If dec$="2" Then Local numb:Int=0 in1$=Input("Filein:>") Local in:TStream = ReadStream(in1$) If Not in RuntimeError "Failed to open a ReadStream to file "+in1$ inm2$=Input("Fileout:>") Local in2:TStream = WriteStream(inm2$) If Not in2 RuntimeError "Failed to open a ReadStream to file "+inm2$ While Not Eof(in) inread$=ReadLine(in) If inread$="0" Then If memorybit>8 Then memorybit=0 memorybit=memorybit+1 If memorybit=1 Then memorybyte1$="1" If memorybit=2 Then memorybyte2$="1" If memorybit=3 Then memorybyte3$="1" If memorybit=4 Then memorybyte4$="1" If memorybit=5 Then memorybyte5$="1" If memorybit=6 Then memorybyte6$="1" If memorybit=7 Then memorybyte7$="1" If memorybit=8 Then memorybyte8$="1" If memorybit=8 Then totalascii=0 If memorybyte1$="1" Then totalascii=totalascii+1 If memorybyte2$="1" Then totalascii=totalascii+2 If memorybyte3$="1" Then totalascii=totalascii+4 If memorybyte4$="1" Then totalascii=totalascii+8 If memorybyte5$="1" Then totalascii=totalascii+16 If memorybyte6$="1" Then totalascii=totalascii+32 If memorybyte7$="1" Then totalascii=totalascii+64 If memorybyte8$="1" Then totalascii=totalascii+128 WriteByte (in2,totalascii) memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" EndIf EndIf If inread$="" Then If memorybit>8 Then memorybit=0 memorybit=memorybit+1 If memorybit=1 Then memorybyte1$="0" If memorybit=2 Then memorybyte2$="0" If memorybit=3 Then memorybyte3$="0" If memorybit=4 Then memorybyte4$="0" If memorybit=5 Then memorybyte5$="0" If memorybit=6 Then memorybyte6$="0" If memorybit=7 Then memorybyte7$="0" If memorybit=8 Then memorybyte8$="0" If memorybit=8 Then totalascii=0 If memorybyte1$="1" Then totalascii=totalascii+1 If memorybyte2$="1" Then totalascii=totalascii+2 If memorybyte3$="1" Then totalascii=totalascii+4 If memorybyte4$="1" Then totalascii=totalascii+8 If memorybyte5$="1" Then totalascii=totalascii+16 If memorybyte6$="1" Then totalascii=totalascii+32 If memorybyte7$="1" Then totalascii=totalascii+64 If memorybyte8$="1" Then totalascii=totalascii+128 WriteByte (in2,totalascii) memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" EndIf EndIf Wend CloseStream in CloseStream in2 Rem Print memorybyte1$ Print memorybyte2$ Print memorybyte3$ Print memorybyte4$ Print memorybyte5$ Print memorybyte6$ Print memorybyte7$ Print memorybyte8$ End Rem Input "Press enter to End" End EndIf If dec$="3" Then Local numb:Int=0 in1$=Input("Filein:>") Local in:TStream = ReadStream(in1$) If Not in RuntimeError "Failed to open a ReadStream to file "+in1$ inm2$=Input("Fileout:>") Local in2:TStream = WriteStream(inm2$) If Not in2 RuntimeError "Failed to open a ReadStream to file "+inm2$ While Not Eof(in) If Not Eof (in) Then inread$=ReadByte(in) decint=0 If inread$=0 Then decint=0 binu$=Bin (decint) bintrim$=Right (binu$,8) memorybyte1=Mid(bintrim$,8,1) memorybyte2=Mid(bintrim$,7,1) memorybyte3=Mid(bintrim$,6,1) memorybyte4=Mid(bintrim$,5,1) memorybyte5=Mid(bintrim$,4,1) memorybyte6=Mid(bintrim$,3,1) memorybyte7=Mid(bintrim$,2,1) memorybyte8=Mid(bintrim$,1,1) If memorybyte1="0" Then WriteLine (in2,"0") If memorybyte1="1" Then WriteLine (in2,"") If memorybyte2="0" Then WriteLine (in2,"0") If memorybyte2="1" Then WriteLine (in2,"") If memorybyte3="0" Then WriteLine (in2,"0") If memorybyte3="1" Then WriteLine (in2,"") If memorybyte4="0" Then WriteLine (in2,"0") If memorybyte4="1" Then WriteLine (in2,"") If memorybyte5="0" Then WriteLine (in2,"0") If memorybyte5="1" Then WriteLine (in2,"") If memorybyte6="0" Then WriteLine (in2,"0") If memorybyte6="1" Then WriteLine (in2,"") If memorybyte7="0" Then WriteLine (in2,"0") If memorybyte7="1" Then WriteLine (in2,"") If memorybyte8="0" Then WriteLine (in2,"0") If memorybyte8="1" Then WriteLine (in2,"") Else Repeat decint=decint+1 Until decint=inread$ binu$=Bin (decint) bintrim$=Right (binu$,8) memorybyte1=Mid(bintrim$,8,1) memorybyte2=Mid(bintrim$,7,1) memorybyte3=Mid(bintrim$,6,1) memorybyte4=Mid(bintrim$,5,1) memorybyte5=Mid(bintrim$,4,1) memorybyte6=Mid(bintrim$,3,1) memorybyte7=Mid(bintrim$,2,1) memorybyte8=Mid(bintrim$,1,1) If memorybyte1="0" Then WriteLine (in2,"0") If memorybyte1="1" Then WriteLine (in2,"") If memorybyte2="0" Then WriteLine (in2,"0") If memorybyte2="1" Then WriteLine (in2,"") If memorybyte3="0" Then WriteLine (in2,"0") If memorybyte3="1" Then WriteLine (in2,"") If memorybyte4="0" Then WriteLine (in2,"0") If memorybyte4="1" Then WriteLine (in2,"") If memorybyte5="0" Then WriteLine (in2,"0") If memorybyte5="1" Then WriteLine (in2,"") If memorybyte6="0" Then WriteLine (in2,"0") If memorybyte6="1" Then WriteLine (in2,"") If memorybyte7="0" Then WriteLine (in2,"0") If memorybyte7="1" Then WriteLine (in2,"") If memorybyte8="0" Then WriteLine (in2,"0") If memorybyte8="1" Then WriteLine (in2,"") EndIf EndIf Wend EndIf If dec$="4" Then Local numb:Int=0 in1$=Input("Filein:>") Local in:TStream = ReadStream(in1$) If Not in RuntimeError "Failed to open a ReadStream to file "+in1$ inm2$=Input("Fileout:>") Local in2:TStream = WriteStream(inm2$) If Not in2 RuntimeError "Failed to open a ReadStream to file "+inm2$ While Not Eof(in) If Not Eof (in) Then inread$=ReadLine(in) If inread$="" Then If memorybit>8 Then memorybit=0 memorybit=memorybit+1 If memorybit=1 Then memorybyte1$="1" If memorybit=2 Then memorybyte2$="1" If memorybit=3 Then memorybyte3$="1" If memorybit=4 Then memorybyte4$="1" If memorybit=5 Then memorybyte5$="1" If memorybit=6 Then memorybyte6$="1" If memorybit=7 Then memorybyte7$="1" If memorybit=8 Then memorybyte8$="1" If memorybit=8 Then totalascii=0 If memorybyte1$="1" Then totalascii=totalascii+1 If memorybyte2$="1" Then totalascii=totalascii+2 If memorybyte3$="1" Then totalascii=totalascii+4 If memorybyte4$="1" Then totalascii=totalascii+8 If memorybyte5$="1" Then totalascii=totalascii+16 If memorybyte6$="1" Then totalascii=totalascii+32 If memorybyte7$="1" Then totalascii=totalascii+64 If memorybyte8$="1" Then totalascii=totalascii+128 WriteByte (in2,totalascii) memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" EndIf EndIf If inread$="0" Then If memorybit>8 Then memorybit=0 memorybit=memorybit+1 If memorybit=1 Then memorybyte1$="0" If memorybit=2 Then memorybyte2$="0" If memorybit=3 Then memorybyte3$="0" If memorybit=4 Then memorybyte4$="0" If memorybit=5 Then memorybyte5$="0" If memorybit=6 Then memorybyte6$="0" If memorybit=7 Then memorybyte7$="0" If memorybit=8 Then memorybyte8$="0" If memorybit=8 Then totalascii=0 If memorybyte1$="1" Then totalascii=totalascii+1 If memorybyte2$="1" Then totalascii=totalascii+2 If memorybyte3$="1" Then totalascii=totalascii+4 If memorybyte4$="1" Then totalascii=totalascii+8 If memorybyte5$="1" Then totalascii=totalascii+16 If memorybyte6$="1" Then totalascii=totalascii+32 If memorybyte7$="1" Then totalascii=totalascii+64 If memorybyte8$="1" Then totalascii=totalascii+128 WriteByte (in2,totalascii) memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" EndIf EndIf EndIf Wend End EndIf If dec$="5" Then in1$=Input("dirin:>") inm2$=Input("dirout:>") Local dir:Byte Ptr = ReadDir(in1$) If Not dir RuntimeError "failed to read current directory "+in1$ Repeat Local t:String = NextFile( dir ) If t="" Exit If t="." Or t=".." Continue Local in:TStream = ReadStream(in1$+t$) If Not in RuntimeError "Failed to open a ReadStream to file "+t$ Local in2:TStream = WriteStream(inm2$+t$) If Not in2 RuntimeError "Failed to open a ReadStream to file "+inm2$+t$ While Not Eof(in) inread$=ReadByte(in) decint=0 If inread$=0 Then decint=0 binu$=Bin (decint) bintrim$=Right (binu$,8) memorybyte1=Mid(bintrim$,8,1) memorybyte2=Mid(bintrim$,7,1) memorybyte3=Mid(bintrim$,6,1) memorybyte4=Mid(bintrim$,5,1) memorybyte5=Mid(bintrim$,4,1) memorybyte6=Mid(bintrim$,3,1) memorybyte7=Mid(bintrim$,2,1) memorybyte8=Mid(bintrim$,1,1) If memorybyte1="0" Then WriteLine (in2,"") If memorybyte1="1" Then WriteLine (in2,"0") If memorybyte2="0" Then WriteLine (in2,"") If memorybyte2="1" Then WriteLine (in2,"0") If memorybyte3="0" Then WriteLine (in2,"") If memorybyte3="1" Then WriteLine (in2,"0") If memorybyte4="0" Then WriteLine (in2,"") If memorybyte4="1" Then WriteLine (in2,"0") If memorybyte5="0" Then WriteLine (in2,"") If memorybyte5="1" Then WriteLine (in2,"0") If memorybyte6="0" Then WriteLine (in2,"") If memorybyte6="1" Then WriteLine (in2,"0") If memorybyte7="0" Then WriteLine (in2,"") If memorybyte7="1" Then WriteLine (in2,"0") If memorybyte8="0" Then WriteLine (in2,"") If memorybyte8="1" Then WriteLine (in2,"0") Else Repeat decint=decint+1 Until decint=inread$ binu$=Bin (decint) bintrim$=Right (binu$,8) memorybyte1=Mid(bintrim$,8,1) memorybyte2=Mid(bintrim$,7,1) memorybyte3=Mid(bintrim$,6,1) memorybyte4=Mid(bintrim$,5,1) memorybyte5=Mid(bintrim$,4,1) memorybyte6=Mid(bintrim$,3,1) memorybyte7=Mid(bintrim$,2,1) memorybyte8=Mid(bintrim$,1,1) If memorybyte1="0" Then WriteLine (in2,"") If memorybyte1="1" Then WriteLine (in2,"0") If memorybyte2="0" Then WriteLine (in2,"") If memorybyte2="1" Then WriteLine (in2,"0") If memorybyte3="0" Then WriteLine (in2,"") If memorybyte3="1" Then WriteLine (in2,"0") If memorybyte4="0" Then WriteLine (in2,"") If memorybyte4="1" Then WriteLine (in2,"0") If memorybyte5="0" Then WriteLine (in2,"") If memorybyte5="1" Then WriteLine (in2,"0") If memorybyte6="0" Then WriteLine (in2,"") If memorybyte6="1" Then WriteLine (in2,"0") If memorybyte7="0" Then WriteLine (in2,"") If memorybyte7="1" Then WriteLine (in2,"0") If memorybyte8="0" Then WriteLine (in2,"") If memorybyte8="1" Then WriteLine (in2,"0") EndIf Wend CloseStream in CloseStream in2 Forever CloseDir dir EndIf If dec$="6" Then in1$=Input("dirin:>") inm2$=Input("dirout:>") Local dir:Byte Ptr = ReadDir(in1$) If Not dir RuntimeError "failed to read current directory "+in1$ Repeat Local t:String = NextFile( dir ) If t="" Exit If t="." Or t=".." Continue Local in:TStream = ReadStream(in1$+t$) If Not in RuntimeError "Failed to open a ReadStream to file "+t$ Local in2:TStream = WriteStream(inm2$+t$) If Not in2 RuntimeError "Failed to open a ReadStream to file "+inm2$+t$ memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" memorybit=0 While Not Eof(in) inread$=ReadLine(in) If inread$="0" Then If memorybit>8 Then memorybit=0 memorybit=memorybit+1 If memorybit=1 Then memorybyte1$="1" If memorybit=2 Then memorybyte2$="1" If memorybit=3 Then memorybyte3$="1" If memorybit=4 Then memorybyte4$="1" If memorybit=5 Then memorybyte5$="1" If memorybit=6 Then memorybyte6$="1" If memorybit=7 Then memorybyte7$="1" If memorybit=8 Then memorybyte8$="1" If memorybit=8 Then totalascii=0 If memorybyte1$="1" Then totalascii=totalascii+1 If memorybyte2$="1" Then totalascii=totalascii+2 If memorybyte3$="1" Then totalascii=totalascii+4 If memorybyte4$="1" Then totalascii=totalascii+8 If memorybyte5$="1" Then totalascii=totalascii+16 If memorybyte6$="1" Then totalascii=totalascii+32 If memorybyte7$="1" Then totalascii=totalascii+64 If memorybyte8$="1" Then totalascii=totalascii+128 WriteByte (in2,totalascii) memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" EndIf EndIf If inread$="" Then If memorybit>8 Then memorybit=0 memorybit=memorybit+1 If memorybit=1 Then memorybyte1$="0" If memorybit=2 Then memorybyte2$="0" If memorybit=3 Then memorybyte3$="0" If memorybit=4 Then memorybyte4$="0" If memorybit=5 Then memorybyte5$="0" If memorybit=6 Then memorybyte6$="0" If memorybit=7 Then memorybyte7$="0" If memorybit=8 Then memorybyte8$="0" If memorybit=8 Then totalascii=0 If memorybyte1$="1" Then totalascii=totalascii+1 If memorybyte2$="1" Then totalascii=totalascii+2 If memorybyte3$="1" Then totalascii=totalascii+4 If memorybyte4$="1" Then totalascii=totalascii+8 If memorybyte5$="1" Then totalascii=totalascii+16 If memorybyte6$="1" Then totalascii=totalascii+32 If memorybyte7$="1" Then totalascii=totalascii+64 If memorybyte8$="1" Then totalascii=totalascii+128 WriteByte (in2,totalascii) memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" EndIf EndIf Wend CloseStream in CloseStream in2 Forever End EndIf If dec$="7" Then in1$=Input("dirin:>") inm2$=Input("dirout:>") Local dir:Byte Ptr = ReadDir(in1$) If Not dir RuntimeError "failed to read current directory "+in1$ Repeat Local t:String = NextFile( dir ) If t="" Exit If t="." Or t=".." Continue Local in:TStream = ReadStream(in1$+t$) If Not in RuntimeError "Failed to open a ReadStream to file "+t$ Local in2:TStream = WriteStream(inm2$+t$) If Not in2 RuntimeError "Failed to open a ReadStream to file "+inm2$+t$ While Not Eof(in) If Not Eof (in) Then inread$=ReadByte(in) decint=0 If inread$=0 Then decint=0 binu$=Bin (decint) bintrim$=Right (binu$,8) memorybyte1=Mid(bintrim$,8,1) memorybyte2=Mid(bintrim$,7,1) memorybyte3=Mid(bintrim$,6,1) memorybyte4=Mid(bintrim$,5,1) memorybyte5=Mid(bintrim$,4,1) memorybyte6=Mid(bintrim$,3,1) memorybyte7=Mid(bintrim$,2,1) memorybyte8=Mid(bintrim$,1,1) If memorybyte1="0" Then WriteLine (in2,"0") If memorybyte1="1" Then WriteLine (in2,"") If memorybyte2="0" Then WriteLine (in2,"0") If memorybyte2="1" Then WriteLine (in2,"") If memorybyte3="0" Then WriteLine (in2,"0") If memorybyte3="1" Then WriteLine (in2,"") If memorybyte4="0" Then WriteLine (in2,"0") If memorybyte4="1" Then WriteLine (in2,"") If memorybyte5="0" Then WriteLine (in2,"0") If memorybyte5="1" Then WriteLine (in2,"") If memorybyte6="0" Then WriteLine (in2,"0") If memorybyte6="1" Then WriteLine (in2,"") If memorybyte7="0" Then WriteLine (in2,"0") If memorybyte7="1" Then WriteLine (in2,"") If memorybyte8="0" Then WriteLine (in2,"0") If memorybyte8="1" Then WriteLine (in2,"") Else Repeat decint=decint+1 Until decint=inread$ binu$=Bin (decint) bintrim$=Right (binu$,8) memorybyte1=Mid(bintrim$,8,1) memorybyte2=Mid(bintrim$,7,1) memorybyte3=Mid(bintrim$,6,1) memorybyte4=Mid(bintrim$,5,1) memorybyte5=Mid(bintrim$,4,1) memorybyte6=Mid(bintrim$,3,1) memorybyte7=Mid(bintrim$,2,1) memorybyte8=Mid(bintrim$,1,1) If memorybyte1="0" Then WriteLine (in2,"0") If memorybyte1="1" Then WriteLine (in2,"") If memorybyte2="0" Then WriteLine (in2,"0") If memorybyte2="1" Then WriteLine (in2,"") If memorybyte3="0" Then WriteLine (in2,"0") If memorybyte3="1" Then WriteLine (in2,"") If memorybyte4="0" Then WriteLine (in2,"0") If memorybyte4="1" Then WriteLine (in2,"") If memorybyte5="0" Then WriteLine (in2,"0") If memorybyte5="1" Then WriteLine (in2,"") If memorybyte6="0" Then WriteLine (in2,"0") If memorybyte6="1" Then WriteLine (in2,"") If memorybyte7="0" Then WriteLine (in2,"0") If memorybyte7="1" Then WriteLine (in2,"") If memorybyte8="0" Then WriteLine (in2,"0") If memorybyte8="1" Then WriteLine (in2,"") EndIf EndIf Wend CloseStream in CloseStream in2 Forever EndIf If dec$="8" Then in1$=Input("dirin:>") inm2$=Input("dirout:>") Local dir:Byte Ptr = ReadDir(in1$) If Not dir RuntimeError "failed to read current directory "+in1$ Repeat Local t:String = NextFile( dir ) If t="" Exit If t="." Or t=".." Continue Local in:TStream = ReadStream(in1$+t$) If Not in RuntimeError "Failed to open a ReadStream to file "+t$ Local in2:TStream = WriteStream(inm2$+t$) If Not in2 RuntimeError "Failed to open a ReadStream to file "+inm2$+t$ memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" memorybit=0 While Not Eof(in) If Not Eof (in) Then inread$=ReadLine(in) If inread$="" Then If memorybit>8 Then memorybit=0 memorybit=memorybit+1 If memorybit=1 Then memorybyte1$="1" If memorybit=2 Then memorybyte2$="1" If memorybit=3 Then memorybyte3$="1" If memorybit=4 Then memorybyte4$="1" If memorybit=5 Then memorybyte5$="1" If memorybit=6 Then memorybyte6$="1" If memorybit=7 Then memorybyte7$="1" If memorybit=8 Then memorybyte8$="1" If memorybit=8 Then totalascii=0 If memorybyte1$="1" Then totalascii=totalascii+1 If memorybyte2$="1" Then totalascii=totalascii+2 If memorybyte3$="1" Then totalascii=totalascii+4 If memorybyte4$="1" Then totalascii=totalascii+8 If memorybyte5$="1" Then totalascii=totalascii+16 If memorybyte6$="1" Then totalascii=totalascii+32 If memorybyte7$="1" Then totalascii=totalascii+64 If memorybyte8$="1" Then totalascii=totalascii+128 WriteByte (in2,totalascii) memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" EndIf EndIf If inread$="0" Then If memorybit>8 Then memorybit=0 memorybit=memorybit+1 If memorybit=1 Then memorybyte1$="0" If memorybit=2 Then memorybyte2$="0" If memorybit=3 Then memorybyte3$="0" If memorybit=4 Then memorybyte4$="0" If memorybit=5 Then memorybyte5$="0" If memorybit=6 Then memorybyte6$="0" If memorybit=7 Then memorybyte7$="0" If memorybit=8 Then memorybyte8$="0" If memorybit=8 Then totalascii=0 If memorybyte1$="1" Then totalascii=totalascii+1 If memorybyte2$="1" Then totalascii=totalascii+2 If memorybyte3$="1" Then totalascii=totalascii+4 If memorybyte4$="1" Then totalascii=totalascii+8 If memorybyte5$="1" Then totalascii=totalascii+16 If memorybyte6$="1" Then totalascii=totalascii+32 If memorybyte7$="1" Then totalascii=totalascii+64 If memorybyte8$="1" Then totalascii=totalascii+128 WriteByte (in2,totalascii) memorybit=9 If memorybit>8 Then memorybyte1$="0" If memorybit>8 Then memorybyte2$="0" If memorybit>8 Then memorybyte3$="0" If memorybit>8 Then memorybyte4$="0" If memorybit>8 Then memorybyte5$="0" If memorybit>8 Then memorybyte6$="0" If memorybit>8 Then memorybyte7$="0" If memorybit>8 Then memorybyte8$="0" EndIf EndIf EndIf Wend CloseStream in CloseStream in2 Forever EndIf