1: CLS 2: PRINT "" 3: PLAY "O0L16MBCDEFGABO1CDEFGABO2CDEFGABO3CDEFGABO4CDEFGAB" 4: 10 CLS 5: INPUT "ENTER OCTAVE (DEFAULT IS 4,MID C IS IN OCTAVE 3)"; O 6: IF O = 1 THEN OC$ = "O1" 7: IF O = 2 THEN OC$ = "O2" 8: IF O = 3 THEN OC$ = "O3" 9: IF O = 4 THEN OC$ = "O4" 10: IF O = 5 THEN OC$ = "O5" 11: IF O = 6 THEN OC$ = "O6" 12: IF O = 7 THEN OC$ = "O7" 13: INPUT "HOW MANY NOTES 1-40"; Z 14: PRINT "EXAMPLE FOR AN QUATER NOTE LENGTH = 4 HALF NOTE = 2 WHOLE NOTE = 1" 15: INPUT "NOTE A-G, LENGTH 1-5"; A$, A 16: IF A = 1 THEN LBB$ = "L1" 17: IF A = 2 THEN LBB$ = "L2" 18: IF A = 3 THEN LBB$ = "L3" 19: IF A = 4 THEN LBB$ = "L4" 20: IF A = 5 THEN LBB$ = "L5" 21: IF Z < 2 GOTO 20 22: INPUT "NOTE, LENGTH"; B$, B 23: IF B = 1 THEN LB$ = "L1" 24: IF B = 2 THEN LB$ = "L2" 25: IF B = 3 THEN LB$ = "L3" 26: IF B = 4 THEN LB$ = "L4" 27: IF B = 5 THEN LB$ = "L5" 28: IF Z < 3 GOTO 20 29: INPUT "NOTE, LENGTH"; C$, C 30: IF C = 1 THEN LC$ = "L1" 31: IF C = 2 THEN LC$ = "L2" 32: IF C = 3 THEN LC$ = "L3" 33: IF C = 4 THEN LC$ = "L4" 34: IF C = 5 THEN LC$ = "L5" 35: IF Z < 4 GOTO 20 36: INPUT "NOTE, LENGTH"; D$, D 37: IF D = 1 THEN LD$ = "L1" 38: IF D = 2 THEN LD$ = "L2" 39: IF D = 3 THEN LD$ = "L3" 40: IF D = 4 THEN LD$ = "L4" 41: IF D = 5 THEN LD$ = "L5" 42: IF Z < 5 GOTO 20 43: INPUT "NOTE, LENGTH"; E$, E 44: IF E = 1 THEN LE$ = "L1" 45: IF E = 2 THEN LE$ = "L2" 46: IF E = 3 THEN LE$ = "L3" 47: IF E = 4 THEN LE$ = "L4" 48: IF E = 5 THEN LE$ = "L5" 49: IF Z < 6 GOTO 20 50: INPUT "NOTE, LENGTH"; F$, F 51: IF F = 1 THEN LF$ = "L1" 52: IF F = 2 THEN LF$ = "L2" 53: IF F = 3 THEN LF$ = "L3" 54: IF F = 4 THEN LF$ = "L4" 55: IF F = 5 THEN LF$ = "L5" 56: IF Z < 7 GOTO 20 57: INPUT "NOTE, LENGTH"; G$, G 58: IF G = 1 THEN LG$ = "L1" 59: IF G = 2 THEN LG$ = "L2" 60: IF G = 3 THEN LG$ = "L3" 61: IF G = 4 THEN LG$ = "L4" 62: IF G = 5 THEN LG$ = "L5" 63: IF Z < 8 GOTO 20 64: INPUT "NOTE, LENGTH"; H$, H 65: IF H = 1 THEN LH$ = "L1" 66: IF H = 2 THEN LH$ = "L2" 67: IF H = 3 THEN LH$ = "L3" 68: IF H = 4 THEN LH$ = "L4" 69: IF H = 5 THEN LH$ = "L5" 70: IF Z < 9 GOTO 20 71: INPUT "NOTE, LENGTH"; I$, I 72: IF I = 1 THEN LI$ = "L1" 73: IF I = 2 THEN LI$ = "L2" 74: IF I = 3 THEN LI$ = "L3" 75: IF I = 4 THEN LI$ = "L4" 76: IF I = 5 THEN LI$ = "L5" 77: IF Z < 10 GOTO 20 78: INPUT "NOTE, LENGTH"; J$, J 79: IF J = 1 THEN LJ$ = "L1" 80: IF J = 2 THEN LJ$ = "L2" 81: IF J = 3 THEN LJ$ = "L3" 82: IF J = 4 THEN LJ$ = "L4" 83: IF J = 5 THEN LJ$ = "L5" 84: IF Z < 11 GOTO 20 85: INPUT "NOTE, LENGTH"; K$, K 86: IF K = 1 THEN LK$ = "L1" 87: IF K = 2 THEN LK$ = "L2" 88: IF K = 3 THEN LK$ = "L3" 89: IF K = 4 THEN LK$ = "L4" 90: IF K = 5 THEN LK$ = "L5" 91: IF Z < 12 GOTO 20 92: INPUT "NOTE, LENGTH"; L$, L 93: IF L = 1 THEN LL$ = "L1" 94: IF L = 2 THEN LL$ = "L2" 95: IF L = 3 THEN LL$ = "L3" 96: IF L = 4 THEN LL$ = "L4" 97: IF L = 5 THEN LL$ = "L5" 98: IF Z < 13 GOTO 20 99: INPUT "NOTE, LENGTH"; M$, M 100: IF M = 1 THEN LM$ = "L1" 101: IF M = 2 THEN LM$ = "L2" 102: IF M = 3 THEN LM$ = "L3" 103: IF M = 4 THEN LM$ = "L4" 104: IF M = 5 THEN LM$ = "L5" 105: IF Z < 14 GOTO 20 106: INPUT "NOTE, LENGTH"; N$, N 107: IF N = 1 THEN LN$ = "L1" 108: IF N = 2 THEN LN$ = "L2" 109: IF N = 3 THEN LN$ = "L3" 110: IF N = 4 THEN LN$ = "L4" 111: IF N = 5 THEN LN$ = "L5" 112: IF Z < 15 GOTO 20 113: INPUT "NOTE, LENGTH"; O$, O 114: IF O = 1 THEN LO$ = "L1" 115: IF O = 2 THEN LO$ = "L2" 116: IF O = 3 THEN LO$ = "L3" 117: IF O = 4 THEN LO$ = "L4" 118: IF O = 5 THEN LO$ = "L5" 119: IF Z < 16 GOTO 20 120: INPUT "NOTE, LENGTH"; P$, P 121: IF P = 1 THEN LP$ = "L1" 122: IF P = 2 THEN LP$ = "L2" 123: IF P = 3 THEN LP$ = "L3" 124: IF P = 4 THEN LP$ = "L4" 125: IF P = 5 THEN LP$ = "L5" 126: IF Z < 17 GOTO 20 127: INPUT "NOTE, LENGTH"; R$, R 128: IF R = 1 THEN LR$ = "L1" 129: IF R = 2 THEN LR$ = "L2" 130: IF R = 3 THEN LR$ = "L3" 131: IF R = 4 THEN LR$ = "L4" 132: IF R = 5 THEN LR$ = "L5" 133: IF Z < 18 GOTO 20 134: INPUT "NOTE, LENGTH"; S$, S 135: IF S = 1 THEN LS$ = "L1" 136: IF S = 2 THEN LS$ = "L2" 137: IF S = 3 THEN LS$ = "L3" 138: IF S = 4 THEN LS$ = "L4" 139: IF S = 5 THEN LS$ = "L5" 140: IF Z < 19 GOTO 20 141: INPUT "NOTE, LENGTH"; T$, T 142: IF T = 1 THEN LT$ = "L1" 143: IF T = 2 THEN LT$ = "L2" 144: IF T = 3 THEN LT$ = "L3" 145: IF T = 4 THEN LT$ = "L4" 146: IF T = 5 THEN LT$ = "L5" 147: IF Z < 20 GOTO 20 148: INPUT "NOTE, LENGTH"; U$, U 149: IF U = 1 THEN LU$ = "L1" 150: IF U = 2 THEN LU$ = "L2" 151: IF U = 3 THEN LU$ = "L3" 152: IF U = 4 THEN LU$ = "L4" 153: IF U = 5 THEN LU$ = "L5" 154: IF Z < 21 GOTO 20 155: INPUT "NOTE, LENGTH"; V$, V 156: IF V = 1 THEN LV$ = "L1" 157: IF V = 2 THEN LV$ = "L2" 158: IF V = 3 THEN LV$ = "L3" 159: IF V = 4 THEN LV$ = "L4" 160: IF V = 5 THEN LV$ = "L5" 161: IF Z < 22 GOTO 20 162: INPUT "NOTE, LENGTH"; W$, W 163: IF W = 1 THEN LW$ = "L1" 164: IF W = 2 THEN LW$ = "L2" 165: IF W = 3 THEN LW$ = "L3" 166: IF W = 4 THEN LW$ = "L4" 167: IF W = 5 THEN LW$ = "L5" 168: IF Z < 23 GOTO 20 169: INPUT "NOTE, LENGTH"; X$, X 170: IF X = 1 THEN LX$ = "L1" 171: IF X = 2 THEN LX$ = "L2" 172: IF X = 3 THEN LX$ = "L3" 173: IF X = 4 THEN LX$ = "L4" 174: IF X = 5 THEN LX$ = "L5" 175: IF Z < 24 GOTO 20 176: INPUT "NOTE, LENGTH"; Y$, Y 177: IF Y = 1 THEN LY$ = "L1" 178: IF Y = 2 THEN LY$ = "L2" 179: IF Y = 3 THEN LY$ = "L3" 180: IF Y = 4 THEN LY$ = "L4" 181: IF Y = 5 THEN LY$ = "L5" 182: IF Z < 25 GOTO 20 183: INPUT "NOTE, LENGTH"; Z$, Z 184: IF Z = 1 THEN LZ$ = "L1" 185: IF Z = 2 THEN LZ$ = "L2" 186: IF Z = 3 THEN LZ$ = "L3" 187: IF Z = 4 THEN LZ$ = "L4" 188: IF Z = 5 THEN LZ$ = "L5" 189: IF Z < 26 GOTO 20 190: INPUT "NOTE, LENGTH"; AA$, AA 191: IF AA = 1 THEN LAA$ = "L1" 192: IF AA = 2 THEN LAA$ = "L2" 193: IF AA = 3 THEN LAA$ = "L3" 194: IF AA = 4 THEN LAA$ = "L4" 195: IF AA = 5 THEN LAA$ = "L5" 196: IF Z < 27 GOTO 20 197: INPUT "NOTE, LENGTH"; BA$, BA 198: IF BA = 1 THEN LBA$ = "L1" 199: IF BA = 2 THEN LBA$ = "L2" 200: IF BA = 3 THEN LBA$ = "L3" 201: IF BA = 4 THEN LBA$ = "L4" 202: IF BA = 5 THEN LBA$ = "L5" 203: IF Z < 28 GOTO 20 204: INPUT "NOTE, LENGTH"; CA$, CA 205: IF CA = 1 THEN LCA$ = "L1" 206: IF CA = 2 THEN LCA$ = "L2" 207: IF CA = 3 THEN LCA$ = "L3" 208: IF CA = 4 THEN LCA$ = "L4" 209: IF CA = 5 THEN LCA$ = "L5" 210: IF Z < 29 GOTO 20 211: INPUT "NOTE, LENGTH"; DA$, DA 212: IF DA = 1 THEN LDA$ = "L1" 213: IF DA = 2 THEN LDA$ = "L2" 214: IF DA = 3 THEN LDA$ = "L3" 215: IF DA = 4 THEN LDA$ = "L4" 216: IF DA = 5 THEN LDA$ = "L5" 217: IF Z < 30 GOTO 20 218: INPUT "NOTE, LENGTH"; EA$, EA 219: IF EA = 1 THEN LEA$ = "L1" 220: IF EA = 2 THEN LEA$ = "L2" 221: IF EA = 3 THEN LEA$ = "L3" 222: IF EA = 4 THEN LEA$ = "L4" 223: IF EA = 5 THEN LEA$ = "L5" 224: IF Z < 31 GOTO 20 225: INPUT "NOTE, LENGTH"; FA$, FA 226: IF FA = 1 THEN LFA$ = "L1" 227: IF FA = 2 THEN LFA$ = "L2" 228: IF FA = 3 THEN LFA$ = "L3" 229: IF FA = 4 THEN LFA$ = "L4" 230: IF FA = 5 THEN LFA$ = "L5" 231: IF Z < 32 GOTO 20 232: INPUT "NOTE, LENGTH"; GA$, GA 233: IF GA = 1 THEN LGA$ = "L1" 234: IF GA = 2 THEN LGA$ = "L2" 235: IF GA = 3 THEN LGA$ = "L3" 236: IF GA = 4 THEN LGA$ = "L4" 237: IF GA = 5 THEN LGA$ = "L5" 238: IF Z < 33 GOTO 20 239: INPUT "NOTE, LENGTH"; HA$, HA 240: IF HA = 1 THEN LHA$ = "L1" 241: IF HA = 2 THEN LHA$ = "L2" 242: IF HA = 3 THEN LHA$ = "L3" 243: IF HA = 4 THEN LHA$ = "L4" 244: IF HA = 5 THEN LHA$ = "L5" 245: IF Z < 34 GOTO 20 246: INPUT "NOTE, LENGTH"; IA$, IA 247: IF IA = 1 THEN LIA$ = "L1" 248: IF IA = 2 THEN LIA$ = "L2" 249: IF IA = 3 THEN LIA$ = "L3" 250: IF IA = 4 THEN LIA$ = "L4" 251: IF IA = 5 THEN LIA$ = "L5" 252: IF Z < 35 GOTO 20 253: INPUT "NOTE, LENGTH"; JA$, JA 254: IF JA = 1 THEN LJA$ = "L1" 255: IF JA = 2 THEN LJA$ = "L2" 256: IF JA = 3 THEN LJA$ = "L3" 257: IF JA = 4 THEN LJA$ = "L4" 258: IF JA = 5 THEN LJA$ = "L5" 259: IF Z < 36 GOTO 20 260: INPUT "NOTE, LENGTH"; KA$, KA 261: IF KA = 1 THEN LKA$ = "L1" 262: IF KA = 2 THEN LKA$ = "L2" 263: IF KA = 3 THEN LKA$ = "L3" 264: IF KA = 4 THEN LKA$ = "L4" 265: IF KA = 5 THEN LKA$ = "L5" 266: IF Z < 37 GOTO 20 267: INPUT "NOTE, LENGTH"; LA$, LA 268: IF LA = 1 THEN LLA$ = "L1" 269: IF LA = 2 THEN LLA$ = "L2" 270: IF LA = 3 THEN LLA$ = "L3" 271: IF LA = 4 THEN LLA$ = "L4" 272: IF LA = 5 THEN LLA$ = "L5" 273: IF Z < 38 GOTO 20 274: INPUT "NOTE, LENGTH"; MA$, MA 275: IF MA = 1 THEN LMA$ = "L1" 276: IF MA = 2 THEN LMA$ = "L2" 277: IF MA = 3 THEN LMA$ = "L3" 278: IF MA = 4 THEN LMA$ = "L4" 279: IF MA = 5 THEN LMA$ = "L5" 280: IF Z < 39 GOTO 20 281: INPUT "NOTE, LENGTH"; NA$, NA 282: IF NA = 1 THEN LNA$ = "L1" 283: IF NA = 2 THEN LNA$ = "L2" 284: IF NA = 3 THEN LNA$ = "L3" 285: IF NA = 4 THEN LNA$ = "L4" 286: IF NA = 5 THEN LNA$ = "L5" 287: IF Z < 40 GOTO 20 288: 20 PLAY "MF" 289: PLAY OC$ 290: PLAY LBB$ 291: PLAY A$ 292: PLAY LB$ 293: PLAY B$ 294: PLAY LC$ 295: PLAY C$ 296: PLAY LD$ 297: PLAY D$ 298: PLAY LE$ 299: PLAY E$ 300: PLAY LF$ 301: PLAY F$ 302: PLAY LG$ 303: PLAY G$ 304: PLAY LH$ 305: PLAY H$ 306: PLAY LI$ 307: PLAY I$ 308: PLAY LJ$ 309: PLAY J$ 310: PLAY LK$ 311: PLAY K$ 312: PLAY LL$ 313: PLAY L$ 314: PLAY LM$ 315: PLAY M$ 316: PLAY LN$ 317: PLAY N$ 318: PLAY LO$ 319: PLAY O$ 320: PLAY LP$ 321: PLAY P$ 322: PLAY LQ$ 323: PLAY Q$ 324: PLAY LR$ 325: PLAY R$ 326: PLAY LS$ 327: PLAY S$ 328: PLAY LT$ 329: PLAY T$ 330: PLAY LU$ 331: PLAY U$ 332: PLAY LV$ 333: PLAY V$ 334: PLAY LW$ 335: PLAY W$ 336: PLAY LX$ 337: PLAY X$ 338: PLAY LY$ 339: PLAY Y$ 340: PLAY LZ$ 341: PLAY Z$ 342: PLAY LAA$ 343: PLAY AA$ 344: PLAY LBA$ 345: PLAY BA$ 346: PLAY LCA$ 347: PLAY CA$ 348: PLAY LDA$ 349: PLAY DA$ 350: PLAY LEA$ 351: PLAY EA$ 352: PLAY LFA$ 353: PLAY FA$ 354: PLAY LGA$ 355: PLAY GA$ 356: PLAY LHA$ 357: PLAY HA$ 358: PLAY LIA$ 359: PLAY IA$ 360: PLAY LJA$ 361: PLAY JA$ 362: PLAY LKA$ 363: PLAY KA$ 364: PLAY LLA$ 365: PLAY LA$ 366: PLAY LMA$ 367: PLAY MA$ 368: PLAY LNA$ 369: PLAY NA$ 370: GOTO 10 371: |