1 REM **********************************
2 REM *                                *
3 REM *    COMPOSER V3.0 + HCOPY       *
4 REM *                                *
5 REM *     VON DIETER BORCHERT        *
6 REM *                                *
7 REM *                                *
8 REM *                                *
9 REM **********************************
10 :
12 DIMNO(7,12),LN(7,12),HN(7,12),DA$(20),VA(3,2),WX$(12,6)
13 PRINT"[147]ARBEITEN SIE MIT"
14 PRINT"DATASETTE (1) ODER FLOPPY DISK (8) ?"
15 GETGN$:IFGN$=""THEN15
16 GN=VAL(GN$):IFGN<>1ANDGN<>8THEN15
17 PRINT"[147]BITTE EINEN MOMENT GEDULD !"
18 FORI=0TO12:READDA$(I):NEXT:FORI=1TO8:READD$(I):NEXT
19 FORI=1TO3:READVA(I,1),VA(I,2):NEXT
20 FORI=1TO11:FORJ=1TO6:READWX$(I,J):NEXT:NEXT:PRINTCHR$(8);CHR$(142);
21 POKE808,225:REM ERST EINGEBEN,WENN PROGRAMM EINWANDFREI LAEUFT
22 N1=0:VO=1:DA=1:OK=4:Z=211:S=214:CS=58732
23 REM FREQUENZEN DEFINIEREN
24 FR=262.89
25 IFT=8THEN70
26 NO(T,NR)=FR*1.0594631:HN(T,NR)=INT(NO(T,NR)/256)
30 LN(T,NR)=INT(NO(T,NR)-HN(T,NR)*256)-1
45 FR=NO(T,NR):NR=NR+1
50 IFNR=12THENT=T+1:NR=0
60 GOTO25
70 FORI=0TO7:NO(I,12)=0:NEXT
75 IFPEEK(750)=134THEN100
76 SYS(57812)"COMP MC",GN,1:POKE780,0:SYS65493:POKE750,134
77 FORI=49152TO49199:POKEI,0:NEXT:GOTO100
80 GETA$:IFA$=""THEN80
81 RETURN
90 PRINT"(TASTE DRUECKEN)":GOSUB80:RETURN
100 POKE53280,1:POKE53281,1:PRINT"[147]";:POKE198,0:REM HAUPTMENUE
101 PRINT"[147]----------------------------------------";:
102 PRINT"COMPOSER V 3.0 / (C) 1986 BY D.BORCHERT ";
103 PRINT"----------------------------------------";:
110 PRINT""SPC(12)"HAUPTMENUE"
120 PRINTSPC(10)"=============="
130 PRINT""TAB(8)"1) LADEN
140 [153]""[163]8)"2) SPEICHERN
150 PRINT""TAB(8)"3) PARAMETER SETZEN
160 [153]""[163]8)"4) MELODIE SPIELEN
170 PRINT""TAB(8)"5) MELODIE STOPPEN
180 [153]""[163]8)"6) LOESCHEN / TEILE KOPIEREN"
190 [153]""[163]8)"7) NEUE MELODIE EINGEBEN
200 PRINT""TAB(8)"8) NOTEN ZEIGEN / FLOPPYBEFEHL
205 [153]""[163]8)"9) DRUCKEN / ENDE";
210 [141]80
220 A[178][197](A$):[145]A[141]1000,2000,3000,4000,5000,6000,7000,8000,9000
230 [137]100
500 [143] KLEINES WINDOW AUSGEBEN
505 [151]Z,17:[151]S,17:[158]CS:[153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$";
510 [129]I[178]1[164]6:[151]Z,17:[151]S,17[170]I:[158]CS:[153]"                     ";:[130]
520 [129]I[178]1[164]6:[151]Z,17:[151]S,17[170]I:[158]CS:[153]"(null)";WX$(CC,I);
530 [151]Z,38:[151]S,17[170]I:[158]CS:[153]"(null)";:[130]
535 [151]Z,17:[151]S,24:[158]CS:[153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)WAIT";
540 [142]
600 [153]"ONONON";:[142]:[143] CURSOR IN POSITION BRINGEN
700 [143] WINDOW LOESCHEN
705 [129]I[178]0[164]7:[151]Z,8:[151]S,I[170]17:[158]CS:[153]"                               ";
710 [130]:[142]
800 [143] GROSSES WINDOW AUSGEBEN
802 [151]Z,8:[151]S,17:[158]CS:[153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$";
804 [129]I[178]1[164]6:
805 [151]Z,8:[151]S,17[170]I:[158]CS:[153]"                               ";:[130]
810 [129]I[178]1[164]6:[151]Z,8:[151]S,17[170]I:[158]CS:[153]"(null)";WX$(CC,I);
820 [151]Z,38:[151]S,17[170]I:[158]CS:[153]"(null)";:[130]
830 [151]Z,8:[151]S,24:[158]CS:[153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)WAIT";
840 [142]
999 :
1000 [143] LADEN VON MUSIKSTUECKEN
1001 :
1002 MP[178]1:[153]"LOADFILENAME EINGEBEN :"[166]25);
1005 [151]54296,0:[133]FI$:CC[178]9:[141]500
1006 [139]FI$[178]"$"[167][141]8070:[137]1000
1010 [158](57812)""[170]FI$[170]"",GN,1:[151]780,0:[158]65493:[141]700
1012 [139]GN[178]1[167]1030
1020 [159]15,8,15:[132]15,C,C$:[139]C$[179][177]"OK"[167][160]15:[137]10000N W[176]DEN.
1030 [160]15:[153]"DIE MELODIE KOENNEN SIE IM"
1040 [153]"HAUPTMENUE STARTEN."
1050 [141]90
1060 [142]
1999 :
2000 [143] SPEICHERN VON MUSIKSTUECKEN
2001 :
2002 MP[178]2:[153]"LOADFILENAMEN EINGEBEN:"[166]25);:[133]FI$
2003 [151]54296,0:[151]56334,0:[151]788,49:[151]789,234:[151]56334,1
2004 [139]GN[178]1[167]2010           "
2005 CC=8:GOSUB800:FI$=FI$+",P,W":OPEN1,GN,1,FI$
2006 OPEN15,8,15:INPUT#15,C,C$:IFC$<>"OK"THEN2015
2007 PRINT#1,CHR$(0);CHR$(192);
2008 FORI=49152TO53000:PRINT#1,CHR$(PEEK(I));:NEXT
2009 CLOSE1:GOTO2015
2010 SYS(57812)""+FI$+"",1:POKE193,0:POKE194,192:POKE174,1:POKE175,206:SYS62957
2011 GOSUB700:GOTO2020
2015 GOSUB700:IFC$<>"OK"THENCLOSE15:GOTO10000
2020 CLOSE15:PRINT:PRINT"DIE MELODIE WURDE GESPEICHERT."
2030 GOSUB90
2040 RETURN
2999 :
3000 REM PARAMETER SETZEN
3001 :
3005 PRINT"[147]"TAB(12)"PARAMETER
3010 [153][163]11)"============"
3020 [153]"1) WELLENFORM
3030 PRINT"2) PULSFORM
3040 [153]"3) ANSCHLAG / ABSCHWELLEN
3050 PRINT"4) HALTEN / AUSKLINGEN
3060 [153]"5) LAUTSTARKE / GESCHWINDIGKEIT
3061 PRINT"6) PARAMETER INITIALISIEREN
3062 [153]"7) MELODIE STOPPEN
3063 PRINT"8) ANZAHL DER 1/8-NOTEN
3064 [153]"9) ZURUECK INS HAUPTMENUE
3070 GOSUB80
3080 ONVAL(A$)GOTO3100,3200,3300,3400,3500,3600,3700,3800,3900
3090 GOTO3000
3100 FORI=2TO19:POKE781,I:SYS59903:NEXT:CC=1:GOSUB500
3105 PRINT"WELLENFORM"
3106 PRINT"STIMME 1: ";PEEK(49161)
3107 PRINT"STIMME 2: ";PEEK(49162)
3108 PRINT"STIMME 3: ";PEEK(49163)
3110 PRINT"WELLENFORM EINGEBEN:";
3120 INPUTWA$:WA=VAL(WA$):IFWA<17ORWA>129THENGOSUB600:GOTO3110
3130 PRINT"WELCHE STIMME :";:GOSUB80:A1=VAL(A$):PRINTA$
3140 IFA1=1THENPOKE49161,WA:POKE49170,WA-1:GOSUB90:GOTO3000
3150 IFA1=2THENPOKE49162,WA:POKE49171,WA-1:GOSUB90:GOTO3000
3160 IFA1=3THENPOKE49163,WA:POKE49172,WA-1:GOSUB90:GOTO3000
3170 GOSUB600:GOTO3130
3200 FORI=2TO19:POKE781,I:SYS59903:NEXT:CC=2:GOSUB500
3210 PRINT"PULSFORM :"
3220 PRINT"STIMME 1: ";PEEK(49155),PEEK(49156)
3230 PRINT"STIMME 2: ";PEEK(49157),PEEK(49158)
3240 PRINT"STIMME 3: ";PEEK(49159),PEEK(49160)
3250 PRINT"NEUE PULSFORM (H-BYTE) :";:INPUTP1$:P1=VAL(P1$)
3255 IFP1<0ORP1>15THENGOSUB600:GOTO3250
3260 PRINT"NEUE PULSFORM (L-BYTE) :";:INPUTP2$:P2=VAL(P2$)
3265 IFP2<0ORP2>15THENPRINT:GOSUB600:GOTO3260
3270 PRINT"WELCHE STIMME :";:GOSUB80:A1=VAL(A$):PRINTA$
3271 IFA1=1THENPOKE49155,P1:POKE49156,P2:GOSUB90:GOTO3000
3272 IFA1=2THENPOKE49157,P1:POKE49158,P2:GOSUB90:GOTO3000
3273 IFA1=3THENPOKE49159,P1:POKE49160,P2:GOSUB90:GOTO3000
3274 GOSUB600:GOTO3270
3300 FORI=2TO19:POKE781,I:SYS59903:NEXT:CC=3:GOSUB500
3310 PRINT"ANSCHLAG / ABSCHWELLEN"
3320 F(1)=INT(PEEK(49164)/16):F(2)=PEEK(49164)-F(1)*16
3321 F(3)=INT(PEEK(49166)/16):F(4)=PEEK(49166)-F(3)*16
3322 F(5)=INT(PEEK(49168)/16):F(6)=PEEK(49168)-F(5)*16
3330 PRINT"STIMME 1 :";F(1),F(2)
3340 PRINT"STIMME 2 :";F(3),F(4)
3350 PRINT"STIMME 3 :";F(5),F(6)
3360 PRINT"ANSCHLAG:";:INPUTA1$:A1=VAL(A1$)
3365 IFA1<0ORA1>15THENGOSUB600:GOTO3360
3370 PRINT"ABSCHWELLEN:";:INPUTA2$:A2=VAL(A2$)
3375 IFA2<0ORA2>15THENGOSUB600:GOTO3370
3376 A3=A1*16+A2
3380 PRINT"WELCHE STIMME :";:GOSUB80:A4=VAL(A$):PRINTA$
3381 IFA4=1THENPOKE49164,A3:GOSUB90:GOTO3000
3382 IFA4=2THENPOKE49166,A3:GOSUB90:GOTO3000
3383 IFA4=3THENPOKE49168,A3:GOSUB90:GOTO3000
3390 GOSUB600:GOTO3380
3400 FORI=2TO19:POKE781,I:SYS59903:NEXT:CC=4:GOSUB500
3410 PRINT"HALTEN / AUSKLINGEN"
3420 F(1)=INT(PEEK(49165)/16):F(2)=PEEK(49165)-F(1)*16
3421 F(3)=INT(PEEK(49167)/16):F(4)=PEEK(49167)-F(3)*16
3422 F(5)=INT(PEEK(49169)/16):F(6)=PEEK(49169)-F(5)*16
3430 PRINT"STIMME 1 :";F(1),F(2)
3440 PRINT"STIMME 2 :";F(3),F(4)
3450 PRINT"STIMME 3 :";F(5),F(6)
3460 PRINT"HALTEN  :";:INPUTA1$:A1=VAL(A1$)
3465 IFA1<0ORA1>15THENGOSUB600:GOTO3460
3470 PRINT"AUSKLINGEN:";:INPUTA2$:A2=VAL(A2$):A3=A1*16+A2:PRINT
3475 IFA2<0ORA2>15THENGOSUB600:GOTO3470
3476 A3=A1*16+A2
3480 PRINT"WELCHE STIMME :";:GOSUB80:A4=VAL(A$):PRINTA$
3481 IFA4=1THENPOKE49165,A3:GOSUB90:GOTO3000
3482 IFA4=2THENPOKE49167,A3:GOSUB90:GOTO3000
3483 IFA4=3THENPOKE49169,A3:GOSUB90:GOTO3000
3490 GOSUB600:GOTO3480
3500 FORI=2TO19:POKE781,I:SYS59903:NEXT:CC=5:GOSUB500
3510 PRINT"LAUTSTAERKE: ";PEEK(49153)
3520 PRINT"NEUE LAUTSTAERKE : ";:INPUTLO$
3525 IFVAL(LO$)<0ORVAL(LO$)>15THENGOSUB600:GOTO3520
3530 POKE49153,VAL(LO$)
3540 PRINT"GESCHWINDIGKEIT:";PEEK(49154)
3550 PRINT"NEUE GESCHWINDIGKEIT:";:INPUTSP$
3555 IFVAL(SP$)<4ORVAL(SP$)>32THENGOSUB600:GOTO3550
3556 POKE49154,VAL(SP$):GOTO3000
3600 SYS52000:GOTO3000
3700 POKE54296,0:GOTO3000
3800 FORI=2TO22:POKE781,I:SYS59903:NEXT:CC=6:GOSUB500
3810 PRINT"ANZAHL DER 1/8 NOTEN:";PEEK(49152)
3820 PRINT"NEUE ANZAHL :";:INPUTNV$:NV=VAL(NV$)
3821 IFNV=256THENNV=0
3822 IFNV>256ORNV<0THENGOSUB600:GOTO3820
3826 POKE49152,NV:GOTO3000
3900 RETURN
3999 :
4000 REM MUSIK ANSCHALTEN
4001 :
4002 POKE56334,0:POKE788,56:POKE789,199:POKE56334,1:SYS52000:RETURN
4999 :
5000 REM MUSIK AUSSCHALTEN
5001 :
5002 POKE56334,0:POKE788,49:POKE789,234:POKE56334,1:POKE54296,0:RETURN
5999 :
6000 REM NOTEN LOESCHEN / TEILE KOPIEREN
6001 :
6010 PRINT"[147](N)OTEN LOESCHEN  /  (T)EILE KOPIEREN"
6015 PRINT"======================================"
6020 GOSUB80
6030 IFA$="N"THEN6100
6040 IFA$="T"THEN6300
6050 GOTO6020
6100 CC=9:GOSUB500:POKE54296,0:PRINT"";
6110 FORI=49200TO50999:POKEI,0:NEXT:GOSUB700:PRINT"";:GOSUB90:RETURN
6300 FORI=3TO24:POKE781,I:SYS59903:NEXT
6305 PRINT"KOPIEREN VON :";:INPUTH1$:H1=VAL(H1$)
6306 IFH1<0ORH1>256THEN6305
6310 PRINT"BIS          :";:INPUTH2$:H2=VAL(H2$)
6315 IFH2<0ORH2>256ORH2<H1THENPRINT:GOSUB600:GOTO6310
6320 PRINT"NEUER ANFANG :";:INPUTH3$:H3=VAL(H3$)-1
6325 IFH3<0ORH3>256THENGOSUB600:GOTO6320
6330 PRINT"WELCHE STIMME:";:INPUTH4$:H4=VAL(H4$)
6335 IFH4<0ORH4>3THENPRINT:GOSUB600:GOTO6330
6340 H5=H3+(H2-H1):H6=H5-H3:CC=9:GOSUB500
6341 FORI=0TOH6
6342 POKEVA(H4,1)+H3+I,PEEK(VA(H4,1)+H1+I-1)
6343 POKEVA(H4,2)+H3+I,PEEK(VA(H4,2)+H1+I-1)
6344 NEXT
6350 GOSUB700:POKEZ,3:POKES,13:SYSCS:PRINT"NOCH EINMAL ?":GOSUB80
6351 IFA$="J"THEN6360
6352 IFA$="N"THENRETURN
6353 GOTO6350
6360 PRINT"[147]";(H1);"-";(H2);" NEUER ANFANG:";H3+1;" STIMME:";H4
6370 GOTO6300
6999 :
7000 REM NEUE MELODIE ENTWERFEN
7001 :
7002 PRINT"[147]"TAB(8)"NEUE MELODIE ENTWERFEN "
7010 PRINTTAB(7)"========================"
7012 N1=0:VO=1:L3=0:L2=0:L1=0:POKE54296,0
7015 PRINT"ANZAHL DER 1/8-NOTEN :";:INPUTEN$:EN=VAL(EN$)
7016 POKE781,3:SYS59903:PRINT"";
7017 IFEN=256THENPOKE49152,0:GOTO7020
7018 POKE49152,EN
7020 FORI=0TO12:PRINTTAB(2)DA$(I):NEXT
7030 PRINT" NOTE ^":Y1=14:NO=8:CC=7:GOSUB800
7040 POKE199,0:POKEZ,9:POKES,5:SYSCS:PRINT"OKTAVE :";:POKE199,1:PRINTOK
7042 POKEZ,22:POKES,5:SYSCS:PRINT"LAENGE :";:POKE199,1:PRINTD$(DA)
7045 N1$=STR$(N1+1)+"  "
7046 POKEZ,9:POKES,7:SYSCS:PRINT"NOTE NR.:";:POKE199,1::PRINTN1$:POKE199,0
7048 POKEZ,9:POKES,9:SYSCS:PRINT"STIMME NR.:";:POKE199,1:PRINTVO
7051 N2$=DA$(L2)+STR$(L1)+"    "
7053 POKEZ,9:POKES,11:SYSCS:PRINT"LETZTE NOTE :";:PRINTN2$
7054 POKEZ,9:POKES,13:SYSCS:PRINT"LETZTE DAUER :";D$(L3)
7055 POKEZ,9:POKES,15:SYSCS:PRINT"(RETURN)=NOTE UEBERNEHMEN"
7058 A$=""
7060 GOSUB80
7070 IFA$="[145]"THEN7100
7071 IFA$=""THEN7200
7072 IFA$>"0"ANDA$<"9"THENOK=VAL(A$)
7073 IFA$="[133]"THENDA=8
7074 IFA$="[137]"THENDA=7
7075 IFA$="[134]"THENDA=6
7076 IFA$="[138]"THENDA=5
7077 IFA$="[135]"THENDA=4
7078 IFA$="[139]"THENDA=3
7079 IFA$="[136]"THENDA=2
7080 IFA$="[140]"THENDA=1
7085 IFA$=CHR$(13)THEN7500
7086 IFA$="_"THENVF=9-DA:GOTO7900
7087 IFA$="[147]"THENRETURN
7088 IFA$="V"THENVO=VO+1:N1=0:IFVO=4THENRETURN
7089 IFA$="N"THENN1=N1+(9-DA)
7090 GOTO7040
7100 POKE199,0:POKEZ,2:POKES,Y1:SYSCS:PRINTDA$(NO)
7110 NO=NO-1:Y1=Y1-1
7111 IFNO<0THENNO=0:Y1=Y1+1
7120 POKEZ,2:POKES,Y1:SYSCS:POKE199,1:PRINTDA$(NO):GOTO7060
7200 POKE199,0:POKEZ,2:POKES,Y1:SYSCS:PRINTDA$(NO)
7210 NO=NO+1:Y1=Y1+1
7211 IFNO>12THENNO=12:Y1=Y1-1
7220 POKEZ,2:POKES,Y1:SYSCS:POKE199,1:PRINTDA$(NO):GOTO7060
7500 VF=9-DA
7521 L1=OK:L2=NO:L3=DA
7530 FORI=0TOVF:POKEVA(VO,1)+N1+I,HN(OK,NO):POKEVA(VO,2)+N1+I,LN(OK,NO)
7531 NEXT
7540 N1=N1+VF
7560 IFN1>=ENTHEN7800
7570 GOTO7040
7800 VO=VO+1:IFVO=4THENRETURN
7810 N1=0:POKEZ,9:POKES,11:SYSCS:PRINT"            ";:GOTO7040
7900 N1=N1-VF:IFN1<=0THENN1=0
7910 GOTO7040
7999 :
8000 REM FLOPPYBEFEHL / NOTEN ZEIGEN
8001 :
8002 MP=8:PRINT"[147]"TAB(2)"(F)LOPPYBEFEHL / (N)OTEN ZEIGEN":POKE54296,0
8003 GOSUB80
8004 IFA$="F"THEN8020
8005 IFA$="N"THEN8100
8010 GOTO8003
8020 CC=10:GOSUB800:CLOSE2,15:OPEN2,8,15:PRINT"BEFEHL :";:INPUTCO$
8040 FORI=1TOLEN(CO$):IFMID$(CO$,I,1)="!"THEN8050
8041 NEXT
8042 GOTO8065
8050 CO$=LEFT$(CO$,I-1)+":"+RIGHT$(CO$,LEN(CO$)-I)
8055 PRINT"HABEN SIE SICH VERTIPPT ?"
8060 GOSUB80:IFA$="J"THEN8079
8065 IFCO$="Q:"THENRETURN
8066 IFCO$="V:"ORCO$="I:"ORLEFT$(CO$,2)="S:"THEN8078
8068 IFCO$="$:"THENGOSUB8071
8069 GOTO8079
8070 REM INHALTSVERZEICHNIS
8071 PRINT"[147]"SPC(6)"INHALTSVERZEICHNIS"
8072 OPEN5,8,0,"$":GET#5,A$,A$
8073 GET#5,A$,A$:IFST=64THENCLOSE5:GOSUB90:PRINT"[147]":RETURN
8074 GET#5,A$,B$:PRINTASC(A$+CHR$(0))+256*ASC(B$+CHR$(0));
8075 GET#5,A$:PRINTA$;:IFA$<>""THEN8075
8076 PRINT:GOTO8073
8078 PRINT#2,CO$:CLOSE2
8079 OPEN15,8,15:INPUT#15,C,C$:IFC$<>"OK"THENCLOSE2:CLOSE15:GOTO10000
8080 CLOSE2:CLOSE15:GOTO8020
8100 REM SHOW NOTES
8105 PRINT"VON NOTE NUMMER:";:INPUTA1$:A1=VAL(A1$)-1
8106 IFA1<0ORA1>255THEN8105
8110 PRINT"BIS NOTE NR.";:INPUTA2$:A2=VAL(A2$)-1
8115 IFA2<0ORA2<A1ORA2>255THENPRINT:GOSUB600:GOTO8110
8120 PRINT"WELCHE STIMME:";:GOSUB80:PRINTA$:A3=VAL(A$)
8130 IFA3<1ORA3>3THENGOSUB600:GOTO8120
8150 PRINT"[147]":ZE=0:CC=9:GOSUB500:PRINT""
8160 FORI=A1TOA2
8170 FORR=0TO7
8171 FORT=0TO12:W1=PEEK(VA(A3,1)+I):W2=PEEK(VA(A3,2)+I)
8172 IFW1=HN(R,T)THENGG=1
8173 IFW2=LN(R,T)ANDGG=1THENT1=T:T2=R:GOTO8176
8174 NEXTT
8175 NEXTR
8176 PRINTI+1;"  NOTE:";DA$(T1);:PRINTTAB(20);"OKTAVE:";T2:GG=0:ZE=ZE+1
8177 GETA$:IFA$="[133]"THENRETURN
8178 IFZE>13THENGOSUB90:FORE=0TO16:POKE781,E:SYS59903:NEXT:ZE=0:PRINT""
8180 NEXTI
8190 PRINT"FERTIG.":GOSUB90:RETURN
8999 :
9000 REM DRUCKEN / ENDE
9001 :
9010 PRINT"[147]";TAB(10)"(D)RUCKEN / (E)NDE"
9015 PRINTTAB(8)"==========================="
9020 GOSUB80:IFA$<>"D"ANDA$<>"E"THEN9020
9030 IFA$="D"THEN9050
9040 POKE808,237:END
9050 REM MELODIE DRUCKEN
9055 A1=PEEK(49152):IFA1=0THENA1=255
9060 PRINT"[147]BITTE GEBEN SIE DEN NAMEN EIN :":INPUTK1$
9061 IFLEN(K1$)>40THENPRINT"NAME ZU LANG.":GOSUB90:GOTO9060
9062 PRINT"[147]COPYRIGHT BEI WEM ":INPUTK2$
9063 IFLEN(K2$)>60THENPRINT"NAME ZU LANG.":GOSUB90:GOTO9062
9064 PRINT"[147]ACHTELNOTEN PRO TAKT (4-12) ";:INPUTK3$:K3=VAL(K3$)
9065 IFK3<2ORK3>12THEN9064
9066 PRINT"[147]WELCHE STIMME SOLLEN GEDRUCKT WERDEN   ?"
9067 PRINT"STIMME 1 (J/N) ?":GOSUB80:IFA$<>"J"ANDA$<>"N"THEN9066
9068 IFA$="J"THENF1(1)=1
9069 PRINT"STIMME 2 (J/N) ?":GOSUB80:IFA$<>"J"ANDA$<>"N"THEN9069
9070 IFA$="J"THENF1(2)=1
9071 PRINT"STIMME 3 (J/N) ?":GOSUB80:IFA$<>"J"ANDA$<>"N"THEN9071
9072 IFA$="J"THENF1(3)=1
9080 IFF1(1)=1ANDF1(2)=1ANDF1(3)=1THENF1=1:F2=3:F3=1:GOTO9100
9081 IFF1(1)=1ANDF1(2)=1THENF1=1:F2=2:F3=1:GOTO9100
9082 IFF1(2)=1ANDF1(3)=1THENF1=2:F2=3:F3=1:GOTO9100
9083 IFF1(1)=1ANDF1(3)=1THENF1=1:F2=3:F3=2:GOTO9100
9084 FORI=1TO3:IFF1(I)=1THENF1=I:F2=I:F3=1:GOTO9100
9085 NEXTI
9100 CC=11:GOSUB800:PRINT"";:OPEN5,4:PRINT#5,CHR$(14);
9110 FORI=1TO(40-(LEN(K1$)))/2:PRINT#5,CHR$(32);:NEXT:PRINT#5,K1$
9120 FORI=1TO40:PRINT#5,"=";:NEXT:PRINT#5,CHR$(15);:FORI=1TO3:PRINT#5,CHR$(13);:NEXT
9130 H1=0:H2=15
9135 IFA1<H2THENH2=A1-1:DC=1
9140 FORA3=F1TOF2STEPF3
9145 PRINT#5,A3;") ";:T3=0
9150 FORI=H1TOH2
9160 FORR=0TO7
9170 FORT=0TO12
9180 W1=PEEK(VA(A3,1)+I):W2=PEEK(VA(A3,2)+I)
9190 IFW1=HN(R,T)THENGG=1
9191 IFW2=LN(R,T)-2ANDGG=1THENGG=0:T1=T:T2=R:GOTO9230
9192 IFW2=LN(R,T)-1ANDGG=1THENGG=0:T1=T:T2=R:GOTO9230
9193 IFW2=LN(R,T)+1ANDGG=1THENGG=0:T1=T:T2=R:GOTO9230
9194 IFW2=LN(R,T)+2ANDGG=1THENGG=0:T1=T:T2=R:GOTO9230
9200 IFW2=LN(R,T)ANDGG=1THENGG=0:T1=T:T2=R:GOTO9230
9205 GETA$:IFA$="[133]"THENPRINT#5:CLOSE5:RETURN
9210 NEXTT
9220 NEXTR
9230 IFDA$(T1)="PAUSE"THENJN$="PAU":GOTO9260
9240 JN$=DA$(T1)+STR$(T2):JN$=LEFT$(JN$,2)+RIGHT$(JN$,1)
9250 IFMID$(JN$,2,1)=CHR$(32)THENJN$=LEFT$(JN$,1)+RIGHT$(JN$,1)+CHR$(32)
9260 PRINT#5,JN$;CHR$(32);
9270 T3=T3+1:IFT3=K3THENPRINT#5,"[221] ";:T3=0
9280 NEXTI
9290 PRINT#5,CHR$(10);
9300 NEXTA3
9310 FORI=1TO((H2-H1)+1)*4+9:PRINT#5,"-";:NEXT:PRINT#5,CHR$(10);
9315 FORI=1TO5:PRINT#5,CHR$(32);:NEXT
9320 FORI=H1+1TOH2+1:KL$=STR$(I)
9330 KL$=RIGHT$(KL$,LEN(KL$)-1):XC=LEN(KL$)
9340 IFXC=1THENKL$=CHR$(32)+CHR$(32)+KL$+CHR$(32):GOTO9370
9350 IFXC=2THENKL$=CHR$(32)+KL$+CHR$(32):GOTO9370
9360 KL$=KL$+CHR$(32)
9370 GH=GH+1:IFGH=K3+1THENPRINT#5,CHR$(32);CHR$(32);:GH=1
9380 PRINT#5,KL$;:NEXTI:PRINT#5,CHR$(13);
9390 H3=H1:H1=H2+1
9400 H2=H2+(H2-H3)+1:GH=0:T3=0
9410 IFDC=1THENDC=0:GOTO9440
9420 IFH2>=A1THENH2=A1:DC=1
9430 PRINT#5,CHR$(10);:GOTO9140
9440 PRINT#5,CHR$(13);CHR$(13);CHR$(15);
9450 F$(1)="COMPOSER V3.0 (C) 1986 BEI D.BORCHERT"
9460 F$(2)=K1$+" (C) 1986 BEI "+K2$
9470 FORI=1TO2
9480 FORJ=1TO(80-LEN(F$(I)))/2:PRINT#5,CHR$(32);:NEXT:PRINT#5,F$(I):NEXTI
9490 FORI=1TO3:F1(I)=0:NEXT:PRINT#5:CLOSE5:RETURN
9999 :
10000 REM LESE-UND SCHREIBFEHLER ABFANGEN
10001 :
10009 PRINT"";C;" ";C$
10010 PRINT"SIE KOENNEN DIESEN NAMEN NICHT BENUTZEN"
10020 PRINT"(M) ZURUECK INS HAUPTMENUE"
10030 PRINT"(N) NOCH EIN VERSUCH   "
10040 GOSUB80
10050 IFA$="M"THENRETURN
10060 IFA$="N"ANDMP=1THEN1000
10070 IFA$="N"ANDMP=2THEN2000
10075 IFA$="N"ANDMP=8THEN8000
10080 GOTO10040
10999 :
11000 REM DATEN VON NOTEN UND ZEHLDAUER
11001 :
11005 DATAC,#C,D,#D,E,F,#F,G,#G,A,#A,H,PAUSE
11010 DATA1/1,7/8,3/4,5/8,1/2,3/8,1/4,1/8
11020 DATA49200,49500,49800,50100,50400,50700
11025 REM DATEN FUER WINDOWS
11030 DATA WELLENFORMEN,------------,17 = DREIECK,33 = SAEGEZAHN
11040 DATA65 = RECHTECK,129 = RAUSCHEN
11050 DATAPULSFORM,--------,WERTE VON 0-15,L-BYTE=NIEDERWERT. -
11060 DATAH-BYTE=HOEHERWERT. -,BYTE
11070 DATAANSCHLAG/ABSCHWELLEN,--------------------,,BITTE NUR WERTE
11080 DATAVON 0-15,EINGEBEN
11090 DATAHALTEN/AUSKLINGEN,-----------------,,NUR WERTE,VON 0-15,SIND ZULAESSIG
11100 DATA---------------------,LAUTSTAERKE,WERTE VON 0-15
11110 DATA---------------------,GESCHWINDIGKEIT,WERTE VON 4-32
11120 DATAANZAHL DER NOTEN,---------------,,EINGABEN VON,0-256,SIND MOEGLICH
11130 DATA(CURSORTASTEN)=NOTE AUSSUCHEN,(FUNKT.TASTEN)=DAUER
11140 DATA(N)=EINE NOTE VOR,(V)=NAECHSTE STIMME EINGEBEN
11150 DATA(SHIFT-HOME)=ZURUECK ZUM MENUE,(_)=EINE NOTE ZURUECK
11160 DATABITTE EINEN MOMENT GEDULD.,DIE MUSIKSTUECKE WERDEN
11170 DATAABSOLUT AUF DISKETTE/KASSETTE,GESCHRIEBEN. DESHALB
11180 DATADAUERT ES ETWAS LAENGER,
11190 DATABITTE HABEN SIE,EINEN MOMENT,GEDULD,,,
11200 DATADISKETTENBEFEHLE,Q!=HAUPTMENUE
11210 DATA$!=INHALTSVERZEICHNIS,"S!NAME=LOESCHT DAS FILE NAME"
11220 DATAV!=VALIDIEREN DER DISKETTE,I!=INITIALISIEREN DER DISKETTE
11230 DATADRUECKEN SIE <F1>,UM DEN DRUCKVORGANG ZU,UNTERBRECHEN. BITTE
11240 DATAHABEN SIE ETWAS GEDULD,DER COMPUTER UND DER,DRUCKER LEISTEN HARTE ARBEIT.