**Dr.Godfried-Willem RAES**

**Kursus Experimentele Muziek**:
Boekdeel 5: Notatie - DARMS

Hogeschool Gent : Departement Muziek & Drama

**5910:**

** Filekonversie: MKDARMS**

Het hiernavolgende programma maakt automatisch DARMS-files aan vanuit binaire muziekbestanden (zoals voortgebracht door algoritmische kompositiesoftware). Voor elke afzonderlijke stem, wordt een afzonderlijke DARMS-file aangemaakt. Deze DARMS-files kunnen door noteprocessor rechtstreeks worden ingelezen en in muziekschrift omgezet.

Omdat het vrij eenvoudig mogelijk is allerlei extra's aan dit programma toe te voegen leek het ons nuttig de volledige bron-kode hierbij af te drukken.

' DARMS.BAS

'$DYNAMIC

DEFINT A-Z :DEFLNG E, I, K : CONST FALSE = 0, TRUE = 1, DEBUG = -1

CLS

MAIN:

GOSUB MENU1:

OPEN C$ FOR BINARY AS #1

ENDCOUNT = LOF(1) \ 15 : K = 1: I = 0: J = 0: L = 0

DIM P(ENDCOUNT, 14) AS INTEGER

GOSUB BLANK1

LOCATE 12, 10: PRINT " Reading "; C$; " ... "

WHILE NOT EOF(1)

IF L < 15 THEN

J = J + 1 : J = J MOD 15

GET #1, K, P(I, J): K = K + 1

IF P(I, J) > 255 THEN

P(I, J) = P(I, J) \ 256

ELSE

IF J > 0 THEN P(I, J) = 0

END IF

IF J = 0 THEN I = I + 1

L = L + 1: L = L MOD 16

ELSE

GET #1, K, DUMMY

IF K MOD 16 = 0 THEN

IF DUMMY >= 0 THEN P(I, J) = DUMMY \ 256 ELSE P(I, J) = DUMMY

END IF

K = K + 1: L = L + 1: L = L MOD 16

END IF

WEND

CLOSE #1 : GOSUB BLANK1

LOCATE 12, 10: PRINT C$; " written to array ... "

SLEEP 2 : GOSUB BLANK1 : ENDCOUNT = I

ANT:

GOSUB BLANK1 : GOSUB MENU2

LOCATE 12, 5: PRINT "Writing DARMS-code to "; XFILE$;

OPEN XFILE$ FOR OUTPUT AS #1

S = (V * 2) - 1

H$ = "!I" + MID$(STR$(V), 2) + " " + CLEF$ + " !M" + BAR$ + " "

PRINT #1, H$;

'Adjusting different clefs

IF CLEF$ = "!G" THEN CLEF = 0

IF CLEF$ = "!F" THEN CLEF = 12

IF CLEF$ = "5!C" THEN CLEF = 6

IF CLEF$ = "7!C" THEN CLEF = 8

IF CLEF$ = "!G-8" THEN CLEF = 7

'Adjusting different time signatures

IF BAR$ = "2:16" THEN BAR = RITV / 8

IF BAR$ = "3:16" THEN BAR = RITV * (3 / 16)

IF BAR$ = "4:16" THEN BAR = RITV / 4

IF BAR$ = "5:16" THEN BAR = RITV * (5 / 16)

IF BAR$ = "6:16" THEN BAR = RITV * (6 / 16)

IF BAR$ = "7:16" THEN BAR = RITV * (7 / 16)

IF BAR$ = "9:16" THEN BAR = RITV * (3 / 16)

IF BAR$ = "12:16" THEN BAR = RITV * (6 / 16)

IF BAR$ = "2:8" THEN BAR = RITV / 4

IF BAR$ = "3:8" THEN BAR = RITV * (3 / 8)

IF BAR$ = "4:8" THEN BAR = RITV / 2

IF BAR$ = "5:8" THEN BAR = RITV * (5 / 8)

IF BAR$ = "6:8" THEN BAR = RITV * (6 / 8)

IF BAR$ = "7:8" THEN BAR = RITV * (7 / 8)

IF BAR$ = "9:8" THEN BAR = RITV * (3 / 8)

IF BAR$ = "12:8" THEN BAR = RITV * (6 / 8)

IF BAR$ = "11:8" THEN BAR = RITV * (1 / 8)

IF BAR$ = "13:8" THEN BAR = RITV * (1 / 8)

IF BAR$ = "2:4" THEN BAR = RITV / 2

IF BAR$ = "3:4" THEN BAR = RITV * (3 / 4)

IF BAR$ = "4:4" THEN BAR = RITV

IF BAR$ = "5:4" THEN BAR = RITV / 4

IF BAR$ = "6:4" THEN BAR = RITV * (3 / 4)

IF BAR$ = "7:4" THEN BAR = RITV / 4

IF BAR$ = "27:32" THEN BAR = RITV * (27 / 32)

IF BAR$ = "2:2" THEN BAR = RITV

IF BAR$ = "5:2" THEN BAR = RITV / 2

IF BAR$ = "9:16" OR BAR$ = "9:8" THEN

L = 3

ELSEIF BAR$ = "12:16" OR BAR$ = "12:8" OR BAR$ = "6:4" THEN

L = 2

ELSEIF BAR$ = "5:4" THEN

L = 5

ELSEIF BAR$ = "5:2" THEN

L = 5

ELSEIF BAR$ = "7:4" THEN

L = 7

ELSEIF BAR$ = "13:8" THEN

L = 13

ELSEIF BAR$ = "11:8" THEN

L = 11

ELSE

L = 1

END IF

TAKT = 0

LB = 0

FOR I = 0 TO ENDCOUNT

IF P(I, S) > 0 AND P(I, S + 1) > 0 THEN

IF I < 1 THEN

OLD = P(I, S)

DUUR = 0

TAKT = 0

END IF

IF I > 0 THEN

DUUR = DUUR + 1

TAKT = TAKT + 1

IF TAKT < BAR THEN

GOSUB CVERT: PRINT #1, NT$; DR$; " ";

OLD = P(I, S)

DUUR = 0

TAKT = TAKT

END IF

IF TAKT = BAR THEN

LB = LB + 1

IF LB = L THEN

GOSUB CVERT: PRINT #1, NT$; DR$; " "; "/"

LB = 0

ELSE

GOSUB CVERT: PRINT #1, NT$; DR$; " ";

LB = LB

END IF

OLD = P(I, S)

DUUR = 0

TAKT = 0

END IF

END IF

END IF

IF P(I, S) > 0 AND P(I, S + 1) = 0 THEN

DUUR = DUUR + 1

TAKT = TAKT + 1

IF OLD > 0 THEN

IF TAKT < BAR THEN

GOSUB CVERT: PRINT #1, NT$; DR$; " ";

OLD = 0

DUUR = 0

TAKT = TAKT

END IF

IF TAKT = BAR THEN

LB = LB + 1

IF LB = L THEN

GOSUB CVERT: PRINT #1, NT$; DR$; " "; "/"

LB = 0

ELSE

GOSUB CVERT: PRINT #1, NT$; DR$; " ";

LB = LB

END IF

OLD = 0

DUUR = 0

TAKT = 0

END IF

END IF

IF OLD = 0 THEN

IF TAKT < BAR THEN

OLD = OLD

DUUR = DUUR

TAKT = TAKT

END IF

IF TAKT = BAR THEN

LB = LB + 1

IF LB = L THEN

GOSUB CVERT: PRINT #1, NT$; DR$; " "; "/"

LB = 0

ELSE

GOSUB CVERT: PRINT #1, NT$; DR$; " ";

LB = LB

END IF

OLD = OLD

DUUR = 0

TAKT = 0

END IF

END IF

END IF

IF P(I, S) = 0 AND P(I, S + 1) = 0 THEN

IF I < 1 THEN

OLD = P(I, S)

DUUR = 0

TAKT = 0

END IF

IF I > 0 THEN

DUUR = DUUR + 1

TAKT = TAKT + 1

IF TAKT < BAR THEN

OLD = OLD

DUUR = DUUR

TAKT = TAKT

END IF

IF TAKT = BAR THEN

LB = LB + 1

IF LB = L THEN

IF OLD > 0 THEN

GOSUB CVERT: PRINT #1, NT$; DR$; "J "; "/"

ELSE

GOSUB CVERT: PRINT #1, NT$; DR$; " "; "/"

END IF

LB = 0

ELSE

IF OLD > 0 THEN

GOSUB CVERT: PRINT #1, NT$; DR$; "J ";

ELSE

GOSUB CVERT: PRINT #1, NT$; DR$; " ";

END IF

LB = LB

END IF

OLD = OLD

DUUR = 0

TAKT = 0

END IF

END IF

END IF

NEXT I

CLOSE #1

L = 0

GOSUB BLANK1

LOCATE 12, 5: PRINT "One part converted and written to "; XFILE$;

SLEEP 2

GOSUB BLANK1

K$ = ""

LOCATE 12, 5: PRINT "Do you want to convert another part ? (Y/N)"

WHILE K$ = "": K$ = INKEY$: WEND

IF K$ = "Y" OR K$ = "y" THEN

GOSUB BLANK1

GOTO ANT

ELSE

END

END IF

CVERT:

REST = (TAKT - DUUR)

GOSUB NTCVERT

IF RITV = 32 THEN GOSUB RITDIV1

IF RITV = 16 THEN GOSUB RITDIV2

RETURN

RITDIV1:

IF DUUR MOD RITV = 0 THEN

NT$ = NTT$

DR$ = "W"

END IF

IF DUUR MOD RITV = 31 THEN

IF REST MOD 2 = 0 THEN

NT$ = NTT$ + "H." + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 2 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "H."

END IF

END IF

IF DUUR MOD RITV = 30 THEN

IF REST MOD 3 = 0 THEN

NT$ = NTT$ + "H." + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 3 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 3 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "H."

END IF

END IF

IF DUUR MOD RITV = 29 THEN

IF REST MOD 4 = 0 THEN

NT$ = NTT$ + "H" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 4 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 4 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 4 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "H."

END IF

END IF

IF DUUR MOD RITV = 28 THEN

IF REST MOD 5 = 0 THEN

NT$ = NTT$ + "H." + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 5 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "H" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 5 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 5 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 5 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$

DR$ = "H."

END IF

END IF

IF DUUR MOD RITV = 27 THEN

IF REST MOD 6 = 0 THEN

NT$ = NTT$ + "H." + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 6 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 6 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 6 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 6 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 6 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$

DR$ = "H."

END IF

END IF

IF DUUR MOD RITV = 26 THEN

IF REST MOD 7 = 0 THEN

NT$ = NTT$ + "H." + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 7 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 7 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 7 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "H"

NT$ = NT$ + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 7 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 7 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 7 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$

DR$ = "H."

END IF

END IF

IF DUUR MOD RITV = 25 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "H." + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$

DR$ = "H."

END IF

END IF

IF DUUR MOD RITV = 24 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$

DR$ = "H."

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "H" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E.."

END IF

END IF

IF DUUR MOD RITV = 23 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "H" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "H"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E."

END IF

END IF

IF DUUR MOD RITV = 22 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "H" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "H"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "H" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

END IF

IF DUUR MOD RITV = 21 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "H" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "H"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "E"

END IF

END IF

IF DUUR MOD RITV = 20 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "H" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "Q" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$

DR$ = "H"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S."

END IF

END IF

IF DUUR MOD RITV = 19 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "H" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "Q."

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "Q" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "Q." + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$

DR$ = "H"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "S"

END IF

END IF

IF DUUR MOD RITV = 18 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "H" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "Q."

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "Q"

NT$= NT$ + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "Q." + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$

DR$ = "H"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "H" + J$ + NTT$

DR$ = "T"

END IF

END IF

IF DUUR MOD RITV = 17 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "H" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "Q."

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "Q." + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$

DR$ = "H"

END IF

END IF

IF DUUR MOD RITV = 16 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$

DR$ = "H"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "Q" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E.."

END IF

END IF

IF DUUR MOD RITV = 15 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "Q" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "Q"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "Q." + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$

DR$ = "Q."

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "Q" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E."

END IF

END IF

IF DUUR MOD RITV = 14 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "Q" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "Q"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "Q." + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$

DR$ = "Q."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "Q" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

END IF

IF DUUR MOD RITV = 13 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "Q" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "Q"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "Q." + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "E"

END IF

END IF

IF DUUR MOD RITV = 12 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$

DR$ = "Q."

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$

DR$ = "Q."

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S."

END IF

END IF

IF DUUR MOD RITV = 11 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "Q" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$

DR$ = "Q"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "S"

END IF

END IF

IF DUUR MOD RITV = 10 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "Q" + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$

DR$ = "E.."

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$

DR$ = "Q"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "Q" + J$ + NTT$

DR$ = "T"

END IF

END IF

IF DUUR MOD RITV = 9 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$ + "Q" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "E"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$

DR$ = "Q"

END IF

END IF

IF DUUR MOD RITV = 8 THEN

IF REST MOD 8 = 0 THEN

NT$ = NTT$

DR$ = "Q"

END IF

IF REST MOD 8 = 1 THEN

NT$ = NTT$ + "E.." + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$

DR$ = "S"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "S."

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$

DR$ = "Q"

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$ + "E" + J$ + NTT$

DR$ = "T"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$

DR$ = "E."

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$: DR$ = "E.."

END IF

END IF

IF DUUR MOD RITV = 7 THEN

IF REST MOD 8 = 0 OR REST MOD 8 = 1 THEN

NT$ = NTT$ : DR$ = "E.."

END IF

IF REST MOD 8 = 2 THEN

NT$ = NTT$ + "E." + J$ + NTT$: DR$ = "T"

END IF

IF REST MOD 8 = 3 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$: DR$ = "S"

END IF

IF REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$: DR$ = "S."

END IF

IF REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$: DR$ = "E"

END IF

IF REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "E" + J$ + NTT$: DR$ = "T"

END IF

IF REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ : DR$ = "E."

END IF

END IF

IF DUUR MOD RITV = 6 THEN

IF REST MOD 8 = 0 OR REST MOD 8 = 2 THEN

NT$ = NTT$ :DR$ = "E."

END IF

IF REST MOD 8 = 1 OR REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$:DR$ = "S."

END IF

IF REST MOD 8 = 3 OR REST MOD 8 = 7 THEN

NT$ = NTT$ + "T" + J$ + NTT$ + "E" + J$ + NTT$:DR$ = "T"

END IF

IF REST MOD 8 = 4 OR REST MOD 8 = 6 THEN

NT$ = NTT$ + "E" + J$ + NTT$:DR$ = "S"

END IF

END IF

IF DUUR MOD RITV = 5 THEN

IF REST MOD 8 = 0 OR REST MOD 8 = 4 THEN

NT$ = NTT$ + "E" + J$ + NTT$:DR$ = "T"

END IF

IF REST MOD 8 = 1 OR REST MOD 8 = 5 THEN

NT$ = NTT$ + "S." + J$ + NTT$: DR$ = "S"

END IF

IF REST MOD 8 = 2 OR REST MOD 8 = 6 THEN

NT$ = NTT$ + "S" + J$ + NTT$:DR$ = "S."

END IF

IF REST MOD 8 = 3 OR REST MOD 8 = 7 THEN NT$ = NTT$ + "T" + J$ + NTT$: DR$ = "E"

IF DUUR MOD RITV = 4 THEN

IF REST MOD 4 = 0 OR REST MOD 4 = 2 THEN NT$ = NTT$ :DR$ = "E"

IF REST MOD 4 = 1 THEN NT$ = NTT$ + "S." + J$ + NTT$: DR$ = "T"

IF REST MOD 4 = 3 THEN NT$ = NTT$ + "T" + J$ + NTT$: DR$ = "S."

END IF

IF DUUR MOD RITV = 3 THEN

IF REST MOD 4 = 0 OR REST MOD 4 = 1 THEN NT$ = NTT$: DR$ = "S."

IF REST MOD 4 = 2 THEN NT$ = NTT$ + "S" + J$ + NTT$: DR$ = "T"

IF REST MOD 4 = 3 THEN NT$ = NTT$ + "T" + J$ + NTT$: DR$ = "S"

END IF

IF DUUR MOD RITV = 2 THEN NT$ = NTT$: DR$ = "S"

IF DUUR MOD RITV = 1 THEN NT$ = NTT$: DR$ = "T"

REST = 0

RETURN

RITDIV2:

IF DUUR MOD RITV = 0 THEN NT$ = NTT$: DR$ = "W"

IF DUUR MOD RITV = 15 THEN

IF REST MOD 2 = 0 THEN NT$ = NTT$ + "H." + J$ + NTT$: DR$ = "E."

IF REST MOD 2 = 1 THEN NT$ = NTT$ + "E." + J$ + NTT$: DR$ = "H."

END IF

IF DUUR MOD RITV = 14 THEN

IF REST MOD 3 = 0 THEN NT$ = NTT$ + "H." + J$ + NTT$: DR$ = "E"

IF REST MOD 3 = 1 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$: DR$ = "E."

END IF

IF REST MOD 3 = 2 THEN NT$ = NTT$ + "E" + J$ + NTT$ : DR$ = "H."

END IF

IF DUUR MOD RITV = 13 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$ + "H." + J$ + NTT$: DR$ = "S"

IF REST MOD 4 = 1 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$ : DR$ = "E"

END IF

IF REST MOD 4 = 2 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$: DR$ = "E."

END IF

IF REST MOD 4 = 3 THEN NT$ = NTT$ + "S" + J$ + NTT$: DR$ = "H"

END IF

IF DUUR MOD RITV = 12 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$ : DR$ = "H."

IF REST MOD 4 = 1 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "H" + J$ + NTT$: DR$ = "S"

END IF

IF REST MOD 4 = 2 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$: DR$ = "E"

END IF

IF REST MOD 4 = 3 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$ : DR$ = "E."

END IF

END IF

IF DUUR MOD RITV = 11 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$ + "H" + J$ + NTT$: DR$ = "E."

IF REST MOD 4 = 1 THEN NT$ = NTT$ + "E." + J$ + NTT$ :DR$ = "H"

IF REST MOD 4 = 2 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "H" + J$ + NTT$: DR$ = "S"

END IF

IF REST MOD 4 = 3 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$ :DR$ = "E"

END IF

END IF

IF DUUR MOD RITV = 10 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$ + "H" + J$ + NTT$ : DR$ = "E"

IF REST MOD 4 = 1 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "Q" + J$ + NTT$ : DR$ = "E."

END IF

IF REST MOD 4 = 2 THEN NT$ = NTT$ + "E" + J$ + NTT$ : DR$ = "H"

IF REST MOD 4 = 3 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "H" + J$ + NTT$ : DR$ = "S"

END IF

END IF

IF DUUR MOD RITV = 9 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$ + "H" + J$ + NTT$ : DR$ = "S"

IF REST MOD 4 = 1 THEN NT$ = NTT$ + "E." + J$ + NTT$ : DR$ = "Q."

IF REST MOD 4 = 2 THEN

NT$ = NTT$ + "E" + J$ + NTT$ + "Q" + J$ + NTT$ : DR$ = "E."

END IF

IF REST MOD 4 = 3 THEN NT$ = NTT$ + "S" + J$ + NTT$: DR$ = "H"

END IF

IF DUUR MOD RITV = 8 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$: DR$ = "H"

IF REST MOD 4 = 1 THEN

NT$ = NTT$ + "E." + J$ + NTT$ + "Q" + J$ + NTT$ : DR$ = "S"

END IF

IF REST MOD 4 = 2 THEN NT$ = NTT$ + "E" + J$ + NTT$ :DR$ = "Q."

IF REST MOD 4 = 3 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "Q" + J$ + NTT$ : DR$ = "E."

END IF

END IF

IF DUUR MOD RITV = 7 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$ + "Q" + J$ + NTT$:DR$ = "E."

IF REST MOD 4 = 1 THEN NT$ = NTT$ + "E." + J$ + NTT$:DR$ = "Q"

IF REST MOD 4 = 2 THEN NT$ = NTT$ + "Q." + J$ + NTT$:DR$ = "S"

IF REST MOD 4 = 3 THEN NT$ = NTT$ + "S" + J$ + NTT$:DR$ = "Q."

END IF

IF DUUR MOD RITV = 6 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$ :DR$ = "Q."

IF REST MOD 4 = 1 THEN NT$ = NTT$ + "E." + J$ + NTT$ :DR$ = "E."

IF REST MOD 4 = 2 THEN NT$ = NTT$ :DR$ = "Q."

IF REST MOD 4 = 3 THEN

NT$ = NTT$ + "S" + J$ + NTT$ + "Q" + J$ + NTT$ : DR$ = "S"

END IF

END IF

IF DUUR MOD RITV = 5 THEN

IF REST MOD 4 = 0 THEN NT$ = NTT$ + "Q" + J$ + NTT$:DR$ = "S"

IF REST MOD 4 = 1 THEN NT$ = NTT$ + "E." + J$ + NTT$ :DR$ = "E"

IF REST MOD 4 = 2 THEN NT$ = NTT$ + "E" + J$ + NTT$: DR$ = "E."

IF REST MOD 4 = 3 THEN NT$ = NTT$ + "S" + J$ + NTT$ :DR$ = "Q"

END IF

IF DUUR MOD RITV = 4 THEN

IF REST MOD 4 = 0 OR REST MOD 4 = 2 THEN

NT$ = NTT$ : DR$ = "Q"

END IF

IF REST MOD 4 = 1 THEN NT$ = NTT$ + "E." + J$ + NTT$ :DR$ = "S"

IF REST MOD 4 = 3 THEN NT$ = NTT$ + "S" + J$ + NTT$: DR$ = "E."

END IF

IF DUUR MOD RITV = 3 THEN

IF REST MOD 4 = 0 OR REST MOD 4 = 1 THEN NT$ = NTT$ : DR$ = "E."

IF REST MOD 4 = 2 THEN NT$ = NTT$ + "E" + J$ + NTT$: DR$ = "S"

IF REST MOD 4 = 3 THEN NT$ = NTT$ + "S" + J$ + NTT$ :DR$ = "E"

END IF

IF DUUR MOD RITV = 2 THEN NT$ = NTT$ :DR$ = "E"

IF DUUR MOD RITV = 1 THEN NT$ = NTT$ : DR$ = "S"

REST = 0

RETURN

NTCVERT:

IF OLD > 0 THEN

IF OLD MOD 12 = 0 THEN NTT$ = STR$(6 + (((OLD - 72) \ 12) * 7) + CLEF)

IF OLD MOD 12 = 1 THEN NTT$ = STR$(6 + ((((OLD - 1) - 72) \ 12) * 7) + CLEF) + "#"

IF OLD MOD 12 = 2 THEN NTT$ = STR$(0 + (((OLD - 62) \ 12) * 7) + CLEF)

IF OLD MOD 12 = 3 THEN NTT$ = STR$(0 + ((((OLD - 1) - 62) \ 12) * 7) + CLEF) + "#"

IF OLD MOD 12 = 4 THEN NTT$ = STR$(1 + (((OLD - 64) \ 12) * 7) + CLEF)

IF OLD MOD 12 = 5 THEN NTT$ = STR$(2 + (((OLD - 65) \ 12) * 7) + CLEF)

IF OLD MOD 12 = 6 THEN NTT$ = STR$(2 + ((((OLD - 1) - 65) \ 12) * 7) + CLEF) + "#"

IF OLD MOD 12 = 7 THEN NTT$ = STR$(3 + (((OLD - 67) \ 12) * 7) + CLEF)

IF OLD MOD 12 = 8 THEN NTT$ = STR$(3 + ((((OLD - 1) - 67) \ 12) * 7) + CLEF) + "#"

IF OLD MOD 12 = 9 THEN NTT$ = STR$(4 + (((OLD - 69) \ 12) * 7) + CLEF)

IF OLD MOD 12 = 10 THEN NTT$ = STR$(5 + ((((OLD + 1) - 71) \ 12) * 7) + CLEF) + "-"

IF OLD MOD 12 = 11 THEN NTT$ = STR$(5 + (((OLD - 71) \ 12) * 7) + CLEF)

IF VAL(NTT$) >= 0 THEN NTT$ = MID$(NTT$, 2)

END IF

IF OLD = 0 THEN NTT$ = "R"

IF NTT$ = "R" THEN J$ = " " ELSE J$ = "J "

RETURN

MENU1:

CLS

LOCATE 3, 20: PRINT "* DARMS - MUSIC NOTATION FILE-CONVERTOR *"

LOCATE 4, 20: PRINT "******************************************"

LOCATE 5, 20: PRINT "A binary-file to DARMS-code converter (V. 2.1)"

LOCATE 6, 60: PRINT "Geert Logghe & Godfried-Willem Raes 1991/1992"

LOCATE 10, 20: PRINT "Enter file-specs (full path) of binary file ... ":

LOCATE 11, 20: INPUT C$

RETURN

MENU2:

LOCATE 12, 5:

INPUT "Which part: Sop(1); Alt(2); Ten(3); Bas(4); etc... ? "; STEM

IF STEM = 0 THEN

V = V + 1: STEM = V

ELSE

V = STEM

END IF

IF V = 0 THEN V = 1

IF V > 8 THEN

LOCATE 12, 5: PRINT " Bad choice ... do it again ";: SLEEP 2

GOTO MENU2

END IF

LOCATE 13, 20

PRINT " Converting voice number "; V;

LOCATE 14, 5

INPUT "Type of clef: Sop(!G); Bas(!F); Tenor(!G-8); Alt(5!C); Tenor(7!C) ?", SLEUTEL$

IF SLEUTEL$ <> "" THEN CLEF$ = SLEUTEL$

IF CLEF$ = "" THEN

LOCATE 14, 5

PRINT " Bad Choice... do it again ";

SLEEP 2: GOTO MENU2

END IF

LOCATE 15, 20 : PRINT " Using the "; CLEF$; " clef.";

IF BAR$ = "" THEN

LOCATE 16, 5: PRINT "Type of time-signature:";

LOCATE 17, 10:

PRINT " 2:16 3:16 4:16 5:16 6:16 7:16 9:16 12:16";

LOCATE 18, 10:

PRINT " 2:8 3:8 4:8 5:8 6:8 7:8 9:8 12:8";

LOCATE 19, 10: PRINT " 2:4 3:4 4:4 5:4 6:4 7:4 27:32 ";

LOCATE 20, 10: PRINT " 2:2 11:8 13:8 5:2 ";

LOCATE 21, 10: INPUT BAR$

END IF

IF RITV = 0 THEN

LOCATE 22, 5: INPUT "Smallest rhythmic value (32, 16) ?"; RITV

END IF

IF RITV = 0 THEN RITV = 32: ' konstante voor GWR's fuga's

LOCATE 23, 10: INPUT "Destination path & file ?:"; XFILE$

GOSUB BLANK2

RETURN

BLANK1:

LOCATE 12, 1:PRINT ;

RETURN

BLANK2:

FOR I = 0 TO 14 :LOCATE 10 + I, 1 : PRINT ;: NEXT I

RETURN

Filedate: 900928

Terug naar inhoudstafel kursus: <Index Kursus> |
Naar homepage dr.Godfried-Willem RAES |