home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib01.dsk / HIRES MULTICOLOR KALEIDOSCOPE.bas < prev    next >
BASIC Source File  |  1990-01-01  |  440 b 

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: BASIC Source File (text/bas).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert BASIC Source File (text/bas) magic Supported
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
1% dexvert Text File (text/txt) fallback Supported
100% file ASCII text default
100% checkBytes Printable ASCII default
100% perlTextCheck Likely Text (Perl) default
100% disktype Blank disk/medium default (weak)
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 20 48 47 52 20 | 0a 32 30 20 20 48 43 4f |10 HGR |.20 HCO|
|00000010| 4c 4f 52 3d 20 20 49 4e | 54 28 20 52 4e 44 28 31 |LOR= IN|T( RND(1|
|00000020| 29 20 2a 38 29 0a 33 30 | 20 58 20 3d 20 20 49 4e |) *8).30| X = IN|
|00000030| 54 28 20 52 4e 44 28 31 | 29 20 2a 38 29 0a 34 30 |T( RND(1|) *8).40|
|00000040| 20 20 46 4f 52 20 41 20 | 3d 20 30 20 54 4f 20 31 | FOR A |= 0 TO 1|
|00000050| 33 39 20 20 53 54 45 50 | 20 58 20 2b 32 0a 35 30 |39 STEP| X +2.50|
|00000060| 20 20 48 50 4c 4f 54 20 | 41 2c 30 20 54 4f 20 31 | HPLOT |A,0 TO 1|
|00000070| 33 39 20 2d 41 2c 37 39 | 0a 36 30 20 20 48 50 4c |39 -A,79|.60 HPL|
|00000080| 4f 54 20 32 37 39 20 2d | 41 2c 30 20 54 4f 20 31 |OT 279 -|A,0 TO 1|
|00000090| 34 30 20 2b 41 2c 37 39 | 0a 37 30 20 20 48 50 4c |40 +A,79|.70 HPL|
|000000a0| 4f 54 20 41 2c 31 35 39 | 20 54 4f 20 31 33 39 20 |OT A,159| TO 139 |
|000000b0| 2d 41 2c 38 30 0a 38 30 | 20 20 48 50 4c 4f 54 20 |-A,80.80| HPLOT |
|000000c0| 32 37 39 20 2d 41 2c 31 | 35 39 20 54 4f 20 31 34 |279 -A,1|59 TO 14|
|000000d0| 30 20 2b 41 2c 38 30 0a | 39 30 20 20 4e 45 58 54 |0 +A,80.|90 NEXT|
|000000e0| 20 41 0a 31 30 30 20 20 | 46 4f 52 20 42 20 3d 20 | A.100 |FOR B = |
|000000f0| 30 20 54 4f 20 37 39 20 | 20 53 54 45 50 20 58 20 |0 TO 79 | STEP X |
|00000100| 2b 32 0a 31 31 30 20 20 | 48 50 4c 4f 54 20 30 2c |+2.110 |HPLOT 0,|
|00000110| 37 39 20 2d 42 20 54 4f | 20 31 33 39 2c 42 0a 31 |79 -B TO| 139,B.1|
|00000120| 32 30 20 20 48 50 4c 4f | 54 20 31 34 30 2c 42 20 |20 HPLO|T 140,B |
|00000130| 54 4f 20 32 37 39 2c 37 | 39 20 2d 42 0a 31 33 30 |TO 279,7|9 -B.130|
|00000140| 20 20 48 50 4c 4f 54 20 | 30 2c 38 30 20 2b 42 20 | HPLOT |0,80 +B |
|00000150| 54 4f 20 31 33 39 2c 31 | 35 39 20 2d 42 0a 31 34 |TO 139,1|59 -B.14|
|00000160| 30 20 20 48 50 4c 4f 54 | 20 32 37 39 2c 38 30 20 |0 HPLOT| 279,80 |
|00000170| 2b 42 20 54 4f 20 31 34 | 30 2c 31 35 39 20 2d 42 |+B TO 14|0,159 -B|
|00000180| 0a 31 35 30 20 20 4e 45 | 58 54 20 42 0a 31 36 30 |.150 NE|XT B.160|
|00000190| 20 20 46 4f 52 20 5a 20 | 3d 20 31 20 54 4f 20 31 | FOR Z |= 1 TO 1|
|000001a0| 35 30 30 3a 20 4e 45 58 | 54 20 5a 0a 31 37 30 20 |500: NEX|T Z.170 |
|000001b0| 20 47 4f 54 4f 20 32 30 | | GOTO 20| |
+--------+-------------------------+-------------------------+--------+--------+