1 ! SLOOP800.MUS - spelar SLOOP JOHN B p} ABC 800
10 REM ******************H. Richter 1979*************************
15 INTEGER : NO EXTEND 
20 ; CHR$(12) "    SLOOP 'JOHN B.'            HR 1979" : ; 
40 REM Anpassad f|r ABC800 av B M}rtensson Word & Music Lund 1984.
41 REM OBS. G}r tyv{rr inte p} ABC 806.
45 REM **********************************************************
50 DIM A$(19),A(19) : FOR I=1 TO 19 : READ A$(I),A(I) : NEXT I 
60 DATA p,0,c,45,e,34,d#,37,f,31,g,27,a,23,h,20,c',18,d',15,c'#,16,d'#,14,d,40,f#,29,a#,21,c#,42,g#,25,c#',16,d#',14
70 READ A$,T,B$ : IF A$="" THEN GOTO 730
80 ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 
90 FOR I=1 TO 18 : IF A$<>A$(I) THEN NEXT I ELSE A=A(I) : GOSUB 630 : GOTO 70
100 ; : ; : ; "Undefined symbol: ";A$ : GOTO 730
110 DATA p,0,"1. ", d,2,We,h,1," come",h,2," on",h,1," the",h,2," sloop",c',2," 'John",h,4," B.', ",p,4,""
120 DATA d,2,my,h,3," grand",h,2,fa,h,1,ther,c',2," and",h,4," me, ",p,4,""
130 DATA d,2,a,h,3,round,h,3," Nass",c',2,au,d',3,town,d',2," we",c',1," did",h,2,"",a,6," roam :    ",p,6,""
140 DATA d,2,drin,e,1,king,f#,2," all",g,6," night, ",p,4,""
150 DATA g,1,got,g,2," in",a,1,to,h,2," a",c',6," fight, ",p,4,""
160 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,""
170 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,4," home. ",p,8," "
180 DATA p,0,"Refrain :    ",d,2,So,h,1," hoist",h,2," up",h,1," the",h,2," 'John",c',2," B.'",h,4," sail, ",p,4,""
190 DATA h,1,see,h,2," how",h,1," the",h,2," main",c',2," sail",h,4," sets, ",p,4,""
200 DATA h,1,call,h,2," for",h,1," the",h,1," Cap",h,1,tain,c',2," a",d',3,"shore, "
210 DATA d',2,let, c',1," me",h,2," go",a,6," home, ",p,4,""
220 DATA d,2,let,e,1," me",f#,2," go",g,6," home, ",p,2,""
230 DATA g,1,I,g,2," wan",a,1,na,h,2," go",c',4," home! ",p,2,""
240 DATA h,1,a,c',1,-yeah,h,1,"",g,4," yeah, ",p,1,""
250 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,""
260 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,6," home! ",p,10," "
270 DATA p,0,"2. ",d,2,First,h,1,mate,h,2,"",h,1," he",h,2,"",c',2," got",h,4," drunk, ",p,4,""
280 DATA d,2,and,h,1," broke",h,2," in",h,2," the",h,1," Cap",c',2,tains,h,4," trunk, ",p,4,""
290 DATA d,2,the,h,1," con",h,2,stable,h,1," had to",h,2," come",c',2," 'n",d',3," take",d',2," him",c',1," a",h,2,""
300 DATA a,6,"way. ",p,6,""
310 DATA d,2,She,e,1,riff,f#,2," John",g,6," Stone, ",p,4,""
320 DATA g,1,why,g,1," don't",g,1," you",a,1," leave",h,2," me a",c',5,"lone? ",p,4,""
330 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,""
340 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,4," home. ",p,8," "
350 DATA p,0,"Refrain :     ",d,2,So,h,1," hoist",h,2," up",h,1," the",h,2," 'John",c',2," B.'",h,4," sail, ",p,4,""
360 DATA h,1,see,h,2," how",h,1," the",h,2," main",c',2," sail",h,4," sets, ",p,4,""
370 DATA h,1,call,h,2," for",h,1," the",h,1," Cap",h,1,tain,c',2," a",d',3,"shore, "
380 DATA d',2,let, c',1," me",h,2," go",a,6," home, ",p,4,""
390 DATA d,2,let,e,1," me",f#,2," go",g,6," home, ",p,2,""
400 DATA g,1,I,g,2," wan",a,1,na,h,2," go",c',4," home! ",p,2,""
410 DATA h,1,a,c',1,-yeah,h,1,"",g,4," yeah, ",p,1,""
420 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,""
430 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,6," home! ",p,10," "
440 DATA p,0,"3. ",d,2,Poor,h,1," cook",h,2,"",h,1," he",h,2," caught",c',2," the",h,4," fits, ",p,4,""
450 DATA d,2,threw,h,3," 'way",h,2," all",h,1,"",c',2," my",h,4," grits, ",p,4,""
460 DATA d,2,and,h,1," then",h,2," he took and",h,1," he ",h,2,"ate"
470 DATA c',2," up",d',3," all",d',2," of",c',1," my",h,2,"
480 DATA a,6," corn. ",p,6,""
490 DATA d,2,Let,e,1," me",f#,2," go",g,6," home, ",p,4,""
500 DATA g,1,"why don't",g,1," you",g,1," let",a,1," me",h,2," go",c',6," home? ",p,4,""
510 DATA c',1,"",g,1,This,h,2," is",h,1," the",h,2," worst",g,4," trip, ",p,2,""
520 DATA a,1,I've,a,2," e",g,1,ver,f#,2," been",g,4," on. ",p,8," "
530 DATA p,0,"Refrain :     ",d,2,So,h,1," hoist",h,2," up",h,1," the",h,2," 'John",c',2," B.'",h,4," sail, ",p,4,""
540 DATA h,1,see,h,2," how",h,1," the",h,2," main",c',2," sail",h,4," sets, ",p,4,""
550 DATA h,1,call,h,2," for",h,1," the",h,1," Cap",h,1,tain,c',2," a",d',3,"shore, "
560 DATA d',2,let, c',1," me",h,2," go",a,6," home, ",p,4,""
570 DATA d,2,let,e,1," me",f#,2," go",g,6," home, ",p,2,""
580 DATA g,1,I,g,2," wan",a,1,na,h,2," go",c',4," home! ",p,2,""
590 DATA h,1,a,c',1,-yeah,h,1,"",g,4," yeah, ",p,1,""
600 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,""
610 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,6," home! "
620 DATA ,0,ende
630 O=121 : IF A=0 THEN O=0 ELSE T1=50/SQR(A)
640 FOR I=1 TO T1*T*2.4
650   IF A=0 FOR Z=1 TO 5 : NEXT Z : GOTO 700 ! Paus
660   Z1=INP(5)
670   FOR T=0 TO A
680   NEXT T 
690   Z1=INP(5)
700 NEXT I 
710 RETURN 
730 ; : ; "(c) Brian Wilson & the Beach Boys"
740 ; "Wait until you hear me sing"
750 ; "something by Schubert."
760 END