Listing of file='EDIT02.SCR;0D' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 104 ### 00: 28 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 20 ( Screen Editor 10: 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2 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 32 4f 43 54 38 32 20 29 WLG22OCT82 ) 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 20 20 3a 20 45 2d 55 50 44 41 54 45 20 31 20 26 : E-UPDATE 1 & 60: 55 50 44 41 54 45 20 21 20 3b 20 20 20 20 20 20 UPDATE ! ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 105 ### 00: 20 43 4f 44 45 20 4d 43 21 20 48 20 50 4f 50 20 CODE MC! H POP 10: 4d 20 41 20 4d 4f 56 20 33 32 20 4f 52 49 20 41 M A MOV 32 ORI A 20: 20 4d 20 4d 4f 56 20 4e 45 58 54 20 4a 4d 50 20 M MOV NEXT JMP 30: 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C; 40: 20 43 4f 44 45 20 44 43 21 20 48 20 50 4f 50 20 CODE DC! H POP 50: 4d 20 41 20 4d 4f 56 20 20 33 20 41 4e 49 20 41 M A MOV 3 ANI A 60: 20 4d 20 4d 4f 56 20 4e 45 58 54 20 4a 4d 50 20 M MOV NEXT JMP 70: 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C; ### Disk Sector 106 ### 00: 3a 20 43 55 52 50 4f 53 20 20 20 20 20 20 20 20 : CURPOS 10: 20 26 43 55 52 53 4f 52 20 40 20 3b 20 3a 20 43 &CURSOR @ ; : C 20: 48 4c 41 44 20 43 55 52 50 4f 53 20 32 2a 20 43 HLAD CURPOS 2* C 30: 55 52 41 44 52 20 2b 20 3b 20 20 20 20 20 20 20 URADR + ; 40: 3a 20 43 48 41 52 53 2d 54 4f 2d 45 4f 4c 20 20 : CHARS-TO-EOL 50: 20 43 2f 4c 20 4d 4f 44 20 43 2f 4c 20 53 57 41 C/L MOD C/L SWA 60: 50 20 2d 20 3b 20 20 20 20 20 20 20 20 20 20 20 P - ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 107 ### 00: 3a 20 43 48 41 52 53 2d 54 4f 2d 45 4f 53 20 20 : CHARS-TO-EOS 10: 20 43 2f 53 43 52 20 43 55 52 50 4f 53 20 2d 20 C/SCR CURPOS - 20: 3b 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 44 45 4c 2d 43 55 52 20 20 20 20 20 20 20 : DEL-CUR 50: 20 40 43 55 52 53 4f 52 20 40 20 43 55 52 50 4f @CURSOR @ CURPO 60: 53 20 3c 3e 20 49 46 20 40 43 55 52 53 4f 52 20 S <> IF @CURSOR 70: 40 20 32 2a 20 43 55 52 41 44 52 20 2b 20 20 20 @ 2* CURADR + ### Disk Sector 108 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 44 43 21 20 45 4e 44 49 46 20 3b 20 20 20 20 DC! ENDIF ; 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 2b 43 55 52 50 4f 53 20 20 20 20 20 20 20 : +CURPOS 50: 20 26 43 55 52 53 4f 52 20 2b 21 20 43 55 52 50 &CURSOR +! CURP 60: 4f 53 20 20 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 109 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 30 20 4d 41 58 20 5b 20 43 2f 53 43 52 20 31 0 MAX [ C/SCR 1 20: 2d 20 5d 20 4c 49 54 45 52 41 4c 20 4d 49 4e 20 - ] LITERAL MIN 30: 26 43 55 52 53 4f 52 20 21 20 3b 20 20 20 20 20 &CURSOR ! ; 40: 3a 20 4d 4f 56 45 2d 43 55 52 53 4f 52 20 20 20 : MOVE-CURSOR 50: 20 2b 43 55 52 50 4f 53 20 43 48 4c 41 44 20 4d +CURPOS CHLAD M 60: 43 21 20 44 45 4c 2d 43 55 52 20 3b 20 20 20 20 C! DEL-CUR ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 110 ### 00: 3a 20 42 55 46 3e 43 52 54 20 20 20 20 20 20 20 : BUF>CRT 10: 20 4c 49 4e 45 2d 42 55 46 20 32 39 30 35 36 20 LINE-BUF 29056 20: 43 2f 4c 20 54 4f 43 52 54 20 3b 20 20 20 20 20 C/L TOCRT ; 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 42 55 46 2d 41 44 52 20 20 20 20 20 20 20 : BUF-ADR 50: 20 26 42 55 46 2d 41 44 52 20 40 20 2b 20 3b 20 &BUF-ADR @ + ; 60: 20 3a 20 42 55 46 50 4f 53 20 43 55 52 50 4f 53 : BUFPOS CURPOS 70: 20 42 55 46 2d 41 44 52 20 3b 20 20 20 20 20 20 BUF-ADR ; ### Disk Sector 111 ### 00: 3a 20 42 55 46 2d 4d 4f 56 45 20 20 20 20 20 20 : BUF-MOVE 10: 20 52 4f 54 20 42 55 46 2d 41 44 52 20 52 4f 54 ROT BUF-ADR ROT 20: 20 42 55 46 2d 41 44 52 20 52 4f 54 20 4d 4f 56 BUF-ADR ROT MOV 30: 45 20 45 2d 55 50 44 41 54 45 20 3b 20 20 20 20 E E-UPDATE ; 40: 3a 20 3f 50 52 49 4e 54 41 42 4c 45 20 20 20 20 : ?PRINTABLE 50: 20 44 55 50 20 33 32 20 3c 20 53 57 41 50 20 31 DUP 32 < SWAP 1 60: 32 36 20 3e 20 4f 52 20 30 3d 20 3b 20 2d 2d 3e 26 > OR 0= ; --> 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20