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