1 GOTO 9200
8699 LET V=47
8700 DIM V$(47,6)      
8700 LET V$(1) =    "01NORD"
8700 LET V$(2) =    "02OUES"
8700 LET V$(3) =    "03EST "
8700 LET V$(4) =    "04SUD "
8700 LET V$(5) =    "05VAIS"
8700 LET V$(6) =    "061   "
8700 LET V$(7) =    "072   "
8700 LET V$(8) =    "083   "
8700 LET V$(9) =    "09TIRE"
8700 LET V$(10) =   "10BRAN"
8700 LET V$(11) =   "11PRIS"
8700 LET V$(12) =   "12APPU"
8700 LET V$(13) =   "13BOUT"
8700 LET V$(14) =   "14INTR"
8700 LET V$(15) =   "15CASS"
8700 LET V$(16) =   "16RIEN"
8700 LET V$(17) =   "18VOIE"
8700 LET V$(18) =   "17DESC"
8700 LET V$(19) =   "19PREN"
8700 LET V$(20) =   "20FLAC"
8700 LET V$(21) =   "21GOUR"
8700 LET V$(22) =   "22COMB"
8700 LET V$(23) =   "23PIST"
8700 LET V$(24) =   "24OUTI"
8700 LET V$(25) =   "25KKKK"
8700 LET V$(26) =   "26ALLU"
8700 LET V$(27) =   "27LAMP"
8700 LET V$(28) =   "29MANE"
8700 LET V$(29) =   "30LEVI"
8700 LET V$(30) =   "31BOIT"
8700 LET V$(31) =   "32ECLA"
8700 LET V$(32) =   "33OEIL"
8700 LET V$(33) =   "34TAPE"
8700 LET V$(34) =   "35FORM"
8700 LET V$(35) =   "36REPA"
8700 LET V$(36) =   "37MOTE"
8700 LET V$(37) =   "38ORQU"
8700 LET V$(38) =   "39DECR"
8700 LET V$(39) =   "40INVE"
8700 LET V$(40) =   "41POSE"
8700 LET V$(41) =   "42LANC"
8700 LET V$(42) =   "43ENFI"
8700 LET V$(43) =   "44ETEI"
8700 LET V$(44) =   "45BOIS"
8700 LET V$(45) =   "46POUS"
8700 LET V$(46) =   "47AMEN"
8700 LET V$(47) =   "48CODE"
9014 LET A=75
9100 DIM A$(A,31)
9100 LET A$(1) =    "1924B02.B02L.                  "
9100 LET A$(2) =    "1923B01.B01L.                  "
9100 LET A$(3) =    "4124B02.C02L.                  "
9100 LET A$(4) =    "4123B01.C01L.                  "
9100 LET A$(5) =    "1011A02F06.E06D31N.            "
9100 LET A$(6) =    "1415A02B09.C09E07L.            "
9100 LET A$(7) =    "1207A02E07F08.E09D19N.         "
9100 LET A$(8) =    "1206A02E07.E08D26N.            "
9100 LET A$(9) =    "0938A02E10.D03Q.               "
9100 LET A$(10) =   "1213A02E10.D04F10E18N.         "
9100 LET A$(11) =   "1213A02F10.L.                  "
9100 LET A$(12) =   "4224A02B02.C02L.               "
9100 LET A$(13) =   "1922B03.B03L.                  "
9100 LET A$(14) =   "0100E10A02.D02Q.               "
9100 LET A$(15) =   "0300E10A02.D02Q.               "
9100 LET A$(16) =   "0400E10A02.D02Q.               "
9100 LET A$(17) =   "0201E10A02.D12Q.               "
9100 LET A$(18) =   "0200A02E09.K08O.               "
9100 LET A$(19) =   "0400F10A02.K01O.               "
9100 LET A$(20) =   "0300F10A02.K03O.               "
9100 LET A$(21) =   "0100F10A22.K05O.               "
9100 LET A$(22) =   "1920B05.D18Q.                  "
9100 LET A$(23) =   "4322D03.H03E11L.               "
9100 LET A$(24) =   "4122B03F11.C03L.               "
9100 LET A$(25) =   "4122E11B04.H03C03L.            "
9100 LET A$(26) =   "0508A03.D06Q.                  "
9100 LET A$(27) =   "0506A03.D07Q.                  "
9100 LET A$(28) =   "0507A03.D08K04O.               "
9100 LET A$(29) =   "0508A03.D06Q.                  "
9100 LET A$(30) =   "1700A04.D09Q.                  "
9100 LET A$(31) =   "0508A04.D06Q.                  "
9100 LET A$(32) =   "1600A04.E12D38K05O.            "
9100 LET A$(33) =   "3637B02.D11Q.                  "
9100 LET A$(34) =   "3637C02.D28N.                  "
9100 LET A$(35) =   "4000.A00.                      "
9100 LET A$(36) =   "3900.O00.                      "
9100 LET A$(37) =   "1931B06.B06L.                  "
9100 LET A$(38) =   "4131B06.C06L.                  "
9100 LET A$(39) =   "0100E12A05F11.D13Q.            "
9100 LET A$(40) =   "0400E12A05F11.D13Q.            "
9100 LET A$(41) =   "2627A08F14F15.D25Q.            "
9100 LET A$(42) =   "0200E12A05F11.D13Q.            "
9100 LET A$(43) =   "0100F12A05.K06O.               "
9100 LET A$(44) =   "0400F12A05.F12K02O.            "
9100 LET A$(45) =   "0200F12A05E13.K07O.            "
9100 LET A$(46) =   "0100E11A05.F12K06O.            "
9100 LET A$(47) =   "0400E11A05.F12K02O.            "
9100 LET A$(48) =   "0200E11A05E13.K07O.            "
9100 LET A$(49) =   "3233E14A05.D19E13N.            "
9100 LET A$(50) =   "2627B11F15F14.H11E14L.         "
9100 LET A$(51) =   "4427E14B12.FX4H11L.            "
9100 LET A$(52) =   "1921B07.B07L.                  "
9100 LET A$(53) =   "1915B09.B09L.                  "
9100 LET A$(54) =   "4121B07.C07K.                  "
9100 LET A$(55) =   "4115B09.C09L.                  "
9100 LET A$(56) =   "4521B07.H07E16L.               "
9100 LET A$(57) =   "0200A06.D01Q.                  "
9100 LET A$(58) =   "0300A06.D12Q.                  "
9100 LET A$(59) =   "0930A06.D21Q.                  "
9100 LET A$(60) =   "4530A06.D21Q.                  "
9100 LET A$(61) =   "1700A06.D20Q.                  "
9100 LET A$(62) =   "4629A07.D17Q.                  "
9100 LET A$(63) =   "0929A07.D15Q.                  "
9100 LET A$(64) =   "4630A07.D30Q.                  "
9100 LET A$(65) =   "1213A07.D30Q.                  "
9100 LET A$(66) =   "1927B11.B11L.                  "
9100 LET A$(67) =   "4127B11.C11L.                  "
9100 LET A$(68) =   "1448A08E17.D19D37E25N.         "
9100 LET A$(69) =   "1448A08F17.D29N.               "
9100 LET A$(70) =   "4127B11.C11L.                  "
9100 LET A$(71) =   "0100A08E25.K07O.               "
9100 LET A$(72) =   "4121E16B08.C08L.               "


9199 GOTO 9600
9200 REM TEST
9205 FOR A=1 TO 72
9210 LET O=VAL(A$(A)(1 TO 2))
9215 GOSUB 9500
9216 LPRINT A;"=";E$;" ";
9220 LET O=VAL(A$(A)(3 TO 4))
9225 GOSUB 9500
9226 LPRINT E$,":";
9230 FOR B=5 TO 30
9231 LET E$=A$(A)(B)
9232 IF E$="A" THEN LPRINT "/";A$(A)(B+1 TO B+2);"/";
9233 IF E$>="A" AND E$(1)<="K" THEN LET B=B+2
9234 LPRINT E$(1);
9235 IF E$<>" " THEN NEXT B
9236 LPRINT
9240 NEXT A
9500 LET E$=""
9501 IF O=0 THEN RETURN
9505 FOR Z=1 TO 47
9510 IF O<>VAL(V$(Z)(1 TO 2)) THEN NEXT Z
9520 LET E$=V$(Z)(3 TO )
9530 RETURN
9600 SAVE "TEST"