Listing of file='EDIT01.SCR;0C' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 96 ### 00: 28 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 20 ( Screen Editor 10: 31 20 20 20 20 20 20 20 44 44 4a 33 30 53 45 50 1 DDJ30SEP 20: 38 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 81 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 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 97 ### 00: 46 4f 52 54 48 20 44 45 46 49 4e 49 54 49 4f 4e FORTH DEFINITION 10: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 S 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: 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 98 ### 00: 3a 20 32 44 52 4f 50 20 44 52 4f 50 20 44 52 4f : 2DROP DROP DRO 10: 50 20 3b 20 3a 20 32 2a 20 44 55 50 20 2b 20 3b P ; : 2* DUP + ; 20: 20 3a 20 3c 3e 20 3d 20 30 3d 20 3b 20 3a 20 3e : <> = 0= ; : > 30: 3d 20 3c 20 30 3d 20 20 3b 20 20 20 20 20 20 20 = < 0= ; 40: 3a 20 43 41 53 45 3a 20 20 20 20 20 20 20 20 20 : CASE: 50: 3c 42 55 49 4c 44 53 20 5d 20 53 4d 55 44 47 45 <BUILDS ] SMUDGE 60: 20 44 4f 45 53 3e 20 53 57 41 50 20 32 2a 20 2b DOES> SWAP 2* + 70: 20 40 20 45 58 45 43 55 54 45 20 3b 20 20 20 20 @ EXECUTE ; ### Disk Sector 99 ### 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: 56 4f 43 41 42 55 4c 41 52 59 20 45 44 49 54 4f VOCABULARY EDITO 50: 52 20 49 4d 4d 45 44 49 41 54 45 20 45 44 49 54 R IMMEDIATE EDIT 60: 4f 52 20 44 45 46 49 4e 49 54 49 4f 4e 53 20 44 OR DEFINITIONS D 70: 45 43 49 4d 41 4c 20 20 20 20 20 20 20 20 20 20 ECIMAL ### Disk Sector 100 ### 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 42 43 52 54 58 59 20 20 20 20 20 20 20 20 : BCRTXY 50: 33 20 45 4d 49 54 20 38 31 20 45 4d 49 54 20 53 3 EMIT 81 EMIT S 60: 57 41 50 20 45 4d 49 54 20 45 4d 49 54 20 32 20 WAP EMIT EMIT 2 70: 45 4d 49 54 20 3b 20 20 20 20 20 20 20 20 20 20 EMIT ; ### Disk Sector 101 ### 00: 3a 20 56 43 52 54 58 59 20 20 20 20 20 20 20 20 : VCRTXY 10: 53 57 41 50 20 33 20 45 4d 49 54 20 45 4d 49 54 SWAP 3 EMIT EMIT 20: 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 20 20 EMIT ; 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 30 20 56 41 52 49 41 42 4c 45 20 26 4d 4f 44 45 0 VARIABLE &MODE 50: 20 20 20 20 20 20 30 20 56 41 52 49 41 42 4c 45 0 VARIABLE 60: 20 26 43 55 52 53 4f 52 20 20 20 30 20 56 41 52 &CURSOR 0 VAR 70: 49 41 42 4c 45 20 26 42 55 46 2d 41 44 52 20 20 IABLE &BUF-ADR ### Disk Sector 102 ### 00: 30 20 56 41 52 49 41 42 4c 45 20 26 55 50 44 41 0 VARIABLE &UPDA 10: 54 45 20 20 20 20 30 20 56 41 52 49 41 42 4c 45 TE 0 VARIABLE 20: 20 50 56 4b 45 59 20 20 20 20 20 30 20 56 41 52 PVKEY 0 VAR 30: 49 41 42 4c 45 20 40 43 55 52 53 4f 52 20 20 20 IABLE @CURSOR 40: 20 31 30 32 34 20 43 4f 4e 53 54 41 4e 54 20 43 1024 CONSTANT C 50: 2f 53 43 52 20 20 35 20 43 4f 4e 53 54 41 4e 54 /SCR 5 CONSTANT 60: 20 25 59 2d 4f 46 46 20 20 20 31 36 20 43 4f 4e %Y-OFF 16 CON 70: 53 54 41 4e 54 20 4c 2f 53 43 52 20 20 20 20 20 STANT L/SCR ### Disk Sector 103 ### 00: 32 39 33 31 33 20 43 4f 4e 53 54 41 4e 54 20 43 29313 CONSTANT C 10: 55 52 41 44 52 20 28 20 37 32 38 30 48 20 29 20 URADR ( 7280H ) 20: 20 20 20 20 20 20 20 33 33 32 35 32 20 43 4f 4e 33252 CON 30: 53 54 41 4e 54 20 4c 4b 43 4f 44 45 20 20 20 20 STANT LKCODE 40: 30 20 56 41 52 49 41 42 4c 45 20 4c 49 4e 45 2d 0 VARIABLE LINE- 50: 42 55 46 20 36 34 20 41 4c 4c 4f 54 20 4c 49 4e BUF 64 ALLOT LIN 60: 45 2d 42 55 46 20 36 34 20 42 4c 41 4e 4b 53 20 E-BUF 64 BLANKS 70: 20 20 2d 2d 3e 20 20 20 20 20 20 20 20 20 20 20 -->