5 REM HYPERSCREEN DEMO 1
6 REM DIESES PROGRAMM LAESST STREIFEN
7 REM DEN BILDSCHIRM WANDERN.
8 IFA=0THENA=1:LOAD"HYPERSCREEN",8,1
10 SYS49152:PRINT"[147][144]";:POKE53272,24:REM AKTIVIEREN UND ANDERER ZEICHENSATZ
20 FORX=8192TO8199:POKEX,0:NEXTX:REM ZEICHEN 0 LOESCHEN
23 REM BILDSCHIRM MIT '@' FUELLEN
25 FORX=1TO25:IFX<>1THENPRINT"@";
30 PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[157][148]@";:NEXTX
35 REM STREIFENROUTINE
40 FORX=0TO7:POKE16383,2^X:W=2^(7-X):FORY=8192TO8199:POKEY,W:NEXTY
50 FORWA=1TO15:NEXTWA,X
60 GETR$:IFR$=""THEN40:REM WENN KEINE TASTE, DANN WEITER
70 POKE53272,21:PRINT"[147][149]WRITTEN BY HOLGER GEHRMANN"