Price: $7.00
TRACK LISTING
- Kilgore Trout
- Let's Active
- Gills Deluxe
- We Are All UFOs
- Keen State
- Target Tomorrow
- Hero Zero
- Smash Uranus
=====
5 REM *** COPY THIS PROGRAM CODE, LEARN 3 CHORDS, RUN THIS PROGRAM CODE IN QBASIC AND START A NEW INVISIBLES COVER BAND ***
10 CLS
20 PRINT "***** NEW INVISIBLES TONE GENERATOR *****"
25 PRINT : PRINT : PRINT "MAKE SURE THAT CAPS LOCK KEY IS OFF!!"
29 PRINT : PRINT "SELECT A KEY"
30 PRINT : PRINT "(a) ABLE"
32 PRINT "(b) BAKER"
34 PRINT "(c) CHARLIE"
36 PRINT "(d) DELTA"
38 PRINT "(e) ECHO"
40 PRINT "(f) FOXTROT"
42 PRINT "(g) GOLF"
48 PRINT : PRINT "(*) SHIFT-8 TO EXIT"
50 a = 440
51 b = 493.8833
52 c = 261.6256
53 d = 293.6648
54 e = 329.6276
55 f = 349.2282
57 fs = 369.9944
58 g = 391.9954
60 PRINT : INPUT pick$
62 IF pick$ = "a" THEN name$ = "ABLE": rt$ = "A": fv$ = "E": root = a: fifth = e: GOTO 100
64 IF pick$ = "b" THEN name$ = "BAKER": rt$ = "B": fv$ = "F#": root = b: fifth = fs: GOTO 100
66 IF pick$ = "c" THEN name$ = "CHARLIE": rt$ = "C": fv$ = "G": root = c: fifth = g: GOTO 100
68 IF pick$ = "d" THEN name$ = "DELTA": rt$ = "D": fv$ = "A": root = d: fifth = a: GOTO 100
70 IF pick$ = "e" THEN name$ = "ECHO": rt$ = "E": fv$ = "B": root = e: fifth = b: GOTO 100
72 IF pick$ = "f" THEN name$ = "FOXTROT": rt$ = "F": fv$ = "C": root = f: fifth = c: GOTO 100
74 IF pick$ = "g" THEN name$ = "GOLF": rt$ = "G": fv$ = "D": root = g: fifth = d: GOTO 100
78 IF pick$ = CHR$(42) THEN GOTO 200
80 GOTO 10
100 CLS
105 PRINT : PRINT "*** "; name$; " ***"
110 PRINT : PRINT "q, w, e, r, t are assigned to "; rt$; ""
115 PRINT "a, s, d, f, g are assigned to "; fv$; ""
117 PRINT : PRINT "SPACEBAR is null": PRINT : PRINT "* or (SHIFT-8) to go back to main menu"
120 m$ = INKEY$
125 IF m$ = CHR$(113) THEN SOUND 0, 0: SOUND root / 4, 1000: GOTO 175
130 IF m$ = CHR$(119) THEN SOUND 0, 0: SOUND root / 2, 1000: GOTO 175
135 IF m$ = CHR$(101) THEN SOUND 0, 0: SOUND root, 1000: GOTO 175
140 IF m$ = CHR$(114) THEN SOUND 0, 0: SOUND root * 2, 1000: GOTO 175
145 IF m$ = CHR$(116) THEN SOUND 0, 0: SOUND root * 4, 1000: GOTO 175
150 IF m$ = CHR$(97) THEN SOUND 0, 0: SOUND fifth / 4, 1000: GOTO 175
155 IF m$ = CHR$(115) THEN SOUND 0, 0: SOUND fifth / 2, 1000: GOTO 175
160 IF m$ = CHR$(100) THEN SOUND 0, 0: SOUND fifth, 1000: GOTO 175
165 IF m$ = CHR$(102) THEN SOUND 0, 0: SOUND fifth * 2, 1000: GOTO 175
170 IF m$ = CHR$(103) THEN SOUND 0, 0: SOUND fifth * 4, 1000: GOTO 175
172 IF m$ = CHR$(32) THEN SOUND 0, 0: GOTO 175
174 IF m$ = CHR$(42) THEN SOUND 0, 0: GOTO 10
175 GOTO 120
200 END
=====