-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathSONG.BAS
45 lines (43 loc) · 1.07 KB
/
SONG.BAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
COLOR 15
333 CLS
PRINT " Pick-A Song"
PRINT "-----------------------------------------------------------------------------"
PRINT
PRINT
PRINT " Welcome to Pick-A-Song! This Program Lets you Listen to some Well Known Songs!"
PRINT
PRINT " 1. Mary had a Little Lamb"
PRINT " 2. Twinkle, Twinkle Little Star"
INPUT " What Song Would You Like to Hear"; d$
IF d$ = "1" THEN GOTO 350
IF d$ = "2" THEN GOTO 360
IF d$ = "exit" THEN RUN "c:\dos\maindir.bas"
IF d$ = "Exit" THEN RUN "c:\dos\maindir.bas"
IF d$ = "quit" THEN RUN "c:\dos\maindir.bas"
IF d$ = "Quit" THEN RUN "c:\dos\maindir.bas"
350 PLAY "MS edcdeee"
SOUND 23727, 10
PLAY "ddd"
SOUND 23727, 10
PLAY "eee"
SOUND 23727, 10
PLAY "edcdeee"
SOUND 23727, 10
PLAY "ddedc"
GOTO 333
360 PLAY "ccggaag"
SOUND 23727, 10
PLAY "ffeeddc"
SOUND 23727, 10
PLAY "ccggaag"
SOUND 23727, 10
PLAY "ffeeddc"
SOUND 23727, 10
PLAY "ggffeed"
SOUND 23727, 10
PLAY "ggffeed"
SOUND 23727, 10
PLAY "ccggaag"
SOUND 23727, 10
PLAY "ffeeddc2"
GOTO 333