Antic Magazine 1983 February/Antic_February_Vol_1_No_6.atr/test

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

LUE INTO RES¢990 E:¢1000 R:¢1010 *CVOICE0¢1020 C:#D=(#W/32) [BASIC'S DISTORTION¢1030 C:#L=#W\32 [MODULO IS LOUDNESS¢1040 U:*FACTOR¢1050 C:#W=#D+#L¢1060 POS:(#C*10)-5,#R¢1070 T:#D+#L=#W       [SPACE HOLDER¢1080 C:@B53761=#W [INTO CNTRL REG¢1090 E:¢1100 R:¢1110 *CVOICE1¢1120 C:#D=(#X/32) [BASIC'S DISTORTION¢1130 C:#L=#X\32 [MODULO IS LOUDNESS¢1140 U:*FACTOR¢1150 C:#X=#D+#L¢1160 POS:(#C*10)-5,#R¢1170 T:#D+#L=#X        [SPACE HOLDER¢1180 C:@B53763=#X [INTO CNTRL REG¢1190 E:¢1200 R:¢1210 *CVOICE2¢1220 C:#D=(#Y/32) [BASIC'S DISTORTION¢1230 C:#L=#Y\32 [MODULO IS LOUDNESS¢1240 U:*FACTOR¢1250 C:#Y=#D+#L¢1260 POS:(#C*10)-5,#R¢1270 T:#D+#L=#Y         [SPACE HOLDER¢1280 C:@B53765=#Y [INTO CNTRL REG¢1290 E:¢1300 R:¢1310 *CVOICE3¢1320 C:#D=(#Z/32) [BASIC'S DISTORTION¢1330 C:#L=#Z\32 [MODULO IS LOUDNESS¢1340 U:*FACTOR¢1350 C:#Z=#D+#L¢1360 POS:(#C*10)-5,#R¢1370 T:#D+#L=#Z        [SPACE HOLDER¢1380 C:@B53767=#Z [INTO CNTRL REG¢1390 E:¢1400 R:¢1410 *FACTOR¢1420 C(#J=1):#L=#L-1 [LOWER VALUE¢1430 C(#J=2):#L=#L+1 [HIGHER VALUE¢1440 C(#L>15):#D=#D+1 [15 IS HIGHEST¢1450 C(#L>15):#L=0 [LOUNNESS LEVEL¢1460 C(#L<0):#D=#D-1 [0 IS LOWEST¢1470 C(#L<0):#L=15   [WRAPAROUND¢1480 C(#D>7):#D=0 [LEVEL 7 IS HIGHEST¢1490 C(#D<0):#D=7 [LEVEL 0 IS LOWEST¢1500 C:#D=#D*32¢1510 E:¢1520 R:¢1530 *STARTUP¢1540 GR:QUIT [CLEAR SCREEN¢1550 C:@B752=1 [TURN OFF CURSOR¢1560 POS:2,3¢1570 T:   VOICES   PITCH # CONTROL #¢1580 POS:2,4¢1590 T:   VOICE 0    53670     53761¢1600 POS:2,9¢1610 T:   VOICE 1    53672     53763¢1620 POS:2,14¢1630 T:   VOICE 2    53674     53765¢1640 POS:2,19¢1650 T:   VOICE 3    53676     53767¢1660 C:#R=5  [SET UP ROW FOR START¢1670 C:#C=2  [SET UP COLUMN FOR START¢1680 POS:(#C*10)-5,#R+1 [START POS¢1690 T:∧∧∧∧∧∧ [6 REVERSE SHIFT *S¢1700 E:¢