home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / hyper2.demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  686b  |  32 lines
  1. 100 rem -------------------------------
  2. 110 rem         laufschriftdemo
  3. 120 rem       zu 'hyperscreen ii'
  4. 130 rem           by r.frahm
  5. 140 rem -------------------------------
  6. 150 :
  7. 160 :
  8. 170 if a=0 then a=1:load "hyperscreen ii",8,1
  9. 180 if a=1 then a=2:load "scroll.obj",8,1
  10. 190 :
  11. 200 restore:x=0
  12. 210 read a$
  13. 220 : if a$="@" then poke 49652+x,0:goto 290
  14. 230 :  for i=1 to len(a$)
  15. 240 :     poke 49652+x,asc(mid$(a$,i,1))
  16. 250 :     x=x+1
  17. 260 :  next i
  18. 270 goto 210
  19. 280 :
  20. 290 poke 49170,032:poke 49171,208
  21. 300 poke 49172,192:poke 49324,032
  22. 310 poke 49325,024:poke 49326,193
  23. 320 :
  24. 330 sys 49152
  25. 340 :
  26. 350 rem -ab hier stehen die daten fuer-
  27. 360 rem ----den zu scrollenden text----
  28. 370 :
  29. 380 data "hypersceen ii  geschrieben von"
  30. 390 data " r.frahm und c.zaenker    "
  31. 400 data "@"
  32.