home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.spar < prev    next >
Text File  |  2020-01-01  |  453b  |  21 lines
  1. ; 16 jly 85 esj converted
  2. ;;;;;;;;;;;;;;;;;;;;          SPAR            ;;;;;;;;;;;;;;
  3.       E'F A:S(NWLS)
  4.       E'O SPAR.(XDATA)
  5.  
  6. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  7. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  8.       I'R XZERO
  9.       I'R XDATA(5)
  10.  
  11.       XZERO=0
  12.       XDATA(0)=TOCHAR.(PAKSIZ)
  13.       XDATA(1)=TOCHAR.(XZERO)
  14.       XDATA(2)=TOCHAR.(XZERO)
  15.       XDATA(3)=CTL.(XZERO)
  16.       XDATA(4)=TOCHAR.(MYEOL)
  17.       XDATA(5)=MYQUOTE
  18.  
  19.       F'N
  20.       E'N
  21.