Compucolor.org – Virtual Media

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

### Disk Sector 152 ###
00: 28 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 20   ( Screen Editor
10: 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   8
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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 153 ###
00: 3a 20 44 45 4c 2d 43 48 41 52 53 20 20 20 20 20   : DEL-CHARS
10: 20 32 44 55 50 20 2b 20 4f 56 45 52 20 44 55 50    2DUP + OVER DUP
20: 20 43 48 41 52 53 2d 54 4f 2d 45 4f 4c 20 42 55    CHARS-TO-EOL BU
30: 46 2d 4d 4f 56 45 20 44 55 50 20 20 20 20 20 20   F-MOVE DUP
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 2b 20    CHARS-TO-EOL +
60: 4f 56 45 52 20 2d 20 42 55 46 2d 41 44 52 20 53   OVER - BUF-ADR S
70: 57 41 50 20 42 4c 41 4e 4b 53 20 3b 20 20 20 20   WAP BLANKS ;
### Disk Sector 154 ###
00: 3a 20 44 2d 57 4f 52 44 20 20 20 20 20 20 20 20   : D-WORD
10: 20 4d 4f 56 2d 52 2d 57 4f 52 44 20 43 55 52 50    MOV-R-WORD CURP
20: 4f 53 20 42 55 46 2d 41 44 52 20 43 55 52 50 4f   OS BUF-ADR CURPO
30: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   S
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 2d 54    CHARS-TO-EOL -T
60: 52 41 49 4c 49 4e 47 20 53 57 41 50 20 44 52 4f   RAILING SWAP DRO
70: 50 20 4d 49 4e 20 43 55 52 50 4f 53 20 20 20 20   P MIN CURPOS
### Disk Sector 155 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 44 45 4c 2d 43 48 41 52 53 20 43 55 52 50 4f    DEL-CHARS CURPO
20: 53 20 43 48 41 52 53 2d 54 4f 2d 45 4f 4c 20 44   S CHARS-TO-EOL D
30: 49 53 50 4c 41 59 20 3b 20 20 20 20 20 20 20 20   ISPLAY ;
40: 3a 20 55 2d 54 41 42 20 20 20 20 20 20 20 20 20   : U-TAB
50: 20 2d 32 35 36 20 43 55 52 50 4f 53 20 2b 20 42    -256 CURPOS + B
60: 45 47 49 4e 20 44 55 50 20 30 3c 20 57 48 49 4c   EGIN DUP 0< WHIL
70: 45 20 36 34 20 20 20 20 20 20 20 20 20 20 20 20   E 64
### Disk Sector 156 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 2b 20 52 45 50 45 41 54 20 26 43 55 52 53 4f    + REPEAT &CURSO
20: 52 20 21 20 20 3b 20 20 20 20 20 20 20 20 20 20   R !  ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 44 2d 54 41 42 20 20 20 20 20 20 20 20 20   : D-TAB
50: 20 32 35 36 20 43 55 52 50 4f 53 20 2b 20 42 45    256 CURPOS + BE
60: 47 49 4e 20 44 55 50 20 31 30 32 34 20 3e 3d 20   GIN DUP 1024 >=
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 157 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 57 48 49 4c 45 20 2d 36 34 20 2b 20 52 45 50    WHILE -64 + REP
20: 45 41 54 20 26 43 55 52 53 4f 52 20 21 20 20 3b   EAT &CURSOR !  ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 43 4c 52 2d 53 43 52 45 45 4e 20 20 20 20   : CLR-SCREEN
50: 20 30 20 26 43 55 52 53 4f 52 20 21 20 42 55 46    0 &CURSOR ! BUF
60: 50 4f 53 20 43 2f 53 43 52 20 42 4c 41 4e 4b 53   POS C/SCR BLANKS
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 158 ###
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 45 2d 55 50 44 41 54 45 20 3b   SPLAY E-UPDATE ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 44 49 53 50 4c 41 59 2d 53 54 41 54 55 53   : DISPLAY-STATUS
50: 20 43 55 52 50 4f 53 20 43 2f 4c 20 2f 4d 4f 44    CURPOS C/L /MOD
60: 20 33 35 20 32 20 42 43 52 54 58 59 20 32 20 2e    35 2 BCRTXY 2 .
70: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   R
### Disk Sector 159 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 32 38 20 32 20 42 43 52 54 58 59 20 32 20 2e    28 2 BCRTXY 2 .
20: 52 20 3b 20 2d 2d 3e 20 20 20 20 20 20 20 20 20   R ; -->
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20