mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-12 10:29:32 +00:00
151 lines
5.7 KiB
QBasic
151 lines
5.7 KiB
QBasic
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"
|