Compucolor.org – Virtual Media

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

### Disk Sector 168 ###
00: 28 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 20   ( Screen Editor
10: 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20   10
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 30 41 50 52 38 33 20 29       WLG20APR83 )
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 169 ###
00: 20 20 43 41 53 45 3a 20 20 20 20 20 20 20 20 20     CASE:
10: 28 43 4f 4e 54 52 4f 4c 2d 43 48 41 52 29 20 59   (CONTROL-CHAR) Y
20: 41 4e 4b 2d 42 41 43 4b 20 41 55 54 4f 20 4c 49   ANK-BACK AUTO LI
30: 4e 45 3e 42 55 46 20 49 2d 4c 49 4e 45 20 20 20   NE>BUF I-LINE
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 44 2d 4c 49 4e 45 20 44 2d 57 4f 52 44 20 4e 4f   D-LINE D-WORD NO
60: 4f 50 20 44 2d 43 48 41 52 20 48 4f 4d 45 20 45   OP D-CHAR HOME E
70: 2d 54 41 42 20 44 2d 41 52 52 4f 57 20 20 20 20   -TAB D-ARROW
### Disk Sector 170 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 43 4c 52 2d 4c 49 4e 45 20 43 4c 52 2d 53 43 52   CLR-LINE CLR-SCR
20: 45 45 4e 20 52 45 54 55 52 4e 20 4e 4f 4f 50 20   EEN RETURN NOOP
30: 4e 4f 4f 50 20 20 20 20 20 20 20 20 20 20 20 20   NOOP
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 45 58 49 54 2d 53 43 52 41 54 43 48 20 55 2d 54   EXIT-SCRATCH U-T
60: 41 42 20 55 2d 41 52 52 4f 57 20 4c 2d 57 4f 52   AB U-ARROW L-WOR
70: 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   D
### Disk Sector 171 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 49 4e 53 45 52 54 2d 4d 4f 44 45 20 44 2d 54 41   INSERT-MODE D-TA
20: 42 20 44 2d 41 52 52 4f 57 20 52 2d 57 4f 52 44   B D-ARROW R-WORD
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: 30 20 52 2d 41 52 52 4f 57 20 4c 2d 41 52 52 4f   0 R-ARROW L-ARRO
60: 57 20 45 58 49 54 2d 55 50 44 41 54 45 20 55 2d   W EXIT-UPDATE U-
70: 41 52 52 4f 57 20 3b 20 20 20 20 20 20 20 20 20   ARROW ;
### Disk Sector 172 ###
00: 3a 20 43 4f 4e 54 52 4f 4c 2d 43 48 41 52 20 20   : CONTROL-CHAR
10: 44 55 50 20 31 32 37 20 3d 20 49 46 20 44 52 4f   DUP 127 = IF DRO
20: 50 20 37 20 45 4e 44 49 46 20 44 55 50 20 32 39   P 7 ENDIF DUP 29
30: 20 3c 20 49 46 20 20 20 20 20 20 20 20 20 20 20    < IF
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 28 43 4f 4e 54 52 4f 4c 2d 43 48 41 52 29 20 45   (CONTROL-CHAR) E
60: 4c 53 45 20 44 52 4f 50 20 45 4e 44 49 46 20 3b   LSE DROP ENDIF ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 173 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 45 2d 54 59 50 4f 20 20 20 20 20 20 20 20   : E-TYPO
50: 35 30 30 20 30 20 44 4f 20 4c 4b 43 4f 44 45 20   500 0 DO LKCODE
60: 43 40 20 30 3d 20 49 46 20 4c 45 41 56 45 20 45   C@ 0= IF LEAVE E
70: 4e 44 49 46 20 4c 4f 4f 50 20 3b 20 20 20 20 20   NDIF LOOP ;
### Disk Sector 174 ###
00: 3a 20 47 45 54 4b 45 59 20 20 20 20 20 20 20 20   : GETKEY
10: 4b 45 59 20 44 55 50 20 44 55 50 20 50 56 4b 45   KEY DUP DUP PVKE
20: 59 20 43 21 20 45 2d 54 59 50 4f 20 42 45 47 49   Y C! E-TYPO BEGI
30: 4e 20 43 55 52 50 4f 53 20 20 20 20 20 20 20 20   N CURPOS
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 40 43 55 52 53 4f 52 20 21 20 3f 50 52 49 4e 54   @CURSOR ! ?PRINT
60: 41 42 4c 45 20 49 46 20 50 2d 43 48 41 52 20 45   ABLE IF P-CHAR E
70: 4c 53 45 20 43 4f 4e 54 52 4f 4c 2d 43 48 41 52   LSE CONTROL-CHAR
### Disk Sector 175 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 45 4e 44 49 46 20 44 49 53 50 4c 41 59 2d 53 54   ENDIF DISPLAY-ST
20: 41 54 55 53 20 30 20 4d 4f 56 45 2d 43 55 52 53   ATUS 0 MOVE-CURS
30: 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20   OR
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 4c 4b 43 4f 44 45 20 43 40 20 30 20 3e 20 57 48   LKCODE C@ 0 > WH
60: 49 4c 45 20 50 56 4b 45 59 20 43 40 20 44 55 50   ILE PVKEY C@ DUP
70: 20 52 45 50 45 41 54 20 3b 20 2d 2d 3e 20 20 20    REPEAT ; -->