Antic Magazine 1982 December/Antic_December_1982_Vol_1_No_5.atr/christre.pil

Text File | 2021-02-07 | 4KB | 1 lines

1 R:¢10 R:CHRISTMAS TREES¢20 R:¢30 R:    ANTIC, VOLUME 1, NO. 5¢40 R:¢50 J:*DRAWTREES¢100 R:¢110 R:      PARSE¢120 R:¢130 *PARSE¢140 A:=$MESSAGE¢150 MS:,¢155 R: LINE 150 IS 2 RIGHT ARROWS¢160 MS:$RIGHT¢170 A:$MESSAGE=$MATCH$LEFT¢180 MS:,¢185 R: LINE 180 IS 37 RIGHT ARROWS AND COMMA¢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¢605 R: 1ST PARSE TO GET TEXT¢606 R: NOTE NUMBER SEQUENCE¢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¢1100 R: NOW PUT SOME STARS ON THEM¢1110 C:#X=-40¢1120 C:#Y=32¢1130 U:*STAR¢1140 C:#X=40¢1150 U:*STAR¢1160 R: OK THAT DID THE TOPS, NOW FOR A FEW MORE¢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¢1380 R: HOW BOUT A FEW BALLS?¢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¢1510 R: TREES DRAWN, SET UP TYPING, COLOUR AND MUSIC LOOP¢1520 R:SPACE BETWEEN EACH CHARACTER, HIT SPACE,ESC,ESC,ESC,SPACE BETWEEN EACH WORD AND SPACE,ESC,ESC,SPACE,ESC,ESC¢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¢1640 R: NEXT LINE SETS "BLUE" PEN TO GREEN¢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¢1740 R: DRAW THE TRUNK¢1750 R: NEXT LINE SETS "RED" PEN TO BROWN¢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:DRAW 4¢1970 GR:TURN 180¢1980 GR:DRAW 2¢1990 GR:TURN 90¢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;TURN90)¢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:¢