home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 11_2lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  383b  |  16 lines
  1. 10 rem befehl print "[147]" loescht den bildschirm
  2. 11 rem die pokes legen die farbe fuer bildschirm fest
  3. 12 rem chr$(153) bestimmt farbe des balles
  4. 15 poke53280,7:poke53281,9
  5. 20 print"[147]"
  6. 50 rem bewegt den ball nach rechts ===>
  7. 60 for i = 1 to 39
  8. 70 printchr$(153)" [209][157]";:forz=0to25:nextz
  9. 80 next
  10. 90 rem bewegt den ball nach links <===
  11. 100 for i = 1 to 39
  12. 110 print" [157][157][209][157]";:forz=0to25:nextz
  13. 120 next
  14. 130 rem wiederholung
  15. 140 goto 60
  16.