Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF » P/Shaper

P/Shaper

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF
Filename: P/Shaper
Read OK: ✔
File size: 143D bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM       Electron Pixel Mapper
   20REM           Shape Creator
   30REM Original version by Martin Dawe             (c) Acorn Computing   
   40REM Adapted for Electron by M. Ford                for EUG, Dec 1994
   50:
   60MODE6
   70PRINTTAB(7,1)"Pixel Mapper Shape Creator"'
   80*FX4,1
   90VDU23,43,54,119,119,8,119,119,54,0
  100max%=300
  110DIMsx%(max%),sy%(max%),fx%(max%),fy%(max%),xx%(max%),xy%(max%),type%(max%)
  120DIMcircx(11),circy(11)
  130FOR c%=0 TO 11
  140circx(c%)=COS(((c%+1)/6)*PI)
  150circy(c%)=SIN(((c%+1)/6)*PI)
  160NEXT
  170num%=-1:shape%=0:lock%=FALSE
  180INPUT"Grid size in pixels (default- 16) ";spc%
  190IF spc%=0 spc%=16
  200spc%=spc%*4
  210INPUT'"Show grid";yn$
  220IF INSTR("Yy",LEFT$(yn$,1)) show%=TRUE ELSE show%=FALSE
  230PRINT'"Mode 4 or 5? ";
  240REPEAT M%=VAL(GET$):UNTIL M%=4 OR M%=5
  250MODEM%
  260col%=M%-3
  270x%=640:y%=512
  280ONERROR IF ERR=17 PROCrestore ELSE REPORT:PRINT" at line ";ERL:END
  290VDU5
  300IF show% PROCgrid
  310GCOL0,3
  320PLOT69,0,0:PLOT69,1279,0:PLOT69,0,1023:PLOT69,1279,1023
  330GCOL3,3
  340PROCcross
  350REPEAT
  360ox%=x%:oy%=y%
  370oshape%=shape%
  380draw%=FALSE
  390IF INKEY-17 PROCquit
  400IF INKEY-65 AND INKEY-104 THEN PROCsave:*FX125
  410IF INKEY-65 AND INKEY-103 THEN PROCload:*FX125
  420IF INKEY-87 PROCnleft
  430IF INKEY-84 x%=spc%*(x% DIV spc%):y%=spc%*(y% DIV spc%):stp%=spc%:lock%=TRUE:draw%=TRUE
  440IF INKEY-86 lock%=FALSE
  450IF INKEY-1 AND NOTlock% stp%=32 ELSEIF INKEY-2 AND NOTlock% stp%=96 ELSE IF NOTlock% stp%=4
  460IF INKEY-99 IF shape% PROCshape2
  470IF INKEY-101 col%=0:PROCforeback
  480IF INKEY-68 col%=M%-3:PROCforeback
  490IF INKEY-55 x%=640:y%=512:draw%=TRUE:IF lock% x%=spc%*(x% DIV spc%):y%=spc%*(y% DIV spc%)
  500IF INKEY-36 shape%=1:PROCshape1
  510IF INKEY-52 shape%=3:PROCshape1
  520IF INKEY-83 shape%=4:PROCshape1
  530IF INKEY-122 x%=x%+stp%:draw%=TRUE
  540IF INKEY-26 x%=x%-stp%:draw%=TRUE
  550IF INKEY-58 y%=y%+stp%:draw%=TRUE
  560IF INKEY-42 y%=y%-stp%:draw%=TRUE
  570IF INKEY-1 AND INKEY-51 AND num%>-1 THEN shape%=0:num%=num%-1:OSCLI"FX 125" ELSE IF INKEY-1 AND INKEY-51 VDU7
  580IF draw% PROCredraw
  590UNTIL 0
  600DEFPROCredraw
  610MOVEox%-16,oy%+12:VDU43
  620PROCcross
  630IF shape% PROCdrawsh
  640ENDPROC
  650DEFPROCshape1
  660IF num%=max% VDU7:shape%=0:ENDPROC
  670IF oshape% MOVEsx%(num%),sy%(num%) ELSE num%=num%+1
  680IF oshape%=1 DRAWx%,y%
  690IF oshape%=2 DRAWx%,y%:DRAWxx%(num%),xy%(num%):DRAWsx%(num%),sy%(num%):PLOT69,xx%(num%),xy%(num%)
  700IF oshape%=3 DRAWsx%(num%),y%:DRAWx%,y%:DRAWx%,sy%(num%):DRAWsx%(num%),sy%(num%)
  710IF oshape%=4 PROCcircoutl(0)
  720sx%(num%)=x%:sy%(num%)=y%
  730IF shape%=1 PLOT69,x%,y%
  740ENDPROC
  750DEFPROCshape2
  760IF shape%=1 shape%=2:xx%(num%)=x%:xy%(num%)=y%:MOVEsx%(num%),sy%(num%):DRAWx%,y%:PROCwait(50):ENDPROC
  770fx%(num%)=x%:fy%(num%)=y%:type%(num%)=shape%
  780IF col%=0 type%(num%)=type%(num%)+128
  790PROCcross
  800IF M%=4 AND show%=TRUE THEN PROCgrid
  810GCOL0,col%
  820IF shape%=2 MOVExx%(num%),xy%(num%):DRAWsx%(num%),sy%(num%):DRAWx%,y%:DRAWxx%(num%),xy%(num%):MOVEsx%(num%),sy%(num%):MOVExx%(num%),xy%(num%):PLOT85,x%,y%
  830IF shape%=3 MOVEsx%(num%),sy%(num%):MOVEsx%(num%),y%:PLOT85,x%,sy%(num%):MOVEsx%(num%),y%:MOVEx%,y%:PLOT85,x%,sy%(num%)
  840IF shape%=4 PROCcircfill
  850IF show% PROCgrid
  860GCOL3,3:PROCcross
  870shape%=0
  880ENDPROC
  890DEFPROCdrawsh
  900MOVEsx%(num%),sy%(num%)
  910IF shape%=1 DRAWox%,oy%:MOVEsx%(num%),sy%(num%):DRAWx%,y%
  920IF shape%=2 DRAWox%,oy%:MOVExx%(num%),xy%(num%):DRAWox%,oy%:MOVEsx%(num%),sy%(num%):DRAWx%,y%:MOVExx%(num%),xy%(num%):DRAWx%,y%
  930IF shape%=3 DRAWsx%(num%),oy%:DRAWox%,oy%:DRAWox%,sy%(num%):DRAWsx%(num%),sy%(num%):DRAWsx%(num%),y%:DRAWx%,y%:DRAWx%,sy%(num%):DRAWsx%(num%),sy%(num%)
  940IF shape%=4 PROCcircoutl(1)
  950ENDPROC
  960DEFPROCwait(t)
  970T=TIME
  980REPEAT UNTIL TIME>T+t
  990ENDPROC
 1000DEFPROCforeback
 1010PROCcross
 1020IF col% VDU23,43,54,119,119,8,119,119,54,0 ELSE VDU23,43,8,8,8,119,8,8,8,0
 1030PROCcross
 1040ENDPROC
 1050DEFPROCsave
 1060IF (shape% AND num%=0) OR num%=-1 VDU7:ENDPROC
 1070IF shape% shape%=0:num%=num%-1
 1080VDU4
 1090*FX21
 1100INPUTTAB(0,0)"Filename to save";file$
 1110f%=OPENOUT(file$)
 1120PRINT'"Saving...";
 1130PRINT#f%,num%
 1140FOR data%=0 TO num%
 1150PRINT#f%,sx%(data%),sy%(data%),fx%(data%),fy%(data%),xx%(data%),xy%(data%),type%(data%)
 1160NEXT
 1170CLOSE#f%
 1180VDU5
 1190ENDPROC
 1200DEFPROCload
 1210shape%=0
 1220VDU4
 1230*FX21
 1240INPUTTAB(0,0)"Filename to load";file$
 1250f%=OPENIN(file$)
 1260PRINT'"Loading...";
 1270INPUT#f%,num%
 1280FOR data%=0 TO num%
 1290INPUT#f%,sx%(data%),sy%(data%),fx%(data%),fy%(data%),xx%(data%),xy%(data%),type%(data%)
 1300NEXT
 1310CLOSE#f%
 1320VDU5
 1330ENDPROC
 1340DEFPROCcircoutl(func%)
 1350ex%=x%:ey%=y%
 1360FORc%=0 TO func%
 1370mult=SQR((ex%-sx%(num%))^2+(ey%-sy%(num%))^2)
 1380FORdot%=0 TO11
 1390PLOT69,sx%(num%)+mult*circx(dot%),sy%(num%)+mult*circy(dot%)
 1400NEXT
 1410ex%=ox%:ey%=oy%
 1420NEXT
 1430ENDPROC
 1440DEFPROCcircfill
 1450*FX21
 1460GCOL3,3
 1470MOVE80,900:INPUT"NUMBER OF SIDES ";cstep
 1480MOVE80,900:PRINT"NUMBER OF SIDES ?";cstep
 1490xx%(num%)=cstep
 1500PROCcircoutl(0)
 1510GCOL0,col%
 1520PROCcircle(sx%(num%),sy%(num%),x%,y%,cstep)
 1530GCOL3,3
 1540ENDPROC
 1550DEFPROCcircle(sx%,sy%,fx%,fy%,cstep)
 1560cstep=2*PI/cstep
 1570mult=SQR((fx%-sx%)^2+(fy%-sy%)^2)
 1580FORang=0 TO 2*PI STEP cstep
 1590MOVEsx%,sy%:MOVEsx%+mult*COS(ang),sy%+mult*SIN(ang)
 1600PLOT85,sx%+mult*COS(ang+cstep),sy%+mult*SIN(ang+cstep)
 1610NEXT
 1620ENDPROC
 1630DEFPROCnleft
 1640MOVE32+304*(5-M%),900:PRINTSTR$(max%-1-num%);" SHAPES ARE LEFT"
 1650*FX21
 1660A=GET
 1670MOVE32+304*(5-M%),900:PRINTSTR$(max%-1-num%);" SHAPES ARE LEFT"
 1680ENDPROC
 1690DEFPROCgrid
 1700IF M%=4 THEN GCOL3,1 ELSE GCOL0,1
 1710FORh%=0 TO 1279 STEP spc%
 1720FORv%=0 TO 1024 STEP spc%
 1730PLOT 69,h%,v%
 1740NEXT
 1750NEXT
 1760GCOL3,3
 1770ENDPROC
 1780DEFPROCrestore
 1790CLS
 1800IF shape% shape%=0:num%=num%-1
 1810IF num%=-1 ENDPROC
 1820FOR n%=0 TO num%
 1830IF type%(n%)AND128 GCOL0,0 ELSE GCOL0,M%-3
 1840shape%=type%(n%)AND127
 1850IF shape%=2 MOVEsx%(n%),sy%(n%):MOVExx%(n%),xy%(n%):PLOT85,fx%(n%),fy%(n%)
 1860IF shape%=3 MOVEsx%(n%),sy%(n%):MOVEsx%(n%),fy%(n%):PLOT85,fx%(n%),sy%(n%):MOVEsx%(n%),fy%(n%):MOVEfx%(n%),fy%(n%):PLOT85,fx%(n%),sy%(n%)
 1870IF shape%=4 PROCcircle(sx%(n%),sy%(n%),fx%(n%),fy%(n%),xx%(n%))
 1880NEXT
 1890shape%=0
 1900ENDPROC
 1910DEFPROCquit
 1920*FX21
 1930MOVE80,900
 1940INPUT"Really QUIT";yn$
 1950IF INSTR("Yy",LEFT$(yn$,1))=0 MOVE80,900:PRINT"Really QUIT?";yn$:ENDPROC
 1960*FX4
 1970CHAIN"Menu"
 1980DEFPROCcross
 1990MOVEx%-16,y%+12
 2000VDU43
 2010ENDPROC


!�       Electron Pixel Mapper
�           Shape Creator
H� Original version by Martin Dawe             (c) Acorn Computing   
(F� Adapted for Electron by M. Ford                for EUG, Dec 1994
2:
<�6
F'�7,1)"Pixel Mapper Shape Creator"'
P
*FX4,1
Z$�23,43,54,119,119,8,119,119,54,0
dmax%=300
nL�sx%(max%),sy%(max%),fx%(max%),fy%(max%),xx%(max%),xy%(max%),type%(max%)
x�circx(11),circy(11)
�� c%=0 � 11
�circx(c%)=�(((c%+1)/6)*�)
�circy(c%)=�(((c%+1)/6)*�)
��
�num%=-1:shape%=0:lock%=�
�.�"Grid size in pixels (default- 16) ";spc%
�� spc%=0 spc%=16
�spc%=spc%*4
��'"Show grid";yn$
�&� �"Yy",�yn$,1)) show%=� � show%=�
��'"Mode 4 or 5? ";
�� M%=�(�):� M%=4 � M%=5
��M%

col%=M%-3
x%=640:y%=512
+� � �=17 �restore � �:�" at line ";�:�
"�5
,� show% �grid
6�0,3
@/�69,0,0:�69,1279,0:�69,0,1023:�69,1279,1023
J�3,3
T
�cross
^�
hox%=x%:oy%=y%
roshape%=shape%
|draw%=�
�� �-17 �quit
�!� �-65 � �-104 � �save:*FX125
�!� �-65 � �-103 � �load:*FX125
�� �-87 �nleft
�L� �-84 x%=spc%*(x% � spc%):y%=spc%*(y% � spc%):stp%=spc%:lock%=�:draw%=�
�� �-86 lock%=�
�D� �-1 � �lock% stp%=32 �� �-2 � �lock% stp%=96 � � �lock% stp%=4
�� �-99 � shape% �shape2
�� �-101 col%=0:�foreback
�� �-68 col%=M%-3:�foreback
�P� �-55 x%=640:y%=512:draw%=�:� lock% x%=spc%*(x% � spc%):y%=spc%*(y% � spc%)
�� �-36 shape%=1:�shape1
�� �-52 shape%=3:�shape1
� �-83 shape%=4:�shape1
� �-122 x%=x%+stp%:draw%=�
� �-26 x%=x%-stp%:draw%=�
&� �-58 y%=y%+stp%:draw%=�
0� �-42 y%=y%-stp%:draw%=�
:M� �-1 � �-51 � num%>-1 � shape%=0:num%=num%-1:�"FX 125" � � �-1 � �-51 �7
D� draw% �redraw
N� 0
X��redraw
b�ox%-16,oy%+12:�43
l
�cross
v� shape% �drawsh
��
���shape1
�� num%=max% �7:shape%=0:�
�0� oshape% �sx%(num%),sy%(num%) � num%=num%+1
�� oshape%=1 �x%,y%
�X� oshape%=2 �x%,y%:�xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�69,xx%(num%),xy%(num%)
�G� oshape%=3 �sx%(num%),y%:�x%,y%:�x%,sy%(num%):�sx%(num%),sy%(num%)
�� oshape%=4 �circoutl(0)
�sx%(num%)=x%:sy%(num%)=y%
�� shape%=1 �69,x%,y%
��
���shape2
�Y� shape%=1 shape%=2:xx%(num%)=x%:xy%(num%)=y%:�sx%(num%),sy%(num%):�x%,y%:�wait(50):�
0fx%(num%)=x%:fy%(num%)=y%:type%(num%)=shape%
(� col%=0 type%(num%)=type%(num%)+128

�cross
 � M%=4 � show%=� � �grid
*�0,col%
4�� shape%=2 �xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�x%,y%:�xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�xx%(num%),xy%(num%):�85,x%,y%
>h� shape%=3 �sx%(num%),sy%(num%):�sx%(num%),y%:�85,x%,sy%(num%):�sx%(num%),y%:�x%,y%:�85,x%,sy%(num%)
H� shape%=4 �circfill
R� show% �grid
\�3,3:�cross
fshape%=0
p�
z��drawsh
��sx%(num%),sy%(num%)
�3� shape%=1 �ox%,oy%:�sx%(num%),sy%(num%):�x%,y%
�m� shape%=2 �ox%,oy%:�xx%(num%),xy%(num%):�ox%,oy%:�sx%(num%),sy%(num%):�x%,y%:�xx%(num%),xy%(num%):�x%,y%
��� shape%=3 �sx%(num%),oy%:�ox%,oy%:�ox%,sy%(num%):�sx%(num%),sy%(num%):�sx%(num%),y%:�x%,y%:�x%,sy%(num%):�sx%(num%),sy%(num%)
�� shape%=4 �circoutl(1)
��
�
��wait(t)
�T=�
�
� � �>T+t
��
���foreback
�
�cross
�F� col% �23,43,54,119,119,8,119,119,54,0 � �23,43,8,8,8,119,8,8,8,0

�cross
�

��save
$&� (shape% � num%=0) � num%=-1 �7:�
.!� shape% shape%=0:num%=num%-1
8�4
B	*FX21
L"�0,0)"Filename to save";file$
Vf%=�(file$)
`�'"Saving...";
j
�#f%,num%
t� data%=0 � num%
~W�#f%,sx%(data%),sy%(data%),fx%(data%),fy%(data%),xx%(data%),xy%(data%),type%(data%)
��
��#f%
��5
��
�
��load
�shape%=0
��4
�	*FX21
�"�0,0)"Filename to load";file$
�f%=�(file$)
��'"Loading...";
�
�#f%,num%
� data%=0 � num%

W�#f%,sx%(data%),sy%(data%),fx%(data%),fy%(data%),xx%(data%),xy%(data%),type%(data%)
�
�#f%
(�5
2�
<��circoutl(func%)
Fex%=x%:ey%=y%
P�c%=0 � func%
Z/mult=�((ex%-sx%(num%))^2+(ey%-sy%(num%))^2)
d�dot%=0 �11
n=�69,sx%(num%)+mult*circx(dot%),sy%(num%)+mult*circy(dot%)
x�
�ex%=ox%:ey%=oy%
��
��
���circfill
�	*FX21
��3,3
�%�80,900:�"NUMBER OF SIDES ";cstep
�&�80,900:�"NUMBER OF SIDES ?";cstep
�xx%(num%)=cstep
��circoutl(0)
��0,col%
�,�circle(sx%(num%),sy%(num%),x%,y%,cstep)
��3,3
�
#��circle(sx%,sy%,fx%,fy%,cstep)
cstep=2*�/cstep
"#mult=�((fx%-sx%)^2+(fy%-sy%)^2)
,�ang=0 � 2*� � cstep
6-�sx%,sy%:�sx%+mult*�(ang),sy%+mult*�(ang)
@3�85,sx%+mult*�(ang+cstep),sy%+mult*�(ang+cstep)
J�
T�
^��nleft
h9�32+304*(5-M%),900:��(max%-1-num%);" SHAPES ARE LEFT"
r	*FX21
|A=�
�9�32+304*(5-M%),900:��(max%-1-num%);" SHAPES ARE LEFT"
��
�
��grid
�� M%=4 � �3,1 � �0,1
��h%=0 � 1279 � spc%
��v%=0 � 1024 � spc%
�� 69,h%,v%
��
��
��3,3
��
�
��restore
��
!� shape% shape%=0:num%=num%-1
� num%=-1 �
� n%=0 � num%
&"� type%(n%)�128 �0,0 � �0,M%-3
0shape%=type%(n%)�127
:D� shape%=2 �sx%(n%),sy%(n%):�xx%(n%),xy%(n%):�85,fx%(n%),fy%(n%)
Dz� shape%=3 �sx%(n%),sy%(n%):�sx%(n%),fy%(n%):�85,fx%(n%),sy%(n%):�sx%(n%),fy%(n%):�fx%(n%),fy%(n%):�85,fx%(n%),sy%(n%)
N?� shape%=4 �circle(sx%(n%),sy%(n%),fx%(n%),fy%(n%),xx%(n%))
X�
bshape%=0
l�
v
��quit
�	*FX21
��80,900
��"Really QUIT";yn$
�4� �"Yy",�yn$,1))=0 �80,900:�"Really QUIT?";yn$:�
�*FX4
��"Menu"
���cross
��x%-16,y%+12
��43
��
�
00000000  0d 00 0a 21 f4 20 20 20  20 20 20 20 45 6c 65 63  |...!.       Elec|
00000010  74 72 6f 6e 20 50 69 78  65 6c 20 4d 61 70 70 65  |tron Pixel Mappe|
00000020  72 0d 00 14 1d f4 20 20  20 20 20 20 20 20 20 20  |r.....          |
00000030  20 53 68 61 70 65 20 43  72 65 61 74 6f 72 0d 00  | Shape Creator..|
00000040  1e 48 f4 20 4f 72 69 67  69 6e 61 6c 20 76 65 72  |.H. Original ver|
00000050  73 69 6f 6e 20 62 79 20  4d 61 72 74 69 6e 20 44  |sion by Martin D|
00000060  61 77 65 20 20 20 20 20  20 20 20 20 20 20 20 20  |awe             |
00000070  28 63 29 20 41 63 6f 72  6e 20 43 6f 6d 70 75 74  |(c) Acorn Comput|
00000080  69 6e 67 20 20 20 0d 00  28 46 f4 20 41 64 61 70  |ing   ..(F. Adap|
00000090  74 65 64 20 66 6f 72 20  45 6c 65 63 74 72 6f 6e  |ted for Electron|
000000a0  20 62 79 20 4d 2e 20 46  6f 72 64 20 20 20 20 20  | by M. Ford     |
000000b0  20 20 20 20 20 20 20 20  20 20 20 66 6f 72 20 45  |           for E|
000000c0  55 47 2c 20 44 65 63 20  31 39 39 34 0d 00 32 05  |UG, Dec 1994..2.|
000000d0  3a 0d 00 3c 06 eb 36 0d  00 46 27 f1 8a 37 2c 31  |:..<..6..F'..7,1|
000000e0  29 22 50 69 78 65 6c 20  4d 61 70 70 65 72 20 53  |)"Pixel Mapper S|
000000f0  68 61 70 65 20 43 72 65  61 74 6f 72 22 27 0d 00  |hape Creator"'..|
00000100  50 0a 2a 46 58 34 2c 31  0d 00 5a 24 ef 32 33 2c  |P.*FX4,1..Z$.23,|
00000110  34 33 2c 35 34 2c 31 31  39 2c 31 31 39 2c 38 2c  |43,54,119,119,8,|
00000120  31 31 39 2c 31 31 39 2c  35 34 2c 30 0d 00 64 0c  |119,119,54,0..d.|
00000130  6d 61 78 25 3d 33 30 30  0d 00 6e 4c de 73 78 25  |max%=300..nL.sx%|
00000140  28 6d 61 78 25 29 2c 73  79 25 28 6d 61 78 25 29  |(max%),sy%(max%)|
00000150  2c 66 78 25 28 6d 61 78  25 29 2c 66 79 25 28 6d  |,fx%(max%),fy%(m|
00000160  61 78 25 29 2c 78 78 25  28 6d 61 78 25 29 2c 78  |ax%),xx%(max%),x|
00000170  79 25 28 6d 61 78 25 29  2c 74 79 70 65 25 28 6d  |y%(max%),type%(m|
00000180  61 78 25 29 0d 00 78 18  de 63 69 72 63 78 28 31  |ax%)..x..circx(1|
00000190  31 29 2c 63 69 72 63 79  28 31 31 29 0d 00 82 0f  |1),circy(11)....|
000001a0  e3 20 63 25 3d 30 20 b8  20 31 31 0d 00 8c 1d 63  |. c%=0 . 11....c|
000001b0  69 72 63 78 28 63 25 29  3d 9b 28 28 28 63 25 2b  |ircx(c%)=.(((c%+|
000001c0  31 29 2f 36 29 2a af 29  0d 00 96 1d 63 69 72 63  |1)/6)*.)....circ|
000001d0  79 28 63 25 29 3d b5 28  28 28 63 25 2b 31 29 2f  |y(c%)=.(((c%+1)/|
000001e0  36 29 2a af 29 0d 00 a0  05 ed 0d 00 aa 1c 6e 75  |6)*.).........nu|
000001f0  6d 25 3d 2d 31 3a 73 68  61 70 65 25 3d 30 3a 6c  |m%=-1:shape%=0:l|
00000200  6f 63 6b 25 3d a3 0d 00  b4 2e e8 22 47 72 69 64  |ock%=......"Grid|
00000210  20 73 69 7a 65 20 69 6e  20 70 69 78 65 6c 73 20  | size in pixels |
00000220  28 64 65 66 61 75 6c 74  2d 20 31 36 29 20 22 3b  |(default- 16) ";|
00000230  73 70 63 25 0d 00 be 14  e7 20 73 70 63 25 3d 30  |spc%..... spc%=0|
00000240  20 73 70 63 25 3d 31 36  0d 00 c8 0f 73 70 63 25  | spc%=16....spc%|
00000250  3d 73 70 63 25 2a 34 0d  00 d2 15 e8 27 22 53 68  |=spc%*4.....'"Sh|
00000260  6f 77 20 67 72 69 64 22  3b 79 6e 24 0d 00 dc 26  |ow grid";yn$...&|
00000270  e7 20 a7 22 59 79 22 2c  c0 79 6e 24 2c 31 29 29  |. ."Yy",.yn$,1))|
00000280  20 73 68 6f 77 25 3d b9  20 8b 20 73 68 6f 77 25  | show%=. . show%|
00000290  3d a3 0d 00 e6 16 f1 27  22 4d 6f 64 65 20 34 20  |=......'"Mode 4 |
000002a0  6f 72 20 35 3f 20 22 3b  0d 00 f0 1b f5 20 4d 25  |or 5? ";..... M%|
000002b0  3d bb 28 be 29 3a fd 20  4d 25 3d 34 20 84 20 4d  |=.(.):. M%=4 . M|
000002c0  25 3d 35 0d 00 fa 07 eb  4d 25 0d 01 04 0d 63 6f  |%=5.....M%....co|
000002d0  6c 25 3d 4d 25 2d 33 0d  01 0e 11 78 25 3d 36 34  |l%=M%-3....x%=64|
000002e0  30 3a 79 25 3d 35 31 32  0d 01 18 2b ee 85 20 e7  |0:y%=512...+.. .|
000002f0  20 9f 3d 31 37 20 f2 72  65 73 74 6f 72 65 20 8b  | .=17 .restore .|
00000300  20 f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  | .:." at line ";|
00000310  9e 3a e0 0d 01 22 06 ef  35 0d 01 2c 11 e7 20 73  |.:..."..5..,.. s|
00000320  68 6f 77 25 20 f2 67 72  69 64 0d 01 36 08 e6 30  |how% .grid..6..0|
00000330  2c 33 0d 01 40 2f f0 36  39 2c 30 2c 30 3a f0 36  |,3..@/.69,0,0:.6|
00000340  39 2c 31 32 37 39 2c 30  3a f0 36 39 2c 30 2c 31  |9,1279,0:.69,0,1|
00000350  30 32 33 3a f0 36 39 2c  31 32 37 39 2c 31 30 32  |023:.69,1279,102|
00000360  33 0d 01 4a 08 e6 33 2c  33 0d 01 54 0a f2 63 72  |3..J..3,3..T..cr|
00000370  6f 73 73 0d 01 5e 05 f5  0d 01 68 11 6f 78 25 3d  |oss..^....h.ox%=|
00000380  78 25 3a 6f 79 25 3d 79  25 0d 01 72 12 6f 73 68  |x%:oy%=y%..r.osh|
00000390  61 70 65 25 3d 73 68 61  70 65 25 0d 01 7c 0b 64  |ape%=shape%..|.d|
000003a0  72 61 77 25 3d a3 0d 01  86 10 e7 20 a6 2d 31 37  |raw%=...... .-17|
000003b0  20 f2 71 75 69 74 0d 01  90 21 e7 20 a6 2d 36 35  | .quit...!. .-65|
000003c0  20 80 20 a6 2d 31 30 34  20 8c 20 f2 73 61 76 65  | . .-104 . .save|
000003d0  3a 2a 46 58 31 32 35 0d  01 9a 21 e7 20 a6 2d 36  |:*FX125...!. .-6|
000003e0  35 20 80 20 a6 2d 31 30  33 20 8c 20 f2 6c 6f 61  |5 . .-103 . .loa|
000003f0  64 3a 2a 46 58 31 32 35  0d 01 a4 11 e7 20 a6 2d  |d:*FX125..... .-|
00000400  38 37 20 f2 6e 6c 65 66  74 0d 01 ae 4c e7 20 a6  |87 .nleft...L. .|
00000410  2d 38 34 20 78 25 3d 73  70 63 25 2a 28 78 25 20  |-84 x%=spc%*(x% |
00000420  81 20 73 70 63 25 29 3a  79 25 3d 73 70 63 25 2a  |. spc%):y%=spc%*|
00000430  28 79 25 20 81 20 73 70  63 25 29 3a 73 74 70 25  |(y% . spc%):stp%|
00000440  3d 73 70 63 25 3a 6c 6f  63 6b 25 3d b9 3a 64 72  |=spc%:lock%=.:dr|
00000450  61 77 25 3d b9 0d 01 b8  12 e7 20 a6 2d 38 36 20  |aw%=...... .-86 |
00000460  6c 6f 63 6b 25 3d a3 0d  01 c2 44 e7 20 a6 2d 31  |lock%=....D. .-1|
00000470  20 80 20 ac 6c 6f 63 6b  25 20 73 74 70 25 3d 33  | . .lock% stp%=3|
00000480  32 20 8b e7 20 a6 2d 32  20 80 20 ac 6c 6f 63 6b  |2 .. .-2 . .lock|
00000490  25 20 73 74 70 25 3d 39  36 20 8b 20 e7 20 ac 6c  |% stp%=96 . . .l|
000004a0  6f 63 6b 25 20 73 74 70  25 3d 34 0d 01 cc 1b e7  |ock% stp%=4.....|
000004b0  20 a6 2d 39 39 20 e7 20  73 68 61 70 65 25 20 f2  | .-99 . shape% .|
000004c0  73 68 61 70 65 32 0d 01  d6 1c e7 20 a6 2d 31 30  |shape2..... .-10|
000004d0  31 20 63 6f 6c 25 3d 30  3a f2 66 6f 72 65 62 61  |1 col%=0:.foreba|
000004e0  63 6b 0d 01 e0 1e e7 20  a6 2d 36 38 20 63 6f 6c  |ck..... .-68 col|
000004f0  25 3d 4d 25 2d 33 3a f2  66 6f 72 65 62 61 63 6b  |%=M%-3:.foreback|
00000500  0d 01 ea 50 e7 20 a6 2d  35 35 20 78 25 3d 36 34  |...P. .-55 x%=64|
00000510  30 3a 79 25 3d 35 31 32  3a 64 72 61 77 25 3d b9  |0:y%=512:draw%=.|
00000520  3a e7 20 6c 6f 63 6b 25  20 78 25 3d 73 70 63 25  |:. lock% x%=spc%|
00000530  2a 28 78 25 20 81 20 73  70 63 25 29 3a 79 25 3d  |*(x% . spc%):y%=|
00000540  73 70 63 25 2a 28 79 25  20 81 20 73 70 63 25 29  |spc%*(y% . spc%)|
00000550  0d 01 f4 1b e7 20 a6 2d  33 36 20 73 68 61 70 65  |..... .-36 shape|
00000560  25 3d 31 3a f2 73 68 61  70 65 31 0d 01 fe 1b e7  |%=1:.shape1.....|
00000570  20 a6 2d 35 32 20 73 68  61 70 65 25 3d 33 3a f2  | .-52 shape%=3:.|
00000580  73 68 61 70 65 31 0d 02  08 1b e7 20 a6 2d 38 33  |shape1..... .-83|
00000590  20 73 68 61 70 65 25 3d  34 3a f2 73 68 61 70 65  | shape%=4:.shape|
000005a0  31 0d 02 12 1e e7 20 a6  2d 31 32 32 20 78 25 3d  |1..... .-122 x%=|
000005b0  78 25 2b 73 74 70 25 3a  64 72 61 77 25 3d b9 0d  |x%+stp%:draw%=..|
000005c0  02 1c 1d e7 20 a6 2d 32  36 20 78 25 3d 78 25 2d  |.... .-26 x%=x%-|
000005d0  73 74 70 25 3a 64 72 61  77 25 3d b9 0d 02 26 1d  |stp%:draw%=...&.|
000005e0  e7 20 a6 2d 35 38 20 79  25 3d 79 25 2b 73 74 70  |. .-58 y%=y%+stp|
000005f0  25 3a 64 72 61 77 25 3d  b9 0d 02 30 1d e7 20 a6  |%:draw%=...0.. .|
00000600  2d 34 32 20 79 25 3d 79  25 2d 73 74 70 25 3a 64  |-42 y%=y%-stp%:d|
00000610  72 61 77 25 3d b9 0d 02  3a 4d e7 20 a6 2d 31 20  |raw%=...:M. .-1 |
00000620  80 20 a6 2d 35 31 20 80  20 6e 75 6d 25 3e 2d 31  |. .-51 . num%>-1|
00000630  20 8c 20 73 68 61 70 65  25 3d 30 3a 6e 75 6d 25  | . shape%=0:num%|
00000640  3d 6e 75 6d 25 2d 31 3a  ff 22 46 58 20 31 32 35  |=num%-1:."FX 125|
00000650  22 20 8b 20 e7 20 a6 2d  31 20 80 20 a6 2d 35 31  |" . . .-1 . .-51|
00000660  20 ef 37 0d 02 44 13 e7  20 64 72 61 77 25 20 f2  | .7..D.. draw% .|
00000670  72 65 64 72 61 77 0d 02  4e 07 fd 20 30 0d 02 58  |redraw..N.. 0..X|
00000680  0c dd f2 72 65 64 72 61  77 0d 02 62 16 ec 6f 78  |...redraw..b..ox|
00000690  25 2d 31 36 2c 6f 79 25  2b 31 32 3a ef 34 33 0d  |%-16,oy%+12:.43.|
000006a0  02 6c 0a f2 63 72 6f 73  73 0d 02 76 14 e7 20 73  |.l..cross..v.. s|
000006b0  68 61 70 65 25 20 f2 64  72 61 77 73 68 0d 02 80  |hape% .drawsh...|
000006c0  05 e1 0d 02 8a 0c dd f2  73 68 61 70 65 31 0d 02  |........shape1..|
000006d0  94 1d e7 20 6e 75 6d 25  3d 6d 61 78 25 20 ef 37  |... num%=max% .7|
000006e0  3a 73 68 61 70 65 25 3d  30 3a e1 0d 02 9e 30 e7  |:shape%=0:....0.|
000006f0  20 6f 73 68 61 70 65 25  20 ec 73 78 25 28 6e 75  | oshape% .sx%(nu|
00000700  6d 25 29 2c 73 79 25 28  6e 75 6d 25 29 20 8b 20  |m%),sy%(num%) . |
00000710  6e 75 6d 25 3d 6e 75 6d  25 2b 31 0d 02 a8 16 e7  |num%=num%+1.....|
00000720  20 6f 73 68 61 70 65 25  3d 31 20 df 78 25 2c 79  | oshape%=1 .x%,y|
00000730  25 0d 02 b2 58 e7 20 6f  73 68 61 70 65 25 3d 32  |%...X. oshape%=2|
00000740  20 df 78 25 2c 79 25 3a  df 78 78 25 28 6e 75 6d  | .x%,y%:.xx%(num|
00000750  25 29 2c 78 79 25 28 6e  75 6d 25 29 3a df 73 78  |%),xy%(num%):.sx|
00000760  25 28 6e 75 6d 25 29 2c  73 79 25 28 6e 75 6d 25  |%(num%),sy%(num%|
00000770  29 3a f0 36 39 2c 78 78  25 28 6e 75 6d 25 29 2c  |):.69,xx%(num%),|
00000780  78 79 25 28 6e 75 6d 25  29 0d 02 bc 47 e7 20 6f  |xy%(num%)...G. o|
00000790  73 68 61 70 65 25 3d 33  20 df 73 78 25 28 6e 75  |shape%=3 .sx%(nu|
000007a0  6d 25 29 2c 79 25 3a df  78 25 2c 79 25 3a df 78  |m%),y%:.x%,y%:.x|
000007b0  25 2c 73 79 25 28 6e 75  6d 25 29 3a df 73 78 25  |%,sy%(num%):.sx%|
000007c0  28 6e 75 6d 25 29 2c 73  79 25 28 6e 75 6d 25 29  |(num%),sy%(num%)|
000007d0  0d 02 c6 1c e7 20 6f 73  68 61 70 65 25 3d 34 20  |..... oshape%=4 |
000007e0  f2 63 69 72 63 6f 75 74  6c 28 30 29 0d 02 d0 1d  |.circoutl(0)....|
000007f0  73 78 25 28 6e 75 6d 25  29 3d 78 25 3a 73 79 25  |sx%(num%)=x%:sy%|
00000800  28 6e 75 6d 25 29 3d 79  25 0d 02 da 18 e7 20 73  |(num%)=y%..... s|
00000810  68 61 70 65 25 3d 31 20  f0 36 39 2c 78 25 2c 79  |hape%=1 .69,x%,y|
00000820  25 0d 02 e4 05 e1 0d 02  ee 0c dd f2 73 68 61 70  |%...........shap|
00000830  65 32 0d 02 f8 59 e7 20  73 68 61 70 65 25 3d 31  |e2...Y. shape%=1|
00000840  20 73 68 61 70 65 25 3d  32 3a 78 78 25 28 6e 75  | shape%=2:xx%(nu|
00000850  6d 25 29 3d 78 25 3a 78  79 25 28 6e 75 6d 25 29  |m%)=x%:xy%(num%)|
00000860  3d 79 25 3a ec 73 78 25  28 6e 75 6d 25 29 2c 73  |=y%:.sx%(num%),s|
00000870  79 25 28 6e 75 6d 25 29  3a df 78 25 2c 79 25 3a  |y%(num%):.x%,y%:|
00000880  f2 77 61 69 74 28 35 30  29 3a e1 0d 03 02 30 66  |.wait(50):....0f|
00000890  78 25 28 6e 75 6d 25 29  3d 78 25 3a 66 79 25 28  |x%(num%)=x%:fy%(|
000008a0  6e 75 6d 25 29 3d 79 25  3a 74 79 70 65 25 28 6e  |num%)=y%:type%(n|
000008b0  75 6d 25 29 3d 73 68 61  70 65 25 0d 03 0c 28 e7  |um%)=shape%...(.|
000008c0  20 63 6f 6c 25 3d 30 20  74 79 70 65 25 28 6e 75  | col%=0 type%(nu|
000008d0  6d 25 29 3d 74 79 70 65  25 28 6e 75 6d 25 29 2b  |m%)=type%(num%)+|
000008e0  31 32 38 0d 03 16 0a f2  63 72 6f 73 73 0d 03 20  |128.....cross.. |
000008f0  1c e7 20 4d 25 3d 34 20  80 20 73 68 6f 77 25 3d  |.. M%=4 . show%=|
00000900  b9 20 8c 20 f2 67 72 69  64 0d 03 2a 0b e6 30 2c  |. . .grid..*..0,|
00000910  63 6f 6c 25 0d 03 34 88  e7 20 73 68 61 70 65 25  |col%..4.. shape%|
00000920  3d 32 20 ec 78 78 25 28  6e 75 6d 25 29 2c 78 79  |=2 .xx%(num%),xy|
00000930  25 28 6e 75 6d 25 29 3a  df 73 78 25 28 6e 75 6d  |%(num%):.sx%(num|
00000940  25 29 2c 73 79 25 28 6e  75 6d 25 29 3a df 78 25  |%),sy%(num%):.x%|
00000950  2c 79 25 3a df 78 78 25  28 6e 75 6d 25 29 2c 78  |,y%:.xx%(num%),x|
00000960  79 25 28 6e 75 6d 25 29  3a ec 73 78 25 28 6e 75  |y%(num%):.sx%(nu|
00000970  6d 25 29 2c 73 79 25 28  6e 75 6d 25 29 3a ec 78  |m%),sy%(num%):.x|
00000980  78 25 28 6e 75 6d 25 29  2c 78 79 25 28 6e 75 6d  |x%(num%),xy%(num|
00000990  25 29 3a f0 38 35 2c 78  25 2c 79 25 0d 03 3e 68  |%):.85,x%,y%..>h|
000009a0  e7 20 73 68 61 70 65 25  3d 33 20 ec 73 78 25 28  |. shape%=3 .sx%(|
000009b0  6e 75 6d 25 29 2c 73 79  25 28 6e 75 6d 25 29 3a  |num%),sy%(num%):|
000009c0  ec 73 78 25 28 6e 75 6d  25 29 2c 79 25 3a f0 38  |.sx%(num%),y%:.8|
000009d0  35 2c 78 25 2c 73 79 25  28 6e 75 6d 25 29 3a ec  |5,x%,sy%(num%):.|
000009e0  73 78 25 28 6e 75 6d 25  29 2c 79 25 3a ec 78 25  |sx%(num%),y%:.x%|
000009f0  2c 79 25 3a f0 38 35 2c  78 25 2c 73 79 25 28 6e  |,y%:.85,x%,sy%(n|
00000a00  75 6d 25 29 0d 03 48 18  e7 20 73 68 61 70 65 25  |um%)..H.. shape%|
00000a10  3d 34 20 f2 63 69 72 63  66 69 6c 6c 0d 03 52 11  |=4 .circfill..R.|
00000a20  e7 20 73 68 6f 77 25 20  f2 67 72 69 64 0d 03 5c  |. show% .grid..\|
00000a30  0f e6 33 2c 33 3a f2 63  72 6f 73 73 0d 03 66 0c  |..3,3:.cross..f.|
00000a40  73 68 61 70 65 25 3d 30  0d 03 70 05 e1 0d 03 7a  |shape%=0..p....z|
00000a50  0c dd f2 64 72 61 77 73  68 0d 03 84 18 ec 73 78  |...drawsh.....sx|
00000a60  25 28 6e 75 6d 25 29 2c  73 79 25 28 6e 75 6d 25  |%(num%),sy%(num%|
00000a70  29 0d 03 8e 33 e7 20 73  68 61 70 65 25 3d 31 20  |)...3. shape%=1 |
00000a80  df 6f 78 25 2c 6f 79 25  3a ec 73 78 25 28 6e 75  |.ox%,oy%:.sx%(nu|
00000a90  6d 25 29 2c 73 79 25 28  6e 75 6d 25 29 3a df 78  |m%),sy%(num%):.x|
00000aa0  25 2c 79 25 0d 03 98 6d  e7 20 73 68 61 70 65 25  |%,y%...m. shape%|
00000ab0  3d 32 20 df 6f 78 25 2c  6f 79 25 3a ec 78 78 25  |=2 .ox%,oy%:.xx%|
00000ac0  28 6e 75 6d 25 29 2c 78  79 25 28 6e 75 6d 25 29  |(num%),xy%(num%)|
00000ad0  3a df 6f 78 25 2c 6f 79  25 3a ec 73 78 25 28 6e  |:.ox%,oy%:.sx%(n|
00000ae0  75 6d 25 29 2c 73 79 25  28 6e 75 6d 25 29 3a df  |um%),sy%(num%):.|
00000af0  78 25 2c 79 25 3a ec 78  78 25 28 6e 75 6d 25 29  |x%,y%:.xx%(num%)|
00000b00  2c 78 79 25 28 6e 75 6d  25 29 3a df 78 25 2c 79  |,xy%(num%):.x%,y|
00000b10  25 0d 03 a2 82 e7 20 73  68 61 70 65 25 3d 33 20  |%..... shape%=3 |
00000b20  df 73 78 25 28 6e 75 6d  25 29 2c 6f 79 25 3a df  |.sx%(num%),oy%:.|
00000b30  6f 78 25 2c 6f 79 25 3a  df 6f 78 25 2c 73 79 25  |ox%,oy%:.ox%,sy%|
00000b40  28 6e 75 6d 25 29 3a df  73 78 25 28 6e 75 6d 25  |(num%):.sx%(num%|
00000b50  29 2c 73 79 25 28 6e 75  6d 25 29 3a df 73 78 25  |),sy%(num%):.sx%|
00000b60  28 6e 75 6d 25 29 2c 79  25 3a df 78 25 2c 79 25  |(num%),y%:.x%,y%|
00000b70  3a df 78 25 2c 73 79 25  28 6e 75 6d 25 29 3a df  |:.x%,sy%(num%):.|
00000b80  73 78 25 28 6e 75 6d 25  29 2c 73 79 25 28 6e 75  |sx%(num%),sy%(nu|
00000b90  6d 25 29 0d 03 ac 1b e7  20 73 68 61 70 65 25 3d  |m%)..... shape%=|
00000ba0  34 20 f2 63 69 72 63 6f  75 74 6c 28 31 29 0d 03  |4 .circoutl(1)..|
00000bb0  b6 05 e1 0d 03 c0 0d dd  f2 77 61 69 74 28 74 29  |.........wait(t)|
00000bc0  0d 03 ca 07 54 3d 91 0d  03 d4 0d f5 20 fd 20 91  |....T=...... . .|
00000bd0  3e 54 2b 74 0d 03 de 05  e1 0d 03 e8 0e dd f2 66  |>T+t...........f|
00000be0  6f 72 65 62 61 63 6b 0d  03 f2 0a f2 63 72 6f 73  |oreback.....cros|
00000bf0  73 0d 03 fc 46 e7 20 63  6f 6c 25 20 ef 32 33 2c  |s...F. col% .23,|
00000c00  34 33 2c 35 34 2c 31 31  39 2c 31 31 39 2c 38 2c  |43,54,119,119,8,|
00000c10  31 31 39 2c 31 31 39 2c  35 34 2c 30 20 8b 20 ef  |119,119,54,0 . .|
00000c20  32 33 2c 34 33 2c 38 2c  38 2c 38 2c 31 31 39 2c  |23,43,8,8,8,119,|
00000c30  38 2c 38 2c 38 2c 30 0d  04 06 0a f2 63 72 6f 73  |8,8,8,0.....cros|
00000c40  73 0d 04 10 05 e1 0d 04  1a 0a dd f2 73 61 76 65  |s...........save|
00000c50  0d 04 24 26 e7 20 28 73  68 61 70 65 25 20 80 20  |..$&. (shape% . |
00000c60  6e 75 6d 25 3d 30 29 20  84 20 6e 75 6d 25 3d 2d  |num%=0) . num%=-|
00000c70  31 20 ef 37 3a e1 0d 04  2e 21 e7 20 73 68 61 70  |1 .7:....!. shap|
00000c80  65 25 20 73 68 61 70 65  25 3d 30 3a 6e 75 6d 25  |e% shape%=0:num%|
00000c90  3d 6e 75 6d 25 2d 31 0d  04 38 06 ef 34 0d 04 42  |=num%-1..8..4..B|
00000ca0  09 2a 46 58 32 31 0d 04  4c 22 e8 8a 30 2c 30 29  |.*FX21..L"..0,0)|
00000cb0  22 46 69 6c 65 6e 61 6d  65 20 74 6f 20 73 61 76  |"Filename to sav|
00000cc0  65 22 3b 66 69 6c 65 24  0d 04 56 0f 66 25 3d ae  |e";file$..V.f%=.|
00000cd0  28 66 69 6c 65 24 29 0d  04 60 12 f1 27 22 53 61  |(file$)..`..'"Sa|
00000ce0  76 69 6e 67 2e 2e 2e 22  3b 0d 04 6a 0d f1 23 66  |ving...";..j..#f|
00000cf0  25 2c 6e 75 6d 25 0d 04  74 14 e3 20 64 61 74 61  |%,num%..t.. data|
00000d00  25 3d 30 20 b8 20 6e 75  6d 25 0d 04 7e 57 f1 23  |%=0 . num%..~W.#|
00000d10  66 25 2c 73 78 25 28 64  61 74 61 25 29 2c 73 79  |f%,sx%(data%),sy|
00000d20  25 28 64 61 74 61 25 29  2c 66 78 25 28 64 61 74  |%(data%),fx%(dat|
00000d30  61 25 29 2c 66 79 25 28  64 61 74 61 25 29 2c 78  |a%),fy%(data%),x|
00000d40  78 25 28 64 61 74 61 25  29 2c 78 79 25 28 64 61  |x%(data%),xy%(da|
00000d50  74 61 25 29 2c 74 79 70  65 25 28 64 61 74 61 25  |ta%),type%(data%|
00000d60  29 0d 04 88 05 ed 0d 04  92 08 d9 23 66 25 0d 04  |)..........#f%..|
00000d70  9c 06 ef 35 0d 04 a6 05  e1 0d 04 b0 0a dd f2 6c  |...5...........l|
00000d80  6f 61 64 0d 04 ba 0c 73  68 61 70 65 25 3d 30 0d  |oad....shape%=0.|
00000d90  04 c4 06 ef 34 0d 04 ce  09 2a 46 58 32 31 0d 04  |....4....*FX21..|
00000da0  d8 22 e8 8a 30 2c 30 29  22 46 69 6c 65 6e 61 6d  |."..0,0)"Filenam|
00000db0  65 20 74 6f 20 6c 6f 61  64 22 3b 66 69 6c 65 24  |e to load";file$|
00000dc0  0d 04 e2 0f 66 25 3d 8e  28 66 69 6c 65 24 29 0d  |....f%=.(file$).|
00000dd0  04 ec 13 f1 27 22 4c 6f  61 64 69 6e 67 2e 2e 2e  |....'"Loading...|
00000de0  22 3b 0d 04 f6 0d e8 23  66 25 2c 6e 75 6d 25 0d  |";.....#f%,num%.|
00000df0  05 00 14 e3 20 64 61 74  61 25 3d 30 20 b8 20 6e  |.... data%=0 . n|
00000e00  75 6d 25 0d 05 0a 57 e8  23 66 25 2c 73 78 25 28  |um%...W.#f%,sx%(|
00000e10  64 61 74 61 25 29 2c 73  79 25 28 64 61 74 61 25  |data%),sy%(data%|
00000e20  29 2c 66 78 25 28 64 61  74 61 25 29 2c 66 79 25  |),fx%(data%),fy%|
00000e30  28 64 61 74 61 25 29 2c  78 78 25 28 64 61 74 61  |(data%),xx%(data|
00000e40  25 29 2c 78 79 25 28 64  61 74 61 25 29 2c 74 79  |%),xy%(data%),ty|
00000e50  70 65 25 28 64 61 74 61  25 29 0d 05 14 05 ed 0d  |pe%(data%)......|
00000e60  05 1e 08 d9 23 66 25 0d  05 28 06 ef 35 0d 05 32  |....#f%..(..5..2|
00000e70  05 e1 0d 05 3c 15 dd f2  63 69 72 63 6f 75 74 6c  |....<...circoutl|
00000e80  28 66 75 6e 63 25 29 0d  05 46 11 65 78 25 3d 78  |(func%)..F.ex%=x|
00000e90  25 3a 65 79 25 3d 79 25  0d 05 50 11 e3 63 25 3d  |%:ey%=y%..P..c%=|
00000ea0  30 20 b8 20 66 75 6e 63  25 0d 05 5a 2f 6d 75 6c  |0 . func%..Z/mul|
00000eb0  74 3d b6 28 28 65 78 25  2d 73 78 25 28 6e 75 6d  |t=.((ex%-sx%(num|
00000ec0  25 29 29 5e 32 2b 28 65  79 25 2d 73 79 25 28 6e  |%))^2+(ey%-sy%(n|
00000ed0  75 6d 25 29 29 5e 32 29  0d 05 64 0f e3 64 6f 74  |um%))^2)..d..dot|
00000ee0  25 3d 30 20 b8 31 31 0d  05 6e 3d f0 36 39 2c 73  |%=0 .11..n=.69,s|
00000ef0  78 25 28 6e 75 6d 25 29  2b 6d 75 6c 74 2a 63 69  |x%(num%)+mult*ci|
00000f00  72 63 78 28 64 6f 74 25  29 2c 73 79 25 28 6e 75  |rcx(dot%),sy%(nu|
00000f10  6d 25 29 2b 6d 75 6c 74  2a 63 69 72 63 79 28 64  |m%)+mult*circy(d|
00000f20  6f 74 25 29 0d 05 78 05  ed 0d 05 82 13 65 78 25  |ot%)..x......ex%|
00000f30  3d 6f 78 25 3a 65 79 25  3d 6f 79 25 0d 05 8c 05  |=ox%:ey%=oy%....|
00000f40  ed 0d 05 96 05 e1 0d 05  a0 0e dd f2 63 69 72 63  |............circ|
00000f50  66 69 6c 6c 0d 05 aa 09  2a 46 58 32 31 0d 05 b4  |fill....*FX21...|
00000f60  08 e6 33 2c 33 0d 05 be  25 ec 38 30 2c 39 30 30  |..3,3...%.80,900|
00000f70  3a e8 22 4e 55 4d 42 45  52 20 4f 46 20 53 49 44  |:."NUMBER OF SID|
00000f80  45 53 20 22 3b 63 73 74  65 70 0d 05 c8 26 ec 38  |ES ";cstep...&.8|
00000f90  30 2c 39 30 30 3a f1 22  4e 55 4d 42 45 52 20 4f  |0,900:."NUMBER O|
00000fa0  46 20 53 49 44 45 53 20  3f 22 3b 63 73 74 65 70  |F SIDES ?";cstep|
00000fb0  0d 05 d2 13 78 78 25 28  6e 75 6d 25 29 3d 63 73  |....xx%(num%)=cs|
00000fc0  74 65 70 0d 05 dc 10 f2  63 69 72 63 6f 75 74 6c  |tep.....circoutl|
00000fd0  28 30 29 0d 05 e6 0b e6  30 2c 63 6f 6c 25 0d 05  |(0).....0,col%..|
00000fe0  f0 2c f2 63 69 72 63 6c  65 28 73 78 25 28 6e 75  |.,.circle(sx%(nu|
00000ff0  6d 25 29 2c 73 79 25 28  6e 75 6d 25 29 2c 78 25  |m%),sy%(num%),x%|
00001000  2c 79 25 2c 63 73 74 65  70 29 0d 05 fa 08 e6 33  |,y%,cstep).....3|
00001010  2c 33 0d 06 04 05 e1 0d  06 0e 23 dd f2 63 69 72  |,3........#..cir|
00001020  63 6c 65 28 73 78 25 2c  73 79 25 2c 66 78 25 2c  |cle(sx%,sy%,fx%,|
00001030  66 79 25 2c 63 73 74 65  70 29 0d 06 18 13 63 73  |fy%,cstep)....cs|
00001040  74 65 70 3d 32 2a af 2f  63 73 74 65 70 0d 06 22  |tep=2*./cstep.."|
00001050  23 6d 75 6c 74 3d b6 28  28 66 78 25 2d 73 78 25  |#mult=.((fx%-sx%|
00001060  29 5e 32 2b 28 66 79 25  2d 73 79 25 29 5e 32 29  |)^2+(fy%-sy%)^2)|
00001070  0d 06 2c 18 e3 61 6e 67  3d 30 20 b8 20 32 2a af  |..,..ang=0 . 2*.|
00001080  20 88 20 63 73 74 65 70  0d 06 36 2d ec 73 78 25  | . cstep..6-.sx%|
00001090  2c 73 79 25 3a ec 73 78  25 2b 6d 75 6c 74 2a 9b  |,sy%:.sx%+mult*.|
000010a0  28 61 6e 67 29 2c 73 79  25 2b 6d 75 6c 74 2a b5  |(ang),sy%+mult*.|
000010b0  28 61 6e 67 29 0d 06 40  33 f0 38 35 2c 73 78 25  |(ang)..@3.85,sx%|
000010c0  2b 6d 75 6c 74 2a 9b 28  61 6e 67 2b 63 73 74 65  |+mult*.(ang+cste|
000010d0  70 29 2c 73 79 25 2b 6d  75 6c 74 2a b5 28 61 6e  |p),sy%+mult*.(an|
000010e0  67 2b 63 73 74 65 70 29  0d 06 4a 05 ed 0d 06 54  |g+cstep)..J....T|
000010f0  05 e1 0d 06 5e 0b dd f2  6e 6c 65 66 74 0d 06 68  |....^...nleft..h|
00001100  39 ec 33 32 2b 33 30 34  2a 28 35 2d 4d 25 29 2c  |9.32+304*(5-M%),|
00001110  39 30 30 3a f1 c3 28 6d  61 78 25 2d 31 2d 6e 75  |900:..(max%-1-nu|
00001120  6d 25 29 3b 22 20 53 48  41 50 45 53 20 41 52 45  |m%);" SHAPES ARE|
00001130  20 4c 45 46 54 22 0d 06  72 09 2a 46 58 32 31 0d  | LEFT"..r.*FX21.|
00001140  06 7c 07 41 3d a5 0d 06  86 39 ec 33 32 2b 33 30  |.|.A=....9.32+30|
00001150  34 2a 28 35 2d 4d 25 29  2c 39 30 30 3a f1 c3 28  |4*(5-M%),900:..(|
00001160  6d 61 78 25 2d 31 2d 6e  75 6d 25 29 3b 22 20 53  |max%-1-num%);" S|
00001170  48 41 50 45 53 20 41 52  45 20 4c 45 46 54 22 0d  |HAPES ARE LEFT".|
00001180  06 90 05 e1 0d 06 9a 0a  dd f2 67 72 69 64 0d 06  |..........grid..|
00001190  a4 18 e7 20 4d 25 3d 34  20 8c 20 e6 33 2c 31 20  |... M%=4 . .3,1 |
000011a0  8b 20 e6 30 2c 31 0d 06  ae 17 e3 68 25 3d 30 20  |. .0,1.....h%=0 |
000011b0  b8 20 31 32 37 39 20 88  20 73 70 63 25 0d 06 b8  |. 1279 . spc%...|
000011c0  17 e3 76 25 3d 30 20 b8  20 31 30 32 34 20 88 20  |..v%=0 . 1024 . |
000011d0  73 70 63 25 0d 06 c2 0e  f0 20 36 39 2c 68 25 2c  |spc%..... 69,h%,|
000011e0  76 25 0d 06 cc 05 ed 0d  06 d6 05 ed 0d 06 e0 08  |v%..............|
000011f0  e6 33 2c 33 0d 06 ea 05  e1 0d 06 f4 0d dd f2 72  |.3,3...........r|
00001200  65 73 74 6f 72 65 0d 06  fe 05 db 0d 07 08 21 e7  |estore........!.|
00001210  20 73 68 61 70 65 25 20  73 68 61 70 65 25 3d 30  | shape% shape%=0|
00001220  3a 6e 75 6d 25 3d 6e 75  6d 25 2d 31 0d 07 12 0f  |:num%=num%-1....|
00001230  e7 20 6e 75 6d 25 3d 2d  31 20 e1 0d 07 1c 11 e3  |. num%=-1 ......|
00001240  20 6e 25 3d 30 20 b8 20  6e 75 6d 25 0d 07 26 22  | n%=0 . num%..&"|
00001250  e7 20 74 79 70 65 25 28  6e 25 29 80 31 32 38 20  |. type%(n%).128 |
00001260  e6 30 2c 30 20 8b 20 e6  30 2c 4d 25 2d 33 0d 07  |.0,0 . .0,M%-3..|
00001270  30 18 73 68 61 70 65 25  3d 74 79 70 65 25 28 6e  |0.shape%=type%(n|
00001280  25 29 80 31 32 37 0d 07  3a 44 e7 20 73 68 61 70  |%).127..:D. shap|
00001290  65 25 3d 32 20 ec 73 78  25 28 6e 25 29 2c 73 79  |e%=2 .sx%(n%),sy|
000012a0  25 28 6e 25 29 3a ec 78  78 25 28 6e 25 29 2c 78  |%(n%):.xx%(n%),x|
000012b0  79 25 28 6e 25 29 3a f0  38 35 2c 66 78 25 28 6e  |y%(n%):.85,fx%(n|
000012c0  25 29 2c 66 79 25 28 6e  25 29 0d 07 44 7a e7 20  |%),fy%(n%)..Dz. |
000012d0  73 68 61 70 65 25 3d 33  20 ec 73 78 25 28 6e 25  |shape%=3 .sx%(n%|
000012e0  29 2c 73 79 25 28 6e 25  29 3a ec 73 78 25 28 6e  |),sy%(n%):.sx%(n|
000012f0  25 29 2c 66 79 25 28 6e  25 29 3a f0 38 35 2c 66  |%),fy%(n%):.85,f|
00001300  78 25 28 6e 25 29 2c 73  79 25 28 6e 25 29 3a ec  |x%(n%),sy%(n%):.|
00001310  73 78 25 28 6e 25 29 2c  66 79 25 28 6e 25 29 3a  |sx%(n%),fy%(n%):|
00001320  ec 66 78 25 28 6e 25 29  2c 66 79 25 28 6e 25 29  |.fx%(n%),fy%(n%)|
00001330  3a f0 38 35 2c 66 78 25  28 6e 25 29 2c 73 79 25  |:.85,fx%(n%),sy%|
00001340  28 6e 25 29 0d 07 4e 3f  e7 20 73 68 61 70 65 25  |(n%)..N?. shape%|
00001350  3d 34 20 f2 63 69 72 63  6c 65 28 73 78 25 28 6e  |=4 .circle(sx%(n|
00001360  25 29 2c 73 79 25 28 6e  25 29 2c 66 78 25 28 6e  |%),sy%(n%),fx%(n|
00001370  25 29 2c 66 79 25 28 6e  25 29 2c 78 78 25 28 6e  |%),fy%(n%),xx%(n|
00001380  25 29 29 0d 07 58 05 ed  0d 07 62 0c 73 68 61 70  |%))..X....b.shap|
00001390  65 25 3d 30 0d 07 6c 05  e1 0d 07 76 0a dd f2 71  |e%=0..l....v...q|
000013a0  75 69 74 0d 07 80 09 2a  46 58 32 31 0d 07 8a 0b  |uit....*FX21....|
000013b0  ec 38 30 2c 39 30 30 0d  07 94 16 e8 22 52 65 61  |.80,900....."Rea|
000013c0  6c 6c 79 20 51 55 49 54  22 3b 79 6e 24 0d 07 9e  |lly QUIT";yn$...|
000013d0  34 e7 20 a7 22 59 79 22  2c c0 79 6e 24 2c 31 29  |4. ."Yy",.yn$,1)|
000013e0  29 3d 30 20 ec 38 30 2c  39 30 30 3a f1 22 52 65  |)=0 .80,900:."Re|
000013f0  61 6c 6c 79 20 51 55 49  54 3f 22 3b 79 6e 24 3a  |ally QUIT?";yn$:|
00001400  e1 0d 07 a8 08 2a 46 58  34 0d 07 b2 0b d7 22 4d  |.....*FX4....."M|
00001410  65 6e 75 22 0d 07 bc 0b  dd f2 63 72 6f 73 73 0d  |enu"......cross.|
00001420  07 c6 10 ec 78 25 2d 31  36 2c 79 25 2b 31 32 0d  |....x%-16,y%+12.|
00001430  07 d0 07 ef 34 33 0d 07  da 05 e1 0d ff           |....43.......|
0000143d
P/Shaper.m0
P/Shaper.m1
P/Shaper.m2
P/Shaper.m4
P/Shaper.m5

© Dominic Ford 2021–2024.

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