Поконкретней:
SUB(mysub31)
TFCLEAR("zakonchili.txt", 0)
STRWRITELN("zakonchili.txt","mysub32",0)
IF($PS = 1)
WHEELDOWN(100)
$NAJAT = "Kartinki\KartinkiPS\VipolnitPS.bmp"
$NAJAT1 = "Kartinki\KartinkiYT\ProsmotriYT.bmp"
$NAJAT2 = "Kartinki\KartinkiPS\PS.bmp"
$stcoord_X = 400
$stcoord_Y = 560
$encoord_X = $_xmax
$encoord_Y = $_ymax
$percent = 100
$colorm = 0
$offsetX = 20
$offsetY = -20
#include "Zadanie.cms"
END_IF
END_SUB
SUB(mysub31)
TFCLEAR("zakonchili.txt", 0)
STRWRITELN("zakonchili.txt","mysub33",0)
IF($PS = 1)
WHEELDOWN(100)
$NAJAT = "Kartinki\KartinkiPS\VipolnitPS.bmp"
$NAJAT1 = "Kartinki\KartinkiYT\ProsmotriYT.bmp"
$NAJAT2 = "Kartinki\KartinkiPS\PS.bmp"
$stcoord_X = 400
$stcoord_Y = 560
$encoord_X = $_xmax
$encoord_Y = $_ymax
$percent = 100
$colorm = 0
$offsetX = 20
$offsetY = -20
#include "Zadanie.cms"
END_IF
END_SUB
SUB(mysub31)
TFCLEAR("zakonchili.txt", 0)
STRWRITELN("zakonchili.txt","mysub34",0)
IF($PS = 1)
WHEELDOWN(100)
$NAJAT = "Kartinki\KartinkiPS\VipolnitPS.bmp"
$NAJAT1 = "Kartinki\KartinkiYT\ProsmotriYT.bmp"
$NAJAT2 = "Kartinki\KartinkiPS\PS.bmp"
$stcoord_X = 400
$stcoord_Y = 560
$encoord_X = $_xmax
$encoord_Y = $_ymax
$percent = 100
$colorm = 0
$offsetX = 20
$offsetY = -20
#include "Zadanie.cms"
END_IF
END_SUB
$SKIP = STRREADLN("zakonchili.txt", 1)
// здесь нужно вызывать подпрограмму, при каждом цикле ту, название которой прописалось в txt файл.