home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / faecherspiel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  588b  |  25 lines
  1. 50 rem ***********************
  2. 60 rem * linien demo (multi) *
  3. 70 rem ***********************
  4. 100 gosub 60000:sys 49466:rem multicolor ein + grafik loeschen
  5. 110 sys 49492,0,7,10,14:  rem farben setzen
  6. 120 f=1:for x=0 to 159
  7. 130 y=100+sin(x/6)*20
  8. 135 if y>0 and y<199 then sys 49828,80,0,x,y,f:sys 49828,80,199,x,y,f
  9. 137 f=f+1:iff>3thenf=1
  10. 140 next x
  11. 155 get a$:if a$<>" " then 155
  12. 156 rem
  13. 157 rem ** farben wechseln **
  14. 158 rem
  15. 160 f1=7:f2=10:f3=14
  16. 170 sys 49492,0,f2,f3,f1:gosub 300
  17. 180 sys 49492,0,f3,f1,f2:gosub 300
  18. 190 sys 49492,0,f1,f2,f3:gosub 300
  19. 200 get a$:if a$=" " then gosub 60300:end
  20. 210 goto 170
  21. 220 rem
  22. 230 rem ** warteschleife **
  23. 240 rem
  24. 300 for q=1 to 25:next q:return
  25.