' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`2& NDI(M,17):TI(M,IV):D$"":A$"":ID3D$C7$C& ID6D$C9$T& ID9D$D1$n& ID10ID12D$"MPH"& ID11D$D2$& ID7ND1D$"(BACKUP UNITS FOR ":A$"ALL CALLS)"& ID7ND2D$"(BACKUP FOR PRIORITY":A$"1 CALLS ONLY)"' ID7IV(("000102041016171922232600000000",2ID1,2)):ID3100,3200,3200,3300,3400,3200,3200,3300,3200,3400,3200,3200,3600,3500,3700:J1:3900:% JP2001:A$B$(M):C$(1)C$(2)": "A$:"NEW NAME:";:520:NB1İ530%& K1İ240:3100&0 B$(M)A$:489:3950:15:JPJP100:240:I10ĺ" ";B$ I" "C$(2I):C$(2I1)""3006e$ JPJP100:240:" "C$(2I1)k$ $ A$"":JP1901:240:A2$;A7$" ";:"? ";A$:Z(A$):ID(Z):A$"0"A$""JP2301:330$ Z1Z15Z13NB1ZIDİ245:3020$ 3030:3020% CTERS):":JP1207:M1NB:I1:NB5I0I#240:A4$" "M;:520:NB1İ530W#K12020#JPJP100100I:B$(M)A$::M1:JP2301:330# 320:3950:400:JP801:240:I18:((I),1)" "C$(2I):C$(2I1)""3003# " "C$(2I1)$ :JP719:240:I9A9$;D6$"DATA "A5$:" 6 SATISFY MULTIPLE "C8$"S FOR":5)"ONE "A4$:" 7 "F3$"E "B7$" AMONG SEVERAL "A4$"S":JP2301:330"320:JP701:240:A2$;A3$;A4$"S (1-7) ";:"? ";A$:Z(A$):NB(Z):Z1Z7ZNB(A$)12000&#::A2$;A4$;" NAMES (1-10 CHARA!<MG5I(I,18)IXL0!>7!XJ138:"*";:::Q!bJ1N:"*"I)"*"::j!PA256(41)(40):!320:JP711:240:A1$:"PAGE"::" 0 "F7$:" 1 "A9$;A1$:" 2 "F8$;A4$" NAMES":" 3 "F8$;A4$" DATA":" 4 "A9$;A2$"DATA "A5$z"" 5 "#0":KW0:PASP:9 K0:" ? ";A$:A$""NG3A$B$(M):X L(A$):L1L10İ245:K1^ s J1NB:JM532 A$B$(J)İ245:K1:JNB : &NV(("0520060704110809101512131419161718",2KC1,2)):!:L0:A$B$(I)A$(B$(I),1)(A$)ILI8Ĺ2041,(2041)128WKW1LG7ĺ18)N1$" PAGE "LG:22)N2$::PAPA256:LA22:506KW1LG7ĺ11)F3$"ION "E6$":"13)"PAGE 7":LA23I91LA:11);:J9039:((PAJ9));:::PAPA128:PA2048510PAPA984:PA1144PAPA8 :P$;"PR "KC" "C$(2KC1)C$(2KC)A$::BA$"":KC1KC2A$"(MIN/HR)"XKC4A$" (HRS)"^jJP2301vKZ0ıA$"PRINT PAGE":350:E$"N"ıJP2401KW1SPPA:1:((37)):P$"PR#1":(12)(28):I912000::1785,63:LA24:(2041)126KC10KC14P1$"AVG "C$(KC28):468>IN8:KC10IN6NKC14IN7P2$" "C5$" "(KC184IN)E9$:KC10P1$C$(11)" -":468KC14P1$C$(13)" -":468P1$C$(15)" -"P1$;:NG6ĺ:" ";P2$;::KC18:480:" 9$:C$(17)"SYSTEM SATURATED FOR PRIORITY":C$(18)B6$C$(19)"% OF PRIORITY":C$(20)"CALLS DELAYED":C$(21)"IN QUEUE":C$(22)C$(19):C$(23)"CALLS ASSIGNED":C$(24)"TO BACKUP UNITS":P2$"(MIN)":KC6İ480:P1$C$(2KC1):P2$C$(2KC)A$:468)KC3)"UNCOMMITTED TIME/":C$(4)A6$:C$(5)"AVG NO OF FREE ":C$(6)B7$:C$(7)"MINIMUM PATROL ":C$(8)"INTERVAL":C$(9)"PERCENT CALLS - "4C$(10)"ALL UNITS BUSY":C$(11)"QUEUE DELAY":C$(12)E9$:C$(13)"TRAVEL TIME":C$(14)E9$:C$(15)"RESPONSE TIME":C$(16)E)"PATROL SPEED":C$(26)"COPY ANOTHER BLOCK":C$(28)"INPUT ALL DATA ":C$(29)"ITEMS":C$(30)"CHANGE PRINT "C$(31)"OPTION":C$(32)"1-ST":C$(33)"2-ND":C$(34)"3-RD":C$(35)"4-TH":C$(36)"5-TH":C$(37)"6-TH":C$(1)"ACTUAL CFS WORK/":C$(2)A6$:C$(I)""::C$(0)A8$:C$(2)"BLOCK NAME":C$(4)"NO OF UNITS":C$(6)C4$:C$(8)"NO OF UNITS/CFS":C$(10)"SERVICE TIMES":C$(12)"NON-CFS TIME/":C$(13)"UNIT":C$(14)"DISPATCH POLICY"kC$(16)"% CFS/PRIORITY":C$(18)B2$:C$(20)"RESPONSE SPEEDS":C$(22)C1$:C$(24;E$:Z(E$):IN(Z):Z1Z8ZIN(E$)1İ245:390CZ6KCZ:JP1701100(NG5):240:B1$"(0) OR "C5$" (1, 2, OR 3) ";:"? ";A$:A$""İ245:392Z(A$):IP(Z):Z0A$"0"Z0ZLPZIP(A$)1İ245:392KC4INIP18:I031:C$(6uPV(PV)Q$Q$".0":376CvPV0PV1Q$"0"(PV):KLKL1lwPV0PV1Q$"-0"((PV)):KLKL1xKL)Q$;CLPL)D$;:DZ1:|LP3:NG6LPI(M,18):390~I1NB:I(I,18)LPLPI(I,18)3IP0:JP1701100(NG6):240:A0$;:" ? "(S1):" "C$(S2)32)"=";:PVO(O(4)):CL37:370:]6:JP100((37)2)1:JP1401JP14016240:N(0)0ĺE4$"GROWTH ("B6$"/HR)"32)"=";:PVO((WS1S2)O(0)):51406 B1$;A3$;B6$" IN "E4$" =";:PVO(QL)[7370:::" "C5$" "E4$" TRAVEL C$(5)B7$" =";:PVO(O(6)):D$"":370::C$(7)C$(8)" =";q5O(7)9999.9ĺ29)"SYSTEM":29)"SATURATED":50805PVO(O(7)):D$"HRS":3705MG5:JP2201:30055200::D$"":I1NP:LN(I):L0ĺC$(17)" "I" "B6$:511536S163L:C$(S)" "I" "C$NG CFS & NON-CFS":A$25)"=";:PVO(O(3)):CL30:D$C9$:3704::"ACTUAL CFS & NON-CFS":A$25)"=";:PVO(O(5)):370::" "C$(1)C$(2)" =";:PVO(PVI(M,16)):370::" NON-CFS "A$5)"=";;5PVO(I(M,16)):370::C$(3)A6$" =";:PVO(O(20)):370:::)60NS1:N(I)05040D3I(0,I)PI(0,I8):I(0,I4)(1P)I(0,I8)d3S1S1I(0,I):S2S2I(0,I4)3CL6:J13:PVO(I(0,4JK4)):CLCL10:J3N(L)0D$"*"3370:D$"":J::I:MG4:JP2301:300;4MG0:5200:A$"WORK/UNIT":JP801:240:"INCOMI5)D7$m2" "B8$4)"(ACTUAL)"2)"(ACTUAL) (INCOMING)";:WO(3)N:I14:I(0,I8)I(M,I18)W100:I(0,I4)0:2S10:S20:D$"":I1NP1:KI:LI:INP1K4:L0:" "D7$;:I(0,4)S1:I(0,8)S2:I(0,12)W:504525)I;:P1:ND1ND2I1P1PS3I(0,IA3$;B7$" DISP/CFS =";:PVT(O(1)):CL29:PL3:D$"":370::B3$"/DISP "A6$"=";:PVO(O(0)O(1)):D$"MIN":370:2B3$"/CFS"24)"=";:PVO(O(0)):D$"UNIT-MIN":370::::5)"WORKLOAD DISTRIBUTION ("C9$")"::12)"PRIMARY BACKUP":" "C5$4)B7$4)B7$)E$|0:6)C5$" PERCENT"4)B4$:6)B8$;5)"OF "B6$" "B5$" (MPH)":I1I(M,18):D$"":9)I;:PVO(I(M,I18)):CL21:3700PVO(I(M,I22)):CL32:370:::JP2301:3300MG0:320:JP701:240:A2$;A5$;:360::q1MG0:5200:450:250:JP801:240:19)"=";:PVO(I(M,0)):D$"MPH":370:/:C$(14)19)"=";/NDI(M,17):D$"(BACKUP UNITS":E$"":ND3D$"(NO BACKUP":A$B7$")"/ND2A$"FOR PRIORITY":E$"1 CALLS ONLY)"/ND1A$"FOR ALL CALLS)"0PL2:DZ0:PVND:370::27)A$:E$""ĺ27ICE":" DISP/CFS"5)"OF CALLS TIME"E9$:D$"":I1I(M,3):9)I;:PVO(I(M,I3)):CL22:370.PVO(I(M,I9)):CL34:370:::MG4:JP2301:300$/4100:B2$19)"=";:PVO(I(M,22)):CL24:D$D1$:370::C1$19)"=";:PVO(I(M,26)):D$D2$:370::C$(24)240:958:4-nJP601:240:868:A2$"DATA";:360:-4100:400:C$(4);19)"=";:PVI(M,1):CL25:PL3:D$"":DZ0:370::C4$19)"=";:PVO(I(M,2)):D$C7$:370-:C$(12)C$(13)19)"=";:PVO(I(M,16)):D$C9$:370:_.:" "C$(4)" PERCENT"5)"SERV489:=,JP2101:"NEW VALUE ";:"? ";A0$:A0$""ZT:3810J,Z(A0$),K(Z):Z0Z0ID4ID6Z0A0$"0"ID2ZK(ID4ID8)Z100.0001SID6Z60ID7Z1Z2Z3İ245:3800,JP2301:(37)23JP2320,490: -<JP1801100J:00:ID112:JP1901:240:A7$": "ID:3030::r+"COPY "A2$"DATA ITEMS 2 - 12 FROM":A4$;:JP2001:520:K13600+I1NB:570:LIKI+$:K0KMİ245:3600+.J026:I(M,J)I(K,J)::489:+tJP2001:A$C$(30)C$(31):350:E$"Y"KZ1KZ,~$"TRAVEL TIME"E9$" FOR "C5$" "L:B6$" ";:"? ";A$:Z(A$):Z0İ245:3420*^ I(M,LIO)1:250:I(M,LIO)T(O(L11)Z):F6$"D "B4$" "B5$" ";:3440*f B3$" FOR "C$(L31)" "A6$;*p TI(M,LIO):"= "T" "B0$:3800:I(M,LIO)Z:J2:3900::-+ 489:J1:39:7)H IM3:IO9:B0$"MIN":ID10IM18:IO22:B0$"MPH"W)R J2:L1I(M,IM):ID53430)T F6$" "B4$" "B5$" FOR "C5$" "(L):"CALLS";:JP2106:A$"":350:ES$E$:489:JP2001:3900:ES$"N"İ245:B4$" "B5$" FOR "C5$" "(L):B6$" ";:3440J*\ 3900:240:A2O)100S:I(M,IO)IM1:3350:JP2101:A$"REENTER VALUES":350:ES$E$:489:ES$"Y"İ3900:3310c( ( JP2001:240:868:"% CALLS ";:ID83356( "THAT REQUIRE "L" ";:L1ĺB7$" ";:3358( A6$;:3358( "- "C5$" "L" ";) TI(M,LIO):"= "T" %"ND3D$"(NO BACKUP UNITS)"P' C$(2ID)C$(2ID1)" = "T" "D$;:A$""ĺ22)A$;h' :3800:I(M,IV)Z:' IM5:IO3:ID8IM2:IO18' S0:J2:L1IM:3350' 3800:SSZ:I(M,LIO)Z:S99.9999I(M,IO)L:LIM' J2:3900::S99.9999ı]( I(M,LI" "F5$" TO ":A4$"S ARE UPDATED.":KC3JP2201:330F9"REPEAT "F3$"ION WITH "B0$:JP2201:A$"PROCEDURE":350:E$"Y"KP3KP:7070F>M1:JP2101:245:JP2301:330FLJP901:240:NW1:M1NB1:MNB17540FVL(M7)07630G`L(B$(M)):((M),1[E :MML:I(0,M)VZ:I(M,1)I(M,1)1:7700:7800:E(16384):16368,0:E127NUNZ17215E%JP2001:A$G1$:350:ES$E$:JP2201:490:JP2001:245E*ES$"N"NUNZ1:7220E/E$"":NUNZ1İ75004F4O1O2::I(ML,1)I(ML,1)1:JP1901:240:D0$;A3$;B7$9999 DM1NB:L(M7)07200DJPJP100:I(M,1)I(M,1)1:250:I(M,1)I(M,1)1:VO(NV)I(0,M):PVO(V):240:CL38:D$"":370D VVI(0,M7):KP2VI(0,M)DI(M,1)L(M7)V0DKC2KC3VVDVVLVVLI(M,1)I(ML,1)MLM:VLV:VZO(NV)1:71353CN(M3)I(M,1):I(0,M)O(NV):MTMTI(M,1)VC:7700:O1O2:7500:NW17155CJP2001:A$G1$:350:ES$E$:JP2201:490:JP2001:245:ES$"N"JP2301:330CE$"":NZNAMT:NZ0NZ0DNU1NZ1:JP834:240:ML1:VL0:VZI(0,1):KC2KC3VLO C K MIN ADD TOTAL VALUE CHANGE"IBI1NB:I(0,I7)0:L(I7)07125tBI(0,I7)I(I,2):KC4I(0,I7)I(I,26)B:NU0:MT0:M1NB:N(M3)0:L(M7)07145BI(M,1)L(M):I(M,1)0I(M,1)1C250:N(NP)0IN7O(6)1IN8O(6)1I(M,1)I(M,1) "F4$;A0$" (1) OR":B0$" (2)";:" ? ";A$:Z(A$):KPZ:Z1Z2(A$)1İ245:7060bAKP17100|AA$A0$:A0$B0$:B0$A$ALG7:489::F3$"ION "E6$":"34)"PAGE "NG:460:#B:F3$"ION "F4$;A0$::15)A3$;B7$:14)"-------------- "D6$;A6$;:" B L "? ";A$:S2(A$):S20A$"0"S2S1S2(S2)İ245:7030b@{L(I)S1:L(I7)S2:L1L1S1:L2L2S2:@NAL1NAL2JP1201:245:7020@A0$"MIN AVG":B0$"MIN MAX":KP2:KC2KC3A0$"MAX AVG":B0$"MAX MIN"@KC1KC27070SAJP2001:240:F3$"IONB7NF0^?lL10:L20:JP1001100NF:240:"ENTER "A3$;B7$" THAT CAN BE":F3$"ED TO:":I1NB?qJP1103100(INF):240:A4$" "(I)": "B$(I)23)"MIN ";:"? ";A$:S1(A$):S10S10A$"0"S1NAS1(S1)İ245:70258@vJP1132100(INF):240:"MAX ";:0:320:JP701:240:"MULTI"A4$" "F3$"ION "E6$"S: ":450:470:A0$F3$"ION "E6$:380:550:489w>]320:A0$":":460:>bKP2:JP901:240:D7$" "A3$;B7$" TO BE "F3$"ED ";:"? ";A$:Z(A$):NA(Z):A$"0"JP2301:330>gZNAZ1İ245:7010?hNF1:NKC3J1W=<550:D$" ":J0O(NV)I(0,KC)J1O(NV)I(0,KC)I1:IG1:L(KC)I(M,1)1=FMP1İ460:PVO(I(0,KC)):CL24:PL0:370:PVO(O(NV)):CL31:370:PVL(KC)I:CL38=HMP1I1D$" *"=JMP1DZ0:370:=P:JP2201:240:G$"? "IC:_>XPL"N"330<LG6:MG5:337*<MP06430a< N(LP)0JP801:240:A3$;B7$" = "I(M,1);24)E7$:<L1JP635:240:958:A3$;:21)"LIMIT VALUE "B7$:L2:I117:L(I)I(M,1):<IG0:MP1JP801:240<(KC117:I(0,KC)16480 =2I0:J0:KC2:I(0,I)16136@;JJ1:L(I)I(M,1)JP739200J:240:"**";F;};JP2001:245:D0$;I(M,1)" ";:I(M,1)1ĺA6$;:6150;B7$;;" NOW "F5$:"TO "A4$" "(M)": "B$(M):NB1JP2301:330<A$"SAME LIMITS, ANOTHER "A4$:JP2201:350:JP2301:E$(S)SMP0E:6400:E(16384):16368,0:IG0MP1MP:6400:6134V:E1276110:JP2201:240:868:G$;:"? ";A$:A$""ZIC:6132:Z(A$):A$"0"6132:Z0Z(Z)İ245:6128:ICZ:JP2221:240:IC:489:245:Z06110;J0:I117:603019I(0,KC)Z:L0:I117:I(0,I)1LL1G9:L6İ489:61009JP2101:A$"ANOTHER "C8$:350:ES$E$:489:ES$"Y"JP1701:245:60109IC1:MG0:IG1:LPI(M,18):320:A4$" "M": "B$(M):I(M,1)0:L1 :I(M,1)I(M,1)1:250:MP1:SI(M,1)IC:C8$"S";:360:450:470:IP0:I117:I(0,I)1::IX1X8zA0$C8$" NO":380:IPIXIXIP}8A$"UPPER":IN2IN3A$"LOWER"9JP1901:240:A2$;A$" LIMIT ";:"? ";A0$:Z(A0$):Z0Z0A0$"0"IN1Z60IN1ZI(M,16)IN2Z60I(M,16)IN5Z100İ245"B4$:" "B8$4)"DELAY TIME"5)"TIME":I1NP1:LI:KI:INP1L4:K0:4)"AVG";:5160f76)I;7(J13:CL69J:J2N(K)0ĺCL1)"SAT";:518072PVO(O(3L4J)):3707<:::JP2301:3307P3207ZD6$"SUMMARY";:360:MG0:48p320:I)7525tI:1705:@700:"DISPLAY SELECTION OPTIONS:"::" 1 DISPLAY ALL RECORDS":" 2 DISPLAY SPECIFIED RANGE OF RECORDS":" 3 DISPLAY SPECIFIED RECORD ONLY":J"OPTION ";:1600:SOV%:SO1SO3Z%100(37)1:500:8010 TSO8030,8050,8DATA ITEM, ENTER THE FOLLOWING:":"ITEM";22);"MIN";31);"MAX":" NO NAME";22);"VALUE VALUE":VI1D:" ";I;7);:A$:A$"Q"İ1705:5000`NI$(I)(A$,12)eZ%100(37)21:500:1600:MN(I)IVjZ%100(37)30:500:1600:MX(I)IV:IVMN(Bb:D$;"OPEN ";NF$;",L40":D$;"WRITE ";NF$:(TL$,24):R;",";DlI0D:NI$(I);",";MN(I);",";MX(I):I:J11R:I0D:RA(J1,I):IvJ1:D$;"CLOSE ";NF$:"DATA HAS BEEN SAVED":1700:5000"UNABLE TO SAVE ";NF$:1700:7000eL700:"FOR EACH (DI)OPMX(DI))BR1:"*";RCL25:OP100T4TT:100:CL36:OP100R2RT:100::]X7100Y700:"NAME OF NEW DATA FILE ?";NF$:NF$"Q"İ1705:1650ZNF$"C"İ1705:700:D$;"CATALOG"::1700:7000]:"DESCRIBE DATA ?";TL$:TL$"Q"İ1705:16502,DI)MVĺ17);"-";27);"-":anCL18:OPRA(K2,DI):100:DI0(OPMN(DI)OPMX(DI))BR1:"*";xCL28:OP100OPTT:100::RA(K2,0);:RA(K2,DI)MVĺ13);"-";24);"- -":R2R21:T4T4RA(K2,DI):CL14:OPRA(K2,DI):100:DI0(OPMNI$"Q"6220"1605:DI062802IVMV6275H5900:L006275qRA(K,DI)MVTTTTRA(K,DI):RTRT1RA(K,DI)IV:IVMVTTTTIV:RTRT1CF1:62201705CF0J1J1:T3T4:R1R2OS05600d" ";RA(K2,0);:RA(K:A$:A$"Q"İ1705:1650*VA$"Y"6290[`Z%100(37)13:500:"ID ?";I$:I$"Q"6220qe1605:IVMV6240gAIV:K0:K11J2:ARP(K1)KK1:K1J2jK1:K06240tK11R:ARA(K1,0)KK1:K1R~K1 Z%100(37)25:500:"VALUE ?";I$:L"::700:Z%14(NI$(DI))2:22);"CUMM. % CUMM. %":"RECORD";22);"OF TOTAL OF TOTAL":"ID";Z%);NI$(DI);22);"VALUE RECORDS"::8BR1ĺ:"* DENOTES DATA OUTSIDE SPECIFIED RANGE":BR0=DIDTİ1700:6295B:L"CHANGE ?";:600OS0OS1:1705?J2J21:RP(J2)RA(K2,0):J21ĴCO6100,6150QCO6500,6600fJ210İ6200:JRrJ25ĺJ:J206085J210İ6200J1R6030OS05600700:Z%18(NI$(DI))2:"RECORD ID";Z%);NI$(DI);25);"% OF TOTAI%(10),VV(10),RV(10,1),AV(10,10),IC%(22),DT(22),A$(50),B$(150):NI$(0)"RECORD I""D":AS1aB':)1505:OP2ĺD$;"CLOSE ";NF$)800)200:"UNABLE TO SAVE ";NF$:1500:700:7001a'AS1Ĺ109,(107):110,(108):TC%(6),RP(10)'IX%D:RX%(787426IX%)(5IX%15):OP1OP3ĺ:"MAXIMUM NO OF RECORDS: ";RX%Y$'RA(RX%,IX%1),MN(IX%1),MX(IX%1),NI$(IX%1),RK(RX%),VI%(10),RI%(10),AOG"::1500:700:7000B]"DESCRIBE DATA ?";TL$:TL$"Q"ĺ:3220bD$;"OPEN ";NF$;",L40":D$;"WRITE ";NF$:(TL$,24):R;",";DlI0D:NI$(I);",";MN(I);",";MX(I):I:J11R:I0D:RA(J1,I):IvJ1:D$;"CLOSE ";NF$::"DATA HAS BEEN SAVED"::32HAS BEEN ENTERED":JR1:15051OP3PF1İ900<1000B~D$;"CLOSE ";NF$:::"UNABLE TO READ ";NF$:1500:16504000:800p4000:3038X7100Y:"NAME OF NEW DATA FILE ?";NF$::NF$"Q"3220ZNF$"C"İ1505:700:D$;"CATALD$;"CATALOG"::1500:4000D$;"OPEN ";NF$;",L40":D$;"READ ";NF$:TL$:"FILE CONTAINS: ";TL$:R,D:10000:OP3ĺ"CURRENT ";"NO OF RECORDS: ";R:I0D:NI$(I),MN(I),MX(I):I:1300:J1R:I0D:RA(J,I):I:JD$;"CLOSE ";NF$::"DATA **";:NW0HN3N1ĺ"*";:HCL31:PVO(V):370:868:BH:fHVT0:S0:M1NB:L(M7)07720HKC1KC2I(0,M7)I(M,1)HVTVTI(0,M)I(0,M7):SSI(0,M7)H(:O2VTS:HxJPJP100:240:PVO(O2O1):CL38:370:P)8L2)B$(M);>GjN1N(M3):N3I(M,1):N2N3N1:VI(0,M):7600lGt" T O T A L";:N1MT:N2NU:N3N1N2:VO2GD$"":CL16:PVN1:DZ0:370:MNB1N1L(M7)ĺ"**";:NW0GCL21:PVN2:DZ0:370:CL26:PVN3:DZ0:370:N1L(M7):MNB1N1NA HN3N1ĺ":"DATA ITEM ?";I$:1100:DIV%:DI0DIDTZ%100(37)1:500:10000V!'AI%(N31)DI!'"NO OF ALTERNATIVE VALUES ?";I$:1100:V%1V%10Z%100(37)1:500:10015!!'AV(N31,0)V%:"ENTER ALTERNATIVE VALUES:":&"$'I1AV(N31,0):" ?";I$:1100: !%700:1305::"DATA ITEM ?";I$:1100:DIV%:DI0DIDTZ%100(37)1:500:9500 &%RI%(N21)DI::"MINIMUM";VI$;:I$:1100:RV(N21,0)IV::"MAXIMUM";VI$;:I$:1100:RV(N21,1)IV:DID1QS0ĺ:23000 +%N2N21:8900: 'N310ıE!'700:1305:("DID1NI$(D1)N$:M1Q1:M2Q2:QS1.";(#N110ıL-#700:1305:/#"DATA ITEM ?";I$:1100:DIV%:DI0DIDTZ%100(37)1:500:90072#VI%(N11)DI::"VALUE ?";I$:1100:VV(N11)IV:DID1QS0ĺ:230007#N1N11:8900:%N210ıS:J:IN0"N2N21'"I:N2N086703"N30ıV$"N0N3:I1N0:AI%(I)DI8770j)"IN0RS38770y."IN087603"JIN01:AI%(J)AI%(J1):K0AV(J1,0):AV(J,K)AV(J1,K):K:J:IN08"N3N31B"I:N3N08730L""MS1DID1İ861048660!IN08650J!JIN01:VI%(J)VI%(J1):VV(J)VV(J1):J:IN0V!N1N11i!I:N1N08610x!N208730!N0N2:I1N0:RI%(I)DI8720!IN0RS28720!IN08710!JIN01:RI%(J)RI%(J1):RV(J,0)RV(J1,0):RV(J,1)RV(J1,1)1205/ T04T08ĴT048000,8090,8500:8180F T04İ16000:8180& S51:I16:22010I,(106I):I:T08S50:D$;"RUN D/P-PAGE 4B"0 D$;"RUN D/P-PAGE 4A"4!MS1:8095!MS0ı!N108670!N0N1:I1N0:VI%(I)DI8660!IN0RSCORD SELECTION":" CRITERIA":" 7 MODIFY RECORD SELECTION CRITERIA":" 8 PERFORM A REPETITIVE TABULATION"w  "OPTION ";:1500 T0V%:T00LS1LS0:FS0:SS0:8180 T00İ1205:800 T01T08Z%100(37)1:500:8200 LS0Y FREQUENCIES OF DATA ITEM":" VALUES":" 3 DISPLAY TOTAL AND AVERAGE VALUES":" OF ONE DATA ITEM VERSUS VALUES" " OF A SECOND DATA ITEM":" 4 REVIEW RECORD SELECTION CRITERIA"q " 5 PROCESS OTHER DATA FILES":" 6 SPECIFY NEW REON CRITERIA ?";0600:A$:A$"Y"İ1205:8095:1205G16000:bLS1NT%8:400:8205700:"TABULATION OPTIONS:"::" 0 GO TO NEW PAGE":" 1 DISPLAY TOTAL, AVERAGE, MINIMUM,":" AND MAXIMUM VALUES OF A DATA ITEM"z" 2 DISPLAVALUE FOR":" A DATA ITEM"::MS1ĺ" 5 REMOVE SELECTION CRITERIA BASED ON":" A DATA ITEM"k"OPTION ";:1500:RSV%:RS1RSMS4Z%100(37)1:500:8120RS1İ1205RS12000,9500,10000,9000,10500::"ARE THERE OTHER SELECTI300LS12200700::"RECORD SELECTION OPTIONS:"::" 1 PROCESS ALL RECORDS"::" 2 ";RW$;"RANGE OF VALUES FOR":" A DATA ITEM"::" 3 ";RW$;"ONE OF SPECIFIED"e" ALTERNATIVE VALUES FOR A DATA ITEM"::" 4 ";RW$;"SPECIFIED X $j'J:0:10020#.':NO$h#8'"TIME AT END OF INTERVAL ";:1600:I2V%:I20I2DZ%100(37)1:500:10040#B'J1R:T1RA(J,I1):T2RA(J,I2):T1MVT2MVRA(J,DT)MV:10090#L'H1%T1100:H2%T2100:XT2T140(H2%H1%)#V'X0XX1440:10070$`'RA(J,DT)J9RK(I9):I8I91R:J8RK(I8):RA(J9,X1)RA(J8,X1)9530W"0%RK(I9)J8:RK(I8)J9:J9J8e":%I8:I9:"':"NAME OF TIME INTERVAL ?";I$:I$"Q"İ1705:1650"'NI$(DT)I$::NO$#$'"TIME AT START OF INTERVAL ";:1600:I1V%:I10I1DZ%100(37)1:50 DISPLAY RECORDS BY ASCENDING VALUE":" OF DATA ITEM":NO3C!<#!F#"OPTION ";:1600:POV%:PO1NOPOZ%100(37)1:500:9030!P#X11:PO2X10!Z#PO3X1DI!_#CO1:PO3SO1CO2!d#9500:!%I91R:RK(I9)I9:I9:X10ı9"&%I91R1:040 ^5 h:"ID OF RECORD ";:1600:RSIV:9500:f r:"MIN,MAX RECORD ID'S ?";RM,RX:RXRM5600l | (#NO2:700:"DISPLAY SEQUENCE OPTIONS:"::" 1 DISPLAY RECORDS IN ORDER ENTERED":" 2 DISPLAY RECORDS BY ASCENDING ID NO"=!2#MO2MO3ĺ" 3NI$(D1)::"VALUE OF NO OF"R!>:NI$(D2);15);"RECORDS TOTAL AVERAGE"::!:"TOTAL RECORDS PROCESSED ";TR:"RECORDS MEETING CRITERIA ";TS:" MISSING VALUES";28);TM:" NON-MISSING VALUES";28);TSTM:!hB!PFLS1İ2200:18020;"UF100 8 8(37)18İ14900G 8:"=> ";R(IMK1IS);:INK114570 8CL19:OPIC%(K11):100:CL27:OPDT(K11):100:IC%(K11)0ĺ36);"-";:14570 8CL37:OPDT(K11)IC%(K11):100 8:K1:1200: !4:1200:700:TX%14(26(NI$(D1)))2:TX%);%)1:#6DT(L%)DT(L%)RA(J,D1):I8DID1:12900:15000:TS0İ1200:}814900:K10IN1:K1IN1ĺ:"MISSING";:145658"< ";R(IMK1IS);8CL19:OPIC%(K1):100:CL27:OPDT(K1):100:IC%(K1)0ĺ36);"-";:14540 8CL37:OPDT(K1)IC%(K1):4:"=> ";R(IMK1IS);:INK1CL20:OPIC%(K11):100:CL33:OP100IC%(K11)(TSTM):100m4:K1:1200:L61200:12900:"VALUE OF";16);"NO OF PERCENT":NI$(DI);16);"RECORDS OF TOTAL"::613000:RA(J,D1)MVTMTM1:IC%(L%)IC%(L13040&2RA(J,DI)IXL%IN1:13040@2L%(RA(J,DI)IM)IS1X2IC%(L%)IC%(L%)1:4TMIC%(IN2):12900:15000:TS0İ1200:413900:K10IN:"< ";R(IMK1IS);:CL20:OPIC%(K1):100:CL33:OP100IC%(K1)(TSTM)4100::(37)18İ13900[I8(RK(0)2):I8I9OP(OPRK(I81))220300:z0"MINIMUM ";:CL18:OPIM:300::"MAXIMUM ";:CL18:OPIX:300:01200:d2700:TX%(26(NI$(DI)))2:TX%);"TABULATION OF ";NI$(DI)::2RA(J,DI)MVL%IN2:130402RA(J,DI)IML%0:1İ22000&.RA(J,DI)IMIMRA(J,DI)C.RA(J,DI)IXIXRA(J,DI)I.j012900:15000::TSTM125200"TOTAL ";:CL18:OPIT:300::"AVERAGE ";:CL18:OPIT(TSTM):300::DO2F112510'0"MEDIAN ";:CL18:I9((RK(0)1)2):OPRK(I9):J1R:1700:SW082809N TSTS1:T012000,13000,14000HX TRTR1:J`b F1FF1F11:8245ng F1FF1l DO2FS0İ1200q DO2LS0İ1205v T012500,13500,14500:BS0:8180.RA(J,DI)MVTMTM1: .ITITRA(J,DI):X1RA(J,DI):DO1FX+ TR0:TS0:TM0:IT0:IM1E30:IXIM:F11:RK(0)0:1900:T017000,18000,19000:DO2ĺl0 DO1F0:82605 NF$FM$(F1):DO2FS0ĺNF$;" IS BEING PROCESSED"7 FS1PS0PS1:NF$;" IS BEING PROCESSED":1200: FF0İ4500D BS1QS1İ400I 00LS1LS0:FS0:SS0:81802 T00İ1205:800[ T01T08Z%100(37)1:500:8200k LS0İ1205z T048230! S51:I16:22010I,(106I):I:T08S50:D$;"RUN D/P-PAGE 4B"# D$;"RUN D/P-PAGE 4"& LS0(SS1FF0)(FS1PS0)İ700M":" 4 REVIEW RECORD SELECTION CRITERIA" " 5 PROCESS OTHER DATA FILES":" 6 SPECIFY NEW RECORD SELECTION":" CRITERIA":" 7 MODIFY RECORD SELECTION CRITERIA":" 8 PERFORM A REPETITIVE TABULATION"  "OPTION ";:1500 T0V%:T ";:1500:Q2V%:Q20Q2DZ%100(37)1:500:23040;& Z$>11000:11200:11400$%>:1200:3%YLS12700i%Y"NAME OF TIME INTERVAL ?";I$:I$"Q"İ1205:1550%YN$(I$,12)::NO$%Y"TIME AT START OF INTERVAL ";:1500:Q1V%:Q10Q1DZ%100(37)1:500:23020%Y:NO$5&Z"TIME AT END OF INTERVAL (K,1));:AV(K,0)2ĺ:11450P$,27);"OR":J2AV(K,0):16);"= ";Q(AV(K,J));k$,JAV(K,0)ĺ27);"OR";t$,:J}$,K:$P-700::" SUMMARY OF RECORD SELECTION CRITERIA"::$.300:$>11600:N1N2N30ĺ:11);"PROCESS ALL RECORDS":16020% ";Q(VV(K)):K:#+N20ıJ#+K1N2:IRI%(K):(37)18İ1200:11600#+:" ";NI$(I);16);"=> ";Q(RV(K,0));27);"AND":16);"<= ";Q(RV(K,1)):K:#,N30ı#,K1N3:IAI%(K):(37)AV(K,0)20İ1200:11600$,:" ";NI$(I);16);"= ";Q(AVAV(N31,I)IV:I:DID1QS0ĺ:23000:")'N3N31:8900:")700:1305::"DATA ITEM ?";I$:1100:DIV%:DI0DIDTZ%100(37)1:500:10500")8600:DID1QS0")"*N10ı"+K1N1:IVI%(K):(37)19İ1200:11600# +:" ";NI$(I);16);"=ER";AV$;":":\!$'I1AV(N31,0):" ";:1100:400:AV(N31,I)IV:I:DID1QS0ĺ:23000p!)'N3N31:8900:z!)9100!)400:8600:DID1QS0!)!*N10ı!+K1N1:IVI%(K):(37)19İ1200:11600" +:" ";NI$(I);16);"= ";Q(VV(K)):K:00:400:RV(N21,0)IV::"MAXIMUM";VI$;:1100:400:RV(N21,1)IV:DID1QS0ĺ:23000j +%N2N21:8900:w 'N310ı '9100 '400:AI%(N31)DI '"NO OF";AV$;" ";:1100:V%1V%10Z%100(37)1:500:10015 !!'I$(V%):400:AV(N31,0)V%:"ENT100S2#400:VI%(N11)DI::"VALUE ";:1100:VV(N11)IV:400:DID1QS0ĺ:23000g7#N1N11:8900:x#700:1305:#"DATA ITEM ";:1100:DIV%:DI0DIDTİ490:9110#I$(DI):%N210ı!%9100V &%400:RI%(N21)DI::"MINIMUM";VI$;:11N0:AI%(I)DI8770()"IN0RS387707."IN087603"JIN01:AI%(J)AI%(J1):K0AV(J1,0):AV(J,K)AV(J1,K):K:J:IN08"N3N31B"I:N3N08730L""MS1DID1İ8610"DID1NI$(D1)N$:M1Q1:M2Q2:QS1"(#N110ı-#9:J:IN0!N1N11'!I:N1N086106!N208730Y!N0N2:I1N0:RI%(I)DI8720m!IN0RS28720|!IN08710!JIN01:RI%(J)RI%(J1):RV(J,0)RV(J1,0):RV(J,1)RV(J1,1):J:IN0"N2N21"I:N2N08670"N30ı$"N0N3:I1400:1205:T04ĴT048000,8090,8500:81809 T048180d& 700:1900:T017000,18000,19000:8180s4!MS1:8095!MS0ı!N108670!N0N1:I1N0:VI%(I)DI8660!IN0RS48660!IN08650!JIN01:VI%(J)VI%(J1):VV(J)VV(J1)TA ITEM":" 4 REVIEW";RS$:NT%4:SS1VS08199 " 5 PROCESS OTHER DATA FILES":" 6 SPECIFY NEW RECORD SELECTION":" CRITERIA":" 7 MODIFY";RS$:NT%7  "OPTION ";:1500:T0V%:T00İ1205: T01T0NT%İ490:8200* I$(T0):RT$;"S":" 1 DISPLAY TOTAL, AVERAGE, MINIMUM,":" AND MAXIMUM VALUES OF A DATA ITEM"" 2 DISPLAY FREQUENCIES OF DATA ITEM":" VALUES":" 3 DISPLAY TOTAL AND AVERAGE VALUES":" OF ONE DATA ITEM VERSUS VALUES"1 " OF A SECOND DA12000,9500,10000,9000,10500::"ARE THERE OTHER SELECTION CRITERIA ";aVS1İ350:A$I$:8142t"?";:600:A$450:A$"Y"İ1205:8095RO1I$(52):4001205:16000:SS0VS1İ1200Z700:"TABULATION OPTIONS:"::" 0 END"; SPECIFIED":" ";AV$;" FOR";AD$::" 4 ";RW$;"SPECIFIED VALUE FOR":" ";AD$MS1ĺ:" 5 REMOVE SELECTION CRITERIA BASED ON":" A DATA ITEM""OPTION ";:1500:RSV%:RS1RSMS4İ490:8120I$(RS):400:RS1İ1205FRS$"C"İ700:8035q1205:>rN10:N20:N30:QS0:MS0:DS2Q|DTD1:8090:nN10:N20:N30:MS0:QS0700::"RECORD SELECTION OPTIONS:"::" 1 PROCESS ALL RECORDS"::" 2 ";RW$;"RANGE OF VALUES FOR":" ";AD$S:" 3 ";RW$;"ONE OF00:Q2V%:Q20Q2DZ%100(37)1:500:230404& Z&K(1)X1%VRK(0)RK(0)1:*%YLS12400b%Y:"NAME OF TIME INTERVAL ?";I$:I$"Q"İ1205:1550y%YN$(I$,12)::NO$%Y"TIME AT START OF INTERVAL ";:1500:Q1V%:Q10Q1DZ%100(37)1:500:23020%Y:NO$.&Z"TIME AT END OF INTERVAL ";:15I9:X10ıT$RI91R1:J9RK(I9):I8I91R:J8RK(I8):RA(J9,X1)RA(J8,X1)21030r$RRK(I9)J8:RK(I8)J9:J9J8$&RI8:I9:$URK(0)1RK(1)X1:RK(0)1:$UI9RK(0)121:X1RK(I91)RK(I9)RK(I91):22030$VRK(I9)X1:I9999%VI9:I90R1: #8JD1DI:LS1İ2300:190307#=J1205:700:1307:#BJ"SECOND DATA ITEM ";:1500:D2V%:D20D2DTZ%100(37)1:500:19010#LJDID2:DID1QS0BS0İ23000:M1Q1:M2Q2:NI$(D1)N$:BS1#VJ18000:K10IN2:DT(K1)0:K1: $RI91R:RK(I9)I9::"FOR ";NI$(DI);", ENTER:"::" MINIMUM";VI$;:1500:IMIV"WF" INTERVAL SIZE";29);:1500:ISIV:IS0Z%100(37)1:500:18007"ZF" NO OF INTERVALS";29);:1500:INV%:IN1IN20Z%100(37)1:500:18010#dFIXIMISIN:K10IN2:IC%(K1)0:KūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūŹūūūūūūūūū:NO$K&R"TIME AT ";A$;" OF INTERVAL";27);:1500:V%0V%Dİ490:21010_&RI$(V%):400:&Y:"NAME OF TIME INTERVAL ";:VS1İ350:23010&YI$:I$"Q"İ1205:1550&YN$(I$,12):I$N$:400:A$"START":21000:Q1V%:A$"END":21000:Q2V%:D:IXIMISIN:K10IN2:IC%(K1)0:K1:1205:J%8JD1DI:1205:700:1307:%BJ"SECOND DATA ITEM ";:1500:D2V%:D20D2DTİ490:19010%LJDID2:I$(D2):400:DID1QS0BS0İ23000:M1Q1:M2Q2:NI$(D1)N$:BS1%VJ18000:K10IN2:DT(K1)0:K1:&R0:11400$>$> $hB1205:f$PF:"FOR ";NI$(DI);", ENTER:"::" MINIMUM";VI$;:1500:IMIV:400$UF" INTERVAL SIZE";29);:1500:ISIV:IS0İ490:18005$WF400$ZF" NO OF INTERVALS";29);:1500:INV%:IN1IN20İ490:18010-%_FI$(IN):4002ĺ:11450?#,27);"OR":J2AV(K,0):16);"= ";Q(AV(K,J));Z#,JAV(K,0)ĺ27);"OR";c#,:Jl#,K:#P-700::" SUMMARY OF";RS$::#.N10:N20:N30:QS0:MS0:DS2:#>11600:N1N2N30ĺ:11);"PROCESS ALL RECORDS":16020$>11000:1120 "+N20ı9"+K1N2:IRI%(K):(37)18İ1200:11600"+:" ";NI$(I);16);"=> ";Q(RV(K,0));27);"AND":16);"<= ";Q(RV(K,1)):K:",N30ı",K1N3:IAI%(K):(37)AV(K,0)20İ1200:11600 #,:" ";NI$(I);16);"= ";Q(AV(K,1));:AV(K,0)ee`(yyL ( L X) @**jj() (ԩ LL0`  !"#$%&'()*+,-./0123456789LLLL`ª`LQLY8LXLeL  ūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūōūūūūūūūūūūūūūūūūūūūūԍĠĬ̠ģӬŠŬ  ūūӠԠĠĬ٬ӬĬРŬĠŬҠŬàŭàŭūūūū ūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūȠŠĠĬ٬ϠƠӬĬЮŬĮŬҠŬàŭàŭūū    ūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūūȠŠĠĬ٬ϠƠӬĬЮŬĮŬҠŬàŭàŭūūū            z#?   Š Įʠ Š!Š"ŠŠŠԱ  įЭŠįЭŠįЭŠ įЭŠįЭŠ  įЭŠįЭŠ Ϡ ŭΠϠ ϲůΠ!̯ΠBΠįЭŠE D#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     LICE/PLAN"#I120:"* ";:::V"24:8:"";:A$:"":INE (206) 764-4301"!290:936<:" CONTACT #2 "::5"MR. WILLIAM STENZEL ASSOCIATE DIRECTOR OF RESEARCH THE TRAFFIC INSTITUTE, NORTHWESTERN UNIVERSITY 555 CLARK STREET EVANSTON, ILLINOIS 60204 PHONE (312) 492-7240" 290:936:(4)"RUN POFEEL FREE TO CONTACT THE FOLLOWING:". 2908 936R :" CONTACT #1 "::Y 5 "MR. IAN WALLACE":"LAW ENFORCEMENT TRAINING OFFICER WASHINGTON STATE CRIMINAL JUSTICE TRAINING COMMISSION""MAIL STOP PW-11 OLYMPIA, WASHINGTON 98504 PHO OF INFORMATION."s :"THE PROGRAMS ARE MENU DRIVEN, AND WITH THE EXCEPTION OF THE ";:::" PRINT OPTION,"::% "THE PROGRAMS ARE EXTREMELY GOOF-PROOFED (SERIAL PRINTERS MAY WORK OK). IF YOU HAVE ANY QUESTIONS ABOUT THE SOURCE OF THESE, PLEASE OR PROGRAM EXAMINATION BE DESIRED."2 x290:936 "THESE PROGRAMS WERE DEVELOPED UNDER LEAA":"GRANT FUNDING, AND ARE COMPLETELY PUBLIC" "DOMAIN PROGRAMS. THEY REQUIRE SPECIFIC " "INPUT DATA, USUALLY FROM DISPATCH CARDS ":"OR SIMILAR TYPESTRICTS/AREAS BASED UPON A LARGE NUMBER OF INPUT VARIABLES."# n" THESE ARE EXTREMELY POWERFUL PLANNING TOOLS, AND WERE QUITE EXPENSIVE TO DEVELOP. THE USER SHOULD NOTE THAT THE PROGRAMMER USES SIMILAR ROUTINES AND LINE NUMBERS, SHOULD 'SPECIAL' CHANGES TO BE USED BY POLICE AGENCIES, PRIMARILY MUNICIPAL, AS A RESOURCE ALLOCATION AND MANPOWER MODEL. "< d"BASED UPON 'HYPERCUBE' AND 'PCAM', TWO RAND CORPORATION PROGRAMS, THESE MODELS ALLOW A POLICE PLANNER TO ALLOCATE MANPOWER AND/OR RESPONSE UNITS TO DIW INFORMATION ON PROG'S*936:103280c("INFORMATION ON PATROL PLAN AND DATA/PLAN"215:14:"AUGUST, 1981":<280F24:8:"";:A$P936:5c Z"THE PROGRAMS PATROL/PLAN AND DATA/PLAN WERE DESIGNED      :936>"DOS VERSION 3.3 10/18/80"p:"APPLE II STANDARD SYSTEM MASTER"(4);"RUN POLICE/PLAN""1000:1200:"LOUIS, MISSOURI";:1100 1000:"* DEVELOPED FOR THE NATIONAL";:1100:"* INSTITUTE OF LAW ENFORCEMENT AND *":"* CRIMINAL JUSTICE, L.E.A.A., *":"* U.S. DEPARTMENT OF JUSTICE.";:1100 "* ( GRANT NO: 78NI-AX-0015 )";:1100:1200:NS2:1000:"*";11);"P O L I C E / P L A N";:1100 1000:"*";14);"AN EASY-TO-USE";:1100:"*";8);"RESOURCE ALLOCATION SYSTEM";:1100 1000:NS1:"* THE INSTITUTE FOR PUBLIC";:1100:"*";13);"PROGRAM ANALYSIS";:1100:"*";11);"ST. = :1500:24:"USE: 1-PATROL/PLAN, OR 2-DATA/PLAN? ";:A[D$(4):D$;"NOMON C,I,O"hA2ī10(A1ĺD$;"RUN PATROL/PLAN"2A2ĺD$;"RUN DATA/PLAN"<A0ĀI91NS:"*";39);"*":I9:L39);"*":I139:"*";:I::9 :   R570:LIMI:JP2401:490:3106SII1:INB338DT245:337s^240:A$;:" (Y/N) ? ";E$:E$"Y"E$"N"ı`245:350h" - "A4$" "(M)": "B$(M):rKVPV:KLCL:KV0KLKL1:KV(KV)sKV1KVKV10:KLKL1:371tQ$(PV):DZ0375:MJP2317:A$F7$:350:ES$E$:JP2401:490:ES$"Y"ė:HNNG1:310OZ(A$):NG(Z):Z0Z7ZNG(A$)1Z7NB1İ245:JP2301:331PJP2322:NG1NG2NG7NB1JP2318:490:310QI1:240:A4$;:" ? ";A$:A$""LG7JP2401:490:310!";-A$:A$""301..LGNG:JPJP100:490w6S(0):NGMG1000,2000,3000,4000,5000,6000,7000,4050,5050,5100,6100@:700:8)N1$" PAGE "NG:12)N2$::14)C$::JLGNG:JP2401KW1K245:A8$;:"? ";A$:A$""A$"1":335LA$"0"3308R.598R(U)~I1211NP:O(I)60ZDI(M,I11):O(15)O(15)I(M,I7)O(I)100::O(7)9999.9:U0O(7)I(M,26)(UI(M,0))O(6)U:I811:JI:I11J7 N(J7)0O(I8)O(I)O(I4)":O(20)60O(5):,A$"":240:"TO CONTINUE, HIT RETURN (2)1:280NS1U280>O(8)PSO(NS1U):N(1)1:280SN(1)2:NP2280yNS2UO(9)PSO(NS2U):N(2)1QLSO(2)O(11)60:O(4)100PS:R(I(M,22)):UNO(5)N60:U0U0U1ZD.678R:284U2ZD.711R(U):284ZD.1:O(8)0280- O(10)O(11)O(9)O(8):280p O(5)O(3)(1S1PS):N(1)2:O(9)PSO(NS2U):N(2)1:NP2280 O(10)O(9)N(NSU):N(3)1:280ND2276NP280,274,272N(S1S2)U274 O(8)PSO(NS1U):N(1)1:O(9)O(8)N(NRU):N80=S1I(M,19)100:S2I(M,20)100:RS1S2:S1:ND2SSS1[NSUO(5)60:PS1:270N(0)1:PSPSN(NSU(1PS)):O(11)SPSO(NSU):ND2268O(5)O(3):O(8)PSO(NS1U):N(1)1:NP1280O(9)O(8)N(NRU):N(2)1:NP2280 N(3)1I(M,3):S0:J1I:SSI(M,J9)::OOI(M,I3)S100:RRII(M,I3)100:O(0)O:O(1)R:O(2)NI(M,16)OI(M,2):O(3)O(2)ON:UOO(2)60:R1:S1PS0:U0āI1N:SSUI:RRS::PSSRO(5)(1PS)O(3):S0:ND1ND2NP1āI0NP:N(I)2::2 ":G$"DISPLAY FREQUENCY ":G1$"CONTINUE ALLOCATION"vNG1:JP2201:A$"PRINT SELECTED PAGES":350:E$"Y"KZ1:4891000R%JP100:R%:JP100R%:240:958:JI03:N(I)0::I020:O(I)0::R0:O0:NI(M,1):NDI(M,17):NPI(M,18):IMPLETED. ":D1$"SQ MILES":D2$"MILES":D4$"PERCENT OF CALLS ":D6$"OUTPUT ":D7$"TOTAL":E4$"QUEUE ":E6$"VARIABLE":E7$"SYSTEM SATURATED ":E9$" (MIN)":F3$"ALLOCAT":F4$"PROCEDURE: "4F5$"ASSIGNED":F6$"CALIBRATE":F7$"STOP PROGRAM":F8$"INPUT/MODIFYAVG ":B2$"REGION AREA":B3$"SERVICE TIME":B4$"RESPONSE" B5$"SPEED":B6$"CALLS":B7$"UNITS":B8$" LEVEL":C$"PATROL/PLAN":C1$"PATROLLED STREETS":C2$"DISPATCH":C4$"CALL RATE":C5$"PRIORITY":C7$"CFS/HR":C8$"CONSTRAINT":C9$"MIN/HR" D0$"RUN CO,35,25,15,10,642j NIGHT,10,6,3.6,6,50,10,10,10,10,10,30,25,20,15,10,5,10,1,2,30,70,0,35,25,20,15,6429 A1$"TABLE OF CONTENTS":A2$"INPUT ":A3$"NO OF ":A4$"BLOCK":A5$"SUMMARY":A6$"UNIT ":A7$"DATA ITEM NO":A8$"GO TO PAGE ":A9$"DISPLAY ":B1$" JUSTICE."I)"* *"6)"(GRANT NO: 78NI-AX-OO15)"I)"*":610:600 I17:B$(I)"DEFAULT":J026:I(I,J):J::I:M1:NB1:DZ1:1,1,1,1,100,0,0,0,0,0,1,0,0,0,0,0,0,1,1,100,0,0,1,1,1,1,1 AFT,10,13,7.8,3,60,30,10,0,0,0,35,15,5,0,0,0,10,3,3,12,75,13"OCTOBER 1979"I)"*":610:"*"6)N1$6)"* *"10)N2$I)"* *"8)"ST. LOUIS, MISSOURI"I)"*" nN1:610:"*"5)"DEVELOPED FOR THE NATIONAL"5)"* * INSTITUTE OF LAW ENFORCEMENT AND * * CRIMINAL JUSTICE, L.E.A.A.,"I)"*"@ x"* U.S. DEPARTMENT OF@ ::P$"":P$;"NOMONI,O,C"::B$(7),C$(37),I(7,26),L(17),N(10),O(20):N1$"THE INSTITUTE FOR PUBLIC":N2$"PROGRAM ANALYSIS"O(X)(10X.5)10:T(X)(100X.5)100:700[ dI38:600:N2:610:"*"7)"P A T R O L / P L A N"I)"*":610:"*"12)                     *":"* CRIMINAL JUSTICE, L.E.A.A., *":"* U.S. DEPARTMENT OF JUSTICE.";:1100 "* ( GRANT NO: 78NI-AX-0015 )";:1100:1000:1200:200:ANS1:"*";14);"OCTOBER 1979";:1100 1000:"* THE INSTITUTE FOR PUBLIC";:1100:"*";12);"PROGRAM ANALYSIS";:1100:"*";10);"ST. LOUIS, MISSOURI";:1100[ 1000:"* DEVELOPED FOR THE NATIONAL";:1100:"* INSTITUTE OF LAW ENFORCEMENT AND%100R%:R%24Ģ(24)::(C%):1 (R%):(C%):; XA$:\ I91NS:"*";39);"*":I9:l L39);"*": I139:"*";:I:: xD$"": D$;"NOMON I,O,C"::PA256(41)(40)::1200:NS2:1000:"*";12);"D A T A / P L A N";:1100$ 1000: IS0:500:868:D$;"PR#1"h (12);(28):I912000:I9:1785,63:(2041)128Ĺ2041,(2041)128 I9124:" ";:J9039:((PAJ9));:J9::PAPA128:PA2048250 PAPA984:PA1144PAPA8 I9:D$;"PR#0": R%Z%100:C%Z22010:10000:I0:F DS0:MV1.23E31:P1:IS1:TC%(6),RP(10)V1400:1500(I16:22010I,(106I):I:IS0P5:D$;"RUN D/P-PAGE 5"2D$;"RUN D/P-PAGE 1" ::Z%100(37)101:PF1:"DO YOU WANT PRINTED OUTPUT ?";:600:A$:A$"Y"    ENTS INTO OUTPUT"800$500:868:A$"Y"İ200! 500:p 700:11);TC$::"PAGE"::" 0 TERMINATE PROCESSING":" 1 DISPLAY ";TC$ " 2 ENTER DATA TO BE TABULATED":" 3 VERIFY/MODIFY/SAVE";AD$" 4 TABULATE DATA":" 5 MODIFY PRINT OPTION":PF1ĺ" 6 INSERT COMM2000 HD$;"RUN D/P-PAGE 2"8 MD$;"RUN D/P-PAGE 3"Q RD$;"RUN D/P-PAGE 4"j WD$;"RUN D/P-PAGE 5" \D$;"RUN D/P-PAGE 6" xTC$"TABLE OF CONTENTS":AD$" DATA":D$"": PF1ı PF3İ200: Z%100(37)101:"PRINT PAGE ?";:600::PUBLIC PAGE ";P:12);"PROGRAM ANALYSIS"::15);"DATA/PLAN"::` :1700:Z%2301:500:100 *"GO TO PAGE ";:300:PV%:IVMVP1 ,P0P6Z%100(37)1:500:810 /I16:22010I,(106I):I 4P1830,835,840,845,850,855,860 >: C(I$,I9,1):I8410,430,440:I9:/ C$" "ıB C$"-"I82:U C$"."I83:n (C$)47(C$)58ı BF1:I9999: R%Z%100:C%Z%100R%:R%24Ģ(24)::(C%): (R%):(C%): XA$:A :PA256(41)(40):8);"THE INSTITUTE FOR 128:PA2048230/ PAPA984:PA1144PAPA8D I9:D$;"PR#0":_ ,I$:I$"Q"İ1700:350x 1I$""IVMV:V%1: 6400:BF0ĺ:"INVALID NUMBER, REENTER ";:300 @IV(I$):V%1:(IV)32768V%IV J ^:350! BF0:I81:I91(I$):C$510000:22010:I16:106I,(22010I):I:100L 1400:I(0):2000_d(222)22800ln216,0:D$;"PR#1":(12);(28):I912000:I9:1785,63:(2041)128Ĺ2041,(2041)128 I9124:" ";:J9039:((PAJ9));:J9::PAPA     ARE":"OUTSIDE THE RANGE SPECIFIED:"::SW1_ NI$(I);15);"CHANGE ?";:600:A$;:A$"Y"ĺ: 26);"VALUE ";:I$:I$"Q"3510 1605:RA(J,I)IV::30554500700:"NAME OF DATA FILE ?";NF$::NF$"Q"İ1505:1650NF$"C"İ1505:700:"Y"SC0ĺ( A$"Y"İ1505:700:70007 SC03090A 3120OH JRX%ıR 700::"DATA STORAGE CAPACITY HAS BEEN REACHED"::"VERIFY, SAVE, OR TABULATE DATA BEFORE":"ENTERING ADDITIONAL DATA":1500::805+ SW0ĺ:"THE FOLLOWING DATA ITEMS MN(I)RA(J,I)MX(I))İ3500@ I::SW0:SCSC1:RJ:SC103090O SC0:3200 JJ1:"MORE DATA ?";:600:A$:A$"Q"İ1505:1650 A$"N"İ1505:3400:3038& SC0ĺ:32000 1505:800 "SAVE DATA ?";:600:A$:A$"Q"İ1505:1650  A$ 1505:J1 SC0$ 700::US1@ "ENTER DATA:"::I0D I;5);NI$(I);18);:MN(I)MX(I)I0IVMN(I):"?";MN(I):3050 1600:I03050 1800:L90Z%100(37)1:500:3045 RA(J,I)IV:I::1900:I1D RA(J,I)MV(RA(J,I)";31);"MAX":" NO NAME";22);"VALUE VALUE"::I1D:1100:I:v "CHANGE ?";:600:A$;:A$"Q"ĺ:1505:2000 A$"Y"ĺ:3035 13);"ITEM ";:I$:I$"Q"3020 1605:DIV%:DI1DIDZ%100(37)1:500:3025 IDI::1100::3020 :"OPTION ?";I$:I$"Q"İ1505:80031605:OPV%GOP0OP32000oI00:1505:OP1800,3000,5000,6000 US0:700:"NO OF DATA ITEMS PER RECORD ";:1600:DV%:D13000 10000:"FOR EACH DATA ITEM, ENTER THE FOLLOWING:"E "ITEM";22);"MIN"VALUE?";I$:I$"Q"1900<1605:DI0RA(J,DI)IV:1900R1800:L901920hRA(J,DI)IV:1900700:"INPUT OPTIONS:"::" 0 GO TO NEW PAGE":" 1 KEY IN NEW DATA":" 2 ENTER DATA FROM DISK"#" 3 ADD DATA TO AN EXISTING DATA FILE":(C$)58ıBF1:I9999:.IVMVL91:> L90:J1ıfJ91J1:IVRA(J9,0)L9J9:J9J1pJ9:l"CHANGE?";:600:A$:A$"Y"ıvZ%100(37)14:500:"ITEM?";I$:I$"Q"1900{1605:DIV%:DI0DID1910Z%100(37)26:500:/T:"INVALID NUMBER, REENTER: ";:I$:US1ĺ9^1602_cIV(I$):V%1:(IV)32768V%IVehpr1000||:1660BF0:I81:I91(I$):C$(I$,I9,1):I81710,1730,1740:I9:C$" "ıC$"-"I82:C$"."I83: (C$)47:I9::" xRA$"RECORD":D$"":1 PF1İ900= PF1ıN PF3İ200: :Z%100(37)101:"PRINT PAGE ?";:600::500:868:A$"Y"İ200 A$"Q"1660 500: @I$ BI$"Q"İ1505:1650 EI$""IVMV:V%1: J1700:BF016350 `NI$(I)(A$,12)I jZ%100(37)21:500:1600:MN(I)IV:IVMV1130} tZ%100(37)30:500:1600:MX(I)IV:IVMV1140 ~IVMN(I)1130  TC%(1)1:TC%(2)21:"DATA ITEMS:"::J91:I90D:J92ĺ:J91 TC%(J9));I9;": ";NI$(I9);:J9J913" RD$;"RUN D/P-PAGE 4"4 WD$;"RUN D/P-PAGE 5"M \D$;"RUN D/P-PAGE 6"] (37)21ĺ Z%2401:500:"TO CONTINUE, HIT RETURN";:600:: (222)222000 216,0: L" ";I;7);:A$:A$"Q"İ1505:1650 VA$""Z%100(37)1:500:110 (37)21ĺ) "Z%2401:500:1000I %I16:22010I,(106I):Is *"GO TO PAGE ";:1600:PV%:IVMVP1 /P0P6Z%100(37)1:500:810 4P1830,835,840,845,850,855,860 >: CD$;"RUN D/P-PAGE 1" H2000 MD$;"RUN D/P-PAGE PA2048230+ PAPA984:PA1144PAPA8@ I9:D$;"PR#0":r R%Z%100:C%Z%100R%:R%24Ģ(24)::(C%): (R%):(C%): XA$: :PA256(41)(40):8);"THE INSTITUTE FOR PUBLIC PAGE ";P:12);"PROGRAM ANALYSIS"::15);"DATA/PLAN"::610000:22010:I16:106I,(22010I):I:1000QQ(X)(100X.5)100h 1400:I(0):2000D$;"PR#1":(12);(28):I912000:I9:1785,63:(2041)128Ĺ2041,(2041)128 I9124:" ";:J9039:((PAJ9));:J9::PAPA128:          1600:DIV%:DI0DIDTİ500:60104|DIDTİ10000W1705:8000:SO3İ1705:9000TT0:R10:RT0:T30:K1R:RA(K,DI)MVTTTTRA(K,DI):RTRT1K:J11J20:BR0:CF0:R2R1:T4T3:JJ1R:K2RK(J):SF1:SO5800,5840,5820:SF06070::"NO RECORDS MEET SELECTION CRITERIA"::1700:1650<SRA(K2,0)RSSF0Y{RA(K2,0)RMRA(K2,0)RXSF0 L00:I91R:I9KIVRA(I9,0)L0I9:I9RI9:p700:DTD1:1305:Z%100(37)101"z"ITEM TO BE DISPLAYED ";:Z%100(37)18:500:"ITEM ?";I$:I$"Q"5530N1605:DIV%:DI0DID5560Z%100(37)27:500:"VALUE ?";I$:I$"Q"55301605:DI05574IVMV55705900:L005570RA(K,DI)IV:CF1:55301705:CF1CF0:55206TES DATA OUTSIDE SPECIFIED RANGE":Q"CHG ?";:600:A$;:A$"Q"ĺ:1705:1650fA$"Y"ĺ:5575" ID ?";I$:I$"Q"55301605:IVMV5550AIV:K0:K11J2:K2RP(K1):ARA(K2,0)KK2K1:K05560Z%100(37)7:500:5540.J:J20İ5520 OS05600&BR0:700:"ITEM"::I0D:I;4);NI$(I);:K1J2:K2RP(K):RA(K2,I)MVĺTC%(K)1);"-";:5522CLTC%(K):OPRA(K2,I):300:I0(OPMN(I)OPMX(I))BR1:"*";K::I0ĺI::CF0#BR1ĺ:"* DENO0800 X11:OS0:MO57000AMO5500,4000,6000,7500,7000K5000||TC%(1)23:TC%(2)35:8000:SO3İ1705:9000J20:BR0:CF0:J1R:K2RK(J):SF1:SO5800,5840,5820:SF05515OS0OS1:1705J2J21:RP(J2)K2:J22İ5520:J20S:"::" 0 GO TO NEW PAGE":" 1 DISPLAY ALL DATA BY RECORD":" 2 DISPLAY ALL DATA BY DATA ITEM":" 3 DISPLAY ONE DATA ITEM"" 4 MODIFY NAMES OF DATA ITEMS":" 5 SAVE DATA ON DISK"::"OPTION ";:1600:MOV%MO0MO550001705:MOZ%100(37)101:"PRINT PAGE ?";:600::500:868:A$"Y"İ200QA$"Q"1650\500:~8000:PO1:SO3İ1705:9000DI1D:PO3X1DI:95006020:DI:700:AS0ĺ:"ENTER DATA FIRST":1705:800MN(D1)MV:MX(D1)MV:"OPTION7(C$)58ıBF1:I9999::@I$:I$"Q"İ1705:1650SEI$""IVMV:V%1:J1500:BF0ĺ:"INVALID NUMBER, REENTER: ";:1600TIV(I$):V%1:(IV)32768V%IV^r1000|:1660PF1İ900PF1ıPF3İ200:@:";NI$(I9);:J9J91:I9:::~ xRA$"RECORD":AD$" DATA":DI$" ONE ITEM FOR ALL RECORDS":NO$"NO OF ITEM CONTAINING":D$"": BF0:I81:I91(I$):C$(I$,I9,1):I81510,1530,1540:I9: C$" "ı C$"-"I82: C$"."I83: (C$)4N D/P-PAGE 6" (37)21ĺ\ Z%2401:500:"TO CONTINUE, HIT RETURN";:600:A$"Q"1650b v (222)225000 216,0: DTD TC%(1)1:TC%(2)21:NI$(D1)"TIME INTERVAL"::"DATA ITEMS:"::J91:I90DT:J92ĺ:J91 TC%(J9));I9;": 106I):I3 *"GO TO PAGE ";:1600:PV%:IVMVP1Y /P0P6Z%100(37)1:500:810~ 4P1830,835,840,845,850,855,860 >: CD$;"RUN D/P-PAGE 1" HD$;"RUN D/P-PAGE 2" M5000 RD$;"RUN D/P-PAGE 4" WD$;"RUN D/P-PAGE 5" \D$;"RU2 R%Z%100:C%Z%100R%:R%24Ģ(24)::(C%):D (R%):(C%):N XA$: :PA256(41)(40):8);"THE INSTITUTE FOR PUBLIC PAGE ";P:12);"PROGRAM ANALYSIS"::15);"DATA/PLAN":: (37)21ĺ "Z%2401:500:1000 %I16:22010I,(12000:I9:1785,63:(2041)128Ĺ2041,(2041)128 I9124:" ";:J9039:((PAJ9));:J9::PAPA128:PA2048230 PAPA984:PA1144PAPA8 I9:D$;"PR#0": ,YOP:Y0CLCL1 6Y1YY10:CLCL1:310 @CL);S(OP);: 610000:22010:I16:106I,(22010I):I:1000P(X)(10X.5)10:Q(X)(100X.5)100:S(X)(10000X.5)10000 1400:I(0):5000dYOP:Y0CLCL1nY1YY10:CLCL1:110xCL);Q(OP);:3 D$;"PR#1":(12);(28):I9        205:700:D$;"CATALOG"::1200:F1F:80488kF118047^lJ0:I1F11:I$FM$(I)JI:IF1mI:J0Z%100(37)1:500:8041oFM$(F1)I$pF1:I$"C"İ700:8040q8050:1205:FF0:rLS12100|DO2NF$FM$(1):4500DTD1:"OPTION ";:1500:DOV%:DO1AS0ĺ:"ENTER DATA FIRST":1205:1650UYDO1İ1205:z^DO2Z%100(37)1:500:8020h:"NO OF FILES TO BE PROCESSED ";:1500:FV%::"ENTER FILE NAMES:"::F11Fi" ?";I$:I$"Q"İ1205:1550)jI$"C"İ1 ";NF$::"UNABLE TO READ ";NF$:1200:1550@LS51S50:8217UV300:8000:8180d@LS12000E700:"OPTIONS:"::" 1 DATA TO BE ANALYZED HAS BEEN":" ENTERED INTO MEMORY":J" 2 DATA TO BE ANALYZED IS STORED ON":" DISK":CT),RV(10,1),AV(10,10),IC%(22),DT(22),A$(50),B$(150):AS1DIX%ĺ:"TOO MANY DATA ITEMS IN ";NF$:::D$;"CLOSE ";NF$:LS0:1200:1550I0D:NI$(I),MN(I),MX(I):IJ1R:I0D:RA(J,I):I:J:D$;"CLOSE ";NF$:DTD1:1000+D$;"CLOSE1QS0 2 4 350:N$I$:400:Q1IV:400:Q2IV:: E4600D$;"OPEN ";NF$;",L40":D$;"READ ";NF$:TL$:R,D:AS145057IX%D:RX%(787426IX%)(5IX%15):RA(RX%,IX%1),MN(IX%1),MX(IX%1),NI$(IX%1),RK(RX%),VI%(10),RI%(10),AI%(10),VV(1000 8900:e` 400:DIIV:N2N21:RI%(N2)DI:400:RV(N2,0)IV:400:RV(N2,1)IV:DID1QS0İ2700qj 8900: 400:DIIV:N3N31:AI%(N3)DI:400:AV(N3,0)IV:I1AV(N3,0):400:AV(N3,I)IV:I:DID1QS0İ2700 8900:( 400:DIIV:8600:DID216,0:$PS0:400:DOIV:DO1ıR400:FIV:I1F:350:FM$(I)I$:I:FF0:m4DO2NF$FM$(1):4500z>DTD1:400:RSIV:RS2800,2400,2500,2300,2600:450:A$"Y"2200400:DIIV:N1N11:VI%(N1)DI:400:VV(N1)IV:DID1QS0İ271:(IV)32768V%IV%10001:1560r@BF0:I81:I91(I$):C$(I$,I9,1):I81610,1625,1630:I9:JC$" "ıTC$"-"I82:YC$"."I83:^(C$)47(C$)58ıhBF1:I9999:r1700|:1660(222)228009);:J9J91:I9::xRA$"RECORD":AD$"DATA":RW$"RECORDS WITH ":VI$" VALUE OF INTEREST ":NO$"NO OF ITEM CONTAINING":D$"":I$:I$"Q"İ1205:1550I$""IVMV:V%1:1600:BF0ĺ:"INVALID NUMBER, REENTER: ";:1500IV(I$):V%Z%100(37)101:"PRINT PAGE ?";:600::500:868:A$"Y"İ200a A$"Q"LS0:FS0:SS0:1550l 500:w DTD1 DTD1QS0NI$(DT)"TIME INTERVAL" TC%(1)1:TC%(2)21:"DATA ITEMS:"::J91:I90DT:J92ĺ:J91TC%(J9));I9;": ";NI$(ID$;"RUN D/P-PAGE 5", \D$;"RUN D/P-PAGE 6"< (37)21ĺ Z%2401:500:"TO CONTINUE, HIT RETURN";:600:500:I9139:" ";:I9:: (222)228180 216,0: LI$"Q"İ1205:: V1505: PF1İ900 PF1ı PF3İ200:@ :0:1000( %I16:22010I,(106I):IR *"GO TO PAGE ";:1500:PV%:IVMVP1x /P0P6Z%100(37)1:500:810 4P1830,835,840,845,850,855,860 >: CD$;"RUN D/P-PAGE 1" HD$;"RUN D/P-PAGE 2" MD$;"RUN D/P-PAGE 3" R7500 W:A$B$(CT):> R%Z%100:C%Z%100R%:R%24Ģ(24)::(C%):P (R%):(C%):Z XA$: :PA256(41)(40):8);"THE INSTITUTE FOR PUBLIC PAGE ";P:12);"PROGRAM ANALYSIS"::15);"DATA/PLAN";:LS1ĺ"*"; :: (37)21ĺ "Z%2401:50,(2041)128] I9124:" ";:J9039:((PAJ9));:J9::PAPA128:PA2048230| PAPA984:PA1144PAPA8 I9:D$;"PR#0": ,N10:N20:N30:MS0:QS0:DS2: ^CTCT1:I$B$(CT): CTCT1:I$B$(CT):IV(I$):V%IV: CTCT1<610000:22010:I16:I106,(22010I):I:1000OP(X)(10X.5)10jQ(X)(100X.5)100R(X)(1000X.5)1000 1400:I(0):DTD1:S50CT0:PS07500 D$;"PR#1":(12);(28):I912000:I9:1785,63:(2041)128Ĺ2041          ":" 1 DISPLAY TOTAL, AVERAGE, MINIMUM,":" AND MAXIMUM VALUES OF A DATA ITEM"" 2 DISPLAY FREQUENCIES OF DATA ITEM":" VALUES":" 3 DISPLAY TOTAL AND AVERAGE VALUES":" OF ONE DATA ITEM VERSUS VALUES"+ " OF A SECOND DATA ITEI0D:NI$(I),MN(I),MX(I):I]J1R:I0D:RA(J,I):I:J:D$;"CLOSE ";NF$:DTD1:1000cD$;"CLOSE ";NF$::"UNABLE TO READ ";NF$:1200:1550S51S50:8222LS1İ2000:8205T700:"TABULATION OPTIONS:"::" 0 GO TO NEW PAGED:RX%(787426IX%)(5I%15):RA(RX%,IX%1),MN(IX%1),MX(IX%1),NI$(IX%1),RK(RX%),VI%(10),RI%(10),AI%(10),VV(10),RV(10,1),AV(10,10),IC%(22),DT(22),A$(50),B$(150):AS1DIX%ĺ:"TOO MANY DATA ITEMS IN ";NF$:::D$;"CLOSE ";NF$:LS0:1200:1550B$(CT):IV(I$):V%IV:/CTCT1:I$B$(CT):A42000:DIIV:k2000:IMIV:2000:ISIV:2000:INIV:2000:D2IV:DID2:` 2050:N$I$:2000:Q1IV:2000:Q2IV:4600D$;"OPEN ";NF$;",L40":D$;"READ ";NF$:TL$:R,D:AS14505IX%,I2)SW1:I2AV(K1,0))I2:SW0K1N33&K1:NlBS0:LS1İ2100:1925Zq1305:v"DATA ITEM TO BE TABULATED ";:1500:DIV%:DI0DIDTZ%100(37)1:500:1910D1DI:DID1QS0İ23000:M1Q1:M2Q2:NI$(D1)N$:BS1CTCT1:I$0:K1N1K1:SW0ı'N201790WK11N2:I1RI%(K1):RA(J,I1)MVSW0:K1N2RA(J,I1)RV(K1,0)RA(J,I1)RV(K1,1)SW0:K1N2K1:SW0ıN30ıK11N3:SW0:I1AI%(K1):RA(J,K1)MVK1N3:1830I21AV(K1,0):RA(J,I1)AV(K1560D@BF0:I81:I91(I$):C$(I$,I9,1):I81610,1625,1630:I9:RJC$" "ıeTC$"-"I82:xYC$"."I83:^(C$)47(C$)58ıhBF1:I9999:SW1:N101750K11N1:I1VI%(K1):RA(J,I1)MVSW0:K1N1RA(J,I1)VV(K1)SW":RW$"RECORDS WITH ":VI$" VALUE OF INTEREST ":NO$"NO OF ITEM CONTAINING":D$"":pI$:I$"Q"İ1205:1550I$""IVMV:V%1:1600:BF0ĺ:"INVALID NUMBER, REENTER: ";:1500IV(I$):V%1:(IV)32768V%IV1000:1868:A$"Y"İ2003A$"Q"LS0:FS0:SS0:1550>500:IDTD1rDTD1QS0NI$(DT)"TIME INTERVAL"TC%(1)1:TC%(2)21:"DATA ITEMS:"::J91:I90DT:J92ĺ:J91TC%(J9));I9;": ";NI$(I9);:J9J91:I9::TxRA$"RECORD":AD$"DATA (37)21ĺ\ Z%2401:500:"TO CONTINUE, HIT RETURN";:600:500:I9139:" ";:I9::p (222)228180} 216,0: LI$"Q"İ1205:: V1505: PF1İ900 PF1ı PF3İ200::Z%100(37)101:"PRINT PAGE ?";:600::500:"GO TO PAGE ";:1500:PV%:IVMVP1J /P0P6Z%100(37)1:500:810o 4P1830,835,840,845,850,855,860w >: CD$;"RUN D/P-PAGE 1" HD$;"RUN D/P-PAGE 2" MD$;"RUN D/P-PAGE 3" R8180 WD$;"RUN D/P-PAGE 5" \D$;"RUN D/P-PAGE 6"Ģ(24)::(C%):" (R%):(C%):, XA$: :PA256(41)(40):8);"THE INSTITUTE FOR PUBLIC PAGE ";P:12);"PROGRAM ANALYSIS"::15);"DATA/PLAN";:LS1ĺ"*"; :: (37)21ĺ "Z%2401:500:1000 %I16:22010I,(106I):I$ *Y0CLCL1) 6Y1YY10:CLCL1:310= @CL);Q(OP);: J1R:T1RA(J,M1):T2RA(J,M2):T1MVT2MVRA(J,D1)MV:440 H1%T1100:H2%T2100:XT2T140(H2%H1%) X0XX1440:420 RA(J,D1)X J: R%Z%100:C%Z%100R%:R%24P);:X D$;"PR#1":(12);(28):I912000:I9:1785,63:(2041)128Ĺ2041,(2041)128 I9124:" ";:J9039:((PAJ9));:J9::PAPA128:PA2048230 PAPA984:PA1144PAPA8 I9:D$;"PR#0": ,YOP:Y0CLCL1:Y(Y) 15610000:22010:I16:I106,(22010I):I:1000OP(X)(10X.5)10jQ(X)(100X.5)100R(X)(1000X.5)1000 1400:I(0):DTD1:8180dYOP:Y0CLCL1iY0CLCL1:Y(Y)nY1YY10:CLCL1:110 xCL);P(O          ENTER FILE NAMES:"::F11F:i" ";:VS1İ350:8043VjI$:I$"Q"İ1205:1550kI$"C"İ1205:700:D$;"CATALOG"::1200:F1F:8048lF118047mJ0:I1F11:I$FM$(I)JI:IF1nI:J0İ490:8041oFM$(F1)I$:SS1İ400pF1:I" 1";DA$;"HAS BEEN":" ENTERED INTO MEMORY":`J" 2";DA$;"IS STORED ON":" DISK":T"OPTION ";:1500:DOV%:DO1DO2İ490:8020^I$(DO):400:DO1İ1205:c:"NO OF FILES TO BE PROCESSED ";:1500:FV%:SS1I$(F):400h:"REPEAT TABULATIONS WITH DIFFERENT":" ";RS$:y[LS1ĺ" 3 REVIEW";RT$:" PROCEDURE"::" 4 TABULATE DATA":`"OPTION ";:1500:ROV%:RO0RO22LSZ%100(37)1:500:7520j1205:RO11550,2000,3000,3500,25003@700:"OPTIONS:"::0:A$:NTNT1:B$(NT)(48):A$"Y"İ1205:B$(NT)(54):3010P 1205:LS1:7505p VS1:VC0:8000:8180:7505LFS0:SS0:CT0QVS0:7000V"OPTIONS:"::" 0 GO TO NEW PAGE"::" 1 REPEAT TABULATIONS FOR SEVERAL":" DATA FILES"::" 2 :B$(NT)A$(2):I1F:B$(NTI)A$(I2):I:T1F3:NTNTFP NTNT1:B$(NT)(54) T2CT:8050:IT21CT:NTNT1:B$(NT)A$(I):I:NTNT1:B$(NT)(52):CTT2:IT1T2:NTNT1:B$(NT)A$(I):I:; :"DO YOU WANT TO SPECIFY ANOTHER":"SET OF";RS$;"?";:60T3)FM$(I):NTNT3:NTNT1:B$(NT)(54)sJ1CT:NTNT1:B$(NT)A$(J):J:NTNT1:B$(NT)(53):IFB$(NT)(48)I:LS1:7505 LS01550 RS$"":AV$"":RT$"":1700:8507 SS1:FS0:CT0:8000:8180:B$(1)A$(1):NT1:T12:B$(1)"2"NTNT1lBS0:1305:Xv"DATA ITEM TO BE TABULATED ";:1500:DIV%:DI0DIDTİ490:1910I$(DI):400:D1DI:DID1QS0İ23000:M1Q1:M2Q2:NI$(D1)N$:BS1(FS1:SS0:CT0:700:8035:8050:8180:NT0:I1F:B$(NT1)(50):B$(NT2)(49):B$(NIV(I$):V%1:(IV)32768V%IV(31000?:1560@BF0:I81:I91(I$):C$(I$,I9,1):I81610,1625,1630:I9:JC$" "ıTC$"-"I82:YC$"."I83:^(C$)47(C$)58ıhBF1:I9999:I16:22010I,(106I):I:ERNATIVE VALUES":RT$" REPETITIVE TABULATION":DA$" DATA TO BE ANALYZED ":AD$" A DATA ITEM"TC$"RUN D/P-PAGE ":D$"":VS1İ300:I$:I$"Q"İ1205:1550I$""IVMV:V%1:1600:BF0ĺ:"INVALID NUMBER, REENTER: ";:1500"DT)"TIME INTERVAL"V TC%(1)1:TC%(2)21:"DATA ITEMS:"::J91:I90DT:J92ĺ:J91 TC%(J9));I9;": ";NI$(I9);:J9J91:I9::]xRW$"RECORDS WITH ":VI$" VALUE OF INTEREST ":NO$"NO OF ITEM CONTAINING":RS$" RECORD SELECTION CRITERIA ":AV$" ALT0: LVS1İ300:. QI$:I$"Q"İ1205::: V1505:K PF1İ900:_ PF1VS1İ900k PF1ı| PF3İ200: :Z%100(37)101:"PRINT PAGE ?";:600::500:868:A$"Y"İ200 A$"Q"1550 500: DTD1 DTD1QS0NI$(6İ490:8100 4P1830,835,840,845,850,855,8608 >:E CTC$;"1"R HTC$;"2"_ MTC$;"3"l RTC$;"4"y WTC$;"5" \TC$;"6" (37)21ĺ Z%2401:500:"TO CONTINUE, HIT RETURN";:600:A$"Q"VS0:1550 : (222)22800 216,(C%): XA$: :PA256(41)(40):8);"THE INSTITUTE FOR PUBLIC PAGE ";P:12);"PROGRAM ANALYSIS"::15);"DATA/PLAN":: RS$"":AV$"":RT$"":(37)21ĺ "Z%2401:500:1000 %1700 *"GO TO PAGE ";:1500:PV%:IVMVP1 /P0PPA128:PA20482302 PAPA984:PA1144PAPA8G I9:D$;"PR#0":a ,350:IV(I$):V%IV: ^VCVC1:I$B$(VC):":";I$: A$I$ VS1ı CTCT1:A$(CT)A$: Z%100(37)1 R%Z%100:C%Z%100R%:R%24Ģ(24)::(C%): (R%):610000:22010:I16:I106,(22010I):I:1000QQ(X)(100X.5)100o 1400:I(0):DTD1:7500D$;"PR#1":(12);(28):I912000:I9:1785,63:(2041)128Ĺ2041,(2041)128 I9124:" ";:J9039:((PAJ9));:J9::PA                " 2 PRINT SPECIFIED PAGES ONLY":" 3 PRINT ALL OUTPUT":| "OPTION ";:300:PFV%:PF1PF3Z%100(37)1:500:2010 :1700:800:" 3 PRINT ALL OUTPUT": "OPTION ";:300:PFV%:PF1PF3Z%100(37)1:500:2010 :1700:800LAGE 3" RD$;"RUN D/P-PAGE 4") W2000B \D$;"RUN D/P-PAGE 6"O xD$"":[ PF1ıl PF3İ200: Z%100(37)101:"PRINT PAGE ?";:600::500:868:A$"Y"İ200 A$"Q"150 500:< 700:"PRINT OPTIONS:"::" 1 DISPLAY ONLY":L$"":100? %I16:22010I,(106I):I:IS0IS1:P1:835h *"GO TO PAGE ";:300:PV%:IVMVP1 /P0P6Z%100(37)1:500:810 4P1830,835,840,845,850,855,860 >: CD$;"RUN D/P-PAGE 1" HD$;"RUN D/P-PAGE 2" MD$;"RUN D/P-P(C$)58ı BF1:I9999:O R%Z%100:C%Z%100R%:R%24Ģ(24)::(C%):a (R%):(C%):k XA$: :PA256(41)(40):8);"THE INSTITUTE FOR PUBLIC PAGE ";P:12);"PROGRAM ANALYSIS"::15);"DATA/PLAN":: (37)21ĺ "Z%2401:500:I$""IVMV:V%1:I 6400:BF0ĺ:"INVALID NUMBER, REENTER ";:300o @IV(I$):V%1:(IV)32768V%IVu J ^:350 BF0:I81:I91(I$):C$(I$,I9,1):I8410,430,440:I9: C$" "ı C$"-"I82: C$"."I83: (C$)47(4);"BLOAD SD.OBJ"N10000:22010:I16:106I,(22010I):I:100}WT0:WB23:FLAG1:6,FLAG:7,WT:8,WB:9,1 1400:2000d(222)22800n216,0::150D$;"PR#1"768D$;"PR#0":,I$:I$"Q"İ1700:350 1     4J1J34:J1IJ1I1>9K1J1:KJ1J1:(K)32K1K:KJ>K:TC%(35JK1)2:"* ";TC%3);:LJK1:((L));:L:1100:JK11:JI2100H1000:1200::1700:8001024L11024I3J1L1:(L$,J,1)" "LJ:JL1`J:JLL1:(L$,J,1)" "(I1)322060zI,((L$,J,1)):II1 J:I10232090I,32:II1::"MORE TEXT ?";:600:A$::A$"Q"150 A$"Y"2010*700:::1200:NS3:1000:J7689: L39);"*":. I9139:"*";:I9::; xD$"":G PF1ıX PF3İ200: Z%100(37)101:"PRINT PAGE ?";:600::500:868:A$"Y"İ200 A$"Q"150 500: I768:700 "ENTER TEXT:"::L$:L$"Q"150L1(L$):IL15,850,855,860 >:. CD$;"RUN D/P-PAGE 1"G HD$;"RUN D/P-PAGE 2"` MD$;"RUN D/P-PAGE 3"y RD$;"RUN D/P-PAGE 4" WD$;"RUN D/P-PAGE 5" \2000 (37)21ĺ Z%2401:500:"TO CONTINUE, HIT RETURN";:600:: I91NS:"*";39);"*":ITITUTE FOR PUBLIC PAGE ";P:12);"PROGRAM ANALYSIS"::15);"DATA/PLAN"::\ (37)21ĺy "Z%2401:500:L$"":100 %I16:22010I,(106I):I *"GO TO PAGE ";:300:PV%:IVMVP1 /P0P6Z%100(37)1:500:810 4P1830,835,840,841(I$):C$(I$,I9,1):I8410,430,440:I9:: C$" "ıM C$"-"I82:` C$"."I83:y (C$)47(C$)58ı BF1:I9999: R%Z%100:C%Z%100R%:R%24Ģ(24)::(C%): (R%):(C%): XA$:L :PA256(41)(40):8);"THE INSJ9::PAPA128:PA2048230: PAPA984:PA1144PAPA8O I9:D$;"PR#0":j ,I$:I$"Q"İ1700:350 1I$""IVMV:V%1: 6400:BF0ĺ:"INVALID NUMBER, REENTER ";:300 @IV(I$):V%1:(IV)32768V%IV J ^:350, BF0:I81:I9510000:22010:I16:106I,(22010I):I:100L 1400:I(0):2000_d(222)22800ln216,0:w:150D$;"PR#1":(12);(28):I912000:I9:1785,63:(2041)128Ĺ2041,(2041)128 I9124:"