home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_A.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  156 lines
  1. 0 if peek(49153)+peek(49155)<>44thenload"modern erase",8,1
  2. 10 sys49152,0,1,2,3,4,5,6,7
  3. 20 poke53281,8:poke53280,8:print"[144]"chr$(142)
  4. 30 print"     [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  5. 40 [153]"     peekwait                            peekwait
  6. 50 print"     [194][146]      dirk  neumeister      [194][146]
  7. 60 [153]"     peekwait        praesentiert        peekwait
  8. 70 print"     [194][146]                            [194][146]
  9. 80 [153]"     peekwait  m o d e r n   e r a s e wait  peekwait
  10. 90 print"     [194][146]                            [194][146]
  11. 100 [153]"     /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  12. 110 print"     [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146]"
  13. 115 print"     [194][146] [160]                          [194][146]
  14. 120 [153]"     peekwait demonstrations -- programm peekwait
  15. 125 print"     [194][146] [160]                          [194][146]
  16. 130 [153]"     /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexpwait"
  17. 140 [158]49152
  18. 150 [161]a$:[139]a$[178]""[167]150
  19. 155 [139]a$[178]"q"[167][128]
  20. 160 [158]49152,4,5,3,6,2,7,1,0
  21. 170 [129]a[178]1[164]76:[153]"'guten tag'  ";:[130]
  22. 180 [158]49152
  23. 190 [161]a$:[139]a$[178]""[167]190
  24. 195 [139]a$[178]"q"[167][128]
  25. 200 [158]49152,0,3,6,1,4,7,2,5
  26. 210 [153][199](14);"(NULL)it diesem (NULL)rogramm koennen (NULL)ie"
  27. 220 [153]"effektvolle (NULL)eberblendungen zwischen "
  28. 230 [153]"einzelnen (NULL)extbildschrimen erreichen."
  29. 240 [153]"str$abei werden alle (NULL)eichensaetze
  30. 250 print"unterstuetzt:
  31. 260 [153]"- chr$ross/chr$rafik
  32. 270 print"- [199]ross/[199]rafik [210]evers
  33. 280 [153]"- (NULL)lein/chr$ross
  34. 290 print"- [203]lein/[199]ross [210]evers
  35. 291 [153]"str$as peekesondere: es wird kein einziges
  36. 292 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  37. 293 [153]"peekyte vom peekasic-(NULL)peicher verbraucht (!)
  38. 300 print">>> [212]aste <<<"
  39. 310 sys49152
  40. 320 geta$:ifa$=""then320
  41. 325 ifa$="q"thenend
  42. 330 sys49152,5,4,2,6,3,0,1,7
  43. 340 printchr$(14)"[196]ie [197]insatzmoeglichkeiten
  44. 350 [153]"dieses (NULL)rogramms sind sehr viel-
  45. 360 print"faeltig. [213]eberall wo stimmungsvolle,
  46. 370 [153]"sanfte (NULL)ebergaenge gebraucht werden
  47. 380 print"ist dieses [208]rogramm bestens geeignet.
  48. 390 [153]"valin peekeispiel moechte ich right$hnen noch
  49. 400 print"zeigen ...
  50. 430 [153]">>> (NULL)aste <<<"
  51. 440 [158]49152
  52. 450 [161]a$:[139]a$[178]""[167]450
  53. 455 [139]a$[178]"q"[167][128]
  54. 460 [158]49152
  55. 470 [141] 900 : [143] titel
  56. 500 [143] adventure - verwaltung
  57. 510 ra[178]1
  58. 520 [145] ra [141] 600,700,800
  59. 530 [161]a$:[139]a$[178]""[167]530
  60. 540 [139]a$[178]"w"[167][139]ra[177]1[167]ra[178]ra[171]1:[153]"onweston":[129]a[178]1[164]1000:[130]:[137]520
  61. 550 [139]a$[178]"o"[167][139]ra[179]3[167]ra[178]ra[170]1:[153]"onoston":[129]a[178]1[164]1000:[130]:[137]520
  62. 560 [139]a$[178]"q"[167][153]"stoponauf wiedersehenon":[129]a[178]1[164]1000:[130]:[158]49152:[137]20
  63. 570 [137]530
  64. 600 [158]49152
  65. 601 [153][199](142)"loadstop      (NULL)(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)     burg
  66. 605 print"     [206][206][207][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183]   [176][195][178][168][178][195][178][195][174]
  67. 610 [153]"    (NULL)(NULL)(NULL)(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)   peeksys*stop(NULL) (NULL) mid$ peek
  68. 615 print"    [206][206][206][207][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183]   [177][195][177][195][177] [219][195][179]
  69. 620 [153]"    (NULL)(NULL)(NULL)(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)         (NULL) peek
  70. 625 print"    [206][206][206][207][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183]   [178] [178][195][178] [219][195][194]
  71. 630 [153]"    (NULL)(NULL)(NULL)(NULL)usr(NULL)usrpokestep     waitstop(NULL)usr(NULL)usr(NULL)usr(NULL)   peek peek (NULL) peeksstoppeek
  72. 635 print"    [206][206][206][207][207][183][207][149][175][175][175][175][175][151][206][146][144][183][207][183][207][183][207][183]   [173][195][177][195][177][195][177][195][189]
  73. 640 [153]"    (NULL)(NULL)(NULL)usrusrusrusrverify  (NULL)  poke waitstopusrusrusrusrusrusrusr
  74. 645 print"    [206][206]     [149]     [146][151][169][144]
  75. 650 [153]"    (NULL)
  76. 653 print" --------------------------------------
  77. 655 [153]"  sie (sys*stop) befinden sich in einem
  78. 660 print"  fensterlosen raum. in dem raum
  79. 665 [153]"  befindet sich eine truhe. sie
  80. 670 print"  besitzen aber keinen schlues-
  81. 675 [153]"  sel (sstop).
  82. 680 print"  moegliche richtung: o[155]st[144], q[155]uit[144]
  83. 690 [153]:[153]"stop  ]";
  84. 695 [158]49152,0,1,2,3,4,5,6,7
  85. 699 [142]
  86. 700 [158]49152
  87. 701 [153]"loadstop       andandandandandandandandandandandandandandandandand
  88. 705 print"      [206][204][175][204][175][204][175][204][175][204][175][204][175][204][175][204][175][204]     burg
  89. 710 [153]"     (NULL)(NULL)(NULL)(NULL)and(NULL)and(NULL)and(NULL)and(NULL)and(NULL)and(NULL)and(NULL)and   orlen=not=len=len^
  90. 715 print"    [206][206][206][180] [180][170][170] [220][220][220][220][180] [180] [180] [180]   [194] [203][158]*[144][203] [202] [194]
  91. 720 [153]"    (NULL)(NULL)(NULL)(NULL)(NULL)usr(NULL)(NULL)  (NULL)(NULL)(NULL)(NULL)(NULL)usr(NULL)usr(NULL)usr   >len>len> (NULL)len<
  92. 725 print"    [206][206][206][207][183][207][208][208]  [220][220][220][207][183][207][183][207][183][207]         [213] [194]
  93. 730 [153]"    verifystep waitstop(NULL)(NULL)(NULL)usr(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)usr(NULL)usr(NULL)usr   = =len= (NULL)lenpeek
  94. 735 print"    [149]  [146][144][206][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207]   [194] [194] [203] [194]s[144][194]
  95. 740 [153]"    verify(NULL) stopwait(NULL)(NULL)(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr   /len>len>len>lenexp
  96. 745 print"    [149]  [146][144][206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  97. 750 [153]"    verify waitstepstop
  98. 755 print"    [149][169][144]
  99. 757 [153]" --------------------------------------
  100. 765 print"  sie ([158]*[144]) befinden sich in einem
  101. 770 [153]"  raum mit vergitterten fenstern. ein
  102. 775 print"  gitterstab ist zerstoert. sie ver-
  103. 780 [153]"  suchen sich durch das fenster zu
  104. 785 print"  zwaengen. aber sie sind zu dick !!!
  105. 790 [153]"  moegliche richtung: wlisteststop, olistststop, qlistuitstop
  106. 795 print:print"[144]  ]";
  107. 798 sys49152,4,5,3,6,2,7,1,0
  108. 799 return
  109. 800 sys49152
  110. 801 print"[147][144]       [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
  111. 805 [153]"      (NULL)(NULL)and(NULL)and(NULL)and(NULL)and(NULL)and(NULL)and(NULL)and(NULL)and(NULL)     burg
  112. 810 print"     [206][206][204][204][175][204][175][204][175][204][175][204][175][204][175][204][175][204][175]   [176][195][178][168][178][195][178][195][174]
  113. 815 [153]"    (NULL)(NULL)(NULL)sgn sgn++ notnotnot waitstopsgn sgn sgn sgn   peek (NULL) (NULL)sys*stoppoke!stop peek
  114. 820 print"    [206][206][206][207][207][183][207][208] [144] [187][187] [146][144][207][207][183][207][183][207][183]   [177][195][177][195][177][151]-[144][219][195][179]
  115. 825 [153]"    (NULL)(NULL)(NULL)(NULL)usr(NULL)(NULL)(NULL)verify stoplog* verify waitstop(NULL)usr(NULL)usr(NULL)usr(NULL)         (NULL) peek
  116. 830 print"    [149][169] [146][144][206][207][207][183][207][208][149][195][195][203]  [146][144][207][207][183][207][183][207][183]   [178] [178][195][178] [219][195][194]
  117. 835 [153]"    verify  waitstop(NULL)(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)usr(NULL)   peek peek (NULL) peeksstoppeek
  118. 840 print"    [149][213] [144][146][206][207][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183]   [173][195][177][195][177][195][177][195][189]
  119. 845 [153]"    verify  waitstop(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  120. 850 print"    [149] [146][169][144]
  121. 855 [153]"    verifystepstop
  122. 857 print" --------------------------------------
  123. 865 [153]"  sie (sys*stop) befinden sich in einem
  124. 870 print"  fensterlosen raum. an der wand haengt
  125. 875 [153]"  ein bild mit einem haus. sie unter-
  126. 880 print"  suchen das bild, aber entdecken
  127. 885 [153]"  nichts besonderes. dafuer fallen
  128. 887 print"  zwei tueren zu. sie sind gefangen !
  129. 890 [153]"  moegliche richtung: wlisteststop, qlistuitstop
  130. 895 print:print"[144]  ]";
  131. 898 sys49152,5,4,2,6,3,0,1,7
  132. 899 return
  133. 900 rem titel
  134. 905 printchr$(14)"[147][144]        [193][194][197][206][212][197][213][197][210] - [201]mpossible (!!)
  135. 910 [153]
  136. 915 [153]" (NULL)ach dem chr$enuss eines leicht bitter
  137. 920 print" schmeckenden [212]rankes wachen [211]ie in
  138. 925 [153]" einer right$hnen vollkommen fremden  (NULL)m-
  139. 930 print" gebung auf. [214]or [201]hnen steht eine
  140. 935 [153]" riesige peekurg. (NULL)oller (NULL)ut betreten (NULL)ie
  141. 940 print" das [199]ebaeude und haben sich auch schon
  142. 945 [153]" verlaufen ...
  143. 950 print" [196]ieses [211]piel ist unloesbar (siehe
  144. 955 [153]" (NULL)itel). vals soll right$hnen lediglich zei-
  145. 960 print" gen, wie wirkungsvoll die [213]ebergaenge
  146. 965 [153]" zwischen den peekildern aussehen koennen
  147. 970 print" [214]erlassen koennen [211]ie das '[211]piel' mit
  148. 975 [153]" der (NULL)aste '(NULL)'.
  149. 980 print" [214]iel [211]pass wuenscht [201]hnen
  150. 985 [153]"                     str$irk (NULL)eumeister
  151. 990 print" >>[212]aste<<"
  152. 992 sys49152
  153. 995 geta$:ifa$=""then995
  154. 996 ifa$="q"thenend
  155. 999 return
  156.