^nu #2500555 miniedit$+ nins :#555 miniedit$_is_an_expansion_of+ cedit_to_twice_linewidth.+ docs_as_for_cedit_in_c3700.+ .#2500900 150000 0 0 0 max_num_lines_is_set_in_the+ above_line.+ .#111 [ ***** ***** ***** ***** *****] 0 .#3200900 0 0 0 0 active=1+ .#6400900 0 0 0 0 markerrow+ .#6500900 0 0 0 0 markercol+ .#3280900 0 0 0 0 filemode+ .#2535900 0 [ Unused text variable] 0 .#5000900 0 0 0 0 matrix+ next_is_calc_from_numlines:+ .#2530900 0 0 0 0 matrix_has+ upper_limit_in_ram_here.+ .#5005900 0 0 0 0 matrix_is+ inited_upto_inc_this_line+ .#5777900 0 0 0 0 first_line+ on_the_screen_has_this_warp.+ .#2100900 0 0 0 0 keyb_inf1+ .#2300900 0 0 0 0 keyb_inf3+ .#3001000 [ miniedit$! now ENTER three times.] 0 .#3001100 [ learn it by learning cedit.] 0 .#3001200 [ so: ctr with z is exit, &] 0 .#3001300 [ with a delete, u insert, and] 0 .#3001400 [ with t f g v to move cursor.] 0 .#3001500 [ esc j 1 for 1st line.] 0 .#3001600 [ next is a black 'screensave'. ] 0 ;#555 wp :#3300005 freshdata+ wp #55600 clscardarea+ wp :#6400005 startupinfo+ wp :#5500005 editmain+ ret ^nu #2550000 repeatnum+ start:_v1_len:_v2_num:_v5+ ad124 v4d v1v3 .#56 v5w3 v3i v3lev4 #56 ret ^nu #5558000 movenums_fromhi+ this_begins_with_high_adr.+ Use_#55888_(same_inputs)+ to_count_up_instead.+ in13:_startadr;_in14:receive+ adr;_in8:_count.__Rule_in_an+ array:don't_push_but_pull+ the_data_to_the_new_place.+ note:_both_routines_handle+ count_basis_correctly.+ gi2 8 v2bn :#27 gi1 14 ad124 v4d gi1 13 ad125 v1v3 v3d v5d v5v1 v5 :#6 ;#6 w1w4d v1gv3n5 ;#27 ret ^nu #3474000 niloutcard+ in4:which_card_num,in3:diskn+ v1 #188889 v2 232 v5 0 wp #2550000 v5 1 gi1 3 gi3 4 dskw ret ^nu #3392000 spctobuf+ v1 #188889 v2 232 v5 32 wp #2550000 ret ^nu #5160000 loadcarstyle+ input:in28_has_array,_in3_is+ maximum_length,in10_is_disk,+ and_in11_has_cardnum,_these+ must_be_prechecked!._returns+ in6_loaded_length.+ gi5 3 v5su 232 pf5 3 bv1 pf1 5 .#8 gi1 5 presentstart+ gi3 3 maxstart+ v5 :#27 v1gv3n5 gi3 11 v3v1 v1i pf1 11 gi1 10 v5 1 dskr v5 #188888 w5v1 bv1n :#127 sign_that_text_+ is_complete:nil_first_pos.+ gi1 5 gi2 28 ad123 prep #55888 v3v1 nx 14 v1 #188888 nx 13 v1 232 nx 8 warp gi1 5 adv1 232 pf1 5 nins #8 ;#27 ;#127 gi3 5 pf3 6 ret ^nu #5960000 savecarstyle+ input:in28_has_array,+ in29_has_len._in10_has_disk,+ and_in11_has_cardnum,_these+ must_be_prechecked!._returns+ in8=1_when_ok,_0_when_butted+ against_upper_disk_limit.+ dv1 pf1 8 bv1 pf1 5 gi5 29 v5su 232 pf5 1 v3 232 pf3 18 gi1 29 v2 232 mo123 pf3 22 we_put_in_chk_butt_of_dsk,+ soon_enough.+ gi1 22 v5 :#16 v1nzn5 v1 232 pf1 22 ;#16 .#6 save+ gi1 5 presentstart+ v1i gi3 29 maxlen+ v5 :#27 v1gv3n5 gi3 5 gi1 1 in1_start+ v5 :#15 v1gv3n5 gi4 22 pf4 18 wp #3392000 ;#15 gi1 5 gi2 28 ad123 prep #55888 v3v1 nx 13 v1 #188889 nx 14 gi1 18 nx 8 warp gi1 5 adv1 232 pf1 5 gi3 11 v3v1 v1i pf1 11 gi1 10 v5 1 dskw nins #6 ;#27 prep #3474000 gi1 10 nx 3 gi1 11 nx 4 warp ret ^nu #5950000 dechiper_cardid+ input:in19_has_text_like_i1+ and_it_has_a_nil_after_it.+ output:in23_1_is_ok,0=notok.+ in12_has_disknum,in14_cardno+ bv1 pf1 23 pf1 12 pf1 14 gi5 19 w5v1 v2 99 c+ v3 108 l+ v5 :#277 v1nw23 adv1 -96 pf1 12 prep #58000 gi1 19 v1i nx 13 warp v5 @#58000 14 w5v1 pf1 14 v2 1 v3 2155000 v5 :#4 v1nw23 dv1 pf1 23 ;#277 ;#4 ret ^nu #3390000 freshsubarea+ v3 3 v5 232 v4 1000 v2 260 wp #33000 ret ^nu #5012000 cutebchars+ in1:warp;in2:len;+ in3:x;in4:y_note:33..126+ are_only_charvalues_that+ give_output_and_no_preerase+ .#1 gi1 2 bv1n :#55 gi1 1 w1v5 gtv5 33 :#33 v5v4 lv4 126 :#38 prep #111018 v5v1 nx 10 gi1 3 nx 11 gi1 4 nx 12 warp ;#33 ;#38 gi1 3 v2 17 ad123 pf3 3 gi1 2 v1d pf1 2 gi4 1 v4i pf4 1 nins #1 ;#55 ret ^nu #6970000 clstext+ v3 5 v5 1 v4 1004 v2 215 wp #34000 ret ^nu #6960000 redisplay+ v3 9 pf3 23 v3 8 pf3 21 lines+ v1 #5777900 w1v5 pf5 1 .#19 prep #5012000 gi1 1 nx 1 v1 58 nx 2 v1 5 nx 3 gi1 23 nx 4 warp v1 58 linelen+ gi2 1 ad123 pf3 1 v3v1 v2 #5005900 w2v3 v5 :#27 v1gv3n5 v2 27 gi1 23 ad123 pf3 23 gi4 21 v4d pf4 21 v4v1 nv1n #19 ;#27 ret ^nu #6050000 fresh_cls_rest+ of_line_and_redisp_this;with+ in6=matrpos;when_line_not+ visible_on_screen,routine+ just_exits.+ gi1 6 v5 #5000900 w5v2 su123 v3v1 v2 58 lwidth+ mo123 pf3 9 pos_on_line+ gi1 6 v3v2 su123 pf3 5 startofline+ v5 #5777900 w5v2 v1 406 lwidth*(height-1)+ ad123 gi1 5 v5 :#15 v1wi23 ret ;#15 gi1 5 v5 #5777900 w5v2 su123 v3v1 v2 58 lwidth+ d123 pf3 10 linenum+ v1 1004 pf1 24 gi1 10 v2 27 m123 v3i pf3 25 v3v1 v2 26 ad123 pf3 22 y1_&_y2+ gi1 9 v2 17 m123 v3v1 v2 5 ad123 pf3 23 v4 1004 pf4 24 x1_&_x2+ gi3 23 x1+ gi5 25 y1+ gi4 24 x2+ gi2 22 y2+ wp #34000 prep #5012000 gi1 23 nx 3 x+ gi1 25 adv1 8 nx 4 y+ gi1 6 nx 1 txtwarp+ v1 58 lw+ gi2 9 su123 v3v1 nx 2 len+ warp ret .#4 [ [yn] 93 0 ^nu #5599900 yn-in-cutebtxt+ in1:x_in2:y_in4:0_1_answer+ prep #1666688 gi1 1 nx 1 gi1 2 nx 2 v1 #4 nx 3 warp kp eqv5 0 =-3 note_that_=-3_means_refer_to+ third_code_on_the_left.+ key ret ^nu #3399000 v3_gets_matrpos+ v5 #6500900 w5v1 v2 27 d123 v3v2 v1 58 m123 v1 #5777900 w1v2 v3v1 ad123 v3v4 lwidth+ v5 #6400900 w5v1 v2 17 d123 v3v2 v4v1 ad123 matrixpos+ ret ^nu #3319000 v3_gets_pos_in+ matrix_for_beginning_of_line+ v5 #6500900 w5v1 v2 27 d123 v3v2 v1 58 m123 v1 #5777900 w1v2 v3v1 ad123 v3v4 lwidth+ ret ^nu #3367000 settextpos+ with_in1_as_matraddr,_this+ routine_calcs_begin_of_line+ and_sets_topofscreen_to_it,+ and_textmarker_pos_moved+ correctly_as_well._Be_sure+ matrpos_is_within_inited.+ gi1 1 v5 #5000900 w5v2 pf2 8 su123 v3v1 v2 58 lwidth+ mo123 pf3 7 v3v2 gi1 8 su123 v3v1 v5 #5777900 v1w5 v1 9 v5 #6500900 v1w5 gi1 7 v2 17 m123 v3v1 v2 5 ad123 v3v1 v5 #6400900 v1w5 ret ^nu #3300000 freshdata+ ;#3300005 v1 1 v5 #3200900 v1w5 v1 5 v5 #6400900 v1w5 v1 9 v5 #6500900 v1w5 v1 0 v5 #3280900 v1w5 v1 0 v5 #2535900 v1w5 v5 #469005 w5ad 250 w5v1 the_#469005_points_to_free+ ram,while_#469000_start_of+ recently_compiled_program.+ v3 #5000900 v1w3 linewidth:+ v5 #2500900 w5v1 v2 58 m123 v3v2 v5 #469005 w5v1 ad123 v3v1 v1w5 v2 -100 ad123 v2 #2530900 v3w2 upper_limit+ v5 #5000900 w5v1 v5 #5005900 v1w5 v5 #5777900 v1w5 v2 58 linewidth+ v5 32 wp #2550000 repeatbyt+ first_line_is_by_this_inited+ ret ^nu #6890000 message_in_in5+ to_subarea,_with_keyinfo_in2+ and_fkeyinfo_in_in13.+ prep #1666688 v1 3 nx 1 v1 240 nx 2 gi1 5 nx 3 warp ek wp #550055 v5 @#550055 2 w5v1 pf1 2 v5 @#550055 13 w5v1 pf1 13 wp #3390000 ret ^nu #6400000 startupinfo+ ;#6400005 prep #1966888 v1 3 nx 1 v1 30 nx 2 v1 #3001000 nx 3 warp prep #1966888 v1 3 nx 1 v1 60 nx 2 v1 #3001100 nx 3 warp prep #1966888 v1 3 nx 1 v1 90 nx 2 v1 #3001200 nx 3 warp prep #1966888 v1 3 nx 1 v1 120 nx 2 v1 #3001300 nx 3 warp prep #1966888 v1 3 nx 1 v1 150 nx 2 v1 #3001400 nx 3 warp prep #1966888 v1 3 nx 1 v1 180 nx 2 v1 #3001500 nx 3 warp prep #1966888 v1 3 nx 1 v1 240 nx 2 v1 #111 nx 3 warp prep #1966888 v1 3 nx 1 v1 210 nx 2 v1 #3001600 nx 3 warp wp #550055 wp #55600 wp #550055 ret .#192 [ Write with intuition!] 0 ^nu #5500000 editmain+ ;#5500005 wp #3390000 freshsubarea+ prep #6890000 v1 #192 nx 5 warp .#123 main:+ main_editor_workloop:+ wp :#2800005 showposmarker+ wp :#3900005 keyb_receive+ wp :#4400005 act_on_it+ wp :#4500005 handles_ranges+ v3 #3200900 w3v5 v1 1 v1v5e #123 ret ^nu #2800000 showposmarker+ ;#2800005 v5 #6400900 w5v3 v3d v3v4 v1 #6500900 w1v5 v5v1 adv1 11 v1v2 wp #33000 v5 #6400900 w5v3 v3v4 adv4 3 v5 220 v2 222 wp #33000 ret ^nu #2900000 unshowposmarker+ v5 #6400900 w5v3 v3d v3v4 v1 #6500900 w1v5 v5v1 adv1 11 v1v2 wp #34000 v5 #6400900 w5v3 v3v4 adv4 3 v5 220 v2 222 wp #34000 ret ^nu #2580000 ensureinited+ in:5_beginning_adr_of_line+ ensures_inited_up_to_line.+ in:8_results_in_1_when_ok+ when_in8_0_then_at_doclimit.+ the_in8_is_fetched_with_@_so+ this_isn't_:futurecalled+ v1 0 pf1 8 v5 #2530900 w5v3 gi1 5 v5 :#19 v1gv3n5 v1v3 v5 :#17 v4 #5005900 w4v1 v1gv3n5 sg3 ad135 abv5 v5v2 adv1 58 lwidth+ v5 32 wp #2550000 v1 #5005900 gi5 5 v5w1 ;#17 v1 1 pf1 8 ;#19 ret ^nu #3900000 keybreceive+ ;#3900005 .#123 kp gtv5 1 #123 note!!!+ only_use_key_when_kp_gives_1+ key kp_says_buff_has_content+ v5 #2100900 v1w5 v2 #2300900 v3w2 ret ^nu #4400000 actonkeyb+ ;#4400005 v5 #2100900 w5v1 v5 :#12 v2 32 v3 126 v1nw23 pf1 5 wp #2900000 v5 #6400900 w5v3 adv3 12 v3v4 adv4 2 v1 #6500900 w1v5 v5su 6 v5v2 v2i v2i wp #34000 prep #111018 gi1 5 nx 10 v5 #6400900 w5v1 nx 11 v5 #6500900 w5v1 nx 12 warp wp #3399000 v3_gets_matrpos+ gi2 5 v2w3 char_saved!!!!!+ v5 #6400900 w5ad 17 ret ;#12 ctrchar_next:+ v1v3 v1 13 enter+ v5 :#69 v1v3en5 eqv3g 8 :#2880005 bs+ eqv3g 7 :#2810005 ctr-g+ eqv3g 6 :#2820005 ctr-f+ eqv3g 20 :#2830005 ctr-t+ eqv3g 22 :#2840005 ctr-v+ eqv3g 25 :#7400005 ctr-y+ eqv3g 5 :#2955005 ctr-e+ eqv3g 27 :#2999005 escoption+ eqv3g 1 :#6810005 ctr-a+ eqv3g 21 :#6821005 ctr-u+ au:_chemical_sign_for_gold+ eqv3g 16 :#2838005 ctr-p+ eqv3g 19 :#2850005 ctr-s+ eqv3g 12 :#2860005 ctr-l+ eqv3g 17 :#2870005 ctr-q+ eqv3g 23 :#2890005 ctr-w+ eqv3g 9 :#2899005 tab+ eqv3g 24 :#2891235 ctr-x+ keyboard,so_eqv3g_stuff_can+ be_used_as_speed_anyhow_ok.+ v1 26 v5 :#58 v1v3en5 ret ;#58 v5 0 v3 #3200900 v5w3 ctr-z+ ret ;#69 handle_enter+ wp #2900000 v1 5 v5 #6400900 v1w5 nins :#2840501 note:jumping_into_another+ routine_means_local_vars_are+ stored_where_jumped_FROM.+ ^nu #4500000 handleranges+ ;#4500005 v3 #6400900 w3v5 gtv5 957 :#258 v1 956 v1w3 ;#258 v5v4 lv4 4 :#199 v1 5 v1w3 ;#199 v3 #6500900 w3v5 gtv5 199 :#558 v1 198 v1w3 ;#558 v5v4 lv4 8 :#27 v1 9 v1w3 ;#27 ret ^nu #2810000 ctr-g+ ;#2810005 wp #2900000 v5 #6400900 w5ad 17 v3 0 eqv3g_complete+ ret ^nu #2820000 ctr-f+ ;#2820005 wp #2900000 v5 #6400900 w5su 17 v3 0 ret ^nu #2830000 ctr-t+ ;#2830005 wp #2900000 v5 #6500900 w5v1 v2 27 d123 bv1 v5 :#139 v1lv3n5 v5 #5000900 w5v1 v2 #5777900 w2v3 v5 :#885 v1lv3n5 v3 0 ret ;#885 v2v5 w5su 58 wp #6970000 wp #6960000 v3 0 ret ;#139 v5 #6500900 w5su 27 v3 0 ret ^nu #2840000 ctr-v+ ;#2840005 to_skip_29:__extra501_entry:+ wp #2900000 ;#2840501 v5 #6500900 w5ad 27 w5v1 v2 27 d123 pf3 19 v3v1 v2 58 lwidth+ m123 v3v1 prep #2580000 ensureinited+ v5 #5777900 w5v2 ad123 v3v1 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 gi3 19 gtv3 8 :#255 v5 #5777900 w5ad 58 lwidth+ wp #6970000 wp #6960000 ;#255 v3 0 ret ;#27 v5 #6500900 w5su 27 prep #6890000 v1 :#63 nx 5 warp v3 0 ret ;#63 [ beyond max num lines {enter}] 0 .#16 [ example: i1 or h1000] 0 .#55 [ save: type exact cardid] 0 .#888 [ Saved! pls note cardid.] 0 .#99 [ xnnnnnnn ] 0 .#285 [ touched disklimit!] 0 ^nu #2850000 ctr-s+ ;#2850005 wp #2900000 .#192 prep #1666688 v1 3 nx 1 v1 240 nx 2 v1 #55 nx 3 warp prep #2550000 v1 #99 v2 9 v5 0 warp wp #6970000 prep #1966669 v1 20 nx 1 v1 100 nx 2 v1 #99 nx 3 v1 0 nx 10 v1 8 nx 12 warp wp #3390000 v5 #99 w5v1 bv1n :#127 prep #5950000 v1 #99 nx 19 warp v5 @#5950000 23 w5v1 nv1n :#195 prep #6890000 v1 #16 nx 5 warp nins #192 ;#195 prep #5960000 v5 #5000900 w5v1 nx 28 v1v2 v5 #5005900 w5v1 adv1 58 su123 v3v1 nx 29 v5 @#5950000 12 w5v1 nx 10 v5 @#5950000 14 w5v1 nx 11 warp prep #6890000 v1 #888 nx 5 warp ;#127 wp #6970000 wp #6960000 v3 0 ret .#16 [ example: i1 or h1000] 0 .#55 [ LOAD ERASES CURRENT RAM] 0 .#888 [ Loaded! Pls note cardid.] 0 .#99 [ xnnnnnnn ] 0 .#285 [ touched disklimit!] 0 ^nu #2860000 ctr-l+ ;#2860005 wp #2900000 .#192 prep #1666688 v1 3 nx 1 v1 240 nx 2 v1 #55 nx 3 warp prep #2550000 v1 #99 v2 9 v5 0 warp wp #6970000 prep #1966669 v1 20 nx 1 v1 100 nx 2 v1 #99 nx 3 v1 0 nx 10 v1 8 nx 12 warp wp #3390000 v5 #99 w5v1 bv1n :#127 prep #5950000 v1 #99 nx 19 warp v5 @#5950000 23 w5v1 nv1n :#195 prep #6890000 v1 #16 nx 5 warp nins #192 ;#195 prep #5160000 v5 #5000900 w5v1 nx 28 v1v2 v5 #2530900 w5v1 su123 v3v1 nx 3 v5 @#5950000 12 w5v1 nx 10 v5 @#5950000 14 w5v1 nx 11 warp v5 @#5160000 6 w5v1 bv1n :#513 v2 58 su123 v3v2 v5 #5000900 w5v1 ad123 v2 #5005900 v3w2 v5 #5000900 w5v1 v5 #5777900 v1w5 prep #6890000 v1 #888 nx 5 warp ;#127 ;#513 wp #6970000 wp #6960000 v3 0 ret ^nu #7400000 ctr-y+ ;#7400005 wp #2900000 wp #3319000 pf3 13 prep #2580000 ensureinited+ v3v1 adv1 58 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 wp #3399000 pf3 5 prep #5558000 v3v1 nx 13 v3v1 v1i nx 14 pf3 9 v5 #6400900 w5v1 v2 17 d123 v3v2 v1 116 lw2+ su123 v3v1 v1d nx 8 warp v1 32 gi5 9 v1w5 prep #6050000 gi1 5 nx 6 warp prep #6050000 gi2 13 v1 58 lwidth+ ad123 v3v1 nx 6 warp v3 0 ret ;#27 prep #6890000 v1 :#63 nx 5 warp v3 0 ret ;#63 [ maxnum lines touched!] 0 ^nu #2870000 ctr-q+ ;#2870005 wp #2900000 wp #3319000 pf3 5 prep #2580000 ensureinited+ v3v1 adv1 58 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 wp #3399000 pf3 20 prep #55888 v3v1 v1i nx 13 v3v1 nx 14 v5 #6400900 w5v1 v2 17 d123 v3v2 v1 116 lw2+ su123 v3v1 v1d nx 8 warp v1 115 lw_twice+ gi2 5 ad123 v1 32 v1w3 prep #6050000 gi1 20 nx 6 warp prep #6050000 gi2 5 v1 58 lwidth+ ad123 v3v1 nx 6 warp v3 0 ret ;#27 prep #6890000 v1 :#63 nx 5 warp v3 0 ret ;#63 [ maxnum lines touched!] 0 ^nu #2880000 bkps+ ;#2880005 wp #2900000 v5 #6400900 w5su 17 v3 0 ret ^nu #2955000 ctr-e+ ;#2955005 wp #2900000 v1 #5777900 w1v5 v5su 464 lwidth_times_height+ v5v3 v5 #5000900 w5v1 v5 :#885 v1lv3n5 v5 #5000900 w5v1 v5 #5777900 v1w5 nins :#55 ;#885 lwidth_*_height+ v5 #5777900 w5su 464 ;#55 wp #6970000 wp #6960000 v3 0 ret .#7 [ off-limit cfr maxnum lines] 0 ^nu #2891230 ctr-x+ ;#2891235 times_two_so+ wp #2900000 we're_CERTAIN!+ v1 928 lwidth_times_height*2+ prep #2580000 ensureinited+ v5 #5777900 w5v2 ad123 v3v1 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 lwidth_times_height+ v5 #5777900 w5ad 464 wp #6970000 wp #6960000 v3 0 ret ;#27 prep #6890000 v1 #7 nx 5 warp v3 0 ret ^nu #2899000 tab+ ;#2899005 wp #2900000 prep #2580000 ensureinited+ v5 #5005900 w5v1 adv1 58 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 wp #3399000 pf3 19 v5 #5005900 w5v1 v3v2 su123 pf3 18 prep #5558000 gi1 18 nx 8 gi1 19 nx 13 adv1 58 nx 14 warp gi1 19 v2 58 lwidth+ v5 32 space+ wp #2550000 wp #6970000 wp #6960000 v3 0 ret ;#27 prep #6890000 v1 :#17 nx 5 warp v3 0 ret ;#17 [ maxnum lines touched] 0 .#15 [ love you!] 0 ^nu #2838000 ctr-p+ ;#2838005 ret wp #2900000 prep #6890000 v1 #15 nx 5 warp v3 0 ret ^nu #2999000 options-menu+ ;#2999005 wp #2900000 wp #550055 v5 @#550055 2 w5v1 v2 65 v3 90 v5 :#189 v1nw23 adv1 32 lc+ ;#189 v1v5 eqv5 107 esck+ :#3171005 eqv5 109 escm+ :#6123005 eqv5 115 escs+ :#4000405 eqv5 106 escj+ :#3140005 wp #6970000 clsmain+ prep #1966888 v1 10 nx 1 v1 10 nx 2 v1 :#22 nx 3 warp prep #1966888 v1 10 nx 1 v1 35 nx 2 v1 :#23 nx 3 warp prep #1966888 v1 10 nx 1 v1 60 nx 2 v1 :#24 nx 3 warp prep #1966888 v1 10 nx 1 v1 85 nx 2 v1 :#25 nx 3 warp prep #1966888 v1 10 nx 1 v1 110 nx 2 v1 :#26 nx 3 warp prep #1966888 v1 10 nx 1 v1 135 nx 2 v1 :#27 nx 3 warp prep #1966888 v1 10 nx 1 v1 160 nx 2 v1 :#28 nx 3 warp prep #1966888 v1 10 nx 1 v1 185 nx 2 v1 :#29 nx 3 warp prep #6890000 v1 :#555 nx 5 warp wp #6970000 wp #6960000 v3 0 ret ;#555 [ ctr-keys incl s save z exit] 0 ;#22 [ esc then k to kill line] 0 ;#23 [ m kill many (8)] 0 ;#24 [ I like your style!] 0 ;#25 [ Wonder what you'll do now?] 0 ;#26 [ Listen to your own] 0 ;#27 [ gut feeling!] 0 ;#28 [ s insert 8 spaces] 0 ;#29 [ j jump to line & line count] 0 ^nu #3171000 esck+ ;#3171005 wp #3319000 pf3 5 prep #2580000 ensureinited+ v3v1 adv1 58 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 gi1 5 adv1 58 prep #55888 nx 13 gi1 5 nx 14 v5 #5005900 w5v1 gi2 5 su123 v3v1 nx 8 warp v5 #5005900 w5v1 v2 58 lwidth+ v5 32 space+ wp #2550000 wp #6970000 wp #6960000 v3 0 ret ;#27 prep #6890000 v1 :#63 nx 5 warp v3 0 ret ;#63 [ maxnum lines touched!] 0 ^nu #6810000 ctr-a+ ;#6810005 wp #2900000 wp #3319000 pf3 5 prep #2580000 ensureinited+ v3v1 adv1 58 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 wp #3399000 pf3 20 prep #55888 v3v1 v1i nx 13 v3v1 nx 14 v5 #6400900 w5v1 v2 17 d123 v3v2 v1 58 lw+ su123 v3v1 v1d nx 8 warp v1 57 ca_lw+ gi2 5 ad123 v1 32 v1w3 prep #6050000 gi1 20 nx 6 warp v3 0 ret ;#27 prep #6890000 v1 :#63 nx 5 warp v3 0 ret ;#63 [ maxnum lines touched!] 0 ^nu #6821000 ctr-u+ ;#6821005 wp #2900000 wp #3319000 pf3 13 prep #2580000 ensureinited+ v3v1 adv1 58 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 wp #3399000 pf3 5 prep #5558000 v3v1 nx 13 v3v1 v1i nx 14 pf3 9 v5 #6400900 w5v1 v2 17 d123 v3v2 v1 58 lw+ su123 v3v1 v1d nx 8 warp v1 32 gi5 9 v1w5 prep #6050000 gi1 5 nx 6 warp v3 0 ret ;#27 prep #6890000 v1 :#63 nx 5 warp v3 0 ret ;#63 [ maxnum lines touched!] 0 ^nu #6123000 escm+ ;#6123005 wp #3319000 pf3 5 prep #2580000 ensureinited+ linewidthxheight+ v3v1 adv1 464 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 gi1 5 adv1 464 prep #55888 nx 13 gi1 5 nx 14 v5 #5005900 w5v1 gi2 5 su123 v3v1 nx 8 warp v5 #5005900 w5v1 adv1 -406 v2 464 lwx8+ v5 32 space+ wp #2550000 wp #6970000 wp #6960000 v3 0 ret ;#27 prep #6890000 v1 :#63 nx 5 warp v3 0 ret ;#63 [ maxnum lines touched!] 0 ^nu #4000400 escs+ ;#4000405 wp #2900000 wp #3319000 pf3 13 prep #2580000 ensureinited+ v3v1 adv1 58 nx 5 warp v5 @#2580000 8 w5v1 bv1n :#27 wp #3399000 pf3 5 prep #5558000 v3v1 nx 13 adv1 8 nx 14 v5 #6400900 w5v1 v2 17 d123 v3v2 v1 108 lw2+ su123 v3v1 nx 8 warp gi1 5 v2 8 v5 32 wp #2550000 prep #6050000 gi1 5 nx 6 warp prep #6050000 gi2 13 v1 58 lwidth+ ad123 v3v1 nx 6 warp v3 0 ret ;#27 prep #6890000 v1 :#63 nx 5 warp v3 0 ret ;#63 [ maxnum lines touched!] 0 .#14 [ 0000000] 0 0 0 linenumber_input_here.+ ^nu #3140000 escj_jumptoline+ ;#3140005 wp #2900000 wp #6970000 v5 #5005900 w5v1 v5 #5000900 w5v2 su123 v2 58 linewidth+ v3v1 d123 v3v1 v1i pf1 5 prep #55904 gi1 5 nx 10 v1 :#231 nx 15 warp wp #3319000 v3v1 v5 #5000900 w5v2 su123 v2 58 linewidth+ v3v1 d123 v3v1 v1i pf1 8 prep #55904 gi1 8 nx 10 v1 :#251 nx 15 warp prep #1966888 v1 10 nx 1 v1 110 nx 2 v1 :#24 nx 3 warp prep #1966888 v1 10 nx 1 v1 135 nx 2 v1 :#25 nx 3 warp prep #1966888 v1 10 nx 1 v1 160 nx 2 v1 :#26 nx 3 warp prep #1966888 v1 10 nx 1 v1 185 nx 2 v1 :#27 nx 3 warp prep #1666688 v1 3 nx 1 v1 240 nx 2 v1 :#555 nx 3 warp prep #1966669 v1 20 nx 1 v1 25 nx 2 v1 #14 nx 3 v1 0 nx 10 v1 6 nx 12 warp prep #58010 v1 #14 nx 13 warp v3 @#58010 14 w3v1 abv1 pf1 17 v1 5 v5 #6400900 v1w5 v1 9 v5 #6500900 v1w5 gi1 17 v2 1 gi3 5 v5 :#29 v1wi23 pf3 17 ;#29 gi1 17 v2 58 linewidth+ v1d m123 v3v1 v5 #5000900 w5v2 ad123 v1 #5777900 v3w1 wp #3390000 wp #6970000 wp #6960000 v3 0 ret ;#555 [ Press 'enter' for last line] 0 ;#24 [ pls type linenumber] 0 ;#25 [ present line: ] ;#251 [ 1234567890] 0 ;#26 [ qty lines incl blank] 0 ;#27 [ lines: ] ;#231 [ 1234567890] 0 .#19 [ idea for a routine ;)] 0 searchword+ ^nu #2890000 ctrw+ ;#2890005 ret wp #2900000 wp #6970000 prep #1966888 v1 10 nx 1 v1 110 nx 2 v1 :#24 nx 3 warp prep #1966888 v1 10 nx 1 v1 135 nx 2 v1 :#25 nx 3 warp prep #1966888 v1 10 nx 1 v1 160 nx 2 v1 :#26 nx 3 warp prep #1966888 v1 10 nx 1 v1 185 nx 2 v1 :#27 nx 3 warp prep #1666688 v1 3 nx 1 v1 240 nx 2 v1 :#555 nx 3 warp prep #1966669 v1 5 nx 1 v1 25 nx 2 v1 #19 nx 3 v1 0 nx 10 v1 14 nx 12 warp v5 #19 w5v1 bv1n :#155 prep #55889 stra_to_strb+ v1 #19 nx 13 v1 #2535900 nx 14 warp ;#155 v1 #2535900 prep #8578 len_of_str+ nx 8 warp v5 @#8578 14 w5v1 pf1 60 bv1 pf1 40 gi1 60 bv1n :#271 v1 #2535900 w1v5 pf5 7 v1i w1v5 pf5 8 v1i pf1 9 bv1v1 v1_match_v3..v4,_with+ v5_basis_when_unfound,or_pos+ --for_two_chars_nzv1v2.+ v5v1 bv1n :#177 _call_3367000_with_v1=pos.+ dear_program_comment_reader:+ the_miniedit_and_cedit+ programs_have_inside_them+ a_couple_of_unused,untested+ and_incomplete_routines.+ check_carefully_before_reuse+ ;#177 whenunfound_firstpos:+ v5 #5000900 w5v1 v5 #5777900 v1w5 v1 5 v5 #6400900 v1w5 v1 9 v5 #6500900 v1w5 ;#271 wp #3390000 wp #6970000 wp #6960000 v3 0 ret ;#555 [ Type your search in this text] 0 ;#24 [ 'Enter' equals repeat last] 0 ;#25 [ (to text-start if unfound) ] 0 ;#26 [ starts at present position.] 0 ;#27 [ get lower & uppercase right.] 0 &&&&&&&&&&&&&&&&&&&&&&&&&&&&&