10 GOSUB60000:DV=PEEK(186):IFDV<8THENDV=8
20 POKE4096,0:POKE44,16:POKE43,1
30 PRINT"[144]LOAD"CHR$(34)"SOUND DEMO"CHR$(34)","DV
40 PRINT"RUN"
50 POKE631,13:POKE632,13:POKE198,2:END
60 :
10000 DV=PEEK(186):N$="B.SOUNDMEISTER"
10010 OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
60000 POKE53281,.:POKE53280,.:PRINT"[147]":
60010 POKE214,8:PRINT
60020 PRINT"[162][162]"TAB(37)"[162][162]"
60030 PRINT"[152]  "TAB(37)"  "
60040 FORI=.TO11:PRINT"[152]  [155][165]                                [167][152]  ":NEXT
60050 PRINT"[152]  "TAB(37)"  "
60060 PRINT"[162][162]"TAB(37)"[162][162]";
60070 POKE214,11:PRINT
60080 FORI=.TO5:READA$:PRINTTAB(20-LEN(A$)/2)"[155]"A$:NEXT:RETURN
60090 :
60100 DATA "[211][207][213][206][196][205][197][201][211][212][197][210] [196][197][205][207]"
60110 DATA "BY [194]OB [205]ARKLAND"
60120 DATA "(C) 1997 BY [202] & [198] [208]UBLISHING"
60130 DATA "[212]HIS PROGRAM IS NOT SHAREWARE
60160 [131] "OR IN THE PUBLIC DOMAIN."
60170 [131] "1-800-594-3370 OR 1-318-221-8718