ZXTape! 0Created with Ramsoft MakeTZXALPHA RRufT&7:7:7:1: "" (1,0; 2"" alpha RRUT&7:7:7:1: "" (1,0; 2"" >ALPHA @ <@<@Bx@8B8x@BDx@ Dx~DD<N B<@}ス@BBDbB@88D888x8Dxxx<ュýス@BBBR@@DDDDD DDD0DDオa@B~BJN>@x<(xB<~<<< <@< 8DD8D@8xxxxxxxxxxxxx|x||||||||||||||||||x||||||||||||||||||||x||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||DDDDDD||||||||||||||||D||xxDDDD|||||||||||x|xxxxx|xx|||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxOOOOyyyyyyyyyyyyyyyyyyyyyyyOOOOO8888888888888888888888888888888888888888888888888888888888888888ALPHA SLj"eU! ALPHA GRAPH  !ARNOLD WHEATON SOFTWARE #  1983  ! COPYING PROHIBITED  $0:1:1:7  50000P  vc=1 ( 1000 Z(100-370)=DATA INPUT d(x=50000P:mn=16:t=30 i 500 nGi=420:p=1t:i,p;"-";:p:i=19t=20 pi s*3,1; "Enter your text/data" xcv=4:ch=1 nc=0 ;cv,ch;1; "":0:d=:d=0140 %d=9 nc=nc+1:250 &d=12 nc=nc-1:300, d=13 350^ d=32 190 #d<95ad>122z140 Gnc=nc+1:nc>500nc=500:1,1:140 vc=nc cv,ch;(d) x+nc,d 7ch=ch+1:ch>30ch=1:cv=cv+1 140 nc>vc270 'cv,ch;((x+nc)+32 ):280 cv,ch;"-":x+nc,96` 7ch=ch+1:ch=30ch=1:cv=cv+1 " 140 ,4nc<0nc=0:1,1:140 1 cv,ch;"-" 67ch=ch-1:ch<1ch=30:cv=cv-1 @nc>vccv,ch;"-":140 J$cv,ch;((x+nc+1)+32 ) T 140 r u(380/470)=DRAW AXES | (47/,142:0,-142 %41),8:214,0 4i=97a122z:21,i-91[;(i):i >i=1428-3:45-,i:2,0:i ?i=1428-15:43+,i:4,0:i ?i=1278-30:41),i:6,0:i 5,3;"40" 13 ,3;"20" 20,4;"0"  (500-540)=DRAW BORDER  _0,0:255,0:0,175:-255,0:0,-175 T1,11 ;"Alpha Graph":1;8;1,11 ;"___________"  !(550-560)=SCREEN PRINT &^1,0;"For a key count, press that key";2,0;"To go on press ENTER": 0+4,1;" To go on press RETURN" Xj1,0;" Press 'O' for other graph ":2,0;" To go on press ENTER ": b  500 3,1;"You may type any sample of":4,1;"text, up to 500 characters":5,1;"long, into the computer. When":6,1;"you have finished typing press":7,2;"RETURN." 9 ,1;"The computer will then count":10 ,1;"all the characters and draw a":11 ,1;"histogram of the frequency of":12 ,1;"the 26 alphabet letters." 14,1;"If you wish you may then go":15,1;"on and graph a different":16,1;"text/data set. You will then":17,1;"be able to compare the two":18,1;"histograms." 320,1;"<>" 0:=""1050  $ 500 .!8,1;"You may now," 8810 ,1;"1 Carry on and enter text/data" =#12 ,1;"2 End" B"15,3;"Which (1-2)?" Ex$=:x$=""1093E Gx$="2"4000 I'x$"1".4L,10 :1070. L*a(255):b(255):o(255) Q q=0 T100d:GET DATA `vc502z=500:o(i)=1 kz=01410 ly=05 n x+y,8:0,z*3 xy {o(i)=01410 |-1;21,i-91[;(i-32 ) }.4L,15  x=x+8 m21,(i-91[);i:z>47/1;21,(i-91[);(i-32 ):rub character pointer i  7 q02016  550& d=:d=01430 21,6;"abcdef"; d=13 1530 $d<97ad>122z1430 20,0;"Key=";d 21,4;" " 21,0;"No.=";a(d)  1430 +i=122:i,0;" ":i 2,1;"1"  1538  600X 1,31;"" 230,64@  500 +7,3;"At this point you may,"  9 ,3;"1 Draw another graph which":10 ,5;"you can then compare with":11 ,5;"the first" ,'13 ,3;"2 Start again" 615,3;"3 End" @;18,2;"Which (1-3)?":x$=:x$=""1600@ JAx$<"1"x$>"3".4L,20:.4L,10 :1560 Tx$="1"1700 h!x$="2":500:1100L r 4000  :530  100d vc502z=502:o(i)=1 &1;21,(i-91[);"^"; z=01880X &y=05 + x+y,8:0,z*3 0y 5o(i)=01880X :;1;21,i-91[;(i-32 ):o(i)=0 ?.4L,10 Do(i)=01880X N221,i-513;(i+32 ):o(i)=0 X x=x+8 ]m21,(i-91[);i:z=5021;21,(i-91[);(i-32 ):rub character pointer bi g 7 hq02015 l 550& q&0:d=:d=01905q v21,6;"abcdef"; d=13 2000 $d<97ad>122z2000 20,0;"Key=";(d) 21,4;" " 21,0;"No.=";b(d)  1905q 720,0;" ":21,0;" " 7q=1:1;2,30;"2":2020 !q=2:2,1;"1" 600X:0 4x$= >x$=13 3000 Cx$"o"2020 Mq=11140t Nq=21750 R 21004 :500 !6,3;"You may now," )9 ,6;"1 Start again" "11 ,6;"2 End" !14,3;"Which (1-2)" x$=:x$=""3045 !x$="1"50000P:1100L 6x$"2"1,1:1,1:3010 ):1;10 ,12 ;"Goodbye" 7