"THIS IS PROGRAM "; "TRYOUT"  16000 TO TEST 'BUILDER'$ " TYPE '?' FOR INSTRUCTIONS" A(15), B(15) 290 K~10 N~0:d the body of FRAME is lines 100 - 500 (do not alter)nL$ ~ "TSX?ICLEA"xM$~(L$,5,(L$))M8~1:M9~0 "WHAT NEXT ";N9~(L$)t2 M8 480,320 N90 ~ 1 r (L$)) (K$,1)~(L$,N90,1) s N9~N90: 210 N90, N90}(L$) s "Unknown command": 150$ N95 s N9 290,300,310,500X N9u4 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000  150":-, "YOUR NEW SEQUENCE PLEASE ";: M$:M9~0 6M8~2 @M9~M9t1!J M9}(M$) s M9~0:M8~1: 170TK$~(M$,M9,1)^ q10);M$h qM9t10);"^"  180  K$  180: "USE:-" " I TO LOAD YOUR DATA"& " C TO PRODUCE PRIMARY STATS"  " L TO SEE THE RESULTS", " E TO ENABLE YOU TO ALTER A VALUE"& " A MOD ARITHMETIC" " ? For Instructions"& " S To set up a new Sequence"% " X To eXecute the sequence" " T To Terminate"  150 "INPUT" "TO LOAD YOUR DATA" N~1 r K "A VALUE PLEASE ";V A(N)~V B(N)~VwV$ Nl "CALCULATE"! "TO PRODUCE PRIMARY STATS"S~0 S2~0 N~1 r K S~StA(N) S2~S2tB(N) NT "LIST" "TO SEE THE RESULTS" N~1 r K N, A(N),B(N) N  "SUM = ";S "MEAN = ";Sx(Nu1) * "VARIANCE IS ";S2x(Nu1)u(Sx(Nu1))v2< "EDITOR"' "TO ENABLE YOU TO ALTER A VALUE"# "PLEASE GIVE Nr. OF ITEM ";L! "PLEASE GIVE NEW VALUE ";VA(L)~V:B(L)~VwV$ "ATEST" "MOD ARITHMETIC"  5910 N N~0 s  Z~1 r 6 A~R(N) B~R(N) X~AtB A"+"B"= ";  15000 X~AwB A"*"B"= ";  15000 " " Z( 2 5030  5,6,7,0p "PROCESS F"X "PROCESS G"@ "PROCESS H""(# "PROCESS I"&' "PROCESS J"** "PROCESS K"|.. "PROCESS L"d22 "PROCESS M"L66 "PROCESS N"4:: :I~(XxN) :W~XuIwN: W"MOD ";N;:>> R(X)~(Xw(1))BhB DATA STATEMENTS HEREEZF INPUT IS AT 1000dF CALCULATE IS AT 2000nF LIST IS AT 3000xF EDITOR IS AT 4000F ATEST IS AT 5000 Nh`;XXXXk