Listing of file='SCRN13.RND;01' on disk='vmedia/chip_46-sector.ccvf'
### Disk Sector 104 ### 00: 28 20 53 54 52 49 4e 47 20 4d 41 54 43 48 20 46 ( STRING MATCH F 10: 4f 52 20 45 44 49 54 4f 52 20 20 20 20 20 20 20 OR EDITOR 20: 20 20 20 20 20 20 20 20 20 20 20 50 4d 2d 57 46 PM-WF 30: 52 2d 38 30 41 50 52 32 35 20 29 20 20 20 20 20 R-80APR25 ) 40: 3a 20 2d 54 45 58 54 20 20 20 20 20 20 20 20 20 : -TEXT 50: 20 20 20 20 20 20 28 20 41 44 44 52 45 53 53 2d ( ADDRESS- 60: 33 2c 20 43 4f 55 4e 54 2d 32 2c 20 41 44 44 52 3, COUNT-2, ADDR 70: 45 53 53 2d 31 20 2d 2d 2d 20 29 20 20 20 20 20 ESS-1 --- ) ### Disk Sector 105 ### 00: 20 20 20 53 57 41 50 20 2d 44 55 50 20 49 46 20 SWAP -DUP IF 10: 28 20 4c 56 2e 20 42 4f 4f 4c 45 41 4e 20 4d 41 ( LV. BOOLEAN MA 20: 54 43 48 45 44 3d 4e 4f 4e 2d 5a 45 52 4f 2c 20 TCHED=NON-ZERO, 30: 4e 4f 50 45 3d 5a 45 52 4f 20 29 20 20 20 20 20 NOPE=ZERO ) 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 56 45 OVE 50: 52 20 2b 20 53 57 41 50 20 20 20 28 20 4e 45 49 R + SWAP ( NEI 60: 54 48 45 52 20 41 44 44 52 45 53 53 20 4d 41 59 THER ADDRESS MAY 70: 20 42 45 20 5a 45 52 4f 21 20 29 20 20 20 20 20 BE ZERO! ) ### Disk Sector 106 ### 00: 20 20 20 20 20 20 20 20 44 4f 20 44 55 50 20 43 DO DUP C 10: 40 20 46 4f 52 54 48 20 49 20 43 40 20 2d 20 20 @ FORTH I C@ - 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 49 46 20 30 3d IF 0= 50: 20 4c 45 41 56 45 20 45 4c 53 45 20 31 2b 20 54 LEAVE ELSE 1+ T 60: 48 45 4e 20 4c 4f 4f 50 20 20 20 20 20 20 20 20 HEN LOOP 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 107 ### 00: 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 52 4f ELSE DRO 10: 50 20 30 3d 20 54 48 45 4e 20 3b 20 20 20 20 20 P 0= THEN ; 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 4d 41 54 43 48 20 28 20 43 55 52 53 4f 52 : MATCH ( CURSOR 50: 20 41 44 44 52 45 53 53 2d 34 2c 42 59 54 45 53 ADDRESS-4,BYTES 60: 20 4c 45 46 54 2d 33 2c 53 54 52 49 4e 47 20 41 LEFT-3,STRING A 70: 44 44 52 45 53 53 2d 32 2c 20 29 20 20 20 20 20 DDRESS-2, ) ### Disk Sector 108 ### 00: 20 20 20 20 20 20 20 20 28 20 53 54 52 49 4e 47 ( STRING 10: 20 43 4f 55 4e 54 2d 31 2c 2d 2d 2d 20 42 4f 4f COUNT-1,--- BOO 20: 4c 45 41 4e 2d 32 2c 20 43 55 52 53 4f 52 20 4d LEAN-2, CURSOR M 30: 4f 56 45 4d 45 4e 54 2d 31 20 29 20 20 20 20 20 OVEMENT-1 ) 40: 20 20 3e 52 20 3e 52 20 32 44 55 50 20 52 3e 20 >R >R 2DUP R> 50: 52 3e 20 32 53 57 41 50 20 4f 56 45 52 20 2b 20 R> 2SWAP OVER + 60: 53 57 41 50 20 20 20 20 20 20 20 20 20 20 20 20 SWAP 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 109 ### 00: 20 20 28 20 43 41 44 44 52 2d 36 2c 42 4c 45 46 ( CADDR-6,BLEF 10: 54 2d 35 2c 24 41 44 44 52 2d 34 2c 24 4c 45 4e T-5,$ADDR-4,$LEN 20: 2d 33 2c 43 41 44 44 52 2b 42 4c 45 46 54 2d 32 -3,CADDR+BLEFT-2 30: 2c 20 43 41 44 44 52 2d 31 20 29 20 20 20 20 20 , CADDR-1 ) 40: 20 20 44 4f 20 32 44 55 50 20 46 4f 52 54 48 20 DO 2DUP FORTH 50: 49 20 2d 54 45 58 54 20 20 20 20 20 20 20 20 20 I -TEXT 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 110 ### 00: 20 20 20 20 49 46 20 3e 52 20 32 44 52 4f 50 20 IF >R 2DROP 10: 52 3e 20 2d 20 49 20 53 57 41 50 20 2d 20 30 20 R> - I SWAP - 0 20: 53 57 41 50 20 30 20 30 20 4c 45 41 56 45 20 20 SWAP 0 0 LEAVE 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 28 20 43 41 44 44 52 20 42 ( CADDR B 50: 4c 45 46 54 20 24 41 44 44 52 20 24 4c 45 4e 20 LEFT $ADDR $LEN 60: 4f 52 20 45 4c 53 45 20 30 20 4f 46 46 53 45 54 OR ELSE 0 OFFSET 70: 20 30 20 30 20 29 20 20 20 20 20 20 20 20 20 20 0 0 ) ### Disk Sector 111 ### 00: 20 20 20 20 20 20 54 48 45 4e 20 4c 4f 4f 50 20 THEN LOOP 10: 32 44 52 4f 50 20 28 20 43 41 44 44 52 2d 32 2c 2DROP ( CADDR-2, 20: 42 4c 45 46 54 2d 31 2c 4f 52 20 30 2d 32 20 2c BLEFT-1,OR 0-2 , 30: 4f 46 46 53 45 54 2d 31 2c 20 29 20 20 20 20 20 OFFSET-1, ) 40: 20 20 20 20 53 57 41 50 20 30 3d 20 53 57 41 50 SWAP 0= SWAP 50: 20 3b 20 2d 2d 3e 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