home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30b.dsk / PG.GUIDE.CREATE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  51 lines
  1. 10  REM **********************
  2. 20  REM *  PG.GUIDE.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  DIM PG$(45,6): HOME : VTAB 12: PRINT "PRESS RETURN TO CREATE PG.GUIDE": PRINT "FILE ON CURRENT DISK";: GET Z$: PRINT : ONERR  GOTO 420
  9. 90  FOR I = 1 TO 6: FOR J = 1 TO 45: READ PG$(J,I): NEXT : NEXT 
  10. 100  REM PLANTING DEPTH - PG$(J,2)
  11. 110  DATA  1/2,3/2-2,3/2-2,3/2-2,3/2-2,1/2-1,1/2,1/2,1/2,1/4,1/2,1/8,1,1/2,1/4,2
  12. 120  DATA  1,1/4-1/2,1,1/2,1/2-1,1/4-1/2,1/4-1/2,1,1,1-2,2-3,1/2,1/4-1/2,1/2,2,1/4,4,1-3/2,1/2
  13. 130  DATA  CROWN,1/2,1/2,1,1,PLANTS,1/2,1/2,1/2,1
  14. 140  REM DISTANCE BETWEEN PLANTS PG$(J,3)
  15. 150  DATA  60,2-3,4-6,3-6,6-10,2,14-18,12-18,12-20,1-2,18,8,4-8,8,10-15,10-14,12,18,2-4
  16. 160  DATA  3-4,2-4,12-14,4-6,12,15-18,2-3,2-3,2-3,3-6,3-4,2-3,18-24,12,30,1-2,24-30,8-12,2-4,16-24,24-48
  17. 170  DATA  12-18,24,18-36,1-3,12-16
  18. 180  REM DISTANCE BETWEEN ROWS PG$(J,4)
  19. 190  DATA  72,18-30,36-48,24-30,30-36,12-18,24-30,24-30,24-30,14-24,30-36,24-30,18-24,10-16,24-30,30-36,48-72
  20. 200  DATA  36,12-18,18-24,12-18,18-24,12-18,48-72,28-36,12-24,12-24,12-24,12-20,16-24,18-30
  21. 210  DATA  24-36,24-36,72-120,6-12,36,18-24,12-14,36-60,72-120,36-48,36,36-60,15-18,60
  22. 220  REM DAYS TO GERMINATION PG$(J,5)
  23. 230  DATA 7-14,6-14,6-14,7-12,7-12,7-10,3-10,3-10,4-10,10-17,4-10,9-21,7-10,8-12,4-10,6-10,6-10,7-14,6-10,3-10,7-12
  24. 240  DATA  4-10,4-10,4-8,7-14,N/A,N/A,7-12,14-28,15-25,6-15,10-20,8-16,6-10,3-10,N/A,3-10
  25. 250  DATA  6-14,3-12,6-10,N/A,6-13,6-14,3-10,3-12
  26. 260  REM SOIL TYPE COOL,TOLERATES COOL,WARM (1,2,3) PG$(J,6)
  27. 270  DATA  2,3,3,3,3,2,2,2,2,2,2,1,2,2,2,3,3,3,2,2,2,1,1,3,3,1,1,1,2,2,1,3,2,3,1,2,2,1,3,3,3,3,3,1,3
  28. 280  REM DAYS TO MATURITY PG$(J,7)
  29. 290  DATA  365,45-65,60-70,60-80,85-90,55-65,60-80,80-90,65-95,60-80,55-65,90-120,55-65,80-90
  30. 300  DATA  65-85,60-90,55-65,75-95,90,60-70,80-90,55-80,45-60,75-100,50-60,95-120,95-120,100-165,85-90,100-120
  31. 310  DATA  65-85,60-80,90-105,70-110,20-50,720,80-90,40-65,50-60,85-120,120,90-100,55-90,45-60,80-100
  32. 320  REM  CREATE RANDOM FILE
  33. 330 D$ =  CHR$(4):F$ = "PG.GUIDE": ONERR  GOTO 420
  34. 340  PRINT D$"OPEN"F$: PRINT D$"CLOSE"F$: PRINT D$"DELETE"F$
  35. 350  PRINT D$"OPEN"F$",L60"
  36. 360  FOR I = 1 TO 45
  37. 370  PRINT D$"WRITE"F$",R"I
  38. 380  FOR J = 1 TO 6: PRINT PG$(I,J): NEXT J
  39. 390  NEXT I
  40. 400  PRINT D$"CLOSE"F$
  41. 410  HOME : VTAB 10: HTAB 1: PRINT "BE SURE YOU HAVE SAVED PG.GUIDE.CREATE": PRINT "THEN RUN GARDEN.PLANNER": END 
  42. 420 E =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219): POKE 216,0
  43. 430  IF E = 4  THEN A$ = "DISK WRITE-PROTECTED": GOTO 490
  44. 440  IF E = 8  THEN A$ = "I/O ERROR--CHECK DRIVE DOOR": GOTO 490
  45. 450  IF E = 9  THEN A$ = "DISK FULL--TRY ANOTHER": GOTO 490
  46. 460  IF E = 16  THEN A$ = "SYNTAX ERROR IN LINE " + STR$(EL): GOTO 490
  47. 470  IF E = 42  THEN A$ = "OUT OF DATA ERROR IN LINE " + STR$(EL): GOTO 490
  48. 480 A$ = "ERROR " + STR$(E) +" IN LINE " + STR$(EL)
  49. 490  HOME : VTAB 12: PRINT A$
  50. 500  VTAB 22: HTAB 1: IF E <16  THEN  PRINT "RETURN TO CONTINUE, ESCAPE TO QUIT";: GET Z$: PRINT : ON Z$ < > CHR$(27) GOTO 330: END 
  51. 510  PRINT "PRESS RETURN TO QUIT PROGRAM": GET Z$: PRINT : END