//
//  spell.vdm - a spelling helper              Christian Ziemski  24.01.2000
//                                                                05.06.2004
//
// spells a line in the current buffer using different "alphabets"
// Result is in T-Reg 103 at end.
//

Reg_Push(95,99)
Num_Push(95,99)

// D, ICAO Zivil-Luftfahrt, International, GB, US
Reg_Set(98,'
Anton       Alfa        Amsterdam   Andrew      Abel
Ärger
Berta       Bravo       Baltimore   Benjamin    Baker
Cäsar       Charlie     Casablanca  Charlie     Charlie
Dora        Delta       Danemark    David       Dog
Emil        Echo        Edison      Edward      Easy
Friedrich   Foxtrot     Florida     Frederick   Fox
Gustav      Golf        Gallipoli   George      George
Heinrich    Hotel       Havana      Harry       How
Ida         India       Italia      Isaac       Item
Julius      Juliet      Jerusalem   Jack        Jig
Kaufmann    Kilo        Kilogramme  King        King
Ludwig      Lima        Liverpool   Lucy        Love
Martha      Mike        Madagaskar  Mary        Mike
Nordpol     November    New York    Nellie      Nan
Otto        Oscar       Oslo        Oliver      Oboe
Ökonom
Paula       Papa        Paris       Peter       Peter
Quelle      Quebec      Quebec      Queenie     Queen 
Richard     Romeo       Roma        Robert      Roger
Samuel      Sierra      Santiago    Sugar       Sugar
Theodor     Tango       Tripoli     Tommy       Tare
Ulrich      Uniform     Upsala      Uncle       Uncle
Übermut
Viktor      Victor      Valencia    Victor      Victor
Wilhelm     Whiskey     Washington  William     William 
Xanthippe   X-Ray       Xanthippe   Xmas        X
Ypsilon     Yankee      Yokohama    Yellow      Yoke
Zacharias   Zulu        Zürich      Zebra       Zebra
')

#95=Buf_Num
#96 = Buf_Switch(Buf_Free(EXTRA))

Reg_Ins(98)
Reg_Empty(103)

Buf_Switch(#95)
BoL

while (! At_Eol) {
  Reg_Copy_Block(97, Cur_Pos, Cur_Pos + 1)
  Reg_Set(103, @97, APPEND)
  Reg_Set(103,"  ", APPEND)

  Buf_Switch(#96)
  BoF
  Search("|<|@(97)", NOERR)
  if (Error_Match) {
    // RS(103,@97,APPEND)
    Out_Reg(103, APPEND) 
    Type_Newline(1) 
    Out_Reg(CLEAR)
  } else {
    Reg_Copy(103, 1, APPEND)
  }
  Buf_Switch(#95)
  Char(1)
}
Reg_Type(103)

Num_Pop(95,99)
Reg_Pop(95,99)