home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Apple II / Programming & Utilities / ProDOS Basic Examples / PROGRAMS / MAKE.BLACK.BOOK.bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  150 b   |  5 lines

  1. 10 D$ =  CHR$(4)
  2. 20  PRINT D$;"OPEN /EXAMPLES/DATA/BLACK.BOOK,L200"
  3. 30  PRINT D$;"WRITE /EXAMPLES/DATA/BLACK.BOOK,R0"
  4. 40  PRINT 0
  5. 50  PRINT D$;"CLOSE"