Home » Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » TAPE3/B/GRAPHDUMP

TAPE3/B/GRAPHDUMP

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 ADFS disks » Electron » MTF_finished_programs.ADF
Filename: TAPE3/B/GRAPHDUMP
Read OK: ✔
File size: 1FBB bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

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

File contents
    5VDU21:PROCdumpinit
   10REM Graph Plotter
   20REM By Paul Hodgskin
   30REM (c) Electron User
   40VDU6
  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
  990 CALL&C00
 1000ENDPROC
 1010DEFPROCdumpinit
 1020 oswrch=&FFEE:osbyte=&FFF4:osword=&FFF1
 1030 x=&70:y=&72:block=&80
 1040 FOR pass=0 TO 2 STEP 2
 1050 P%=&C00
 1060 [ OPT pass
 1070 LDA #26:JSR oswrch  \VDU 26
 1080 LDA #6:LDX #255:LDY #0:JSR osbyte  \*FX 6,255
 1090 LDA #3:LDX #10:LDY #0:JSR osbyte \*FX3,10
 1100 LDA #27:JSR oswrch:LDA #85:JSR oswrch:LDA #1:JSR oswrch \VDU 27,85,1
 1110 LDA #27:JSR oswrch:LDA #65:JSR oswrch:LDA #2:JSR oswrch \VDU 27,65,2
 1120 LDA #1020 MOD256:STA y:LDA #1020 DIV256:STA y+1  \y=1020
 1130 .loop
 1140 LDA #10:JSR oswrch \VDU 10
 1150 LDA #27:JSR oswrch:LDA #76:JSR oswrch:LDA #960 MOD256:JSR oswrch:LDA #960 DIV256:JSR oswrch \VDU 27,76,960 MOD256,960 DIV256
 1160 LDA #0:STA x:STA x+1  \x=0
 1170 .loop1
 1180 LDA x:STA block:LDA x+1:STA block+1
 1190 LDA y:STA block+2:LDA y+1:STA block+3
 1200 LDA #9:LDX #block MOD256:LDY #block DIV256:JSR osword  \POINT
 1210 LDA block+4:AND #7:TAX:LDY mult,X  \Y=POINT*6
 1220 LDX #3
 1230 .loop2
 1240 LDA data,Y:JSR oswrch
 1250 INY:DEX:BNE loop2
 1260 CLC:LDA x:ADC #4:STA x:LDA x+1:ADC #0:STA x+1  \x=x+4
 1270 CMP #1280 DIV256:BNE loop1
 1280 SEC:LDA y:SBC #4:STA y:LDA y+1:SBC #0:STA y+1  \y=y-4
 1290 BNE loop
 1300 LDA y:BNE loop
 1310 LDA #3:LDX #4:LDY #0:JMP osbyte  \*FX3,4
 1320 
 1330 .mult
 1340 EQUB 0:EQUB 5*6:EQUB 6*6:EQUB 7*6
 1350 
 1360 .data
 1370 EQUB 0:EQUB 0:EQUB 0:EQUB 0:EQUB 0:EQUB 0
 1380 EQUB 0:EQUB 1:EQUB 0:EQUB 0:EQUB 1:EQUB 0
 1390 EQUB 1:EQUB 0:EQUB 2:EQUB 2:EQUB 0:EQUB 1
 1400 EQUB 0:EQUB 3:EQUB 0:EQUB 0:EQUB 3:EQUB 0
 1410 EQUB 1:EQUB 1:EQUB 1:EQUB 1:EQUB 1:EQUB 1
 1420 EQUB 3:EQUB 0:EQUB 3:EQUB 0:EQUB 3:EQUB 0
 1430 EQUB 1:EQUB 3:EQUB 2:EQUB 1:EQUB 3:EQUB 2
 1440 EQUB 3:EQUB 3:EQUB 3:EQUB 3:EQUB 3:EQUB 3
 1450 ]
 1460 NEXT
 1470*KEY0"DEL.1010,1470|MGOTO10|M"
 1480*FX138,0,128

�21:�dumpinit

� Graph Plotter
� By Paul Hodgskin
� (c) Electron User
(�6
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
�
 �&C00
��
���dumpinit
�+ oswrch=&FFEE:osbyte=&FFF4:osword=&FFF1
 x=&70:y=&72:block=&80
 � pass=0 � 2 � 2
 P%=&C00
$ [ OPT pass
. LDA #26:JSR oswrch  \� 26
82 LDA #6:LDX #255:LDY #0:JSR osbyte  \*FX 6,255
B. LDA #3:LDX #10:LDY #0:JSR osbyte \*FX3,10
LG LDA #27:JSR oswrch:LDA #85:JSR oswrch:LDA #1:JSR oswrch \� 27,85,1
VG LDA #27:JSR oswrch:LDA #65:JSR oswrch:LDA #2:JSR oswrch \� 27,65,2
`9 LDA #1020 �256:STA y:LDA #1020 �256:STA y+1  \y=1020
j
 .loop
t LDA #10:JSR oswrch \� 10
~w LDA #27:JSR oswrch:LDA #76:JSR oswrch:LDA #960 �256:JSR oswrch:LDA #960 �256:JSR oswrch \� 27,76,960 �256,960 �256
� LDA #0:STA x:STA x+1  \x=0
� .loop1
�( LDA x:STA block:LDA x+1:STA block+1
�* LDA y:STA block+2:LDA y+1:STA block+3
�> LDA #9:LDX #block �256:LDY #block �256:JSR osword  \POINT
�0 LDA block+4:� #7:TAX:LDY mult,X  \Y=POINT*6
� LDX #3
� .loop2
� LDA data,Y:JSR oswrch
� INY:DEX:BNE loop2
�: CLC:LDA x:ADC #4:STA x:LDA x+1:ADC #0:STA x+1  \x=x+4
� CMP #1280 �256:BNE loop1
: SEC:LDA y:SBC #4:STA y:LDA y+1:SBC #0:STA y+1  \y=y-4


 BNE loop
 LDA y:BNE loop
- LDA #3:LDX #4:LDY #0:JMP osbyte  \*FX3,4
( 
2
 .mult
<& EQUB 0:EQUB 5*6:EQUB 6*6:EQUB 7*6
F 
P
 .data
Z. EQUB 0:EQUB 0:EQUB 0:EQUB 0:EQUB 0:EQUB 0
d. EQUB 0:EQUB 1:EQUB 0:EQUB 0:EQUB 1:EQUB 0
n. EQUB 1:EQUB 0:EQUB 2:EQUB 2:EQUB 0:EQUB 1
x. EQUB 0:EQUB 3:EQUB 0:EQUB 0:EQUB 3:EQUB 0
�. EQUB 1:EQUB 1:EQUB 1:EQUB 1:EQUB 1:EQUB 1
�. EQUB 3:EQUB 0:EQUB 3:EQUB 0:EQUB 3:EQUB 0
�. EQUB 1:EQUB 3:EQUB 2:EQUB 1:EQUB 3:EQUB 2
�. EQUB 3:EQUB 3:EQUB 3:EQUB 3:EQUB 3:EQUB 3
� ]
� �
�"*KEY0"DEL.1010,1470|MGOTO10|M"
�*FX138,0,128
�
00000000  0d 00 05 11 ef 32 31 3a  f2 64 75 6d 70 69 6e 69  |.....21:.dumpini|
00000010  74 0d 00 0a 13 f4 20 47  72 61 70 68 20 50 6c 6f  |t..... Graph Plo|
00000020  74 74 65 72 0d 00 14 16  f4 20 42 79 20 50 61 75  |tter..... By Pau|
00000030  6c 20 48 6f 64 67 73 6b  69 6e 0d 00 1e 17 f4 20  |l Hodgskin..... |
00000040  28 63 29 20 45 6c 65 63  74 72 6f 6e 20 55 73 65  |(c) Electron Use|
00000050  72 0d 00 28 06 ef 36 0d  00 78 28 ee 85 e7 9f 3d  |r..(..6..x(....=|
00000060  31 37 e5 8d 74 4c 40 20  8b 20 eb 36 3a f6 3a f1  |17..tL@ . .6:.:.|
00000070  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a e0 0d  |" at line ";.:..|
00000080  00 82 1c eb 31 3a ef 32  33 3b 38 32 30 32 3b 30  |....1:.23;8202;0|
00000090  3b 30 3b 30 3b 3a f2 69  6e 69 74 0d 00 8c 0d f5  |;0;0;:.init.....|
000000a0  f2 6d 61 69 6e 3a fd 30  0d 00 96 6b dd f2 69 6e  |.main:.0...k..in|
000000b0  69 74 3a de 20 62 61 72  24 28 32 30 29 2c 62 61  |it:. bar$(20),ba|
000000c0  72 28 32 30 29 2c 73 65  63 74 6f 72 24 28 34 30  |r(20),sector$(40|
000000d0  29 2c 73 65 63 74 6f 72  28 34 30 29 2c 70 6f 69  |),sector(40),poi|
000000e0  6e 74 58 28 34 30 29 2c  70 6f 69 6e 74 59 28 34  |ntX(40),pointY(4|
000000f0  30 29 3a 62 61 72 64 61  74 61 3d a3 3a 70 69 65  |0):bardata=.:pie|
00000100  64 61 74 61 3d a3 3a 6c  69 6e 65 64 61 74 61 3d  |data=.:linedata=|
00000110  a3 3a e1 0d 00 a0 0c dd  f2 62 6f 72 64 65 72 0d  |.:.......border.|
00000120  00 aa 78 db 3a e6 30 2c  31 3a e3 54 3d 30 20 b8  |..x.:.0,1:.T=0 .|
00000130  20 32 38 20 88 20 38 3a  ec 54 2c 54 3a df 31 32  | 28 . 8:.T,T:.12|
00000140  37 39 2d 54 2c 54 3a df  31 32 37 39 2d 54 2c 31  |79-T,T:.1279-T,1|
00000150  30 32 33 2d 54 3a df 54  2c 31 30 32 33 2d 54 3a  |023-T:.T,1023-T:|
00000160  df 54 2c 54 3a ed 3a e3  54 3d 38 37 34 20 b8 20  |.T,T:.:.T=874 . |
00000170  39 30 30 20 88 20 38 3a  ec 32 38 2c 54 3a df 31  |900 . 8:.28,T:.1|
00000180  32 35 32 2c 54 3a ed 3a  ef 32 38 2c 31 2c 33 30  |252,T:.:.28,1,30|
00000190  2c 33 38 2c 31 3a e1 0d  00 b4 5f dd f2 6d 61 69  |,38,1:...._..mai|
000001a0  6e 3a ef 32 30 3a f2 62  6f 72 64 65 72 3a fb 33  |n:.20:.border:.3|
000001b0  3a f1 8a 31 34 2c 31 29  3b 22 4d 41 49 4e 20 4d  |:..14,1);"MAIN M|
000001c0  45 4e 55 22 3a fb 32 3a  f7 3a e3 54 3d 31 20 b8  |ENU":.2:.:.T=1 .|
000001d0  20 38 3a f3 20 6d 65 6e  75 24 3a f1 8a 33 2c 54  | 8:. menu$:..3,T|
000001e0  2a 32 2b 36 29 3b 54 3b  22 29 2e 2e 2e 22 3b 6d  |*2+6);T;")...";m|
000001f0  65 6e 75 24 3a ed 0d 00  be 17 f5 41 3d a5 2d 34  |enu$:......A=.-4|
00000200  38 3a fd 41 3e 30 20 80  20 41 3c 31 30 0d 00 c8  |8:.A>0 . A<10...|
00000210  17 ef 31 39 2c 32 2c 36  3b 30 3b 31 39 2c 31 2c  |..19,2,6;0;19,1,|
00000220  34 3b 30 3b 0d 00 d2 49  e7 41 3d 31 20 f2 62 61  |4;0;...I.A=1 .ba|
00000230  72 5f 64 61 74 61 20 8b  20 e7 41 3d 32 20 80 20  |r_data . .A=2 . |
00000240  62 61 72 64 61 74 61 3d  b9 20 f2 6e 6f 72 6d 5f  |bardata=. .norm_|
00000250  62 61 72 20 8b 20 e7 41  3d 33 20 80 20 62 61 72  |bar . .A=3 . bar|
00000260  64 61 74 61 3d b9 20 f2  74 5f 62 61 72 0d 00 dc  |data=. .t_bar...|
00000270  49 e7 41 3d 34 20 f2 70  69 65 5f 64 61 74 61 20  |I.A=4 .pie_data |
00000280  8b 20 e7 41 3d 35 20 80  20 70 69 65 64 61 74 61  |. .A=5 . piedata|
00000290  3d b9 20 f2 6e 6f 72 6d  5f 70 69 65 20 8b 20 e7  |=. .norm_pie . .|
000002a0  41 3d 36 20 80 20 70 69  65 64 61 74 61 3d b9 20  |A=6 . piedata=. |
000002b0  f2 74 5f 70 69 65 0d 00  e6 38 e7 41 3d 37 20 f2  |.t_pie...8.A=7 .|
000002c0  6c 69 6e 65 5f 64 61 74  61 20 8b 20 e7 41 3d 38  |line_data . .A=8|
000002d0  20 80 20 6c 69 6e 65 64  61 74 61 3d b9 20 f2 6c  | . linedata=. .l|
000002e0  69 6e 65 20 8b 20 ef 37  3a e5 8d 74 4c 40 0d 00  |ine . .7:..tL@..|
000002f0  f0 05 e1 0d 00 fa b6 dc  20 44 65 66 69 6e 65 20  |........ Define |
00000300  44 61 74 61 20 66 6f 72  20 42 61 72 20 43 68 61  |Data for Bar Cha|
00000310  72 74 2c 44 72 61 77 20  4e 6f 72 6d 61 6c 20 42  |rt,Draw Normal B|
00000320  61 72 20 43 68 61 72 74  2c 44 72 61 77 20 33 2d  |ar Chart,Draw 3-|
00000330  44 20 42 61 72 20 43 68  61 72 74 2c 44 65 66 69  |D Bar Chart,Defi|
00000340  6e 65 20 44 61 74 61 20  66 6f 72 20 50 69 65 20  |ne Data for Pie |
00000350  43 68 61 72 74 2c 44 72  61 77 20 4e 6f 72 6d 61  |Chart,Draw Norma|
00000360  6c 20 50 69 65 20 43 68  61 72 74 2c 44 72 61 77  |l Pie Chart,Draw|
00000370  20 33 2d 44 20 50 69 65  20 43 68 61 72 74 2c 44  | 3-D Pie Chart,D|
00000380  65 66 69 6e 65 20 44 61  74 61 20 66 6f 72 20 4c  |efine Data for L|
00000390  69 6e 65 20 47 72 61 70  68 2c 44 72 61 77 20 4c  |ine Graph,Draw L|
000003a0  69 6e 65 20 47 72 61 70  68 0d 01 04 40 dd f2 62  |ine Graph...@..b|
000003b0  61 72 5f 64 61 74 61 3a  db 3a f2 62 6f 72 64 65  |ar_data:.:.borde|
000003c0  72 3a fb 33 3a f1 8a 35  2c 31 29 3b 22 44 45 46  |r:.3:..5,1);"DEF|
000003d0  49 4e 49 4e 47 20 44 41  54 41 20 46 4f 52 20 42  |INING DATA FOR B|
000003e0  41 52 20 43 48 41 52 54  22 0d 01 0e 93 fb 32 3a  |AR CHART".....2:|
000003f0  f1 8a 32 2c 38 29 3b 22  57 68 61 74 20 69 73 20  |..2,8);"What is |
00000400  74 68 65 20 73 63 61 6c  65 20 3a 22 3a e8 8a 32  |the scale :":..2|
00000410  2c 31 30 29 73 63 61 6c  65 3a f1 8a 32 2c 38 29  |,10)scale:..2,8)|
00000420  3b c4 36 30 2c 22 20 22  29 3a f1 8a 32 2c 31 30  |;.60," "):..2,10|
00000430  29 3b 22 53 63 61 6c 65  20 2d 20 22 3b 73 63 61  |);"Scale - ";sca|
00000440  6c 65 3a 6d 61 78 3d 31  36 2a 73 63 61 6c 65 3a  |le:max=16*scale:|
00000450  f1 8a 32 2c 31 32 29 3b  22 4d 61 78 20 68 65 69  |..2,12);"Max hei|
00000460  67 68 74 20 6f 6e 20 76  65 72 74 69 63 61 6c 20  |ght on vertical |
00000470  61 78 69 73 20 2d 20 22  3b 6d 61 78 0d 01 18 69  |axis - ";max...i|
00000480  f1 8a 32 2c 31 35 29 3b  22 4f 6b 61 79 20 28 59  |..2,15);"Okay (Y|
00000490  2f 4e 29 22 3a f5 41 24  3d be 3a fd 41 24 3d 22  |/N)":.A$=.:.A$="|
000004a0  59 22 84 41 24 3d 22 4e  22 3a f1 8a 32 2c 31 35  |Y".A$="N":..2,15|
000004b0  29 3b c4 31 30 2c 22 20  22 29 3a e7 41 24 3d 22  |);.10," "):.A$="|
000004c0  4e 22 ef 32 38 2c 31 2c  33 30 2c 33 38 2c 35 3a  |N".28,1,30,38,5:|
000004d0  db 3a ef 32 38 2c 31 2c  33 30 2c 33 39 2c 31 3a  |.:.28,1,30,39,1:|
000004e0  e5 8d 54 4e 41 0d 01 22  55 ef 32 38 2c 31 2c 33  |..TNA.."U.28,1,3|
000004f0  30 2c 33 38 2c 35 3a db  3a ef 32 38 2c 31 2c 33  |0,38,5:.:.28,1,3|
00000500  30 2c 33 38 2c 31 3a f1  8a 32 2c 38 29 3b 22 48  |0,38,1:..2,8);"H|
00000510  6f 77 20 6d 61 6e 79 20  62 61 72 73 20 3a 22 3a  |ow many bars :":|
00000520  e8 8a 32 2c 31 30 29 62  61 72 73 3a e7 62 61 72  |..2,10)bars:.bar|
00000530  73 3e 32 30 20 e5 8d 54  62 41 0d 01 2c 4b f1 8a  |s>20 ..TbA..,K..|
00000540  32 2c 31 35 29 3b 22 4f  6b 61 79 20 28 59 2f 4e  |2,15);"Okay (Y/N|
00000550  29 22 3a f5 41 24 3d be  3a fd 41 24 3d 22 59 22  |)":.A$=.:.A$="Y"|
00000560  84 41 24 3d 22 4e 22 3a  f1 8a 32 2c 31 35 29 3b  |.A$="N":..2,15);|
00000570  c4 31 30 2c 22 20 22 29  3a e7 41 24 3d 22 4e 22  |.10," "):.A$="N"|
00000580  e5 8d 54 62 41 0d 01 36  1c e3 54 3d 31 20 b8 20  |..TbA..6..T=1 . |
00000590  62 61 72 73 3a db 3a f1  27 22 42 61 72 20 22 3b  |bars:.:.'"Bar ";|
000005a0  54 0d 01 40 60 e8 27 22  4e 61 6d 65 20 28 4d 61  |T..@`.'"Name (Ma|
000005b0  78 20 6c 65 6e 67 74 68  20 3a 20 34 20 6c 65 74  |x length : 4 let|
000005c0  74 65 72 73 29 20 3a 20  22 62 61 72 24 28 54 29  |ters) : "bar$(T)|
000005d0  3a e7 a9 62 61 72 24 28  54 29 3e 34 20 ef 37 2c  |:..bar$(T)>4 .7,|
000005e0  31 31 2c 31 31 3a f1 c4  38 30 2c 22 20 22 29 3a  |11,11:..80," "):|
000005f0  ef 37 2c 31 31 2c 31 31  2c 31 31 3a e5 8d 44 40  |.7,11,11,11:..D@|
00000600  41 0d 01 4a 51 e8 27 22  48 65 69 67 68 74 20 3a  |A..JQ.'"Height :|
00000610  20 22 62 61 72 28 54 29  3a e7 62 61 72 28 54 29  | "bar(T):.bar(T)|
00000620  3e 6d 61 78 20 84 20 62  61 72 28 54 29 3c 30 20  |>max . bar(T)<0 |
00000630  ef 37 2c 31 31 2c 31 31  3a f1 c4 38 30 2c 22 20  |.7,11,11:..80," |
00000640  22 29 3a ef 31 31 2c 31  31 2c 31 31 3a e5 8d 44  |"):.11,11,11:..D|
00000650  4a 41 0d 01 54 18 ed 3a  f2 63 6f 6e 76 65 72 74  |JA..T..:.convert|
00000660  3a 62 61 72 64 61 74 61  3d b9 0d 01 5e 63 db 3a  |:bardata=...^c.:|
00000670  f1 8a 30 2c 32 29 3b 22  57 68 61 74 20 69 73 20  |..0,2);"What is |
00000680  74 68 65 20 74 69 74 6c  65 20 6f 66 20 74 68 65  |the title of the|
00000690  20 42 61 72 20 63 68 61  72 74 20 3a 22 3a e8 27  | Bar chart :":.'|
000006a0  22 22 62 74 69 74 6c 65  24 3a e7 a9 62 74 69 74  |""btitle$:..btit|
000006b0  6c 65 24 3e 33 37 20 f1  27 22 54 6f 6f 20 4c 6f  |le$>37 .'"Too Lo|
000006c0  6e 67 22 3a f5 fd a5 3a  e5 8d 44 5e 41 0d 01 68  |ng":...:..D^A..h|
000006d0  58 db 3a f1 8a 30 2c 32  29 3b 22 57 68 61 74 20  |X.:..0,2);"What |
000006e0  69 73 20 74 68 65 20 58  20 61 78 69 73 20 63 61  |is the X axis ca|
000006f0  6c 6c 65 64 20 3a 22 3a  e8 27 22 22 78 61 78 69  |lled :":.'""xaxi|
00000700  73 24 3a e7 a9 78 61 78  69 73 24 3e 33 37 20 f1  |s$:..xaxis$>37 .|
00000710  27 22 54 6f 6f 20 4c 6f  6e 67 22 3a f5 fd a5 3a  |'"Too Long":...:|
00000720  e5 8d 44 68 41 0d 01 72  58 db 3a f1 8a 30 2c 32  |..DhA..rX.:..0,2|
00000730  29 3b 22 57 68 61 74 20  69 73 20 74 68 65 20 59  |);"What is the Y|
00000740  20 61 78 69 73 20 63 61  6c 6c 65 64 20 3a 22 3a  | axis called :":|
00000750  e8 27 22 22 79 61 78 69  73 24 3a e7 a9 79 61 78  |.'""yaxis$:..yax|
00000760  69 73 24 3e 32 36 20 f1  27 22 54 6f 6f 20 4c 6f  |is$>26 .'"Too Lo|
00000770  6e 67 22 3a f5 fd a5 3a  e5 8d 44 72 41 0d 01 7c  |ng":...:..DrA..||
00000780  05 e1 0d 01 86 23 dd f2  6e 6f 72 6d 5f 62 61 72  |.....#..norm_bar|
00000790  3a ef 32 36 3a db 3a 73  74 65 70 3d 31 30 30 30  |:.26:.:step=1000|
000007a0  2f 62 61 72 73 0d 01 90  95 e3 54 3d 30 20 b8 20  |/bars.....T=0 . |
000007b0  62 61 72 73 2d 31 3a e6  30 2c 54 20 83 20 33 2b  |bars-1:.0,T . 3+|
000007c0  31 3a ec 54 2a 73 74 65  70 2b 32 34 30 2c 31 35  |1:.T*step+240,15|
000007d0  30 3a ec 54 2a 73 74 65  70 2b 32 34 30 2c 62 61  |0:.T*step+240,ba|
000007e0  72 28 54 2b 31 29 2b 31  35 30 3a f0 38 35 2c 54  |r(T+1)+150:.85,T|
000007f0  2a 73 74 65 70 2b 32 34  30 2b 73 74 65 70 2c 62  |*step+240+step,b|
00000800  61 72 28 54 2b 31 29 2b  31 35 30 3a ec 54 2a 73  |ar(T+1)+150:.T*s|
00000810  74 65 70 2b 32 34 30 2b  73 74 65 70 2c 31 35 30  |tep+240+step,150|
00000820  3a f0 38 35 2c 54 2a 73  74 65 70 2b 32 34 30 2c  |:.85,T*step+240,|
00000830  31 35 30 3a ed 3a e6 30  2c 33 0d 01 9a 12 f2 61  |150:.:.0,3.....a|
00000840  78 69 73 3a f2 70 72 69  6e 74 3a e1 0d 01 a4 11  |xis:.print:.....|
00000850  dd f2 74 5f 62 61 72 3a  ef 32 36 3a db 0d 01 ae  |..t_bar:.26:....|
00000860  97 73 74 65 70 3d 31 30  30 30 2f 62 61 72 73 3a  |.step=1000/bars:|
00000870  e3 54 3d 30 20 b8 20 62  61 72 73 2d 31 3a e6 30  |.T=0 . bars-1:.0|
00000880  2c 31 3a ec 54 2a 73 74  65 70 2b 32 34 30 2c 31  |,1:.T*step+240,1|
00000890  35 30 3a ec 54 2a 73 74  65 70 2b 32 34 30 2c 62  |50:.T*step+240,b|
000008a0  61 72 28 54 2b 31 29 2b  31 35 30 3a f0 38 35 2c  |ar(T+1)+150:.85,|
000008b0  54 2a 73 74 65 70 2b 32  34 30 2b 73 74 65 70 2c  |T*step+240+step,|
000008c0  62 61 72 28 54 2b 31 29  2b 31 35 30 3a ec 54 2a  |bar(T+1)+150:.T*|
000008d0  73 74 65 70 2b 32 34 30  2b 73 74 65 70 2c 31 35  |step+240+step,15|
000008e0  30 3a f0 38 35 2c 54 2a  73 74 65 70 2b 32 34 30  |0:.85,T*step+240|
000008f0  2c 31 35 30 0d 01 b8 95  e6 30 2c 32 3a ec 54 2a  |,150.....0,2:.T*|
00000900  73 74 65 70 2b 32 34 30  2c 62 61 72 28 54 2b 31  |step+240,bar(T+1|
00000910  29 2b 31 35 30 3a ec 54  2a 73 74 65 70 2b 32 34  |)+150:.T*step+24|
00000920  30 2b 73 74 65 70 2c 62  61 72 28 54 2b 31 29 2b  |0+step,bar(T+1)+|
00000930  31 35 30 3a f0 38 35 2c  54 2a 73 74 65 70 2b 32  |150:.85,T*step+2|
00000940  39 30 2b 73 74 65 70 2c  62 61 72 28 54 2b 31 29  |90+step,bar(T+1)|
00000950  2b 32 30 30 3a ec 54 2a  73 74 65 70 2b 32 39 30  |+200:.T*step+290|
00000960  2c 62 61 72 28 54 2b 31  29 2b 32 30 30 3a f0 38  |,bar(T+1)+200:.8|
00000970  35 2c 54 2a 73 74 65 70  2b 32 34 30 2c 62 61 72  |5,T*step+240,bar|
00000980  28 54 2b 31 29 2b 31 35  30 0d 01 c2 94 e6 30 2c  |(T+1)+150.....0,|
00000990  33 3a ec 54 2a 73 74 65  70 2b 32 34 30 2b 73 74  |3:.T*step+240+st|
000009a0  65 70 2c 62 61 72 28 54  2b 31 29 2b 31 35 30 3a  |ep,bar(T+1)+150:|
000009b0  ec 54 2a 73 74 65 70 2b  32 39 30 2b 73 74 65 70  |.T*step+290+step|
000009c0  2c 62 61 72 28 54 2b 31  29 2b 32 30 30 3a f0 38  |,bar(T+1)+200:.8|
000009d0  35 2c 54 2a 73 74 65 70  2b 32 39 30 2b 73 74 65  |5,T*step+290+ste|
000009e0  70 2c 32 30 30 3a ec 54  2a 73 74 65 70 2b 32 34  |p,200:.T*step+24|
000009f0  30 2b 73 74 65 70 2c 31  35 30 3a f0 38 35 2c 54  |0+step,150:.85,T|
00000a00  2a 73 74 65 70 2b 32 34  30 2b 73 74 65 70 2c 62  |*step+240+step,b|
00000a10  61 72 28 54 2b 31 29 2b  31 35 30 3a ed 0d 01 cc  |ar(T+1)+150:....|
00000a20  12 f2 61 78 69 73 3a f2  70 72 69 6e 74 3a e1 0d  |..axis:.print:..|
00000a30  01 d6 6f dd f2 61 78 69  73 3a e6 30 2c 33 3a ec  |..o..axis:.0,3:.|
00000a40  32 34 30 2c 39 35 30 3a  df 32 34 30 2c 31 35 30  |240,950:.240,150|
00000a50  3a df 31 32 34 30 2c 31  35 30 3a e3 54 3d 31 35  |:.1240,150:.T=15|
00000a60  30 20 b8 20 39 35 30 20  88 20 35 30 3a ec 32 34  |0 . 950 . 50:.24|
00000a70  30 2c 54 3a df 32 32 30  2c 54 3a ef 35 3a ec 2d  |0,T:.220,T:.5:.-|
00000a80  31 32 30 2c 54 2b 31 36  3a f1 28 28 54 2d 31 35  |120,T+16:.((T-15|
00000a90  30 29 2f 35 30 29 2a 73  63 61 6c 65 3a ed 0d 01  |0)/50)*scale:...|
00000aa0  e0 a4 62 61 72 3d 31 3a  e3 54 3d 32 34 30 20 b8  |..bar=1:.T=240 .|
00000ab0  20 31 32 33 30 20 88 20  73 74 65 70 3a ec 54 2c  | 1230 . step:.T,|
00000ac0  31 35 30 3a df 54 2c 31  30 30 3a e3 4c 3d 31 20  |150:.T,100:.L=1 |
00000ad0  b8 20 34 3a ec 54 2b 28  31 30 30 30 2f 62 61 72  |. 4:.T+(1000/bar|
00000ae0  73 29 2f 32 2d 31 36 2c  31 38 30 2d 28 4c 2a 33  |s)/2-16,180-(L*3|
00000af0  36 29 3a ef 35 3a f1 c1  62 61 72 24 28 62 61 72  |6):.5:..bar$(bar|
00000b00  29 2c 4c 2c 31 29 3a ef  34 3a ed 4c 3a 62 61 72  |),L,1):.4:.L:bar|
00000b10  3d 62 61 72 2b 31 3a ed  54 3a f2 74 69 74 6c 65  |=bar+1:.T:.title|
00000b20  28 28 28 33 39 2d a9 62  74 69 74 6c 65 24 29 2f  |(((39-.btitle$)/|
00000b30  32 29 2a 33 32 2c 39 38  30 2c 62 74 69 74 6c 65  |2)*32,980,btitle|
00000b40  24 29 0d 01 ea 6c fb 33  3a f1 8a 30 2c 33 31 29  |$)...l.3:..0,31)|
00000b50  3a f1 8a 28 33 39 2d a9  78 61 78 69 73 24 29 2f  |:..(39-.xaxis$)/|
00000b60  32 2c 33 31 29 78 61 78  69 73 24 3b 3a 73 74 61  |2,31)xaxis$;:sta|
00000b70  72 74 3d 28 32 39 2d a9  79 61 78 69 73 24 29 2f  |rt=(29-.yaxis$)/|
00000b80  32 3a e3 54 3d 31 20 b8  20 a9 79 61 78 69 73 24  |2:.T=1 . .yaxis$|
00000b90  3a f1 8a 30 2c 54 2b 73  74 61 72 74 29 3b c1 79  |:..0,T+start);.y|
00000ba0  61 78 69 73 24 2c 54 2c  31 29 3a ed 3a e1 0d 01  |axis$,T,1):.:...|
00000bb0  f4 62 dd f2 74 69 74 6c  65 28 58 2c 59 2c 41 24  |.b..title(X,Y,A$|
00000bc0  29 3a ef 35 3a e6 30 2c  30 3a ec 58 2b 34 2c 59  |):.5:.0,0:.X+4,Y|
00000bd0  2b 34 3a f1 41 24 3a ec  58 2d 34 2c 59 2b 34 3a  |+4:.A$:.X-4,Y+4:|
00000be0  f1 41 24 3a ec 58 2d 34  2c 59 2d 34 3a f1 41 24  |.A$:.X-4,Y-4:.A$|
00000bf0  3a ec 58 2b 34 2c 59 2d  34 3a f1 41 24 3a e6 30  |:.X+4,Y-4:.A$:.0|
00000c00  2c 33 3a ec 58 2c 59 3a  f1 41 24 3a ef 34 3a e1  |,3:.X,Y:.A$:.4:.|
00000c10  0d 01 fe 79 dd f2 70 72  69 6e 74 3a ec 34 38 30  |...y..print:.480|
00000c20  2c 38 33 30 3a e6 34 2c  30 3a ef 35 3a f1 22 50  |,830:.4,0:.5:."P|
00000c30  72 69 6e 74 20 28 59 2f  4e 29 22 3a ff 22 46 58  |rint (Y/N)":."FX|
00000c40  31 35 22 3a f5 41 24 3d  be 3a fd 41 24 3d 22 59  |15":.A$=.:.A$="Y|
00000c50  22 20 84 20 41 24 3d 22  4e 22 3a ec 34 38 30 2c  |" . A$="N":.480,|
00000c60  38 33 30 3a f1 22 50 72  69 6e 74 20 28 59 2f 4e  |830:."Print (Y/N|
00000c70  29 22 3a ef 34 3a e7 41  24 3d 22 59 22 20 f2 64  |)":.4:.A$="Y" .d|
00000c80  75 6d 70 3a e1 20 8b 20  e1 0d 02 08 36 dd f2 63  |ump:. . ....6..c|
00000c90  6f 6e 76 65 72 74 3a e3  54 3d 31 20 b8 20 62 61  |onvert:.T=1 . ba|
00000ca0  72 73 3a 62 61 72 28 54  29 3d 28 62 61 72 28 54  |rs:bar(T)=(bar(T|
00000cb0  29 2f 73 63 61 6c 65 2a  35 30 29 3a ed 3a e1 0d  |)/scale*50):.:..|
00000cc0  02 12 40 dd f2 70 69 65  5f 64 61 74 61 3a db 3a  |..@..pie_data:.:|
00000cd0  f2 62 6f 72 64 65 72 3a  fb 33 3a f1 8a 35 2c 31  |.border:.3:..5,1|
00000ce0  29 3b 22 44 45 46 49 4e  49 4e 47 20 44 41 54 41  |);"DEFINING DATA|
00000cf0  20 46 4f 52 20 50 49 45  20 43 48 41 52 54 22 0d  | FOR PIE CHART".|
00000d00  02 1c 82 fb 32 3a f1 8a  32 2c 38 29 3b 22 48 6f  |....2:..2,8);"Ho|
00000d10  77 20 6d 61 6e 79 20 73  65 63 74 6f 72 73 20 3a  |w many sectors :|
00000d20  22 3a e8 8a 32 2c 31 30  29 22 22 73 65 63 74 6f  |":..2,10)""secto|
00000d30  72 73 3a e7 73 65 63 74  6f 72 73 3c 31 20 84 20  |rs:.sectors<1 . |
00000d40  73 65 63 74 6f 72 73 3e  34 30 20 ef 37 3a f1 27  |sectors>40 .7:.'|
00000d50  22 20 20 53 69 6c 6c 79  22 3a f5 fd a5 3a ef 32  |"  Silly":...:.2|
00000d60  38 2c 31 2c 33 30 2c 33  38 2c 35 3a db 3a ef 32  |8,1,30,38,5:.:.2|
00000d70  38 2c 31 2c 33 30 2c 33  38 2c 31 3a e5 8d 54 5c  |8,1,30,38,1:..T\|
00000d80  42 0d 02 26 12 e3 54 3d  31 20 b8 20 73 65 63 74  |B..&..T=1 . sect|
00000d90  6f 72 73 0d 02 30 5a db  3a f1 27 22 53 65 63 74  |ors..0Z.:.'"Sect|
00000da0  6f 72 20 22 3b 54 3a e8  27 22 4e 61 6d 65 20 28  |or ";T:.'"Name (|
00000db0  4d 61 78 20 6c 65 6e 67  74 68 20 3a 20 36 20 6c  |Max length : 6 l|
00000dc0  65 74 74 65 72 73 29 20  3a 20 22 73 65 63 74 6f  |etters) : "secto|
00000dd0  72 24 28 54 29 3a e7 a9  73 65 63 74 6f 72 24 28  |r$(T):..sector$(|
00000de0  54 29 3e 36 20 ef 37 3a  e5 8d 54 70 42 0d 02 3a  |T)>6 .7:..TpB..:|
00000df0  80 e8 27 22 53 69 7a 65  20 3a 20 22 73 65 63 74  |..'"Size : "sect|
00000e00  6f 72 28 54 29 3a ed 3a  74 6f 74 61 6c 3d 30 3a  |or(T):.:total=0:|
00000e10  e3 54 3d 31 20 b8 20 73  65 63 74 6f 72 73 3a 74  |.T=1 . sectors:t|
00000e20  6f 74 61 6c 3d 74 6f 74  61 6c 2b 73 65 63 74 6f  |otal=total+secto|
00000e30  72 28 54 29 3a ed 3a 6f  6e 65 3d 33 36 30 2f 74  |r(T):.:one=360/t|
00000e40  6f 74 61 6c 3a e3 54 3d  31 20 b8 20 73 65 63 74  |otal:.T=1 . sect|
00000e50  6f 72 73 3a 73 65 63 74  6f 72 28 54 29 3d 73 65  |ors:sector(T)=se|
00000e60  63 74 6f 72 28 54 29 2a  6f 6e 65 3a ed 0d 02 44  |ctor(T)*one:...D|
00000e70  63 db 3a f1 8a 30 2c 32  29 3b 22 57 68 61 74 20  |c.:..0,2);"What |
00000e80  69 73 20 74 68 65 20 74  69 74 6c 65 20 6f 66 20  |is the title of |
00000e90  74 68 65 20 50 69 65 20  63 68 61 72 74 20 3a 22  |the Pie chart :"|
00000ea0  3a e8 27 22 22 70 74 69  74 6c 65 24 3a e7 a9 70  |:.'""ptitle$:..p|
00000eb0  74 69 74 6c 65 24 3e 33  37 20 f1 27 22 54 6f 6f  |title$>37 .'"Too|
00000ec0  20 4c 6f 6e 67 22 3a f5  fd a5 3a e5 8d 44 44 42  | Long":...:..DDB|
00000ed0  0d 02 4e 0f 70 69 65 64  61 74 61 3d b9 3a e1 0d  |..N.piedata=.:..|
00000ee0  02 58 46 dd f2 6e 6f 72  6d 5f 70 69 65 3a 73 65  |.XF..norm_pie:se|
00000ef0  63 3d 31 3a 63 6f 6c 3d  31 3a 74 6f 74 3d 30 3a  |c=1:col=1:tot=0:|
00000f00  ef 32 36 3a db 3a f2 70  69 65 28 34 35 30 2c 34  |.26:.:.pie(450,4|
00000f10  35 30 29 3a ef 32 39 2c  30 3b 30 3b 3a f2 70 72  |50):.29,0;0;:.pr|
00000f20  69 6e 74 3a e1 0d 02 62  98 dd f2 74 5f 70 69 65  |int:...b...t_pie|
00000f30  3a 73 65 63 3d 31 3a 63  6f 6c 3d 31 3a 74 6f 74  |:sec=1:col=1:tot|
00000f40  3d 30 3a ef 32 36 3a db  3a e3 54 3d 30 20 b8 20  |=0:.26:.:.T=0 . |
00000f50  32 36 36 20 88 20 34 3a  e7 54 3e 28 74 6f 74 2b  |266 . 4:.T>(tot+|
00000f60  73 65 63 74 6f 72 28 73  65 63 29 29 73 65 63 3d  |sector(sec))sec=|
00000f70  73 65 63 2b 31 3a 63 6f  6c 3d 63 6f 6c 2b 31 3a  |sec+1:col=col+1:|
00000f80  74 6f 74 3d 74 6f 74 2b  73 65 63 74 6f 72 28 73  |tot=tot+sector(s|
00000f90  65 63 2d 31 29 3a e7 63  6f 6c 3e 33 20 63 6f 6c  |ec-1):.col>3 col|
00000fa0  3d 31 3a e7 73 65 63 3d  73 65 63 74 6f 72 73 20  |=1:.sec=sectors |
00000fb0  80 20 63 6f 6c 3d 31 20  63 6f 6c 3d 32 0d 02 6c  |. col=1 col=2..l|
00000fc0  9a ef 32 39 2c 36 34 30  3b 35 31 32 3b 3a e6 30  |..29,640;512;:.0|
00000fd0  2c 63 6f 6c 3a ec b5 b2  54 2a 34 35 30 2c 9b b2  |,col:...T*450,..|
00000fe0  54 2a 31 35 30 3a ec b5  b2 54 2a 34 35 30 2c 9b  |T*150:...T*450,.|
00000ff0  b2 54 2a 31 35 30 2d 31  35 30 3a f0 38 35 2c b5  |.T*150-150:.85,.|
00001000  b2 28 54 2b 34 29 2a 34  35 30 2c 9b b2 28 54 2b  |.(T+4)*450,..(T+|
00001010  34 29 2a 31 35 30 2d 31  35 30 3a ec b5 b2 28 54  |4)*150-150:...(T|
00001020  2b 34 29 2a 34 35 30 2c  9b b2 28 54 2b 34 29 2a  |+4)*450,..(T+4)*|
00001030  31 35 30 3a f0 38 35 2c  b5 b2 54 2a 34 35 30 2c  |150:.85,..T*450,|
00001040  9b b2 54 2a 31 35 30 3a  ed 3a f2 70 69 65 28 34  |..T*150:.:.pie(4|
00001050  35 30 2c 31 35 30 29 0d  02 76 0c f2 70 72 69 6e  |50,150)..v..prin|
00001060  74 3a e1 0d 02 80 20 dd  f2 70 69 65 28 41 2c 42  |t:.... ..pie(A,B|
00001070  29 3a 73 65 63 3d 31 3a  63 6f 6c 3d 31 3a 74 6f  |):sec=1:col=1:to|
00001080  74 3d 30 0d 02 8a 78 e3  54 3d 30 20 b8 20 33 35  |t=0...x.T=0 . 35|
00001090  36 20 88 20 34 3a e7 54  3e 28 74 6f 74 2b 73 65  |6 . 4:.T>(tot+se|
000010a0  63 74 6f 72 28 73 65 63  29 29 73 65 63 3d 73 65  |ctor(sec))sec=se|
000010b0  63 2b 31 3a 63 6f 6c 3d  63 6f 6c 2b 31 3a 74 6f  |c+1:col=col+1:to|
000010c0  74 3d 74 6f 74 2b 73 65  63 74 6f 72 28 73 65 63  |t=tot+sector(sec|
000010d0  2d 31 29 3a e7 63 6f 6c  3e 33 20 63 6f 6c 3d 31  |-1):.col>3 col=1|
000010e0  3a e7 73 65 63 3d 73 65  63 74 6f 72 73 20 80 20  |:.sec=sectors . |
000010f0  63 6f 6c 3d 31 20 63 6f  6c 3d 32 0d 02 94 44 ef  |col=1 col=2...D.|
00001100  32 39 2c 36 34 30 3b 35  31 32 3b 3a e6 30 2c 63  |29,640;512;:.0,c|
00001110  6f 6c 3a ec 30 2c 30 3a  ec 20 b5 b2 54 2a 41 2c  |ol:.0,0:. ..T*A,|
00001120  9b b2 54 2a 42 3a f0 38  35 2c b5 b2 28 54 2b 34  |..T*B:.85,..(T+4|
00001130  29 2a 41 2c 9b b2 28 54  2b 34 29 2a 42 3a ed 0d  |)*A,..(T+4)*B:..|
00001140  02 9e 52 74 6f 74 3d 30  3a e3 54 3d 31 20 b8 20  |..Rtot=0:.T=1 . |
00001150  73 65 63 74 6f 72 73 3a  e7 73 65 63 74 6f 72 28  |sectors:.sector(|
00001160  54 29 2b 74 6f 74 3e 31  38 30 20 73 65 63 74 6f  |T)+tot>180 secto|
00001170  72 24 28 54 29 3d c4 a9  73 65 63 74 6f 72 24 28  |r$(T)=..sector$(|
00001180  54 29 2c bd 38 29 2b 73  65 63 74 6f 72 24 28 54  |T),.8)+sector$(T|
00001190  29 0d 02 a8 60 f2 74 69  74 6c 65 28 b5 b2 28 74  |)...`.title(..(t|
000011a0  6f 74 2b 28 73 65 63 74  6f 72 28 54 29 2f 32 29  |ot+(sector(T)/2)|
000011b0  29 2a 41 2c 9b b2 28 74  6f 74 2b 28 73 65 63 74  |)*A,..(tot+(sect|
000011c0  6f 72 28 54 29 2f 32 29  29 2a 42 2b 33 32 2c 73  |or(T)/2))*B+32,s|
000011d0  65 63 74 6f 72 24 28 54  29 29 3a 74 6f 74 3d 74  |ector$(T)):tot=t|
000011e0  6f 74 2b 73 65 63 74 6f  72 28 54 29 3a ed 3a ef  |ot+sector(T):.:.|
000011f0  34 0d 02 b2 14 ef 32 39  2c 30 3b 30 3b 33 30 2c  |4.....29,0;0;30,|
00001200  31 31 2c 31 31 0d 02 bc  2c f2 74 69 74 6c 65 28  |11,11...,.title(|
00001210  28 28 33 39 2d a9 70 74  69 74 6c 65 24 29 2f 32  |((39-.ptitle$)/2|
00001220  29 2a 33 32 2c 39 38 30  2c 70 74 69 74 6c 65 24  |)*32,980,ptitle$|
00001230  29 0d 02 c6 05 e1 0d 02  d0 42 dd f2 6c 69 6e 65  |)........B..line|
00001240  5f 64 61 74 61 3a db 3a  f2 62 6f 72 64 65 72 3a  |_data:.:.border:|
00001250  fb 33 3a f1 8a 35 2c 31  29 3b 22 44 45 46 49 4e  |.3:..5,1);"DEFIN|
00001260  49 4e 47 20 44 41 54 41  20 46 4f 52 20 4c 49 4e  |ING DATA FOR LIN|
00001270  45 20 47 52 41 50 48 22  0d 02 da a6 fb 32 3a f1  |E GRAPH".....2:.|
00001280  8a 32 2c 38 29 3b 22 57  68 61 74 20 69 73 20 74  |.2,8);"What is t|
00001290  68 65 20 73 63 61 6c 65  20 6f 66 20 74 68 65 20  |he scale of the |
000012a0  58 20 61 78 69 73 20 3a  22 3a e8 8a 32 2c 31 30  |X axis :":..2,10|
000012b0  29 78 73 63 61 6c 65 3a  f1 8a 32 2c 38 29 3b c4  |)xscale:..2,8);.|
000012c0  36 30 2c 22 20 22 29 3a  f1 8a 32 2c 31 30 29 3b  |60," "):..2,10);|
000012d0  22 58 20 61 78 69 73 20  73 63 61 6c 65 20 2d 20  |"X axis scale - |
000012e0  22 3b 78 73 63 61 6c 65  3a 78 6d 61 78 3d 78 73  |";xscale:xmax=xs|
000012f0  63 61 6c 65 2a 31 39 3a  f1 8a 32 2c 31 32 29 3b  |cale*19:..2,12);|
00001300  22 4d 61 78 20 68 65 69  67 68 74 20 6f 6e 20 58  |"Max height on X|
00001310  20 61 78 69 73 20 2d 20  22 3b 78 6d 61 78 0d 02  | axis - ";xmax..|
00001320  e4 a5 f1 8a 32 2c 31 36  29 3b 22 57 68 61 74 20  |....2,16);"What |
00001330  69 73 20 74 68 65 20 73  63 61 6c 65 20 6f 66 20  |is the scale of |
00001340  74 68 65 20 59 20 61 78  69 73 20 3a 22 3a e8 8a  |the Y axis :":..|
00001350  32 2c 31 38 29 79 73 63  61 6c 65 3a f1 8a 32 2c  |2,18)yscale:..2,|
00001360  31 36 29 3b c4 36 30 2c  22 20 22 29 3a f1 8a 32  |16);.60," "):..2|
00001370  2c 31 38 29 3b 22 59 20  61 78 69 73 20 73 63 61  |,18);"Y axis sca|
00001380  6c 65 20 2d 20 22 3b 79  73 63 61 6c 65 3a 79 6d  |le - ";yscale:ym|
00001390  61 78 3d 79 73 63 61 6c  65 2a 31 35 3a f1 8a 32  |ax=yscale*15:..2|
000013a0  2c 32 30 29 3b 22 4d 61  78 20 68 65 69 67 68 74  |,20);"Max height|
000013b0  20 6f 6e 20 59 20 61 78  69 73 20 2d 20 22 3b 79  | on Y axis - ";y|
000013c0  6d 61 78 0d 02 ee 69 f1  8a 32 2c 32 33 29 3b 22  |max...i..2,23);"|
000013d0  4f 6b 61 79 20 28 59 2f  4e 29 22 3a f5 41 24 3d  |Okay (Y/N)":.A$=|
000013e0  be 3a fd 41 24 3d 22 59  22 84 41 24 3d 22 4e 22  |.:.A$="Y".A$="N"|
000013f0  3a f1 8a 32 2c 31 33 29  3b c4 31 30 2c 22 20 22  |:..2,13);.10," "|
00001400  29 3a ef 32 38 2c 31 2c  33 30 2c 33 38 2c 35 3a  |):.28,1,30,38,5:|
00001410  db 3a ef 32 38 2c 31 2c  33 30 2c 33 38 2c 31 3a  |.:.28,1,30,38,1:|
00001420  e7 41 24 3d 22 4e 22 e5  8d 64 5a 42 0d 02 f8 1e  |.A$="N"..dZB....|
00001430  f1 8a 32 2c 38 29 3b 22  48 6f 77 20 6d 61 6e 79  |..2,8);"How many|
00001440  20 70 6f 69 6e 74 73 20  3a 22 0d 03 02 14 e8 8a  | points :"......|
00001450  32 2c 31 30 29 3b 22 22  70 6f 69 6e 74 73 0d 03  |2,10);""points..|
00001460  0c 4f e7 70 6f 69 6e 74  73 3c 31 20 84 20 70 6f  |.O.points<1 . po|
00001470  69 6e 74 73 3e 34 30 20  f1 27 27 22 53 69 6c 6c  |ints>40 .''"Sill|
00001480  79 22 3a ef 37 3a f5 fd  a5 3a ef 32 38 2c 31 2c  |y":.7:...:.28,1,|
00001490  33 30 2c 33 38 2c 35 3a  db 3a ef 32 38 2c 31 2c  |30,38,5:.:.28,1,|
000014a0  33 30 2c 33 39 2c 31 3a  e5 8d 64 78 42 0d 03 16  |30,39,1:..dxB...|
000014b0  2f ef 32 38 2c 31 2c 33  30 2c 33 38 2c 35 3a e3  |/.28,1,30,38,5:.|
000014c0  54 3d 31 20 b8 20 70 6f  69 6e 74 73 3a db 3a f1  |T=1 . points:.:.|
000014d0  27 22 50 6f 69 6e 74 20  22 3b 54 27 0d 03 20 54  |'"Point ";T'.. T|
000014e0  e8 22 58 20 61 78 69 73  20 3a 20 22 70 6f 69 6e  |."X axis : "poin|
000014f0  74 58 28 54 29 3a e7 70  6f 69 6e 74 58 28 54 29  |tX(T):.pointX(T)|
00001500  3c 30 20 84 20 70 6f 69  6e 74 58 28 54 29 3e 78  |<0 . pointX(T)>x|
00001510  6d 61 78 20 f1 bd 31 31  3b c4 36 30 2c 22 20 22  |max ..11;.60," "|
00001520  29 3a ef 37 2c 31 31 2c  31 31 3a e5 8d 54 60 43  |):.7,11,11:..T`C|
00001530  0d 03 2a 54 e8 22 59 20  61 78 69 73 20 3a 20 22  |..*T."Y axis : "|
00001540  70 6f 69 6e 74 59 28 54  29 3a e7 70 6f 69 6e 74  |pointY(T):.point|
00001550  59 28 54 29 3c 30 20 84  20 70 6f 69 6e 74 59 28  |Y(T)<0 . pointY(|
00001560  54 29 3e 79 6d 61 78 20  f1 bd 31 31 3b c4 36 30  |T)>ymax ..11;.60|
00001570  2c 22 20 22 29 3a ef 37  2c 31 31 2c 31 31 3a e5  |," "):.7,11,11:.|
00001580  8d 54 6a 43 0d 03 34 05  ed 0d 03 3e 50 ef 32 38  |.TjC..4....>P.28|
00001590  2c 31 2c 33 30 2c 33 38  2c 35 3a db 3a f1 8a 30  |,1,30,38,5:.:..0|
000015a0  2c 32 29 3b 22 57 68 61  74 20 69 73 20 74 68 65  |,2);"What is the|
000015b0  20 74 69 74 6c 65 20 6f  66 20 74 68 65 20 6c 69  | title of the li|
000015c0  6e 65 20 67 72 61 70 68  20 3a 22 3a e8 8a 30 2c  |ne graph :":..0,|
000015d0  34 29 6c 74 69 74 6c 65  24 0d 03 48 2c db 3a e7  |4)ltitle$..H,.:.|
000015e0  a9 6c 74 69 74 6c 65 24  3e 33 37 20 f1 27 22 54  |.ltitle$>37 .'"T|
000015f0  6f 6f 20 6c 6f 6e 67 22  3a ef 37 3a f5 fd a5 3a  |oo long":.7:...:|
00001600  e5 8d 54 7e 43 0d 03 52  5a db 3a f1 8a 30 2c 32  |..T~C..RZ.:..0,2|
00001610  29 3b 22 57 68 61 74 20  69 73 20 74 68 65 20 58  |);"What is the X|
00001620  20 61 78 69 73 20 63 61  6c 6c 65 64 20 3a 22 3a  | axis called :":|
00001630  e8 27 22 22 6c 78 61 78  69 73 24 3a e7 a9 6c 78  |.'""lxaxis$:..lx|
00001640  61 78 69 73 24 3e 33 37  20 f1 27 22 54 6f 6f 20  |axis$>37 .'"Too |
00001650  4c 6f 6e 67 22 3a f5 fd  a5 3a e5 8d 44 52 43 0d  |Long":...:..DRC.|
00001660  03 5c 5a db 3a f1 8a 30  2c 32 29 3b 22 57 68 61  |.\Z.:..0,2);"Wha|
00001670  74 20 69 73 20 74 68 65  20 59 20 61 78 69 73 20  |t is the Y axis |
00001680  63 61 6c 6c 65 64 20 3a  22 3a e8 27 22 22 6c 79  |called :":.'""ly|
00001690  61 78 69 73 24 3a e7 a9  6c 79 61 78 69 73 24 3e  |axis$:..lyaxis$>|
000016a0  32 36 20 f1 27 22 54 6f  6f 20 4c 6f 6e 67 22 3a  |26 .'"Too Long":|
000016b0  f5 fd a5 3a e5 8d 44 5c  43 0d 03 66 53 e3 54 3d  |...:..D\C..fS.T=|
000016c0  31 20 b8 20 70 6f 69 6e  74 73 3a 70 6f 69 6e 74  |1 . points:point|
000016d0  58 28 54 29 3d 28 70 6f  69 6e 74 58 28 54 29 2f  |X(T)=(pointX(T)/|
000016e0  78 73 63 61 6c 65 2a 35  30 29 3a 70 6f 69 6e 74  |xscale*50):point|
000016f0  59 28 54 29 3d 28 70 6f  69 6e 74 59 28 54 29 2f  |Y(T)=(pointY(T)/|
00001700  79 73 63 61 6c 65 2a 35  30 29 3a ed 0d 03 70 16  |yscale*50):...p.|
00001710  ef 32 36 3a db 3a 6c 69  6e 65 64 61 74 61 3d b9  |.26:.:linedata=.|
00001720  3a e1 0d 03 7a 0a dd f2  6c 69 6e 65 0d 03 84 4d  |:...z...line...M|
00001730  ef 32 36 3a db 3a e6 30  2c 33 3a ec 32 34 30 2c  |.26:.:.0,3:.240,|
00001740  31 30 30 30 3a df 32 34  30 2c 32 30 30 3a df 31  |1000:.240,200:.1|
00001750  32 34 30 2c 32 30 30 3a  e3 54 3d 32 30 30 20 b8  |240,200:.T=200 .|
00001760  20 39 35 30 20 88 20 35  30 3a ec 32 34 30 2c 54  | 950 . 50:.240,T|
00001770  3a df 32 32 30 2c 54 3a  ed 0d 03 8e 26 e3 54 3d  |:.220,T:....&.T=|
00001780  32 34 30 20 b8 20 31 31  39 30 20 88 20 35 30 3a  |240 . 1190 . 50:|
00001790  ec 54 2c 32 30 30 3a df  54 2c 31 38 30 3a ed 0d  |.T,200:.T,180:..|
000017a0  03 98 52 e6 30 2c 32 3a  ec 70 6f 69 6e 74 58 28  |..R.0,2:.pointX(|
000017b0  31 29 2b 32 34 30 2c 70  6f 69 6e 74 59 28 31 29  |1)+240,pointY(1)|
000017c0  2b 32 30 30 3a e3 54 3d  32 20 b8 20 70 6f 69 6e  |+200:.T=2 . poin|
000017d0  74 73 3a df 70 6f 69 6e  74 58 28 54 29 2b 32 34  |ts:.pointX(T)+24|
000017e0  30 2c 70 6f 69 6e 74 59  28 54 29 2b 32 30 30 3a  |0,pointY(T)+200:|
000017f0  ed 0d 03 a2 36 e6 30 2c  33 3a ef 35 3a e3 54 3d  |....6.0,3:.5:.T=|
00001800  31 20 b8 20 31 36 3a ec  2d 31 32 30 2c 28 54 2a  |1 . 16:.-120,(T*|
00001810  35 30 29 2b 31 36 34 3a  f1 28 54 2d 31 29 2a 79  |50)+164:.(T-1)*y|
00001820  73 63 61 6c 65 3a ed 0d  03 ac 32 e3 54 3d 32 34  |scale:....2.T=24|
00001830  30 20 b8 20 31 31 39 30  20 88 20 35 30 3a 6e 75  |0 . 1190 . 50:nu|
00001840  6d 24 3d c3 28 78 73 63  61 6c 65 2a 28 28 54 2d  |m$=.(xscale*((T-|
00001850  32 34 30 29 2f 35 30 29  29 0d 03 b6 39 e3 4c 3d  |240)/50))...9.L=|
00001860  31 20 b8 20 a9 6e 75 6d  24 3a ec 54 2d 31 36 2c  |1 . .num$:.T-16,|
00001870  31 39 32 2d 28 4c 2a 33  32 29 3a f1 c1 6e 75 6d  |192-(L*32):..num|
00001880  24 2c 4c 2c 31 29 3a ed  4c 3a ed 54 3a ef 34 3a  |$,L,1):.L:.T:.4:|
00001890  fb 33 0d 03 c0 6c f1 8a  30 2c 33 31 29 3a f1 8a  |.3...l..0,31):..|
000018a0  28 33 39 2d a9 6c 78 61  78 69 73 24 29 2f 32 2c  |(39-.lxaxis$)/2,|
000018b0  33 31 29 6c 78 61 78 69  73 24 3b 3a 73 74 61 72  |31)lxaxis$;:star|
000018c0  74 3d 28 32 39 2d a9 6c  79 61 78 69 73 24 29 2f  |t=(29-.lyaxis$)/|
000018d0  32 3a e3 54 3d 31 20 b8  20 a9 6c 79 61 78 69 73  |2:.T=1 . .lyaxis|
000018e0  24 3a f1 8a 30 2c 54 2b  73 74 61 72 74 29 3b c1  |$:..0,T+start);.|
000018f0  6c 79 61 78 69 73 24 2c  54 2c 31 29 3a ed 0d 03  |lyaxis$,T,1):...|
00001900  ca 3c f2 74 69 74 6c 65  28 28 28 33 39 2d a9 6c  |.<.title(((39-.l|
00001910  74 69 74 6c 65 24 29 2f  32 29 2a 33 32 2c 31 30  |title$)/2)*32,10|
00001920  32 30 2c 6c 74 69 74 6c  65 24 29 3a f2 70 72 69  |20,ltitle$):.pri|
00001930  6e 74 3a ef 32 36 3a db  3a e1 0d 03 d4 0a dd f2  |nt:.26:.:.......|
00001940  64 75 6d 70 0d 03 de 0a  20 d6 26 43 30 30 0d 03  |dump.... .&C00..|
00001950  e8 05 e1 0d 03 f2 0e dd  f2 64 75 6d 70 69 6e 69  |.........dumpini|
00001960  74 0d 03 fc 2b 20 6f 73  77 72 63 68 3d 26 46 46  |t...+ oswrch=&FF|
00001970  45 45 3a 6f 73 62 79 74  65 3d 26 46 46 46 34 3a  |EE:osbyte=&FFF4:|
00001980  6f 73 77 6f 72 64 3d 26  46 46 46 31 0d 04 06 1a  |osword=&FFF1....|
00001990  20 78 3d 26 37 30 3a 79  3d 26 37 32 3a 62 6c 6f  | x=&70:y=&72:blo|
000019a0  63 6b 3d 26 38 30 0d 04  10 15 20 e3 20 70 61 73  |ck=&80.... . pas|
000019b0  73 3d 30 20 b8 20 32 20  88 20 32 0d 04 1a 0c 20  |s=0 . 2 . 2.... |
000019c0  50 25 3d 26 43 30 30 0d  04 24 0f 20 5b 20 4f 50  |P%=&C00..$. [ OP|
000019d0  54 20 70 61 73 73 0d 04  2e 1e 20 4c 44 41 20 23  |T pass.... LDA #|
000019e0  32 36 3a 4a 53 52 20 6f  73 77 72 63 68 20 20 5c  |26:JSR oswrch  \|
000019f0  ef 20 32 36 0d 04 38 32  20 4c 44 41 20 23 36 3a  |. 26..82 LDA #6:|
00001a00  4c 44 58 20 23 32 35 35  3a 4c 44 59 20 23 30 3a  |LDX #255:LDY #0:|
00001a10  4a 53 52 20 6f 73 62 79  74 65 20 20 5c 2a 46 58  |JSR osbyte  \*FX|
00001a20  20 36 2c 32 35 35 0d 04  42 2e 20 4c 44 41 20 23  | 6,255..B. LDA #|
00001a30  33 3a 4c 44 58 20 23 31  30 3a 4c 44 59 20 23 30  |3:LDX #10:LDY #0|
00001a40  3a 4a 53 52 20 6f 73 62  79 74 65 20 5c 2a 46 58  |:JSR osbyte \*FX|
00001a50  33 2c 31 30 0d 04 4c 47  20 4c 44 41 20 23 32 37  |3,10..LG LDA #27|
00001a60  3a 4a 53 52 20 6f 73 77  72 63 68 3a 4c 44 41 20  |:JSR oswrch:LDA |
00001a70  23 38 35 3a 4a 53 52 20  6f 73 77 72 63 68 3a 4c  |#85:JSR oswrch:L|
00001a80  44 41 20 23 31 3a 4a 53  52 20 6f 73 77 72 63 68  |DA #1:JSR oswrch|
00001a90  20 5c ef 20 32 37 2c 38  35 2c 31 0d 04 56 47 20  | \. 27,85,1..VG |
00001aa0  4c 44 41 20 23 32 37 3a  4a 53 52 20 6f 73 77 72  |LDA #27:JSR oswr|
00001ab0  63 68 3a 4c 44 41 20 23  36 35 3a 4a 53 52 20 6f  |ch:LDA #65:JSR o|
00001ac0  73 77 72 63 68 3a 4c 44  41 20 23 32 3a 4a 53 52  |swrch:LDA #2:JSR|
00001ad0  20 6f 73 77 72 63 68 20  5c ef 20 32 37 2c 36 35  | oswrch \. 27,65|
00001ae0  2c 32 0d 04 60 39 20 4c  44 41 20 23 31 30 32 30  |,2..`9 LDA #1020|
00001af0  20 83 32 35 36 3a 53 54  41 20 79 3a 4c 44 41 20  | .256:STA y:LDA |
00001b00  23 31 30 32 30 20 81 32  35 36 3a 53 54 41 20 79  |#1020 .256:STA y|
00001b10  2b 31 20 20 5c 79 3d 31  30 32 30 0d 04 6a 0a 20  |+1  \y=1020..j. |
00001b20  2e 6c 6f 6f 70 0d 04 74  1d 20 4c 44 41 20 23 31  |.loop..t. LDA #1|
00001b30  30 3a 4a 53 52 20 6f 73  77 72 63 68 20 5c ef 20  |0:JSR oswrch \. |
00001b40  31 30 0d 04 7e 77 20 4c  44 41 20 23 32 37 3a 4a  |10..~w LDA #27:J|
00001b50  53 52 20 6f 73 77 72 63  68 3a 4c 44 41 20 23 37  |SR oswrch:LDA #7|
00001b60  36 3a 4a 53 52 20 6f 73  77 72 63 68 3a 4c 44 41  |6:JSR oswrch:LDA|
00001b70  20 23 39 36 30 20 83 32  35 36 3a 4a 53 52 20 6f  | #960 .256:JSR o|
00001b80  73 77 72 63 68 3a 4c 44  41 20 23 39 36 30 20 81  |swrch:LDA #960 .|
00001b90  32 35 36 3a 4a 53 52 20  6f 73 77 72 63 68 20 5c  |256:JSR oswrch \|
00001ba0  ef 20 32 37 2c 37 36 2c  39 36 30 20 83 32 35 36  |. 27,76,960 .256|
00001bb0  2c 39 36 30 20 81 32 35  36 0d 04 88 1f 20 4c 44  |,960 .256.... LD|
00001bc0  41 20 23 30 3a 53 54 41  20 78 3a 53 54 41 20 78  |A #0:STA x:STA x|
00001bd0  2b 31 20 20 5c 78 3d 30  0d 04 92 0b 20 2e 6c 6f  |+1  \x=0.... .lo|
00001be0  6f 70 31 0d 04 9c 28 20  4c 44 41 20 78 3a 53 54  |op1...( LDA x:ST|
00001bf0  41 20 62 6c 6f 63 6b 3a  4c 44 41 20 78 2b 31 3a  |A block:LDA x+1:|
00001c00  53 54 41 20 62 6c 6f 63  6b 2b 31 0d 04 a6 2a 20  |STA block+1...* |
00001c10  4c 44 41 20 79 3a 53 54  41 20 62 6c 6f 63 6b 2b  |LDA y:STA block+|
00001c20  32 3a 4c 44 41 20 79 2b  31 3a 53 54 41 20 62 6c  |2:LDA y+1:STA bl|
00001c30  6f 63 6b 2b 33 0d 04 b0  3e 20 4c 44 41 20 23 39  |ock+3...> LDA #9|
00001c40  3a 4c 44 58 20 23 62 6c  6f 63 6b 20 83 32 35 36  |:LDX #block .256|
00001c50  3a 4c 44 59 20 23 62 6c  6f 63 6b 20 81 32 35 36  |:LDY #block .256|
00001c60  3a 4a 53 52 20 6f 73 77  6f 72 64 20 20 5c 50 4f  |:JSR osword  \PO|
00001c70  49 4e 54 0d 04 ba 30 20  4c 44 41 20 62 6c 6f 63  |INT...0 LDA bloc|
00001c80  6b 2b 34 3a 80 20 23 37  3a 54 41 58 3a 4c 44 59  |k+4:. #7:TAX:LDY|
00001c90  20 6d 75 6c 74 2c 58 20  20 5c 59 3d 50 4f 49 4e  | mult,X  \Y=POIN|
00001ca0  54 2a 36 0d 04 c4 0b 20  4c 44 58 20 23 33 0d 04  |T*6.... LDX #3..|
00001cb0  ce 0b 20 2e 6c 6f 6f 70  32 0d 04 d8 1a 20 4c 44  |.. .loop2.... LD|
00001cc0  41 20 64 61 74 61 2c 59  3a 4a 53 52 20 6f 73 77  |A data,Y:JSR osw|
00001cd0  72 63 68 0d 04 e2 16 20  49 4e 59 3a 44 45 58 3a  |rch.... INY:DEX:|
00001ce0  42 4e 45 20 6c 6f 6f 70  32 0d 04 ec 3a 20 43 4c  |BNE loop2...: CL|
00001cf0  43 3a 4c 44 41 20 78 3a  41 44 43 20 23 34 3a 53  |C:LDA x:ADC #4:S|
00001d00  54 41 20 78 3a 4c 44 41  20 78 2b 31 3a 41 44 43  |TA x:LDA x+1:ADC|
00001d10  20 23 30 3a 53 54 41 20  78 2b 31 20 20 5c 78 3d  | #0:STA x+1  \x=|
00001d20  78 2b 34 0d 04 f6 1d 20  43 4d 50 20 23 31 32 38  |x+4.... CMP #128|
00001d30  30 20 81 32 35 36 3a 42  4e 45 20 6c 6f 6f 70 31  |0 .256:BNE loop1|
00001d40  0d 05 00 3a 20 53 45 43  3a 4c 44 41 20 79 3a 53  |...: SEC:LDA y:S|
00001d50  42 43 20 23 34 3a 53 54  41 20 79 3a 4c 44 41 20  |BC #4:STA y:LDA |
00001d60  79 2b 31 3a 53 42 43 20  23 30 3a 53 54 41 20 79  |y+1:SBC #0:STA y|
00001d70  2b 31 20 20 5c 79 3d 79  2d 34 0d 05 0a 0d 20 42  |+1  \y=y-4.... B|
00001d80  4e 45 20 6c 6f 6f 70 0d  05 14 13 20 4c 44 41 20  |NE loop.... LDA |
00001d90  79 3a 42 4e 45 20 6c 6f  6f 70 0d 05 1e 2d 20 4c  |y:BNE loop...- L|
00001da0  44 41 20 23 33 3a 4c 44  58 20 23 34 3a 4c 44 59  |DA #3:LDX #4:LDY|
00001db0  20 23 30 3a 4a 4d 50 20  6f 73 62 79 74 65 20 20  | #0:JMP osbyte  |
00001dc0  5c 2a 46 58 33 2c 34 0d  05 28 05 20 0d 05 32 0a  |\*FX3,4..(. ..2.|
00001dd0  20 2e 6d 75 6c 74 0d 05  3c 26 20 45 51 55 42 20  | .mult..<& EQUB |
00001de0  30 3a 45 51 55 42 20 35  2a 36 3a 45 51 55 42 20  |0:EQUB 5*6:EQUB |
00001df0  36 2a 36 3a 45 51 55 42  20 37 2a 36 0d 05 46 05  |6*6:EQUB 7*6..F.|
00001e00  20 0d 05 50 0a 20 2e 64  61 74 61 0d 05 5a 2e 20  | ..P. .data..Z. |
00001e10  45 51 55 42 20 30 3a 45  51 55 42 20 30 3a 45 51  |EQUB 0:EQUB 0:EQ|
00001e20  55 42 20 30 3a 45 51 55  42 20 30 3a 45 51 55 42  |UB 0:EQUB 0:EQUB|
00001e30  20 30 3a 45 51 55 42 20  30 0d 05 64 2e 20 45 51  | 0:EQUB 0..d. EQ|
00001e40  55 42 20 30 3a 45 51 55  42 20 31 3a 45 51 55 42  |UB 0:EQUB 1:EQUB|
00001e50  20 30 3a 45 51 55 42 20  30 3a 45 51 55 42 20 31  | 0:EQUB 0:EQUB 1|
00001e60  3a 45 51 55 42 20 30 0d  05 6e 2e 20 45 51 55 42  |:EQUB 0..n. EQUB|
00001e70  20 31 3a 45 51 55 42 20  30 3a 45 51 55 42 20 32  | 1:EQUB 0:EQUB 2|
00001e80  3a 45 51 55 42 20 32 3a  45 51 55 42 20 30 3a 45  |:EQUB 2:EQUB 0:E|
00001e90  51 55 42 20 31 0d 05 78  2e 20 45 51 55 42 20 30  |QUB 1..x. EQUB 0|
00001ea0  3a 45 51 55 42 20 33 3a  45 51 55 42 20 30 3a 45  |:EQUB 3:EQUB 0:E|
00001eb0  51 55 42 20 30 3a 45 51  55 42 20 33 3a 45 51 55  |QUB 0:EQUB 3:EQU|
00001ec0  42 20 30 0d 05 82 2e 20  45 51 55 42 20 31 3a 45  |B 0.... EQUB 1:E|
00001ed0  51 55 42 20 31 3a 45 51  55 42 20 31 3a 45 51 55  |QUB 1:EQUB 1:EQU|
00001ee0  42 20 31 3a 45 51 55 42  20 31 3a 45 51 55 42 20  |B 1:EQUB 1:EQUB |
00001ef0  31 0d 05 8c 2e 20 45 51  55 42 20 33 3a 45 51 55  |1.... EQUB 3:EQU|
00001f00  42 20 30 3a 45 51 55 42  20 33 3a 45 51 55 42 20  |B 0:EQUB 3:EQUB |
00001f10  30 3a 45 51 55 42 20 33  3a 45 51 55 42 20 30 0d  |0:EQUB 3:EQUB 0.|
00001f20  05 96 2e 20 45 51 55 42  20 31 3a 45 51 55 42 20  |... EQUB 1:EQUB |
00001f30  33 3a 45 51 55 42 20 32  3a 45 51 55 42 20 31 3a  |3:EQUB 2:EQUB 1:|
00001f40  45 51 55 42 20 33 3a 45  51 55 42 20 32 0d 05 a0  |EQUB 3:EQUB 2...|
00001f50  2e 20 45 51 55 42 20 33  3a 45 51 55 42 20 33 3a  |. EQUB 3:EQUB 3:|
00001f60  45 51 55 42 20 33 3a 45  51 55 42 20 33 3a 45 51  |EQUB 3:EQUB 3:EQ|
00001f70  55 42 20 33 3a 45 51 55  42 20 33 0d 05 aa 06 20  |UB 3:EQUB 3.... |
00001f80  5d 0d 05 b4 06 20 ed 0d  05 be 22 2a 4b 45 59 30  |].... ...."*KEY0|
00001f90  22 44 45 4c 2e 31 30 31  30 2c 31 34 37 30 7c 4d  |"DEL.1010,1470|M|
00001fa0  47 4f 54 4f 31 30 7c 4d  22 0d 05 c8 10 2a 46 58  |GOTO10|M"....*FX|
00001fb0  31 33 38 2c 30 2c 31 32  38 0d ff                 |138,0,128..|
00001fbb
TAPE3/B/GRAPHDUMP.m0
TAPE3/B/GRAPHDUMP.m1
TAPE3/B/GRAPHDUMP.m2
TAPE3/B/GRAPHDUMP.m4
TAPE3/B/GRAPHDUMP.m5

© Dominic Ford 2021–2024.

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