Antic Magazine 1982 October/Antic_October_1982_Vol_1_No_4.atr/player.pil

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

50 R:PILOT PLAYER¢60 R:ANTIC, VOL 1, # 4¢70 R:¢80 R:¢300 R:    FILE¢310 *FILE¢320 R:¢330 T:ENTER DEVICE TO PLAY MUSIC FROM¢340 T:D=DISK, C=CASSETTE¢350 A:$D¢360 R:NEXT, CHECK TO SEE IF CASSETTE¢370 M: C¢380 CY:$FILESPEC=C:¢390 JY:*FILEDONE  [IF CASS JUMP OUT¢400 M: D¢410 TY:ENTER FILE NAME¢420 AY:$FILE    [GET FILE NAME¢430 CY:$FILESPEC=$D:$FILE¢440 TN:I DON'T KNOW THAT DEVICE¢450 JN:*FILE¢460 *FILEDONE¢470 T:}¢1000 R:     TEMPO & PLAY¢1010 R:¢1020 R:     TEMPO¢1030 *TEMPO¢1040 T:}¢1050 POS:9,5¢1060 T:PLEASE ENTER A TEMPO¢1070 T:¢1080 T:          256 = Adagio¢1090 T:          128 = Andante¢1100 T:           64 = Allegro¢1110 POS:17,11¢1120 *RESTART¢1130 A:#T¢1140 J(#T=256)+(#T=128)+(#T=64):*READ¢1150 T:PLEASE ENTER NUMBER AGAIN¢1160 J:*RESTART¢1170 R:    READ¢1180 *READ¢1190 T:¢1200 T:     PLAYING FILE $FILESPEC¢1210 READ:$FILESPEC,$PLAYVALUES¢1220 R:THIS DEMOS WORD PARSING¢1230 *LOOP1¢1240 C:#N=0¢1250 *LOOP2¢1260 C:#N=#N+1¢1270 A:=$PLAYVALUES¢1275 R:NEXT LINE ESC-CTRL-LEFT THEN UNDERLINE¢1280 MS:_¢1290 JN:*READ¢1300 C:$PLAYVALUES=$RIGHT¢1310 A(#N=1):#A=$LEFT¢1320 A(#N=2):#B=$LEFT¢1330 A(#N=3):#C=$LEFT¢1340 A(#N=4):#D=$LEFT¢1350 A(#N=5):#L=$LEFT¢1360 A:=$LEFT¢1370 M:!¢1380 EY:¢1390 J(#N<5):*LOOP2¢1400 SO:#A#B#C#D¢1410 PA:#T/#L¢1420 J:*LOOP1¢1500 R:SET G FLAG FOR BAD NOTE¢1510 CN:#G=1¢1520 EN:¢1530 A(#C=6):=$NOTE¢1540 M(#C=6):!¢1550 EY(#C=6):¢1560 POSN(#C=6):2,22¢1570 TN(#C=6):TOO MANY VALUES:$NOTE¢1580 CN(#C=6):#G=1¢1590 EN(#C=6):¢1600 POS(#C>6):2,22¢1610 T(#C>6):TOO MANY VALUES: $NOTE¢1620 C(#C>6):#G=1¢1630 E(#C>6):¢1640 A:=$NOTETABLE¢1650 MS:$NOTE.¢1660 A:=$RIGHT¢1670 MS:/¢1680 C:$NOTEVALUES=$NOTEVALUES$LEFT¢1690 E:¢