/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / lineed_1 / !LineEdit_Example

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 45 | 78 61 6d 70 6c 65 0d 00 |..... >E|xample..|
|00000010| 14 3c f4 20 45 78 61 6d | 70 6c 65 20 6f 66 20 68 |.<. Exam|ple of h|
|00000020| 6f 77 20 74 6f 20 75 73 | 65 20 74 68 65 20 46 69 |ow to us|e the Fi|
|00000030| 6c 65 6e 61 6d 65 20 43 | 6f 6d 70 6c 65 74 69 6f |lename C|ompletio|
|00000040| 6e 20 52 6f 75 74 69 6e | 65 73 0d 00 1e 04 0d 00 |n Routin|es......|
|00000050| 28 3f f4 20 41 6c 74 68 | 6f 75 67 68 20 74 68 69 |(?. Alth|ough thi|
|00000060| 73 20 69 73 20 61 20 68 | 79 62 72 69 64 20 42 41 |s is a h|ybrid BA|
|00000070| 53 49 43 2f 41 52 4d 20 | 70 72 6f 67 72 61 6d 2c |SIC/ARM |program,|
|00000080| 20 69 74 20 73 68 6f 77 | 73 20 68 6f 77 0d 00 32 | it show|s how..2|
|00000090| 3e f4 20 65 61 73 79 20 | 69 74 20 77 6f 75 6c 64 |>. easy |it would|
|000000a0| 20 62 65 20 74 6f 20 69 | 6e 63 6f 72 70 6f 72 61 | be to i|ncorpora|
|000000b0| 74 65 20 74 68 65 20 43 | 6f 6d 70 6c 65 74 69 6f |te the C|ompletio|
|000000c0| 6e 20 63 6f 64 65 20 69 | 6e 74 6f 0d 00 3c 32 f4 |n code i|nto..<2.|
|000000d0| 20 79 6f 75 72 20 6f 77 | 6e 20 70 72 6f 67 72 61 | your ow|n progra|
|000000e0| 6d 73 2e 20 28 43 29 20 | 52 69 63 68 61 72 64 20 |ms. (C) |Richard |
|000000f0| 4b 2e 20 4c 6c 6f 79 64 | 20 31 39 39 30 0d 00 46 |K. Lloyd| 1990..F|
|00000100| 04 0d 00 50 0e ee 20 85 | 20 e5 20 8d 54 48 42 0d |...P.. .| . .THB.|
|00000110| 00 5a 07 eb 20 30 0d 00 | 64 40 f1 22 45 78 61 6d |.Z.. 0..|d@."Exam|
|00000120| 70 6c 65 20 75 73 65 20 | 6f 66 20 46 69 6c 65 6e |ple use |of Filen|
|00000130| 61 6d 65 20 43 6f 6d 70 | 6c 65 74 69 6f 6e 20 72 |ame Comp|letion r|
|00000140| 6f 75 74 69 6e 65 73 20 | 28 43 29 20 52 4b 4c 20 |outines |(C) RKL |
|00000150| 31 39 39 30 22 27 0d 00 | 6e 41 f1 22 54 79 70 65 |1990"'..|nA."Type|
|00000160| 20 69 6e 20 74 65 78 74 | 20 6c 69 6e 65 73 20 2d | in text| lines -|
|00000170| 20 77 6f 72 6b 73 20 61 | 73 20 61 20 73 75 62 73 | works a|s a subs|
|00000180| 65 74 20 6f 66 20 74 68 | 65 20 4c 69 6e 65 20 45 |et of th|e Line E|
|00000190| 64 69 74 6f 72 22 27 0d | 00 78 0c f1 22 4b 65 79 |ditor"'.|.x.."Key|
|000001a0| 73 3a 22 0d 00 82 32 f1 | 22 4c 65 66 74 2f 52 69 |s:"...2.|"Left/Ri|
|000001b0| 67 68 74 20 41 72 72 6f | 77 3a 20 4d 6f 76 65 20 |ght Arro|w: Move |
|000001c0| 63 75 72 73 6f 72 20 6c | 65 66 74 20 6f 72 20 72 |cursor l|eft or r|
|000001d0| 69 67 68 74 22 0d 00 8c | 3a f1 22 44 65 6c 65 74 |ight"...|:."Delet|
|000001e0| 65 2f 42 61 63 6b 73 70 | 61 63 65 3a 20 45 72 61 |e/Backsp|ace: Era|
|000001f0| 73 65 20 63 68 61 72 61 | 63 74 65 72 20 74 6f 20 |se chara|cter to |
|00000200| 6c 65 66 74 20 6f 66 20 | 63 75 72 73 6f 72 22 0d |left of |cursor".|
|00000210| 00 96 3c f1 22 20 20 20 | 20 20 20 20 20 20 20 52 |..<."   |       R|
|00000220| 45 54 55 52 4e 3a 20 54 | 65 72 6d 69 6e 61 74 65 |ETURN: T|erminate|
|00000230| 20 6c 69 6e 65 20 61 6e | 64 20 67 6f 20 6f 6e 74 | line an|d go ont|
|00000240| 6f 20 6e 65 78 74 20 6f | 6e 65 22 0d 00 a0 49 f1 |o next o|ne"...I.|
|00000250| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 61 |"       |      Ta|
|00000260| 62 3a 20 43 6f 6d 70 6c | 65 74 65 20 66 69 6c 65 |b: Compl|ete file|
|00000270| 6e 61 6d 65 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |name acc|ording t|
|00000280| 6f 20 4c 69 6e 65 20 45 | 64 69 74 6f 72 20 72 75 |o Line E|ditor ru|
|00000290| 6c 65 73 22 0d 00 aa 26 | f1 22 20 20 20 20 20 20 |les"...&|."      |
|000002a0| 20 20 20 20 45 53 43 41 | 50 45 3a 20 41 62 6f 72 |    ESCA|PE: Abor|
|000002b0| 74 20 70 72 6f 67 72 61 | 6d 22 0d 00 b4 3e f1 22 |t progra|m"...>."|
|000002c0| 4e 2e 42 2e 20 4c 69 6e | 65 73 20 62 65 67 69 6e |N.B. Lin|es begin|
|000002d0| 6e 69 6e 67 20 77 69 74 | 68 20 61 20 2a 20 77 69 |ning wit|h a * wi|
|000002e0| 6c 6c 20 62 65 20 70 61 | 73 73 65 64 20 74 6f 20 |ll be pa|ssed to |
|000002f0| 4f 53 5f 43 4c 49 22 27 | 0d 00 be 04 0d 00 c8 09 |OS_CLI"'|........|
|00000300| f2 69 6e 69 74 0d 00 d2 | 05 f5 0d 00 dc 17 20 20 |.init...|......  |
|00000310| 20 6c 69 6e 65 24 3d a4 | 65 64 69 74 5f 6c 69 6e | line$=.|edit_lin|
|00000320| 65 0d 00 e6 2f 20 20 20 | e7 20 97 28 6c 69 6e 65 |e.../   |. .(line|
|00000330| 24 29 3d 34 32 3a ff 20 | 6c 69 6e 65 24 3a f4 20 |$)=42:. |line$:. |
|00000340| 49 74 27 73 20 61 20 2a | 20 63 6f 6d 6d 61 6e 64 |It's a *| command|
|00000350| 0d 00 f0 07 fd 20 a3 0d | 00 fa 04 0d 01 04 0f dd |..... ..|........|
|00000360| a4 65 64 69 74 5f 6c 69 | 6e 65 0d 01 0e 08 ea 20 |.edit_li|ne..... |
|00000370| 4b 25 0d 01 18 13 f2 72 | 65 73 74 61 72 74 5f 62 |K%.....r|estart_b|
|00000380| 75 66 66 65 72 0d 01 22 | 2e f1 22 50 72 6f 6d 70 |uffer.."|.."Promp|
|00000390| 74 3e 20 22 3b 3a f4 20 | 43 68 61 6e 67 65 20 74 |t> ";:. |Change t|
|000003a0| 6f 20 77 68 61 74 65 76 | 65 72 20 79 6f 75 20 6c |o whatev|er you l|
|000003b0| 69 6b 65 0d 01 2c 05 f5 | 0d 01 36 1a 20 20 20 e7 |ike..,..|..6.   .|
|000003c0| 20 3f 70 65 6e 64 69 6e | 67 72 69 67 68 74 3e 30 | ?pendin|gright>0|
|000003d0| 20 8c 0d 01 40 44 20 20 | 20 20 20 20 4b 25 3d 31 | ...@D  |    K%=1|
|000003e0| 33 37 3a 3f 70 65 6e 64 | 69 6e 67 72 69 67 68 74 |37:?pend|ingright|
|000003f0| 3d 3f 70 65 6e 64 69 6e | 67 72 69 67 68 74 2d 31 |=?pendin|gright-1|
|00000400| 3a f4 20 27 46 61 6b 65 | 64 27 20 72 69 67 68 74 |:. 'Fake|d' right|
|00000410| 20 61 72 72 6f 77 0d 01 | 4a 08 20 20 20 cc 0d 01 | arrow..|J.   ...|
|00000420| 54 11 20 20 20 20 20 20 | 4b 25 3d a6 28 30 29 0d |T.      |K%=.(0).|
|00000430| 01 5e 08 20 20 20 cd 0d | 01 68 0e 20 20 20 c8 8e |.^.   ..|.h.   ..|
|00000440| 20 4b 25 20 ca 0d 01 72 | 18 20 20 20 c9 20 2d 31 | K% ...r|.   . -1|
|00000450| 3a f4 20 44 6f 20 6e 6f | 74 68 69 6e 67 0d 01 7c |:. Do no|thing..||
|00000460| 46 20 20 20 c9 20 39 3a | 41 25 3d 62 75 66 66 65 |F   . 9:|A%=buffe|
|00000470| 72 25 3a 42 25 3d 63 75 | 72 73 6f 72 25 3a 43 25 |r%:B%=cu|rsor%:C%|
|00000480| 3d 62 75 66 6c 65 6e 25 | 3a d6 20 63 6f 6d 70 6c |=buflen%|:. compl|
|00000490| 65 74 65 5f 6e 61 6d 65 | 3a f4 20 43 6f 6d 70 6c |ete_name|:. Compl|
|000004a0| 65 74 65 0d 01 86 3a 20 | 20 20 c9 20 31 33 3a f1 |ete...: |  . 13:.|
|000004b0| 20 c4 62 75 66 6c 65 6e | 25 2d 63 75 72 73 6f 72 | .buflen|%-cursor|
|000004c0| 25 2c bd 28 39 29 29 3a | f4 20 47 6f 74 6f 20 45 |%,.(9)):|. Goto E|
|000004d0| 4f 4c 20 74 68 65 6e 20 | 43 52 2d 4c 46 0d 01 90 |OL then |CR-LF...|
|000004e0| 37 20 20 20 c9 20 38 2c | 31 32 37 3a e7 20 63 75 |7   . 8,|127:. cu|
|000004f0| 72 73 6f 72 25 3e 30 3a | f2 72 65 64 72 61 77 28 |rsor%>0:|.redraw(|
|00000500| 2d 31 2c 31 32 37 2c 22 | 20 22 29 3a f4 20 44 65 |-1,127,"| "):. De|
|00000510| 6c 65 74 65 0d 01 9a 34 | 20 20 20 c9 20 31 33 36 |lete...4|   . 136|
|00000520| 3a e7 20 63 75 72 73 6f | 72 25 3e 30 3a 63 75 72 |:. curso|r%>0:cur|
|00000530| 73 6f 72 25 2d 3d 31 3a | ef 20 38 3a f4 20 4c 65 |sor%-=1:|. 8:. Le|
|00000540| 66 74 20 61 72 72 6f 77 | 0d 01 a4 3b 20 20 20 c9 |ft arrow|...;   .|
|00000550| 20 31 33 37 3a e7 20 63 | 75 72 73 6f 72 25 3c 62 | 137:. c|ursor%<b|
|00000560| 75 66 6c 65 6e 25 3a 63 | 75 72 73 6f 72 25 2b 3d |uflen%:c|ursor%+=|
|00000570| 31 3a ef 20 39 3a f4 20 | 52 69 67 68 74 20 61 72 |1:. 9:. |Right ar|
|00000580| 72 6f 77 0d 01 ae 12 20 | 20 20 7f 20 e7 20 4b 25 |row.... |  . . K%|
|00000590| 3c 33 32 20 8c 0d 01 b8 | 26 20 20 20 20 20 20 20 |<32 ....|&       |
|000005a0| 20 20 20 20 20 20 20 20 | ef 20 4b 25 3a f4 20 43 |        |. K%:. C|
|000005b0| 6f 6e 74 72 6f 6c 20 63 | 68 61 72 0d 01 c2 12 20 |ontrol c|har.... |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 cc 0d 01 cc |        |    ....|
|000005d0| 46 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F       |        |
|000005e0| e7 20 62 75 66 6c 65 6e | 25 3c 6d 61 78 62 75 66 |. buflen|%<maxbuf|
|000005f0| 6c 65 6e 25 3a f2 72 65 | 64 72 61 77 28 31 2c 4b |len%:.re|draw(1,K|
|00000600| 25 2c 22 22 29 3a f4 20 | 4e 6f 72 6d 61 6c 20 63 |%,""):. |Normal c|
|00000610| 68 61 72 0d 01 d6 12 20 | 20 20 20 20 20 20 20 20 |har.... |        |
|00000620| 20 20 20 20 cd 0d 01 e0 | 08 20 20 20 cb 0d 01 ea |    ....|.   ....|
|00000630| 0b fd 20 4b 25 3d 31 33 | 0d 01 f4 0d 3d 24 62 75 |.. K%=13|....=$bu|
|00000640| 66 66 65 72 25 0d 01 fe | 04 0d 02 08 19 e7 20 9f |ffer%...|...... .|
|00000650| 3c 3e 31 37 20 8c 20 f1 | 27 f6 24 3a e5 20 8d 64 |<>17 . .|'.$:. .d|
|00000660| 52 40 0d 02 12 28 d6 20 | 65 78 69 74 5f 63 6f 6d |R@...(. |exit_com|
|00000670| 70 6c 65 74 65 3a f4 20 | 52 65 6c 65 61 73 65 20 |plete:. |Release |
|00000680| 52 4d 41 20 73 61 66 65 | 6c 79 0d 02 1c 19 f1 27 |RMA safe|ly.....'|
|00000690| 22 50 72 6f 67 72 61 6d | 20 61 62 6f 72 74 65 64 |"Program| aborted|
|000006a0| 22 3a e0 0d 02 26 04 0d | 02 30 22 dd f2 72 65 64 |":...&..|.0"..red|
|000006b0| 72 61 77 28 64 69 66 66 | 25 2c 76 61 6c 75 65 25 |raw(diff|%,value%|
|000006c0| 2c 73 75 66 66 69 78 24 | 29 0d 02 3a 0a ea 20 6f |,suffix$|)..:.. o|
|000006d0| 75 74 24 0d 02 44 41 6f | 75 74 24 3d 24 28 62 75 |ut$..DAo|ut$=$(bu|
|000006e0| 66 66 65 72 25 2b 63 75 | 72 73 6f 72 25 29 3a f4 |ffer%+cu|rsor%):.|
|000006f0| 20 43 6f 6e 74 65 6e 74 | 73 20 6f 66 20 6c 69 6e | Content|s of lin|
|00000700| 65 20 66 72 6f 6d 20 63 | 75 72 73 6f 72 20 74 6f |e from c|ursor to|
|00000710| 20 65 6e 64 0d 02 4e 34 | f1 20 bd 28 76 61 6c 75 | end..N4|. .(valu|
|00000720| 65 25 29 3b 6f 75 74 24 | 3b 73 75 66 66 69 78 24 |e%);out$|;suffix$|
|00000730| 3b c4 a9 28 6f 75 74 24 | 2b 73 75 66 66 69 78 24 |;..(out$|+suffix$|
|00000740| 29 2c bd 28 38 29 29 3b | 0d 02 58 4b e7 20 64 69 |),.(8));|..XK. di|
|00000750| 66 66 25 3d 31 3a 24 28 | 62 75 66 66 65 72 25 2b |ff%=1:$(|buffer%+|
|00000760| 63 75 72 73 6f 72 25 29 | 3d bd 28 76 61 6c 75 65 |cursor%)|=.(value|
|00000770| 25 29 2b 6f 75 74 24 20 | 8b 20 24 28 62 75 66 66 |%)+out$ |. $(buff|
|00000780| 65 72 25 2b 63 75 72 73 | 6f 72 25 2d 31 29 3d 6f |er%+curs|or%-1)=o|
|00000790| 75 74 24 0d 02 62 34 63 | 75 72 73 6f 72 25 2b 3d |ut$..b4c|ursor%+=|
|000007a0| 64 69 66 66 25 3a 62 75 | 66 6c 65 6e 25 2b 3d 64 |diff%:bu|flen%+=d|
|000007b0| 69 66 66 25 3a f4 20 41 | 64 6a 75 73 74 20 70 6f |iff%:. A|djust po|
|000007c0| 73 69 74 69 6f 6e 73 0d | 02 6c 05 e1 0d 02 76 04 |sitions.|.l....v.|
|000007d0| 0d 02 80 0a dd f2 69 6e | 69 74 0d 02 8a 0e ea 20 |......in|it..... |
|000007e0| 41 25 2c 42 25 2c 50 25 | 0d 02 94 3d 6d 61 78 62 |A%,B%,P%|...=maxb|
|000007f0| 75 66 6c 65 6e 25 3d 32 | 35 35 3a f4 20 42 41 53 |uflen%=2|55:. BAS|
|00000800| 49 43 20 73 74 72 69 6e | 67 73 20 64 6f 6e 27 74 |IC strin|gs don't|
|00000810| 20 6c 69 6b 65 20 61 6e | 79 74 68 69 6e 67 20 6c | like an|ything l|
|00000820| 6f 6e 67 65 72 0d 02 9e | 24 de 20 6f 72 67 20 26 |onger...|$. org &|
|00000830| 34 30 30 30 2c 62 75 66 | 66 65 72 25 20 6d 61 78 |4000,buf|fer% max|
|00000840| 62 75 66 6c 65 6e 25 2b | 31 0d 02 a8 31 c8 9b 22 |buflen%+|1...1.."|
|00000850| 43 6f 6d 70 6c 65 74 69 | 6f 6e 22 3a f4 20 46 69 |Completi|on":. Fi|
|00000860| 6c 65 6e 61 6d 65 20 63 | 6f 6d 70 6c 65 74 69 6f |lename c|ompletio|
|00000870| 6e 20 72 6f 75 74 69 6e | 65 73 0d 02 b2 12 e3 20 |n routin|es..... |
|00000880| 41 25 3d 30 20 b8 20 32 | 20 88 20 32 0d 02 bc 0a |A%=0 . 2| . 2....|
|00000890| 50 25 3d 6f 72 67 0d 02 | c6 0b 5b 4f 50 54 20 41 |P%=org..|..[OPT A|
|000008a0| 25 0d 02 d0 49 20 20 20 | 20 20 20 20 20 20 20 20 |%...I   |        |
|000008b0| 20 20 20 20 20 a4 63 6f | 6d 70 6c 65 74 69 6f 6e |     .co|mpletion|
|000008c0| 20 20 20 20 3b 20 49 6e | 63 6c 75 64 65 20 66 69 |    ; In|clude fi|
|000008d0| 6c 65 6e 61 6d 65 20 63 | 6f 6d 70 6c 65 74 69 6f |lename c|ompletio|
|000008e0| 6e 20 72 6f 75 74 69 6e | 65 73 0d 02 da 06 5d ed |n routin|es....].|
|000008f0| 0d 02 e4 1f d6 20 69 6e | 69 74 5f 63 6f 6d 70 6c |..... in|it_compl|
|00000900| 65 74 65 3a f4 20 43 6c | 61 69 6d 20 52 4d 41 0d |ete:. Cl|aim RMA.|
|00000910| 02 ee 40 41 25 3d 62 75 | 66 66 65 72 25 3a 42 25 |..@A%=bu|ffer%:B%|
|00000920| 3d 6d 61 78 62 75 66 6c | 65 6e 25 3a d6 20 63 68 |=maxbufl|en%:. ch|
|00000930| 65 63 6b 66 6f 72 67 6f | 73 3a f4 20 44 65 73 63 |eckforgo|s:. Desc|
|00000940| 72 69 62 65 20 6f 75 72 | 20 62 75 66 66 65 72 0d |ribe our| buffer.|
|00000950| 02 f8 0b 2a 46 58 20 34 | 2c 31 0d 03 02 05 e1 0d |...*FX 4|,1......|
|00000960| 03 0c 04 0d 03 16 14 dd | f2 72 65 73 74 61 72 74 |........|.restart|
|00000970| 5f 62 75 66 66 65 72 0d | 03 20 23 62 75 66 6c 65 |_buffer.|. #bufle|
|00000980| 6e 25 3d 30 3a f4 20 43 | 75 72 72 65 6e 74 20 6c |n%=0:. C|urrent l|
|00000990| 69 6e 65 20 6c 65 6e 67 | 74 68 0d 03 2a 27 63 75 |ine leng|th..*'cu|
|000009a0| 72 73 6f 72 25 3d 30 3a | f4 20 43 75 72 72 65 6e |rsor%=0:|. Curren|
|000009b0| 74 20 63 75 72 73 6f 72 | 20 70 6f 73 69 74 69 6f |t cursor| positio|
|000009c0| 6e 0d 03 34 2d 3f 70 65 | 6e 64 69 6e 67 72 69 67 |n..4-?pe|ndingrig|
|000009d0| 68 74 3d 30 3a f4 20 4e | 6f 20 70 65 6e 64 69 6e |ht=0:. N|o pendin|
|000009e0| 67 20 72 69 67 68 74 20 | 61 72 72 6f 77 73 0d 03 |g right |arrows..|
|000009f0| 3e 2d 3f 62 75 66 66 65 | 72 25 3d 31 33 3a f4 20 |>-?buffe|r%=13:. |
|00000a00| 53 65 74 20 75 70 20 66 | 6f 72 20 42 41 53 49 43 |Set up f|or BASIC|
|00000a10| 20 24 20 66 75 6e 63 74 | 69 6f 6e 0d 03 48 05 e1 | $ funct|ion..H..|
|00000a20| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+