home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 84 / 64er_Magazin_Sonderheft_84_19xx_Markt__Technik_de_Side_B.d64 / lauflicht (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  478 b   |  17 lines
  1. 100 poke56579,255:z=50
  2. 110 poke53280,0:poke53281,0:print"[147][155]           lauflicht"
  3. 120 print"           [196][196][196][196][196][196][196][196][196]"
  4. 130 print""tab(10)" 12345678"
  5. 140 print"  <+> = schneller  <-> = langsamer"
  6. 150 print""tab((z/10)+1)" ^ "
  7. 160 print"  [173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  8. 170 print"               speed"
  9. 180 fori=0to7
  10. 190 poke56577,2^i:print""tab(i+10)" [209] "
  11. 200 gosub220:forj=0toz:next
  12. 210 next:print""tab(15)"       ":goto180
  13. 220 getz$:ifz$="-"thenz=z+10:ifz>300thenz=300
  14. 230 ifz$="+"thenz=z-10:ifz<=0thenz=0
  15. 240 print""tab((z/10)+1)" ^ "
  16. 250 return
  17.