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)