Liren Large Software Subsidy 9

home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l171 / 1.img / ADVR_EX / CMD_EX.BAS < prev next >
Unknown | 1991-03-14 | 2.0 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| fc 00 04 00 0c 00 81 01 | 91 01 06 00 01 02 03 04 |........|........|
|00000010| 05 08 10 51 ff ff 24 00 | ff ff c4 01 87 00 56 00 |...Q..$.|......V.|
|00000020| a2 00 9a 00 00 00 00 00 | 00 00 ab 00 7c 00 60 00 |........|....|.`.|
|00000030| 00 00 00 00 b7 00 00 00 | 6b 00 b1 00 00 00 00 00 |........|k.......|
|00000040| 00 00 00 00 70 00 00 00 | 00 00 00 00 00 00 00 00 |....p...|........|
|00000050| 5b 00 00 00 00 00 00 00 | 00 00 8f 00 00 00 00 00 |[.......|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 c1 00 |........|........|
|00000070| 52 00 00 00 00 01 41 00 | 00 00 01 5a 77 00 40 07 |R.....A.|...Zw.@.|
|00000080| 43 6f 6d 6c 69 6e 65 00 | 00 00 01 4e 00 00 00 03 |Comline.|...N....|
|00000090| 4d 61 78 00 00 00 01 49 | 00 00 00 07 4e 75 6d 41 |Max....I|....NumA|
|000000a0| 72 67 73 00 00 00 04 41 | 72 67 73 00 00 00 07 4d |rgs....A|rgs....M|
|000000b0| 61 78 41 72 67 73 bc 00 | 00 04 54 52 55 45 00 00 |axArgs..|..TRUE..|
|000000c0| 00 05 46 41 4c 53 45 00 | 00 00 02 49 6e 00 00 00 |..FALSE.|...In...|
|000000d0| 02 43 6c 00 00 00 01 4c | 00 00 00 01 43 00 00 00 |.Cl....L|....C...|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 0e 03 00 00 97 00 02 00 | 00 00 00 00 97 00 3a 00 |........|......:.|
|000001f0| 00 00 20 2a 2a 2a 20 43 | 4d 44 5f 45 58 2e 42 41 |.. *** C|MD_EX.BA|
|00000200| 53 20 2d 2d 20 43 4f 4d | 4d 41 4e 44 24 20 66 75 |S -- COM|MAND$ fu|
|00000210| 6e 63 74 69 6f 6e 20 70 | 72 6f 67 72 61 6d 6d 69 |nction p|rogrammi|
|00000220| 6e 67 20 65 78 61 6d 70 | 6c 65 00 00 97 00 02 00 |ng examp|le......|
|00000230| 00 00 00 00 97 00 33 00 | 00 00 20 44 65 66 61 75 |......3.|.. Defau|
|00000240| 6c 74 20 76 61 72 69 61 | 62 6c 65 20 74 79 70 65 |lt varia|ble type|
|00000250| 20 69 73 20 69 6e 74 65 | 67 65 72 20 69 6e 20 74 | is inte|ger in t|
|00000260| 68 69 73 20 6d 6f 64 75 | 6c 65 2e 65 00 00 1b 00 |his modu|le.e....|
|00000270| ff ff c1 ff ff ff 00 00 | 00 00 97 00 3c 00 00 00 |........|....<...|
|00000280| 20 44 65 63 6c 61 72 65 | 20 74 68 65 20 43 6f 6d | Declare| the Com|
|00000290| 6c 69 6e 65 20 73 75 62 | 70 72 6f 67 72 61 6d 2c |line sub|program,|
|000002a0| 20 61 73 20 77 65 6c 6c | 20 61 73 20 74 68 65 20 | as well| as the |
|000002b0| 6e 75 6d 62 65 72 20 61 | 6e 64 00 00 97 00 1a 00 |number a|nd......|
|000002c0| 00 00 20 74 79 70 65 20 | 6f 66 20 69 74 73 20 70 |.. type |of its p|
|000002d0| 61 72 61 6d 65 74 65 72 | 73 2e 00 00 44 00 18 00 |arameter|s...D...|
|000002e0| 60 00 00 01 03 00 6b 00 | 00 00 01 00 56 00 00 06 |`.....k.|....V...|
|000002f0| 05 00 70 00 00 00 01 00 | 00 00 00 00 7d 01 ff ff |..p.....|....}...|
|00000300| 64 05 65 01 0f 00 10 14 | 02 00 56 00 00 00 73 01 |d.e.....|..V...s.|
|00000310| a3 00 00 00 97 00 2a 00 | 00 00 20 47 65 74 20 77 |......*.|.. Get w|
|00000320| 68 61 74 20 77 61 73 20 | 74 79 70 65 64 20 6f 6e |hat was |typed on|
|00000330| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 20 6c 69 6e | the com|mand lin|
|00000340| 65 2e 00 00 0b 00 6b 00 | 0e 14 00 00 56 00 64 29 |e.....k.|....V.d)|
|00000350| 37 00 03 00 60 00 00 00 | 97 00 2b 00 00 00 20 50 |7...`...|..+... P|
|00000360| 72 69 6e 74 20 6f 75 74 | 20 65 61 63 68 20 70 61 |rint out| each pa|
|00000370| 72 74 20 6f 66 20 74 68 | 65 20 63 6f 6d 6d 61 6e |rt of th|e comman|
|00000380| 64 20 6c 69 6e 65 2e 00 | 00 00 6d 01 0b 00 b0 d1 |d line..|..m.....|
|00000390| bc c6 bc c6 a5 d8 20 3d | 20 22 95 00 0b 00 6b 00 |...... =| "....k.|
|000003a0| 96 00 00 00 6d 01 09 00 | b0 d1 bc c6 ac 4f 20 3a |....m...|.....O :|
|000003b0| 20 22 96 00 00 00 0b 00 | 77 00 64 05 0b 00 6b 00 | "......|w.d...k.|
|000003c0| 56 00 ff ff ff ff 06 00 | 0b 00 77 00 0e 14 01 00 |V.......|..w.....|
|000003d0| 56 00 96 00 06 00 0b 00 | 77 00 66 00 ff ff ff ff |V.......|w.f.....|
|000003e0| 00 00 00 00 97 00 3b 00 | 00 00 20 53 75 62 72 6f |......;.|.. Subro|
|000003f0| 75 74 69 6e 65 20 74 6f | 20 67 65 74 20 63 6f 6d |utine to| get com|
|00000400| 6d 61 6e 64 20 6c 69 6e | 65 20 61 6e 64 20 73 70 |mand lin|e and sp|
|00000410| 6c 69 74 20 69 6e 74 6f | 20 61 72 67 75 6d 65 6e |lit into| argumen|
|00000420| 74 73 2e 64 00 00 97 00 | 3c 00 00 00 20 50 61 72 |ts.d....|<... Par|
|00000430| 61 6d 65 74 65 72 73 3a | 20 20 4e 75 6d 41 72 67 |ameters:|  NumArg|
|00000440| 73 20 3a 20 4e 75 6d 62 | 65 72 20 6f 66 20 63 6f |s : Numb|er of co|
|00000450| 6d 6d 61 6e 64 20 6c 69 | 6e 65 20 61 72 67 73 20 |mmand li|ne args |
|00000460| 66 6f 75 6e 64 2e 00 00 | 97 00 32 00 00 00 0d 0e |found...|..2.....|
|00000470| 20 41 72 67 73 24 28 29 | 20 3a 20 41 72 72 61 79 | Args$()| : Array|
|00000480| 20 69 6e 20 77 68 69 63 | 68 20 74 6f 20 72 65 74 | in whic|h to ret|
|00000490| 75 72 6e 20 61 72 67 75 | 6d 65 6e 74 73 2e 00 00 |urn argu|ments...|
|000004a0| 97 00 30 00 00 00 0d 0e | 20 4d 61 78 41 72 67 73 |..0.....| MaxArgs|
|000004b0| 20 3a 20 4d 61 78 69 6d | 75 6d 20 6e 75 6d 62 65 | : Maxim|um numbe|
|000004c0| 72 20 6f 66 20 61 72 67 | 75 6d 65 6e 74 73 20 61 |r of arg|uments a|
|000004d0| 72 72 61 79 00 00 97 00 | 10 00 00 00 0d 18 20 63 |rray....|...... c|
|000004e0| 61 6e 20 72 65 74 75 72 | 6e 2e 00 00 09 00 08 00 |an retur|n.......|
|000004f0| ff ff 8e 00 ff ff ff ff | 19 00 00 00 00 00 02 01 |........|........|
|00000500| 00 07 00 43 6f 6d 6c 69 | 6e 65 01 00 b8 12 03 00 |...Comli|ne......|
|00000510| 00 1b 00 ff ff c1 ff ff | ff 00 00 76 00 18 00 60 |........|...v...`|
|00000520| 00 00 01 03 00 7c 00 00 | 00 01 00 87 00 00 06 05 |.....|..|........|
|00000530| 00 8f 00 00 00 01 00 00 | 00 23 00 64 05 78 01 0c |........|.#.d.x..|
|00000540| 00 9a 00 64 01 0c 00 a2 | 00 00 00 00 0c 64 01 0c |...d....|.....d..|
|00000550| 00 7c 00 06 00 0b 00 a2 | 00 0c 00 ab 00 00 00 97 |.|......|........|
|00000560| 00 34 00 00 00 20 47 65 | 74 20 74 68 65 20 63 6f |.4... Ge|t the co|
|00000570| 6d 6d 61 6e 64 20 6c 69 | 6e 65 20 75 73 69 6e 67 |mmand li|ne using|
|00000580| 20 74 68 65 20 43 4f 4d | 4d 41 4e 44 24 20 66 75 | the COM|MAND$ fu|
|00000590| 6e 63 74 69 6f 6e 2e 00 | 0c 0a 01 0c 14 b1 00 00 |nction..|........|
|000005a0| 0c 0b 14 b1 00 2d 01 ff | ff 0c 00 b7 00 00 00 97 |.....-..|........|
|000005b0| 00 35 00 00 00 20 47 6f | 20 74 68 72 6f 75 67 68 |.5... Go| through|
|000005c0| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 20 6c 69 6e | the com|mand lin|
|000005d0| 65 20 61 20 63 68 61 72 | 61 63 74 65 72 20 61 74 |e a char|acter at|
|000005e0| 20 61 20 74 69 6d 65 2e | 00 00 0c 0b 00 77 00 64 | a time.|.....w.d|
|000005f0| 05 0b 00 b7 00 56 00 ff | ff ff ff 00 18 0b 14 b1 |.....V..|........|
|00000600| 00 0b 00 77 00 64 05 33 | 01 0c 14 bc 00 00 10 97 |...w.d.3|........|
|00000610| 00 2c 00 04 00 54 65 73 | 74 20 66 6f 72 20 63 68 |.,...Tes|t for ch|
|00000620| 61 72 61 63 74 65 72 20 | 62 65 69 6e 67 20 61 20 |aracter |being a |
|00000630| 62 6c 61 6e 6b 20 6f 72 | 20 61 20 74 61 62 2e 00 |blank or| a tab..|
|00000640| 18 0b 14 bc 00 6d 01 01 | 00 20 22 71 01 0b 14 bc |.....m..|. "q....|
|00000650| 00 64 25 82 01 01 00 71 | 01 01 01 6e 01 61 00 00 |.d%....q|...n.a..|
|00000660| 00 00 10 97 00 19 00 04 | 00 20 4e 65 69 74 68 65 |........|. Neithe|
|00000670| 72 20 62 6c 61 6e 6b 20 | 6e 6f 72 20 74 61 62 2e |r blank |nor tab.|
|00000680| 00 00 10 97 00 20 00 04 | 00 20 54 65 73 74 20 74 |..... ..|. Test t|
|00000690| 6f 20 73 65 65 20 69 66 | 20 79 6f 75 27 72 65 20 |o see if| you're |
|000006a0| 61 6c 72 65 61 64 79 00 | 10 97 00 16 00 04 00 20 |already.|....... |
|000006b0| 69 6e 73 69 64 65 20 61 | 6e 20 61 72 67 75 6d 65 |inside a|n argume|
|000006c0| 6e 74 2e 00 24 0b 00 ab | 00 74 01 61 00 00 00 00 |nt..$...|.t.a....|
|000006d0| 18 97 00 2c 00 06 00 20 | 59 6f 75 27 76 65 20 66 |...,... |You've f|
|000006e0| 6f 75 6e 64 20 74 68 65 | 20 73 74 61 72 74 20 6f |ound the| start o|
|000006f0| 66 20 61 20 6e 65 77 20 | 61 72 67 75 6d 65 6e 74 |f a new |argument|
|00000700| 2e 00 18 97 00 1f 00 06 | 00 20 54 65 73 74 20 66 |........|. Test f|
|00000710| 6f 72 20 74 6f 6f 20 6d | 61 6e 79 20 61 72 67 75 |or too m|any argu|
|00000720| 6d 65 6e 74 73 2e 6e 00 | 30 0b 00 7c 00 0b 00 8f |ments.n.|0..|....|
|00000730| 00 03 01 5d 00 00 00 54 | 00 ff ff 00 30 0b 00 7c |...]...T|....0..||
|00000740| 00 64 05 00 01 0c 00 7c | 00 00 30 0b 00 9a 00 0c |.d.....||..0.....|
|00000750| 00 ab 00 00 24 50 00 00 | 14 97 00 2d 00 05 00 20 |....$P..|...-... |
|00000760| 41 64 64 20 74 68 65 20 | 63 68 61 72 61 63 74 65 |Add the |characte|
|00000770| 72 20 74 6f 20 74 68 65 | 20 63 75 72 72 65 6e 74 |r to the| current|
|00000780| 20 61 72 67 75 6d 65 6e | 74 2e 00 00 24 0b 00 7c | argumen|t...$..||
|00000790| 00 0e 14 01 00 87 00 0b | 14 bc 00 00 01 0b 00 7c |........|.......||
|000007a0| 00 0f 14 01 00 87 00 00 | 18 49 00 ff ff 00 0c 97 |........|.I......|
|000007b0| 00 1a 00 03 00 20 46 6f | 75 6e 64 20 61 20 62 6c |..... Fo|und a bl|
|000007c0| 61 6e 6b 20 6f 72 20 61 | 20 74 61 62 2e 00 0c 97 |ank or a| tab....|
|000007d0| 00 2a 00 03 00 20 53 65 | 74 20 22 4e 6f 74 20 69 |.*... Se|t "Not i|
|000007e0| 6e 20 61 6e 20 61 72 67 | 75 6d 65 6e 74 22 20 66 |n an arg|ument" f|
|000007f0| 6c 61 67 20 74 6f 20 46 | 41 4c 53 45 2e 00 24 0b |lag to F|ALSE..$.|
|00000800| 00 a2 00 0c 00 ab 00 00 | 18 50 00 00 0c 0b 00 77 |........|.P.....w|
|00000810| 00 66 00 ff ff ff ff 00 | 00 00 00 51 00 09 00 08 |.f......|...Q....|
|00000820| 00 ff ff 04 00 ff ff ff | ff 21 00 00 00 ff ff 02 |........|.!......|
|00000830| 0c                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+