C=0:FADE #BLACK WHILE TRUE:VSYNC 1 IF C==0 THEN CLS:READ ST$ IF ST$=="EOL" THEN FADE 0:END LOCATE 0,0:?ST$ FADE 0,120 ENDIF IF C==240 THEN FADE #BLACK,120 C=(C+1)MOD 360 WEND DATA"COULD YOU REFER TO" DATA"THIS CODE?" DATA"EOL"