Listing of file='INSTR.BAS;01' on disk='vmedia/chip_64-sector.ccvf'
0 REM 10 REM INSTRUCTIONS FOR CONTOR.BAS 20 REM 30 REM BY 40 REM 50 REM STEVE PERRIGO 60 REM 70 REM ***************************************************** 80 TM= 1:GOTO 100 90 PLOT 3,64,0:FOR T= 1TO 2000* TM:NEXT T:TM= 1:RETURN 100 PLOT 6,1,27,24,29,12 110 PRINT "CONTOR.BAS A CONTOUR MAP PLOTTING PROGRAM BY STEVE PERRIGO" 120 PRINT :PRINT :PRINT "THIS PROGRAM IS A GENERAL PURPOSE CONTOUR MAP PLOTTING":PRINT 130 PRINT "PROGRAM. IT IS DESIGNED TO BE ADAPTED TO A USER'S PARTICULAR" 140 PRINT :PRINT "APPLICATION. THE PROGRAM IS DOCUMENTED WITH REMARKS AND THE":PRINT 150 PRINT "NOTES INCLUDED IN THE INTRODUCTORY PROGRAM. THE PROGRAM IS":PRINT 160 PRINT "VERY USER FRIENDLY AND WILL EASILY PROMPT THE USER INTO THE":PRINT 170 PRINT "REQUIRED ANSWER.":PRINT 180 PRINT " AS PROVIDED, THE PROGRAM IS DESIGNED FOR USE WITH AN EPSON":PRINT 190 PRINT "MX-80 PRINTER WITH GRAFTRAX. ALL PLOTTING IS DONE WITH ASCII":PRINT 200 PRINT "CHARACTERS. TO MODIFY THE PROGRAM FOR USE WITH ANOTHER PRINTER":PRINT 210 PRINT "SEARCH THE PROGRAM FOR THE STRING *+/ AND THEN ENTER THE":PRINT 220 PRINT "INDICATED CODE FOR YOUR PRINTER." 230 PRINT :PRINT " CONTOR.BAS REQUIRES 32K OF MEMORY. 240 PRINT :PRINT :PRINT "PRESS RETURN TO LEARN MORE.......":PLOT 3,64,0:INPUT "";T$ 250 PLOT 12:PRINT " THIS PROGRAM IS NOT FAST! IT IS WRITTEN IN BASIC TO":PRINT 260 PRINT "ENCOURAGE ADAPTATION AND IMPLIMENTATION WITH OTHER PROGRAMS":PRINT 270 PRINT "I HAVE FOUND THAT THE WAIT IS GENERALLY WORTH IT. IF ANYONE":PRINT 280 PRINT "WANTS TO WRITE AN ASSEMBLY VERSION - HAVE AT IT. AND SEND":PRINT 290 PRINT "ME A COPY WHEN YOU HAVE IT UP AND RUNNING!!!":PRINT :PRINT :PRINT 300 PRINT " GENERALLY, THE PROGRAM CAN BE DIVIDED INTO THREE SECTIONS.":PRINT 310 PRINT "THEY ARE:":PRINT :PRINT 320 PRINT " DATA ENTRY":PRINT 330 PRINT " DATA REDUCTION":PRINT 340 PRINT " PRINTOUT":PRINT :PRINT 350 PRINT "PRESS RETURN TO CONTINUE.......":PLOT 3,64,0:INPUT "";T$ 360 PLOT 12:PRINT "DATA ENTRY":PRINT 370 PRINT " THE FIRST PROMPT OFFERED BY THE PROGRAM IS FOR SELECTION OF":PRINT 380 PRINT "1 OF THE 3 DIFFERENT GRID SIZES AVAILABLE. THIS GRID DEFINES":PRINT 390 PRINT "THE WORKING FRAMEWORK FOR YOUR FINAL MAP. THE GRID IS ALWAYS":PRINT 400 PRINT "100 UNITS ALONG THE X-AXIS AND EITHER 50, 100 OR 200 ALONG":PRINT 410 PRINT "THE Y-AXIS. THE ORIGIN OF THE GRID IS IN THE LOWER LEFTHAND":PRINT 420 PRINT "CORNER. TO SIMPLIFY THINGS, PICTURE YOUR MAP AS OCCUPYING THE":PRINT 430 PRINT "POSITIVE QUADRANT OF A CARTISIAN COORDINATE SYSTEM AND YOUR MAP":PRINT 440 PRINT "WILL DEPICT THE SURFACE REPRESENTED BY THE Z-VALUES. WITHIN":PRINT 450 PRINT "THE MAP AREA THE GRID SIZE ONLY LIMITS THE SIZE OF YOUR MAP":PRINT 460 PRINT "AND NOT THE SIZE OF THE AREA OF ALLOWABLE DATA POINT INPUT.":PRINT 470 PRINT "IN FACT, DATA POINTS OUTSIDE THE MAP PERIMETER WILL TEND":PRINT 480 PRINT "TO IMPROVE THE QUALITY OF THE FINAL MAP.":PRINT 490 PRINT " DATA POINTS ARE DEFINED BY THEIR X,Y AND Z COORDINATES.":PRINT 500 PRINT "THE Z VALUES TYPICALLY REPRESENT ELEVATION OR CONCENTRATION.":PRINT 510 PRINT "PRESS RETURN TO SEE A 100 X 50 GRID FRAMEWORK.....":PLOT 3,64,0:INPUT "";T$ 520 PLOT 12 530 PLOT 6,2,12,15,29,3,20,3:PRINT "TYPICAL 100 X 50 GRID" 540 PLOT 3,12,7:PRINT "0 10 20 30 40 50 60 70 80 90 100" 550 PLOT 3,12,8:PRINT "_________________________________________" 560 PLOT 3,8,9:PRINT "50 b* * * * * * * * * * *a" 570 PLOT 3,11,10:PRINT "b";SPC( 41);"a" 580 PLOT 3,8,11:PRINT "40 b* * * * * * * * * * *a" 590 PLOT 3,11,12:PRINT "b";SPC( 41);"a" 600 PLOT 3,8,13:PRINT "30 b* * * * * * * * * * *a" 610 PLOT 3,11,14:PRINT "b";SPC( 41);"a" 620 PLOT 3,8,15:PRINT "20 b* * * * * * * * * * *a" 630 PLOT 3,11,16:PRINT "b";SPC( 41);"a" 640 PLOT 3,8,17:PRINT "10 b* * * * * * * * * * *a" 650 PLOT 3,11,18:PRINT "b";SPC( 41);"a" 660 PLOT 3,9,19:PRINT "0 b* * * * * * * * * * *a" 670 PLOT 3,12,20:PRINT "eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 680 PLOT 3,2,23:PRINT "THIS ILLUSTRATES A TYPICAL 100 BY 50 UNIT GRID, THE SMALLEST" 690 PLOT 3,0,25:PRINT "SIZE OFFERED BY THE CONTOR.BAS PROGRAM. OTHER GRID SIZES ARE" 700 PLOT 3,0,27:PRINT "100 BY 100 AND 100 BY 200." 710 TM= 2:GOSUB 90 720 PLOT 15,29,3,20,3:PRINT " ";SPC( 43);"" 730 PLOT 3,12,19:PRINT "*" 740 PLOT 3,2,23:PRINT " NOTE THAT THE ORIGIN IS IN THE LOWER LEFT HAND CORNER. " 750 PLOT 3,0,25:PRINT " ";SPC( 63);"" 760 PLOT 3,0,27:PRINT " ";SPC( 63);"" 770 GOSUB 90 780 PLOT 15,29,3,22,10:PRINT "+";SPC( 12);"+";SPC( 15);"+ a" 790 PLOT 3,14,12:PRINT "+";SPC( 38);"a" 800 PLOT 3,25,13:PRINT "+ * * * * * + *a" 810 PLOT 3,30,15:PRINT "+ * * * * * *a" 820 PLOT 3,13,18:PRINT "+";SPC( 23);"+";SPC( 15);"a" 830 PLOT 3,12,19:PRINT "* * * * * * * * *+ * *a" 840 PLOT 3,5,23:PRINT " YOU MAY DEFINE DATA POINTS WITHIN THE GRID AREA.";SPC( 9);"" 850 GOSUB 90 860 PLOT 15,29,3,3,0:PRINT "-20 -10 0 10 20 30 40 50 60 70 80 90 100 110 120" 870 PLOT 3,11,2:PRINT "b" 880 PLOT 3,11,3:PRINT "b";SPC( 43);"+" 890 PLOT 3,11,4:PRINT "b" 900 PLOT 3,1,5:PRINT "70";SPC( 8);"b +" 910 PLOT 3,11,6:PRINT "b" 920 PLOT 3,1,7:PRINT "60";SPC( 8);"b";SPC( 24);"+";SPC( 27);"" 930 PLOT 3,6,8:PRINT "+ b_________________________________________" 940 PLOT 3,1,9:PRINT "50";SPC( 8);"b* * * * * * * * * * *a" 950 PLOT 3,1,11:PRINT "40";SPC( 8);"b* * * * * * * * * * *a" 960 PLOT 3,1,13:PRINT "30 + b* * * *+ * * * * * + *a" 970 PLOT 3,1,15:PRINT "20";SPC( 8);"b* * * * * + * * * * * *a" 980 PLOT 3,59,16:PRINT "+" 990 PLOT 3,1,17:PRINT "10";SPC( 8);"b* * * * * * * * * * *a" 1000 PLOT 3,2,19:PRINT "0";SPC( 8);"b* * * * * * * * *+ * *a" 1010 PLOT 3,4,20:PRINT "eeeeeeeoeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee" 1020 PLOT 3,0,21:PRINT "-10";SPC( 8);"b";SPC( 10);"+" 1030 PLOT 3,11,22:PRINT "b";SPC( 39);"+" 1040 PLOT 3,0,23:PRINT "-20 + b";SPC( 52);"" 1050 PLOT 3,9,28:PRINT "AS WELL AS POINTS OUTSIDE OF THE GRID AREA." 1060 TM= .25:GOSUB 90 1070 PLOT 15,29,3,17,30:PRINT "PRESS RETURN TO CONTINUE....." 1080 PLOT 3,64,30:INPUT "";T$ 1090 PLOT 6,2,12,15,29,3,0,0:PRINT "DATA INPUT" 1100 PLOT 3,3,2:PRINT "AFTER INPUTTING THE X,Y AND Z COORDINATES OF YOUR DATA YOU" 1110 PLOT 3,0,4:PRINT "MAY REVIEW IT AND CHANGE ANY VALUES NECESSARY. YOU WILL ALSO BE" 1120 PLOT 3,0,6:PRINT "GIVEN THE OPTION TO SAVE THE DATA ARRAY. THE PROGRAM WILL THEN" 1130 PLOT 3,0,8:PRINT "WRITE THE FILE TO DISC AND THEN CHANGE THE NAME TO A FILE NAME" 1140 PLOT 3,0,10:PRINT "SPECIFIED BY THE USER. RAW DATA ARRAYS ARE STORED AS .RAW TYPE" 1150 PLOT 3,0,12:PRINT "FILES. THESE ARE ACTUALLY ARRAYS, OF THE FILE TYPE .ARY. THERE" 1160 PLOT 3,0,14:PRINT "IS AN ADDITIONAL PROGRAM ON THIS DISC TO DESCRIBE THE ARRAYS IN" 1170 PLOT 3,0,16:PRINT "MORE DETAIL SO THAT ANY USER CAN WRITE ANOTHER PROGRAM TO BUILD" 1180 PLOT 3,0,18:PRINT "THE ARRAYS AND THEN PLOT THE DATA USING CONTOR.BAS." 1190 PLOT 3,9,24:PRINT "PRESS RETURN TO LEARN ABOUT DATA REDUCTION" 1200 PLOT 3,64,24:INPUT "";T$ 1210 PLOT 6,2,12,15,29,3,0,0:PRINT "DATA REDUCTION" 1220 PLOT 3,3,3:PRINT "DATA REDUCTION IN CONTOR.BAS EMPLOYS THE OPTION OF SEVERAL" 1230 PLOT 3,0,5:PRINT "DIFFERENT ALGORITHMS TO CALCULATE THE Z-COORDINATE OF EACH GRID" 1240 PLOT 3,24,6:PRINT "eeeeeeeee";SPC( 21);"eeee eeee" 1250 PLOT 3,0,7:PRINT "NODE AS WAS ILLUSTRATED IN THE PREVIOUS SECTION. NOTE THAT EACH" 1260 PLOT 3,0,8:PRINT "eeee" 1270 PLOT 3,0,9:PRINT "POINT ON THE FINAL MAP IS NOT ACTUALLY CALCULATED. THIS IS VERY" 1280 PLOT 3,0,11:PRINT "IMPORTANT! THE GRID NODE Z-VALUES ARE LATER USED TO INTERPOLATE" 1290 PLOT 3,52,12:PRINT "eeeeeeeeeee" 1300 PLOT 3,0,13:PRINT "Z-VALUES FOR THE INTERVENING SPACES." 1310 PLOT 3,17,14:PRINT "eeeeeeeeeee eeeeee" 1320 TM= 4:GOSUB 90 1330 PLOT 15,29,3,0,17:PRINT "FOR EXAMPLE:" 1340 PLOT 3,29,21:PRINT "*";SPC( 10);"*";SPC( 10);"*" 1350 PLOT 3,0,22:PRINT "* = GRID NODES" 1360 PLOT 3,21,23:PRINT " ";SPC( 42);"" 1370 PLOT 15,3,0,24:PRINT "+ = DATA POINTS" 1380 PLOT 3,0,26:PRINT "x = INTERVENING SPACES *";SPC( 10);"*";SPC( 10);"*" 1390 PLOT 3,29,31:PRINT "*";SPC( 10);"*";SPC( 10);"*" 1400 TM= 2:GOSUB 90 1410 PLOT 15,29,3,34,21:PRINT "+ *";SPC( 10);"*" 1420 PLOT 3,44,23:PRINT "+" 1430 PLOT 3,38,24:PRINT "+" 1440 PLOT 3,29,25:PRINT "+";SPC( 17);"+" 1450 PLOT 3,51,28:PRINT "+" 1460 PLOT 3,0,29:PRINT "DATA POINTS ARE ADDED";SPC( 12);"+";SPC( 14);"+" 1470 PLOT 3,31,30:PRINT "+" 1480 PLOT 3,29,31:PRINT "* + *";SPC( 10);"*" 1490 GOSUB 90 1500 PLOT 15,29,3,29,21:PRINT "* + *";SPC( 10);"*" 1510 PLOT 3,29,26:PRINT "*";SPC( 10);"*";SPC( 10);"*" 1520 PLOT 3,56,28:PRINT " " 1530 PLOT 3,0,29:PRINT "GRID NODES ARE CALCULATED";SPC( 8);"+";SPC( 14);"+" 1540 PLOT 3,15,30:PRINT "eeeeeeeeee +" 1550 PLOT 3,29,31:PRINT "* + *";SPC( 10);"*" 1560 GOSUB 90 1570 PLOT 15,29,3,29,21:PRINT "*";SPC( 10);"*";SPC( 10);"*" 1580 PLOT 3,44,23:PRINT " " 1590 PLOT 3,38,24:PRINT " " 1600 PLOT 3,29,25:PRINT " ";SPC( 34);"" 1610 PLOT 3,29,26:PRINT "*";SPC( 10);"*";SPC( 10);"*" 1620 PLOT 3,14,28:PRINT " ";SPC( 49);"" 1630 PLOT 3,0,29:PRINT "DATA POINTS ARE REMOVED " 1640 PLOT 3,15,30:PRINT " " 1650 PLOT 3,29,31:PRINT "*";SPC( 10);"*";SPC( 10);"*" 1660 GOSUB 90 1670 PLOT 15,29,3,29,17:PRINT "PRESS RETURN TO CONTINUE...." 1680 PLOT 3,38,19:PRINT " ";SPC( 25);"" 1690 PLOT 3,29,21:PRINT "*xxxxxxxxxx*xxxxxxxxxx*" 1700 PLOT 3,0,22:PRINT "* = GRID NODES";SPC( 15);"xxxxxxxxxxxxxxxxxxxxxxx" 1710 PLOT 3,29,23:PRINT "xxxxxxxxxxxxxxxxxxxxxxx" 1720 PLOT 3,0,24:PRINT "+ = DATA POINTS";SPC( 14);"xxxxxxxxxxxxxxxxxxxxxxx" 1730 PLOT 3,29,25:PRINT "xxxxxxxxxxxxxxxxxxxxxxx" 1740 PLOT 3,0,26:PRINT "x = INTERVENING SPACES *xxxxxxxxxx*xxxxxxxxxx*" 1750 PLOT 3,29,27:PRINT "xxxxxxxxxxxxxxxxxxxxxxx" 1760 PLOT 3,29,28:PRINT "xxxxxxxxxxxxxxxxxxxxxxx" 1770 PLOT 3,0,29:PRINT "INTERVENING SPACES ARE xxxxxxxxxxxxxxxxxxxxxxx" 1780 PLOT 3,10,30:PRINT "INTERPOLATED xxxxxxxxxxxxxxxxxxxxxxx" 1790 PLOT 3,10,31:PRINT "eeeeeeeeeeee *xxxxxxxxxx*xxxxxxxxxx*" 1800 PLOT 3,64,17:INPUT "";T$ 1810 PLOT 6,2,12,15,29,3,0,0:PRINT "DATA REDUCTION" 1820 PLOT 3,3,2:PRINT "THE PROGRAM OFFERS SIX DIFFERENT METHODS TO CALCULATE VALUES" 1830 PLOT 3,0,4:PRINT "FOR THE GRID NODES. THE SIX METHODS ARE ACTUALLY BASED UPON" 1840 PLOT 3,0,6:PRINT "TWO DIFFERENT ALGORITHMS. THESE ALGORITHMS ARE:" 1850 PLOT 3,16,9:PRINT "1. PLANE INTERCEPT TECHNIQUE" 1860 PLOT 3,16,11:PRINT "2. WEIGHTED AVERAGE TECHNIQUE" 1870 PLOT 3,4,14:PRINT "BOTH TECHNIQUES START THE SAME AND BASE THEIR CALCULATIONS" 1880 PLOT 3,0,16:PRINT "FOR ANY GIVEN GRID POINT UPON THE VALUES OF THE N NEAREST DATA" 1890 PLOT 3,0,18:PRINT "POINTS." 1900 PLOT 3,3,21:PRINT "THE PLANE INTERCEPT TECHNIQUE DETERMINES THE 3 NEAREST DATA" 1910 PLOT 3,0,23:PRINT "POINTS TO A GRID POINT, DETERMINES THE PLANE DESCRIBED BY THEIR" 1920 PLOT 3,0,25:PRINT "X,Y AND Z VALUES AND THEN DETERMINES THE Z-INTERCEPT OF A LINE" 1930 PLOT 3,0,27:PRINT "THROUGH THE GRID POINT WITH THE PLANE. FOR AN ILLUSTRATION OF" 1940 PLOT 3,0,29:PRINT "THIS TECHNIQUE, PRESS RETURN......." 1950 PLOT 3,64,26:INPUT "";T$:PLOT 27,4:PRINT "LOAD INSTR.DSP":PLOT 27,27 1960 PLOT 3,64,0:INPUT "";T$ 1970 PLOT 6,2,12,15,29,3,0,0:PRINT "DATA REDUCTION" 1980 PLOT 3,3,3:PRINT "THE WEIGHTED AVERAGE TECHNIQUE USES A WEIGHTED AVERAGE OF THE" 1990 PLOT 3,0,5:PRINT "VALUES OF N NEAREST POINTS. THE GRID NODE VALUE IS DETERMINED" 2000 PLOT 3,0,7:PRINT "USING THE FOLLOWING FORMULA:" 2010 PLOT 3,21,11:PRINT "__" 2020 PLOT 3,21,12:PRINT "| N" 2030 PLOT 3,21,13:PRINT "~ I=1 (ZI/DIK)" 2040 PLOT 15,3,21,14:PRINT "ee" 2050 PLOT 3,15,15:PRINT "ZK = jjeeeeeeeeeeee" 2060 PLOT 3,21,16:PRINT "| N" 2070 PLOT 3,21,17:PRINT "~ I=1 (1/DIK)" 2080 PLOT 15,3,21,18:PRINT "ee" 2090 PLOT 3,4,20:PRINT "WHERE:" 2100 PLOT 3,15,21:PRINT "ZK = Z VALUE OF GRID POINT" 2110 PLOT 3,15,23:PRINT "N = 'N' NEAREST DATA POINTS TO GRID POINT" 2120 PLOT 3,15,25:PRINT "I = DATA POINT" 2130 PLOT 3,25,27:PRINT "iiiiiiiiiiiiiiiiiiii" 2140 PLOT 3,24,28:PRINT "~";SPC( 9);"2";SPC( 8);"2" 2150 PLOT 3,15,29:PRINT "DIK = e|~ (XK-XI) + (YK-YI)" 2160 PLOT 15,3,32,28:PRINT "2" 2170 PLOT 3,47,31:PRINT "PRESS RETURN....." 2180 PLOT 3,64,24:INPUT "";T$ 2190 PLOT 27,24,6,2,12,15,29,3,0,0:PRINT "DATA REDUCTION" 2200 PLOT 3,3,3:PRINT "AS STATED PREVIOUSLY, THERE ARE 6 METHODS OF DATA REDUCTION" 2210 PLOT 3,0,5:PRINT "OFFERED BY CONTOR.BAS. THEY ARE:" 2220 PLOT 3,12,9:PRINT "1. PLANE INTERCEPT METHOD" 2230 PLOT 3,12,11:PRINT "2. 3 NEAREST POINT WEIGHTED AVERAGE METHOD" 2240 PLOT 3,12,13:PRINT "3. 5 NEAREST POINT WEIGHTED AVERAGE METHOD" 2250 PLOT 3,12,15:PRINT "4. COMPOSITE OF METHODS 1 & 2 (1:1)" 2260 PLOT 3,12,17:PRINT "5. COMPOSITE OF METHODS 1 & 2 (1:2)" 2270 PLOT 3,12,19:PRINT "6. COMPOSITE OF METHODS 1 & 2 (1:3)" 2280 PLOT 3,3,23:PRINT "TO DATE, EXPERIENCE SHOWS THAT METHOD #5 WILL GIVE THE BEST" 2290 PLOT 3,0,25:PRINT "RESULTS. HOWEVER, I RECOMMEND THAT ALL METHODS BE TRIED SO THAT" 2300 PLOT 3,0,27:PRINT "A USER CAN DETERMINE FOR HIMSELF WHAT METHOD GIVES THE BEST" 2310 PLOT 3,0,29:PRINT "RESULT." 2320 PLOT 3,40,31:PRINT "PRESS RETURN......." 2330 PLOT 3,64,30:INPUT "";T$ 2340 PLOT 6,2,12,15,29,3,0,0:PRINT "DATA REDUCTION" 2350 PLOT 3,4,3:PRINT "AFTER THE PROGRAM HAS REDUCED THE DATA YOU WILL HAVE THE" 2360 PLOT 3,0,5:PRINT "OPTION OF REVIEWING THE VALUES OF THE GRID NODE POINTS. IF" 2370 PLOT 3,0,7:PRINT "FOR SOME REASON YOU DECIDE TO REDUCE THE RAW DATA BY ANOTHER" 2380 PLOT 3,0,9:PRINT "METHOD THIS CAN BE DONE AT THIS TIME. AS WITH THE RAW DATA," 2390 PLOT 3,0,11:PRINT "REDUCED DATA CAN BE SAVED TO DISC FOR LATER PRINTOUT. DATA" 2400 PLOT 3,0,13:PRINT "IS STORED AS AN ARRAY UNDER THE DEFAULT TYPE .RED FOR REDUCED." 2410 PLOT 3,0,15:PRINT "THE .RED FILE STORES ADDITIONAL INFORMATION WHICH WILL BE" 2420 PLOT 3,0,17:PRINT "DESCRIBED LATER." 2430 PLOT 3,4,19:PRINT "AT THIS TIME YOU WILL BE READY FOR THE PRINTOUT!" 2440 PLOT 3,20,25:PRINT "PRESS RETURN........." 2450 PLOT 3,64,25:INPUT "";T$ 2460 PLOT 6,2,12,15,29,3,0,0:PRINT "PRINTOUT" 2470 PLOT 3,4,3:PRINT "THIS IS THE EASIEST SECTION. YOU WILL BEGIN BY DETERMINING" 2480 PLOT 3,0,5:PRINT "THE RANGE OF VALUES TO BE PLOTTED. THE PROGRAM WILL SCAN THE" 2490 PLOT 3,0,7:PRINT "VALUES OF THE GRID NODE POINTS AND TELL YOU THE MAXIMUM AND" 2500 PLOT 3,0,9:PRINT "MINIMUM VALUES. YOU WILL THEN DETERMINE THE HIGHEST AND" 2510 PLOT 3,0,11:PRINT "LOWEST ENDS OF THE RANGE TO BE PLOTTED AND SHOWN ON THE KEY." 2520 PLOT 3,0,13:PRINT "THEN YOU WILL HAVE THE OPTION OF AUTOMATIC SCALING OR CUSTOM" 2530 PLOT 3,0,15:PRINT "SCALING AS WELL AS DETERMINING THE NUMBER OF DIVISIONS, UP TO" 2540 PLOT 3,0,17:PRINT "TEN, THAT YOU WANT TO PLOT. THE REST IS SELF-EXPLANATORY." 2550 PLOT 3,0,19:PRINT " IF YOU WANT TO PUT IN SYMBOLS OTHER THAN THE 8 SETS SUPPLIED," 2560 PLOT 3,0,21:PRINT "THEN ENTER THE ASCII VALUES OF YOUR SYMBOLS IN ANY OF THE DATA" 2570 PLOT 3,0,23:PRINT "STATEMENTS FROM LINE 10930 TO 11000." 2580 PLOT 3,0,25:PRINT "THIS PROGRAM WAS WRITTEN FOR AN MX-80 PRINTER. AS THE" 2590 PLOT 3,0,27:PRINT "PROGRAM IS SET UP IT WILL GIVE AN APPROXIMATELY TRUE SCALE IN" 2600 PLOT 3,0,29:PRINT "BOTH DIRECTIONS. THIS COULD BE A PROBLEM FOR OTHER PRINTERS" 2610 PLOT 3,0,31:PRINT "THOUGH.";SPC( 31);"PRESS RETURN........." 2620 PLOT 3,64,25:INPUT "";T$ 2630 PLOT 6,2,12,15,29,3,0,1:PRINT "YOU'RE ON YOUR OWN!" 2640 PLOT 3,3,5:PRINT "I SUGGEST THAT YOU EXPERIMENT WITH THE PROGRAM TO UNDERSTAND" 2650 PLOT 3,0,7:PRINT "IT FULLY. IF YOU WANT TO LEARN MORE ABOUT HOW THE ARRAYS ARE" 2660 PLOT 3,0,9:PRINT "STRUCTURED AND SAVED TO DISC, LOAD THE PROGRAM TITLED 'DATA.BAS'" 2670 PLOT 3,0,11:PRINT "FOR A DESCRIPTION." 2680 PLOT 3,3,13:PRINT "THIS DISC ALSO HAS SOME SAMPLE FILES SUPPLIED. EXPERIMENT" 2690 PLOT 3,0,15:PRINT "WITH THEM AND EXPLORE ALL THE POSSIBILITIES OF THE PROGRAM." 2700 PLOT 3,10,23:PRINT "PRESS RETURN TO LOAD CONTOR.BAS............" 2710 PLOT 3,64,23:INPUT "";T$ 2720 PLOT 12:LOAD "CONTOR":RUN