home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / farbenspiele (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  414b  |  27 lines
  1. 10 rem**** farbenspiele ******
  2. 15 :
  3. 20 print chr$(147);
  4. 25 x$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  5. 30 for k=1 to 24*40
  6. 35 z=int(15*rnd(0))+1
  7. 40 rem for x=1 to 2
  8. 45 print mid$(x$,z,1)" ";
  9. 50 rem next x
  10. 55 next k
  11. 60 print"[146]";
  12. 65 :
  13. 410 for x=1to 40
  14. 415 b$=b$+" "
  15. 420 next x
  16. 425 a$="das ist der titel! "
  17. 430 a$=b$+a$
  18. 435 s=len(a$)
  19. 440 t=1
  20. 445 print "" tab(240) tab(240) chr$(145) mid$(a$,s,t)
  21. 450 for z=1 to 100:next
  22. 455 t=t+1
  23. 460 s=s-1
  24. 464 if t>40 then t=t-1
  25. 465 if s=0 then 425
  26. 470 goto 445
  27.