The Fix------------------
...  
  ELSEIF tmp1 = 80 THEN
    DEBUG "Enter string # to Display", CR
    DEBUGIN DEC tmp5
    IF tmp5 = 30 THEN
      FOR tmp3 = 1 TO 10
        SEROUT Dsp1, 84,[DspCmd1]
        SEROUT Dsp1, 84,[DspFunc]
        PAUSE 5
        NEXT
      tmp5 = 0
      SEROUT Dsp1, 84,[DspCmd1]
      SEROUT Dsp1, 84,[DspCurs]
      PAUSE 5
      SEROUT Dsp1, 84,[DspCmd1]
      SEROUT Dsp1, 84,[DspCurs]
      PAUSE 5
      SEROUT Dsp1, 84,[DspCmd1]
      SEROUT Dsp1, 84,[DspClear]
      PAUSE 5
      SEROUT Dsp1, 84,[DspCmd1]
      SEROUT Dsp1, 84,[DspClear]
      PAUSE 5
      SEROUT Dsp1, 84,["Done"]
      ENDIF
   GOTO StringsOut
   ENDIF
...
Long String --------------------------------------------------------------
...
    IF DspStr = 0 THEN noDspStr
    DEBUG DEC tmp1, ". ", STR myStr, CR
    SEROUT Dsp1, 84,[DspCmd1]
    SEROUT Dsp1, 84,[DspClear]
    PAUSE 10
    FOR tmp2 = 0 TO 15	'Go through string
      IF myStr(tmp2) = 0 AND tmp2 < 8 THEN
        SEROUT Dsp1, 84,[STR myStr]
        EXIT
        ENDIF

      IF tmp2 = 8 THEN
         tmp4 = 16
         tmp3 = 15
         DO
           myStr(tmp4) = myStr(tmp3)
           tmp4 = tmp4 - 1
           tmp3 = tmp3 - 1
           LOOP UNTIL (tmp3 < 8)
         myStr(tmp2) = 0
         SEROUT Dsp1, 84,[STR myStr]
         PAUSE 10
         tmp3 = 64 + 128 'Set Address to Line 2
         SEROUT Dsp1, 84,[DspCmd1]
         SEROUT Dsp1, 84,[tmp3]
         PAUSE 15
         tmp3 = 0
         tmp4 = tmp2 + 1
         DO
           myStr(tmp3) = myStr(tmp4)
           tmp3 = tmp3 + 1
           tmp4 = tmp4 + 1
           LOOP UNTIL (tmp3 > 7)
         myStr(8) = 0
         SEROUT Dsp1, 84,[STR myStr]
         EXIT
         ENDIF
         NEXT  'Go through string
noDspStr:
      IF DspStr = 0 THEN
        DEBUG DEC tmp1, ". ", STR myStr, CR
        ENDIF
    DspStr = 0
    NEXT	'Read in strings
  HIGH epCs 'Set Chip Select High - Close Command
  epAddr = myStrS * 16
  GOTO CmdDisplay
...