LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)k 40 :1200 save gnc001 V(K4,R9)=0" -";:;540:V(K4,R9)UL"#.2#4E";V(K4,R9);:RD%(R9)+131,32,33,34,35:"########";V(K4,R9);: "######.#";V(K4,R9);:!"#####.##";V(K4,R9);:""CALC4 UTIL4SLIDE ٦+٦$VOLNAMES62 62 HELPq7 q7 DATAq7 q7 (USERROOT ަ FILESzGRAPHGNC2u' &GNC001 7k  &GNC002 ?2a0&GNC003 q;s٦*٦&GNC004  "٦+٦&GNC006 G!٦+٦&GNC007 >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L####.###";V(K4,R9);:#"###.####";V(K4,R9);:(BACK=11200 )œ58000**CTRLNUM=5:CTRLIST$="":NAME$=".CONSOLE"%+CONTROL(%CTRLNUM,@CTRLIST$)NAME$C,HLP$="Press 'Space Bar' for More or 'ESCAPE' to Terminate HELP"F-V(100,10),C$(100),R$(10),R  !"#$%&'()*+,-./0123456789:;<=79,PV:90:`99:M$;:AaPH=40-(M$)/2)):99:M$;: print centered linehigh lighted*bPV=15:PH=3:345:PH=5:99:M$;:: cmd cHOLD=PH:PH=2:345:PH=HOLD:dPH=HOLD:PV=16:99:"?";:AePV=15:PH=40-(M$)/2)):99:M$;:: print centered line 58): numbers A$=45): - SIGN A$=46): PERIOD  A$=32): space OK=0: TB$)=0B$=MATNM$:99:B$;UY99:142);:8] PH=INT(40-(LEN(M$)/2)):GOSUB 99:PRINT M$;:RETURN ^ph=3:99:"76c";m$;:_PH,PVN$,H,1))>57X9=1:212H8=1212 X9=1: X8=N$)X8>ULX9=1:X864)A$<91): capitals )A$>96)A$<123): lower case %A$>47)A$<13):120: Left4A$=21)DIRECTION=77:A$=13):120: Right 7);:106$X9=0:X8=0:H9=0:101:A$=27)N$=Z$+B$:H=1N$)N$)=0X9=1:"N$,H,1))=46H9=H9+1:212N$,H,1))=45H8=H:209N$,H,1))<48X9=1:".";:PH=PHH-1:I=I-1:PH=PHH+I-2:99!I=<0I=1:PH=PHH:99:B$="":I=1B$="":170B$=B$,I-1)PH=PHH+(I-1):99:.A$=11)DIRECTION=72:A$=13):120: Up0A$=10)DIRECTION=80:A$=13):120: Down/A$=8)DIRECTION=75:A$=z1$="":a$)=13139)NBR=0A$)=>8A$)<=21flag=1:-a$)=>123a$)>90a$)<97flag=1: FLAG=0:.I=SL+1" ";:I=I-1:PH=(PHH+I-1):99:155SZ$)>0I=1SL=SL+1:PH=PH-0:99:".";:PH=PH-1:Z$="":PHH=PHH-1:B$="":99:180'a$=27)kA$=13)120%lNBR=1A$)=>8A$)<=21182/qA$=8)A$=127)A$=8+UCA)140:105$rFLAG=0:130:FLAG=17);:105tA$=13)120uA$;:B$=B$+A$:A$=""v%wB$,1)<>13)370:PH=PHH:101!xPH=PHH+I-1:99:".";:94:ۺ92^cmd=6697 _œ97`Aa::"Apple Business BASIC -- Type 'RUN GNC001' to Restart": bٜ,:c=PV:=PH:-ePHH=PH:99:A$="":B$="":z$)<>0z1$="9"fI=1SL:".";::PH=PHH:99gI=1SL+1i:" ";::PH=PHH+I-1:99ja$:0:U2,2379,23:90:V2,1979,2:90:W2,2379,2:90: X85:YZ=1:86:84:Z:1,180,24:[::"Apple Business BASIC"^\m$="'Exit' to Application Selection System or BASIC: (A or B)":pv=10:ph=1:352:7);:400]cmd=66cmd=65F3,279,13:90:G2,1579,15:90:)H2,1779,23:90:M$=BOT$:pv=23:350:KPV=18:80:350:LPV=21:80:350:M2,1779,23:90:P2,PV79,PV:90:QPH,PV79,PV:90:RPH,PV79,PV:90:S2,2279,22:90:T2,2179,2:9 8œ98T9BOT$="Press Key of 1st Letter for Command, 'Escape' to Back Up, or '?' for Help":R8=1:K1=1:CL=4:CC=1 ;1000<99:" ";:"--------";:=99:" ";:"========";:2?BOT$="Press Letter Key for Function Desired":D2,2079,20:90:E:RIT$="":LEF$="":CC=0:CL=0:FD$="":AG=0D3LL0=-999999:LL1=-99999.9:LL2=-9999.99:LL3=-999.999:LL4=-99.99999?4LU0=9999999:LU1=99999.9:LU2=9999.99:LU3=999.999:LU4=99.999935UP$=135):DOWN$=136):RIT$=133):LEF$=134)$7UCA=128:LCA=UCA+32:APPLE$=127)D%(10),PV(100),CF(100),GN$(20),SCR(200)20filenum=1:array$="V":numbytes=4444:count%=4444 1DV$=2xp=0:yp=0:PI=3.14159:R9=0:K1=0:K4=0:GR1=0:GR2=0:GR3=0:GR4=0:GC1=0:GC2=0:SCALE$="":GRTIT$="":GL$="":PAL%=0:BGCOL%=0:UMIN=0:UMAX=0:PS=0:SW=0:UP$="":DOWN$="" fPV=15:PH=2:99:" ";:gPV=16:PH=2:345: h250:iB$="Y"B$="y"Q=1:365jB$="N"B$="n"Q=2:365kQ=0m q7);:6r7);:Z1$)<>0Z$<>""Z$="":SL=SL+1:PHH=PHH-1"vPH=PHH:99:i%=1sl+1:" ";:{OA%=0:CMD=0:savem$=m$a$:cmd=a$)cmd=6359000::410"CMD>96CMD<123CMD=CMD-32:CMD>64CMD<91CMD>47CMD<58CMD=27CMD=32CMD=43CMD=45CMD=42CMD=47(CMD=8OA%=1:CMD=75:: Right Arrow*CMD=2to Continue":2700 T 72:( 3300:TYPE<>-1STRNG$<>"BOT"OK=1  3300:TYPE<>1OK=1D  3300:TYPE<>0OK=1  #1;TYPE,NUMBER:#1;STRNG$" STRNG$=34)STRNG$="":3399D LSTR=STRNG$):STRNG$,1)=34)STRNG$=STRNG$,LSTR-1)2120&zcatnm%=0:ln%=ln%+1:ln%=<212120Dm$="Press 'Space Bar' to continue - 'Escape' to Terminate":2700cmd=27290077:ln%=18:2120 pv=23:350 400 cmd=272760 cmd=322760 7);:2720 72:. :m$="Press 'Space Bar' ollowing "+ft$+"Files Are In The Catalog "+dv$:pv=15:350 œ2800 #1,dv$#1;a$:#1;a$:#1;a$4ln%=18:catnm%=0 >ž#12800 H#1;a$Ra$,16,2)<>b$2120\m$=a$,18,13) fpv=ln%:ph=5+(catnm%*15):352%pcatnm%=catnm%+1:catnm%=<4r Row, or 'P' for Picture":pv=20:ph=5:352)z$="1":ph=75:sl=1:400:cmd=272900'cmd=65b$="M.":ft$="Array ":2040%cmd=82b$="R.":ft$="Row ":2040)cmd=80b$="P.":ft$="Picture ":20407);:2020pv=20:80:pv=23:80:71Fm$="The F10000: Labels"CMD=787000:69:1200: New&CMD=8088:16000:1200: Print 7);:1920\71:M$=" List Files in the Catalog Specified by Prefix to File Name ":357fpv=23:80:m$="Type of File - Press 'A' for Array, 'R' fo'CMD=2772:1200(CMD=321579)7);:1574 +72:1500flZ=0:Z$="":71:M$="DATA: Values Labels New Print `Esc' ":354helpfile$="DATA":400CMD=271200 CMD=8685:15000: ValuesCMD=76MD=7050007);:1220xCMO%=1A$<>27)1000A$="Q"1000 1200œ1572:PV=22:PH=5:99 #PGNM$R$pv=23:80:71:7);:M$="Please Put Program Disk in Disk Drive":71:PV=20:3500%M$="Press `Space Bar' When Ready":PV=21:350&400FUNCTIONS: Graph Calc Data File [Q]uit ":354:63825 ERROR95helpfile$="GENERAL":400OA%=1CMD=1691OA%=11299!CMD=67PGNM$="GNC002":1500!CMD=71PGNM$="GNC003":1500CMD=681900C Column:":MR3$="Put Results in Row #:"B:1100:1150"LPV=3:PH=6:99:I=113:"-";:VPV=3:Z$="-"!ZK=27:PH=10*K:60::Z$="":~62700:6350060000:60500:60600 œ1180pt%=printerid:1190 pt%=0 œ95Z=0:Z$="":71_M$="BACK=190:OLDGT=1:1200 BACK=13mh<>1::m$="Graph'n' Calc ///":pv=24:350:70:71:724:M$=DOWN$+" Rows/Columns "+RIT$:PV=1:PH=2:352"M$="COMMANDS:":PV=14:PH=1:352%M$="SCRATCH PAD:":PV=16:PH=1:352F$MC1$="From Column:":MC2$="To1;" ";:#1"+#.2#4E";V(K4,R9);:$RD%(R9)+1770,771,772,773,774:!#1"##########";V(K4,R9);:!#1"########.#";V(K4,R9);:!#1"#######.##";V(K4,R9);:!#1"######.###";V(K4,R9);:!#1"#####.####";V(K4,R9);: -1389995$RD%(R9)+1670,671,672,673,674:"########";V(K4,R9);:"######.#";V(K4,R9);:"#####.##";V(K4,R9);:"####.###";V(K4,R9);:"###.####";V(K4,R9);:$V(K4,R9)=0#1;" -";:G540:V(K4,R9)UL#CMD=34:: G 7);:400$RD%(R9)+1550,551,552,553,554:&LL=LL0:UL=LU0:'LL=LL1:UL=LU1:(LL=LL2:UL=LU2:)LL=LL3:UL=LU3:*LL=LL4:UL=LU4:X20bV(K4,R9)=0" -";:;540:V(K4,R9)UL"#.2#4E";V(K4,R9);:1OA%=1:CMD=77:: Left Arrow 'CMD=11OA%=1:CMD=72:: Up Arrow +CMD=10OA%=1:CMD=80:: Down Arrow 3CMD=(68+UCA)CMD=(68+LCA)OA%=1:CMD=32:: D4CMD=(81+UCA)CMD=(81+LCA)OA%=1:CMD=16:: Q 5CMD=(LCA+71)CMD=(UCA+71)OA%=1::33055 STRNG$,1)=34)STRNG$=STRNG$,LSTR-1):3305G I 7);:PV=20:80:85:M$="`DIF' File NOT in Correct Format":PV=20:3501 M$="Press `Space Bar' to Continue":PV=21:350 400:CMD=2772: CMD=3272: 7);:3520\71:M$=" Review/Change Name of Printer ":357 pv=23:80Gm$="Current Printer Driver Device Name is : "+PTR$:pv=18:ph=15:352ZBZ$="1":PV=20:PH=10:SL=12:M$="Enter New Printer Name (or Press 'Escape') : ":352:PH= ":354Q400&RCMD=655210:: load GNC matrixSCMD=825500:: load row&UCMD=734000:: load DIF File XCMD=27Y7);:5201[Z85:71:M$="Load a New Array":357:M$="Do You Want to Save Present Array ? ":PV=20:350 [PV=20:rray Row Export `Esc' ":354400:CMD=27CMD=655300: matrixCMD=825400: rowCMD=698000: DIF O7);:5101\P71:M$="LOAD: Array Row Import `Esc' Change Default File NameUZ$="1":PV=19:PH=20:SL=13:M$="Enter File Name : ":352:PH=40:101:A$=27)5099namlen=b$)%B$,1)="/"B$=b$,2,namlen-1)MATNM$=B$:62600Z$="":72:63820:\71:M$="SAVE: AVolume Name ":357^Z$="1":PV=19:PH=8:SL=30:M$="Enter Prefix to File Name : ":352:PH=36:101:A$=27)5069B$,1)<>"/"B$="/"+B$B$,1)<>"/"B$=B$+"/"B$)>2DV$=B$:62600Z$="":72:63820:>71:M$=" ry File ":357UZ$="1":PV=19:PH=20:SL=15:M$="Enter File Name : ":352:PH=40:101:A$=27)5049 CTL$=B$ œ63300dv$+CTL$,dv$=dv$+ctl$+"/":62600Z$="":72:63820:\71:M$=" Change Data *CMD=785070:1200: Change MATNM$ 'CMD=775030:1200: Make catalog"CMD=672000:1200: Catalog)cmd=803600:1200: Printer Name CMD=271200: quit 7);:5020\71:M$=" Create a Sub-Directo=3272:48707);:4840 4099Z71:M$="FILE: Save Load Volume(s) Name Catalog Make cat Printer 'Esc'":354helpfile$="FILES":400CMD=835100:1200: saveCMD=765200:1200: load&CMD=865050:1200: Change DV$ S"VECTORS=NUMBER#TITLE$="TUPLES"TUPLES=NUMBERTITLE$="DATA"COUNT=COUNT+1:4700K7);:PV=20:80:85:M$="The Specified DIF File NOT Present":PV=20:3501M$="Press `Space Bar' to Continue":PV=21:350400:CMD=2772:4870CMD(J)+STRNG$:R$(J))>13R$(J)=R$(J),13)I=3VECTORS 3200:OK=1I=VECTORS:4580V(I-2,J)=NUMBER:OK=13500:OK=13500 [#1:\#1;TITLE$%aCOUNT=0TITLE$<>"TABLE"OK=1:f#1;TYPE,NUMBERp#1;STRNG$%zTITLE$="VECTOR35003100:OK=13500I=3VECTORS 3100:OK=1I=VECTORS:4350C$(I-2)=STRNG$:OK=13500J=1TUPLES-1!3000:OK=1J=TUPLES-2:4600!3100:OK=1J=TUPLES-2:4600R$(J)=STRNG$!3100:OK=1J=TUPLES-2:46006R$(J)=R$83:Z=9:6018:83@M$="Reading "+FD$+" file...":PV=20:350:PV=21:PH=2:99:42007);:PV=20:PH=2:3511L=1:K1=1:CL=4:CC=1:1100:60000:60500:60600 Z$="": hERROR0#|OK=0:COUNT=0:4700:OK=135003000:OK=135003100:OK=155:SL=10:101A$=27)72:Z$="":340:FD$=B$+".M"<PV=20:PH=2:351:M$="Writing "+FD$+" file...":350:630002PV=20:PH=4:351:M$="File Name to Load: "::352SL=40:PV=20:PH=25::101A$=27)72:Z$="":340 œ4800 #1,b$0400 72:3610Z85:71:M$="Load a DIF File":357:M$="Do You Want to Save Present Matrix? ":PV=20:350&PV=20:PH=59:SL=1:z$="1":101:z$=""A$=27)72:Z$="":360:Q4025,4045HPV=20:PH=2:351:M$="Enter File Name to Save: ":350:PH=55G101:A$=27)3699Lb$)=07);:3655Vb$,1)<>"."b$="."+b$ Wœ3700 Xptr$=b$[#1,ptr$: j62600sZ$="":72:Ftm$="Your SOS.DRIVER Does Not Have a Driver Named "+ptr$:pv=22:350-~m$="Press Any Key to Continue":pv=23:35PH=59:SL=1:Z$="1":101\A$=27)5299b360:Q=07);:5211cQ5220,5250HdPV=20:PH=2:351:M$="Enter File Name to Save: ":350:PH=55:SL=13:101iA$=27)72:Z$="":n340:B$="NONE"5220CsFD$=B$:PV=20:PH=2:351:M$="Writing "+FD$+" file...":350:63000BOLDFD$=FD$:PV=20:PH=2:351:M$="File Name to Load: ":PV=20:350!SL=13:PV=20:PH=51:Z$="1":101A$=27)72:Z$="":340:B$="NONE"5260 œ63802 FD$=B$:#1,dv$+"M."+FD$:Z=9:83:6018:83:71AM$="Reading 85:71:M$="Write a DIF File":357:89005JM$="From Row: To Row: ":PV=19:PH=23:352/TPH=36:SL=2:LL=1:UL=10:201:A$=27)8699UX98022,8023V369:8020WDIFR1%=X8)^PH=52:SL=2:LL=X8:UL=10_201:A$=27)8699`X98033,8034a7210HR9=X8:7300:72:)I=1100:V(I,R9)=0::PV=R9+4:7310:K2=(K1+6)-1:K2>100K2=1006K3=0:K4=K1K2:K3=K3+1:PV=R9+3:PH=(9+K3*10)+2:99 600::LR9=110:V(K4,R9)=0:VK4=>K1K4=369:10:K%=1100:V(K%,L%)=0::K%=1100:C$(K%)="": L=110:R$(L)="":RD%(L)=0:PV=20:PH=2:351:1100Z=9Z=0:,60000:60500:60600:MATNM$="none":72:\X71:M$="NEW: Array Row `Esc' qZ$="1":SL=1:PV=20:PH=66:101rA$=27)Z$="":72:s360:Q6004,6018MtPV=20:80:85:M$="File Name to Save: ":PV=20:350:PH=50:SL=10:Z$="1":101uA$=27)72:Z$="":vFD$=B$:63000270:71:72:M$="Clearing the Array":PV=15:350'L%=11:J=1NOCOLS:V(J,R9)=V(J,0):PV=R9+3:7310: j=0:FI$=B$:œ5590#1,fi$ ž#15940*J=J+1:#1;V(J,R9):59204#1:PV=R9+4:7310:ip71:M$="Clear the Array":357:PV=20:M$="Do You Want to Save Current Array Before Clearing: ":350:85 +".c":Z=1:PV=22:PH=25:M$="Row # to Get:":352%PV=22:PH=38:SL=3:LL=1:UL=999:201A$=27)X95840,5850369:5810L9=X8:œ5590 #1,FI$:#1;NOROWS,NOCOLS ž#15863'#1;ROWNO:J=1NOCOLS:#1;V(J,0):L9<>ROWNO5861%#œ5590#1,dv$+"R."+B$.#1;R$(R9),RD%(R9):I=1100:#1;V(I,R9):#19PV=R9+4:7310:PH=6:99:" ";:99:R$(R9); œ98M7);:PV=23:M$="No Such File on Disk -- Press Any Key to Continue":350A$ 55787FI$=B$10:201A$=27)5559X95536,5538369:5530R9=X8:sl=40:cmd=71sl=13PV=20:PH=38:101A$=27)72:B$)=07);:5540PV=21:PH=2:99CMD=685800:5559CMD=715560:5559CMD=845900:5559 72: PLAN 'Computed Values' File":5510+CMD=84M$="Load from Text File":55107);:550285:71:3570Z=1:358:PV=18:PH=25:M$="Row to Load: ":3522m$="Path Name : ":cmd=71m$="File Name : "pv=20:ph=25:352$PV=18:PH=38:SL=2:LL=1:UL=R$(R9):#1;RD%(R9):I=1100:#1;V(I,R9):d#1 h72:\|71:M$="LOAD ROW: Graph'n' Calc Desktop/Plan Text `Esc' ":357~400:CMD=274CMD=71M$="Load from Graph'n' Calc File":5510ECMD=68M$="Load from DESKTOP/H=30:M$="File Name : ":352$6PV=19:PH=43:SL=3:LL=1:UL=10:2017A$=27)5480;X95436,5450<369:5430 JR9=X8TPV=21:PH=43:SL=13:101UA$=27)72:VB$)=05460 ^œ5472_dv$+"R."+B$ `œ63300a#1,dv$+"R."+B$2c#1;101A$=27)72:Z$="":!340:B$="NONE"7);:5310FMATNM$=B$:FD$=B$:PV=20:PH=2:351:M$="Writing "+FD$+" file...":350%63000:62600:72:7);:Z$="1":$Z=1:85:71:M$="Save a Row":357'"PV=19:PH=30:M$="Row to Save: ":352',PV=21:P"+FD$+" file...":PV=20:350:PV=21:PH=2:99:635007);:PV=20:PH=2:3518L=1:K1=1:CL=4:CC=1:1100:60000:60500:60600:6260072:Z$="":W85:71:M$="Save the Current Array":357:M$="Enter Name to Save Array: ":PV=20:350PH=55:SL=13:Z$="1":369:8030*bDIFR2%=X8):TUPLES%=(DIFR2%-DIFR1%)+29hZ=1:M$="From Column: To Column:":PV=20:PH=23:352/iPH=36:SL=2:LL=1:UL=99:201:A$=27)8699jX98043,8044k369:8040lDIFC1%=X8)/rPH=52:SL=3:LL=X8+1:UL=LL+63:UL>100UL=100s201:A$=27)8699tX98053,8054u369:8050+vDIFC2%=X8):VECTORS%=(DIFC2%-DIFC1%)+30|M$="Name of File to Save :"::PV=22:PH=3:352$PH=25:SL=40:101:A$=27)8699 DIFNM$=B$%œ8120: No old file to kill 8900 DIFNM$+œ63A$=27)Z$="":13560/4B$)=0Z$=32)C$(K1+(CC-1))="":135604C$(K1+CC-1)=Z$+B$F4Z$="":PV=CL:PH=11+CC*10:99:C$(K1+(CC-1))="""........";:13599B5PV=CL:PH=11+CC*10:99:" ";:99:"8R";C$(K1+(CC-1)); 5CC+1<7CC=CC+1:13599#=5:350E]4Z=1:PV=20:PH=52:LL=1:UL=100:SL=3:201:A$=27)72:Z=0:11920:b4X913420,13430l4369:13405v4X8>95X8=9544Z=0:K1=X8:CC=1:13700:60500:60600:72:11920: 411930#4PV=CL:PH=11+CC*10:Z$=A$:99:Z$4PV=CL:PH=PH+1:SL=7:1014:K1=K1-1:K1<1K1=1(3PH=20:CC=1:K=K1:X=10:13800:11920:33K1=95CC=67);:#3CC<>611930:CC=CC+1:11920:%411930:CC=1:K1=K1+1:K1>95K1=95+4CC=6:K=K1+5:PH=70:X=246:13800:11920:9X411930:M$="First column to Display: ":PV=20:PH12OK=1:260:OK=113500:13020: Type Heading),3CMD=7713300:13020: right arrow )63CMD=7513200:13020: left arrow #@3CMD=3413400:13020: goto T37);:130203K1=1CC=17);:"3CC>111930:CC=CC-1:11920:#311930:CC=5:345:.PV=CL:PH=5:99::" ";:.PV=CL:PH=10+CC*10:345:#.PV=CL:PH=10+CC*10:99::" ";:J2M$=RIT$+" "+LEF$+" Type column label [G]o to `Esc' ":71:3572CL=2:CC=1:1192024002oa%=113100%2CMD=2711930:72:10000: Quit-B$)=0Z$=32)R$(CL-3)="":Z$="":11780-R$(CL-3)=Z$+B$:Z$="";.R$(CL-3))=0PV=CL:PH=6:99:"............."::117903 .PV=CL:PH=6:99:" ";:99:R$(CL-3);.CL+1=14CL=4:11795 .CL=CL+1 .11900. .Z1$="":|.PV=CL:PH=5330,11340B,369:11310L,RD%(CL-3)=X8)#V,PV=20:PH=2:351:R9=CL-3:7310:,11910: Type Row Title,PV=CL:PH=6:99:A$;:Z$=A$/-PV=CL:PH=7:SL=12:101:PV=CL:PH=19:99:" ";-a$)=2711800:11780, -Z$)<>0A$=27)Z$="":11800:117800L=411910:CL=13:11900:f+11910:CL=CL-1:11900: +CL=1311910:CL=4:11900:+11910:CL=CL+1:11900:S$,M$="Number of Places to Right of Decimal to be Printed (0-4): ":PV=20:PH=5:3523.,Z=1:PH=65:SL=1:LL=0:UL=4:201:A$=27)113508,X911=16:357:CL=4:11900*400*OA%=111010%+CMD=2711910:72:10000: Quit"+OK=1:260:OK=111500:11001+CMD=7211100:11001: up$ +CMD=8011200:11001: down % +CMD=3211300:11001: Decimal R+7);:11001: Not Valid \+CABELS: Rows Columns `Esc' ":PV=16:354$'400.'CMD=2712008'CMD=8285:11000: RowB'CMD=6785:13000: Cols'7);:10020[*71:M$=UP$+" "+DOWN$+" Type row label [D]ecimals `Esc'":PV300:STRNG$="":9300:9060UZ#R$(J))>9RPART=R$(J))-9:STRNG$=R$(J),9):9300:STRNG$=R$(J),RPART):9300/d#I=DIFC1%DIFC2%:NUMBER=V(I,J):9400:::##1;-1;",";0:#1;"BOT":T$#1;1;",";0:#1;STRNG$:$#1;0;",";NUMBER:#1;"V":b'71:M$="LCOL=1:FALSE=0:TRUE=-1:LEFTARROW$=8):CR$=13):g(#9200:STRNG$="":9300:9300:I=DIFC1%DIFC2%:STRNG$=C$(I):9300:: write the row of column labels<#J=DIFR1%DIFR2%:9200,P#R$(J))=0STRNG$="":9300:9300:9060:U#R$(J))=<9STRNG$=R$(J):91;NUL$D 9000: Write the matrix5 #1;-1;",";0: write the end of file indication  #1;"EOD":#1 !72:'`": RESUME 8499 :REM disk full error j"ERL,:"ESC$=27):LASTINROW$=ESC$:LASTONSHEET$=ESC$+ESC$:QUOTE$=34):NUL$=QUOTE$+QUOTE$:ROW=1:300: disk full or other failure #1,difnm$ Write the file header #1;"TABLE"#1;0;",";1 #1;NUL$#1;"VECTORS"#1;0;",";VECTORS% #1;NUL$ #1;"TUPLES" #1;0;",";TUPLES%  #1;NUL$& #1;"DATA"0 #1;0;",";0 : #5CC=6:K1=K1+1:k=k1+5:x=246:ph=70$5k1=>95k1=95:k=k1+5:x=0:13599 513800511920:Z$="": 5Z$="":5PV=1:PH=20::82: 5PV=2:825PV=413:PH=20:82::520,179,2523);X);520,479,13523);X);51,180,2415:PV=1:99:" ";:99:"9R";k);:45PV=2:PH=PH+1:99:C$(K)=""" ........";:138255"8R";C$(K)&6K4=K:R9=110:PV=R9+3:99:20::X:71:m$=UP$+" "+DOWN$+" "+RIT$+" "+LEF$+" Type a Value [G]o to 'Esc' ":357:CL=4:11920 :63s not available":pv=3:3503m$="Press any key to continue":pv=4:350:7);a$:59093!`PV=3:PH=2: print row titles .jM$=DOWN$+" Labels "+RIT$:PV=2:PH=6:352tPV=3:I=110~PV=PV+1:PH=1:99::I;:0PH=6:99:R$(I)=""".............";="START"59400:j=1:59210\99:a$;:pv=pv+1^hralldone=1:j=5::592305,1874,22:5,1774,17: 59310I"Function Commands Manual page"; 59300: l59300:vm$="The "+helpfile$+" file i#1,"help/"+helpfile$ 59200a$alldone=159095a$=27)59092a$=32)a$=13)590407);:59060$oldcmd=8677:m$=savem$:357:72:m$=savem$:354:@:pv=1:ph=1:99:j=15Jž#159250 T#1;a$"Xa$ith HELLO & the Invokeables is Mounted":pv=12:350(F*6)F=F+1 p?F1=1Fz?C1=(((F1*6)+1)-6)+(MC1-1)?C3=(C1+6)-1?C3>100C3=100?C3>MC2C3=MC2?16330: go print heading?16460: go print body?16550: go print footer ?:16600? print heaess 'Space Bar' When Printer is Ready":PV=21:350(?M$="(`Esc' to Not Print)":PV=22:350 ?400?CMD=2716610 ?CMD=3216180*?7);:1614004?PV=21:80:PV=22:80:M$="Printing":PV=21:3509>?M$="Press CONTROL/C to Interrupt Printing":pv=22:3502:>PV=18:PH=53:SL=2:LL=1:UL=94:201:A$=27)72:16610>X916050,16060>369:16030 >MC1=X8;>PV=19:PH=53:SL=3:LL=MC1+5:UL=100:201:A$=27)16610>X916090,16100>369:16070 >MC2=X8>N=(MC2-MC1)+1>PV=22:80:PV=23:80;>M$="Pr11930:CL=CL-1:11920:"Z=1:71:M$="Print the Matrix":PV=16:3574>M$="Column to Start Printing :":PV=18:PH=25:3524>M$="Last Column to Print :":PV=19:PH=25:353:PH=HOLDPH-1:99;600::11920:100k2=100:k1=k2-5^K=K1K2:K3=K3+1,mPV=1:PH=(10+K3*10):99::"9R";k);::rPV=2:PH=(10+K3*10):99:C$(K)=""" ........";:60550|"9R";C$(K):)R9=110:K2=(K1+6)-1:K2>100K2=1006K3=0:K4=K1K2:K3=K3+1:PV=R9+3:PH=(9+K3*10)+2:99 20::: 0œ62500:#1,dv$+"G."+matnm$+"1"D#1;GR1:#1;gr2:#1;gr3:#1;gr4:#1;gc1:#1;gc2:#1;scale$:#1;grtit$:#1;vrtit$:#1;gl$:#1;pal%:#1;um>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmno2,1779,23:90:M$=BOT$:pv=23:350:I2,1779,23:90:KPV=18:80:350:LPV=21:80:350:M2,1879,23:90:P2,PV79,PV:90:QPH,PV79,PV:90:RPH,PV79,PV:90:S2,2279,22:90:T2,2179,23:90:U2,2379,23:90:a SAVE GNC002 -a(x)=x*100+.5)/100 11000 2:1000<99:" ";:"--------";:=99:" ";:"========";:2?BOT$="Press Letter Key for Function Desired":D2,2079,20:90:EF3,279,13:90:G2,1579,15:90:pv=15:)H:PH=66:,HR=П,2)):HR>12HR=HR-12:PM$="p.m."*M$=HR)+ҟ,3,6)+" "+PM$:99:M$;::a$A$=INKEY$:A$=""6399098JL20,1479,14::90:PV=14:PH=20:M$="Default Names: "+DV$+MATNM$:352:xO PV=16:PH=30:INVERSE:M$=" ":GOSUB 352:M$="Current Data Volume: "+DV$:GOSUB 352:NORMAL'Q:PV=24:PH=74:99::"######";;:RPM$="a.m.":PV=1=45Z$=A$:CMD=27%.CMD=199CMD=231CMD=34:OA%=1:67);:63700,8FD$="NONE.M":MATNM$="NONE":63820:63699B:7);:M$="The Specified Array File is NOT on Disk":PV=21:350-;M$="Press Any Key to Continue":PV=22:350=FD$=OLDFD$:5299umbytes,@count%) 63620OA%=0:CMD=0a$:cmd=a$)%cmd=63oldcmd=86:59000::63710CMD=11CMD=72:OA%=1:CMD=10CMD=80:OA%=1:CMD=8CMD=75:OA%=1:CMD=21CMD=77:OA%=1:CMD>47CMD<58Z$=A$:CMD=46CMD(I):: \œ63660p#1,dv$+tf$+"."+fd$už#163620!z#1;J:#1;K:#1;V(J,K):63610-tf$="T"dv$+tf$+"."+fd$:tf$="V":62600matnm$=fd$tf$<>"T"62000 63820: œ63675#1,dv$+tf$+"."+fd$0filread(%filenum,@array$,%n"Use the Volname(s) Command to Specify a Different Directory":pv=19:350:63340#1,dv$+"V."+fd$)filwrite(%filenum,@array$,%numbytes) ٜ,: Read the array œ63800 #1,DV$+"M."+FD$4I=110:#1;R$(I),RD%(I):RI=1100:#1;C$) Commands to Specify a VALID 'Volname'.":pv=19:350;lm$="Then Re-execute the File Save commands.":pv=20:350-vm$="Press Any Key to Continue":pv=22:350{a$ 72:7);:77?m$="There's No Space Available to Save the File":pv=17:350Vm$=V(J,K)<>0#1;J:#1;K:#1;V(J,K):#1MATNM$=FD$ œ95 63820:$D=31=29=3263310:63400N7);:77\XM$="Couldn't find the Directory/Subdirectory in Your Specified 'Volname(s)'.":pv=17:350Sbm$="Use the File, Volname(sPTR$=".PRINTER"d:62600:62799œ63010: File write DV$+FD$+".M" "œ63300'#1,DV$+"M."+fd$#6I=110:#1;R$(I):#1;RD%(I):JI=1100:#1;C$(I)::#1 |œ63200DV$+"V."+FD$#1,dv$+"V."+fd$K=110:J=1100matnm$tf$="V":#1;tf$ #1;ptr$: Read GNC Directory œ62800#1,"volnames"! #1;dv$:#1;matnm$:fd$=matnm$ #1;tf$ #1;ptr$OP Error if no volnames file Uœ98:Zdv$=:matnm$="NONE":FD$="NONE":TF$="V":in:#1;umax:#1;ps:#1 $œ98r)GR1=1:GR2=0:GR3=0:GR4=0:GC1=1:GC2=36:SCALE$="A":GRTIT$="":GL$="N":PAL%=0:BGCOL%=1:UMIN=0:UMAX=0:PS=1:vrtit$="" .62099 Create GNC Directory œ62625"volnames" œ98#1,"volnames" #1;dv$V2,1979,23:90:W2,2379,2:90: X85:YZ=1:86:84:Z:1,180,24:[-_=1:=20:"Error type ";;" in line ";:Ea::"Apple Business BASIC -- ";;" Bytes Free":" SAVE GNC002": b:1-2:c=PV:=PH:ePHH=PH:99:A$="":B$=50![Z=1:PH=55:UL=9:LL=1:SL=1:201`A$=27)72:1000aX91122,1130b369:1115 jURULE$="USER"+X8),1):86 oœ1150pRELEASE:RELEASE tURULE$ ~œ95Y7);:M$="The Specified User Calculation Module is NOT on Program Volume":PV= !)CMD=6749000:1000: Curve.CMD=851100: User!8CMD=71pgnm$="GNC003":1500B7);:1010KBACK=1:pgnm$="GNC001":1500?L85:71:M$="Execute 'User Written' Calculation Module":3576VM$="Enter Your Rule Number (1 to 9) : ":PV=20:397 OA%=1CMD=3413400:1000(CMD=27back=1:pgnm$="GNC001":1500#CMD=6840000:1000: Desk (CMD=8348000:1000: Statistics "CMD=8253000:1000: Row &CMD=702000:1000: Financial #$CMD=8435000:1000: Time9);: -1389995c71:M$="CALC: Desk Curve Stat Row Financial Time User Graph [G] `Esc'":354:63820FMC1$="From Column:":MC2$="To Column:":MR3$="Put Results in Row #:" œ95HELPFILE$="CALC":400$ IF oa%=1 AND cmd=16 THEN R9)=0" -";:;540:V(K4,R9)UL"#.2#4E";V(K4,R9);:$RD%(R9)+1670,671,672,673,674:"########";V(K4,R9);:"######.#";V(K4,R9);:"#####.##";V(K4,R9);:"####.###";V(K4,R9);:"###.####";V(K4,RUCA+71)OA%=1:CMD=34:: G3cmd=(LCA+81)cmd=(UCA+81)OA%=1:CMD=16:: Q7);:400 save gnc002$RD%(R9)+1550,551,552,553,554:&LL=LL0:UL=LU0:'LL=LL1:UL=LU1:(LL=LL2:UL=LU2:)LL=LL3:UL=LU3:*LL=LL4:UL=LU4:XV(K4," ";:{OA%=0:CMD=0a$:cmd=a$)cmd=6359000::410"CMD>96CMD<123CMD=CMD-32:CMD>64CMD<91CMD=27CMD=32cmd=43: addcmd=45: subcmd=42: mulcmd=47: div3cmd=(LCA+71)cmd=(M$;::: print centered line fPV=15:PH=2:99:" ";:gPV=15:PH=3:345: h250:iB$="Y"B$="y"Q=1:365jB$="N"B$="n"Q=2:365 k369:360m q7);:6r7);:Z1$)<>0Z$<>""Z$="":SL=SL+1:PHH=PHH-1"vPH=PHH:99:i%=1sl+1:ٿ: print centered line_82:: clear a line`99:M$;:;aPH=40-(M$)/2)):99:M$;:: print centered linehigh*bPV=15:PH=3:345:PH=5:99:M$;:: cmd cHOLD=PH:PH=2:345:PH=HOLD:dPH=HOLD:PV=16:99:"?";:@ePV=15:PH=40-(M$)/2)):99:ls )A$>96)A$<123): lower case %A$>47)A$<58): numbers A$=45): - SIGN A$=46): PERIOD  A$=32): space OK=0: TB$)=0B$=MATNM$:99:B$;UY99:142);:7^PH=40-(M$)/2)):99:M$;::212N$,H,1))=45H8=H:209N$,H,1))<48X9=1:N$,H,1))>57X9=1:212H8=1212 X9=1: X8=N$)X8>ULX9=1:X864)A$<91): capita="":99:180'".";:PH=PHH-1:I=I-1:PH=PHH+I-2:99!I=<0I=1:PH=PHH:99:B$="":I=1B$="":170B$=B$,I-1)PH=PHH+(I-1):99:$X9=0:X8=0:H9=0:101:A$=27)N$=Z$+B$:H=1N$)N$)=0X9=1:"N$,H,1))=46H9=H9+113)370:PH=PHH:101xPH=PHH+I-1:99:".";:"A$)=>8A$)<=21flag=1:-a$)=>123a$)>90a$)<97flag=1: FLAG=0:.I=SL+1" ";:I=I-1:PH=(PHH+I-1):99:155SZ$)>0I=1SL=SL+1:PH=PH-0:99:".";:PH=PH-1:Z$="":PHH=PHH-1:B$""fI=1SL:".";::PH=PHH:99gI=1SL+1i:" ";::PH=PHH+I-1:99ja$:A$=27)kA$=13)120/qA$=8)A$=127)A$=8+UCA)140:105$rFLAG=0:130:FLAG=17);:105tA$=13)120uA$;:B$=B$+A$:A$=""v%wB$,1)<>20:3501M$="Press 'Space Bar' to Continue":PV=21:350400:cmd<>327);:1153 72:1000œ1572:PV=22:PH=5:99 #PGNM$R$pv=23:80:71:7);:M$="Please Put Program Disk in Disk Drive":71:PV=20:3500%M$="Press `Space Bar' When Ready":PV=21:350&400'CMD=2772:1000(CMD=321579)7);:1574 +72:1500\71:M$="FINANCIAL: Internal rate of return Net present value `Esc'":354400:A$=27)CMD=7329000:CMD=7830000: 7);:201FF:R9=MR1:7310:72:X$="Smoothing":63980:@X$=" Accumulator "+EM3$="The value at row: column: "JM$=X$:PV=18:350:\T71:M$="DESK: Keyboard: A S M D Array: + - * / Get Put Clear 'Esc'":354 Y40999 ^359:40w With Values"@&PV=17:PH=3:99:MR1$;:PV=18:PH=3:99:MC1$;:PH=28:99:MC2$;058100:A$=27)72::58400:A$=27)72:D58500:A$=27)72:4NT=(MC2-MC1)+1:DIFF=(V(MC2,MR1)-V(MC1,MR1))/(T-1)XI=MC1+1MC2-1bV(I,MR1)=V(I-1,MR1)+DIerpolate 'Esc'":354ˆ400:CMD=27̈CMD=7157000:: Grow ֈCMD=8352900:: Seasonal0CMD=69pgnm$="gnc007"::1500: Exp Smooth$ꈻCMD=7335100:: Interpolate 7);:35010+85:Z=1:71:M$="Interpolate a Row":353!MR1$="RoA(V(K,MR1)/(R^J)):Hu7);:PV=22:PH=3:99:"Net Present Value = ";:"#########.###";T;/vM$="Press Any Key to Continue":PV=23:350: vA$=INKEY$:A$)=029482 vZ=0:72 v\71:M$="TIME SERIES: Grow Seasonality Exponential smooth Int3:M$="Desired Rate of Return ?":3520XuPH=28:SL=9:LL=1:UL=99:201:A$=27)30230buX930060,30070lu369:30040vuR=X8/100+1,uN=(MC2-(MC1+1))+1:CO=-A(V(MC1,MR1)))uF=0:J=MC1+1MC2uF=F+A(V(J,MR1)):uT=CO:K=MC1:J=1N:K=K+1uT=T+/)sM$="Press Any Key to Continue":PV=23:350:*sa$ +sZ=0:722sF029440 r29470sM=J s29340sRTE=RTE*100M(s7);:PV=22:PH=25:99:"Internal Rate of Return = ";:"##.######";RTE;,MR1):qERER=CF(1)*.0001 rITER=1 rRTE=1 rFLAG=1$rPV(1)=CF(1).rPV(1)=>029500 BrJ=2NLrVX=PV(J-1)*(1+RTE)+CF(J) VrPV(J)=VX`rPV(J)+ERER>029430jrtrITER=ITER+1~r(PV(N)-ERER)=>029470 rFLAG=0rM=NrARTE=PV(1) rMK=M-1 YINCREMENT=YRANGE/145:9HqZ=1:85:71:M$="Compute Internal Rate of Return":353 Mqœ95RqMR1$="Row with Flows"\q58900:A$=27)72:qI=1100:PV(I)=0:CF(I)=0:qK=0:N=1+MC2-MC1"q: Put the Flows into CF Array&qI=MC1MC2:K=K+1:CF(I)=V(IR3=020770QMIN30UMIN=0MIN=0:20780#QMIN0UMIN<>0MIN=UMIN:20780&QMIN>UMINMIN=UMIN ,QUMAX<>0UMAX>MAXMAX=UMAX6Q@QYRANGE=MAX-MIN1JQYRANGE=0MAX=MAX+1:MIN=MIN-1:YRANGE=MAX-MINTQPPXLEN=258-(258XRANGE): PMAX=-999999999:MIN=999999999PGT=225000:PMAX1>MAXMAX=MAX1PGR2=020725PMAX2>MAXMAX=MAX2PGR3=020740PMAX3>MAXMAX=MAX3QMIN1MAXMAX=V(KOL,GR9)#]4Z=1:PV=20:PH=52:LL=1:UL=100:SL=3:201:A$=27)72:Z=0:b4X913420,13430l4369:13405v4X8>95X8=95-4Z=0:K1=X8:CC=1:13700:60500:60600:72:5PV=1:PH=20::0 M$="Row Number: ":PV=20:350"*Z=1:SL=2:LL=1:UL=10:PH=46:201/Z=1A$=27)85:Z=0:4X97230,7240>369:7210HR9=X8:7300:71:85:)I=1100:V(I,R9)=0::PV=R9+4:7310:K2=(K1+6)-1:K2>100K2=100?K3=0:K4=K1K2:K3=K3+1:PV=R0:CMD=2777:69:HaM2$=" Matrix value Keyboard entry `Esc' "hCMD=71358:40100:40020jCMD=80358:40200:400205lCMD=43358:M1$="Add from Matrix":40300:40020:nCMD=45358:M1$="Subtract from Matrix":40400:40020:pCMD=42358:M1$="Multiply from Matrix":40500:400208qCMD=47358:M1$="Divide from Matrix":40600:40020=sCMD=65358:M1$="Add from Keyboard Entry":40300:40020BtCMD=83358:M1$="Subtract from Keyboard Entry":40400:40020BuC100ﹿ TREND=0 47599 PV=19P$="#######.##"ºPH=11:99:P$;RANGE;̺PH=42:99:P$;MAX;ֺPH=67:99:P$;MIN; PV=20PH=11:99:P$;SUM;PH=42:99:P$;MEAN; PV=21PH=11:99:P$;TREND;PH=42:99:P$;STDEV;PHVARIANCE=0:TREND=0:RANGE=0:MIN=0:MAX=0:STDEV=0:STDER=0:MEAN=0 47480 œ47600G=V(GC1,GR9)):V1=0K5=1:K=GC1+1GC2:K5=K5+1L=V(K,GR9)) G=G+LV1=V1+(K5-1)*Lȹ ҹA=6*(2*V1/(N-1)-G)/(N)/(N+1) ܹG1=A)-1TREND=G1*10000+.5)/=0:STDEV=0:STDER=0:MEAN=0:GR9=0 <20500FRANGE=MAX-MINZJ=GC1GC2_SUM=SUM+V(J,GR9)`SUMSQS=SUMSQS+(V(J,GR9)^2)dnMEAN=SUM/N#oVARIANCE=(SUMSQS-SUM^2/N)/(N-1)pSTDEV=VARIANCE)qSTDER=STDEV/N)x^SUM=0:N=(GC2-GC1)+1:SUMSQS=0:1:%PV=17:PH=70:SL=3:LL=1:UL=100:201X947332,47333举369:47330!帻X8=>GC1+1GC2=X8:GC2=GC1+1PH=70:99:GC2:0'MR1=GR1:48600:47400:47500:47800:47900: (œ47490d2SUM=0:N=(GC2-GC1)+1:SUMSQS=0:VARIANCE=0:TREND=0:RANGE=0:MIN=0:MAXX947245,47300369:47220 ĸX847310,47320,47330:47220$θPV=17:PH=11:SL=2:LL=1:UL=10:201ϸX947312,47313и369:47310ѸGR1=X8:PH=11:99:GR1:$ظPV=17:PH=42:SL=2:LL=1:UL=98:201ٸX947322,47323ڸ369:47320۸GC1=X8:PH=42:99:GCmn:":352 48500 PV=17PH=11:99:GR1;PH=42:99:GC1;PH=70:99:GC2;VR`Z=1:PV=23:M$="Parameter Number to Change [ Press `RETURN' to Compute ]: ":350#tPV=23:PH=70:SL=2:LL=1:UL=3:201yA$=27)72:~A$=13)B$=""47399:Z=1:SL=8:LL=-9999999:UL=99999999:201A$=27)X8=0:X941220,41230369:41205H85:86:71:M$="Descriptive Statistics of a Row of Data":PV=15:353:PH=3WPV=17:M$="1. Row: 2. From Column: 3. To ColuH=43:SL=2:LL=1:UL=10:2012A$=27)41100CMD:PH=13:35241005:A$=27)40240V(C1,R1)=AC&C1=>K1C1=49900LHpv=20:ph=3:m$="F(X)= + X * pv=20:ph=3:m$="F(X)= * X ^ ":352(pv=20:ph=20:99:a);:ph=60:99:b; 49999 œ49500+J=0:K=0:L=0:M=0:R=0:N=(MC2-MC1)+1:r2=0:QI=MC1MC2:y=(v(i,mr2)):x=(v(i,mr1)):J=J+x:K=K+Y:L=L+X^2:M=M+Y^2:R2=R2+X*y=v(i,mr2)):x=v(i,mr1)):J=J+x:K=K+Y:L=L+X^2:M=M+Y^2:R2=R2+X*Y:LB=(N*R2-K*J)/(N*L-J^2):A=(K-B*J)/N:J=B*(R2-J*K/N):M=M-K^2/N:K=M-J:R2=J/M.i=mc1mc2+mc3:v(i,mr3)=a)*v(i,mr1)^b:6 FOR i=(mc2+1) TO(mc2+mc3):v(i,mr2)=v(i,mr3):NEXT 49900LFOR i=(mc2+1) TO(mc2+mc3):v(i,mr2)=v(i,mr3):NEXT v49900Lpv=20:ph=3:m$="Coefficient A : Coefficient B :":352(pv=20:ph=20:99:a);:ph=60:99:b; 49999 œ49500+J=0:K=0:L=0:M=0:R=0:N=(MC2-MC1)+1:r2=0:SI=MC1MC2:J=0:K=0:L=0:M=0:R=0:N=(MC2-MC1)+1:r2=0:V:I=MC1MC2:y1=v(i,mr2):y=y1):x=v(i,mr1):J=J+x:K=K+Y:L=L+X^2:M=M+Y^2:R2=R2+X*Y:LXB=(N*R2-K*J)/(N*L-J^2):A=(K-B*J)/N:J=B*(R2-J*K/N):M=M-K^2/N:K=M-J:R2=J/M1bi=mc1mc2+mc3:v(i,mr3)=a)*b*v(i,mr1)):7l ow of X observed":MR2$="Row of Y observed"/ۿm$="# of Future Ye Values":pv=18:ph=53:352࿾58700:A$=27)72:5pv=18:ph=75:sl=3:ll=0:ul=95:201:a$=27)72:x949151,49160369:49140 mc3=x8rt49200,49300,49400: 0œ49500+5400:CMD=27-|CMD=69m1$="Exponential ":rt=1:49100:+}CMD=71m1$="Geometric ":rt=2:49100:(~CMD=76m1$="Linear ":rt=3:49100:#CMD=77pgnm$="gnc004"::1500¿7);:490101̿Z=1:85:71:M$=m1$+"Regression Analysis":3535ֿMR1$="R Std Deviation: Std Error:":352#ؽJ=GC1GC2:V(J,0)=V(J,GR1)::@#1:#1;"Comparative Statistics for Rows ";MR1;" and ";MR2:]hM$="CURVE FIT: Linear Exponential Geometric Multiple regression `Esc'"::71:354r99::"Coefficient of Correlation = ";:PH=47:99:"#.###";R2;: 48250YtPH=3:PV=19:M$="Range: Maximum : Minimum :":352:~PV=20:M$="Sum : Mean :":352TPV=21:M$="Trend: 0:K=0:L=0:M=0:R=0:N=(MC2-MC1)+1 Mœ48290)RI=MC1MC2:J=J+V(I,MR1):K=K+V(I,MR2)!\L=L+V(I,MR1)^2:M=M+V(I,MR2)^2fR=R+V(I,MR1)*V(I,MR2):jPV=23:PH=3:99kR3=(N*L-J^2)*(N*M-K^2))lR3=0R2=0:48250pR2=(N*R-J*K) qR2=R2/R3QzPV=22:PH=3:Rows - Statistics":3535MR1$="1st Row # of Data":MR2$="2nd Row # of Data""48500:58800:A$=27)72:(MC2-MC1)<37);:72::GC1=MC1:GC2=MC2:J=MC1MC2:V(J,0)=V(J,MR1)-V(J,MR2):4G85:47400:47800:48200:CMD1=67:47900:CMD1=0:%HJ= {47990\71:M$="STATISTICS: Descriptive Comparative `Esc'":354400:CMD=27CMD=6847000:48000CMD=6748100:48000ڻ7);:48010ZZ=1:85:71:M$="Comparative Analysis of Difference Between Two #1;P$;MEAN:#1Q#1;"Std Deviation: ";S#1;P$;STDEVU#1;"Std Error : ";W#1;P$;STDER:#1BXCMD1=67#1;"Correlation Coefficient = ";:#1;P$;R2:47970Y#1;"Trend : ";[#1;P$;TRENDbI=18:#1: vœ95 w72: Column:";GC1;" To Column:";GC2=#1:P$="########.####">#1;"Maximum Value: ";?#1;P$;MAXA#1;"Minimum Value: ";C#1;P$;MINE#1;"Range : ";G#1;P$;RANGEI#1;"Sum of Values: ";K#1;P$;SUMM#1;"Mean : ";O ":352%Rpv=20:ph=20:99:a;:ph=60:99:b; [49999 \7);:fm$="The computation could not be completed":pv=21:3500pm$="Check the data you specified":pv=22:350-zm$="Press Any Key to Continue":pv=23:350 49999R9=MR3:PV=MR3+4:7310:Z=0R9=MR2:PV=MR2+4:7310:Z=0¾73=pv=17:ph=3:m$="Coefficient of Determination (R^2): ":352= pv=18:ph=3:m$="Coefficient of Correlation : ":352=pv=19:ph=3:m$="Standard Error of Estimate : ":352pv=17:ph=40:99:r2;(pv=18:ph=405:71:353:565203ܻCMD=68TYPE=4:M$="Divide":85:71:353:56520GܻCMD=65TYPE=5:M$="Convert to Absolute Values":85:71:353:56520BܻCMD=69TYPE=6:M$="Raise 'e' to power of":85:71:353:56520GܻCMD=82TYPE=7:M$="Reverse Sequence of Values"1:71:M$="TRANSFORM: Log Exp Sq root Reverse Multiply Divide Absolute `Esc'":354ܾ400:A$=27)6ܻCMD=76TYPE=1:M$="Logarithm":85:71:353:565208ܻCMD=83TYPE=2:M$="Square Root":85:71:353:565205ܻCMD=77TYPE=3:M$="Multiply":8ift (` - ' value shifts left):":580601MR1$="Copy From Row #:":MR2$="Copy To Row #:"ھ58800:A$=27)ھ58600:A$=27)ڻ(mc1+sc)=<0sc=0ڻ(mc2+sc)>100sc=0&$ہK=MC1MC2:V(K+SC,MR2)=V(K,MR1):.R9=MR2:PV=MR2+4:7310 Z=0:_Z= Row":353;MR1$="Accumulate Row #:":MR2$="To Row #:":SC$="":58800ػA$=27)72:FV(MC1,MR2)=V(MC1,MR1):J=MC1+1MC2:V(J,MR2)=V(J-1,MR2)+V(J,MR1):R9=MR2:PV=MR2+4:7310:Z=0:,Z=1:71:M$="Copy/Shift a Row":353:PH=15SUM=0:I=MC1MC2:SUM=SUM+V(I,MR1)::SUM=052090+HˁI=M:85:71:353:565207);:565015MR1$="Row # to Transform":MR2$="Row # for Result";Z=1:TYPE56600,56700,56800,56900,56950,56650,56850:Z=0ܻA$=27)R9=MR2:PV=MR2+4:7310ܱ:ݾ58800:A$=27) œ56671("݁J=MC1MC2:V(J,MR2)=V(J,MR1))::Jݾ58800:A$=27) Oœ56671(T݁J=MC1MC2:V(J,MR2)=V(J,MR1))::]ݿ ^7);:_m$="The computation could not be completed":pv=21:3500`m$="Check the data you specified":pv=22:350-am$="Press Any Key to Continue":pv=23:3C$(K)=""" ........";:60550|"9R";C$(K): R9=110.K2=(K1+6)-1:K2>100K2=100: print values6K3=0:K4=K1K2:K3=K3+1:PV=R9+3:PH=(9+K3*10)+2:99 600::(LPV=24:PH=74:99::"######";;::A$=INKEY$:A$)<>269300:vm$="The "+helpfile$+" file is not available":pv=3:3503m$="Press any key to continue":pv=4:350:7);a$:59093"TK2=K1+5:K3=0: Column Headings ^K=K1K2 hK3=K3+1,mPV=1:PH=(10+K3*10):99::"9R";k);::rPV=2:PH=(10+K3*10):99:=15Jž#159250 T#1;a$"Xa$="START"59400:j=1:59210\99:a$;:pv=pv+1^hralldone=1:j=5::592305,1874,22:5,1774,17: 59310I"Function Commands Manual page"; 59300: l5P$:pv=23:350 59300 œ59500#1,"help/"+helpfile$ 59200a$alldone=159095a$=27)59092a$=32)a$=13)590407);:59060$oldcmd=8677:m$=savem$:357:72:m$=savem$:354:@:pv=1:ph=1:99:j58400:A$=27)58500:A$=27)@PV=17:PH=3:99:MR1$;:PV=18:PH=3:99:MC1$;:PH=28:99:MC2$;58100:A$=27)(58400:A$=27)258500:A$=27)<;xalldone=0:savem$=m$:71:m$=helpfile$+" HELP":pv=15:35077:m$=HL)`58200:A$=27)j58300:A$=27)t58400:A$=27)~58500:A$=27)58100:A$=27)QPV=17:PH=3:99:MR1$;:PH=28:99:MR2$;:PV=18:PH=3:99:MC1$;:PH=28:99:MC2$;58100:A$=27)58200:A$=27)20,584304369:58400 >MC1=X8:2PV=18:PH=48:LL=1:UL=100:SL=3:201:A$=27)X958520,58530369:58500 MC2=X8:3PV=20:PH=48:LL=-99:UL=99:SL=3:201:A$=27)X958620,58630369:58600 SC=X8: L58000V58100:A$=271=X8:1XPV=17:PH=48:LL=1:UL=10:SL=2:201:A$=27)bX958220,58230l369:58200 vMR2=X8:1PV=17:PH=75:LL=1:UL=10:SL=2:201:A$=27)X958320,58330369:58300 MR3=X8:1 PV=18:PH=23:LL=1:UL=99:SL=2:201:A$=27)*X9584PV=17PH=3:99:MR1$;PH=28:99:MR2$;PH=53:99:MR3$; PV=18PH=3:99:MC1$;PH=28:99:MC2$;PV=20:PH=3:99:SC$MR1$="":MR2$="":SC$=""1PV=17:PH=23:LL=1:UL=10:SL=2:201:A$=27)X958120,58130369:58100 MR9999:201:A$=27)72:X957070,57075޾369:57065CONSTANT=X85TYPE57100,57200:Z=0:R9=MR1:PV=MR1+4:7310:72:0 ߁I=MC1MC2:V(I,MR1)=V(I-1,MR1)+CONSTANT::pCONSTANT=(CONSTANT/100)+10z߁I=MC1MC2:V(I,MR1)=V(I-1,MR1)*CONSTANT:: y a Constant Percent or Amount (P or A) ?":PV=21:PH=3:352$PH=54:SL=1:101:A$=27)72:"޻B$="P"B$="p"TYPE=2:57060"޻B$="A"B$="a"TYPE=1:570607);:57030+M$="Value to Grow by ?":PV=22:PH=3:352gr2moveto(%x0,%y0):lineto(%x,%y)5<7x=x0)+((rad*phi))*zip):y=y0)+((rad*phi))*zip159000::410"CMD>96CMD<123CMD=CMD-32:CMD>64CMD<91CMD=27CMD=324CMD=(81+UCA)CMD=(81+LCA)OA%=1:CMD=16:: Q 7);:400&moveto(%xp,%yp):'lineto(%xp,%yp):(dotat(%xp,%yp):XV(K4,R9)=0" :gPV=15:PH=3:345: h250:iB$="Y"B$="y"Q=1:365jB$="N"B$="n"Q=2:365 k369:360m q7);:6r7);:Z1$)<>0Z$<>""Z$="":SL=SL+1:PHH=PHH-1"vPH=PHH:99:i%=1sl+1:" ";:{OA%=0:CMD=0a$:cmd=a$)cmd=63:M$;:;aPH=40-(M$)/2)):99:M$;:: print centered linehigh*bPV=15:PH=3:345:PH=5:99:M$;:: cmd cHOLD=PH:PH=2:345:PH=HOLD:dPH=HOLD:PV=16:99:"?";:@ePV=15:PH=40-(M$)/2)):99:M$;::: print centered line fPV=15:PH=2:99:" ";47)A$<58): numbers A$=45): - SIGN A$=46): PERIOD  A$=32): space OK=0: TB$)=0B$=MATNM$:99:B$;UY99:142);:7^PH=40-(M$)/2)):99:M$;:: print centered line_82:: clear a line`99X9=1:212H8=1212 X9=1: X8=N$)X8>ULX9=1:X864)A$<91): capitals )A$>96)A$<123): lower case %A$>ſ>xp=0:yp=0:550:yp=189:551:xp=559:551:yp=0:551:xp=0:551$X9=0:X8=0:H9=0:101:A$=27)N$=Z$+B$:H=1N$)N$)=0X9=1:"N$,H,1))=46H9=H9+1:212N$,H,1))=45H8=H:209N$,H,1))<48X9=1:N$,H,1))>57SL+1" ";:I=I-1:PH=(PHH+I-1):99:155SZ$)>0I=1SL=SL+1:PH=PH-0:99:".";:PH=PH-1:Z$="":PHH=PHH-1:B$="":99:180'".";:PH=PHH-1:I=I-1:PH=PHH+I-2:99!I=<0I=1:PH=PHH:99:B$="":I=1B$="":170B$=B$,I-1)PH=PHH+(I-1):99:A$=8+UCA)140:105rFLAG=0:130:FLAG=1105tA$=13)120uA$;:B$=B$+A$:A$=""v%wB$,1)<>13)370:PH=PHH:101xPH=PHH+I-1:99:".";:"A$)=>8A$)<=21flag=1:-a$)=>123a$)>90a$)<97flag=1: FLAG=0:.I= BASIC -- ";;" Bytes Free GNC003 ":" SAVE GNC003"bc=PV:=PH: d-62299ePHH=PH:99:A$="":B$=""fI=1SL:".";::PH=PHH:99gI=1SL+1i:" ";::PH=PHH+I-1:99ja$:a$=27)kA$=13)120/qA$=8)A$=127)0:RPH,PV79,PV:90:S2,2279,22:90:T2,2179,23:90:U2,2379,23:90:V2,1979,23:90:W2,2379,2:90: X85:YZ=1:86:84:Z:1,180,24:[/_=1:=20:"Error type ";;" in line ";ERL:Xa::"Apple Businesson Desired":D2,2079,20:90:EF3,279,13:90:G2,1579,15:90:pv=15:)H2,1779,23:90:M$=BOT$:pv=23:350:I2,1779,23:90:KPV=18:80:350:LPV=21:80:350:M2,1879,23:90:P2,PV79,PV:90:QPH,PV79,PV:9prstuvwxyz{|}~):8XP=(XLEFT+(XINCREMENT/2))):dotat(%xp,%yp):KOL=1:K=GC1+1GC2:KOL=KOL+1:XP=(KOL*XINCREMENT)+(XLEFT-(XINCREMENT/2))):dotat(%xp,%yp):::moveto(%xp,%yp):;lineto(%xp,%yp):=99:" ";:"========";:2?BOT$="Press Letter Key for Functi-";:$RD%(R9)+1670,671,672,673,674:"########";V(K4,R9);:"######.#";V(K4,R9);:"#####.##";V(K4,R9);:"####.###";V(K4,R9);:"###.####";V(K4,R9);: ytop=179rYBOT=36:YDOTS=(YBOT-YTOP)+1:YCON=((YTOP-1)-(YBOT+1)):gt=1scale$="L"ycon=ycon+2: Parms for A/// MODE #2 7$XRIT=559:XLEFT=57:scale$="L"GT=1xleft=xleft+35)XDOTS=(XRIT-XLEFT)-1+.BOTTOM=20:DVR=10:BOTTOM1=39:wit=8:hit=8Kœ1550:PV=22:PH=5:99 PGNM$cmd=681560 1572[pv=23:C1)+1:20650:XINCREMENT=XLEN/XRANGEPGT=319901P$PXLEN=(XDOTS-(XDOTS/XRANGE))): PMAX=-999999999:MIN=999999999PGT=225000:PMAX1>MAXMAX=MAX1PGR2=020725PMAX2>MAXMAX=MAX2PGR3=020740PMAX3>MAXMAX=MAX3QMIN1INCREMENT/BARS)-(1+(bars))MLOGRTIT$)=0.VOPV=1:PH=25-(GRTIT$)/2)):99:GRTIT$;: PMAX=-999999999:MIN=999999999(PKOL=GC1GC2#2PV(KOL,GR9)>MAXMAX=V(KOL,GR9)#36GC2=GC1+35: MBARS=0MGR3>0BARS=BARS+1MGR2>0BARS=BARS+1MGR1>0BARS=BARS+1%MWID=X$="gnc001":15002VJCMD=76GT=1:GT$="Line Chart"+GT1$:85:400009`JCMD=83GT=2:GT$="Stacked Bar Chart"+GT1$:85:400001jJCMD=66GT=3:GT$="Bar Chart"+GT1$:85:40000BtJCMD=75GT=4:GT$="Combination Line/Bar Chart"+GT1$:85:400001~JCMD=80GT=5:Before You Can Print a Graph":350:188628J1050:KD%=0:71:M$="GRAPH: Line Bar Stacked Kombo Pie Utility Calc 'Esc'":354:GT1$=" Definition":63825BJHELPFILE$="GRAPH":400#GJ IF oa%=1 AND cmd=16 THEN 97 (LJCMD=27BACK=1:pgnmI7);:73:PV=20:M$="There is no SCRNPRNT.INV File On Your 'Boot' Disk":350FIPV=21:M$="There MUST Be, Before You Can Print a Graph":350:18862OI7);:73:PV=20:M$="There is no Printer Named "+ptr$+" in SOS.DRIVER":350FIPV=21:M$="There MUST Be, pitch$;:#9;27);tab$;:#9;27);">";I: Apple DMP RIln%=5:pitch$=18):tab1$="D":tab2$=20):#9;27);pitch$;:#9;27);"U";1);2I IF B$="L" OR B$="l" THEN type=187:GOTO 18889#IB$="L"B$="l"type=59:18889I: MX-80/100 w/Graftrax P^I7);:73:PV=20:M$="You MUST Have Loaded a Graph, Run a Slide Show or Drawn a Graph":3500IPV=21:M$="Before You Can Print a Graph":350-IPV=22:M$="Press Any Key to Continue":350Ia$I72:19000WIln%=8:pitch$=78):tab$="("+"015.":#9;27);="l"type=187:18811'yIb$)=0A$=13)type=147:18811zI7);:18806 {Ikd%=1 |Iœ18895!I#9,ptr$:pt%18870,18880:#9 Iœ18830Igrafixon:pscreen(%type) Iœ95 I#9,ptr$Ik4%=1ln%:#9:I#9;27);pitch$;:#9I72::190000eI7);:18705pI71:M$="Print a Graph":357qIAG<>118860rIpt%=018890KsIM$="Do you want a large or small graph? (Enter S or L)":PH=4:PV=20:352-vIZ=1:PH=55:SL=1:101:A$=27)72:19000$wIB$="S"B$="s"type=147:18811$xIB$="L"B$0IA$)=218789 ICMD=2719000$*ICMD=7785:30000: Make Slide$4ICMD=7685:31000: Load Slide>ICMD=8085:18800: Print)HIcmd=8285:18100: Redisplay graph%RIcmd=8385:pgnm$="gnc006":1500%\Icmd=6885:pgnm$="gnc012":150*yyp=(yphold)+(lincr*v(j,0)/lincr))) FgrafixonFa$:a$<>27)18110F72::19000DHERROR18600 NH"gnc006" H19000b IKD%=0:71:M$="UTILITY: Make Load Print Draw Redisplay Slide Show 'Esc'":354Ihelpfile$="UTIL":40se Put Program Disk in Disk Drive":71:PV=20:3500%M$="Press `Space Bar' When Ready":PV=21:350&400'CMD=2772:19000(CMD=321579)7);:1574 +72:15000gt<>4441005:lymin=lmin):lymax=lmax):lyrange=(lymax-lymin) l4441080:71:7);:M$="Put Diskette with 'GNC012' into Built-in Drive":71:PV=20:3500M$="Press `Space Bar' When Ready":PV=21:350400CMD=2772:19000CMD=3215697);:1562!73:".d1/gnc012" #PGNM$R$pv=23:80:71:7);:M$="Plea0UMIN=0MIN=0:20780&QMIN0UMIN<>0MIN=UMIN:20780(QMIN>UMINMIN=UMIN ,QUMAX<>0UMAX>MAXMAX=UMAX6Q@QYRANGE=MAX-MIN1JQYRANGE=0MAX=MAX+1:MIN=MIN-1:YRANGE=MAX-MINTQYINCREMENT=YRANGE/YCON:1RGT=1SCALE$="R"m$="Relative Scale":211001RGT=1SCALE$="L"M$="Semi Log Scale":211004RMAX>1000000M$="Millions":SCALE=1000000=25:PH=23:22600:aJ=GC1GC2 aV(J,0)=0%aGR1>0V(J,0)=V(J,0)+V(J,GR1))%aGR2>0V(J,0)=V(J,0)+V(J,GR2))%aGR3>0V(J,0)=V(J,0)+V(J,GR3))%aGR4>0V(J,0)=V(J,0)+V(J,GR4))a aMAX=-999999999:MIN=999999999aJ=GC1GC2aV(J,0)22600: tYGR3=0$yYR$(GR3))>0M$=R$(GR3):22915~YM$="Row"+GR3)3YVP%=VP%+8:VP1%=VP%+3:HP%=0:HP1%=HP%+8:LC=1:520YPV=25:PH=3:22600: YGR4=0$YR$(GR4))>0M$=R$(GR4):22965YM$="Row"+GR4) YHP%=159:HP1%=HP%+8:LC=1:510YPVGR1=0$XR$(GR1))>0M$=R$(GR1):22715XM$="Row"+GR1)5XVP%=YBOT+28:VP1%=VP%+3:HP%=0:HP1%=HP%+8:LC=2:520XPV=24:PH=3:22600: YGR2=0$YR$(GR2))>0M$=R$(GR2):22815YM$="Row"+GR2) YHP%=159:HP1%=HP%+8:LC=3:520$YPV=24:PH=23:EMENT/2))):VP%=YBOT+1:HP1%=HP%:VP1%=YBOT+3:500!UKOL=1:J=GC1+1GC2:KOL=KOL+1ZVHP%=CINT((KOL*XINCREMENT)+(XLEFT-(XINCREMENT/2))):VP%=YBOT+1:HP1%=HP%:VP1%=YBOT+3:500V: W22700 WGT=4X22800:22900 XGT=222950GXHX99:M$;: XdUyvinc=yvalue:ypval=yvalueeUtop=8:cycles>2top=6fUj1=2top/gUypval=((yvalue-yvinc)+yvinc*(j1-0))/lmin)&jUyp=((ypval/lyrange)*(sf)+(ybot+1)))lUyp=yp-1:xp=xleft:58:xp=xp-3:59:xp=8xU}UYVALUE=YVALUE/10UUIUHP%=CINT((XLEFT+(XINCR=ytop-35+Ulymin=lmin):lymax=lmax):lyrange=(lymax-lymin)/-Uxp=8:550:#10;"###########";lmax;:21300:10000lmin=10000:cycles=cycles-5:217400Tmin=>1000lmin=1000:cycles=cycles-4:21740.Tmin=>100lmin=100:cycles=cycles-3:21740,Tmin=>10lmin=10:cycles=cycles-2:21740*Tmin=>1lmin=1:cycles=cycles-1:217403Tcyc0#Tmax>1lmax=10:cycles=2:21720Tlmax=1:cycles=1:Tmin=>100000000lmin=100000000:cycles=cycles-9:217408Tmin=>10000000lmin=10000000:cycles=cycles-8:217406Tmin=>1000000lmin=1000000:cycles=cycles-7:217404Tmin=>100000lmin=100000:cyc21720/Tmax>1000000lmax=10000000:cycles=8:21720-Tmax>100000lmax=1000000:cycles=7:21720+Tmax>10000lmax=100000:cycles=6:21720)Tmax>1000lmax=10000:cycles=5:21720'Tmax>100lmax=1000:cycles=4:21720%Tmax>10lmax=100:cycles=3:2172J=2bottom2:j1=j1-1SYVALUE=YVALUE-(YRANGE/DVR)1Syp=ytop-(J*7):550:#10;"######";j1;:21300S:4T This is semi-log determine # of cycles routine4Tmax>100000000lmax=1000000000:cycles=10:217201Tmax>10000000lmax=100000000:cycles=9:UE=YVALUE-(YRANGE/DVR):Syp=ytop-(J*7):550:#10;"####.#";YVALUE/SCALE:21300 S:$4Syp=yp-4:xp=xleft:58:xp=xp-5:59!7Sscale$="L"gt=156:213099Sgl$="Y"56 =Sxp=8:0Syp=ytop:xp=8:550:#10;"######";10;:21300SYVALUE=MAX!Sj1=10:M$,J,1);:Rgt=1scale$="L"21700RRgt=1scale$="R"21400Rgt=1scale$="L"218006Ryp=ytop:xp=8:550:#10;"####.#";MAX/SCALE:213008Ryp=ybot+4:xp=8:550:#10;"####.#";min/SCALE:21300RYVALUE=MAXRJ=2BOTTOM-22RYVAL:21100/&RMAX>1000M$="Thousands":SCALE=1000:2110090R IF MAX>100 THEN M$="Hundreds":SCALE=100:GOTO 21100 2:R IF MAX>10 THEN M$="Tens":SCALE=10:GOTO 21100DRM$="Units":SCALE=1lRVRTIT$)<>0M$=VRTIT$8RJ=1m$):yp=187-(j*8):xp=1:550:#10;>MAXMAX=V(J,0)aumax>maxmax=umax aMIN=0b b0uAG=030160:19000):u71:M$="Save Last Graph to Disk":357.DuM$="Name to Save File : ":PV=19:PH=22:352.NuZ=1:PH=45:SL=10:101:A$=27)72:19000SuB$)=030090Xu35000:BAD=1369:30030 luœ30075"qushowpath$)=0showpath$=dv$vushowpath$+"P."+B${u30300:quit=130110uGSAVE.showpath$+"P."+B$ uœ95u72:19000?u7);:M$="Diskette is Full--Can't Save Picture":PV=22:3501uM$="Press `Space Bar' to Continue":P)ls=1:60000:39200;DB$="l"A$=13)B$="L"A$=13)ls=2:60000:39200HX939245,39300M369:39220X:X839310,39320,39330,39460,39340,39350,39450,39390,39480,39370,39380,39490:39220=PV=17:PH=15:SL=2:LL=1:UL=10:201:A$=27)X8=GR11:82:99:GRTIT$; PH=23:PV=22:82:99:VRTIT$;O Z=1:PV=23:M$="Enter Parameter # to Change, S or L, or RETURN to Plot:":350$4PV=23:PH=72:SL=2:LL=1:UL=12:2019A$=27)72:>A$=13)B$=""39400;CB$="s"A$=13)B$="S"A$=13:PH=15:99:" ";:99:GR4;%ژPV=17:PH=35:99:" ";:99:GC1;%PV=18:PH=35:99:" ";:99:GC2;)PH=51:PV=17:99:" ";:99:UMAX;)PH=51:PV=18:99:" ";:99:UMIN;#GT=1PH=77:PV=18:99:SCALE$;PH=77:PV=17:99:GL$; PH=23:PV=2=20:M$="4. 4th Row:":352-PH=2:PV=21:M$="11. Graph Title :":352(PV=22:M$="12. Vertical Title :":35239100:39200#PV=17:PH=15:99:" ";:99:GR1;#ƘPV=18:PH=15:99:" ";:99:GR2;+Иgt<>4PV=19:PH=15:99:" ";:99:GR3;*ԘGT=2PV=2017:M$="1. 1st Row: 5. First Column: 7. Maximum: 9. Grid :":352CPV=18:M$="2. 2nd Row: 6. Last Column : 8. Minimum:":352.pv=18:ph=63:M$="10. Scale :":GT=1352,gt<>4PV=19:ph=3:M$="3. 3rd Row:":352>=2PV59ϕX938352,38353Е369:38350 ѕARF=X8וPH=53:99:arf;:PV=23:PH=2:3519 CMO%=0M$="--Press `Esc' When Done Viewing Graph--"-CMO%=1M$="--Watch the Color Monitor--"350:Z=0:X$=GT$(X85:73:71:M$=GT$:350:lPH=3]wPV=;:5PV=19:PH=53:SL=3:LL=1:UL=10:201:a$=27)38339X938332,38333369:38330 GR2=X8ÕPH=53:99:GR2;:,ĕPV=21:PH=22:SL=55:101:a$=27)38349 ŕGRTIT$=B$͕PH=22:99:GRTIT$;:8ΕPV=20:PH=53:SL=3:ll=6.0:ul=7.9:201:a$=27)383330,38350,38340:382206PV=18:PH=32:SL=4:LL=1:UL=100:201:a$=27)38319X938312,38313369:38310 GC1=X8PH=32:99:GC1;:5PV=19:PH=32:SL=4:LL=1:UL=10:201:a$=27)38329X938322,38323369:38320 GR1=X8PH=32:99:GR1#LPV=23:PH=72:SL=2:LL=1:UL=5:201QA$=27)72:VA$=13)B$=""38400;[B$="s"A$=13)B$="S"A$=13)ls=1:60000:38200;\B$="l"A$=13)B$="L"A$=13)ls=2:60000:38200`X938245,38300e369:38220,X838310,38320,38PV=18:PH=32:99:" ";:99:GC1;%ޔPV=19:PH=32:99:" ";:99:GR1;PH=53:99:" ";:99:GR2;&ph=53:pv=20:99:" ";:99:arf PH=22:PV=21:82:99:GRTIT$;.O8Z=1:PV=23:M$="Enter Parameter # to Change, S or L, or RETURN to Plot:":350=GT$:350PH=5.PV=18:M$="1. Column of Data to Plot:":352BPV=19:M$="2. From Row: 3. To Row :":352BPV=20:M$="4. Aspect Ratio Factor [6.0 to 7.9] :":352(pv=21:ph=5:M$="5. Graph Title:":352ʔ38100:38200%Ԕony400:cmd<>2731130y72::19000Ey7);:M$=showpath$+B$+".PIC File Is Not On The Disk":PV=21::350-yM$="Press Any Key to Continue":PV=22:350ya$:72:19000BAD=0:I=1B$)(ˆB$,I,1)=" "BAD=1:I=B$):35020̈:p85:71:M$c$,14))<33quit=1v,yZ=1:71:M$="Load & Display a Graph":35796yM$="Name of File to Load & Display:":PV=19:PH=20:352*@yPH=53:SL=10:101:A$=27)72:19000Jy35000:BAD=1369:31040 |yœ31200ygload.showpath$+"P."+B$yag=1:grafixV=23:350ua$ u301004uM$="You Haven't Made a Graph to Save":pv=19:350-um$="Press Any Key to Continue":pv=20:350u400:30100\vi=showpath$,"/",2) avquit=0fvpthnm$=showpath$,i-1)pv#1,pthnm$zvž#130345v#1;c$:30340v#1v:39313X939312,39313369:39310GR1=X8:ph=15:99:gr1;:=PV=18:PH=15:SL=2:LL=0:UL=10:201:A$=27)X8=GR2:39323X939322,39323369:39320GR2=X8:ph=15:99:gr2;:=PV=19:PH=15:SL=2:LL=0:UL=10:201:A$=27)X8=GR3:39333X939332,39333369:39330GR3=X8:ph=15:99:gr3;:>PV=17:PH=35:SL=3:LL=1:UL=100:201:A$=27)X8=GC1:39343X939342,39343369:39340GC1=X8:ph=35:99:gc1;:>PV=18:PH=35:SL=3:LL=1:UL=100:201:A$=27)X8=GC2:39353X9393T)v(j,0))=044230"yp=yp+6:xp=xp-2:58:#10;x);!ƬKOL=1:J=GC1+1GC2:KOL=KOL+18ڬXP=(KOL*XINCREMENT)+(XLEFT-(XINCREMENT/2))):44699$߬scale$="L"gt=144400:44280,YP=(YBOT-0)+((V(J,0)-MIN))/YINCREMENT)v(j,0))=044290 144610]x=129:J=GC1:GR9=GR2 b44200lGR3=044170vscale$="R"gt=144620{x=131:J=GC1:GR9=GR3 442004XP=(XINCREMENT)+(XLEFT-(XINCREMENT/2))):44699$scale$="L"gt=144400:44223,YP=(YBOT-0)+((V(J,0)-MIN))/YINCREMENscale$="R"gt=144620& x=131:J=GC1:GR9=GR3:CMD=2744099% 44500:COLPOS=COLPOS+(119):44750CDscale$="R"gt=144600-Egr2=0gr3=0x=129:j=gc1:gr9=gr1:44200 G44110Ix=129:J=GC1:GR9=GR1:44200NGR2=044140Xscale$="R"gt=4500:COLPOS=XLEFT-2:gt=4colpos=colpos+(119)-gr2=0gr3=0gt<>4x=129:44750:44099 44750 gt=4GR2=044040scale$="R"gt=144610&x=129:J=GC1:GR9=GR2:CMD=274409944500:COLPOS=COLPOS+(119) 44750GR3=044099 <>27)40310:72:71::ag=1:19000=2740385 40330 œ40399CƝ::::::::::::::::::::::::::::::: ϝ40320ૻgt<>444100뫻scale$="R"gt=144600x=0:gt=4x=0BJ=GC1:GR9=GR1:4UB 48900:GOTO 40320:REM Plot Value < 1 on Log &50500: Horizontal ticks 0053000: Horizontal titles/tick extensions :54500: Row labels DGRAFIXON: Turn on Screen-lGT44000,45100,46000,47000:50100:21198 qgc2=gc2h!v7);:a$:a$40150ǜMAX3=0:MIN3=0֜20700: Compute Min/Max&20800: Compute Yrange,Yincrement,Ꜿ20600: Compute Xrange, Xincrement,Xlen50000: Initialize Grafix50200: Graph title *cantdo=0:21000: Vertical Title-ticksH IF cantdo=1 THEN GOS070,40070,40070!((GC2-GC1)+1)>36GC2=GC1+35,NOKOLS=(GC2-GC1)+1:NOKOLS<272:190002AG=1:OLDGT=GT:GR9=GR1:20500:MAX1=MAX:MIN1=MIN3GR2>0GR9=GR2:20500:MAX2=MAX:MIN2=MIN:40130MAX2=0:MIN2=03œGR3>0GR9=GR3:20500:MAX3=MAX:MIN3=MIN:=B$:PH=23:99Hb$=""".";:Ivrtit$;:%@ Apple /// Hi-Res Graphic OutputA39000:a$=27)19000 C40330CE71:M$="...one moment, please, preparing to draw graph...":350 F14); J1050TPV=23:PH=2:82 ^gc2h=gc2hgt40100,40'369:39461(GR4=X8:ph=15:99:gr4;:38PV=17:PH=77::SL=1:101:A$=27)B$=GL$:39489#9B$="y"B$="Y"GL$="Y":39489#:B$="n"B$="N"GL$="N":39489=7);:39480APH=77:99:GL$:/BPV=22:PH=23:SL=17:101:A$=27)B$=VRTIT$GVRTIT$$=GT$KPV=17:PH=51:SL=8:LL=-9999999:UL=99999999:201:A$=27)X8=UMAX:39453X939452,39453369:39450UMAX=X8:PH=51:99:UMAX;:$GT=1GT=37);:=%PV=20:PH=15:SL=2:LL=0:UL=10:201:A$=27)X8=GR4:39464&X939463,39464SL=8:LL=-9999999:UL=99999999:201:A$=27)X8=UMIN:39393ߙX939392,39393369:39390UMIN=X8:PH=51:99:UMIN;:PV=23:PH=2:351@CMO%=0M$="--Press `Esc' When Done Viewing Graph--":39420$M$="--Watch the Color Monitor--"350:Z=0:XA"scale$="A":39379&͙B$="r"B$="R"scale$="R":39379&ΙB$="l"B$="L"scale$="L":39379ϙ7);:39371әPH=77:99:SCALE$:/ԙPV=21:PH=23:SL=55:101:A$=27)B$=GRTIT$ٙGRTIT$=B$:PH=23:99ڙb$=""".";:ۙGRTIT$;:KޙPV=18:PH=51:52,39353369:39350GC2=X8:ph=35:99:gc2;:5řPV=22:PH=76:SL=1:LL=0:UL=1:201:A$=27)39369ƙX939367,39368Ǚ369:39365 șPS=X8əPH=76:99:PS;:ʙGT<>1BEEP:6˙PV=18:PH=77::SL=1:101:A$=27)B$=SCALE$:39379&̙B$="a"B$="44640:6 MAX=MAX1:MIN=MIN1:20800:J=GC1:GR9=GR1:LC=2:24500>GR2>0MAX=MAX2:MIN=MIN2:20800:J=GC1:GR9=GR2:LC=3:44200> GR3>0MAX=MAX3:MIN=MIN3:20800:J=GC1:GR9=GR3:LC=1:44500*!pv(j,0)<1v(j,0)=0:prior=0:zv(j,0)=v(j,0))2yp=((v(j,0)-lymin)/lyrange)*(sf)+(ybot+1)):4ԭXP=(XINCREMENT)+(XLEFT-(XINCREMENT/2))):44699$٭scale$="L"gt=144400:44523,YP=(YBOT-0)+((V(J,0)-MIN))/YINCREMENT) 뭻v(j,0))=0PRIOR=0:4453058:PRIOR=1!KOL=1:J=GC1+1GC2:KOL=KOL+11) |46700:blk=4:colpos=colpos+17*7:44700:HP%=((XINCREMENT)+(XLEFT-(XINCREMENT/2))-(WID)+1)+wid*.5):HP1%=HP%+(WID-1):KOL=1:GR9=GR2:J=GC1:46560,J=GC1+1GC2:KOL=KOL+1:46550:::46600XֵHP%=((KOL*XINCREMENT)+((XLEFT+2)-(XINCREMENT/2)+wid*.=1:colpos=xleft:44700:HP%=((XINCREMENT)+(XLEFT-(XINCREMENT/2))-(WID)+1)-wid*.5):HP1%=HP%+(WID-1):KOL=1:GR9=GR1:J=GC1:46460,TJ=GC1+1GC2:KOL=KOL+1:46450:::46500XrHP%=((KOL*XINCREMENT)+((XLEFT+2)-(XINCREMENT/2))-(WID)-1)-wid*.5):HP1%=HP%+(WID-+17*7:44700:HP%=((XINCREMENT)+(XLEFT-(XINCREMENT/2))-(WID)+1)+wid):HP1%=HP%+(WID-1):KOL=1:GR9=GR2:J=GC1:46360'J=GC1+1GC2:KOL=KOL+1:46350:::UHP%=((KOL*XINCREMENT)+((XLEFT+2)-(XINCREMENT/2))-(WID)-1)+wid):HP1%=HP%+(WID-1) 46700:@blkHP%=((XINCREMENT)+(XLEFT-(XINCREMENT/2))-(WID)+1)):HP1%=HP%+(WID-1):KOL=1:GR9=GR1:J=GC1:46260,J=GC1+1GC2:KOL=KOL+1:46250:::46300QHP%=((KOL*XINCREMENT)+((XLEFT+2)-(XINCREMENT/2))-(WID)-1)):HP1%=HP%+(WID-1) 46700:ܴblk=2:colpos=colpos%=(XINCREMENT)+(XLEFT-(XINCREMENT/2))-(WID/2)+1):HP1%=HP%+(WID-1):KOL=1:GR9=GR1:J=GC1:46160'(J=GC1+1GC2:KOL=KOL+1:46150:::QFHP%=(KOL*XINCREMENT)+((XLEFT+2)-(XINCREMENT/2))-(WID/2)-1):HP1%=HP%+(WID-1) P46700:~xblk=1:colpos=xleft:44700:viewport(%hp%,%hp1%,%vp1%,%vp%):p%=5!a%=hp%:b%=vp1%:g%=hp1%:h%=vp%#y%=b%-(g%-a%)vp%+(g%-a%)p%moveto(%a%,%y%)lineto(%g%,%y%-(g%-a%))$:initgrafixK L NothingBARS46100,46200,46400: blk=1xcolpos=xleft:44700:HP)+4fillcolor(%15):fillport:initgrafix: (Hatch))viewport(%hp%,%hp1%,%vp1%,%vp%):p%=5!a%=hp%:b%=vp1%:g%=hp1%:h%=vp%y%=b%-(g%-a%)vp%p%moveto(%a%,%y%)lineto(%g%,%y%+(g%-a%)):initgrafix: (Cross Hatch)045700:1%>24940094:FTOP=VP%-20:FBOT=VP1%+20:NOBARS=(HP1%-HP%)/20)1344830((PV=20:80:PV=21:80:PV=22:80:51:20800:BMAX=MAX2:MIN=MIN2:20800:LMAX=MAX3:MIN=MIN3:20800:2`yp=yp+6:xp=xp-2:58:#10;x);:: Plot SymbolV(J,0)=V(J,GR9):8hp1%=colpos:hp%=colpos-15:vp%=14:vp1%=vp%-8:45300:-ήxp=colpos:yp=bottom1-23:550:#10;x);: 51120: 8XP=(KOL*XINCREMENT)+(XLEFT-(XINCREMENT/2))):44699$ scale$="L"gt=144400:44580,YP=(YBOT-0)+((V(J,0)-MIN))/YINCREMENT) $v(j,0))=0PRIOR=0:44590 %PRIOR=058:PRIOR=1:44590)lineto(%xp,%yp):PRIOR=1.:8MAX=MAX1:MIN=MIN15)-(WID)-1)):HP1%=HP%+(WID-1) ൾ46700:blk=3:colpos=colpos+17*7:44700:HP%=((XINCREMENT)+(XLEFT-(XINCREMENT/2))-(WID)+1)+wid*1.5):HP1%=HP%+(WID-1):KOL=1:GR9=GR3:J=GC1:46660'J=GC1+1GC2:KOL=KOL+1:46650:::Y:HP%=((KOL*XINCREMENT)+((XLEFT+2)-(XINCREMENT/2))-(WID)-1)+wid*1.5):HP1%=HP%+(WID-1) D46700:9lVP%=(YBOT-1)+((V(J,GR9)-MIN))/YINCREMENT):VP1%=YBOTvp%<3646799 ƶ45300϶ Komboʷblk=2:wid=xincrement-10 Է46110'޷gr1h=gr1:gr2h=gr2:gr3h=gr3:gr4h=gr4gr1=gr2:gԻgt=454599 վ54900 ջGT=254950GտHվ550:#10;ms$;: ջGR1=00MS$="Row "+GR1):R$(GR1))>0MS$=R$(GR1)"YP=YBOT-23:XP=XLEFT+4:54600: ֻGR2=00MS$="Row "+GR2):R$(GR2))>0MS$=R$(GR2)XP=XP+17*7:54600: tֻGR3XINCREMENT*J)-(XINCREMENT/2))):YP=YBOT-3:550:YP=YP-2:551:% IF J=GC1 THEN BACKUP=0:RETURN 5 IF J=GC2 THEN BACKUP=7*INT(LEN(MS$)):RETURN BACKUP=7*((MS$)/2))):%һSCALE$="r"SCALE$="R"44600: Label the rows Ծ54700:54800390:YP=YBOTT:J=J+OFFSET:533409WJ=(GC2-INCR)-OFFSET:53390:YP=YBOTT:J=J+OFFSET:53340[п#\о551:C$(J))=053380:53360 ]MS$=C$(J)5pо53400:yp=yp-2:xp=xp-backup:550: Position Title z#10;ms$:: Print the TitleMS$=J):MXP=(XLEFT+(:53390:YP=YBOTT:J=J+OFFSET:53340DNϻNOKOL<>3J=(GC2-INCR)-OFFSET:53390:YP=YBOTT:J=J+OFFSET:53340FXJ=GC1+(NOKOLS/2)+0):J=J-OFFSET:53390:YP=YBOTT:J=J+OFFSET:533404]ϻNOKOLS=6J=3:53390:YP=YBOTT:J=J+OFFSET:53340bϿ9RJ=(GC1+INCR)-OFFSET:53GC2:53340ϻNOKOLS=2+!OFFSET=0:GC1>1OFFSET=GC1-1:OFFSET=03&NOKOLS&=NOKOLS):(NOKOLS&2)=0DXR=4:DXR=30INCR=NOKOLS/DXR)1ϻNOKOLS=4533302ϻNOKOLS=5530603ϻNOKOLS=353060:ϻDXR=353330DDϻNOKOL<>3J=(GC1+INCR)-OFFSET551+NKOL=1:J=GC1+1GC2:KOL=KOL+1:yp=ybot-1CXXP=(KOL*XINCREMENT)+(XLEFT-(XINCREMENT/2))):550:yp=yp-2:551bł:YBOTT=YBOT-6= XP=(XLEFT+(XINCREMENT/2))):YP=YBOT-3:550::YP=YP-3:551 YP=YBOTT:J=GC1:53340 J=XRANGE:53390YP=YBOTT:J=3:551XP=XLEFT+XLEN+1:551YP=YBOT:551XP=XLEFT:551: Put up the graph title ĻGRTIT$)=0;"MS$=GRTIT$:XP=xleft+((xlen)/2)-((ms$)/2)*7)):YP=191,ľ550 @#10;ms${Ŀxp=0:yp=0:550:yp=189:551:xp=559:551:yp=0:551:xp=0:551 bp=103+(8*(((gr2-gr1)+1))/2)ii=0:i=gr1=00yMS$="Row "+GR3):R$(GR3))>0MS$=R$(GR3)XP=XP+17*7:54600: ֻGR4=00MS$="Row "+GR4):R$(GR4))>0MS$=R$(GR4)XP=XP+17*7:54600:;xalldone=0:savem$=m$:71:m$=helpfile$+" HELP":pv=15:35077:m$=HLP$:pv=23:350 59300 œ59500#1,"help/"+helpfile$ 59200a$alldone=159095a$=27)59092a$=32)a$=13)590407);:59060$oldcmd=8677:m$=savem$:357:72:m$=savem$:354:@:pv=1:ph=1:99:j=15Jž#159250 TN$=Z$+B$:H=1N$)N$)=0X9=1:"N$,H,1))=46H9=H9+1:212N$,H,1))=45H8=H:209N$,H,1))<48X9=1:N$,H,1))>57X9=1:212H8=1212 X9=1: X8=N$)X8>ULX9=1:X80I=1SL=SL+1:PH=PH-0:99:".";:PH=PH-1:Z$="":PHH=PHH-1:B$="":99:180'".";:PH=PHH-1:I=I-1:PH=PHH+I-2:99!I=<0I=1:PH=PHH:99:B$="":I=1B$="":170B$=B$,I-1)PH=PHH+(I-1):99:$X9=0:X8=0:H9=0:101:A$=27)7);:105tA$=13)120uA$;:B$=B$+A$:A$=""v%wB$,1)<>13)370:PH=PHH:101xPH=PHH+I-1:99:".";:"A$)=>8A$)<=21flag=1:-a$)=>123a$)>90a$)<97flag=1: FLAG=0:.I=SL+1" ";:I=I-1:PH=(PHH+I-1):99:15ree":"SAVE GNC004": b:1-2:c=PV:=PH:ePHH=PH:99:A$="":B$=""fI=1SL:".";::PH=PHH:99gI=1SL+1i:" ";::PH=PHH+I-1:99ja$:A$=27)kA$=13)120/qA$=8)A$=127)A$=8+UCA)140:105$rFLAG=0:130:FLAG=10:S2,2279,22:90:T2,2179,23:90:U2,2379,23:90:V2,1979,23:90:W2,2379,2:90: X85:YZ=1:86:84:Z:1,180,24:[/_=1:=20:"Error type ";;" in line ";ERL:Da::"Apple Business BASIC -- ";;" Bytes Fn Desired":D2,2079,20:90:EF3,279,13:90:G2,1579,15:90:pv=15:)H2,1779,23:90:M$=BOT$:pv=23:350:KPV=18:80:350:LPV=21:80:350:M2,1879,23:90:P2,PV79,PV:90:QPH,PV79,PV:90:RPH,PV79,PV:9 "nowrite=162820 save gnc004! Copyright 1982, Marton Inc. All Rights Reserved SAVE GNC004-a(x)=x*100+.5)/100 11000 2:1000<99:" ";:"--------";:=99:" ";:"========";:2?BOT$="Press Letter Key for Functio:m$="No Such Specification-Press Any Key":pv=23:350 .a$:E85:7);:m$="No Space on Disk - Press Any Key":pv=23:350:a$:38PV=25::M$="Current Array Name: "+MATNM$:350:(Qpv=24:ph=74:99::"######";;::;ps:#1 œ62300dv$+"G."+matnm$+gn) œ62600 #1,dv$+"G."+matnm$+gn)~ #1;gr1:#1;gr2:#1;gr3:#1;gr4:#1;gc1:#1;gc2:#1;scale$:#1;grtit$:#1;vrtit$:#1;gl$:#1;pal%:#1;umin:#1;umax:#1;ps*#14 \62115B$85:7);0 gn=x8ls60070,6050062100:85:T62000:85^gt=538100:۾39100h 0œ62500 :#1,dv$+"G."+matnm$+gn)D#1;GR1:#1;gr2:#1;gr3:#1;gr4:#1;gc1:#1;gc2:#1;scale$:#1;grtit$:#1;vrtit$:#1;gl$:#1;pal%:#1;umin:#1;umax:#1le$+" file is not available":pv=3:3503m$="Press any key to continue":pv=4:350:7);a$:59093`85=jm$="Enter Graph Specification Number (1-9) : ":pv=23:3504tpv=23:ph=60:sl=1:ll=1:ul=9:201:a$=27)85:~x960040,60050369:6002#1;a$"Xa$="START"59400:j=1:59210\99:a$;:pv=pv+1^hralldone=1:j=5::592305,1876,22:5,1776,17: 59310I"Function Commands Manual page"; 59300: l59300:vm$="The "+helpfi2:B$)=0B$="Y":99:B$;&A$>64)A$<91): capitals )A$>96)A$<123): lower case %A$>47)A$<58): numbers A$=45): - SIGN A$=46): PERIOD  A$=32): space OK=0: TB$)=0B$=MATNM$:99:B$;UY99:142);:7^PH=40-(M$)/2)):99:M$;:: print centered line_82:: clear a line`99:M$;:;aPH=40-(M$)/2)):99:M$;:: print centered linehigh*bPV=15:PH=3:345:PH=5:99:M$;:: cmd cHOLD=PH:PH=2:345:=B1-B:L=N-V-1:B2=B/B1F M$="Determination (R^2) : ":PV=17:PH=42:352:"######.####";B2;IM$="Mult. Correlation : ":PV=18:352:"######.####";B2);:Z1=B2GM$="Std Error of Estimate: ":PV=19:352:"######.####";Z/L));pI=VC1VC2zV(LM$="Constant (y-intercept): ":PV=17:PH=3:352:"######.####";A(1,V+2); I=2V+1TM$="Slope of Row # ":PV=17+(I-1):PH=11:352:IV(I-1);:"######.####";A(I,V+2);B=0/I=2V+1:B=B+A(I,V+2)*(S(I)-T(I)*S(1)/N):-B1=S(V+2)-S(1)^2/N:Z=1V+2 B=A(I,K)A(I,K)=A(J,K) A(J,K)=BK&Z=1/A(I,I) 0K=1V+2:A(I,K)=Z*A(I,K)DK NJ=1V+1XJ=I4490 bZ=-A(J,I) lK=1V+2vA(J,K)=A(J,K)+Z*A(I,K)KJI572:88:71:M$="Computing Y-estimates":PV=15:353: I=1V+1J=IA(J,I)<>04340 J=J+1J<=(V+1)4300672:7);:PV=19:PH=3:M$="No Unique Solution":3505PV=20:M$="Check Your Data or the Parameters":350-PV=21:M$="Press Any Key to Continue":350nowrite=1:400 62000 KV=NI$X(V+2),S(V+2),T(V+2),A(V+1,V+2) X(1)=1 I=VC1VC2 J=1NI X(J+1)=V(I,IV(J)) X(V+2)=V(I,DV) J K=1V+1:L=1V+2& A(K,L)=A(K,L)+X(K)*X(L)0 S(K)=A(K,V+2): : S(V+2)=S(V+2)+X(V+2)^2 II=2V+1:T(I)=A(1,I)72:1000TX91630,1640^369:1610 hYV=X8  PV=PV+13PH=70:SL=2:LL=1:UL=10:201:A$=27)72:1000X91730,1740369:1710 RV=X8>88:71:M$="Performing Regression Computations":PV=15:353 nowrite=0 œ4320N=(VC2-VC1)+169:1305 2DV=X83xPH=55:SL=2:LL=1:UL=99:201:A$=27)72:1000X91420,1430369:1400 VC1=X84PH=70:SL=3:LL=2:UL=100:201:A$=27)72:1000X91520,1530369:1500 VC2=X8 @PV=PV+13JPH=39:SL=2:LL=1:UL=10:201:A$=27)=1NI PV=PV+18PH=39:SL=2:LL=1:UL=10:201:A$=27)I=NI:72:1000X91250,1260369:1230 IV(J)=X87:IV1=IV(1):IV2=IV(2):IV3=IV(3):IV4=IV(4):IV5=IV(5) PV=PV+13PH=39:SL=2:LL=1:UL=10:201:A$=27)72:1000X91320,1330(3T=16:PH=3 `I=1NIjPV=START+I:352:I;t\~M$="Row # for Dependent Variable First Col Last Col ":PV=PV+1:352RM$="Row # for Computed Y Values Row # For Residuals":PV=PV+1:352PV=16:J=15:IV(J)=0: Jegression Analysis":PV=15:353@M$="How Many Independent Variables (1-5) ? ":PV=18:PH=5:352?PV=18:PH=45:SL=1:LL=1:UL=5:201:A$=27)nowrite=1:62000X91040,1050369:1020 NI=X8 LPV=18:807VM$="Row # for Independent Variable #":STAR(K4,R9);:$RD%(R9)+1670,671,672,673,674:"########";V(K4,R9);:"######.#";V(K4,R9);:"#####.##";V(K4,R9);:"####.###";V(K4,R9);:"###.####";V(K4,R9);:_nowrite=0:release:release:85:Z=1:71:M$="Multiple Linear R16:: Q7);:400 save gnc002$RD%(R9)+1550,551,552,553,554:&LL=LL0:UL=LU0:'LL=LL1:UL=LU1:(LL=LL2:UL=LU2:)LL=LL3:UL=LU3:*LL=LL4:UL=LU4:XV(K4,R9)=0" -";:;540:V(K4,R9)UL"#.2#4E";V:Z1$)<>0Z$<>""Z$="":SL=SL+1:PHH=PHH-1"vPH=PHH:99:i%=1sl+1:" ";:{OA%=0:CMD=0a$:cmd=a$)"CMD>96CMD<123CMD=CMD-32:CMD>64CMD<91CMD=27CMD=32cmd=133cmd=(LCA+81)cmd=(UCA+81)OA%=1:CMD=PH=HOLD:dPH=HOLD:PV=16:99:"?";:@ePV=15:PH=40-(M$)/2)):99:M$;::: print centered line fPV=15:PH=2:99:" ";:gPV=15:PH=3:345: h250:iB$="Y"B$="y"Q=1:365jB$="N"B$="n"Q=2:365 k369:360m q7);:6r7);I,YV)=A(1,V+2) J=2V+1+V(I,YV)=V(I,YV)+(A(J,V+2)*V(I,IV(J-1)))V(I,RV)=V(I,YV)-V(I,DV):R9=YV:7310R9=RV:7310/71:M$="Regression Coefficients":PV=15:353F7);:M$="Do You Want to Print the Results (y or n) ?":PV=23:353400CMD=2762000CMD=7862000CMD=898000:620007);:6110K2=(K1+6)-1:K2>100K2=1006K3=0:K4=K1K2:K3=K3+1:PV=R9+3:PH=(9+K3*10)+2:99 600:: @œ8900 A#1,ptr$CI=14:#1:JE#1;"Multiple Linear Regression -- :YZ=1:86:84:Z:1,180,24:[/_=1:=20:"Error type ";;" in line ";ERL:Ea::"Apple Business BASIC -- ";;" Bytes Free":" SAVE GNC006":b::c=PV:=PH:ePHH=PH:99:A$="":B$=""fI=1SL:".";::PH=PHH:99gI=1SL+1i9,23:90:KPV=18:80:350:LPV=21:80:350:M2,1879,23:90:P2,PV79,PV:90:QPH,PV79,PV:90:RPH,PV79,PV:90:S2,2279,22:90:T2,2179,23:90:U2,2379,23:90:V2,1979,23:90:W2,2379,2:90: X85E!"showpath$)=0showpath$=dv$ #1000 2:1000=99:" ";:"========";:2?BOT$="Press Letter Key for Function Desired":D2,2079,20:90:EF3,279,13:90:G2,1579,15:90:)H2,1779,23:90:M$=BOT$:pv=23:350:I2,177sure That Your Data Disk Has Approximately 35 Blocks":352Vpv=22:m$="of Space by Deleting Files or Move Your Matrix to a Different Disk":352Mpv=23:m$="with System Utilities. (Move both the 'M.' & 'V.' Files).":352 400:cmd<>137);:62990 Disk to Save the Computed Results in the":352Ypv=19:m$="Temporary File. When You Press the RETURN Key, You'll be Returned to":352Xpv=20:m$="the Main Command Line and the Last File Loaded. Before Re-executing":352[pv=21:m$="the Calculation, In#1;J:#1;K:#1;V(J,K) :#1 œ62770("volnames" 2œ95<#1,"volnames"3=#1;dv$:#1;matnm$:tf$="T":#1;tf$:#1;ptr$:#1 P"gnc001"77:71:ph=5:7);:: œ62910dv$+"T."+fd$Ypv=18:m$="There Is Not Enough Space on reate GNC Directory & Write Temp file :72:71:pv=23:808Dm$="Returning to Main Function Selection":pv=20:350Nnowrite=162800-Xm$="& Saving Computed Results":pv=21:350 bœ62900#1,dv$+"T."+fd$K=110:J=1100&V(J,K)<>02:5,1774,17: 59310I"Function Commands Manual page"; 59300: l59300:vm$="The "+helpfile$+" file is not available":pv=3:3503m$="Press any key to continue":pv=4:350:7);a$:59093/0 Ca$=32)590407);:59060#1$oldcmd=8677:m$=savem$:357:72:m$=savem$:354:@:pv=1:ph=1:99:j=15Jž#159250 T#1;a$"Xa$="START"59400:j=1:59210\99:a$;:pv=pv+1^hralldone=1:j=5:592305,1874,2k #1:"97(#3xalldone=0:savem$=m$:71:m$=helpfile$:pv=15:350K77:m$="Press 'Space Bar' for More-or 'ESCAPE' to Terminate":pv=23:350 59300 œ59500#1,"help/"+helpfile$ 59200a$alldone=159095a$=27)59092^2) : ";:#1;"######.####";Z1N#1;"Coefficient of Multiple Correlation : ";:#1;"######.####";Z1)R#1;"Standard Error of Estimate : ";:#1;"######.####";Z/L)) I=14:#1: XTRA>0I=1XTRA:#1: b ERROR95 Equation Coefficients & Statistics"HJ#1:#1;"Constant (y-intercept): ";:#1;"######.####";A(1,V+2):#1 TI=2V+1H^#1;"(";IV(I-1);") ";R$(IV(I-1));24);:#1;"######.####";A(I,V+2)h:#1:#1:xtra=(5-v)K#1;"Coefficient of Determination (R:" ";::PH=PHH+I-1:99ja$:A$=27)kA$=13)120/qA$=8)A$=127)A$=8+UCA)140:105rFLAG=0:130:FLAG=1105tA$=13)120uA$;:B$=B$+A$:A$=""v%wB$,1)<>13)370:PH=PHH:101xPH=PHH+I-1:99:".";:A$)>1FLAG=1:A$=27)FLAG=1:A$)>1FLAG=1: FLAG=0:.I=SL+1" ";:I=I-1:PH=(PHH+I-1):99:155SZ$)>0I=1SL=SL+1:PH=PH-0:99:".";:PH=PH-1:Z$="":PHH=PHH-1:B$="":99:180'".";:PH=PHH-1:I=I-1:PH=PHH+I-2:99!I=<0I=1:PH=P}PH=3+4:99:GN$(I);}PH=PH+19:99:GN$(I+5);}PH=PH+19:99:GN$(I+10);}PH=PH+19:99:GN$(I+15);}+}M$="Slide Number to Change:":PV=22:350E}M$="(Enter `S' to Save Show File or `Esc' to Backout)":PV=23:350>}PV=22:Z=1:PH=55:SL=2:LL=1:UL=20: 18. ...........":PV=19:PH=3:352a}M$="4. .......... 9. .......... 14. .......... 19. ...........":PV=20:PH=3:352a}M$="5. .......... 10. .......... 15. .......... 20. ...........":PV=21:PH=3:352}PV=16:I=15:PV=PV+1an}M$="1. .......... 6. .......... 11. .......... 16. ...........":PV=17:PH=3:352ax}M$="2. .......... 7. .......... 12. .......... 17. ...........":PV=18:PH=3:352a}M$="3. .......... 8. .......... 13. .......... 015.":4Ipt%=2:ln%=5:pitch$=18):tab1$="D":tab2$=20):l}PV=20:80:PV=23:80:71:M$="Create/Modify `SHOW' File -- File Names Presently in the SHOW File":357 }œ32900&}SHOWFILE=1:#1,showpath$+"SHOW"}I=120:#1;GN$(I)::#1 d}œ95howpath$:PV=21:350H pItype=147#Ipt%=printerid:pt%18870,18871I#9,ptr$:#9;27);pitch$;Ipt%=1#9;27);tab$;I#9IPSCREEN(%TYPE) I#9,ptr$Ik4%=1ln%:#9:I#9;27);pitch$;:#9I.Ipt%=1:ln%=8:pitch$=78):tab$="("+"000: Make Slide Show$HCMD=8233000: Run Slide Show'Hcmd=6736000: Change path name H7);:18540HM$=LITBOT$:72:71XHM$="SLIDE SHOW: Make Run Change path 'Escape' ":3544Hm$="SHOW File Path Name : "+sse Put Program Disk in Disk Drive":71:PV=20:3500%M$="Press `Space Bar' When Ready":PV=21:350&400'CMD=2772:18500(CMD=321579)7);:1574 +72:1500 DH185908lHhelpfile$="SLIDE":400:CMD=27pgnm$="gnc003":1500%vHCMD=7732MD=CMD-32:CMD>64CMD<91CMD=27/CMD=(81+UCA)CMD=(81+LCA)OA%=1:CMD=16:7);:400@BIGBOT$=BOT$:LITBOT$="Press Letter Key for Function Desired" 1850072:œ1572:PV=22:PH=5:99 #PGNM$R$pv=23:80:71:7);:M$="PleaB$="Y"B$="y"Q=1:365jB$="N"B$="n"Q=2:365 k369:360m q7);:6r7);:Z1$)<>0Z$<>""Z$="":SL=SL+1:PHH=PHH-1"vPH=PHH:99:i%=1sl+1:" ";:{OA%=0:CMD=0a$:cmd=a$)cmd=6359000::410"CMD>96CMD<123C;:: print centered linehigh*bPV=15:PH=3:345:PH=5:99:M$;:: cmd cHOLD=PH:PH=2:345:PH=HOLD:dPH=HOLD:PV=16:99:"?";:@ePV=15:PH=40-(M$)/2)):99:M$;::: print centered line fPV=15:PH=2:99:" ";:gPV=15:PH=3:345: h250:i45): - SIGN A$=46): PERIOD  A$=32): space OK=0: TB$)=0B$=MATNM$:99:B$;UY99:142);:7^PH=40-(M$)/2)):99:M$;:: print centered line_82:: clear a line`99:M$;:;aPH=40-(M$)/2)):99:M$1: X8=N$)X8>ULX9=1:X864)A$<91): capitals )A$>96)A$<123): lower case %A$>47)A$<58): numbers A$=120: Right7);:106$X9=0:X8=0:H9=0:101:A$=27)N$=Z$+B$:H=1N$)N$)=0X9=1:"N$,H,1))=46H9=H9+1:212N$,H,1))=45H8=H:209N$,H,1))<48X9=1:N$,H,1))>57X9=1:212H8=1212 X9=HH:99:B$="":I=1B$="":170B$=B$,I-1)PH=PHH+(I-1):99:.A$=11)DIRECTION=72:A$=13):120: Up0A$=10)DIRECTION=80:A$=13):120: Down/A$=8)DIRECTION=75:A$=13):120: Left1A$=21)DIRECTION=77:A$=13):201:A$=27)Z=0:18500%}B$,1)="S"B$,1)="s"32405}X932240,32250}369:32210}X832310,32320,32330,32340,32350,32360,32370,32380,32390,32391,32392,32393,32394,32395,32396,32397,32398,32399,32400,32401+~Z=1:SL=10:101:A$=27)32500:32210 ~35000~GN$(X8)=B$:322006~PV=17:PH=7:@~PV=18:PH=7:J~PV=19:PH=7:T~PV=20:PH=7:^~PV=21:PH=7:h~PV=17:PH=26:r~PV=18:PH=26:|~PV=19:PH=26:~PV=20:PH=26:~PV=21:PH=26:~PV=17:PH=45:~PV=18:PH=45:~PV=19:PH=45$ Copyright 1982, Marton Inc.  All Rights Reserved  SAVE GNC007-a(x)=x*100+.5)/100 11000 2:2000<99:" ";:"--------";:=99:" ";:"========";:2?BOT$="Press Letter Key for Function Desired":D2,2079,20:503m$="Press any key to continue":pv=4:350:7);a$:59093210\99:a$;:pv=pv+1^hralldone=1:j=5::592305,1874,22:5,1774,17: 59310I"Function Commands Manual page"; 59300: l59300:vm$="The "+helpfile$+" file is not available":pv=3:3#1,"help/"+helpfile$ 59200a$alldone=159095a$=27)59092a$=32)a$=13)590407);:59060oldcmd=8618590: 18590:@:pv=1:ph=1:99:j=15Jž#159250 T#1;a$"Xa$="START"59400:j=1:59::::::::::::::::::::ϝKD%=1:::1000,PÈ#10,".GRAFIX":MODE=2:grafixmode(%2,%1)ZÕfillcolor(%0):fillport dÕgrafixonÿ;xalldone=0:savem$=m$:71:m$=helpfile$+" HELP":pv=15:35077:m$=HLP$:pv=23:350 59300 œ59500&ph=35:sl=30:101:a$=27)18500showpath$=b$1showpath$,1)<>"/"showpath$=showpath$+"/"1Ȍshowpath$,1)<>"/"showpath$="/"+showpath$ 18500ch=240350=2740385 40330 œ40399CƝ:::::::::::350400CMD=2733950 3392072:18500 Єٜ,:BAD=0:I=1B$)(ˆB$,I,1)=" "BAD=1:I=B$):35020̈:BPV=20:80:PV=23:80:71:M$="Change Prefix to 'SHOW' File":357985:m$="New 'Prefix' to SHOW File : ":pv=23:ph=5:352FILLPORT:MOVETO(%1,%100)V#10;"The graph ";showpath$+"P."+gn$(i)+" is not present, Press a Key to Continue"a$ƒa$=27)quit=1 33440Al84:M$="You Must MAKE Show File Before Running It":PV=20:350.vM$="Press 'Escape' to Continue":PV=21:GN$(I)="none"GN$(I)="None"33440 GLOAD.showpath$+"P."+GN$(I)CH33500,33600quit=140330 33250҂KD%=1:71::1000܂N=1SLIDE::@Ja$*T=(80+uca)=(80+lca)18800:33640^=2740385 h40330rH=72:SL=2:LL=1:UL=15:201:A$=27)185000X933075,332003369:33071SLIDE=X8*1000:71 œ3390071ā#1,showpath$+"SHOW"΁I=120:#1;GN$(I)::#1 Ӂ50000 ؁SPLIT=0 œ33700 40330xI=120:quit=08}GN$(I)="NONE"lides Automatically or When Any Key is Pressed (A or K):":PH=4:352%PH=72:SL=1:101:A$=27)18500 B$="a"B$="A"CH=1:33070 B$="k"B$="K"CH=2:33210 $33020I.M$="Time to Display Each Slide in Seconds (1 to 15):":PV=20:PH=4:3520/P":pv=21:3504a$H72 R18500I=120:GN$(I)="None":SHOWFILE=0:32100(Z=1:71:M$="Run the Slide Show":357 œ33900#1,showpath$+"SHOW":#1>pv=23:80:m$="Press 'ESCAPE' to Terminate Slide Show":350]PV=19:80:M$="Change S$(I)::#1~72:18500~X832310,32320,32330,32340,32350,32360,32370,32380,32390,32391,32392,32393,32394,32395,32396,32397,32398,32399,32400,32401:99:GN$(X8);:8 73:m$="No Space on Disk for 'SHOW' File":pv=19:350-*m$="Press Any Key to Continue:~PV=20:PH=45:~PV=21:PH=45:~PV=17:PH=64:~PV=18:PH=64:~PV=19:PH=64:~PV=20:PH=64:~PV=21:PH=64:"~SHOWFILE=1showpath$+"show"&~I=120:GN$(I)=""GN$(I)="NONE"~ ~œ32800~#1,showpath$+"show"~I=120:#1;GN90:EF3,279,13:90:G2,1579,15:90:pv=15:)H2,1779,23:90:M$=BOT$:pv=23:350:KPV=18:80:350:LPV=21:80:350:M2,1879,23:90:P2,PV79,PV:90:QPH,PV79,PV:90:RPH,PV79,PV:90:S2,2279,22:90:TMOOTHHELP":400:CMD=2762000:`̻CMD=83CMD=1:85:M$="Single Smoothing":52400:52300:j̻CMD=68CMD=2:85:M$="Double Smoothing":52400:52300:t̻CMD=84CMD=3:85:M$="Triple Smoothing":52400:523007);:52310Z=1:71:353GMR1$="Row With3*10)+2:99 #600::RELEASE:RELEASE:nowrite=1bSES(100),DES(100),TES(100),EA(100),EB(100),TA(100),TB(100),TC(100),Y(101),FDES(101),FTES(101)SL̾71:M$="EXPONENTIAL SMOOTHING: Single Double Triple `Esc'":354/VHELPFILE$="S$RD%(R9)+1670,671,672,673,674:"########";V(K4,R9);:"######.#";V(K4,R9);:"#####.##";V(K4,R9);:"####.###";V(K4,R9);:"###.####";V(K4,R9);: k2=(k1+6)-1:k2>100k2=1006!k3=0:k4=k1k2:k3=k3+1:pv=r9+3:ph=(9+k7);:400 save gnc002$RD%(R9)+1550,551,552,553,554:&LL=LL0:UL=LU0:'LL=LL1:UL=LU1:(LL=LL2:UL=LU2:)LL=LL3:UL=LU3:*LL=LL4:UL=LU4:XV(K4,R9)=0" -";:;540:V(K4,R9)UL"#.2#4E";V(K4,R9);:SL+1:PHH=PHH-1"vPH=PHH:99:i%=1sl+1:" ";:{OA%=0:CMD=0a$:cmd=a$)cmd=6359000::410"CMD>96CMD<123CMD=CMD-32:CMD>64CMD<91CMD=27CMD=32cmd=13/cmd=(LCA+81)cmd=(UCA+81)OA%=1:CMD=16::"?";:@ePV=15:PH=40-(M$)/2)):99:M$;::: print centered line fPV=15:PH=2:99:" ";:gPV=15:PH=3:345: h250:iB$="Y"B$="y"Q=1:365jB$="N"B$="n"Q=2:365 k369:360m q7);:6r7);:Z1$)<>0Z$<>""Z$="":SL=142);:7^PH=40-(M$)/2)):99:M$;:: print centered line_82:: clear a line`99:M$;:;aPH=40-(M$)/2)):99:M$;:: print centered linehigh*bPV=15:PH=3:345:PH=5:99:M$;:: cmd cHOLD=PH:PH=2:345:PH=HOLD:dPH=HOLD:PV=16:99$;&A$>64)A$<91): capitals )A$>96)A$<123): lower case %A$>47)A$<58): numbers A$=45): - SIGN A$=46): PERIOD  A$=32): space OK=0: TB$)=0B$=MATNM$:99:B$;UY99:N$)=0X9=1:"N$,H,1))=46H9=H9+1:212N$,H,1))=45H8=H:209N$,H,1))<48X9=1:N$,H,1))>57X9=1:212H8=1212 X9=1: X8=N$)X8>ULX9=1:X813)370:PH=PHH:101xPH=PHH+I-1:99:".";:"A$)=>8A$)<=21flag=1:-a$)=>123a$)>90a$)<97flag=1: FLAG=0:.I=SL+1" ";:I=I-1:PH=(PHH+I-1):99:155SZ$)>0I=1SL=SL+1:PH2:c=PV:=PH:ePHH=PH:99:A$="":B$=""fI=1SL:".";::PH=PHH:99gI=1SL+1i:" ";::PH=PHH+I-1:99ja$:A$=27)kA$=13)120/qA$=8)A$=127)A$=8+UCA)140:105$rFLAG=0:130:FLAG=17);:105tA$=13)1202,2179,23:90:U2,2379,23:90:V2,1779,23:90:W2,2379,2:90: X85:YZ=1:86:84:Z:1,180,24:[/_=1:=20:"Error type ";;" in line ";ERL:Da::"Apple Business BASIC -- ";;" Bytes Free":"SAVE GNC007": b:1- Values:":MR2$="Smoothed #'s in Row #:":SC$="":58800̻A$=27)72:N=(MC2-MC1)+1:J=N+14M$="Alpha Factor (.005 - .9999)":PV=20:PH=3:3522LL=.005:UL=1.9999:SL=4:PH=48:201:A$=27)X952460,52470̾369:52440 ALPHA=X89M$="Time Periods for Forecast (1-12)":PV=21:PH=3:352+LL=1:UL=12:SL=2:PH=48:201:A$=27)X952475,52476̾369:52473 T=X8:(T+MC2)>100T=100-MC27pv=23:m$="Computing Smoothed Values":350:nowrite=0N ;52500:CMD55000,56000,57000:57500:R9=MR2DATAvq7 '  'M.BASELEmq: 61 V.BASE{61 62 R.TIME+q; QG.BASE1E1q q . HELPvq7 '  ''GENERAL%FILESz$%GRAPH+ $CALC4 5 UTIL4, SLIDE/gnc2/data/ base V .UPICS alldone=0:savem$=m$:71:m$=helpfile$+" HELP":pv=15:35077:m$=HLP$:pv=23:350 59300 œ59500#1,"help/"+helpfile$ 59200a$alldone=159095a$=27)59092a$=32)590407);:59060#1$oldcmd=8677:mUL=100:SL=3:201:A$=27)X958520,58530369:58500 MC2=X8:QPV=18:PH=3:99:MR1$;:PH=28:99:MR2$;:PV=19:PH=3:99:MC1$;:PH=28:99:MC2$;58100:A$=27)58200:A$=27)58400:A$=27)58500:A$=27);xX958120,58130369:58100 MR1=X8:1XPV=18:PH=48:LL=1:UL=10:SL=2:201:A$=27)bX958220,58230l369:58200 vMR2=X8:1 PV=19:PH=23:LL=1:UL=99:SL=2:201:A$=27)*X958420,584304369:58400 >MC1=X8:2PV=19:PH=48:LL=1:=MC1:I=3J:K=K+1V(K,MR2)=FTES(I)ނ:%V(MC2+T,MR2)=FORECAST:PERIODS=T-1*DIFFERENCE=(V(MC2+T,MR2)-V(MC2,MR2))/TPERIODS=<0I=MC2+1MC2+(T-1)"V(I,MR2)=V(I-1,MR2)+DIFFERENCE:1PV=18:PH=23:LL=1:UL=10:SL=2:201:A$=27)MC2+T;:PV=22:PH=47:99:FORECAST; pv=23:8067);:M$="Press Space Bar to Continue":PV=23:353پ400&ٻCMD=27559990ٻCMD=3255999 :ٺ55580ڿ)V(MC1,MR2)=SES(2):K=MC1:I=3J:K=K+1V(K,MR2)=FDES(I)ڂ:)V(MC1,MR2)=SES(2):K=SES(I)::)V(MC1,MR2)=SES(2):K=MC1:I=2N:K=K+1V(K,MR2)=SES(I):<F ׁI=JJ+(T-1)5V(I,MR2)=ALPHA*(V(I-1,MR2)-V(I-2,MR2))+V(I-2,MR2)ׂFORECAST=V(MC2+T,MR2)ؿ4M$="Forecast for Period # is":PV=22:PH=3:352PH=23:99:/(2*(1-ALPHA)^2))*((6-5*ALPHA)*SES(I)-(10-8*ALPHA)*DES(I)+(4-3*ALPHA)*TES(I))6TC(I)=(ALPHA/(1-ALPHA))^2*(SES(I)-2*DES(I)+TES(I))΂ "΁I=3J%,FTES(I)=TA(I-1)+TB(I-1)+TC(I-1)/26΂&@FORECAST=TA(J)+TB(J)*T+TC(J)/2*T^2Ͽ#ҁI=MC1MC2:V(I,MR2))-DES(I))nEB(I)=(SES(I)-DES(I))*ALPHA/(1-ALPHA)x͂ ́I=3JFDES(I)=EA(I-1)+EB(I-1)͂FORECAST=EA(J)+T*EB(J) ͻCMD=2TES(1)=Y(2) ́I=2J*TES(I)=ALPHA*DES(I)+(1-ALPHA)*TES(I-1)$TA(I)=3*SES(I)-3*DES(I)+TES(I-1)]TB(I)=(ALPHA:PV=MR2+4:800:55500:Z=0:72:$Y(0)=0:I=2J:Y(I)=V(I-1,MR1):SES(1)=Y(2) ́I=2J)(SES(I)=ALPHA*(Y(I)-SES(I-1))+SES(I-1)2͂5FORECAST=SES(J) 7ͻCMD=1FDES(1)=Y(2) ṔI=2J*ZDES(I)=ALPHA*SES(I)+(1-ALPHA)*DES(I-1)dEA(I)=2*SES(IFUNCTIONS Graph'n' Calc has four major functions: GRAPH: to display and print graphs from data in the array CALC: to perform analytical computations on array data DATA: to enter numbers and row and column labels START Plot a Line Chart L 4-8 Plot a Grouped Bar Chart B 4-10 Plot a Stacked Bar Chart S 4-12 Plot a Kombo Line/Bar Chart K 4-14 Plot a Pie Char-15 Set file prefix name F,V 3-14 Create Sub-directory F,M 3-17 ,C,A 3-16 Catalog of row files F,C,R 3-16 Catalog of "slide" files F,C,P 3-16 Set printer name F,P 3-18 Set default file name F,N 3xt File F,L,R,T 3-13 Save Array-Graph'n' Calc Format F,S,A 3-5 Save Array-DIF Format F,S,I 3-7 Save Row-Graph'n' Calc Format F,S,R 3-6 Catalog of array files FSTART Load Graph'n' Calc Array F,L,A 3-8 Load Graph'n' Calc Row F,L,R,G 3-11 Load DIF Array F,L,I 3-9 Load Desktop/Plan Row F,L,R,D 3-12 Load Row from TeSTART Graph G 4-1 Calc C 5-1 Data D 2-1 Files F 3-1 ' key while being prompted for parameters terminates the command and you are returned to a command prompt. 'ESCAPE' while being prompted for a command backs you up 'One Level' in the command selection Structure. and level has its own 'Help' function) PARAMETERS are the specifications of which rows and columns of data in the array on which calculations are to be performed or from which graphs are to be drawn. ESCAPE Pressing the 'ESCAPE FILES: to save & load data for plotting or calculations COMMANDS: Functions are entered by Pressing the Letter Key Corresponding to the first letter of the Command from the list in the 'Command Window.' (Each major commt P 4-16 Make 'Picture' File on Disk U,M 4-18 Load a 'Picture' from disk U,L 4-19 Print the last Graph made U,P 4-20 Redisplay the last graph R,T,A 5-28 FINANCIAL Internal Rate of Return F,I 5-30 Net Present Value F,N 5-31 TIME SERIES Grow a value T,G 5-32 Exponenti R,T,R 5-25 ROW ARITHMETIC - Transform a row to Logarithms R,T,L 5-22 Exponential R,T,E 5-23 Square Roots R,T,S 5-24 Absolute 5-21 Clear a Row (New) R,N 5-29 ROW ARITHMETIC - Transform Multiply by constant R,T,M 5-26 Divide by constant R,T,D 5-27 Reverse row sequence ,* 5-18 Divide R,/ 5-18 ROW ARITHMETIC Add a group of rows (sum) R,S 5-19 Accumulate across row R,A 5-20 Copy R,C S,D 5-14 Comparative S,C 5-16 ROW ARITHMETIC Add R,+ 5-18 Subtract R,- 5-18 Multiply R C,L 5-8 Exponential C,E 5-9 Geometric C,G 5-10 Multiple Linear Regression C,R 5-11 STATISTICS Descriptive / 5-4 DESK CALCULATOR - Other Zero the Accumulator D,C 5-7 Store Accumulator in Array D,P 5-6 Load Accumulator from Array D,G 5-5 CURVE FITTING Linear 5-3 DESK CALCULATOR - Array Entry Add D,+ 5-4 Subtract D,- 5-4 Multiply D,* 5-4 Divide D,START DESK CALCULATOR - Keyboard Entry Add D,A 5-3 Subtract D,S 5-3 Multiply D,M 5-3 Divide D,D S,R 4-23 U,R 4-21 Slide Show U,S 4-22\4-24 SLIDE SHOW: Change path of 'SHOW' File U,S,C 4-24 Make, Modify 'SHOW' File U,S,M 4-22 Run slide show U,al Smoothing T,E 5-35 Interpolate T,I 5-37 TIME SERIES - SEASONAL Compute Factors T,S,C 5-33 Apply Factors T,S,A 5-34 USER (Execute User Rule) U 5-39 62800START Change path of 'SHOW' File U,S,C 4-24 Make, Modify 'SHOW' File U,S,M 4-22 Run slide show U,S,R 4-23 U,R,S 4-22 / 4-24 START Make 'Picture' File on Disk U,M 4-18 Load a 'Picture' from disk U,L 4-19 Print the last Graph made U,P 4-20 Redisplay the last graph U,R 4-21 Slide Show ames" 2œ95<#1,"volnames"3=#1;dv$:#1;matnm$:tf$="T":#1;tf$:#1;ptr$:#1 P"gnc001"77:71:ph=5:7);:: œ62910dv$+"T."+fd$Ypv=18:m$="There Is Not Enough Space on Disk to Save the Computed Results in the":352Ypv=19:m$=808Dm$="Returning to Main Function Selection":pv=20:350Nnowrite=162800-Xm$="& Saving Computed Results":pv=21:350 bœ62900#1,dv$+"T."+fd$K=110:J=1100&V(J,K)<>0#1;J:#1;K:#1;V(J,K) :#1 œ62770("voln Commands Manual page"; 59300: l59300:vm$="The "+helpfile$+" file is not available":pv=3:3503m$="Press any key to continue":pv=4:350:7);a$:59093/0 Create GNC Directory & Write Temp file :72:71:pv=23:$=savem$:357:72:m$=savem$:354:@:pv=1:ph=1:99:j=15Jž#159250 T#1;a$"Xa$="START"59400:j=1:59210\99:a$;:pv=pv+1^hralldone=1:j=5:#1:592305,1874,22:5,1774,17: 59310I"Function 2106 28 1 2133 29 1 2435 30 1 2231 31 1 2299 32 1 2470 33 1 2363 34 1 2691 35 1 2693 36 1 2364 95 2 4 95 3 5 95 4 6 95 5 7 1 1 1320 2 1 1253 3 1 1521 4 1 1445 5 1 1619 6 1 1539 7 1 1678 8 1 1728 9 1 1609 10 1 1753 11 1 1706 12 1 1801 13 1 1628 14 1 1589 15 1 1800 16 1 1835 17 1 1828 18 1 1751 19 1 2051 20 1 2201 21 1 2121 22 1 2215 23 1 2190 24 1 2278 25 1 2231 26 1 1978 27 1 Shipments 0 0 0 0 0 0 0 1 1 0 Jan80 Feb80 Mar80 Apr80 May80 Jun80 Jul80 Aug80 Sep80 Oct80 Nov80 Dec80 Jan81 Feb81 Mar81 Apr81 May81 Jun81 Jul81 Aug81 Sep81 Oct81 Nov81 Dec81 Jan82 Feb82 Mar82 Apr82 May82 Jun82 Jul82 Aug82 Sep82 Oct82 Nov82 Dec82 "Temporary File. When You Press the RETURN Key, You'll be Returned to":352Xpv=20:m$="the Main Command Line and the Last File Loaded. Before Re-executing":352[pv=21:m$="the Calculation, Insure That Your Data Disk Has Approximately 35 Blocks":352 an error type ";;" in Statement # ";;*PV=21:PH=15:99?4"Press Any Key to Continue After Noting Statement Number";oA$:63000 SAVE USERn$L where n = a number from 1-97V when you execute this module enter 'n' as your$` module number when prompted/ Start your module in line number 2000 72 ""GNC002 7);:73PV=19:PH=15:99; "Your rule had1 0 0 0 1 36 A N 0 0 0 1 87 88 89 90 91 92 93 94 95 96 97 98 99 100 Time 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 le with a GOTO 63000 statementC You can cause a row of computed values to be displayed in the4$ array window with the following statement:. UROW=n:GOSUB 800/8 Where 'n' is the row number to display&B Save your module withV(K4,R9);:"####.###";V(K4,R9);:"###.####";V(K4,R9);:' R9=UROW:K2=(K1+6)-1:K2>100K2=100?*K3=0:K4=K1K2:K3=K3+1:PV=R9+3:PH=(9+K3*10)+2:99:600:: œ63500+ Begin user module with statement 20007 Terminate your moduLL=LL2:UL=LU2:)LL=LL3:UL=LU3:*LL=LL4:UL=LU4:XV(K4,R9)=0" -";:;540:V(K4,R9)UL"#.2#4E";V(K4,R9);:$RD%(R9)+1670,671,672,673,674:"########";V(K4,R9);:"######.#";V(K4,R9);:"#####.##"; 1000)H2,1779,23:90:M$=BOT$:pv=23:350:I2,1779,23:90:Z:1,180,24:c=PV:=PH:7^PH=40-(M$)/2)):99:M$;:: print centered line save gnc002$RD%(R9)+1550,551,552,553,554:&LL=LL0:UL=LU0:'LL=LL1:UL=LU1:(Vpv=22:m$="of Space by Deleting Files or Move Your Matrix to a Different Disk":352Mpv=23:m$="with System Utilities. (Move both the 'M.' & 'V.' Files).":352 400:cmd<>137);:62990 62800U,R 4-21 Slide Show U,S 4-22\4-24 SLIDE SHOW: Change path of 'SHOW' File U,S,C 4-24 Make, Modify 'SHOW' File U,S,M 4-22 Run slide show U,xecute User Rule) U 5-39 al Smoothing T,E 5-35 Interpolate T,I 5-37 TIME SERIES - SEASONAL Compute Factors T,S,C 5-33 Apply Factors T,S,A 5-34 USER (E R,T,A 5-28 FINANCIAL Internal Rate of Return F,I 5-30 Net Present Value F,N 5-31 TIME SERIES Grow a value T,G 5-32 Exponenti R,T,R 5-25 ROW ARITHMETIC - Transform a row to Logarithms R,T,L 5-22 Exponential R,T,E 5-23 Square Roots R,T,S 5-24 Absolute 5-21 Clear a Row (New) R,N 5-29 ROW ARITHMETIC - Transform Multiply by constant R,T,M 5-26 Divide by constant R,T,D 5-27 Reverse row sequence ,* 5-18 Divide R,/ 5-18 ROW ARITHMETIC Add a group of rows (sum) R,S 5-19 Accumulate across row R,A 5-20 Copy R,C S,D 5-14 Comparative S,C 5-16 ROW ARITHMETIC Add R,+ 5-18 Subtract R,- 5-18 Multiply R C,L 5-8 Exponential C,E 5-9 Geometric C,G 5-10 Multiple Linear Regression C,R 5-11 STATISTICS Descriptive / 5-4 DESK CALCULATOR - Other Zero the Accumulator D,C 5-7 Store Accumulator in Array D,P 5-6 Load Accumulator from Array D,G 5-5 CURVE FITTING Linear  5-3 DESK CALCULATOR - Array Entry Add D,+ 5-4 Subtract D,- 5-4 Multiply D,* 5-4 Divide D,START DESK CALCULATOR - Keyboard Entry Add D,A 5-3 Subtract D,S 5-3 Multiply D,M 5-3 Divide D,D S,R 4-23 START Make 'Picture' File on Disk U,M 4-18 Load a 'Picture' from disk U,L 4-19 Print the last Graph made U,P 4-20 Redisplay the last graph U,R 4-21 Slide Show START Change path of 'SHOW' File U,S,C 4-24 Make, Modify 'SHOW' File U,S,M 4-22 Run slide show U,S,R 4-23 U,R,S 4-22 / 4-24