// nxtTXT runtime module by takuya matsubara
// BCC build 3.3.7.18
#include "NXCDefs.h"

#define OUT_ARM OUT_B
#define OUT_RIGHTLEFT OUT_AC
#define OUT_RIGHT OUT_A
#define OUT_LEFT OUT_C
#define DEFPOWER 75

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);
         if(buf == "BEEP"){
            PlayTone(440, 500); // Play 'A' for one half second
            Wait(800);
         }
         if(buf == "TURN_LEFT"){
            OnFwd(OUT_RIGHT, DEFPOWER);
            OnRev(OUT_LEFT, DEFPOWER);
            Wait(800);
            Off(OUT_RIGHTLEFT);
         }
         if(buf == "TURN_RIGHT"){
            OnFwd(OUT_LEFT, DEFPOWER);
            OnRev(OUT_RIGHT, DEFPOWER);
            Wait(800);
            Off(OUT_RIGHTLEFT);
         }
         if(buf == "FOW"){
            OnFwd(OUT_LEFT, DEFPOWER);
            OnFwd(OUT_RIGHT, DEFPOWER);
            Wait(1000);
            Off(OUT_RIGHTLEFT);
         }
         if(buf == "PUT_ARM"){
            OnFwd(OUT_ARM, DEFPOWER);
            Wait(1000);
            Off(OUT_ARM);
         }         y = y-8;
         if(y < 0)break;
     }
   }
   CloseFile(handle);

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