10 ! ATLANTIS.800
20 REM Baserat p} ett miniadventure listat i Your Computer sept 83
30 REM av John Ransley. Sv. adapt. B M}rtensson W & M 1983.
40 REM ABC 800-806 80 tecken.
50 REM ===================
60 REM VARIABLER: L=Plats, M = Gruva, RO = bl{ckfiskradnr
70 REM CO=Bl{ckfiskkolumnnr, R=rad, c= kolumn, SQ=aktuell ruta
80 REM RS = lagrad rad, CS = lagrad kolumn, M$=handling, RR=slumprisk.
90 SINGLE : FLOAT : EXTEND : RANDOMIZE 
100 C$=CHR$(12)
110 ; C$ "ATLANTIS.800"
120 ; 
130 ; "Du {r en dykare som gett dig ut i S|derhavet f|r att s|ka Atlantis"
140 ; "och dess gyllene krona. Kan du hitta den? Det lurar en del faror i"
150 ; "vattnen. Bl{ckfiskar, t. ex. Och kompassen {r inte att lita p} helt"
160 ; "i varje |gonblick. Spelet slutar om du avlider eller kommer utanf|r"
170 ; "s|komr}det. Lycka till! Det kommer att beh|vas."
175 ; 
180 DIM L(10,10)
190 ! INITIERING AV PLATSER 
200 M=2
210 FOR I=1 TO 10
220   FOR J=1 TO 10
230     L(I,J)=0
240   NEXT J 
250 NEXT I 
260 FOR I=1 TO 6
270   READ R,C
280   L(R,C)=1
290 NEXT I 
300 FOR I=1 TO 6
310   READ R,C
320   L(R,C)=2
330 NEXT I 
340 L(2,3)=3
350 L(3,9)=4
360 L(5,7)=5
370 L(6,1)=6
380 L(7,4)=7
390 L(8,8)=8
400 L(6,5)=9
410 R=INT(RND*10)+1
420 C=INT(RND*10)+1
430 REM ==== HUVUDSLINGA =======
440 ; "Du simmar fram ";
450 Sq=L(R,C)+1
460 ON Sq GOSUB 470,480,490,500,510,520,530,540,550 : GOTO 570
470 ; "|ver b|ljande sanddyner." : RETURN 
480 ; "|ver ur}ldriga stenruiner." : RETURN 
490 ; "|ver sk{ra korallrev." : RETURN 
500 ; "n{ra ett tropiskt fiskstim." : RETURN 
510 ; "intill ett hitsk|ljt valskelett." : RETURN 
520 ; "|ver ett gammalt suggestivt skeppsvrak." : RETURN 
530 ; "ovanf|r ATLANTIS tinnar." : RETURN 
540 ; "alldeles intill en j{ttebl{ckfisk!" : RETURN 
550 ; "|ver ett gammalt ankare." : RETURN 
560 REM VAL AV HANDLING
570 Rs=R : Cs=C
580 ; "]t vilket v{derstreck simmar du (N,S,\,V)? ";
590 GET M$ : ; : ; : IF M$="" THEN 590
600 IF M$="s" OR M$="n" OR M$="|" OR M$="v" GOTO 580
610 IF M$="N" THEN R=R-1 : GOSUB 710
620 IF M$="S" THEN R=R+1 : GOSUB 710
630 IF M$="\" THEN C=C+1 : GOSUB 670
640 IF M$="V" THEN C=C-1 : GOSUB 670
650 GOTO 800
660 REM KOMPASSFEL
670 Sq=INT(RND*10)+1
680 IF Sq>2 THEN RETURN 
690 IF Sq=1 THEN C=C+1 : RETURN 
700 C=C-1 : RETURN 
710 Sq=INT(RND*10)+1
720 IF Sq>2 THEN RETURN 
730 IF Sq=1 THEN R=R+1 : RETURN 
740 R=R-1 : RETURN 
750 REM BL[CKFISK
760 Ro=INT(RND*10)+1
770 Co=INT(RND*10)+1
780 IF R=Ro AND C=Co THEN ; CHR$(7) "Bl{ckfisken tog dig!" : GOTO 880
790 REM HITTAT KRONAN?
800 IF R<1 OR R>10 OR C<1 OR C>10 GOTO 830
810 IF L(R,C)=9 ; "Lycklige dykare. Du fann skatten!" : GOTO 880
820 GOTO 440
830 ; ">>> Du {r ur kurs!" CHR$(7)
840 Rr=INT(RND*10)+1
850 IF Rr>Mr ; "Du klarade det inte!" : GOTO 880
860 Mr=Mr+3 : ; "Du l|per nu stor risk"
870 ; "att s{tta av minan. Se upp!" : GOTO 580
880 ; : ; "Vill du f|rs|ka igen? (J/N)? ";
890 GET G$ : IF G$="" THEN 890
900 IF G$="J" ; C$ : GOTO 410
910 ; "Tack f|r dykningen."
920 ; "HEJ & H] JUNGMAN JASON...."
930 END 
940 REM --- RUIN-DATA
950 DATA 1,1,3,6,4,2,5,10,10,3,10,9
960 REM ---- CORAL-DATA
970 DATA 1,5,1,3,4,4,7,9,8,1,9,5