home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / scr.rintsch (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  651b  |  21 lines
  1. 10 print"[147]":poke53281,15:poke53280,11
  2. 15 poke650,128:poke652,0:rem tastaturwiederholung
  3. 20 x$="                                       [144]dies ist eine alte routin"
  4. 30 x$=x$+"e aus der tiger-disc,die ich um eine"
  5. 40 x$=x$+" speed inc/dec - routine erweitert habe,"
  6. 50 x$=x$+"d.h. mit +/- wird der speed des scrollers veraendert !"
  7. 60 x$=x$+" ":iflen(x$)<250then60
  8. 70 rem
  9. 80 y=23: rem y-zeile fuer scroll
  10. 90 s=0: rem verzoegerungs-schleife
  11. 100 rem
  12. 110 a=1:rem zaehler-variable
  13. 120 poke211,0:poke214,y:sys58732:printmid$(x$,a,40);
  14. 124 fori=7to1step-1:poke53270,i:forq=1to2:nextq,i:poke53270,0
  15. 130 a=a+1:ifa>200thena=1:goto120
  16. 140 rem:fori=1tos:next
  17. 150 geta$:ifa$=""then120
  18. 160 ifa$="+"thenifs>0thens=s-5
  19. 170 ifa$="-"thens=s+5
  20. 180 goto120
  21.