' +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*`EGINS.":"(IF 1976-77, TYPE 76)";:868:20900:BYR(ZN$):BYR99890gYR1900BYR(BYR50)100:830oY0{X219X:12:50Y1(Y)ZBYY1:10000SC%1ĴA%320,990A%1080,990U20:1:958:"TYPE THE LIST NUMBER T;(LANES$,41,75)" STEP";(LANES$,41,75)EP";(LANES$,41,75)(S$,41,75)Du$u20500::216,0:30125$$u7$u216,0:30000A$u1175T$@D$"OPEN"FI$:h$JD$"WRITE"FI$:{$TD$"READ"FI$:$^D$"CLOSE"FI$:$PòUSER DATA$`MECC SUPPORTED DATA$01:HD$:(LANES$,1,40)%:1:A33:(HE$,1,10(LANE6)7):" STEP"#uER11ĺ"I'M SORRY, BUT THAT'S NOT A VALID":"FILE NAME. TRY SOMETHING ELSE.":30115#uER13ĺ"I'M SORRY, BUT YOU CAN'T USE THAT NAME.":30115#u"SOMETHING UNUSUAL IS HAPPENING.":"ERROR #"ER" AT "LN".":30115#u20500#u16:958:30000$"buER930075"du30054&"eu400301"fu216,0"gu"THIS DISK IS FULL. PLEASE INSERT":"ANOTHER DISK TO SAVE THE FILE ON.":LN4000030100"lu20500:30000"quFG1:1471"{uER10ĺ"I'M SORRY, THIS FILE IS LOCKED":"AND YOU CAN'T USE IT.":30115X6:958:ER4ĺ"PLEASE REMOVE THE WRITE-PROTECT":"STICKER FROM THE DISK.":30100b!NuER530045!SuD$"DELETE"FI$:"'"FI$"' ISN'T ON THIS DISKETTE.":30115!]uER8ĺ"PLEASE MAKE SURE THE DISK IS IN THE":"DRIVE AND THE DRIVE DOOR IS CLOSED.":30100G121040 R4100* 0R(1023)123ė:0 5RJ :RD$"BLOAD CHAIN,A520"f DR520"SALARY PROJECTION"l /u 0u216,0:ER(222):D$ 5u :u:LN(218)256(219) ?uZZ$:ZZ$"-ERRORS-"30015 DuZZ09:ZX:753ZZ,ZX::753 GuER2551175Q!Iu1Q868:"? ";ZN$,QZN$""İ20960:20915HQ(ZN$)1İ20960:20915VQZL(ZN$)nQZL7İ20960:20915{QVA1ZLQZX((ZN$,VA,1))QZX46ZX57ZX47İ20960:20915QVAQZN(ZN$)QZV1:36,ZH:R END OF PROGRAM R:FTED DOLLARS-JQZD(ZD100.5)100:ZD$(ZD)>TQZE1(ZD$)Y^Q(ZD$,ZE,1)"."20860_hQxrQZD$ZD$".00":20880|QZE2(ZD$)20880QZD$ZD$"0"Q(ZD$,1,1)"."ī20890QZD$"0"ZD$QQNUMERIC VALIDATORQZH(36):ZV(37)P SPACE-BAR ROUTINE<PZH(36):ZV(37):ZZ1200:ZZQP24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";(PZC(16384):ZC141ZC160205202P16368,0:7:" ";:21::ZV1:ZH1::: @QFORMAT:10:"THERE IS NO DATA FOR THE BASE YEAR."::"READ THIS DATA FROM THE DISKETTE OR"::"ENTER IT."r20500::10:"DO YOU WISH TO SAVE THE DATA WHICH IS"::"ALREADY IN MEMORY? ";AN$:AN$(AN$,1):AN$"Y"AN$"N"4100AN$"Y"İ2590"l V0STP&v (M1$(V))703220? M1$(V)M1$(V)SPACE$I 3190P VV h STEP STRINGv M1$(V)"" L1LANE ZDS(L)* 20800/ LANES$""4 (ZD$)73410> ZD$SPACE$ZD$H 3380R M1$(V)M1$(V)ZD$\ Lf e 40030! VPSTP& 0 '< FG17> LL$(LANE)DN VOSTPbP ::1:14:"M A T R I X"qR VV1LANES 10VV:1:"STEP "V", LANE ";:VV10ĺ" ";U VV" : ";:868:20900:S(VV)ZNX VV] 3340^ b Vg :10:"WAIT - COMPUTING 216,0  FI$NAME$( 300003 40000> 40020I V12V INF$(V)] V STP$(INF$(1),1,5):STP(STP$) LANE$(INF$(1),6,10):LANE(LANE$) V0STP M1$(V) V VOSTP S1$(V) V LANES$INF$(2)OSTPT C$;S1$(V);C$^ V*h 400303j FG2>m VPSTPDr T| READ FILEd~ FG1İ4100l : 6:"SAMPLE DATA: SAMPLE NO. 1" 12:"WHAT IS THE FILE CALLED? ";:868:"";NAME$:NA$""2950 NA$"A"NA$"Z"2950 2960:FG1EI 5:"WHAT DO YOU WANT TO"::"NAME THE FILE? ";:958:"";NA$:958c NA$"A"NA$"Z"2790 10:1:"WRITING TO FILE." FI$NAME$:30000 40000 40010 V12 C$;INF$(V);C$" V, V0STP6 C$;M1$(V);C$@ VJ VP2(7)(P1(6)XY(1))-'P3(7)(P2(6)XY(1))F'P4(7)(P3(6)XY(1))_'P5(7)(P4(6)XY(1))n'PROJ GR 3' SR(1)Y2(8)Y1(7):SR(2)Y3(8)Y2(7):SR(3)Y4(8)Y3(7):SR(4)Y5(8)Y4(7):40' P1(8)(Y5(7)XY(1))' P2(8)(P1(7)XY(1)) ($ P3(8)(P2(5):40&P1(6)(Y5(5)XY(1))8&P2(6)(P1(5)XY(1))Q&P3(6)(P2(5)XY(1))j&P4(6)(P3(5)XY(1))&P5(6)(P4(5)XY(1))&PROJ GR 2&SR(1)Y2(7)Y1(6):SR(2)Y3(7)Y2(6):SR(3)Y4(7)Y3(6):SR(4)Y5(7)Y4(6):40&P1(7)(Y5(6)XY(1))'4):SR(3)Y4(5)Y3(4):SR(4)Y5(5)Y4(4):40C%>P1(5)(Y5(4)XY(1))\%HP2(5)(P1(4)XY(1))u%RP3(5)(P2(4)XY(1))%\P4(5)(P3(4)XY(1))%fP5(5)(P4(4)XY(1))%pPROJ GR 1&zSR(1)Y2(6)Y1(5):SR(2)Y3(6)Y2(5):SR(3)Y4(6)Y3(5):SR(4)Y5(6)Y4())$ PROJ AGE 4c$SR(1)Y2(4)Y1(3):SR(2)Y3(4)Y2(3):SR(3)Y4(4)Y3(3):SR(4)Y5(4)Y4(3):40|$P1(4)(Y5(3)XY(1))$ P2(4)(P1(3)XY(1))$P3(4)(P2(3)XY(1))$ P4(4)(P3(3)XY(1))$* PROJ GR KIND*%4SR(1)Y2(5)Y1(4):SR(2)Y3(5)Y2((Y5(1)XY(1))%# PROJ YEAR 2-AGE 2>#P2(2)(P1(1)XY(1))O# PROJ AGE 3#SR(1)Y2(3)Y1(2):SR(2)Y3(3)Y2(2):SR(3)Y4(3)Y3(2):SR(4)Y5(3)Y4(2):40#P1(3)(Y5(2)XY(1))# PROJ YEAR 2-AGE 3#P2(3)(P1(2)XY(1))$P3(3)(P2(2)XY(1"X PROJ AGE 1*"b:::16:"WORKING":z"lSR(1)Y2(1)Y1(0):SR(2)Y3(1)Y2(0):SR(3)Y4(1)Y3(0):SR(4)Y5(1)Y4(0):40"vP1(1)(Y5(0)XY(1))" PROJ AGE 2"SR(1)Y2(2)Y1(1):SR(2)Y3(2)Y2(1):SR(3)Y4(2)Y3(1):SR(4)Y5(2)Y4(1):40 #P1(2)"TIME."y!!I14:11I:" "I". ";:868:50::958:XY(1I)ZB:ZB1II1:::"PLEASE ENTER A NUMBER GREATER THAN 1."!&1:!+!0:4:"WEIGHTING FACTORS: ";:I25:XY(I);:I5ĺ", ";!::"."!D1880!NXY(2)1:XY(3)2:XY(4)3:XY(5)4S NO DATA TO REPORT ON.":20500:210 :4:"CURRENT WEIGHTING FACTORS: 1, 2, 3, 4."::"WOULD YOU LIKE DIFFERENT":"WEIGHTING FACTORS? ";:868:"";C$:C$(C$,1) C$"N"1870 C$"Y"1800 10!"ENTER NEW WEIGHTING FACTORS, ONE AT A":"DATA (E.G. GR 12 LIST NUMBER = 18)":50:B%(ZB):ZB18ZB1171020:1:958:"ENTER THE CORRECT ENROLLMENT OR CENSUS":"DATA":50:C%(ZB)Y5(B%1)C%Y0X219X:13:868:Y5(Y)YY11680$ DA0Ģ10:"THERE',X:13:868:Y4(Y)6YY1%@/J1500FT INPUT YEAR FIVEW^YRYR1:830_hY0krX219|X:12:50:Y5(Y)ZBYY1:10000SC%1ĴA%320,1710A%210,1710C20:1:958:"TYPE THE LIST NUMBER THAT HAS INCORRECT":620,153020:1:958:"TYPE THE LIST NUMBER THAT HAS INCORRECT":"DATA (E.G. GR 12 LIST NUMBER = 18)":50:B%(ZB):ZB18ZB1153020:1:958::"ENTER THE CORRECT ENROLLMENT OR CENSUS":"DATA":50:C%(ZB)Y4(B%1)C%Y0"X219CENSUS"::"DATA":50:C%(ZB)-ZY3(B%1)C%5dY0AnX219YxX:13:868:Y3(Y)cYY1is1320 INPUT YEAR FOURYRYR1:830Y0X219X:12:50:Y4(Y)ZBYY1:10000SC%1ĴA%320,1530A%150:Y3(Y)ZBYY1:"(10000:2SC%1ĴA%320,1350L<A%1440,1350F20:1:958:"TYPE THE LIST NUMBER THAT HAS INCORRECT":"DATA (E.G. GR 12 LIST NUMBER = 12)":50:B%(ZB):ZB18ZB11350P20:1:958:"ENTER THE CORRECT ENROLLMENT OR ZB18ZB11170`20:1:958:"ENTER THE CORRECT ENROLLMENT OR CENSUS":"DATA":50:C%(ZB)pY2(B%1)C%xY0X219X:13:868:Y2(Y)YY11140 INPUT YEAR THREEYRYR1:830Y0 X219 X:12: INPUT YEAR TWO #BYRYR1:830+LY07VX219O`X:12:50:Y2(Y)ZB[jYY1:ft10000~~SC%1ĴA%320,1170A%1260,117020:1:958:"TYPE THE LIST NUMBER THAT HAS INCORRECT":"DATA (E.G. GR 12 LIST NUMBER = 18)":50:B%(ZB):HAT HAS INCORRECT":"DATA (E.G. GR 12 LIST NUMBER = 18)":50:B%(ZB):ZB18ZB199020:1:958:"ENTER THE CORRECT ENROLLMENT OR CENSUS"::"DATA":50:C%(ZB)Y1(B%1)C%Y0X219X:13:868:Y1(Y)YY1$.96086,28:Y4(6);:36,34:Y5(6);:36,40:"*";v7 36,42:P1(6);:36,48:P2(6);:36,54:P3(6);:36,60:P4(6);:36,66:P5(6)7 :"GR 2 * ";Y1(7);:36,16:Y2(7);:36,22:Y3(7);:36,28:Y4(7);:36,34:Y5(7);:36,40:"*";(8 36,42:P1(7);:36,48:P2(7);:36 6 10100m6 "KIND * ";Y1(5);:36,16:Y2(5);:36,22:Y3(5);:36,28:Y4(5);:36,34:Y5(5);:36,40:"*";6 36,42:P1(5);:36,48:P2(5);:36,54:P3(5);:36,60:P4(5);:36,66:P5(5)6 10100(7 "GR 1 * ";Y1(6);:36,16:Y2(6);:36,22:Y3(6);:3'5l TT(2)Y2(0)Y2(1)Y2(2)Y2(3)Y2(4)O5v TT(3)Y3(0)Y3(1)Y3(2)Y3(3)Y3(4)w5 TT(4)Y4(0)Y4(1)Y4(2)Y4(3)Y4(4)5 TT(5)Y5(0)Y5(1)Y5(2)Y5(3)Y5(4)6 "0 - 4 * ";TT(1);:36,16:TT(2);:36,22:TT(3);:36,28:TT(4);:36,34:TT(5);:36,40:"*"16:Y2(3);:36,22:Y3(3);:36,28:Y4(3);:36,34:Y5(3);:36,40:"*"4N :"AGE 4 * ";Y1(4);:36,16:Y2(4);:36,22:Y3(4);:36,28:Y4(4);:36,34:Y5(4);:36,40:"*"4X "========================================="4b TT(1)Y1(0)Y1(1)Y1(2)Y1(3)Y1(4)36,34:Y5(0);:36,40:"*"}30 :"AGE 1 * ";Y1(1);:36,16:Y2(1);:36,22:Y3(1);:36,28:Y4(1);:36,34:Y5(1);:36,40:"*"3: :"AGE 2 * ";Y1(2);:36,16:Y2(2);:36,22:Y3(2);:36,28:Y4(2);:36,34:Y5(2);:36,40:"*"C4D :"AGE 3 * ";Y1(3);:36,BYR2;" ";BYR2;"/";BYR3;" ";BYR3;"/";BYR4;" ";BYR4;"/";BYR5;" * ";2 BYR5;"/";BYR6;" ";BYR6;"/";BYR7;" ";BYR7;"/";BYR8;" ";BYR8;"/";BYR9;" ";BYR9;"/";BYR102 101003& "AGE 0 * ";Y1(0);:36,16:Y2(0);:36,22:Y3(0);:36,28:Y4(0);:T IS THE DATE TODAY?":/1 "(MM/DD/YY) ?";YW$:1 20200Q1 A((71(T$))2)1W1 h1 "DATE ";YW$n1 1 36,A:T$::1 "AGE OR * PAST CENSUS + ENROLLMENT DATA * FUTURE ENROLLMENT PROJECTIONS"H2 :"GRADE * ";BYR;"/";BYR1;" ";BYR1;"/";1(17)(Y5(16)XY(1))00 P2(17)(P1(16)XY(1))K0 P3(17)(P2(16)XY(1))f0 P4(17)(P3(16)XY(1))0 P5(17)(P4(16)XY(1))0 :50 :"WHAT TITLE WOULD YOU LIKE TO GIVE THE":"REPORT (UP TO 70 CHARACTERS)?"0 :9580 T$0 :1 "WHAY4(15):40&/@ P1(16)(Y5(15)XY(1))A/J P2(16)(P1(15)XY(1))\/T P3(16)(P2(15)XY(1))w/^ P4(16)(P3(15)XY(1))/h P5(16)(P4(15)XY(1))/r PROJ GR 12/| SR(1)Y2(17)Y1(16):SR(2)Y3(17)Y2(16):SR(3)Y4(17)Y3(16):SR(4)Y5(17)Y4(16):400 P(14):SR(4)Y5(15)Y4(14):407. P1(15)(Y5(14)XY(1))R. P2(15)(P1(14)XY(1))m. P3(15)(P2(14)XY(1)). P4(15)(P3(14)XY(1))." P5(15)(P4(14)XY(1))., PROJ GR 11 /6 SR(1)Y2(16)Y1(15):SR(2)Y3(16)Y2(15):SR(3)Y4(16)Y3(15):SR(4)Y5(16)):SR(3)Y4(14)Y3(13):SR(4)Y5(14)Y4(13):40H- P1(14)(Y5(13)XY(1))c- P2(14)(P1(13)XY(1))~- P3(14)(P2(13)XY(1))- P4(14)(P3(13)XY(1))- P5(14)(P4(13)XY(1))- PROJ GR 10. SR(1)Y2(15)Y1(14):SR(2)Y3(15)Y2(14):SR(3)Y4(15)Y3SR(2)Y3(13)Y2(12):SR(3)Y4(13)Y3(12):SR(4)Y5(13)Y4(12):40Z,n P1(13)(Y5(12)XY(1))u,x P2(13)(P1(12)XY(1)), P3(13)(P2(12)XY(1)), P4(13)(P3(12)XY(1)), P5(13)(P4(12)XY(1)), PROJ GR 9-- SR(1)Y2(14)Y1(13):SR(2)Y3(14)Y2(13(1)Y2(12)Y1(11):SR(2)Y3(12)Y2(11):SR(3)Y4(12)Y3(11):SR(4)Y5(12)Y4(11):40l+( P1(12)(Y5(11)XY(1))+2 P2(12)(P1(11)XY(1))+< P3(12)(P2(11)XY(1))+F P4(12)(P3(11)XY(1))+P P5(12)(P4(11)XY(1))+Z PROJ GR 8?,d SR(1)Y2(13)Y1(12): PROJ GR 6c* SR(1)Y2(11)Y1(10):SR(2)Y3(11)Y2(10):SR(3)Y4(11)Y3(10):SR(4)Y5(11)Y4(10):40~* P1(11)(Y5(10)XY(1))* P2(11)(P1(10)XY(1))* P3(11)(P2(10)XY(1))* P4(11)(P3(10)XY(1))* P5(11)(P4(10)XY(1))* PROJ GR 7Q+ SR)~ P5(9)(P4(8)XY(1))&) PROJ GR 5z) SR(1)Y2(10)Y1(9):SR(2)Y3(10)Y2(9):SR(3)Y4(10)Y3(9):SR(4)Y5(10)Y4(9):40) P1(10)(Y5(9)XY(1))) P2(10)(P1(9)XY(1))) P3(10)(P2(9)XY(1))) P4(10)(P3(9)XY(1))) P5(10)(P4(9)XY(1)) *7)XY(1))"(. P4(8)(P3(7)XY(1));(8 P5(8)(P4(7)XY(1))J(B PROJ GR 4(L SR(1)Y2(9)Y1(8):SR(2)Y3(9)Y2(8):SR(3)Y4(9)Y3(8):SR(4)Y5(9)Y4(8):40(V P1(9)(Y5(8)XY(1))(` P2(9)(P1(8)XY(1))(j P3(9)(P2(8)XY(1))(t P4(9)(P3(8)XY(1)));:36,60:P4(17);:36,66:P5(17),G10200LGTT(46)Y1(15)Y1(16)Y1(17)lGTT(47)Y2(15)Y2(16)Y2(17)GTT(48)Y3(15)Y3(16)Y3(17)GTT(49)Y4(15)Y4(16)Y4(17)GTT(50)Y5(15)Y5(16)Y5(17)GTT(51)P1(15)P1(16)P1(17) H"TT(52)P2(15)P(16);:36,40:"*";eF36,42:P1(16);:36,48:P2(16);:36,54:P3(16);:36,60:P4(16);:36,66:P5(16)F:"GR 12 * ";Y1(17);:36,16:Y2(17);:36,22:Y3(17);:36,28:Y4(17);:36,34:Y5(17);:36,40:"*";!G36,42:P1(17);:36,48:P2(17);:36,54:P3(17";Y1(15);:36,16:Y2(15);:36,22:Y3(15);:36,28:Y4(15);:36,34:Y5(15);:36,40:"*";E36,42:P1(15);:36,48:P2(15);:36,54:P3(15);:36,60:P4(15);:36,66:P5(15)F:"GR 11 * ";Y1(16);:36,16:Y2(16);:36,22:Y3(16);:36,28:Y4(16);:36,34:Y5:36,60:P4(14);:36,66:P5(14)*Dx10200D"7 - 9 * ";TT(36);:36,16:TT(37);:36,22:TT(38);:36,28:TT(39);:36,34:TT(40);:36,40:"*";D36,42:TT(41);:36,48:TT(42);:36,54:TT(43);:36,60:TT(44);:36,66:TT(45)D10100VE"GR 10 * 4(13)Y4(14),C2TT(40)Y5(12)Y5(13)Y5(14)LC<TT(41)P1(12)P1(13)P1(14)lCFTT(42)P2(12)P2(13)P2(14)CPTT(43)P3(12)P3(13)P3(14)CZTT(44)P4(12)P4(13)P4(14)CdTT(45)P5(12)P5(13)P5(14)Dn36,42:P1(14);:36,48:P2(14);:36,54:P3(14);13);:36,60:P4(13);:36,66:P5(13)B:"GR 9 * ";Y1(14);:36,16:Y2(14);:36,22:Y3(14);:36,28:Y4(14);:36,34:Y5(14);:36,40:"*";B TT(36)Y1(12)Y1(13)Y1(14)BTT(37)Y2(12)Y2(13)Y2(14)BTT(38)Y3(12)Y3(13)Y3(14) C(TT(39)Y4(12)YY5(12);:36,40:"*";gA36,42:P1(12);:36,48:P2(12);:36,54:P3(12);:36,60:P4(12);:36,66:P5(12)A:"GR 8 * ";Y1(13);:36,16:Y2(13);:36,22:Y3(13);:36,28:Y4(13);:36,34:Y5(13);:36,40:"*";#B36,42:P1(13);:36,48:P2(13);:36,54:P3();:36,16:TT(27);:36,22:TT(28);:36,28:TT(29);:36,34:TT(30);:36,40:"*";@36,42:TT(31);:36,48:TT(32);:36,54:TT(33);:36,60:TT(34);:36,66:TT(35)@10100A"GR 7 * ";Y1(12);:36,16:Y2(12);:36,22:Y3(12);:36,28:Y4(12);:36,34:(6)TT(16)"?`TT(27)TT(7)TT(17):?jTT(28)TT(8)TT(18)R?tTT(29)TT(9)TT(19)k?~TT(30)TT(10)TT(20)?TT(31)TT(11)TT(21)?TT(32)TT(12)TT(22)?TT(33)TT(13)TT(23)?TT(34)TT(14)TT(24)?TT(35)TT(15)TT(25)O@"1 - 6 * ";TT(26P4(10)P4(11)->.TT(25)P5(9)P5(10)P5(11)>8"4 - 6 * ";TT(16);:36,16:TT(17);:36,22:TT(18);:36,28:TT(19);:36,34:TT(20);:36,40:"*";>B36,42:TT(21);:36,48:TT(22);:36,54:TT(23);:36,60:TT(24);:36,66:TT(25)>L10200 ?VTT(26)TT6)Y1(9)Y1(10)Y1(11)5= TT(17)Y2(9)Y2(10)Y2(11)T= TT(18)Y3(9)Y3(10)Y3(11)s= TT(19)Y4(9)Y4(10)Y4(11)= TT(20)Y5(9)Y5(10)Y5(11)=TT(21)P1(9)P1(10)P1(11)=TT(22)P2(9)P2(10)P2(11)=TT(23)P3(9)P3(10)P3(11)>$TT(24)P4(9);:36,54:P3(10);:36,60:P4(10);:36,66:P5(10)< :"GR 6 * ";Y1(11);:36,16:Y2(11);:36,22:Y3(11);:36,28:Y4(11);:36,34:Y5(11);:36,40:"*";< 36,42:P1(11);:36,48:P2(11);:36,54:P3(11);:36,60:P4(11);:36,66:P5(11)< 10200= TT(128:Y4(9);:36,34:Y5(9);:36,40:"*";t; 36,42:P1(9);:36,48:P2(9);:36,54:P3(9);:36,60:P4(9);:36,66:P5(9); :"GR 5 * ";Y1(10);:36,16:Y2(10);:36,22:Y3(10);:36,28:Y4(10);:36,34:Y5(10);:36,40:"*";0< 36,42:P1(10);:36,48:P2(10)(8)f:p "1 - 3 * ";TT(6);:36,16:TT(7);:36,22:TT(8);:36,28:TT(9);:36,34:TT(10);:36,40:"*";:z 36,42:TT(11);:36,48:TT(12);:36,54:TT(13);:36,60:TT(14);:36,66:TT(15): 10100&; "GR 4 * ";Y1(9);:36,16:Y2(9);:36,22:Y3(9);:36,)9 TT(7)Y2(6)Y2(7)Y2(8)99 TT(8)Y3(6)Y3(7)Y3(8)U9* TT(9)Y4(6)Y4(7)Y4(8)r94 TT(10)Y5(6)Y5(7)Y5(8)9> TT(11)P1(6)P1(7)P1(8)9H TT(12)P2(6)P2(7)P2(8)9R TT(13)P3(6)P3(7)P3(8)9\ TT(14)P4(6)P4(7)P4(8):f TT(15)P5(6)P5(7)P5,54:P3(7);:36,60:P4(7);:36,66:P5(7)8 :"GR 3 * ";Y1(8);:36,16:Y2(8);:36,22:Y3(8);:36,28:Y4(8);:36,34:Y5(8);:36,40:"*";8 36,42:P1(8);:36,48:P2(8);:36,54:P3(8);:36,60:P4(8);:36,66:P5(8)8 102009 TT(6)Y1(6)Y1(7)Y1(8ERIC VALIDATOR$WQZH(36):ZV(37).WQIA%0KWQ868:ZB$"":80:ZN$ZB$gWQ(ZN$)1İ20960:20915uWQZL(ZN$)WQZL7İ20960:20915WQVA1ZLWQZX((ZN$,VA,1))WQZX46ZX57ZX47İ20960:20915WQVAWQZN(ZN$)WQZV1:36,ZH:142ZG16OV=OZE65,Z9:ZE182,Z9:ZE201,Z9:ZE41,120ZG:ZE19,Z8:ZE25,Z8YVAO:ZEVBOZJ3ZJ4İ20232:(9)ZH"N": CHAR/LINEVGOZQ1:::VP24:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";V(P16384,128:16368,0::WQ NUMZ2(ZK)(ZWZI)::BUOZ2(0)Z2(1)Z2(0)Z2(2)Z2(0)25620260JUO:tU O NO KNOWN PRINTER INTERFACE FOUNDU!OZJ1:ZG1U$O FOUND INTERFACE 'ZJ'IN SLOT 'ZG'U.O:20212U8OZE38016U9O10:U;OZE3,ZH:ZE4,ZA:ZE5,ZV VY2(X):NHX017NRY3(X):N\X017 l210Mv40000:4480/Mx40020:A$:300007MyD$Mz14:"THERE IS ALREADY A FILE BY THAT NAME."::868:"DO YOU WANT TO WRITE OVER IT? ";A$:A$(A$,1):A$"Y"A$"N"4474M|A$"N"İ40030:300M30000M40010MX017MY1(X): )P4(5)&LDTT(75)TT(35)TT(65)P5(5)LN" K-12 * ";TT(66);:36,16:TT(67);:36,22:TT(68);:36,28:TT(69);:36,34:TT(70);:36,40:"*";LX36,42:TT(71);:36,48:TT(72);:36,54:TT(73);:36,60:TT(74);:36,66:TT(75)LbD$;"PR#0"LgD$"IN#0"M6)TT(56)Y1(5).KTT(67)TT(27)TT(57)Y2(5)MKTT(68)TT(28)TT(58)Y3(5)lKTT(69)TT(29)TT(59)Y4(5)KTT(70)TT(30)TT(60)Y5(5)KTT(71)TT(31)TT(61)P1(5)K&TT(72)TT(32)TT(62)P2(5)K0TT(73)TT(33)TT(63)P3(5)L:TT(74)TT(34)TT(64(64)TT(44)TT(54)+JTT(65)TT(45)TT(55)J" 7-12 * ";TT(56);:36,16:TT(57);:36,22:TT(58);:36,28:TT(59);:36,34:TT(60);:36,40:"*";J36,42:TT(61);:36,48:TT(62);:36,54:TT(63);:36,60:TT(64);:36,66:TT(65)J10200KTT(66)TT(2TT(53);:36,60:TT(54);:36,66:TT(55)1I^10200JIhTT(56)TT(36)TT(46)cIrTT(57)TT(37)TT(47)|I|TT(58)TT(38)TT(48)ITT(59)TT(39)TT(49)ITT(60)TT(40)TT(50)ITT(61)TT(41)TT(51)ITT(62)TT(42)TT(52)ITT(63)TT(43)TT(53)JTT2(16)P2(17),H,TT(53)P3(15)P3(16)P3(17)LH6TT(54)P4(15)P4(16)P4(17)lH@TT(55)P5(15)P5(16)P5(17)HJ"10-12 * ";TT(46);:36,16:TT(47);:36,22:TT(48);:36,28:TT(49);:36,34:TT(50);:36,40:"*";&IT36,42:TT(51);:36,48:TT(52);:36,54:WHAT IS THE DISTRICT NAME AND"::"NUMBER (LINE 21) ?";:"";NA$:958R.KK%0ı/:"ENTER NUMBER OF SCHOOLS (E.G. 6E/2S":"FOR 6 ELEMENTARY AND 2 SECONDARY)":30::"LINE 22":/FL1:FF16:732:FL0/ZF2:602X152ZZ(X)K(X)2X:30::"LINE 18":".'FF14:7322+936:AA%0j +:1:1:"ENTER TRANSFERS OUT":2:30::"LINE 19":y+FF15:732.AA%0::KK%0ZZ%412020.4:"WHAT IS THE FIRST YEAR OF THE"::"PROJECTIONS (LINE 20) ?";:"";DA$:958:KK%0ıE.10:""LINE 9":F#FF11:732)T$936:AA%0F^$"ENTER HANDICAPPED AID"`h$2:30::"LINE 10":or$FF12:732%936:AA%0%"ENTER VOCATIONAL AID"%2:30::"LINE 11":%FF13:732'936:AA%0$'"ENTER EXPENDITURE PROJECTIONS"%'2DE(1)D(1):FF9:732:D(1)DE(1):33,40F4! REPLACEMENT AMOUNT INPUTV>!936:AA%0|H!1:1:"ENTER REPLACEMENT AMOUNT"\!2:30::"LINE 7":f!LA(1)L(1):FF10:732:L(1)LA(1)2#936:AA%0<#"ENTER OPTIONAL LOCAL REFERENDUM" =#2:30::NTEREST INCOME")2:30::"LINE 12":7FF7:732Gb936:AA%0l1:1:"TOTAL (LINES 13, 14, AND 15)":30::"LINE 16":vFF8:732J936:AA%0T1:1:"ENTER DISCRETIONARY AMOUNT"Y7:32::"LINE 8A"::32:"LINE 8B"::33,31'^36:AA%0@1:1:"ENTER GRANDFATHER AMOUNT":30::"LINE 6":NFF6:732Z:AA%06:"ENTER THE BEGINNING BALANCE":30::"LINE 17":9:7:"1. FIRST YEAR -";:868500:B(1)ZN:ZB$""5070KK%0ız936:AA%0"ENTER IL,96:30000 `u)`u20500::216,0:30125/`uB`u216,0:30000R`u:QQ1:200k`@D$"OPEN"FI$",L"LE:`JD$"WRITE"FI$",R"RE:`TD$"READ"FI$",R"RE:`^D$"CLOSE"FI$:`PòRESTORE STACK PTR`ZÃ-ERRORS-adÃ166,223,154,169,216,72,169,34,72,96:30115a_uER11ĺ"I'M SORRY, BUT THAT'S NOT A VALID":"FILE NAME. TRY SOMETHING ELSE.":30115_uER13ĺ"I'M SORRY, BUT YOU CAN'T USE THAT NAME.":30115_uER25543040_u"SOMETHING UNUSUAL IS HAPPENING. SORRY.":30115_u20500`u16:958: COULD, BUT I AM UNABLE TO":"SAVE ANY MORE ON THIS DISK."^qu:"IF YOU STILL NEED TO ADD MORE TO THIS":"FILE, YOU WILL HAVE TO MOVE THE FILE":"TO A DIFFERENT DISK FIRST."^vu30115_{uER10ĺ"I'M SORRY, THIS FILE IS LOCKED":"AND YOU CAN'T USE IT."ER8ĺ"PLEASE MAKE SURE THE DISK IS IN THE":"DRIVE AND THE DRIVE DOOR IS CLOSED.":30100j]buER930075]guLN4000ĺ"THIS DISK IS FULL. PLEASE INSERT":"ANOTHER DISK TO SAVE THE FILE ON.":30100:^lu"YOUR DISK IS FULL. I SAVED AS MUCH":"ON IT AS I958:30000\u/\u20500::216,0:301255\uH\u216,0:30000Q\u210d\@D$"OPEN"FI$:x\JD$"WRITE"FI$:\TD$"READ"FI$:\^D$"CLOSE"FI$:\PÖ20\ZþA$:50010\dÃ166,223,154,169,216,72,169,34,72,96STORED. SORRY.":30115Y]]uUSE IT.":30115i[uER11ĺ"I'M SORRY, BUT THAT'S NOT A VALID":"FILE NAME. TRY SOMETHING ELSE.":30115[uER13ĺ"I'M SORRY, BUT YOU CAN'T USE THAT NAME.":30115[u"SOMETHING UNUSUAL IS HAPPENING.":"ERROR #"ER" AT "LN".":30115[u20500 \u16:R IS CLOSED.":30100%ZbuER9300751Zdu30054(4)"IN#0"y5>605rB::16:"EDIT DATA":KK%15wB4:"1. KINDERGARTEN-"5B36,2:K(1);", ";K(2);", ";K(3);", ";K(4);",";K(5)5B6B"2. ELEME:650:CHK;:36,61:CHKB(6):650:CHKs4="**********************************************************************"4="BALANCE PER PUPIL UNIT"5=CHKB(2)U(1):650:270:CHK$;:36,16:CHKB(3)U(2):650:270:CHK$;:36,31:CHKB(4)U(3):650:270:CHK$;16:X(2);:36,31:X(3);:36,46:X(4);:36,61:X(5)G3="TRANSFERS OUT"3=O(1);:36,16:O(2);:36,31:O(3);:36,46:O(4);:36,61:O(5)3="REMAINING BALANCE"%4=CHKB(2):650:CHK;:36,16:CHKB(3):650:CHK;:36,31:CHKB(4):650:CHK;:36,46:CHKB(5):CHKB(3):650:CHK;:36,46:CHKB(4):650:CHK;:36,61:CHKB(5):650:CHKY2="REVENUES"2=CHKT(1):650:CHK;:36,16:CHKT(2):650:CHK;:36,31:CHKT(3):650:CHK;:36,46:CHKT(4):650:CHK;:36,61:CHKT(5):650:CHK2="EXPENDITURES"23=X(1);:36,KT(3):650:CHK;:36,46:CHKT(4):650:CHK;:36,61:CHKT(5):650:CHK1r="**********************************************************************"1|=:"BALANCE SHEET"1=:"BEGINNING BALANCE"I2=CHKB(1):650:CHK;:36,16:CHKB(2):650:CHK;:36,31FDC AID"K0@=A(6);:36,16:A(7);:36,31:A(8);:36,46:A(9);:36,61:A(10)\0J="BASIC AID"0T=F(6);:36,16:F(7);:36,31:F(8);:36,46:F(9);:36,61:F(10)0^=:"TOTAL GENERAL FUND REVENUE"F1h=CHKT(1):650:CHK;:36,16:CHKT(2):650:CHK;:36,31:CH5)/="LOCAL REFERENDUM"\/=R(1);:36,16:R(2);:36,31:R(3);:36,46:R(4);:36,61:R(5)u/"="REPLACEMENT TOTAL"/,=CHKL(1):650:CHK;:36,16:CHKL(2):650:CHK;:36,31:CHKL(3):650:CHK;:36,46:CHKL(4):650:CHK;:36,61:CHKL(5):650:CHK06="A INCOME"J.:JZN$(ZN$,1):ZN$"Y"ZN$"N"19000s>=JZZ%1:ZN$"N"ZZ%2:ZF2y>@J>NPRINTER>N>NZQĺ(13);(4);"PR#0":(4);"IN#0">NZF$"COMM, SERIAL OR PARALLEL"%?N(ZQ)ZF$"COMM, SERIAL OR PARALLE:BL$(1);", ";;BL$(2);", ";BL$(3);", ";BL$(4);", ";BL$(5)^=zD:"3. FIRST YEAR OF PROJECTION"m=D36,2:DA$=D:"4. NAME OF DISTRICT AND NO."=D36,2:NA$=D19000:ZZ%160=DMX4:31000:ZZ%017565=DZZ%11010,12040,12010,12010:17400+>8J(ZD$,ZE,1)"."20860&hQ3&rQZD$ZD$".00":20880J&|QZE2(ZD$)20880Z&QZD$ZD$"0"v&Q(ZD$,1,1)"."ī20890&QZD$"0"ZD$&Q&Q&QNUMERIC VALIDATOR&QZH(36):ZV(37)&Q868:"? ";ZN$&QZN$""İ20960:20915 'Q(ZN$)1İ2097:16368,0>%#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";f%(PZC(16384):ZC141ZC16020520%2P16368,0:7:" ";:21::ZV1:ZH1:::%@QFORMATTED DOLLARS%JQZD(ZD100.5)100:ZD$(ZD)%TQZE1(ZD$)&^QZH:ZE4,ZA:ZE5,ZV/$ ZD$SPACE$ZD$H 3380 R MRIX$(V)MLANES$INF$(2) 40030$! VPSTP*& 00 @> LL$(LANE)MN VOSTPkP ::1:14:"M A T R I X"zR VV1LANES 10VV:"STEP "V", LANE ";:VV10ĺ" ";U VV" : ";:868:20900:S(VV)ZNX VV] 3340^ b Vg :10:"WAIT - COM50  2960 216,0 + FI$NAME$7 30000B 40000M 40020X V12e INF$(V)l V STP$(INF$(1),1,5):STP(STP$) LANE$(INF$(1),6,10):LANE(LANE$) V0STP MRIX$(V) V VOSTP STP$(V) V , V0STP6 C$;MRIX$(V);C$%@ V2J VOSTPET C$;STP$(V);C$L^ VWh 40030bm VPSTPhr x| READ FILE : 6:"SAMPLE DATA: SAMPLE NO. 1" 12:"WHAT IS THE FILE CALLED? ";:868:"";NAME$:NA$""2950 NA$"A"NA$"Z"29F$(1)S$L$:INF$(2)LANES$. WRITE TO FILEs 5:"WHAT DO YOU WANT TO"::"NAME THE FILE? ";:958:NA$:958 NA$"A"NA$"Z"2790 10:1:"WRITING TO FILE." FI$NAME$:30000 40000 40010 V12 C$;INF$(V);C$" V  40020V12"INF$(V))VMSEP$(INF$(1),1,5):SEP(SEP$)uLANE$(INF$(1),6,10):LANE(LANE$)V0SEPM2$(V)VVOSEPS2$(V)V LANES$INF$(2)40030 216,0%FK1*VPSEP4*#$(AN$,1):AN$"Y"AN$"N"61005AN$"Y"İ3200;SXREAD IN PROJECTIONc]FK1İ6100i_b10:1:"SAMPLE DATA: SAMPLE NO. 2"l12:868:"NAME OF SECOND SCHEDULE? ";NNAME$v958(NNAME$)17020FILE$NNAME$40000:"READ THIS DATA FROM THE DISKETTE OR"::"ENTER IT.":6020z"THERE IS NO PROJECTED DATA. PLEASE"::"READ THIS DATA FROM THE DISKETTE OR"::"ENTER IT."20500:":10:"DO YOU WISH TO SAVE THE DATA WHICH IS"::"ALREADY IN MEMORY? ";AN$:ANVV$ 4600$OP3ī5000-.OP4ī5200=8OP5ī5250QVV$;" ";S2$(V)[5300oPVV$;" ";M2$(V)yU5300VV$;" ";I$(V)V::D$;"PR#0"|2552990p:10:FK06010=u"THERE IS NO DATA FOR THE BASE YEAR.":0İ6000:2990OP5İ31000S:15:"WHAT TITLE WOULD YOU LIKE TO GIVE THE":x"REPORT (UP TO 70 CHARACTERS)?":T$200006SEPVPh:T$:LANES$0VOSEPVV$(V)(VV$)4ī4900\VV$SPACE$,10)" VOSEP1$ S2$(V)(S2$(V),1,(7LANE))8& VC* V12W4 C$;INF1$(V);C$^> VkH V0SEP}R C$;M2$(V);C$\ Vf V0SEPp C$;S2$(V);C$z V 40030 STP(STP$) FK2  HARD COPY SCHEDULE & MATRIX FK"N"33003 (XC$,1,1)"N"İ40030:5:958:3260= 3314G D$:f ZZ$:ZZ$"-ERRORS-"3311 ZZ09:ZX:753ZZ,ZX::753 30000 40010 SEP$(SEP) (SEP$)5ī3360 SEP$SPACE$SEP$ 3330 INF$(1)SEP$(INF$(1),64,105,31,133,36,104,96,108,3,3,0,0,0,255,255,255,00$u216,0:30000$u1175.$@D$"OPEN"FI$:B$JD$"WRITE"FI$:U$TD$"READ"FI$:i$^D$"CLOSE"FI$:x$PòUSER DATA$`MECC SUPPORTED DATA$01:HD$:(LANES$,1,40)$:1:A33:" STEP";(LANES$,41,75)A VALID":"FILE NAME. TRY SOMETHING ELSE.":30115o#uER13ĺ"I'M SORRY, BUT YOU CAN'T USE THAT NAME.":30115#u"SOMETHING UNUSUAL IS HAPPENING.":"ERROR #"ER" AT "LN".":30115#u20500#u16:958:30000#u#u20500::216,0:30125#u "fu216,0i"gu"THIS DISK IS FULL. PLEASE INSERT":"ANOTHER DISK TO SAVE THE FILE ON.":LN4000030100|"lu20500:30000"quFG1:1471"{uER10ĺ"I'M SORRY, THIS FILE IS LOCKED":"AND YOU CAN'T USE IT.":301152#uER11ĺ"I'M SORRY, BUT THAT'S NOT E-PROTECT":"STICKER FROM THE DISK.":30100.L|LO.M|S2$(V1)S3$Z.N|S3$""a.Q|Vg.[|.} MODIFY INCREMENTS.}34,23.}16368,0.}23:1:868:"DO YOU WANT TO MAKE ANY CHANGES? ";II$:(II$)132240.}II$(II$,1)/}(II$) YEAR."::"READ THIS DATA FROM THE DISKETTE OR"::"ENTER IT."L20500::10:"DO YOU WISH TO SAVE THE DATA WHICH IS"::"ALREADY IN MEMORY? ";AN$:AN$(AN$,1):AN$"Y"AN$"N"4100AN$"Y"İ2590P SPACE-BAR ROUTINEPZH(36):$(V))703220' M1$(V)M1$(V)SPACE$1 31908 V> P STEP STRING^ M1$(V)""l L1LANEx ZDS(L)* 208004 (ZD$)73410> ZD$SPACE$ZD$H 3380R M1$(V)M1$(V)ZD$\ Lf ?:10:"THERE IS NO DATA FOR THE BASE0 < FG1> LL$(LANE),N VOSTPJP ::1:14:"M A T R I X"YR VV1LANES 10VV:1:"STEP "V", LANE ";:VV10ĺ" ";U VV" : ";:868:20900:S(VV)ZNX VV] 3340^ b Vg :10:"WAIT - COMPUTING"l V0STPv (M1AME$ 30000 40000& 400201 V12> INF$(V)E Vi STP$(INF$(1),1,5):STP(STP$) LANE$(INF$(1),6,10):LANE(LANE$) V0STP M1$(V) V VOSTP S1$(V) V LANES$INF$(2) 40030! VPSTP& ^ Vh 40030j FG2&m VPSTP,r <| READ FILEL~ FG1İ4100T :y 6:"SAMPLE DATA: SAMPLE NO. 1" 12:"WHAT IS THE FILE CALLED? ";:868:"";NAME$:NA$""2950 NA$"A"NA$"Z"2950 2960:FG1 216,0  FI$NANT TO"::"NAME THE FILE? ";:958:"";NA$:958K NA$"A"NA$"Z"2790j 10:1:"WRITING TO FILE." FI$NAME$:30000 40000 40010 V12 C$;INF$(V);C$" V, V0STP6 C$;M1$(V);C$@ VJ VOSTPT C$;S1$(V);C$(@D$"OPEN"FI$:'(JD$"WRITE"FI$::(TD$"READ"FI$:N(^D$"CLOSE"FI$:a(Pò USER DATA }(` MECC SUPPORTED DATASMECC SUPPORTED DATA"F'6~CV(C2$):CVCVM5.5:CV(CV100):CVCV100:ZDCV:20800:M5$ZD$\';~(M5$)12ī32320o'=~M5$SPACE$M5$z'>~32315'@~CV(C1$):CVCVM6.5:CV(CV100):CVCV100:ZDCV:20800:M6$ZD$'B~(M6$)12ī32330'D~M6$SPACE$M6$'F~32322'J~(?d}C3C1C2&n}C4(C3C2)100'&x}ZDC42&}20800H&}(ZD$)12ī32170[&}ZD$SPACE$ZD$f&}32140r&}C4$ZD$|&}ZDC3&}20800&}C3$ZD$&}(C3$)12ī32220&}C3$SPACE$C3$&}32190&}32300&}(7)&}',~ SALARY AVERAGE PER YEARE!%}S4$(S2$(V),((L1)7)1,7)A% }M4$(M2$(V),((L1)7)1,7)Y%}S4(S4$):M4(M4$)f%}M6M6M4%}C9((M4S4100).5)% }C9C9100%"}C1C1C9%(}L%2}V%4}ZDC1%6}20800%<}C1$ZD$%F}(C1$)12ī32100%P}C1$SPACE$C1$%Z}32070 &)1,7)&$|M3$(M1$(V),((L1)7)1,7)4$|M3(M3$)A$|M5M5M3O$|S3(S3$)h$|C8((M3S3100).5)v$|C8C8100$|C2C2C8$|L$|V$|ZDC2$|20800$|C2$ZD$$|(C2$)12ī31980$|C2$SPACE$C2$$|31950$|V0SEP%|L1LAN#p{(ZD$)7ī31630(#z{ZD$SPACE$ZD$3#{31600G#{P$(0)P$(0)ZD$N#{L_#{D1$(0)P$(0)i#{(7)o#{#`| COST OF SCHEDULES#b|13:"ONE MOMENT PLEASE..."#o|C20#q|C10#r|M50#s|M60#t|VOSTP#~|L1LANE$|S3$(S1$(V),((L1)7P$(V1)"""zD1$(V1)""/"z(ZD$)7ī31490B"zZD$SPACE$ZD$M"z31460e"{P$(V1)P$(V1)ZD$}" {ZD$" 0"S30"{DD$(S3)" {(DD$)7ī31550"*{DD$SPACE$DD$"4{31520">{D1$(V1)D1$(V1)DD$"H{L"R{V"\{L1LANE#f{ZD$"0"VSEPī31410/!zMM$(M2$(V1),((L1)7)1,7)O!zMS$(M1$(V),((L1)7)1,7)]!zM1(MS$)k!zM2(MM$)|!zM20ī31450!zM10ī31450!zS3S2S1!zS10ī31420!z31450!zZDS3S1100!z20800!z31460!zZD$"0"!zL1ī31460 "z !zVOSEP &zD1$(V)"" 0zV- :zV0SEP; DzL1LANE[ NzSS$(S1$(V),((L1)7)1,7)i XzS1(SS$)| bzVSEPī31360 lzSS$(S2$(V),((L1)7)1,7) qzS2(SS$) vz31372 zSS$(S2$(V1),((L1)7)1,7) zS2(SS$) zS10S20ī31450 !zL IS HAPPENING.":"ERROR #"ER" AT "LN".":30115:u20500Pu16:958:30000Vuru20500::216,0:30125xuu216,0:30000u1014y PERCENT AND DOLLAR INCREASEzV0SEPzP$(V)""zVzz13:"ONE MOMENT PLEASE..." z #     Ϡ""٠Π'РŠ̠  Ԡ ΠԠϠ/ԠŠ"ŠϮ Ԡˠ ԠϠ !٠ŠŠŠԠΠ[ԠŠΠFŠϮ VAQZN(ZN$)$QZV1:36,ZH:*/uC0u216,0:ER(222):D$I5ud:u:LN(218)256(219)?uZZ$:ZZ$"-ERRORS-"30015DuZZ09:ZX:753ZZ,ZX::753GuER255600Iu16:958:ER4ĺ"PLEASE REMOVE THE WRITE-PROTECT":"STICKER FROM THEZE2(ZD$)20880"QZD$ZD$"0"(Q.Q4QKQNUMERIC VALIDATORaQZH(36):ZV(37)uQ868:"? ";ZN$QZL(ZN$)QZL1İ20960:20915QZL7İ20960:20915QVA1ZLQZX((ZN$,VA,1))QZX46ZX57ZX47İ20960:20915QINUE";.(PZC(16384):ZC141ZC16020520s2P16368,0:7:" ";:21::ZV1:ZH1:@Q FORMATTED DOLLARSJQZD(ZD100.5)100:ZD$(ZD)TQZE1(ZD$)^Q(ZD$,ZE,1)"."20860hQrQZD$ZD$".00":20880|Q6100AN$"Y"İ3200 :6XCLEAR PROJECTIONYbV022:S2$(V)"":M2$(V)"":V_l N MECC SUPPORTED SUBROUTINESP SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZP24:7:16368,0#P"PRESS ";::"SPACE BAR";::" TO CONTyxA?ooo}={{^o^k|sg}>}~_~{}w{~np{p{~`{{aq{wxO8oJV[_{]n]vox?>pp}xO}w[o>{m?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[gw?^wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{s}>}~_~{}{~nnun{~n{{nn{w?~oxp67\_{]qcfoxG?G|}x}v[o>{m?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[ko?]wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@}~_~{}{nnnnn{~n{ynnyw|g?|{oox?q?@}|?\oAn?8ok=?o{z^>?Wt?~Ox?x|}\oAp?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~?y>x`ow[m?[OLLAR INCREASE(SAME STEP)&"yVOSTP4,yL1LANET6ySS$(S1$(V),((L1)7)1,7)b@ySS(SS$)sJySS0ī31070TySSSSD1(V)^ySS$(SS)hy(SS$)7ī31110rySS$SPACE$SS$|y31080yS2$(V)S2$(V)SS$yLyVyA2$"N"ī31240 NG ELSE.":30115MuER13ĺ"I'M SORRY, BUT YOU CAN'T USE THAT NAME.":30115u"SOMETHING UNUSUAL IS HAPPENING.":"ERROR #"ER" AT "LN".":30115u20500u16:958:30000uu20500::216,0:30125uu216,0:30000u600y DS FULL. PLEASE INSERT":"ANOTHER DISK TO SAVE THE FILE ON.":LN4000030100_lu20500:30000iqu3315{uER10ĺ"I'M SORRY, THIS FILE IS LOCKED":"AND YOU CAN'T USE IT.":30115uER11ĺ"I'M SORRY, BUT THAT'S NOT A VALID":"FILE NAME. TRY SOMETHI DISK.":30100NuER530045\SuD$"DELETE"FI$:"'"FI$"' ISN'T ON THIS DISKETTE.":30115]uER8ĺ"PLEASE MAKE SURE THE DISK IS IN THE":"DRIVE AND THE DRIVE DOOR IS CLOSED.":30100buER930075du30054eu40030fu216,0Lgu"THIS DISK I7:16368,0=#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";e(PZC(16384):ZC141ZC160205202P16368,0:7:" ";:21::ZV1:ZH1:V1:ZH1: ";:21::ZV1:ZH1:DS APPLE. THE APPLE DOESN'T HAVE"::"ENOUGH MEMORY."?.'2010XF'A(999)(1000)256nH'B(A)(A1)256L'CS(B1)16:SLOT #Q'CS1CS7CS6R'12V'(4)"PR#"CSj'P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZ P24::"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$O(VX$,1)"Y"2050f(VX$,1)"N"2100p2010:10:10:"INSERT THE NEW DISKETTE":20500 100544::2555':5'"I'M SORRY, BUT THIS DISKETTE CANNOT RUN"::"ON THIAND WILL PROJECT NEW":4:"SALARY SCHEDULES AND DETERMINE COST.":1:"CLEANUP";:" WILL DELETE FILES CREATED":4:"BY ENROLLMENT PROJECTION, REVENUE":4:"PROJECTION, SALARY CREATE, AND":4:"SALARY PROJECTION."20500150:810:1IS USED TO PROJECT":5:4:"ENROLLMENT FOR THE NEXT 5 YEARS.":"REVENUE PROJECTION";:" IS USED TO PROJECT":4:"THE GENERAL FUND BALANCE FOR 5 YEARS.":"SALARY";:" IS A PROGRAM TO CREATE A"::4:"PRESENT SALARY SCHEDULE AND MATRIX "@4:"(ZN$):" &CV1:36,CH:868:=  SCHOOL UTILITIES,5Z "ENROLLMENT PROJECTION"t "REVENUE PROJECTION"  "SALARY" "CLEANUP" $"END" : 1:14:"SCHOOL UTILITIES":16:"DESCRIPTIONS"?4:1:"ENROLLMENT PROJECTION";:" RAM..."* Q3N$(3)"SALARY PROJECTION"? D$;"RUN ";N$(Q)U CH(36):CV(37){ "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN50 ^490:QZNQ r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340z |:N$(Q,2):18:N$(Q,3):20:N$(Q,4)  Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:280 ::10:"GETTING THE PROGT1N N$(T)! T;" ";N$(T)3 T2(T2)ĺ: T@ I 768 18:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU NEED DESCRIPTIONS, TYPE 'D') ";:868 "490 ,(ZN$,1)"D"1200 6(ZN$,1)"5"Ĺ1023,9:::2000 @QZN:428:J127J132JJ1:J40030/ #16368,05 (H 1CHECK FOR 48K^ 2(978)15710000h dZM24t xN$(24) D$;"NOMON,C,I,O" 1023,123 ::255: T$,N 1:20(T$)2 T$ 2:11:"AVAILABLE PROGRAMS" 4  VERSION: 2.0.2 (TMB)< LAST UPDATE: 6/27/80C [ (C) MECC, 1979mD$(13)(4)D$;"BLOAD FREE SPACE":::255:(1023)123501023,123:16302,0:::D$"BLOAD LOGO":16304,0:16368,0! J1(16384)1     7)S$(S1$(V),(L71),(LANEL)7)- 2580l M1$(V)(M1$(V),1,(L1)7)S$(M1$(V),(L71),(LANE1)7)v 1830 WRITING TO FILE( FG04000F S$(" "(STP),5):L$(" "(LANE),5) INF$(1)S$L$:INF$(2)LANES$ WRITE TO FIL6 24:1:868:"INPUT DOLLAR AMOUNT";:20900:S$ZN$I (S$)7ī2440S 2510 24:1:868:"MATRIX NO.";:20900:ZDZN 20800 S$ZD$ (S$)72540 (S$)72470 S$SPACE$S$ 2510 MD12570# S1$(V)(S1$(V),1,(L1)O CHANGE ANYTHING? ";:868:"";CG$:CG$(CG$,1):CG$"Y"CG$"N"2370e` CG$"N"ĉ::SS1:2580j 24:1:868:"INPUT STEP NO.";:20900:VZNl V0VSTPī2410n 24:1:868:"INPUT LANE NO.";:20900:LZNp L1LLANEī2414~ MD12470LANES$""V1LANEM(LANE$(V))6LANE$(V)" "LANE$(V)" ":2290v(LANE$(V))7LANE$(V)" "LANE$(V) LANES$LANES$LANE$(V) V$ LANES$" STEP"LANES$. 8 EDIT OF STEPS; 34,23= 16368,0HB 24:1:"DO YOU WANT TMD121405HV3:1:V$;" ";(S1$(V),36,(7LANE));?R2150j\V3:1:V$;" ";(M1$(V),36,(7LANE));qfV{z2360 STEP STRINGS1$(V)""L1LANES$(" "(S(L)),7)S1$(V)S1$(V)S$L HEADING STRINGS ,40)$lV0STP:V$(" "(V),4)3MD11980WV3:1:V$;" ";(S1$(V),1,35);a1990V3:1:V$;" ";(M1$(V),1,35);V23601:1:(HE$,1,10(LANE6)7):" STEP";(LANES$,41,75) VOSTP V$(" "(V),4) >LARY SCHEDULE";VV1LANET@10VV:1:868:"STEP "V", LANE ";:LANE10ĺ" ";rCVV" : ";:20900:S(VV)ZNzEVVJ2180OTV^3120 EDITFG04000S1#MD6C&:S22020DS3ıN1:1:HD$:(LANES$ 6. RETURN TO MAIN MENU"b17:"(ENTER 1 - 6) ?";:868:"";C1$:(C1$)1C1$"1"C1$"6"1500o C(C1$)w:16368,0C1570,2590,2940,1780,1780,210001471"#FH1:1290%FG1'LL$(LANE)6VOSTP81:13:"SAY"WOULD YOU LIKE TO"::" 1. ENTER SALARY SCHEDULE":" AND PERSONNEL MATRIX":" 2. SAVE DATA FOR BASE YEAR":" 3. READ DATA FOR BASE YEAR "::" 4. EDIT BASE YEAR SALARY SCHEDULE"" 5. EDIT BASE YEAR PERSONNEL MATRIX"::"  V1VLANE1430! V$(V)_ 22:1:868:"LANE NO. ";V$;" SHOULD BE? ";:"";LANE$(V) (LANE$(V))1(LANE$(V))61440 V1LANE V4:"LANE ";:V10ĺ" "; (V)" ?";LANE$(V);:868::V 1400 :2270: : :4ZV4:"LANE ";:V10ĺ" ";9 _V$" ";:868:LANE$(V)_ d(LANE$(V))6(LANE$(V))11370f nV x18:958:"ARE THESE ALL CORRECT? ";:868:"";BB$:BB$(BB$,1):BB$"Y"BB$"N"1400 BB$"Y"1470 20:1:868:"LANE NO. ";:20900:VZNER FROM 1 TO 10.":1300Z (13:"HOW MANY STEPS ARE THERE";:868:20900::958:STPZN1 2ST0ST20Ģ17:"PLEASE ENTER A NUMBER FROM 1 TO 21.":1320 7: <9:"ENTER LANE DESCRIPTION":8:"(SIX CHARACTERS OR LESS)" PV1LANE UV$(V) $"Y": NEEDED FOR ERROR HANDLING FROM LINE 3118I AA$"Y"İ2940:1470O b AA$"Y"ī1470h  7:"HOW MANY LANES ARE THERE IN YOUR"::"PERSONNEL AND SALARY MATRICES";:868:20900:LAZN :958 LA1LA10Ģ13:"PLEASE ENTER A NUMB" USER DEFINED FUNCTIONS8 START OF MAIN PROGRAME tC$(34)N FH0] SPACE$" "g 1471m v FH1 8:"ARE YOUR STEPS, LANES, AND"::"HEADINGS SAVED ON A FILE? ";:868:"";AA$:AA$(AA$,1):AA$"Y"AA$"N"1210 12500 AASALARY CREATE.COPYRIGHT MECC, 19814OLAST UPDATE: 8/02/81UpAUTHOR: D. H. LOEWEN("-ERRORS-",166,223,154,169,216,72,169,34,72,9616368,0INITIALIZATION::255D$(13)(4) D$;"NOMON I,C,O          ),1,(L1)7)S$(M2$(V),(L71),(LANE1)7)=,bS$" 0.00",lM2$(V1)(M2$(V1),1,(L1)7)S$(M2$(V1),(L71),(LANE1)7),L,V,YY(0),,?,@D$"OPEN"FI$:,JD$"WRITE"FI$:,TD$"READ"FI$:,^D$"CLOSE"FI$:-ȯ E):XM(XM$)!+~XL0XM1ī325002+~XL0ī32640=+~32640]+~M3$(M2$(V),((L1)7)1,7)+~M4$(M2$(V1),((L1)7)1,7)+M3(M3$):M4(M4$)+ZDM3M4+20800+&(ZD$)7ī32580+0ZD$SPACE$ZD$+:32550+DS$ZD$,,XM2$(V)(M2$(V*T~M3(M3$)*^~M4(M4$)'*h~ZDM3M42*r~20800G*|~(ZD$)7ī32410Z*~ZD$SPACE$ZD$e*~32380*~M2$(SEP)M2$(SEP)ZD$*~L*~YY(0)*~V1(SEP1)*~L1LANE*~XL$(S2$(V),((L1)7)1,7)*~XM$(S2$(V1),((L1)7)1,7) +~XL(XL$ ADDED STEP))}L1LANE#)}ZD0.)}20800C)}(ZD$)7ī32260V)}ZD$SPACE$ZD$a)}32230w)~M2$(0)M2$(0)ZD$~)~L)~VO(SEP2))"~M2$(V1)M1$(V)),~V)6~L1LANE)@~M3$(M1$(SEP),((L1)7)1,7))J~M4$(M1$(SEP1),((L1)7)1,7) SS$ (}L(}V((}5(2} CHANGE MATRIX(ADD STEP)I(<}A2$"N"ī32190V(F}VOSTPj(P}M2$(V1)M1$(V)q(Z}V(d}L1LANE(n}ZD0(x}20800(}(ZD$)7ī32160(}ZD$SPACE$ZD$(}32130(}M2$(0)M2$(0)ZD$(}L(} )} CHANGE MATRIX(NOSS$'|31940)'|A2$"N"VSEPī32000K'|S6$(S1$(V1),((L1)7)1,7)Y'|S6(S6$)j'|S6031980'|S2$(V)(S2$(V),1,(L1)7)SS$(S2$(V),(L71),(LANE1)7)'|S2$(V1)S2$(V1)SS$'|32025'}L1ī32020' }S2$(V)""(}S2$(V)S2$(V)`|31820&j|S2$(0)S2$(0)SS$%&t|LN&v|::10:10:"COMPUTER COMPUTING..."[&~|VOSTPi&|L1LANE&|SS$(S1$(V),((L1)7)1,7)&|SS(SS$):TTSS&|SS0ī31930&|SSSS((TTD2(V)100)0.5)&|SS$(SS)&|(SS$)7ī31970'|SS$SPACE$$%|L%|%|>%$| INCREASE PERCENT(REPLACE NEXT STEP)n%)|:"ENTER ($) AMT FOR EACH LANE OF STEP 0 "|%.|L1LANE%8|LL$(L)%B|3L:1:868:"STEP 0:ENTER ($) AMT FOR LANE ";LL$;" ";:20900:SS$ZN$%L|(SS$)7ī31850%V|SS$SPACE$SS$&"N"ī31770${S2$(SEP)""M${:"ENTER ($) AMT FOR EACH LANE OF STEP ";SEP$[${L1LANEt${LL$(L):SEP$(SEP)${3L:1:868:"STEP ";SEP$;" LANE NO. ";LL$;:20900:SS$ZN$${(SS$)731750${SS$SPACE$SS$${31720%|S2$(SEP)S2$(SEP)SSCREASE(SAME STEP)#4{VOSTP,#>{L1LANEL#H{SS$(S1$(V),((L1)7)1,7)`#R{SS(SS$):TTSSq#\{SS0ī31600#f{SSSS((TTD2(V)100)0.5)#p{SS$(SS)#z{(SS$)7ī31640#{SS$SPACE$SS$#{31610#{S2$(V)S2$(V)SS$#{L#{V ${A2$0#"zS6$(S1$(V1),((L1)7)1,7)1"zS6(S6$)B"zS6031450"zS2$(V)(S2$(V),1,(L1)7)SS$(S2$(V),(L71),(LANE1)7)"zS2$(V1)S2$(V1)SS$"z31500"zL1ī31490"zS2$(V)"""{S2$(V)S2$(V)SS$" {L"{V" {#*{ PERCENT IN)S2$(0)SS$!bzLSH"ENTER CENSUS AND ENROLLMENT FOR ";YRRI15:" "I". AGE "I1" ="::" 6. GR K ="\I718:I10ĺ" ";aI". GR ";:I16ĺ" ";dI6" =":fpuDA1Ez:"ENTER THE YEAR THE DATA BY1(X)Y2(X)X017-Y2(X)Y3(X)3?X017OY3(X)Y4(X)UaX017qY4(X)Y5(X)w20500 YR1900BYR4:8301640  CHANGE BEGINNING DATE*SC%1::8:"ENTER THE NEW BEGINNING YEAR (IF":"1976 - 77, %1;bYR1900BYR(Y%1):830:Y%910,1100,1280,1460,1640\l DELETE OLDEST YEAR OF DATAv:8:"REMOVING THE OLDEST YEAR OF DATA LEAVES":"ONLY 4 YEARS OF HISTORY. YOU MUST ENTER":"A NEW CURRENT YEAR (YEAR 5)."BYRBYR1:SC%1X017 1710D CHANGE WHOLE YEARN:5::"WHICH YEAR IS TO BE CHANGED?"::" 1. 1ST YEAR":" 2. 2ND YEAR":" 3. 3RD YEAR":" 4. 4TH YEAR":" 5. 5TH YEAR"P14:868:"(ENTER 1 - 5) ?";Y$:(Y$)1592Q(Y$)49(Y$)53ī592SY%(Y$)XSCSINGLE CHANGE Y2X2190X:13:Y2(X2)<:1170T SINGLE CHANGE Y3`X219tX:13:Y3(X2):1350SINGLE CHANGE Y4X219X:13:Y4(X2):1530 SINGLE CHANGE Y5&X2190X:13:Y5(X2)::RD YEAR":" 4. 4TH YEAR":" 5. 5TH YEAR"[j15:1:"YEAR? ";:868:"";Y$:(Y$)1362vk(Y$)49(Y$)53362lY%(Y$)rYR1900BYR(Y%1):830:Y%380,420,460,500,540| SINGLE CHANGE Y1X219X:13:Y1(X2):990 MENU":;B11:"(ENTER 1 - 5) ";:868:C$:(C$)1322WC(C$)49(C$)53ī322cDC(C$)lEDA1JC340,580,620,800,210T MAKE SINGLE CHANGE^SC%1*h:5:"WHICH YEAR IS TO BE CHANGED?"::" 1. 1ST YEAR":" 2. 2ND YEAR":" 3. 3"";FI$:FI$""210<7FX$(FI$,1):(FX$)65(FX$)90310F84620d@:3:"WOULD YOU LIKE TO"A:" 1. MAKE A SINGLE CHANGE":" 2. CHANGE A WHOLE YEAR'S DATA":" 3. DELETE THE OLDEST YEAR OF DATA":" 4. CHANGE BEGINNING DATE":" 5. RETURN TO,DA0Ģ10:"THERE ISN'T ANY DATA TO SAVE.":20500:210110:1:"WHAT WOULD YOU LIKE TO NAME THE FILE?":958::"";FI$:FI$""2103FI$"A"FI$"Z"305444705:6:1:"SAMPLE FILE: ENRDAT"610:1:"WHAT IS THE NAME OF THE FILE?"::N'T ANY DATA TO CHANGE.":20500:210D C880,300,309,1800,320,290^ "::(1023)123ĉ: #DA1Ģ8:"DO YOU WANT TO SAVE YOUR DATA"::"BEFORE ENDING? ";:868:"";YN$:YN$(YN$,1):YN$"Y"YN$"N"291 $YN$"Y"210 & 'D$"RUN HELLO"9TTE" :" 4. PRINT REPORT"7 :" 5. EDIT DATA"J :" 6. END " 20:"(ENTER 1 - 6) ";:868:C$:(C$)1C$"1"C$"6"280 (C$)49(C$)54280 C(C$)::30000 DA1ĭC3C1İ23000:YN$"N"210$ C5DA0Ģ10:"THERE IS ZO(ZB$) 80! IA%1ı1 ZB(ZB$):= SC%0:D 2e 10:"ENROLLMENT PROJECTION"w D$(13)(4) 6:"WOULD YOU LIKE TO" :" 1. ENTER 5 YEARS ENROLLMENT" :" 2. SAVE DATA ON DISKETTE" :" 3. READ DATA FROM DISKE900:ZBZN: PZA$G ZZA$(13)ZA$(8)ĭZA$(32)ZA$(90)ī80Z dZA$(8)140q nZO(ZB$):ZO180 xZA$" "ZA$;:ZOZO1:ZB$(ZB$,1,ZO) 80 ZA$;:ZA$(13)180 IA%1ĭ(ZA$"0"ZA$"9")ZA$"."ZA$"-"80 ZB$ZB$ZA$ ):Y5(17):TT(75) 210| (X(XY(2)SR(1))(XY(3)SR(2))(XY(4)SR(3))(XY(5)SR(4)):XY(1)X(XY(2)XY(3)XY(4)XY(5)): *RESTORE STACK PTR ,-ERRORS- .166,223,154,169,216,72,169,34,72,96 2 LINE INPUT ROUTINE <ZB$"" F"?"; H20TENROLLMENT PROJECTION6COPYRIGHT MECC, 1981` AUTHOR MIS AND DUANE LOEWEN, MECCNW{LAST UPDATE: 8/31/81:10 38016 :(4)"BLOAD LIST 48K"DA0 P1(20):P2(20):P3(20):P4(20):P5(20):Y1(17):Y2(17):Y3(17):Y4(17                              ND OF PROGRAM -ү:FK1İ61006-(1023)123ė:q-:12:"GETTING THE MENU PROGRAM . . .":D$"RUN HELLO"w-,-Pò USER DATA -` MECC SUPPORTED DATA/ 5:7325010"v40000:44809x40020:A$:30000Cy:D$z14:"THERE IS ALREADY A FILE BY THAT NAME."::868:"DO YOU WANT TO WRITE OVER IT? ";A$:A$(A$,1):A$"Y"A$"N"4474|A$"N"İ40030:3003000040000:136209936:AA%0+"ENTER SECONDARY ENROLLMENT"D2:30::"LINE 3":RFF3:732b 936:AA%0~ "ENTER FOUNDATION AID" 2:30::"LINE 4": ER25560 FF4:732936:AA%0"ENTER AFDC STUDENTS"2:30::"LINE 5":FFBL$(L);:KK%0970%19000:ZZ%1KK%0ġ:GZZ%1ıWMX5:31000fZZ%0935w20:1:958LZZ%:KK%KK%1:740:KK%KK%1:935936:AA%0"ENTER ELEMENTARY ENROLLMENT"2:30::"LINE 2":FF2:732 LA(L)(ZB$)&TL(1)LA(1):LA(L);:?WZB$""R(L)(ZB$)LYR(L);:e\ZB$""H(L)(ZB$)r^H(L);:aZB$""V(L)(ZB$)cV(L);:fZB$""X(L)(ZB$)hX(L);:kZB$""O(L)(ZB$)mO(L);:pZB$""BL$(L)ZB$ r:ZB$""F(L)(ZB$)(F(L);:A ZB$""A(L)(ZB$)N"A(L);:g*ZB$""G(L)(ZB$)t,G(L);:4ZB$""I(L)(ZB$)6I(L);:>ZB$""M(L)(ZB$)@M(L);:HZB$""DE(L)(ZB$)JD(1)DE(1):DE(L);: RZB$""45RFF760,770,780,790,800,810,820,830,840,850,855,860,865,870,875,880,885,890`868::L25:22:KK%0İ500:37,(37)24:ZB$""K(L)(ZB$)K(L);:ZB$""E(L)(ZB$)E(L);: ZB$""S(L)(ZB$)S(L);6)RR%RR%1:660ZCHK(CHK$):CHK1000CHK:CHK(CHK):CHKCHK1000:CHK$(CHK):d936"ENTER 5 YEARS KINDERGARTEN PROJECTION"2:30::"LINE 1":FL0:FF1:732:1010200:L15:740::930868:::930ZB$"":7530&ZA$(8)590$0ZO1530R:(0):" ";:(0):ZOZO1:ZB$(ZB$,1,ZO)[D530tNZA$;:ZA$(13)630XZB$ZB$ZA$bZO(ZB$)l530v ROUND OFFCHK$(CHK)MM$" ":RR%1RR%4680MM$(CHK$,RR%):MM$(4CHK$CHK$"0"K* CHK$CHK$ZB$0!_,18:5::"DOLLAR AMOUNT IN THOUSANDS"::n NUMERICyZB$""" ";20900:ZB$ZN$ZN(ZN$):ZN15536ZZ%(ZN$)ZA$(46)ZA$(13)ZA$(8)ĭZA$(48)ZA$(57)ī(X$,I,1)"E"276 I/ CHK$(CHK):289J ZP$(X$,2): FIND EXPW J1I1n (X$,J,1)"."281 ZB$ZB$(X$,J,1) J LL(ZP$):ZB(ZB$) (ZB$,1)"-"ZBZB1:CHK$"-":ZB$(ZB$,ZB) LKLLZB CHK$CHK$"." K1LK)"RUN HELLO" 22:$ SCREENF 7:7:"1. FIRST YEAR -"::7b "2. SECOND YEAR-"::7~ "3. THIRD YEAR -"::7 "4. FOURTH YEAR-"::7 "5. FIFTH YEAR -"::7   FP CHECK CHK$"":ZB$"":J0:X$(CHK) I1(X$)  FILE$""608 (FILE$,1)"A"(FILE$,1)"Z"132C 14010 10:"WHAT WOULD YOU LIKE TO NAME THE FILE?":958::"";FILE$:FILE$""60 CX$(FILE$,1):(CX$)65(CX$)90140 13010 ::(1023)123Ģ10:"ONE MOMENT PLEASE...":(4" oWX(0)H p20:"(ENTER 1 - 6) ";:958:MN$:MN$"1"MN$"6"112n tMN%(MN$)::32000::YN$"N"60 v216,0:30000 xMN%710,140,130,15010,17010,150 6:"SAMPLE FILE: REVDAT" 10:"WHAT IS THE NAME OF THE FILE?":958::"";FILE$ 7ZF0) <::11:"REVENUE PROJECTION"3 =KK%0O >6:"WOULD YOU LIKE TO"m @:" 1) ENTER NEW DATA" A:" 2) SAVE DATA ON DISKETTE" F:" 3) READ DATA FROM DISKETTE" P:" 4) PRINT REPORT" Z:" 5) EDIT DATA" d:" 6) ENDHDREVENUE PROJECTION3COPYRIGHT MECC, 19819TLAST UPDATE: 8/25/81ZAUTHOR: MIS AND DUANE LOEWEN, MECC :ZZ(70)*RESTORE STACK PTR,"-ERRORS-".166,223,154,169,216,72,169,34,72,96 2D$(13)(4)                                    1:1:EANOTHER.";:10000:70b RE6ė:"SORRY, I CAN NOT FIND THAT FILE... TRY AGAIN.":10000:70k 105~ 'G71999::1 '24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0 '(16384)12810005 '16368,0 '24:1:868:4ė:"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM THE EDGE OF THE DISKETTE.":10000:105 RE8ė:"INSERT THE BUSINESS DISKETTE, AND CLOSE THE DISK DRIVE DOOR...":10000:105 RE10RE13ė:"YOU MAY NOT DELETE THAT FILE... ENTER + K24:"(TYPE 'DONE' WHEN DONE.)";:1:1e P23:868:"WHAT IS THE FILE'S NAME? ";NN$:NN$""80 ZA((NN$,1)):A65A9080 dNN$"DONE"ĉ::62 i34,21: n200 xD$"DELETE "NN$ }216,0 70 70 RE(222):216,0b REEATED WITH THE"::"REVPRG, ENROLL, AND SALARY PROGRAMS." 220:868:"DO YOU WANT TO DO THIS? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"Ģ23:"('YES' OR 'NO' PLEASE.)":50 <:YN$"Y"70 >(1023)123ĺD$"RUN HELLO" A F::D$"CATALOG" H768 PROGRAM: CLEANUP6 VERSION: 1.0 (MRF)S LAST UPDATE: 6/26/80Z r (C) MECC, 1979D$(13)(4)D$"NOMONC,I,O"::2:13:"C L E A N U P"9 (10:"THIS PROGRAM ALLOWS YOU TO DELETE"::"OLD FILES THAT WERE CRРî     20900:LZN!p L1LLANEī24140~ MD12470g 23:1:868:"INPUT DOLLAR AMOUNT";:20900:S$ZN$z (S$)7ī2440 2510 23:1:868:"MATRIX NO. ";:20900:ZDZN 20800 S$ZD$ (S$)72540 (S$)7ī1471 S$SPACE$S$ STEPS= 16368,0wB 23:1:"DO YOU WANT TO CHANGE ANYTHING? ";:868:"";CG$:CG$(CG$,1):CG$"Y"CG$"N"2370` CG$"N"Ģ15:2800:1471j 23:1:868:"INPUT STEP NO.";:20900:VZNl V0VSTPī2410 n 23:1:868:"INPUT LANE NO.? ";:STP$(V)STP$(V)S$L"8 HEADING STRINGSFLANES$""TV1LANE(LANE$(V))6LANE$(V)" "LANE$(V)" ":2290(LANE$(V))7LANE$(V)" "LANE$(V) LANES$LANES$LANE$(V) V$ LANES$" STEP"LANES$. 8 EDIT OFLANES$,41,75) VOSTP1 V$(" "(V),4)@>MD12140kHV2:1:V$;" ";(STP$(V),36,(7LANE))uR2150\V2:1:V$;" ";(MRIX$(V),36,(7LANE))fVz2360 STEP STRINGSTP$(V)""L1LANES$(" "(S(L)),7)ůӍà̠ԠϮůӍůӍůӍ̠ԍůӍ     ?~xc?oox p|ao?lxg}}>}~_~{}wsO{_qq~{nqan{`xq`o88`}~?~~gox?O}x~v_o>{m?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}}>}~_~{}w{{o_nn~{v{nn{{wn{O0?~}~?_qwlw`\o<~`ox?a@}xxw`>{m?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~`wpg_X_nvW_{]_~nwoo|?o?x?o~_}}8p~p`|?@{?|c@ooo}}`|a?l?~gO??p~~`|~n~{z{fn{{on{_ |~?_?|k{o;_ow[o{?>_ox? }xc}w_o>{m?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o        膢 ȱ " <67 L  8ij v vo> FK06000P? [A 31000aF j A71 A71A72ī2720 10:1:868:"HAVE YOU MODIFIED INCREMENTS? ";F$:(F$)12693 F$(F$,1):F$"Y"F$"N"2696 2693 F$"N"270(LANE6)7):" STEP";(LANES$,41,75)1VOSEP=V$(V)P(V$)4ī1720aV$SPACE$V$k1690V3:1:V$;" ";(M2$(V),36,(7LANE));V32410:FG0FK0İ6000:2990:10:10:"CHANGING PROGRAM"D$;"BLOAD CHAE$V$1390:V3:1:V$;" ";(S2$(V),36,(7LANE));AVN32410:j1:HD$:(LANES$,1,40)wV0SEPV$(V)(V$)4ī1570V$SPACE$V$1540"V3:1:V$;" ";(M2$(V),1,35);,V@32410$T1:A35:(HE$,1,10(LANES$,1,40) V0SEP' V$(V): (V$)4ī1270K V$SPACE$V$U 1240y V3:1:V$;" ";(S2$(V),1,35); V 32410 (1:A33:(HE$,1,10(LANE6)7):" STEP";(LANES$,41,75) ZVOSEP dV$(V) n(V$)4ī1420xV$SPAC800 :600 SPACE$" ":0 VO(SEP1)P D1$(V)"":I$(V)"":P$(V)""W Vc FX800} OP4OP5OP3ī3120 2990  LOOK AT SCHEDULES FK06000 jA32 qC5A34 t A31165,1170,1320,1470,1620  1:HD$:SCHEDULE":" 5. EDIT PROJECTED PERSONNEL MATRIX"| H:" 6. EDIT INCREMENTS BETWEEN STEPS":" 7. RETURN TO MAIN MENU" R19:"(ENTER 1 - 7) ?";:868:"";C1$:(C1$)1C1$"1"C1$"7"850 \C(C1$) fC750,3200,7000,1040,1040,2620,900 p520"SALARY PROJECTION".  EDIT PROJECTION7 *:4 /"WOULD YOU LIKE TO":::" 1. GENERATE PROJECTION FROM BASE YEAR"; 4:" 2. SAVE PROJECTED DATA ON DISKETTE":" 3. READ PROJECTED DATA FROM DISKETTE"2 >:" 4. EDIT PROJECTED SALARY ERATE OR EDIT PROJECTED DATA"G v:" 3. PRINT REPORTS"::" 4. END" 17:958:"(ENTER 1 - 4) ?";AN$:AN(AN$):AN1AN4AN(AN)640 AN700,800,2990,45000 D$"BLOAD CHAIN,A520" 520"SALARY CREATE" FY1:D$"BLOAD CHAIN,A520" r,PROGRAM NAME: PART TWO72 RESTORE STACK PTR G4"-ERRORS-"t7 166,223,154,169,216,72,169,34,72,96 c222,0:30000d1000X::2:15:"SALARY"b6:"DO YOU WANT TO" l8:" 1. ENTER OR EDIT DATA FOR BASE YEAR"::" 2. GEN                      ACE8OZ5(4),Z7(4): COMM=1, SERIAL=2, PAR=3, MALIBU=4bO: "-SEARCH-",24,56,56,24,72,72,8,72OZI$:ZI$"-SEARCH-"20243OZJ14:Z5(ZJ),Z7(ZJ):OZ2(2)OZW4940850944256OZG(ZW49152)256OZJ14 O(ZW5)Z5(ZJ)(ZW7) 0-OUTPUT BOTH, INPUT APPLE; 1-OUTPUT BOTH, INPUT PRINTER; 254-OUTPUT PRINTER ONLY, INPUT APPLE; 255-OUTPUT PRINTER ONLY, INPUT PRINTERO20232:20235OZH80 OZV0 O O:10:"ONE MOMENT PLEASE..." O20280O SEARCH SLOTS FOR AN INTERFQ)20220N20500)N10::ZJ120289cNZF$"COMM, SERIAL OR PARALLEL"ĺ(4);"PR#";ZG:20290wN(4)ZF$:20295N10:868:"WHICH SPEED (10 OR 30 CPS) ";NZN$:ZN$"10"ZN$"30"20220NZA17:ZN$"10"ZA82O ZH=CHAR/LINE; ZV=I/O:);"IN#0"+NZF$"COMM, SERIAL OR PARALLEL"xN(ZQ)ZF$"COMM, SERIAL OR PARALLEL"Ģ10:"ONE MOMENT PLEASE...":20240NZF$"COMM, SERIAL OR PARALLEL"ZJ120290N:5:"TURN YOUR PRINTER ON AT THIS TIME.":ZF$"COMM, SERIAL OR PARALLEL"ZJ1(ZjMD1ī8051$mVV$;" ";S1$(V).p8054BsVV$;" ";M1$(V)IvVXyD$;"PR#0"a|255k2990'D$;"BLOAD CHAIN,A520"'520"SALARY PROJECTION"* N MECC SUPPORTED SUBROUTINESNPRINTERNNZQĺ(13);(4);"PR#0":(4F:6:"WHAT TITLE WOULD YOU LIKE ON THIS"::MD2ĺ"SALARY SCHEDULE? ";:8012kI"PERSONNEL MATRIX? ";L958:"";T$:T$(T$,70)O:R20200U:XSTPVP[:40((T$)2))T$:^LANES$adVOSTPgVV$(" "(V),4)IS NO DATA FOR THE BASE YEAR."::"READ THIS DATA FROM THE DISKETTE OR"::"ENTER IT.":6020z"THERE IS NO PROJECTED DATA. PLEASE"::"READ THIS DATA FROM THE DISKETTE OR"::"ENTER IT."20500:@ HARD COPYBFG0İ6000:2990CMD3OPPVPLANES$&0VO(SEP1)3VV$(V)G(VV$)4ī4900Z\VV$SPACE$VV$d4600j$zBOP7ī5210LOP8ī5230ZVV$;" ";D1$(V)d5300nVV$;" ";P$(V)V:|D$"PR#0":2990p:10:FK06010\u"THERE PART TW0", HARD COPY SCHEDULE & MATRIXGFK0FG0İ6000:2990XOP7İ31230jOP8İ31230::15:1:"WHAT TITLE WOULD YOU LIKE TO GIVE THE":"REPORT (UP TO 70 CHARACTERS)?":T$:20000h:m:T$:SEP19:868:"(ENTER 1 - 9) ?";OP$:(OP$)13070@  OP$(OP$,1)_  (OP$)49(OP$)57ī3070m OP(OP$)} OP910000  0 HC$"Y" 5 D OP8000,8000,3142,3142,3142,1770,4000,4000 F FK0İ6000:2990 I D$;"BLOAD CHAIN,A520" N 520""3. PROJECTED SALARY SCHEDULE":"4. PROJECTED PERSONNEL MATRIX" :"5. INCREMENTS BETWEEN STEPS":"6. COST FACTORS FOR BOTH YEARS" :"7. DOLLAR INCREASE BETWEEN YEARS":"8. PERCENT INCREASE BETWEEN YEARS" :"9. RETURN TO MAIN MENU" / $;"PR#0" ]255 l2990) OPTIONSE FG0FK0İ6000:10000K ] D$(13)(4)f FX0q SEPVP 3:"WHICH REPORT DO YOU WANT TO SEE?" 32,2 :"1. SALARY SCHEDULE FROM BASE YEAR":"2. PERSONNEL MATRIX FROM BASE YEAR":? :06:5:"COST SECOND YEAR ";C1$' 5K :8:5:"COST FIRST YEAR ";C2$Q ?v D10:5:"COST ($) AMT. ";C3$| I N12:5:"PERCENT INCREASE ";C4$ O::15:5:"AVG. SAL.-1ST. YR.";M5$ P:17:5:"AVG. SAL.-2ND. YR.";M6$ S: XD,1030,1030,3120,3120,3120# 29906  COST FACTORSQ FG0FK0İ6000:2990Y :d 31840 ::15:1:"WHAT TITLE WOULD YOU LIKE TO GIVE THE": "REPORT (UP TO 70 CHARACTERS)?" :T$ : HC$"N"1840 &20000 +:T$:! ~ PROGRAM NAME: PART THREE92 RESTORE STACK PTRI4"-ERRORS-"7 166,223,154,169,216,72,169,34,72,96 c222,0:30000SPACE$" ":VO(SEP1)D1$(V)""I$(V)""P$(V)""V OP8000,8000,1030          ox>?|}?~?xp~@|_>?7{ox?s}|q}v[o>{m?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~?|>{o7ow[n~_wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}}>}~_~{}wwg?|{_ox<@}~??|_Oox?g}xGv[o>{m?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?~>{o7owo}_~ox_8onV;W[]_]nw_ox?|gРî     yxA?ooo}={{^o^k|sg}>}~_~{}w{~np{p{~`{{aq{wxO8oJV[_{]n]vox?>pp}xO}w[o>{m?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[gw_wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{s}>}~_~{}{~nnun{~n{{nn{w?~oxp67\_{]qcfoxG?G|}x}v[o>{m?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[ko_wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@}~_~{}{nnnnn{~n{ynnyw|g?|{oox?q?@}|?\oAn?8ok=?o{z^>?Wt?~Ox?x|}\oAp?OO|O@_~{~?k{m?_}vw?|x~0W]v[k6wmo.{~?y>x`ow[mawsownw_opq?xg~xA?oOoy]_{??oogO{}}>}~_~{A|qqpnpqan`{qq{wqq`}O$$`lLxpH$zj ۅ67]89 h`Hɍ, $i)$hL$8툔 *Ήh *$(`H$h ɍX ­툔0ݥ$`($$(H)? @(h ɛɕ 07 6LHɃ,Ƀ,hLE (LANEL)7) 2580T M1$(V)(M1$(V),1,(L1)7)S$(M1$(V),(L71),(LANE1)7)^ 1830t WRITING TO FILE( FG04000F S$(" "(STP),5):L$(" "(LANE),5) INF$(1)S$L$:INF$(2)LANES$ WRITE TO FILE1 5:"WHAT DO YOU W DOLLAR AMOUNT";:20900:S$ZN$1 (S$)7ī2440; 2510h 24:1:868:"MATRIX NO.";:20900:ZDZNs 20800~ S$ZD$ (S$)72540 (S$)72470 S$SPACE$S$ 2510 MD12570  S1$(V)(S1$(V),1,(L1)7)S$(S1$(V),(L71),868:"";CG$:CG$(CG$,1):CG$"Y"CG$"N"2370M` CG$"N"ĉ::SS1:2580}j 24:1:868:"INPUT STEP NO.";:20900:VZNl V0VSTPī2410n 24:1:868:"INPUT LANE NO.";:20900:LZNp L1LLANEī2414~ MD12470 24:1:868:"INPUTNE5(LANE$(V))6LANE$(V)" "LANE$(V)" ":2290^(LANE$(V))7LANE$(V)" "LANE$(V)y LANES$LANES$LANE$(V) V$ LANES$" STEP"LANES$. 8 EDIT OF STEPS; 34,23= 16368,00B 24:1:"DO YOU WANT TO CHANGE ANYTHING? ";:V$;" ";(S1$(V),36,(7LANE));'R2150R\V3:1:V$;" ";(M1$(V),36,(7LANE));YfVcz2360u STEP STRINGS1$(V)""L1LANES$(" "(S(L)),7)S1$(V)S1$(V)S$L HEADING STRINGSLANES$""V1LA,40)$lV0STP:V$(" "(V),4)3MD11980WV3:1:V$;" ";(S1$(V),1,35);a1990V3:1:V$;" ";(M1$(V),1,35);V23601:1:" STEP";(LANES$,41,75) VOSTP V$(" "(V),4)>MD12140HV3:1:LARY SCHEDULE";VV1LANET@10VV:1:868:"STEP "V", LANE ";:LANE10ĺ" ";rCVV" : ";:20900:S(VV)ZNzEVVJ2180OTV^3120 EDITFG04000S1#MD6C&:S22020DS3ıN1:1:HD$:(LANES$ 6. RETURN TO MAIN MENU"b17:"(ENTER 1 - 6) ?";:868:"";C1$:(C1$)1C1$"1"C1$"6"1500o C(C1$)w:16368,0C1570,2590,2940,1780,1780,210001471"#FH1:1290%FG1'LL$(LANE)6VOSTP81:13:"SAY"WOULD YOU LIKE TO"::" 1. ENTER SALARY SCHEDULE":" AND PERSONNEL MATRIX":" 2. SAVE DATA FOR BASE YEAR":" 3. READ DATA FOR BASE YEAR "::" 4. EDIT BASE YEAR SALARY SCHEDULE"" 5. EDIT BASE YEAR PERSONNEL MATRIX"::"  V1VLANE1430! V$(V)_ 22:1:868:"LANE NO. ";V$;" SHOULD BE? ";:"";LANE$(V) (LANE$(V))1(LANE$(V))61440 V1LANE V4:"LANE ";:V10ĺ" "; (V)" ?";LANE$(V);:868::V 1400 :2270: : :4ZV4:"LANE ";:V10ĺ" ";9 _V$" ";:868:LANE$(V)_ d(LANE$(V))6(LANE$(V))11370f nV x18:958:"ARE THESE ALL CORRECT? ";:868:"";BB$:BB$(BB$,1):BB$"Y"BB$"N"1400 BB$"Y"1470 20:1:868:"LANE NO. ";:20900:VZNER FROM 1 TO 10.":1300Z (13:"HOW MANY STEPS ARE THERE";:868:20900::958:STPZN1 2ST0ST20Ģ17:"PLEASE ENTER A NUMBER FROM 1 TO 21.":1320 7: <9:"ENTER LANE DESCRIPTION":8:"(SIX CHARACTERS OR LESS)" PV1LANE UV$(V) $"Y": NEEDED FOR ERROR HANDLING FROM LINE 3118I AA$"Y"İ2940:1470O b AA$"Y"ī1470h  7:"HOW MANY LANES ARE THERE IN YOUR"::"PERSONNEL AND SALARY MATRICES";:868:20900:LAZN :958 LA1LA10Ģ13:"PLEASE ENTER A NUMB" USER DEFINED FUNCTIONS8 START OF MAIN PROGRAME tC$(34)N FH0] SPACE$" "g 1471m v FH1 8:"ARE YOUR STEPS, LANES, AND"::"HEADINGS SAVED ON A FILE? ";:868:"";AA$:AA$(AA$,1):AA$"Y"AA$"N"1210 12500 AASALARY CREATE.COPYRIGHT MECC, 19814OLAST UPDATE: 8/02/81UpAUTHOR: D. H. LOEWEN("-ERRORS-",166,223,154,169,216,72,169,34,72,9616368,0INITIALIZATION::255D$(13)(4) D$;"NOMON I,C,O!! ! ! ! ! !!!!!!!!!   KETTE OR"::"ENTER IT.":6020z"THERE IS NO PROJECTED DATA. PLEASE"::"READ THIS DATA FROM THE DISKETTE OR"::"ENTER IT."20500:::10:"DO YOU WISH TO SAVE THE DATA WHICH IS"::"ALREADY IN MEMORY? ";AN$:AN$(AN$,1):AN$"Y"AN$"N"& V* V12#4 C$;INF1$(V);C$*> V7H V0SEPIR C$;M2$(V);C$P\ V]f V0SEPop C$;S2$(V);C$vz V 40030 STP(STP$) FK2 p:10:FG06010u"THERE IS NO DATA FOR THE BASE YEAR."::"READ THIS DATA FROM THE DIS  3314 D$:2 ZZ$:ZZ$"-ERRORS-"3311T ZZ09:ZX:753ZZ,ZX::753` 30000k 40010{ SEP$(SEP) (SEP$)5ī3360 SEP$SPACE$SEP$ 3330 INF$(1)SEP$(INF$(1),6,10)" VOSEP$ S2$(V)(S2$(V),1,(7LANE))RITING ON FILE.":FI$NNAME$- 40000:3310D 40020:A$:30000L D$ 10:"THERE IS ALREADY A FILE BY THAT NAME."::868:"DO YOU WANT TO WRITE OVER IT? ";XC$ (XC$,1,1)"Y"(XC$,1,1)"N"3300 (XC$,1,1)"N"İ40030:5:958:3260İ31250A12A21İ315303A12A22İ31780>32050I VPSEPW FK1:FX1q D$"BLOAD CHAIN,A520"520"PART TWO"  SAVING NEW SCHEDULE  5:1:"NEW SCHEDULE NAME? ";NNAME$ (NNAME$)1ī3260 7:1:"COMPUTER WWANT TO ADD A STEP(SCHEDULE)?";A2$:(A2$)11860BIA2$(A2$,1)aN(A2$)78(A2$)89ī1890kX1860sb:l15:1:"COMPUTER IS COMPUTING NEW SCHEDULE."vA2$"N"1940SEPSTP11950SEPSTPA11A21İ31000A11A22V 186016368,0!.V0STP:V$(V)IA1217803V:1:"INPUT($) AMT. FOR STEP ";V$;" ";:868:20900:D1(V)ZN17903V:1:"INPUT(%) FOR STEP ";V$;" ";:868:20900:D2(V)ZNV1D20:1:868:"DO YOU 1600EA1$(A1$,1)4J(A1$)89(A1$)78ī1630>T1595P^A1$"N"1725_`A121640b14:"INPUT DOLLAR AMOUNT";:20900d1650h14:"INPUT PERCENT";:20900rC1ZN|V0STPA11ī1700D2(V)C11710D1(V)C1STEP":,15:868:"(ENTER 1 OR 2) ?";A2$:(A2$)11580K.A2$(A2$,1)j1(A2$)49(A2$)50ī1580x6A2(A2$);:6:"DO YOU WANT THE SAME ";:A11ĺ"DOLLAR AMOUNT":1600?"PERCENTAGE"@8:868:"APPLIED TO EACH STEP? ";A1$:(A1$)1Č868:"(ENTER 1 OR 2) ?";A1$:(A1$)11560= A1$(A1$,1)\ (A1$)49(A1$)50ī1560j A1(A1$)p " $7:"DO YOU WANT THE AMOUNT OF THE INCREASE:" '::3:"1. ADDED TO STEP AND REPLACE STEP"*:3:"2. ADDED TO STEP AND REPLACE NEXT Y CREATE" FX0, D$"BLOAD CHAIN,A520"? 520"PART TWO"E Z FG0İ6000:600p FK1İ6100:7000 5:"DO YOU WANT TO GENERATE THE NEW"::"SCHEDULE WITH:": :4:"1. DOLLAR AMOUNT INCREASES"::4:"2. PERCENTAGE INCREASES", 15:NTER OR EDIT DATA FOR BASE YEAR"::" 2. GENERATE OR EDIT PROJECTED DATA"u v:" 3. PRINT REPORTS"::" 4. END " 17:958:"(ENTER 1 - 4) ?";AN$:AN(AN$):AN1AN4AN(AN)640 AN700,755,750,45000 D$"BLOAD CHAIN,A520" 520"SALAR(4)"BLOAD LIST 48K"O S1$(21),S2$(22),M1$(21),M2$(22),P$(22),D1$(22),I$(22)b D1(20),D2(20)y "S5(3),S7(3),CS(2) ,LANE$(10),S(21),M(21)  USER DEFINED FUNCTIONS X::2:11:"SALARY PROJECTION" b6:"DO YOU WANT TO"J l8:" 1. E0:1520 QQ1600 QQ16 INITIALIZATIONC ::255U D$(13)(4)k D$;"NOMON I,C,O"z SPACE$" " HD$"LANE# 1 2 3 4 5" HE$"LANE# 6 7 8 9 10" C$(34) 38016 10::%92 "-ERRORS-",166,223,154,169,216,72,169,34,72,96 Lc222,0:30000ad COPYRIGHT 1981~n NAME:SALARY PROJECTIONx AUTHOR:DUANE LOEWEN- MECCNW LANGUAGE: APPLESOFT (FP) ASSOCIATED FILES: TEXTFX1:16368,0 FY1FY"" " " " " """""""""