1 POKE50050,2:POKE50051,0:POKE50052,0 2 PRINT"[147][159][193]UCH AM NAECHSTEN [193]BEND IST ES NICHT " 3 PRINT"ANDERS : [193]LS [196]U WIE ZUFAELLIG IHR VON " 4 PRINT"EINEM INDISCHEN [203]LEID BEDECKTES [203]NIE " 5 PRINT"STREIFST, RUECKT SIE ZWEI [205]ETER VON [196]IR " 6 PRINT"WEG.[196]ABEI HOERT SIE NICHT AUF, [196]ICH " 7 PRINT"VERLANGEND ANZUGUCKEN.[206]ACHDEM [204]OTTE AN " 8 PRINT"DIESEM [193]BEND GEGANGEN IST, KANNST [196]U " 9 PRINT"NICHT EINSCHLAFEN.[196]U GRUEBELST.[200]AT ES " 10 PRINT"[211]INN MIT DIESEM [205]AEDCHEN ? [200]AT ES [211]INN " 11 PRINT"FUER SOLCHE [212]REFFS DAS [199]EREDE DER " 12 PRINT"[203]OLLEGEN ZU ERTRAGEN ? " 13 PRINT" >[215]EITER MIT [212]ASTENDRUCK<" 14 POKE198,0:WAIT198,1 15 PRINT"[147][215]AS FUER EIN [199]ESPOETT, WENN DIE " 16 PRINT"WUESSTEN, WAS LOS IST ! " 17 PRINT" " 18 PRINT" " 19 PRINT" " 20 PRINT" " 21 PRINT" " 22 PRINT" " 23 PRINT" " 24 PRINT" " 25 PRINT" " 26 PRINT" >[215]EITER MIT [212]ASTENDRUCK<" 27 POKE198,0:WAIT198,1 28 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"; 29 PRINT"[221][151] [197]NTSCHEIDUNGSMOEGLICHKEIT : [221]"; 30 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"; 31 PRINT"[221][152] [211]PIELSITUATION 312 [221]"; 32 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]" 33 PRINT" [196]U HAST KEINE [197]NTSCHEIDUNGS- " 34 PRINT" MOEGLICHKEIT.[214]ON HIER AUS GIBT'S NUR " 35 PRINT" EINE MOEGLICHE [198]ORTSETZUNG ! " 36 PRINT" >[215]EITER MIT [212]ASTENDRUCK<" 37 POKE198,0:WAIT198,1:GETA$ 38 IFA$=""THEN41 39 A$="257":POKE50053,2:POKE50054,0:POKE50055,1 40 GOTO42 41 A$="256" 42 Q=PEEK(50100) 43 W=Q+50100 44 IFPEEK(W)=200THENW=W+1:POKE50100,Q+1:GOTO44 45 E=PEEK(W):POKEW,E+1 46 PRINT"[147][144]LOAD";CHR$(34);A$;CHR$(34);",8":PRINT"RUN" 47 POKE631,13:POKE632,13:POKE633,13:POKE198,3