chunk_110.json•1.5 kB
{
"id": "chunk_110",
"text": "6520 IZ• 5:EI•O:IPZ•IZ \n6530 E2• D5+AT7 / (lfr-AT7)\"(D5-EI) \n6540 GOSUB 7390 \n6550 IF LN(ICM)<FI THEN IPZ• 6 \n6560 KN2•-I :IZ•IPZ \n6570 ON IPZ GOTO 6640,6640,6640,6640,6640,6620.6590,6580 \n6580 \nEI•DI:ADl•Dl:AD2• 0 :GOTO 6650 \n6590 \nEI·DI:ADI•O:AD2•D2 \n6600 IF ELU<l.l AND IPIEU>O AND AD2>D10 THEN AD2•D10 \n6610 GOTO 6650 \n6620 \nE2•D2:ADI•Dl :AD2· D2'D(l)/lfr \n6630 GOTO 6650 \n6640 AD2•D5:ADI• O \n6650 KN2•-I \n6660 IF IPZ• 8 THEN GOSUB 5420:GOTO 6700 \n6670 \nIF IPZ•7 THEN GOSUB 53SO:GOTO 6700 \n6680 IF 1PZ· 6 THEN GOSUB 5270:GOTO 6700 \n6690 IF IPZ• 5 THEN GOSUB 5190 \n6700 FOR J2•1 TO N9 \n6710 J3•J2:1F LN(ICM)>TN(J2, I) THEN 6730 \n6720 \nNEXT J2 \n6730 Ul•TN(J3,l):U2• TM(J3, 1) \n6740 IF ABS(UI-LN(ICM))<PRN THEN MMIN•U2:GOTO 6770 \n6750 \nAD2• AD2-(J3-I)\"AD3:ADl• AD2-AD3 \n6760 GOTO 6650 \n6770 \nIF LM(ICM)<MMIN OR l.M(ICM)>MSUP THEN VERIF$•NVER!F$ \n6780 K1•2:KN2·-I \n6790 QPER$•\"\" \n6800 IF ELU> 1.1 OR BP< 1 THEN 6850 \n6810 IF COMB(ICM)• O THEN QPER$•\" Execut.\" \n6820 IF COMB(ICM)•l THEN QPER$• ' Q -Perm.\"",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 110,
"line_start": 3558,
"line_end": 3595,
"has_formulas": true,
"has_tables": false
}
}