/ Programmer 7500
/ MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / IVB9205.ZIP / ARRAYS.BAS ![]() | next > |
Westwood Font | 1992-02-12 | 2.4 KB |
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 | Westwood Font (font/westwoodFont) | magic | 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 | |
100% | TrID | Westwood Font Format (v4) | default |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 01 02 00 0e 00 1e 01 | 1e 01 08 00 01 02 03 04 |........|........|
|00000010| 06 05 08 0a 00 11 d6 00 | fc 00 00 00 1a 00 00 00 |........|........|
|00000020| ee 00 00 00 00 00 8c 00 | 00 00 00 00 96 00 b2 00 |........|........|
|00000030| 00 00 6a 00 00 00 00 00 | 00 00 a4 00 00 00 00 00 |..j.....|........|
|00000040| 00 00 00 00 5a 00 00 00 | 00 00 d2 00 e0 00 00 00 |....Z...|........|
|00000050| 00 00 00 00 73 00 00 00 | 81 00 00 00 c1 00 00 00 |....s...|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| fc 00 00 00 00 00 40 0c | 53 74 6f 72 65 45 6c 65 |......@.|StoreEle|
|00000080| 6d 65 6e 74 00 00 80 05 | 41 72 72 61 79 00 00 80 |ment....|Array...|
|00000090| 0a 45 6c 65 6d 65 6e 74 | 4e 62 72 00 00 80 07 45 |.Element|Nbr....E|
|000000a0| 6c 65 6d 65 6e 74 00 00 | 80 06 4c 6f 63 42 65 67 |lement..|..LocBeg|
|000000b0| 00 00 80 0a 45 6c 65 6d | 65 6e 74 4c 65 6e 00 00 |....Elem|entLen..|
|000000c0| 80 0a 53 69 7a 65 4f 66 | 66 73 65 74 00 00 40 0b |..SizeOf|fset..@.|
|000000d0| 43 72 65 61 74 65 41 72 | 72 61 79 00 00 00 0d 4e |CreateAr|ray....N|
|000000e0| 62 72 4f 66 45 6c 65 6d | 65 6e 74 73 00 00 80 0a |brOfElem|ents....|
|000000f0| 47 65 74 45 6c 65 6d 65 | 6e 74 00 00 80 0a 41 72 |GetEleme|nt....Ar|
|00000100| 72 61 79 42 6f 75 6e 64 | 00 00 00 0a 41 41 41 41 |rayBound|....AAAA|
|00000110| 41 41 41 41 41 41 2e 01 | 00 00 18 00 00 00 1d 00 |AAAAAA..|........|
|00000120| e4 04 0c 04 a4 00 76 00 | 31 00 18 00 4e 75 6d 62 |......v.|1...Numb|
|00000130| 65 72 20 6f 66 20 62 79 | 74 65 73 20 72 65 71 75 |er of by|tes requ|
|00000140| 69 72 65 64 20 74 6f 20 | 73 74 6f 72 65 20 73 69 |ired to |store si|
|00000150| 7a 65 20 6f 66 20 61 72 | 72 61 79 74 00 60 76 00 |ze of ar|rayt.`v.|
|00000160| 33 00 18 00 65 6c 65 6d | 65 6e 74 73 20 61 74 20 |3...elem|ents at |
|00000170| 74 68 65 20 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |the begi|nning of|
|00000180| 20 73 74 72 69 6e 67 2e | 20 45 6c 65 6d 65 6e 74 | string.| Element|
|00000190| 20 73 69 7a 65 67 00 60 | 76 00 32 00 18 00 6c 69 | sizeg.`|v.2...li|
|000001a0| 6d 69 74 20 69 73 20 74 | 68 75 73 20 32 35 35 20 |mit is t|hus 255 |
|000001b0| 62 79 74 65 73 20 73 69 | 6e 63 65 20 74 68 65 20 |bytes si|nce the |
|000001c0| 72 61 6e 67 65 20 66 6f | 72 20 62 79 74 65 00 60 |range fo|r byte.`|
|000001d0| 76 00 1a 00 18 00 76 61 | 6c 75 65 73 20 69 73 20 |v.....va|lues is |
|000001e0| 66 72 6f 6d 20 30 20 74 | 6f 20 32 35 35 2e 00 60 |from 0 t|o 255..`|
|000001f0| 76 00 35 00 18 00 57 65 | 20 6d 61 64 65 20 74 68 |v.5...We| made th|
|00000200| 69 73 20 61 20 63 6f 6e | 73 74 61 6e 74 20 74 6f |is a con|stant to|
|00000210| 20 6d 61 6b 65 20 69 74 | 20 65 61 73 69 65 72 20 | make it| easier |
|00000220| 74 6f 20 63 68 61 6e 67 | 65 20 00 60 76 00 10 00 |to chang|e .`v...|
|00000230| 18 00 69 6e 20 74 68 65 | 20 66 75 74 75 72 65 2e |..in the| future.|
|00000240| 00 00 09 00 08 00 ff ff | ff ff ff ff ff ff 07 00 |........|........|
|00000250| 00 00 03 01 00 0c 00 53 | 74 6f 72 65 45 6c 65 6d |.......S|toreElem|
|00000260| 65 6e 74 01 08 30 ca 02 | 00 00 18 00 00 00 58 00 |ent..0..|......X.|
|00000270| 1e 00 5a 00 00 01 03 00 | 6a 00 00 02 06 00 00 00 |..Z.....|j.......|
|00000280| 73 00 00 02 01 00 00 00 | 81 00 00 02 06 00 00 00 |s.......|........|
|00000290| 00 00 00 00 76 00 08 00 | 00 00 49 6e 70 75 74 3a |....v...|..Input:|
|000002a0| 00 00 76 00 35 00 00 00 | 20 20 41 72 72 61 79 24 |..v.5...| Array$|
|000002b0| 0d 07 20 2d 20 54 68 65 | 20 73 74 72 69 6e 67 20 |.. - The| string |
|000002c0| 74 68 61 74 20 68 6f 6c | 64 73 20 6f 75 72 20 70 |that hol|ds our p|
|000002d0| 73 65 75 64 6f 20 61 72 | 72 61 79 61 00 00 76 00 |seudo ar|raya..v.|
|000002e0| 2b 00 00 00 20 20 20 45 | 6c 65 6d 65 6e 74 4e 62 |+... E|lementNb|
|000002f0| 72 25 20 2d 20 54 68 65 | 20 61 72 72 61 79 20 65 |r% - The| array e|
|00000300| 6c 65 6d 65 6e 74 20 6e | 75 6d 62 65 72 72 00 00 |lement n|umberr..|
|00000310| 76 00 30 00 00 00 20 20 | 20 45 6c 65 6d 65 6e 74 |v.0... | Element|
|00000320| 24 0d 04 20 2d 20 54 68 | 65 20 65 6c 65 6d 65 6e |$.. - Th|e elemen|
|00000330| 74 20 74 6f 20 73 74 6f | 72 65 20 69 6e 20 41 72 |t to sto|re in Ar|
|00000340| 72 61 79 24 00 00 76 00 | 39 00 00 00 20 20 20 45 |ray$..v.|9... E|
|00000350| 6c 65 6d 65 6e 74 4c 65 | 6e 25 20 2d 20 54 68 65 |lementLe|n% - The|
|00000360| 20 66 69 78 65 64 2d 6c | 65 6e 67 74 68 20 6f 66 | fixed-l|ength of|
|00000370| 20 74 68 65 20 61 72 72 | 61 79 20 65 6c 65 6d 65 | the arr|ay eleme|
|00000380| 6e 74 2c 2c 00 00 76 00 | 2a 00 00 00 0d 11 20 73 |nt,,..v.|*..... s|
|00000390| 6f 20 77 65 20 64 6f 6e | 27 74 20 68 61 76 65 20 |o we don|'t have |
|000003a0| 74 6f 20 75 73 65 20 4c | 65 6e 28 45 6c 65 6d 65 |to use L|en(Eleme|
|000003b0| 6e 74 24 29 00 00 76 00 | 31 00 00 00 0d 11 20 74 |nt$)..v.|1..... t|
|000003c0| 6f 20 64 65 74 65 72 6d | 69 6e 65 20 74 68 65 20 |o determ|ine the |
|000003d0| 61 63 74 75 61 6c 20 73 | 69 7a 65 20 6f 66 20 74 |actual s|ize of t|
|000003e0| 68 65 20 65 6c 65 6d 65 | 6e 74 73 6f 00 00 76 00 |he eleme|ntso..v.|
|000003f0| 3f 00 00 00 20 20 41 6c | 6c 20 61 72 72 61 79 73 |?... Al|l arrays|
|00000400| 20 73 74 61 72 74 20 61 | 74 20 65 6c 65 6d 65 6e | start a|t elemen|
|00000410| 74 20 7a 65 72 6f 2e 20 | 49 66 20 79 6f 75 20 77 |t zero. |If you w|
|00000420| 61 6e 74 20 74 6f 20 73 | 74 61 72 74 20 77 69 74 |ant to s|tart wit|
|00000430| 68 68 00 00 76 00 38 00 | 00 00 20 20 65 6c 65 6d |hh..v.8.|.. elem|
|00000440| 65 6e 74 20 6f 6e 65 2c | 20 69 67 6e 6f 72 65 20 |ent one,| ignore |
|00000450| 65 6c 65 6d 65 6e 74 20 | 7a 65 72 6f 20 6f 72 20 |element |zero or |
|00000460| 72 65 77 6f 72 6b 20 66 | 6f 72 6d 75 6c 61 73 2e |rework f|ormulas.|
|00000470| 00 08 00 08 0b 18 6a 00 | a9 00 0c 04 96 00 76 00 |......j.|......v.|
|00000480| 28 00 1d 00 42 79 74 65 | 20 31 20 6f 66 20 41 72 |(...Byte| 1 of Ar|
|00000490| 72 61 79 24 20 63 6f 6e | 74 61 69 6e 73 20 65 6c |ray$ con|tains el|
|000004a0| 65 6d 65 6e 74 20 73 69 | 7a 65 00 00 00 08 0b 04 |ement si|ze......|
|000004b0| 96 00 0b 04 73 00 ee 00 | f0 00 e4 04 a3 00 ee 00 |....s...|........|
|000004c0| 0b 04 a4 00 a3 00 0c 04 | 8c 00 00 08 0b 04 8c 00 |........|........|
|000004d0| 0b 04 a4 00 df 00 0b 04 | 8c 00 0b 18 6a 00 c2 00 |........|....j...|
|000004e0| ff ff 0b 04 96 00 f7 00 | ee 00 e4 04 a3 00 e2 00 |........|........|
|000004f0| ee 00 a4 00 49 00 00 00 | 00 10 0b 18 81 00 0b 04 |....I...|........|
|00000500| 96 00 d3 00 a3 00 0b 04 | 96 00 c1 00 0c 18 81 00 |........|........|
|00000510| 00 10 0b 04 8c 00 0b 04 | 96 00 0b 18 81 00 0b 18 |........|........|
|00000520| 6a 00 8b 00 00 08 38 00 | 00 00 00 00 39 00 09 00 |j.....8.|....9...|
|00000530| 08 00 ff ff ff ff ff ff | ff ff 15 00 00 00 03 00 |........|........|
|00000540| 00 0b 00 43 72 65 61 74 | 65 41 72 72 61 79 01 08 |...Creat|eArray..|
|00000550| 30 d4 02 00 00 18 00 00 | 00 58 00 1e 00 b2 00 00 |0.......|.X......|
|00000560| 01 03 00 6a 00 00 02 06 | 00 00 00 e0 00 00 02 01 |...j....|........|
|00000570| 00 00 00 96 00 00 02 01 | 00 00 00 00 00 00 00 76 |........|.......v|
|00000580| 00 37 00 00 00 54 68 69 | 73 20 66 75 6e 63 74 69 |.7...Thi|s functi|
|00000590| 6f 6e 20 77 69 6c 6c 20 | 63 72 65 61 74 65 20 61 |on will |create a|
|000005a0| 20 70 73 65 75 64 6f 20 | 61 72 72 61 79 20 69 6e | pseudo |array in|
|000005b0| 20 61 20 73 74 72 69 6e | 67 2e 2e 00 00 76 00 02 | a strin|g....v..|
|000005c0| 00 00 00 00 00 76 00 08 | 00 00 00 49 6e 70 75 74 |.....v..|...Input|
|000005d0| 3a 00 00 76 00 41 00 00 | 00 20 20 41 72 72 61 79 |:..v.A..|. Array|
|000005e0| 42 6f 75 6e 64 25 20 20 | 20 2d 20 53 65 74 73 20 |Bound% | - Sets |
|000005f0| 74 68 65 20 68 69 67 68 | 65 73 74 20 65 6c 65 6d |the high|est elem|
|00000600| 65 6e 74 20 6e 75 6d 62 | 65 72 20 66 6f 72 20 74 |ent numb|er for t|
|00000610| 68 65 20 61 72 72 61 79 | 0a 00 00 76 00 35 00 00 |he array|...v.5..|
|00000620| 00 0d 12 20 4e 6f 74 69 | 63 65 20 74 68 61 74 20 |... Noti|ce that |
|00000630| 77 65 20 61 64 64 65 64 | 20 31 20 74 6f 20 69 74 |we added| 1 to it|
|00000640| 20 77 68 65 6e 20 77 65 | 20 69 6e 69 74 69 61 6c | when we| initial|
|00000650| 69 7a 65 64 6e 00 00 76 | 00 2a 00 00 00 0d 12 20 |izedn..v|.*..... |
|00000660| 41 72 72 61 79 24 20 74 | 6f 20 61 63 63 6f 6d 6d |Array$ t|o accomm|
|00000670| 6f 64 61 74 65 20 61 20 | 7a 65 72 6f 20 65 6c 65 |odate a |zero ele|
|00000680| 6d 65 6e 74 2e 00 00 76 | 00 31 00 00 00 20 20 45 |ment...v|.1... E|
|00000690| 6c 65 6d 65 6e 74 4c 65 | 6e 25 20 20 20 2d 20 56 |lementLe|n% - V|
|000006a0| 61 6c 69 64 20 72 61 6e | 67 65 20 69 73 20 66 72 |alid ran|ge is fr|
|000006b0| 6f 6d 20 31 20 74 6f 20 | 32 35 35 2e 2e 00 00 76 |om 1 to |255....v|
|000006c0| 00 09 00 00 00 4f 75 74 | 70 75 74 3a 3a 00 00 76 |.....Out|put::..v|
|000006d0| 00 40 00 00 00 20 20 41 | 72 72 61 79 24 0d 08 20 |.@... A|rray$.. |
|000006e0| 2d 20 54 68 65 20 70 73 | 65 75 64 6f 20 61 72 72 |- The ps|eudo arr|
|000006f0| 61 79 20 73 74 72 69 6e | 67 2e 20 57 69 6c 6c 20 |ay strin|g. Will |
|00000700| 63 6f 6e 74 61 69 6e 20 | 74 68 65 20 65 6c 65 6d |contain |the elem|
|00000710| 65 6e 74 00 00 76 00 35 | 00 00 00 0d 12 20 6c 65 |ent..v.5|..... le|
|00000720| 6e 67 74 68 20 62 79 74 | 65 20 69 6e 20 70 6f 73 |ngth byt|e in pos|
|00000730| 69 74 69 6f 6e 20 6f 6e | 65 20 61 6e 64 20 62 65 |ition on|e and be|
|00000740| 20 73 69 7a 65 64 20 66 | 6f 72 20 74 68 65 62 00 | sized f|or theb.|
|00000750| 00 76 00 24 00 00 00 0d | 12 20 6e 75 6d 62 65 72 |.v.$....|. number|
|00000760| 20 6f 66 20 65 6c 65 6d | 65 6e 74 73 20 79 6f 75 | of elem|ents you|
|00000770| 20 72 65 71 75 65 73 74 | 2e 00 00 00 08 0b 04 e0 | request|........|
|00000780| 00 0b 04 96 00 f0 00 e4 | 00 f1 00 49 00 90 02 76 |........|...I...v|
|00000790| 00 11 00 29 00 63 68 65 | 63 6b 20 66 6f 72 20 7a |...).che|ck for z|
|000007a0| 65 72 6f 73 74 00 10 0b | 04 e0 00 e4 04 a3 00 ee |erost...|........|
|000007b0| 00 0b 04 96 00 f0 00 0b | 04 a4 00 a3 00 d3 00 0c |........|........|
|000007c0| 18 6a 00 00 10 e4 04 0b | 04 a4 00 0b 04 96 00 ac |.j......|........|
|000007d0| 00 0b 18 6a 00 8b 00 00 | 08 32 00 d0 02 00 10 ed |...j....|.2......|
|000007e0| 00 04 00 00 00 00 00 0c | 18 6a 00 76 00 2a 00 12 |........|.j.v.*..|
|000007f0| 00 52 65 74 75 72 6e 20 | 6e 75 6c 6c 20 73 74 72 |.Return |null str|
|00000800| 69 6e 67 20 66 6f 72 20 | 69 6e 76 61 6c 69 64 20 |ing for |invalid |
|00000810| 61 72 67 75 6d 65 6e 74 | 73 00 08 38 00 00 00 00 |argument|s..8....|
|00000820| 00 39 00 09 00 08 00 ff | ff ff ff ff ff ff ff 16 |.9......|........|
|00000830| 00 00 00 03 00 00 0a 00 | 47 65 74 45 6c 65 6d 65 |........|GetEleme|
|00000840| 6e 74 02 0e 30 1e 01 00 | 00 18 00 00 00 40 00 16 |nt..0...|.....@..|
|00000850| 00 d2 00 86 02 02 00 6a | 00 00 02 06 00 00 00 73 |.......j|.......s|
|00000860| 00 00 02 01 00 00 00 00 | 00 00 08 0b 18 6a 00 a9 |........|.....j..|
|00000870| 00 0c 04 96 00 76 00 28 | 00 1d 00 42 79 74 65 20 |.....v.(|...Byte |
|00000880| 31 20 6f 66 20 41 72 72 | 61 79 24 20 63 6f 6e 74 |1 of Arr|ay$ cont|
|00000890| 61 69 6e 73 20 65 6c 65 | 6d 65 6e 74 20 73 69 7a |ains ele|ment siz|
|000008a0| 65 00 00 00 08 0b 04 96 | 00 0b 04 73 00 ee 00 f0 |e.......|...s....|
|000008b0| 00 e4 04 a3 00 ee 00 0b | 04 a4 00 a3 00 0c 04 8c |........|........|
|000008c0| 00 00 08 0b 04 8c 00 e4 | 04 df 00 0b 04 8c 00 0b |........|........|
|000008d0| 18 6a 00 c2 00 06 05 0b | 04 96 00 f7 00 ee 00 e4 |.j......|........|
|000008e0| 04 a3 00 e2 00 ee 00 a4 | 00 49 00 da 00 00 18 0b |........|.I......|
|000008f0| 18 6a 00 0b 04 8c 00 0b | 04 96 00 c7 00 0c 18 81 |.j......|........|
|00000900| 00 00 08 32 00 26 01 00 | 18 ed 00 04 00 d0 00 00 |...2.&..|........|
|00000910| 00 0c 18 81 00 76 00 35 | 00 16 00 4e 75 6c 6c 20 |.....v.5|...Null |
|00000920| 73 74 72 69 6e 67 73 20 | 73 69 67 6e 61 6c 20 65 |strings |signal e|
|00000930| 72 72 6f 72 20 73 68 6f | 75 6c 64 20 61 74 20 6c |rror sho|uld at l|
|00000940| 65 61 73 74 20 62 65 20 | 73 70 61 63 65 73 69 00 |east be |spacesi.|
|00000950| 08 38 00 00 08 0b 18 81 | 00 0c 18 d2 00 00 00 39 |.8......|.......9|
|00000960| 00 09 00 08 00 ff ff ff | ff ff ff ff ff 0c 00 00 |........|........|
|00000970| 00 03 00 fd | |.... | |
+--------+-------------------------+-------------------------+--------+--------+