' GO TO SOUND COMPOSER ' GO TO SOUND EDIT (TAB LEFT OF DISK TAB) ' SELECT A SOUND #0 TO #F ' GO BACK TO DISK TAB TO SAVE CHANGES ' RUN THIS PROGRAM TO TEST ALL SOUNDS ' TAP OR HOLD DOWN ON TEXT BUTTONS TO TEST ' WAS8BIT .... PRINT PRINT " 00 11 22 33" PRINT " 00 11 22 33" PRINT PRINT PRINT " 44 55 66 77" PRINT " 44 55 66 77" PRINT PRINT PRINT " 88 99 AA BB" PRINT " 88 99 AA BB" PRINT PRINT PRINT " CC DD EE FF" PRINT " CC DD EE FF" TOUCHSCREEN DO IF TOUCH THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 C=CELL.C(TX,TY) C$=CHR$(C-160) IF C$="0" THEN PLAY 0,RND(90),60 SOUND 0 IF VAL(C$)>0 THEN PLAY 0,RND(90),60 SOUND VAL(C$) IF C$="A" THEN PLAY 0,RND(90),60 SOUND $A IF C$="B" THEN PLAY 0,RND(90),60 SOUND $B IF C$="C" THEN PLAY 0,RND(90),60 SOUND $C IF C$="D" THEN PLAY 0,RND(90),60 SOUND $D IF C$="E" THEN PLAY 0,RND(90),60 SOUND $E IF C$="F" THEN PLAY 0,RND(90),60 SOUND $F WAIT 5 END IF LOOP #15:MAIN SOUND 2800303A000000001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000