10 REM > BLib.Win.Messages 0.10
   20 REM Message translation
   30 REM 20-Nov-2005: J.G.Harston
   40 REM!Need PROCVar_Assign()
   50 :
   60 :
   70 REM ===================
   80 DEFFNMessages_Rd(Country$)
   90 in%=OPENIN(@dir$+"\Resources\"+Country$+"\Messages.txt"):IFin%=0:=TRUE
  100 REPEAT
  110   A$=GET$#in%:IF LEFT$(A$,1)="#":A$=""
  120   A%=INSTR(A$,":"):IF A% THEN
  130     A%=A%-1:REPEAT:A%=A%+1:UNTIL MID$(A$,A%,1)<>" "
  140     PROCVar_Assign("m"+LEFT$(A$,A%-1)+"$",""""+MID$(A$,A%+1)+"""")
  150   ENDIF
  160 UNTIL EOF#in%:CLOSE#in%:in%=0
  170 =FALSE
  180 :

Download Messages.bbc

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.