Listing of file='EDIT06.SCR;11' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 136 ### 00: 28 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 20 ( Screen Editor 10: 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6 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 137 ### 00: 3a 20 45 58 49 54 2d 4d 53 47 20 20 20 20 20 20 : EXIT-MSG 10: 20 32 20 43 48 4c 41 44 20 43 21 20 30 20 32 32 2 CHLAD C! 0 22 20: 20 42 43 52 54 58 59 20 53 43 52 20 3f 20 3b 20 BCRTXY SCR ? ; 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 45 58 49 54 2d 45 44 49 54 20 20 20 20 20 : EXIT-EDIT 50: 20 43 52 20 52 3e 20 44 52 4f 50 20 52 3e 20 44 CR R> DROP R> D 60: 52 4f 50 20 52 3e 20 44 52 4f 50 20 52 3e 20 44 ROP R> DROP R> D 70: 52 4f 50 20 52 3e 20 44 52 4f 50 20 20 20 20 20 ROP R> DROP ### Disk Sector 138 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 32 37 20 45 4d 49 54 20 32 37 20 45 4d 49 54 27 EMIT 27 EMIT 20: 20 3b 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 58 49 54 2d 55 50 44 41 54 45 20 20 20 : EXIT-UPDATE 50: 20 45 58 49 54 2d 4d 53 47 20 26 55 50 44 41 54 EXIT-MSG &UPDAT 60: 45 20 40 20 20 20 20 20 20 20 20 20 20 20 20 20 E @ 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 139 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 49 46 20 2e 22 20 4d 6f 64 69 66 69 65 64 22 IF ." Modified" 20: 20 55 50 44 41 54 45 20 46 4c 55 53 48 20 20 20 UPDATE FLUSH 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 45 4c 53 45 20 2e 22 20 55 6e 6d 6f 64 69 66 ELSE ." Unmodif 60: 69 65 64 22 20 45 4e 44 49 46 20 45 58 49 54 2d ied" ENDIF EXIT- 70: 45 44 49 54 20 3b 20 20 20 20 20 20 20 20 20 20 EDIT ; ### Disk Sector 140 ### 00: 3a 20 45 58 49 54 2d 53 43 52 41 54 43 48 20 20 : EXIT-SCRATCH 10: 20 45 58 49 54 2d 4d 53 47 20 2e 22 20 41 62 61 EXIT-MSG ." Aba 20: 6e 64 6f 6e 65 64 22 20 45 58 49 54 2d 45 44 49 ndoned" EXIT-EDI 30: 54 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 T ; 40: 3a 20 45 2d 54 41 42 20 20 20 20 20 20 20 20 20 : E-TAB 50: 20 38 20 43 55 52 50 4f 53 20 38 20 4d 4f 44 20 8 CURPOS 8 MOD 60: 2d 20 2b 43 55 52 50 4f 53 20 3b 20 20 20 20 20 - +CURPOS ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 141 ### 00: 3a 20 53 43 41 4e 2b 3d 20 20 20 20 20 20 20 20 : SCAN+= 10: 20 32 44 55 50 20 3d 20 49 46 20 44 52 4f 50 20 2DUP = IF DROP 20: 32 44 52 4f 50 20 30 20 45 4c 53 45 20 30 20 52 2DROP 0 ELSE 0 R 30: 4f 54 20 52 4f 54 20 44 4f 20 4f 56 45 52 20 20 OT ROT DO OVER 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 20 49 20 43 40 20 3d 20 49 46 20 4c 45 41 56 45 I C@ = IF LEAVE 60: 20 45 4c 53 45 20 31 2b 20 45 4e 44 49 46 20 4c ELSE 1+ ENDIF L 70: 4f 4f 50 20 20 20 20 20 20 20 20 20 20 20 20 20 OOP ### Disk Sector 142 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 53 57 41 50 20 44 52 4f 50 20 45 4e 44 49 46 SWAP DROP ENDIF 20: 20 3b 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 53 43 41 4e 2d 3d 20 20 20 20 20 20 20 20 : SCAN-= 50: 20 32 44 55 50 20 3d 20 49 46 20 44 52 4f 50 20 2DUP = IF DROP 60: 32 44 52 4f 50 20 30 20 45 4c 53 45 20 30 20 52 2DROP 0 ELSE 0 R 70: 4f 54 20 52 4f 54 20 44 4f 20 4f 56 45 52 20 20 OT ROT DO OVER ### Disk Sector 143 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 49 20 43 40 20 3d 20 49 46 20 4c 45 41 56 45 I C@ = IF LEAVE 20: 20 45 4c 53 45 20 31 2d 20 45 4e 44 49 46 20 2d ELSE 1- ENDIF - 30: 31 20 2b 4c 4f 4f 50 20 20 20 20 20 20 20 20 20 1 +LOOP 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 20 53 57 41 50 20 44 52 4f 50 20 45 4e 44 49 46 SWAP DROP ENDIF 60: 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ; 70: 20 20 20 20 20 20 2d 2d 3e 20 20 20 20 20 20 20 -->