1 C CMS402-4.ZOPF_SEQUENCE (25.09.89) 2 C 2X4-ZOPF/2X4 CABLE/TORSADE 2X4 3 C NUR FUER TEILUNG 8/ONLY FOR 8 GG/ SEULEMENT POUR GG 8 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 12 C RS2= F:MUSTER; VORDERTEIL RUECKEN/FRONT BACK/DEVANT DOS 13 C RS3= F:A-0; AERMEL/SLEEVE:MANCHE 14 C RS17= ZUNAHMEREIHEN/WIDENING ROWS/RANGEES DE AUGMENTER 15 C RS19=1 GUMMIFADEN/ELASTIC THREAD/FIL ELASTIC 16 C 17 C RS18=0 SEQUENCE VORDERTEIL/RUECKEN/AERMEL*2 18 C RS18=1 VORDERTEIL/FRONT/DEVANT 19 C RS18=2 RUECKEN/BACK/DOS 20 C RS18=3 AERMEL/SLEEVE/MANCHE 21 C 22 C RS19=1 GUMMIFADEN/ELASTIC THREAD/FIL ELASTIC 23 C 24 C #21 #56 #57 BELEGT/USED/OCCUPE 25 C #51-#52= ANFANGSBREITE/START WIDTH/LARGEUR DE DEPART 26 C #53 #54= V-AUSSCHNITT/V-NECK/COL DE V 28 NP1=10.0 C NETZ/SET UP/RESEAU 29 NP2=11.0 C SCHLAUCH/TUBULAR/TUBULAIRE 30 NP3=11.5 C 2X1 31 NP4=10.5 C UEBERGANG/END OF 2X1/FIN DE 2X1 32 NP5=10.0 C MUSTER HINTEN/PATTERN REAR/DESSIN ARRIERE 33 C 34 NP20=9.0 NP21=10.0 NP22=11.0 NP23=11.5 NP24=12.0 NP25=13.0 C ANFANGSREIHEN 35 NP18=9.0 NP19=10.0 C SAUBERSTRICKEN 40 START 41 PF0 48 WM=10 49 MSEC=1.0 50 YG1:4F=A 8=D/1=S 3F=G 6F=G 7=E; 51 YG2:4F=A 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) 4=A > GRUNDFARBE I I 72 C (3) I 3=G < GRUNDFARBE I 73 C (2) I I 74 C (1) I 1=E < ANFANGSREIHEN I 75 C-------------------------------I-------------------------------I 82 C ACHTUNG! FDF AUSSERHALB SEN-BEREICH STELLEN. 83 C ATTENTION! PLACE YARN CARRIERS OUT OF SEN-AREA. 84 C ATTENTION! PLACER LES GUIDE-FILS AUDEHORS DE LA ZONE DU SEN. 85 C---------------------------------------------------------------- 90 C TRENNFADEN DRAW THREAD FIL DE SEPERATION 93 C GUMMIFADEN ELASTIC THREAD FIL ELASTIC 94 C ANFANGSREIHEN START COURSES RANGEES DE DEPART 99 C---------------------------------------------------------------- 100 JA1=1138(1100-1138) 101 FA=503-519 102 PA:501:JA1 1:; 107 IF #137=8 F1=1-284 PM:F1 365:F1; SEN1=1-284 SEN2=365-648 WMN=284 148 C 149 C------------------------------ GRUNDPOSITIONEN ENDE ------------ 150 PF0 160 C---------------------------------------------------------------- 161 IF RS18>3 RS18=0 162 IF RS18=0 F:VORDERTEIL; F:RUECKEN; F:AERMEL*2; GOTO 299 163 IF RS18=1 F:VORDERTEIL; GOTO 299 164 IF RS18=2 F:RUECKEN; GOTO 299 165 IF RS18=3 F:AERMEL; GOTO 299 170 C---------------------------------------------------------------- 200 FBEG:VORDERTEIL; 202 IF #137=8 #51=31 #52=254 #53=142 #54=143 204 F:ANFANG-2X1-VF; 206 GOSUB 100-149 208 PF1 210 F:BED; 212 F:^TV+; 214 FL:-RS2(000000)8(2)10(000)100(0); C MINDERN/NARROWING/DIMINUER 216 FR:-RS2(000000)8(0)10(100)100(0); C V-AUSSCHNITT/V-NECK/COL DE V 218 F:MUSTER*RS2; 220 #LM=#53 #RM=#54 F:BED-V; 222 F:V-MUSTER*5; 224 FL:-00; FR:-00; F:V-ENDE; 226 PF0 228 FEND 234 C---------------------------------------------------------------- 236 FBEG:RUECKEN; 238 IF #137=8 #51=31 #52=254 240 F:ANFANG-2X1-VF; 242 GOSUB 100-149 244 PF1 246 PA:; F:UVA; 248 FL:-RS2(000000)8(2)100(0); C MINDERN/NARROWING/DIMINUER 250 F:A-0*RS2; 252 F:A-0*5; 254 PF0 256 FEND 260 C---------------------------------------------------------------- 262 FBEG:AERMEL; 264 IF #137=8 #51=80 #52=210 266 F:ANFANG-2X1-VF; 268 GOSUB 100-149 270 PF1 272 PA:; F:UVA; 274 FL:+RS3(101000)-8(2)100(0); C ZUNEHMEN/WIDENING/AUGMENTER 276 C MINDERN/NARROWING/DIMINUER 278 F:A-0*RS3; 280 F:A-0*4; 282 PF0 284 FEND 299 END 300 C------------------------------ VF-ANFANG ----------------------- 301 FBEG:ANFANG-2X1-VF; 302 IF #LM<#54 IF #RM>#53 IF #RM-#LM>2 F:>>-UMHAENGEN-<<; 303 IF #L=#51 IF #R=#52 F:ANFANG-2X1; GOTO FEND 304 IF #L<=#51 IF #R>=#52 F:ABWERFEN; F:ANFANG-2X1; GOTO FEND 305 IF #L>=#51 IF #R<=#52 F:ZUNEHMEN; F:ANFANG-2X1; GOTO FEND 306 IF #L<>#51 IF #R<>#52 F:ABWERFEN; F:ZUNEHMEN; F:ANFANG-2X1; 307 FEND 310 C------------------------------ ANFANG-2X1 ---------------------- 311 FBEG:ANFANG-2X1; 312 <> S0Y 313 #L=#51 #R=#52 #LM=0 #RM=0 314 << S:R(23)-R(23)/R(24)-0; Y:=G/=S; S1 S2 WM=10 WMI=3 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 W0 318 << S:U^SD..I/R-0; Y:0; VR1 SX SX W0 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; SX SX 326 >> SX SX 327 REND 328 FEND 330 C------------------------------ MIT-GUMMIFADEN ------------------ 331 FBEG:MIT-GUMMIFADEN; 332 << S:DI.I(2)-(2)0/0-DII.; Y:=G/=E; SX SX 333 >> S:0-DII./DI.I(3)-DII.(3); Y:=E!/=G;V0 SX SX 334 FEND 335 C------------------------------ OHNE-GUMMIFADEN ----------------- 336 FBEG:OHNE-GUMMIFADEN; 337 << S:0(2)-(2)DII.; Y:=G; SX 338 >> S:DI.I-0; V0 SX 339 FEND 350 C------------------------------ ABWERFEN ------------------------ 351 FBEG:ABWERFEN; 352 <> S0Y 353 #LM=0 #RM=0 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; 382 #LM=0 #RM=0 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 446 C------------------------------ >>-UMHAENGEN-<< ----------------- 447 FBEG:>>-UMHAENGEN-<<; 448 S0Y 449 #21=#137*2 450 << S:UVSR; V0 S1 W0 ML 451 #56=#LM+1 #57=#RM-1 #LM=0 #RM=0 452 PA:#56:; 453 >> S:T(21)-T(21); Y:0; SX SX W0 454 #LM=#56-1 #RM=#57+1 455 IF #53-#LM>#21 GOSUB 460-462 GOTO 455 456 IF #RM-#54>#21 GOSUB 463-465 GOTO 456 457 #21=#53-#LM IF #21>0 GOSUB 460-462 458 #21=#RM-#54 IF #21>0 GOSUB 463-465 459 #LM=0 #RM=0 GOTO 466 460 << S:U^SR; V0 PFSL SX WM^2 WS0 ML 461 >> S:UVSR; VV=2 V>#21 SX W0 WS1 ML 462 #L=#L+#21 #LM=#LM+#21 463 << S:U^SR; V0 PFSR SX WM^2 WS0 ML 464 >> S:UVSR; VV=2 V<#21 SX W0 WS1 ML 465 #R=#R-#21 #RM=#RM-#21 466 << V0 PFS S0 W0 467 >> S:R(21)-R(21); Y:=D; SX 468 << S:0-R/R(12.0)-0; Y:0/=D!; SX SX 469 >> S0 470 FEND 500 C---------------------------------------------------------------- 501 FBEG:BED; 502 PL=8,8> PR=8,8< 503 PL:'LLLLLL'; PR:'PPPPPP'; 504 PF2 505 FEND 510 C---------------------------------------------------------------- 511 FBEG:^TV+; 512 NPJ1: .=14.0 N=13.5; C MUSTER VORNE 513 <> S:<1->U^STG/UVS+WLP; SX SX 514 <> S0 515 FEND 520 C---------------------------------------------------------------- 521 FBEG:STRICKEN; 522 F+ IF #F1=1 IF #FL F:ZUNAHME; 523 <> S:<1->AHLPMQ(J1)-YHZ(5); Y:=G/=G; V0 VU SX SX WM=10 524 IF #F1=0 IF #FL F:MINDERN; 525 FEND 540 C---------------------------------------------------------------- 541 FBEG:UMHAENGEN; 542 <> S:<1->%OIZ+*(11.5)-OIZ+*(11.0)/UXSO+*-T;Y:0; SX SX WM=4 543 <> S:UVSO; VV=20 VL2 VV+5 SX WM^0 WS0 544 <> S:UVS+/UVS*; VV=2 VR4 VV+2 SX SX WM^0 WS0 545 <> S:UVSW/U^STG; V0 SX SX W0 546 FEND 560 C---------------------------------------------------------------- 561 FBEG:MINDERN; 562 F:BED; 563 <> S:UXSG-W/U^SLP; V0 SX SX W0 564 <> S:UVSP; VL#FL SX W0 565 <> S:UVSL; VR#FL SX W0 566 <> S:U^SG/UVSWLP; #L>#FL #R<#FL V0 SX SX WM=4 567 FEND 580 C---------------------------------------------------------------- 581 FBEG:MUSTER; 582 REP*4 JA1=1134(1128-1134) F:STRICKEN; REPEND 583 JA1=1126(1100-1126) F:STRICKEN; F:UMHAENGEN; 584 F:STRICKEN; F:UMHAENGEN; 585 FEND 620 C---------------------------------------------------------------- 621 FBEG:BED-V; 622 PLM=5,5< PRM=5,5> 623 PLM:'MM'; PRM:'QQ'; 624 PL:'LLLLLL'; PR:'PPPPPP'; 625 PL=8,8> PR=8,8< 626 PF2 627 <> S:UXSGT-W+/UVSMQLP; V0 SX SX W0 628 <> S0 629 FEND 640 C---------------------------------------------------------------- 641 FBEG:V-STRICKEN; 642 <> S:<1->AQP(J1)-Y(5); Y:=GS; V0 PFSR SX WM=10 WMI=5 643 #10=#127 644 <> S:<1->AHQP-YH/ALM-Y; Y:=GS/=AS; SX PFSL JA1=#10 SX 645 <> S:<1->AHLM-YH; Y:=AS; SX PFS 646 <> S0 W0 648 F+ IF #F1=0 IF #FL F:MINDERN; 649 IF #F2=0 IF #FR F:V-MINDERN; 650 FEND 680 C---------------------------------------------------------------- 681 FBEG:V-MINDERN; 682 <> S:UXSG-W/U^SMQ; V0 SX SX W0 683 <> S:UVSM; VL#FR SX W0 684 <> S:UVSQ; VR#FR SX W0 685 <> S:U^SG/UVSWLMQP; #LM<#FR #RM>#FR V0 SX SX W0 686 FEND 700 C---------------------------------------------------------------- 701 FBEG:V-MUSTER; 702 REP*4 JA1=1134(1128-1134) F:V-STRICKEN; REPEND 703 JA1=1126(1100-1126) F:V-STRICKEN; F:UMHAENGEN; 704 F:V-STRICKEN; F:UMHAENGEN; 705 FEND 750 C---------------------------------------------------------------- 751 FBEG:ZUNAHME; 752 PL:; PR:; 753 PL=10,10< PR=10,10> 754 #L<#FL #R>#FL 755 FEND 770 C------------------------------STRICKEN A-0------------------------ 771 FBEG:A-0; 772 REP*6 773 F+ IF #F1=1 IF #FL F:ZUNAHME; 774 <> S:ALP(J1)-0; Y:=G/=G; SX SX 775 IF #F1=0 IF #FL F:MINDERN; 776 REPEND 777 FEND 780 C---------------------------------------------------------------- 781 FBEG:UVA; 782 NPJ1: .=13.5 N=13.5; C MUSTER VORNE 783 PL:'LLLLLL'; PR:'PPPPPP'; 784 PF1 785 << S:UVSALP/APL(J1)-0; Y:=GS; V0 SX SX 786 >> S:ALP-0; SX 787 FEND 790 C---------------------------------------------------------------- 791 FBEG:V-ENDE; 792 JA1=1134(1128-1134) F:V-STRICKEN; 793 FEND 950 C------------------------------ SAUBERSTRICKEN ------------------ 951 START 952 #LM=0 #RM=0 GOSUB 50-149 953 PF0 954 <> S0Y 955 << S:DI.(18)-D.I(18)/D.I-DI.; Y:=G/=G; S1 S2 W07 WS0 956 >> SX SX W07 957 REP*99 958 << S:R(19)-R(19); Y:=G/=G; SX SX W07 959 >> SX SX W07 960 REPEND 961 MS C GESTRICK IN ABZUGSWALZE 962 GOTO 957 963 END 999 <> S0 W0 1100 ..TT+*OOOO..TT..... 1102 H...AHHHHH......... 1104 ..YYHAIIIIAAYYAAAAA 1106 H...AHHHHHHH....... 1108 HHWH........WH..... 1110 ..YYAAAAAAAAYYAAAAA 1112 HHWH........WH..... 1114 ..TT..+*OOOOTT..... 1116 H.....AHHHHH....... 1118 ..YYAAHAIIIIYYAAAAA 1120 H...AHHHHHHH....... 1122 HHWH........WH..... 1124 ..YYAAAAAAAAYYAAAAA 1126 HHWH........WH..... 1128 ..YYAAAAAAAAYYAAAAA 1130 HHWH........WH..... 1132 ..YYAAAAAAAAYYAAAAA 1134 HHWH........WH..... 1136 ..TT++++++++TT+++++ 1138 HHWH........WH.....