10 REM 


      LIST BERGS.MUS
20 REM 


      F|r ABC-KLUBBEN
30 REM 

   |####################|
40 REM 


   5
It's still music ?j
50 REM 


   5
Medlem 412        j
60 REM 


   5
Bernt Figaro      j
70 REM 


   5
Augusti 1983      j
80 REM 


   /pppppppppppppppppppp/
90 REM 
100 DATA "(),()*~-*h.,Y/*~-*"
110 DATA "h.,Y/*h.*_.,_.+_.)"
120 DATA "_.,()*Y/*V/+V/)V/*"
130 DATA "V/*P/*V/*Y/*_.*Y/,"
140 DATA "h.+h.)h.,()*h.*V/+"
150 DATA "V/)V/*V/*J0*J0*V/*"
160 DATA "V/*Y/+Y/)h.*Y/*P/*"
170 DATA "P/*Y/*h.*~-,l.*_.*"
180 DATA "P/,V/*_.*h.,h.+h.)"
190 DATA "h.,()*h.*V/+V/)V/*"
200 DATA "V/*J0*J0*V/*V/*Y/+"
210 DATA "Y/)h.*Y/*P/*P/*Y/*"
220 DATA "h.*~-,l.*_.*P/,V/*" 
230 DATA "_.*h.,h.+h.)h.,()<"
240 DATA "(((((((((((((((((("
250 ; CHR$(12%)'Vi |verg}s vid daggst{nk !'
260 FOR I1%=1% TO 2% : RESTORE 
270 FOR I%=1% TO 15% : READ B$
280 FOR J%=1% TO LEN(B$) STEP 3%
290 A%=ASC(MID$(B$,J%,1%))-40%
300 T%=ASC(MID$(B$,J%+1%,1%))-40%
310 T1%=ASC(MID$(B$,J%+2%,1%))-40%
320 FOR K%=0% TO T%*T1%*1.34 : OUT 6%,121%
330 FOR L%=0% TO A% : NEXT L% : OUT 6%,0%
340 NEXT K% : NEXT J% : NEXT I% : NEXT I1% : END