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 ; -->