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
400 REM -- 4
410 FGCTL (9)
420 REM -- 6
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
550 REM -- 4
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
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
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
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
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
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
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
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
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
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
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
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
1450 FGPAINT 59*T0+46*T1+T2,59*T3+46*T4+T5,2
1460 REM -- 683
1470 FGPAINT 59*T0+11*T1+T2,59*T3+11*T4+T5,2
1480 REM -- 687
1490 FGPAINT 3*T0+11*T1+T2,3*T3+11*T4+T5,2
1500 REM -- 691
1510 FGPAINT 14*T0+11*T1+T2,14*T3+11*T4+T5,2
1520 REM -- 695
1530 FGPAINT 14*T0+65*T1+T2,14*T3+65*T4+T5,2
1540 REM -- 699
1550 FGPAINT 27*T0+65*T1+T2,27*T3+65*T4+T5,2
1560 REM -- 703
1570 FGPAINT 27*T0+78*T1+T2,27*T3+78*T4+T5,2
1580 REM -- 707
1590 FGPAINT 42*T0+121*T1+T2,42*T3+121*T4+T5,2
1600 REM -- 711
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
1650 FGPAINT 50*T0+115*T1+T2,50*T3+115*T4+T5,1
1660 REM -- 734
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
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
1780 FGPAINT 63*T0+132*T1+T2,63*T3+132*T4+T5,3
1790 REM -- 805
1800 FGPAINT 59*T0+133*T1+T2,59*T3+133*T4+T5,3
1810 REM -- 809
1820 FGPAINT 46*T0+132*T1+T2,46*T3+132*T4+T5,3
1830 REM -- 813
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
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
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
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
2020 RESTORE 2030 : Z=FNShapeinter(2)
2030 DATA 0,1001,57,124,57,123,0,1000
2040 REM -- 931
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
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
2150 FGPAINT 22*T0+53*T1+T2,22*T3+53*T4+T5,3
2160 REM -- 1000
2170 FGPAINT -3*T0+55*T1+T2,-3*T3+55*T4+T5,3
2180 REM -- 1004
2190 RESTORE 2200 : Z=FNShapeinter(0)
2200 DATA 0,1000
2210 REM -- 1030
2220 RESTORE 2230 : Z=FNShapeinter(0)
2230 DATA 0,1001,22,53,22,52,23,53,23,52,0,1000
2240 REM -- 1039
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
2520 RESTORE 2530 : Z=FNShapeinter(0)
2530 DATA 0,1000
2540 REM -- 1326
2550 RESTORE 2560 : Z=FNShapeinter(3)
2560 DATA 0,1001,-3,56,-3,55,0,1000
2570 REM -- 1334
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
2620 FGPAINT 39*T0+98*T1+T2,39*T3+98*T4+T5,3
2630 REM -- 1358
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
2680 FGPAINT 60*T0+14*T1+T2,60*T3+14*T4+T5,3
2690 REM -- 1380
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
2730 FGPAINT 11*T0+44*T1+T2,11*T3+44*T4+T5,3
2740 REM -- 1397
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
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
2810 FGCTL (9)
2820 REM -- 1440
2830 RESTORE 2840 : Z=FNShapeinter(0)
2840 DATA 0,1001,-2,-1,-2,2,-1,2,-1,-1,0,1000
2850 REM -- 1451
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
2980 REM -- 4
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
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
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
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
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
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
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
3480 RESTORE 3490 : Z=FNShapeinter(256)
3490 DATA 0,1001,24,-36,24,-37,25,-38,25,-47,0,1000
3500 REM -- 406
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
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
3600 RESTORE 3610 : Z=FNShapeinter(0)
3610 DATA 0,1001,-1,1,-1,0,-2,0,0,1000
3620 REM -- 449
3630 FGPAINT 15*T0-44*T1+T2,15*T3-44*T4+T5,1
3640 REM -- 453
3650 FGPAINT 46*T0-8*T1+T2,46*T3-8*T4+T5,1
3660 REM -- 457
3670 FGPAINT 46*T0-21*T1+T2,46*T3-21*T4+T5,2
3680 REM -- 461
3690 FGPAINT 46*T0-3*T1+T2,46*T3-3*T4+T5,2
3700 REM -- 465
3710 FGPAINT 63*T0-3*T1+T2,63*T3-3*T4+T5,2
3720 REM -- 469
3730 FGPAINT 20*T0-3*T1+T2,20*T3-3*T4+T5,2
3740 REM -- 473
3750 FGPAINT 11*T0-3*T1+T2,11*T3-3*T4+T5,2
3760 REM -- 477
3770 FGPAINT 4*T0-3*T1+T2,4*T3-3*T4+T5,2
3780 REM -- 481
3790 FGPAINT 4*T0-51*T1+T2,4*T3-51*T4+T5,2
3800 REM -- 485
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
3840 FGPAINT 28*T0-58*T1+T2,28*T3-58*T4+T5,2
3850 REM -- 500
3860 FGCTL (9)
3870 REM -- 502
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
4000 REM -- 4
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
4210 PRINT CUR(18,28);
4220 PRINT CHR$(130);
4230 PRINT 'Janne';
4240 REM -- 129
4250 PRINT CUR(19,28);
4260 PRINT CHR$(130);
4270 PRINT 'Gustafsson';
4280 REM -- 148
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
4410 REM -- 4
4420 FGCTL (9)
4430 REM -- 6
4440 Z=FN\del(65,70,1,0)
4450 REM -- 18
4460 Z=FNNdel(65,70,1,0)
4470 REM -- 30
4480 Z=FNNamn(0,0,1,0)
4490 REM -- 42
4500 FOR I=0 TO 150 : FOR I1=0 TO 355 : NEXT I1 : NEXT I
4510 REM -- 45
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)