/ Liren Large Software Subsidy 9 / 09.iso / l / l171 / 1.img / EXAMPLES / REMLINE.BAS

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fc 00 04 00 0c 00 81 01 | 91 01 06 00 01 02 03 04 |........|........|
|00000010| 05 08 10 90 ff ff 24 00 | ff ff 69 03 89 00 56 00 |......$.|..i...V.|
|00000020| fd 00 0d 01 95 00 44 01 | d3 01 ef 00 4f 02 7f 00 |......D.|....O...|
|00000030| 28 02 82 01 60 00 00 00 | ac 00 92 01 00 00 d1 00 |(...`...|........|
|00000040| e1 00 bf 00 00 02 be 01 | c7 01 da 01 15 02 b7 00 |........|........|
|00000050| 5b 00 e8 01 67 01 a9 01 | 6c 00 1e 01 00 00 00 00 |[...g...|l.......|
|00000060| 60 02 00 00 00 00 00 00 | 00 00 00 00 00 00 66 02 |`.......|......f.|
|00000070| 52 00 00 00 00 01 41 72 | 01 00 01 5a 76 00 00 08 |R.....Ar|...Zv...|
|00000080| 47 65 74 54 6f 6b 65 6e | 9d 01 00 06 53 65 61 72 |GetToken|....Sear|
|00000090| 63 68 a2 00 00 05 44 65 | 6c 69 6d b5 01 00 06 53 |ch....De|lim....S|
|000000a0| 74 72 53 70 6e 2a 01 00 | 08 49 6e 53 74 72 69 6e |trSpn*..|.InStrin|
|000000b0| 67 00 00 00 09 53 65 70 | 61 72 61 74 6f 72 00 00 |g....Sep|arator..|
|000000c0| 00 06 53 74 72 42 72 6b | 00 00 00 07 49 73 44 69 |..StrBrk|....IsDi|
|000000d0| 67 69 74 00 00 00 04 43 | 68 61 72 00 00 40 0e 49 |git....C|har..@.I|
|000000e0| 6e 74 72 6f 64 75 63 74 | 69 6f 6e 31 34 37 01 40 |ntroduct|ion147.@|
|000000f0| 0c 47 65 74 46 69 6c 65 | 4e 61 6d 65 73 00 00 40 |.GetFile|Names..@|
|00000100| 0a 42 75 69 6c 64 54 61 | 62 6c 65 41 02 40 0a 47 |.BuildTa|bleA.@.G|
|00000110| 65 6e 4f 75 74 46 69 6c | 65 15 01 40 0c 49 6e 69 |enOutFil|e..@.Ini|
|00000120| 74 4b 65 79 54 61 62 6c | 65 00 00 00 04 54 52 55 |tKeyTabl|e....TRU|
|00000130| 45 4c 01 00 05 66 61 6c | 73 65 59 01 00 08 4d 61 |EL...fal|seY...Ma|
|00000140| 78 4c 69 6e 65 73 0a 02 | 00 09 4c 69 6e 65 54 61 |xLines..|..LineTa|
|00000150| 62 6c 65 00 00 00 09 4c | 69 6e 65 43 6f 75 6e 74 |ble....L|ineCount|
|00000160| 00 00 00 04 53 65 70 73 | 5a 02 00 09 49 6e 70 75 |....Seps|Z...Inpu|
|00000170| 74 46 69 6c 65 f7 01 00 | 0a 4f 75 74 70 75 74 46 |tFile...|.OutputF|
|00000180| 69 6c 65 00 00 00 07 54 | 6d 70 46 69 6c 65 00 00 |ile....T|mpFile..|
|00000190| 00 0c 4b 65 79 57 6f 72 | 64 43 6f 75 6e 74 00 00 |..KeyWor|dCount..|
|000001a0| 00 0c 4b 65 79 57 6f 72 | 64 54 61 62 6c 65 00 00 |..KeyWor|dTable..|
|000001b0| 04 07 4b 65 79 44 61 74 | 61 00 00 04 08 46 69 6c |..KeyDat|a....Fil|
|000001c0| 65 45 72 72 31 00 00 04 | 08 46 69 6c 65 45 72 72 |eErr1...|.FileErr|
|000001d0| 32 00 00 00 05 49 6e 4c | 69 6e 00 00 00 05 74 6f |2....InL|in....to|
|000001e0| 6b 65 6e 00 00 00 08 4b | 65 79 49 6e 64 65 78 00 |ken....K|eyIndex.|
|000001f0| 00 00 03 53 65 70 00 00 | 00 0a 4c 69 6e 65 4e 75 |...Sep..|..LineNu|
|00000200| 6d 62 65 72 00 00 00 0b | 46 6f 75 6e 64 4e 75 6d |mber....|FoundNum|
|00000210| 62 65 72 00 00 00 05 69 | 6e 64 65 78 33 02 00 06 |ber....i|ndex3...|
|00000220| 42 65 67 50 6f 73 00 00 | 00 07 53 61 76 65 53 74 |BegPos..|..SaveSt|
|00000230| 72 1f 02 00 06 4e 65 77 | 50 6f 73 38 02 00 05 43 |r....New|Pos8...C|
|00000240| 6f 75 6e 74 00 00 00 07 | 4b 65 79 57 6f 72 64 00 |ount....|KeyWord.|
|00000250| 00 00 01 54 00 00 00 05 | 54 69 74 6c 65 00 00 00 |...T....|Title...|
|00000260| 0a 4c 65 66 74 4d 61 72 | 67 69 6e 00 00 00 07 43 |.LeftMar|gin....C|
|00000270| 68 61 72 41 73 63 00 00 | 00 02 4c 6e 00 00 02 02 |harAsc..|..Ln....|
|00000280| 65 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e.......|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 fc 0c 00 | 00 1b 00 ff ff c1 ff ff |........|........|
|00000390| ff 00 00 97 00 02 00 00 | 00 00 00 97 00 34 00 00 |........|.....4..|
|000003a0| 00 20 20 20 4d 69 63 72 | 6f 73 6f 66 74 20 52 65 |.   Micr|osoft Re|
|000003b0| 6d 4c 69 6e 65 20 2d 20 | 4c 69 6e 65 20 4e 75 6d |mLine - |Line Num|
|000003c0| 62 65 72 20 52 65 6d 6f | 76 61 6c 20 55 74 69 6c |ber Remo|val Util|
|000003d0| 69 74 79 00 00 97 00 3d | 00 00 00 20 20 20 43 6f |ity....=|...   Co|
|000003e0| 70 79 72 69 67 68 74 20 | 28 43 29 20 4d 69 63 72 |pyright |(C) Micr|
|000003f0| 6f 73 6f 66 74 20 43 6f | 72 70 6f 72 61 74 69 6f |osoft Co|rporatio|
|00000400| 6e 20 20 20 2d 20 31 39 | 38 35 2c 20 31 39 38 36 |n   - 19|85, 1986|
|00000410| 2c 20 31 39 38 37 00 00 | 00 97 00 02 00 00 00 00 |, 1987..|........|
|00000420| 00 97 00 49 00 00 00 20 | 20 20 52 45 4d 4c 49 4e |...I... |  REMLIN|
|00000430| 45 2e 42 41 53 20 69 73 | 20 61 20 70 72 6f 67 72 |E.BAS is| a progr|
|00000440| 61 6d 20 74 6f 20 72 65 | 6d 6f 76 65 20 6c 69 6e |am to re|move lin|
|00000450| 65 20 6e 75 6d 62 65 72 | 73 20 66 72 6f 6d 20 4d |e number|s from M|
|00000460| 69 63 72 6f 73 6f 66 74 | 20 42 41 53 49 43 00 00 |icrosoft| BASIC..|
|00000470| 00 97 00 49 00 00 00 20 | 20 20 50 72 6f 67 72 61 |...I... |  Progra|
|00000480| 6d 73 2e 20 49 74 20 72 | 65 6d 6f 76 65 73 20 6f |ms. It r|emoves o|
|00000490| 6e 6c 79 20 74 68 6f 73 | 65 20 6c 69 6e 65 20 6e |nly thos|e line n|
|000004a0| 75 6d 62 65 72 73 20 74 | 68 61 74 20 61 72 65 20 |umbers t|hat are |
|000004b0| 6e 6f 74 20 74 68 65 20 | 6f 62 6a 65 63 74 00 00 |not the |object..|
|000004c0| 00 97 00 49 00 00 00 20 | 20 20 6f 66 20 6f 6e 65 |...I... |  of one|
|000004d0| 20 6f 66 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e | of the |followin|
|000004e0| 67 20 73 74 61 74 65 6d | 65 6e 74 73 3a 20 47 4f |g statem|ents: GO|
|000004f0| 53 55 42 2c 20 52 45 54 | 55 52 4e 2c 20 47 4f 54 |SUB, RET|URN, GOT|
|00000500| 4f 2c 20 54 48 45 4e 2c | 20 45 4c 53 45 2c 00 00 |O, THEN,| ELSE,..|
|00000510| 00 97 00 1d 00 00 00 20 | 20 20 52 45 53 55 4d 45 |....... |  RESUME|
|00000520| 2c 20 52 45 53 54 4f 52 | 45 2c 20 6f 72 20 52 55 |, RESTOR|E, or RU|
|00000530| 4e 2e 73 00 00 97 00 02 | 00 00 00 00 00 97 00 1d |N.s.....|........|
|00000540| 00 00 00 20 20 20 52 45 | 4d 4c 49 4e 45 20 69 73 |...   RE|MLINE is|
|00000550| 20 72 75 6e 20 62 79 20 | 74 79 70 69 6e 67 73 00 | run by |typings.|
|00000560| 00 97 00 02 00 00 00 00 | 00 97 00 23 00 00 00 0d |........|...#....|
|00000570| 06 20 52 45 4d 4c 49 4e | 45 20 5b 3c 69 6e 70 75 |. REMLIN|E [<inpu|
|00000580| 74 3e 20 5b 2c 20 3c 6f | 75 74 70 75 74 3e 5d 5d |t> [, <o|utput>]]|
|00000590| 65 00 00 97 00 02 00 00 | 00 00 00 97 00 47 00 00 |e.......|.....G..|
|000005a0| 00 20 20 20 77 68 65 72 | 65 20 3c 69 6e 70 75 74 |.   wher|e <input|
|000005b0| 3e 20 69 73 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |> is the| name of|
|000005c0| 20 74 68 65 20 66 69 6c | 65 20 74 6f 20 62 65 20 | the fil|e to be |
|000005d0| 70 72 6f 63 65 73 73 65 | 64 20 61 6e 64 20 3c 6f |processe|d and <o|
|000005e0| 75 74 70 75 74 3e 45 00 | 00 97 00 49 00 00 00 20 |utput>E.|...I... |
|000005f0| 20 20 69 73 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |  is the| name of|
|00000600| 20 74 68 65 20 66 69 6c | 65 20 6f 72 20 64 65 76 | the fil|e or dev|
|00000610| 69 63 65 20 74 6f 20 72 | 65 63 65 69 76 65 20 74 |ice to r|eceive t|
|00000620| 68 65 20 72 65 66 6f 72 | 6d 61 74 74 65 64 20 6f |he refor|matted o|
|00000630| 75 74 70 75 74 2e 00 00 | 00 97 00 4b 00 00 00 20 |utput...|...K... |
|00000640| 20 20 49 66 20 6e 6f 20 | 65 78 74 65 6e 73 69 6f |  If no |extensio|
|00000650| 6e 20 69 73 20 67 69 76 | 65 6e 2c 20 2e 42 41 53 |n is giv|en, .BAS|
|00000660| 20 69 73 20 61 73 73 75 | 6d 65 64 20 28 65 78 63 | is assu|med (exc|
|00000670| 65 70 74 20 66 6f 72 20 | 6f 75 74 70 75 74 20 64 |ept for |output d|
|00000680| 65 76 69 63 65 73 29 2e | 00 00 00 97 00 49 00 00 |evices).|.....I..|
|00000690| 00 20 20 20 49 66 20 66 | 69 6c 65 20 6e 61 6d 65 |.   If f|ile name|
|000006a0| 73 20 61 72 65 20 6e 6f | 74 20 67 69 76 65 6e 2c |s are no|t given,|
|000006b0| 20 52 45 4d 4c 49 4e 45 | 20 70 72 6f 6d 70 74 73 | REMLINE| prompts|
|000006c0| 20 66 6f 72 20 66 69 6c | 65 20 6e 61 6d 65 73 2e | for fil|e names.|
|000006d0| 20 49 66 20 62 6f 74 68 | 29 00 00 97 00 46 00 00 | If both|)....F..|
|000006e0| 00 20 20 20 66 69 6c 65 | 20 6e 61 6d 65 73 20 61 |.   file| names a|
|000006f0| 72 65 20 74 68 65 20 73 | 61 6d 65 2c 20 52 45 4d |re the s|ame, REM|
|00000700| 4c 49 4e 45 20 73 61 76 | 65 73 20 74 68 65 20 6f |LINE sav|es the o|
|00000710| 72 69 67 69 6e 61 6c 20 | 66 69 6c 65 20 77 69 74 |riginal |file wit|
|00000720| 68 20 74 68 65 00 00 97 | 00 14 00 00 00 20 20 20 |h the...|.....   |
|00000730| 65 78 74 65 6e 73 69 6f | 6e 20 2e 42 41 4b 2e 00 |extensio|n .BAK..|
|00000740| 00 97 00 02 00 00 00 00 | 00 97 00 39 00 00 00 20 |........|...9... |
|00000750| 20 20 52 45 4d 4c 49 4e | 45 20 6d 61 6b 65 73 20 |  REMLIN|E makes |
|00000760| 73 65 76 65 72 61 6c 20 | 61 73 73 75 6d 70 74 69 |several |assumpti|
|00000770| 6f 6e 73 20 61 62 6f 75 | 74 20 74 68 65 20 70 72 |ons abou|t the pr|
|00000780| 6f 67 72 61 6d 3a 66 00 | 00 97 00 02 00 00 00 00 |ogram:f.|........|
|00000790| 00 97 00 43 00 00 00 0d | 05 20 31 2e 20 49 74 20 |...C....|. 1. It |
|000007a0| 6d 75 73 74 20 62 65 20 | 63 6f 72 72 65 63 74 20 |must be |correct |
|000007b0| 73 79 6e 74 61 63 74 69 | 63 61 6c 6c 79 2c 20 61 |syntacti|cally, a|
|000007c0| 6e 64 20 6d 75 73 74 20 | 72 75 6e 20 69 6e 20 42 |nd must |run in B|
|000007d0| 41 53 49 43 41 20 6f 72 | 74 00 00 97 00 19 00 00 |ASICA or|t.......|
|000007e0| 00 0d 08 20 47 57 42 41 | 53 49 43 20 69 6e 74 65 |... GWBA|SIC inte|
|000007f0| 72 70 72 65 74 65 72 2e | 74 00 00 97 00 42 00 00 |rpreter.|t....B..|
|00000800| 00 0d 05 20 32 2e 20 54 | 68 65 72 65 20 69 73 20 |... 2. T|here is |
|00000810| 61 20 34 30 30 20 6c 69 | 6e 65 20 6c 69 6d 69 74 |a 400 li|ne limit|
|00000820| 2e 20 54 6f 20 70 72 6f | 63 65 73 73 20 6c 61 72 |. To pro|cess lar|
|00000830| 67 65 72 20 66 69 6c 65 | 73 2c 20 63 68 61 6e 67 |ger file|s, chang|
|00000840| 65 00 00 97 00 17 00 00 | 00 0d 08 20 4d 61 78 4c |e.......|... MaxL|
|00000850| 69 6e 65 73 20 63 6f 6e | 73 74 61 6e 74 2e 6c 00 |ines con|stant.l.|
|00000860| 00 97 00 43 00 00 00 0d | 05 20 33 2e 20 54 68 65 |...C....|. 3. The|
|00000870| 20 66 69 72 73 74 20 6e | 75 6d 62 65 72 20 65 6e | first n|umber en|
|00000880| 63 6f 75 6e 74 65 72 65 | 64 20 6f 6e 20 61 20 6c |countere|d on a l|
|00000890| 69 6e 65 20 69 73 20 63 | 6f 6e 73 69 64 65 72 65 |ine is c|onsidere|
|000008a0| 64 20 61 20 6c 69 6e 65 | 00 00 00 97 00 41 00 00 |d a line|.....A..|
|000008b0| 00 0d 08 20 6e 75 6d 62 | 65 72 3b 20 74 68 75 73 |... numb|er; thus|
|000008c0| 20 73 6f 6d 65 20 63 6f | 6e 74 69 6e 75 61 74 69 | some co|ntinuati|
|000008d0| 6f 6e 20 6c 69 6e 65 73 | 20 28 69 6e 20 61 20 63 |on lines| (in a c|
|000008e0| 6f 6d 70 69 6c 65 72 20 | 73 70 65 63 69 66 69 63 |ompiler |specific|
|000008f0| 6e 00 00 97 00 31 00 00 | 00 0d 08 20 63 6f 6e 73 |n....1..|... cons|
|00000900| 74 72 75 63 74 69 69 6f | 6e 29 20 6d 61 79 20 6e |tructiio|n) may n|
|00000910| 6f 74 20 62 65 20 68 61 | 6e 64 6c 65 64 20 63 6f |ot be ha|ndled co|
|00000920| 72 72 65 63 74 6c 79 2e | 6f 00 00 97 00 47 00 00 |rrectly.|o....G..|
|00000930| 00 0d 05 20 34 2e 20 52 | 45 4d 4c 49 4e 45 20 63 |... 4. R|EMLINE c|
|00000940| 61 6e 20 68 61 6e 64 6c | 65 20 73 69 6d 70 6c 65 |an handl|e simple|
|00000950| 20 73 74 61 74 65 6d 65 | 6e 74 73 20 74 68 61 74 | stateme|nts that|
|00000960| 20 74 65 73 74 20 74 68 | 65 20 45 52 4c 20 66 75 | test th|e ERL fu|
|00000970| 6e 63 74 69 6f 6e 00 00 | 00 97 00 42 00 00 00 0d |nction..|...B....|
|00000980| 08 20 75 73 69 6e 67 20 | 20 72 65 6c 61 74 69 6f |. using | relatio|
|00000990| 6e 61 6c 20 6f 70 65 72 | 61 74 6f 72 73 20 73 75 |nal oper|ators su|
|000009a0| 63 68 20 61 73 20 3d 2c | 20 3c 2c 20 61 6e 64 20 |ch as =,| <, and |
|000009b0| 3e 2e 20 46 6f 72 20 65 | 78 61 6d 70 6c 65 2c 00 |>. For e|xample,.|
|000009c0| 00 97 00 32 00 00 00 0d | 08 20 74 68 65 20 66 6f |...2....|. the fo|
|000009d0| 6c 6c 6f 77 69 6e 67 20 | 73 74 61 74 65 6d 65 6e |llowing |statemen|
|000009e0| 74 20 69 73 20 68 61 6e | 64 6c 65 64 20 63 6f 72 |t is han|dled cor|
|000009f0| 72 65 63 74 6c 79 3a 00 | 00 97 00 02 00 00 00 00 |rectly:.|........|
|00000a00| 00 97 00 1a 00 00 00 0d | 0d 20 49 46 20 45 52 4c |........|. IF ERL|
|00000a10| 20 3d 20 31 30 30 20 54 | 48 45 4e 20 45 4e 44 00 | = 100 T|HEN END.|
|00000a20| 00 97 00 02 00 00 00 00 | 00 97 00 40 00 00 00 0d |........|...@....|
|00000a30| 08 20 4c 69 6e 65 20 31 | 30 30 20 69 73 20 6e 6f |. Line 1|00 is no|
|00000a40| 74 20 72 65 6d 6f 76 65 | 64 20 66 72 6f 6d 20 74 |t remove|d from t|
|00000a50| 68 65 20 73 6f 75 72 63 | 65 20 63 6f 64 65 2e 20 |he sourc|e code. |
|00000a60| 48 6f 77 65 76 65 72 2c | 20 6d 6f 72 65 00 00 97 |However,| more...|
|00000a70| 00 42 00 00 00 0d 08 20 | 63 6f 6d 70 6c 65 78 20 |.B..... |complex |
|00000a80| 65 78 70 72 65 73 73 69 | 6f 6e 73 20 74 68 61 74 |expressi|ons that|
|00000a90| 20 63 6f 6e 74 61 69 6e | 20 74 68 65 20 2b 2c 20 | contain| the +, |
|00000aa0| 2d 2c 20 41 4e 44 2c 20 | 4f 52 2c 20 58 4f 52 2c |-, AND, |OR, XOR,|
|00000ab0| 20 45 51 56 2c 00 00 97 | 00 45 00 00 00 0d 08 20 | EQV,...|.E..... |
|00000ac0| 4d 4f 44 2c 20 6f 72 20 | 49 4d 50 20 6f 70 65 72 |MOD, or |IMP oper|
|00000ad0| 61 74 6f 72 73 20 6d 61 | 79 20 6e 6f 74 20 62 65 |ators ma|y not be|
|00000ae0| 20 68 61 6e 64 6c 65 64 | 20 63 6f 72 72 65 63 74 | handled| correct|
|00000af0| 6c 79 2e 20 46 6f 72 20 | 65 78 61 6d 70 6c 65 2c |ly. For |example,|
|00000b00| 6f 00 00 97 00 43 00 00 | 00 0d 08 20 69 6e 20 74 |o....C..|... in t|
|00000b10| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 73 74 61 |he follo|wing sta|
|00000b20| 74 65 6d 65 6e 74 20 52 | 45 4d 4c 49 4e 45 20 64 |tement R|EMLINE d|
|00000b30| 6f 65 73 20 6e 6f 74 20 | 72 65 63 6f 67 6e 69 7a |oes not |recogniz|
|00000b40| 65 20 6c 69 6e 65 20 31 | 30 35 65 00 00 97 00 45 |e line 1|05e....E|
|00000b50| 00 00 00 0d 08 20 61 73 | 20 61 20 72 65 66 65 72 |..... as| a refer|
|00000b60| 65 6e 63 65 64 20 6c 69 | 6e 65 20 6e 75 6d 62 65 |enced li|ne numbe|
|00000b70| 72 20 61 6e 64 20 72 65 | 6d 6f 76 65 73 20 69 74 |r and re|moves it|
|00000b80| 20 66 72 6f 6d 20 74 68 | 65 20 73 6f 75 72 63 65 | from th|e source|
|00000b90| 20 63 6f 64 65 3a 00 00 | 00 97 00 02 00 00 00 00 | code:..|........|
|00000ba0| 00 97 00 1e 00 00 00 0d | 0d 20 49 46 20 45 52 4c |........|. IF ERL|
|00000bb0| 20 2b 20 35 20 3d 20 31 | 30 35 20 54 48 45 4e 20 | + 5 = 1|05 THEN |
|00000bc0| 45 4e 44 00 00 97 00 02 | 00 00 00 00 00 97 00 4a |END.....|.......J|
|00000bd0| 00 00 00 20 20 20 49 66 | 20 79 6f 75 20 64 6f 20 |...   If| you do |
|00000be0| 6e 6f 74 20 6c 69 6b 65 | 20 74 68 65 20 77 61 79 |not like| the way|
|00000bf0| 20 52 45 4d 4c 49 4e 45 | 20 66 6f 72 6d 61 74 73 | REMLINE| formats|
|00000c00| 20 69 74 73 20 6f 75 74 | 70 75 74 2c 20 79 6f 75 | its out|put, you|
|00000c10| 20 63 61 6e 20 6d 6f 64 | 69 66 79 00 00 97 00 49 | can mod|ify....I|
|00000c20| 00 00 00 20 20 20 74 68 | 65 20 6f 75 74 70 75 74 |...   th|e output|
|00000c30| 20 6c 69 6e 65 73 20 69 | 6e 20 53 55 42 20 47 65 | lines i|n SUB Ge|
|00000c40| 6e 4f 75 74 46 69 6c 65 | 2e 20 41 6e 20 65 78 61 |nOutFile|. An exa|
|00000c50| 6d 70 6c 65 20 69 73 20 | 73 68 6f 77 6e 20 69 6e |mple is |shown in|
|00000c60| 20 63 6f 6d 6d 65 6e 74 | 73 2e 79 00 00 00 00 97 | comment|s.y.....|
|00000c70| 00 27 00 00 00 20 46 75 | 6e 63 74 69 6f 6e 20 61 |.'... Fu|nction a|
|00000c80| 6e 64 20 53 75 62 70 72 | 6f 67 72 61 6d 20 64 65 |nd Subpr|ogram de|
|00000c90| 63 6c 61 72 61 74 69 6f | 6e 73 2e 00 00 00 00 44 |claratio|ns.....D|
|00000ca0| 00 12 00 60 00 85 02 02 | 00 6c 00 00 02 05 00 76 |...`....|.l.....v|
|00000cb0| 00 00 02 05 00 00 00 44 | 00 12 00 7f 00 81 02 02 |.......D|........|
|00000cc0| 00 89 00 00 02 05 00 95 | 00 00 02 05 00 00 00 44 |........|.......D|
|00000cd0| 00 12 00 a2 00 81 02 02 | 00 89 00 00 02 05 00 95 |........|........|
|00000ce0| 00 00 02 05 00 00 00 44 | 00 0c 00 ac 00 81 02 01 |.......D|........|
|00000cf0| 00 b7 00 00 02 05 00 00 | 00 44 00 06 00 bf 00 00 |........|.D......|
|00000d00| 01 00 00 00 00 44 00 06 | 00 d1 00 00 01 00 00 00 |.....D..|........|
|00000d10| 00 44 00 06 00 e1 00 00 | 01 00 00 00 00 44 00 06 |.D......|.....D..|
|00000d20| 00 ef 00 00 01 00 00 00 | 00 44 00 06 00 fd 00 00 |........|.D......|
|00000d30| 01 00 00 00 00 00 00 97 | 00 1b 00 00 00 20 47 6c |........|..... Gl|
|00000d40| 6f 62 61 6c 20 61 6e 64 | 20 63 6f 6e 73 74 61 6e |obal and| constan|
|00000d50| 74 20 64 61 74 61 64 00 | 00 00 00 23 00 64 05 78 |t datad.|...#.d.x|
|00000d60| 01 0c 00 0d 01 00 00 23 | 00 64 01 0c 00 15 01 00 |.......#|.d......|
|00000d70| 00 23 00 65 01 90 01 0c | 00 1e 01 00 00 00 00 1a |.#.e....|........|
|00000d80| 00 7d 01 ff ff 18 00 0b | 00 1e 01 10 0c 02 00 2a |.}......|.......*|
|00000d90| 01 00 00 1a 00 7d 01 ff | ff 0d 00 37 01 00 00 1a |.....}..|...7....|
|00000da0| 00 7d 01 ff ff 0d 14 44 | 01 0d 14 4c 01 0d 14 59 |.}.....D|...L...Y|
|00000db0| 01 0d 14 67 01 00 00 00 | 00 97 00 16 00 00 00 20 |...g....|....... |
|00000dc0| 4b 65 79 77 6f 72 64 20 | 73 65 61 72 63 68 20 64 |Keyword |search d|
|00000dd0| 61 74 61 00 00 00 00 23 | 00 64 25 0c 00 72 01 00 |ata....#|.d%..r..|
|00000de0| 00 1a 00 7d 01 ff ff 18 | 00 0b 00 72 01 10 14 02 |...}....|...r....|
|00000df0| 00 82 01 00 00 04 00 bc | 0b 92 01 00 0c a6 00 42 |........|.......B|
|00000e00| 00 03 00 20 54 48 45 4e | 2c 20 45 4c 53 45 2c 20 |... THEN|, ELSE, |
|00000e10| 47 4f 53 55 42 2c 20 47 | 4f 54 4f 2c 20 52 45 53 |GOSUB, G|OTO, RES|
|00000e20| 55 4d 45 2c 20 52 45 54 | 55 52 4e 2c 20 52 45 53 |UME, RET|URN, RES|
|00000e30| 54 4f 52 45 2c 20 52 55 | 4e 2c 20 45 52 4c 2c 20 |TORE, RU|N, ERL, |
|00000e40| 22 22 00 00 00 00 00 97 | 00 25 00 00 00 20 53 74 |""......|.%... St|
|00000e50| 61 72 74 20 6f 66 20 6d | 6f 64 75 6c 65 2d 6c 65 |art of m|odule-le|
|00000e60| 76 65 6c 20 70 72 6f 67 | 72 61 6d 20 63 6f 64 65 |vel prog|ram code|
|00000e70| 45 00 00 00 00 38 00 00 | 00 bf 00 00 00 00 0c 6d |E....8..|.......m|
|00000e80| 01 08 00 20 2c 3a 3d 3c | 3e 28 29 64 25 82 01 01 |... ,:=<|>()d%...|
|00000e90| 00 00 01 0c 14 44 01 00 | 0c 38 00 00 00 fd 00 00 |.....D..|.8......|
|00000ea0| 0c 38 00 00 00 d1 00 00 | 0c 67 00 9d 01 00 0c 0b |.8......|.g......|
|00000eb0| 14 4c 01 64 05 c9 00 01 | 00 00 0c 67 00 ff ff 00 |.L.d....|...g....|
|00000ec0| 0c 6d 01 0e 00 b3 42 20 | b2 7a 20 a4 a4 20 2e 20 |.m....B |.z .. . |
|00000ed0| 2e 20 2e 96 00 00 0c 38 | 00 00 00 e1 00 00 0c 64 |. .....8|.......d|
|00000ee0| 05 8a 00 a2 00 01 00 00 | 0c 0b 14 4c 01 64 05 c9 |........|...L.d..|
|00000ef0| 00 01 00 00 0c 67 00 a9 | 01 00 0c 0b 14 59 01 64 |.....g..|.....Y.d|
|00000f00| 09 c9 00 02 00 00 0c 67 | 00 ff ff 00 0c 38 00 00 |.......g|.....8..|
|00000f10| 00 ef 00 00 0c 64 05 8a | 00 64 09 8a 00 a2 00 02 |.....d..|.d......|
|00000f20| 00 00 0c 0b 14 59 01 6d | 01 03 00 43 4f 4e 22 71 |.....Y.m|...CON"q|
|00000f30| 01 5d 00 00 00 73 01 a3 | 00 00 00 00 00 4e 00 00 |.]...s..|.....N..|
|00000f40| 00 04 00 52 0c 9d 01 00 | 0c 73 01 a3 00 00 0c 6d |...R....|.s.....m|
|00000f50| 01 15 00 2a 2a 20 bf f9 | bb 7e aa ba c0 c9 ae d7 |...** ..|.~......|
|00000f60| a6 57 ba d9 20 21 21 21 | 22 96 00 06 00 93 00 00 |.W.. !!!|".......|
|00000f70| 0c 6d 01 38 00 bd d0 bf | e9 a4 4a a6 b3 a6 e6 b8 |.m.8....|..J.....|
|00000f80| b9 aa ba 20 42 41 53 49 | 43 20 b5 7b a6 a1 a6 57 |... BASI|C .{...W|
|00000f90| ba d9 20 a9 ce 20 ab f6 | 5b 45 4e 54 45 52 5d c1 |.. .. ..|[ENTER].|
|00000fa0| e4 b5 b2 a7 f4 a4 bd a5 | ce b5 7b a6 a1 96 00 00 |........|..{.....|
|00000fb0| 0c 6d 01 02 00 3a 20 89 | 00 02 00 05 00 0b 14 4c |.m...: .|.......L|
|00000fc0| 01 b6 00 88 00 00 0c 0b | 14 4c 01 6d 01 00 00 03 |........|.L.m....|
|00000fd0| 01 5d 00 00 00 4e 00 04 | 00 ff ff a9 01 00 0c 6d |.]...N..|.......m|
|00000fe0| 01 33 00 bd d0 bf e9 a4 | 4a 27 bf e9 a5 58 c0 c9 |.3......|J'...X..|
|00000ff0| a6 57 ba d9 27 2c 20 ad | 59 ab f6 5b 45 4e 54 45 |.W..', .|Y..[ENTE|
|00001000| 52 5d c1 e4 ab 68 aa bd | b1 b5 a6 43 a6 4c a6 62 |R]...h..|...C.L.b|
|00001010| bf c3 b9 f5 a4 57 22 96 | 00 00 0c 6d 01 02 00 3a |.....W".|...m...:|
|00001020| 20 89 00 02 00 05 00 0b | 14 59 01 b6 00 88 00 00 | .......|.Y......|
|00001030| 0c 93 00 00 0c 0b 14 59 | 01 6d 01 00 00 03 01 6e |.......Y|.m.....n|
|00001040| 01 5d 00 00 00 6d 01 03 | 00 43 4f 4e 22 0c 14 59 |.]...m..|.CON"..Y|
|00001050| 01 00 0c 0b 14 67 01 6d | 01 00 00 03 01 61 00 00 |.....g.m|.....a..|
|00001060| 00 00 18 6c 00 00 0c 49 | 00 ff ff 00 18 6d 01 00 |...l...I|.....m..|
|00001070| 00 0c 14 67 01 00 18 6e | 00 00 0c 50 00 00 00 09 |...g...n|...P....|
|00001080| 00 08 00 70 0a 04 00 ff | ff ff ff 76 00 00 00 00 |...p....|...v....|
|00001090| 00 02 01 00 08 00 47 65 | 74 54 6f 6b 65 6e 02 05 |......Ge|tToken..|
|000010a0| b8 98 05 00 00 1b 00 ff | ff c1 ff ff ff 00 00 97 |........|........|
|000010b0| 00 02 00 00 00 00 00 97 | 00 0d 00 00 00 20 47 65 |........|..... Ge|
|000010c0| 74 54 6f 6b 65 6e 24 3a | 01 00 00 97 00 47 00 00 |tToken$:|.....G..|
|000010d0| 00 20 20 45 78 74 72 61 | 63 74 73 20 74 6f 6b 65 |.  Extra|cts toke|
|000010e0| 6e 73 20 66 72 6f 6d 20 | 61 20 73 74 72 69 6e 67 |ns from |a string|
|000010f0| 2e 20 41 20 74 6f 6b 65 | 6e 20 69 73 20 61 20 77 |. A toke|n is a w|
|00001100| 6f 72 64 20 74 68 61 74 | 20 69 73 20 73 75 72 72 |ord that| is surr|
|00001110| 6f 75 6e 64 65 64 50 00 | 00 97 00 45 00 00 00 20 |oundedP.|...E... |
|00001120| 20 62 79 20 73 65 70 61 | 72 61 74 6f 72 73 2c 20 | by sepa|rators, |
|00001130| 73 75 63 68 20 61 73 20 | 73 70 61 63 65 73 20 6f |such as |spaces o|
|00001140| 72 20 63 6f 6d 6d 61 73 | 2e 20 54 6f 6b 65 6e 73 |r commas|. Tokens|
|00001150| 20 61 72 65 20 65 78 74 | 72 61 63 74 65 64 20 61 | are ext|racted a|
|00001160| 6e 64 65 00 00 97 00 45 | 00 00 00 20 20 61 6e 61 |nde....E|...  ana|
|00001170| 6c 79 7a 65 64 20 77 68 | 65 6e 20 70 61 72 73 69 |lyzed wh|en parsi|
|00001180| 6e 67 20 73 65 6e 74 65 | 6e 63 65 73 20 6f 72 20 |ng sente|nces or |
|00001190| 63 6f 6d 6d 61 6e 64 73 | 2e 20 54 6f 20 75 73 65 |commands|. To use|
|000011a0| 20 74 68 65 20 47 65 74 | 54 6f 6b 65 6e 24 65 00 | the Get|Token$e.|
|000011b0| 00 97 00 47 00 00 00 20 | 20 66 75 6e 63 74 69 6f |...G... | functio|
|000011c0| 6e 2c 20 70 61 73 73 20 | 74 68 65 20 73 74 72 69 |n, pass |the stri|
|000011d0| 6e 67 20 74 6f 20 62 65 | 20 70 61 72 73 65 64 20 |ng to be| parsed |
|000011e0| 6f 6e 20 74 68 65 20 66 | 69 72 73 74 20 63 61 6c |on the f|irst cal|
|000011f0| 6c 2c 20 74 68 65 6e 20 | 70 61 73 73 00 00 00 97 |l, then |pass....|
|00001200| 00 47 00 00 00 20 20 61 | 20 6e 75 6c 6c 20 73 74 |.G...  a| null st|
|00001210| 72 69 6e 67 20 6f 6e 20 | 73 75 62 73 65 71 75 65 |ring on |subseque|
|00001220| 6e 74 20 63 61 6c 6c 73 | 20 75 6e 74 69 6c 20 74 |nt calls| until t|
|00001230| 68 65 20 66 75 6e 63 74 | 69 6f 6e 20 72 65 74 75 |he funct|ion retu|
|00001240| 72 6e 73 20 61 20 6e 75 | 6c 6c 00 00 00 97 00 37 |rns a nu|ll.....7|
|00001250| 00 00 00 20 20 74 6f 20 | 69 6e 64 69 63 61 74 65 |...  to |indicate|
|00001260| 20 74 68 61 74 20 74 68 | 65 20 65 6e 74 69 72 65 | that th|e entire|
|00001270| 20 73 74 72 69 6e 67 20 | 68 61 73 20 62 65 65 6e | string |has been|
|00001280| 20 70 61 72 73 65 64 2e | 6e 00 00 97 00 09 00 00 | parsed.|n.......|
|00001290| 00 20 49 6e 70 75 74 3a | 64 00 00 97 00 1e 00 00 |. Input:|d.......|
|000012a0| 00 20 20 53 65 61 72 63 | 68 24 20 3d 20 73 74 72 |.  Searc|h$ = str|
|000012b0| 69 6e 67 20 74 6f 20 73 | 65 61 72 63 68 00 00 97 |ing to s|earch...|
|000012c0| 00 22 00 00 00 20 20 44 | 65 6c 69 6d 24 20 20 3d |."...  D|elim$  =|
|000012d0| 20 53 74 72 69 6e 67 20 | 6f 66 20 73 65 70 61 72 | String |of separ|
|000012e0| 61 74 6f 72 73 00 00 97 | 00 0a 00 00 00 20 4f 75 |ators...|..... Ou|
|000012f0| 74 70 75 74 3a 00 00 97 | 00 1a 00 00 00 20 20 47 |tput:...|.....  G|
|00001300| 65 74 54 6f 6b 65 6e 24 | 20 3d 20 6e 65 78 74 20 |etToken$| = next |
|00001310| 74 6f 6b 65 6e 00 00 97 | 00 02 00 00 00 00 00 58 |token...|.......X|
|00001320| 00 12 00 60 00 85 02 02 | 00 6c 00 00 02 05 00 76 |...`....|.l.....v|
|00001330| 00 00 02 05 00 00 00 00 | 0c 97 00 41 00 03 00 20 |........|...A... |
|00001340| 4e 6f 74 65 20 74 68 61 | 74 20 53 61 76 65 53 74 |Note tha|t SaveSt|
|00001350| 72 24 20 61 6e 64 20 42 | 65 67 50 6f 73 20 6d 75 |r$ and B|egPos mu|
|00001360| 73 74 20 62 65 20 73 74 | 61 74 69 63 20 66 72 6f |st be st|atic fro|
|00001370| 6d 20 63 61 6c 6c 20 74 | 6f 20 63 61 6c 6c 61 00 |m call t|o calla.|
|00001380| 0c 97 00 34 00 03 00 20 | 28 6f 74 68 65 72 20 76 |...4... |(other v|
|00001390| 61 72 69 61 62 6c 65 73 | 20 61 72 65 20 6f 6e 6c |ariables| are onl|
|000013a0| 79 20 73 74 61 74 69 63 | 20 66 6f 72 20 65 66 66 |y static| for eff|
|000013b0| 69 63 69 65 6e 63 79 29 | 2e 00 0c 97 00 2b 00 03 |iciency)|.....+..|
|000013c0| 00 20 49 66 20 66 69 72 | 73 74 20 63 61 6c 6c 2c |. If fir|st call,|
|000013d0| 20 6d 61 6b 65 20 61 20 | 63 6f 70 79 20 6f 66 20 | make a |copy of |
|000013e0| 74 68 65 20 73 74 72 69 | 6e 67 69 00 0c 0b 14 6c |the stri|ngi....l|
|000013f0| 00 6d 01 00 00 71 01 6e | 01 61 00 00 00 00 18 64 |.m...q.n|.a.....d|
|00001400| 05 0c 00 00 02 00 18 0b | 14 6c 00 0c 14 0a 02 00 |........|.l......|
|00001410| 0c 50 00 00 00 00 0c 97 | 00 23 00 03 00 20 46 69 |.P......|.#... Fi|
|00001420| 6e 64 20 74 68 65 20 73 | 74 61 72 74 20 6f 66 20 |nd the s|tart of |
|00001430| 74 68 65 20 6e 65 78 74 | 20 74 6f 6b 65 6e 65 00 |the next| tokene.|
|00001440| 0c 0b 14 0a 02 0b 00 00 | 02 0b 14 0a 02 2d 01 ff |........|.....-..|
|00001450| ff 33 01 0b 14 76 00 0e | 00 02 00 7f 00 0c 00 15 |.3...v..|........|
|00001460| 02 00 0c 0b 00 15 02 61 | 00 00 00 00 18 97 00 21 |.......a|.......!|
|00001470| 00 06 00 20 53 65 74 20 | 70 6f 73 69 74 69 6f 6e |... Set |position|
|00001480| 20 74 6f 20 73 74 61 72 | 74 20 6f 66 20 74 6f 6b | to star|t of tok|
|00001490| 65 6e 00 00 18 0b 00 15 | 02 0b 00 00 02 00 01 64 |en......|.......d|
|000014a0| 05 77 01 0c 00 00 02 00 | 0c 49 00 ff ff 00 18 97 |.w......|.I......|
|000014b0| 00 28 00 06 00 20 49 66 | 20 6e 6f 20 6e 65 77 20 |.(... If| no new |
|000014c0| 74 6f 6b 65 6e 2c 20 71 | 75 69 74 20 61 6e 64 20 |token, q|uit and |
|000014d0| 72 65 74 75 72 6e 20 6e | 75 6c 6c 00 18 6d 01 00 |return n|ull..m..|
|000014e0| 00 0c 14 60 00 00 18 55 | 00 ff ff 00 0c 50 00 00 |...`...U|.....P..|
|000014f0| 00 00 0c 97 00 14 00 03 | 00 20 46 69 6e 64 20 65 |........|. Find e|
|00001500| 6e 64 20 6f 66 20 74 6f | 6b 65 6e 00 0c 0b 14 0a |nd of to|ken.....|
|00001510| 02 0b 00 00 02 0b 14 0a | 02 2d 01 ff ff 33 01 0b |........|.-...3..|
|00001520| 14 76 00 0e 00 02 00 a2 | 00 0c 00 15 02 00 0c 0b |.v......|........|
|00001530| 00 15 02 61 00 00 00 00 | 18 97 00 1f 00 06 00 20 |...a....|....... |
|00001540| 53 65 74 20 70 6f 73 69 | 74 69 6f 6e 20 74 6f 20 |Set posi|tion to |
|00001550| 65 6e 64 20 6f 66 20 74 | 6f 6b 65 6e 02 00 18 0b |end of t|oken....|
|00001560| 00 00 02 0b 00 15 02 00 | 01 64 05 77 01 0c 00 15 |........|.d.w....|
|00001570| 02 00 0c 49 00 ff ff 00 | 18 97 00 30 00 06 00 20 |...I....|...0... |
|00001580| 49 66 20 6e 6f 20 65 6e | 64 20 6f 66 20 74 6f 6b |If no en|d of tok|
|00001590| 65 6e 2c 20 72 65 74 75 | 72 6e 20 73 65 74 20 74 |en, retu|rn set t|
|000015a0| 6f 20 65 6e 64 20 61 20 | 76 61 6c 75 65 00 18 0b |o end a |value...|
|000015b0| 14 0a 02 2d 01 ff ff 64 | 05 00 01 0c 00 15 02 00 |...-...d|........|
|000015c0| 0c 50 00 00 0c 97 00 21 | 00 03 00 20 43 75 74 20 |.P.....!|... Cut |
|000015d0| 74 6f 6b 65 6e 20 6f 75 | 74 20 6f 66 20 73 65 61 |token ou|t of sea|
|000015e0| 72 63 68 20 73 74 72 69 | 6e 67 20 00 0c 0b 14 0a |rch stri|ng .....|
|000015f0| 02 0b 00 00 02 0b 00 15 | 02 0b 00 00 02 77 01 33 |........|.....w.3|
|00001600| 01 0c 14 60 00 00 0c 97 | 00 1c 00 03 00 20 53 65 |...`....|..... Se|
|00001610| 74 20 6e 65 77 20 73 74 | 61 72 74 69 6e 67 20 70 |t new st|arting p|
|00001620| 6f 73 69 74 69 6f 6e 00 | 0c 0b 00 15 02 0c 00 00 |osition.|........|
|00001630| 02 00 00 00 00 51 00 09 | 00 08 00 ff ff 04 00 ff |.....Q..|........|
|00001640| ff ff ff 33 00 00 00 ff | ff 02 0c 00 06 00 53 74 |...3....|......St|
|00001650| 72 53 70 6e 02 01 b8 98 | 02 00 00 1b 00 ff ff c1 |rSpn....|........|
|00001660| ff ff ff 00 00 97 00 02 | 00 00 00 00 00 97 00 0a |........|........|
|00001670| 00 00 00 20 53 74 72 53 | 70 6e 3a 00 00 97 00 45 |... StrS|pn:....E|
|00001680| 00 00 00 20 20 53 65 61 | 72 63 68 65 73 20 49 6e |...  Sea|rches In|
|00001690| 53 74 72 69 6e 67 24 20 | 74 6f 20 66 69 6e 64 20 |String$ |to find |
|000016a0| 74 68 65 20 66 69 72 73 | 74 20 63 68 61 72 61 63 |the firs|t charac|
|000016b0| 74 65 72 20 74 68 61 74 | 20 69 73 20 6e 6f 74 20 |ter that| is not |
|000016c0| 6f 6e 65 20 6f 66 6e 00 | 00 97 00 42 00 00 00 20 |one ofn.|...B... |
|000016d0| 20 74 68 6f 73 65 20 69 | 6e 20 53 65 70 61 72 61 | those i|n Separa|
|000016e0| 74 6f 72 24 2e 20 52 65 | 74 75 72 6e 73 20 74 68 |tor$. Re|turns th|
|000016f0| 65 20 69 6e 64 65 78 20 | 6f 66 20 74 68 61 74 20 |e index |of that |
|00001700| 63 68 61 72 61 63 74 65 | 72 2e 20 54 68 69 73 00 |characte|r. This.|
|00001710| 00 97 00 36 00 00 00 20 | 20 66 75 6e 63 74 69 6f |...6... | functio|
|00001720| 6e 20 63 61 6e 20 62 65 | 20 75 73 65 64 20 74 6f |n can be| used to|
|00001730| 20 66 69 6e 64 20 74 68 | 65 20 73 74 61 72 74 20 | find th|e start |
|00001740| 6f 66 20 61 20 74 6f 6b | 65 6e 2e 00 00 97 00 09 |of a tok|en......|
|00001750| 00 00 00 20 49 6e 70 75 | 74 3a 69 00 00 97 00 20 |... Inpu|t:i.... |
|00001760| 00 00 00 20 20 49 6e 53 | 74 72 69 6e 67 24 20 3d |...  InS|tring$ =|
|00001770| 20 73 74 72 69 6e 67 20 | 74 6f 20 73 65 61 72 63 | string |to searc|
|00001780| 68 00 00 97 00 29 00 00 | 00 20 20 53 65 70 61 72 |h....)..|.  Separ|
|00001790| 61 74 6f 72 24 20 3d 20 | 63 68 61 72 61 63 74 65 |ator$ = |characte|
|000017a0| 72 73 20 74 6f 20 73 65 | 61 72 63 68 20 66 6f 72 |rs to se|arch for|
|000017b0| 74 00 00 97 00 0a 00 00 | 00 20 4f 75 74 70 75 74 |t.......|. Output|
|000017c0| 3a 00 00 97 00 43 00 00 | 00 20 20 53 74 72 53 70 |:....C..|.  StrSp|
|000017d0| 6e 20 3d 20 69 6e 64 65 | 78 20 74 6f 20 66 69 72 |n = inde|x to fir|
|000017e0| 73 74 20 6e 6f 6e 6d 61 | 74 63 68 20 69 6e 20 49 |st nonma|tch in I|
|000017f0| 6e 53 74 72 69 6e 67 24 | 20 6f 72 20 30 20 69 66 |nString$| or 0 if|
|00001800| 20 61 6c 6c 20 6d 61 74 | 63 68 00 00 00 97 00 02 | all mat|ch......|
|00001810| 00 00 00 00 00 58 00 12 | 00 7f 00 81 02 02 00 89 |.....X..|........|
|00001820| 00 00 02 05 00 95 00 00 | 02 05 00 00 00 00 0c 0b |........|........|
|00001830| 14 89 00 2d 01 ff ff 0c | 00 5a 02 00 0c 64 05 0c |...-....|.Z...d..|
|00001840| 00 00 02 00 0c 97 00 40 | 00 03 00 20 4c 6f 6f 6b |.......@|... Look|
|00001850| 20 66 6f 72 20 73 74 61 | 72 74 20 6f 66 20 61 20 | for sta|rt of a |
|00001860| 74 6f 6b 65 6e 20 28 63 | 68 61 72 61 63 74 65 72 |token (c|haracter|
|00001870| 20 74 68 61 74 20 69 73 | 6e 27 74 20 61 20 64 65 | that is|n't a de|
|00001880| 6c 69 6d 69 74 65 72 29 | 2e 00 0c 0b 14 95 00 0b |limiter)|........|
|00001890| 14 89 00 0b 00 00 02 64 | 05 33 01 24 01 48 00 ff |.......d|.3.$.H..|
|000018a0| ff 00 18 0b 00 00 02 0b | 00 5a 02 5f 01 61 00 00 |........|.Z._.a..|
|000018b0| 00 00 24 64 01 0c 00 7f | 00 00 24 55 00 ff ff 00 |..$d....|..$U....|
|000018c0| 18 49 00 ff ff 00 24 0b | 00 00 02 64 05 00 01 0c |.I....$.|...d....|
|000018d0| 00 00 02 00 18 50 00 00 | 0c 62 00 ff ff 00 0c 0b |.....P..|.b......|
|000018e0| 00 00 02 0c 00 7f 00 00 | 00 00 00 51 00 09 00 08 |........|...Q....|
|000018f0| 00 ff ff 04 00 ff ff ff | ff 1c 00 00 00 ff ff 02 |........|........|
|00001900| 0c 00 06 00 53 74 72 42 | 72 6b 02 01 b8 90 02 00 |....StrB|rk......|
|00001910| 00 1b 00 ff ff c1 ff ff | ff 00 00 97 00 02 00 00 |........|........|
|00001920| 00 00 00 97 00 0a 00 00 | 00 20 53 74 72 42 72 6b |........|. StrBrk|
|00001930| 3a 00 00 97 00 46 00 00 | 00 20 20 53 65 61 72 63 |:....F..|.  Searc|
|00001940| 68 65 73 20 49 6e 53 74 | 72 69 6e 67 24 20 74 6f |hes InSt|ring$ to|
|00001950| 20 66 69 6e 64 20 74 68 | 65 20 66 69 72 73 74 20 | find th|e first |
|00001960| 63 68 61 72 61 63 74 65 | 72 20 66 72 6f 6d 20 61 |characte|r from a|
|00001970| 6d 6f 6e 67 20 74 68 6f | 73 65 20 69 6e 00 00 97 |mong tho|se in...|
|00001980| 00 46 00 00 00 20 20 53 | 65 70 61 72 61 74 6f 72 |.F...  S|eparator|
|00001990| 24 2e 20 52 65 74 75 72 | 6e 73 20 74 68 65 20 69 |$. Retur|ns the i|
|000019a0| 6e 64 65 78 20 6f 66 20 | 74 68 61 74 20 63 68 61 |ndex of |that cha|
|000019b0| 72 61 63 74 65 72 2e 20 | 54 68 69 73 20 66 75 6e |racter. |This fun|
|000019c0| 63 74 69 6f 6e 20 63 61 | 6e 00 00 97 00 27 00 00 |ction ca|n....'..|
|000019d0| 00 20 20 62 65 20 75 73 | 65 64 20 74 6f 20 66 69 |.  be us|ed to fi|
|000019e0| 6e 64 20 74 68 65 20 65 | 6e 64 20 6f 66 20 61 20 |nd the e|nd of a |
|000019f0| 74 6f 6b 65 6e 2e 61 00 | 00 97 00 09 00 00 00 20 |token.a.|....... |
|00001a00| 49 6e 70 75 74 3a 65 00 | 00 97 00 20 00 00 00 20 |Input:e.|... ... |
|00001a10| 20 49 6e 53 74 72 69 6e | 67 24 20 3d 20 73 74 72 | InStrin|g$ = str|
|00001a20| 69 6e 67 20 74 6f 20 73 | 65 61 72 63 68 00 00 97 |ing to s|earch...|
|00001a30| 00 29 00 00 00 20 20 53 | 65 70 61 72 61 74 6f 72 |.)...  S|eparator|
|00001a40| 24 20 3d 20 63 68 61 72 | 61 63 74 65 72 73 20 74 |$ = char|acters t|
|00001a50| 6f 20 73 65 61 72 63 68 | 20 66 6f 72 00 00 00 97 |o search| for....|
|00001a60| 00 0a 00 00 00 20 4f 75 | 74 70 75 74 3a 00 00 97 |..... Ou|tput:...|
|00001a70| 00 41 00 00 00 20 20 53 | 74 72 42 72 6b 20 3d 20 |.A...  S|trBrk = |
|00001a80| 69 6e 64 65 78 20 74 6f | 20 66 69 72 73 74 20 6d |index to| first m|
|00001a90| 61 74 63 68 20 69 6e 20 | 49 6e 53 74 72 69 6e 67 |atch in |InString|
|00001aa0| 24 20 6f 72 20 30 20 69 | 66 20 6e 6f 6e 65 20 6d |$ or 0 i|f none m|
|00001ab0| 61 74 63 68 6e 00 00 97 | 00 02 00 00 00 00 00 58 |atchn...|.......X|
|00001ac0| 00 12 00 a2 00 00 02 02 | 00 89 00 00 02 05 00 95 |........|........|
|00001ad0| 00 00 02 05 00 00 00 00 | 0c 0b 14 89 00 2d 01 ff |........|.....-..|
|00001ae0| ff 0c 00 5a 02 00 0c 64 | 05 0c 00 00 02 00 0c 97 |...Z...d|........|
|00001af0| 00 3f 00 03 00 20 4c 6f | 6f 6b 20 66 6f 72 20 65 |.?... Lo|ok for e|
|00001b00| 6e 64 20 6f 66 20 74 6f | 6b 65 6e 20 28 66 69 72 |nd of to|ken (fir|
|00001b10| 73 74 20 63 68 61 72 61 | 63 74 65 72 20 74 68 61 |st chara|cter tha|
|00001b20| 74 20 69 73 20 61 20 64 | 65 6c 69 6d 69 74 65 72 |t is a d|elimiter|
|00001b30| 29 2e 63 00 0c 0b 14 95 | 00 0b 14 89 00 0b 00 00 |).c.....|........|
|00001b40| 02 64 05 33 01 24 01 64 | 01 03 01 48 00 ff ff 00 |.d.3.$.d|...H....|
|00001b50| 18 0b 00 00 02 0b 00 5a | 02 5f 01 61 00 00 00 00 |.......Z|._.a....|
|00001b60| 24 64 01 0c 00 a2 00 00 | 24 55 00 ff ff 00 18 49 |$d......|$U.....I|
|00001b70| 00 ff ff 00 24 0b 00 00 | 02 64 05 00 01 0c 00 00 |....$...|.d......|
|00001b80| 02 00 18 50 00 00 0c 62 | 00 ff ff 00 0c 0b 00 00 |...P...b|........|
|00001b90| 02 0c 00 a2 00 00 00 00 | 00 51 00 09 00 08 00 ff |........|.Q......|
|00001ba0| ff 04 00 ff ff ff ff 1c | 00 00 00 ff ff 02 0c 00 |........|........|
|00001bb0| 07 00 49 73 44 69 67 69 | 74 02 01 b8 28 02 00 00 |..IsDigi|t...(...|
|00001bc0| 1b 00 ff ff c1 ff ff ff | 00 00 97 00 02 00 00 00 |........|........|
|00001bd0| 00 00 97 00 0b 00 00 00 | 20 49 73 44 69 67 69 74 |........| IsDigit|
|00001be0| 3a ff 00 00 97 00 42 00 | 00 00 20 20 52 65 74 75 |:.....B.|..  Retu|
|00001bf0| 72 6e 73 20 74 72 75 65 | 20 69 66 20 63 68 61 72 |rns true| if char|
|00001c00| 61 63 74 65 72 20 70 61 | 73 73 65 64 20 69 73 20 |acter pa|ssed is |
|00001c10| 61 20 64 65 63 69 6d 61 | 6c 20 64 69 67 69 74 2e |a decima|l digit.|
|00001c20| 20 53 69 6e 63 65 20 61 | 6e 79 00 00 97 00 44 00 | Since a|ny....D.|
|00001c30| 00 00 20 20 42 41 53 49 | 43 20 74 6f 6b 65 6e 20 |..  BASI|C token |
|00001c40| 73 74 61 72 74 69 6e 67 | 20 77 69 74 68 20 61 20 |starting| with a |
|00001c50| 64 69 67 69 74 20 69 73 | 20 61 20 6e 75 6d 62 65 |digit is| a numbe|
|00001c60| 72 2c 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |r, the f|unction |
|00001c70| 6f 6e 6c 79 00 00 97 00 | 47 00 00 00 20 20 6e 65 |only....|G...  ne|
|00001c80| 65 64 73 20 74 6f 20 63 | 68 65 63 6b 20 74 68 65 |eds to c|heck the|
|00001c90| 20 66 69 72 73 74 20 64 | 69 67 69 74 2e 20 44 6f | first d|igit. Do|
|00001ca0| 65 73 6e 27 74 20 63 68 | 65 63 6b 20 66 6f 72 20 |esn't ch|eck for |
|00001cb0| 6e 65 67 61 74 69 76 65 | 20 6e 75 6d 62 65 72 73 |negative| numbers|
|00001cc0| 2c 00 00 00 97 00 1f 00 | 00 00 20 20 62 75 74 20 |,.......|..  but |
|00001cd0| 74 68 61 74 27 73 20 6e | 6f 74 20 6e 65 65 64 65 |that's n|ot neede|
|00001ce0| 64 20 68 65 72 65 2e 67 | 00 00 97 00 09 00 00 00 |d here.g|........|
|00001cf0| 20 49 6e 70 75 74 3a 68 | 00 00 97 00 30 00 00 00 | Input:h|....0...|
|00001d00| 20 20 43 68 61 72 24 20 | 2d 20 69 6e 69 74 69 61 |  Char$ |- initia|
|00001d10| 6c 20 63 68 61 72 61 63 | 74 65 72 20 6f 66 20 73 |l charac|ter of s|
|00001d20| 74 72 69 6e 67 20 74 6f | 20 63 68 65 63 6b 00 00 |tring to| check..|
|00001d30| 97 00 0a 00 00 00 20 4f | 75 74 70 75 74 3a 00 00 |...... O|utput:..|
|00001d40| 97 00 22 00 00 00 20 20 | 49 73 44 69 67 69 74 20 |.."...  |IsDigit |
|00001d50| 2d 20 74 72 75 65 20 69 | 66 20 77 69 74 68 69 6e |- true i|f within|
|00001d60| 20 30 20 2d 20 39 00 00 | 97 00 02 00 00 00 00 00 | 0 - 9..|........|
|00001d70| 58 00 0c 00 ac 00 00 02 | 01 00 b7 00 00 02 05 00 |X.......|........|
|00001d80| 00 00 00 0c 0b 14 b7 00 | 6d 01 00 00 03 01 6e 01 |........|m.....n.|
|00001d90| 61 00 00 00 00 18 0b 00 | 15 01 0c 00 ac 00 00 0c |a.......|........|
|00001da0| 49 00 ff ff 00 18 0b 14 | b7 00 06 01 0c 00 4f 02 |I.......|......O.|
|00001db0| 00 18 0b 00 4f 02 6d 01 | 01 00 30 22 06 01 5e 01 |....O.m.|..0"..^.|
|00001dc0| 6e 01 0b 00 4f 02 6d 01 | 01 00 39 22 06 01 62 01 |n...O.m.|..9"..b.|
|00001dd0| 6e 01 01 01 0c 00 ac 00 | 00 0c 50 00 00 00 00 00 |n.......|..P.....|
|00001de0| 51 00 09 00 08 00 ff ff | 04 00 ff ff ff ff 16 00 |Q.......|........|
|00001df0| 00 00 ff ff 02 0c 00 0e | 00 49 6e 74 72 6f 64 75 |........|.Introdu|
|00001e00| 63 74 69 6f 6e 31 34 01 | 00 38 12 04 00 00 1b 00 |ction14.|.8......|
|00001e10| ff ff c1 ff ff ff 00 00 | 76 00 06 00 bf 00 00 01 |........|v.......|
|00001e20| 00 00 00 08 64 29 0c 00 | 33 02 00 08 6d 01 15 00 |....d)..|3...m...|
|00001e30| 20 20 a7 52 20 20 20 b0 | a3 20 20 20 a6 e6 20 20 |  .R   .|.   ..  |
|00001e40| 20 b8 b9 20 20 22 0c 14 | 38 02 00 08 65 01 50 00 | ..  "..|8...e.P.|
|00001e50| 0b 14 38 02 2d 01 ff ff | 77 01 6e 01 64 09 60 01 |..8.-...|w.n.d.`.|
|00001e60| 0c 00 41 02 00 08 73 01 | a3 00 00 08 73 01 64 01 |..A...s.|....s.d.|
|00001e70| 73 01 64 1d a4 00 04 00 | 00 08 73 01 64 09 73 01 |s.d.....|..s.d.s.|
|00001e80| 0b 00 41 02 73 01 64 05 | 73 01 64 01 73 01 65 01 |..A.s.d.|s.d.s.e.|
|00001e90| 0c 00 c1 00 0a 00 06 00 | 0b 14 38 02 96 00 00 08 |........|..8.....|
|00001ea0| 73 01 64 1d 73 01 64 01 | a4 00 04 00 00 08 73 01 |s.d.s.d.|......s.|
|00001eb0| 64 15 c1 00 02 00 00 08 | 0b 00 33 02 90 00 92 00 |d.......|..3.....|
|00001ec0| 6d 01 3c 00 a4 ba ae 65 | bb a1 a9 fa 20 20 20 3a |m.<....e|....   :|
|00001ed0| 20 b3 6f ad d3 b5 7b a6 | a1 af e0 b3 42 b2 7a 20 | .o...{.|....B.z |
|00001ee0| 42 41 53 49 43 41 2f 47 | 57 42 41 53 49 43 20 b5 |BASICA/G|WBASIC .|
|00001ef0| 7b a6 a1 2c 20 b1 4e a6 | e6 b8 b9 a7 52 b0 a3 2e |{.., .N.|....R...|
|00001f00| 96 00 00 08 93 00 00 08 | 0b 00 33 02 90 00 92 00 |........|..3.....|
|00001f10| 6d 01 0d 00 42 41 53 49 | 43 20 b1 d0 ab c7 20 3a |m...BASI|C .... :|
|00001f20| 20 22 96 00 00 08 0b 00 | 33 02 90 00 92 00 6d 01 | "......|3.....m.|
|00001f30| 2c 00 20 20 20 20 20 20 | 20 20 20 20 31 29 20 bf |,.      |    1) .|
|00001f40| f9 bb 7e b3 42 b2 7a 28 | 45 52 52 4f 52 20 48 41 |..~.B.z(|ERROR HA|
|00001f50| 4e 44 4c 49 4e 47 29 aa | ba a7 de a5 a9 2e 96 00 |NDLING).|........|
|00001f60| 00 08 0b 00 33 02 90 00 | 92 00 6d 01 28 00 20 20 |....3...|..m.(.  |
|00001f70| 20 20 20 20 20 20 20 20 | 32 29 20 a5 ce 27 53 48 |        |2) ..'SH|
|00001f80| 41 52 45 44 27 ab fc a5 | 4f ab c5 a7 69 a6 40 a5 |ARED'...|O...i.@.|
|00001f90| ce c5 dc bc c6 2e 96 00 | 00 08 0b 00 33 02 90 00 |........|....3...|
|00001fa0| 92 00 6d 01 2a 00 20 20 | 20 20 20 20 20 20 20 20 |..m.*.  |        |
|00001fb0| 33 29 20 c0 c9 ae d7 aa | ba b6 7d b1 d2 2c 20 a6 |3) .....|..}.., .|
|00001fc0| 73 a8 fa 2c 20 c3 f6 b3 | ac b5 a5 a7 de a5 a9 2e |s.., ...|........|
|00001fd0| 96 00 00 08 0b 00 33 02 | 90 00 92 00 6d 01 1c 00 |......3.|....m...|
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 34 29 20 a6 72 a6 |        |  4) .r.|
|00001ff0| ea aa ba b3 42 b2 7a a7 | de a5 a9 2e 96 00 00 08 |....B.z.|........|
|00002000| 0b 00 33 02 90 00 92 00 | 6d 01 27 00 20 20 20 20 |..3.....|m.'.    |
|00002010| 20 20 20 20 20 20 35 29 | 20 ab d8 a5 df 27 4b 65 |      5)| ....'Ke|
|00002020| 79 77 6f 72 64 20 54 61 | 62 6c 65 27 aa ba a7 de |yword Ta|ble'....|
|00002030| a5 a9 2e 22 96 00 00 08 | 0b 00 33 02 90 00 92 00 |..."....|..3.....|
|00002040| 6d 01 31 00 20 20 20 20 | 20 20 20 20 20 20 36 29 |m.1.    |      6)|
|00002050| 20 54 6f 6b 65 6e 69 7a | 65 20 28 b1 4e a6 72 a6 | Tokeniz|e (.N.r.|
|00002060| ea a4 c0 b8 d1 a6 a8 54 | 6f 6b 65 6e 29 20 aa ba |.......T|oken) ..|
|00002070| a7 de a5 a9 2e 22 96 00 | 00 08 0b 00 33 02 90 00 |....."..|....3...|
|00002080| 92 00 6d 01 38 00 20 20 | 20 20 20 20 20 20 20 20 |..m.8.  |        |
|00002090| 37 29 20 b3 6f ac 4f ad | d3 27 54 77 6f 2d 50 61 |7) .o.O.|.'Two-Pa|
|000020a0| 73 73 ab 65 b8 6d b3 42 | b2 7a be b9 27 28 50 72 |ss.e.m.B|.z..'(Pr|
|000020b0| 65 2d 50 72 6f 63 65 73 | 73 6f 72 29 aa ba 96 00 |e-Proces|sor)....|
|000020c0| 00 08 0b 00 33 02 90 00 | 92 00 6d 01 12 00 20 20 |....3...|..m...  |
|000020d0| 20 20 20 20 20 20 20 20 | 20 20 20 bd 64 a8 d2 2e |        |   .d...|
|000020e0| 96 00 00 08 0b 00 33 02 | 90 00 92 00 6d 01 3c 00 |......3.|....m.<.|
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 38 29 20 a7 41 a5 |        |  8) .A.|
|00002100| 69 a5 48 a5 ce 27 ad b5 | ae c4 ae 69 a5 dc 2e 42 |i.H..'..|...i...B|
|00002110| 41 53 27 ac b0 bf e9 a4 | 4a c0 c9 2c 20 a8 d3 b4 |AS'.....|J.., ...|
|00002120| fa b8 d5 b3 6f ad d3 b5 | 7b a6 a1 2e 96 00 00 08 |....o...|{.......|
|00002130| 93 00 00 08 0b 00 33 02 | 90 00 92 00 6d 01 0d 00 |......3.|....m...|
|00002140| b3 d0 b7 4e ae c9 b6 a1 | 20 20 20 3a 20 22 96 00 |...N....|   : "..|
|00002150| 00 08 0b 00 33 02 90 00 | 92 00 6d 01 37 00 20 20 |....3...|..m.7.  |
|00002160| 20 20 20 20 20 20 20 20 | 31 29 20 a7 41 a5 69 a5 |        |1) .A.i.|
|00002170| 48 b0 d1 a6 d2 be c7 a8 | ec aa ba a7 de a5 a9 2c |H.......|.......,|
|00002180| 20 bc 67 a4 40 ad d3 27 | bb 79 aa 6b b8 d1 aa 52 | .g.@..'|.y.k...R|
|00002190| b5 7b a6 a1 27 22 96 00 | 00 08 0b 00 33 02 90 00 |.{..'"..|....3...|
|000021a0| 92 00 6d 01 18 00 20 20 | 20 20 20 20 20 20 20 20 |..m...  |        |
|000021b0| 20 20 20 28 20 50 61 72 | 73 65 72 20 29 2e 96 00 |   ( Par|ser )...|
|000021c0| 00 08 73 01 65 01 17 00 | c1 00 02 00 00 08 0b 00 |..s.e...|........|
|000021d0| 33 02 90 00 92 00 6d 01 | 26 00 20 20 20 20 20 20 |3.....m.|&.      |
|000021e0| 20 20 20 20 20 20 20 bd | d0 ab f6 a5 f4 b7 4e c1 |       .|......N.|
|000021f0| e4 2c 20 b1 d2 b0 ca b5 | 7b a6 a1 20 2e 2e 2e 20 |., .....|{.. ... |
|00002200| 95 00 93 00 00 08 46 00 | 06 00 20 01 6d 01 00 00 |......F.|.. .m...|
|00002210| 03 01 64 00 ff ff 00 00 | 51 00 09 00 08 00 ff ff |..d.....|Q.......|
|00002220| 04 00 ff ff ff ff 1e 00 | 00 00 ff ff 02 0c 00 0c |........|........|
|00002230| 00 47 65 74 46 69 6c 65 | 4e 61 6d 65 73 01 00 b8 |.GetFile|Names...|
|00002240| 5e 04 00 00 1b 00 ff ff | c1 ff ff ff 00 00 97 00 |^.......|........|
|00002250| 02 00 00 00 00 00 97 00 | 10 00 00 00 20 47 65 74 |........|.... Get|
|00002260| 46 69 6c 65 4e 61 6d 65 | 73 3a 00 00 97 00 3c 00 |FileName|s:....<.|
|00002270| 00 00 20 20 47 65 74 73 | 20 61 20 66 69 6c 65 20 |..  Gets| a file |
|00002280| 6e 61 6d 65 20 66 72 6f | 6d 20 43 4f 4d 4d 41 4e |name fro|m COMMAN|
|00002290| 44 24 20 6f 72 20 62 79 | 20 70 72 6f 6d 70 74 69 |D$ or by| prompti|
|000022a0| 6e 67 20 74 68 65 20 75 | 73 65 72 2e 00 00 97 00 |ng the u|ser.....|
|000022b0| 09 00 00 00 20 49 6e 70 | 75 74 3a 61 00 00 97 00 |.... Inp|ut:a....|
|000022c0| 1f 00 00 00 20 20 55 73 | 65 64 20 43 6f 6d 6d 61 |....  Us|ed Comma|
|000022d0| 6e 64 24 20 6f 72 20 75 | 73 65 72 20 69 6e 70 75 |nd$ or u|ser inpu|
|000022e0| 74 4e 00 00 97 00 0a 00 | 00 00 20 4f 75 74 70 75 |tN......|.. Outpu|
|000022f0| 74 3a 00 00 97 00 28 00 | 00 00 20 20 44 65 66 69 |t:....(.|..  Defi|
|00002300| 6e 65 73 20 49 6e 70 75 | 74 46 69 6c 65 73 24 20 |nes Inpu|tFiles$ |
|00002310| 61 6e 64 20 4f 75 74 70 | 75 74 46 69 6c 65 73 24 |and Outp|utFiles$|
|00002320| 00 00 97 00 02 00 00 00 | 00 00 76 00 06 00 d1 00 |........|..v.....|
|00002330| 00 01 00 00 00 00 00 0c | 0a 01 6d 01 00 00 03 01 |........|..m.....|
|00002340| 6e 01 61 00 00 00 00 18 | 73 01 a3 00 00 18 6d 01 |n.a.....|s.....m.|
|00002350| 35 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |5.      |        |
|00002360| 20 20 20 20 20 20 20 4d | 69 63 72 6f 73 6f 66 74 |       M|icrosoft|
|00002370| 20 42 41 53 49 43 20 a7 | 52 b0 a3 a6 e6 b8 b9 a4 | BASIC .|R.......|
|00002380| bd a5 ce b5 7b a6 a1 22 | 96 00 00 18 93 00 00 18 |....{.."|........|
|00002390| 6d 01 30 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |m.0.    |        |
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 20 b6 |        |     ( .|
|000023b0| c8 be 41 a5 ce a9 f3 20 | 41 53 43 49 49 20 c0 c9 |..A.... |ASCII ..|
|000023c0| ae d7 20 29 96 00 00 18 | 93 00 06 00 93 00 00 18 |.. )....|........|
|000023d0| 6d 01 38 00 bd d0 bf e9 | a4 4a a6 b3 a6 e6 b8 b9 |m.8.....|.J......|
|000023e0| aa ba 20 42 41 53 49 43 | 20 b5 7b a6 a1 a6 57 ba |.. BASIC| .{...W.|
|000023f0| d9 20 a9 ce 20 ab f6 5b | 45 4e 54 45 52 5d c1 e4 |. .. ..[|ENTER]..|
|00002400| b5 b2 a7 f4 a4 bd a5 ce | b5 7b a6 a1 96 00 00 18 |........|.{......|
|00002410| 6d 01 02 00 3a 20 89 00 | 02 00 05 00 0b 14 4c 01 |m...: ..|......L.|
|00002420| b6 00 88 00 00 18 0b 14 | 4c 01 6d 01 00 00 03 01 |........|L.m.....|
|00002430| 5d 00 00 00 4e 00 00 18 | 6d 01 33 00 bd d0 bf e9 |]...N...|m.3.....|
|00002440| a4 4a 27 bf e9 a5 58 c0 | c9 a6 57 ba d9 27 2c 20 |.J'...X.|..W..', |
|00002450| ad 59 ab f6 5b 45 4e 54 | 45 52 5d c1 e4 ab 68 aa |.Y..[ENT|ER]...h.|
|00002460| bd b1 b5 a6 43 a6 4c a6 | 62 bf c3 b9 f5 a4 57 22 |....C.L.|b.....W"|
|00002470| 96 00 00 18 6d 01 02 00 | 3a 20 89 00 02 00 05 00 |....m...|: ......|
|00002480| 0b 14 59 01 b6 00 88 00 | 00 18 93 00 00 18 0b 14 |..Y.....|........|
|00002490| 59 01 6d 01 00 00 03 01 | 6e 01 5d 00 00 00 6d 01 |Y.m.....|n.]...m.|
|000024a0| 03 00 43 4f 4e 22 0c 14 | 59 01 00 0c 49 00 ff ff |..CON"..|Y...I...|
|000024b0| 00 18 0a 01 0b 14 44 01 | 0e 14 02 00 60 00 59 01 |......D.|....`.Y.|
|000024c0| 0c 14 4c 01 00 18 6d 01 | 00 00 0b 14 44 01 0e 14 |..L...m.|....D...|
|000024d0| 02 00 60 00 59 01 0c 14 | 59 01 00 18 0b 14 59 01 |..`.Y...|Y.....Y.|
|000024e0| 6d 01 00 00 03 01 6e 01 | 61 00 00 00 00 24 6d 01 |m.....n.|a....$m.|
|000024f0| 33 00 bd d0 bf e9 a4 4a | 27 bf e9 a5 58 c0 c9 a6 |3......J|'...X...|
|00002500| 57 ba d9 27 2c 20 ad 59 | ab f6 5b 45 4e 54 45 52 |W..', .Y|..[ENTER|
|00002510| 5d c1 e4 ab 68 aa bd b1 | b5 a6 43 a6 4c a6 62 bf |]...h...|..C.L.b.|
|00002520| c3 b9 f5 a4 57 22 96 00 | 00 24 6d 01 02 00 3a 20 |....W"..|.$m...: |
|00002530| 89 00 02 00 05 00 0b 14 | 59 01 b6 00 88 00 00 24 |........|Y......$|
|00002540| 93 00 00 24 0b 14 59 01 | 6d 01 00 00 03 01 6e 01 |...$..Y.|m.....n.|
|00002550| 5d 00 00 00 6d 01 03 00 | 43 4f 4e 22 0c 14 59 01 |]...m...|CON"..Y.|
|00002560| 00 18 50 00 00 0c 50 00 | 00 0c 0b 14 4c 01 6d 01 |..P...P.|....L.m.|
|00002570| 01 00 2e 22 24 01 64 01 | 03 01 61 00 00 00 00 18 |..."$.d.|..a.....|
|00002580| 0b 14 4c 01 6d 01 04 00 | 2e 42 41 53 00 01 0c 14 |..L.m...|.BAS....|
|00002590| 4c 01 00 0c 50 00 00 0c | 0b 14 59 01 6d 01 01 00 |L...P...|..Y.m...|
|000025a0| 2e 22 24 01 64 01 03 01 | 61 00 00 00 00 18 0b 14 |."$.d...|a.......|
|000025b0| 59 01 74 00 ff ff 00 24 | 6d 01 03 00 43 4f 4e 22 |Y.t....$|m...CON"|
|000025c0| 3b 00 6d 01 04 00 53 43 | 52 4e 3b 00 6d 01 03 00 |;.m...SC|RN;.m...|
|000025d0| 50 52 4e 22 3b 00 6d 01 | 04 00 43 4f 4d 31 3b 00 |PRN";.m.|..COM1;.|
|000025e0| 6d 01 04 00 43 4f 4d 32 | 3b 00 6d 01 04 00 4c 50 |m...COM2|;.m...LP|
|000025f0| 54 31 3b 00 6d 01 04 00 | 4c 50 54 32 3b 00 6d 01 |T1;.m...|LPT2;.m.|
|00002600| 04 00 4c 50 54 33 3b 00 | 00 30 55 00 ff ff 00 24 |..LPT3;.|.0U....$|
|00002610| 3a 00 00 30 0b 14 59 01 | 6d 01 04 00 2e 42 41 53 |:..0..Y.|m....BAS|
|00002620| 00 01 0c 14 59 01 00 18 | 52 00 00 0c 50 00 00 0c |....Y...|R...P...|
|00002630| 0b 14 4c 01 0b 14 59 01 | 03 01 48 00 ff ff 00 18 |..L...Y.|..H.....|
|00002640| 0b 14 4c 01 0b 14 4c 01 | 6d 01 01 00 2e 22 24 01 |..L...L.|m...."$.|
|00002650| 2c 01 6d 01 03 00 42 41 | 4b 22 00 01 0c 14 67 01 |,.m...BA|K"....g.|
|00002660| 00 18 67 00 9d 01 00 18 | 0b 14 4c 01 0b 14 67 01 |..g.....|..L...g.|
|00002670| c8 00 00 18 67 00 ff ff | 00 18 0b 14 67 01 6d 01 |....g...|....g.m.|
|00002680| 00 00 71 01 5d 00 00 00 | 0b 14 67 01 0c 14 4c 01 |..q.]...|..g...L.|
|00002690| 00 0c 62 00 ff ff 00 00 | 00 00 51 00 09 00 08 00 |..b.....|..Q.....|
|000026a0| ff ff 04 00 ff ff ff ff | 36 00 00 00 ff ff 02 0c |........|6.......|
|000026b0| 00 0a 00 42 75 69 6c 64 | 54 61 62 6c 65 01 00 b8 |...Build|Table...|
|000026c0| 74 04 00 00 1b 00 ff ff | c1 ff ff ff 00 00 97 00 |t.......|........|
|000026d0| 02 00 00 00 00 00 97 00 | 0e 00 00 00 20 42 75 69 |........|.... Bui|
|000026e0| 6c 64 54 61 62 6c 65 3a | 00 00 97 00 44 00 00 00 |ldTable:|....D...|
|000026f0| 20 20 20 45 78 61 6d 69 | 6e 65 73 20 74 68 65 20 |   Exami|nes the |
|00002700| 65 6e 74 69 72 65 20 74 | 65 78 74 20 66 69 6c 65 |entire t|ext file|
|00002710| 20 6c 6f 6f 6b 69 6e 67 | 20 66 6f 72 20 6c 69 6e | looking| for lin|
|00002720| 65 20 6e 75 6d 62 65 72 | 73 20 74 68 61 74 20 61 |e number|s that a|
|00002730| 72 65 00 00 97 00 44 00 | 00 00 20 20 20 74 68 65 |re....D.|..   the|
|00002740| 20 6f 62 6a 65 63 74 20 | 6f 66 20 47 4f 54 4f 2c | object |of GOTO,|
|00002750| 20 47 4f 53 55 42 2c 20 | 65 74 63 2e 20 41 73 20 | GOSUB, |etc. As |
|00002760| 65 61 63 68 20 69 73 20 | 66 6f 75 6e 64 2c 20 69 |each is |found, i|
|00002770| 74 20 69 73 20 65 6e 74 | 65 72 65 64 00 00 97 00 |t is ent|ered....|
|00002780| 44 00 00 00 20 20 20 69 | 6e 74 6f 20 61 20 74 61 |D...   i|nto a ta|
|00002790| 62 6c 65 20 6f 66 20 6c | 69 6e 65 20 6e 75 6d 62 |ble of l|ine numb|
|000027a0| 65 72 73 2e 20 54 68 65 | 20 74 61 62 6c 65 20 69 |ers. The| table i|
|000027b0| 73 20 75 73 65 64 20 64 | 75 72 69 6e 67 20 61 20 |s used d|uring a |
|000027c0| 73 65 63 6f 6e 64 00 00 | 97 00 41 00 00 00 20 20 |second..|..A...  |
|000027d0| 20 70 61 73 73 20 28 73 | 65 65 20 47 65 6e 4f 75 | pass (s|ee GenOu|
|000027e0| 74 46 69 6c 65 29 2c 20 | 77 68 65 6e 20 61 6c 6c |tFile), |when all|
|000027f0| 20 6c 69 6e 65 20 6e 75 | 6d 62 65 72 73 20 6e 6f | line nu|mbers no|
|00002800| 74 20 69 6e 20 74 68 65 | 20 6c 69 73 74 6f 00 00 |t in the| listo..|
|00002810| 97 00 11 00 00 00 20 20 | 20 61 72 65 20 72 65 6d |......  | are rem|
|00002820| 6f 76 65 64 2e 6e 00 00 | 97 00 09 00 00 00 20 49 |oved.n..|...... I|
|00002830| 6e 70 75 74 3a 72 00 00 | 97 00 38 00 00 00 20 20 |nput:r..|..8...  |
|00002840| 20 55 73 65 73 20 67 6c | 6f 62 61 6c 73 20 4b 65 | Uses gl|obals Ke|
|00002850| 79 57 6f 72 64 54 61 62 | 6c 65 24 2c 20 4b 65 79 |yWordTab|le$, Key|
|00002860| 57 6f 72 64 43 6f 75 6e | 74 2c 20 61 6e 64 20 53 |WordCoun|t, and S|
|00002870| 65 70 73 24 00 00 97 00 | 0a 00 00 00 20 4f 75 74 |eps$....|.... Out|
|00002880| 70 75 74 3a 00 00 97 00 | 26 00 00 00 20 20 20 4d |put:....|&...   M|
|00002890| 6f 64 65 66 69 65 73 20 | 4c 69 6e 65 54 61 62 6c |odefies |LineTabl|
|000028a0| 65 21 20 61 6e 64 20 4c | 69 6e 65 43 6f 75 6e 74 |e! and L|ineCount|
|000028b0| 00 00 97 00 02 00 00 00 | 00 00 76 00 06 00 e1 00 |........|..v.....|
|000028c0| 00 01 00 00 00 00 00 0c | 64 05 15 01 74 01 48 00 |........|d...t.H.|
|000028d0| ff ff 00 18 97 00 1b 00 | 06 00 20 47 65 74 20 6c |........|.. Get l|
|000028e0| 69 6e 65 20 61 6e 64 20 | 66 69 72 73 74 20 74 6f |ine and |first to|
|000028f0| 6b 65 6e 64 00 18 64 05 | 8a 00 87 00 0b 14 b5 01 |kend..d.|........|
|00002900| c0 00 00 00 00 18 0b 14 | b5 01 0b 14 44 01 0e 14 |........|....D...|
|00002910| 02 00 60 00 0c 14 be 01 | 00 18 0b 14 be 01 6d 01 |..`.....|......m.|
|00002920| 00 00 71 01 6e 01 48 00 | ff ff 00 24 0b 00 c7 01 |..q.n.H.|...$....|
|00002930| 64 05 0b 00 72 01 56 00 | ff ff ff ff 00 30 97 00 |d...r.V.|.....0..|
|00002940| 1a 00 0c 00 20 53 65 65 | 20 69 66 20 74 6f 6b 65 |.... See| if toke|
|00002950| 6e 20 69 73 20 6b 65 79 | 77 6f 72 64 00 30 0b 00 |n is key|word.0..|
|00002960| c7 01 0e 14 01 00 82 01 | 0b 14 be 01 59 01 03 01 |........|....Y...|
|00002970| 6e 01 61 00 00 00 00 3c | 97 00 29 00 0f 00 20 47 |n.a....<|..)... G|
|00002980| 65 74 20 70 6f 73 73 69 | 62 6c 65 20 6c 69 6e 65 |et possi|ble line|
|00002990| 20 6e 75 6d 62 65 72 20 | 61 66 74 65 72 20 6b 65 | number |after ke|
|000029a0| 79 77 6f 72 64 6f 00 3c | 6d 01 00 00 0b 14 44 01 |ywordo.<|m.....D.|
|000029b0| 0e 14 02 00 60 00 0c 14 | be 01 00 3c 97 00 31 00 |....`...|...<..1.|
|000029c0| 0f 00 20 43 68 65 63 6b | 20 65 61 63 68 20 74 6f |.. Check| each to|
|000029d0| 6b 65 6e 20 74 6f 20 73 | 65 65 20 69 66 20 69 74 |ken to s|ee if it|
|000029e0| 20 69 73 20 61 20 6c 69 | 6e 65 20 6e 75 6d 62 65 | is a li|ne numbe|
|000029f0| 72 64 00 3c 97 00 32 00 | 0f 00 20 28 74 68 65 20 |rd.<..2.|.. (the |
|00002a00| 4c 4f 4f 50 20 69 73 20 | 6e 65 63 65 73 73 61 72 |LOOP is |necessar|
|00002a10| 79 20 66 6f 72 20 74 68 | 65 20 6d 75 6c 74 69 70 |y for th|e multip|
|00002a20| 6c 65 20 6e 75 6d 62 65 | 72 73 00 3c 97 00 34 00 |le numbe|rs.<..4.|
|00002a30| 0f 00 20 6f 66 20 4f 4e | 20 47 4f 53 55 42 20 6f |.. of ON| GOSUB o|
|00002a40| 72 20 4f 4e 20 47 4f 54 | 4f 29 2e 20 41 20 6e 6f |r ON GOT|O). A no|
|00002a50| 6e 2d 6e 75 6d 65 72 69 | 63 20 74 6f 6b 65 6e 20 |n-numeri|c token |
|00002a60| 77 69 6c 6c 00 3c 97 00 | 14 00 0f 00 20 74 65 72 |will.<..|.... ter|
|00002a70| 6d 69 6e 61 74 65 20 73 | 65 61 72 63 68 2e 00 3c |minate s|earch..<|
|00002a80| 0b 14 be 01 64 05 2c 01 | 0e 00 01 00 ac 00 6e 01 |....d.,.|......n.|
|00002a90| 48 00 ff ff 00 48 0b 00 | 37 01 64 05 00 01 0c 00 |H....H..|7.d.....|
|00002aa0| 37 01 00 48 0b 14 be 01 | 5a 01 0b 00 37 01 0f 0c |7..H....|Z...7...|
|00002ab0| 01 00 2a 01 00 48 6d 01 | 00 00 0b 14 44 01 0e 14 |..*..Hm.|....D...|
|00002ac0| 02 00 60 00 0c 14 be 01 | 00 48 0b 14 be 01 6d 01 |..`.....|.H....m.|
|00002ad0| 00 00 71 01 5d 00 00 00 | 64 01 0c 00 c7 01 00 3c |..q.]...|d......<|
|00002ae0| 62 00 ff ff 00 30 50 00 | 00 24 0b 00 c7 01 66 00 |b....0P.|.$....f.|
|00002af0| ff ff ff ff 00 24 97 00 | 11 00 09 00 20 47 65 74 |.....$..|.... Get|
|00002b00| 20 6e 65 78 74 20 74 6f | 6b 65 6e 00 00 24 6d 01 | next to|ken..$m.|
|00002b10| 00 00 0b 14 44 01 0e 14 | 02 00 60 00 0c 14 be 01 |....D...|..`.....|
|00002b20| 00 18 62 00 ff ff 00 0c | 62 00 ff ff 00 00 00 00 |..b.....|b.......|
|00002b30| 51 00 09 00 08 00 ff ff | 04 00 ff ff ff ff 2b 00 |Q.......|......+.|
|00002b40| 00 00 ff ff 02 0c 00 0a | 00 47 65 6e 4f 75 74 46 |........|.GenOutF|
|00002b50| 69 6c 65 01 00 b8 34 05 | 00 00 1b 00 ff ff c1 ff |ile...4.|........|
|00002b60| ff ff 00 00 97 00 02 00 | 00 00 00 00 97 00 0e 00 |........|........|
|00002b70| 00 00 20 47 65 6e 4f 75 | 74 46 69 6c 65 3a 00 00 |.. GenOu|tFile:..|
|00002b80| 97 00 44 00 00 00 20 20 | 47 65 6e 65 72 61 74 65 |..D...  |Generate|
|00002b90| 73 20 61 6e 20 6f 75 74 | 70 75 74 20 66 69 6c 65 |s an out|put file|
|00002ba0| 20 77 69 74 68 20 75 6e | 72 65 66 65 72 65 6e 63 | with un|referenc|
|00002bb0| 65 64 20 6c 69 6e 65 20 | 6e 75 6d 62 65 72 73 20 |ed line |numbers |
|00002bc0| 72 65 6d 6f 76 65 64 2e | 00 00 97 00 09 00 00 00 |removed.|........|
|00002bd0| 20 49 6e 70 75 74 3a 61 | 00 00 97 00 31 00 00 00 | Input:a|....1...|
|00002be0| 20 20 55 73 65 73 20 67 | 6c 6f 62 61 6c 73 20 4c |  Uses g|lobals L|
|00002bf0| 69 6e 65 54 61 62 6c 65 | 21 2c 20 4c 69 6e 65 43 |ineTable|!, LineC|
|00002c00| 6f 75 6e 74 2c 20 61 6e | 64 20 53 65 70 73 24 6e |ount, an|d Seps$n|
|00002c10| 00 00 97 00 0a 00 00 00 | 20 4f 75 74 70 75 74 3a |........| Output:|
|00002c20| 00 00 97 00 12 00 00 00 | 20 20 50 72 6f 63 65 73 |........|  Proces|
|00002c30| 73 65 64 20 66 69 6c 65 | 00 00 97 00 02 00 00 00 |sed file|........|
|00002c40| 00 00 76 00 06 00 ef 00 | 00 01 00 00 00 00 00 0c |..v.....|........|
|00002c50| 97 00 47 00 03 00 20 53 | 70 65 65 64 20 75 70 20 |..G... S|peed up |
|00002c60| 62 79 20 65 6c 69 6d 69 | 6e 61 74 69 6e 67 20 63 |by elimi|nating c|
|00002c70| 6f 6d 6d 61 20 61 6e 64 | 20 63 6f 6c 6f 6e 20 28 |omma and| colon (|
|00002c80| 63 61 6e 27 74 20 73 65 | 70 61 72 61 74 65 20 66 |can't se|parate f|
|00002c90| 69 72 73 74 20 74 6f 6b | 65 6e 29 73 00 0c 6d 01 |irst tok|en)s..m.|
|00002ca0| 01 00 20 22 64 25 82 01 | 01 00 00 01 0c 14 d3 01 |.. "d%..|........|
|00002cb0| 00 0c 64 05 15 01 74 01 | 48 00 ff ff 00 18 64 05 |..d...t.|H.....d.|
|00002cc0| 8a 00 87 00 0b 14 b5 01 | c0 00 00 00 00 18 0b 14 |........|........|
|00002cd0| b5 01 6d 01 00 00 71 01 | 6e 01 61 00 00 00 00 24 |..m...q.|n.a....$|
|00002ce0| 97 00 35 00 09 00 20 47 | 65 74 20 66 69 72 73 74 |..5... G|et first|
|00002cf0| 20 74 6f 6b 65 6e 20 61 | 6e 64 20 70 72 6f 63 65 | token a|nd proce|
|00002d00| 73 73 20 69 66 20 69 74 | 20 69 73 20 61 20 6c 69 |ss if it| is a li|
|00002d10| 6e 65 20 6e 75 6d 62 65 | 72 61 00 24 0b 14 b5 01 |ne numbe|ra.$....|
|00002d20| 0b 14 d3 01 0e 14 02 00 | 60 00 0c 14 be 01 00 24 |........|`......$|
|00002d30| 0b 14 be 01 64 05 2c 01 | 0e 00 01 00 ac 00 61 00 |....d.,.|......a.|
|00002d40| 00 00 00 30 0b 14 be 01 | 5a 01 0c 0c da 01 00 30 |...0....|Z......0|
|00002d50| 0b 00 15 01 0c 00 e8 01 | 00 30 97 00 3c 00 0c 00 |........|.0..<...|
|00002d60| 20 53 65 65 20 69 66 20 | 6c 69 6e 65 20 6e 75 6d | See if |line num|
|00002d70| 62 65 72 20 69 73 20 69 | 6e 20 74 61 62 6c 65 20 |ber is i|n table |
|00002d80| 6f 66 20 72 65 66 65 72 | 65 6e 63 65 64 20 6c 69 |of refer|enced li|
|00002d90| 6e 65 20 6e 75 6d 62 65 | 72 73 00 30 0b 00 f7 01 |ne numbe|rs.0....|
|00002da0| 64 05 0b 00 37 01 56 00 | ff ff ff ff 00 3c 0b 0c |d...7.V.|.....<..|
|00002db0| da 01 0b 00 f7 01 0e 0c | 01 00 2a 01 03 01 6e 01 |........|..*...n.|
|00002dc0| 61 00 00 00 00 48 0b 00 | 0d 01 0c 00 e8 01 00 3c |a....H..|.......<|
|00002dd0| 50 00 00 30 0b 00 f7 01 | 66 00 ff ff ff ff 00 30 |P..0....|f......0|
|00002de0| 97 00 16 00 0c 00 20 4d | 6f 64 69 66 79 20 6c 69 |...... M|odify li|
|00002df0| 6e 65 20 73 74 72 69 6e | 67 73 00 30 0b 00 e8 01 |ne strin|gs.0....|
|00002e00| 74 01 6e 01 61 00 00 00 | 00 3c 0b 14 be 01 2d 01 |t.n.a...|.<....-.|
|00002e10| ff ff 4e 01 0c 14 be 01 | 00 3c 0b 14 b5 01 0b 14 |..N.....|.<......|
|00002e20| d3 01 0e 00 02 00 7f 00 | 0b 14 be 01 2d 01 ff ff |........|....-...|
|00002e30| 0b 14 be 01 0b 14 b5 01 | c6 00 00 30 50 00 00 00 |........|...0P...|
|00002e40| 00 30 97 00 33 00 0c 00 | 20 59 6f 75 20 63 61 6e |.0..3...| You can|
|00002e50| 20 72 65 70 6c 61 63 65 | 20 74 68 65 20 70 72 65 | replace| the pre|
|00002e60| 76 69 6f 75 73 20 6c 69 | 6e 65 73 20 77 69 74 68 |vious li|nes with|
|00002e70| 20 79 6f 75 72 20 6f 77 | 6e 65 00 30 97 00 39 00 | your ow|ne.0..9.|
|00002e80| 0c 00 20 63 6f 64 65 20 | 74 6f 20 72 65 66 6f 72 |.. code |to refor|
|00002e90| 6d 61 74 20 6f 75 74 70 | 75 74 2e 20 46 6f 72 20 |mat outp|ut. For |
|00002ea0| 65 78 61 6d 70 6c 65 2c | 20 74 72 79 20 74 68 65 |example,| try the|
|00002eb0| 73 65 20 6c 69 6e 65 73 | 3a 65 00 00 00 30 97 00 |se lines|:e...0..|
|00002ec0| 2e 00 0c 00 54 6d 70 50 | 6f 73 31 20 3d 20 53 74 |....TmpP|os1 = St|
|00002ed0| 72 53 70 6e 28 49 6e 4c | 69 6e 24 2c 20 53 65 70 |rSpn(InL|in$, Sep|
|00002ee0| 24 29 20 2b 20 4c 45 4e | 28 54 6f 6b 65 6e 24 29 |$) + LEN|(Token$)|
|00002ef0| 00 30 97 00 39 00 0c 00 | 54 6d 70 50 6f 73 32 20 |.0..9...|TmpPos2 |
|00002f00| 3d 20 54 6d 70 50 6f 73 | 31 20 2b 20 53 74 72 53 |= TmpPos|1 + StrS|
|00002f10| 70 6e 28 4d 49 44 24 28 | 49 6e 4c 69 6e 24 2c 20 |pn(MID$(|InLin$, |
|00002f20| 54 6d 70 50 6f 73 31 29 | 2c 20 53 65 70 24 29 65 |TmpPos1)|, Sep$)e|
|00002f30| 00 30 97 00 02 00 0c 00 | 00 30 97 00 15 00 0c 00 |.0......|.0......|
|00002f40| 49 46 20 46 6f 75 6e 64 | 4e 75 6d 62 65 72 20 54 |IF Found|Number T|
|00002f50| 48 45 4e 20 00 30 97 00 | 4a 00 0c 00 20 20 20 49 |HEN .0..|J...   I|
|00002f60| 6e 4c 69 6e 24 20 3d 20 | 4c 45 46 54 24 28 49 6e |nLin$ = |LEFT$(In|
|00002f70| 4c 69 6e 24 2c 20 54 6d | 70 50 6f 73 31 20 2d 20 |Lin$, Tm|pPos1 - |
|00002f80| 31 29 20 2b 20 43 48 52 | 24 28 39 29 20 2b 20 4d |1) + CHR|$(9) + M|
|00002f90| 49 44 24 28 49 6e 4c 69 | 6e 24 2c 20 54 6d 70 50 |ID$(InLi|n$, TmpP|
|00002fa0| 6f 73 32 29 00 30 97 00 | 06 00 0c 00 45 4c 53 45 |os2).0..|....ELSE|
|00002fb0| 00 30 97 00 2d 00 0c 00 | 20 20 20 49 6e 4c 69 6e |.0..-...|   InLin|
|00002fc0| 24 20 3d 20 43 48 52 24 | 28 39 29 20 2b 20 4d 49 |$ = CHR$|(9) + MI|
|00002fd0| 44 24 28 49 6e 4c 69 6e | 24 2c 20 54 6d 70 50 6f |D$(InLin|$, TmpPo|
|00002fe0| 73 32 29 52 00 30 97 00 | 08 00 0c 00 45 4e 44 20 |s2)R.0..|....END |
|00002ff0| 49 46 00 00 00 24 50 00 | 00 18 50 00 00 18 97 00 |IF...$P.|..P.....|
|00003000| 46 00 06 00 20 50 72 69 | 6e 74 20 6c 69 6e 65 20 |F... Pri|nt line |
|00003010| 74 6f 20 66 69 6c 65 20 | 6f 72 20 63 6f 6e 73 6f |to file |or conso|
|00003020| 6c 65 20 28 50 52 49 4e | 54 20 69 73 20 66 61 73 |le (PRIN|T is fas|
|00003030| 74 65 72 20 74 68 61 6e | 20 63 6f 6e 73 6f 6c 65 |ter than| console|
|00003040| 20 64 65 76 69 63 65 29 | 00 18 0b 14 59 01 6d 01 | device)|....Y.m.|
|00003050| 03 00 43 4f 4e 22 03 01 | 61 00 00 00 00 24 0b 14 |..CON"..|a....$..|
|00003060| b5 01 96 00 00 18 49 00 | ff ff 00 24 64 09 8a 00 |......I.|...$d...|
|00003070| 7d 00 0b 14 b5 01 96 00 | 00 18 50 00 00 0c 62 00 |}.......|..P...b.|
|00003080| ff ff 00 00 00 00 51 00 | 09 00 08 00 ff ff 04 00 |......Q.|........|
|00003090| ff ff ff ff 38 00 00 00 | ff ff 02 0c 00 0c 00 49 |....8...|.......I|
|000030a0| 6e 69 74 4b 65 79 54 61 | 62 6c 65 01 00 b8 72 01 |nitKeyTa|ble...r.|
|000030b0| 00 00 1b 00 ff ff c1 ff | ff ff 00 00 97 00 02 00 |........|........|
|000030c0| 00 00 00 00 97 00 10 00 | 00 00 20 49 6e 69 74 4b |........|.. InitK|
|000030d0| 65 79 54 61 62 6c 65 3a | 00 00 97 00 44 00 00 00 |eyTable:|....D...|
|000030e0| 20 20 49 6e 69 74 69 61 | 6c 69 7a 65 73 20 61 20 |  Initia|lizes a |
|000030f0| 6b 65 79 77 6f 72 64 20 | 74 61 62 6c 65 2e 20 4b |keyword |table. K|
|00003100| 65 79 77 6f 72 64 73 20 | 6d 75 73 74 20 62 65 20 |eywords |must be |
|00003110| 72 65 63 6f 67 6e 69 7a | 65 64 20 73 6f 20 74 68 |recogniz|ed so th|
|00003120| 61 74 00 00 97 00 3d 00 | 00 00 20 20 6c 69 6e 65 |at....=.|..  line|
|00003130| 20 6e 75 6d 62 65 72 73 | 20 63 61 6e 20 62 65 20 | numbers| can be |
|00003140| 64 69 73 74 69 6e 67 75 | 69 73 68 65 64 20 66 72 |distingu|ished fr|
|00003150| 6f 6d 20 6e 75 6d 65 72 | 69 63 20 63 6f 6e 73 74 |om numer|ic const|
|00003160| 61 6e 74 73 2e 73 00 00 | 97 00 09 00 00 00 20 49 |ants.s..|...... I|
|00003170| 6e 70 75 74 3a 6e 00 00 | 97 00 10 00 00 00 20 20 |nput:n..|......  |
|00003180| 55 73 65 73 20 4b 65 79 | 44 61 74 61 00 00 97 00 |Uses Key|Data....|
|00003190| 0a 00 00 00 20 4f 75 74 | 70 75 74 3a 00 00 97 00 |.... Out|put:....|
|000031a0| 27 00 00 00 20 20 4d 6f | 64 69 66 69 65 73 20 67 |'...  Mo|difies g|
|000031b0| 6c 6f 62 61 6c 20 61 72 | 72 61 79 20 4b 65 79 57 |lobal ar|ray KeyW|
|000031c0| 6f 72 64 54 61 62 6c 65 | 24 72 00 00 97 00 02 00 |ordTable|$r......|
|000031d0| 00 00 00 00 76 00 06 00 | fd 00 00 01 00 00 00 00 |....v...|........|
|000031e0| 00 0c 6b 00 92 01 00 0c | 0b 00 1f 02 64 05 0b 00 |..k.....|....d...|
|000031f0| 72 01 56 00 ff ff ff ff | 00 18 0b 14 28 02 e2 00 |r.V.....|....(...|
|00003200| 00 18 0b 14 28 02 0b 00 | 1f 02 0f 14 01 00 82 01 |....(...|........|
|00003210| 00 0c 65 00 ff ff ff ff | 00 00 00 00 51 00 09 00 |..e.....|....Q...|
|00003220| 08 00 ff ff 04 00 ff ff | ff ff 13 00 00 00 ff ff |........|........|
|00003230| 02 0c                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+