Evolution 3 129
1450 SOUND 1,100,5:CLS:RETURN
1460 PEN 2:LOCATE 1,1:FOR XN=1 TO 4:PRIN T AS(XN);:NEXT:PEN 1
1470 PLOT 574,64,2:DRAWR 0,334,2:DRAWR W *2-508,0,2
1480 RESTORE 170:FOR F=1 TO 10:READ AS,B ,A: LOCATE A+1,B+1:PRINT CHR$(236);:NEXT: RETURN
1490 END
1500 FOR XM=1 TO LEN(AS):IF MIDS(As,XM,1 )=" " THEN AS((N)=AS(XN)+ " "ELSE AS((N) =A$((N)+CHR$(166+ASC(MID$(A$,XM,1)))
1510 NEXT:XN=XN+1:RETURN