start tok64 d64-0dNwKB
5 PRINT"{clear}"
10 IFl=0THENl=1:LOAD"a c 1",8,1
20 SYS4096
stop tok64
(bastext 1.0)