Listing of file='DECOM5.SCR;0A' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 80 ### 00: 28 20 66 69 67 2d 46 4f 52 54 48 20 44 65 63 6f ( fig-FORTH Deco 10: 6d 70 69 6c 65 72 20 35 20 20 20 20 20 20 20 20 mpiler 5 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 30 39 41 55 47 38 32 20 29 WLG09AUG82 ) 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 81 ### 00: 3a 20 56 41 52 2e 44 53 50 20 20 20 20 20 20 20 : VAR.DSP 10: 43 59 41 4e 20 2e 22 20 56 61 72 69 61 62 6c 65 CYAN ." Variable 20: 2c 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 , current value 30: 3d 20 22 20 43 4f 4e 2e 20 3b 20 20 20 20 20 20 = " CON. ; 40: 3a 20 43 4f 4e 53 54 2e 44 53 50 20 20 20 20 20 : CONST.DSP 50: 43 59 41 4e 20 2e 22 20 43 6f 6e 73 74 61 6e 74 CYAN ." Constant 60: 2c 20 76 61 6c 75 65 20 3d 20 22 20 43 4f 4e 2e , value = " CON. 70: 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ; ### Disk Sector 82 ### 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: 46 4f 52 54 48 20 44 45 46 49 4e 49 54 49 4f 4e FORTH DEFINITION 50: 53 20 44 45 43 49 4d 41 4c 20 20 20 20 20 20 20 S DECIMAL 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 83 ### 00: 28 20 50 52 4f 47 52 41 4d 20 53 54 41 52 54 53 ( PROGRAM STARTS 10: 20 48 45 52 45 20 77 69 74 68 20 44 49 53 20 63 HERE with DIS c 20: 63 63 63 20 29 20 20 20 20 20 20 20 20 20 20 20 ccc ) 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 44 49 53 20 44 45 43 4f 4d 50 20 20 20 20 : DIS DECOMP 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 84 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 2d 46 49 4e 44 20 30 3d 20 49 46 20 33 20 53 50 -FIND 0= IF 3 SP 20: 41 43 45 53 20 43 59 41 4e 20 2e 22 20 3f 20 6e ACES CYAN ." ? n 30: 6f 74 20 69 6e 20 67 6c 6f 73 73 61 72 79 20 22 ot in glossary " 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 43 52 20 45 4c 53 45 20 44 52 4f 50 20 44 55 50 CR ELSE DROP DUP 60: 20 4e 46 41 20 44 55 50 20 43 52 20 48 45 58 2e NFA DUP CR HEX. 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 85 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 53 50 41 43 45 20 4d 41 47 45 4e 54 41 20 49 44 SPACE MAGENTA ID 20: 2e 20 44 55 50 20 44 55 50 20 43 46 41 20 53 57 . DUP DUP CFA SW 30: 41 50 20 4f 56 45 52 20 40 20 3d 20 20 20 20 20 AP OVER @ = 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 49 46 20 40 20 43 52 20 48 45 58 2e 20 43 59 41 IF @ CR HEX. CYA 60: 4e 20 2e 22 20 20 3c 70 72 69 6d 61 74 69 76 65 N ." <primative 70: 3e 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 > " ### Disk Sector 86 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 43 52 20 44 52 4f 50 20 45 4c 53 45 20 44 52 4f CR DROP ELSE DRO 20: 50 20 30 20 51 55 49 54 2e 46 4c 41 47 20 21 20 P 0 QUIT.FLAG ! 30: 32 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 2 - 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 57 4f 52 44 2e 50 54 52 20 21 20 43 52 20 42 45 WORD.PTR ! CR BE 60: 47 49 4e 20 57 4f 52 44 2e 50 54 52 20 40 20 44 GIN WORD.PTR @ D 70: 55 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 UP ### Disk Sector 87 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 48 45 58 2e 20 53 50 41 43 45 20 40 20 43 59 41 HEX. SPACE @ CYA 20: 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 N 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 43 41 53 45 20 2d 2d 3e 20 20 20 20 CASE --> 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20