Antic Magazine 1983 February/Antic_February_Vol_1_No_6.atr/seffects.pil

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

10 R: SPECIAL EFFECTS¢20 R: ANTIC VOL 1, NO.6¢30 R:¢40 U:*REGISTERS¢100 U:*BOUNCINGBALL¢110 U:*JACKHAMMER¢120 U:*LIGHTNING¢490 E:¢500 R:¢510 *BOUNCINGBALL¢520 C:#Z=6[NUMBER OF BOUNCES¢530 *BALL1¢540 C:#Y=22*2¢550 *BALL2¢560 POS:18,(#Y/2)+1¢570 T: [SPACE HOLDER¢580 POS:18,(#Y/2)¢590 T:`   [CTRL¢600 C:@B#A=(#Y*10)/2¢610 C:@B#B=224+((#Y/4)-5)¢620 C:#Y=#Y-1¢630 J(#Y>10):*BALL2¢640 PA:15¢650 *BALL3¢660 POS:18,(#Y/2)-1¢670 T: [SPACE HOLDER¢680 POS:18,(#Y/2)¢690 T:`  [CTRL `¢700 C:@B#A=(#Y*10)/2¢710 C:@B#B=224+((#Y/4)-5)¢720 C:#Y=#Y+1¢730 J(#Y<(22*2)):*BALL3¢740 C:#Z=#Z-1¢750 C:@B#A=0¢760 C:@B#B=0¢770 J(#Z>0):*BALL1¢780 E:¢1000 R:¢1010 *JACKHAMMER¢1020 GR:QUIT¢1030 C:@B752=1[TURN OFF CURSOR¢1040 C:#Z=0¢1050 U:*PICTURE¢1060 *JACKHAMMER1¢1070 C:@B#A=103¢1080 C:@B#B=96+14¢1090 POS:16,17¢1100 T:③[CTRL S¢1110 PA:@B20¢1120 SO:0¢1130 POS:16,17¢1140 T: [TYPE A SPACE¢1150 PA:@B20/7¢1160 C:#Z=#Z+1¢1170 E(#Z=15):¢1180 J:*JACKHAMMER1¢1190 *PICTURE¢1200 C:@B84=8 [SETS ROW¢1210 C:@B82=14[SETS MARGIN¢1220 T:      [BLANK TO MOVE TO MARGIN¢1230 T:[6 CTRL N¢1240 T:⑥ ⇩[CTRL V,BLANK,CTRL B¢1250 T:⑥ ⇩ [SAME AS 1180¢1260 T:⑥ ⇩ [SAME AS 1180¢1270 T:⑥ ⇩ [SAME AS 1180¢1280 T:◆ ╱[CTRL G,BLANK,CTRL F¢1290 T:⇩⑥[CTRL B, CTRL V¢1300 T:   á[3 BLANK, REVERSE BLANK¢1310 T:   ③[3 BLANK, CTRL S¢1320 C:@B82=2 [RESETS MARGIN¢1330 POS:2,18¢1340 T:áááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááááá¢1350 R:LINE ABOVE IS 76 REVERSE SPACES¢1360 E:¢1500 *LIGHTNING¢1520 C:#Y=-70¢1530 GR:CLEAR [HERE TO TURN ON SCREEN¢1540 T:¢1550 T:NEVER TWICE IN THE SAME PLACE, EH?¢1560 R:¢1570 *LIGHT1¢1580 U:*STRIKE¢1590 U:*SOUND¢1600 C:#X=#X+14¢1610 PA:60¢1620 J(#X<75):*LIGHT1¢1630 PA:300¢1640 GR:QUIT [BACK TO TEXT¢1650 E:¢1660 R:¢1670 *STRIKE¢1680 C(#S=3):#S=0¢1690 C:#S=#S+1¢1700 GR(#S=1):PEN YELLOW¢1710 GR(#S=2):PEN RED¢1720 GR(#S=3):PEN BLUE¢1730 GR:GOTO -#X,47¢1740 GR:DRAWTO 0,-31¢1750 E:¢1760 R:¢1770 R:¢1780 *SOUND¢1790 C:#P=0¢1800 *SOUND1¢1810 C:@B#A=#P¢1820 C:@B#B=0+(14-(#P/20))¢1830 C:@B#C=#P¢1840 C:@B#D=128+(14-(#P/20))¢1850 C:#P=#P+5¢1860 J(#P<240):*SOUND1¢1870 PA:3¢1880 SO:0¢1890 PA:60¢1900 E:¢9800 R:¢9810 *REGISTERS¢9820 C:#A=53760[PITCH VOICE 0¢9830 C:#B=53761[CNTRL VOICE 0¢9840 C:#C=53762[PITCH VOICE 1¢9850 C:#D=53763[CNTRL VOICE 1¢9860 C:#E=53764[PITCH VOICE 2¢9870 C:#F=53765[CNTRL VOICE 2¢9880 C:#G=53766[PITCH VOICE 3¢9890 C:#H=53767[CNTRL VOICE 3¢9900 E:¢