... line this: 6,5,4,3,2,1,0,0,6,5,4,3,2,1,0,0,6,5,...

3 follows a pattern line this: 7,6,5,4,3,2,1,0,7,6,5 ... ,4,3,2,1,0

Einar Saukas July 2013 Development

... length 5, with 2 integer-only cuts (i.e. cuts at position 1,2,3 or ... />
1:18
2:14
3:8
4:2

0,1,2,3,4,and 5]), length:freq data are ... :

0:28
1:26
2:22
3:16

... k$ < "1" OR k$ > "3" THEN GO TO 5: END IF ' repeat ... /> RETURN CODE k$-CODE "0" ' return value 1, 2 or 3
end function[/CODE ...

... . Block 0 is the road block, property ?do nothing?. Block 1 is ... on the top or bottom 2 rows).

3. Map. A simple ... and space 10 car sprites (5 left, 5 right) through the road ... :? to random wrap.

5. Variables, in this example change ...

... /> 1040 LET SCORE=0: LET WORMS=3: LET LEVEL=1
1048 REM ... /> 1050 LET S=5: LET P=1: LET R=0: LET C=INT ... .
1090 CLS : PRINT AT 0,0; PAPER 6;,,: PRINT AT 21 ... 0.06,18,0.06,19,0.06,21,0.15,27,0.06,21,0.2 ... R>20 OR R31 OR CS THEN LET P=1
3090 ...

... ]
1 PAPER 0: INK 7: BORDER 0
2 LET s=0: LET level ... =1000: LET d=3
3 GO ... /> 1000 LET n=0: LET m=-1: LET dj=0: LET x=15 ... : LET y=3:
IF ...

... ]
1 PAPER 0: INK 7: BORDER 0
2 LET s=0: LET level ... =1000: LET d=3
3 GO ... /> 1000 LET n=0: LET m=-1: LET dj=0: LET x=15 ... : LET y=3:
IF ...

... ((verb 19) and (no1 > 0) and (no1 < 100)) mess ... /> 3 // too dark to do things here
IF ((VERB 18)or ... /> *desc "milk"
*weight 5
*room 5
*end

if ((room = 2) and ((rand 3) = 1)) LF MESS 180 end ...

... one given bank (1, 3, 4, 6 or 7) to bank 5:
[CODE ... [routine address]+2,X
DI
LD D,1 ;selects bank ... +3: LOAD "1"CODE 49152: REM loads compressed game level 1 into bank 3 ... the same from bank 5 to bank 0 and finally decompress the ...

[QUOTE=Crisis;727461]are those 5 just gone? do you need ... retaining LLIST, LPRINT, or COPY. LIST #3 and PRINT #3 are functionally equivalent ... 0 = BRIGHT 0: FLASH 0. CLUT 1 = BRIGHT 1: FLASH 0. CLUT 2 = BRIGHT 0: FLASH 1. CLUT 3 = BRIGHT 1 ...

... /> enum StreamOptions : byte {
BlockChecksum = 1

... x=2: LET kf=x+wd: IF RND>0.5 THEN ... LET x=cl-wd-2: LET kf=0
1+1)=p$
530 GO SUB 1510: LET ... br /> 610 LET nb=3: LET wx=-2: DIM w(nb): DIM ... f(i)/3): LET x=INT((f(i)/3-y)*3+0.05)
3): LET x=INT((f(i)/3-y)*3+0.05)

... .php?type[0]=demo&platform[0]=ZX+Spectrum&page=1& ... into a compatible format (*.tap or +3 disc). The main sources of ... at case by case;
2. Demos that implement border and ... heavily relying upon the additional 5-10% of the additional performance ...

... br /> ; THE 'ERROR-2' ROUTINE
org 0x0053< ... in SP
res 3, (iy + _flags) ; ... ' ' ; test for space or higher
scf ; set ... 6 ; test for characters 0-5 (tokens)
ccf ; ... ; ROM 0, VRAM 1
ld e, 0 ; FIXME

... fst 1 ; store in mem-1
fgt 0 ; x', 10^(2^n), (1/0)
3
fst 4 ; mem-4
fst 5 ; and mem-5 ... ; jump if not
or e ; zero?
jr z ... ; stack count and result (C or C')
exx ; switch ...

... ld bc, 5 ; 5 bytes
... rlca ; 0 to 3
... 0 ; 2 * z mem-0 holds 2 * z
fdel ; -
fstk0 ; 0
fst 2 ; 0 ... 1)
fst 1 ; mem-1 holds b(r - 1)
fsub ; b(r), 2 ... /> or (hl) ; OR with ...

...
jr nz, report_bd ; or negative
call bc_1_space ; make ... /> fce ; i (x) or i (x) - 1
ret ; end of ... - 1, 2.5 * x' - 2.5, 0.5
; y2, 2 * x' - 1, 5 * x' - 2.5, 0.5
fsub ; y1, x' - 1, 2.5 * x' -

chev October 2013 Development

... fmul ; sin (pi*w/2) = sin x (or = cos x)
... fce ; sin x (or cos x)
ret ; ... -1/x, (1/0)
fstkpix.5 ; -1/x, pi/2, (1/0)
fxch ; -1/x, pi/2< ... x case 1
; w, atn (-1/x) case 2 and 3

... org 0x1bb0
defs 2, 255 ; unused locations (common ... 1 followed by class-0

; THE 'COMMAND CLASSES - 0, 3 & 5 ... /> ; THE 'COMMAND CLASSES - 1, 2 & 4'
org 0x1c1f ... a, c ; test
or %10011111 ; discriminator byte

... cp 4 ; greater than CLUT 3?
jr nc, report_k ... and %11000111 ; discard bits 3 to 5
xor b ; xor ... ; address at screen-1
defw pos_7 ; or screen-2

... /> cp 128 ; less than 0.5?
jr nc, c_arc_ge1 ; ...

... fst 5 ; g to mem-5
fstk.5 ; x, y, g, 0.5< ... sin(g/2), (0/1)
fnot ; x, y, sin(g/2), (1/0)
... 1 ; un-1
fmove ; un-1, un-1
fgt 3 ; un-1, un-1 ... /> and (iy + _flags2) ; or trace off?
jr z ...

... (iy + _mode), 0 ; cancel control or meta
call ... restore report code
set 5, (iy + _vdu_flag) ; signal ... 1, 0 ; -3, 'K'
defb 6, 0 ; -2, 'S'
defb 11, 0 ; -1, ... br /> wait_key:
bit 5, (iy + _vdu_flag) ; does ...

... a, 2 ; use stream 2
ld (iy + _vdu_flag), 0 ; signal ... /> org 0x190e
defs 1, 255 ; unused locations (common)< ... /> org 0x1988
defs 3, 255 ; unused locations (common)< ...
bit 5, a ; next string or array variable?

... ; range 1 to 24?< ... ld a, 2 ; use upper ... the range 0-5?
... ; pen or higher?
bit 3, (iy + ...

... set 5, h ... 3, 255 ; unused locations (common)

; THE 'TEST 0 OR 1 ... /> cp 2 ; 0 or 1?
...