home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / vision / programm / paintshp / source / fmuster.lst < prev    next >
Encoding:
File List  |  1994-09-22  |  404 b   |  15 lines
  1. DIM fmuster$(19)
  2. FILESELECT #"FÜLLMUSTER LADEN",DIR$(0)+"\*.FLL","",select$
  3. IF EXIST(select$)=-1
  4.   OPEN "I",#0,select$
  5.   dummy$=INPUT$(640,#0)
  6.   CLOSE #0
  7.   FOR q&=0 TO 19
  8.     fmuster$(q&)=MID$(dummy$,SUCC(MUL(q&,32)),32)
  9.     ' Die nächste Zeile aktiviert das Füllmuster
  10.     DEFFILL ,fmuster$(q&)
  11.     ' Hier wird etwas gezeichnet
  12.     PBOX MUL(q&,32),0,ADD(MUL(q&,32),32),399
  13.   NEXT q&
  14. ENDIF
  15.