Some user defined commands

: wait 0 15405 ! begin dup 15405 @ = inkey or until drop ; 

n wait 

============================================ 
: xy@ 25 * + vram + ; 

puts chars anywhere on the screen with 

x y xy@ (ascii n) swap ic! 


put a solid square in the middle of the screen 

12 12 xy@ 160 swap ic! 

============================================ 

list ugds in vram 

: ulist cls 
255 0 do i vram i + ic! loop ; 

ulist 

============================================ 

a delay 

: halt 0 do loop ; 

n halt 

( 9000 is about 1 sec in PAL ) 

============================================ 

: seedon seed @ 75 u* 75 0 d+ over over u< - - 1 - dup seed ; set the var to 0 this is part of...... 
: rnd seedon u* swap drop ; n rnd generates random no up to n 

============================================= 

: aud 64 191 42 >port> drop ; activates the sound mod circuit with ' aud ' 
: beep 0 69 ic! 0 110 ic! 66 68 ic! 71 ic! 7 and 69 ic! ; n n beep 

============================================= 

: pause clock i@ + begin dup clock i@ - 0< until drop ; n pause