;=== ; color constants support UNIT ; CONST ;Colori per Vector Image BLACK 0 OUT ; Black WHITE 1 OUT ; White BLUE 2 OUT ; Blue GREEN 3 OUT ; Green CYAN 4 OUT ; Cyan RED 5 OUT ; Red MAGENTA 6 OUT ; Magenta YELLOW 7 OUT ; Yellow OWB 8 OUT ; Obscure Weak Blue ODB 9 OUT ; Obscure Dull Blue DFB 10 OUT ; Dark Faded Blue DHB 11 OUT ; Dark Hard Blue OWG 12 OUT ; Obscure Weak Green OWC 13 OUT ; Obscure Weak Cyan ODA 14 OUT ; Obscure Dull Azure DAB 15 OUT ; Dark Azure-Blue DBA 16 OUT ; Dark Blue-Azure BBA 17 OUT ; Blue-Blue-Azure ODG 18 OUT ; Obscure Dull Green ODT 19 OUT ; Obscure Dull Teal ODC 20 OUT ; Obscure Dull Cyan DAC 21 OUT ; Dark Azure-Cyan DHA 22 OUT ; Dark Hard Azure AAB 23 OUT ; Azure-Azure-Blue DFG 24 OUT ; Dark Faded Green DTG 25 OUT ; Dark Teal-Green DTC 26 OUT ; Dark Teal-Cyan DFC 27 OUT ; Dark Faded Cyan DCA 28 OUT ; Dark Cyan-Azure AAC 29 OUT ; Azure-Azure-Cyan DHG 30 OUT ; Dark Hard Green DGT 31 OUT ; Dark Green-Teal DHT 32 OUT ; Dark Hard Teal DCT 33 OUT ; Dark Cyan-Teal DHC 34 OUT ; Dark Hard Cyan CCA 35 OUT ; Cyan-Cyan-Azure GGT 36 OUT ; Green-Green-Teal TTG 37 OUT ; Teal-Teal-Green TTC 38 OUT ; Teal-Teal-Cyan CCT 39 OUT ; Cyan-Cyan-Teal OWR 40 OUT ; Obscure Weak Red OWM 41 OUT ; Obscure Weak Magenta ODV 42 OUT ; Obscure Dull Violet DVB 43 OUT ; Dark Violet-Blue DBV 44 OUT ; Dark Blue-Violet BBV 45 OUT ; Blue-Blue-Violet OWY 46 OUT ; Obscure Weak Yellow OG 47 OUT ; Obscure Gray DWB 48 OUT ; Dark Weak Blue DDB 49 OUT ; Dark Dull Blue MFB 50 OUT ; Medium Faded Blue LHB 51 OUT ; Light Hard Blue ODS 52 OUT ; Obscure Dull Spring DWG 53 OUT ; Dark Weak Green DWC 54 OUT ; Dark Weak Cyan DDA 55 OUT ; Dark Dull Azure MAB 56 OUT ; Medium Azure-Blue LBA 57 OUT ; Light Blue-Azure DSG 58 OUT ; Dark Spring-Green DDG 59 OUT ; Dark Dull Green DDT 60 OUT ; Dark Dull Teal DDC 61 OUT ; Dark Dull Cyan MAC 62 OUT ; Medium Azure-Cyan LHA 63 OUT ; Light Hard Azure DGS 64 OUT ; Dark Green-Spring MFG 65 OUT ; Medium Faded Green MTG 66 OUT ; Medium Teal-Green MTC 67 OUT ; Medium Teal-Cyan MFC 68 OUT ; Medium Faded Cyan LCA 69 OUT ; Light Cyan-Azure GGS 70 OUT ; Green-Green-Spring LHG 71 OUT ; Light Hard Green LGT 72 OUT ; Light Green-Teal LHT 73 OUT ; Light Hard Teal LCT 74 OUT ; Light Cyan-Teal LHC 75 OUT ; Light Hard Cyan ODR 76 OUT ; Obscure Dull Red ODP 77 OUT ; Obscure Dull Pink ODM 78 OUT ; Obscure Dull Magenta DVM 79 OUT ; Dark Violet-Magenta DHV 80 OUT ; Dark Hard Violet VVB 81 OUT ; Violet-Violet-Blue ODO 82 OUT ; Obscure Dull Orange DWR 83 OUT ; Dark Weak Red DWM 84 OUT ; Dark Weak Magenta DDV 85 OUT ; Dark Dull Violet MVB 86 OUT ; Medium Violet-Blue LBV 87 OUT ; Light Blue-Violet ODY 88 OUT ; Obscure Dull Yellow DWY 89 OUT ; Dark Weak Yellow DG 90 OUT ; Dark Gray MWB 91 OUT ; Medium Weak Blue LDB 92 OUT ; Light Dull Blue LFB 93 OUT ; Light Faded Blue DSY 94 OUT ; Dark Spring-Yellow DDS 95 OUT ; Dark Dull Spring MWG 96 OUT ; Medium Weak Green MWC 97 OUT ; Medium Weak Cyan LDA 98 OUT ; Light Dull Azure LAB 99 OUT ; Light Azure-Blue DHS 100 OUT ; Dark Hard Spring MSG 101 OUT ; Medium Spring-Green LDG 102 OUT ; Light Dull Green LDT 103 OUT ; Light Dull Teal LDC 104 OUT ; Light Dull Cyan LAC 105 OUT ; Light Azure-Cyan SSG 106 OUT ; Spring-Spring-Green LGS 107 OUT ; Light Green-Spring LFG 108 OUT ; Light Faded Green LTG 109 OUT ; Light Teal-Green LTC 110 OUT ; Light Teal-Cyan LFC 111 OUT ; Light Faded Cyan DFR 112 OUT ; Dark Faded Red DPR 113 OUT ; Dark Pink-Red DPM 114 OUT ; Dark Pink-Magenta DFM 115 OUT ; Dark Faded Magenta DMV 116 OUT ; Dark Magenta-Violet VVM 117 OUT ; Violet-Violet-Magenta DOR 118 OUT ; Dark Orange-Red DDR 119 OUT ; Dark Dull Red DDP 120 OUT ; Dark Dull Pink DDM 121 OUT ; Dark Dull Magenta MVM 122 OUT ; Medium Violet-Magenta LHV 123 OUT ; Light Hard Violet DOY 124 OUT ; Dark Orange-Yellow DDO 125 OUT ; Dark Dull Orange MWR 126 OUT ; Medium Weak Red MWM 127 OUT ; Medium Weak Magenta LDV 128 OUT ; Light Dull Violet LVB 129 OUT ; Light Violet-Blue DFY 130 OUT ; Dark Faded Yellow DDY 131 OUT ; Dark Dull Yellow MWY 132 OUT ; Medium Weak Yellow LG 133 OUT ; Light Gray LWB 134 OUT ; Light Weak Blue PDB 135 OUT ; Pale Dull Blue DYS 136 OUT ; Dark Yellow-Spring MSY 137 OUT ; Medium Spring-Yellow LDS 138 OUT ; Light Dull Spring LWG 139 OUT ; Light Weak Green LWC 140 OUT ; Light Weak Cyan PDA 141 OUT ; Pale Dull Azure SSY 142 OUT ; Spring-Spring-Yellow LHS 143 OUT ; Light Hard Spring LSG 144 OUT ; Light Spring-Green PDG 145 OUT ; Pale Dull Green PDT 146 OUT ; Pale Dull Teal PDC 147 OUT ; Pale Dull Cyan DHR 148 OUT ; Dark Hard Red DRP 149 OUT ; Dark Red-Pink DHP 150 OUT ; Dark Hard Pink DMP 151 OUT ; Dark Magenta-Pink DHM 152 OUT ; Dark Hard Magenta MMV 153 OUT ; Magenta-Magenta-Violet DRO 154 OUT ; Dark Red-Orange MFR 155 OUT ; Medium Faded Red MPR 156 OUT ; Medium Pink-Red MPM 157 OUT ; Medium Pink-Magenta MFM 158 OUT ; Medium Faded Magenta LMV 159 OUT ; Light Magenta-Violet DHO 160 OUT ; Dark Hard Orange MOR 161 OUT ; Medium Orange-Red LDR 162 OUT ; Light Dull Red LDP 163 OUT ; Light Dull Pink LDM 164 OUT ; Light Dull Magenta LVM 165 OUT ; Light Violet-Magenta DYO 166 OUT ; Dark Yellow-Orange MOY 167 OUT ; Medium Orange-Yellow LDO 168 OUT ; Light Dull Orange LWR 169 OUT ; Light Weak Red LWM 170 OUT ; Light Weak Magenta PDV 171 OUT ; Pale Dull Violet DHY 172 OUT ; Dark Hard Yellow MFY 173 OUT ; Medium Faded Yellow LDY 174 OUT ; Light Dull Yellow LWY 175 OUT ; Light Weak Yellow PG 176 OUT ; Pale Gray PWB 177 OUT ; Pale Weak Blue YYS 178 OUT ; Yellow-Yellow-Spring LYS 179 OUT ; Light Yellow-Spring LSY 180 OUT ; Light Spring-Yellow PDS 181 OUT ; Pale Dull Spring PWG 182 OUT ; Pale Weak Green PWC 183 OUT ; Pale Weak Cyan RRP 184 OUT ; Red-Red-Pink PPR 185 OUT ; Pink-Pink-Red PPM 186 OUT ; Pink-Pink-Magenta MMP 187 OUT ; Magenta-Magenta-Pink RRO 188 OUT ; Red-Red-Orange LHR 189 OUT ; Light Hard Red LRP 190 OUT ; Light Red-Pink LHP 191 OUT ; Light Hard Pink LMP 192 OUT ; Light Magenta-Pink LHM 193 OUT ; Light Hard Magenta OOR 194 OUT ; Orange-Orange-Red LRO 195 OUT ; Light Red-Orange LFR 196 OUT ; Light Faded Red LPR 197 OUT ; Light Pink-Red LPM 198 OUT ; Light Pink-Magenta LFM 199 OUT ; Light Faded Magenta OOY 200 OUT ; Orange-Orange-Yellow LHO 201 OUT ; Light Hard Orange LOR 202 OUT ; Light Orange-Red PDR 203 OUT ; Pale Dull Red PDP 204 OUT ; Pale Dull Pink PDM 205 OUT ; Pale Dull Magenta YYO 206 OUT ; Yellow-Yellow-Orange LYO 207 OUT ; Light Yellow-Orange LOY 208 OUT ; Light Orange-Yellow PDO 209 OUT ; Pale Dull Orange PWR 210 OUT ; Pale Weak Red PWM 211 OUT ; Pale Weak Magenta LHY 212 OUT ; Light Hard Yellow LFY 213 OUT ; Light Faded Yellow PDY 214 OUT ; Pale Dull Yellow PWY 215 OUT ; Pale Weak Yellow GRAY 235 OUT ; Gray ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DO NOT TOUCH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; main entry point ; BEGIN ; WHILE TRUE ; SUSPEND ; ENDWHILE ; END ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;