0 PRINT"[147]";:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251:RE=20:RE$="STEFAN"
1 FORQ=49152TO49172:READX:POKEQ,X:NEXT:SYS49152:POKE1,PEEK(1)OR4
2 POKE 56334,PEEK(56334)OR1:DATA 162,0,189,0,208,157,0,32,189,255,208,157,255
3 POKE 788,123:DATA 32,232,224,255,208,239,96,0
4 POKE53272,24:FORQ=280TO351:READI:POKE8192+Q,I:NEXTQ:GOTO19
5 PRINT""TAB(15)"- CODIFY -":FORQ=1TO5:W(Q)=INT(4*RND(0)+1):NEXTQ:PRINTTAB(9);
6 PRINT"F1-(  F3-)  F5-*  F7-+":FORQ=1TO20:FORI=1TO5:POKE53281,0:POKE53280,0
7 FORX=1TO4:POKE1114+Q*40+I,X+34:FORXX=1TO10:GETA$:IFA$=""THENNEXTXX,X:GOTO 7
8 POKE54276,0:POKE54296,15:POKE54277,25:POKE54273,10:POKE54272,10:POKE54276,33
9 FORQQ=1TO4:IFA$=CHR$(QQ+132)THENR(I)=QQ:POKE1114+Q*40+I,39+QQ:NEXTI:GOTO11
10 NEXTQQ:GOTO7:DATA255,129,129,129,129,129,129,255,0,126,66,66,66,66,126,0,0
11 E=0:FORWW=1TO5:IFR(WW)=W(WW)THENE=E+1:DATA 0,60,36,36,60,0,0,0,0,0,24,24,0,0
12 NEXTWW:IFE<5ANDE>0THENFORWW=1TOE:POKE1124+Q*40+WW,39:NEXTWW,Q:GOTO 17
13 IF E=0 THEN NEXTQ:GOTO17:DATA0,60,126,219,255,189,195,126,60,0,24,36,66,66
14 PRINT"[147] GESCHAFT !!!!  VERSUCHE-"Q:PRINT:PRINT:IFQ>RETHENGOTO18:DATA36,24,0
15 PRINT" OLD RECORD-"RE"   "RE$:PRINT" NEW RECORD-"Q"   ";:POKE 19,1:RESTORE
16 INPUT RE$:RE=Q:GOTO19:DATA0,126,66,66,66,66,126,0,0,24,60,126,126,60,24,0,0
17 FORQ=1TO5:POKE1954+Q,39+W(Q):NEXT:FORQ=1TO5000:NEXT:PRINT"[147]":DATA126,126,126
18 PRINT" RECORD-"RE"     "RE$:GETA$:IFA$=""THEN18:DATA126,126,126,0
19 PRINT"[147]";:FORQ=1TO20:PRINT"     "Q TAB(11)"-----     -----":NEXTQ:GOTO5