home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Action 2
/
CD_Action_2.iso
/
train
/
pojazd.trn
< prev
next >
Wrap
Text File
|
1995-10-29
|
2KB
|
85 lines
100 VAR 'Wagon 0' = 0
101 VAR 'Wagon 1' = 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 "Czy nie porusza siΩ po szynach ?"
201 IF THEN 1100{220}
300 PRINT "Czy porusza siΩ w ruchu ulicznym ?"
301 IF THEN 900{208}
400 PRINT "Czy potrafi ci╣gn╣µ wagony ?"
401 IF THEN 700{181}
500 PRINT "Odpowiedƒ: Drezyna"
501 LET
600 GOTO 2100{85}
700 PRINT "Odpowiedƒ: Poci╣g"
701 LET
800 GOTO 2100{85}
900 PRINT "Odpowiedƒ: Tramwaj"
901 LET
1000 GOTO 2100{85}
1100 PRINT "Czy z napΩdem mechanicznym ?"
1101 IF THEN 1700{218}
1200 PRINT "Czy napΩdzaj╣ go peda│y ?"
1201 IF THEN 1500{187}
1300 PRINT "Odpowiedƒ: W≤zek"
1301 LET
1400 GOTO 2100{85}
1500 PRINT "Odpowiedƒ: Rower"
1501 LET
1600 GOTO 2100{85}
1700 PRINT "Czy dwuko│owy ?"
1701 IF THEN 2000{190}
1800 PRINT "Odpowiedƒ: Samoch≤d lub pojazd roboczy"
1801 LET
1900 GOTO 2100{85}
2000 PRINT "Odpowiedƒ: Motocykl"
2001 LET
2100 STOP