10 REM FARBDEMO (TEXTMODUS)
20 PRINT"[147]"
30 FOR X=1024 TO 2023:REM VIDEORAM
40 POKE54272+X, INT(RND(1)*16):REM FARBRAM VON 54272-55296
50 POKEX,INT(RND(1)*128):REM BELIEBIGE BILDSCHIRMWERTE
60 NEXT X
70 GETT$:IFT$=""THEN70