home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / NONAME.BAS < prev    next >
BASIC Source File  |  1994-01-26  |  241b  |  11 lines
  1. open "\rip\rip.cmd" for input as #1
  2. open "\rip\rip.xxx" for output as #2
  3.  
  4. do until eof(1)
  5. if len(inkey$) then exit loop
  6. print "-";
  7. line input #1, a$
  8. print a$
  9. if left$(a$,1)="'" or left$(a$,3)="Ptr" then print #2, a$':print a$
  10. loop
  11.