100 POKE52,64:POKE56,64:CLR:PRINT"[147]LOADING..."
110 F$="KAL.ML":GOSUB1000:F$="SID.OBJ.64":GOSUB1000
120 S=0:LA=25600:F$="CFBACHTHEME.MUS":GOSUB3000
130 F$="BACH BOURREE.MUS":GOSUB3000:F$="NOCTURNE27-1.MUS":GOSUB3000
140 F$="EVE IN CNTRY.MUS":GOSUB3000:F$="HORSE MUSIC.MUS":GOSUB3000
150 GOSUB5000:POKE780,S:POKE781,64:POKE782,96:SYS39428
160 POKE52,160:POKE56,160:CLR:GOTO4000
999 :
1000 POKE780,1:POKE781,8:POKE782,1:SYS65466:GOSUB2000
1010 POKE780,0:SYS65493:IFPEEK(783)AND1THEN1020
1015 RETURN
1020 P=PEEK(780):PRINT"ERROR FOR ";F$;:IFP=4THENPRINT" FILE NOT FOUND":GOTO4000
1030 IFP=5THENPRINT" DEVICE NOT PRESENT":GOTO4000
1040 PRINT" ";ST:GOTO4000
1999 :
2000 F$=F$+",P,R":FORK=1TOLEN(F$):POKE584+K,ASC(MID$(F$,K)):NEXT
2010 POKE780,LEN(F$):POKE781,73:POKE782,2:SYS65469:RETURN
2999 :
3000 POKE780,1:POKE781,8:POKE782,0:SYS65466:GOSUB2000
3010 HI=INT(LA/256):LO=LA-256*HI
3020 POKE780,0:POKE781,LO:POKE782,HI:SYS65493:IFPEEK(783)AND1THEN1020
3030 LA=PEEK(781)+256*PEEK(782):POKE40944+S,LO:POKE40945+S,HI:S=S+2:RETURN
3999 :
4000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
4010 IFER%<>63THENEND
4020 LOAD"HELLO CONNECT",8
4999 :
5000 BW=15:MS$="LOADSTAR PROUDLY PRESENTS":TL$="K A L E I D O S C O P E"
5010 AU$="BY DAVE JOHANNSEN":BX=27:GOSUB 6000
5020 S$(1)="COPYRIGHT 1988"
5030 S$(2)="[213][192][192][201][157][157][157][157][221]F1[221][157][157][157][157][202][192][192][203][157][157][157][157][157][157][157][157][157][157][157][157][157]CHANGE "
5040 S$(2)=S$(2)+"BACKGROUND COLOR"
5050 S$(3)="[213][192][192][201][157][157][157][157][221]F3[221][157][157][157][157][202][192][192][203][157][157][157][157][157][157][157][157][157][157][157][157][157]CHANGE "
5060 S$(3)=S$(3)+"FOREGROUND COLOR"
5070 S$(4)="[213][192][192][201][157][157][157][157][221]F5[221][157][157][157][157][202][192][192][203][157][157][157][157][157]PAUSE"
5080 S$(5)="[213][192][192][201][157][157][157][157][221]F7[221][157][157][157][157][202][192][192][203][157][157][157][157][157][157][157][157][157][157][157]RETURN TO LOADSTAR"
5090 S$(6)="[213][192][192][192][192][192][201][157][157][157][157][157][157][157][221]SPACE[221][157][157][157][157][157][157][157][202][192][192][192][192][192][203][157][157][157][157][157][157][157][157][157]CHANGE"
5100 S$(6)=S$(6)+" SONG":N=1
5105 S$(7)="PRESS ANY KEY TO BEGIN"
5110 S$=S$(N):N=N+1:IFN>7THENN=1
5120 GOSUB8000
5130 GETA$:IFA$=""THEN5110
5140 RETURN
5999 :
6000 SX=782:SY=781:SJ=39424:POKE53280,14:POKE53281,14:PRINT"[147]";
6010 FORI=1TOLEN(MS$):A$=MID$(MS$,I,1):IFA$=" "THEN6050
6020 X=20-(LEN(MS$)+1)/2:FORY=1TO12:IFX+I+12-Y>37 THEN6040
6030 POKESX,X+I+12-Y:POKESY,24-Y:SYSSJ:PRINT"[144]";A$;" ";
6040 POKESX,X+I:POKESY,Y:SYSSJ:PRINT"";A$;"[145][157] ";:NEXTY
6050 NEXTI:BB=20-(BW+1)/2:BE=BB+BW
6060 T$=LEFT$("[154]                    ",BB+2)
6070 T$=T$+LEFT$("[153]                                        ",BW+1)
6080 T$=T$+LEFT$("[154]                    ",41-BE)
6090 POKESX,0:POKESY,24:SYSSJ:PRINTLEFT$(T$,43);:POKE56295,14:POKE2023,160
6100 FORY=23TO0STEP-1:POKESX,0:POKESY,Y:SYSSJ:PRINTT$;:POKESX,BE:POKESY,Y+1
6110 SYSSJ:PRINT" ";:NEXT:POKESX,0:POKESY,24:SYSSJ
6115 PRINT"[154]                                       ";:POKESX,BB:POKESY,24
6120 SYSSJ:PRINTLEFT$("[154]                                         ",BW+4);
6130 PRINT"";:POKE53281,1:I$="[155][152][151][144][151][152][155]"
6140 LX=39:LY=2:LM=1:RX=LX+3+LEN(TL$):RY=2:RM=1:QX=17-(LEN(TL$)+1)/2
6150 GOSUB7000:GOSUB7100:IFLX>QXTHEN6150
6160 FORI=1TO4:POKESX,QX+3:POKESY,3:SYSSJ:PRINTMID$(I$,I,1);"[146]";TL$;
6165 GOSUB7500:NEXT
6170 LX=39:LY=7:LM=1:RX=LX+3+LEN(AU$):RY=7:RM=1:QX=17-(LEN(AU$)+1)/2
6180 GOSUB7000:GOSUB7100:IFLX>QXTHEN6180
6190 FORI=1TO4:POKESX,QX+3:POKESY,8:SYSSJ:PRINTMID$(I$,I,1);"[146]";AU$;
6195 GOSUB7500:NEXT
6200 LX=39:LY=13:LM=1:RX=LX+BX:RY=13:RM=1:QX=18-(BX+1)/2
6210 GOSUB7200:GOSUB7300:IFLX>QXTHEN6210
6220 RETURN
7000 POKESX,LX:POKESY,LY:SYSSJ:LX=LX-1:ONLMGOTO7010,7020,7030,7040,7050,7060
7010 LM=2:PRINT"[146][207][157][180][157][204]";:RETURN
7020 LM=3:PRINT"[146][207][183][157][157][180] [157][157][204][175]";:RETURN
7030 LM=3-(LX=BE-2):PRINT"[146][207][183][157][157][180] [157][157][204][175] [157] ";:RETURN
7040 LM=4-(LX=BB-2):PRINT"[146][207][183][157][157][180] [157][157][204][175][157] ";:RETURN
7050 LM=6:PRINT"[146][207][183][157][157][180] [157][157][204][175]";:RETURN
7060 PRINT"[146][207][183][157][157][180] [157][157][204][175] [157] ";:RETURN
7100 RX=RX-1:IFRX>38THENRETURN
7105 POKESX,RX+1:POKESY,LY:SYSSJ:ONRMGOTO7110,7120,7130,7140,7150,7160
7110 RM=2:PRINT"[146][208][157][170][157][186]";:RETURN
7120 RM=3+(RX>=37):PRINT"[146][208][157][170][157][186] [145][157][154] [145][157] ";:RETURN
7130 RM=4+(RX>=BE):PRINT"[146][208][157][170][157][186] [145][157][154] [145][157]  [157] [157] ";:RETURN
7140 RM=5:PRINT"[146][208][157][170][157][186] [145][157] [145][157] [154] [157] [157] ";:RETURN
7150 RM=6:PRINT"[146][208][157][170][157][186] [145][157] [145][157][153] [154] [157] [157] ";:RETURN
7160 PRINT"[146][208][157][170][157][186] [145][157] [145][157][153] [153] [157] [157] ";:RETURN
7200 B$="[146][207][183][157][157][180] [157][157][180] [157][157][180] [157][157][180] [157][157][180] [157][157][204][175]"
7205 POKESX,LX:POKESY,LY:SYSSJ:LX=LX-1:ONLMGOTO7210,7220,7230,7240,7250,7260
7210 LM=2:PRINT"[146][207][157][180][157][180][157][180][157][180][157][180][157][204]";:RETURN
7220 LM=3:PRINTB$;:RETURN
7230 LM=3-(LX=BE-2):PRINTB$;" [157] ";:RETURN
7240 LM=4-(LX=BB-2):PRINTB$;"[157] ";:RETURN
7250 LM=6:PRINTB$;:RETURN
7260 PRINTB$;" [157] ";:RETURN
7300 B$="[146][208][157][170][157][170][157][170][157][170][157][170][157][186]":C$=B$+" [145][157] [145][157] [145][157] [145][157] [145][157][154] [145][157] "
7301 D$=B$+" [145][157] [145][157] [145][157] [145][157] [145][157] [145][157] ":E$=B$+" [145][157] [145][157] [145][157] [145][157] [145][157] [145][157][153] "
7302 RX=RX-1:IFRX>38THENRETURN
7305 POKESX,RX+1:POKESY,LY:SYSSJ:ONRMGOTO7310,7320,7330,7340,7350,7360
7310 RM=2:PRINTB$;:RETURN
7320 RM=3+(RX>=37):PRINTC$;:RETURN
7330 RM=4+(RX>=BE):PRINTC$;" [157] [157] [157] [157] [157] [157] ";:RETURN
7340 RM=5:PRINTD$;"[154] [157] [157] [157] [157] [157] [157] ";:RETURN
7350 RM=6:PRINTE$;"[154] [157] [157] [157] [157] [157] [157] ";:RETURN
7360 PRINTE$;"[153] [157] [157] [157] [157] [157] [157] ";:RETURN
7500 FORT=1TO100:NEXT:RETURN
7999 :
8000 FORI=1TO4:POKESX,QX+3:POKESY,14:SYSSJ:PRINTMID$(I$,I,1);"[146]";S$;:GOSUB7500
8010 NEXT:FORT=1TO900:NEXT
8020 FORI=5TO8:POKESX,QX+3:POKESY,14:SYSSJ:PRINTMID$(I$,I,1);"[146]";S$;:GOSUB7500
8030 NEXT:FORT=1TO300:NEXT:RETURN