Windows 95 Shareware (Platinum Edition)

home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Shareware (Platinum Edition) / QUEPLAT95.ISO / files / graphpro / bmpwiz / logo.bas < prev next >
Unknown | 1995-09-27 | 2.5 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Memotech MTX BASIC source `(document/memotechMTXBASICSource)`	ext	Unsupported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| e6 09 00 00 0d 0a 27 20 | 43 72 65 61 74 65 20 61 |......' |Create a|
|00000010| 20 66 65 72 6e 20 75 73 | 69 6e 67 20 61 20 66 72 | fern us|ing a fr|
|00000020| 61 63 74 61 6c 20 66 6f | 72 6d 75 6c 61 20 0d 0a |actal fo|rmula ..|
|00000030| 0d 0a 27 20 41 75 74 68 | 6f 72 3a 09 41 6e 64 72 |..' Auth|or:.Andr|
|00000040| 65 61 20 42 65 6e 6f 6e | 69 09 09 09 20 72 65 76 |ea Benon|i... rev|
|00000050| 3a 09 31 2e 32 0d 0a 0d | 0a 0d 0a 66 6c 6f 61 74 |:.1.2...|...float|
|00000060| 20 20 09 69 2c 6e 65 77 | 78 2c 6e 65 77 79 2c 72 |  .i,new|x,newy,r|
|00000070| 2c 6b 2c 78 2c 79 2c 78 | 73 2c 79 73 2c 7a 0d 0a |,k,x,y,x|s,ys,z..|
|00000080| 44 65 76 43 6f 6e 09 4f | 62 6d 70 0d 0a 52 47 42 |DevCon.O|bmp..RGB|
|00000090| 09 70 69 78 0d 0a 0d 0a | 27 20 65 6c 69 6d 69 6e |.pix....|' elimin|
|000000a0| 61 74 65 20 74 68 69 73 | 20 74 77 6f 20 6c 69 6e |ate this| two lin|
|000000b0| 65 20 77 68 65 6e 20 79 | 6f 75 20 68 61 76 65 20 |e when y|ou have |
|000000c0| 62 61 63 6b 75 70 65 64 | 20 74 68 65 20 63 3a 5c |backuped| the c:\|
|000000d0| 6c 6f 67 6f 2e 73 79 73 | 20 66 69 6c 65 0d 0a 44 |logo.sys| file..D|
|000000e0| 73 70 4d 65 73 28 22 41 | 74 74 65 6e 74 69 6f 6e |spMes("A|ttention|
|000000f0| 20 74 68 69 73 20 70 72 | 6f 67 72 61 6d 20 73 75 | this pr|ogram su|
|00000100| 62 73 74 69 74 75 74 65 | 20 74 68 65 20 73 74 61 |bstitute| the sta|
|00000110| 72 74 20 6c 6f 67 6f 20 | 6f 66 20 57 69 6e 64 6f |rt logo |of Windo|
|00000120| 77 73 20 77 69 74 68 20 | 61 6e 20 6f 74 68 65 72 |ws with |an other|
|00000130| 20 69 6d 61 67 65 2e 20 | 59 6f 75 20 6d 75 73 74 | image. |You must|
|00000140| 20 63 6c 65 61 72 20 74 | 68 69 73 20 77 61 72 6e | clear t|his warn|
|00000150| 69 6e 67 20 69 6e 20 74 | 68 65 20 73 63 72 69 70 |ing in t|he scrip|
|00000160| 74 20 74 6f 20 67 6f 20 | 61 68 65 61 64 2e 22 29 |t to go |ahead.")|
|00000170| 0d 0a 72 65 74 75 72 6e | 0d 0a 0d 0a 78 73 3d 33 |..return|....xs=3|
|00000180| 32 30 0d 0a 79 73 3d 34 | 30 30 0d 0a 4f 62 6d 70 |20..ys=4|00..Obmp|
|00000190| 3d 43 72 65 61 74 65 49 | 6d 61 67 65 28 78 73 2c |=CreateI|mage(xs,|
|000001a0| 79 73 2c 38 29 0d 0a 53 | 65 74 50 61 6c 65 74 74 |ys,8)..S|etPalett|
|000001b0| 65 28 4f 62 6d 70 2c 31 | 2c 70 69 78 29 0d 0a 0d |e(Obmp,1|,pix)...|
|000001c0| 0a 27 50 72 65 70 61 72 | 65 20 72 6f 74 61 74 65 |.'Prepar|e rotate|
|000001d0| 20 70 61 6c 65 74 74 65 | 0d 0a 46 6f 72 20 79 3d | palette|..For y=|
|000001e0| 30 20 74 6f 20 36 33 0d | 0a 20 20 20 70 69 78 2e |0 to 63.|.   pix.|
|000001f0| 42 6c 75 65 3d 79 2a 33 | 0d 0a 20 20 20 53 65 74 |Blue=y*3|..   Set|
|00000200| 50 61 6c 65 74 74 65 28 | 4f 62 6d 70 2c 79 2b 31 |Palette(|Obmp,y+1|
|00000210| 32 38 2c 70 69 78 29 0d | 0a 20 20 20 70 69 78 2e |28,pix).|.   pix.|
|00000220| 42 6c 75 65 3d 36 34 2d | 79 2a 33 0d 0a 20 20 20 |Blue=64-|y*3..   |
|00000230| 53 65 74 50 61 6c 65 74 | 74 65 28 4f 62 6d 70 2c |SetPalet|te(Obmp,|
|00000240| 79 2b 31 39 32 2c 70 69 | 78 29 0d 0a 4e 65 78 74 |y+192,pi|x)..Next|
|00000250| 20 79 0d 0a 70 69 78 2e | 52 65 64 3d 30 0d 0a 70 | y..pix.|Red=0..p|
|00000260| 69 78 2e 42 6c 75 65 3d | 30 0d 0a 70 69 78 2e 47 |ix.Blue=|0..pix.G|
|00000270| 72 65 65 6e 3d 32 35 35 | 0d 0a 53 65 74 50 61 6c |reen=255|..SetPal|
|00000280| 65 74 74 65 28 4f 62 6d | 70 2c 31 2c 70 69 78 29 |ette(Obm|p,1,pix)|
|00000290| 0d 0a 4f 62 6d 70 2e 43 | 6c 72 49 6d 70 3d 31 32 |..Obmp.C|lrImp=12|
|000002a0| 38 20 09 27 69 6e 66 6f | 72 6d 20 77 69 6e 39 35 |8 .'info|rm win95|
|000002b0| 20 6f 66 20 75 70 70 65 | 72 20 6c 69 6d 69 74 0d | of uppe|r limit.|
|000002c0| 0a 0d 0a 27 70 61 69 6e | 74 20 62 61 63 6b 67 72 |...'pain|t backgr|
|000002d0| 6f 75 6e 64 0d 0a 46 6f | 72 20 79 3d 30 20 74 6f |ound..Fo|r y=0 to|
|000002e0| 20 4f 62 6d 70 2e 48 65 | 69 67 68 74 2d 31 0d 0a | Obmp.He|ight-1..|
|000002f0| 20 20 20 69 3d 31 32 38 | 2f 4f 62 6d 70 2e 48 65 |   i=128|/Obmp.He|
|00000300| 69 67 68 74 2a 79 2b 31 | 32 38 0d 0a 20 20 20 46 |ight*y+1|28..   F|
|00000310| 6f 72 20 78 3d 30 20 74 | 6f 20 4f 62 6d 70 2e 57 |or x=0 t|o Obmp.W|
|00000320| 69 64 74 68 2d 31 0d 0a | 20 20 20 20 20 20 53 65 |idth-1..|      Se|
|00000330| 74 50 69 78 65 6c 56 61 | 6c 28 4f 62 6d 70 2c 78 |tPixelVa|l(Obmp,x|
|00000340| 2c 79 2c 69 29 0d 0a 20 | 20 20 4e 65 78 74 20 78 |,y,i).. |  Next x|
|00000350| 0d 0a 4e 65 78 74 20 79 | 0d 0a 0d 0a 0d 0a 27 20 |..Next y|......' |
|00000360| 70 61 69 6e 74 20 61 20 | 66 65 72 6e 0d 0a 66 6f |paint a |fern..fo|
|00000370| 72 20 69 3d 30 20 74 6f | 20 31 35 30 30 30 0d 0a |r i=0 to| 15000..|
|00000380| 20 20 20 20 20 72 3d 69 | 6e 74 28 72 61 6e 64 20 |     r=i|nt(rand |
|00000390| 28 31 30 29 29 0d 0a 20 | 20 20 20 20 69 66 28 72 |(10)).. |    if(r|
|000003a0| 3e 33 2e 39 29 0d 0a 20 | 20 20 20 20 20 20 20 72 |>3.9).. |       r|
|000003b0| 3d 31 0d 0a 20 20 20 20 | 20 65 6e 64 69 66 0d 0a |=1..    | endif..|
|000003c0| 0d 0a 20 20 20 20 20 20 | 20 27 20 66 65 6c 63 5b |..      | ' felc[|
|000003d0| 34 5d 5b 33 5d 5b 34 5d | 20 3d 20 7b 20 20 20 20 |4][3][4]| = {    |
|000003e0| 20 30 2c 20 20 20 30 2c | 20 20 30 2c 20 20 30 2c | 0,   0,|  0,  0,|
|000003f0| 20 20 20 20 20 20 20 20 | 30 2c 20 20 32 30 2c 20 |        |0,  20, |
|00000400| 20 20 30 2c 20 20 20 30 | 2c 20 20 20 20 20 20 30 |  0,   0|,      0|
|00000410| 2c 20 20 20 20 30 2c 20 | 20 30 2c 20 20 20 30 2c |,    0, | 0,   0,|
|00000420| 0d 0a 20 20 20 20 20 20 | 20 27 20 20 20 20 20 20 |..      | '      |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000440| 20 20 20 20 20 38 35 2c | 20 20 20 30 2c 20 20 30 |     85,|   0,  0|
|00000450| 2c 20 20 30 2c 20 20 20 | 20 20 20 20 20 30 2c 20 |,  0,   |     0, |
|00000460| 20 38 35 2c 20 31 31 2c | 20 37 30 2c 20 20 20 20 | 85, 11,| 70,    |
|00000470| 20 20 30 2c 20 2d 31 30 | 2c 20 38 35 2c 20 20 30 |  0, -10|, 85,  0|
|00000480| 2c 0d 0a 20 20 20 20 20 | 20 20 27 20 20 20 20 20 |,..     |  '     |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004a0| 20 20 20 20 20 20 33 31 | 2c 20 2d 34 31 2c 20 20 |      31|, -41,  |
|000004b0| 30 2c 20 20 30 2c 20 20 | 20 20 20 31 30 2c 20 20 |0,  0,  |   10,  |
|000004c0| 32 31 2c 20 20 20 30 2c | 20 32 31 2c 20 20 20 20 |21,   0,| 21,    |
|000004d0| 20 20 30 2c 20 20 20 20 | 30 2c 20 33 30 2c 20 20 |  0,    |0, 30,  |
|000004e0| 30 2c 0d 0a 20 20 20 20 | 20 20 20 27 20 20 20 20 |0,..    |   '    |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 20 20 20 20 20 2d 32 | 39 2c 20 20 34 30 2c 20 |      -2|9,  40, |
|00000510| 20 30 2c 20 20 30 2c 20 | 20 20 20 20 31 30 2c 20 | 0,  0, |    10, |
|00000520| 20 31 39 2c 20 20 20 30 | 2c 20 35 36 2c 20 20 20 | 19,   0|, 56,   |
|00000530| 20 20 20 30 2c 20 20 20 | 20 30 2c 20 33 30 2c 20 |   0,   | 0, 30, |
|00000540| 20 30 20 7d 3b 0d 0a 0d | 0a 20 20 20 20 20 20 20 | 0 };...|.       |
|00000550| 20 69 66 28 72 3d 30 29 | 0d 0a 20 20 20 20 20 20 | if(r=0)|..      |
|00000560| 20 20 20 20 20 6e 65 77 | 78 20 3d 20 28 28 20 30 |     new|x = (( 0|
|00000570| 20 2a 20 78 29 20 2b 28 | 20 20 20 30 20 2a 20 79 | * x) +(|   0 * y|
|00000580| 29 20 2b 28 30 20 2a 20 | 7a 29 29 20 2f 20 31 30 |) +(0 * |z)) / 10|
|00000590| 30 20 2b 20 30 0d 0a 20 | 20 20 20 20 20 20 20 20 |0 + 0.. |        |
|000005a0| 20 20 6e 65 77 79 20 3d | 20 28 28 20 30 20 2a 20 |  newy =| (( 0 * |
|000005b0| 78 29 20 2b 28 20 32 30 | 20 2a 20 79 29 20 2b 28 |x) +( 20| * y) +(|
|000005c0| 30 20 2a 20 7a 29 29 20 | 2f 20 31 30 30 20 2b 20 |0 * z)) |/ 100 + |
|000005d0| 30 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 7a 20 |0..     |      z |
|000005e0| 3d 20 20 20 20 20 20 20 | 28 28 20 30 20 2a 20 78 |=       |(( 0 * x|
|000005f0| 29 20 2b 28 20 20 20 30 | 20 2a 20 79 29 20 2b 28 |) +(   0| * y) +(|
|00000600| 30 20 2a 20 7a 29 29 20 | 2f 20 31 30 30 20 2b 20 |0 * z)) |/ 100 + |
|00000610| 30 0d 0a 20 20 20 20 20 | 20 20 20 65 6e 64 69 66 |0..     |   endif|
|00000620| 0d 0a 20 20 20 20 20 20 | 20 20 69 66 28 72 3d 31 |..      |  if(r=1|
|00000630| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 6e 65 |)..     |      ne|
|00000640| 77 78 20 3d 20 28 28 20 | 38 35 20 2a 20 78 29 20 |wx = (( |85 * x) |
|00000650| 2b 28 20 20 20 20 20 20 | 30 20 2a 20 79 29 20 2b |+(      |0 * y) +|
|00000660| 28 20 20 30 20 2a 20 7a | 29 29 20 2f 20 31 30 30 |(  0 * z|)) / 100|
|00000670| 20 2b 20 20 20 30 0d 0a | 20 20 20 20 20 20 20 20 | +   0..|        |
|00000680| 20 20 20 6e 65 77 79 20 | 3d 20 28 28 20 20 20 30 |   newy |= ((   0|
|00000690| 20 2a 20 78 29 20 2b 28 | 20 20 20 38 35 20 2a 20 | * x) +(|   85 * |
|000006a0| 79 29 20 2b 28 31 31 20 | 2a 20 7a 29 29 20 2f 20 |y) +(11 |* z)) / |
|000006b0| 31 30 30 20 2b 20 37 30 | 0d 0a 20 20 20 20 20 20 |100 + 70|..      |
|000006c0| 20 20 20 20 20 7a 20 3d | 20 20 20 20 20 20 20 20 |     z =|        |
|000006d0| 28 28 20 20 20 30 20 2a | 20 78 29 20 2b 28 2d 31 |((   0 *| x) +(-1|
|000006e0| 30 20 2a 20 79 29 20 2b | 28 38 35 20 2a 20 7a 29 |0 * y) +|(85 * z)|
|000006f0| 29 20 2f 20 31 30 30 20 | 2b 20 20 30 0d 0a 20 20 |) / 100 |+  0..  |
|00000700| 20 20 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |      en|dif..   |
|00000710| 20 20 20 20 20 69 66 28 | 72 3d 32 29 0d 0a 20 20 |     if(|r=2)..  |
|00000720| 20 20 20 20 20 20 20 20 | 20 6e 65 77 78 20 3d 20 |        | newx = |
|00000730| 28 28 20 33 31 20 2a 20 | 78 29 20 2b 28 20 2d 34 |(( 31 * |x) +( -4|
|00000740| 31 20 2a 20 79 29 20 2b | 28 20 30 20 2a 20 7a 29 |1 * y) +|( 0 * z)|
|00000750| 29 20 2f 20 31 30 30 20 | 2b 20 20 20 30 0d 0a 20 |) / 100 |+   0.. |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 6e 65 77 79 20 3d |        |  newy =|
|00000770| 20 20 28 28 20 31 30 20 | 2a 20 78 29 20 2b 28 20 |  (( 10 |* x) +( |
|00000780| 20 20 20 20 20 32 31 20 | 2a 20 79 29 20 2b 28 20 |     21 |* y) +( |
|00000790| 30 20 2a 20 7a 29 29 20 | 2f 20 31 30 30 20 2b 20 |0 * z)) |/ 100 + |
|000007a0| 32 31 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 7a |21..    |       z|
|000007b0| 20 3d 20 20 20 20 20 20 | 20 20 28 28 20 20 20 20 | =      |  ((    |
|000007c0| 30 20 2a 20 78 29 20 2b | 28 20 20 20 20 20 20 20 |0 * x) +|(       |
|000007d0| 30 20 2a 20 79 29 20 2b | 28 33 30 20 2a 20 7a 29 |0 * y) +|(30 * z)|
|000007e0| 29 20 2f 20 31 30 30 20 | 2b 20 20 30 0d 0a 20 20 |) / 100 |+  0..  |
|000007f0| 20 20 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |      en|dif..   |
|00000800| 20 20 20 20 20 69 66 28 | 72 3d 33 29 0d 0a 20 20 |     if(|r=3)..  |
|00000810| 20 20 20 20 20 20 20 20 | 20 6e 65 77 78 20 3d 20 |        | newx = |
|00000820| 28 28 20 2d 32 39 20 2a | 20 78 29 20 2b 28 20 34 |(( -29 *| x) +( 4|
|00000830| 30 20 2a 20 79 29 20 2b | 28 20 20 30 20 2a 20 7a |0 * y) +|(  0 * z|
|00000840| 29 29 20 2f 20 31 30 30 | 20 2b 20 20 20 30 0d 0a |)) / 100| +   0..|
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 6e 65 77 79 20 |        |   newy |
|00000860| 3d 20 28 28 20 20 20 20 | 20 31 30 20 2a 20 78 29 |= ((    | 10 * x)|
|00000870| 20 2b 28 20 31 39 20 2a | 20 79 29 20 2b 28 20 20 | +( 19 *| y) +(  |
|00000880| 30 20 2a 20 7a 29 29 20 | 2f 20 31 30 30 20 2b 20 |0 * z)) |/ 100 + |
|00000890| 35 36 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 7a |56..    |       z|
|000008a0| 20 3d 20 20 20 20 20 20 | 20 20 28 28 20 20 20 20 | =      |  ((    |
|000008b0| 20 20 20 20 30 20 2a 20 | 78 29 20 2b 28 20 20 20 |    0 * |x) +(   |
|000008c0| 30 20 2a 20 79 29 20 2b | 28 33 30 20 2a 20 7a 29 |0 * y) +|(30 * z)|
|000008d0| 29 20 2f 20 31 30 30 20 | 2b 20 20 30 0d 0a 20 20 |) / 100 |+  0..  |
|000008e0| 20 20 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |      en|dif..   |
|000008f0| 20 20 20 20 20 78 3d 6e | 65 77 78 0d 0a 20 20 20 |     x=n|ewx..   |
|00000900| 20 20 20 20 20 79 3d 6e | 65 77 79 0d 0a 0d 0a 20 |     y=n|ewy.... |
|00000910| 20 20 20 20 20 20 20 20 | 53 65 74 50 69 78 65 6c |        |SetPixel|
|00000920| 56 61 6c 28 4f 62 6d 70 | 2c 78 2b 7a 2f 32 2b 31 |Val(Obmp|,x+z/2+1|
|00000930| 38 30 2c 33 35 30 2d 28 | 79 2f 31 2e 32 29 2c 31 |80,350-(|y/1.2),1|
|00000940| 29 0d 0a 0d 0a 20 20 20 | 69 66 20 28 20 69 25 31 |)....   |if ( i%1|
|00000950| 30 30 30 3d 30 29 0d 0a | 20 20 20 20 20 20 50 72 |000=0)..|      Pr|
|00000960| 65 76 69 65 77 28 4f 62 | 6d 70 2c 22 4f 75 74 70 |eview(Ob|mp,"Outp|
|00000970| 75 74 22 2c 35 2c 35 2c | 4f 62 6d 70 2e 57 69 64 |ut",5,5,|Obmp.Wid|
|00000980| 74 68 2b 31 30 2c 4f 62 | 6d 70 2e 48 65 69 67 68 |th+10,Ob|mp.Heigh|
|00000990| 74 2b 33 30 29 09 0d 0a | 20 20 20 65 6e 64 69 66 |t+30)...|   endif|
|000009a0| 0d 0a 4e 65 78 74 20 69 | 0d 0a 0d 0a 53 61 76 65 |..Next i|....Save|
|000009b0| 49 6d 61 67 65 28 4f 62 | 6d 70 2c 22 63 3a 5c 6c |Image(Ob|mp,"c:\l|
|000009c0| 6f 67 6f 2e 73 79 73 22 | 29 0d 0a 0d 0a 44 73 70 |ogo.sys"|)....Dsp|
|000009d0| 57 68 69 6c 65 28 22 22 | 2c 30 29 0d 0a 44 73 70 |While(""|,0)..Dsp|
|000009e0| 4d 65 73 28 22 45 6e 64 | 22 29                   |Mes("End|")      |
+--------+-------------------------+-------------------------+--------+--------+