Loadstar 81/081.d81/basics

Commodore BASIC | 2022-08-26 | 4KB | 129 lines

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