7 POKE 752,1:SETCOLOR 2,1,0:SETCOLOR 4,1,0:? "Bitte einen Moment Geduld!"
100 DIM A$(44),RX(4),RY(4),CO(4),SL(39),WG(39):CH=(PEEK(106)-8)*256:IF PEEK(203)<>0 THEN 11000
110 FOR A=1 TO 44:READ B:A$(A)=CHR$(B):NEXT A
120 DATA 104,201,3,208,254,162,6,104,149,211,202,208,250,230,212,230,213,198,212,208,4,198
130 DATA 213,240,18,161,216,129,214,230,216,208,2,230,217,230,214,208,234,230,215,208,230,96
140 Q=USR(ADR(A$),57344,CH,895):RESTORE 32000
150 READ B:IF B=-1 THEN POKE 203,1:GOTO 11000
160 FOR A=0 TO 7:READ C:POKE CH+B*8+A,C:NEXT A:GOTO 150
200 RESTORE 210:FOR A=0 TO 39:READ B:SL(A)=B:NEXT A
210 DATA 13,13,14,15,15,16,16,16,15,16,17,17,17,17,17,17,16,15,14,15,16,16,16,16,16,17,17,17,17,17,17,17
220 DATA 18,18,18,17,15,14,13,13
230 FOR A=0 TO 39:READ B:WG(A)=B:NEXT A:RETURN 
240 DATA 0,0,0,2,2,0,1,0,1,0,0,3,3,3,3,0,1,0,4,0,0,3,3,3,3,0,5,5,5,5,5,5,0,2,2,0,1,0,0,0
1000 GRAPHICS 28:POKE 752,1:POKE 82,0:POKE 708,54:POKE 710,164:POKE 709,252:POKE 711,150:POKE 756,CH/256
1010 DL=PEEK(560)+256*PEEK(561)
1020 POKE DL+28,2:POKE DL+6,2
1030 POSITION 0,14:? #6;CHR$(219);CHR$(220):POSITION 38,14:? #6;CHR$(221);CHR$(222);
1040 ? #6;"%%#               &                  $%%";
1050 ? #6;"%%%*+   ";CHR$(223);"        $%#                ";CHR$(223);"%%%";
1060 ? #6;"%%%%%#'$%#      '%%%#";CHR$(172);CHR$(173);CHR$(174);CHR$(175);"           %%%%";
1070 ? #6;"%%%%%%%%%%#,-./$%%%%%%%%%#()()()   $%%%%";
1080 ? #6;"%%%%%%%%%%%%%%%%%%%%%%%%%%%#  $%#*+%%%%%";
1090 ? #6;"%%%%%%%%%%%%%%%%%%%%%%%%%%%%#$%%%%%%%%%%";
1100 COLOR 37:PLOT 0,21:DRAWTO 39,21:PLOT 0,22:DRAWTO 39,22
1110 POSITION 4,23:? #6;"A T L A N T I S    BY JENS BERKE"
1120 POSITION 12,1:? #6;"SCORE : 0"
1130 SC=0:AR=0:AG=10:KF=1
1140 GOSUB 200:SOUND 3,255,12,1
2000 GOSUB 5000:GOSUB 3000:IF AR=0 THEN 2000
2010 N=N+1:IF N>AR THEN N=1
2020 COLOR 32:PLOT RX(N),RY(N):RX(N)=RX(N)+1+(CO(N)=34)
2030 IF RX(N)=40 THEN RX(N)=0:RY(N)=RY(N)+2:IF RY(N)>11 THEN RY(N)=5
2040 COLOR CO(N):PLOT RX(N),RY(N)
2050 SZ=SZ+RND(0)/3+SG/5:IF SZ<10 THEN 2000
2060 SZ=0:A=INT(RND(0)*AR)+1
2070 COLOR 60:PLOT RX(A),RY(A)+1:DRAWTO RX(A),SL(RX(A)):SOUND 0,155,12,4
2080 GOSUB 7000:SOUND 0,0,0,0
2090 COLOR 32:PLOT RX(A),RY(A)+1:DRAWTO RX(A),POS:GOTO 2000
3000 IF SF=1 THEN GOSUB 4000:RETURN 
3010 IF STRIG(0) THEN RETURN 
3020 SO=6:SF=1:ST=STICK(0):IF ST>12 AND KF THEN 3080
3030 IF ST<8 THEN 3070
3040 IF ST>8 AND ST<12 THEN 3060
3050 SF=0:RETURN 
3060 ZX=-1:SX=1:SY=13:CO=6:GOTO 3000
3070 ZX=1:SX=38:SY=13:CO=7:GOTO 3000
3080 ZX=0:SX=18:SY=14:CO=62:GOTO 3000
4000 COLOR 32:PLOT SX,SY:SX=SX-ZX:SY=SY-1:SO=SO+2:SOUND 2,SO,0,2
4010 IF SY=4 THEN SF=0:SOUND 2,0,0,0:RETURN 
4020 LOCATE SX,SY,Z:IF Z>32 AND Z<35 THEN SOUND 2,0,0,0:GOTO 6000
4030 COLOR CO:PLOT SX,SY:RETURN 
5000 IF AR=4 THEN RETURN 
5010 RZ=RZ+RND(0)+SG/5:IF RZ<7 THEN RETURN 
5020 RZ=0:AR=AR+1:RX(AR)=0:RY(AR)=5:CO(AR)=33:IF RND(0)<(SG+1)/10 THEN CO(AR)=34
5030 RETURN 
6000 FOR A=1 TO AR:IF RX(A)=SX AND RY(A)=SY THEN 6020
6010 NEXT A
6020 COLOR 64:PLOT RX(A),RY(A):FOR B=0 TO 100 STEP 5:SOUND 0,B,0,10:NEXT B:SOUND 0,0,0,0
6030 COLOR 32:PLOT RX(A),RY(A)
6040 FOR B=A TO AR-1:RX(B)=RX(B+1*(B<4)):RY(B)=RY(B+1*(B<4)):CO(B)=CO(B+1*(B<4)):NEXT B
6050 AR=AR-1:SC=SC+20+30*(Z=34):SG=SG+0.02*(SG<>5):GOSUB 9000:SF=0:RZ=0
6060 IF KF=0 THEN SCF=SCF+20+30*(Z=34):IF SCF>(SG*2+1)*100 THEN GOSUB 10000
6070 RETURN 
7000 POS=SL(RX(A)):ON WG(RX(A)) GOTO 7100,7200,7300,7400,7500
7010 RETURN 
7100 C=RX(A):COLOR 64:PLOT C,POS+1:SOUND 0,150,10,2
7110 FOR B=0 TO 100 STEP 2:SOUND 1,B,0,8:NEXT B:SOUND 0,0,0,0:SOUND 1,0,0,0
7120 COLOR 32:PLOT C,POS+1:D=0:GOTO 8000
7200 IF RX(A)<5 THEN C=3:GOTO 7220
7210 C=33
7220 COLOR 64:PLOT C,POS+1:PLOT C+1,POS+1
7230 FOR B=1 TO 20:SOUND 0,RND(0)*100,0,6:NEXT B:SOUND 0,0,0,0
7240 COLOR 32:PLOT C,POS+1:PLOT C+1,POS+1:D=1:GOTO 8000
7300 IF RX(A)<15 THEN C=11:GOTO 7320
7310 C=21
7320 COLOR 189:PLOT C,POS+1:DRAWTO C+3,POS+1
7330 FOR B=0 TO 50 STEP 2:SOUND 0,B,0,6:SOUND 1,B,12,6:NEXT B:SOUND 0,0,0,0:SOUND 1,0,0,0
7340 COLOR 32:PLOT C,POS+1:DRAWTO C+3,POS+1:D=3:GOTO 8000
7400 C=18
7410 COLOR 189:PLOT C,POS+1:FOR B=255 TO 0 STEP -15:SOUND 0,B,0,8:NEXT B:SOUND 0,0,0,0
7420 COLOR 32:PLOT C,POS+1:D=0:KF=0:SCF=0:GOTO 8000
7500 C=26
7510 COLOR 64:PLOT C,POS+1:DRAWTO C+5,POS+1
7520 FOR B=0 TO 100 STEP 5:SOUND 0,B+90,10,2:SOUND 1,B,12,6:NEXT B:SOUND 0,0,0,0:SOUND 1,0,0,0
7530 COLOR 32:PLOT C,POS+1:DRAWTO C+5,POS+1:D=5:GOTO 8000
8000 FOR B=C TO C+D:SL(B)=SL(B)+1:WG(B)=0:NEXT B:AG=AG-1
8010 IF AG=0 THEN POP :GOTO 12000
9000 POSITION 20,1:? #6;SC:RETURN 
10000 COLOR 38:PLOT 18,15:WG(18)=4:SL(18)=14:KF=1:AG=AG+1
10010 FOR B=50 TO 0 STEP -3:SOUND 0,B,10,5:SOUND 1,B+1,10,5:NEXT B:SOUND 0,0,0,0:SOUND 1,0,0,0
10020 RETURN 
11000 GRAPHICS 4:POKE 712,252:POKE 710,252:POKE 709,0:POKE 708,38:POKE 752,1:POKE 82,0:? CHR$(125)
11010 SC=PEEK(88)+256*PEEK(89)
11020 COLOR 1:PLOT 0,15:DRAWTO 79,15:DRAWTO 79,24:DRAWTO 0,24:DRAWTO 0,15
11030 RESTORE 11130:FOR A=0 TO 7:READ C:FOR B=0 TO 7
11040 POKE SC+161+A+B*10,PEEK(57344+C*8+B):SOUND 0,7-B,10,8:NEXT B:SOUND 0,0,0,0:NEXT A
11050 ? "         1984 by Jens Berke":? "     Select skill level : NOVICE"
11060 ? "      then press START";
11070 A$="NOVICE  SKILLED ADVANCEDEXPERT  ":SG=0:FOR A=1 TO 4:? CHR$(31);:NEXT A:? CHR$(28);
11080 IF PEEK(53279)=6 THEN 1000
11090 IF PEEK(53279)<>5 THEN 11080
11100 SG=SG+1:IF SG=4 THEN SG=0
11110 POSITION 26,22:? A$(SG*8+1,SG*8+8);"   ";
11120 FOR A=1 TO 11:? CHR$(30);:NEXT A:FOR A=1 TO 50:NEXT A:GOTO 11080
11130 DATA 33,52,44,33,46,52,41,51
12000 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0
12010 POKE DL+14,2:POKE DL+16,2:POSITION 11,9:? #6;"G A M E    O V E R"
12020 FOR A=0 TO 160:SOUND 0,A,A,6:NEXT A:SOUND 0,0,0,0
12030 ? #6:? #6;"   DRUECKE START FUER EIN NEUES SPIEL"
12040 IF PEEK(53279)=6 THEN RUN 
12050 GOTO 12040
32000 DATA 1,0,0,0,80,69,20,0,0
32010 DATA 2,0,0,20,65,85,20,0,0
32020 DATA 3,0,240,240,240,252,252,255,255
32030 DATA 4,3,15,15,15,63,255,255,255
32040 DATA 5,255,255,255,255,255,255,255,255
32050 DATA 6,0,40,40,40,130,170,130,170
32060 DATA 7,0,32,152,32,152,32,152,32
32070 DATA 8,0,1,1,4,4,16,64,85
32080 DATA 9,64,80,80,68,68,65,64,85
32090 DATA 10,0,0,5,6,5,22,21,21
32100 DATA 11,0,0,80,144,80,148,84,84
32110 DATA 12,0,0,2,8,32,33,129,143
32120 DATA 13,10,160,1,1,49,49,125,255
32130 DATA 14,160,10,0,12,12,172,15,255
32140 DATA 15,0,0,128,32,8,72,66,242
32150 DATA 28,40,40,40,40,40,40,40,40
32160 DATA 30,40,60,40,60,40,60,40,60
32170 DATA 32,0,4,65,16,4,64,17,0
32180 DATA 59,0,0,0,0,3,3,15,51
32190 DATA 60,48,48,192,192,15,51,255,51
32200 DATA 61,12,12,3,3,48,204,255,204
32210 DATA 62,0,0,0,0,192,192,240,204
32220 DATA 63,0,12,29,12,29,12,29,12
32230 DATA 29,0,32,2,192,12,2,128,32,-1
32767 REM