1 REM *********************************
2 REM * BRAMUSIK.BAS                  *
3 REM * VER 1.0 / 1981-10-07          *
4 REM * (C) Kenneth Johansson         *
5 REM *     Hallindev.15              *
6 REM *     454 00 BRASTAD            *
7 REM *********************************
8 DEFFNA%(Y%,X%)=31744%+5%*(Y% AND 24%)+128%*(Y% AND 7%)+X%
9 ; CHR$(12%)CUR(10%,10%)"Du gamla du fria." : ; TAB(10%)" Oktober  1981 "
10 FOR Y%=10% TO 11% : FOR X%=10% TO 27% : A%=FNA%(Y%,X%) : POKE A%,PEEK(A%) OR 128% : NEXT X% : NEXT Y%
11 FOR ]=0 TO 3000 : NEXT ]
12 ; CHR$(12%); : RESTORE 50 : FOR I%=0% TO 13% : READ A$ : IF I%<2% THEN ; A$ ELSE ; CHR$(151)A$
13 NEXT I%
14 FOR ]=0 TO 2000 : NEXT ]
15 ; 
16 DIM A$(19),A%(19) : RESTORE 17 : FOR I%=1% TO 19% : READ A$(I%),A%(I%) : NEXT I%
17 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
18 READ A$,T%,B$ : IF A$="" 19 ELSE 23
19 ; CUR(22%,0%)'Vill du h|ra l}ten en g}ng till (J/N)';
20 INPUT \$
21 IF LEFT$(\$,1)='N' OR LEFT$(\$,1)='n' THEN 22 ELSE 12
22 END 
23 IF B$="" ; CUR(19%,0%)SPACE$(78%)CUR(19%,0%); ELSE ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 
24 IF B$="" ; CUR(14%,0%)SPACE$(359);CUR(13%,0%)
25 FOR I%=1% TO 18% : IF A$<>A$(I%) THEN NEXT I% ELSE A%=A%(I%) : GOSUB 27 : GOTO 18
26 ; : ; : ; "Undefined symbol: ";A$ : END 
27 O%=121% : IF A%=0% THEN O%=0% ELSE T1%=50%/SQR(A%)
28 FOR I%=1% TO T1%*T%*2
29 OUT 6%,O% : FOR T%=0% TO A% : NEXT T%
30 OUT 6%,0% : NEXT I% : RETURN 
31 DATA p,10,'',c#',2,'Du',c#',4,' gam',a,2,'la,',a,2,' du',a,4,' fri',h,2,'a,',c#',2,' du',c#',4,' fj{ll' 
32 DATA h,2,'h|',a,2,'ga',g#,4,' Nord,',p,2,' ',h,2,'du',h,4,' tys',g#,2,'ta,',a,2,' du',h,2,' gl{d',g#,2,'je'
33 DATA c#',2,'ri',a,2,'ka',f#,8,' sk|',e,4,'na !',p,2,' ',e,2,'Jag',a,4,' h{l',a,2,'sar',h,2,' dig,',g#,4,' v{n'
34 DATA g#,2,'nas',a,2,'te',f#,3,' land',e,1,'',f#,2,' up',g#,2,'p}',e,4,' jord',p,2,'',e,2,' din',a,3,' sol,'
35 DATA g#,1,' din',a,2,' him',h,2,'mel,',c#',2,' di',a,2,'na',d',2,' {ng',c#',2,'der',h,8,' gr|',a,4,'na',p,2,''
36 DATA p,0,'',p,2,'',e,2,'din',a,3, ' sol,'
37 DATA g#,1,' din',a,2,' him',h,2,'mel,',c#',2,' di',a,2,'na',d',2,' {ng',c#',2,'der',h,8,' gr|',a,4,'na',p,2,' '
38 DATA p,0,''
39 DATA p,10,'',c#',2,'Du',c#',4,' tro',a,2,'nar,',a,2,' p}',a,4,' minn',h,2,'en,',p,0,' ',c#',2,'fr}n',c#',4,' forn'
40 DATA h,2,'stor',a,2,'a',g#,4,' dar',p,2,' ',h,2,'d}',h,4,' {r',g#,2,'at',a,2,' ditt',h,2,' namn',g#,2,' fl|g'
41 DATA c#',2,' |v',a,2,'er',f#,8,' jor',e,4,'den',p,2,' ',e,2,'Jag',a,4,' vet,',a,2,' att',h,2,' du',g#,4,' {r'
42 DATA p,0,' ',g#,2,'och',a,2,' du',f#,3,' blir',e,1,'',f#,2,' vad',g#,2,' du',e,4,' var.',p,2,' ',e,2,'Ja'
43 DATA a,3,' jag'
44 DATA g#,1,' vill',a,2,' le',h,2,'va,',p,0,' ',c#',2,'jag',a,2,' vill',d',2,' d|',c#',2,' i',h,8,' Nor'
45 DATA a,4,'den !',p,2,' '
46 DATA p,0,'',p,2,'',e,2,'Ja,',a,3, ' jag',
47 DATA g#,1,' vill',a,2,' le',h,2,'va,',p,0,' ',c#',2,'jag',a,2,' vill',d',2,' d|',c#',2,' i',h,8,' Nor'
48 DATA a,4,'den !',p,2,' '
49 DATA ,0,SLUT
50 DATA '            *                  *'
51 DATA '   *                       *
52 DATA '      `
53 DATA '     x}0
54 DATA '    z?d "     `0          p|t0
55 DATA "  `& +'! 0i     xt      p,/=l0
56 DATA ' `%        i  p&"//d   p&          ",'
57 DATA '8!     !    )6      "d`&
58 DATA '    `"                )
59 DATA '   `t  >##############################
60 DATA '  x}0###+,lp0
61 DATA '  joo      px/#
62 DATA '  j~~    >#!
63 DATA "          #-,lppppp<,,,'###+,,lpppppp<,