[BACK]Return to tt.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / arch / misc

Diff for /gforth/arch/misc/tt.fs between versions 1.1 and 1.4

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
Removed from v.1.1  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>