� Graph
 � by Nigel Jennings 
 � For BBC and Electron
( � (c) Acorn User 1985
2 :
< A$=�78," ")
F B$=�78," ")
P � Code$(11)
Z � Code%(8)
d � Yvalues(201)
n � I%=1 � 11
x � Code$(I%)
� �
� � "AO","SF","AX","AS","PL"
�" � "OP","SP","SD","RS","C","E"
� � 7
� �_HELP
� � 0
� �_INITIALISE
� � � �_ERROR
�:
� �
� �_INPUT
�& � A$="H" � 7:�_HELP:� 0:�_VDU:� �
� � � Code%(6) �

 �0,31);"Y="A$;

 � Code%(3) �_AXES

 �_PLOT((40-XA%)/60/SF,1)

" � Code%(8) �_DUMP

, � �

6 �

@ :

J � �_INITIALISE

T XA%=640 : YA%=528

^
 �_VDU

h	 SF=1

r � I%=3 � 8

|' � I%<6 Code%(I%)=-1 � Code%(I%)=0 

� �

� �_DISPLAYCODE

� �

� :

� � �_VDU

� � 29,XA%;YA%; 

� � 28,0,31,79,31 

� �

� :

� � �_INPUT

� �

� �

� � �0,31) "Y=" A$

 I%=1 
 �
0 � A$=Code$(I%) �_READCODE:�_INPUT � I%=I%+1
& � I%>11
0 � A$<>"" 
: � A$="H" �
D � A$="RP" A$=B$ � B$=A$
N �
X :
b � �_READCODE
l6 � I%>2 � I%<9 Code%(I%)=� Code%(I%):�_DISPLAYCODE
v' � A$="AO" �_ORIGIN:�_DISPLAYCODE:�
�' � A$="SF" �_SCAFAC:�_DISPLAYCODE:�
� � A$="RS" �_INITIALISE:�
� � A$="C" �_DISPLAYCODE:�
� � A$="E" �_END
� �
� :
� � �_DISPLAYCODE
�  �0,31);"AO: ";XA%;",";YA%;
� �17);"SF: ";SF;
� � I%=3 � 8
�& � Code%(I%) �I%*10-3);Code$(I%);
� �
� C$=�(500)
 �
 :
 � �_PLOT(S,I%)
 < � Code%(5) P%=69 � P%=5:X=S:Y=�(A$):� 4,X*60*SF,Y*48*SF
*% � X=S � (1240-XA%)/60/SF � .1/SF
4 Y=�(A$)
> � Code%(7) Y=Y+Yvalues(I%)
H � P%,X*60*SF,Y*48*SF
R Yvalues(I%)=Y
\ I%=I%+1
f �
p � Code%(3) �_SCALE 
z �
� :
�
 � �_AXES
� � 40-XA%,0
� � 1240-XA%,0
� � 0,48-YA%
� � 0,1008-YA%
� �
� :
� � �_SCALE
� � 5
� @%=&02010A 
�
 � x-axis
�" � XC%=40-XA% � 1240-XA% � 120
 � Graduations
 � XC%,-10

 � XC%,10
$ � Scale points
. � XC%-120,-30
8 � Code%(4) � XC%/60/SF
B �
L
 � y-axis
V! � YC%=48-YA% � 1008-YA% � 96
` � Graduations
j
 � -5,YC%
t � 5,YC%
~ � Scale points
� � -85,YC%+15
�* � Code%(4) � YC%/48/SF<>0 � YC%/48/SF
� �
� @%=&0A
� � 4
� �
� :
� � �_ORIGIN
� �
�7 � �0,31) "Enter Origin: x-coord,y-coord :" XA%,YA%
�, � XA%>=0 � XA%<1280 � YA%>=0 � YA%<1024
� XA%=60*((XA%-10)� 60)+40 
 YA%=48*((YA%-28)� 48)+48

 � 29,XA%;YA%;
 �
 :
( � �_SCAFAC
2 �
<' � �0,31) "Enter Scale Factor: " SF
F � SF>0
P �
Z :
d � �_END
n	 � 26
x �
� � 
� �
� :
� � �_ERROR
�C � 17=Escape 18=Div by Zero 20=Too Big 21=-ve Root 22=Log Range
�
 � �=17 �
�( � �=18 � �=20 �_PLOT(X+.1/SF,I%+1) 
�0 � (�=21 � �=22) � �(X)=-1 �_PLOT(.1/SF,100)
� �
� :
�
 � �_HELP
� � 23,1,0;0;0;0;
�# �''�8);"OUTPUT CONTROL CODES"'
 �11);"Print Control"'
+ � "AO : Axis Origin";�(13);": 640,528"
& � "SF : Scale Factor";�(12);": 1"
" � "AX : Axes";�(20);": on"
,& � "AS : Axis Scales";�(13);": on"
6* � "PL : Dotted Plot Line";�(8);": on"
@% � "OP : Overprint";�(15);": off"
J+ � "SP : Superposition last plot : off"
T( � "SD : Screen Dump";�(13);": off"'
^ �10);"Program Control"'
h � "RP : Repeat last plot" 
r$ � "RS : Reset codes to default"
| � "H  : Display this list"
�$ � "C  : Display current codes" 
� � "E  : End program" 
� C$=�(800)
� �
� :
�
 � �_DUMP
�& � Insert Screen Dump Routine here
� �
�

00000000  0d 00 0a 0c 20 f4 20 47  72 61 70 68 0d 00 14 19  |.... . Graph....|
00000010  20 f4 20 62 79 20 4e 69  67 65 6c 20 4a 65 6e 6e  | . by Nigel Jenn|
00000020  69 6e 67 73 20 0d 00 1e  1b 20 f4 20 46 6f 72 20  |ings .... . For |
00000030  42 42 43 20 61 6e 64 20  45 6c 65 63 74 72 6f 6e  |BBC and Electron|
00000040  0d 00 28 1a 20 f4 20 28  63 29 20 41 63 6f 72 6e  |..(. . (c) Acorn|
00000050  20 55 73 65 72 20 31 39  38 35 0d 00 32 06 20 3a  | User 1985..2. :|
00000060  0d 00 3c 10 20 41 24 3d  c4 37 38 2c 22 20 22 29  |..<. A$=.78," ")|
00000070  0d 00 46 10 20 42 24 3d  c4 37 38 2c 22 20 22 29  |..F. B$=.78," ")|
00000080  0d 00 50 10 20 de 20 43  6f 64 65 24 28 31 31 29  |..P. . Code$(11)|
00000090  0d 00 5a 0f 20 de 20 43  6f 64 65 25 28 38 29 0d  |..Z. . Code%(8).|
000000a0  00 64 13 20 de 20 59 76  61 6c 75 65 73 28 32 30  |.d. . Yvalues(20|
000000b0  31 29 0d 00 6e 10 20 e3  20 49 25 3d 31 20 b8 20  |1)..n. . I%=1 . |
000000c0  31 31 0d 00 78 10 20 f3  20 43 6f 64 65 24 28 49  |11..x. . Code$(I|
000000d0  25 29 0d 00 82 06 20 ed  0d 00 8c 1f 20 dc 20 22  |%).... ..... . "|
000000e0  41 4f 22 2c 22 53 46 22  2c 22 41 58 22 2c 22 41  |AO","SF","AX","A|
000000f0  53 22 2c 22 50 4c 22 0d  00 96 22 20 dc 20 22 4f  |S","PL"..." . "O|
00000100  50 22 2c 22 53 50 22 2c  22 53 44 22 2c 22 52 53  |P","SP","SD","RS|
00000110  22 2c 22 43 22 2c 22 45  22 0d 00 a0 08 20 eb 20  |","C","E".... . |
00000120  37 0d 00 aa 0b 20 f2 5f  48 45 4c 50 0d 00 b4 08  |7.... ._HELP....|
00000130  20 eb 20 30 0d 00 be 11  20 f2 5f 49 4e 49 54 49  | . 0.... ._INITI|
00000140  41 4c 49 53 45 0d 00 c8  10 20 ee 20 85 20 f2 5f  |ALISE.... . . ._|
00000150  45 52 52 4f 52 0d 00 d2  05 3a 0d 00 dc 06 20 f5  |ERROR....:.... .|
00000160  0d 00 e6 0c 20 f2 5f 49  4e 50 55 54 0d 00 f0 26  |.... ._INPUT...&|
00000170  20 e7 20 41 24 3d 22 48  22 20 eb 20 37 3a f2 5f  | . A$="H" . 7:._|
00000180  48 45 4c 50 3a eb 20 30  3a f2 5f 56 44 55 3a fd  |HELP:. 0:._VDU:.|
00000190  20 a3 0d 00 fa 13 20 e7  20 ac 20 43 6f 64 65 25  | ..... . . Code%|
000001a0  28 36 29 20 da 0d 01 04  14 20 f1 8a 30 2c 33 31  |(6) ..... ..0,31|
000001b0  29 3b 22 59 3d 22 41 24  3b 0d 01 0e 16 20 e7 20  |);"Y="A$;.... . |
000001c0  43 6f 64 65 25 28 33 29  20 f2 5f 41 58 45 53 0d  |Code%(3) ._AXES.|
000001d0  01 18 1d 20 f2 5f 50 4c  4f 54 28 28 34 30 2d 58  |... ._PLOT((40-X|
000001e0  41 25 29 2f 36 30 2f 53  46 2c 31 29 0d 01 22 16  |A%)/60/SF,1)..".|
000001f0  20 e7 20 43 6f 64 65 25  28 38 29 20 f2 5f 44 55  | . Code%(8) ._DU|
00000200  4d 50 0d 01 2c 08 20 fd  20 a3 0d 01 36 06 20 e0  |MP..,. . ...6. .|
00000210  0d 01 40 06 20 3a 0d 01  4a 13 20 dd 20 f2 5f 49  |..@. :..J. . ._I|
00000220  4e 49 54 49 41 4c 49 53  45 0d 01 54 16 20 58 41  |NITIALISE..T. XA|
00000230  25 3d 36 34 30 20 3a 20  59 41 25 3d 35 32 38 0d  |%=640 : YA%=528.|
00000240  01 5e 0a 20 f2 5f 56 44  55 0d 01 68 09 20 53 46  |.^. ._VDU..h. SF|
00000250  3d 31 0d 01 72 0f 20 e3  20 49 25 3d 33 20 b8 20  |=1..r. . I%=3 . |
00000260  38 0d 01 7c 27 20 e7 20  49 25 3c 36 20 43 6f 64  |8..|' . I%<6 Cod|
00000270  65 25 28 49 25 29 3d 2d  31 20 8b 20 43 6f 64 65  |e%(I%)=-1 . Code|
00000280  25 28 49 25 29 3d 30 20  0d 01 86 06 20 ed 0d 01  |%(I%)=0 .... ...|
00000290  90 12 20 f2 5f 44 49 53  50 4c 41 59 43 4f 44 45  |.. ._DISPLAYCODE|
000002a0  0d 01 9a 06 20 e1 0d 01  a4 06 20 3a 0d 01 ae 0c  |.... ..... :....|
000002b0  20 dd 20 f2 5f 56 44 55  0d 01 b8 13 20 ef 20 32  | . ._VDU.... . 2|
000002c0  39 2c 58 41 25 3b 59 41  25 3b 20 0d 01 c2 15 20  |9,XA%;YA%; .... |
000002d0  ef 20 32 38 2c 30 2c 33  31 2c 37 39 2c 33 31 20  |. 28,0,31,79,31 |
000002e0  0d 01 cc 06 20 e1 0d 01  d6 06 20 3a 0d 01 e0 0e  |.... ..... :....|
000002f0  20 dd 20 f2 5f 49 4e 50  55 54 0d 01 ea 06 20 f5  | . ._INPUT.... .|
00000300  0d 01 f4 06 20 db 0d 01  fe 15 20 e8 20 8a 30 2c  |.... ..... . .0,|
00000310  33 31 29 20 22 59 3d 22  20 41 24 0d 02 08 0a 20  |31) "Y=" A$.... |
00000320  49 25 3d 31 20 0d 02 12  06 20 f5 0d 02 1c 30 20  |I%=1 .... ....0 |
00000330  e7 20 41 24 3d 43 6f 64  65 24 28 49 25 29 20 f2  |. A$=Code$(I%) .|
00000340  5f 52 45 41 44 43 4f 44  45 3a f2 5f 49 4e 50 55  |_READCODE:._INPU|
00000350  54 20 8b 20 49 25 3d 49  25 2b 31 0d 02 26 0c 20  |T . I%=I%+1..&. |
00000360  fd 20 49 25 3e 31 31 0d  02 30 0e 20 fd 20 41 24  |. I%>11..0. . A$|
00000370  3c 3e 22 22 20 0d 02 3a  0f 20 e7 20 41 24 3d 22  |<>"" ..:. . A$="|
00000380  48 22 20 e1 0d 02 44 1c  20 e7 20 41 24 3d 22 52  |H" ...D. . A$="R|
00000390  50 22 20 41 24 3d 42 24  20 8b 20 42 24 3d 41 24  |P" A$=B$ . B$=A$|
000003a0  0d 02 4e 06 20 e1 0d 02  58 06 20 3a 0d 02 62 11  |..N. ...X. :..b.|
000003b0  20 dd 20 f2 5f 52 45 41  44 43 4f 44 45 0d 02 6c  | . ._READCODE..l|
000003c0  36 20 e7 20 49 25 3e 32  20 80 20 49 25 3c 39 20  |6 . I%>2 . I%<9 |
000003d0  43 6f 64 65 25 28 49 25  29 3d ac 20 43 6f 64 65  |Code%(I%)=. Code|
000003e0  25 28 49 25 29 3a f2 5f  44 49 53 50 4c 41 59 43  |%(I%):._DISPLAYC|
000003f0  4f 44 45 0d 02 76 27 20  e7 20 41 24 3d 22 41 4f  |ODE..v' . A$="AO|
00000400  22 20 f2 5f 4f 52 49 47  49 4e 3a f2 5f 44 49 53  |" ._ORIGIN:._DIS|
00000410  50 4c 41 59 43 4f 44 45  3a e1 0d 02 80 27 20 e7  |PLAYCODE:....' .|
00000420  20 41 24 3d 22 53 46 22  20 f2 5f 53 43 41 46 41  | A$="SF" ._SCAFA|
00000430  43 3a f2 5f 44 49 53 50  4c 41 59 43 4f 44 45 3a  |C:._DISPLAYCODE:|
00000440  e1 0d 02 8a 1d 20 e7 20  41 24 3d 22 52 53 22 20  |..... . A$="RS" |
00000450  f2 5f 49 4e 49 54 49 41  4c 49 53 45 3a e1 0d 02  |._INITIALISE:...|
00000460  94 1d 20 e7 20 41 24 3d  22 43 22 20 f2 5f 44 49  |.. . A$="C" ._DI|
00000470  53 50 4c 41 59 43 4f 44  45 3a e1 0d 02 9e 13 20  |SPLAYCODE:..... |
00000480  e7 20 41 24 3d 22 45 22  20 f2 5f 45 4e 44 0d 02  |. A$="E" ._END..|
00000490  a8 06 20 e1 0d 02 b2 06  20 3a 0d 02 bc 14 20 dd  |.. ..... :.... .|
000004a0  20 f2 5f 44 49 53 50 4c  41 59 43 4f 44 45 0d 02  | ._DISPLAYCODE..|
000004b0  c6 20 20 f1 8a 30 2c 33  31 29 3b 22 41 4f 3a 20  |.  ..0,31);"AO: |
000004c0  22 3b 58 41 25 3b 22 2c  22 3b 59 41 25 3b 0d 02  |";XA%;",";YA%;..|
000004d0  d0 15 20 f1 8a 31 37 29  3b 22 53 46 3a 20 22 3b  |.. ..17);"SF: ";|
000004e0  53 46 3b 0d 02 da 0f 20  e3 20 49 25 3d 33 20 b8  |SF;.... . I%=3 .|
000004f0  20 38 0d 02 e4 26 20 e7  20 43 6f 64 65 25 28 49  | 8...& . Code%(I|
00000500  25 29 20 f1 8a 49 25 2a  31 30 2d 33 29 3b 43 6f  |%) ..I%*10-3);Co|
00000510  64 65 24 28 49 25 29 3b  0d 02 ee 06 20 ed 0d 02  |de$(I%);.... ...|
00000520  f8 0e 20 43 24 3d bf 28  35 30 30 29 0d 03 02 06  |.. C$=.(500)....|
00000530  20 e1 0d 03 0c 06 20 3a  0d 03 16 13 20 dd 20 f2  | ..... :.... . .|
00000540  5f 50 4c 4f 54 28 53 2c  49 25 29 0d 03 20 3c 20  |_PLOT(S,I%).. < |
00000550  e7 20 43 6f 64 65 25 28  35 29 20 50 25 3d 36 39  |. Code%(5) P%=69|
00000560  20 8b 20 50 25 3d 35 3a  58 3d 53 3a 59 3d a0 28  | . P%=5:X=S:Y=.(|
00000570  41 24 29 3a f0 20 34 2c  58 2a 36 30 2a 53 46 2c  |A$):. 4,X*60*SF,|
00000580  59 2a 34 38 2a 53 46 0d  03 2a 25 20 e3 20 58 3d  |Y*48*SF..*% . X=|
00000590  53 20 b8 20 28 31 32 34  30 2d 58 41 25 29 2f 36  |S . (1240-XA%)/6|
000005a0  30 2f 53 46 20 88 20 2e  31 2f 53 46 0d 03 34 0c  |0/SF . .1/SF..4.|
000005b0  20 59 3d a0 28 41 24 29  0d 03 3e 1f 20 e7 20 43  | Y=.(A$)..>. . C|
000005c0  6f 64 65 25 28 37 29 20  59 3d 59 2b 59 76 61 6c  |ode%(7) Y=Y+Yval|
000005d0  75 65 73 28 49 25 29 0d  03 48 19 20 f0 20 50 25  |ues(I%)..H. . P%|
000005e0  2c 58 2a 36 30 2a 53 46  2c 59 2a 34 38 2a 53 46  |,X*60*SF,Y*48*SF|
000005f0  0d 03 52 12 20 59 76 61  6c 75 65 73 28 49 25 29  |..R. Yvalues(I%)|
00000600  3d 59 0d 03 5c 0c 20 49  25 3d 49 25 2b 31 0d 03  |=Y..\. I%=I%+1..|
00000610  66 06 20 ed 0d 03 70 18  20 e7 20 43 6f 64 65 25  |f. ...p. . Code%|
00000620  28 33 29 20 f2 5f 53 43  41 4c 45 20 0d 03 7a 06  |(3) ._SCALE ..z.|
00000630  20 e1 0d 03 84 06 20 3a  0d 03 8e 0d 20 dd 20 f2  | ..... :.... . .|
00000640  5f 41 58 45 53 0d 03 98  0f 20 ec 20 34 30 2d 58  |_AXES.... . 40-X|
00000650  41 25 2c 30 0d 03 a2 11  20 df 20 31 32 34 30 2d  |A%,0.... . 1240-|
00000660  58 41 25 2c 30 0d 03 ac  0f 20 ec 20 30 2c 34 38  |XA%,0.... . 0,48|
00000670  2d 59 41 25 0d 03 b6 11  20 df 20 30 2c 31 30 30  |-YA%.... . 0,100|
00000680  38 2d 59 41 25 0d 03 c0  06 20 e1 0d 03 ca 06 20  |8-YA%.... ..... |
00000690  3a 0d 03 d4 0e 20 dd 20  f2 5f 53 43 41 4c 45 0d  |:.... . ._SCALE.|
000006a0  03 de 08 20 ef 20 35 0d  03 e8 10 20 40 25 3d 26  |... . 5.... @%=&|
000006b0  30 32 30 31 30 41 20 0d  03 f2 0d 20 f4 20 78 2d  |02010A .... . x-|
000006c0  61 78 69 73 0d 03 fc 22  20 e3 20 58 43 25 3d 34  |axis..." . XC%=4|
000006d0  30 2d 58 41 25 20 b8 20  31 32 34 30 2d 58 41 25  |0-XA% . 1240-XA%|
000006e0  20 88 20 31 32 30 0d 04  06 12 20 f4 20 47 72 61  | . 120.... . Gra|
000006f0  64 75 61 74 69 6f 6e 73  0d 04 10 0e 20 ec 20 58  |duations.... . X|
00000700  43 25 2c 2d 31 30 0d 04  1a 0d 20 df 20 58 43 25  |C%,-10.... . XC%|
00000710  2c 31 30 0d 04 24 13 20  f4 20 53 63 61 6c 65 20  |,10..$. . Scale |
00000720  70 6f 69 6e 74 73 0d 04  2e 12 20 ec 20 58 43 25  |points.... . XC%|
00000730  2d 31 32 30 2c 2d 33 30  0d 04 38 1b 20 e7 20 43  |-120,-30..8. . C|
00000740  6f 64 65 25 28 34 29 20  f1 20 58 43 25 2f 36 30  |ode%(4) . XC%/60|
00000750  2f 53 46 0d 04 42 06 20  ed 0d 04 4c 0d 20 f4 20  |/SF..B. ...L. . |
00000760  79 2d 61 78 69 73 0d 04  56 21 20 e3 20 59 43 25  |y-axis..V! . YC%|
00000770  3d 34 38 2d 59 41 25 20  b8 20 31 30 30 38 2d 59  |=48-YA% . 1008-Y|
00000780  41 25 20 88 20 39 36 0d  04 60 12 20 f4 20 47 72  |A% . 96..`. . Gr|
00000790  61 64 75 61 74 69 6f 6e  73 0d 04 6a 0d 20 ec 20  |aduations..j. . |
000007a0  2d 35 2c 59 43 25 0d 04  74 0c 20 df 20 35 2c 59  |-5,YC%..t. . 5,Y|
000007b0  43 25 0d 04 7e 13 20 f4  20 53 63 61 6c 65 20 70  |C%..~. . Scale p|
000007c0  6f 69 6e 74 73 0d 04 88  11 20 ec 20 2d 38 35 2c  |oints.... . -85,|
000007d0  59 43 25 2b 31 35 0d 04  92 2a 20 e7 20 43 6f 64  |YC%+15...* . Cod|
000007e0  65 25 28 34 29 20 80 20  59 43 25 2f 34 38 2f 53  |e%(4) . YC%/48/S|
000007f0  46 3c 3e 30 20 f1 20 59  43 25 2f 34 38 2f 53 46  |F<>0 . YC%/48/SF|
00000800  0d 04 9c 06 20 ed 0d 04  a6 0b 20 40 25 3d 26 30  |.... ..... @%=&0|
00000810  41 0d 04 b0 08 20 ef 20  34 0d 04 ba 06 20 e1 0d  |A.... . 4.... ..|
00000820  04 c4 06 20 3a 0d 04 ce  0f 20 dd 20 f2 5f 4f 52  |... :.... . ._OR|
00000830  49 47 49 4e 0d 04 d8 06  20 f5 0d 04 e2 37 20 e8  |IGIN.... ....7 .|
00000840  20 8a 30 2c 33 31 29 20  22 45 6e 74 65 72 20 4f  | .0,31) "Enter O|
00000850  72 69 67 69 6e 3a 20 78  2d 63 6f 6f 72 64 2c 79  |rigin: x-coord,y|
00000860  2d 63 6f 6f 72 64 20 3a  22 20 58 41 25 2c 59 41  |-coord :" XA%,YA|
00000870  25 0d 04 ec 2c 20 fd 20  58 41 25 3e 3d 30 20 80  |%..., . XA%>=0 .|
00000880  20 58 41 25 3c 31 32 38  30 20 80 20 59 41 25 3e  | XA%<1280 . YA%>|
00000890  3d 30 20 80 20 59 41 25  3c 31 30 32 34 0d 04 f6  |=0 . YA%<1024...|
000008a0  1e 20 58 41 25 3d 36 30  2a 28 28 58 41 25 2d 31  |. XA%=60*((XA%-1|
000008b0  30 29 81 20 36 30 29 2b  34 30 20 0d 05 00 1d 20  |0). 60)+40 .... |
000008c0  59 41 25 3d 34 38 2a 28  28 59 41 25 2d 32 38 29  |YA%=48*((YA%-28)|
000008d0  81 20 34 38 29 2b 34 38  0d 05 0a 12 20 ef 20 32  |. 48)+48.... . 2|
000008e0  39 2c 58 41 25 3b 59 41  25 3b 0d 05 14 06 20 e1  |9,XA%;YA%;.... .|
000008f0  0d 05 1e 06 20 3a 0d 05  28 0f 20 dd 20 f2 5f 53  |.... :..(. . ._S|
00000900  43 41 46 41 43 0d 05 32  06 20 f5 0d 05 3c 27 20  |CAFAC..2. ...<' |
00000910  e8 20 8a 30 2c 33 31 29  20 22 45 6e 74 65 72 20  |. .0,31) "Enter |
00000920  53 63 61 6c 65 20 46 61  63 74 6f 72 3a 20 22 20  |Scale Factor: " |
00000930  53 46 0d 05 46 0b 20 fd  20 53 46 3e 30 0d 05 50  |SF..F. . SF>0..P|
00000940  06 20 e1 0d 05 5a 06 20  3a 0d 05 64 0c 20 dd 20  |. ...Z. :..d. . |
00000950  f2 5f 45 4e 44 0d 05 6e  09 20 ef 20 32 36 0d 05  |._END..n. . 26..|
00000960  78 06 20 db 0d 05 82 07  20 e0 20 0d 05 8c 06 20  |x. ..... . .... |
00000970  e1 0d 05 96 06 20 3a 0d  05 a0 0e 20 dd 20 f2 5f  |..... :.... . ._|
00000980  45 52 52 4f 52 0d 05 aa  43 20 f4 20 31 37 3d 45  |ERROR...C . 17=E|
00000990  73 63 61 70 65 20 31 38  3d 44 69 76 20 62 79 20  |scape 18=Div by |
000009a0  5a 65 72 6f 20 32 30 3d  54 6f 6f 20 42 69 67 20  |Zero 20=Too Big |
000009b0  32 31 3d 2d 76 65 20 52  6f 6f 74 20 32 32 3d 4c  |21=-ve Root 22=L|
000009c0  6f 67 20 52 61 6e 67 65  0d 05 b4 0d 20 e7 20 9f  |og Range.... . .|
000009d0  3d 31 37 20 e1 0d 05 be  28 20 e7 20 9f 3d 31 38  |=17 ....( . .=18|
000009e0  20 84 20 9f 3d 32 30 20  f2 5f 50 4c 4f 54 28 58  | . .=20 ._PLOT(X|
000009f0  2b 2e 31 2f 53 46 2c 49  25 2b 31 29 20 0d 05 c8  |+.1/SF,I%+1) ...|
00000a00  30 20 e7 20 28 9f 3d 32  31 20 84 20 9f 3d 32 32  |0 . (.=21 . .=22|
00000a10  29 20 80 20 b4 28 58 29  3d 2d 31 20 f2 5f 50 4c  |) . .(X)=-1 ._PL|
00000a20  4f 54 28 2e 31 2f 53 46  2c 31 30 30 29 0d 05 d2  |OT(.1/SF,100)...|
00000a30  06 20 e1 0d 05 dc 06 20  3a 0d 05 e6 0d 20 dd 20  |. ..... :.... . |
00000a40  f2 5f 48 45 4c 50 0d 05  f0 14 20 ef 20 32 33 2c  |._HELP.... . 23,|
00000a50  31 2c 30 3b 30 3b 30 3b  30 3b 0d 05 fa 23 20 f1  |1,0;0;0;0;...# .|
00000a60  27 27 8a 38 29 3b 22 4f  55 54 50 55 54 20 43 4f  |''.8);"OUTPUT CO|
00000a70  4e 54 52 4f 4c 20 43 4f  44 45 53 22 27 0d 06 04  |NTROL CODES"'...|
00000a80  1b 20 f1 8a 31 31 29 3b  22 50 72 69 6e 74 20 43  |. ..11);"Print C|
00000a90  6f 6e 74 72 6f 6c 22 27  0d 06 0e 2b 20 f1 20 22  |ontrol"'...+ . "|
00000aa0  41 4f 20 3a 20 41 78 69  73 20 4f 72 69 67 69 6e  |AO : Axis Origin|
00000ab0  22 3b 89 28 31 33 29 3b  22 3a 20 36 34 30 2c 35  |";.(13);": 640,5|
00000ac0  32 38 22 0d 06 18 26 20  f1 20 22 53 46 20 3a 20  |28"...& . "SF : |
00000ad0  53 63 61 6c 65 20 46 61  63 74 6f 72 22 3b 89 28  |Scale Factor";.(|
00000ae0  31 32 29 3b 22 3a 20 31  22 0d 06 22 1f 20 f1 20  |12);": 1"..". . |
00000af0  22 41 58 20 3a 20 41 78  65 73 22 3b 89 28 32 30  |"AX : Axes";.(20|
00000b00  29 3b 22 3a 20 6f 6e 22  0d 06 2c 26 20 f1 20 22  |);": on"..,& . "|
00000b10  41 53 20 3a 20 41 78 69  73 20 53 63 61 6c 65 73  |AS : Axis Scales|
00000b20  22 3b 89 28 31 33 29 3b  22 3a 20 6f 6e 22 0d 06  |";.(13);": on"..|
00000b30  36 2a 20 f1 20 22 50 4c  20 3a 20 44 6f 74 74 65  |6* . "PL : Dotte|
00000b40  64 20 50 6c 6f 74 20 4c  69 6e 65 22 3b 89 28 38  |d Plot Line";.(8|
00000b50  29 3b 22 3a 20 6f 6e 22  0d 06 40 25 20 f1 20 22  |);": on"..@% . "|
00000b60  4f 50 20 3a 20 4f 76 65  72 70 72 69 6e 74 22 3b  |OP : Overprint";|
00000b70  89 28 31 35 29 3b 22 3a  20 6f 66 66 22 0d 06 4a  |.(15);": off"..J|
00000b80  2b 20 f1 20 22 53 50 20  3a 20 53 75 70 65 72 70  |+ . "SP : Superp|
00000b90  6f 73 69 74 69 6f 6e 20  6c 61 73 74 20 70 6c 6f  |osition last plo|
00000ba0  74 20 3a 20 6f 66 66 22  0d 06 54 28 20 f1 20 22  |t : off"..T( . "|
00000bb0  53 44 20 3a 20 53 63 72  65 65 6e 20 44 75 6d 70  |SD : Screen Dump|
00000bc0  22 3b 89 28 31 33 29 3b  22 3a 20 6f 66 66 22 27  |";.(13);": off"'|
00000bd0  0d 06 5e 1d 20 f1 8a 31  30 29 3b 22 50 72 6f 67  |..^. ..10);"Prog|
00000be0  72 61 6d 20 43 6f 6e 74  72 6f 6c 22 27 0d 06 68  |ram Control"'..h|
00000bf0  1f 20 f1 20 22 52 50 20  3a 20 52 65 70 65 61 74  |. . "RP : Repeat|
00000c00  20 6c 61 73 74 20 70 6c  6f 74 22 20 0d 06 72 24  | last plot" ..r$|
00000c10  20 f1 20 22 52 53 20 3a  20 52 65 73 65 74 20 63  | . "RS : Reset c|
00000c20  6f 64 65 73 20 74 6f 20  64 65 66 61 75 6c 74 22  |odes to default"|
00000c30  0d 06 7c 1f 20 f1 20 22  48 20 20 3a 20 44 69 73  |..|. . "H  : Dis|
00000c40  70 6c 61 79 20 74 68 69  73 20 6c 69 73 74 22 0d  |play this list".|
00000c50  06 86 24 20 f1 20 22 43  20 20 3a 20 44 69 73 70  |..$ . "C  : Disp|
00000c60  6c 61 79 20 63 75 72 72  65 6e 74 20 63 6f 64 65  |lay current code|
00000c70  73 22 20 0d 06 90 1a 20  f1 20 22 45 20 20 3a 20  |s" .... . "E  : |
00000c80  45 6e 64 20 70 72 6f 67  72 61 6d 22 20 0d 06 9a  |End program" ...|
00000c90  0e 20 43 24 3d bf 28 38  30 30 29 0d 06 a4 06 20  |. C$=.(800).... |
00000ca0  e1 0d 06 ae 06 20 3a 0d  06 b8 0d 20 dd 20 f2 5f  |..... :.... . ._|
00000cb0  44 55 4d 50 0d 06 c2 26  20 f4 20 49 6e 73 65 72  |DUMP...& . Inser|
00000cc0  74 20 53 63 72 65 65 6e  20 44 75 6d 70 20 52 6f  |t Screen Dump Ro|
00000cd0  75 74 69 6e 65 20 68 65  72 65 0d 06 cc 06 20 e1  |utine here.... .|
00000ce0  0d ff                                             |..|
00000ce2