1 C CMS440:6.ANFANG_2X1_VF (10.01.95) 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 18 C RS19=1 GUMMIFADEN/ELASTIC THREAD/FIL ELASTIC 19 C #56 #57 BELEGT/USED/OCCUPE 20 C #51-#52= ANFANGSBREITE/START WIDTH/LARGEUR DE DEPART 21 C #53 #54= V-AUSSCHNITT/V-NECK/COL DE V 23 NP1=10.0 C NETZ/SET UP/RESEAU 24 NP2=11.0 C SCHLAUCH/TUBULAR/TUBULAIRE 25 NP3=11.5 C 2X1 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=10.0 NP19=11.0 C SAUBERSTRICKEN 40 START 47 PF0 48 WM=10 49 MSEC=1.0 50 YG1:2=V 8=D/1=S 3F=G 6F=G 7=E; 53 Y-1A:K20-12; Y-2A:K12-20; 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) 2=V ANFANGSREIHEN 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 JA1= 102 F1= 104 PA:; 106 PM:; 110 SEN1= 112 #51= #52= 113 #53= #54= 114 WMN= 149 C------------------------------ GRUNDPOSITIONEN ENDE ------------ 150 PF0 199 C---------------------------------------------------------------- 200 F:ANFANG-2X1-VF; 299 END 300 C------------------------------ VF-ANFANG ----------------------- 301 FBEG:ANFANG-2X1-VF; 302 IF #LM<#54 IF #RM>#53 IF #RM-#LM>2 F:ZUNEHMEN-V; 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/=G; S1 S2 WM=10 WMI=3 315 >> S:0-R(24)/R-R; Y:=D/=G; SX SX 316 << S:UVSR/R(25)-0; Y:=G; SX SX 317 >> S:U^SD.I.; V0 SX 318 << S:UVSD.I.; VR1 SX 319 >> S:DI.I(22)-DII.(20); Y:=G; SX 320 << S:0-R(21)/DI.I-0; Y:0/=D!; SX SX 321 >> S:0-R/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 PL:; PR:; 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 >> Y:=S!; SX 365 PA:#L:#51:; 366 << S:T(21)-T(21); Y:0; SX WM=0 WMI=0 367 >> S0 WM=4 368 IF#L<#51 #L=#51 369 IF#R>#52 #R=#52 370 FEND 371 C ----------------------------- ZUNEHMEN ------------------------ 372 FBEG:ZUNEHMEN; 373 #LM=0 #RM=0 374 S0Y 375 << S:R(23)-R(23); V0 Y:=G; S1 376 >> S:0-R(24)/R(22)-(22)R; Y:=D/=G; SX SX 377 << S:UVSR/R(25)-0; Y:=G; SX SX 378 >> S:R(22)-R(20)/0-R; Y:=G/0; SX SX 379 << S:R(24)-0; Y:=D!/=S; SX SX 380 >> Y:=S/=V; SX SX 381 PA:; 382 PL:'KLY+'; PR:'.TEP'; PF1 383 IF #R<#52 #R=#R+4 IF #R>#52 #R=#52 384 << S:KLY+AT(24)-0/KLY+A.TP-0; Y:=V/=S; SX SX 385 IF #L>#51 #L=#L-4 IF #L<#51 #L=#51 386 >> S:YA.TEP-0/KY+A.TEP-0;; Y:=S/=V; SX SX 387 IF #L>#51 GOTO 383 388 IF #R<#52 GOTO 383 389 RBEG*RS17 390 << S:R(23)-R(23); Y:=V/=S; SX SX 391 >> Y:=S/=V; SX SX 392 REND 393 << S:R(23)-R(23); Y:=V!/=S; SX SX 394 >> S:R(23)-R(23); Y:=S!; SX 395 PF0 PL:; PR:; 396 FEND 397 C------------------------------ ZUNEHMEN-V --------------------- 398 FBEG:ZUNEHMEN-V; 399 S0Y 401 << S:UVSDI./UVSD.I; V0 S1 S2 W0 ML 402 #56=#LM+1 #57=#RM-1 #LM=0 #RM=0 PL:; PLM:; PRM:; PR:; 403 PA:#56:<.T.+#57>; 404 >> S:A(24)-T(6.0); Y:=D; SX 405 << S:A(24)-+/0-+T(10.0); Y:=D/0; SX SX 406 #LM=#56-1 #RM=#57+1 407 PA:; PL:'KL'; PLM:'EP'; PRM:'KL'; PR:'EP'; 408 >> S0 409 IF #R<#52 #R=#R+2 IF #R>#52 #R=#52 410 << S:APKL(24)-0; Y:=SS; PFSR SX 411 IF #L> #51 #L=#L-2 IF #L<#51 #L=#51 412 IF #RM>#54 #RM<2 IF #RM<#54 #RM=#54 413 >> S:AEPK-0/AEPK-0; Y:=S/=VS; SX PFSL SX 414 IF #R<#52 #R=#R+2 IF #R>#52 #R=#52 415 IF #LM<#53 #LM>2 IF #LM>#53 #LM=#53 416 << S:APKL-0/APKL-0; Y:=V/=S; SX PFSR SX 417 IF #LM<#53 GOTO 411 418 IF #RM>#54 GOTO 411 419 IF #L> #51 #L=#L-2 IF #L<#51 #L=#51 420 PLM:; PRM:; #LM=#53 #RM=#54 421 >> S:AEPK-0/AEPK-0; Y:=SH/=V; SX PFSL SX 422 IF #R<#52 #R=#R+2 IF #R>#52 #R=#52 423 << S:APKL-0/APKLE-0; Y:=VH/=S; SX PFS SX 424 IF #L> #51 #L=#L-2 IF #L<#51 #L=#51 425 >> S:AEPK-0/AEPKL-0; Y:=S/=V; SX SX 426 IF #L>#51 GOTO 422 427 IF #R<#52 GOTO 422 428 PF0 PL:; PR:; PLM:; PRM:; #LM=0 #RM=0 429 RBEG*RS17 430 << S:R(23)-R(23); Y:=V/=S; SX SX WM=5 431 >> Y:=S/=V; SX SX 432 REND 433 << S:R-R; Y:=V!/=S; SX SX 434 >> Y:=S!; SX 435 FEND 950 C------------------------------ SAUBERSTRICKEN ------------------ 951 START 952 #LM=0 #RM=0 GOSUB 50-149 W+0 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