chunk_228.json•1.49 kB
{
"id": "chunk_228",
"text": "6580 IF AMA<990 THEN 6660 \n6590 U2•N2\"DIO(IP2)A2/ 4\"PI\"l0000 \n6600 \nIF IP2< 10 THEN 6650 \n6610 LPRINT USING\"Section U#.U crn2/ m Impossible a Satisfaire\";AC\"lOOOO \n6620 LPRINT USING\"avec U Barres de U mm (U!f.#Jf crn2j m)\";N2;DIO(IP2)\"1000;U2 \n6630 P\nHl•O:NBARl• O \n6640 \nGOTO 6800 \n6650 \nN2• 1NT(l0\"Bl + .95):IP2•10:GOTO 6470 \n6660 IF NBIN•O THEN 6800 \n6670 IF KSUP•! THEN CRO·H-2\"ENR ELSE CR0•20\"PH1 \n6680 Ul•Al-2\"ENR-2\"RM-2\"PH1+Pl\"(RM+.5\"PH1)+2\"(CR0-RM-PHI) \n6690 IF NP<3 OR NP>3 THEN 6730 \n6700 IF AXY<2 THEN ILM•VOLS(ISl)jH(!Sl)/ C3(1Sl) \n6710 \nIF AXY>2 THEN ILM•VOLS(ISI)/ H(IS1)/ C2(!Sl) \n451 \n\n6720 Ul• ILM-2'ENR-2'RM-2'PHI+PI\"(RM+SPHI)+\n2\n.(CRO-RM \n6730 LOM•U1 -PHI) \n6740 ILB•INT(Ul'50+ 1)/50 \n6750 IRET•CRO+(ILB-Ul)/2 \n6760 Ul•NBARl'ILB'PHI/\\2 \n6770 ACI•ACI+U1'Pij4'7850 \n6780 L9•1LB:D9•PHI:N9•NBAR1:GOSUB 9320 \n6790 PHI• PHI'lOOO \n6800RETURN \n6810REM---------------------\n6820 REM Lecture des Donnees Generales \n6830 PRINT\"Voulez-Vous Lire les Donnees:' \n6840 PRINT' 1 • sur l'Ecran • \n6850 PRINT'",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 228,
"line_start": 7476,
"line_end": 7512,
"has_formulas": false,
"has_tables": false
}
}