***************************************************************** * * COLORR Display color combinations * ***************************************************************** * FILE DESCRIPTIONS: ***************************************************************** * Display File Fcolor cf e workstn F infds(infds) ***************************************************************** * TABLES/ARRAYS/DATA STRUCTURES ***************************************************************** D hex s 1 dim(32) D txi s 15 dim(32) ctdata perrcd(1) * Program Status Data Structure D psds esds extname(psds) * Local Data Area D lda euds extname(lda) * File Information Data Structure D infds e ds extname(infds) * Screen display line D ds D w#line 16 D w#scat 1 overlay(w#line) D w#text 15 overlay(w#line:2) * Hex code array overlaid with screen fields D ds D asc 1 64 D dim(32) D s1hx01 1 2 D s1hx02 3 4 D s1hx03 5 6 D s1hx04 7 8 D s1hx05 9 10 D s1hx06 11 12 D s1hx07 13 14 D s1hx08 15 16 D s1hx09 17 18 D s1hx10 19 20 D s1hx11 21 22 D s1hx12 23 24 D s1hx13 25 26 D s1hx14 27 28 D s1hx15 29 30 D s1hx16 31 32 D s1hx17 33 34 D s1hx18 35 36 D s1hx19 37 38 D s1hx20 39 40 D s1hx21 41 42 D s1hx22 43 44 D s1hx23 45 46 D s1hx24 47 48 D s1hx25 49 50 D s1hx26 51 52 D s1hx27 53 54 D s1hx28 55 56 D s1hx29 57 58 D s1hx30 59 60 D s1hx31 61 62 D s1hx32 63 64 * Screen text lines with color hex codes D ds D lin 1 512 D dim(32) D s1ln01 1 16 D s1ln02 17 32 D s1ln03 33 48 D s1ln04 49 64 D s1ln05 65 80 D s1ln06 81 96 D s1ln07 97 112 D s1ln08 113 128 D s1ln09 129 144 D s1ln10 145 160 D s1ln11 161 176 D s1ln12 177 192 D s1ln13 193 208 D s1ln14 209 224 D s1ln15 225 240 D s1ln16 241 256 D s1ln17 257 272 D s1ln18 273 288 D s1ln19 289 304 D s1ln20 305 320 D s1ln21 321 336 D s1ln22 337 352 D s1ln23 353 368 D s1ln24 369 384 D s1ln25 385 400 D s1ln26 401 416 D s1ln27 417 432 D s1ln28 433 448 D s1ln29 449 464 D s1ln30 465 480 D s1ln31 481 496 D s1ln32 497 512 * Screen text lines without color hex codes D ds D txt 1 480 D dim(32) D s1ld01 1 15 D s1ld02 16 30 D s1ld03 31 45 D s1ld04 46 60 D s1ld05 61 75 D s1ld06 76 90 D s1ld07 91 105 D s1ld08 106 120 D s1ld09 121 135 D s1ld10 136 150 D s1ld11 151 165 D s1ld12 166 180 D s1ld13 181 195 D s1ld14 196 210 D s1ld15 211 225 D s1ld16 226 240 D s1ld17 241 255 D s1ld18 256 270 D s1ld19 271 285 D s1ld20 286 300 D s1ld21 301 315 D s1ld22 316 330 D s1ld23 331 345 D s1ld24 346 360 D s1ld25 361 375 D s1ld26 376 390 D s1ld27 391 405 D s1ld28 406 420 D s1ld29 421 435 D s1ld30 436 450 D s1ld31 451 465 D s1ld32 466 480 D i s 2 0 D w#dttm s 14 0 ***************************************************************** * MAIN: ***************************************************************** * Load and Display Screen C dou *inkc = *on C write colors01 90 C read color 9990 C enddo C move *on *inlr ***************************************************************** * *INZSR: Initialization ***************************************************************** C *inzsr begsr C time w#dttm C move w#dttm s1date C movel @job s1job C move '20' asc(1) C move '21' asc(2) C move '22' asc(3) C move '23' asc(4) C move '24' asc(5) C move '25' asc(6) C move '26' asc(7) C move '27' asc(8) C move '28' asc(9) C move '29' asc(10) C move '2A' asc(11) C move '2B' asc(12) C move '2C' asc(13) C move '2D' asc(14) C move '2E' asc(15) C move '2F' asc(16) C move '30' asc(17) C move '31' asc(18) C move '32' asc(19) C move '33' asc(20) C move '34' asc(21) C move '35' asc(22) C move '36' asc(23) C move '37' asc(24) C move '38' asc(25) C move '39' asc(26) C move '3A' asc(27) C move '3B' asc(28) C move '3C' asc(29) C move '3D' asc(30) C move '3E' asc(31) C move '3F' asc(32) C move x'20' hex(1) C move x'21' hex(2) C move x'22' hex(3) C move x'23' hex(4) C move x'24' hex(5) C move x'25' hex(6) C move x'26' hex(7) C move x'27' hex(8) C move x'28' hex(9) C move x'29' hex(10) C move x'2A' hex(11) C move x'2B' hex(12) C move x'2C' hex(13) C move x'2D' hex(14) C move x'2E' hex(15) C move x'2F' hex(16) C move x'30' hex(17) C move x'31' hex(18) C move x'32' hex(19) C move x'33' hex(20) C move x'34' hex(21) C move x'35' hex(22) C move x'36' hex(23) C move x'37' hex(24) C move x'38' hex(25) C move x'39' hex(26) C move x'3A' hex(27) C move x'3B' hex(28) C move x'3C' hex(29) C move x'3D' hex(30) C move x'3E' hex(31) C move x'3F' hex(32) C movea txi txt C 1 do 32 i C move hex(i) w#scat C movel txt(i) w#text C movel w#line lin(i) C enddo C einzsr endsr ***************************************************************** ** TXI GREEN GREEN,RI WHITE WHITE,RI GREEN,UL GREEN,RI,UL WHITE,UL NON-DISPLAY RED RED,RI RED,BL RED,RI,BL RED,UL RED,RI,UL RED,UL,BL NON-DISPLAY TURQUOISE,CS TURQUOISE,RI,CS YELLOW,CS YELLOW,RI,CS TURQUOISE,UL,CS TURQUO,RI,UL,CS YELLOW,UL,CS NON-DISPLAY,CS PINK PINK,RI BLUE BLUE,RI PINK,UL PINK,RI,UL BLUE,UL
NON-DISPLAY,VA |
LATEST COMMENTS
MC Press Online