2 ! ********************************************************************** 3 ! Program BLINKA.BAS Utg}va 1.0 1986-11-23 4 ! av Curt Rehnborg, <1121> 5 ! Ins{nd av Curt Rehnborg 6 ! ********************************************************************** 8 INTEGER : EXTEND 10 REM ******************H. Richter 1979************************* 20 ; CHR$(12) "" 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,d#',14 50 READ A$,T,B$ : IF A$="" THEN 240 60 ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 70 FOR I=1 TO 18 : IF A$<>A$(I) THEN NEXT I ELSE A=A(I) : GOSUB 200 : GOTO 50 80 ; : ; : ; "Undefined symbol: ";A$ : GOTO 240 90 DATA c,2,Blin,c,2,ka,g,2,' lil',g,2,la,a,2,' stj{r',a,2,na 100 DATA g,4,' d{r' 110 DATA f,2,' hur',f,2,' jag',e,2,' und',e,2,rar 120 DATA d,2,' var',d,2,' du',c,4,' {r' 130 DATA p,0,'. ',g,2,'Fj{r',g,2,ran,f,2,' lock',f,2,ar,e,2,' du',e,2,' min',d,4,' syn' 140 DATA p,0,'. ',g,2,'Likt',g,2,' en',f,2,' di',f,2,a,e,2,'mant',e,2,' i',d,4,' skyn. ' 150 DATA c,2,Blin,c,2,ka,g,2,' lil',g,2,la,a,2,' stj{r',a,2,na 160 DATA g,4,' d{r' 170 DATA f,2,' hur',f,2,' jag',e,2,' und',e,2,rar 180 DATA d,2,' var',d,2,' du',c,4,' {r ' 190 DATA ,0,ende 200 O=121 : IF A=0 THEN O=0 ELSE T1=50/SQR(A) 210 FOR I=1 TO T1*T*2.4 220 Q=INP(5) : FOR T=0 TO A : NEXT T 230 Q=INP(5) : NEXT I : RETURN 240 END