1 R: 10 R:CHRISTMAS TREES 20 R: 30 R: ANTIC, VOL 1, NO 5 40 R: 50 J:*DRAWTREES 100 R: 110 R:PARSE 120 R: 130 *PARSE 140 A:=$MESSAGE 150 MS: , 160 MS:$RIGHT 170 A:$MESSAGE=$MATCH$LEFT 180 MS: , 190 MS:$RIGHT 200 C:@B656=1 210 T:$LEFT 220 E: 300 R: 310 R:COLORS 320 R: 330 *COLORS 340 C:#B=#B+1 350 C(#B=1):@B709=146 360 C(#B=2):@B709=66 370 C(#B=3):@B709=26 380 C(#B=4):@B709=18 390 C(#B=4):#B=0 400 E: 500 R: 510 R:LLOOP 520 R: 530 *LLOOP 540 U:*COLORS 550 U:*PARSE 560 SO:0 570 E: 600 R: 601 R:MAINLOOP 602 R: 603 *MAINLOOP 604 U:*PARSE 607 SO:22 608 PA:16 609 U:*LLOOP 610 SO:22 611 PA:16 612 U:*LLOOP 613 SO:22 614 PA:32 615 U:*LLOOP 616 SO:22 617 PA:16 618 U:*LLOOP 619 SO:22 620 PA:16 621 U:*LLOOP 622 SO:22 623 PA:32 624 U:*LLOOP 625 SO:22 626 PA:16 627 U:*LLOOP 628 SO:25 629 PA:16 630 U:*LLOOP 631 SO:18 632 PA:24 633 U:*LLOOP 634 SO:20 635 PA:8 636 U:*LLOOP 637 SO:22 638 PA:48 639 U:*LLOOP 640 SO:0 641 PA:16 642 U:*LLOOP 643 SO:23 644 PA:16 645 U:*LLOOP 646 SO:23 647 PA:16 648 U:*LLOOP 649 SO:23 650 PA:24 651 U:*LLOOP 652 SO:23 653 PA:8 654 U:*LLOOP 655 SO:23 656 PA:16 657 U:*LLOOP 658 SO:22 659 PA:16 660 U:*LLOOP 661 SO:22 662 PA:16 663 U:*LLOOP 664 SO:22 665 PA:8 666 U:*LLOOP 667 SO:22 668 PA:8 669 U:*LLOOP 670 SO:25 671 PA:16 672 U:*LLOOP 673 SO:25 674 PA:16 675 U:*LLOOP 676 SO:23 677 PA:16 678 U:*LLOOP 679 SO:20 680 PA:16 681 U:*LLOOP 682 SO:18 683 PA:48 684 U:*LLOOP 685 SO:0 686 SO:0 687 PA:64 688 C:@B77=0 689 J:*MAINLOOP 1000 R: 1010 R:DRAWTREES 1020 R: 1030 *DRAWTREES 1040 GR:CLEAR 1050 C:#X=-40 1060 C:#Y=-28 1070 U:*TREE 1080 C:#X=40 1090 U:*TREE 1110 C:#X=-40 1120 C:#Y=32 1130 U:*STAR 1140 C:#X=40 1150 U:*STAR 1170 C:#X=-48 1180 C:#Y=16 1190 U:*STAR 1200 U:*MIRRORSTAR 1210 C:#X=-32 1220 U:*STAR 1230 U:*MIRRORSTAR 1240 C:#X=-56 1250 C:#Y=0 1260 U:*STAR 1270 U:*MIRRORSTAR 1280 C:#X=-24 1290 U:*STAR 1300 U:*MIRRORSTAR 1310 C:#X=-65 1320 C:#Y=-20 1330 U:*STAR 1340 U:*MIRRORSTAR 1350 C:#X=-13 1360 U:*STAR 1370 U:*MIRRORSTAR 1390 C:#X=-43 1400 C:#Y=8 1410 U:*BALL 1420 U:*MIRRORBALL 1430 C:#X=-50 1440 C:#Y=-10 1450 U:*BALL 1460 U:*MIRRORBALL 1470 C:#X=-33 1480 C:#Y=-12 1490 U:*BALL 1500 U:*MIRRORBALL 1530 C:$MESSAGE=H A V E A H A P P Y H O L I D A Y ! 1540 J:*MAINLOOP 1600 R: 1610 R:TREE 1620 R: 1630 *TREE 1650 C:@B710=(12*16)+6 1660 GR:PEN BLUE 1670 GR:GOTO #X+28,#Y+5 1680 GR:TURNTO 0 1690 GR:TURN -26 1700 GR:DRAW 63 1710 GR:TURN 232 1720 GR:DRAW 2 1730 GR:FILL 61 1760 C:@B708=(14*16)+(4) 1770 GR:PEN RED 1780 GR:GOTO #X+4,#Y 1790 GR:TURNTO 0 1800 GR:DRAW 4 1810 GR:PEN ERASE 1820 GR:GOTO #X-4,#Y-1 1830 GR:PEN RED 1840 GR:FILL 5 1850 E: 1900 R: 1910 R:STAR 1920 R: 1930 *STAR 1940 GR:PEN YELLOW 1950 GR:GOTO #X,#Y 1960 GR:TURNTO 0 1970 GR:DRAW 4 1980 GR:TURN 180 1990 GR:DRAW 2 2000 GR:TURN 90 2010 GR:DRAW 2 2020 GR:TURN 180 2030 GR:DRAW 4 2040 E: 2100 R: 2110 R:MIRRORSTAR 2120 R: 2130 *MIRRORSTAR 2140 C:#X=(#X*-1)+1 2150 U:*STAR 2160 E: 2200 R: 2210 R:BALL 2220 R: 2230 *BALL 2240 GR:PEN YELLOW 2250 GR:GOTO #X,#Y 2260 GR:TURNTO 0 2270 C:#A=0 2280 *STARTBALL 2290 C:#A=#A+1 2300 GR:4(DRAW #A;TURN 90) 2310 J(#A<3):*STARTBALL 2320 GR:TURNTO 270;PEN BLUE;DRAW 1 2330 GR:1(TURN 90;PEN YELLOW;DRAW 2;PEN BLUE;DRAW 2) 2340 GR:3(TURN 90);DRAW 1;PEN YELLOW;DRAW 2;PEN BLUE;DRAW 2 2350 E: 2400 R: 2410 R:MIRRORBALL 2420 R: 2430 *MIRRORBALL 2440 C:#X=(#X*-1)+1 2450 U:*BALL 2460 E:
Back to previous page