1000 DIM S$(9):PI=ATN(1)/45:GOSUB 1870 1010 XA=140:YA=116 1020 XF= .6:YF= .4 1030 SCREEN 1:KEY OFF 1040 FOR II=1 TO 2 1050 PAINT(0,0),3 1060 RESTORE 1070 FOR I=1 TO 37 1080 READ FF$,X,Y,P,R,A,B,S 1090 FOR W = A TO B STEP 30 / (P + R) 1100 V = W * PI 1110 XX = XA - XF * ( X + P * SIN(V) ) 1120 YY = YA - YF * ( Y + R * COS(V) ) - S * YF * P * SIN(V) 1130 IF W>A THEN LINE(VX,VY)-(XX,YY),0 1140 VX=XX:VY=YY 1150 NEXT W 1160 M = A * PI 1170 XM = XA - XF * ( X + P * SIN(M) ) 1180 YM = YA - YF * ( Y + R * COS(M) ) - S * YF * P * SIN(M) 1190 N = B * PI 1200 XN = XA - XF * ( X + P * SIN(N) ) 1210 YN = YA - YF * ( Y + R * COS(N) ) - S * YF * P * SIN(N) 1220 XX = XA - XF * X 1230 YY = YA - YF * Y 1240 IF II<2 THEN LINE(XM,YM)-(XX,YY),1 1250 IF II<2 THEN LINE(XN,YN)-(XX,YY),1 1260 V = (A+B)*.5 * PI 1270 XX = XA - XF * ( X + P * SIN(V) ) - 3 1280 YY = YA - YF * ( Y + R * COS(V) ) - S * YF * P * SIN(V) - 2 1290 IF II<2 THEN T$="J":S$=RIGHT$(STR$(100+I),2):GOSUB 2020 1300 NEXT I:IF II<2 THEN CLS:GOTO 1480 1310 XX=XA-XF* 90-3:YY=YA-YF* 0-2:S$="41":FF=2:GOSUB 1970 1320 XX=XA-XF* -10-3:YY=YA-YF* -20-2:S$="42":FF=1:GOSUB 1970 1330 XX=XA-XF* -70-3:YY=YA-YF* 30-2:S$="43":FF=1:GOSUB 1970 1340 XX=XA-XF*-167-3:YY=YA-YF*-119-2:S$="44":FF=1:GOSUB 1970 1350 XX=XA-XF* 90-3:YY=YA-YF* 170-2:S$="45":FF=1:GOSUB 1970 1360 XX=XA-XF* 20-3:YY=YA-YF* 210-2:S$="46":FF=1:GOSUB 1970 1370 XX=XA-XF* 20-3:YY=YA-YF*-165-2:S$="47":FF=1:GOSUB 1970 1380 XX=XA-XF* 140-3:YY=YA-YF*-125-2:S$="48":FF=1:GOSUB 1970 1390 XX=XA-XF* -50-3:YY=YA-YF*-125-2:S$="49":FF=1:GOSUB 1970 1400 XX=XA-XF* -40-3:YY=YA-YF* -55-2:S$="50":FF=0:GOSUB 1970 1410 XX=XA-XF* -94-3:YY=YA-YF* 2-2:S$="51":FF=0:GOSUB 1970 1420 XX=XA-XF* -40-3:YY=YA-YF* -80-2:S$="52":FF=3:GOSUB 1970 1430 XX=XA-XF* -90-3:YY=YA-YF* -15-2:S$="53":FF=3:GOSUB 1970 1440 LINE( 1, 1)-(318,198),0,B:SOUND 300,2 1450 IF INKEY$="" THEN 1450 1460 SCREEN 0 1470 WIDTH 80 1480 NEXT II 1490 END 1500 DATA B,50,0,150,130,265,360,.1 1510 DATA B,50,0,150,130,29,140,.1 1520 DATA B,50,0,150,130,147,189,.1 1530 DATA B,50,0,150,130,194,230,.1 1540 DATA R,-167,-119,20,25,0,370,-1.2 1550 DATA B,-149,-40,50,50,80,215,.2 1560 DATA B,-98,-140,50,50,272,410,.2 1570 DATA G,-10,-20,60,60,0,365,.6 1580 DATA G,-95,30,60,60,57,185,.6 1590 DATA S,-25,-35,30,30,165,305,.6 1600 DATA S,-100,15,30,25,145,181,.6 1610 DATA G,30,30,100,100,193,243,0 1620 DATA G,-35,90,100,100,197,218,0 1630 DATA G,90,170,50,70,205,515,0 1640 DATA G,45,85,30,33,35,165,0 1650 DATA G,135,85,30,33,195,325,0 1660 DATA G,90,-30,90,90,335,385,0 1670 DATA G,20,210,50,70,205,432,0 1680 DATA G,-25,125,30,33,35,105,0 1690 DATA G,65,125,30,33,273,315,0 1700 DATA R,-27,-135,40,40,35,145,0 1710 DATA R,67,-135,40,40,215,325,0 1720 DATA R,20,-180,10,10,70,290,0 1730 DATA R,3,-174,10,10,100,320,0 1740 DATA R,37,-174,10,10,40,260,0 1750 DATA R,20,-75,35,35,140,220,0 1760 DATA R,93,-95,40,40,35,145,0 1770 DATA R,187,-95,40,40,215,325,0 1780 DATA R,140,-140,10,10,70,290,0 1790 DATA R,123,-134,10,10,100,320,0 1800 DATA R,157,-134,10,10,40,260,0 1810 DATA R,140,-35,35,35,140,220,0 1820 DATA R,-97,-95,40,40,99,145,0 1830 DATA R,-3,-95,40,40,215,240,0 1840 DATA R,-50,-140,10,10,70,290,0 1850 DATA R,-67,-134,10,10,100,320,0 1860 DATA R,-33,-134,10,10,40,260,0 1870 S$(0)="111101101101111" 1880 S$(1)="001011101001001" 1890 S$(2)="111001111100111" 1900 S$(3)="111001111001111" 1910 S$(4)="101101111001001" 1920 S$(5)="111100111001111" 1930 S$(6)="111100111101111" 1940 S$(7)="111001010100100" 1950 S$(8)="111101111101111" 1960 S$(9)="111101111001111":RETURN 1970 IF((S$<>"51")AND(S$<>"53"))THEN T$="J":GOSUB 2020 1980 IF((S$<>"51")AND(S$<>"53"))THEN T$="N":GOSUB 2020 1990 PAINT(XX+3,YY+2),FF,0 2000 IF INKEY$="" THEN 2000 2010 RETURN 2020 FOR MM=1 TO 2:SS=VAL(MID$(S$,MM,1)) 2030 FOR UU=0 TO 4 2040 FOR RR=0 TO 2 2050 IF T$="J" THEN PSET(XX+MM*4-4+RR,YY+UU),3-VAL(MID$(S$(SS),UU*3+RR+1,1)) 2060 IF T$="N" THEN PSET(XX+MM*4-4+RR,YY+UU),3 2070 NEXT RR,UU,MM 2080 LINE(XX+3,YY)-(XX+3,YY+4),3 2090 IF INKEY$="" THEN 2090 2100 RETURN 2110 REM SAVE"MUFFEL-M.BAS",A