TSKSTATUNEKK@%%###############################%%# LISTING 1: ORGAN #%%# by Gregg Ramsey #%%# Published by Atari Computer #%%# Enthusiasts (N.S.W.) #%%# October 1982 #%%############################### $ + A$INITIALISE##*** THIS IS THE MAIN LOOP **** 6-F:,*AC*AQ@ )6-F:Ad,)8,"@ (@"28,@@4-@"@@(8, 2CF:,"AC92@8,%@@@C @0<>F:,"AQ42@> @0Fk%2G2@Y-@"@a(0 k @ c*** INITIALISATION ***d;@@d'B7tA;DISABLE BREAK KEYnKA @'A@9A@VKPOKE COLOURS INx!6-B7u!AR@'-@@'( Setting up...9AU,HOLDS NOTESE-AU&68,-* ESET ALL NOTES TO PITCH=04 "6@!68,-*68,-4 A`((*** PRINT TITLE AND PIANO KEYS ***'-@@'( 4-@@4( 9-@@9( 7-@@ 7(C D E F G A B C D E F G A B-@1@(!-@@!(PITCH=0-@2@(C;-@@(1-@1@;(A-@@"(RESONATE4-@(@A(RESONATE"$+##*** DATA FOR KEYS & NOTES ***,kk31,95,230,30,94,204,24,88,173,29,93,153,27,91,136,53,117,114,48,112,102,54,118,85,55,119,76,52,116,686ff44,108,243,47,111,217,46,110,193,42,106,182,40,104,162,45,109,144,43,107,128,11,75,121,13,77,108@BB8,72,96,10,74,91,14,78,81,15,79,72,12,76,64,60,124,60,-1,0,0 D2:ORGAN.BAS