home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1987-04-01 | 36.9 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
| Encapsulated PostScript (image/eps)
| ext
| Supported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1b 4f 1b 21 00 1b 70 00 | 1b 21 00 1b 41 0c 1b 41 |.O.!..p.|.!..A..A|
|00000010| 48 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1b |H. | .|
|00000020| 47 42 41 53 44 4c 58 20 | 28 43 29 20 43 6f 70 79 |GBASDLX |(C) Copy|
|00000030| 72 69 67 68 74 20 31 39 | 38 36 2c 31 39 38 37 20 |right 19|86,1987 |
|00000040| 42 79 20 47 75 73 74 61 | 76 6f 20 48 2e 20 56 65 |By Gusta|vo H. Ve|
|00000050| 72 64 75 6e 20 20 50 61 | 67 65 20 31 1b 48 1b 41 |rdun Pa|ge 1.H.A|
|00000060| 0c 0a 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |...... | |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 41 53 44 | | BASD|
|00000090| 4c 58 2e 4c 49 42 0d 0a | 0d 0a 20 20 20 20 20 20 |LX.LIB..|.. |
|000000a0| 20 20 20 20 20 20 20 44 | 65 6c 75 78 65 20 4c 69 | D|eluxe Li|
|000000b0| 62 72 61 72 79 20 6f 66 | 20 66 75 6e 63 74 69 6f |brary of| functio|
|000000c0| 6e 73 20 77 72 69 74 74 | 65 6e 20 69 6e 20 61 73 |ns writt|en in as|
|000000d0| 73 65 6d 62 6c 79 20 6c | 61 6e 67 75 61 67 65 20 |sembly l|anguage |
|000000e0| 66 6f 72 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |for.. | |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000100| 20 20 20 20 20 20 20 20 | 20 43 6f 6d 70 69 6c 65 | | Compile|
|00000110| 64 20 42 41 53 49 43 0d | 0a 0d 0a 20 20 20 20 20 |d BASIC.|... |
|00000120| 20 20 20 20 20 42 41 53 | 44 4c 58 2c 20 20 42 61 | BAS|DLX, Ba|
|00000130| 73 69 63 20 44 65 6c 75 | 78 65 2c 20 20 69 73 20 |sic Delu|xe, is |
|00000140| 61 20 6c 69 62 72 61 72 | 79 20 6f 66 20 68 61 6e |a librar|y of han|
|00000150| 64 79 20 66 75 6e 63 74 | 69 6f 6e 73 20 66 6f 72 |dy funct|ions for|
|00000160| 20 20 63 6f 6d 2d 0d 0a | 20 20 20 20 20 20 20 20 | com-..| |
|00000170| 20 20 70 69 6c 65 64 20 | 20 42 41 53 49 43 2e 20 | piled | BASIC. |
|00000180| 20 54 6f 20 20 75 73 65 | 20 20 42 41 53 44 4c 58 | To use| BASDLX|
|00000190| 2e 4c 49 42 20 79 6f 75 | 20 77 69 6c 6c 20 6e 65 |.LIB you| will ne|
|000001a0| 65 64 2c 20 20 65 69 74 | 68 65 72 20 74 68 65 20 |ed, eit|her the |
|000001b0| 49 42 4d 0d 0a 20 20 20 | 20 20 20 20 20 20 20 42 |IBM.. | B|
|000001c0| 61 73 69 63 20 20 63 6f | 6d 70 69 6c 65 72 20 6f |asic co|mpiler o|
|000001d0| 72 20 74 68 65 20 4d 69 | 63 72 6f 73 6f 66 74 20 |r the Mi|crosoft |
|000001e0| 51 75 69 63 6b 62 61 73 | 69 63 20 63 6f 6d 70 69 |Quickbas|ic compi|
|000001f0| 6c 65 72 2e 20 20 49 20 | 20 73 75 67 67 65 73 74 |ler. I | suggest|
|00000200| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 74 68 61 74 |.. | that|
|00000210| 20 20 79 6f 75 20 20 75 | 73 65 20 50 43 2d 44 4f | you u|se PC-DO|
|00000220| 53 2f 4d 53 2d 44 4f 53 | 20 76 65 72 73 69 6f 6e |S/MS-DOS| version|
|00000230| 73 20 32 2e 30 20 6f 72 | 20 6c 61 74 65 72 20 74 |s 2.0 or| later t|
|00000240| 6f 20 69 6e 73 75 72 65 | 20 66 75 6c 6c 0d 0a 20 |o insure| full.. |
|00000250| 20 20 20 20 20 20 20 20 | 20 63 6f 6d 70 61 74 69 | | compati|
|00000260| 62 69 6c 69 74 79 2e 20 | 20 54 68 65 73 65 20 66 |bility. | These f|
|00000270| 75 6e 63 74 69 6f 6e 73 | 20 68 61 76 65 20 62 65 |unctions| have be|
|00000280| 65 6e 20 20 74 65 73 74 | 65 64 20 20 77 69 74 68 |en test|ed with|
|00000290| 20 20 74 68 65 20 20 49 | 42 4d 0d 0a 20 20 20 20 | the I|BM.. |
|000002a0| 20 20 20 20 20 20 42 61 | 73 69 63 20 63 6f 6d 70 | Ba|sic comp|
|000002b0| 69 6c 65 72 20 76 65 72 | 73 69 6f 6e 20 32 2e 30 |iler ver|sion 2.0|
|000002c0| 20 61 6e 64 20 68 61 76 | 65 20 63 61 75 73 65 64 | and hav|e caused|
|000002d0| 20 6e 6f 20 70 72 6f 62 | 6c 65 6d 73 2e 20 20 48 | no prob|lems. H|
|000002e0| 6f 77 65 76 65 72 2c 0d | 0a 20 20 20 20 20 20 20 |owever,.|. |
|000002f0| 20 20 20 49 20 61 6d 20 | 6e 6f 74 20 72 65 73 70 | I am |not resp|
|00000300| 6f 6e 73 69 62 6c 65 20 | 66 6f 72 20 61 6e 79 20 |onsible |for any |
|00000310| 64 61 6d 61 67 65 73 20 | 63 61 75 73 65 64 20 62 |damages |caused b|
|00000320| 79 20 62 75 74 2c 20 20 | 6e 6f 74 20 20 6c 69 6d |y but, |not lim|
|00000330| 69 74 65 64 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ited.. | |
|00000340| 74 6f 2c 20 20 74 68 65 | 20 75 73 65 2c 20 6d 69 |to, the| use, mi|
|00000350| 73 75 73 65 2c 20 20 6e | 6f 6e 2d 75 73 65 20 6f |suse, n|on-use o|
|00000360| 72 20 69 6e 61 62 69 6c | 69 74 79 20 74 6f 20 75 |r inabil|ity to u|
|00000370| 73 65 20 42 41 53 44 4c | 58 2e 20 20 54 68 65 73 |se BASDL|X. Thes|
|00000380| 65 0d 0a 20 20 20 20 20 | 20 20 20 20 20 64 65 6c |e.. | del|
|00000390| 75 78 65 20 20 66 75 6e | 63 74 69 6f 6e 20 20 61 |uxe fun|ction a|
|000003a0| 72 65 20 69 6e 74 65 6e | 64 65 64 20 74 6f 20 62 |re inten|ded to b|
|000003b0| 65 20 75 73 65 64 20 69 | 6e 20 63 6f 6d 70 69 6c |e used i|n compil|
|000003c0| 65 64 20 62 61 73 69 63 | 20 6f 6e 6c 79 2e 0d 0a |ed basic| only...|
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 44 6f 20 20 6e 6f | | Do no|
|000003e0| 74 20 20 63 6f 6e 66 75 | 73 65 20 20 63 6f 6d 70 |t confu|se comp|
|000003f0| 69 6c 65 64 20 20 42 41 | 53 49 43 20 20 77 69 74 |iled BA|SIC wit|
|00000400| 68 20 20 74 68 65 20 20 | 42 41 53 49 43 20 20 69 |h the |BASIC i|
|00000410| 6e 74 65 72 70 72 65 74 | 65 72 2c 0d 0a 20 20 20 |nterpret|er,.. |
|00000420| 20 20 20 20 20 20 20 42 | 41 53 49 43 2e 43 4f 4d | B|ASIC.COM|
|00000430| 20 6f 72 20 42 41 53 49 | 43 41 2e 43 4f 4d 20 74 | or BASI|CA.COM t|
|00000440| 68 61 74 20 63 6f 6d 65 | 73 20 77 69 74 68 20 44 |hat come|s with D|
|00000450| 4f 53 20 6f 72 20 47 57 | 42 41 53 49 43 2e 20 54 |OS or GW|BASIC. T|
|00000460| 68 65 20 66 75 6e 63 2d | 0d 0a 20 20 20 20 20 20 |he func-|.. |
|00000470| 20 20 20 20 74 69 6f 6e | 73 20 20 70 72 6f 76 69 | tion|s provi|
|00000480| 64 65 64 20 20 69 6e 20 | 74 68 69 73 20 6c 69 62 |ded in |this lib|
|00000490| 72 61 72 79 20 68 61 76 | 65 20 62 65 65 6e 20 64 |rary hav|e been d|
|000004a0| 65 73 69 67 6e 65 64 20 | 74 6f 20 72 75 6e 20 66 |esigned |to run f|
|000004b0| 61 73 74 65 72 0d 0a 20 | 20 20 20 20 20 20 20 20 |aster.. | |
|000004c0| 20 74 68 61 6e 20 61 6e | 79 20 63 6f 72 72 65 73 | than an|y corres|
|000004d0| 70 6f 6e 64 65 6e 74 20 | 42 41 53 49 43 20 63 6f |pondent |BASIC co|
|000004e0| 64 65 2c 20 20 61 6e 64 | 20 6f 66 74 65 6e 20 74 |de, and| often t|
|000004f0| 61 6b 65 20 75 70 20 6c | 65 73 73 20 73 70 61 63 |ake up l|ess spac|
|00000500| 65 2c 0d 0a 20 20 20 20 | 20 20 20 20 20 20 6c 65 |e,.. | le|
|00000510| 61 76 69 6e 67 20 79 6f | 75 20 77 69 74 68 20 6d |aving yo|u with m|
|00000520| 6f 72 65 20 72 6f 6f 6d | 20 74 6f 20 77 72 69 74 |ore room| to writ|
|00000530| 65 20 6c 6f 6e 67 65 72 | 20 70 72 6f 67 72 61 6d |e longer| program|
|00000540| 73 21 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |s!.... | |
|00000550| 54 68 69 73 20 20 69 73 | 20 74 68 65 20 66 6f 75 |This is| the fou|
|00000560| 72 74 68 2c 20 20 6f 66 | 20 6d 61 6e 79 20 70 75 |rth, of| many pu|
|00000570| 62 6c 69 63 20 72 65 6c | 65 61 73 65 73 20 6f 66 |blic rel|eases of|
|00000580| 20 74 68 65 20 42 61 73 | 69 63 20 44 65 6c 75 78 | the Bas|ic Delux|
|00000590| 65 0d 0a 20 20 20 20 20 | 20 20 20 20 20 6c 69 62 |e.. | lib|
|000005a0| 72 61 72 79 2e 20 59 6f | 75 20 61 72 65 20 66 72 |rary. Yo|u are fr|
|000005b0| 65 65 20 74 6f 20 75 73 | 65 20 74 68 65 20 66 75 |ee to us|e the fu|
|000005c0| 6e 63 74 69 6f 6e 73 20 | 70 72 6f 76 69 64 65 64 |nctions |provided|
|000005d0| 20 69 6e 20 74 68 65 20 | 42 41 53 44 4c 58 0d 0a | in the |BASDLX..|
|000005e0| 20 20 20 20 20 20 20 20 | 20 20 6c 69 62 72 61 72 | | librar|
|000005f0| 79 20 20 69 6e 20 79 6f | 75 72 20 70 72 6f 67 72 |y in yo|ur progr|
|00000600| 61 6d 73 2e 20 54 68 65 | 20 63 6f 70 79 72 69 67 |ams. The| copyrig|
|00000610| 68 74 20 69 73 20 6f 6e | 6c 79 20 68 65 72 65 20 |ht is on|ly here |
|00000620| 74 6f 20 70 72 65 73 65 | 72 76 65 0d 0a 20 20 20 |to prese|rve.. |
|00000630| 20 20 20 20 20 20 20 6d | 79 20 77 6f 72 6b 20 61 | m|y work a|
|00000640| 6e 64 20 74 6f 20 70 72 | 6f 74 65 63 74 20 79 6f |nd to pr|otect yo|
|00000650| 75 20 66 72 6f 6d 20 61 | 6e 79 20 75 6e 61 75 74 |u from a|ny unaut|
|00000660| 68 6f 72 69 7a 65 64 20 | 6d 6f 64 69 66 69 63 61 |horized |modifica|
|00000670| 74 69 6f 6e 73 20 6f 66 | 0d 0a 20 20 20 20 20 20 |tions of|.. |
|00000680| 20 20 20 20 42 41 53 44 | 4c 58 3b 20 20 69 74 20 | BASD|LX; it |
|00000690| 69 73 20 4e 4f 54 20 68 | 65 72 65 20 74 6f 20 70 |is NOT h|ere to p|
|000006a0| 72 6f 74 65 63 74 20 61 | 67 61 69 6e 73 74 20 74 |rotect a|gainst t|
|000006b0| 68 65 20 66 72 65 65 20 | 20 64 69 73 74 72 69 62 |he free | distrib|
|000006c0| 75 74 69 6f 6e 0d 0a 20 | 20 20 20 20 20 20 20 20 |ution.. | |
|000006d0| 20 6f 66 20 42 41 53 44 | 4c 58 2e 20 20 59 6f 75 | of BASD|LX. You|
|000006e0| 20 6d 61 79 20 63 6f 70 | 79 20 61 6e 64 20 64 69 | may cop|y and di|
|000006f0| 73 74 72 69 62 75 74 65 | 20 42 41 53 44 4c 58 20 |stribute| BASDLX |
|00000700| 74 6f 20 20 6f 74 68 65 | 72 73 20 61 73 20 6c 6f |to othe|rs as lo|
|00000710| 6e 67 0d 0a 20 20 20 20 | 20 20 20 20 20 20 61 73 |ng.. | as|
|00000720| 20 6e 6f 20 20 66 65 65 | 20 6f 72 20 73 70 65 63 | no fee| or spec|
|00000730| 69 61 6c 20 63 6f 6e 73 | 69 64 65 72 61 74 69 6f |ial cons|ideratio|
|00000740| 6e 20 69 73 20 63 68 61 | 72 67 65 64 20 61 6e 64 |n is cha|rged and|
|00000750| 20 61 6c 6c 20 6f 66 20 | 74 68 65 20 72 65 2d 0d | all of |the re-.|
|00000760| 0a 20 20 20 20 20 20 20 | 20 20 20 6c 61 74 65 64 |. | lated|
|00000770| 20 66 69 6c 65 73 20 74 | 6f 20 42 41 53 44 4c 58 | files t|o BASDLX|
|00000780| 20 61 72 65 20 69 6e 63 | 6c 75 64 65 64 20 20 74 | are inc|luded t|
|00000790| 6f 67 65 74 68 65 72 20 | 20 69 6e 20 20 74 68 65 |ogether | in the|
|000007a0| 20 20 75 6e 6d 6f 64 69 | 66 69 65 64 0d 0a 20 20 | unmodi|fied.. |
|000007b0| 20 20 20 20 20 20 20 20 | 66 6f 72 6d 2e 20 20 49 | |form. I|
|000007c0| 66 20 20 79 6f 75 20 75 | 73 65 20 42 41 53 44 4c |f you u|se BASDL|
|000007d0| 58 20 69 6e 20 79 6f 75 | 72 20 70 72 6f 67 72 61 |X in you|r progra|
|000007e0| 6d 73 20 61 6e 64 20 66 | 69 6e 64 20 69 74 20 61 |ms and f|ind it a|
|000007f0| 20 76 61 6c 75 61 62 6c | 65 0d 0a 20 20 20 20 20 | valuabl|e.. |
|00000800| 20 20 20 20 20 74 6f 6f | 6c 20 74 68 65 6e 20 49 | too|l then I|
|00000810| 20 77 6f 75 6c 64 20 61 | 70 70 72 65 63 69 61 74 | would a|ppreciat|
|00000820| 65 20 69 74 20 69 66 20 | 79 6f 75 20 77 6f 75 6c |e it if |you woul|
|00000830| 64 20 73 65 6e 64 20 61 | 20 20 63 6f 6e 74 72 69 |d send a| contri|
|00000840| 62 75 74 69 6f 6e 0d 0a | 20 20 20 20 20 20 20 20 |bution..| |
|00000850| 20 20 28 24 32 35 20 20 | 73 75 67 67 65 73 74 65 | ($25 |suggeste|
|00000860| 64 29 2e 20 20 49 74 20 | 20 77 6f 75 6c 64 20 62 |d). It | would b|
|00000870| 65 20 6e 69 63 65 20 69 | 66 20 79 6f 75 20 63 6f |e nice i|f you co|
|00000880| 75 6c 64 20 61 63 6b 6e | 6f 77 6c 65 64 67 65 20 |uld ackn|owledge |
|00000890| 75 73 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 6f |use.. | o|
|000008a0| 66 20 42 41 53 44 4c 58 | 20 66 75 6e 63 74 69 6f |f BASDLX| functio|
|000008b0| 6e 73 20 69 6e 20 79 6f | 75 72 20 70 72 6f 67 72 |ns in yo|ur progr|
|000008c0| 61 6d 73 20 6f 72 20 20 | 64 6f 63 75 6d 65 6e 74 |ams or |document|
|000008d0| 61 74 69 6f 6e 20 20 74 | 68 61 74 20 20 75 73 65 |ation t|hat use|
|000008e0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 74 68 65 6d |.. | them|
|000008f0| 2e 20 20 57 69 74 68 20 | 20 61 20 6d 69 6e 69 6d |. With | a minim|
|00000900| 75 6d 20 63 6f 6e 74 72 | 69 62 75 74 69 6f 6e 20 |um contr|ibution |
|00000910| 6f 66 20 24 32 35 20 49 | 20 77 69 6c 6c 20 73 65 |of $25 I| will se|
|00000920| 6e 64 20 79 6f 75 20 61 | 20 64 69 73 6b 0d 0a 20 |nd you a| disk.. |
|00000930| 20 20 20 20 20 20 20 20 | 20 77 69 74 68 20 74 68 | | with th|
|00000940| 65 20 73 6f 75 72 63 65 | 20 63 6f 64 65 20 74 6f |e source| code to|
|00000950| 20 42 41 53 44 4c 58 2e | 20 20 50 72 65 76 69 6f | BASDLX.| Previo|
|00000960| 75 73 20 63 6f 6e 74 72 | 69 62 75 74 6f 72 73 20 |us contr|ibutors |
|00000970| 77 69 6c 6c 20 20 6e 65 | 65 64 0d 0a 20 20 20 20 |will ne|ed.. |
|00000980| 20 20 20 20 20 20 6f 6e | 6c 79 20 73 65 6e 64 20 | on|ly send |
|00000990| 24 31 30 20 66 6f 72 20 | 61 6e 20 75 70 64 61 74 |$10 for |an updat|
|000009a0| 65 20 6f 66 20 42 41 53 | 44 4c 58 2e 20 41 20 63 |e of BAS|DLX. A c|
|000009b0| 6f 6e 74 72 69 62 75 74 | 69 6f 6e 20 6f 66 20 24 |ontribut|ion of $|
|000009c0| 35 35 20 77 69 6c 6c 0d | 0a 20 20 20 20 20 20 20 |55 will.|. |
|000009d0| 20 20 20 67 72 61 6e 74 | 20 79 6f 75 20 61 20 6f | grant| you a o|
|000009e0| 6e 65 20 79 65 61 72 20 | 73 75 62 73 63 72 69 70 |ne year |subscrip|
|000009f0| 74 69 6f 6e 20 74 6f 20 | 42 41 53 44 4c 58 2e 20 |tion to |BASDLX. |
|00000a00| 20 57 69 74 68 20 61 20 | 73 75 62 73 63 72 69 70 | With a |subscrip|
|00000a10| 74 69 6f 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |tion.. | |
|00000a20| 79 6f 75 20 77 69 6c 6c | 20 61 75 74 6f 6d 61 74 |you will| automat|
|00000a30| 69 63 61 6c 6c 79 20 72 | 65 63 65 69 76 65 20 6e |ically r|eceive n|
|00000a40| 65 77 20 75 70 64 61 74 | 65 73 20 61 73 20 73 6f |ew updat|es as so|
|00000a50| 6f 6e 20 61 73 20 20 74 | 68 65 79 20 20 63 6f 6d |on as t|hey com|
|00000a60| 65 0d 0a 20 20 20 20 20 | 20 20 20 20 20 6f 75 74 |e.. | out|
|00000a70| 20 20 28 61 62 6f 75 74 | 20 20 31 30 20 20 75 70 | (about| 10 up|
|00000a80| 64 61 74 65 73 20 20 70 | 65 72 20 20 79 65 61 72 |dates p|er year|
|00000a90| 2e 29 20 20 55 70 64 61 | 74 65 73 20 63 6f 6d 65 |.) Upda|tes come|
|00000aa0| 20 63 6f 6d 70 6c 65 74 | 65 20 77 69 74 68 0d 0a | complet|e with..|
|00000ab0| 20 20 20 20 20 20 20 20 | 20 20 73 6f 75 72 63 65 | | source|
|00000ac0| 20 63 6f 64 65 2c 20 42 | 41 53 44 4c 58 20 6c 69 | code, B|ASDLX li|
|00000ad0| 62 72 61 72 79 2c 20 61 | 6e 64 20 64 6f 63 75 6d |brary, a|nd docum|
|00000ae0| 65 6e 74 61 74 69 6f 6e | 2e 0d 0a 0d 0a 20 20 20 |entation|..... |
|00000af0| 20 20 20 20 20 20 20 54 | 68 65 73 65 20 66 75 6e | T|hese fun|
|00000b00| 63 74 69 6f 6e 73 20 68 | 61 76 65 20 62 65 65 6e |ctions h|ave been|
|00000b10| 20 69 6e 63 6f 72 70 6f | 72 61 74 65 64 20 69 6e | incorpo|rated in|
|00000b20| 74 6f 20 20 61 20 20 6c | 69 62 72 61 72 79 20 20 |to a l|ibrary |
|00000b30| 74 6f 20 20 6d 61 6b 65 | 0d 0a 20 20 20 20 20 20 |to make|.. |
|00000b40| 20 20 20 20 74 68 65 6d | 20 65 61 73 69 6c 79 20 | them| easily |
|00000b50| 61 63 63 65 73 73 69 62 | 6c 65 20 62 79 20 74 68 |accessib|le by th|
|00000b60| 65 20 44 4f 53 20 4c 49 | 4e 4b 2e 45 58 45 20 70 |e DOS LI|NK.EXE p|
|00000b70| 72 6f 67 72 61 6d 2e 20 | 20 41 6c 6c 20 79 6f 75 |rogram. | All you|
|00000b80| 20 68 61 76 65 0d 0a 20 | 20 20 20 20 20 20 20 20 | have.. | |
|00000b90| 20 74 6f 20 20 64 6f 20 | 69 73 20 63 6f 70 79 20 | to do |is copy |
|00000ba0| 42 41 53 44 4c 58 2e 4c | 49 42 20 74 6f 20 74 68 |BASDLX.L|IB to th|
|00000bb0| 65 20 64 69 72 65 63 74 | 6f 72 79 20 6f 72 20 64 |e direct|ory or d|
|00000bc0| 69 73 6b 20 77 68 65 72 | 65 20 79 6f 75 20 6b 65 |isk wher|e you ke|
|00000bd0| 65 70 0d 0a 20 20 20 20 | 20 20 20 20 20 20 79 6f |ep.. | yo|
|00000be0| 75 72 20 6c 69 62 72 61 | 72 79 20 66 69 6c 65 73 |ur libra|ry files|
|00000bf0| 2e 20 20 20 57 68 65 6e | 20 79 6f 75 20 6c 69 6e |. When| you lin|
|00000c00| 6b 20 79 6f 75 72 20 20 | 70 72 6f 67 72 61 6d 73 |k your |programs|
|00000c10| 20 74 68 61 74 20 75 73 | 65 20 66 75 6e 63 2d 0d | that us|e func-.|
|00000c20| 0a 20 20 20 20 20 20 20 | 20 20 20 74 69 6f 6e 73 |. | tions|
|00000c30| 20 20 66 72 6f 6d 20 20 | 42 41 53 44 4c 58 2c 20 | from |BASDLX, |
|00000c40| 20 20 62 65 20 73 75 72 | 65 20 74 6f 20 73 70 65 | be sur|e to spe|
|00000c50| 63 69 66 79 3a 20 42 41 | 53 44 4c 58 20 77 68 65 |cify: BA|SDLX whe|
|00000c60| 6e 20 74 68 65 20 6c 69 | 6e 6b 65 72 0d 0a 20 20 |n the li|nker.. |
|00000c70| 20 20 20 20 20 20 20 20 | 70 72 6f 6d 70 74 73 20 | |prompts |
|00000c80| 79 6f 75 20 66 6f 72 20 | 61 20 4c 69 62 72 61 72 |you for |a Librar|
|00000c90| 79 20 5b 2e 4c 49 42 5d | 20 66 69 6c 65 28 73 29 |y [.LIB]| file(s)|
|00000ca0| 2e 20 20 50 6c 65 61 73 | 65 20 72 65 66 65 72 20 |. Pleas|e refer |
|00000cb0| 20 74 6f 20 20 79 6f 75 | 72 0d 0a 20 20 20 20 20 | to you|r.. |
|00000cc0| 20 20 20 20 20 44 4f 53 | 20 6d 61 6e 75 61 6c 20 | DOS| manual |
|00000cd0| 66 6f 72 20 6d 6f 72 65 | 20 69 6e 66 6f 72 6d 61 |for more| informa|
|00000ce0| 74 69 6f 6e 20 6f 6e 20 | 74 68 65 20 4c 49 4e 4b |tion on |the LINK|
|00000cf0| 2e 45 58 45 20 70 72 6f | 67 72 61 6d 2e 0d 0a 0d |.EXE pro|gram....|
|00000d00| 0a 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |..... | |
|00000d10| 20 20 20 20 20 20 20 20 | 20 20 20 1b 47 2d 2d 2d | | .G---|
|00000d20| 20 42 41 53 44 4c 58 20 | 20 20 56 65 72 73 69 6f | BASDLX | Versio|
|00000d30| 6e 20 31 2e 34 20 20 20 | 41 70 72 69 6c 20 31 39 |n 1.4 |April 19|
|00000d40| 38 37 20 2d 2d 2d 1b 48 | 0d 0a 0c 1b 41 48 0a 20 |87 ---.H|....AH. |
|00000d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 1b 47 42 41 | | .GBA|
|00000d60| 53 44 4c 58 20 28 43 29 | 20 43 6f 70 79 72 69 67 |SDLX (C)| Copyrig|
|00000d70| 68 74 20 31 39 38 36 2c | 31 39 38 37 20 42 79 20 |ht 1986,|1987 By |
|00000d80| 47 75 73 74 61 76 6f 20 | 48 2e 20 56 65 72 64 75 |Gustavo |H. Verdu|
|00000d90| 6e 20 20 50 61 67 65 20 | 32 1b 48 1b 41 0c 0a 0d |n Page |2.H.A...|
|00000da0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000dc0| 20 20 20 20 20 1b 47 53 | 70 65 63 69 61 6c 20 4e | .GS|pecial N|
|00000dd0| 6f 74 65 73 1b 48 0d 0a | 0d 0a 20 20 20 20 20 20 |otes.H..|.. |
|00000de0| 20 20 20 20 54 68 65 20 | 20 66 75 6e 63 74 69 6f | The | functio|
|00000df0| 6e 73 20 20 70 72 6f 76 | 69 64 65 64 20 20 69 6e |ns prov|ided in|
|00000e00| 20 74 68 69 73 20 6c 69 | 62 72 61 72 79 20 61 72 | this li|brary ar|
|00000e10| 65 20 61 76 61 69 6c 61 | 62 6c 65 20 74 6f 20 79 |e availa|ble to y|
|00000e20| 6f 75 20 62 79 0d 0a 20 | 20 20 20 20 20 20 20 20 |ou by.. | |
|00000e30| 20 75 73 69 6e 67 20 74 | 68 65 20 43 41 4c 4c 20 | using t|he CALL |
|00000e40| 63 6f 6d 6d 61 6e 64 20 | 66 72 6f 6d 20 63 6f 6d |command |from com|
|00000e50| 70 69 6c 65 64 20 42 41 | 53 49 43 2e 20 41 6c 6c |piled BA|SIC. All|
|00000e60| 20 6e 75 6d 65 72 69 63 | 20 76 61 72 69 61 62 6c | numeric| variabl|
|00000e70| 65 73 0d 0a 20 20 20 20 | 20 20 20 20 20 20 70 61 |es.. | pa|
|00000e80| 73 73 65 64 20 61 73 20 | 61 72 67 75 6d 65 6e 74 |ssed as |argument|
|00000e90| 73 20 74 6f 20 74 68 65 | 20 66 75 6e 63 74 69 6f |s to the| functio|
|00000ea0| 6e 73 20 6d 75 73 74 20 | 20 64 65 66 69 6e 65 64 |ns must | defined|
|00000eb0| 20 20 61 73 20 20 69 6e | 74 65 67 65 72 73 2e 0d | as in|tegers..|
|00000ec0| 0a 20 20 20 20 20 20 20 | 20 20 20 54 68 69 73 20 |. | This |
|00000ed0| 6d 65 61 6e 73 20 74 68 | 61 74 20 79 6f 75 20 63 |means th|at you c|
|00000ee0| 61 6e 20 65 69 74 68 65 | 72 20 67 6c 6f 62 61 6c |an eithe|r global|
|00000ef0| 6c 79 20 73 65 74 20 61 | 6c 6c 20 6e 75 6d 65 72 |ly set a|ll numer|
|00000f00| 69 63 20 76 61 72 69 61 | 62 6c 65 73 0d 0a 20 20 |ic varia|bles.. |
|00000f10| 20 20 20 20 20 20 20 20 | 74 6f 20 69 6e 74 65 67 | |to integ|
|00000f20| 65 72 73 20 62 79 20 69 | 73 73 75 69 6e 67 20 74 |ers by i|ssuing t|
|00000f30| 68 65 20 44 45 46 49 4e | 54 20 41 2d 5a 20 63 6f |he DEFIN|T A-Z co|
|00000f40| 6d 6d 61 6e 64 20 61 74 | 20 74 68 65 20 62 65 67 |mmand at| the beg|
|00000f50| 69 6e 6e 69 6e 67 20 6f | 66 0d 0a 20 20 20 20 20 |inning o|f.. |
|00000f60| 20 20 20 20 20 79 6f 75 | 72 20 70 72 6f 67 72 61 | you|r progra|
|00000f70| 6d 20 6f 72 2c 20 20 79 | 6f 75 20 63 61 6e 20 64 |m or, y|ou can d|
|00000f80| 65 63 6c 61 72 65 20 61 | 20 73 69 6e 67 6c 65 20 |eclare a| single |
|00000f90| 76 61 72 69 61 62 6c 65 | 20 61 73 20 69 6e 74 65 |variable| as inte|
|00000fa0| 67 65 72 20 62 79 0d 0a | 20 20 20 20 20 20 20 20 |ger by..| |
|00000fb0| 20 20 61 64 64 69 6e 67 | 20 61 20 22 25 22 20 73 | adding| a "%" s|
|00000fc0| 79 6d 62 6f 6c 20 61 74 | 20 74 68 65 20 65 6e 64 |ymbol at| the end|
|00000fd0| 20 6f 66 20 69 74 73 20 | 6e 61 6d 65 2e 20 28 69 | of its |name. (i|
|00000fe0| 2e 65 2e 20 20 49 25 2c | 20 20 74 68 69 73 20 77 |.e. I%,| this w|
|00000ff0| 69 6c 6c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 64 |ill.. | d|
|00001000| 65 63 6c 61 72 65 20 74 | 68 65 20 76 61 72 69 61 |eclare t|he varia|
|00001010| 62 6c 65 20 61 73 20 62 | 65 69 6e 67 20 69 6e 74 |ble as b|eing int|
|00001020| 65 67 65 72 29 2e 20 49 | 20 77 69 6c 6c 20 61 6c |eger). I| will al|
|00001030| 77 61 79 73 20 61 64 64 | 20 74 68 65 20 22 25 22 |ways add| the "%"|
|00001040| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 73 79 6d 62 |.. | symb|
|00001050| 6f 6c 20 20 61 74 20 20 | 74 68 65 20 20 65 6e 64 |ol at |the end|
|00001060| 20 6f 66 20 61 6c 6c 20 | 6d 79 20 6e 75 6d 65 72 | of all |my numer|
|00001070| 69 63 20 76 61 72 69 61 | 62 6c 65 73 20 69 6e 20 |ic varia|bles in |
|00001080| 61 6c 6c 20 6f 66 20 6d | 79 20 65 78 2d 0d 0a 20 |all of m|y ex-.. |
|00001090| 20 20 20 20 20 20 20 20 | 20 61 6d 70 6c 65 73 2c | | amples,|
|000010a0| 20 74 6f 20 72 65 6d 69 | 6e 64 20 79 6f 75 20 74 | to remi|nd you t|
|000010b0| 68 61 74 20 74 68 65 79 | 20 4d 55 53 54 20 62 65 |hat they| MUST be|
|000010c0| 20 69 6e 74 65 67 65 72 | 73 2e 0d 0a 0d 0a 20 20 | integer|s..... |
|000010d0| 20 20 20 20 20 20 20 20 | 54 68 65 20 76 61 72 69 | |The vari|
|000010e0| 61 62 6c 65 20 6e 61 6d | 65 73 20 75 73 65 64 20 |able nam|es used |
|000010f0| 69 6e 20 6d 79 20 65 78 | 61 6d 70 6c 65 73 20 64 |in my ex|amples d|
|00001100| 6f 6e 27 74 20 68 61 76 | 65 20 74 6f 20 20 62 65 |on't hav|e to be|
|00001110| 20 20 65 78 61 63 74 6c | 79 0d 0a 20 20 20 20 20 | exactl|y.. |
|00001120| 20 20 20 20 20 74 68 65 | 20 20 73 61 6d 65 2e 20 | the| same. |
|00001130| 20 79 6f 75 20 20 6d 61 | 79 20 20 63 68 6f 6f 73 | you ma|y choos|
|00001140| 65 20 20 6f 74 68 65 72 | 20 20 6e 61 6d 65 73 20 |e other| names |
|00001150| 74 68 61 74 20 77 6f 75 | 6c 64 20 62 65 20 6d 6f |that wou|ld be mo|
|00001160| 72 65 20 61 70 2d 0d 0a | 20 20 20 20 20 20 20 20 |re ap-..| |
|00001170| 20 20 70 72 6f 70 72 69 | 61 74 65 2e 20 6b 65 65 | propri|ate. kee|
|00001180| 70 20 69 6e 20 6d 69 6e | 64 20 74 68 61 74 20 74 |p in min|d that t|
|00001190| 68 65 20 76 61 72 69 61 | 62 6c 65 20 74 79 70 65 |he varia|ble type|
|000011a0| 73 20 64 6f 20 68 61 76 | 65 20 74 6f 20 62 65 20 |s do hav|e to be |
|000011b0| 74 68 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 73 |the.. | s|
|000011c0| 61 6d 65 20 69 6e 20 74 | 68 65 20 61 72 67 75 6d |ame in t|he argum|
|000011d0| 65 6e 74 20 6c 69 73 74 | 20 28 69 2e 65 2e 20 73 |ent list| (i.e. s|
|000011e0| 74 72 69 6e 67 73 20 6d | 75 73 74 20 62 65 20 73 |trings m|ust be s|
|000011f0| 74 72 69 6e 67 73 2c 20 | 69 6e 74 65 67 65 72 73 |trings, |integers|
|00001200| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 6d 75 73 74 |.. | must|
|00001210| 20 62 65 20 69 6e 74 65 | 67 65 72 73 29 2e 0d 0a | be inte|gers)...|
|00001220| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 4e 4f 54 45 |.. | NOTE|
|00001230| 3a 20 49 20 68 61 76 65 | 20 6e 6f 77 20 75 70 64 |: I have| now upd|
|00001240| 61 74 65 64 20 74 68 65 | 20 64 6f 63 75 6d 65 6e |ated the| documen|
|00001250| 74 61 74 69 6f 6e 20 74 | 6f 20 20 73 68 6f 77 20 |tation t|o show |
|00001260| 20 77 68 69 63 68 20 20 | 76 61 72 69 2d 0d 0a 20 | which |vari-.. |
|00001270| 20 20 20 20 20 20 20 20 | 20 61 62 6c 65 73 20 63 | | ables c|
|00001280| 61 6e 20 62 65 20 65 6e | 74 65 72 65 64 20 64 69 |an be en|tered di|
|00001290| 72 65 63 74 6c 79 20 69 | 6e 20 74 68 65 20 61 72 |rectly i|n the ar|
|000012a0| 67 75 6d 65 6e 74 20 6c | 69 73 74 2e 20 20 66 6f |gument l|ist. fo|
|000012b0| 72 20 65 78 61 6d 70 6c | 65 2c 0d 0a 20 20 20 20 |r exampl|e,.. |
|000012c0| 20 20 20 20 20 20 74 68 | 65 20 66 6f 6c 6c 6f 77 | th|e follow|
|000012d0| 69 6e 67 20 69 73 20 61 | 6e 20 61 63 63 65 70 74 |ing is a|n accept|
|000012e0| 61 62 6c 65 20 77 61 79 | 20 74 6f 20 63 61 6c 6c |able way| to call|
|000012f0| 20 74 68 65 20 47 55 4e | 20 66 75 6e 63 74 69 6f | the GUN| functio|
|00001300| 6e 3a 20 43 41 4c 4c 0d | 0a 20 20 20 20 20 20 20 |n: CALL.|. |
|00001310| 20 20 20 47 55 4e 28 31 | 30 29 20 20 54 68 69 73 | GUN(1|0) This|
|00001320| 20 77 69 6c 6c 20 22 66 | 69 72 65 22 20 74 68 65 | will "f|ire" the|
|00001330| 20 67 75 6e 20 31 30 20 | 74 69 6d 65 73 20 61 6e | gun 10 |times an|
|00001340| 64 20 72 65 74 75 72 6e | 2e 20 20 54 68 65 20 20 |d return|. The |
|00001350| 6f 6e 6c 79 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |only.. | |
|00001360| 64 69 66 66 65 72 65 6e | 63 65 20 20 62 65 74 77 |differen|ce betw|
|00001370| 65 65 6e 20 20 74 68 65 | 20 61 62 6f 76 65 20 65 |een the| above e|
|00001380| 78 61 6d 70 6c 65 20 61 | 6e 64 20 73 25 3d 31 30 |xample a|nd s%=10|
|00001390| 3a 20 43 41 4c 4c 20 47 | 55 4e 28 53 25 29 20 69 |: CALL G|UN(S%) i|
|000013a0| 73 0d 0a 20 20 20 20 20 | 20 20 20 20 20 74 68 61 |s.. | tha|
|000013b0| 74 20 62 79 20 69 6e 73 | 65 72 74 69 6e 67 20 61 |t by ins|erting a|
|000013c0| 20 6e 75 6d 62 65 72 20 | 69 6e 73 74 65 61 64 20 | number |instead |
|000013d0| 6f 66 20 61 20 76 61 72 | 69 61 62 6c 65 20 6e 61 |of a var|iable na|
|000013e0| 6d 65 20 20 42 41 53 49 | 43 20 20 61 73 2d 0d 0a |me BASI|C as-..|
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 73 69 67 6e 73 20 | | signs |
|00001400| 20 74 68 61 74 20 20 6e | 75 6d 62 65 72 20 20 74 | that n|umber t|
|00001410| 6f 20 20 61 20 20 6c 6f | 63 61 6c 20 20 76 61 72 |o a lo|cal var|
|00001420| 69 61 62 6c 65 20 77 68 | 69 63 68 20 20 69 73 20 |iable wh|ich is |
|00001430| 65 72 61 73 65 64 20 75 | 70 6f 6e 0d 0a 20 20 20 |erased u|pon.. |
|00001440| 20 20 20 20 20 20 20 72 | 65 74 75 72 6e 20 66 72 | r|eturn fr|
|00001450| 6f 6d 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |om the f|unction |
|00001460| 28 69 2e 65 2e 20 20 76 | 61 72 69 61 62 6c 65 20 |(i.e. v|ariable |
|00001470| 73 70 61 63 65 20 69 73 | 20 70 72 65 73 65 72 76 |space is| preserv|
|00001480| 65 64 2e 29 20 4e 6f 74 | 0d 0a 20 20 20 20 20 20 |ed.) Not|.. |
|00001490| 20 20 20 20 61 6c 6c 20 | 20 66 75 6e 63 74 69 6f | all | functio|
|000014a0| 6e 73 20 20 69 6e 20 20 | 42 41 53 44 4c 58 20 63 |ns in |BASDLX c|
|000014b0| 61 6e 20 62 65 20 43 41 | 4c 4c 65 64 20 69 6e 20 |an be CA|LLed in |
|000014c0| 74 68 69 73 20 77 61 79 | 20 62 65 63 61 75 73 65 |this way| because|
|000014d0| 20 74 68 65 79 0d 0a 20 | 20 20 20 20 20 20 20 20 | they.. | |
|000014e0| 20 73 6f 6d 65 74 69 6d | 65 73 20 72 65 74 75 72 | sometim|es retur|
|000014f0| 6e 20 77 69 74 68 20 61 | 20 73 70 65 63 69 61 6c |n with a| special|
|00001500| 20 63 6f 64 65 20 20 69 | 6e 20 20 74 68 65 20 20 | code i|n the |
|00001510| 76 61 72 69 61 62 6c 65 | 2e 20 20 49 6e 20 20 74 |variable|. In t|
|00001520| 68 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 64 6f |he.. | do|
|00001530| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 20 61 6e 79 |cumentat|ion any|
|00001540| 20 20 61 72 67 75 6d 65 | 6e 74 73 20 20 65 6e 63 | argume|nts enc|
|00001550| 6c 6f 73 65 64 20 20 69 | 6e 20 20 5b 5d 27 73 20 |losed i|n []'s |
|00001560| 20 63 61 6e 20 62 65 20 | 65 6e 74 65 72 65 64 0d | can be |entered.|
|00001570| 0a 20 20 20 20 20 20 20 | 20 20 20 64 69 72 65 63 |. | direc|
|00001580| 74 6c 79 20 61 73 20 74 | 68 65 20 61 72 67 75 6d |tly as t|he argum|
|00001590| 65 6e 74 2e 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |ent.....| |
|000015a0| 20 20 41 73 20 49 20 6d | 65 6e 74 69 6f 6e 65 64 | As I m|entioned|
|000015b0| 20 62 65 66 6f 72 65 20 | 49 20 68 61 76 65 20 74 | before |I have t|
|000015c0| 65 73 74 65 64 20 74 68 | 65 73 65 20 66 75 6e 63 |ested th|ese func|
|000015d0| 74 69 6f 6e 73 20 61 6e | 64 20 74 68 65 79 2c 20 |tions an|d they, |
|000015e0| 20 74 6f 0d 0a 20 20 20 | 20 20 20 20 20 20 20 74 | to.. | t|
|000015f0| 68 65 20 62 65 73 74 20 | 6f 66 20 6d 79 20 6b 6e |he best |of my kn|
|00001600| 6f 77 6c 65 64 67 65 2c | 20 20 77 6f 72 6b 20 62 |owledge,| work b|
|00001610| 75 67 20 66 72 65 65 2e | 20 20 42 75 74 2c 20 20 |ug free.| But, |
|00001620| 69 66 20 79 6f 75 20 68 | 61 70 70 65 6e 20 74 6f |if you h|appen to|
|00001630| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 66 69 6e 64 |.. | find|
|00001640| 20 61 6e 79 20 62 75 67 | 73 20 49 27 6c 6c 20 62 | any bug|s I'll b|
|00001650| 65 20 68 61 70 70 79 20 | 74 6f 20 66 69 78 20 74 |e happy |to fix t|
|00001660| 68 65 6d 2e 20 20 42 65 | 20 73 75 72 65 20 74 6f |hem. Be| sure to|
|00001670| 20 20 63 68 65 63 6b 20 | 20 74 68 61 74 0d 0a 20 | check | that.. |
|00001680| 20 20 20 20 20 20 20 20 | 20 79 6f 75 20 20 61 72 | | you ar|
|00001690| 65 20 20 43 41 4c 4c 69 | 6e 67 20 20 74 68 65 20 |e CALLi|ng the |
|000016a0| 20 66 75 6e 63 74 69 6f | 6e 73 20 70 72 6f 70 65 | functio|ns prope|
|000016b0| 72 6c 79 2e 20 20 54 68 | 61 74 20 69 73 20 74 68 |rly. Th|at is th|
|000016c0| 61 74 20 79 6f 75 20 61 | 72 65 0d 0a 20 20 20 20 |at you a|re.. |
|000016d0| 20 20 20 20 20 20 73 65 | 6e 64 69 6e 67 20 74 68 | se|nding th|
|000016e0| 65 20 63 6f 72 72 65 63 | 74 20 61 72 67 75 6d 65 |e correc|t argume|
|000016f0| 6e 74 73 20 74 6f 20 74 | 68 65 20 66 75 6e 63 74 |nts to t|he funct|
|00001700| 69 6f 6e 2e 20 20 4f 6e | 65 20 6f 66 20 20 74 68 |ion. On|e of th|
|00001710| 65 20 20 6d 6f 73 74 0d | 0a 20 20 20 20 20 20 20 |e most.|. |
|00001720| 20 20 20 63 6f 6d 6d 6f | 6e 20 20 65 72 72 6f 72 | commo|n error|
|00001730| 20 20 74 68 61 74 20 20 | 6f 63 63 75 72 73 20 20 | that |occurs |
|00001740| 69 73 20 77 68 65 6e 20 | 74 68 65 20 63 61 6c 6c |is when |the call|
|00001750| 69 6e 67 20 70 72 6f 67 | 72 61 6d 20 73 65 6e 64 |ing prog|ram send|
|00001760| 73 20 74 6f 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |s to.. | |
|00001770| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 61 6e 20 |the func|tion an |
|00001780| 69 6e 63 6f 72 72 65 63 | 74 20 76 61 72 69 61 62 |incorrec|t variab|
|00001790| 6c 65 20 74 79 70 65 2e | 20 20 52 65 6d 65 6d 62 |le type.| Rememb|
|000017a0| 65 72 20 20 74 68 61 74 | 20 20 6e 75 6d 65 72 69 |er that| numeri|
|000017b0| 63 0d 0a 20 20 20 20 20 | 20 20 20 20 20 76 61 72 |c.. | var|
|000017c0| 69 61 62 6c 65 73 20 6d | 75 73 74 20 62 65 20 64 |iables m|ust be d|
|000017d0| 65 63 6c 61 72 65 64 20 | 69 6e 74 65 67 65 72 2e |eclared |integer.|
|000017e0| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 50 6c |.... | Pl|
|000017f0| 65 61 73 65 20 72 65 66 | 65 72 20 61 6e 79 20 71 |ease ref|er any q|
|00001800| 75 65 73 74 69 6f 6e 73 | 2c 20 20 63 6f 6d 6d 65 |uestions|, comme|
|00001810| 6e 74 73 2c 20 72 65 71 | 75 65 73 74 73 20 66 6f |nts, req|uests fo|
|00001820| 72 20 6e 65 77 20 66 75 | 6e 63 74 69 6f 6e 73 0d |r new fu|nctions.|
|00001830| 0a 20 20 20 20 20 20 20 | 20 20 20 6f 72 20 63 6f |. | or co|
|00001840| 6e 74 72 69 62 75 74 69 | 6f 6e 73 20 74 6f 20 74 |ntributi|ons to t|
|00001850| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 61 64 64 |he follo|wing add|
|00001860| 72 65 73 73 3a 0d 0a 0d | 0a 20 20 20 20 20 20 20 |ress:...|. |
|00001870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001880| 20 20 20 20 20 20 20 20 | 20 20 20 47 75 73 74 61 | | Gusta|
|00001890| 76 6f 20 20 48 2e 20 56 | 65 72 64 75 6e 0d 0a 20 |vo H. V|erdun.. |
|000018a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000018b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000018c0| 20 36 34 32 34 20 48 6f | 6c 6c 69 6e 73 20 44 72 | 6424 Ho|llins Dr|
|000018d0| 69 76 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ive.. | |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000018f0| 20 20 20 20 20 20 20 42 | 65 74 68 65 73 64 61 2c | B|ethesda,|
|00001900| 20 4d 44 20 32 30 38 31 | 37 0d 0a 0d 0a 0d 0a 0d | MD 2081|7.......|
|00001910| 0a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00001920| 20 20 20 20 20 20 20 20 | 20 1b 47 2d 2d 2d 20 42 | | .G--- B|
|00001930| 41 53 44 4c 58 20 20 20 | 56 65 72 73 69 6f 6e 20 |ASDLX |Version |
|00001940| 31 2e 34 20 20 20 41 70 | 72 69 6c 20 31 39 38 37 |1.4 Ap|ril 1987|
|00001950| 20 2d 2d 2d 1b 48 0d 0a | 0c 1b 41 48 0a 20 20 20 | ---.H..|..AH. |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 1b 47 42 41 53 44 | | .GBASD|
|00001970| 4c 58 20 28 43 29 20 43 | 6f 70 79 72 69 67 68 74 |LX (C) C|opyright|
|00001980| 20 31 39 38 36 2c 31 39 | 38 37 20 42 79 20 47 75 | 1986,19|87 By Gu|
|00001990| 73 74 61 76 6f 20 48 2e | 20 56 65 72 64 75 6e 20 |stavo H.| Verdun |
|000019a0| 20 50 61 67 65 20 33 1b | 48 1b 41 0c 0a 0d 0a 20 | Page 3.|H.A.... |
|000019b0| 20 20 20 20 20 20 20 20 | 20 46 75 6e 63 74 69 6f | | Functio|
|000019c0| 6e 20 4e 61 6d 65 3a 20 | 1b 47 41 4c 4c 44 52 49 |n Name: |.GALLDRI|
|000019d0| 56 45 53 1b 48 0d 0a 20 | 20 20 20 20 20 20 20 20 |VES.H.. | |
|000019e0| 20 41 72 67 75 6d 65 6e | 74 73 20 20 20 20 3a 20 | Argumen|ts : |
|000019f0| 28 1b 34 4e 75 6d 5f 6f | 66 5f 64 72 69 76 65 73 |(.4Num_o|f_drives|
|00001a00| 1b 35 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 54 |.5).. | T|
|00001a10| 79 70 65 20 20 20 20 20 | 20 20 20 20 3a 20 44 4f |ype | : DO|
|00001a20| 53 2f 53 79 73 74 65 6d | 0d 0a 20 20 20 20 20 20 |S/System|.. |
|00001a30| 20 20 20 20 50 75 72 70 | 6f 73 65 20 20 20 20 20 | Purp|ose |
|00001a40| 20 3a 20 52 65 74 75 72 | 6e 73 20 20 74 68 65 20 | : Retur|ns the |
|00001a50| 20 74 6f 74 61 6c 20 20 | 20 20 6e 75 6d 62 65 72 | total | number|
|00001a60| 20 20 6f 66 20 20 6c 6f | 67 69 63 61 6c 20 20 64 | of lo|gical d|
|00001a70| 72 69 76 65 73 0d 0a 20 | 20 20 20 20 20 20 20 20 |rives.. | |
|00001a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a90| 28 44 69 73 6b 65 74 74 | 65 2c 20 46 69 78 65 64 |(Diskett|e, Fixed|
|00001aa0| 2c 20 52 61 6d 2c 20 45 | 74 63 2e 29 20 41 76 61 |, Ram, E|tc.) Ava|
|00001ab0| 69 6c 61 62 6c 65 2e 0d | 0a 0d 0a 20 20 20 20 20 |ilable..|... |
|00001ac0| 20 20 20 20 20 44 65 73 | 63 72 69 70 74 69 6f 6e | Des|cription|
|00001ad0| 20 20 3a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 54 | :.. | T|
|00001ae0| 68 69 73 20 20 66 75 6e | 63 74 69 6f 6e 20 77 69 |his fun|ction wi|
|00001af0| 6c 6c 20 72 65 74 75 72 | 6e 20 61 20 6d 69 6e 69 |ll retur|n a mini|
|00001b00| 6d 75 6d 20 6f 66 20 32 | 20 44 72 69 76 65 73 2c |mum of 2| Drives,|
|00001b10| 20 20 73 69 6e 63 65 20 | 61 6e 79 20 63 6f 6d 2d | since |any com-|
|00001b20| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 70 75 74 65 |.. | pute|
|00001b30| 72 20 69 73 20 61 73 73 | 75 6d 65 64 20 74 6f 20 |r is ass|umed to |
|00001b40| 68 61 76 65 20 74 68 65 | 20 6c 6f 67 69 63 61 6c |have the| logical|
|00001b50| 20 64 72 69 76 65 73 20 | 41 3a 20 26 20 42 3a 20 | drives |A: & B: |
|00001b60| 45 76 65 6e 20 69 66 20 | 74 68 65 72 65 0d 0a 20 |Even if |there.. |
|00001b70| 20 20 20 20 20 20 20 20 | 20 69 73 20 6f 6e 6c 79 | | is only|
|00001b80| 20 6f 6e 65 20 70 68 79 | 73 69 63 61 6c 20 64 72 | one phy|sical dr|
|00001b90| 69 76 65 2e 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |ive.....| |
|00001ba0| 20 20 64 72 76 73 25 3d | 30 3a 63 61 6c 6c 20 61 | drvs%=|0:call a|
|00001bb0| 6c 6c 64 72 69 76 65 73 | 28 64 72 76 73 25 29 0d |lldrives|(drvs%).|
|00001bc0| 0a 20 20 20 20 20 20 20 | 20 20 20 70 72 69 6e 74 |. | print|
|00001bd0| 20 22 59 6f 75 20 68 61 | 76 65 20 22 3b 64 72 76 | "You ha|ve ";drv|
|00001be0| 73 25 3b 22 20 64 72 69 | 76 65 73 20 61 76 61 69 |s%;" dri|ves avai|
|00001bf0| 6c 61 62 6c 65 2e 22 0d | 0a 0d 0a 20 20 20 20 20 |lable.".|... |
|00001c00| 20 20 20 20 20 46 75 6e | 63 74 69 6f 6e 20 4e 61 | Fun|ction Na|
|00001c10| 6d 65 3a 20 1b 47 41 4c | 4c 44 49 52 53 1b 48 0d |me: .GAL|LDIRS.H.|
|00001c20| 0a 20 20 20 20 20 20 20 | 20 20 20 41 72 67 75 6d |. | Argum|
|00001c30| 65 6e 74 73 20 20 20 20 | 3a 20 28 1b 34 44 69 72 |ents |: (.4Dir|
|00001c40| 2e 41 72 72 61 79 24 28 | 29 2c 4d 61 78 64 69 72 |.Array$(|),Maxdir|
|00001c50| 73 25 2c 44 72 69 76 65 | 24 2c 45 72 63 64 25 1b |s%,Drive|$,Ercd%.|
|00001c60| 35 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 54 79 |5).. | Ty|
|00001c70| 70 65 20 20 20 20 20 20 | 20 20 20 3a 20 44 4f 53 |pe | : DOS|
|00001c80| 2f 53 79 73 74 65 6d 0d | 0a 20 20 20 20 20 20 20 |/System.|. |
|00001c90| 20 20 20 50 75 72 70 6f | 73 65 20 20 20 20 20 20 | Purpo|se |
|00001ca0| 3a 20 53 65 61 72 63 68 | 65 73 20 20 61 6e 64 20 |: Search|es and |
|00001cb0| 20 72 65 74 75 72 6e 73 | 20 20 61 6c 6c 20 20 6f | returns| all o|
|00001cc0| 66 20 74 68 65 20 64 69 | 72 65 63 74 6f 72 69 65 |f the di|rectorie|
|00001cd0| 73 20 69 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |s in.. | |
|00001ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1b | | .|
|00001cf0| 34 44 72 69 76 65 24 1b | 35 2e 0d 0a 0d 0a 20 20 |4Drive$.|5..... |
|00001d00| 20 20 20 20 20 20 20 20 | 44 65 73 63 72 69 70 74 | |Descript|
|00001d10| 69 6f 6e 20 20 3a 0d 0a | 0d 0a 20 20 20 20 20 20 |ion :..|.. |
|00001d20| 20 20 20 20 1b 34 44 69 | 72 2e 41 72 72 61 79 24 | .4Di|r.Array$|
|00001d30| 28 30 29 1b 35 2c 20 20 | 54 68 69 73 20 69 73 20 |(0).5, |This is |
|00001d40| 77 68 65 72 65 20 74 68 | 65 20 64 69 72 65 63 74 |where th|e direct|
|00001d50| 6f 72 79 20 6e 61 6d 65 | 73 20 66 6f 75 6e 64 20 |ory name|s found |
|00001d60| 20 77 69 6c 6c 20 20 62 | 65 0d 0a 20 20 20 20 20 | will b|e.. |
|00001d70| 20 20 20 20 20 73 61 76 | 65 64 2e 20 20 45 61 63 | sav|ed. Eac|
|00001d80| 68 20 65 6c 65 6d 65 6e | 74 20 69 6e 20 74 68 69 |h elemen|t in thi|
|00001d90| 73 20 4f 4e 45 20 64 69 | 6d 65 6e 73 69 6f 6e 61 |s ONE di|mensiona|
|00001da0| 6c 20 61 72 72 61 79 20 | 6d 75 73 74 20 62 65 20 |l array |must be |
|00001db0| 73 65 74 20 74 6f 0d 0a | 20 20 20 20 20 20 20 20 |set to..| |
|00001dc0| 20 20 73 6f 6d 65 20 6c | 65 6e 67 74 68 2e 20 20 | some l|ength. |
|00001dd0| 41 4c 4c 44 49 52 53 20 | 69 73 20 6e 6f 74 20 76 |ALLDIRS |is not v|
|00001de0| 65 72 79 20 70 69 63 6b | 79 20 61 62 6f 75 74 20 |ery pick|y about |
|00001df0| 74 68 65 20 6d 69 6e 69 | 6d 75 6d 20 20 6c 65 6e |the mini|mum len|
|00001e00| 67 74 68 0d 0a 20 20 20 | 20 20 20 20 20 20 20 62 |gth.. | b|
|00001e10| 75 74 20 20 69 66 20 20 | 69 74 20 20 65 76 65 72 |ut if |it ever|
|00001e20| 20 66 69 6e 64 73 20 61 | 20 64 69 72 65 63 74 6f | finds a| directo|
|00001e30| 72 79 20 70 61 74 68 20 | 74 68 61 74 20 77 69 6c |ry path |that wil|
|00001e40| 6c 20 6e 6f 74 20 66 69 | 74 20 69 6e 20 74 68 65 |l not fi|t in the|
|00001e50| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 73 70 61 63 |.. | spac|
|00001e60| 65 20 70 72 6f 76 69 64 | 65 64 20 69 74 20 77 69 |e provid|ed it wi|
|00001e70| 6c 6c 20 73 74 6f 70 20 | 61 6e 64 20 72 65 74 75 |ll stop |and retu|
|00001e80| 72 6e 20 77 69 74 68 20 | 20 61 6e 20 20 60 6f 75 |rn with | an `ou|
|00001e90| 74 20 20 6f 66 20 20 73 | 74 72 69 6e 67 0d 0a 20 |t of s|tring.. |
|00001ea0| 20 20 20 20 20 20 20 20 | 20 73 70 61 63 65 20 63 | | space c|
|00001eb0| 6f 6e 64 69 74 69 6f 6e | 27 2e 20 20 44 4f 53 20 |ondition|'. DOS |
|00001ec0| 6c 69 6d 69 74 73 20 74 | 68 65 20 6d 61 78 69 6d |limits t|he maxim|
|00001ed0| 75 6d 20 6c 65 6e 67 74 | 68 20 6f 66 20 61 6e 79 |um lengt|h of any|
|00001ee0| 20 64 69 72 65 63 74 6f | 72 79 0d 0a 20 20 20 20 | directo|ry.. |
|00001ef0| 20 20 20 20 20 20 70 61 | 74 68 20 74 6f 20 36 34 | pa|th to 64|
|00001f00| 20 63 68 61 72 61 63 74 | 65 72 73 20 69 6e 63 6c | charact|ers incl|
|00001f10| 75 64 69 6e 67 20 74 68 | 65 20 64 72 69 76 65 20 |uding th|e drive |
|00001f20| 20 73 70 65 63 69 66 69 | 65 72 20 20 28 69 2e 65 | specifi|er (i.e|
|00001f30| 2e 20 20 43 3a 29 2c 0d | 0a 20 20 20 20 20 20 20 |. C:),.|. |
|00001f40| 20 20 20 73 6c 61 73 68 | 65 73 20 20 61 6e 64 20 | slash|es and |
|00001f50| 20 65 6e 64 20 20 6d 61 | 72 6b 65 72 20 28 41 53 | end ma|rker (AS|
|00001f60| 43 49 49 20 30 29 20 53 | 6f 2c 20 20 79 6f 75 20 |CII 0) S|o, you |
|00001f70| 77 69 6c 6c 20 6e 65 76 | 65 72 20 6e 65 65 64 20 |will nev|er need |
|00001f80| 6d 6f 72 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |more.. | |
|00001f90| 74 68 61 6e 20 61 20 73 | 74 72 69 6e 67 20 6c 65 |than a s|tring le|
|00001fa0| 6e 67 74 68 20 6f 66 20 | 36 34 20 63 68 61 72 61 |ngth of |64 chara|
|00001fb0| 63 74 65 72 73 20 70 65 | 72 20 65 6c 65 6d 65 6e |cters pe|r elemen|
|00001fc0| 74 2e 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |t..... | |
|00001fd0| 1b 34 4d 61 78 64 69 72 | 73 25 1b 35 2c 20 20 74 |.4Maxdir|s%.5, t|
|00001fe0| 65 6c 6c 73 20 41 4c 4c | 44 49 52 53 20 74 68 65 |ells ALL|DIRS the|
|00001ff0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 65 6c 65 6d 65 | number |of eleme|
|00002000| 6e 74 73 20 69 6e 20 20 | 44 69 72 2e 41 72 72 61 |nts in |Dir.Arra|
|00002010| 79 24 28 29 2e 0d 0a 20 | 20 20 20 20 20 20 20 20 |y$()... | |
|00002020| 20 49 66 20 20 41 4c 4c | 44 49 52 53 20 20 66 69 | If ALL|DIRS fi|
|00002030| 6e 64 73 20 20 6d 6f 72 | 65 20 20 64 69 72 65 63 |nds mor|e direc|
|00002040| 74 6f 72 69 65 73 20 74 | 68 61 6e 20 73 70 61 63 |tories t|han spac|
|00002050| 65 20 69 73 20 70 72 6f | 76 69 64 65 64 20 74 68 |e is pro|vided th|
|00002060| 65 6e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 41 4c |en.. | AL|
|00002070| 4c 44 49 52 53 20 73 74 | 6f 70 73 20 61 6e 64 20 |LDIRS st|ops and |
|00002080| 72 65 74 75 72 6e 73 20 | 77 69 74 68 20 61 20 60 |returns |with a `|
|00002090| 4f 75 74 20 6f 66 20 73 | 74 72 69 6e 67 20 73 70 |Out of s|tring sp|
|000020a0| 61 63 65 20 63 6f 6e 64 | 69 74 69 6f 6e 27 2e 0d |ace cond|ition'..|
|000020b0| 0a 20 20 20 20 20 20 20 | 20 20 20 55 70 6f 6e 20 |. | Upon |
|000020c0| 72 65 74 75 72 6e 20 66 | 72 6f 6d 20 41 4c 4c 44 |return f|rom ALLD|
|000020d0| 49 52 53 2c 20 20 1b 34 | 4d 61 78 64 69 72 73 25 |IRS, .4|Maxdirs%|
|000020e0| 1b 35 3d 20 74 68 65 20 | 20 6e 75 6d 62 65 72 20 |.5= the | number |
|000020f0| 20 6f 66 20 20 64 69 72 | 65 63 74 6f 72 69 65 73 | of dir|ectories|
|00002100| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 66 6f 75 6e |.. | foun|
|00002110| 64 2e 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |d..... | |
|00002120| 1b 34 44 72 69 76 65 24 | 1b 35 2c 20 20 53 70 65 |.4Drive$|.5, Spe|
|00002130| 63 69 66 79 20 20 64 72 | 69 76 65 20 20 74 6f 20 |cify dr|ive to |
|00002140| 20 73 65 61 72 63 68 2e | 20 20 54 68 65 20 66 69 | search.| The fi|
|00002150| 72 73 74 20 63 68 61 72 | 61 63 74 65 72 20 69 6e |rst char|acter in|
|00002160| 20 74 68 69 73 0d 0a 20 | 20 20 20 20 20 20 20 20 | this.. | |
|00002170| 20 73 74 72 69 6e 67 20 | 6d 75 73 74 20 73 70 65 | string |must spe|
|00002180| 63 69 66 79 20 74 68 65 | 20 64 72 69 76 65 20 6c |cify the| drive l|
|00002190| 65 74 74 65 72 20 20 61 | 6c 6c 20 20 6f 74 68 65 |etter a|ll othe|
|000021a0| 72 20 20 63 68 61 72 61 | 63 74 65 72 73 2c 20 20 |r chara|cters, |
|000021b0| 69 66 0d 0a 20 20 20 20 | 20 20 20 20 20 20 61 6e |if.. | an|
|000021c0| 79 2c 20 20 61 72 65 20 | 69 67 6e 6f 72 65 64 2e |y, are |ignored.|
|000021d0| 20 20 28 41 4c 4c 44 49 | 52 53 20 77 69 6c 6c 20 | (ALLDI|RS will |
|000021e0| 4e 4f 54 20 63 6f 6e 76 | 65 72 74 20 74 68 65 20 |NOT conv|ert the |
|000021f0| 64 72 69 76 65 20 6c 65 | 74 74 65 72 20 74 6f 0d |drive le|tter to.|
|00002200| 0a 20 20 20 20 20 20 20 | 20 20 20 75 70 70 65 72 |. | upper|
|00002210| 20 63 61 73 65 2c 20 79 | 6f 75 20 6d 61 79 20 68 | case, y|ou may h|
|00002220| 61 76 65 20 74 6f 20 64 | 6f 20 69 74 20 73 65 70 |ave to d|o it sep|
|00002230| 61 72 61 74 65 6c 79 20 | 69 66 20 69 74 20 69 73 |arately |if it is|
|00002240| 20 69 6d 70 6f 72 74 61 | 6e 74 2e 29 0d 0a 0d 0a | importa|nt.)....|
|00002250| 20 20 20 20 20 20 20 20 | 20 20 1b 34 45 72 63 64 | | .4Ercd|
|00002260| 25 1b 35 2c 20 20 6c 69 | 6b 65 20 61 6c 6c 20 64 |%.5, li|ke all d|
|00002270| 69 73 6b 20 66 75 6e 63 | 74 69 6f 6e 73 2c 20 20 |isk func|tions, |
|00002280| 65 72 72 6f 72 73 20 6d | 61 79 20 6f 63 63 75 72 |errors m|ay occur|
|00002290| 2e 20 20 49 66 2c 20 20 | 1b 34 45 72 63 64 25 1b |. If, |.4Ercd%.|
|000022a0| 35 3d 30 0d 0a 20 20 20 | 20 20 20 20 20 20 20 74 |5=0.. | t|
|000022b0| 68 65 6e 20 20 65 76 65 | 72 79 74 68 69 6e 67 20 |hen eve|rything |
|000022c0| 69 73 20 6f 2e 6b 2e 20 | 20 41 6e 20 65 72 72 6f |is o.k. | An erro|
|000022d0| 72 20 63 6f 64 65 20 6f | 66 20 2d 31 20 3d 20 44 |r code o|f -1 = D|
|000022e0| 72 69 76 65 20 73 65 6c | 65 63 74 65 64 20 69 73 |rive sel|ected is|
|000022f0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 6e 6f 74 20 |.. | not |
|00002300| 76 61 6c 69 64 2e 20 2d | 32 20 3d 20 4f 75 74 20 |valid. -|2 = Out |
|00002310| 6f 66 20 53 74 72 69 6e | 67 20 73 70 61 63 65 2e |of Strin|g space.|
|00002320| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 20 20 20 20 |........|.... |
|00002330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002340| 20 20 1b 47 2d 2d 2d 20 | 42 41 53 44 4c 58 20 20 | .G--- |BASDLX |
|00002350| 20 56 65 72 73 69 6f 6e | 20 31 2e 34 20 20 20 41 | Version| 1.4 A|
|00002360| 70 72 69 6c 20 31 39 38 | 37 20 2d 2d 2d 1b 48 0d |pril 198|7 ---.H.|
|00002370| 0a 0c 1b 41 48 0a 20 20 | 20 20 20 20 20 20 20 20 |...AH. | |
|00002380| 20 20 20 1b 47 42 41 53 | 44 4c 58 20 28 43 29 20 | .GBAS|DLX (C) |
|00002390| 43 6f 70 79 72 69 67 68 | 74 20 31 39 38 36 2c 31 |Copyrigh|t 1986,1|
|000023a0| 39 38 37 20 42 79 20 47 | 75 73 74 61 76 6f 20 48 |987 By G|ustavo H|
|000023b0| 2e 20 56 65 72 64 75 6e | 20 20 50 61 67 65 20 34 |. Verdun| Page 4|
|000023c0| 1b 48 1b 41 0c 0a 0d 0a | 20 20 20 20 20 20 20 20 |.H.A....| |
|000023d0| 20 20 46 75 6e 63 74 69 | 6f 6e 20 4e 61 6d 65 3a | Functi|on Name:|
|000023e0| 1b 47 1b 48 20 1b 47 41 | 4c 4c 44 49 52 53 1b 48 |.G.H .GA|LLDIRS.H|
|000023f0| 20 28 63 6f 6e 74 69 6e | 75 65 64 29 0d 0a 0d 0a | (contin|ued)....|
|00002400| 20 20 20 20 20 20 20 20 | 20 20 45 78 61 6d 70 6c | | Exampl|
|00002410| 65 3a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 44 69 |e:.. | Di|
|00002420| 6d 20 64 69 72 2e 61 72 | 72 61 79 24 28 35 30 29 |m dir.ar|ray$(50)|
|00002430| 3a 66 6f 72 20 69 3d 30 | 20 74 6f 20 35 30 3a 64 |:for i=0| to 50:d|
|00002440| 69 72 24 28 69 29 3d 73 | 70 61 63 65 24 28 36 34 |ir$(i)=s|pace$(64|
|00002450| 29 3a 6e 65 78 74 3a 64 | 24 3d 22 43 3a 22 0d 0a |):next:d|$="C:"..|
|00002460| 20 20 20 20 20 20 20 20 | 20 20 65 72 63 64 25 3d | | ercd%=|
|00002470| 30 3a 6d 61 78 25 3d 35 | 31 3a 63 61 6c 6c 20 61 |0:max%=5|1:call a|
|00002480| 6c 6c 64 69 72 73 28 64 | 69 72 2e 61 72 72 61 79 |lldirs(d|ir.array|
|00002490| 24 28 30 29 2c 6d 61 78 | 25 2c 64 24 2c 65 72 63 |$(0),max|%,d$,erc|
|000024a0| 64 25 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 69 |d%).. | i|
|000024b0| 66 20 65 72 63 64 25 20 | 74 68 65 6e 20 70 72 69 |f ercd% |then pri|
|000024c0| 6e 74 20 22 45 72 72 6f | 72 20 3a 22 3b 65 72 63 |nt "Erro|r :";erc|
|000024d0| 64 25 0d 0a 20 20 20 20 | 20 20 20 20 20 20 70 72 |d%.. | pr|
|000024e0| 69 6e 74 20 22 44 69 72 | 65 63 74 6f 72 69 65 73 |int "Dir|ectories|
|000024f0| 20 66 6f 75 6e 64 3a 22 | 0d 0a 20 20 20 20 20 20 | found:"|.. |
|00002500| 20 20 20 20 66 6f 72 20 | 69 3d 20 30 20 74 6f 20 | for |i= 0 to |
|00002510| 6d 61 78 25 3a 70 72 69 | 6e 74 20 64 69 72 24 28 |max%:pri|nt dir$(|
|00002520| 69 29 3a 6e 65 78 74 0d | 0a 0d 0a 0d 0a 20 20 20 |i):next.|..... |
|00002530| 20 20 20 20 20 20 20 46 | 75 6e 63 74 69 6f 6e 20 | F|unction |
|00002540| 4e 61 6d 65 3a 20 1b 47 | 42 53 4f 52 54 4e 1b 48 |Name: .G|BSORTN.H|
|00002550| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 41 72 67 75 |.. | Argu|
|00002560| 6d 65 6e 74 73 20 20 20 | 20 3a 20 28 1b 34 4e 75 |ments | : (.4Nu|
|00002570| 6d 5f 6f 66 5f 65 6c 65 | 6d 65 6e 74 73 2c 49 6e |m_of_ele|ments,In|
|00002580| 74 65 67 65 72 5f 61 72 | 72 61 79 25 28 73 74 61 |teger_ar|ray%(sta|
|00002590| 72 74 29 1b 35 29 0d 0a | 20 20 20 20 20 20 20 20 |rt).5)..| |
|000025a0| 20 20 54 79 70 65 20 20 | 20 20 20 20 20 20 20 3a | Type | :|
|000025b0| 20 69 6e 74 65 67 65 72 | 20 61 72 72 61 79 20 73 | integer| array s|
|000025c0| 65 72 76 69 63 65 0d 0a | 20 20 20 20 20 20 20 20 |ervice..| |
|000025d0| 20 20 50 75 72 70 6f 73 | 65 20 20 20 20 20 20 3a | Purpos|e :|
|000025e0| 20 53 6f 72 74 73 20 61 | 6e 20 69 6e 74 65 67 65 | Sorts a|n intege|
|000025f0| 72 20 61 72 72 61 79 20 | 69 6e 20 61 73 63 65 6e |r array |in ascen|
|00002600| 64 69 6e 67 20 6f 72 64 | 65 72 20 77 69 74 68 0d |ding ord|er with.|
|00002610| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002620| 20 20 20 20 20 20 20 20 | 20 20 6e 65 67 61 74 69 | | negati|
|00002630| 76 65 20 6e 75 6d 62 65 | 72 73 20 61 70 70 65 61 |ve numbe|rs appea|
|00002640| 72 69 6e 67 20 61 74 20 | 74 68 65 20 65 6e 64 20 |ring at |the end |
|00002650| 20 69 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | in.. | |
|00002660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 73 | | as|
|00002670| 63 65 6e 64 69 6e 67 20 | 6f 72 64 65 72 2e 0d 0a |cending |order...|
|00002680| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 44 65 73 63 |.. | Desc|
|00002690| 72 69 70 74 69 6f 6e 3a | 0d 0a 20 20 20 20 20 20 |ription:|.. |
|000026a0| 20 20 20 20 49 6e 74 65 | 67 65 72 20 76 61 72 69 | Inte|ger vari|
|000026b0| 61 62 6c 65 73 20 69 6e | 20 42 41 53 49 43 20 63 |ables in| BASIC c|
|000026c0| 61 6e 20 63 6f 6e 74 61 | 69 6e 20 20 6e 75 6d 62 |an conta|in numb|
|000026d0| 65 72 73 20 20 62 65 74 | 77 65 65 6e 20 20 2d 33 |ers bet|ween -3|
|000026e0| 32 2c 37 36 38 0d 0a 20 | 20 20 20 20 20 20 20 20 |2,768.. | |
|000026f0| 20 61 6e 64 20 20 33 32 | 2c 37 36 37 2e 20 20 54 | and 32|,767. T|
|00002700| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 64 6f 65 |his func|tion doe|
|00002710| 73 20 6e 6f 74 20 64 69 | 73 74 69 6e 67 75 69 73 |s not di|stinguis|
|00002720| 68 20 62 65 74 77 65 65 | 6e 20 6e 65 67 61 74 69 |h betwee|n negati|
|00002730| 76 65 0d 0a 20 20 20 20 | 20 20 20 20 20 20 6f 72 |ve.. | or|
|00002740| 20 70 6f 73 69 74 69 76 | 65 20 6e 75 6d 62 65 72 | positiv|e number|
|00002750| 73 2e 20 49 74 20 77 69 | 6c 6c 20 73 6f 72 74 20 |s. It wi|ll sort |
|00002760| 74 68 65 20 65 6c 65 6d | 65 6e 74 73 20 69 6e 20 |the elem|ents in |
|00002770| 61 73 63 65 6e 64 69 6e | 67 20 6f 72 64 65 72 0d |ascendin|g order.|
|00002780| 0a 20 20 20 20 20 20 20 | 20 20 20 77 69 74 68 20 |. | with |
|00002790| 61 6c 6c 20 74 68 65 20 | 6e 65 67 61 74 69 76 65 |all the |negative|
|000027a0| 20 6e 75 6d 62 65 72 73 | 20 28 69 66 20 65 78 69 | numbers| (if exi|
|000027b0| 73 74 69 6e 67 29 20 61 | 70 70 65 61 72 69 6e 67 |sting) a|ppearing|
|000027c0| 20 20 61 66 74 65 72 20 | 20 74 68 65 0d 0a 20 20 | after | the.. |
|000027d0| 20 20 20 20 20 20 20 20 | 70 6f 73 69 74 69 76 65 | |positive|
|000027e0| 20 6e 75 6d 62 65 72 73 | 20 69 6e 20 61 73 63 65 | numbers| in asce|
|000027f0| 6e 64 69 6e 67 20 6f 72 | 64 65 72 2e 20 20 4d 61 |nding or|der. Ma|
|00002800| 6b 65 20 73 75 72 65 20 | 74 68 61 74 20 74 68 65 |ke sure |that the|
|00002810| 20 61 72 72 61 79 20 69 | 73 0d 0a 20 20 20 20 20 | array i|s.. |
|00002820| 20 20 20 20 20 6f 66 20 | 74 79 70 65 20 69 6e 74 | of |type int|
|00002830| 65 67 65 72 2e 20 55 6e | 70 72 65 64 69 63 74 61 |eger. Un|predicta|
|00002840| 62 6c 65 20 72 65 73 75 | 6c 74 73 20 6d 61 79 20 |ble resu|lts may |
|00002850| 6f 63 63 75 72 20 69 66 | 20 6e 6f 74 21 0d 0a 0d |occur if| not!...|
|00002860| 0a 20 20 20 20 20 20 20 | 20 20 20 45 78 61 6d 70 |. | Examp|
|00002870| 6c 65 3a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 64 |le:.. | d|
|00002880| 69 6d 20 61 25 28 33 30 | 30 29 3a 70 72 69 6e 74 |im a%(30|0):print|
|00002890| 20 22 41 72 72 61 79 20 | 42 65 66 6f 72 65 20 73 | "Array |Before s|
|000028a0| 6f 72 74 3a 22 0d 0a 20 | 20 20 20 20 20 20 20 20 |ort:".. | |
|000028b0| 20 66 6f 72 20 69 25 3d | 30 20 74 6f 20 33 30 30 | for i%=|0 to 300|
|000028c0| 3a 61 25 28 69 25 29 3d | 69 6e 74 28 72 6e 64 28 |:a%(i%)=|int(rnd(|
|000028d0| 31 29 2a 33 30 30 30 30 | 29 3a 70 72 69 6e 74 20 |1)*30000|):print |
|000028e0| 61 25 28 69 25 29 2c 3a | 6e 65 78 74 0d 0a 20 20 |a%(i%),:|next.. |
|000028f0| 20 20 20 20 20 20 20 20 | 65 6e 75 6d 25 3d 33 30 | |enum%=30|
|00002900| 31 3a 63 61 6c 6c 20 62 | 73 6f 72 74 6e 28 65 6e |1:call b|sortn(en|
|00002910| 75 6d 25 2c 61 25 28 30 | 29 29 0d 0a 20 20 20 20 |um%,a%(0|)).. |
|00002920| 20 20 20 20 20 20 72 65 | 6d 20 65 6e 75 6d 25 3d | re|m enum%=|
|00002930| 33 30 31 20 62 65 63 61 | 75 73 65 20 74 68 65 72 |301 beca|use ther|
|00002940| 65 20 61 72 65 20 33 30 | 31 20 65 6c 65 6d 65 6e |e are 30|1 elemen|
|00002950| 74 73 20 69 6e 20 74 68 | 65 20 61 72 72 61 79 20 |ts in th|e array |
|00002960| 28 30 2d 33 30 30 29 0d | 0a 20 20 20 20 20 20 20 |(0-300).|. |
|00002970| 20 20 20 70 72 69 6e 74 | 20 22 41 72 72 61 79 20 | print| "Array |
|00002980| 41 66 74 65 72 20 73 6f | 72 74 3a 22 3a 66 6f 72 |After so|rt:":for|
|00002990| 20 69 25 3d 30 20 74 6f | 20 33 30 30 3a 70 72 69 | i%=0 to| 300:pri|
|000029a0| 6e 74 20 61 25 28 69 25 | 29 2c 3a 6e 65 78 74 0d |nt a%(i%|),:next.|
|000029b0| 0a 20 20 20 20 20 20 20 | 20 20 20 72 65 6d 20 74 |. | rem t|
|000029c0| 68 65 20 6c 69 73 74 20 | 73 68 6f 75 6c 64 20 62 |he list |should b|
|000029d0| 65 20 73 6f 72 74 65 64 | 20 69 6e 20 61 73 63 65 |e sorted| in asce|
|000029e0| 6e 64 69 6e 67 20 6e 75 | 6d 65 72 69 63 61 6c 20 |nding nu|merical |
|000029f0| 6f 72 64 65 72 21 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |order!..|........|
|00002a00| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |........|........|
|00002a10| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 20 20 |........|...... |
|00002a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002a30| 20 20 20 20 1b 47 2d 2d | 2d 20 42 41 53 44 4c 58 | .G--|- BASDLX|
|00002a40| 20 20 20 56 65 72 73 69 | 6f 6e 20 31 2e 34 20 20 | Versi|on 1.4 |
|00002a50| 20 41 70 72 69 6c 20 31 | 39 38 37 20 2d 2d 2d 1b | April 1|987 ---.|
|00002a60| 48 0d 0a 0c 1b 41 48 0a | 20 20 20 20 20 20 20 20 |H....AH.| |
|00002a70| 20 20 20 20 20 1b 47 42 | 41 53 44 4c 58 20 28 43 | .GB|ASDLX (C|
|00002a80| 29 20 43 6f 70 79 72 69 | 67 68 74 20 31 39 38 36 |) Copyri|ght 1986|
|00002a90| 2c 31 39 38 37 20 42 79 | 20 47 75 73 74 61 76 6f |,1987 By| Gustavo|
|00002aa0| 20 48 2e 20 56 65 72 64 | 75 6e 20 20 50 61 67 65 | H. Verd|un Page|
|00002ab0| 20 35 1b 48 1b 41 0c 0a | 0d 0a 20 20 20 20 20 20 | 5.H.A..|.. |
|00002ac0| 20 20 20 20 46 75 6e 63 | 74 69 6f 6e 20 4e 61 6d | Func|tion Nam|
|00002ad0| 65 3a 20 1b 47 42 53 4f | 52 54 53 1b 48 0d 0a 20 |e: .GBSO|RTS.H.. |
|00002ae0| 20 20 20 20 20 20 20 20 | 20 41 72 67 75 6d 65 6e | | Argumen|
|00002af0| 74 73 20 20 20 20 3a 20 | 28 1b 34 4e 75 6d 5f 6f |ts : |(.4Num_o|
|00002b00| 66 5f 65 6c 65 6d 65 6e | 74 73 25 2c 41 72 72 61 |f_elemen|ts%,Arra|
|00002b10| 79 24 28 73 74 61 72 74 | 5f 70 6f 73 69 74 69 6f |y$(start|_positio|
|00002b20| 6e 29 1b 35 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |n).5).. | |
|00002b30| 20 54 79 70 65 20 20 20 | 20 20 20 20 20 20 3a 20 | Type | : |
|00002b40| 53 74 72 69 6e 67 20 61 | 72 72 61 79 20 73 65 72 |String a|rray ser|
|00002b50| 76 69 63 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |vice.. | |
|00002b60| 50 75 72 70 6f 73 65 20 | 20 20 20 20 20 3a 20 53 |Purpose | : S|
|00002b70| 6f 72 74 73 20 61 20 73 | 74 72 69 6e 67 20 61 72 |orts a s|tring ar|
|00002b80| 72 61 79 20 69 6e 20 61 | 73 63 65 6e 64 69 6e 67 |ray in a|scending|
|00002b90| 20 61 6c 70 68 61 62 65 | 74 69 63 61 6c 0d 0a 20 | alphabe|tical.. |
|00002ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002bb0| 20 20 20 20 20 20 20 20 | 6f 72 64 65 72 2e 0d 0a | |order...|
|00002bc0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 44 65 73 63 |.. | Desc|
|00002bd0| 72 69 70 74 69 6f 6e 3a | 0d 0a 20 20 20 20 20 20 |ription:|.. |
|00002be0| 20 20 20 20 54 68 65 20 | 66 69 72 73 74 20 61 72 | The |first ar|
|00002bf0| 67 75 6d 65 6e 74 20 73 | 68 6f 75 6c 64 20 63 6f |gument s|hould co|
|00002c00| 6e 74 61 69 6e 20 74 68 | 65 20 6e 75 6d 62 65 72 |ntain th|e number|
|00002c10| 20 6f 66 20 65 6c 65 6d | 65 6e 74 73 20 74 6f 20 | of elem|ents to |
|00002c20| 20 73 6f 72 74 0d 0a 20 | 20 20 20 20 20 20 20 20 | sort.. | |
|00002c30| 20 69 6e 20 74 68 65 20 | 61 72 72 61 79 2e 20 54 | in the |array. T|
|00002c40| 68 65 20 73 65 63 6f 6e | 64 20 61 72 67 75 6d 65 |he secon|d argume|
|00002c50| 6e 74 20 69 73 20 74 68 | 65 20 61 72 72 61 79 20 |nt is th|e array |
|00002c60| 69 74 73 65 6c 66 2e 20 | 62 65 20 73 75 72 65 20 |itself. |be sure |
|00002c70| 74 6f 0d 0a 20 20 20 20 | 20 20 20 20 20 20 73 70 |to.. | sp|
|00002c80| 65 63 69 66 79 20 20 20 | 20 74 68 65 20 20 20 20 |ecify | the |
|00002c90| 73 74 61 72 74 69 6e 67 | 20 20 20 20 70 6f 73 69 |starting| posi|
|00002ca0| 74 69 6f 6e 20 20 20 69 | 6e 20 20 20 74 68 65 20 |tion i|n the |
|00002cb0| 20 20 61 72 72 61 79 20 | 20 20 5b 69 2e 65 2e 0d | array | [i.e..|
|00002cc0| 0a 20 20 20 20 20 20 20 | 20 20 20 42 53 4f 52 54 |. | BSORT|
|00002cd0| 53 28 65 6c 65 6d 65 6e | 74 73 25 2c 61 24 28 30 |S(elemen|ts%,a$(0|
|00002ce0| 29 29 5d 0d 0a 20 20 20 | 20 20 20 20 20 20 20 49 |))].. | I|
|00002cf0| 4d 50 4f 52 54 41 4e 54 | 3a 20 41 6c 6c 20 6f 66 |MPORTANT|: All of|
|00002d00| 20 74 68 65 20 65 6c 65 | 6d 65 6e 74 73 20 20 69 | the ele|ments i|
|00002d10| 6e 20 20 74 68 65 20 20 | 61 72 72 61 79 20 20 4d |n the |array M|
|00002d20| 55 53 54 20 20 68 61 76 | 65 20 20 65 71 75 61 6c |UST hav|e equal|
|00002d30| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 6c 65 6e 67 |.. | leng|
|00002d40| 74 68 73 2c 20 69 66 20 | 6e 6f 74 2c 20 75 6e 70 |ths, if |not, unp|
|00002d50| 72 65 64 69 63 74 61 62 | 6c 65 20 72 65 73 75 6c |redictab|le resul|
|00002d60| 74 73 20 77 69 6c 6c 20 | 6f 63 63 75 72 20 74 6f |ts will |occur to|
|00002d70| 20 42 41 53 49 43 0d 0a | 0d 0a 20 20 20 20 20 20 | BASIC..|.. |
|00002d80| 20 20 20 20 45 78 61 6d | 70 6c 65 3a 0d 0a 20 20 | Exam|ple:.. |
|00002d90| 20 20 20 20 20 20 20 20 | 64 69 6d 20 61 24 28 31 | |dim a$(1|
|00002da0| 30 29 3a 61 24 28 30 29 | 22 46 69 72 73 74 22 3a |0):a$(0)|"First":|
|00002db0| 61 24 28 31 29 3d 22 53 | 65 63 6f 6e 64 22 3a 61 |a$(1)="S|econd":a|
|00002dc0| 24 28 32 29 3d 22 54 68 | 69 72 64 22 0d 0a 20 20 |$(2)="Th|ird".. |
|00002dd0| 20 20 20 20 20 20 20 20 | 61 24 28 33 29 3d 22 46 | |a$(3)="F|
|00002de0| 6f 75 72 74 68 22 3a 61 | 24 28 34 29 3d 22 46 69 |ourth":a|$(4)="Fi|
|00002df0| 66 74 68 22 3a 61 24 28 | 35 29 3d 22 53 69 78 74 |fth":a$(|5)="Sixt|
|00002e00| 68 22 3a 61 24 28 36 29 | 3d 22 53 65 76 65 6e 74 |h":a$(6)|="Sevent|
|00002e10| 68 22 0d 0a 20 20 20 20 | 20 20 20 20 20 20 61 24 |h".. | a$|
|00002e20| 28 37 29 3d 22 45 69 67 | 68 74 68 22 3a 61 24 28 |(7)="Eig|hth":a$(|
|00002e30| 38 29 3d 22 4e 69 6e 74 | 68 22 3a 61 24 28 39 29 |8)="Nint|h":a$(9)|
|00002e40| 3d 22 54 65 6e 74 68 22 | 0d 0a 20 20 20 20 20 20 |="Tenth"|.. |
|00002e50| 20 20 20 20 66 6f 72 20 | 69 25 3d 30 20 74 6f 20 | for |i%=0 to |
|00002e60| 39 3a 62 24 3d 73 70 61 | 63 65 24 28 31 30 29 3a |9:b$=spa|ce$(10):|
|00002e70| 63 61 6c 6c 20 73 65 74 | 6c 28 61 24 28 69 25 29 |call set|l(a$(i%)|
|00002e80| 2c 62 24 29 3a 61 24 28 | 69 25 29 3d 62 24 3a 6e |,b$):a$(|i%)=b$:n|
|00002e90| 65 78 74 0d 0a 20 20 20 | 20 20 20 20 20 20 20 72 |ext.. | r|
|00002ea0| 65 6d 20 74 68 65 20 61 | 62 6f 76 65 20 6c 69 6e |em the a|bove lin|
|00002eb0| 65 20 77 69 6c 6c 20 6d | 61 6b 65 20 61 6c 6c 20 |e will m|ake all |
|00002ec0| 6f 66 20 74 68 65 20 65 | 6c 65 6d 65 6e 74 73 20 |of the e|lements |
|00002ed0| 69 6e 20 74 68 65 20 61 | 72 72 61 79 0d 0a 20 20 |in the a|rray.. |
|00002ee0| 20 20 20 20 20 20 20 20 | 72 65 6d 20 68 61 76 65 | |rem have|
|00002ef0| 20 65 71 75 61 6c 20 6c | 65 6e 67 74 68 73 2e 0d | equal l|engths..|
|00002f00| 0a 20 20 20 20 20 20 20 | 20 20 20 70 72 69 6e 74 |. | print|
|00002f10| 20 22 41 72 72 61 79 20 | 62 65 66 6f 72 65 20 73 | "Array |before s|
|00002f20| 6f 72 74 3a 22 3a 66 6f | 72 20 69 25 3d 30 20 74 |ort:":fo|r i%=0 t|
|00002f30| 6f 20 39 3a 70 72 69 6e | 74 20 61 24 28 69 25 29 |o 9:prin|t a$(i%)|
|00002f40| 3a 6e 65 78 74 0d 0a 20 | 20 20 20 20 20 20 20 20 |:next.. | |
|00002f50| 20 65 6e 75 6d 25 3d 31 | 30 3a 63 61 6c 6c 20 62 | enum%=1|0:call b|
|00002f60| 73 6f 72 74 73 28 65 6e | 75 6d 25 2c 61 24 28 30 |sorts(en|um%,a$(0|
|00002f70| 29 29 0d 0a 20 20 20 20 | 20 20 20 20 20 20 72 65 |)).. | re|
|00002f80| 6d 20 20 65 6e 75 6d 25 | 3d 31 30 20 20 62 65 63 |m enum%|=10 bec|
|00002f90| 61 75 73 65 20 20 74 68 | 65 72 65 20 20 61 72 65 |ause th|ere are|
|00002fa0| 20 31 30 20 65 6c 65 6d | 65 6e 74 73 20 69 6e 20 | 10 elem|ents in |
|00002fb0| 74 68 65 20 61 72 72 61 | 79 20 28 30 2d 39 29 0d |the arra|y (0-9).|
|00002fc0| 0a 20 20 20 20 20 20 20 | 20 20 20 70 72 69 6e 74 |. | print|
|00002fd0| 20 22 41 72 72 61 79 20 | 41 66 74 65 72 20 73 6f | "Array |After so|
|00002fe0| 72 74 3a 22 3a 66 6f 72 | 20 69 25 3d 30 20 74 6f |rt:":for| i%=0 to|
|00002ff0| 20 39 3a 70 72 69 6e 74 | 20 61 24 28 69 25 29 3a | 9:print| a$(i%):|
|00003000| 6e 65 78 74 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |next.. | |
|00003010| 72 65 6d 20 74 68 65 20 | 6c 69 73 74 20 73 68 6f |rem the |list sho|
|00003020| 75 6c 64 20 62 65 20 73 | 6f 72 74 65 64 20 69 6e |uld be s|orted in|
|00003030| 20 61 73 63 65 6e 64 69 | 6e 67 20 61 6c 70 68 61 | ascendi|ng alpha|
|00003040| 62 65 74 69 63 61 6c 20 | 6f 72 64 65 72 21 0d 0a |betical |order!..|
|00003050| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 46 75 6e 63 |.. | Func|
|00003060| 74 69 6f 6e 20 4e 61 6d | 65 3a 1b 47 20 43 4e 46 |tion Nam|e:.G CNF|
|00003070| 47 53 44 1b 48 0d 0a 20 | 20 20 20 20 20 20 20 20 |GSD.H.. | |
|00003080| 20 41 72 67 75 6d 65 6e | 74 73 20 20 20 20 3a 20 | Argumen|ts : |
|00003090| 28 5b 1b 34 6f 76 65 72 | 77 72 69 74 65 25 1b 35 |([.4over|write%.5|
|000030a0| 5d 2c 5b 1b 34 69 6e 73 | 65 72 74 25 1b 35 5d 2c |],[.4ins|ert%.5],|
|000030b0| 5b 1b 34 66 72 61 6d 65 | 25 1b 35 5d 2c 5b 1b 34 |[.4frame|%.5],[.4|
|000030c0| 74 61 62 25 1b 35 5d 29 | 0d 0a 20 20 20 20 20 20 |tab%.5])|.. |
|000030d0| 20 20 20 20 54 79 70 65 | 20 20 20 20 20 20 20 20 | Type| |
|000030e0| 20 3a 20 43 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e | : Confi|guration|
|000030f0| 20 66 6f 72 20 47 45 54 | 53 54 52 44 0d 0a 20 20 | for GET|STRD.. |
|00003100| 20 20 20 20 20 20 20 20 | 50 75 72 70 6f 73 65 20 | |Purpose |
|00003110| 20 20 20 20 20 3a 20 43 | 68 61 6e 67 65 20 64 65 | : C|hange de|
|00003120| 66 61 75 6c 74 20 73 65 | 74 74 69 6e 67 73 20 66 |fault se|ttings f|
|00003130| 6f 72 20 47 45 54 53 54 | 52 44 2e 0d 0a 0d 0a 20 |or GETST|RD..... |
|00003140| 20 20 20 20 20 20 20 20 | 20 44 65 73 63 72 69 70 | | Descrip|
|00003150| 74 69 6f 6e 20 20 3a 0d | 0a 20 20 20 20 20 20 20 |tion :.|. |
|00003160| 20 20 20 5b 1b 34 4f 76 | 65 72 77 72 69 74 65 25 | [.4Ov|erwrite%|
|00003170| 1b 35 5d 20 26 20 5b 1b | 34 49 6e 73 65 72 74 25 |.5] & [.|4Insert%|
|00003180| 1b 35 5d 2c 20 20 28 44 | 65 66 61 75 6c 74 20 69 |.5], (D|efault i|
|00003190| 73 20 46 75 6c 6c 20 26 | 20 20 48 61 6c 66 20 20 |s Full &| Half |
|000031a0| 73 69 7a 65 20 20 63 75 | 72 73 6f 72 0d 0a 20 20 |size cu|rsor.. |
|000031b0| 20 20 20 20 20 20 20 20 | 72 65 73 70 65 63 74 69 | |respecti|
|000031c0| 76 65 6c 79 29 20 54 68 | 65 73 65 20 74 77 6f 20 |vely) Th|ese two |
|000031d0| 61 72 67 75 6d 65 6e 74 | 73 20 63 6f 6e 74 61 69 |argument|s contai|
|000031e0| 6e 20 74 68 65 20 63 75 | 72 73 6f 72 20 73 68 61 |n the cu|rsor sha|
|000031f0| 70 65 73 20 20 74 68 61 | 74 0d 0a 20 20 20 20 20 |pes tha|t.. |
|00003200| 20 20 20 20 20 69 6e 64 | 69 63 61 74 65 20 20 69 | ind|icate i|
|00003210| 66 20 6f 76 65 72 77 72 | 69 74 65 20 6f 72 20 69 |f overwr|ite or i|
|00003220| 6e 73 65 72 74 20 20 69 | 73 20 61 63 74 69 76 65 |nsert i|s active|
|00003230| 2e 20 20 54 68 65 20 66 | 6f 72 6d 75 6c 61 20 66 |. The f|ormula f|
|00003240| 6f 72 20 74 68 65 0d 0a | 20 20 20 20 20 20 20 20 |or the..| |
|00003250| 20 20 76 61 6c 75 65 73 | 20 74 68 61 74 20 6d 75 | values| that mu|
|00003260| 73 74 20 62 65 20 73 74 | 6f 72 65 64 20 69 6e 20 |st be st|ored in |
|00003270| 74 68 65 73 65 20 74 77 | 6f 20 61 72 67 75 6d 65 |these tw|o argume|
|00003280| 6e 74 73 20 69 73 20 61 | 73 20 20 66 6f 6c 6c 6f |nts is a|s follo|
|00003290| 77 73 3a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 3d |ws:.. | =|
|000032a0| 28 1b 34 53 54 41 52 54 | 1b 35 20 20 61 6e 64 20 |(.4START|.5 and |
|000032b0| 33 31 29 2a 32 35 36 2b | 1b 34 53 54 4f 50 1b 35 |31)*256+|.4STOP.5|
|000032c0| 20 20 20 57 68 65 72 65 | 20 1b 34 53 54 41 52 54 | Where| .4START|
|000032d0| 1b 35 20 26 20 1b 34 53 | 54 4f 50 1b 35 20 61 72 |.5 & .4S|TOP.5 ar|
|000032e0| 65 20 74 68 65 20 76 61 | 6c 75 65 73 20 66 6f 72 |e the va|lues for|
|000032f0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 63 75 72 73 |.. | curs|
|00003300| 6f 72 20 73 74 61 72 74 | 20 26 20 73 74 6f 70 20 |or start| & stop |
|00003310| 73 63 61 6e 20 6c 69 6e | 65 73 20 77 68 69 63 68 |scan lin|es which|
|00003320| 20 6d 75 73 74 20 62 65 | 20 69 6e 20 74 68 65 20 | must be| in the |
|00003330| 72 61 6e 67 65 20 20 6f | 66 20 20 30 2d 0d 0a 20 |range o|f 0-.. |
|00003340| 20 20 20 20 20 20 20 20 | 20 33 31 2e 20 20 28 53 | | 31. (S|
|00003350| 65 65 20 74 68 65 20 42 | 41 53 49 43 20 4c 4f 43 |ee the B|ASIC LOC|
|00003360| 41 54 45 20 63 6f 6d 6d | 61 6e 64 20 66 6f 72 20 |ATE comm|and for |
|00003370| 6d 6f 72 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |more inf|ormation|
|00003380| 20 6f 6e 20 63 75 72 73 | 6f 72 0d 0a 20 20 20 20 | on curs|or.. |
|00003390| 20 20 20 20 20 20 73 68 | 61 70 65 73 2e 29 20 4e | sh|apes.) N|
|000033a0| 4f 54 45 3a 20 61 20 76 | 61 6c 75 65 20 6f 66 20 |OTE: a v|alue of |
|000033b0| 7a 65 72 6f 20 66 6f 72 | 20 20 74 68 65 73 65 20 |zero for| these |
|000033c0| 20 6f 70 74 69 6f 6e 73 | 20 20 6c 65 61 76 65 73 | options| leaves|
|000033d0| 20 20 74 68 65 69 72 0d | 0a 20 20 20 20 20 20 20 | their.|. |
|000033e0| 20 20 20 63 75 72 72 65 | 6e 74 20 64 65 66 61 75 | curre|nt defau|
|000033f0| 6c 74 73 20 69 6e 20 65 | 66 66 65 63 74 2e 0d 0a |lts in e|ffect...|
|00003400| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 5b 1b 34 46 |.. | [.4F|
|00003410| 72 61 6d 65 25 1b 35 5d | 2c 20 20 28 44 65 66 61 |rame%.5]|, (Defa|
|00003420| 75 6c 74 20 20 41 53 43 | 49 49 20 20 39 35 29 20 |ult ASC|II 95) |
|00003430| 20 54 68 69 73 20 61 72 | 67 75 6d 65 6e 74 20 63 | This ar|gument c|
|00003440| 6f 6e 74 61 69 6e 73 20 | 74 68 65 20 41 53 43 49 |ontains |the ASCI|
|00003450| 49 0d 0a 20 20 20 20 20 | 20 20 20 20 20 63 6f 64 |I.. | cod|
|00003460| 65 20 66 6f 72 20 74 68 | 65 20 66 72 61 6d 65 20 |e for th|e frame |
|00003470| 63 68 61 72 61 63 74 65 | 72 2e 20 20 47 45 54 53 |characte|r. GETS|
|00003480| 54 52 44 20 64 72 61 77 | 73 20 61 20 6f 6e 65 20 |TRD draw|s a one |
|00003490| 6c 69 6e 65 20 66 72 61 | 6d 65 20 20 6f 66 0d 0a |line fra|me of..|
|000034a0| 20 20 20 20 20 20 20 20 | 20 20 74 68 65 20 20 6c | | the l|
|000034b0| 65 6e 67 74 68 20 6f 66 | 20 1b 34 53 74 72 69 6e |ength of| .4Strin|
|000034c0| 67 24 1b 35 20 74 6f 20 | 6c 65 74 20 79 6f 75 20 |g$.5 to |let you |
|000034d0| 73 65 65 20 74 68 65 20 | 66 69 65 6c 64 20 73 69 |see the |field si|
|000034e0| 7a 65 2e 20 20 41 20 76 | 61 6c 75 65 20 6f 66 0d |ze. A v|alue of.|
|000034f0| 0a 20 20 20 20 20 20 20 | 20 20 20 7a 65 72 6f 20 |. | zero |
|00003500| 66 6f 72 20 74 68 69 73 | 20 6f 70 74 69 6f 6e 20 |for this| option |
|00003510| 6c 65 61 76 65 73 20 69 | 74 73 20 63 75 72 72 65 |leaves i|ts curre|
|00003520| 6e 74 20 64 65 66 61 75 | 6c 74 20 69 6e 20 65 66 |nt defau|lt in ef|
|00003530| 66 65 63 74 2e 0d 0a 0d | 0a 0d 0a 0d 0a 0d 0a 20 |fect....|....... |
|00003540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003550| 20 20 20 20 20 1b 47 2d | 2d 2d 20 42 41 53 44 4c | .G-|-- BASDL|
|00003560| 58 20 20 20 56 65 72 73 | 69 6f 6e 20 31 2e 34 20 |X Vers|ion 1.4 |
|00003570| 20 20 41 70 72 69 6c 20 | 31 39 38 37 20 2d 2d 2d | April |1987 ---|
|00003580| 1b 48 0d 0a 0c 1b 41 48 | 0a 20 20 20 20 20 20 20 |.H....AH|. |
|00003590| 20 20 20 20 20 20 1b 47 | 42 41 53 44 4c 58 20 28 | .G|BASDLX (|
|000035a0| 43 29 20 43 6f 70 79 72 | 69 67 68 74 20 31 39 38 |C) Copyr|ight 198|
|000035b0| 36 2c 31 39 38 37 20 42 | 79 20 47 75 73 74 61 76 |6,1987 B|y Gustav|
|000035c0| 6f 20 48 2e 20 56 65 72 | 64 75 6e 20 20 50 61 67 |o H. Ver|dun Pag|
|000035d0| 65 20 36 1b 48 1b 41 0c | 0a 0d 0a 20 20 20 20 20 |e 6.H.A.|... |
|000035e0| 20 20 20 20 20 46 75 6e | 63 74 69 6f 6e 20 4e 61 | Fun|ction Na|
|000035f0| 6d 65 3a 20 1b 47 43 4e | 46 47 53 44 1b 48 20 28 |me: .GCN|FGSD.H (|
|00003600| 43 6f 6e 74 69 6e 75 65 | 64 29 0d 0a 0d 0a 20 20 |Continue|d).... |
|00003610| 20 20 20 20 20 20 20 20 | 5b 1b 34 54 61 62 25 1b | |[.4Tab%.|
|00003620| 35 5d 2c 20 20 28 44 65 | 66 61 75 6c 74 20 31 29 |5], (De|fault 1)|
|00003630| 20 4e 75 6d 62 65 72 20 | 6f 66 20 73 70 61 63 65 | Number |of space|
|00003640| 73 20 74 6f 20 69 6e 73 | 65 72 74 20 66 6f 72 20 |s to ins|ert for |
|00003650| 61 20 5b 54 41 42 5d 20 | 20 6b 65 79 2e 0d 0a 20 |a [TAB] | key... |
|00003660| 20 20 20 20 20 20 20 20 | 20 56 61 6c 69 64 20 6e | | Valid n|
|00003670| 75 6d 62 65 72 20 69 73 | 20 69 6e 20 74 68 65 20 |umber is| in the |
|00003680| 72 61 6e 67 65 20 6f 66 | 20 30 2d 31 30 2e 20 41 |range of| 0-10. A|
|00003690| 20 76 61 6c 75 65 20 61 | 62 6f 76 65 20 31 30 20 | value a|bove 10 |
|000036a0| 6c 65 61 76 65 73 20 74 | 68 65 0d 0a 20 20 20 20 |leaves t|he.. |
|000036b0| 20 20 20 20 20 20 63 75 | 72 72 65 6e 74 20 64 65 | cu|rrent de|
|000036c0| 66 61 75 6c 74 20 75 6e | 63 68 61 6e 67 65 64 2e |fault un|changed.|
|000036d0| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 45 78 |.... | Ex|
|000036e0| 61 6d 70 6c 65 3a 0d 0a | 20 20 20 20 20 20 20 20 |ample:..| |
|000036f0| 20 20 6f 63 25 3d 28 30 | 20 61 6e 64 20 33 31 29 | oc%=(0| and 31)|
|00003700| 2a 32 35 36 2b 37 3a 69 | 63 25 3d 28 35 20 61 6e |*256+7:i|c%=(5 an|
|00003710| 64 20 33 31 29 2a 32 35 | 36 2b 37 20 27 72 65 6d |d 31)*25|6+7 'rem|
|00003720| 20 74 68 69 73 20 69 73 | 20 68 65 72 65 20 74 6f | this is| here to|
|00003730| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 27 72 65 6d |.. | 'rem|
|00003740| 20 73 68 6f 77 20 74 68 | 65 20 76 61 6c 75 65 73 | show th|e values|
|00003750| 20 6f 66 20 74 68 65 20 | 64 65 66 61 75 6c 74 20 | of the |default |
|00003760| 63 75 72 73 6f 72 73 2e | 0d 0a 20 20 20 20 20 20 |cursors.|.. |
|00003770| 20 20 20 20 69 63 25 3d | 30 3a 6f 63 25 3d 3a 66 | ic%=|0:oc%=:f|
|00003780| 72 61 6d 65 25 3d 31 37 | 37 3a 74 61 62 25 3d 30 |rame%=17|7:tab%=0|
|00003790| 3a 63 61 6c 6c 20 63 6e | 66 67 73 64 28 69 63 25 |:call cn|fgsd(ic%|
|000037a0| 2c 6f 63 25 2c 66 72 61 | 6d 65 25 2c 74 61 62 25 |,oc%,fra|me%,tab%|
|000037b0| 29 0d 0a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 2d |).... | -|
|000037c0| 49 6e 20 74 68 69 73 20 | 65 78 61 6d 70 6c 65 3a |In this |example:|
|000037d0| 20 49 6e 73 65 72 74 20 | 26 20 6f 76 65 72 77 72 | Insert |& overwr|
|000037e0| 69 74 65 20 63 75 72 73 | 6f 72 20 76 61 6c 75 65 |ite curs|or value|
|000037f0| 73 20 61 72 65 20 75 6e | 63 68 61 6e 67 65 64 2e |s are un|changed.|
|00003800| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 46 72 61 6d |.. | Fram|
|00003810| 65 20 20 63 68 61 72 61 | 63 74 65 72 20 20 69 73 |e chara|cter is|
|00003820| 20 20 73 65 74 20 20 74 | 6f 20 41 53 43 49 49 20 | set t|o ASCII |
|00003830| 31 37 37 2e 20 20 5b 54 | 41 42 5d 20 6b 65 79 20 |177. [T|AB] key |
|00003840| 77 69 6c 6c 20 69 6e 73 | 65 72 74 20 30 0d 0a 20 |will ins|ert 0.. |
|00003850| 20 20 20 20 20 20 20 20 | 20 73 70 61 63 65 73 20 | | spaces |
|00003860| 69 6e 20 73 74 72 69 6e | 67 20 28 64 69 73 61 62 |in strin|g (disab|
|00003870| 6c 65 73 20 5b 54 41 42 | 5d 20 6b 65 79 29 2e 20 |les [TAB|] key). |
|00003880| 20 4e 4f 54 45 3a 20 49 | 66 20 41 53 43 49 49 20 | NOTE: I|f ASCII |
|00003890| 33 32 20 28 73 70 61 63 | 65 29 0d 0a 20 20 20 20 |32 (spac|e).. |
|000038a0| 20 20 20 20 20 20 69 73 | 20 6e 6f 74 20 61 20 76 | is| not a v|
|000038b0| 61 6c 69 64 20 6b 65 79 | 20 69 6e 20 47 45 54 53 |alid key| in GETS|
|000038c0| 54 52 44 20 74 68 65 6e | 20 5b 54 41 42 5d 20 64 |TRD then| [TAB] d|
|000038d0| 6f 65 73 20 6e 6f 74 68 | 69 6e 67 2e 0d 0a 0d 0a |oes noth|ing.....|
|000038e0| 20 20 20 20 20 20 20 20 | 20 20 46 75 6e 63 74 69 | | Functi|
|000038f0| 6f 6e 20 4e 61 6d 65 3a | 20 1b 47 44 41 54 45 53 |on Name:| .GDATES|
|00003900| 54 52 1b 48 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |TR.H.. | |
|00003910| 41 72 67 75 6d 65 6e 74 | 73 20 20 20 20 3a 20 28 |Argument|s : (|
|00003920| 1b 34 53 74 72 69 6e 67 | 5f 73 70 61 63 65 24 2c |.4String|_space$,|
|00003930| 4c 65 6e 67 74 68 25 2c | 6d 6f 64 65 25 1b 35 29 |Length%,|mode%.5)|
|00003940| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 54 79 70 65 |.. | Type|
|00003950| 20 20 20 20 20 20 20 20 | 20 3a 20 44 61 74 65 20 | | : Date |
|00003960| 73 75 70 70 6f 72 74 0d | 0a 20 20 20 20 20 20 20 |support.|. |
|00003970| 20 20 20 50 75 72 70 6f | 73 65 20 20 20 20 20 20 | Purpo|se |
|00003980| 3a 20 52 65 61 64 73 20 | 20 74 68 65 20 20 64 61 |: Reads | the da|
|00003990| 74 65 20 61 6e 64 20 77 | 72 69 74 65 73 20 1b 34 |te and w|rites .4|
|000039a0| 73 74 72 69 6e 67 5f 73 | 70 61 63 65 24 1b 35 20 |string_s|pace$.5 |
|000039b0| 77 69 74 68 20 74 68 65 | 0d 0a 20 20 20 20 20 20 |with the|.. |
|000039c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000039d0| 20 20 20 64 61 74 65 20 | 20 69 6e 20 74 68 65 20 | date | in the |
|000039e0| 66 6f 6c 6c 6f 77 69 6e | 67 20 66 6f 72 6d 61 74 |followin|g format|
|000039f0| 3a 20 77 65 65 6b 2d 64 | 61 79 20 6d 6f 6e 74 68 |: week-d|ay month|
|00003a00| 20 64 61 79 2c 0d 0a 20 | 20 20 20 20 20 20 20 20 | day,.. | |
|00003a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a20| 79 65 61 72 2e 20 28 69 | 2e 65 2e 20 54 68 75 72 |year. (i|.e. Thur|
|00003a30| 73 64 61 79 2c 20 4d 61 | 72 63 68 20 31 32 2c 20 |sday, Ma|rch 12, |
|00003a40| 31 39 38 37 29 0d 0a 0d | 0a 20 20 20 20 20 20 20 |1987)...|. |
|00003a50| 20 20 20 44 65 73 63 72 | 69 70 74 69 6f 6e 20 20 | Descr|iption |
|00003a60| 3a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 54 68 65 |:.. | The|
|00003a70| 20 66 69 72 73 74 20 61 | 72 67 75 6d 65 6e 74 2c | first a|rgument,|
|00003a80| 20 20 1b 34 53 74 72 69 | 6e 67 5f 73 70 61 63 65 | .4Stri|ng_space|
|00003a90| 24 1b 35 2c 20 20 6d 75 | 73 74 20 62 65 20 20 6f |$.5, mu|st be o|
|00003aa0| 66 20 20 20 20 61 74 20 | 20 6c 65 61 73 74 20 20 |f at | least |
|00003ab0| 33 30 0d 0a 20 20 20 20 | 20 20 20 20 20 20 63 68 |30.. | ch|
|00003ac0| 61 72 61 63 74 65 72 73 | 20 20 6f 66 20 6c 65 6e |aracters| of len|
|00003ad0| 67 74 68 2e 20 20 49 66 | 20 1b 34 4c 65 6e 67 74 |gth. If| .4Lengt|
|00003ae0| 68 25 1b 35 20 72 65 74 | 75 72 6e 73 20 77 69 74 |h%.5 ret|urns wit|
|00003af0| 68 20 61 20 7a 65 72 6f | 20 74 68 65 6e 20 74 68 |h a zero| then th|
|00003b00| 65 72 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 77 |ere.. | w|
|00003b10| 61 73 6e 27 74 20 65 6e | 6f 75 67 68 20 73 70 61 |asn't en|ough spa|
|00003b20| 63 65 20 69 6e 20 74 68 | 65 20 20 73 74 72 69 6e |ce in th|e strin|
|00003b30| 67 20 20 76 61 72 69 61 | 62 6c 65 20 20 1b 34 53 |g varia|ble .4S|
|00003b40| 74 72 69 6e 67 5f 73 70 | 61 63 65 24 1b 35 2e 20 |tring_sp|ace$.5. |
|00003b50| 20 54 68 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | The.. | |
|00003b60| 1b 34 4d 6f 64 65 25 1b | 35 20 20 61 72 67 75 6d |.4Mode%.|5 argum|
|00003b70| 65 6e 74 20 20 74 65 6c | 6c 73 20 74 68 65 20 66 |ent tel|ls the f|
|00003b80| 75 6e 63 74 69 6f 6e 20 | 74 6f 20 65 69 74 68 65 |unction |to eithe|
|00003b90| 72 20 77 72 69 74 65 20 | 74 68 65 20 66 75 6c 6c |r write |the full|
|00003ba0| 20 6e 61 6d 65 0d 0a 20 | 20 20 20 20 20 20 20 20 | name.. | |
|00003bb0| 20 6f 66 20 74 68 65 20 | 77 65 65 6b 2d 64 61 79 | of the |week-day|
|00003bc0| 20 61 6e 64 20 6d 6f 6e | 74 68 20 6f 72 20 6a 75 | and mon|th or ju|
|00003bd0| 73 74 20 20 74 68 65 20 | 20 66 69 72 73 74 20 20 |st the | first |
|00003be0| 74 68 72 65 65 20 20 6c | 65 74 74 65 72 73 20 20 |three l|etters |
|00003bf0| 6f 66 0d 0a 20 20 20 20 | 20 20 20 20 20 20 65 61 |of.. | ea|
|00003c00| 63 68 2e 20 20 49 66 20 | 20 1b 34 4d 6f 64 65 25 |ch. If | .4Mode%|
|00003c10| 1b 35 3d 30 2c 20 20 6f | 72 20 61 6e 79 20 6e 75 |.5=0, o|r any nu|
|00003c20| 6d 62 65 72 20 6f 74 68 | 65 72 20 74 68 61 6e 20 |mber oth|er than |
|00003c30| 6f 6e 65 2c 20 20 74 68 | 65 6e 20 74 68 65 20 66 |one, th|en the f|
|00003c40| 75 6c 6c 0d 0a 20 20 20 | 20 20 20 20 20 20 20 6e |ull.. | n|
|00003c50| 61 6d 65 73 20 6f 66 20 | 74 68 65 20 77 65 65 6b |ames of |the week|
|00003c60| 2d 64 61 79 20 61 6e 64 | 20 6d 6f 6e 74 68 20 77 |-day and| month w|
|00003c70| 69 6c 6c 20 62 65 20 77 | 72 69 74 74 65 6e 2e 20 |ill be w|ritten. |
|00003c80| 20 49 66 20 1b 34 4d 6f | 64 65 25 1b 35 3d 31 20 | If .4Mo|de%.5=1 |
|00003c90| 74 68 65 6e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |then.. | |
|00003ca0| 6f 6e 6c 79 20 74 68 65 | 20 66 69 72 73 74 20 74 |only the| first t|
|00003cb0| 68 72 65 65 20 63 68 61 | 72 61 63 74 65 72 73 20 |hree cha|racters |
|00003cc0| 6f 66 20 74 68 65 20 77 | 65 65 6b 2d 64 61 79 20 |of the w|eek-day |
|00003cd0| 61 6e 64 20 6d 6f 6e 74 | 68 20 77 69 6c 6c 20 62 |and mont|h will b|
|00003ce0| 65 0d 0a 20 20 20 20 20 | 20 20 20 20 20 77 72 69 |e.. | wri|
|00003cf0| 74 74 65 6e 2e 20 20 54 | 68 65 20 1b 34 4c 65 6e |tten. T|he .4Len|
|00003d00| 67 74 68 25 1b 35 20 61 | 72 67 75 6d 65 6e 74 20 |gth%.5 a|rgument |
|00003d10| 69 73 20 75 73 65 64 20 | 74 6f 20 74 65 6c 6c 20 |is used |to tell |
|00003d20| 42 41 53 49 43 20 74 68 | 65 20 74 72 75 65 20 61 |BASIC th|e true a|
|00003d30| 6e 64 0d 0a 20 20 20 20 | 20 20 20 20 20 20 66 69 |nd.. | fi|
|00003d40| 6e 61 6c 20 6c 65 6e 67 | 74 68 20 6f 66 20 1b 34 |nal leng|th of .4|
|00003d50| 53 74 72 69 6e 67 5f 73 | 70 61 63 65 24 1b 35 20 |String_s|pace$.5 |
|00003d60| 28 54 68 69 73 20 77 61 | 79 20 79 6f 75 20 65 61 |(This wa|y you ea|
|00003d70| 73 69 6c 79 20 67 65 74 | 20 72 69 64 20 6f 66 20 |sily get| rid of |
|00003d80| 74 68 65 0d 0a 20 20 20 | 20 20 20 20 20 20 20 74 |the.. | t|
|00003d90| 72 61 69 6c 69 6e 67 20 | 63 68 61 72 61 63 74 65 |railing |characte|
|00003da0| 72 73 20 61 66 74 65 72 | 20 74 68 65 20 79 65 61 |rs after| the yea|
|00003db0| 72 20 73 69 6e 63 65 2c | 20 20 74 68 65 20 61 63 |r since,| the ac|
|00003dc0| 74 75 61 6c 20 20 6c 65 | 6e 67 74 68 20 20 6f 66 |tual le|ngth of|
|00003dd0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 1b 34 53 74 |.. | .4St|
|00003de0| 72 69 6e 67 5f 73 70 61 | 63 65 24 1b 35 20 77 69 |ring_spa|ce$.5 wi|
|00003df0| 6c 6c 20 76 61 72 79 20 | 67 72 65 61 74 6c 79 20 |ll vary |greatly |
|00003e00| 64 65 70 65 6e 64 69 6e | 67 20 6f 6e 20 74 68 65 |dependin|g on the|
|00003e10| 20 64 61 74 65 2e 29 0d | 0a 20 20 20 20 20 20 20 | date.).|. |
|00003e20| 20 20 20 4e 4f 54 45 3a | 20 20 1b 34 53 74 72 69 | NOTE:| .4Stri|
|00003e30| 6e 67 5f 73 70 61 63 65 | 24 1b 35 20 20 77 69 6c |ng_space|$.5 wil|
|00003e40| 6c 20 6e 65 76 65 72 20 | 62 65 20 61 6e 79 20 6c |l never |be any l|
|00003e50| 6f 6e 67 65 72 20 74 68 | 61 6e 20 33 30 20 63 68 |onger th|an 30 ch|
|00003e60| 61 72 61 63 74 65 72 73 | 0d 0a 20 20 20 20 20 20 |aracters|.. |
|00003e70| 20 20 20 20 6f 66 20 6c | 65 6e 67 74 68 2e 0d 0a | of l|ength...|
|00003e80| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 45 78 61 6d |.. | Exam|
|00003e90| 70 6c 65 3a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ple:.. | |
|00003ea0| 44 24 3d 73 70 61 63 65 | 24 28 33 30 29 3a 6c 25 |D$=space|$(30):l%|
|00003eb0| 3d 30 3a 6d 6f 64 65 25 | 3d 30 3a 63 61 6c 6c 20 |=0:mode%|=0:call |
|00003ec0| 64 61 74 65 73 74 72 28 | 64 24 2c 6c 25 2c 6d 6f |datestr(|d$,l%,mo|
|00003ed0| 64 65 25 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |de%).. | |
|00003ee0| 69 66 20 6c 25 3d 30 20 | 74 68 65 6e 20 70 72 69 |if l%=0 |then pri|
|00003ef0| 6e 74 20 22 4e 6f 74 20 | 65 6e 6f 75 67 68 20 73 |nt "Not |enough s|
|00003f00| 70 61 63 65 20 69 6e 20 | 44 24 21 22 3a 73 74 6f |pace in |D$!":sto|
|00003f10| 70 0d 0a 20 20 20 20 20 | 20 20 20 20 20 64 24 3d |p.. | d$=|
|00003f20| 6c 65 66 74 28 64 24 2c | 6c 25 29 3a 70 72 69 6e |left(d$,|l%):prin|
|00003f30| 74 20 22 54 6f 64 61 79 | 20 69 73 20 22 3b 64 24 |t "Today| is ";d$|
|00003f40| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 44 24 3d 73 |.. | D$=s|
|00003f50| 70 61 63 65 24 28 33 30 | 29 3a 6c 25 3d 30 3a 6d |pace$(30|):l%=0:m|
|00003f60| 6f 64 65 25 3d 31 3a 63 | 61 6c 6c 20 64 61 74 65 |ode%=1:c|all date|
|00003f70| 73 74 72 28 64 24 2c 6c | 25 2c 6d 6f 64 65 25 29 |str(d$,l|%,mode%)|
|00003f80| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 69 66 20 6c |.. | if l|
|00003f90| 25 3d 30 20 74 68 65 6e | 20 70 72 69 6e 74 20 22 |%=0 then| print "|
|00003fa0| 4e 6f 74 20 65 6e 6f 75 | 67 68 20 73 70 61 63 65 |Not enou|gh space|
|00003fb0| 20 69 6e 20 44 24 21 22 | 3a 73 74 6f 70 0d 0a 20 | in D$!"|:stop.. |
|00003fc0| 20 20 20 20 20 20 20 20 | 20 64 24 3d 6c 65 66 74 | | d$=left|
|00003fd0| 28 64 24 2c 6c 25 29 3a | 70 72 69 6e 74 20 22 54 |(d$,l%):|print "T|
|00003fe0| 6f 64 61 79 20 69 73 20 | 22 3b 64 24 0d 0a 0d 0a |oday is |";d$....|
|00003ff0| 0d 0a 0d 0a 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |........| |
|00004000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 1b 47 | | .G|
|00004010| 2d 2d 2d 20 42 41 53 44 | 4c 58 20 20 20 56 65 72 |--- BASD|LX Ver|
|00004020| 73 69 6f 6e 20 31 2e 34 | 20 20 20 41 70 72 69 6c |sion 1.4| April|
|00004030| 20 31 39 38 37 20 2d 2d | 2d 1b 48 0d 0a 0c 1b 41 | 1987 --|-.H....A|
|00004040| 48 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1b |H. | .|
|00004050| 47 42 41 53 44 4c 58 20 | 28 43 29 20 43 6f 70 79 |GBASDLX |(C) Copy|
|00004060| 72 69 67 68 74 20 31 39 | 38 36 2c 31 39 38 37 20 |right 19|86,1987 |
|00004070| 42 79 20 47 75 73 74 61 | 76 6f 20 48 2e 20 56 65 |By Gusta|vo H. Ve|
|00004080| 72 64 75 6e 20 20 50 61 | 67 65 20 37 1b 48 1b 41 |rdun Pa|ge 7.H.A|
|00004090| 0c 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 46 75 |.... | Fu|
|000040a0| 6e 63 74 69 6f 6e 20 4e | 61 6d 65 3a 20 1b 47 47 |nction N|ame: .GG|
|000040b0| 45 54 53 54 52 44 1b 48 | 20 28 49 6d 70 72 6f 76 |ETSTRD.H| (Improv|
|000040c0| 65 64 20 69 6e 20 74 68 | 69 73 20 56 65 72 73 69 |ed in th|is Versi|
|000040d0| 6f 6e 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 41 |on).. | A|
|000040e0| 72 67 75 6d 65 6e 74 73 | 20 20 20 20 3a 20 28 1b |rguments| : (.|
|000040f0| 34 53 74 72 69 6e 67 24 | 2c 6c 65 6e 67 74 68 25 |4String$|,length%|
|00004100| 2c 56 61 6c 69 64 6b 65 | 79 73 24 2c 1b 35 5b 1b |,Validke|ys$,.5[.|
|00004110| 34 63 6f 6c 6f 72 25 1b | 35 5d 1b 34 2c 6d 6f 64 |4color%.|5].4,mod|
|00004120| 65 25 1b 35 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |e%.5).. | |
|00004130| 20 54 79 70 65 20 20 20 | 20 20 20 20 20 20 3a 20 | Type | : |
|00004140| 53 74 72 69 6e 67 2f 44 | 61 74 61 20 65 6e 74 72 |String/D|ata entr|
|00004150| 79 20 65 6e 68 61 6e 63 | 65 6d 65 6e 74 0d 0a 20 |y enhanc|ement.. |
|00004160| 20 20 20 20 20 20 20 20 | 20 50 75 72 70 6f 73 65 | | Purpose|
|00004170| 20 20 20 20 20 20 3a 20 | 54 68 69 73 20 66 75 6e | : |This fun|
|00004180| 63 74 69 6f 6e 20 61 63 | 63 65 70 74 73 20 69 6e |ction ac|cepts in|
|00004190| 70 75 74 20 66 72 6f 6d | 20 74 68 65 20 6b 65 79 |put from| the key|
|000041a0| 62 6f 61 72 64 20 20 61 | 6e 64 0d 0a 20 20 20 20 |board a|nd.. |
|000041b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000041c0| 20 20 20 20 20 73 74 6f | 72 65 73 20 20 69 74 20 | sto|res it |
|000041d0| 20 69 6e 20 20 74 68 65 | 20 20 1b 34 53 74 72 69 | in the| .4Stri|
|000041e0| 6e 67 24 1b 35 20 61 72 | 67 75 6d 65 6e 74 20 61 |ng$.5 ar|gument a|
|000041f0| 6c 6c 6f 77 69 6e 67 20 | 74 68 65 0d 0a 20 20 20 |llowing |the.. |
|00004200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004210| 20 20 20 20 20 20 75 73 | 65 20 6f 66 20 73 74 61 | us|e of sta|
|00004220| 6e 64 61 72 64 20 65 64 | 69 74 69 6e 67 20 63 6f |ndard ed|iting co|
|00004230| 6d 6d 61 6e 64 73 2e 0d | 0a 0d 0a 20 20 20 20 20 |mmands..|... |
|00004240| 20 20 20 20 20 44 65 73 | 63 72 69 70 74 69 6f 6e | Des|cription|
|00004250| 20 20 3a 0d 0a 20 20 20 | 20 20 20 20 20 20 20 54 | :.. | T|
|00004260| 6f 20 73 74 61 72 74 20 | 77 69 74 68 20 49 20 77 |o start |with I w|
|00004270| 69 6c 6c 20 64 65 73 63 | 72 69 62 65 20 65 61 63 |ill desc|ribe eac|
|00004280| 68 20 6f 66 20 74 68 65 | 20 61 72 67 75 6d 65 6e |h of the| argumen|
|00004290| 74 73 3a 0d 0a 0d 0a 20 | 20 20 20 20 20 20 20 20 |ts:.... | |
|000042a0| 20 1b 34 53 74 72 69 6e | 67 24 1b 35 2c 20 20 54 | .4Strin|g$.5, T|
|000042b0| 68 69 73 20 69 73 20 74 | 68 65 20 73 70 61 63 65 |his is t|he space|
|000042c0| 20 77 68 65 72 65 20 74 | 68 65 20 69 6e 70 75 74 | where t|he input|
|000042d0| 20 64 61 74 61 20 77 69 | 6c 6c 20 62 65 20 20 73 | data wi|ll be s|
|000042e0| 74 6f 72 65 64 2e 0d 0a | 20 20 20 20 20 20 20 20 |tored...| |
|000042f0| 20 20 54 68 65 20 20 66 | 69 65 6c 64 20 20 73 69 | The f|ield si|
|00004300| 7a 65 20 20 6f 66 20 20 | 74 68 65 20 69 6e 70 75 |ze of |the inpu|
|00004310| 74 20 64 61 74 61 20 77 | 69 6c 6c 20 62 65 20 73 |t data w|ill be s|
|00004320| 65 74 20 74 6f 20 74 68 | 65 20 6c 65 6e 67 74 68 |et to th|e length|
|00004330| 20 6f 66 0d 0a 20 20 20 | 20 20 20 20 20 20 20 74 | of.. | t|
|00004340| 68 69 73 20 73 74 72 69 | 6e 67 2e 20 20 49 66 20 |his stri|ng. If |
|00004350| 74 68 65 72 65 20 69 73 | 20 61 6c 72 65 61 64 79 |there is| already|
|00004360| 20 73 6f 6d 65 20 64 61 | 74 61 20 69 6e 20 74 68 | some da|ta in th|
|00004370| 65 20 73 74 72 69 6e 67 | 20 69 74 20 77 69 6c 6c |e string| it will|
|00004380| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 6e 6f 74 20 |.. | not |
|00004390| 62 65 20 65 72 61 73 65 | 64 2e 20 4a 75 73 74 20 |be erase|d. Just |
|000043a0| 62 65 20 73 75 72 65 20 | 74 6f 20 73 65 74 20 74 |be sure |to set t|
|000043b0| 68 65 20 6c 65 6e 67 74 | 68 20 74 6f 20 74 68 65 |he lengt|h to the|
|000043c0| 20 70 72 6f 70 65 72 20 | 76 61 6c 75 65 0d 0a 20 | proper |value.. |
|000043d0| 20 20 20 20 20 20 20 20 | 20 74 6f 20 20 6c 65 74 | | to let|
|000043e0| 20 20 47 45 54 53 54 52 | 44 20 20 6b 6e 6f 77 20 | GETSTR|D know |
|000043f0| 20 74 68 61 74 20 74 68 | 65 72 65 20 69 73 20 61 | that th|ere is a|
|00004400| 6c 72 65 61 64 79 20 64 | 61 74 61 20 69 6e 20 74 |lready d|ata in t|
|00004410| 68 65 20 1b 34 53 74 72 | 69 6e 67 24 1b 35 0d 0a |he .4Str|ing$.5..|
|00004420| 20 20 20 20 20 20 20 20 | 20 20 76 61 72 69 61 62 | | variab|
|00004430| 6c 65 20 74 68 61 74 20 | 69 73 20 72 65 61 64 79 |le that |is ready|
|00004440| 20 74 6f 20 62 65 20 65 | 64 69 74 65 64 2e 20 20 | to be e|dited. |
|00004450| 44 75 65 20 74 6f 20 74 | 68 65 20 6c 69 6d 69 74 |Due to t|he limit|
|00004460| 61 74 69 6f 6e 73 20 74 | 68 61 74 0d 0a 20 20 20 |ations t|hat.. |
|00004470| 20 20 20 20 20 20 20 42 | 41 53 49 43 20 20 69 6d | B|ASIC im|
|00004480| 70 6f 73 65 73 20 20 6f | 6e 20 61 73 73 65 6d 62 |poses o|n assemb|
|00004490| 6c 79 20 6c 61 6e 67 75 | 61 67 65 20 77 69 74 68 |ly langu|age with|
|000044a0| 20 76 61 72 69 61 62 6c | 65 73 2c 20 20 74 68 65 | variabl|es, the|
|000044b0| 20 1b 34 53 74 72 69 6e | 67 24 1b 35 0d 0a 20 20 | .4Strin|g$.5.. |
|000044c0| 20 20 20 20 20 20 20 20 | 76 61 72 69 61 62 6c 65 | |variable|
|000044d0| 20 6d 75 73 74 20 62 65 | 20 66 69 6c 6c 65 64 20 | must be| filled |
|000044e0| 69 6e 20 74 6f 20 74 68 | 65 20 6d 61 78 69 6d 75 |in to th|e maximu|
|000044f0| 6d 20 73 69 7a 65 20 6f | 66 20 74 68 65 20 66 69 |m size o|f the fi|
|00004500| 65 6c 64 2e 0d 0a 0d 0a | 20 20 20 20 20 20 20 20 |eld.....| |
|00004510| 20 20 1b 34 4c 65 6e 67 | 74 68 25 1b 35 2c 20 20 | .4Leng|th%.5, |
|00004520| 49 66 20 79 6f 75 20 68 | 61 76 65 20 61 20 73 74 |If you h|ave a st|
|00004530| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 74 68 61 74 |ring len|gth that|
|00004540| 20 69 73 20 20 73 68 6f | 72 74 65 72 20 20 74 68 | is sho|rter th|
|00004550| 61 6e 20 20 74 68 65 0d | 0a 20 20 20 20 20 20 20 |an the.|. |
|00004560| 20 20 20 66 69 65 6c 64 | 20 73 69 7a 65 20 74 68 | field| size th|
|00004570| 61 74 20 79 6f 75 20 68 | 61 76 65 20 61 6c 6c 6f |at you h|ave allo|
|00004580| 63 61 74 65 64 20 66 6f | 72 20 74 68 65 20 64 61 |cated fo|r the da|
|00004590| 74 61 2c 20 20 47 45 54 | 53 54 52 44 20 77 69 6c |ta, GET|STRD wil|
|000045a0| 6c 20 62 65 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |l be.. | |
|000045b0| 61 62 6c 65 20 74 6f 20 | 6b 6e 6f 77 20 61 6e 64 |able to |know and|
|000045c0| 20 75 70 6f 6e 20 72 65 | 74 75 72 6e 20 74 65 6c | upon re|turn tel|
|000045d0| 6c 20 79 6f 75 20 74 68 | 65 20 61 63 74 75 61 6c |l you th|e actual|
|000045e0| 20 20 6c 65 6e 67 74 68 | 20 20 6f 66 20 20 74 68 | length| of th|
|000045f0| 65 0d 0a 20 20 20 20 20 | 20 20 20 20 20 73 74 72 |e.. | str|
|00004600| 69 6e 67 2e 20 20 54 68 | 69 73 20 20 6d 61 6b 65 |ing. Th|is make|
|00004610| 73 20 69 74 20 65 61 73 | 79 20 74 6f 20 72 65 6d |s it eas|y to rem|
|00004620| 6f 76 65 20 74 68 65 20 | 74 72 61 69 6c 69 6e 67 |ove the |trailing|
|00004630| 20 73 70 61 63 65 73 20 | 69 6e 20 74 68 65 0d 0a | spaces |in the..|
|00004640| 20 20 20 20 20 20 20 20 | 20 20 1b 34 53 74 72 69 | | .4Stri|
|00004650| 6e 67 24 1b 35 20 69 66 | 20 74 68 65 79 20 61 72 |ng$.5 if| they ar|
|00004660| 65 20 20 6e 6f 74 20 20 | 69 6d 70 6f 72 74 61 6e |e not |importan|
|00004670| 74 2e 20 20 41 20 20 1b | 34 4c 65 6e 67 74 68 25 |t. A .|4Length%|
|00004680| 1b 35 20 20 6f 66 20 20 | 7a 65 72 6f 20 20 74 65 |.5 of |zero te|
|00004690| 6c 6c 73 0d 0a 20 20 20 | 20 20 20 20 20 20 20 47 |lls.. | G|
|000046a0| 45 54 53 54 52 44 20 20 | 74 68 61 74 20 20 69 74 |ETSTRD |that it|
|000046b0| 20 20 69 73 20 61 20 60 | 66 72 65 73 68 27 20 64 | is a `|fresh' d|
|000046c0| 61 74 61 20 66 69 65 6c | 64 20 63 6f 6e 74 61 69 |ata fiel|d contai|
|000046d0| 6e 69 6e 67 20 6e 6f 20 | 70 72 65 76 69 6f 75 73 |ning no |previous|
|000046e0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 69 6e 70 75 |.. | inpu|
|000046f0| 74 2e 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |t..... | |
|00004700| 1b 34 56 61 6c 69 64 6b | 65 79 73 24 1b 35 2c 20 |.4Validk|eys$.5, |
|00004710| 20 54 68 69 73 20 69 73 | 20 74 68 65 20 6e 65 77 | This is| the new|
|00004720| 20 6f 70 74 69 6f 6e 20 | 61 64 64 65 64 20 20 74 | option |added t|
|00004730| 6f 20 20 47 45 54 53 54 | 52 44 2e 20 20 49 66 20 |o GETST|RD. If |
|00004740| 20 74 68 69 73 0d 0a 20 | 20 20 20 20 20 20 20 20 | this.. | |
|00004750| 20 73 74 72 69 6e 67 20 | 69 73 20 73 65 74 20 74 | string |is set t|
|00004760| 6f 20 6e 75 6c 6c 20 28 | 69 2e 65 2e 20 6c 65 6e |o null (|i.e. len|
|00004770| 67 74 68 20 6f 66 20 30 | 29 20 74 68 65 6e 20 47 |gth of 0|) then G|
|00004780| 45 54 53 54 52 44 20 77 | 69 6c 6c 20 61 63 63 65 |ETSTRD w|ill acce|
|00004790| 70 74 0d 0a 20 20 20 20 | 20 20 20 20 20 20 61 6c |pt.. | al|
|000047a0| 6c 20 20 6b 65 79 73 20 | 20 66 72 6f 6d 20 41 53 |l keys | from AS|
|000047b0| 43 49 49 20 33 32 2d 31 | 32 36 2c 20 20 6f 74 68 |CII 32-1|26, oth|
|000047c0| 65 72 77 69 73 65 20 47 | 45 54 53 54 52 44 20 77 |erwise G|ETSTRD w|
|000047d0| 69 6c 6c 20 61 63 63 65 | 70 74 20 6f 6e 6c 79 0d |ill acce|pt only.|
|000047e0| 0a 20 20 20 20 20 20 20 | 20 20 20 74 68 65 20 6b |. | the k|
|000047f0| 65 79 73 20 20 64 65 66 | 69 6e 65 64 20 20 69 6e |eys def|ined in|
|00004800| 20 20 74 68 69 73 20 20 | 73 74 72 69 6e 67 2e 20 | this |string. |
|00004810| 20 28 43 6f 6e 74 72 6f | 6c 20 20 6b 65 79 73 2c | (Contro|l keys,|
|00004820| 20 20 65 78 63 65 70 74 | 20 20 5e 4d 0d 0a 20 20 | except| ^M.. |
|00004830| 20 20 20 20 20 20 20 20 | 5b 52 65 74 75 72 6e 5d | |[Return]|
|00004840| 2c 20 20 5e 5b 20 5b 45 | 73 63 61 70 65 5d 2c 20 |, ^[ [E|scape], |
|00004850| 20 5e 48 20 5b 42 61 63 | 6b 73 70 61 63 65 5d 2c | ^H [Bac|kspace],|
|00004860| 20 20 26 20 5e 49 20 5b | 54 61 62 5d 2c 20 20 61 | & ^I [|Tab], a|
|00004870| 72 65 20 61 6c 77 61 79 | 73 0d 0a 20 20 20 20 20 |re alway|s.. |
|00004880| 20 20 20 20 20 64 69 73 | 63 61 72 64 65 64 2e 29 | dis|carded.)|
|00004890| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 20 20 5b 1b |.... | [.|
|000048a0| 34 43 6f 6c 6f 72 25 1b | 35 5d 2c 20 68 65 72 65 |4Color%.|5], here|
|000048b0| 2c 20 20 79 6f 75 20 6d | 61 79 20 73 70 65 63 69 |, you m|ay speci|
|000048c0| 66 79 20 74 68 65 20 63 | 6f 6c 6f 72 20 61 74 74 |fy the c|olor att|
|000048d0| 72 69 62 75 74 65 20 74 | 68 61 74 20 47 45 54 53 |ribute t|hat GETS|
|000048e0| 54 52 44 0d 0a 20 20 20 | 20 20 20 20 20 20 20 77 |TRD.. | w|
|000048f0| 69 6c 6c 20 20 75 73 65 | 2e 20 20 54 68 65 20 20 |ill use|. The |
|00004900| 66 6f 72 6d 75 6c 61 20 | 20 66 6f 72 20 20 74 68 |formula | for th|
|00004910| 65 20 20 63 6f 6c 6f 72 | 20 20 76 61 6c 75 65 20 |e color| value |
|00004920| 20 69 73 20 20 61 73 20 | 66 6f 6c 6c 6f 77 73 3a | is as |follows:|
|00004930| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 1b 34 43 6f |.. | .4Co|
|00004940| 6c 6f 72 25 1b 35 3d 28 | 42 41 43 4b 47 52 4f 55 |lor%.5=(|BACKGROU|
|00004950| 4e 44 20 61 6e 64 20 37 | 29 2a 31 36 2b 46 4f 52 |ND and 7|)*16+FOR|
|00004960| 45 47 52 4f 55 4e 44 0d | 0a 0d 0a 0d 0a 20 20 20 |EGROUND.|..... |
|00004970| 20 20 20 20 20 20 20 1b | 34 4d 6f 64 65 25 1b 35 | .|4Mode%.5|
|00004980| 2c 20 20 47 45 54 53 54 | 52 44 20 63 75 72 72 65 |, GETST|RD curre|
|00004990| 6e 74 6c 79 20 73 75 70 | 70 6f 72 74 73 20 74 77 |ntly sup|ports tw|
|000049a0| 6f 20 20 6d 6f 64 65 73 | 20 20 6f 66 20 20 6f 70 |o modes| of op|
|000049b0| 65 72 61 74 69 6f 6e 2e | 20 20 49 66 0d 0a 20 20 |eration.| If.. |
|000049c0| 20 20 20 20 20 20 20 20 | 1b 34 4d 6f 64 65 25 1b | |.4Mode%.|
|000049d0| 35 3d 30 20 20 47 45 54 | 53 54 52 44 20 20 77 69 |5=0 GET|STRD wi|
|000049e0| 6c 6c 20 20 6f 70 65 72 | 61 74 65 20 20 6e 6f 72 |ll oper|ate nor|
|000049f0| 6d 61 6c 6c 79 20 20 77 | 69 74 68 6f 75 74 20 65 |mally w|ithout e|
|00004a00| 78 69 74 69 6e 67 20 75 | 6e 6c 65 73 73 0d 0a 20 |xiting u|nless.. |
|00004a10| 20 20 20 20 20 20 20 20 | 20 5b 45 53 43 5d 20 6f | | [ESC] o|
|00004a20| 72 20 5b 52 45 54 55 52 | 4e 5d 20 69 73 20 70 72 |r [RETUR|N] is pr|
|00004a30| 65 73 73 65 64 2e 20 20 | 49 66 20 1b 34 4d 6f 64 |essed. |If .4Mod|
|00004a40| 65 25 1b 35 3d 31 20 20 | 47 45 54 53 54 52 44 20 |e%.5=1 |GETSTRD |
|00004a50| 20 77 69 6c 6c 20 20 6f | 70 65 72 61 74 65 0d 0a | will o|perate..|
|00004a60| 20 20 20 20 20 20 20 20 | 20 20 6e 6f 72 6d 61 6c | | normal|
|00004a70| 6c 79 20 20 65 78 63 65 | 70 74 20 20 74 68 61 74 |ly exce|pt that|
|00004a80| 20 20 69 66 20 69 74 20 | 72 65 61 64 73 20 66 72 | if it |reads fr|
|00004a90| 6f 6d 20 74 68 65 20 6b | 65 79 62 6f 61 72 64 20 |om the k|eyboard |
|00004aa0| 61 6e 20 65 78 74 65 6e | 64 65 64 0d 0a 20 20 20 |an exten|ded.. |
|00004ab0| 20 20 20 20 20 20 20 73 | 63 61 6e 20 63 6f 64 65 | s|can code|
|00004ac0| 20 74 68 61 74 20 69 73 | 20 6e 6f 74 20 6f 6e 65 | that is| not one|
|00004ad0| 20 6f 66 20 69 74 27 73 | 20 65 64 69 74 69 6e 67 | of it's| editing|
|00004ae0| 20 63 6f 6d 6d 61 6e 64 | 73 20 69 74 20 20 77 69 | command|s it wi|
|00004af0| 6c 6c 20 20 65 78 69 74 | 0d 0a 20 20 20 20 20 20 |ll exit|.. |
|00004b00| 20 20 20 20 74 68 65 20 | 20 66 75 6e 63 74 69 6f | the | functio|
|00004b10| 6e 20 20 61 6e 64 20 72 | 65 74 75 72 6e 20 77 69 |n and r|eturn wi|
|00004b20| 74 68 20 74 68 65 20 65 | 78 74 65 6e 64 65 64 20 |th the e|xtended |
|00004b30| 73 63 61 6e 20 63 6f 64 | 65 20 74 6f 20 74 68 61 |scan cod|e to tha|
|00004b40| 74 20 6b 65 79 0d 0a 20 | 20 20 20 20 20 20 20 20 |t key.. | |
|00004b50| 20 69 6e 20 1b 34 4d 6f | 64 65 25 1b 35 2e 20 54 | in .4Mo|de%.5. T|
|00004b60| 68 69 73 20 66 65 61 74 | 75 72 65 20 6d 61 6b 65 |his feat|ure make|
|00004b70| 73 20 69 74 20 65 61 73 | 79 20 74 6f 20 77 72 69 |s it eas|y to wri|
|00004b80| 74 65 20 70 72 6f 67 72 | 61 6d 73 20 74 68 61 74 |te progr|ams that|
|00004b90| 20 61 6c 6c 6f 77 0d 0a | 20 20 20 20 20 20 20 20 | allow..| |
|00004ba0| 20 20 74 68 65 20 75 73 | 65 72 20 74 6f 20 73 63 | the us|er to sc|
|00004bb0| 72 6f 6c 6c 20 74 68 72 | 6f 75 67 68 20 6f 74 68 |roll thr|ough oth|
|00004bc0| 65 72 20 64 61 74 61 20 | 66 69 65 6c 64 73 20 77 |er data |fields w|
|00004bd0| 69 74 68 6f 75 74 20 63 | 68 61 6e 67 69 6e 67 20 |ithout c|hanging |
|00004be0| 20 6f 72 0d 0a 20 20 20 | 20 20 20 20 20 20 20 68 | or.. | h|
|00004bf0| 61 76 69 6e 67 20 20 74 | 6f 20 72 65 2d 65 6e 74 |aving t|o re-ent|
|00004c00| 65 72 20 64 61 74 61 2e | 20 20 49 66 20 75 70 6f |er data.| If upo|
|00004c10| 6e 20 65 78 69 74 20 66 | 72 6f 6d 20 74 68 65 20 |n exit f|rom the |
|00004c20| 47 45 54 53 54 52 44 20 | 66 75 6e 63 74 69 6f 6e |GETSTRD |function|
|00004c30| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 1b 34 4d 6f |.. | .4Mo|
|00004c40| 64 65 25 1b 35 3d 2d 31 | 20 74 68 65 6e 20 74 68 |de%.5=-1| then th|
|00004c50| 65 20 5b 45 53 43 5d 20 | 6b 65 79 20 77 61 73 20 |e [ESC] |key was |
|00004c60| 70 72 65 73 73 65 64 20 | 61 6e 64 20 79 6f 75 72 |pressed |and your|
|00004c70| 20 20 70 72 6f 67 72 61 | 6d 20 20 73 68 6f 75 6c | progra|m shoul|
|00004c80| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 64 6f 20 |d.. | do |
|00004c90| 77 68 61 74 65 76 65 72 | 20 74 68 65 20 5b 45 53 |whatever| the [ES|
|00004ca0| 43 5d 20 6b 65 79 20 6d | 65 61 6e 73 2e 20 49 66 |C] key m|eans. If|
|00004cb0| 20 5b 45 53 43 5d 20 6d | 65 61 6e 73 20 6e 6f 74 | [ESC] m|eans not|
|00004cc0| 68 69 6e 67 20 74 6f 20 | 79 6f 75 72 0d 0a 0d 0a |hing to |your....|
|00004cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004ce0| 20 20 20 20 20 20 1b 47 | 2d 2d 2d 20 42 41 53 44 | .G|--- BASD|
|00004cf0| 4c 58 20 20 20 56 65 72 | 73 69 6f 6e 20 31 2e 34 |LX Ver|sion 1.4|
|00004d00| 20 20 20 41 70 72 69 6c | 20 31 39 38 37 20 2d 2d | April| 1987 --|
|00004d10| 2d 1b 48 0d 0a 0c 1b 41 | 48 0a 20 20 20 20 20 20 |-.H....A|H. |
|00004d20| 20 20 20 20 20 20 20 1b | 47 42 41 53 44 4c 58 20 | .|GBASDLX |
|00004d30| 28 43 29 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |(C) Copy|right 19|
|00004d40| 38 36 2c 31 39 38 37 20 | 42 79 20 47 75 73 74 61 |86,1987 |By Gusta|
|00004d50| 76 6f 20 48 2e 20 56 65 | 72 64 75 6e 20 20 50 61 |vo H. Ve|rdun Pa|
|00004d60| 67 65 20 38 1b 48 1b 41 | 0c 0a 0d 0a 20 20 20 20 |ge 8.H.A|.... |
|00004d70| 20 20 20 20 20 20 46 75 | 6e 63 74 69 6f 6e 20 4e | Fu|nction N|
|00004d80| 61 6d 65 3a 20 1b 47 47 | 45 54 53 54 52 44 1b 48 |ame: .GG|ETSTRD.H|
|00004d90| 20 28 43 6f 6e 74 69 6e | 75 65 64 29 0d 0a 0d 0a | (Contin|ued)....|
|00004da0| 20 20 20 20 20 20 20 20 | 20 20 70 72 6f 67 72 61 | | progra|
|00004db0| 6d 20 74 68 65 6e 20 6a | 75 73 74 20 67 6f 20 62 |m then j|ust go b|
|00004dc0| 61 63 6b 20 74 6f 20 74 | 68 65 20 6c 69 6e 65 20 |ack to t|he line |
|00004dd0| 74 68 61 74 20 43 41 4c | 4c 73 20 47 45 54 53 54 |that CAL|Ls GETST|
|00004de0| 52 44 20 61 6e 64 20 63 | 6f 6e 2d 0d 0a 20 20 20 |RD and c|on-.. |
|00004df0| 20 20 20 20 20 20 20 74 | 69 6e 75 65 2e 0d 0a 0d | t|inue....|
|00004e00| 0a 20 20 20 20 20 20 20 | 20 20 20 54 68 65 20 66 |. | The f|
|00004e10| 6f 6c 6c 6f 77 69 6e 67 | 20 45 64 69 74 69 6e 67 |ollowing| Editing|
|00004e20| 20 6b 65 79 73 20 61 72 | 65 20 73 75 70 70 6f 72 | keys ar|e suppor|
|00004e30| 74 65 64 3a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ted:.. | |
|00004e40| 5b 4c 45 46 54 2d 41 52 | 52 4f 57 5d 20 20 20 20 |[LEFT-AR|ROW] |
|00004e50| 20 20 20 20 20 20 20 20 | 20 4d 6f 76 65 20 63 75 | | Move cu|
|00004e60| 72 73 6f 72 20 6f 6e 65 | 20 73 70 61 63 65 20 6c |rsor one| space l|
|00004e70| 65 66 74 2e 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |eft... | |
|00004e80| 5b 52 49 47 48 54 2d 41 | 52 52 4f 57 5d 20 20 20 |[RIGHT-A|RROW] |
|00004e90| 20 20 20 20 20 20 20 20 | 20 4d 6f 76 65 20 63 75 | | Move cu|
|00004ea0| 72 73 6f 72 20 6f 6e 65 | 20 73 70 61 63 65 20 72 |rsor one| space r|
|00004eb0| 69 67 68 74 2e 0d 0a 20 | 20 20 20 20 20 20 20 20 |ight... | |
|00004ec0| 20 5b 48 4f 4d 45 5d 20 | 20 20 20 20 20 20 20 20 | [HOME] | |
|00004ed0| 20 20 20 20 20 20 20 20 | 20 20 4d 6f 76 65 20 63 | | Move c|
|00004ee0| 75 72 73 6f 72 20 74 6f | 20 62 65 67 69 6e 6e 69 |ursor to| beginni|
|00004ef0| 6e 67 20 6f 66 20 6c 69 | 6e 65 2e 0d 0a 20 20 20 |ng of li|ne... |
|00004f00| 20 20 20 20 20 20 20 5b | 45 4e 44 5d 20 20 20 20 | [|END] |
|00004f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004f20| 4d 6f 76 65 20 63 75 72 | 73 6f 72 20 74 6f 20 74 |Move cur|sor to t|
|00004f30| 68 65 20 65 6e 64 20 6f | 66 20 6c 69 6e 65 2e 0d |he end o|f line..|
|00004f40| 0a 20 20 20 20 20 20 20 | 20 20 20 28 4e 4f 54 45 |. | (NOTE|
|00004f50| 3a 20 20 20 20 54 68 65 | 20 65 6e 64 20 6f 66 20 |: The| end of |
|00004f60| 74 68 65 20 6c 69 6e 65 | 20 69 73 20 64 65 74 65 |the line| is dete|
|00004f70| 72 6d 69 6e 65 64 20 62 | 79 20 74 68 65 20 63 75 |rmined b|y the cu|
|00004f80| 72 72 65 6e 74 20 6c 65 | 6e 67 74 68 0d 0a 20 20 |rrent le|ngth.. |
|00004f90| 20 20 20 20 20 20 20 20 | 6f 66 20 74 68 65 20 69 | |of the i|
|00004fa0| 6e 70 75 74 20 64 61 74 | 61 20 61 6e 64 20 6e 6f |nput dat|a and no|
|00004fb0| 74 20 74 68 65 20 6d 61 | 78 69 6d 75 6d 20 6c 65 |t the ma|ximum le|
|00004fc0| 6e 67 74 68 20 6f 66 20 | 74 68 65 20 64 61 74 61 |ngth of |the data|
|00004fd0| 20 66 69 65 6c 64 2e 29 | 0d 0a 20 20 20 20 20 20 | field.)|.. |
|00004fe0| 20 20 20 20 5b 43 54 52 | 4c 5d 2d 5b 52 49 47 48 | [CTR|L]-[RIGH|
|00004ff0| 54 2d 41 52 52 4f 57 5d | 20 20 20 20 20 4d 6f 76 |T-ARROW]| Mov|
|00005000| 65 20 63 75 72 73 6f 72 | 20 6f 6e 65 20 77 6f 72 |e cursor| one wor|
|00005010| 64 20 72 69 67 68 74 2e | 0d 0a 20 20 20 20 20 20 |d right.|.. |
|00005020| 20 20 20 20 5b 43 54 52 | 4c 5d 2d 5b 4c 45 46 54 | [CTR|L]-[LEFT|
|00005030| 2d 41 52 52 4f 57 5d 20 | 20 20 20 20 20 4d 6f 76 |-ARROW] | Mov|
|00005040| 65 20 63 75 72 73 6f 72 | 20 6f 6e 65 20 77 6f 72 |e cursor| one wor|
|00005050| 64 20 6c 65 66 74 2e 0d | 0a 20 20 20 20 20 20 20 |d left..|. |
|00005060| 20 20 20 5b 43 54 52 4c | 5d 2d 5b 48 4f 4d 45 5d | [CTRL|]-[HOME]|
|00005070| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 72 61 73 | | Eras|
|00005080| 65 20 65 6e 74 69 72 65 | 20 69 6e 70 75 74 20 66 |e entire| input f|
|00005090| 69 65 6c 64 2e 0d 0a 20 | 20 20 20 20 20 20 20 20 |ield... | |
|000050a0| 20 5b 43 54 52 4c 5d 2d | 5b 45 4e 44 5d 20 20 20 | [CTRL]-|[END] |
|000050b0| 20 20 20 20 20 20 20 20 | 20 20 45 72 61 73 65 20 | | Erase |
|000050c0| 66 72 6f 6d 20 63 75 72 | 73 6f 72 20 70 6f 73 69 |from cur|sor posi|
|000050d0| 74 69 6f 6e 20 74 6f 20 | 74 68 65 20 65 6e 64 20 |tion to |the end |
|000050e0| 6f 66 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |of.. | |
|000050f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005100| 20 20 20 20 20 20 20 74 | 68 65 20 6c 69 6e 65 2e | t|he line.|
|00005110| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 5b 49 4e 53 |.. | [INS|
|00005120| 5d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |] | |
|00005130| 20 20 20 20 20 53 65 74 | 2f 43 6c 65 61 72 20 49 | Set|/Clear I|
|00005140| 6e 73 65 72 74 20 6d 6f | 64 65 2e 0d 0a 20 20 20 |nsert mo|de... |
|00005150| 20 20 20 20 20 20 20 5b | 44 45 4c 5d 20 20 20 20 | [|DEL] |
|00005160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005170| 44 65 6c 65 74 65 73 20 | 63 68 61 72 61 63 74 65 |Deletes |characte|
|00005180| 72 20 61 74 20 63 75 72 | 73 6f 72 20 70 6f 73 69 |r at cur|sor posi|
|00005190| 74 69 6f 6e 2e 0d 0a 20 | 20 20 20 20 20 20 20 20 |tion... | |
|000051a0| 20 5b 42 41 43 4b 53 50 | 41 43 45 5d 20 20 20 20 | [BACKSP|ACE] |
|000051b0| 20 20 20 20 20 20 20 20 | 20 20 44 65 6c 65 74 65 | | Delete|
|000051c0| 73 20 63 68 61 72 61 63 | 74 65 72 20 74 6f 20 74 |s charac|ter to t|
|000051d0| 68 65 20 6c 65 66 74 20 | 6f 66 20 63 75 72 73 6f |he left |of curso|
|000051e0| 72 2e 0d 0a 20 20 20 20 | 20 20 20 20 20 20 5b 54 |r... | [T|
|000051f0| 41 42 5d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |AB] | |
|00005200| 20 20 20 20 20 20 20 49 | 6e 73 65 72 74 73 20 78 | I|nserts x|
|00005210| 20 73 70 61 63 65 73 2e | 20 28 53 65 65 20 66 75 | spaces.| (See fu|
|00005220| 6e 63 74 69 6f 6e 20 43 | 4e 46 47 53 44 29 0d 0a |nction C|NFGSD)..|
|00005230| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 45 78 61 6d |.. | Exam|
|00005240| 70 6c 65 20 20 20 20 20 | 20 3a 0d 0a 20 20 20 20 |ple | :.. |
|00005250| 20 20 20 20 20 20 31 30 | 20 72 65 6d 20 54 68 69 | 10| rem Thi|
|00005260| 73 20 65 78 61 6d 70 6c | 65 20 69 73 20 66 6f 72 |s exampl|e is for|
|00005270| 20 6d 6f 64 65 20 30 2e | 0d 0a 20 20 20 20 20 20 | mode 0.|.. |
|00005280| 20 20 20 20 31 32 20 6d | 6f 64 65 25 3d 30 0d 0a | 12 m|ode%=0..|
|00005290| 20 20 20 20 20 20 20 20 | 20 20 31 34 20 63 25 3d | | 14 c%=|
|000052a0| 33 31 3a 41 24 3d 22 22 | 3a 76 61 6c 6b 65 79 24 |31:A$=""|:valkey$|
|000052b0| 3d 22 30 31 32 33 34 35 | 36 37 38 39 28 29 2d 22 |="012345|6789()-"|
|000052c0| 20 27 20 56 61 6c 69 64 | 20 6b 65 79 73 20 66 6f | ' Valid| keys fo|
|000052d0| 72 20 70 68 6f 6e 65 20 | 23 2e 0d 0a 20 20 20 20 |r phone |#... |
|000052e0| 20 20 20 20 20 20 31 38 | 20 6c 25 3d 6c 65 6e 28 | 18| l%=len(|
|000052f0| 41 24 29 3a 62 24 3d 73 | 70 61 63 65 24 28 31 35 |A$):b$=s|pace$(15|
|00005300| 29 3a 63 61 6c 6c 20 73 | 65 74 6c 28 61 24 2c 62 |):call s|etl(a$,b|
|00005310| 24 29 3a 61 24 3d 62 24 | 20 27 72 65 6d 20 61 64 |$):a$=b$| 'rem ad|
|00005320| 64 20 66 69 65 6c 64 0d | 0a 20 20 20 20 20 20 20 |d field.|. |
|00005330| 20 20 20 32 30 20 70 72 | 69 6e 74 20 22 45 6e 74 | 20 pr|int "Ent|
|00005340| 65 72 20 50 68 6f 6e 65 | 20 23 22 3b 0d 0a 20 20 |er Phone| #";.. |
|00005350| 20 20 20 20 20 20 20 20 | 32 32 20 63 61 6c 6c 20 | |22 call |
|00005360| 67 65 74 73 74 72 64 28 | 61 24 2c 6c 25 2c 76 61 |getstrd(|a$,l%,va|
|00005370| 6c 6b 65 79 24 2c 63 25 | 2c 6d 6f 64 65 25 29 0d |lkey$,c%|,mode%).|
|00005380| 0a 20 20 20 20 20 20 20 | 20 20 20 32 34 20 61 24 |. | 24 a$|
|00005390| 3d 6c 65 66 74 24 28 61 | 24 2c 6c 25 29 3a 69 66 |=left$(a|$,l%):if|
|000053a0| 20 6d 6f 64 65 25 3d 2d | 31 20 74 68 65 6e 20 31 | mode%=-|1 then 1|
|000053b0| 38 0d 0a 20 20 20 20 20 | 20 20 20 20 20 2e 0d 0a |8.. | ...|
|000053c0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 31 30 20 72 |.. | 10 r|
|000053d0| 65 6d 20 74 68 69 73 20 | 65 78 61 6d 70 6c 65 20 |em this |example |
|000053e0| 69 73 20 66 6f 72 20 6d | 6f 64 65 20 31 2e 0d 0a |is for m|ode 1...|
|000053f0| 20 20 20 20 20 20 20 20 | 20 20 31 32 20 6d 6f 64 | | 12 mod|
|00005400| 65 25 3d 31 3a 63 25 3d | 33 31 3a 41 24 3d 22 22 |e%=1:c%=|31:A$=""|
|00005410| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 31 38 20 6c |.. | 18 l|
|00005420| 25 3d 6c 65 6e 28 41 24 | 29 3a 62 24 3d 73 70 61 |%=len(A$|):b$=spa|
|00005430| 63 65 24 28 32 35 29 3a | 63 61 6c 6c 20 73 65 74 |ce$(25):|call set|
|00005440| 6c 28 61 24 2c 62 24 29 | 3a 61 24 3d 62 24 3a 72 |l(a$,b$)|:a$=b$:r|
|00005450| 65 6d 20 61 64 64 20 66 | 69 65 6c 64 0d 0a 20 20 |em add f|ield.. |
|00005460| 20 20 20 20 20 20 20 20 | 32 30 20 6c 6f 63 61 74 | |20 locat|
|00005470| 65 20 31 30 2c 35 3a 70 | 72 69 6e 74 20 22 45 6e |e 10,5:p|rint "En|
|00005480| 74 65 72 20 20 4e 61 6d | 65 20 3a 20 22 3b 3a 76 |ter Nam|e : ";:v|
|00005490| 61 6c 6b 65 79 24 3d 22 | 22 0d 0a 20 20 20 20 20 |alkey$="|".. |
|000054a0| 20 20 20 20 20 32 32 20 | 63 61 6c 6c 20 67 65 74 | 22 |call get|
|000054b0| 73 74 72 64 28 61 24 2c | 6c 25 2c 76 61 6c 6b 65 |strd(a$,|l%,valke|
|000054c0| 79 24 2c 63 25 2c 6d 6f | 64 65 25 29 0d 0a 20 20 |y$,c%,mo|de%).. |
|000054d0| 20 20 20 20 20 20 20 20 | 32 34 20 61 24 3d 6c 65 | |24 a$=le|
|000054e0| 66 74 24 28 61 24 2c 6c | 25 29 3a 69 66 20 6d 6f |ft$(a$,l|%):if mo|
|000054f0| 64 65 25 3d 2d 31 20 74 | 68 65 6e 20 33 36 0d 0a |de%=-1 t|hen 36..|
|00005500| 20 20 20 20 20 20 20 20 | 20 20 32 36 20 6c 25 3d | | 26 l%=|
|00005510| 6c 65 6e 28 43 24 29 3a | 62 24 3d 73 70 61 63 65 |len(C$):|b$=space|
|00005520| 24 28 31 35 29 3a 63 61 | 6c 6c 20 73 65 74 6c 28 |$(15):ca|ll setl(|
|00005530| 43 24 2c 62 24 29 3a 43 | 24 3d 62 24 3a 72 65 6d |C$,b$):C|$=b$:rem|
|00005540| 20 61 64 64 20 66 69 65 | 6c 64 0d 0a 20 20 20 20 | add fie|ld.. |
|00005550| 20 20 20 20 20 20 32 38 | 20 6c 6f 63 61 74 65 20 | 28| locate |
|00005560| 31 31 2c 35 3a 70 72 69 | 6e 74 20 22 45 6e 74 65 |11,5:pri|nt "Ente|
|00005570| 72 20 50 68 6f 6e 65 20 | 23 20 22 3b 3a 76 61 6c |r Phone |# ";:val|
|00005580| 6b 65 79 24 3d 22 30 31 | 32 33 34 35 36 37 38 39 |key$="01|23456789|
|00005590| 30 28 29 2d 22 0d 0a 20 | 20 20 20 20 20 20 20 20 |0()-".. | |
|000055a0| 20 33 30 20 63 61 6c 6c | 20 67 65 74 73 74 72 64 | 30 call| getstrd|
|000055b0| 28 63 24 2c 6c 25 2c 76 | 61 6c 6b 65 79 24 2c 63 |(c$,l%,v|alkey$,c|
|000055c0| 25 2c 6d 6f 64 65 25 29 | 0d 0a 20 20 20 20 20 20 |%,mode%)|.. |
|000055d0| 20 20 20 20 33 32 20 61 | 24 3d 6c 65 66 74 24 28 | 32 a|$=left$(|
|000055e0| 63 24 2c 6c 25 29 3a 69 | 66 20 6d 6f 64 65 25 3d |c$,l%):i|f mode%=|
|000055f0| 2d 31 20 74 68 65 6e 20 | 33 36 0d 0a 20 20 20 20 |-1 then |36.. |
|00005600| 20 20 20 20 20 20 33 34 | 20 69 66 20 6d 6f 64 65 | 34| if mode|
|00005610| 25 3d 37 32 20 6f 72 20 | 6d 6f 64 65 25 3d 38 30 |%=72 or |mode%=80|
|00005620| 20 74 68 65 6e 20 31 38 | 0d 0a 20 20 20 20 20 20 | then 18|.. |
|00005630| 20 20 20 20 33 36 20 70 | 72 69 6e 74 20 22 44 61 | 36 p|rint "Da|
|00005640| 74 61 20 41 3a 20 22 3b | 61 24 3a 70 72 69 6e 74 |ta A: ";|a$:print|
|00005650| 20 22 44 61 74 61 20 42 | 3a 20 22 3b 63 24 3a 65 | "Data B|: ";c$:e|
|00005660| 6e 64 0d 0a 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |nd......|........|
|00005670| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005680| 20 20 20 20 20 20 20 20 | 1b 47 2d 2d 2d 20 42 41 | |.G--- BA|
|00005690| 53 44 4c 58 20 20 20 56 | 65 72 73 69 6f 6e 20 31 |SDLX V|ersion 1|
|000056a0| 2e 34 20 20 20 41 70 72 | 69 6c 20 31 39 38 37 20 |.4 Apr|il 1987 |
|000056b0| 2d 2d 2d 1b 48 0d 0a 0c | 1b 41 48 0a 20 20 20 20 |---.H...|.AH. |
|000056c0| 20 20 20 20 20 20 20 20 | 20 1b 47 42 41 53 44 4c | | .GBASDL|
|000056d0| 58 20 28 43 29 20 43 6f | 70 79 72 69 67 68 74 20 |X (C) Co|pyright |
|000056e0| 31 39 38 36 2c 31 39 38 | 37 20 42 79 20 47 75 73 |1986,198|7 By Gus|
|000056f0| 74 61 76 6f 20 48 2e 20 | 56 65 72 64 75 6e 20 20 |tavo H. |Verdun |
|00005700| 50 61 67 65 20 39 1b 48 | 1b 41 0c 0a 0d 0a 20 20 |Page 9.H|.A.... |
|00005710| 20 20 20 20 20 20 20 20 | 46 75 6e 63 74 69 6f 6e | |Function|
|00005720| 20 4e 61 6d 65 3a 20 1b | 47 47 55 4e 1b 48 0d 0a | Name: .|GGUN.H..|
|00005730| 20 20 20 20 20 20 20 20 | 20 20 41 72 67 75 6d 65 | | Argume|
|00005740| 6e 74 73 20 20 20 20 3a | 20 28 5b 1b 34 4e 75 6d |nts :| ([.4Num|
|00005750| 5f 6f 66 5f 73 68 6f 74 | 73 25 1b 35 5d 29 0d 0a |_of_shot|s%.5])..|
|00005760| 20 20 20 20 20 20 20 20 | 20 20 54 79 70 65 20 20 | | Type |
|00005770| 20 20 20 20 20 20 20 3a | 20 53 70 65 61 6b 65 72 | :| Speaker|
|00005780| 20 73 75 70 70 6f 72 74 | 0d 0a 20 20 20 20 20 20 | support|.. |
|00005790| 20 20 20 20 50 75 72 70 | 6f 73 65 20 20 20 20 20 | Purp|ose |
|000057a0| 20 3a 20 53 69 6d 75 6c | 61 74 65 73 20 74 68 65 | : Simul|ates the|
|000057b0| 20 73 6f 75 6e 64 20 6f | 66 20 61 20 67 75 6e 20 | sound o|f a gun |
|000057c0| 6f 72 20 6d 61 63 68 69 | 6e 65 20 67 75 6e 0d 0a |or machi|ne gun..|
|000057d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 44 65 73 63 |.. | Desc|
|000057e0| 72 69 70 74 69 6f 6e 20 | 20 3a 0d 0a 20 20 20 20 |ription | :.. |
|000057f0| 20 20 20 20 20 20 54 68 | 69 73 20 20 66 75 6e 63 | Th|is func|
|00005800| 74 69 6f 6e 20 20 67 65 | 6e 65 72 61 74 65 73 20 |tion ge|nerates |
|00005810| 20 74 68 65 20 20 73 6f | 75 6e 64 20 20 62 79 20 | the so|und by |
|00005820| 73 65 6e 64 69 6e 67 20 | 73 70 75 72 74 73 20 6f |sending |spurts o|
|00005830| 66 20 77 68 69 74 65 0d | 0a 20 20 20 20 20 20 20 |f white.|. |
|00005840| 20 20 20 6e 6f 69 73 65 | 20 74 6f 20 74 68 65 20 | noise| to the |
|00005850| 73 70 65 61 6b 65 72 2e | 20 20 54 68 69 73 20 77 |speaker.| This w|
|00005860| 69 6c 6c 20 63 72 65 61 | 74 65 20 74 68 65 20 73 |ill crea|te the s|
|00005870| 6f 75 6e 64 20 6f 66 20 | 61 20 71 75 69 63 6b 20 |ound of |a quick |
|00005880| 20 65 78 2d 0d 0a 20 20 | 20 20 20 20 20 20 20 20 | ex-.. | |
|00005890| 70 6c 6f 73 69 6f 6e 2e | 20 20 74 68 65 20 20 6f |plosion.| the o|
|000058a0| 6e 6c 79 20 20 70 61 72 | 61 6d 65 74 65 72 20 20 |nly par|ameter |
|000058b0| 6e 65 65 64 65 64 20 20 | 69 73 20 74 68 65 20 6e |needed |is the n|
|000058c0| 75 6d 62 65 72 20 6f 66 | 20 73 68 6f 74 73 20 74 |umber of| shots t|
|000058d0| 6f 0d 0a 20 20 20 20 20 | 20 20 20 20 20 66 69 72 |o.. | fir|
|000058e0| 65 2e 0d 0a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |e..... | |
|000058f0| 45 78 61 6d 70 6c 65 3a | 0d 0a 20 20 20 20 20 20 |Example:|.. |
|00005900| 20 20 20 20 69 6e 70 75 | 74 20 22 4e 75 6d 62 65 | inpu|t "Numbe|
|00005910| 72 20 6f 66 20 73 68 6f | 74 73 20 74 6f 20 66 69 |r of sho|ts to fi|
|00005920| 72 65 20 3a 22 2c 73 68 | 6f 74 73 25 3a 69 66 20 |re :",sh|ots%:if |
|00005930| 73 68 6f 74 73 25 3d 30 | 20 74 68 65 6e 20 65 6e |shots%=0| then en|
|00005940| 64 0d 0a 20 20 20 20 20 | 20 20 20 20 20 63 61 6c |d.. | cal|
|00005950| 6c 20 67 75 6e 28 73 68 | 6f 74 73 25 29 0d 0a 0d |l gun(sh|ots%)...|
|00005960| 0a 20 20 20 20 20 20 20 | 20 20 20 46 75 6e 63 74 |. | Funct|
|00005970| 69 6f 6e 20 4e 61 6d 65 | 3a 20 1b 47 52 45 41 44 |ion Name|: .GREAD|
|00005980| 50 1b 48 0d 0a 20 20 20 | 20 20 20 20 20 20 20 41 |P.H.. | A|
|00005990| 72 67 75 6d 65 6e 74 73 | 20 20 20 20 3a 20 28 1b |rguments| : (.|
|000059a0| 34 50 6f 72 74 5f 6e 75 | 6d 25 1b 35 29 0d 0a 20 |4Port_nu|m%.5).. |
|000059b0| 20 20 20 20 20 20 20 20 | 20 54 79 70 65 20 20 20 | | Type |
|000059c0| 20 20 20 20 20 20 3a 20 | 50 72 69 6e 74 65 72 20 | : |Printer |
|000059d0| 73 75 70 70 6f 72 74 0d | 0a 20 20 20 20 20 20 20 |support.|. |
|000059e0| 20 20 20 50 75 72 70 6f | 73 65 20 20 20 20 20 20 | Purpo|se |
|000059f0| 3a 20 52 65 61 64 73 20 | 74 68 65 20 70 72 69 6e |: Reads |the prin|
|00005a00| 74 65 72 20 73 74 61 74 | 75 73 20 6f 66 20 74 68 |ter stat|us of th|
|00005a10| 65 20 73 70 65 63 69 66 | 69 65 64 20 70 6f 72 74 |e specif|ied port|
|00005a20| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00005a30| 20 20 20 20 20 20 20 20 | 20 20 20 6e 75 6d 62 65 | | numbe|
|00005a40| 72 20 28 31 2d 33 29 20 | 61 6e 64 20 72 65 74 75 |r (1-3) |and retu|
|00005a50| 72 6e 73 20 77 69 74 68 | 20 74 68 65 20 73 74 61 |rns with| the sta|
|00005a60| 74 75 73 20 62 79 74 65 | 0d 0a 20 20 20 20 20 20 |tus byte|.. |
|00005a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005a80| 20 20 20 66 6f 72 20 74 | 68 61 74 20 70 6f 72 74 | for t|hat port|
|00005a90| 20 69 6e 20 74 68 65 20 | 1b 34 50 6f 72 74 5f 6e | in the |.4Port_n|
|00005aa0| 75 6d 25 1b 35 20 76 61 | 72 69 61 62 6c 65 2e 0d |um%.5 va|riable..|
|00005ab0| 0a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 44 65 73 |... | Des|
|00005ac0| 63 72 69 70 74 69 6f 6e | 3a 0d 0a 20 20 20 20 20 |cription|:.. |
|00005ad0| 20 20 20 20 20 54 68 65 | 20 73 74 61 74 75 73 20 | The| status |
|00005ae0| 62 79 74 65 20 6f 66 20 | 63 6f 6e 74 61 69 6e 73 |byte of |contains|
|00005af0| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 69 | the fol|lowing i|
|00005b00| 6e 66 6f 72 6d 61 74 69 | 6f 6e 3a 0d 0a 0d 0a 20 |nformati|on:.... |
|00005b10| 20 20 20 20 20 20 20 20 | 20 62 69 74 3a 20 20 20 | | bit: |
|00005b20| 20 20 37 20 20 20 20 36 | 20 20 20 20 35 20 20 20 | 7 6| 5 |
|00005b30| 20 34 20 20 20 20 33 20 | 20 20 20 32 2d 31 20 20 | 4 3 | 2-1 |
|00005b40| 30 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0.. | |
|00005b50| 20 20 20 20 20 20 7c 20 | 20 20 20 7c 20 20 20 20 | | | | |
|00005b60| 7c 20 20 20 20 7c 20 20 | 20 20 7c 20 20 20 20 7c || | | | ||
|00005b70| 20 20 20 20 7c 5f 54 69 | 6d 65 20 6f 75 74 0d 0a | |_Ti|me out..|
|00005b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005b90| 20 20 20 7c 20 20 20 20 | 7c 20 20 20 20 7c 20 20 | | || | |
|00005ba0| 20 20 7c 20 20 20 20 7c | 20 20 20 20 7c 5f 55 6e | | || |_Un|
|00005bb0| 75 73 65 64 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |used.. | |
|00005bc0| 20 20 20 20 20 20 20 20 | 20 7c 20 20 20 20 7c 20 | | | | |
|00005bd0| 20 20 20 7c 20 20 20 20 | 7c 20 20 20 20 7c 5f 31 | | || |_1|
|00005be0| 20 3d 20 49 2f 4f 20 45 | 72 72 6f 72 0d 0a 20 20 | = I/O E|rror.. |
|00005bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005c00| 20 7c 20 20 20 20 7c 20 | 20 20 20 7c 20 20 20 20 | | | | | |
|00005c10| 7c 5f 31 20 3d 20 53 65 | 6c 65 63 74 65 64 0d 0a ||_1 = Se|lected..|
|00005c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005c30| 20 20 20 7c 20 20 20 20 | 7c 20 20 20 20 7c 5f 31 | | || |_1|
|00005c40| 20 3d 20 4f 75 74 20 6f | 66 20 50 61 70 65 72 0d | = Out o|f Paper.|
|00005c50| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005c60| 20 20 20 20 7c 20 20 20 | 20 7c 5f 31 20 3d 20 41 | | | |_1 = A|
|00005c70| 63 6b 6e 6f 77 6c 65 64 | 67 65 0d 0a 20 20 20 20 |cknowled|ge.. |
|00005c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7c | | ||
|00005c90| 5f 31 20 3d 20 4e 6f 74 | 20 42 75 73 79 0d 0a 0d |_1 = Not| Busy...|
|00005ca0| 0a 20 20 20 20 20 20 20 | 20 20 20 49 4d 50 4f 52 |. | IMPOR|
|00005cb0| 54 41 4e 54 3a 20 54 68 | 69 73 20 66 75 6e 63 74 |TANT: Th|is funct|
|00005cc0| 69 6f 6e 20 64 6f 65 73 | 20 6e 6f 74 20 63 68 65 |ion does| not che|
|00005cd0| 63 6b 20 66 6f 72 20 61 | 20 76 61 6c 69 64 20 70 |ck for a| valid p|
|00005ce0| 6f 72 74 20 20 6e 75 6d | 62 65 72 2e 0d 0a 20 20 |ort num|ber... |
|00005cf0| 20 20 20 20 20 20 20 20 | 42 65 20 73 75 72 65 20 | |Be sure |
|00005d00| 74 68 61 74 20 74 68 65 | 20 70 6f 72 74 20 6e 75 |that the| port nu|
|00005d10| 6d 62 65 72 20 69 73 20 | 69 6e 20 74 68 65 20 72 |mber is |in the r|
|00005d20| 61 6e 67 65 20 6f 66 20 | 31 2d 33 0d 0a 0d 0a 20 |ange of |1-3.... |
|00005d30| 20 20 20 20 20 20 20 20 | 20 45 78 61 6d 70 6c 65 | | Example|
|00005d40| 3a 0d 0a 20 20 20 20 20 | 20 20 20 20 20 70 6f 72 |:.. | por|
|00005d50| 74 25 3d 31 3a 63 61 6c | 6c 20 72 65 61 64 70 28 |t%=1:cal|l readp(|
|00005d60| 70 6f 72 74 25 29 3a 70 | 72 69 6e 74 20 70 6f 72 |port%):p|rint por|
|00005d70| 74 25 0d 0a 20 20 20 20 | 20 20 20 20 20 20 69 66 |t%.. | if|
|00005d80| 20 70 6f 72 74 25 20 61 | 6e 64 20 33 32 3d 33 32 | port% a|nd 32=32|
|00005d90| 20 74 68 65 6e 20 70 72 | 69 6e 74 20 22 50 72 69 | then pr|int "Pri|
|00005da0| 6e 74 65 72 20 69 73 20 | 6f 75 74 20 6f 66 20 70 |nter is |out of p|
|00005db0| 61 70 65 72 22 0d 0a 20 | 20 20 20 20 20 20 20 20 |aper".. | |
|00005dc0| 20 69 66 20 70 6f 72 74 | 25 20 61 6e 64 20 31 32 | if port|% and 12|
|00005dd0| 38 3d 30 20 74 68 65 6e | 20 70 72 69 6e 74 20 22 |8=0 then| print "|
|00005de0| 50 72 69 6e 74 65 72 20 | 69 73 20 4f 66 66 2d 6c |Printer |is Off-l|
|00005df0| 69 6e 65 22 0d 0a 0d 0a | 0d 0a 0d 0a 0d 0a 0d 0a |ine"....|........|
|00005e00| 0d 0a 0d 0a 0d 0a 0d 0a | 0d 0a 20 20 20 20 20 20 |........|.. |
|00005e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005e20| 1b 47 2d 2d 2d 20 42 41 | 53 44 4c 58 20 20 20 56 |.G--- BA|SDLX V|
|00005e30| 65 72 73 69 6f 6e 20 31 | 2e 34 20 20 20 41 70 72 |ersion 1|.4 Apr|
|00005e40| 69 6c 20 31 39 38 37 20 | 2d 2d 2d 1b 48 0d 0a 0c |il 1987 |---.H...|
|00005e50| 1b 41 48 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |.AH. | |
|00005e60| 20 1b 47 42 41 53 44 4c | 58 20 28 43 29 20 43 6f | .GBASDL|X (C) Co|
|00005e70| 70 79 72 69 67 68 74 20 | 31 39 38 36 2c 31 39 38 |pyright |1986,198|
|00005e80| 37 20 42 79 20 47 75 73 | 74 61 76 6f 20 48 2e 20 |7 By Gus|tavo H. |
|00005e90| 56 65 72 64 75 6e 20 20 | 50 61 67 65 20 31 30 1b |Verdun |Page 10.|
|00005ea0| 48 1b 41 0c 0a 0d 0a 20 | 20 20 20 20 20 20 20 20 |H.A.... | |
|00005eb0| 20 46 75 6e 63 74 69 6f | 6e 20 4e 61 6d 65 3a 20 | Functio|n Name: |
|00005ec0| 1b 47 52 45 53 45 54 50 | 1b 48 0d 0a 20 20 20 20 |.GRESETP|.H.. |
|00005ed0| 20 20 20 20 20 20 41 72 | 67 75 6d 65 6e 74 73 20 | Ar|guments |
|00005ee0| 20 20 20 3a 20 28 1b 34 | 50 6f 72 74 5f 6e 75 6d | : (.4|Port_num|
|00005ef0| 25 1b 35 29 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |%.5).. | |
|00005f00| 54 79 70 65 20 20 20 20 | 20 20 20 20 20 3a 20 50 |Type | : P|
|00005f10| 72 69 6e 74 65 72 20 73 | 75 70 70 6f 72 74 0d 0a |rinter s|upport..|
|00005f20| 20 20 20 20 20 20 20 20 | 20 20 50 75 72 70 6f 73 | | Purpos|
|00005f30| 65 20 20 20 20 20 20 3a | 20 52 65 73 65 74 73 20 |e :| Resets |
|00005f40| 74 68 65 20 73 70 65 63 | 69 66 69 65 64 20 70 72 |the spec|ified pr|
|00005f50| 69 6e 74 65 72 20 70 6f | 72 74 20 6e 75 6d 62 65 |inter po|rt numbe|
|00005f60| 72 20 28 31 2d 33 29 0d | 0a 20 20 20 20 20 20 20 |r (1-3).|. |
|00005f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005f80| 20 20 61 6e 64 20 72 65 | 74 75 72 6e 73 20 77 69 | and re|turns wi|
|00005f90| 74 68 20 69 74 73 20 73 | 74 61 74 75 73 20 62 79 |th its s|tatus by|
|00005fa0| 74 65 20 28 73 65 65 20 | 74 68 65 20 52 45 41 44 |te (see |the READ|
|00005fb0| 50 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |P.. | |
|00005fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 66 75 6e 63 | | func|
|00005fd0| 74 69 6f 6e 20 64 65 73 | 63 72 69 70 74 69 6f 6e |tion des|cription|
|00005fe0| 20 66 6f 72 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e | for inf|ormation|
|00005ff0| 20 6f 6e 20 74 68 65 0d | 0a 20 20 20 20 20 20 20 | on the.|. |
|00006000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006010| 20 20 70 72 69 6e 74 65 | 72 20 73 74 61 74 75 73 | printe|r status|
|00006020| 20 62 79 74 65 29 0d 0a | 0d 0a 20 20 20 20 20 20 | byte)..|.. |
|00006030| 20 20 20 20 44 65 73 63 | 72 69 70 74 69 6f 6e 3a | Desc|ription:|
|00006040| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 54 68 69 73 |.. | This|
|00006050| 20 20 66 75 6e 63 74 69 | 6f 6e 20 20 73 65 6e 64 | functi|on send|
|00006060| 73 20 61 20 20 72 65 73 | 65 74 20 73 74 61 74 75 |s a res|et statu|
|00006070| 73 20 74 68 72 6f 75 67 | 68 20 74 68 65 20 70 61 |s throug|h the pa|
|00006080| 72 61 6c 6c 65 6c 20 69 | 6e 74 65 72 2d 0d 0a 20 |rallel i|nter-.. |
|00006090| 20 20 20 20 20 20 20 20 | 20 66 61 63 65 20 6f 66 | | face of|
|000060a0| 20 74 68 65 20 73 70 65 | 63 69 66 69 65 64 20 70 | the spe|cified p|
|000060b0| 6f 72 74 20 6e 75 6d 62 | 65 72 2e 20 20 54 68 69 |ort numb|er. Thi|
|000060c0| 73 20 66 75 6e 63 74 69 | 6f 6e 20 64 6f 65 73 20 |s functi|on does |
|000060d0| 63 68 65 63 6b 20 20 74 | 68 65 0d 0a 20 20 20 20 |check t|he.. |
|000060e0| 20 20 20 20 20 20 70 61 | 72 61 6d 65 74 65 72 73 | pa|rameters|
|000060f0| 20 20 74 6f 20 20 62 65 | 20 73 75 72 65 20 74 68 | to be| sure th|
|00006100| 61 74 20 74 68 65 79 20 | 61 72 65 20 69 6e 20 74 |at they |are in t|
|00006110| 68 65 20 72 61 6e 67 65 | 20 6f 66 20 31 20 74 6f |he range| of 1 to|
|00006120| 20 33 2e 20 20 49 66 0d | 0a 20 20 20 20 20 20 20 | 3. If.|. |
|00006130| 20 20 20 74 68 65 20 1b | 34 50 6f 72 74 5f 6e 75 | the .|4Port_nu|
|00006140| 6d 25 1b 35 20 61 72 67 | 75 6d 65 6e 74 20 69 73 |m%.5 arg|ument is|
|00006150| 20 65 71 75 61 6c 20 74 | 6f 20 2d 31 20 20 75 70 | equal t|o -1 up|
|00006160| 6f 6e 20 72 65 74 75 72 | 6e 20 74 68 65 6e 20 74 |on retur|n then t|
|00006170| 68 65 20 20 70 6f 72 74 | 0d 0a 20 20 20 20 20 20 |he port|.. |
|00006180| 20 20 20 20 6e 75 6d 62 | 65 72 20 69 73 20 6e 6f | numb|er is no|
|00006190| 74 20 76 61 6c 69 64 2e | 0d 0a 0d 0a 20 20 20 20 |t valid.|.... |
|000061a0| 20 20 20 20 20 20 45 78 | 61 6d 70 6c 65 3a 0d 0a | Ex|ample:..|
|000061b0| 20 20 20 20 20 20 20 20 | 20 20 70 6f 72 74 25 3d | | port%=|
|000061c0| 31 3a 63 61 6c 6c 20 72 | 65 73 65 74 70 28 70 6f |1:call r|esetp(po|
|000061d0| 72 74 25 29 3a 70 72 69 | 6e 74 20 70 6f 72 74 25 |rt%):pri|nt port%|
|000061e0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 69 66 20 70 |.. | if p|
|000061f0| 6f 72 74 25 3d 2d 31 20 | 74 68 65 6e 20 70 72 69 |ort%=-1 |then pri|
|00006200| 6e 74 22 50 6f 72 74 20 | 6e 75 6d 62 65 72 20 6d |nt"Port |number m|
|00006210| 75 73 74 20 62 65 20 69 | 6e 20 74 68 65 20 72 61 |ust be i|n the ra|
|00006220| 6e 67 65 20 6f 66 20 31 | 2d 33 22 0d 0a 20 20 20 |nge of 1|-3".. |
|00006230| 20 20 20 20 20 20 20 69 | 66 20 70 6f 72 74 25 20 | i|f port% |
|00006240| 61 6e 64 20 33 32 3d 33 | 32 20 74 68 65 6e 20 70 |and 32=3|2 then p|
|00006250| 72 69 6e 74 20 22 50 72 | 69 6e 74 65 72 20 69 73 |rint "Pr|inter is|
|00006260| 20 6f 75 74 20 6f 66 20 | 70 61 70 65 72 22 0d 0a | out of |paper"..|
|00006270| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 70 6f 72 | | if por|
|00006280| 74 25 20 61 6e 64 20 31 | 32 38 3d 30 20 74 68 65 |t% and 1|28=0 the|
|00006290| 6e 20 70 72 69 6e 74 20 | 22 50 72 69 6e 74 65 72 |n print |"Printer|
|000062a0| 20 69 73 20 4f 66 66 2d | 6c 69 6e 65 22 0d 0a 0d | is Off-|line"...|
|000062b0| 0a 20 20 20 20 20 20 20 | 20 20 20 46 75 6e 63 74 |. | Funct|
|000062c0| 69 6f 6e 20 4e 61 6d 65 | 3a 20 1b 47 53 45 54 4c |ion Name|: .GSETL|
|000062d0| 1b 48 0d 0a 20 20 20 20 | 20 20 20 20 20 20 41 72 |.H.. | Ar|
|000062e0| 67 75 6d 65 6e 74 73 20 | 20 20 20 3a 20 28 1b 34 |guments | : (.4|
|000062f0| 53 6f 75 72 63 65 5f 73 | 74 72 69 6e 67 24 2c 44 |Source_s|tring$,D|
|00006300| 65 73 74 69 6e 61 74 69 | 6f 6e 5f 73 74 72 69 6e |estinati|on_strin|
|00006310| 67 24 1b 35 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |g$.5).. | |
|00006320| 20 54 79 70 65 20 20 20 | 20 20 20 20 20 20 3a 20 | Type | : |
|00006330| 53 74 72 69 6e 67 20 6d | 61 6e 69 70 75 6c 61 74 |String m|anipulat|
|00006340| 69 6f 6e 0d 0a 20 20 20 | 20 20 20 20 20 20 20 50 |ion.. | P|
|00006350| 75 72 70 6f 73 65 20 20 | 20 20 20 20 3a 20 54 68 |urpose | : Th|
|00006360| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 77 69 6c 6c |is funct|ion will|
|00006370| 20 70 6c 61 63 65 20 74 | 68 65 20 73 6f 75 72 63 | place t|he sourc|
|00006380| 65 20 73 74 72 69 6e 67 | 20 69 6e 73 69 64 65 0d |e string| inside.|
|00006390| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000063a0| 20 20 20 20 20 20 20 20 | 20 20 6f 66 20 74 68 65 | | of the|
|000063b0| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 20 6c 65 66 | destina|tion lef|
|000063c0| 74 2d 6a 75 73 74 69 66 | 69 65 64 2e 20 49 66 20 |t-justif|ied. If |
|000063d0| 74 68 65 20 73 6f 75 72 | 63 65 0d 0a 20 20 20 20 |the sour|ce.. |
|000063e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000063f0| 20 20 20 20 20 73 74 72 | 69 6e 67 20 69 73 20 6c | str|ing is l|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
