Compucolor.org – Virtual Media

Listing of file='EDIT05.SCR;10' on disk='vmedia/chip_121-sector.ccvf'

### Disk Sector 128 ###
00: 28 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 20   ( Screen Editor
10: 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   5
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30: 20 20 20 20 57 4c 47 32 33 4f 43 54 38 32 20 29       WLG23OCT82 )
40: 3a 20 4c 49 4e 45 3e 42 55 46 20 20 20 20 20 20   : LINE>BUF
50: 20 43 55 52 50 4f 53 20 3e 4c 49 4e 45 23 20 4c    CURPOS >LINE# L
60: 49 4e 45 23 3e 20 42 55 46 2d 41 44 52 20 4c 49   INE#> BUF-ADR LI
70: 4e 45 2d 42 55 46 20 20 20 20 20 20 20 20 20 20   NE-BUF
### Disk Sector 129 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 36 34 20 43 4d 4f 56 45 20 42 55 46 3e 43 52    64 CMOVE BUF>CR
20: 54 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   T ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 49 2d 4c 49 4e 45 20 20 20 20 20 20 20 20   : I-LINE
50: 20 31 35 20 4c 49 4e 45 23 3e 20 3f 45 4d 50 54    15 LINE#> ?EMPT
60: 59 2d 4c 49 4e 45 20 49 46 20 43 55 52 50 4f 53   Y-LINE IF CURPOS
70: 20 45 58 50 41 4e 44 20 20 20 20 20 20 20 20 20    EXPAND
### Disk Sector 130 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 43 48 41 52 53 2d 54 4f 2d 45 4f 53 20 44 49    CHARS-TO-EOS DI
20: 53 50 4c 41 59 20 54 48 45 4e 20 3b 20 20 20 20   SPLAY THEN ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 44 2d 4c 49 4e 45 20 20 20 20 20 20 20 20   : D-LINE
50: 20 43 55 52 50 4f 53 20 3e 4c 49 4e 45 23 20 4c    CURPOS >LINE# L
60: 49 4e 45 23 3e 20 44 55 50 20 26 43 55 52 53 4f   INE#> DUP &CURSO
70: 52 20 21 20 53 48 52 49 4e 4b 20 20 20 20 20 20   R ! SHRINK
### Disk Sector 131 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 43 48 41 52 53 2d 54 4f 2d 45 4f 53 20 44 49    CHARS-TO-EOS DI
20: 53 50 4c 41 59 20 3b 20 20 20 20 20 20 20 20 20   SPLAY ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 44 45 4c 2d 43 48 41 52 20 20 20 20 20 20   : DEL-CHAR
50: 20 44 55 50 20 44 55 50 20 31 2b 20 53 57 41 50    DUP DUP 1+ SWAP
60: 20 4f 56 45 52 20 43 48 41 52 53 2d 54 4f 2d 45    OVER CHARS-TO-E
70: 4f 4c 20 42 55 46 2d 4d 4f 56 45 20 20 20 20 20   OL BUF-MOVE
### Disk Sector 132 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 44 55 50 20 43 48 41 52 53 2d 54 4f 2d 45 4f    DUP CHARS-TO-EO
20: 4c 20 2b 20 31 2d 20 42 55 46 2d 41 44 52 20 42   L + 1- BUF-ADR B
30: 4c 20 53 57 41 50 20 43 21 20 3b 20 20 20 20 20   L SWAP C! ;
40: 3a 20 52 2d 41 52 52 4f 57 20 20 20 20 20 20 20   : R-ARROW
50: 20 31 20 20 20 2b 43 55 52 50 4f 53 20 3b 20 3a    1   +CURPOS ; :
60: 20 4c 2d 41 52 52 4f 57 20 20 2d 31 20 2b 43 55    L-ARROW  -1 +CU
70: 52 50 4f 53 20 3b 20 20 20 20 20 20 20 20 20 20   RPOS ;
### Disk Sector 133 ###
00: 3a 20 44 2d 41 52 52 4f 57 20 20 20 20 20 20 20   : D-ARROW
10: 20 43 2f 4c 20 2b 43 55 52 50 4f 53 20 3b 20 3a    C/L +CURPOS ; :
20: 20 48 4f 4d 45 20 20 20 20 20 44 45 4c 2d 43 55    HOME     DEL-CU
30: 52 20 30 20 26 43 55 52 53 4f 52 20 21 20 3b 20   R 0 &CURSOR ! ;
40: 3a 20 55 2d 41 52 52 4f 57 20 20 20 20 20 20 20   : U-ARROW
50: 20 43 2f 4c 20 4d 49 4e 55 53 20 2b 43 55 52 50    C/L MINUS +CURP
60: 4f 53 20 3b 20 20 20 20 20 20 20 20 20 20 20 20   OS ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 134 ###
00: 3a 20 44 2d 43 48 41 52 20 20 20 20 20 20 20 20   : D-CHAR
10: 20 43 55 52 50 4f 53 20 49 46 20 2d 31 20 4d 4f    CURPOS IF -1 MO
20: 56 45 2d 43 55 52 53 4f 52 20 43 55 52 50 4f 53   VE-CURSOR CURPOS
30: 20 44 55 50 20 44 45 4c 2d 43 48 41 52 20 20 20    DUP DEL-CHAR
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 43 48 41 52 53 2d 54 4f 2d 45 4f 4c 20 44 49    CHARS-TO-EOL DI
60: 53 50 4c 41 59 20 45 4e 44 49 46 20 3b 20 20 20   SPLAY ENDIF ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 135 ###
00: 3a 20 52 45 54 55 52 4e 20 20 20 20 20 20 20 20   : RETURN
10: 20 43 55 52 50 4f 53 20 3e 4c 49 4e 45 23 20 31    CURPOS >LINE# 1
20: 2b 20 5b 20 4c 2f 53 43 52 20 31 2d 20 5d 20 4c   + [ L/SCR 1- ] L
30: 49 54 45 52 41 4c 20 20 20 20 20 20 20 20 20 20   ITERAL
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 4d 49 4e 20 4c 49 4e 45 23 3e 20 26 43 55 52    MIN LINE#> &CUR
60: 53 4f 52 20 21 20 3b 20 20 2d 2d 3e 20 20 20 20   SOR ! ;  -->
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20