100 REM Ins{nt av 4443
110 ! ++++++++++++++++++++++++++++++++++
120 ! Program....     LINDAPIC.800
130 ! Datum......     83-12-02
140 ! Programmering.  Jan Gustafsson
150 ! Medl......      4443
160 ! 
170 ! Programmet avsett f|r ABC800C + HR
180 ! 
190 ! P} sk{rmen ritas en l{cker tjej med
200 ! namnet Linda.
210 ! Jag har ritat henne med hj{lp av
220 ! GRAFIK 800C och d{refter 
230 ! kompilerat bilden till basic.
240 ! 
250 ! L]T DITT \GA FR\JDAS
260 ! 
270 ! Ins{nt av Jan Gustafsson, ]LAND
280 ! Medl. nr. 4443
290 ! +++++++++++++++++++++++++++++++++
300 EXTEND 
310 REM ******************************
320 REM ****** F[RGK
330 REM 
340 DEF FNF{rgk(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5
350   Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5
360   T2=Trx*T0+T2
370   T5=Try*T4+T5
380   T0=T0*Scale : T4=T4*Scale
390   REM --  1 <ORIGO    0   0>
400   REM --  4 <F[RGKONTR    9>
410   FGCTL (9)
420   REM --  6 <SLUT >
430   T0=Tm0 : T1=Tm1 : T2=Tm2 : T3=Tm3 : T4=Tm4 : T5=Tm5
440   RETURN -1
450 FNEND 
460 REM ******************************
470 REM ****** \DEL
480 REM 
490 DEF FN\del(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5
500   Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5
510   T2=Trx*T0+T2
520   T5=Try*T4+T5
530   T0=T0*Scale : T4=T4*Scale
540   REM --  1 <ORIGO   48  19>
550   REM --  4 <FIGUR   46  20   3   77   1>
560   RESTORE 570 : Z=FNShapeinter(3)
570   DATA 0,1001,-2,1,-2,32,-1,33,-1,36,0,37,0,39,1,40,
580   DATA 0,41,0,42,-2,44,-2,45,-3,46,-3,47,-4,48,-4,51,
590   DATA -5,52,-5,55,-4,56,-4,58,-3,59,-3,60,-2,60,-2,61,
600   DATA -1,62,-1,63,1,65,1,66,2,66,2,67,11,76,0,1000
610   REM --  50 <FIGUR   59  95   2  200   1>
620   RESTORE 630 : Z=FNShapeinter(2)
630   DATA 0,1001,11,76,11,77,10,77,10,79,9,79,9,82,8,83,
640   DATA 8,89,7,90,7,92,6,93,6,94,5,95,5,96,6,97,
650   DATA 6,99,7,99,7,103,4,106,4,111,5,112,5,115,6,116,
660   DATA 6,119,7,120,7,121,8,122,8,124,7,125,7,127,8,128,
670   DATA 9,128,10,129,11,129,11,133,10,134,10,135,9,136,9,140,
680   DATA 10,141,10,143,11,144,11,145,16,150,16,153,17,154,17,155,
690   DATA 18,155,21,158,22,158,22,159,25,162,26,162,27,163,28,163,
700   DATA 29,164,31,164,32,165,33,165,34,166,37,166,38,167,40,167,
710   DATA 41,168,43,168,44,169,60,169,61,168,63,168,64,167,67,167,
720   DATA 68,166,70,166,71,165,72,165,73,164,74,164,75,163,76,163,
730   DATA 77,162,78,162,79,161,80,161,80,160,81,159,81,158,82,157,
740   DATA 82,156,81,155,81,154,80,153,79,153,79,152,78,151,78,144,
750   DATA 79,143,79,142,80,141,80,140,81,139,81,137,82,136,82,131,
760   DATA 81,130,81,129,82,128,82,126,81,125,81,124,80,123,80,122,
770   DATA 79,121,79,117,78,116,78,115,77,115,77,114,74,111,0,1000
780   REM --  157 <FIGUR  122 130   3  113   1>
790   RESTORE 800 : Z=FNShapeinter(3)
800   DATA 0,1001,74,111,74,110,75,109,75,108,77,106,77,104,78,103,
810   DATA 78,102,79,101,79,100,80,99,80,91,81,90,81,83,80,82,
820   DATA 80,76,79,75,79,71,78,70,78,67,77,66,77,65,76,64,
830   DATA 76,62,75,61,75,51,74,50,74,46,73,46,73,43,72,42,
840   DATA 72,39,71,38,71,36,70,35,70,34,69,33,69,32,68,31,
850   DATA 68,30,67,29,67,28,66,27,66,24,65,24,65,4,66,4,
860   DATA 66,1,0,1000
870   REM --  221 <FIGUR   63  69   3  121   1>
880   RESTORE 890 : Z=FNShapeinter(3)
890   DATA 0,1001,15,50,15,57,16,57,16,60,17,61,17,62,18,63,
900   DATA 18,64,19,64,19,65,18,65,19,65,22,68,22,70,23,70,
910   DATA 23,71,24,71,24,72,34,82,0,1001,15,49,15,47,16,46,
920   DATA 16,44,17,43,17,42,19,40,19,39,21,37,21,36,22,36,
930   DATA 22,35,23,35,24,34,25,34,26,33,35,33,36,34,37,34,
940   DATA 38,35,0,1000
950   REM --  289 <FIGUR   95  55   3  141   1>
960   RESTORE 970 : Z=FNShapeinter(3)
970   DATA 0,1001,47,36,45,34,45,33,44,33,44,32,40,28,40,27,
980   DATA 34,21,34,20,31,17,31,16,30,15,30,14,17,1,0,1001,47,44,
990   DATA 47,45,48,46,48,70,49,71,49,85,50,86,50,103,51,104,
1000   DATA 51,105,0,1000
1010   REM --  367 <LINJE   47  19  53  19   2>
1020   FGPOINT -1*T0+0*T1+T2,-1*T3+0*T4+T5,2
1030   FGLINE 5*T0+0*T1+T2,5*T3+0*T4+T5,2
1040   REM --  373 <LINJE   55  19  64  19   2>
1050   FGPOINT 7*T0+0*T1+T2,7*T3+0*T4+T5,2
1060   FGLINE 16*T0+0*T1+T2,16*T3+0*T4+T5,2
1070   REM --  379 <LINJE   66  19  88  19   2>
1080   FGPOINT 18*T0+0*T1+T2,18*T3+0*T4+T5,2
1090   FGLINE 40*T0+0*T1+T2,40*T3+0*T4+T5,2
1100   REM --  385 <LINJE   90  19  90  19   2>
1110   FGPOINT 42*T0+0*T1+T2,42*T3+0*T4+T5,2
1120   FGLINE 42*T0+0*T1+T2,42*T3+0*T4+T5,2
1130   REM --  391 <LINJE   90  19  90  19   2>
1140   FGPOINT 42*T0+0*T1+T2,42*T3+0*T4+T5,2
1150   FGLINE 42*T0+0*T1+T2,42*T3+0*T4+T5,2
1160   REM --  397 <LINJE   90  19 113  19   2>
1170   FGPOINT 42*T0+0*T1+T2,42*T3+0*T4+T5,2
1180   FGLINE 65*T0+0*T1+T2,65*T3+0*T4+T5,2
1190   REM --  403 <FIGUR  125 124   3  537   1>
1200   RESTORE 1210 : Z=FNShapeinter(3)
1210   DATA 0,1001,77,105,77,106,75,108,75,110,74,110,74,111,72,113,
1220   DATA 71,113,70,114,69,114,69,115,67,115,66,116,63,116,62,115,
1230   DATA 60,115,58,113,57,113,57,112,56,112,54,110,54,109,51,106,
1240   DATA 51,105,51,106,46,106,40,112,40,114,39,114,39,113,38,113,
1250   DATA 38,118,36,120,42,126,42,127,43,128,43,136,47,140,47,141,
1260   DATA 48,142,48,143,52,147,53,147,54,148,55,148,56,149,62,149,
1270   DATA 64,151,64,147,69,142,69,141,70,140,70,139,71,138,71,136,
1280   DATA 72,135,72,133,71,132,71,129,70,128,70,126,69,125,69,124,
1290   DATA 68,123,68,120,64,116,0,1001,38,114,38,107,37,106,37,100,
1300   DATA 36,99,36,97,35,96,35,95,29,89,29,88,28,87,28,85,
1310   DATA 27,85,27,80,26,79,26,76,25,75,25,74,20,69,20,68,
1320   DATA 18,66,17,66,14,69,14,70,13,71,13,72,12,73,12,75,
1330   DATA 11,76,11,77,10,78,10,76,0,1001,-1,62,-1,54,-2,53,
1340   DATA -2,52,-3,51,-4,51,0,1001,1,40,1,39,2,39,2,40,
1350   DATA 2,39,7,39,7,40,8,41,8,42,14,48,14,50,14,48,
1360   DATA 6,40,11,35,11,19,10,18,10,14,9,13,9,11,7,9,
1370   DATA 7,6,6,5,6,1,0,1001,41,1,42,1,57,16,58,16,
1380   DATA 61,19,61,20,64,23,64,24,0,1001,47,36,47,44,46,43,
1390   DATA 46,36,45,36,45,41,44,40,44,36,43,36,43,39,42,38,
1400   DATA 42,36,41,36,41,35,41,37,40,36,40,35,38,35,0,1001,22,58,
1410   DATA 24,58,27,55,27,53,26,52,26,51,25,50,25,49,23,47,
1420   DATA 21,47,18,50,18,52,19,53,19,54,20,55,20,56,21,57,
1430   DATA 21,58,0,1000
1440   REM --  679 <M]LA  107  65   2>
1450   FGPAINT 59*T0+46*T1+T2,59*T3+46*T4+T5,2
1460   REM --  683 <M]LA  107  30   2>
1470   FGPAINT 59*T0+11*T1+T2,59*T3+11*T4+T5,2
1480   REM --  687 <M]LA   51  30   2>
1490   FGPAINT 3*T0+11*T1+T2,3*T3+11*T4+T5,2
1500   REM --  691 <M]LA   62  30   2>
1510   FGPAINT 14*T0+11*T1+T2,14*T3+11*T4+T5,2
1520   REM --  695 <M]LA   62  84   2>
1530   FGPAINT 14*T0+65*T1+T2,14*T3+65*T4+T5,2
1540   REM --  699 <M]LA   75  84   2>
1550   FGPAINT 27*T0+65*T1+T2,27*T3+65*T4+T5,2
1560   REM --  703 <M]LA   75  97   2>
1570   FGPAINT 27*T0+78*T1+T2,27*T3+78*T4+T5,2
1580   REM --  707 <M]LA   90 140   2>
1590   FGPAINT 42*T0+121*T1+T2,42*T3+121*T4+T5,2
1600   REM --  711 <FIGUR   94 134   1   23   1>
1610   RESTORE 1620 : Z=FNShapeinter(1)
1620   DATA 0,1001,46,115,46,114,47,113,55,113,57,115,55,117,48,117,
1630   DATA 46,115,0,1000
1640   REM --  730 <M]LA   98 134   1>
1650   FGPAINT 50*T0+115*T1+T2,50*T3+115*T4+T5,1
1660   REM --  734 <LINJE   96 134 102 134   0>
1670   FGPOINT 48*T0+115*T1+T2,48*T3+115*T4+T5,0
1680   FGLINE 54*T0+115*T1+T2,54*T3+115*T4+T5,0
1690   REM --  740 <FIGUR  105 151   0  107   1>
1700   RESTORE 1710 : Z=FNShapeinter(0)
1710   DATA 0,1001,57,132,63,138,67,138,70,135,0,1001,61,135,63,135,
1720   DATA 65,133,66,133,66,132,64,130,60,130,58,132,0,1001,51,135,
1730   DATA 48,138,46,138,0,1001,44,136,47,136,50,133,48,131,44,131,
1740   DATA 0,1001,44,135,44,134,45,133,46,133,47,134,46,135,45,135,
1750   DATA 45,134,46,134,47,135,0,1001,60,134,60,133,61,132,62,132,
1760   DATA 63,133,62,134,61,134,61,133,62,133,63,134,0,1000
1770   REM --  801 <M]LA  111 151   3>
1780   FGPAINT 63*T0+132*T1+T2,63*T3+132*T4+T5,3
1790   REM --  805 <M]LA  107 152   3>
1800   FGPAINT 59*T0+133*T1+T2,59*T3+133*T4+T5,3
1810   REM --  809 <M]LA   94 151   3>
1820   FGPAINT 46*T0+132*T1+T2,46*T3+132*T4+T5,3
1830   REM --  813 <FIGUR  100 154   0   28   1>
1840   RESTORE 1850 : Z=FNShapeinter(0)
1850   DATA 0,1001,52,135,48,139,47,139,48,140,53,135,0,1001,59,135,
1860   DATA 63,139,67,139,70,136,0,1000
1870   REM --  834 <FIGUR   98 131   1   42   1>
1880   RESTORE 1890 : Z=FNShapeinter(1)
1890   DATA 0,1001,50,112,48,112,48,113,51,113,51,112,52,113,52,112,
1900   DATA 48,112,47,113,47,117,46,117,46,116,49,116,49,118,47,118,
1910   DATA 47,117,45,117,45,116,50,116,50,118,54,118,0,1000
1920   REM --  862 <FIGUR   97 135   0    9   1>
1930   RESTORE 1940 : Z=FNShapeinter(0)
1940   DATA 0,1001,49,116,51,116,48,116,48,115,49,115,49,114,50,114,0,1000
1950   REM --  874 <FIGUR  101 149   0   84   1>
1960   RESTORE 1970 : Z=FNShapeinter(0)
1970   DATA 0,1001,53,130,53,135,53,130,52,129,52,128,51,127,51,125,
1980   DATA 50,124,0,1001,57,131,57,128,58,127,58,125,59,124,58,123,
1990   DATA 57,123,56,122,52,122,50,124,0,1001,53,124,54,124,0,1001,56,124,
2000   DATA 57,124,0,1001,57,122,58,122,59,123,58,124,0,1000
2010   REM --  923 <FIGUR  105 143   2    1   1>
2020   RESTORE 2030 : Z=FNShapeinter(2)
2030   DATA 0,1001,57,124,57,123,0,1000
2040   REM --  931 <FIGUR  105 140   2   91   1>
2050   RESTORE 2060 : Z=FNShapeinter(2)
2060   DATA 0,1001,57,121,57,122,57,121,56,120,59,120,59,124,58,124,
2070   DATA 59,124,59,126,58,127,60,127,60,122,58,122,60,122,60,128,
2080   DATA 58,128,58,129,57,129,59,129,59,127,60,127,60,121,55,121,
2090   DATA 55,122,55,121,53,121,53,122,53,121,51,121,51,123,48,123,
2100   DATA 48,126,51,126,47,126,50,126,50,122,58,122,58,123,0,1000
2110   REM --  984 <FIGUR   63  25   0    9   1>
2120   RESTORE 2130 : Z=FNShapeinter(0)
2130   DATA 0,1001,15,6,15,8,17,10,17,9,15,7,16,8,16,7,0,1000
2140   REM --  996 <M]LA   70  72   3>
2150   FGPAINT 22*T0+53*T1+T2,22*T3+53*T4+T5,3
2160   REM --  1000 <M]LA   45  74   3>
2170   FGPAINT -3*T0+55*T1+T2,-3*T3+55*T4+T5,3
2180   REM --  1004 <FIGUR   43  74   0   37   1>
2190   RESTORE 2200 : Z=FNShapeinter(0)
2200   DATA 0,1000
2210   REM --  1030 <FIGUR   70  72   0    3   1>
2220   RESTORE 2230 : Z=FNShapeinter(0)
2230   DATA 0,1001,22,53,22,52,23,53,23,52,0,1000
2240   REM --  1039 <FIGUR   71 171   2  543   1>
2250   RESTORE 2260 : Z=FNShapeinter(2)
2260   DATA 0,1001,23,152,24,151,27,151,28,150,29,150,31,152,32,152,
2270   DATA 33,153,34,153,36,151,37,151,38,152,39,152,40,151,41,152,
2280   DATA 42,152,44,150,45,150,47,152,49,152,50,153,51,152,0,1001,51,149,
2290   DATA 50,149,49,148,47,148,45,146,44,146,43,147,42,146,41,147,
2300   DATA 39,145,37,145,35,147,34,147,33,146,32,146,31,145,30,145,
2310   DATA 29,146,28,146,26,144,25,144,24,145,23,144,22,145,21,145,
2320   DATA 20,146,19,146,18,145,17,146,0,1001,17,135,18,136,20,136,
2330   DATA 22,138,25,138,27,140,29,140,30,141,31,141,34,144,36,142,
2340   DATA 39,142,41,144,42,144,0,1001,42,141,40,139,38,139,35,136,
2350   DATA 34,136,32,134,31,134,30,133,28,133,27,132,25,132,18,125,
2360   DATA 17,125,15,123,13,123,11,121,0,1001,11,105,12,106,13,106,
2370   DATA 16,109,18,109,28,119,28,120,30,122,30,125,33,128,33,129,
2380   DATA 40,136,0,1001,40,131,34,125,34,121,31,118,31,115,29,113,
2390   DATA 29,110,28,109,28,106,23,101,23,99,19,95,19,94,12,87,
2400   DATA 0,1001,17,77,22,82,22,84,24,86,24,89,26,91,26,94,
2410   DATA 28,96,28,98,31,101,31,104,33,106,33,109,35,111,35,120,
2420   DATA 0,1001,51,157,50,158,48,158,46,160,44,160,43,161,40,161,
2430   DATA 38,163,37,163,0,1001,54,153,56,153,57,154,59,154,60,155,
2440   DATA 62,155,63,156,0,1001,56,156,53,156,0,1001,49,163,51,163,
2450   DATA 53,165,56,165,58,163,62,163,65,160,70,160,71,159,73,159,
2460   DATA 74,158,75,159,0,1001,75,155,74,155,73,154,70,154,69,153,
2470   DATA 66,153,0,1001,69,149,71,147,71,145,73,143,73,142,75,140,
2480   DATA 75,138,76,137,76,133,77,132,77,130,74,127,74,125,72,123,
2490   DATA 72,120,70,118,0,1001,75,118,76,119,76,121,78,123,78,126,
2500   DATA 79,127,0,1001,75,146,72,149,0,1000
2510   REM --  1318 <FIGUR   45  74   0    1   1>
2520   RESTORE 2530 : Z=FNShapeinter(0)
2530   DATA 0,1000
2540   REM --  1326 <FIGUR   45  75   3    1   1>
2550   RESTORE 2560 : Z=FNShapeinter(3)
2560   DATA 0,1001,-3,56,-3,55,0,1000
2570   REM --  1334 <FIGUR   81 100   3   26   1>
2580   RESTORE 2590 : Z=FNShapeinter(3)
2590   DATA 0,1001,33,81,36,84,36,86,38,88,38,89,40,91,40,92,
2600   DATA 42,94,42,98,43,99,43,100,45,102,45,104,48,107,0,1000
2610   REM --  1354 <M]LA   87 117   3>
2620   FGPAINT 39*T0+98*T1+T2,39*T3+98*T4+T5,3
2630   REM --  1358 <FIGUR   92  21   3   21   1>
2640   RESTORE 2650 : Z=FNShapeinter(3)
2650   DATA 0,1001,44,2,46,2,48,4,49,4,50,5,51,5,52,6,
2660   DATA 53,6,57,10,59,10,61,12,62,12,64,14,65,14,0,1000
2670   REM --  1376 <M]LA  108  33   3>
2680   FGPAINT 60*T0+14*T1+T2,60*T3+14*T4+T5,3
2690   REM --  1380 <FIGUR   56  60   3   12   1>
2700   RESTORE 2710 : Z=FNShapeinter(3)
2710   DATA 0,1001,8,41,8,38,12,42,12,43,14,45,14,47,0,1000
2720   REM --  1393 <M]LA   59  63   3>
2730   FGPAINT 11*T0+44*T1+T2,11*T3+44*T4+T5,3
2740   REM --  1397 <FIGUR   46  40   3   20   1>
2750   RESTORE 2760 : Z=FNShapeinter(3)
2760   DATA 0,1001,-2,21,-1,20,-1,10,0,9,0,1,0,1000
2770   REM --  1414 <FIGUR   47  21   0   34   1>
2780   RESTORE 2790 : Z=FNShapeinter(0)
2790   DATA 0,1001,-1,2,-1,9,-2,10,-2,2,-2,19,-3,20,0,1000
2800   REM --  1438 <F[RGKONTR    9>
2810   FGCTL (9)
2820   REM --  1440 <FIGUR   46  18   0    7   1>
2830   RESTORE 2840 : Z=FNShapeinter(0)
2840   DATA 0,1001,-2,-1,-2,2,-1,2,-1,-1,0,1000
2850   REM --  1451 <SLUT >
2860   T0=Tm0 : T1=Tm1 : T2=Tm2 : T3=Tm3 : T4=Tm4 : T5=Tm5
2870   RETURN -1
2880 FNEND 
2890 REM ******************************
2900 REM ****** NDEL
2910 REM 
2920 DEF FNNdel(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5
2930   Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5
2940   T2=Trx*T0+T2
2950   T5=Try*T4+T5
2960   T0=T0*Scale : T4=T4*Scale
2970   REM --  1 <ORIGO   65  70>
2980   REM --  4 <FIGUR   65  70   3  457   1>
2990   RESTORE 3000 : Z=FNShapeinter(3)
3000   DATA 0,1001,0,0,0,-13,-1,-14,-1,-16,-2,-17,-2,-19,-3,-20,
3010   DATA -3,-21,-4,-22,-4,-23,-5,-24,-5,-25,-6,-26,-6,-28,-7,-29,
3020   DATA -7,-33,-4,-36,-4,-37,-3,-37,-3,-38,-1,-40,1,-40,1,-39,
3030   DATA 2,-38,-1,-35,-1,-34,-2,-33,-2,-31,-1,-30,-1,-28,0,-27,
3040   DATA 0,-26,1,-27,1,-28,2,-28,2,-40,0,-42,0,-43,-1,-44,
3050   DATA -1,-45,-2,-46,-2,-47,-3,-48,-3,-49,-4,-50,-4,-51,-5,-52,
3060   DATA -5,-54,-6,-55,-6,-57,-7,-58,-7,-60,0,1001,2,-38,3,-39,
3070   DATA 3,-40,4,-39,6,-39,6,-22,7,-21,7,-20,8,-19,8,-18,
3080   DATA 9,-17,9,-12,8,-11,8,-9,7,-8,7,-4,6,-3,6,0,
3090   DATA 0,1001,18,0,15,-3,15,-4,13,-6,13,-7,11,-9,11,-11,
3100   DATA 9,-13,9,-14,8,-15,8,-18,6,-20,6,-21,0,1001,6,-40,
3110   DATA 6,-41,7,-42,8,-42,8,-43,9,-43,10,-44,13,-44,13,-41,
3120   DATA 9,-37,13,-41,11,-39,11,-41,11,-39,12,-40,14,-40,14,-41,
3130   DATA 16,-41,17,-40,17,-39,13,-35,17,-39,18,-39,20,-37,20,-36,
3140   DATA 18,-34,20,-36,23,-36,24,-35,24,-31,25,-30,25,-27,24,-27,
3150   DATA 24,-18,26,-16,26,-15,43,2,43,0,0,1001,67,0,67,-5,
3160   DATA 0,1001,75,-25,76,-26,76,-31,77,-32,77,-33,79,-35,79,-37,
3170   DATA 80,-38,80,-40,81,-41,81,-46,80,-47,80,-50,79,-51,79,-58,
3180   DATA 80,-59,80,-60,0,1001,35,-60,31,-56,30,-56,29,-55,29,-54,0,1000
3190   REM --  240 <FIGUR   65  70   3   73   1>
3200   RESTORE 3210 : Z=FNShapeinter(3)
3210   DATA 0,1001,0,0,0,1,0,1001,6,0,6,1,0,1001,19,1,
3220   DATA 18,0,0,1001,41,0,42,1,0,1001,67,1,67,0,0,1000
3230   REM --  284 <LINJE  131  70 107  70   2>
3240   FGPOINT 66*T0+0*T1+T2,66*T3+0*T4+T5,2
3250   FGLINE 42*T0+0*T1+T2,42*T3+0*T4+T5,2
3260   REM --  290 <LINJE  105  70  84  70   2>
3270   FGPOINT 40*T0+0*T1+T2,40*T3+0*T4+T5,2
3280   FGLINE 19*T0+0*T1+T2,19*T3+0*T4+T5,2
3290   REM --  296 <LINJE   82  70  72  70   2>
3300   FGPOINT 17*T0+0*T1+T2,17*T3+0*T4+T5,2
3310   FGLINE 7*T0+0*T1+T2,7*T3+0*T4+T5,2
3320   REM --  302 <LINJE   70  70  66  70   2>
3330   FGPOINT 5*T0+0*T1+T2,5*T3+0*T4+T5,2
3340   FGLINE 1*T0+0*T1+T2,1*T3+0*T4+T5,2
3350   REM --  308 <FIGUR   78  25   1  155   1>
3360   RESTORE 3370 : Z=FNShapeinter(1)
3370   DATA 0,1001,13,-45,17,-49,18,-49,18,-45,17,-44,17,-41,0,1001,26,-27,
3380   DATA 27,-27,29,-25,29,-24,30,-24,30,-23,31,-23,31,-22,35,-18,
3390   DATA 36,-18,38,-16,39,-16,41,-14,42,-14,44,-12,46,-12,47,-11,
3400   DATA 49,-11,50,-10,55,-10,56,-11,58,-11,60,-13,61,-13,63,-15,
3410   DATA 64,-15,65,-16,66,-16,67,-17,68,-17,76,-25,76,-23,75,-22,
3420   DATA 75,-21,74,-20,74,-18,73,-17,73,-16,72,-15,72,-13,71,-12,
3430   DATA 71,-11,70,-10,70,-9,69,-8,69,-7,68,-6,68,-5,62,-5,
3440   DATA 61,-4,57,-4,56,-3,53,-3,52,-4,50,-4,49,-5,48,-5,
3450   DATA 47,-6,44,-6,43,-7,42,-7,41,-8,40,-8,39,-9,38,-9,
3460   DATA 29,-18,29,-19,27,-21,27,-22,26,-23,26,-24,25,-24,0,1000
3470   REM --  393 <FIGUR   89  34   4   11   1>
3480   RESTORE 3490 : Z=FNShapeinter(256)
3490   DATA 0,1001,24,-36,24,-37,25,-38,25,-47,0,1000
3500   REM --  406 <FIGUR   89  34   3   44   1>
3510   RESTORE 3520 : Z=FNShapeinter(3)
3520   DATA 0,1001,24,-36,24,-38,25,-39,25,-40,24,-41,25,-42,24,-43,
3530   DATA 25,-44,24,-45,25,-46,24,-47,26,-49,25,-50,30,-55,27,-55,
3540   DATA 25,-57,22,-57,20,-55,19,-56,15,-52,14,-53,11,-50,11,-49,
3550   DATA 10,-48,10,-44,0,1000
3560   REM --  435 <LINJE   58  10 145  10   3>
3570   FGPOINT -7*T0-60*T1+T2,-7*T3-60*T4+T5,3
3580   FGLINE 80*T0-60*T1+T2,80*T3-60*T4+T5,3
3590   REM --  441 <FIGUR   64  71   0    2   1>
3600   RESTORE 3610 : Z=FNShapeinter(0)
3610   DATA 0,1001,-1,1,-1,0,-2,0,0,1000
3620   REM --  449 <M]LA   80  26   1>
3630   FGPAINT 15*T0-44*T1+T2,15*T3-44*T4+T5,1
3640   REM --  453 <M]LA  111  62   1>
3650   FGPAINT 46*T0-8*T1+T2,46*T3-8*T4+T5,1
3660   REM --  457 <M]LA  111  49   2>
3670   FGPAINT 46*T0-21*T1+T2,46*T3-21*T4+T5,2
3680   REM --  461 <M]LA  111  67   2>
3690   FGPAINT 46*T0-3*T1+T2,46*T3-3*T4+T5,2
3700   REM --  465 <M]LA  128  67   2>
3710   FGPAINT 63*T0-3*T1+T2,63*T3-3*T4+T5,2
3720   REM --  469 <M]LA   85  67   2>
3730   FGPAINT 20*T0-3*T1+T2,20*T3-3*T4+T5,2
3740   REM --  473 <M]LA   76  67   2>
3750   FGPAINT 11*T0-3*T1+T2,11*T3-3*T4+T5,2
3760   REM --  477 <M]LA   69  67   2>
3770   FGPAINT 4*T0-3*T1+T2,4*T3-3*T4+T5,2
3780   REM --  481 <M]LA   69  19   2>
3790   FGPAINT 4*T0-51*T1+T2,4*T3-51*T4+T5,2
3800   REM --  485 <FIGUR   84  20   1    8   1>
3810   RESTORE 3820 : Z=FNShapeinter(1)
3820   DATA 0,1001,19,-50,18,-49,21,-52,20,-51,20,-50,18,-48,0,1000
3830   REM --  496 <M]LA   93  12   2>
3840   FGPAINT 28*T0-58*T1+T2,28*T3-58*T4+T5,2
3850   REM --  500 <F[RGKONTR    9>
3860   FGCTL (9)
3870   REM --  502 <SLUT >
3880   T0=Tm0 : T1=Tm1 : T2=Tm2 : T3=Tm3 : T4=Tm4 : T5=Tm5
3890   RETURN -1
3900 FNEND 
3910 REM ******************************
3920 REM ****** NAMN
3930 REM 
3940 DEF FNNamn(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5
3950   Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5
3960   T2=Trx*T0+T2
3970   T5=Try*T4+T5
3980   T0=T0*Scale : T4=T4*Scale
3990   REM --  1 <ORIGO    0   0>
4000   REM --  4 <FIGUR   10 203   1  210   1>
4010   RESTORE 4020 : Z=FNShapeinter(1)
4020   DATA 0,1001,10,203,8,205,6,205,4,203,4,201,5,200,5,199,
4030   DATA 6,198,6,197,7,196,7,195,8,194,8,193,9,192,9,191,
4040   DATA 10,190,10,189,11,188,11,187,12,186,12,185,13,184,13,182,
4050   DATA 12,181,11,181,10,182,10,183,11,184,15,184,16,185,17,185,
4060   DATA 19,187,19,188,20,189,20,190,19,191,19,192,18,193,18,194,
4070   DATA 17,195,17,196,0,1001,15,199,16,200,0,1001,20,190,21,190,
4080   DATA 22,191,23,191,25,193,25,195,24,196,24,197,23,198,23,200,
4090   DATA 26,203,26,204,25,205,27,203,27,202,28,201,28,200,29,199,
4100   DATA 30,199,31,200,32,200,32,206,33,207,33,208,36,211,33,208,
4110   DATA 33,206,34,205,34,204,35,203,37,203,38,204,38,205,40,207,
4120   DATA 39,208,39,209,38,210,38,212,37,213,37,214,36,215,36,216,
4130   DATA 35,217,35,218,34,219,34,220,33,221,33,222,32,223,32,224,
4140   DATA 31,225,30,225,30,223,31,222,31,221,32,220,32,219,33,218,
4150   DATA 33,217,34,216,34,215,41,208,42,208,42,217,46,221,46,224,
4160   DATA 46,221,43,218,43,216,44,215,44,214,46,212,47,212,50,215,
4170   DATA 50,216,49,217,49,218,48,219,48,220,47,221,47,222,46,223,
4180   DATA 47,222,47,221,48,220,48,219,49,218,49,217,51,215,52,215,
4190   DATA 52,220,0,1000
4200   REM --  116 <TEXT    10>
4210   PRINT CUR(18,28);
4220   PRINT CHR$(130);
4230   PRINT 'Janne';
4240   REM --  129 <TEXT    16>
4250   PRINT CUR(19,28);
4260   PRINT CHR$(130);
4270   PRINT 'Gustafsson';
4280   REM --  148 <SLUT >
4290   T0=Tm0 : T1=Tm1 : T2=Tm2 : T3=Tm3 : T4=Tm4 : T5=Tm5
4300   RETURN -1
4310 FNEND 
4320 REM ******************************
4330 REM ****** LINDA
4340 REM 
4350 DEF FNLinda(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5
4360   Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5
4370   T2=Trx*T0+T2
4380   T5=Try*T4+T5
4390   T0=T0*Scale : T4=T4*Scale
4400   REM --  1 <ORIGO    0   0>
4410   REM --  4 <F[RGKONTR    9>
4420   FGCTL (9)
4430   REM --  6 <ANROPA   65  70 1000  "\DEL">
4440   Z=FN\del(65,70,1,0)
4450   REM --  18 <ANROPA   65  70 1000  "NDEL">
4460   Z=FNNdel(65,70,1,0)
4470   REM --  30 <ANROPA    0   0 1000  "NAMN">
4480   Z=FNNamn(0,0,1,0)
4490   REM --  42 <V[NTA   150>
4500   FOR I=0 TO 150 : FOR I1=0 TO 355 : NEXT I1 : NEXT I 
4510   REM --  45 <SLUT >
4520   T0=Tm0 : T1=Tm1 : T2=Tm2 : T3=Tm3 : T4=Tm4 : T5=Tm5
4530   RETURN -1
4540 FNEND 
4550 DEF FNShapeinter(Color)
4560   READ Sx,Sy : IF Sy=1000 THEN 4590 ELSE IF Sy=1001 THEN 4580
4570   FGLINE Sx*T0+Sy*T1+T2,Sx*T3+Sy*T4+T5 : GOTO 4560
4580   READ Sx,Sy : FGPOINT Sx*T0+Sy*T1+T2,Sx*T3+Sy*T4+T5,Color : GOTO 4560
4590   RETURN 0
4600 FNEND 
4610 T0=1 : T1=0 : T2=0 : T3=0 : T4=1 : T5=0
4620 PRINT CHR$(12);
4630 FGPOINT 0,0,0 : FGFILL 239,239
4640 FGCTL (10)
4650 Z=FNLinda(0,0,1,0)