0 REM I'M TOO SHY TO LET YOU LOOK IN!      AND REMEMBER: CHANGING NOT ALLOWED!!(null)
1 IFPEEK(1022)=1THEN5
2 SYS57812"ZS1/SLF",PEEK(1023),1:POKE780,.:SYS65493
3 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251:SYS909
4 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1:POKE1022,1:LO$="MEN/SLF":GOTO19
5 C1%=1:C2%=15:C3%=12:C4%=11:PRINT"[147][144]";:YT$="TASTE F>R WEITER.":SYS965
6 PRINTSPC(14)"SPIELMEN>:":PRINTSPC(14)"----------":PRINTSPC(12)"1)SPIEL STARTEN"
7 PRINTSPC(12)"2)INSTALLIEREN":PRINTSPC(12)"3)ANLEITUNG":PRINTSPC(12)"4)DATEIMANAGER"
8 PRINTSPC(12)"5)CREDITS"
9 PRINT"BITTE DR>CKEN SIE DIE GEW>NSCHTE TASTE":POKE56295,.
10 GOSUB29:GOSUB32:FORA=7TO15STEP2:CS%=A:GOSUB26:NEXT
11 GETA$:IFA$=""THENCS%=24:GOSUB26:CS%=.:GOTO11
12 IFA$<CHR$(49)ORA$>CHR$(53)THEN11
13 PRINT"[147][144]";:GOSUB32
14 IFA$="1"THENLO$="GAM/SLF"
15 IFA$="2"THENLO$="INS/SLF"
16 IFA$="3"THENLO$="ANL/SLF":GOTO21
17 IFA$="4"THENLO$="DAT/SLF"
18 IFA$="5"THENLO$="CRE/SLF":GOTO21
19 PRINT"NEW":PRINT"L[207]"CHR$(34)LO$CHR$(34)","PEEK(1023):PRINT"R[213]";:POKE631,13:POKE632,13
20 POKE633,13:POKE198,3:END
21 OPEN1,PEEK(1023),2,LO$+",S,R":PRINT"[147]";
22 GET#1,A$:IFA$="[160]"THENGOSUB30:PRINT"[147]";:GOTO22
23 IFA$="[175]"THENFORI=1TO1000:NEXTI:GOTO22
24 IFA$="[177]"THENCLOSE1:GOSUB30:RUN
25 PRINTA$;:GOTO22
26 FORI=CS%*40TOCS%*40+37:POKE55295+I,C1%:POKE55296+I,C2%:POKE55297+I,C3%
27 POKE55298+I,C4%:NEXT:POKE55295+I,C1%:POKE55296+I,C1%
28 POKE55297+I,C1%:RETURN
29 CS%=.:GOSUB26:CS%=1:GOSUB26:CS%=.:RETURN
30 FORI=1TO18:PRINT"";LEFT$(YT$,I);:NEXTI:POKE198,.
31 GETA$:IFA$=""THENCS%=24:GOSUB26:CS%=.:GOTO31
32 S=54272:POKES+24,15:POKES+1,110:POKES+6,9:POKES+4,17:POKES+4,16:RETURN