10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0:POKE788,52
12 DV=PEEK(186):IFDV<8THENDV=8
14 DIMW$(160),M$(21),N$(21)
16 G=49153
18 PRINT"[147]":GOSUB60000
20 SYS57812"OPERA3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
24 SYS57812"OPERA FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
26 SYS57812"OPERAC000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
30 SYS13312,"OPERA FORM",DV
32 H=PEEK(252)*256+PEEK(251)
35 POKE53272,31
37 SP$="                                        "
38 TB$="     "
50 POKE53281,0:PRINT"[147]"
70 TP$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
72 BT$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
80 FORI=1TO20:READM$(I),N$(I):NEXT
81 DATA"[197]CCOLAMARCIA
82 [131]"ECCOLAMARCIA.MUS"
83 [131]"(null)A LENI STR$AREM (null)A (null)ANO"
84 [131]"DAREM LAMANO.MUS"
85 [131]"(null)IDE OF THE (null)ALKYRIES
86 DATA"RIDE/VALKYRI.MUS"
87 DATA"[193]H, [211]O [208]URE"
88 DATA"MARTHA.MUS"
89 DATA"[197]BBEN, [206]'[193]NDRO [204]ONTANA
90 [131]"LA WALLY.MUS
91 DATA"[213]N [194]EL DI [214]EDREMO
92 [131]"UN BEL DI.MUS
93 DATA"[212]HREE [204]ITTLE [205]AIDS
94 [131]"MIKADO MAIDS.MUS"
95 [131]"LEFT$ABANERA
96 DATA"HABANERA.MUS
97 [131]"RIGHT$NTERMEZZO
98 DATA"INTERMEZZO.MUS
99 [131]"ATNNVIL LENHORUS
100 DATA"IL TROVATORE.MUS
101 [131]"RIGHT$F (null)OU (null)ANT TO (null)NOW (null)HO (null)E ATNRE
102 DATA"MIKADO WHO.MUS
103 [131]"(null)OLA, (null)ERDITA, ATNBBANDONATA
104 DATA"MANON.MUS
105 [131]"(null)UANDO (null)EN (null)O
106 DATA"BOHEME.MUS
107 [131]"(null)UEEN OF THE (null)IGHT'S (null)ENGEANCE
108 DATA"MAGIC FLUTE.MUS
109 [131]"ATNDDIO, STR$EL (null)ASSATO
110 DATA"ADDIO-TRAV.MUS
111 [131]"(null) (null)IO PEEKABBINO LENARO
112 DATA"GIANNI SCHIC.MUS
113 [131]"(null)A LENANZONE STR$I STR$ORETTA
114 DATA"RONDINE.MUS
115 [131]"(null)ESTI (null)A CHR$UIBBA
116 DATA"PAGLIACCI.MUS
117 [131]"(null)UESTO (null) (null)UELLA
118 DATA"RIGOLETTO.MUS
119 [131]"(null) (null)OAVE ASCANCIULLA
120 DATA"FANCIULLA.MUS
125 [137]200
127 :
128 :[143] BOX ROUTINE
129 :
130 [151]214,Y:[153]
132 [153][163]X)"ONOR"[200](TP$,XX)"^"
134 [129]II[178]1[164]YY:[153][163]X)"+FOR"[200](SP$,XX)"VERIFYWAITSGN":[130]
136 [153][163]X)"/"[200](BT$,XX)"EXP"
137 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]
138 [142]
147 :
148 :[143] MUSIC ON
149 :
150 [158]49615:[151]781,0:[151]782,128:[158]49664:[151]49152,7:[142]
157 :
158 :[143] MUSIC OFF
159 :
160 [151]49152,0:[151]54276,0:[151]54283,0:[151]54290,0:[158]49897:[158]49935:[142]
200 [153]"LOADVERIFY";
202 X[178]0:Y[178]0:XX[178]37:YY[178]23:[141]130
204 [153]"LIST       STR$ ATN (null) VAL   (null) ATN (null) (null) (null) RIGHT$ (null)'      "
206 [153]"SYS     (null)(null)VAL(null)ATN ATN(null) (null)LEFT$VAL (null)(null)(null)RIGHT$VAL(null) LEN(null)(null)(null)VAL(null)(null)     "
212 [129]I[178]1[164]20:[153]"SYS "[199](192[170]I)" FOR "M$(I):[130]
214 [151]214,22:[153]:[153]" ATNFOR-(null)FOR (null)LAY  ASC1FOR ATNLL  ASC3FOR (null)RINT  ASC7FOR (null)UIT "
220 [151]198,0
222 [161]A$:[139]A$[178]""[167]222
228 [139]A$[178][199](133)[167]500
230 [139]A$[178][199](134)[167]300
240 [139]A$[178][199](136)[167]39000
250 [139]A$[179]"A"[176]A$[177]"T"[167]222
252 N[178][198](A$)[171]64
254 [151]214,1[170]N:[153]:[153][163]4)"SYS "M$(N)[200](SP$,33[171][195](M$(N)))
260 [158]57812N$(N),DV,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
270 [141]150
280 [151]214,22:[153]:[153]"FOR  (null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null)FOR (null)(null) (null)(null)(null)(null) (null)LEFT$VAL (null)(null)(null)RIGHT$LEN   "
290 [161]A$:[139]A$[178]""[175][194](49152)[178]7[167]290
292 [141]160
294 [151]214,1[170]N:[153]:[153][163]4)"FOR "M$(N)[200](SP$,33[171][195](M$(N)))
296 [137]214
300 [151]214,22:[153]:[153]"  1FOR (null)(null)VAL (null)LEFT$VALVAL(null)   2FOR (null)(null)(null) (null)LEFT$VALVAL(null)(null)   VALFOR(null)LEN  "
310 [161]A$:[139]A$[178]""[167]310
312 [139]A$[178]"E"[176]A$[178]"_"[167]214
320 [139]A$[178]"1"[167]400
322 [139]A$[179][177]"2"[167]310
330 [159]4,4,7
340 [129]I[178]0[164]29:[152]4,TB$W$(I):[130]
342 [129]I[178]30[164]59:[152]4,TB$W$(I)[200](SP$,36[171][195](W$(I)))W$(I[170]30):[130]
344 [129]I[178]0[164]7:[152]4:[130]
346 [129]I[178]90[164]119:[152]4,TB$W$(I)[200](SP$,36[171][195](W$(I)))W$(I[170]30):[130]
350 [160]4
360 [137]214
400 [159]4,4,7
402 [129]I[178]0[164]29:[152]4,TB$W$(I):[130]
410 [152]4,[199](27)[199](83)[199](49)[199](27)[199](15)
420 [129]I[178]30[164]59
422 [152]4,TB$W$(I)[200](SP$,33[171][195](W$(I)))W$(I[170]30);
424 [152]4,[200](SP$,33[171][195](W$(I[170]30)))W$(I[170]60);
426 [152]4,[200](SP$,33[171][195](W$(I[170]60)))W$(I[170]90)
428 [130]
440 [152]4,[199](27)[199](64)
450 [160]4
460 [137]214
500 [151]214,22:[153]:[153]"  (null)(null)ATNLENVALFOR (null)VAL(null)(null) (null)(null)(null)CHR$  (null)FOR (null)(null)(null)(null) (null)LEFT$VAL (null)(null)(null)RIGHT$LEN "
510 [129]I[178]1[164]20
518 [151]214,1[170]I:[153]:[153][163]4)"SYS "M$(I)[200](SP$,33[171][195](M$(I)))
520 [158]57812N$(I),DV,0:[151]780,0:[151]781,0:[151]782,128:[158]65493
540 [141]150
550 [161]A$:[139]A$[178]""[175][194](49152)[178]7[167]550
552 [139][194](49152)[178]0[167][141]160:[137]580
560 [139]A$[178]" "[167][141]160:[137]580
570 Q[178]0:[139]A$[178]"Q"[167][141]160:Q[178]1:[137]580
572 [137]550
580 [151]214,1[170]I:[153]:[153][163]4)"FOR "M$(I)[200](SP$,33[171][195](M$(I)))
582 [139]Q[167]I[178]20
584 [130]
590 [137]214
10000 DV[178][194](186):N$[178]"B.OPERA":[159]15,DV,15,"S0:"[170]N$:[160]15:[148]N$,DV:[128]
39000 [151]214,22:[153]
39010 [153]"FOR     (null)(null)RIGHT$(null)?  ATN(null)VAL (null)(null)(null) (null)(null)(null)VAL? ((null)FOR/(null)FOR)     "
39020 [151]198,0
39030 [161]A$:[139]A$[178]""[167]39030
39040 [139]A$[179][177]"Y"[167]214
39050 [151]788,49
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"PRESENTER":[141]40040:A$[178]"HELLO CONNECT"
40040 [129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40050 [160]2:[159]2,I,2:[160]2:[139]ST[167]40070
40060 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40090
40070 [130]:[139]A$[178]"PRESENTER"[167][142]
40080 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40090 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40100 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40110 [153]"P(null)53272,23:RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]9:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null)(null)VAL(null)ATN ATN(null) (null)LEFT$VAL (null)(null)(null)RIGHT$VAL(null) LEN(null)(null)(null)VAL(null)(null)"
60032 Z$(1)[178]"BY STR$AVE (null)ARQUIS AND ASCENDER (null)UCKER"
60040 Z$(2)[178]"(LEN) 1995 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [202] & [198] [208]UBLISHING, [201]NC. [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="1-800-594-3370 OR 1-318-221-8718"
60090 POKE214,12:PRINT
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN