home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8512.d64 / bitmuster-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  510b  |  14 lines
  1. 5 REM HYPERSCREEN DEMO 1
  2. 6 REM DIESES PROGRAMM LAESST STREIFEN
  3. 7 REM DEN BILDSCHIRM WANDERN.
  4. 10 SYS49152:PRINT"[147][144]";:POKE53272,24:REM AKTIVIEREN UND ANDERER ZEICHENSATZ
  5. 20 FORX=8192TO8199:POKEX,0:NEXTX:REM ZEICHEN 0 LOESCHEN
  6. 23 REM BILDSCHIRM MIT '@' FUELLEN
  7. 25 FORX=1TO25:IFX<>1THENPRINT"@";
  8. 30 PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[157][148]@";:NEXTX
  9. 35 REM STREIFENROUTINE
  10. 40 FORX=0TO7:POKE16383,2^X:W=2^(7-X):FORY=8192TO8199:POKEY,W:NEXTY
  11. 50 FORWA=1TO15:NEXTWA,X
  12. 60 GETR$:IFR$=""THEN40:REM WENN KEINE TASTE, DANN WEITER
  13. 70 POKE53272,21:PRINT"[147][149]WRITTEN BY HOLGER GEHRMANN"
  14.