*** WEAVE PROCESSOR 64$G *** COPYRIGHT GARY GREENBERG[( BEGUN 7/5/86h2808,225<"WEAVE PROCESSOR DEVELOPS FOUR HARNESS"F" WEAVES ON A COLOR MONITOR."P"IT DETERMINES THE VISIBLE COLOR"Z" AT EACH CROSSING OF 'WARP' (VERTICAL)"@d" AND 'FILLER' (HORIZONTAL) THREADS."kn"EACH DEVELOPED DESIGN CAN BE STORED"x" TO DISK AND RECALLED FOR MORE EDITING"" OR FOR APPLICATION TO NEW PATTERNS"" WITH DIFFERENT CROSSING THREADS.""WRITTEN AND SUBMITTED BY GARY GREENBERG."L" THOUGH PERMISSION IS GRANTED FOR USE,"y" COPYRIGHT IS RETAINED AND COMMERCIAL"" USE WITHOUT MY WRITTEN CONSENT"" IS FORBIDDEN. NOVEMBER 1986.""CONTACT ME ON GENIE OR BBS COMTEL 64"(" 'TOXDOC' 813-989-9128"J"THE PROGRAM IS MENU DRIVEN.v" PUSH SPACE BAR TO DISPLAY CHOICES"A$: A$" "240"CHOICES INCLUDE:""PRINT: THIS OUTPUTS TO PRINTER"" THE PATTERN OF BOTH SETS OF THREADS" " FOR USE AT THE LOOM.? "" THE PRINTED INFORMATION INCLUDES"m ," THE SEQUENCE OF HARNESSES FOR SET-UP" 6" AND WEAVE. THE COLOR, BY LETTERCODE" @" AND THE ACTUAL THREAD PATTERN" J" TO CHECK THE DEVELOPING WEAVE."!T"WARP AND FILLER:"5!^" FOR RE-SELECTION OF COLOR AND PATTERN"^!h" OF VERTICAL AND HORIZ THREADS."w!r"SAVE AND LOAD:!|" DISK FILE AND PATTERN STORAGE."!"BACKGROUND CHANGES THE SCREEN COLOR,"!" FOR BETTER CONTRAST AND VISIBILITY."$""REVERSE 'FLIPS' THE FABRIC OVER"G"" TO SEE THE OPPOSITE SIDE."r""NORMAL REQUESTS REGULAR DISPLAY.""" PUSH SPACE BAR TO START": A$: A$" "440"" CO$(I) IS COLOR SPECTRUM"" AX%(A,B,C) IS MARGIN DEFINITION# A TELLS X VS Y3# B TELLS COLOR VS HARNESS CODEV# C TELLS DISTANCE FROM ORIGIN\#l#""(142);# 53269,0: POKE808,239#& NO SPRITES: NO STOP:#0 CO$(15),AX%(1,1,79),PL$(15),S$(35),CL$(15)#:X$"-":Y$"":BK. $D53280,15:53281,15:"";/$N****************************v$X ASSIGNS COLOR CODES FOR PRINTER OUTPUT AND COLORS TO CHR$ VALUES$b SUBSCRIPT VALUE IS ONE LESS$l$vI.15$J:CO$(I)(J)$CL$(I)(I65)$ I% 5,144,155,152,144,129,156,154,31,151,159,153,30,149,158,150,28(%CD$""4% I.8N%CD$CD$CO$(I)" "V% Ic% I915~%CD$CD$CO$(I)" "% I%CD$CD$""%CE$"1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16"%CF$"COLOR: PREV NEW ][ PREV NEW :HARNESS"*& RI$""\&BL$" "o& UP$""&* *****************************&4 HARNESS CODES FOR WARP & FILL&> I. 14&HPL$(I)""&RJ.3'\A$" ":(I1 2J) A$((J1),1)'fPL$(I)PL$(I)A$''pJ:IM'z *******************************k' DUMMY COLORS ASSIGNMENT' SUBSCRIPT VALUE IS ONE LESS... VARIABLE VALUE IS ACTUAL' I. 35 4'AX%(.,.,I)7'AX%(.,.,I1)9'AX%(.,.,I2)7(AX%(.,.,I3)9(AX%(1,.,I)7*(AX%(1,.,I1)9=(AX%(1,.,I2)7P(AX%(1,.,I3)9i( ******************( HARNESS ASSIGNMENT(AX%(.,1,I)1(AX%(.,1,I1)2(AX%(.,1,I2)4($AX%(.,1,I3)8(.AX%(1,1,I)1(8AX%(1,1,I1)2)BAX%(1,1,I2)4)LAX%(1,1,I3)8)V I2)` I11 18 2P)jAX%(1,1,I)5:AX%(.,.,I)8s)tAX%(1,1,I1)10:AX%(.,.,I1)2{)~ I) I18 36 2)AX%(1,.,I)8)AX%(1,.,I1)2) I)"";: I. 3:KI:1360: (BL$,4) Z$;: I) I. 17 * J. 35)*S$(J)CO$(AX%(.,.,I)1)X$e*(AX%(.,1,J) AX%(1,1,I)) S$(J)CO$(AX%(1,.,J)1)Y$m* J*Z$CO$(AX%(.,.,I)1)PL$(AX%(1,1,I)1)* Z$"";* J. 35*  S$(J);* J*"";*( I*21460 +< *******************************K+F ASSIGN TOP COLORS AND HARNESS PATTERNS FOR SCREEN DISPLAYU+PZ$""b+Z L.35m+dC$" "+n (AX%(.,1,L) (2K)) C$CO$(AX%(1,.,L)1)((K1),1)+xZ$Z$C$+ L++ ****************, * MENU CHOICES * , ****************V, "CHOOSE PRINT WARP FILLER SAVE LOAD", "BACKGROUND REVERSE NORMAL"(143):"",Z$"": 198,.,X(.), Z$:Z$""1500, Z$"P" 2110, Z$"W" 1630, Z$"F" 1640- Z$"L" 2970%- Z$"S" 2510:- Z$"B" 1600O-" Z$"R" 1960d-, Z$"N" 1200y-6(UP$,2);:1460-@BKBK1: BK16 BKBK16-J 53281,BK:53280,BK-T1500-^A35:B1:1650-hA17:B.-r""-| I. A.CAX%(B,.,I). BL$: CF$: CD$:CE$5. (UP$,4) BL$ ""d. I1:"" (RI$,7) CO$(C1) " " C " ";y.K%.:198,.: K%. K% 1740.1790.K%16 K%0 ""(RI$,11);:1780."BAD COLOR CHOICE".UT1000:3290:"" BL$ ""/1690(/AX%(B,.,I)K%: CO$(K%1) "  "1/M%.\/ "" (RI$,20) PL$(AX%((1B),1,I)1);/ ******************************/ ASSIGN HARNESS PATTERN, DEFAULT IS PREVIOUS VERSION/&K%.:198,.: K%/0 K%4 K%. 18700:"BAD HARNESS NUMBER":UT1000:329040D""BL$ (UP$,7):1670D0NK%.1920Y0XM%M%(2(K%1))0bAX%((1B),1,I)M%:""(RI$,24)(BL$,9)0l "" (RI$,26) PL$(M%1) " ";0v18300 I0"";:14600 ******************************-1 REVERSE FABRIC (FLIPPED IN SEQUENCE AND TURNED OVER)71"";K1 I17 . 1Z1 J. 35y1S$(J)CO$(AX%(1,.,J)1)Y$1(AX%(.,1,J) AX%(1,1,I)) S$(J)CO$(AX%(.,.,I)1)X$1 J1Z$CO$(AX%(.,.,I)1)PL$(AX%(1,1,I)1)1 Z$"";2 J. 35:S$(J);: J2"";"2  IL2 I. 3:KI:1360: "FLIP" Z$;: IV2 1460m2* ****************24 PRINT TO PRINTER2> 4,4,02H4,"THE COLOR CODE USED IN THIS PRINT-OUT IS AS FOLLOWS:2R4," A WHITE I DARK BLUE"/3\4," B BLACK J DARK CYAN"a3f4," C LIGHT GREY K LIGHT CYAN"3p4," D MEDIUM GREY L LIGHT GREEN"3z4," E DARK GREY M DARK GREEN"34," F DARK PURPLE N BROWN"!44," G LIGHT PURPLE O YELLOW"L44," H LIGHT BLUE P RED"S44c44,(BL$,5)r4 I. 3544,CL$(AX%(1,.,I)1);4 I444 I. 3:KI:2420:4,5) Z$: I4 I. 174 J. 354S$(J)X$5 (AX%(.,1,J) AX%(1,1,I)) S$(J)Y$5 J75 Z$PL$(AX%(1,1,I)1)T5$ 4,CL$(AX%(.,.,I)1)Z$;o5. J. 35:4,S$(J);:v58 4~5B I5L 45V 14605` ******************************5j ASSIGN TOP ROW TO PRINTED VERSION WARP5t Z$""5~ J.356 C$" "/6 (AX%(.,1,J) (2K)) C$((K1),1)<6 Z$Z$C$D6 JJ6 b6 *****************z6 FILE SAVE SECTION6 " FILE SAVE ROUTINE:6 " WARP (VERT) OR FILLER (HORIZ)?"6 Z$"": 198,.6 Z$6 A%.: 198,.7 "WHICH DISK DRIVE: 8 OR 9";A%=7 A%8 A%9 "";:2560g7 (Z$,1) "W" Z$"WARP":K1:26107 (Z$,1) "F" Z$"FILLER":K.:26107( "BAD FILE SAVE INFORMATION":UT1000:3290:251072 "ENTER A 12 (OR LESS) CHARACTER FILE NAME"8< "ONE FUNCTION OF THE PROGRAM"G8F " IS TO SWAP WARP AND FILLER FILES,"s8P "INCLUDE A REMINDER SUFFIX (.V OR .H)"8Z " BUT NO COMMAS, QUOTES OR COLONS."8d " ------------"8n (BL$,6);: A$8x "SAVING "Z$" THREADS ON DRIVE"A% 9 "AS FILE "A$""59 " OKAY";B$: (B$,1)"Y" 2510W9 A$"0:"((A$".WVP,S,W"),20)l9 2: 2,A%,8,(A$)9 15: 15,A%,159 29109 OO 2:15:25109 I. 359 2,AX%(K,.,I):2,AX%(K,1,I)9 I9 29109 OO 2:15:2510: 2:2:150: " "Z$" THREADS' PATTERN SAVED "O: " AS "(A$,3,(A$)6): A$"": " WANT TO SAVE THE OTHER THREADS";A$:" (A$,1)"Y" 1460:, Z$"FILLER" Z$"WARP":K1: Z$"FILLER":K.:6 "":@ 2610:J *******************;T DISK ERROR CHECKING';^ OO.:O$"";;h 15,OO,O$,O1,O2n;r OO "DISK ERROR!! #"OO,O$:UT1000:3290t;| ; *****************************; THIS IS THE FILE LOAD SECTION; " FILE LOAD ROUTINE:< " WARP (VERT) OR FILLER< Z$"": 198,.< Z$/< A%.: 198,.S< "WHICH DISK DRIVE: 8 OR 9";A%}< (Z$,1) "W" Z$"WARP":K1:3060< (Z$,1) "F" Z$"FILLER":K.:3060< 2970< "ENTER THE FILE NAME."< " ------------"< " ";A$&= "LOADING "Z$" THREADS ON DRIVE"A%== " AS FILE "A$""g=& " OKAY";B$: (B$,1)"Y" 2970=0 A$"0:"((A$".WVP,S,R"),20)=: 2: 2,A%,8,(A$)=D 15: 15,A%,15=N 2910=X OO 2:15:2970>b "LOADING "Z$" THREADS' PATTERN AS "(A$,(A$)4)"">l I. 35=>v 2,AX%(K,.,I):2,AX%(K,1,I)E> IO> 2910g> OO 2:15:2970r> 2:15> " "Z$" THREADS' PATTERN LOADED FROM "(A$,(A$)4)> A$"": "DO YOU WANT TO LOAD THE OTHER THREADS";A$? (A$,1)"Y" 14605? (Z$,1)"F" Z$"WARP":K1: Z$"FILLER":K.?? 3060S? OO. UT::Y?