1 C CMS400.FORM_F (12.07.90) 2 C 6 C SP950=SAUBERSTRICKEN/KNITTING AFTER PRESS OFF/RETRICOTER PROPREMENT 8 C KORREKT EINSTELLEN/ADJUST/REGLER: NP WM WMI WMN SEN=F1 #51 #52 MSEC YD 9 C 11 C RS1= 2X1 RAPPORT/2X1 CYCLE/CYCLE 2X1 17 C RS17= ZUNAHMEREIHEN/WIDENING ROWS/RANGEES DE AUGMENTER 19 C RS19=1 GUMMIFADEN/ELASTIC THREAD/FIL ELASTIC 20 C #51-#52= ANFANGSBREITE/START WIDTH/LARGEUR DE DEPART 21 NP1=10.0 C NETZ/SET UP/RESEAU 22 NP2=11.0 C SCHLAUCH/TUBULAR/TUBULAIRE 23 NP3=11.5 C 2X1 24 NP4=12.5 C UEBERGANG/END OF 2X1/FIN DE 2X1 25 NP5=12.5 C MUSTER/PATTERN/DESSIN 26 NP6=13.0 C MINDERN/NARROWING/DIMINUER 29 C 30 NP20=9.0 NP21=10.0 NP22=11.0 NP23=11.5 NP24=12.0 NP25=13.0 C ANFANGSREIHEN 31 NP18=9.0 NP19=10.0 C SAUBERSTRICKEN 40 START 47 PF0 48 WM=10 49 MSEC=1.0 50 YG1:8=D/1=S 3F=G 6F=G 7=E; 51 YG2:8=D/1=S 3F=G 6F=G 7=E; 54 YD8=54-10 55 YD7=12-42 56 YD6= 8-16 57 YD5=22-28 58 YD4=28-22 59 YD3=14- 8 60 YD2=36-36 61 YD1=42-48 64 C-------------------------------I-------------------------------I 65 C LINKS LEFT GAUCHE RECHTS RIGHT DROITE I 66 C-------------------------------I-------------------------------I 67 C (8) 8=D TRENNFADEN I I 68 C (7) I 7=E GUMMIFADEN I 69 C (6) I 6=G GRUNDFARBE I 70 C (5) I I 71 C (4) I I 72 C (3) I 3=G GRUNDFARBE I 73 C (2) I I 74 C (1) I 1=S ANFANGSREIHEN I 75 C-------------------------------I-------------------------------I 82 C NICHT BENUETZTE FADENFUEHRER AUSSERHALB SEN-BEREICH STELLEN 83 C PLACE NOT USED YARN CARRIERS OUT OF SEN AREA 84 C PLACER LES GUIDE-FILS NON UTILISEES AUDEHORS DE LA ZONE DU SEN 85 C---------------------------------------------------------------- 90 C TRENNFADEN DRAW THREAD FIL DE SEPERATION 91 C GRUNDFARBE GROUND COLOUR COULEUR DE FOND 93 C GUMMIFADEN ELASTIC THREAD FIL ELASTIC 94 C ANFANGSREIHEN START COURSES RANGEES DE DEPART 99 C---------------------------------------------------------------- 100 C JA1= 102 C F1= 104 C PA:; 106 C PM:; 108 C SEN1= 110 C SEN2= 112 C #51= #52= 113 C WMN= 149 C------------------------------ GRUNDPOSITIONEN ENDE ------------ 150 PF0 199 C---------------------------------------------------------------- 200 F:ANFANG-2X1-F; 202 F:UEBERGANG; 204 F:R-0*RS2; 206 F:R-0-ZU*RS3; 208 F:R-0*RS4; 210 F:R-0-MIN*RS5; 299 END 300 C------------------------------ F-ANFANG ------------------------ 301 FBEG:ANFANG-2X1-F; 302 IF #L=#51 IF #R=#52 F:ANFANG-2X1; GOTO FEND 303 IF #L<=#51 IF #R>=#52 F:ABWERFEN; F:ANFANG-2X1; GOTO FEND 304 IF #L>=#51 IF #R<=#52 F:ZUNEHMEN; F:ANFANG-2X1; GOTO FEND 305 IF #L<>#51 IF #R<>#52 F:ABWERFEN; F:ZUNEHMEN; F:ANFANG-2X1; 306 FEND 310 C------------------------------ ANFANG-2X1 ---------------------- 311 FBEG:ANFANG-2X1; 312 <> S0Y 313 #L=#51 #R=#52 314 << S:R(23)-R(23)/R(24)-0; Y:=G/=S; S1 S2 315 >> S:0-R(24)/R-R; Y:=D/=S; SX SX 316 << S:U^SR/0-R(25); Y:=S; SX SX 317 >> S:UVSD..I; V0 SX 318 << S:U^SD..I/R-0; Y:0; VR1 SX SX 319 >> S:DI.I(20)-DII.(22); Y:=S!; SX 320 << S:R(21)-0/0-DII.; Y:0/=D!; SX SX 321 >> S:R-0/DI.I(1)-DII.(1); Y:0/=G; SX SX 322 IF RS19= 1 F:MIT-GUMMIFADEN; 323 IF RS19<>1 F:OHNE-GUMMIFADEN; 324 RBEG*RS1 325 << S:DI.I(3)-DII.(3); Y:=G/=G; SX SX 326 >> SX SX 327 REND 328 FEND 329 C------------------------------ MIT-GUMMIFADEN ------------------ 330 FBEG:MIT-GUMMIFADEN; 331 << S:DI.I(2)-(2)0/0-DII.; Y:=G/=E; SX SX 332 >> S:0-DII./DI.I(3)-DII.(3); Y:=E!/=G;V0 SX SX 333 FEND 334 C------------------------------ OHNE-GUMMIFADEN ----------------- 335 FBEG:OHNE-GUMMIFADEN; 336 << S:0(2)-(2)DII.; Y:=G; SX 337 >> S:DI.I-0; V0 SX 338 FEND 350 C------------------------------ ABWERFEN ------------------------ 351 FBEG:ABWERFEN; 352 <> S0Y 354 PA:#L:; 355 << S:TI(24)-TI(24); Y:=S; S1 356 >> S:0-TI; SX 357 << S:U^STI/0-(25)TI; SX SX 358 >> S:UVSI; VL1 SX 359 << S:UVST; V0 SX 360 REP*4 361 >> S:TI-0; Y:=S; SX 362 << SX 363 REPEND 364 >> SX 365 PA:#L:#51:; 366 << S:T(21)-T(21); Y:0; SX SX WM=0 WMI=0 367 >> S0 WM=4 368 IF#L<#51 #L=#51 369 IF#R>#52 #R=#52 370 FEND 380 C ----------------------------- ZUNEHMEN ------------------------ 381 FBEG:ZUNEHMEN; 383 IF #R-#L<#137*4 WM=0 WMI=3 WS0 384 S0Y 385 << S:R(23)-R(23); V0 Y:=S; S1 386 >> S:0-R(24)/R(22)-(22)R; Y:=D/=S; SX SX 387 << S:UVSR/R(25)-0; Y:=S; SX SX 388 >> S:R(22)-R(20)/0-R; Y:=S/0; SX SX 389 << S:R(24)-0; Y:=D!/=S; SX SX 390 >> Y:=S; SX 391 IF #R-#L>#137*4 GOTO 403 392 PA:; 393 PL:'L.L'; PR:'P.P'; 394 PF1 395 REP*8 396 IF #R<#52 #R=#R+2 IF #R>#52 #R=#52 397 << S:.LPA(21)-PA(20)/0-LA; Y:=S/0; SX SX 398 IF #L>#51 #L=#L-2 IF #L<#51 #L=#51 399 >> S:LPA-LA/0-PA; SX SX 400 REPEND 401 C 402 PF0 403 PA:; 404 << S:U^SY; VR1 SX W0 405 >> S:UVSAY; V0 SX W0 406 PL:'LL.L'; PR:'P.PP'; 407 PF1 408 IF #R<#52 #R=#R+2 IF #R>#52 #R=#52 409 << S:LPA(21)-PA(20)/Y-LA; Y:=S/0; SX SX WM=3 WMI=3 WS1 410 IF #L>#51 #L=#L-2 IF #L<#51 #L=#51 411 >> S:LPA-LA/Y-PA; SX SX 412 IF #L>#51 GOTO 408 413 IF #R<#52 GOTO 408 414 PL:; PR:; 415 << S:R-R/0-R; Y:=S/0; SX SX 416 >> SX SX 417 REP*5 418 << S:R(25)-0; Y:=S; SX 419 >> SX 420 REPEND 421 RBEG*RS17 422 << S:R-R/0-R; Y:=S/0; SX SX 423 >> SX SX 424 REND 427 PF0 428 FEND 500 C -------------------------------- UEBERGANG --------------------- 502 FBEG:UEBERGANG; 504 << Y:=G; SX SX 506 >> S:DI.I(4)-DII.(4); SX SX 508 PA:; 510 << S:UVSA; SX 512 >> S0 514 FEND 550 C ----------------------------- R-0 ------------------------------ 552 FBEG:R-0; 554 << S:A(5)-0; Y:=G; SX SX 556 >> SX SX 558 FEND 600 C ----------------------------- R-0-ZU --------------------------- 602 FBEG:R-0-ZU; 604 << S:A-0; #R=#R+1 SX SX 608 >> #L=#L-1 SX SX 610 FEND 650 C ----------------------------- R-0-MIN -------------------------- 651 FBEG:R-0-MIN; 652 PA:; 653 IF #R-#L<20 GOTO FEND 654 PL:'LLLLLL'; PR:'PPPPPP'; 655 PF1 656 << S:ALP(6)-0; SX SX 658 >> SX SX 660 << S:U^SLP; SX W0 662 >> S:UVSL; VR2 SX W0 664 << S:UVSP; VL2 SX W0 666 >> V0 S0 W0 668 #L=#L+2 #R=#R-2 670 PL:; PR:; 671 FEND 950 C------------------------------ SAUBERSTRICKEN ------------------ 951 START 952 GOSUB 50-149 953 <> S0Y 954 << S:DI.(18)-D.I(18)/D.I-DI.; Y:=G/=G; S1 S2 W07 WS0 955 >> SX SX W07 956 REP*99 957 << S:R(19)-R(19); Y:=G/=G; SX SX W07 958 >> SX SX W07 959 REPEND 960 MS C GESTRICK IN ABZUGSWALZE 961 GOTO 956 962 END 963 END 999 <> S0 W0