MPTtoVT Converter

[Enigmatic]

Там явно не текстовый формат.

Скрытый текст

CLS
PRINT "MPTtoVT pattern CONVERTER V0.2 betta"
LOCATE 5, 1:
op1: INPUT "Открыть файл"; o$
IF o$ <> "" THEN GOTO op2 ELSE PRINT "Имя файла не может быть пустым!":
PRINT "": GOTO op1
op2: INPUT "Сохранить как"; s$
OPEN o$ FOR INPUT AS #1
OPEN s$ FOR OUTPUT AS #2
PRINT "Записи в файле:"
PRINT
PRINT #2, "Vortex Tracker II v1.0 Pattern"
a: DO WHILE NOT EOF(1)
INPUT #1, data$
pos1$ = MID$(data$, 2, 3): IF pos1$ = "..." THEN pos1$ = "---" ELSE IF pos1$ = "===" THEN pos1$ = "R--"
pos2$ = MID$(data$, 14, 3): IF pos2$ = "..." THEN pos2$ = "---" ELSE IF pos2$ = "===" THEN pos2$ = "R--"
pos3$ = MID$(data$, 26, 3): IF pos3$ = "..." THEN pos3$ = "---" ELSE IF pos3$ = "===" THEN pos3$ = "R--"
IF pos1$ = "odP" THEN GOTO a
PRINT #2, "....|..|"; pos1$; " .... ....|"; pos2$; " .... ....|"; pos3$; " ....
...."
PRINT "....|..|"; pos1$; " .... ....|"; pos2$; " .... ....|"; pos3$; " .... ...."
LOOP
CLOSE #1: CLOSE #2

[свернуть]