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