chunk_200.json•1.47 kB
{
"id": "chunk_200",
"text": "DIM A(KN).B(KN).H(KN).ACI(KN),NOM$(KN),ACERC(KN),C2(KN),C3(KN) \n210 DIM PM(5).TH(5),[)(5),SP(5),PM1(5),PMAS(5),PMIS(5),D1(KN,5).SIGPIEU(5) \n220 \nDIM PMB(5).LAP(5).T(5),F(5),UB(5) \n230 CALL TEXTFONT(4):CALL TEXTSIZE(9) ' Propre au Macintosh \n240 WIDTH\"LPTI:·. 125 'Ugne Compressee (15 cpi) \n250 REM !print CHR$(27);CHR$(120) '120 car.jUgne \n260 FOR I- 1 TO 10:READ DIO(I):NEXT I ' Diametres des Banes \n270 FOR 1• 1 TO 10:READ DMI(I):NEXT I 'Diametres des Mandrlns de Cintrage des Ancrages \n280 FOR 1• 1 TO 6:READ DM2(1):NEXT I ' Diametres des Mandrlns de Cintrage des Cadres \n290 GOSUB 6810 · Lecture des Donnees Generales \n300 GOSUB 7030:LPRINT \n310 LPRINT STRING$(96,42) \n320 LPRINT TITRE$:LPRfNT \n330 IF TITRE$•\"FIN\" THEN 1290 \n440 \n340 VOLS•O:ACI•O:COFS• O \n350 \nFOR 1•1 TO KNN:ACI(!)•O:ATORS(I.O)•O:ATORS(I,l)•O \n360 TAUTO(I)•O:NEXT \nI \n370 FOR 1• 1 TO lO:XL(I)•O:NEXT I \n380 IF IECR·2 THEN READ NP:GOTO 400 \n3\n90 INPUT\"Nombre de Pieux sous Ia Semelle (I .2 • 3 ou 4) •\";NP \n400KN• O \n410 \nON NP GOTO 420,620,830,1040 \n4",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 200,
"line_start": 6648,
"line_end": 6676,
"has_formulas": true,
"has_tables": false
}
}