Αναθεώρηση 160

Μια μικρή αναθεώρηση για να τυπώνονται σωστά στη κονσόλα του περιβάλλοντος της Μ2000 χαρακτήρες.
Αυτό είναι το πρόγραμμα για τον έλεγχο!
Μου έτρωγε τρεις χαρακτήρες επειδή έβγαζε το len.disp() το μήκος 3 χαρακτήρες λιγότερους (και η ίδια ρουτίνα εσωτερικά έκοβε και στην εκτύπωση. το πρόβλημα ήταν και στην 148 αναθεώρηση).

Function ShowAnsi$ {
      Read AA
      Document tmp$
      For I = 33 to 255 {
             tmp$= chr$(I,AA)
      }
      =tmp$
}

f$=ShowAnsi$(1049)
Print len(f$),len.disp(f$)
special(f$)
Print f$
Report F$
sub special(a$)
      while a$ <>"" {
            Print left$(a$,width);
            a$=mid$(a$,width+1)
      }
Print
End sub