10 REM TOP OF LOADSTAR JUKEBOX
15 IFI<>2THENPRINT"[147]";:POKE53280,0:POKE53281,0
16 IFI=2THEN20
17 PRINT"[204][207][193][196][211][212][193][210][160]RETROSPECTIVE JUKEBOX"
18 PRINT"     [204][207][193][196][211][212][193][210][160]IS NOT PUBLIC DOMAIN.
19 [153]"   (null)LEASE RESPECT THE AUTHOR'S RIGHTS.":I[178]2:[129]DL[178]1[164]2000:[130]
20 [139]SL[178]1[167]35
30 SL[178]1:[147]"SIDIRQ V3",8,1
35 [139] LF[178]1[167]225
40 [153]"LOAD";:[151]53280,0:[151]53281,0
42 [153]"LOAD";:[151]53280,0:[151]53281,0
45 [141] 600
50 [153]"LOAD(null)(null)ATNSTR$(null)(null)ATN(null) RETROSPECTIVE JUKEBOX":A[178]0
60 [153]:[153]"LENHOOSE BY LETTER."
70 [153]
80 [129]CC[178]1[164]17
82 [153][199](CC[170]64)" = "[200](T$(CC),26):[130]
85 [153]"R = ATNLL"
170 [153]"S = VALXIT"
180 [151] 49161,0:HI[178]49162:S[178]54272:NF[178]0
190 [153]
198 [151]19,32:[151]53280,[187](1)[172]15
200 [153]" WAIT<--(null)HICH?";
201 [161]K$:[139]K$[178]""[167]201
202 K[178][198](K$)[171]64:[139]K[179]0[176]K[177]19[167]198
203 [153]""K$;
210 [139]K[178]18[167]A[178]1:[141]9000:[137]50
211 [139]K[178]19[167] 63000
220 LF[178]1:[147]PN$(K),8,1
225 [151]HI,AD(K)[173]256:[151]S[170]24,15:[151]56325,T(K):[158]49152:[141]500:[139]K$[178]"0"[167]230
226 [139]NF[178]1[167]9012
230 [139] K[179][177]0[167][140]:[137]50
240 [137]10000
500 [153][200]("",K[170]4);"";[200](T$(K),26)
503 [153]"         (null)RESS SPACE TO MOVE ON.":[151]198,0
506 [153]"         ATNRROW KEYS CHANGE TEMPO.";
507 TI$[178]"000000"
508 SS[178]T(K):[151]56325,SS
510 [161]K$:[139]K$[178]" "[167]519
512 [139]K$[178]"S"[167][158]49155:[141]520:[137]50
514 [139]A[178]1[167][139]TI[177]TI(K)[167]520
515 [139] K$[178]""[176]K$[178]"ON"[167]SS[178]SS[171]1:[139]SS[179]12[167]SS[178]12
516 [139]K$[178]"CMD"[176]K$[178]""[167]SS[178]SS[170]1:[139]SS[177]255[167]SS[178]255
517 [151]56325,SS
518 [137] 510
519 K[178]K[170]1
520 [151]56325,66:[158]49155:[151]S[170]24,0:[129]C[178]0[164]23:[151]S[170]C,0:[130]:[142]
600 [143]READ THAT FILE
640 :
650 F$[178]"JUKE.MUSIC"
660 [159]2,8,2,F$:[134]T$(26),PN$(26),AD(26),T(26),TI(26)
670 [129] RF [178] 1 [164] 17:[132]2,T$(RF),PN$(RF),AD(RF),T(RF),TI(RF)
680 [130] RF:[160]2
700 [142]
800 :
9000 NF[178]1:K[178]1:X[178]0
9012 X[178]X[170]1:[139]X[177]17[167]50
9013 K[178]X:[137]220
9115 [142]
63000 [153]"LOAD(null)UIT FOR SURE? <Y/N>CLOSE";
63010 [161]K$:[139]K$[178]""[167]63010
63020 [139]K$[179][177]"Y"[167][139]K$[179][177]"N"[167][151]53280,[187](1)[172]15:[137]63010
63030 [139]K$[178]"N"[167]50
63999 [147]"HELLO CONNECT",8