1: CLS 2: PRINT "" 3: SCALE$ = "DFGDGDGDFFDFG" 4: PLAY "MB" 5: PLAY "L64" 6: FOR I% = 0 TO 6 7: PLAY "O" + STR$(I%) 8: PLAY "X" + VARPTR$(SCALE$) 9: NEXT I% 10: 10 CLS 11: INPUT "ENTER OCTAVE (DEFAULT IS 4,MID C IS IN OCTAVE 3)"; O 12: LET OC$ = "O" + STR$(O) 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-64"; A$, A 16: IF Z < 2 GOTO 20 17: INPUT "NOTE, LENGTH"; B$, B 18: IF Z < 3 GOTO 20 19: INPUT "NOTE, LENGTH"; C$, C 20: IF Z < 4 GOTO 20 21: INPUT "NOTE, LENGTH"; D$, D 22: IF Z < 5 GOTO 20 23: INPUT "NOTE, LENGTH"; E$, E 24: IF Z < 6 GOTO 20 25: INPUT "NOTE, LENGTH"; F$, F 26: IF Z < 7 GOTO 20 27: INPUT "NOTE, LENGTH"; G$, G 28: IF Z < 8 GOTO 20 29: INPUT "NOTE, LENGTH"; H$, H 30: IF Z < 9 GOTO 20 31: INPUT "NOTE, LENGTH"; I$, I 32: IF Z < 10 GOTO 20 33: INPUT "NOTE, LENGTH"; J$, J 34: IF Z < 11 GOTO 20 35: INPUT "NOTE, LENGTH"; K$, K 36: IF Z < 12 GOTO 20 37: INPUT "NOTE, LENGTH"; L$, L 38: IF Z < 13 GOTO 20 39: INPUT "NOTE, LENGTH"; M$, M 40: IF Z < 14 GOTO 20 41: INPUT "NOTE, LENGTH"; N$, N 42: IF Z < 15 GOTO 20 43: INPUT "NOTE, LENGTH"; O$, O 44: IF Z < 16 GOTO 20 45: INPUT "NOTE, LENGTH"; P$, P 46: IF Z < 17 GOTO 20 47: INPUT "NOTE, LENGTH"; R$, R 48: IF Z < 18 GOTO 20 49: INPUT "NOTE, LENGTH"; S$, S 50: IF Z < 19 GOTO 20 51: INPUT "NOTE, LENGTH"; T$, T 52: IF Z < 20 GOTO 20 53: INPUT "NOTE, LENGTH"; U$, U 54: IF Z < 21 GOTO 20 55: INPUT "NOTE, LENGTH"; V$, V 56: IF Z < 22 GOTO 20 57: INPUT "NOTE, LENGTH"; W$, W 58: IF Z < 23 GOTO 20 59: INPUT "NOTE, LENGTH"; X$, X 60: IF Z < 24 GOTO 20 61: INPUT "NOTE, LENGTH"; Y$, Y 62: IF Z < 25 GOTO 20 63: INPUT "NOTE, LENGTH"; Z$, Z 64: IF Z < 26 GOTO 20 65: INPUT "NOTE, LENGTH"; AA$, AA 66: IF Z < 27 GOTO 20 67: INPUT "NOTE, LENGTH"; BA$, BA 68: IF Z < 28 GOTO 20 69: INPUT "NOTE, LENGTH"; CA$, CA 70: IF Z < 29 GOTO 20 71: INPUT "NOTE, LENGTH"; DA$, DA 72: IF Z < 30 GOTO 20 73: INPUT "NOTE, LENGTH"; EA$, EA 74: IF Z < 31 GOTO 20 75: INPUT "NOTE, LENGTH"; FA$, FA 76: IF Z < 32 GOTO 20 77: INPUT "NOTE, LENGTH"; GA$, GA 78: IF Z < 33 GOTO 20 79: INPUT "NOTE, LENGTH"; HA$, HA 80: IF Z < 34 GOTO 20 81: INPUT "NOTE, LENGTH"; IA$, IA 82: IF Z < 35 GOTO 20 83: INPUT "NOTE, LENGTH"; JA$, JA 84: IF Z < 36 GOTO 20 85: INPUT "NOTE, LENGTH"; KA$, KA 86: IF Z < 37 GOTO 20 87: INPUT "NOTE, LENGTH"; LA$, LA 88: IF Z < 38 GOTO 20 89: INPUT "NOTE, LENGTH"; MA$, MA 90: IF Z < 39 GOTO 20 91: INPUT "NOTE, LENGTH"; NA$, NA 92: IF Z < 40 GOTO 20 93: INPUT "NOTE, LENGTH"; OA$, OA 94: IF Z < 40 GOTO 20 95: INPUT "NOTE, LENGTH"; PA$, PA 96: IF Z < 40 GOTO 20 97: INPUT "NOTE, LENGTH"; QA$, QA 98: IF Z < 40 GOTO 20 99: INPUT "NOTE, LENGTH"; RA$, RA 100: IF Z < 40 GOTO 20 101: INPUT "NOTE, LENGTH"; SA$, SA 102: IF Z < 40 GOTO 20 103: INPUT "NOTE, LENGTH"; TA$, TA 104: IF Z < 40 GOTO 20 105: INPUT "NOTE, LENGTH"; UA$, UA 106: IF Z < 40 GOTO 20 107: INPUT "NOTE, LENGTH"; VA$, VA 108: IF Z < 40 GOTO 20 109: INPUT "NOTE, LENGTH"; WA$, WA 110: IF Z < 40 GOTO 20 111: INPUT "NOTE, LENGTH"; XA$, XA 112: IF Z < 40 GOTO 20 113: INPUT "NOTE, LENGTH"; YA$, YA 114: IF Z < 40 GOTO 20 115: INPUT "NOTE, LENGTH"; ZA$, ZA 116: IF Z < 40 GOTO 20 117: INPUT "NOTE, LENGTH"; AB$, AB 118: IF Z < 40 GOTO 20 119: INPUT "NOTE, LENGTH"; BB$, BB 120: IF Z < 40 GOTO 20 121: INPUT "NOTE, LENGTH"; CB$, CB 122: IF Z < 40 GOTO 20 123: INPUT "NOTE, LENGTH"; DB$, DB 124: IF Z < 40 GOTO 20 125: INPUT "NOTE, LENGTH"; EB$, EB 126: IF Z < 40 GOTO 20 127: INPUT "NOTE, LENGTH"; FB$, FB 128: IF Z < 40 GOTO 20 129: INPUT "NOTE, LENGTH"; GB$, GB 130: IF Z < 40 GOTO 20 131: INPUT "NOTE, LENGTH"; HB$, HB 132: IF Z < 40 GOTO 20 133: INPUT "NOTE, LENGTH"; IB$, IB 134: IF Z < 40 GOTO 20 135: INPUT "NOTE, LENGTH"; JB$, JB 136: IF Z < 40 GOTO 20 137: INPUT "NOTE, LENGTH"; KB$, KB 138: IF Z < 40 GOTO 20 139: INPUT "NOTE, LENGTH"; LB$, LB 140: IF Z < 40 GOTO 20 141: INPUT "NOTE, LENGTH"; MB$, MB 142: IF Z < 40 GOTO 20 143: INPUT "NOTE, LENGTH"; NB$, NB 144: IF Z < 40 GOTO 20 145: INPUT "NOTE, LENGTH"; OB$, OB 146: IF Z < 40 GOTO 20 147: INPUT "NOTE, LENGTH"; PB$, PB 148: IF Z < 40 GOTO 20 149: INPUT "NOTE, LENGTH"; QB$, QB 150: IF Z < 40 GOTO 20 151: INPUT "NOTE, LENGTH"; RB$, RB 152: IF Z < 40 GOTO 20 153: INPUT "NOTE, LENGTH"; SB$, SB 154: IF Z < 40 GOTO 20 155: INPUT "NOTE, LENGTH"; TB$, TB 156: IF Z < 40 GOTO 20 157: INPUT "NOTE, LENGTH"; UB$, UB 158: IF Z < 40 GOTO 20 159: INPUT "NOTE, LENGTH"; VB$, VB 160: IF Z < 40 GOTO 20 161: INPUT "NOTE, LENGTH"; WB$, WB 162: IF Z < 40 GOTO 20 163: INPUT "NOTE, LENGTH"; XB$, XB 164: IF Z < 40 GOTO 20 165: INPUT "NOTE, LENGTH"; YB$, YB 166: IF Z < 40 GOTO 20 167: INPUT "NOTE, LENGTH"; ZB$, ZB 168: IF Z < 40 GOTO 20 169: INPUT "NOTE, LENGTH"; AC$, AC 170: IF Z < 40 GOTO 20 171: INPUT "NOTE, LENGTH"; BC$, BC 172: IF Z < 40 GOTO 20 173: INPUT "NOTE, LENGTH"; CC$, CC 174: IF Z < 40 GOTO 20 175: INPUT "NOTE, LENGTH"; DC$, DC 176: IF Z < 40 GOTO 20 177: INPUT "NOTE, LENGTH"; EC$, EC 178: IF Z < 40 GOTO 20 179: INPUT "NOTE, LENGTH"; FC$, FC 180: IF Z < 40 GOTO 20 181: INPUT "NOTE, LENGTH"; GC$, GC 182: IF Z < 40 GOTO 20 183: INPUT "NOTE, LENGTH"; HC$, HC 184: IF Z < 40 GOTO 20 185: INPUT "NOTE, LENGTH"; IC$, IC 186: IF Z < 40 GOTO 20 187: INPUT "NOTE, LENGTH"; JC$, JC 188: IF Z < 40 GOTO 20 189: INPUT "NOTE, LENGTH"; KC$, KC 190: IF Z < 40 GOTO 20 191: INPUT "NOTE, LENGTH"; LC$, LC 192: IF Z < 40 GOTO 20 193: INPUT "NOTE, LENGTH"; MC$, MC 194: IF Z < 40 GOTO 20 195: INPUT "NOTE, LENGTH"; NC$, NC 196: IF Z < 40 GOTO 20 197: INPUT "NOTE, LENGTH"; OC$, PC 198: IF Z < 40 GOTO 20 199: INPUT "NOTE, LENGTH"; QC$, QC 200: IF Z < 40 GOTO 20 201: INPUT "NOTE, LENGTH"; RC$, RC 202: IF Z < 40 GOTO 20 203: INPUT "NOTE, LENGTH"; SC$, SC 204: IF Z < 40 GOTO 20 205: INPUT "NOTE, LENGTH"; TC$, TC 206: IF Z < 40 GOTO 20 207: INPUT "NOTE, LENGTH"; UC$, UC 208: IF Z < 40 GOTO 20 209: INPUT "NOTE, LENGTH"; VC$, VC 210: IF Z < 40 GOTO 20 211: 20 PLAY "MF" 212: PLAY OC$ 213: IF A = 0 THEN LET A = 64 214: PLAY "L" + STR$(A) 215: PLAY A$ 216: IF B = 0 THEN LET B = A 217: PLAY "L" + STR$(B) 218: PLAY B$ 219: IF C = 0 THEN LET C = B 220: PLAY "L" + STR$(C) 221: PLAY C$ 222: IF D = 0 THEN LET D = C 223: PLAY "L" + STR$(D) 224: PLAY D$ 225: IF E = 0 THEN LET E = D 226: PLAY "L" + STR$(E) 227: PLAY E$ 228: IF F = 0 THEN LET F = E 229: PLAY "L" + STR$(F) 230: PLAY F$ 231: IF G = 0 THEN LET G = F 232: PLAY "L" + STR$(G) 233: PLAY G$ 234: IF H = 0 THEN LET H = G 235: PLAY "L" + STR$(H) 236: PLAY H$ 237: IF I = 0 THEN LET I = H 238: PLAY "L" + STR$(I) 239: PLAY I$ 240: IF J = 0 THEN LET J = H 241: PLAY "L" + STR$(J) 242: PLAY J$ 243: IF K = 0 THEN LET K = J 244: PLAY "L" + STR$(K) 245: PLAY K$ 246: IF L = 0 THEN LET L = K 247: PLAY "L" + STR$(L) 248: PLAY L$ 249: IF M = 0 THEN LET M = L 250: PLAY "L" + STR$(M) 251: PLAY M$ 252: IF N = 0 THEN LET N = M 253: PLAY "L" + STR$(N) 254: PLAY N$ 255: IF O = 0 THEN LET O = N 256: PLAY "L" + STR$(O) 257: PLAY O$ 258: IF P = 0 THEN LET P = O 259: PLAY "L" + STR$(P) 260: PLAY P$ 261: IF Q = 0 THEN LET Q = P 262: PLAY "L" + STR$(Q) 263: PLAY Q$ 264: IF R = 0 THEN LET R = Q 265: PLAY "L" + STR$(R) 266: PLAY R$ 267: IF S = 0 THEN LET S = R 268: PLAY "L" + STR$(S) 269: PLAY S$ 270: IF T = 0 THEN LET T = S 271: PLAY "L" + STR$(T) 272: PLAY T$ 273: IF U = 0 THEN LET U = T 274: PLAY "L" + STR$(U) 275: PLAY U$ 276: IF V = 0 THEN LET V = U 277: PLAY "L" + STR$(V) 278: PLAY V$ 279: IF W = 0 THEN LET W = V 280: PLAY "L" + STR$(W) 281: PLAY W$ 282: IF X = 0 THEN LET X = W 283: PLAY "L" + STR$(X) 284: PLAY X$ 285: IF Y = 0 THEN LET Y = X 286: PLAY "L" + STR$(Y) 287: PLAY Y$ 288: IF Z = 0 THEN LET Z = Y 289: PLAY "L" + STR$(Z) 290: PLAY Z$ 291: IF AA = 0 THEN LET AA = Z 292: PLAY "L" + STR$(AA) 293: PLAY AA$ 294: IF BA = 0 THEN LET BA = AA 295: PLAY "L" + STR$(BA) 296: PLAY BA$ 297: IF CA = 0 THEN LET CA = BA 298: PLAY "L" + STR$(CA) 299: PLAY CA$ 300: IF DA = 0 THEN LET DA = CA 301: PLAY "L" + STR$(DA) 302: PLAY DA$ 303: IF EA = 0 THEN LET EA = DA 304: PLAY "L" + STR$(EA) 305: PLAY EA$ 306: IF FA = 0 THEN LET FA = EA 307: PLAY "L" + STR$(FA) 308: PLAY FA$ 309: IF GA = 0 THEN LET GA = FA 310: PLAY "L" + STR$(GA) 311: PLAY GA$ 312: IF HA = 0 THEN LET HA = GA 313: PLAY "L" + STR$(HA) 314: PLAY HA$ 315: IF IA = 0 THEN LET IA = HA 316: PLAY "L" + STR$(IA) 317: PLAY IA$ 318: IF JA = 0 THEN LET JA = IA 319: PLAY "L" + STR$(JA) 320: PLAY JA$ 321: IF KA = 0 THEN LET KA = JA 322: PLAY "L" + STR$(KA) 323: PLAY KA$ 324: IF LA = 0 THEN LET LA = KA 325: PLAY "L" + STR$(LA) 326: PLAY LA$ 327: IF MA = 0 THEN LET MA = LA 328: PLAY "L" + STR$(MA) 329: PLAY MA$ 330: IF NA = 0 THEN LET NA = MA 331: PLAY "L" + STR$(NA) 332: PLAY NA$ 333: INPUT "Quit (y/n) "; QUIT$ 334: IF QUIT$ = "Y" THEN GOTO 30 335: IF QUIT$ = "y" THEN GOTO 30 336: IF QUIT$ = "n" THEN GOTO 15 337: IF QUIT$ = "N" THEN GOTO 15 338: 15 INPUT "Play Again "; PLAY$ 339: IF PLAY$ = "Y" THEN GOTO 20 340: IF PLAY$ = "y" THEN GOTO 20 341: IF PLAY$ = "n" THEN GOTO 10 342: IF PLAY$ = "N" THEN GOTO 10 343: BEEP 344: GOTO 15 345: 30 SYSTEM 346: |