home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_09 / ANSIDR12.LZH / ANSIEDIT / ANSIPLOT.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1994-12-22  |  782b  |  24 lines
  1. ' Example for using the ANSI-Driver.
  2. ' Written 1994 by Teddy of TMC/Orion
  3. '
  4. ' Gemdos(500) ->Init driver
  5. ' Gemdos(501) ->Deinit driver
  6. ' Gemdos(503,L:ADRESS,L:LENGTH) ->Plot ANSI-text...
  7. '
  8. FILESELECT "\*.*","",fi$
  9. IF EXIST(fi$)=-1
  10.   IF GEMDOS(500)<>0     !Init Driver if present!
  11.     ALERT 0,"ANSI-driver not present!",1,"Abort",dummy%
  12.     EDIT
  13.   ENDIF
  14.   OPEN "I",#1,fi$
  15.   l%=LOF(#1)
  16.   p$=SPACE$(l%)
  17.   BGET #1,VARPTR(p$),l%
  18.   CLOSE #1
  19.   VOID GEMDOS(503,L:VARPTR(p$),L:l%)    !Plot Ansi-Data (Easy, isn't it?)
  20.   PRINT AT(1,26);"Press a key to quit..."
  21.   VOID INP(2)
  22.   VOID GEMDOS(501)      !Deinit Driver...
  23. ENDIF
  24.