0 GOTO22
1 M=0:FORI=1TO19:IFP(I)=.GOTO9
2 P=PEEK(P(I)+40):IFP=32GOTO12
3 IFP=98GOTO13
4 IFP=97GOTO15
5 IFP=42GOTO17
6 IFP=94GOTO18
7 IFP=96GOTO19
8 IFP=113GOTO20
9 NEXT:IFMGOTO1
10 IFK(PL)GOTO55
11 GOTO67
12 POKEP(I),32:P(I)=P(I)+40:POKEP(I),42:M=1:GOTO9
13 M=1:J=P(I)-1024:PRINTLEFT$(D$,J/40)SPC(J-40*INT(J/40)-1)"[155][160][157][157][158] [155][219][221][157][157][157][161][164][158]*":P(I)=P(I)+40:GOTO9
15 M=1:J=P(I)-1024:PRINTLEFT$(D$,J/40)SPC(J-40*INT(J/40)+1)"[155][255][157][157][221][220][158] [155][157][157][157][158]*[155][163][162]":P(I)=P(I)+40:GOTO9
17 J=PEEK(P(I)+1):IFJ=101ORJ=102GOTO19
18 M=1:POKEP(I),32:P(I)=P(I)+1:POKEP(I),42:GOTO9
19 M=1:POKEP(I),32:P(I)=P(I)-1:POKEP(I),42:GOTO9
20 POKEP(I),32:K(PL)=K(PL)+1:PRINTLEFT$(D$,7+6*PL)SPC(18)"[158]"LEFT$(K$,K(PL)):P(I)=.:GOTO9
22 PRINT"[147]":POKE53272,18:I=RND(-TI):S=54272:K$="********************
24 D$[178]"":[134]N$(2),K(2),P(19):[153]"SYSLOADCONTFN";
25 [129]I[178]1[164]8:[153]"DEF CONTFN";:[151]1023[170]I[170]I,103[170]I:[130]:[153]:[153]"FNTHENFNTHENFNTHENFNTHENFN
26 FORI=1TO3:PRINT"[165][165][165][165][165]":NEXT:FORJ=1TO2:PRINT"[165][167][167][167][165]":PRINT"[165][166][166][166][166][165]":FORI=1TO2:PRINT"[165][165][165][165][165][165]":NEXT:PRINT"[165][167][167][167][167][165]":PRINT"[165][166][166][166][165]":FORI=1TO2:PRINT"[165][165][165][165][165]":NEXTI,J:PRINT"[165][165][165][165][165]":PRINT"[165][166][165][166][165][166][165][166][165]
32 [153]"FNTHENTHENTHENTHENTHENTHENTHENFN":[153]"OR>>>>>>>>>>>>>>>OR":[129]I[178]1[164]5:[129]J[178]1[164]7:[139](I[170]J)[173]2[177][181]((I[170]J)[173]2)[137]37
34 [153][200](D$,4[172]I)[166]2[172]J);:K[178][187](TI):[139]K[179].5[167][153]"LIST(null)CMDCMD(null)(null)CMDTAB(NEW":[137]37
36 [153]"LISTCLOSECMD(null)(null)CMDCMDCMDGETTO
37 NEXTJ,I:PRINT""SPC(21)"[203] A $ K A D E":PRINTSPC(63)"[153]@ 1988 BY":PRINTSPC(60)"[158][201] M P E R A T O R":PRINTSPC(21)"$ O F T W A R E":PRINTSPC(60)"[159][194]EI DIESEM [211]PIEL":PRINTSPC(18)"MUESSEN ZWEI [211]PIELER":PRINTSPC(18)"VERSUCHEN, ALLE IHRE":PRINTSPC(18)"ZEHN [203]UGELN SO IN DIE
42 [153][166]18)"(null)PALTEN 1 BIS 8 DES":[153][166]18)"(null)PIELFELDES EINZUWER-":[153][166]18)"FEN, DASS MOEGLICHST":[153][166]18)"KEINE (null)UGELN WIEDER":[153][166]18)"HERAUSFALLEN. (null)ER ALS":[153][166]18)"ERSTER KEINE (null)UGELN":[153][166]18)"MEHR HAT, GEWINNT DAS":[153][166]18)"(null)PIEL. (null)IEL (null)ERGNUEGEN
46 FORI=1TO2:FORJ=22TO24:PRINTLEFT$(D$,J)SPC(18)"[146]                ":NEXT:PRINTLEFT$(D$,22)SPC(18)"[150][211]PIELER"I"[157], [201]HR [206]AME?":PRINTSPC(60)"[158]";:K=0
48 K=1-K:PRINTMID$("[176] ",K+1,1)"[157]";:GETU$:IFU$=""GOTO48
49 IFASC(U$)=13ANDN$(I)>""GOTO54
50 IFASC(U$)=20ANDN$(I)>""THENN$(I)=LEFT$(N$(I),LEN(N$(I))-1):PRINT" [157][157]";:GOTO48
51 IF(U$<"A"ORU$>"Z")AND(U$<"[193]"ORU$>"[218]")ANDU$<>" "ANDU$<>"-"ANDU$<>"."GOTO48
52 IFLEN(N$(I))=12GOTO48
53 N$(I)=N$(I)+U$:PRINT"[146]"U$;:GOTO48
54 NEXT:PL=2:K(1)=10:K(2)=10
55 FORI=7TO24:PRINTLEFT$(D$,I)SPC(18)"                      ":NEXT:FORI=1TO2:PRINT"[153]"LEFT$(D$,4+6*I)SPC(18)N$(I)"[150], [211]PL."I:PRINTSPC(62)"[156][203]UGELN:":PRINTSPC(18)"[158]"LEFT$(K$,K(I))" ":NEXT:PL=3-PL:PRINTSPC(58)""N$(PL)", [201]HR [218]UG":POKE1281+240*PL+K(PL),32:K(PL)=K(PL)-1:P=1065:POKEP,42:I=0
61 I=I+1:IFP(I)GOTO61
62 J=PEEK(56320):IF(JAND16)=.GOTO66
63 IF(JAND4)=.THENIFP>1065THENPOKEP,32:P=P-2:POKEP,42
64 IF(JAND8)=.THENIFP<1079THENPOKEP,32:P=P+2:POKEP,42
65 GOTO62
66 P(I)=P:GOTO1
67 PRINTLEFT$(D$,22)SPC(18)MID$("[159][156][158][129][150][153][154]",9*RND(TI)+1,1)N$(PL)", [211]PL."PL"[157] ":PRINTSPC(18)"HAT GEWONNEN!":IFPEEK(56320)AND16GOTO67
69 RUN