home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / txl / 3_preis / fast / demo2.txl < prev    next >
Text File  |  1990-11-21  |  2KB  |  70 lines
  1. 001 setfarbe 4 0
  2. 002 loesch ;
  3. 003 zeig 1 22 "Bildschirm-Demo"
  4. 004 zeig 2 20 "(c) 1990   M. Merle"
  5. 005 zeig 6 15 "beliebige Taste für Start ..."
  6. 010 pause
  7. 011 zeig 6 14 "                             "
  8. 015 merke              "-> Runter <-" diagonal nach unten zeigen.
  9. 020 setfarbe 7 4
  10. 030 setze zz = 0;
  11. 040 setze ss = 0;
  12. 050 zeig zz ss "-> Runter <-"
  13. 060 setze zz = zz + 1;
  14. 070 setze ss = ss + 2;
  15. 080 wenn zz <= 24
  16. 090 gehezu 50
  17. 099 merke              "->  Rauf  <-" diagonal nach oben zeigen.
  18. 100 setze ss = 0;
  19. 110 setze zz = 24;
  20. 120 zeig zz ss "->  Rauf  <-"
  21. 130 setze zz = zz - 1;
  22. 140 setze ss = ss + 2;
  23. 150 wenn zz >= 0
  24. 160 gehezu 120
  25. 199 merke              einen Zähler im Mittelpunkt vom "X" zeigen.
  26. 200 setze zaehler = 0;
  27. 210 setfarbe 4 7
  28. 220 zeig 12 27 zaehler
  29. 230 setze zaehler = zaehler + 1000;
  30. 240 wenn zaehler <= 333000
  31. 250 gehezu 220
  32. 299 merke              PAUSE
  33. 300 setfarbe 7 0
  34. 310 zeig 24 15 "beliebige Taste für weiter ..."
  35. 320 pause 
  36. 399 merke              "X" nach unten verschwinden lassen.
  37. 400 setze screen = "  ";
  38. 405 setze ende = 100;
  39. 406 merke
  40. 410 setze zz = 0;
  41. 420 sbild 0 0 24 79 screen
  42. 430 loesch 0 0 zz 79
  43. 440 setze zz = zz + 1;
  44. 450 wenn zz < 25
  45. 460 rbild zz 0 24 79 screen
  46. 470 setze zz = zz + 1;
  47. 480 wenn zz < 25
  48. 490 gehezu 430
  49. 499 merke              "X" nach oben wieder anzeigen.
  50. 500 setze zz = 24;
  51. 540 rbild zz 0 24 79 screen
  52. 550 setze zz = zz - 1;
  53. 560 wenn zz >= 0
  54. 570 gehezu 540
  55. 575 merke
  56. 580 wenn ende < 99
  57. 585 gehezu 600
  58. 586 merke
  59. 590 setze ende = 0;
  60. 595 gehezu 410
  61. 600 merke              Boxen zeichnen
  62. 605 setfarbe 7 1
  63. 610 box 5 5 10 20 "╔═╗║╝═╚║ "
  64. 615 box 2 22 22 76 "╔═╗║╝═╚║"
  65. 620 box 7 25 18 35 "╔═╗║╝═╚║#"
  66. 899 merke              ENDE
  67. 900 zeig 24 15 "beliebige Taste für Ende ....."
  68. 910 setfarbe 7 0
  69. 998 pause 
  70. 999 ende