Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- papierkorb:edit.blk [2025-08-16 17:50] – ↷ Seite von projects:edit.blk nach papierkorb:edit.blk verschoben mka
+++ papierkorb:edit.blk [Unbekanntes Datum] (aktuell) – gelöscht - Externe Bearbeitung (Unbekanntes Datum) 127.0.0.1
@@ Zeile 1: / Zeile 1: @@
-===Number input and editing words===
-<code>
-list Screen 1 not modified
-\                                              14:21JWB04/16/87
-
-
-  FROM LEDIT.BLK  OK   \ Loads the line editor from LEDIT.BLK
-  2 11 THRU
-
-
-
-
-
-
-
-
-
-
-
-list Screen 2 not modified
-\ ANY-SIGN?  SKIP-BLANKS                       14:15JWB04/16/87
-ONLY EDITOR ALSO FORTH DEFINITIONS
-\ Leave a true flag if string begins with a -ve sign.
-\ Note we assume a counted string!!  adr is 1 less than the
-\ the first string character.
-: ANY-SIGN? ( adr   adr' flag )
-         DUP 1+ C@ DUP ASCII - =    \ Increment adr , check for -
-         IF    DROP 1+ TRUE         \ Leave true flag if found.
-         ELSE  ASCII + =            \ Allow a +sign if desired.
-               IF    1+  THEN       \ Increment past + sign
-               FALSE                 \ and leave false flag.
-         THEN ;
-\ Move up to first non blank of string.  Actually adr' points
-\ to position before first non blank!!
-: SKIP-BLANKS ( adr  adr' )
-         BEGIN 1+ DUP C@ BL <> UNTIL  1-  ;
-list Screen 3 not modified
-\ ED_CONVERT                                   14:16JWB04/16/87
-\ This routine edits a string and converts to double number.
-: ED_CONVERT  ( adr n cur   cur adr n dn )
-         BEGIN DUP CUR!          \ a n c  Position cursor.
-           -ROT 2DUP  LEDIT      \ c a n  Edit string.
-           OVER 1- SKIP-BLANKS   \ c a n  Move up to non-blank
-           ANY-SIGN?             \ c a n a' flg
-           >R 0 0 ROT -1         \ c a n dn a' -1
-           BEGIN  DPL !  CONVERT \ c a n dn a"
-             DUP C@  ASCII . =   \ c a n dn a" flg
-             WHILE 0 REPEAT      \ c a n dn a" 0
-             C@ BL <>            \ c a n dn flag
-         WHILE 2DROP R> DROP BEEP      \ c a n
-               ASCII ? 2 PICK C! ROT   \ a n c
-         REPEAT R> ?DNEGATE            \ c a n dn
-         DPL @ 0< IF DPL OFF THEN ;    \ DPL=0 if .pt not entered
-list Screen 4 not modified
-\ (#ED)                                        14:17JWB04/16/87
-\ Fetch a double number using field with of n  using adr  for
-\ and input buffer.  Invalid input is marked by ?  and user is
-\ required to repeat until he makes a valid number.
-: (#ED)  ( adr n   dn )
-         CUR@ ED_CONVERT               \ cur adr n dn
-         >R >R                         \ Save double number.
-         1+ ROT + CUR!                 \ Restore cursor.
-         DROP R> R> ;                  \ Recover our number.
-
-
-
-
-
-
-
-list Screen 5 not modified
-\ D#ED  WD#ED                                  13:08JWB04/16/87
-   BL CONSTANT CHFL  \ This character will fill unused digit posn
-\ Edit double number at current cursor position using default
-\ field with of 12.   Input buffer is at PAD
-: D#ED   ( adr    -- )
-         DUP 2@ TUCK DABS <# #S ROT SIGN #>
-         PAD 12 CHFL FILL
-         PAD SWAP CMOVE
-         PAD     12 (#ED) ROT 2! ;
-\ As above but field width is specified on the stack.
-: WD#ED  ( adr w   -- )
-         >R
-         DUP 2@ TUCK DABS <# #S ROT SIGN #>
-         PAD R@ CHFL FILL
-         PAD SWAP CMOVE
-         PAD  R>  (#ED) ROT 2! ;
-list Screen 6 not modified
-\ XYWD#ED  S#ED                                13:08JWB04/16/87
-\ As above but cursor & field width are specified on the stack.
-: XYWD#ED  ( adr x y n   -- )
-         -ROT AT WD#ED ;
-
-
-\ Edit single number a current cursor position using default
-\ field with of 6.   Edit buffer is at PAD
-: S#ED ( adr   -- )
-         DUP @ S>D TUCK DABS <# #S ROT SIGN #>
-         PAD 6 CHFL FILL
-         PAD SWAP CMOVE
-         PAD     6 (#ED) DROP SWAP ! ;
-
-
-
-list Screen 7 not modified
-\  WS#ED  XYWS#ED                              13:05JWB04/16/87
-\ As above but field width is specified on the stack.
-: WS#ED  ( adr w   -- )
-         >R
-         DUP @ S>D TUCK DABS <# #S ROT SIGN #>
-         PAD R@ CHFL FILL
-         PAD SWAP CMOVE
-         PAD    R> (#ED) DROP SWAP ! ;
-
-\ As above but cursor & field width are specified on the stack.
-: XYWS#ED  ( adr x y n   -- )
-         -ROT AT WS#ED ;
-
-
-
-
-list Screen 8 not modified
-\ IN_CONVERT                                   14:18JWB04/16/87
-\ This routine inputs a string and converts to double number.
-: IN_CONVERT  ( adr n cur   cur adr n dn )
-         BEGIN DUP CUR!          \ a n c  Position cursor.
-           -ROT 2DUP <LEDIT      \ c a n  Input string.
-           OVER 1- SKIP-BLANKS   \ c a n  Move up to non-blank
-           ANY-SIGN?             \ c a n a' flg
-           >R 0 0 ROT -1         \ c a n dn a' -1
-           BEGIN  DPL !  CONVERT \ c a n dn a"
-             DUP C@  ASCII . =   \ c a n dn a" flg
-             WHILE 0 REPEAT      \ c a n dn a" 0
-             C@ BL <>            \ c a n dn flag
-         WHILE 2DROP R> DROP BEEP      \ c a n
-               ASCII ? 2 PICK C! ROT   \ a n c
-         REPEAT R> ?DNEGATE            \ c a n dn
-         DPL @ 0< IF DPL OFF THEN ;    \ DPL=0 if .pt not entered
-list Screen 9 not modified
-\ (#IN)                                        14:19JWB04/16/87
-\ Fetch a double number using field with of n  using adr  for
-\ and input buffer.  Invalid input is marked by ?  and user is
-\ required to repeat until he makes a valid number.
-: (#IN)  ( adr n   dn )
-         CUR@ -ROT                     \ cur adr n Save cursor
-         2DUP 2+ BLANK                 \ cur adr n Blank buffer
-         DUP 0 ?DO 95 (CONSOLE) LOOP   \ cur adr n Out underscore
-         ROT IN_CONVERT                \ cur adr n dn
-         >R >R                         \ Save double number.
-         1+ ROT + CUR!                 \ Restore cursor.
-         DROP R> R> ;                  \ Recover our number.
-
-
-
-
-list Screen 10 not modified
-\ D#IN  WD#IN  XYWD#IN                         15:20JWB11/25/85
-\ Input double number a current cursor position using default
-\ field with of 6.   Input buffer is at PAD
-: D#IN   ( --   dn )
-         PAD     12 (#IN) ;
-
-\ As above but field width is specified on the stack.
-: WD#IN  ( n  dn )
-         PAD  SWAP  (#IN) ;
-
-\ As above but cursor position is also specified on the stack.
-: XYWD#IN ( x y n  dn )
-         -ROT AT WD#IN    ;
-
-
-
-list Screen 11 not modified
-\ S#IN  WS#IN  XYS#IN                          15:20JWB11/25/85
-\ Input single number a current cursor position using default
-\ field with of 6.   Input buffer is at PAD
-: S#IN   ( --   dn )
-         PAD      6 (#IN) DROP  ;
-
-\ As above but field width is specified on the stack.
-: WS#IN  ( n  dn )
-         PAD  SWAP  (#IN) DROP ;
-
-\ As above but cursor position is also specified on the stack.
-: XYS#IN ( x y n  dn )
-         -ROT AT WS#IN    ;
-
-
-
-</code>