10 ! ORMBUNKE.BAC 20 ! Ritar en ormbunke p} sk{rmen p} en ABC806a 30 ! Program av Magnus <8042> 1991 40 ! 50 ! "GGRN" & "GWHT" f|r att ge bild (om {n "d}lig") p} monokrom sk{rm <7759> 60 ! 70 EXTEND : FLOAT 80 ; CHR$(12%) 90 FGCTL BLK+GGRN+RED+GWHT : FGPOINT 0%,0%,0% : FGFILL 511%,239% 100 E=(2*PI/90) 110 DEF FNO%(X1,X2,S1,Y1,R) 120 St=20 130 Gx=X1 : Gy=Y1 : FGPOINT Gx,Gy,2 140 P=(X2-X1)/100 150 F1=0 160 FOR X=X1 TO X2 STEP S1 : IF S1<0 THEN 200 170 IF XX1+(80*P) THEN St=St-INT(St/10) 190 GOTO 220 200 IF XX1+(10*P) THEN St=St+1 220 Y=Y1+(R*SIN(F1)) 230 Ys=St/10 : IF X=X1 THEN Gx=X : Gy=Y : GOTO 270 240 FGPOINT X,Y-Ys,1 : FGLINE X-St,Y : FGLINE X,Y+Ys 250 FGLINE X+St,Y : FGLINE X,Y-Ys : FGPAINT X,Y 260 FGLINE X,Y,2 : FGLINE Gx,Gy : Gx=X : Gy=Y 270 F1=F1+E 280 IF F1>2*PI THEN F1=0 290 NEXT X 300 RETURN 0% 310 FNEND 320 FGPOINT 200,0,3 : FGFILL 300,20 330 Z%=FNO%(290,490,8,20,100) 340 Z%=FNO%(210,50,-6,20,100) 350 Z%=FNO%(230,180,-2,20,160) 360 Z%=FNO%(250,400,8,20,140) 370 Z%=FNO%(240,350,4,20,200)