// BCC build 3.3.7.18
#include "NXCDefs.h"

task main(){
   byte handle;
   int fsize;
   int y=56;
   string buf;
   bool eof = false;

   if(OpenFileRead("program.txt", fsize, handle) == NO_ERR) {
     while (eof != true){
         if(ReadLnString(handle,buf) != NO_ERR) eof = true;
         TextOut(0,y,buf);
         y = y-8;
         if(y < 0)break;
     }
   }
   CloseFile(handle);

   while(ButtonPressed(BTN4, true)==0);
}