10-01-88/RAGLAN

Home » CEEFAX disks » telesoftware4.adl » 10-01-88/RAGLAN

10-01-88/RAGLAN

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware4.adl
Filename:	10-01-88/RAGLAN
Read OK:	✔
File size:	11CD bytes
Load address:	FFFF1A00
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_05_04_D-MU05_04.ssd » RAGLAN
CEEFAX disks » telesoftware4.adl » 10-01-88/RAGLAN

File contents

   10REM RAGLAN
   20REM by Kendall Down
   30REM (c) 1987 The Micro User
   40MODE1:PROCinit:ONERRORVDU3:MODE7:END
   50CLS:PROCscreen:PROCback:END
   60DEFPROCscreen:VDU19,1,4;0;19,3,3;0;
   70MOVE10,10:DRAW744,10:DRAW744,1014:DRAW10,1014:DRAW10,10
   80FORi%=0TO(998/yscale%)STEPs%:GCOL0,3:MOVE0,20+i%*yscale%:DRAW10,20+i%*yscale%:GCOL0,1:DRAW744,20+i%*yscale%:GCOL0,3:DRAW754,20+i%*yscale%:NEXT
   90FORi%=0TO(714/xscale%)STEPs%:GCOL0,3:MOVEtab%+i%*xscale%,0:DRAWtab%+i%*xscale%,10:GCOL0,1:DRAWtab%+i%*xscale%,1014:GCOL0,3:DRAWtab%+i%*xscale%,1024:NEXT
  100VDU24,14;14;738;1004;:ENDPROC
  110DEFPROCgrid:GCOL0,1:FORi%=0TO(998/yscale%)STEPs%:MOVE10,20+i%*yscale%:DRAW744,20+i%*yscale%:NEXT:FORi%=0TO(714/xscale%)STEPs%:MOVEtab%+i%*xscale%,10:DRAWtab%+i%*xscale%,1014:NEXT:ENDPROC
  120DEFPROCmirror:MOVE(m%+(m%-X%(D%-1))),Y%(D%-1):FORi%=D%TO0STEP-1:DRAW(m%+(m%-X%(i%))),Y%(i%):NEXT:ENDPROC
  130DEFPROCback:VDU28,24,31,39,0:COLOUR129:CLS:COLOUR3:PRINT"Scale-1:";s%" "s$:VDU28,24,31,39,1:INPUT''"Chest size:"size%:base=INT(size%+(size%*.05265))/2*xscale%
  140m%=tab%+(base DIV2):X%(0)=m%:Y%(0)=20:X%(1)=tab%:Y%(1)=20:MOVEX%(0),Y%(0):DRAWX%(1),Y%(1)
  150m%=tab%+(base DIV2):INPUT'"Rib length:"rib:X%(2)=tab%:Y%(2)=20+(rib*yscale%):DRAWX%(2),Y%(2)
  160INPUT'"Length to"'"underarm:"under:X%(3)=tab%:Y%(3)=20+(under*yscale%):DRAWX%(3),Y%(3)
  170castoff=(size%/57)*(xscale%):X%(4)=tab%+castoff:Y%(4)=20+(under*yscale%):DRAWX%(4),Y%(4)
  180INPUT'"Length to"'"neck:"total:stitches%=((size%+2)/2)*spi:top%=stitches%/PI+stitches%/size%:X%(5)=tab%+INT((((stitches%-top%)/2)/spi)*xscale%):Y%(5)=20+total*yscale%:X%(6)=m%:Y%(6)=20+total*yscale%
  190DRAWX%(5),Y%(5):DRAWX%(6),Y%(6):D%=6:PROCmirror
  200PROCpattern("BACK",stitches%,tab%+INT((((stitches%-top%)/2)/spi)*xscale%)+4,20+total*yscale%):CLG:PROCgrid:GCOL0,3:PROCdrawback:COLOUR3:PRINT"Use * and ? keysto draw neckline<RETURN> to end"
  210x%=tab%+(base/2):s%=tab%+INT((((stitches%-top%)/2)/spi)*xscale%)+8:e%=tab%+base-INT((((stitches%-top%)/2)/spi)*xscale%)-8:y%=20+total*yscale%:y1%=y%:GCOL4,2
  220MOVEs%,y%:DRAWx%,y1%:DRAWe%,y%:GCOL3,2:REPEAT:MOVEs%,y%:DRAWx%,y1%:DRAWe%,y%:g%=GET:MOVEs%,y%:DRAWx%,y1%:DRAWe%,y%:IFg%=58y1%=y1%+4 ELSEIFg%=47y1%=y1%-4
  230UNTILg%=13:GCOL0,3:MOVEs%,y%:DRAWx%,y1%:DRAWe%,y%:D%=7:X%(6)=s%:Y%(6)=y%:X%(7)=m%:Y%(7)=y1%
  240PROCpattern("FRONT",stitches%,tab%+INT((((stitches%-top%)/2)/spi)*xscale%)+4,20+total*yscale%)
  250D%=0:CLG:PROCgrid:COLOUR3:INPUT"Wrist to"'"shoulder";arm:sbase=INT((stitches%/PI)+(spi*2.7))*4:base=base*.75:stitches%=stitches%*.75:t%=tab%+(base/2)-(sbase/2):m%=tab%+(base/2):X%(0)=m%:Y%(0)=20:X%(1)=t%:Y%(1)=20
  260GCOL0,3:MOVEX%(0),Y%(0):DRAWX%(1),Y%(1):X%(2)=t%:Y%(2)=20+rib*yscale%:DRAWX%(2),Y%(2):t%=tab%+(base/2)-(sbase/2):sunder=arm-(total-under):X%(3)=tab%:Y%(3)=20+sunder*yscale%:DRAWX%(3),Y%(3)
  270X%(4)=tab%+castoff:Y%(4)=20+sunder*yscale%:DRAWX%(4),Y%(4)
  280stop%=(sbase/22.5):X%(5)=tab%+INT((((stitches%-stop%)/2)/spi)*xscale%):Y%(5)=20+arm*yscale%:DRAWX%(5),Y%(5)
  290X%(6)=m%:Y%(6)=20+arm*yscale%:DRAWX%(6),Y%(6):D%=6:PROCmirror
  300PROCpattern("SLEEVE",sbase/4,tab%+INT((((stitches%-stop%)/2)/spi)*xscale%)+4,20+arm*yscale%):ENDPROC
  310DEFPROCpattern(a$,b%,t%,tp%):PRINT'"Printout? Y/N";:g%=GETAND223:CLG:GCOL0,3:VDU29,0;0;:PROCdrawback:CLS:k%=TRUE:IFg%=89VDU2,1,27,1,77,1,14:PRINTa$ELSEVDU14
  320FORi%=X%(1)TOm%+(m%-X%(1))STEP8:MOVEi%,20:DRAWi%,20+(rib*yscale%):NEXT:A%=13:X%=P%MOD256:Y%=P%DIV256:GCOL1,2:COLOUR2:PRINT"Cast on ";b%" stitches, and ";
  330p%=Y%(2)+4:PRINT"work ";INT((p%/yscale%)*(rpi+.5))" rows of rib."'"Continue in pattern ";
  340temp%=(b%*4)-8:FORg%=1TO2:PLOT77,t%,p%:CALL&FFF1:L%=FNleft:R%=FNright:p%=p%+4:NEXT:row%=2:IFR%-L%>temp%PRINT"cast on ";((R%-L%)-temp%)DIV8" stitches, ";ELSEIFR%-L%<temp%PRINT"cast off ";(temp%-(R%-L%))DIV8" stitches, ";
  350temp%=R%-L%:REPEAT:REPEAT:PLOT77,t%,p%:CALL&FFF1:l%=FNleft:r%=FNright:p%=p%+4:row%=row%+1:UNTILr%-l%<>temp%ORp%+6>tp%:PRINT"and work ";row%" row"+CHR$(115*(row%>1)*-1)" in pattern.":cap%=0
  360IFABS((l%-L%)DIV4)>1PROCdef1 ELSEPROCdef2
  370IFl%>L%PRINTc$(0)of$;(l%-L%)DIV4" stitch"f$(ABS(((l%-L%)/4)>1))" on the left, ";:cap%=1 ELSEIFl%<L%PRINTc$(2)on$;(L%-l%)DIV4" stitch"f$(ABS(((L%-l%)/4)>1))" on the left, ";:cap%=1
  380IFABS((r%-R%)DIV4)>1PROCdef1 ELSEPROCdef2
  390IFr%<R%PRINTc$(cap%)of$;(R%-r%)DIV4" stitch"f$(ABS(((R%-r%)/4)>1))" on the right, ";ELSEIFr%>R%PRINTc$(cap%+2)on$;(r%-R%)DIV4" stitch"f$(ABS(((r%-R%)/4)>1))" on the right, ";
  400temp%=r%-l%:L%=l%:R%=r%:row%=0:IFp%>1000IFk%=TRUE CLG:VDU29,0;-(yscale%*12);:PROCdrawback:k%=FALSE
  410UNTILp%+6>tp%:PLOT77,t%,p%:CALL&FFF1:l%=FNleft:r%=FNright:PRINT"Work one row in pattern and cast off the remaining ";(temp%DIV4)+2" stitches."'':VDU3,15:PROCdef1:ENDPROC
  420DEFFNleft:=?P%+(P%?1)*256
  430DEFFNright:=P%?4+(P%?5)*256
  440DEFPROCdrawback:MOVEX%(0),Y%(0):FORi%=0TOD%:DRAWX%(i%),Y%(i%):NEXT:PROCmirror:ENDPROC
  450DEFPROCdef1:c$(0)="C":c$(1)="c":c$(2)="C":c$(3)="c":on$="ast on ":of$="ast off ":ENDPROC
  460DEFPROCdef2:c$(0)="De":c$(1)="de":c$(2)="In":c$(3)="in":on$="crease ":of$="crease ":ENDPROC
  470DEFPROCinit:PRINTTAB(0,10)"Inches or Centimetres? I/C";:REPEAT:g%=GET AND 223:UNTILg%=67 OR g%=73:IFg%=73 s$="inch":s%=1 ELSE s$="cm.":s%=5
  480PRINT''"Number of stitches per "s$;:INPUTspi:PRINT'"Number of rows per "s$;:INPUTrpi:xscale%=spi*4:yscale%=rpi*4:tab%=10+xscale%
  490mx%=10:DIMX%(mx%),Y%(mx%),P% 8,f$(1),c$(3):N%=TRUE:PROCdef1:ENDPROC


� RAGLAN
� by Kendall Down
� (c) 1987 The Micro User
(�1:�init:��3:�7:�
2�:�screen:�back:�
< ��screen:�19,1,4;0;19,3,3;0;
F,�10,10:�744,10:�744,1014:�10,1014:�10,10
Pt�i%=0�(998/yscale%)�s%:�0,3:�0,20+i%*yscale%:�10,20+i%*yscale%:�0,1:�744,20+i%*yscale%:�0,3:�754,20+i%*yscale%:�
Z~�i%=0�(714/xscale%)�s%:�0,3:�tab%+i%*xscale%,0:�tab%+i%*xscale%,10:�0,1:�tab%+i%*xscale%,1014:�0,3:�tab%+i%*xscale%,1024:�
d�24,14;14;738;1004;:�
n���grid:�0,1:�i%=0�(998/yscale%)�s%:�10,20+i%*yscale%:�744,20+i%*yscale%:�:�i%=0�(714/xscale%)�s%:�tab%+i%*xscale%,10:�tab%+i%*xscale%,1014:�:�
xR��mirror:�(m%+(m%-X%(D%-1))),Y%(D%-1):�i%=D%�0�-1:�(m%+(m%-X%(i%))),Y%(i%):�:�
����back:�28,24,31,39,0:�129:�:�3:�"Scale-1:";s%" "s$:�28,24,31,39,1:�''"Chest size:"size%:base=�(size%+(size%*.05265))/2*xscale%
�Um%=tab%+(base �2):X%(0)=m%:Y%(0)=20:X%(1)=tab%:Y%(1)=20:�X%(0),Y%(0):�X%(1),Y%(1)
�Wm%=tab%+(base �2):�'"Rib length:"rib:X%(2)=tab%:Y%(2)=20+(rib*yscale%):�X%(2),Y%(2)
�S�'"Length to"'"underarm:"under:X%(3)=tab%:Y%(3)=20+(under*yscale%):�X%(3),Y%(3)
�Ycastoff=(size%/57)*(xscale%):X%(4)=tab%+castoff:Y%(4)=20+(under*yscale%):�X%(4),Y%(4)
���'"Length to"'"neck:"total:stitches%=((size%+2)/2)*spi:top%=stitches%/�+stitches%/size%:X%(5)=tab%+�((((stitches%-top%)/2)/spi)*xscale%):Y%(5)=20+total*yscale%:X%(6)=m%:Y%(6)=20+total*yscale%
�*�X%(5),Y%(5):�X%(6),Y%(6):D%=6:�mirror
ȩ�pattern("BACK",stitches%,tab%+�((((stitches%-top%)/2)/spi)*xscale%)+4,20+total*yscale%):�:�grid:�0,3:�drawback:�3:�"Use * and ? keysto draw neckline<RETURN> to end"
ҙx%=tab%+(base/2):s%=tab%+�((((stitches%-top%)/2)/spi)*xscale%)+8:e%=tab%+base-�((((stitches%-top%)/2)/spi)*xscale%)-8:y%=20+total*yscale%:y1%=y%:�4,2
�r�s%,y%:�x%,y1%:�e%,y%:�3,2:�:�s%,y%:�x%,y1%:�e%,y%:g%=�:�s%,y%:�x%,y1%:�e%,y%:�g%=58y1%=y1%+4 ��g%=47y1%=y1%-4
�O�g%=13:�0,3:�s%,y%:�x%,y1%:�e%,y%:D%=7:X%(6)=s%:Y%(6)=y%:X%(7)=m%:Y%(7)=y1%
�]�pattern("FRONT",stitches%,tab%+�((((stitches%-top%)/2)/spi)*xscale%)+4,20+total*yscale%)
��D%=0:�:�grid:�3:�"Wrist to"'"shoulder";arm:sbase=�((stitches%/�)+(spi*2.7))*4:base=base*.75:stitches%=stitches%*.75:t%=tab%+(base/2)-(sbase/2):m%=tab%+(base/2):X%(0)=m%:Y%(0)=20:X%(1)=t%:Y%(1)=20
��0,3:�X%(0),Y%(0):�X%(1),Y%(1):X%(2)=t%:Y%(2)=20+rib*yscale%:�X%(2),Y%(2):t%=tab%+(base/2)-(sbase/2):sunder=arm-(total-under):X%(3)=tab%:Y%(3)=20+sunder*yscale%:�X%(3),Y%(3)
;X%(4)=tab%+castoff:Y%(4)=20+sunder*yscale%:�X%(4),Y%(4)
jstop%=(sbase/22.5):X%(5)=tab%+�((((stitches%-stop%)/2)/spi)*xscale%):Y%(5)=20+arm*yscale%:�X%(5),Y%(5)
";X%(6)=m%:Y%(6)=20+arm*yscale%:�X%(6),Y%(6):D%=6:�mirror
,]�pattern("SLEEVE",sbase/4,tab%+�((((stitches%-stop%)/2)/spi)*xscale%)+4,20+arm*yscale%):�
6x��pattern(a$,b%,t%,tp%):�'"Printout? Y/N";:g%=��223:�:�0,3:�29,0;0;:�drawback:�:k%=�:�g%=89�2,1,27,1,77,1,14:�a$��14
@~�i%=X%(1)�m%+(m%-X%(1))�8:�i%,20:�i%,20+(rib*yscale%):�:A%=13:X%=P%�256:Y%=P%�256:�1,2:�2:�"Cast on ";b%" stitches, and ";
JWp%=Y%(2)+4:�"work ";�((p%/yscale%)*(rpi+.5))" rows of rib."'"Continue in pattern ";
T�temp%=(b%*4)-8:�g%=1�2:�77,t%,p%:�&FFF1:L%=�left:R%=�right:p%=p%+4:�:row%=2:�R%-L%>temp%�"cast on ";((R%-L%)-temp%)�8" stitches, ";��R%-L%<temp%�"cast off ";(temp%-(R%-L%))�8" stitches, ";
^�temp%=R%-L%:�:�:�77,t%,p%:�&FFF1:l%=�left:r%=�right:p%=p%+4:row%=row%+1:�r%-l%<>temp%�p%+6>tp%:�"and work ";row%" row"+�(115*(row%>1)*-1)" in pattern.":cap%=0
h�((l%-L%)�4)>1�def1 ��def2
r��l%>L%�c$(0)of$;(l%-L%)�4" stitch"f$(�(((l%-L%)/4)>1))" on the left, ";:cap%=1 ��l%<L%�c$(2)on$;(L%-l%)�4" stitch"f$(�(((L%-l%)/4)>1))" on the left, ";:cap%=1
|�((r%-R%)�4)>1�def1 ��def2
���r%<R%�c$(cap%)of$;(R%-r%)�4" stitch"f$(�(((R%-r%)/4)>1))" on the right, ";��r%>R%�c$(cap%+2)on$;(r%-R%)�4" stitch"f$(�(((r%-R%)/4)>1))" on the right, ";
�Vtemp%=r%-l%:L%=l%:R%=r%:row%=0:�p%>1000�k%=� �:�29,0;-(yscale%*12);:�drawback:k%=�
���p%+6>tp%:�77,t%,p%:�&FFF1:l%=�left:r%=�right:�"Work one row in pattern and cast off the remaining ";(temp%�4)+2" stitches."'':�3,15:�def1:�
�ݤleft:=?P%+(P%?1)*256
�ݤright:=P%?4+(P%?5)*256
�?��drawback:�X%(0),Y%(0):�i%=0�D%:�X%(i%),Y%(i%):�:�mirror:�
�Q��def1:c$(0)="C":c$(1)="c":c$(2)="C":c$(3)="c":on$="ast on ":of$="ast off ":�
�T��def2:c$(0)="De":c$(1)="de":c$(2)="In":c$(3)="in":on$="crease ":of$="crease ":�
�q��init:�0,10)"Inches or Centimetres? I/C";:�:g%=� � 223:�g%=67 � g%=73:�g%=73 s$="inch":s%=1 � s$="cm.":s%=5
�t�''"Number of stitches per "s$;:�spi:�'"Number of rows per "s$;:�rpi:xscale%=spi*4:yscale%=rpi*4:tab%=10+xscale%
�9mx%=10:�X%(mx%),Y%(mx%),P% 8,f$(1),c$(3):N%=�:�def1:�
�

00000000  0d 00 0a 0c f4 20 52 41  47 4c 41 4e 0d 00 14 15  |..... RAGLAN....|
00000010  f4 20 62 79 20 4b 65 6e  64 61 6c 6c 20 44 6f 77  |. by Kendall Dow|
00000020  6e 0d 00 1e 1d f4 20 28  63 29 20 31 39 38 37 20  |n..... (c) 1987 |
00000030  54 68 65 20 4d 69 63 72  6f 20 55 73 65 72 0d 00  |The Micro User..|
00000040  28 16 eb 31 3a f2 69 6e  69 74 3a ee 85 ef 33 3a  |(..1:.init:...3:|
00000050  eb 37 3a e0 0d 00 32 15  db 3a f2 73 63 72 65 65  |.7:...2..:.scree|
00000060  6e 3a f2 62 61 63 6b 3a  e0 0d 00 3c 20 dd f2 73  |n:.back:...< ..s|
00000070  63 72 65 65 6e 3a ef 31  39 2c 31 2c 34 3b 30 3b  |creen:.19,1,4;0;|
00000080  31 39 2c 33 2c 33 3b 30  3b 0d 00 46 2c ec 31 30  |19,3,3;0;..F,.10|
00000090  2c 31 30 3a df 37 34 34  2c 31 30 3a df 37 34 34  |,10:.744,10:.744|
000000a0  2c 31 30 31 34 3a df 31  30 2c 31 30 31 34 3a df  |,1014:.10,1014:.|
000000b0  31 30 2c 31 30 0d 00 50  74 e3 69 25 3d 30 b8 28  |10,10..Pt.i%=0.(|
000000c0  39 39 38 2f 79 73 63 61  6c 65 25 29 88 73 25 3a  |998/yscale%).s%:|
000000d0  e6 30 2c 33 3a ec 30 2c  32 30 2b 69 25 2a 79 73  |.0,3:.0,20+i%*ys|
000000e0  63 61 6c 65 25 3a df 31  30 2c 32 30 2b 69 25 2a  |cale%:.10,20+i%*|
000000f0  79 73 63 61 6c 65 25 3a  e6 30 2c 31 3a df 37 34  |yscale%:.0,1:.74|
00000100  34 2c 32 30 2b 69 25 2a  79 73 63 61 6c 65 25 3a  |4,20+i%*yscale%:|
00000110  e6 30 2c 33 3a df 37 35  34 2c 32 30 2b 69 25 2a  |.0,3:.754,20+i%*|
00000120  79 73 63 61 6c 65 25 3a  ed 0d 00 5a 7e e3 69 25  |yscale%:...Z~.i%|
00000130  3d 30 b8 28 37 31 34 2f  78 73 63 61 6c 65 25 29  |=0.(714/xscale%)|
00000140  88 73 25 3a e6 30 2c 33  3a ec 74 61 62 25 2b 69  |.s%:.0,3:.tab%+i|
00000150  25 2a 78 73 63 61 6c 65  25 2c 30 3a df 74 61 62  |%*xscale%,0:.tab|
00000160  25 2b 69 25 2a 78 73 63  61 6c 65 25 2c 31 30 3a  |%+i%*xscale%,10:|
00000170  e6 30 2c 31 3a df 74 61  62 25 2b 69 25 2a 78 73  |.0,1:.tab%+i%*xs|
00000180  63 61 6c 65 25 2c 31 30  31 34 3a e6 30 2c 33 3a  |cale%,1014:.0,3:|
00000190  df 74 61 62 25 2b 69 25  2a 78 73 63 61 6c 65 25  |.tab%+i%*xscale%|
000001a0  2c 31 30 32 34 3a ed 0d  00 64 19 ef 32 34 2c 31  |,1024:...d..24,1|
000001b0  34 3b 31 34 3b 37 33 38  3b 31 30 30 34 3b 3a e1  |4;14;738;1004;:.|
000001c0  0d 00 6e 92 dd f2 67 72  69 64 3a e6 30 2c 31 3a  |..n...grid:.0,1:|
000001d0  e3 69 25 3d 30 b8 28 39  39 38 2f 79 73 63 61 6c  |.i%=0.(998/yscal|
000001e0  65 25 29 88 73 25 3a ec  31 30 2c 32 30 2b 69 25  |e%).s%:.10,20+i%|
000001f0  2a 79 73 63 61 6c 65 25  3a df 37 34 34 2c 32 30  |*yscale%:.744,20|
00000200  2b 69 25 2a 79 73 63 61  6c 65 25 3a ed 3a e3 69  |+i%*yscale%:.:.i|
00000210  25 3d 30 b8 28 37 31 34  2f 78 73 63 61 6c 65 25  |%=0.(714/xscale%|
00000220  29 88 73 25 3a ec 74 61  62 25 2b 69 25 2a 78 73  |).s%:.tab%+i%*xs|
00000230  63 61 6c 65 25 2c 31 30  3a df 74 61 62 25 2b 69  |cale%,10:.tab%+i|
00000240  25 2a 78 73 63 61 6c 65  25 2c 31 30 31 34 3a ed  |%*xscale%,1014:.|
00000250  3a e1 0d 00 78 52 dd f2  6d 69 72 72 6f 72 3a ec  |:...xR..mirror:.|
00000260  28 6d 25 2b 28 6d 25 2d  58 25 28 44 25 2d 31 29  |(m%+(m%-X%(D%-1)|
00000270  29 29 2c 59 25 28 44 25  2d 31 29 3a e3 69 25 3d  |)),Y%(D%-1):.i%=|
00000280  44 25 b8 30 88 2d 31 3a  df 28 6d 25 2b 28 6d 25  |D%.0.-1:.(m%+(m%|
00000290  2d 58 25 28 69 25 29 29  29 2c 59 25 28 69 25 29  |-X%(i%))),Y%(i%)|
000002a0  3a ed 3a e1 0d 00 82 83  dd f2 62 61 63 6b 3a ef  |:.:.......back:.|
000002b0  32 38 2c 32 34 2c 33 31  2c 33 39 2c 30 3a fb 31  |28,24,31,39,0:.1|
000002c0  32 39 3a db 3a fb 33 3a  f1 22 53 63 61 6c 65 2d  |29:.:.3:."Scale-|
000002d0  31 3a 22 3b 73 25 22 20  22 73 24 3a ef 32 38 2c  |1:";s%" "s$:.28,|
000002e0  32 34 2c 33 31 2c 33 39  2c 31 3a e8 27 27 22 43  |24,31,39,1:.''"C|
000002f0  68 65 73 74 20 73 69 7a  65 3a 22 73 69 7a 65 25  |hest size:"size%|
00000300  3a 62 61 73 65 3d a8 28  73 69 7a 65 25 2b 28 73  |:base=.(size%+(s|
00000310  69 7a 65 25 2a 2e 30 35  32 36 35 29 29 2f 32 2a  |ize%*.05265))/2*|
00000320  78 73 63 61 6c 65 25 0d  00 8c 55 6d 25 3d 74 61  |xscale%...Um%=ta|
00000330  62 25 2b 28 62 61 73 65  20 81 32 29 3a 58 25 28  |b%+(base .2):X%(|
00000340  30 29 3d 6d 25 3a 59 25  28 30 29 3d 32 30 3a 58  |0)=m%:Y%(0)=20:X|
00000350  25 28 31 29 3d 74 61 62  25 3a 59 25 28 31 29 3d  |%(1)=tab%:Y%(1)=|
00000360  32 30 3a ec 58 25 28 30  29 2c 59 25 28 30 29 3a  |20:.X%(0),Y%(0):|
00000370  df 58 25 28 31 29 2c 59  25 28 31 29 0d 00 96 57  |.X%(1),Y%(1)...W|
00000380  6d 25 3d 74 61 62 25 2b  28 62 61 73 65 20 81 32  |m%=tab%+(base .2|
00000390  29 3a e8 27 22 52 69 62  20 6c 65 6e 67 74 68 3a  |):.'"Rib length:|
000003a0  22 72 69 62 3a 58 25 28  32 29 3d 74 61 62 25 3a  |"rib:X%(2)=tab%:|
000003b0  59 25 28 32 29 3d 32 30  2b 28 72 69 62 2a 79 73  |Y%(2)=20+(rib*ys|
000003c0  63 61 6c 65 25 29 3a df  58 25 28 32 29 2c 59 25  |cale%):.X%(2),Y%|
000003d0  28 32 29 0d 00 a0 53 e8  27 22 4c 65 6e 67 74 68  |(2)...S.'"Length|
000003e0  20 74 6f 22 27 22 75 6e  64 65 72 61 72 6d 3a 22  | to"'"underarm:"|
000003f0  75 6e 64 65 72 3a 58 25  28 33 29 3d 74 61 62 25  |under:X%(3)=tab%|
00000400  3a 59 25 28 33 29 3d 32  30 2b 28 75 6e 64 65 72  |:Y%(3)=20+(under|
00000410  2a 79 73 63 61 6c 65 25  29 3a df 58 25 28 33 29  |*yscale%):.X%(3)|
00000420  2c 59 25 28 33 29 0d 00  aa 59 63 61 73 74 6f 66  |,Y%(3)...Ycastof|
00000430  66 3d 28 73 69 7a 65 25  2f 35 37 29 2a 28 78 73  |f=(size%/57)*(xs|
00000440  63 61 6c 65 25 29 3a 58  25 28 34 29 3d 74 61 62  |cale%):X%(4)=tab|
00000450  25 2b 63 61 73 74 6f 66  66 3a 59 25 28 34 29 3d  |%+castoff:Y%(4)=|
00000460  32 30 2b 28 75 6e 64 65  72 2a 79 73 63 61 6c 65  |20+(under*yscale|
00000470  25 29 3a df 58 25 28 34  29 2c 59 25 28 34 29 0d  |%):.X%(4),Y%(4).|
00000480  00 b4 c3 e8 27 22 4c 65  6e 67 74 68 20 74 6f 22  |....'"Length to"|
00000490  27 22 6e 65 63 6b 3a 22  74 6f 74 61 6c 3a 73 74  |'"neck:"total:st|
000004a0  69 74 63 68 65 73 25 3d  28 28 73 69 7a 65 25 2b  |itches%=((size%+|
000004b0  32 29 2f 32 29 2a 73 70  69 3a 74 6f 70 25 3d 73  |2)/2)*spi:top%=s|
000004c0  74 69 74 63 68 65 73 25  2f af 2b 73 74 69 74 63  |titches%/.+stitc|
000004d0  68 65 73 25 2f 73 69 7a  65 25 3a 58 25 28 35 29  |hes%/size%:X%(5)|
000004e0  3d 74 61 62 25 2b a8 28  28 28 28 73 74 69 74 63  |=tab%+.((((stitc|
000004f0  68 65 73 25 2d 74 6f 70  25 29 2f 32 29 2f 73 70  |hes%-top%)/2)/sp|
00000500  69 29 2a 78 73 63 61 6c  65 25 29 3a 59 25 28 35  |i)*xscale%):Y%(5|
00000510  29 3d 32 30 2b 74 6f 74  61 6c 2a 79 73 63 61 6c  |)=20+total*yscal|
00000520  65 25 3a 58 25 28 36 29  3d 6d 25 3a 59 25 28 36  |e%:X%(6)=m%:Y%(6|
00000530  29 3d 32 30 2b 74 6f 74  61 6c 2a 79 73 63 61 6c  |)=20+total*yscal|
00000540  65 25 0d 00 be 2a df 58  25 28 35 29 2c 59 25 28  |e%...*.X%(5),Y%(|
00000550  35 29 3a df 58 25 28 36  29 2c 59 25 28 36 29 3a  |5):.X%(6),Y%(6):|
00000560  44 25 3d 36 3a f2 6d 69  72 72 6f 72 0d 00 c8 a9  |D%=6:.mirror....|
00000570  f2 70 61 74 74 65 72 6e  28 22 42 41 43 4b 22 2c  |.pattern("BACK",|
00000580  73 74 69 74 63 68 65 73  25 2c 74 61 62 25 2b a8  |stitches%,tab%+.|
00000590  28 28 28 28 73 74 69 74  63 68 65 73 25 2d 74 6f  |((((stitches%-to|
000005a0  70 25 29 2f 32 29 2f 73  70 69 29 2a 78 73 63 61  |p%)/2)/spi)*xsca|
000005b0  6c 65 25 29 2b 34 2c 32  30 2b 74 6f 74 61 6c 2a  |le%)+4,20+total*|
000005c0  79 73 63 61 6c 65 25 29  3a da 3a f2 67 72 69 64  |yscale%):.:.grid|
000005d0  3a e6 30 2c 33 3a f2 64  72 61 77 62 61 63 6b 3a  |:.0,3:.drawback:|
000005e0  fb 33 3a f1 22 55 73 65  20 2a 20 61 6e 64 20 3f  |.3:."Use * and ?|
000005f0  20 6b 65 79 73 74 6f 20  64 72 61 77 20 6e 65 63  | keysto draw nec|
00000600  6b 6c 69 6e 65 3c 52 45  54 55 52 4e 3e 20 74 6f  |kline<RETURN> to|
00000610  20 65 6e 64 22 0d 00 d2  99 78 25 3d 74 61 62 25  | end"....x%=tab%|
00000620  2b 28 62 61 73 65 2f 32  29 3a 73 25 3d 74 61 62  |+(base/2):s%=tab|
00000630  25 2b a8 28 28 28 28 73  74 69 74 63 68 65 73 25  |%+.((((stitches%|
00000640  2d 74 6f 70 25 29 2f 32  29 2f 73 70 69 29 2a 78  |-top%)/2)/spi)*x|
00000650  73 63 61 6c 65 25 29 2b  38 3a 65 25 3d 74 61 62  |scale%)+8:e%=tab|
00000660  25 2b 62 61 73 65 2d a8  28 28 28 28 73 74 69 74  |%+base-.((((stit|
00000670  63 68 65 73 25 2d 74 6f  70 25 29 2f 32 29 2f 73  |ches%-top%)/2)/s|
00000680  70 69 29 2a 78 73 63 61  6c 65 25 29 2d 38 3a 79  |pi)*xscale%)-8:y|
00000690  25 3d 32 30 2b 74 6f 74  61 6c 2a 79 73 63 61 6c  |%=20+total*yscal|
000006a0  65 25 3a 79 31 25 3d 79  25 3a e6 34 2c 32 0d 00  |e%:y1%=y%:.4,2..|
000006b0  dc 72 ec 73 25 2c 79 25  3a df 78 25 2c 79 31 25  |.r.s%,y%:.x%,y1%|
000006c0  3a df 65 25 2c 79 25 3a  e6 33 2c 32 3a f5 3a ec  |:.e%,y%:.3,2:.:.|
000006d0  73 25 2c 79 25 3a df 78  25 2c 79 31 25 3a df 65  |s%,y%:.x%,y1%:.e|
000006e0  25 2c 79 25 3a 67 25 3d  a5 3a ec 73 25 2c 79 25  |%,y%:g%=.:.s%,y%|
000006f0  3a df 78 25 2c 79 31 25  3a df 65 25 2c 79 25 3a  |:.x%,y1%:.e%,y%:|
00000700  e7 67 25 3d 35 38 79 31  25 3d 79 31 25 2b 34 20  |.g%=58y1%=y1%+4 |
00000710  8b e7 67 25 3d 34 37 79  31 25 3d 79 31 25 2d 34  |..g%=47y1%=y1%-4|
00000720  0d 00 e6 4f fd 67 25 3d  31 33 3a e6 30 2c 33 3a  |...O.g%=13:.0,3:|
00000730  ec 73 25 2c 79 25 3a df  78 25 2c 79 31 25 3a df  |.s%,y%:.x%,y1%:.|
00000740  65 25 2c 79 25 3a 44 25  3d 37 3a 58 25 28 36 29  |e%,y%:D%=7:X%(6)|
00000750  3d 73 25 3a 59 25 28 36  29 3d 79 25 3a 58 25 28  |=s%:Y%(6)=y%:X%(|
00000760  37 29 3d 6d 25 3a 59 25  28 37 29 3d 79 31 25 0d  |7)=m%:Y%(7)=y1%.|
00000770  00 f0 5d f2 70 61 74 74  65 72 6e 28 22 46 52 4f  |..].pattern("FRO|
00000780  4e 54 22 2c 73 74 69 74  63 68 65 73 25 2c 74 61  |NT",stitches%,ta|
00000790  62 25 2b a8 28 28 28 28  73 74 69 74 63 68 65 73  |b%+.((((stitches|
000007a0  25 2d 74 6f 70 25 29 2f  32 29 2f 73 70 69 29 2a  |%-top%)/2)/spi)*|
000007b0  78 73 63 61 6c 65 25 29  2b 34 2c 32 30 2b 74 6f  |xscale%)+4,20+to|
000007c0  74 61 6c 2a 79 73 63 61  6c 65 25 29 0d 00 fa c7  |tal*yscale%)....|
000007d0  44 25 3d 30 3a da 3a f2  67 72 69 64 3a fb 33 3a  |D%=0:.:.grid:.3:|
000007e0  e8 22 57 72 69 73 74 20  74 6f 22 27 22 73 68 6f  |."Wrist to"'"sho|
000007f0  75 6c 64 65 72 22 3b 61  72 6d 3a 73 62 61 73 65  |ulder";arm:sbase|
00000800  3d a8 28 28 73 74 69 74  63 68 65 73 25 2f af 29  |=.((stitches%/.)|
00000810  2b 28 73 70 69 2a 32 2e  37 29 29 2a 34 3a 62 61  |+(spi*2.7))*4:ba|
00000820  73 65 3d 62 61 73 65 2a  2e 37 35 3a 73 74 69 74  |se=base*.75:stit|
00000830  63 68 65 73 25 3d 73 74  69 74 63 68 65 73 25 2a  |ches%=stitches%*|
00000840  2e 37 35 3a 74 25 3d 74  61 62 25 2b 28 62 61 73  |.75:t%=tab%+(bas|
00000850  65 2f 32 29 2d 28 73 62  61 73 65 2f 32 29 3a 6d  |e/2)-(sbase/2):m|
00000860  25 3d 74 61 62 25 2b 28  62 61 73 65 2f 32 29 3a  |%=tab%+(base/2):|
00000870  58 25 28 30 29 3d 6d 25  3a 59 25 28 30 29 3d 32  |X%(0)=m%:Y%(0)=2|
00000880  30 3a 58 25 28 31 29 3d  74 25 3a 59 25 28 31 29  |0:X%(1)=t%:Y%(1)|
00000890  3d 32 30 0d 01 04 b1 e6  30 2c 33 3a ec 58 25 28  |=20.....0,3:.X%(|
000008a0  30 29 2c 59 25 28 30 29  3a df 58 25 28 31 29 2c  |0),Y%(0):.X%(1),|
000008b0  59 25 28 31 29 3a 58 25  28 32 29 3d 74 25 3a 59  |Y%(1):X%(2)=t%:Y|
000008c0  25 28 32 29 3d 32 30 2b  72 69 62 2a 79 73 63 61  |%(2)=20+rib*ysca|
000008d0  6c 65 25 3a df 58 25 28  32 29 2c 59 25 28 32 29  |le%:.X%(2),Y%(2)|
000008e0  3a 74 25 3d 74 61 62 25  2b 28 62 61 73 65 2f 32  |:t%=tab%+(base/2|
000008f0  29 2d 28 73 62 61 73 65  2f 32 29 3a 73 75 6e 64  |)-(sbase/2):sund|
00000900  65 72 3d 61 72 6d 2d 28  74 6f 74 61 6c 2d 75 6e  |er=arm-(total-un|
00000910  64 65 72 29 3a 58 25 28  33 29 3d 74 61 62 25 3a  |der):X%(3)=tab%:|
00000920  59 25 28 33 29 3d 32 30  2b 73 75 6e 64 65 72 2a  |Y%(3)=20+sunder*|
00000930  79 73 63 61 6c 65 25 3a  df 58 25 28 33 29 2c 59  |yscale%:.X%(3),Y|
00000940  25 28 33 29 0d 01 0e 3b  58 25 28 34 29 3d 74 61  |%(3)...;X%(4)=ta|
00000950  62 25 2b 63 61 73 74 6f  66 66 3a 59 25 28 34 29  |b%+castoff:Y%(4)|
00000960  3d 32 30 2b 73 75 6e 64  65 72 2a 79 73 63 61 6c  |=20+sunder*yscal|
00000970  65 25 3a df 58 25 28 34  29 2c 59 25 28 34 29 0d  |e%:.X%(4),Y%(4).|
00000980  01 18 6a 73 74 6f 70 25  3d 28 73 62 61 73 65 2f  |..jstop%=(sbase/|
00000990  32 32 2e 35 29 3a 58 25  28 35 29 3d 74 61 62 25  |22.5):X%(5)=tab%|
000009a0  2b a8 28 28 28 28 73 74  69 74 63 68 65 73 25 2d  |+.((((stitches%-|
000009b0  73 74 6f 70 25 29 2f 32  29 2f 73 70 69 29 2a 78  |stop%)/2)/spi)*x|
000009c0  73 63 61 6c 65 25 29 3a  59 25 28 35 29 3d 32 30  |scale%):Y%(5)=20|
000009d0  2b 61 72 6d 2a 79 73 63  61 6c 65 25 3a df 58 25  |+arm*yscale%:.X%|
000009e0  28 35 29 2c 59 25 28 35  29 0d 01 22 3b 58 25 28  |(5),Y%(5)..";X%(|
000009f0  36 29 3d 6d 25 3a 59 25  28 36 29 3d 32 30 2b 61  |6)=m%:Y%(6)=20+a|
00000a00  72 6d 2a 79 73 63 61 6c  65 25 3a df 58 25 28 36  |rm*yscale%:.X%(6|
00000a10  29 2c 59 25 28 36 29 3a  44 25 3d 36 3a f2 6d 69  |),Y%(6):D%=6:.mi|
00000a20  72 72 6f 72 0d 01 2c 5d  f2 70 61 74 74 65 72 6e  |rror..,].pattern|
00000a30  28 22 53 4c 45 45 56 45  22 2c 73 62 61 73 65 2f  |("SLEEVE",sbase/|
00000a40  34 2c 74 61 62 25 2b a8  28 28 28 28 73 74 69 74  |4,tab%+.((((stit|
00000a50  63 68 65 73 25 2d 73 74  6f 70 25 29 2f 32 29 2f  |ches%-stop%)/2)/|
00000a60  73 70 69 29 2a 78 73 63  61 6c 65 25 29 2b 34 2c  |spi)*xscale%)+4,|
00000a70  32 30 2b 61 72 6d 2a 79  73 63 61 6c 65 25 29 3a  |20+arm*yscale%):|
00000a80  e1 0d 01 36 78 dd f2 70  61 74 74 65 72 6e 28 61  |...6x..pattern(a|
00000a90  24 2c 62 25 2c 74 25 2c  74 70 25 29 3a f1 27 22  |$,b%,t%,tp%):.'"|
00000aa0  50 72 69 6e 74 6f 75 74  3f 20 59 2f 4e 22 3b 3a  |Printout? Y/N";:|
00000ab0  67 25 3d a5 80 32 32 33  3a da 3a e6 30 2c 33 3a  |g%=..223:.:.0,3:|
00000ac0  ef 32 39 2c 30 3b 30 3b  3a f2 64 72 61 77 62 61  |.29,0;0;:.drawba|
00000ad0  63 6b 3a db 3a 6b 25 3d  b9 3a e7 67 25 3d 38 39  |ck:.:k%=.:.g%=89|
00000ae0  ef 32 2c 31 2c 32 37 2c  31 2c 37 37 2c 31 2c 31  |.2,1,27,1,77,1,1|
00000af0  34 3a f1 61 24 8b ef 31  34 0d 01 40 7e e3 69 25  |4:.a$..14..@~.i%|
00000b00  3d 58 25 28 31 29 b8 6d  25 2b 28 6d 25 2d 58 25  |=X%(1).m%+(m%-X%|
00000b10  28 31 29 29 88 38 3a ec  69 25 2c 32 30 3a df 69  |(1)).8:.i%,20:.i|
00000b20  25 2c 32 30 2b 28 72 69  62 2a 79 73 63 61 6c 65  |%,20+(rib*yscale|
00000b30  25 29 3a ed 3a 41 25 3d  31 33 3a 58 25 3d 50 25  |%):.:A%=13:X%=P%|
00000b40  83 32 35 36 3a 59 25 3d  50 25 81 32 35 36 3a e6  |.256:Y%=P%.256:.|
00000b50  31 2c 32 3a fb 32 3a f1  22 43 61 73 74 20 6f 6e  |1,2:.2:."Cast on|
00000b60  20 22 3b 62 25 22 20 73  74 69 74 63 68 65 73 2c  | ";b%" stitches,|
00000b70  20 61 6e 64 20 22 3b 0d  01 4a 57 70 25 3d 59 25  | and ";..JWp%=Y%|
00000b80  28 32 29 2b 34 3a f1 22  77 6f 72 6b 20 22 3b a8  |(2)+4:."work ";.|
00000b90  28 28 70 25 2f 79 73 63  61 6c 65 25 29 2a 28 72  |((p%/yscale%)*(r|
00000ba0  70 69 2b 2e 35 29 29 22  20 72 6f 77 73 20 6f 66  |pi+.5))" rows of|
00000bb0  20 72 69 62 2e 22 27 22  43 6f 6e 74 69 6e 75 65  | rib."'"Continue|
00000bc0  20 69 6e 20 70 61 74 74  65 72 6e 20 22 3b 0d 01  | in pattern ";..|
00000bd0  54 c0 74 65 6d 70 25 3d  28 62 25 2a 34 29 2d 38  |T.temp%=(b%*4)-8|
00000be0  3a e3 67 25 3d 31 b8 32  3a f0 37 37 2c 74 25 2c  |:.g%=1.2:.77,t%,|
00000bf0  70 25 3a d6 26 46 46 46  31 3a 4c 25 3d a4 6c 65  |p%:.&FFF1:L%=.le|
00000c00  66 74 3a 52 25 3d a4 72  69 67 68 74 3a 70 25 3d  |ft:R%=.right:p%=|
00000c10  70 25 2b 34 3a ed 3a 72  6f 77 25 3d 32 3a e7 52  |p%+4:.:row%=2:.R|
00000c20  25 2d 4c 25 3e 74 65 6d  70 25 f1 22 63 61 73 74  |%-L%>temp%."cast|
00000c30  20 6f 6e 20 22 3b 28 28  52 25 2d 4c 25 29 2d 74  | on ";((R%-L%)-t|
00000c40  65 6d 70 25 29 81 38 22  20 73 74 69 74 63 68 65  |emp%).8" stitche|
00000c50  73 2c 20 22 3b 8b e7 52  25 2d 4c 25 3c 74 65 6d  |s, ";..R%-L%<tem|
00000c60  70 25 f1 22 63 61 73 74  20 6f 66 66 20 22 3b 28  |p%."cast off ";(|
00000c70  74 65 6d 70 25 2d 28 52  25 2d 4c 25 29 29 81 38  |temp%-(R%-L%)).8|
00000c80  22 20 73 74 69 74 63 68  65 73 2c 20 22 3b 0d 01  |" stitches, ";..|
00000c90  5e a2 74 65 6d 70 25 3d  52 25 2d 4c 25 3a f5 3a  |^.temp%=R%-L%:.:|
00000ca0  f5 3a f0 37 37 2c 74 25  2c 70 25 3a d6 26 46 46  |.:.77,t%,p%:.&FF|
00000cb0  46 31 3a 6c 25 3d a4 6c  65 66 74 3a 72 25 3d a4  |F1:l%=.left:r%=.|
00000cc0  72 69 67 68 74 3a 70 25  3d 70 25 2b 34 3a 72 6f  |right:p%=p%+4:ro|
00000cd0  77 25 3d 72 6f 77 25 2b  31 3a fd 72 25 2d 6c 25  |w%=row%+1:.r%-l%|
00000ce0  3c 3e 74 65 6d 70 25 84  70 25 2b 36 3e 74 70 25  |<>temp%.p%+6>tp%|
00000cf0  3a f1 22 61 6e 64 20 77  6f 72 6b 20 22 3b 72 6f  |:."and work ";ro|
00000d00  77 25 22 20 72 6f 77 22  2b bd 28 31 31 35 2a 28  |w%" row"+.(115*(|
00000d10  72 6f 77 25 3e 31 29 2a  2d 31 29 22 20 69 6e 20  |row%>1)*-1)" in |
00000d20  70 61 74 74 65 72 6e 2e  22 3a 63 61 70 25 3d 30  |pattern.":cap%=0|
00000d30  0d 01 68 1f e7 94 28 28  6c 25 2d 4c 25 29 81 34  |..h...((l%-L%).4|
00000d40  29 3e 31 f2 64 65 66 31  20 8b f2 64 65 66 32 0d  |)>1.def1 ..def2.|
00000d50  01 72 a2 e7 6c 25 3e 4c  25 f1 63 24 28 30 29 6f  |.r..l%>L%.c$(0)o|
00000d60  66 24 3b 28 6c 25 2d 4c  25 29 81 34 22 20 73 74  |f$;(l%-L%).4" st|
00000d70  69 74 63 68 22 66 24 28  94 28 28 28 6c 25 2d 4c  |itch"f$(.(((l%-L|
00000d80  25 29 2f 34 29 3e 31 29  29 22 20 6f 6e 20 74 68  |%)/4)>1))" on th|
00000d90  65 20 6c 65 66 74 2c 20  22 3b 3a 63 61 70 25 3d  |e left, ";:cap%=|
00000da0  31 20 8b e7 6c 25 3c 4c  25 f1 63 24 28 32 29 6f  |1 ..l%<L%.c$(2)o|
00000db0  6e 24 3b 28 4c 25 2d 6c  25 29 81 34 22 20 73 74  |n$;(L%-l%).4" st|
00000dc0  69 74 63 68 22 66 24 28  94 28 28 28 4c 25 2d 6c  |itch"f$(.(((L%-l|
00000dd0  25 29 2f 34 29 3e 31 29  29 22 20 6f 6e 20 74 68  |%)/4)>1))" on th|
00000de0  65 20 6c 65 66 74 2c 20  22 3b 3a 63 61 70 25 3d  |e left, ";:cap%=|
00000df0  31 0d 01 7c 1f e7 94 28  28 72 25 2d 52 25 29 81  |1..|...((r%-R%).|
00000e00  34 29 3e 31 f2 64 65 66  31 20 8b f2 64 65 66 32  |4)>1.def1 ..def2|
00000e10  0d 01 86 9d e7 72 25 3c  52 25 f1 63 24 28 63 61  |.....r%<R%.c$(ca|
00000e20  70 25 29 6f 66 24 3b 28  52 25 2d 72 25 29 81 34  |p%)of$;(R%-r%).4|
00000e30  22 20 73 74 69 74 63 68  22 66 24 28 94 28 28 28  |" stitch"f$(.(((|
00000e40  52 25 2d 72 25 29 2f 34  29 3e 31 29 29 22 20 6f  |R%-r%)/4)>1))" o|
00000e50  6e 20 74 68 65 20 72 69  67 68 74 2c 20 22 3b 8b  |n the right, ";.|
00000e60  e7 72 25 3e 52 25 f1 63  24 28 63 61 70 25 2b 32  |.r%>R%.c$(cap%+2|
00000e70  29 6f 6e 24 3b 28 72 25  2d 52 25 29 81 34 22 20  |)on$;(r%-R%).4" |
00000e80  73 74 69 74 63 68 22 66  24 28 94 28 28 28 72 25  |stitch"f$(.(((r%|
00000e90  2d 52 25 29 2f 34 29 3e  31 29 29 22 20 6f 6e 20  |-R%)/4)>1))" on |
00000ea0  74 68 65 20 72 69 67 68  74 2c 20 22 3b 0d 01 90  |the right, ";...|
00000eb0  56 74 65 6d 70 25 3d 72  25 2d 6c 25 3a 4c 25 3d  |Vtemp%=r%-l%:L%=|
00000ec0  6c 25 3a 52 25 3d 72 25  3a 72 6f 77 25 3d 30 3a  |l%:R%=r%:row%=0:|
00000ed0  e7 70 25 3e 31 30 30 30  e7 6b 25 3d b9 20 da 3a  |.p%>1000.k%=. .:|
00000ee0  ef 32 39 2c 30 3b 2d 28  79 73 63 61 6c 65 25 2a  |.29,0;-(yscale%*|
00000ef0  31 32 29 3b 3a f2 64 72  61 77 62 61 63 6b 3a 6b  |12);:.drawback:k|
00000f00  25 3d a3 0d 01 9a 90 fd  70 25 2b 36 3e 74 70 25  |%=......p%+6>tp%|
00000f10  3a f0 37 37 2c 74 25 2c  70 25 3a d6 26 46 46 46  |:.77,t%,p%:.&FFF|
00000f20  31 3a 6c 25 3d a4 6c 65  66 74 3a 72 25 3d a4 72  |1:l%=.left:r%=.r|
00000f30  69 67 68 74 3a f1 22 57  6f 72 6b 20 6f 6e 65 20  |ight:."Work one |
00000f40  72 6f 77 20 69 6e 20 70  61 74 74 65 72 6e 20 61  |row in pattern a|
00000f50  6e 64 20 63 61 73 74 20  6f 66 66 20 74 68 65 20  |nd cast off the |
00000f60  72 65 6d 61 69 6e 69 6e  67 20 22 3b 28 74 65 6d  |remaining ";(tem|
00000f70  70 25 81 34 29 2b 32 22  20 73 74 69 74 63 68 65  |p%.4)+2" stitche|
00000f80  73 2e 22 27 27 3a ef 33  2c 31 35 3a f2 64 65 66  |s."'':.3,15:.def|
00000f90  31 3a e1 0d 01 a4 1a dd  a4 6c 65 66 74 3a 3d 3f  |1:.......left:=?|
00000fa0  50 25 2b 28 50 25 3f 31  29 2a 32 35 36 0d 01 ae  |P%+(P%?1)*256...|
00000fb0  1c dd a4 72 69 67 68 74  3a 3d 50 25 3f 34 2b 28  |...right:=P%?4+(|
00000fc0  50 25 3f 35 29 2a 32 35  36 0d 01 b8 3f dd f2 64  |P%?5)*256...?..d|
00000fd0  72 61 77 62 61 63 6b 3a  ec 58 25 28 30 29 2c 59  |rawback:.X%(0),Y|
00000fe0  25 28 30 29 3a e3 69 25  3d 30 b8 44 25 3a df 58  |%(0):.i%=0.D%:.X|
00000ff0  25 28 69 25 29 2c 59 25  28 69 25 29 3a ed 3a f2  |%(i%),Y%(i%):.:.|
00001000  6d 69 72 72 6f 72 3a e1  0d 01 c2 51 dd f2 64 65  |mirror:....Q..de|
00001010  66 31 3a 63 24 28 30 29  3d 22 43 22 3a 63 24 28  |f1:c$(0)="C":c$(|
00001020  31 29 3d 22 63 22 3a 63  24 28 32 29 3d 22 43 22  |1)="c":c$(2)="C"|
00001030  3a 63 24 28 33 29 3d 22  63 22 3a 6f 6e 24 3d 22  |:c$(3)="c":on$="|
00001040  61 73 74 20 6f 6e 20 22  3a 6f 66 24 3d 22 61 73  |ast on ":of$="as|
00001050  74 20 6f 66 66 20 22 3a  e1 0d 01 cc 54 dd f2 64  |t off ":....T..d|
00001060  65 66 32 3a 63 24 28 30  29 3d 22 44 65 22 3a 63  |ef2:c$(0)="De":c|
00001070  24 28 31 29 3d 22 64 65  22 3a 63 24 28 32 29 3d  |$(1)="de":c$(2)=|
00001080  22 49 6e 22 3a 63 24 28  33 29 3d 22 69 6e 22 3a  |"In":c$(3)="in":|
00001090  6f 6e 24 3d 22 63 72 65  61 73 65 20 22 3a 6f 66  |on$="crease ":of|
000010a0  24 3d 22 63 72 65 61 73  65 20 22 3a e1 0d 01 d6  |$="crease ":....|
000010b0  71 dd f2 69 6e 69 74 3a  f1 8a 30 2c 31 30 29 22  |q..init:..0,10)"|
000010c0  49 6e 63 68 65 73 20 6f  72 20 43 65 6e 74 69 6d  |Inches or Centim|
000010d0  65 74 72 65 73 3f 20 49  2f 43 22 3b 3a f5 3a 67  |etres? I/C";:.:g|
000010e0  25 3d a5 20 80 20 32 32  33 3a fd 67 25 3d 36 37  |%=. . 223:.g%=67|
000010f0  20 84 20 67 25 3d 37 33  3a e7 67 25 3d 37 33 20  | . g%=73:.g%=73 |
00001100  73 24 3d 22 69 6e 63 68  22 3a 73 25 3d 31 20 8b  |s$="inch":s%=1 .|
00001110  20 73 24 3d 22 63 6d 2e  22 3a 73 25 3d 35 0d 01  | s$="cm.":s%=5..|
00001120  e0 74 f1 27 27 22 4e 75  6d 62 65 72 20 6f 66 20  |.t.''"Number of |
00001130  73 74 69 74 63 68 65 73  20 70 65 72 20 22 73 24  |stitches per "s$|
00001140  3b 3a e8 73 70 69 3a f1  27 22 4e 75 6d 62 65 72  |;:.spi:.'"Number|
00001150  20 6f 66 20 72 6f 77 73  20 70 65 72 20 22 73 24  | of rows per "s$|
00001160  3b 3a e8 72 70 69 3a 78  73 63 61 6c 65 25 3d 73  |;:.rpi:xscale%=s|
00001170  70 69 2a 34 3a 79 73 63  61 6c 65 25 3d 72 70 69  |pi*4:yscale%=rpi|
00001180  2a 34 3a 74 61 62 25 3d  31 30 2b 78 73 63 61 6c  |*4:tab%=10+xscal|
00001190  65 25 0d 01 ea 39 6d 78  25 3d 31 30 3a de 58 25  |e%...9mx%=10:.X%|
000011a0  28 6d 78 25 29 2c 59 25  28 6d 78 25 29 2c 50 25  |(mx%),Y%(mx%),P%|
000011b0  20 38 2c 66 24 28 31 29  2c 63 24 28 33 29 3a 4e  | 8,f$(1),c$(3):N|
000011c0  25 3d b9 3a f2 64 65 66  31 3a e1 0d ff           |%=.:.def1:...|
000011cd

10-01-88/RAGLAN.m0

10-01-88/RAGLAN.m1

10-01-88/RAGLAN.m2

10-01-88/RAGLAN.m4

10-01-88/RAGLAN.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .