49 lines
869 B
FortranFixed
49 lines
869 B
FortranFixed
|
\ requires bel.lib
|
||
|
|
\ requires g0.lib
|
||
|
|
\ requires ari.lib
|
||
|
|
|
||
|
|
hex
|
||
|
|
|
||
|
|
: it ; \ fuer forget
|
||
|
|
|
||
|
|
variable colortab 40 4* 4 - allot
|
||
|
|
variable tiletab g0:xtiles g0:ytiles * 2* 4 - allot
|
||
|
|
|
||
|
|
: fillcolortab
|
||
|
|
colortab
|
||
|
|
40 0 do
|
||
|
|
i dup + 4 + 0F and 00001010 * 0D060D02 +
|
||
|
|
over L! 4+
|
||
|
|
loop drop
|
||
|
|
;
|
||
|
|
|
||
|
|
: filltilescreen
|
||
|
|
tiletab g0:disp_base 6 rshift
|
||
|
|
g0:ytiles 0 do
|
||
|
|
g0:xtiles 0 do
|
||
|
|
swap 2dup W! 2+ swap g0:ytiles +
|
||
|
|
loop 341 +
|
||
|
|
loop 2drop ;
|
||
|
|
|
||
|
|
decimal
|
||
|
|
|
||
|
|
: setscreen
|
||
|
|
fillcolortab filltilescreen
|
||
|
|
tiletab colortab g0:setscreen
|
||
|
|
;
|
||
|
|
|
||
|
|
: tpix
|
||
|
|
g0:load setscreen g0:static
|
||
|
|
g0:clear 14 g0:width 1 g0:color
|
||
|
|
g0:xtiles 0 do i 16 * 8 +
|
||
|
|
g0:ytiles 0 do i 16 * 8 + over g0:plot loop drop
|
||
|
|
loop
|
||
|
|
key g0:clear
|
||
|
|
2000 0 do
|
||
|
|
rnd 31 and g0:width rnd 3 and g0:color
|
||
|
|
rnd rnd g0:plot
|
||
|
|
loop
|
||
|
|
key g0:reboot
|
||
|
|
cr ." erledigt" cr
|
||
|
|
;
|