home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib30b.dsk
/
PG.GUIDE.CREATE.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
3KB
|
51 lines
10 REM **********************
20 REM * PG.GUIDE.CREATE *
30 REM * BY MARK R. CRAVEN *
40 REM * COPYRIGHT (C) 1987 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM **********************
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
90 FOR I = 1 TO 6: FOR J = 1 TO 45: READ PG$(J,I): NEXT : NEXT
100 REM PLANTING DEPTH - PG$(J,2)
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
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
130 DATA CROWN,1/2,1/2,1,1,PLANTS,1/2,1/2,1/2,1
140 REM DISTANCE BETWEEN PLANTS PG$(J,3)
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
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
170 DATA 12-18,24,18-36,1-3,12-16
180 REM DISTANCE BETWEEN ROWS PG$(J,4)
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
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
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
220 REM DAYS TO GERMINATION PG$(J,5)
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
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
250 DATA 6-14,3-12,6-10,N/A,6-13,6-14,3-10,3-12
260 REM SOIL TYPE COOL,TOLERATES COOL,WARM (1,2,3) PG$(J,6)
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
280 REM DAYS TO MATURITY PG$(J,7)
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
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
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
320 REM CREATE RANDOM FILE
330 D$ = CHR$(4):F$ = "PG.GUIDE": ONERR GOTO 420
340 PRINT D$"OPEN"F$: PRINT D$"CLOSE"F$: PRINT D$"DELETE"F$
350 PRINT D$"OPEN"F$",L60"
360 FOR I = 1 TO 45
370 PRINT D$"WRITE"F$",R"I
380 FOR J = 1 TO 6: PRINT PG$(I,J): NEXT J
390 NEXT I
400 PRINT D$"CLOSE"F$
410 HOME : VTAB 10: HTAB 1: PRINT "BE SURE YOU HAVE SAVED PG.GUIDE.CREATE": PRINT "THEN RUN GARDEN.PLANNER": END
420 E = PEEK(222):EL = PEEK(218) +256 * PEEK(219): POKE 216,0
430 IF E = 4 THEN A$ = "DISK WRITE-PROTECTED": GOTO 490
440 IF E = 8 THEN A$ = "I/O ERROR--CHECK DRIVE DOOR": GOTO 490
450 IF E = 9 THEN A$ = "DISK FULL--TRY ANOTHER": GOTO 490
460 IF E = 16 THEN A$ = "SYNTAX ERROR IN LINE " + STR$(EL): GOTO 490
470 IF E = 42 THEN A$ = "OUT OF DATA ERROR IN LINE " + STR$(EL): GOTO 490
480 A$ = "ERROR " + STR$(E) +" IN LINE " + STR$(EL)
490 HOME : VTAB 12: PRINT A$
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
510 PRINT "PRESS RETURN TO QUIT PROGRAM": GET Z$: PRINT : END