swj ** CHARTS PLOTTING PROGRAM **j ** PRODUCT OF EACA INTERNATIONAL LTD. **j ** ALL RIGHTS RESERVED. **j: 600j A(12),B(18),B$(18)3k: " ** CHARTS PLOTTING PROGRAM **":: 2000Yk "TYPE IN (1) FOR DATA ENTRY,"k " (2) FOR CHART PLOTTING."k : "ENTER 1 OR 2 ONLY ";ANk AN1 1000 : AN2 20k: 10kl "PLEASE ENTER THE INPUT DEVICE NUMBER:"-l " 1. CASSETTE NUMBER 1."Sl " 2. CASSETTE NUMBER 2."pl " 3. KEYBOARD."yl DNl DN1 DN3 20l(I1:B19l2J!904l< DN 65,67,62l= 20l> 1070:UB(UB$):LB(LB$)l@ 72mA "LOADING STARTS... ": #1,S$mB 68>mC "LOADING STARTS... ": #2,S$HmD 700WmE I1 NNgmFA(I)B(I2)omG ImH UBLB 900mIF30(UBLB)mQmZ @ 130,UB;md @ 514,((UBLB)2);mn @ 834,LB;mI1m X16 (NN1)8 8n Y40 40((A(I)LB)F) 1%n, (X,Y)3n6 (X1,Y)An@ (X2,Y)OnJ (X3,Y)]nT (X4,Y)en^ Yrn @ J!,I~nJ!J!4nII1n Xn "CONTINUE ";CN$n CN$"YES" CN$"Y" n CN$"NO" CN$"N" n 440nT12oLS(S$)oNN$(S$,3)%oS$(S$,4,LS3)>oNNM(NN$):NNNN100Oo I1 NN2`oCT$(S$,T1)noCT(CT$){oLSLST1oS$(S$,T11,LS)oB$(I)(S$,CT)o B(I)(B$(I))oLSLSCTo S$(S$,CT1,LS)o* Io4LBB(1)o>UBB(2)oH1p "LOWER BOUND AND UPPER BOUND NOT COMPATIBLE."7p=pCp^p "-- DATA ENTRY --"p:"THIS PROGRAM STORES A SET OF DATA"p " ON CASSETTE TAPE."p$: "PLEASE LOAD A TAPE IN CASSETTE NO.1"q& "PRESS BOTH THE 'PLAY' & 'REC' BUTTONS ON THE CASSETTE.":+q) 1070: 1291aq. "HOW MANY DATA YOU HAVE (MAX. 12; MIN. 2) ";NNq8 NN 2 NN 12 1070q9: "ENTER DATA NUMBER 1": A(1)qBUB(A(1)):LB(A(1))qL I2 NNqV "ENTER DATA NUMBER ";Ir` A(I):A(I)(A(I))rj A(I)UB UBA(I)3rt A(I)LB LBA(I);r~ IIrLB$(LB)WrUB$(UB)mrL1(UB$):L1L12rL2(LB$):L2L22rB1$(UB$,2)rB2$(LB$,2)rUB(B1$)1rLB(B2$)1rUB$(UB)rLB$(LB)r L10 1261s B11 L1sUB$UB$"0"s B1.s L20 >s B21 L2NsLB$LB$"0"Ws B2]s ~s NNNN100:S$(NN):NNNN100sCL(LB$)sCL$(CL)sS$S$CL$LB$sCL(UB$)sCL$(CL)sS$S$CL$UB$s I1 NNsAA$(A(I))tCL(AA$)tCL$(CL)'tS$S$CL$AA$/t I>t S$S$" "Kt( #1,S$ht2 "DATA STORED ON TAPE."tP: "CONTINUE ";CN$tZ CN$"YES" CN$"Y" td CN$"NO" CN$"N" tn 1360txt "DO YOU NEED SOME INSTRUCTIONS ";A$:u A$"YES" A$"Y" 20400u A$"NO" A$"N" ;u 2000u "THIS PROGRAM PLOTS A BAR GRAPH ACCORDING TO THE DATA INPUT FROM:"u " 1. CASSETTE # 1."u  " 2. CASSETTE # 2."u " 3. KEYBOARD."v : " OR SAVES A SET OF DATA TO CASSETTE TAPE FOR FUTURE USE."Fv*: "PRESS THE NEWLINE KEY WHEN READY ";A$Pv4::