10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0
12 DV=PEEK(186):IFDV<8THENDV=8
14 DIMW$(160),M$(21),N$(21)
16 G=49153
18 PRINT"[147]":GOSUB60000
20 SYS57812"CLASS3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
24 SYS57812"CLASSICS FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
26 SYS57812"CLASSC000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
30 SYS13312,"CLASSICS 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"[208]ACHELBEL - [195]ANON IN [196]"
82 DATA"PACHELBELCAN.MUS"
83 DATA"[208]ONCHIELLI - [196]ANCE OF THE [200]OURS"
84 DATA"DANCEOFHOURS.MUS"
85 DATA"[199]ERSHWIN - [210]HAPSODY IN [194]LUE"
86 DATA"RHAPSODYBLUE.MUS"
87 DATA"[205]OZART - [211]YMPHONY [206]O. 25"
88 DATA"SYMPHNY25MOZ.MUS"
89 DATA"[211]CHUBERT - [193]VE [205]ARIA"
90 DATA"AVE MARIA.MUS"
91 DATA"[212]SCHAIKOVSKY - [210]OMEO AND [202]ULIET"
92 DATA"ROMEO JULIET.MUS"
93 DATA"[199]RIEG - [208]IANO [195]ONCERTO [193] [205]INOR"
94 DATA"GRIEGCONCERT.MUS"
95 DATA"[205]OZART - [208]IANO [195]ONCERTO [193] [205]INOR"
96 DATA"ROMANCMOZART.MUS"
97 DATA"[193]DDINSELL - [215]ARSAW [195]ONCERTO"
98 DATA"WARSAW.MUS"
99 DATA"[211]TRAUSS - [193]LSO [211]PRACH [218]ARATHUSTRA"
100 DATA"ZARATHUSTRA.MUS"
101 DATA"[195]HOPIN - [208]RELUDE IN [193] [205]AJOR"
102 DATA"PREL28-7CHOP.MUS"
103 DATA"[200]ANDEL - [211]ARABANDE"
104 DATA"SARABANDHAND.MUS"
105 DATA"[193] [199]EORGE [199]ERSWIN PIECE"
106 DATA"GERSHWIN.MUS"
107 DATA"[212]SCHAIKOVSKY - [211]WAN [204]AKE"
108 DATA"SWAN LAKE.MUS"
109 DATA"[194]ACH - [212]OCCATA & [198]UGUE [196] [205]INOR"
110 DATA"TOCC&FUGBACH.MUS"
111 DATA"[205]OZART - [197]INE [203]LEINE [206]ACHTMUSIK"
112 DATA"EINE KLEINE.MUS"
113 DATA"[205]ASCAGNI - [201]NTERMEZZO"
114 DATA"INTERMEZZO.MUS"
115 DATA"[196]UKAS - [211]ORCEROR'S [193]PPRENTICE"
116 DATA"SORCEROR'S.MUS"
117 DATA"[210]ACHMANINOFF - [210]HAPSODY"
118 DATA"PAGANINIRACH.MUS"
119 DATA"[205]OZART - [208]IANO [195]ONCERTO [206]O. 21"
120 DATA"PC21-MOZART.MUS"
125 GOTO200
127 :
128 :REM BOX ROUTINE
129 :
130 POKE214,Y:PRINT
132 PRINTTAB(X)"[145][176]"LEFT$(TP$,XX)"[174]"
134 FORII=1TOYY:PRINTTAB(X)"[170][129]"LEFT$(SP$,XX)"[149][146][180]":NEXT
136 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
137 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
138 RETURN
147 :
148 :REM MUSIC ON
149 :
150 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:RETURN
157 :
158 :REM MUSIC OFF
159 :
160 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:RETURN
200 PRINT"[147][149]";
202 X=0:Y=0:XX=37:YY=23:GOSUB130
204 PRINT"[155]      [196] [193] [214] [197]   [205] [193] [210] [209] [213] [201] [211]'       "
206 PRINT"[158]   [195][204][193][211][211][201][195][211] [193][212] [212][200][197] [205][207][214][201][197][211] [195][207][206][212][197][211][212]    "
212 FORI=1TO20:PRINT"[158] "CHR$(192+I)" [129] "M$(I):NEXT
214 POKE214,22:PRINT:PRINT" [193][129]-[212][129] [208]LAY  [198]1[129] [193]LL  [198]3[129] [208]RINT  [198]7[129] [209]UIT "
220 POKE198,0
222 GETA$:IFA$=""THEN222
228 IFA$=CHR$(133)THEN500
230 IFA$=CHR$(134)THEN300
240 IFA$=CHR$(136)THEN39000
250 IFA$<"A"ORA$>"T"THEN222
252 N=ASC(A$)-64
254 POKE214,1+N:PRINT:PRINTTAB(4)"[158] "M$(N)LEFT$(SP$,33-LEN(M$(N)))
260 SYS57812N$(N),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
270 GOSUB150
280 POKE214,22:PRINT:PRINT"[129]  [208][210][197][211][211] [193][206][217] [203][197][217][129] [212][207] [211][212][207][208] [212][200][197] [205][213][211][201][195]   "
290 GETA$:IFA$=""ANDPEEK(49152)=7THEN290
292 GOSUB160
294 POKE214,1+N:PRINT:PRINTTAB(4)"[129] "M$(N)LEFT$(SP$,33-LEN(M$(N)))
296 GOTO214
300 POKE214,22:PRINT:PRINT"  1[129] [207][206][197] [211][200][197][197][212]   2[129] [212][215][207] [211][200][197][197][212][211]   [197][129][211][195]  "
310 GETA$:IFA$=""THEN310
312 IFA$="E"ORA$="_"THEN214
320 IFA$="1"THEN400
322 IFA$<>"2"THEN310
330 OPEN4,4,7
340 FORI=0TO29:PRINT#4,TB$W$(I):NEXT
342 FORI=30TO59:PRINT#4,TB$W$(I)LEFT$(SP$,36-LEN(W$(I)))W$(I+30):NEXT
344 FORI=0TO7:PRINT#4:NEXT
346 FORI=90TO119:PRINT#4,TB$W$(I)LEFT$(SP$,36-LEN(W$(I)))W$(I+30):NEXT
350 CLOSE4
360 GOTO214
400 OPEN4,4,7
402 FORI=0TO29:PRINT#4,TB$W$(I):NEXT
410 PRINT#4,CHR$(27)CHR$(83)CHR$(49)CHR$(27)CHR$(15)
420 FORI=30TO59
422 PRINT#4,TB$W$(I)LEFT$(SP$,33-LEN(W$(I)))W$(I+30);
424 PRINT#4,LEFT$(SP$,33-LEN(W$(I+30)))W$(I+60);
426 PRINT#4,LEFT$(SP$,33-LEN(W$(I+60)))W$(I+90)
428 NEXT
440 PRINT#4,CHR$(27)CHR$(64)
450 CLOSE4
460 GOTO214
500 POKE214,22:PRINT:PRINT"  [211][208][193][195][197][129] [206][197][216][212] [211][207][206][199]  [209][129] [211][212][207][208] [212][200][197] [205][213][211][201][195] "
510 FORI=1TO20
518 POKE214,1+I:PRINT:PRINTTAB(4)"[158] "M$(I)LEFT$(SP$,33-LEN(M$(I)))
520 SYS57812N$(I),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
540 GOSUB150
550 GETA$:IFA$=""ANDPEEK(49152)=7THEN550
552 IFPEEK(49152)=0THENGOSUB160:GOTO580
560 IFA$=" "THENGOSUB160:GOTO580
570 Q=0:IFA$="Q"THENGOSUB160:Q=1:GOTO580
572 GOTO550
580 POKE214,1+I:PRINT:PRINTTAB(4)"[129] "M$(I)LEFT$(SP$,33-LEN(M$(I)))
582 IFQTHENI=20
584 NEXT
590 GOTO214
10000 DV=PEEK(186):N$="B.CLASSICS":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
39000 POKE214,22:PRINT
39010 PRINT"[129]     [209][213][201][212]?  [193][210][197] [217][207][213] [211][213][210][197]? ([217][129]/[206][129])     "
39020 POKE198,0
39030 GETA$:IFA$=""THEN39030
39040 IFA$<>"Y"THEN214
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO9:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[195][204][193][211][211][201][195][211] [193][212] [212][200][197] [205][207][214][201][197][211] [195][207][206][212][197][211][212]"
60032 Z$(1)="BY [196]AVE [205]ARQUIS AND [198]ENDER [212]UCKER"
60040 Z$(2)="([195]) 1995 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)O SUBSCRIBE CALL 1-800-594-3370."
60090 [151]214,12:[153]
60100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]