Archifast macros (c) by Francisco Jayo-August 28, 1998 http://netdial.caribe.net/~franjayo/afast98.htm Number Sequence MACRO NM ECOFF GN num1 ^DType 1st number(right click): IFERR Done GP num0 ^D Place number(left click): IFERR Done GETX x1 num0 GETY y1 num0 |TEXTM num1;num0 GP nump ^D Place next number(left click): IFERR Done GETX x2 nump GETY y2 nump GV x0 x2-x1 ifn x0 min1 gv xt x0 go jump1 :min1 gv xt x0*-1 :jump1 GV y0 y2-y1 ifn y0 min2 gv yt y0 go jump2 :min2 gv yt y0*-1 :jump2 gv t1 xt-yt ifp t1 Hor GN num1 num1+1 |TEXTM num1;x1,y2 GP z1 ^DContinue?(left button Y, right N) IFERR Done :Loop GV y2 y2+y0 GN num1 num1+1 |TEXTM num1;x1,y2 GP z1 ^DContinue?(left button Y, right N) IFERR Done GO Loop :Hor GN num1 num1+1 |TEXTM num1;x2,y1 GP z1 ^DContinue?(left button Y, right N) IFERR Done :Loop2 GV x2 x2+x0 GN num1 num1+1 |TEXTM num1;x2,y1 GP z1 ^DContinue?(left button Y, right N) IFERR Done GO Loop2 :Done ECON ENDM