Changes

ptmsg???C��п-�.Ю9 MAIN "",#C6 ;===================================== IFN about mABOUT DB 1,9,30,21,32 tABOUT DB "23may2007 dmitry.alonecoder@gmail.com (4912)751390(Dima)" DB "CODE:Nick (4732)141962 | DESIGN:Mm<M (8462)941595(Serge)" DB " Golden Disk|Pro Tracker v3.72 " DB "0???=No Effect <EFFECTS|KEYS> W=Edmuz,Ext=Edpat,Ent=Play" DB "1(2)wii=Gliss Down/Up | E=Env,F," IFN bemol DB "ssY=b/#," ELSE DB " " ENDIF DB "ssW=Ins," IF0 kL-15 DB "cs0=Del ELSE DB "ssQ=Del ENDIF DB "3wii=Tone Portamento | csU/I/Y/T;csE,csA,9;ssI,ssU,csL" DB "4(5)?oo=Smp/Orn offset | " IF0 kL-15 DB "ssT>m,ssR<m;Ho,End,cs12;K,ssL,)" ELSE DB "ssE>m,ssR<m;Gr,ss9,cs12;K,[ss]L" ENDIF DB "6?YN=Vibrato |MENU KEYS> Ext,Ent=EXIT, KL=Loop" DB "9(A)wii=Env.Gliss Dn/Up| 0WERT+,A9FYUI=atnTNE, ssUI,cs34" DB "B?tt=Tempo |DISK MENU> 1-4=ABCD" DB #A0 ENDIF IFN set mSETUP DB 8,6,#19,#13,#68 tSETUP DB 6,13,0,"SETUP" DB 6,1,1,"Frequency table:" DB 6,5,2,"Print points :" DB 6,11,3,"Colours:" DB 6,9,4,"Ink Pap." DB 6,9,5,"Ink Pap." DB 6,9,6,"Border :" IFN savset DB 6,11,10,"Save SETUP" ENDIF DB 6,7,7,"Sound :" DB 6,7,8,"Play on :" DB 6,5,9,"Kempston joystick",#BA tPTST DB "'ProTracker","'"+#80 DB "SoundTracke","r"+#80 DB "1.750000 Hz"," "+#80 DB "'Real Sound","'"+#80 tALL DB "ALL",#A0 tNOTE DB "NOT",#C5 IFN savset TPTSETU DB "PT 3.4 SETUP ENDIF ENDIF mDISK DB 5,8,#19,#17,#28 tDISK DB 6,#17,2,"Files:" DB 6,2,2,"Reread Catalogue" DB 6,#23,4,"Up" DB 6,8,4,"Save" DB 6,1,6,"File Name:" DB 6,#22,11,"Down" DB 6,4,8,"Save Pattern" DB 6,4,10,"Save Sample" DB 6,4,12,"Save Ornament",#A0 tSZ DB 6,#B,0,"Song Len=","#"+#80 mCLEAR DB 6,2,#10,#B,#28 tCLEAR DB " CLEARS " DS 18," " DB " Song ........... " DB " Positions ...... " DB " Pattern ........ " DB " Sample ......... " DB " Ornament ....... ",#A0 mSURE DB #D,#A,#15,#F,#16 tSURE DB "ARE YOU SURE ?" DB 6,0,2,"YES NO AL",#CC IFN cmpilmnu mCOMPIL DB 3,6,#E,#16,#28 tCOMPIL DB "ProTracker Compiler" DB 6,1,2,"Save compiled song " DB "Include player:" DB 6,0,4,"Start address:#" DB 6,5,6,"Parameters:" DB 6,0,8,"Init address :#" DB 6,0,9,"Play address :#" DB 6,0,10,"Stop address :#" DB 6,0,11,"Data address :#" DB 6,0,#D,"Length" DB 6,#E,#D,":",#A3 ENDIF mDISKER DB #A,6,#15,#C,#14 tDISKER DB 6,5,0,"DISK ERROR" DB 6,0,2,"Retry,Abort,Ignore ",#BF mEDORN ;DB 0,1,#11,#17,7 DB 0,1,#11,#14,7 tEDORN DB "EDIT ORNAMENT 0" EDORNN DB "1",#A0 tORNo_s DB "OCTAVE SAMPLE ",#A0 ;tORNKEY ;DB " ssUI,ssK,0WERT,Ins,cs0 ,CURSOR " ;DB " PRESS NOTE KEYS FOR PLA",#D9 mEDSMP DB SMPX,SMPY,#14+SMPX,2+SMPY+SMPH,7 EDSMPN DB "1",#A0 tSMPKEY DB "OCTAVE ORNAMENT",#A0 mPOS DB 1,1,#A,#17,#28 tPOS DB " POSITIONS LIST" DB 6,0,2," POSIT. PAT",#D4 ;===================================== T____ DB "---",#AD Tmemo DB "mem",#EF FILEXTS DB "m" extS DB "SM" extF DB "Fpso" TSORRY DB " *** I'M SORRY *** ",#A0 TDISKER DB " DISK DRIVE ERROR !!! ",#A0 TNOFILE DB " NO FILE !! ",#A0 TSEARCH DB "PLEASE WAIT, SEARCHING !",#A1 TLSMP DB "LOADING SAMPLE",#A0 TSSMP DB "SAVING SAMPLE",#A0 TLORN DB "LOADING ORNAMENT",#A0 TSORN DB "SAVING ORNAMENT",#A0 TLPAT DB "LOADING PATTERN",#A0 TSPAT DB "SAVING PATTERN",#A0 DIVS DB "1:",#B1 DB "3:",#B4 DB "1:",#B2 DB "1:",#B4 DB "3:",#B1 DB "5:",#B2 DB "2:",#B1 DB "3:",#B2 IFN cmpilmnu tC0 DB "C0 ENDIF tON DB "ON",#A0 tOFF DB "OF",#C6 TYES DB "YE",#D3 TNO DB "NO",#A0 mOK DB #C,#A,#16,#D,#18 TCOMPLE DB "OPERATION COMPLET",#C5 IFN opcompl TERROR DB "ERROR IN OPERATIO",#CE ENDIF tSS DB "('&%$#@!_" TNOTEKY DB "F DB ".-,^*",203,"/?",205,"`",195,": DB "MJNHBGVCDXSZ",kL TNOTEKE TDEFORN DB 7,12,16 DB 4,7,12 DB 0,4,7 DB 7,12,15 DB 3,7,12 DB 0,3,7 IFN tab TJP DB 4,4,4,5,6,6 DB 11,16,17,18,19,15,21,22,23 DB 20,25,26,27,28,24,30,31,32 DB 29,25,26,27,28,2,12,13,14 TJPLEFT DB 29,29,29,29,2,3 DB 4,0,1,2,3,6,30,31,32 DB 11,7,8,9,10,15,12,13,14 DB 20,16,17,18,19,24,21,22,23 ENDIF ;===================================== ;DS -$&3 DS .(-$) ayblock ENV DW 0 ;почему здесь? Achan DB -1 Aorn DW ORNS DB 1,0,0 DW SMPS DB 1,0,0,0 Avol2 DB #F0 Avol DB #F Acom DS 5 Adfrq DS 10 Bchan DB -1 Born DW ORNS DB 1,0,0 DW SMPS DB 1,0,0,0 Bvol2 DEFB #F0 Bvol DEFB #F Bcom DS 5 Bdfrq DS 10 Cchan DB -1 Corn DW ORNS DB 1,0,0 DW SMPS DB 1,0,0,0 Cvol2 DEFB #F0 Cvol DEFB #F Ccom DS 5 Cdfrq DS 10 frqA DW 0 frqB DW 0 frqC DW 0 nois NOP mix NOP volA NOP volB NOP volC NOP frqE DW 0 env DW 0 pianRG DS 12 pianE NOP piaSMP DW 0 piaORN DW 0 NOP ;NU,но нужно! piSLIN NOP piSEND NOP piOLIN NOP piOEND NOP piSLOOP NOP piOLOOP NOP piCURv DB 0;#18VOL DW 0;#19dFRQ DB 0;#1BNOISE DB 0;#1CENV usedisp DW 0 BASENV DW 0 Edfrq DB 0 Efrq DW 0 EstCNT DB 0 Estep DW 0 EiniCNT DB 0 NOTENV DB 0 ;или не в ayblock? DNOIS DB 0 DS -$&3 szayblock=$-ayblock szayblock4=szayblock/4 DS ayblock+256-$ ayblock2 DS szayblock ;===================================== IFN set DB 10+savset SETUCOO DW #4048,#4888 DW #4858,#5090 DW #5868,#6078 DW #5878,#6088 DW #6068,#6878 DW #6078,#6888 DW #6868,#7088 DW #7060,#7888 DW #7860,#8088 IFN savset DW #8870,#9098 ENDIF DW #8058,#88A0 ENDIF DB 5 CLEACOO DW #2838,#3078 DW #3038,#3878 DW #3838,#4078 DW #4038,#4878 DW #4838,#5078 DSKopts DB 8 DISKCOO DW #5830,#6078 DW #6830,#7078 DW #7830,#8078 DW #68B0,#70C8 DW #A0B0,#A8C8 DW #8830,#9078 DW #9830,#A078 DW #A830,#B078 DW #6880,#70A8 DW #7080,#78A8 DW #7880,#80A8 DW #8080,#88A8 DW #8880,#90A8 DW #9080,#98A8 DW #9880,#A0A8 DW #A080,#A8A8 DB 3 SURECOO DW #6868,#7078 DW #6880,#7090 DW #6898,#70A8 MENUCOO DW #0038,#0840 DW #0040,#0848 DW #0838,#1040 DW #0840,#1048 DW #1038,#1840 DW #1040,#1848 DW #1838,#2040 DW #1840,#2048 DW #2038,#2840 DW #2040,#2848 DW #2838,#3040 DW #2840,#3048 ;DW #4038,#4840 ;DW #4040,#4848 DW #3038,#3840 DW #3040,#3848 DW #3838,#4040 DW #3840,#4048 DW #5000,#5828 ;DW #4838,#5040 ;DW #4840,#5048 DW #5800,#6028 DW #5838,#6048 DW #5038,#5848 DW #0048,#0888 DW #0850,#1080 DW #3848,#4088 DW #3000,#3830 DW #6000,#6818 DW #6800,#6F18 DW #3098,#38B8;SMP DW #30C0,#38C8 DW #30C8,#38D0 DW #30E8,#38F0 DW #30F0,#38F8 DW #30D0,#38E0 DW #3898,#40B8;ORN DW #38C0,#40C8 DW #38C8,#40D0 DW #38E8,#40F0 DW #38F0,#40F8 DW #38D0,#40E0 DW #3050,#3880 DW #5858,#5F70;SWPSONG DW #6898,#6FB8;TRNSVOL DW #68B8,#6FD0;TRNSTONE DW #68E8,#6FF0 DW #68F0,#6FF8 DW #50D0,#58E0 DW #48C0,#50C8 DW #48C8,#50D0 DW #48E8,#50F0 DW #48F0,#50F8 DW #50C0,#58C8 DW #50C8,#58D0 DW #50E8,#58F0 DW #50F0,#58F8 DW #58C0,#60C8 DW #58C8,#60D0 DW #60C0,#68C8 DW #60C8,#68D0 DW #60D8,#68F8 DW #2048,#2888 DW #2848,#3088 DW #1050,#1880 DW #1850,#2080 DW #58E8,#60F0;+B2 DW #58F0,#60F8 DW #4050,#4880 DW #3800,#4030 DW #0800,#1028 DW #5098,#58B8 DW #5898,#60B8 DW #6098,#68B8 DW #48D0,#4FE0 DW #68D8,#6FE8 IFN cmpilmnu DB 3 COMPCOO DW #4820,#5068 DW #5018,#5858 DW #5818,#6058 ENDIF ;===================================== IFN set SETUUSE DW suFRQ DW suPOI DW suINK1 DW suPAP1 DW suINK2 DW suPAP2 DW suBORD DW suSND DW suPLAY IFN savset DW suSAVE ENDIF DW suKJ ENDIF CLEAUSE DEFW clSONG DEFW clPOS DEFW clPAT DEFW clSMP DEFW clORN DISKUSE DW READCAT DW SAVE DW EDFILE DW CATUP DW CATDN DW SAVPAT DW SAVSMP DW SAVORN DW LOAD DW LOAD DW LOAD DW LOAD DW LOAD DW LOAD DW LOAD DW LOAD SUREUSE DW YES,YES,YES MENUUSE DEFW INCTMP DEFW DECTMP DEFW INCPOS DEFW DECPOS DEFW INCPAT DEFW DECPAT DEFW INCLENG DEFW DECLENG DEFW INCLOOP DEFW DECLOOP DEFW INCVOL DEFW DECVOL ;DEFW INCOCT ;DEFW DECOCT DEFW INCEPAT DEFW DECEPAT DEFW INCPATL DEFW DECPATL DEFW AUTOON ;DEFW INCROLL ;DEFW DECROLL DEFW ENVON DIVNO=$-MENUUSE/2 DEFW NXTDIV DEFW AUTOS DEFW DISKS DEFW CLEARS DEFW EDSONG DEFW EDPAT DEFW TITLES DEFW BYS DEFW EDSMP DEFW INCSMP DEFW DECSMP DEFW INCSMP2 DEFW DECSMP2 DEFW COPYSMP DEFW EDORN DEFW INCORN DEFW DECORN DEFW INCORN2 DEFW DECORN2 DEFW COPYORN IFN about DEFW ABOUT

DB "ssW=Ins," DEFW ONOFFTS DEFW TRANVOL ;vol DEFW TRANSP ;tone DEFW INCTRA DEFW DECTRA DEFW COPY DEFW INCPAT1 DEFW DECPAT1 DEFW INCPAT2 DEFW DECPAT2 DEFW INCCHN DEFW DECCHN DEFW INCCHN2 DEFW DECCHN2 DEFW INCBEG1 DEFW DECBEG1 DEFW INCEND DEFW DECEND DEFW EXCHANG DEFW PLSONG DEFW PLPAT DEFW COMPILS DEFW DECOMS DEFW INCBEG2 DEFW DECBEG2 IF0 kL-15IFN set DB "cs0=Del DEFW SETUP

DB "3wii=Tone Portamento | csU/I/Y/T;csE,csA,9;ssI,ssU,csL" DEFW PATLENS DEFW POSEDIT DW ALLCHAN DW BEGcur DW ENDcur DW HOMEcop DW HOMEtraDB "4(5)?oo mains=Smp$-MENUUSE/Orn offset | "2 IF0 kL-15IFN cmpilmnu COMPUSE DB "ssT>m,ssR<m;Ho,End,cs12;K,ssL,)" DW COMSAVE ELSE DW PLYRyn DB "ssE>m,ssR<m;Gr,ss9,cs12;K,[ss]L" DW EcomADR

DB "6?YN=Vibrato |MENU KEYS> Ext,Ent=EXIT, KL=Loop"DB "9(A)wii=Env.Gliss Dn/Up| 0WERT+,A9FYUI=atnTNE, ssUI,cs34"DB "B?tt=Tempo |DISK MENU> 1-4=ABCD" DB #A0 ENDIF   IFN setmSETUP DB 8,6,#19,#13,#68tSETUP DB 6,13,0,"SETUP" DB 6,1,1,"Frequency table:" DB 6,5,2,"Print points :" DB 6,11,3,"Colours:" DB 6,9,4,"Ink Pap." DB 6,9,5,"Ink Pap." DB 6,9,6,"Border :" IFN savset DB 6,11,10,"Save SETUP" ENDIF DB 6,7,7,"Sound :" DB 6,7,8,"Play on :" DB 6,5,9,"Kempston joystick",#BAtPTST DB "'ProTracker","'"+#80 DB "SoundTracke","r"+#80 DB "1.750000 Hz"," "+#80 DB "'Real Sound","'"+#80tALL DB "ALL",#A0tNOTE DB "NOT",#C5 IFN savsetTPTSETU DB "PT 3.4 SETUP ENDIF ENDIF mDISK DB 5,8,#19,#17,#28tDISK DB 6,#17,2,"Files:" DB 6,2,2,"Reread Catalogue" DB 6,#23,4,"Up" DB 6,8,4,"Save" DB 6,1,6,"File Name:" DB 6,#22,11,"Down" DB 6,4,8,"Save Pattern" DB 6,4,10,"Save Sample" DB 6,4,12,"Save Ornament",#A0tSZ DB 6,#B,0,"Song Len=","#"+#80mCLEAR DB 6,2,#10,#B,#28tCLEAR DB " CLEARS " DS 18," " DB " Song ........... " DB " Positions ...... " DB " Pattern ........ " DB " Sample ......... " DB " Ornament ....... ",#A0mSURE DB #D,#A,#15,#F,#16tSURE DB "ARE YOU SURE ?" DB 6,0,2,"YES NO AL",#CC IFN cmpilmnumCOMPIL DB 3,6,#E,#16,#28tCOMPIL DB "ProTracker Compiler" DB 6,1,2,"Save compiled song " DB "Include player:" DB 6,0,4,"Start address:#" DB 6,5,6,"Parameters:" DB 6,0,8,"Init address :#" DB 6,0,9,"Play address :#" DB 6,0,10,"Stop address :#" DB 6,0,11,"Data address :#" DB 6,0,#D,"Length" DB 6,#E,#D,":",#A3 ENDIF mDISKER DB #A,6,#15,#C,#14tDISKER DB 6,5,0,"DISK ERROR" DB 6,0,2,"Retry,Abort,Ignore ",#BFmEDORN ;DB 0,1,#11,#17,7 DB 0,1,#11,#14,7tEDORN DB "EDIT ORNAMENT 0"EDORNN DB "1",#A0tORNo_s DB "OCTAVE SAMPLE ",#A0;tORNKEY ;DB " ssUI,ssK,0WERT,Ins,cs0 ,CURSOR " ;DB " PRESS NOTE KEYS FOR PLA",#D9mEDSMP DB SMPX,SMPY,#14+SMPX,2+SMPY+SMPH,7EDSMPN DB "1",#A0tSMPKEY DB "OCTAVE ORNAMENT",#A0mPOS DB 1,1,#A,#17,#28tPOS DB " POSITIONS LIST" DB 6,0,2," POSIT. PAT",#D4;=====================================T____ DB "---",#ADTmemo DB "mem",#EFFILEXTS DB "m"extS DB "SM"extF DB "Fpso"TSORRY DB " *** I'M SORRY *** ",#A0TDISKER DB " DISK DRIVE ERROR !!! ",#A0TNOFILE DB " NO FILE !! ",#A0TSEARCH DB "PLEASE WAIT, SEARCHING !",#A1TLSMP DB "LOADING SAMPLE",#A0TSSMP DB "SAVING SAMPLE",#A0TLORN DB "LOADING ORNAMENT",#A0TSORN DB "SAVING ORNAMENT",#A0TLPAT DB "LOADING PATTERN",#A0TSPAT DB "SAVING PATTERN",#A0DIVS DB "1:",#B1 DB "3:",#B4 DB "1:",#B2 DB "1:",#B4 DB "3:",#B1 DB "5:",#B2 DB "2:",#B1 DB "3:",#B2 IFN cmpilmnutC0 DB "C0 ENDIF tON DB "ON",#A0tOFF DB "OF",#C6TYES DB "YE",#D3TNO DB "NO",#A0mOK DB #C,#A,#16,#D,#18TCOMPLE DB "OPERATION COMPLET",#C5 IFN opcomplTERROR DB "ERROR IN OPERATIO",#CE ENDIF tSS DB "('&%$#@!_"TNOTEKY DB "F DB ".-,^*",203,"/?",205,"`",195,": DB "MJNHBGVCDXSZ",kLTNOTEKETDEFORN DB 7,12,16 DB 4,7,12 DB 0,4,7 DB 7,12,15 DB 3,7,12 DB 0,3,7 IFN tabTJP DB 4,4,4,5,6,6 DB 11,16,17,18,19,15,21,22,23 DB 20,25,26,27,28,24,30,31,32 DB 29,25,26,27,28,2,12,13,14TJPLEFT DB 29,29,29,29,2,3 DB 4,0,1,2,3,6,30,31,32 DB 11,7,8,9,10,15,12,13,14 DB 20,16,17,18,19,24,21,22,23 ENDIF ;===================================== ;DS -$&3 DS .(-$)ayblockENV DW 0 ;почему здесь?Achan DB -1Aorn DW ORNS DB 1,0,0 DW SMPS DB 1,0,0,0Avol2 DB #F0Avol DB #FAcom DS 5Adfrq DS 10Bchan DB -1Born DW ORNS DB 1,0,0 DW SMPS DB 1,0,0,0Bvol2 DEFB #F0Bvol DEFB #FBcom DS 5Bdfrq DS 10Cchan DB -1Corn DW ORNS DB 1,0,0 DW SMPS DB 1,0,0,0Cvol2 DEFB #F0Cvol DEFB #FCcom DS 5Cdfrq DS 10 frqA DW 0frqB DW 0frqC DW 0nois NOP mix NOP volA NOP volB NOP volC NOP frqE DW 0env DW 0 pianRG DS 12pianE NOP  piaSMP DW 0piaORN DW 0 NOP ;NU,но нужно!piSLIN NOP piSEND NOP piOLIN NOP piOEND NOP piSLOOP NOP piOLOOP NOP  piCURv DB 0;#18VOL DW 0;#19dFRQ DB 0;#1BNOISE DB 0;#1CENV usedisp DW 0BASENV DW 0Edfrq DB 0Efrq DW 0EstCNT DB 0Estep DW 0EiniCNT DB 0NOTENV DB 0 ;или не в ayblock?DNOIS DB 0 DS -$&3szayblock=$-ayblockszayblock4=szayblock/4 DS ayblock+256-$ayblock2 DS szayblock;===================================== IFN set DB 10+savsetSETUCOO DW #4048,#4888 DW #4858,#5090 DW #5868,#6078 DW #5878,#6088 DW #6068,#6878 DW #6078,#6888 DW #6868,#7088 DW #7060,#7888 DW #7860,#8088 IFN savset DW #8870,#9098 ENDIF DW #8058,#88A0 ENDIF   DB 5CLEACOO DW #2838,#3078 DW #3038,#3878 DW #3838,#4078 DW #4038,#4878 DW #4838,#5078 DSKopts DB 8DISKCOO DW #5830,#6078 DW #6830,#7078 DW #7830,#8078 DW #68B0,#70C8 DW #A0B0,#A8C8 DW #8830,#9078 DW #9830,#A078 DW #A830,#B078 DW #6880,#70A8 DW #7080,#78A8 DW #7880,#80A8 DW #8080,#88A8 DW #8880,#90A8 DW #9080,#98A8 DW #9880,#A0A8 DW #A080,#A8A8  DB 3SURECOO DW #6868,#7078 DW #6880,#7090 DW #6898,#70A8 MENUCOO DW #0038,#0840 DW #0040,#0848 DW #0838,#1040 DW #0840,#1048 DW #1038,#1840 DW #1040,#1848 DW #1838,#2040 DW #1840,#2048 DW #2038,#2840 DW #2040,#2848 DW #2838,#3040 DW #2840,#3048 ;DW #4038,#4840 ;DW #4040,#4848 DW #3038,#3840 DW #3040,#3848 DW #3838,#4040 DW #3840,#4048 DW #5000,#5828 ;DW #4838,#5040 ;DW #4840,#5048 DW #5800,#6028 DW #5838,#6048 DW #5038,#5848 DW #0048,#0888 DW #0850,#1080 DW #3848,#4088 DW #3000,#3830 DW #6000,#6818 DW #6800,#6F18 DW #3098,#38B8;SMP DW #30C0,#38C8 DW #30C8,#38D0 DW #30E8,#38F0 DW #30F0,#38F8 DW #30D0,#38E0 DW #3898,#40B8;ORN DW #38C0,#40C8 DW #38C8,#40D0 DW #38E8,#40F0 DW #38F0,#40F8 DW #38D0,#40E0 DW #3050,#3880 DW #5858,#5F70;SWPSONG DW #6898,#6FB8;TRNSVOL DW #68B8,#6FD0;TRNSTONE DW #68E8,#6FF0 DW #68F0,#6FF8 DW #50D0,#58E0 DW #48C0,#50C8 DW #48C8,#50D0 DW #48E8,#50F0 DW #48F0,#50F8 DW #50C0,#58C8 DW #50C8,#58D0 DW #50E8,#58F0 DW #50F0,#58F8 DW W #58C0,#60C8 DW #58C8,#60D0 DW #60C0,#68C8 DW #60C8,#68D0 DW #60D8,#68F8 DW #2048,#2888 DW #2848,#3088 DW #1050,#1880 DW #1850,#2080 DW #58E8,#60F0;+B2 DW #58F0,#60F8 DW #4050,#4880 DW #3800,#4030 DW #0800,#1028 DW #5098,#58B8 DW #5898,#60B8 DW #6098,#68B8 DW #48D0,#4FE0 DW #68D8,#6FE8  IFN cmpilmnu DB 3COMPCOO DW #4820,#5068 DW #5018,#5858 DW #5818,#6058 ENDIF ;===================================== IFN setSETUUSE DW suFRQ DW suPOI DW suINK1 DW suPAP1 DW suINK2 DW suPAP2 DW suBORD DW suSND DW suPLAY IFN savset DW suSAVE ENDIF DW suKJ ENDIF CLEAUSE DEFW clSONG DEFW clPOS DEFW clPAT DEFW clSMP DEFW clORNDISKUSE DW READCAT DW SAVE DW EDFILE DW CATUP DW CATDN DW SAVPAT DW SAVSMP DW SAVORN DW LOAD DW LOAD DW LOAD DW LOAD DW LOAD DW LOAD DW LOAD DW LOADSUREUSE DW YES,YES,YESMENUUSE DEFW INCTMP DEFW DECTMP DEFW INCPOS DEFW DECPOS DEFW INCPAT DEFW DECPAT DEFW INCLENG DEFW DECLENG DEFW INCLOOP DEFW DECLOOP DEFW INCVOL DEFW DECVOL ;DEFW INCOCT ;DEFW DECOCT DEFW INCEPAT DEFW DECEPAT DEFW INCPATL DEFW DECPATL DEFW AUTOON ;DEFW INCROLL ;DEFW DECROLL DEFW ENVONDIVNO=$-MENUUSE/2 DEFW NXTDIV DEFW AUTOS DEFW DISKS DEFW CLEARS DEFW EDSONG DEFW EDPAT DEFW TITLES DEFW BYS DEFW EDSMP DEFW INCSMP DEFW DECSMP DEFW INCSMP2 DEFW DECSMP2 DEFW COPYSMP DEFW EDORN DEFW INCORN DEFW DECORN DEFW INCORN2 DEFW DECORN2 DEFW COPYORN IFN about DEFW ABOUT ELSE DW ret ENDIF DEFW ONOFFTS DEFW TRANVOL ;vol DEFW TRANSP ;tone DEFW INCTRA DEFW DECTRA DEFW COPY DEFW INCPAT1 DEFW DECPAT1 DEFW INCPAT2 DEFW DECPAT2 DEFW INCCHN DEFW DECCHN DEFW INCCHN2 DEFW DECCHN2 DEFW INCBEG1 DEFW DECBEG1 DEFW INCEND DEFW DECEND DEFW EXCHANG DEFW PLSONG DEFW PLPAT DEFW COMPILS DEFW DECOMS DEFW INCBEG2 DEFW DECBEG2 IFN set DEFW SETUP ELSE DW ret ENDIF DEFW PATLENS DEFW POSEDIT DW ALLCHAN DW BEGcur DW ENDcur DW HOMEcop DW HOMEtramains=$-MENUUSE/2 IFN cmpilmnuCOMPUSE DW COMSAVE DW PLYRyn DW EcomADR ENDIF   W #58C0,#60C8 DW #58C8,#60D0 DW #60C0,#68C8 DW #60C8,#68D