home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_10 / DEVPAC56.ZIP / PRINTRES.BAS < prev    next >
BASIC Source File  |  1993-11-03  |  277b  |  14 lines
  1. DEFINT a-z
  2.     OPEN "saved.d56" FOR INPUT AS #1
  3.     elements=LOF(1)\6
  4.     a$=INPUT$(elements*6,#1)
  5.     CLOSE #1
  6.     DIM c&(elements*2)
  7.     FOR i=0 TO elements*2-1
  8.                 c&(i)=CVL(CHR$(0)+MID$(a$,i*3+1,3))
  9.     NEXT i
  10.     FOR i=0 TO elements-1
  11.         PRINT c&(i*2)*2+c&(i*2+1)/&h800000
  12.     NEXT i
  13.     
  14.