00000000  72 69 6e 74 3a ec 34 38  30 2c 38 33 30 3a e6 34  |rint:.480,830:.4|
00000010  2c 30 3a ef 35 3a f1 22  50 72 69 6e 74 20 28 59  |,0:.5:."Print (Y|
00000020  2f 4e 29 22 3a ff 22 46  58 31 35 22 3a f5 41 24  |/N)":."FX15":.A$|
00000030  3d be 3a fd 41 24 3d 22  59 22 20 84 20 41 24 3d  |=.:.A$="Y" . A$=|
00000040  22 4e 22 3a ec 34 38 30  2c 38 33 30 3a f1 22 50  |"N":.480,830:."P|
00000050  72 69 6e 74 20 28 59 2f  4e 29 22 3a ef 34 3a e7  |rint (Y/N)":.4:.|
00000060  41 24 3d 22 59 22 20 f2  64 75 6d 70 3a e1 20 8b  |A$="Y" .dump:. .|
00000070  20 e1 0d 02 08 36 dd f2  63 6f 6e 76 65 72 74 3a  | ....6..convert:|
00000080  e3 54 3d 31 20 b8 20 62  61 72 73 3a 62 61 72 28  |.T=1 . bars:bar(|
00000090  54 29 3d 28 62 61 72 28  54 29 2f 73 63 61 6c 65  |T)=(bar(T)/scale|
000000a0  2a 35 30 29 3a ed 3a e1  0d 02 12 40 dd f2 70 69  |*50):.:....@..pi|
000000b0  65 5f 64 61 74 61 3a db  3a f2 62 6f 72 64 65 72  |e_data:.:.border|
000000c0  3a fb 33 3a f1 8a 35 2c  31 29 3b 22 44 45 46 49  |:.3:..5,1);"DEFI|
000000d0  4e 49 4e 47 20 44 41 54  41 20 46 4f 52 20 50 49  |NING DATA FOR PI|
000000e0  45 20 43 48 41 52 54 22  0d 02 1c 82 fb 32 3a f1  |E CHART".....2:.|
000000f0  8a 32 2c 38 29 3b 22 48  6f 77 20 6d 61 6e 79 20  |.2,8);"How many |
00000100  73 65 63 74 6f 72 73 20  3a 22 3a e8 8a 32 2c 31  |sectors :":..2,1|
00000110  30 29 22 22 73 65 63 74  6f 72 73 3a e7 73 65 63  |0)""sectors:.sec|
00000120  74 6f 72 73 3c 31 20 84  20 73 65 63 74 6f 72 73  |tors<1 . sectors|
00000130  3e 34 30 20 ef 37 3a f1  27 22 20 20 53 69 6c 6c  |>40 .7:.'"  Sill|
00000140  79 22 3a f5 fd a5 3a ef  32 38 2c 31 2c 33 30 2c  |y":...:.28,1,30,|
00000150  33 38 2c 35 3a db 3a ef  32 38 2c 31 2c 33 30 2c  |38,5:.:.28,1,30,|
00000160  33 38 2c 31 3a e5 8d 54  5c 42 0d 02 26 12 e3 54  |38,1:..T\B..&..T|
00000170  3d 31 20 b8 20 73 65 63  74 6f 72 73 0d 02 30 5a  |=1 . sectors..0Z|
00000180  db 3a f1 27 22 53 65 63  74 6f 72 20 22 3b 54 3a  |.:.'"Sector ";T:|
00000190  e8 27 22 4e 61 6d 65 20  28 4d 61 78 20 6c 65 6e  |.'"Name (Max len|
000001a0  67 74 68 20 3a 20 36 20  6c 65 74 74 65 72 73 29  |gth : 6 letters)|
000001b0  20 3a 20 22 73 65 63 74  6f 72 24 28 54 29 3a e7  | : "sector$(T):.|
000001c0  a9 73 65 63 74 6f 72 24  28 54 29 3e 36 20 ef 37  |.sector$(T)>6 .7|
000001d0  3a e5 8d 54 70 42 0d 02  3a 80 e8 27 22 53 69 7a  |:..TpB..:..'"Siz|
000001e0  65 20 3a 20 22 73 65 63  74 6f 72 28 54 29 3a ed  |e : "sector(T):.|
000001f0  3a 74 6f 74 61 6c 3d 30  3a e3 54 3d 31 20 b8 20  |:total=0:.T=1 . |
00000200  73 65 63 74 6f 72 73 3a  74 6f 74 61 6c 3d 74 6f  |sectors:total=to|
00000210  74 61 6c 2b 73 65 63 74  6f 72 28 54 29 3a ed 3a  |tal+sector(T):.:|
00000220  6f 6e 65 3d 33 36 30 2f  74 6f 74 61 6c 3a e3 54  |one=360/total:.T|
00000230  3d 31 20 b8 20 73 65 63  74 6f 72 73 3a 73 65 63  |=1 . sectors:sec|
00000240  74 6f 72 28 54 29 3d 73  65 63 74 6f 72 28 54 29  |tor(T)=sector(T)|
00000250  2a 6f 6e 65 3a ed 0d 02  44 63 db 3a f1 8a 30 2c  |*one:...Dc.:..0,|
00000260  32 29 3b 22 57 68 61 74  20 69 73 20 74 68 65 20  |2);"What is the |
00000270  74 69 74 6c 65 20 6f 66  20 74 68 65 20 50 69 65  |title of the Pie|
00000280  20 63 68 61 72 74 20 3a  22 3a e8 27 22 22 70 74  | chart :":.'""pt|
00000290  69 74 6c 65 24 3a e7 a9  70 74 69 74 6c 65 24 3e  |itle$:..ptitle$>|
000002a0  33 37 20 f1 27 22 54 6f  6f 20 4c 6f 6e 67 22 3a  |37 .'"Too Long":|
000002b0  f5 fd a5 3a e5 8d 44 44  42 0d 02 4e 0f 70 69 65  |...:..DDB..N.pie|
000002c0  64 61 74 61 3d b9 3a e1  0d 02 58 46 dd f2 6e 6f  |data=.:...XF..no|
000002d0  72 6d 5f 70 69 65 3a 73  65 63 3d 31 3a 63 6f 6c  |rm_pie:sec=1:col|
000002e0  3d 31 3a 74 6f 74 3d 30  3a ef 32 36 3a db 3a f2  |=1:tot=0:.26:.:.|
000002f0  70 69 65 28 34 35 30 2c  34 35 30 29 3a ef 32 39  |pie(450,450):.29|
00000300  2c 30 3b 30 3b 3a f2 70  72 69 6e 74 3a e1 0d 02  |,0;0;:.print:...|
00000310  62 98 dd f2 74 5f 70 69  65 3a 73 65 63 3d 31 3a  |b...t_pie:sec=1:|
00000320  63 6f 6c 3d 31 3a 74 6f  74 3d 30 3a ef 32 36 3a  |col=1:tot=0:.26:|
00000330  db 3a e3 54 3d 30 20 b8  20 32 36 36 20 88 20 34  |.:.T=0 . 266 . 4|
00000340  3a e7 54 3e 28 74 6f 74  2b 73 65 63 74 6f 72 28  |:.T>(tot+sector(|
00000350  73 65 63 29 29 73 65 63  3d 73 65 63 2b 31 3a 63  |sec))sec=sec+1:c|
00000360  6f 6c 3d 63 6f 6c 2b 31  3a 74 6f 74 3d 74 6f 74  |ol=col+1:tot=tot|
00000370  2b 73 65 63 74 6f 72 28  73 65 63 2d 31 29 3a e7  |+sector(sec-1):.|
00000380  63 6f 6c 3e 33 20 63 6f  6c 3d 31 3a e7 73 65 63  |col>3 col=1:.sec|
00000390  3d 73 65 63 74 6f 72 73  20 80 20 63 6f 6c 3d 31  |=sectors . col=1|
000003a0  20 63 6f 6c 3d 32 0d 02  6c 9a ef 32 39 2c 36 34  | col=2..l..29,64|
000003b0  30 3b 35 31 32 3b 3a e6  30 2c 63 6f 6c 3a ec b5  |0;512;:.0,col:..|
000003c0  b2 54 2a 34 35 30 2c 9b  b2 54 2a 31 35 30 3a ec  |.T*450,..T*150:.|
000003d0  b5 b2 54 2a 34 35 30 2c  9b b2 54 2a 31 35 30 2d  |..T*450,..T*150-|
000003e0  31 35 30 3a f0 38 35 2c  b5 b2 28 54 2b 34 29 2a  |150:.85,..(T+4)*|
000003f0  34 35 30 2c 9b b2 28 54  2b 34 29 2a 31 35 30 2d  |450,..(T+4)*150-|
00000400  31 35 30 3a ec b5 b2 28  54 2b 34 29 2a 34 35 30  |150:...(T+4)*450|
00000410  2c 9b b2 28 54 2b 34 29  2a 31 35 30 3a f0 38 35  |,..(T+4)*150:.85|
00000420  2c b5 b2 54 2a 34 35 30  2c 9b b2 54 2a 31 35 30  |,..T*450,..T*150|
00000430  3a ed 3a f2 70 69 65 28  34 35 30 2c 31 35 30 29  |:.:.pie(450,150)|
00000440  0d 02 76 0c f2 70 72 69  6e 74 3a e1 0d 02 80 20  |..v..print:.... |
00000450  dd f2 70 69 65 28 41 2c  42 29 3a 73 65 63 3d 31  |..pie(A,B):sec=1|
00000460  3a 63 6f 6c 3d 31 3a 74  6f 74 3d 30 0d 02 8a 78  |:col=1:tot=0...x|
00000470  e3 54 3d 30 20 b8 20 33  35 36 20 88 20 34 3a e7  |.T=0 . 356 . 4:.|
00000480  54 3e 28 74 6f 74 2b 73  65 63 74 6f 72 28 73 65  |T>(tot+sector(se|
00000490  63 29 29 73 65 63 3d 73  65 63 2b 31 3a 63 6f 6c  |c))sec=sec+1:col|
000004a0  3d 63 6f 6c 2b 31 3a 74  6f 74 3d 74 6f 74 2b 73  |=col+1:tot=tot+s|
000004b0  65 63 74 6f 72 28 73 65  63 2d 31 29 3a e7 63 6f  |ector(sec-1):.co|
000004c0  6c 3e 33 20 63 6f 6c 3d  31 3a e7 73 65 63 3d 73  |l>3 col=1:.sec=s|
000004d0  65 63 74 6f 72 73 20 80  20 63 6f 6c 3d 31 20 63  |ectors . col=1 c|
000004e0  6f 6c 3d 32 0d 02 94 44  ef 32 39 2c 36 34 30 3b  |ol=2...D.29,640;|
000004f0  35 31 32 3b 3a e6 30 2c  63 6f 6c 3a ec 30 2c 30  |512;:.0,col:.0,0|
00000500  3a ec 20 b5 b2 54 2a 41  2c 9b b2 54 2a 42 3a f0  |:. ..T*A,..T*B:.|
00000510  38 35 2c b5 b2 28 54 2b  34 29 2a 41 2c 9b b2 28  |85,..(T+4)*A,..(|
00000520  54 2b 34 29 2a 42 3a ed  0d 02 9e 52 74 6f 74 3d  |T+4)*B:....Rtot=|
00000530  30 3a e3 54 3d 31 20 b8  20 73 65 63 74 6f 72 73  |0:.T=1 . sectors|
00000540  3a e7 73 65 63 74 6f 72  28 54 29 2b 74 6f 74 3e  |:.sector(T)+tot>|
00000550  31 38 30 20 73 65 63 74  6f 72 24 28 54 29 3d c4  |180 sector$(T)=.|
00000560  a9 73 65 63 74 6f 72 24  28 54 29 2c bd 38 29 2b  |.sector$(T),.8)+|
00000570  73 65 63 74 6f 72 24 28  54 29 0d 02 a8 60 f2 74  |sector$(T)...`.t|
00000580  69 74 6c 65 28 b5 b2 28  74 6f 74 2b 28 73 65 63  |itle(..(tot+(sec|
00000590  74 6f 72 28 54 29 2f 32  29 29 2a 41 2c 9b b2 28  |tor(T)/2))*A,..(|
000005a0  74 6f 74 2b 28 73 65 63  74 6f 72 28 54 29 2f 32  |tot+(sector(T)/2|
000005b0  29 29 2a 42 2b 33 32 2c  73 65 63 74 6f 72 24 28  |))*B+32,sector$(|
000005c0  54 29 29 3a 74 6f 74 3d  74 6f 74 2b 73 65 63 74  |T)):tot=tot+sect|
000005d0  6f 72 28 54 29 3a ed 3a  ef 34 0d 02 b2 14 ef 32  |or(T):.:.4.....2|
000005e0  39 2c 30 3b 30 3b 33 30  2c 31 31 2c 31 31 0d 02  |9,0;0;30,11,11..|
000005f0  bc 2c f2 74 69 74 6c 65  28 28 28 33 39 2d a9 70  |.,.title(((39-.p|
00000600  74 69 74 6c 65 24 29 2f  32 29 2a 33 32 2c 39 38  |title$)/2)*32,98|
00000610  30 2c 70 74 69 74 6c 65  24 29 0d 02 c6 05 e1 0d  |0,ptitle$)......|
00000620  02 d0 42 dd f2 6c 69 6e  65 5f 64 61 74 61 3a db  |..B..line_data:.|
00000630  3a f2 62 6f 72 64 65 72  3a fb 33 3a f1 8a 35 2c  |:.border:.3:..5,|
00000640  31 29 3b 22 44 45 46 49  4e 49 4e 47 20 44 41 54  |1);"DEFINING DAT|
00000650  41 20 46 4f 52 20 4c 49  4e 45 20 47 52 41 50 48  |A FOR LINE GRAPH|
00000660  22 0d 02 da a6 fb 32 3a  f1 8a 32 2c 38 29 3b 22  |".....2:..2,8);"|
00000670  57 68 61 74 20 69 73 20  74 68 65 20 73 63 61 6c  |What is the scal|
00000680  65 20 6f 66 20 74 68 65  20 58 20 61 78 69 73 20  |e of the X axis |
00000690  3a 22 3a e8 8a 32 2c 31  30 29 78 73 63 61 6c 65  |:":..2,10)xscale|
000006a0  3a f1 8a 32 2c 38 29 3b  c4 36 30 2c 22 20 22 29  |:..2,8);.60," ")|
000006b0  3a f1 8a 32 2c 31 30 29  3b 22 58 20 61 78 69 73  |:..2,10);"X axis|
000006c0  20 73 63 61 6c 65 20 2d  20 22 3b 78 73 63 61 6c  | scale - ";xscal|
000006d0  65 3a 78 6d 61 78 3d 78  73 63 61 6c 65 2a 31 39  |e:xmax=xscale*19|
000006e0  3a f1 8a 32 2c 31 32 29  3b 22 4d 61 78 20 68 65  |:..2,12);"Max he|
000006f0  69 67 68 74 20 6f 6e 20  58 20 61 78 69 73 20 2d  |ight on X axis -|
00000700  20 22 3b 78 6d 61 78 0d  02 e4 a5 f1 8a 32 2c 31  | ";xmax......2,1|
00000710  36 29 3b 22 57 68 61 74  20 69 73 20 74 68 65 20  |6);"What is the |
00000720  73 63 61 6c 65 20 6f 66  20 74 68 65 20 59 20 61  |scale of the Y a|
00000730  78 69 73 20 3a 22 3a e8  8a 32 2c 31 38 29 79 73  |xis :":..2,18)ys|
00000740  63 61 6c 65 3a f1 8a 32  2c 31 36 29 3b c4 36 30  |cale:..2,16);.60|
00000750  2c 22 20 22 29 3a f1 8a  32 2c 31 38 29 3b 22 59  |," "):..2,18);"Y|
00000760  20 61 78 69 73 20 73 63  61 6c 65 20 2d 20 22 3b  | axis scale - ";|
00000770  79 73 63 61 6c 65 3a 79  6d 61 78 3d 79 73 63 61  |yscale:ymax=ysca|
00000780  6c 65 2a 31 35 3a f1 8a  32 2c 32 30 29 3b 22 4d  |le*15:..2,20);"M|
00000790  61 78 20 68 65 69 67 68  74 20 6f 6e 20 59 20 61  |ax height on Y a|
000007a0  78 69 73 20 2d 20 22 3b  79 6d 61 78 0d 02 ee 69  |xis - ";ymax...i|
000007b0  f1 8a 32 2c 32 33 29 3b  22 4f 6b 61 79 20 28 59  |..2,23);"Okay (Y|
000007c0  2f 4e 29 22 3a f5 41 24  3d be 3a fd 41 24 3d 22  |/N)":.A$=.:.A$="|
000007d0  59 22 84 41 24 3d 22 4e  22 3a f1 8a 32 2c 31 33  |Y".A$="N":..2,13|
000007e0  29 3b c4 31 30 2c 22 20  22 29 3a ef 32 38 2c 31  |);.10," "):.28,1|
000007f0  2c 33 30 2c 33 38 2c 35  3a db 3a ef 32 38 2c 31  |,30,38,5:.:.28,1|
00000800  2c 33 30 2c 33 38 2c 31  3a e7 41 24 3d 22 4e 22  |,30,38,1:.A$="N"|
00000810  e5 8d 64 5a 42 0d 02 f8  1e f1 8a 32 2c 38 29 3b  |..dZB......2,8);|
00000820  22 48 6f 77 20 6d 61 6e  79 20 70 6f 69 6e 74 73  |"How many points|
00000830  20 3a 22 0d 03 02 14 e8  8a 32 2c 31 30 29 3b 22  | :"......2,10);"|
00000840  22 70 6f 69 6e 74 73 0d  03 0c 4f e7 70 6f 69 6e  |"points...O.poin|
00000850  74 73 3c 31 20 84 20 70  6f 69 6e 74 73 3e 34 30  |ts<1 . points>40|
00000860  20 f1 27 27 22 53 69 6c  6c 79 22 3a ef 37 3a f5  | .''"Silly":.7:.|
00000870  fd a5 3a ef 32 38 2c 31  2c 33 30 2c 33 38 2c 35  |..:.28,1,30,38,5|
00000880  3a db 3a ef 32 38 2c 31  2c 33 30 2c 33 39 2c 31  |:.:.28,1,30,39,1|
00000890  3a e5 8d 64 78 42 0d 03  16 2f ef 32 38 2c 31 2c  |:..dxB.../.28,1,|
000008a0  33 30 2c 33 38 2c 35 3a  e3 54 3d 31 20 b8 20 70  |30,38,5:.T=1 . p|
000008b0  6f 69 6e 74 73 3a db 3a  f1 27 22 50 6f 69 6e 74  |oints:.:.'"Point|
000008c0  20 22 3b 54 27 0d 03 20  54 e8 22 58 20 61 78 69  | ";T'.. T."X axi|
000008d0  73 20 3a 20 22 70 6f 69  6e 74 58 28 54 29 3a e7  |s : "pointX(T):.|
000008e0  70 6f 69 6e 74 58 28 54  29 3c 30 20 84 20 70 6f  |pointX(T)<0 . po|
000008f0  69 6e 74 58 28 54 29 3e  78 6d 61 78 20 f1 bd 31  |intX(T)>xmax ..1|
00000900  31 3b c4 36 30 2c 22 20  22 29 3a ef 37 2c 31 31  |1;.60," "):.7,11|
00000910  2c 31 31 3a e5 8d 54 60  43 0d 03 2a 54 e8 22 59  |,11:..T`C..*T."Y|
00000920  20 61 78 69 73 20 3a 20  22 70 6f 69 6e 74 59 28  | axis : "pointY(|
00000930  54 29 3a e7 70 6f 69 6e  74 59 28 54 29 3c 30 20  |T):.pointY(T)<0 |
00000940  84 20 70 6f 69 6e 74 59  28 54 29 3e 79 6d 61 78  |. pointY(T)>ymax|
00000950  20 f1 bd 31 31 3b c4 36  30 2c 22 20 22 29 3a ef  | ..11;.60," "):.|
00000960  37 2c 31 31 2c 31 31 3a  e5 8d 54 6a 43 0d 03 34  |7,11,11:..TjC..4|
00000970  05 ed 0d 03 3e 50 ef 32  38 2c 31 2c 33 30 2c 33  |....>P.28,1,30,3|
00000980  38 2c 35 3a db 3a f1 8a  30 2c 32 29 3b 22 57 68  |8,5:.:..0,2);"Wh|
00000990  61 74 20 69 73 20 74 68  65 20 74 69 74 6c 65 20  |at is the title |
000009a0  6f 66 20 74 68 65 20 6c  69 6e 65 20 67 72 61 70  |of the line grap|
000009b0  68 20 3a 22 3a e8 8a 30  2c 34 29 6c 74 69 74 6c  |h :":..0,4)ltitl|
000009c0  65 24 0d 03 48 2c db 3a  e7 a9 6c 74 69 74 6c 65  |e$..H,.:..ltitle|
000009d0  24 3e 33 37 20 f1 27 22  54 6f 6f 20 6c 6f 6e 67  |$>37 .'"Too long|
000009e0  22 3a ef 37 3a f5 fd a5  3a e5 8d 54 7e 43 0d 03  |":.7:...:..T~C..|
000009f0  52 5a db 3a f1 8a 30 2c  32 29 3b 22 57 68 61 74  |RZ.:..0,2);"What|
00000a00  20 69 73 20 74 68 65 20  58 20 61 78 69 73 20 63  | is the X axis c|
00000a10  61 6c 6c 65 64 20 3a 22  3a e8 27 22 22 6c 78 61  |alled :":.'""lxa|
00000a20  78 69 73 24 3a e7 a9 6c  78 61 78 69 73 24 3e 33  |xis$:..lxaxis$>3|
00000a30  37 20 f1 27 22 54 6f 6f  20 4c 6f 6e 67 22 3a f5  |7 .'"Too Long":.|
00000a40  fd a5 3a e5 8d 44 52 43  0d 03 5c 5a db 3a f1 8a  |..:..DRC..\Z.:..|
00000a50  30 2c 32 29 3b 22 57 68  61 74 20 69 73 20 74 68  |0,2);"What is th|
00000a60  65 20 59 20 61 78 69 73  20 63 61 6c 6c 65 64 20  |e Y axis called |
00000a70  3a 22 3a e8 27 22 22 6c  79 61 78 69 73 24 3a e7  |:":.'""lyaxis$:.|
00000a80  a9 6c 79 61 78 69 73 24  3e 32 36 20 f1 27 22 54  |.lyaxis$>26 .'"T|
00000a90  6f 6f 20 4c 6f 6e 67 22  3a f5 fd a5 3a e5 8d 44  |oo Long":...:..D|
00000aa0  5c 43 0d 03 66 53 e3 54  3d 31 20 b8 20 70 6f 69  |\C..fS.T=1 . poi|
00000ab0  6e 74 73 3a 70 6f 69 6e  74 58 28 54 29 3d 28 70  |nts:pointX(T)=(p|
00000ac0  6f 69 6e 74 58 28 54 29  2f 78 73 63 61 6c 65 2a  |ointX(T)/xscale*|
00000ad0  35 30 29 3a 70 6f 69 6e  74 59 28 54 29 3d 28 70  |50):pointY(T)=(p|
00000ae0  6f 69 6e 74 59 28 54 29  2f 79 73 63 61 6c 65 2a  |ointY(T)/yscale*|
00000af0  35 30 29 3a ed 0d 03 70  16 ef 32 36 3a db 3a 6c  |50):...p..26:.:l|
00000b00  69 6e 65 64 61 74 61 3d  b9 3a e1 0d 03 7a 0a dd  |inedata=.:...z..|
00000b10  f2 6c 69 6e 65 0d 03 84  4d ef 32 36 3a db 3a e6  |.line...M.26:.:.|
00000b20  30 2c 33 3a ec 32 34 30  2c 31 30 30 30 3a df 32  |0,3:.240,1000:.2|
00000b30  34 30 2c 32 30 30 3a df  31 32 34 30 2c 32 30 30  |40,200:.1240,200|
00000b40  3a e3 54 3d 32 30 30 20  b8 20 39 35 30 20 88 20  |:.T=200 . 950 . |
00000b50  35 30 3a ec 32 34 30 2c  54 3a df 32 32 30 2c 54  |50:.240,T:.220,T|
00000b60  3a ed 0d 03 8e 26 e3 54  3d 32 34 30 20 b8 20 31  |:....&.T=240 . 1|
00000b70  31 39 30 20 88 20 35 30  3a ec 54 2c 32 30 30 3a  |190 . 50:.T,200:|
00000b80  df 54 2c 31 38 30 3a ed  0d 03 98 52 e6 30 2c 32  |.T,180:....R.0,2|
00000b90  3a ec 70 6f 69 6e 74 58  28 31 29 2b 32 34 30 2c  |:.pointX(1)+240,|
00000ba0  70 6f 69 6e 74 59 28 31  29 2b 32 30 30 3a e3 54  |pointY(1)+200:.T|
00000bb0  3d 32 20 b8 20 70 6f 69  6e 74 73 3a df 70 6f 69  |=2 . points:.poi|
00000bc0  6e 74 58 28 54 29 2b 32  34 30 2c 70 6f 69 6e 74  |ntX(T)+240,point|
00000bd0  59 28 54 29 2b 32 30 30  3a ed 0d 03 a2 36 e6 30  |Y(T)+200:....6.0|
00000be0  2c 33 3a ef 35 3a e3 54  3d 31 20 b8 20 31 36 3a  |,3:.5:.T=1 . 16:|
00000bf0  ec 2d 31 32 30 2c 28 54  2a 35 30 29 2b 31 36 34  |.-120,(T*50)+164|
00000c00  3a f1 28 54 2d 31 29 2a  79 73 63 61 6c 65 3a ed  |:.(T-1)*yscale:.|
00000c10  0d 03 ac 32 e3 54 3d 32  34 30 20 b8 20 31 31 39  |...2.T=240 . 119|
00000c20  30 20 88 20 35 30 3a 6e  75 6d 24 3d c3 28 78 73  |0 . 50:num$=.(xs|
00000c30  63 61 6c 65 2a 28 28 54  2d 32 34 30 29 2f 35 30  |cale*((T-240)/50|
00000c40  29 29 0d 03 b6 39 e3 4c  3d 31 20 b8 20 a9 6e 75  |))...9.L=1 . .nu|
00000c50  6d 24 3a ec 54 2d 31 36  2c 31 39 32 2d 28 4c 2a  |m$:.T-16,192-(L*|
00000c60  33 32 29 3a f1 c1 6e 75  6d 24 2c 4c 2c 31 29 3a  |32):..num$,L,1):|
00000c70  ed 4c 3a ed 54 3a ef 34  3a fb 33 0d 03 c0 6c f1  |.L:.T:.4:.3...l.|
00000c80  8a 30 2c 33 31 29 3a f1  8a 28 33 39 2d a9 6c 78  |.0,31):..(39-.lx|
00000c90  61 78 69 73 24 29 2f 32  2c 33 31 29 6c 78 61 78  |axis$)/2,31)lxax|
00000ca0  69 73 24 3b 3a 73 74 61  72 74 3d 28 32 39 2d a9  |is$;:start=(29-.|
00000cb0  6c 79 61 78 69 73 24 29  2f 32 3a e3 54 3d 31 20  |lyaxis$)/2:.T=1 |
00000cc0  b8 20 a9 6c 79 61 78 69  73 24 3a f1 8a 30 2c 54  |. .lyaxis$:..0,T|
00000cd0  2b 73 74 61 72 74 29 3b  c1 6c 79 61 78 69 73 24  |+start);.lyaxis$|
00000ce0  2c 54 2c 31 29 3a ed 0d  03 ca 3c f2 74 69 74 6c  |,T,1):....<.titl|
00000cf0  65 28 28 28 33 39 2d a9  6c 74 69 74 6c 65 24 29  |e(((39-.ltitle$)|
00000d00  2f 32 29 2a 33 32 2c 31  30 32 30 2c 6c 74 69 74  |/2)*32,1020,ltit|
00000d10  6c 65 24 29 3a f2 70 72  69 6e 74 3a ef 32 36 3a  |le$):.print:.26:|
00000d20  db 3a e1 0d 03 d4 0a dd  f2 64 75 6d 70 0d 03 de  |.:.......dump...|
00000d30  15 f4 20 4c 6f 61 64 20  61 6e 64 20 63 61 6c 6c  |.. Load and call|
00000d40  20 61 0d 03 e0 19 f4 20  73 63 72 65 65 6e 20 64  | a..... screen d|
00000d50  75 6d 70 20 72 6f 75 74  69 6e 65 0d 03 e2 0f f4  |ump routine.....|
00000d60  20 66 72 6f 6d 20 68 65  72 65 0d 03 e8 05 e1 0d  | from here......|
00000d70  ff                                                |.|
00000d71