version 1.1, 1997/05/29 19:43:11
|
version 1.4, 2001/09/03 09:06:14
|
Line 12
|
Line 12
|
|
|
decimal |
decimal |
|
|
: ms 0 ?DO ( $3000 0 DO LOOP ) LOOP ; |
variable loops/ms |
|
0 loops/ms ! |
|
|
|
: ms 0 ?DO loops/ms @ 0 ?DO LOOP LOOP ; |
: blank bl fill ; |
: blank bl fill ; |
|
|
Create pn-tab ," 000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980" |
Create pn-tab ," 000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980" |
Line 172 DOES> 1+ rot 2* 2* rot + 2* + ;
|
Line 175 DOES> 1+ rot 2* 2* rot + 2* + ;
|
Create scratch ," " |
Create scratch ," " |
DOES> 1+ rot 2* 2* rot + 2* + ; |
DOES> 1+ rot 2* 2* rot + 2* + ; |
|
|
create bricks brick1 1 + , brick2 1 + , brick3 1 + , brick4 1 + , |
create bricks brick1 1 + a, brick2 1 + a, brick3 1 + a, brick4 1 + a, |
brick5 1 + , brick6 1 + , brick7 1 + , |
brick5 1 + a, brick6 1 + a, brick7 1 + a, |
|
|
create brick-val 1 c, 2 c, 3 c, 3 c, 4 c, 5 c, 5 c, |
create brick-val 1 c, 2 c, 3 c, 3 c, 4 c, 5 c, 5 c, |
|
|
Line 257 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
|
Line 260 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c
|
else false then ; |
else false then ; |
|
|
: drop-brick \ --- ; move brick down fast |
: drop-brick \ --- ; move brick down fast |
begin 1 0 move-brick 0= until ; |
begin 1 0 move-brick key? drop 0= until ; |
|
|
: move-line \ from to --- |
: move-line \ from to --- |
over 0 pit over 0 pit wide 2* cmove draw-line |
over 0 pit over 0 pit wide 2* cmove draw-line |