start tok64 d64-LO1ftn
0 IFaTHENSYS4096
1 a=1:LOAD"lodr",8,1
stop tok64
(bastext 1.0)