/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / sprtools / riscos / basic / colsgen

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 43 | 6f 6c 6f 72 73 47 45 4e |..... >C|olorsGEN|
|00000010| 0d 00 14 20 f4 20 56 65 | 72 73 69 6f 6e 20 31 2e |... . Ve|rsion 1.|
|00000020| 30 30 20 28 32 33 2d 41 | 75 67 2d 31 39 39 33 29 |00 (23-A|ug-1993)|
|00000030| 0d 00 16 24 f4 20 28 43 | 29 20 31 39 39 32 2d 34 |...$. (C|) 1992-4|
|00000040| 20 44 45 45 4a 20 54 65 | 63 68 6e 6f 6c 6f 67 79 | DEEJ Te|chnology|
|00000050| 20 50 4c 43 0d 00 17 05 | 3a 0d 00 1e 1b ee 20 85 | PLC....|:..... .|
|00000060| 20 f1 f6 24 3b 22 20 61 | 74 20 6c 69 6e 65 20 22 | ..$;" a|t line "|
|00000070| 3b 9e 3a e0 0d 00 28 05 | 3a 0d 00 32 0b 64 69 76 |;.:...(.|:..2.div|
|00000080| 25 3d 36 34 0d 00 3c 10 | 53 58 25 3d 36 3a 53 59 |%=64..<.|SX%=6:SY|
|00000090| 25 3d 36 30 0d 00 46 11 | 53 5a 25 3d 38 2a 33 32 |%=60..F.|SZ%=8*32|
|000000a0| 2f 64 69 76 25 0d 00 50 | 05 3a 0d 00 5a 12 de 20 |/div%..P|.:..Z.. |
|000000b0| 63 6f 6c 6e 75 6d 25 28 | 32 35 36 29 0d 00 64 05 |colnum%(|256)..d.|
|000000c0| 3a 0d 00 6e 10 e3 20 43 | 25 3d 30 20 b8 20 32 35 |:..n.. C|%=0 . 25|
|000000d0| 36 0d 00 78 39 20 20 c8 | 99 22 43 6f 6c 6f 75 72 |6..x9  .|."Colour|
|000000e0| 54 72 61 6e 73 5f 43 6f | 6c 6f 75 72 4e 75 6d 62 |Trans_Co|lourNumb|
|000000f0| 65 72 54 6f 47 43 4f 4c | 22 2c 43 25 20 b8 20 63 |erToGCOL|",C% . c|
|00000100| 6f 6c 6e 75 6d 25 28 43 | 25 29 0d 00 82 05 ed 0d |olnum%(C|%)......|
|00000110| 00 8c 05 3a 0d 00 96 08 | eb 20 32 31 0d 00 a0 05 |...:....|. 21....|
|00000120| 3a 0d 00 aa 0d e3 50 25 | 3d 31 20 b8 20 33 0d 00 |:.....P%|=1 . 3..|
|00000130| b4 14 20 20 e3 43 25 3d | 30 20 b8 20 64 69 76 25 |..  .C%=|0 . div%|
|00000140| 2a 36 0d 00 be 21 20 20 | 20 20 48 25 3d 43 25 20 |*6...!  |  H%=C% |
|00000150| 81 20 64 69 76 25 3a 4c | 25 3d 43 25 20 83 20 64 |. div%:L|%=C% . d|
|00000160| 69 76 25 0d 00 c8 13 20 | 20 20 20 46 25 3d 26 46 |iv%.... |   F%=&F|
|00000170| 46 3a 5a 25 3d 30 0d 00 | d2 1e 20 20 20 20 55 25 |F:Z%=0..|..    U%|
|00000180| 3d 4c 25 2a 46 25 2f 64 | 69 76 25 3a 44 25 3d 46 |=L%*F%/d|iv%:D%=F|
|00000190| 25 2d 55 25 0d 00 dc 0f | 20 20 20 20 c8 8e 20 48 |%-U%....|    .. H|
|000001a0| 25 20 ca 0d 00 e6 1f 20 | 20 20 20 20 20 c9 20 30 |% ..... |     . 0|
|000001b0| 3a 52 25 3d 46 25 3a 47 | 25 3d 55 25 3a 42 25 3d |:R%=F%:G|%=U%:B%=|
|000001c0| 5a 25 0d 00 f0 1f 20 20 | 20 20 20 20 c9 20 31 3a |Z%....  |    . 1:|
|000001d0| 52 25 3d 44 25 3a 47 25 | 3d 46 25 3a 42 25 3d 5a |R%=D%:G%|=F%:B%=Z|
|000001e0| 25 0d 00 fa 1f 20 20 20 | 20 20 20 c9 20 32 3a 52 |%....   |   . 2:R|
|000001f0| 25 3d 5a 25 3a 47 25 3d | 46 25 3a 42 25 3d 55 25 |%=Z%:G%=|F%:B%=U%|
|00000200| 0d 01 04 1f 20 20 20 20 | 20 20 c9 20 33 3a 52 25 |....    |  . 3:R%|
|00000210| 3d 5a 25 3a 47 25 3d 44 | 25 3a 42 25 3d 46 25 0d |=Z%:G%=D|%:B%=F%.|
|00000220| 01 0e 1f 20 20 20 20 20 | 20 c9 20 34 3a 52 25 3d |...     | . 4:R%=|
|00000230| 55 25 3a 47 25 3d 5a 25 | 3a 42 25 3d 46 25 0d 01 |U%:G%=Z%|:B%=F%..|
|00000240| 18 1f 20 20 20 20 20 20 | c9 20 35 3a 52 25 3d 46 |..      |. 5:R%=F|
|00000250| 25 3a 47 25 3d 5a 25 3a | 42 25 3d 44 25 0d 01 22 |%:G%=Z%:|B%=D%.."|
|00000260| 22 20 20 20 20 20 20 c9 | 20 36 3a 52 25 3d 26 37 |"      .| 6:R%=&7|
|00000270| 46 3a 47 25 3d 26 37 46 | 3a 42 25 3d 26 37 46 0d |F:G%=&7F|:B%=&7F.|
|00000280| 01 2c 09 20 20 20 20 cb | 0d 01 36 18 20 20 20 20 |.,.    .|..6.    |
|00000290| e3 53 25 3d 2d 64 69 76 | 25 20 b8 20 64 69 76 25 |.S%=-div|% . div%|
|000002a0| 0d 01 40 2e 20 20 20 20 | 20 20 e7 48 25 3c 36 20 |..@.    |  .H%<6 |
|000002b0| 73 25 3d 53 25 2a 26 46 | 46 2f 64 69 76 25 20 8b |s%=S%*&F|F/div% .|
|000002c0| 73 25 3d 53 25 2a 26 37 | 46 2f 64 69 76 25 0d 01 |s%=S%*&7|F/div%..|
|000002d0| 4a 2d 20 20 20 20 20 20 | 72 25 3d 52 25 2b 73 25 |J-      |r%=R%+s%|
|000002e0| 3a e7 72 25 3c 30 20 72 | 25 3d 30 20 8b e7 72 25 |:.r%<0 r|%=0 ..r%|
|000002f0| 3e 32 35 35 20 72 25 3d | 32 35 35 0d 01 54 2d 20 |>255 r%=|255..T- |
|00000300| 20 20 20 20 20 67 25 3d | 47 25 2b 73 25 3a e7 67 |     g%=|G%+s%:.g|
|00000310| 25 3c 30 20 67 25 3d 30 | 20 8b e7 67 25 3e 32 35 |%<0 g%=0| ..g%>25|
|00000320| 35 20 67 25 3d 32 35 35 | 0d 01 5e 2d 20 20 20 20 |5 g%=255|..^-    |
|00000330| 20 20 62 25 3d 42 25 2b | 73 25 3a e7 62 25 3c 30 |  b%=B%+|s%:.b%<0|
|00000340| 20 62 25 3d 30 20 8b e7 | 62 25 3e 32 35 35 20 62 | b%=0 ..|b%>255 b|
|00000350| 25 3d 32 35 35 0d 01 68 | 1e 20 20 20 20 20 20 f2 |%=255..h|.      .|
|00000360| 63 6f 6c 6f 75 72 28 50 | 25 2c 72 25 2c 67 25 2c |colour(P|%,r%,g%,|
|00000370| 62 25 29 0d 01 72 2c 20 | 20 20 20 20 20 c8 93 c8 |b%)..r, |     ...|
|00000380| 90 20 43 25 2a 53 5a 25 | 2c 37 35 30 2b 53 25 2a |. C%*SZ%|,750+S%*|
|00000390| 53 5a 25 2c 53 5a 25 2d | 31 2c 53 5a 25 2d 31 0d |SZ%,SZ%-|1,SZ%-1.|
|000003a0| 01 7c 09 20 20 20 20 ed | 0d 01 86 07 20 20 ed 0d |.|.    .|....  ..|
|000003b0| 01 90 07 20 20 3a 0d 01 | 9a 0f 20 20 e3 43 25 3d |...  :..|..  .C%=|
|000003c0| 30 20 b8 20 36 0d 01 a4 | 0f 20 20 20 20 c8 8e 20 |0 . 6...|.    .. |
|000003d0| 43 25 20 ca 0d 01 ae 23 | 20 20 20 20 20 20 c9 20 |C% ....#|      . |
|000003e0| 30 3a 20 72 25 3d 26 46 | 46 3a 67 25 3d 26 46 46 |0: r%=&F|F:g%=&FF|
|000003f0| 3a 62 25 3d 26 46 46 0d | 01 b8 23 20 20 20 20 20 |:b%=&FF.|..#     |
|00000400| 20 c9 20 31 3a 20 72 25 | 3d 26 46 46 3a 67 25 3d | . 1: r%|=&FF:g%=|
|00000410| 26 30 30 3a 62 25 3d 26 | 30 30 0d 01 c2 23 20 20 |&00:b%=&|00...#  |
|00000420| 20 20 20 20 c9 20 32 3a | 20 72 25 3d 26 30 30 3a |    . 2:| r%=&00:|
|00000430| 67 25 3d 26 46 46 3a 62 | 25 3d 26 30 30 0d 01 cc |g%=&FF:b|%=&00...|
|00000440| 23 20 20 20 20 20 20 c9 | 20 33 3a 20 72 25 3d 26 |#      .| 3: r%=&|
|00000450| 46 46 3a 67 25 3d 26 46 | 46 3a 62 25 3d 26 30 30 |FF:g%=&F|F:b%=&00|
|00000460| 0d 01 d6 23 20 20 20 20 | 20 20 c9 20 34 3a 20 72 |...#    |  . 4: r|
|00000470| 25 3d 26 30 30 3a 67 25 | 3d 26 30 30 3a 62 25 3d |%=&00:g%|=&00:b%=|
|00000480| 26 46 46 0d 01 e0 23 20 | 20 20 20 20 20 c9 20 35 |&FF...# |     . 5|
|00000490| 3a 20 72 25 3d 26 46 46 | 3a 67 25 3d 26 30 30 3a |: r%=&FF|:g%=&00:|
|000004a0| 62 25 3d 26 46 46 0d 01 | ea 23 20 20 20 20 20 20 |b%=&FF..|.#      |
|000004b0| c9 20 36 3a 20 72 25 3d | 26 30 30 3a 67 25 3d 26 |. 6: r%=|&00:g%=&|
|000004c0| 46 46 3a 62 25 3d 26 46 | 46 0d 01 f4 09 20 20 20 |FF:b%=&F|F....   |
|000004d0| 20 cb 0d 01 fe 13 20 20 | 20 20 e3 53 25 3d 30 20 | .....  |  .S%=0 |
|000004e0| b8 20 32 35 35 0d 02 08 | 2e 20 20 20 20 20 20 f2 |. 255...|.      .|
|000004f0| 63 6f 6c 6f 75 72 28 50 | 25 2c 72 25 20 80 20 53 |colour(P|%,r% . S|
|00000500| 25 2c 67 25 20 80 20 53 | 25 2c 20 62 25 20 80 20 |%,g% . S|%, b% . |
|00000510| 53 25 29 0d 02 12 31 20 | 20 20 20 20 20 c8 93 c8 |S%)...1 |     ...|
|00000520| 90 20 53 25 2a 53 58 25 | 2c 35 35 30 2d 28 53 59 |. S%*SX%|,550-(SY|
|00000530| 25 2b 32 30 29 2a 43 25 | 2c 53 58 25 2d 31 2c 53 |%+20)*C%|,SX%-1,S|
|00000540| 59 25 2d 31 0d 02 1c 09 | 20 20 20 20 ed 0d 02 26 |Y%-1....|    ...&|
|00000550| 07 20 20 ed 0d 02 30 0d | 20 20 c8 8e 20 50 25 20 |.  ...0.|  .. P% |
|00000560| ca 0d 02 3a 1e 20 20 20 | 20 c9 20 31 3a 20 ff 22 |...:.   | . 1: ."|
|00000570| 53 43 52 45 45 4e 53 41 | 56 45 20 52 45 44 22 0d |SCREENSA|VE RED".|
|00000580| 02 44 20 20 20 20 20 c9 | 20 32 3a 20 ff 22 53 43 |.D     .| 2: ."SC|
|00000590| 52 45 45 4e 53 41 56 45 | 20 47 52 45 45 4e 22 0d |REENSAVE| GREEN".|
|000005a0| 02 4e 1f 20 20 20 20 c9 | 20 33 3a 20 ff 22 53 43 |.N.    .| 3: ."SC|
|000005b0| 52 45 45 4e 53 41 56 45 | 20 42 4c 55 45 22 0d 02 |REENSAVE| BLUE"..|
|000005c0| 58 07 20 20 cb 0d 02 62 | 05 ed 0d 02 6c 05 e0 0d |X.  ...b|....l...|
|000005d0| 02 76 05 3a 0d 02 80 19 | dd f2 63 6f 6c 6f 75 72 |.v.:....|..colour|
|000005e0| 28 50 25 2c 72 25 2c 67 | 25 2c 62 25 29 0d 02 8a |(P%,r%,g|%,b%)...|
|000005f0| 0d 20 20 c8 8e 20 50 25 | 20 ca 0d 02 94 0c 20 20 |.  .. P%| .....  |
|00000600| 20 20 c9 20 30 3a 0d 02 | 9e 28 20 20 20 20 20 20 |  . 0:..|.(      |
|00000610| 43 4f 4c 25 3d 28 62 25 | 3c 3c 32 34 29 2b 28 67 |COL%=(b%|<<24)+(g|
|00000620| 25 3c 3c 31 36 29 2b 28 | 72 25 3c 3c 38 29 0d 02 |%<<16)+(|r%<<8)..|
|00000630| a8 30 20 20 20 20 20 20 | c8 99 20 22 43 6f 6c 6f |.0      |.. "Colo|
|00000640| 75 72 54 72 61 6e 73 5f | 53 65 74 47 43 4f 4c 22 |urTrans_|SetGCOL"|
|00000650| 2c 43 4f 4c 25 2c 2c 2c | 26 31 30 30 2c 30 0d 02 |,COL%,,,|&100,0..|
|00000660| b2 0c 20 20 20 20 c9 20 | 31 3a 0d 02 bc 2e 20 20 |..    . |1:....  |
|00000670| 20 20 20 20 e6 20 30 2c | 63 6f 6c 6e 75 6d 25 28 |    . 0,|colnum%(|
|00000680| 72 25 29 3e 3e 32 20 c8 | 9c 20 63 6f 6c 6e 75 6d |r%)>>2 .|. colnum|
|00000690| 25 28 72 25 29 3c 3c 36 | 0d 02 c6 0c 20 20 20 20 |%(r%)<<6|....    |
|000006a0| c9 20 32 3a 0d 02 d0 2e | 20 20 20 20 20 20 e6 20 |. 2:....|      . |
|000006b0| 30 2c 63 6f 6c 6e 75 6d | 25 28 67 25 29 3e 3e 32 |0,colnum|%(g%)>>2|
|000006c0| 20 c8 9c 20 63 6f 6c 6e | 75 6d 25 28 67 25 29 3c | .. coln|um%(g%)<|
|000006d0| 3c 36 0d 02 da 0c 20 20 | 20 20 c9 20 33 3a 0d 02 |<6....  |  . 3:..|
|000006e0| e4 2e 20 20 20 20 20 20 | e6 20 30 2c 63 6f 6c 6e |..      |. 0,coln|
|000006f0| 75 6d 25 28 62 25 29 3e | 3e 32 20 c8 9c 20 63 6f |um%(b%)>|>2 .. co|
|00000700| 6c 6e 75 6d 25 28 62 25 | 29 3c 3c 36 0d 02 ee 07 |lnum%(b%|)<<6....|
|00000710| 20 20 cb 0d 02 f8 05 e1 | 0d ff                   |  ......|..      |
+--------+-------------------------+-------------------------+--------+--------+