0 IF PEEK(49153)+PEEK(49155)<>44THENLOAD"MODERN ERASE",8,1
10 SYS49152,0,1,2,3,4,5,6,7
20 POKE53281,8:POKE53280,8:PRINT"[144]"CHR$(142)
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]
40 [153]"     PEEKWAIT                            PEEKWAIT
50 PRINT"     [194][146]      DIRK  NEUMEISTER      [194][146]
60 [153]"     PEEKWAIT        PRAESENTIERT        PEEKWAIT
70 PRINT"     [194][146]                            [194][146]
80 [153]"     PEEKWAIT  M O D E R N   E R A S E WAIT  PEEKWAIT
90 PRINT"     [194][146]                            [194][146]
100 [153]"     /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP
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]"
115 PRINT"     [194][146] [160]                          [194][146]
120 [153]"     PEEKWAIT DEMONSTRATIONS -- PROGRAMM PEEKWAIT
125 PRINT"     [194][146] [160]                          [194][146]
130 [153]"     /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXPWAIT"
140 [158]49152
150 [161]A$:[139]A$[178]""[167]150
155 [139]A$[178]"Q"[167][128]
160 [158]49152,4,5,3,6,2,7,1,0
170 [129]A[178]1[164]76:[153]"'GUTEN TAG'  ";:[130]
180 [158]49152
190 [161]A$:[139]A$[178]""[167]190
195 [139]A$[178]"Q"[167][128]
200 [158]49152,0,3,6,1,4,7,2,5
210 [153][199](14);"(null)IT DIESEM (null)ROGRAMM KOENNEN (null)IE"
220 [153]"EFFEKTVOLLE (null)EBERBLENDUNGEN ZWISCHEN "
230 [153]"EINZELNEN (null)EXTBILDSCHRIMEN ERREICHEN."
240 [153]"STR$ABEI WERDEN ALLE (null)EICHENSAETZE
250 PRINT"UNTERSTUETZT:
260 [153]"- CHR$ROSS/CHR$RAFIK
270 PRINT"- [199]ROSS/[199]RAFIK [210]EVERS
280 [153]"- (null)LEIN/CHR$ROSS
290 PRINT"- [203]LEIN/[199]ROSS [210]EVERS
291 [153]"STR$AS PEEKESONDERE: ES WIRD KEIN EINZIGES
292 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]
293 [153]"PEEKYTE VOM PEEKASIC-(null)PEICHER VERBRAUCHT (!)
300 PRINT">>> [212]ASTE <<<"
310 SYS49152
320 GETA$:IFA$=""THEN320
325 IFA$="Q"THENEND
330 SYS49152,5,4,2,6,3,0,1,7
340 PRINTCHR$(14)"[196]IE [197]INSATZMOEGLICHKEITEN
350 [153]"DIESES (null)ROGRAMMS SIND SEHR VIEL-
360 PRINT"FAELTIG. [213]EBERALL WO STIMMUNGSVOLLE,
370 [153]"SANFTE (null)EBERGAENGE GEBRAUCHT WERDEN
380 PRINT"IST DIESES [208]ROGRAMM BESTENS GEEIGNET.
390 [153]"VALIN PEEKEISPIEL MOECHTE ICH RIGHT$HNEN NOCH
400 PRINT"ZEIGEN ...
430 [153]">>> (null)ASTE <<<"
440 [158]49152
450 [161]A$:[139]A$[178]""[167]450
455 [139]A$[178]"Q"[167][128]
460 [158]49152
470 [141] 900 : [143] TITEL
500 [143] ADVENTURE - VERWALTUNG
510 RA[178]1
520 [145] RA [141] 600,700,800
530 [161]A$:[139]A$[178]""[167]530
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
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
560 [139]A$[178]"Q"[167][153]"STOPONAUF WIEDERSEHENON":[129]A[178]1[164]1000:[130]:[158]49152:[137]20
570 [137]530
600 [158]49152
601 [153][199](142)"LOADSTOP      (null)(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)     BURG
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]
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
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]
620 [153]"    (null)(null)(null)(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)         (null) PEEK
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]
630 [153]"    (null)(null)(null)(null)USR(null)USRPOKESTEP     WAITSTOP(null)USR(null)USR(null)USR(null)   PEEK PEEK (null) PEEKSSTOPPEEK
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]
640 [153]"    (null)(null)(null)USRUSRUSRUSRVERIFY  (null)  POKE WAITSTOPUSRUSRUSRUSRUSRUSRUSR
645 PRINT"    [206][206]     [149]     [146][151][169][144]
650 [153]"    (null)
653 PRINT" --------------------------------------
655 [153]"  SIE (SYS*STOP) BEFINDEN SICH IN EINEM
660 PRINT"  FENSTERLOSEN RAUM. IN DEM RAUM
665 [153]"  BEFINDET SICH EINE TRUHE. SIE
670 PRINT"  BESITZEN ABER KEINEN SCHLUES-
675 [153]"  SEL (SSTOP).
680 PRINT"  MOEGLICHE RICHTUNG: O[155]ST[144], Q[155]UIT[144]
690 [153]:[153]"STOP  ]";
695 [158]49152,0,1,2,3,4,5,6,7
699 [142]
700 [158]49152
701 [153]"LOADSTOP       ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND
705 PRINT"      [206][204][175][204][175][204][175][204][175][204][175][204][175][204][175][204][175][204]     BURG
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^
715 PRINT"    [206][206][206][180] [180][170][170] [220][220][220][220][180] [180] [180] [180]   [194] [203][158]*[144][203] [202] [194]
720 [153]"    (null)(null)(null)(null)(null)USR(null)(null)  (null)(null)(null)(null)(null)USR(null)USR(null)USR   >LEN>LEN> (null)LEN<
725 PRINT"    [206][206][206][207][183][207][208][208]  [220][220][220][207][183][207][183][207][183][207]         [213] [194]
730 [153]"    VERIFYSTEP WAITSTOP(null)(null)(null)USR(null)(null) (null)(null)(null)(null)(null)(null)USR(null)USR(null)USR   = =LEN= (null)LENPEEK
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]
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
745 PRINT"    [149]  [146][144][206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
750 [153]"    VERIFY WAITSTEPSTOP
755 PRINT"    [149][169][144]
757 [153]" --------------------------------------
765 PRINT"  SIE ([158]*[144]) BEFINDEN SICH IN EINEM
770 [153]"  RAUM MIT VERGITTERTEN FENSTERN. EIN
775 PRINT"  GITTERSTAB IST ZERSTOERT. SIE VER-
780 [153]"  SUCHEN SICH DURCH DAS FENSTER ZU
785 PRINT"  ZWAENGEN. ABER SIE SIND ZU DICK !!!
790 [153]"  MOEGLICHE RICHTUNG: WLISTESTSTOP, OLISTSTSTOP, QLISTUITSTOP
795 PRINT:PRINT"[144]  ]";
798 SYS49152,4,5,3,6,2,7,1,0
799 RETURN
800 SYS49152
801 PRINT"[147][144]       [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
805 [153]"      (null)(null)AND(null)AND(null)AND(null)AND(null)AND(null)AND(null)AND(null)AND(null)     BURG
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]
815 [153]"    (null)(null)(null)SGN SGN++ NOTNOTNOT WAITSTOPSGN SGN SGN SGN   PEEK (null) (null)SYS*STOPPOKE!STOP PEEK
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]
825 [153]"    (null)(null)(null)(null)USR(null)(null)(null)VERIFY STOPLOG* VERIFY WAITSTOP(null)USR(null)USR(null)USR(null)         (null) PEEK
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]
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
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]
845 [153]"    VERIFY  WAITSTOP(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
850 PRINT"    [149] [146][169][144]
855 [153]"    VERIFYSTEPSTOP
857 PRINT" --------------------------------------
865 [153]"  SIE (SYS*STOP) BEFINDEN SICH IN EINEM
870 PRINT"  FENSTERLOSEN RAUM. AN DER WAND HAENGT
875 [153]"  EIN BILD MIT EINEM HAUS. SIE UNTER-
880 PRINT"  SUCHEN DAS BILD, ABER ENTDECKEN
885 [153]"  NICHTS BESONDERES. DAFUER FALLEN
887 PRINT"  ZWEI TUEREN ZU. SIE SIND GEFANGEN !
890 [153]"  MOEGLICHE RICHTUNG: WLISTESTSTOP, QLISTUITSTOP
895 PRINT:PRINT"[144]  ]";
898 SYS49152,5,4,2,6,3,0,1,7
899 RETURN
900 REM TITEL
905 PRINTCHR$(14)"[147][144]        [193][194][197][206][212][197][213][197][210] - [201]MPOSSIBLE (!!)
910 [153]
915 [153]" (null)ACH DEM CHR$ENUSS EINES LEICHT BITTER
920 PRINT" SCHMECKENDEN [212]RANKES WACHEN [211]IE IN
925 [153]" EINER RIGHT$HNEN VOLLKOMMEN FREMDEN  (null)M-
930 PRINT" GEBUNG AUF. [214]OR [201]HNEN STEHT EINE
935 [153]" RIESIGE PEEKURG. (null)OLLER (null)UT BETRETEN (null)IE
940 PRINT" DAS [199]EBAEUDE UND HABEN SICH AUCH SCHON
945 [153]" VERLAUFEN ...
950 PRINT" [196]IESES [211]PIEL IST UNLOESBAR (SIEHE
955 [153]" (null)ITEL). VALS SOLL RIGHT$HNEN LEDIGLICH ZEI-
960 PRINT" GEN, WIE WIRKUNGSVOLL DIE [213]EBERGAENGE
965 [153]" ZWISCHEN DEN PEEKILDERN AUSSEHEN KOENNEN
970 PRINT" [214]ERLASSEN KOENNEN [211]IE DAS '[211]PIEL' MIT
975 [153]" DER (null)ASTE '(null)'.
980 PRINT" [214]IEL [211]PASS WUENSCHT [201]HNEN
985 [153]"                     STR$IRK (null)EUMEISTER
990 PRINT" >>[212]ASTE<<"
992 SYS49152
995 GETA$:IFA$=""THEN995
996 IFA$="Q"THENEND
999 RETURN