Antic Magazine 1982 October/Antic_October_1982_Vol_1_No_4.atr/doc.tmp

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

PEC,$PLAYVALUES¢950 CLOSE:$FILESPEC¢960 T:¢970 T:      SAVED IN FILE $FILESPEC¢980 T:¢990 T:         SESSION ENDED¢1000 E:¢1100 R:      CHECKNOTES¢1110 *CHECKNOTES¢1120 R:¢1130 A:=$NOTES [MOVE $N. TO ACCEPT¢1140 MS:,      [MATCH ON 1ST BLANK¢1150 A:=$RIGHT!/[ADD/,MOVE TO ACCEPT¢1160 C:#C=0    [SETS NOTE COUNTER TO 0¢1170 C:$NOTEVALUES=¢1180 C:#G=0¢1190 *LOOP¢1195 R: TWO RIGHT ARROWS AND COMMA¢1200 MS:,¢1210 CN(#G=0):$PLAYVALUES=$PLAYVALUES$NOTEVALUES¢1220 POSN(#G=0):2,22¢1225 R: 38 BLANKS UP ARROW NEXT LINE¢1230 TN(#G=0):                                     ¢1240 EN:¢1250 MS:$RIGHT[MATCH W/O 1ST LETTER¢1260 C:$SAVE=$MATCH [SAVE ALL¢1270 A:=$LEFT  [$L. HAS BLANK+LETTER¢1275 R: RIGHT ARROW & UNDERLINE NEXT LINE¢1280 MS:_     [SKIP BLANK & LETTER¢1290 R:$LEFT HAS THE LETTER WE NEED¢1300 C:$NOTE=$LEFT¢1310 U:*TRANSLATE¢1320 A:=$SAVE  [PUT ALL IN BUFFER¢1330 J:*LOOP¢1400 R:      TRANSLATE¢1410 *TRANSLATE¢1420 R:¢1430 C:#C=#C+1¢1440 E(#C=7):¢1450 A(#C<5):=$GOODNOTES¢1460 A(#C=5):=$GOODDURATION¢1470 M:$NOTE¢1480 POSN:2,22¢1490 TN:ERROR IN THIS VALUE: $NOTE¢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:¢