0 POKE53274,.:POKE53272,23
1 POKE55,0:POKE56,48:CLR
2 DV=PEEK(186):IFDV<8THENDV=8
3 DV$=STR$(DV)
5 SYS57812"ML C600-CFFF",DV,0:POKE780,0:POKE781,0:POKE782,198:SYS65493
6 SYS57812"COMICO FONT",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
7 SYS57812"RASTER STUFF.O",DV,0:POKE780,0:POKE781,02:POKE782,63:SYS65493
8 SYS57812"COMICO.SPR",DV,0:POKE780,0:POKE781,0:POKE782,62:SYS65493
9 FR$="":LA$="":OV$=""
10 NS=10:DIM NA$(NS),FI$(NS),W$(5):REM CHANGE NS TO REFLECT NUMBER OF SONGS
12 SA=780:SX=781:SY=782
13 FORI=0TO24:POKE54272+I,0:NEXT
14 SU=51206:SD=51209
15 POKE1020,10:POKE1021,16:POKE1022,7:POKE1023,32
16 FORI=0TO4:POKE2040+I,I+248:NEXT
17 V=53248:FORI=0TO6STEP2:READB:POKEV+I,B:READB:POKEV+I+1,B:NEXT:POKEV+16,12
18 DATA42,65,62,80,45,65,25,80
19 FORI=0TO3:POKEV+39+I,5:NEXT:PRINT"[147]"CHR$(142):POKEV+28,0:POKE53272,28
20 GOSUB1000
30 GOSUB1500
40 GOSUB2000:FORT=0TO2000:NEXT
50 GOSUB3000
60 GOSUB100
64 PRINT"[193]RE YOU SURE YOU WANT TO QUIT? (Y/N)":POKE198,.
66 A=PEEK(203):IFA<>25ANDA<>39THEN66
68 IFA=39THENGOSUB2020:GOTO50
69 POKE53281,.:POKE53280,.:POKE646,.
70 POKEV+21,0:GOTO40000
100 PRINTLA$""
110 FORA=1TO5:PRINT"                                    "
120 NEXT:PRINT"[145][145][145][145][145][145]"
130 RETURN
1000 POKE53280,13:POKE53281,1
1010 PRINT"[147]";
1012 FORA=1TO5:
1013 PRINT"[153]                                        ";
1014 NEXT
1015 PRINT"[153]   [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]   ";
1016 PRINT"[153] [176][192][219][192][174]                            [176][192][219][192][174] ";
1017 PRINT"[153] [221] [173][192][189]                            [173][192][189] [221] ";
1018 PRINT"[153][176][219][192][174]                                [176][192][219][174]";
1019 PRINT"[153][221][173][192][189]                                [173][192][189][221]";
1020 FORA=.TO10:PRINT"[153][221]                                      [221]";:NEXT
1030 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
1032 FORA=1TO2:
1033 PRINT"[153]                                        ";
1034 NEXT
1035 PRINT"                                       [157][148] "
1040 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1050 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1060 PRINT"[221][204][207][193][196][211][212][193][210] [208]RESENTS[221] "
1070 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
1080 PRINT"                   "
1090 PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][153] "
1100 PRINT"[152][176][219][192][174]                  [176][192][219][174]"
1110 PRINT"[152][221][173][192][189]                  [173][192][189][221] "
1111 FOR A=1TO3
1112 PRINT"[152][221]                        [221] "
1120 NEXT
1130 PRINT"[152][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
1135 PRINT"                          "
1140 PRINT"[145][145][145][145][145][145][152]   [193] [214][197][210][217] [200][193][208][208][217]"
1150 PRINT"     [195][207][205][201][195][207][194][207][216]!    "
1170 PRINT" [194]Y [205]ARIO [207]ROPESA
1180 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1190 [153]"(null)        LENOPYRIGHT 1994        (null) "
1191 [153]"(null)                              (null) "
1192 [153]"(null)     (null)OFTDISK (null)UBLISHING      (null) "
1200 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP "
1210 [153]"                                "
1220 [129]A[178]1[164]NS:[135] NA$(A),FI$(A):[130]
1230 [129]A[178]1[164]2000:[130]
1250 [142]
1500 [153]"(null)                 (null)"
1510 [153]"(null)   ATNCLOSE(null)VAL(null)(null)CLOSELEFT$ATN(null)(null)(null)  (null) "
1520 [153]"(null)    LEN(null)(null)RIGHT$LEN(null)PEEK(null)(null)!   (null) "
1530 [153]"PRINT          (null) PEEKY (null)ATN(null)RIGHT$(null) (null)(null)(null)(null)VAL(null)ATN(null) PRINT         "
1535 MM[178]1263:[151]MM,160:[151]54272[170]MM,13
1540 [153]"PRINT          /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP PRINT         "
1545 MM[178]MM[170]40:[151]MM,160:[151]54272[170]MM,13
1550 [153]"PRINT                              PRINT         "
1555 MM[178]MM[170]40:[151]MM,160:[151]54272[170]MM,13
1560 [153]"PRINT                                       "
1565 MM[178]MM[170]40:[151]MM,160:[151]54272[170]MM,13
1570 [153]"PRINT WAITVERIFYORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1575 MM[178]MM[170]40:[151]MM,160:[151] 54272[170]MM,13
1580 [129]A[178]1[164]7
1590 [153]"PRINT VERIFYWAIT(null)                                    (null)"
1595 MM[178]MM[170]40:[151]MM,160:[151]54272[170]MM,5
1597 [139]A[178]4[167][153]"ONPRINT#--->"[163]34)"<---"
1600 [130]
1610 [153]"PRINT VERIFYWAIT-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
1615 MM[178]MM[170]40:[151]MM,160:[151]54272[170]MM,5
1620 [129]A[178]1[164]5
1630 [153]"PRINT VERIFYWAIT(null)                                    (null)"
1635 MM[178]MM[170]40:[151]MM,160:[151]54272[170]MM,5
1640 [130]
1650 [153]"PRINT WAITVERIFY/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1655 MM[178]MM[170]40:[151]MM,160:[151]54272[170]MM,5
1660 [153]"PRINT                                       "
1665 MM[178]MM[170]40:[151]MM,160:[151]54272[170]MM,5
1670 [129]A[178]217[164]242:[151]A,[194](A)[176]128:[130]
1680 [142]
2000 [153]FR$;
2010 [129]A[178]1[164]7:[153]OV$"CLR"NA$(A):[130]
2015 SE[178]4
2016 LS$[178]""
2020 [141]100:[153]LA$"CONT(null)SE THE LEN(null)(null)(null) KEYS TO SCROLL THE"
2025 [153]"MUSIC UP AND DOWN."
2030 [153]"(null)RESS (null)VAL(null)(null)(null)(null) TO HEAR THE"
2040 [153]"SELECTED MUSIC."
2050 [153]"OPENASC1CONT - (null)LAY ALL        OPENASC7CONT - (null)UIT"
2060 [142]
3000 [151]198,.:AB[178].:PA[178].
3002 [151]V[170]21,15:[151]53272,28
3005 B[178][194](653):A[178][194](203):[139]A[179][177]7[175]A[179][177]2[175]A[179][177]4[175]A[179][177]3[175]A[179][177]1[167]3005
3010 [139]((B[178].)[175](A[178]2))[176]((B)[175](A[178]7))[167] [141]3100:[137]3000
3020 [139]((B[178].)[175](A[178]7))[176]((B)[175](A[178]2))[167] [141]3200:[137]3000
3030 [139](A[178]1)[167]4000
3040 [139](A[178]4)[167]4100
3050 [139](A[178]3)[167] [142]
3060 [137]3000
3100 SE[178]SE[171]1:[139]SE[178].[167]SE[178]NS
3110 TP[178]SE[171]3:[139]TP[179]1[167]TP[178]NS[170]TP
3120 [158]SD:[151]648,216:[158]SD:[151]648,4:[153]FR$OV$"CLR"NA$(TP)
3130 [142]
3200 SE[178]SE[170]1:[139]SE[178]NS[170]1[167]SE[178]1
3210 BO[178]SE[170]3:[139]BO[177]NS[167]BO[178]BO[171]NS
3220 [158]SU:[151]648,216:[158]SU:[151]648,4:[153]LA$OV$"CLR"NA$(BO)
3230 [142]
4000 PL[178]SE
4010 [141]6000
4040 [137]3000
4097 :
4098 :
4100 MM[178]SE:PA[178][171]1:[129]ZZ[178]SE[164]NS
4110 PL[178]ZZ
4120 [141]6000
4150 [141]3200
4155 [139](AB)[167][141]2020:[137]3000
4160 [130]:[139](MM[178]1)[176](AB)[167][141]2020:[137]3000
4170 [129]ZZ[178]1[164]MM[171]1
4180 PL[178]ZZ
4190 [141]6000
4210 [141]6500
4220 [141]3200
4225 [139](AB)[167][141]2020:[137]3000
4230 [130]:[141]2020:[137]3000
6000 OK[178]1:HE[178].:[139]LS$[178]FI$(PL)[167]6540
6001 LS$[178]FI$(PL)
6003 [141]100:LI$[178]"(null)OADING "[170]NA$(PL):LI[178][195](LI$):TA[178]20[171]LI[173]2
6005 [153]""[163]TA)LI$
6010 [151]V[170]21,0:[158]57812"M."[170]FI$(PL),DV,0:[151]780,0:[151]781,0:[151]782,160:[158]65493
6020 [151]V[170]21,0:[158]57812"W."[170]FI$(PL),DV,0
6030 [151]780,0:[151]781,104:[151]782,207:[158]65493
6500 [129]I[178]0[164]5:W$(0)[178]"":[130]:[151]V[170]21,0:[158]50688,"C."[170]FI$(PL),DV
6540 [139](OK)[167][158]52222,40960:OK[178].:[151]V[170]21,15
6550 [151]198,.:[141]100:[151]646,6:[129]A[178]0[164]4
6551 [153][163]20[171](A[178]0)[171]([195](W$(A))[173]2))W$(A):[130]
6553 [153]"";:[129]A[178]1[164]5:[153]"PRINT WAITVERIFY(null)":[130]
6555 [153]"PRINT          (null)RESS "[199](34)"LEFT$"[199](34)" FOR HELP.          "
6560 KE[178][194](203):[139](KEY[178]29)[176](KEY[178]60)[176](KEY[178]10)[176](KEY[178]62)[167]6563
6561 CB[178](CB[170]1)[175]15:[151]V[170]37,CB:[151]V[170]38,15[171]CB
6562 [139][194](2)[179][177]255[167]6560
6563 [139](KEY[178]60)[175](HE)[167]HE[178].:[137]6550
6564 [139](KEY[178]10)[175](PA)[167]AB[178][171]1:[137]6570
6565 [139](KEY[178]29)[175]([168](HE))[167][141]7500:[137]6560
6566 [139](KEY[178]60)[176](KEY[178]29)[176](KEY[178]10)[167]6560
6570 [141]100
6572 [158]52225
6575 [153]"PRINT                                    "
6580 [139]([168](PA))[167][141]100:[141]2020
6590 [142]
7500 [153]"PRINT                                    "
7510 [141]100:[153]" (null)RESS "[199](34)"(null)"[199](34)" TO QUIT CURRENT MUSIC."
7520 [139][168](PA)[167][153]:[137]7540
7530 [153]" (null)RESS "[199](34)"ATN"[199](34)" TO ABORT PLAY ALL."
7540 [153]" (null)RESS (null)(null)ATNLENVAL TO RE-DISPLAY CREDITS."
7550 HE[178][171]1:[142]
10000 [159]15,8,15,"S0:B.COMICOBOX":[160]15:[148]"B.COMICOBOX",8:[128]
10001 [131] "VAL(null) (null)ATNVAL(null)(null)(null)(null)",EL-MAESTRO
10002 [131] "(null)VALLENLENRIGHT$(null)(null) STR$VAL STR$ATN(null)(null)ATN",LECCION-DE-DANZA
10003 [131] "(null)ATN LEN(null)(null)(null)VAL(null)ATN",LA-COQUETONA
10004 [131] "STR$ATN(null)(null)(null)(null) LEN(null)PEEKATN(null)(null)",DANZON-CUBANO
10005 [131] "(null)ATN(null)(null)STR$ (null) (null)VAL(null)VAL(null)ATN(null)",SAL-Y-PESETAS
10006 [131] "(null)(null)(null)",LUZ
10007 [131] "(null)ATN(null)ATNPEEK(null)ATN STR$VAL LEFT$(null)(null)(null)(null)",PAL-DE-HONOR
10008 [131] "LENVAL(null)(null)(null)ATN",CELOSA
10009 [131] "(null)ATN (null)VAL(null)(null)VAL(null)RIGHT$(null)(null)ATN",LA-MESMERISTA
10010 [131] "ATN(null)(null)(null)(null)RIGHT$(null) ASC(null)VAL(null)(null)VAL(null)",TONIO-FUENTES
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]13:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOADWAIT":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADWAITLOAD"[199](34)A$[199](34)","I:[151]43,1
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]