start tok64 d64-YTCe72
1 IFa=0 THEN a=1:LOAD"whirlybird",8,1
2 a$="{clear}sys49152"+CHR$(13):POKE198,LEN(a$)
3 FORi=1TOLEN(a$):POKE630+i,ASC(MID$(a$,i)):NEXT
4 NEW
stop tok64
(bastext 1.0)