0 IFP=0THENP=1:LOAD"BLOAD.O",8,1
5 GOSUB20000
10 SYS828,8192,"D.TOCCATA&FUGUE"
20 SYS828,32768,"Q&D PLAYER.32768"
30 SYS828,32771,"V.T&F"
40 REM
50 POKE253,0:POKE254,32
60 SYS32768
61 POKE198,0
62 PRINT"[147]  [196]O YOU WANT TO HEAR IT AGAIN? (Y/N)"
63 GETK$:IFK$=""THEN63
64 IFK$<>"Y"THENIFK$<>"N"THENPOKE53280,RND(1)*15:GOTO63
65 IFK$="Y"THENGOSUB20000:GOTO40
70 LOAD"HELLO CONNECT",8
20000 PRINT"[147][158]";:POKE53281,0:POKE53280,0
30000 FORC=1TO13
30010 PRINT"                                        ";
30020 NEXT
30030 PRINT"[212]OCCATA AND [198]UGUE    BY   [202]. [211]. [194]ACH"
30040 PRINT"[210]ECORDED BY:  [203]EN [198]EHRMANN"
30045 PRINT"[210]ECORDED ON: [160][197]LECTRIC [196]UET"
30046 PRINT"BY [208]AUL [204]UTUS"
30050 PRINT"[212]RANSCRIBED BY:  [202]IM [215]EILER"
30060 PRINT"[195]OPYRIGHT 1985, [204]OADSTAR"
30070 PRINT"[208]LAYING TIME: 6 MINUTES"
30080 PRINT"[208]RESS ANY KEY TO QUIT EARLY."
30100 PRINT"";
40000 RETURN