MSX Village forum

10 REM MSE Loader 
20 REM 
30 REM 
40 REM 
50 REM MSX Computer Magazine 
60 REM 
70 REM 
80 CLS: PRINT"MCM's Sample Editor": PRINT 
90 PRINT "Installeren machinetaal..." 
100 RESTORE 190: AD=&HC000: CK=0 
110 READ A$: IF A$="*" THEN 140 
120 A=VAL("&h"+A$): POKE AD,A: AD=AD+1: CK=CK+A 
130 GOTO 110 
140 IF CK<>42125! THEN PRINT "Fout in dataregels!": END 
150 PRINT "MSE wordt nu geladen..." 
160 POKE &HF676,1: POKE &HF677,&HC2: POKE &HC200,0 
170 IF PEEK (&HFFA7)<>201 THEN RUN "MSE.BAS" 
180 RUN "MSE" 
190 DATA 18,1B,18,51,00,FF,C3,0D 
200 DATA C1,07,00,00,00,00,00,00 
210 DATA C3,FC,C0,00,00,00,00,C3 
220 DATA 45,C1,C3,68,C1,F6,FF,32 
230 DATA 05,C0,AF,32,04,C0,CD,84 
240 DATA 00,11,A4,C0,06,10,1A,13 
250 DATA CD,74,C0,23,10,F8,06,10 
260 DATA AF,CD,74,C0,23,10,F9,AF 
270 DATA CD,87,00,11,BC,C0,06,40 
280 DATA 1A,13,CD,74,C0,23,10,F8 
290 DATA CD,55,C0,FB,C9,AF,CD,87 
300 DATA 00,23,3A,04,C0,11,04,00 
310 DATA CD,6A,C0,3A,05,C0,CD,6A 
320 DATA C0,C9,06,08,CD,74,C0,19 
330 DATA 10,FA,FB,C9,F5,3A,AF,FC 
340 DATA FE,02,28,07,CD,88,C0,F1 
350 DATA ED,79,C9,F1,CD,4D,00,C9 
360 DATA 3A,07,00,F3,3C,4F,7C,E6 
370 DATA C0,07,07,ED,79,3E,8E,ED 
380 DATA 79,7C,ED,69,E6,3F,F6,40 
390 DATA ED,79,0D,C9,80,80,00,00 
400 DATA 80,80,00,00,80,80,00,00 
410 DATA 80,80,00,00,80,80,00,00 
420 DATA 80,80,00,00,00,00,00,0E 
430 DATA 10,00,00,0E,20,00,00,0E 
440 DATA 30,00,00,0E,40,00,00,0E 
450 DATA 50,00,00,0E,60,00,00,0E 
460 DATA 70,00,00,0E,00,FF,00,0E 
470 DATA 10,FF,00,0E,20,FF,00,0E 
480 DATA 30,FF,00,0E,40,FF,00,0E 
490 DATA 50,FF,00,0E,60,FF,00,0E 
500 DATA 70,FF,00,0E,F3,2A,13,C0 
510 DATA 3A,2D,00,FE,03,28,27,ED 
520 DATA 5B,15,C0,18,0F,F3,2A,0C 
530 DATA C0,3A,2D,00,FE,03,28,1C 
540 DATA ED,5B,0E,C0,7E,D3,91,23 
550 DATA 1B,3A,09,C0,47,10,FE,7A 
560 DATA B3,C2,1C,C1,FB,C9,ED,4B 
570 DATA 15,C0,18,04,ED,4B,0E,C0 
580 DATA 11,00,00,3A,0A,C0,E6,03 
590 DATA CD,86,01,FB,C9,F3,2A,0C 
600 DATA C0,ED,5B,0E,C0,1B,7E,D6 
610 DATA 80,47,23,7E,D6,80,90,CB 
620 DATA 2F,80,C6,80,77,D6,80,47 
630 DATA 1B,7A,B3,C2,52,C1,FB,C9 
640 DATA F3,01,00,01,2A,0E,C0,ED 
650 DATA 42,EB,1B,1B,2A,0C,C0,01 
660 DATA 00,01,09,7E,D6,80,CB,2F 
670 DATA E5,C5,ED,42,47,7E,D6,80 
680 DATA CB,2F,80,C6,80,C1,E1,77 
690 DATA 23,1B,7A,B3,C2,7B,C1,FB 
700 DATA C9,* 

10 REM MSE 
20 REM 
30 REM MCM's Sample Editor 
40 REM 
50 REM MSX Computer Magazine 
60 REM 
70 REM 
80 IF PEEK(&HF677)<>&HC2 THEN PRINT "Dit programma starten met MSE 
Loader": END 
90 DEFINT C-Z: M=PEEK(&H2D): T=0 
100 IF M=3 THEN T=1 
110 IF M>0 THEN M=1 
120 XM=255+256*M: YM=191+20*M: L1=0: L2=255 
130 AS=&H8000: AE=&HBFFF: SP=0: SI=10: TR=0: C2=0 
140 DIM K(9,2) 
150 DEFUSR0=&HC000: DEFUSR1=&HC002: DEFUSR2=&HC006 
160 DEFUSR3=&HC010: DEFUSR4=&HC017: DEFUSR5=&HC01A 
170 OPEN "GRP:" FOR OUTPUT AS #1 
180 COLOR 15,0,0: SCREEN 2+M*5,2 
190 GOSUB 440: GOSUB 330 
200 ' hoofdprogramma **************** 
210 ON KEY GOSUB 950,1050,1080,1370,1110 
220 FOR I=1 TO 5: KEY(I)ON: NEXT I 
230 U$=INKEY$: U=VAL(U$) 
240 IF U>=1 AND U<=9 THEN 1010 
250 IF U$=CHR$(13) THEN GOSUB 900 
260 IF U$=CHR$(24) THEN GOTO 1150 
270 IF PEEK(&HFBEB) AND 1 THEN SH=1 ELSE SH=6 
280 C=STICK(0): IF C=0 OR (C MOD 2)=0 THEN GOTO 310 
290 IF C=3 THEN GOTO 650 ELSE IF C=7 THEN GOTO 590 
300 SP=C/5 
310 IF STRIG(0) THEN R=&HC00C: GOSUB 810: A=USR2(0) 
320 GOTO 230 
330 ' bereken + grafische weergave ** 
340 GOSUB 1500 
350 B1=(AE-AS)/(L2-L1): B2=B1/(M+1) 
360 H=AS 
370 FOR X=L1*(M+1) TO L2*(M+1) 
380   LINE (X,0)-(X,129),0 
390   LINE (X,65)-(X,65-(PEEK(H)-128)/2),6 
400   H=H+B2 
410 NEXT X 
420 GOSUB 1470 
430 RETURN 
440 ' scherm opbouw ***************** 
450 LINE (0,131)-(XM,YM),4,B 
460 A=USR0(0): COLOR 15 
470 PRESET (8,140): PRINT #1,"MCM's Sample Editor" 
480 PRESET (8,YM-20): PRINT #1,"Select=Load/Save  Return=zoom" 
490 PRESET (8,YM-10): PRINT #1,"store lpf echo speed unzoom" 
500 GOSUB 530: GOSUB 560 
510 COLOR 3: A=USR0(0) 
520 RETURN 
530 ' plaats sample pointer 1 ******* 
540 POKE &HC004,L1: A=USR1(0) 
550 RETURN 
560 ' plaats sample pointer 2 ******* 
570 POKE &HC005,L2: A=USR1(0) 
580 RETURN 
590 ' pointer 1 naar links ********** 
600 IF SP THEN GOTO 720 
610 IF L1<SH THEN GOTO 230 
620 L1=L1-SH: GOSUB 530 
630 AS=AS-B1*SH 
640 GOTO 230 
650 ' pointer 1 naar rechts ********* 
660 IF SP THEN GOTO 770 
670 IF L1>=L2-SH THEN GOTO 230 
680 L1=L1+SH: GOSUB 530 
690 AS=AS+B1*SH 
700 GOTO 230 
710 ' pointer 2 naar links ********** 
720 IF L2<=L1+SH THEN GOTO 230 
730 L2=L2-SH: GOSUB 560 
740 AE=AE-B1*SH 
750 GOTO 230 
760 ' pointer 2 naar rechts ********* 
770 IF L2=>256-SH THEN GOTO 230 
780 L2=L2+SH: GOSUB 560 
790 AE=AE+B1*SH 
800 GOTO 230 
810 ' init start + lengte sample **** 
820 S2=AS: AD=VARPTR(S2) 
830 POKE R,PEEK(AD) 
840 POKE R+1,PEEK(AD+1) 
850 E2=AE-AS: AD=VARPTR(E2) 
860 POKE R+2,PEEK(AD) 
870 POKE R+3,PEEK(AD+1) 
880 POKE &HC009,SI: POKE &HC00A,TR 
890 RETURN 
900 ' zoom ************************** 
910 IF AE-AS<XM THEN RETURN 
920 L1=0: L2=255 
930 GOSUB 1500: GOSUB 540: GOSUB 560: GOSUB 330: GOSUB 1470 
940 RETURN 
950 ' store ************************* 
960 PRESET (8,154): PRINT #1,"store :"; 
970 A$=INPUT$(1): PRINT #1,A$ 
980 IF VAL(A$)<1 OR VAL(A$)>9 THEN GOSUB 1470: GOTO 960 
990 K(VAL(A$),1)=AS: K(VAL(A$),2)=AE: GOSUB 1470 
1000 RETURN 
1010 ' play sample onder toets ****** 
1020 I=AS: J=AE: AS=K(U,1): AE=K(U,2) 
1030 R=&HC013: GOSUB 810: AS=I: AE=J 
1040 A=USR3(0): GOTO 230 
1050 ' low pass filter ************** 
1060 GOSUB 1500: R=&HC00C: GOSUB 810: A=USR4(0): GOSUB 330: GOSUB 1470 
1070 RETURN 
1080 ' echo ************************* 
1090 GOSUB 1500: R=&HC00C: GOSUB 810: A=USR5(0): GOSUB 330: GOSUB 1470 
1100 RETURN 
1110 ' unzoom *********************** 
1120 AS=&H8000: AE=&HBFFF: L1=0: L2=255 
1130 GOSUB 1500: GOSUB 530: GOSUB 560: GOSUB 330: GOSUB 1470 
1140 RETURN 
1150 ' I/O menu ********************* 
1160 ON ERROR GOTO 1320 
1170 COLOR 15,4,4: SCREEN 0 
1180 PRINT "*** Samples laden en saven ***": PRINT 
1190 PRINT "1. Load disk": PRINT "2. Save disk" 
1200 PRINT "3. Load cassette": PRINT"4. Save cassette" 
1210 PRINT: PRINT "Uw keuze?";: A$=INPUT$(1) 
1220 K=VAL(A$): PRINT K: PRINT 
1230 IF K<1 OR K>4 THEN GOTO 1170 
1240 IF K<3 THEN F$="": FILES F$+"*.SMP" ELSE F$="CAS:" 
1250 PRINT: PRINT 
1260 A$="": INPUT "Filenaam (zonder extensie)";A$ 
1270 PRINT "momentje..." 
1280 IF K<3 THEN A$=A$+".SMP" 
1290 IF K=1 OR K=3 THEN BLOAD F$+A$ ELSE BSAVE F$+A$,AS,AE 
1300 ON ERROR GOTO 0 
1310 GOTO 180 
1320 IF ERR=56 THEN PRINT"Bestandsnaam is onjuist!": GOTO 1350 
1330 IF ERR=53 THEN PRINT"Sample niet gevonden!": GOTO 1350 
1340 PRINT "I/O error" 
1350 PRINT "Druk toets voor vervolg": A$=INPUT$(1) 
1360 RESUME 1170 
1370 ' afspeelsnelheid ************** 
1380 PRESET (8,154) 
1390 IF PEEK(&H2D)<3 THEN GOTO 1440 
1400 PRINT#1,"Turbo R scale rate (";TR;"):"; 
1410 A$=INPUT$(1): PRINT #1,A$: IF A$="" THEN GOTO 1430 
1420 IF A$<"0" OR A$>"3" THEN GOTO 1410 ELSE TR=VAL(A$) 
1430 PRESET (8,154): PRINT #1,SPACE$(26): RETURN 
1440 PRINT #1,"Speed level (";SI;"):";: A=0: T=2 
1450 A$=INPUT$(1): PRINT #1,A$;: IF A$=CHR$(13) THEN GOTO 1460 ELSE 
A=A*10+VAL(A$): T=T-1: IF T=0 THEN GOTO 1460 ELSE GOTO 1450 
1460 IF A<1 OR A>99 THEN 1480 ELSE SI=A 
1470 ' maak invoer regel schoon ***** 
1480 LINE (8,154)-(255,162),1,BF 
1490 RETURN 
1500 ' even wachten ***************** 
1510 PRESET (8,154): PRINT #1,"momentje..." 
1520 RETURN