1 IFL=0THENL=1:LOAD"BLOAD.O",8,1
2 SYS828,32768,"Q&D PLAYER 32768"
10 SG$(1)="SCARBOROUGH FAIR"
15 SG$(2)="SONATINA #2"
20 SG$(3)="EASE ON DOWN THE ROAD"
25 SG$(4)="PRELUDE AND FUGUE":NS=4
27 PRINT"[147]"CHR$(142)CHR$(8):POKE53280,0:POKE53281,0
30 PRINT"[147][158]LOADSTAR JUKEBOX"
35 FORT=1 TO NS:PRINT"[154]("T") " SG$(T):NEXT
40 PRINT"ENTER YOUR SELECTION (1-4)  "
41 PRINT"OR X TO EXIT: ";
42 GET T$:IFT$="" THEN42
43 IF T$="X" THEN PRINT"[147]SEE YOU, BYE!":GOTO190
44 IF T$<"1" OR T$>"4" THEN 42
45 SN=VAL(T$)
50 SG$="D."+LEFT$(SG$(SN),14)
55 PRINT T$
60 PRINT"[145]   LOADING...           "
90 SYS828,8192,SG$
95 SYS828,32771,"V."+SG$
97 PRINT"[145]   SPACE BAR TO STOP.        "
100 POKE253,0:POKE254,32:SYS32768
150 IF PEEK(198)=0THEN27
160 IF PEEK(198)<>0THENGETK$
170 PRINT"[147]MORE(Y/N)???";
175 GET MR$: IF MR$="" THEN 175
180 IF MR$="Y" THEN 27
185 IF MR$<>"N" THEN 170
190 POKE928,0:LOAD"HELLO CONNECT",8