start tok64 d64-4g3vcR
10 IFl=0THENl=1:LOAD"diamond2",8,1
20 SYS2090
stop tok64
(bastext 1.0)