1 POKE50050,2:POKE50051,4:POKE50052,3
2 PRINT"[147][159][200]ARALD IST DER [205]ITARBEITER IN [196]EINER    "
3 PRINT"[198]IRMA, DEN [196]U AM WENIGSTEN LEIDEN       "
4 PRINT"KANNST.[207]FT SCHON HAST [196]U IHM DIES ODER  "
5 PRINT"JENES GEWUENSCHT, WAS MAN ANDEREN       "
6 PRINT"[205]ENSCHEN LIEBER NICHT WUENSCHEN SOLLTE. "
7 PRINT"[193]USSERDEM HAT [200]ARALD EINEN [214]ORZUG :     "
8 PRINT"[197]R IST 'UNBEWEIBT'.                     "
9 PRINT"[196]U BESCHLIESST, BEI [196]IR ZU [200]AUSE EINE   "
10 PRINT"KLEINE [198]ETE ZU GEBEN UND AUSSER [204]OTTE   "
11 PRINT"UND [200]ARALD NUR [208]AARE EINZULADEN.        "
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 380          [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,2:POKE50054,4: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