A DSPSIZ(24 80 *DS3) A***************************************************************** A R SCR1 A CF03(03 'Exit') A CHGINPDFT A CSRLOC($LINE $POS) A FRCDTA A 1 33'Third Dimension' A DSPATR(HI) A 3 12'/' A 3 16'/' A 3 20'/' A 4 8'---/---/---/---' A 5 10'/' A 5 14'/' A 5 18'/' A 6 6'---/---/---/---' A 7 8'/' A 7 12'/' A 7 16'/' A 7 26'/' A 7 30'/' A 7 34'/' A 8 4'---/---/---/--- ---/---/---/---' A 9 6'/' A 9 10'/' A 9 14'/' A 9 24'/' A 9 28'/' A 9 32'/' A 10 20'---/---/---/---' A 11 22'/' A 11 26'/' A 11 30'/' A 11 40'/' A 11 44'/' A 11 48'/' A 12 18'---/---/---/--- ---/---/---/---' A 13 20'/' A 13 24'/' A 13 28'/' A 13 38'/' A 13 42'/' A 13 46'/' A 14 34'---/---/---/---' A 15 36'/' A 15 40'/' A 15 44'/' A 15 54'/' A 15 58'/' A 15 62'/' A 16 32'---/---/---/--- ---/---/---/---' A 17 34'/' A 17 38'/' A 17 42'/' A 17 52'/' A 17 56'/' A 17 60'/' A 18 48'---/---/---/---' A 19 50'/' A 19 54'/' A 19 58'/' A 20 46'---/---/---/---' A 21 48'/' A 21 52'/' A 21 56'/' A B111 1A B 3 10 A 01 65 DSPATR(PR) A 01 66 DSPATR(RI) A B112 1A B 3 14 A 02 65 DSPATR(PR) A 02 66 DSPATR(RI) A B113 1A B 3 18 A 03 65 DSPATR(PR) A 03 66 DSPATR(RI) A B114 1A B 3 22 A 04 65 DSPATR(PR) A 04 66 DSPATR(RI) A B121 1A B 5 8 A 05 65 DSPATR(PR) A 05 66 DSPATR(RI) A B122 1A B 5 12 A 06 65 DSPATR(PR) A 06 66 DSPATR(RI) A B123 1A B 5 16 A 07 65 DSPATR(PR) A 07 66 DSPATR(RI) A B124 1A B 5 20 A 08 65 DSPATR(PR) A 08 66 DSPATR(RI) A B131 1A B 7 6 A 09 65 DSPATR(PR) A 09 66 DSPATR(RI) A B132 1A B 7 10 A 10 65 DSPATR(PR) A 10 66 DSPATR(RI) A B133 1A B 7 14 A 11 65 DSPATR(PR) A 11 66 DSPATR(RI) A B134 1A B 7 18 A 12 65 DSPATR(PR) A 12 66 DSPATR(RI) A B141 1A B 9 4 A 13 65 DSPATR(PR) A 13 66 DSPATR(RI) A B142 1A B 9 8 A 14 65 DSPATR(PR) A 14 66 DSPATR(RI) A B143 1A B 9 12 A 15 65 DSPATR(PR) A 15 66 DSPATR(RI) A B144 1A B 9 16 A 16 65 DSPATR(PR) A 16 66 DSPATR(RI) A B211 1A B 7 24 A 17 65 DSPATR(PR) A 17 66 DSPATR(RI) A B212 1A B 7 28 A 18 65 DSPATR(PR) A 18 66 DSPATR(RI) A B213 1A B 7 32 A 19 65 DSPATR(PR) A 19 66 DSPATR(RI) A B214 1A B 7 36 A 20 65 DSPATR(PR) A 20 66 DSPATR(RI) A B221 1A B 9 22 A 21 65 DSPATR(PR) A 21 66 DSPATR(RI) A B222 1A B 9 26 A 22 65 DSPATR(PR) A 22 66 DSPATR(RI) A B223 1A B 9 30 A 23 65 DSPATR(PR) A 23 66 DSPATR(RI) A B224 1A B 9 34 A 24 65 DSPATR(PR) A 24 66 DSPATR(RI) A B231 1A B 11 20 A 25 65 DSPATR(PR) A 25 66 DSPATR(RI) A B232 1A B 11 24 A 26 65 DSPATR(PR) A 26 66 DSPATR(RI) A B233 1A B 11 28 A 27 65 DSPATR(PR) A 27 66 DSPATR(RI) A B234 1A B 11 32 A 28 65 DSPATR(PR) A 28 66 DSPATR(RI) A B241 1A B 13 18 A 29 65 DSPATR(PR) A 29 66 DSPATR(RI) A B242 1A B 13 22 A 30 65 DSPATR(PR) A 30 66 DSPATR(RI) A B243 1A B 13 26 A 31 65 DSPATR(PR) A 31 66 DSPATR(RI) A B244 1A B 13 30 A 32 65 DSPATR(PR) A 32 66 DSPATR(RI) A B311 1A B 11 38 A 33 65 DSPATR(PR) A 33 66 DSPATR(RI) A B312 1A B 11 42 A 34 65 DSPATR(PR) A 34 66 DSPATR(RI) A B313 1A B 11 46 A 35 65 DSPATR(PR) A 35 66 DSPATR(RI) A B314 1A B 11 50 A 36 65 DSPATR(PR) A 36 66 DSPATR(RI) A B321 1A B 13 36 A 37 65 DSPATR(PR) A 37 66 DSPATR(RI) A B322 1A B 13 40 A 38 65 DSPATR(PR) A 38 66 DSPATR(RI) A B323 1A B 13 44 A 39 65 DSPATR(PR) A 39 66 DSPATR(RI) A B324 1A B 13 48 A 40 65 DSPATR(PR) A 40 66 DSPATR(RI) A B331 1A B 15 34 A 41 65 DSPATR(PR) A 41 66 DSPATR(RI) A B332 1A B 15 38 A 42 65 DSPATR(PR) A 42 66 DSPATR(RI) A B333 1A B 15 42 A 43 65 DSPATR(PR) A 43 66 DSPATR(RI) A B334 1A B 15 46 A 44 65 DSPATR(PR) A 44 66 DSPATR(RI) A B341 1A B 17 32 A 45 65 DSPATR(PR) A 45 66 DSPATR(RI) A B342 1A B 17 36 A 46 65 DSPATR(PR) A 46 66 DSPATR(RI) A B343 1A B 17 40 A 47 65 DSPATR(PR) A 47 66 DSPATR(RI) A B344 1A B 17 44 A 48 65 DSPATR(PR) A 48 66 DSPATR(RI) A B411 1A B 15 52 A 49 65 DSPATR(PR) A 49 66 DSPATR(RI) A B412 1A B 15 56 A 50 65 DSPATR(PR) A 50 66 DSPATR(RI) A B413 1A B 15 60 A 51 65 DSPATR(PR) A 51 66 DSPATR(RI) A B414 1A B 15 64 A 52 65 DSPATR(PR) A 52 66 DSPATR(RI) A B421 1A B 17 50 A 53 65 DSPATR(PR) A 53 66 DSPATR(RI) A B422 1A B 17 54 A 54 65 DSPATR(PR) A 54 66 DSPATR(RI) A B423 1A B 17 58 A 55 65 DSPATR(PR) A 55 66 DSPATR(RI) A B424 1A B 17 62 A 56 65 DSPATR(PR) A 56 66 DSPATR(RI) A B431 1A B 19 48 A 57 65 DSPATR(PR) A 57 66 DSPATR(RI) A B432 1A B 19 52 A 58 65 DSPATR(PR) A 58 66 DSPATR(RI) A B433 1A B 19 56 A 59 65 DSPATR(PR) A 59 66 DSPATR(RI) A B434 1A B 19 60 A 60 65 DSPATR(PR) A 60 66 DSPATR(RI) A B441 1A B 21 46 A 61 65 DSPATR(PR) A 61 66 DSPATR(RI) A B442 1A B 21 50 A 62 65 DSPATR(PR) A 62 66 DSPATR(RI) A B443 1A B 21 54 A 63 65 DSPATR(PR) A 63 66 DSPATR(RI) A B444 1A B 21 58 A 64 65 DSPATR(PR) A 64 66 DSPATR(RI) A 23 43'''X''=You ''O''=AS/400 F3=Exit' A COLOR(BLU) A $LINE 3 0H A $POS 3 0H A***************************************************************** A R WIND2 A WINDOW(17 7 2 20 *NOMSGLIN ) A 1 2'You should type ''X''' A 2 3'only one time...'