home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 4: The Falcon Archive / nf_archive_four_v1.0.iso / ARCHIVE / WORK / UTILITY / XGRAB024.ZIP / GFX-_TPI.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1994-05-04  |  1KB  |  26 lines
  1. FILESELECT DIR$(0)+"\*.GFX","",fname$
  2. IF fname$<>""
  3.   OPEN "i",#1,fname$
  4.   a$=INPUT$(38,#1)
  5.   IF BTST(CVI(MID$(a$,3,2)),8)
  6.     b$=INPUT$(1024+32,#1)
  7.     w#=CVI(MID$(a$,39-6,2))+CVI(MID$(a$,39-4))
  8.     h#=(CVI(MID$(a$,25,2))-CVI(MID$(a$,23,2)))/2
  9.     IF BTST(CVI(MID$(a$,31,2)),1)
  10.       h#=h#*2
  11.     ENDIF
  12.     x$="PNT"+CHR$(0)+MKI$(&H1000)+MKI$(0)+MKI$(w#)+MKI$(h#)+MKI$(&H10)+MKL$(&HE)+CHR$(&HA6)
  13.     x$=x$+STRING$(128-LEN(x$),CHR$(0))
  14.     RESERVE 10000
  15.     BLOAD fname$,HIMEM
  16.     BMOVE V:x$,HIMEM+38+1024+32-128,128
  17.     BSAVE LEFT$(fname$,RINSTR(fname$,"."))+"TPI",HIMEM+38+1024+32-128,LOF(#1)-38-1024-32+128
  18.   ELSE
  19.     CLS
  20.     PRINT "Sorry!"
  21.     PRINT "Ich kann bis jetzt nur TrueColor-Bilder konvertieren!"
  22.     ~INP(2)
  23.   ENDIF
  24.   CLOSE #1
  25. ENDIF
  26.