5 REM HYPERSCREEN DEMO 2
6 REM DIESES PROGRAMM LAESST SPRITES
7 REM UEBER DEN BILDSCHIRM LAUFEN
8 IFA=0THENA=1:LOAD"HYPERSCREEN",8,1
10 SYS49152:PRINT"[147]"
20 POKE53269,3:POKE53277,3
30 FORX=832TO832+63STEP6:FORY=XTOX+2:POKEY,5*16+5:NEXTY
40 FORY=X+3TOX+5:POKEY,10*16+10:NEXTY,X
50 POKE2040,832/64:POKE2041,832/64
55 D=53249:E=53251:F=53248:G=53250
60 FORX=0TO255:POKED,X:POKEE,X:POKEF,X:POKEG,255-X:NEXTX:GOTO60