0 REM HOPE YOU UNDERSTAND:                             CHANGINGS NOT ALLOWED!!!(null)
1 PRINT"[147]";
2 POKE53281,15:POKE53280,12:YT$="TASTE F>R WEITER.":C1%=1:C2%=7:C3%=3
3 C4%=14:DD$="DATA":QW$="2"
4 PRINT"[155]    KI STADT-LAND-FLU# DATEIMANAGER":GOSUB60:GOSUB67
5 PRINT"  [151]DER [156]KI STADT-LAND-FLU# DATEIMANAGER[151]"
6 PRINT" IST EIN TOOL UM DIE VON KI STADT-LAND-"
7 PRINT"  FLU#[151] ERZEUGTEN DATENFELDER ANZUSEHEN"
8 PRINTSPC(7)"UND BEI BEDARF ZU L<SCHEN."
9 PRINT"!BITTE LEGEN SIE IHRE DATENDISKETTE EIN!"
10 GOSUB63:GOSUB56:IFTC=.THENRUN
11 PRINT"[147][144]SOLL DIE DISKETTE GECHECKT WERDEN? ";
12 GETA$:IFA$="N"THENPRINT"NEIN.":GOTO16
13 IFA$="J"THENPRINT"JA.":GOSUB67:PRINT"CHECKE...":OPEN1,PEEK(1023),15,"V":QA=1
14 IFQA=1THENQA=.:CLOSE1:PRINT"OK.":GOSUB68:GOSUB63:GOTO16
15 GOTO12
16 OPEN1,PEEK(1023),2,"GEBIETE,S,R":FORI=1TO5:INPUT#1,WI$(I)
17 INPUT#1,A$:NEXTI:CLOSE1
18 GOSUB67:PRINT"[147][144]WELCHES WISSENSGEBIET?[151]":R=.:K$=""
19 FORI=1TO5
20 PRINTI;WI$(I):NEXTI
21 GETB$:IFB$<>"1"ANDB$<>"2"ANDB$<>"3"ANDB$<>"4"ANDB$<>"5"THEN21
22 U$=" "+B$:POKE55297+VAL(B$)*40,1:GOSUB67
23 PRINT"[144]ANFANGSBUCHSTABE?"
24 PRINT"[151]ABCDEFGHIJKLMNOPQRSTUVWXYZ"
25 GETB$:IFB$<CHR$(65)ORB$>CHR$(90)THEN25
26 POKE55656+ASC(B$)-65,1:GOSUB67
27 U$=U$+B$:GOTO50
28 PRINT"[156]";:OPEN1,PEEK(1023),2,U$+",S,R"
29 INPUT#1,B$:R=R+1:IFB$="*"THENCLOSE1:IFR>1THEN34
30 IFB$="*"ANDR=1THEN33
31 PRINTB$
32 GOTO29
33 PRINT"DIESES DATENFELD IST LEER!":GOSUB68:GOTO39
34 PRINT"L<SCHEN (J/N)? ";:GOSUB67
35 GETA$:IFA$<>"N"ANDA$<>"J"THEN35
36 IFA$="J"THENPRINT"JA.":OPEN1,PEEK(1023),15,"S:"+U$:CLOSE1:OPEN1,PEEK(1023),2,U$+",S,W"
37 IFA$="J"THENPRINT#1,"*":CLOSE1:PRINT"FILE ERFOLGREICH GEL<SCHT!":GOSUB68
38 IFA$="N"THENPRINT"NEIN.":GOSUB67
39 PRINT:PRINT"NOCH EINMAL (J/N)?"
40 GETA$:IFA$<>"J"ANDA$<>"N"THEN40
41 IFA$="J"THEN18
42 GOTO46
43 PRINT"[147][150]----------------------------------------";
44 PRINT" BITTE LEGEN SIE DIE SPIELDISKETTE EIN."
45 PRINT"[150]----------------------------------------":GOSUB63
46 DD$="GAME":QW$="1"
47 GOSUB56:IFTC=.THEN43
48 PRINT"[147][155]NEW":PRINT"L[207]"CHR$(34)"MEN/SLF"CHR$(34)","PEEK(1023):PRINT"R[213]";
49 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
50 OPEN1,PEEK(1023),2,U$+",S,R":CLOSE1:OPEN1,PEEK(1023),15
51 FORI=1TO2:GET#1,H$:K$=K$+H$:NEXTI:CLOSE1
52 IFK$="00"THENPRINT"OK.             ":GOTO28
53 IFK$="62"THENPRINT"FILE NICHT GEFUNDEN!"
54 IFK$="62"THENPRINT">BERPRUEFEN SIE IHR LAUFWERK!"
55 GOTO39
56 DS$="":OPEN1,8,2,"ID"+QW$+",S,R"
57 FORI=1TO4:INPUT#1,A$:DS$=DS$+A$:NEXTI:CLOSE1
58 IFDS$<>DD$THENTC=.:RETURN
59 TC=1:RETURN
60 FORI=CS%*40TOCS%*40+37:POKE55295+I,C1%:POKE55296+I,C2%:POKE55297+I,C3%
61 POKE55298+I,C4%:NEXTI:POKE55295+I,C1%:POKE55296+I,C1%
62 POKE55297+I,C1%:RETURN
63 FORI=1TO18
64 PRINT"";LEFT$(YT$,I);:NEXTI:POKE198,.
65 GETA$:IFA$=""THENCS%=24:GOSUB60:CS%=.:GOTO65
66 GOSUB67:RETURN
67 S=54272:POKES+24,15:POKES+1,110:POKES+6,9:POKES+4,17:POKES+4,16:RETURN
68 GOSUB67:FORI=1TO720:NEXTI:GOSUB67:RETURN