$COMPILE EXE "ANSE.EXE"
x&=setmem(-500000)
POPup key chr$(8,63,247)
Print "ALT + F5 to activate"
4 popup sleep using EMS
n=1
if command$="" then dnd$="78 479 0 0 out.ans" else dnd$=command$
for r=1 to len(dnd$)
if mid$(dnd$,r,1)=" " then ww=ww+1:goto 3
if ww=0 then mx$=mx$+mid$(dnd$,r,1)
if ww=1 then my$=my$+mid$(dnd$,r,1)
if ww=2 then xof$=xof$+mid$(dnd$,r,1)
if ww=3 then yof$=yof$ +mid$(dnd$,r,1)
if ww=4 then d$=d$+mid$(dnd$,r,1)
3 next r
mx=val(mx$)
my=val(my$)
xoff=val(xof$)
yoff=val(yof$)
open d$ for output as #1
for x=yoff to my+yoff*n step n
for y=xoff to mx+xoff*n step n
on error goto 23
f= POINT (y,x)
d=asc("*")
if f=0 then f=30:cR$=chr$(32):mm$="0;"
if f=1 then f=34:cr$=chr$(d):mm$="0;"
if f=2 then f=32:cr$=chr$(d):mm$="0;"
if f=3 then f=36:cr$=chr$(d):mm$="0;"
if f=4 then f=31:cr$=chr$(d):mm$="0;"
if f=5 then f=35:cr$=chr$(d):mm$="0;"
if f=6 then f=33:cr$=chr$(d):mm$="0;"
if f=7 then f=37:cr$=chr$(d):mm$="0;"
if f=8 then f=30:cr$=chr$(d):mm$="0;1;"
if f=9 then f=34:cr$=chr$(d):mm$="0;1;"
if f=10 then f=32:cr$=chr$(d):mm$="0;1;"
if f=11 then f=36:cr$=chr$(d):mm$="0;1;"
if f=12 then f=31:cr$=chr$(d):mm$="0;1;"
if f=13 then f=35:cr$=chr$(d):mm$="0;1;"
if f=14 then f=33:cr$=chr$(d):mm$="0;1;"
if f=15 then f=37:cr$=chr$(d):mm$="0;1;"
ff$=ff$ + chr$(27) + "["+mm$ + rtrim$(ltrim$(str$(f))) + ";40m"+cr$
pset (y,x),15
next y
print #1,ff$:ff$=""
if inkey$=chr$(27) then goto 34
next x
34 print #1,chr$(27);"[0m"
if m=23 then m=0:screen 0:print dd$:locate x%,y%:x%=0:y%=0:dd$=""
close 1
goto 4

23 def seg=&hb800:scrn$=peek$(0,4000):x%=csrlin:y%=pos(0):screen 9
for q=1 to len(scrn$)-1 step 2
print mid$(scrn$,q,1);
dd$=dd$+mid$(scrn$,q,1)
next q
m=23
resume next