Vous ne pouvez pas sélectionner plus de 25 sujets
Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
|
- : handle ( c -- f )
- DUP '0' '9' =><= IF num 0 EXIT THEN
- DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
- UPPER 'Q' = ;
- : bufp ( buf -- )
- DUP 64 + SWAP DO i C@ 0x20 MAX EMIT LOOP ;
- : bufs
- 1 aty ." I: " IBUF bufp
- 2 aty ." F: " FBUF bufp ;
- : c<over KEY DUP EMIT DUP 0x0a = IF DROP 0x0d THEN ;
- : VE ['] c<over 0x08 ( C< override ) RAM+ !
- clrscr 0acc 0 PREVPOS ! contents
- BEGIN status bufs setpos KEY handle UNTIL
- 0 0x08 RAM+ ! 19 aty ;
|