ревю - ZX-ревю 1996 №4-5

t=t+(f-23394)*a: NEXT f
110 IF ta THEN STOP
120 LOAD ""CODE: RUN USR 23296
130 DATA 42, 110, 91, 237, 123
140 DATA 108, 91, 221, 33, 102
150 DATA 91, 6, 6, 197, 6
160 DATA 0, 221, 78, 0, 221
170 DATA 35, 17, 72, 88, 229
180 DATA 197, 237, 176, 33, 75
190 DATA 88, 126, 254, 54, 32
200 DATA 2, 54, 0, 235, 54
210 DATA 201, 30, 150, 205, 72
220 DATA 88, 193, 225, 9, 193
230 DATA 16, 217, 42, 112, 91
240 DATA 237, 91, 114, 91, 1
250 DATA 0, 4, 237, 176, 42
260 DATA 116, 91, 237, 91, 118
280 DATA 91, 1, 0, 4, 237
290 DATA 176, 42, 120, 91, 54
300 DATA 0, 42, 122, 91, 54
310 DATA 126, 35, 54, 91, 42
320 DATA 124, 91, 233, 1, 96
330 DATA 54, 82, 50, 17, 14
340 DATA 12, 24, 16, 24, 50
350 DATA 14, 25, 22
360 DATA 255, 183, 237, 228, 86, 238, 239, 249, 225, 253, 185, 85, 90, 253,
42, 253, 241, 252, 62, 201, 50, 28, 158, 49, 119, 105, 195, 144, 133, 107475
BRUCE LEE
10 LET TOT=0: FOR N=50000 TO 50084: READ A: LET TOT=TOT+A: POKE N, A: NEXT N
20 IF TOT10376 THEN PRINT AT 10, 10;"ERROR IN DATA": STOP
30 PRINT AT 10, 10;"INSERT TAPE": LOAD "" CODE: RANDOMIZE USR 50000
100 DATA 62, 255, 55, 17, 141, 5, 221, 33
101 DATA 203, 92, 205, 86, 5, 48, 241, 33
102 DATA 86, 176, 34, 233, 96, 58, 202, 96
103 DATA 238, 194, 50, 202, 96, 33, 147, 195
104 DATA 17, 28, 238, 1, 32, 0, 237, 176
105 DATA 243, 237, 94, 33, 41, 236, 229, 235
106 DATA 33, 137, 97, 229, 51, 51, 1, 242
107 DATA 1, 33, 253, 94, 62, 200, 237, 79
108 DATA 195, 137, 97, 62, 195, 50, 80, 202
109 DATA 62, 96, 50, 81, 202, 62, 201, 50
110 DATA 200, 218, 195, 0, 226

BUBBLE BOBBLE
10 LET T=0
20 FOR F=32768 TO 32876
30 READ A: POKE F, A
40 LET T=T+(F-32758)*A: NEXT F
50 IF T-679460 THEN STOP
60 FOR F=32877 TO lE9: READ A
70 IF A>256 THEN GO TO 100
80 POKE F, A
90 LET T=T+(F-32867)"A: NEXT F
100 IF T-A THEN STOP
102 POKE 32837, 90: POKE 32778, 90: POKE 32843, 91: POKE 32784, 91
110 LOAD "" CODE: RUN USR 32830
120 DATA 50, 21, 255, 122, 254
130 DATA 46, 192, 62, 50, 50
140 DATA 84, 205, 33, 21, 255
150 DATA 34, 85, 205, 62, 195
160 DATA 50, 58, 0, 33, 32
170 DATA 128, 34, 59, 0, 195
180 DATA 0, 0, 50, 107, 92
190 DATA 33, 114, 128, 17, 0
200 DATA 0, 1, 0, 0, 237
210 DATA 176, 195, 61, 0, 128
220 DATA 223, 181, 209, 177, 144
230 DATA 141, 139, 151, 206, 198
240 DATA 199, 200, 237, 123, 112
250 DATA 128, 62, 205, 50, 84
260 DATA 205, 33, 0, 128, 34
270 DATA 85, 205, 33, 109, 128
280 DATA 126, 50, 22, 128, 50
290 DATA 28, 128, 50, 31, 128
300 DATA 50, 40, 128, 50, 48
310 DATA 128, 35, 126, 50, 42
320 DATA 128, 35, 126, 50, 39
330 DATA 128, 195, 0, 205
340 DATA 91, 9, 213, 80, 195, 62, 52, 50, 95, 171, 195, 188, 245, 707604
BUBBLER
10 CLEAR 24064: LOAD ""CODE
20 RANDOMIZE USR 32768
30 LOAD "" CODE: POKE 57517, 0
40 RANDOMIZE USR 61440
BUTCH HARD GUY
10 LET T=0: FOR F=3e4 TO 30043
20 READ A: POKE F, A
30 LET T=T+(F-29990)*A:NEXT F
40 READ A: IF TA THEN STOP
50 RANDOMIZE USR 3e4
60 DATA 62, 255, 50, 203, 92
70 DATA 221, 33, 0, 64, 17
80 DATA 0, 28, 62, 255, 55
90 DATA 205, 86, 5, 48, 241
100 DATA 33, 82, 117, 17, 19
110 DATA 91, 1, 11, 0, 237
120 DATA 176, 195, 0, 91, 175
130 DATA 50, 64, 138, 50, 72
140 DATA 92, 195, 133, 158, 133681

.
1. #
.
&
" !5 + %" "5 %3+".
• .%
,!
3
, .2. 19( . 1.
10
14
15
17 '.
•
( '
(
)
.
.ZX
.
2. . <
, .:
, . 64, & 24. . "%
".
3. .
- , .+ '
,
.% ( &
9
15 '.,
. 8
13 '.
4. . 7
, .4
,3. $ .
- 4 # 8 "% 249".
5. . "
-.
3
.@ 149-"SCORPION".
6. . 3
,
, 10. "SPECTRUM".
7. .
, .2 .
, 2. "
ZX SPECTRUM".
8. .
,
,
"AcashiSoft"
.33-71-71.
9. . ,
, . 0.3
, 2- . . 76-42-98, 76-42-25. 5
+ ,04.
3
&
)
&%

«

+
&

%(
, $

'

=7'

- +
» &
10%

""+

.

&
-

»
$

&"
-

) ,

.3

050 --">