BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /programs/develop/SPForth/src/spf_con_io.f @ 4866

  → /programs/develop/SPForth/src/spf_con_io.f @ 4867

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 4866 → Rev 4867

/programs/develop/SPForth/src/spf_con_io.f
0,0 → 1,41
( Š®­á®«ì­ë© ¢¢®¤-¢ë¢®¤.
Ž‘-­¥§ ¢¨á¨¬ë¥ á«®¢  [®â­®á¨â¥«ì­®...].
Copyright [C] 1992-1999 A.Cherezov ac@forth.org
à¥®¡à §®¢ ­¨¥ ¨§ 16-à §à來®£® ¢ 32-à §àï¤­ë© ª®¤ - 1995-96££
¥¢¨§¨ï - ᥭâï¡àì 1999
)
32 VALUE BL ( -- char ) \ 94
\ char - §­ ç¥­¨¥ ᨬ¢®«  "¯à®¡¥«".
: SPACE ( -- ) \ 94
\ ‚뢥á⨠­  íªà ­ ®¤¨­ ¯à®¡¥«.
BL EMIT
;
: SPACES ( n -- ) \ 94
\ ᫨ n>0 - ¢ë¢¥á⨠­  ¤¨á¯«¥© n ¯à®¡¥«®¢.
BEGIN
DUP
WHILE
BL EMIT 1-
REPEAT DROP
;
VARIABLE PENDING-CHAR \ ª« ¢¨ âãà  ®¤­  -> ¯¥à¥¬¥­­ ï £«®¡ «ì­ ï, ­¥ USER
VECT DO-KEY?
' NOOP TO DO-KEY?
: KEY?
EVENT-CASE DO-KEY?
&KEY @ 0<> ;
\ : KEY?
\ 0 ;
VECT KEY
' _KEY TO KEY