1: $COMPILE EXE "ANSE.EXE" 2: x&=setmem(-500000) 3: POPup key chr$(8,63,247) 4: Print "ALT + F5 to activate" 5: 4 popup sleep using EMS 6: n=1 7: if command$="" then dnd$="78 479 0 0 out.ans" else dnd$=command$ 8: for r=1 to len(dnd$) 9: if mid$(dnd$,r,1)=" " then ww=ww+1:goto 3 10: if ww=0 then mx$=mx$+mid$(dnd$,r,1) 11: if ww=1 then my$=my$+mid$(dnd$,r,1) 12: if ww=2 then xof$=xof$+mid$(dnd$,r,1) 13: if ww=3 then yof$=yof$ +mid$(dnd$,r,1) 14: if ww=4 then d$=d$+mid$(dnd$,r,1) 15: 3 next r 16: mx=val(mx$) 17: my=val(my$) 18: xoff=val(xof$) 19: yoff=val(yof$) 20: open d$ for output as #1 21: for x=yoff to my+yoff*n step n 22: for y=xoff to mx+xoff*n step n 23: on error goto 23 24: f= POINT (y,x) 25: d=asc("*") 26: if f=0 then f=30:cR$=chr$(32):mm$="0;" 27: if f=1 then f=34:cr$=chr$(d):mm$="0;" 28: if f=2 then f=32:cr$=chr$(d):mm$="0;" 29: if f=3 then f=36:cr$=chr$(d):mm$="0;" 30: if f=4 then f=31:cr$=chr$(d):mm$="0;" 31: if f=5 then f=35:cr$=chr$(d):mm$="0;" 32: if f=6 then f=33:cr$=chr$(d):mm$="0;" 33: if f=7 then f=37:cr$=chr$(d):mm$="0;" 34: if f=8 then f=30:cr$=chr$(d):mm$="0;1;" 35: if f=9 then f=34:cr$=chr$(d):mm$="0;1;" 36: if f=10 then f=32:cr$=chr$(d):mm$="0;1;" 37: if f=11 then f=36:cr$=chr$(d):mm$="0;1;" 38: if f=12 then f=31:cr$=chr$(d):mm$="0;1;" 39: if f=13 then f=35:cr$=chr$(d):mm$="0;1;" 40: if f=14 then f=33:cr$=chr$(d):mm$="0;1;" 41: if f=15 then f=37:cr$=chr$(d):mm$="0;1;" 42: ff$=ff$ + chr$(27) + "["+mm$ + rtrim$(ltrim$(str$(f))) + ";40m"+cr$ 43: pset (y,x),15 44: next y 45: print #1,ff$:ff$="" 46: if inkey$=chr$(27) then goto 34 47: next x 48: 34 print #1,chr$(27);"[0m" 49: if m=23 then m=0:screen 0:print dd$:locate x%,y%:x%=0:y%=0:dd$="" 50: close 1 51: goto 4 52: 53: 23 def seg=&hb800:scrn$=peek$(0,4000):x%=csrlin:y%=pos(0):screen 9 54: for q=1 to len(scrn$)-1 step 2 55: print mid$(scrn$,q,1); 56: dd$=dd$+mid$(scrn$,q,1) 57: next q 58: m=23 59: resume next |