0 REM USING SIDPLAYER FILES FROM BASIC        DEMO BY PAUL MC ALEER
1 :
2 REM GENERAL SETUP AND LOADING
3 POKE55,0:POKE56,128:CLR:REM LOWERS TOP OF BASIC
4 S$="                                       "
5 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB60000
6 MU=0:REM MUSIC FLAG
8 FORI=0TO24:POKEI+54272,0:NEXT:REM CLEAR SID CHIP
9 READA:J=J+1:IFA=-1THEN11
10 POKE827+J,A:GOTO9
11 SYS57812"SID PLAYER",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
12 PRINT"[147][154]   [211] [201] [196]   [201] [206]   [194] [193] [211] [201] [195]   [196] [197] [205] [207]"
14 PRINT"[159][208]LEASE ENTER THE NAME OF THE FILE"
16 PRINT"YOU WANT TO HEAR.  [201]NCLUDE THE '.MUS'
17 [153]"EXTENSION IF NECESSARY."
18 [153]" VALNTER 'MUSIC' IF YOU HAVE (null)(null)ATNSTR$(null)(null)ATN(null) #81"
19 [153]" (null)IDE (null)NE IN THE DRIVE."
20 [153]"(null)RESS ASC1OPEN FOR DIRECTORY OR ASC7 OPENTO QUIT."
21 [153]"CONT(null)RIGHT$STR$ ASCILE: ";:[141]50000
22 [139]Q9$[178]"INPUT"[167][153]"LOAD":[158]828:[137]3000
24 [139]Q9$[178]"LET"[167]4000
25 [139]Q9$[178]""[167]4000
27 [143] :: LOAD IN MUSIC FILE ::
28 [158]57812Q9$,8,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
30 [137]5000
1250 :
2050 :
3000 [153]"OPENATNNY KEY TO CONTINUE."
3002 [151]198,0
3006 [161]Y$:[139]Y$[178]""[167]3006
3008 [137] 12
3050 :
4000 [153]"LOADOPEN(null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)? YOPEN/N"
4002 [161]H$:[139]H$[178]""[167]4002
4004 [139]H$[178]"Y"[176]H$[178]"(null)"[167]4500
4006 [139]H$[178]"N"[176]H$[178]"(null)"[167]12
4008 [137]4002
4500 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER%:[160]15
4502 [139]ER%[179][177]63[167][128]
4504 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8":[153]"RUN"
4506 [151]631,13:[151]632,13:[151]198,2:[128]
4510 :
5000 [153]"LOADCONT   (null) RIGHT$ STR$   RIGHT$ (null)   PEEK ATN (null) RIGHT$ LEN   STR$ VAL (null) (null)"
5001 [153]""[166]5)"SYS(null)ELECTION: FOR"Q9$
5002 [153]"       1. (null)TART/(null)ESTART (null)USIC
5004 PRINT"[155]       2. [211]TOP [205]USIC"
5006 PRINT"[152]       3. [210]ESUME [205]USIC"
5008 PRINT"[151]       4. [209]UIT
5010 [161]N$:[139]N$[178]""[167][141]5800:[141]7000:[137]5010
5012 N[178][197](N$):[139]N[179]1[176]N[177]4[167]5010
5013 [139]N[178]4[167][141]5600:[137]12
5014 [145] N [141] 5500,5600,5700
5016 [137] 5010
5018 :
5498 :
5499 [143] :: START/RESTART MUSIC ::
5500 [141]6000
5510 [153]"CLRSYS49435:POKE781,0:POKE782,128:"
5515 [153]"  SYS49458:POKE49152,7:MU=1"
5520 [139]MU[167][141]5600
5530 [158]49435:[151]781,0:[151]782,128:[158]49458:[151]49152,7:MU[178]1:[142]
5598 :
5599 [143] :: STOP MUSIC ::
5600 [141]6000
5610 [153]"CLRPOKE49152,0:POKE54276,0:POKE54283,0:"
5615 [153]"  POKE54290,0:SYS49629:MU=0"
5620 [151]49152,0:[151]54276,0:[151]54283,0:[151]54290,0:[158]49629:MU[178]0:[142]
5698 :
5699 [143] :: RESUME MUSIC ::
5700 [141]6000
5710 [153]"CLRSYS49435:POKE49152,7:MU=1"
5720 [139][194](49152)[178]7[167][142]
5730 [158]49435:[151]49152,7:MU[178]1:[142]
5798 :
5799 [143] :: CHECK MUSIC ::
5800 [139][194](49152)[178]7[167][142]
5804 [139]MU[167][141]5600:[141]5500
5805 [142]
6000 [151]214,13:[153]:[153]S$:[153]S$"ONON":[142]
6999 :
7000 [139][194](54276)[178]0[167]7050
7002 [151]214,19:[151]211,13:[158]58732
7003 [153]"OPEN(null)OICE 1:    CMDCMDCMDCMD"[194](54276)" "
7004 [153][166]13)"CONT(null)OICE 2:    CMDCMDCMDCMD"[194](54283)" "
7006 [153][166]13)"(null)OICE 3:    CMDCMDCMDCMD"[194](54290)" "
7009 [142]
7050 [151]214,19:[151]211,13:[158]58732:[153]"SYSANDANDANDANDANDANDANDANDANDANDAND   "
7051 [153][166]13)"SYS(null)(null)RIGHT$LENVAL(null)  (null)ASCASCWAIT"
7052 [153][166]13)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR   ":[142]
9999 :
10000 [159]15,8,15,"S0:BASICS":[160]15:[148]"BASICS",8:[128]
40000 [131] 169,036,133,251,169,251,133
40010 [131] 187,169,000,133,188,169,001
40020 [131] 133,183,169,008,133,186,169
40030 [131] 096,133,185,032,213,243,165
40040 [131] 186,032,180,255,165,185,032
40050 [131] 150,255,169,000,133,144,160
40060 [131] 003,132,251,032,165,255,133
40070 [131] 252,164,144,208,047,032,165
40080 [131] 255,164,144,208,040,164,251
40090 [131] 136,208,233,166,252,032,205
40100 [131] 189,169,032,032,210,255,032
40110 [131] 165,255,166,144,208,018,170
40120 [131] 240,006,032,210,255,184,080
40130 [131] 240,169,013,032,210,255,160
40140 [131] 002,208,198,032,066,246,096
40150 [131] 000,-1
50000 Q9$[178]"":U9[178]53280:[151]198,0
50010 [161]A$
50020 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]50010
50025 [139]A$[178]"INPUT"[176]A$[178]"LET"[167]Q9$[178]A$:[142]
50030 [139]A$[178][199](13)[167][153]" ":[142]
50040 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]50080
50050 [139][195](Q9$)[177][178]16[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]50010
50060 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]50010
50070 Q9$[178]Q9$[170]A$
50080 [153]""A$;:[137]50010
60000 B9$[178]"                                      "
60010 [151]214,14:[153]:[153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREPRINT#"
60020 [129]I[178]0[164]7:[153]B9$:[130]:[153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 B9$(0)[178]"(null)RIGHT$STR$ RIGHT$(null)CLOSEPEEKATN(null)RIGHT$LEN STR$VAL(null)(null) (null)1"
60040 B9$(1)[178]"BY (null)AUL (null)CATNLEER
60050 B9$(2)="([195]) 1991 BY [211]OFTDISK, [201]NC."
60060 B9$(3)="[208]UBLISHED ON [204][207][193][196][211][212][193][210] #81"
60070 B9$(4)="[211]UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)="[193]LL [210]IGHTS [210]ESERVED"
60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT
60099 RETURN