5 DIMNO(70,2):PRINTCHR$(14)
10 POKE53280,6:POKE53281,0
20 PRINT"[147]"
30 PRINT"";
40 FORL=1TO5:PRINT"    [221]  [146]  [146] [221]  [146]  [146]  [146] [221]  [146]  [146] [221]  [146]  [146]  [146] [221] [221]"
50 NEXT
60 FORL=1TO3:PRINT"    [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160]":NEXT
63 PRINT"    [221] [221] [221] [221][208][221][210][221][207][221] [221][211][221][217][221][206][221][212][221][200][221] [221] [221] [221]"
64 PRINT"    [221] [221]([221][195][221])[221] [221][160][221][193][221].[221][208][221]A[221]R[221]K[221]E[221]R[221] [221]"
65 PRINT"    [173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
70 FORDE=1TO4000:NEXT
150 PRINT"[147]  [197]NVOLVEN":PRINT"[156]  [176][192][178][192][178][192][178][192][174]"
160 PRINT"":FORL=1TO16:PRINT"[156]  [171] [219] [219] [219] [179]":NEXT
170 PRINT"15[157][157]10[157]5[157]0"
180 PRINT"  [221][193][221][196][221][211][221][210][221]"
190 PRINT"  [171][192][219][192][219][192][219][192][179][157][157][157][157][157][157][157][157][157][221]+[221]+[221]+[221]+[221][157][157][157][157][157][157][157][157][157][171][192][219][192][219][192][219][192][179]";
195 PRINT"[157][157][157][157][157][157][157][157][157][221]-[221]-[221]-[221]-[221][157][157][157][157][157][157][157][157][157][173][192][177][192][177][192][177][192][189]"
200 PRINT""SPC(12)"[198]ORMA DE ONDA      [208][215][210]    "
210 PRINTSPC(35)"[176][192][174]"
215 PRINTSPC(12)"[176][192][192][178][192][192][178][192][192][178][192][192][174]   [176][192][192][192][192][192][178][179]+[221]"
220 PRINTSPC(12)"[221][212]R[221][158][211]A[221][159][208]U[221][156][206]O[221]   [221]    %[221][171][192][179]"
225 PRINTSPC(12)"[173][192][192][177][192][192][177][178][178][177][192][192][189]   [173][192][192][178][178][192][177][179]-[221]"
230 PRINTSPC(12)"       [221][173][192][192][192][192][192][192][192][192][192][192][189][221]  [173][192][189]"
235 PRINTSPC(12)"       [173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
240 PRINT""SPC(12)" [195]ONTROL    [207]SC.3 [198]REC"
250 PRINTSPC(12)" [158][176][192][192][178][192][192][174]   [176][192][192][192][192][192][192][192][192][192][178][178][192][174]"
255 PRINTSPC(12)" [158][221][210][205][158][221][211][217][158][221]   [221]       [200]Z[221][221]+[221]"
260 PRINTSPC(12)" [158][173][192][178][177][178][192][189]   [173][192][192][192][178][192][178][192][192][192][177][219][192][179]"
265 PRINTSPC(12)"[158]   [221] [173][192][192][192][192][192][192][192][192][192][189] [221]    [221]-[221]"
270 PRINTSPC(12)"[158]   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]    [173][192][189]"
280 PRINT:PRINT:PRINT
290 PRINTSPC(12)"[195]ONTROL [207]SCILADOR "
295 PRINTSPC(12)"[156]   [176][192][192][192][178][192][192][192][174]"
300 PRINTSPC(12)"[156]   [221][213]NO[156][221][158][196]OS[156][221]"
305 PRINTSPC(12)"[156]   [173][192][192][192][177][192][192][192][189]"
400 DATA3,0,0,7,128,0,3,192,224,1,225,224,0,241,192,0,121,192,0,127,192,3,255
405 DATA192,7,255,192,7,207,192,1,243,192,15,253,224,15,254,224,15,159,216
410 DATA1,239,184,7,247,112,7,254,224,7,253,192,0,11,128,0,7,0,0,0,0
415 POKE2040,13
420 FORL=0TO62:READA:POKE832+L,A:NEXT
430 V1=53248:V2=54272
440 POKEV1+21,1:POKEV1+39,1
500 DATA12,4,48,23,4,180,20,5,71,31,5,152,28,6,71,39,7,12,36,7,233,47,8,97
505 DATA44,9,104,55,10,143,62,11,48,9,12,143,14,14,24,17,15,210,22,16,195,25
510 DATA18,209,30,21,31,33,22,96,38,25,30,41,28,49,46,31,165,49,35,134,13,4,112
520 DATA11,14,239,19,17,195,24,19,239,32,23,181,35,26,156,40,29,223
525 DATA-1,-1,-1
530 READA,B,C
535 IFA=-1ANDB=-1ANDC=-1THEN600
540 NO(A,1)=B:NO(A,2)=C:GOTO530
600 S=54272:POKES+24,15
610 X=152:Y=214
620 AT=10:DE=8:SU=10:RE=9
630 WA$="P":SY=0:RM=0:PW=50:OF=30000:HF=116:LF=255:S1=1:S2=0
690 D$=""
700 PA=17-AT:PD=17-DE:PS=17-SU:PR=17-RE
710 PRINT"";LEFT$(D$,PA)"[192]":PRINT"";LEFT$(D$,PD)"[192]"
720 PRINT"";LEFT$(D$,PS)"[192]":PRINT"";LEFT$(D$,PR)"[192]"
725 PRINT""SPC(12)"[221][212]R[221][158][211]A[221][159][208]U[221][156][206]O[221]"
730 IFWA$="T"THENPRINT""SPC(13)"[212]R[146]":WA=17+4*(ABS(RM=1))+2*(ABS(SY=1))
735 IFWA$="S"THENPRINT""SPC(16)"[158][211]A[146]":WA=33+4*(ABS(RM=1))+2*(ABS(SY=1))
740 IFWA$="P"THENPRINT""SPC(19)"[159][208]U[146]":WA=65+4*(ABS(RM=1))+2*(ABS(SY=1))
745 IFWA$="N"THENPRINT""SPC(22)"[156][206]O[146]":WA=129+4*(ABS(RM=1))+2*(ABS(SY=1))
760 IFRM=1THENPRINT"";LEFT$(D$,11)SPC(14)"[210][205][146]"
765 IFRM=0THENPRINT"";LEFT$(D$,11)SPC(14)"[210][205]"
770 IFSY=1THENPRINT"";LEFT$(D$,11)SPC(17)"[211][217][146]"
775 IFSY=0THENPRINT"";LEFT$(D$,11)SPC(17)"[211][217]"
785 IFS1=1THENPRINT""LEFT$(D$,20)SPC(16)"[207]NE[146]"
790 IFS1=0THENPRINT""LEFT$(D$,20)SPC(16)"[207]NE"
795 IFS2=1THENPRINT""LEFT$(D$,20)SPC(20)"[158][212]WO[146]"
800 IFS2=0THENPRINT""LEFT$(D$,20)SPC(20)"[158][212]WO"
820 GOSUB2000:GOSUB3000:GOSUB3100
825 POKEV2+14,F1:POKEV2+15,F2
830 POKEV1+16,HX:POKEV1,LX:POKEV1+1,HY
835 POKEV1+14,LF:POKEV1+15,HF
900 AD=16*AT+DE:SR=16*SU+RE
905 B1=PW*40.95
910 IFB1<255THENPL=B1:GOTO920
915 PL=255:PH=(B1-PL)/256
930 POKEV2+2,PL:POKEV2+3,PH:POKEV2+5,AD:POKEV2+6,SR
940 IFS2=0THEN1000
950 POKEV2+9,PL:POKEV2+10,PH:POKEV2+12,AD:POKEV2+13,SR
1000 KE=PEEK(197):J=PEEK(56320)
1003 POKEV2+14,LF:POKEV2+15,HF
1005 IFJ<>127THEN4000
1010 IFNO(KE,1)=0THEN1000
1020 POKEV2+1,NO(KE,1):POKEV2,NO(KE,2)
1025 IFS2=0THEN1040
1030 POKEV2+8,NO(KE,1):POKEV2+7,NO(KE,2)
1040 IFS1=1THENPOKEV2+4,WA
1045 IFS2=1THENPOKEV2+11,WA
1050 WAIT197,64
1060 POKEV2+4,WA-1:POKEV2+11,WA-1
1070 GOTO1000
2000 L=PEEK(56320)
2010 IFL=119ANDX<311THENX=X+8
2020 IFL=126ANDY>8THENY=Y-8
2030 IFL=123ANDX>8THENX=X-8
2040 IFL=125ANDY<247THENY=Y+8
2050 HX=INT(X/256):LX=X-(256*HX):HY=Y
2060 RETURN
3000 IFPW<10THENA1=31
3005 IFPW<100THENA1=30
3010 IFPW=100THENA1=29
3020 L$=STR$(PW)
3030 PRINT""SPC(29)"   "
3035 PRINT""SPC(A1)L$
3040 RETURN
3100 IFOF<10THENA2=28
3105 IFOF>9THENA2=27
3110 IFOF>99THENA2=26
3115 IFOF>999THENA2=25
3120 IFOF>9999THENA2=24
3130 PRINT""SPC(26)"     "
3135 PRINT"";SPC(A2)STR$(OF)
3140 RETURN
4000 POKE198,0:L=PEEK(56320)
4005 IFL=111THEN5000
4010 IFL=119ANDX<311THENX=X+8
4020 IFL=126ANDY>8THENY=Y-8
4030 IFL=123ANDX>8THENX=X-8
4040 IFL=125ANDY<247THENY=Y+8
4050 HX=INT(X/256):LX=X-(256*HX):HY=Y
4060 POKEV1+16,HX:POKEV1,LX:POKEV1+1,HY
4070 GOTO950
5000 REM * HAND ROUTINES *
5005 IFHY>208ANDLX<100ANDHX=0THEN5200
5010 IFHY>208THEN5300
5020 IFHY>136ANDHY<146ANDHX=0THEN5400
5025 IFHY>72ANDHY<82ANDLX<210THEN5500
5030 IFHY>64ANDHY<90ANDLX>50THEN5600
5035 IFHY>136ANDHY<162ANDLX>43ANDLX<51ANDHX=1THEN5700
5200 REM ** ADSR **
5205 IFHY>208ANDHY<218THEN5215
5210 IFHY>224ANDHY<234THEN5255
5212 GOTO760
5215 IFAT=15THEN5225
5220 IFLX>42ANDLX<50THENPRINT""SPC(3)LEFT$(D$,17-AT)" [145][157][192]":AT=AT+1
5225 IFDE=15THEN5235
5230 IFLX>56ANDLX<66THENPRINT""SPC(5)LEFT$(D$,17-DE)" [145][157][192]":DE=DE+1
5235 IFSU=15THEN5245
5240 IFLX>72ANDLX<82THENPRINT""SPC(7)LEFT$(D$,17-SU)" [145][157][192]":SU=SU+1
5245 IFRE=15THEN5255
5250 IFLX>88ANDLX<98THENPRINT""SPC(9)LEFT$(D$,17-RE)" [145][157][192]":RE=RE+1
5253 GOTO700
5255 IFAT=0THEN5265
5260 IFLX>42ANDLX<50THENPRINT""SPC(3)LEFT$(D$,17-AT)" [157][192]":AT=AT-1
5265 IFDE=0THEN5275
5270 IFLX>56ANDLX<66THENPRINT""SPC(5)LEFT$(D$,17-DE)" [157][192]":DE=DE-1
5275 IFSU=0THEN5285
5280 IFLX>78ANDLX<86THENPRINT""SPC(7)LEFT$(D$,17-SU)" [157][192]":SU=SU-1
5285 IFRE=0THEN5295
5290 IFLX>88ANDLX<98THENPRINT""SPC(9)LEFT$(D$,17-RE)" [157][192]":RE=RE-1
5295 GOTO760
5300 REM ** VOICES **
5305 IFLX>146ANDLX<170THEN5360
5310 IFLX>202THEN700
5313 IFS2=0THENS2=1:GOTO700
5320 IFS2=1THENS2=0:GOTO700
5360 IFS1=1THENS1=0:GOTO700
5370 IFS1=0THENS1=1:GOTO700
5400 REM ** RM AND SY **
5405 IFLX>152ANDLX<170THEN5430
5410 IFLX>130ANDLX<146THEN5420
5415 GOTO700
5420 IFRM=1THENRM=0:GOTO5440
5425 IFRM=0THENRM=1:SY=0:GOTO5440
5430 IFSY=1THENSY=0:GOTO5440
5435 IFSY=0THENSY=1:RM=0
5440 IFWA$="T"ANDRM=1THENWA=21
5443 IFWA$="T"ANDSY=1THENWA=19
5445 IFWA$="S"ANDRM=1THENWA=37
5448 IFWA$="S"ANDSY=1THENWA=35
5450 IFWA$="P"ANDRM=1THENWA=69
5453 IFWA$="P"ANDSY=1THENWA=67
5455 IFWA$="N"ANDRM=1THENWA=133
5458 IFWA$="N"ANDSY=1THENWA=131
5460 IFWA$="T"ANDRM=0ANDSY=0THENWA=17
5465 IFWA$="S"ANDRM=0ANDSY=0THENWA=33
5470 IFWA$="P"ANDRM=0ANDSY=0THENWA=65
5475 IFWA$="N"ANDRM=0ANDSY=0THENWA=129
5480 GOTO760
5500 REM ** WAVEFORMS **
5510 IFHY>72ANDHY<82THEN5520
5515 GOTO700
5520 IFLX>122ANDLX<136THENWA=17:RM=0:SY=0:WA$="T"
5525 IFLX>146ANDLX<162THENWA=33:RM=0:SY=0:WA$="S"
5535 IFLX>170ANDLX<186THENWA=65:RM=0:SY=0:WA$="P"
5545 IFLX>194ANDLX<210THENWA=129:RM=0:SY=0:WA$="N"
5550 GOTO700
5600 REM ** PWR **
5610 IFLX>50ANDLX<60THEN5620
5615 GOTO700
5620 IFHY>64ANDHY<74ANDPW<100THENPW=PW+1
5625 IFHY>80ANDHY<90ANDPW>0THENPW=PW-1
5630 GOSUB3000
5650 IFPEEK(56320)=111THEN5620
5660 GOTO700
5700 REM ** OSC.3 FREQ **
5710 IFHY>152ANDHY<162THEN5800
5715 IFHY>136ANDHY<146THEN5725
5720 GOTO700
5725 K1=PEEK(197)
5730 IFK1=4ANDOF<65534THENOF=OF+1
5735 IFK1=5ANDOF<65524THENOF=OF+10
5740 IFK1=6ANDOF<65434THENOF=OF+100
5745 IFK1=3ANDOF<64534THENOF=OF+1000
5750 IFK1=0THEN5800
5755 GOSUB3100
5760 GOTO5725
5800 K1=PEEK(197)
5805 IFK1=4ANDOF>1THENOF=OF-1
5810 IFK1=5ANDOF>10THENOF=OF-10
5815 IFK1=6ANDOF>100THENOF=OF-100
5820 IFK1=3ANDOF>1000THENOF=OF-1000
5830 IFK1=0THEN5900
5835 GOSUB3100
5840 GOTO5800
5900 IFOF>255THEN5950
5905 LF=OF:HF=0:GOTO700
5950 LF=255:IM=OF-255:HF=IM/256
5955 GOTO760