1 REM ******************H. Richter 1979************************* 2 ; CHR$(12)" SLOOP 'JOHN B.' HR 1979" : ; 3 REM COPYRIGHT LUXOR AB MOTALA SWEDEN 10 DIM A$(19),A%(19) : FOR I%=1% TO 19% : READ A$(I%),A%(I%) : NEXT I% 20 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 25 READ A$,T%,B$ : IF A$="" THEN END 30 ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 40 FOR I%=1% TO 18% : IF A$<>A$(I%) THEN NEXT I% ELSE A%=A%(I%) : GOSUB 1000 : GOTO 25 50 ; : ; : ; "Undefined symbol: ";A$ : END 100 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,"" 110 DATA d,2,my,h,3," grand",h,2,fa,h,1,ther,c',2," and",h,4," me, ",p,4,"" 120 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,"" 130 DATA d,2,drin,e,1,king,f#,2," all",g,6," night, ",p,4,"" 140 DATA g,1,got,g,2," in",a,1,to,h,2," a",c',6," fight, ",p,4,"" 150 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,"" 160 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,4," home. ",p,8," " 170 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,"" 180 DATA h,1,see,h,2," how",h,1," the",h,2," main",c',2," sail",h,4," sets, ",p,4,"" 190 DATA h,1,call,h,2," for",h,1," the",h,1," Cap",h,1,tain,c',2," a",d',3,"shore, " 200 DATA d',2,let, c',1," me",h,2," go",a,6," home, ",p,4,"" 210 DATA d,2,let,e,1," me",f#,2," go",g,6," home, ",p,2,"" 220 DATA g,1,I,g,2," wan",a,1,na,h,2," go",c',4," home! ",p,2,"" 230 DATA h,1,a,c',1,-yeah,h,1,"",g,4," yeah, ",p,1,"" 240 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,"" 250 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,6," home! ",p,10," " 300 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,"" 310 DATA d,2,and,h,1," broke",h,2," in",h,2," the",h,1," Cap",c',2,tains,h,4," trunk, ",p,4,"" 320 DATA d,2,the,h,1," con",h,2,stable,h,1," had",h,2," come",c',2," 'n",d',3," take",d',2," him",c',1," a",h,2,"" 325 DATA a,6,"way.",p,6,"" 330 DATA d,2,She,e,1,riff,f#,2," John",g,6," Stone, ",p,4,"" 340 DATA g,1,why,g,1," don't",g,1," you",a,1," leave",h,2," me a",c',5,"lone? ",p,4,"" 350 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,"" 360 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,4," home. ",p,8," " 370 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,"" 380 DATA h,1,see,h,2," how",h,1," the",h,2," main",c',2," sail",h,4," sets, ",p,4,"" 390 DATA h,1,call,h,2," for",h,1," the",h,1," Cap",h,1,tain,c',2," a",d',3,"shore, " 400 DATA d',2,let, c',1," me",h,2," go",a,6," home, ",p,4,"" 410 DATA d,2,let,e,1," me",f#,2," go",g,6," home, ",p,2,"" 420 DATA g,1,I,g,2," wan",a,1,na,h,2," go",c',4," home! ",p,2,"" 430 DATA h,1,a,c',1,-yeah,h,1,"",g,4," yeah, ",p,1,"" 440 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,"" 450 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,6," home! ",p,10," " 500 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,"" 510 DATA d,2,threw,h,3," 'way",h,2," all",h,1,"",c',2," my",h,4," grits, ",p,4,"" 520 DATA d,2,and,h,1," then",h,2," he took and",h,1," he ",h,2,"ate" 523 DATA c',2," up",d',3," all",d',2," of",c',1," my",h,2," 525 DATA a,6," corn. ",p,6,"" 530 DATA d,2,Let,e,1," me",f#,2," go",g,6," home, ",p,4,"" 540 DATA g,1,"why don't",g,1," you",g,1," let",a,1," me",h,2," go",c',6," home? ",p,4,"" 550 DATA c',1,"",g,1,This,h,2," is",h,1," the",h,2," worst",g,4," trip, ",p,2,"" 560 DATA a,1,I've,a,2," e",g,1,ver,f#,2," been",g,4," on. ",p,8," " 570 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,"" 580 DATA h,1,see,h,2," how",h,1," the",h,2," main",c',2," sail",h,4," sets, ",p,4,"" 590 DATA h,1,call,h,2," for",h,1," the",h,1," Cap",h,1,tain,c',2," a",d',3,"shore, " 600 DATA d',2,let, c',1," me",h,2," go",a,6," home, ",p,4,"" 610 DATA d,2,let,e,1," me",f#,2," go",g,6," home, ",p,2,"" 620 DATA g,1,I,g,2," wan",a,1,na,h,2," go",c',4," home! ",p,2,"" 630 DATA h,1,a,c',1,-yeah,h,1,"",g,4," yeah, ",p,1,"" 640 DATA c',1,well,g,1," I",h,2," feel",h,1," so",h,2," broke",g,4,"-up, ",p,2,"" 650 DATA a,1,I,a,2," wan",g,1,na,f#,2," go",g,6," home! " 999 DATA ,0,ende 1000 O%=121% : IF A%=0% THEN O%=0% ELSE T1%=50%/SQR(A%) 1010 FOR I%=1% TO T1%*T%*2.4 1020 OUT 6%,O% : FOR T%=0% TO A% : NEXT T% 1030 OUT 6%,0% : NEXT I% : RETURN