mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-01 15:30:02 +00:00
236 lines
4.9 KiB
Plaintext
236 lines
4.9 KiB
Plaintext
Variables Resident in Memory :
|
|
|
|
Q : For-Next
|
|
Q = 27
|
|
DIM Q(12)
|
|
Q(1) = 1
|
|
Q(2) = 1
|
|
Q(3) = 2
|
|
Q(5) = 3
|
|
Q(6) = 5
|
|
Q(7) = 6
|
|
Q(9) = 6
|
|
Q(11) = 8
|
|
|
|
DIM O$(12,16)
|
|
|
|
O$(1) = "PISTOLET LASER"
|
|
O$(2) = "OUTILS"
|
|
O$(3) = "COMBINAISON"
|
|
O$(4) = "COMBINAISON MISE"
|
|
O$(5) = "FLACON D"ACIDE"
|
|
O$(6) = "BOITE NOIRE"
|
|
O$(7) = "GOURDE"
|
|
O$(8) = "GOURDE VIDE"
|
|
O$(9) = "CASSETTE"
|
|
O$(10) = "CASSETTE EFFACEE"
|
|
O$(11) = "LAMPE"
|
|
O$(12) = "LAMPE ALLUMEE"
|
|
X : For-Next
|
|
X =-1
|
|
V = 47
|
|
DIM V$(47,6)
|
|
|
|
V$(1) = "01NORD"
|
|
V$(2) = "02OUES"
|
|
V$(3) = "03EST"
|
|
V$(4) = "04SUD"
|
|
V$(5) = "05VAIS"
|
|
V$(6) = "061"
|
|
V$(7) = "072"
|
|
V$(8) = "083"
|
|
V$(9) = "09TIRE"
|
|
V$(10) = "10BRAN"
|
|
V$(11) = "11PRIS"
|
|
V$(12) = "12APPU"
|
|
V$(13) = "13BOUT"
|
|
V$(14) = "14INTR"
|
|
V$(15) = "15CASS"
|
|
V$(16) = "16RIEN"
|
|
V$(17) = "18VOIE"
|
|
V$(18) = "17DESC"
|
|
V$(19) = "19PREN"
|
|
V$(20) = "20FLAC"
|
|
V$(21) = "21GOUR"
|
|
V$(22) = "22COMB"
|
|
V$(23) = "23PIST"
|
|
V$(24) = "24OUTI"
|
|
V$(25) = "25KKKK"
|
|
V$(26) = "26ALLU"
|
|
V$(27) = "27LAMP"
|
|
V$(28) = "29MANE"
|
|
V$(29) = "30LEVI"
|
|
V$(30) = "31BOIT"
|
|
V$(31) = "32ECLA"
|
|
V$(32) = "33OEIL"
|
|
V$(33) = "34TAPE"
|
|
V$(34) = "35FORM"
|
|
V$(35) = "36REPA"
|
|
V$(36) = "37MOTE"
|
|
V$(37) = "38ORQU"
|
|
V$(38) = "39DECR"
|
|
V$(39) = "40INVE"
|
|
V$(40) = "41POSE"
|
|
V$(41) = "42LANC"
|
|
V$(42) = "43ENFI"
|
|
V$(43) = "44ETEI"
|
|
V$(44) = "45BOIS"
|
|
V$(45) = "46POUS"
|
|
V$(46) = "47AMEN"
|
|
V$(47) = "48CODE"
|
|
R = 8
|
|
DIM M$(8,32)
|
|
|
|
M$(1) = "010200"
|
|
M$(2) = "00"
|
|
M$(3) = "020200"
|
|
M$(4) = "00"
|
|
M$(5) = "00"
|
|
M$(6) = "040500"
|
|
M$(7) = "0305040800"
|
|
M$(8) = "030200"
|
|
C = 15
|
|
DIM C$(15,21)
|
|
|
|
C$(1) = "A02F18.E10D05."
|
|
C$(2) = "A04E14.E17D10."
|
|
C$(3) = "A05E12.D32."
|
|
C$(4) = "A05F12.D33."
|
|
C$(5) = "A07F16.D16Q."
|
|
C$(6) = "A07B06.D14Q."
|
|
C$(7) = "E14F20.G0404E20F21."
|
|
C$(8) = "F14E20.E21."
|
|
C$(9) = "G04F21.H11F14E15D27."
|
|
C$(10) = "A02F06.D35."
|
|
C$(11) = "A02E06.D34."
|
|
C$(12) = "A02E09.D36."
|
|
C$(13) = "A05E13.D36."
|
|
C$(14) = "A08E25.D37."
|
|
C$(15) = ".N."
|
|
A = 75
|
|
DIM A$(75,31)
|
|
|
|
A$(1) = "1924B02.B02L."
|
|
A$(2) = "1923B01.B01L."
|
|
A$(3) = "4124B02.C02L."
|
|
A$(4) = "4123B01.C01L."
|
|
A$(5) = "1011A02F06.E06D31N."
|
|
A$(6) = "1415A02B09.C09E07L."
|
|
A$(7) = "1207A02E07F08.E09D19N."
|
|
A$(8) = "1206A02E07.E08D26N."
|
|
A$(9) = "0938A02E10.D03Q."
|
|
A$(10) = "1213A02E10.D04F10E18N."
|
|
A$(11) = "1213A02F10.L."
|
|
A$(12) = "4224A02B02.C02L."
|
|
A$(13) = "1922B03.B03L."
|
|
A$(14) = "0100E10A02.D02Q."
|
|
A$(15) = "0300E10A02.D02Q."
|
|
A$(16) = "0400E10A02.D02Q."
|
|
A$(17) = "0201E10A02.D12Q."
|
|
A$(18) = "0200A02E09.K08O."
|
|
A$(19) = "0400F10A02.K01O."
|
|
A$(20) = "0300F10A02.K03O."
|
|
A$(21) = "0100F10A02.K05O."
|
|
A$(22) = "1920B05.D18Q."
|
|
A$(23) = "4322D03.H03E11L."
|
|
A$(24) = "4122B03F11.C03L."
|
|
A$(25) = "4122E11B04.H03C03L."
|
|
A$(26) = "0508A03.D06Q."
|
|
A$(27) = "0506A03.D07Q."
|
|
A$(28) = "0507A03.D08K04O."
|
|
A$(29) = "0508A03.D06Q."
|
|
A$(30) = "1700A04.D09Q."
|
|
A$(31) = "0508A04.D06Q."
|
|
A$(32) = "1600A04.E12D38K05O."
|
|
A$(33) = "3637B02.D11Q."
|
|
A$(34) = "3637C02.D28N."
|
|
A$(35) = "4000.A00."
|
|
A$(36) = "3900.O00."
|
|
A$(37) = "1931B06.B06L."
|
|
A$(38) = "4131B06.C06L."
|
|
A$(39) = "0100E12A05F11.D13Q."
|
|
A$(40) = "0400E12A05F11.D13Q."
|
|
A$(41) = "2627A08F14F15.D25Q."
|
|
A$(42) = "0200E12A05F11.D13Q."
|
|
A$(43) = "0100F12A05.K06O."
|
|
A$(44) = "0400F12A05.F12K02O."
|
|
A$(45) = "0200F12A05E13.K07O."
|
|
A$(46) = "0100E11A05.F12K06O."
|
|
A$(47) = "0400E11A05.F12K02O."
|
|
A$(48) = "0200E11A05E13.K07O."
|
|
A$(49) = "3233E14A05.D19E13N."
|
|
A$(50) = "2627B11F15F14.H11E14L."
|
|
A$(51) = "4427E14B12.FX4H11L."
|
|
A$(52) = "1921B07.B07L."
|
|
A$(53) = "1915B09.B09L."
|
|
A$(54) = "4121B07.C07K."
|
|
A$(55) = "4115B09.C09L."
|
|
A$(56) = "4521B07.H07E16L."
|
|
A$(57) = "0200A06.D01Q."
|
|
A$(58) = "0300A06.D12Q."
|
|
A$(59) = "0930A06.D21Q."
|
|
A$(60) = "4630A06.D21Q."
|
|
A$(61) = "1700A06.D20Q."
|
|
A$(62) = "4629A07.D17Q."
|
|
A$(63) = "0929A07.D15Q."
|
|
A$(64) = "4630A07.D30Q."
|
|
A$(65) = "1213A07.D30Q."
|
|
A$(66) = "1927B11.B11L."
|
|
A$(67) = "4127B11.C11L."
|
|
A$(68) = "1448A08E17.D19D37E25N."
|
|
A$(69) = "1448A08F17.D29N."
|
|
A$(70) = "4127B11.C11L."
|
|
A$(71) = "0100A08E25.K07O."
|
|
A$(72) = "4121E16B08.C08L."
|
|
SALLE = 4
|
|
U : For-Next
|
|
U = 22
|
|
F : For-Next
|
|
F = 0
|
|
T = 1
|
|
CP = 7
|
|
E = 16
|
|
TYPE = 5
|
|
N = 20
|
|
OK = 1
|
|
CORRESP = 1
|
|
BREAK = 0
|
|
Y = 10
|
|
W : For-Next
|
|
W = 2
|
|
FIN = 1
|
|
Q : For-Next
|
|
Q = 1
|
|
Z = 1
|
|
Q$= ""
|
|
O = 12
|
|
DIM S(25)
|
|
S(1) = 2
|
|
S(11) = 1
|
|
S(14) = 1
|
|
S(17) = 1
|
|
S(18) = 1
|
|
S(20) = 1
|
|
DIM C(5)
|
|
C(4) = 4
|
|
DIM P$(2,2)
|
|
P$(1) = "26"
|
|
P$(2) = "27"
|
|
DIM O(12)
|
|
O(1) = 1
|
|
O(2) = 1
|
|
O(4) = -1
|
|
O(5) = 3
|
|
O(6) = 5
|
|
O(7) = 6
|
|
O(9) = 6
|
|
O(12) = -1
|
|
DIM W$(4)
|
|
W$(1) = "L" (49)
|
|
W$(2) = "A" (38)
|
|
W$(3) = "M" (50)
|
|
W$(4) = "P" (53)
|
|
T$= "00"
|
|
Y$= "27"
|
|
E$= "E14F20.G0404E20F2X."
|