10 ! GUBBEN.BAC 
20 ! En str{ck gubbe som g}r |ver sk{rmen
30 ! Program av Magnus <8042> 1991
40 ! Programer {r skrivet f|r en ABC806
50 ! 
60 ! "GRED" f|r att fungera med monokrom sk{rm <7759>
70 ! 
80 INTEGER : NO EXTEND 
90 ; CHR$(12)
100 FGCTL BLK+GRED
110 FGPOINT 0,0,0 : FGFILL 511,239
120 DEF FNG1(X,Y,F)
130   FGPOINT X,Y,F : FGLINE X-20,Y-30 : FGLINE X-10,Y-30
140   FGPOINT X,Y : FGLINE X+20,Y-30 : FGLINE X+30,Y-30
150   FGPOINT X,Y : FGLINE X,Y+30 : FGLINE X+20,Y+10 : FGPOINT X,Y+30 : FGLINE X-20,Y+10
160   FGPOINT X,Y+30 : FGLINE X,Y+35 : FGPOINT X-6,Y+35 : FGFILL X+6,Y+43
170   FGPOINT X+6,Y+38,0 : FGLINE X+2,Y+38 : FGPOINT X+4,Y+41
180   FGPOINT X+6,Y+43 : FGPOINT X-6,Y+43 : FGPOINT X+6,Y+35 : FGPOINT X-6,Y+35
190   RETURN 0
200 FNEND 
210 DEF FNG2(X,Y,F)
220   FGPOINT X,Y,F : FGLINE X-5,Y-15 : FGLINE X-20,Y-25 : FGLINE X-15,Y-30
230   FGPOINT X,Y : FGLINE X,Y-30 : FGLINE X+10,Y-30
240   FGPOINT X,Y : FGLINE X,Y+30 : FGLINE X+15,Y+10 : FGPOINT X,Y+30 : FGLINE X-15,Y+10
250   FGPOINT X,Y+30 : FGLINE X,Y+35 : FGPOINT X-6,Y+35 : FGFILL X+6,Y+43
260   FGPOINT X+6,Y+38,0 : FGLINE X+2,Y+38 : FGPOINT X+4,Y+41
270   FGPOINT X+6,Y+43 : FGPOINT X-6,Y+43 : FGPOINT X+6,Y+35 : FGPOINT X-6,Y+35
280   RETURN 0
290 FNEND 
300 DEF FNG3(X,Y,F)
310   FGPOINT X,Y,F : FGLINE X-5,Y-30 : FGLINE X+5,Y-30
320   FGPOINT X,Y : FGLINE X+10,Y-15 : FGLINE X+5,Y-26 : FGLINE X+14,Y-29
330   FGPOINT X,Y : FGLINE X,Y+30 : FGLINE X+7,Y+20 : FGLINE X+20,Y+10
340   FGPOINT X,Y+30 : FGLINE X-7,Y+20 : FGLINE X-20,Y+10
350   FGPOINT X,Y+30 : FGLINE X,Y+35 : FGPOINT X-6,Y+35 : FGFILL X+6,Y+43
360   FGPOINT X+6,Y+38,0 : FGLINE X+2,Y+38 : FGPOINT X+4,Y+41
370   FGPOINT X+6,Y+43 : FGPOINT X-6,Y+43 : FGPOINT X+6,Y+35 : FGPOINT X-6,Y+35
380   RETURN 0
390 FNEND 
400 Q=0 : G=1 : FGPICTURE 0,1,2
410 FOR X=50 TO 450 STEP 4
420   FGPOINT 0,0,0 : FGFILL 511,239
430   IF G=1 THEN Z=FNG1(X,100,1) : G=2 : GOTO 460
440   IF G=2 THEN Z=FNG2(X,100,1) : G=3 : GOTO 460
450   IF G=3 THEN Z=FNG3(X,100,1) : G=1 : GOTO 460
460   IF Q=0 THEN FGPICTURE 1,0,2 : Q=1 : GOTO 480
470   FGPICTURE 0,1,2 : Q=0
480 NEXT X