1 REM Ins{nt av 863
10 REM LIST RIVAN.L]T
20 ; CHR$(12)"    Imbelupna glaset       GST 1981" : ; 
30 DIM A$(19),A%(19) : FOR I%=1% TO 19% : READ A$(I%),A%(I%) : NEXT I%
40 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,b,50
50 READ A$,T%,B$ : IF A$="" THEN END 
60 ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 
70 FOR I%=1% TO 19% : IF A$<>A$(I%) THEN NEXT I% ELSE A%=A%(I%) : GOSUB 340 : GOTO 50
80 ; : ; : ; 'Undefined symbol: ';A$ : END 
90 DATA p,0,'1. ',c,1,Im,c,1,be,f,1,lu,f,1,pet,a,1,' gla',a,1,set
100 DATA g,1,' st}r',f,1,' p}',e,1,' br{ck',f,1,lig,g,5,' fot',p,1,' '
110 DATA c,1,'kal',e,1,la,g,1,' pils',a,1,ner,a#,1,pa,g,1,vor,c',1,' lu',c',1,ta,a,1,' sig'
120 DATA c,1,' d{r',f,5,mot,p,1,' '
130 DATA c',1,'Men',a,1,' d{r',d',1,ne,c',1,re,a,1,' - mi',c',1,se,f,1,re,f,1,'re - '
140 DATA a,1,'u',f,1,ti,d,1,' ma',b,1,gens,d,1,' m|r',f,1,ka,a#,2,' djup',p,1,' '
150 DATA a,1,"sit",a#,1,ter,c',1," dj{",d',1,vu,c',1,len,a,1," och",a#,1," v{n",g,1,tar
160 DATA e,1,' p}',c,1,' en',f,6,' sup',p,3,'. ',p,0,' '
170 DATA p,0,'2. ',c,1,Im,c,1,be,f,1,lu,f,1,pet,a,1,' gla',a,1,set
180 DATA g,1,' st}r',f,1,' p}',e,1,' br{ck',f,1,lig,g,5,' fot',p,1,' '
190 DATA c,1,'kal',e,1,la,g,1,' pils',a,1,ner,a#,1,pa,g,1,vor,c',1,' lu',c',1,ta,a,1,' sig'
200 DATA c,1,' d{r',f,5,mot,p,1,' '
210 DATA c',1,'Men',a,1,' d{r',d',1,ne,c',1,re,a,1,' - mi',c',1,se,f,1,re,f,1,'re - '
220 DATA a,1,'i',f,1,' min',d,1,' ma',b,1,ges,d,1,' dun',f,1,kla,a#,2,' valv',p,1,' '
230 DATA a,1,"sit",a#,1,ter,c',1," dj{",d',1,vu,c',1,len,a,1," och",a#,1," v{n",g,1,tar
240 DATA e,1,' p}',c,1,' en',f,6,' halv',p,3,'. ',p,0,' '
250 DATA p,0,'3. ',c,1,Pres,c,1,sad,f,1,' gurk',f,1,saft,a,1,' st}r',a,1,' i'
260 DATA g,1,' fest',f,1,ligt,e,1,' fyl',f,1,lda,g,5,' glas',p,1,', '
270 DATA c,1,'mo',e,1,rots,g,1,saf,a,1,ten,a#,1,' sk{n',g,1,ker,c',1,' glans',c',1,' }t',a,1,' v}rt'
280 DATA c,1,' ka',f,5,las,p,1,''
290 DATA c',1,'Ma',a,1,gen,d',1,' bru',c',1,sar,a,1,' ut',c',1,av,f,1,' jui',f,1,'car '
300 DATA a,1,'men',f,1,' d{r',d,1,ne,b,1,re,d,1,' fylld',f,1,' av',a#,2,' hat',p,1,' '
310 DATA a,1,"sit",a#,1,ter,c',1," dj{",d',1,vu,c',1,len,a,1," och",a#,1," dr{n",g,1,kes
320 DATA e,1,' av',c,1,' to',f,6,mat,p,3,'. ',p,0,' '
330 DATA ,0,ende
340 O%=121% : IF A%=0% THEN O%=0% ELSE T1%=50%/SQR(A%)
350 FOR I%=1% TO T1%*T%*2.4
360 OUT 6%,O% : FOR T%=0% TO A% : NEXT T%
370 OUT 6%,0% : NEXT I% : RETURN