home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Action 2
/
CD_Action_2.iso
/
train
/
defilada.trn
next >
Wrap
Text File
|
1995-10-28
|
2KB
|
65 lines
100 VAR 'Czerwone' = 0
101 VAR 'Niebieskie' = 1
102 VAR 'Wagon 2' = 2
103 VAR 'Wagon 3' = 3
104 VAR 'Wagon 4' = 4
105 VAR 'Wagon 5' = 5
106 VAR 'Wagon 6' = 6
107 VAR 'Wagon 7' = 7
108 VAR 'Wagon 8' = 8
109 VAR 'Wagon 9' = 9
110 VAR 'Wagon 10' = 10
111 VAR 'Wagon 11' = 11
112 VAR 'Wagon 12' = 12
113 VAR 'Wagon 13' = 13
114 VAR 'Wagon 14' = 14
115 VAR 'Wagon 15' = 15
116 VAR 'Wagon 16' = 16
117 VAR 'Wagon 17' = 17
118 VAR 'Wagon 18' = 18
119 VAR 'Wagon 19' = 19
120 VAR 'Wagon 20' = 20
121 VAR 'Wagon 21' = 21
122 VAR 'Wagon 22' = 22
123 VAR 'Wagon 23' = 23
124 VAR 'Wagon 24' = 24
125 VAR 'Wagon 25' = 25
126 VAR 'Wagon 26' = 26
127 VAR 'Wagon 27' = 27
128 VAR 'Wagon 28' = 28
129 VAR 'Wagon 29' = 29
130 VAR 'Wagon 30' = 30
131 VAR 'Wagon 31' = 31
132 VAR 'Wagon 32' = 32
133 VAR 'Wagon 33' = 33
134 VAR 'Wagon 34' = 34
135 VAR 'Wagon 35' = 35
136 VAR 'Wagon 36' = 36
137 VAR 'Wagon 37' = 37
138 VAR 'Wagon 38' = 38
139 VAR 'Wagon 39' = 39
140 VAR 'Wagon 40' = 40
141 VAR 'Wagon 41' = 41
142 VAR 'Wagon 42' = 42
143 VAR 'Wagon 43' = 43
144 VAR 'Wagon 44' = 44
145 VAR 'Wagon 45' = 45
146 VAR 'Wagon 46' = 46
147 VAR 'Wagon 47' = 47
148 VAR 'Wagon 48' = 48
149 VAR 'Wagon 49' = 49
150 VAR 'Wagon 50' = 50
200 PRINT "Podaj liczbΩ Czerwonych beret≤w:"
201 INPUT 'Czerwone';
300 PRINT "Podaj liczbΩ Niebieskich beret≤w:"
301 INPUT 'Niebieskie';
400 IF ('Czerwone'='Niebieskie'{448,64}){448,48}{224,48} THEN 1000{182}
500 IF ('Czerwone'{400,48}{400,64}>'Niebieskie'){416,64}{416,80}{224,80} THEN 800{171}
600 LET 'Niebieskie':=('Niebieskie'{432,64}{432,48}-'Czerwone'){448,48}
700 GOTO 900{78}
800 LET 'Czerwone':=('Czerwone'{432,48}{432,64}-'Niebieskie'){448,64}
900 GOTO 400{65}
1000 PRINT "Liczba ┐o│nierzy w rzΩdzie powinna wynosiµ:"
1001 PRINT 'Czerwone'
1100 STOP