home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 December / 64er_Magazin_85-12_1985_Markt__Technik_de.d64 / bitmuster-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.