xYZ (u************************)u* TYPER'S TOOLBOX **u* by STEVEN BOBULSKY *+u* ANTIC MAGAZINE *,u* JANUARY, 1984 *-u* MODS by DAVID HARPER *.u************************0u] B5( }Enter the starting line number.9<(Y(Increment between lines]:u;;A ,;A ,'6-;!B&BDue B .(}Enter for regular linesJ(OR for DATA lines.NeO:,@B Nu%6-"@% BXuz6-@6-$6-O:,4( }:7(z(>Enter your items, or none, & hit Π twice when finished.buM(( Item #167B:,%@,.,?6-%@M6-%@lu 06- BPvuU 467B:,,.%6-&@36-&@A6-%@U"@Bu"@BPu4B u 6-%67B:,,.uQ6-(}(!(*(<-NAB@Q&u\ B(3(Proposed next line is %6(<%?(Y(Π => CONTINUE\(uv(٠٠ => MENU$@D@@K:Q)@\@v"@:>:AU,,Bua B(!"6@&(;( Item count = [(Items in current block = ^(a(up(( CURRENT LINE (( = F(PROPOSED NEXT LINE = %L%O(b( => NEXT LINEp( => EDITup( => CHANGE INCREMENT2( => SHIFT MODESS( => RESTART (no lines lost)p( => DELETE A LINE RANGEuO((Š:"@1( REGULAR LINES4(O( Š = I:,u="6@( DATA LINES"(=( Š = I:,ujI:, A.(٠̠R( or your program linesg(to TAPE or DISK.juW@.@@K:;)@W @:1,)!@:6,Bv@"@:2,9(&}: When done, hit over CONT=@( v5"@:2,(( '"6@5(DATA v6"@:2,(((!(CONT3-6& v,"@:2,(}6."(, BP*vW"@:3,2(}Enter the new line increment.6<(}?(CJ6.M(W BP4vB"@:4,(}((%6.16-@86-6B BP>v"@:5, BHv"@:6, BRv7 6.(}6-@$6-%-6-O:,7 B0\vAB@(}$fvh(}ҠŠ:(Type in the line or just press\(Π to skip to the MENU._(h( pvR@.@@K:;)@R67B:,%@,.>:,zv"@:>:AU,, BPv (>:, B vB4>:AU,/(}No new entry on line 86-O:,B BPv"@:>:AU,, Bpv9( ((CONT$-@6AB@9&v. B6-O:,%!($(. B vg@B((}ŠŠٺàՠԠɠϠΠg( ٠ŠŠ٠Šv''(Even this program, if you wish.v^ B(,( line to delete0L( line to deleteP^!Bvs@@3(Enter the line increment.[(#(If unsure, use for this value)_s!B'Bvq(}LOWEST LINE =-(HIGHEST LINE =A(Šՠſ D(_(Press ٠ to continue,qA@dvo(or ٠ to abort.'@G@@K:T)@_@:Y,e(}o BPvT(,(!If you want to watch the process,T(#press . If you would like speed,va%(٠ will blank the screenG(during the delete to initiatea(DIRECT MEMORY ACCESS.vi@.@@K:;)@A(}L@:1,^AYi@wj-@@6(POKE 842,12:POKE 559,34:CONTH-@@j(POSITION 2,6:? Q:POSITION 2,4w`-@@9(Q=Q+S:IF Q<=U THEN POSITION 2,1K-@]AB@`&w/ (} B%AY@4/ BPD:TOOLBOX1.BAS