** GRUNT **253280,12:53281,11:646,1^ C$(147):M$" M I D I D E L A Y"~L$"BE WITH YA IN A SEC..."D$"[D]ELAY CHANGE":T$"[T]RANSPOSE CHANGE"(V$"[V]ELOCITY ADJUST":Q$"[Q]UIT" d1000:9);L$:2000:4000:CSM%7571208 n1000:" CHECKSUM ERROR! CHECK DATA STAEMENTS"::A x800K 1000m DT((49162)256(49161))20 1000:5);D$;30);"(";DT;")" S$"+":T(49163):T231TT256:S$"" :5);T$;30);"(";S$;T;")" S$"+":V(49164):V128VV256:S$""% :5);V$;30);"(";S$;V;")"3 :5);Q$O ::"YOUR CHOICE [?]";b A$:A$""220r A$"D"500 A$"T"600 A$"V"700 A$"Q"999 150 1000 "NEW DELAY TIME": "IN MILLISECONDS (1 TO 3000) ";D DD20 DH(D256):DLD(DH256)4 &49161,DL:49162,DH= W800G X1000 b"NEW TRANSPOSE INTERVAL"::"IN SEMITONES (-24 TO +24) ";T lT0T256T v49163,T 800 1000 "NEW VELOCITY ADJUSTMENT"::"(-127 TO +127) ";V V0V256V 49164,V 800 1000C *14);(18);" DELAY ON ";(146)l 4:6);"HIT A KEY TO RETURN TO MENU"w >SADRS 130 C$:  ** MORE GRUNT ** C$;8);M$ I09::I   ** BLAH ** SADRS49152:EADRS49679 ISADRSEADRS OP$:3000 I,OP& I, = ** PUKE **[ OH$(OP$,1):OL$(OP$,1) OH(OH$):OH0OH$"0"OH(OH$)55 OL(OL$):OL0OL$"0"OL(OL$)55 OPOH16OL   ** FART ** CSM%0 ISADRSEADRSCSM%CSM%(I)II1$CSM%CSM%(I)+I1g 4C,0F,C0,00,00,00,00,00,00,E8,03,0C,00,00,00,20 2B,C0,20,9F,FF,20,E4,FF,C9,00,F0,F6,20,D8,C1,60 A9,03,8D,08,DE,A9,95,8D,08,DE,60,78,20,3D,C0,20  52,C0,20,6C,C0,20,83,C0,20,20,C0,58,60,A9,7F,8D? 0D,DC,A9,31,8D,04,DC,A9,00,8D,05,DC,A9,11,8D,0Eu DC,60,A9,7F,8D,0D,DD,A9,31,8D,04,DD,A9,00,8D,05 DD,A9,13,8D,0E,DD,A9,82,8D,0D,DD,60,AD,14,03,8D 10,C2,AD,15,03,8D,11,C2,A9,9A,8D,14,03,A9,C0,8D 15,03,60,AD,18,03,8D,12,C2,AD,19,03,8D,13,C2,A9M CB,8D,18,03,A9,C0,8D,19,03,60,AD,08,DE,4A,B0,21 4A,90,27,AD,06,C0,D0,07,A9,95,8D,08,DE,30,18,AC 07,C0,EE,07,C0,CE,06,C0,B9,14,C3,8D,09,DE,4C,C7 C0,AD,09,DE,20,07,C1,4C,7E,EA,00,48,8A,48,98,48% AD,0D,DD,20,AA,C1,C9,FF,F0,06,20,B7,C1,4C,D3,C0[ AD,03,C0,F0,1C,20,AA,C1,8D,06,DD,20,AA,C1,8D,07 DD,A9,80,8D,0D,C0,A9,59,8D,0F,DD,68,A8,68,AA,68 40,4E,0D,C0,4C,FB,C0,48,30,34,AD,0E,C0,30,1C,F0 1C,2C,0E,C0,70,03,20,5C,C1,CE,0E,C0,AD,0E,C0,293 3F,8D,0E,C0,68,20,0B,C2,4C,9D,C1,68,60,A9,01,8Di 0E,C0,68,20,FA,C1,20,9D,C1,A9,FF,4C,9D,C1,29,F0 C9,90,F0,0B,C9,80,F0,07,A9,80,8D,0E,C0,30,DC,20 5C,C1,68,20,9D,C1,A9,41,8D,0E,C0,60,2C,0D,C0,30  18,AD,09,C0,8D,06,DD,AD,0A,C0,8D,07,DD,A9,59,8DA 0F,DD,A9,80,8D,0D,C0,30,16,AD,06,DC,49,FF,C9,FFw D0,02,29,FE,20,9D,C1,AD,07,DC,49,FF,20,9D,C1,A9 FF,8D,06,DC,8D,07,DC,A9,59,8D,0F,DC,60,AC,05,C0 EE,05,C0,EE,03,C0,99,14,C2,60,AE,04,C0,EE,04,C0 CE,03,C0,BD,14,C2,60,48,AD,08,DE,29,02,D0,14,AEO 08,C0,68,9D,14,C3,EE,08,C0,EE,06,C0,A9,B5,8D,08 DE,30,04,68,8D,09,DE,60,78,AD,10,C2,8D,14,03,AD 11,C2,8D,15,03,AD,12,C2,8D,18,03,AD,13,C2,8D,19 03,A9,03,8D,08,DE,20,84,FF,60,F0,0E,18,6D,0C,C0' 30,06,D0,06,A9,01,D0,02,A9,7F,60,18,6D,0B,C0,60