Übertragung einer Textvariablen an den Sharp PC-1401 mit Arduino UNO

// Uebertraegt eine Standard Textvariable mittels Serial.write an den Sharp PC-1401

char Textvariable[7] = "PC-1401"; // genau 7 Zeichen entsprechen einer Sharp Standard Textvariablen

void setup() {
  Serial.begin(9600);
  pinMode(2, INPUT);
}

void loop() {
  if (digitalRead(2) == HIGH) {
    for (int i=0; i<7; i++) {
      while (!digitalRead(2));
      Serial.write(Textvariable[i]);
      while (digitalRead(2));
    }
  }  
}

10:RESTORE
20:FOR X=0 TO 58
30:READ D
40:POKE &4200+X,D
50:NEXT X
100:"V"
110:A$=""
120:CALL &4200
130:PRINT "SHARP "+A$
140:GOTO 110
200:DATA 120,&42,&33,&85,2,&46,219,&84,2,&98,219,2,6,52
210:DATA 2,1,18,94,219,95,2,64,80,219,223,107,128,57,3
220:DATA 2,1,3,0,&83,107,128,40,2,71,90,43,7,4,83,35,18,94,219,95
230:DATA 47,36,16,&41,&FE,&84,0,1,27,55