@CAT,P 1015-023-023.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1015-023-023,,,130116053241,000 )@@G@@**PF**@@@[ 6@@@@@@@@@@@[@H0@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]G@@@]F^ ;Q@@@@@@@@@@[E@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@9@@*@@@@@@@@@@@]@@@@@@@@UAC )@@G@@@@@@[[@@8@@@@@@@@@@@@@@@@@@@[ @[D@@@@@@@@@@@@@@@@@@@@^@@@@@D@@@@@@@@&@@@AD )@@G@@@@@@@/@[^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@AE )@@G@@@@G@@:@@#@@@@@?@@@@@F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@"@@=@@@@@@@@>@@;AF )@@G@@@@@@@(@@@@@@@@@@@@@[E@@@@@@@@@@@@@@@@@@@@@@@@@@4@@@@@@@@Z@@@@@@@@@@@@@@@AG )@@G@@@[]@@@@@B@@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@X@@@@@T@@@@@@@@@@@@@@@@@@AH )@@G@@@@0@@@@@@@@S@@@@@J@@@@@@@@@@@@@@@@@@@@7@@@@@@@@@@@@@@\@@@@@+@@@@@@@@@@@@AI )@@G@@@@@@@<@@@@@@@@@@@!@@@@@@@[B@@-@@@@@'@@[@@@@@Q@@@@@@@@@@@V@@H@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@K@@@@@@AK )@@G@@@@@@@1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@I@@@@@@@@C@[A@@@@@@AL )@@G@@@@@@@O@@@@@@@@@@@ @@@@@@@@@@@L@@@@@@@@R@@@@@@@@@@@,@[#@@@@@@@@@@@@@@$@@@AM )@@G@@@@@@@@@@@@@@@@%@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@[EAN )@@G@@ANTONYMS @@@@@@@@[@@@ @ @@@[@@@@@Q@@@@W@J&6EQBARITHMETIC AO )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@D@@@@WQJ-$EQBARRANGEMENTS@@@@@@@@[@@@AP )@@G@@ @ @@@[[@@@@O@@@@WZ^#BF1GDDFILEALPHA @@@@[C@@[@@@ BF )@@G@@@ @@@[[@@@@W@@@@>RLF@^EDFINANCE @@@@@@@@[@@@ @ @@@[@@@@@IBG )@@G@@@@@@>3J&IEQBFOR-TO-NEXT @@@@@@@@[@@@ @ @@@[@@@@@J@@@@&[^S4G DBH )@@G@@FPLOT @@@@@@@@[@@@ @ @@@[@@@@@X@@@@&KJXIEQBGAMBLE BI )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@E@@@@&!JX;EQBGAMES @@@@@@@@[@@@BJ )@@G@@ @ @@@[[@@@@[@@@@&7^>3^EDGOTOHELL @@@@@@@@[@@@ BK )@@G@@@ @@@[@@@@@S@@@@&8J&OEQBGRADES @@@@@3@@[@@@ @ @@@[[@@@@NBL )@@G@@@@@@$KK:-^EDGUESS @@@@@@@@[@@@ @ @@@[@@@@@G@@@@$JXLEQBKRIEGSPIEL @@@@@@@@[@@@ BP )@@G@@@ @@@[[@@@@-@@@@*!MLSECDLEAST-MEAN @@@@@@@@[@@@ @ @@@[[@@@@CBQ )@@G@@@@@@(I#6V^EDMOLARITY @@@@@@@@[@@@ @ @@@[[@@@@\@@@@(QFZZ BBR )@@G@@MORECOMMANDS@@@@@@@@[@@@ @ @@@[@@@@@X@@@@% G'G DMW BS )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@#@@@@%+J(+EQBOHM @@@@@@@@[@@@BT )@@G@@ @ @@@[@@@@@F@@@@%>#Y/AHCPASSWORD @@@@@@@@[@@@ BU )@@G@@@ @@@[@@@@@ @@@@%0J&&EQBPIZZA @@@@@@@@[@@@ @ @@@[@@@@@RBV )@@G@@@@@@%5J*UEQBPOLYROOT @@@@@@@@[@@@ @ @@@[@@@@@I@@@@:GK78AHCBW )@@G@@PROCEDURES @@@@@@@@[@@@ @ @@@[@@@@@L@@@@:UF&YG^DPYTHAGOREAN BX )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@T@@@@::^,IDODROULETTE @@@@@@@@[@@@BY )@@G@@ @ @@@[[@@@@Q@@@@?^#P!^EDSELFDESTRUCT@@@@@@@@[@@@ BZ )@@G@@@ @@@[[@@@@A@@@@?UKDM^EDSHOP @@@@@.@@[@@@ @ @@@[@@@@@_CA )@@G@@@@@@?)L"QCZDSIMULEQ @@@@@@@@[@@@ @ @@@[[@@@@F@@@@!Z^D$^EDCB )@@G@@SLOTS @@@@@@@@[@@@ @ @@@[@@@@@T@@@@!%J+=EQBSTAT01 CC )@@G@@@@@@@_@@[@@@ @ @@@[[@@@@P@@@@,#KJ9^EDSTRINGS @@@@@@@@[@@@CD )@@G@@ @ @@@[[@@@@L@@@@,S^:9G DSUMERIA @@@@@@@@[@@@ CE )@@G@@@ @@@[FRI@@W@@@@,(BH1GDDSUPER-BOWL @@@@@@@@[@@@ @ @@@[[@@@[FCF )@@G@@@@@@\ L[0^EDTAKE-AWAY @@@@@@@@[@@@ @ @@@[[@@@@T@@@@0KKSR^EDCG )@@G@@TICTACTOE @@@@@@@@[@@@ @ @@@[@@@@@O@@@@0(J-:EQBTRANSFERS CH )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@=@@@@0.^I^G DTURING @@@@@@@@[@@@CI )@@G@@ @ @@@[[@@@@G@@@@1-L.[^EDTUTORIAL @@@@@@@@[@@@ CJ )@@G@@@ @@@[[@@@@N@@@@1! =TG DTWENTY-ONE @@@@@@@@[@@@ @ @@@[@@@@@)CK )@@G@@@@@@2@J-^EQBUS @@@@@@@@[@@@ @ @@@[@@@@@S@@@@2)M-/AHCCL )@@G@@WHATS-THIS @@@@@@@@[@@@ @ @@@[[@@@@G@@@@28#J9^EDWORDY CM )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@E@@@@3^#1'^EDXI-AND-XE @@@@@@@@[@@@CN )@@G@@ @ @@@[@@@@@ @@@@3IJX1EQBZOOM21 @@@@@@@@[@@@ CO )@@G@@@ @@@[@@@@@Y@@@@3NJXPEQBLUNARLANDER @@@@@@@@[@@@ @ @@@[F@@@@RCP )@@G@@@@@@31D=BGDDBASEBALL @@@@@@@@[@@@ @ @@@[[@@@[(@@@@4CF F[NECQ )@@G@@MOO @@@@@@@@[@@@ @ @@@[[@@@@M@@@@51L,:]PEACEY-DEUCEY CR )@@G@@@@@@@@@@[@@@ @ @@@[[@@@@5@@@@6## ZBEEQUBIC @@@@@@@@[@@@CS )@@G@@ @ @@@[[@@@@"@@@@68G*KBEEJOTTO @@@@@@@@[@@@ CT )@@G@@@ @@@[[@@@@S@@@@76J!AFAEHANGMAN @@@@@@@@[@@@ @ @@@[[@@@@&CU )@@G@@@@@@8IJ,AFAEAMAZIN @@@@@@@@[@@@ @ @@@[[@@@@)@@@@84KTZFAECV )@@G@@BASIC @@@@@@@@A@@@ )@@]@@@@@@@;@@@@9OM]*EZEBASIC$ CW )@@G@@@@@@@@@@A@@@ )@@]@@@@@@F$@@@@'JM].EZEINIT @@@@@@@@]@@@CX )@@G@@ @[@@@[]@@@A1@@@[/MH>ZGFEMACROS @@@@@@@@[@@@NYU CY )@@G@@@ @@@[@@@@@C@@@]##[2']]FEDQ @@@@@@@K[@@@NEWS @ @@@[[@@@#KCZ )@@G@@@@@]#F[2;]]FAAPCT @@@@@@@@[@@@ @ @@@[@@@@@K@@@@!4F]L[QFDA )@@G@@CKEY @@@@@@@@[@@@ @ @@@[@@@@[D@@@@,^FAO[QFCNSLIT DB )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@B@@@@\HFE:[QFCSN @@@@@@@@[@@@DC )@@G@@ @ @@@[@@@@@^@@@@\OJ"K]$GBEDRC @@@@@@@@[@@@ @ @@@[@@@@@^@@@@\&KA1GBEDF )@@G@@EX8LOD @@@@@@@@[@@@ @ @@@[@@@@@]@@@@\%KB[GBEEXITF0 DG )@@G@@@@@@@@@@[@@@ @ @@@[@@@@@+@@@@\?KEXGBEFNCCNT @@@@[)@@[@@@DH )@@G@@ @ @@@[@@@@@^@@@@0IKFQGBEINIT1 @@@@[(@@[@@@ DI )@@G@@@ @@@[@@@@@^@@@@0MI(Q[]FINIT2 @@@@@@@@[@@@ @ @@@[@@@@@^DJ )@@G@@@@@@0QKG3GBEIO @@@@@@@@[@@@ @ @@@[@@@@@D@@@@0UAW9GMEDK )@@G@@KPOOL @@@@@@@@[@@@ @ @@@[@@@@@[@@@@0[L&EPEIO-WITH-FIX @@@@@@@@[@@@ @ @@@[@@@@[[EN )@@G@@@@@@8SL3 EQEAASMTAGS @@@@@@@@[@@@ @ @@@[[@@@[N@@@@9TEN5EREEO )@@G@@FALL @@@@@@@@[@@@ @ @@@[[@@@@Q@@@@'?O/1EVESN$AP EP )@@G@@@@@@@@@@[@@@ @ @@@[@@@@[=@@@@;]@I]EWEIO @@@@@@@@[@@@EQ )@@G@@ @ @@@[@@@@@/@@@@/&KZ%EYEIOMSA @@@@@@@@[@@@ ER )@@G@@@ @@@[@@@@@ @@@@.+MQREYESMSAPR @@@@]A@@[@@@ @ @@@[@@@@@FES )@@G@@@@@@.$MU2GDESMUPQ @@@@@@@@[@@@ EW )@@G@@@ @@@[@@@@@ @@@@":J#4GFEK DISTRIBUTION <<<<<<<<<',/,@G@@@@ *' ACCEX )@@G@@OUNT',T16,'FILES',T26,'FIXED',T37,'REMOV',T46,'SEC TAPES', @F@@@@ *EY )@@G@@T58,'V-OPTION',T69,'G-OPTION',T84,'F2',T95,'F4',T105,'F17', @E@@@@ *EZ )@@G@@T116,'F14',T127,'F40',/,' -----',21('------'),/,) @[@@@@ @ @@@@FA )@@G@@ 1003 FORMAT (1X,2A6,I6,10I11)@[@@@@ @B@@@@ 1004 FORMAT (1X,2A6,I4,FB )@@G@@I7,I6,6I5,2I6) @[@@@@ @D@@@@ 1005 FORMAT ('0FILES:',I6,', FIXEDFC )@@G@@ TRACKS:',I6, @E@@@@ *', V-OPT TRACKS:',I6,', SECURE BACKUP BLFD )@@G@@OCKS:',I6,/,@C@@@@ *16X,'REMOV TRACKS:',I6,', G-OPT TRACKS:',@ @@@@FE )@@G@@ *I6,A1,' UNLOADED:',I6) @[@@@@ @C@@@@ 1006 FORMAT(1H1,'SUMMARFF )@@G@@Y BY BILLING AREA: ', @E@@@@ *3X,'FILES (F) TRACKS (R) V/G-OPFG )@@G@@T SEC TAPES'/) @[@@@@ @A@@@@ 1007 FORMAT(1H0,4A6,4I9,3X,I9) FH )@@G@@@[@@@@ @ @@@@ 1008 FORMAT ('0END GBILL') @[@@@@ @ @@@@ 2000 FI )@@G@@FORMAT(4A6,I4,10I5,'GB')@[@@@@ @]@@@@ END ___ F1RE BACKUP BLFJ )@@G@@)@@@F]S@@@@@)@#@C@)@]@C@)[G@C@)@#@IS)@?@C@IN HOU@@@@@[@@@@@@@@@@@@@@@@@@FK )@@G@@/,0@@@AA@@@F)@![S@@@@@@@ /AMC ORNELLROCK/C ER L CENTMEDICAFL )@@G@@ SE AB@@@F)@8[S@@@@@@@,G) ACT (T,USTUDENCH RESEARSORED FM )@@G@@UNSPON SEARCHRED RESPONSOAC@@@F)[#[C@@@@@@@)@[@E@@@@@@@ FN )@@G@@ OTHER EXEC CTS AD@@@F)@][F#L#L#L#L] #@K3@@@@@FO )@@G@@;)@@@PC@@@@]@[=@@@@@@@[H/,0@@@ @@[X4 @@[X3 @@[X2 @@[X1AE@@@F)@F[M[@^G^G1FP )@@G@@#H#G@@C@@@@][^0@@]+8);__C^)@@][@@@@#C/@@@[/K@@@L*@@@@GG/@__";C@@@[S@@@@@@@ IS )@@G@@ -K@@@@)90[S@@@@@@@ IT )@@G@@ -L@@@@)9;[S@@@@@@@ IU )@@G@@ -M@@@@)'A[S@@@@@@@IV )@@G@@ -N@@@@IW )@@G@@)'L[S@@@@@@@ IX )@@G@@ -O@@@@)'W[S@@@@@@@ IY )@@G@@ -P@@@@)'$[S@@@@@@@ IZ )@@G@@ -Q@@@@)'2[S@@@@@@@ JA )@@G@@ -R@@@@)'.[S@@@@@@@ JB )@@G@@ -S@@@@);C[S@@@@@@@JC )@@G@@ -T@@@@JD )@@G@@);N[S@@@@@@@ JE )@@G@@ -U@@@@);Y[S@@@@@@@ JF )@@G@@ -V@@@@);([S@@@@@@@ JG )@@G@@ -W@@@@);4[S@@@@@@@ JH )@@G@@ -X@@@@);_[S@@@@@@@ JI )@@G@@ -Y@@@@)/E[S@@@@@@@JJ )@@G@@ -Z@@@@JK )@@G@@)/P[S@@@@@@@ JL )@@G@@ +A@@@@)/)[S@@@@@@@ JM )@@G@@ +B@@@@)/:[S@@@@@@@ JN )@@G@@ +C@@@@)/6[S@@@@@@@ JO )@@G@@ +D@@@@).[[S@@@@@@@ JP )@@G@@ +E@@@@).G[S@@@@@@@JQ )@@G@@ +F@@@@JR )@@G@@).R[S@@@@@@@ JS )@@G@@ +G@@@@).+[S@@@@@@@ JT )@@G@@ +H@@@@).![S@@@@@@@ JU )@@G@@ +I@@@@).8[S@@@@@@@ JV )@@G@@ +J@@@@)"#[S@@@@@@@ JW )@@G@@ +K@@@@)"I[S@@@@@@@JX )@@G@@ +L@@@@JY )@@G@@)"T[S@@@@@@@ JZ )@@G@@ +M@@@@)"=[S@@@@@@@ KA )@@G@@ +N@@@@)"\[S@@@@@@@ KB )@@G@@ +O@@@@)"'[S@@@@@@@ KC )@@G@@ +P@@@@)_ [S@@@@@@@ KD )@@G@@ +Q@@@@)_K[S@@@@@@@KE )@@G@@ +R@@@@KF )@@G@@)_V[S@@@@@@@ KG )@@G@@ +S@@@@)_&[S@@@@@@@ KH )@@G@@ +T@@@@)_1[S@@@@@@@ KI )@@G@@ +U@@@@)_/[S@@@@@@@ KJ )@@G@@ +V@@@@-@B[S@@@@@@@ KK )@@G@@ +W@@@@-@M[S@@@@@@@KL )@@G@@ +X@@@@KM )@@G@@-@X[S@@@@@@@ KN )@@G@@ +Y@@@@-@*[S@@@@@@@ KO )@@G@@ +Z@@@@-@3[S@@@@@@@ KP )@@G@@ @@@@@@LE )@@G@@@@A@@A[@@[#C@@@@@@@@A@@A[@@[# @@@@@[@@A@@A@[N#@^G@K0[#@@@@C )[A;R@W@@^[ -@@[LZ )@@G@@C )[A9R@W@@#[ -@@[C )[A7R@W@@][ -@@[C )[A5=F@@@@)>E[M^G@K0[#@@@@@@[ -@@[MA )@@G@@C )[B[R@W@@B[ -@@[C )[A_R@W@@A[ -@@[C )[A.R@W@@ [ -@@[=G@@@@)>O[MK0[#@^GMB )@@G@@@@@@@@R@W@@F[ -@@[C )[BBR@W@@E[ -@@[C )[B R@W@@D[ -@@[C )[B#R@W@@C=H@@@@MC )@@G@@)>Y[N#@^G[#@K]6]@@/K@@>!:80@]A/ )@>!H9)@@[C[)@[X[ -@@[C )[BFR@W@@G[ -@@[MD )@@G@@C )[BD=I@@@@)>*[MK0^G[#@K0K0@@M@-)@@R@)[:PR@K[:ON8K@@ [[)@[XC[\@@@[[)@[ZME )@@G@@C[\@@[[@0@[YG80@@]=J@@@@)>2[MK0K0^G^G^G@@@/KF@@@*4F@@@OY;@@@R@)[A-R@K[A)MF )@@G@@N@K[AZM@-)@@R@)[:RR@K[:QN8K@@T=K@@@@)>/[MK^G^G^G[#[#@@N8K@@ M@M)@@R@)[:RMG )@@G@@R@K[:QN8K@@TA@)[A-A@K[A)^@K[AZ/K@@>'O'0@@[=L@@@@)&A[N#[#@K0K0@K0@@R;F0@@MH )@@G@@9()[A29!?@@@R;F0@@&'0@@[R@)[A-R@K[A)M@M)@@R@)[:PR@K[:O=M@@@@)&K[MK0[#@^GMI )@@G@@@@@@@@9!?@@@R;F0@@9()[A89!?@@@R;F0@@9()[A69!?@@@R;F0@@9()[A49!?@@@=N@@@@MJ )@@G@@)&U[N#@^G@K0[#@@@@9()[B@9!?@@@R;F0@@9()[A"9!?@@@R;F0@@9()[A/9!?@@@R;F0@@MK )@@G@@9()[A'=O@@@@)&=[M^G@K0[#@@@@@@R;F0@@9()[BA9!?@@@R;F0@@9()[B^9!?@@@R;F0@@ML )@@G@@9()[B]9!?@@@R;F0@@=P@@@@)&,[EK0[#[#[@K0ES@@@@@@@R9K[B] ^@[B#/,)@BNC[)[ADMM )@@G@@9()[BE9!?@@@R;F0@@9()[BC9!?@@@=Q@@@@)&7[E())CS G]&]@O0ESC@@@/,)@A,R9)[A6MN )@@G@@R9K[C /,)@A,R9)[B/R9K[C ^@[CA/,)@A,R9)[B9=R@@@@)$@[E()O0K^G^G]&UA[KK@@@MO )@@G@@/,0@ )R'K@$EC#@LA(R9K@N7C @[CAQB)[C /,)@A,R9)[A4R9K[C =S@@@@)$D[F@K0K0ETMP )@@G@@*S [@ES G@@@R9)[O1R9K[A2/,0@ )R'K@$NC#@LA(R9K@ODC @[A3QB)[A2/K@@/0=T@@@@MQ )@@G@@)$M[F@K0ES G^[#@()O0K@@@/,)@A,R9)[A2R9K[B5 ^@[B6/,)@A,R9)[O4R9K[A, ^@[A\MR )@@G@@/,0@^:=U@@@@)$V[F@K0ES G^@()O0K]&@@@R9K[C /,)@A,R9)[A4R9K[C /,)@A,R9)[B/MS )@@G@@R9K[C ^@[CA/K@[[==V@@@@)$=[E())CSCS G4G]))CS@@@ ^@[CA/,0@ )R'K[[YC#@LA(MT )@@G@@R9K@OPC @[CAQB)[C /,)@A,R9)[B/=W@@@@)$![E()O0K]&[N[@K0ES G@@R9)[C R9K[B$MU )@@G@@ ^@[B*/,)@A,R9)[O7R9K[C /,)@A,R9)[B$R9K[C =X@@@@)$6[F@K0ES G^@()O0K^G@@@MV )@@G@@ ^@[B\/,)@A,R9)[O7R9K[C /,)@A,R9)[B,R9K[C ^@[CA/,)@A,=Y@@@@)$_[E()O0K^GMW )@@G@@]&[N[@ES G@@R9)[B$R9K[C /,)@A,R9)[O"R9K[C ^@[CA/,)@A,R9)[C R9K[B,=Z@@@@MX )@@G@@)*C[F@ES G^[#@()O0K^@@@@/K@[[?/,)@A,R9)[C R9K[A/ ^@[A./,)@A,R9)[B,R9K[C MY )@@G@@/,)@A,>A@@@@)*L[F#@()O0K^[#@()O0K@@@/,)@A,R9)[P R9K[B] ^@[B#/K@@*9/,)@A,MZ )@@G@@R9)[P]R9K[B] ^@[B#>B@@@@)*U[F@K0ES G^[@K0ES G@@@R9)[PFR9K[B] ^@[B#/K@@*9NA )@@G@@/,)@A,R9)[PCR9K[B] ^@[B#/K@@*9>C@@@@)*<[F@K^G]&[N[@K^G]&@@@@R9K[B] ^@[B#NB )@@G@@/K@@*9/,)@A,R9)[B/R9K[B] ^@[B#/K@@*9/,)@A,>D@@@@)*?[E())C]A[N@())C]A@@@@NC )@@G@@ ^@[B#/K@@*9/,)@A,R9)[PLR9K[B] ^@[B#/K@@*9/,)@A,R9)[PI>E@@@@)*5[E()O0K^[ND )@@G@@#@()O0K]&@@@R9K[C /,)@A,R9)[B/R9K[C ^@[CA/K@@*9/,)@A,R9)[POR9K[B]>F@@@@NE )@@G@@)*"[E()) G]&]@-)O0ESC@@@/,)@A,R9)[C R9K[A4 ^@[A5/,)@A,R9)[PRR9K[C /,)@A,NF )@@G@@R9)[A4>G@@@@)(B[F#[#@(&-)O^[#@()O0@@R9)[A8R9K[C ^@[CA/,0@ )R'K[[YC#@LA(NG )@@G@@R9K@PJC @[A5QB)[A4>H@@@@)(K[F@ES G^[#@()O0K^G@@@ ^@[CA/,)@A,R9)[C R9K[A8NH )@@G@@ ^@[A9/,)@A,R9)[PYR9K[C /,)@A,>I@@@@)(T[E()O0K]&[N[@ES G^@@@/,)@A,R9)[P>NI )@@G@@R9K[C /,)@A,R9)[B]R9K[C /,)@A,R9)[P+R9K[C >J@@@@)(+[E()O0K^G]&[N[@K^G@@@NJ )@@G@@ ^@[B#/K@[[?/,)@A,R9)[C R9K[A/ ^@[A./,)@A,R9)[A8R9K[C >K@@@@)(:[E()O0K^[NK )@@G@@#@()O0K^@@@@/K@@!F/,)@A,R9)[P R9K[B] ^@[B#/K@@!F/,)@A,R9)[P]R9K[B]>L@@@@NL )@@G@@)(4[F#@()O0K^[#@()O0K@@@/,)@A,R9)[PFR9K[B] ^@[B#/K@@!F/,)@A,R9)[PCR9K[B]NM )@@G@@ ^@[B#>M@@@@)(.[F@K0ES G^[@K0ES G@@@R9)[PIR9K[B] ^@[B#/K@@?>/,)@A,R9)[B/NN )@@G@@R9K[B] ^@[B#/K@@!F>N@@@@)%A[F@K^G^G]&UA[KK]&@@@@R9K[A4/,0@ )R'K@%MC#@LA(NO )@@G@@R9K@P1C @[A5QB)[A4/K@@?>/,)@A,>O@@@@)%J[E())C]A]A[NH#@*C@@@@/,0@ )R'K@%WNP )@@G@@C#@LA(R9K@P_C @[A5QB)[A4/K@@%>/,0@^:R9)[P?>P@@@@)%S[E()O0K^[#[#@(&-)O@@@NQ )@@G@@R'K[[YC#@LA(R9K@QHC @[A5QB)[A4/K@@%>/,0@^:R9)[P2R9K[A4>Q@@@@)%-[F@ES G^[NR )@@G@@#@()O0K]&@@@R9K[C /,)@A,R9)[P;R9K[C ^@[CA/,0@^:R9)[P8R9K[A4/,0@ )>R@@@@NS )@@G@@)%%[E()) G]&]@-)O0ESC@@@/,)@A,R9)[C R9K[A/ ^@[A./,)@A,R9)[P"R9K[C /,)@A,NT )@@G@@R9)[A4>S@@@@)%3[F@K0K0ET*S [@K0K0@@@9()[A>9!)@[V/,0@ )R'K[[YC#@LA(R9K@QVNU )@@G@@C @[A5QB)[A4/K@[[?>T@@@@)%/[F#@*CSC[50A]@-)-)@@@:8@@@[9()@[V9!)[A>/@@@:UNV )@@G@@@[@[A4/K@[X%A]0@[ZR'0@:@A#0@[Y>U@@@@): [F@^G^[#[#@()O0K@@@@@/,)@A,R9)[A?NW )@@G@@R9K[C ^@[CA @@[A!/K@@:E9()[A?9!?@@@/K@@:D>V@@@@):I[F#@()O0K]&[N[@K0ES@@NX )@@G@@R9K[A/ ^@[A./,)@A,R9)[C R9K[QD/,)@A,R9)[Q R9K[QD ^@[QE>W@@@@):R[E())C]A]NY )@@G@@A]A[KK0K@@@@/K@[D@A]0@[ZR'0@:)A#0@[Y9()[A>9!)@[V/K@@:9/,)@A,R9)[QD>X@@@@NZ )@@G@@):)[E'8#[@K0K0^@K0K@@@@@/K@@:%9()[A?9!?@@@/K@@:(:8@@@[9()@[V9!)[A>/@@@:9OA )@@G@@@[@[A4>Y@@@@):([F#[#@()O0K^G]&[N[@@@/,)@A,R9)[Q R9K[QD ^@[QE/,)@A,R9)[A?OB )@@G@@R9K[C ^@[CA @@[A!>Z@@@@):2[E()O0K^G]&[N[@K0K0@@[[)L(FC )[A./,)@A,R9)[QDOC )@@G@@R9K[A/ ^@[A./,)@A,R9)[C R9K[QD&A@@@@):;[F#@K0K[#[#[#[#@@@@@@A#0@[Y9()[A>OD )@@G@@9!)@[V[[)L(F @@@@M/ )@?@W[)L(];P)@@=C[)L(F&B@@@@)?^[E*CSC[50A]@-)-)C@@@@OE )@@G@@/K@@?K:8@@@[9()@[V9!)[A>/@@@?V@[@[(F/K@@B!A]0@[ZR'0@?B&C@@@@)?H[EK0K^G^GOF )@@G@@]&[N[@K0@@@@QB)[C /,)@A,R9)[A?R9K[C ^@[CA @@[A!/K@@?L9()[A?9!?@@@&D@@@@OG )@@G@@)?Q[F#@(&-)O^[#[#@(&-)@@C#@LA(R9K@RAC @[A.QB)[A//,0@ )R'K@?VC#@LA(R9K@Q&OH )@@G@@C @[CA&E@@@@)?Z[E*C[N@())C]A[N@()@@@R9)[P+R9K[C ^@[CA/K@[[?/,0@^:R9)[BAOI )@@G@@R9K[A//,0@ )R'K[[?&F@@@@)?*[F@ES G^@()O0K^G^G@@@9()[A>9!)@[V/,)@A,R9)[P"OJ )@@G@@R9K[C /,)@A,R9)[B]R9K[C /,)@A,&G@@@@)?1[F#@*CSC[50A]@-)-)@@@:8@@@[9()@[VOK )@@G@@9!)[A>/@@[[?@[@[A4/K@[D@A]0@[ZR'0@?5A#0@[Y&H@@@@)?'[F@^G^[#[#@()O0K@@@@@OL )@@G@@/,)@A,R9)[A?R9K[QD ^@[QE @@[A!/K@@?_9()[A?9!?@@@/K@@?"&I@@@@)!#[E()O0K^GOM )@@G@@]&[N[@K^G@@@ ^@[CA/K@[[?/,)@A,R9)[C R9K[A/ ^@[A./,)@A,R9)[QDR9K[C &J@@@@ON )@@G@@)!G[E()O0K]&[N[@ES G^@@@/,)@A,R9)[B/R9K[C /,)@A,R9)[A4R9K[C /,)@A,R9)[B/OO )@@G@@R9K[C &K@@@@)!P[F#@()O0K^G^G]&UA[K@@R'K[[YC#@LA(R9K@RLC @[A5QB)[A4/,)@A,OP )@@G@@R9)[C R9K[A4 ^@[A5&L@@@@)!Y[F@K0K0ET*S [@K0K0@@@C @[BDQB)[BC/,0@ )R'K@!?OQ )@@G@@C#@LA(R9K@R\C @[B#QB)[B]/,0@ )&M@@@@)!$[E(&-)O^[@K0ES G^@@@@/,)@A,R9)[(MOR )@@G@@R9K[C ^@[CA/K@[[Y/,0@ )R'K@!?C#@LA(R9K@R.&N@@@@)!0[E()O0K]&[N[@K0K0K0@@OS )@@G@@9!)@[V[[)L(FC )[BD/,)@A,R9)[P"R9K[C /,)@A,R9)[B]R9K[C &O@@@@)!9[F#[#@*CSOT )@@G@@C[50A]@-)-)@9()@[V9!)[A>/@@@,T@[@[(F/K@@B!A]0@[ZR'0@!"A#0@[Y9()[A>&P@@@@OU )@@G@@),][EK[#[@K0K0ES G@@@@@@R9)[A?R9K[QD ^@[QE @@[A!/K@@,C9()[A?9!?@@@/K@@,BOV )@@G@@:8@@@[&Q@@@@),F[F@ES G^@()O0K]&[N@@@R9)[(PR9K[C /,)@A,R9)[BCR9K[C /,)@A,OW )@@G@@R9)[QDR9K[C /,)@A,&R@@@@),O[F@K0ES G^[#[#[#@@@@@;P)@@=C[)L(F[[)L(FC )[A.OX )@@G@@/,)@A,R9)[C R9K[A/ ^@[A./,)@A,&S@@@@),X[F#[@^G^G^G^G])-)@@@@A]0@[ZR'0@,$OY )@@G@@A#0@[Y9()[A>9!)@[V[[)L(F @@@@M/ )@,)W[)L(]&T@@@@),&[F@I,@0K^G^G[@^G@@@@@OZ )@@G@@9()[A?9!?@@@/K@@,0:8@@@[9()@[V9!)[A>/@@@,;@[@[(F/K@@B!&U@@@@),\[F@K0K0ESPA )@@G@@ G^[#[#@(&@@R9K@S C @[CAQB)[C /,)@A,R9)[A?R9K[C ^@[CA @@[A!/K@@,1&V@@@@PB )@@G@@),8[F#@*C]A]A[NH#@*C@@@@/,0@ )R'K[[?C#@LA(R9K@S>C @[A.QB)[A//,0@ )R'K@,;PC )@@G@@C#@LA(&W@@@@)\[[E()O0K^[#@()O0K^@@@@/K@@\I/,)@A,R9)[P R9K[B] ^@[B#/K@[[?PD )@@G@@/,0@^:R9)[BAR9K[A/&X@@@@)\E[F#@()O0K^G]&[N[@ES@@R9K[C /,)@A,R9)[(MR9K[C PE )@@G@@ ^@[CA/,)@A,R9)[P]R9K[B] ^@[B#&Y@@@@)\N[E()) G]&]@-)O0ESC@@@/,)@A,R9)[C PF )@@G@@R9K[A/ ^@[A./,)@A,R9)[(SR9K[C /,)@A,R9)[B]&Z@@@@)\W[F#[#@(&-)O^[#[#@(&@@PG )@@G@@R9K@S;C @[A5QB)[A4/,0@ )R'K[[YC#@LA(R9K@S0C @[A5QB)[A4$A@@@@)\>[F#@*C]A[PH )@@G@@N@()) G]&@@@R9)[A4R9K[C /,)@A,R9)[B/R9K[C ^@[CA/,0@ )R'K@14C#@LA($B@@@@PI )@@G@@)\,[F@ES G^[#@()O0K^G@@@QB)[A4/,)@A,R9)[C R9K[A4 ^@[A5/,)@A,R9)[B/R9K[C PJ )@@G@@/,)@A,$C@@@@)\7[F#@(&-)O^@()O0K^G@@@C )[BD/,0@^:R9)[A$R9K[A4/,0@ )R'K@1CPK )@@G@@C#@LA(R9K@T#C @[A5$D@@@@)0@[F#[#[#[#@*CSC[50A]@@/@@@0T@[@[(F/K@@B!A]0@[ZPL )@@G@@R'0@0BA#0@[Y9()[A>9!)@[V[[)L(F$E@@@@)0D[F#[#@K[#[@K0K0@@@@@@ ^@[CA @@[A!PM )@@G@@/K@@0L9()[A?9!?@@@/K@@0K:8@@@[9()@[V9!)[A>$F@@@@)0M[E()O0K^G]&[N[@K0ES@@PN )@@G@@R9K[C ^@[CA/,)@A,R9)[C R9K[BE ^@[BF/,)@A,R9)[A?R9K[C $G@@@@)0V[E()) G]&PO )@@G@@]@-)O0ESC@@@/,)@A,R9)[C R9K[BC ^@[BD/,)@A,R9)[(PR9K[C /,)@A,R9)[BC$H@@@@PP )@@G@@)0=[F#[#[#@K0K[#[#@@@@@@C[)L(F[[)L(F @@@@M/ )@0:W[)L(];P)@@=C[)L(F[[)L(FPQ )@@G@@C )[BD$I@@@@)0![F#[@^G^G^G^G^G]&S@@@R9K@T3C @[BDQB)[BC[[)L(ZC[)L(F[[0L(FPR )@@G@@ @@@@N/ 0@00S[)L(]$J@@@@)06[F#@*C]A[N@()) G]&@@@R9)[BER9K[C /,)@A,R9)[A/PS )@@G@@R9K[C ^@[CA/,0@ )R'K@09C#@LA($K@@@@)0_[F@ES G^[#@()O0K^@@@@/K@@\+/,)@A,PT )@@G@@R9)[C R9K[A/ ^@[A./,)@A,R9)[BCR9K[C /,)@A,$L@@@@)1C[F#[#[#@*CSC[50A]@-)@PU )@@G@@9!)[A>/@@@\+@[@[A4/K@[D@A]0@[ZR'0@1IA#0@[Y9()[A>9!)@[V$M@@@@)1L[F#@K[#[@PV )@@G@@K0K0ES@@@@@@R9K[C ^@[CA @@[A!/K@@1S9()[A?9!?@@@/K@@1R:8@@@[9()@[V$N@@@@PW )@@G@@)1U[E())CS G]&]@O0ESC@@@/,)@A,R9)[C R9K[QD/,)@A,R9)[A/R9K[QD ^@[QE/,)@A,PX )@@G@@R9)[A?$O@@@@)1<[F#@()O0K^[#@()O0K@@@/,)@A,R9)[A/R9K[C ^@[CA/K@@\+/,)@A,PY )@@G@@R9)[QDR9K[A/ ^@[A.$P@@@@)1?[E()O0K^G]&[N[@K^G@@@C )[A./K@@\+/,)@A,R9)[C PZ )@@G@@R9K[A/ ^@[A./,)@A,R9)[B^R9K[C $Q@@@@)15[F#[#@K0K[#[#[#@@@@@@9()[A>9!)@[VQA )@@G@@[[)L(F @@@@M/ )@1;W[)L(];P)@@=C[)L(F[[)L(F$R@@@@)1"[F#@*CSC[50A]@-)-)@@@QB )@@G@@:8@@@[9()@[V9!)[A>/@@@2Q@[@[(F/K@@B!A]0@[ZR'0@2]A#0@[Y$S@@@@)2B[F@^G^[#[QC )@@G@@#@()O0K@@@@@/,)@A,R9)[A?R9K[C ^@[CA @@[A!/K@@2G9()[A?9!?@@@/K@@2F$T@@@@QD )@@G@@)2K[F#[#@(&-)O^[#[#@(&@@R9K@U%C @[A.QB)[A//,0@ )R'K@2QC#@LA(R9K@UEC @[CAQE )@@G@@QB)[C $U@@@@)2T[F#@*C[N@())C]A[N@@@@R9K[B] ^@[B#/K@[[?/,0@^:R9)[BAR9K[A/QF )@@G@@/,0@ )R'K[[?C#@LA($V@@@@)2+[E())CS G]&]@-)-)O3@@R9K@U5C @[A7QB)[A6/,)@A,QG )@@G@@R9)[(+R9K[BC ^@[BD/,)@A,R9)[P $W@@@@)2:[F#@*C]@-)-)O3K0E@@@@R'K[[YC#@LA(QH )@@G@@R9K@U9C @[A7QB)[A6/K@@3M/,0@ )R'K@2\C#@LA($X@@@@)24[F@K0ES G^@()O0K^G@@@QI )@@G@@ ^@[A5/,)@A,R9)[A4R9K[C /,)@A,R9)[B/R9K[C ^@[CA/,0@ )$Y@@@@)2.[E()O0K^GQJ )@@G@@^G]&UA[KK@@@/,0@ )R'K@3DC#@LA(R9K@U.C @[A5QB)[A4/,)@A,R9)[C R9K[A4$Z@@@@QK )@@G@@)3A[E()O0K^G^G]&UA[KK@@@/,0@ )R'K[[YC#@LA(R9K@V:C @[A5QB)[A4/,0@^:R9)[A$QL )@@G@@R9K[A4*A@@@@)3J[E()O0K^G]&[N[@ES G@@R9)[BCR9K[C /,)@A,R9)[A2R9K[C ^@[CAQM )@@G@@/,0@^:R9)[A$R9K[A4*B@@@@)3S[F@K0ES G^[#[#@(&-)@@C#@LA(R9K@WBC @[BDQB)[BCQN )@@G@@/,)@A,R9)[C R9K[BC ^@[BD/,)@A,*C@@@@)3-[E*C]@-)-)-)O^G^@@@@@/K@[D@A]0@[ZQO )@@G@@R'0@3%A#0@[Y9()[A>9!)@[V/K@[[Y/,0@ )R'K@3=*D@@@@)3%[E'8#[@K0K0^@K0K@@@@@QP )@@G@@/K@@349()[A?9!?@@@/K@@33:8@@@[9()@[V9!)[A>/@@[[Y@[@[BC*E@@@@)33[F#[#@()OQQ )@@G@@0K^G]&[N[@@@/,)@A,R9)[C R9K[A/ ^@[A./,)@A,R9)[A?R9K[C ^@[CA @@[A!*F@@@@QR )@@G@@)3/[F#@()O0K]&[N[@K0ES@@R9K[A4 ^@[A5/,)@A,R9)[A4R9K[C /,)@A,R9)[B/R9K[C QS )@@G@@ ^@[CA*G@@@@)4 [E())CSCS G4G])) G@@@R9K[A4/,0@ )R'K@5TC#@LA(R9K@WFC @[A5QT )@@G@@QB)[A4/,)@A,R9)[C *H@@@@)4I[E())CSCSCSCSCS [#@@@A]0@[ZR'0@4SA#0@[Y9()[A>QU )@@G@@9!)@[V[[)L(FC )[BD/,0@^:R9)[A$*I@@@@)4R[F@I,@0K^G^G[@^G@@@@@9()[A?9!?@@@QV )@@G@@/K@@4-:8@@@[9()@[V9!)[A>/@@@4%@[@[(F/K@@B!*J@@@@)4)[F@K0K0ES G^[#@()O0@@QW )@@G@@R9)[C R9K[BE ^@[BF/,)@A,R9)[A?R9K[C ^@[CA @@[A!/K@@4+*K@@@@)4([F@K0ES GQX )@@G@@^@()O0K^G@@@ ^@[BD/,)@A,R9)[(PR9K[C /,)@A,R9)[BCR9K[C ^@[CA/,)@A,*L@@@@QY )@@G@@)42[E()O0K^G^G^G[#[@@@@@/ )@4/W[)L(];P)@@=C[)L(F[[)L(FC )[BD/,)@A,R9)[C QZ )@@G@@R9K[BC*M@@@@)4;[EK0K0K0K[#[#[#@@@@@@[[)L(%C[)L(F[[0L(F @@@@N/ 0@5[S[)L(]RA )@@G@@C[)L(F[[)L(F @@@@M*N@@@@)5^[F#[#@(&-)O^[#@()O0@@R9)[A/R9K[C ^@[CA/,0@ )RB )@@G@@R'K@5EC#@LA(R9K@W5C @[BDQB)[BC*O@@@@)5H[F@ES G^@()O0K^G]&@@@R9K[A/ ^@[A.RC )@@G@@/,)@A,R9)[BCR9K[C /,)@A,R9)[BER9K[C /,)@A,*P@@@@)5Q[E())C]A]A[NH#@*C@@@@RD )@@G@@/,0@ )R'K@64C#@LA(R9K@XGC @[A5QB)[A4/K@@'(/,)@A,R9)[C *Q@@@@)5Z[E()O0K^GRE )@@G@@^G^G^G^G])@@R'0@5%A#0@[Y9()[A>9!)@[V[[)L(FC )[BD/,0@^:R9)[A$R9K[A4*R@@@@RF )@@G@@)5*[F#[@I,@0K^G^G[@@@@@@9!?@@@/K@@53:8@@@[9()@[V9!)[A>/@@@5/@[@[(F/K@@B!RG )@@G@@A]0@[Z*S@@@@)51[F#[@K0K0ES G^[#@()@@R9K[BE ^@[BF/,)@A,R9)[A?R9K[C ^@[CARH )@@G@@ @@[A!/K@@549()[A?*T@@@@)5'[E())CSCS G4G])) G@@@R9K[BE/,0@ )R'K@6 C#@LA(RI )@@G@@R9K@X,C @[BFQB)[BE/,)@A,R9)[C *U@@@@)6#[E())CS G]&]@O0ESC@@@/,)@A,R9)[(PRJ )@@G@@R9K[C /,)@A,R9)[BCR9K[C ^@[CA/,0@^:R9)[(0*V@@@@)6G[F#@()O0K^G^G^G[#@@@@RK )@@G@@W[)L(];P)@@=C[)L(F[[)L(FC )[BD/,)@A,R9)[C R9K[BC ^@[BD*W@@@@)6P[F@^G^G^GRL )@@G@@^@K0K0@@@@@@C[)L(F[[0L(F @@@@N/ 0@6WS[)L(]C[)L(F[[)L(F @@@@M/ )@6R*X@@@@RM )@@G@@)6Y[F#[#[#@(&-)O^[#@()@@R9K[C ^@[CA/,0@ )R'K@6>C#@LA(R9K@Y[C @[BDQB)[BCRN )@@G@@[[)L(3*Y@@@@)6$[E()) G]&]@O0ESC]A@@@ ^@[A./,)@A,R9)[BCR9K[C /,)@A,R9)[BERO )@@G@@R9K[C /,)@A,R9)[A/*Z@@@@)60[E()O0K^[#[#[#@*CS@@@A]0@[ZR'0@6'A#0@[Y9()[A>RP )@@G@@9!)@[V/K@@'(/,)@A,R9)[C R9K[A/(A@@@@)69[F@I,@0K^G^G[@^G@@@@@9()[A?9!?@@@RQ )@@G@@/K@@7#:8@@@[9()@[V9!)[A>/@@@7N@[@[A4/K@[D@(B@@@@)7][F@K0K0ES G^[#@()O0@@RR )@@G@@R9)[A/R9K[QD ^@[QE/,)@A,R9)[A?R9K[C ^@[CA @@[A!/K@@7^(C@@@@)7F[F@ES G^[RS )@@G@@#@()O0K^G@@@ ^@[CA/,)@A,R9)[QDR9K[A/ ^@[A./,)@A,R9)[C R9K[QD/,)@A,(D@@@@RT )@@G@@)7O[E()O0K]&[N[@K0ES G@@R9)[C R9K[A4 ^@[A5/,)@A,R9)[A4R9K[C /,)@A,R9)[B/RU )@@G@@R9K[C (E@@@@)7X[F@K0ES G^[#[#@(&-)@@C#@LA(R9K@YSC @[A5QB)[A4/,)@A,R9)[(+RV )@@G@@R9K[A6 ^@[A7/,)@A,(F@@@@)7&[E*C[N@())CSCS G4G@@@C#@LA(R9K@Y.C @[A7QB)[A6RW )@@G@@/,0@^:R9)[A$R9K[A4/,0@ )R'K@'((G@@@@)7\[E*C[N@())C]A]A[NG@@@R9K@Z[C @[A7RX )@@G@@QB)[A6/K@@8M/,0@^:R9)[POR9K[A6/,0@ )R'K@75(H@@@@)78[F#@*C[N@())C]A]A@@@@RY )@@G@@C @[A7QB)[A6/K@@8M/,0@^:R9)[(/R9K[A6/,0@ )R'K@7_C#@LA((I@@@@)8[[E(&-)O^@RZ )@@G@@()O0K^[#@@@@QB)[A6/K@@8M/,0@^:R9)[%]R9K[A6/,0@ )R'K@8DC#@LA(R9K@Z (J@@@@SA )@@G@@)8E[F#@(&-)O^@()O0K^G@@@ ^@[CA/,0@^:R9)[(0R9K[A6/,0@ )R'K[[YC#@LA(R9K@ZDSB )@@G@@C @[A7(K@@@@)8N[E()O0K]&[N[@K0ES G@@R9)[C R9K[BP ^@[BQ/,)@A,R9)[B]R9K[C SC )@@G@@/,)@A,R9)[%CR9K[C (L@@@@)8W[F@K0ES G^@()O0K^G@@@ ^@[BT/,)@A,R9)[A6R9K[C SD )@@G@@/,)@A,R9)[%CR9K[C ^@[CA/,)@A,(M@@@@)8>[E()O0K^G^G^G])-))@@@/K@@B!A]0@[ZSE )@@G@@R'0@8,A#0@[Y9()[A>9!)@[V/,)@A,R9)[C R9K[BS(N@@@@)8,[E'8#[@K0K0^@K0K@@@@@SF )@@G@@/K@@889()[A?9!?@@@/K@@87:8@@@[9()@[V9!)[A>/@@@9L@[@[BP(O@@@@)87[F#[#[#[#SG )@@G@@[#[#@*CSC@@@/K@@B!A]0@[ZR'0@9@A#0@[Y9()[A>9!)@[V[[)L(FC[)LA? @@[A!(P@@@@SH )@@G@@)9@[E'8#[@K0K0^@K0K@@@@@/K@@9E9()[A?9!?@@@/K@@9D:8@@@[9()@[V9!)[A>/@@@9LSI )@@G@@@[@[BS(Q@@@@)9D[F#[#[#[#[#[#[#[#[#@@9!)@[V[[)LBGC[)L(F[[)L(FG[)L%FC[)L(FSJ )@@G@@[[)L%FC[)LA? @@[A!(R@@@@)9M[F#[#@*CSC[50A]@-)-)@9()@[V9!)[A>/@@@9:@[@[BGSK )@@G@@/K@@B!A]0@[ZR'0@9RA#0@[Y9()[A>(S@@@@)9V[EK[#[@K0K0ES G@@@@@@R9)[A?R9K[C SL )@@G@@ ^@[CA @@[A!/K@@9-9()[A?9!?@@@/K@@9):8@@@[(T@@@@)9=[F@K0K0ET*S [@K0K0@@@SM )@@G@@C @[A5QB)[A4/,0@ )R'K@9:C#@LA(R9K@ZHC @[CAQB)[C /,)@A,(U@@@@)9![E(&-)O^[SN )@@G@@@K0ES G^@@@@/,)@A,R9)[B/R9K[C ^@[CA/K@[[Y/,0@ )R'K@92C#@LA(R9K@Z!(V@@@@SO )@@G@@)96[E()O0K]&[N[@K0ES G@@R9)[C R9K[A4 ^@[A5/,)@A,R9)[B/R9K[C /,)@A,R9)[A4SP )@@G@@R9K[C (W@@@@)9_[F@K0K0ET*S [@ES G@@@R9)[A$R9K[A4/,0@ )R'K@'EC#@LA(R9K@Z1SQ )@@G@@C @[A5QB)[A4/,)@A,(X@@@@)'C[F@K^G^G^G])-))BR@S@@@[@[A4/K@[D@A]0@[ZR'0@'KSR )@@G@@A#0@[Y9()[A>9!)@[V/K@@5+/,0@^:(Y@@@@)'L[F@K0K0^@K0K^G@@@@@@@ @@[A!/K@@'USS )@@G@@9()[A?9!?@@@/K@@'T:8@@@[9()@[V9!)[A>/@@@'((Z@@@@)'U[F#@()O0K^G]&[N[@ES@@ST )@@G@@R9K[QD/,)@A,R9)[A/R9K[QD ^@[QE/,)@A,R9)[A?R9K[C ^@[CA%A@@@@)'<[E())CS GSU )@@G@@]&]@-)O0ES@@R9)[B/R9K[C ^@[CA/,)@A,R9)[QDR9K[A/ ^@[A./,)@A,R9)[C %B@@@@SV )@@G@@)'?[F@ES G^[#[#@(&-)O@@@R'K[[YC#@LA(R9K@)NC @[CAQB)[C /,)@A,R9)[A4R9K[C SW )@@G@@/,)@A,%C@@@@)'5[F@K0ES G^@()O0K]&@@@R9K[C /,)@A,R9)[B]R9K[C /,)@A,R9)[(MSX )@@G@@R9K[C ^@[CA/,0@ )%D@@@@)'"[E()) G]&]@-)O0ESC@@@/,)@A,R9)[C R9K[A/ ^@[A.SY )@@G@@/,)@A,R9)[A/R9K[C /,)@A,R9)[%L%E@@@@);B[F#[#[#@K0K[#[#@@@@@@9!)@[V[[)L(FSZ )@@G@@ @@@@M/ )@;IW[)L(];P)@@=C[)L(F[[)L(FC )[A.%F@@@@);K[F#[#@*CSC[50A]@-)-)@TA )@@G@@9()@[V9!)[A>/@@@;(@[@[(F/K@@B!A]0@[ZR'0@;PA#0@[Y9()[A>%G@@@@);T[EK[#[@K0TB )@@G@@K0ES G@@@@@@R9)[A?R9K[C ^@[CA @@[A!/K@@;Z9()[A?9!?@@@/K@@;Y:8@@@[%H@@@@TC )@@G@@);+[F@K0K0ET*S [@K0K0@@@C @[A.QB)[A//,0@ )R'K@;(C#@LA(R9K@)>C @[CAQB)[C TD )@@G@@/,)@A,%I@@@@);:[E(&-)O^@()O0K^[#@@@@ ^@[B#/K@[[?/,0@^:R9)[BAR9K[A//,0@ )TE )@@G@@R'K[[?C#@LA(R9K@- %J@@@@);4[E()O0K^G^G]&UA[KK@@@/,0@ )R'K@/@C#@LA(R9K@-KTF )@@G@@C @[A5QB)[A4/,)@A,R9)[P]R9K[B]%K@@@@);.[E()O0K^G^G]&UA[KK@@@/,0@ )R'K[[YTG )@@G@@C#@LA(R9K@-)C @[A5QB)[A4/,0@^:R9)[A$R9K[A4%L@@@@)/A[E()O0K^G^G^G^G^[@@@@TH )@@G@@/K@[[Y/ )@2=H[)L%SC[)L(F[[)L(FC )[A3/,0@^:R9)[A$R9K[A4%M@@@@)/J[##[#[#@*TI )@@G@@CSC[50A[80A@@@@@@@@@@[A4@H@[A2/K@[L(A]0@[ZR'0@/PA#0@[Y9()[A>9!)@[V%N@@@@TJ )@@G@@)/R@'/S#@/S#@/S#@/S#@/S#@/S#@/S#@@@@@@@[B]@@@[B@@@@[A"@@@[A/@@@[A'@@@[A8TK )@@G@@@@@[A6%O@@@@)/Y[]/S#@/S#@/S#@/S#[@K0K0@@@@:8@@@[9()@[V9!)[A>/@@[[Y@@@[BETL )@@G@@@@@[BC@@@[BA@@@[B^%P@@@@)/&[F@^G^[#[#@()O0K@@@@@/,)@A,R9)[A?R9K[C ^@[CATM )@@G@@ @@[A!/K@@/:9()[A?9!?@@@/K@@/%%Q@@@@)/\[F@K0K0ET*S [@K^G@@@@ ^@[CA/K@@.ATN )@@G@@/,0@ )R'K@/7C#@LA(R9K@+:C @[A3QB)[A2/K@[[?%R@@@@)/8[E()O0K]&[N[@ES G^@@@TO )@@G@@/,)@A,R9)[%ZR9K[C /,)@A,R9)[A2R9K[C /,)@A,R9)[%VR9K[C %S@@@@).[[F#@()O0KTP )@@G@@^[#[#@(&-)@@C#@LA(R9K@+3C @[A7QB)[A6/K@[[?/,)@A,R9)[C R9K[A/ ^@[A.%T@@@@TQ )@@G@@).E[E*C]@-)-)-)O^G^@@@@@/K@[D@A]0@[ZR'0@.NA#0@[Y9()[A>9!)@[V/K@@2)/,0@ )TR )@@G@@R'K@.H%U@@@@).N[E'8#[@K0K0^@K0K@@@@@/K@@.X9()[A?9!?@@@/K@@.W:8@@@[9()@[VTS )@@G@@9!)[A>/@@@.?@[@[A2%V@@@@).W[F#[#@()O0K^G]&[N[@@@/,)@A,R9)[%[E()O0K^G]&[N[@K0K0@@[[)L(FC )[A.TU )@@G@@/,)@A,R9)[QDR9K[A/ ^@[A./,)@A,R9)[C R9K[QD%X@@@@).,[F#@K0K[#[#[#[#@@@@@@TV )@@G@@A#0@[Y9()[A>9!)@[V[[)L(F @@@@M/ )@.3W[)L(];P)@@=C[)L(F%Y@@@@).7[E*CSC[50TW )@@G@@A]@-)-)C@@@@/K@@"#:8@@@[9()@[V9!)[A>/@@@"I@[@[(F/K@@B!A]0@[ZR'0@.'%Z@@@@TX )@@G@@)"@[EK0K^G^G]&[N[@K0@@@@QB)[C /,)@A,R9)[A?R9K[C ^@[CA @@[A!/K@@"^9()[A?TY )@@G@@9!?@@@:A@@@@)"D[F#@(&-)O^[#[#@(&-)@@C#@LA(R9K@9!)@[V/,)@A,R9)[C R9K[BC ^@[BDUF )@@G@@/,)@A,:G@@@@)"_[F#[]G'8#@/S#[@K0K0^@/K@@_F:8@@@[9()@[V9!)[A>/@@@_O@@@[B=UG )@@G@@@]@[BC/K@@@@A]0@[Z:H@@@@)_C[EK0K^G^G]&[N[@K0@@@@ ^@[BW/,)@A,R9)[A?R9K[C UH )@@G@@ ^@[CA @@[A!/K@@_G9()[A?9!?@@@:I@@@@)_L[E()O0K^G^G]&UA[KK@@@/,0@ )R'K[[OUI )@@G@@C#@LA(R9K@>NC @[BWQB)[BV/,)@A,R9)[C R9K[BV:J@@@@)_U[E()O0K^G^G]&[N[@K0@@UJ )@@G@@C[)L(F/,0@]8R9)[B-R9K[(F[[)LBJC[)L(F/,0@]8R9)[BYR9K[(F:K@@@@)_<[F#[#[#[#UK )@@G@@@*CSC[50A]@@/@@@_"@[@[BJ/K@@B!A]0@[ZR'0@_%A#0@[Y9()[A>9!)@[V[[)LBM:L@@@@UL )@@G@@)_?[F#[#@K[#[@K0K0@@@@@@ ^@[CA @@[A!/K@@_49()[A?9!?@@@/K@@_3:8@@@[9()@[VUM )@@G@@9!)[A>:M@@@@)_5[E()O0K^G^G]&UA[KK@@@/,0@ )R'K@_"C#@LA(R9K@>RC @[CAQB)[C UN )@@G@@/,)@A,R9)[A?R9K[C :N@@@@)_"[F#[#[#@*CSC[50A]@-)@9!)[A>/@@[@S@[@[BM/K@@B!UO )@@G@@A]0@[ZR'0[@^A#0@[Y9()[A>9!)@[V:O@@@@-@B[F#@K[#[@K0K0ES@@@@@@R9K[C ^@[CAUP )@@G@@ @@[A!/K@[@I9()[A?9!?@@@/K@[@H:8@@@[9()@[V:P@@@@-@K[E())CSCS G4G]))CS@@@UQ )@@G@@QB)[BC/,0@ )R'K[@SC#@LA(R9K@>7C @[CAQB)[C /,)@A,R9)[A?:Q@@@@-@T[F#@(&-)OUR )@@G@@^[#@()O0K@@@/,)@A,R9)[%.R9K[C ^@[CA/,0@ )R'K[@4C#@LA(R9K@&RC @[BD:R@@@@US )@@G@@-@+[E()O0K]&[N[@ES G^@@@/,)@A,R9)[A8R9K[C /,)@A,R9)[:@R9K[C /,)@A,R9)[A'UT )@@G@@R9K[C :S@@@@-@:[E()O0K]&[N[@ES G^@@@/,0@^:R9)[C R9K[BC/,)@A,R9)[A8R9K[C UU )@@G@@/,)@A,R9)[(MR9K[C :T@@@@-@4[F#[#[#@*CSCMBR@SC]A@9!)[A>/@@[[?@[@[BC/K@@@@UV )@@G@@A]0@[ZR'0[@'A#0@[Y9()[A>9!)@[V:U@@@@-@.[F#@K[#[@K0K0ES@@@@@@R9K[C ^@[CAUW )@@G@@ @@[A!/K@[[^9()[A?9!?@@@/K@[[#:8@@@[9()@[V:V@@@@-[A[E())CS G]&]@O0ESC@@@UX )@@G@@/,)@A,R9)[C R9K[QD/,)@A,R9)[:#R9K[QD ^@[QE/,)@A,R9)[A?:W@@@@-[J[F#@()O0KUY )@@G@@^[#@()O0K@@@/,)@A,R9)[:BR9K[A/ ^@[A./K@[[?/,)@A,R9)[QDR9K[A/ ^@[A.:X@@@@UZ )@@G@@-[S[F@K0ES G^[@K0ES G@@@R9)[:KR9K[A/ ^@[A./K@[[?/,)@A,R9)[:GR9K[A/ ^@[A.VA )@@G@@/K@[[?:Y@@@@-[-[F@K^C@()O0K]&@@@@@@@C;@@@TR9)[^6/,0@^WR9K[B5R9)[^6C;@@@TVB )@@G@@'=@@@@/K@[[?/,)@A,:Z@@@@-[%@M())@@@@-^6@0#1)GKJA@1@@@@@@@@*Q@@@@@@PN@@@@VC )@@G@@@@@@*L@@@@@@P@@@@@/,0@^WR9K[A,?A@@@@-^/[C#1)GKJA@1@/S#^@@@@@@@@@*>@@@@@@VD )@@G@@P.A@@@@@@@*)@@@@@@PO@@@@@@@@*V@@@@@@PR@@@@?B@@@@- [C#1)GKJA@1@/S#^@@@@@VE )@@G@@@@@@*4@@@@@@PO.A@@@@@@*\@@@@@@PR.A@@@@@@*%@@@@@@PN.A@@?C@@@@- I[C#1)GKJAVF )@@G@@@1@/S#^@@@@@@@@@\I@@@@@@PRINT@@@@@/J@@@@@@IF@@@@@@@@/0@@@@@@NOFNC@?D@@@@VG )@@G@@- R[C#1)GKJA@1@/S#^@@@@@@@@@(%@@@@@@L@@@@@@@@@\EY@@@@@DISPLA@@@@;3@@@@@@VH )@@G@@LET@@@?E@@@@- )[C#1)GKJA@1@/S#^@@@@@@@@@(4@@@@@@LC@@@@@@@@(9@@@@@@LCO@@@VI )@@G@@@@@@(\@@@@@@LO@@@@?F@@@@- ([C#1)GKJA@1@/S#^@@@@@@@@@%4@@@@@@LP@@@@@@@@%#VJ )@@G@@@@@@@@LS@@@@@@@@("@@@@@@LR@@@@?G@@@@- 2[C#1)GKJA@1@/S#^@@@@@@@@[[T@@@@@@VK )@@G@@DOT@@@@@@@"S@@@@@@ARRAY@@@@@%C@@@@@@LCTL@@?H@@@@- ;@0#1)GKJA@1@@@@-[?@MKVL )@@G@@0@@@@@[[)[AEC9)@@[@@@@$W@@@@@@USE@@@@@@@\ R@@@@@MONITO?I@@@@-[,@<@^G^@@@VM )@@G@@)N7@,S@@@@@@&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@=;[[)[AEC9)@@@/K@@=;?J@@@@VN )@@G@@)N/[IT#[# #^()-+ GOGK@@@/,0@#0R'K@^M @@@@M/,0@^#R9K[B//[@@^M/K@@^M%[)LB_VO )@@G@@G[)@@[?K@@@@)O [QU&]AE@-+@@@@@G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#RVP )@@G@@/K@@OC/,0@#+R9K[C]?L@@@@)OJ[IWG^GM&]AE@-+-+O0K1@/,0@^#R9K[B//[@@^M/K@@#RVQ )@@G@@/K@@OO/,0@#+R9K[O,/K@@^M%[)LB_?M@@@@)OS[IS(+-+@-)-+-+@@@@@@@/[@@^M/\@@^TVR )@@G@@$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#0R'K@^M @@@@M?N@@@@)O-[QU&]AC@ GOGK@@^[\@@@VS )@@G@@/,0@#0R'K@^MC9)@@[9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K[B/?O@@@@)O:[IU&@]A]AVT )@@G@@EADN[#^@@@@@/,0@^#R9K[B//[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[B$?P@@@@VU )@@G@@)O4[IS(+-+@-)-+-+@@@@@@@/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#0R'K@^MVV )@@G@@ @@@@M?Q@@@@)O.[QU&]AC@ GOGK@@^[\@@@/,0@#0R'K@^MC9)@@[9,@@@P-]@@@M-]K@@MVW )@@G@@D9)@@@/,0@^#R9K[B/?R@@@@)PB[QU&@]A]AE@-+@@H[)@[]C[)@@I/K@@#R/K@@PI/\@@^TVX )@@G@@$B0@]C[@\@@[[0Z@@@A Z@@@R9K[B,?S@@@@)PL[QS[#[# #^()-+@ @@@@M/,0@^#R9K[B/VY )@@G@@/[@@^M/K@@^M%[)LB_G[)@@[&8K@@@R@K@@HT9)@@A?T@@@@)PV[IU&EAC]A]AEADN@@@@@@VZ )@@G@@R9K[PU/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#0R'K@^M?U@@@@)P=[QWGK(+-+WA )@@G@@ G@^G@$B0@]C[@\@@[[0Z@@@A Z@@@R9K[A8^[\@@@/,0@#0R'K@^M @@@@M/,0@^#?V@@@@WB )@@G@@)P,[QWGO[#^@[#@@@@%[)LB_G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@P0WC )@@G@@/\@@^T?W@@@@)P8[IWGM&]AEA]AE@-+@@@@@H[)@[]C[)@@I/K@@#R/K@@P"/K@@^M%[@LB_WD )@@G@@/,0@#+R9K[P(/K@@^M?X@@@@)Q[[IS[#[#^()-+-)@@@@@@@%[@LB_/,0@#+R9K[P\/K@@^MWE )@@G@@%[)LB_G[)@@[&8K@@@R@K@@HT9)@@A?Y@@@@)QE[QWGO[#^@[#@@@@%[)LB_G[)@@[&8K@@@WF )@@G@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@QG/K@@^M?Z@@@@)QO[IWGM&]AEA]AE@-+-)@@@WG )@@G@@0@@@@KH[@LQ]/K@@#R/K@@QU/K@@^M%[@LB_/,0@#+R9K[P5/K@@^M!A@@@@)QX[QWGL#@@KWH )@@G@@^GOG@@H[@L( /K@@#R/K@@Q>&;K@@[G@)@@GW8@@@A @@@@GG@KLQ]&;K@@@/\@@^M!B@@@@WI )@@G@@)Q$[QT#^K0@@@@@@@@[0Z@@@^[J@@@&;K@@[G@)@@GW8@@@A @@@@GG@KL( &;K@@@/\@@^MWJ )@@G@@0@@@@K!C@@@@)Q1[QT#[# #@K1^G@@W8@@@A @@@@GG@KL(C&;K@@@/\@@^M0@@@@KH[@L(CWK )@@G@@/\@@^T$B0@]C[@\@@[!D@@@@)Q;[QS]&@]A]AE@@@@/K@@R /\@@^T$B0@]C[@\@@[[0Z@@@WL )@@G@@A Z@@@R9K[BA^[\@@@&;K@@[G@)@@G!E@@@@)R [QWGOG[#^K0@@@@&;K@@[G@)@@GW8@@@AWM )@@G@@ @@@@GG@KL(C&;K@@@/\@@^M0@@@@KH[@L(C/K@@#R!F@@@@)RJ[IW[# #^()-+ GOGK@@@@WN )@@G@@^[J@@@/,0@#0R'K@^M @@@@M/,0@^#R9K[B//[@@^M/K@@#R/K@@RK!G@@@@)RS[QSK0K1K1WO )@@G@@ESCS)@-]@@@M-]K@@MD9)@@@/,0@^#R9K[B//[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@!H@@@@WP )@@G@@)R+[QSES*S-N@[#@@@$B0@]C[@\@@[[0Z@@@A Z@@@R9K[BC^[\@@@/,0@#0R'K@^MC9)@@[WQ )@@G@@9,@@@P!I@@@@)R?[QWGO[#^*@]A]AC/\@@^T$B0@]C[DJ@@[[^\@@[[0Z@@@A[Z@@@R9K@R9WR )@@G@@/K@@#R/K@@R,/\@@^T!J@@@@)R6[IU&]AE@O0K1K^GOGM&@@R9K[(I/[@@^M/K@@#R/K@@R/WS )@@G@@/,0@#+R9K[PF/K@@R//,0@#+R9K[P !K@@@@)R_[IWGM&EAC)CS*S]AC@@@@/\@@^M0@@@@KWT )@@G@@H[@L( /K@@#R/K@@S^H9@@@[/,K@#MR'0@^M/,0@^#!L@@@@)SC[QT#@@@K0@@@@@@$B0@]CWU )@@G@@[@\@@[[0Z@@@^[J@@@&;K@@[G@)@@GW8@@@A @@@@GG@KL( &;K@@@!M@@@@)SM[QWGOG[#^WV )@@G@@K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KL(C&;K@@@/\@@^M0@@@@KH[@L(C/\@@^T!N@@@@WW )@@G@@)SW[IS()@-)-+)CS)@@@@@@@/K@@#R/K@@S=/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[BAWX )@@G@@^[\@@@!O@@@@)S>[QWG[#^K0@^@@@@/K@@S\&;K@@[G@)@@GW8@@@A @@@@GG@KL(C&;K@@@WY )@@G@@/\@@^M0@@@@KH[@L(C!P@@@@)S\[QWGOG[#^K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KLQ]WZ )@@G@@&;K@@@/\@@^M0@@@@KH[@LQ]/K@@#R!Q@@@@)S9[IW[# #^()-+O1K1^@@@@/K@@T]H9@@@[XA )@@G@@/,K@#MR'0@^M/,0@^#R9K[B//[@@^M/K@@#R/K@@S'!R@@@@)T][QWGK@^G^GOGK@@/[@@^MXB )@@G@@/K@@^M%[)LB_G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R!S@@@@)TG[IU&]ACO1XC )@@G@@K1ESCS)@@@@@[0Z@@@^[J@@@/,0@#+R9K[(W/,0@#0R'K@^M @@@@M/,0@^#R9K[B/!T@@@@XD )@@G@@)TP[QT#[# #^()-+@@9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K[(W/[@@^M/\@@^T$B0@]CXE )@@G@@[@\@@[!U@@@@)TZ[QS(+-+ G@^G^GK/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[BC^[\@@@XF )@@G@@/,0@#0R'K@^MC9)@@[!V@@@@)T([IU&]AEADN[#^ES*S*@@@/K@@T2/,0@#0R'K@^M @@@@MXG )@@G@@/,0@^#R9K[B//[@@^M/,0@#+R9K[(W!W@@@@)T2[QWGK^G^GOG[#^@&;K@@@/\@@^M0@@@@KXH )@@G@@H[@L(Z/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/K@@#R!X@@@@)T/[QWG@@ES@@@@@@@[@\@@[XI )@@G@@[0Z@@@A Z@@@R9K[BC^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KL(Z!Y@@@@)UA[IWG^GO[#XJ )@@G@@ #@K1^G@@@@@G@KL( &;K@@@/\@@^M0@@@@KH[@L( /K@@#R/K@@UD/\@@^T$B0@]C!Z@@@@XK )@@G@@)UJ[QS@[#[# #@@@@@H[@L(C/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@&;K@@[G@)@@GW8@@@AXL )@@G@@ @@@@G,A@@@@)UT[QT#^K0@@()@@@@R9K[BA^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KL(CXM )@@G@@&;K@@@/\@@^M0@@@@K,B@@@@)U<[IS^G^GO[# #@@@@@@@@@0@@@@KH[@L(C/K@@#R/K@@U(XN )@@G@@/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@,C@@@@)U?[QWGL#@@K^GM&@@R9K[C]/K@@#R/K@@U4XO )@@G@@&;K@@[G@)@@GW8@@@A @@@@GG@KL(C&;K@@@/\@@^M,D@@@@)U6[IWGO[#^()-+)CS)@@@@@XP )@@G@@[0Z@@@^[J@@@/K@@#R/K@@U//,0@#+R9K[B//K@@#R/K@@U8/,0@#+,E@@@@)U_[QT#[#^@[XQ )@@G@@#@@@@@%[)LB_G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/\@@^T$B0@]C[@\@@[,F@@@@XR )@@G@@)VD[IWGOGM&]ACO1K1ESCS)@/,0@#+R9K[(=/,0@#0R'K@^M @@@@M/,0@^#R9K[B//[@@^MXS )@@G@@/K@@^M,G@@@@)VM[IWGM&]ACO1K1K1ESCS)@/,0@^#R9K[($/[@@^M/,0@#0R'K@^M @@@@MXT )@@G@@/,0@^#R9K[B//[@@^M,H@@@@)VV[QS@ES*S-N@@@@@A Z@@@R9K[BC^[\@@@/,0@#0R'K@^MXU )@@G@@C9)@@[9,@@@P-]@@@M-]K@@MD9)@@@,I@@@@)V>[QSK0K1K^GK@@@@R@K@@HT9)@@AH[)@[]XV )@@G@@C[)@@I/K@@#R/K@@V%/\@@^T$B0@]C[@\@@[[0Z@@@,J@@@@)V\[QSK0K1E@@-)@@@$B0@]CXW )@@G@@[DJ@@[[^\@@[[0Z@@@A[Z@@@R9K@W#/K@@^M%[)LB_G[)@@[&8K@@@,K@@@@)V9[IWGOGM&]XX )@@G@@ACO1K1ESCS)@/,0@#+R9K[C]/,0@#0R'K@^M @@@@M/,0@^#R9K[B//[@@^M/\@@^T,L@@@@XY )@@G@@)W][IW@()-+)CS>G^GO[#^@@/K@@#R/K@@WE/,0@#+R9K[(W/K@@#R/K@@W@/,0@#+R9K[(+XZ )@@G@@/K@@WA,M@@@@)WF[QS@^G^GOGM&@@@R9K[B//[@@^M/K@@^M%[)LB_G[)@@[&8K@@@R@K@@HYA )@@G@@T9)@@AH[)@[]C[)@@I,N@@@@)WP[IWGK(+-+O0K1@@@@@@@@[@\@@[[0Z@@@^[J@@@/,0@#+YB )@@G@@R9K[(W/,0@#0R'K@^M @@@@M/,0@^#,O@@@@)WY[QWG^GOGM&]AC@@C9)@@[9,@@@P-]@@@MYC )@@G@@-]K@@MD9)@@@/,0@^#R9K[(W/[@@^M/\@@^T$B0@]C,P@@@@)W*[IU&EACO0@K0K1@@@@@@@YD )@@G@@/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[BC^[\@@@/,0@#0R'K@^M,Q@@@@)W1[IU&]AE@-YE )@@G@@+@-)-+@@@@@@/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/K@@#R/K@@W4/,0@#+R9K[(W,R@@@@YF )@@G@@)W'[QWG[#^K0@@@@@@^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KL(%&;K@@@/\@@^M0@@@@KYG )@@G@@H[@L(%,S@@@@)X^[QU&@]A]AE@-+@@H[)@[]C[)@@I/K@@#R/K@@XF/\@@^T$B0@]C[@\@@[YH )@@G@@[0Z@@@A Z@@@R9K[BC,T@@@@)XI[QS[#[# #^()-+@ @@@@M/,0@^#R9K[B//[@@^M/K@@^MYI )@@G@@%[)LB_G[)@@[&8K@@@R@K@@HT9)@@A,U@@@@)XS[IU&EAC]A]AEADN@@@@@@R9K[PU/[@@^MYJ )@@G@@/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#0R'K@^M,V@@@@)X-[QWGK(+-+ G@^G@$B0@]CYK )@@G@@[@\@@[[0Z@@@A Z@@@R9K[BC^[\@@@/,0@#0R'K@^M @@@@M/,0@^#,W@@@@)X:[QWGO[#^@YL )@@G@@[#@@@@%[)L(!G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@X!/\@@^T,X@@@@YM )@@G@@)X5[QWGOG[#^K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KLQ]&;K@@@/\@@^M0@@@@KH[@LQ]YN )@@G@@/K@@^M,Y@@@@)X_[IW[#^[#[# #@@@@@@@@@0@@@@KH[@L(3/\@@^T$B0@]C[@\@@[[0Z@@@YO )@@G@@^[J@@@/K@@#R/K@@Y@,Z@@@@)YC[QWGL#@@]&@@@@@A Z@@@R9K[BC^[\@@@&;K@@[G@)@@GYP )@@G@@W8@@@A @@@@GG@KL(3&;K@@@/\@@^M\A@@@@)YM[QSK0K1K^GK@@@@R@K@@HT9)@@AH[)@[]YQ )@@G@@C[)@@I/K@@#R/K@@YR/\@@^T$B0@]C[@\@@[[0Z@@@\B@@@@)YW[ISK0K1K1ESCS-N^@@@@@YR )@@G@@R'K@^M @@@@M/,0@^#R9K[B//[@@^M/K@@^M%[)LB_G[)@@[&8K@@@\C@@@@)Y>[QWGK^G^GYS )@@G@@OG[#^@&;K@@@/\@@^M0@@@@KH[@LQ]/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#0\D@@@@YT )@@G@@)Y\[QWG@@ES@@@@@@@[@\@@[[0Z@@@A Z@@@R9K[A6^[\@@@&;K@@[G@)@@GW8@@@A @@@@GYU )@@G@@G@KLQ]\E@@@@)Y9[IWG^GO[#^()-+)CS>G@@R9K[(9/K@@#R/K@@Z@/,0@#+R9K[(6/K@@#RYV )@@G@@/K@@Y//\@@^T$B0@]C\F@@@@)Z][IWGO[#^()-+)CS>G^GK@/,0@#+R9K[% /K@@#R/K@@ZCYW )@@G@@/,0@#+R9K[(_/K@@#R/K@@Z^/,0@#+\G@@@@)ZF[QW[# #@K1^G@@@G@)@@GW8@@@A @@@@GYX )@@G@@G@KL%I&;K@@@/\@@^M0@@@@KH[@L%I/K@@#R/K@@ZG\H@@@@)ZP[QS[#[# #@K1@@@&;K@@@YY )@@G@@/\@@^M0@@@@KH[@LQ]/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@&;K@@[\I@@@@)ZZ[QWG@@ES@YZ )@@G@@@@@@@@[@\@@[[0Z@@@A Z@@@R9K[B]^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KLQ]\J@@@@ZA )@@G@@)Z([IWG^GO[#^()-+)CS)@@@C[)@@I/K@@#R/K@@Z0/,0@#+R9K[(W/K@@#R/K@@Z?/\@@^TZB )@@G@@$B0@]C\K@@@@)Z2[QS@K0K1K1ESCS)/,0@^#R9K[B//[@@^M/K@@^M%[)LB_G[)@@[&8K@@@ZC )@@G@@R@K@@HT9)@@AH[)@[]\L@@@@)Z/[IS(+-+@-)-+-+@@@@@@@/[@@^M/\@@^T$B0@]C[@\@@[ZD )@@G@@[0Z@@@^[J@@@/,0@#0R'K@^M @@@@M\M@@@@)) [QU&]ACO1K1]&@@[@\@@[[0Z@@@A Z@@@ZE )@@G@@R9K[BC^[\@@@/,0@#0R'K@^M @@@@M/,0@^#R9K[PU\N@@@@))J[QWG^GO[#^@@@@@G[)@@[ZF )@@G@@&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@)M/\@@^T$B0@]C\O@@@@))T[IWG^GOGMZG )@@G@@&]ACO1K1K0@@%[@LB_/,0@#0R'K@^M @@@@M/,0@^#R9K[B//[@@^M/K@@^M%[)LB_\P@@@@ZH )@@G@@))+[IWGO[# #@K1^G@@@@@@@ @@@@GG@KL( &;K@@@/\@@^M0@@@@KH[@L( /K@@#R/K@@)=ZI )@@G@@/K@@^M\Q@@@@)):[QS@^G^GOG@@@@@0@@@@KH[@L(C/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@ZJ )@@G@@&;K@@[G@)@@GW8@@@A\R@@@@))5[QWGL#@@]&@@@@@A Z@@@R9K[BA^[\@@@&;K@@[G@)@@GZK )@@G@@W8@@@A @@@@GG@KL(C&;K@@@/\@@^M\S@@@@))_[ISK0K1K^GOG[#^@@@@@@/\@@^M0@@@@KZL )@@G@@H[@L(C/K@@#R/K@@-^/\@@^T$B0@]C[@\@@[[0Z@@@\T@@@@)-C[QT#@@K^GK@@@@@H[)@[]ZM )@@G@@C[)@@I/K@@#R/K@@-J&;K@@[G@)@@GW8@@@A @@@@GG@KL(C&;K@@@\U@@@@)-M[QS[#[# #ZN )@@G@@^()-+@ @@@@M/,0@^#R9K[B//[@@^M/K@@^M%[)LB_G[)@@[&8K@@@R@K@@HT9)@@A\V@@@@ZO )@@G@@)-W[QU&EAE@-+O@[#@$B0@]C[DJ@@[[^\@@[[0Z@@@A[Z@@@R9K@+N/K@@#R/K@@-Z/,0@#0ZP )@@G@@R'K@^M\W@@@@)-&[IWGK^G^GOGM&]AC@@@@@/,0@^#R9K[%P/[@@^M/\@@^T$B0@]C[@\@@[ZQ )@@G@@[0Z@@@^[J@@@/\@@^T\X@@@@)-\[QS@ES*S-N@@@@@A Z@@@R9K[A2^[\@@@/,0@#0R'K@^MZR )@@G@@C9)@@[9,@@@P-]@@@M-]K@@MD9)@@@\Y@@@@)-9[QSK0K1@K0K1K0@H[@LQ]/\@@^T$B0@]CZS )@@G@@[@\@@[[0Z@@@^[J@@@/\@@^T$B0@]C[@\@@[[0Z@@@\Z@@@@)+#[QT#^K0@@()@@@@R9K[A6ZT )@@G@@^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KLQ]&;K@@@/\@@^M0@@@@K0A@@@@)+H[QS^G^GO@ZU )@@G@@@@@@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@+%/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@0B@@@@ZV )@@G@@)+R[QSK0K1@K0K1ES@R9K[(9/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/K@@^M%[)LB_G[)@@[ZW )@@G@@&8K@@@0C@@@@)+-[IWGK()@-)-+)@@@@@@@@/K@@+%/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@ZX )@@G@@R9K[A2^[\@@@/,0@#+0D@@@@)+%[IWGOGM&]ADN #^K^GK@@/K@@#R/K@@+2H9@@@[/,K@#MZY )@@G@@R'0@^M/,0@^#R9K[PU/[@@^M/K@@#R0E@@@@)+3[QWG[#^K0@^@@@@/K@@+.&;K@@[G@)@@GZZ )@@G@@W8@@@A @@@@GG@KLQ]&;K@@@/\@@^M0@@@@KH[@LQ]0F@@@@)+.[QWGOG[#^K0@@@@&;K@@[AA )@@G@@G@)@@GW8@@@A @@@@GG@KL( &;K@@@/\@@^M0@@@@KH[@L( /K@@#R0G@@@@)J/,0@#+R9K[(0/\@@^TAM )@@G@@$B0@]C[@\@@[[0Z@@@A Z@@@R9K[BY0Q@@@@)=*[QS[#[#^()-+@@@[0Z@@@^[J@@@/,0@#+AN )@@G@@R9K[%%/\@@^T$B0@]C[DJ@@[[^\@@[[0Z@@@A[Z@@@0R@@@@)=2[QT#[# #^()-+@@9,@@@PAO )@@G@@-]@@@M-]K@@MD9)@@@/,0@^#R9K[B//[@@^M/\@@^T$B0@]C[@\@@[0S@@@@)=/[QS(+-+ GAP )@@G@@@^G^GK/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[B-^[\@@@/,0@#0R'K@^MC9)@@[0T@@@@AQ )@@G@@)>A[IWGM&]ACO1K1K0K1K@@@/K@@>M/K@@^M%[@LB_/,0@#0R'K@^M @@@@M/,0@^#R9K[B/AR )@@G@@/[@@^M0U@@@@)>J[IU&]AE@-+O0K1K^GOG@@H[@L( /K@@#R/K@@>Q/,0@#+R9K[%7/K@@#RAS )@@G@@/K@@>A/,0@#+R9K[(+0V@@@@)>S[QT#^K0@@@@@@@@[0Z@@@^[J@@@&;K@@[G@)@@GW8@@@AAT )@@G@@ @@@@GG@KL( &;K@@@/\@@^M0@@@@K0W@@@@)>+[QT#[# #@K1^G@@W8@@@A @@@@GG@KL(CAU )@@G@@&;K@@@/\@@^M0@@@@KH[@L(C/\@@^T$B0@]C[@\@@[0X@@@@)>?[QS]&@]A]AE@@@@/K@@>6AV )@@G@@/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[A8^[\@@@&;K@@[G@)@@G0Y@@@@)>6[QWGOG[#^AW )@@G@@K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KL( &;K@@@/\@@^M0@@@@KH[@L( /K@@#R0Z@@@@AX )@@G@@)&@[QS^G^GOG[#^K0@G@KL(C&;K@@@/\@@^M0@@@@KH[@L(C/\@@^T$B0@]C[@\@@[[0Z@@@AY )@@G@@^[J@@@1A@@@@)&E[QS@ES@CS@@@@@@$B0@]C[@\@@[[0Z@@@A Z@@@R9K[A'^[\@@@&;K@@[AZ )@@G@@G@)@@GW8@@@A @@@@G1B@@@@)&O[QWGO[#^@[#@@@@%[)L%'G[)@@[&8K@@@R@K@@HT9)@@ABA )@@G@@H[)@[]C[)@@I/K@@#R/K@@&Q/\@@^T1C@@@@)&Y[QWGOG[#^K0@@@@&;K@@[G@)@@GW8@@@ABB )@@G@@ @@@@GG@KLQ]&;K@@@/\@@^M0@@@@KH[@LQ]/K@@^M1D@@@@)&*@QW[#^@@@-A$@0/S@#1)@BC )@@G@@#1)@@@]@@[A,@@@@@@@@A@@A[@@[A:@@@@@@]@@[A(/K@@#R/K@@&(1E@@@@-A![CJA@@#1)BD )@@G@@@JA@@@@@@@@@@>)@@@]@@[A6@@_@@@]@@[A4 @@G@@@]@@[A0@@@@@@1F@@@@BE )@@G@@-A6[C/S@#1)@JA@@/S@#1)@@]@@[B@@>)@@@]@@[A"@@G@@@]@@[A/@@G@@@]@@[A'@@[@@@BF )@@G@@]@@[A81G@@@@-A_[CJA@@/S@#1)@JA@@@@@@@@]@@@]@@[BC@@G@@@]@@[BA@@[@@@]@@[B^BG )@@G@@@@A@@@]@@[B]@@A@@@1H@@@@-BC[C/S@#1)@JA@@JA@@@@@@@@A@@A[@@[BL@@@@@@@@A@@ABH )@@G@@[@@[BI@@A@@@]@@[BG@>)@@@]@@[BE1I@@@@-BL[KJA@@JA@@JA@@@ @@A@@@]@@[BUBI )@@G@@ @@A@@@]@@[BR@@@@@@@@A@@A[@@[BO@@@@@@1J@@@@-BV[C/S@@/S@@/S@@@@@@@@@BJ )@@G@@ @@A@@@]@@[B< @@A@@@]@@[B) @@A@@@]@@[BX1K@@@@-B=[K/S@@/S@BK )@@G@@@@@@@@ @@Y@@@]@@[B( @@A@@@]@@[B&1L@@@@BL )@@G@@-B,[K/S@@@JA@@@@@@ @@G@@@]@@[B7 @@Y@@@BM )@@G@@]@@[B01M@@@@-B8[KJA@@JA@@JA@@@@@@@@@@@A@@A[@@[C[ @@[@@[]@@[B"@ BN )@@G@@@@[@@[]@@[B; 1N@@@@-C][K/S@@/S@@@@@@@ BO )@@G@@[F*@@@]@@[CB= @@[@@[]@@[C^1O@@@@-CG[S@@@@@@@ BP )@@G@@ 1P@@@@-CR[S@@@@@@@ BQ )@@G@@ 1Q@@@@-C+[S@@@@@@@BR )@@G@@ 1R@@@@BS )@@G@@-C![S@@@@@@@ BT )@@G@@ 1S@@@@-C8[S@@@@@@@ BU )@@G@@ 1T@@@@-D#[S@@@@@@@ BV )@@G@@ 1U@@@@-DI[S@@@@@@@ BW )@@G@@ 1V@@@@-DT[S@@@@@@@ BX )@@G@@ 1W@@@@-D=[S@@@@@@@BY )@@G@@ 1X@@@@BZ )@@G@@-D\[S@@@@@@@ CA )@@G@@ 1Y@@@@-D'[S@@@@@@@ CB )@@G@@ 1Z@@@@-E [S@@@@@@@ CC )@@G@@ 2A@@@@-EK[S@@@@@@@ CD )@@G@@ 2B@@@@-EV[S@@@@@@@ CE )@@G@@ 2C@@@@-E&[S@@@@@@@CF )@@G@@ 2D@@@@CG )@@G@@-E1[S@@@@@@@ CH )@@G@@ 2E@@@@-E/[S@@@@@@@ CI )@@G@@ 2F@@@@-FB[S@@@@@@@ CJ )@@G@@ 2G@@@@-FM[S@@@@@@@ CK )@@G@@ 2H@@@@-FX[S@@@@@@@ CL )@@G@@ 2I@@@@-F*[S@@@@@@@CM )@@G@@ 2J@@@@CN )@@G@@-F3[S@@@@@@@ CO )@@G@@ 2K@@@@-F"[S@@@@@@@ CP )@@G@@ 2L@@@@-GD[S@@@@@@@ CQ )@@G@@ 2M@@@@-GO[S@@@@@@@ CR )@@G@@ 2N@@@@-GZ[S@@@@@@@ CS )@@G@@ 2O@@@@-G%[S@@@@@@@CT )@@G@@ 2P@@@@CU )@@G@@-G5[S@@@@@@@ CV )@@G@@ 2Q@@@@-H@[S@@@@@@@ CW )@@G@@ 2R@@@@-HF[S@@@@@@@ CX )@@G@@ 2S@@@@-HQ[S@@@@@@@ CY )@@G@@ 2T@@@@-H-[S@@@@@@@ CZ )@@G@@ 2U@@@@-H?[S@@@@@@@DA )@@G@@ 2V@@@@DB )@@G@@-H7[S@@@@@@@ DC )@@G@@ 2W@@@@-I][S@@@@@@@ DD )@@G@@ 2X@@@@-IH[S@@@@@@@ DE )@@G@@ 2Y@@@@-IS[S@@@@@@@ DF )@@G@@ 2Z@@@@-I<[S@@@@@@@ DG )@@G@@ 3A@@@@-I,[S@@@@@@@DH )@@G@@ 3B@@@@DI )@@G@@-I9[S@@@@@@@ DJ )@@G@@ 3C@@@@-J^[S@@@@@@@ DK )@@G@@ 3D@@@@-JJ[S@@@@@@@ DL )@@G@@ 3E@@@@-JU[S@@@@@@@ DM )@@G@@ 3F@@@@-J>[S@@@@@@@ DN )@@G@@ 3G@@@@-J0[S@@@@@@@DO )@@G@@ 3H@@@@DP )@@G@@-J;[S@@@@@@@ DQ )@@G@@ 3I@@@@-KA[S@@@@@@@ DR )@@G@@ 3J@@@@-KL[S@@@@@@@ DS )@@G@@ 3K@@@@-KW[S@@@@@@@ DT )@@G@@ 3L@@@@-K$[S@@@@@@@ DU )@@G@@ 3M@@@@-K2[S@@@@@@@DV )@@G@@ 3N@@@@DW )@@G@@-K.[S@@@@@@@ DX )@@G@@ 3O@@@@-LC[S@@@@@@@ DY )@@G@@ 3P@@@@-LN[S@@@@@@@ DZ )@@G@@ 3Q@@@@-LY[S@@@@@@@ EA )@@G@@ 3R@@@@-L([S@@@@@@@ EB )@@G@@ 3S@@@@-L4[S@@@@@@@EC )@@G@@ 3T@@@@ED )@@G@@-L_[S@@@@@@@ EE )@@G@@ 3U@@@@-ME[S@@@@@@@ EF )@@G@@ 3V@@@@-MP[S@@@@@@@ EG )@@G@@ 3W@@@@-M)[S@@@@@@@ EH )@@G@@ 3X@@@@-M:[S@@@@@@@ EI )@@G@@ 3Y@@@@-M6[S@@@@@@@EJ )@@G@@ 3Z@@@@EK )@@G@@-N[[S@@@@@@@ EL )@@G@@ 4A@@@@-NG[S@@@@@@@ EM )@@G@@ 4B@@@@-NR[S@@@@@@@ EN )@@G@@ 4C@@@@-N+[S@@@@@@@ EO )@@G@@ 4D@@@@-N![S@@@@@@@ EP )@@G@@ 4E@@@@-N8[S@@@@@@@EQ )@@G@@ 4F@@@@ER )@@G@@-O#[S@@@@@@@ ES )@@G@@ 4G@@@@-OI[S@@@@@@@ ET )@@G@@ 4H@@@@-OT[S@@@@@@@ EU )@@G@@ 4I@@@@-O=[S@@@JA@@]@@[O0 EV )@@G@@ 4J@@@@-O\[K#1)@#1)@#1)@@@@Y@@YEW )@@G@@]@@[O9NOFNC @@ @@ ]@@[O6DOT @@#@@#]@@[O3. @@[@@[4K@@@@-O9[K@#1)@@/EX )@@G@@S@@@@@]@@[P^G@@@@@@GJ@@@@@G@@G]@@[P@ 4L@@@@EY )@@G@@-P#[K#1)@#1)@#1)@@@@[@@[]@@[PH# @@[@@[]@@[PE] @@[@@[]@@[PB[ EZ )@@G@@@@[@@[4M@@@@-PH[KJA@@JA@@JA@@@C @@[@@[]@@[PQB @@[@@[]@@[PNA FA )@@G@@@@[@@[]@@[PK^ 4N@@@@-PR[K/S@@/S@@JA@@@ @@G@@G]@@[P)6789 012345FB )@@G@@@@E@@E]@@[PW 1 @@#@@#]@@[PT4O@@@@-P-[KJA@@JA@@#1)@@@@^@@^]@@[P:@@@ FC )@@G@@@@@#@@@@D@@D]@@[P$@^ @@]@@]]@@[P= 4P@@@@-P:[KJA@@JA@@JA@@@E FD )@@G@@@@[@@[]@@[P4DIRECT@@A@@A]@@[P1D @@[@@[]@@[P,AREA 4Q@@@@-P5[C/S@@/S@FE )@@G@@@/S@@@@@@@@@@] @@]@@]]@@[P.F @@[@@[]@@[P'OWNER @@ @@ ]@@[P74R@@@@FF )@@G@@-P"[K/S@@JA@@JA@@@@@B@@@@@G@@G]@@[QB@@@@@[@@A@@A[@@[Q^@@@ @@@[@@@@D@@DFG )@@G@@]@@[Q@4S@@@@-QC[SJA@@@@@ FH )@@G@@[1C@@@]@@[QF[@@@@@4T@@@@-QN[S@@@@@@@ FI )@@G@@ 4U@@@@-QY[S@@@@@@@ FJ )@@G@@ 4V@@@@-Q([S@@@@@@@ FK )@@G@@ 4W@@@@-Q4[S@@@@@@@FL )@@G@@ 4X@@@@FM )@@G@@-Q_[S@@@@@@@ FN )@@G@@ 4Y@@@@-RE[S@@@@@@@ FO )@@G@@ 4Z@@@@-RP[S@@@@@@@ FP )@@G@@ 5A@@@@-R)[S@@@@@@@ FQ )@@G@@ 5B@@@@-R:[S@@@@@@@ FR )@@G@@ 5C@@@@-R6[S@@@@@@@FS )@@G@@ 5D@@@@FT )@@G@@-S[[S@@@@@@@ FU )@@G@@ 5E@@@@-SG[S@@@@@@@ FV )@@G@@ 5F@@@@-SR[S@@@@@@@ FW )@@G@@ 5G@@@@-S+[S@@@@@@@ FX )@@G@@ 5H@@@@-S![S@@@@@@@ FY )@@G@@ 5I@@@@-S8[S@@@@@@@FZ )@@G@@ 5J@@@@GA )@@G@@-T#[S@@@@@@@ GB )@@G@@ 5K@@@@-TI[S@@@@@@@ GC )@@G@@ 5L@@@@-TT[S@@@@@@@ GD )@@G@@ 5M@@@@-T=[S@@@@@@@ GE )@@G@@ 5N@@@@-T\[S@@@@@@@ GF )@@G@@ 5O@@@@-T'[S@@@@@@@GG )@@G@@ 5P@@@@GH )@@G@@-U [S@@@@@@@ GI )@@G@@ 5Q@@@@-UK[S@@@@@@@ GJ )@@G@@ 5R@@@@-UV[S@@@@@@@ GK )@@G@@ 5S@@@@-U&[S@@@@@@@ GL )@@G@@ 5T@@@@-U1[S@@@@@@@ GM )@@G@@ 5U@@@@-U/[S@@@@@@@GN )@@G@@ 5V@@@@GO )@@G@@-VB[S@@@@@@@ GP )@@G@@ 5W@@@@-VM[S@@@@@@@ GQ )@@G@@ 5X@@@@-VX[S@@@@@@@ GR )@@G@@ 5Y@@@@-V*[S@@@@@@@ GS )@@G@@ 5Z@@@@-V3[S@@@@@@@ GT )@@G@@ 6A@@@@-V"[S@@@@@@@GU )@@G@@ 6B@@@@GV )@@G@@-WD[S@@@@@@@ GW )@@G@@ 6C@@@@-WO[S@@@@@@@ GX )@@G@@ 6D@@@@-WZ[S@@@@@@@ GY )@@G@@ 6E@@@@-W%[S@@@@@@@ GZ )@@G@@ 6F@@@@-W5[S@@@@@@@ HA )@@G@@ 6G@@@@-X@[S@@@@@@@HB )@@G@@ 6H@@@@HC )@@G@@-XF[S@@@@@@@ HD )@@G@@ 6I@@@@-XQ[S@@@@@@@ HE )@@G@@ 6J@@@@-X-[S@@@@@@@ HF )@@G@@ 6K@@@@-X?[S@@@@@@@ HG )@@G@@ 6L@@@@-X7[S@@@@@@@ HH )@@G@@ 6M@@@@-Y][S@@@@@@@HI )@@G@@ 6N@@@@HJ )@@G@@-YH[S@@@@@@@ HK )@@G@@ 6O@@@@-YS[S@@@@@@@ HL )@@G@@ 6P@@@@-Y<[S@@@@@@@ HM )@@G@@ 6Q@@@@-Y,[S@@@@@@@ HN )@@G@@ 6R@@@@-Y9[S@@@@@@@ HO )@@G@@ 6S@@@@-Z^[S@@@@@@@HP )@@G@@ 6T@@@@HQ )@@G@@-ZJ[S@@@@@@@ HR )@@G@@ 6U@@@@-ZU[S@@@@@@@ HS )@@G@@ 6V@@@@-Z>[S@@@@@@@ HT )@@G@@ 6W@@@@-Z0[S@@@@@@@ HU )@@G@@ 6X@@@@-Z;[S@@@@@@@ HV )@@G@@ 6Y@@@@-)A[S@@@@@@@HW )@@G@@ 6Z@@@@HX )@@G@@-)L[S@@@@@@@ HY )@@G@@ 7A@@@@-)W[S@@@@@@@ HZ )@@G@@ 7B@@@@-)$[S@@@@@@@ IA )@@G@@ 7C@@@@-)2[S@@@@@@@ IB )@@G@@ 7D@@@@-).[S@@@@@@@ IC )@@G@@ 7E@@@@--C[S@@@@@@@ID )@@G@@ 7F@@@@IE )@@G@@--N[S@@@@@@@ IF )@@G@@ 7G@@@@--Y[S@@@@@@@ IG )@@G@@ 7H@@@@--([S@@@@@@@ IH )@@G@@ 7I@@@@--4[S@@@@@@@ II )@@G@@ 7J@@@@--_[S@@@@@@@ IJ )@@G@@ 7K@@@@-+E[S@@@@@@@IK )@@G@@ 7L@@@@IL )@@G@@-+P[S@@@@@@@ IM )@@G@@ 7M@@@@-+)[S@@@@@@@ IN )@@G@@ 7N@@@@-+:[S@@@@@@@ IO )@@G@@ 7O@@@@-+6[S@@@@@@@ IP )@@G@@ 7P@@@@-<[[S@@@@@@@ IQ )@@G@@ 7Q@@@@- 9J@@@@-%?[SJA@@@@@ KS )@@G@@ @@0@@0]@@[%\, 9K@@@@-%7[C/S@@/S@@/S@@@@@@@@@@@#D @@^@@^KT )@@G@@]@@[%_@@@@@Y@@A@@A[@@[%/@@@@@@@@A@@A]@@[%99L@@@@-:@[K/S@@/S@@JA@@@@##@@@KU )@@G@@@@M@@M]@@[:DE@@@@@@##@@@@@G@@G]@@[: @@[@@@@@A@@A]@@[:]9M@@@@-:E[K#1)@@/SKV )@@G@@@@@@@@@@@@@@@]@@@@@@G@@G]@@[:MJ@@@@@@]@@@@@@G@@G]@@[:I@@@@@@E@@@@@9N@@@@KW )@@G@@-:O@)*[K@@@@-[2@:#@K0@@@R@W@@[[ -@@[C )[?AR@W@@@R#@[:)@@[@@#@@[[A[@@[@[]KX )@@G@@@@[[AU9O@@@@-[7[N#@K0^@!))]A@@C[\@@[[@0@[YG80@@]/K@[]#:80@]A/ )[]#H9)@@[KY )@@G@@C[)@[X[ -@@[C )[?C9P@@@@-][[F#@K0^G^G@K0@@@@@@@@R@K[3UN8K@@TM@-)@@R@)[3TKZ )@@G@@R@K[3SN8K@@ [[)@[XC[\@@@[[)@[Z9Q@@@@-]E[N#@K0K0K0@^@@@/K@[]KO'0@@[/KF@@@LA )@@G@@*4F@@@OY;@@@R@)[:8R@K[:7N@K[:6M@-)@@R@)[3V9R@@@@-]O[F#[#[#@K0K0[#@@@@@@@LB )@@G@@R@K[3SN8K@@ M@M)@@R@)[3VR@K[3UN8K@@TA@)[:8A@K[:7^@K[:69S@@@@-]X[N#@K0K0@LC )@@G@@K0@@@@9!?@@@R;F0@@9()[? 9!?@@@R;F0@@&'0@@[R@)[:8R@K[:7M@M)@@R@)[3T9T@@@@LD )@@G@@-]$[F#[#[@K0ES G^[#@()@@R9K[?P ^@[?Q/,)@A,R9)[?TR9K[?H ^@[?I/,)@BNC[)[:)LE )@@G@@9()[?B9U@@@@-]0[E())CS G]&]@-)O0ES@@R9)[?VR9K[?0 ^@[?1/,)@A,R9)[?VR9K[?LLF )@@G@@ ^@[?M/,)@A,R9)[?T9V@@@@-]9[F@ES G^@()O0K^G^G@@@C @[?1QB)[?0/,)@A,R9)[?YLG )@@G@@R9K[?0/,)@A,R9)[? R9K[?0/,)@A,9W@@@@-#][E(&-)O^[#[#[#[#[@@@@/ )[#GH[)L?!LH )@@G@@C[)L3E[[)L3EC )[?E/,0@ )R'K[^>C#@L?@R9K@&%9X@@@@-#F[F@K0K0K0K0K^G]&[N@@@LI )@@G@@R9)[?-R9K[?L ^@[?M/ )[#PH[)L?!C[)L3E[[)L3EC )[?M/K@[^>9Y@@@@-#O[F@K0K0K0LJ )@@G@@K0K^G]&[N@@@R9)[3HR9K[?P ^@[?Q/ )[#=H[)L?!C[)L3E[[)L3EC )[?Q/,)@A,9Z@@@@LK )@@G@@-#X[F@K0K0ET*S [@K0ES@@@R9K[?0 ^@[?1/,0@ )R'K[^>C#@L?@R9K@*.C @[?MQB)[?LLL )@@G@@/,)@A,'A@@@@-#&[E()) G]&]@-)O0ESC@@@/,)@A,R9)[?0R9K[?L ^@[?M/,)@A,R9)[3KLM )@@G@@R9K[?0/,)@A,R9)[?L'B@@@@-#\[F#@()O0K]&[N[@K0ES@@R9K[?P ^@[?Q/,)@A,R9)[3KLN )@@G@@R9K[?0/,)@A,R9)[?PR9K[?0 ^@[?1'C@@@@-#8[E())CS G]&]@O0ESC@@@/,)@A,R9)[3KLO )@@G@@R9K[?0/,)@A,R9)[?DR9K[?0 ^@[?1/,)@A,R9)[?0'D@@@@-^[[F#@()O0K^G]&[N[@ES@@LP )@@G@@R9K[?0/,)@A,R9)[?HR9K[?0 ^@[?1/,)@A,R9)[?0R9K[?D ^@[?E'E@@@@-^E[E())CS GLQ )@@G@@]&]@-)O0ES@@R9)[?BR9K[?0 ^@[?1/,)@A,R9)[?0R9K[?H ^@[?I/,)@A,R9)[3K'F@@@@LR )@@G@@-^N[F@ES G^@()O0K]&[N@@@R9)[?DR9K[?0/,)@A,R9)[?PR9K[?0/,)@A,R9)[?LR9K[?0LS )@@G@@/,)@A,'G@@@@-^W[F@ES G^[#@()O0K^@@@@/K@[^:/,)@A,R9)[?0R9K[?B ^@[?C/,)@A,LT )@@G@@R9)[?HR9K[?0/,)@A,'H@@@@-^>[F#@()O0K^[]@K0K@@@@@/K@[[2[[)[:-C9)@@['=@@@@LU )@@G@@/K@[^:/,)@A,R9)[3OR9K[?B ^@[?C'I@@@@-^,@UK0K@@@@)&%@,WGM&]ACO1@@@@R'K@^MLV )@@G@@ @@@@M/,0@^#R9K[?V/[@@^M/K@[[2[[)[:-C9)@@@'J@@@@)&\[QWGM)@CSCS)@@@[0Z@@@LW )@@G@@^[J@@@/\@@^T$B0@]C[DJ@@[[^\@@[[0Z@@@A[Z@@@R9K@*9/,0@#0'K@@@@)&9[QT#[# #^LX )@@G@@()-+@@9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K[?-/[@@^M/\@@^T$B0@]C[@\@@['L@@@@LY )@@G@@)$#[QS(+-+ G@^G^GK/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[?L^[\@@@/,0@#0R'K@^MLZ )@@G@@C9)@@['M@@@@)$H[QU&]ADK@^G^GK@^[J@@@/\@@^T$B0@]C[DJ@@[[^\@@[[0Z@@@A[Z@@@MA )@@G@@R9K@*6/,0@#+R9K[?-'N@@@@)$R[QSK0K1K1ESCS)@-]@@@M-]K@@MD9)@@@/,0@^#R9K[?=MB )@@G@@/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@'O@@@@)$-[QSES*S-N@[#@@@$B0@]C[@\@@[[0Z@@@MC )@@G@@A Z@@@R9K[?P^[\@@@/,0@#0R'K@^MC9)@@[9,@@@P'P@@@@)$:[IWGM&]AC]A]AEAC@@@@@MD )@@G@@/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#+R9K[?=/\@@^T'Q@@@@)$4[QU&]AC@ ME )@@G@@GOGK@@^[\@@@/,0@#0R'K@^MC9)@@[9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K[?$'R@@@@MF )@@G@@)$"[QU&@]A]AEA@-+@&;K@@@/\@@^M0@@@@KH[@L?%/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@MG )@@G@@R9K[?D'S@@@@)*C[QWG@@*@@@@@@@@[DJ@@[[^\@@[[0Z@@@A[Z@@@R9K@*3&;K@@[G@)@@GMH )@@G@@W8@@@A @@@@GG@KL?%'T@@@@)*M[IWG^GK^G^GOGM&@@@@@@R9K[?V/[@@^M/\@@^T$B0@]CMI )@@G@@[@\@@[[0Z@@@^[J@@@/\@@^T$B0@]C'U@@@@)*V[QWGK@ES*S-N@@@R9K[?H^[\@@@/,0@#0MJ )@@G@@R'K@^MC9)@@[9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#'V@@@@)*>[IS^G^GOGM&]AC@@@@@@@MK )@@G@@ @@@@M/,0@^#R9K[?V/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@'W@@@@)*,[IU&EAEA]ML )@@G@@AE@O0K1K]&@@R9K[?T/K@@*%/,0@#+R9K[?T/K@@*//K@@^M%[@L?!/,0@#0R'K@^M'X@@@@MM )@@G@@)*7[IWGO@()-+)CS>G^GO@@@/K@@(@/,0@#+R9K[?V/K@@#R/K@@$J/,0@#+R9K[?T/K@@$,MN )@@G@@/,0@#+'Y@@@@)(@@IWGK@@@@-:"@8/S@#1)@#1)@@@@@@@@@]@@[? @@@@@@@@A@@A[@@[?]MO )@@G@@@@@@@@]@@[?@/K@@#R'Z@@@@-? [C/S@#1)@JA@@#1)@@@@@]@@[?J @@G@@@MP )@@G@@]@@[?F@>)@@@]@@[?D@>)@@@]@@[?B;A@@@@-?I[K@/S@@JA@@@@@@ @@G@@@]@@[?RMQ )@@G@@ @@G@@@]@@[?N @@G@@@;B@@@@-?S[CJA@@/S@@/S@@@@@@@@@MR )@@G@@ @@]@@]]@@[?) @@[@@[]@@[?X@@@@@@]@@[?V ;C@@@@-?-[C/S@@/S@MS )@@G@@@/S@@@@@@@@@/ @@]@@]]@@[?(. @@[@@[]@@[?&* @@[@@[]@@[?<;D@@@@MT )@@G@@-?%[K/S@@/S@@/S@@@ @&K@@@]@@[?2@@@@@@@@A@@A[@@[?\@@@@@[@@A@@AMU )@@G@@[@@[??;E@@@@-?4[S@@@@@@@ MV )@@G@@ ;F@@@@-?_[S@@@@@@@ MW )@@G@@ ;G@@@@-!E[S@@@@@@@ MX )@@G@@ ;H@@@@-!P[S@@@@@@@ MY )@@G@@ ;I@@@@-!)[S@@@@@@@MZ )@@G@@ ;J@@@@NA )@@G@@-!:[S@@@@@@@ NB )@@G@@ ;K@@@@-!6[S@@@@@@@ NC )@@G@@ ;L@@@@-,[[S@@@@@@@ ND )@@G@@ ;M@@@@-,G[S@@@@@@@ NE )@@G@@ ;N@@@@-,R[S@@@@@@@ NF )@@G@@ ;O@@@@-,+[S@@@@@@@NG )@@G@@ ;P@@@@NH )@@G@@-,![S@@@@@@@ NI )@@G@@ ;Q@@@@-,8[S@@@@@@@ NJ )@@G@@ ;R@@@@-\#[S@@@@@@@ NK )@@G@@ ;S@@@@-\I[S@@@@@@@ NL )@@G@@ ;T@@@@-\T[S@@@@@@@ NM )@@G@@ ;U@@@@-\=[S@@@@@@@NN )@@G@@ ;V@@@@NO )@@G@@-\\[S@@@@@@@ NP )@@G@@ ;W@@@@-\'[S@@@@@@@ NQ )@@G@@ ;X@@@@-0 [S@@@@@@@ NR )@@G@@ ;Y@@@@-0K[S@@@@@@@ NS )@@G@@ ;Z@@@@-0V[S@@@@@@@ NT )@@G@@ /A@@@@-0&[S@@@@@@@NU )@@G@@ /B@@@@NV )@@G@@-01[S@@@@@@@ NW )@@G@@ /C@@@@-0/[S@@@@@@@ NX )@@G@@ /D@@@@-1B[S@@@@@@@ NY )@@G@@ /E@@@@-1M[S@@@@@@@ NZ )@@G@@ /F@@@@-1X[S@@@@@@@ OA )@@G@@ /G@@@@-1*[S@@@@@@@OB )@@G@@ /H@@@@OC )@@G@@-13[S@@@@@@@ OD )@@G@@ /I@@@@-1"[S@@@@@@@ OE )@@G@@ /J@@@@-2D[S@@@@@@@ OF )@@G@@ /K@@@@-2O[S@@@@@@@ OG )@@G@@ /L@@@@-2Z[S@@@@@@@ OH )@@G@@ /M@@@@-2%[S@@@@@@@OI )@@G@@ /N@@@@OJ )@@G@@-25[S@@@@@@@ OK )@@G@@ /O@@@@-3@[S@@@JA@@[@@[3G OL )@@G@@ /P@@@@-3F[K#1)@#1)@@/S@@]@@[3Q @@G@@G]@@[3MOM )@@G@@TPF$ @@^@@^]@@[3J@@@@@@@@A@@A/Q@@@@-3P@8@*[K@@@-^1@N#@@@@@@R@W@@@R#@[3=ON )@@G@@@@[@@#@@[[:S@@[@[]@@[[:1@@@@@@@]@@@@@@G@@G/R@@@@-^3[N#@^G[#@K]6]@@/K@[ ]OO )@@G@@:80@]A/ )[ ]H9)@@[C[)@[X[ -@@[C )[4GR@W@@[[ -@@[C )[4E/S@@@@-^.[MK0^G[#@OP )@@G@@K0K0@@M@-)@@R@)[;YR@K[;XN8K@@ [[)@[XC[\@@@[[)@[ZC[\@@[[@0@[YG80@@]/T@@@@OQ )@@G@@- B[MK0K0^G^G^G@@@/KF@@@*4F@@@OY;@@@R@)[3/R@K[3;N@K[3'M@-)@@R@)[;)R@K[;ZOR )@@G@@N8K@@T/U@@@@- L[MK^G^G^G[#[#@@N8K@@ M@M)@@R@)[;)R@K[;ZN8K@@TA@)[3/A@K[3;OS )@@G@@^@K[3'/K@[ JO'0@@[/V@@@@- V[N#[#@K0K0@K0@@R;F0@@9()[4D9!?@@@R;F0@@&'0@@[OT )@@G@@R@)[3/R@K[3;M@M)@@R@)[;YR@K[;X/W@@@@- >[EK0K0K^G]&[N[@ES@@@@R9K[4Y/,)@A,OU )@@G@@R9)[4VR9K[4Y ^@[4Z/,)@BNC[)[3=9()[4F9!?@@@/X@@@@- ,[E()) G]&]@-)O0ESC@@@OV )@@G@@/,)@A,R9)[4YR9K[4D ^@[4E/,)@A,R9)[4VR9K[4Y/,)@A,R9)[4D/Y@@@@- 7[F#[#@(&-OW )@@G@@)O^@()O0K@@@/,0@^:R9)[4]R9K[4D/,0@ )R'K[CPC#@L4^R9K@([C @[4EQB)[4D/Z@@@@OX )@@G@@-A@[F#[#@(&-)O^@()O0K@@@/,0@^:R9)['"R9K[4H/,0@ )R'K[AEC#@L4^R9K@%MC @[4IOY )@@G@@QB)[4H.A@@@@-AD[F@K0K0ET*S [@K0K0@@@9()[4@9!)@[V/,0@ )R'K[CPC#@L4^R9K@%QOZ )@@G@@C @[4EQB)[4D/K@[B@.B@@@@-AM[F#@*CSC[50A]@-)-)@@@:8@@@[9()@[V9!)[4@/@@[BSPA )@@G@@@[@[4K/K@[D@A]0@[ZR'0[AQA#0@[Y.C@@@@-AV[F@^G^[#[#@()O0K@@@@@/,)@A,R9)[4BPB )@@G@@R9K[4Y ^@[4Z @@[4C/K@[A)9()[4B9!?@@@/K@[AZ.D@@@@-A=[F#[#[#@*CSC[50A]@-)@PC )@@G@@9!)[4@/@@[BS@[@[4O/K@[D@A]0@[ZR'0[A%A#0@[Y9()[4@9!)@[V.E@@@@-A![F#@K[#[@PD )@@G@@K0K0ES@@@@@@R9K[;[ ^@[;] @@[4C/K@[A49()[4B9!?@@@/K@[A3:8@@@[9()@[V.F@@@@PE )@@G@@-A6[E()) G]&]@-)O0ESC@@@/,)@A,R9)[4YR9K[4F ^@[4G/,)@A,R9)[;[R9K[4Y/,)@A,PF )@@G@@R9)[4B.G@@@@-A_[F@K0K0K0E]A]@XW[))@@/@@[BS@[@[4K/K@[D@A]0@[ZR'0[BAA#0@[YPG )@@G@@9()[4@9!)@[V/K@[BS.H@@@@-BC[F#[#@K[#[@K0K0@@@@@@ ^@[4Z @@[4C/K@[BK9()[4BPH )@@G@@9!?@@@/K@[BJ:8@@@[9()@[V9!)[4@.I@@@@-BL[E()O0K^G]&[N[@K0ES@@R9K[4Y ^@[4ZPI )@@G@@/,)@A,R9)[4YR9K[4F ^@[4G/,)@A,R9)[4BR9K[4Y.J@@@@-BU[E()) G]&]@O0ESC[N@@@PJ )@@G@@R9K[4Y/,)@A,R9)[;DR9K[4Y/,)@A,R9)[4HR9K[4Y/,)@A,R9)[;A.K@@@@-B<[E())CS GPK )@@G@@]&]@-)-)-)@@C[)L;Q[[)L;QC )[4G/,)@A,R9)[4YR9K[4F ^@[4G/,)@A,R9)[4F.L@@@@PL )@@G@@-B?[EK0K[#[#[#[#@*@@@@@@R'0[B7A#0@[Y9()[4@9!)@[V[[)L;Q @@@@M/ )[B0W[)L;HPM )@@G@@;P)@@=.M@@@@-B5[F#[@I,@0K^G^G[@@@@@@9!?@@@/K@[C@:8@@@[9()@[V9!)[4@/@@[CFPN )@@G@@@[@[;Q/K@@B!A]0@[Z.N@@@@-B"[F#[@K0K0ES G^[#[#@@@C @[4ZQB)[4Y/,)@A,R9)[4BPO )@@G@@R9K[4Y ^@[4Z @@[4C/K@[C[9()[4B.O@@@@-CB[E(&-)O^[#[#@(&-)O@@@R'K[CVC#@L4^PP )@@G@@R9K@:QC @[4GQB)[4F/,0@ )R'K[CFC#@L4^R9K@%6.P@@@@-CK[F@ES G^[@K0ES G^@@@@PQ )@@G@@/,)@A,R9)[;TR9K[4F ^@[4G/K@[CV/,0@^:R9)[4SR9K[4F/,0@ ).Q@@@@-CT[#@K)^G^@PR )@@G@@K0K@@@)([@ISC[)@@I/K@[^1[[)[3>C9)@@@/K@[^1[[)[3>C9)@@['=@@@@/K@[CV.R@@@@PS )@@G@@)(][QS@K0K1K1ESCS)/,0@^#R9K[4V/[@@^M/K@@^M%[)L'2G[)@@[&8K@@@R@K@@HT9)@@APT )@@G@@H[)@[].S@@@@)(G[QS(+-+@-)-+O@@A[Z@@@R9K@%B/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@PU )@@G@@/,0@#0R'K@^M @@@@M.T@@@@)(Q[QS^G^GM&]ACO0@A Z@@@R9K[4H^[\@@@/,0@#+R9K['5PV )@@G@@/\@@^T$B0@]C[DJ@@[[^\@@[[0Z@@@.U@@@@)()[ISK0K1K1ESCS-N^@@@@@R'K@^M @@@@MPW )@@G@@/,0@^#R9K[4V/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@.V@@@@)(([IWGK^G^GOGM&]AC@@@@@PX )@@G@@/,0@^#R9K[4V/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#0.W@@@@)(2[QS@ES*S-PY )@@G@@N@@@@@A Z@@@R9K[4K^[\@@@/,0@#0R'K@^MC9)@@[9,@@@P-]@@@M-]K@@MD9)@@@.X@@@@PZ )@@G@@)(/[ISK0K1K1ESCS-N^@@@@@R'K@^M @@@@M/,0@^#R9K[4V/[@@^M/\@@^T$B0@]C[@\@@[QA )@@G@@[0Z@@@.Y@@@@)% [IWGO@()-+ G@@@@@@@@@[@\@@[[0Z@@@A Z@@@R9K[4H^[\@@@/,0@#+QB )@@G@@R9K['8/K@@%L/,0@#0.Z@@@@)%I[IWG^GO[#^()-+)CS)@@@C[)@@I/K@@#R/K@@%P/,0@#+QC )@@G@@R9K[';/K@@#R/K@@(=/\@@^T$B0@]C"A@@@@)%R[QS@K0K1@@@@@@@[@\@@[[0Z@@@^[J@@@QD )@@G@@/K@@^M%[)L'2G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]"B@@@@)%-[QWG^GOGM&]AC@@C9)@@[QE )@@G@@9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K[4V/[@@^M/\@@^T$B0@]C"C@@@@)%:[IU&EACO0QF )@@G@@@K0K1@@@@@@@/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[4O^[\@@@/,0@#0R'K@^M"D@@@@QG )@@G@@)%4[QW[# #@K1^G@@@G@)@@GW8@@@A @@@@GG@KL;K&;K@@@/\@@^M0@@@@KH[@L;K/K@@#RQH )@@G@@/K@@%5"E@@@@)%"[QS[#[# #@K1@@@&;K@@@/\@@^M0@@@@KH[@L;N/\@@^T$B0@]C[@\@@[QI )@@G@@[0Z@@@^[J@@@&;K@@["F@@@@):C[QWG@@ES@@@@@@@[@\@@[[0Z@@@A Z@@@R9K[4S^[\@@@QJ )@@G@@&;K@@[G@)@@GW8@@@A @@@@GG@KL;N"G@@@@):M[IWG^GO[# #@K1^G@@@@@G@KL;N&;K@@@QK )@@G@@/\@@^M0@@@@KH[@L;N/K@@#R/K@@:P/\@@^T$B0@]C"H@@@@):V@6S[@K1@@-4]@S/S@#1)@QL )@@G@@[@@[4A@@@@@@]@@[4^/K@@#R/K@@:)&;K@@[G@)@@GW8@@@A @@@@G"I@@@@-4 [C#1)@JA@QM )@@G@@@/S@#1)@@@@@]@@[4J@>)@@@]@@[4H@>)@@@]@@[4F@@@@@@]@@[4D@@@@@@@@A@@A"J@@@@QN )@@G@@-4I[K#1)@@/S@@@@@@ @@G@@@]@@[4Q @@G@@@]@@[4M QO )@@G@@@@[@@@"K@@@@-4S[K/S@@/S@@/S@@@ @>?@@@]@@[4) @@[@@[]@@[4XQP )@@G@@ @@]@@@]@@[4U"L@@@@-4+[S@@@@@@@ QQ )@@G@@ "M@@@@-4![S@@@@@@@ QR )@@G@@ "N@@@@-48[S@@@@@@@ QS )@@G@@ "O@@@@-5#[S@@@@@@@QT )@@G@@ "P@@@@QU )@@G@@-5I[S@@@@@@@ QV )@@G@@ "Q@@@@-5T[S@@@@@@@ QW )@@G@@ "R@@@@-5=[S@@@@@@@ QX )@@G@@ "S@@@@-5\[S@@@@@@@ QY )@@G@@ "T@@@@-5'[S@@@@@@@ QZ )@@G@@ "U@@@@-6 [S@@@@@@@RA )@@G@@ "V@@@@RB )@@G@@-6K[S@@@@@@@ RC )@@G@@ "W@@@@-6V[S@@@@@@@ RD )@@G@@ "X@@@@-6&[S@@@@@@@ RE )@@G@@ "Y@@@@-61[S@@@@@@@ RF )@@G@@ "Z@@@@-6/[S@@@@@@@ RG )@@G@@ _A@@@@-7B[S@@@@@@@RH )@@G@@ _B@@@@RI )@@G@@-7M[S@@@@@@@ RJ )@@G@@ _C@@@@-7X[S@@@@@@@ RK )@@G@@ _D@@@@-7*[S@@@@@@@ RL )@@G@@ _E@@@@-73[S@@@@@@@ RM )@@G@@ _F@@@@-7"[S@@@@@@@ RN )@@G@@ _G@@@@-8D[S@@@@@@@RO )@@G@@ _H@@@@RP )@@G@@-8O[S@@@@@@@ RQ )@@G@@ _I@@@@-8Z[S@@@@@@@ RR )@@G@@ _J@@@@-8%[S@@@@@@@ RS )@@G@@ _K@@@@-85[S@@@@@@@ RT )@@G@@ _L@@@@-9@[S@@@@@@@ RU )@@G@@ _M@@@@-9F[S@@@@@@@RV )@@G@@ _N@@@@RW )@@G@@-9Q[S@@@@@@@ RX )@@G@@ _O@@@@-9-[S@@@@@@@ RY )@@G@@ _P@@@@-9?[S@@@@@@@ RZ )@@G@@ _Q@@@@-97[S@@@@@@@ SA )@@G@@ _R@@@@-'][S@@@@@@@ SB )@@G@@ _S@@@@-'H[S@@@@@@@SC )@@G@@ _T@@@@SD )@@G@@-'S[S@@@@@@@ SE )@@G@@ _U@@@@-'<[S@@@@@@@ SF )@@G@@ _V@@@@-',[K@JA@@JA@@@@@@AREA @@^@@^]@@['7@@@@@@@@A@@ASG )@@G@@[@@['4 _W@@@@-'8[C/S@@/S@@/S@@@@@@@@@C @@[@@[SH )@@G@@]@@[;@A @@[@@[]@@['.DIRECT@@A@@A]@@[''_X@@@@-;[[K/S@@#1)@#1)@@@@D@@DSI )@@G@@]@@[;F @@]@@]]@@[;C @@M@@@]@@[;#_Y@@@@-;F[K#1)@#1)SJ )@@G@@@#1)@@@@A@@A[@@[;P@@@@@^@@A@@A[@@[;M@@@@@A@@A@@A[@@[;J ] _Z@@@@SK )@@G@@-;P[KJA@@JA@@])@@@@@[@[]@@[[35@@@@@@@]@@@@@@G@@G]@@[;V@@@@@@@@A@@A[@@[;SSL )@@G@@@@@@@]@A@@@@-;Z@K*@@@@@@-C-@3#@K0^G@@@@@@@H9)@@[C[)@[X[ -@@[C )[/JR@W@@@SM )@@G@@R#@[;(@@[@@#@@[[3W@B@@@@-C$[N@FSC@-)CS]A@@N8K@@ [[)@[XC[\@@@[[)@[ZC[\@@[SN )@@G@@[@0@[YG80@@]/K@[C\:80@]A/ )[C\@C@@@@-C1[F#[#@^G^G[#[#@@@@@@@R@K[/@N@K[;_SO )@@G@@M@-)@@R@)]FBR@K]FAN8K@@TM@-)@@R@)]F R@K]F^@D@@@@-C'[N#@@K^G^G^G@@@N8K@@TSP )@@G@@A@)[/[A@K[/@^@K[;_/K@[C/O'0@@[/KF@@@*4F@@@OY;@@@R@)[/[@E@@@@-D^[F#[#@^G^SQ )@@G@@G[#[#@@@@@@@R@)[/[R@K[/@M@M)@@R@)]F R@K]F^N8K@@ M@M)@@R@)]FBR@K]FA@F@@@@SR )@@G@@-DH[E[#[#[@K0ES G@@@@@@@R9)[.QR9K[.T ^@[.U/,)@BNC[)[;(9()[/I9!?@@@R;F0@@SS )@@G@@&'0@@[@G@@@@-DQ[F@ES G^@()O0K^G]&@@@R9K[/I ^@[/J/,)@A,R9)[.QR9K[.T/,)@A,ST )@@G@@R9)[/IR9K[.T/,)@A,@H@@@@-DZ[E())CS G]&]@-)O0ES@@R9)]#?R9K[/2 ^@[/3/,)@A,SU )@@G@@R9)]#?R9K[/= ^@[/>/,)@A,R9)[.T@I@@@@-D*[F@K0ES G^[#@()O0K@@@/,)@A,R9)]#?SV )@@G@@R9K[.E ^@[.F/,)@A,R9)]#?R9K[/" ^@[/_/,)@A,@J@@@@-D1[F#[#@(&-)O^@()O0K@@@SW )@@G@@/,0@^:R9)[/BR9K[/I/,0@ )R'K[KUC#@L/DR9K@:-C @[/JQB)[/I@K@@@@-D'[F#[#@(&-SX )@@G@@)O^@()O0K@@@/,0@^:R9)[/BR9K[/I/,0@ )R'K[E#C#@L/DR9K@:_C @[/JQB)[/I@L@@@@SY )@@G@@-E#[F#[#@(&-)O^[#[#@(&@@R9K@!XC @[/3QB)[/2/,0@ )R'K[EDC#@L/DR9K@?!C @[/>SZ )@@G@@QB)[/=@M@@@@-EG[F#@*C]A]A]A[KK0K@@@@/K@[Z4A]0@[ZR'0[EPA#0@[Y9()[/ 9!)@[VTA )@@G@@/,0@ )R'K[EJC#@L/D@N@@@@-EP[E'8#[@K0K0^@K0K@@@@@/K@[EZ9()[/G9!?@@@/K@[EYTB )@@G@@:8@@@[9()@[V9!)[/ /@@[E*@[@[/=@O@@@@-EY[F#[#@()O0K^G]&[N[@@@/,)@A,R9)[.TTC )@@G@@R9K[/K ^@[/L/,)@A,R9)[/GR9K[.T ^@[.U @@[/H@P@@@@-E$[F@K0K0K0E]A]@XW[))@@TD )@@G@@/@@[FP@[@[/=/K@[X%A]0@[ZR'0[E,A#0@[Y9()[/ 9!)@[V/K@[F@@Q@@@@-E0[F#[#@K[#TE )@@G@@[@K0K0@@@@@@ ^@[.U @@[/H/K@[E89()[/G9!?@@@/K@[E7:8@@@[9()@[V9!)[/ @R@@@@TF )@@G@@-E9[E()O0K^G]&[N[@K0K0@@C @[/3QB)[/2/,)@A,R9)[.TR9K[/K ^@[/L/,)@A,R9)[/GTG )@@G@@R9K[.T@S@@@@-F][E(&-)O^[@K0K0ET*S@@@C#@L/DR9K@,SC @[/_QB)[/"/K@[KU/,0@ )TH )@@G@@R'K[FBC#@L/DR9K@,H@T@@@@-FF[E*C]@-)-)O3K0E]@@@@@/,0@ )R'K[K)C#@L/DR9K@,:8@@@[9()@[V9!)[/ /@@[KU@@@[/"@W@@@@-F>[F#[#@()OTL )@@G@@0K^G]&[N[@@@/,)@A,R9)[.TR9K[/K ^@[/L/,)@A,R9)[/GR9K[.T ^@[.U @@[/H@X@@@@TM )@@G@@-F,[F#[#@(&-)O^[#[#@(&@@R9K@,9C @[/LQB)[/K/,0@ )R'K[KEC#@L/DR9K@,,C @[/_TN )@@G@@QB)[/"@Y@@@@-F7[F#@*C]A]A[NH#@*C@@@@/,0@ )R'K[G[C#@L/DR9K@\AC @[/3QB)[/2TO )@@G@@/,0@ )R'K[KUC#@L/D@Z@@@@-G@[F@K0K0K0E]A]@XW[))@@/@@[G>@[@[/"/K@[X%A]0@[ZTP )@@G@@R'0[GBA#0@[Y9()[/ 9!)@[V/K@[HE[A@@@@-GD[F#[#@K[#[@K0K0@@@@@@ ^@[.U @@[/HTQ )@@G@@/K@[GL9()[/G9!?@@@/K@[GK:8@@@[9()@[V9!)[/ [B@@@@-GM[E()O0K^G^G]&UA[KK@@@TR )@@G@@/,0@ )R'K[G>C#@L/DR9K@\LC @[.UQB)[.T/,)@A,R9)[/GR9K[.T[C@@@@-GV[F#[#@(&-TS )@@G@@)O^@()O0K@@@/,0@^:R9)[/ZR9K[/K/,0@ )R'K[K)C#@L/DR9K@\\C @[/LQB)[/K[D@@@@TT )@@G@@-G=[#@K0K0K0E]A]@XW[)@@@@@@@@@@]@[/"/K@[-/A]0@[ZR'0[G:A#0@[Y9()[/ 9!)@[VTU )@@G@@/K@[K)[E@@@@-G?[E/S#[@K0K0^@K0K@@@@@/K@[G69()[/G9!?@@@/K@[G5:8@@@[9()@[VTV )@@G@@9!)[/ /@@[KU@@@]#?[F@@@@-G5[F#[#@()O0K^G^G]&UA@@C#@L/DR9K@0]C @[.UQB)[.TTW )@@G@@/,)@A,R9)[/GR9K[.T ^@[.U @@[/H[G@@@@-G"[E*C]A]A[NH#@*C[N@@@@R9K[/K/,0@ )TX )@@G@@R'K[K)C#@L/DR9K@0TC @[/LQB)[/K/,0@ )R'K[KU[H@@@@-HB[E())C]A]A[NH#@*C@@@@TY )@@G@@/,0@ )R'K[HOC#@L/DR9K@0?C @[/_QB)[/"/K@[K)/,0@^:R9)[/W[I@@@@-HK[E()O0K^[TZ )@@G@@#[#@(&-)O@@@R'K[HYC#@L/DR9K@0'C @[/_QB)[/"/K@[H$/,0@^:R9)]^IR9K[/"[J@@@@UA )@@G@@-HT[F@ES G^[@K0K0ET*S@@@C#@L/DR9K@1CC @[/_QB)[/"/K@[H$/,0@^:R9)]^OR9K[/"UB )@@G@@/,0@ )[K@@@@-H+[E*C[N@())CSCS G4G@@@C#@L/DR9K@1QC @[/LQB)[/K/,0@^:R9)]^UUC )@@G@@R9K[/"/,0@ )R'K[KU[L@@@@-H:[E*C[N@())CSCSCS @@@@R'0[H6A#0@[Y9()[/ 9!)@[VUD )@@G@@/,0@^:R9)[/"R9K[/K/,0@ )R'K[H0[M@@@@-H4[F#[@I,@0K^G^G[@@@@@@9!?@@@/K@[H_UE )@@G@@:8@@@[9()@[V9!)[/ /@@[IQ@[@[/2/K@[X%A]0@[Z[N@@@@-H.[F#[@K0K0ES G^[#@()@@UF )@@G@@R9K]^X ^@]^Y/,)@A,R9)[/GR9K[.T ^@[.U @@[/H/K@[I@9()[/G[O@@@@-IA[E()) G]&UG )@@G@@]@-)O0ESC@@@/,)@A,R9)]^XR9K[/K ^@[/L/,)@A,R9)[.TR9K]^X/,)@A,R9)[/K[P@@@@UH )@@G@@-IJ[F#[#@(&-)O^[@K0K0@@@9()[/ 9!)@[V/K@[KU/,0@ )R'K[K)C#@L/DR9K@1(C @[.FUI )@@G@@QB)[.E[Q@@@@-IS[##@*CSC[50A[80A]@-)@@@@@@@9!)[/ /@@[KU@@@[.E@]@[/2/K@[-/UJ )@@G@@A]0@[ZR'0[IWA#0@[Y[R@@@@-I)[F#@K[#[@K0K0ES@@@@@@R9K[.T ^@[.U @@[/H/K@[I$UK )@@G@@9()[/G9!?@@@/K@[I&:8@@@[9()@[V[S@@@@-I([E())CS G]&]@O0ESC@@@/,)@A,R9)[.TUL )@@G@@R9K]^X/,)@A,R9)[/KR9K]^X ^@]^Y/,)@A,R9)[/G[T@@@@-I2[F#@()O0K^G^G]&UA[K@@UM )@@G@@R'K[K)C#@L/DR9K@14C @[.FQB)[.E/,)@A,R9)]^XR9K[/K ^@[/L[U@@@@-I;[F@K0K0K0UN )@@G@@E]A]@XW[))@@/@@[J>@[@[.E/K@[X%A]0@[ZR'0[J]A#0@[Y9()[/ 9!)@[V/,0@ )[V@@@@UO )@@G@@-J^[F#[#@K[#[@K0K0@@@@@@ ^@[.U @@[/H/K@[JG9()[/G9!?@@@/K@[JF:8@@@[9()@[VUP )@@G@@9!)[/ [W@@@@-JH[E()O0K^G]&[N[@ES G@@R9)[.TR9K]^X/,)@A,R9)[/KR9K]^X ^@]^YUQ )@@G@@/,)@A,R9)[/GR9K[.T[X@@@@-JQ[F@K0ES G^[#[#@(&-)@@C#@L/DR9K@1_C @[/LQB)[/KUR )@@G@@/,)@A,R9)]^XR9K[/K ^@[/L/,)@A,[Y@@@@-JZ[E*C[N@())C]A]A]A@@@@A#0@[Y9()[/ US )@@G@@9!)@[V/K@[K)/,0@^:R9)[/BR9K[/K/,0@ )R'K[K)[Z@@@@-J*[E*CSC[50A[80A]@-)-)@UT )@@G@@:8@@@[9()@[V9!)[/ /@@[KU@@@]#?@]@[.E/K@[-/A]0@[ZR'0[J:]A@@@@-J1[F@^G^[#[UU )@@G@@#@()O0K@@@@@/,)@A,R9)[/GR9K[.T ^@[.U @@[/H/K@[J69()[/G9!?@@@/K@[J5]B@@@@UV )@@G@@-J'[F#[#@(&-)O^[#[#@(&@@R9K@2(C @[/LQB)[/K/,0@ )R'K[KUC#@L/DR9K@2MC @[.UUW )@@G@@QB)[.T]C@@@@-K#[F#@*C[N@())C]A]A@@@@C @[/3QB)[/2/K@[K)/,0@^:R9)[/WR9K[/KUX )@@G@@/,0@ )R'K[K)C#@L/D]D@@@@-KG[E(&-)O^[#[#@(&-)O@@@R'K[H0C#@L/DR9K@3BC @[/LUY )@@G@@QB)[/K/,0@ )R'K[K)C#@L/DR9K@2/]E@@@@-KP[F@ES G^[@K0ES G^@@@@/,)@A,R9)]F@UZ )@@G@@R9K[/K ^@[/L/K@[H0/,0@^:R9)]^IR9K[/K/,0@ )]F@@@@-KY[#@K)ESCSC@-))@@@@[@@VA )@@G@@@@@@@@/K@[C-[[)[;%C9)@@@/K@[C-[[)[;%C9)[/K'=@@@@/K@[K)]G@@@@):-[IWGM&]ACVB )@@G@@O1K1@@@@@@@@[@\@@[[0Z@@@^[J@@@/,0@#0R'K@^M @@@@M/,0@^#R9K[.Q/[@@^M]H@@@@VC )@@G@@):%[QWG^GOGM&]AC@@C9)@@[9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K]#,/[@@^M/\@@^TVD )@@G@@$B0@]C]I@@@@):4[IU&EACO0@K0K1@@@@@@@/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[/=VE )@@G@@^[\@@@/,0@#0R'K@^M]J@@@@):.[QW[#^@[#[#^@@@/K@@^M%[)M#2G[)@@[&8K@@@R@K@@HVF )@@G@@T9)@@AH[)@[]C[)@@I/K@@#R/K@@:"]K@@@@)?B[IWGM&]ACO1K1ESCS*S)@/[@@^M/,0@#+VG )@@G@@R9K]#5/,0@#0R'K@^M @@@@M/,0@^#R9K[.Q/[@@^M]L@@@@)?K[IU&]ACO1K1@K0@@@@@@@VH )@@G@@$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#0R'K@^M @@@@M/,0@^#R9K[.Q]M@@@@)?T[QWGOGM&]VI )@@G@@AC@ GKR'K@^MC9)@@[9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K]#8/[@@^M/\@@^T]N@@@@VJ )@@G@@)?<[IWGK()@-)-+)@@@@@@@@/K@@??/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[/2^[\@@@VK )@@G@@/,0@#0]O@@@@)??[IWGK^G^GOGM&]AC@@@@@/,0@^#R9K]#//[@@^M/\@@^T$B0@]C[@\@@[VL )@@G@@[0Z@@@^[J@@@/K@@#R]P@@@@)?5[QS@ES*S-N@@@@@A Z@@@R9K[/=^[\@@@/,0@#0R'K@^MVM )@@G@@C9)@@[9,@@@P-]@@@M-]K@@MD9)@@@]Q@@@@)?_[QSK0K1ESCS)CS@$B0@]C[@\@@[[0Z@@@VN )@@G@@^[J@@@/,0@#+R9K]#//\@@^T$B0@]C[@\@@[[0Z@@@]R@@@@)!D[QWGOGM&]AC@ GKR'K@^MVO )@@G@@C9)@@[9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K]#_/[@@^M/\@@^T]S@@@@)!N[IWGK()@-VP )@@G@@)-+)@@@@@@@@/K@@!W/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[/"^[\@@@/,0@#0]T@@@@VQ )@@G@@)!W[IWGK^G^GOGM&]AC@@@@@/,0@^#R9K]#//[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@VR )@@G@@/K@@#R]U@@@@)!>[QS@ES*S-N@@@@@A Z@@@R9K[/2^[\@@@/,0@#0R'K@^MC9)@@[9,@@@PVS )@@G@@-]@@@M-]K@@MD9)@@@]V@@@@)!\[QSK0K1ESCS)CS@$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#+VT )@@G@@R9K]#//\@@^T$B0@]C[@\@@[[0Z@@@]W@@@@)!9[QWGOGM&]AC@ GKR'K@^MC9)@@[9,@@@PVU )@@G@@-]@@@M-]K@@MD9)@@@/,0@^#R9K]#_/[@@^M/\@@^T]X@@@@),#[IWGK()@-)-+)@@@@@@@@VV )@@G@@/K@@,G/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[.E^[\@@@/,0@#0]Y@@@@),G[QWGOG[#^VW )@@G@@K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM^]&;K@@@/\@@^M0@@@@KH[@M^]/K@@#R]Z@@@@VX )@@G@@),Q[QW[# #@K1^G@@@G@)@@GW8@@@A @@@@GG@KM^]&;K@@@/\@@^M0@@@@KH[@M^]/K@@#RVY )@@G@@/K@@,R#A@@@@),)[QT@K1K0^GL#@@@W8@@@A @@@@GG@KM^]&;K@@@/\@@^M0@@@@KH[@M^]VZ )@@G@@/K@@#R/K@@,+&;K@@[#B@@@@),%[QSK^GOG[#^K0@@ @@@@GG@KM^]&;K@@@/\@@^M0@@@@KWA )@@G@@H[@M^]/K@@#R/K@@,!&;K@@[G@)@@G#C@@@@),4[QS^[# #@K1^G@@G@KM^ &;K@@@/\@@^MWB )@@G@@0@@@@KH[@M^ /K@@#R/K@@,8&;K@@[G@)@@GW8@@@A#D@@@@),"[QS@()-+)CS*S@@0@@@@KWC )@@G@@H[@M^]/K@@#R/K@@\ /,0@#+R9K]^C&;K@@[G@)@@GW8@@@A @@@@G#E@@@@)\C[QWGL#@@KWD )@@G@@^GOG@@H[@M^ /K@@#R/K@@\K&;K@@[G@)@@GW8@@@A @@@@GG@KM^]&;K@@@/\@@^M#F@@@@WE )@@G@@)\M[QT#^K0@@@@@@@@[0Z@@@^[J@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM^ &;K@@@/\@@^MWF )@@G@@0@@@@K#G@@@@)\W[QT#[#^@@@@@@@@ @@@@K&;K@@[G@)@@GW8@@@A @@@@GG@K@@K&;K@@@WG )@@G@@/\@@^T$B0@]C[@\@@[#H@@@@)\&[QS()@-)-+)CS)@C[)@@I/K@@#R/K@@\,/\@@^T$B0@]CWH )@@G@@[@\@@[[0Z@@@A Z@@@R9K[/Z^[\@@@#I@@@@)\0[QS@K0K1K0^GK@@/\@@^M0@@@@KH[@M^ WI )@@G@@/K@@^M%[)M^ G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]#J@@@@)\'[QT#@@K^GK@@@@@[0Z@@@WJ )@@G@@^[J@@@/K@@#R/K@@0[&;K@@[G@)@@GW8@@@A @@@@GG@KM^ &;K@@@#K@@@@)0^[QT#[# #@WK )@@G@@K1^G@@W8@@@A @@@@GG@KM^ &;K@@@/\@@^M0@@@@KH[@M^ /\@@^T$B0@]C[@\@@[#L@@@@WL )@@G@@)0I[QS]&@]A]AE@@@@/K@@0S/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K[/W^[\@@@&;K@@[WM )@@G@@G@)@@G#M@@@@)0S[QWGK@^G^GOG@@@H[@M^ /K@@^M%[)M^ G[)@@[&8K@@@R@K@@HT9)@@AWN )@@G@@H[)@[]C[)@@I/K@@#R#N@@@@)0+[QT#^K0@^[#^@@@/K@@#R/K@@0:&;K@@[G@)@@GW8@@@AWO )@@G@@ @@@@GG@KM^ &;K@@@/\@@^M0@@@@K#O@@@@)0?[QS@^G^GM&]AC@@/,0@#+R9K]^F/K@@^MWP )@@G@@%[)M#2G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I#P@@@@)06[QWG^GO[#^@@@@@G[)@@[WQ )@@G@@&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@09/K@@^M%[@M#2#Q@@@@)1@[IWG^GM&]WR )@@G@@AEA]AE@-+@@@C[)@@I/K@@#R/K@@1B/K@@^M%[@M#2/,0@#+R9K]^L/K@@^M%[)M#2#R@@@@WS )@@G@@)1D[QS@K0K1ESCS*S@%[@M#2/,0@#+R9K]^R/K@@^M%[)M#2G[)@@[&8K@@@R@K@@HT9)@@AWT )@@G@@H[)@[]#S@@@@)1N[QWGO[#^@[#@@@@%[)M^ G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@IWU )@@G@@/K@@#R/K@@1P/K@@^M#T@@@@)1X[QWGOG[#^K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM^ WV )@@G@@&;K@@@/\@@^M0@@@@KH[@M^ /K@@^M#U@@@@)1$[QW[# #@K1^G@@@G@)@@GW8@@@A @@@@GWW )@@G@@G@KM^]&;K@@@/\@@^M0@@@@KH[@M^]/K@@#R/K@@1*#V@@@@)11[QT@K1K0^GL#@@@W8@@@AWX )@@G@@ @@@@GG@KM^]&;K@@@/\@@^M0@@@@KH[@M^]/K@@#R/K@@13&;K@@[#W@@@@)1;[QSK^GK@@WY )@@G@@@@@@@@G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@1"&;K@@[G@)@@G#X@@@@WZ )@@G@@)2 [QWG^GOG[#^K0@@G@)@@GW8@@@A @@@@GG@KME.&;K@@@/\@@^M0@@@@KH[@ME./K@@^MXA )@@G@@%[)ME'#Y@@@@)2J[QT@K1@K0K1K0@@0@@@@KH[@M^ /\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@XB )@@G@@/K@@#R/K@@2L&;K@@[#Z@@@@)2T[QWGL#@@]&@@@@@A Z@@@R9K[/W^[\@@@&;K@@[G@)@@GXC )@@G@@W8@@@A @@@@GG@KM^ &;K@@@/\@@^M^A@@@@)2<[QSK0K1K^GK@@@@R@K@@HT9)@@AH[)@[]XD )@@G@@C[)@@I/K@@#R/K@@2*/\@@^T$B0@]C[@\@@[[0Z@@@^B@@@@)2![QSK0K1K0^GL#@@ @@@@GXE )@@G@@G@KM^ &;K@@@/\@@^M0@@@@KH[@M^ /K@@^M%[)ME'G[)@@[&8K@@@^C@@@@)27[QS^[# #@XF )@@G@@K1^G@@G@KM^]&;K@@@/\@@^M0@@@@KH[@M^]/K@@#R/K@@2;&;K@@[G@)@@GW8@@@A^D@@@@XG )@@G@@)3[[YS[@K1@@&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@3A&;K@@[G@)@@GW8@@@AXH )@@G@@ @@@@G^E@@@@)3G@"T#[#^()-+)CS)-/B@C/S@@@@@]@@[/D/K@@#R/K@@3M/,0@#+R9K]^CXI )@@G@@/K@@^M%[)M^ G[)@@[^F@@@@-/C[CJA@@JA@@/S@#1)@@@@@]@@[/M@>)@@@]@@[/K@@@@@@XJ )@@G@@]@@[/I@@@@@@@@A@@A[@@[/F@@@@@@^G@@@@-/L[S@@@@@@@ XK )@@G@@ @@/@@@^H@@@@-/W[K/S@@/S@@#1)@@@[C@@@XL )@@G@@]@@[/& @@M@@@]@@[/- @@A@@@]@@[/Y^I@@@@-/&[S@@@@@@@XM )@@G@@ ^J@@@@XN )@@G@@-/1[SJA@@@@@ @@/@@@]@@[/4XO )@@G@@ ^K@@@@-//[S#1)@@@@ @@/@@@XP )@@G@@]@@[.@ ^L@@@@-.B[S@/S@@@@ XQ )@@G@@@@/@@@]@@[.G ^M@@@@-.M[K@JA@@JA@@@@@@ @>+@@@]@@[.VXR )@@G@@ @@[@@[]@@[.S ^N@@@@-.W[S@@@@@@@ XS )@@G@@ ^O@@@@-.$[S@@@@@@@XT )@@G@@ ^P@@@@XU )@@G@@-.2[S@@@@@@@ XV )@@G@@ ^Q@@@@-..[S@@@@@@@ XW )@@G@@ ^R@@@@-"C[S@@@@@@@ XX )@@G@@ ^S@@@@-"N[S@@@@@@@ XY )@@G@@ ^T@@@@-"Y[S@@@@@@@ XZ )@@G@@ ^U@@@@-"([S@@@@@@@YA )@@G@@ ^V@@@@YB )@@G@@-"4[S@@@@@@@ YC )@@G@@ ^W@@@@-"_[S@@@@@@@ YD )@@G@@ ^X@@@@-_E[S@@@@@@@ YE )@@G@@ ^Y@@@@-_P[S@@@@@@@ YF )@@G@@ ^Z@@@@-_)[S@@@@@@@ YG )@@G@@ A@@@@-_:[S@@@@@@@YH )@@G@@ B@@@@YI )@@G@@-_6[S@@@@@@@ YJ )@@G@@ C@@@@+@[[S@@@@@@@ YK )@@G@@ D@@@@+@G[S@@@@@@@ YL )@@G@@ E@@@@+@R[S@@@@@@@ YM )@@G@@ F@@@@+@+[S@@@@@@@ YN )@@G@@ G@@@@+@![S@@@@@@@YO )@@G@@ H@@@@YP )@@G@@+@8[S@@@@@@@ YQ )@@G@@ I@@@@+[#[S@@@@@@@ YR )@@G@@ J@@@@+[I[S@@@@@@@ YS )@@G@@ K@@@@+[T[S@@@@@@@ YT )@@G@@ L@@@@+[=[S@@@@@@@ YU )@@G@@ M@@@@+[\[S@@@@@@@YV )@@G@@ N@@@@YW )@@G@@+['[S@@@@@@@ YX )@@G@@ O@@@@+] [S@@@@@@@ YY )@@G@@ P@@@@+]K[S@@@@@@@ YZ )@@G@@ Q@@@@+]V[S@@@@@@@ ZA )@@G@@ R@@@@+]&[S@@@@@@@ ZB )@@G@@ S@@@@+]1[S@@@@@@@ZC )@@G@@ T@@@@ZD )@@G@@+]/[S@@@@@@@ ZE )@@G@@ U@@@@+#B[S@@@@@@@ ZF )@@G@@ V@@@@+#M[S@@@@@@@ ZG )@@G@@ W@@@@+#X[S@@@@@@@ ZH )@@G@@ X@@@@+#*[K@JA@@/S@@@@@@=/* ZI )@@G@@ !,+<>@@D@@D]@@]#0@@@@@@]@@]#, Y@@@@+#2[K/S@@/S@ZJ )@@G@@@/S@@@/* ,+<>=@@C@@C]@@]#'OF @@]@@]]@@]#7@@@@@@@@A@@A[@@]#4 Z@@@@ZK )@@G@@+#/[C/S@@/S@@/S@@@@@@@@@@@@@@[@@A@@A[@@]^^) @@[@@[]@@]^[( @@[@@[ZL )@@G@@]@@]#"AA@@@@+^ [C/S@@/S@@/S@@@@@@@@@N @@[@@[]@@]^H@@@ @@#@@#]@@]^EZM )@@G@@@@@@@#@@A@@A[@@]^BAB@@@@+^I[C/S@@/S@@/S@@@@@@@@@+@@ @@#@@#]@@]^QO ZN )@@G@@@@[@@[]@@]^N-@@ @@#@@#]@@]^KAC@@@@+^R[K/S@@/S@@/S@@@ @&Y@@@ZO )@@G@@]@@]^Z<@@ @@#@@#]@@]^WP @@[@@[]@@]^TAD@@@@+^-[S@@@@@@@ ZP )@@G@@ AE@@@@+^?[S@@@@@@@ZQ )@@G@@ AF@@@@ZR )@@G@@+^7[S@@@@@@@ ZS )@@G@@ AG@@@@+ ][S@@@@@@@ ZT )@@G@@ AH@@@@+ H[S@@@@@@@ ZU )@@G@@ AI@@@@+ S[S@@@@@@@ ZV )@@G@@ AJ@@@@+ <[S@@@@@@@ ZW )@@G@@ AK@@@@+ ,[S@@@@@@@ZX )@@G@@ AL@@@@ZY )@@G@@+ 9[S@@@@@@@ ZZ )@@G@@ AM@@@@+A^[S@@@@@@@ AA )@@G@@ AN@@@@+AJ[S@@@@@@@ AB )@@G@@ AO@@@@+AU[S@@@@@@@ AC )@@G@@ AP@@@@+A>[S@@@@@@@ AD )@@G@@ AQ@@@@+A0[S@@@@@@@AE )@@G@@ AR@@@@AF )@@G@@+A;[S@@@@@@@ AG )@@G@@ AS@@@@+BA[S@@@@@@@ AH )@@G@@ AT@@@@+BL[S@@@@@@@ AI )@@G@@ AU@@@@+BW[S@@@@@@@ AJ )@@G@@ AV@@@@+B$[S@@@@@@@ AK )@@G@@ AW@@@@+B2[S@@@@@@@AL )@@G@@ AX@@@@AM )@@G@@+B.[S@@@@@@@ AN )@@G@@ AY@@@@+CC[S@@@@@@@ AO )@@G@@ AZ@@@@+CN[S@@@@@@@ AP )@@G@@ BA@@@@+CY[S@@@@@@@ AQ )@@G@@ BB@@@@+C([S@@@@@@@ AR )@@G@@ BC@@@@+C4[S@@@@@@@AS )@@G@@ BD@@@@AT )@@G@@+C_[S@@@@@@@ AU )@@G@@ BE@@@@+DE[S@@@@@@@ AV )@@G@@ BF@@@@+DP[S@@@@@@@ AW )@@G@@ BG@@@@+D)[S@@@@@@@ AX )@@G@@ BH@@@@+D:[S@@@@@@@ AY )@@G@@ BI@@@@+D6[S@@@@@@@AZ )@@G@@ BJ@@@@BA )@@G@@+E[[S@@@@@@@ BB )@@G@@ BK@@@@+EG[S@@@@@@@ BC )@@G@@ BL@@@@+ER[S@@@@@@@ BD )@@G@@ BM@@@@+E+[S@@@@@@@ BE )@@G@@ BN@@@@+E![S@@@@@@@ BF )@@G@@ BO@@@@+E8[K#1)@#1)BG )@@G@@@#1)@@@@G@@G]@@]F]@@@@@A@@A@@A[@@]E_@@@@@D@@A@@A[@@]E/ BP@@@@BH )@@G@@+F]@0]) @@@@-K&@V#@K0@@@C )]F6R@W@@@R#@]FK@@[@@#@@[[;-@@[@[]@@[[;'@@@@@@BI )@@G@@@@@@@@BQ@@@@-K([M^G@K0[#@@@@@@[ -@@[C )]F/R@W@@#[ -@@[C )]F'R@W@@][ -@@[BJ )@@G@@C )]F8R@W@@[[ -@@[BR@@@@-K3[MK0[#@^G@@@@@@R@W@@B[ -@@[C )]G]R@W@@A[ -@@[BK )@@G@@C )]G@R@W@@ [ -@@[C )]F"R@W@@^BS@@@@-K.[N#@^G@K0[#@@@@C )]GER@W@@E[ -@@[BL )@@G@@C )]GCR@W@@D[ -@@[C )]GAR@W@@C[ -@@[C )]G^BT@@@@-LB[M^G@K0^G[@@@@@/ )[LSBM )@@G@@H9)@@[C[)@[X[ -@@[C )]GIR@W@@G[ -@@[C )]GGR@W@@F[ -@@[BU@@@@-LL[M!))]A@-BN )@@G@@)CS]A@R@K]!BN8K@@ [[)@[XC[\@@@[[)@[ZC[\@@[[@0@[YG80@@]/K@[LS:80@]ABV@@@@BO )@@G@@-LV[F#@^G^G[#[#[#@@@@@@@R@)]F*R@K]F$N@K]F&M@-)@@R@)]!ER@K]!DN8K@@TM@-)@@BP )@@G@@R@)]!CBW@@@@-L=[M@K^G^G^G[#@@@R@K]!DN8K@@TA@)]F*A@K]F$^@K]F&/K@[L>O'0@@[BQ )@@G@@/KF@@@*4F@@@OY;@@@BX@@@@-L,[N#@^G^G[#[#@@@R;F0@@&'0@@[R@)]F*R@K]F$M@M)@@BR )@@G@@R@)]!CR@K]!BN8K@@ M@M)@@R@)]!EBY@@@@-L8[MK0[#@^G@@@@@@9!?@@@R;F0@@9()]F9BS )@@G@@9!?@@@R;F0@@9()]F79!?@@@R;F0@@9()]F59!?@@@BZ@@@@-M][N#@^G@K0[#@@@@9()]G[BT )@@G@@9!?@@@R;F0@@9()]F_9!?@@@R;F0@@9()]F.9!?@@@R;F0@@9()]F;CA@@@@-MG[M^G@K0[#BU )@@G@@@@@@@@R;F0@@9()]GB9!?@@@R;F0@@9()]G 9!?@@@R;F0@@9()]G#9!?@@@R;F0@@CB@@@@BV )@@G@@-MQ[MK0[#@^G^G^@@@/,)@BNC[)]FK9()]GH9!?@@@R;F0@@9()]GF9!?@@@R;F0@@9()]GDBW )@@G@@9!?@@@CC@@@@-M)[F#@()O0K]&[N[@ES G@@R9)]GJR9K]GM/,)@A,R9)]F7R9K]GM/,)@A,BX )@@G@@R9)]GJR9K]GM ^@]GNCD@@@@-M([F@K0ES G^[#[#@(&-)@@C#@MF0R9K@3NC @]F8QB)]F7BY )@@G@@/,)@A,R9)]GMR9K]F7 ^@]F8/,)@A,CE@@@@-M2[E*C[N@())CSCSCSCS@@@9()]F?9!)@[VBZ )@@G@@[[)MS"C )]GG/,0@^:R9)]F,R9K]F7/,0@ )R'K[N.CF@@@@-M;[F#@*CSC[50A]@-)-)@@@CA )@@G@@:8@@@[9()@[V9!)]F?/@@[NL@[@]S"/K@@B!A]0@[ZR'0[M_A#0@[YCG@@@@-N^[F@^G^[#[CB )@@G@@#@()O0K@@@@@/,)@A,R9)]F3R9K]GM ^@]GN @@]F4/K@[ND9()]F39!?@@@/K@[NCCH@@@@CC )@@G@@-NH[F#@()O0K^G]&[N[@ES@@R9K]GM/,)@A,R9)]GFR9K]GM ^@]GN/,)@A,R9)]GMR9K]GHCD )@@G@@ ^@]GICI@@@@-NQ[E())CS G]&]@-)-)-)@@C[)MS"[[)MS"C )]GG/,)@A,R9)]GMR9K]GFCE )@@G@@ ^@]GG/,)@A,R9)]T[CJ@@@@-NZ[EK0K[#[#[#[@@@@@@@@@ @@@@N/ 0[N*S[)MT^C[)MS"CF )@@G@@[[)MS" @@@@M/ )[N[F#@()O0K^G]&[N[@ES@@R9K]GM/,)@A,R9)]GFR9K]GM ^@]GN/,)@A,R9)]GMR9K]GHDF )@@G@@ ^@]GIDG@@@@-Q,[E())CS G]&]@-)-)-)@@C[)MS"[[)MS"C )]GG/,)@A,R9)]GMR9K]GFDG )@@G@@ ^@]GG/,)@A,R9)]T[DH@@@@-Q7[EK0K[#[#[#[@@@@@@@@@ @@@@N/ 0[R@S[)MT^C[)MS"DH )@@G@@[[)MS" @@@@M/ )[Q;W[)MT^;P)@@=DI@@@@-R@[F#[#[#[#[#@(&-)O^@@@/,0@ )R'K[RDDI )@@G@@C#@MF0R9K@6%C @]GGQB)]GF[[)MT\C[)MS"[[0MS"DJ@@@@-RD[F#@()O0K]&[N[@ES G@@DJ )@@G@@R9)]GFR9K]GM/,)@A,R9)]GHR9K]GM/,)@A,R9)]F_R9K]GM ^@]GNDK@@@@-RM[F@K0ES GDK )@@G@@^[@K0K0ET)@@R9K@7[C @]F8QB)]F7/K@[S=/,)@A,R9)]GMR9K]F_ ^@]G@/,)@A,DL@@@@DL )@@G@@-RV[F#@*C[N@())CSCSCS@@@9!)@[V[[)MS"C )]GG/,0@^:R9)]F,R9K]F7/,0@ )R'K[S DM )@@G@@C#@MF0DM@@@@-R=[F#[#@*CSC[50A]@-)-)@9()@[V9!)]F?/@@[R;@[@]S"/K@@B!A]0@[ZDN )@@G@@R'0[R(A#0@[Y9()]F?DN@@@@-R![EK[#[@K0K0ES G@@@@@@R9)]F3R9K]GM ^@]GN @@]F4DO )@@G@@/K@[R39()]F39!?@@@/K@[R2:8@@@[DO@@@@-R6[F@K0ES G^[#[#@(&-)@@C#@MF0R9K@7G@@R9K]TX/K@@#R/K@@53/,0@#+R9K]TR/K@@#RFK )@@G@@/K@@5\/\@@^T$B0@]CFD@@@@)55[IWGO[#^()-+)CS>G^GK@/,0@#+R9K]T(/K@@#R/K@@5;FL )@@G@@/,0@#+R9K]T[IWGM&]AE@-+@-)@@@@@@$B0@]C[@\@@[[0Z@@@^[J@@@/K@@#R/K@@6(FR )@@G@@/,0@#+R9K]S;/\@@^TFJ@@@@)6,[QWGOG[#^K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KMT\FS )@@G@@&;K@@@/\@@^M0@@@@KH[@MT\/\@@^TFK@@@@)68[QS()@-)-+)CS)@C[)@@I/K@@#R/K@@7@FT )@@G@@/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K]GF^[\@@@FL@@@@)7][QS@K0K1K1ESCS)/,0@^#FU )@@G@@R9K]GJ/[@@^M/K@@^M%[)MS8G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]FM@@@@)7G[IS(+-+@-FV )@@G@@)-+-+@@@@@@@/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/,0@#0R'K@^M @@@@MFN@@@@FW )@@G@@)7P[QU&]ACO1K1]&@@[@\@@[[0Z@@@A Z@@@R9K]GF^[\@@@/,0@#0R'K@^M @@@@M/,0@^#FX )@@G@@R9K]TEFO@@@@)7Z[QWG^GO[#^@@@@@G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#RFY )@@G@@/K@@7+/\@@^T$B0@]CFP@@@@)7([QWG^GOG[#^K0@@G@)@@GW8@@@A @@@@GG@KMTL&;K@@@FZ )@@G@@/\@@^M0@@@@KH[@MTL/K@@^M%[)MTIFQ@@@@)73[QT@K1@@K0@@@@@%[)MS8G[)@@[&8K@@@GA )@@G@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@75&;K@@[FR@@@@)7.[IWGOGM&]ACO1K1ESCS)@GB )@@G@@/,0@#+R9K]?>/,0@#0R'K@^M @@@@M/,0@^#R9K]GJ/[@@^M/K@@^MFS@@@@)8A[IWGM&]ACGC )@@G@@O1K1@@@@@@@@[@\@@[[0Z@@@^[J@@@/,0@#0R'K@^M @@@@M/,0@^#R9K]GJ/[@@^MFT@@@@GD )@@G@@)8J[IWG^GOGM&]ACO1K1@@@@^[\@@@/,0@#0R'K@^M @@@@M/,0@^#R9K]TE/[@@^M/\@@^TGE )@@G@@$B0@]CFU@@@@)8S[IU&@]A]AEADN[#^@@@@@/,0@^#R9K]GJ/[@@^M/\@@^T$B0@]C[@\@@[GF )@@G@@[0Z@@@A Z@@@R9K]GFFV@@@@)8-[IS(+-+-)-+)CS)@@@@@@[0Z@@@^[J@@@/K@@#R/K@@8$GG )@@G@@/K@@^M%[@MS8/,0@#0R'K@^M @@@@MFW@@@@)8%[QT#[# #@K1^G@@W8@@@A @@@@GG@KMT^GH )@@G@@&;K@@@/\@@^M0@@@@KH[@MT^/\@@^T$B0@]C[@\@@[FX@@@@)84[QS]&@]A]AE@@@@/K@@8"GI )@@G@@/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K]GF^[\@@@&;K@@[G@)@@GFY@@@@)8"[QWGOG[#^GJ )@@G@@K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM?3&;K@@@/\@@^M0@@@@KH[@M?3/K@@#RFZ@@@@GK )@@G@@)9C[QS^G^GOG[#^K0@G@KM?6&;K@@@/\@@^M0@@@@KH[@M?6/\@@^T$B0@]C[@\@@[[0Z@@@GL )@@G@@^[J@@@GA@@@@)9M[QS@ES@CS@@@@@@$B0@]C[@\@@[[0Z@@@A Z@@@R9K]GD^[\@@@&;K@@[GM )@@G@@G@)@@GW8@@@A @@@@GGB@@@@)9W[IWGO[# #@K1^G@@@@@@@ @@@@GG@KM?6&;K@@@/\@@^MGN )@@G@@0@@@@KH[@M?6/K@@#R/K@@9Y/\@@^TGC@@@@)9>[YS^[#^@@G[)@@[&8K@@@R@K@@HT9)@@AGO )@@G@@H[)@[]C[)@@I/K@@#R/K@@9(&;K@@[G@)@@GW8@@@AGD@@@@)90[IWG^GOGM&]ACO1K1ES@@GP )@@G@@R9K]?9/,0@#0R'K@^M @@@@M/,0@^#R9K]GJ/[@@^M/K@@^M%[)MS8GE@@@@)99[IWGOGM&]GQ )@@G@@ACO1K1K0K1@@/K@@^M%[@MS8/,0@#0R'K@^M @@@@M/,0@^#R9K]GJ/[@@^M/,0@#+GF@@@@GR )@@G@@)'][QW[#^@[#[#^@@@/K@@^M%[)MS8G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#RGS )@@G@@/K@@'#GG@@@@)'G[IWGM&]ACO1K1ESCS*S)@/[@@^M/,0@#+R9K]!@/,0@#0R'K@^M @@@@MGT )@@G@@/,0@^#R9K]GJ/[@@^MGH@@@@)'P[IU&]ACO1K1K0K1K^GK@@/K@@#R/K@@'X/K@@^M%[@MS8GU )@@G@@/,0@#0R'K@^M @@@@M/,0@^#R9K]GJGI@@@@+F,[C/S@#1)@#1)@JA@@@@@@@@Z@@@]@@]F7GV )@@G@@@@@@@@]@@]F5@@@@@@@@A@@A[@@]F2@@@@@@]@@]F0GJ@@@@+F7[C/S@#1)@JA@@/S@#1)@@GW )@@G@@]@@]G[@@G@@@]@@]F_@@G@@@]@@]F.@@[@@@]@@]F;@>)@@@]@@]F9GK@@@@+G@[CJA@@/S@GX )@@G@@#1)@JA@@@@@@@@G@@@]@@]GD@@[@@@]@@]GB@@A@@@]@@]G @@A@@@]@@]G#@>)@@@GL@@@@GY )@@G@@+GD[C/S@#1)@JA@@/S@@@@@@ @@[@@[]@@]GL@@A@@@]@@]GJ@>)@@@]@@]GH@@]@@@GZ )@@G@@]@@]GFGM@@@@+GM[S/S@@@@@ HA )@@G@@ [FS@@@]@@]GOGN@@@@+GX[S@@@@@@@ HB )@@G@@ GO@@@@+G*[S@@@@@@@ HC )@@G@@ GP@@@@+G3[S@@@@@@@ HD )@@G@@ GQ@@@@+G"[S@@@@@@@HE )@@G@@ GR@@@@HF )@@G@@+HD[S@@@@@@@ HG )@@G@@ GS@@@@+HO[S@@@@@@@ HH )@@G@@ GT@@@@+HZ[S@@@@@@@ HI )@@G@@ GU@@@@+H%[S@@@@@@@ HJ )@@G@@ GV@@@@+H5[S@@@@@@@ HK )@@G@@ GW@@@@+I@[S@@@@@@@HL )@@G@@ GX@@@@HM )@@G@@+IF[S@@@@@@@ HN )@@G@@ GY@@@@+IQ[S@@@@@@@ HO )@@G@@ GZ@@@@+I-[S@@@@@@@ HP )@@G@@ HA@@@@+I?[S@@@@@@@ HQ )@@G@@ HB@@@@+I7[S@@@@@@@ HR )@@G@@ HC@@@@+J][S@@@@@@@HS )@@G@@ HD@@@@HT )@@G@@+JH[S@@@@@@@ HU )@@G@@ HE@@@@+JS[S@@@@@@@ HV )@@G@@ HF@@@@+J<[S@@@@@@@ HW )@@G@@ HG@@@@+J,[S@@@@@@@ HX )@@G@@ HH@@@@+J9[S@@@@@@@ HY )@@G@@ HI@@@@+K^[S@@@@@@@HZ )@@G@@ HJ@@@@IA )@@G@@+KJ[S@@@@@@@ IB )@@G@@ HK@@@@+KU[S@@@@@@@ IC )@@G@@ HL@@@@+K>[S@@@@@@@ ID )@@G@@ HM@@@@+K0[S@@@@@@@ IE )@@G@@ HN@@@@+K;[S@@@@@@@ IF )@@G@@ HO@@@@+LA[S@@@@@@@IG )@@G@@ HP@@@@IH )@@G@@+LL[S@@@@@@@ II )@@G@@ HQ@@@@+LW[S@@@@@@@ IJ )@@G@@ HR@@@@+L$[S@@@@@@@ IK )@@G@@ HS@@@@+L2[S@@@@@@@ IL )@@G@@ HT@@@@+L.[S@@@@@@@ IM )@@G@@ HU@@@@+MC[S@@@@@@@IN )@@G@@ HV@@@@IO )@@G@@+MN[S@@@@@@@ IP )@@G@@ HW@@@@+MY[S@@@@@@@ IQ )@@G@@ HX@@@@+M([S@@@@@@@ IR )@@G@@ HY@@@@+M4[S@@@@@@@ IS )@@G@@ HZ@@@@+M_[S@@@@@@@ IT )@@G@@ IA@@@@+NE[S@@@@@@@IU )@@G@@ IB@@@@IV )@@G@@+NP[S@@@@@@@ IW )@@G@@ IC@@@@+N)[S@@@@@@@ IX )@@G@@ ID@@@@+N:[S@@@@@@@ IY )@@G@@ IE@@@@+N6[S@@@@@@@ IZ )@@G@@ IF@@@@+O[[S@@@@@@@ JA )@@G@@ IG@@@@+OG[S@@@@@@@JB )@@G@@ IH@@@@JC )@@G@@+OR[S@@@@@@@ JD )@@G@@ II@@@@+O+[S@@@@@@@ JE )@@G@@ IJ@@@@+O![S@@@@@@@ JF )@@G@@ IK@@@@+O8[S@@@@@@@ JG )@@G@@ IL@@@@+P#[S@@@@@@@ JH )@@G@@ IM@@@@+PI[S@@@@@@@JI )@@G@@ IN@@@@JJ )@@G@@+PT[S@@@@@@@ JK )@@G@@ IO@@@@+P=[S@@@@@@@ JL )@@G@@ IP@@@@+P\[S@@@@@@@ JM )@@G@@ IQ@@@@+P'[S@@@@@@@ JN )@@G@@ IR@@@@+Q [S@@@@@@@ JO )@@G@@ IS@@@@+QK[S@@@@@@@JP )@@G@@ IT@@@@JQ )@@G@@+QV[S@@@@@@@ JR )@@G@@ IU@@@@+Q&[S@@@@@@@ JS )@@G@@ IV@@@@+Q1[S@@@@@@@ JT )@@G@@ IW@@@@+Q/[S@@@@@@@ JU )@@G@@ IX@@@@+RB[S@@@@@@@ JV )@@G@@ IY@@@@+RM[S@@@@@@@JW )@@G@@ IZ@@@@JX )@@G@@+RX[S@@@@@@@ JY )@@G@@ JA@@@@+R*[S@@@@@@@ JZ )@@G@@ JB@@@@+R3[S@@@@@@@ KA )@@G@@ JC@@@@+R"[S@@@@@@@ KB )@@G@@ JD@@@@+SD[S@@@@@@@ KC )@@G@@ JE@@@@+SO[S@@@@@@@KD )@@G@@ JF@@@@KE )@@G@@+SZ[S@@@@@@@ KF )@@G@@ JG@@@@+S%[S@@@@@@@ KG )@@G@@ JH@@@@+S5[K@/S@@/S@@/S@@[@@]T@' @@[@@[]@@]S.@@@@@@KH )@@G@@@@A@@A[@@]S' JI@@@@+S_[K#1)@#1)@#1)@@@@A@@A[@@]TD@@@@@AKI )@@G@@@@A@@A[@@]TA @@ @@ ]@@]T#@@@@@@@@A@@AJJ@@@@+TD[KJA@@#1)@#1)@@@@A@@AKJ )@@G@@[@@]TN@@@@@#@@A@@A[@@]TK6789 012345@@E@@E]@@]TG@@@@@@JK@@@@+TN[KJA@@JA@KK )@@G@@@JA@@@[ @@[@@[]@@]TW= @@[@@[]@@]TT) @@[@@[]@@]TQ@@@@@[JL@@@@KL )@@G@@+TX[C/S@@/S@@/S@@@@@@@@@! @@[@@[]@@]T>] @@[@@[]@@]T+> @@[@@[KM )@@G@@]@@]TZJM@@@@+T&[C/S@@/S@@/S@@@@@@@@@# @@[@@[]@@]T,< @@[@@[]@@]T:KN )@@G@@^ @@[@@[]@@]T*JN@@@@+T\[K/S@@/S@@@@@@@ KO )@@G@@[0&@@@]@@]T4@@@@@@@@A@@A[@@]T1JO@@@@+T9[S@@@@@@@ KP )@@G@@ JP@@@@+U^[S@@@@@@@ KQ )@@G@@ JQ@@@@+UJ[S@@@@@@@KR )@@G@@ JR@@@@KS )@@G@@+UU[S@@@@@@@ KT )@@G@@ JS@@@@+U>[S@@@@@@@ KU )@@G@@ JT@@@@+U0[S@@@@@@@ KV )@@G@@ JU@@@@+U;[S@@@@@@@ KW )@@G@@ JV@@@@+VA[S@@@@@@@ KX )@@G@@ JW@@@@+VL[S@@@@@@@KY )@@G@@ JX@@@@KZ )@@G@@+VW[S@@@@@@@ LA )@@G@@ JY@@@@+V$[S@@@@@@@ LB )@@G@@ JZ@@@@+V2[S@@@@@@@ LC )@@G@@ KA@@@@+V.[S@@@@@@@ LD )@@G@@ KB@@@@+WC[S@@@@@@@ LE )@@G@@ KC@@@@+WN[S@@@@@@@LF )@@G@@ KD@@@@LG )@@G@@+WY[S@@@@@@@ LH )@@G@@ KE@@@@+W([S@@@@@@@ LI )@@G@@ KF@@@@+W4[S@@@@@@@ LJ )@@G@@ KG@@@@+W_[S@@@@@@@ LK )@@G@@ KH@@@@+XE[S@@@@@@@ LL )@@G@@ KI@@@@+XP[S@@@@@@@LM )@@G@@ KJ@@@@LN )@@G@@+X)[S@@@@@@@ LO )@@G@@ KK@@@@+X:[S@@@@@@@ LP )@@G@@ KL@@@@+X6[S@@@@@@@ LQ )@@G@@ KM@@@@+Y[[S@@@@@@@ LR )@@G@@ KN@@@@+YG[S@@@@@@@ LS )@@G@@ KO@@@@+YR[S@@@@@@@LT )@@G@@ KP@@@@LU )@@G@@+Y+[S@@@@@@@ LV )@@G@@ KQ@@@@+Y![S@@@@@@@ LW )@@G@@ KR@@@@+Y8[S@@@@@@@ LX )@@G@@ KS@@@@+Z#[S@@@@@@@ LY )@@G@@ KT@@@@+ZI[S@@@@@@@ LZ )@@G@@ KU@@@@+ZT[S@@@@@@@MA )@@G@@ KV@@@@MB )@@G@@+Z=[S@@@@@@@ MC )@@G@@ KW@@@@+Z\[S@@@@@@@ MD )@@G@@ KX@@@@+Z'[S@@@@@@@ ME )@@G@@ KY@@@@+) [S@@@@@@@ MF )@@G@@ KZ@@@@+)K[S@@@@@@@ MG )@@G@@ LA@@@@+)V[S@@@@@@@MH )@@G@@ LB@@@@MI )@@G@@+)&[S@@@@@@@ MJ )@@G@@ LC@@@@+)1[S@@@@@@@ MK )@@G@@ LD@@@@+)/[S@@@@@@@ ML )@@G@@ LE@@@@+-B[S@@@@@@@ MM )@@G@@ LF@@@@+-M[S@@@@@@@ MN )@@G@@ LG@@@@+-X[S@@@@@@@MO )@@G@@ LH@@@@MP )@@G@@+-*[S@@@@@@@ MQ )@@G@@ LI@@@@+-3[S@@@@@@@ MR )@@G@@ LJ@@@@+-"[S@@@@@@@ MS )@@G@@ LK@@@@++D[S@@@@@@@ MT )@@G@@ LL@@@@++O[S@@@@@@@ MU )@@G@@ LM@@@@++Z[S@@@@@@@MV )@@G@@ LN@@@@MW )@@G@@++%[S@@@@@@@ MX )@@G@@ LO@@@@++5[S@@@@@@@ MY )@@G@@ LP@@@@+<@[S@@@@@@@ MZ )@@G@@ LQ@@@@+^[S@@@@@@@ NN )@@G@@ MC@@@@+>J[S@@@@@@@ NO )@@G@@ MD@@@@+>U[S@@@@@@@ NP )@@G@@ ME@@@@+>>[S@@@@@@@NQ )@@G@@ MF@@@@NR )@@G@@+>0[S@@@@@@@ NS )@@G@@ MG@@@@+>;[S@@@@@@@ NT )@@G@@ MH@@@@+&A[S@@@@@@@ NU )@@G@@ MI@@@@+&L[S@@@@@@@ NV )@@G@@ MJ@@@@+&W[S@@@@@@@ NW )@@G@@ MK@@@@+&$[S@@@@@@@NX )@@G@@ ML@@@@NY )@@G@@+&2[S@@@@@@@ NZ )@@G@@ MM@@@@+&.[S@@@@@@@ OA )@@G@@ MN@@@@+$C[S@@@@@@@ OB )@@G@@ MO@@@@+$N[S@@@@@@@ OC )@@G@@ MP@@@@+$Y[S@@@@@@@ OD )@@G@@ MQ@@@@+$([S@@@@@@@OE )@@G@@ MR@@@@OF )@@G@@+$4[S@@@@@@@ OG )@@G@@ MS@@@@+$_[S@@@@@@@ OH )@@G@@ MT@@@@+*E[S@@@@@@@ OI )@@G@@ MU@@@@+*P[S@@@@@@@ OJ )@@G@@ MV@@@@+*)[S@@@@@@@ OK )@@G@@ MW@@@@+*:[S@@@@@@@OL )@@G@@ MX@@@@OM )@@G@@+*6[S@@@@@@@ ON )@@G@@ MY@@@@+([[S@@@@@@@ OO )@@G@@ MZ@@@@+(G[S@@@@@@@ OP )@@G@@ NA@@@@+(R[S@@@@@@@ OQ )@@G@@ NB@@@@+(+[S@@@@@@@ OR )@@G@@ NC@@@@+(![S@@@@@@@OS )@@G@@ ND@@@@OT )@@G@@+(8[S@@@@@@@ OU )@@G@@ NE@@@@+%#[S@@@@@@@ OV )@@G@@ NF@@@@+%I[S@@@@@@@ OW )@@G@@ NG@@@@+%T[S@@@@@@@ OX )@@G@@ NH@@@@+%=[S@@@@@@@ OY )@@G@@ NI@@@@+%\[S@@@@@@@OZ )@@G@@ NJ@@@@PA )@@G@@+%'[S@@@@@@@ PB )@@G@@ NK@@@@+: [S@@@@@@@ PC )@@G@@ NL@@@@+:K[S@@@@@@@ PD )@@G@@ NM@@@@+:V[S@@@@@@@ PE )@@G@@ NN@@@@+:&[S@@@@@@@ PF )@@G@@ NO@@@@+:1[S@@@@@@@PG )@@G@@ NP@@@@PH )@@G@@+:/[S@@@@@@@ PI )@@G@@ NQ@@@@+?B[S@@@@@@@ PJ )@@G@@ NR@@@@+?M[S@@@@@@@ PK )@@G@@ NS@@@@+?X[S@@#1)@@GOTO @@^@@^]@@]?$ PL )@@G@@ NT@@@@+?*[K/S@@/S@@JA@@@@#]@@@PM )@@G@@@@G@@G]@@]?1@@@ @@@C@@@@D@@D]@@]?!@@ @@]@@]]@@]?%NU@@@@+?2[KJA@@JA@PN )@@G@@@JA@@@RETURN@@A@@A]@@]?;@@@@@]@@A@@A[@@]?8@@@@@^@@A@@A[@@]?5B@@@@@NV@@@@PO )@@G@@+?/[K/S@@JA@@JA@@@@][@@@@@G@@G]@@]! ABORT @@ @@ ]@@]!]D@@@@@@]@@@@@@G@@GPP )@@G@@]@@]?"NW@@@@+!A@*E@O@@@@-VK@<#[#@K0@C )]!9P8K@@[R^K]!8R#@]!N@@[@@#@@[]FCPQ )@@G@@@@[@[]@@[]F-D@@@@@NX@@@@-VO[MK0^@!))]A@-)@[[)@[ZC[\@@[[@0@[YG80@@]/K@[VZPR )@@G@@:80@]A/ )[VZH9)@@[C[)@[X[[-@@@NY@@@@-VY[MK0^G^G@K0K0@@M@-)@@R@)]4*R@K]4$PS )@@G@@N8K@@TM@-)@@R@)]4&R@K]4>N8K@@ [[)@[XC[\@@@NZ@@@@-V*[N#[#[#@@K^G^G@A@K]!%PT )@@G@@^@K]!(/K@[V?O'0@@[/KF@@@*4F@@@OY;@@@R@)]!:R@K]!%N@K]!(OA@@@@-V2[F#@K0K0[PU )@@G@@#[#@@@@@@@@@M@M)@@R@)]4&R@K]4>N8K@@ M@M)@@R@)]4*R@K]4$N8K@@TA@)]!:OB@@@@PV )@@G@@-V;[F#[#@[#[#[#@@@@@@@@@O;@@@[[ )]!9CD)]!9!D)]!9C ?@@@R;F0@@&'0@@[R@)]!:PW )@@G@@R@K]!%OC@@@@-W^[F#@K0K0K0K0K^G^G@@@@[[)M!'C[)M!_/,)@BNC[)]!N[ )]!;CD)]!;PX )@@G@@AB@]!'R;F0@@AB@]!8OD@@@@-WH[F#@()O0K^G^G]&UA[K@@R'K[WUC#@M!3R9K@'YC @]!9PY )@@G@@QB)]!8/,)@A,R9)],]R9K]!/ ^@]!.OE@@@@-WQ[F@ES G^[#@()O0K]&@@@R9K],F/,)@A,PZ )@@G@@R9)]!8R9K],F ^@],G/,0@^:R9)]!1R9K]!8/,0@ )OF@@@@-WZ[E())CS G]&]@-)-)O3@@QA )@@G@@R9K@',C @]!9QB)]!8/,)@A,R9)],FR9K]!8 ^@]!9/,)@A,R9)],COG@@@@-W*[F#@*C]@-QB )@@G@@)-)O3K0E@@@@R'K[W5C#@M!3R9K@;AC @]!9QB)]!8/K@[W'/,0@ )R'K[W?C#@M!3OH@@@@QC )@@G@@-W1[F@ES G^@()O0K^G^G@@@[[)M!'C[)M4+/,0@]8R9)]!/R9K]4+/,0@^:R9)]!1R9K]!8QD )@@G@@/,0@ )OI@@@@-W'[F#[#@(&-)O^@()O0K@@@/,0@^:R9)]!1R9K]!8/,0@ )R'K[X C#@M!3QE )@@G@@R9K@;*C @]!9QB)]!8OJ@@@@-X#[#@K)^G^@K0K@@@)'Y@ISC[)@@I/K@[VK[[)]!OC9)@@@QF )@@G@@/K@[VK[[)]!OC9)@@['=@@@@/K@[X OK@@@@)'Z[QS@K0K1K1ESCS)/,0@^#R9K], /[@@^MQG )@@G@@/K@@^M%[)M!_G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]OL@@@@)'([QS(+-+)CS)@@@@&8K@@@QH )@@G@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@@'!/,0@#0R'K@^M @@@@MOM@@@@)'3[IT#[# #^QI )@@G@@()-+ GOGK@@@/,0@#0R'K@^M @@@@M/,0@^#R9K]4Y/[@@^M/K@@^M%[)M!_G[)@@[ON@@@@QJ )@@G@@)'/[IWGM&]ACO1K1K0K1K@@@/K@@; /K@@^M%[@M!_/,0@#0R'K@^M @@@@M/,0@^#R9K], QK )@@G@@/[@@^MOO@@@@); [QWGK@^G^GK@@@@^[J@@@/K@@^M%[)M!_G[)@@[&8K@@@R@K@@HT9)@@AQL )@@G@@H[)@[]C[)@@I/K@@#ROP@@@@);J[ISK0K1K1ESCS-N^@@@@@R'K@^M @@@@M/,0@^#R9K]4YQM )@@G@@/[@@^M/\@@^T$B0@]C[@\@@[[0Z@@@OQ@@@@);S[IWGK()@-)-+-+@@@@@@@/[@@^M/\@@^TQN )@@G@@$B0@]C[@\@@[[0Z@@@A Z@@@R9K]!/^[\@@@/,0@#0OR@@@@);-[IU&]ACO1K1K^GOGM&@@@QO )@@G@@R9K], /[@@^M/K@@#R/K@@;$/,0@#0R'K@^M @@@@M/,0@^#R9K], OS@@@@);%[AWGK(+-+QP )@@G@@-)-+)CS)@@@@@@@@@@/K@@#R/K@@;1/K@@^M%[@M!_/,0@#0R'K@^M @@@@M/,0@^#OT@@@@QQ )@@G@@+!1[C/S@#1)@#1)@JA@@@@@@@>)@@@]@@]!'@@@@@@]@@]!8@@@@@@@@A@@A[@@]!5@@@@@@QR )@@G@@]@@]!3OU@@@@+!'[C/S@#1)@#1)@#1)@@@@@]@@],^@@@@@@@@A@@A[@@],[ @@A@@@QS )@@G@@]@@]!"@@A@@A[@@]!/OV@@@@+,#[K#1)@#1)@#1)@@@>>@@@]@@],H @@ @@ ]@@],EQT )@@G@@ @@[@@[]@@],B0 @@[@@[OW@@@@+,H[S@@@@@@@ QU )@@G@@ OX@@@@+,S[S@@@@@@@ QV )@@G@@ OY@@@@+,<[S@@@@@@@QW )@@G@@ OZ@@@@QX )@@G@@+,,[S@@@@@@@ QY )@@G@@ PA@@@@+,9[S@@@@@@@ QZ )@@G@@ PB@@@@+\^[S@@@@@@@ RA )@@G@@ PC@@@@+\J[S@@@@@@@ RB )@@G@@ PD@@@@+\U[S@@@@@@@ RC )@@G@@ PE@@@@+\>[S@@@@@@@RD )@@G@@ PF@@@@RE )@@G@@+\0[S@@@@@@@ RF )@@G@@ PG@@@@+\;[S@@@@@@@ RG )@@G@@ PH@@@@+0A[S@@@@@@@ RH )@@G@@ PI@@@@+0L[S@@@@@@@ RI )@@G@@ PJ@@@@+0W[S@@@@@@@ RJ )@@G@@ PK@@@@+0$[S@@@@@@@RK )@@G@@ PL@@@@RL )@@G@@+02[S@@@@@@@ RM )@@G@@ PM@@@@+0.[S@@@@@@@ RN )@@G@@ PN@@@@+1C[S@@@@@@@ RO )@@G@@ PO@@@@+1N[S@@@@@@@ RP )@@G@@ PP@@@@+1Y[S@@@@@@@ RQ )@@G@@ PQ@@@@+1([S@@@@@@@RR )@@G@@ PR@@@@RS )@@G@@+14[S@@@@@@@ RT )@@G@@ PS@@@@+1_[S@@@@@@@ RU )@@G@@ PT@@@@+2E[S@@@@@@@ RV )@@G@@ PU@@@@+2P[S@@@@@@@ RW )@@G@@ PV@@@@+2)[S@@@@@@@ RX )@@G@@ PW@@@@+2:[S@@@@@@@RY )@@G@@ PX@@@@RZ )@@G@@+26[S@@@@@@@ SA )@@G@@ PY@@@@+3[[S@@@@@@@ SB )@@G@@ PZ@@@@+3G[S@@@@@@@ SC )@@G@@ QA@@@@+3R[S@@@@@@@ SD )@@G@@ QB@@@@+3+[S@@@@@@@ SE )@@G@@ QC@@@@+3![S@@@@@@@SF )@@G@@ QD@@@@SG )@@G@@+38[S@@@@@@@ SH )@@G@@ QE@@@@+4#[S@@@@@@@ SI )@@G@@ QF@@@@+4I[S@@@@@@@ SJ )@@G@@ QG@@@@+4T[K@#1)@@/S@@@@@[@@]4=6789 012345SK )@@G@@@@E@@E]@@]4) QH@@@@+4<@0]) @@@@-XF@V#@K0@@@SL )@@G@@C )]5RR@W@@@R#@]41@@[@@#@@[]!F@@[@[]@@[]!=@@@@@@@@A@@AQI@@@@-XI[MK0^@!))SM )@@G@@]A@-)@[[)@[ZC[\@@[[@0@[YG80@@]/K@[XT:80@]A/ )[XTH9)@@[C[)@[X[ -@@[QJ@@@@SN )@@G@@-XS[MK0^G^G@K0K0@@M@-)@@R@)]6BR@K]6AN8K@@TM@-)@@R@)]6 R@K]6^N8K@@ [[)@[XSO )@@G@@C[\@@@QK@@@@-X+[N#[#[#@@K^G^G@A@K]5C^@K]5B/K@[X&O'0@@[/KF@@@*4F@@@OY;@@@SP )@@G@@R@)]5DR@K]5CN@K]5BQL@@@@-X?[F#@K0K0[#[#@@@@@@@@@M@M)@@R@)]6 R@K]6^N8K@@ SQ )@@G@@M@M)@@R@)]6BR@K]6AN8K@@TA@)]5DQM@@@@-X5[F#[#@[#[#[@K0@@@@@@@QB)]5Q/,)@BNSR )@@G@@C[)]419()]5Q9!?@@@R;F0@@&'0@@[R@)]5DR@K]5CQN@@@@-X"[F#@(&-)O^[#[#[#[#@@@SS )@@G@@9()]5H9!)@[V[[)M5,C )]5W/,0@ )R'K[ZMC#@M5LR9K@;2C @]5RQO@@@@-YB[F#@*CSC[ST )@@G@@50A]@-)-)@@@:8@@@[9()@[V9!)]5H/@@[YZ@[@]5,/K@@B!A]0@[ZR'0[YFA#0@[YQP@@@@SU )@@G@@-YK[F@^G^[#[#@()O0K@@@@@/,)@A,R9)]5OR9K]51 ^@]52 @@]5P/K@[YP9()]5O9!?@@@SV )@@G@@/K@[YOQQ@@@@-YT[F#[#@(&-)O^[#@()O0@@R9)]5VR9K]51 ^@]52/,0@ )R'K[YZC#@M5LSW )@@G@@R9K@/KC @]52QB)]51QR@@@@-Y+[F@ES G^[#@()O0K^G@@@C )]5W/,)@A,R9)]51R9K]5VSX )@@G@@ ^@]5W/,)@A,R9)]58R9K]51/,)@A,QS@@@@-Y:[F#[#@K0K[#[#[#@@@@@@S[)M5;C[)M5,SY )@@G@@[[)M5, @@@@M/ )[Y1W[)M5;;P)@@=C[)M5,[[)M5,QT@@@@-Y4[F@^G^G^G^G^G]&UA@@@@SZ )@@G@@C#@M5LR9K@/0C @]5WQB)]5V[[)M5"C[)M5,[[0M5, @@@@N/ 0[Y6QU@@@@-Y.[E*C]A[N@TA )@@G@@()) G]&]@@@@/,)@A,R9)]5SR9K]51/,)@A,R9)]6[R9K]51 ^@]52/,0@ )R'K[Y_QV@@@@TB )@@G@@-ZA[E()O0K^G]&[N[@K^C@@@'=@@@@/K@[ZJ/,)@A,R9)]51R9K]5V ^@]5W/,)@A,R9)]5VTC )@@G@@R9K]51QW@@@@-ZJ@2()-))]A]@@@@@);2@QS@@@@@@H[)@[]C[)@@I/K@[XF[[)]42C9)@@@TD )@@G@@/K@[XF[[)]42C9)]5VQX@@@@);4[QS[#[#^[#@@@@@$B0@]C[@\@@[[0Z@@@^[J@@@/K@@^MTE )@@G@@%[)M5-G[)@@[&8K@@@R@K@@HT9)@@AQY@@@@);"[IWGOGM&]ACO1K1]&@@@@R9K]5V^[\@@@TF )@@G@@/,0@#0R'K@^M @@@@M/,0@^#R9K]5=/[@@^M/\@@^TQZ@@@@)/B[IS^G^GOG^GO[#^@@@@@@TG )@@G@@/K@@#R/K@@/J/K@@^M%[@M5-/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@RA@@@@)/K[QWG[#^K0TH )@@G@@@@@@@@^[J@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM5*&;K@@@/\@@^M0@@@@KH[@M5*RB@@@@TI )@@G@@)/U[QSK0K1K0^GL#@@ @@@@GG@KM5:&;K@@@/\@@^M0@@@@KH[@M5:/\@@^T$B0@]C[@\@@[TJ )@@G@@[0Z@@@RC@@@@)/=[QS@()@-)-+@@@@/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K]5S^[\@@@TK )@@G@@&;K@@[G@)@@GW8@@@ARD@@@@)/,[IW[#^[#[# #@@@@@@@@@0@@@@KH[@M5"/\@@^T$B0@]CTL )@@G@@[@\@@[[0Z@@@^[J@@@/K@@#R/K@@/\RE@@@@)/7[QWGL#@@]&@@@@@A Z@@@R9K]5V^[\@@@TM )@@G@@&;K@@[G@)@@GW8@@@A @@@@GG@KM5"&;K@@@/\@@^MRF@@@@).[@6SK0K1K^GK@@@@+5J@K/TN )@@G@@S@@@@@@@@@@@]@@]5L/K@@#R/K@@.A/\@@^T$B0@]C[@\@@[[0Z@@@RG@@@@+5L[C/S@@/S@TO )@@G@@#1)@JA@@@@@@@@]@@@]@@]5U@@M@@@]@@]5S@@@@@@]@@]5Q@@@@@@@@A@@A[@@]5NRH@@@@TP )@@G@@+5U[KJA@@@JA@@@@@@@@@@@@@@A@@A[@@]5< @@S@@@]@@]5XTQ )@@G@@ RI@@@@+5=[K/S@@JA@@JA@@@@@@@@]@@A@@A[@@]5!@@@@@^@@A@@A[@@]5%6789 TR )@@G@@012345@@E@@E]@@]5&RJ@@@@+5,[K/S@@/S@@@@@@@ TS )@@G@@@@Y@@@]@@]53@@@@@@@@A@@A[@@]50RK@@@@+58[C/S@@/S@@/S@@@@@@@@@@@@@@@@@A@@ATT )@@G@@[@@]6@@@@@@A@@A@@A[@@]5. @@ @@ ]@@]5'RL@@@@+6[@8/S@@*[K@@@@@@-ZP@F#TU )@@G@@@@@@@@R#@]6K@@[@@#@@[]4(@@[@[]@@[]5]@@@) @@^@@^]@@]6#RM@@@@-ZQ[MK0^G[@FTV )@@G@@SC@-)@[@0@[YG80@@]/K@[Z<:80@]A/ )[ZN8K@@ [[)@[XC[\@@@[[)@[ZTX )@@G@@C[\@@[RO@@@@-Z%[N#@K0K0K0@^@@@/K@[Z0O'0@@[/KF@@@*4F@@@OY;@@@R@)]6*R@K]6$TY )@@G@@N@K]6&M@-)@@R@)]7*RP@@@@-Z4[F#[#[#@K0K0[#@@@@@@@R@K]7>N8K@@ M@M)@@R@)]7*TZ )@@G@@R@K]7$N8K@@TA@)]6*A@K]6$^@K]6&RQ@@@@-Z.[N#@K0K0@K0K0K@/,)@BNC[)]6K9()]65UA )@@G@@9!?@@@R;F0@@&'0@@[R@)]6*R@K]6$M@M)@@R@)]7&RR@@@@-)B[F#[#@(&-)O^[#[#[#@@@UB )@@G@@9!)@[V[[)M7GC )]6;/,0@ )R'K[-RC#@M60R9K@.BC @]66QB)]65RS@@@@-)K[F#[#@*CSUC )@@G@@C[50A]@-)-)@9()@[V9!)]6?/@@[)$@[@]7G/K@@B!A]0@[ZR'0[)PA#0@[Y9()]6?RT@@@@UD )@@G@@-)T[EK[#[@K0K0ES G@@@@@@R9)]63R9K]7J ^@]7K @@]64/K@[)Z9()]639!?@@@/K@[)YUE )@@G@@:8@@@[RU@@@@-)+[F@K0ES G^[#@()O0K@@@/,)@A,R9)]6'R9K]7J ^@]7K/,)@A,R9)]7JUF )@@G@@R9K]67 ^@]68/,)@A,RV@@@@-):[E()O0K^G]&[N[@K0K0@@[[)M7GC )]6;/,)@A,R9)]7JUG )@@G@@R9K]6' ^@]6;/,)@A,R9)]7WR9K]7JRW@@@@-)4[F#@K0K[#[#[#[@@@@@@@/ 0[)"S[)M7ZUH )@@G@@C[)M7G[[)M7G @@@@M/ )[)9W[)M7Z;P)@@=C[)M7GRX@@@@-).[EK0K0K0K0K0ET*S @@@@UI )@@G@@R'K[-BC#@M60R9K@.!C @]6;QB)]6'[[)M7+C[)M7G[[0M7G @@@@NRY@@@@--A[F@K0ES GUJ )@@G@@^@()O0K^G@@@ ^@]6;/,)@A,R9)]6'R9K]7J/,)@A,R9)]67R9K]7J ^@]7K/,0@ )RZ@@@@UK )@@G@@--J[E()O0K^[]@()-))@@@@@C9)@@@/K@[ZP[[)]6LC9)]6''=@@@@/K@[-O/,)@A,R9)]7JUL )@@G@@R9K]6'SA@@@@--S@N#[@@@@@).B@"S@^G@@@%[)M7AG[)@@[&8K@@@R@K@@HT9)@@AH[)@[]UM )@@G@@C[)@@I/K@[ZP[[)]6LSB@@@@).I[IWGM&]AC]A]AEAC@@@@@/[@@^M/\@@^T$B0@]C[@\@@[UN )@@G@@[0Z@@@^[J@@@/,0@#+R9K]7D/K@@^MSC@@@@).R[QU&]AC@ GOGK@@^[\@@@/,0@#0R'K@^MUO )@@G@@C9)@@[9,@@@P-]@@@M-]K@@MD9)@@@/,0@^#R9K]7DSD@@@@).-[IU&@]A]ADN[# #@@@@@@UP )@@G@@%[@M7A/,0@#+R9K]7D/\@@^T$B0@]C[@\@@[[0Z@@@A Z@@@R9K]6'SE@@@@).%[IWGO[#^[UQ )@@G@@#[# #@@@@@@@H[@M7+/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/K@@#R/K@@.?/K@@^MSF@@@@UR )@@G@@).3[QT#^K0@@()@@@@R9K]6'^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM7+&;K@@@/\@@^MUS )@@G@@0@@@@KSG@@@@)..@"S^G^GO[#^@@@@+6,@C/S@@@@@]@@]60/K@@#R/K@@"#/\@@^T$B0@]CUT )@@G@@[@\@@[[0Z@@@A Z@@@SH@@@@+6\[CJA@@JA@@/S@#1)@@@@@]@@]69@>)@@@]@@]67@@@@@@UU )@@G@@]@@]65@@@@@@@@A@@A[@@]62@@@@@@SI@@@@+68[S#1)@@@@ UV )@@G@@ @@/@@@]@@]6/ @@A@@@SJ@@@@+7#[K@/S@@/S@@/S@@[@@]7IUW )@@G@@' @@[@@[]@@]7F@@@@@@@@A@@A[@@]7C SK@@@@+7H[S#1)@@@@UX )@@G@@ @[]@@@]@@]7L@@@@@@@@A@@ASL@@@@UY )@@G@@+7S[K@JA@@JA@@@@@@@@@@@A@@A@@A[@@]7- @@ @@ ]@@]7Y UZ )@@G@@ SM@@@@+7+@8/S@@*[K@@@@@@--U@F#@@@@@@R#@]71@@[@@#@@[]6C@@[@[]@@[]6-VA )@@G@@@@@@@@@@A@@A[@@]7=SN@@@@--V[MK0[#@K0^@!)@@:80@]A/ )[-:H9)@@[C[)@[X[ -@@[VB )@@G@@C )]8TR@W@@[[ -@@[C )]8RR@W@@@SO@@@@-->[N@^G[#@K0^G^G@R@)]9%R@K]9(N8K@@ VC )@@G@@[[)@[XC[\@@@[[)@[ZC[\@@[[@0@[YG80@@]/K@[-:SP@@@@--\[M^G^G[#[#[#@@@*4F@@@VD )@@G@@OY;@@@R@)]8DR@K]8CN@K]8BM@-)@@R@)]9?R@K]9:N8K@@TM@-)@@SQ@@@@--9[M^[#[#[#VE )@@G@@@K0K0@M@M)@@R@)]9?R@K]9:N8K@@TA@)]8DA@K]8C^@K]8B/K@[-8O'0@@[/KF@@@SR@@@@VF )@@G@@-+#[MK0K0^G^G@^G@@9()]8Q9!?@@@R;F0@@&'0@@[R@)]8DR@K]8CM@M)@@R@)]9%R@K]9(VG )@@G@@N8K@@ SS@@@@-+H[E^G^G^[#@()O0K@@@@@@/,)@A,R9)]8&R9K]8X ^@]8Y/,)@BNC[)]71VH )@@G@@9()]8S9!?@@@R;F0@@ST@@@@-+Q[F#[#@(&-)O^@()O0K@@@/,0@^:R9)]8JR9K]8Q/,0@ )VI )@@G@@R'K[+ZC#@M8LR9K@"^C @]8RQB)]8QSU@@@@-+Z[F#@()O0K]&[N[@K0ES@@R9K]8Q ^@]8RVJ )@@G@@/,)@A,R9)]8,R9K]88/,)@A,R9)]8QR9K]88 ^@]89SV@@@@-+*[E())CSCSCS [#[]G'8#@VK )@@G@@@]@]8Q/K@@@@A]0@[ZR'0[+0A#0@[Y9()]8H9!)@[V/,)@A,R9)]88SW@@@@-+1[E/S#[@K0VL )@@G@@K0^@K0K@@@@@/K@[+;9()]8O9!?@@@/K@[+':8@@@[9()@[V9!)]8H/@@[<#@@@]8)SX@@@@VM )@@G@@-+'[F#[#@()O0K^G]&[N[@@@/,)@A,R9)]88R9K]8< ^@]8=/,)@A,R9)]8OR9K]88 ^@]89VN )@@G@@ @@]8PSY@@@@-<#[F#[#@(&-)O^[#[#@(&@@R9K@"3C @]8YQB)]8X/,0@ )R'K[C#@M8LR9K@_7TC@@@@-<$[E(&-)O^[VS )@@G@@#@()O0K]&@@@R9K]88/,)@A,R9)]8UR9K]88 ^@]89/,0@ )R'K[<:C#@M8LR9K@_;TD@@@@VT )@@G@@-<0[E())CS G]&]@-)-)O3@@R9K[@VC @]8VQB)]8U/,)@A,R9)]88R9K]8U ^@]8V/,)@A,VU )@@G@@R9)]8)TE@@@@-<9[F#@*C]A]A[NH#@*C@@@@/,0@ )R'K[=#C#@M8LR9K[@ZC @]8TQB)]8SVV )@@G@@/,0@ )R'K[='C#@M8LTF@@@@-=][F@K0K0ET*S [@K^G@@@@QB)]8Q/K@[=./,0@ )R'K[=EVW )@@G@@C#@M8LR9K[@%C @]8YQB)]8X/K@[=.TG@@@@-=F[F#@(&-)O^@()O0K^G@@@9!)@[V/,0@^:VX )@@G@@R9)]9-R9K]8Q/,0@ )R'K[=NC#@M8LR9K[@5C @]8RTH@@@@-=O[F#[#@*CSCMBR@SC]A]A@VY )@@G@@9()@[V9!)]8H/@@[=!@[@]8Q/K@@@@A]0@[ZR'0[=TA#0@[Y9()]8HTI@@@@-=X[EK[#[@K0VZ )@@G@@K0ES G@@@@@@R9)]8OR9K]88 ^@]89 @@]8P/K@[=<9()]8O9!?@@@/K@[=+:8@@@[TJ@@@@WA )@@G@@-=&[F@K0K0ET*S [@K0ES@@@R9K]88 ^@]89/,0@ )R'K[=!C#@M8LR9K[@_C @]89QB)]88WB )@@G@@/,)@A,TK@@@@-=\[E()) G]&]@-)O0ESC@@@/,)@A,R9)]88R9K]8U ^@]8V/,)@A,R9)]9&WC )@@G@@R9K]88/,)@A,R9)]8UTL@@@@-=8[#@K)ESCSC@-))@)"^@ISC[)@@I/K@[-U[[)]72C9)@@@WD )@@G@@/K@[-U[[)]72C9)]8U'=@@@@/K@[='TM@@@@)" [QS@K0K1@@@@@@@[@\@@[[0Z@@@^[J@@@WE )@@G@@/K@@^M%[)M8*G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]TN@@@@)"J[IWG^GM&]ACO0@@@@@@@@WF )@@G@@[@\@@[[0Z@@@A Z@@@R9K]8X^[\@@@/,0@#+R9K]8:/\@@^T$B0@]CTO@@@@)"S[IWG^GO[#WG )@@G@@^[#[#^@@@@@@/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@/K@@#R/K@@"V/\@@^T$B0@]CTP@@@@WH )@@G@@)"-[QWG[#^K0@@@@@@^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM9G&;K@@@/\@@^M0@@@@KWI )@@G@@H[@M9GTQ@@@@)":[IU&@]A]AE@-+-)@@@@@@H[@M9J/K@@#R/K@@"2/\@@^T$B0@]C[@\@@[WJ )@@G@@[0Z@@@A Z@@@R9K]8UTR@@@@)"4[QT#^K0@^[#^@@@/K@@#R/K@@".&;K@@[G@)@@GW8@@@AWK )@@G@@ @@@@GG@KM9J&;K@@@/\@@^M0@@@@KTS@@@@)""[QS@^G^GOG@@@@@0@@@@KH[@M9G/K@@^MWL )@@G@@%[)M8*G[)@@[&8K@@@R@K@@HT9)@@AH[)@[]C[)@@ITT@@@@)_C[QWGL#@@K1ESCS)/,0@^#WM )@@G@@R9K]9M/[@@^M&;K@@[G@)@@GW8@@@A @@@@GG@KM9G&;K@@@/\@@^MTU@@@@)_M[IU&EAC)CWN )@@G@@S*S]AC@@@@@@&;K@@@/\@@^M0@@@@KH[@M9G/K@@#R/K@@_QH9@@@[/,K@#MR'0@^MTV@@@@WO )@@G@@)_V[QWG@@[#[#^@@@@/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@&;K@@[G@)@@GW8@@@A @@@@GWP )@@G@@G@KM9GTW@@@@)_>[QWG[#^K0@@@@@@^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM9G&;K@@@WQ )@@G@@/\@@^M0@@@@KH[@M9GTX@@@@)_\[IU&@]A]AE@-+O0@@@@@@R9K]9P/K@@#R/K@@_6/\@@^TWR )@@G@@$B0@]C[@\@@[[0Z@@@A Z@@@R9K]8UTY@@@@)_8[IWGO[# #@K1^G@@@@@@@ @@@@GG@KM9GWS )@@G@@&;K@@@/\@@^M0@@@@KH[@M9G/K@@#R/K@@_'/,0@#+TZ@@@@-@[[QS@^G^GOG@@@@@0@@@@KWT )@@G@@H[@M9G/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@&;K@@[G@)@@GW8@@@AUA@@@@-@F[QWGL#@@]WU )@@G@@&@@@@@A Z@@@R9K]8)^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM9G&;K@@@/\@@^MUB@@@@WV )@@G@@-@P[ISK0K1K^GM&]AE@@@@@@/K@[@Y/,0@#+R9K]9V/K@@#R/K@[@U/\@@^T$B0@]C[@\@@[WW )@@G@@[0Z@@@UC@@@@-@Y[QWGOG[#^K0@@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM9J&;K@@@/\@@^MWX )@@G@@0@@@@KH[@M9J/K@@#RUD@@@@-@*[QW[# #@K1^G@@@G@)@@GW8@@@A @@@@GG@KM9J&;K@@@WY )@@G@@/\@@^M0@@@@KH[@M9J/K@@#R/K@[@(UE@@@@-@2[QT@K1@@K0@@@@@%[)M9YG[)@@[&8K@@@WZ )@@G@@R@K@@HT9)@@AH[)@[]C[)@@I/K@@#R/K@[@4&;K@@[UF@@@@-@/[IWGO[# #@K1^G@@@@@@@XA )@@G@@ @@@@GG@KM9G&;K@@@/\@@^M0@@@@KH[@M9G/K@@#R/K@[@"/K@@^MUG@@@@-[ [QS@^G^GOXB )@@G@@G@@@@@0@@@@KH[@M9G/\@@^T$B0@]C[@\@@[[0Z@@@^[J@@@&;K@@[G@)@@GW8@@@AUH@@@@XC )@@G@@-[J[QWGL#@@]&@@@@@A Z@@@R9K]8U^[\@@@&;K@@[G@)@@GW8@@@A @@@@GG@KM9G&;K@@@XD )@@G@@/\@@^MUI@@@@-[T@6SK0K1K^GK@@@@+8J@K/S@@@@@@@@@@@]@@]8L/K@@#R/K@[[Y/\@@^TXE )@@G@@$B0@]C[@\@@[[0Z@@@UJ@@@@+8L[C/S@@/S@#1)@JA@@@@@@@@Z@@@]@@]8U@@/@@@]@@]8SXF )@@G@@@@@@@@]@@]8Q@@@@@@@@A@@A[@@]8NUK@@@@+8U[C/S@@/S@@/S@@@@@@@@@ @@A@@@XG )@@G@@]@@]8+ @@[@@@]@@]8Z @@A@@@]@@]8WUL@@@@+8<[C/S@@/S@#1)@#1)@@@@@XH )@@G@@]@@]8!@@@@@@@@A@@A[@@]8%@@@@@@]@@]8* @@A@@@]@@]8>UM@@@@+8?[S#1)@@@@XI )@@G@@ @@0@@0]@@]80$ @@[@@[UN@@@@XJ )@@G@@+87[SJA@@@@@ @[?@@@]@@]8'XK )@@G@@ UO@@@@+9][S@@@JA@@[@@]9I XL )@@G@@ UP@@@@+9H[K#1)@#1)@#1)@@@@A@@A]@@]9R@ @@[@@[]@@]9OXM )@@G@@@@@@@[@@A@@A[@@]9L@@@@@#@@A@@AUQ@@@@+9R[KJA@@JA@@JA@@@@@@@@Y@@A@@A[@@]9)XN )@@G@@@@@@@@@@A@@A]@@]9X@@@=@@@@A@@A]@@]9U@@@@@[UR@@@@+9-[K/S@@#1)@])@@@@@[@[]XO )@@G@@@@[]8]@@@ @@#@@#]@@]9*@@@@@@@@[@@@@@#K@@@@M@@M]@@]9@@@@@@@@@@[[ZEXIT$ PRINT$ XR )@@G@@PUNCH$ SYMTRS SYMTWS CHANGE @@[@@@@@@@-OLOCATE XS )@@G@@@@[@@@@@@@=FPARSE @@[@@@@@@@CKPARSE0 @@[@@@@@@[V0@@A@@[@@@@@]XT )@@G@@@@[@@]@@]@@]@@^@@]@@ @@]@@A@@]@@@@@#@@[@@#@@]@@#@@^@@#@@ @@#@@A@@#@@@@@^XU )@@G@@@@[@@^@@]@@^@@^@@^@@ @@^@@A@@^@@@@@ @@[@@ @@]@@ *[@@@@*SDFF*@C@@@@. XV )@@G@@ ********************************** @A@@@@. EQUATES FXW )@@G@@OR CONFIG @C@@@@. ********************************** @C@@@@XX )@@G@@. . $ @G@@@@NUMREC* EQU XY )@@G@@ 100 . $ MAX. NUMBER OF AFFECTED @H@@@@. XZ )@@G@@ . $ RECORD TYPES FOR A GIVEN REORG. @G@@@@YA )@@G@@. . $ AFFECTED RECORD TYPES = YB )@@G@@@F@@@@. . $ OBJECT RECORD TYPES + YC )@@G@@@G@@@@. . $ ALL NON-OBJECT RECORD YD )@@G@@TYPES @G@@@@. . $ WHICH OWN OR AREYE )@@G@@ OWNED BY @F@@@@. . $ OBJECT RECYF )@@G@@ORD TYPES. @C@@@@. . $ @F@@@@YG )@@G@@NUMOAP* EQU 30 . $ MAX. NUMBER OF SETS OF @G@@@@YH )@@G@@. . $ WHICH ANY AFFECTED RECORD YI )@@G@@@G@@@@. . $ IS OWNER OR AUTOMATIC MEYJ )@@G@@MBER. @C@@@@. . $ @E@@@@C1SIZEYK )@@G@@* EQU NUMREC*(NUMOAP+39). $ MAX. SIZE OF C1/C9@G@@@@. YL )@@G@@ . $ TABLES DURING CONFIG PROCESS. @G@@@@. YM )@@G@@ . $ TABLES ARE IN EXPANDED FORM @G@@@@YN )@@G@@. . $ WITH A FIXED LENGTH ENTRY FOR YO )@@G@@@G@@@@. . $ EACH AFFECTED RECORD TYPYP )@@G@@E. @G@@@@. . $ EACH ENTRY GIVES SYQ )@@G@@ET POINTER @G@@@@. . $ INFORMATION,YR )@@G@@ WITH SPACE FOR @H@@@@. . $ NUMOAPYS )@@G@@ OWNER AND AUTO MEMBER SETS, @G@@@@. YT )@@G@@ . $ 36 MANUAL MEMBER SETS, AND 3 @E@@@@. YU )@@G@@ . $ WORDS MISC. INFO. @C@@@@. YV )@@G@@ . $ @F@@@@C5SIZE* EQU (NUMREC/3)*233 . $ MAX. SIZE OFYW )@@G@@ C5/C11 @G@@@@. . $ TABLES DURINYX )@@G@@G CONFIG PROCESS. @H@@@@. . $ THERE YY )@@G@@IS AN ENTRY FOR EACH OBJECT @G@@@@. YZ )@@G@@ . $ RECORD TYPE, GIVING RECORD @H@@@@. ZA )@@G@@ . $ NAME, CALC INFO, AND WITHIN INFO. @I@@@@. ZB )@@G@@ . $ TABLE SIZE IS FIGURED AS A FRACTION @G@@@@ZC )@@G@@. . $ OF AFFECTED RECORDS WHICH ZD )@@G@@@G@@@@. . $ ARE OBJECT RECORDS TIMESZE )@@G@@ AN @H@@@@. . $ ESTIMATE OF AVERAGZF )@@G@@E ENTRY SIZE. @C@@@@. . $ ZG )@@G@@@G@@@@C6SIZE* EQU 75 . $ MAX. SIZE OF C6/C12 TABLZH )@@G@@ES @F@@@@. . $ DURING CONFIG PROCZI )@@G@@ESS. @G@@@@. . $ TABLE CONTAINS ONEZJ )@@G@@ WORD ENTRY @G@@@@. . $ FOR EACH CALZK )@@G@@C RECORD IN @H@@@@. . $ SCHEMAZL )@@G@@ (WHETHER AFFECTED OR NOT). @C@@@@. ZM )@@G@@ . $ @F@@@@C7SIZE* EQU (NUMREC/3)*200 . $ MAX. SIZE OFZN )@@G@@ C7/C13 @G@@@@. . $ TABLES DURINZO )@@G@@G CONFIG PROCESS. @G@@@@. . $ THERE ZP )@@G@@IS AN ENTRY FOR EACH @G@@@@. . $ ZQ )@@G@@SET AFFECTED BY THE REORG. @H@@@@. ZR )@@G@@ . $ THE ENTRY CONTAINS THE SET NAME @G@@@@. ZS )@@G@@ . $ AND INFO ABOUT THE OWNER AND @F@@@@. ZT )@@G@@ . $ MEMBERS OF THE SET. @G@@@@. ZU )@@G@@ . $ THE TABLE SIZE IS AN ARBITRARY@G@@@@. ZV )@@G@@ . $ FUNCTION OF NUMBER OF AFFECTED@D@@@@. ZW )@@G@@ . $ RECORDS. @C@@@@. ZX )@@G@@ . $ @E@@@@C8SIZE* EQU NUMREC*6+28 ZY )@@G@@ . $ MAX. SIZE OF C8 @G@@@@. . $ ZZ )@@G@@TABLE DURING CONFIG PROCESS. @G@@@@. AA )@@G@@ . $ TABLE CONTAINS 6-WORDS ENTRY @G@@@@. AB )@@G@@ . $ FOR EACH OBJECT RECORD + @G@@@@. AC )@@G@@ . $ 28-WORDS SCRATCH PAD ARE USED @F@@@@. AD )@@G@@ . $ BY REORG MAIN CONTROL. @^@@@@. * NOTE: AE )@@G@@ @E@@@@. AFTER CONFIG PROCESS, TABLES ARE MAINTAINED AF )@@G@@@A@@@@. AT ACTUAL USED LENGTH. @[@@@@. @C@@@@. **AG )@@G@@******************************** @A@@@@. EQUATES FOR DEBAH )@@G@@UG @C@@@@. ********************************** @#@@@@. AI )@@G@@ NOTE: @D@@@@. REORG, BOTH REORGANIZER AND EDITOR, HAS AJ )@@G@@@E@@@@. BUILT-IN DEBUGGING FACILITY, CALLED "DEBUG". @C@@@@AK )@@G@@. OPTIONALLY, DEBUG CAN BE USED TO CALL @C@@@@. SNOOPY (AL )@@G@@A SYSTEM TRACE ROUTINE) @C@@@@. IF FOLLOWING EQUATES ARE RAM )@@G@@EMOVED @A@@@@. FROM THE EQUATE ELEMENT. @[@@@@. @C@@@@AN )@@G@@. . $ @C@@@@TON$* EQU AO )@@G@@ 0 . $ @C@@@@. AP )@@G@@ . $ @C@@@@TOFF$* EQU 0 . $ @C@@@@AQ )@@G@@. . $ @C@@@@SNOOPY* EQU AR )@@G@@ 0 . $ @C@@@@. AS )@@G@@ . $ @C@@@@SNFLG$* EQU 0 . $ @C@@@@AT )@@G@@. ********************************** @B@@@@. EQUAU )@@G@@ATES FOR DF$AMW/DF$AMR @C@@@@. ********************************AV )@@G@@** @C@@@@. . $ @G@@@@BLKSZ*AW )@@G@@ EQU 896 . $ BLOCK SIZE OF DATA FILES. @G@@@@AX )@@G@@. . $ IT SHOULD BE MULTIPLE OF 28. AY )@@G@@@E@@@@. . $ MAXIMUN = 1792. @C@@@@AZ )@@G@@. . $ @F@@@@BUFSZ* EQU BA )@@G@@ (BLKSZ*2)+120 . $ BUFFER SIZE RESERVED @F@@@@. BB )@@G@@ . $ FOR EACH DATA FILE. @I@@@@. BC )@@G@@ . $ INTERNAL BUFFER(SHOULD NOT BE CHANGED) @C@@@@BD )@@G@@. . $ @G@@@@BLKSZ1* EQU BE )@@G@@ BLKSZ/28 . $ NUMBER OF SECTORS FOR A BLOCK.@I@@@@. BF )@@G@@ . $ INTERNAL NUMBER(SHOULD NOT BE CHANGED) BG )@@G@@@C@@@@. . $ @E@@@@MAXBLK* EQBH )@@G@@U (1792/BLKSZ)*2500 . $ MAX. NUMBER @F@@@@. BI )@@G@@ . $ OF BLOCKS TO A TAPE. @I@@@@. BJ )@@G@@ . $ IF TAPE IS SPECIFIED FOR A DATA FILE, @H@@@@BK )@@G@@. . $ IT WILL TRY TO WRITE THIS NUMBBL )@@G@@ER @F@@@@. . $ OF BLOCKS TO A TAPBM )@@G@@E @H@@@@. . $ OR UNTIL END OF TBN )@@G@@APE IS DETECTED @G@@@@. . $ BEFOREBO )@@G@@ CALLING FOR NEXT TAPE. @C@@@@. ********************************BP )@@G@@** @A@@@@. EQUATES FOR MAINED @C@@@@. ********BQ )@@G@@************************** @C@@@@. BR )@@G@@ . $ @G@@@@SORTCORE* EQU 6000 . $ CORE SIZE FOBS )@@G@@R SORT PACKAGE. @H@@@@. . $ IN CALBT )@@G@@LING UNIVAC SORT PACKAGE, @H@@@@. BU )@@G@@ . $ USER MUST SPECIFY THE SIZE OF CORE @E@@@@. BV )@@G@@ . $ FOR SORT TO USE. @I@[@@. BW )@@G@@ . $ WITH S OPTION IN THE PROCESSOR CALL, @I@@@[. BX )@@G@@ . $ WITH X OPTION IN THE PROCESSOR CALL, BY )@@G@@@I@@@@. . $ EDITOR WILL RESERVE ABOVBZ )@@G@@E SPECIFIED @I@@@@. . $ NUM. OCA )@@G@@F WORDS FOR THE SORT PACKAGE. @C@@@@. ********************CB )@@G@@************** @A@@@@. EQUATES FOR MAINREORG@C@@@@. CC )@@G@@ ********************************** @C@@@@. CD )@@G@@ . $ @G@@@@ZAP1* EQU 5000 . $ CE )@@G@@MAX BUFFER USED FOR Z1 TABLE. @G@@@@. CF )@@G@@ . $ Z1 TABLE CONTAINS RELOAD @E@@@@. CG )@@G@@ . $ SUBCOMMANDS INPUT.@C@@@@. CH )@@G@@ . $ @G@@@@ZAP2* EQU 50 . $ MAX ENTRY LECI )@@G@@NGTH IN Z1 TABLE @G@@@@. . $ FOR EACJ )@@G@@CH RECORD TYPE. @C@@@@. ********************************CK )@@G@@** @A@@@@. EQUATES FOR PATCH @C@@@@. ********CL )@@G@@************************** @C@@@@. CM )@@G@@ . $ @G@@@@ACTNUM* EQU 1 . $ NUMBER OF ACCN )@@G@@TIVITIES CREATED @G@@@@. . $ DURINGCO )@@G@@ PATCH PROCESS. @G@@@@. . $ CP )@@G@@CURRENTLY APPEARS TO BE TIMING@G@@@@. CQ )@@G@@ . $ PROBLEM IF ACTNUM > 1. @C@@@@. CR )@@G@@ . $ @G@@@@PGPBLK* EQU 10 . $ NUMBERCS )@@G@@ OF DATA BASE PAGES @G@@@@. . $ CT )@@G@@PER BUFFER DURING PATCH @G@@@@. CU )@@G@@ . $ PROCESS - EACH PATCH ACTIVITY @G@@@@. CV )@@G@@ . $ HAS 3 SUCH BUFFERS. @C@@@@. CW )@@G@@ . $ @G@@@@ZWRNCNT* EQU 11 . $ CX )@@G@@NUMBER OF WARNING MESSAGES @G@@@@. CY )@@G@@ . $ FOR A GIVEN RECORD AND SET @G@@@@. CZ )@@G@@ . $ BEFORE THEY ARE SUPPRESSED. @G@@@@. DA )@@G@@ . $ DURING PATCH PROCESS, @G@@@@. DB )@@G@@ . $ IF A SET POINTER WITH ZERO(0) @G@@@@. DC )@@G@@ . $ VALUE IS ENCOUNTERED, A @G@@@@. DD )@@G@@ . $ WARNING MESSAGE IS PRODUCED @G@@@@DE )@@G@@. . $ UNLESS NUMBER OF MESSAGES FOR DF )@@G@@@G@@@@. . $ THE SAME RECORD AND SET DG )@@G@@ @G@@@@. . $ EXCEEDS THE NUMBERDH )@@G@@ SPECIFIED. @C@@@@. . $ @E@@@@DI )@@G@@KF$WKS* EQU 50 . $ (TEMP EQU) @C@@@@. DJ )@@G@@ ********************************** @A@@@@. EQUATES FDK )@@G@@OR RDCTBL @C@@@@. ********************************** @C@@@@DL )@@G@@. . $ @G@@@@C14SZX* EQU DM )@@G@@ 500 . $ ADDITIONAL WORDS RESERVED FOR @I@@@@. DN )@@G@@ . $ USER DEFINED SYMBOLS IN THE EDITOR. DO )@@G@@@C@@@@. . $ @G@@@@TT1SZ* EQDP )@@G@@U 500 . $ MAX. NUMBER OF USER @E@@@@. DQ )@@G@@ . $ DEFINED SYMBOLS. @C@@@@. DR )@@G@@ . $ @G@@@@TT2SZX EQU 300 DS )@@G@@ . $ MAX. NUMBER OF AFFECTED @E@@@@. DT )@@G@@ . $ SETS IN A REORG. @C@@@@. DU )@@G@@ . $ @E@@@@TT2SZ* EQU TT2SZX*3 . $ EDITORDV )@@G@@ INTERNAL @G@@@@. . SIZE COMPUTED DW )@@G@@FOR THE SETS. @C@@@@. ********************************** DX )@@G@@@A@@@@. EQUATES FOR RELOAD @C@@@@. **************DY )@@G@@******************** @C@@@@. . $ DZ )@@G@@ @G@@@@Z2MULT* EQU 2 . $ MULTIPLIER USED TOEA )@@G@@ CALCULATE @G@@@@. . $ SIZE OF Z2 TEB )@@G@@ABLE BUFFER. @I@@@@. . $ SIZE =EC )@@G@@ SIZE OF C5 TABLE * Z2MULT @G@@@@. ED )@@G@@ . $ + SIZE OF C5 TABLE. @G@@@@. EE )@@G@@ . $ USER CAN CHANGE THIS TO A @E@@@@. EF )@@G@@ . $ BIGGER NUMBER @G@@@@. EG )@@G@@ . $ IF Z2 TABLE OVERFLOW. @C@@@@. EH )@@G@@ . $ @G@@@@BLSIZE* EQU 5 EI )@@G@@ . $ DATA BUFFER BLOCK SIZE @E@@@@. EJ )@@G@@ . $ IN PAGES. @I@@@@. EK )@@G@@ . $ ALL READS AND WRITES TO THE DATA @I@@@@. EL )@@G@@ . $ BASE ARE DONE IN BLOCKS OF THIS @C@@@@EM )@@G@@. . $ SIZE. @I@@@@. EN )@@G@@ . $ USER CAN ADJUST THIS TO OPTIMIZE @E@@@@EO )@@G@@. . $ SPEED OF RELOAD. @C@@@@. EP )@@G@@ . $ @G@@@@NUMBLK* EQU 20 EQ )@@G@@ . $ NUMBER OF BLOCKS IN RELOAD @E@@@@. ER )@@G@@ . $ DATA BUFFER. @G@@@@. ES )@@G@@ . $ THE SIZE OF THE BUFFER IS @G@@@@. ET )@@G@@ . $ NUMBLK*BLSIZE PAGES. @C@@@@. EU )@@G@@ . $ @G@@@@C4OVEN* EQU 100 EV )@@G@@ . $ MAX. NUMBER OF INDEPENDENT @G@@@@. EW )@@G@@ . $ OVERFLOW RANGES USED BY RELOAD@G@@@@. EX )@@G@@ . $ IN A CERTAIN REORGANIZATION. @G@@@@. EY )@@G@@ . $ SHOULD BE INCREASED ONLY IF @G@@@@. EZ )@@G@@ . $ THERE IS AN ERROR CONDITION @G@@@@FA )@@G@@. . $ CAUSED BY THE RANGE TABLE FB )@@G@@@E@@@@. . $ OVERFLOW. @C@@@@FC )@@G@@. . $ @G@@@@RNGSIZ* EQU FD )@@G@@ C4OVEN*2 . $ INTERNAL COMPUTATION. @G@@@@. FE )@@G@@ . $ OVERFLOW RANGE TABLE SIZE. @C@@@@. FF )@@G@@ . $ @G@@@@BFISIZ* EQU NUMBFG )@@G@@LK*2 . $ INTERNAL COMPUTATION. @G@@@@. FH )@@G@@ . $ DATA BUFFER INDEX BLOCK SIZE. @C@@@@. FI )@@G@@ . $ @G@@@@MRGENT* EQU 150 FJ )@@G@@ . $ MAX. NUMBER OF ENTRIES @E@@@@. FK )@@G@@ . $ IN MERGE TABLE. @G@@@@. FL )@@G@@ . $ USER MAY INCREASE THIS ONLY @G@@@@. FM )@@G@@ . $ IN THE CASE OF AN ERROR CAUSED@E@@@@. FN )@@G@@ . $ BY TABLE OVERFLOW.@C@@@@. FO )@@G@@ . $ @G@@@@C4SIZE* EQU 600 . $ FP )@@G@@C4 TABLE SIZE IN WORDS. @G@@@@. FQ )@@G@@ . $ USER MAY INCREASE THIS ONLY IF@I@@@@. FR )@@G@@ . $ AN ERROR CAUSED BY TABLE OVERFLOW. @C@@@@. FS )@@G@@ . $ @G@@@@MRGSIZ* EQU MRGENT*2 FT )@@G@@ . $ INTERNAL COMPUTATION. @G@@@@. FU )@@G@@ . $ SIZE OF MERGE TABLE. @C@@@@. FV )@@G@@ . $ @G@@@@MXRSIZ* EQU 700 FW )@@G@@ . $ MAX. RECORD SIZE*2. @G@@@@. FX )@@G@@ . $ USER SHOULD INSURE THAT @G@@@@. FY )@@G@@ . $ NO OBJECT RECORD IS BIGGER @G@@@@. FZ )@@G@@ . $ THAN MXRSIZ/2 WORDS. @C@@@@. GA )@@G@@ . $ @E@@@@DMSLEV5* EQU 0 GB )@@G@@ . $ THIS IS SET TO @G@@@@. GC )@@G@@ . $ 1 IF INSTALLATION IS @G@@@@. GD )@@G@@ . $ USING DMS-1100 LEVEL 5. @G@@@@. GE )@@G@@ . $ IT WILL CAUSE RELOAD TO STORE @E@@@@. GF )@@G@@ . $ CALC RECORDS @G@@@@. GG )@@G@@ . $ ON DATA PAGES IF NOT ENOUGH @G@@@@. GH )@@G@@ . $ OVERFLOW IS SPECIFIED. @G@@@@. GI )@@G@@ . $ THIS ALSO INCLUDES CASE WHERE @G@@@@. GJ )@@G@@ . $ NO OVERFLOW IS SPECIFIED. @C@@@@GK )@@G@@. . $ @E@@@@Z2LINK* EQU GL )@@G@@ 4 . $ (TEMP EQU) @C@@@@. **************GM )@@G@@******************** @C@@@@. EQUATES FOR SCAN/UNLOAD GN )@@G@@ @C@@@@. ********************************** @C@@@@. GO )@@G@@ . $ @G@@@@SCSBNO* EQU 8 GP )@@G@@ . $ NUMBER OF BUFFERS RESERVED @G@@@@. GQ )@@G@@ . $ FOR EACH SET SPECIFIED IN @G@@@@. GR )@@G@@ . $ A VIA SET SUBCOMMAND. @C@@@@. GS )@@G@@ . $ @G@@@@SCSPGS* EQU 5 GT )@@G@@ . $ NUMBER OF PAGES IN EACH @G@@@@. GU )@@G@@ . $ BUFFER RESERVED FOR A SET @I@@@@. GV )@@G@@ . $ SPECIFIED IN A VIA SET SUBCOMMAND. GW )@@G@@@C@@@@. . $ @G@@@@SCDBPGS* EQGX )@@G@@U 20 . $ NUMBER OF PAGES FOR @G@@@@. GY )@@G@@ . $ EACH OF TWO(2) BIFFERS USED @G@@@@GZ )@@G@@. . $ FOR SEQUENTIAL AREA SCAN. HA )@@G@@@C@@@@. . $ @G@@@@GAP* EQHB )@@G@@U 5 . $ NUMBER OF PAGES WITHOUT @G@@@@. HC )@@G@@ . $ AN AFFECTED RECORD REQUIRED @G@@@@HD )@@G@@. . $ TO START A NEW INTERVAL HE )@@G@@@G@@@@. . $ IN THE C2 AND C4 TABLES.HF )@@G@@ @C@@@@. ********************************** @A@@@@. HG )@@G@@ EQUATES FOR SYM$AM @C@@@@. **************************HH )@@G@@******** @C@@@@. . $ @G@@@@HI )@@G@@C14SZ* EQU 4000 . $ MAX. NUMBER OF WORDS RESERVED HJ )@@G@@@G@@@@. . $ FOR SYMBOL TABLES(FIRST HK )@@G@@PART).@C@@@@. . $ @G@@@@C15SZ*HL )@@G@@ EQU 2000 . $ MAX. NUMBER OF WORDS RESERVED @I@@@@HM )@@G@@. . $ FOR SYMBOL TABLES(SECOND PART)HN )@@G@@. @I@@@@. . $ THIS PART ISHO )@@G@@ FOR DUPLICATED SYMBOLS @G@@@@. HP )@@G@@ . $ FROM THE SECOND SCHEMA. @C@@@@. ********************HQ )@@G@@************** @A@@@@. EQUATES FOR TF$AM @C@@@@. HR )@@G@@ ********************************** @C@@@@. HS )@@G@@ . $ @G@@@@IBNUM* EQU 10 . $ HT )@@G@@NUMBER OF INDEX BLOCKS @G@@@@. HU )@@G@@ . $ IN THE EDITOR'S INDEX BUFFER. @G@@@@. HV )@@G@@ . $ NON-OVERFLOW INDEX BUFFER @G@@@@. HW )@@G@@ . $ SIZE = IBNUM*IBSIZE WORDS. @E@@@@. HX )@@G@@ . $ MINIMUM = 2. @C@@@@. HY )@@G@@ . $ @E@@@@IOVFNUM* EQU 2 . $ HZ )@@G@@NUMBER OF OVERFLOW@G@@@@. . $ INDEX IA )@@G@@BLOCKS IN THE @G@@@@. . $ IB )@@G@@EDITOR'S INDEX BUFFER. @E@@@@. IC )@@G@@ . $ MINIMUM = 2. @C@@@@. . $ ID )@@G@@ @G@@@@IFILL* EQU 90 . $ THIS DETERMINES THIE )@@G@@E % @G@@@@. . $ FILL OF INDEIF )@@G@@X BLOCK DURING @G@@@@. . $ THE SEIG )@@G@@T UP OF THE TEMPORARY @E@@@@. . $ IH )@@G@@INDEX FILE. @G@@@@. . $ THE SMII )@@G@@ALLER THE VALUE, THE @G@@@@. . $ IJ )@@G@@SLOWER WILL THE EDITOR PERFORM@G@@@@. IK )@@G@@ . $ SINCE LESS INDICES WILL END @G@@@@. IL )@@G@@ . $ UP IN EACH INDEX BLOCK. @G@@@@. IM )@@G@@ . $ SHOULD BE LESS THAN 100 @G@@@@. IN )@@G@@ . $ TO ALLOW INSERTION OF SOME @G@@@@. IO )@@G@@ . $ NEW RECORDS WITHOUT OVERFLOW. @C@@@@. IP )@@G@@ . $ @G@@@@IBSIZE* EQU 1792IQ )@@G@@ . $ SIZE OF TEMPORARY INDEX @E@@@@. IR )@@G@@ . $ BLOCK IN WORDS. @G@@@@. IS )@@G@@ . $ SHOULD BE MULTIPLE OF 28. @E@@@@. IT )@@G@@ . $ MINIMUM = 28. @C@@@@. IU )@@G@@ . $ @G@@@@TBSIZE* EQU 1792 . $ IV )@@G@@SIZE OF TEMPORARY DATA @E@@@@. IW )@@G@@ . $ BLOCK IN WORDS. @G@@@@. . $ IX )@@G@@MUST BE MULTIPLE OF 28. @E@@@@. IY )@@G@@ . $ MINIMUM = 28. @C@@@@. . $ IZ )@@G@@ @G@@@@TBNUM* EQU 3 . $ NUMBER OF TEMPORARJA )@@G@@Y @G@@@@. . $ DATA BLOCKS JB )@@G@@USED BY THE @E@@@@. . $ EDITORJC )@@G@@. @E@@@@. . $ MINIMUM = 2.JD )@@G@@ @C@@@@. . $ @G@@@@IOVBUFJE )@@G@@F* EQU IOVFNUM*IBSIZE . $ INTERNAL COMPUTATION. @C@@@@JF )@@G@@. . $ @G@@@@EXTRAW* EQU JG )@@G@@ 0 . $ NUMBER OF WORDS(EXTRA) @G@@@@. JH )@@G@@ . $ AT END OF THE RECORD. @C@@@@. JI )@@G@@ . $ @G@@@@INDNUM* EQU (IBSJJ )@@G@@IZE/2)-1 . $ INTERNAL COMPUTATION. @G@@@@. JK )@@G@@ . $ MAX. NUMBER OF INDICES IN @E@@@@. JL )@@G@@ . $ ONE INDEX BLOCK. @C@@@@. JM )@@G@@ . $ @G@@@@IDBNUM* EQU 800 JN )@@G@@ . $ MAX. NUMBER OF INDEX @G@@@@. JO )@@G@@ . $ BLOCKS FORMED DURING @G@@@@. JP )@@G@@ . $ THE TEMPORARY INDEX @E@@@@. JQ )@@G@@ . $ FILE SET UP. @G@@@@. JR )@@G@@ . $ A COUNT TO TRAP ANY LOOP @G@@@@. JS )@@G@@ . $ OR DAMAGED DATA FILE. @C@@@@. JT )@@G@@ . $ @G@@@@TBSECT* EQU TBSIZE/28 JU )@@G@@ . $ INTERNAL COMPUTATION. @C@@@@. JV )@@G@@ . $ @G@@@@IBSECT* EQU IBSIZE/28 . $ JW )@@G@@INTERNAL COMPUTATION. @C@@@@. JX )@@G@@ . $ @E@@@@TOTCOR* EQU IBSIZE*(IBNUM+2)+TBSIZE*(TBNUM+2) JY )@@G@@ @G@@@@. . $ INTERNAL COMPUTATIJZ )@@G@@ON. @C@@@@. . $ @E@@@@KA )@@G@@FREE EQU (((IBSIZE*(100-IFILL)+99)/100)+1)/2)*2 @C@@@@. KB )@@G@@ . $ @C@@@@INDBLK* EQU (IBSKC )@@G@@IZE-2-FREE)/2. @G@@@@. . $ KD )@@G@@INTERNAL COMPUTATION. @G@@@@. KE )@@G@@ . $ KEY FILE/BLOCK NUMBER. ___ @G@@@@*[@@@@*SDFF*@]@@@@ . KF )@@G@@ @A@@@@ . ** MERGE ** @]@@@@ . @C@@@@KG )@@G@@ . THIS ROUTINE MERGES THE TWO PAGE RANGE@C@@@@ . TABKH )@@G@@LES C2 AND C4 JUST PRIOR TO @C@@@@ . THE POINTER PATCHING KI )@@G@@ROUTINE @]@@@@ . @C@@@@ . THE MERGED TABLE IS CALLEDKJ )@@G@@ C2, @E@@@@ . BUT IS NEVER WRITTEN TO THE C-FILE KK )@@G@@ @]@@@@ . @E@@@@ . MERGE IS EXECUTED AS PART OF THEKL )@@G@@ PATCHING PROCESS @]@@@@ . @^@@@@ AXR$. @^@@@@KM )@@G@@$(6) LIT . @]@@@@$(5). @]@@@@ . @C@@@@MERGE*KN )@@G@@. . $H MERGE @A@@@@ + 0 KO )@@G@@ . @C@@@@ . GET CORE FOR NEW TABLE @E@@@@KP )@@G@@ L A0,LAST$D . $P GET LAST USED D-BANK ADDR@A@@@@ KQ )@@G@@ AU,U A0,1 . @G@@@@ S A1,SX10 . $P SKR )@@G@@AVE START ADDR OF NEW TABLE @C@@@@ A,H1 A0,C2 KS )@@G@@. $P ADD C2 LENGTH@C@@@@ A,H1 A0,C4 . $P ADD C4 LENGTHKT )@@G@@@A@@@@ S A0,LAST$D . @E@@@@ ER MCORE$ KU )@@G@@ . $W MCORE SPACE FOR NEW TABLE@C@@@@ . INITIALIZEKV )@@G@@ INDICES @A@@@@ LXI,U X9,1 . @C@@@@ KW )@@G@@ LXM,H2 X9,C2 . $P SET C2 INDEX @A@@@@ L,H2 A1,C4 KX )@@G@@ . @E@@@@ S A1,STRTC4 . $P GET C4 START ADDR KY )@@G@@ @A@@@@ L X10,SX10 . @E@@@@ LXI,U X10KZ )@@G@@,1 . $P SET NEW TABLE INDEX @E@@@@ S,H2 X10,C2 LA )@@G@@ . $P SAVE NEW TABLE START ADDR@G@@@@SCANC2. SET LINK OLB )@@G@@F 1ST WRD OF LAST NEW TABLE ENTRY @A@@@@ L A1,SX10 LC )@@G@@ . @A@@@@ L A2,X10 . @G@@@@ ANULD )@@G@@ A2,A1 . $P CALCULATE DISP FROM START OF TABLE @G@@@@ LE )@@G@@ S,T3 A3,0,A1 . $P STORE AS LINK OF LAST ENTRY @G@@@@LF )@@G@@ AN,U A3,3 . $P CALCULATE # RANGES IN LAST ENTRY LG )@@G@@@G@@@@ S,T2 A3,0,A1 . $P STORE # IN 1ST WORD OF LAST ENTLH )@@G@@RY @G@@@@ S,H2 X10,SX10 . $P SAVE ADDR OF 1ST WORD THILI )@@G@@S ENTRY @C@@@@ . PROCESS OLD C2 ENTRY @E@@@@LJ )@@G@@ TNZ,H1 C2 . $T ARE THERE ANY C2 ENTRIES @C@@@@ LK )@@G@@ J NOC2 . $A YES NO,NOC2 @C@@@@ L,T1 A0,0,X9 LL )@@G@@ . $P GET AREA CODE@E@@@@ L,T2 A4,0,X9 . $P GET NUMLM )@@G@@B RANGES @C@@@@ L,T3 R3,0,X9 . $P SAVE LINK LN )@@G@@@G@@@@ JZ A4,NORNGE . $T ANY RANGES IN THIS C2 ENTRY LO )@@G@@ @C@@@@ . $A YES NO,NORNGE@A@@@@ LP )@@G@@ L,U R1,3 . @E@@@@ BT X10,0,*X9 . $P TLQ )@@G@@RANSFER 3 WRD HEADER @A@@@@ L A1,STRTC4 . @E@@@@LR )@@G@@SRCHC4. SEARCH C4 TO SEE IF AREA OCCURS @E@@@@ . LS )@@G@@ . $P LOOK AT C4 ENTRY @E@@@@ TNELT )@@G@@,T1 A0,0,A1 . $T DOES AREA MATCH C2 ? @C@@@@ J MATLU )@@G@@CH . $A NO YES,MATCH @E@@@@ TNZ,T3 0,A1 . $T MLV )@@G@@ORE C4 ENTRIES ? @C@@@@ J NOMTCH . $A YES NO,LW )@@G@@NOMTCH@E@@@@ A,T3 A1,0,A1 . $P GET LINK TO NEXT C4 ENTRYLX )@@G@@@C@@@@ J SRCHC4 . $J SRCHC4 @E@@@@NORNGE A LY )@@G@@ X9,R3 . $P MOVE PTR TO NEXT C2 ENTRY@G@@@@ S A1,LZ )@@G@@SX10 . $P RESET PTR TO LAST NEW TABLE ENTRY @C@@@@ J MA )@@G@@ C2END . $J C2END @E@@@@NOMTCH. NO C4 MATCMB )@@G@@H, BLOCK TRANSFER C2 ENTRY @E@@@@ L R1,A4 . $P GMC )@@G@@ET # RANGES IN C2 ENTRY @E@@@@ BT X10,0,*X9 . $P BLOCK TMD )@@G@@RANSFER RANGES @C@@@@ J C2END . $J C2END ME )@@G@@@E@@@@MATCH. C4 MATCH, MERGE C2 AND C4 RANGES @E@@@@MF )@@G@@ L,T2 A5,0,A1 . $P GET # RANGES IN C4 ENTRY @E@@@@ MG )@@G@@ SZ,T1 0,A1 . $P ZERO OUT C4 AREA CODE @A@@@@ A,UMH )@@G@@ A1,3 . @E@@@@ LXI,U A1,1 . $P SET C4 MI )@@G@@RANGE INDEX @A@@@@ L,U X8,0 . @G@@@@ MJ )@@G@@ SLJ GETR2 . $W GET 1ST C2 RANGE, STORE AS THIS @A@@@@MK )@@G@@ S A0,THIS . @G@@@@ SLJ GETR4 ML )@@G@@. $W GET 1ST C4 RANGE, STORE AS NEXT @]@@@@ . @G@@@@ . MM )@@G@@ MERGE RANGES BY EXAMINING ON A PAIR BASIS @G@@@@MN )@@G@@ . X8 IS CONTROL FLAG : 0-C2, 1-C4 IS THIS ENTRY MO )@@G@@@E@@@@CKPAGE. MAKE THIS HAVE LOWEST FIRST PAGE @E@@@@MP )@@G@@ L,H1 A0,NEXT . $P GET START PG OF NEXT @E@@@@ MQ )@@G@@ TNE,H1 A0,THIS . $T ARE START PGS THE SAME ? @C@@@@ J MR )@@G@@ PGEQL . $A NO YES,PGEQL @G@@@@ TG,H1 A0,THIS MS )@@G@@. $T IS THIS STR PG < NEXT STR PG ? @C@@@@ J CKRNGE MT )@@G@@ . $A NO YES,CKRNGE@E@@@@ DL A2,THIS . $P INTERCHMU )@@G@@ANGE THIS AND NEXT@A@@@@ DSC A2,36 . @A@@@@ MV )@@G@@ DS A2,THIS . @E@@@@ L A2,X8 . $P SMW )@@G@@WITCH CONTROL FLAG @A@@@@ XOR,U A2,1 . @A@@@@MX )@@G@@ L X8,A3 . @E@@@@CKRNGE. SEE IF NEXMY )@@G@@T STR PG WITHIN THIS RANGE @G@@@@ L,H1 A2,THIS . $P GMZ )@@G@@ET STR AND END PG OF THIS @A@@@@ AU,H2 A2,THIS NA )@@G@@. @G@@@@ TW,H1 A2,NEXT . $T IS NEXT STR PG WITHIN THINB )@@G@@S RANGE ? @C@@@@ J NOLAP . $A YES NO,NOLAP @E@@@@NC )@@G@@CKEND. FIND END OF RANGE WHICH IS GREATER @A@@@@ ND )@@G@@ L,H1 A2,NEXT . @E@@@@ A,H2 A2,NEXT . $P GNE )@@G@@ET END OF NEXT RANGE @G@@@@ TLE A3,A2 . $T DOES NENF )@@G@@XT RNGE GO BEYOND THIS RNGE ? @C@@@@ J NLARG . $A NNG )@@G@@O YES,NLARG @E@@@@ SLJ *GETN,X8 . $W GET NEXT NEXT VALUENH )@@G@@ @C@@@@ J CKRNGE . $J CKRNGE @E@@@@NLARG.NI )@@G@@ NEXT RANGE GOES FARTHEST, SWITCH MODES @G@@@@ AN,NJ )@@G@@H1 A2,THIS . $P CALCULATE AND SAVE NEW RANGE @A@@@@ NK )@@G@@ S,H2 A2,THIS . @E@@@@ L A2,X8 . $P SNL )@@G@@WITCH CONTROL FLAG @A@@@@ XOR,U A2,1 . @A@@@@NM )@@G@@ L X8,A3 . @E@@@@ SLJ *GETN,X8 NN )@@G@@. $W GET NEXT NEXT VALUE @C@@@@ J CKRNGE . $J CNO )@@G@@KRNGE @C@@@@PGEQL. STR PAGES ARE SAME @G@@@@NP )@@G@@ L,H1 A2,THIS . $P GET STR AND END PG OF THIS NQ )@@G@@@A@@@@ AU,H2 A2,THIS . @C@@@@ J CKEND NR )@@G@@ . $J CKEND @E@@@@NOLAP. NO OVERLAP, STORE NEW NS )@@G@@RANGE, START AGAIN@E@@@@ L A0,THIS . $P STORE RANGE INT )@@G@@N NEW TABLE @A@@@@ S A0,0,*X10 . @E@@@@ L NU )@@G@@ A0,NEXT . $P MAKE NEXT THIS @A@@@@ S A0,NV )@@G@@THIS . @E@@@@ L A2,X8 . $P SWITCH CONTRONW )@@G@@L FLAG @A@@@@ XOR,U A2,1 . @A@@@@ L NX )@@G@@ X8,A3 . @E@@@@ SLJ *GETN,X8 . $W GET NEXNY )@@G@@T NEXT VALUE @C@@@@ J CKPAGE . $J CKPAGE NZ )@@G@@@C@@@@GETR2. GET NEXT RANGE FROM C2 ENTRY@A@@@@ + OA )@@G@@ 0 . @E@@@@ JGD A4,$+2 . $T MORE RAOB )@@G@@NGES IN C2 ENTRY ?@C@@@@ J BTR4 . $A YES NO,BTR4 OC )@@G@@@E@@@@ L A0,0,*X9 . $P GET NEXT RANGE @E@@@@OD )@@G@@ S A0,NEXT . $P STORE IT IN NEXT @C@@@@ OE )@@G@@ J *GETR2 . $J RETURN @C@@@@GETR4. GET OF )@@G@@NEXT RANGE FROM C4 ENTRY@A@@@@ + 0 . @E@@@@OG )@@G@@ JGD A5,$+2 . $T MORE RANGES IN C4 ENTRY ?@C@@@@ OH )@@G@@ J BTR2 . $A YES NO,BTR2 @E@@@@ L A0,0,*A1 OI )@@G@@ . $P GET NEXT RANGE @E@@@@ S A0,NEXT OJ )@@G@@. $P STORE IT IN NEXT @C@@@@ J *GETR4 . $J ROK )@@G@@ETURN @E@@@@BTR2. BLOCK TRANSFER REST OF C2 RANGES OL )@@G@@ @A@@@@ L A0,THIS . @E@@@@ S A0,OM )@@G@@0,*X10 . $P STORE LAST THIS RANGE @A@@@@ L R1,A4 ON )@@G@@ . @G@@@@ BT X10,0,*X9 . $P BLOCK TRANSFER RESTOO )@@G@@ OF RANGES @C@@@@ J C2END . $J C2END OP )@@G@@@E@@@@BTR4. BLOCK TRANSFER REST OF C4 RANGES @A@@@@OQ )@@G@@ L A0,THIS . @E@@@@ S A0,0,*X10 OR )@@G@@. $P STORE LAST THIS RANGE @A@@@@ L R1,A5 . OS )@@G@@@G@@@@ BT X10,0,*A1 . $P BLOCK TRANSFER REST OF RANGES OT )@@G@@ @]@@@@ . @A@@@@C2END L A0,R3 . @E@@@@OU )@@G@@ JNZ A0,SCANC2 . $T ARE THERE MORE C2 AREAS ?@E@@@@ . OV )@@G@@ . $A NO,SCANC4 YES,SCANC2 @]@@@@NOC2. OW )@@G@@@A@@@@ L A1,STRTC4 . @E@@@@SCANC4. SCANOX )@@G@@ C4 TO FIND ANY AREAS NOT NOTED @E@@@@ TZ,T1 0,A1 OY )@@G@@. $T HAS AREA BEEN NOTED ? @E@@@@ J C4ENTR . $A YOZ )@@G@@ES,CONT NO,C4ENTR @E@@@@CONT TNZ,T3 0,A1 . $T MORE C4PA )@@G@@ ENTRIES ? @C@@@@ J EXIT . $A YES NO,EXIT PB )@@G@@@E@@@@ A,T3 A1,0,A1 . $P GET LINK TO NEXT C4 ENTRY@C@@@@PC )@@G@@ J SCANC4 . $J SCANC4 @G@@@@C4ENTR. PD )@@G@@ SET LINK OF 1ST WRD OF LAST NEW TABLE ENTRY @A@@@@ L PE )@@G@@ A0,SX10 . @A@@@@ L A2,X10 . @G@@@@PF )@@G@@ ANU A2,A0 . $P CALCULATE DISP FROM START OF TABLE PG )@@G@@@G@@@@ S,T3 A3,0,A0 . $P STORE AS LINK OF LAST ENTRY PH )@@G@@ @G@@@@ AN,U A3,3 . $P CALCULATE # RANGES IN LASPI )@@G@@T ENTRY @G@@@@ S,T2 A3,0,A0 . $P STORE # IN 1ST WORDPJ )@@G@@ OF LAST ENTRY @G@@@@ TNZ,T2 0,A1 . $T ANY RANGES INPK )@@G@@ THIS C4 ENTRY @C@@@@ J CONT . $A YES NO,PL )@@G@@CONT @G@@@@ S,H2 X10,SX10 . $P SAVE ADDR OF 1ST WORD THIPM )@@G@@S ENTRY @C@@@@ . BLOCK TRANSFER ENTRY @A@@@@PN )@@G@@ L A2,A1 . @E@@@@ LXI,U A2,1 PO )@@G@@. $P SET INDEX FOR TRANSFER @A@@@@ L,T2 A0,0,A2 . PP )@@G@@@G@@@@ JZ A0,CONT . $T ANY RANGES IN THIS C4 ENTRY PQ )@@G@@ @C@@@@ . $A YES NO,CONT @A@@@@ PR )@@G@@ A,U A0,3 . @E@@@@ L R1,A0 . $P GPS )@@G@@ET TRANSFER COUNT @E@@@@ BT X10,0,*A2 . $P BLOCK TPT )@@G@@RANSFER ENTRY @C@@@@ J CONT . $J CONT PU )@@G@@@C@@@@EXIT. SET FINAL LINK OF NEW TABLE @A@@@@ L PV )@@G@@ A2,SX10 . @E@@@@ SZ,T3 0,A2 . $P STORE OPW )@@G@@ AS FINAL LINK @A@@@@ L A0,X10 . @A@@@@ PX )@@G@@ LXI,U A0,0 . @G@@@@ ANU,H2 A0,C2 . $P CPY )@@G@@ALCULATE LENGTH OF NEW TABLE @E@@@@ S,H1 A1,C2 PZ )@@G@@. $P STORE IT IN PTR LOCATION @A@@@@ ANU A0,A2 . QA )@@G@@@G@@@@ AN,U A1,3 . $P CALCULATE # RANGES IN FINAL ENTQB )@@G@@RY @E@@@@ S,T2 A1,0,A2 . $P STORE # RANGES QC )@@G@@@A@@@@ S A0,LAST$D . @E@@@@ ER LCORE$ QD )@@G@@ . $W RELEASE UNUSED CORE @A@@@@ J *MERGE QE )@@G@@. $E @]@@@@ . @E@@@@ . THIS SECTION OF CODE BUILDS THE AFFECQF )@@G@@TED RECORD TABLE @E@@@@ . THIS TABLE CONTAINS A ONE WORD ENTRY FQG )@@G@@OR EACH @C@@@@ . AFFECTED RECORD APPEARING IN C1 @G@@@@QH )@@G@@ . T1 CONTAINS THE RECORD CODE OF THE AFFECTED RECORD QI )@@G@@@E@@@@ . H2 CONTAINS THE ABSOLUTE ADDR OF THE START OF@C@@@@QJ )@@G@@ . THE C1 ENTRY FOR THAT RECORD@E@@@@ . THE NUMBQK )@@G@@ER OF AFFECTED RECORDS IS STORED IN ARTCNT@]@@@@ . @C@@@@BLDARTQL )@@G@@* + 0 . $H BLDART @E@@@@ L X8,(1,AFRQM )@@G@@CDT) . $P SET POINTER TO NEW TABLE @E@@@@ L,U A2,1 QN )@@G@@. $P INITIALIZE COUNTER @E@@@@ L,H2 A0,C1 . $P GQO )@@G@@ET START ADDR OF C1 @E@@@@BART1 L,T1 A1,0,A0 . $P GET RECQP )@@G@@ORD CODE @E@@@@ S,T1 A1,0,X8 . $P PUT IT IN NEWQQ )@@G@@ TABLE @G@@@@ S,H2 A0,0,*X8 . $P SAVE C1 ENTRY ADDR QR )@@G@@IN NEW TBL ENTRY @E@@@@ TNZ,T3 0,A0 . $T MORE C1 ENTRIQS )@@G@@ES ? @C@@@@ J BART2 . $A YES NO,BART2 @G@@@@QT )@@G@@ A,T3 A0,0,A0 . $P RESET PTR TO NEXT C1 ENTRY QU )@@G@@@E@@@@ A,U A2,1 . $P INCREMENT COUNT @C@@@@QV )@@G@@ J BART1 . $J BART1 @E@@@@BART2 S A2,QW )@@G@@ARTCNT . $P SAVE NEW TABLE SIZE COUNT@G@@@[ L X8,(1,AREQX )@@G@@TBL) . $P SET PTR TO BUILD AFFCT AREA TBL @E@@@[ TNZ,H1 C3QY )@@G@@ . $T ANY C3 ENTRIES @C@@@[ J BART35 QZ )@@G@@ . $A YES NO,BART35@E@@@[ L,H2 A0,C3 . $P POINT TRA )@@G@@O C3/C10 @E@@@[ L,S3 A2,0,A0 . $P GET # RECD BIRB )@@G@@TS @E@@@[ A,S4 A2,0,A0 . $P ADD # PAGE BITS RC )@@G@@ @E@@@[ S A2,ASHFT . $P SAVE AS AREA SHIFT COUNT RD )@@G@@@E@@@[ L,U A2,1 . $P INITIALIZE AREA CNT @G@@@[RE )@@G@@BART3 L A1,0,A0 . $P GET AREA CODE FROM C3 ENTRY RF )@@G@@@A@]@[ LSSL A1,24 . @A@@@] SSL A1,24 RG )@@G@@ . @E@@@[ S A1,0,*X8 . $P SAVE IT IN AFFCT ARRH )@@G@@EA TBL@E@@@[ TNZ,T3 0,A0 . $T MORE ENTRIES IN C3 RI )@@G@@@C@@@[ J BART4 . $A YES NO,BART4@G@@@[ A,TRJ )@@G@@3 A0,0,A0 . $P RESET C3 PTR TO NEXT ENTRY @E@@@[ RK )@@G@@ A,U A2,1 . $P INCREMENT AREA CNT @C@@@[ J RL )@@G@@ BART3 . $J BART3 @E@@@[BART35 SZ ASHFT RM )@@G@@. $P ZERO ALL PTRS SINCE NO C3@A@@@[ SZ ARETBL . RN )@@G@@@A@@@[ SZ A2 . @E@@@[BART4 S A2,ARECNTRO )@@G@@ . $P SAVE AFFECTED AREA CNT @C@@@@ J *BLDART RP )@@G@@. $E RETURN @]@@@@ . @]@@@@$(6). @A@@@@GETN + RQ )@@G@@ GETR4 . @A@@@@ + GETR2 . @A@@@@RR )@@G@@SX10 + 0 . @A@@@@STRTC4 + 0 . RS )@@G@@ @C@@@@ . THIS AND NEXT MUST BE CONSECUTIVE LOCATIONS@A@@@@THIS RT )@@G@@ + 0 . @A@@@@NEXT + 0 . RU )@@G@@@]@@@@ . @A@@@@ARTCNT* + 0 . @A@#@@AFRCDTRV )@@G@@* RES 100 . @A@@@#AFRCDT* RES 500 . RW )@@G@@@A@@@[ASHFT* + 0 . @A@#@[ARETBL* RES 150 RX )@@G@@ . @A@@@#ARETBL* RES 500 . @A@@@[ARECNT* + RY )@@G@@ 0 . @^@@@@ END . ___J SCANC4 RZ )@@G@@ . $J SCANC4 @G@@@@C4ENTR. )@@[A@(]@@K0AK)[K)]K)@K)SA )@@G@@#@@@@@'=@@@@A#@@@@OF@@@@OF@@@@A#K@@]K8@@@[R#@@@@@@@@@@AA@@@@)@C[A@(]@ ]@SB )@@G@@D#@T#@SK)[K0A@@@@@R#K@@]AA)@@@&')@@[R])@@]A#K@@#RBK@@@QAK@@@&'K@@[AB@@@@SC )@@G@@)@K[Q@*@K0AK)[K@@@CTD@@@RZD@@@/K@@[2(C@@@@AA)@@]AV.@@@P;0@@#AR.@@@L@)@@HSD )@@G@@R#)@@EAC@@@@)@U[Q@(@[#@SK[@@@@ORX@@@/K@@@*(OH@@@/K@@@::WH@@@R#K@@#M]()@@SE )@@G@@N8K@@#/[@@@>NO9@@@AD@@@@)@=[Q@?@K0AK@K@@@@O;K@@# WH@@@CTX@@@/K@@[0M]()@@SF )@@G@@N@K@@K/K@@[0A#K@@]O]K@[#/K@@@ZAE@@@@)@,[I@*K^G[=[#@T#@T@K0A@!C@@@^/K@@[JSG )@@G@@:C@@@^RF@@@ '^@@[-A#@@@^'^@@[VR'@@@@&;K@@[AF@@@@)@7[I@?[#@SK0A@K0AK0A@@@SH )@@G@@K^)@@^RF)@@^R]@@@J-8)@@[R#)@@C9*)@@^;^)@@=9?)@@^/K@@@"AG@@@@)[@[A@?G[=[#SI )@@G@@@T#@SK^G[=@@@@@@@@/K@@@"'^CK@@/K@@[C?@0@@IOB)@@ RF)@@ /K@@[M,C)@@ AH@@@@SJ )@@G@@)[C[I@?G[=G[)^G[=[#@T#@SK^)@@^RF)@@^/K@@@"'^CK@@R]@@@J-8)@@[R#)@@CAB)@@^SK )@@G@@PF)@@^AI@@@@)[L[I@?[#@SK0AK0A@K0A@@@'^CK@@R]@@@J-8)@@[R#)@@CA#@@@^R#@@@ SL )@@G@@A#E)@@R#@@@^/K@@[]AJ@@@@)[U[I@?@K^@K0AK[@@@@@@@@8^K@[=@@@@@@/K@K[VA#@@@ SM )@@G@@R#D)@@/K@@[?8^@@[Y@@@@@@/K@@@3AK@@@@)[<[I@?@K0AK^G[)^@@@@@@@/K@@[0M]()@@SN )@@G@@N@K@@KA#E)@@R#@@@^/K@K[-A#@@@ R#H)@@/K@@[$AL@@@@)[?[Q@?G[)[@K0A^@@(OH@@@SO )@@G@@/K@@[9*WH@@@R#K@@#/^@@@JR#@@[#M]!)@@N@K@@LA#E)@@R#@@@^AM@@@@)[6[Q@?@K^G[SP )@@G@@)@@@@@(SH@@@AV/@@@P;0@@#AR/@@@L@)@@GR#)@@ER#@@@]/K@@[3ORX@@@/K@@]EAN@@@@SQ )@@G@@)]@[Q@?[#@S[@@K@@@/K@@[5M],)@@N@K@@GO;@@@#/@@@[5RVI@@@&;)@@[R#)@@HAA)@@]SR )@@G@@/K@@[5AO@@@@)]E[I@?G[)^C@OC@K@@@@@@@AVY@@@P;K@@#L@@@@IAFK@@@L^@@@@&;@@@@SS )@@G@@R#@@@E OI@@@R#)@@]AP@@@@)]N[I@?C@^C[^@K0A^C[K@@@AZS@@@RZW@@@RB@@@@R;)@@[ST )@@G@@R]@@J1@@@@@@/K@K@@'=@@@@A#@@@@AQ@@@@)]W[I@*K@K^G[=G[=C[)@@@@(C@@@@R]@@J2SU )@@G@@A#)@@A/K@@]UO;)@@[ORG@@@/K@@]+(OG@@@ABC)@@AR@@@@)]>[Q@?[]@S^G[)@@@(OG@@@SV )@@G@@A#S)@@;CK@@SR#W@@@R;)@@[A#)@B;O:?@@@R\?@@@RB@@@@/K@@]3AS@@@@)]\[I@?@^[#@SW )@@G@@T#@SK0AK@@@@/K@K]QA#)@J0 @@@@I @@@B/ @@@B;/K@@]:O;)@@[ORG@@@/K@@]6AT@@@@SX )@@G@@)@@@"@31)G[N1)G[K@@@@@@@@@@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[VSY )@@G@@@@@@[-AU@@@@)B;@I@0@@@@@)J0@Y@0* @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@B/SZ )@@G@@@@[@@B@@@@@@@@@@@@AV@@@@@@^@@B@@F@@B@@T@@B@@5@@@@@@@@@@@@@@@)@@@@@)@@@@@TA )@@G@@)@@@@@@@@@]8@@@@J3LAST$D C2 C4 MCORE$ LCORE$TB )@@G@@ C1 C3 MERGE @@ @@@@@@@@@BLDART @@ @@@TC )@@G@@@@@@]QARTCNT @@A@@@@@@@@AAFRCDT @@A@@@@@@@@BASHFT @@A@@@TD )@@G@@@@@@B;ARETBL @@A@@@@@@@B/ARECNT @@A@@@@@@@J0<@B@P_=CD[@T>@@@@]TE )@@G@@*[@@@@*SDFF*@[@@@@. @C@@@@. DATA FILE ACCESS METHOD (DF$AM) TF )@@G@@ @[@@@@. @C@@@@. FILES CREATION (DF$AMW, DF$AMF) TG )@@G@@@[@@@@. @^@@@@. ENTRY POINTS: @[@@@@. @A@@@@. TH )@@G@@ 1. SEQUENTIAL WRITE @[@@@@. @B@@@@. LX,U X1TI )@@G@@0,PARAM @B@@@@. LMJ X11,DF$AMW @[@@@@. TJ )@@G@@@C@@@@. 2. TO FLUSH OUT LAST DATA BLOCKS @[@@@@. @B@@@@TK )@@G@@. LMJ X11,DF$AMF @[@@@@. @#@@@@ AXTL )@@G@@R$ @#@@@@$(4) LIT. @]@@@@$(1). @C@@@@DF$AMW* TM )@@G@@ . $H @E@@@@ LA A0,1,X10 TN )@@G@@ . $P GET RECORD ADDR @E@@@@ SA A0,HDRADR . $PTO )@@G@@ SAVE THE ADDR @F@@@@ LA A0,,A0 . $P GET TTP )@@G@@HE RECORD HEADER @E@@@@ SA A0,HDRWRD . $P SAVE TQ )@@G@@THE WRD @E@@@@ LA,U A0,PGMSW . $T IS IT EDITOTR )@@G@@R @B@@@@ TNZ A0 . @E@@@@ SLTS )@@G@@J ART . $P PERFORM ART @E@@@@ SX,H2 TT )@@G@@ X11,SAVEX11 . $P SAVE RETURN ADDR @E@@@@ SX X1,STU )@@G@@AVEX1 . $P SAVE X1 - X3 @B@@@@ SX X2,SAVEX2 TV )@@G@@ . @B@@@@ SX X3,SAVEX3 . @F@@@@ TW )@@G@@ TNZ ASGSW . $T ARE FILES ASSIGNED @E@@@@ TX )@@G@@ SLJ ASG . $A YES NO,ASG @G@@@@ TNTY )@@G@@Z 0,X10 . $T IS IT A CONTROL RECORD @E@@@@ TZ )@@G@@ J ALLFILES . $A YES,ALLFILES NO @E@@@@ SZUA )@@G@@ A1 . $P SET TO USE FILE0@F@@@@ TNZ UB )@@G@@ C18 . $T IS IT MULTIPLE FILES @E@@@@ J UC )@@G@@ PICKFILE . $A YES NO,PICKFILE @G@@@@ LX,H2 X1,CUD )@@G@@18 . $P SET UP TO SEARCH FOR A @E@@@@ LXI,U UE )@@G@@ X1,1 . $ PROPER DATA FILE @E@@@@ LR,H1 R1,CUF )@@G@@18 . $P GET ENTRY COUNT @G@@@@ LA A0,1,X10 UG )@@G@@ . $P GET RECORD BUFFER ADDR @E@@@@ LA,T1 A0,0UH )@@G@@,A0 . $P GET RECORD CODE @B@@@@ SE,T1 A0,,*X1 UI )@@G@@ . @F@@@@ J PICKFILE . $J NOTFOUND, UUJ )@@G@@SE FILE0 @E@@@@ ANX X1,(1,1) . $P BACK UP INXUK )@@G@@ @E@@@@ LA,T3 A1,,X1 . $P GET FILE CODE UL )@@G@@@C@@@@PICKFILE . $H @F@@@@ LXUM )@@G@@,H2 X1,BUFTBL,A1 . $P SET PROPER BUFFER INX @E@@@@ SLUN )@@G@@J PUT . $S STORE THE RECORD @F@@@@ LX UO )@@G@@ X1,HDRADR . $P GET TEH RECORD ADDR @F@@@@ LA UP )@@G@@ A0,HDRWRD . $P GET THE RECORD HEADER @F@@@@ SA UQ )@@G@@ A0,,X1 . $P RESTORE RECORD HEADER @D@@@@ LX UR )@@G@@ X1,SAVEX1 . $P RESTORE @E@@@@ LX X2,SAVEX2 US )@@G@@ . X1 - X3 @B@@@@ LX X3,SAVEX3 UT )@@G@@ . @D@@@@ J *SAVEX11 . $J RETURN @[@@@@UU )@@G@@. @B@@@@. CONTROL RECORD FOR D$FILE'S @[@@@@. @C@@@@UV )@@G@@ALLFILES . $H @D@@@@ LR,U UW )@@G@@ R2,10 . $P ALL FILES @]@@@@ALLFLOOP. @D@@@@ JGUX )@@G@@D R2,$+2 . $T DONE ALL @B@@@@ J ENDAUY )@@G@@LL . @B@@@@ LX X8,R2 . @E@@@@UZ )@@G@@ TNZ,S1 BUFTBL,X8 . $T FILE IN USE @B@@@@ VA )@@G@@ J ALLFLOOP . @E@@@@ LX,H2 X1,BUFTBL,VB )@@G@@X8 . $P SEE BUF INX @B@@@@ SLJ PUT VC )@@G@@ . @B@@@@ J ALLFLOOP . @]@@@@ENDALL. VD )@@G@@@B@@@@ LX X1,SAVEX1 . @B@@@@ LX VE )@@G@@ X2,SAVEX2 . @B@@@@ LX X3,SAVEX3 . VF )@@G@@@D@@@@ J *SAVEX11 . $J RETURN @[@@@@. VG )@@G@@@C@@@@. LAST DATA BLOCKS FLUSHING ROUTINE @[@@@@. @C@@@@VH )@@G@@DF$AMF* . $H @E@@@@ SX,H2 VI )@@G@@ X11,SAVEX11 . $P SAVE RETURN ADDR @G@@@@ TNZ ASGSVJ )@@G@@W . $T SEE IF ANY FILE CREATED @E@@@@ J VK )@@G@@ DFEMPTY . $A YES NO,DFEMPTY @B@@@@ SX X1,SVL )@@G@@AVEX1 . @F@@@@ LR,U R2,10 . $P MUST VM )@@G@@FLUSH ALL FILES @]@@@@FLUSHLP. @D@@@@ JGD R2,$+2 VN )@@G@@ . $T DONE ALL @E@@@@ J ENDFLSH . $AVO )@@G@@ YES,ENDFLSH NO @B@@@@ LX X8,R2 . @E@@@@VP )@@G@@ TNZ,S1 BUFTBL,X8 . $T IS FILE USED @E@@@@ VQ )@@G@@ J FLUSHLP . $A YES NO,FLUSHLP @E@@@@ LXVR )@@G@@,H2 X1,BUFTBL,X8 . $P GET BUF INX @B@@@@ SLJ VS )@@G@@ FLUSH . @B@@@@ J FLUSHLP . VT )@@G@@@]@@@@ENDFLSH. @B@@@@ LX X1,SAVEX1 . @D@@@@VU )@@G@@ J *SAVEX11 . $J RETURN @[@@@@. @A@@@@VV )@@G@@. ASSIGN ALL DATA FILES @[@@@@. @C@@@@ASG +0 VW )@@G@@ . $H @D@@@@ LA,U A0,1 VX )@@G@@ . $P SET SW @B@@@@ SA A0,ASGSW . @E@@@@VY )@@G@@ TNZ C18 . $T C18 EXISTS @E@@@@ VZ )@@G@@ J ASGFILE . $A YES NO,ASGFILE @G@@@@ LXWA )@@G@@,H2 X1,C18 . $P SET UP TO SET USAGE IND'S @B@@@@ WB )@@G@@ LXI,U X1,1 . @B@@@@ LR,H1 R1,C18 WC )@@G@@ . @]@@@@ASG0. @E@@@@ JGD R1,$+2 WD )@@G@@ . $T ANY MORE ENTRY @B@@@@ J ASGFILE . WE )@@G@@@E@@@@ LA,T3 A1,,*X1 . $P GET FILE CODE @E@@@@WF )@@G@@ SA,S1 A0,BUFTBL,A1 . $P SET THE IND @D@@@@ WG )@@G@@ J ASG0 . $J TRY NXT @[@@@@. @D@@@@. WH )@@G@@ ASSIGN ALL FILES & INITIALIZE ALL BUFFERS @[@@@@. @C@@@@ASGFILWI )@@G@@E . $H @E@@@@ LR,U R2,1WJ )@@G@@0 . $P 10 FILES MAX. @C@@@@ASGLOOP WK )@@G@@ . $H @E@@@@ JGD R2,$+2 . $T ANY MWL )@@G@@ORE FILE @E@@@@ J *ASG . $A YES NO,*ASGWM )@@G@@ @E@@@@ LX X3,R2 . $P GET FILE INX WN )@@G@@@E@@@@ TNZ,S1 BUFTBL,X3 . $T IS FILE USED @E@@@@WO )@@G@@ J ASGLOOP . $A YES NO,ASGLOOP @G@@@@ WP )@@G@@ LA A0,X3 . $P COMPUTE INX TO GET FILE NAME @D@@@@WQ )@@G@@ AA A0,A0 . $P A0 * 2 @E@@@@ DLWR )@@G@@ A1,NAMED1,A0 . $P GET FILE NAME @D@@@@ DS WS )@@G@@ A1,FCODE2 . $P SAVE IT @D@@@@ DS A1,FITEMPKWT )@@G@@T . $P SAVE IT @E@@@@ LA,U A0,ASGING2 . $PWU )@@G@@ TRY @ASG,A @B@@@@ ER CSF$ . @E@@@@WV )@@G@@ JP A0,GETCORE . $J GO TO MCORE$ @[@@@@. WW )@@G@@@ @@@@. BUILD TO @ASG,UP @[@@@@. @ @@@@ E$DIT WX )@@G@@ EDPKT @^@@@@ E$CHAR '@' @A@@@@ E$FD1 ('ASWY )@@G@@G,UP') @^@@@@ E$SKIP 1 @ @@@@ E$FD2 FCODWZ )@@G@@E2 @A@@@@ E$FD2 ('.,//POS/20') @^@@@@ E$SKIP XA )@@G@@ 1 @^@@@@ E$CHAR '.' @#@@@@ E$DITX @E@@@@ XB )@@G@@ LA,U A0,PRINT . $P PERFORM @ASG,UP @B@@@@ ERXC )@@G@@ CSF$ . @B@@@@ JP A0,GETCORE XD )@@G@@ . @B@@@@ LX,U X10,PRINT . @B@@@@ LMXE )@@G@@J X11,ASGERR . @B@@@@ ER ERR$ XF )@@G@@ . @[@@@@. @A@@@@. MCORE$ FOR EACH DATA FILE @[@@@@. XG )@@G@@@C@@@@GETCORE . $H @B@@@@ LAXH )@@G@@ A0,LAST$D . @E@@@@ AU,U A0,1 XI )@@G@@ . $P COMPUT BUF ADDR @D@@@@ SA,H2 A1,BUFTBL,X3 . $PXJ )@@G@@ SAVE IT @E@@@@ AA,U A0,BUFSZ . $P GET MCORE$ XK )@@G@@SIZE @B@@@@ SA A0,LAST$D . @B@@@@ ERXL )@@G@@ MCORE$ . @E@@@@ LX,H2 X1,BUFTBL,X3 XM )@@G@@ . $P SET X1(BUFADD) @[@@@@. @ @@@@. ZEROS THE BUFFER XN )@@G@@@[@@@@. @B@@@@ SZ A0 . @B@@@@ XO )@@G@@ LX,U X2,A0 . @B@@@@ LX X3,X1 XP )@@G@@ . @B@@@@ LXI,U X3,1 . @B@@@@ XQ )@@G@@ LR,U R1,BUFSZ . @B@@@@ BT X3,,*X2 XR )@@G@@ . @[@@@@. @ @@@@. GET DEVICE TYPE @[@@@@. XS )@@G@@@E@@@@ LA A0,(13,FITEMPKT) . $P GET FITEM PKT @B@@@@XT )@@G@@ ER FITEM$ . @E@@@@ SZ DEVIXU )@@G@@CE . $P INITIALIZE @B@@@@ SZ TAPEHDR XV )@@G@@ . @F@@@@ SZ A1 . $P CHK IF A TAXW )@@G@@PE FILE @F@@@@ LA,U A2,017 . $P TAPE CODE= XX )@@G@@1 - 017 @B@@@@ LA,U A0,1 . @E@@@@ XY )@@G@@ TNW A1,EQUIP . $T A TAPE FILE @E@@@@ SAXZ )@@G@@ A0,DEVICE . $A YES NO,SKIP @B@@@@ TNW YA )@@G@@ A1,EQUIP . @B@@@@ SA A0,TAPEHDR . YB )@@G@@@B@@@@ SZ REELNO . @G@@@@ LA,U YC )@@G@@ A0,1 . $P INITIALIZE OTHER CONSTANT @B@@@@ SAYD )@@G@@ A0,NXTWRD . @B@@@@ LA,U A0,2 YE )@@G@@ . @B@@@@ SA A0,NXTSECT . @C@@@@ LAYF )@@G@@ A0,('HDRO@@') . $ @C@@@@ SA A0,HDR YG )@@G@@ . $ I @C@@@@ LA A0,('EOFO@@') . $ N YH )@@G@@@C@@@@ SA A0,EOF . $ I @C@@@@ LAYI )@@G@@ A0,('EORO@@') . $ N @C@@@@ SA A0,EOR YJ )@@G@@ . $ I @C@@@@ LA,U A0,BLKSZ . $ T YK )@@G@@@C@@@@ SA,H1 A0,RCDSZ1 . $ I @C@@@@ SAYL )@@G@@,H1 A0,RCDSZ2 . $ A@C@@@@ SA,H1 A0,RCDSZ3 YM )@@G@@ . $ A@B@@@@ SA A0,IOLENG . @E@@@@YN )@@G@@ LA,U A0,W$ . $P SET TO WRITE @B@@@@ YO )@@G@@ SA A0,IOFUNC . @D@@@@ ER TDATE$ YP )@@G@@ . $ L @D@@@@ SA A0,DATE1 . $ YQ )@@G@@ I @D@@@@ SA A0,DATE2 . $ Z YR )@@G@@@D@@@@ SA A0,DATE3 . $ Z @B@@@@ YS )@@G@@ SZ RCDCNT3 . @B@@@@ SZ RCDCNT1 YT )@@G@@ . @B@@@@ SZ TAPEBLK . @D@@@@ YU )@@G@@ A @E@@@@ DL YV )@@G@@ A0,FCODE2 . $ T @E@@@@. NOP YW )@@G@@ . $ I @E@@@@ DS A0,IOPKT YX )@@G@@ . $ O @E@@@@ LA A0,X1 YY )@@G@@ . $ N @E@@@@ AA,U A0,120 . $ YZ )@@G@@ R @B@@@@ LA,U A1,BLKSZ . @E@@@@ZA )@@G@@ SA A0,BUF1ADD . $ O @B@@@@ ZB )@@G@@ SA,H2 A1,,A0 . @E@@@@ AA,U A0,BLKSZ ZC )@@G@@ . $ U @E@@@@ SA A0,BUF2ADD ZD )@@G@@ . $ T @B@@@@ SA,H2 A1,,A0 . ZE )@@G@@@E@@@@ TNZ DEVICE . $T A TAPE FILE @E@@@@ZF )@@G@@ J ASGLOOP . $ I @C@@@@ ZG )@@G@@ LA A0,(0,FITEMPKT) . $ @F@@@@ ER TINTZH )@@G@@L$ . $P INITIALIZE TAPE REELS @B@@@@ J ASGLZI )@@G@@OOP . @]@@@@$(4). @F@@@@HDRADR +0 ZJ )@@G@@ . $ TEMP SAVE RECORD ADDR @G@@@@HDRWRD +0 ZK )@@G@@ . $ TEMP RECORD HEADER WORD @^@@@@FITEMPKT RES 13 ZL )@@G@@@A@@@@EQUIP EQUF FITEMPKT+6,,S1 @E@@@@BF FORM 6,6,ZM )@@G@@6,18 . S1= USAGE IND @]@@@@BUFTBL. @C@@@@ BFZN )@@G@@ 1,0,0,0 . D$FILE0 @C@@@@ BF 0,0,0,0 ZO )@@G@@ . D$FILE1 @C@@@@ BF 0,0,0,0 . D$FILE2 ZP )@@G@@@C@@@@ BF 0,0,0,0 . D$FILE3 @C@@@@ BFZQ )@@G@@ 0,0,0,0 . D$FILE4 @C@@@@ BF 0,0,0,0 ZR )@@G@@ . D$FILE5 @C@@@@ BF 0,0,0,0 . D$FILE6 ZS )@@G@@@C@@@@ BF 0,0,0,0 . D$FILE7 @C@@@@ BFZT )@@G@@ 0,0,0,0 . D$FILE8 @C@@@@ BF 0,0,0,0 ZU )@@G@@ . D$FILE9 @B@@@@ASGSW +0 . @C@@@@ZV )@@G@@ASGING2 '@ASG,A D$FILE0 . ' @A@@@@FCODE2 EQUF ZW )@@G@@ ASGING2+2 @^@@@@NAMED1* 'D$FILE0' @^@@@@ 'D$FILE1ZX )@@G@@' @^@@@@ 'D$FILE2' @^@@@@ 'D$FILE3' @^@@@@ZY )@@G@@ 'D$FILE4' @^@@@@ 'D$FILE5' @^@@@@ 'DZZ )@@G@@$FILE6' @^@@@@ 'D$FILE7' @^@@@@ 'D$FILE8' AA )@@G@@@^@@@@ 'D$FILE9' @[@@@@. @#@@@@. EQU'S @[@@@@AB )@@G@@. @B@@@@IOPKT EQUF 0,X1 . @B@@@@IODONE EQAC )@@G@@UF 3,X1 . @B@@@@IOFUNC EQUF 3,X1,S2 AD )@@G@@ . @B@@@@IOBUF EQUF 4,X1,H2 . @B@@@@IODRUM EQAE )@@G@@UF 5,X1 . @B@@@@IOLENG EQUF 4,X1,H1 AF )@@G@@ . @B@@@@SWBUF EQUF 6,X1 . @B@@@@NXTWRD EQAG )@@G@@UF 7,X1 . @B@@@@NXTSECT EQUF 8,X1 AH )@@G@@ . @B@@@@BUF1ADD EQUF 9,X1 . @B@@@@BUF2ADD EQAI )@@G@@UF 10,X1 . @B@@@@HDR EQUF 20,X1 AJ )@@G@@ . @B@@@@RCDSZ1 EQUF 21,X1 . @ @@@@RCDCNT1 EQAK )@@G@@UF 23,X1 @B@@@@DATE1 EQUF 24,X1 . @ @@@@AL )@@G@@REELNO EQUF 25,X1,H2 @B@@@@EOF EQUF 48,X1 AM )@@G@@ . @B@@@@RCDSZ2 EQUF 49,X1 . @B@@@@BLKCNT EQAN )@@G@@UF 50,X1 . @B@@@@RCDCNT EQUF 51,X1 AO )@@G@@ . @B@@@@DATE2 EQUF 52,X1 . @B@@@@EOFSECT EQAP )@@G@@UF 54,X1 . @ @@@@EOR EQUF 76,X1 @ @@@@AQ )@@G@@RCDSZ3 EQUF 77,X1 @ @@@@RCDCNT3 EQUF 79,X1 @ @@@@AR )@@G@@DATE3 EQUF 80,X1 @A@@@@DEVICE EQUF 104,X1,S1 AS )@@G@@@A@@@@TAPEHDR EQUF 104,X1,S2 @ @@@@TAPEBLK EQUF 105,AT )@@G@@X1 @]@@@@$(1). @[@@@@. @A@@@@. ROUTINE TO STORE A RAU )@@G@@ECORD @[@@@@. @C@@@@PUT +0 . $H AV )@@G@@@G@@@@ . $P GET BUFFER ADDR ( 1 OF AW )@@G@@2) @F@@@@ LX X8,BUF1ADD . $P SET TO FIRST BUFFAX )@@G@@ER @G@@@@ TZ SWBUF . $T CHECK WHICH BUFFEAY )@@G@@R TO USE @E@@@@ LX X8,BUF2ADD . $P USE 2ND ONEAZ )@@G@@ @E@@@@ LA A4,R3 . $P GET TOTAL LENGTH BA )@@G@@@H@@@@ AA,U A4,2 . $P GET ACTUAL WORD NEEDED BB )@@G@@IN BLOCK @E@@@@ . SIZE + 1 FBC )@@G@@OR DBP@G@@@@ . 1 FOR HEABD )@@G@@DER IN BLOCK@ @@@@ LA,U A0,BLKSZ @A@@@@ ANA BE )@@G@@ A0,NXTWRD @E@@@@ TLE A0,A4 . $T BUFFEBF )@@G@@R BIG ENOUGH@E@@@@ J DFWBUF . $A YES NO,DFWBBG )@@G@@UF @^@@@@ ANA,U A4,1@A@@@@ LX X9,NXTWRD BH )@@G@@ @G@@@@ AX X9,X8 . $P GET NEXT AVAIL ADBI )@@G@@DR IN BLOCK @B@@@@ LXI,U X9,1 . @F@@@@ BJ )@@G@@ SA,H1 A4,0,X9 . $P ACTUAL RECORD SIZE @ @@@@ BK )@@G@@ SA,H2 A4,0,*X9 @E@@@@ LA A0,0,X10 . $PBL )@@G@@ MOVE DBP OR 0 @ @@@@ SA A0,0,*X9 @ @@@@ LABM )@@G@@,H2 A0,1,X10 @^@@@@ LXI,U A0,1@F@@@@ LR BN )@@G@@ R1,R3 . $P GET TRANSFER COUNT @E@@@@ BT BO )@@G@@ X9,0,*A0 . $P MOVE RECORD @ @@@@ ANX X9,XBP )@@G@@8 @F@@@@ SX,H2 X9,NXTWRD . $P SAVE NXT AVAIL ADBQ )@@G@@DR @B@@@@ LA A0,BRECNT . @E@@@@ AABR )@@G@@,U A0,1 . $P UP RECORD COUNT 1@B@@@@ SA BS )@@G@@ A0,BRECNT . @B@@@@ LA A0,RCDCNT . BT )@@G@@@G@@@@ AA,U A0,1 . $P UPDATE TOTAL RECORD COUBU )@@G@@NT @B@@@@ SA A0,RCDCNT . @H@@@@ LRBV )@@G@@ R15,A0 . $P RECORD SEG COUNT(FOR KEY FILE) @A@@@@BW )@@G@@ LA,H2 A3,RCDSZ1 @B@@@@ TLE A4,A3 BX )@@G@@ . @G@@@@ J $+3 . $T SEE IF RECOBY )@@G@@RD SIZE IS LARGEST@D@@@@ SA,H2 A4,RCDSZ1 . $A YES NBZ )@@G@@O @B@@@@ SA,H2 A4,RCDSZ2 . @D@@@@ J CA )@@G@@ *PUT . $E RETURN @[@@@@. @^@@@@. FLCB )@@G@@USH ROUTINE @[@@@@. @C@@@@FLUSH +0 . $HCC )@@G@@ @E@@@@ LX X8,BUF1ADD . $P SET TO 1ST BUFFERCD )@@G@@@ @@@@ TZ SWBUF @A@@@@ LX X8,BUF2ADDCE )@@G@@ @H@@@@ TZ BRECNT . $T CHECK IF ANYTHINGCF )@@G@@ IN LAST BLOCK @E@@@@ SLJ DFWIO . $A YES,DCG )@@G@@FWIO NO @G@@@@ TP IODONE . $P WAIT FOR I/CH )@@G@@O COMPLETION @ @@@@ ER WAIT$ @E@@@@ DLCI )@@G@@ A0,IOPKT . $P GET FILE NAME @B@@@@ DS CJ )@@G@@ A0,EOFPKT . @B@@@@ DS A0,HDPKT . CK )@@G@@@E@@@@ TZ DEVICE . $T A TAPE FILE @E@@@@CL )@@G@@ SLJ WRTEOF . $A YES,WRTEOF NO @B@@@@ CM )@@G@@ LA A0,NXTSECT . @G@@@@ SA A0,EOFSECTCN )@@G@@ . $P SET UP TO WRITE HDR BLOCKS @B@@@@ SA A0,ECO )@@G@@OFPKT+5 . @E@@@@ LA A0,X1 . $P GET ECP )@@G@@OF BLK ADDR @B@@@@ A,U A0,48 . @B@@@@ CQ )@@G@@ SA,H2 A0,EOFPKT+4 . @A@@@@ LA,U A0,EOFPKT CR )@@G@@ @D@@@@ ER IOW$ . $P DO I/O @E@@@@CS )@@G@@ TZ DEVICE . $T A TAPE FILE @E@@@@ CT )@@G@@ J TFLUSH . $A YES,TFLUSH @F@@@@ LACU )@@G@@ A0,X1 . $P COMPUTE HDR BLOCKS @B@@@@ AACV )@@G@@,U A0,20 . @E@@@@ SA,H2 A0,HDPKT+4 CW )@@G@@ . $P SET BUFFER ADDR @B@@@@ LA,U A0,HDPKT . CX )@@G@@@D@@@@ ER IOW$ . $P DO I/O @]@@@@TBACK.CY )@@G@@ @E@@@@ LA A0,BLKCNT . $P SAVE BLKCNT CZ )@@G@@@B@@@@ SA A0,BLKCNTP . @E@@@@ LA DA )@@G@@ A0,RCDCNT . $P SAVE RECORD COUNT@B@@@@ SA A0,RDB )@@G@@CDCNTP . @G@@@@ SLJ NOTIFY . $W PRINTDC )@@G@@ NOTIFIER MESSAGE @D@@@@ J *FLUSH . $DD )@@G@@E RETURN @[@@@@. @^@@@@. PERFORM I/O @[@@@@. @C@@@@DE )@@G@@DFWIO +0 . $H @F@@@@ TZ DF )@@G@@ TAPEHDR . $T TAPE FILE HDR DONE @E@@@@ SLJ DG )@@G@@ WRTHDR . $A YES NO,WRTHDR @B@@@@ TP IODODH )@@G@@NE . @F@@@@ ER WAIT$ . $P WAIT DI )@@G@@FOR PREVIOUS IO @E@@@@ TZ,S1 IODONE . $T CHK SDJ )@@G@@TATUS @E@@@@ SLJ CHKTAPE . $P CHK IF EOTADK )@@G@@PE @F@@@@ SX X8,IOBUF . $P SET UP BUFFER ADDDL )@@G@@R @A@@@@ LA A0,NXTSECT @F@@@@ SA DM )@@G@@ A0,IODRUM . $P SET UP SECTOR ADDR @A@@@@ AA,U DN )@@G@@ A0,BLKSZ1 @F@@@@. . $P COMPUDO )@@G@@TE SECTOR ADDR @E@@@@ SA A0,NXTSECT . $P NXT ADP )@@G@@VAIL SECTOR @E@@@@ LA A0,X1 . $P GET PKT ADQ )@@G@@DDR @D@@@@ ER IO$ . $P DO I/O @^@@@@DR )@@G@@ LA,U A0,1@B@@@@ SA A0,NXTWRD . DS )@@G@@@ @@@@ ANA A0,SWBUF @E@@@@ SA A0,SWBUF DT )@@G@@ . $P RESET BUF SWITCH @A@@@@ LA A0,BLKCNT DU )@@G@@@F@@@@ AA,U A0,1 . $P UPDATE BLOCK COUNT DV )@@G@@@A@@@@ SA A0,BLKCNT @E@@@@ TZ DEVIDW )@@G@@CE . $T A TAPE FILE @E@@@@ SLJ TBLK DX )@@G@@ . $A YES,TBLK NO @[@@@@. @A@@@@. INITIALIZE THEDY )@@G@@ OLD BUFFER @[@@@@. @E@@@@ LA A0,BUF1ADD . $PDZ )@@G@@ RESET BUFFER @H@@@@ TZ SWBUF . $T CHECKEA )@@G@@ WHICH BUFFER TO INITIALIZE @E@@@@ LA A0,BUF2ADD EB )@@G@@ . $P USE 2ND ONE @^@@@@ LXI,U A0,1@F@@@@ LAEC )@@G@@,U A1,BLKSZ . INITIALIZE BLOCK HEADER @B@@@@ SAED )@@G@@ A1,0,*A0 . @C@@@@ ANA,U A1,1 EE )@@G@@ . $P -1 @B@@@@ LR R1,A1 . @B@@@@ EF )@@G@@ SZ A2 . @G@@@@ LA,U A1,A2 EG )@@G@@ . ZEROS OUT REST OF THE BUFFER @ @@@@ BT A0,0EH )@@G@@,*A1 @C@@@@ J *DFWIO . $J @[@@@@. EI )@@G@@@G@@@@DFWBUF . $H WRITE FILLED BUFFER TO EJ )@@G@@FILE @C@@@@ SLJ DFWIO . $W @C@@@@ EK )@@G@@ J PUT+1 . $E @[@@@@. @A@@@@. TAEL )@@G@@PE FILE ACCESS ROUTINES @[@@@@. @C@@@@WRTHDR +0 EM )@@G@@ . $H @D@@@@ SZ TAPEHDR . $P RESETEN )@@G@@ SW @E@@@@ LA,U A0,1 . $P COMPUTE REEL NO EO )@@G@@@B@@@@ AA A0,REELNO . @B@@@@ SA EP )@@G@@ A0,REELNO . @E@@@@ LA A0,X1 . $PEQ )@@G@@ GET HSR ADDR @B@@@@ A,U A0,20 . @B@@@@ER )@@G@@ SA,H2 A0,THDR+4 . @ @@@@ DL A0,IES )@@G@@OPKT @B@@@@ DS A0,THDR . @ @@@@ LAET )@@G@@,U A0,THDR @^@@@@ ER IOW$@D@@@@ TZ,S1 EU )@@G@@ THDR+3 . $T STATUS OK @^@@@@ ER ERR$@B@@@@EV )@@G@@ SLJ WRTEOF . @ @@@@ J *WRTEW )@@G@@HDR @[@@@@. @A@@@@. WRITE EOF TAPE MARK @[@@@@. EX )@@G@@@C@@@@WRTEOF +0 . $H @ @@@@ DLEY )@@G@@ A0,IOPKT @ @@@@ DS A0,TEOF @ @@@@ LAEZ )@@G@@,U A0,TEOF @^@@@@ ER IOW$@ @@@@ J FA )@@G@@ *WRTEOF @[@@@@. @^@@@@. TAPE FLUSH @[@@@@. @]@@@@FB )@@G@@TFLUSH. @ @@@@ SLJ WRTEOF @ @@@@ SLJ FC )@@G@@ WRTEOF @ @@@@ J TBACK @[@@@@. @B@@@@. FD )@@G@@ CHK NO. BLKS WRITTEN ON A TAPE @[@@@@. @C@@@@TBLK +0 FE )@@G@@ . $H @E@@@@ LA A0,TAPEBLK FF )@@G@@ . $P UPDATE BLK CNT @^@@@@ AA,U A0,1@A@@@@ SAFG )@@G@@ A0,TAPEBLK @E@@@@ TE,U A0,MAXBLK . $TFH )@@G@@ MAX REACHED @E@@@@ J *TBLK . $A YES NFI )@@G@@O,*TBLK @B@@@@ TP IODONE . @ @@@@ FJ )@@G@@ ER WAIT$ @]@@@@EOTAPE. @ @@@@ SLJ WRTEFK )@@G@@OF @ @@@@ SZ TAPEBLK @E@@@@ LA A0,XFL )@@G@@1 . $P GET EOR ADDR @ @@@@ A,U A0,76 FM )@@G@@@A@@@@ SA,H2 A0,TEOR+4 @ @@@@ DL A0,IFN )@@G@@OPKT @ @@@@ DS A0,TEOR @ @@@@ L,U A0,TFO )@@G@@EOR @^@@@@ ER IOW$@ @@@@ SLJ WRTEOF FP )@@G@@@ @@@@ SLJ WRTEOF @[@@@@. @A@@@@. SWAP TAPFQ )@@G@@E REEL AND WRT HDR@[@@@@. @ @@@@ DL A0,IOPKT @A@@@@FR )@@G@@ DS A0,FITEMPKT @A@@@@ L A0,(0,FITEFS )@@G@@MPKT) @ @@@@ ER TSWAP$ @ @@@@ SLJ WRTHFT )@@G@@DR @ @@@@ J *TBLK @[@@@@. @B@@@@. CHFU )@@G@@K IF END OF TAPE ENCOUNTERED @[@@@@. @^@@@@CHKTAPE +0 . FV )@@G@@@E@@@@ TNZ DEVICE . $T IS IT A TAPE FILE@C@@@@FW )@@G@@ ER ERR$ . NO @E@@@@ LA,S1 FX )@@G@@ A0,IODONE . $P GET THE STATUS @D@@@@ TE,U A0,2FY )@@G@@ . $T E O TAPE @C@@@@ ER ERR$ FZ )@@G@@ . NO @E@@@@ LA A0,CHKTAPE . $P GET RETURN GA )@@G@@ADDR @ @@@@ SA A0,TBLK @ @@@@ J EOTAGB )@@G@@PE @[@@@@. @C@@@@. NOTIFY RECORD COUNT AND BLOCK COUNT GC )@@G@@@[@@@@. @C@@@@NOTIFY +0 . $H @ @@@@GD )@@G@@ E$DIT EDPKT @ @@@@ E$DECV BLKCNTP @ @@@@GE )@@G@@ E$COPY 9,DFMSG1 @ @@@@ E$DECV RCDCNTP @A@@@@GF )@@G@@ E$COPY 12,DFMSG2 @B@@@@ E$FD2 HDPKT GG )@@G@@ . @#@@@@ E$DITX @F@@@@ P$RINT (PF 2,14,PGH )@@G@@RINT) . $P PRINT DATA FILE MSG @ @@@@PF FORM 12,6,18 GI )@@G@@@C@@@@ J *NOTIFY . $E @[@@@@. @ @@@@GJ )@@G@@. NO RECORD UNLOADED @[@@@@. @C@@@@DFEMPTY GK )@@G@@ . $H @B@@@@ P$RINT (PF 1,3,NORECORD) GL )@@G@@@B@@@@ J *SAVEX11 . @]@@@@$(4). @B@@@@GM )@@G@@THDR I$OT 'D$FILE0',W$ 28,0 @B@@@@TEOF I$OT 'D$FGN )@@G@@ILE0',WEF$ 1,0 @B@@@@TEOR I$OT 'D$FILE0',W$ 28,0 @A@@@@GO )@@G@@NORECORD 'NO RECORD UNLOADED' @]@@@@SAVEX1 +0@]@@@@SAVEX2 +0GP )@@G@@@]@@@@SAVEX3 +0@]@@@@BLKCNTP +0@]@@@@RCDCNTP +0@ @@@@BRECNT EQGQ )@@G@@UF 0,X8,H1 @C@@@@HDPKT I$OD 'D$FILE0 ',W$ 56,HDPKT 0GR )@@G@@@D@@@@EOFPKT I$OD 'D$FILE0 ',W$ 28,EOFPKT 0 @^@@@@DFMSG1GS )@@G@@ ' BLOCKS, ' @ @@@@DFMSG2 ' RECORDS IN ' @]@@@@SAVEX11 +0GT )@@G@@@ @@@@EDPKT E$PKT 14,PRINT @^@@@@PRINT RES 14 @#@@@@GU )@@G@@ END ___@@@. INITIALIZE THE)@@[EK0^^G[]=]C-@=-)C-)CGV )@@G@@A@K@[ AA0@[V'^@@@@(@@@@GC8@@@@[@@@@[C@G@@@[@@@@@C@E@@[AA@@@@)@D[F#@L#@L#GW )@@G@@@L@^@K)NK@@@/K@@@V(@@@@@ @@@@H/K@@@=(@E@@@'^@@[@(@@@@TA@0@[BA@)@[AAB@@@@GX )@@G@@)@M[F][GK)N@K^G[@@@@@@@@COL@@@P@K@[0/K@@@V2W[)@@CWG@@@C@E@@[NCK@@@&8K@@[GY )@@G@@R^K@@@AC@@@@)@V[##@L@K0^K0^^G[^G[^G[@@@@@@R@0@[BR@)@[AR@K@[ [@[@@@C@@@@[GZ )@@G@@R@K@@@'^@@]3R^X@@JAD@@@@)@<[F#@KK^@K0^K^G[^@@@@@'^@@]3R^S@@J/K@@@>(4C@@JHA )@@G@@R]@@[]/K@@@!8K)@@$N8)@@E/K@K[VAE@@@@)@?[#@K0^K0^K0^K0^K0^K0^K@@@@@/K@@ !HB )@@G@@(@@@@TAA0@[V/K@K[VR@0@[BR@)@[AR@K@[ /K@@@>AF@@@@)@4[F#@KK^@K0^K^G[^@@@@@HC )@@G@@'^@@#SR^S@@J/K@@@6(4C@@JR]@@[]/K@@@"8K)@@8N8)@@EA@K@[ AG@@@@)@.[F@K0^K0^HD )@@G@@[#@L][H@K)N@R^K@@@/K@@[H(@@@@@[@@@@TC8@@@[@@@@@@/K@K[VR@K@[ /K@@@6AH@@@@HE )@@G@@)[A[EK)NK^@K0^K[@@@@@@@@8K)@[KN8)@@E/K@@[C[4H@@JCOL)@@/K@@[H8KK@[ENCK@@@HF )@@G@@&8K@@[AI@@@@)[J[F@^G[^@^G[^G[^G[@@@@9*K@@]9*K@@W9?W@@ZG@@@@GC@@@@#/K@@[IHG )@@G@@(4#@@JR@0@[]/K@K[@AJ@@@@)[S[]()C-@*) G[^C@[]@D#@K@@@@@C@@@[1/,0@@@C/@@@@HH )@@G@@/,0@@@C/@@[W/C@@[2'=@@@@C8@@@UAK@@@@)[)[#]@)K)^K0^K)DK0^K)D@@@@@@@C/@@@[HI )@@G@@/,0@@@9?@@[2/,0@@@9?@@@W/,0@@@C/@@@[/,0@@@AL@@@@)[*[#]@KK)]K)EES]CKEC[N@HJ )@@G@@K@@@@@R')@[+/C@@[2'=@@@@C8@@[+/,0@@@/,0@@@C/@@@./,0@@@AM@@@@)[0[#][P][T]HK )@@G@@[WK0^EKGCKF*KG)@@@'=@@@@[@@@@@G8@@@@[^N@@JK8@@@[C@@@@@'=@@@@/,0@@@AN@@@@HL )@@G@@)[8[F#@K@EKG]A@+^#K@@@@@'=@@@@C@@@[4M@2)@@N8K@@@&80@@[R@0@@[R8)@@G @@@@GHM )@@G@@R^N@@JAO@@@@)][[M@^G[[#@K@@@@@ ^[@@T[0[@[*\4K@@C[4[@[*\4K@@CC8@@@[C8)@@JHN )@@G@@ @@@@H 0[@[* 4[@[*AP@@@@)]F[M@K0^^G[[#@K@@[@[@[GC@@@[7[@[@@0C@@@[6[@[@@OHO )@@G@@C@@@[5[@[@@CC8@@@][@[@@BC8@@@[AQ@@@@)]P[M(@6@ C#1][0@@[@[@@4[@[@@S'=@@@@HP )@@G@@[0[@@#C8@@@@[C[@@^[C[@[H[C[@@1[C[@@PC8@@@@AR@@@@)]Z[M@^G[@]=#S@@@@C8K@@@HQ )@@G@@G8@@[8C@@@@[9*[@@@9?@@@WO@@@@@ @[@[( @[@@R @[@[J[@[@[KAS@@@@)]([E]=#S]@-HR )@@G@@)C-@'@@@@@@@'=@@@@C@@@[8/K@@[I(4[@[*[^W@@@[@[@@EG8@@@@[^W@@@[@[@@DAT@@@@HS )@@G@@)]2@F@@@@@@@)@@@Q@)@@@@@)@J@&@)@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@HT )@@G@@/K@@[IAU@@@@)@N[Y@)@@@@@0 D$FILE @ASG,A@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@AV@@@@)@Y[Y@)@@@@@4 D$FILE3 D$FILE2 D$FILEHV )@@G@@1 D$FILE0 D$FILE . AW@@@@)@([Q@)@@@@@@@@@@@9 D$FILE8 HW )@@G@@D$FILE7 D$FILE6 D$FILE5 D$FILEAX@@@@)]3[M@@(@6]@@@@@@@/K@@^XHX )@@G@@?@@@@KH@[@@BC8@@@@G9@@@]C[@@[#R][@@E*@[@@AR][@@D@@@@@@AY@@@@)].[U@@@@@@@HY )@@G@@N@K@[#&;@@@[C^E@@[[@D)@@C@E@@@[ D)@@[DD@@@&'K@@[O]K@@CR]L@@BH9@@@[AZ@@@@HZ )@@G@@)#C[U@@@@@@@C^1@@PN#0@@G[@[@@3G8@@@[C@[@@3[CC@@@G8@@@[CCC@@@AAL@@BP]K@@CIA )@@G@@M]W)@@BA@@@@)#N[UK@K@@K@'^@@#'*CC@@@R][@@E*@[@@AR][@@D@@@@@@/K@K]3[ [@@1IB )@@G@@[ [@@P/K@@#R?[@@@JBB@@@@)#Y[EK)Y^G[^G[[@@@@@@@@@[@[@@6C@[@@C'^@@^\*4[@[*IC )@@G@@9*@@[E9*@@[K9?[@@@'=@@@@0@[@@#BC@@@@)#$[F#@K^G[]&@+^#8)@@@@@C@@@@[/K@@^5ID )@@G@@*4[@[*'=@@@@C8@@[K[^@@[OO;@@@0C@@@@[[@@@[PBD@@@@)#0[EK0^ES]CKJ+A@)-)C)@@IE )@@G@@'^@@ U[@@@[DC@[@@3[@@@[CC@[@@2'=@@@@C8@@[E[^@@[IG8@@@OBE@@@@)#9[N@[@^CB-IF )@@G@@@@@@@@C@[@@CAA[@@^'^@@ L*4[@@#'=@@@@0@[@@#'^@@^Z*0[@[*@@@@@@/K@K#SBF@@@@IG )@@G@@)^#[MEKK@-[]@@@@@@C@[@@2[@[@@AH@[@@A[@[@@BC8@@@['=@@@@C@@@@[[@[@@CG8@@@@IH )@@G@@[@[@@ BG@@@@)^H[M[@@]=#S@@@@@@[@W)@@C8K@@@&;@@@[C@[@@E*@[@@AC@[@@D'^@@^8II )@@G@@*4[@[*[@[@@2G8@@@[BH@@@@)^R[U@^[@K@@C8@@@[ 0[@[*@@@@@@/K@@]4'^@@#'/K@K#'IJ )@@G@@M#H)@@C8K@@I @@@@IN@K@@HH8K@@[BI@@@@)^+[E@K0^^G[]&@+^#8@@@@@'=@@@@C8@@@3IK )@@G@@9*@@@39?[@@@[^@@@7O;@@@OC@@@@[[^[@@TG^[@@TBJ@@@@)^:[F#@L][T@K@K0^ES]CKJ)IL )@@G@@'=@@@@C8@@@89*@@@89?[@@@@@@@@@/K@K^Z'^@@^\'=@@@@*4@@@6BK@@@@)^4[N@K^[@@]IM )@@G@@=^M@@@/K@K^8%8@@@@[@[@[(G8@@@[C@[@[(@@@@@@/K@@#4'^@@^\'^@@^\/K@K^\BL@@@@IN )@@G@@)^"[EK)YK@^G[[#@K@@@@@@@9*@@@.9?[@@@[^@@[[O;@@[GC@@@@[ @[@[('^@@^\'=@@@@IO )@@G@@0@[@@#BM@@@@) B[]()C-@")C@-)C-)C-[A@@@@@@@'=@@@@R#@@[89*@@@]9?[@@@'^@@^\IP )@@G@@'^@@^\'=@@@@R;@@@.BN@@@@) J[N@K@K)Q[][T@K@[@@@^8C@@@ L'=@@@@%8@@@]C4[@@#IQ )@@G@@'=@@@@(4[@[*@@@@@@/K@K^8'^@@^ZBO@@@@) T[#@]&@+^@]A@+^@'A@)@@@@@@@@C8K@@DIR )@@G@@C8@@[Q/,0@@@C@@@[C/,0@@@C/@@[W@@@@@@/K@@ @BP@@@@) -[#]@5#@L]@X#@KK)HK0^KIS )@@G@@)D@@@@/,0@@@9?@@[E/,0@@@C8K@@GC8@@[S/,0@@@C@@@[D/,0@@@BQ@@@@) (@;]@(#@L]IT )@@G@@]L@K0^K)=K0^@@@@@@@@@@@@/K@K[V'=@@@@R#@@['/K@K U'=@@@@R#@@[9/,0@@@BR@@@@IU )@@G@@)@3[I@)#1?C#0@/V][@@@@@@@@@@@@@@@@@@0 D$FILE@@W@@@@@@@@@@@@@@@0 IV )@@G@@D$FILEBS@@@@)@/[Q@)@/V]@/@@@@@@@@@@@LOADEDORD UNNO REC@@W@@@@@@@@@@@@@@@IW )@@G@@0 D$FILE@@[@@@BT@@@@)[A[Q@)@@/V]@/*@@@@@@@@@@@8@[E@@@@@@@@@@@@0 IX )@@G@@D$FILE@@@@@@@@@@@@@@@@@@@@@@@@BU@@@@)[K[Q@)#1?C#2)@@@@DS IN RECORS, IY )@@G@@ BLOCK@@@@@@@@W@[K@@@@@@@@@@@@0 D$FILEBV@@@@)[U[A@)E@@@@)[0@I@)@@@@@IZ )@@G@@@@[@@[@@@@@@@@@@@@@@@@@@[[@@@@@@@@@@@&I@[+@@@@@@ BW@@@@)[1[Q@)])@O]JA )@@G@@)O@@@@@[#@[]@]I@[+@@@@@]EORO@@EOFO@@HDRO@@@@H@@]POS/20@@.,//ASG,UPBX@@@@JB )@@G@@@@^@@ @@D@@>@[N@@#@[Z@@@@@@@@@@@@@ 0)@@@@@)@@@@@@@@@[;EDIT$ EDITR$JC )@@G@@ ECHAR$ ECOL$ ESKIP$ ECLR$ EOCTV$ EDECV$JD )@@G@@ EFD1$ EFD2$ EDITX$ ECOLN$ EMSGR$ ECOPY$JE )@@G@@ EPACK$ W$ WEF$ PGMSW ART C18 JF )@@G@@ CSF$ ASGERR ERR$ LAST$D BUFSZ MCORE$JG )@@G@@ FITEM$ BLKSZ TDATE$ TINTL$ WAIT$ IOW$ JH )@@G@@ BLKSZ1 IO$ MAXBLK TSWAP$ PRINT$ DF$AMWJI )@@G@@ @@[@@@@@@@@@DF$AMF @@[@@@@@@@@1NAMED1 @@^@@@@@@@@Z@]E@@DCOM$$*[@@@@*SDFF*@#@@@@ AXR$ @#@@@@$(4) JL )@@G@@ LIT. @]@@@@$(1). @[@@@@. @G@@@@. THIS ROUTINE WJM )@@G@@ILL READ RECORDS FROM T$FILE AND WRITE TO D$FILE@[@@@@. @C@@@@BLDD$FJN )@@G@@* . $H @E@@@@ SX X11,JO )@@G@@SAVEX11 . $P SAVE RETURN ADDR @E@@@@ DL A0,USENME JP )@@G@@ . $P GET D$FILE NAME @E@@@@ DS A0,NAMED1 JQ )@@G@@ . $P GIVE IT TO DF$AMW@G@@@@ TNZ ARTKEY . $TJR )@@G@@ SHOULD ART KEY BE SAVED @E@@@@ J RDLOOP JS )@@G@@ . $A YES NO,RDLOOP @E@@@@ LR,U R3,3 . $PJT )@@G@@ LENGTH=3 WORDS @E@@@@ LA A0,ARTKEY . $P GET TJU )@@G@@HE ART KEY @F@@@@ SA A0,ARTHDR+1 . $P SAVE IT IN JV )@@G@@THE PKT @D@@@@ LX,U X10,ARTPKT . $P DF$AM PKT JW )@@G@@@D@@@@ LMJ X11,DF$AMW . $P WRITE IT @E@@@@RDLOOPJX )@@G@@ . $H READ T$FILE LOOP @E@@@@ LXJY )@@G@@,U X10,TFPKT . $P GET T$FILE PACKET@E@@@@ LMJ JZ )@@G@@ X11,TF$SQR . $P READ ONE RECORD @E@@@@ TZ STATKA )@@G@@US . $T GOOD STATUS @E@@@@ J ENDIT KB )@@G@@ . $A YES NO,ENDIT @E@@@@ LA,H2 A0,TFPKT+2 KC )@@G@@ . $P GET RECORD LENGTH@C@@@@ ANA,U A0,1 . $PKD )@@G@@ -1 @H@@@@ LR R3,A0 . $P R3= RECORD LEN KE )@@G@@ -1 @E@@@@ LX A1,BUFAD . $P GET BKF )@@G@@UFER ADDR @F@@@@ LA A0,0,A1 . $P GET FIRST WKG )@@G@@ORD(DBP) @F@@@@ SA A0,DFPKT . $P BUILD DF$AMKH )@@G@@ PACKET @E@@@@ AA,U A1,1 . $P COMPUTE DATKI )@@G@@A ADDR@E@@@@ SA A1,DFPKT+1 . $P SAVE IT IN DFPKT KJ )@@G@@@E@@@@ LX,U X10,DFPKT . $P CALL DF$AM @C@[@@KK )@@G@@ LMJ X11,DF$AMW+1 . $ @C@@@[ LMJ KL )@@G@@ X11,DF$AMW . $ @D@@@@ J RDLOOP KM )@@G@@ . $J TRY NXT @[@@@@. @C@@@@ENDIT KN )@@G@@ . $H @G@@@@ LMJ X11,DF$AMF . $P END OF ALL,KO )@@G@@ FLUSH D$FILE'S @E@@@@ LX X11,SAVEX11 . $P GET RKP )@@G@@ETURN ADDR @D@@@@ J 0,X11 . $J RETURN KQ )@@G@@@]@@@@$(4). @]@@@@ARTPKT +0@^@@@@ +ARTHDR @^@@@@KR )@@G@@ARTHDR +077,0,2 @]@@@@ +0@D@@@@TFPKT +0 KS )@@G@@ . TF$AM PACKET @]@@@@BUFAD +0@]@@@@ +0@A@@@@KT )@@G@@STATUS EQUF TFPKT+2,,T1 @D@@@@DFPKT +0 KU )@@G@@ . DF$AM PKT @]@@@@ +0@]@@@@SAVEX11 +0@#@@@@ KV )@@G@@ END ___ 0)^))^@)@F@@_@^@)^@)^@)^@)^@)D-H)@@[##@L]@[]@ ]@D@^C@=G[KW )@@G@@@@@@@@[@@@@#C@@@@@N80@@#/K@@@E(@@@@@9*@@@@9?@@@@A]0@@DAA@@@@)@C[]()C-@AOKX )@@G@@0^K)^K0^K^G[@@@@@@H8@@@[C^@@@A/K@@@T*W@@@A/,0@@@R')@@^/,0@@@R')@@@AB@@@@KY )@@G@@)@K[EK0^^G[[#@K()C-@A)@@/K@@@E/,0@@@R')@@B[@K@@CG8K@@[[@@@@BC@H@@@R#K@@ KZ )@@G@@N@0@@GAC@@@@)@T@V]@P#@K@)@@@6@)/S@@@@@@@@@@@@@@@@@@@@@@_@@@]@@@@@]@@@@@@LA )@@G@@/KF@@@R]0@@D/,0@@@AD@@@@)@A@&@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@ @@D@@A@@P@@[@@T@@@LD )@@G@@@@@@@@@@@@@W)@@@@@)@@@@@@@@@@EUSENME NAMED1 ARTKEY DF$AMWLE )@@G@@ TF$SQR DF$AMF BLDD$F @@[@@@@@@@@@F04D13F05D50F06D13LF )@@G@@*[@@@@*SDFF*@]@@@^$(1) @]@@@^ . @A@@@^ . INSERT COMMAND LG )@@G@@WORKER ROUTINE @]@@@^ . @]@@@^INSERT* @^@@@^ AXLH )@@G@@R$ @]@@@^ . @A@@@^PF1 FORM 12,6,18 LI )@@G@@@]@@@^ . @C@@@^ SX,H2 X11,RETURN . INSERT LJ )@@G@@@A@@@^ SX,H2 X10,X10SAV .@C@@@^ . L$SNAP 'WRKLK )@@G@@PKT',0,8,WRKPKT @C@@@^ SZ SW1 . LL )@@G@@ @E@@@^ SZ SW2 . $P ZERO SWITCHES LM )@@G@@@E@@@^ LA,S3 A0,0,X10 . TYPE TO A0 @A@@@^LN )@@G@@ TNZ A0 .@A@@@^ ER ERR$ LO )@@G@@ .@A@@@^JMPTBL J JMPTBL,A0 .@C@@@^ J LP )@@G@@ I . TYPE = 1@C@@@^ J IB .LQ )@@G@@ TYPE = 2@C@@@^ J IR . TYPE = 3@C@@@^LR )@@G@@ J IRB . TYPE = 4@C@@@^ J LS )@@G@@ IS . TYPE = 5@C@@@^ J ICTL .LT )@@G@@ TYPE = 6@C@@@^ J IK . TYPE = 7@E@@@^LU )@@G@@ J ICTLA . TYPE = 010 @E@@@^ LV )@@G@@ J ICTLD . TYPE = 011 @]@@@^IRB . LW )@@G@@@]@@@^ICTL . @]@@@^IK . @^@@@^ ER ERR$@]@@@^LX )@@G@@/ @]@@@^ . @A@@@^ . INSERT SET WORKING ROUTINE LY )@@G@@@A@@@^ . SYNTAX: IS RECORD-NAME SET-NAME @E@@@^ . PHYSICALLY, NO CHANGELZ )@@G@@ TO DATA OF RECORD(S) INVOLVED @G@@@^ . LOGICALLY, THE CURRENT OCCMA )@@G@@URENCE OF THE RECORD NAMED WILL BE @G@@@^ . INSERTED MB )@@G@@IN THE SET NAMED. THE LOGICAL INSERT POINT IS @G@@@^ . NEXMC )@@G@@T TO THE CURRENT OF THE SET NAMED UNLESS THE CURRENT @G@@@^ . MD )@@G@@ OF THE SET NAMED HAPPENED TO BE THE SAME RECORD @E@@@^ . ME )@@G@@ OCCURENCE TO BE INSERTED. IN THAT CASE @G@@@^ . MF )@@G@@ CASE, THE PREVIOUS CURRENT OF THE SET NAMED WILL BE USED @]@@@^ . MG )@@G@@ @]@@@^ . @]@@@^ . @]@@@^ . @]@@@^IS . MH )@@G@@ @^@@@^ . X10 POINTS TO PACKET @^@@@^ . A0 HAS TYPE: 5 FOR IS@]@@@^MI )@@G@@ . @A@@@^ TZ,H2 2,X10 @A@@@^ J MJ )@@G@@ ERROR61 @A@@@^ TZ,H2 3,X10 @A@@@^MK )@@G@@ J ERROR62 @C@@@^ TNZ 2,X10 ML )@@G@@ . @C@@@^ J ERROR61 . MM )@@G@@@C@@@^ TNZ 3,X10 . @C@@@^ J MN )@@G@@ ERROR62 . @A@@@^ . CHECK IF RECORD NAME IS VALMO )@@G@@ID @G@@@^ LX,H1 X8,2,X10 . SYM TAB ENT ADDR FOR REMP )@@G@@C TO X8 @G@@@^ LA,S4 A1,0,X8 . $P TYPE OF FIRST MQ )@@G@@SYMBOL TO A1 @G@@@^ TE,U A1,02 . $T IS VARIAMR )@@G@@BLE A RECORD NAME @E@@@^ J NRNMSG . $A NOMS )@@G@@,NRNMSG YES @G@@@^ LA,T1 A2,1,X8 . $P SEQUENCEMT )@@G@@ NUMBER TO A2 @^@@@^ ANA,U A2,1@G@@@^ TMU )@@G@@G,H1 A2,TT1 . $P CHECK IF SEQUENCE # IN RANGE @A@@@^ MV )@@G@@ ER ERR$ .@G@@@^ AA,H2 A2,TT1 .MW )@@G@@ $P A2 POINTS TO SEQUENCE TBL ENTRY @G@@@^ SA A2,RSEQAD MX )@@G@@ . $P SAVE ADDRESS OF REC SEQ ENT @A@@@^ TNZ,H2 0,A2MY )@@G@@ .@A@@@^ J ERROR66 .@A@@@^ LMZ )@@G@@A,T1 A1,0,A2 .@G@@@^ SA A1,IRCODE . $P RENA )@@G@@CORD CODE TO IRCODE @A@@@^ . CHECK IF SET NAME IS VALID NB )@@G@@@G@@@^ LX,H1 X9,3,X10 . $P SYM TAB ENT ADDR FOR SET TNC )@@G@@O X9 @E@@@^ LA,S4 A2,0,X9 . $P TYPE TO A 2 ND )@@G@@@G@@@^ TE,U A2,01 . $T IS VARIABLE A SET NAME NE )@@G@@ @E@@@^ J ERROR64 . $A NO,ERROR64 YES NF )@@G@@@E@@@^ LA,T1 A0,1,X9 . $P SET CODE TO A0 @G@@@^NG )@@G@@ SA A0,ISCODE . $P SAVE SET CODE IN ISCODE NH )@@G@@@A@@@^ LA A0,RSEQAD . @A@@@^ LX,H2 X8,0NI )@@G@@,A0 . @G@@@^ SX X8,IRBFAD . $P SAVE RECORD BUFFER NJ )@@G@@ADDRESS IN IRBFAD @C@@@^ LA A0,1,X8 . NK )@@G@@@G@@@^ SA A0,INSDBP . $P DBP OF REC TO INS TO INNL )@@G@@SDBP @A@@@^ AX,U X8,2 . $ @G@@@^ SX NM )@@G@@ X8,IRADDR . $P SAVE REOORD HEADER ADDRESS IN IRADDR @]@@@^ . NN )@@G@@@C@@@^ . CHECK IF RECORD CAN PARTICIPATE IN SET @^@@@^ . A1 HAS RENO )@@G@@CORD CODE @]@@@^ . @C@@@^ TNZ,H1 C9 . $ ANNP )@@G@@Y NEW SCHEMA@A@@@^ J $+3 . @A@@@^ LXNQ )@@G@@,U X10,C9 . @A@@@^ J ISC1SE . @A@@@^NR )@@G@@ LX,U X10,C1 . @G@@@^ISC1SE . NS )@@G@@. $P LOAD ADDR OF PROPER C TABLE, C1 OR C9@G@@@^ SLJ TABSNT )@@G@@E . $W TABSE SEARCH C1 OR C9 TABLES @E@@@^ TZ NU )@@G@@ A2 . $T SUCCESSFUL SEARCH @E@@@^ J NCENNV )@@G@@MSG . $A NO,NCENMSG YES @G@@@^ SA A0,C1ENAD NW )@@G@@. $P SAVE ADDR OF C TBL ENT IN C1ENAD @G@@@^ LR,S4 R1,0NX )@@G@@,A0 . $P # OF AUTO & OWNER ENTRIES TO R1 @E@@@^ LA NY )@@G@@ A1,ISCODE . $P SET CODE TO A1 @^@@@^ AA,U A0,1NZ )@@G@@@^@@@^ LXI,U A0,1@E@@@^ISLP1 JGD R1,$+2 . $T DOA )@@G@@ONE WITH ALL ENTRIES @C@@@^ J ISOUT1 . $A YES,ISOOB )@@G@@UT1 NO@E@@@^ TE,T2 A1,0,*A0 . $T SET CODES EQUAL OC )@@G@@@C@@@^ J ISLP1 . $A NO,ISLP1 YES @A@@@^ ANOD )@@G@@A A0,(1,1) @E@@@^ LA,T3 A3,0,A0 . $P TEST TYOE )@@G@@PE OF ENTRY @C@@@^ . $T OWNER ENTRY OF )@@G@@@E@@@^ JN A3,ERROR67 . $A YES,ERROR67 NO @G@@@^OG )@@G@@ SA A0,AENTAD . $P SAVE SET ENTRY ADDR IN AENTAD OH )@@G@@@G@@@^ SA,H2 A1,SETCPKT . $P SET CODE TO SETCPKT,,H2 OI )@@G@@ @G@@@^ SLJ SETCUR . $W SETCUR EXTABLISH SETOJ )@@G@@ CURRENCY @E@@@^ TZ,H1 SETCPKT . $T SUCCESSFUL OK )@@G@@ @E@@@^ J NOSETMSG . $A NO,NOSETMSG YES OL )@@G@@@]@@@^ . @G@@@^ . PREPARE TO LINK RECORD WHOSE SEQUENCE TBLE POOM )@@G@@INTER IS IN RSEQAD INTO @C@@@^ . AUTOMATIC SET WHOSE CODE IS IN SETCPKT ON )@@G@@ @C@@@^ . DBP OF RECORD TO INSERT IS IN INSDBP @G@@@^ OO )@@G@@ LA,U A0,1 . $P AUTO MEMBER CODE TO A0 @E@@@^OP )@@G@@ SA A0,ISLNKSW . $P SET ISLNKSW @G@@@^ OQ )@@G@@ SLJ SETLINK . $W SETLINK LINK RECORD IN AUTO SET @]@@@^OR )@@G@@ . @A@@@^ . UPDATE THE TEMPORARY FILE @]@@@^ . OS )@@G@@@G@@@^ LA A0,IRBFAD . $P RECORD BUFFER ADDR TO A0 OT )@@G@@ @C@@@^ SLJ TFCHANGE . $W TFCHANGE@A@@@^ OU )@@G@@ J ISEXT @]@@@^ . @]@@@^ . @G@@@^OV )@@G@@ISOUT1 . RECORD DOES NOT PARTICIPATE IN SET AS OWNER OR AUTO MEMBER OW )@@G@@@C@@@^ . CHECK IF IT CAN BE A MANUAL SET @G@@@^ TNOX )@@G@@ 0,A0 . $ A0 SHOULD POINT TO 1ST MANUAL WRD@^@@@^ OY )@@G@@ ER ERR$@G@@@^ SA A0,MWRDAD . $P SAVE ADDOZ )@@G@@R OF 1ST MAN WRD @A@@@^ LA,U A0,1 .@G@@@^PA )@@G@@ SA A0,ISLNKSW . $P INDICATE CALL FROM IS PB )@@G@@@G@@@^ SLJ MPTRFND . $W MPTRFND FIND THE MANUAL SEPC )@@G@@T ENT @G@@@^ TNZ MENTAD . $T CAN RECORD PARTICIPAPD )@@G@@TE IN SET @E@@@^ J ERROR70 . $S NO,ERROR70 YESPE )@@G@@ @G@@@^ TZ MSPARSW . $T RECORD PARTICIPATES PF )@@G@@IN SET @E@@@^ J ERROR71 . $A YES,ERROR71 NOPG )@@G@@ @]@@@^ . @E@@@^ . CHECK IF ENOUGH SPACE IS RESERVED FOR PPH )@@G@@OINTERS @]@@@^ . @G@@@^ LX X8,MWRDAD PI )@@G@@ . $P ADDR OF 1ST MAN WRD TO X8 @E@@@^ LA,S5 A1,0PJ )@@G@@,X8 . $P RES WRDS TO A1 @G@@@^ ANA A1,TOTMPTRPK )@@G@@ . $P # OF REMAINING PTRS TO A1 @G@@@^ LX X9,MPL )@@G@@ENTAD . $P ADDR OF MAN SET ENTRY TO X9 @G@@@^ TLE,S2 PM )@@G@@ A1,0,X9 . $T ENOUGH WORDS LEFT FOR POINTERS @E@@@^ J PN )@@G@@ ERROR72 . $A NO,ERROR72 YES @E@@@^ LA,T2 PO )@@G@@ A1,0,X9 . $P SET CODE TO A1 @G@@@^ SA,H2 A1,SPP )@@G@@ETCPKT . $P SET CODE TO SETCPKT,,H2 @G@@@^ SLJ PQ )@@G@@ SETCUR . $W SETCUR ESTABLISH SET CURRENCY @E@@@^ TZPR )@@G@@,H1 SETCPKT . $T SUCCESSFUL @E@@@^ J PS )@@G@@ NOSETMSG . $A NO,NOSETMSG YES @G@@@^ LX X9,MPT )@@G@@ENTAD . $P ADDR OF MAN SET ENTRY TO X9 @]@@@^ . @A@@@^PU )@@G@@ LA A2,TOTMPTR .@G@@@^ ANA A2,NUMPTR PV )@@G@@ . $P # OF POINTERS TO BE SHIFTED DOWN@A@@@^ LR R1,APW )@@G@@2 @G@@@^ LA A2,IRADDR . $P ADDR OF MAN REPX )@@G@@C TO A2 @G@@@^ AA A2,MPTRDIS . $P A2 POINTPY )@@G@@S TO INSERT POINT @A@@@^ SA A2,MPTRADD .@A@@@^PZ )@@G@@ AA A2,R1 .@G@@@^ ANA,U A2,1 QA )@@G@@ . $P A2 POINTS TO LAST MAN PTR @A@@@^ LA A3,AQB )@@G@@2 .@G@@@^ AA,S2 A3,0,X9 . $P A3 POINTS TO DQC )@@G@@ESTINATION ADDR @G@@@^ LXI,U A2,-1 . $P A2 WILL QD )@@G@@DECREMENT UPON INDEXING @G@@@^ LXI,U A3,-1 . $P A3QE )@@G@@ WILL DECREMENT UPON INDEXING @^@@@^ . PUSH POINTERS DOWN @A@@@^ISLP2 QF )@@G@@ JGD R1,$+2 @A@@@^ J ISOUT2 QG )@@G@@@A@@@^ LA A0,0,*A2 @A@@@^ SA A0,0QH )@@G@@,*A3 @A@@@^ J ISLP2 @]@@@^ISOUT2 . QI )@@G@@@]@@@^ . @G@@@^ . PROCEED TO SET MFCW; USE MSETNUM TO DETERMINEQJ )@@G@@ WHICH BIT TO SET @]@@@^ . @^@@@^ LA,U A4,1QK )@@G@@@A@@@^ LX,U X9,36 @A@@@^ AN X9,MQL )@@G@@SETNUM @G@@@^ LSSL A4,0,X9 . $P A4 CONTAINS NEQM )@@G@@W BIT IN POSITION @]@@@^ . @C@@@^ . OR NEW BIT WITH MFCW TO FORQN )@@G@@M NEW ONE @]@@@^ . @G@@@^ LX X8,MWRDAD QO )@@G@@ . $P ADDR OF 1ST MANUAL WRD TO X8 @G@@@^ LA A0,IQP )@@G@@RADDR . $P ADDR OF INSERTED RCD TO A0 @E@@@^ AA,S6 QQ )@@G@@ A0,0,X8 . $P A0 POINTS TO MFCW @G@@@^ OR A4,0QR )@@G@@,A0 . $P OR NEW BIT WITH MFCW, MFCW TO A5@E@@@^ SA QS )@@G@@ A5,0,A0 . $P UPDATE MFCW @]@@@^ . @A@@@^ QT )@@G@@ LA,U A0,2 .@C@@@^ LA A1,MENTAD QU )@@G@@ . @G@@@^ SA A1,AENTAD . $P ADDR OF SETQV )@@G@@ ENTRY TO AENTAD @G@@@^ LA A2,IRBFAD . $P ADDR QW )@@G@@OF BUFFER TO IRBFAD @C@@@^ LA A3,1,A2 . QX )@@G@@ @G@@@^ SA A3,INSDBP . $P DBP OF RECORD TO QY )@@G@@INSDBP @]@@@^ . @A@@@^ . GO LINK RECORD IN MANUAL SET QZ )@@G@@@A@@@^ . RECORD ADDRESS IS IN IRADDR @C@@@^ . MANUAL PTR ADDRESS FORA )@@G@@R SET IS IN MPTRADD @A@@@^ . DBP OF RECORD IS IN INSDBP @E@@@^RB )@@G@@ . DISPLACEMENT OF FIRST MANUAL POINTER IN MPTRDIS @A@@@^ . ADDRC )@@G@@RESS OF SET ENTRY IN AENTAD @A@@@^ . A0 HAS CODE FOR MANUAL SET LINK RD )@@G@@@]@@@^ . @E@@@^ SLJ SETLINK . $W SETLINK RE )@@G@@LINK IN SET @]@@@^ . @^@@@^ . UPDATE TEMPORARY FILE@A@@@^ RF )@@G@@ LA A0,IRBFAD @G@@@^ SLJ TFCHANGE .RG )@@G@@ $W TFCHANGE CHANGE TEMP FILE @A@@@^ J ISEXT RH )@@G@@ @]@@@^ . @]@@@^ . @]@@@^ . @]@@@^ . RI )@@G@@ @]@@@^ . @C@@@^MPTRFND + 0 . $H MPRJ )@@G@@TRFND @C@@@^ . FIND OUT WHERE THE 1ST MANUAL POINTER IS. @C@@@^ . POIRK )@@G@@NTER TO FIRST MANUAL WORD IS IN MWRDAD @A@@@^ . SET CODE IS IN LOCATIRL )@@G@@ON ISCODE @A@@@^ . RECORD ADDRESS IS IN IRADDR @G@@@^ LXRM )@@G@@ X8,MWRDAD . $P ADDR OF FIRST MANUAL WRD TO X8 @G@@@^ RN )@@G@@ SZ MENTAD . $P ZERO ADDRESS OF MANUAL SET ENTRY@G@@@^RO )@@G@@ LX,S6 X9,0,X8 . $P DISPLACEMENT OF MFCW TO X9 RP )@@G@@@G@@@^ LR,S2 R1,0,X8 . $P # OF MANUAL SETS TO R1 RQ )@@G@@ @C@@@^ LA A3,R1 . @A@@@^ RR )@@G@@ LA A4,X9 .@G@@@^ AA,U A4,1 .RS )@@G@@ $P A4 HAS DISPLACEMENT OF 1ST PTR @E@@@^ SZ MSPARSW RT )@@G@@ . $P ZERO MSPARSW @G@@@^ AX X9,IRADDR .RU )@@G@@ $P X9 POINTS TO MFCW OF REC TO INS @G@@@^ SZ A5 RV )@@G@@ . $P A5 TO COUNT # OF MAN PTRS @E@@@^ LA A1,0RW )@@G@@,X9 . $P MFCW TO A1 @A@@@^ LA A2,ISCODE RX )@@G@@ @A@@@^ AX,U X8,2 .@]@@@^MANLP1 . @G@@@^RY )@@G@@ JGD R1,$+2 . $T ARE WE DONE WITH ALL MAN SETS RZ )@@G@@@E@@@^ J MANOUT1 . $A YES,MANOUT1 NO @E@@@^SA )@@G@@ TE,T2 A2,0,X8 . $T SET CODES EQUAL @E@@@^ SB )@@G@@ J MPTGT1 . $A NO,MPTGT1 YES @G@@@^ SXSC )@@G@@ X8,MENTAD . $P SAVE ADDRESS OF MANUAL SET ENTRY@G@@@^ SD )@@G@@ SA A4,MPTRDIS . $P SAVE DISPLACEMENT OF 1ST MAN PTR@G@@@^SE )@@G@@ SA A5,NUMPTR . $P SAVE PTR NUMS UP TO INS SF )@@G@@@C@@@^ ANA A3,R1 . @G@@@^ SASG )@@G@@ A3,MSETNUM . $P SAVE # OF SETS, ST AT 1 @G@@@^ SH )@@G@@ JP A1,MPTGT1 . $T DOES RECORD PARTICIPATE IN SET @E@@@^SI )@@G@@ LA,U A0,1 . $A NO,MPTGT1 YES @G@@@^ SJ )@@G@@ SA A0,MSPARSW . $P SET MSPARSW TO IND REC PARTICIP;@E@@@^SK )@@G@@ . IN MANUAL SET @G@@@^MPTGT1SL )@@G@@ JN A1,MPTGT2 . $T DOES REC PARTICIPATE IN SET @E@@@^SM )@@G@@ . $A YES,MPTGT2 NO @E@@@^ SN )@@G@@ J MPTGT3 . $J MPTGT3 @G@@@^MPTGT2 AASO )@@G@@,S2 A5,0,X8 . $P UPDATE COUNT OF MANUAL POINTERS @G@@@^ SP )@@G@@ AA,S2 A4,0,X8 . $P UPDATE DISPLACEMENT OF MAN PTR @G@@@^SQ )@@G@@MPTGT3 LSSL A1,1 . $P SHIFT MFCW LEFT BY 1 POSITION SR )@@G@@@G@@@^ AX,U X8,1 . $P ADVANCE POINTER TO SET ENTSS )@@G@@RY @C@@@^ J MANLP1 . $J MANLP1 @C@@@^MANOUTST )@@G@@1 . GOT DONE WITH ALL MANUAL SET ENTRIES @G@@@^ SA A5,TSU )@@G@@OTMPTR . $P SAVE TOTAL # OF MANUAL POINTERS @A@@@^ SA SV )@@G@@ A4,TOTDISP @C@@@^ J *MPTRFND . $E EXIT SW )@@G@@@]@@@^/ @]@@@^ . @A@@@^ . INSERT AFTER CURRENT LINE SX )@@G@@ @^@@@^ . SYNTAX: I 'LITERAL'@E@@@^ . LITERAL WILL BE ROUNDED TO SY )@@G@@THE NEXT WRD IN LENGTH @]@@@^ . @]@@@^I . @E@@@^SZ )@@G@@ LA A1,LN . $P LINE NUMBER TO A1 @]@@@^IGT1 TA )@@G@@ @G@@@^ SA A1,IPKT . $P LINE NUMBER TO INSERTB )@@G@@T PACKET @E@@@^ LA A2,2,X10 . $T PACKET PROPERLTC )@@G@@Y SET @C@@@^ TZ,H1 2,X10 . @E@@@^ TD )@@G@@ J INER1 . $A NO,INER1 YES @G@@@^ LSTE )@@G@@SL A2,18 . $P GET RID OF HIGH ORDER BIT @E@@@^ TF )@@G@@ DSL A2,54 . $P # OF CHARS TO A2 @E@@@^ TG )@@G@@ . PREPARE TO DIVIDE @E@@@^ DI,U TH )@@G@@ A2,6 . $P # OF WRDS - 1 TO A2 @E@@@^ TI )@@G@@ . $P REMAINDER TO A3 @G@@@^ TNZ A3 TJ )@@G@@ . $P ROUND LENGTH UP IF REMAINDER @A@@@^ J $+2 TK )@@G@@ .@A@@@^ AA,U A2,1 .@A@@@^ SATL )@@G@@,H2 A2,IPKT+2 .@A@@@^ AX,U X10,3 .@G@@@^TM )@@G@@ SX X10,IPKT+1 . $P ADDR OF RECORD TO IPKT TN )@@G@@@]@@@^ . @E@@@^ . CALL TEMPORARY FILE INSERT FUNCTION TO INSERTTO )@@G@@ RECORD @]@@@^ . @E@@@^ LX,U X10,IPKT .TP )@@G@@ $P ADDR OF IPKT TO X10 @G@@@^ LMJ X11,TF$IA . $W TFTQ )@@G@@$IA CALL TEMP FILE INSERT @E@@@^ TZ,T1 2,X10 .TR )@@G@@ $T SUCCESSFUL @E@@@^ ER ERR$. . $A NOTS )@@G@@,EXIT YES @A@@@^ LA A0,IPKT .@E@@@^ TT )@@G@@ SA A0,LN . $P UPDATE LINE NUMBER @E@@@^ LXTU )@@G@@ X10,X10SAV . $P RESTORE X10 @C@@@B SZ TV )@@G@@ STATUS . @C@@@^ J *RETURN .TW )@@G@@ $E EXIT @^@@@^INER1 ER ERR$@]@@@^ . @]@@@^ . TX )@@G@@ @A@@@^ . INSERT BEFORE CURRENT LINE @^@@@^ . SYNTAX: IB 'LITY )@@G@@TERAL'@E@@@^ . LITERAL WILL BE ROUNDED TO THE NEXT WRD IN LENGTH TZ )@@G@@@]@@@^ . @]@@@^IB . @E@@@^ LA A1,LN UA )@@G@@ . $P LINE NUMBER TO A1 @E@@@^ TNZ A1 .UB )@@G@@ $ IS LINE NUMBER =0 @E@@@^ ER ERR$ . $ YEUC )@@G@@S,EXIT NO @G@@@^ ANA,U A1,1 . $P DECREMENUD )@@G@@T LINE NUMBER @C@@@^ J IGT1 . $J IGUE )@@G@@T1 @]@@@^/ @]@@@^ . @A@@@^ . INSERT RECORD WORKINGUF )@@G@@ ROUTINE @A@@@^ . SYNTAX: IR RECORD-NAME 'STRING' @A@@@^ . IUG )@@G@@R RECORD-NAME VARIABLE @G@@@^ . PHYSICALLY, A RECORD WILL BE FORMED AS UH )@@G@@INDICATED BY NEWSCHEMA @G@@@^ . THE NEWLY FORMED RECOUI )@@G@@RD WILL BE INSERTED IN THE TEMPORARY@C@@@^ . FILE NEXT TO CUUJ )@@G@@RRENT LINE (LN*). @I@@@^ . LOGICALLY, RECORD WILL BE INSERTED IN ALL AUUK )@@G@@TO SETS IT PARTICIPATES IN. @G@@@^ . THE LOGICAL INSUL )@@G@@ERT POINT IS NEXT TO RECORDS THAT ARE @G@@@^ . CURRENT OUM )@@G@@F THE SETS IN WHICH THE INSERTED RECORD @A@@@^ . PARUN )@@G@@TICIPATES. @]@@@^ . @]@@@^IR . @A@@@^ . X10 POIUO )@@G@@NTS TO PACKET @A@@@^ . A0 HAS TYPE; 3 FOR IR @]@@@^UP )@@G@@ . @C@@@^ TZ,H2 2,X10 . NO INDEX ALLOWD @E@@@^UQ )@@G@@ J ERROR61 . $J ERROR61 @C@@@^ UR )@@G@@ TNZ 2,X10 . @C@@@^ J ERROUS )@@G@@R61 . @C@@@^ . $P ZERO SWUT )@@G@@ITCHES@A@@@^ . SZ RHSW . @G@@@^ . SZ UU )@@G@@ CLCSW . SW TO INDICATE RECORD IS CALC @G@@@^ . SZUV )@@G@@ NOBFSW . SW TO INDICATE NO BUFFER WAS ASSIGNED @G@@@^ . UW )@@G@@ SZ IRSAMESW . TO INDICATE NO BUFFER SAVING @G@@@^UX )@@G@@ LX,H1 X8,2,X10 . $P SYM TBL ENTRY ADDR TO X8 UY )@@G@@@E@@@^ LA,S4 A1,0,X8 . $P TYPE OF SYMBOL TO A1@G@@@^UZ )@@G@@ TE,U A1,02 . $T IS VARIABLE A RECORD NAME VA )@@G@@@E@@@^ J NRNMSG . $A NO,NRNMSG YES @G@@@^VB )@@G@@ LA,T1 A2,1,X8 . $P SEQUENCE NUMBER TO A2 VC )@@G@@@^@@@^ ANA,U A2,1@G@@@^ TG,H1 A2,TT1 .VD )@@G@@ CHECK IF SEQUENCE # IN RANGE @^@@@^ ER ERR$@I@@@^VE )@@G@@ AA,H2 A2,TT1 . $P A2 POINTS TO SEQUENCE TABLE ENTRVF )@@G@@Y @G@@@^ SA A2,RSEQAD . $P SAVE ADDRESS OVG )@@G@@F RECORD SEQ ENTRY@A@@@^ LA,T1 A1,0,A2 .@G@@@^ VH )@@G@@ SA A1,IRCODE . $P SAVE RECORD CODE IN IRCODE @]@@@^VI )@@G@@ . @G@@@^ . CHECK IF NEW RECORD CAN BE LINKED INTO SETS THAT ITVJ )@@G@@ CAN AUTOMATICALLY@]@@@^ . BELONG TO@^@@@^ . A1 HAS RECORD CODE@]@@@^VK )@@G@@ . @G@@@^ TNZ,H1 C9 . ANY C9 TABLE (VL )@@G@@NEW SCHEMA) @A@@@^ J $+3 .@A@@@^ VM )@@G@@ LX,U X10,C9 .@A@@@^ J IRC1SE .VN )@@G@@@A@@@^ LX,U X10,C1 .@]@@@^ . @]@@@^IRC1SEVO )@@G@@ . @G@@@^ SLJ TABSE . $W SEARCH C9 OR C1 TABLVP )@@G@@ES @E@@@^ TZ A2 . $T SUCCESSFUL SEAVQ )@@G@@RCH @E@@@^ J NCENMSG . $A NO,NCENMSG YES VR )@@G@@@G@@@^ SA A0,C1ENAD . $P SAVE ADDRESS OF ENT IN C1EVS )@@G@@NAD @A@@@^ LX X8,A0 .@G@@@^ AX,U VT )@@G@@ X8,1 . $P X8 POINTS TO FIRST PTR ENT @G@@@^ LRVU )@@G@@,S4 R1,0,A0 . $P # OF OWNER & AUTO ENTS TO R1 @C@@@^ VV )@@G@@ SR R1,TEMPCNT . @]@@@^IRLP1 @C@@@^ VW )@@G@@ LR R1,TEMPCNT . @G@@@^ JGD R1,$VX )@@G@@+2 . $T DONE WITH ALL ENTRIES @E@@@^ J VY )@@G@@ IROUT1 . $A YES,IROUT1 NO @E@@@^ SR R1,TVZ )@@G@@EMPCNT . @G@@@^ LA,T3 A3,0,X8 WA )@@G@@ . $P PREPARE TO TEST BIT 11 @E@@@^ JN A3,IWB )@@G@@RGT2 . $T IS ENTRY FOR MEMBER @E@@@^ WC )@@G@@ . $A NO,IRGT2 YES @E@@@^ LA,T2 A1,0,X8 .WD )@@G@@ $P SET CODE TO A1 @C@@@^ SA,H2 A1,SETCPKT . WE )@@G@@ @G@@@^ SLJ SETCUR . $W SETCUR GET SET CURREWF )@@G@@NCY @C@@@^ TZ,H1 SETCPKT . $T SUCCESSFUL @E@@@^WG )@@G@@ J NOSETMSG . $A NO,NSETMSG YES @]@@@^IRGT2 WH )@@G@@. @E@@@^ AX,U X8,1 . $P POINT TO NEXT ENTRY WI )@@G@@@C@@@^ J IRLP1 . $J IRLP1 @]@@@^ . WJ )@@G@@@]@@@^IROUT1 @C@@@^ LA A1,IRCODE . WK )@@G@@@G@@@^ LA A2,RSEQAD . $P ADDR OF RECORD SEQUENCE ENWL )@@G@@T TOA2@G@@@^ TZ,H2 0,A2 . $T IS BUFFER DEFINED FOWM )@@G@@R RECORD @E@@@^ J IRBFOK . $A YES,IRBFOK NO WN )@@G@@ @]@@@^ . @A@@@^ . DEFINE BUFFER FOR RECORD @]@@@^WO )@@G@@ . @A@@@^ LA,U A3,1 .@G@@@^ SAWP )@@G@@ A3,NOBFSW . $P SET NOBFSW (NO BUFFER FOR RECORD@A@@@^ . CHEWQ )@@G@@CK IF RECORD IS CALC @C@@@^ LA A1,IRCODE WR )@@G@@ . @^@@@^ TNZ,H1 C11 @^@@@^ J $+3 WS )@@G@@@A@@@^ LX,U X10,C11 @A@@@^ J IRC5WT )@@G@@SE @A@@@^ LX,U X10,C5 .@G@@@^IRC5SE SLWU )@@G@@J TABSE . $W TABSE SEARCH C11 OR C5 FOR REC @G@@@^ WV )@@G@@ . A0 WILL POINT TO ENTRY IN C5 @E@@@^WW )@@G@@ JNZ A2,NCENMSG . $T SUCCESSFUL @E@@@^ WX )@@G@@ . $A NO,NCENMSG YES @E@@@^ LAWY )@@G@@,T1 A3,1,A0 . REC LENGTH TO A3 @C@@@^ JNZ WZ )@@G@@ A3,$+2 . @C@@@^ ER ERR$ XA )@@G@@ . @A@@@^ SA,H2 A0,C5ENAD @E@@@^ TNXB )@@G@@Z,S3 0,A0 . $T RECORD IS CALC @E@@@^ J XC )@@G@@ IRGT1 . $A NO,IRGT1 YES @A@@@^ LA,U A3,1XD )@@G@@ .@E@@@^ SA A3,CLCSW . $P SET CLCSW XE )@@G@@ @]@@@^IRGT1 . @C@@@^ . PREPARE TO MCORE$ FOR RECORD BUFFEXF )@@G@@R @E@@@^ . A1 HAS RECORD CODE, A3 HAS RECORD LENGTH FROM C5 XG )@@G@@@]@@@^ . @]@@@^ . @E@@@^ . SEARCH C17 TO SEE IF RECORDXH )@@G@@ HAS BEEN TRANSFORMED @]@@@^ . @E@@@^ LX,U XI )@@G@@ X10,C17 . $P ADDR OF C17 @C@@@^ SLJ TABSXJ )@@G@@E . $W TABSE@E@@@^ JNZ A2,IRBF4 . $TXK )@@G@@ WAS ENTRY FOUND @E@@@^ . $A NO,IRXL )@@G@@BF1 YES @]@@@^ . @C@@@^ . FOUND C17 ENTRY, FIGURE OUT TOTALXM )@@G@@ LENGTH @]@@@^ . @G@@@^ SA A0,C17ENAD XN )@@G@@ . $P SAVE C17 ENTRY ADDRESS @E@@@^ LA,T1 A3,1,A0 XO )@@G@@ . $P OLD RECORD LENGTH@G@@@^ AA,T2 A3,1,A0 XP )@@G@@ . $P OLD + NEW REC LENGTHS @G@@@^ AA,U A3,3 XQ )@@G@@ . $P + 2 DBP WORDS + LENGTH WORD @E@@@^ SA A3,IXR )@@G@@RRSIZ . $P SAVE IN IRRSIZ @C@@@^ J IRBF3 XS )@@G@@ . $J IRBF3@]@@@^IRBF4 . @A@@@^ . DID NOT FIND RECORD ENTRY IXT )@@G@@N C17 @A@@@^ . USE LENGTH OBTAINED FROM C TABLES@C@@@^ . A3 CONTAINS RECXU )@@G@@ORD LENGTH FROM PROPER C TABLE@G@@@^ AA,U A3,3 XV )@@G@@ . $P ADD 3 WORDS TO REC LENGTH @E@@@^ SA A3,IRRSIZ XW )@@G@@ . $P SAVE IN IRRSIZ @]@@@^IRBF3 . @G@@@^ LX XX )@@G@@ X9,RSEQAD . $P ADDR OF SEQ ENTRY TO X9 @G@@@^ LAXY )@@G@@ A0,IRRSIZ . $P INSERTED RECORD SIZE TO A0 @A@@@^ XZ )@@G@@ LA A4,LAST$D .@A@@@^ AA,U A4,1 .YA )@@G@@@G@@@^ SA,H2 A4,0,X9 . $P NEW BUFFER ADDR TO SEQ TBLYB )@@G@@ ENTRY@A@@@^ AA A0,LAST$D .@A@@@^ SA YC )@@G@@ A0,LAST$D .@A@@@^ ER MCORE$ .@A@@@^ YD )@@G@@ SA A4,IRBFAD @G@@@^ LA,U A3,1 .YE )@@G@@ $P SET RECORD HEADER SWITCH RHSW @A@@@^ SA A3,RHSW YF )@@G@@ .@C@@@^ J IRBF1 . $J IRBF1 @]@@@^ . YG )@@G@@ @E@@@^IRBFOK . BUFFER IS DEFINED FOR RECORD TO BE INSERTED YH )@@G@@@]@@@^ . @E@@@^ LA,H2 A0,0,A2 . $P BUFFER AYI )@@G@@DDR TO A0 @G@@@^ TE,T1 A1,2,A0 . CHECK IF RECORYJ )@@G@@D CODE IS THE SAME@A@@@^ ER ERR$ .@G@@@^ YK )@@G@@ SA A0,IRBFAD . $P SAVE BUFFER ADDRESS IN IRBFAD @C@@@^YL )@@G@@ LA,H2 A5,2,A0 . @E@@@^ AA,U YM )@@G@@ A5,1 . $P REC LGTH +1 TO A5@G@@@^ SA,H2 A5,0YN )@@G@@,A0 . UPDATE REC LENGTH IN BUF @]@@@^ . @A@@@^YO )@@G@@IRBF1 . BUFFER ADDRESS IS IN IRBFAD @]@@@^ . @E@@@^ LAYP )@@G@@ A0,IRBFAD . $P ADDR OF BUFFER TO A0@A@@@^ LA YQ )@@G@@ A4,ARTKEY .@A@@@^ LR R1,1,A0 .@E@@@^ YR )@@G@@ SR R1,IRDBP . $P SAVE DBP FOR LATER @A@@@^ AAYS )@@G@@,U A4,1 .@E@@@^ SA A4,ARTKEY . $P UPYT )@@G@@DATE ARTKEY @I@@@^ SA A4,INSDBP . $P SAVE YU )@@G@@ARTKEY FOR LINKING PURPOSES @G@@@^ SA A4,KEYPKT+YV )@@G@@3 . $P ARTIFICIAL PTR TO KEYPKT @G@@@^ SA A4,1YW )@@G@@,A0 . $P ARTIFICIAL KEY AS DBP OF NEW REC@]@@@^ . @]@@@^YX )@@G@@ . @C@@@^ . CALCULATE LENGTH OF RECORD IF VARIABLE @]@@@^YY )@@G@@ . @G@@@^ LX X8,X10SAV . $P ADDR OF SYMBOLYZ )@@G@@ TABLE ENT TO X8 @G@@@^ LX X9,IRBFAD . $P RECORD BZA )@@G@@UFFER ADDR TO X9 @C@@@^ LX,H1 X8,2,X8 . ZB )@@G@@ @G@@@^ TNZ NOBFSW . $T NOBFSW SET TO INDICAZC )@@G@@TE NO BUFFER@E@@@^ J IRLINK . $A NO,IRLINK YES ZD )@@G@@ @G@@@^ LA,T3 A5,0,X8 . $P RECORD LENGTH FROM SZE )@@G@@YM TAB ENT @G@@@^ SA A5,IRLGTH . $P RECORD LENGTH ZF )@@G@@TO IRLGTH @C@@@^ J IRHBLD . $J IRHBLD ZG )@@G@@@]@@@^ . @]@@@^ . @A@@@^ . READY TO BUILD RECORD HEADEZH )@@G@@R @]@@@^ . @]@@@^IRHBLD . @G@@@^ LX X9,IZI )@@G@@RBFAD . $P RECORD BUFFER ADDR TO X9 @G@@@^ TNZ ZJ )@@G@@ RHSW . $T RECORD HEADER SWITCH SET @E@@@^ J ZK )@@G@@ IRHGT1 . $A NO,IRHGT1 YES @E@@@^ LA ZL )@@G@@ A3,IRCODE . $P RECORD CODE TO A3 @G@@@^ SA,T1 A3,2ZM )@@G@@,X9 . $P RECORD CODE TO HEADER @E@@@^ TNZ ZN )@@G@@ CLCSW . $T CLCSW SET @E@@@^ J IRHGZO )@@G@@T2 . $A NO,IRHGT2 YES @G@@@^ LA,U A4,050 ZP )@@G@@ . $P INDICATE RECORD IS CALC IN HDR @A@@@^ J IRHGZQ )@@G@@T3 @]@@@^IRHGT2 . @G@@@^ LA,U A4,010 .ZR )@@G@@ $P INDICATE RECORD IS IN USE IN HDR@A@@@^IRHGT3 SA,S3 A4,2,X9 ZS )@@G@@ .@]@@@^ . @]@@@^ . @]@@@^ . @]@@@^IRHGT1ZT )@@G@@ . @C@@@^ . CALCULATE WORD LENGTH OF INSERTED RECORD @E@@@^ . USEZU )@@G@@ MAXIMUM LENGTH IN CASE OF A VARIABLE RECORD @A@@@^ LAZV )@@G@@ A2,IRLGTH .@E@@@^ DSL A2,36 . $PZW )@@G@@ PREPARE TO DIVIDE@C@@@^ DI,U A2,6 . $P ZX )@@G@@@C@@@^ TNZ A3 . @C@@@^ J ZY )@@G@@ $+2 . @E@@@^ AA,U A2,1 ZZ )@@G@@ . $P # OF WORDS TO A2 @G@@@^ LA A0,C5ENAD AA )@@G@@ . $P INSERTED REC LENGTH TO A2 @C@@@^ AA,T3 A2,1,A0 AB )@@G@@ . @G@@@^ SA,H2 A2,2,X9 . $P RECORD LAC )@@G@@ENGTH TO HEADER @E@@@^ SA A2,IRLGTHW . $PAD )@@G@@ SAVE IN IRLGTHW @C@@@^ AA,U A2,1 . AE )@@G@@@G@@@^ SA,H2 A2,0,X9 . $P RECORD LENGTH TO BUFFERAF )@@G@@ @]@@@^IRLINK . @G@@@^ AX,U X9,2 . $P X9AG )@@G@@ POINTS TO IR RECORD @G@@@^ SX X9,IRADDR AH )@@G@@ . $P SAVE ADDR OF INSERTED REC @G@@@^ LX X8,C1ENAD AI )@@G@@ . $P ADDR OF C9 OR C1 ENTRY TO X8 @G@@@^ LR,S4 R1,0AJ )@@G@@,X8 . $P # OF OWNER + AUTO ENTS TO R1 @G@@@^ SR AK )@@G@@ R1,APTRNM . $P SAVE # OF AUTO & OWNER ENTS @G@@@^ AXAL )@@G@@,U X8,1 . $P X8 POINTS TO FIRST SET ENT @G@@@^ AM )@@G@@ SX X8,AENTAD . $P SAVE C1 OR C9 ENT ADDR @]@@@^AN )@@G@@ . @]@@@^ . @C@@@^ . LINK INSERTED REC IN APPROPRIATE AO )@@G@@SETS @]@@@^ . @]@@@^ . @]@@@^LNKLP1 . @G@@@^AP )@@G@@ LA A3,APTRNM . $P # OF AUTO MEMBER ENTRIES TO A3 AQ )@@G@@@G@@@^ JZ A3,ALNKOUT . $T ARE WE DONE WITH ALL ENTRIAR )@@G@@ES @E@@@^ . $A YES,ALNKOUT NO AS )@@G@@@G@@@^ LX X8,AENTAD . $P ADDR OF SET ENTRY TO X8 AT )@@G@@ @G@@@^ LA,T3 A3,0,X8 . $P IS ENTRY FOR OWNEAU )@@G@@R @E@@@^ JP A3,IRAUTO . $A NO,IRAUTO YAV )@@G@@ES @G@@@^ LA,U A0,0 . $P OWNER CODE 0 TO AAW )@@G@@0 @C@@@^ J $+2 . @E@@@^AX )@@G@@IRAUTO LA,U A0,1 . MEMBER CODE 1 TO A0 @E@@@^ AY )@@G@@ SLJ SETLINK . $W SETLINK @]@@@^ . AZ )@@G@@@C@@@^ LA A5,APTRNM . $ @A@@@^ ANBA )@@G@@,U A5,1 .@G@@@^ SA A5,APTRNM . $P UPBB )@@G@@DATE # OF AUTO MEMBER ENTRIES @C@@@^ LX X8,AENTAD BC )@@G@@ . @G@@@^ AX,U X8,1 . $P UPDATE AUTOBD )@@G@@ ENTRY ADDR @C@@@^ SX X8,AENTAD . BE )@@G@@@C@@@^ J LNKLP1 . $J LNKLP1 @]@@@^ . BF )@@G@@@]@@@^ . @E@@@^ALNKOUT . FINISHED LINKING INSERTED RECORD IN ALBG )@@G@@L AUTO SETS @G@@@^ . AENTAD POINTS TO FIRST MANUAL SET ENTRY WITHBH )@@G@@IN C1 OR C9 ENTRY@]@@@^ . @]@@@^ . @G@@@^ LXBI )@@G@@ X8,C1ENAD . $P ADDR OF C1 OR C9 ENTRY TO X8 @G@@@^ BJ )@@G@@ LX X9,AENTAD . $P ADDR OF FIRST MAN ENT TO X9 @A@@@^BK )@@G@@ LA A3,X9 .@A@@@^ ANA A3,X8 BL )@@G@@ .@G@@@^ AA,U A3,2 . $P TWO EXTRA WORDS FBM )@@G@@OR TABLE @G@@@^ TG,T3 A3,0,X8 . $T DOES RECORD PABN )@@G@@RTICIPATE IN MAN @E@@@^ J IRLNK8 . $A NO,IRLNKBO )@@G@@8 YES @]@@@^ . @E@@@^ . ZERO OUT MANUAL CONTROL WORD AND BP )@@G@@RESERVED POINTERS @]@@@^ . @E@@@^ TN 0,X9BQ )@@G@@ . BIT 35 MUST BE SET @A@@@^ ER ERR$ BR )@@G@@ .@G@@@^ LR,S5 R1,0,X9 . $P # OF RESERVED MAN WRBS )@@G@@DS TO R1 @A@@@^ TNZ R1 .@A@@@^ ERBT )@@G@@ ERR$ .@A@@@^ LX X8,IRBFAD .@G@@@^BU )@@G@@ LXI,U X8,1 . $P ADDR OF INSERTED RCD BUF TO X8 BV )@@G@@@G@@@^ AX,S6 X8,0,X9 . $P ADD DISPLACEMENT OF MFCW BW )@@G@@ @E@@@^ SZ 2,*X8 . $P ZERO OUT MFCW BX )@@G@@@C@@@^MANLP11 . LOOP TO ZERO OUT RESERVED POINTER @G@@@^ JGBY )@@G@@D R1,$+2 . $T ARE WE DONE WITH RESERVED PTRS @E@@@^ BZ )@@G@@ J IRLNK8 . $A YES,IRLNK8 NO @G@@@^ SZCA )@@G@@ 2,*X8 . $P ZERO MANUAL CONTROL WRD @C@@@^ CB )@@G@@ J MANLP11 . $J MANLP1 @]@@@^ . @]@@@^ . CC )@@G@@ @]@@@^IRLNK8 . @G@@@^ TNZ CLCSW . $T WACD )@@G@@S RECORD A CALC RECORD @E@@@^ J IRLNK9 .CE )@@G@@ $A NO,IRLNK9 YES @C@@@^ LX X8,IRADDR . CF )@@G@@ @C@@@^ LA A0,C5ENAD . @G@@@^ CG )@@G@@ AX,T3 X8,1,A0 . $P X8 POINTS TO 1ST DATA WRD @C@@@^CH )@@G@@ ANX,U X8,1 . @G@@@^ SZ CI )@@G@@ 0,X8 . $P ZERO OUT CALC POINTER IN RECORD @]@@@^ . CJ )@@G@@@G@@@^IRLNK9 . SET UP PHYSICAL INSERT POINT AND INSERT RECORD IN TEMP FICK )@@G@@LE @]@@@^ . @]@@@^ . @G@@@^ LA A1,ICL )@@G@@RBFAD . $P ADDRESS OF INSERTED REC BUF A1 @G@@@^ LA CM )@@G@@ A0,LN . $P RCD# TO INSERT AFTER TO A0 @G@A@^ L$CN )@@G@@SNAP 'IRLC2 ',0,28,SW1 . @G@@@A CO )@@G@@ . L$SNAP 'IRLC2 ',0,28,SW1 . @G@@@^CP )@@G@@ SLJ TFUPDATE . $W TFUPDATE UPDATE TEMP FILE CQ )@@G@@@G@@@^ LX X10,X10SAV . $P PACKET ADDR TO X10 CR )@@G@@ @]@@@^ . @]@@@^ . @]@@@^ . @E@@@^ . CALCS )@@G@@L THE LET WORKER ROUTINE TO GET RECORD DATA @]@@@^ . CT )@@G@@@]@@@^ . @E@@@^ LA,U A0,2 . TYPE IS CU )@@G@@EQUATE @G@@@^ SA,S3 A0,0,X10 . $P EQUATE TCV )@@G@@YPE TO PACKET @G@@@^ LMJ X11,LET . $W LET CCW )@@G@@ALL LET WORKER ROUTINE @A@@@^ TZ STATUS @C@@@^CX )@@G@@ J ERROR82 . @G@@@^ LA,U CY )@@G@@ A0,3 . $P RESTORE TYPE INPACKET TO 3 @G@@@^ LXCZ )@@G@@ X10,X10SAV . $P RESTORE X10 TO ADDR OF PACKET@C@@@^ DA )@@G@@ SA,S3 A0,0,X10 . @G@@@^ LX,H1 X8,2DB )@@G@@,X10 . $P SYM TAB ENTRY TO X8 @G@@@^ TZ DC )@@G@@ 2,X8 . $T IS RECORD VARIABLE LENGTH @E@@@^ J DD )@@G@@ IRGT3 . $A YES,IRGT3 NO @]@@@^ . @E@@@^DE )@@G@@ . UPDATE THE KEY FILE WITH THE NEW ARTIFICIAL PTR @]@@@^ . DF )@@G@@ @]@@@^IREXT . @C@@@^ LX,U X10,KEYPKT . DG )@@G@@ @A@@@^ LMJ X11,KF$AMA @C@@@^ TZ DH )@@G@@ KEYPKT+5 . @C@@@^ ER ERR$ DI )@@G@@ . @]@@@^ . @]@@@^ . @E@@@^ISEXT LX DJ )@@G@@ X10,X10SAV . $P RESTORE X10 @G@@@^ SZ RDALDK )@@G@@N . ZERO OUT THE RDA LINE NUMBER @C@@@^ SZ DL )@@G@@ RDA . @C@@@B SZ STATUS DM )@@G@@ . @C@@@^ J *RETURN . $E EXIT @]@@@^DN )@@G@@ . @]@@@^IRGT3 . @]@@@^ . @G@@@^ . GET THE OCDO )@@G@@CURS ITEM, X8 POINTS TO SYMBOL TABLE 3 WRD ENTRY @]@@@^ . DP )@@G@@@G@@@^ LA,H2 A1,2,X8 . $P OCCURS ITEM LINK TO A1 DQ )@@G@@ @G@@@^ SLJ GETITEM . $W GET ITEM SYM ENTRY ADR )@@G@@DDR TO A0 @E@@@^ SA A0,OCCASAV . $P SAVE ADDR IN ODS )@@G@@CCASAV@]@@@^ . @G@@@^ TNZ,H1 2,X8 . $T ANDT )@@G@@Y DEPENDING ON ITEM @E@@@^ J IRGT4 .DU )@@G@@ $A NO,IRGT4 YES @]@@@^ . @G@@@^ LA,H1 A1,2DV )@@G@@,X8 . $P DEP ON ITEM LINK TO A1 @G@@@^ SLJ DW )@@G@@ GETITEM . $W GET ITEM SYM ENTRY ADDR TO A0 @]@@@^ . DX )@@G@@@C@@@^ . PREPARE TO GET VALUE OF DEPENDING ON ITEM @]@@@^ . DY )@@G@@@G@@@^ LX X10,A0 . $P SYM TAB ENT ADDR TO X10 DZ )@@G@@ @A@@@^ SZ A0 .@C@@@^ SLJ EA )@@G@@ GETVAR . $W GETVAR @E@@@^ JN A1,GETER1 .EB )@@G@@ $T SUCCESSFUL @E@@@^ . $A NOEC )@@G@@,GETER1 YES @G@@@^ TE,U A3,02 . MAKE SURED )@@G@@E DEP ON ITEM IS EITHER @E@@@^ J $+2 . PIEE )@@G@@C 9 OR PIC 9 COMP@A@@@^ J GETNM1 .@A@@@^ EF )@@G@@ TE,U A3,3 .@A@@@^ ER ERR$ .EG )@@G@@@]@@@^GETNM1 . @G@@@^ SLJ GETNUM . $P GET BINAEH )@@G@@RY VALUE TO A0 @G@@@^ . CHECK IF DEP ON VALUE IS WITHIN RANGE OEI )@@G@@F LOW, HIGH # OF OCCURS @G@@@^ LX X8,OCCASAV .EJ )@@G@@ $P ADDR OF OCCURS ITEM TO X8 @G@@@^ TLE,T1 A0,2,X8 EK )@@G@@ . $T LOW NUM OF OCC <= DEP ON VAL @E@@@^ J DEPEEL )@@G@@R1 . $A NO,DEPER1 YES @A@@@^ LA,T3 A5,2,X8 EM )@@G@@ .@G@@@^ TLE A5,A0 . $T DEP ON VAL <= HIGH #EN )@@G@@ OF OCCURS @E@@@^ J DEPER1 . $A NO,DEPER1 YES EO )@@G@@ @G@@@^ LA,T3 A1,0,X8 . $P LENGTH OF OCCURS ITEEP )@@G@@M TO A1 @G@@@^ MSI A1,A0 . $P TOTAL LENGTH OEQ )@@G@@F OCCURS GROUP A1 @A@@@^ J IRGT555 @C@@@^IRGT4 ER )@@G@@. NO DEPENDING ON ITEM IN OCCURS CLAUSE @]@@@^ . @G@@@^ ES )@@G@@ LX X8,OCCASAV . $P OCCURS ITEM ADDR TO X8 @G@@@^ET )@@G@@ LA,T3 A1,0,X8 . $P LENGTH OF OCCURS ITEM TO A1 EU )@@G@@@E@@@^ LA,T1 A0,2,X8 . $P # OF OCCURS TO A0 @G@@@^EV )@@G@@ MSI A1,A0 . $P TOTAL LENGTH OF OCCURS GROUP A1 EW )@@G@@@A@@@^ J IRGT555 @E@@@^IRGT555 LA,T1 A3,0EX )@@G@@,X8 . $P REL WRD TO A3 @E@@@^ MSI,U A3,6 EY )@@G@@ . $P # OF CHARS TO A3 @E@@@^ AA,S3 A3,1,X8 .EZ )@@G@@ $P ADD OFF-SET @G@@@^ ANA,U A3,1 . $P # FA )@@G@@OF CHARS WITHOUT OCCURS TO A3 @A@@@^ AA A1,A3 .FB )@@G@@@A@@@^ DSL A1,36 .@G@@@^ DI,U A1,6FC )@@G@@ . $P # OF WRDS IN RECORD TO A1 @A@@@^ JZ FD )@@G@@ A2,IRLNFD @^@@@^ AA,U A1,1@]@@@^IRLNFD . @G@@@^FE )@@G@@ SA A1,IRLGTHW . $P SAVE RECORD LENGTH IN IRLGTHW FF )@@G@@@G@@@^ LA A0,IRBFAD . $P ADDR OF IR REC TO A0 FG )@@G@@ @G@@@^ SA,H2 A1,2,A0 . $P LENGTH OF VAR RECFH )@@G@@ TO REC HDR @C@@@^ AA,U A1,1 . @G@@@^FI )@@G@@ SA,H2 A1,0,A0 . $P REC LGTH + 1 TO BUF FJ )@@G@@@]@@@^ . @]@@@^ . @A@@@^ . UPDATE TEMP FILE WITH NEW LFK )@@G@@ENGTH @]@@@^ . @]@@@^ . @E@@@^ SLJ TFCHFL )@@G@@ANGE . $W TFCHANGE @C@@@^ J IREXT FM )@@G@@ . $E EXIT @C@@@^GETER1 . ERROR RETURN FROM GETVAR SUBROUTINE FN )@@G@@@G@@@^ LSSL A1,1 . $P GET RID OF HIGH ORDER BIT FO )@@G@@ @E@@@^ . PRINT ERROR MESSAGE FROM GETVAR WITH ERROR CODE FROM A1 FP )@@G@@@C@@@^ SSL A1,19 . @A@@@^ SAFQ )@@G@@ A1,ERRCODE .@G@@@^ E$DIT EDPKT . $P PRFR )@@G@@INT ERROR RETURN FROM GETVAR @A@@@^ E$COPY 33,MSGGVR .FS )@@G@@@A@@@^ E$DECV ERRCODE .@A@@@^ P$RINT (PF1FT )@@G@@ 1,14,PRINT)@C@@@^ J ERROR73 . $J ERROR73 @]@@@^FU )@@G@@ . @]@@@^NOSETMSG . @A@@@^ E$DIT EDPKT .FV )@@G@@@G@@@^ E$COPY 18,MSGNOSET . $P PRINT NO SET CURRENCY + SEFW )@@G@@T CODE@C@@@^ LA,H2 A1,SETCPKT . @A@@@^ FX )@@G@@ SA A1,ERRCODE .@A@@@^ E$DECV ERRCODE .FY )@@G@@@A@@@^ E$CHAR '(' .@A@@@^ E$OCTV ERRCFZ )@@G@@ODE .@A@@@^ E$CHAR ')' .@A@@@^ P$GA )@@G@@RINT (PF1 1,14,PRINT)@C@@@^ J ERROR68 . $J ERGB )@@G@@ROR68 @]@@@^ . @G@@@^NRNMSG . PRINT MESSAGE THAT VARIABLE IS NOGC )@@G@@T A RECORD NAME, THEN RETURN @G@@@^ P$RINT (PF1 1,8,MSGNRN) .GD )@@G@@ $P PRINT NOT RECORD NAME MESSAGE @E@@@^ GE )@@G@@ . NOT FATAL ERROR @C@@@^ J ERROR63 .GF )@@G@@ $J ERROR63 @]@@@^NCENMSG . @C@@@^ E$DIT EDPKT .GG )@@G@@ $ @G@@@^ E$COPY 36,MSGNOC . $P PRINT NO C ENTGH )@@G@@RY AND CODE @A@@@^ SA A1,ERRCODE .@A@@@^ GI )@@G@@ E$DECV ERRCODE .@A@@@^ P$RINT (PF1 1,14,PRINT)GJ )@@G@@@C@@@^ J ERROR65 . $J ERROR65 @]@@@^DEPER1 . GK )@@G@@@A@@@^ P$RINT (PF1 1,6,MSGDEP)@C@@@^ J ERROGL )@@G@@R74 . @E@@@^ERROR61 LA,U A0,61 . $PGM )@@G@@ ERROR CODE 61 @E@@@^ J ERRSTAT . $J ERRSTGN )@@G@@AT @E@@@^ERROR62 LA,U A0,62 . $P ERROR CODE GO )@@G@@62 @E@@@^ J ERRSTAT . $J ERRSTAT GP )@@G@@@E@@@^ERROR63 LA,U A0,63 . $P ERROR CODE 63 @E@@@^GQ )@@G@@ J ERRSTAT . $J ERRSTAT @E@@@^ERROR6GR )@@G@@4 LA,U A0,64 . $P ERROR CODE 64 @E@@@^ J GS )@@G@@ ERRSTAT . $J ERRSTAT @E@@@^ERROR65 LA,U GT )@@G@@ A0,65 . $P ERROR CODE 65 @E@@@^ J ERRSGU )@@G@@TAT . $J ERRSTAT @E@@@^ERROR66 LA,U A0,66 GV )@@G@@ . $P ERROR CODE 66 @E@@@^ J ERRSTAT GW )@@G@@ . $J ERRSTAT @E@@@^ERROR67 LA,U A0,67 . $PGX )@@G@@ ERROR CODE 67 @E@@@^ J ERRSTAT . $J ERRSTGY )@@G@@AT @E@@@^ERROR68 LA,U A0,68 . $P ERROR CODE GZ )@@G@@68 @E@@@^ J ERRSTAT . $J ERRSTAT HA )@@G@@@E@@@^ERROR69 LA,U A0,69 . $P ERROR CODE 69 @E@@@^HB )@@G@@ J ERRSTAT . $J ERRSTAT @E@@@^ERROR7HC )@@G@@0 LA,U A0,70 . $P ERROR CODE 70 @E@@@^ J HD )@@G@@ ERRSTAT . $J ERRSTAT @E@@@^ERROR71 LA,U HE )@@G@@ A0,71 . $P ERROR CODE 71 @E@@@^ J ERRSHF )@@G@@TAT . $J ERRSTAT @E@@@^ERROR72 LA,U A0,72 HG )@@G@@ . $P ERROR CODE 72 @E@@@^ J ERRSTAT HH )@@G@@ . $J ERRSTAT @E@@@^ERROR73 LA,U A0,73 . HI )@@G@@$P ERROR CODE 73 @E@@@^ J ERRSTAT . $J ERRSTHJ )@@G@@AT @E@@@^ERROR74 LA,U A0,74 . $P ERROR CODE 74HK )@@G@@ @E@@@^ J ERRSTAT . $J ERRSTAT HL )@@G@@@G@@@^ERROR75 LA,U A0,75 . $P ERR CODE 75, NO INDEX ALLOHM )@@G@@WED @C@@@^ J ERRSTAT . $J ERRSTAT @G@@@^ERROR7HN )@@G@@6 LA,U A0,76 . $P ERR CODE 76, AREA NAME NOT FOUND@C@@@^HO )@@G@@ J ERRSTAT . $J ERRSTAT @G@@@^ERROR77 LA,U HP )@@G@@ A0,77 . $P ERR CODE 77, AREA NAME > 2 OR 0 @C@@@^ J HQ )@@G@@ ERRSTAT . $J ERRSTAT @G@@@^ERROR78 LA,U A0,78 HR )@@G@@ . $P ERR CODE 78, EMPTY C3 TABLE @C@@@^ J ERRSHS )@@G@@TAT . $J ERRSTAT @G@@@^ERROR79 LA,U A0,79 . $P ERHT )@@G@@R CODE 79, OPERAND NOT NUMERIC@C@@@^ J ERRSTAT .HU )@@G@@ $J ERRSTAT @G@@@^ERROR80 LA,U A0,80 . $P ERR CODE 80, OHV )@@G@@PERAND NOT PROPER @C@@@^ J ERRSTAT . $J ERRSTAT HW )@@G@@@G@@@^ERROR81 LA A0,81 . $P ERR CODE 81, INDEX NOT ALLHX )@@G@@OWED @C@@@^ J ERRSTAT . $J ERRSTAT @]@@@^ . HY )@@G@@ @E@@@^ERROR82 LA,U A0,82 . $P ERROR CODE 82 HZ )@@G@@@E@@@^ J ERRSTAT . $J ERRSTAT @E@@@^IA )@@G@@ERROR83 LA,U A0,83 . $P ERROR CODE 83 @E@@@^ IB )@@G@@ J ERRSTAT . $J ERRSTAT @C@@@^ERRSTAT SAIC )@@G@@ A0,STATUS . @G@@@^ SA A0,FATAL ID )@@G@@ . $P SET FATAL ERROR CODE @C@@@^ E$DIT EDPKIE )@@G@@T . @C@@@^ E$COPY 23,MSGERROR . IF )@@G@@ @C@@@^ E$DECV STATUS . @C@@@^ IG )@@G@@ P$RINT (PF1 1,14,PRINT) . @]@@@^ . @]@@@^ . IH )@@G@@ @C@@@^ J *RETURN . $E EXIT @]@@@^/ II )@@G@@ @]@@@^ . @]@@@^ . @]@@@^SETLINK . @C@@@^ IJ )@@G@@ + 0 . @C@@@^ LX X8,AIK )@@G@@ENTAD . @G@@@^ TZ A0 . $TIL )@@G@@ SET ENTRY WAS FOR OWNER @E@@@^ J SLINK1 IM )@@G@@ . $A NO,SLINK1 YES @C@@@^ . ENTRY FROM C1 OR C9 TABLE WAS FOR OWNERIN )@@G@@ @]@@@^ . @G@@@^ LA A5,INSDBP . $P INIO )@@G@@SDBP IS THE OWNER POINTER @E@@@^ LA,S2 A4,0,X8 .IP )@@G@@ $P # OF LINKS TO A4 @^@@@^ TNZ A4 @^@@@^ ERIQ )@@G@@ ERR$@C@@@^ LX X9,IRADDR . @C@@@^IR )@@G@@ LXI,U X9,1 . @G@@@^ AX,S6 IS )@@G@@ X9,0,X8 . $P X9 POINTS TO FIRST OWNER PTR @E@@@^IRLP3 JGIT )@@G@@D A4,$+2 . $T DONE WITH ALL LINKS @E@@@^ J IU )@@G@@ OWNCUR . $A YES,LNKEXT NO @G@@@^ SA A5,0IV )@@G@@,*X9 . $P SET OWNER LINK TO POINT TO SELF @C@@@^ J IW )@@G@@ IRLP3 . $J IRLP3 @]@@@^SLINK1 . @G@@@^ TE,U IX )@@G@@ A0,1 . $T ENTRY FOR AUTOMATIC SET @E@@@^ J IY )@@G@@ SLMAN . $A NO,SLMAN YES @A@@@^LNGT11 . ENTRY FORIZ )@@G@@ AUTO MEMBER @E@@@^ LA,T2 A1,0,X8 . $P SET CODEJA )@@G@@ TO A1 @E@@@^ SA,H2 A1,SETCPKT . $P SET CODE TO SEJB )@@G@@TCPKT @G@@@^ SLJ SETCUR . $P GET SET CURRENCY, INJC )@@G@@FO ON CUR; @G@@@^ . RECORD RETURNEJD )@@G@@D IN SETCPKT @A@@@^ TZ,H1 SETCPKT .@G@@@^ JE )@@G@@ ER ERR$ . BETTER HAVE CURRENT OF SET OR ELSE @]@@@^JF )@@G@@ . @]@@@^ . @E@@@^ . PREPARE TO CALL SUBROUTINE GETSETJG )@@G@@ TO INSERT RECORD @G@@@^ . USE RDA FOR BRINGING RECORD IN & PASS TJH )@@G@@HAT ADDRESS TO GETSET @]@@@^ . @E@@@^ LA,H1 JI )@@G@@ A1,SETCPKT+1 . $P ADDR OF RECORD TO A1@G@@@^ TE A1,IJJ )@@G@@RBFAD . $T ADDR OF CURR REC SAME AS INSERTD@E@@@^ J JK )@@G@@ IRLNK0 . $A NO,IRLNK0 YES @C@@@^ TZ MANLJL )@@G@@NKSW . @G@@@^ ER ERR$ . MAJM )@@G@@N REC IS CURRENT OF SET @C@@@^ LA,U A0,1 JN )@@G@@ . @E@@@^ SA A0,IRSAMESW . $P SET IRSAMESJO )@@G@@W @C@@@^ SZ RBSAVE . @E@@@^ JP )@@G@@ TZ ISLNKSW . $T IS CALL FROM IS @E@@@^ J JQ )@@G@@ IRLNK000 . $A YES,IRLNK000 NO @E@@@^ LA JR )@@G@@ A0,IRDBP . $P DBP SAVED TO A0 @A@@@^ J IRLNJS )@@G@@K00 .@]@@@^IRLNK000 . @G@@@^ LX,H2 X9,SETCPKT+2 JT )@@G@@ . $P SET CUR ENT ADDR TO X9 @G@@@^ LA A0,2,X9 JU )@@G@@ . $P DBP OF OLD CUR TO A0 @E@@@^ SA A0,IJV )@@G@@RDBP . $P SAVE IN IRDBP @E@@@^ J IRLNK00 JW )@@G@@ . $J IRLNK00 @]@@@^IRLNK0 . @G@@@^ SA JX )@@G@@ A1,RBSAVE . $P SAVE ADDRESS OF BUFFER @G@@@^ LAJY )@@G@@ A0,1,A1 . $P DBP OF CURRENT REC TO A0 @C@@@^IRLNK0JZ )@@G@@0 . FETCH RECORD WHOSE DBP IS IN A0 TO RDA@G@@@^ SLJ DBPGKA )@@G@@ET . $W DBPGET READ REC TO RDA @C@@@^ LA,U KB )@@G@@ A0,RDA . @G@@@^ SA,H1 A0,SETCPKT+1 .KC )@@G@@ $P UPDATE RECORD ADDR IN SETCPKT+1 @E@@@^ LA,H2 A0,SETCPKTKD )@@G@@ . $P SET CODE TO A0 @G@@@^ LA A1,SETCPKT+1 .KE )@@G@@ $P ADDR OF RECORD TO H1 OF A1 AND; @G@@@^ KF )@@G@@ . RECORD CODE TO T3 OF A1 @E@@@^ TNZ,H1 C9 KG )@@G@@ . $ NEW SCHEMA @C@@@^ J $+3 KH )@@G@@ . NO @G@@@^ LA,U A2,2 . $P SCHEKI )@@G@@MA INDICATOR TO A2 @A@@@^ J IRGT5 .@A@@@^KJ )@@G@@ LA,U A2,1 .@]@@@^IRGT5 . @G@@@^ SLKK )@@G@@J GETSET . $W GETSET GET SET POINTERS @G@@@^ KL )@@G@@ DS A0,GSETPKT . $P SAVE INFO FROM GETSET, GSETPKT @A@@@^KM )@@G@@ DS A2,GSETPKT+2 .@A@@@^ SA A4,GSETPKTKN )@@G@@+4 .@G@@@^ JP A1,$+2 . $T ANY ERROR IN GETSET KO )@@G@@ ROUTINE @E@@@^ ER ERR$ . $A YES,EXIT NO KP )@@G@@ @]@@@^ . @C@@@^ . PREPARE TO LINK NEXT POINTER IN SET. KQ )@@G@@ @E@@@^ . SETCPKT CONTAINS INFORMATION ABOUT INSERTED RECORD. KR )@@G@@@G@@@^ . GSETPKT CONTAINS INFORMATION ABOUT WHERE TO INSERT IN CURRENT OKS )@@G@@F SET.@C@@@^ . IRADDR POINTS TO INSERTED RECORD. @C@@@^ . AENKT )@@G@@TAD POINTS TO AUTO ENTRY ADDRESS. @]@@@^ . @A@@@^ . NEXKU )@@G@@T PTR IS IN A2 REGISTER @]@@@^ . @]@@@^ . @G@@@^KV )@@G@@ TZ MANLNKSW . $T IS SET TO LINK INTO MANUAL KW )@@G@@@E@@@^ J LNKGT4 . $A YES,LNKGT4 @A@@@^KX )@@G@@ LX X9,IRADDR @C@@@^ LX X8,AENTAD KY )@@G@@ . @G@@@^ AX,S6 X9,0,X8 . POINT TOKZ )@@G@@ NEXT PTR INIR @E@@@^ J LNKGT5 . $JLA )@@G@@ LNKGT5 @G@@@^LNKGT4 LX X9,MPTRADD . $P ADDR LB )@@G@@OF MAN PTR TO X9 @]@@@^LNKGT5 . @G@@@^ SX X9,ALC )@@G@@PADSAV . SAVE ADDR OF NEXT PTR @G@@@^ SA LD )@@G@@ A2,0,X9 . $P STORE NEXT POINTER IN INS REC @E@@@^ SALE )@@G@@ A2,NEXTDBP . $P SAVE NEXT DBP @G@@@^ LA LF )@@G@@ A5,INSDBP . $P DBP OF INSERTED RECORD TO A5 @G@@@^ LXLG )@@G@@,H2 X9,GSETPKT+1 . $P ADDR OF NEXT PTR OF CURRENT X9 @G@@@^ LH )@@G@@ SA A5,0,X9 . $P DBP OF INSERTED REC TO NEXT PTR @E@@@^LI )@@G@@ . WRITE OUT RECORD TO FREE SPACE FOR NEXT IF NECESSARY @]@@@^ . LJ )@@G@@ @]@@@^ . @^@@@^ . RECORD IS IN RDA @]@@@^ . LK )@@G@@@A@@@^ LA,U A0,RDA .@G@@@^ SLJ TFCHLL )@@G@@ANGE . $W TFCHANGE UPDATE TEMP FILE @]@@@^ . @]@@@^LM )@@G@@ . @C@@@^ . TRANSFER RECORD TO ITS BUFFER IF NECESSARY @]@@@^LN )@@G@@ . @]@@@^ . @G@@@^ TZ IRSAMESW LO )@@G@@ . $T DO WE NEED TO RESTORE BUFFER @E@C@^ J RBNOT LP )@@G@@ . $T NO,RBNOT YES @E@@@C J RBNOT2 LQ )@@G@@ . $T NO,RBNOT YES @G@@@^ LX,U X8,RDA . $PLR )@@G@@ ORIGINATING ADDRESS TO X8 @G@@@^ LX X9,RBSAVE LS )@@G@@ . $P DESTINATION ADDRESS TO X9 @G@@@^ LA A0,RDA+1 LT )@@G@@ . $P DBP OF REC FROM RDA @G@@@^ TE A0,1LU )@@G@@,X9 . MIGHT NOT BE THE SAME IF MANUAL @C@@@^ J LV )@@G@@ RBNOT1 .$J RBNOT1@C@@@^ LA A0,RDA LW )@@G@@ . @I@@@^ AA,U A0,1 . $P LENGTH OF BLX )@@G@@LOCK TOTRANSFER TO A0 @I@@@^ LR R1,A0 LY )@@G@@ . $P LENGTH OF BLOCK TO TRANSFER TO R1 @E@@@^ SLJ LZ )@@G@@ RTRANS . $W RTRANS @C@@@^ J RBNOMA )@@G@@T . $J RBNOT@[@@@C . @[@@@C . @]@@@CRBNOT2 . @[@@@CMB )@@G@@ . @[@@@C . @F@@@C . THE RECORD THAT WAS INSERTED IS THE SAME AS CMC )@@G@@URRENTOF SET. @E@@@C . IF CALL IS FROM IS, THEN THE BUFFER OF THE OLMD )@@G@@D CURRENT @D@@@C . MAY HAVE TO BE UPDATED IF THE OLD CURRENT RECORD ME )@@G@@@D@@@C . TYPE IS DIFFERENT FROM THE RECORD TO BE INSERTED. @[@@@C . MF )@@G@@@[@@@C . @E@@@C TNZ ISLNKSW . $T IS CALL FROMG )@@G@@M IS @E@@@C J RBNOT . $A NO,RBNOT YES MH )@@G@@@F@@@C LA,T1 A0,RDA+2 . $P RECORD CODE FROM RDA MI )@@G@@@E@@@C TNE A0,IRCODE . $T ARE THEY EQUAL @E@@@CMJ )@@G@@ J RBNOT . $A NO,RBNOT YES @D@@@C MK )@@G@@ SLJ RBUFUPD . $W RBUFUPD @C@@@C J ML )@@G@@ RBNOT . $J RBNOT@[@@@^ . @^@@@^RBNOT1 . $H MM )@@G@@@E@@@^ TNZ MANLNKSW . SET BETTER BE MANUAL@^@@@^MN )@@G@@ ER ERR$@]@@@^RBNOT . @A@@@^ . CHECK IF THERE IS A PMO )@@G@@RIOR POINTER@]@@@^ . @]@@@^ . @C@@@^ LA MP )@@G@@ A0,AENTAD . @E@@@^ LA,S2 A4,0,A0 .MQ )@@G@@ $P # OF SET LINKS TO A4@E@@@^ TLE,U A4,2 . $T MOMR )@@G@@RE THAN ONE LINK @E@@@^ J LNKDONE . $A NO,LNKDMS )@@G@@ONE YES @A@@@^ TG,U A4,4 .@A@@@^ ERMT )@@G@@ ERR$ .@E@@@^ LA,S5 A1,0,A0 . $P SEMU )@@G@@T TYPE TO A1 @E@@@^ TE,U A1,01 . $T IS IT PRMV )@@G@@IOR TYPE @E@@@^ J IRLNK2 . $A NO,IRLNK2 YES MW )@@G@@ @G@@@^ TE,U A4,02 . BETTER HAVE 2 LINKS OR MX )@@G@@ELSE @A@@@^ ER ERR$ .@A@@@^LNKGT1 . LINMY )@@G@@K PRIOR POINTER IN @G@@@^ . FIRST STORE DBP OF CURRENT RECORDMZ )@@G@@, THEN FETCH NEXT RECORD TO @E@@@^ . MODIFY PRIOR POINTER AND CONA )@@G@@MPARE WITH CURRENT @]@@@^ . @G@@@^ LA,H1 A0,SNB )@@G@@ETCPKT+1 . $P ADDR OF CUR REC BUF TO A0 @E@@@^ LA NC )@@G@@ A3,1,A0 . $P DBP OF CUR REC TO A3@]@@@^ . @C@@@^ . X8 ND )@@G@@POINTS TO NEXT PTR IN INSERTED REC @]@@@^ . @C@@@^ NE )@@G@@ LX X8,APADSAV . @G@@@^ SA A3,1NF )@@G@@,X8 . $P STORE PRIOR POINTER IN INS REC @]@@@^ . @]@@@^NG )@@G@@ . @A@@@^ . FETCH RECORD THAT IS NEXT IN SET @]@@@^ . NH )@@G@@@]@@@^ . @G@@@^ LA A0,0,X8 . $P DBP ONI )@@G@@F NEXT RECORD TO A0 @A@@@^ . A0 HAS DBP OF NEXT RECORD @G@@@^NJ )@@G@@ SLJ DBPGET . $W DBPGET READ NEXT REC TO RDA NK )@@G@@@E@@@^ . SET UP PACKET FOR GETSET CALL TO FIND PRIOR POINTER @A@@@^NL )@@G@@ . CALL GETSET FOR THE NEW RECORD @]@@@^ . @E@@@^ LANM )@@G@@,T1 A1,RDA+2 . $P RECORD CODE TO A1 @G@@@^ SA,H2 NN )@@G@@ A1,SETCPKT+1 . $P RECORD CODE TO SETCPKT+1,,H2 @A@@@^ LANO )@@G@@,U A0,RDA+1 @G@@@^ SA,H1 A0,SETCPKT . $P RECONP )@@G@@RD ADDR TO SETCPKT+1,,H1 @E@@@^ LA,H2 A0,SETCPKT .NQ )@@G@@ $P SET CODE TO A0 @G@@@^ LA A1,SETCPKT+1 . $P ADNR )@@G@@DR OF RECORD TO H1 OF A1 AND @G@@@^ .NS )@@G@@ $P RECORD CODE TO T3 OF A1 @A@@@^ TNZ,H1 C9 NT )@@G@@ .@A@@@^ J $+3 .@G@@@^ LA,U NU )@@G@@ A2,2 . $P SCHEMA INDICATOR TO A2 @A@@@^ J NV )@@G@@ LNKGT2 .@A@@@^ LA,U A2,1 .@]@@@^NW )@@G@@LNKGT2 . @G@@@^ SLJ GETSET . $W GETSET GET SETNX )@@G@@ POINTERS @G@@@^ DS A0,GSETPKT1 . $P SAVE INFNY )@@G@@O FROM GETSET, GSETPKT1 @A@@@^ DS A2,GSETPKT1+2 .@A@@@^NZ )@@G@@ SA A4,GSETPKT1+4 .@G@@@^ JP A1,$+2 OA )@@G@@ . $T ANY ERROR IN GETSET ROUTINE @E@@@^ ER ERR$OB )@@G@@ . $A YES,EXIT NO @G@@@^ LA A0,INSDBP OC )@@G@@ . $P NEWLY CREATED DBP TO A0 @G@@@^ SA A0,1OD )@@G@@,A1 . $P STORE NEWLY CREATED DBP IN PRIOR@]@@@^ . @C@@@^OE )@@G@@ . WRITE RECORD OUT TO THE TEMPORARY FILE @^@@@^ . RECORD IS IN RDOF )@@G@@A @]@@@^ . @A@@@^ LA,U A0,RDA .@G@@@^OG )@@G@@ SLJ TFCHANGE . $W TFCHANGE UPDATE TEMP FILE OH )@@G@@@E@@@^ SLJ RBUFUPD . $W RBUFUPD @G@@@^OI )@@G@@ LA A0,AENTAD . $P ADDRESS OF SET ENT TO A0 OJ )@@G@@@E@@@^ LA,S5 A1,0,A0 . $P SET TYPE TO A1 @E@@@^OK )@@G@@ TE,U A1,011 . $T IS IT PRIOR+ OWNER @E@@@^ OL )@@G@@ J LNKDONE . $A NO,LNKDONE YES @A@@@^IRLNK3 . PREOM )@@G@@PARE TO LINK TO OWNER @G@@@^ LA,H2 A0,SETCPKT+2 . $P POON )@@G@@INTER TO SET CURRENCY TBL, A0 @G@@@^ LA,T2 A2,0,A0 .OO )@@G@@ $P RECORD CODE OF OWNER TO A2 @G@@@^ TE,T1 A2,RDA+2 OP )@@G@@ . $T WAS NEXT RECORD THE SET OWNER @E@@@^ J IRLNOQ )@@G@@K4 . $A NO,IRLNK4 YES @A@@@^ OR )@@G@@ .@]@@@^ . @]@@@^ . @A@@@^ . RECORD IN RDA IS THE OS )@@G@@SET OWNER @]@@@^ . @]@@@^ . @E@@@^ LA OT )@@G@@ A3,RDA+1 . $P DBP OF OWNER TO A3 @G@@@^ LX X8,AOU )@@G@@PADSAV . $P AUTOMATIC PTR ADDR OF INS REC @E@@@^ TE,U OV )@@G@@ A1,011 . $T WAS IT PRIOR + OWNER@E@@@^ J IRLNOW )@@G@@K6 . $A NO,IRLNK6 YES @G@@@^ SA A3,2,X8 OX )@@G@@ . $P STORE OWNER POINTER AS 3RD A PTR@A@@@^ J LNKDOY )@@G@@ONE @]@@@^ . @E@@@^IRLNK6 . LINK AS SECOND AUTOMATIC POZ )@@G@@OINTER (NO PRIOR) @E@@@^ TE,U A1,010 . BETTEPA )@@G@@R BE OWNER TYPE @^@@@^ ER ERR$@G@@@^ SA PB )@@G@@ A3,1,X8 . $P STORE OWNER POINTER 2ND @C@@@^ J PC )@@G@@ LNKDONE . $J LNKDONE@C@@@^IRLNK4 . NEXT RECORD WAS NOT SPD )@@G@@ET OWNER @C@@@^ . DETERMINE WHERE IS THE OWNER POINTER PE )@@G@@@G@@@^ LX X8,APADSAV . $P AUTOMATIC PTR ADDR OF INSPF )@@G@@ REC @G@@@^ TE,U A1,011 . $T WAS SET TYPE PRIOR PG )@@G@@+ OWNER @E@@@^ J IRLNK7 . $A NO,IRLNK7 YES PH )@@G@@ @G@@@^ LX,H2 X9,GSETPKT1+1 . $P ADDRESS OF NEXT PTR PI )@@G@@TO X9 @G@@@^ LA A3,2,X9 . $P PICK UP THIRD PJ )@@G@@PTR AS OWNER PTR @G@@@^ SA A3,2,X8 . $P STORE THPK )@@G@@IRD IN INSERTED RECORD @C@@@^ J LNKDONE . $J LPL )@@G@@NKDONE@]@@@^ . @]@@@^ . @A@@@^IRLNK7 . SET TYPE WAS OWPM )@@G@@NER @E@@@^ . OWNER POINTER IS WITHIN RECORD ALREADY IN RDA PN )@@G@@ @]@@@^ . @G@@@^ LX,H2 X9,GSETPKT+1 . $PPO )@@G@@ ADDRESS OF NEXT POINTER TO X9@G@@@^ LA A3,1,X9 .PP )@@G@@ $P PICK UP SECOND PTR AS OWNER PTR @G@@@^ SA A3,1,X8 PQ )@@G@@ . $P STORE SECOND IN INSERTED RECORD @C@@@^ J LNKDPR )@@G@@ONE . $J LNKDONE@]@@@^ . @]@@@^ . @A@@@^IRLNK2PS )@@G@@ . SET NOT PRIOR TYPE @G@@@^ TE,U A1,011 PT )@@G@@. $T IS SET TYPE PRIOR WITH OWNER @A@@@^ J IRLNK22 PU )@@G@@ @E@@@^ TE,U A4,03 . $ BETTER HAVE 3 LINKS PV )@@G@@@^@@@^ ER ERR$@A@@@^ J LNKGT1 PW )@@G@@@]@@@^IRLNK22 . @G@@@^ TE,U A1,010 . $T SET IS PX )@@G@@OF OWNER TYPE @A@@@^ ER ERR$ .@E@@@^PY )@@G@@ TE,U A4,02 . BETTER HAVE 2 LINKS @A@@@^ PZ )@@G@@ ER ERR$ .@C@@@^ J IRLNK3 .QA )@@G@@ $J IRLNK3 @]@@@^ . @]@@@^ . @C@@@^IRLNK1 . SET DOES QB )@@G@@NOT HAVE MORE THAN ONE LINK @E@@@^ LA,H1 A1,GSETPKT .QC )@@G@@ $P SET TYPE TO A1 @E@@@^ JZ A1,LNKDONE . $T TQD )@@G@@YPE WAS NEXT @E@@@^ ER ERR$ . $A YES,LNKDQE )@@G@@ONE NO,EXIT @]@@@^ . @]@@@^ . @G@@@^LNKDONE . CHECK IFQF )@@G@@ SET OWNER HAS A PRIOR POINTER TO LINK. FOR EXAMPLE: @E@@@^ . SEQG )@@G@@T THAT IS LINKED NEXT WITH ORDER LAST @]@@@^ . @A@@@^QH )@@G@@ LX X8,AENTAD .@E@@@^ LA,S5 A1,0,X8 QI )@@G@@ . $P SET TYPE TO A1 @E@@@^ TNZ A1 .QJ )@@G@@ $T SET TYPE IS NEXT @E@@@^ J LNKGT6 . $A YEQK )@@G@@S,LNKGT6 NO @E@@@^ TE,U A1,010 . $T SET TYPEQL )@@G@@ IS OWNER @E@@@^ J LNKDONE1 . $A NO,LNKDONE1QM )@@G@@ YES @]@@@^ . @C@@@^ . GET NEXT RECORD TO RDA TO CHECK ON TYPEQN )@@G@@ @]@@@^ . @]@@@^LNKGT6 . @E@@@^ LA A0,NQO )@@G@@EXTDBP . $P NEXT DBP TO A0 @G@@@^ SLJ DBPGET QP )@@G@@ . $W DBPGET READ NEXT RECORD TO RDA @G@@@^ LA,H2 A0,SQQ )@@G@@ETCPKT+2 . $P ADDR OF SET CUR TBL TO A0 @G@@@^ LA,T2 QR )@@G@@ A2,0,A0 . $P RECORD CODE OF SET OWNER TO A2 @G@@@^ TEQS )@@G@@,T1 A2,RDA+2 . $T WAS NEXT RECORD THE SET OWNER @E@@@^ QT )@@G@@ J LNKDONE1 . $A NO,LNKDONE1 YES @C@@@^ . CALL GETSQU )@@G@@ET TO FIND LINK TYPE OF OWNER @A@@@^ LA,U A0,RDA QV )@@G@@ @G@@@^ SA,H1 A0,SETCPKT+1 . $P UPDATE RECORD ADDRESQW )@@G@@S IN SETCPKT@E@@@^ LA,H2 A0,SETCPKT . $P SET CODE TO A0QX )@@G@@ @G@@@^ LA A1,SETCPKT+1 . $P ADDR OF RECORD TO H1QY )@@G@@ OF A1 @G@@@^ . RECORD CODE TOQZ )@@G@@ T3 OF A1 @E@@@^ TNZ,H1 C9 . NEW SCHERA )@@G@@MA @^@@@^ J $+3 @G@@@^ LA,U A2,2RB )@@G@@ . $P SCHEMA INDICATOR TO A2 @A@@@^ J RC )@@G@@ IRGT55 @^@@@^ LA,U A2,1@]@@@^IRGT55 . @]@@@^RD )@@G@@ . @G@@@^ SLJ GETSET . $W GETSET GET SETRE )@@G@@ POINTERS @A@@@^ JP A1,$+2 @^@@@^ RF )@@G@@ ER ERR$@G@@@^ SSL A0,18 . GET RID RG )@@G@@OF LOWER PART OF A0 @E@@@^ TE,U A0,01 . $T ISRH )@@G@@ LINK TYPE PRIOR @E@@@^ J LNKDONE1 . $A NO,LNKDORI )@@G@@NE1 YES @]@@@^ . @G@@@^ LA A5,INSDBP .RJ )@@G@@ $P DBP OF INSERTED RECORD TO A5 @G@@@^ SA A5,1,A1 RK )@@G@@ . DBP OF INSERTED RECORD TO OWNER @A@@@^ LA,U A0,RRL )@@G@@DA .@G@@@^ SLJ TFCHANGE . $W TFCHANGE CHANRM )@@G@@GE TEMP FILE @G@@@^ SLJ RBUFUPD . $W RBUFURN )@@G@@PD UPDATE REC BUF @]@@@^ . @G@@@^LNKDONE1 . UPDATE CURRENRO )@@G@@CY OF SET INTO WHICH AN INSERT JUST OCCURED @]@@@^ . @G@@@^RP )@@G@@ LX,H2 X8,SETCPKT+2 . $P ADDR OF SET CUR TBL ENTRY TO X8 RQ )@@G@@@E@@@^ LA,H2 A0,SETCPKT . $P SET CODE TO A0 @G@@@^RR )@@G@@ LA A1,IRCODE . $P INSERTED RECORD CODE TO A1 RS )@@G@@@E@@@^ TE,T1 A0,0,X8 . $ SET CODES EQUAL @E@@@^RT )@@G@@ ER ERR$ . NO,INTERNAL ERROR @G@@@^ RU )@@G@@ SA,T3 A1,0,X8 . $P UPDATE SET CURRENCY RECORD CODE @C@@@^RV )@@G@@ LA A2,1,X8 . @G@@@^ SA RW )@@G@@ A2,2,X8 . $P PUSH DBP OF OLD CURRENT DOWN @A@@@^ LARX )@@G@@ A2,INSDBP .@G@@@^ SA A2,1,X8 . $P UPRY )@@G@@DATE DBP FOR CURRENT OF SET @E@@@^ J LNKEXT RZ )@@G@@ . $J LNKEXT @]@@@^ . @]@@@^/ @]@@@^ . SA )@@G@@ @C@@@^ . INSERT AREA CONTROL RECORD WORKER ROUTINE @A@@@^ . SYNSB )@@G@@TAX: ICTL AREA AREA-NAME @A@@@^ . OR ICTL AREA VARIABLE SC )@@G@@@]@@@^ . @E@@@^ . AN AREA CONTROL RECORD WILL BE INSERTED AFTERSD )@@G@@ THE CURRENT@^@@@^ . TEMPORARY FILE LINE. @C@@@^ . AREA CONTROL RECORD FSE )@@G@@ORMAT IS AS FOLLOWS: @]@@@^ . @E@@@^ . ---------------------SF )@@G@@------------------------- @E@@@^ . : 000000 SG )@@G@@ : @E@@@^ . :--------------------------------SH )@@G@@------------: @E@@@^ . : 01 : : 02 SI )@@G@@ : @E@@@^ . :---------------------:----------------------SJ )@@G@@: @E@@@^ . : : AREA-CODE : SK )@@G@@ @E@@@^ . :--------------------------------------------: SL )@@G@@@]@@@^ . @C@@@^ . X10 POINTS TO PACKET GENERATED BY THE PARSER SM )@@G@@@^@@@^ . A0 HAS PACKET TYPE @]@@@^ . @]@@@^ . @]@@@^SN )@@G@@ICTLA . @A@@@^ TZ,H2 2,X10 .@G@@@^ J SO )@@G@@ ERROR75 . NO INDEX ALLOWED ON AREA-NAME @C@@@^ SP )@@G@@ TNZ 2,X10 . @C@@@^ J ERROSQ )@@G@@R75 . @G@@@^ LX,H1 X8,2,X10 . $P ADSR )@@G@@DR OF SYMBOL TAB ENTRY @E@@@^ LA,S4 A1,0,X8 .SS )@@G@@ $P SYMBOL TYPE @E@@@^ TE,U A1,020 . $T ISST )@@G@@ SYMBOL UNDEFINED @E@@@^ J $+2 . $A NO YES,SU )@@G@@ICANAME @A@@@^ J ICANAME .@G@@@^ TESV )@@G@@,U A1,017 . $T IS SYMBOL DEFINED PIC X @E@@@^ SW )@@G@@ ER ERR$ . $A NO,EXIT YES @]@@@^ . SX )@@G@@@E@@@^ . SYMBOL IS DEFINED AND AREA NAME IS ENTERED AS A VARIABLE @C@@@^SY )@@G@@ . SHOULD HAVE THE VALUE AS THE AREA NAME @G@@@^ . PREPARE TO CALLSZ )@@G@@ GETVAR FOR AREA NAME, X10 HAS ADDR TO SYMB TAB ENTRY @G@@@^ . TA )@@G@@ . X10 HAS SYMBOL TABLE ENTRY ADDR @C@@@^ TB )@@G@@ LX X10,X8 . @G@@@^ SZ A0 TC )@@G@@ . A0 HAS 0 SINCE ITEM CANNOT BE INDXD@C@@@^ SLJ TD )@@G@@ GETVAR . UPON RETURN@G@@@^ .TE )@@G@@ X10 HAS SYMBOL TABLE ENTRY ADDR @E@@@^ TF )@@G@@ . A0 HAS CHRACTER LENGTH@G@@@^ .TG )@@G@@ A1 ABSOLUTE WORD ADDR OF ITEM @G@@@^ TH )@@G@@ . + ERROR CODE IF ANY ( BIT 35 ) @G@@@^ TI )@@G@@ . A2 CHARACTER OFFSET (1-6) @E@@@^ TJ )@@G@@ . A3 TYPE, 1 - PIC X @E@@@^ TK )@@G@@ . 2 - PIC 9 @G@@@^ TL )@@G@@ . 3 - PIC 9 COMP @E@@@^ JN A1,GTM )@@G@@ETER1 . $T SUCCESSFUL @E@@@^ TN )@@G@@ . $A NO,GETER1 YES @E@@@^ TE,U A3,01 .TO )@@G@@ BETTER BE PIC X ITEM@A@@@^ ER ERR$ .@A@@@^TP )@@G@@ .@A@@@^ TQ )@@G@@ .@G@@@^ . GET THE ITEM NAME POINTTR )@@G@@ED TO BY A @A@@@^ .@G@@@^ TGTS )@@G@@,U A0,13 . NAME SHOULD FIT WITHIN 2 WORDS @G@@@^ TT )@@G@@ . SINCE IT IS AN AREA NAME @A@@@^TU )@@G@@ J ERROR77 .@G@@@^ JZ A0,ERROR77TV )@@G@@ . NAME CANNOT CONSIST OF 0 CHARACTERS@G@@@^ DS A0,GTW )@@G@@VARSAVE . $P SAVE REGISTERS FROM GETVAR @A@@@^ DS TX )@@G@@ A2,GVARSAVE+2 .@G@@@^ DL A2,0,A1 . $P TWO WORDTY )@@G@@S RETURNED TO A2,A3 @A@@@^ LA,U A0,7 .@G@@@^TZ )@@G@@ ANA A0,GVARSAVE+2 . $P ( 7 - OFFSET )*6 TO A0 UA )@@G@@@C@@@^ MSI,U A0,6 . @G@@@^ DSUB )@@G@@L A2,0,A0 . $P FIRST WORD OF AREA-NAME TO A3 @E@@@^ UC )@@G@@ SA A3,ICTLAN . $P FIRST WORD TO ICTLAN@E@@@^ LAUD )@@G@@ A0,GVARSAVE . $P # OF CHARS TO A0 @E@@@^ TG,U UE )@@G@@ A0,7 . $T # OF CHARS > 6 @E@@@^ J ICTLUF )@@G@@GT1 . $A YES,ICTLGT1 NO @]@@@^ . @G@@@^ . UG )@@G@@ AREA CODE IS ONE WORD OR LESS @]@@@^ . UH )@@G@@ @A@@@^ LA,U A1,6 .@G@@@^ ANA UI )@@G@@ A1,A0 . $P (6- NO OF CHARS) TO A1 @G@@@^ LRUJ )@@G@@ R1,A1 . $P # OF SPACES TO ADD TO R1 @E@@@^ UK )@@G@@ LX,U X9,ICTLAN . $P ADDR OF WORD TO X9 @C@@@^ SLUL )@@G@@J ADDSPCS . $W ADDSPCS @]@@@^ . @G@@@^ . UM )@@G@@ FIRST WRD OF 2 WRD ENTRY IS READY @G@@@^ . UN )@@G@@ PREPARE TO ADD SPACES TO 2ND WORD @A@@@^UO )@@G@@ LR R2,SPACES .@G@@@^ SR R2,1,X9 UP )@@G@@ . $P SPACES TO SECOND WORD @C@@@^ J ANREUQ )@@G@@ADY . $J ANREADY @]@@@^ . @C@@@^ICTLGT1 UR )@@G@@ . $H @G@@@^ . AREA US )@@G@@NAME MORE THAN 6 CHARS @G@@@^ LA A1,GVARSAVE+1 .UT )@@G@@ ADDR OF VAR RETURNED BY GETVAR @G@@@^ DL A2,1,A1 UU )@@G@@ . $P 2ND & 3RD WORD FROM GETVAR TO A2@C@@@^ UV )@@G@@ . AND A3 @A@@@^ LA A0,GVARSAVE+2 .@I@@@^UW )@@G@@ ANA,U A0,1 . $P DOUBLE SHIFT LEFT BY (OFFSET -1)UX )@@G@@*6 @C@@@^ MSI,U A0,6 . @A@@@^UY )@@G@@ LDSL A2,0,A0 .@G@@@^ SA A2,ICTLAN+UZ )@@G@@1 . $P 2ND WORD OF AREA NAME @A@@@^ VA )@@G@@ .@G@@@^ LA A0,GVARSAVE . PROCEED TO FILL UVB )@@G@@P WITH SPACES @A@@@^ LA,U A1,12 .@G@@@^ VC )@@G@@ ANA A1,A0 . $P (12-NO OF CHARS) TO A1 @G@@@^VD )@@G@@ LR R1,A1 . $P # OF SPACES TO FILL TO R1 VE )@@G@@@G@@@^ LX,U X9,ICTLAN+1 . $P ADDR OF 2ND WORD TO X9 VF )@@G@@ @E@@@^ ANA,U A0,6 . $P REL CHAR POS TO A0 VG )@@G@@@C@@@^ SLJ ADDSPCS . $W ADDSPCS @]@@@^ . VH )@@G@@@C@@@^ANREADY . $H @G@@@^ VI )@@G@@ . AREA NAME SHOULD BE READY IN ICTLAN@G@@@^ VJ )@@G@@ . SEARCH C3 TABLE FOR AREA NAME @A@@@^VK )@@G@@ TNZ,H1 C3 .@A@@@^ J ERROR68 VL )@@G@@ @E@@@^ LXM,H2 X8,C3 . $P C3 ADDR TO X8 VM )@@G@@@G@@@^ LXI,U X8,9 . $P IN CREMENT VALUE TO X8 VN )@@G@@ @G@@@^ ANX,U X8,9 . $P X8 POINTS ONE ENTRY VO )@@G@@LENGTH BEFOR@E@@@^ DL A2,ICTLAN . $P AREA NAME TO AVP )@@G@@2,A3 @G@@@^ LA,H1 A0,C3 . $P # OF WORDS IN C3 TABVQ )@@G@@LE TO A0 @G@@@^ DSL A0,36 . $P PREPARE TO DIVVR )@@G@@IDE BY # OF WORDS @C@@@^ DI,U A0,9 . IN ENTRYVS )@@G@@@E@@@^ TZ A1 . $P REMAINDER TO A1 @G@@@^VT )@@G@@ ER ERR$ . REMAINDER BETTER BE NONZERO VU )@@G@@@G@@@^ LR R1,A0 . $P # OF ENTRIES IN C3 TABLE TVV )@@G@@O R1 @G@@@^ANSLP1 SE A2,10,*X8 . $T FOUND 1ST WORD IN TAVW )@@G@@BLE @E@@@^ J ERROR76 . $A NO,ANNFOUND YEVX )@@G@@S @G@@@^ TE A3,2,X8 . $P FOUND 2ND WORD IN TAVY )@@G@@BLE @E@@@^ J ANSLP1 . $A NO,ANSLP1 YES VZ )@@G@@ @]@@@^ . @G@@@^ . AREA WA )@@G@@NAME FOUND IN C3 TABLE @E@@@^ . WB )@@G@@ X8 POINTS TO AREA ENTRY@]@@@^ . @]@@@^ . @E@@@^ WC )@@G@@ LA,T1 A0,0,X8 . $P AREA CODE TO A0 @G@@@^ LSWD )@@G@@SL A0,24 . $P GET RID OF HIGH ORDER BITS @A@@@^ WE )@@G@@ SSL A0,24 .@G@@@^ SA,H2 A0,CNTRCD+2 .WF )@@G@@ $P AREA CODE TO CNTRCD+2 @A@@@^ LA A1,(01,0,0WG )@@G@@2) .@G@@@^ SA A1,CNTRCD+1 . $P SET UP CNTRCD+1 TO (WH )@@G@@1,0,2) @]@@@^DOINSERT @G@@@^ . WI )@@G@@ PREPARE TO INSERT CONTROL RECORD @G@@@^ . WJ )@@G@@ AFTER CURRENT LINE GIVEN BY LN @]@@@^ . @]@@@^ . WK )@@G@@ @E@@@^ LA A2,LN . $P LINE # TO A2 WL )@@G@@@G@@@^ SA A2,IPKT . $P CURRENT LINE # TO IPKT WM )@@G@@ @G@@@^ LA,U A3,3 . $P LENGTH OF CONTROL REWN )@@G@@C (3) TO A3 @G@@@^ SA,H2 A3,IPKT+2 . $P LENGTH OF CONTWO )@@G@@ROL REC TO IPKT @C@@@^ LX,U X9,CNTRCD . $ WP )@@G@@@G@@@^ SX X9,IPKT+1 . $P ADDR OF CONTROL RECORD TO WQ )@@G@@IPKT+1@]@@@^ . @G@@@^ . CALL WR )@@G@@TEMP FILE ACCESS METHOD @]@@@^ . @E@@@^ LX,U WS )@@G@@ X10,IPKT . $P ADDR OF IPKT TO X10 @G@@@^ LMJ X11,WT )@@G@@TF$IA . $W TF$IA CALL TEMP FILE ACCESS METH@A@@@^ TZ,T1 WU )@@G@@ 2,X10 .@A@@@^ ER ERR$ .@A@@@^ WV )@@G@@ LA A0,IPKT .@E@@@^ SA A0,LN .WW )@@G@@ $P UPDATE LINE NUMBER @C@@@B SZ STATUS . WX )@@G@@ @A@@@^ LX X10,X10SAV .@C@@@^ J WY )@@G@@ *RETURN . $E EXIT @]@@@^ . @C@@@^ICANAME . WZ )@@G@@ . $H @]@@@^ . @E@@@^ . XA )@@G@@ SYMBOL IS UNDEFINED, @G@@@^ . XB )@@G@@ NAME OF THE VARIABLE IS AREA NAME @G@@@^ . XC )@@G@@ X8 POINTS TO SYMBOL TABLE ENTRY @E@@@^ ANXD )@@G@@X,U X8,5 . $P BACK UP 5 WORDS @G@@@^ DL XE )@@G@@ A2,0,X8 . $P NAME OF VARIABLE SUPPOSED @E@@@^ DSXF )@@G@@ A2,ICTLAN . TO BE AN AREA NAME @C@@@^ J XG )@@G@@ ANREADY . $J ANREADY @]@@@^/ @C@@@^ . INSERT DIRECT CXH )@@G@@ONTROL RECORD WORKING ROUTINE @C@@@^ . SYNTAX: ICTL DIRECT NUMERIC NXI )@@G@@UMERIC @C@@@^ . ICTL DIRECT NUMERIC VARIABLE @C@@@^XJ )@@G@@ . ICTL DIRECT VARIABLE NUMERIC @C@@@^ . ICTXK )@@G@@L DIRECT VARIABLE VARIABLE @]@@@^ . @G@@@^ . THE FIRST OPERAXL )@@G@@ND OF THE COMMAND SPECIFIES THE PAGE NUMBER @G@@@^ . THE SECONXM )@@G@@D OPERAND OF THE COMMAND SPECIFIES THE RECORD NUMBER @C@@@^ . DIRXN )@@G@@ECT CONTROL RECORD FORMAT IS AS FOLLOWS @]@@@^ . @E@@@^ . ---XO )@@G@@------------------------------------------- @E@@@^ . ! XP )@@G@@ 000000 ! @E@@@^ . !--------------XQ )@@G@@------------------------------! @E@@@^ . ! 04 ! XR )@@G@@ ! 02 ! @E@@@^ . !--------------------------XS )@@G@@------------------! @E@@@^ . ! PAGE NUMBER ! RECORDXT )@@G@@ NUMBER ! @E@@@^ . !--------------------------------------XU )@@G@@------! @]@@@^ . @C@@@^ . X10 POINTS TO PACKET GENERAXV )@@G@@TED BY THE PARSER @^@@@^ . A0 HAS PACKET TYPE @]@@@^ . @]@@@^XW )@@G@@ . @]@@@^ICTLD . @G@@@^ AX,U X10,2 .XX )@@G@@ $P X10 POINTS TO ENTRY OF 1ST OPER @G@@@^ SLJ ICTGVAR XY )@@G@@ . $W ICTGVAR GET VARIABLE OR NUMERIC @G@@@^ XZ )@@G@@ . $ UPON RETURN, A0 WILL HAVE NUMBER @G@@@^ YA )@@G@@ . $ X10 WILL POINT TO NEXT ENTRY @G@@@^ YB )@@G@@ . FIRST OPERAND IS THE PAGE NUMBER @A@@@^ YC )@@G@@ TG A0,(01000000) .@A@@@^ J ERROR80 .YD )@@G@@@G@@@^ SA,H1 A0,CNTRCD+2 . $P PAGE NUMBER TO CNTRCD+2,,HYE )@@G@@1 @G@@@^ SLJ ICTGVAR . $W ICTGVAR GET 2ND VARIYF )@@G@@ABLE OR NUM @A@@@^ TG A0,(010000) .@A@@@^ J YG )@@G@@ ERROR80 .@G@@@^ S,H2 A0,CNTRCD+2 . $P REYH )@@G@@CORD NUMBER TO CNTRCD+2,, @A@@@^ LA,U A1,04 .YI )@@G@@@G@@@^ SA,T1 A1,CNTRCD+1 . $P SPECIAL CODE 4 TO CNTRCD+1YJ )@@G@@,,T1 @C@@@^ J DOINSERT . $J DOINSERT@]@@@^/ YK )@@G@@ @]@@@^ . @]@@@^ . @]@@@^ . @E@@@^ . SUBYL )@@G@@ROUTINE TO MODIFY THE RECORD BUFFER OF A RECORD @E@@@^ . TYPE WHICYM )@@G@@H IS CURRENTLY IN RDA IF THE RECORD IN RDA HAS @C@@@^ . THE SAME DBP ASYN )@@G@@ THAT IN THE RECORD BUFFER. @]@@@^ . @]@@@^ . @]@@@^YO )@@G@@ . @C@@@^RBUFUPD + 0 . $H @]@@@^YP )@@G@@ . @]@@@^ . @C@@@^ . FIRST SEARCH RECORD SEQUENCE TABLYQ )@@G@@E @]@@@^ . @]@@@^ . @E@@@^ LA,T1 YR )@@G@@ A2,RDA+2 . $P RECORD CODE TO A2@G@@@^ LR,H1 R1,TYS )@@G@@T1 . $P RECORD COUNT TO R1 @G@@@^ LX,H2 YT )@@G@@ X9,TT1 . $P ADDR OF SEQUENCE TABLE TO X9 @C@@@^ LXYU )@@G@@I,U X9,1 . @G@@@^ SE,T1 A2,,*X9 YV )@@G@@ . $T IS RECORD CODE IN TABLE @E@@@^ ER ERR$YW )@@G@@ . $A NO,EXIT YES @G@@@^ ANX X9,(1,1) YX )@@G@@ . $P X9 POINTS TO RECORD SEQUENCE @G@@@^ LA,H2 A3,0YY )@@G@@,X9 . $P RECORD BUFFER ADDRESS TO A3 @G@@@^ JZ YZ )@@G@@ A3,UPDRET . $T RECORD BUFFER INITIALIZED @E@@@^ ZA )@@G@@ . $A NO,UPDRET YES @G@@@^ LA ZB )@@G@@ A1,RDA+1 . $P DBP OF CHANGED RECORD TO A1 @E@@@^ TEZC )@@G@@ A1,1,A3 . $T ARE DBPS EQUAL @E@@@^ J ZD )@@G@@ UPDRET . $A NO,UPDRET YES @]@@@^ . @C@@@^ . RECZE )@@G@@ORD IN RECORD BUFFER SAME AS THAT IN RDA @A@@@^ . UPDATE RECORD BUFFER ZF )@@G@@FROM RDA @]@@@^ . @]@@@^ . @]@@@^ . @C@A@^ZG )@@G@@ P$RINT (PF1 1,4,UPDATEMSG) @C@@@A . P$RINT ZH )@@G@@ (PF1 1,4,UPDATEMSG) @G@@@^ LX,U X8,RDA ZI )@@G@@ . $P ORIGINATING ADDR TO X8 @G@@@^ LX X9,A3 ZJ )@@G@@ . $P DESTINATION ADDR TO X9 @C@@@^ LA,H2 A0,RZK )@@G@@DA . @G@@@^ AA,U A0,1 . $PZL )@@G@@ LENGTH TO TRANSFER TO A0 @G@@@^ LR R1,A0 ZM )@@G@@ . $P LENGTH TO TRANSFER TO R1 @E@@@^ SLJ RTRANS ZN )@@G@@ . $W RTRANS @C@@@^UPDRET J *RBUFUPD ZO )@@G@@ . $E EXIT @A@@@^ . MAKE OWNER RECORD CURRENT OF SET @]@@@^ . ZP )@@G@@@]@@@^ . @]@@@^OWNCUR . @C@@@^ LX X8,AENTAD ZQ )@@G@@ . @E@@@^ LA,T2 A1,0,X8 . SET CODEZR )@@G@@ TO A1 @A@@@^ LX,H2 X9,TT2 @C@@@^ LXZS )@@G@@I,U X9,3 . @C@@@^ LR,H1 R1,TT2 ZT )@@G@@ . @G@@@^ SE,T1 A1,,*X9 . $P SEARCZU )@@G@@H SET CURRENCY TABLE @^@@@^ ER ERR$@G@@@^ ANZV )@@G@@X X9,(3,3) . $P X9 POINTS TO SET CUR TBLE ENT@C@@@^ ZW )@@G@@ LA A1,IRCODE . @C@@@^ TE,T2 A1,0ZX )@@G@@,X9 . @^@@@^ ER ERR$@G@@@^ SAZY )@@G@@,T3 A1,0,X9 . $P UPDATE SET CURRENCY @G@@@^ ZZ )@@G@@ LA A0,IRBFAD . $P ADDR OF IR BUFFER TO A0 @C@@@^AA )@@G@@ LA A2,1,X9 . $ @I@@@^ SA AB )@@G@@ A2,2,X9 . $P DBP OF OLD CURRENT PUSHED DOWN @C@@@^AC )@@G@@ LA A2,1,A0 . $ @G@@@^ SA AD )@@G@@ A2,1,X9 . $P NEW DBP TO TT2 TABLE @E@@@^ J AE )@@G@@ LNKEXT . $J LNKEXT @A@@@^SLMAN . ENTRY FOR AF )@@G@@MANUAL SET @I@@@^ SA A0,MANLNKSW . $P SET MAG )@@G@@ANLNKSW TO IND MAN SET LINK @E@@@^ J LNGT11 AH )@@G@@ . $J LNGT11 @]@@@^LNKEXT . @E@@@^ SZ AI )@@G@@ ISLNKSW . $P ZERO ISLNKSW @C@@@^ J *SETAJ )@@G@@LINK . $E EXIT @]@@@^ . @]@@@^ . @]@@@^/ AK )@@G@@ @C@@@^ . SUBROUTINE TO LOCATE ITEM SYM TAB ENTRY @]@@@^ . AL )@@G@@ @C@@@^GETITEM + 0 . $H GETITEM @G@@@^ AM )@@G@@ LSSL A1,18 . $T IS LINK WITHIN C15 OR C14 @E@@@^AN )@@G@@ JN A1,GETEM1 . $A NO,GETEM1 YES @^@@@^ . ENTAO )@@G@@RY IS WITHIN C15 @]@@@^ . @G@@@^ SSL A1,18 AP )@@G@@ . $P REL LOCATION WITHIN C15 TO A1 @G@@@^ LA,H2 A0,CAQ )@@G@@15 . $P ADDR OF C15 TBL TO A0 @G@@@^ LA,H1 AR )@@G@@ A3,C15 . $P # OF WRDS IN C15 TO A3 @C@@@^ J AS )@@G@@ GETEM2 . $J GETEM2 @]@@@^GETEM1 . @A@@@^ LSAT )@@G@@SL A1,1 .@G@@@^ SSL A1,19 . $P REAU )@@G@@L LOC WITHIN C14 TO A1 @G@@@^ LA,H2 A0,C14 .AV )@@G@@ $P ADDR OF C14 TBL TO A0 @G@@@^ LA,H1 A3,C14 AW )@@G@@ . $P # OF WRDS IN C14 TO A3 @]@@@^GETEM2 . @A@@@^ AX )@@G@@ ANA,U A3,3 .@G@@@^ TG A1,A3 .AY )@@G@@ RELATIVE POINTER WITHIN TABLE @E@@@^ ER ERR$ AZ )@@G@@ . INTERNAL ERROR @E@@@^ AA A0,A1 .BA )@@G@@ $P POINT TO ITEM WANTED@C@@@^ J *GETITEM . $E EXBB )@@G@@IT @]@@@^ . @]@@@^ . @E@@@^TFUPDATE + 0 BC )@@G@@ . $H TFUPDATE @]@@@^ . @C@@@^ . SUBROUTINBD )@@G@@E TO UPDATE THE TEMPORARY FILE @E@@@^ . WILL INSERT THE CREATED RECBE )@@G@@ORD IN THE TEMP FILE @]@@@^ . @G@@@^ SA BF )@@G@@ A0,IAPKT . $P STORE IN FIRST WRD OF IAPKT H2 @G@@@^ LABG )@@G@@,H2 A2,0,A1 . $P LENGTH OF RECORD TO A2 @G@@@^ BH )@@G@@ SA,H2 A2,IAPKT+2 . $P LENGTH OF IR RECORD TO IAPKT @^@@@^BI )@@G@@ AA,U A0,1@E@@@^ AA,U A1,1 . $P ADBJ )@@G@@DR OF RCD TO A1 @E@@@^ SA,H2 A1,IAPKT+1 . $P ADDR OF BK )@@G@@RCD TO IAPKT@A@@@^ LX,U X10,IAPKT .@G@@@^ LMBL )@@G@@J X11,TF$IA . $W TF$IA INSERT RECORD IN TEMP FILE@A@@@^ BM )@@G@@ TZ,T1 IAPKT+2 .@E@@@^ ER ERR$ .BN )@@G@@ INTERNAL ERROR @G@@@^ LA A0,IAPKT . $PBO )@@G@@ UPDATE LINE NUMBER @C@@@^ SA A0,LN BP )@@G@@ . @C@@@^ J *TFUPDATE . $P EXIT @]@@@^BQ )@@G@@ . @]@@@^ . @]@@@^ . @E@@@^ . SUBROUTINE TO EBR )@@G@@STABLISH THE SET CURRENCY OF A GIVEN SET @G@@@^ . UPON ENTRY: SETCPKTBS )@@G@@ PROPERLY CONTAINS DATAL SEE DESCRIPTION IN @A@@@^ . BT )@@G@@ THE D BANK @E@@@^ . UPON RETURN SETCPKT CONTAINS SET CURRENCY IBU )@@G@@NFORMATION @]@@@^ . @]@@@^ . @]@@@^ . @C@@@^BV )@@G@@SETCUR . . $H SETCUR @^@@@^ + BW )@@G@@ 0 @E@@@^ LA,H2 A1,SETCPKT . $P SET CODE TO A1 BX )@@G@@@A@@@^ . SEARCH SET CURRENCY TABLE @G@@@^ LX,H2 X9,TBY )@@G@@T2 . $P SET CURRENCY TABLE ADDR @G@@@^ LXI,U BZ )@@G@@ X9,3 . $P X9 WILL ICRREMENT BY 3 @E@@@^ LRCA )@@G@@,H1 R1,TT2 . $P SET COUNT TO R1 @E@@@^ SE,T1 CB )@@G@@ A1,,*X9 . $T FOUND SET ENTRY @E@@@^ J SCERCC )@@G@@R1 . $A NO,SCERR1 YES @E@@@^ ANX X9,(3,3) CD )@@G@@ . $P BACK UP X9 @G@@@^ SX,H2 X9,SETCPKT+2 .CE )@@G@@ $P SAVE PTR TO SET CUR TBLE @G@@@^ LA,T3 A2,0,X9 CF )@@G@@ . $P RECORD CODE OF CURRENT REC TO A2@^@@@^ TNZ A2 CG )@@G@@@A@@@^ J SCERR2 @G@@@^ LSSL A2,2CH )@@G@@4 . $P GET RID OF EXTRA BITS @A@@@^ SSL CI )@@G@@ A2,24 @G@@@^ SA,H2 A2,SETCPKT+1 . $P SAVE RCDCJ )@@G@@ IN SETCPKT+1,,H2 @E@@@^ LA A3,1,X9 . $P DBCK )@@G@@P TO A3 @^@@@^ . SEARCH SEQUENCE TBL @E@@@^ LR,H1 CL )@@G@@ R1,TT1 . $P RCD SEQ COUNT TO R1 @G@@@^ LX,H2 X9,TCM )@@G@@T1 . $P ADDR OF SEQ TBL TO X9 @E@@@^ LXI,U CN )@@G@@ X9,1 . $P X9 TO INCREMENT BY 1@E@@@^ SE,T1 A2,,CO )@@G@@*X9 . $T FOUND SET ENTRY @E@@@^ J SCERR3 CP )@@G@@ . $A NO,SCERR3 YES @G@@@^ ANX X9,(1,1) .CQ )@@G@@ $P X9 POINTS TO REC ENTRY @E@@@^ SX,H1 X9,SETCPKTCR )@@G@@+2 . $P SAVE SEQ ENTRY @G@@@^ LA,H2 A0,0,X9 .CS )@@G@@ $P RCD BUFFER ADDR TO A0 @E@@@^ TNZ A0 CT )@@G@@ . $T PTR EXISTS @E@@@^ J SCERR4 .CU )@@G@@ $A NO,SCERR4 YES @A@@@^ SA,H1 A0,SETCPKT+1 @E@@@^CV )@@G@@ SZ,H1 SETCPKT . $P SET ZERO RETURN CODE@C@@@^SCEXT CW )@@G@@ J *SETCUR . $E EXIT @]@@@^ . @]@@@^SCERR1CX )@@G@@ . @A@@@^ LA,U A0,1 .@E@@@^ SA,H1 CY )@@G@@ A0,SETCPKT . $P SET RET CODE 1 @C@@@^ J SCEXCZ )@@G@@T . $J SCEXT @A@@@^SCERR2 LA,U A0,2 .@E@@@^DA )@@G@@ SA,H1 A0,SETCPKT . $P SET RET CODE 2 @C@@@^ DB )@@G@@ J SCEXT . $J SCEXT @]@@@^SCERR3 . @A@@@^ DC )@@G@@ LA,U A0,3 .@E@@@^ SA,H1 A0,SETCPKT DD )@@G@@ . $P SET RET CODE 3 @C@@@^ J SCEXT . $J SCDE )@@G@@EXT @]@@@^SCERR4 . @A@@@^ LA,U A0,4 .@E@@@^DF )@@G@@ SA,H1 A0,SETCPKT . $P SET RET CODE 4 @C@@@^ DG )@@G@@ J SCEXT . $J SCEXT @]@@@^. @C@@@^ . ROUDH )@@G@@TINE TO SEARCH A VARIABLE LENGTH TABLE. @G@@@^ . UPON ENTRY X10 POINTDI )@@G@@S TO THE FIXED WORD IDENTIFYING THE TABLE. @E@@@^ . DJ )@@G@@ THIS WORD HAS # OF WRDS IN TABLE IN H1 @G@@@^ . DK )@@G@@ STARTING ADDRESS OF TABLE IN H2 @G@@@^ . A1 DL )@@G@@ CONTAINS SEARCH KEY WHICH IS T1 OF 1ST WORD OF ENTRY @E@@@^ . UPON RETUDM )@@G@@RN A2 HAS RETURN CODE. 0= SUCCESSFUL @E@@@^ . DN )@@G@@ 1= ENTRY NOT FOUND @E@@@^ . DO )@@G@@ 2= TABLE EMPTY @E@@@^ . A0 WILL POINT DP )@@G@@TO ENTRY FOUND IF ANY @]@@@^ . @]@@@^TABSE . @C@@@^DQ )@@G@@ + 0 . @E@@@^ TNZ,H1 DR )@@G@@ 0,X10 . $T ANY WORDS IN TABLE @C@@@^ J TABNDS )@@G@@2 . $A NO,TABN2 YES @G@@@^ L,H2 A0,0,X10 . $P ADDRESSDT )@@G@@ OF FIRST ENTRY TO A0 @E@@@^TALOP1 TNE,T1 A1,0,A0 . $T ADU )@@G@@RE RECORD CODES EQUAL @C@@@^ J TABYES . $A YES,TABDV )@@G@@YES NO@E@@@^ TNZ,T3 0,A0 . $T IS THIS LAST ENTRY DW )@@G@@@C@@@^ J TABN1 . $A YES,TABN1 NO @E@@@^ A,DX )@@G@@T3 A0,0,A0 . $P POINT TO NEXT ENTRY @A@@@^ J DY )@@G@@ TALOP1 @E@@@^TABN1 L,U A2,1 . $P ITEM NOT FOUNDZ )@@G@@D CODE @C@@@^ J TABEXT . $J TABEXT @C@@@^EA )@@G@@TABN2 L,U A2,2 . $P TABLE EMPTY @C@@@^ J EB )@@G@@ TABEXT . $J TABEXT @G@@@^TABYES L,U A2,0 . $P SEC )@@G@@ET SUCCESSFUL RETURN CODE @C@@@^TABEXT J *TABSE ED )@@G@@ . $E EXIT @]@@@^ . @]@@@^ . @C@@@^ . SUBROUTINEE )@@G@@E TO CHANGE THE TEMPORARY FILE @E@@@^ . . A0 HAS ADDRESS OF RECORD EF )@@G@@BUFFER IN RDA FORMAT @]@@@^ . @C@@@^TFCHANGE + EG )@@G@@ 0 . $H @]@@@^ . @]@@@^ . @E@@@^EH )@@G@@ . FIRST FIND THE RECORD CONCERNED IN THE TEMP FILE @]@@@^ . EI )@@G@@ @]@@@^ . @G@@@^ LA A1,0,A0 . $PEJ )@@G@@ FIRST WRD OF BUF TO CPKT @G@@@^ SA,H2 A1,CPKT+2 EK )@@G@@ . LENGTH OF RECORD TO CHANGE @C@@@^ LA A2,A0 EL )@@G@@ . @C@@@^ AA,U A2,1 . EM )@@G@@@G@@@^ SA A2,CPKT+1 . $P RECORD ADDRESS TO CPKT EN )@@G@@ @E@@@^ LA A1,1,A0 . $P DBP TO FIND TO A1 EO )@@G@@@E@@@^ SA A1,DBPPKT+1 . $P DBP TO PACKET @C@@@^EP )@@G@@ LX,U X10,DBPPKT . @G@@@^ LMJ EQ )@@G@@ X11,TF$DBP1 . $W TF$DBP1 DONT DELIVER RECORD @E@@@^ TZER )@@G@@,T1 DBPPKT+2 . $T SUCCESSFUL @C@@@^ ER ES )@@G@@ ERR$ . @G@@@^ LA A1,DBPPKT ET )@@G@@ . $P LINE NUMBER OF RECORD @G@@@^ SA A1,CPKT EU )@@G@@ . $P LINE NUMBER*V@@@@BASIC$EQBJ&5EQBJ&5305-12-745 BASIC$FILES EV )@@G@@750340532430@@@@@^#WCF.?@@@@@@@@@@@@ @@@@[X@@@@@@@@@@@@@@@@@@EW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@10 DIM R$(5),W$(20EX )@@G@@),L(20) @^@@@@20 LET R$(1)='CORRECT' @^@@@@30 LET R$(2)='VERY GOOD'EY )@@G@@@^@@@@40 LET R$(3)='FINE' @^@@@@50 LET R$(4)='GOOD' @ @@@@60 LETEZ )@@G@@ R$(5)='GOOD GOING' @]@@@@70 RANDOMIZE@^@@@@80 PRINT 'ANTONYMS' FA )@@G@@@]@@@@85 PRINT @E@@@@90 PRINT 'AN ANTONYM OF A WORD, IN THIS PROGRAM,FB )@@G@@ WILL MEAN' @C@@@@100 PRINT 'ANOTHER WORD OPPOSED IN MEANING.' @]@@@@FC )@@G@@105 PRINT @D@@@@110 PRINT ' EXAMPLE: WHITE IS AN ANTONYM OF BLACK.' FD )@@G@@@]@@@@120 PRINT @D@@@@130 PRINT 'I CHOOSE A WORD - YOU TYPE AN ANTONYMFE )@@G@@.' @F@@@@135 PRINT 'IF YOU CAN''T THINK OF A WORD; TYPE THE WORD HELFF )@@G@@P.' @D@@@@136 PRINT ' THIS CAUSES AN ANTONYM TO BE PRINTED.' @]@@@@FG )@@G@@140 PRINT @]@@@@145LET C=0 @]@@@@150RESTORE @]@@@@155LET C=C+1@^@@@@FH )@@G@@156IF C=10 THEN 420 @]@@@@160READ N @^@@@@170LET N1=INT(RND*N+1) FI )@@G@@@#@@@@180FOR I=1 TO N1 @]@@@@190READ N2 @#@@@@200FOR J=1 TO N2 @#@@@@FJ )@@G@@210READ W$(J) @]@@@@220NEXT J @]@@@@230NEXT I @#@@@@231FOR J=1 TFK )@@G@@O N2 @#@@@@232LET L(J)=J @]@@@@233NEXT J @#@@@@234LET L(0)=N2 FL )@@G@@@]@@@@235LET G=1 @]@@@@236PRINT @^@@@@237LET L(G)=L(L(0)) @#@@@@FM )@@G@@238LET L(0)=N2-1 @]@@@@239PRINT @C@@@@240 PRINT ' WHAT IS AN ANTOFN )@@G@@NYM OF ';W$(G); @]@@@@250INPUT A$ @^@@@@255IF A$='HELP' THEN 340@#@@@@FO )@@G@@260FOR J=1 TO N2 @#@@@@270IF G=J THEN 290@^@@@@280IF A$=W$(J) THEN 320 FP )@@G@@@]@@@@290NEXT J @ @@@@300 PRINT ' TRY AGAIN. '; @]@@@@310GO TO 240FQ )@@G@@@^@@@@320PRINT R$(RND*5+1) @]@@@@330GO TO 150@ @@@@340LET G1=INT(RND*FR )@@G@@L(0)+1) @^@@@@345IF L(0)=0 THEN 400 @E@@@@360 PRINT '**** AN ANTOFS )@@G@@NYM OF ';W$(G);' IS ';W$(L(G1));'.' @]@@@@365PRINT @^@@@@370LET L(G1)FT )@@G@@=L(L(0)) @#@@@@380LET L(0)=L(0)-1@]@@@@390GO TO 240@E@@@@400 PRINT 'TFU )@@G@@HERE ARE NO MORE ANTONYMS IN THIS CATEGARY.' @]@@@@410GO TO 240@]@@@@FV )@@G@@420PRINT @D@@@@430PRINT 'WOULD YOU LIKE TO CONTINUE (YES OR NO) '; FW )@@G@@@]@@@@440INPUT A$ @^@@@@450IF A$='YES' THEN 160 @C@@@@460 PRINT 'ANTONYMFX )@@G@@ DRILL COMPLETED. GOOD-BYE.' @]@@@@470STOP @]@@@@500DATA 23 @F@@@@FY )@@G@@510DATA 6,ABATE,INCREASE,INTENSIFY,HEIGHTEN,AUGMENT,AGGRAVATE @E@@@@FZ )@@G@@520DATA 5,ABERRATION,RECTITUDE,NORMALITY,RATIONALITY,SANITY @C@@@@530DATGA )@@G@@A 5,ABET,CURB,RESTRAIN,HINDER,DISSUADE @D@@@@540DATA 6,ABSTRUSE,CLEARGB )@@G@@,PLAIN,MANIFEST,OBVIOUS,EASY @B@@@@570DATA 4,ACRIMONIOUS,BLAND,GENTLE,MGC )@@G@@ILD @A@@@@580DATA 3,ACUMEN,OBTUSENESS,DULLNESS@F@@@@590DATA 6,ADAMANT,GD )@@G@@FELXIBLE,SUBMISSIVE,PLIANT,OBLIGING,RELENTING @E@@@@600DATA 8,AFFABLE,GE )@@G@@UNSOCIABLE,SURLY,TESTY,ILL-TEMPERED,CURT @^@@@@610DATA RUDE,BOORISH GF )@@G@@@C@@@@620DATA 4,AGGRAVATE,DECREASE,ABATE,ALLEVIATE @F@@@@630DATA 6,ALGG )@@G@@ACRITY,APATHY,SLOWNESS,DELAY,UNCONCERN,INDIFFERENCE @E@@@@640DATA 5,ALGH )@@G@@LEVIATE,AGGRAVATE,INTENSIFY,INCREASE,MAGNIFY @B@@@@650DATA 3,ALTRUISTGI )@@G@@IC,EGOISTIC,EGOCENTRIC @D@@@@660DATA 5,AMITY,ENMITY,HOSTILITY,ANTIPATHYGJ )@@G@@,DISCORD @A@@@@670DATA 2,ANACHRONISM,SYNCHRONIZE @D@@@@680DATA 4,ANGK )@@G@@ALOGY,DISSIMILARITY,UNLIKENESS,ANOMALY @D@@@@690DATA 5,ANATHEMA,BENEDGL )@@G@@ICTION,EULOGY,BLESSING,BENISON@F@@@@700DATA 7,APATHY,ENTHUSIASM,INTERESTGM )@@G@@,CONCERN,ZEAL,EAGERNESS,FERVOR@C@@@@710DATA 4,APOSTATE,FOLLOWER,ADHERENTGN )@@G@@,DISCIPLE @D@@@@720DATA 6,APT,INEPT,UNLIKELY,UNFIT,UNSUITABLE,CLUMSY GO )@@G@@@E@@@@730DATA 7,ARBITRARY,FAIR,EQUITABLE,REASONABLE,CONCILIATORY @ @@@@GP )@@G@@740DATA LIMITED,RESTRICTED @D@@@@750DATA 7,ASCETIC,SELF-INDULGENT,SENGQ )@@G@@SUAL,GLUTTONOUS @B@@@@760DATA UNRESTRAINED,HEDONIST,EPICUREAN @D@@@@GR )@@G@@770DATA 4,ASKANCE,DIRECTLY,CONFIDENTLY,TRUSTINGLY @A@@@@780DATA 3,ASGS )@@G@@KEW,STRAIGHT,SYMMETRICAL@[@@@@790END___ 42@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*V@@@@BASIC$EQBJ-$EQBJ-$GU )@@G@@002-69-100 GILBERT 145354455103@@@@@CDVCH0O@@@@@@@@@@@@ GV )@@G@@@@@@@<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@ @@@@100 DIM S$(4),T$(6),Q$(3),A(3)@^@@@@110 MAT READ S$,T$,Q$ @#@@@@GX )@@G@@115 RANDOMIZE @]@@@@120 PRINT @]@@@@130 PRINT @A@@@@140 PRINT 'NGY )@@G@@EXT STUDENT, PLEASE' @ @@@@150 PRINT 'WHAT IS YOUR NAME';@]@@@@160 INGZ )@@G@@PUT N$@^@@@@170 PRINT 'HI, ';N$;',';@E@@@@180 PRINT ' HOW IS YOUR ARITHMHA )@@G@@ETIC: GOOD, FAIR OR POOR'; @]@@@@190 INPUT R$@#@@@@200 FOR Q=1 TO 3 HB )@@G@@@ @@@@210 IF R$=Q$(Q) GO TO 250 @]@@@@220 NEXT Q @^@@@@230 PRINT 'IHC )@@G@@ SAID:'; @#@@@@240 GO TO 180 @#@@@@250 LET Z=10*Q @A@@@@260 LEHD )@@G@@T S=INT((2*INT(Q/2)+2)*RND+1) @]@@@@270 LET W=0 @B@@@@280 LET A(1)=INT(ZHE )@@G@@*RND/(INT(S/3)+1))+1 @A@@@@290 LET A(2)=INT(Z*RND/(INT(S/3)+1))@D@@@@HF )@@G@@300 LET A(3)=A(1)+A(2)+-(A(1)-A(1)*A(2)+A(2))*INT(S/3)@C@@@@310 PRINT A(HG )@@G@@2*INT(S/2)-S+3);S$(S);A(1);' ='; @]@@@@320 INPUT C @B@@@@330 IF C<>A(HH )@@G@@2+S-2*INT(S/2)) GO TO 360 @#@@@@340 LET Z=1.05*Z @#@@@@350 GO TO 26HI )@@G@@0 @#@@@@360 LET W=W+1 @ @@@@370 PRINT T$(2*W-1);N$;T$(2*W)@ @@@@HJ )@@G@@380 ON W GO TO 310,310,120 @B@@@@500 DATA '+','-',X,/,'NO, ',', TRY AHK )@@G@@GAIN.'@D@@@@510 DATA 'THAT''S TWICE NOW, ',', TRY ONCE MORE.' @E@@@@HL )@@G@@520 DATA ' ',', YOU HAD BETTER BRUSH UP ON YOUR ARITHMETIC!'@^@@@@530 DAHM )@@G@@TA POOR,FAIR,GOOD @]@@@@999 END ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@ @@@@50 DIMHP )@@G@@ Q$(11),W$(3),R$(2) @#@@@@51 FOR L = 1 TO 11@#@@@@52 READ Q$(L) HQ )@@G@@@]@@@@53 NEXT L @]@@@@55 RANDOMIZE@#@@@@56 FOR M = 1 TO 3 @#@@@@57 REAHR )@@G@@D W$(M) @]@@@@58 NEXT M @ @@@@60 PRINT 'WHAT IS YOUR NAME'; @#@@@@HS )@@G@@61 FOR K = 1 TO 2 @#@@@@62 READ R$(K) @]@@@@63 NEXT K @]@@@@65 INPHT )@@G@@UT N$ @^@@@@70 PRINT 'HI, ';N$;', ';@ @@@@75 PRINT 'HOW ARE YOU TODAY'; HU )@@G@@@]@@@@80 INPUT R$ @#@@@@85 FOR K = 1 TO 11@ @@@@90 IF R$ = Q$(K) THEN *+HV )@@G@@2 @]@@@@95 NEXT K @^@@@@100 IF K<=6 THEN *+5 @^@@@@105 IF K>6 THW )@@G@@HEN *+6 @^@@@@110 IF K = 11 GO TO *+1 @^@@@@115 IF RND <=.5 THEN *+2HX )@@G@@@^@@@@120 IF RND > .5 THEN *+3@C@@@@125 PRINT 'WONDERFUL, LET US BEGIN, HY )@@G@@';N$;'.' @#@@@@130 GO TO *+3 @F@@@@135 PRINT 'SORRY TO HEAR THAT HZ )@@G@@';N$; ' BUT LET US TRY NO MATTER' @E@@@@140 PRINT 'WHAT AILS YOU , FORIA )@@G@@ WE ALL HAVE OUR PROBLEMS.' @E@@@@145 PRINT 'THE TOPIC FOR TODAY IS ARIB )@@G@@RANGEMENTS OF OBJECTS.' @B@@@@150 PRINT 'LET US BEGIN WITH AN EXAMPLE.' IC )@@G@@@F@@@@155 PRINT 'BILL IS DECIDING ON TAKING A TRIP FROM LA TO NEW YORK' ID )@@G@@@F@@@@160 PRINT 'VIA CHICAGO. THERE ARE THREE FLIGHTS TO CHICAGO FROM' IE )@@G@@@F@@@@165 PRINT 'LA AND TWO FLIGHTS FROM CHICAGO TO NEW YORK. LABEL' IF )@@G@@@G@@@@170 PRINT 'THE FLIGHTS FROM LA TO CHICAGO A, B, C AND THE FLIGHTS IG )@@G@@' @G@@@@175 PRINT 'FROM CHICAGO TO NEW YORK 1 AND 2. IF BILL TAKES IH )@@G@@FLIGHT' @G@@@@180 PRINT 'A OUT OF LA AND FLIGHT 1 OUT OF CHICAGO, LEII )@@G@@T US AGREE TO ' @A@@@@185 PRINT 'LABEL THIS TRIP BY A1.' @F@@@@190 PRIJ )@@G@@INT 'HOW WOULD WE LABEL THE TRIP IF BILL DECIDED TO TAKE' @E@@@@195 PRIK )@@G@@INT 'FLIGHT B TO CHICAGO AND FLIGHT 1 TO NEW TORK' @]@@@@200 PRINT IL )@@G@@@]@@@@205 C = 0 @]@@@@210 INPUT M$@#@@@@215 C = C + 1 @ @@@@220 IFIM )@@G@@ M$ = 'B2' THEN *+3 @^@@@@225 IF C = 2 THEN *+6 @#@@@@230 GO TO *+IN )@@G@@3 @D@@@@235 PRINT 'EXCELLENT CHOICE - YOU ARE SHARP TODAY.' @#@@@@IO )@@G@@240 GO TO *+4 @A@@@@245 PRINT 'NO, ';N$;', TRY AGAIN.' @#@@@@250 GOIP )@@G@@ TO *-8 @C@@@@255 PRINT 'THAT IS TWICE, THE ANSWER IS B2.' @E@@@@IQ )@@G@@260 PRINT 'WE COULD CONTINUE CHECKING OUT MORE SUCH TRIPS' @ @@@@265 PRIR )@@G@@INT 'BUT LET US GO ON.' @]@@@@270 PRINT @#@@@@275 FOR T = 1 TO 3@#@@@@IS )@@G@@280 LET F$ = W$(T)@E@@@@285 PRINT'IF BILL TAKES FLIGHT ';F$;' OUT OF LA,IT )@@G@@ HOW MANY' @C@@@@290 PRINT 'DIFFERENT WAYS CAN HE TRAVEL TO N.Y.'@]@@@@IU )@@G@@295 INPUT R$@ @@@@300 IF R$ = R$(1) THEN *+4 @ @@@@305 IF R$ = R$(2) IV )@@G@@THEN *+3 @F@@@@310 PRINT 'THE ANSWER IS 2 WAYS, NAMELY,';F$;'1';' ANDIW )@@G@@ ';F$; '2' @#@@@@315 GO TO *+2 @#@@@@320 PRINT 'GOOD' @]@@@@325 NEIX )@@G@@XT T @F@@@@330 PRINT 'SO THE TOTAL NUMBER OF WAYS TO GET FROM LA TO NY IY )@@G@@VIA' @E@@@@335 PRINT 'CHICAGO IS 6, SINCE THE NUMBER OF WAYS TO GET' IZ )@@G@@@E@@@@340 PRINT 'FROM LA TO CHICAGO WAS 3: AND FROM CHICAGO TO NY'@F@@@@JA )@@G@@345 PRINT 'WAS 2, AND AS YOU HAVE PROBABLY OBSERVED, 3*2 = 6.' @D@@@@JB )@@G@@350 PRINT 'COULD THIS BE THE BEGINNINGS OF A PATTERN.'@E@@@@355 PRINT 'YJC )@@G@@OU MIGHT THINK ABOUT THE FOLLOWING PROBLEM.' @F@@@@360 PRINT 'HOW MANJD )@@G@@Y DIFFERENT DINNERS COULD BE ORDERED IF THE' @E@@@@365 PRINT 'WAITRESJE )@@G@@S TELLS YOU THAT YOU HAVE A CHOICE OF TWO'@D@@@@370 PRINT 'APETIZERS, 5 JF )@@G@@ENTREES, AND 3 DESSERTS.' @B@@@@375 PRINT 'TILL WE MEET AGAIN - THINJG )@@G@@K.' @D@@@@380 DATA 'FAIR', 'FINE', 'OK', 'OKAY', 'GREAT', 'GOOD'@E@@@@JH )@@G@@385 DATA 'NOT SO GOOD', 'TIRED', 'BAD', 'POOR', 'OTHER' @A@@@@390 DAJI )@@G@@TA 'A', 'B', 'C', '2', 'TWO' @]@@@@999 END ___ INPUT M$@#@@@@215 C JJ )@@G@@= C + 1 @ @@@@220 IF*[@@@@*SDFF*@A@@@@10 PRINT 'LESSON 5 - ASSIGNMENJK )@@G@@TS' @]@@@@20 PRINT @F@@@@100PRINT'THIS LESSON EXPLAINS THE ANJL )@@G@@D STATEMENTS AND' @F@@@@110PRINT'THE USE OF THE COMPUTER AS A HIGHJM )@@G@@-SPEED CALCULATOR.' @]@@@@111 PRINT @ @@@@120PRINT'SAMPLE PROGRAM:JN )@@G@@' @]@@@@121 PRINT @^@@@@130PRINT'10 READ A,B' @B@@@@150PRINT'20 JO )@@G@@LET C=(A**2 + B**2)**(.5)' @E@@@@155PRINT'30 PRINT ''IF THE LEGS OF AJP )@@G@@ RIGHT TRIANGLE ARE:''' @A@@@@160PRINT'40 PRINT A;'' AND '';B' @C@@@@JQ )@@G@@170PRINT'50 PRINT ''THE HYPOTENUSE IS '';C' @ @@@@180PRINT'100 DATA JR )@@G@@11.23, 4.8' @#@@@@190PRINT'9999 END'@]@@@@191 PRINT @F@@@@200PRINT'THEJS )@@G@@ SAMPLE PROGRAM CALCULATES THE LENGTH OF THE HYPOT-' @G@@@@210PRINT'ENUJT )@@G@@SE OF A RIGHT TRIANGLE. THE LENGTHS OF THE TWO LEGS ARE' @F@@@@220PRIJU )@@G@@NT'ASSIGNED IN LINE 10. LINE 20 SQUARES THE LENGTHS, FINDS'@G@@@@230PRIJV )@@G@@NT'THE SQUARE ROOT OF THE SUM, AND ASSIGNS THE RESULT TO THE' @G@@@@JW )@@G@@240PRINT'VARIABLE C. LINES 30, 40, AND 50 PRINT OUT A MESSAGE' JX )@@G@@@G@@@@250PRINT'WHICH GIVES THE RESULTS IN FANCY FORM. LINE 100 CONTAINSJY )@@G@@' @G@@@@260PRINT'THE LEG LENGTHS. LINE 9999 IS AN STATEMENT: JZ )@@G@@AN ' @G@@@@265PRINT'STATEMENT MUST BE THE LAST STATEMENT IN ANY BKA )@@G@@ASIC PROGRAM.' @]@@@@268 PRINT @G@@@@270PRINT'THE STATEMENT CKB )@@G@@ALCULATES THE VALUE OF THE EXPRESSION' @F@@@@280PRINT'ON THE RIGHT OFKC )@@G@@ THE = AND ASSIGNS THAT VALUE TO A SINGLE'@E@@@@285PRINT'VARIABLE ON THEKD )@@G@@ LEFT. IT IS NOT AN EQUATION.' @]@@@@286 PRINT @G@@@@290PRINT'IF KE )@@G@@YOU WANT TO STOP NOW AND WRITE A COMPUTATIONAL PROGRAM,' @F@@@@300PRIKF )@@G@@NT'PERHAPS STARTING WITH THE EXAMPLE GIVEN, TYPE ''STOP''.' @G@@@@310PRIKG )@@G@@NT'AFTER THE COMPUTER GIVES YOU A TIME ESTIMATE, TYPE ''NEW''.' @G@@@@KH )@@G@@320PRINT'THE COMPUTER WILL ASK YOU FOR A NEW PROGRAM NAME. TYPE ONE' KI )@@G@@@G@@@@330PRINT'(1 TO 12 CHARACTERS) AND START TYPING IN YOUR PROGRAM WHEKJ )@@G@@N' @G@@@@340PRINT'THE MACHINE REPLIES ''>''. WHEN YOU HAVE TYPED IN KK )@@G@@ALL THE' @C@@@@350 PRINT'STATEMENTS OF YOUR PROGRAM, TYPE:' @]@@@@KL )@@G@@355 PRINT @#@@@@356 PRINT'RUN' @]@@@@357 PRINT @ @@@@360 PRINT'ENKM )@@G@@D OF LESSON FIVE.'@]@@@@9838 PRINT @D@@@@9839 PRINT 'WHICH LESSON WOULDKN )@@G@@ YOU LIKE NEXT (1-9)'; @]@@@@9840 INPUT N@ @@@@9842 IF N>0 AND N<10 THEKO )@@G@@N 9851@D@@@@9844 PRINT 'ONLY TYPE IN NUMBERS BETWEEN 1 AND 9.' @#@@@@KP )@@G@@9846 GO TO 9840 @A@@@@9851 IF N=1 THEN CHAIN PROCEDURES @A@@@@9852 IKQ )@@G@@F N=2 THEN CHAIN COMMANDS @A@@@@9853 IF N=3 THEN CHAIN DEFINITIONS KR )@@G@@@A@@@@9854 IF N=4 THEN CHAIN INPUT-OUTPUT @A@@@@9855 IF N=5 THEN CHAIN AKS )@@G@@SSIGNMENTS @A@@@@9856 IF N=6 THEN CHAIN TRANSFERS @A@@@@9857 IF N=7 KT )@@G@@THEN CHAIN FOR-TO-NEXT @ @@@@9858 IF N=8 THEN CHAIN STRINGS@A@@@@9859 IKU )@@G@@F N=9 THEN CHAIN MORECOMMANDS @]@@@@9999END ___@@@*SDFF*@A@@@@10 PRIKV )@@G@@NT 'LESSON 5 - ASSIGNMENTS' @]@@@@20 PRINT @F@@@@100PRINT'THIS LESSKW )@@G@@ON EXPLAINS THE AND STATEMENTS AND' @F@@@@110PRINT'THE USE OKX )@@G@@*[@@@@*SDFF*@C@@@@0010 PRINT 'CADEC-69 TRANSISTOR BIAS PROGRAM' @B@@@@KY )@@G@@0020 PRINT 'WRITTEN BY W. N. ABBOTT' @]@@@@0030 PRINT@F@@@@0050 KZ )@@G@@ PRINT 'FEED IN THE FOLLOWING TRANSISTOR CHARACTERISTICS' @C@@@@0060 LA )@@G@@ PRINT 'WHAT IS THE MAXIMUM VCE IN VOLTS';@#@@@@0070 INPUT V1 @D@@@@LB )@@G@@0080 PRINT 'WHAT IS THE MAXIMUM IC IN MILLIAMPS'; @#@@@@0090 INPUTLC )@@G@@ I1 @D@@@@0100 PRINT 'WHAT IS THE MAXIMUM PC IN MILLIWATTS'; @#@@@@LD )@@G@@0110 INPUT P1 @G@@@@0120 PRINT 'WHAT IS THE MAXIMUM JUNCTION TEMPELE )@@G@@RATURE IN DEG. CENT;' @#@@@@0130 INPUT T2 @^@@@@0140 IF T2>0 THELF )@@G@@N 170 @F@@@@0150 PRINT 'WHAT IS THE THERMAL RESISTANCE OF THE TRANSISTLG )@@G@@OR'; @#@@@@0160 INPUT T1 @C@@@@0170 PRINT 'WHAT IS THE ICO IN MICLH )@@G@@ROAMPS'; @#@@@@0180 INPUT I2 @^@@@@0190 I2 = I2/1000 @E@@@@LI )@@G@@0200 PRINT 'WHAT IS THE MINIMUM, TYPICAL, MAXIMUM HFE'; @^@@@@0210 LJ )@@G@@ INPUT B1, B2, B3 @B@@@@0220 PRINT 'WHAT IS THE VBE IN VOLTS';@#@@@@LK )@@G@@0230 INPUT V3 @B@@@@0240 PRINT 'WHAT IS THE HIE IN KILOHMS';@#@@@@LL )@@G@@0250 INPUT Z3 @]@@@@0260 PRINT@E@@@@0270 PRINT 'FEED IN THE FOLLLM )@@G@@OWING CIRCUIT PARAMETERS:' @B@@@@0280 PRINT 'WHAT IS THE SUPPLY VOLLN )@@G@@TAGE';@#@@@@0290 INPUT V2 @D@@@@0300 PRINT 'WHAT IS THE NOMINAL CULO )@@G@@RRENT IN MA.'; @#@@@@0310 INPUT I5 @F@@@@0320 PRINT 'WHAT PERCELP )@@G@@NT OF VCC IS TO BE DROPPED ACROSS THE' @A@@@@0321 PRINT 'EMITTER RELQ )@@G@@SISTANCE'; @#@@@@0330 INPUT V5 @^@@@@0340 V5 = V2*V5/100 @F@@@@LR )@@G@@0350 PRINT 'WHAT IS THE AMBIENT TEMPERATURE IN DEG. CENT.'; @#@@@@LS )@@G@@0360 INPUT T3 @E@@@@0370 PRINT 'WHAT IS THE MAXIMUM PERCENTAGE CHALT )@@G@@NGE FOR IC';@#@@@@0380 INPUT I4 @E@@@@0390 PRINT 'WHAT IS THE LOW LU )@@G@@FREQUENCY 3DB POINT IN HZ'; @#@@@@0400 INPUT F1 @ @@@@0410 IF V2LV )@@G@@<0.90*V1 THEN 440 @ @@@@0420 PRINT 'VCC TOO HIGH' @ @@@@0440 IF I5LW )@@G@@ <0.40*I1 THEN 470@ @@@@0450 PRINT 'IC TOO HIGH' @A@@@@0470 IF V2LX )@@G@@*I5<0.8*P1 THEN 0500 @ @@@@0480 PRINT 'POWER TOO HIGH' @A@@@@0500 LY )@@G@@ IF V2*I5<0.50*P1 THEN 0520 @B@@@@0510 PRINT 'A HEAT SINK IS RECOMMELZ )@@G@@NDED' @ @@@@0520 IF T2<=0 THEN 0540 @^@@@@0530 T1 = (T2-25)/P1 MA )@@G@@@A@@@@0540 IF T3+V2*I5*T1 0 THENMG )@@G@@ 0050 @^@@@@0630 IF X<0 THEN 0270 @#@@@@0640 R4 = V5/I5 @^@@@@0650 MH )@@G@@ R3 = (V2-V5)/2*I5@A@@@@0660 I3 = I2*(2**((T3-25)/10)-1) @ @@@@0670 MI )@@G@@ S1 = I4*I5/(100*I3) @B@@@@0680 S3 = (B3+1)*B1*S1*I3/(I5*(B3-B1)) MJ )@@G@@@ @@@@0690 S2 = S1*S3/(S1+S3) @B@@@@0700 R5 = (1+B2)*(S2-1)*R4/(MK )@@G@@B2+1-S2) @ @@@@0710 R1 = R5*V2/(V5+V3) @ @@@@0720 R2 = V2*R5/ML )@@G@@(V2-V5-V3) @ @@@@0730 Z1 = R5*Z3/(R5+Z3) @^@@@@0740 R4 = R4*100MM )@@G@@0 @B@@@@0750 C1 = 5.0E+03/(3.1415927*F1*Z1) @B@@@@0760 C2 = MN )@@G@@5.0E+06/(3.1415927*R4*F1) @B@@@@0770 C3 = 5.0E+03/(3.1415927*F1*R3MO )@@G@@) @^@@@@0780 A1 = B2*R3/Z3 @^@@@@0790 A2 = A1*A1+Z3/R3 @^@@@@MP )@@G@@0800 A3 = 10*LGT(A2) @ @@@@0810 PRINT 'DESIGN SPECS:' @ @@@@0820 MQ )@@G@@ PRINT 'R1 = '; R1; ' K'@ @@@@0830 PRINT 'R2 = '; R2; ' K'@ @@@@0840 MR )@@G@@ PRINT 'R3 = '; R3; ' K'@A@@@@0850 PRINT 'R4 = '; R4; ' OHMS' @A@@@@MS )@@G@@0860 PRINT 'C1 = '; C1; ' UF' @A@@@@0870 PRINT 'C2 = '; C2; ' UFMT )@@G@@' @A@@@@0880 PRINT 'C3 = '; C3; ' UF' @^@@@@0890 V4 = 0.35*(MU )@@G@@V2-V5)@#@@@@0900 V6 = V4/A1 @]@@@@0910 PRINT@^@@@@0920 PRINT 'AV =MV )@@G@@ '; A1@B@@@@0930 PRINT 'AP = '; A2; ', '; A3; ' DB' @A@@@@0940 PRINTMW )@@G@@ 'ZIN = '; Z1; ' K' @A@@@@0950 PRINT 'ZOUT = '; R3; ' K' @ @@@@MX )@@G@@0960 PRINT 'VIN MAX = '; V6 @ @@@@0970 PRINT 'VOUT MAX ='; V4 @]@@@@MY )@@G@@0980 PRINT@C@@@@0990 PRINT '+1 CHANGE TRANS AND CIR DATA' @A@@@@MZ )@@G@@1000 PRINT '-1 CIRCUIT DATA ONLY'@ @@@@1010 PRINT '0 TERMINATES' NA )@@G@@@#@@@@1020 INPUT X @^@@@@1030 IF X>0 THEN 050 @^@@@@1040 IF X9OD )@@G@@9 GO TO 120 @^@@@@118 LET Z1=Z1+1900 @^@@@@120 LET U=FND(X1,Y1,Z1)OE )@@G@@@E@@@@140 PRINT 'TODAY IS ';Y$(U-7*INT(U/7)+1);'DAY (I HOPE)' @]@@@@OF )@@G@@205 PRINT @C@@@@220 PRINT'HI, I''M THE UNIVAC 1108 COMPUTER.' @ @@@@OG )@@G@@225 PRINT'TELL ME YOUR NAME';@#@@@@230 INPUT N$ @#@@@@235 LET K$=OH )@@G@@N$ @#@@@@236 LET N = 0 @^@@@@240 CHANGE N$ TO N @ @@@@245 FOI )@@G@@OR I=N(0) TO 1 STEP -1 @^@@@@250 IF N(I)=5 GO TO 270@]@@@@255 NEXT I OJ )@@G@@@#@@@@260 GO TO 400 @#@@@@270 LET N(0)=I-1 @^@@@@280 CHANGE N TO KOK )@@G@@$ @B@@@@300 PRINT'ARE YOU USUALLY CALLED ';K$; @#@@@@305 INPUT AOL )@@G@@$ @ @@@@310 ON FNA GO TO 315,330,305 @B@@@@315 PRINT'WHAT DO YOU LOM )@@G@@IKE TO BE CALLED';@#@@@@320 INPUT K$ @C@@@@330 PRINT'SO YOUR FULL ON )@@G@@NAME IS ';N$;', BUT YOU'@B@@@@335 PRINT'LIKE TO BE CALLED ';K$;'.' OO )@@G@@@A@@@@400 PRINT'HOW OLD ARE YOU, ';K$; @]@@@@405 INPUT A@#@@@@407 LOP )@@G@@ET A=INT(A) @A@@@@410 IF INT((A-5)/95)=0 GO TO 425 @D@@@@415 PRINT'COQ )@@G@@OME ON, ';K$;', YOU''RE PULLING MY LEG.' @#@@@@420 GO TO 400 @B@@@@OR )@@G@@425 PRINT'SO YOU ARE';A;'YEARS OLD.' @F@@@@430 PRINT'DO YOU KNOW, OS )@@G@@OFF HAND, HOW MANY DAYS OLD YOU ARE'; @#@@@@435 INPUT A$ @ @@@@OT )@@G@@440 ON FNA GO TO 500,445,435 @A@@@@445 PRINT'OK, SMARTY, HOW MANY?' OU )@@G@@@F@@@@465 PRINT'SORRY, ';K$;', YOU''LL HAVE TO BE FASTER THAN THAT!' OV )@@G@@@#@@@@470 GO TO 9999 @A@@@@500 PRINT'OK, I''LL TELL YOU.' @B@@@@OW )@@G@@505 PRINT'IN WHAT MONTH WERE YOU BORN'; @#@@@@510 INPUT M$ @#@@@@OX )@@G@@515 FOR X=1 TO 12@ @@@@520 IF M$=Z$(X) GO TO 540 @]@@@@525 NEXT X OY )@@G@@@E@@@@530 PRINT K$;', YOU MAY BE NICE BUT YOU CAN''T SPELL.' @#@@@@OZ )@@G@@535 GO TO 505 @^@@@@540 PRINT'ON WHAT DAY';@]@@@@545 INPUT Y@#@@@@PA )@@G@@548 LET Z=Z1-A @A@@@@550 IF INT((Y-1)/L(X))=0 GO TO 600 @D@@@@555 IPB )@@G@@F (X-1)*(Y-28)*(Z-4*INT(Z/4)+1)=1 GO TO 600 @E@@@@560 PRINT'COME ONPC )@@G@@, ';N$;', YOU''RE GIVING ME A HARD TIME.' @#@@@@565 GO TO 540 @]@@@@PD )@@G@@600 REM @^@@@@605 LET W=FND(X1,Y1,Z) @^@@@@610 LET V=FND(X,Y,Z) PE )@@G@@@^@@@@612 IF W=> V GO TO 615 @#@@@@613 LET Z=Z-1 @ @@@@615 IF ABS(PF )@@G@@W-V)>30 GO TO 700 @A@@@@620 ON SGN(W-V)+2 GO TO 630,650,640@F@@@@630 PPG )@@G@@RINT'YOU HAVE A BIRTHDAY COMING UP IN ONLY';V-W;'DAYS!' @#@@@@635 GPH )@@G@@O TO 700 @G@@@@640 PRINT'YOUR BIRTHDAY WAS ONLY';W-V;'DAYS AGO. CONGPI )@@G@@RATULATIONS!' @#@@@@645 GO TO 700 @F@@@@650 PRINT'HAPPY BIRTHDAPJ )@@G@@Y, DEAR ';K$;', HAPPY BIRTHDAY TO YOU.' @^@@@@700 LET V=FND(X,Y,Z) PK )@@G@@@G@@@@710 PRINT'YOU WERE BORN ON ';Y$(V-7*INT(V/7)+1);'DAY, ';Z$(X);Y;'PL )@@G@@,';Z @C@@@@715 PRINT'WHICH MAKES YOU';U-V;'DAYS OLD.' @F@@@@720 PPM )@@G@@RINT'YOU WERE BORN ON THE DAY';V;'AD, AND ON JAN. 1, 2000' @C@@@@725 PPN )@@G@@RINT'YOU WILL BE';730480-V;'DAYS OLD.' @ @@@@730 PRINT'HOW ABOUT THAPO )@@G@@T!!!' @]@@@@735 PRINT @#@@@@738 GOSUB 2000 @^@@@@740 PRINT'WELL, 'PP )@@G@@;N$; @^@@@@745 IF N$=K$ GO TO 755 @ @@@@750 PRINT' (ALIAS ';K$;')' PQ )@@G@@@F@@@@755 PRINT' IT HAS BEEN NICE CHATTING WITH YOU. DO COME AGAIN.' PR )@@G@@@^@@@@760 PRINT'GOOD BYE' @#@@@@770 GO TO 9999 @]@@@@800 DEF FNA PS )@@G@@@#@@@@805 LET FNA=1 @^@@@@810 IF A$='NO' GO TO 850@^@@@@815 IF A$='NPT )@@G@@0' GO TO 850@#@@@@820 LET FNA=2 @ @@@@825 IF A$='YES' GO TO 850 PU )@@G@@@#@@@@830 LET FNA=3 @B@@@@835 PRINT 'A SIMPLE YES OR NO WILL DO! ' PV )@@G@@@]@@@@850 FNEND @#@@@@900 DEF FND(X,Y,Z)@#@@@@902 LET FND=Y-1 @^@@@@PW )@@G@@905 FOR I1=1 TO X-1 @^@@@@910 LET FND=FND+L(I1) @]@@@@915 NEXT I1 PX )@@G@@@^@@@@918 LET I1=INT(Z/100) @ @@@@920 IF Z<>4*INT(Z/4) GO TO 935@ @@@@PY )@@G@@922 IF Z/100=I1 GO TO 935 @^@@@@925 IF FND>59 GO TO 935@^@@@@928 IFPZ )@@G@@ X=3 GO TO 935 @#@@@@930 LET FND=FND-1 @C@@@@935 LET FND=FND+36524*IQA )@@G@@1+INT(365.25*(Z-100*I1))@]@@@@950 FNEND @A@@@@2000 REM GENERATE RANDOMQB )@@G@@ HOROSCOPE @ @@@@2001 LET R1=INT(12*RND)+1 @ @@@@2005 LET R2 = INT(QC )@@G@@12*RND)+1 @ @@@@2010 IF R1=R2 GO TO 2005 @]@@@@2015 LET R=1@F@@@@QD )@@G@@2050 PRINT'YOU WERE BORN UNDER THE ';H$(FNR(4));' OF ';G$(R1) @E@@@@QE )@@G@@2055 PRINT'AND ';G$(R2);'. YOU ARE A BASICALLY ';H$(FNR(4))@D@@@@2060 PQF )@@G@@RINT'PERSON BUT ';H$(FNR(3));' YOU ';H$(FNR(3)) @D@@@@2065 PRINT H$(FNR(QG )@@G@@3));' WITH ';H$(FNR(4));H$(FNR(2)) @G@@@@2070 PRINT H$(FNR(5));' FOR THQH )@@G@@E NEXT WEEK. I PREDICT YOU WILL SOON' @^@@@@2075 PRINT H$(FNR(4)) QI )@@G@@@]@@@@2080 PRINT @]@@@@2095 RETURN @#@@@@2200 DEF FNR(X) @ @@@@2205 LQJ )@@G@@ET FNR=INT(X*RND)+R @#@@@@2210 LET R=R+X @]@@@@2215 FNEND @]@@@@QK )@@G@@9999 END ___FNR(X) @ @@@@2205 LET FNR=INT(X*RND)+R @#@@@@2210 LQL )@@G@@ET R=R+X @]@@@@2215 FNEND @]@@@@9999 END *[S@@@*SDFF*@D@@@@100 REQM )@@G@@M DESCRIPTION OF VARIABLES USED IN THIS PROGRAM:@ @@@@110 REM N$=NAMES OQN )@@G@@F PLAYERS @A@@@@120 REM N3=NUMBER OF CARDS DEALT @ @@@@130 REM N=NUQO )@@G@@MBER OF PLAYERS @C@@@@140 REM V(X)=POINT VALUE OF HAND OF PLAYERS QP )@@G@@@#@@@@150 REM L=DECK @B@@@@160 REM V9=POINT VALUE OF DEALER'S HAND QQ )@@G@@@A@@@@170 REM W3=NUMBER OF PLAYERS BUSTED @B@@@@180 REM N9=NUMBER OF CARQR )@@G@@DS DEALT TO DEALER@]@@@@190 REM @#@@@@200 DIM N$(40) @#@@@@210 DIQS )@@G@@M V(40) @]@@@@220 N3=0 @^@@@@230 PRINT 'GOOD DAY' @]@@@@240 PRQT )@@G@@INT @C@@@@250 PRINT 'HOW MANY MEMBERS IN YOUR PARTY'; @]@@@@260 INQU )@@G@@PUT N @G@@@@270 PRINT'ENTER THE NAMES OF THE MEMBERS OF YOUR PARTY ONE TQV )@@G@@O A LINE' @#@@@@280 FOR Z = 1 TO N@#@@@@290 INPUT N$(Z) @]@@@@300 NEQW )@@G@@XT Z @#@@@@310 RANDOMIZE @^@@@@320 REM SET UP DECK @#@@@@330 FOQX )@@G@@R G=1 TO N @]@@@@340 V(G)=0 @]@@@@350 NEXT G @#@@@@360 DIM L(51) QY )@@G@@@#@@@@370 GOSUB 1790 @]@@@@380 V9=0 @]@@@@390 W3=0 @#@@@@400 FOQZ )@@G@@R P = 1TON @]@@@@410 PRINT @A@@@@420 PRINT N$(P);'''S CARDS ARE:' RA )@@G@@@]@@@@430 PRINT @#@@@@440 FOR C=1 TO 2 @^@@@@450 REM DEAL A CARD RB )@@G@@@^@@@@460 I = INT(52*RND) @]@@@@470 X = L(I)@^@@@@480 IF X < 0 THEN RC )@@G@@460 @]@@@@490 N3=N3+1 @^@@@@500 IF N3<51 THEN 530 @C@@@@510 PRINT 'ORD )@@G@@UT OF CARD..TIME TO RESHUFFLE.' @#@@@@520 GOSUB 1790 @#@@@@530 L(RE )@@G@@I) = -1 @^@@@@540 REM PRINT A CARD @#@@@@550 S = INT(X/13) @#@@@@RF )@@G@@560 V= X- 13*S @]@@@@570 V=V+1 @]@@@@580 S=S+1 @ @@@@590 ON S THERG )@@G@@N 600,620,640,660 @#@@@@600 PRINT'CLUB ';@]@@@@610 GOTO 670@^@@@@620 PRRH )@@G@@INT'DIAMOND '; @]@@@@630 GOTO 670@^@@@@640 PRINT'HEART '; @]@@@@RI )@@G@@650 GOTO 670@^@@@@660 PRINT 'SPADE '; @^@@@@670 IF V>9 THEN 700 RJ )@@G@@@#@@@@680 PRINT V+1 @]@@@@690 GOTO 780@F@@@@700 ON V THEN 190,190,19RK )@@G@@0,190,190,190,190,190,190,710,730,750,770 @#@@@@710 PRINT'JACK ' @]@@@@RL )@@G@@720 GOTO 780@#@@@@730 PRINT'QUEEN' @]@@@@740 GOTO 780@#@@@@750 PRINT 'KRM )@@G@@ING' @]@@@@760 GOTO 780@#@@@@770 PRINT'ACE' @#@@@@780 REM CHECK WIN RN )@@G@@@^@@@@790 IF V= 13 THEN 810 @]@@@@800 GOTO 830@]@@@@810 V=10 @]@@@@RO )@@G@@820 GOTO 860@^@@@@830 IF V>9 THEN 850 @]@@@@840 GOTO 860@]@@@@850 V=RP )@@G@@9 @#@@@@860 V(P)=V(P)+1+V @ @@@@870 IF V(P) = 21 THEN 1470 @^@@@@RQ )@@G@@880 IF V(P)>21 THEN 1490@]@@@@890 NEXT C @C@@@@900 PRINT N$(P);' DO YOURR )@@G@@ WANT ANOTHER CARD'; @]@@@@910 INPUT Y$@^@@@@920 IF Y$='YES' THEN 450RS )@@G@@@]@@@@930 NEXT P @]@@@@940 N9=0 @]@@@@950 PRINT @B@@@@960 PRINT' TRT )@@G@@HE DEALER HAS THESE CARDS' @]@@@@970 PRINT @^@@@@980 REM DEAL A CARRU )@@G@@D @^@@@@990 I = INT(52*RND) @#@@@@1000 X = L(I) @]@@@@1010 NRV )@@G@@9=N9+1@^@@@@1020 IFX< 0 THEN 990 @]@@@@1030 N3=N3+1@^@@@@1040 IF N3<5RW )@@G@@1 THEN 1070 @C@@@@1050 PRINT 'OUT OF CARDS..TIME TO RESHUFFLE.' @#@@@@RX )@@G@@1060 GOSUB 1790 @#@@@@1070 L(I) = -1 @^@@@@1080 REM PRINT A CARD RY )@@G@@@#@@@@1090 S = INT(X/13)@#@@@@1100 V= X- 13*S @]@@@@1110 V=V+1 @]@@@@RZ )@@G@@1120 S=S+1 @A@@@@1130 ON S THEN 1140,1160,1180,1200 @^@@@@1140 PRINT'CSA )@@G@@LUB '; @#@@@@1150 GOTO 1210 @^@@@@1160 PRINT'DIAMOND '; @#@@@@SB )@@G@@1170 GOTO 1210 @^@@@@1180 PRINT'HEART '; @#@@@@1190 GOTO 1210 SC )@@G@@@^@@@@1200 PRINT 'SPADE '; @^@@@@1210 IF V>9 THEN 1240 @#@@@@1220 PSD )@@G@@RINT V+1 @#@@@@1230 GOTO 1320 @G@@@@1240 ON V THEN 190,190,190,190SE )@@G@@,190,190,190,190,190,1250,1270,1290,1310 @#@@@@1250 PRINT'JACK '@#@@@@SF )@@G@@1260 GOTO 1320 @#@@@@1270 PRINT 'QUEEN'@#@@@@1280 GOTO 1320 @^@@@@SG )@@G@@1290 PRINT 'KING ' @#@@@@1300 GOTO 1320 @#@@@@1310 PRINT 'ACE' SH )@@G@@@C@@@@1320 REM DEALER CHECK WIN LOSE OR MORE CARDS @^@@@@1330 IF V=13SI )@@G@@ THEN 1350 @#@@@@1340 GOTO 1370 @]@@@@1350 V=10 @#@@@@1360 GOTO 14SJ )@@G@@00 @^@@@@1370 IF V>9 THEN 1390 @#@@@@1380 GOTO 1400 @]@@@@1390 VSK )@@G@@=9 @#@@@@1400 V9=V9+V+1 @^@@@@1410 IF V9>21 THEN 1640 @#@@@@1420 FSL )@@G@@OR Q2=1 TO N@^@@@@1430 IF W3=N THEN 1530 @ @@@@1440 IF V9=>V(Q2) THEN 1SM )@@G@@530 @]@@@@1450 NEXT Q2@#@@@@1460 GO TO 980 @^@@@@1470 PRINT ' 21!!!SN )@@G@@' @#@@@@1480 GOTO 930 @^@@@@1490 PRINT 'YOU LOSE.' @]@@@@1500 WSO )@@G@@3=W3+1@#@@@@1510 GOTO 930 @]@@@@1520 PAGE @^@@@@1530 IF N9=1 THEN SP )@@G@@980 @#@@@@1540 FOR T=1 TO N @ @@@@1550 IF V(T) > 21 THEN 1610 @ @@@@SQ )@@G@@1560 IF V(T)-V9<=0 THEN 1590 @E@@@@1570 PRINT 'CONGRATULATIONS ';N$(T);SR )@@G@@', YOU BEAT THE DEALER.'@#@@@@1580 GOTO 1620 @E@@@@1590 PRINT 'SORRY SS )@@G@@';N$(T);', YOU DIDN''T BEAT THE DEALER.' @#@@@@1600 GO TO 1620 @B@@@@ST )@@G@@1610 PRINT 'SORRY ';N$(T);', YOU BUSTED.' @]@@@@1620 NEXT T @#@@@@1630 GSU )@@G@@OTO 1740 @B@@@@1640 PRINT 'THE DEALER BUSTED AND SO '; @]@@@@1650 QSV )@@G@@6=0 @#@@@@1660 FOR Q5=1 TO N@ @@@@1670 IF V(Q5)>21 THEN 1700 @]@@@@SW )@@G@@1680 Q6=1 @^@@@@1690 PRINT N$(Q5);','; @]@@@@1700 NEXT Q5@^@@@@1710 ISX )@@G@@F Q6=1 THEN 1730 @^@@@@1720 PRINT 'NOBODY'; @^@@@@1730 PRINT ' WINS!SY )@@G@@!' @]@@@@1740 PRINT @C@@@@1750 PRINT 'DO YOU WANT TO PLAY ANOTHER ROSZ )@@G@@UND'; @#@@@@1760 INPUT R$ @ @@@@1770 IF R$='YES' THEN 320 @]@@@@TA )@@G@@1780 STOP @^@@@@1790 FOR Z2=0 TO 51 @#@@@@1800 L(Z2)=Z2 @]@@@@TB )@@G@@1810 NEXT Z2@]@@@@1820 N3=0 @]@@@@1830 RETURN @]@@@@1840 END ___@@@TC )@@G@@900 PRINT N$(P);' DO YOU WANT ANOTHER CARD'; @]@@@@910 INPUT Y$@^@@@@TD )@@G@@920 IF Y$='YES' THEN 450@]@@@@930 NEXT P @]@@@@*V@@@@BASIC$EQBJ&FEQBJ&FTE )@@G@@305-05-745 FRIEDLANDER 125164526015@@@@@]BYCE.[@@@@@@@@@@@@ TF )@@G@@@@@@@&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@D@@@@100 REM THIS PROGRAM PRODUCED BY BRAD M FRIEDLANDER @A@@@@110 PRTH )@@G@@INT 'TOTAL MILEAGE TO DATE'; @]@@@@120 INPUT M1@A@@@@125 PRINT 'TOTAL CTI )@@G@@OST TO DATE'; @]@@@@130 INPUT C1@C@@@@140 PRINT 'TOTAL GALLONS CONSUTJ )@@G@@MED TO DATE'; @]@@@@150 INPUT G1@B@@@@160 PRINT 'STARTING ODOMETER RTK )@@G@@EADING'; @]@@@@170 INPUT S1@C@@@@180 PRINT 'INPUT DATE,ODOMETER,COST,TL )@@G@@COST/GAL'; @#@@@@190 INPUT D$,S,C,U@]@@@@200 PRINT @^@@@@220 IF U=0 GTM )@@G@@O TO 360 @#@@@@230 LET G=C/U @#@@@@240 LET G1=G1+G @#@@@@250 LETN )@@G@@T M=S-S1 @#@@@@260 LET R=M/G @]@@@@270 LET S1=S@#@@@@280 LET P=C/TO )@@G@@M @#@@@@290 LET M1=M1+M @A@@@@300 PRINT 'DATE:';D$,'# GAL:';G TP )@@G@@@#@@@@310 LET C1=C1+C @A@@@@320 PRINT 'MPG:';R,'COST/GAL:';P @]@@@@TQ )@@G@@330 PRINT @]@@@@340 PRINT @#@@@@350 GO TO 180 @]@@@@360 LET P=C TR )@@G@@@#@@@@370 LET C1=C1+C @#@@@@380 GO TO 180 @]@@@@390 PRINT @]@@@@TS )@@G@@400 PRINT @]@@@@410 PRINT @B@@@@415 PRINT 'TOTAL GALLONS CONSUMED:';TT )@@G@@G1 @ @@@@420 PRINT 'TOTAL MILEAGE:';M1 @C@@@@430 PRINT 'AVERAGE COST TU )@@G@@PER MILE:';'$';C1/M1 @C@@@@440 PRINT 'AVERAGE MILES PER GALLON:';M1/GTV )@@G@@1 @B@@@@450 PRINT 'TOTAL COST TO DATE: $';C1 @]@@@@460 END TW )@@G@@___ A,@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@D@@@@100 PRINT 'FOR A LIST OF ALL TTX )@@G@@HE GAMES AND THINGS IN' @E@@@@110 PRINT 'THIS FILE, TYPE IN ''CATALOG'' TY )@@G@@OR JUST ''C''.' @]@@@@120 PRINT @F@@@@130 PRINT 'FOR A LIST OF OTHERTZ )@@G@@ GAMES USED TO TEACH GRADE-SCHOOL' @F@@@@140 PRINT 'KIDS, CALL ''OLD:DRUA )@@G@@ILL-TABLE'' AND TYPE ''LIST''.' @]@@@@200 END ___@@@@@@@@@@@@@@@UB )@@G@@*V@@@@BASIC$EQBJ+%EQBJ+%002-69-100 MSTAL 564032357565@@@@@^DVCH"$UC )@@G@@@@@@@@@@@@@@ @@@@@$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@10 DIM Q$(20) @#@@@@20 READ T, N$ UE )@@G@@@#@@@@30 MAT READ Q$ @D@@@@40 PRINT 'THIS IS A TEN-QUESTION QUIZ ON 'UF )@@G@@; N$; '.' @C@@@@50 PRINT 'IF YOU TAKE OVER'; T; 'SECONDS TO' @E@@@@UG )@@G@@60 PRINT 'ANSWER ANY QUESTION, IT WILL BE MARKED WRONG.' @B@@@@70 PRIUH )@@G@@NT 'SPELL OUT NUMERIC ANSWERS.' @E@@@@80 PRINT 'WHEN YOU ARE READY TUI )@@G@@O BEGIN, SAY ''READY''.'; @]@@@@90 INPUT R$ @ @@@@100 IF R$ <> 'READUJ )@@G@@Y' THEN 80 @]@@@@110 S = 0 @^@@@@120 FOR I = 1 TO 10 @^@@@@130 PRUK )@@G@@INT Q$(2*I-1); @]@@@@140 INPUT R$@^@@@@150 IF TYM > T THEN 300 @ @@@@UL )@@G@@160 IF R$ <> Q$(2*I) THEN 200 @#@@@@170 S = S + 10 @^@@@@180 PRINT 'CUM )@@G@@ORRECT.' @#@@@@190 GO TO 350 @#@@@@200 PRINT 'WRONG.'@#@@@@210 GOUN )@@G@@ TO 350 @^@@@@300 PRINT 'TOO LATE.' @]@@@@350 NEXT I @A@@@@400 PRUO )@@G@@INT 'YOUR SCORE IS'; S; '%.' @B@@@@410 PRINT 'I HOPE YOU ENJOYED THIS QUP )@@G@@UIZ.' @B@@@@420 PRINT 'TYPE ''CATALOG*'' TO SEE IF' @C@@@@430 PRINT 'AUQ )@@G@@NY MORE ARE AVAILABLE. GOOD LUCK.' @^@@@@1000 DATA 15, CHEMISTRY @A@@@@UR )@@G@@1010 DATA THE SYMBOL FOR LEAD IS, PB@B@@@@1020 DATA W IS THE SYMBOL FOR,US )@@G@@ TUNGSTEN @F@@@@1030 DATA PERIODIC TABLES HAVE (?) RIGHT BELOW OXYGEN,UT )@@G@@ SULFUR @E@@@@1040 DATA A BENZENE MOLECULE HAS HOW MANY CARBON ATOMSUU )@@G@@, SIX @D@@@@1050 DATA THE STANNOUS ION IS A(N) (?) AGENT, REDUCING@B@@@@UV )@@G@@1060 DATA WHAT COLOR IS CHROMATE, YELLOW @C@@@@1070 DATA IS MERCURIC CHUW )@@G@@LORIDE SOLUBLE, YES @D@@@@1080 DATA AN ACETONE MOLECULE HAS HOW MANYUX )@@G@@ ATOMS, TEN @B@@@@1090 DATA THE FORMULA FOR PROPANE IS, C3H8@F@@@@1100 DUY )@@G@@ATA HOW MANY MOLES OF N2 AT STP OCCUPY 22.4 LITERS, ONE @]@@@@9999 EUZ )@@G@@ND ___OR'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@B@@@@10 PRIVB )@@G@@NT 'LESSON 2 - SYSTEM COMMANDS' @]@@@@20 PRINT @G@@@@500PRINT'THEVC )@@G@@ FOLLOWING ARE SYSTEM COMMANDS AVAILABLE ON UNIVAC BASIC.' @]@@@@501 PRVD )@@G@@INT @E@@@@520 PRINT'THESE STATEMENTS ARE EXECUTED AS SOON AS THEY ARE'VE )@@G@@@D@@@@530PRINT'TYPED IN. THEY ARE NOT PART OF THE PROGRAM.'@]@@@@535PRIVF )@@G@@NT @#@@@@540PRINT'NEW' @]@@@@545PRINT @F@@@@550PRINT'TELLS THEVG )@@G@@ SYSTEM THAT YOU WANT TO START TYPING A NEW' @F@@@@560PRINT'PROGRAM IVH )@@G@@NTO THE COMPUTER. YOU ARE ASKED TO ASSIGN THE' @F@@@@580PRINT'PROGRAM AVI )@@G@@ NAME (1 TO 12 CHARACTERS). WHEN THE MACHINE' @F@@@@590PRINT'RESPONDS VJ )@@G@@''>'', YOU MAY START TYPING IN THE NEW PROGRAM.'@F@@@@591PRINT 'IF NO NEVK )@@G@@W NAME IS GIVEN, THE NAME NAME$ IS ASSUMED.' @]@@@@595PRINT @#@@@@VL )@@G@@600PRINT'OLD' @]@@@@605PRINT @G@@@@610PRINT'TELLS THE COMPUTER THVM )@@G@@AT YOU WANT TO USE A PROGRAM ALREADY' @E@@@@620 PRINT'SAVED USING THVN )@@G@@E COMMAND. BASIC WILL ASK' @F@@@@630PRINT'FOR THE NAME OF THE PVO )@@G@@ROGRAM, WHICH YOU SHOULD TYPE IN.' @F@@@@640PRINT'WHEN THE COMPUTER RESVP )@@G@@PONDS ''>'', YOU MAY HANDLE THE' @F@@@@650 PRINT'PROGRAM AS THOUGH YOVQ )@@G@@U HAD JUST FINISHED TYPING IT IN.' @]@@@@655PRINT @ @@@@660PRINT'SAVVR )@@G@@E AND UNSAVE' @]@@@@665PRINT @F@@@@670PRINT' PLACES THE PROVS )@@G@@GRAM WHICH YOU ARE CURRENTLY USING' @E@@@@671 PRINT'IN A FILE WHICH CAN VT )@@G@@BE RETRIEVED BY USING ' @ @@@@672 PRINT'AS DESCRIBED ABOVE.'@]@@@@VU )@@G@@673 PRINT @E@@@@680 PRINT 'THE FILE TO BE USED MUST BE SPECIFIED ON THVV )@@G@@E' @D@@@@681 PRINT 'ORIGINAL CALL TO @BASIC. FOR INSTANCE,' @]@@@@VW )@@G@@682 PRINT @ @@@@684 PRINT '@BASIC MY*FILE.' @]@@@@685 PRINT @E@@@@VX )@@G@@686 PRINT 'WOULD CAUSE BASIC TO USE THE FILE MY*FILE FOR' @D@@@@687 PRVY )@@G@@INT 'SAVED PROGRAMS. IF NO FILE IS SPECIFIED,' @F@@@@688 PRINT 'THE RUNVZ )@@G@@''S TEMPORARY PROGRAM FILE (TPF$) IS ASSUMED.' @]@@@@689 PRINT @F@@@@WA )@@G@@690 PRINT'THE COMMAND WILL REMOVE ANY SAVED PROGRAM FROM'@^@@@@WB )@@G@@700 PRINT'THE FILE.' @]@@@@705PRINT @#@@@@710PRINT'RUN' @]@@@@WC )@@G@@715PRINT @F@@@@720PRINT'ORDERS THE MACHINE TO EXECUTE THE PROGRAM, PEWD )@@G@@RFORMING' @E@@@@730PRINT'THE TASKS SPECIFIED IN THE NUMBERED STATEMENTWE )@@G@@S.' @]@@@@735PRINT @#@@@@740PRINT'LIST' @]@@@@745PRINT @F@@@@WF )@@G@@750PRINT'PRINTS THE CURRENT PROGRAM AS IT EXISTS IN THE COMPUTER.'@E@@@@WG )@@G@@760PRINT'ALLOWS YOU TO SEE EXACTLY WHAT YOU HAVE WRITTEN.' @]@@@@765PRIWH )@@G@@NT @#@@@@770PRINT'STOP' @]@@@@775PRINT @F@@@@780PRINT'A PROGRAMWI )@@G@@ CAN BE STOPPED WHILE IT IS RUNNING IF THE' @F@@@@790PRINT'TTY IS IDWJ )@@G@@LE, SUCH AS AFTER AN OR WHILE IN A LONG'@G@@@@800PRINT'CALCULATIWK )@@G@@ON, SIMPLY BY TYPING ''STOP''. THE TELETYPE CAN BE' @F@@@@810PRINT'STOWL )@@G@@PPED WHILE IT IS PRINTING BY PUSHING , THEN' @F@@@@830PRINT'HITWM )@@G@@TING RETURN. YOU MAY GET A FEW MORE LINES OF OUT-' @E@@@@835PRINT'PUTWN )@@G@@, THEN BASIC WILL SAY ''YES?''. YOU MAY THEN' @B@@@@840PRINT'TYPE ''STWO )@@G@@OP'' AS OUTLINED ABOVE.'@]@@@@875PRINT @F@@@@880PRINT'INFORMATION ON WP )@@G@@OTHER SYSTEM COMMANDS AND VARIATIONS OF' @E@@@@890 PRINT'THE COMMANDS HWQ )@@G@@ERIN DISCUSSED MAY BE FOUND IN THE' @A@@@@891 PRINT'UNIVAC BASIC MANUAL.WR )@@G@@' @]@@@@9836 PRINT @ @@@@9837 PRINT 'END OF LESSON 2' @]@@@@9838 PWS )@@G@@RINT @D@@@@9839 PRINT 'WHICH LESSON WOULD YOU LIKE NEXT (1-9)'; @]@@@@WT )@@G@@9840 INPUT N@ @@@@9842 IF N>0 AND N<10 THEN 9851@D@@@@9844 PRINT 'ONLY TWU )@@G@@YPE IN NUMBERS BETWEEN 1 AND 9.' @#@@@@9846 GO TO 9840 @A@@@@9851 IWV )@@G@@F N=1 THEN CHAIN PROCEDURES @A@@@@9852 IF N=2 THEN CHAIN COMMANDS WW )@@G@@@A@@@@9853 IF N=3 THEN CHAIN DEFINITIONS @A@@@@9854 IF N=4 THEN CHAIN IWX )@@G@@NPUT-OUTPUT @A@@@@9855 IF N=5 THEN CHAIN ASSIGNMENTS @A@@@@9856 IF N=6 WY )@@G@@THEN CHAIN TRANSFERS @A@@@@9857 IF N=7 THEN CHAIN FOR-TO-NEXT @ @@@@WZ )@@G@@9858 IF N=8 THEN CHAIN STRINGS@A@@@@9859 IF N=9 THEN CHAIN MORECOMMANDS XA )@@G@@@]@@@@9999END ___RESPONDS ''>'', YOU MAY HANDLE THE' @F@@@@650 PRXB )@@G@@INT'PROGRAM AS THOUGH YOU HAD JUST FINISHED TYPING IT IN.' @]@@@@655PRIXC )@@G@@NT @ @@@@660PRINT'SAV*V@@@@BASIC$EQBJ((EQBJ((305-17-745 FOX-L-F XD )@@G@@062007423513@@@@@DBRCJD,@@@@@@@@@@@@ @@@@@&@@@@@@@@@@@@@@@@@@XE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@@@00100 REM---------XF )@@G@@----------NOSY, AREN'T YOU--------------------- @B@@@@00110 PRINT'WHY DIXG )@@G@@D YOU CALL THIS PROGRAM'@A@@@@00120 PRINT' 1. I AM BORED' @A@@@@XH )@@G@@00130 PRINT' 2. I AM CURIOUS'@G@@@@00140 PRINT' 3. I WANT XI )@@G@@TO KNOW WHAT THIS PROGRAM IS GOOD FOR' @]@@@@00150 PRINT @E@@@@00160 XJ )@@G@@PRINT'TYPE THE NUMBER OF THE ANSWER WHICH APPLIES'; @#@@@@00170 INPUT XK )@@G@@A @^@@@@00180 IF A=1 GO TO 220 @^@@@@00190 IF A=2 GO TO 300 @^@@@@XL )@@G@@00200 IF A=3 GO TO 260 @C@@@@00210 PRINT'IMPROPER INPUT.TYPE 1,2 OR 3 OXM )@@G@@NLY.';@#@@@@00215 GO TO 160 @F@@@@00220 PRINT'COMPUTERS WERE NOT MADE XN )@@G@@TO ALLEVIATE YOUR BOREDOM.' @B@@@@00230 PRINT'GO PLAY WITH SOMETHING EXO )@@G@@LSE' @D@@@@00240 PRINT'----------END OF PROGRAM------------' @]@@@@XP )@@G@@00250 STOP @D@@@@00260 PRINT'NOT MUCH. I WOULDN''T WORRY ABOUT IT.' XQ )@@G@@@^@@@@00261 PRINT'TNX ANYWAY' @D@@@@00270 PRINT'-------------END OF PROGXR )@@G@@RAM-----------' @F@@@@00271 PRINT'WOULD YOU LIKE TO TRY ANOTHER ANSWERXS )@@G@@(YES OR NO)'; @#@@@@00272 INPUT Z$ @ @@@@00273 IF Z$='YES' GO TO XT )@@G@@160 @]@@@@00280 STOP @D@@@@00300 PRINT'GOOD. THIS PROGRAM WAS MEANT FXU )@@G@@OR YOU.' @F@@@@00310 PRINT'BY CALLING THIS PROGRAM YOU HAVE DEMONSTRAXV )@@G@@TED THAT' @C@@@@00320 PRINT'YOU NEED TO REMEMBER THE FOLLOWING:'@]@@@@XW )@@G@@00325 PRINT @C@@@@00330 PRINT' *****************************' @C@@@@XX )@@G@@00340 PRINT' CURIOUSITY KILLED THE CAT' @C@@@@00350 PRINT' *XY )@@G@@****************************' @]@@@@00360 PRINT @F@@@@00370 PRINT'AND ALXZ )@@G@@THOUGH SATISFACTION IS SAID TO HAVE BROUGHT' @F@@@@00390 PRINT'IT (THYA )@@G@@E FELINE THAT IS) BACK, THIS RESPONSE CANNOT BE'@A@@@@00391 PRINT'DEPENDYB )@@G@@ED UPON. SO,' @C@@@@00400 PRINT' BE CAREFUL IN THE FUTURE 'YC )@@G@@@E@@@@00410 PRINT'TNX FOR CALLING THIS PROGRAM.........GOODBY.' @]@@@@YD )@@G@@00490 END ___ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@#@@@@2 DIM P$(6),Q$(6) @A@@@@10 PRIYF )@@G@@NT 'LESSON 3 - DEFINITIONS' @]@@@@30 PRINT @]@@@@40 PRINT @#@@@@YG )@@G@@100PRINT'CONSTANT'@]@@@@105PRINT @F@@@@110PRINT'A CONSTANT IS ANY NUMYH )@@G@@BER BETWEEN 300000 AND -300000.' @G@@@@120PRINT'CONSTANTS ARE POSITIVYI )@@G@@E UNLESS PRECEDED BY A -. FRACTIONS' @F@@@@130PRINT'ARE EXPRESSED IYJ )@@G@@N DECIMAL FORM OR AS PERCENTAGES (5.3% IS'@G@@@@140PRINT 'EQUAL TO .053)YK )@@G@@. ANY NUMBER OF DIGITS MAY BE USED IN A CON-' @F@@@@142PRINT'STANT, BUYL )@@G@@T BASIC IGNORES ALL BUT THE 8 MOST SIGNIFICANT.'@E@@@@144PRINT'VERY LARGYM )@@G@@E NUMBERS MAY BE PRINTED (OR INPUT) IN' @F@@@@146PRINT'SCIENTIFIC NOTAYN )@@G@@TION OF THE FOR N.NNNE+XX, WHERE ''E+XX'''@E@@@@148PRINT'MEANS TIMES 10 YO )@@G@@TO THE XX POWER. FOR EXAMPLE,' @D@@@@150PRINT'123456789098 WOULD PRYP )@@G@@INT AS 1.2345679E+11' @]@@@@155PRINT @]@@@@156PRINT @#@@@@160PRIYQ )@@G@@NT'VARIABLE'@]@@@@165PRINT @E@@@@170PRINT'A VARIABLE IS A SYMBOL TO WYR )@@G@@HICH A VALUE MAY BE' @F@@@@180PRINT'ASSIGNED (VARIABLES ARE ASSUMED TYS )@@G@@O HAVE VALUE 0 UNTIL' @G@@@@190PRINT'A PROGRAM ASSIGNS THEM A VALUE). YT )@@G@@ A SYMBOL CAN BE A LETTER' @G@@@@200PRINT'OR A LETTER FOLLOWED BY A SYU )@@G@@INGLE DIGIT. THUS, 286 VARIABLE' @ @@@@210PRINT'NAMES ARE AVAILABLE.'YV )@@G@@@]@@@@215PRINT @]@@@@216PRINT @^@@@@220PRINT'EXPRESSION' @]@@@@YW )@@G@@225PRINT @F@@@@230PRINT'AN EXPRESSION IS A SERIES OF CONSTANTS AND/ORYX )@@G@@ VARIABLES.'@]@@@@231 PRINT @F@@@@232 PRINT'EXPRESSIONS CAN BE JOINED YY )@@G@@WITH ANY OF THE FOLLOWING' @]@@@@233 PRINT @^@@@@240PRINT'+ ADDITYZ )@@G@@ION' @ @@@@250PRINT'- SUBTRACTION' @ @@@@260PRINT'* MULTIPLICATZA )@@G@@ION' @^@@@@265 PRINT'/ DIVISION' @ @@@@270PRINT'** EXPONENTIATION' ZB )@@G@@@]@@@@271 PRINT @G@@@@280PRINT'WHEN THE VALUE OF AN EXPRESSION IS CALCZC )@@G@@ULATED, EXPONENTI-' @G@@@@290PRINT'ATION IS NORMALLY PERFORMED FIRSTZD )@@G@@, THEN MULTIPLICATION AND' @E@@@@300PRINT'DIVISION, THEN ADDITION ANDZE )@@G@@ SUBTRACTION. IF TWO' @F@@@@310PRINT'OPERATIONS IN AN EXPRESSION ARE OZF )@@G@@F THE SAME PRIORITY,' @C@@@@320PRINT'THE LEFT-MOST ONE IS PERFORMED FIZG )@@G@@RST.' @E@@@@330PRINT'THE NORMAL ORDER CAN BE OVERRIDDEN BY THE USE OF' ZH )@@G@@@G@@@@340PRINT'PARENTHESES. OPERATIONS WITHIN PARENTHESES ARE PERFORMEDZI )@@G@@' @A@@@@350PRINT'BEFORE THOSE OUTSIDE.' @]@@@@355 PRINT @A@@@@ZJ )@@G@@360PRINT'EXAMPLES VALUES' @A@@@@370PRINT'7+5-2 ZK )@@G@@10' @A@@@@380PRINT'4**2 16' @A@@@@390PRINT'5**2/2 ZL )@@G@@ 12.5' @A@@@@400PRINT'6-10/2+2**3 9' @A@@@@410PRIZM )@@G@@NT'((6-10)/(2+2))**3 -1' @B@@@@420PRINT'(8*.5)**2/(8+4) 1.333ZN )@@G@@3333' @]@@@@425PRINT @]@@@@426PRINT @^@@@@430PRINT'LINE NUMBERS' ZO )@@G@@@]@@@@435PRINT @F@@@@440PRINT'STATEMENTS ARE EXECUTED, NOT IN THE ORDZP )@@G@@ER THEY ARE TYPED'@F@@@@450PRINT'IN, BUT IN ORDER OF ASCENDING LINE NUMBZQ )@@G@@ER. LINE NUMBERS'@G@@@@460PRINT'ARE INTEGERS BETWEEN 1 AND 99999. THEYZR )@@G@@ DO NOT HAVE TO BE' @G@@@@470PRINT'CONSECUTIVE OR EVENLY SPACED. ITZS )@@G@@ IS WISE TO LEAVE ROOM BE-' @G@@@@480PRINT'TWEEN THE LINES FOR ADDITIOZT )@@G@@NS TO YOUR PROGRAM: GET IN THE ' @G@@@@490PRINT'HABIT OF USING EVERY ZU )@@G@@5TH OR 10TH LINE NUMBER IN THE FIRST' @ @@@@500PRINT'DRAFT OF A PROGZV )@@G@@RAM.' @]@@@@505PRINT @G@@@@510PRINT'IF A LINE IS ENTERED WITH THE SAMZW )@@G@@E LINE NUMBER AS A PREVI-' @F@@@@520PRINT'OUS LINE, THE OLDER VERSIONZX )@@G@@ IS ERASED AND THE NEW ONE IS'@F@@@@530PRINT'SUBSTITUTED FOR IT. OLD LIZY )@@G@@NES MAY BE DELETED JUST BY' @E@@@@540PRINT'TYPING THEIR LINE NUMBERS AZZ )@@G@@ND THE RETURN KEY.' @]@@@@550PRINT @]@@@@555PRINT @F@@@@600PRIAA )@@G@@NT'HERE IS A LITTLE TEST TO HELP CLARIFY THE DEFINITIONS:' @]@@@@603PRIAB )@@G@@NT @A@@@@605PRINT'PROBLEM 1. CONSTANTS' @]@@@@607PRINT @G@@@@AC )@@G@@610PRINT'IF YOU TYPE ANYTHING WHICH IS NOT A CONSTANT, THE MACHINE' AD )@@G@@@G@@@@620PRINT'WILL RETURN AN ERROR MESSAGE. IF YOU TYPE 0, WE WILL GO AE )@@G@@TO' @C@@@@630PRINT'THE NEXT PROBLEM. TYPE A CONSTANT'; @]@@@@640INPAF )@@G@@UT Q @#@@@@650IF Q=0THEN700 @]@@@@655PRINT @A@@@@660PRINT'THAT IS AAG )@@G@@ LEGAL CONSTANT.' @]@@@@670N=N+1 @^@@@@680 IF N=5 THEN 695 @^@@@@AH )@@G@@685PRINT'TYPE ANOTHER'; @]@@@@690GOTO640 @]@@@@695PRINT @A@@@@700PRIAI )@@G@@NT'PROBLEM 2. VARIABLES' @]@@@@703PRINT @F@@@@705 PRINT'FOR EACHAJ )@@G@@ OF THE FOLLOWING VARIABLES, TYPE T IF IT IS A '@C@@@@707 PRINT'TRUE VARAK )@@G@@IABLE AND F IF IT IS NOT.' @#@@@@710 FOR I=1 TO 5 @^@@@@720 READ P$(AL )@@G@@I),Q$(I) @A@@@@721 DATA A,T,AA,F,A1,T,T,T,T*,F @#@@@@740 PRINT P$AM )@@G@@(I); @]@@@@750 INPUT J$@^@@@@760 IF J$=Q$(I) THEN795 @E@@@@770 PRINT 'WAN )@@G@@RONG, REREAD THE DEFINITION OF A VARIABLE.' @#@@@@780 GO TO 810 AO )@@G@@@]@@@@795PRINT @^@@@@800PRINT'VERY GOOD.' @]@@@@810 NEXT I @]@@@@AP )@@G@@873PRINT @A@@@@875PRINT'PROBLEM 3. EXPRESSIONS' @]@@@@880PRINT AQ )@@G@@@D@@@@885PRINT'WHAT ARE THE VALUES OF THESE EXPRESSIONS#' @]@@@@887PRIAR )@@G@@NT @#@@@@890PRINT'3**2'; @]@@@@900INPUTQ @#@@@@910IFQ=9THEN950 AS )@@G@@@]@@@@915PRINT @F@@@@920PRINT'NO, THE ANSWER IS 9. A**B MEANS ''A TOAT )@@G@@ THE BTH POWER.'''@]@@@@940GOTO960 @#@@@@950GOSUB 3000 @]@@@@955PRIAU )@@G@@NT @^@@@@960PRINT'7*3 + 9/3'; @]@@@@970INPUTQ @#@@@@980IF Q=24THAV )@@G@@EN1060@]@@@@985PRINT @F@@@@990PRINT'NO, YOU HAVE FORGOTTEN THAT ADDITAW )@@G@@ION IS PERFORMED AFTER' @D@@@@1000PRINT'MULTIPLICATION AND DIVISION. TRAX )@@G@@Y AGAIN'; @]@@@@1020INPUT Q @^@@@@1030IF Q=24 THEN 1060 @]@@@@1035PRAY )@@G@@INT @G@@@@1040PRINT'SORRY. THE ANSWER IS 24. 7*3 IS 21, 9/3 IS 3, 21AZ )@@G@@+3 IS 24.' @#@@@@1055 GOTO1070 @#@@@@1060GOSUB 3000 @]@@@@1065PRBA )@@G@@INT @^@@@@1070 PRINT'7*(3+9)/3' @]@@@@1080INPUT Q @^@@@@1090IF Q=28 BB )@@G@@THEN 1150 @]@@@@1095PRINT @F@@@@1100PRINT'WRONG. REMEMBER THAT OPERBC )@@G@@ATIONS WITHIN PARENTHESES ARE'@B@@@@1110PRINT'PERFORMED FIRST AND TRY AGBD )@@G@@AIN'; @]@@@@1115 INPUT Q@^@@@@1120IF Q=28THEN1150 @]@@@@1125PRINT BE )@@G@@@F@@@@1130PRINT'TO ERR IS HUMAN. 3+9 IS 12. 12*7 IS 84. 84/3 IS 28.' BF )@@G@@@]@@@@1140GOTO1155@#@@@@1150GOSUB3000 @]@@@@1155PRINT @C@@@@1160PRBG )@@G@@INT'ONE MORE EASY ONE. 5-3+7-(3+7)'; @]@@@@1170INPUT Q @^@@@@1180IFBH )@@G@@ Q=-1THEN 1280 @]@@@@1185PRINT @F@@@@1190PRINT'GO FROM LEFT TO RIGHBI )@@G@@T CAREFULLY AND YOU CAN''T MISS IT.'@ @@@@1200PRINT'WHAT IS THE ANSWER';BJ )@@G@@@]@@@@1210INPUT Q @^@@@@1220IF Q=-1THEN 1280 @]@@@@1225PRINT @E@@@@BK )@@G@@1230PRINT'5-3 IS 2. 2+7 IS 9. (3+7) IS 10. 9-10 IS'; @]@@@@1240INBL )@@G@@PUT Q @^@@@@1250IF Q=-1THEN 1280 @]@@@@1255PRINT @^@@@@1260 PRINT' BM )@@G@@9-10 IS -1' @]@@@@1270GOTO1290@#@@@@1280GOSUB3000 @]@@@@1285PRINT BN )@@G@@@F@@@@1290PRINT'IF YOU NOW UNDERSTAND WHAT YOU WERE JUST TESTED ON,' BO )@@G@@@F@@@@1300PRINT'YOU DID WELL ON THE TEST AND YOU ARE READY TO PROCEED.' BP )@@G@@@]@@@@1310GOTO9830@^@@@@3000PRINT'CORRECT.' @]@@@@3010RETURN @]@@@@BQ )@@G@@9830 PRINT @ @@@@9832 PRINT 'END OF LESSON 3' @]@@@@9838 PRINT @D@@@@BR )@@G@@9839 PRINT 'WHICH LESSON WOULD YOU LIKE NEXT (1-9)'; @]@@@@9840 INPUT NBS )@@G@@@ @@@@9842 IF N>0 AND N<10 THEN 9851@D@@@@9844 PRINT 'ONLY TYPE IN NUMBEBT )@@G@@RS BETWEEN 1 AND 9.' @#@@@@9846 GO TO 9840 @A@@@@9851 IF N=1 THEN CBU )@@G@@HAIN PROCEDURES @A@@@@9852 IF N=2 THEN CHAIN COMMANDS @A@@@@9853 IBV )@@G@@F N=3 THEN CHAIN DEFINITIONS @A@@@@9854 IF N=4 THEN CHAIN INPUT-OUTPUT BW )@@G@@@A@@@@9855 IF N=5 THEN CHAIN ASSIGNMENTS @A@@@@9856 IF N=6 THEN CHAIN TBX )@@G@@RANSFERS @A@@@@9857 IF N=7 THEN CHAIN FOR-TO-NEXT @ @@@@9858 IF N=8 BY )@@G@@THEN CHAIN STRINGS@A@@@@9859 IF N=9 THEN CHAIN MORECOMMANDS @]@@@@9999 EBZ )@@G@@ND ___ GO TO 810 @]@@@@795PRINT @^@@@@800PRINT'VERY GOOD.' CA )@@G@@@]@@@@810 NEXT I @]@@@@873PRINT @A@@@@875PRI*[@@@@*SDFF*@F@@@@102 PRCB )@@G@@INT 'THIS IS A SERIOUS GAME OF CRAPS AND WE PLAY FOR KEEPS!'@C@@@@103 PRCC )@@G@@INT 'VEGAS RULES - CRAPS ARE 2,3 AND 12' @E@@@@104 PRINT 'IF YOU WISH TCD )@@G@@O STOP - JUST BET ZERO DOLLARS!' @#@@@@106 RANDOMIZE @ @@@@118 LECE )@@G@@T Z=5*INT(10+11*RND) @F@@@@120 PRINT 'YOU HAVE BEEN CLEARED FOR ';Z;'CF )@@G@@ DOLLARS OF CREDIT!' @ @@@@126 IF N-2*INT(N/2)=0 THEN 138@]@@@@128 LECG )@@G@@T W=-1@ @@@@130 PRINT 'I WILL ROLL FIRST!'@#@@@@136 GO TO 146 @]@@@@CH )@@G@@138 LET W=1 @ @@@@140 PRINT 'YOU ROLL FIRST!' @]@@@@146 LET Q=0 @A@@@@CI )@@G@@148 PRINT 'HOW MUCH DO YOU BET?' @]@@@@150 INPUT B @^@@@@154 IF B=INTCJ )@@G@@(B) THEN 162@B@@@@158 PRINT 'NO COINS PLEASE - JUST BILLS!' @#@@@@160 GOCK )@@G@@ TO 148 @^@@@@162 IF B=0 THEN 294 @^@@@@164 IF B0 TCO )@@G@@HEN 184 @A@@@@180 PRINT 'I ROLL ';D1;' AND ';D2 @#@@@@182 GO TO 18CP )@@G@@6 @A@@@@184 PRINT 'YOU ROLL ';D1;' AND ';D2 @^@@@@186 IF Q<>1 THEN 2CQ )@@G@@48 @A@@@@188 IF (S-2)*(S-3)*(S-12)=0 THEN 204@ @@@@190 IF (S-7)*(S-11CR )@@G@@)=0 THEN 218@^@@@@192 IF W>0 THEN 198 @ @@@@194 PRINT 'SO MY POINT ICS )@@G@@S ';S @#@@@@196 GO TO 200 @A@@@@198 PRINT 'SO YOUR POINT IS ';S CT )@@G@@@]@@@@200 LET P=S @#@@@@202 GO TO 170 @ @@@@204 PRINT '...AND CRAP OCU )@@G@@UT!' @]@@@@206 LET C=1 @^@@@@208 IF W>0 THEN 214 @#@@@@210 LET Z=Z+CV )@@G@@B @#@@@@212 GO TO 232 @#@@@@214 LET Z=Z-B @#@@@@216 GO TO 23CW )@@G@@2 @^@@@@218 PRINT '...AND PASS!'@]@@@@220 LET C=1 @^@@@@222 IF W>0 TCX )@@G@@HEN 228 @#@@@@224 LET Z=Z-B @#@@@@226 GO TO 232 @#@@@@228 LECY )@@G@@T Z=Z+B @^@@@@232 IF Z<1 THEN 290 @B@@@@234 PRINT 'YOU NOW HAVE CZ )@@G@@';Z;' DOLLARS!' @^@@@@236 IF C>0 THEN 242 @ @@@@238 PRINT 'HAND OVDA )@@G@@ER DICE!' @#@@@@242 LET W=W*C @]@@@@244 LET Q=0 @#@@@@246 GO TO 14DB )@@G@@8 @^@@@@248 IF S<>7 THEN 300 @^@@@@250 PRINT '...AND LOSE!'@]@@@@DC )@@G@@252 LET C=-1@^@@@@254 IF W>0 THEN 260 @#@@@@256 LET Z=Z+B @#@@@@DD )@@G@@258 GO TO 232 @#@@@@260 LET Z=Z-B @#@@@@262 GO TO 232 @^@@@@DE )@@G@@264 IF S=P THEN 270 @ @@@@266 PRINT '...ROLL AGAIN!' @#@@@@268 GODF )@@G@@ TO 170 @^@@@@270 IF W>0 THEN 280 @A@@@@272 PRINT '...AND MAKE MDG )@@G@@Y POINT!' @]@@@@274 LET C=1 @#@@@@276 LET Z=Z-B @#@@@@278 GO TO 23DH )@@G@@2 @A@@@@280 PRINT '...AND MAKE YOUR POINT!' @]@@@@282 LET C=1 @#@@@@DI )@@G@@284 LET Z=Z+B @#@@@@286 GO TO 232 @E@@@@290 PRINT 'YOU HAVE RUN DJ )@@G@@OUT OF MONEY ... SORRY ABOUT THAT!' @#@@@@292 GO TO 298 @D@@@@294 PRDK )@@G@@INT 'THANKS FOR THE GAME AND CONGRATULATIONS' @D@@@@296 PRINT ' FORDL )@@G@@ BEING ABLE TO QUIT WHILE AHEAD!' @#@@@@298 GO TO 304 @#@@@@300 GODM )@@G@@ TO 264 @#@@@@302 GO TO 250 @]@@@@304 END ___;D1;' AND ';D2 DN )@@G@@@^@@@@186 IF Q<>1 THEN 248 @A@@@@188 IF (S-2)*(S-3)*(S-12)=0 THEN 204DO )@@G@@@ @@@@190 IF (S-7)*(S-11*V@@@@BASIC$EQBJ$VEQBJ$V305-12-745 BASIC$FILES DP )@@G@@750340532430@@@@@DDQCK9R@@@@@@@@@@@@ @@@@ [@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@99 REM THIS PROGRDR )@@G@@AM WAS WRITTEN BY JAMES MCGILL@#@@@@100 DIM C(1,20) @#@@@@110 MAT C=ZEDS )@@G@@R @#@@@@120 LET C(1,5)=5 @#@@@@130 LET C(1,10)=5 @#@@@@140 LET C(1,DT )@@G@@15)=5 @#@@@@150 LETC(1,20)=5 @#@@@@160 DIM A(25,25) @#@@@@170 MAT A=ZEDU )@@G@@R @#@@@@180 FOR C=0 TO 4 @^@@@@190 FOR B=5*C+1 TO 5*C+4@#@@@@200 LEDV )@@G@@T A(B,B+1)=1@^@@@@210 IF C=4 GO TO 230 @#@@@@220 LET A(B,B+5)=1@]@@@@DW )@@G@@230NEXT B @]@@@@240 NEXT C @#@@@@250 FOR K=1 TO4 @^@@@@260 LET A(5*DX )@@G@@K,5*K+5)=1 @]@@@@270 NEXT K @]@@@@280 LET R=0 @]@@@@290 LET M=0 @]@@@@DY )@@G@@300 LETN=0 @]@@@@310 LET S=0@]@@@@320 LET W=0 @]@@@@330 LET X=0 @]@@@@DZ )@@G@@340 LET Y=0 @]@@@@350 LETZ=0 @]@@@@360 LET U=0 @]@@@@370 LET V=0 @#@@@@EA )@@G@@380 DIM B$(81) @ @@@@390 FOR A=1 TO 73 STEP 18 @ @@@@400 FOR B=A EB )@@G@@TO (A+8) STEP 2 @#@@@@410 LET B$(B)= '*'@]@@@@420 NEXT B @]@@@@430 NEEC )@@G@@XT A @ @@@@440 FOR A=2 TO 74 STEP 18 @ @@@@450 FOR B=A TO (A+6) STEED )@@G@@P 2 @#@@@@460 LET B$(B)=' ' @]@@@@470 NEXT B @]@@@@480 NEXT A @ @@@@EE )@@G@@490 FOR A=10 TO 64 STEP 18 @#@@@@500 FOR B=A TO A+8@#@@@@510 LET B$(BEF )@@G@@)=' ' @]@@@@520 NEXT B @]@@@@530 NEXT A @A@@@@540 PRINT'DO YOU KNOW HOEG )@@G@@W TO PLAY'; @]@@@@550 INPUT B$@ @@@@560 IF B$='YES' GO TO 710 @E@@@@EH )@@G@@570 PRINT'THIS IS THE GAME OF DOTS.WE WILL USE A 5 BY 5' @E@@@@580 PREI )@@G@@INT'ARRAY OF DOTS.YOU MAKE YOUR MOVE BY MAKING A' @D@@@@590 PRINT'HOEJ )@@G@@RIZONTAL OR VERTICAL LINE BETWEEN TWO' @D@@@@600 PRINT'CONSECUTIVE DOEK )@@G@@TS.EACH DOT HAS A PAIR OF' @E@@@@610 PRINT'COORDINATES.THE TOP LEFT DEL )@@G@@OT IS 1,1.THE LOWER' @D@@@@620PRINT'LEFT DOT IS 5,1.THE UPPER RIGHT DEM )@@G@@OT IS 1,5' @D@@@@630 PRINT'AND THE LOWER RIGHT DOT IS 5,5.YOU MOVE BY' EN )@@G@@@D@@@@640 PRINT'TYPING IN THE COORDINATES OF THE TWO DOTS' @D@@@@650 PREO )@@G@@INT'TO BE CONNECTED.THEREFORE,YOU WILL ALWAYS' @D@@@@660 PRINT 'TYPE INEP )@@G@@ FOUR NUMBERS OF THE FORM W,X,Y,Z.' @D@@@@670 PRINT'ALWAYS TYPE IN THE CEQ )@@G@@OORDINATES OF THE UPPER'@D@@@@680 PRINT'OR LEFTMOST DOT FIRST.THE GAME BER )@@G@@OARD LOOKS' @^@@@@690 PRINT'LIKE THIS.' @#@@@@700 GO SUB 2740 @C@@@@ES )@@G@@710 PRINT 'WHAT ARE YOUR VALUES OF W,X,Y,Z.'; @#@@@@720 INPUT W,X,Y,Z ET )@@G@@@#@@@@730 GO SUB 1140 @#@@@@740 LET N=N+S @^@@@@750 IF S=0 GO TO 8EU )@@G@@40 @^@@@@760 IF R>=40 GO TO 1060 @]@@@@770 LET S=0 @^@@@@775 PRINT'YOEV )@@G@@U SCORED!!!'@^@@@@780 PRINT'THE SCORE IS' @^@@@@790 PRINT'YOU...';N EW )@@G@@@^@@@@800 PRINT'ME....';M @#@@@@820 GO SUB 2740 @#@@@@830 GO TO 98EX )@@G@@0 @A@@@@840 PRINT'YOU DID NOT SCORE.MY TURN'@#@@@@850 GO SUB 2070 EY )@@G@@@#@@@@860 LET M=M+S @^@@@@870 IF S=0 GO TO 1000 @^@@@@880 IF R>=40EZ )@@G@@ GO TO 1060 @]@@@@890 LET S=0 @ @@@@900 PRINT'MY MOVE IS';W;X;Y;Z @^@@@@FA )@@G@@910 PRINT'I SCORED!!!' @#@@@@920 GO SUB 2740 @^@@@@930 PRINT'THE SCORFB )@@G@@E IS' @^@@@@940 PRINT'YOU....';N @^@@@@950 PRINT'ME.....';M @ @@@@FC )@@G@@960 PRINT'I GET ANOTHER TURN' @#@@@@970 GO TO 850 @A@@@@980 PRINT'YOFD )@@G@@U GET ANOTHER TURN' @#@@@@990 GO TO 720 @^@@@@1000 IF R>=40 GO TFE )@@G@@O 1060@ @@@@1010 PRINT'MY MOVE IS';W;X;Y;Z@#@@@@1020 GO SUB 2740 @ @@@@FF )@@G@@1030 PRINT'I DID NOT SCORE' @^@@@@1040 PRINT'YOUR TURN' @#@@@@1050 GFG )@@G@@O TO 720 @D@@@@1060 PRINT'ALL MOVES HAVE BEEN MADE.THE GAME IS OVER' FH )@@G@@@ @@@@1070 PRINT'THE FINAL SCORE IS'@^@@@@1080 PRINT'YOU...';N @^@@@@FI )@@G@@1090 PRINT'ME....';M @^@@@@1091 IF MY GO TO 1220 FO )@@G@@@^@@@@1150 IF X>Z GO TO 1220 @^@@@@1160 IF W=Y GO TO 1200 @^@@@@1170 IFP )@@G@@F X<>Z GO TO 1270 @ @@@@1180 IF Y <>W+1 GO TO 1300 @#@@@@1190 GO TO 1FQ )@@G@@203 @ @@@@1200 IF Z<>X+1 GO TO 1300 @B@@@@1203 IF(ABS(W))/(INT(W))FR )@@G@@<>1 GO TO 1208 @#@@@@1207 GO TO 1330 @F@@@@1208 PRINT'ILLEGAL MOVE.FS )@@G@@PLEASE USE POSITIVE INTEGERS LESS THAN 6' @#@@@@1209 GO TO 1240 @#@@@@FT )@@G@@1210 GO TO 1330 @E@@@@1220 PRINT'ILLEGAL MOVE.PLEASE TYPE IN THE COORFU )@@G@@DINATES OF '@C@@@@1230 PRINT'THE UPPERMOST OR LEFTMOST DOT FIRST' @E@@@@FV )@@G@@1240 PRINT'TRY AGAIN. WHAT ARE YOUR VALUES FOR W,X,Y,Z'; @#@@@@1250 IFW )@@G@@NPUT W,X,Y,Z@#@@@@1260 GO TO 1140 @E@@@@1270 PRINT'ILLEGAL MOVE.ONLY HFX )@@G@@ORIZONTAL AND VERTICAL MOVES' @^@@@@1280 PRINT'ARE ALLOWED' @#@@@@1290 GFY )@@G@@O TO 1240 @F@@@@1300 PRINT'ILLEGAL MOVE.YOU MAY ONLY CONNECT CONSECUTIFZ )@@G@@VE DOTS' @A@@@@1310 PRINT'NO SKIPPING OVER DOTS' @#@@@@1320 GO TO 1GA )@@G@@240 @^@@@@1330 LET U=(W-1)*5+X @^@@@@1340 LET V=(Y-1)*5+Z @ @@@@GB )@@G@@1350 IF A(U,V) =1 GO TO 1380 @E@@@@1360 PRINT'ILLEGAL MOVE.THAT MOVE HAGC )@@G@@S ALREADY BEEN USED' @#@@@@1370 GO TO 1240 @^@@@@1380 PRINT'LEGAL MGD )@@G@@OVE' @#@@@@1390 GO SUB 1410 @]@@@@1400 RETURN @^@@@@1410 IF X=Z GO TO GE )@@G@@1630 @^@@@@1420 IF V/5>1 GO TO 1470@^@@@@1430 LET C(1,U)=C(1,U)+1@ @@@@GF )@@G@@1440 IF C(1,U)<>4 GO TO 1460 @#@@@@1450 LET S=S+1 @#@@@@1460 GO TO 1GG )@@G@@850 @ @@@@1470 IF V/5<4.1 GO TO 1530 @#@@@@1480 LET P=U-5 @^@@@@GH )@@G@@1490 LET C(1,P)=C(1,P)+1@ @@@@1500 IF C(1,P)<>4 GO TO1520 @#@@@@1510 LGI )@@G@@ET S=S+1 @#@@@@1520 GO TO 1850 @^@@@@1530 LET C(1,U)=C(1,U)+1@#@@@@GJ )@@G@@1540 LET P=U-5 @^@@@@1550 LET C(1,P)=C(1,P)+1@ @@@@1560 IF C(1,U)<> 4GK )@@G@@ GO TO 1600 @ @@@@1570 IF C(1,P)<>4 GO TO 1610 @#@@@@1580 LET S=S+2 GL )@@G@@@#@@@@1590 GO TO 1850 @ @@@@1600 IF C(1,P)<>4 GO TO 1620 @#@@@@1610 LGM )@@G@@ET S=S+1 @#@@@@1620 GO TO 1850 @#@@@@1630 LET Q=V-1 @A@@@@1640 IGN )@@G@@F (INT(Q/5))*5<>Q GO TO 1690 @^@@@@1650 LET C(1,U)=C(1,U)+1@ @@@@1660 IGO )@@G@@F C(1,U)<>4 GO TO 1680 @#@@@@1670 LET S=S+1 @#@@@@1680 GO TO 1890 GP )@@G@@@A@@@@1690 IF (INT(V/5))*5<>V GO TO1750 @#@@@@1700 LET T=U-1 @^@@@@GQ )@@G@@1710 LET C(1,T)=C(1,T)+1@ @@@@1720 IF C(1,T)<>4 GO TO 1740 @#@@@@1730 LGR )@@G@@ET S=S+1 @#@@@@1740 GO TO 1890 @#@@@@1750 LET T =U-1 @^@@@@1760 LGS )@@G@@ET C(1,U)=C(1,U)+1@^@@@@1770 LET C(1,T)=C(1,T)+1@ @@@@1780 IF C(1,U)<>4 GT )@@G@@GO TO 1820 @ @@@@1790 IF C(1,T)<> 4 GO TO 1830 @#@@@@1800 LET S=S+2 GU )@@G@@@#@@@@1810 GO TO 1890 @ @@@@1820 IF C(1,T)<>4 GO TO 1890 @#@@@@1830 LGV )@@G@@ET S=S+1 @#@@@@1840 GO TO 1890 @#@@@@1850 LET F=2*W-1 @#@@@@1860 LGW )@@G@@ET G=2*X @#@@@@1870 GO SUB 2810 @#@@@@1880 GO TO 1920 @#@@@@1890 LGX )@@G@@ET H= 2*W @#@@@@1900 LET J=2*X-1 @#@@@@1910 GO SUB 2840 @#@@@@1920 LGY )@@G@@ET A(U,V)=0 @#@@@@1930 LET R=R+1 @]@@@@1940 LET U=0@]@@@@1950 LET V=0GZ )@@G@@@]@@@@1960 LET P=0@]@@@@1970 LET Q=0@]@@@@1980 LET T=0@]@@@@1990 LET F=0HA )@@G@@@]@@@@2000 LET G=0@]@@@@2010 LET H=0@]@@@@2020 LET J=0@]@@@@2030 RETURN HB )@@G@@@ @@@@2031 IF A(24,25)=1 GO TO 2033 @#@@@@2032 GO TO 2040 @]@@@@2033 LHC )@@G@@ET W=5@]@@@@2034 LET X=4@]@@@@2035 LET Y=5@]@@@@2036 LET Z=5@#@@@@2037 GHD )@@G@@O TO 2660 @ @@@@2040 FOR I=19 TO 1 STEP -1 @ @@@@2050 IF C(1,I)<4 GHE )@@G@@O TO 2270 @]@@@@2060 NEXT I @#@@@@2070 FOR I=1 TO 20@ @@@@2080 IF C(1,HF )@@G@@I)=3 GO TO 2270 @]@@@@2090 NEXT I @#@@@@2091 GO TO 2100 @A@@@@2092 IHG )@@G@@F A(I+1,I+6)=1 GO TO 2280 @#@@@@2093 GO TO 2157 @A@@@@2094 IF A(I+HH )@@G@@5,I+6)=1 GO TO 2275 @#@@@@2095 GO TO 2160 @#@@@@2100 FOR I=1 TO 20HI )@@G@@@ @@@@2110 IF C(1,I)=0 GO TO 2130 @#@@@@2120 GO TO 2160 @^@@@@2121 IHJ )@@G@@F I<2 GO TO 2130 @ @@@@2122 IF C(1,I-1)=0 GO TO2125 @ @@@@2123 IF C(1,HK )@@G@@I-1)=1 GO TO 2125 @#@@@@2124 GO TO 2130 @ @@@@2125 IF A(I,I+5)=1 GO TOHL )@@G@@ 2290 @^@@@@2130 IF I<6 GO TO 2151 @ @@@@2140 IF C(1,I-5)=0 GO TO2151 HM )@@G@@@ @@@@2150 IF C(1,I-5)<>1 GO TO 2155@ @@@@2151 IF A(I,I+1)=1 GO TO2285 HN )@@G@@@ @@@@2155 IF C(1,I+1)=0 GO TO 2092 @ @@@@2156 IF C(1,I+1)=1 GO TO 2092 HO )@@G@@@^@@@@2157 IF I>15 GO TO 2160 @ @@@@2158 IF C(1,I+5)=0 GO TO 2094 @ @@@@HP )@@G@@2159 IF C(1,I+5)=1 GO TO 2094 @]@@@@2160 NEXT I @#@@@@2170 FOR I=1 TO 20HQ )@@G@@@ @@@@2180 IF C(1,I)=1 GO TO 2191 @#@@@@2190 GO TO 2201 @^@@@@2191 IHR )@@G@@F I<2 GO TO 2197 @ @@@@2192 IF C(1,I-1)=1 GO TO2194 @#@@@@2193 GO TO 2HS )@@G@@195 @ @@@@2194 IF A(I,I+5)=1 GO TO 2290 @^@@@@2195 IF I<6 GO TO 2197 HT )@@G@@@A@@@@2196 IF C(1,I-5)<> 1 GO TO 2198 @ @@@@2197 IF A(I,I+1)=1 GO TOHU )@@G@@2285 @ @@@@2198 IF C(1,I+1)=1 GO TO2092 @^@@@@2199 IF I>15 GO TO 2201 HV )@@G@@@ @@@@2200 IF C(1,I+5)=1 GO TO2094 @]@@@@2201 NEXT I @ @@@@2240 IF A(1,HW )@@G@@2)=1 GO TO 2320 @ @@@@2250 IF A(1,6)=1 GO TO 2350 @ @@@@2260 IF A(2,HX )@@G@@7)=1 GO TO 2380 @^@@@@2270 IF I=20 GO TO 2285@A@@@@2275 IF A(I+5,I+6)HY )@@G@@=1 GO TO 2470 @A@@@@2280 IF A(I+1,I+6)=1 GO TO 2510 @ @@@@2285 IHZ )@@G@@F A(I,I+1)=1 GO TO 2410 @ @@@@2290 IF A(I,I+5)=1 GO TO 2550 @#@@@@2300 GIA )@@G@@O TO 2031 @]@@@@2320 LET W=1@]@@@@2330 LET X=1@#@@@@2340 GO TO 2610 IB )@@G@@@]@@@@2350 LET W=1@]@@@@2360 LET X=1@#@@@@2370 GO TO 2640 @]@@@@2380 LIC )@@G@@ET W=1@]@@@@2390 LET X=2@#@@@@2400 GO TO 2640 @^@@@@2410 LET W=INT((I+ID )@@G@@4)/5) @^@@@@2420 LET X=I-(5*(W-1)) @#@@@@2430 GO TO 2610 @^@@@@2440 LIE )@@G@@ET W=INT((I+3)/5) @^@@@@2450 LET X=I-(5*(W-1)) @#@@@@2460 GO TO 2610 IF )@@G@@@#@@@@2470 LET I=I+5 @^@@@@2480 LET W= INT((I+4)/5)@^@@@@2490 LET X=IIG )@@G@@-(5*(W-1)) @#@@@@2500 GO TO 2610 @#@@@@2510 LET I=I+1 @^@@@@2520 LIH )@@G@@ET W=INT((I+4)/5) @^@@@@2530 LET X=I-(5*(W-1)) @#@@@@2540 GO TO 2640 II )@@G@@@^@@@@2550LET W=INT((I+4)/5) @^@@@@2560 LET X=I-(5*(W-1)) @#@@@@2570 GIJ )@@G@@O TO 2640 @^@@@@2580 LET W=INT((I-1)/5) @^@@@@2590 LET X=I-(5*(W-1)) IK )@@G@@@#@@@@2600 GO TO 2640 @]@@@@2610 LET Y=W@#@@@@2620 LET Z=X+1 @#@@@@IL )@@G@@2630 GO TO 2660 @#@@@@2640 LET Y=W+1 @]@@@@2650 LET Z=X@^@@@@2660 LIM )@@G@@ET U=(W-1)*5+X @^@@@@2670 LET V=(Y-1)*5+Z @]@@@@2680 LETA=W @]@@@@IN )@@G@@2690 LET B=X@]@@@@2700 LET C=Y@]@@@@2710 LETD=Z @#@@@@2720 GO SUB 1410 IO )@@G@@@]@@@@2730 RETURN @ @@@@2740 FOR I=1 TO 81 STEP 9 @^@@@@2750 FOR J=IIP )@@G@@ TO (I+8) @#@@@@2760 PRINT B$(J); @]@@@@2770 NEXT J @]@@@@2780 PRINT IQ )@@G@@@]@@@@2790 NEXT I @]@@@@2800 RETURN @^@@@@2810 LET U1=(F-1)*9+G @^@@@@IR )@@G@@2820 LET B$(U1)='-' @#@@@@2830 GO TO 2860 @^@@@@2840 LET U2=(H-1)*IS )@@G@@9+J @^@@@@2850 LET B$(U2)='I' @]@@@@2860 RETURN @]@@@@2870END IT )@@G@@___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@]@@@@1 L = IU )@@G@@0 @]@@@@2 U = 0 @]@@@@3 X = 0 @]@@@@4 Y = 0 @]@@@@010 R(IV )@@G@@1)=0 @]@@@@011 R(2)=0 @]@@@@012 R(3)=0 @]@@@@013 R(4)=0 @]@@@@14 LETIW )@@G@@ N2=1 @]@@@@15 LET Q=3 @]@@@@020 P=0 @B@@@@100 DIM A(3),N$(2),Q$(3)IX )@@G@@,R(4),S$(16),T$(6)@#@@@@101 DIM X(80) @#@@@@102 DIM Y(80) @^@@@@IY )@@G@@105 DIM L(10),U(10) @^@@@@106 DIM E$(15),F$(3) @#@@@@107 DIM O$(2IZ )@@G@@) @^@@@@110 MAT READ S$,T$,Q$ @#@@@@111 READ N$(2) @#@@@@112 MAJA )@@G@@T READ E$,F$@#@@@@113 MAT READ O$ @#@@@@115 RANDOMIZE @ @@@@120 PRJB )@@G@@INT ' STUDENT PLEASE.'@D@@@@122 PRINT ' A QUESTION MARK WILL BE PRINTEJC )@@G@@D WHENEVER '@D@@@@124 PRINT ' THE COMPUTER IS WAITING FOR YOUR ANSWER.' JD )@@G@@@F@@@@127 PRINT ' PLEASE TYPE YOUR FIRST NAME AND THEN PUSH RETURN.'; JE )@@G@@@#@@@@128 INPUT N$(1) @ @@@@130 PRINT 'HI, ';N$(1);', '; @D@@@@220 PRJF )@@G@@INT ' WHEN YOU ARE THROUGH TYPE THE WORD STOP.' @F@@@@230 PRINT ' ANOTHEJG )@@G@@R STUDENT CAN RESTART THE LESSON BY TYPING RUN.'@A@@@@231 PRINT 'TYPE GOJH )@@G@@ TO CONTINUE.' @]@@@@232 INPUT A$@#@@@@250 LET Z=7*Q @A@@@@260 LEJI )@@G@@T S=INT((2*INT(Q/2)+2)*RND+1) @#@@@@265 LET P=P+1 @]@@@@270 LET W=0 JJ )@@G@@@ @@@@274 IF MOD(P,10)>0 THEN *+2 @#@@@@275 LET Z=Z*0.85 @B@@@@280 LEJK )@@G@@T A(1)=INT(Z*RND/(INT(S/3)+1))+1 @A@@@@290 LET A(2)=INT(Z*RND/(INT(S/JL )@@G@@3)+1))@D@@@@300 LET A(3)=A(1)+A(2)-(A(1)-A(1)*A(2)+A(2))*INT(S/3) @ @@@@JM )@@G@@305 LET I1=2*INT(S/2)-S+3 @ @@@@306 LET I2=2+S-2*INT(S/2) @D@@@@JN )@@G@@310 PRINT A(I1);S$(S+(FNN(4)-1)*4);A(1);O$(FNN(2)); @]@@@@320 INPUT C JO )@@G@@@^@@@@330 IF C=A(I2) THEN *+2 @#@@@@331 GO TO 360 @^@@@@335 LET R(W+JP )@@G@@1)=R(W+1)+1 @^@@@@336 IF FNF=0 THEN *+2 @A@@@@337 PRINT E$(FNR);' ';N$JQ )@@G@@(FNN(2)) @]@@@@338 PRINT @#@@@@340 LET Z=1.05*Z @ @@@@345 IF MOD(PJR )@@G@@,10)>0 THEN 260 @]@@@@346 PRINT @G@@@@347 PRINT '$$$$ YOUR % IS';INTJS )@@G@@(R(1)/P*100+0.5);'% OF';P;' PROBLEMS.' @C@@@@348 PRINT '-------------JT )@@G@@----------------------' @]@@@@349 PRINT @]@@@@350 PRINT @#@@@@351 LEJU )@@G@@T N2=N2+1 @#@@@@352 GO TO 260 @#@@@@360 LET W=W+1 @^@@@@363 LEJV )@@G@@T N2=INT(N2*0.5+1)@#@@@@364 LET Z=Z*0.6 @^@@@@365 IF W=1 THEN 595 JW )@@G@@@ @@@@380 ON W GO TO 310,400,400 @B@@@@400 PRINT F$(FNN(3));N$(FNN(2)JX )@@G@@);', '; @B@@@@401 PRINT A(I1);S$(S);A(1);' =';A(I2) @ @@@@410 CAJY )@@G@@LL FNB(A(I1),A(1),A(I2))@A@@@@412 PRINT E$(FNR);' ';N$(FNN(2)) @]@@@@JZ )@@G@@413 PRINT @^@@@@420 LET S=INT(RND*2+1) @#@@@@430 GO TO 265 @ @@@@KA )@@G@@595 ON S GO TO 600,400,400,400@^@@@@600 IF A(I1)>9 THEN 620 @^@@@@610 IFKB )@@G@@ A(1)<10 THEN 400 @^@@@@620 CALL FNA(A(I1),L) @^@@@@630 CALL FNA(A(1),KC )@@G@@U) @B@@@@635 PRINT N$(FNN(2));' LET''S TRY THIS.' @#@@@@640 LET M=L(KD )@@G@@0) @^@@@@650 IF M<=U(0) THEN*+2 @#@@@@660 LET M=U(0) @#@@@@670 FOKE )@@G@@R I=1 TO M @ @@@@680 PRINT L(I);' +';U(I);' =';@]@@@@690 INPUT C @ @@@@KF )@@G@@700 IF C=L(I)+U(I) THEN *+3 @E@@@@710 PRINT F$(FNN(3));N$(FNN(2));' THKG )@@G@@E ANSWER IS';L(I)+U(I) @A@@@@715 CALL FNB(L(I),U(I),L(I)+U(I)) @A@@@@KH )@@G@@717 PRINT E$(FNR);' ';N$(FNN(2)) @]@@@@718 PRINT @]@@@@720 NEXT I KI )@@G@@@#@@@@730 GO TO 380 @ @@@@00900 DATA '+','-','X','/' @C@@@@00910 KJ )@@G@@DATA 'PLUS','MINUS','TIMES','DIVIDED BY' @C@@@@00920 DATA 'AND','TAKE AKK )@@G@@WAY','MULTIPLIED BY','/'@D@@@@00930 DATA 'ADDED TO','SUBTRACT','X','DIVIKL )@@G@@DED BY' @ @@@@00940 DATA '' , ' NOW TRY ' @A@@@@00950 DATA '',' NOKM )@@G@@W WHAT DOES','' @#@@@@00960 DATA '' @A@@@@00970 DATA 'POOR','FAIR'KN )@@G@@,'GOOD' @#@@@@00980 DATA '' @G@@@@00990 DATA 'MAGNIFICENT','TREMKO )@@G@@ENDOUS','EXCELLENT','PERFECT','SUPERB' @D@@@@01000 DATA 'SUPER','GRANKP )@@G@@D','SWELL','GREAT','KEEN' @C@@@@01010 DATA 'CORRECT','OKAY','GOOD','KQ )@@G@@RIGHT','YES'@B@@@@01020 DATA ' NO ',' INCORRECT ',' WRONG ' @ @@@@01030 KR )@@G@@DATA ' = ',' EQUALS ' @D@@@@01040 REM A = CONTAINS THE NUMBERS OF THE KS )@@G@@PROBLEM @D@@@@01050 REM A(1) = THE RIGHTMOST NUMBER OF THE PROBLEM KT )@@G@@@D@@@@01060 REM A(I1) = THE LEFTMOST NUMBER OF THE PROBLEM @D@@@@01070 KU )@@G@@REM A(I2) = THE ANSWER TO THE ARITHMETIC PROBLEM@F@@@@01080 REM C = THE KV )@@G@@STUDENT'S RESPONSE TO THE ARITHMETIC PROBLEM @F@@@@01090 REM E = THE KW )@@G@@ARRAY OF COMPUTER RESPONSES TO A CORRECT ANSWER @G@@@@01100 REM F = THE KX )@@G@@ARRAY OF COMPUTER RESPONSES TO AN INCORRECT ANSWER @D@@@@01110 REM L=KY )@@G@@ THE ARRAY OF DIGITS OF THE LEFT NUMBER @C@@@@01120 REM M = THE SMALLEKZ )@@G@@ST NUMBER OF DIGITS @B@@@@01130 REM N$(1) = THE STUDENT'S FIRST NAMELA )@@G@@@^@@@@01140 REM N$(2) = BLANK @C@@@@01150 REM P = THE NUMBER OF PROBLEMSLB )@@G@@ THUS FAR @C@@@@01160 REM Q = THE STUDENT'S DIFFICULTY LEVEL @C@@@@LC )@@G@@01170 REM S = CONTAINS THE FOUR ARITHMETIC SIGNS@F@@@@01180 REM R(I) = TLD )@@G@@HE COUNT OF CORRECT RESPONSES ON THE ITH TRY @D@@@@01190 REM U = THE LE )@@G@@ARRAY OF DIDITS OF THE RIGHT NUMBER @H@@@@01200 REM W = THE NUMBER OF INLF )@@G@@CORRECT RESPONSES GIVEN ON A SINGLE PROBLEM @D@@@@01210 REM Z = THE LG )@@G@@RANGE OF THE NUMBERS FOR A PROBLEM @H@@@@01220 REM*********************LH )@@G@@************************************************@#@@@@01230 DEF FNA(N,A)LI )@@G@@@]@@@@01240 V=N @]@@@@01250 I9=I @^@@@@01260 FOR I=1 TO 10 @B@@@@LJ )@@G@@01270 A(I)=(V-INT(V/10)*10)*10**(I-1) @]@@@@01280 A(0)=I@#@@@@01290 LK )@@G@@V=INT(V/10) @^@@@@01300 IF V<=0 THEN *+2 @]@@@@01310 NEXT I@]@@@@01320 LL )@@G@@I=I9 @]@@@@01330 FNEND @H@@@@01340 REM*********************************LM )@@G@@************************************@^@@@@01350 DEF FNB(A1,B1,C1) @B@@@@LN )@@G@@01360 PRINT ' TYPE';A1;S$(S);B1;' =';C1 @#@@@@01370 INPUT A$ @#@@@@LO )@@G@@01380 LET Z$=S$(S)@H@@@@01390 IF FNC(A1,S$)+FNT(S$,A$)+FNU(Z$ ,A$)+FNCLP )@@G@@(B1,S$)+FNU(S$,A$)=3 THEN *+2 @#@@@@01400 GO TO *-4 @D@@@@01410 IF FNULQ )@@G@@('=',A$)+FNC(C1,S$)+FNU(S$,A$)=2 THEN *+2 @#@@@@01420 GO TO *-6 @]@@@@LR )@@G@@01430 FNEND @H@@@@01440 REM*********************************************LS )@@G@@************************@^@@@@01450 DEF FNC(N,S$) @]@@@@01460 V=N LT )@@G@@@]@@@@01470 I9=I @^@@@@01480 FOR I=1 TO 20 @A@@@@01490 X(20-I)=V-INLU )@@G@@T(V/10)*10+48 @]@@@@01500 X(0)=I@#@@@@01510 V=INT(V/10) @^@@@@01520 LV )@@G@@IF V<=0 THEN *+2 @]@@@@01530 NEXT I@^@@@@01540 FOR I=1 TO X(0) @ @@@@LW )@@G@@01550 LET X(I)=X(19-X(0)+I) @]@@@@01560 NEXT I@^@@@@01570 CHANGE X TO LX )@@G@@S$ @#@@@@01580 LET FNC=0 @]@@@@01590 I=I9 @]@@@@01600 FNEND @H@@@@LY )@@G@@01610 REM***************************************************************LZ )@@G@@******@G@@@@01620 REM THIS IS A ROUTINE WHICH PROVIDES A FIXED RATIOMA )@@G@@ MULTIPLIER @I@@@@01630 REM THAT IS FNF EQUALS 1 OUT OF EVERY N2 PROBLEMMB )@@G@@S AND 0(ZERO) FOR THE OTHERS @#@@@@01640 DEF FNF @ @@@@01650 IF MODMC )@@G@@(P,N2)=0 THEN *+3 @#@@@@01660 LET FNF=0 @#@@@@01670 GO TO *+2 @#@@@@MD )@@G@@01680 LET FNF=1 @]@@@@01690 FNEND @H@@@@01700 REM*********************ME )@@G@@************************************************@A@@@@01710 DEF FNN(I8)=MF )@@G@@INT(RND*I8+1) @H@@@@01720 REM***************************************MG )@@G@@******************************@D@@@@01730 DEF FNR = RND*15*(R(1)/P)*(1/(MH )@@G@@INT(S/3)+1))+1 @H@@@@01740 REM***************************************MI )@@G@@******************************@^@@@@01750 DEF FNT(X$,Y$) @#@@@@01760 MJ )@@G@@LET FNT=0 @^@@@@01770 CHANGE X$ TO X @^@@@@01780 CHANGE Y$ TO Y MK )@@G@@@ @@@@01790 FOR I=1 TO Y(0)-X(0)+1 @^@@@@01800 FOR J=0 TO X(0)-1 @A@@@@ML )@@G@@01810 IF X(J+1)=Y(I+J) THEN *+2 @#@@@@01820 GO TO *+5 @]@@@@01830 MM )@@G@@NEXT J@#@@@@01840 LET FNT=1 @#@@@@01850 LET I=I+J+1 @#@@@@01860 GO TO MN )@@G@@*+2 @]@@@@01870 NEXT I@]@@@@01880 FNEND @H@@@@01890 REM***************MO )@@G@@******************************************************@^@@@@01900 DEF FNMP )@@G@@U(X$,Y$) @#@@@@01910 LET FNU=0 @^@@@@01920 CHANGE X$ TO X @^@@@@MQ )@@G@@01930 CHANGE Y$ TO Y @ @@@@01940 FOR I=I TO Y(0)-X(0)+1 @^@@@@01950 MR )@@G@@FOR J=0 TO X(0)-1 @A@@@@01960 IF X(J+1)=Y(I+J) THEN *+2 @#@@@@01970 MS )@@G@@GO TO *+5 @]@@@@01980 NEXT J@#@@@@01990 LET FNU=1 @#@@@@02000 LET I=MT )@@G@@I+J+1 @#@@@@02010 GO TO *+2 @]@@@@02020 NEXT I@]@@@@02030 FNEND @]@@@@MU )@@G@@02040 END ___NGE X TO S$ @#@@@@01580 LET FN*V@@@@BASIC$EQBJZLEQBJZLMV )@@G@@001-02-168 ZERDY 570705334571@@@@@ BDC^+A@@@@@@@@@@@@ MW )@@G@@@@@@^:@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@#@@@@ 1 DIM M$(10) @^@@@@ 2 LET M$(0)='GOOD.' @ @@@@ 3 LET M$MY )@@G@@(1)='CORRECT.' @^@@@@ 4 LET M$(2)='RIGHT.'@B@@@@ 5 LET M$(3)='YMZ )@@G@@OU''RE ALL-RIGHT, JACK!'@A@@@@ 6 LET M$(4)='GOOD THINKING.' @ @@@@NA )@@G@@ 7 LET M$(5)='GROOVY.' @ @@@@ 8 LET M$(6)='EXCELLANT.' @ @@@@NB )@@G@@ 9 LET M$(7)='MARVELOUS!' @^@@@@ 10 LET M$(8)='SUPER!'@ @@@@ 11 NC )@@G@@LET M$(9)='VERY GOOD!' @A@@@@ 12 LET C$= 'TYPE IN THE WORD ' @E@@@@ND )@@G@@ 13 LET F$= ' IS THE INCORRECT WORD IN THIS SENTENCE.' @^@@@@ 14 NE )@@G@@LET B$='WRONG, ' @C@@@@ 15 LET S$= ', THE CORRECT SENTENCE IS---' NF )@@G@@@C@@@@ 16 LET H$= 'HERE IS ANOTHER SENTENCE---' @E@@@@ 17 LET K$NG )@@G@@=', THERE WERE NO ERRORS IN THAT SENTENCE.' @G@@@@ 18 LET E$='LOOKNH )@@G@@ AGAIN. I DON''T SEE ANY ERRORS IN THAT SENTENCE.' @#@@@@ 19 RANDOMNI )@@G@@IZE @G@@@@ 20 PRINT 'GREETINGS! THIS IS CORRECTIVE ENGLISH DRILL NUNJ )@@G@@MBER- ED2' @D@@@@ 21PRINT' PLEASE TYPE IN YOUR FIRST NAME AND THEN' NK )@@G@@@D@@@@ 22PRINT' PRESS THE RETURN KEY ON THE KEYBOARD.' @#@@@@ 23 NL )@@G@@INPUT N$ @E@@@@ 25PRINT 'VERY GOOD, ';N$;', HERE ARE YOUR DIRECTIONNM )@@G@@S:' @G@@@@ 30PRINT' THIS DRILL WILL HELP YOU TO RECOGNIZE AND CORRECNN )@@G@@T ERRORS' @F@@@@ 35PRINT' IN GRAMMAR AND USAGE. YOU WILL BE GIVEN ANO )@@G@@ SERIES OF' @G@@@@ 40PRINT' SENTENCES TO EXAMINE. SOME OF THE SENTENCENP )@@G@@S WILL CONTAIN' @G@@@@ 45PRINT' AN ERROR. IF THERE IS AN ERROR, THENNQ )@@G@@ TYPE IN A WORD WHICH' @B@@@@ 50 PRINT ' WILL CORRECT THAT ERROR.' NR )@@G@@@]@@@@ 51 PRINT @G@@@@ 55 PRINT 'DO NOT RETYPE THE ENTIRE SENTENCE, NS )@@G@@BUT ONLY THE CORRECTED' @G@@@@ 60 PRINT ' WORD. IF YOU THINK THAT THENT )@@G@@RE AREN''T ANY ERRORS IN THE' @B@@@@ 65 PRINT ' SENTENCE, THEN TYPE INNU )@@G@@ OK'@]@@@@ 66 PRINT @C@@@@ 70 PRINT ' HERE IS THE FIRST SENTENCE--NV )@@G@@-' @#@@@@ 78 LET T1=3 @#@@@@ 79 GO TO 199 @]@@@@ 80 PRINT NW )@@G@@@#@@@@ 81 LET T=0 @G@@@@ 82 PRINT 'TYPE IN THE WORD WHICH CORRECNX )@@G@@TLY COMPLETES THE SENTENCE.' @]@@@@ 83 PRINT @]@@@@ 84 RETURN@C@@@@NY )@@G@@ 85 PRINT 'YOU DIDN''T FOLLOW DIRECTIONS!' @]@@@@ 87 RETURN@#@@@@NZ )@@G@@ 90 INPUT A$ @ @@@@ 91 IF A$='OK' THEN *+4 @ @@@@ 92 IF A$=OA )@@G@@'O.K.' THEN *+3 @#@@@@ 93 PRINT E$ @#@@@@ 94 GO TO *+2 @^@@@@OB )@@G@@ 95 PRINT M$(9);N$;K$ @]@@@@ 96 PRINT @#@@@@ 97 PRINT H$ @]@@@@OC )@@G@@ 98 PRINT @]@@@@ 99 RETURN@#@@@@ 100 INPUT A$ @]@@@@ 102 Z=1 OD )@@G@@@^@@@@ 104 IF A$=R$ THEN *+9 @^@@@@ 106 PRINT B$;W$;F$ @#@@@@ 108 OE )@@G@@PRINT C$;R$ @#@@@@ 110 INPUT A$ @^@@@@ 112 IF A$=R$ THEN *+2 @#@@@@OF )@@G@@ 114 GOSUB 85 @#@@@@ 116 GOSUB 80 @]@@@@ 118 Z=0 @]@@@@ 120 OG )@@G@@RETURN@^@@@@ 122 LET K=INP(RND*10) @#@@@@ 123 PRINT M$(K) @]@@@@ 124 OH )@@G@@Q=Q+1 @^@@@@ 125 IF Q<4 THEN *+2 @#@@@@ 126 LET H$=' ' @]@@@@ 127 OI )@@G@@PRINT @#@@@@ 128 PRINT H$ @]@@@@ 129 PRINT @]@@@@ 130 RETURN@]@@@@OJ )@@G@@ 140 Q=Q+1 @]@@@@ 141 PRINT @#@@@@ 142 PRINT H$ @]@@@@ 143 PRINT OK )@@G@@@]@@@@ 144 RETURN@#@@@@ 150 INPUT A$ @^@@@@ 152 IF A$=R$ THEN *+6 OL )@@G@@@#@@@@ 154 LET Z=0 @^@@@@ 156 PRINT B$;N$;S$ @]@@@@ 158 PRINT OM )@@G@@@#@@@@ 160 LET T=0 @]@@@@ 162 RETURN@#@@@@ 164 PRINT M$(1) @#@@@@ON )@@G@@ 166 LET Z=1 @#@@@@ 168 LET T=T+1 @]@@@@ 170 RETURN@A@@@@ 197 OO )@@G@@PRINT 'THE LESSON IS OVER!' @#@@@@ 198 GO TO 99999 @]@@@@ 199 PRINT OP )@@G@@@D@@@@ 300 PRINT 'TRY TO DO GOOD IN YOUR TEST NEXT FRIDAY.'@^@@@@ 305 OQ )@@G@@LET R$='WELL' @^@@@@ 310 LET W$='GOOD' @#@@@@ 315 GOSUB 100 OR )@@G@@@^@@@@ 320 IF Z=1 THEN 330 @#@@@@ 325 GOSUB 2000 @G@@@@ 330 PRINT OS )@@G@@'WHO DID YOU SAY HAD BEEN HELPING YOU WITH YOUR HOMEWORK? ' @#@@@@ 340 OT )@@G@@GOSUB 90 @D@@@@ 345 PRINT 'DO YOU HAVE ANY MONEY BESIDE THAT DIME?' OU )@@G@@@^@@@@ 350 LET R$='BESIDES' @^@@@@ 355 LET W$='BESIDE' @#@@@@ 360 OV )@@G@@GOSUB 100 @^@@@@ 365 IF Z=1 THEN 375 @#@@@@ 370 GOSUB 3000 @D@@@@OW )@@G@@ 375 PRINT 'WHO DID YOU SEE AT THE DANCE LAST NIGHT?'@^@@@@ 380 LET R$OX )@@G@@='WHOM' @#@@@@ 385 LET W$='WHO'@#@@@@ 390 GOSUB 100 @^@@@@ 395 OY )@@G@@IF Z=1 THEN 405 @#@@@@ 400 GOSUB 4000 @G@@@@ 405 PRINT 'WITH THE HEOZ )@@G@@LP OF HIS OLDER BROTHER, BOB BUILT A DOGHOUSE ' @ @@@@ 410 PRINT 'BESIDPA )@@G@@E THE TREE.'@#@@@@ 415 GOSUB 90 @G@@@@ 420 PRINT 'DID YOU LIE DOWN PB )@@G@@YESTERDAY WHEN YOU GOT HOME FROM SCHOOL?' @#@@@@ 425 LET R$='LAY'@#@@@@PC )@@G@@ 430 LET W$='LIE'@#@@@@ 435 GOSUB 100 @^@@@@ 440 IF Z=1 THEN 450 PD )@@G@@@#@@@@ 445 GOSUB 5000 @G@@@@ 450 PRINT 'FATHER HAS BEEN LYING IN FRONPE )@@G@@T OF THE TELEVISION ALL DAY.' @#@@@@ 460 GOSUB 90 @G@@@@ 495 PRINT PF )@@G@@'JOHN ASKED ME TO TELL HIM WHOM YOU WERE TALKING ABOUT. ' @#@@@@ 505 PG )@@G@@GOSUB 90 @G@@@@ 510 PRINT ' YOU CAN''T BE SURE THAT IT WAS HE WHO DIPH )@@G@@D IT. ' @#@@@@ 520 GOSUB 90 @G@@@@ 555 PRINT 'THE THREE BPI )@@G@@OYS DECIDED TO DIVIDE THE MONEY AMONG ' @ @@@@ 560 PRINT 'THEMSPJ )@@G@@ELVES.' @#@@@@ 565 GOSUB 90 @#@@@@ 570 GO TO 197 @D@@@@ 2000 PK )@@G@@PRINT 'WE SANG THE SONG AS ----- AS WE COULD.' @ @@@@ 2005 PRINT ' (WEPL )@@G@@LL, GOOD)' @^@@@@ 2010 LET R$='WELL' @#@@@@ 2015 GOSUB 150 @^@@@@PM )@@G@@ 2020 IF Z=1 THEN *+2 @D@@@@ 2025 PRINT 'WE SANG THE SONG AS WELL AS PN )@@G@@WE COULD.' @#@@@@ 2030 GOSUB 140 @^@@@@ 2035 IF T=T1 THEN 2999@C@@@@PO )@@G@@ 2040 PRINT 'IT IS ----- FOR US TO BE HERE.' @ @@@@ 2045 PRINT ' (WEPP )@@G@@LL, GOOD)' @^@@@@ 2050 LET R$='GOOD' @#@@@@ 2055 GOSUB 150 @^@@@@PQ )@@G@@ 2060 IF Z=1 THEN *+2 @C@@@@ 2065 PRINT 'IT IS GOOD FOR US TO BE HEREPR )@@G@@.' @#@@@@ 2070 GOSUB 140 @^@@@@ 2075 IF T=T1 THEN 2999@C@@@@ 2080 PS )@@G@@PRINT 'PLAY THE GAME AS ----- AS YOU CAN.'@ @@@@ 2085 PRINT ' (GOOD, WEPT )@@G@@LL)' @^@@@@ 2090 LET R$='WELL' @#@@@@ 2095 GOSUB 150 @^@@@@ 2100 PU )@@G@@IF Z=1 THEN *+2 @C@@@@ 2105 PRINT 'PLAY THE GAME AS WELL AS YOU CAN.'PV )@@G@@@#@@@@ 2110 GOSUB 140 @^@@@@ 2115 IF T=T1 THEN 2999@B@@@@ 2120 PRINT PW )@@G@@'DOES THE APPLE TASTE ----- ?'@ @@@@ 2125 PRINT ' (GOOD, WELL)' @^@@@@PX )@@G@@ 2130 LET R$='GOOD' @#@@@@ 2135 GOSUB 150 @^@@@@ 2140 IF Z=1 THEN PY )@@G@@*+2 @B@@@@ 2145 PRINT 'DOES THE APPLE TASTE GOOD ?'@#@@@@ 2150 GOSUB PZ )@@G@@140 @^@@@@ 2155 IF T=T1 THEN 2999@B@@@@ 2160 PRINT 'DOES''T HE FEEL -QA )@@G@@---- ?' @ @@@@ 2165 PRINT ' (WELL, GOOD)' @^@@@@ 2170 LET R$='WELLQB )@@G@@' @#@@@@ 2175 GOSUB 150 @^@@@@ 2180 IF Z=1 THEN *+2 @B@@@@ 2185 QC )@@G@@PRINT 'DOES''T HE FEEL WELL ?' @#@@@@ 2190 GOSUB 140 @^@@@@ 2195 QD )@@G@@IF T=T1 THEN 2999@]@@@@ 2999 RETURN@E@@@@ 3000 PRINT 'THE LITTLE HOUSE QE )@@G@@WAS PLACED ----- THE PALACE.' @A@@@@ 3005 PRINT ' (BESIDE, BESIDES)' QF )@@G@@@^@@@@ 3010 LET R$='BESIDE' @#@@@@ 3015 GOSUB 150 @^@@@@ 3020 IF Z=1QG )@@G@@ THEN *+2 @F@@@@ 3025 PRINT 'THE LITTLE HOUSE WAS PLACED BESIDE THE PQH )@@G@@ALACE.' @#@@@@ 3030 GOSUB 140 @^@@@@ 3035 IF T=T1 THEN 3999@F@@@@QI )@@G@@ 3040 PRINT '----- THE TWO BOYS, THEIR MOTHER WAS ALSO THERE.' @A@@@@QJ )@@G@@ 3045 PRINT ' (BESIDES, BESIDE)' @^@@@@ 3050 LET R$='BESIDES' @#@@@@QK )@@G@@ 3055 GOSUB 150 @^@@@@ 3060 IF Z=1 THEN *+2 @F@@@@ 3065 PRINT ' BESIQL )@@G@@DES THE TWO BOYS, THEIR MOTHER WAS ALSO THERE.' @#@@@@ 3070 GOSUB 140 QM )@@G@@@^@@@@ 3075 IF T=T1 THEN 3999@E@@@@ 3080 PRINT '----- THE BOOKS IN THE QN )@@G@@LIBRARY, STOOD A TABLE.'@A@@@@ 3085 PRINT ' (BESIDES, BESIDE)' @^@@@@QO )@@G@@ 3090 LET R$='BESIDE' @#@@@@ 3095 GOSUB 150 @^@@@@ 3100 IF Z=1 THEN QP )@@G@@*+2 @F@@@@ 3105 PRINT ' BESIDE THE BOOKS IN THE LIBRARY, STOOD A TABLEQQ )@@G@@.' @#@@@@ 3110 GOSUB 140 @^@@@@ 3115 IF T=T1 THEN 3999@F@@@@ 3120 QR )@@G@@PRINT '----- HIS THREE BOYS, HE HAD TWO LOVELY DAUGHTERS.' @A@@@@ 3125 QS )@@G@@PRINT ' (BESIDES, BESIDE)' @^@@@@ 3130 LET R$='BESIDES' @#@@@@ 3135 QT )@@G@@GOSUB 150 @^@@@@ 3140 IF Z=1 THEN *+2 @G@@@@ 3145 PRINT ' BESIDES HIQU )@@G@@S THREE BOYS, HE HAD TWO LOVELY DAUGHTERS.' @#@@@@ 3150 GOSUB 140 QV )@@G@@@^@@@@ 3155 IF T=T1 THEN 3999@E@@@@ 3160 PRINT '----- , YOU FAILED TO DQW )@@G@@O YOUR WORK PROPERLY.' @A@@@@ 3165 PRINT ' (BESIDE, BESIDES)' @^@@@@QX )@@G@@ 3170 LET R$='BESIDES' @#@@@@ 3175 GOSUB 150 @^@@@@ 3180 IF Z=1 THEN QY )@@G@@*+2 @F@@@@ 3185 PRINT ' BESIDES , YOU FAILED TO DO YOUR WORK PROPERLY.QZ )@@G@@' @#@@@@ 3190 GOSUB 140 @^@@@@ 3195 IF T=T1 THEN 3999@]@@@@ 3999 RA )@@G@@RETURN@H@@@@ 4000 PRINT '----- DID YOU EXPECT WOULD FINISH THE HOMEWORK RB )@@G@@ASSIGNMENT ' @^@@@@ 4005 PRINT 'FIRST?' @ @@@@ 4010 PRINT ' (WHRC )@@G@@OM, WHO)' @#@@@@ 4015 LET R$='WHO'@#@@@@ 4020 GOSUB 150 @^@@@@ 4025 RD )@@G@@IF Z=1 THEN *+3 @H@@@@ 4030 PRINT ' WHO DID YOU EXPECT WOULD FINISH THRE )@@G@@E HOMEWORK ASSIGNMENT F-' @^@@@@ 4035 PRINT 'IRST?' @#@@@@ 4040 RF )@@G@@GOSUB 140 @^@@@@ 4045 IF T=T1 THEN 4999@C@@@@ 4050 PRINT 'I DON''T KNRG )@@G@@OW ----- YOU MEAN.' @ @@@@ 4055 PRINT ' (WHOM, WHO)' @^@@@@ 4060 RH )@@G@@LET R$='WHOM' @#@@@@ 4065 GOSUB 150 @^@@@@ 4070 IF Z=1 THEN *+2 RI )@@G@@@C@@@@ 4075 PRINT 'I DON''T KNOW WHOM YOU MEAN.' @#@@@@ 4080 GOSUB RJ )@@G@@140 @^@@@@ 4085 IF T=T1 THEN 4999@C@@@@ 4090 PRINT 'I NEVER KNEW ----RK )@@G@@- DID THE JOB.' @ @@@@ 4095 PRINT ' (WHO, WHOM)' @#@@@@ 4100 LET R$RL )@@G@@='WHO'@#@@@@ 4105 GOSUB 150 @^@@@@ 4110 IF Z=1 THEN *+2 @C@@@@ 4115 RM )@@G@@PRINT 'I NEVER KNEW WHO DID THE JOB.' @#@@@@ 4120 GOSUB 140 @^@@@@RN )@@G@@ 4125 IF T=T1 THEN 4999@D@@@@ 4130 PRINT ' ----- DO YOU SUPPOSE CALLED RO )@@G@@LAST NIGHT?'@ @@@@ 4135 PRINT ' (WHOM, WHO)' @#@@@@ 4140 LET R$='WHO'RP )@@G@@@#@@@@ 4145 GOSUB 150 @^@@@@ 4150 IF Z=1 THEN *+2 @D@@@@ 4155 PRINT RQ )@@G@@' WHO DO YOU SUPPOSE CALLED LAST NIGHT?' @#@@@@ 4160 GOSUB 140 @^@@@@RR )@@G@@ 4165 IF T=T1 THEN 4999@C@@@@ 4170 PRINT 'PLEASE TELL ME FOR ----- TO ARS )@@G@@SK.' @ @@@@ 4175 PRINT ' (WHO, WHOM)' @^@@@@ 4180 LET R$='WHOM' RT )@@G@@@#@@@@ 4185 GOSUB 150 @^@@@@ 4190 IF Z=1 THEN *+2 @C@@@@ 4195 PRINT RU )@@G@@'PLEASE TELL ME FOR WHOM TO ASK.' @#@@@@ 4200 GOSUB 140 @^@@@@ 4205 RV )@@G@@IF T=T1 THEN 4999@]@@@@ 4999 RETURN@H@@@@ 5000 PRINT 'I FIND THAT I CANRW )@@G@@ SLEEP MUCH BETTER WHEN I ----- ON MY SIDE.' @ @@@@ 5005 PRINT ' (LIRX )@@G@@E, LAY)' @#@@@@ 5010 LET R$='LIE'@#@@@@ 5015 GOSUB 150 @^@@@@ 5020 RY )@@G@@IF Z=1 THEN *+2 @H@@@@ 5025 PRINT 'I FIND THAT I CAN SLEEP MUCH BETTERRZ )@@G@@ WHEN I LIE ON MY SIDE.' @#@@@@ 5030 GOSUB 140 @^@@@@ 5035 IF T=TSA )@@G@@1 THEN 5999@E@@@@ 5040 PRINT 'HAVE THE WORKMEN ----- THE NEW CARPET YETSB )@@G@@?' @ @@@@ 5045 PRINT ' (LAID, LAIN)' @^@@@@ 5050 LET R$='LAID' SC )@@G@@@#@@@@ 5055 GOSUB 150 @^@@@@ 5060 IF Z=1 THEN *+2 @E@@@@ 5065 PRINT SD )@@G@@'HAVE THE WORKMEN LAID THE NEW CARPET YET?' @#@@@@ 5070 GOSUB 140 SE )@@G@@@^@@@@ 5075 IF T=T1 THEN 5999@G@@@@ 5080 PRINT 'AFTER THE BATTLE, THE WSF )@@G@@HITE KNIGHT ----- DOWN HIS SWORD.' @ @@@@ 5085 PRINT ' (LAY, LAID)' SG )@@G@@@^@@@@ 5090 LET R$='LAID' @#@@@@ 5095 GOSUB 150 @^@@@@ 5100 IF Z=1SH )@@G@@ THEN *+2 @G@@@@ 5105 PRINT 'AFTER THE BATTLE, THE WHITE KNIGHT LAID SI )@@G@@DOWN HIS SWORD.' @#@@@@ 5110 GOSUB 140 @^@@@@ 5115 IF T=T1 THEN 5999SJ )@@G@@@E@@@@ 5120 PRINT 'THE OLD HEN CACKLES WHEN SHE HAS ----- AN EGG.'@ @@@@SK )@@G@@ 5125 PRINT ' (LAID, LAIN)' @^@@@@ 5130 LET R$='LAID' @#@@@@ 5135 SL )@@G@@GOSUB 150 @^@@@@ 5140 IF Z=1 THEN *+2 @E@@@@ 5145 PRINT 'THE OLD HENSM )@@G@@ CACKLES WHEN SHE HAS LAID AN EGG.'@#@@@@ 5150 GOSUB 140 @^@@@@ 5155 SN )@@G@@IF T=T1 THEN 5999@F@@@@ 5160 PRINT 'THE TREE HAS ----- ON THE GROUND SISO )@@G@@NCE THE STORM.' @ @@@@ 5165 PRINT ' (LAID, LAIN)' @^@@@@ 5170 LET R$SP )@@G@@='LAIN' @#@@@@ 5175 GOSUB 150 @^@@@@ 5180 IF Z=1 THEN *+2 @F@@@@SQ )@@G@@ 5185 PRINT 'THE TREE HAS LAIN ON THE GROUND SINCE THE STORM.' @#@@@@SR )@@G@@ 5190 GOSUB 140 @^@@@@ 5195 IF T=T1 THEN 5999@]@@@@ 5999 RETURN@]@@@@SS )@@G@@99999 END ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*V@@@@BASIC$EQBJZMEQBJZMST )@@G@@001-02-168 ZERDY 570705334571@@@@@[BDC^+H@@@@@@@@@@@@ SU )@@G@@@@@@^Z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@#@@@@ 1 DIM M$(10) @^@@@@ 2 LET M$(0)='GOOD.' @ @@@@ 3 LET M$SW )@@G@@(1)='CORRECT.' @^@@@@ 4 LET M$(2)='RIGHT.'@B@@@@ 5 LET M$(3)='YSX )@@G@@OU''RE ALL-RIGHT, JACK!'@A@@@@ 6 LET M$(4)='GOOD THINKING.' @ @@@@SY )@@G@@ 7 LET M$(5)='GROOVY.' @ @@@@ 8 LET M$(6)='EXCELLANT.' @ @@@@SZ )@@G@@ 9 LET M$(7)='MARVELOUS!' @^@@@@ 10 LET M$(8)='SUPER!'@ @@@@ 11 TA )@@G@@LET M$(9)='VERY GOOD!' @A@@@@ 12 LET C$= 'TYPE IN THE WORD ' @E@@@@TB )@@G@@ 13 LET F$= ' IS THE INCORRECT WORD IN THIS SENTENCE.' @^@@@@ 14 TC )@@G@@LET B$='WRONG, ' @C@@@@ 15 LET S$= ', THE CORRECT SENTENCE IS---' TD )@@G@@@C@@@@ 16 LET H$= 'HERE IS ANOTHER SENTENCE---' @E@@@@ 17 LET K$TE )@@G@@=', THERE WERE NO ERRORS IN THAT SENTENCE.' @G@@@@ 18 LET E$='LOOKTF )@@G@@ AGAIN. I DON''T SEE ANY ERRORS IN THAT SENTENCE.' @#@@@@ 19 RANDOMTG )@@G@@IZE @G@@@@ 20 PRINT 'GREETINGS! THIS IS CORRECTIVE ENGLISH DRILL NUTH )@@G@@MBER- ED2' @#@@@@ 78 LET T1=3 @#@@@@ 79 GO TO 199 @]@@@@ 80 TI )@@G@@PRINT @#@@@@ 81 LET T=0 @G@@@@ 82 PRINT 'TYPE IN THE WORD WHICH TJ )@@G@@CORRECTLY COMPLETES THE SENTENCE.' @]@@@@ 83 PRINT @]@@@@ 84 RETURNTK )@@G@@@C@@@@ 85 PRINT 'YOU DIDN''T FOLLOW DIRECTIONS!' @]@@@@ 87 RETURNTL )@@G@@@#@@@@ 90 INPUT A$ @ @@@@ 91 IF A$='OK' THEN *+4 @ @@@@ 92 TM )@@G@@IF A$='O.K.' THEN *+3 @#@@@@ 93 PRINT E$ @#@@@@ 94 GO TO *+2 TN )@@G@@@^@@@@ 95 PRINT M$(9);N$;K$ @]@@@@ 96 PRINT @#@@@@ 97 PRINT H$ TO )@@G@@@]@@@@ 98 PRINT @]@@@@ 99 RETURN@#@@@@ 100 INPUT A$ @]@@@@ 102 TP )@@G@@Z=1 @^@@@@ 104 IF A$=R$ THEN *+9 @^@@@@ 106 PRINT B$;W$;F$ @#@@@@TQ )@@G@@ 108 PRINT C$;R$ @#@@@@ 110 INPUT A$ @^@@@@ 112 IF A$=R$ THEN *+2 TR )@@G@@@#@@@@ 114 GOSUB 85 @#@@@@ 116 GOSUB 80 @]@@@@ 118 Z=0 @]@@@@TS )@@G@@ 120 RETURN@^@@@@ 122 LET K=INP(RND*10) @#@@@@ 123 PRINT M$(K) @]@@@@TT )@@G@@ 124 Q=Q+1 @^@@@@ 125 IF Q<4 THEN *+2 @#@@@@ 126 LET H$=' ' @]@@@@TU )@@G@@ 127 PRINT @#@@@@ 128 PRINT H$ @]@@@@ 129 PRINT @]@@@@ 130 RETURNTV )@@G@@@]@@@@ 140 Q=Q+1 @]@@@@ 141 PRINT @#@@@@ 142 PRINT H$ @]@@@@ 143 TW )@@G@@PRINT @]@@@@ 144 RETURN@#@@@@ 150 INPUT A$ @^@@@@ 152 IF A$=R$ THETX )@@G@@N *+6 @#@@@@ 154 LET Z=0 @^@@@@ 156 PRINT B$;N$;S$ @]@@@@ 158 TY )@@G@@PRINT @#@@@@ 160 LET T=0 @]@@@@ 162 RETURN@#@@@@ 164 PRINT M$(1) TZ )@@G@@@#@@@@ 166 LET Z=1 @#@@@@ 168 LET T=T+1 @]@@@@ 170 RETURN@A@@@@UA )@@G@@ 197 PRINT 'THE LESSON IS OVER!' @#@@@@ 198 GO TO 99999 @]@@@@ 199 UB )@@G@@PRINT @E@@@@ 300 PRINT 'I THINK PETE IS A BETTER RUNNER THAN HIM.' UC )@@G@@@#@@@@ 305 LET R$='HE' @#@@@@ 310 LET W$='HIM'@#@@@@ 315 GOSUB 100 UD )@@G@@@^@@@@ 320 IF Z=1 THEN 330 @#@@@@ 325 GOSUB 2000 @G@@@@ 330 PRINT UE )@@G@@'JOHN ASKED ME TO TELL HIM WHOM YOU WERE TALKING ABOUT.' @#@@@@ 335 UF )@@G@@GOSUB 90 @E@@@@ 340 PRINT ' YOU CAN''T BE SURE THAT IT WAS HE WHO DIUG )@@G@@D IT.'@#@@@@ 345 GOSUB 90 @E@@@@ 350 PRINT 'IN THE FRONT OF THE HOUUH )@@G@@SE WE HAVE A LAWN.' @#@@@@ 355 LET R$='AT' @#@@@@ 360 LET W$='IN' UI )@@G@@@#@@@@ 365 GOSUB 100 @^@@@@ 370 IF Z=1 THEN 380 @#@@@@ 375 GOSUB UJ )@@G@@ 3000 @G@@@@ 380 PRINT 'THE THREE BOYS DECIDED TO DIVIDE THE MONEY AMONUK )@@G@@G ' @ @@@@ 385 PRINT 'THEMSELVES.' @#@@@@ 390 GOSUB 90 UL )@@G@@@G@@@@ 395 PRINT 'THE OLD WIDOW GAVE SOME MONEY TO HER AND HER SISTER FUM )@@G@@OR ' @B@@@@ 400 PRINT 'HELPING WITH THE HOUSEWORK.' @#@@@@ 405 GOSUB UN )@@G@@90 @F@@@@ 410 PRINT 'EVERYBODY HAD TO SIGN THEIR NAME ON THE PETITIOUO )@@G@@N.' @#@@@@ 415 LET R$='HIS'@^@@@@ 420 LET W$='THEIR' @#@@@@ 425 UP )@@G@@GOSUB 100 @^@@@@ 430 IF Z=1 THEN 440 @#@@@@ 435 GOSUB 4000 @H@@@@UQ )@@G@@ 440 PRINT 'WHO''S DRAWINGS HAS THE CLASS DECIDED TO USE IN THE ART UR )@@G@@ ' @^@@@@ 445 PRINT 'EXHIBIT?' @^@@@@ 450 LET R$='WHOSE' @^@@@@US )@@G@@ 455 LET W$='WHO''S' @#@@@@ 460 GOSUB 100 @^@@@@ 465 IF Z=1 THEN UT )@@G@@ 475 @#@@@@ 470 GOSUB 5000 @G@@@@ 475 PRINT 'IT''S A SHAME THAT ONLYUU )@@G@@ WE FOUR SHOWED UP FOR THE BALL ' @^@@@@ 480 PRINT 'GAME.' @#@@@@UV )@@G@@ 485 GOSUB 90 @#@@@@ 490 GO TO 197 @ @@@@ 2000 PRINT 'WAS IT ----UW )@@G@@- ?' @ @@@@ 2005 PRINT ' (HIM, HE)' @#@@@@ 2010 LET R$='HIM'@#@@@@UX )@@G@@ 2015 GOSUB 150 @^@@@@ 2020 IF Z=1 THEN *+2 @ @@@@ 2025 PRINT 'WAS IUY )@@G@@T HIM ?' @#@@@@ 2030 GOSUB 140 @^@@@@ 2035 IF T=T1 THEN 2999@E@@@@UZ )@@G@@ 2040 PRINT 'IT MUST HAVE BEEN ----- WHO PICKED THE APPLES.'@ @@@@ 2045 VA )@@G@@PRINT ' (HIM, HE)' @#@@@@ 2050 LET R$='HE' @#@@@@ 2055 GOSUB 150 VB )@@G@@@^@@@@ 2060 IF Z=1 THEN *+2 @E@@@@ 2065 PRINT 'IT MUST HAVE BEEN HE WVC )@@G@@HO PICKED THE APPLES.' @#@@@@ 2070 GOSUB 140 @^@@@@ 2075 IF T=T1 THENVD )@@G@@ 2999@F@@@@ 2080 PRINT 'I HEARD SOME PLEASANT THINGS ABOUT YOU AND ----VE )@@G@@-.' @ @@@@ 2085 PRINT ' (HE, HIM)' @#@@@@ 2090 LET R$='HIM'@#@@@@VF )@@G@@ 2095 GOSUB 150 @^@@@@ 2100 IF Z=1 THEN *+2 @F@@@@ 2105 PRINT 'I HEAVG )@@G@@RD SOME PLEASANT THINGS ABOUT YOU AND HIM.' @#@@@@ 2110 GOSUB 140 VH )@@G@@@^@@@@ 2115 IF T=T1 THEN 2999@C@@@@ 2120 PRINT 'IT CAN''T BE ----- WHOMVI )@@G@@ YOU MEAN.' @ @@@@ 2125 PRINT ' (HIM, HE)' @#@@@@ 2130 LET R$='HIM'VJ )@@G@@@#@@@@ 2135 GOSUB 150 @^@@@@ 2140 IF Z=1 THEN *+2 @C@@@@ 2145 PRINT VK )@@G@@'IT CAN''T BE HIM WHOM YOU MEAN.' @#@@@@ 2150 GOSUB 140 @^@@@@ 2155 VL )@@G@@IF T=T1 THEN 2999@D@@@@ 2160 PRINT '----- AND I MISSED THE BUS TO SCHOOVM )@@G@@L.' @ @@@@ 2165 PRINT ' (HE, HIM)' @#@@@@ 2170 LET R$='HE' @#@@@@VN )@@G@@ 2175 GOSUB 150 @^@@@@ 2180 IF Z=1 THEN *+2 @D@@@@ 2185 PRINT ' HE AVO )@@G@@ND I MISSED THE BUS TO SCHOOL.' @#@@@@ 2190 GOSUB 140 @^@@@@ 2195 VP )@@G@@IF T=T1 THEN 2999@]@@@@ 2999 RETURN@C@@@@ 3000 PRINT 'THE COAT RACK IS VQ )@@G@@----- THE STAIRS.'@C@@@@ 3005 PRINT ' (AT THE FRONT OF, IN FRONT OF)' VR )@@G@@@ @@@@ 3010 LET R$='AT THE FRONT OF'@#@@@@ 3015 GOSUB 150 @^@@@@ 3020 VS )@@G@@IF Z=1 THEN *+2 @E@@@@ 3025 PRINT 'THE COAT RACK IS AT THE FRONT OF TVT )@@G@@HE STAIRS.' @#@@@@ 3030 GOSUB 140 @^@@@@ 3035 IF T=T1 THEN 3999@E@@@@VU )@@G@@ 3040 PRINT 'THE BARN STANDS JUST ----- THE FARMHOUSE.' @B@@@@ 3045 VV )@@G@@PRINT ' (BACK OF, IN BACK OF)' @^@@@@ 3050 LET R$='BACK OF' @#@@@@VW )@@G@@ 3055 GOSUB 150 @^@@@@ 3060 IF Z=1 THEN *+2 @E@@@@ 3065 PRINT 'THE BVX )@@G@@ARN STANDS JUST BACK OF THE FARMHOUSE.' @#@@@@ 3070 GOSUB 140 @^@@@@VY )@@G@@ 3075 IF T=T1 THEN 3999@B@@@@ 3080 PRINT 'TAKE A SEAT ----- THE ROOM.' VZ )@@G@@@C@@@@ 3085 PRINT ' (IN BACK OF, AT THE BACK OF)' @ @@@@ 3090 LET R$WA )@@G@@='AT THE BACK OF' @#@@@@ 3095 GOSUB 150 @^@@@@ 3100 IF Z=1 THEN *+2 WB )@@G@@@D@@@@ 3105 PRINT 'TAKE A SEAT AT THE BACK OF THE ROOM.' @#@@@@ 3110 WC )@@G@@GOSUB 140 @^@@@@ 3115 IF T=T1 THEN 3999@D@@@@ 3120 PRINT 'WHO SAT ---WD )@@G@@-- YOU AT THE FOOTBALL GAME?' @A@@@@ 3125 PRINT ' (BEHIND, IN BACK OF)'WE )@@G@@@^@@@@ 3130 LET R$='BEHIND' @#@@@@ 3135 GOSUB 150 @^@@@@ 3140 IF Z=1WF )@@G@@ THEN *+2 @E@@@@ 3145 PRINT 'WHO SAT BEHIND YOU AT THE FOOTBALL GAME?WG )@@G@@' @#@@@@ 3150 GOSUB 140 @^@@@@ 3155 IF T=T1 THEN 3999@E@@@@ 3160 WH )@@G@@PRINT 'THE MAN ----- THE POST COULDN''T SEE A THING.' @A@@@@ 3165 PRINT WI )@@G@@' (IN BACK OF, BEHIND)'@^@@@@ 3170 LET R$='BEHIND' @#@@@@ 3175 GOSUB WJ )@@G@@150 @^@@@@ 3180 IF Z=1 THEN *+2 @F@@@@ 3185 PRINT 'THE MAN BEHIND TWK )@@G@@HE POST COULDN''T SEE A THING.' @#@@@@ 3190 GOSUB 140 @^@@@@ 3195 WL )@@G@@IF T=T1 THEN 3999@]@@@@ 3999 RETURN@C@@@@ 4000 PRINT 'EACH OF US WENT TWM )@@G@@O ----- OWN HOME.'@ @@@@ 4005 PRINT ' (THEIR, HIS)' @#@@@@ 4010 LET R$WN )@@G@@='HIS'@#@@@@ 4015 GOSUB 150 @^@@@@ 4020 IF Z=1 THEN *+2 @C@@@@ 4025 WO )@@G@@PRINT 'EACH OF US WENT TO HIS OWN HOME.' @#@@@@ 4030 GOSUB 140 @^@@@@WP )@@G@@ 4035 IF T=T1 THEN 4999@F@@@@ 4040 PRINT 'IF ANYBODY KNOWS THE ANSWER, WQ )@@G@@----- MUST NOT TELL IT.'@ @@@@ 4045 PRINT ' (HE, THEY)' @#@@@@ 4050 WR )@@G@@LET R$='HE' @#@@@@ 4055 GOSUB 150 @^@@@@ 4060 IF Z=1 THEN *+2 @F@@@@WS )@@G@@ 4065 PRINT 'IF ANYBODY KNOWS THE ANSWER, HE MUST NOT TELL IT.' @#@@@@WT )@@G@@ 4070 GOSUB 140 @^@@@@ 4075 IF T=T1 THEN 4999@H@@@@ 4080 PRINT 'ALL OWU )@@G@@F THE SENATORS DECLARED ----- IN FAVOR OF THE NEW BILL.' @B@@@@ 4085 WV )@@G@@PRINT ' (THEMSELVES, HIMSELF)' @ @@@@ 4090 LET R$='THEMSELVES' WW )@@G@@@#@@@@ 4095 GOSUB 150 @^@@@@ 4100 IF Z=1 THEN *+2 @H@@@@ 4105 PRINT WX )@@G@@'ALL OF THE SENATORS DECLARED THEMSELVES IN FAVOR OF THE NEW-' @^@@@@WY )@@G@@ 4110 PRINT ' BILL.' @#@@@@ 4115 GOSUB 140 @^@@@@ 4120 IF T=T1 THENWZ )@@G@@ 4999@G@@@@ 4125 PRINT 'I HOPE THAT EVERYBODY WILL DO WHAT ----- HAD PRXA )@@G@@OMISED.' @ @@@@ 4130 PRINT ' (THEY, HE)' @#@@@@ 4135 LET R$='HE' XB )@@G@@@#@@@@ 4140 GOSUB 150 @^@@@@ 4145 IF Z=1 THEN *+2 @F@@@@ 4150 PRINT XC )@@G@@'I HOPE THAT EVERYBODY WILL DO WHAT HE HAD PROMISED.'@#@@@@ 4155 GOSUB XD )@@G@@140 @^@@@@ 4160 IF T=T1 THEN 4999@H@@@@ 4165 PRINT 'NEITHER MARY NOR XE )@@G@@ALICE WOULD ADMIT THAT ----- HAD MADE A ' @^@@@@ 4170 PRINT 'MISTAXF )@@G@@KE.' @ @@@@ 4175 PRINT ' (THEY, SHE)' @#@@@@ 4180 LET R$='SHE'@#@@@@XG )@@G@@ 4185 GOSUB 150 @^@@@@ 4190 IF Z=1 THEN *+3 @H@@@@ 4195 PRINT 'NEITHXH )@@G@@ER MARY NOR ALICE WOULD ADMIT THAT SHE HAD MADE A M-' @^@@@@ 4200 XI )@@G@@PRINT 'ISTAKE.' @#@@@@ 4205 GOSUB 140 @^@@@@ 4210 IF T=T1 THEN 4999XJ )@@G@@@]@@@@ 4999 RETURN@H@@@@ 5000 PRINT 'OUR CAR AUTOMATICALLY LOCKS ----- DXK )@@G@@OORS WHEN THE ENGINE IS ' @^@@@@ 5005 PRINT 'STARTED.' @ @@@@ 5010 XL )@@G@@PRINT ' (ITS, IT''S)' @#@@@@ 5015 LET R$='ITS'@#@@@@ 5020 GOSUB 150 XM )@@G@@@^@@@@ 5025 IF Z=1 THEN *+3 @H@@@@ 5030 PRINT 'OUR CAR AUTOMATICALLY LXN )@@G@@OCKS ITS DOORS WHEN THE ENGINE IS S-' @^@@@@ 5035 PRINT 'TARTED.' XO )@@G@@@#@@@@ 5040 GOSUB 140 @^@@@@ 5045 IF T=T1 THEN 5999@D@@@@ 5050 PRINT XP )@@G@@'SOME ADULTS ENJOY PLAYING ----- GAMES.' @B@@@@ 5055 PRINT ' (CHILDRENXQ )@@G@@''S, CHILDRENS'')'@ @@@@ 5060 LET R$='CHILDREN''S' @#@@@@ 5065 GOSUB XR )@@G@@150 @^@@@@ 5070 IF Z=1 THEN *+2 @E@@@@ 5075 PRINT 'SOME ADULTS ENJOYXS )@@G@@ PLAYING CHILDREN''S GAMES.' @#@@@@ 5080 GOSUB 140 @^@@@@ 5085 IF T=TXT )@@G@@1 THEN 5999@E@@@@ 5090 PRINT '----- NOT MUCH FUN TO GO TO THE MOVIES ALXU )@@G@@ONE.' @ @@@@ 5095 PRINT ' (ITS, IT''S)' @^@@@@ 5100 LET R$='IT''S' XV )@@G@@@#@@@@ 5105 GOSUB 150 @^@@@@ 5110 IF Z=1 THEN *+2 @E@@@@ 5115 PRINT XW )@@G@@' IT''S NOT MUCH FUN TO GO TO THE MOVIES ALONE.'@#@@@@ 5120 GOSUB 140 XX )@@G@@@^@@@@ 5125 IF T=T1 THEN 5999@E@@@@ 5130 PRINT 'MY FATHER HAS JUST BEGUXY )@@G@@N A TWO ----- VACATION.'@A@@@@ 5135 PRINT ' (MONTHS'', MONTH''S)'@^@@@@XZ )@@G@@ 5140 LET R$='MONTHS''' @#@@@@ 5145 GOSUB 150 @^@@@@ 5150 IF Z=1 THEN YA )@@G@@*+2 @F@@@@ 5155 PRINT 'MY FATHER HAS JUST BEGUN A TWO MONTHS'' VACATIYB )@@G@@ON.' @#@@@@ 5160 GOSUB 140 @^@@@@ 5165 IF T=T1 THEN 5999@F@@@@ 5170 YC )@@G@@PRINT 'ALL THREE ----- DRESSES WERE SOILED BY THE SOOT.' @A@@@@ 5175 YD )@@G@@PRINT ' (GIRL''S, GIRLS'')' @^@@@@ 5180 LET R$='GIRLS''' @#@@@@ 5185 YE )@@G@@GOSUB 150 @^@@@@ 5190 IF Z=1 THEN *+2 @F@@@@ 5195 PRINT 'ALL THREE YF )@@G@@GIRLS'' DRESSES WERE SOILED BY THE SOOT.' @#@@@@ 5200 GOSUB 140 @^@@@@YG )@@G@@ 5205 IF T=T1 THEN 5999@]@@@@ 5999 RETURN@]@@@@99999 END ___@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*V@@@@BASIC$EQBJZPEQBJZP001-02-168 ZERDY YI )@@G@@570705334571@@@@@[#[COAX@@@@@@@@@@@@ @@@@#4@@@@@@@@@@@@@@@@@@YJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@ 1 DIM M$(10) YK )@@G@@@^@@@@ 2 LET M$(0)='GOOD.' @ @@@@ 3 LET M$(1)='CORRECT.' @^@@@@YL )@@G@@ 4 LET M$(2)='RIGHT.'@B@@@@ 5 LET M$(3)='YOU''RE ALL-RIGHT, JACK.'YM )@@G@@@A@@@@ 6 LET M$(4)='GOOD THINKING.' @ @@@@ 7 LET M$(5)='GROOVY.YN )@@G@@' @ @@@@ 8 LET M$(6)='EXCELLANT.' @ @@@@ 9 LET M$(7)='MARVELOYO )@@G@@US!' @^@@@@ 10 LET M$(8)='SUPER!'@ @@@@ 11 LET M$(9)='VERY GOOD!' YP )@@G@@@A@@@@ 12 LET C$= 'TYPE IN THE WORD ' @E@@@@ 13 LET F$= ' IS THE IYQ )@@G@@NCORRECT WORD IN THIS SENTENCE.' @^@@@@ 14 LET B$='WRONG, ' @C@@@@YR )@@G@@ 15 LET S$= ', THE CORRECT SENTENCE IS---' @C@@@@ 16 LET H$= 'HERYS )@@G@@E IS ANOTHER SENTENCE---' @E@@@@ 17 LET K$=', THERE WERE NO ERRORSYT )@@G@@ IN THAT SENTENCE.' @G@@@@ 18 LET E$='LOOK AGAIN. I DON''T SEE ANYU )@@G@@Y ERRORS IN THAT SENTENCE.' @]@@@@19 RANDOMIZE@G@@@@ 20PRINT 'GOOD DYV )@@G@@AY. THIS IS CORRECTIVE ENGLISH DRILL NUMBER -ED2.' @D@@@@ 21PRINT' YW )@@G@@PLEASE TYPE IN YOUR FIRST NAME AND THEN' @D@@@@ 22PRINT' PRESS THE REYX )@@G@@TURN KEY ON THE KEYBOARD.' @#@@@@ 23 INPUT N$ @E@@@@ 25PRINT 'YY )@@G@@VERY GOOD, ';N$;', HERE ARE YOUR DIRECTIONS:' @G@@@@ 30PRINT' THIS DYZ )@@G@@RILL WILL HELP YOU TO RECOGNIZE AND CORRECT ERRORS' @F@@@@ 35PRINT' ZA )@@G@@IN GRAMMAR AND USAGE. YOU WILL BE GIVEN A SERIES OF' @G@@@@ 40PRINT' ZB )@@G@@SENTENCES TO EXAMINE. SOME OF THE SENTENCES WILL CONTAIN' @G@@@@ 45PZC )@@G@@RINT' AN ERROR. IF THERE IS AN ERROR, THEN TYPE IN A WORD WHICH' @B@@@@ZD )@@G@@ 50 PRINT ' WILL CORRECT THAT ERROR.' @]@@@@ 51 PRINT @G@@@@ 55 ZE )@@G@@PRINT 'DO NOT RETYPE THE ENTIRE SENTENCE, BUT ONLY THE CORRECTED' @G@@@@ZF )@@G@@ 60 PRINT ' WORD. IF YOU THINK THAT THERE AREN''T ANY ERRORS IN THE' ZG )@@G@@@B@@@@ 65 PRINT ' SENTENCE, THEN TYPE IN OK'@]@@@@ 66 PRINT @C@@@@ZH )@@G@@ 70 PRINT ' HERE IS THE FIRST SENTENCE---' @#@@@@ 78 LET T1=3 ZI )@@G@@@#@@@@ 79 GO TO 199 @]@@@@ 80 PRINT @#@@@@ 81 LET T=0 @G@@@@ZJ )@@G@@ 82 PRINT 'TYPE IN THE WORD WHICH CORRECTLY COMPLETES THE SENTENCE.' ZK )@@G@@@]@@@@ 83 PRINT @]@@@@ 84 RETURN@C@@@@ 85 PRINT 'YOU DIDN''T FOLLOZL )@@G@@W DIRECTIONS!' @]@@@@ 87 RETURN@#@@@@ 90 INPUT A$ @ @@@@ 91 ZM )@@G@@IF A$='OK' THEN *+4 @ @@@@ 92 IF A$='O.K.' THEN *+3 @#@@@@ 93 ZN )@@G@@PRINT E$ @#@@@@ 94 GO TO *+2 @^@@@@ 95 PRINT M$(9);N$;K$ @]@@@@ZO )@@G@@ 96 PRINT @#@@@@ 97 PRINT H$ @]@@@@ 98 PRINT @]@@@@ 99 RETURNZP )@@G@@@#@@@@ 100 INPUT A$ @]@@@@ 102 Z=1 @^@@@@ 104 IF A$=R$ THEN *+9 ZQ )@@G@@@^@@@@ 106 PRINT B$;W$;F$ @#@@@@ 108 PRINT C$;R$ @#@@@@ 110 INPUT ZR )@@G@@A$ @^@@@@ 112 IF A$=R$ THEN *+2 @#@@@@ 114 GOSUB 85 @#@@@@ 116 ZS )@@G@@GOSUB 80 @]@@@@ 118 Z=0 @]@@@@ 120 RETURN@^@@@@ 122 LET K=INP(RNZT )@@G@@D*10) @#@@@@ 123 PRINT M$(K) @]@@@@ 124 PRINT @#@@@@ 126 PRINT H$ ZU )@@G@@@]@@@@ 128 PRINT @]@@@@ 130 RETURN@]@@@@ 140 PRINT @#@@@@ 141 PRINT ZV )@@G@@H$ @]@@@@ 142 PRINT @]@@@@ 143 RETURN@#@@@@ 150 INPUT A$ @^@@@@ZW )@@G@@ 152 IF A$=R$ THEN *+6 @#@@@@ 154 LET Z=0 @^@@@@ 156 PRINT B$;N$;ZX )@@G@@S$ @]@@@@ 158 PRINT @#@@@@ 160 LET T=0 @]@@@@ 162 RETURN@#@@@@ZY )@@G@@ 164 PRINT M$(1) @#@@@@ 166 LET Z=1 @#@@@@ 168 LET T=T+1 @]@@@@ZZ )@@G@@ 170 RETURN@ @@@@ 197PRINT'END OF THE LESSON!'@#@@@@ 198 GO TO 99999 AA )@@G@@@]@@@@ 199 PRINT @D@@@@ 300 PRINT 'TRY TO DO GOOD IN YOUR TEST NEXT FRAB )@@G@@IDAY.'@^@@@@ 305 LET R$='WELL' @^@@@@ 310 LET W$='GOOD' @#@@@@AC )@@G@@ 315 GOSUB 100 @^@@@@ 320 IF Z=1 THEN 330 @#@@@@ 325 GOSUB 2000 AD )@@G@@@G@@@@ 330 PRINT 'WHO DID YOU SAY HAD BEEN HELPING YOU WITH YOUR HOMEWOAE )@@G@@RK? ' @#@@@@ 335 GOSUB 90 @D@@@@ 340 PRINT 'DO YOU HAVE ANY MONEY BAF )@@G@@ESIDE THAT DIME?' @^@@@@ 345 LET R$='BESIDES' @^@@@@ 350 LET W$='BESIAG )@@G@@DE' @#@@@@ 355 GOSUB 100 @^@@@@ 360 IF Z=1 THEN 370 @#@@@@ 365 AH )@@G@@GOSUB 3000 @D@@@@ 370 PRINT 'WHO DID YOU SEE AT THE DANCE LAST NIGHT?'AI )@@G@@@^@@@@ 375 LET R$='WHOM' @#@@@@ 380 LET W$='WHO'@#@@@@ 385 GOSUB AJ )@@G@@100 @^@@@@ 390 IF Z=1 THEN 400 @#@@@@ 395 GOSUB 4000 @G@@@@ 400 AK )@@G@@PRINT 'WITH THE HELP OF HIS OLDER BROTHER, BOB BUILT A DOGHOUSE ' @ @@@@AL )@@G@@405 PRINT 'BESIDE THE TREE.' @#@@@@ 410 GOSUB 90 @G@@@@ 415 PRINT AM )@@G@@'DID YOU LIE DOWN YESTERDAY WHEN YOU GOT HOME FROM SCHOOL?' @#@@@@ 420 AN )@@G@@LET R$='LAY'@#@@@@ 425 LET W$='LIE'@#@@@@ 430 GOSUB 100 @^@@@@435 IFAO )@@G@@ Z=1 THEN 197 @D@@@@ 2000 PRINT 'WE SANG THE SONG AS ----- AS WE COUAP )@@G@@LD.' @ @@@@ 2005 PRINT ' (WELL, GOOD)' @^@@@@ 2010 LET R$='WELL' AQ )@@G@@@#@@@@ 2015 GOSUB 150 @^@@@@ 2020 IF Z=1 THEN *+2 @D@@@@ 2025 PRINT AR )@@G@@'WE SANG THE SONG AS WELL AS WE COULD.' @#@@@@ 2030 GOSUB 140 @^@@@@AS )@@G@@ 2035 IF T=T1 THEN 2999@C@@@@ 2040 PRINT 'IT IS ----- FOR US TO BE HEREAT )@@G@@.' @ @@@@ 2045 PRINT ' (WELL, GOOD)' @^@@@@ 2050 LET R$='GOOD' AU )@@G@@@#@@@@ 2055 GOSUB 150 @^@@@@ 2060 IF Z=1 THEN *+2 @C@@@@ 2065 PRINT AV )@@G@@'IT IS GOOD FOR US TO BE HERE.' @#@@@@ 2070 GOSUB 140 @^@@@@ 2075 AW )@@G@@IF T=T1 THEN 2999@C@@@@ 2080 PRINT 'PLAY THE GAME AS ----- AS YOU CAN.'AX )@@G@@@ @@@@ 2085 PRINT ' (GOOD, WELL)' @^@@@@ 2090 LET R$='WELL' @#@@@@AY )@@G@@ 2095 GOSUB 150 @^@@@@ 2100 IF Z=1 THEN *+2 @C@@@@ 2105 PRINT 'PLAY AZ )@@G@@THE GAME AS WELL AS YOU CAN.'@#@@@@ 2110 GOSUB 140 @^@@@@ 2115 IF T=TBA )@@G@@1 THEN 2999@B@@@@ 2120 PRINT 'DOES THE APPLE TASTE ----- ?'@ @@@@ 2125 BB )@@G@@PRINT ' (GOOD, WELL)' @^@@@@ 2130 LET R$='GOOD' @#@@@@ 2135 GOSUB BC )@@G@@150 @^@@@@ 2140 IF Z=1 THEN *+2 @B@@@@ 2145 PRINT 'DOES THE APPLE TABD )@@G@@STE GOOD ?'@#@@@@ 2150 GOSUB 140 @^@@@@ 2155 IF T=T1 THEN 2999@B@@@@BE )@@G@@ 2160 PRINT 'DOES''T HE FEEL ----- ?' @ @@@@ 2165 PRINT ' (WELL, GOBF )@@G@@OD)' @^@@@@ 2170 LET R$='WELL' @#@@@@ 2175 GOSUB 150 @^@@@@ 2180 BG )@@G@@IF Z=1 THEN *+2 @B@@@@ 2185 PRINT 'DOES''T HE FEEL WELL ?' @#@@@@BH )@@G@@ 2190 GOSUB 140 @^@@@@ 2195 IF T=T1 THEN 2999@]@@@@ 2999 RETURN@E@@@@BI )@@G@@ 3000 PRINT 'THE LITTLE HOUSE WAS PLACED ----- THE PALACE.' @A@@@@ 3005 BJ )@@G@@PRINT ' (BESIDE, BESIDES)' @^@@@@ 3010 LET R$='BESIDE' @#@@@@ 3015 BK )@@G@@GOSUB 150 @^@@@@ 3020 IF Z=1 THEN *+2 @F@@@@ 3025 PRINT 'THE LITTLE BL )@@G@@HOUSE WAS PLACED BESIDE THE PALACE.' @#@@@@ 3030 GOSUB 140 @^@@@@BM )@@G@@ 3035 IF T=T1 THEN 3999@F@@@@ 3040 PRINT ' ----- THE TWO BOYS, THEIR MOBN )@@G@@THER WAS ALSO THERE.' @A@@@@ 3045 PRINT ' (BESIDES, BESIDE)' @^@@@@BO )@@G@@ 3050 LET R$='BESIDES' @#@@@@ 3055 GOSUB 150 @^@@@@ 3060 IF Z=1 THEN BP )@@G@@*+2 @F@@@@ 3065 PRINT ' BESIDES THE TWO BOYS, THEIR MOTHER WAS ALSO TBQ )@@G@@HERE.'@#@@@@ 3070 GOSUB 140 @^@@@@ 3075 IF T=T1 THEN 3999@F@@@@ 3080 BR )@@G@@PRINT ' ----- THE BOOKS IN THE LIBRARY, STOOD A TABLE.' @A@@@@ 3085 BS )@@G@@PRINT ' (BESIDES, BESIDE)' @^@@@@ 3090 LET R$='BESIDE' @#@@@@ 3095 BT )@@G@@GOSUB 150 @^@@@@ 3100 IF Z=1 THEN *+2 @F@@@@ 3105 PRINT ' BESIDE THBU )@@G@@E BOOKS IN THE LIBRARY, STOOD A TABLE.' @#@@@@ 3110 GOSUB 140 @^@@@@BV )@@G@@ 3115 IF T=T1 THEN 3999@F@@@@ 3120 PRINT ' ----- HIS THREE BOYS, HE HADBW )@@G@@ TWO LOVELY DAUGHTERS.' @A@@@@ 3125 PRINT ' (BESIDES, BESIDE)' @^@@@@BX )@@G@@ 3130 LET R$='BESIDES' @#@@@@ 3135 GOSUB 150 @^@@@@ 3140 IF Z=1 THEN BY )@@G@@*+2 @G@@@@ 3145 PRINT ' BESIDES HIS THREE BOYS, HE HAD TWO LOVELY DAUBZ )@@G@@GHTERS.' @#@@@@ 3150 GOSUB 140 @^@@@@ 3155 IF T=T1 THEN 3999@D@@@@CA )@@G@@ 3160 PRINT ' ----- , YOU FAILED TO DO YOUR DUTY.' @A@@@@ 3165 PRINT CB )@@G@@' (BESIDE, BESIDES)' @^@@@@ 3170 LET R$='BESIDES' @#@@@@ 3175 GOSUB CC )@@G@@150 @^@@@@ 3180 IF Z=1 THEN *+2 @D@@@@ 3185 PRINT ' BESIDES , YOU FCD )@@G@@AILED TO DO YOUR DUTY.' @#@@@@ 3190 GOSUB 140 @^@@@@ 3195 IF T=T1 THENCE )@@G@@ 3999@]@@@@ 3999 RETURN@H@@@@ 4000 PRINT '----- DID YOU EXPECT WOULD FICF )@@G@@NISH THE HOMEWORK ASSIGNMENT ' @^@@@@ 4005 PRINT 'FIRST?' @ @@@@CG )@@G@@ 4010 PRINT ' (WHOM, WHO)' @#@@@@ 4015 LET R$='WHO'@#@@@@ 4020 GOSUB CH )@@G@@150 @^@@@@ 4025 IF Z=1 THEN *+3 @H@@@@ 4030 PRINT ' WHO DID YOU EXPECI )@@G@@CT WOULD FINISH THE HOMEWORK ASSIGNMENT F-' @^@@@@ 4035 PRINT 'IRST?CJ )@@G@@' @#@@@@ 4040 GOSUB 140 @^@@@@ 4045 IF T=T1 THEN 4999@C@@@@ 4050 CK )@@G@@PRINT 'I DON''T KNOW ----- YOU MEAN.' @ @@@@ 4055 PRINT ' (WHOM, WHCL )@@G@@O)' @^@@@@ 4060 LET R$='WHOM' @#@@@@ 4065 GOSUB 150 @^@@@@ 4070 CM )@@G@@IF Z=1 THEN *+2 @C@@@@ 4075 PRINT 'I DON''T KNOW WHOM YOU MEAN.' CN )@@G@@@#@@@@ 4080 GOSUB 140 @^@@@@ 4085 IF T=T1 THEN 4999@C@@@@ 4090 PRINT CO )@@G@@'I NEVER KNEW ----- DID THE JOB.' @ @@@@ 4095 PRINT ' (WHO, WHOM)' CP )@@G@@@#@@@@ 4100 LET R$='WHO'@#@@@@ 4105 GOSUB 150 @^@@@@ 4110 IF Z=1 THEN CQ )@@G@@*+2 @C@@@@ 4115 PRINT 'I NEVER KNEW WHO DID THE JOB.' @#@@@@ 4120 CR )@@G@@GOSUB 140 @^@@@@ 4125 IF T=T1 THEN 4999@D@@@@ 4130 PRINT ' ----- DO YCS )@@G@@OU SUPPOSE CALLED LAST NIGHT?'@ @@@@ 4135 PRINT ' (WHOM, WHO)' @#@@@@CT )@@G@@ 4140 LET R$='WHO'@#@@@@ 4145 GOSUB 150 @^@@@@ 4150 IF Z=1 THEN *+2 CU )@@G@@@D@@@@ 4155 PRINT ' WHO DO YOU SUPPOSE CALLED LAST NIGHT?' @#@@@@ 4160 CV )@@G@@GOSUB 140 @^@@@@ 4165 IF T=T1 THEN 4999@C@@@@ 4170 PRINT 'PLEASE TELLCW )@@G@@ ME FOR ----- TO ASK.' @ @@@@ 4175 PRINT ' (WHO, WHOM)' @^@@@@ 4180 CX )@@G@@LET R$='WHOM' @#@@@@ 4185 GOSUB 150 @^@@@@ 4190 IF Z=1 THEN *+2 CY )@@G@@@C@@@@ 4195 PRINT 'PLEASE TELL ME FOR WHOM TO ASK.' @#@@@@ 4200 GOSUB CZ )@@G@@140 @^@@@@ 4205 IF T=T1 THEN 4999@]@@@@ 4999 RETURN@#@@@@ 5000 GO TO DA )@@G@@ 197 @]@@@@99999 END ___ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@*V@@@@BASIC$EQBJ$$EQBJ$$305-12-745 BASIC$FILES 750340532430@@@@@^BQC^D"DC )@@G@@@@@@@@@@@@@@ @@@@[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@0 REMARKABLE PROGRAM WRITTEN BY RJC 4-10-6DE )@@G@@9 @^@@@@1 REM VERSION 3 4/18/69 @#@@@@10 DIM Z$(9),Y$(9)@A@@@@20 PRIDF )@@G@@NT'DO YOU KNOW HOW TO PLAY'; @]@@@@30 INPUT R$ @ @@@@40 ON FNA GO TO 24DG )@@G@@0,70,50 @A@@@@50 PRINT'ANSWER EITHER YES OR NO' @]@@@@60 GO TO 30 DH )@@G@@@A@@@@70 PRINT ' ','POSITION NUMBERING-' @^@@@@80 PRINT' ','123456789' DI )@@G@@@^@@@@90 PRINT' ','****OXXXX' @#@@@@100 PRINT @^@@@@110 PRINT ' DJ )@@G@@','OBJECT-' @F@@@@120 PRINT 'TO REVERSE THE POSITION OF THE *''S AND THEDK )@@G@@ X''S.' @A@@@@130 PRINT 'THE O IS AN EMPTY SPACE.'@]@@@@140 PRINT DL )@@G@@@^@@@@150 PRINT' ','PUZZLE-' @H@@@@160 PRINT'THE CENTER HOLE IS VACANT,DM )@@G@@AND FOUR MEN OF EACH KIND ARE ON EACH ' @I@@@@170 PRINT'SIDE OF THE VADN )@@G@@CANT HOLE. YOU MOVE BY EITHER JUMPING TO THE NEXT HOLE' @G@@@@180 PRDO )@@G@@INT'OR JUMPING OVER ONE MAN. BACKWARD MOVES ARE NOT PERMITTED.' @C@@@@DP )@@G@@190 PRINT'A SAMPLE MOVE WOULD BE 4,5 OR 3,5 ' @G@@@@200 PRINT 'YOU PLADQ )@@G@@Y AGAINST YOURSELF, UNIVAC JUST KEEPS YOU HONEST.' @C@@@@210 PRINT 'TDR )@@G@@O CONCEDE AT ANY TIME TYPE 9,9 ' @ @@@@220 PRINT' ',' ','GOOD LUCK' DS )@@G@@@#@@@@230 REM RESTART @#@@@@240 FOR I=1 TO 9 @#@@@@250 READ Z$(I) DT )@@G@@@]@@@@260 NEXT I @#@@@@270 FOR I=1 TO 9 @#@@@@280 READ Y$(I) @]@@@@DU )@@G@@290 NEXT I @ @@@@300 DATA *,*,*,*,O,X,X,X,X @ @@@@310 DATA X,X,X,X,ODV )@@G@@,*,*,*,* @]@@@@320 RESTORE$@^@@@@330 REM PLAYS THE GAME@#@@@@340 MADW )@@G@@T PRINT Z$; @ @@@@350 PRINT ' YOUR MOVE'; @#@@@@360 INPUT A,B DX )@@G@@@A@@@@370 REM CHECKS FOR VALID MOVE @^@@@@380 IF A=B GO TO 610 DY )@@G@@@^@@@@390 IF A+B>17 GO TO 580 @ @@@@400 IF Z$(B)<> 'O' GO TO 580 @ @@@@DZ )@@G@@410 IF Z$(A) = 'X' GO TO 460 @^@@@@420 IF A>B GO TO 580 @^@@@@430 IFEA )@@G@@ B-A>2 GO TO 580 @#@@@@440 LET Z$(B)='*' @#@@@@450 GO TO 490 @^@@@@EB )@@G@@460 IF B>A GO TO 580 @^@@@@470 IF A-B>2 GO TO 580 @#@@@@480 LET Z$(BEC )@@G@@)='X' @#@@@@490 LET Z$(A)='O' @^@@@@500 REM CHECKS FOR A WIN@^@@@@510 FOED )@@G@@R I=1 TO 9 STEP 1 @ @@@@520 IF Z$(I) <> Y$(I) THEN 340@]@@@@530 NEXT I EE )@@G@@@#@@@@540 MAT PRINT Z$; @F@@@@550 PRINT ' *************** YOU DID IEF )@@G@@T ***************!!!!!' @#@@@@560 LET H=H+1 @#@@@@570 GO TO 630 EG )@@G@@@^@@@@580 PRINT 'INVALID MOVE'@#@@@@590 LET K=K+1 @#@@@@600 GO TO 35EH )@@G@@0 @^@@@@610 PRINT 'YOU CONCEDE' @#@@@@620 LET G=G+1 @A@@@@630 PREI )@@G@@INT'DO YOU WANT TO TRY AGAIN';@]@@@@640 INPUT R$@ @@@@650 ON FNA GO TO 2EJ )@@G@@40,750,660 @A@@@@660 PRINT'JUST A YES OR NO PLEASE' @#@@@@670 GO TO 64EK )@@G@@0 @]@@@@680 DEFFNA @#@@@@690 LET FNA=1 @^@@@@700 IF R$='YES' THEL )@@G@@EN 740@#@@@@710 LET FNA=2 @^@@@@720 IF R$='NO' THEN 740 @#@@@@730 LEEM )@@G@@T FNA=3 @]@@@@740 FNEND @^@@@@750 IF H>0 THEN 840 @H@@@@760 PREN )@@G@@INT'YOU HAVEN''T SOLVED THE PUZZLE YET, SO LET''S PLAY AGAIN ANYWAY' EO )@@G@@@ @@@@770 PRINT 'WHAT DO YOU SAY'; @]@@@@780 INPUT J$@ @@@@790 IF J$ = EP )@@G@@'YES' THEN 240 @ @@@@800 IF J$ = 'NO' THEN 830 @A@@@@810 PRINT 'AEQ )@@G@@ YES OR NO WILL DO' @#@@@@820 GO TO 780 @^@@@@830 PRINT 'QUITTERER )@@G@@' @H@@@@840 PRINT'YOUR SCORE IS ';H;' WINS, ';G;' LOSSES AND ';K;' ES )@@G@@INVALID MOVES.' @^@@@@850 PRINT 'GOODBYE' @]@@@@860 END ___@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@D@@@@10PRINT'HELLO. THIS IS THE NEEU )@@G@@W YORK UNIVERSITY 1108.'@F@@@@15PRINT'I WILL SHOW YOU HOW TO USE THE TELEV )@@G@@ETYPE TO SOLVE SETS OF '@D@@@@20PRINT'SIMULTANEOUS EQUATIONS EASILY AND EW )@@G@@QUICKLY.' @]@@@@25PRINT @H@@@@30PRINT'WELL, I HAVE INTRODUCED MYSEEX )@@G@@LF. HOW ABOUT TELLING ME YOUR NAME.' @]@@@@35INPUTN$ @]@@@@40PRINEY )@@G@@T @^@@@@60PRINT'OKAY, ';N$;'.' @F@@@@70PRINT'HERE IS AN EXAMPLE OF EZ )@@G@@A SET OF SIMULTANEOUS EQUATIONS;' @]@@@@75PRINT @B@@@@80PRINT' FA )@@G@@ 4X + 5Y + 6Z = 2' @B@@@@85PRINT' 9X - 3Y + ZFB )@@G@@ = 5' @B@@@@90PRINT' 3X +10Y - 4Z =13' @]@@@@95PRINT FC )@@G@@@F@@@@100PRINT'THE DATA MUST BE READ TO ME BY USING A SPECIFIED FORMAT' FD )@@G@@@^@@@@105PRINT'FOR EXAMPLE' @B@@@@110PRINT' 5000DATA (DATA NUMBEFE )@@G@@RS)' @B@@@@115PRINT' 5002DATA (DATA NUMBERS)' @B@@@@120PRINT' 50FF )@@G@@04DATA (DATA NUMBERS)' @]@@@@125PRINT' .'@]@@@@130PRINT' .'@]@@@@FG )@@G@@135PRINT' .'@#@@@@140PRINT' ETC.' @]@@@@141PRINT @]@@@@142PRINT FH )@@G@@@]@@@@143PRINT @D@@@@145PRINT'NOW LETS SET UP SOME RULES FOR DATA INPFI )@@G@@UT.' @D@@@@150PRINT' 1. THE FIRST DATA NUMBER FOR A COMPLETLY' @D@@@@FJ )@@G@@155PRINT' NEW PROBLEM MUST BE A DIGIT TELLING' @D@@@@160PRINT' FK )@@G@@ ME HOW LARGE THE MATRIX TO THE LEFT' @B@@@@165PRINT' OF THE EQUFL )@@G@@ALS(=) SIGN IS.' @ @@@@170PRINT'I.E. 5000DATA 3' @E@@@@175PRINT' FM )@@G@@ THE EXAMPLE GIVEN ABOVE WAS A 3 X 3 MATRIX.' @]@@@@180PRINT @C@@@@FN )@@G@@185PRINT' 2. IN SOME CASES AN ENGINNER WANTS' @D@@@@190PRINT' TO SFO )@@G@@OLVE THE SAME SET OF EQUATIONS' @E@@@@195PRINT' ONLY WITH DIFFERFP )@@G@@ENT CONSTANTS. (CONSTANTS' @D@@@@200PRINT' ARE TO THE RIGHT OF THFQ )@@G@@E EQUALS(=) SIGN.'@D@@@@205PRINT' THEREFORE, THE NEXT DIGIT I LOOK FFR )@@G@@OR ' @E@@@@210PRINT' TELLS ME HOW MANY SETS OF CONSTANTS ARE TO BE'FS )@@G@@@ @@@@215PRINT' SOLVED FOR.' @B@@@@220PRINT' NOW THE DATA LOOKS LFT )@@G@@IKE THIS:' @^@@@@225PRINT' 5000DATA 3,1' @B@@@@230PRINT' FOR THE SAFU )@@G@@ME ABOVE EXAMPLE.'@E@@@@235PRINT' NOTICE THE COMMA. I REQUIRE IT TO BE FV )@@G@@THERE.' @]@@@@240PRINT @D@@@@245PRINT' 3. NOW I WANT TO READ THEFW )@@G@@ N X N MATRIX.' @C@@@@250PRINT' I WILL READ ACROSS THE ROW FIRST' FX )@@G@@@C@@@@255PRINT' THEN MOVE TO THE NEXT ROW ETC.' @#@@@@260PRINT' EXFY )@@G@@AMPLE'@C@@@@265PRINT' 5000DATA 3,1,4,5,6,9,-3,1,3,10,-4' @]@@@@270PRIFZ )@@G@@NT @D@@@@275PRINT' THE LAST SET OF DATA ARE THE CONSTANTS.'@#@@@@GA )@@G@@280PRINT' EXAMPLE'@C@@@@285PRINT' 5000DATA 3,1,4,5,6,9,-3,1,3,10,-4' GB )@@G@@@C@@@@290PRINT' AND IF YOU MUST USE ANOTHER LINE' @ @@@@295PRINT' 50GC )@@G@@02DATA 2,5,13' @]@@@@300PRINT @D@@@@305PRINT'IF YOU HAVE MORE CONSGD )@@G@@TANTS JUST CONTINUE ' @A@@@@310PRINT'THEM IN THE SAME FASHION.' @]@@@@GE )@@G@@315PRINT @F@@@@320PRINT'IF YOU WANT ANOTHER PROBLEM JUST START AT THEGF )@@G@@ BEGINNING.'@]@@@@330PRINT @C@@@@335PRINT'WHEN THE COMPUTER TYPES THEGG )@@G@@ TIME, TYPE'@^@@@@340PRINT' OLD' @^@@@@345PRINT'AND RETURN' GH )@@G@@@B@@@@350PRINT'WHEN THE COMPUTER RESPONDS WITH' @A@@@@355PRINT' GI )@@G@@ OLD PROGRAM NAME'@#@@@@360PRINT'TYPE' @ @@@@365PRINT' SIMULGJ )@@G@@EQ' @^@@@@370PRINT'AND RETURN' @]@@@@375PRINT @F@@@@380PRINT'THEGK )@@G@@N TYPE IN YOUR DATA IN THE FASHION DESCRIBED ABOVE' @^@@@@385PRINT'ANDGL )@@G@@ RETURN' @^@@@@390PRINT'THEN TYPE' @^@@@@395PRINT' RUN' GM )@@G@@@^@@@@400PRINT'AND RETURN' @]@@@@405PRINT @]@@@@99999END ___ 4ZGN )@@G@@ =13' @]@@@@95PRINT @F@@@@100PRINT'THE DATA MUST BE READ TO ME BY USGO )@@G@@*[@@@@*SDFF*@E@@@@10 PRINT'YOU ARE UNFORTUNATE TO HAVE CHOSEN THIS PROGRGP )@@G@@AM.' @E@@@@15 PRINT'FOLLOW THESE INSTRUCTIONS CAREFULLY,IF YOU CAN!' GQ )@@G@@@E@@@@20 PRINT'WHAT YOU HAVE TO DO IS TRANSLATE WHAT I PRINT.' @A@@@@GR )@@G@@25 PRINT 'DO YOU UNDERSTAND SO FAR';@]@@@@30 INPUT A$ @^@@@@35 IF A$='NOGS )@@G@@' GO TO 45 @^@@@@40 IF A$='YES' GO TO 65 @F@@@@45 PRINT'PITY,PITY,PITY,GT )@@G@@PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY' @F@@@@50 PRINT'PITY,PITY,PITY,GU )@@G@@PITY,PITY,PITY,PITY,PITY,PITY,PITY,PITY' @D@@@@55 PRINT'I CAN NOT HELP GV )@@G@@IT IF YOU ARE STUPID,STUPID!' @]@@@@60 GO TO 995@E@@@@65 PRINT'I WILL PRGW )@@G@@INT OUT A CODE, AND YOU HAVE TO BREAK IT.'@F@@@@75 PRINT'IF YOU DO,YOU WGX )@@G@@ILL GAIN PART OF THE PASSWORD TO FILE'; @#@@@@76 PRINT' ALPHA.' @F@@@@GY )@@G@@80 PRINT'IF YOU DO NOT TRANSLATE IN FOUR TRYS,A BOMB EXPLODES!' @D@@@@GZ )@@G@@85 PRINT'THERE WILL BE ONLY ONE CLUE FOR EACH TRY.' @E@@@@86 PRINT'ONLHA )@@G@@Y TWO LETTERS OF THE CODE CHANGES EACH TIME.' @C@@@@87 PRINT' GOHB )@@G@@OD LUCK,YOU WILL NEED IT!!' @F@@@@90 PRINT'WOULD YOU LIKE TO CHICKEN OHC )@@G@@UT BEFORE I GIVE YOU THE '; @^@@@@91 PRINT'FIRST MESSAGE';@]@@@@95 INPHD )@@G@@UT B$ @^@@@@100 IF B$='NO' GO TO 120@ @@@@105 IFB$ ='YES' GO TO 110 HE )@@G@@@B@@@@110 PRINT'YOU MAKE A LOUSY SPY,COWARD!' @#@@@@115 GO TO 995 HF )@@G@@@F@@@@120 PRINT'I AM GLAD YOU HAVE A BACKBONE AT LEAST,YOU MORON!' HG )@@G@@@]@@@@125PRINT '' @A@@@@130 PRINT'HERE IS YOUR FIRST CLUE!' @#@@@@135 PRHH )@@G@@INT'*/CD' @A@@@@140 PRINT'YOUR CLUE IS ASSISTANCE' @A@@@@145 PRINT'WHHI )@@G@@AT IS YOUR FIRST GUESS';@]@@@@150 INPUTC$ @ @@@@155 IF C$='HELP' GO TO34HJ )@@G@@0 @ @@@@165 PRINT'SORRY,TRY AGAIN!' @]@@@@170 INPUT C$@ @@@@175IF HK )@@G@@C$='HELP' GO TO 340 @A@@@@185 PRINT'THIS IS YOUR THIRD TRY!' @]@@@@HL )@@G@@190 INPUT C$@ @@@@195 IFC$ ='HELP' GO TO 340 @^@@@@205 PRINT'TRY AGAIHM )@@G@@N' @]@@@@210 INPUT C$@ @@@@215 IF C$='HELP',GO TO 340 @A@@@@225 PRHN )@@G@@INT'SORRY,YOU GOOFFED AGIAN!' @C@@@@230 PRINT'YOU HAVE NOW USED HALF YOUHO )@@G@@R CHANCES' @C@@@@235 PRINT'DO YOU WANT TO ABORT THE MISSION'; @]@@@@HP )@@G@@240 INPUT D$@ @@@@245 IF D$='YES' GO TO 110 @ @@@@255PRINT'THE CODE HQ )@@G@@IS*/CD' @A@@@@260 PRINT 'THE CLUE IS ASSISTANCE' @A@@@@265 PRINT'WHHR )@@G@@AT IS YOUR LAST TRY'; @]@@@@270 INPUT C$@ @@@@275 IF C$='HELP' GO TO 3HS )@@G@@40 @F@@@@290 PRINT'FIVE SECONDS......................................HT )@@G@@' @ @@@@295 PRINT'FOUR..............' @ @@@@300 PRINT'THREE.........HU )@@G@@....' @ @@@@305 PRINT'TWO...............' @ @@@@310 PRINT'ONE...........HV )@@G@@....' @G@@@@315 PRINT'BOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMHW )@@G@@MMM!!!!!!!!'@^@@@@320 PRINT 'YOU LOST!!!' @C@@@@325 PRINT'YOU DID NOT ABHX )@@G@@ORT WHILE YOU COULD!!!' @C@@@@330 PRINT'I APOLOGIZE FOR INSULTING YOU,STHY )@@G@@UPID!'@F@@@@331 PRINT'I DID NOT KNOW YOU WERE SO DUMB THAT YOU COULD NOTHZ )@@G@@ ' @A@@@@332 PRINT'BREAK A SIMPLE CODE!' @#@@@@335 GO TO 995 IA )@@G@@@D@@@@340 PRINT'SCINCE YOU LIVED THROUGH THE FIRST CODE,' @B@@@@345 PRIB )@@G@@INT'DO YOU WHANT TO TRY AGAIN'; @]@@@@350INPUT E$ @^@@@@355 IF E$='YIC )@@G@@ES'GO TO 365@^@@@@360 IFE$='NO'GO TO 995 @ @@@@365 PRINT'*=H /=E C=L D=ID )@@G@@P' @F@@@@370 PRINT'REMEMBER,TWO LETTERS OF THE CODE WILL ALLWAYS CHANIE )@@G@@GE' @^@@@@375 PRINT'IN EACH WORD.'@A@@@@380 PRINT'HERE IS YOUR NEW WOIF )@@G@@RD' @#@@@@385 PRINT'/DDAC' @B@@@@390 PRINT'THE CLUE IS,IT IS A FRUIT!IG )@@G@@' @ @@@@395 PRINT'WHAT IS YOUR GUESS';@]@@@@400 INPUT E$@ @@@@405 IFIH )@@G@@ E$='APPLE' GO TO 545 @A@@@@415 PRINT'ONE DOWN AND THREE TO GO'@A@@@@II )@@G@@420 PRINT'WHAT IS YOUR NEXT GUESS'; @]@@@@425INPUT E$ @ @@@@430 IF E$='AIJ )@@G@@PPLE' GO TO 545 @A@@@@440 PRINT'WHAT IS YOUR THIRD GUESS';@]@@@@445 INIK )@@G@@PUT E$@ @@@@450 IF E$='APPLE' GO TO 545 @A@@@@460 PRINT'WHAT IS YOUR LIL )@@G@@AST TRY'; @]@@@@465 INPUT E$@ @@@@470 IF E$='APPLE' GO TO 545 @ @@@@IM )@@G@@475 IF E$>< 'APPLE' GO TO290 @B@@@@545 PRINT'SO FAR YOU HAVE SPOILED MYIN )@@G@@ FUN!'@E@@@@550 PRINT'SO THIS TIME I AM ONLY GIVEING YOU TWO TRYS!' IO )@@G@@@B@@@@555 PRINT'NOW DO YOU WANT TO CHICKEN OUT';@]@@@@560 INPUT F$@ @@@@IP )@@G@@565 IF F$='YES' GO TO 290 @B@@@@575 PRINT'YOU HAVE ONLY TWO CODES TOIQ )@@G@@ GO' @C@@@@580 PRINT'THE CLUES TO FILE ALPHA ARE:E,A,C' @F@@@@585 PRIR )@@G@@INT'THAT WAS THE LAST TIME I PRINT THE CLUES TO THE FILE!' @F@@@@590 PRIS )@@G@@INT 'HERE IS THE NEXT TO THE LAST CODE BEFOR OPENNING'; @B@@@@595 PRIT )@@G@@INT' THE FILE. GOOD LUCK!!!!' @F@@@@600 PRINT'DO YOU WISH TO ABORTIU )@@G@@,THOUGH YOU HAVE MADE IT THIS FAR'; @]@@@@605 INPUT G$@ @@@@615 IF G$='YIV )@@G@@ES' GO TO 110 @B@@@@620 PRINT'HERE IS YOUR NEXT CODE:C*/DDX' @E@@@@IW )@@G@@625 PRINT'THE CLUE IS:A WORD THAT DISCRIBES SANTAS NOSE' @ @@@@635 PRIX )@@G@@INT'WHAT IS YOUR GUESS' @#@@@@636 INPUT H$ @ @@@@640 IF H$='CHERRY'IY )@@G@@ GO TO 700 @E@@@@700 PRINT'HERE IS YOUR LAST CODE BEFOR OPENING FILE ALIZ )@@G@@PHA!' @ @@@@995 PRINT'GOODBYE,YOU JERK!' @[@@@@999END___ TO 995 @ @@@@JA )@@G@@365 PRINT'*=H /=E C=L D=P' @F@@@@370 PRINT'REMEMBER,TWO LETTERS OF THJB )@@G@@E CODE WILL ALLWAYS CHAN*V@@@@BASIC$EQBJ&HEQBJ&H305-05-745 FRIEDLANDER JC )@@G@@125164526015@@@@@[[MCK-0@@@@@@@@@@@@ @@@@[O@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@100 REM THIS PROGRJE )@@G@@AM WAS PRODUCED BY BRAD M FRIEDLANDER @A@@@@110 PRINT 'CURRENT MONTHJF )@@G@@LY BALANCE';@]@@@@120 INPUT C @]@@@@130 LET I=1 @#@@@@140 DIM A$(20) JG )@@G@@@#@@@@150 DIM B(20) @#@@@@160 DIM C$(20) @#@@@@170 DIM D(20) JH )@@G@@@#@@@@180 PRINT 'MONTH';@]@@@@190 INPUT B$@^@@@@200 PRINT 'CATEGORY'; JI )@@G@@@#@@@@210 INPUT A$(I) @ @@@@220 IF A$(I)='END' GO TO 310 @]@@@@230 LEJJ )@@G@@T A=0 @#@@@@240 LET B(I)=0 @]@@@@250 INPUT A @^@@@@260 IF A=0 GO TO 2JK )@@G@@90 @^@@@@270 LET B(I)=B(I)-A @#@@@@280 GO TO 250 @#@@@@290 LEJL )@@G@@T I=I+1 @#@@@@300 GO TO 200 @#@@@@310 LET B(I)=0 @]@@@@320 PRJM )@@G@@INT @]@@@@330 PRINT @]@@@@340 PRINT @]@@@@350 PRINT @]@@@@360 PRJN )@@G@@INT @#@@@@370 FOR J=1 TO I-1@^@@@@380 LET B(I)=B(I)+B(J) @]@@@@390 NEJO )@@G@@XT J @A@@@@400 LET A$(I)='MONTH END BALANCE' @]@@@@410 LET K=I @#@@@@JP )@@G@@420 FOR J=1 TO K @]@@@@430 PRINT @D@@@@440 PRINT 'THE TOTAL ';A$(J);'JQ )@@G@@ FOR ';B$;' IS $';B(J) @]@@@@450 NEXT J @^@@@@460 LET C = C + B(I) JR )@@G@@@]@@@@470 PRINT @]@@@@480 PRINT @]@@@@490 PRINT @B@@@@500 PRINT 'TJS )@@G@@HE BALANCE TO DATE IS $';C @]@@@@510 PRINT @]@@@@520 PRINT @]@@@@JT )@@G@@530 PRINT @]@@@@540 PRINT @#@@@@550 GOSUB 570 @#@@@@560 GO TO 13JU )@@G@@0 @#@@@@570 FOR I=1 TO K-1@#@@@@580 FOR J=1 TO 20 @ @@@@590 IF A$(I)JV )@@G@@<>C$(J) GOTO 620 @^@@@@600 LET D(J)=D(J)+B(I) @#@@@@610 GO TO 680 JW )@@G@@@A@@@@620 IF C$(J)<>' ' GO TO 660 @^@@@@630 LET C$(J)=A$(I) JX )@@G@@@#@@@@640 LET D(J)=B(I) @]@@@@650 GOTO 680@]@@@@660 NEXT J @#@@@@670 LEJY )@@G@@T I=I+1 @]@@@@680 NEXT I @A@@@@690 PRINT 'YEAR TO DATE TOTALS ARE:'JZ )@@G@@@]@@@@700 PRINT @]@@@@710 PRINT @]@@@@720 LET E=0 @A@@@@730 PRINT ' KA )@@G@@',C$(1),' ',' $';D(1)@]@@@@735 PRINT @#@@@@740 FOR M=2 TO 20 @A@@@@KB )@@G@@750 IF C$(M) = ' ' GOTO 840 @A@@@@760 PRINT ' ',C$(M),' ','$';KC )@@G@@D(M) @#@@@@770 LET E= E+D(M) @]@@@@780 NEXT M @]@@@@790 PRINT @]@@@@KD )@@G@@800 PRINT @#@@@@810 FOR J=1 TO I-1@^@@@@820 LET B(I)=B(I)+B(J) @]@@@@KE )@@G@@830 NEXT J @C@@@@840 PRINT ' ','TOTAL EXPENSES',' ',' $';E @]@@@@KF )@@G@@850 PRINT @B@@@@860 PRINT ' ','NET GAIN',' $';E+D(1) @]@@@@870 PRKG )@@G@@INT @]@@@@880 PRINT @]@@@@890 PRINT @]@@@@900 PRINT @]@@@@910 REKH )@@G@@TURN @]@@@@1380 END ___WNA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@*[@@@@*SDFF*@ @@@@10 PRINT 'LESSON 7 - LOOPS' @]@@@@20 PRINT @G@@@@KJ )@@G@@100PRINT'LOOPS ALLOW THE USER TO HAVE THE COMPUTER PERFORM THE SAME' KK )@@G@@@F@@@@110PRINT'OR SIMILAR OPERATIONS MANY TIMES. IN BASIC, LOOPS ARE' KL )@@G@@@E@@@@120PRINT'FORMED BY THE AND STATEMENTS.' @]@@@@KM )@@G@@125 PRINT @#@@@@130PRINT'EXAMPLE:'@]@@@@135PRINT @#@@@@140PRINT'5 RKN )@@G@@EAD A'@ @@@@150PRINT'10 FOR I = 1 TO 10' @^@@@@160PRINT'20 PRINT I**A;'KO )@@G@@@^@@@@170PRINT'30 PRINT A**I' @^@@@@180PRINT'40 NEXT I' @^@@@@190PRIKP )@@G@@NT'50 GO TO 5' @ @@@@200PRINT'100 DATA 2,1.5,.3' @#@@@@210PRINT'999KQ )@@G@@9 END'@]@@@@225PRINT @F@@@@230PRINT'LINES 10 TO 40 CONSTITUTE A LOOP.KR )@@G@@ THE STATEMENTS WITHIN'@G@@@@235PRINT'THE LOOP ARE REPEATED 10 TIMES, WKS )@@G@@ITH I HAVING VALUES OF 1' @G@@@@240PRINT'THROUGH 10 CONSECUTIVELY. KT )@@G@@WHEN LINE 40 IS EXECUTED FOR THE' @F@@@@250PRINT'TENTH TIME, THE COMPUKU )@@G@@TER WILL FIND THAT I ALREADY EQUALS'@C@@@@260PRINT'10, AND WILL CONTINUEKV )@@G@@ TO LINE 50.' @]@@@@265PRINT @G@@@@280PRINT'THE INDEX VARIABLE DOKW )@@G@@ES NOT HAVE TO BE I -- IT CAN BE ANY' @G@@@@290PRINT'LEGAL VARIABLE.KX )@@G@@ THE INITIAL AND FINAL VALUES CAN BE CON-' @G@@@@300PRINT'STANTS, VKY )@@G@@ARIABLES, OR EXPRESSIONS. IF THE FINAL VALUE IS' @G@@@@310PRINT'SMAKZ )@@G@@LLER THAN THE INITIAL ONE, THE ENTIRE LOOP IS IFNORED.' @]@@@@315PRILA )@@G@@NT @G@@@@320PRINT'THE INCREMENT CAN BE SET AT VALUES OTHER THAN 1 BY LB )@@G@@THE USE' @A@@@@330PRINT'OF . FOR EXAMPLE:' @]@@@@335 PRINT LC )@@G@@@A@@@@340PRINT'40 FOR I = 1 TO 10 STEP 2' @]@@@@345 PRINT @F@@@@350PRILD )@@G@@NT'WOULD CAUSE THE LOOP TO BE EXECUTED WITH I = 1, 3, 5, 7,'@F@@@@360PRILE )@@G@@NT'AND 9 CONSECUTIVELY. THE STEP MAY BE ANY SIZE -- EVEN' @^@@@@365PRILF )@@G@@NT'NEGATIVE.' @]@@@@370 PRINT @E@@@@375 PRINT 'SEE THE UNIVAC BASILG )@@G@@C MANUAL FOR MORE VARIATIONS' @B@@@@380 PRINT 'OF THE STATEMENLH )@@G@@T.' @]@@@@400 PRINT @A@@@@450 PRINT 'END OF LESSON SEVEN' @]@@@@LI )@@G@@9838 PRINT @D@@@@9839 PRINT 'WHICH LESSON WOULD YOU LIKE NEXT (1-9)'; LJ )@@G@@@]@@@@9840 INPUT N@ @@@@9842 IF N>0 AND N<10 THEN 9851@D@@@@9844 PRINT 'LK )@@G@@ONLY TYPE IN NUMBERS BETWEEN 1 AND 9.' @#@@@@9846 GO TO 9840 @A@@@@LL )@@G@@9851 IF N=1 THEN CHAIN PROCEDURES @A@@@@9852 IF N=2 THEN CHAIN COMMANDLM )@@G@@S @A@@@@9853 IF N=3 THEN CHAIN DEFINITIONS @A@@@@9854 IF N=4 THEN CLN )@@G@@HAIN INPUT-OUTPUT @A@@@@9855 IF N=5 THEN CHAIN ASSIGNMENTS @A@@@@9856 ILO )@@G@@F N=6 THEN CHAIN TRANSFERS @A@@@@9857 IF N=7 THEN CHAIN FOR-TO-NEXT LP )@@G@@@ @@@@9858 IF N=8 THEN CHAIN STRINGS@A@@@@9859 IF N=9 THEN CHAIN MORECOMLQ )@@G@@MANDS @]@@@@9999END ___@_@AS8A@)E[MDDIE))^9JC0)E-CC*)B-AD9M *!E-JB0)LR )@@G@@*V@@@@BASIC$EQBJXIEQBJXI0-0040-167 KLAVAN 103202137006@@@@@]#DCI(ULS )@@G@@@@@@@@@@@@@@ @@@@]L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@1 DEF FNF(X)=X @^@@@@11 REM ** PLOT *LU )@@G@@* @C@@@@21 REM ** SUPPLIED BY IRV KLAVAN ON 7/17/71 ** @B@@@@31 REMLV )@@G@@ PLOTS A FUNCTION ON THE TTY. @#@@@@41 LET R1=0 @#@@@@51 LETLW )@@G@@ L1=0 @#@@@@61 LET Q1=0 @B@@@@71 PRINT 'INSTRUCTIONS (YES ORLX )@@G@@ NO)'; @]@@@@81 INPUT Y$ @^@@@@91 IF Y$='NO' THEN 161 @]@@@@100 PRLY )@@G@@INT @I@@@@101 PRINT'THIS PROGRAM PLOTS A FUNCTION, WITHIN USER-DEFINEDLZ )@@G@@ LIMITS, ON THE TTY.' @I@@@@111 PRINT'AN ''UNDEFINED POINT'' IS THE X-MA )@@G@@VALUE OF A POINT YOU DO NOT WANT '; @G@@@@121PRINT 'PLOTTED,EVEN TMB )@@G@@HOUGH IT FALLS WITHIN THE LIMITS OF THE GRAPH.' @G@@@@125 PRINT'TYPE YOUMC )@@G@@R FUNCTION INTO LINE 1 AS SHOWN BELOW, THEN TYPE RUN.'@G@@@@141 PRINT '1MD )@@G@@ DEF FNF(X)=SIN(X) [OR ANY FUNCTION YOU WISH PLOTTED].' @]@@@@151 STME )@@G@@OP @D@@@@161 PRINT 'PLEASE INPUT THE FOLLOWING PARAMETERS:' @ @@@@MF )@@G@@171 PRINT 'LEFT X-ENDPOINT'; @#@@@@181 INPUT A @A@@@@191 PRINT 'RMG )@@G@@IGHT X-ENDPOINT'; @#@@@@201 INPUT B @^@@@@211 PRINT 'X-SPACIMH )@@G@@NG'; @#@@@@221 INPUT D @^@@@@231 IF D<>0 THEN 261 @ @@@@241 PRMI )@@G@@INT 'INVALID X-SPACING' @#@@@@251 GO TO 211 @F@@@@261 PRINT 'THE NUMMJ )@@G@@BER OF UNDEFINED POINTS (IF NONE, ENTER 0)'; @#@@@@271 INPUT N9 MK )@@G@@@^@@@@281 IF N9=0 THEN 311 @E@@@@291 PRINT 'ENTER THE UNDEFINED POINTML )@@G@@S SEPARATED BY COMMAS' @^@@@@301 MAT INPUT Z(N9) @B@@@@311 DEF FNG(MM )@@G@@X)=INT((Y7-L1)/D1+.5)+10 @^@@@@321 LET L2=R2=FNF(A) @ @@@@331 FOMN )@@G@@R X=A TO B STEP D @^@@@@341 FOR I=1 TO N9 @^@@@@351 IF X=Z(IMO )@@G@@) THEN 411 @]@@@@361 NEXT I @ @@@@371 IF FNF(X)>L2 THEN 391 @^@@@@MP )@@G@@381 LET L2=FNF(X) @ @@@@391 IF FNF(X)0 THEN 471 @]@@@@MS )@@G@@461 GOTO 481@#@@@@471 LET R1=R2 @#@@@@481 LET L1=L2 @^@@@@491 LEMT )@@G@@T D1=(R1-L1)/50 @^@@@@501 IF L16 THEN 691 @#@@@@601 LET Q1=1 MZ )@@G@@@^@@@@611 IF L1=0 THEN 631 @^@@@@621 PRINT TAB(F);'+' @]@@@@631 PRNA )@@G@@INT @]@@@@641 GOTO 891@ @@@@651 FOR I=1 TO INT(A/D-.5) @^@@@@661 PRNB )@@G@@INT TAB(F);'+' @]@@@@671 NEXT I @#@@@@681 LET Q1=0 @ @@@@691 FONC )@@G@@R X=A TO B STEP D @^@@@@701 IF D<.0001 THEN 731 @ @@@@711 IF ABS(XND )@@G@@)>.00001 THEN 731 @#@@@@721 LET X=0 @]@@@@731 PRINT X;@^@@@@741 FONE )@@G@@R P=1 TO N9 @^@@@@751 IF X><0 THEN 8NF )@@G@@41 @^@@@@771 PRINT TAB(9);'Y'; @#@@@@781 FOR I2=1 TO 50@#@@@@791 PRNG )@@G@@INT '+'; @#@@@@801 NEXT I2 @#@@@@811 LET Q=1 @#@@@@821 PRNH )@@G@@INT 'Y' @#@@@@831 GOTO 1181 @^@@@@841 PRINT TAB(F);'+' @#@@@@NI )@@G@@851 GOTO 1181 @]@@@@861 NEXT P @ @@@@871 IF X*(X+D)>0 THEN 1081 NJ )@@G@@@^@@@@881 IF X<-D/2 THEN 1081 @^@@@@891 PRINT TAB(8);'Y+'; @#@@@@901 FONK )@@G@@R I=0 TO 50 @^@@@@911 IF Q1>0 THEN 941 @^@@@@921 LET Y7=FNF(X) NL )@@G@@@ @@@@931 IF FNG(X)=I+10 THEN 971 @^@@@@941 IF I+10=F THEN 991 @#@@@@NM )@@G@@951 PRINT'+'; @#@@@@961 GOTO 1001 @#@@@@971 PRINT '*'; @#@@@@NN )@@G@@981 GOTO 1001 @#@@@@991 PRINT 'O'; @#@@@@1001 NEXT I @ @@@@NO )@@G@@1011 IF I+10>0 THEN 1101 @ @@@@1091 IF X <= D/2 THEN 89NS )@@G@@1 @^@@@@1101 LET Y7=FNF(X) @ @@@@1111 IF FNG(X)>F THEN 1171 NT )@@G@@@ @@@@1121 IF FNG(X)=F THEN 1151 @B@@@@1131 PRINT TAB(FNG(X));'*';TABNU )@@G@@(F);'+' @#@@@@1141 GOTO 1181 @^@@@@1151 PRINT TAB(F);'*' @#@@@@NV )@@G@@1161 GOTO 1181 @B@@@@1171 PRINT TAB(F);'+';TAB(FNG(X));'*' @]@@@@NW )@@G@@1181 NEXT X @^@@@@1191 IF X >= 0 THEN 1281@^@@@@1201 IF -X/D>6 THEN 1281NX )@@G@@@ @@@@1211 FOR I=1 TO INT(-X/D-.5) @^@@@@1221 PRINT TAB(F);'+' @]@@@@NY )@@G@@1231 NEXT I @#@@@@1241 LET Q1=2 @]@@@@1251 PRINT @#@@@@1261 GOTO 89NZ )@@G@@1 @^@@@@1271 PRINT TAB(F);'+' @^@@@@1281 PRINT TAB(F);'X' @^@@@@OA )@@G@@1291 IF Q=0 THEN 1311 @]@@@@1301 STOP @]@@@@1311 PRINT @]@@@@1321 POB )@@G@@RINT @]@@@@1331 PRINT @^@@@@1341 PRINT TAB(10) ;'+';@#@@@@1351 FOR I=1OC )@@G@@ TO 49@#@@@@1361 PRINT '+'; @]@@@@1371 NEXT I @#@@@@1381 PRINT 'Y' OD )@@G@@@]@@@@1391 PRINT @]@@@@1401 PRINT @G@@@@1411 PRINT ' SINOE )@@G@@CE THE REAL Y-AXIS IS OFF THE GRAPH.' @]@@@@1421 STOP @]@@@@1431 EOF )@@G@@ND ___ PR@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*V@@@@BASIC$EQBJX;EQBJX;OH )@@G@@001-00-730 MILGRAM 674467100760@@@@@#AHCK:E@@@@@@@@@@@@ OI )@@G@@@@@@@<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@E@@@@1 PRINT'THIS PROGRAM WAS WRITTEN BY JUD MILGRAM ON 11/27/69'@]@@@@OK )@@G@@5 LET Q1=0 @^@@@@10 RANDOMIZE @^@@@@20 LET N=INT(RND*6+1) OL )@@G@@@^@@@@21 LET P=INT(RND*6+1) @#@@@@22 LET N1=N+P @A@@@@25 PRINT'IS OM )@@G@@THIS YOUR FIRST TIME' @#@@@@26 INPUT B$ @^@@@@27 IFB$='NO'THEN 1ON )@@G@@00 @^@@@@28 IFB$='YES'THEN 40 @A@@@@40 PRINT'WITH WHOM AM I SPEAKIOO )@@G@@NG' @]@@@@50 INPUT A$ @F@@@@100 PRINT'WELL HELLO (AGAIN),',A$,'WHAT ISOP )@@G@@ YOUR GUESS(I MEAN' @D@@@@110 PRINT'WHAT DO YOU THINK THE DICE WILLOQ )@@G@@ ROLL)' @]@@@@120 INPUT M1@F@@@@130 PRINT'WELL THE FIRST DIE ROLLED'OR )@@G@@,N,'AND THE SECOND DIE ROLL-' @E@@@@131 PRINT'ED',P,'WHICH MAKES A TOTALOS )@@G@@ OF',N1,'.WHAT WAS YOUR'@B@@@@132 PRINT'GUESS AGAIN;I HAVE A BAD MEMORY'OT )@@G@@@]@@@@140 INPUT P1@^@@@@150 IF P1=M1THEN 500 @E@@@@160 PRINT'COME ON OU )@@G@@NOW,',A$,',I MAY HAVE A BAD MEMORY BUT I '@E@@@@161 PRINT'KNOW VERY WELLOV )@@G@@ THAT YOUR GUESS WAS',M1,'AND ONE' @F@@@@162 PRINT'MORE TIME AND ILL HAOW )@@G@@VE TO KICK YOU OUT!!!!!!!!!!!!!!!!' @#@@@@170 LET Q1=Q1+1 @^@@@@175 IFOX )@@G@@ Q1=2 THEN 450 @]@@@@180 GO TO 20@E@@@@450 PRINT'IN FACT ,THIS IS YOUOY )@@G@@R SECOND TIME RIGHT NOW!BYE!' @#@@@@460 GO TO 590 @F@@@@500 PRINT A$OZ )@@G@@,'YOURE HONEST AND IT IS MY PLEASURE TO TELL YOU THAT'@^@@@@510 IF M1=NPA )@@G@@1 THEN540 @^@@@@530 PRINT'YOU LOST' @]@@@@535 GO TO 20@E@@@@540 PRPB )@@G@@INT'YOU WON!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' @]@@@@550 GO TO 20PC )@@G@@@]@@@@590 END ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@*[@@@@*SDFF*@E@@@@10 PRINT 'TO FIND OUT WHAT GAMES ARE AVAILABLE, TYPE .' @[@@@@40 END___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*V@@@@BASIC$EQBJ&NEQBJ&N305-07-738 CHOY PH )@@G@@342224046337@@@@@JBBCO9'@@@@@@@@@@@@ @@@@[M@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@@100 PRINT'THEPJ )@@G@@ FOLLOWING PROGRAM HAS BEEN CONTRIVED FOR YOUR FUN' @G@@@@102 PRIPK )@@G@@NT'AND PLEASURE TO DETERMINE YOUR EVILSTATUS.FOR THOSE' @F@@@@103 PL )@@G@@ PRINT'THAT WIN,CONGRATULATIONS FOR THOSE THAT LOSE WELL' @C@@@@104 PM )@@G@@ PRINT'YOU SIMPLY-----GO TO HELL!!!!!!!'@^@@@@105 PRINT' ' PN )@@G@@@B@@@@106 PRINT' WELCOME TO SAMS BAR' @A@@@@107 PRINT' HOPO )@@G@@W OLD ARE YOU' @#@@@@108 INPUT A @ @@@@109 IF A>32 THEN 85PP )@@G@@6 @^@@@@110 IFA<18 THEN976 @G@@@@111 PRINT'SO NOW YOU HAVEPQ )@@G@@ MADE IT IN,YOU CAN DO 1 OF 3 THINGS' @B@@@@112 PRINT' 1) GPR )@@G@@ET STONED DRUNK' @F@@@@113 PRINT' 2) PICK UP THE WHORE SITTINGPS )@@G@@ IN THE CORNER' @D@@@@114 PRINT' 3) CASUALLY PASS BY AND LEAVPT )@@G@@E' @D@@@@115 PRINT' TYPE IN 1,2 OR 3 FOR YOUR CHOICE' @#@@@@PU )@@G@@116 INPUT B @^@@@@117 IF B=3 THEN125 @^@@@@118 IF B=2 THPV )@@G@@EN 755@^@@@@119 IFB=1 THEN722 @ @@@@120 PRINT' TYPE IN1,2OR3'PW )@@G@@@#@@@@121 GO TO116 @D@@@@125 PRINT' YOU HAVE JUST PASSED THE FPX )@@G@@IRST TEST' @F@@@@127 PRINT' YOU ARE NOW ON YOUR WAY HOME AFTER PASPY )@@G@@SING UP' @F@@@@128 PRINT' THE BAR.YOU NOW SEE A GOOD LOOKING CHIPZ )@@G@@CK IN A' @B@@@@129 PRINT' DARK ALLEY YOU CAN--' @E@@@@130 QA )@@G@@ PRINT' 1)CASUALLY WALK BY AND IGNORE HER' @C@@@@131 PRIQB )@@G@@NT' 2)RAPE HER IMEDIATELY' @C@@@@132 PRINT' TYPE IN YOUR CQC )@@G@@HOICE 1 OR 2' @#@@@@133 INPUT D @^@@@@134 IF D=1 THEN 950QD )@@G@@@^@@@@135 IF D=2 THEN141 @A@@@@136 PRINT' 1 OR 2 YOUDUMMY' QE )@@G@@@#@@@@137 GO TO 133@E@@@@141 PRINT' HAVE YOU GOT A GUILTY CONSQF )@@G@@CIOUS(YES OR NO)' @#@@@@142 INPUT E$ @ @@@@143 IF E$='YES' THEQG )@@G@@N 156 @ @@@@144 IF E$='NO' THEN 378 @ @@@@145 PRINT' YES OR NQH )@@G@@O' @#@@@@146 GO TO 142@F@@@@156 PRINT' YOU HAVE REFORMED THQI )@@G@@EREFORE TO PROVE THAT YOU' @F@@@@157 PRINT' ARE AS PURE AS YOU CQJ )@@G@@LAIM, PLEASE TYPE IN THE' @ @@@@158 PRINT' PROPER INPUT' @#@@@@QK )@@G@@159 INPUT F$ @ @@@@160 IF F$='ODFFX'THEN997 @C@@@@161 PRIQL )@@G@@NT' YOU LOSE!!! GO TO HELL!!!! ' @#@@@@164 GO TO 615@ @@@@378 QM )@@G@@ PRINT' GO TO HELL' @E@@@@615 PRINT' GOOD AFTER NOON WELCOME TQN )@@G@@O SATANS DEN' @H@@@@616 PRINT' WE HAVE 2 TOURS THE FIRST CLASS QO )@@G@@ECONOMY OR THE 2ND CLASS LONG'@C@@@@617 PRINT' WHICH WOULD YOU LQP )@@G@@IKE 1 OR 2' @#@@@@618 INPUT G @^@@@@619 IF G=1 THEN700 @^@@@@QQ )@@G@@620 IF G=2 THEN627 @^@@@@621 PRINT' 1 OR 2' @#@@@@622 GO QR )@@G@@TO 618@G@@@@627 PRINT' AH , YOU ARE QUITE WISE THIS GIVES YOU ACHAQS )@@G@@NCE TO ' @H@@@@628 PRINT' REDEEM YOURSELF WOULD YOU LIKE A SECONQT )@@G@@D CHANCE YES OR NO' @#@@@@629 INPUT H$ @ @@@@630 IFH$='YESQU )@@G@@' THEN 106 @ @@@@631 IF H$='NO' THEN 998 @C@@@@632 PRINT' AREQV )@@G@@ YOU SICK TYPE IN YES OR NO' @#@@@@633 GO TO629 @F@@@@700 PRIQW )@@G@@NT' GO TO HELL!!! GO TO HELL!!!########$%$#"&%%%$#' @#@@@@702 GO QX )@@G@@TO 998@G@@@@722 PRINT' THIS PROVES TO BE AN UNWISE CHOICE, BECAUSE QY )@@G@@YOU NOW' @G@@@@723 PRINT' COME STUMBLING OUT DRUNK AND GET RUN OQZ )@@G@@VER YOU KNOW ' @E@@@@724 PRINT' WHERE YOUR GOING THATS RIGHT GO RA )@@G@@TTO HELL' @#@@@@726 GO TO 615@F@@@@755 PRINT' THAT WAS NOT ARB )@@G@@ GOOD IDEA YOU NOW DIE OF THE CLAP' @ @@@@756 PRINT' GO TO HELL' RC )@@G@@@#@@@@758 GO TO 615@C@@@@856 PRINT' YOU ARE A LIAR, GO TO HELLRD )@@G@@!!!!' @#@@@@857 GO TO 615@F@@@@950 PRINT' YOU ARE TOO MUCH OF RE )@@G@@A PUTITAN FOR THIS PROGRAM' @#@@@@951 PRINT' '@C@@@@952 PRIRF )@@G@@NT' GO TO HELL!!!!!!!' @#@@@@953 GO TO 615@G@@@@976 RG )@@G@@ PRINT' OBVIOUSLY YOU ARE TOO YOUNG FOR THIS PROGRAM,GOOD BYE' @#@@@@RH )@@G@@977 GO TO 998@^@@@@997 PRINT' YOU WIN'@#@@@@998 STOP RI )@@G@@@]@@@@999 END___E F@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@D@@@@0 REMARKABLE PROGRAM WRITTENRL )@@G@@ BY RON CIECKA 1/20/69 @I@@@@1 PRINT 'TO USE THIS PROGRAM TO COMPUTE YORM )@@G@@UR GRADE POINT AVERAGE MAKE ONE DATA ' @I@@@@2 PRINT 'CARD PER COURSERN )@@G@@ LIKE THIS: CODE,COURSE NAME,CREDITS,GRADE,TERM TAKEN ' @I@@@@3 PRINRO )@@G@@T 'THE CODES ARE: O- FOR FIRST TIME TAKEN , R- FOR REPEATED COURSES IF RP )@@G@@ ' @I@@@@4 PRINT 'YOU REGISTERED BEFORE JUNE 1964, N- IF IT IS A NO CRQ )@@G@@REDIT COURSE LIKE ' @H@@@@5 PRINT 'PHYS ED., WP OR WF IF YOU WITHDRERR )@@G@@W.' @I@@@@6 PRINT 'THE LAST CARD SHOULD RS )@@G@@BE A DUPLICATE OF THE CARD BEFORE IT EXCEPT FOR ' @I@@@@7 PRINT 'A ZRT )@@G@@ FOR THE CODE. ' RU )@@G@@@I@@@@8 PRINT 'IF YOU REGISTERED AFTER JUNE 1964 USE THE O CODE FOR REPERV )@@G@@ATED COURSE. ' @]@@@@10 LET G=1@D@@@@20 DIM A$(50 ),B$(50 ),C(50 RW )@@G@@),D$(50 ),E$(50 ),F(50 )@C@@@@40 INPUT A$(G), B$(G), C(G), D$(G), E$(GRX )@@G@@) @A@@@@50 ON FNH GO TO 100,60,150,40 @^@@@@60 FOR I=1 TO G-RY )@@G@@1 @ @@@@70 IF B$(I)<> B$(G) GO TO 80@#@@@@72 LET F(I) = 1 @]@@@@RZ )@@G@@80 NEXT I @#@@@@100 LET G=G+1 @#@@@@110 GO TO 40 @#@@@@150 FSA )@@G@@OR S=1 TO 10@]@@@@151 PRINT @]@@@@152 NEXT S @E@@@@153 PRINT'TERM','CSB )@@G@@OURSE','CREDITS','GRADE','QUALITY POINTS' @]@@@@154 PRINT @#@@@@155 LESC )@@G@@T K = 0 @#@@@@156 LET L = 0 @#@@@@157 LET P = 0 @^@@@@158 FSD )@@G@@OR J=1 TO G-1 @ @@@@160 IF F(J) = 1 GO TO 209 @#@@@@170 LET K= SE )@@G@@K+C(J)@#@@@@175 LET T = C(J) @#@@@@176 LET U$ =D$(J) @^@@@@180 LET L=LSF )@@G@@+FNM(U$,T) @B@@@@190 PRINT E$(J),B$(J),C(J),D$(J),FNM(U$,T)@#@@@@200 SG )@@G@@GO TO 240 @]@@@@209 PRINT @^@@@@210 PRINT 'REPEATED' @#@@@@215 LESH )@@G@@T P=P+1 @C@@@@220 PRINT E$(J),B$(J),C(J),D$(J),FNM(D$(J),T) @^@@@@SI )@@G@@230 PRINT 'REPEATED' @]@@@@231 PRINT @]@@@@240 NEXT J @H@@@@250 PRSJ )@@G@@INT'-------------------------------------------------------------------'SK )@@G@@@^@@@@260 PRINT , ,K, ,L @]@@@@265 PRINT @]@@@@266 PRINT @]@@@@SL )@@G@@267 PRINT @]@@@@268 PRINT @#@@@@269 LET G = G-1 @B@@@@270 PRINT(G-SM )@@G@@P);'COURSES TAKEN ONCE + '; @D@@@@272 PRINT P;' REPEATED COURSES = ';GSN )@@G@@;' COURSES TAKEN.'@]@@@@275 PRINT @]@@@@276 PRINT @]@@@@277 PRINT SO )@@G@@@]@@@@278 PRINT @H@@@@279 PRINT'**************************************SP )@@G@@************************' @B@@@@280 PRINT 'QUALITY POINT AVERAGE = 'SQ )@@G@@;(L/K)@H@@@@281 PRINT'**************************************************SR )@@G@@************' @]@@@@500 DEF FNH @#@@@@510 LET FNH = 1 @ @@@@520 IFSS )@@G@@ A$(G) = 'O' GO TO 610 @#@@@@530 LET FNH = 2 @ @@@@540 IF A$(G) = 'R'ST )@@G@@ GO TO 610 @ @@@@550 IF A$(G) = 'WP'GO TO 610 @ @@@@551 IF A$(G) = 'WFSU )@@G@@'GO TO 610 @#@@@@560 LET FNH = 3 @ @@@@570 IF A$(G) = 'Z' GO TO 610 SV )@@G@@@#@@@@580 LET FNH = 4 @B@@@@590 PRINT 'THE CODE IS WRONG OR MISSING' SW )@@G@@@B@@@@600 PRINT 'THIS CARD HAS BEEN IGNORED' @]@@@@610 FNEND @]@@@@SX )@@G@@700 DEF FNM @^@@@@710 LET FNM = C(J)*4 @ @@@@720 IF D$(J) = 'A' GO TOSY )@@G@@ 800 @^@@@@730 LET FNM = C(J) * 3 @ @@@@740 IF D$(J) = 'B' GO TO 800 SZ )@@G@@@^@@@@750 LET FNM = C(J) * 2 @ @@@@760 IF D$(J) = 'C' GO TO 800 @#@@@@TA )@@G@@770 LET FNM = C(J)@ @@@@780 IF D$(J) = 'D' GO TO 800 @#@@@@790 LET FNM TB )@@G@@= 0 @]@@@@800 FNEND @]@@@@9999 END ___ = C(J) @#@@@@176 LET U$ =TC )@@G@@D$(J) @^@@@@180 LET L=L+FNM(U$,T) @B@@@@190 PR*V@@@@BASIC$EQBJ$'EQBJ$'TD )@@G@@305-12-745 BASIC$FILES 750340532430@@@@@ABQC [T@@@@@@@@@@@@ TE )@@G@@@@@@@3@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@]@@@@100 PRINT @B@@@@200 PRINT ' THE OBJECT OF THIS GAME IS' @B@@@@TG )@@G@@300 PRINT 'FOR YOU TO GUESS THE NUMBER' @A@@@@400 PRINT 'I HAVE CHOOSETH )@@G@@N WITHIN' @ @@@@500 PRINT 'SO MANY GUESSES.' @]@@@@600 PRINT @^@@@@TI )@@G@@700 PRINT 'LET''S BEGIN'@#@@@@800 RANDOMIZE @]@@@@900 PRINT @^@@@@TJ )@@G@@1000 LET P=P+1 @^@@@@1100 LET R=10*P @ @@@@1200 LET N=ITK )@@G@@NT(RND*R+1) @#@@@@1300 PRINT @E@@@@1400 PRINT 'THE NUMBER ITL )@@G@@S LESS THAN OR EQUAL TO ';R @#@@@@1500 LET T=2 @^@@@@1600 FTM )@@G@@OR I=1 TO R @^@@@@1700 LET T=T*2 @^@@@@1800 IF T>R THEN 2TN )@@G@@000 @#@@@@1900 NEXT I @#@@@@2000 LET T=0 @^@@@@2100 LET I=ITO )@@G@@+2 @D@@@@2200 PRINT ' YOU HAVE ';I;' GUESSES OR I WIN.' TP )@@G@@@ @@@@2300 PRINT ' NUMBER '; @#@@@@2400 INPUT G @^@@@@2500 ITQ )@@G@@F G<> N THEN 3500 @A@@@@2600 PRINT 'YES. YOU WIN.' @^@@@@2700 LTR )@@G@@ET C=C+1 @E@@@@2800 PRINT 'WOULD YOU LIKE TO TRY ANOTHER (YES OTS )@@G@@R NO)'; @#@@@@2900 INPUT A$ @ @@@@3000 IF A$='YES' THEN 1000 TT )@@G@@@#@@@@3100 PRINT @H@@@@3200 PRINT 'YOU RETIRE HAVING WON ';C;' GATU )@@G@@MES AND LOST ';P-C;' GAMES.' @ @@@@3300 PRINT ' GOOD-BYE' TV )@@G@@@#@@@@3400 STOP @^@@@@3500 LET T=T+1 @^@@@@3600 IF T>=ITW )@@G@@ THEN 4700 @^@@@@3700 IF G>R THEN 4300 @^@@@@3800 IF G>N THEN 4100 TX )@@G@@@A@@@@3900 PRINT ' ';G;' IS LOW.'; @#@@@@4000 GO TO 2300 @A@@@@TY )@@G@@4100 PRINT ' ';G;' IS HIGH.'; @#@@@@4200 GO TO 2300 @B@@@@4300 PTZ )@@G@@RINT 'PLEASE PAY ATTENTION.' @H@@@@4400 PRINT 'YOUR GUESS, ';G;' UA )@@G@@IS GREATER THAN ';R;' THE LARGEST YOUR ' @B@@@@4500 PRINT ' GUESUB )@@G@@S SHOULD EVER BE.' @#@@@@4600 GO TO 2300 @A@@@@4700 PRINT 'I WIN.UC )@@G@@ YOU LOSE.' @C@@@@4800 PRINT ' YOUR STRATEGY CAN BE IMPROVED' UD )@@G@@@B@@@@4900 PRINT ' SO THAT I NEVER WIN.' @#@@@@5000 GO TO 2800 UE )@@G@@@#@@@@5100 END ___FOR@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@A@@@@1 PRINUF )@@G@@T 'LESSON 4 - INPUT-OUTPUT' @]@@@@5 PRINT @[@@@@10A=1 @]@@@@20B=5.UG )@@G@@29 @]@@@@30C=3.74 @]@@@@40D=.03 @G@@@@100PRINT'THIS IS LESSON UH )@@G@@4, AND IT IS ALMOST TIME TO START PROGRAM-' @F@@@@110PRINT'MING. BYUI )@@G@@ THE TIME YOU HAVE LEARNED THIS LESSON AND THE' @G@@@@120PRINT'NEXT, YOUUJ )@@G@@ WILL BE ABLE TO WRITE SHORT BUT USEFUL PROGRAMS.' @]@@@@125 PRINT UK )@@G@@@G@@@@130PRINT'THIS LESSON DEALS WITH THE STATEMENTS WHICH PUT DATA INTOUL )@@G@@' @G@@@@140PRINT'THE COMPUTER (INPUT) AND THOSE THAT RETURN RESULTS UM )@@G@@TO THE' @^@@@@150PRINT'USER (OUTPUT).'@]@@@@155 PRINT @D@@@@160PRIUN )@@G@@NT'THERE ARE TWO TYPES OF INPUT STATEMENTS:' @]@@@@162 PRINT @ @@@@UO )@@G@@170PRINT'1. , ' @]@@@@175 PRINT @#@@@@180PRINT'EXAMPLE' UP )@@G@@@]@@@@185 PRINT @ @@@@190 PRINT '10 READ A,B,C' @ @@@@200 PRINT'15UQ )@@G@@0 DATA 10,15,2,7' @^@@@@210 PRINT'160 DATA 8,4' @]@@@@215 PRINT @G@@@@UR )@@G@@220PRINT'THE STATEMENT ASSIGNS VALUES FROM STATEMENTS' US )@@G@@@G@@@@230PRINT'TO A LIST OF VARIABLES FOUND IN THE STATEMENT. INUT )@@G@@' @F@@@@240PRINT'THE EXAMPLE, THE COMPUTER, ON EXECUTING LINE 10, WOUU )@@G@@ULD' @H@@@@250PRINT'ASSIGN A THE VALUE 10, B THE VALUE 15, AND C THE VAUV )@@G@@LUE 2. ' @F@@@@270PRINT'IF LINE 10 IS EXECUTED AGAIN LATER IN TUW )@@G@@HE RUN, A WOULD' @H@@@@280PRINT'RECEIVE THE VALU 7, B THE VALUE 8, AND UX )@@G@@C THE VALUE 4.' @C@@@@285PRINT'THE COMPUTER IGNORES UY )@@G@@ STATEMENTS'@E@@@@290PRINT'IF IT ENCOUNTERS THEM WHILE EXECUTING A PROGRUZ )@@G@@AM,' @F@@@@300PRINT'BUT THEY ARE USUALLY PLACED AT THE END OF THE PROGRVA )@@G@@AM.' @]@@@@315 PRINT @^@@@@320PRINT'2. ' @]@@@@325 PRINT VB )@@G@@@#@@@@330PRINT'EXAMPLE' @]@@@@335 PRINT @^@@@@340PRINT'25 INPUT K,B1' VC )@@G@@@]@@@@345 PRINT @G@@@@360PRINT'WHEN AN INPUT STATEMENT IS ENCOUNTERED,VD )@@G@@ THE COMPUTER TYPES' @F@@@@370PRINT'A ? ON THE TELETYPE AND WAITS FORVE )@@G@@ THE USER TO TYPE IN' @F@@@@380PRINT'VALUES TO BE ASSIGNED TO THE VARIVF )@@G@@ABLES IN THE ' @E@@@@390PRINT'STATEMENT. IN THE EXAMPLE, THE UVG )@@G@@SER COULD TYPE IN'@]@@@@395PRINT @^@@@@400PRINT'4, -17.32' @]@@@@VH )@@G@@405 PRINT @F@@@@410PRINT'K WOULD ASSUME THE VALUE 4, AND B1 WOULD TAKEVI )@@G@@ THE VALUE' @G@@@@420PRINT'-17.3. INPUT ITEMS MUST BE SEPARATED BY COMMVJ )@@G@@AS, WHETHER IN' @C@@@@430PRINT', , OR STATEMENTS.'VK )@@G@@@]@@@@435PRINT @]@@@@436PRINT @D@@@@500PRINT'THERE IS ONLY ONE OUTVL )@@G@@PUT STATEMENT, .'@]@@@@510PRINT @#@@@@520PRINT'EXAMPLE' @]@@@@VM )@@G@@525PRINT @ @@@@530PRINT'130 PRINT A,B/2' @C@@@@540PRINT'140 PRINTVN )@@G@@''WHAT IS THE VALUE OF Q'';' @^@@@@550PRINT'150 INPUT Q' @C@@@@560PRIVO )@@G@@NT'250 PRINT''THE ANSWER IS '';C;''-'';D' @^@@@@570PRINT'260 PRINT' VP )@@G@@@]@@@@580PRINT @F@@@@600PRINT'THE STATEMENT ORDERS THE COMPUTVQ )@@G@@ER TO TYPE SOME-' @G@@@@610PRINT'THING ON THE TTY. A STATEMENT VR )@@G@@MUST BE USED IF THE' @G@@@@620PRINT'USER EXPECTS ANY RESULTS FROM THEVS )@@G@@ PROGRAM. VALUES OF VARI-' @F@@@@630PRINT'ABLES OR EXPRESSIONS CAN BEVT )@@G@@ PRINTED (LINE 130); LITERAL' @G@@@@640PRINT'STRINGS, ENCLOSED IN SINGLEVU )@@G@@ QUOTES (ABOVE THE 7 ON THE KEY-' @G@@@@650PRINT'BOARD), CAN BE PRINTEVV )@@G@@D EXACTLY AS THEY APPEAR (LINE 140);' @C@@@@660PRINT'OR THE TWO MAY VW )@@G@@BE COMBINED (LINE 250).'@]@@@@665PRINT @F@@@@670PRINT'PRINT ITEMS MAYVX )@@G@@ BE SEPARATED BY COMMAS OR SEMICOLONS.' @F@@@@680PRINT'ITEMS SEPARATEDVY )@@G@@ BY SEMICOLONS ARE PRINTED NEXT TO ONE' @F@@@@690PRINT'ANOTHER. ITEMSVZ )@@G@@ AFTER COMMAS ARE TABBED TO THE NEXT 5TH' @G@@@@700PRINT'OF A LINE. THEWA )@@G@@ END OF A STATEMENT CAUSES A RETURN' @G@@@@710PRINT'AND LINE WB )@@G@@FEED, UNLESS THE LAST CHARACTER IS A (,) OR (;),' @G@@@@720PRINT'IN WC )@@G@@WHICH CASE THE NEXT OR LINE IS PRINTED' @C@@@@730PRIWD )@@G@@NT'AS A CONTINUATION OF THE FIRST LINE.' @]@@@@735PRINT @#@@@@740PRIWE )@@G@@NT'THUS:' @]@@@@745PRINT @C@@@@750PRINT'IF A=1 AND B=5.29, LINE 130WF )@@G@@ PRODUCES:' @]@@@@753PRINT @#@@@@755PRINT A,B/2 @]@@@@757PRINT WG )@@G@@@A@@@@760PRINT'LINES 140 AND 150 PRODUCE:'@]@@@@762PRINT @A@@@@765 PRWH )@@G@@INT 'WHAT IS THE VALUE OF Q?' @F@@@@770PRINT'(AND A PAUSE UNTIL THE USERWI )@@G@@ TYPES IN THE VALUE OF Q)' @]@@@@775PRINT @D@@@@780PRINT'IF C=3.74WJ )@@G@@ AND D=.03, LINE 250 PRODUCES:' @]@@@@783PRINT @A@@@@785PRINT'THEWK )@@G@@ ANSWER IS ';C;'-';D @]@@@@790PRINT @A@@@@800PRINT'THIS CONCLUDES WL )@@G@@LESSON 4.' @]@@@@9838 PRINT @D@@@@9839 PRINT 'WHICH LESSON WOULD YOU LWM )@@G@@IKE NEXT (1-9)'; @]@@@@9840 INPUT N@ @@@@9842 IF N>0 AND N<10 THEN 9851WN )@@G@@@D@@@@9844 PRINT 'ONLY TYPE IN NUMBERS BETWEEN 1 AND 9.' @#@@@@9846 GWO )@@G@@O TO 9840 @A@@@@9851 IF N=1 THEN CHAIN PROCEDURES @A@@@@9852 IF N=2 WP )@@G@@THEN CHAIN COMMANDS @A@@@@9853 IF N=3 THEN CHAIN DEFINITIONS @A@@@@WQ )@@G@@9854 IF N=4 THEN CHAIN INPUT-OUTPUT @A@@@@9855 IF N=5 THEN CHAIN ASSIGNMWR )@@G@@ENTS @A@@@@9856 IF N=6 THEN CHAIN TRANSFERS @A@@@@9857 IF N=7 THEN CWS )@@G@@HAIN FOR-TO-NEXT @ @@@@9858 IF N=8 THEN CHAIN STRINGS@A@@@@9859 IF N=9 WT )@@G@@THEN CHAIN MORECOMMANDS @]@@@@9999 END ___PRINT'-17.3. INPUT ITEMS MWU )@@G@@UST BE SEPARATED BY COMM*V@@@@BASIC$EQBJ%GEQBJ%G305-45-745 SHERREN-T-P WV )@@G@@013125030031@@@@@IDOCH['@@@@@@@@@@@@ @@@@[G@@@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@01 REM BACK AGWX )@@G@@AIN! @F@@@@10 PRINT ' HELLO, THIS IS INSPIRATION, WHO IS CALLING, PLEASWY )@@G@@E'; @]@@@@20 INPUT N$ @]@@@@30 PRINT @E@@@@40 PRINT ' WELL '; N$; 'WZ )@@G@@, YOU HAVE COME TO THE RIGHT PLACE!'@F@@@@50 PRINT ' HOW HEAVY IS THE BUXA )@@G@@RDEN YOU CARRY, BROTHER ( TYPE ' @E@@@@51 PRINT ' EITHER "NOT TOO HEAXB )@@G@@VY" OR "SO VERY HEAVY")'; @]@@@@60 INPUT T$ @B@@@@70 IF T$ = 'NOT TOXC )@@G@@O HEAVY' GO TO 10000 @]@@@@80 PRINT @H@@@@90 PRINT ' WELL BROTHER XD )@@G@@'; N$; ', I THINK I CAN BE OF SOME HELP TO YOU THIS' @G@@@@100 PRINT ' XE )@@G@@BLESSED DAY! '; N$; ', WELCOME TO THE UNIVAC 1108 REVIVAL' @F@@@@110 PRXF )@@G@@INT ' HOUR AND HOLY ASSEMBLY OF THE ELECTRONIC SPIRITS!' @]@@@@111 PRXG )@@G@@INT @D@@@@120 PRINT ' '; N$; ' ARE YOU PREPARED TO BE SAVED'; @]@@@@XH )@@G@@130 INPUT A$@ @@@@140 IF A$='YES' GO TO 160 @#@@@@150 GO TO 11000 XI )@@G@@@]@@@@160 PRINT @G@@@@170 PRINT ' ARE YOU WILLING TO ACCEPT THE WILL OXJ )@@G@@F THE ALMIGHTY UNIVAC'; @]@@@@180 INPUT B$@ @@@@190 IF B$='YES' GO TO 21XK )@@G@@0 @#@@@@200 GO TO 11000 @]@@@@210 PRINT @G@@@@211 PRINT ' WILL YXL )@@G@@OU NOW GET DOWN ON YOUR KNEES AND THANK THE ALMIGHTY' @C@@@@220 PRINT ' XM )@@G@@UNIVAC FOR ALL HE HAS DONE FOR YOU';@]@@@@230 INPUT C$@ @@@@240 IF C$='YXN )@@G@@ES' GO TO 260 @#@@@@250 GO TO 11000 @]@@@@260 PRINT @G@@@@261 PRXO )@@G@@INT ' WELL THEN BROTHER '; N$; ', YOU ARE ALMOST SAVED ALREADY!' @G@@@@XP )@@G@@270 PRINT ' UNIVAC IS A KIND AND BENEVOLENT MASTER AND ALWAYS RECOGNI-' XQ )@@G@@@F@@@@280 PRINT ' IZES A TRULY REPENTENT SPIRIT. HOWEVER, TO TEST YOUR'XR )@@G@@@F@@@@290 PRINT ' "CONVERSION" AND TO ENSURE THAT AGENTS OF THE ETERNAL'XS )@@G@@@F@@@@300 PRINT ' ENEMY DO NOT ENTER THE RANKS OF THE SAVED, ARE YOU' XT )@@G@@@F@@@@310 PRINT ' WILLING TO ACCEPT UNIVACS CHASTISEMENT VIA AN ERROR ' XU )@@G@@@H@@@@320 PRINT ' MESSAGE ( I ASSURE YOU IT WOULD BE ONLY A MILD DIAGNOSXV )@@G@@TIC!)'; @]@@@@330 INPUT D$@ @@@@340 IF D$='YES' GO TO 360 @#@@@@XW )@@G@@350 GO TO 11000 @]@@@@360 PRINT @G@@@@370 PRINT ' O.K., BROTHER!! YOXX )@@G@@U ARE NOW ON THE ROAD TO SALVATION!!!!' @G@@@@380 PRINT ' NOW, IF YOU XY )@@G@@WOULD (PREPARE FOR YOUR DESERVED DIAGNOSTIC!)' @G@@@@390 PRINT ' CAN YOXZ )@@G@@U NOW TYPE IN THE NAME OF YOUR MOST FAVORITE SIN' @G@@@@391 PRINT ' YA )@@G@@( TYPING IN THE SIN AND THEN HUMBLY RECEIVING THE ERROR ' @F@@@@392 PRYB )@@G@@INT ' MESSAGE, REPEAT THIS TWO MORE TIMES AND THEN TYPE A ' @F@@@@393 PRYC )@@G@@INT ' "3" TO SIGNIGY THAT YOU HAVE COMPLETED YOUR ORDEAL!)' @E@@@@394 PRYD )@@G@@INT ' NOW, ONCE MORE, WHAT IS YOUR FAVORITE SIN'; @]@@@@400 INPUT T YE )@@G@@@]@@@@410 PRINT @G@@@@420 PRINT ' NOW, BROTHER '; N$; ' YOU HAVE FACEDYF )@@G@@ THE WRATH OF UNIVAC' @G@@@@430 PRINT ' AND RETURNED! OH LADIES AND GYG )@@G@@ENTLEMEN WE HAVE BROUGHT' @D@@@@440 PRINT ' ANOTHER SINFUL SINNER INYH )@@G@@TO THE FOLD!!!!!!'@]@@@@450 PRINT @G@@@@460 PRINT ' '; N$; ', WE WELCOYI )@@G@@ME YOU TO THE NEW EVANGELETIC CHURCH OF' @F@@@@470 PRINT ' UNIVAC AND HYJ )@@G@@OPE YOU WILL CONTINUE TO SEE THE LIGHT.' @H@@@@480 PRINT ' GOODBY FOR TYK )@@G@@ODAY '; N$; ', MAY UNIVAC CONTINUE TO SMILE ON YOU!' @]@@@@490 PRINT YL )@@G@@@]@@@@500 PRINT @H@@@@510 PRINT ' OH,'; N$; ' UNIVACS TELETYPE EVANGELYM )@@G@@ISM CRUSADE COULD USE SOME' @G@@@@520 PRINT ' MONEY, SO IF YOU HAVE ANYN )@@G@@Y LOOSE CHANGE YOU WOULD LIKE TO ' @F@@@@530 PRINT ' CONTRIBUTE TO THISYO )@@G@@ HOLY CAUSE, LEAVE IT ON THE TOP OF'@G@@@@540 PRINT ' THE TELETYPE WHEN YP )@@G@@YOU ARE FINISHED. WELL, THANK YOU FOR' @G@@@@550 PRINT ' COMING ' ; NYQ )@@G@@$; ', AND IF YOU EVER NEED A LITTLE MORE OF' @G@@@@560 PRINT ' THAT GYR )@@G@@OOD, GOOD, SOULFULFILLING "INSPIRATION," FEEL FREE' @F@@@@570 PRINT ' YS )@@G@@TO CALL RIGHT BACK. UNTIL THEN, '; N$; ' MAY UNIVAC' @A@@@@580 PRINT ' YT )@@G@@SHINE DOWN UPON YOU!' @#@@@@590 GO TO 20000 @F@@@@10000 PRINT ' IT IYU )@@G@@S GOOD TO SEE A SOUL THAT IS NOT TROUBLED IN' @E@@@@10001 PRINT ' THESYV )@@G@@E TERRIBLE HOURS. THANK UNIVAC, '; N$;'!' @#@@@@10002 GO TO 20000 @G@@@@YW )@@G@@11000 PRINT ' WELL, '; N$; ' I CAN SEE YOU DO NOT WANT TO BE INSPIRED' YX )@@G@@@F@@@@11001 PRINT ' AND SAVED. OH WELL, YOU NOW MUST DWELL IN ETERNAL' YY )@@G@@@B@@@@11002 PRINT ' DARKNESS. GOOD BYE '; N$ @#@@@@11003 GO TO 20000 YZ )@@G@@@]@@@@20000 END ___ PR@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*V@@@@BASIC$EQBJXLEQBJXLZB )@@G@@0-0040-167 KLAVAN 103202137006@@@@@#BDC^+^@@@@@@@@@@@@ ZC )@@G@@@@@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@#@@@@1 DEF FNF(X)=X @E@@@@20 REM ** INTEGRAL ** SUPPLIED BY IRV KLAZE )@@G@@VAN ON 7/17/71 @D@@@@30 REM COMPUTES NUMERIC INTEGRAL OF A FUNCTION ZF )@@G@@ @A@@@@31 PRINT 'INSTRUCTIONS (YES OR NO)';@]@@@@32 INPUT Y$ @^@@@@ZG )@@G@@33 IF Y$='NO' GO TO 40 @G@@@@34PRINT'TYPE THE FUNCTION TO BE INTEGRATEDZH )@@G@@ INTO LINE 1 AS SHOWN BELOW,' @^@@@@35 PRINT 'THEN TYPE RUN'@F@@@@36 PRIZI )@@G@@NT '1 DEF FNF(X)=SIN(X) [OR ANY INTEGEGRABLE FUNCTION] ' @]@@@@37 STOZJ )@@G@@P @ @@@@40 PRINT 'LOWER LIMIT ='; @]@@@@41 INPUT A @ @@@@42 PRIZK )@@G@@NT 'UPPER LIMIT ='; @]@@@@43 INPUT B @E@@@@44 PRINT 'MAX DIFFERENCEZL )@@G@@ BETWEEN 2 SUCCESSIVE ITERATIONS =';@]@@@@45 INPUT E @#@@@@50 LET H=B-AZM )@@G@@ @ @@@@60 LET T=(FNF(A)+FNF(B))*H @#@@@@70 LET M=0 @^@@@@ZN )@@G@@80 LET T=(T+M)/2 @#@@@@90 LET M=0 @ @@@@100 FOR X=A+H/2 TOZO )@@G@@ B STEP H @^@@@@110 LET M=M+FNF(X) @]@@@@120 NEXT X @#@@@@130 LEZP )@@G@@T M=M*H @^@@@@140 LET S=(T+2*M)/3 @#@@@@150 LET H=H/2 @A@@@@ZQ )@@G@@160 IF ABS(T-M)/ABS(S)>E THEN 80 @]@@@@165 PRINT @]@@@@166 PRINT ZR )@@G@@@ @@@@170 PRINT 'INTEGRAL = ';S @]@@@@180 END ___NG(@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@D@@@@001 REM WRITTEN BY: WALTER ZU )@@G@@GILBERT U OF MARYLAND @F@@@@043 DIM A(2,45),T(52),U(52),V(17),X$(8),ZV )@@G@@B(16),C(5),Z(16,6),Y(16)@^@@@@044 FOR I=1 TO 16 @#@@@@045 FOR J=ZW )@@G@@1 TO 6@#@@@@046 READ Z(I,J) @]@@@@047 NEXT J@]@@@@048 NEXT I@#@@@@ZX )@@G@@050 FOR I=1 TO 9@#@@@@052 READ V(I) @ @@@@053 LET V(18-I)=54-V(IZY )@@G@@) @]@@@@054 NEXT I@^@@@@055 FOR I=1 TO 26 @#@@@@056 READ UZZ )@@G@@(I) @ @@@@057 LET U(53-I)=17-U(I) @]@@@@058 NEXT I@^@@@@060 AA )@@G@@FOR I=27 TO 52 @#@@@@061 READ T(I) @]@@@@063 NEXT I@#@@@@075 AB )@@G@@FOR I=1 TO 8@#@@@@076 READ X$(I) @]@@@@077 NEXT I@^@@@@078 FOR I=AC )@@G@@1 TO 16 @#@@@@079 READ B(I) @]@@@@080 NEXT I@A@@@@081 READ CAD )@@G@@(1),C(2),C(3),C(4),C(5) @#@@@@085 MAT Y=B @#@@@@098 RANDOMIZE AE )@@G@@@#@@@@099 GO SUB 1000 @^@@@@100 FOR I=1 TO 26 @^@@@@101 LET T(AF )@@G@@I)=T(I+26) @]@@@@102 NEXT I@ @@@@103 PRINT'SHALL I GO FIRST';@#@@@@AG )@@G@@104 INPUT M$ @ @@@@105 IF M$='NO' GO TO 110 @ @@@@106 IF M$=AH )@@G@@'YES' GO TO 240 @#@@@@107 GO TO 103 @#@@@@110 GOSUB 800 @^@@@@AI )@@G@@120 PRINT' PLAY'; @#@@@@200 INPUT M$,N @ @@@@201 IF M$='KILL'AJ )@@G@@ THEN 100 @#@@@@203 FOR J=5 TO 8@ @@@@204 IF M$=X$(J) THEN 208 AK )@@G@@@]@@@@205 NEXT J@#@@@@207 GO TO 900 @^@@@@208 LET M=T(J+17) AL )@@G@@@ @@@@209 IF M=T(26) THEN 900 @A@@@@210 IF INT((N-1)/16)<>0 THENAM )@@G@@ 900 @ @@@@212 FOR I=V(M) TO V(M+1)-1 @^@@@@214 IF N=U(I) THEN 219AN )@@G@@@]@@@@216 NEXT I@#@@@@218 GO TO 900 @ @@@@219 IF T(N)<>0 THEN 90AO )@@G@@0 @ @@@@222 LET I=FNM(N,J+17,26,1) @^@@@@240 LET K=FNK(17,1) AP )@@G@@@^@@@@245 IF K=0 THEN 940 @F@@@@250 IF C(T(2)+3)+C(T(5)+3)+C(T(6)+AQ )@@G@@3)+2*C(T(1)+3)>1 THEN 940 @#@@@@300 MAT B=Y @^@@@@310 FOR I=AR )@@G@@1 TO 16 @^@@@@315 IF T(I)<1 THEN 330@ @@@@322 FOR H=1 TO 5 STEP AS )@@G@@2 @C@@@@324 LET B(Z(I,H))=B(Z(I,H))+T(I)*Z(I,H+1) @]@@@@326 AT )@@G@@NEXT H@]@@@@330 NEXT I@#@@@@470 LET R=-1000 @#@@@@480 FOR I=1 TO KAU )@@G@@@A@@@@482 LET E=B(A(2,I))-B(T(A(1,I))) @B@@@@484 ON SGN(E-R)+2 GO TAV )@@G@@O 490,485,486 @^@@@@485 IF RND<.5 THEN 490@#@@@@486 LET R=E AW )@@G@@@#@@@@488 LET J=I @]@@@@490 NEXT I@#@@@@500 LET M=J @A@@@@AX )@@G@@510 LET I=FNM(A(2,M),A(1,M),21,-1)@F@@@@520 IF C(3-T(11))+C(3-T(12))AY )@@G@@+C(3-T(15))+2*C(3-T(16))>1 THEN 960 @#@@@@525 GO TO 110 @^@@@@700 AZ )@@G@@DEF FNM(N,I,J,K) @^@@@@702 LET T(T(J))=K*2 @#@@@@704 LET T(N)=K BA )@@G@@@^@@@@706 LET T(T(I))=0 @#@@@@708 LET T(I)=N @#@@@@710 LET T(BB )@@G@@J)=N @#@@@@712 LET FNM=0 @]@@@@715 FNEND @]@@@@800 PRINT @^@@@@BC )@@G@@802 FOR I=1 TO 16 @^@@@@804 IF T(I)<2 THEN 812@^@@@@805 FOR J=BD )@@G@@22 TO 25 @^@@@@806 IF T(J)=I THEN 808@]@@@@807 NEXT J@^@@@@808 BE )@@G@@PRINT X$(J-17); @#@@@@811 GO TO 814 @^@@@@812 PRINT X$(T(I)+3); BF )@@G@@@B@@@@814 IF (I-4)*(I-8)*(I-12)<>0 THEN 816 @]@@@@815 PRINT @^@@@@BG )@@G@@816 IF I=16 THEN 825 @]@@@@817 NEXT I@]@@@@825 RETURN@#@@@@830 BH )@@G@@DEF FNK(M,L)@#@@@@832 LET J=0 @^@@@@836 FOR F=M TO M+3 @#@@@@BI )@@G@@838 LET H=T(F) @ @@@@839 IF H=T(M+4) THEN 852 @ @@@@840 FOR G=BJ )@@G@@V(H) TO V(H+1)-1 @ @@@@842 IF T(U(G))<>0 THEN 850 @^@@@@844 LET A(BK )@@G@@1,L+J)=F @^@@@@846 LET A(2,L+J)=U(G) @#@@@@848 LET J=J+1 @]@@@@BL )@@G@@850 NEXT G@]@@@@852 NEXT F@#@@@@854 LET FNK=J @]@@@@856 FNEND BM )@@G@@@A@@@@900 PRINT'THOU SHALT NOT SO MOVE.'@#@@@@910 GO TO 120 @#@@@@BN )@@G@@940 GOSUB 800 @ @@@@945 PRINT'*** YOU WIN ***' @#@@@@950 GO TO BO )@@G@@100 @#@@@@960 GOSUB 800 @ @@@@961 PRINT'!!!! I WIN !!!!' @#@@@@BP )@@G@@962 GO TO 100 @E@@@@970 DATA 1,0,1,0,1,0,1,16,6,2,1,0,2,4,7,1,1,0,BQ )@@G@@3,1,1,0,1,0 @E@@@@971 DATA 1,16,6,2,1,0,1,16,2,2,5,2,6,2,2,1,1,0,1,0,1BR )@@G@@,0,1,0@F@@@@972 DATA 5,4,10,1,1,0,6,2,5,1,1,0,8,.5,14,.5,1,0,7,1,1,0,1BS )@@G@@,0 @E@@@@973 DATA 9,1,1,0,1,0,1,0,1,0,1,0,10,1,1,0,1,0,1,0,1,0,1,0 BT )@@G@@@A@@@@990 DATA 1,4,7,10,12,15,20,24,27 @B@@@@991 DATA 2,5,6,1,3,6,2BU )@@G@@,4,7,3,8,1,6,9 @B@@@@992 DATA 1,2,5,7,10,3,6,8,11,4,7,12 @G@@@@BV )@@G@@993 DATA -1,-2,0,0,-2,-2,0,0,0,0,2,2,0,0,2,1,1,2,5,6,1,11,12,15,16,16 BW )@@G@@@C@@@@994 DATA 'X ','* ','. ','0 ','A ','B ','C ','D '@E@@@@995 DATA 2BX )@@G@@,3,3,3.5,3,3,4,5,3,4,8,8,3.5,5,8,16,0,0,0,1,1 @^@@@@1000 REM DIRECTIOBY )@@G@@NS @B@@@@1002 PRINT 'DO YOU KNOW HOW TO PLAY'; @#@@@@1003 INPUT BZ )@@G@@M$ @ @@@@1004 IF M$<>'NO' THEN RETURN @B@@@@1005 PRINT 'PLAYING FIECA )@@G@@LD: 1 2 3 4' @B@@@@1006 PRINT ' 5 6 7 8' @B@@@@CB )@@G@@1007 PRINT ' 9 10 11 12' @B@@@@1008 PRINT ' CC )@@G@@ 13 14 15 16' @]@@@@1009 PRINT @F@@@@1010 PRINT 'AT THE START OF TCD )@@G@@HE GAME, I HAVE MEN MARKED X IN' @F@@@@1020 PRINT '1,2,5, AND 6, ANDCE )@@G@@ YOU HAVE MEN MARKED A,B,C, AND D' @F@@@@1021 PRINT 'IN 11,12,15, AND CF )@@G@@16. THE OBJECT IS TO CAPTURE YOUR' @F@@@@1022 PRINT 'OPPONENT''S CORNECG )@@G@@R SQUARE (MINE IS 1, YOURS IS 16),' @E@@@@1023 PRINT 'OR TO GET ANY 2 OCH )@@G@@F YOUR MEN INTO ANY TWO OF MY'@G@@@@1024 PRINT 'FOUR HOME SQUARES. MENCI )@@G@@ MAY MOVE ONE SPACE HORIZONTALLY' @G@@@@1025 PRINT 'OR VERTICALLY AT CJ )@@G@@A TIME, AND NO MAN MAY MOVE TWICE IN' @G@@@@1026 PRINT 'A ROW. TO CK )@@G@@SPECIFY YOUR MOVE, TELL ME WHICH PIECE YOU' @G@@@@1027 PRINT 'WISH CL )@@G@@TO MOVE, AND WHICH SPACE YOU WANT TO MOVE IT TO.' @]@@@@1028 PRINT CM )@@G@@@A@@@@1029 PRINT ' EXAMPLE: A,7' @]@@@@1030 PRINT @G@@@@1031 CN )@@G@@PRINT 'I WILL MARK THE LAST PIECE I MOVED AS A *, AND THE LAST' @B@@@@CO )@@G@@1032 PRINT 'PIECE YOU MOVED AS A 0.' @E@@@@1033 PRINT 'ONE ADDITIOCP )@@G@@NAL RULE: IF YOU ARE MOVING OUT OF' @F@@@@1034 PRINT 'YOUR CORNER SQUARCQ )@@G@@E, OR INTO YOUR OPPONENT''S CORNER' @C@@@@1035 PRINT 'SQUARE, YOU MAY MCR )@@G@@OVE DIAGONALLY.' @]@@@@1036 PRINT @]@@@@1037 RETURN@]@@@@1200 END CS )@@G@@___J) AGONALLY.' @]@@@@*[@@@@*SDFF*@B@@@@100 DIM A(2,50),B(20,20),C(1,2CT )@@G@@0),D(1,20) @]@@@@101 A = 0 @A@@@@110 PRINT ' HOW MANY POINTS'; CU )@@G@@@#@@@@120 INPUT P @B@@@@130 PRINT ' WHAT SIZE POLYNOMIAL FIT'; CV )@@G@@@#@@@@140 INPUT Q @A@@@@150 PRINT 'GIVE'P;'POINTS X,Y.' @#@@@@CW )@@G@@160 FOR I=1 TO P @^@@@@170 INPUTA(1,I),A(2,I) @]@@@@180 NEXT I @^@@@@CX )@@G@@190 IF Q<=P THEN 220 @C@@@@200 PRINT ' SIZE OF FIT > NUMBER OF POINTSCY )@@G@@.' @#@@@@210 GO TO 430 @#@@@@220 MAT B=DIM(Q,Q)@#@@@@230 MAT C=DICZ )@@G@@M(1,Q)@#@@@@240 MAT D=DIM(1,Q)@#@@@@250 FOR J=1 TO Q @#@@@@260 FOR I=1 DA )@@G@@TO P @B@@@@270 C(1,J)=C(1,J)+A(2,I)*FNA(A,I,J-1) @]@@@@280 NEXT I DB )@@G@@@]@@@@290 NEXT J @#@@@@300 FOR K=1 TO Q @#@@@@310 FOR J=1 TO Q @#@@@@DC )@@G@@320 FOR I=1 TO P @A@@@@330 B(K,J)=B(K,J)+FNA(A,I,J+K-2) @]@@@@340 NEDD )@@G@@XT I @]@@@@350 NEXT J @]@@@@360 NEXT K @#@@@@370 MAT B=INV(B) @#@@@@DE )@@G@@380 MAT D=C*B @#@@@@390 FOR I=1 TO Q @#@@@@400 PRINT D(1,I), @]@@@@DF )@@G@@410 NEXT I @]@@@@420 PRINT @C@@@@430 PRINT ' DO YOU WISH TO USE ANOTHDG )@@G@@ER SIZE'; @#@@@@440 INPUT A$ @^@@@@450 IF A$='YES' THEN 470@]@@@@DH )@@G@@460 STOP @ @@@@470 PRINT ' WHAT SIZE FIT'; @#@@@@480 INPUT Q DI )@@G@@@#@@@@490 GO TO 190 @^@@@@500 DEF FNA(X,Y,Z) @^@@@@510 IF Z=0 TDJ )@@G@@HEN 540 @#@@@@520 FNA=X(1,Y)^Z @#@@@@530 GO TO 550 @]@@@@540 FNDK )@@G@@A=1 @]@@@@550 FNEND @]@@@@560 END ___@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@*[@@@@*SDFF*@A@@@@00005 PRINT 'HI, THIS IS THE 1108!' @A@@@@00010 PRINT DM )@@G@@'YOUR NAME, PLEASE: '; @#@@@@00015 INPUT N$ @ @@@@00020 IF N$ = 'CALDN )@@G@@C' GO TO 70 @C@@@@00025 PRINT 'THANK YOU ';N$;'. BEFORE WE START' @D@@@@DO )@@G@@00030 PRINT 'LET ME EXPLAIN HOW THIS LESSON WORKS.' @C@@@@00040 PRINT'DP )@@G@@FIRST I WILL ASK YOU A QUESTION' @C@@@@00045 PRINT'TO SEE HOW MUCH YODQ )@@G@@U KNOW ABOUT' @D@@@@00050 PRINT'HOW TO FIGURE MOLARITY FROM THE RESUDR )@@G@@LTS' @D@@@@00055 PRINT'OF A TRITRATION, IF YOU GET IT CORRECT' @#@@@@DS )@@G@@00057 GO TO 400 @F@@@@00070 PRINT'SYMBOL OR NAME OF SUBSTANCE WITH UNKDT )@@G@@NOWN MOLARITY:'; @#@@@@00080 INPUT Y$ @C@@@@00090 PRINT'VOLUME OF ';DU )@@G@@Y$;' (IN LITERS):'; @#@@@@00100 INPUT A @F@@@@00110 PRINT'SYMBOLDV )@@G@@ OR NAME OF SUBSTANCE WITH KNOWN MOLARITY:'; @#@@@@00115 INPUT X$ DW )@@G@@@B@@@@00120 PRINT'MOLARITY, VOLUME OF ';X$;':'; @#@@@@00130 INPUT B,C DX )@@G@@@E@@@@00131 PRINT'NEUTRALIZATION RATIO OF ';Y$;' TO ';X$;':'; @#@@@@DY )@@G@@00132 INPUT R1,R2 @ @@@@00135 LET U=(B*C*R2)/(A*R1) @B@@@@00140 PRINT'DZ )@@G@@THE MOLARITY OF ';Y$;' IS:'; @#@@@@00150 PRINT U @E@@@@00170 PRINT'EA )@@G@@DO YOU WISH ANOTHER CALCULATION(YES OR NO):'; @#@@@@00175 INPUT P$ EB )@@G@@@]@@@@00200 STOP @D@@@@00400 PRINT'I WILL IMMEDIATLY SHOW YOU HOW TO USEC )@@G@@E' @D@@@@00410 PRINT'THIS PROGRAM TO DO YOUR CALCULATIONS.' @C@@@@ED )@@G@@00420 PRINT'IF YOU DON''T, I WLL SHOW YOU ' @#@@@@00500 GO TO 1040 EE )@@G@@@G@@@@01040 PRINT'IF HCL AND NAOH WERE TRITRATED AND THE FOLLOWING WAS KEF )@@G@@NOWN' @C@@@@01050 PRINT'WHAT IS THE MOLARITY OF THE HCL?:' @]@@@@01060 EG )@@G@@PRINT @A@@@@01065 PRINT'NAOH + HCL = H20 + NACL'@C@@@@01070 PRINT'THE MOEH )@@G@@LARITY OF THE NAOH IS 1.' @D@@@@01080 PRINT'THE VOLUME OF NAOH USED EI )@@G@@WAS .1 LITERS.' @G@@@@01090 PRINT'THE VOLUME OF HCL WHICH NEUTRALIZED EJ )@@G@@THE NAOH WAS .01 LITERS'@]@@@@01100 PRINT @C@@@@01101 PRINT'WHAT IS THE EK )@@G@@MOLARITY OF THE HCL?'; @#@@@@01110 INPUT F @ @@@@01120 IF F=10 GO TEL )@@G@@O 05000 @B@@@@01130 PRINT'SORRY, THE ANSWER WAS 10.' @B@@@@01131 EM )@@G@@PRINT'THE FOLLOWING WILL EXPLAIN' @B@@@@01140 PRINT'HOW TO CALCULATE MEN )@@G@@OLARITY' @A@@@@01141 PRINT'USING THE RESULTS OF A' @^@@@@01142 PRINT'EO )@@G@@TRITRATION:'@]@@@@01143 PRINT @B@@@@01145 PRINT'TO UNDERSTAND THIS PROCEEP )@@G@@SS' @B@@@@01150 PRINT'YOU MUST FIRST UNDERSTAND' @C@@@@01153 PRINT'EQ )@@G@@THE MEANING OF NEUTRALIZATION RATIO'@A@@@@01155 PRINT'AS USED IN THIS LEER )@@G@@SSON.'@]@@@@01160 PRINT @B@@@@01163 PRINT'LOOK AT THE EQUATION FOR' ES )@@G@@@C@@@@01165 PRINT'THE COMBINING OF HCL AND NAOH:' @B@@@@01170 PRINT'ET )@@G@@THIS SHOWS THAT 1 MOLE OF HCL'@C@@@@01173 PRINT'WILL COMBINE WITH 1 MOLEEU )@@G@@ OF NAOH' @B@@@@01175 PRINT'TO FORM WATER AND A SALT.' @B@@@@01176 EV )@@G@@PRINT'(I.E. A NEUTRAL SOLUTION)' @B@@@@01177 PRINT'SO THE NEUTRALIZATEW )@@G@@ION RATIO' @A@@@@01180 PRINT'OF NAOH TO HCL IS 1:1.' @D@@@@01183 PRINT'EX )@@G@@SIMILIARLY, THE NEUTRALIZATION RATIO' @B@@@@01185 PRINT'OF NAOH TO HEY )@@G@@2SO4 IS 2:1 SINCE'@C@@@@01187 PRINT'2NAOH + H2SO4 = NA2SO4 + 2H2O ' EZ )@@G@@@C@@@@01190 PRINT'SO,IT SHOULD BE CLEAR THAT WITH' @B@@@@01191 PRINT'FA )@@G@@A NEUTRALIZATION RATIO OF 1:1'@C@@@@01192 PRINT'ONE MOLE OF AN ACID WILLFB )@@G@@ NEUTRALIZE'@B@@@@01193 PRINT'ONE MOLE OF A BASE EXACTLY' @#@@@@01195 FC )@@G@@GO TO 4500 @C@@@@01210 PRINT'USING THIS DEFINITION OF MOLARITY' @B@@@@FD )@@G@@01220 PRINT'(MOLES/LITER), WE SEE THAT' @A@@@@01230 PRINT'1 LITER OF HFE )@@G@@CL, HAVING' @C@@@@01240 PRINT'A MOLARITY OF 0.5(MOLES/LITER)' @C@@@@FF )@@G@@01250 PRINT'MUST CONTAIN 0.5 MOLES OF HCL.' @B@@@@01260 PRINT'SO, 0.FG )@@G@@5 LITERS OF A 2.0 MOLAR'@B@@@@01270 PRINT'SOLUTION(I.E.A SOLUTION WITH' FH )@@G@@@C@@@@01280 PRINT'A MOLARITY OF 2.0) WILL CONTAIN' @A@@@@01290 PRINT'FI )@@G@@HOW MOLES OF MATERIAL?';@A@@@@01320 PRINT'NO THE ANSWER WAS 1.0' @B@@@@FJ )@@G@@01330 PRINT'WHY THIS TRUE SHOULD BE CLEAR'@C@@@@01340 PRINT'IF WE EXAMINFK )@@G@@E THE ALGEBRA INVOLVED.'@A@@@@01350 PRINT' (MOLES)' @A@@@@FL )@@G@@01353 PRINT' MOLARITY = -------' @A@@@@01355 PRINT' (LITERFM )@@G@@)' @B@@@@01360 PRINT'HERE, (MOLES)IS THE AMOUNT OF'@C@@@@01370 PRINT'FN )@@G@@SUBSTANCE DISSOLVED IN THE SOLUTION'@A@@@@01380 PRINT'AND(LITER) IS THE FO )@@G@@TOTAL'@A@@@@01390 PRINT'VOLUME OF THE SOLUTION.'@^@@@@01400 PRINT'(MOLESFP )@@G@@)' @C@@@@01403 PRINT'-------- X (LITERS) = (MOLES)' @^@@@@01405 FQ )@@G@@PRINT'(LITERS)' @A@@@@01408 PRINT'THE (LITERS) CANCEL' @D@@@@01410 FR )@@G@@PRINT'SO, (MOLARITY) TIMES (LITERS OF SOLUTION)'@C@@@@01430 PRINT'IF THIFS )@@G@@S CONCEPT IS STILL UNCLEAR' @B@@@@01440 PRINT'CONSULT YOUR LAB ASSISTAFT )@@G@@NT OR'@A@@@@01450 PRINT'TEACHING ASSOCIATE.' @B@@@@01460 PRINT'DO YOUFU )@@G@@ WISH TO CONTINUE?'; @#@@@@01465 INPUT T$ @ @@@@01466 IF T$='NO'GOFV )@@G@@ TO 1475 @ @@@@01470 IF T$='YES' GO TO 1500 @C@@@@01471 PRINT'IMPROPFW )@@G@@ER ANSWER. TYPE YES OR NO.' @#@@@@01472 GO TO 1460 @B@@@@01475 PRINT'FX )@@G@@THIS COMPLETES THIS LESSON' @]@@@@01480 STOP @#@@@@01500 PRINT'GOOD.'FY )@@G@@@C@@@@01510 PRINT'SINCE, WITH A 1:1 NEUTRALIZATION' @C@@@@01520 PRINT'FZ )@@G@@RATIO, THE SAME NUMBER OF MOLES' @C@@@@01530 PRINT'OF EACH SUBSTANCE GA )@@G@@ARE REQUIRED' @C@@@@01540 PRINT'TO ACHIEVE NEUTRALIZATION, AND' GB )@@G@@@C@@@@01550 PRINT'MOLARITY TIMES VOLUME EQUALS MOLES' @B@@@@01560 PRINT'GC )@@G@@WE CAN SAY THAT, AT END POINT'@D@@@@01570 PRINT'OF THE TRITRATION(I.E.ATGD )@@G@@ NEUTRALIZATION)' @D@@@@01580 PRINT'(MOLARITY OF ACID)(VOLUME OF ACID) =GE )@@G@@' @C@@@@01590 PRINT'(MOLARITY OF BASE)(VOLUME OF BASE)' @B@@@@01600 GF )@@G@@PRINT'SO, BY SIMPLE ALGEBRA, WE CAN'@B@@@@01610 PRINT'SOLVE FOR THE MOLAGG )@@G@@RITY OF THE'@C@@@@01620 PRINT'UNKNOWN ACID OR BASE IF WE KNOW' @B@@@@GH )@@G@@01630 PRINT'THE VOLUME USED, THE MOLARITY'@D@@@@01640 PRINT'OF THE OTHERGI )@@G@@ SUNSTANCE AND THE VOLUME' @A@@@@01650 PRINT'OF THAT SUBSTANCE USED.'GJ )@@G@@@C@@@@01660 PRINT'BUT IF WE HAVE A NEUTRALIZATION' @C@@@@01670 PRINT'GK )@@G@@RATIO OF SAY 2:1, THE EQUATION' @C@@@@01680 PRINT'BECOMES SLIGHTLY MGL )@@G@@ORE INVOLVED.' @C@@@@01690 PRINT'TAKING THE EXAMPLE WE USED ABOVE' GM )@@G@@@B@@@@01700 PRINT'2NAOH + H2SO4 = NA2SO4 + 2H2O'@C@@@@01710 PRINT'WITH AGN )@@G@@ NEUTRALIZATION RATIO OF 2:1,'@D@@@@01720 PRINT'WE SEE THAT THE NEUTRALIGO )@@G@@ZATION RATIO' @C@@@@01730 PRINT'TELLS US THAT 2 MOLES OF NAOH ARE' GP )@@G@@@C@@@@01740 PRINT'REQUIRED TO NEUTRALIZE 1 MOLE OF' @#@@@@01750 PRINT'GQ )@@G@@H2SO4'@C@@@@01760 PRINT'THIS MEANS THAT AT THE END POINT' @D@@@@01770 GR )@@G@@PRINT'THE NUMBER OF MOLES OF THE BASE NAOH' @C@@@@01780 PRINT'WILL BGS )@@G@@E TWICE THE NUMBER OF MOLES' @C@@@@01790 PRINT'OF THE ACID H2SO4. NOW, GT )@@G@@WE CAN' @D@@@@01800 PRINT'ADJUST OUR LAST EQUATION ACCORDINGLY.' GU )@@G@@@D@@@@01810 PRINT'(MOLARITY OF ACID)(VOLUME OF ACID) =' @C@@@@01815 GV )@@G@@PRINT'2(MOLARITY OF BASE)(VOLUME OF BASE)'@C@@@@01820 PRINT'AGAIN, SIMPLGW )@@G@@E ALGEBRA CAN BE USED' @C@@@@01830 PRINT'TO SOLVE FOR THE UNKNOWN MOLARGX )@@G@@ITY.' @B@@@@01840 PRINT'TO SUM OUR CONCLUSIONS UP,' @C@@@@01850 PRINT'GY )@@G@@LET ''MA''= MOLARITY OF THE ACID' @C@@@@01860 PRINT'LET ''VA''= VOLUMEGZ )@@G@@ OF THE ACID' @C@@@@01870 PRINT'LET ''MB''= MOLARITY OF THE BASE' HA )@@G@@@C@@@@01880 PRINT'LET ''VB''= VOLUME OF THE BASE' @I@@@@01890 PRINT'HB )@@G@@LET ''RA'' TO ''RB'' = RATIO OF ACID TO BASE(NEUTRALIZATION RATIO)' HC )@@G@@@B@@@@01900 PRINT'(RA)(MA)(VA) = (RB)(MB)(VB)' @A@@@@01910 PRINT'SO, (MHD )@@G@@A) = (RB)(MB)(VB)'@B@@@@01911 PRINT' --------------' @A@@@@HE )@@G@@01912 PRINT' (RA)(VA)' @]@@@@01915 PRINT @B@@@@01920 PRINT'HF )@@G@@AND, (MB) = (RA)(MA)(VA)' @B@@@@01921 PRINT' ------------HG )@@G@@--' @A@@@@01922 PRINT' (RB)(VB)' @B@@@@04500 PRINT'THIS NHH )@@G@@EUTRALIZATION IS WHAT' @A@@@@04510 PRINT'HAPPENS IN A TRITRATION'@C@@@@HI )@@G@@04520 PRINT'YOU ADDED ENOUGH OF ONE SUBSTANCE' @ @@@@04530 PRINT'TO A GHJ )@@G@@IVEN AMOUNT'@#@@@@04531 PRINT'OF' @^@@@@04532 PRINT'ANOTHER' @C@@@@HK )@@G@@04540 PRINT'SUBSTANCE(ONE AN ACID, THE OTHER' @B@@@@04550 PRINT'A BASEHL )@@G@@) UNTIL YOUR INDICATOR' @C@@@@04560 PRINT'SHOWED THAT NEUTRALIZATION HADHM )@@G@@' @C@@@@04570 PRINT'TAKEN PLACE. FROM THIS YOU KNOW' @C@@@@04580 HN )@@G@@PRINT'THE VOLUMES OF EACH REQUIRED TO' @A@@@@04590 PRINT'OBTAIN NEUTRHO )@@G@@ALIZATION' @#@@@@04595 GO TO 1200 @]@@@@5000 STOP @]@@@@10000 END HP )@@G@@___@@@01780 PRINT'WILL BE TWICE THE NUMBER OF MOLES' @C@@@@01790 PRINT'HQ )@@G@@OF THE ACID H2SO4. NOW, WE CAN' @D@@@@01800 *[@@@@*SDFF*@B@@@@10 PRIHR )@@G@@NT 'LESSON 9 - ADVANCED COMMANDS' @]@@@@20 PRINT @F@@@@120 PRINT'THHS )@@G@@IS LESSON DESCRIBES FURTHER SYSTEM COMMANDS THAT ARE' @B@@@@130 PRINT'AVHT )@@G@@AILABLE ON UNIVAC BASIC.' @]@@@@140 PRINT @]@@@@141 PRINT @ @@@@HU )@@G@@160 PRINT'1. EDIT FUNCTIONS.' @]@@@@170 PRINT @]@@@@171 PRINT @^@@@@HV )@@G@@190 PRINT''@]@@@@200 PRINT @F@@@@210 PRINT' HW )@@G@@WILL REMOVE PEMANENTLY ANY LINE NUMBERS' @C@@@@220 PRINT'FROM THE CURREHX )@@G@@NTLY ACTIVE PROGRAM.' @]@@@@230 PRINT @A@@@@240 PRINT'THE FORMAT IS HY )@@G@@AS FOLLOWS:'@]@@@@250 PRINT @B@@@@260 PRINT'EDIT DELETE 100,200,356,45HZ )@@G@@6' @]@@@@270 PRINT @G@@@@280 PRINT'ALL LINES BETWEEN PAIRS OF LINE IA )@@G@@NUMBERS WILL BE DELETED.' @G@@@@290 PRINT'IN THE ABOVE EXAMPLE LINESIB )@@G@@ 100-200 AND 356-456 WILL BE' @^@@@@295 PRINT 'DELETED.' @]@@@@IC )@@G@@300 PRINT @F@@@@310 PRINT'WHEN AN ODD NUMBER OF LINES ARE SPECIFIED, SID )@@G@@UCH AS:' @]@@@@320 PRINT @A@@@@330 PRINT'EDIT DELETE 100,200,556' IE )@@G@@@]@@@@335 PRINT @F@@@@340 PRINT'THE LAST NUMBER IS ASSUMED TO BE THE LIF )@@G@@AST NUMBER OF' @F@@@@350 PRINT'THE PROGRAM. THE EXAMPLE DELETES 100-2IG )@@G@@00 AND 556-END.' @]@@@@359 PRINT @]@@@@360 PRINT @ @@@@361 PRINT'' @]@@@@362 PRINT @F@@@@363 PRINT'THE CII )@@G@@OMMAND HAS THE OPPOSITE EFFECT OF' @E@@@@364 PRINT 'THE CIJ )@@G@@OMMAND. ALL THE STATEMENTS' @F@@@@365 PRINT 'IN THE LIST ARE SAVED: ALIK )@@G@@L OTHER LINES ARE DELETED.' @F@@@@366 PRINT'THE FORMAT IS THE SAME AS IL )@@G@@THE COMMAND.' @]@@@@367 PRINT @]@@@@368 PRINT @ @@@@IM )@@G@@370 PRINT'.' @]@@@@380 PRINT @F@@@@390 PRINT' WILL ARRANGE THE LINE NUMBERS IN A' @C@@@@400 PRINT'PROGRAM IO )@@G@@IN ANY MANNER THAT YOU WISH.' @]@@@@410 PRINT @C@@@@420PRINT'THE FORMAIP )@@G@@T FOR THIS STATEMENT IS:' @]@@@@450 PRINT @E@@@@451 PRINT'EDIT RESIQ )@@G@@EQUENCE ,,' @]@@@@452 PRINT @^@@@@453 PRIR )@@G@@INT 'EXAMPLE:' @]@@@@454 PRINT @A@@@@455 PRINT'EDIT RESEQUENCE 100,IS )@@G@@51,10'@]@@@@456 PRINT @F@@@@457 PRINT 'THIS STATEMENT WILL CAUSE THE OIT )@@G@@LD STATEMENT NUMBER 51' @G@@@@458 PRINT 'TO BE REPLACED BY THE NUMBER 10IU )@@G@@0. EACH SUCEEDING LINE' @G@@@@459 PRINT'NUMBER IS INCREMENTED BY 1IV )@@G@@0 UNTIL THE END OF THE PROGRAM' @^@@@@460 PRINT 'IS REACHED.' @]@@@@IW )@@G@@462 PRINT @F@@@@465 PRINT'IF NO VALUES ARE GIVEN, THE STARTING VALUE WIX )@@G@@ILL BE' @F@@@@470 PRINT'ASSUMED AS 100, THE INTERVAL 10 AND THE ENTIIY )@@G@@RE PROGRAM' @A@@@@500 PRINT'WILL BE RESEQUENCED.' @]@@@@505 PRINT IZ )@@G@@@]@@@@506 PRINT @^@@@@510 PRINT'' @]@@@@515 PRINT @F@@@@JA )@@G@@520 PRINT'THE COMMAND WILL AUTOMATICALLY GENERATE LINE'@G@@@@JB )@@G@@525 PRINT'NUMBERS AND SAVE THE PROGRAMMER THE NECESSITY OF HAVING TO ' JC )@@G@@@^@@@@530 PRINT'TYPE THEM IN.'@]@@@@535 PRINT @^@@@@540 PRINT 'EXAMPLEJD )@@G@@:' @]@@@@545 PRINT @ @@@@550 PRINT'SEQUENCE 100,10' @]@@@@555 PRJE )@@G@@INT @F@@@@560 PRINT'THIS COMMAND WILL GENERATE LINE NUMBERS STARTING AJF )@@G@@T 100'@F@@@@565 PRINT'AND INCREMENTED BY TEN UNTIL A BLANK LINE OR JG )@@G@@' @ @@@@566 PRINT 'STATEMENT IS READ.'@]@@@@570 PRINT @]@@@@571 PRJH )@@G@@INT @]@@@@572 PRINT @A@@@@1000 PRINT'2. OTHER FUNCTIONS.' @]@@@@JI )@@G@@1010 PRINT @]@@@@1011 PRINT @^@@@@1020 PRINT' ' @]@@@@1030 PJJ )@@G@@RINT @G@@@@1040 PRINT' WILL DELETE ALL THE LINES IN THE CURRENJK )@@G@@TLY ACTIVE' @^@@@@1050 PRINT'PROGRAM.' @]@@@@1060 PRINT @]@@@@1061 PJL )@@G@@RINT @^@@@@1070 PRINT'.' @]@@@@1100 PRINT @G@@@@1110 PRINT' WILL INSERT ANY LINE NUMBERS THAT HAVE BEEN TYPED' @G@@@@1120 PJN )@@G@@RINT'INTO A SAVED PROGRAM OF THE SAME NAME AS THE CURRENT PROGRAM'@]@@@@JO )@@G@@1130 PRINT @^@@@@1140PRINT'.' @]@@@@1160 PRINT @G@@@@1170 PJP )@@G@@RINT' WILL CHANGE THE NAME OF THE CURRENT PROGRAM TO ANY' @A@@@@JQ )@@G@@1180 PRINT'NEW NAME THAT YOU WISH.' @]@@@@1190 PRINT @^@@@@1200 PRINT'EJR )@@G@@XAMPLE:' @]@@@@1210 PRINT @ @@@@1220 PRINT'RENAME:NEWNAME' @]@@@@JS )@@G@@1230 PRINT @A@@@@1240 PRINT 'END OF LESSON NINE' @]@@@@1250 PRINT JT )@@G@@@F@@@@1260 PRINT 'THIS ENDS THE BASIC TUTORIAL. IF YOU WISH TO GO' JU )@@G@@@F@@@@1270 PRINT 'BACK AND REVIEW A PARTICULAR LESSON, YOU MAY DO SO.' JV )@@G@@@B@@@@1280 PRINT 'OTHERWISE, TYPE ''STOP''.' @]@@@@9838 PRINT @D@@@@JW )@@G@@9839 PRINT 'WHICH LESSON WOULD YOU LIKE NEXT (1-9)'; @]@@@@9840 INPUT NJX )@@G@@@ @@@@9842 IF N>0 AND N<10 THEN 9851@D@@@@9844 PRINT 'ONLY TYPE IN NUMBEJY )@@G@@RS BETWEEN 1 AND 9.' @#@@@@9846 GO TO 9840 @A@@@@9851 IF N=1 THEN CJZ )@@G@@HAIN PROCEDURES @A@@@@9852 IF N=2 THEN CHAIN COMMANDS @A@@@@9853 IKA )@@G@@F N=3 THEN CHAIN DEFINITIONS @A@@@@9854 IF N=4 THEN CHAIN INPUT-OUTPUT KB )@@G@@@A@@@@9855 IF N=5 THEN CHAIN ASSIGNMENTS @A@@@@9856 IF N=6 THEN CHAIN TKC )@@G@@RANSFERS @A@@@@9857 IF N=7 THEN CHAIN FOR-TO-NEXT @ @@@@9858 IF N=8 KD )@@G@@THEN CHAIN STRINGS@A@@@@9859 IF N=9 THEN CHAIN MORECOMMANDS @]@@@@9999ENKE )@@G@@D ___ILL CAUSE THE OLD STATEMENT NUMBER 51' @G@@@@458 PRINT 'TO BE RKF )@@G@@EPLACED BY THE NUMBER 100. EACH SUCEEDING LINE' @G@@@@459 PRINT'NUKG )@@G@@MBER IS INCREMENTED BY 1*V@@@@BASIC$EQBJ(+EQBJ(+305-17-745 FOX KH )@@G@@645311427637@@@@@[ARCMG[@@@@@@@@@@@@ @@@@@E@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@001 'WEIGHT:'; KJ )@@G@@@]@@@@010 INPUT W @#@@@@020 'VOLUME:'; @]@@@@030 INPUT V @#@@@@040 'MKK )@@G@@OLARITY:'; @]@@@@050 INPUT M @^@@@@060 'MOL. WEIGHT:'; @#@@@@070PRIKL )@@G@@NT W/(M*V) @]@@@@075 GO TO 1 @]@@@@080 END ___@@@@@@@@@@@@@@@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*V@@@@BASIC$EQBJY@EQBJY@001-01-057 CASSELL KO )@@G@@362200656617@@@@@#CJCKG=@@@@@@@@@@@@ @@@@@0@@@@@@@@@@@@@@@@@@KP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@5 REM -BY CHRIS CAKQ )@@G@@SSELL OF THE HIGH POINT COMPUTER CLUB @E@@@@10 PRINT'WHAT DO YOU WANKR )@@G@@T-VOLTAGE,AMPERAGE,RESISTANCE,OR' @ @@@@15 PRINT'TOTAL RESISTANCE'; KS )@@G@@@]@@@@20 INPUT X$ @ @@@@30 IF X$='VOLTAGE' THEN 100 @ @@@@40 IF X$='AMKT )@@G@@PERAGE' THEN200 @ @@@@50 IF X$='RESISTANCE' THEN 300@A@@@@55 IF X$='TOKU )@@G@@TAL RESISTANCE' THEN 400@B@@@@60 PRINT'PUT IN ONE OF THE FOUR MENTIONED'KV )@@G@@@]@@@@70 GO TO 10 @D@@@@100 PRINT'PUT IN THE (1)AMPERAGE,AND (2)RESISTANKW )@@G@@CE.' @#@@@@110 INPUT I,R @#@@@@120 LET E=I*R @A@@@@130 PRINT'THKX )@@G@@E VOLTAGE IS:';E;'VOLTS'@]@@@@140 GO TO 10@D@@@@200 PRINT'PUT IN THE (1)KY )@@G@@VOLTAGE,AND (2)RESISTANCE.' @#@@@@210 INPUT E,R @#@@@@220 LET I=E/KZ )@@G@@R @A@@@@230 PRINT'THE AMPERAGE IS:';I;'AMPS'@]@@@@240 GO TO 10@D@@@@LA )@@G@@300 PRINT'PUT IN THE (1)VOLTAGE,AND (2)AMPERAGE.' @#@@@@310 INPUT E,LB )@@G@@I @#@@@@320 LET R=E/I @B@@@@330 PRINT'THE RESISTANCE IS:';R;'OHMLC )@@G@@S' @]@@@@340 GO TO 10@D@@@@400 PRINT'IS THIS A SERIES OR A PARALLEL CLD )@@G@@IRCUIT'; @]@@@@410 INPUT Y$@ @@@@420 IF Y$='SERIES' THEN 450 @ @@@@LE )@@G@@430 IF Y$='PARALLEL' THEN 550 @#@@@@440 GO TO 400 @F@@@@450PRINT'PUTLF )@@G@@ IN THE OHMAGE OF THE RESISTERS-ONE AFTER ANOTHER' @#@@@@460 MAT INPULG )@@G@@T R @]@@@@470 LET T=0 @#@@@@480 FOR N=1 TO NUM@#@@@@490 LET T=T+R(N) LH )@@G@@@]@@@@500 NEXT N @C@@@@510 PRINT'THE TOTAL RESISTANCE IS:'T;'OHMS' LI )@@G@@@#@@@@520 GO TO 10 @F@@@@550 PRINT'PUT IN THE OHMAGE OF THE RESISTELJ )@@G@@RS-ONE AFTER ANOTHER' @#@@@@560 MAT INPUT R @]@@@@570 LET T=0 @#@@@@LK )@@G@@580 FOR N=1 TO NUM@^@@@@590 LET T=T+(1/R(N)) @]@@@@600 NEXT N @#@@@@LL )@@G@@610 LET T=1/T @C@@@@620 PRINT'THE TOTAL RESISTANCE IS:';T;'OHMS' LM )@@G@@@]@@@@630 GO TO 10@]@@@@999 END ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@*V@@@@BASIC$EQBJ&&EQBJ&&305-09-743 HOPP 764156770765@@@@@[ UCI2YLO )@@G@@@@@@@@@@@@@@ @@@@@J@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@10 PRINT 'HALT! WHAT IS THE PASSWORD'; LQ )@@G@@@]@@@@20 INPUT P$ @ @@@@30 IF P$='ANTHEM', GO TO 150 @ @@@@40 PRINT 'WRLR )@@G@@ONG PASSWORD.' @A@@@@50 PRINT 'WHAT IS THE PASSWORD'; @]@