#include <stdio.h>
#include <string.h>

char i[100];

int Dim()
{
if (i[3] == ' ' && i[4] >= 65 && i[4] <=91 && strlen(i) == 6)
{
printf("variable definition %c \n ",i[4]);
}
}

int Print()
{
if (i[5] == ' ' && i[6] == '\"' && i[strlen(i)-2] == '\"' );

for (int it = 7; it < strlen(i)-2; it++)
{
printf("%c",i[it]);
}
printf("\n");

}

int FindWord(char i[])
{
if (i[0] == 'P' && i[1] == 'R' && i[2] == 'I' && i[3] == 'N' && i[4] =='T')
{
Print();
}

if (i[0]=='D' && i[1] == 'I' && i[2] =='M')
{
Dim();
}

}

int main ()
{
FILE * pFile;
pFile = fopen ("script.bas","r");

while (!feof(pFile))
{
if (fgets(i,100,pFile))
{
FindWord(i);
}
}
getchar();
return 0;
}