I think this program will reverse any text file.
I know that many thought such a program was impossible.
I admit that I was very lucky to stumble upon the complex algorithm.
If I win a lot of money, I won't forget any of you in my acceptance speech!
' code -------------------------------------------------------------------------------------------------------------------
Uses "console"
Uses "file"
Function reversefile(directory As String, infile As String, outfile As String)
Local inf, ouf, i, fl As Integer
Local s As String
DIR_Change(directory)
inf = FILE_Open(infile, "binary")
ouf = FILE_Open(outfile, "binary")
fl = FILE_LOF(inf)
For i = fl To 1 Step -1
FILE_Seek(inf, i)
s = FILE_Get(inf, 1)
If Asc(s)=13 Then
s=Chr$(10)
ElseIf Asc(s)=10 Then
s=Chr$(13)
EndIf
FILE_Put(ouf, s)
Next
FILE_Close(inf)
FILE_Close(ouf)
PrintL "Done. Press a key to end."
End Function
Function TBMain()
reversefile("c:\users\root\desktop\new thin\", "charles-lisp.tbasic", "cisabt.psil-selrahc")
WaitKey
End Function
' sample file ------------------------------------------------------------------------------------------------------------
'LeanLisp 1
Dim As Long i,j,k,asci,op,opf,nest,nestop(64),nestopf(64)
Dim As String s,t,u,w
Dim As Double v,accum,nestacc(64)
'-------------------------------------------------------
Function getword(s As String, ByRef i As Long) As String
'=======================================================
Dim As Long a,b
'
While 1
asci=Asc(s,i)
If asci<9 Then Exit While
If asci>32 Then Exit While
i+=1
Wend
'
b=i
'
'CHECK FOR '(' OR ')'
'
If (asci=40)Or(asci=41) Then
i+=1
Else
'
While 1
a=Asc(s,i)
If a<9 Then Exit While
If a<=32 Then Exit While
i+=1
Wend
'
End If
'
Function=Mid$(s,b,i-b)
'
End Function
'-----------
Sub opeval()
'===========
If opf Then
accum=v
opf=0
Else
Select Case op
Case 43 : accum+=v
Case 45 : accum-=v
Case 42 : accum*=v
Case 47 : accum/=v
End Select
End If
End Sub
'------------------------
Sub evaluate(s As String)
'========================
i=1
w=""
v=0
accum=0
nest=0
op=0
opf=0
While 1
w=getword(s,i)
If w="" Then Exit While
Select Case asci
Case 0 : Exit While
Case 40
nest+=1
nestacc(nest)=accum : nestop(nest)=op : nestopf(nest)=opf
accum=0 : op=0 : opf=0
Case 41
v=accum : accum=nestacc(nest) : op=nestop(nest) : opf=nestopf(nest)
nest-=1
opeval()
Case 43 : op=43 : opf=1 '+
Case 45 : op=45 : opf=1 '-
Case 42 : op=42 : opf=1 '*
Case 47 : op=47 : opf=1 '/
End Select
'
'check for literal number
'
If (asci>=48)And(asci<=57) Then
v=Val(w)
opeval()
Else 'not a literal number
'
End If
'
Wend
End Sub
'
'-------
'TESTING
'=======
'
s="
( / ( * ( + 1 2 3 4 ) 3 ) 3 2 )
"
'
evaluate(s)
MsgBox 0,v
' sample file reversed ---------------------------------------------------------------------------------------------------
v,0 xoBgsM
)s(etaulave
'
"
) 2 3 ) 3 ) 4 3 2 1 + ( * ( / (
"=s
'
======='
GNITSET'
-------'
'
buS dnE
dneW
'
fI dnE
'
rebmun laretil a ton' eslE
)(lavepo
)w(laV=v
nehT )75=<icsa(dnA)84=>icsa( fI
'
rebmun laretil rof kcehc'
'
tceleS dnE
/' 1=fpo : 74=po : 74 esaC
*' 1=fpo : 24=po : 24 esaC
-' 1=fpo : 54=po : 54 esaC
+' 1=fpo : 34=po : 34 esaC
)(lavepo
1=-tsen
)tsen(fpotsen=fpo : )tsen(potsen=po : )tsen(ccatsen=mucca : mucca=v
14 esaC
0=fpo : 0=po : 0=mucca
fpo=)tsen(fpotsen : po=)tsen(potsen : mucca=)tsen(ccatsen
1=+tsen
04 esaC
elihW tixE : 0 esaC
icsa esaC tceleS
elihW tixE nehT ""=w fI
)i,s(drowteg=w
1 elihW
0=fpo
0=po
0=tsen
0=mucca
0=v
""=w
1=i
========================'
)gnirtS sA s(etaulave buS
------------------------'
buS dnE
fI dnE
tceleS dnE
v=/mucca : 74 esaC
v=*mucca : 24 esaC
v=-mucca : 54 esaC
v=+mucca : 34 esaC
po esaC tceleS
eslE
0=fpo
v=mucca
nehT fpo fI
==========='
)(lavepo buS
-----------'
noitcnuF dnE
'
)b-i,b,s($diM=noitcnuF
'
fI dnE
'
dneW
1=+i
elihW tixE nehT 23=<a fI
elihW tixE nehT 9<a fI
)i,s(csA=a
1 elihW
'
eslE
1=+i
nehT )14=icsa(rO)04=icsa( fI
'
')' RO '(' ROF KCEHC'
'
i=b
'
dneW
1=+i
elihW tixE nehT 23>icsa fI
elihW tixE nehT 9<icsa fI
)i,s(csA=icsa
1 elihW
'
b,a gnoL sA miD
======================================================='
gnirtS sA )gnoL sA i feRyB ,gnirtS sA s(drowteg noitcnuF
-------------------------------------------------------'
)46(ccatsen,mucca,v elbuoD sA miD
w,u,t,s gnirtS sA miD
)46(fpotsen,)46(potsen,tsen,fpo,po,icsa,k,j,i gnoL sA miD
1 psiLnaeL'