home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh33a.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.