� >GEOGDT2
"� PLOTTER PROGRAM FOR DXY-1200
� 1 PLOT FOR EACH AREA
($� by R.T.POET MAY 1990 Version 2
2� (c) The Micro User
<#Q$ ="WHAT IS THE DATAFILE NAME"
F� Q$;:� datafile$
Pfileref=� datafile$
Z�# fileref, number
d�# fileref, areas
nbarsize=9000/number
x� question$(number)
�� ans(number, areas)
�� question=1 � number
�"�# fileref,question$(question)
�� area = 1 � areas
�!�# fileref,ans(question,area)
�
� area
�� question
��# fileref
�D$="Data from datafile "
�� D$;datafile$
�� area = 1 � areas
�!� Check paper / pen / speed:-
��

�"Paper ready? (Y)",B$

�((B$="Y") � (B$="y"))

�

" �"WHICH PEN? (1 TO 8) ", pen

,� ((pen<9) � (pen>0))

6�

@�"SPEED? (1 to 42) ",speed

J�((speed<43)�(speed>0))

T�2 :� TURN ON OUTPUT

^ �"IN;SP";pen;";VS";speed;";"

h� SET TEXT TERMINATOR:-

r�"DT":�1,3

|� ADJUST FOR A4 PAPER:-

��"IP1000,0,6000,5000;"

�� PLOT VALUE RANGE 10000:-

�� "SC0,10000,0,10000;"

�� HEADING LABEL:-

�� "PU;PA5000,9500;"

�� "SR3,3;"

��"LBAREA ";�(area):�1,3

�� "SR1,1;"

�� 1ST VERTICAL AXIS LABEL:-

�� "PU;PA250,3500"

�� "SR1.6,1.6;"

�L1$="ENVIRONMENTAL QUALITY"

�� "DI0,1;LB";L1$:�1,3
� 2ND VERTICAL AXIS LABEL:-
� "PU;PA750,3500"
L2$=" CLASSIFICATION SCORE"
&� "DI0,1;LB";L2$:�1,3
0� "SR1,1;"
:� BOTTOM Y-AXIS VALUE:-
D� "DI1,0;"
N� "PU;PA0,2900"
X� "SR2,2;"
b� "LB0%":�1,3
l� "SR1,1;"
v� TOP Y-AXIS VALUE:-
�� "PU;PA0,8900"
�� "SR2,2;"
�� "LB100":�1,3
�� "SR1,1;"
�� DRAW Y AXIS:-
�� "PA;"
�� "PU1000,9000;"
�� "PD1000,3000;"
�� DRAW X AXIS:-
�X=1000+barsize*number
�� "PD";�(X)",3000;"
�� DRAW BARS(S):-
�� question = 1 � number
X=1000+barsize*(question-1)
"Y=3000+(60*ans(question,area))
� "PU";�(X);",3000;"
 � "PD";�(X);",";�(Y);";"
*X=1000+barsize*(question)
4�"PD";�(X);",";�(Y);";"
>� "PD";�(X);",3000;"
H� LABEL BARS:-
RX0=1000+barsize/2
\X=X0+barsize*(question-1)
f� "PU";�(X);",500;"
pLB$=question$(question)
z� "DI0,1;LB";LB$:�1,3
�� "DI1,0;"
�� question
�� "SP0;":� 3
�
� area
�� 3
��
�

00000000  0d 00 0a 0e f4 20 3e 47  45 4f 47 44 54 32 0d 00  |..... >GEOGDT2..|
00000010  14 22 f4 20 50 4c 4f 54  54 45 52 20 50 52 4f 47  |.". PLOTTER PROG|
00000020  52 41 4d 20 46 4f 52 20  44 58 59 2d 31 32 30 30  |RAM FOR DXY-1200|
00000030  0d 00 1e 1a f4 20 31 20  50 4c 4f 54 20 46 4f 52  |..... 1 PLOT FOR|
00000040  20 45 41 43 48 20 41 52  45 41 0d 00 28 24 f4 20  | EACH AREA..($. |
00000050  62 79 20 52 2e 54 2e 50  4f 45 54 20 4d 41 59 20  |by R.T.POET MAY |
00000060  31 39 39 30 20 56 65 72  73 69 6f 6e 20 32 0d 00  |1990 Version 2..|
00000070  32 18 f4 20 28 63 29 20  54 68 65 20 4d 69 63 72  |2.. (c) The Micr|
00000080  6f 20 55 73 65 72 0d 00  3c 23 51 24 20 3d 22 57  |o User..<#Q$ ="W|
00000090  48 41 54 20 49 53 20 54  48 45 20 44 41 54 41 46  |HAT IS THE DATAF|
000000a0  49 4c 45 20 4e 41 4d 45  22 0d 00 46 15 f1 20 51  |ILE NAME"..F.. Q|
000000b0  24 3b 3a e8 20 64 61 74  61 66 69 6c 65 24 0d 00  |$;:. datafile$..|
000000c0  50 17 66 69 6c 65 72 65  66 3d 8e 20 64 61 74 61  |P.fileref=. data|
000000d0  66 69 6c 65 24 0d 00 5a  16 e8 23 20 66 69 6c 65  |file$..Z..# file|
000000e0  72 65 66 2c 20 6e 75 6d  62 65 72 0d 00 64 15 e8  |ref, number..d..|
000000f0  23 20 66 69 6c 65 72 65  66 2c 20 61 72 65 61 73  |# fileref, areas|
00000100  0d 00 6e 17 62 61 72 73  69 7a 65 3d 39 30 30 30  |..n.barsize=9000|
00000110  2f 6e 75 6d 62 65 72 0d  00 78 17 de 20 71 75 65  |/number..x.. que|
00000120  73 74 69 6f 6e 24 28 6e  75 6d 62 65 72 29 0d 00  |stion$(number)..|
00000130  82 18 de 20 61 6e 73 28  6e 75 6d 62 65 72 2c 20  |... ans(number, |
00000140  61 72 65 61 73 29 0d 00  8c 19 e3 20 71 75 65 73  |areas)..... ques|
00000150  74 69 6f 6e 3d 31 20 b8  20 6e 75 6d 62 65 72 0d  |tion=1 . number.|
00000160  00 96 22 e8 23 20 66 69  6c 65 72 65 66 2c 71 75  |..".# fileref,qu|
00000170  65 73 74 69 6f 6e 24 28  71 75 65 73 74 69 6f 6e  |estion$(question|
00000180  29 0d 00 a0 16 e3 20 61  72 65 61 20 3d 20 31 20  |)..... area = 1 |
00000190  b8 20 61 72 65 61 73 0d  00 aa 21 e8 23 20 66 69  |. areas...!.# fi|
000001a0  6c 65 72 65 66 2c 61 6e  73 28 71 75 65 73 74 69  |leref,ans(questi|
000001b0  6f 6e 2c 61 72 65 61 29  0d 00 b4 0a ed 20 61 72  |on,area)..... ar|
000001c0  65 61 0d 00 be 0e ed 20  71 75 65 73 74 69 6f 6e  |ea..... question|
000001d0  0d 00 c8 0e d9 23 20 66  69 6c 65 72 65 66 0d 00  |.....# fileref..|
000001e0  d2 1c 44 24 3d 22 44 61  74 61 20 66 72 6f 6d 20  |..D$="Data from |
000001f0  64 61 74 61 66 69 6c 65  20 22 0d 00 dc 12 f1 20  |datafile "..... |
00000200  44 24 3b 64 61 74 61 66  69 6c 65 24 0d 00 e6 16  |D$;datafile$....|
00000210  e3 20 61 72 65 61 20 3d  20 31 20 b8 20 61 72 65  |. area = 1 . are|
00000220  61 73 0d 00 f0 21 f4 20  43 68 65 63 6b 20 70 61  |as...!. Check pa|
00000230  70 65 72 20 2f 20 70 65  6e 20 2f 20 73 70 65 65  |per / pen / spee|
00000240  64 3a 2d 0d 00 fa 05 f5  0d 01 04 1a e8 22 50 61  |d:-.........."Pa|
00000250  70 65 72 20 72 65 61 64  79 3f 20 28 59 29 22 2c  |per ready? (Y)",|
00000260  42 24 0d 01 0e 1a fd 28  28 42 24 3d 22 59 22 29  |B$.....((B$="Y")|
00000270  20 84 20 28 42 24 3d 22  79 22 29 29 0d 01 18 05  | . (B$="y"))....|
00000280  f5 0d 01 22 20 e8 22 57  48 49 43 48 20 50 45 4e  |..." ."WHICH PEN|
00000290  3f 20 28 31 20 54 4f 20  38 29 20 22 2c 20 70 65  |? (1 TO 8) ", pe|
000002a0  6e 0d 01 2c 19 fd 20 28  28 70 65 6e 3c 39 29 20  |n..,.. ((pen<9) |
000002b0  80 20 28 70 65 6e 3e 30  29 29 0d 01 36 05 f5 0d  |. (pen>0))..6...|
000002c0  01 40 1e e8 22 53 50 45  45 44 3f 20 28 31 20 74  |.@.."SPEED? (1 t|
000002d0  6f 20 34 32 29 20 22 2c  73 70 65 65 64 0d 01 4a  |o 42) ",speed..J|
000002e0  1b fd 28 28 73 70 65 65  64 3c 34 33 29 80 28 73  |..((speed<43).(s|
000002f0  70 65 65 64 3e 30 29 29  0d 01 54 18 ef 32 20 3a  |peed>0))..T..2 :|
00000300  f4 20 54 55 52 4e 20 4f  4e 20 4f 55 54 50 55 54  |. TURN ON OUTPUT|
00000310  0d 01 5e 20 f1 22 49 4e  3b 53 50 22 3b 70 65 6e  |..^ ."IN;SP";pen|
00000320  3b 22 3b 56 53 22 3b 73  70 65 65 64 3b 22 3b 22  |;";VS";speed;";"|
00000330  0d 01 68 1b f4 20 53 45  54 20 54 45 58 54 20 54  |..h.. SET TEXT T|
00000340  45 52 4d 49 4e 41 54 4f  52 3a 2d 0d 01 72 0e f1  |ERMINATOR:-..r..|
00000350  22 44 54 22 3a ef 31 2c  33 0d 01 7c 1b f4 20 41  |"DT":.1,3..|.. A|
00000360  44 4a 55 53 54 20 46 4f  52 20 41 34 20 50 41 50  |DJUST FOR A4 PAP|
00000370  45 52 3a 2d 0d 01 86 1a  f1 22 49 50 31 30 30 30  |ER:-....."IP1000|
00000380  2c 30 2c 36 30 30 30 2c  35 30 30 30 3b 22 0d 01  |,0,6000,5000;"..|
00000390  90 1e f4 20 50 4c 4f 54  20 56 41 4c 55 45 20 52  |... PLOT VALUE R|
000003a0  41 4e 47 45 20 31 30 30  30 30 3a 2d 0d 01 9a 1a  |ANGE 10000:-....|
000003b0  f1 20 22 53 43 30 2c 31  30 30 30 30 2c 30 2c 31  |. "SC0,10000,0,1|
000003c0  30 30 30 30 3b 22 0d 01  a4 15 f4 20 48 45 41 44  |0000;"..... HEAD|
000003d0  49 4e 47 20 4c 41 42 45  4c 3a 2d 0d 01 ae 17 f1  |ING LABEL:-.....|
000003e0  20 22 50 55 3b 50 41 35  30 30 30 2c 39 35 30 30  | "PU;PA5000,9500|
000003f0  3b 22 0d 01 b8 0e f1 20  22 53 52 33 2c 33 3b 22  |;"..... "SR3,3;"|
00000400  0d 01 c2 1b f1 22 4c 42  41 52 45 41 20 22 3b c3  |....."LBAREA ";.|
00000410  28 61 72 65 61 29 3a ef  31 2c 33 0d 01 cc 0e f1  |(area):.1,3.....|
00000420  20 22 53 52 31 2c 31 3b  22 0d 01 d6 1f f4 20 31  | "SR1,1;"..... 1|
00000430  53 54 20 56 45 52 54 49  43 41 4c 20 41 58 49 53  |ST VERTICAL AXIS|
00000440  20 4c 41 42 45 4c 3a 2d  0d 01 e0 15 f1 20 22 50  | LABEL:-..... "P|
00000450  55 3b 50 41 32 35 30 2c  33 35 30 30 22 0d 01 ea  |U;PA250,3500"...|
00000460  12 f1 20 22 53 52 31 2e  36 2c 31 2e 36 3b 22 0d  |.. "SR1.6,1.6;".|
00000470  01 f4 1f 4c 31 24 3d 22  45 4e 56 49 52 4f 4e 4d  |...L1$="ENVIRONM|
00000480  45 4e 54 41 4c 20 51 55  41 4c 49 54 59 22 0d 01  |ENTAL QUALITY"..|
00000490  fe 19 f1 20 22 44 49 30  2c 31 3b 4c 42 22 3b 4c  |... "DI0,1;LB";L|
000004a0  31 24 3a ef 31 2c 33 0d  02 08 1f f4 20 32 4e 44  |1$:.1,3..... 2ND|
000004b0  20 56 45 52 54 49 43 41  4c 20 41 58 49 53 20 4c  | VERTICAL AXIS L|
000004c0  41 42 45 4c 3a 2d 0d 02  12 15 f1 20 22 50 55 3b  |ABEL:-..... "PU;|
000004d0  50 41 37 35 30 2c 33 35  30 30 22 0d 02 1c 1f 4c  |PA750,3500"....L|
000004e0  32 24 3d 22 20 43 4c 41  53 53 49 46 49 43 41 54  |2$=" CLASSIFICAT|
000004f0  49 4f 4e 20 53 43 4f 52  45 22 0d 02 26 19 f1 20  |ION SCORE"..&.. |
00000500  22 44 49 30 2c 31 3b 4c  42 22 3b 4c 32 24 3a ef  |"DI0,1;LB";L2$:.|
00000510  31 2c 33 0d 02 30 0e f1  20 22 53 52 31 2c 31 3b  |1,3..0.. "SR1,1;|
00000520  22 0d 02 3a 1b f4 20 42  4f 54 54 4f 4d 20 59 2d  |"..:.. BOTTOM Y-|
00000530  41 58 49 53 20 56 41 4c  55 45 3a 2d 0d 02 44 0e  |AXIS VALUE:-..D.|
00000540  f1 20 22 44 49 31 2c 30  3b 22 0d 02 4e 13 f1 20  |. "DI1,0;"..N.. |
00000550  22 50 55 3b 50 41 30 2c  32 39 30 30 22 0d 02 58  |"PU;PA0,2900"..X|
00000560  0e f1 20 22 53 52 32 2c  32 3b 22 0d 02 62 11 f1  |.. "SR2,2;"..b..|
00000570  20 22 4c 42 30 25 22 3a  ef 31 2c 33 0d 02 6c 0e  | "LB0%":.1,3..l.|
00000580  f1 20 22 53 52 31 2c 31  3b 22 0d 02 76 18 f4 20  |. "SR1,1;"..v.. |
00000590  54 4f 50 20 59 2d 41 58  49 53 20 56 41 4c 55 45  |TOP Y-AXIS VALUE|
000005a0  3a 2d 0d 02 80 13 f1 20  22 50 55 3b 50 41 30 2c  |:-..... "PU;PA0,|
000005b0  38 39 30 30 22 0d 02 8a  0e f1 20 22 53 52 32 2c  |8900"..... "SR2,|
000005c0  32 3b 22 0d 02 94 12 f1  20 22 4c 42 31 30 30 22  |2;"..... "LB100"|
000005d0  3a ef 31 2c 33 0d 02 9e  0e f1 20 22 53 52 31 2c  |:.1,3..... "SR1,|
000005e0  31 3b 22 0d 02 a8 13 f4  20 44 52 41 57 20 59 20  |1;"..... DRAW Y |
000005f0  41 58 49 53 3a 2d 0d 02  b2 0b f1 20 22 50 41 3b  |AXIS:-..... "PA;|
00000600  22 0d 02 bc 14 f1 20 22  50 55 31 30 30 30 2c 39  |"..... "PU1000,9|
00000610  30 30 30 3b 22 0d 02 c6  14 f1 20 22 50 44 31 30  |000;"..... "PD10|
00000620  30 30 2c 33 30 30 30 3b  22 0d 02 d0 13 f4 20 44  |00,3000;"..... D|
00000630  52 41 57 20 58 20 41 58  49 53 3a 2d 0d 02 da 19  |RAW X AXIS:-....|
00000640  58 3d 31 30 30 30 2b 62  61 72 73 69 7a 65 2a 6e  |X=1000+barsize*n|
00000650  75 6d 62 65 72 0d 02 e4  17 f1 20 22 50 44 22 3b  |umber..... "PD";|
00000660  c3 28 58 29 22 2c 33 30  30 30 3b 22 0d 02 ee 14  |.(X)",3000;"....|
00000670  f4 20 44 52 41 57 20 42  41 52 53 28 53 29 3a 2d  |. DRAW BARS(S):-|
00000680  0d 02 f8 1b e3 20 71 75  65 73 74 69 6f 6e 20 3d  |..... question =|
00000690  20 31 20 b8 20 6e 75 6d  62 65 72 0d 03 02 1f 58  | 1 . number....X|
000006a0  3d 31 30 30 30 2b 62 61  72 73 69 7a 65 2a 28 71  |=1000+barsize*(q|
000006b0  75 65 73 74 69 6f 6e 2d  31 29 0d 03 0c 22 59 3d  |uestion-1)..."Y=|
000006c0  33 30 30 30 2b 28 36 30  2a 61 6e 73 28 71 75 65  |3000+(60*ans(que|
000006d0  73 74 69 6f 6e 2c 61 72  65 61 29 29 0d 03 16 18  |stion,area))....|
000006e0  f1 20 22 50 55 22 3b c3  28 58 29 3b 22 2c 33 30  |. "PU";.(X);",30|
000006f0  30 30 3b 22 0d 03 20 1c  f1 20 22 50 44 22 3b c3  |00;".. .. "PD";.|
00000700  28 58 29 3b 22 2c 22 3b  c3 28 59 29 3b 22 3b 22  |(X);",";.(Y);";"|
00000710  0d 03 2a 1d 58 3d 31 30  30 30 2b 62 61 72 73 69  |..*.X=1000+barsi|
00000720  7a 65 2a 28 71 75 65 73  74 69 6f 6e 29 0d 03 34  |ze*(question)..4|
00000730  1b f1 22 50 44 22 3b c3  28 58 29 3b 22 2c 22 3b  |.."PD";.(X);",";|
00000740  c3 28 59 29 3b 22 3b 22  0d 03 3e 18 f1 20 22 50  |.(Y);";"..>.. "P|
00000750  44 22 3b c3 28 58 29 3b  22 2c 33 30 30 30 3b 22  |D";.(X);",3000;"|
00000760  0d 03 48 12 f4 20 4c 41  42 45 4c 20 42 41 52 53  |..H.. LABEL BARS|
00000770  3a 2d 0d 03 52 15 58 30  3d 31 30 30 30 2b 62 61  |:-..R.X0=1000+ba|
00000780  72 73 69 7a 65 2f 32 0d  03 5c 1d 58 3d 58 30 2b  |rsize/2..\.X=X0+|
00000790  62 61 72 73 69 7a 65 2a  28 71 75 65 73 74 69 6f  |barsize*(questio|
000007a0  6e 2d 31 29 0d 03 66 17  f1 20 22 50 55 22 3b c3  |n-1)..f.. "PU";.|
000007b0  28 58 29 3b 22 2c 35 30  30 3b 22 0d 03 70 1b 4c  |(X);",500;"..p.L|
000007c0  42 24 3d 71 75 65 73 74  69 6f 6e 24 28 71 75 65  |B$=question$(que|
000007d0  73 74 69 6f 6e 29 0d 03  7a 19 f1 20 22 44 49 30  |stion)..z.. "DI0|
000007e0  2c 31 3b 4c 42 22 3b 4c  42 24 3a ef 31 2c 33 0d  |,1;LB";LB$:.1,3.|
000007f0  03 84 0e f1 20 22 44 49  31 2c 30 3b 22 0d 03 8e  |.... "DI1,0;"...|
00000800  0e ed 20 71 75 65 73 74  69 6f 6e 0d 03 98 10 f1  |.. question.....|
00000810  20 22 53 50 30 3b 22 3a  ef 20 33 0d 03 a2 0a ed  | "SP0;":. 3.....|
00000820  20 61 72 65 61 0d 03 ac  07 ef 20 33 0d 03 b6 05  | area..... 3....|
00000830  e0 0d ff                                          |...|
00000833