5 CALL CLEAR :: CALL VCHAR(1,31,30,96) :: CALL SCREEN(5) :: CALL COLOR(0,5,5) :: FOR T=1 TO 14 :: CALL COLOR(T,16,8) :: NEXT T
10 PRINT "    ** THE STONE **":::"          AV"::"   FREDRIK NILSSON"::"         MUSIK"
20 PRINT::"    MARTIN FLORIN":::" INSPELNINGEN AV FILEN TAR"::" CIRKA 210 SEKUNDER."
90 DIM L(212),F1(212),F2(212),F3(212),TRU(212)
120 OPEN#1:"DSK1.MUSIC",SEQUENTIAL,INPUT,INTERNAL,FIXED 184
130 FOR T=1 TO 15
140 INPUT#1:VAR$
150 FOR P=1 TO 14
160 C=C+1
170 GOSUB 1000
220 NEXT P
230 NEXT T
240 INPUT#1:VAR$
250 FOR P=1 TO 2
260 C=C+1
270 GOSUB 1000
280 NEXT P
285 CLOSE#1
286 GOTO 500
290 S1=1 :: S2=16 :: GOSUB 2000
300 FOR T=1 TO 3 :: S1=17 :: S2=28 :: GOSUB 2000
305 NEXT T
310 S1=29 :: S2=44 :: GOSUB 2000
320 FOR T=1 TO 2 :: S1=45 :: S2=92 :: GOSUB 3000 :: NEXT T
330 FOR T=1 TO 2 :: S1=93 :: S2=120 :: GOSUB 4000 :: NEXT T
340 S1=121 :: S2=124 :: GOSUB 4000
350 S1=33 :: S2=44 :: GOSUB 2000
360 S1=45 :: S2=68 :: GOSUB 3000
370 S1=45 :: S2=66 :: GOSUB 3000
380 S1=125 :: S2=126 :: GOSUB 3000
390 S1=127 :: S2=150 :: GOSUB 3000
400 S1=127 :: S2=148 :: GOSUB 3000
410 S1=151 :: S2=152 :: GOSUB 3000
420 S1=153 :: S2=200 :: GOSUB 3000
430 FOR T=1 TO 2 :: S1=93 :: S2=120 :: GOSUB 4000 :: NEXT T
440 S1=201 :: S2=212 :: GOSUB 4000
450 GOTO 290
500 CALL CLEAR :: CALL SCREEN(2)
510 CALL CHAR(96,"0F3F7F7FF1E0F1FFFF3FDF65703A1F0F80E0F8FCCC84CCFC7C78F85000A0F0E0")
520 CALL CHAR(56,"00006091A68850200000068965110A04F80402324A4224181F20404C52422418")
530 CALL CHAR(60,"0814108C6318060110280831C61860800738409F151F0E0EE01C02F9A8F87070")
540 CALL CHAR(104,"C0F0FCFEFEFFFFFF030F3F7F7FFFFFFF183C7E7EFFFFFFFFFFFFFFFFFFFFFFFF")
550 CALL CHAR(108,"FF00000000000000",91,"00100038447C44440028007C4444447C00280038447C4444",109,"0000F8FCFCF80000")
560 FOR T=1 TO 14 :: CALL COLOR(T,2,2) :: NEXT T
570 DISPLAY AT(1,14):"`b" :: DISPLAY AT(2,14):"ac":"   `b 8<=>:8>:;?9;?<=9 `b":"   ac                  ac"
580 DISPLAY AT(5,10):"ikh j j kkh":"         lkl kkk kml":"          k  klk kkh":"          l  l l lll"
590 DISPLAY AT(9,3):"ikkh ikkh ikkh ih j ikkh":"  klll lkll kllk kk k klll":"  kkkh  k   k  k kkkk kkh"
600 DISPLAY AT(12,3):"lllk  k   k  k klkk kll":"  ikkk  k   kkkk k lk kkkh":"  llll  l   llll l  l llll"
610 DISPLAY AT(16,6):"`b      AV      `b":"     ac              ac":"       FREDRIK NILSSON"::"    8<=>:8<=>:;?<=9;?<=9"
620 DISPLAY AT(22,8):"    MUSIK"::"       MARTIN FLORIN"
630 FOR T=1 TO 9 :: CALL COLOR(T,16,2) :: NEXT T :: CALL COLOR(10,7,2)
640 RESTORE 680 :: FOR T=30 TO 0 STEP-1
650 CALL SOUND(-4000,260-T*5,T,262-T*5,T,263-T*5,T,-5,27)
660 W=W+1 :: IF W=2 THEN CALL COLOR(10,7,2) :: W=0 ELSE CALL COLOR(10,9,2)
670 NEXT T
680 DATA FFA5000000000000,FFDE120000000000,FFFF5E0200000000,FFFFDE5612020000,FFFFFFDF56420200,FFFF7F7E3E2C2404
690 FOR T=1 TO 6 :: READ A$ :: CALL CHAR(108,A$) :: FOR K=1 TO 6 :: CALL SOUND(-4000,260+K*2,0,262+K*2,0,263+K*2,0,-5,27)
700 CALL SOUND(-4000,261+K*2,0,263+K*2,0,264+K*2,0,-5,27) :: NEXT K :: NEXT T
710 FOR T=0 TO 30 :: CALL SOUND(-500,273,T,275,T,276,T,-5,28) :: NEXT T
720 FOR T=1 TO 60 :: NEXT T :: GOTO 450
1000 L(C)=VAL(SEG$(VAR$,P*13-12,2))
1010 F1(C)=VAL(SEG$(VAR$,P*13-10,3))
1020 F2(C)=VAL(SEG$(VAR$,P*13-7,3))
1030 F3(C)=VAL(SEG$(VAR$,P*13-4,3))
1040 TRU(C)=VAL(SEG$(VAR$,P*13-1,2))
1050 RETURN
2000 FOR G=S1 TO S2 :: GOSUB 5000 :: CALL SOUND(2400/L(G),C-1,5,C+1,5,C,5,-5,TRU(G)) :: NEXT G
2010 RETURN
3000 FOR G=S1 TO S2 :: GOSUB 5000 :: CALL SOUND(2400/L(G),A,0,C+1,5,C,5,-5,TRU(G)) :: NEXT G
3010 RETURN
4000 FOR G=S1 TO S2 :: GOSUB 5000 :: CALL SOUND(2400/L(G),A,0,B,0,C,5,-5,TRU(G)) :: NEXT G
4010 RETURN
5000 IF F1(G)=0 THEN A=30000 ELSE A=F1(G)
5010 IF F2(G)=0 THEN B=30000 ELSE B=F2(G)
5020 IF F3(G)=0 THEN C=30000 ELSE C=F3(G)
5030 CALL KEY(0,K,S) :: IF S THEN 5040 ELSE RETURN
5040 CALL COLOR(10,10,2) :: CALL COLOR(10,7,2) :: RETURN