; Create and insert string variable until size exceed 1024 characters or variable get truncated
set %nam 123
set %expect &len %nam
!while &and &les %expect 1024 &equ &len %nam %expect
    insert-string %nam
    newline
    set %nam &cat %nam %nam
    set %expect &tim %expect 2
!endwhile
insert-string %nam
newline
set %namsiz &len %nam
insert-string &cat "Actual: " %namsiz
newline
insert-string &cat "Expected: " %expect
newline
; Create files, max var size, 255, 260
	write-file %nam
	write-file str123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123
	write-file extra123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123123
!endif
; check if current filename variable reflects buffer filename
insert-string &cat "$cfname: " $cfname
newline
insert-string "$cfname length: "
insert-string &len $cfname
end-of-file
save-file 
redraw-display