Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape08a_acorn_eu_1990_february.wav » PLOT

PLOT

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape08a_acorn_eu_1990_february.wav
Filename: PLOT
Read OK: ✔
File size: 1971 bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM Graph Plotter
   20REM By Paul Hodgskin
   30REM (c) Electron User
  120ONERRORIFERR=17GOTO140 ELSE MODE6:REPORT:PRINT" at line ";ERL:END
  130MODE1:VDU23;8202;0;0;0;:PROCinit
  140REPEATPROCmain:UNTIL0
  150DEFPROCinit:DIM bar$(20),bar(20),sector$(40),sector(40),pointX(40),pointY(40):bardata=FALSE:piedata=FALSE:linedata=FALSE:ENDPROC
  160DEFPROCborder
  170CLS:GCOL0,1:FORT=0 TO 28 STEP 8:MOVET,T:DRAW1279-T,T:DRAW1279-T,1023-T:DRAWT,1023-T:DRAWT,T:NEXT:FORT=874 TO 900 STEP 8:MOVE28,T:DRAW1252,T:NEXT:VDU28,1,30,38,1:ENDPROC
  180DEFPROCmain:VDU20:PROCborder:COLOUR3:PRINTTAB(14,1);"MAIN MENU":COLOUR2:RESTORE:FORT=1 TO 8:READ menu$:PRINTTAB(3,T*2+6);T;")...";menu$:NEXT
  190REPEATA=GET-48:UNTILA>0 AND A<10
  200VDU19,2,6;0;19,1,4;0;
  210IFA=1 PROCbar_data ELSE IFA=2 AND bardata=TRUE PROCnorm_bar ELSE IFA=3 AND bardata=TRUE PROCt_bar
  220IFA=4 PROCpie_data ELSE IFA=5 AND piedata=TRUE PROCnorm_pie ELSE IFA=6 AND piedata=TRUE PROCt_pie
  230IFA=7 PROCline_data ELSE IFA=8 AND linedata=TRUE PROCline ELSE VDU7:GOTO140
  240ENDPROC
  250DATA Define Data for Bar Chart,Draw Normal Bar Chart,Draw 3-D Bar Chart,Define Data for Pie Chart,Draw Normal Pie Chart,Draw 3-D Pie Chart,Define Data for Line Graph,Draw Line Graph
  260DEFPROCbar_data:CLS:PROCborder:COLOUR3:PRINTTAB(5,1);"DEFINING DATA FOR BAR CHART"
  270COLOUR2:PRINTTAB(2,8);"What is the scale :":INPUTTAB(2,10)scale:PRINTTAB(2,8);STRING$(60," "):PRINTTAB(2,10);"Scale - ";scale:max=16*scale:PRINTTAB(2,12);"Max height on vertical axis - ";max
  280PRINTTAB(2,15);"Okay (Y/N)":REPEATA$=GET$:UNTILA$="Y"ORA$="N":PRINTTAB(2,15);STRING$(10," "):IFA$="N"VDU28,1,30,38,5:CLS:VDU28,1,30,39,1:GOTO270
  290VDU28,1,30,38,5:CLS:VDU28,1,30,38,1:PRINTTAB(2,8);"How many bars :":INPUTTAB(2,10)bars:IFbars>20 GOTO290
  300PRINTTAB(2,15);"Okay (Y/N)":REPEATA$=GET$:UNTILA$="Y"ORA$="N":PRINTTAB(2,15);STRING$(10," "):IFA$="N"GOTO290
  310FORT=1 TO bars:CLS:PRINT'"Bar ";T
  320INPUT'"Name (Max length : 4 letters) : "bar$(T):IFLENbar$(T)>4 VDU7,11,11:PRINTSTRING$(80," "):VDU7,11,11,11:GOTO320
  330INPUT'"Height : "bar(T):IFbar(T)>max OR bar(T)<0 VDU7,11,11:PRINTSTRING$(80," "):VDU11,11,11:GOTO330
  340NEXT:PROCconvert:bardata=TRUE
  350CLS:PRINTTAB(0,2);"What is the title of the Bar chart :":INPUT'""btitle$:IFLENbtitle$>37 PRINT'"Too Long":REPEATUNTILGET:GOTO350
  360CLS:PRINTTAB(0,2);"What is the X axis called :":INPUT'""xaxis$:IFLENxaxis$>37 PRINT'"Too Long":REPEATUNTILGET:GOTO360
  370CLS:PRINTTAB(0,2);"What is the Y axis called :":INPUT'""yaxis$:IFLENyaxis$>26 PRINT'"Too Long":REPEATUNTILGET:GOTO370
  380ENDPROC
  390DEFPROCnorm_bar:VDU26:CLS:step=1000/bars
  400FORT=0 TO bars-1:GCOL0,T MOD 3+1:MOVET*step+240,150:MOVET*step+240,bar(T+1)+150:PLOT85,T*step+240+step,bar(T+1)+150:MOVET*step+240+step,150:PLOT85,T*step+240,150:NEXT:GCOL0,3
  410PROCaxis:PROCprint:ENDPROC
  420DEFPROCt_bar:VDU26:CLS
  430step=1000/bars:FORT=0 TO bars-1:GCOL0,1:MOVET*step+240,150:MOVET*step+240,bar(T+1)+150:PLOT85,T*step+240+step,bar(T+1)+150:MOVET*step+240+step,150:PLOT85,T*step+240,150
  440GCOL0,2:MOVET*step+240,bar(T+1)+150:MOVET*step+240+step,bar(T+1)+150:PLOT85,T*step+290+step,bar(T+1)+200:MOVET*step+290,bar(T+1)+200:PLOT85,T*step+240,bar(T+1)+150
  450GCOL0,3:MOVET*step+240+step,bar(T+1)+150:MOVET*step+290+step,bar(T+1)+200:PLOT85,T*step+290+step,200:MOVET*step+240+step,150:PLOT85,T*step+240+step,bar(T+1)+150:NEXT
  460PROCaxis:PROCprint:ENDPROC
  470DEFPROCaxis:GCOL0,3:MOVE240,950:DRAW240,150:DRAW1240,150:FORT=150 TO 950 STEP 50:MOVE240,T:DRAW220,T:VDU5:MOVE-120,T+16:PRINT((T-150)/50)*scale:NEXT
  480bar=1:FORT=240 TO 1230 STEP step:MOVET,150:DRAWT,100:FORL=1 TO 4:MOVET+(1000/bars)/2-16,180-(L*36):VDU5:PRINTMID$(bar$(bar),L,1):VDU4:NEXTL:bar=bar+1:NEXTT:PROCtitle(((39-LENbtitle$)/2)*32,980,btitle$)
  490COLOUR3:PRINTTAB(0,31):PRINTTAB((39-LENxaxis$)/2,31)xaxis$;:start=(29-LENyaxis$)/2:FORT=1 TO LENyaxis$:PRINTTAB(0,T+start);MID$(yaxis$,T,1):NEXT:ENDPROC
  500DEFPROCtitle(X,Y,A$):VDU5:GCOL0,0:MOVEX+4,Y+4:PRINTA$:MOVEX-4,Y+4:PRINTA$:MOVEX-4,Y-4:PRINTA$:MOVEX+4,Y-4:PRINTA$:GCOL0,3:MOVEX,Y:PRINTA$:VDU4:ENDPROC
  510DEFPROCprint:MOVE480,830:GCOL4,0:VDU5:PRINT"Print (Y/N)":OSCLI"FX15":REPEATA$=GET$:UNTILA$="Y" OR A$="N":MOVE480,830:PRINT"Print (Y/N)":VDU4:IFA$="Y" PROCdump:ENDPROC ELSE ENDPROC
  520DEFPROCconvert:FORT=1 TO bars:bar(T)=(bar(T)/scale*50):NEXT:ENDPROC
  530DEFPROCpie_data:CLS:PROCborder:COLOUR3:PRINTTAB(5,1);"DEFINING DATA FOR PIE CHART"
  540COLOUR2:PRINTTAB(2,8);"How many sectors :":INPUTTAB(2,10)""sectors:IFsectors<1 OR sectors>40 VDU7:PRINT'"  Silly":REPEATUNTILGET:VDU28,1,30,38,5:CLS:VDU28,1,30,38,1:GOTO540
  550FORT=1 TO sectors
  560CLS:PRINT'"Sector ";T:INPUT'"Name (Max length : 6 letters) : "sector$(T):IFLENsector$(T)>6 VDU7:GOTO560
  570INPUT'"Size : "sector(T):NEXT:total=0:FORT=1 TO sectors:total=total+sector(T):NEXT:one=360/total:FORT=1 TO sectors:sector(T)=sector(T)*one:NEXT
  580CLS:PRINTTAB(0,2);"What is the title of the Pie chart :":INPUT'""ptitle$:IFLENptitle$>37 PRINT'"Too Long":REPEATUNTILGET:GOTO580
  590piedata=TRUE:ENDPROC
  600DEFPROCnorm_pie:sec=1:col=1:tot=0:VDU26:CLS:PROCpie(450,450):VDU29,0;0;:PROCprint:ENDPROC
  610DEFPROCt_pie:sec=1:col=1:tot=0:VDU26:CLS:FORT=0 TO 266 STEP 4:IFT>(tot+sector(sec))sec=sec+1:col=col+1:tot=tot+sector(sec-1):IFcol>3 col=1:IFsec=sectors AND col=1 col=2
  620VDU29,640;512;:GCOL0,col:MOVESINRADT*450,COSRADT*150:MOVESINRADT*450,COSRADT*150-150:PLOT85,SINRAD(T+4)*450,COSRAD(T+4)*150-150:MOVESINRAD(T+4)*450,COSRAD(T+4)*150:PLOT85,SINRADT*450,COSRADT*150:NEXT:PROCpie(450,150)
  630PROCprint:ENDPROC
  640DEFPROCpie(A,B):sec=1:col=1:tot=0
  650FORT=0 TO 356 STEP 4:IFT>(tot+sector(sec))sec=sec+1:col=col+1:tot=tot+sector(sec-1):IFcol>3 col=1:IFsec=sectors AND col=1 col=2
  660VDU29,640;512;:GCOL0,col:MOVE0,0:MOVE SINRADT*A,COSRADT*B:PLOT85,SINRAD(T+4)*A,COSRAD(T+4)*B:NEXT
  670tot=0:FORT=1 TO sectors:IFsector(T)+tot>180 sector$(T)=STRING$(LENsector$(T),CHR$8)+sector$(T)
  680PROCtitle(SINRAD(tot+(sector(T)/2))*A,COSRAD(tot+(sector(T)/2))*B+32,sector$(T)):tot=tot+sector(T):NEXT:VDU4
  690VDU29,0;0;30,11,11
  700PROCtitle(((39-LENptitle$)/2)*32,980,ptitle$)
  710ENDPROC
  720DEFPROCline_data:CLS:PROCborder:COLOUR3:PRINTTAB(5,1);"DEFINING DATA FOR LINE GRAPH"
  730COLOUR2:PRINTTAB(2,8);"What is the scale of the X axis :":INPUTTAB(2,10)xscale:PRINTTAB(2,8);STRING$(60," "):PRINTTAB(2,10);"X axis scale - ";xscale:xmax=xscale*19:PRINTTAB(2,12);"Max height on X axis - ";xmax
  740PRINTTAB(2,16);"What is the scale of the Y axis :":INPUTTAB(2,18)yscale:PRINTTAB(2,16);STRING$(60," "):PRINTTAB(2,18);"Y axis scale - ";yscale:ymax=yscale*15:PRINTTAB(2,20);"Max height on Y axis - ";ymax
  750PRINTTAB(2,23);"Okay (Y/N)":REPEATA$=GET$:UNTILA$="Y"ORA$="N":PRINTTAB(2,13);STRING$(10," "):VDU28,1,30,38,5:CLS:VDU28,1,30,38,1:IFA$="N"GOTO730
  760PRINTTAB(2,8);"How many points :"
  770INPUTTAB(2,10);""points
  780IFpoints<1 OR points>40 PRINT''"Silly":VDU7:REPEATUNTILGET:VDU28,1,30,38,5:CLS:VDU28,1,30,39,1:GOTO760
  790VDU28,1,30,38,5:FORT=1 TO points:CLS:PRINT'"Point ";T'
  800INPUT"X axis : "pointX(T):IFpointX(T)<0 OR pointX(T)>xmax PRINTCHR$11;STRING$(60," "):VDU7,11,11:GOTO800
  810INPUT"Y axis : "pointY(T):IFpointY(T)<0 OR pointY(T)>ymax PRINTCHR$11;STRING$(60," "):VDU7,11,11:GOTO810
  820NEXT
  830VDU28,1,30,38,5:CLS:PRINTTAB(0,2);"What is the title of the line graph :":INPUTTAB(0,4)ltitle$
  840CLS:IFLENltitle$>37 PRINT'"Too long":VDU7:REPEATUNTILGET:GOTO830
  850CLS:PRINTTAB(0,2);"What is the X axis called :":INPUT'""lxaxis$:IFLENlxaxis$>37 PRINT'"Too Long":REPEATUNTILGET:GOTO850
  860CLS:PRINTTAB(0,2);"What is the Y axis called :":INPUT'""lyaxis$:IFLENlyaxis$>26 PRINT'"Too Long":REPEATUNTILGET:GOTO860
  870FORT=1 TO points:pointX(T)=(pointX(T)/xscale*50):pointY(T)=(pointY(T)/yscale*50):NEXT
  880VDU26:CLS:linedata=TRUE:ENDPROC
  890DEFPROCline
  900VDU26:CLS:GCOL0,3:MOVE240,1000:DRAW240,200:DRAW1240,200:FORT=200 TO 950 STEP 50:MOVE240,T:DRAW220,T:NEXT
  910FORT=240 TO 1190 STEP 50:MOVET,200:DRAWT,180:NEXT
  920GCOL0,2:MOVEpointX(1)+240,pointY(1)+200:FORT=2 TO points:DRAWpointX(T)+240,pointY(T)+200:NEXT
  930GCOL0,3:VDU5:FORT=1 TO 16:MOVE-120,(T*50)+164:PRINT(T-1)*yscale:NEXT
  940FORT=240 TO 1190 STEP 50:num$=STR$(xscale*((T-240)/50))
  950FORL=1 TO LENnum$:MOVET-16,192-(L*32):PRINTMID$(num$,L,1):NEXTL:NEXTT:VDU4:COLOUR3
  960PRINTTAB(0,31):PRINTTAB((39-LENlxaxis$)/2,31)lxaxis$;:start=(29-LENlyaxis$)/2:FORT=1 TO LENlyaxis$:PRINTTAB(0,T+start);MID$(lyaxis$,T,1):NEXT
  970PROCtitle(((39-LENltitle$)/2)*32,1020,ltitle$):PROCprint:VDU26:CLS:ENDPROC
  980DEFPROCdump
  990REM Load and call a
  992REM screen dump routine
  994REM from here
 1000ENDPROC


� Graph Plotter
� By Paul Hodgskin
� (c) Electron User
x(��=17�tL@ � �6:�:�" at line ";�:�
��1:�23;8202;0;0;0;:�init
�
��main:�0
�k��init:� bar$(20),bar(20),sector$(40),sector(40),pointX(40),pointY(40):bardata=�:piedata=�:linedata=�:�
���border
�x�:�0,1:�T=0 � 28 � 8:�T,T:�1279-T,T:�1279-T,1023-T:�T,1023-T:�T,T:�:�T=874 � 900 � 8:�28,T:�1252,T:�:�28,1,30,38,1:�
�_��main:�20:�border:�3:�14,1);"MAIN MENU":�2:�:�T=1 � 8:� menu$:�3,T*2+6);T;")...";menu$:�
��A=�-48:�A>0 � A<10
��19,2,6;0;19,1,4;0;
�I�A=1 �bar_data � �A=2 � bardata=� �norm_bar � �A=3 � bardata=� �t_bar
�I�A=4 �pie_data � �A=5 � piedata=� �norm_pie � �A=6 � piedata=� �t_pie
�8�A=7 �line_data � �A=8 � linedata=� �line � �7:�tL@
��
��� Define Data for Bar Chart,Draw Normal Bar Chart,Draw 3-D Bar Chart,Define Data for Pie Chart,Draw Normal Pie Chart,Draw 3-D Pie Chart,Define Data for Line Graph,Draw Line Graph
@��bar_data:�:�border:�3:�5,1);"DEFINING DATA FOR BAR CHART"
��2:�2,8);"What is the scale :":�2,10)scale:�2,8);�60," "):�2,10);"Scale - ";scale:max=16*scale:�2,12);"Max height on vertical axis - ";max
i�2,15);"Okay (Y/N)":�A$=�:�A$="Y"�A$="N":�2,15);�10," "):�A$="N"�28,1,30,38,5:�:�28,1,30,39,1:�TNA
"U�28,1,30,38,5:�:�28,1,30,38,1:�2,8);"How many bars :":�2,10)bars:�bars>20 �TbA
,K�2,15);"Okay (Y/N)":�A$=�:�A$="Y"�A$="N":�2,15);�10," "):�A$="N"�TbA
6�T=1 � bars:�:�'"Bar ";T
@`�'"Name (Max length : 4 letters) : "bar$(T):�bar$(T)>4 �7,11,11:��80," "):�7,11,11,11:�D@A
JQ�'"Height : "bar(T):�bar(T)>max � bar(T)<0 �7,11,11:��80," "):�11,11,11:�DJA
T�:�convert:bardata=�
^c�:�0,2);"What is the title of the Bar chart :":�'""btitle$:�btitle$>37 �'"Too Long":���:�D^A
hX�:�0,2);"What is the X axis called :":�'""xaxis$:�xaxis$>37 �'"Too Long":���:�DhA
rX�:�0,2);"What is the Y axis called :":�'""yaxis$:�yaxis$>26 �'"Too Long":���:�DrA
|�
�#��norm_bar:�26:�:step=1000/bars
���T=0 � bars-1:�0,T � 3+1:�T*step+240,150:�T*step+240,bar(T+1)+150:�85,T*step+240+step,bar(T+1)+150:�T*step+240+step,150:�85,T*step+240,150:�:�0,3
��axis:�print:�
���t_bar:�26:�
��step=1000/bars:�T=0 � bars-1:�0,1:�T*step+240,150:�T*step+240,bar(T+1)+150:�85,T*step+240+step,bar(T+1)+150:�T*step+240+step,150:�85,T*step+240,150
���0,2:�T*step+240,bar(T+1)+150:�T*step+240+step,bar(T+1)+150:�85,T*step+290+step,bar(T+1)+200:�T*step+290,bar(T+1)+200:�85,T*step+240,bar(T+1)+150
”�0,3:�T*step+240+step,bar(T+1)+150:�T*step+290+step,bar(T+1)+200:�85,T*step+290+step,200:�T*step+240+step,150:�85,T*step+240+step,bar(T+1)+150:�
��axis:�print:�
�o��axis:�0,3:�240,950:�240,150:�1240,150:�T=150 � 950 � 50:�240,T:�220,T:�5:�-120,T+16:�((T-150)/50)*scale:�
�bar=1:�T=240 � 1230 � step:�T,150:�T,100:�L=1 � 4:�T+(1000/bars)/2-16,180-(L*36):�5:�bar$(bar),L,1):�4:�L:bar=bar+1:�T:�title(((39-�btitle$)/2)*32,980,btitle$)
�l�3:�0,31):�(39-�xaxis$)/2,31)xaxis$;:start=(29-�yaxis$)/2:�T=1 � �yaxis$:�0,T+start);�yaxis$,T,1):�:�
�b��title(X,Y,A$):�5:�0,0:�X+4,Y+4:�A$:�X-4,Y+4:�A$:�X-4,Y-4:�A$:�X+4,Y-4:�A$:�0,3:�X,Y:�A$:�4:�
�y��print:�480,830:�4,0:�5:�"Print (Y/N)":�"FX15":�A$=�:�A$="Y" � A$="N":�480,830:�"Print (Y/N)":�4:�A$="Y" �dump:� � �
6��convert:�T=1 � bars:bar(T)=(bar(T)/scale*50):�:�
@��pie_data:�:�border:�3:�5,1);"DEFINING DATA FOR PIE CHART"
��2:�2,8);"How many sectors :":�2,10)""sectors:�sectors<1 � sectors>40 �7:�'"  Silly":���:�28,1,30,38,5:�:�28,1,30,38,1:�T\B
&�T=1 � sectors
0Z�:�'"Sector ";T:�'"Name (Max length : 6 letters) : "sector$(T):�sector$(T)>6 �7:�TpB
:��'"Size : "sector(T):�:total=0:�T=1 � sectors:total=total+sector(T):�:one=360/total:�T=1 � sectors:sector(T)=sector(T)*one:�
Dc�:�0,2);"What is the title of the Pie chart :":�'""ptitle$:�ptitle$>37 �'"Too Long":���:�DDB
Npiedata=�:�
XF��norm_pie:sec=1:col=1:tot=0:�26:�:�pie(450,450):�29,0;0;:�print:�
b���t_pie:sec=1:col=1:tot=0:�26:�:�T=0 � 266 � 4:�T>(tot+sector(sec))sec=sec+1:col=col+1:tot=tot+sector(sec-1):�col>3 col=1:�sec=sectors � col=1 col=2
l��29,640;512;:�0,col:쵲T*450,��T*150:쵲T*450,��T*150-150:�85,��(T+4)*450,��(T+4)*150-150:쵲(T+4)*450,��(T+4)*150:�85,��T*450,��T*150:�:�pie(450,150)
v�print:�
� ��pie(A,B):sec=1:col=1:tot=0
�x�T=0 � 356 � 4:�T>(tot+sector(sec))sec=sec+1:col=col+1:tot=tot+sector(sec-1):�col>3 col=1:�sec=sectors � col=1 col=2
�D�29,640;512;:�0,col:�0,0:� ��T*A,��T*B:�85,��(T+4)*A,��(T+4)*B:�
�Rtot=0:�T=1 � sectors:�sector(T)+tot>180 sector$(T)=ĩsector$(T),�8)+sector$(T)
�`�title(��(tot+(sector(T)/2))*A,��(tot+(sector(T)/2))*B+32,sector$(T)):tot=tot+sector(T):�:�4
��29,0;0;30,11,11
�,�title(((39-�ptitle$)/2)*32,980,ptitle$)
��
�B��line_data:�:�border:�3:�5,1);"DEFINING DATA FOR LINE GRAPH"
ڦ�2:�2,8);"What is the scale of the X axis :":�2,10)xscale:�2,8);�60," "):�2,10);"X axis scale - ";xscale:xmax=xscale*19:�2,12);"Max height on X axis - ";xmax
��2,16);"What is the scale of the Y axis :":�2,18)yscale:�2,16);�60," "):�2,18);"Y axis scale - ";yscale:ymax=yscale*15:�2,20);"Max height on Y axis - ";ymax
�i�2,23);"Okay (Y/N)":�A$=�:�A$="Y"�A$="N":�2,13);�10," "):�28,1,30,38,5:�:�28,1,30,38,1:�A$="N"�dZB
��2,8);"How many points :"
�2,10);""points
O�points<1 � points>40 �''"Silly":�7:���:�28,1,30,38,5:�:�28,1,30,39,1:�dxB
/�28,1,30,38,5:�T=1 � points:�:�'"Point ";T'
 T�"X axis : "pointX(T):�pointX(T)<0 � pointX(T)>xmax �11;�60," "):�7,11,11:�T`C
*T�"Y axis : "pointY(T):�pointY(T)<0 � pointY(T)>ymax �11;�60," "):�7,11,11:�TjC
4�
>P�28,1,30,38,5:�:�0,2);"What is the title of the line graph :":�0,4)ltitle$
H,�:�ltitle$>37 �'"Too long":�7:���:�T~C
RZ�:�0,2);"What is the X axis called :":�'""lxaxis$:�lxaxis$>37 �'"Too Long":���:�DRC
\Z�:�0,2);"What is the Y axis called :":�'""lyaxis$:�lyaxis$>26 �'"Too Long":���:�D\C
fS�T=1 � points:pointX(T)=(pointX(T)/xscale*50):pointY(T)=(pointY(T)/yscale*50):�
p�26:�:linedata=�:�
z
��line
�M�26:�:�0,3:�240,1000:�240,200:�1240,200:�T=200 � 950 � 50:�240,T:�220,T:�
�&�T=240 � 1190 � 50:�T,200:�T,180:�
�R�0,2:�pointX(1)+240,pointY(1)+200:�T=2 � points:�pointX(T)+240,pointY(T)+200:�
�6�0,3:�5:�T=1 � 16:�-120,(T*50)+164:�(T-1)*yscale:�
�2�T=240 � 1190 � 50:num$=�(xscale*((T-240)/50))
�9�L=1 � �num$:�T-16,192-(L*32):�num$,L,1):�L:�T:�4:�3
�l�0,31):�(39-�lxaxis$)/2,31)lxaxis$;:start=(29-�lyaxis$)/2:�T=1 � �lyaxis$:�0,T+start);�lyaxis$,T,1):�
�<�title(((39-�ltitle$)/2)*32,1020,ltitle$):�print:�26:�:�
�
��dump
�� Load and call a
�� screen dump routine
�� from here
��
�
00000000  0d 00 0a 13 f4 20 47 72  61 70 68 20 50 6c 6f 74  |..... Graph Plot|
00000010  74 65 72 0d 00 14 16 f4  20 42 79 20 50 61 75 6c  |ter..... By Paul|
00000020  20 48 6f 64 67 73 6b 69  6e 0d 00 1e 17 f4 20 28  | Hodgskin..... (|
00000030  63 29 20 45 6c 65 63 74  72 6f 6e 20 55 73 65 72  |c) Electron User|
00000040  0d 00 78 28 ee 85 e7 9f  3d 31 37 e5 8d 74 4c 40  |..x(....=17..tL@|
00000050  20 8b 20 eb 36 3a f6 3a  f1 22 20 61 74 20 6c 69  | . .6:.:." at li|
00000060  6e 65 20 22 3b 9e 3a e0  0d 00 82 1c eb 31 3a ef  |ne ";.:......1:.|
00000070  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 3a f2  |23;8202;0;0;0;:.|
00000080  69 6e 69 74 0d 00 8c 0d  f5 f2 6d 61 69 6e 3a fd  |init......main:.|
00000090  30 0d 00 96 6b dd f2 69  6e 69 74 3a de 20 62 61  |0...k..init:. ba|
000000a0  72 24 28 32 30 29 2c 62  61 72 28 32 30 29 2c 73  |r$(20),bar(20),s|
000000b0  65 63 74 6f 72 24 28 34  30 29 2c 73 65 63 74 6f  |ector$(40),secto|
000000c0  72 28 34 30 29 2c 70 6f  69 6e 74 58 28 34 30 29  |r(40),pointX(40)|
000000d0  2c 70 6f 69 6e 74 59 28  34 30 29 3a 62 61 72 64  |,pointY(40):bard|
000000e0  61 74 61 3d a3 3a 70 69  65 64 61 74 61 3d a3 3a  |ata=.:piedata=.:|
000000f0  6c 69 6e 65 64 61 74 61  3d a3 3a e1 0d 00 a0 0c  |linedata=.:.....|
00000100  dd f2 62 6f 72 64 65 72  0d 00 aa 78 db 3a e6 30  |..border...x.:.0|
00000110  2c 31 3a e3 54 3d 30 20  b8 20 32 38 20 88 20 38  |,1:.T=0 . 28 . 8|
00000120  3a ec 54 2c 54 3a df 31  32 37 39 2d 54 2c 54 3a  |:.T,T:.1279-T,T:|
00000130  df 31 32 37 39 2d 54 2c  31 30 32 33 2d 54 3a df  |.1279-T,1023-T:.|
00000140  54 2c 31 30 32 33 2d 54  3a df 54 2c 54 3a ed 3a  |T,1023-T:.T,T:.:|
00000150  e3 54 3d 38 37 34 20 b8  20 39 30 30 20 88 20 38  |.T=874 . 900 . 8|
00000160  3a ec 32 38 2c 54 3a df  31 32 35 32 2c 54 3a ed  |:.28,T:.1252,T:.|
00000170  3a ef 32 38 2c 31 2c 33  30 2c 33 38 2c 31 3a e1  |:.28,1,30,38,1:.|
00000180  0d 00 b4 5f dd f2 6d 61  69 6e 3a ef 32 30 3a f2  |..._..main:.20:.|
00000190  62 6f 72 64 65 72 3a fb  33 3a f1 8a 31 34 2c 31  |border:.3:..14,1|
000001a0  29 3b 22 4d 41 49 4e 20  4d 45 4e 55 22 3a fb 32  |);"MAIN MENU":.2|
000001b0  3a f7 3a e3 54 3d 31 20  b8 20 38 3a f3 20 6d 65  |:.:.T=1 . 8:. me|
000001c0  6e 75 24 3a f1 8a 33 2c  54 2a 32 2b 36 29 3b 54  |nu$:..3,T*2+6);T|
000001d0  3b 22 29 2e 2e 2e 22 3b  6d 65 6e 75 24 3a ed 0d  |;")...";menu$:..|
000001e0  00 be 17 f5 41 3d a5 2d  34 38 3a fd 41 3e 30 20  |....A=.-48:.A>0 |
000001f0  80 20 41 3c 31 30 0d 00  c8 17 ef 31 39 2c 32 2c  |. A<10.....19,2,|
00000200  36 3b 30 3b 31 39 2c 31  2c 34 3b 30 3b 0d 00 d2  |6;0;19,1,4;0;...|
00000210  49 e7 41 3d 31 20 f2 62  61 72 5f 64 61 74 61 20  |I.A=1 .bar_data |
00000220  8b 20 e7 41 3d 32 20 80  20 62 61 72 64 61 74 61  |. .A=2 . bardata|
00000230  3d b9 20 f2 6e 6f 72 6d  5f 62 61 72 20 8b 20 e7  |=. .norm_bar . .|
00000240  41 3d 33 20 80 20 62 61  72 64 61 74 61 3d b9 20  |A=3 . bardata=. |
00000250  f2 74 5f 62 61 72 0d 00  dc 49 e7 41 3d 34 20 f2  |.t_bar...I.A=4 .|
00000260  70 69 65 5f 64 61 74 61  20 8b 20 e7 41 3d 35 20  |pie_data . .A=5 |
00000270  80 20 70 69 65 64 61 74  61 3d b9 20 f2 6e 6f 72  |. piedata=. .nor|
00000280  6d 5f 70 69 65 20 8b 20  e7 41 3d 36 20 80 20 70  |m_pie . .A=6 . p|
00000290  69 65 64 61 74 61 3d b9  20 f2 74 5f 70 69 65 0d  |iedata=. .t_pie.|
000002a0  00 e6 38 e7 41 3d 37 20  f2 6c 69 6e 65 5f 64 61  |..8.A=7 .line_da|
000002b0  74 61 20 8b 20 e7 41 3d  38 20 80 20 6c 69 6e 65  |ta . .A=8 . line|
000002c0  64 61 74 61 3d b9 20 f2  6c 69 6e 65 20 8b 20 ef  |data=. .line . .|
000002d0  37 3a e5 8d 74 4c 40 0d  00 f0 05 e1 0d 00 fa b6  |7:..tL@.........|
000002e0  dc 20 44 65 66 69 6e 65  20 44 61 74 61 20 66 6f  |. Define Data fo|
000002f0  72 20 42 61 72 20 43 68  61 72 74 2c 44 72 61 77  |r Bar Chart,Draw|
00000300  20 4e 6f 72 6d 61 6c 20  42 61 72 20 43 68 61 72  | Normal Bar Char|
00000310  74 2c 44 72 61 77 20 33  2d 44 20 42 61 72 20 43  |t,Draw 3-D Bar C|
00000320  68 61 72 74 2c 44 65 66  69 6e 65 20 44 61 74 61  |hart,Define Data|
00000330  20 66 6f 72 20 50 69 65  20 43 68 61 72 74 2c 44  | for Pie Chart,D|
00000340  72 61 77 20 4e 6f 72 6d  61 6c 20 50 69 65 20 43  |raw Normal Pie C|
00000350  68 61 72 74 2c 44 72 61  77 20 33 2d 44 20 50 69  |hart,Draw 3-D Pi|
00000360  65 20 43 68 61 72 74 2c  44 65 66 69 6e 65 20 44  |e Chart,Define D|
00000370  61 74 61 20 66 6f 72 20  4c 69 6e 65 20 47 72 61  |ata for Line Gra|
00000380  70 68 2c 44 72 61 77 20  4c 69 6e 65 20 47 72 61  |ph,Draw Line Gra|
00000390  70 68 0d 01 04 40 dd f2  62 61 72 5f 64 61 74 61  |ph...@..bar_data|
000003a0  3a db 3a f2 62 6f 72 64  65 72 3a fb 33 3a f1 8a  |:.:.border:.3:..|
000003b0  35 2c 31 29 3b 22 44 45  46 49 4e 49 4e 47 20 44  |5,1);"DEFINING D|
000003c0  41 54 41 20 46 4f 52 20  42 41 52 20 43 48 41 52  |ATA FOR BAR CHAR|
000003d0  54 22 0d 01 0e 93 fb 32  3a f1 8a 32 2c 38 29 3b  |T".....2:..2,8);|
000003e0  22 57 68 61 74 20 69 73  20 74 68 65 20 73 63 61  |"What is the sca|
000003f0  6c 65 20 3a 22 3a e8 8a  32 2c 31 30 29 73 63 61  |le :":..2,10)sca|
00000400  6c 65 3a f1 8a 32 2c 38  29 3b c4 36 30 2c 22 20  |le:..2,8);.60," |
00000410  22 29 3a f1 8a 32 2c 31  30 29 3b 22 53 63 61 6c  |"):..2,10);"Scal|
00000420  65 20 2d 20 22 3b 73 63  61 6c 65 3a 6d 61 78 3d  |e - ";scale:max=|
00000430  31 36 2a 73 63 61 6c 65  3a f1 8a 32 2c 31 32 29  |16*scale:..2,12)|
00000440  3b 22 4d 61 78 20 68 65  69 67 68 74 20 6f 6e 20  |;"Max height on |
00000450  76 65 72 74 69 63 61 6c  20 61 78 69 73 20 2d 20  |vertical axis - |
00000460  22 3b 6d 61 78 0d 01 18  69 f1 8a 32 2c 31 35 29  |";max...i..2,15)|
00000470  3b 22 4f 6b 61 79 20 28  59 2f 4e 29 22 3a f5 41  |;"Okay (Y/N)":.A|
00000480  24 3d be 3a fd 41 24 3d  22 59 22 84 41 24 3d 22  |$=.:.A$="Y".A$="|
00000490  4e 22 3a f1 8a 32 2c 31  35 29 3b c4 31 30 2c 22  |N":..2,15);.10,"|
000004a0  20 22 29 3a e7 41 24 3d  22 4e 22 ef 32 38 2c 31  | "):.A$="N".28,1|
000004b0  2c 33 30 2c 33 38 2c 35  3a db 3a ef 32 38 2c 31  |,30,38,5:.:.28,1|
000004c0  2c 33 30 2c 33 39 2c 31  3a e5 8d 54 4e 41 0d 01  |,30,39,1:..TNA..|
000004d0  22 55 ef 32 38 2c 31 2c  33 30 2c 33 38 2c 35 3a  |"U.28,1,30,38,5:|
000004e0  db 3a ef 32 38 2c 31 2c  33 30 2c 33 38 2c 31 3a  |.:.28,1,30,38,1:|
000004f0  f1 8a 32 2c 38 29 3b 22  48 6f 77 20 6d 61 6e 79  |..2,8);"How many|
00000500  20 62 61 72 73 20 3a 22  3a e8 8a 32 2c 31 30 29  | bars :":..2,10)|
00000510  62 61 72 73 3a e7 62 61  72 73 3e 32 30 20 e5 8d  |bars:.bars>20 ..|
00000520  54 62 41 0d 01 2c 4b f1  8a 32 2c 31 35 29 3b 22  |TbA..,K..2,15);"|
00000530  4f 6b 61 79 20 28 59 2f  4e 29 22 3a f5 41 24 3d  |Okay (Y/N)":.A$=|
00000540  be 3a fd 41 24 3d 22 59  22 84 41 24 3d 22 4e 22  |.:.A$="Y".A$="N"|
00000550  3a f1 8a 32 2c 31 35 29  3b c4 31 30 2c 22 20 22  |:..2,15);.10," "|
00000560  29 3a e7 41 24 3d 22 4e  22 e5 8d 54 62 41 0d 01  |):.A$="N"..TbA..|
00000570  36 1c e3 54 3d 31 20 b8  20 62 61 72 73 3a db 3a  |6..T=1 . bars:.:|
00000580  f1 27 22 42 61 72 20 22  3b 54 0d 01 40 60 e8 27  |.'"Bar ";T..@`.'|
00000590  22 4e 61 6d 65 20 28 4d  61 78 20 6c 65 6e 67 74  |"Name (Max lengt|
000005a0  68 20 3a 20 34 20 6c 65  74 74 65 72 73 29 20 3a  |h : 4 letters) :|
000005b0  20 22 62 61 72 24 28 54  29 3a e7 a9 62 61 72 24  | "bar$(T):..bar$|
000005c0  28 54 29 3e 34 20 ef 37  2c 31 31 2c 31 31 3a f1  |(T)>4 .7,11,11:.|
000005d0  c4 38 30 2c 22 20 22 29  3a ef 37 2c 31 31 2c 31  |.80," "):.7,11,1|
000005e0  31 2c 31 31 3a e5 8d 44  40 41 0d 01 4a 51 e8 27  |1,11:..D@A..JQ.'|
000005f0  22 48 65 69 67 68 74 20  3a 20 22 62 61 72 28 54  |"Height : "bar(T|
00000600  29 3a e7 62 61 72 28 54  29 3e 6d 61 78 20 84 20  |):.bar(T)>max . |
00000610  62 61 72 28 54 29 3c 30  20 ef 37 2c 31 31 2c 31  |bar(T)<0 .7,11,1|
00000620  31 3a f1 c4 38 30 2c 22  20 22 29 3a ef 31 31 2c  |1:..80," "):.11,|
00000630  31 31 2c 31 31 3a e5 8d  44 4a 41 0d 01 54 18 ed  |11,11:..DJA..T..|
00000640  3a f2 63 6f 6e 76 65 72  74 3a 62 61 72 64 61 74  |:.convert:bardat|
00000650  61 3d b9 0d 01 5e 63 db  3a f1 8a 30 2c 32 29 3b  |a=...^c.:..0,2);|
00000660  22 57 68 61 74 20 69 73  20 74 68 65 20 74 69 74  |"What is the tit|
00000670  6c 65 20 6f 66 20 74 68  65 20 42 61 72 20 63 68  |le of the Bar ch|
00000680  61 72 74 20 3a 22 3a e8  27 22 22 62 74 69 74 6c  |art :":.'""btitl|
00000690  65 24 3a e7 a9 62 74 69  74 6c 65 24 3e 33 37 20  |e$:..btitle$>37 |
000006a0  f1 27 22 54 6f 6f 20 4c  6f 6e 67 22 3a f5 fd a5  |.'"Too Long":...|
000006b0  3a e5 8d 44 5e 41 0d 01  68 58 db 3a f1 8a 30 2c  |:..D^A..hX.:..0,|
000006c0  32 29 3b 22 57 68 61 74  20 69 73 20 74 68 65 20  |2);"What is the |
000006d0  58 20 61 78 69 73 20 63  61 6c 6c 65 64 20 3a 22  |X axis called :"|
000006e0  3a e8 27 22 22 78 61 78  69 73 24 3a e7 a9 78 61  |:.'""xaxis$:..xa|
000006f0  78 69 73 24 3e 33 37 20  f1 27 22 54 6f 6f 20 4c  |xis$>37 .'"Too L|
00000700  6f 6e 67 22 3a f5 fd a5  3a e5 8d 44 68 41 0d 01  |ong":...:..DhA..|
00000710  72 58 db 3a f1 8a 30 2c  32 29 3b 22 57 68 61 74  |rX.:..0,2);"What|
00000720  20 69 73 20 74 68 65 20  59 20 61 78 69 73 20 63  | is the Y axis c|
00000730  61 6c 6c 65 64 20 3a 22  3a e8 27 22 22 79 61 78  |alled :":.'""yax|
00000740  69 73 24 3a e7 a9 79 61  78 69 73 24 3e 32 36 20  |is$:..yaxis$>26 |
00000750  f1 27 22 54 6f 6f 20 4c  6f 6e 67 22 3a f5 fd a5  |.'"Too Long":...|
00000760  3a e5 8d 44 72 41 0d 01  7c 05 e1 0d 01 86 23 dd  |:..DrA..|.....#.|
00000770  f2 6e 6f 72 6d 5f 62 61  72 3a ef 32 36 3a db 3a  |.norm_bar:.26:.:|
00000780  73 74 65 70 3d 31 30 30  30 2f 62 61 72 73 0d 01  |step=1000/bars..|
00000790  90 95 e3 54 3d 30 20 b8  20 62 61 72 73 2d 31 3a  |...T=0 . bars-1:|
000007a0  e6 30 2c 54 20 83 20 33  2b 31 3a ec 54 2a 73 74  |.0,T . 3+1:.T*st|
000007b0  65 70 2b 32 34 30 2c 31  35 30 3a ec 54 2a 73 74  |ep+240,150:.T*st|
000007c0  65 70 2b 32 34 30 2c 62  61 72 28 54 2b 31 29 2b  |ep+240,bar(T+1)+|
000007d0  31 35 30 3a f0 38 35 2c  54 2a 73 74 65 70 2b 32  |150:.85,T*step+2|
000007e0  34 30 2b 73 74 65 70 2c  62 61 72 28 54 2b 31 29  |40+step,bar(T+1)|
000007f0  2b 31 35 30 3a ec 54 2a  73 74 65 70 2b 32 34 30  |+150:.T*step+240|
00000800  2b 73 74 65 70 2c 31 35  30 3a f0 38 35 2c 54 2a  |+step,150:.85,T*|
00000810  73 74 65 70 2b 32 34 30  2c 31 35 30 3a ed 3a e6  |step+240,150:.:.|
00000820  30 2c 33 0d 01 9a 12 f2  61 78 69 73 3a f2 70 72  |0,3.....axis:.pr|
00000830  69 6e 74 3a e1 0d 01 a4  11 dd f2 74 5f 62 61 72  |int:.......t_bar|
00000840  3a ef 32 36 3a db 0d 01  ae 97 73 74 65 70 3d 31  |:.26:.....step=1|
00000850  30 30 30 2f 62 61 72 73  3a e3 54 3d 30 20 b8 20  |000/bars:.T=0 . |
00000860  62 61 72 73 2d 31 3a e6  30 2c 31 3a ec 54 2a 73  |bars-1:.0,1:.T*s|
00000870  74 65 70 2b 32 34 30 2c  31 35 30 3a ec 54 2a 73  |tep+240,150:.T*s|
00000880  74 65 70 2b 32 34 30 2c  62 61 72 28 54 2b 31 29  |tep+240,bar(T+1)|
00000890  2b 31 35 30 3a f0 38 35  2c 54 2a 73 74 65 70 2b  |+150:.85,T*step+|
000008a0  32 34 30 2b 73 74 65 70  2c 62 61 72 28 54 2b 31  |240+step,bar(T+1|
000008b0  29 2b 31 35 30 3a ec 54  2a 73 74 65 70 2b 32 34  |)+150:.T*step+24|
000008c0  30 2b 73 74 65 70 2c 31  35 30 3a f0 38 35 2c 54  |0+step,150:.85,T|
000008d0  2a 73 74 65 70 2b 32 34  30 2c 31 35 30 0d 01 b8  |*step+240,150...|
000008e0  95 e6 30 2c 32 3a ec 54  2a 73 74 65 70 2b 32 34  |..0,2:.T*step+24|
000008f0  30 2c 62 61 72 28 54 2b  31 29 2b 31 35 30 3a ec  |0,bar(T+1)+150:.|
00000900  54 2a 73 74 65 70 2b 32  34 30 2b 73 74 65 70 2c  |T*step+240+step,|
00000910  62 61 72 28 54 2b 31 29  2b 31 35 30 3a f0 38 35  |bar(T+1)+150:.85|
00000920  2c 54 2a 73 74 65 70 2b  32 39 30 2b 73 74 65 70  |,T*step+290+step|
00000930  2c 62 61 72 28 54 2b 31  29 2b 32 30 30 3a ec 54  |,bar(T+1)+200:.T|
00000940  2a 73 74 65 70 2b 32 39  30 2c 62 61 72 28 54 2b  |*step+290,bar(T+|
00000950  31 29 2b 32 30 30 3a f0  38 35 2c 54 2a 73 74 65  |1)+200:.85,T*ste|
00000960  70 2b 32 34 30 2c 62 61  72 28 54 2b 31 29 2b 31  |p+240,bar(T+1)+1|
00000970  35 30 0d 01 c2 94 e6 30  2c 33 3a ec 54 2a 73 74  |50.....0,3:.T*st|
00000980  65 70 2b 32 34 30 2b 73  74 65 70 2c 62 61 72 28  |ep+240+step,bar(|
00000990  54 2b 31 29 2b 31 35 30  3a ec 54 2a 73 74 65 70  |T+1)+150:.T*step|
000009a0  2b 32 39 30 2b 73 74 65  70 2c 62 61 72 28 54 2b  |+290+step,bar(T+|
000009b0  31 29 2b 32 30 30 3a f0  38 35 2c 54 2a 73 74 65  |1)+200:.85,T*ste|
000009c0  70 2b 32 39 30 2b 73 74  65 70 2c 32 30 30 3a ec  |p+290+step,200:.|
000009d0  54 2a 73 74 65 70 2b 32  34 30 2b 73 74 65 70 2c  |T*step+240+step,|
000009e0  31 35 30 3a f0 38 35 2c  54 2a 73 74 65 70 2b 32  |150:.85,T*step+2|
000009f0  34 30 2b 73 74 65 70 2c  62 61 72 28 54 2b 31 29  |40+step,bar(T+1)|
00000a00  2b 31 35 30 3a ed 0d 01  cc 12 f2 61 78 69 73 3a  |+150:......axis:|
00000a10  f2 70 72 69 6e 74 3a e1  0d 01 d6 6f dd f2 61 78  |.print:....o..ax|
00000a20  69 73 3a e6 30 2c 33 3a  ec 32 34 30 2c 39 35 30  |is:.0,3:.240,950|
00000a30  3a df 32 34 30 2c 31 35  30 3a df 31 32 34 30 2c  |:.240,150:.1240,|
00000a40  31 35 30 3a e3 54 3d 31  35 30 20 b8 20 39 35 30  |150:.T=150 . 950|
00000a50  20 88 20 35 30 3a ec 32  34 30 2c 54 3a df 32 32  | . 50:.240,T:.22|
00000a60  30 2c 54 3a ef 35 3a ec  2d 31 32 30 2c 54 2b 31  |0,T:.5:.-120,T+1|
00000a70  36 3a f1 28 28 54 2d 31  35 30 29 2f 35 30 29 2a  |6:.((T-150)/50)*|
00000a80  73 63 61 6c 65 3a ed 0d  01 e0 a4 62 61 72 3d 31  |scale:.....bar=1|
00000a90  3a e3 54 3d 32 34 30 20  b8 20 31 32 33 30 20 88  |:.T=240 . 1230 .|
00000aa0  20 73 74 65 70 3a ec 54  2c 31 35 30 3a df 54 2c  | step:.T,150:.T,|
00000ab0  31 30 30 3a e3 4c 3d 31  20 b8 20 34 3a ec 54 2b  |100:.L=1 . 4:.T+|
00000ac0  28 31 30 30 30 2f 62 61  72 73 29 2f 32 2d 31 36  |(1000/bars)/2-16|
00000ad0  2c 31 38 30 2d 28 4c 2a  33 36 29 3a ef 35 3a f1  |,180-(L*36):.5:.|
00000ae0  c1 62 61 72 24 28 62 61  72 29 2c 4c 2c 31 29 3a  |.bar$(bar),L,1):|
00000af0  ef 34 3a ed 4c 3a 62 61  72 3d 62 61 72 2b 31 3a  |.4:.L:bar=bar+1:|
00000b00  ed 54 3a f2 74 69 74 6c  65 28 28 28 33 39 2d a9  |.T:.title(((39-.|
00000b10  62 74 69 74 6c 65 24 29  2f 32 29 2a 33 32 2c 39  |btitle$)/2)*32,9|
00000b20  38 30 2c 62 74 69 74 6c  65 24 29 0d 01 ea 6c fb  |80,btitle$)...l.|
00000b30  33 3a f1 8a 30 2c 33 31  29 3a f1 8a 28 33 39 2d  |3:..0,31):..(39-|
00000b40  a9 78 61 78 69 73 24 29  2f 32 2c 33 31 29 78 61  |.xaxis$)/2,31)xa|
00000b50  78 69 73 24 3b 3a 73 74  61 72 74 3d 28 32 39 2d  |xis$;:start=(29-|
00000b60  a9 79 61 78 69 73 24 29  2f 32 3a e3 54 3d 31 20  |.yaxis$)/2:.T=1 |
00000b70  b8 20 a9 79 61 78 69 73  24 3a f1 8a 30 2c 54 2b  |. .yaxis$:..0,T+|
00000b80  73 74 61 72 74 29 3b c1  79 61 78 69 73 24 2c 54  |start);.yaxis$,T|
00000b90  2c 31 29 3a ed 3a e1 0d  01 f4 62 dd f2 74 69 74  |,1):.:....b..tit|
00000ba0  6c 65 28 58 2c 59 2c 41  24 29 3a ef 35 3a e6 30  |le(X,Y,A$):.5:.0|
00000bb0  2c 30 3a ec 58 2b 34 2c  59 2b 34 3a f1 41 24 3a  |,0:.X+4,Y+4:.A$:|
00000bc0  ec 58 2d 34 2c 59 2b 34  3a f1 41 24 3a ec 58 2d  |.X-4,Y+4:.A$:.X-|
00000bd0  34 2c 59 2d 34 3a f1 41  24 3a ec 58 2b 34 2c 59  |4,Y-4:.A$:.X+4,Y|
00000be0  2d 34 3a f1 41 24 3a e6  30 2c 33 3a ec 58 2c 59  |-4:.A$:.0,3:.X,Y|
00000bf0  3a f1 41 24 3a ef 34 3a  e1 0d 01 fe 79 dd f2 70  |:.A$:.4:....y..p|
00000c00  72 69 6e 74 3a ec 34 38  30 2c 38 33 30 3a e6 34  |rint:.480,830:.4|
00000c10  2c 30 3a ef 35 3a f1 22  50 72 69 6e 74 20 28 59  |,0:.5:."Print (Y|
00000c20  2f 4e 29 22 3a ff 22 46  58 31 35 22 3a f5 41 24  |/N)":."FX15":.A$|
00000c30  3d be 3a fd 41 24 3d 22  59 22 20 84 20 41 24 3d  |=.:.A$="Y" . A$=|
00000c40  22 4e 22 3a ec 34 38 30  2c 38 33 30 3a f1 22 50  |"N":.480,830:."P|
00000c50  72 69 6e 74 20 28 59 2f  4e 29 22 3a ef 34 3a e7  |rint (Y/N)":.4:.|
00000c60  41 24 3d 22 59 22 20 f2  64 75 6d 70 3a e1 20 8b  |A$="Y" .dump:. .|
00000c70  20 e1 0d 02 08 36 dd f2  63 6f 6e 76 65 72 74 3a  | ....6..convert:|
00000c80  e3 54 3d 31 20 b8 20 62  61 72 73 3a 62 61 72 28  |.T=1 . bars:bar(|
00000c90  54 29 3d 28 62 61 72 28  54 29 2f 73 63 61 6c 65  |T)=(bar(T)/scale|
00000ca0  2a 35 30 29 3a ed 3a e1  0d 02 12 40 dd f2 70 69  |*50):.:....@..pi|
00000cb0  65 5f 64 61 74 61 3a db  3a f2 62 6f 72 64 65 72  |e_data:.:.border|
00000cc0  3a fb 33 3a f1 8a 35 2c  31 29 3b 22 44 45 46 49  |:.3:..5,1);"DEFI|
00000cd0  4e 49 4e 47 20 44 41 54  41 20 46 4f 52 20 50 49  |NING DATA FOR PI|
00000ce0  45 20 43 48 41 52 54 22  0d 02 1c 82 fb 32 3a f1  |E CHART".....2:.|
00000cf0  8a 32 2c 38 29 3b 22 48  6f 77 20 6d 61 6e 79 20  |.2,8);"How many |
00000d00  73 65 63 74 6f 72 73 20  3a 22 3a e8 8a 32 2c 31  |sectors :":..2,1|
00000d10  30 29 22 22 73 65 63 74  6f 72 73 3a e7 73 65 63  |0)""sectors:.sec|
00000d20  74 6f 72 73 3c 31 20 84  20 73 65 63 74 6f 72 73  |tors<1 . sectors|
00000d30  3e 34 30 20 ef 37 3a f1  27 22 20 20 53 69 6c 6c  |>40 .7:.'"  Sill|
00000d40  79 22 3a f5 fd a5 3a ef  32 38 2c 31 2c 33 30 2c  |y":...:.28,1,30,|
00000d50  33 38 2c 35 3a db 3a ef  32 38 2c 31 2c 33 30 2c  |38,5:.:.28,1,30,|
00000d60  33 38 2c 31 3a e5 8d 54  5c 42 0d 02 26 12 e3 54  |38,1:..T\B..&..T|
00000d70  3d 31 20 b8 20 73 65 63  74 6f 72 73 0d 02 30 5a  |=1 . sectors..0Z|
00000d80  db 3a f1 27 22 53 65 63  74 6f 72 20 22 3b 54 3a  |.:.'"Sector ";T:|
00000d90  e8 27 22 4e 61 6d 65 20  28 4d 61 78 20 6c 65 6e  |.'"Name (Max len|
00000da0  67 74 68 20 3a 20 36 20  6c 65 74 74 65 72 73 29  |gth : 6 letters)|
00000db0  20 3a 20 22 73 65 63 74  6f 72 24 28 54 29 3a e7  | : "sector$(T):.|
00000dc0  a9 73 65 63 74 6f 72 24  28 54 29 3e 36 20 ef 37  |.sector$(T)>6 .7|
00000dd0  3a e5 8d 54 70 42 0d 02  3a 80 e8 27 22 53 69 7a  |:..TpB..:..'"Siz|
00000de0  65 20 3a 20 22 73 65 63  74 6f 72 28 54 29 3a ed  |e : "sector(T):.|
00000df0  3a 74 6f 74 61 6c 3d 30  3a e3 54 3d 31 20 b8 20  |:total=0:.T=1 . |
00000e00  73 65 63 74 6f 72 73 3a  74 6f 74 61 6c 3d 74 6f  |sectors:total=to|
00000e10  74 61 6c 2b 73 65 63 74  6f 72 28 54 29 3a ed 3a  |tal+sector(T):.:|
00000e20  6f 6e 65 3d 33 36 30 2f  74 6f 74 61 6c 3a e3 54  |one=360/total:.T|
00000e30  3d 31 20 b8 20 73 65 63  74 6f 72 73 3a 73 65 63  |=1 . sectors:sec|
00000e40  74 6f 72 28 54 29 3d 73  65 63 74 6f 72 28 54 29  |tor(T)=sector(T)|
00000e50  2a 6f 6e 65 3a ed 0d 02  44 63 db 3a f1 8a 30 2c  |*one:...Dc.:..0,|
00000e60  32 29 3b 22 57 68 61 74  20 69 73 20 74 68 65 20  |2);"What is the |
00000e70  74 69 74 6c 65 20 6f 66  20 74 68 65 20 50 69 65  |title of the Pie|
00000e80  20 63 68 61 72 74 20 3a  22 3a e8 27 22 22 70 74  | chart :":.'""pt|
00000e90  69 74 6c 65 24 3a e7 a9  70 74 69 74 6c 65 24 3e  |itle$:..ptitle$>|
00000ea0  33 37 20 f1 27 22 54 6f  6f 20 4c 6f 6e 67 22 3a  |37 .'"Too Long":|
00000eb0  f5 fd a5 3a e5 8d 44 44  42 0d 02 4e 0f 70 69 65  |...:..DDB..N.pie|
00000ec0  64 61 74 61 3d b9 3a e1  0d 02 58 46 dd f2 6e 6f  |data=.:...XF..no|
00000ed0  72 6d 5f 70 69 65 3a 73  65 63 3d 31 3a 63 6f 6c  |rm_pie:sec=1:col|
00000ee0  3d 31 3a 74 6f 74 3d 30  3a ef 32 36 3a db 3a f2  |=1:tot=0:.26:.:.|
00000ef0  70 69 65 28 34 35 30 2c  34 35 30 29 3a ef 32 39  |pie(450,450):.29|
00000f00  2c 30 3b 30 3b 3a f2 70  72 69 6e 74 3a e1 0d 02  |,0;0;:.print:...|
00000f10  62 98 dd f2 74 5f 70 69  65 3a 73 65 63 3d 31 3a  |b...t_pie:sec=1:|
00000f20  63 6f 6c 3d 31 3a 74 6f  74 3d 30 3a ef 32 36 3a  |col=1:tot=0:.26:|
00000f30  db 3a e3 54 3d 30 20 b8  20 32 36 36 20 88 20 34  |.:.T=0 . 266 . 4|
00000f40  3a e7 54 3e 28 74 6f 74  2b 73 65 63 74 6f 72 28  |:.T>(tot+sector(|
00000f50  73 65 63 29 29 73 65 63  3d 73 65 63 2b 31 3a 63  |sec))sec=sec+1:c|
00000f60  6f 6c 3d 63 6f 6c 2b 31  3a 74 6f 74 3d 74 6f 74  |ol=col+1:tot=tot|
00000f70  2b 73 65 63 74 6f 72 28  73 65 63 2d 31 29 3a e7  |+sector(sec-1):.|
00000f80  63 6f 6c 3e 33 20 63 6f  6c 3d 31 3a e7 73 65 63  |col>3 col=1:.sec|
00000f90  3d 73 65 63 74 6f 72 73  20 80 20 63 6f 6c 3d 31  |=sectors . col=1|
00000fa0  20 63 6f 6c 3d 32 0d 02  6c 9a ef 32 39 2c 36 34  | col=2..l..29,64|
00000fb0  30 3b 35 31 32 3b 3a e6  30 2c 63 6f 6c 3a ec b5  |0;512;:.0,col:..|
00000fc0  b2 54 2a 34 35 30 2c 9b  b2 54 2a 31 35 30 3a ec  |.T*450,..T*150:.|
00000fd0  b5 b2 54 2a 34 35 30 2c  9b b2 54 2a 31 35 30 2d  |..T*450,..T*150-|
00000fe0  31 35 30 3a f0 38 35 2c  b5 b2 28 54 2b 34 29 2a  |150:.85,..(T+4)*|
00000ff0  34 35 30 2c 9b b2 28 54  2b 34 29 2a 31 35 30 2d  |450,..(T+4)*150-|
00001000  31 35 30 3a ec b5 b2 28  54 2b 34 29 2a 34 35 30  |150:...(T+4)*450|
00001010  2c 9b b2 28 54 2b 34 29  2a 31 35 30 3a f0 38 35  |,..(T+4)*150:.85|
00001020  2c b5 b2 54 2a 34 35 30  2c 9b b2 54 2a 31 35 30  |,..T*450,..T*150|
00001030  3a ed 3a f2 70 69 65 28  34 35 30 2c 31 35 30 29  |:.:.pie(450,150)|
00001040  0d 02 76 0c f2 70 72 69  6e 74 3a e1 0d 02 80 20  |..v..print:.... |
00001050  dd f2 70 69 65 28 41 2c  42 29 3a 73 65 63 3d 31  |..pie(A,B):sec=1|
00001060  3a 63 6f 6c 3d 31 3a 74  6f 74 3d 30 0d 02 8a 78  |:col=1:tot=0...x|
00001070  e3 54 3d 30 20 b8 20 33  35 36 20 88 20 34 3a e7  |.T=0 . 356 . 4:.|
00001080  54 3e 28 74 6f 74 2b 73  65 63 74 6f 72 28 73 65  |T>(tot+sector(se|
00001090  63 29 29 73 65 63 3d 73  65 63 2b 31 3a 63 6f 6c  |c))sec=sec+1:col|
000010a0  3d 63 6f 6c 2b 31 3a 74  6f 74 3d 74 6f 74 2b 73  |=col+1:tot=tot+s|
000010b0  65 63 74 6f 72 28 73 65  63 2d 31 29 3a e7 63 6f  |ector(sec-1):.co|
000010c0  6c 3e 33 20 63 6f 6c 3d  31 3a e7 73 65 63 3d 73  |l>3 col=1:.sec=s|
000010d0  65 63 74 6f 72 73 20 80  20 63 6f 6c 3d 31 20 63  |ectors . col=1 c|
000010e0  6f 6c 3d 32 0d 02 94 44  ef 32 39 2c 36 34 30 3b  |ol=2...D.29,640;|
000010f0  35 31 32 3b 3a e6 30 2c  63 6f 6c 3a ec 30 2c 30  |512;:.0,col:.0,0|
00001100  3a ec 20 b5 b2 54 2a 41  2c 9b b2 54 2a 42 3a f0  |:. ..T*A,..T*B:.|
00001110  38 35 2c b5 b2 28 54 2b  34 29 2a 41 2c 9b b2 28  |85,..(T+4)*A,..(|
00001120  54 2b 34 29 2a 42 3a ed  0d 02 9e 52 74 6f 74 3d  |T+4)*B:....Rtot=|
00001130  30 3a e3 54 3d 31 20 b8  20 73 65 63 74 6f 72 73  |0:.T=1 . sectors|
00001140  3a e7 73 65 63 74 6f 72  28 54 29 2b 74 6f 74 3e  |:.sector(T)+tot>|
00001150  31 38 30 20 73 65 63 74  6f 72 24 28 54 29 3d c4  |180 sector$(T)=.|
00001160  a9 73 65 63 74 6f 72 24  28 54 29 2c bd 38 29 2b  |.sector$(T),.8)+|
00001170  73 65 63 74 6f 72 24 28  54 29 0d 02 a8 60 f2 74  |sector$(T)...`.t|
00001180  69 74 6c 65 28 b5 b2 28  74 6f 74 2b 28 73 65 63  |itle(..(tot+(sec|
00001190  74 6f 72 28 54 29 2f 32  29 29 2a 41 2c 9b b2 28  |tor(T)/2))*A,..(|
000011a0  74 6f 74 2b 28 73 65 63  74 6f 72 28 54 29 2f 32  |tot+(sector(T)/2|
000011b0  29 29 2a 42 2b 33 32 2c  73 65 63 74 6f 72 24 28  |))*B+32,sector$(|
000011c0  54 29 29 3a 74 6f 74 3d  74 6f 74 2b 73 65 63 74  |T)):tot=tot+sect|
000011d0  6f 72 28 54 29 3a ed 3a  ef 34 0d 02 b2 14 ef 32  |or(T):.:.4.....2|
000011e0  39 2c 30 3b 30 3b 33 30  2c 31 31 2c 31 31 0d 02  |9,0;0;30,11,11..|
000011f0  bc 2c f2 74 69 74 6c 65  28 28 28 33 39 2d a9 70  |.,.title(((39-.p|
00001200  74 69 74 6c 65 24 29 2f  32 29 2a 33 32 2c 39 38  |title$)/2)*32,98|
00001210  30 2c 70 74 69 74 6c 65  24 29 0d 02 c6 05 e1 0d  |0,ptitle$)......|
00001220  02 d0 42 dd f2 6c 69 6e  65 5f 64 61 74 61 3a db  |..B..line_data:.|
00001230  3a f2 62 6f 72 64 65 72  3a fb 33 3a f1 8a 35 2c  |:.border:.3:..5,|
00001240  31 29 3b 22 44 45 46 49  4e 49 4e 47 20 44 41 54  |1);"DEFINING DAT|
00001250  41 20 46 4f 52 20 4c 49  4e 45 20 47 52 41 50 48  |A FOR LINE GRAPH|
00001260  22 0d 02 da a6 fb 32 3a  f1 8a 32 2c 38 29 3b 22  |".....2:..2,8);"|
00001270  57 68 61 74 20 69 73 20  74 68 65 20 73 63 61 6c  |What is the scal|
00001280  65 20 6f 66 20 74 68 65  20 58 20 61 78 69 73 20  |e of the X axis |
00001290  3a 22 3a e8 8a 32 2c 31  30 29 78 73 63 61 6c 65  |:":..2,10)xscale|
000012a0  3a f1 8a 32 2c 38 29 3b  c4 36 30 2c 22 20 22 29  |:..2,8);.60," ")|
000012b0  3a f1 8a 32 2c 31 30 29  3b 22 58 20 61 78 69 73  |:..2,10);"X axis|
000012c0  20 73 63 61 6c 65 20 2d  20 22 3b 78 73 63 61 6c  | scale - ";xscal|
000012d0  65 3a 78 6d 61 78 3d 78  73 63 61 6c 65 2a 31 39  |e:xmax=xscale*19|
000012e0  3a f1 8a 32 2c 31 32 29  3b 22 4d 61 78 20 68 65  |:..2,12);"Max he|
000012f0  69 67 68 74 20 6f 6e 20  58 20 61 78 69 73 20 2d  |ight on X axis -|
00001300  20 22 3b 78 6d 61 78 0d  02 e4 a5 f1 8a 32 2c 31  | ";xmax......2,1|
00001310  36 29 3b 22 57 68 61 74  20 69 73 20 74 68 65 20  |6);"What is the |
00001320  73 63 61 6c 65 20 6f 66  20 74 68 65 20 59 20 61  |scale of the Y a|
00001330  78 69 73 20 3a 22 3a e8  8a 32 2c 31 38 29 79 73  |xis :":..2,18)ys|
00001340  63 61 6c 65 3a f1 8a 32  2c 31 36 29 3b c4 36 30  |cale:..2,16);.60|
00001350  2c 22 20 22 29 3a f1 8a  32 2c 31 38 29 3b 22 59  |," "):..2,18);"Y|
00001360  20 61 78 69 73 20 73 63  61 6c 65 20 2d 20 22 3b  | axis scale - ";|
00001370  79 73 63 61 6c 65 3a 79  6d 61 78 3d 79 73 63 61  |yscale:ymax=ysca|
00001380  6c 65 2a 31 35 3a f1 8a  32 2c 32 30 29 3b 22 4d  |le*15:..2,20);"M|
00001390  61 78 20 68 65 69 67 68  74 20 6f 6e 20 59 20 61  |ax height on Y a|
000013a0  78 69 73 20 2d 20 22 3b  79 6d 61 78 0d 02 ee 69  |xis - ";ymax...i|
000013b0  f1 8a 32 2c 32 33 29 3b  22 4f 6b 61 79 20 28 59  |..2,23);"Okay (Y|
000013c0  2f 4e 29 22 3a f5 41 24  3d be 3a fd 41 24 3d 22  |/N)":.A$=.:.A$="|
000013d0  59 22 84 41 24 3d 22 4e  22 3a f1 8a 32 2c 31 33  |Y".A$="N":..2,13|
000013e0  29 3b c4 31 30 2c 22 20  22 29 3a ef 32 38 2c 31  |);.10," "):.28,1|
000013f0  2c 33 30 2c 33 38 2c 35  3a db 3a ef 32 38 2c 31  |,30,38,5:.:.28,1|
00001400  2c 33 30 2c 33 38 2c 31  3a e7 41 24 3d 22 4e 22  |,30,38,1:.A$="N"|
00001410  e5 8d 64 5a 42 0d 02 f8  1e f1 8a 32 2c 38 29 3b  |..dZB......2,8);|
00001420  22 48 6f 77 20 6d 61 6e  79 20 70 6f 69 6e 74 73  |"How many points|
00001430  20 3a 22 0d 03 02 14 e8  8a 32 2c 31 30 29 3b 22  | :"......2,10);"|
00001440  22 70 6f 69 6e 74 73 0d  03 0c 4f e7 70 6f 69 6e  |"points...O.poin|
00001450  74 73 3c 31 20 84 20 70  6f 69 6e 74 73 3e 34 30  |ts<1 . points>40|
00001460  20 f1 27 27 22 53 69 6c  6c 79 22 3a ef 37 3a f5  | .''"Silly":.7:.|
00001470  fd a5 3a ef 32 38 2c 31  2c 33 30 2c 33 38 2c 35  |..:.28,1,30,38,5|
00001480  3a db 3a ef 32 38 2c 31  2c 33 30 2c 33 39 2c 31  |:.:.28,1,30,39,1|
00001490  3a e5 8d 64 78 42 0d 03  16 2f ef 32 38 2c 31 2c  |:..dxB.../.28,1,|
000014a0  33 30 2c 33 38 2c 35 3a  e3 54 3d 31 20 b8 20 70  |30,38,5:.T=1 . p|
000014b0  6f 69 6e 74 73 3a db 3a  f1 27 22 50 6f 69 6e 74  |oints:.:.'"Point|
000014c0  20 22 3b 54 27 0d 03 20  54 e8 22 58 20 61 78 69  | ";T'.. T."X axi|
000014d0  73 20 3a 20 22 70 6f 69  6e 74 58 28 54 29 3a e7  |s : "pointX(T):.|
000014e0  70 6f 69 6e 74 58 28 54  29 3c 30 20 84 20 70 6f  |pointX(T)<0 . po|
000014f0  69 6e 74 58 28 54 29 3e  78 6d 61 78 20 f1 bd 31  |intX(T)>xmax ..1|
00001500  31 3b c4 36 30 2c 22 20  22 29 3a ef 37 2c 31 31  |1;.60," "):.7,11|
00001510  2c 31 31 3a e5 8d 54 60  43 0d 03 2a 54 e8 22 59  |,11:..T`C..*T."Y|
00001520  20 61 78 69 73 20 3a 20  22 70 6f 69 6e 74 59 28  | axis : "pointY(|
00001530  54 29 3a e7 70 6f 69 6e  74 59 28 54 29 3c 30 20  |T):.pointY(T)<0 |
00001540  84 20 70 6f 69 6e 74 59  28 54 29 3e 79 6d 61 78  |. pointY(T)>ymax|
00001550  20 f1 bd 31 31 3b c4 36  30 2c 22 20 22 29 3a ef  | ..11;.60," "):.|
00001560  37 2c 31 31 2c 31 31 3a  e5 8d 54 6a 43 0d 03 34  |7,11,11:..TjC..4|
00001570  05 ed 0d 03 3e 50 ef 32  38 2c 31 2c 33 30 2c 33  |....>P.28,1,30,3|
00001580  38 2c 35 3a db 3a f1 8a  30 2c 32 29 3b 22 57 68  |8,5:.:..0,2);"Wh|
00001590  61 74 20 69 73 20 74 68  65 20 74 69 74 6c 65 20  |at is the title |
000015a0  6f 66 20 74 68 65 20 6c  69 6e 65 20 67 72 61 70  |of the line grap|
000015b0  68 20 3a 22 3a e8 8a 30  2c 34 29 6c 74 69 74 6c  |h :":..0,4)ltitl|
000015c0  65 24 0d 03 48 2c db 3a  e7 a9 6c 74 69 74 6c 65  |e$..H,.:..ltitle|
000015d0  24 3e 33 37 20 f1 27 22  54 6f 6f 20 6c 6f 6e 67  |$>37 .'"Too long|
000015e0  22 3a ef 37 3a f5 fd a5  3a e5 8d 54 7e 43 0d 03  |":.7:...:..T~C..|
000015f0  52 5a db 3a f1 8a 30 2c  32 29 3b 22 57 68 61 74  |RZ.:..0,2);"What|
00001600  20 69 73 20 74 68 65 20  58 20 61 78 69 73 20 63  | is the X axis c|
00001610  61 6c 6c 65 64 20 3a 22  3a e8 27 22 22 6c 78 61  |alled :":.'""lxa|
00001620  78 69 73 24 3a e7 a9 6c  78 61 78 69 73 24 3e 33  |xis$:..lxaxis$>3|
00001630  37 20 f1 27 22 54 6f 6f  20 4c 6f 6e 67 22 3a f5  |7 .'"Too Long":.|
00001640  fd a5 3a e5 8d 44 52 43  0d 03 5c 5a db 3a f1 8a  |..:..DRC..\Z.:..|
00001650  30 2c 32 29 3b 22 57 68  61 74 20 69 73 20 74 68  |0,2);"What is th|
00001660  65 20 59 20 61 78 69 73  20 63 61 6c 6c 65 64 20  |e Y axis called |
00001670  3a 22 3a e8 27 22 22 6c  79 61 78 69 73 24 3a e7  |:":.'""lyaxis$:.|
00001680  a9 6c 79 61 78 69 73 24  3e 32 36 20 f1 27 22 54  |.lyaxis$>26 .'"T|
00001690  6f 6f 20 4c 6f 6e 67 22  3a f5 fd a5 3a e5 8d 44  |oo Long":...:..D|
000016a0  5c 43 0d 03 66 53 e3 54  3d 31 20 b8 20 70 6f 69  |\C..fS.T=1 . poi|
000016b0  6e 74 73 3a 70 6f 69 6e  74 58 28 54 29 3d 28 70  |nts:pointX(T)=(p|
000016c0  6f 69 6e 74 58 28 54 29  2f 78 73 63 61 6c 65 2a  |ointX(T)/xscale*|
000016d0  35 30 29 3a 70 6f 69 6e  74 59 28 54 29 3d 28 70  |50):pointY(T)=(p|
000016e0  6f 69 6e 74 59 28 54 29  2f 79 73 63 61 6c 65 2a  |ointY(T)/yscale*|
000016f0  35 30 29 3a ed 0d 03 70  16 ef 32 36 3a db 3a 6c  |50):...p..26:.:l|
00001700  69 6e 65 64 61 74 61 3d  b9 3a e1 0d 03 7a 0a dd  |inedata=.:...z..|
00001710  f2 6c 69 6e 65 0d 03 84  4d ef 32 36 3a db 3a e6  |.line...M.26:.:.|
00001720  30 2c 33 3a ec 32 34 30  2c 31 30 30 30 3a df 32  |0,3:.240,1000:.2|
00001730  34 30 2c 32 30 30 3a df  31 32 34 30 2c 32 30 30  |40,200:.1240,200|
00001740  3a e3 54 3d 32 30 30 20  b8 20 39 35 30 20 88 20  |:.T=200 . 950 . |
00001750  35 30 3a ec 32 34 30 2c  54 3a df 32 32 30 2c 54  |50:.240,T:.220,T|
00001760  3a ed 0d 03 8e 26 e3 54  3d 32 34 30 20 b8 20 31  |:....&.T=240 . 1|
00001770  31 39 30 20 88 20 35 30  3a ec 54 2c 32 30 30 3a  |190 . 50:.T,200:|
00001780  df 54 2c 31 38 30 3a ed  0d 03 98 52 e6 30 2c 32  |.T,180:....R.0,2|
00001790  3a ec 70 6f 69 6e 74 58  28 31 29 2b 32 34 30 2c  |:.pointX(1)+240,|
000017a0  70 6f 69 6e 74 59 28 31  29 2b 32 30 30 3a e3 54  |pointY(1)+200:.T|
000017b0  3d 32 20 b8 20 70 6f 69  6e 74 73 3a df 70 6f 69  |=2 . points:.poi|
000017c0  6e 74 58 28 54 29 2b 32  34 30 2c 70 6f 69 6e 74  |ntX(T)+240,point|
000017d0  59 28 54 29 2b 32 30 30  3a ed 0d 03 a2 36 e6 30  |Y(T)+200:....6.0|
000017e0  2c 33 3a ef 35 3a e3 54  3d 31 20 b8 20 31 36 3a  |,3:.5:.T=1 . 16:|
000017f0  ec 2d 31 32 30 2c 28 54  2a 35 30 29 2b 31 36 34  |.-120,(T*50)+164|
00001800  3a f1 28 54 2d 31 29 2a  79 73 63 61 6c 65 3a ed  |:.(T-1)*yscale:.|
00001810  0d 03 ac 32 e3 54 3d 32  34 30 20 b8 20 31 31 39  |...2.T=240 . 119|
00001820  30 20 88 20 35 30 3a 6e  75 6d 24 3d c3 28 78 73  |0 . 50:num$=.(xs|
00001830  63 61 6c 65 2a 28 28 54  2d 32 34 30 29 2f 35 30  |cale*((T-240)/50|
00001840  29 29 0d 03 b6 39 e3 4c  3d 31 20 b8 20 a9 6e 75  |))...9.L=1 . .nu|
00001850  6d 24 3a ec 54 2d 31 36  2c 31 39 32 2d 28 4c 2a  |m$:.T-16,192-(L*|
00001860  33 32 29 3a f1 c1 6e 75  6d 24 2c 4c 2c 31 29 3a  |32):..num$,L,1):|
00001870  ed 4c 3a ed 54 3a ef 34  3a fb 33 0d 03 c0 6c f1  |.L:.T:.4:.3...l.|
00001880  8a 30 2c 33 31 29 3a f1  8a 28 33 39 2d a9 6c 78  |.0,31):..(39-.lx|
00001890  61 78 69 73 24 29 2f 32  2c 33 31 29 6c 78 61 78  |axis$)/2,31)lxax|
000018a0  69 73 24 3b 3a 73 74 61  72 74 3d 28 32 39 2d a9  |is$;:start=(29-.|
000018b0  6c 79 61 78 69 73 24 29  2f 32 3a e3 54 3d 31 20  |lyaxis$)/2:.T=1 |
000018c0  b8 20 a9 6c 79 61 78 69  73 24 3a f1 8a 30 2c 54  |. .lyaxis$:..0,T|
000018d0  2b 73 74 61 72 74 29 3b  c1 6c 79 61 78 69 73 24  |+start);.lyaxis$|
000018e0  2c 54 2c 31 29 3a ed 0d  03 ca 3c f2 74 69 74 6c  |,T,1):....<.titl|
000018f0  65 28 28 28 33 39 2d a9  6c 74 69 74 6c 65 24 29  |e(((39-.ltitle$)|
00001900  2f 32 29 2a 33 32 2c 31  30 32 30 2c 6c 74 69 74  |/2)*32,1020,ltit|
00001910  6c 65 24 29 3a f2 70 72  69 6e 74 3a ef 32 36 3a  |le$):.print:.26:|
00001920  db 3a e1 0d 03 d4 0a dd  f2 64 75 6d 70 0d 03 de  |.:.......dump...|
00001930  15 f4 20 4c 6f 61 64 20  61 6e 64 20 63 61 6c 6c  |.. Load and call|
00001940  20 61 0d 03 e0 19 f4 20  73 63 72 65 65 6e 20 64  | a..... screen d|
00001950  75 6d 70 20 72 6f 75 74  69 6e 65 0d 03 e2 0f f4  |ump routine.....|
00001960  20 66 72 6f 6d 20 68 65  72 65 0d 03 e8 05 e1 0d  | from here......|
00001970  ff                                                |.|
00001971
PLOT.m0
PLOT.m1
PLOT.m2
PLOT.m4
PLOT.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .