1 REM-----Mash-----Arr. by Rob Elliott for The Model 100
2 CLS
3 PRINT@85,"Theme from "CHR$(34)"M"CHR$(166)"A";
4 PRINTCHR$(166)"S"CHR$(166)"H"CHR$(34)
5 PRINT@125,"...by John Mandel"
6 PRINT@165,"...arr. by Rob Elliott"
7 FOR I=1 TO 72
8 READ A,B
9 SOUND A,B
10 NEXT I
11 MENU
12 DATA 0,50,0,30
13 DATA 2793,20,3134,20,3321,10,3134,20,3321,20
14 DATA 3134,20,3321,20,3718,50,3321,20,3718,10
15 DATA 3321,20,3718,20,3321,20,3718,20,4184,30
16 DATA 0,10,3321,10,3718,20,4184,10,3718,20,4184,20
17 DATA 3718,20,4184,20,4433,30,0,10,3718,10,4184,20
18 DATA 4433,10,4184,20,4433,20,4184,20,3718,20
19 DATA 0,2
20 DATA 3321,150,2793,20,2484,20,2793,10,2484,20
21 DATA 2793,20,2484,20,2793,30,0,20,2793,20,2484,20
22 DATA 2793,10,2484,20,2793,20,2484,20,2793,30,0,20
23 DATA 2793,20,3321,20,2793,10,2484,20,2092,20
24 DATA 1864,20,2092,20,2484,20,2793,20,2484,150
25 DATA 2793,20,3321,20,2793,10,2484,20,2092,20
26 DATA 1864,20,2092,20,2484,20,2793,20,2484,150