home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / laufschrift (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.6 KB  |  103 lines
  1. 10 rem***** laufschrift ********
  2. 15 :
  3. 20 rem---- textaufbau von links-------
  4. 25 :
  5. 30 a$="das ist der titel!"
  6. 35 s=1
  7. 40 t=1
  8. 45 print mid$(a$,s,t);
  9. 50 for z=1 to 100:next z
  10. 55 rem (t bleibt konstant)
  11. 60 s=s+1
  12. 65 if s>len(a$) then end
  13. 70 goto 45
  14. 95 :
  15. 100 rem----hereinschieben von links----
  16. 105 :
  17. 130 a$="das ist der titel!"
  18. 135 s=len(a$)
  19. 140 t=1
  20. 145 print chr$(145) mid$(a$,s,t)
  21. 150 for z=1 to 100: next
  22. 155 t=t+1
  23. 160 s=s-1
  24. 165 if s=0 then end
  25. 170 goto 145
  26. 190 :
  27. 200 rem--- nach links hinausschieben ---
  28. 215 :
  29. 230 a$="das ist der titel! "
  30. 235 s=1
  31. 240 t=len(a$)
  32. 245 print chr$(145) mid$(a$,s,t)
  33. 250 for z=1 to 100: next
  34. 255 rem (t bleibt konstant)
  35. 260 s=s+1
  36. 265 if s>len(a$)then end
  37. 270 goto 245
  38. 290 :
  39. 300 rem---- nach links durchschieben ---
  40. 305 :
  41. 310 for x=1 to 40
  42. 315 b$=b$+" "
  43. 320 next x
  44. 325 a$="das ist der titel! "
  45. 330 a$=b$+a$
  46. 335 s=1
  47. 340 t=39
  48. 345 print chr$(145) mid$(a$,s,t)
  49. 350 for z=1 to 100: next
  50. 355 rem (t bleibt konstant)
  51. 360 s=s+1
  52. 365 if s>len(a$) then s=1
  53. 370 goto 345
  54. 390 :
  55. 400 rem---nach rechts durchschieben-----
  56. 405 :
  57. 410 for x=1 to 40
  58. 415 b$=b$+" "
  59. 420 next x
  60. 425 a$="das ist der titel!"
  61. 430 a$=b$+a$
  62. 435 s=len(a$)
  63. 440 t=1
  64. 445 print chr$(145) mid$(a$,s,t)
  65. 450 for z=1 to 100:next
  66. 455 t=t+1
  67. 460 s=s-1
  68. 464 if t>39 then t=t-1
  69. 465 if s=0 then 425
  70. 470 goto 445
  71. 490 :
  72. 500 rem--- von links zur mitte ---
  73. 505 :
  74. 510 for x=1 to 40
  75. 515 b$=b$+" "
  76. 520 next x
  77. 525 c$="das ist der titel!"
  78. 530 a$=b$+c$
  79. 535 s=len(a$)
  80. 540 t=1
  81. 545 print chr$(145) mid$(a$,s,t)
  82. 550 for z=1 to 100:next
  83. 555 t=t+1
  84. 560 s=s-1
  85. 564 if t>(40+len(c$))/2 then end
  86. 570 goto 545
  87. 590 :
  88. 600 rem--- von rechts zur mitte ---
  89. 605 :
  90. 610 for x=1 to 40
  91. 615 b$=b$+" "
  92. 620 next x
  93. 625 c$="das ist der titel! "
  94. 630 a$=b$+c$
  95. 635 s=1
  96. 640 t=39
  97. 645 print chr$(145) mid$(a$,s,t)
  98. 650 for z=1 to 100:next
  99. 655 rem ((NULL)bleibt konstant)
  100. 660 s=s+1
  101. 664 if s>(40+len(c$))/2 then end
  102. 670 goto 645
  103.