1: DECLARE SUB PLAY2 () 2: CLS 3: PRINT "" 4: SCALE$ = "DFGDGDGDFFDFG" 5: PLAY "MB" 6: PLAY "L64" 7: FOR I% = 0 TO 6 8: PLAY "O" + STR$(I%) 9: PLAY "X" + VARPTR$(SCALE$) 10: NEXT I% 11: PLAY2 12: 13: SUB PLAY2 14: 10 CLS 15: INPUT "ENTER OCTAVE (DEFAULT IS 4,MID C IS IN OCTAVE 3)"; O 16: LET OC$ = "O" + STR$(O) 17: INPUT "HOW MANY NOTES 1-40"; Z 18: PRINT "EXAMPLE FOR AN QUATER NOTE LENGTH = 4 HALF NOTE = 2 WHOLE NOTE = 1" 19: INPUT "NOTE A-G, LENGTH 1-64"; A$, A 20: IF Z < 2 GOTO 20 21: INPUT "NOTE, LENGTH"; B$, B 22: IF Z < 3 GOTO 20 23: INPUT "NOTE, LENGTH"; C$, C 24: IF Z < 4 GOTO 20 25: INPUT "NOTE, LENGTH"; D$, D 26: IF Z < 5 GOTO 20 27: INPUT "NOTE, LENGTH"; E$, E 28: IF Z < 6 GOTO 20 29: INPUT "NOTE, LENGTH"; F$, F 30: IF Z < 7 GOTO 20 31: INPUT "NOTE, LENGTH"; G$, G 32: IF Z < 8 GOTO 20 33: INPUT "NOTE, LENGTH"; H$, H 34: IF Z < 9 GOTO 20 35: INPUT "NOTE, LENGTH"; I$, I 36: IF Z < 10 GOTO 20 37: INPUT "NOTE, LENGTH"; J$, J 38: IF Z < 11 GOTO 20 39: INPUT "NOTE, LENGTH"; K$, K 40: IF Z < 12 GOTO 20 41: INPUT "NOTE, LENGTH"; L$, L 42: IF Z < 13 GOTO 20 43: INPUT "NOTE, LENGTH"; M$, M 44: IF Z < 14 GOTO 20 45: INPUT "NOTE, LENGTH"; N$, N 46: IF Z < 15 GOTO 20 47: INPUT "NOTE, LENGTH"; O$, O 48: IF Z < 16 GOTO 20 49: INPUT "NOTE, LENGTH"; P$, P 50: IF Z < 17 GOTO 20 51: INPUT "NOTE, LENGTH"; R$, R 52: IF Z < 18 GOTO 20 53: INPUT "NOTE, LENGTH"; S$, S 54: IF Z < 19 GOTO 20 55: INPUT "NOTE, LENGTH"; T$, T 56: IF Z < 20 GOTO 20 57: INPUT "NOTE, LENGTH"; U$, U 58: IF Z < 21 GOTO 20 59: INPUT "NOTE, LENGTH"; V$, V 60: IF Z < 22 GOTO 20 61: INPUT "NOTE, LENGTH"; W$, W 62: IF Z < 23 GOTO 20 63: INPUT "NOTE, LENGTH"; X$, X 64: IF Z < 24 GOTO 20 65: INPUT "NOTE, LENGTH"; Y$, Y 66: IF Z < 25 GOTO 20 67: INPUT "NOTE, LENGTH"; Z$, Z 68: IF Z < 26 GOTO 20 69: INPUT "NOTE, LENGTH"; AA$, AA 70: IF Z < 27 GOTO 20 71: INPUT "NOTE, LENGTH"; BA$, BA 72: IF Z < 28 GOTO 20 73: INPUT "NOTE, LENGTH"; CA$, CA 74: IF Z < 29 GOTO 20 75: INPUT "NOTE, LENGTH"; DA$, DA 76: IF Z < 30 GOTO 20 77: INPUT "NOTE, LENGTH"; EA$, EA 78: IF Z < 31 GOTO 20 79: INPUT "NOTE, LENGTH"; FA$, FA 80: IF Z < 32 GOTO 20 81: INPUT "NOTE, LENGTH"; GA$, GA 82: IF Z < 33 GOTO 20 83: INPUT "NOTE, LENGTH"; HA$, HA 84: IF Z < 34 GOTO 20 85: INPUT "NOTE, LENGTH"; IA$, IA 86: IF Z < 35 GOTO 20 87: INPUT "NOTE, LENGTH"; JA$, JA 88: IF Z < 36 GOTO 20 89: INPUT "NOTE, LENGTH"; KA$, KA 90: IF Z < 37 GOTO 20 91: INPUT "NOTE, LENGTH"; LA$, LA 92: IF Z < 38 GOTO 20 93: INPUT "NOTE, LENGTH"; MA$, MA 94: IF Z < 39 GOTO 20 95: INPUT "NOTE, LENGTH"; NA$, NA 96: IF Z < 40 GOTO 20 97: 20 PLAY "MF" 98: PLAY OC$ 99: IF A = 0 THEN LET A = 64 100: PLAY "L" + STR$(A) 101: PLAY A$ 102: IF B = 0 THEN LET B = A 103: PLAY "L" + STR$(B) 104: PLAY B$ 105: IF C = 0 THEN LET C = B 106: PLAY "L" + STR$(C) 107: PLAY C$ 108: IF D = 0 THEN LET D = C 109: PLAY "L" + STR$(D) 110: PLAY D$ 111: IF E = 0 THEN LET E = D 112: PLAY "L" + STR$(E) 113: PLAY E$ 114: IF F = 0 THEN LET F = E 115: PLAY "L" + STR$(F) 116: PLAY F$ 117: IF G = 0 THEN LET G = F 118: PLAY "L" + STR$(G) 119: PLAY G$ 120: IF H = 0 THEN LET H = G 121: PLAY "L" + STR$(H) 122: PLAY H$ 123: IF I = 0 THEN LET I = H 124: PLAY "L" + STR$(I) 125: PLAY I$ 126: IF J = 0 THEN LET J = H 127: PLAY "L" + STR$(J) 128: PLAY J$ 129: IF K = 0 THEN LET K = J 130: PLAY "L" + STR$(K) 131: PLAY K$ 132: IF L = 0 THEN LET L = K 133: PLAY "L" + STR$(L) 134: PLAY L$ 135: IF M = 0 THEN LET M = L 136: PLAY "L" + STR$(M) 137: PLAY M$ 138: IF N = 0 THEN LET N = M 139: PLAY "L" + STR$(N) 140: PLAY N$ 141: IF O = 0 THEN LET O = N 142: PLAY "L" + STR$(O) 143: PLAY O$ 144: IF P = 0 THEN LET P = O 145: PLAY "L" + STR$(P) 146: PLAY P$ 147: IF Q = 0 THEN LET Q = P 148: PLAY "L" + STR$(Q) 149: PLAY Q$ 150: IF R = 0 THEN LET R = Q 151: PLAY "L" + STR$(R) 152: PLAY R$ 153: IF S = 0 THEN LET S = R 154: PLAY "L" + STR$(S) 155: PLAY S$ 156: IF T = 0 THEN LET T = S 157: PLAY "L" + STR$(T) 158: PLAY T$ 159: IF U = 0 THEN LET U = T 160: PLAY "L" + STR$(U) 161: PLAY U$ 162: IF V = 0 THEN LET V = U 163: PLAY "L" + STR$(V) 164: PLAY V$ 165: IF W = 0 THEN LET W = V 166: PLAY "L" + STR$(W) 167: PLAY W$ 168: IF X = 0 THEN LET X = W 169: PLAY "L" + STR$(X) 170: PLAY X$ 171: IF Y = 0 THEN LET Y = X 172: PLAY "L" + STR$(Y) 173: PLAY Y$ 174: IF Z = 0 THEN LET Z = Y 175: PLAY "L" + STR$(Z) 176: PLAY Z$ 177: IF AA = 0 THEN LET AA = Z 178: PLAY "L" + STR$(AA) 179: PLAY AA$ 180: IF BA = 0 THEN LET BA = AA 181: PLAY "L" + STR$(BA) 182: PLAY BA$ 183: IF CA = 0 THEN LET CA = BA 184: PLAY "L" + STR$(CA) 185: PLAY CA$ 186: IF DA = 0 THEN LET DA = CA 187: PLAY "L" + STR$(DA) 188: PLAY DA$ 189: IF EA = 0 THEN LET EA = DA 190: PLAY "L" + STR$(EA) 191: PLAY EA$ 192: IF FA = 0 THEN LET FA = EA 193: PLAY "L" + STR$(FA) 194: PLAY FA$ 195: IF GA = 0 THEN LET GA = FA 196: PLAY "L" + STR$(GA) 197: PLAY GA$ 198: IF HA = 0 THEN LET HA = GA 199: PLAY "L" + STR$(HA) 200: PLAY HA$ 201: IF IA = 0 THEN LET IA = HA 202: PLAY "L" + STR$(IA) 203: PLAY IA$ 204: IF JA = 0 THEN LET JA = IA 205: PLAY "L" + STR$(JA) 206: PLAY JA$ 207: IF KA = 0 THEN LET KA = JA 208: PLAY "L" + STR$(KA) 209: PLAY KA$ 210: IF LA = 0 THEN LET LA = KA 211: PLAY "L" + STR$(LA) 212: PLAY LA$ 213: IF MA = 0 THEN LET MA = LA 214: PLAY "L" + STR$(MA) 215: PLAY MA$ 216: IF NA = 0 THEN LET NA = MA 217: PLAY "L" + STR$(NA) 218: PLAY NA$ 219: INPUT "Quit (y/n) "; QUIT$ 220: IF QUIT$ = "Y" THEN GOTO 30 221: IF QUIT$ = "y" THEN GOTO 30 222: IF QUIT$ = "n" THEN GOTO 15 223: IF QUIT$ = "N" THEN GOTO 15 224: 15 INPUT "Play Again "; PLAY$ 225: IF PLAY$ = "Y" THEN GOTO 20 226: IF PLAY$ = "y" THEN GOTO 20 227: IF PLAY$ = "n" THEN GOTO 10 228: IF PLAY$ = "N" THEN GOTO 10 229: BEEP 230: GOTO 15 231: 30 SYSTEM 232: END SUB 233: |