Seasons greetings card from the Trimbles.
Content
Image Gallery
Source Code
3 REM "TRIMPEACE"
4 FLASH 0
6 PAPER 0: BORDER 0: INK 2: CLS : PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175
7 PLOT 3,3: DRAW 249,0: DRAW 0,169: DRAW -249,0: DRAW 0,-169
10 INK 5: PLOT 48,120
20 DRAW -10,-7,.1*PI
30 DRAW -2,-31,.4*PI: DRAW 4,4
40 DRAW 2,30,.4*-PI
50 DRAW 8,-30,.2*-PI: DRAW 0,-62:
60 DRAW -8,-8,.3*-PI:
70 DRAW 14,14,.5*PI: DRAW 0,62:
80 DRAW -8,28,.25*PI
90 PLOT 45,118: DRAW 8,-27,.2*-PI
100 DRAW 0,-64: DRAW -11,-11,.4*-PI
110 PLOT 36,13: DRAW 30,4,.2*-PI: DRAW 7,-1
120 DRAW 44,7,.2*PI: DRAW -38,-12,.3*-PI
130 DRAW -44,0,.2*PI: DRAW -3,-3: DRAW 40,1,.2*-PI: DRAW 16,2,.2*PI
140 CIRCLE 61,3,1: DRAW 0,90: DRAW 31,50,.45*-PI
150 DRAW 0,-85,.75*-PI: DRAW -50,10,.1*PI:
160 PLOT 94,59: DRAW -50,10,.1*PI
170 PLOT 97,61: DRAW -51,10,.1*PI: DRAW -8,-8
180 PLOT 90,140: DRAW 30,-50,.4*-PI
190 PLOT 88,138: DRAW 30,-53,.4*-PI
200 PLOT 58,110: DRAW 10,20,.4*-PI
210 DRAW -10,20,.4*-PI
220 DRAW -10,-20,.4*-PI
230 DRAW 10,-20,.4*-PI
240 REM "WING"
250 PLOT 91,131: DRAW 9,-15
260 DRAW 0,-15,.4*-PI
270 DRAW -2,-7,.1*PI
280 PLOT 76,127: DRAW 18,-25,.2*PI
290 DRAW 0,-5,.3*-PI
300 DRAW 2,-8,.3*PI
310 PLOT 95,93: DRAW 4,2
320 DRAW 7,-3,-PI
330 DRAW 3,-1: DRAW -3,-1
340 DRAW -4,-4,.3*PI
360 DRAW -20,-6,.5*-PI
370 DRAW -15,-2,.4*PI
380 DRAW -2,2: DRAW 20,7,.1*-PI
390 PLOT 67,78: DRAW 3,-1
400 DRAW 7,4,.1*-PI
410 PLOT 103,93: REM eye
420 PLOT 113,97: DRAW -6,-15
430 CIRCLE 105,79,1
440 CIRCLE 102,76,1
450 CIRCLE 99,73,1
460 CIRCLE 102,80,1
470 PLOT 100,116
480 DRAW -8,-12,.3*PI
490 PLOT 84,110
500 DRAW 7,-24,.4*PI
510 PLOT 91,131: DRAW 1,-9,.4*PI
520 DRAW 6,-8: PLOT 90,124
530 DRAW -1,-6,.5*PI: DRAW 5,-5
540 PLOT 90,117: DRAW -1,-5,.5*PI
550 DRAW 4,-4: PLOT 89,111
560 DRAW -1,-4,.4*PI
570 PLOT 76,127: DRAW -1,-6,.5*PI
580 DRAW 8,-14: PLOT 75,121
590 DRAW -1,-6,.5*PI: DRAW 7,-10
600 PLOT 76,115: DRAW -2,-7,.5*PI
610 DRAW 6,-6:
620 PLOT 75,108: DRAW 2,-9,.4*PI
630 DRAW 5,-2: PLOT 78,98
640 DRAW 8,-8,.5*PI
650 PLOT 115,54: DRAW -6,-7,1.4*PI: REM "E"
651 DRAW 7,-7,1.4*PI
652 PLOT 115,54: DRAW -6,-7,1.3*PI
653 DRAW 7,-7,1.5*PI
654 PLOT 121,52: DRAW 9,3,.5*-PI
655 DRAW 12,-21: DRAW 5,3,.5*PI
660 PLOT 128,56: DRAW 12,-21
670 PLOT 130,50: DRAW -9,-14,.3*PI
680 PLOT 130,50: DRAW -8,-14,.3*PI: DRAW 15,0
690 PLOT 167,52: DRAW 0,-15,1.5*PI
700 PLOT 167,52: DRAW 0,-15,1.53*PI
710 PLOT 187,54
720 DRAW -6,-7,1.4*PI
730 DRAW 7,-7,1.4*PI
740 PLOT 187,54
750 DRAW -6,-7,1.3*PI
760 DRAW 7,-7,1.5*PI
770 PRINT AT 18,15;"ON EARTH"
775 INK 6: FLASH 0
780 PLOT 82,160:
790 DRAW -4,-4,1.5*PI
800 DRAW -5,-5,1.6*-PI
810 PRINT AT 3,11;"EASONS"
820 PLOT 150,160: DRAW -10,0,PI
830 DRAW 0,-10: DRAW 10,0,PI
840 DRAW 0,3: DRAW -4,0
850 PRINT AT 3,19;"REETINGS"
860 PRINT AT 4,15;"FROM THE"
870 PLOT 137,111: DRAW 0,10,.9*-PI
880 DRAW 4,3: DRAW 3,6,.25*PI
900 DRAW 0,-40
910 PLOT 150,97
920 DRAW 0,12: DRAW 4,-3,PI: DRAW 0,-7
930 DRAW 7,0,PI: DRAW 0,7: DRAW 0,-10: DRAW 1,0,.2*PI
940 DRAW 8,10: DRAW 0,-10
950 DRAW 5,10: DRAW 0,-10: DRAW 5,10
960 DRAW 0,-10: DRAW 2,2
970 PLOT 186,132: DRAW 0,-33
980 DRAW 7,0,PI: DRAW -4,7,.25*PI
990 DRAW 4,0
1005 PLOT 197,132: DRAW 0,-36: DRAW 2,0
1010 PLOT 208,107: DRAW -2,-4,1.25*PI
1020 DRAW -3,-7,PI: DRAW 7,2,.65
1030 PLOT 218,107: DRAW 0,-4,.5*PI
1040 DRAW 4,-6,.5*-PI: DRAW -5,3*-PI
1045 PAUSE 200
1050 FLASH 1
1080 PRINT AT 11,19;"TO ALL"
1090 PRINT AT 12,15;"OF OUR FRIENDS"
1095 PRINT AT 13,16;"AT CHRISTMAS"
1096 FLASH 0
1100 GO TO 5000
5000 PLOT 161,133
5001 LET a=.21
5002 DRAW a*12.75,a*-37.5
5003 DRAW a*39,0
5004 DRAW a*-32.25,a*-23.25
5005 DRAW a*12,a*-37.5
5006 DRAW a*-32.25,a*22.5
5007 DRAW a*-32.25,a*-23.25
5008 DRAW a*12,a*37
5009 DRAW a*-32.25,a*22.5
5010 DRAW a*39,0
5011 DRAW a*12.5,a*37.5
5015 FLASH 0
6000 LET A=21: LET B=170: LET C=1: LET D=1: INK 4
6010 PLOT A,B
6020 DRAW -4,-6,.3*PI
6030 DRAW 7,-5,.3*PI
6040 DRAW 0,-9,.75*PI
6050 DRAW 0,-9,.75*PI
6060 DRAW -8,-10,.5*PI
6070 DRAW -8,10,.5*PI
6080 DRAW 0,9,.75*PI
6090 DRAW 0,9,.75*PI
6100 DRAW 8,6,.3*PI
6110 DRAW 0,-4: DRAW -5,-5
6120 DRAW 5,5: DRAW 0,-4: DRAW -4,-4
6130 DRAW 4,4: DRAW 0,-4: DRAW -4,-4
6140 DRAW 4,4: DRAW 0,-4
6150 DRAW -4,-4: DRAW 4,4: DRAW 0,-4
6160 DRAW -4,-4: DRAW 4,4: DRAW 0,-4
6170 DRAW -3,-3: DRAW 3,3: DRAW 0,-3
6180 LET B=B-56
6182 LET D=D+1
6183 IF D=7 THEN GO TO 7000
6190 LET C=C+1
6200 IF C=4 THEN GO TO 6220
6210 GO TO 6010
6220 LET A=240: LET B=170
6230 GO TO 6010
7000 LET K=1
7005 INK 2
7010 LET E=13: LET F=126
7020 LET G=20: LET H=126
7030 LET I=17: LET J=121
7031 LET L=1
7040 CIRCLE E,F,2
7050 CIRCLE G,H,2
7060 CIRCLE I,J,2
7070 LET F=F-56
7080 LET H=H-56
7090 LET J=J-56
7100 LET K=K+1
7101 LET L=L+1
7110 IF K=4 THEN GO TO 7130
7120 IF l=7 THEN PAUSE 500: CLS : GO TO 4
7121 GO TO 7040
7130 LET E=233: LET F=126
7140 LET G=240: LET H=126
7150 LET I=237: LET J=121
7180 GO TO 7040
9997 SAVE "CARD" LINE 3: STOP
9998 STOP
9999 MOVE "CARD.bas",3