home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 4: The Falcon Archive / nf_archive_four_v1.0.iso / ARCHIVE / WORK / UTILITY / ANSIEDIT.ZIP / ANSIPLOT.LST < prev    next >
File List  |  1994-12-22  |  635b  |  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.