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)