home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 43 / Mail_Madness_43_2002_Telenova_Side_B.d64 / rahmenprogramm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  369b  |  23 lines
  1. 50 print chr$(147)
  2. 100 rem rahmen zeichnen
  3. 105 zc=42
  4. 110 :
  5. 120 rem oberer teil
  6. 121 for sp=0 to 39
  7. 130 poke 1024+sp,zc
  8. 140 poke 55296+sp,rnd(o)*160
  9. 150 next sp
  10. 160 :
  11. 220 for ze=0 to 24
  12. 230 poke 1024+40*ze+39,zc
  13. 240 poke 55296+40*ze+39,rnd(0)*16
  14. 250 next ze
  15. 320 for sp=39 to 0 step -1
  16. 330 poke 1984 +sp,zc
  17. 340 poke 56256+sp,rnd(0)*16
  18. 350 next sp
  19. 420 for ze=24 to 0 step -1
  20. 430 poke 1024+40*ze,zc
  21. 440 poke 55296+40*ze,rnd(0)*16
  22. 450 next ze
  23.