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