1 POKE50050,1:POKE50051,8:POKE50052,5
2 PRINT"[147][159][204]EIDER REICHT [196]EIN [195]HARME NICHT, UM IHRE"
3 PRINT"KUEHLE [196]ISTANZIERTHEIT ZU UEBERWINDEN.  "
4 PRINT"[196]U GEHST ABENDS ALLEIN NACH [200]AUSE.      "
5 PRINT"                                        "
6 PRINT"                                        "
7 PRINT"                                        "
8 PRINT"                                        "
9 PRINT"                                        "
10 PRINT"                                        "
11 PRINT"                                        "
12 PRINT"                                        "
13 PRINT"            >[215]EITER MIT [212]ASTENDRUCK<"
14 POKE198,0:WAIT198,1
15 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]";
16 PRINT"[221][151]     [197]NTSCHEIDUNGSMOEGLICHKEIT  :     [221]";
17 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]";
18 PRINT"[221][152]          [211]PIELSITUATION 225          [221]";
19 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]"
20 PRINT"  [196]U HAST KEINE [197]NTSCHEIDUNGS-          "
21 PRINT"  MOEGLICHKEIT.[214]ON HIER AUS GIBT'S NUR  "
22 PRINT"  EINE MOEGLICHE [198]ORTSETZUNG !          "
23 PRINT"                                        "
24 PRINT"                                        "
25 PRINT"                                        "
26 PRINT"                                        "
27 PRINT"                                        "
28 PRINT"               >[215]EITER MIT [212]ASTENDRUCK<"
29 POKE198,0:WAIT198,1:GETA$
30 IFA$=""THEN33
31 A$="257":POKE50053,1:POKE50054,9:POKE50055,4
32 GOTO34
33 A$="256"
34 Q=PEEK(50100)
35 W=Q+50100
36 IFPEEK(W)=200THENW=W+1:POKE50100,Q+1:GOTO36
37 E=PEEK(W):POKEW,E+1
38 PRINT"[147][144]LOAD";CHR$(34);A$;CHR$(34);",8":PRINT"RUN"
39 POKE631,13:POKE632,13:POKE633,13:POKE198,3