start tok64 d64-pu5mJj
1 OPEN 2,8,2,"#" : OPEN 1,8,15,"u1 2 0 18 1"
2 PRINT#2,CHR$(18)CHR$(4);
3 PRINT#1,"u2 2 0 18 1" : PRINT#1,"v" :]CLOSE 1 : CLOSE 2
stop tok64
(bastext 1.0)