1 C CMS402-4.ANFANG_SCHL_VF (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= SCHLAUCH RAPPORT/TUBULAR CYCLE/CYCLE TUBULAIRE 17 C RS17= ZUNAHMEREIHEN/WIDENING ROWS/RANGEES DE AUGMENTER 18 C #21 #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=12.5 C RAPPORT SCHLAUCH/TUBULAR CYCLE/CYCLE TUBULAIRE 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; 51 YG2:8=D/1=S 3F=G 6F=G; 54 YD8=54-10 55 YD7=12-46 56 YD6= 8-16 57 YD5=22-28 58 YD4=28-22 59 YD3=14- 8 60 YD2=36-36 61 YD1=42-42 64 C-------------------------------I-------------------------------I 65 C LINKS LEFT GAUCHE RECHTS RIGHT DROITE I 66 C-------------------------------I-------------------------------I 67 C (8) 8 TRENNFADEN I I 68 C (7) I I 69 C (6) I 6 GRUNDFARBE I 70 C (5) I I 71 C (4) I I 72 C (3) I 3 GRUNDFARBE I 73 C (2) I I 74 C (1) I 1 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 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 #53= #54= 114 C WMN= 149 C------------------------------ GRUNDPOSITIONEN ENDE ------------ 150 PF0 199 C---------------------------------------------------------------- 200 F:ANFANG-SCHL-VF; 299 END 300 C------------------------------ VF-ANFANG ----------------------- 301 FBEG:ANFANG-SCHL-VF; 302 IF #LM<#54 IF #RM>#53 IF #RM-#LM>2 F:>>-UMHAENGEN-<<; 303 IF #L=#51 IF #R=#52 F:ANFANG-SCHLAUCH; GOTO FEND 304 IF #L<=#51 IF #R>=#52 F:ABWERFEN; F:ANFANG-SCHLAUCH; GOTO FEND 305 IF #L>=#51 IF #R<=#52 F:ZUNEHMEN; F:ANFANG-SCHLAUCH; GOTO FEND 306 IF #L<>#51 IF #R<>#52 F:ABWERFEN; F:ZUNEHMEN; F:ANFANG-SCHLAUCH; 307 FEND 310 C------------------------------ ANFANG-SCHLAUCH ----------------- 311 FBEG:ANFANG-SCHLAUCH; 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:D.I(20)-R(22)/R(22)-0; Y:=S!/0;V0 SX SX 318 << S:0-R/R(1)-R(1); Y:=D!/=G; SX SX 319 >> S:R(2)-0/0-R(2); Y:=G; SX SX 320 RBEG*RS1 321 << S:R(3)-0/0-R(3); Y:=G; SX SX 322 >> SX SX 323 REND 324 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 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