10SCREEN0:WIDTH40:COLOR15,1,1:KEYOFF:LOCATE2,3:PRINT"XWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWY":FORA=0TO14:PRINT"  V";SPC(34);"V":NEXT:MD=0:GOSUB230
20LOCATE10,5:PRINT"Main BGM from Konami":LOCATE12:PRINT"game ";CHR$(34);"Hinotori";CHR$(34):LOCATE9,8:PRINT"Copyright 1987 Konami":LOCATE12,10:PRINT"Rearranged by":LOCATE7:PRINTCHR$(34);"Cyberknight";CHR$(34);" Masao Kawata
30LOCATE6,13:PRINT"Press trigger to change mode":LOCATE10,16:PRINT"Mode:
40CALLMUSIC(1,0,2,2,2):CLEAR5000:DEFINTA-Z:DIMA$(29),B$(29),C$(29),D$(29),E$(29),F$(29),G$(29)
50FORA=0TO29:READA$(A),B$(A),C$(A),D$(A),E$(A),F$(A):IFD$(A)=""THEND$(A)="@=I0;"+A$(A):E$(A)="@=J0;"+B$(A):F$(A)="@=K0;"+C$(A)
60NEXT
70G$(0)="T112V2@A13":A$="B!H16H16S!H16H16B!H16B!H16S!H16H16
80G$(1)=A$+A$:FORI=2TO27:G$(I)=G$(1):NEXT
90G$(4)=A$+"S!16S!16S!16S!16S!16S!16S!16S!16
100G$(28)=A$+"B!H16H16S!H16H16S!32S!32S!32S!32S!32S!32S!32S!32
110G$(29)="B!H16H16S!H16H16S!16S!16S!16S!16
120'Instrument Choice
130I0=10:I1=0:J0=3:K0=12:K1=32
140ONSTRIGGOSUB180,180,180,180,180:FORI=0TO4:STRIG(I)ON:NEXT:ONKEYGOSUB250,260,270,280,290,300,310,320,330,340:FORI=1TO10:KEY(I)ON:NEXT:GOSUB190
150FORA=0TO29
160IFMDTHENPLAY#2,D$(A),E$(A),F$(A),G$(A)ELSEPLAYA$(A),B$(A),C$(A)
170NEXT:GOTO150
180MD=(MD=0):GOSUB190:RETURN150
190LOCATE4,14:IFMDTHENPRINT"<F1>...<F10>: change instruments"ELSEPRINTSPC(32)
200LOCATE16,16:IFMDTHENPRINT" Arrange (FM) "ELSEPRINT"Original (PSG)
210LOCATE2,17:IFMDTHENPRINT"TWWWWWWRWWWWWWRWWWWWRWWWWWWRWWWWWWWS"ELSEPRINT"V";SPC(34);"V
220LOCATE3,18:IFMDTHENPRINTUSING"1A: ##V1B: ##V2: ##V3A: ##V3B: ##";I0,I1,J0,K0,K1ELSEPRINTSPC(33)
230LOCATE2,19:IFMDTHENPRINT"ZWWWWWWQWWWWWWQWWWWWQWWWWWWQWWWWWWW["ELSEPRINT"ZWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW[
240RETURN
250I0=(I0+1)MOD64:GOTO220
260I1=(I1+1)MOD64:GOTO220
270J0=(J0+1)MOD64:GOTO220
280K0=(K0+1)MOD64:GOTO220
290K1=(K1+1)MOD64:GOTO220
300I0=(I0+63)MOD64:GOTO220
310I1=(I1+63)MOD64:GOTO220
320J0=(J0+63)MOD64:GOTO220
330K0=(K0+63)MOD64:GOTO220
340K1=(K1+63)MOD64:GOTO220
350DATAT112,T112,T112
360DATAT112@=I0;,T112@=J0;,T112
370DATAV14O5L16E2E8R16EDCO4BO5C,V12O5L16C2C8R16CO4BAGA,S0M4000O2L16AAO3AO2AAAO3AO2AAAO3AO2AAAO3AO2A
380DATAV15O5L16E2E8R16EDCO4BO5C,V13O5L16C2C8R16CO4BAGA,V11@=K0;O2L16AAO3AO2AAAO3AO2AAAO3AO2AAAO3AO2A
390DATAD8CO4A2O5EDCO4BO5C,B8AF2O5CO4BAGA,FFO3FO2FFFO3FO2FFFO3FO2FFFO3FO2F
400DATA,,
410DATAD8CO4AA4A8O5CO4B8.GE,B8GDD4D8AG8.DC,GGO3GO2GGGO3GO2GGGO3M10000G8O2M4000G#G#O3M10000G#8
420DATA@=I0;D8CO4AA4A8O5CO4B8.GE,@=J0;B8GDD4D8AG8.DC,@=K0;GGO3GO2GGGO3GO2GGGO3@=K1;G8O2@=K0;G#G#O3@=K1;G#8
430DATAE8BAA4EGABO5DEGA,C8GEE4O3BO4DEGABO5DE,M4000O2AAO3AO2AAAO3AO2AEGABO3DEGA
440DATA@=I0;E8BAA4EGABO5DEGA,@=J0;C8GEE4O3BO4DEGABO5DE,@=K0;O2AAO3AO2AAAO3AO2AEGABO3DEGA
450DATAV14O5L16E2E8R16AEDCC#,V12O5L16C2C8R16ECO4BGA,S0M4000O2L16AAO3AO2AAAO3AO2AAAO3AO2AAAO3AO2A
460DATA@=I0;O5L16E2E8R16AEDCC#,@=J0;O5L16C2C8R16ECO4BGA,@=K0;O2L16AAO3AO2AAAO3AO2AAAO3AO2AAAO3AO2A
470DATAD8CO4A2O5EDCO4BO5C,B8AF2O5CO4BAGA,FFO3FO2FFFO3FO2FFFO3FO2FFFO3FO2F
480DATA,,
490DATAD8CO4AA4A8O5CO4B8.GE,B8GDD4D8AG8.DC,GGO3GO2GGGO3GO2GGGO3M10000G8O2M4000G#G#O3M10000G#
500DATA@=I0;D8CO4AA4A8O5CO4B8.GE,@=J0;B8GDD4D8AG8.DC,@=K0;GGO3GO2GGGO3GO2GGGO3@=K1;G8O2@=K0;G#G#O3@=K1;G#
510DATAE8BAA4R2,C8GEE4R2,M4000O2AAO3AO2AAAO3AO2AAO3AO2GO3GO2EO3EO2GO3G
520DATA@=I0;E8BAA4R2,@=J0;C8GEE4R2,@=K0;O2AAO3AO2AAAO3AO2AAO3AO2GO3GO2EO3EO2GO3G
530DATARO4L16AL8BO5CO4ABO5CO4,RO4L16FL8GAFGA,O2FO3CFO2FFFFFFFO3CFO2FFF
540DATA,,
550DATAO4B16B8.R16B16O5CDO4BO5CD,O4G16G8.R16G16ABGAB,GGO3DGO2GGGGGGGO3DGO2GGG
560DATA,,
570DATAC16C8.R16C16DECDE,A16A8.R16A16BO5CO4ABO5C,AAO3EAO2AAAAAAAO3EAO2AAAO3
580DATA,,
590DATAG16G2.L16FEDC,E16E2.L16DCO4BA,CCCO4CO3CCCCCCCO4CO3CCO2BAG
600DATA,,
610DATAO4A4.GA4R16ABO5CO4A,F4.EF4R16FGAF,FO3CFO2FFFFFFFO3CFO2FFFG
620DATA,,
630DATAB4O5D4O4G#BO5DFDFG#B,G4B4FG#BO5DO4BO5DFG#,GGO3GO2GGGGGG#G#M10000O3G#8M4000O2G#G#O3M10000G#8M4000
640DATA@=I0;B4O5D4O4G#BO5DFDFG#B,@=J0;G4B4FG#BO5DO4BO5DFG#,@=K0;GGO3GO2GGGGGG#G#@=K1;O3G#8@=K0;O2G#G#O3@=K1;G#8@=K0;
650DATAS0AAAAV14R8GAA4CDEG,EEEEV11R8DEE4O4ABO5CE,O2AAO3AO2AAAO3AO2AAAO3AO2AAAO3AO2A
660DATA@=I1;AAAA@=I0;R8GAA4CDEG,@=J0;EEEER8DEE4O4ABO5CE,@=K0;O2AAO3AO2AAAO3AO2AAAO3AO2AAAO3AO2A
670DATAS0AAAAV14R8GAA4CDEF,FFFFV11R8EFF4O4ABO5CD,O2FFO3FO2FFFO3FO2FFFO3FO2FFFO3FO2F
680DATA@=I1;AAAA@=I0;R8GAA4CDEF,@=J0;FFFFR8EFF4O4ABO5CD,@=K0;O2FFO3FO2FFFO3FO2FFFO3FO2FFFO3FO2F
690DATAS0GGDO4BO5V14G2FEFD,DDO4BGO5V11D2DC#DO4B,O2GGO3GO2GGGO3M10000G8M4000O2GGO3M10000G8M4000O2G#G#O3M10000G#8M4000
700DATA@=I1;GGDO4BO5@=I0;G2FEFD,@=J0;DDO4BGO5D2DC#DO4B,@=K0;O2GGO3GO2GGGO3@=K1;G8@=K0;O2GGO3@=K1;G8@=K0;O2G#G#O3@=K1;G#8@=K0;
710DATAE2FCO4AO5FGDO4BO5G,O5C2CO4AFO5CDO4BGO5D,O2AAO3AO2AAAO3AO2AFFO3FO2FGGO3GOO2G
720DATA,,
730DATAS0M4000AAAAV14R8GAA4CDEG,EEEEV11R8DEE4O4ABO5CE,O2AAO3AO2AAAO3AO2AAAO3AO2AAAO3AO2A
740DATA@=I1;AAAA@=I0;R8GAA4CDEG,@=J0;EEEER8DEE4O4ABO5CE,@=K0;O2AAO3AO2AAAO3AO2AAAO3AO2AAAO3AO2A
750DATAS0AAAAV14R8GAA4CDEF,FFFFV11R8EFF4O4ABO5CD,O2FFO3FO2FFFO3FO2FFFO3FO2FFFO3FO2F
760DATA@=I1;AAAA@=I0;R8GAA4CDEF,@=J0;FFFFR8EFF4O4ABO5CD,@=K0;O2FFO3FO2FFFO3FO2FFFO3FO2FFFO3FO2F
770DATAS0GGDO4BO5GGDO4BO5G#G#DO4BO5G#G#DO4B,DDO4BGO5DDO4BGO5DDO4BG#O5DDO4BG#,GGO3GO2GGGO3GO2GG#G#O3G#O2G#G#G#O3G#O2G#
780DATA@=I1;GGDO4BO5GGDO4BO5G#G#DO4BO5G#G#DO4B,@=J0;DDO4BGO5DDO4BGO5DDO4BG#O5DDO4BG#,@=K0;GGO3GO2GGGO3GO2GG#G#O3G#O2G#G#G#O3G#O2G#
790DATAV14L16O5AO6CO5AGA2CDEG,V12L16R32O5AO6CO5AGA2CDE,S0M4000L16O2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2GO3G
800DATA@=I0;L16O5AO6CO5AGA2CDEG,@=J0;L16R32O5AO6CO5AGA2CDE,@=K0;L16O2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2GO3G
810DATAO5AO6CO5AGA2CDEF,R32O5AO6CO5AGA2CDE,L16O2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2F#O3F#
820DATA,,
830DATAS0GGV14DO4BS0O5GGR16V14G4G16FEFD,V13R16O5DDO5BO5DDR16D4D16R32FEF,O2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2G#O3G#O2G#O3G#
840DATA@=I1;GG@=I0;DO4B@=I1;O5GGR16@=I0;G4G16FEFD,@=J0;R16O5DDO5BO5DDR16D4D16R32FEF,@=K0;O2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2G#O3G#O2G#O3G#
850DATAE2FCO4AO5FGDO4BO5G,R16E4.E16V11CO4AFO5CDO4BGO5D,O2AO3AO2AO3AO2AO3AO2GO3GO2FO3FO2FO3FO2GO3GO2GO3G
860DATA@=I0;E2FCO4AO5FGDO4BO5G,@=J0;R16E4.E16CO4AFO5CDO4BGO5D,@=K0;O2AO3AO2AO3AO2AO3AO2GO3GO2FO3FO2FO3FO2GO3GO2GO3G
870DATAV14AO6CV13O5AGV11AO6CV10O5AGV14A4V14CDEG,R16V11AO6CV10O5AGV8AO6CO5V7AGV11A4V11CDE,O2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2GO3G
880DATA@=I0;V15AO6CV13O5AGV11AO6CV09O5AGV15A4CDEG,@=J0;R16V13AO6CV11O5AGV9AO6CO5V7AGV13A4CDE,@=K0;O2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2AO3AO2GO3G
890DATAV14AO6CV13O5AGV11AO6CV10O5AGV14A4V14CDEF,R16V11AO6CV10O5AGV8AO6CO5V7AGV11A4V11CDE,O2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2F#O3F#
900DATA@=I0;V15AO6CV13O5AGV11AO6CV09O5AGV15A4CDEF,@=J0;R16V13AO6CV11O5AGV9AO6CO5V7AGV13A4CDE,@=K0;O2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2F#O3F#
910DATAS0GGDO4BO5GGDO4BO5G#G#DO4BO5G#G#DO4B,O5DDO4BGO5DDO4BGO5DDO4BG#O5DDO4BG#,O2GO3GO2GO3GO2GO3GO2GO3GO2G#O3G#O2G#O3G#O2G#O3G#O2G#O3G#
920DATA@=I1;GGDO4BO5GGDO4BO5G#G#DO4BO5G#G#DO4B,@=J0;O5DDO4BGO5DDO4BGO5DDO4BG#O5DDO4BG#,@=K0;O2GO3GO2GO3GO2GO3GO2GO3GO2G#O3G#O2G#O3G#O2G#O3G#O2G#O3G#
930DATAR16S0O2EDCO1BO2CO1GG#,R16S0O3EDCO2BO3CO2GG#V11,
940DATA@=I0;R16O2EDCO1BO2CO1GG#,@=J0;R16O3EDCO2BO3CO2GG#,
