' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`25140-e\FeFB,/ۡ)A.@e;GF+B(F GEM ڍ mUuEO,@ GۡAڵeGuUصyހGn }*Ѵ؍*5ЬE5-] ,EeF] GE%E,4DeFD,(*яeFЭC DM謅 FOgCeFysFreF FeֻeFeF},/e3Fe3FD*{y,Eei)F]E 4E 4%EN GRNFF͏U%)F)F)F)F)FEEEEEEEEEEEE ߖ KJWV>YN:VP15:HP32:SL3:LL1:ULC:T7İ62100/d201ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊLL(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ OF 'VALUES' FILE":TC311210F'+L$(15)"ARE THESE COMPUTED VALUES"'+300:63200:VP9:HP20:SL15:101:71:340:FD$B$".D":X$FD$DR$VN$:VP13:HP20:SL15:101:71:340:HOLD$B$:TC311370 (,VP17:HP20:SL1:101:71:T$B$:(B$)0ĢVP:HP2:"L1:UL3:201:71:X911100,111101&\+369:11080_&f+TCX8:TC1T3$"ENTER NEW VALUES":11150&z+TC2T3$"CHANGE VALUES":11150&+TC3T3$"DISPLAY VALUES"'+T2$T3$:L$(5)"DEFAULT FILE NAME: ":L$(7)"NAME OF 'MODEL DEFINITION' FILE":L$(11)"NAME:%*:T2$"ENTER, MODIFY, OR DISPLAY VALUES":L$(5)" 1. ENTER A NEW VALUES FILE":L$(7)" 2. CHANGE VALUES IN AN":L$(8)" EXISTING FILE":L$(10)" 3. DISPLAY VALUES":L$(23)"ENTER NUMBER FOR FUNCTION":300!&H+VP23:HP28:SL1:L:10700:999:103,AD(AD256)256:104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520":16151,0:520"EXECUTE"$)VP23:HP1:70:M$"READING FILES":351:X$FD$DR$VN$:52000:FI$"NONE"10730$)X$FI$DR$VN$:50000%)VP23:HP1:70:VP23:M$MS$:351:22AME OF PLANNING VALUES":L$(11)"NAME OF CALCULATION RULES":300:63200#'VP9:HP20:SL15:101:71:340:FD$B$".D":VP13:HP20:SL15:101:71:340:CR$B$".R":VP17:HP20:SL15:101:71:340:FI$B$".I":360:Q10200,10150j$'RE1:MS$"LOADING EXECUTE"(AD256)256::104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520":520"VC CONVERTER""&:D$;"CATALOG ";DR$;VN$:"PRESS ANY KEY TO CONTINUE";:A$:A$:1500F#'T2$"EXECUTE CALCULATIONS":L$(5)"DEFAULT FILE NAME: ":L$(7)"NAME OF MODEL DEFINITION":L$(15)"N6::104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520":16151,0:520"PRINT"!#22:1:X2$"PLOT":X3$",D1":X4$PV$",":2052,2817,X2$,X3$,X4$!%999:103,AD(AD256)256::104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520":520"AP CONVERTER"Q"H&999:103,AD$B$".D":VP13:HP20:SL15:101:71:340:FI$B$:B$"NONE"ī9100v #VP18:HP20:SL1:101:B$"P"FI$FI$".I":9100 #B$"C"FI$FI$".C":9100 #369:9090 #360:Q9120,9000H!#RE1:MS$"LOADING PRINT PROGRAM":10700:999:103,AD(AD256)25V$;",A520":520"BACKUP"(#T2$"PRINT REPORT":L$(7)"NAME OF MODEL DEFINITION":L$(5)"DEFAULT FILE NAME: ":L$(11)"NAME OF VALUES":L$(15)"'PLANNING' OR 'COMPUTED' VALUES":L$(16)" ENTER P OR C":300:63200A n#VP9:HP20:SL15:101:340:FD$B$".D":FD):(4)"BLOADCHAIN,D1";PV$;",A520":16151,0:520"DEFINE"z999:103,AD(AD256)256:104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520":16151,0:520"RULES"(4);"RUN CONSOLIDATE"999:103,AD(AD256)256::104,(AD256):(4)"BLOADCHAIN,D1";P$,1);:15:37:VS$;:16:16:PL$;:16:37:PW$;:17:17:PT$;:37:PS$;:VP19:HP24:99:HN$;VP23:HP34:SL1:LL1:UL6:200:X91580,1590,369:1560622:1:X81310,2190,9800,9600,9900,10109f22:1:999:103,AD(AD256)256::104,(AD256"6. RETURN TO MAIN MENU"L$(15)"FILES ON DRIVE # FILES ON VOLUME":L$(13)" CURRENT CONFIGURATION":L$(16)"PAGE LENGTH PRINTER WIDTH":L$(17)"PRINTER TYPE PRINTER IN SLOT":L$(19)" DEFAULT FILE NAME-->"]300:15:17:(DRT2$"VERSION "VR$:L$(3)" UTILITIES":L$(5)"1. CHANGE SYSTEM CONFIGURATION":L$(6)"2. COPY DESKTOP/PLAN FILES"L$(7)"3. CONVERT VISICALC FILE TO PLAN":L$(8)"4. CONVERT PLAN TO APPLEPLOT FILE":L$(9)"5. CATALOG OF DATA DISKETTE":L$(10)1VP23:HP34:SL1:LL1:UL8:200:X91287,1290@369:1281O K14Č84922:1:QS1:X82150,11000,2170,10000,9000,9200,2180,1500:99022:1:999:103,AD(AD256)256::104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520":520"SETPARM"}b@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵` `` p + { j 몤+- - p   0 UD󩰙aEL # 4ʈ0]., D0  0$L: ـ$0ELԩ : ; 3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:63010dJD$;"BSAVE ";X$;",A";AA;",L";AL:t|99:868:(B$)0ĢVP:HP2:B$"Y":B$ɺH ְZLԠɲLȢ  $.D{ʆ PS"::VP23:HP16:SL15:100:260:CR$B$".R":RE1:62300:23:14::"LOADING 'EXECUTE'"::23:999:103,AD(AD256)256::104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520":16151,0:520"EXECUTE"AX0>"AAAX((107)((108)256)):AL(AA2)((AA15:100:VP24:HP1:70:(B$)0ī62400>FI$B$".I":62065`34,8:35,18::34,0:35,24:u\VP23:HP1:70:62300:P$"EXECUTE CALCULATIONS ?"VP23:HP25:SL1:100:250:B$"N"991B$"Y"6246062420Y62300:P$"NAME OF RULEVN$:6300062400AP$"REPLACE THE ORIGINAL FILE ?":62300oVP23:HP30:SL1:100:250:B$"Y"ī62065B$"N"M$"Y OR N, PLEASE":370:62095'62300:P$"NEW FILE NAME":VP24:HP1:99:"PRESS 'RETURN' TO NOT SAVE THE FILE";:VP23:HP20:SL::N13:H$(N):N:D$;"CLOSE ";FD$:70216,0:950BD60020^D$;"DELETE ";X$:600101HD$;"RENAME ";FD$;",";FD$;DR$;VN$:D$;"OPEN ";X$:D$;"READ ";FD$:R:C:V(C,R):R$(R),C$(C),R1$(R),C1$(C),H$(3):C2$(C)N1C:C$(N):N:N1C:C1$(N)::N1C:C2$(N)::N1C:(C2$(N))0C2$(N)C$(N):C$(N)""&:N1R:R$(N):N:N1R:R1$(N)PRESS 'RETURN' TO CONTINUE":SL0:100:3`ꥫ62100>e62000Hjꥫ950tD$;"OPEN ";X$:D$;"WRITE ";FD$:R:C:N1C:C$(N)::N1C:C1$(N)::N1C:C2$(N)::N1R:R$(N):N1R:R1$(N)::N13:H$(N):N:D$;"CLOSE ";FD$:(VN$"254":y'24:1:" TYPE 'END' TO QUIT";:23:1:VP23:HP22:SL3:LL1:UL3:200:B$"END"HP1:VP18:350:VP19:350:VP20:350:2170.'X910040,100508'369:10015B'X82070,2090,2110:10000'0u:VP10:HP1:99:"MODEL SIZE TOO BIG"::VP12:HP33:P$"< FD$B$".D":X$FD$DR$VN$:VP23:M$"WRITING FILE":351G 60000P 990h I130:".";::: I130:".";::36: I11:".";:::I130:" ";::5:.37:I11:" ";::37:'VP23:HP1:350:P$"ENTER LINE TO CHANGE"$:63103p,D$;"CLOSE PARAMETERS":Y$(DA$,4):DR$",D"DR$:VS$VN$:VN$",V"VN$:PV$",V"PV$:PU$PV$:UN$VN$:,VP5:HP22:99:HN$;:D$:(C2$(N))0C2$(N)C$(N):C$(N)""y+˂:N1R:R$(N):N:N1R:R1$(N)::N13:H$(N):N:D$;"CLOSE ";FD$:16151,0:+|D$;"OPEN PARAMETERS,D1":D$;"READ PARAMETERS":MG$,VR$,PL$,PW$,PT$,PS$,DR$,VN$,PV$,HN$+A$:A$;:A$(13)63105,DA$DA$AAA1)):(X9$,1)"V"AXAXAL:50030>*Ì2052,AA,FI$,DR$,X2$D*ñg* ˺D$;"OPEN ";X$:D$;"READ ";FD$*R˄R:C:V(C,R):R$(R),C$(C),R1$(R),C1$(C),H$(3):C2$(C)*\˹16151,0*pˁN1C:C$(N):N:N1C:C1$(N)::N1C:C2$(N):*u˹16151,0#+zˁN1Cd),VP23:HP1:70:VP23:M$"LOADING VALUES":351:23:1:999:103,AD(AD256)256::104,(AD256)),(4)"BLOADCHAIN,D1";PV$;",A520":16151,0:520"VALUES")PX2$VN$",":AX0%*nAAAX((107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((Y";:11370($,T$"Y"11370.(.,T$"N"11370>(8,369:11280V(j,360:Q11380,11150g(t,TC311410y(~,T$"N"11410(,FI$HOLD$".C":11420(,FI$HOLD$".I"),VP23:HP1:70:VP23:HP12:M$"READING FILES":351:52000:X$FI$DR$VN$:TC1İ500000:a)hBT2$RD$(12):M$(1)" 1-ROW TO DIVIDE INTO":M$(2)" 2-ROW TO DIVIDE BY":M$(6)"":60070:*\DT2$RD$(13):M$(1)" 1-ROW OF DIVISOR":M$(2)" 2-COLUMN-DIVISOR":M$(3)" 3-ROW OF VALUES":M$(4)" 4-FROM COLUMN":M$(5)" 5-TO COLUMN":M$(6)" 6-ROW T070:&(:T2$RD$(8):M$(6)"":60070:G(T2$RD$(10):M$(1)" 1-ROW TO SUBTRACT":M$(2)" 2-ROW TO SUBTRACT FROM":M$(6)"":60070:)t@T2$RD$(11):M$(1)" 1-ROW TO MULTIPLY":M$(2)" 2-ROW TO MULTIPLY BY":M$(6)"":6007" 1-ROW TO 'GROW'":M$(2)" 2-ROW TO GROW BY":M$(3)"":M$(6)"":60070:'4T2$RD$(6):M$(3)"":M$(4)"":M$(5)"":M$(6)"":M$(6)" --ALL COLUMNS WILL BE ZEROED--":60070:(6T2$RD$(7):M$(1)" 1-ROW TO COPY":M$(2)"":M$(6)" 6-COLUMNS TO SHIFT":60 WHAT ROW":M$(6)" 6-TO WHAT ROW":M$(3)"":60070:&.s&.T2$"3-INTERPOLATE A ROW":M$(3)"":M$(6)"":60070:&0T2$"4-COMPUTE A GROWTH RATE":M$(1)" 1-ROW WITH DATA":M$(2)"":M$(6)"":M$(3)" 3-ROW FOR GROWTH RATE":60070:I'2T2$RD$(5):M$(1)Q10390,10910%(F210920;%(R$(N1)"END":NN1:30000F%*31000Q%*F2ı\%*10000%*T2$RD$(1):M$(3)"":M$(6)"":60070:4&,T2$RD$(2):M$(1)" 1-ROW WITH VALUE":M$(2)" 2-COLUMN WITH VALUE":M$(4)" 4-COLUMN TO BE FILLED":M$(5)" 5-FROM00,22500,18000,18500,19000,19500,20000,20500,22000:4:32:F2ĺN:10355Q$q(N1 %s(T26100,26200,26300,26400,26500,26600,26700,26800,26900,27000,27100,27200,27300,27400,27500,27600,27700,27800,27900,28000,28100:61600:T1$"DESKTOP/PLAN-II":1060:360:ITHMETIC":&#(2:33:F2ĺN;:103000# (N1;a#<(VP23:HP31:SL3:LL1:UL21:201:B$"END"ıu#P(X910330,10340#Z(VP24:HP1:350:369:10300H$d(TX8:T1$"ENTER A RULE":T11000,11500,12000,12500,13000,13500,14000,15000,15500,16000,16500,17000,175 19-DIVIDE":L$(20)" 20-PERCENT" #'L$(23)" ENTER NUMBER FOR RULE TYPE":L$(22)" 'END' TO RETURN TO MENU":60000:4:1::"DATA GENERATION";::4:22:"ROW ARITHMETIC";:14:1:"SPECIAL":14:22:"COLUMN ARCUMULATE":L$(14)"SPECIAL COLUMN ARITHMETIC":L$(15)" 21-CUSTOM RULE 15-ADD GROUP COLS":L$(16)" 16-ADD 2 COLUMNS"G"'L$(17)" 17-SUBTRACT":L$(18)" 18-MULTIPLY":L$(19)" S":L$(6)" 2-FILL A COLUMN 9-ADD 2 ROWS" 8'L$(7)" 3-INTERPOLATE ROW 10-SUBTRACT":L$(8)" 4-COMPUTE GRO RATE 11-MULTIPLY":L$(9)" 5-GROW A ROW 12-DIVIDE":L$(10)" 6-ZERO A ROW 13-PERCENT"!`'L$(11)" 7-COPY/SHIFT ROW 14-ACP#369:9020Z#X809999B[#JX8:H1N:NJ:10000:Q9200,9300i#H1H11:KH1J1:R$(K)R$(K1):T$30000,31000:NH1'. 'T2$"ENTER RULES NUMBER : ":L$(4)"DATA GENERATION ROW ARITHMETIC":L$(5)" 1-EXTEND ROWS 8-ADD GROUP/ROWP$"RULE NUMBER TO DELETE"LTVP23:HP24:SL3:LL0:ULN:200:X98040,8050[h369:8020jrX808100sJX8:KJN:R$(K)R$(K1)::NN1(#VP23:HP1:350:P$" RULE NUMBER TO ADD"<#VP23:HP32:SL3:LL0:ULN:200:X99040,9050 61700360:Q7500,7060T26100,26200,26300,26400,26500,26600,26700,26800,26900,27000,27100,27200,27300,27400,27500,27600,27700,27800,27900,28000,28100:61600:7045LH2N:NH1:30000:31000:NH2T1$"DESKTOP/PLAN-II":@VP23:HP1:350:000,12500,13000,13500,14000,15000,15500,16000,16500,17000,17500,22500,18000,18500,19000,19500,20000,20500,22000{4:30:H1:T40100,40200,40300,40400,40500,40600,40700,40800,40900,41000,41100,41200,41300,41400,41500,41600,41700,41800,41900,42000,42100:PA1:" "::"--":6750,6I1PA:" "::2^gXVP23:HP1:350:P$" RULE NUMBER TO DISPLAY"bVP23:HP30:SL3:LL0:ULN:200:X97016,7020h369:7010lI1X8:I107600opH1I1:6500:T1$"DISPLAY & OR CHANGE A RULE":T11000,11500,12" ":" ":" ":"CALCULATION RULES NAMED ";CR$;" ";DA$:" ":"NUMBER";" ";"DESCRIPTION";:I119:" ";::I02:"ROW ";I1;" ";::I02:"COL ";I1;" ";:::I136:"-";::" ";:K16:" ------";::PAPL7:,PT$"5"āI129100:29200:29300:29400:29500:29600:L929100:29300:29400:29500:u929100:29200:29400:29500:29600:929100:29200:29400:29500:29600:9䢰29100:29200:29400:29500:29600:9H29100:29200:29400:29500:29600::29100:29200:-829100:29300:29400:29500:29600:V8`29100:29200:29300:29400:29500:8ğ29100:29200:29300:29400:29500:8(29100:29200:29300:29400:29500:829100:29200:29300:29400:29500:829100:29200:29300:29400:29500:*9TN)R$(N)K$7u?7yT0:L10:L20:L30:C10:C20:C30:K$"":a729100:29200:29400:29500:729100:29200:29400:29500:29600:7l29100:29200:29400:29500:7Н29100:29300:29400:29500:7429100:29200:29400:29500:829100:2924:C2;:6s15:34:C3;:60uC(1)T:C(2)L1:C(3)L2:C(4)L3:C(5)C1:C(6)C2:C(7)C3:K17:C$(K)(C(K))::K17:C(K)0İ62000:300336Iu(C$(K))3300336NuK11(3(C$(K))):C$(K)"0"C$(K): 7Qu:R$(N)"":K17:R$(N)R$(N)C$(K)::(K$)0R$(201:B5C1:61900:X928032,2803315m369:28030;5mC1X8|5mVP14:HP32:SL3:LL1:ULR:201:B5C2:61900:X928037,280385m369:280355mC2X8:25600:5m25400:5q7:34:L1;:5r8:34:L2;:5tr9:34:L3;:5r13:34:C1;:6!>!gB!hB!OF!PF!7J"8JL1R7380 8CLCL4:7540:U BK30:K4K1K2:K3K31:HP(10K310):99:600::[ t ~VPCL:HP11CC10:99::">";::  VPCL:HP11CC10:99:" ";: I11:(7);:: 62300!!VP23:HP1:70:HP10:99::"ARE YOU SURE ";::VPL21:L(L2)L1:VPL2:HP21:60:HP31:60:7460\(R$(L1),1)"#"L2L21:L(L2)L1::7460(R$(L1),1)"="L2L21:L(L2)L1:VPL2:HP21:61:HP31:61:7460L2L21:VPL2:HP1:99:(R$(L1),15);17);L1;:7490:L(L2)L1$L2177480 .L1L11:0)1:99:C$(K);:VP7:99:C2$(K);:*0ON918:L(N)0::L1L:L28^L1R7480{R$(L1)""L1L11:7380(R$(L1),1)"*"L1L11:7380(R$(L1),1)"^"L2L21:VPL2:HP1:99:(R$(L1),15);:L(L2)L1:7460.(R$(L1),1)"-"L2(R$(L1),1)"*"70300N(R$(L1),1)"^"7030dX(R$(L1),1)"-"VPN:HP21:60:HP31:60:7030b(R$(L1),1)"="VPN:HP21:61:HP31:61:7030l7490v:7540:R$\HP1:I67:VPI:70::K2K11:K30:KK1K2:K3K31:VP6:HP(11K310: 8100h23:5::"1ST COLUMN TO DISPLAY";::VP23:HP28:SL2:LL1:ULC:201:B$(13)ızX96910,6915369:6870X8CX8X81K1X8:HP21:I918:VPI:8100:K2K11:7250:N918:L1L(N):VPN:(R$(L1),1)""7030D ,"CC1İ7560:CCCC1:7540:>,K2Cİ7580:W6CC2:K1K11:6940:]T^8100:23:7::"1ST ROW OF NEW PAGE ";::rVP23:HP30:SL3:LL1:ULR:201:B$(13)ıX96810,6820369:6770LX88000:CL9:CC1:735CL1186550'7560:CLCL1:7540:9LRİ7580:^L(18)RLL(18)5:L1İ7580:rR$(L)""ī6600LR6610LR9:6610LL1:65706830:CC2İ7560:CCCC1:7540:K11İ7580:6670CC1:K1K11:6940=D$;"CLOSE PARAMETERS":Y$(DA$,4):DR$",D"DR$:VS$VN$:VN$",V"VN$:PV$",V"PV$:PU$PV$:UN$VN$:11LL0:62300 ?LL(C11)1&?\[?54915:216,0:VP22:HP1:99:61000:61230:950h?,0:2200N200<|D$;"OPEN PARAMETERS,D1":D$;"READ PARAMETERS":MG$,VR$,PL$,PW$,PT$,PS$,DR$,VN$,PV$,HN$<A$:A$;:A$(13)63105K$B$:G>19:3:K$:q>h36,4:"COMMENT: ";K$:PAPA1:K$"":>B$(13)X8B5:X92:VP:HP2:X8;>>0(C$(K))3C$(K)(C$(K),1)"0"(C$(K),1)>:>C2CUL0:62200>UL(CC2)?C,D1":768,PS:775:PT3Ĺ907,234:908,234:909,234@=769,PW:l=.PT61260,61260,61260,61260,61260,61260=LD$;"PR#0":54,G1:55,G2:56,G3:57,G4:=VP19:HP110,61150,61150,61040,61040:[*N30190:SP204(C2C11):BPSP3:30230:30280:SY104(MX(1MN)):LC1C2:X62(LC11)SP:XBP2,148XBP2,138(V(L,R1)D󩰙aEL # 4ʈ0]., D0  0$L: ـ$0ELԩ : ; ` ``;; ` ``($L: ـ$0ELԩ : ; ` ``ɺH ְZLԠɲLȢ  $.D{ʆ P p + { j 몤+- - p   0 Uꈈ$0ELԩ : ; ` ``.D{ʆ P p + { j 몤+- - p   0 UD󩰙aEL # 4ʈ0]., D0  0ELԩ : ; ` ``: p + { j 몤+- - p   0 UD󩰙aEL # 4ʈ0]., D0  0$L: ـ{ʆ P p + { j 몤+- - p   0 UD󩰙aEL # 4ʈ0]., D0  0$L: ـ$0(UL18(PW42UL4F(VP13:HP35:SL2:LL1:201:X910460,10470V(369:10440`(C2X8)VP15:HP35:SL1:101:Q$B$:Q$"N"10540)Q$"Y"10540")10500,)ɺH ְZLԠɲLȢ  $.D10440P(PW116UL7:104406Z(PW126UL8:10440Nd(PW136UL9:10440gn(PW146UL10:10440x(PW156UL11:10440(PW166UL12:10440(PW176UL13:10440(PW186UL14:10440(PW196UL15:10440(PW216UL17:104402:LL1:ULC9:201:X910190,102002'369:10170b'K6X8:TCC9:CC9:((K6K5)1)CC(K6K5)1'PW(PW$):UL1:PW(PW$):PW57UL1:10430(PW66UL2:10440((PW76UL3:104402(PW86UL4:10440<(PW96UL5:10440F(PW106UL6:00007B'VP7:HP35:SL3:LL1:ULR:201:X910070,10080GV'369:10050Q`'N1X8j'VP8:HP35:SL3:LL1:ULR:201:X910110,10120~'369:10090'N2X8'VP10:HP35:SL2:LL1:ULC9:201:X910150,10160'369:10130'K5X8"'VP11:HP35:SLʈ0]., D0  0$L: ـ$0ELԩ : ; ` ````;"BSAVE ";X$;",A";AA;",L";AL:ɺH ְZLԠɲLȢ  $.D{ʆ P p + { j 몤+- - p   0 UD󩰙aEL # 43369:2040#VN$",V"(X8)]4VP11:HPPO:SL1:LL1:UL26:101:36000:X92120,2130lH369:2100vRK1X8VP12:HPPO:SL1:LLK1:ULK117:101:36000:X92220,2230369:2200K2X8VP14:HPPO:SL3:LL1:UL254:201:X92252,225300(VP4:HP22:SL15:101:260:F$B$YVP6:HPPO:SL1:LL1:UL7:201:X92022,2023h369:2020{SL$",S"(X8)VP7:HPPO:SL1:LL1:UL2:201:X92032,2033369:2030DR$",D"(X8)VP8:HPPO:SL1:LL0:UL254:201:X92042,204AST COLUMN OF VALUES (A TO Z)":L$(17)"1ST ROW OF COLUMN HEADINGS":L$(18)"2ND ROW OF COLUMN HEADINGS"$L$(14)"1ST ROW OF VALUES":L$(15)"LAST ROW OF VALUES":L$(20)"1ST COLUMN OF DESCRIPTION (A TO Z)":L$(21)"LAST COLUMN OF DESCRIPTION (A TO Z)":\ 103,1:104,11:1005o T2$"CONVERT VISICALC TO DESKTOP/PLAN":PG$"VC CONVERTER":PO35:FT(1016):950 L$(4)"FILE NAME":L$(6)"SLOT OF FILE":L$(7)"DRIVE OF FILE":L$(8)"VOLUME OF FILE"h L$(11)"1ST COLUMN OF VALUES (A TO Z)":L$(12)"L          D$;"OPEN PARAMETERS,D1":D$;"READ PARAMETERS":MG$,VR$,PL$,PW$,PT$,PS$,DR$,VN$,PV$,HN$tbA$:A$;:A$(13)63350lDA$DA$A$:63330vD$;"CLOSE PARAMETERS":Y$(DA$,4):DR$",D"DR$:VS$VN$:VN$",V"VN$:PV$",V"PV$:A: HAX0|RAAAX((107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:61010zD$;"BSAVE ";X$;",A";AA;",L";AL:K115:(7);::61100:K216000::X(16384):16368,0:X12761110WD0:l(#23:13::">>COMPUTING<<";::22:1:"":L1R:K1C:V(K,L)V1(K,L):::X$FI$DR$VN$:61000:991u`AX0jAAAX((107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:60010D$;"BLOAD ";X$;",A";A1X86,VP23:HP19:SL3:LL1:ULR:201:X95420,5425@1L2X8n6VP23:HP30:SL1:101:B$"Y"İ5600:5400JB$"N"VP23:HP1:350:5400T5430:9000K1C:V1(K,L2)V(K,L1)::pN$"":N1$"":X$F$(F)".C,D"D1$(F)",V"D2$(F):6000:D1$(F)B$>VP18:HP27:SL3:LL0:UL254:201:X95333,5334M369:5331^D2$(F)(X8)VP18:HP35:SL1:101:B$"Y"İ6000:5400B$"N"VP18:HP4:350:53205340VP23:HP1:350:VP23:HP1:SL3:LL1:ULR:201:B$"END"5599"L13:HP20:SL15:101:FI$B$".I":N50:sX$FD$DR$VN$:D$;"OPEN ";X$:D$;"READ ";FD$:R:C:D$;"CLOSE ";F$:V(C,R),V1(C,R),D1$(N),F$(N),D2$:F1N18:1:F;":";VP18:HP2:350:SL15:101:F$(F)B$:B$"END"FN:5599 VP18:HP19:SL1:101NAME OF 'TRANSFER TO' VALUES FILE"L$(16)"FILE DRIVE VOLUME OK":L$(17)"NAME # # Y/N":L$(20)"FROM TO":L$(21)"ROW NUMBER ROW NUMBER OK (Y/N)"'300:VP7:HP20:SL15:101:260:FD$B$".D":VP21:1:"PUT DISK TO SAVE ";FI$:" IN DRIVE #";(DR$,1);" & PRESS RETURN":61110:" ":X$FI$DR$VN$:61000t( 991":T2$"TRANSFER LINES FROM SUB MODELS":L$(4)"NAME OF 'MODEL DEFINITION' FILE":L$(5)"THAT DEFINES SIZE OF 'TRANSFER TO' FILE":L$(10)" DRIVE #";D1$(J);" & PRESS RETURN";:61110:VP22:HP1:350:22:1:"SUMMARIZING #";J;" ";FC$(J):X$FC$(J)",D"D1$(J)",V"D2$(J):60000:L1R:K1C:V1(K,L)V1(K,L)V(K,L)::k J:L1R:K1C:V(K,L)V1(K,L):::VP18:HP1:350:VP19:350:VP22:350:v:M:v0:XP55:L2MN(1MN):L3MX((1MN).1):L4(MXMN)10:L1L2L3L4:63,138(L1SY)62,138(L1SY):CH$((L1(1MN))):YP138(L1SY):30060:vZX13:CH$H$(ZX):XP162(((CH$)2)8):YP(ZX1)8:30070:vA$:(A$)2730440v: 16,0:950"5uEC(222):EC69502uEC535000CuEC255ī991Lu991R}\}B$""z}A$:A$;:A$(13)ī32041}B$B$A$:32005)}*}IN$B$:B$"":耱JX$F$".D"SL$DR$VN$:H$(1)F$:H$(2)"CONVERTED FROM VISICALC"::P$"DONE REAN)"*":9998X((D2D1)1)9:R$(N)(IN$,X):Q0:Q10:I1C:X((((K11)I)1)9)1:V$(IN$,X,9):(V$,7,1)"."R1$(N)"2":Q11:8230# Q108230% R1$(N)"0"& V(I,N)(V$):V(I,N)0Q10 :Q0R$(N)R$(N)"^":8330 '' 0u2":5015 pDzI1C:X((((K11)I)1)9)1:C$(I)(IN$,X,9)::JXbI1C:X((((K11)I)1)9)1:C2$(I)(IN$,X,9)::@T(IN$)0R$(N)"#":9998h(IN$,1)"-"R$(N)"-":9998r(IN$,1)"="R$(N)"=":9998 |(IN$,1)"*"R$(12:16:"VISICALC":14:19:"TO":16:11:"DESKTOP/PLAN FILES":18:20((F$)2));F$sNN1:NH1İ32000:5050NH2İ32000:5050IN$NH1İ6000:5100:NH2İ7000:5100:NL1ī50805100NL2İ800033000:IN$"9:2900r 2001 19:1:C(K2K1)1:R(L2L1)1:R((R10))10:RR10:V(C,R),R$(R),C$(C),R1$(R),C1$(C),H$(3),C2$(C):30000VD$;"RENAME ";F$;",";F$;SL$;DR$;VN$:D$;"OPEN ";F$;SL$;DR$;VN$:D$;"READ ";F$::8:15::"CONVERTING":::10:18:"FROM":2X8> VP20:HPPO:SL1:LL1:UL26:101:36000:X92720,2730M 369:2700W D1X8 VP21:HPPO:SL1:LLD1:ULD12:101:36000:X92820,2830 369:2800 D2X8T P$" IS THE ABOVE OK":VP23:HP25:SL1:100:B$"Y"3000h B$"N"İ363369:2250L1X8QVP15:HPPO:SL3:LLL11:UL290:201:X92262,2263`369:2260jL2X8VP17:HPPO:SL2:LL0:UL254:201:X92320,2330 369:2300 H1X8` VP18:HPPO:SL2:LL0:UL254:201:X92420,2430t 369:2400~ HR),C1$(C),H$(3):C2$(C)xN1C:C$(N):N:N1C:C1$(N)::N1C:C2$(N)::N1C:(C2$(N))0C2$(N)C$(N):C$(N)"":N1R:R$(N):N:N1R:R1$(N)::N13:H$(N):N:D$;"CLOSE ";FD$: $;DR$;VN$:AX0}AAAX((107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:4030D$;"BLOAD ";X$;",A";AA:D$;"RENAME ";FD$;",";FD$;DR$;VN$:D$;"OPEN ";X$:D$;"READ ";FD$:R:C:V(C,R):R$(R),C$(C),R1$((I,L1)I(K11)JV(I,L1):V(I,L2)::IK1K2:T2$"Y"V(I,L3)I(K11)sV(I,L3):V(I,L4)::D$;"CLOSE ";FA$P$" DO ANOTHER (Y/N) ":VP23:HP26:SL1:100:B$"Y"1400B$"N"20001:22:991X2$FC$:D$;"RENAME ";X2$;",";X2P16:HP32:SL2:LL1:ULC:201:X91720,1730;369:1700EK1X8zVP17:HP32:SL2:LLK11:ULC:201:X91770,1780369:1750K2X8:VP21:HP22:SL15:101:FA$B$:D$;"OPEN ";FA$;DR$;VN$:D$;"WRITE ";FA$:K2K11:K2K11:IK1K2:T1$"Y"V1432,1433369:1430#L2X8RVP12:HP32:SL1:101:T2$B$:T2$"Y"1530dB$"N"1500VP13:HP32:SL3:LL1:ULR:201:X91522,1523369:1420L3X8VP14:HP32:SL3:LL1:ULR:201:X91532,1533369:1530L4X8,VSL15:101:260:22:1::FC$B$".C":X$FD$DR$VN$:5000:X$FC$DR$VN$:4000|xVP8:HP32:SL1:101:T1$B$:T1$"Y"1430B$"N"1400VP9:HP32:SL3:LL1:ULR:201:X91422,1423369:1420L1X8 VP10:HP32:SL3:LL1:ULR:201:X9S":L$(12)"SECOND PLOT-IS IT A TIME SERIES":L$(13)" ROW NO. OF 'X' VALUES":L$(14)" ROW NO. OF 'Y' VALUES":L$(16)"FROM COLUMN":L$(17)"TO COLUMN":L$(19)"FILE NAME FOR APPLEPLOT FILE":300NVP4:HP22:SL15:101:260:NK$B$:FD$B$".D":VP6:HP22: 103,1:104,11:1005[ T2$"TO APPLEPLOT FILES":PG$"AP CONVERTER":FT(1016):950 L$(4)"'DEFINITION' FILE":L$(6)"COMPUTED VALUES FILE":L$(8)"FIRST PLOT-IS IT A TIME SERIES":L$(9)" ROW NO. OF 'X' VALUES" L$(10)" ROW NO. OF 'Y' VALUE   DING VISICAL FILE":VP8:37000:P$"PUT DESKTOP/PLAN DISKETTE":VP10:37000DP$"IN THE DISK DRIVE":VP12:37000:P$"PRESS 'RETURN' WHEN READY":P$"(DON'T WRITE ON VISICALC DISKETTE)":VP14:37000:P$"PRESS 'RETURN' WHEN READY":VP18:37000:I17:(7);C$(N)::N1C:C1$(N):r3N1C:C2$(N)::N1R:R$(N)::N1R:R1$(N)::N13:H$(N):N:D$;"CLOSE ";FD$:8::N1C:C1$(N):3N1C:C2$(N)::N1R:R$(N)::N1R:R1$(N)::N13:H$(N):N:D$;"CLOSE ";FD$:(2150&/R$(R),C$(C),R1$(R),C1$(C),H$(3):C2$(C):N1C:C$(N):N:N1C:C1$(N)::N1C:C2$(N)::N1R:R$(N):N:N1R:R1$(N)::N13:H$(N):Nv/D$;"CLOSE ";FD$:2D$;"OPEN";X$:D$;"DELETE ";X$:D$;"OPEN ";X$:D$;"WRITE ";FD$:R:C:N1C:AX((107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:11010*+D$;"BSAVE ";X$;",A";AA;",L";AL:.D$;"RENAME ";FD$;",";FD$;SD$;SV$:D$;"OPEN ";X$:D$;"READ ";FD$:R:C:V(C,R):FT$"I"12150/FT$"C"1 IN":P$" DRIVE #1":VP23:HP23:SL0:100:VP22:HP1:350:VP23:350:23:1:b'AX0'AAAX((107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:10010B'D$;"BLOAD ";X$;",A";AA:*AX0i+AA:350:VP23:350:22:1:@(7);:22:8:"PLACE DISKETTE TO COPY TO":P$"INTO DRIVE "(TD$,1)" PRESS RETURN WHEN READY":VP23:HP37:SL0:100:VP22:HP1:350:VP23:350:(#SD$"2"ıY-#VP23:HP1:350:(7);:22:1:"PLACE DISKETTE WITH PROGRAMS000fVP23:HP1:M$"WRITING RULES FILE":351:23:1:X$CR$TD$TV$:1500:350:23:1:SD$TD$İ9000o991X(7);:22:1:"PLACE DISKETTE WITH FILE TO BE COPIED":P$"INTO DRIVE "(SD$,1)" PRESS RETURN WHEN READY":VP23:HP37:SL0:100:VP22:HP11:350:351:X$FI$TD$TV$:11000:SD$TD$İ90009h991?puR$(400):15:1:"NAME OF RULES FILE TO TRANSFER":VP17:HP20:SL15:101:260:CR$B$".R":SD$TD$İ7000VP23:HP1:M$"READING RULES FILE":351:23:1:X$CR$SD$SV$:1010:SD$TD$İ8":19:1:"NAME OF VALUES FILE TO TRANSFER":VP21:HP20:SL15:101:260:FI$B$"."FT$:SD$TD$İ7000 M$"READING VALUES FILE":VP23:HP1:351:23:1:X$FD$SD$SV$:12000:351:X$FI$SD$SV$:10000:SD$TD$İ800006M$"WRITING VALUES FILE":VP23:HPTION FILE":351:X$FD$SD$SV$:12000:350:SD$TD$İ8000 VP23:HP1:350:M$"WRITING DEFINITION FILE":351:X$FD$TD$TV$:13000:350:SD$TD$İ9000991e15:1:"NAME OF DEFINITION FILE WITH SIZE":VP17:HP20:SL15:101:260:FD$B$".D:FT$"D"3000 ~ FT$"I"40002 FT$"C"4000D FT$"R"6000U FT$"N"991d 369:2400j  15:1:"NAME OF 'DEFINITION' FILE TO TRANSFER":VP17:HP20:SL15:101:260:FD$B$"."FT$:SD$TD$İ70009 VP23:HP1:350:M$"READING DESCRIP1:X92260,2265369:22401SV$",V"(X8)bVP5:HP15:SL1:LL1:UL2:201:X92320,2330q 369:2300 TD$",D"(X8)$ VP5:HP27:SL3:LL0:UL254:201:X92360,23658 369:2340= TV$",V"(X8)` a VP13:HP30:SL1:101:FT$B$UES' = I":L$(10)" 'COMPUTED VALUES' = C" L$(11)" 'CALCULATION RULES' = R":L$(13)" TYPE OF FILE TO TRANSFER":300:(7);VP4:HP15:SL1:LL1:UL2:201:X92220,2230369:2200SD$",D"(X8)VP4:HP27:SL3:LL0:UL254:20E ";X$:D$;"OPEN ";X$:D$;"WRITE ";CR$:N11N:R$(N1)::D$;"CLOSE":0:T2$"TRANSFER PLAN FILES":L$(4)"FROM WHAT DRIVE VOLUME":L$(5)"TO WHAT DRIVE VOLUME":L$(7)"TYPES OF FILES:":L$(8)" 'MODEL DEFINITION' = D":L$(9)" 'PLANNING VALs  103,1:104,11:1005$ 950F PG$"BACKUP":FT(1016):2000 N11:D$;"RENAME ";CR$;",";CR$;SD$;SV$:D$;"OPEN ";X$:D$;"READ ";CR$ $R$(N1):(R$(N1),3)"END"1090 8N1N11:1060 BD$;"CLOSE ";CR$:NN1:F D$;"OPEN ";X$:D$;"DELET         80V'369:10050`'N1X8Oj'VP8:HP35:SL3:LL1:ULR:201:X910110,10120_~'369:10090i'N2X8'VP10:HP35:SL2:LL1:ULC9:201:X910150,10160'369:10130'K5X8'VP11:HP35:SL2:LL1:ULC9:201:X910190,10200'369:10170-T5530,5530,5530,5530,5550,5530LD$;"PR#0":54,G1:55,G2:56,G3:57,G4:Z::5530'VP5:HP35:SL1:101:(B$)0B$"Y":VP:HP2:B$;'Q1$B$:Q1$"Y"10050.'Q1$"N"100508'369:10000B'VP7:HP35:SL3:LL1:ULR:201:X910070,10027);(69);"07";:5100&PT6ī5100d" ":12529,0:12524,255:12527,2:12528,7:12531,20jpPR$"PR#"(PS)(13)(9)(PW)"N":D$;PR$:D$;"BLOAD DRIVER,D1":768,PS:775:PT3Ĺ907,234:908,234:909,234F769,PW:|P:N1C:C2$(N)::N1R:R$(N):[xN1R:R1$(N)::N13:H$(N):N:D$;"CLOSE ";FD$:6N1R:R$(N):xN1R:R1$(N)::N13:H$(N):N:D$;"CLOSE ";FD$:P$)2):VP:X:P$:@AX0JAAAX((107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:40010rD$;"BSAVE ";X$;",A";AA;",L";AL:"(D$;"OPEN ";X$:D$;"WRITE ";F$;".D":R:C:N1C:C$(N)::N1C:C1$(N):::VP18:HP32:SL1:201R41000:X$F$".C"SL$DR$VN$:40000:I17:(7);::VP8:HP1:350::20:8:"FILE CONVERSION COMPLETE":991X8(B$):X8X864:X81X91:ȌX826X91:ʌX8LLX91:͌X8ULX91:ҌX92:X20(($:VR$:PL$:PW$:PT$:PS$:DR$:VN$:PZ$:HN$:DA$PlD$;"CLOSE PARAMETERS"::92780,2790 369:27707 PZ$(X8):PV$",V"PZ$:[ VP19:HP20:SL15:101:HN$B$:~ VP21:HP3:SL30:101:MG$B$:T 22:1::62000:990^ 0 PRINT D$;"DELETE PARAMETERS,D1" ND$;"OPEN PARAMETERS,D1":D$;"WRITE PARAMETERS"3bMG2:201:X92602,2603#* 369:26003+ PL$(X8):e VP15:HP30:SL1:LL1:UL2:201:X92702,2703t 369:2700 DR$(X8): VP16:HP30:SL3:LL0:UL254:201:X92757,2758 369:2750 VN$(X8):  VP17:HP30:SL3:LL0:UL254:201:X8):6` VP11:HP30:SL1:LL1:UL7:201:X92402,2403Eb 369:2400Uc PS$(X8):o PT$"1"UL156:2504 PT$"5"UL80:2504 UL216 VP12:HP30:SL3:LL40:201:X92508,2510 369:2500 PW$(X8):( VP13:HP30:SL3:LL1:UL13352@X80:X90:VP23:HP33:SL3:LL1:UL9:200:(B$)02270SB$"END"2900eX92270,2280t369:2250CX8:C2300,2400,2500,2600,2700,2750,2770,2810,2820:2240VP10:HP30:SL1:LL1:UL6:201:X92302,2303369:2300PT$(X12:HP:PW$;f13:HP:PL$;:J(DR$):DR$(DR$,J2):15:HP:DR$;:J(PV$):PZ$(PV$,J2):17:HP:PZ$:J(VN$):VN$(VN$,J2):16:HP:VN$;:19:22:HN$21:5:MG$;P$"NUMBER FOR PARAMETER TO CHANGE":VP24:HP1:350:M$"TYPE 'END' WHEN DONE": TO 216)":L$(13)"4-PAPER LENGTH IS":L$(15)"5-'PLAN' FILES ON DISK DRIVE #":L$(16)"6-'PLAN' DATA FILE VOLUME # IS" 7L$(17)"7-PROGRAMS ON VOLUME":L$(19)"8-DEFAULT FILE NAME->":L$(20)"9-REPORT FOOTER MESSAGE:":300:HP32:10:HP:PT$;:11:HP:PS$;:T OPTIONS":L$(5)"1=SERIAL CARD 5=SILENTYPE":L$(6)"2=PARALLEL CARD 6=VAR PITCH QUME" L$(7)"3=COM/CARD-HAS LF":L$(8)"4=COM/CARD-NO LF":L$(10)"1-TYPE OF PRINTER ATTACHMENT":L$(11)"2-PRINTER ATTACHED IN SLOT"t L$(12)"3-PRINT SPAN IS (40Q 103,1:104,11:1010& D$(4) T2$DA$:PG$"SETPARM":FT(1016):L$(4)" PRINTER ATTACHMENT OPTIONS":L$(5)"1=SERIAL CARD 5=SILENTYPE":L$(6)"2=PARALLEL CARD 6=VAR PITCH QUME"_ T2$DA$:PG$"SETPARM":L$(4)" PRINTER ATTACHMEN     0FC$(K)FC$(K)".C"LVP16:HP25:SL3:LL0:UL254:201:X92187,2188[369:2185lD2$(K)(X8)VP16:HP33:SL1:101:B$"Y"2153B$"N"VP16:HP1:350:2155369:2199J1K1:18:1:"PUT DISKETTE WITH ";FC$(J):"IN20);"DRIVE";27);"VOLUME";35);"OK":"NAME";20);" #";27);"#";35);"Y/N":T0:K0kiKK1:VP16:HP1:350k16:1:K;":";:VP16:HP2:SL15:101:FC$(K)B$:B$"END"2260zVP16:HP19:SL1:101:D1$(K)B$:D1$(K)"1"2180~D1$(K)"2"2180217AME ";FD$;",";FD$;DR$;VN$:D$;"OPEN ";X$:D$;"READ ";FD$:R:C:D$;"CLOSE "V(C,R),V1(C,R):7:1:"ENTER THE NAME OF THE":"FILE TO SAVE THE SUMMARIZED VALUES":P$" ":VP10:HP20:SL15:100:FI$B$".I":N50:QRFC$(N),D1$(N),D2$(N):14:1:"FILE";2000GB$"T"5000 H1080&:8);"SUMMARIZE SUB MODELS":3:1:"ENTER THE NAME OF THE 'MODEL":"DEFINITION' FILE THE SUMMARY FILE":P$"WILL BE USED WITH"KVP5:HP20:SL15:100:260:FD$B$".D":X$FD$DR$VN$:VP6:HP1:99:" ":D$;"REN":63300:950L$(24):L$(4)"DO YOU WANT TO:":L$(7)" SUMMARIZE IDENTICAL SUB MODELS":L$(9)" OR":L$(11)" TRANSFER LINES FROM SUB MODELS":L$(23)" S OR T":300:P$" S OR T"8VP23:HP20:SL1:101:B$"S"SLPG$"MENU"980-PG$"ERHNDLR"982sM$"RETURNING TO MENU":VP23:70:23:(20(M$)2)::M$::23:1D$;"RUN MENU,D1";PV$AD34((121)(122)256)::T2$"CONSOLIDATE MODEL FILES":PG$"CONSOLIDATE":FT(1016):D$;"NOMON C,I,O520"ERHNDLR"QS11009$:6SL(1528)16:VP8:HP1:99:"INSERT STANDARD DOS 3.3 DISK":"PRESS 'RETURN' WHEN READY"61,(55)1:63,(55)33:67,(55)10:066,7:60,0:62,255:468(7):A$:A$;:A$(13)988771,166:772,223:773,154:774,72:775,152:776,72:777,96K216,0:768WEP$PG$pLE(218)(219)256~ET(222)OE(212)54915VP20:HP1:99:" " 999:103,AD(AD256)256::104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520"::Q1:365jB$"Y"Q1:3653kB$"N"Q2:365[lM$"PLEASE ANSWER Y OR N":370:360amqM$"OUT OF RANGE/INVALID CHARACTER"r24:1s(7);20((M$)2));::M$;:uI11500:vVP24:HP1:70w;768,104:769,168:770,104::L$(I)"": ET2$"" JD T(B$)0B$HN$:VP:HP2:B$;:349O UHN$B$U ]h ^VP:1:868: _VP:(20(M$)2)::M$:: `VP:(20(M$)2):M$;: hP$" IS THE ABOVE OK ?" iVP23:HP25:SL1:100:71:(B$)0ĢVP:HP2:"Y";ī225 X91:! H91X91:' 4 X8(N$)F X8ULX91:X X8LLX91:c X92: (B$)0ĢVP:HP2:B$"Y":B$ 340: , 120((T1$)2));T1$ 5K14ĺ:315 620((T2$)2));T2$ ;I323:L$(I): @I323:X90:101:N$B$ A$(27)ı0 B$(21)ı= N$Z$B$Q (B$)0X91:` H1(N$)t (N$)0X91: ((N$,H,1))46H9H91:223 ((N$,H,1))45H8H:219 ((N$,H,1))48X91: ((N$,H,1))57X91: 225 H81 ";::101 u& vII1:(HPI1)2E wI0I1:VP:HP2:B$"":Y xI1B$"":122j yB$(B$,I1) z".";:(HPI1)2: A$".":A$;:(7);:(HPI1)2: PG$"VALUES"104 54915:4000 X80:X90:H90:100:N$B$:202 H90:X80 lA$(27)140) mA$(44)İ130:104< nA$(17)ī990O oA$(21)ī104f pA$(8)İ118:104~ qA$(13)ĺA$;:117 rA$;:B$B$A$ s t(B$,1)(13)M$"TOO MANY CHARACTERS-REENTER":PVVP:PHHP:370:VPPV:HPPH:VP:HP2:I91SL2:" (D$(4)210006<99:" ";:I18:"-";::U=99:" ";:I18:"=";::hFVP:1:868:nGtHcVP:HP:dVP:1:P$;" ";eVP:HP2:A$"":B$""fI1SL:".";:::VP:HP2gI1SL1hA$iA$(34)İ130:104         0280:SY104(MX(1MN)):2:62SP2,138(V(C1,R1)(1MN))SY:LC11C2:X62(LC11)SPSP2:X,138(V(L,R1)(1MN))SY::3 (R20ē62SP2,138(V(C1,R2)(1MN))SY:LC11C2:X62(LC11)SPSP2:X,138(V(L,R2)(1MN))SY:(30370: 16:HP1:590:P$"FILE NAME":HP11:SL15:160:(B$)05000NB$"NONE"5999FP$B$".P"VN$DR$",A8192,L8192":D$;"BSAVE";FP$o1170'30000:63,3463,148279,148:R20Ē3:0,1879,187$'2:0,1809,180:3:30190:SP204(C2C11):30230:32250,2070"T10000,20000:1170M L$(4)"PARAMETERS FOR BAR CHART":2020t16304,0:16302,0:PT$"5"4030D$;"PR#"PS$:" ":12529,128:12528,7:12524,0:12527,20:12531,25:(17):12527,0:12529,0:" "D$;"PR#0"::1170:VP*690:20704R1X8H>VP9:HP30:SL3:LL0:ULR:350:X92130,2140WR690:2110a\R2X8fVP13:HP30:SL2:LL1:ULC:350:X92170,2180z690:2150C1X8VP15:HP30:SL2:LL1:ULC:350:X92210,2220690:2190 C2X8:630:Q,5000+L$(4)"PARAMETERS FOR LINE GRAPH"L$(7)"FIRST ROW TO PLOT":L$(9)"SECOND ROW TO PLOT":L$(13)"PLOT FROM COLUMN":L$(15)"PLOT THROUGH COLUMN":520:5:1:"MODEL SIZE: ROWS=";R;" COLUMNS=";C;VP7:HP30:SL3:LL1:ULR:350:X92090,2100 T'":L$(10)"3=PRINT GRAPH-SILENTYPE":L$(12)"4=SAVE PICTURE":L$(19)"PRESS 'ESC' TO RETURN FROM GRAPH":L$(16)" FUNCTION ?":L$(20)"PRESS 'CTRL/Q' TO QUIT":520VP16:HP14:SL1:LL1:UL4:350:X91250,1260690:1220TX8:X82000,3000,4000LE NAME":L$(9)"COMPUTED VALUES FILE NAME":520: >$10308VP7:HP20:SL15:350:600:FD$B$:VP11:350:600:FI$B$:630:Q1100,1080LFD$FD$".D":FI$FI$".C":X$FD$DR$VN$:810:X$FI$DR$VN$:750L$(6)"1='LINE PLOT'":L$(8)"2='BAR CHAROD$;"CLOSE PARAMETERS":Y$(DA$,4):DR$",D"DR$:VN$",V"VN$:PV$",V"PV$:38400:216,0:15:1:"":X2$"MENU":X3$",D1":X4$PV$",":2052,2817,X2$,X3$,X4$3:960:D$;"BLOAD CHSET,A35900,D1":232,60:233,140::FT(1016):L$(5)"'DEFINITION' FIC:C2$(N):C$(N)""C$(N)C2$(N)tz:N1R:R$(N)::N1R:R1$(N)::N13:H$(N)::D$;"CLOSE ";FD$:16151,0:D$;"OPEN PARAMETERS,D1":D$;"READ PARAMETERS":MG$,VR$,PL$,PW$,PT$,PS$,DR$,VN$,PV$,HN$A$:A$;:A$(13)985DA$DA$A$:975(107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:760} 2052,AA,FI$,DR$,X2$:*D$;"OPEN ";X$:D$;"READ ";FD$:R:C:V(C,R),R$(R),C$(C),R1$(R),C1$(C),H$(3),C2$(C):N1C:C$(N): 4N1C:C1$(N)::N10ĢVP:HP2:"Y";:20:" "::Q1:680:B$"Y"Q1:680OB$"N"Q2:680iM$"Y OR N":700:630oM$"OUT OF RANGE/INVALID CHARACTER"24:1:(7);20((M$)2));::M$;::I11500::VP24:HP1:590:X2$VN$",":AX0bAAAX(X8LLX91:X92:u:20((T1$)2));T1$:20((T2$)2));T2$:I324:I:1:L$(I);::I324:L$(I)""::NVP:1:868:X(B$)0B$HN$:VP:HP2:B$:610]HN$B$b%vP$" IS THE ABOVE OK ":VP23:HP25:SL1:160:(B$)H90:170:N$B$:N$B$:H1(N$):(N$)0X91:S |((N$,H,1))46H9H91:450r ((N$,H,1))45H8H:430 ((N$,H,1))48X91: ((N$,H,1))57X91: 460 H81ī460 X91: H91X91: :X8(N$):X8ULX91: 280 A$;:B$B$A$::(B$,1)(13)M$"TOO MANY CHARACTERS-REENTER":PVVP:PHHP:700:VPPV:HPPH:VP:HP2:I91SL2:" ";::170  "II1:(HPI1)2:I0I1:VP:HP2:B$"": 6I1B$"":330 @B$(B$,I1) J".";:(HPI1)2:1 ^V 16384:35899:D$(4):M$"Y OR N":T1$"DESKTOP/PLAN-II":T2$"PLOT":L$(24):1050k VP:1:P$;": "; VP:HP2:A$"":B$"":I1SL:".";:::VP:HP2:I1SL1 A$:A$(17)1030 A$(21)ī200 A$(8)İ290:200 A$(13)ĺA$;:           z#   Ȯɠ Ȯà ڮɠ àҠҠ  ӠӠ Ԡɠ ȮĠ ȮҠ !Š"ԠԠŠ͠ Р РҠ  ҠҠԠ ՠ#ŠӠ Ӡ7̭ҺЯέɠ ԠΠӠϠԠà2Πʆ P p + { j 몤+- - p   0 UD󩰙aEL # 4ʈ0]., D0  0$L: ـ$0E1:X910460,10470!(369:10440+(C2X8Y)VP15:HP35:SL1:101:Q$B$:Q$"N"10540k)Q$"Y"10540v")10500|,)*HP80HPHP80:+HP40HPHP40: +ɺH ְZLԠɲLȢ  $.D{0d(PW136UL9:104402n(PW146UL10:10440Kx(PW156UL11:10440d(PW166UL12:10440}(PW176UL13:10440(PW186UL14:10440(PW196UL15:10440(PW216UL17:10440(UL18(PW42UL4(VP13:HP35:SL2:LL1:20'K6X8:TCC9:CC9:((K6K5)1)CC(K6K5)1]'PW(PW$):UL1:PW(PW$):PW57UL1:10430t(PW66UL2:10440((PW76UL3:104402(PW86UL4:10440<(PW96UL5:10440F(PW106UL6:10440P(PW116UL7:10440Z(PW126UL8:1044 PROGRAM DISK IN DRIVE #1";'"PRESS 'RETURN' WHEN READY"Y$'A$:A$;:A$(13)10020_.'.X0r2#AAAX((107)((108)256)):AL(AA2)((AA3)256):X9$((AA))((AA1)):(X9$,1)"V"AXAXAL:9010Z#D$;"BSAVE ";X$;",A";AA;",L";AL:2240#17);"IS FULL"::"PRESS RETURN TO RESTART SYSTEM":10020:2240#D$;"DELETE ";X$::"PUT:C$(N)::N1C:C1$(N):xN1C:C2$(N)::N1R:R$(N)::N1R:R1$(N)::N13:H$(N):N:D$;"CLOSE ";FD$:2240@D$;"OPEN ";X$:D$;"WRITE ";CR$:N10TN1N11:(R$(N1),3)"END"8050hR$(N1):8020rR$(N1):D$;"CLOSE ";CR$:2240(#AN' WHEN READY";,A$:A$;:A$(13)5080K:PF$"DESCRIPTION"ī6000cPPF$"VALUES"ī9000zPF$"RULES"ī8000PF$"EXECUTE"ī9000|PF$"CONSOLIDATE"ī9000pD$;"OPEN";X$:D$;"DELETE ";X$:D$;"OPEN ";X$:D$;"WRITE ";FD$:R:C:N1C:"THE DISK YOU SPECIFIED TO SAVE THE FILE":PF$"VC CONVERTER"9100bPF$"AP CONVERTER"9100yPF$"BACKUP"9100:20((X$)2));X$::"IS FULL. PUT AN INITIALIZED DISK IN":X9$"DRIVE # "(DR$,1)::20((X9$)2));X9$::7);"PRESS 'RETURE:"ERROR IN ";EP$;" PROGRAM":"ERROR TYPE IS ";ET::"WHEN YOU PRESS ANY KEY":"THE SYSTEM WILL RE-BOOT":A$:990:VP10:HP1:99:"YOUR MODEL IS TOO LARGE":"FOR THIS FUNCTION":"PRESS ANY KEY TO RETURN TO 'MENU'":A$:VP20:99:" ":2240ELE NOT ON VOLUME":ER$(8)"DISK MALFUNCTION":ER$(9)"DISK FULL":ER$(10)"FILE LOCKED"ER$(11)"SYNTAX ERROR":ER$(12)"NO BUFFERS AVAILABLE":ER$(13)"FILE TYPE MISMATCH":ER$(14)"PROGRAM TOO LARGE":ER$(15)"NOT DIRECT COMMAND":r :"ERROR IN LINE ";L;UN$::"PRESS 'RETURN' TO RE-START DESKTOP/PLAN";OA$:A$;:A$(13)2230kD$;"RUN MENU,D1";PU$:ER$(1)"LANGUAGE NOT AVAILABLE":ER$(2)"ERROR":ER$(3)ER$(2):ER$(4)"DISK WRITE PROTECTED"TER$(5)"NO FILE PRESENT":ER$(6)ER$(5):ER$(7)"FIWAS NOT":"ON YOUR SPECIFIED DATA DISK OR VOLUME":"OR ONE OF YOUR DISKETTES WAS WRITE" p"PROTECTED."::"CHECK YOUR CATALOG, SPECS, AND DISKETTES"::"PRESS 'RETURN' FOR CATALOG ON DATA DISK"; A$:A$;:A$(13)22002D$(4):D$;"CATALOG";DR$0((X$)2));:X$y 4:1:"'MODEL DEFINITION' NAME=";FD$:"PLANNING VALUES NAME =";FI$:"CALCULATION RULES NAME =";CR$ "COMPUTED VALUES NAME =";FC$:9:"DATA FILE DISK DRIVE =";DR$:"DATA FILE VOLUME =";UN$W 12:"A FILE YOU SPECIFIED  103,1:104,11:1005$ 990= D$(4):ET2552240k PF$PG$:PG$"ERHNDLR":ER$(15):ET03000{ ET774000 ET95000 ET5İ9200 ET153000 2260::I15:(7);::20((ER$(ET))2));::ER$(ET): ET22060 2      AT`vCPLԩ : ; ` ``GĠȠЯέɍӠȍ 0HRٍ΍΍UARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER|D$;"OPEN PARAMETERS,D1":D$;"READ PARAMETERS":MG$,VR$,PL$,PW$,PT$,PS$,DR$,VN$,PV$,HN$A$:A$;:A$(13)63150DA$DA$A$:63130D$;"CLOSE PARAMETERS":Y$(DA$,4):ASIS'"::" SEE MANUAL FOR",L @:13::"LIMITED WARRANTY":: D$;"OPEN PARAMETERS,D1":D$;"WRITE PARAMETERS":MG$:VR$:PL$:PW$:PT$:PS$:DR$:VN$:PV$:HN$:DA$:D$;"CLOSE PARAMETERS": $216,0:" ":62200:1526I JANUARY,FEBR12:SL18:100:(B$)0ī1520( DA$B$9 1540:62200| 22:1:X2$"MENU":X3$",D1":X4$PV$",":2052,2817,X2$,X3$,X4$( :6:13::"IMPORTANT NOTICE":::" DESKTOP/PLAN-II"::" IS DISTRIBUTED ON AN"::" 'AS IS B " ","DISTRIBUTED BY": " " v "PERSONAL SOFTWARE INC","1330 BORDEAUX","SUNNYVALE CA 94086"," ","408-745-7841": " ","408-745-7841":A$(20):J:I1J:I2A$(2)DA$:1210 A$(I) N(A$(I))2:20N);A$(I)::D$(4):N$"":P$"ENTER DATE":VP21:HPI1) u".";:(HPI1)2:@ F$(20),F1$(20):F2$(20):N$(6) :L$(23):T1$"DESKTOP/PLAN-II":D$(4):D$;"NOMON C,I,O":2:63100:62500 . 16: "DESKTOP/PLAN-II"," ": "": " ","COPYRIGHT 1980"," ": "DON WILLIAMS": "ALL RIGHTS RESERVED":8)İ113:104$ lA$(13)ĺA$;:112 mA$;:B$B$A$::(B$,1)(13)M$"TOO MANY CHARACTERS-REENTER":PVVP:PHHP:370:VPPV:HPPH:VP:HP2:I91SL2:" ";::101 p qII1:(HPI1)2:I0I1:VP:HP2:B$"": sI1B$"":117 tB$(B$,216,0::1030-(4);"BRUN FSTLDR"x :D$(4):D$;"NOMON C,I,O":T1$"DESKTOP/PLAN-II":T2$"":L$(23):1000dVP:1:P$;" ";eVP:HP2:A$"":B$"":I1SL:".";:::VP:HP2:I1SL1hA$:A$(27)104jA$(21)ī104 kA$(     254915:216,0:5000:3890eF(13):LCLC4:K71:" ":10);"...PRINTING ABORTED...":3780:2950G1(54):G2(55):G3(56):G4(57):PS(PS$):PT(PT$):PW(PW$):PL(PL$)::PT5040,5110,5150,5150,5040,5040:PR$"PR#"(PS):D$;PR$:PT6ĺ(PW433815!PT$"5"K713800<N91LC:" "::17);dK70:40((MG$)2));MG$:" ":" "j5500:(7);:VP23:HP1:70:P$" READY PAPER & PRESS RETURN":VP23:HP33:SL1:100:VP23:HP1:70:VP23:M$"PRINTING REPORT":351:5000:);DA$:20((H$(2))2));H$(2);47);"PAGE ";P:20((H$(3))2));H$(3):" ":36);:I9C1C3:(C$(I9))0ĺC$(I9);:3699r36I910);s::R1$;36);:I9C1C3:(C2$(I9))0ĺC2$(I9);:373036I910);::X9134:"-";::3530 LC1:LC0İ3780:3600! " "* J:: PW433555a 36);:KC1C3:" ---------";::g w PW433565 36);:KC1C3:" =========";:: PW433770LCL212:PP1:" ":" ":Q$"Y"İ3830xL20((H$(1))2));H$(1);4743ĺ(13);:3430$\ 36);" ";:K80f IC1C3:K4I:K8K81:L1J:HP(36(K81)9)1:V(I,J)0HP((36(K81)9)9)K81:" - ";:3490z D(C1$(I)):D1(R1$(J)):D0D1D 11000:D11700,710,720,730,740:D11670,671,672,673,674 I:LCR$(J)""ī35107 (R$(J),1)"-"İ3530:LCLC1:3510_% (R$(J),1)"="İ3560:LCLC1:3510* (R$(J),1)"*"İ3780:3600:35104 K9(R$(J)):(R$(J),1)"^"ĺ15K92);(R$(J),K91):LCLC1:3510H R$(J);31);:(Q1$,1)"Y"ĺ"(";J;")";W PWM$"PRINTING":351:2780/ (B$,1)"N"2980B VP23:HP1:70 23:1:" SPECIFY ANOTHER REPORT ?";:VP23:HP32:SL1:101:B$"Y"SW1:2500 B$"N"991 3015 JN1N2:LC1İ3780:3600 (R$(J),1)"#"ĺ" ":LCLC1:3510 :C(TC2)TT1U LOOP1T:C1(((LOOPC2)1)C2)(K51):C3(C1C2)1:C3TCC3TCf@ C3K6C3K6r^ 3600:~h 3310:r 3780:| LOOP 5500:(7);:VP23:HP1:70:23:14:"ANOTHER COPY ?" VP23:HP28:SL1:101:B$"Y"VP23:HP1:70:ARMS":Q1$:N1:N2:K5:K6:C2:Q$:D$;"CLOSE PPARMS"o( L2(PL$):LCL2:TCC9:CC9:((K6K5)1)CC(K6K5)12 VP21:HP1:SL34:101:R1$B$:VP23:HP1:70:M$"PRINTING REPORT":351 G1(54):G2(55):G3(56):G4(57):5000:P0:3890 T(CC2):N2;:VP10:99:K5;:VP11:99:K6;:VP13:99:C2;:VP15:99:Q$o~ VP18:HP32:101:250:Q2$B$:Q2$"N"2500 Q2$"Y"2600 2430 10000 VP18:HP32:101:Q3$B$:Q3$"N"2500 Q3$"Y"2510 25015 D$;"OPEN PPARMS":D$;"WRITE PPPTIONL$(18)" ARE THESE PARAMETERS OK":300:VP3:HP1:99:"MODEL SIZE:ROWS =";R;" COLUMNS=";C:VP22:HP1:99" ":D$;"OPEN PPARMS,D1";PV$:D$;"READ PPARMS":Q1$,N1,N2,K5,K6,C2,Q$:D$;"CLOSE PPARMS":HP37@8 VP5:99:Q1$;:VP7:99:N1;:VP8:99THE ROW NUMBERS (Y/N)":L$(7)"FIRST ROW TO PRINT":L$(8)"LAST ROW TO PRINT":L$(10)"FIRST COLUMN TO PRINT"L$(11)"LAST COLUMN TO PRINT":L$(13)"NUMBER OF 'MODEL' COLUMNS PER PAGE":L$(15)"STOP AT END OF EVERY PAGE":L$(20)" 'RUN' DESCRI 103,1:104,11:1010r A(175)(176)256361:1013,76:1014,A(A256)256:1015,A256:PG$"PRINT":950 C9C:I1C:J1(10(C$(I))):C$(I)" "C$(I):::I1C:J1(10(C2$(I))):C2$(I)" "C2$(I):::T2$"PRINT REPORTS"n L$(5)"PRINT       COPYRIGHT NOTICE1BJ:RxZ m30Zp&v+|2:<OOߐP6֐PHmP..Q {Qo1QQOȐR בR]:R%NR]PCPCPCP|            PAAAAAAAAAAAAPTTTTTTTTTTTT`kcڏ<\\Bvb"SsJعdB`vvvvvvvvvvvv9(CPCPCPCPCPCPCPCPCq̐scؐuxx2dzo{C~+@9f]ڑ ֑'p> ԠԠȠǠٍ̠Ӎ̠č٠ĭō̠ԠƠӠčӠ΍ǠލǍǍ̠ōǠԍԍŠӍ̠ǠӍԠԠŠӍө٠ҠōҠƠԠ®Ӎ٠ΠŠލލĠӠӍӠӍԠӍԠƠӠލ̠ԍҠԍ٠ĭű̍΍ҍҍٍ΍̍ǍЍԍ֍Í̍ލҠӠ٠Ӎ٠ȠŠӠӠөŠӠԠө̠Ԡ    a  D$(4)) D$;"NOMON C,I,O"_ (104,11:2816,0:2817,0:D$;"RUN DESKTOP/PLAN-II" N-II"QQQQQQQQQ(((((((((((({# ={# ={# ={# ={# ={# ={# ={# ={# ={# ={# ={# =ftgzh'Wj!kHlmBn?p7^Dqw$r8sqs333s333s333s333s333s333s333s333s333s333s333s333QQQŠ٠ӍİĭōŠӠ΍ŠǠӍŠǠōŠԠԍϰŠӠӍŠԠӍŠ̠ԍŠҠԍŠҰĠӍŠ̠ǯҍĠӍԠ̠Ӎ ))a(ĠԠϠΠЯ)UVWpY~/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>e}d?ed@e`M`.?r$a(Ġìİ)q.?6~?r]ða(ΠȷededededededeUidededededeJd ed!ed"ed#eUnd$ed%ed&ed'e d(ed)ed*ed+ed,eUsd-ed.edF(dhe d ed e P]ŠŠĠUZdededededeHdedededehU_d eHd ed ed ed ede#dededeUddeded   ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL               AN@Q t`>PTQSY\WXOZ]`^-Ve     ,**>-_ү\ l)e0,x)e!+]( )J*]*zK*Z**s **B *I()))+%U*))))())))()))+$U*))))()))))( + * +e*7iɌ譀`L l PAPL/1ia@i 1iΓLL,e* *()9)u*C*D*R*&)r*@*E*S*I1,89(-+Q) (,qI9É%Ô9ҡ)!99+e*qIs+)9I]*z++,)-+`l-#+++*-+,- ` ͒jCiwA0Z tBˮVϒ-m^SPRS,i_CAAAAAN@N@N@N@N@N@N@\͎\͎\͎\͎\͎\͎\͎\͎\͎\͎\͎\͑o 35GvHfIDJ9pKÑLMāNNlEOߑMNO>PR75S*TCDU^Vz*W͒XYוIQS T&tU@%V\,WzXYIZ[vT]#Qw^It" S`Gư{os 1ԍ  Tk W& [ ٍ >`CiOmA tttttttttttt````````````>>>>>>>>>>>>PTQSY\WXOZ]`^RRRRRRRRRRRR3Ve    Le֢ LԢ` ʎ@ ʎ8  ̢ PQc d c d ^b c d PQ0D` ^^Qc d  d QԥP ` HL g RPc Qd   + , *  ) HHiȄ g RhhP   nP ^٭ ^ i# Pۭк ȱȱ)  `LL ɢ褐0gc hd  k e8ij w wo>3 >?7 >3 L11Xp T3:6)-; ; ;)-(16384):I127 > > >3)- I128818 3 7 3 1:1620 L1 3 3 3--21-"WHERE I >7 >3 >3 "HOW MANY SHAPE >3- >;3 )>3 ]<NM1FA)-:3 >3 ? ;)):3  0 ^L1:L11   --(LXXL1)1A(LXXL1) I(16384 >3 >3 >7 16368,0 I1 >3));)):3 L1L11:200 >3)); ; L1 200 --> );) 3--2889Ē0* P)- ) ))-L5P,6L1:@ 3) ; ): 1R ,A(LXXL1)-) ) )-v J"CORRECT >3)-B.05)(AB)--:3 ?7 3 ,YZA(XY),M)-:3 >3 3) SA2(NU2)n--:3 ?7 3 POST(NM) L)-:3 ? >3)-& 2:L0--; ; ; B L06Y6: >3 >3 >3)-1YY L11X >3 >3  3 >3 >?7 >3 L11Xp T3:6)-; ; ;)-(16384):I127 > > >3)- I128818 3 7 3 1:1620 L1 3 3 3--21-"WHERE I >7 >3 >3 "HOW MANY SHAPE >3- >;3 )>3 ]<NM1FA)-:3 >3 S: ";NUT,  >3-->3 A(A)((AB--:3 ?7 >3--B)X"DIMENSI)-:3 3 :3)-Y),ME(NU),ST(NU--:3 >3 >3--)7400--3 ;7 3-- L1XY:A(--3 ;7 3 2:L06X6:L,)-:3 3 )>3)-6Y6:0,L6X,L- b W MWb(    x!d   ;) n$ s") ; ): );) s"  ---- ( xi );) 3) ; )}   )-:3 );  ERE IN MEMORY: ")-:3 >;3 -3)-SHAPE:3 ?) 3--h b W b )-:3 ? >3)-b W MMM  )?))3-- ) W b h b W --3--: >3)-b W M - ?7 >3)-Wb(M AM --> );) )  :"J :":"J )-:3 ? >3)-AAMMWb)-:3 >? > );) ; :?7 ; u4R4R)-:3 ?   ;) NCNC)-:3 >?  :?7   44HH  >3-    c--:3 ?7 > );) 3 }u)-:3 )>;3- >3)- ; ; ;)-)-))HP)-:3 )>;3- :? ? ?7 HH ; ; - >7 );) :3 )hhL)-:3 ?)) ;3  3)  )-:3 ? ;    )?))3- );) ) ; ) --3--: ) ; ) );)  - ?7 :;3)-;)-:;3 --@ @3Vy(Kn@c5X{*MpBe7Z} ,Or! )    >>  ; :?7 ; ;     :?7 ))))     ))----      7. CONSOLIDATE SUB-MODELS":L$(17)"EXECUTE UTILITIES":L$(19)" 8. DISPLAY UTILITIES MENU":L$(21)" DEFAULT FILE NAME-->":T2$DA$:300:21:24:HN$;VP24:M$" TYPE 'CTRL/Q' TO RETURN TO DOS":LQ,QS:352:P$"ENTER NUMBER FOR FUNCTION DESIRED"MODEL DEFINITION":L$(7)" 2. VALUES (+EXECUTE RULES, PRINT)"L$(8)" 3. CALCULATION RULES":L$(10)"EXECUTE MODEL FUNCTIONS:":L$(12)" 4. PERFORM CALCULATIONS":L$(13)" 5. PRINT REPORTS".L$(14)" 6. PLOT GRAPHS":L$(15)" 34((121)(122)256):n216,0:D$(4):VK$"254":D$;"NOMON C,I,O":L$(24),L(20):PG$"MENU":LQ1016:95054915:63100AT1$"DESKTOP/PLAN-II":M$"PLEASE ANSWER Y OR N":QS0:QT76:L$(4)"CREATE, MODIFY, OR DISPLAY MODEL FILES:":L$(6)" 1. ";PU$;",A520":520"ERHNDLR"*QS11010C:"APPLE DOS 3.3":WPG$"MENU"980nPG$"ERHNDLR"985M$"RETURNING TO MENU":VP23:70:23:(20(M$)2)::M$::23:122:1:X2$"MENU":X3$",D1":X4$PV$",":2052,2817,X2$,X3$,X4$AD,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96Y216,0:768eEP$PG$~LE(218)(219)256ET(222)OE(212)54915VP22:HP1:99:" "999:103,AD(AD256)256::104,(AD256):(4)"BLOADCHAIN,D11)0 -V(K4,L1)999999.99V(K4,L1)0PV(K4,L1)99999.99V(K4,L1)0VyV(K4,L1)99999.999V(K4,L1)0V(K4,L1)9999.999V(K4,L1)0V(K4,L1)9999.9999V(K4,L1)0V(K4,L1)999.9999V(K4,L1)0I768,104:769(K4,L1);:! DDDDDDDDD- 7 DDDDDDD.D- H DDDDDD.DD-] DDDDD.DDD-r DDDD.DDDD-V(K4,L1)999999999V(K4,L1)0V(K4,L1)99999999V(K4,L1)0V(K4,L1)9999999.9V(K4,L1)0V(K4,L1)999999.9V(K4,LV(K4,L1)0ĺ" - ":<lD(C1$(K4)):D1(R1$(L1))KvD0D1DiD11700,710,720,730,740D11670,671,672,673,674690,HP,V(K4,L1);:691,HP,V(K4,L1);:692,HP,V(K4,L1);:693,HP,V(K4,L1);: 694,HP,VjB$"Y"Q1:365'kB$"N"Q2:365OlM$"PLEASE ANSWER Y OR N":370:360Um}qM$"OUT OF RANGE/INVALID CHARACTER"rVP24:HP1:70s(7);20((M$)2));::M$;:uI11500:vVP24:HP1:70wX ROUTINE TO INSERT DECIMALb ET2$""J8T(B$)0B$HN$:VP:HP2:B$;:349CUHN$B$I]\^VP:1:868:|_VP:(20(M$)2)::M$::`VP:(20(M$)2):M$;:hP$" IS THE ABOVE OK ?"iVP23:HP25:SL1:100:71:(B$)0ĢVP:HP2:"Y";:Q1:3651:H91X91:(X8(N$):X8ULX91:LX8LLX91:WX92:y(B$)0ĢVP:HP2:B$"Y":B$340:,120((T1$)2));T1$5K14ĺ:315620((T2$)2));T2$;I323:L$(I):@I323:L$(I)"":$B$A$(27)ı$B$(21)ı1N$Z$B$E(B$)0X91:TH1(N$)h(N$)0X91:((N$,H,1))46H9H91:223((N$,H,1))45H8H:219((N$,H,1))48X91:((N$,H,1))57X91:225H81ī225X9 u vII1:(HPI1)29 wI0I1:VP:HP2:B$"":M xI1B$"":122^ yB$(B$,I1)v z".";:(HPI1)2: A$".":A$;:(7);:(HPI1)2: PG$"VALUES"104 54915:4000 X80:X90:H90:100:N$B$:202H90:X80:X90:101:N)140 mA$(44)İ130:1040 nA$(17)ī990C oA$(21)ī104Z pA$(8)İ118:104r qA$(13)ĺA$;:117 rA$;:B$B$A$ s t(B$,1)(13)M$"TOO MANY CHARACTERS-REENTER":PVVP:PHHP:370:VPPV:HPPH:VP:HP2:I91SL2:" ";::101! 21000* <99:" ";:I18:"-";::I =99:" ";:I18:"=";::\ FVP:1:868:b Gh Hv cVP:HP: dVP:1:P$;" "; eVP:HP2:A$"":B$"" fI1SL:".";:::VP:HP2 gI1SL1 hA$ iA$(34)İ130:104 lA$(27             :201:R1$(R2)(X8):X93330,33400 369:3300: 3000H\ T11150a :D$(4):7);"ENTER MODEL DEFINITION":15);"SAVE FILE":10:1:"ENTER FILE NAME UNDER WHICH YOU":"WANT TO SAVE THIS DEFINITION":VP14:HP15:SL15:101:260 B$"NONE"35300)1)İ369:3000b V9R2(B10)10:V9:5:3550:VPV9:HP3:SL30:101:R$(R2)B$:R$(R2)"#"3340w R$(R2)"*"3340 R$(R2)"-"3340 R$(R2)"="3340 (R$(R2),1)"^"3340 (R$(R2))0R1$(R2)"":3340! VPV9:HP35:99:SL1:UL4:LL04:10:"TYPE ' END ' TO QUIT";:VP23:HP1:350 23:1:LL0:ULR1:"NEW PAGE NUMBER (0 TO ";R1;") : ";:VP23:HP35:SL3:201:B$"END"3420D X93145,3150I 369:3090N BX8:VP24:HP1:350:2910v R2X8:R2((B1)10)İ369:3000 R2((B110)10(B10):K;5);:(R$(K))0İ3610:R$(K);:2960@ 3560j 37:(R1$(K))0İ3630:R1$(K):2990t 3570z  23:1:LL0:ULR:P$"ROW NUMBER (END FOR NEW PAGE) ":VP23:HP35:SL3:200:B$"END"3070 X93060,3190 369:3000. 2 > ONLY ENTRY FOR DOUBLE UNDERSCORE":"^ > LAST CHARACTER FOR SUB HEADING", "# > ONLY ENTRY FOR BLANK LINE":"- > ONLY ENTRY FOR COLUMN UNDER SCORE":"* > ONLY ENTRY FOR START NEW PAGE"::"ROW";12);"ROW DESCRIPTION";31);"DEC POS"6^ 11:1:K1(Bʫ2670B KX8:VPK3:HP9:SL9:101:C$(K)B$:HP20:101:C2$(K)B$ VPK3:LL0:UL4:HP32:SL1:201:C1$(K)(X8):X92770,2780 369:2740 2650 T11150J B0:R1(R10)1::5);"ENTER MODEL DEFINITION":10);"ROW DESCRIPTIONS":4:1:"=HP32:SL1:UL4:LL0:201:C1$(K)(X8):X92600,2610C( 369:2570I2 o< VP23:HP1:350:360:Q2635,2650}K T11150P 2790Z 23:1:P$"COLUMN NUMBER TO CHANGE "n VP23:HP30:LL1:ULC:SL3:200:B$"END"2785 X92700,2710 369:1$(C),C2$(C) :5);"ENTER MODEL DEFINITION"::11);"LINE #1";22);"LINE #2";32);"DEC POS":4:1:K1C:"COLUMN ";K;11);C$(K);22);C2$(K);34);C1$(K)::T12620 K1C:VPK3:HP9:SL9:101:C$(K)B$:VPK3:HP20:SL9:101:C2$(K)B$4 VPK3:2325,2330 369:22906 RX8:R10(R10)2325. 6:1:LL1:UL18:P$"NUMBER OF COLUMNS IN MODEL":VP6:HP35:SL2:200:X92395,2400[ 369:2350` CX8:360:Q2420,2250t (RC)27012425u 30000:2250 y V(C,R),R$(R),C$(C):R1$(R),C101:H$(3)B$:^zVP24:HP1:350:18:1:I13:H(H$(I))2:20H);H$(I):::360:T02245pQ1150,10000Q2250,10000:5);"ENTER MODEL DEFINITION":15);"MODEL SIZE":P$"NUMBER OF ROWS IN MODEL" VP4:HP35:SL3:LL10:UL300:200:X910);"REPORT TITLE"::T12170)2130E5:1:"LINE 1":2140:a*9:1:"LINE 2":2150:~>13:1:"LINE 3":2160:RP$"":2070:2090:2110:2170\VP7:HP1:SL30:101:H$(1)B$:fVP11:HP1:SL30:101:H$(2)B$:pVP15:HP1:SL30:NT TO REPLACE THE OLD FILE":300F2VP8:HP20:SL1:101:B$"Y"3520^FB$"N"İ369:1330K10:1:"NAME FOR NEW, ADDITIONAL, FILE"PVP12:HP20:SL15:101:(B$)034901360:T12030H$(3):5);"ENTER MODEL DEFINITION":RIPTIONS":L$(12)" 4. DONE":L$(22)"ENTER A NUMBER FOR THE SECTION":300:P$"OF THE DEFINITION TO BE CHANGED" VP23:HP32:SL1:LL1:UL4:200:X91240,1250 369:1220 X82000,2440,2790,1300 T2$"SAVE MODIFIED DEFINITION":L$(6)"DO YOU WA2:2000 L14:1:"ENTER NAME OF 'MODEL DEFINITION' FILE":T1:VP16:HP20:SL15:101:260:FD$B$:" ":FD$FD$".D":X$FD$DR$VN$:61000o ~T2$"MODIFY 'MODEL DEFINITION'":L$(6)" 1. REPORT HEADING":L$(8)" 2. COLUMN HEADINGS":L$(10)" 3. ROW DESC_ 103,1:104,11:1010$ 9500 D$(4) T2$"MODEL DEFINITION":PG$"DESCRIPTION":FQ(LQ):L$(8)"IS THIS A NEW MODEL DEFINITION":300:(7); VP10:HP20:SL1:101:250:FQ0İ60200 B$"N"FLAG1:1100 B$"Y"İ369:1030 FLAG       ";::VP23:HP23:SL1:101:A$(27)991:IB$"Y"4000RNTC62035,62085,991SP$"DO YOU WANT TO SAVE THESE VALUES ":62300:VP23:HP35:SL1:100:63200:B$"Y"62065gB$"N"62030l62080 q62300:23:14::"WRITING FILE"::X$FI$DR$ȰL1L11:L1R51015+CLCL4:51400:adK30:K4K1K2:K3K31:HP(10K310):99:600::qVN$"254":wȲVPCL:HP11CC10:99::">";::,ɲ6VPCL:HP11CC10:99:" ";:ɁI11:(7);::(062300:23:10::"ARE YOU SURE -"L2L21:L(L2)L1:VPL2:HP21:60:HP31:60:51110c[ǭ(R$(L1),1)"#"L2L21:L(L2)L1::51110`ǭ(R$(L1),1)"="L2L21:L(L2)L1:VPL2:HP21:61:HP31:61:51110L2L21:VPL2:HP1:99:(R$(L1),15);17);L1;:51300:L(L2)L1ǭL2175119910)1:99:C$(K);:VP7:99:C2$(K);:+xñ18DzP=ǁN918:L(N)0::L1L:L28`GǭL1R51199~HǭR$(L1)""L1L11:51015Iǭ(R$(L1),1)"*"L1L11:51015Lǭ(R$(L1),1)"^"L2L21:VPL2:HP1:99:(R$(L1),15);:L(L2)L1:511104Vǭ(R$(L1),1)"VPCL:HP10CC10:99:V(KC,L1)X8:600:Z$"":514009'#?(#2#L1L(CL):KCK1(CC1):K4KC:VPCL:HP10CC10:99:KC2İ51600:51400:F#V(KC,L1)V(KC1,L1):600:51400:Pò%RHP1:I67:VPI:70::K2K11:K30:KK1K2:K3K31:VP6:HP(11K31:HP31:61:7210 51300+*:51400:1@<J62300T23:13::"NEW VALUE";::24:Z$;:VP23:HP23:SL9:LL9999999:UL99999999:201:A$(27)ı[(N$)1X92:X8(N$)^X98040,8050h369:80203rN$"":L1L(CL):KCK1(CC1):K4KC:K1X81:7050tK1X88HP21:I918:VPI:63100:uK2K11:50000:N918:L1L(N):VPN:(R$(L1),1)""7210(R$(L1),1)"*"7210(R$(L1),1)"^"7210(R$(L1),1)"-"VPN:HP21:60:HP31:60:7210(R$(L1),1)"="VPN:HP21:6B$(13)ı#X96040,60502369:6020;LX8Y62200:CL9:CC1:51000:_Xjb62300l23:5::"1ST COLUMN TO DISPLAY";::VP23:HP28:SL2:LL1:ULC:201:mB$(13)ınA$(27)ıoX97024,7026p369:7020rX8C500:CCCC1:51400:+K11İ51600:5399BCC1:K1K11:7060HNpCC1İ51500:CCCC1:51400:"K2Cİ51600:6CC2:K1K11:7060:pz62300:23:7::"1ST ROW OF NEW PAGE ";:VP23:HP30:SL3:LL1:ULR:201:A$(27)(LL1:515726060:P6QL(CL)Rİ51600:HZCL1185250dd51500:CLCL1:51400:wLRİ51600:L(18)RLL(18)5:L1İ51600:R$(L)""ī5259LR5270LR9:5270LL1:52566060:CC2İ51)4999A$(57)49992A$(8)İ9000:4000H"Z$A$:8000:4000Y51600:4000_qCL19ī515051500:CLCL1:51400:L1İ51600:#(L(9)5)0LL(9)5:5157$L1:5170%R$(L)""ī5160&L15170'L1:5170 5100:4000#A$"M"İ5200:4000;A$"J"İ5300:4000SA$"K"İ5400:4000kA$"P"İ6000:4000A$"C"İ7000:4000A$"Q"62000A$(21)İ9000:4000A$(17)ī990TC34999A$"-"4130A$"."4130A$(48"=CURSOR MOVE";J 21:1:"QUIT=";:6::"Q";::21:9:"CHANGE PAGE="; 21::"P";::21:23:"CHANGE COLUMNS=";:38::"C";::FTQTİ51350 VP23:HP1:70:Z$"":23:18::"COMMAND:";::27:A$:" "; (LQ)QT4020 51350 A$"I"SW1:20((T1$)2));T1$:20((U4$)2));U4$:H$(1):"MODEL SIZE:ROWS =";R;" COLUMNS=";C:VP8:HP1:99:I119:"-";::VP8:HP21:60:HP31:60:VP19:HP1:99:I140:"-";: CL9:CC1:K11:50000:L1:51000:20:1:"COMMANDS:";:14::"I,J,K,M";:: 103,1:104,11:1001 A(175)(176)256361:QZ(LQ):1013,76:1014,A(A256)256:1015,A256:FT(1016):TC1U4$"ENTER VALUES" QZ(LQ) TC2U4$"MODIFY/CHANGE VALUES" TC3U4$"DISPLAY VALUES": 950: PG$"VALUES"::     :R20:R30:C10:C20:C301X216,0:61230:9507cdT((R$(I1),3)):L1((R$(I1),4,3)):L2((R$(I1),7,3)):L3((R$(I1),10,3)):C1((R$(I1),13,3)):C2((R$(I1),16,3)):C3((R$(I1),19,3)):L9(R$(I1)):L9226599L9L921:K$(R$(I1),L9)X((LN$,I2,1)):X0LN$(LN$,I21)" "(LN$,(78(I2))):6150K6180X((LN$,I21,1)):X0LN$(LN$,I211)" "(LN$,(78(I21)))$:LN$::PAPA2:(PA3)0İ6700:6600<:PW796488HPT$"6"6480KI1PA:" ":PT0:R10(I1$)2SP$" "((I1$)3SP$" "LN$I1$SP$RD$(T)" ":LN$LN$(R$(I1),4,3):LN$LN$" "(R$(I1),7,3):LN$LN$" "(R$(I1),10,3):LN$LN$" "(R$(I1),13,3):LN$LN$" "(R$(I1),16,3):LN$LN$" "(R$(I1),19,3):I241767ApVP22:HP1:350:VP23:350:P$"PRESS 'RETURN' WHEN PRINTER IS READY":VP23:HP37:SL0:100:23:1:D$(4):D$;"NOMON C,I,O":63000z61000:E39:PW79E0:60306600I11N:6500:(K$)0İ61800I1$(I1):(I1$)1SP$" "$:20:1:"":5800950@D$;"OPEN ";X$:D$;"WRITE ";CR$dN1N11:(R$(N1),3)"END"5600vR$(N1):5560R$(N1):D$;"CLOSE ";CR$:N1N11:NN1:EF1ī5900D216,0:EF1:5535D$;"DELETE ";X$:5535 EF0:F62370 991(N1):(R$(N1),3)"END"2880. N1N11:2540U@ D$;"CLOSE ";CR$:NN11:N10:2190VP23:HP1:350:P$"FILE NAME":NA$HN$:VP23:HP11:SL15:100:340:HN$B$:CR$B$".R":5500:|N10:NN1:R$(N)"END000000000000000000000":5700X$CR$DR$VN;:18:37:NE VP23:HP34:SL3:LL1:UL6:201:B$"END"İ5000:991W X92320,2350f 369:2305. FX8:F10000,9000,8000,7000,6000,5000B F0:2200 D$;"RENAME ";CR$;",";CR$;DR$;VN$:N11:X$CR$DR$VN$:D$;"OPEN ";X$:D$;"READ ";CR$ R$14)" 5. PRINT THE RULES" L$(16)" 6. SAVE THE RULES FILE":L$(22)" TYPE 'END' TO RETURN TO MENU":L$(18)"NUMBER OF RULES CURRENTLY IN FILE = ":L$(23)"ENTER NUMBER FOR FUNCTION DESIRED":60000:VP3:HP1:99:"DEFAULT RULES FILE NAME=";HN$:(7)8fVP23:HP1:350:M$"READING FILES":351:Q$"N"2500P61500:31000:10601060:T2$T3$:X9(0):L$(6)" 1. ENTER RULES":L$(8)" 2. INSERT ADDITIONAL RULE":L$(10)" 3. DELETE AN EXISTING RULE":L$(12)" 4. DISPLAY AND OR CHANGE A RULE":L$(CALCULATION RULES FILE NAME":60000:(7);:FRQTİ60080qVP8:HP20:SL1:101:250:Q$B$:G5$B$:B$"Y"2100B$"N"2100 369:20304T2$T3$:VP12:HP20:SL15:101:260:FD$B$".D":VP16:HP20:SL15:101:260:CR$B$".R":360:Q2150,2030COLUMNS ": "19-DIVIDE ONE COLUMN BY ANOTHER"` "20-PERCENT/COLUMN OF A VALUE ": "21-EXECUTE 'USER WRITTEN' RULE ":I121:RD$(I)::T2$T3$:L$(6)"IS THIS TO BE A 'NEW' RULES FILE"9jL$(10)"NAME OF MODEL DEFINITION FILE":L$(14)"X "12-DIVIDE ONE ROW BY ANOTHER ": "13-PERCENT/ROW OF A VALUE ": "14-ACCUMULATE A ROW ": "15-ADD GROUP COLS/CROSSFOOT "9\ "16-ADD TWO COLUMNS ": "17-SUBTRACT COLUMNS ": "18-MULTIPLY ": " 6-ZERO ROWS ": " 7-COPY LINE/SHIFT "T " 8-ADD A GROUP OF ROWS ": " 9-ADD TWO ROWS ": "10-SUBTRACT A ROW FROM ANOTHER ": "11-MULTIPLY TWO ROWS TOGETHER " :M$(5)" 5-LAST COLUMN":M$(6)" 6-COLUMN TO SAVE RESULTS": LRD$(21): " 1-EXTEND & FILL ROWS ": " 2-FILL A COLUMN ": " 3-INTERPOLATE ROWS "] P " 4-COMPUTE A GROWTH RATE ": " 5-GROW A ROW i4 103,1:104,11:1005: * D$(4)6 950: T3$"ENTER, REVIEW, MODIFY RULES":PG$"RULES":R$(401):C(7),C$(7),M$(6):FR(LQ):1060:1100= $M$(1)" 1-FIRST ROW":M$(2)" 2-LAST ROW":M$(3)" 3-ROW TO SAVE RESULTS":M$(4)" 4-FIRST COLUMN"                       0(7);:6200*CL19ī6420D 7560:CLCL1:7540:UL1İ7580:t(L(9)5)0LL(9)5:6450(L1:64902R$(L)""ī6480<L16490FL1:6490PLL1:6450Z6830:dVN$"254":nxL(CL)Rİ7580: S=";:38::"C";:e8VP23:HP1:70:Z$"":23:18::"COMMAND:";::27:A$:A$;:A$"I"İ6390:6200}tA$"M"İ6510:6200~A$"J"İ6630:6200A$"K"İ6680:6200A$"P"İ6740:6200A$"C"İ6850:6200A$"Q"7600A$(17)ī99I119:"-";::VP8:HP21:60:HP31:60:VP19:HP1:99:I140:"-";:CL9:CC1:K11:7250:L1:7350:20:1:"COMMANDS:";:14::"I,J,K,M";::"=CURSOR MOVE";:21:1:"QUIT=";:6::"Q";::21:9:"CHANGE PAGE=";:21::"P";::21:23:"CHANGE COLUMNC1C2:V(K,C3)V(K,R3)(V(R2,R1)100)::1050`KC1C2:V(C3,K)V(R3,K)(V(R2,R1)100)::1050pU4$"DISPLAY COMPUTED VALUES":SW1İ8000:6090G:20((T1$)2));T1$:20((U4$)2));U4$:H$(1):"MODEL SIZE: ROWS=";R;" COLUMNS=";C:VP8:HP1:99:LC2C3:V(C1,L)V(R2,R1)::1050C111000,12000,13000,14000,15000,16000,17000,18000,19000,20000,21000,22000,23000,24000,25000,26000,27000,28000,29000,30000:1050LR1R2:KC1C2:V(K,L)0:::1050 KC1C2:V(KC3,R3)V(K,R1)::1050,K3)V(K1,R3)V(K,R1)::1050IlLR1R2:V(C3,L)V(C1,L)V(C2,L)::1050vvLR1R2:V(C3,L)V(C1,L)V(C2,L)::1050LR1R2:V(C3,L)V(C2,L)V(C1,L)::1050LR1R2:V(C2,L)0V(C3,L)999999999:1935V(C3,L)V(C1,L)V(C2,L):1050!(N1)G)(N)(N1):G1(A)1:V(1,R3)(G110000.5)100:1050R7R1R2:VV(C2,R7)V(C1,R7):V1C2C1:VVV1:KC11C21:V(K,R7)V(K1,R7)V::1050KC11C2:V(K,R1)V(K1,R1)(1(V(K,R2)100))::1050DV(C1,R3)V(C1,R1):KC11C2:V(K,R3,L)V(K,L):::1050G"LR1R2:KC11C2:V(K,L)0V(K,L)V(K1,L)U6::1050JN1(C2C1):V10:V(C1,R1)0V(1,R3)0:1050YG(V(C1,R1)):K11:K(C11)C2:K1K11:V(K,R1)0V(1,R3)0:1050=hL(V(K,R1)):GGL:V1V1(K11)L::A6(2V1ˌLR1R2:KC1C2:V(K,R3)V(K,R3)V(K,L):::1050aKC1C2:V(K,R3)V(K,R2)V(K,R1)::1050KC1C2:V(K,R3)V(K,R1)V(K,R2)::1050KC1C2:V(K,R2)0V(K,R3)0:1520V(K,R3)V(K,R1)V(K,R2):1050LR1R2:KC1C2:V(C3,L)V(C23:HP30:SL1:100:250:B$"N"9915(B$"Y"1360?21300PVP23:HP1:70:M$"LOADING PRINT":351:22:999:103,AD(AD256)256::104,(AD256):(4)"BLOADCHAIN,D1";PV$;",A520":16151,0:520"PRINT"nKC1C2:V(K,R3)V(K,R1)V(K,R2)::105041240eVP23:HP1:70:P$"FILE NAME TO SAVE":VP23:HP20:SL15:100:(B$)0B$HN$:VP:HP2:B$FC$B$".C":VP23:HP1:70:VP23:M$"WRITING CALCULATED DATA FILE":351:X$FC$DR$VN$:63000$VP23:HP1:70:P$"DO YOU WANT TO PRINT A REPORT":VP0,1720,1610,1820,2000,3000,1420,1390,1450,1480,1500,4000,1860,1540,1900,1910,1920,1930,5000,1950VP24:HP1:70:VP23:HP1:70:6000VP23:HP1:70:P$"SAVE THE COMPUTED VALUES (Y/N)"VP23:HP35:SL1:100:250:B$"N"1300B$"Y"1260 :11609 .T((A$(K5),3)):Z5(A$(K5)):Z5221080V 0Z5Z521:K$(A$(K5),Z5) 824:9:868:K5;" ";K$;:R1((A$(K5),4,3)):R2((A$(K5),7,3)):R3((A$(K5),10,3))``C1((A$(K5),13,3)):C2((A$(K5),16,3)):C3((A$(K5),19,3)):T1570,194İ6500a X$CR$:D$;"RENAME ";CR$;",";CR$;DR$;VN$:X$CR$DR$VN$:D$;"OPEN ";X$:D$;"READ ";CR$ A$:(A$,3)"END"A$(N1)A$:N1N11:1023 D$;"CLOSE ";CR$:VP23:HP1:70:M$"EXECUTING CALCULATIONS":351:VP24:1:"RULE #";:K6N1:K51K6:1070 103,1:104,11:1001z 16151,0:A(175)(176)256361:1013,76:1014,A(A256)256:1015,A256:FT(1016): D$(4) VP23:HP1:70:PG$"EXECUTE":A$(300):950 VP23:M$"READING CALCULATION RULES":351:VP24:HP1:99:N11:FTQT!! ! ! ! ! !!!!!!!!!          PT3Ĺ907,234:908,234:909,234.F769,PW:T|PT5530,5530,5530,5530,5550,5530D$;"PR#0":54,G1:55,G2:56,G3:57,G4:::5530'VP5:HP35:SL1:101:(B$)0B$"Y":VP:HP2:B$;'Q1$B$:Q1$"Y"10050.'Q1$"N"100508'369:1150,5040,5040:JPR$"PR#"(PS):D$;PR$:PT6ĺ(27);(69);"07";:5100[PT6ī5100" ":12529,0:12524,255:12527,2:12528,7:12531,20PR$"PR#"(PS)(13)(9)(PW)"N":D$;PR$: D$;"BLOAD DRIVER,D1":768,PS:775::HP1:70:VP23:M$"PRINTING REPORT":351:5000:P254915:216,0:5000:3890F(13):LCLC4:K71:" ":36,10:"...PRINTING ABORTED...":3780:2950G1(54):G2(55):G3(56):G4(57):PS(PS$):PT(PT$):PW(PW$):PL(PL$)::PT5040,5110,5150,56I910)'::X9134:"-";::3530-=PW433815TPT$"5"K713800oN91LC:" "::36,17K70:40((MG$)2));MG$:" ":" "15500:(7);:VP23:HP1:70:P$" READY PAPER & PRESS RETURN":VP23:HP33:SL1:100:VP23,(20((H$(1))2)):H$(1);:36,47:DA$:36,(20((H$(2))2)):H$(2);:36,47:"PAGE ";P:36,(20((H$(3))2)):H$(3):" ":36,36:I9C1C3:(C$(I9))0ĺC$(I9);:3699r36,(36I910)s::R1$;:36,36:I9C1C3:(C2$(I9))0ĺC2$(I9);:373036,(3671,672,673,6741 I:LCLC1:LC0İ3780:3600: " "C J:S PW433555z 36,36:KC1C3:" ---------";::  PW433565 36,36:KC1C3:" =========";:: PW433770LCL212:PP1:" ":" ":Q$"Y"İ3830L3631:(Q1$,1)"Y"ĺ"(";J;")";5W PW43ĺ(13);:3430E\ 36,36:K80f IC1C3:K4I:K8K81:L1J:HP(36(K81)9)1:V(I,J)0HP((36(K81)9)9)K81:36,HP:"- ";:3490z D(C1$(I)):D1(R1$(J)):D0D1D D11700,710,720,730,740:D11670,J),1)"#"ĺ" ":LCLC1:35100 R$(J)""ī3510X (R$(J),1)"-"İ3530:LCLC1:3510% (R$(J),1)"="İ3560:LCLC1:3510* (R$(J),1)"*"İ3780:3600:35104 K9(R$(J)):(R$(J),1)"^"Ĺ36,15K92:(R$(J),K91):LCLC1:3510H R$(J);:36,SL1:101:B$"Y"VP23:HP1:70:M$"PRINTING":351:2780P (B$,1)"N"2980c VP23:HP1:70 23:1:" SPECIFY ANOTHER REPORT ?";:VP23:HP32:SL1:101:B$"Y"SW1:2500 B$"N"991 3015 JN1N2:LC1İ3780:3600 (R$(7):5000:P0:38901 T(CC2):C(TC2)TT1v LOOP1T:C1(((LOOPC2)1)C2)(K51):C3(C1C2)1:C3TCC3TC@ C3K6C3K6^ 3600:h 3310:r 3780:| LOOP 5500:(7);:VP23:HP1:70:23:14:"ANOTHER COPY ?"9 VP23:HP28: D$;"OPEN PPARMS":D$;"WRITE PPARMS":Q1$:N1:N2:K5:K6:C2:Q$:D$;"CLOSE PPARMS"( L2(PL$):LCL2:TCC9:CC9:((K6K5)1)CC(K6K5)12 VP21:HP1:SL34:101:R1$B$:VP23:HP1:70:M$"PRINTING REPORT":351 G1(54):G2(55):G3(56):G4(5:99:Q1$;:VP7:99:N1;:VP8:99:N2;:VP10:99:K5;:VP11:99:K6;:VP13:99:C2;:VP15:99:Q$~ VP18:HP32:101:250:Q2$B$:Q2$"N"2500 Q2$"Y"2600 2430 10000 VP18:HP32:101:Q3$B$:Q3$"N"2500 Q3$"Y"2510 2501V":L$(20)" 'RUN' DESCRIPTION L$(18)" ARE THESE PARAMETERS OK":300:VP3:HP1:99:"MODEL SIZE:ROWS =";R;" COLUMNS=";C:VP22:HP1:99" ":D$;"OPEN PPARMS,D1";PV$:D$;"READ PPARMS":Q1$,N1,N2,K5,K6,C2,Q$:D$;"CLOSE PPARMS":HP37a8 VP5"PRINT REPORTS" L$(5)"PRINT THE ROW NUMBERS (Y/N)":L$(7)"FIRST ROW TO PRINT":L$(8)"LAST ROW TO PRINT":L$(10)"FIRST COLUMN TO PRINT"& L$(11)"LAST COLUMN TO PRINT":L$(13)"NUMBER OF 'MODEL' COLUMNS PER PAGE":L$(15)"STOP AT END OF EVERY PAGE 103,1:104,11:10050 D$(4):16151,0 A(175)(176)256361:1013,76:1014,A(A256)256:1015,A256:FT(1016):PG$"PRINT":950 C9C:I1C:J1(10(C$(I))):C$(I)" "C$(I):::I1C:J1(10(C2$(I))):C2$(I)" "C2$(I):::T2$"" " " " " """""""""