version 1.6, 1995/02/08 13:38:53
|
version 1.7, 1995/10/07 17:38:19
|
Line 367 VARIABLE C-Pass
|
Line 367 VARIABLE C-Pass
|
THEN |
THEN |
Debug? IF drop THEN ; |
Debug? IF drop THEN ; |
|
|
: c-;code \ end of create part |
: c-does> \ end of create part |
Display? IF S" DOES> " Com# .string THEN |
Display? IF S" DOES> " Com# .string THEN |
Cell+ cell+ ; |
Cell+ cell+ ; |
|
|
Line 398 CREATE C-Table
|
Line 398 CREATE C-Table
|
' (+loop) A, ' c-+loop A, |
' (+loop) A, ' c-+loop A, |
' (next) A, ' c-next A, |
' (next) A, ' c-next A, |
' ;s A, ' c-exit A, |
' ;s A, ' c-exit A, |
' (;code) A, ' c-;code A, |
' (does>) A, ' c-does> A, |
' (abort") A, ' c-abort" A, |
' (abort") A, ' c-abort" A, |
' (compile) A, ' c-(compile) A, |
' (compile) A, ' c-(compile) A, |
0 , |
0 , |