0 REM WEHE DEM, DER DIESES PROGRAMM HIER      ABAENDERT! TU'S NICHT...(null)
1 YT$="TASTE F>R WEITER.":C1%=1:C2%=7:C3%=3:C4%=14:PRINT"[147]";
2 POKE53281,15:POKE53280,12:DD$="GAME"
3 PRINT"[155]    KI STADT-LAND-FLU# INSTALLATION":GOSUB82:GOSUB89
4 PRINT"    LEGEN SIE EINE [156]DISKETTE F>R DIE"
5 PRINT"[144]   KI STADT-LAND-FLU# DATENDISK  EIN"
6 PRINT"[151]WENN SIE EINE EIGENST@NDIGE DATA-DISK"
7 PRINT"ERSTELLEN WOLLEN, SO LEGEN SIE EINE":PRINT"LEER-DISK EIN!"
8 PRINT"WOLLEN SIE DAGEGEN DIE DATAS MIT AUF DER";
9 PRINT"SPIEL-DISKETTE SPEICHERN, SO LASSEN SIE"
10 PRINT"DIE SPIEL-DISK IM LAUFWERK!"
11 PRINT"[129]     DIE GESAMTE INSTALLATION WIRD"
12 PRINT"   CA. 15 MINUTEN IN ANSPRUCH NEHMEN!"
13 GOSUB86
14 C1%=15
15 PRINT"[147]BITTE GEBEN SIE [156]5 WISSENSGEBIETE EIN,"
16 PRINT"MIT DENEN SIE [144]KI STADT-LAND-FLU# SPIELEN";
17 PRINT"WOLLEN."
18 E%=1:LO=65:HI=90:UL=12:SF(1)=64:SF(2)=60:SF(3)=62:SF(4)=35
19 FORI=1TO5:GOSUB89
20 PRINT:PRINT"[151]WISSENSGEBIET"I": ";:GOSUB66:WI$(I)=WM$
21 FORA=1TO5:IFWI$(I)=WI$(A)ANDA<>ITHENYY=1
22 IFYY=1THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]              [157][157][157][157][157][157][157][157][157][157][157][157][157][157][145]";:YY=.:GOTO20
23 NEXTA
24 PRINT:PRINT"WELCHER ARTIKEL?"
25 PRINT"1)[154]EIN  "WI$(I):PRINT"2)[154]EINE "WI$(I)
26 GETA$:IFA$<>"1"ANDA$<>"2"THEN26
27 IFA$="1"THENAT$(I)="EIN "
28 IFA$="2"THENAT$(I)="EINE"
29 CS%=5:GOSUB82:CS%=7:GOSUB82:CS%=8:GOSUB82:CS%=9:GOSUB82
30 PRINT"[145][145][145][145][145][145]";:FORGG=1TO6
31 PRINT"                                       "
32 NEXTGG:PRINT"[145][145][145][145][145][145]";:NEXTI:C1%=1:FORI=1TO5:PRINT"[158]"AT$(I)" [154]"WI$(I):NEXTI
33 GOSUB90:PRINT:PRINT"ALLES RICHTIG? ";
34 GETA$:GOSUB65:IFA$<>"J"ANDA$<>"N"THEN34
35 IFA$="J"THENPRINT"JA.":GOSUB86
36 IFA$="N"THENFORI=1TO5:WI$(I)="":NEXTI:GOTO14
37 GOSUB91:IFDS$="00"THEN42
38 PRINT"[147][150]----------------------------------------";
39 PRINT"  BEREITE DISKETTE F>R DIE DATEN VOR."
40 PRINT"[150]----------------------------------------";:GOSUB89
41 OPEN1,8,15,"N:KI S-L-F DATAS,D[204]":CLOSE1
42 PRINT"[147][154]----------------------------------------";
43 PRINT"      DATENFELDER WERDEN ERZEUGT."
44 PRINT"[154]----------------------------------------":GOSUB89
45 OPEN1,PEEK(1023),2,"ID2,S,W":FORI=1TO4:READA$:PRINT#1,A$:NEXTI:CLOSE1
46 OPEN1,PEEK(1023),2,"BESTENLISTE,S,W"
47 FORI=1TO10:READA$:PRINT#1,A$:PRINT#1,0:NEXTI:CLOSE1
48 OPEN1,PEEK(1023),2,"GEBIETE,S,W"
49 FORI=1TO5:PRINT#1,WI$(I):PRINT#1,AT$(I):NEXTI:CLOSE1
50 POKE56334,PEEK(56334)AND254:POKE53265,PEEK(53265)AND239
51 FORX=1TO5:FORI=65TO90
52 OPEN1,PEEK(1023),2,STR$(X)+CHR$(I)+",S,W":PRINT#1,"*":CLOSE1:NEXTI,X
53 POKE56334,PEEK(56334)OR1:POKE53265,PEEK(53265)OR16
54 PRINT"[147]FERTIG! ALLE DATEIEN ERFOLGREICH";
55 PRINTSPC(17)"EINGERICHTET!":GOSUB90:GOSUB86
56 DATAD,A,T,A,L1VE MACHT H<RIG!,FOREVER ROF-FD!,"KULT=DIGITAL TALK","HALLO IHR..."
57 DATATIGERCREWER!,"WILLST'N CF?!","<KOMETAL...","OR BIOMETAL?","AND:","BY(T)E..."
58 GOTO62
59 PRINT"[147][150]----------------------------------------";
60 PRINT" BITTE LEGEN SIE NUN DIE SPIELDISK EIN."
61 PRINT"[150]----------------------------------------":GOSUB89:GOSUB86
62 GOSUB78:IFTC=.THEN59
63 PRINT"[147][155]NEW":PRINT"L[207]"CHR$(34)"MEN/SLF"CHR$(34)","PEEK(1023):PRINT"R[213]";
64 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
65 TC=PEEK(646):PRINT" [157]";:PRINT" [146][157]";:POKE646,TC:RETURN
66 WM$=""
67 GETA$:GOSUB65:IFA$=""THEN67
68 IFWM$<>""ANDA$=""THENPRINT"";:WM$=LEFT$(WM$,LEN(WM$)-1)
69 IFA$=CHR$(32)ANDE%=1ANDLEN(WM$)<ULTHENPRINTA$;:WM$=WM$+A$:GOTO67
70 IFA$=CHR$(LK)ANDWM$=""THENWM$="-":PRINTWM$" ";:RETURN
71 FORIU=1TO4
72 IFA$=CHR$(SF(IU))ANDLEN(WM$)<ULTHENPRINTA$;:WM$=WM$+A$:GOTO67
73 NEXTIU
74 IFA$=CHR$(13)ANDWM$<>""THENPRINT" ";:RETURN
75 IFA$<CHR$(LO)ORA$>CHR$(HI)THEN67
76 IFLEN(WM$)=ULTHEN67
77 WM$=WM$+A$:PRINTA$;:GOTO67
78 DS$="":OPEN1,8,2,"ID1,S,R"
79 FORI=1TO4:INPUT#1,A$:DS$=DS$+A$:NEXTI:CLOSE1
80 IFDS$<>DD$THENTC=.:RETURN
81 TC=1:RETURN
82 FORR=CS%*40TOCS%*40+37:POKE55295+R,C1%:POKE55296+R,C2%:POKE55297+R,C3%
83 POKE55298+R,C4%:NEXTR:POKE55295+R,C1%:POKE55296+R,C1%
84 POKE55297+R,C1%:RETURN
85 CS%=.:GOSUB82:CS%=1:GOSUB82:CS%=.:RETURN
86 FORI=1TO18
87 PRINT"";LEFT$(YT$,I);:NEXTI:POKE198,.
88 GETA$:IFA$=""THENCS%=24:GOSUB82:CS%=.:GOTO88
89 S=54272:POKES+24,15:POKES+1,110:POKES+6,9:POKES+4,17:POKES+4,16:RETURN
90 GOSUB89:FORI=1TO720:NEXTI:GOSUB89:RETURN
91 OPEN1,PEEK(1023),2,"ID1,S,R":CLOSE1:OPEN1,PEEK(1023),15:GET#1,A$:DS$=A$:GET#1,A$
92 DS$=DS$+A$:CLOSE1:RETURN