!P1MTONWAICHBROUTINTdARA0ABB@@P A@ A @ ))******** TUNING YOUR ATARI ********,,BY L.M.SCHREIBER FOR ANTIC AUGUST 1982(;@ ,;A,24 +@"AF:A,4AA<j6-F:A,&@&A8AA$jSTORE THE BEGINNING OF NEW & OLD CHARACTER SETSFl6.h͑`*6-A066-AlMACHINE LANGUAGE SUBROUTINE MOVES THE CHARACTER SETPE6-?:C:,,6-$AV)AVEINSTALL NEW CHARACTER SETZM-%@%@q"%) MCHANGE THE CHARACTERS FROM ! TO $d^^0,254,124,254,124,254,124,254,108,0,254,254,124,254,124,254,40,108,0,254,254,254,124,254nWW186,40,108,0,254,254,254,254,56,108,56,16,254,56,40,108,0,56,108,56,146,124,56,40x440,0,56,108,56,16,254,56,0,0,0,56,108,56,16,124@#@@K:@OPEN THE KEYBOARD FOR READ-@@ 2(@! ! ! ! ! ! ! !D-@@a(@% % % % % % % %THE ! AND % ARE THE NEW CHARACTERSI-@@2(@c d e f g a b cIPLACE THE TONE NAMES(AA(RESTORE THE MENU3-@3(@ ٠3-@@3(@ Ԡ2-@@2(@ ٠T6-)@.ATGET THE KEY PRESSED-REMOVE THE MENUW!A'6-&A(/AWINVERSE FLAG IS ON RESET IT TO NORMALP @I)!@R+AdAU5 APNOT A NUMBER FROM 1 TO 4#6-&@H#GET THEN NUMBER''APA@A A`* 6.*REMOVE CONTENTS OF THE STRINGI6-A`6-%@1"AA`IONLY ACCEPT 100 NOTESW)@$"@'A`WGET THE KEY PRESSED-RETURN TO MENU ON ESCAPE KEY"W!A'6-&A(/AWINVERSE FLAG IS ON RESET IT TO NORMAL,P @I)!@V+AdAU5 APNOT A NUMBER FROM 1 TO 86F6-&@H67<,.=:,FGET THEN NUMBER-PUT IT IN THE STRING@56-$@5OFFSET IT FOR THE PROPER POSITIONJOO'@APA`ApAAAAA T ^6-A! 'C'h6-A 'D'r6-@ 'E'|6-@ 'F'6-@ 'G'6-@r 'A'6-@d 'B'6-@`'C'ZZLINES 430-450 MAKE THE CHARACTER APPEAR TO PUSH DOWN ON THE BELLOW AND MAKE THE TONEs6-@-@1(@>:A4,=-@ S(@>:A0,o2@@s g-@%(@>:A5,1-@ G(@>:A1,c2@@g K-@%(@>:A6,1-@ G(@>:A2,K 2@@g-@%(@>:A5,1-@ G(@>:A1,c2@@g KKLINES 470-490 RETURN THE CHARACTER AND BELLOW TO THE CORRECT POSITIONg-@%(@>:A4,1-@ G(@>:Ab,c2@@g ^-@(@%*-@ 9(@![2^$&-@ $&TIMING LOOPPLAY A SAMPLE TUNE6.11556654433221--ROUTINE TO PLAY BACK THE MELODY ENTEREDi6-A@6-%@&B:,46-A:7<,,> A iKEEP PLAYING UNTIL THE END OF THE STRING& A`0D2:TUNE