home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 63 / Tiger_Disk_063_19xx_Tiger-Crew-Disk_de_Side_B.d64 / border-scroll (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 1 ifpeek(816)=165andpeek(817)=244then4
  2. 2 print"[147]kill cartridge!":end
  3. 4 poke53280,7:poke53281,1:poke646,14
  4. 5 ifpeek(16384)+peek(16386)<>322thenload"a.code*",8,1
  5. 10 sys16384:clr
  6. 12 @3:"   [200]ier ist [162][194][207][210][196][197][210] [211][195][210][207][204][204][162]  - [196]anke an [202]ason fuer [162][194][207][210][196][197][210] [211][208][210][201][212][197][162]    "
  7. 13 rem  @+zahl  = scroll-tempo
  8. 14 print"[147][194][207][210][196][197][210] [211][195][210][207][204][204] ist einfach zu verwenden."
  9. 16 print"[215]enn [196]u [196]ir das [204]isting mal angesehen"
  10. 18 print"hast, ist's [196]ir moeglich, mit dem [208]ro-"
  11. 20 print"gramm klarzukommen und solche"
  12. 22 print"[211]croller in [196]einen [208]roggis"
  13. 24 print"zu verwenden ! "
  14. 26 print"[196]er [212]ext kann angehalten werden:"
  15. 28 gosub100:@0
  16. 30 print"[206]eu gestartet:"
  17. 32 gosub100:@3
  18. 34 print"[196]u kannst die [198]arben aendern:"
  19. 36 forj=0to16:%j:fork=0to150:nextk,j
  20. 37 rem  %+zahl  = scroll-farbe
  21. 38 print"  [196]er [212]ext kann wechseln:":_
  22. 40 @15:" [211][208][193][195][197] druecken!        ":&
  23. 41 rem  &  = anhalten
  24. 42 forj=0to200:geta$:ifa$=" "then46
  25. 44 next:goto40
  26. 46 _:" [198]roehliches [211]crollen     ":@3
  27. 48 print"[196]u kannst das [212]empo erhoehen"
  28. 50 gosub100
  29. 52 forj=3to15:@j:fork=0to100:nextk,j
  30. 54 print"oder vermindern"
  31. 56 gosub100
  32. 58 forj=15to1step-1:@j:fork=0to150:nextk,j:&
  33. 60 end
  34. 65 :
  35. 100 poke198,0:print"[211][208][193][195][197] druecken "
  36. 102 geta$:ifa$<>" "then102
  37. 104 return
  38.