%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:28
File Name:CLS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\ClrGraph
\AxesOff
\ViewWindow 1,127,1,63,1
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1489
File Name:ATLZEICH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Mat Z[1,1]\->U
\Mat Z[2,1]\->V
\Mat Z[3,1]\->W
\If W=1:\Then \F-Line U+1,V,U+2,V:\F-Line U,V+1,U+5,V+1:\F-Line U,V+4,U+5,V+4:\F-Line U+3,V+3,U+4,V+3:\IfEnd
\If W=2:\Then \Green \F-Line U+1,V,U+5,V:\Green \F-Line U,V+1,U+5,V+1:\Green \F-Line U,V+2,U+5,V+2:\Green \F-Line U,V+3,U+5,V+3:\Green \F-Line U,V+4,U+5,V+4:\Green \F-Line U,V+5,U+4,V+5:\IfEnd
\If W=3\ Or W=4:\Then \Green \F-Line U,V+1,U+1,V:\Green \F-Line U,V+3,U+3,V:\Green \F-Line U,V+5,U+5,V:\Green \F-Line U+2,V+5,U+5,V+2:\Green \F-Line U+4,V+5,U+5,V+4:\IfEnd
\If W=4:\Then \Orange \PxlOn V+4,U+4:\Orange \F-Line U+1,V+4,U+1,V+3:\Orange \F-Line U+2,V+4,U+2,V+1:\Orange \F-Line U+3,V+4,U+3,V+2:\IfEnd
\If W=5:\Then \Orange \F-Line U+0,V+2,U+2,V+0:\Orange \F-Line U+3,V+1,U+4,V+2:\F-Line U+1,V+2,U+1,V+4:\F-Line U+2,V+1,U+2,V+2:\F-Line U+3,V+2,U+3,V+4
\IfEnd
\If W=7
\Then \F-Line U,V+4,U+4,V+4:\F-Line U,V+3,U+4,V+3:\Orange \F-Line U+1,V+2,U+1,V+1:\Orange \F-Line U+3,V+2,U+3,V+1:\Orange \F-Line U+2,V+1,U+2,V+1:\IfEnd
\If W=8:\Then \F-Line U,V+4,U+4,V+4:\F-Line U,V+3,U+4,V+3:\F-Line U,V+2,U+4,V+2:\F-Line U+1,V+1,U+3,V+1:\Orange \F-Line U+1,V+4,U+1,V+3:\Orange \F-Line U+3,V+3,U+3,V+3:\IfEnd
\If W=9:\Then \Orange \F-Line U,V+2,U,V+4:\Orange \F-Line U+1,V+1,U+1,V+2:\Orange \F-Line U+2,V+2,U+2,V+4:\F-Line U+3,V,U+3,V+4:\F-Line U+4,V,U+4,V+4:\PxlOff V+4,U+1:\IfEnd
\If W=10:\Then \Orange \F-Line U+1,V+3,U+2,V+4:\Orange \F-Line U+1,V+1,U+4,V+4:\Orange \F-Line U+3,V+1,U+4,V+2:\IfEnd
\If W=11
\Then \Orange \F-Line U+1,V+4,U+4,V+4:\Orange \F-Line U+2,V+3,U+3,V+3:\PxlOff V+2,U+3:\PxlOff V+1,U+2:\F-Line U+4,V+2,U+4,V+1:\F-Line U+1,V+2,U+1,V+1:\F-Line U+2,V,U+3,V:\IfEnd
\If W=15
\Then \PxlOff V+3,U+2:\PxlOff V+4,U+3:\F-Line U,V+4,U,V+3:\F-Line U+1,V+4,U+1,V+3:\F-Line U+4,V+4,U+4,V+3:\F-Line U,V+2,U+4,V+2:\Orange \F-Line U,V+1,U+2,V+1:\Orange \F-Line U+1,V,U+1,V:\IfEnd
\If W=16
\Then \Orange \F-Line U,V+4,U,V+2:\Orange \F-Line U+4,V+4,U+4,V+2:\Orange \F-Line U+3,V+4,U+3,V+3:\Orange \F-Line U+1,V+2,U+3,V+2:\F-Line U,V+1,U+4,V+1:\Orange \F-Line U+1,V+1,U+3,V+1:\F-Line U+1,V,U+3,V:\F-Line U+1,V+4,U+2,V+4:\F-Line U+1,V+3,U+2,V+3:\IfEnd
\If W=17
\Then \Orange \F-Line U,V+4,U,V+2:\Orange \F-Line U+4,V+4,U+4,V+2:\Orange \F-Line U+2,V+4,U+2,V+2:\F-Line U+1,V+4,U+1,V+2:\F-Line U+3,V+4,U+3,V+2:\Orange \F-Line U,V+1,U+4,V+1:\Orange \F-Line U+1,V,U+3,V:\IfEnd
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:114
File Name:ATLABILD
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Prog "CLS"
\AxesOff
\For 1\->S \To 9
\For 1\->T \To 21
((T-1)*6)+1\->\Mat Z[1,1]
((S-1)*6)+1\->\Mat Z[2,1]
\Mat B[S,T]\->\Mat Z[3,1]
\Prog "ATLZEICH"
\Next 
\Next 
\StoPict 1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2882
File Name:ATLANTIS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'MAT B 9*21
'MAT C 1*1
'MAT D 1*11
'MAT F 1*7
'MAT Z 4*1
' =2120 BYTES
' Jan 2002
\Lbl A
0\->A:3\->B:3\->C:0\->S:0\->Z:\Prog "CLS":\Green " ":\Locate 1,1,"-------Atlantis------":\Locate 2,3,"> KARTE EDITIEREN":\Locate 4,4,"NEUES SPIEL":\Locate 4,5,"SPIEL FORTSETZEN":\Locate 4,6,"ENDE"
\Lbl B
\Do
\Do
\Getkey\->A
\LpWhile \Not A
A=28\=>\Dsz B:A=37\=>\Isz B:B=2\=>6\->B:B=7\=>3\->B
\Locate 2,C," "
\Locate 2,B,">"
B\->C
\For 1\->S \To 30:\Next 
\LpWhile A\<>31
\If B=3
\Then \Prog "ATLAEDIT"
\GotoA
\IfEnd
\If B=6
\Then \ClrText:\Stop
\IfEnd
\If B=4
\Then \Locate 1,4,"   NEUES SPIEL WIRD  "
\Locate 1,5,"     VORBEREITET     "
\Locate 1,3,"                    "
\Locate 1,6,"                    "
\For 1\->G \To 7
0\->\Mat F[1,G]
\Next 
30\->\Mat F[1,3]
15\->\Mat F[1,4]
\For 1\->G \To 10
0\->\Mat D[1,G]
\Next 
0\->\Mat D[1,11]
\For 1\->X \To 21
\For 1\->Y \To 9
\Mat B[Y,X]=13\ Or \Mat B[Y,X]=14\=>4\->\Mat B[Y,X]:\Mat B[Y,X]=12\=>2\->\Mat B[Y,X]:\Mat B[Y,X]>4\ Or \Mat B[Y,X]=0\=>3\->\Mat B[Y,X]:\Mat B[Y,X]\<>1\=>\Mat D[1,11]+1\->\Mat D[1,11]:\Next :\Next 
\Prog "ATLABILD"
\IfEnd
\If B=5
\Then \Mat D[1,11]\<=0\=>\GotoB
\Prog "CLS"
\AxesOff
\RclPict 1
\IfEnd
0\->\Mat C[1,1]
\Prog "ATLAMENU"
\StoPict 1:\PxlOn 1,1
\PxlOn 6,6:\PxlOn 6,6
0\->A:1\->B:1\->C:1\->D:1\->E
\Lbl B
0\->Z
\Do:\Do
Z+1\->Z
\If Z\>=100
\Then 0\->Z
\Int (\Ran#*(\Mat F[1,7]/3+30))=0\=>\Prog "ATLANTIK"
\Mat F[1,5]\<=1000\=>\Mat F[1,5]+\Mat D[1,5]\->\Mat F[1,5]
\Mat F[1,1]\<=1000\=>\Mat F[1,1]+4*\Mat D[1,2]\->\Mat F[1,1]
\If \Mat F[1,2]\<=1000
\Then \If \Mat F[1,1]\>=\Mat D[1,4]
\Then \Mat F[1,2]+\Mat D[1,4]\->\Mat F[1,2]
\Mat F[1,1]-\Mat D[1,4]\->\Mat F[1,1]
\Else \Mat F[1,2]+\Mat F[1,1]\->\Mat F[1,2]
0\->\Mat F[1,1]
\IfEnd
\IfEnd
\Mat F[1,3]\<=1000\=>\Mat F[1,3]+\Mat D[1,1]\->\Mat F[1,3]
\Mat F[1,4]\<=1000\=>\Mat F[1,4]+\Mat D[1,3]\->\Mat F[1,4]
\If \Mat F[1,6]\<=1000
\Then 4*\Mat D[1,6]\->L
\If \Mat F[1,3]\>=L:\Then \If \Mat F[1,5]\>=L:\Then \Mat F[1,6]+L\->\Mat F[1,6]:\Mat F[1,3]-L\->\Mat F[1,3]:\Mat F[1,5]-L\->\Mat F[1,5]:\Else \Mat F[1,6]+\Mat F[1,5]\->\Mat F[1,6]:\Mat F[1,3]-\Mat F[1,5]\->\Mat F[1,3]:0\->\Mat F[1,5]:\IfEnd
\Else \If \Mat F[1,5]\>=L
\Then \Mat F[1,6]+\Mat F[1,3]\->\Mat F[1,6]
\Mat F[1,5]-\Mat F[1,3]\->\Mat F[1,5]
0\->\Mat F[1,3]
\Else \If \Mat F[1,3]<\Mat F[1,5]:\Then \Mat F[1,6]+\Mat F[1,3]\->\Mat F[1,3]:\Mat F[1,5]-\Mat F[1,3]\->\Mat F[1,5]:0\->\Mat F[1,3]
\Else \Mat F[1,6]+\Mat F[1,5]\->\Mat F[1,6]:\Mat F[1,3]-\Mat F[1,5]\->\Mat F[1,3]:0\->\Mat F[1,5]
\IfEnd:\IfEnd:\IfEnd:\IfEnd
\If \Mat D[1,8]>0\ And \Mat F[1,2]\>=2*\Mat D[1,8]:\Then \Mat F[1,2]-2*\Mat D[1,8]\->\Mat F[1,2]
\Mat F[1,7]+\Mat D[1,8]\->\Mat F[1,7]
\If \Mat F[1,7]\>=2000
\Then 7\->\Mat C[1,1]
\Prog "ATLAMENU"
\Stop
\IfEnd:\IfEnd
\IfEnd
0\->A
\Getkey\->A
\LpWhile \Not A
\Mat C[1,1]\->F
A=28\=>C-6\->C:A=37\=>C+6\->C:A=38\=>B-6\->B:A=27\=>B+6\->B:C<1\=>49\->C:C>49\=>1\->C:B>121\=>1\->B:B<1\=>121\->B
\PxlOff E,D:\PxlOff E+5,D+5:\PxlOn C,B:\PxlOn C+5,B+5:\PxlOn C,B
B\->D:C\->E:Z+6\->Z
\Lbl M
\ClrText
\If A=47\ And F\<>0
\Then F=3\=>\Cls
F=3\=>\RclPict 1
0\->\Mat C[1,1]
\Prog "ATLAMENU"
\IfEnd
A=55\=>\Prog "ATLANTIK"
\If A=49\ And F=0
\Then 3\->\Mat C[1,1]
\Prog "ATLAMENU"
\IfEnd
\If F=3\ And (A=79\ Or A=69):\Then \PxlOff E,D:\PxlOff E+5,D+5:\PxlOff E,D:\StoPict 1
\If A=79
\Then \For 1\->S \To 9
\For 1\->T \To 21
\If \Mat B[S,T]=16
\Then \For S-3\->P \To S+3:\For T-3\->Q \To T+3
\If \Not (Q\>=22\ Or Q\<=0\ Or P\<=0\ Or P\>=10)
\Then \PxlTest 6P,6Q
\If \Ans=0:\Then \PxlOn 6P-5,6Q-5:\PxlOn 6P,6Q
'\PxlOn 6P-5,6Q
'\PxlOn 6P,6Q-5
\IfEnd:\IfEnd
\Next :\Next 
\IfEnd
\Next :\Next 
\IfEnd:\PxlOn E,D:\PxlOn E+5,D+5:\PxlOn E,D
\IfEnd
\If A=29\ And F=0
\Then \PxlOff E,D:\PxlOff E+5,D+5:\PxlOff E,D:\StoPict 1:\ClrText:\Stop:\IfEnd
\If A=69\ And F=0
\Then 1\->\Mat C[1,1]
\Prog "ATLAMENU"
\IfEnd
\If A=78
\Then \Text 58,1,"                               ":\Text 58,50,"Pause":\Text 58,50,"P"
\For 1\->K \To 100
\Next 
\Do
\LpWhile \Getkey\<>78
\Prog "ATLAMENU"
\IfEnd
\If A=29\ And F=1
\Then 2\->\Mat C[1,1]
\Prog "ATLAMENU"
\IfEnd
\If A=29\ And F=2
\Then 1\->\Mat C[1,1]
\Prog "ATLAMENU"
\IfEnd
\If A=59\ And F=0
\Then \Locate 2,2,"WASSER":\Locate 2,3,"NAHRUNG":\Locate 2,4,"HOLZ":\Locate 2,5,"STEIN":\Locate 2,6,"ERZ":\Locate 2,7,"EISEN":\For 2\->G \To 7:\Locate 10,G,\Mat F[1,G-1]:\Next 
\Do:\LpWhile \Getkey\<>47:\PxlOn C,B:\IfEnd
\If (F=1\ Or F=2)\ And (A=79\ Or A=69\ Or A=59\ Or A=49\ Or A=39)
\Then 0\->\Mat Z[4,1]
\Prog "ATLCHECK"
\IfEnd
F=0\ And A=79\=>\Prog "ATLAINFO"
\LpWhile 1=1


%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2211
File Name:ATLAEDIT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOff:\ViewWindow 1,127,10,1,63,10
\Text 1,1,"ATLANTIS   NEUE KARTE ERZEUGEN"
\Green \Horizontal 57
0\->N:0\->T
\Text 58,5,"\Rnd"
\Text 58,24,"WALD"
\Text 49,24,"0"
\Text 58,46,"FELD"
\Text 49,46,"0"
\Text 58,67,"FELS"
\Text 49,67,"0"
\Text 58,92,"OK"
\Text 58,109,"ENDE"
\Text 20,5,"LAND GESAMMT :"
\Text 30,5,"MEER :"
\Text 30,32,"189"
\Text 20,67,"0"
\Text 1,1,"A"
0\->A:0\->B:0\->C:0\->D:0\->E:0\->G
\Do
\Getkey\->A
\If A
\Then \If A=79
\Then \Int (9\Ran#)*5+10\->C:\Int (11\Ran#)*5+10\->D:\Int (6\Ran#)*5+10\->E:\Text 49,24,C:\Text 49,46,D:\Text 49,67,E:\Text 30,32,"     ":\Text 20,67,"     ":\Text 30,32,189-(C+D+E):\Text 20,67,C+D+E:\Text 1,1,"A":\IfEnd
\If A=29
\Then \Stop
\IfEnd
A=39\ And C+D+E\>=10\=>\Break
\If G=1
\Then \If A=28
\Then B=69\=>C+10\->C:B=59\=>D+10\->D:B=49\=>E+10\->E
\IfEnd
\If A=27
\Then B=69\=>C+5\->C:B=59\=>D+5\->D:B=49\=>E+5\->E
\IfEnd
\If A=38
\Then B=69\=>C-5\->C:B=59\=>D-5\->D:B=49\=>E-5\->E
\IfEnd
\If A=37
\Then B=69\=>C-10\->C:B=59\=>D-10\->D:B=49\=>E-10\->E
\IfEnd
\If C+D+E>160
\Then \For 1\->Q \To 2
\If C+D+E>160
\Then B=69\=>C-5\->C
B=59\=>D-5\->D
B=49\=>E-5\->E
\Next 
\IfEnd
\IfEnd
C<0\=>0\->C
D<0\=>0\->D
E<0\=>0\->E
0\->\theta
A=27\=>1\->\theta:A=28\=>1\->\theta
A=37\=>1\->\theta:A=38\=>1\->\theta
\If \theta=1
\Then B=69\=>\Text 49,24,"    ":B=59\=>\Text 49,46,"    ":B=49\=>\Text 49,67,"    ":B=69\=>\Text 49,24,C:\Text 20,67,"     ":\Text 20,67,E+C+D:\Text 30,32,"     "
\Text 30,32,189-(E+C+D):B=59\=>\Text 49,46,D
B=49\=>\Text 49,67,E
\Text 1,1,"A"
\IfEnd
\IfEnd
\If A=69\ Or A=59\ Or A=49
\Then 1\->G
B=49\=>\Orange \Text 58,67,"     ":B=59\=>\Orange \Text 58,46,"     "
B=69\=>\Orange \Text 58,24,"     "
\If A=B:\Then 0\->G:0\->B
\Else A=59\=>\Orange \Text 58,46,"FELD":A=49\=>\Orange \Text 58,67,"FELS":A=69\=>\Orange \Text 58,24,"WALD":A\->B
\IfEnd
\Text 1,1,"A"
\IfEnd
\IfEnd
\LpWhile 1=1
\Lbl 1
\F-Line 110,19,120,19
\F-Line 120,19,120,41
\F-Line 120,41,110,41
\F-Line 110,41,110,19
\F-Line 110,41,110,19
\For 1\->I \To 21:\For 1\->J \To 9:1\->\Mat B[J,I]:\Next :\Next :10\->I:4\->J
1\->\Mat B[J,I]
0\->U:0\->V:0\->W:20\->Z:C+D+E\->\theta
\For 0\->H \To (C+D+E)
\If A\<>\Int (H/(\theta/20))
\Then \Int (H/(\theta/20))\->A:\Green \F-Line 119,A+20,111,A+20:\IfEnd
\Int (4\Ran#)+1\->K:0\->L
\If K=O
\Then \If O=9:\Then 2\->K:K=5\=>1\->K
\Else K-1\->K:K=0\=>4\->K
\IfEnd
2\->K
\IfEnd
K=1\ And I=21\=>1\->L
K=2\ And I=1\=>2\->L
K=3\ And J=9\=>3\->L
K=4\ And J=1\=>4\->L
\If L=0
\Then 0\->L:\If K=1
\Then \Mat B[J,I+1]\<>1\=>1\->L:\IfEnd
\If K=2:\Then \Mat B[J,I-1]\<>1\=>1\->L:\IfEnd
\If K=3:\Then \Mat B[J+1,I]\<>1\=>1\->L:\IfEnd
\If K=4:\Then \Mat B[J-1,I]\<>1\=>1\->L:\IfEnd
\IfEnd
\If L>0
\Then 0\->L:0\->K:N+1\->N
'\Text 58,20,N
\If I>1:\Then \Mat B[J,I-1]=1\=>2\->K:\IfEnd
\If J<9:\Then \Mat B[J+1,I]=1\=>3\->K:\IfEnd
\If J>1:\Then \Mat B[J-1,I]=1\=>4\->K:\IfEnd
\If I<21:\Then \Mat B[J,I+1]=1\=>1\->K:\IfEnd
\If \Int (2\Ran#)=1
\Then \If I>1
\Then \Mat B[J,I-1]=1\=>2\->K:\IfEnd
\IfEnd
\If K=0
\Then \For 1\->P \To 21
\For 1\->Q \To 9
\If \Mat B[Q,P]=1
\Then P\->I:Q\->J
9\->Q:21\->P
\IfEnd
\Next 
\Next 
\IfEnd
\IfEnd
K=1\=>I+1\->I:K=2\=>I-1\->I
K=3\=>J+1\->J:K=4\=>J-1\->J
\If T=0
\Then \Int (3\Ran#)\->S
S=0\=>C-U\->T:S=1\=>D-V\->T
S=2\=>E-W\->T
T=0\=>2\->S:T=0\=>E-W\->T
T=0\=>0\->S:T=0\=>C-U\->T
T=0\=>1\->S:T=0\=>D-V\->T
T>7\=>\Int (4\Ran#)+2\->T
S=2\=>W+T\->W
S=0\=>U+T\->U
S=1\=>V+T\->V
S+2\->S
\IfEnd
T-1\->T
S\->\Mat B[J,I]
K\->O:0\->L
\Next 

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:615
File Name:ATLAMENU
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 58,1,"                                             "
\Text 57,124," "
\If \Mat C[1,1]=3:\Then \Text 58,1,"LAGER TURM":\Text 58,1,"L"
\IfEnd
\If \Mat C[1,1]=2:\Then \Text 58,1,"MINE EVB TURM TEMPEL LAGER  \=>":\Text 58,1,"M":\IfEnd
\If \Mat C[1,1]=1:\Then \Text 58,1,"FORST FARM QUELL STEIN       \=>":\Text 58,96,"ABRISS":\Text 58,122,"\=>"
\IfEnd
\If \Mat C[1,1]=0
\Then \Text 58,1,"INFO BAU STOFFE STAT BOOT ENDE":\Text 58,1,"I":\IfEnd
\If \Mat C[1,1]=4
\Then \Text 58,1,"  ATLANTIS VERSINKT IM MEER":\Text 58,1,"  A"
\IfEnd
\If \Mat C[1,1]=5
\Then \Text 58,1,"ATLANTIS IST IM MEER VERSUNKEN":\Text 58,1,"A"
\IfEnd
\If \Mat C[1,1]=6
\Then \Text 58,1,"PUNKTE :":\Text 58,37,\Mat F[1,7]:\Text 58,1,"P"
\IfEnd
\If \Mat C[1,1]=7
\Then \Green \Text 58,1,"ATLANTIS IST GERETTET !":\Green \Text 58,1,"A"
\IfEnd
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2724
File Name:ATLCHECK
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
F=2\=>A-1\->A
(C-1)/6+1\->N
(B-1)/6+1\->M
\Mat B[N,M]\->O
\If O=3
\Then \If \Mat D[1,7]\<>0
\Then 0\->J
\For N-3\->S \To N+3
\For M-3\->T \To M+3
\If (S>0\ And T>0\ And S<10\ And T<22)
\Then \Mat B[S,T]=16\=>1\->J:\IfEnd
\Next :\Next 
J=0\=>\Return
\If ((A=78\ And \Mat F[1,3]\>=15\ And \Mat F[1,4]\>=10)\ Or A=79\ Or A=49)\ And \Mat F[1,3]\>=4\ And \Mat F[1,4]\>=3:\Then \Mat F[1,3]-4\->\Mat F[1,3]:\Mat F[1,4]-3\->\Mat F[1,4]
A=78\=>\Mat F[1,3]-11\->\Mat F[1,3]:A=78\=>\Mat F[1,4]-7\->\Mat F[1,4]
A=79\=>5\->O
A=49\=>8\->O
A=78\=>11\->O
B\->\Mat Z[1,1]
C\->\Mat Z[2,1]
O\->\Mat Z[3,1]:0\->J
\For N-1\->H \To N+1
\For M-1\->I \To M+1
\If (H\<>0\ And I\<>0\ And H\<>10\ And I\<>22)
\Then \If A=79\ And \Mat B[H,I]=2:\Then J+1\->J
12\->\Mat B[H,I]:\IfEnd
\If A=49\ And \Mat B[H,I]=4:\Then J+1\->J
13\->\Mat B[H,I]:\IfEnd
\If A=78\ And \Mat B[H,I]=4:\Then J+1\->J
14\->\Mat B[H,I]:\IfEnd
\IfEnd:\Next :\Next 
A=79\=>\Mat D[1,1]+J\->\Mat D[1,1]:A=49\=>\Mat D[1,3]+J\->\Mat D[1,3]:A=78\=>\Mat D[1,5]+J\->\Mat D[1,5]:\Prog "ATLZEICH"
\IfEnd
\If A=68\ And \Mat F[1,3]\>=4\ And \Mat F[1,4]\>=10:\Then \Mat F[1,3]-4\->\Mat F[1,3]:\Mat F[1,4]-10\->\Mat F[1,4]:\Mat D[1,6]+1\->\Mat D[1,6]:15\->O:B\->\Mat Z[1,1]:C\->\Mat Z[2,1]:15\->\Mat Z[3,1]:\Prog "ATLZEICH":\IfEnd
\If A=59\ And \Mat F[1,3]\>=2\ And \Mat F[1,4]\>=4
\Then 0\->J
\For N-1\->H \To N+1
\For M-1\->I \To M+1
\If (H\<>0\ And I\<>0\ And H\<>10\ And I\<>22)
\Then \Mat B[H,I]=1\=>1\->J:\IfEnd:\Next :\Next 
J=1\=>\Mat D[1,2]+1\->\Mat D[1,2]
\Mat F[1,3]-2\->\Mat F[1,3]:\Mat F[1,4]-4\->\Mat F[1,4]
7\->O:B\->\Mat Z[1,1]:C\->\Mat Z[2,1]:7\->\Mat Z[3,1]:\Prog "ATLZEICH":\IfEnd
\If A=69\ And \Mat F[1,3]\>=5\ And \Mat F[1,4]\>=5
\Then \Mat F[1,3]-5\->\Mat F[1,3]
\Mat F[1,4]-5\->\Mat F[1,4]
9\->O
B\->\Mat Z[1,1]
C\->\Mat Z[2,1]
9\->\Mat Z[3,1]
\Prog "ATLZEICH"
0\->J:10\->\Mat Z[3,1]
\For N-1\->H \To N+1
\For M-1\->I \To M+1
\If (H\<>0\ And I\<>0\ And H\<>10\ And I\<>22\ And (I\<>M\ Or H\<>N))
\Then \If \Mat B[H,I]=3
\Then J+1\->J
6*I-5\->\Mat Z[1,1]
6*H-5\->\Mat Z[2,1]
10\->\Mat B[H,I]
\Prog "ATLZEICH"
\IfEnd:\IfEnd:\Next :\Next :\Mat D[1,4]+J\->\Mat D[1,4]:\IfEnd
\IfEnd
\If A=48\ And \Mat F[1,3]\>=20\ And \Mat F[1,4]\>=35:\Then \Mat F[1,3]-20\->\Mat F[1,3]:\Mat F[1,4]-35\->\Mat F[1,4]:17\->O:O\->\Mat Z[3,1]:B\->\Mat Z[1,1]:C\->\Mat Z[2,1]:\Mat F[1,7]+10\->\Mat F[1,7]:\Mat D[1,10]+1\->\Mat D[1,10]:\Prog "ATLZEICH":\IfEnd
\If A=38\ And \Mat F[1,3]\>=10\ And \Mat F[1,4]\>=6:\Then 16\->O
\Mat F[1,3]-10\->\Mat F[1,3]:\Mat F[1,4]-6\->\Mat F[1,4]:\Mat D[1,7]+1\->\Mat D[1,7]:B\->\Mat Z[1,1]:C\->\Mat Z[2,1]:O\->\Mat Z[3,1]:\Prog "ATLZEICH":\IfEnd
\Else \If A=39\ And O\<>1\ And O\<>4\ And O\<>13\ And O\<>14
\Then \For B\->H \To B+5
\For C\->I \To C+5
\PxlOff I,H
\Next :\Next 
\Mat Z[4,1]=0\=>\PxlOn C,B:\Mat Z[4,1]=0\=>\PxlOn C+5,B+5:B\->\Mat Z[1,1]
C\->\Mat Z[2,1]
3\->\Mat Z[3,1]
\If O=17
\Then \Mat D[1,10]-1\->\Mat D[1,10]:\Mat F[1,7]-10\->\Mat F[1,7]:\Mat D[1,8]>5*\Mat D[1,10]\=>5*\Mat D[1,10]\->\Mat D[1,8]:\IfEnd
O=10\=>\Mat D[1,4]-1\->\Mat D[1,4]
O=16\=>\Mat D[1,7]-1\->\Mat D[1,7]
O=12\=>\Mat D[1,1]-1\->\Mat D[1,1]
O=7\=>\Mat D[1,2]-1\->\Mat D[1,2]
O=15\=>\Mat D[1,6]-1\->\Mat D[1,6]
\If O=5\ Or O=8\ Or O=11\ Or O=9:\Then 0\->J
\For M-1\->I \To M+1
\For N-1\->H \To N+1
\If \Not (H=0\ Or I=0\ Or H=10\ Or I=22)
\Then 0\->R
\For I-1\->Q \To I+1
\For H-1\->P \To H+1
\If (Q<22\ And P<10\ And Q>0\ And P>0)
\Then \Mat B[P,Q]=O\=>R+1\->R
\IfEnd
\Next :\Next 
\If R=1
\Then \If O=5\ And \Mat B[H,I]=12:\Then J+1\->J:2\->\Mat B[H,I]:\IfEnd
\If O=9\ And \Mat B[H,I]=10:\Then J+1\->J:3\->\Mat B[H,I]:6*H-5\->S:6*I-5\->T:\PxlOff S+1,T+1:\PxlOff S+1,T+3:\PxlOff S+2,T+2:\PxlOff S+2,T+4:\PxlOff S+3,T+1:\PxlOff S+3,T+3:\PxlOff S+4,T+2:\PxlOff S+4,T+4:\PxlOff S+4,T+4:\IfEnd
\If O=8\ And \Mat B[H,I]=13:\Then J+1\->J:4\->\Mat B[H,I]:\IfEnd
\If O=11\ And \Mat B[H,I]=14:\Then J+1\->J:4\->\Mat B[H,I]:\IfEnd
\IfEnd:\IfEnd
\Next :\Next 
O=5\=>\Mat D[1,1]-J\->\Mat D[1,1]
O=8\=>\Mat D[1,3]-J\->\Mat D[1,3]
O=11\=>\Mat D[1,5]-J\->\Mat D[1,5]
\If O=9
\Then \Mat D[1,4]-J\->\Mat D[1,4]
\Mat D[1,4]<2*\Mat D[1,8]\=>\Int (\Mat D[1,4]/2)\->\Mat D[1,8]
\IfEnd:\IfEnd
\Mat Z[4,1]=1\=>1\->\Mat Z[3,1]
\Prog "ATLZEICH"
\StoPict 1
\Mat Z[3,1]\->O
\IfEnd
\IfEnd
O\->\Mat B[N,M]
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:880
File Name:ATLANTIK
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
4\->\Mat C[1,1]
\Prog "ATLAMENU"
\Do
\Int (21\Ran#)+1\->I
\Int (9\Ran#)+1\->H
\LpWhile \Mat B[H,I]=1
\Int (4\Ran#)\->\theta:0\->\r
\Do
\Int (6\Ran#)=0\=>\theta+1\->\theta
\theta=4\=>0\->\theta
\theta=0\=>H+1\->H:H>9\=>9\->H
\theta=1\=>I+1\->I:I>21\=>21\->I
\theta=2\=>H-1\->H:H<1\=>1\->H
\theta=3\=>I-1\->I:I<1\=>1\->I
\If \Mat B[H,I]=1
\Then \theta=0\=>H-1\->H
\theta=1\=>I-1\->I
\theta=2\=>H+1\->H
\theta=3\=>I+1\->I
1\->\r
\IfEnd
\LpWhile \r=0
H\->\r:I\->\theta
\If (\Mat B[H,I]\>=5\ And \Mat B[H,I]\<=12)\ Or \Mat B[H,I]\>=15
\Then 39\->A:F\->L:1\->F:B\->\r:C\->\theta:6H-5\->C:6I-5\->B
1\->\Mat Z[4,1]
\Prog "ATLCHECK"
L\->F:\r\->B:\theta\->C
\Else \For 6H-5\->S \To 6H:\For 6I-5\->T \To 6I
\PxlOff S,T
\Next :\Next 
6I-5\->\Mat Z[1,1]
6H-5\->\Mat Z[2,1]
1\->\Mat Z[3,1]
\Prog "ATLZEICH"
\Mat B[H,I]=13\=>\Mat D[1,3]-1\->\Mat D[1,3]
\Mat B[H,I]=14\=>\Mat D[1,5]-1\->\Mat D[1,5]
1\->\Mat B[H,I]
\IfEnd
\Mat D[1,11]-1\->\Mat D[1,11]
\Mat D[1,11]=0\=>5\->\Mat C[1,1]:\Mat D[1,11]\<>0\=>F\->\Mat C[1,1]
\Prog "ATLAMENU"
\If \Mat D[1,11]=0
\Then \For 1\->F \To 60
\Next 
\Do
\LpWhile \Not \Getkey
6\->\Mat C[1,1]
\Prog "ATLAMENU"
\Stop
\IfEnd
\r\->H:\theta\->I:0\->J
\For H-1\->P \To H+1
\For I-1\->Q \To I+1
\If (P>0\ And Q>0\ And P<10\ And Q<22)
\Then \If \Mat B[P,Q]=7
\Then \For P-1\->M \To P+1:\For Q-1\->N \To Q+1
\If \Not (M=0\ Or N=0\ Or M=10\ Or N=22)
\Then \Mat B[M,N]=1\=>J+1\->J:\IfEnd:\Next :\Next 
J=1\=>\Mat D[1,2]+1\->\Mat D[1,2]
\IfEnd
\IfEnd:\Next :\Next 
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1007
File Name:ATLAINFO
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
(C-1)/6+1\->N
(B-1)/6+1\->M
0\->\r:\Mat B[N,M]\->L
\If L=16:\Then \Locate 6,1,"Lagerhaus":\IfEnd
\If L=17
\Then \Locate 8,1,"Tempel":\Locate 1,3,"> Neuer Priester(  )":\Locate 18,3,\Mat D[1,8]:\Locate 3,4,"Opferfest":\Locate 3,5,"Ehrensaeule"
3\->\theta
\Do
\Getkey\->\r
\If \r:\Then \Locate 1,\theta,"  ":\r=37\=>\theta+1\->\theta:\r=28\=>\theta-1\->\theta:\theta=2\=>5\->\theta:\theta=6\=>3\->\theta:\Locate 1,\theta,"> "
\If \r=31
\Then \If \theta=3\ And \Mat F[1,2]\>=20\ And \Mat D[1,4]>2*\Mat D[1,8]\ And 5*\Mat D[1,10]>\Mat D[1,8]:\Then \Mat F[1,2]-20\->\Mat F[1,2]:\Mat D[1,8]+1\->\Mat D[1,8]:\Locate 18,3,\Mat D[1,8]:\IfEnd
\If \theta=4\ And \Mat F[1,2]\>=10\ And \Mat F[1,3]\>=5
\Then \Locate 2,\theta,">":\Mat F[1,2]-10\->\Mat F[1,2]:\Mat F[1,3]-5\->\Mat F[1,3]:\Mat F[1,7]+5\->\Mat F[1,7]
\IfEnd
\If \theta=5\ And \Mat F[1,4]\>=15\ And \Mat F[1,6]\>=10:\Then \Locate 2,\theta,">"
\Mat F[1,4]-15\->\Mat F[1,4]:\Mat F[1,6]-10\->\Mat F[1,6]:\Mat F[1,7]+7\->\Mat F[1,7]:\IfEnd:\IfEnd:\IfEnd
\LpWhile \r\<>47
47\->\r
\IfEnd
\If (L\>=5\ And L\<=9)\ Or L=11\ Or L=15
\Then \ClrText
\Locate 2,3,"Produktion :":\If L=5
\Then \Locate 9,1,"F\orst":\Locate 15,3,\Mat D[1,1]:\IfEnd
\If L=8
\Then \Locate 7,1,"Steinbruch":\Locate 15,3,\Mat D[1,3]:\IfEnd
\IfEnd
\If L=7
\Then \Locate 8,1,"Quelle":\Locate 15,3,4*\Mat D[1,2]:\IfEnd
\If L=11
\Then \Locate 9,1,"Mine":\Locate 15,3,\Mat D[1,5]:\IfEnd
\If L=15
\Then \Locate 7,1,"Schmiede":\Locate 15,3,4*\Mat D[1,6]:\IfEnd
\If L=9
\Then \Locate 10,1,"Farm":\Locate 15,3,\Mat D[1,4]:\IfEnd
\If \Not ((L\>=1\ And L\<=4)\ Or L=10\ Or L=12\ Or L=13\ Or L=14):\Then \Do:\LpWhile (\Getkey\<>47\ And \r=0)
\IfEnd
\Return


%End