chunk_570.json•1.42 kB
{
"id": "chunk_570",
"text": "1780 GOSUB 2210:XROT- XROT+ROT\"P:XFL- XFL+FL\"P \n1790 GOSUB 2310:XROT- XROT+ROT\"C:XFL-XFL+FL\"C \n1800 NEXT J \n1810 FOR J - 1 TO NC \n1820 A - XC(J):P-P(J):C-T(J):GOSUB 2110 \n1830 XVG-XVG+VG:XVD-XVD+VD:XMG-XMG+MG:XMD-XMD+MD \n1840 GOSUB 2210:XROT-XROT+ROT\"P:XFL- XFL+FL\"P \n1850 GOSUB 2310:XROT• XROT+ROT\"C:XFL• XFL+FL\"C \n1860NEXT \nJ \n1870RETURN \n1880REM\n--------------------------\n1890 REM: Conversion Lecture Format Ubre \n1900 FOR 19- 0 TO 12 \n1910 U(I9)- 0 \n1920 NEXTI9 \n1930 n - o \n1940 IF cu--oR cu-·· THEN 2o4o \n1950 J-1 \n1960 IF INSffi(J.CL$,\" \")- J THEN J-J+ 1 :GOTO 1960 \n1970 \nCL$- RlGHT$(CL$,LEN(CL$)·J+ 1):19• 1NSffi(l,CL$.\" \") \n1980 IF 19- 0 THEN MOT$•CL$:GOTO 2000 \n1990 MOT$•LEFT$(CL$.19-l) \n2000 IF MOT$-·-THEN 2030 \n2010 \nU(ll)• V AL(MOT$):11• 1 1 + 1 :CL$· RlGHT$(CL$,LEN(CL$)-LEN(MOT$)) \n2020 GOTO 1940 \n2030 \nFOR 16•Il TO 12:U(I6)• UMY(I6):NEXT 16 \n2040 FOR 16- 0 TO 12 \n2050 UMY(I6)• U(I6) \n2060 NEXTI6 \n2070RETURN \n2080 \nREM.----------------\n644 \n***·***",
"metadata": {
"book_id": 34848,
"title": "BASIC-STRUCTURAL-Henry-Thonier-Tome-2",
"authors": "Unknown",
"project": "basic_structural",
"content_source": "ocr",
"content_length": 756676,
"chunk_index": 570,
"line_start": 20186,
"line_end": 20224,
"has_formulas": true,
"has_tables": false
}
}