100 ! F]GELN.BAC
110 ! Ritar en f}gel med vecktor grafik.
120 ! Program av Magnus <8042> 1991
130 ! F|r ABC806 med f{rgsk{rm.
140 RANDOMIZE : INTEGER : EXTEND 
150 ; CHR$(12)
160 FGCTL BLK+BLK+BLK+BLK+BLK+BLK+BLK+BLK+GRN+CYA+RED+MAG+YEL+WHT+BLU
170 FGPOINT 0,0,0 : FGFILL 255,239
180 READ V : READ F
190 IF V=99 THEN 1350
200 POKE 49152,14,7,6,V,62,F,237,121,201
210 Z=CALL(49152)
220 GOTO 180
230 DATA 1,71,2,97,3,19,4,18,5,127,6,23,7,77,8,59,99,99
240 FOR Y=1 TO 200 STEP 40
250   FOR X=1 TO 240 STEP 40
260     GOTO 280
270     FGPOINT X-1,Y-1 : FGFILL X+50,Y+50,0
280     FGPOINT X+20,Y+49,1 : FGLINE X+27,Y+49
290     FGPOINT X+19,Y+48 : FGLINE X+27,Y+48
300     FGPOINT X+18,Y+47 : FGPOINT X+19,Y+47 : FGPOINT X+18,Y+46
310     FGPOINT X+20,Y+47,2 : FGLINE X+20,Y+43
320     FGPOINT X+19,Y+46 : FGLINE X+19,Y+42
330     FGPOINT X+18,Y+45 : FGLINE X+18,Y+43
340     FGPOINT X+17,Y+44 : FGLINE X+17,Y+42
350     FGPOINT X+16,Y+43 : FGPOINT X+15,Y+42
360     ! gr} och bl} klar
370     FGPOINT X+28,Y+48,7
380     FGPOINT X+21,Y+47 : FGLINE X+21,Y+44
390     FGPOINT X+22,Y+47 : FGPOINT X+24,Y+47 : FGLINE X+27,Y+47
400     FGPOINT X+22,Y+46 : FGLINE X+24,Y+46
410     ! n{ben
420     FGPOINT X+26,Y+46,8 : FGLINE X+29,Y+46
430     FGPOINT X+27,Y+47 : FGPOINT X+28,Y+47
440     FGPOINT X+29,Y+45
450     ! det vita
460     FGPOINT X+23,Y+47,5 : FGPOINT X+25,Y+46
470     FGPOINT X+22,Y+45 : FGLINE X+25,Y+45
480     FGPOINT X+23,Y+44 : FGPOINT X+24,Y+44 : FGPOINT X+24,Y+43
490     FGPOINT X+23,Y+42 : FGPOINT X+22,Y+42 : FGLINE X+22,Y+36
500     FGPOINT X+21,Y+40 : FGPOINT X+21,Y+39
510     FGPOINT X+21,Y+37 : FGLINE X+21,Y+35
520     FGPOINT X+20,Y+38 : FGPOINT X+20,Y+35 : FGPOINT X+20,Y+34
530     FGPOINT X+19,Y+37 : FGLINE X+19,Y+32
540     FGPOINT X+18,Y+34 : FGLINE X+18,Y+31
550     FGPOINT X+17,Y+33 : FGLINE X+17,Y+30
560     FGPOINT X+16,Y+32 : FGLINE X+16,Y+30
570     FGPOINT X+15,Y+31 : FGLINE X+15,Y+29
580     FGPOINT X+14,Y+31 : FGLINE X+14,Y+29
590     FGPOINT X+13,Y+30 : FGPOINT X+13,Y+29
600     ! Det r}sa
610     FGPOINT X+26,Y+45,6 : FGPOINT X+22,Y+44
620     FGPOINT X+22,Y+43 : FGPOINT X+23,Y+43
630     FGPOINT X+25,Y+44 : FGLINE X+25,Y+37
640     FGPOINT X+24,Y+42 : FGLINE X+24,Y+34
650     FGPOINT X+23,Y+41 : FGLINE X+23,Y+33
660     FGPOINT X+20,Y+39 : FGPOINT X+21,Y+38
670     FGPOINT X+20,Y+37 : FGPOINT X+20,Y+36
680     FGPOINT X+22,Y+35 : FGLINE X+22,Y+32
690     FGPOINT X+21,Y+34 : FGLINE X+21,Y+31
700     FGPOINT X+20,Y+33 : FGLINE X+20,Y+30
710     FGPOINT X+19,Y+31 : FGLINE X+19,Y+29
720     FGPOINT X+18,Y+30 : FGLINE X+18,Y+28
730     FGPOINT X+17,Y+29 : FGPOINT X+16,Y+29
740     FGPOINT X+17,Y+28 : FGLINE X+11,Y+28
750     FGPOINT X+17,Y+27 : FGLINE X+11,Y+27
760     FGPOINT X+12,Y+30 : FGPOINT X+12,Y+29
770     FGPOINT X+10,Y+26 : FGLINE X+12,Y+26
780     FGPOINT X+10,Y+25 : FGPOINT X+11,Y+25
790     FGPOINT X+10,Y+24
800     ! det ljus bruna
810     FGPOINT X+21,Y+42,3 : FGPOINT X+21,Y+43 : FGPOINT X+20,Y+42
820     FGPOINT X+18,Y+42 : FGPOINT X+16,Y+42
830     FGPOINT X+14,Y+41 : FGLINE X+21,Y+41
840     FGPOINT X+13,Y+40 : FGLINE X+20,Y+40
850     FGPOINT X+12,Y+39 : FGLINE X+19,Y+39
860     FGPOINT X+11,Y+38 : FGLINE X+19,Y+38
870     FGPOINT X+11,Y+37 : FGLINE X+17,Y+37
880     FGPOINT X+10,Y+36 : FGLINE X+14,Y+36
890     FGPOINT X+16,Y+36 : FGPOINT X+17,Y+36
900     FGPOINT X+12,Y+35 : FGLINE X+16,Y+35
910     FGPOINT X+10,Y+34 : FGPOINT X+11,Y+34
920     FGPOINT X+14,Y+34 : FGPOINT X+15,Y+34
930     FGPOINT X+9,Y+33 : FGPOINT X+12,Y+33 : FGLINE X+14,Y+33
940     FGPOINT X+7,Y+32 : FGPOINT X+10,Y+32 : FGLINE X+12,Y+32
950     FGPOINT X+8,Y+31 : FGLINE X+10,Y+31
960     FGPOINT X+7,Y+30 : FGPOINT X+8,Y+30
970     ! det ljus bruna i stj{rten
980     FGPOINT X+9,Y+26 : FGPOINT X+8,Y+25 : FGPOINT X+8,Y+24
990     FGPOINT X+7,Y+23 : FGPOINT X+7,Y+22
1000     FGPOINT X+6,Y+22 : FGLINE X+6,Y+20
1010     FGPOINT X+5,Y+20 : FGLINE X+5,Y+18
1020     FGPOINT X+4,Y+18 : FGLINE X+4,Y+16
1030     FGPOINT X+3,Y+16 : FGLINE X+3,Y+14
1040     ! Det m{rkbruna
1050     FGPOINT X+18,Y+37,4 : FGLINE X+18,Y+35
1060     FGPOINT X+15,Y+36
1070     FGPOINT X+17,Y+35 : FGPOINT X+17,Y+34
1080     FGPOINT X+16,Y+34 : FGPOINT X+16,Y+33
1090     FGPOINT X+15,Y+33 : FGPOINT X+15,Y+32
1100     FGPOINT X+14,Y+32 : FGPOINT X+13,Y+32
1110     FGPOINT X+13,Y+31 : FGLINE X+11,Y+31
1120     FGPOINT X+11,Y+30 : FGLINE X+9,Y+30
1130     FGPOINT X+11,Y+29 : FGLINE X+6,Y+29
1140     FGPOINT X+5,Y+28 : FGLINE X+7,Y+28
1150     FGPOINT X+4,Y+27 : FGLINE X+6,Y+27
1160     FGPOINT X+6,Y+30 : FGPOINT X+7,Y+31
1170     FGPOINT X+8,Y+32 : FGPOINT X+9,Y+32
1180     FGPOINT X+8,Y+33 : FGPOINT X+10,Y+33 : FGPOINT X+11,Y+33
1190     FGPOINT X+8,Y+34 : FGPOINT X+9,Y+34
1200     FGPOINT X+12,Y+34 : FGPOINT X+13,Y+34
1210     FGPOINT X+9,Y+35 : FGLINE X+11,Y+35
1220     FGPOINT X+10,Y+28 : FGPOINT X+10,Y+27
1230     FGPOINT X+9,Y+27 : FGPOINT X+8,Y+26
1240     FGPOINT X+7,Y+25 : FGPOINT X+7,Y+24
1250     FGPOINT X+6,Y+24 : FGPOINT X+6,Y+23
1260     FGPOINT X+5,Y+21 : FGPOINT X+5,Y+22
1270     FGPOINT X+4,Y+21 : FGLINE X+4,Y+19
1280     FGPOINT X+3,Y+19 : FGLINE X+3,Y+17
1290     FGPOINT X+2,Y+17 : FGLINE X+2,Y+14
1300     FGPOINT X+1,Y+16 : FGLINE X+1,Y+14
1310   NEXT X 
1320 NEXT Y 
1330 ; CUR(0,10);RED;EL;"F}geln     by Magnus 1990!"
1340 RETURN 
1350 GOTO 1370 : FGPICTURE 1,1,2 : FGPOINT 0,0,10 : FGFILL 255,239
1360 GOSUB 240
1370 FGPICTURE 0,0,2 : FGPOINT 0,0,0 : FGFILL 255,239
1380 GOSUB 240
1390 GOTO 1470
1400 Q=INT(RND*1000)
1410 FOR T=0 TO Q : NEXT T 
1420 FGPICTURE 1,1,2
1430 Q=INT(RND*1000)
1440 FOR T=0 TO Q : NEXT T 
1450 FGPICTURE 0,0,2
1460 GOTO 1400
1470 FOR Q=0 TO 128 : OUT 7,Q : NEXT Q 
1480 FOR Q=128 TO 0 STEP -1 : OUT 7,Q : NEXT Q 
1490 GOTO 1470