home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30b.dsk / PG.NAMES.CREATE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  40 lines
  1. 10  REM **********************
  2. 20  REM *  PG.NAMES.CREATE   *
  3. 30  REM * BY MARK R. CRAVEN  *
  4. 40  REM * COPYRIGHT (C) 1987 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  HOME : VTAB 12: PRINT "PRESS RETURN TO CREATE PG.NAMES": PRINT " FILE ON CURRENT DISK";: GET Z$: PRINT 
  9. 90  ONERR  GOTO 240
  10. 100 D$ =  CHR$(4):F$ = "PG.NAMES"
  11. 110  PRINT D$"OPEN"F$: PRINT D$"CLOSE"F$: PRINT D$"DELETE"F$: REM  REMOVE EXISTING FILE, IF ANY
  12. 120  PRINT D$"OPEN"F$: PRINT D$"WRITE"F$
  13. 130  RESTORE 
  14. 140  FOR I = 1 TO 45
  15. 150  READ A$
  16. 160  PRINT A$
  17. 170  NEXT I
  18. 180  FOR I = 1 TO 16
  19. 190  READ A$,B$
  20. 200  PRINT A$: PRINT B$
  21. 210  NEXT 
  22. 220  PRINT D$"CLOSE"
  23. 230  HOME : VTAB 12: PRINT "FILE CREATION COMPLETE": END 
  24. 240 E =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219): POKE 216,0
  25. 250  HOME : VTAB 12: PRINT "TROUBLE CREATING PG.NAMES FILE"
  26. 260  IF E = 4  THEN A$ = "DISK IS WRITE-PROTECTED": GOTO 300
  27. 270  IF E = 8  THEN A$ = "I/O ERROR--CHECK DRIVE DOOR": GOTO 300
  28. 280  IF E = 9  THEN A$ = "DISK FULL--TRY ANOTHER": GOTO 300
  29. 290 A$ = "ERROR " + STR$(E) +" IN LINE " + STR$(EL)
  30. 300  VTAB 14: HTAB 1: PRINT A$
  31. 310  VTAB 22: HTAB 1: PRINT "RETURN TO TRY AGAIN, ESCAPE TO QUIT";: GET Z$: PRINT : IF Z$ < > CHR$(27) GOTO 80
  32. 320  END 
  33. 330  REM  PLANTING GUIDE DATA
  34. 340  DATA ARTICHOKE,BEANS-SNAP-BUSH,BEANS-SNAP-POLE,BEANS-LIMA-BUSH,BEANS-LIMA-POLE,BEETS,BROCCOLI,BRUSSELS SPROUTS,CABBAGE,CARROTS,CAULIFLOWER,CELERY,CHARD-SWISS,CHIVES,COLLARDS,CORN
  35. 350  DATA CUCUMBER,EGGPLANT,GARLIC,KOHLRABI,LEEKS,LETTUCE-HEAD,LETTUCE-LEAF,MUSKMELON,OKRA,ONION SETS,ONION PLANTS,ONION SEED,PARSLEY,PARSNIPS,PEAS,PEPPERS,POTATO,PUMPKIN,RADISH
  36. 360  DATA RHUBARB,RUTABAGA,SPINACH,SQUASH-SUMMER,SQUASH-WINTER,SWEET POTATO,TOMATILLO,TOMATOES,TURNIPS,WATERMELON
  37. 370  DATA "CARROTS/PARSNIPS",10,"TOMATOES",13,"CORN/STALK VEGETABLES",10,"LETTUCE/CABBAGE/ETC.",13
  38. 380  DATA "MELONS/CANTALOPES",13,"CUCUMBER/ZUCCHINI",9,"SQUASH/PUMPKIN/GOURDS",13,"TURNIPS/LARGE ROOTS",11
  39. 390  DATA " PEAS/POD VEGETABLES",9,"RADISH/SMALL ROOTS",12," PEPPERS/EGGPLANT",12," BEANS/OKRA/BIG PODS",10
  40. 400  DATA " GREENS/PARSLEY",13," POTATOES/TUBERS",14," ONIONS/SCALLIONS",7," SPINACH/LEAFY GREENS",13