55 IF S THEN 560
100 CALL CLEAR
110 CALL SCREEN(2)
115 CALL CHAR(64,"3C4299A1A199423C")
120 CALL CHAR(93,"00100038447C4444")
130 CALL CHAR(91,"00280038447C4444")
140 CALL CHAR(92,"0028007C4444447C")
150 CALL CHAR(96,"00FEFEFE00EFEFEF")
160 CALL CHAR(42,"0705060302091711")
170 CALL CHAR(43,"C040CA848830C000")
180 CALL CHAR(44,"17112B0200020006")
190 CALL CHAR(45,"C0008080008000C0")
200 FOR T=2 TO 8
210 CALL COLOR(T,2,2)
220 NEXT T
230 CALL COLOR(9,2,2)
240 PRINT "*+*+*+*+*+*+*+*+*+*+*+*+*+*+":",-,-,-,-,-,-,-,-,-,-,-,-,-,-"
245 PRINT
250 PRINT "   `` ` ` `` `  `  `` `````"
260 PRINT "   `  ` ` `  `  `  `   ` `"
270 PRINT "   `` ``  `` `  `  ``  ` `"
280 PRINT "    ` ` ` `  `  `  `   ` `"
290 PRINT "   `` ` ` `` `` `` ``  ` `"
295 PRINT
300 PRINT " ``` ``` ``` ````` ``` `  `"
310 PRINT " `   ` ` ` `  ` `  ` ` `` `"
320 PRINT " ` ` ``  ` `  ` `  ``` `` `"
330 PRINT " ` ` ` ` ` `  ` `  ` ` ````"
340 PRINT " ``` ` ` ```  ` `  ` ` ` ``"
345 PRINT "   ` `               ` ` ``"
370 PRINT " ` `                   `  `"
390 PRINT " ```  AV MARTIN FLORIN    `"
395 PRINT
410 PRINT "    OCH FREDRIK NILSSON"
420 PRINT
450 PRINT "           @1985"
454 PRINT
455 PRINT "*+*+*+*+*+*+*+*+*+*+*+*+*+*+"
456 FOR T=3 TO 29 STEP 2
457 CALL HCHAR(24,T,44)
458 CALL HCHAR(24,T+1,45)
459 NEXT T
460 FOR T=2 TO 22 STEP 4
470 CALL HCHAR(T,1,42)
475 CALL HCHAR(T,2,43)
480 CALL HCHAR(T+1,1,44)
485 CALL HCHAR(T+1,2,45)
490 CALL HCHAR(T,32,43)
500 CALL HCHAR(T+1,32,45)
504 CALL HCHAR(T+1,31,44)
506 CALL HCHAR(T,31,42)
510 NEXT T
520 FOR T=2 TO 8
530 CALL COLOR(T,16,2)
540 NEXT T
550 CALL COLOR(9,7,2)
555 M=0
556 V=0
560 FOR T=1 TO 38
570 READ A,B,C
580 CALL SOUND(A*2,B,V,C,V)
590 CALL KEY(0,K,S)
595 V=V+M
596 IF V=30 THEN 640
600 IF S=0 THEN 610 ELSE 635
610 NEXT T
620 RESTORE 1650
630 GOTO 560
635 M=3
636 GOTO 610
640 CALL CLEAR
645 FOR T=2 TO 8
650 CALL COLOR(T,2,2)
660 NEXT T
670 CALL COLOR(9,2,2)
680 PRINT "````````````````````````````"
690 PRINT "`                          `"
700 PRINT "` I DEN LILLA BYN TR\x5cSTL\x5cSA`"
710 PRINT "` BOR DU I LUGN OCH RO.    `"
720 PRINT "` MEN EN NATT BLIR BYN     `"
730 PRINT "` ANFALLEN AV SKELLETTEN   `"
740 PRINT "` FR]N SKELLETTGROTTAN.    `"
750 PRINT "`  F\x5cR L[NGE SEDAN S] STOD `"
760 PRINT "` DET ETT KRIG MELLAN BYN  `"
770 PRINT "` OCH SKELLETTEN.          `"
780 PRINT "` D] BLEV ALLA SKELLETT    `"
790 PRINT "` D\x5cDADE.(TRODDE NI) N]GRA `"
800 PRINT "` M]STE DOCK HA \x5cVERLEVT   `"
810 PRINT "` OCH BEST[MTS SIG F\x5cR ATT `"
820 PRINT "` H[MNAS. 16 STYCKEN BLIR  `"
830 PRINT "` D\x5cDADE OCH DE S[TTER ELD `"
840 PRINT "` P] BYN. DE STJ[L OCKS]   `"
850 PRINT "` ALLT GULD SOM BYN [GER.  `"
860 PRINT "` N]GON M]STE G] TILL      `"
870 PRINT "` GROTTAN OCH TA TILLBAKA  `"
880 PRINT "` GULDET. BYN UTSER DIG.   `"
890 PRINT "` TRYCK P] N]GON TANGENT.  `"
900 PRINT "`                          `"
910 FOR T=2 TO 8
920 CALL COLOR(T,16,2)
930 NEXT T
940 CALL COLOR(11,16,2)
950 CALL COLOR(9,7,2)
960 RESTORE 1650
970 FOR T=1 TO 38
980 READ A,B,C
990 CALL SOUND(A*2,B,0,C,0)
1000 CALL KEY(0,K,S)
1010 IF S=0 THEN 1020 ELSE 1050
1020 NEXT T
1030 RESTORE 1650
1040 GOTO 970
1050 PRINT "`                          `"
1060 PRINT "`                          `":"`                          `"
1070 PRINT "` DU STYR DIN KRIGARE MED  `"
1080 PRINT "`                          `"
1090 PRINT "`          e=UPP.          `"
1100 PRINT "`                          `"
1110 PRINT "` s=H\x5cGER.      d=V[NSTER. `"
1120 PRINT "`                          `"
1130 PRINT "`          m=NER.          `"
1140 PRINT "`      q=B\x5cRJA OM          `"
1150 PRINT "` DET FINNS 5 OLIKA VAPEN  `"
1160 PRINT "` OCH MONSTER. MED ETT     `"
1170 PRINT "` VAPEN I GULT S] D\x5cDAR    `"
1180 PRINT "` MAN ETT MONSTER I SAMMA  `"
1190 PRINT "` F[RG. DET FINNS OCKS] 5  `"
1200 PRINT "` OLIKA NYCKLAR OCH D\x5cRRAR `"
1210 PRINT "` D[R EN GUL NYCKEL \x5cPPNAR `"
1220 PRINT "` EN GUL D\x5cRR. ETT SV[RD   `"
1230 PRINT "` ELLER EN NYCKEL KAN DOCK `"
1240 PRINT "` ENDAST ANV[NDAS EN G]NG. `"
1250 PRINT "` TRYCK P] N]GON TANGENT.  `"
1260 RESTORE 1650
1270 FOR T=1 TO 38
1280 READ A,B,C
1290 CALL SOUND(A*2,B,0,C,0)
1300 CALL KEY(0,K,S)
1310 IF S=0 THEN 1320 ELSE 1340
1320 NEXT T
1330 GOTO 1260
1340 PRINT "` OM MAN ANFALLER ETT      `":"` MONSTER UTAN ATT HA ETT  `"
1350 PRINT "` SV[RD S] D\x5cR MAN. OM DU  `"
1360 PRINT "` HAMNAR I EN F[LLA(SOM    `"
1370 PRINT "` DET FINNS GOTT OM) S]    `"
1380 PRINT "` TRYCK: q. SEDAN: J/B\x5cRJA `"
1390 PRINT "` OM. N/SLUTA. OM DU D\x5cR   `":"` TRYCK: J/N.              `"
1400 PRINT "`                          `":"` N[R DU KOMMER TILL       `"
1410 PRINT "` SKATTEN S] HAR DU        `"
1420 PRINT "` VUNNIT!                  `"
1470 PRINT "` TRYCK P] N]GON TANGENT   `"
1480 PRINT "` SKRIV NU                 `"
1490 PRINT "` CALL FILES(1)            `"
1500 PRINT "` OLD DSK1.SKELGAME        `"
1520 PRINT "` RUN                      `"
1530 PRINT "````````````````````````````"
1540 RESTORE 1650
1550 FOR T=1 TO 38
1560 READ A,B,C
1570 CALL SOUND(A*2.5,B,0,C,0)
1580 CALL KEY(0,K,S)
1590 IF S=0 THEN 1600 ELSE 1630
1600 NEXT T
1610 RESTORE 540
1620 GOTO 1550
1630 END
1650 DATA 200,415,139,100,415,139,100,370,156,200,330,165,200,277,185,200,370,208,200,415,277
1660 DATA 200,440,247,200,523,220,200,554,208,100,494,208,100,440,185,200,165,415,200,370,156
1670 DATA 200,415,139,200,330,110,200,311,123,200,247,123,200,277,139,100,330,139,100,330,156
1680 DATA 200,415,165,200,554,185,200,622,415,200,659,277,200,622,247,200,494,220,200,330,208
1690 DATA 100,330,277,100,330,247,200,311,220,100,277,208,100,277,185,200,247,165,100,311,156
1700 DATA 100,311,123,200,277,110,200,330,110,200,200,200,200,200,200