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 / GET.FRUIT.bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  289 b   |  11 lines
  1. 5  REM  GET.FRUIT
  2. 10 D$ =  CHR$(4): REM  CONTROL-D
  3. 20 R$ =  CHR$(13): REM  CARRIAGE RETURN
  4. 30  PRINT D$;"PREFIX /EXAMPLES/DATA"
  5. 40  PRINT D$;"OPEN FOUR.FRUITS"
  6. 50  PRINT D$;"READ FOUR.FRUITS"
  7. 60  FOR I = 0 TO 3
  8. 70 : INPUT A$(I)
  9. 80 : PRINT A$(I)
  10. 90  NEXT I
  11. 100  PRINT D$;"CLOSE FOUR.FRUITS"