Steve,
This code causes bxbasm to crash in the translation process.
James
' test.bas version 48X2
DIM az#=1.012345, bz!=123.456
DIM cz%=123456, dz = 12345, rec = 1, ix = 0
' DIM A$ = "", B$ = "", C1$ = "", D$ = "", E$ = ""
DIM A$ = "", B$ = "", C1$ = "", D$ = ""
DIM w$ = "end"
CLS
'
' OPEN "R", #1, "test.txt", 34
OPEN "R", #1, "test.txt", 24
' FIELD #1, 4 AS A$, 4 AS B$, 8 AS C1$, 8 AS D$, 10 AS E$
FIELD #1, 4 AS A$, 4 AS B$, 8 AS C1$, 8 AS D$
' FOR ix = 1 TO 5 STEP 1
LSET A$ = MKI$(dz)
LSET B$ = MKI$(cz%)
LSET C1$ = MKS$(bz!)
LSET D$ = MKD$(az#)
' RSET E$ = w$
PUT 1, rec
rec = rec + 1
' NEXT ix
CLOSE 1
CLEAR
PRINT "ALL DONE"
'
' OPEN "R", #1, "test.txt", 34
' FIELD #1, 4 AS A$, 4 AS B$, 8 AS C1$, 8 AS D$, 10 AS E$
' GET 1, 1
'
' az# = CVD(D$)
' bz! = CVS(C1$)
' cz% = CVI(B$)
' dz = CVI(A$)
' PRINT "az#="; az#
' PRINT "bz!="; bz!
' PRINT "cz%="; cz%
' PRINT "dz ="; dz
' CLOSE 1
' ------- -----------------------------------
TheEnd:
END
' ------------------------------------------