Home » Personal collection » Commodore disks » disk65a_programs_1.d64 » moire

moire

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 » Commodore disks » disk65a_programs_1.d64
Filename: moire
Read OK:
File size: 0634 bytes
Load address: 0801
Exec address: 0000
Duplicates

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

File contents
    40 S=16:B=3:C=8:SM=1024
    45 POKE53272,(PEEK(53272) AND 15) OR S
    50 POKE56578,PEEK(56578) OR 3
    55 POKE56576,(PEEK(56576) AND 252) ORB
    60 X=C*1024:H=INT(X/256):L=X-256*H
    65 POKE51,L:POKE52,H
    70 POKE55,L:POKE56,H
    75 POKE53272,(PEEK(53272) AND 241) ORC
    80 POKE53265,PEEK(53265) OR 32
    85 FOR J=SM TO SM+999
    90 POKEJ,1
    95 NEXT
   100 FOR J=X TO X+7999
   105 POKE J,0
   110 NEXT
   111 GOTO 3000
   180 POKE53265,PEEK(53265)AND223
   185 POKE53272,(PEEK(53272)AND240)OR4
   190 STOP
  1000 BYTE=X+7687-320*INT(RB/8)-(RBAND7)+INT(CB/8)*8
  1005 BIT=7-(CBAND7)
  1010 POKE BYTE,PEEK(BYTE) OR 2^BIT
  1015 RETURN
  2000 BYTE=X+7687-320*INT(RB/8)-(RBAND7)+INT(CB/8)*8
  2005 BIT=7-(CBAND7)
  2010 POKE BYTE,PEEK(BYTE) AND 255-2^BIT
  2015 RETURN
  3000 PL=1:S=1:AX=20:BX=305:Y=15:GOSUB4000:PL=0:S=-1
  3005 GOTO 3005
  3010 DIMTR(1,145,2):TR(0,0,0)=20:TR(0,0,1)=305:TR(0,0,2)=15:TR=0:A=0
  3020 FORT=1TOTR:AX=TR(A,T,0):BX=TR(A,T,1):Y=TR(A,T,2)
  3030 AX=AX+((BX-AX)/4):BX=BX-((BX-AX)/4):Y=Y+((BX-AX)/4)
  3040 TR(ABS(SGN(A-1)),T*3,0)=AX
  3050 TR(ABS(SGN(A-1)),T*3,1)=BX-(BX-AX)/2
  3060 TR(ABS(SGN(A-1)),T*3,2)=Y
  3070 TR(ABS(SGN(A-1)),T*3+1,0)=AX+(BX-AX)/2
  3080 TR(ABS(SGN(A-1)),T*3+1,1)=BX
  3090 TR(ABS(SGN(A-1)),T*3+1,2)=Y
  3100 TR(ABS(SGN(A-1)),T*3+2,0)=AX+(BX-AX)/4
  3110 TR(ABS(SGN(TR-1)),T*3+2,1)=BX-(BX-AX)/4
  3120 TR(ABS(SGN(A-1)),T*3+2,2)=Y+(BX-AX)/4
  3130 AX=AX+(BX-AX)/4:BX=BX-(BX-AX)/4
  3140 Y=Y+(BX-AX)/4:GOSUB4000
  3150 NEXT:A=ABS(SGN(TR-1)):TR=(TR+1)*3-1
  3160 IFTR>150THEN3160
  3170 GOTO3020
  4000 IFS=1THENX1=AX+(BX-AX)/2:Y1=Y+(BX-AX)/2
  4010 IFS=-1THENX1=AX+(BX-AX)/2:Y1=Y-(BX-AX)/2
  4020 Y2=Y:FORX2=AXTOBX:GOSUB5000
  4030 NEXT:RETURN
  5000 IFX1<>X2THENM=(Y2-Y1)/(X2-X1):C=Y1-M*X1
  5010 IFABS(X2-X1)>ABS(Y2-Y1)THEN5210
  5020 IFX1=X2THENRETURN
  5030 FORCB=X1TOX2STEP2*SGN(X2-X1)
  5040 RB=M*CB+C
  5050 IFPL=1THENGOSUB1000
  5055 IFPL=0THENGOSUB2000
  5060 NEXT:RETURN
  5210 FORRB=Y1TOY2STEPSGN(Y2-Y1)
  5220 CB=X1:IFX1<>X2THENCB=(RB/C)/M
  5230 IFPL=1THENGOSUB1000
  5240 IFPL=0THENGOSUB2000
  5250 NEXT:RETURN

(S�16:B�3:C�8:SM�10249-�53272,(�(53272) � 15) � SQ2�56578,�(56578) � 3p7�56576,(�(56576) � 252) �B�<X�C�1024:H��(X�256):L�X�256�H�A�51,L:�52,H�F�55,L:�56,H�K�53272,(�(53272) � 241) �C�P�53265,�(53265) � 32�U� J�SM � SM�999	Z�J,1
	_� 	d� J�X � X�7999*	i� J,00	n�;	o� 3000S	��53265,�(53265)�223o	��53272,(�(53272)�240)�4u	���	�BYTE�X�7687�320��(RB�8)�(RB�7)��(CB�8)�8�	�BIT�7�(CB�7)�	�� BYTE,�(BYTE) � 2�BIT�	��
�BYTE�X�7687�320��(RB�8)�(RB�7)��(CB�8)�8
�BIT�7�(CB�7)1
�� BYTE,�(BYTE) � 255�2�BIT7
��f
�PL�1:S�1:AX�20:BX�305:Y�15:�4000:PL�0:S��1q
�� 3005�
��TR(1,145,2):TR(0,0,0)�20:TR(0,0,1)�305:TR(0,0,2)�15:TR�0:A�0�
��T�1�TR:AX�TR(A,T,0):BX�TR(A,T,1):Y�TR(A,T,2)�AX�AX�((BX�AX)�4):BX�BX�((BX�AX)�4):Y�Y�((BX�AX)�4)8�TR(�(�(A�1)),T�3,0)�AX]�TR(�(�(A�1)),T�3,1)�BX�(BX�AX)�2w�TR(�(�(A�1)),T�3,2)�Y��TR(�(�(A�1)),T�3�1,0)�AX�(BX�AX)�2�TR(�(�(A�1)),T�3�1,1)�BX�TR(�(�(A�1)),T�3�1,2)�Y�TR(�(�(A�1)),T�3�2,0)�AX�(BX�AX)�4&&TR(�(�(TR�1)),T�3�2,1)�BX�(BX�AX)�4L0TR(�(�(A�1)),T�3�2,2)�Y�(BX�AX)�4p:AX�AX�(BX�AX)�4:BX�BX�(BX�AX)�4�DY�Y�(BX�AX)�4:�4000�N�:A��(�(TR�1)):TR�(TR�1)�3�1�X�TR�150�3160�b�3020���S�1�X1�AX�(BX�AX)�2:Y1�Y�(BX�AX)�2
��S��1�X1�AX�(BX�AX)�2:Y1�Y�(BX�AX)�2.
�Y2�Y:�X2�AX�BX:�50006
��:�^
��X1��X2�M�(Y2�Y1)�(X2�X1):C�Y1�M�X1z
���(X2�X1)��(Y2�Y1)�5210�
��X1�X2���
��CB�X1�X2�2��(X2�X1)�
�RB�M�CB�C�
��PL�1��1000�
��PL�0��2000�
��:��
Z�RB�Y1�Y2��(Y2�Y1)dCB�X1:�X1��X2�CB�(RB�C)�Mn�PL�1��1000+x�PL�0��20003��:�
ZH(@s.16:b.3:c.8:sm.1024@9H-@.53272,(.(53272) . 15) . s@qH2@.56578,.(56578) . 3@PH7@.56576,(.(56576) . 252) .b@.H<@x.c.1024:h..(x.256):l.x.256.h@.Ha@.51,l:.52,h@.Hf@.55,l:.56,h@.Hk@.53272,(.(53272) . 241) .c@.Hp@.53265,.(53265) . 32@.Hu@. j.sm . sm.999@GIz@.j,1@MI.@.@ ID@. j.x . x.7999@*II@. j,0@0IN@.@;IO@. 3000@sI.@.53265,.(53265).223@OI.@.53272,(.(53272).240).4@UI.@.@.I.Cbyte.x.7687.320..(rb.8).(rb.7)..(cb.8).8@.I.Cbit.7.(cb.7)@.I.C. byte,.(byte) . 2.bit@.I.C.@AJ.Gbyte.x.7687.320..(rb.8).(rb.7)..(cb.8).8@RJ.Gbit.7.(cb.7)@1J.G. byte,.(byte) . 255.2.bit@7J.G.@FJ.Kpl.1:s.1:ax.20:bx.305:y.15:.4000:pl.0:s..1@QJ.K. 3005@.J.K.tr(1,145,2):tr(0,0,0).20:tr(0,0,1).305:tr(0,0,2).15:tr.0:a.0@.J.K.t.1.tr:ax.tr(a,t,0):bx.tr(a,t,1):y.tr(a,t,2)@]K.Kax.ax.((bx.ax).4):bx.bx.((bx.ax).4):y.y.((bx.ax).4)@8K.Ktr(.(.(a.1)),t.3,0).ax@]K.Ktr(.(.(a.1)),t.3,1).bx.(bx.ax).2@WK.Ktr(.(.(a.1)),t.3,2).y@.K.Ktr(.(.(a.1)),t.3.1,0).ax.(bx.ax).2@.KHLtr(.(.(a.1)),t.3.1,1).bx@.KRLtr(.(.(a.1)),t.3.1,2).y@.K£Ltr(.(.(a.1)),t.3.2,0).ax.(bx.ax).4@&L&Ltr(.(.(tr.1)),t.3.2,1).bx.(bx.ax).4@lL0Ltr(.(.(a.1)),t.3.2,2).y.(bx.ax).4@PL:Lax.ax.(bx.ax).4:bx.bx.(bx.ax).4@.LdLy.y.(bx.ax).4:.4000@.LnL.:a..(.(tr.1)):tr.(tr.1).3.1@.LxL.tr.150.3160@.LBL.3020@.L.O.s.1.x1.ax.(bx.ax).2:y1.y.(bx.ax).2@UM.O.s..1.x1.ax.(bx.ax).2:y1.y.(bx.ax).2@.M.Oy2.y:.x2.ax.bx:.5000@6M.O.:.@.M.S.x1..x2.m.(y2.y1).(x2.x1):c.y1.m.x1@ZM.S..(x2.x1)..(y2.y1).5210@.M.S.x1.x2..@.M.S.cb.x1.x2.2..(x2.x1)@.M.Srb.m.cb.c@.M.S.pl.1..1000@.M.S.pl.0..2000@.M.S.:.@.MzT.rb.y1.y2..(y2.y1)@KNDTcb.x1:.x1..x2.cb.(rb.c).m@[NNT.pl.1..1000@+NXT.pl.0..2000@3N.T.:.@@@
00000000  1a 08 28 00 53 b2 31 36  3a 42 b2 33 3a 43 b2 38  |..(.S.16:B.3:C.8|
00000010  3a 53 4d b2 31 30 32 34  00 39 08 2d 00 97 35 33  |:SM.1024.9.-..53|
00000020  32 37 32 2c 28 c2 28 35  33 32 37 32 29 20 af 20  |272,(.(53272) . |
00000030  31 35 29 20 b0 20 53 00  51 08 32 00 97 35 36 35  |15) . S.Q.2..565|
00000040  37 38 2c c2 28 35 36 35  37 38 29 20 b0 20 33 00  |78,.(56578) . 3.|
00000050  70 08 37 00 97 35 36 35  37 36 2c 28 c2 28 35 36  |p.7..56576,(.(56|
00000060  35 37 36 29 20 af 20 32  35 32 29 20 b0 42 00 92  |576) . 252) .B..|
00000070  08 3c 00 58 b2 43 ac 31  30 32 34 3a 48 b2 b5 28  |.<.X.C.1024:H..(|
00000080  58 ad 32 35 36 29 3a 4c  b2 58 ab 32 35 36 ac 48  |X.256):L.X.256.H|
00000090  00 a2 08 41 00 97 35 31  2c 4c 3a 97 35 32 2c 48  |...A..51,L:.52,H|
000000a0  00 b2 08 46 00 97 35 35  2c 4c 3a 97 35 36 2c 48  |...F..55,L:.56,H|
000000b0  00 d1 08 4b 00 97 35 33  32 37 32 2c 28 c2 28 35  |...K..53272,(.(5|
000000c0  33 32 37 32 29 20 af 20  32 34 31 29 20 b0 43 00  |3272) . 241) .C.|
000000d0  ea 08 50 00 97 35 33 32  36 35 2c c2 28 35 33 32  |..P..53265,.(532|
000000e0  36 35 29 20 b0 20 33 32  00 fe 08 55 00 81 20 4a  |65) . 32...U.. J|
000000f0  b2 53 4d 20 a4 20 53 4d  aa 39 39 39 00 07 09 5a  |.SM . SM.999...Z|
00000100  00 97 4a 2c 31 00 0d 09  5f 00 82 00 20 09 64 00  |..J,1..._... .d.|
00000110  81 20 4a b2 58 20 a4 20  58 aa 37 39 39 39 00 2a  |. J.X . X.7999.*|
00000120  09 69 00 97 20 4a 2c 30  00 30 09 6e 00 82 00 3b  |.i.. J,0.0.n...;|
00000130  09 6f 00 89 20 33 30 30  30 00 53 09 b4 00 97 35  |.o.. 3000.S....5|
00000140  33 32 36 35 2c c2 28 35  33 32 36 35 29 af 32 32  |3265,.(53265).22|
00000150  33 00 6f 09 b9 00 97 35  33 32 37 32 2c 28 c2 28  |3.o....53272,(.(|
00000160  35 33 32 37 32 29 af 32  34 30 29 b0 34 00 75 09  |53272).240).4.u.|
00000170  be 00 90 00 a2 09 e8 03  42 59 54 45 b2 58 aa 37  |........BYTE.X.7|
00000180  36 38 37 ab 33 32 30 ac  b5 28 52 42 ad 38 29 ab  |687.320..(RB.8).|
00000190  28 52 42 af 37 29 aa b5  28 43 42 ad 38 29 ac 38  |(RB.7)..(CB.8).8|
000001a0  00 b3 09 ed 03 42 49 54  b2 37 ab 28 43 42 af 37  |.....BIT.7.(CB.7|
000001b0  29 00 ce 09 f2 03 97 20  42 59 54 45 2c c2 28 42  |)...... BYTE,.(B|
000001c0  59 54 45 29 20 b0 20 32  ae 42 49 54 00 d4 09 f7  |YTE) . 2.BIT....|
000001d0  03 8e 00 01 0a d0 07 42  59 54 45 b2 58 aa 37 36  |.......BYTE.X.76|
000001e0  38 37 ab 33 32 30 ac b5  28 52 42 ad 38 29 ab 28  |87.320..(RB.8).(|
000001f0  52 42 af 37 29 aa b5 28  43 42 ad 38 29 ac 38 00  |RB.7)..(CB.8).8.|
00000200  12 0a d5 07 42 49 54 b2  37 ab 28 43 42 af 37 29  |....BIT.7.(CB.7)|
00000210  00 31 0a da 07 97 20 42  59 54 45 2c c2 28 42 59  |.1.... BYTE,.(BY|
00000220  54 45 29 20 af 20 32 35  35 ab 32 ae 42 49 54 00  |TE) . 255.2.BIT.|
00000230  37 0a df 07 8e 00 66 0a  b8 0b 50 4c b2 31 3a 53  |7.....f...PL.1:S|
00000240  b2 31 3a 41 58 b2 32 30  3a 42 58 b2 33 30 35 3a  |.1:AX.20:BX.305:|
00000250  59 b2 31 35 3a 8d 34 30  30 30 3a 50 4c b2 30 3a  |Y.15:.4000:PL.0:|
00000260  53 b2 ab 31 00 71 0a bd  0b 89 20 33 30 30 35 00  |S..1.q.... 3005.|
00000270  b3 0a c2 0b 86 54 52 28  31 2c 31 34 35 2c 32 29  |.....TR(1,145,2)|
00000280  3a 54 52 28 30 2c 30 2c  30 29 b2 32 30 3a 54 52  |:TR(0,0,0).20:TR|
00000290  28 30 2c 30 2c 31 29 b2  33 30 35 3a 54 52 28 30  |(0,0,1).305:TR(0|
000002a0  2c 30 2c 32 29 b2 31 35  3a 54 52 b2 30 3a 41 b2  |,0,2).15:TR.0:A.|
000002b0  30 00 e5 0a cc 0b 81 54  b2 31 a4 54 52 3a 41 58  |0......T.1.TR:AX|
000002c0  b2 54 52 28 41 2c 54 2c  30 29 3a 42 58 b2 54 52  |.TR(A,T,0):BX.TR|
000002d0  28 41 2c 54 2c 31 29 3a  59 b2 54 52 28 41 2c 54  |(A,T,1):Y.TR(A,T|
000002e0  2c 32 29 00 1d 0b d6 0b  41 58 b2 41 58 aa 28 28  |,2).....AX.AX.((|
000002f0  42 58 ab 41 58 29 ad 34  29 3a 42 58 b2 42 58 ab  |BX.AX).4):BX.BX.|
00000300  28 28 42 58 ab 41 58 29  ad 34 29 3a 59 b2 59 aa  |((BX.AX).4):Y.Y.|
00000310  28 28 42 58 ab 41 58 29  ad 34 29 00 38 0b e0 0b  |((BX.AX).4).8...|
00000320  54 52 28 b6 28 b4 28 41  ab 31 29 29 2c 54 ac 33  |TR(.(.(A.1)),T.3|
00000330  2c 30 29 b2 41 58 00 5d  0b ea 0b 54 52 28 b6 28  |,0).AX.]...TR(.(|
00000340  b4 28 41 ab 31 29 29 2c  54 ac 33 2c 31 29 b2 42  |.(A.1)),T.3,1).B|
00000350  58 ab 28 42 58 ab 41 58  29 ad 32 00 77 0b f4 0b  |X.(BX.AX).2.w...|
00000360  54 52 28 b6 28 b4 28 41  ab 31 29 29 2c 54 ac 33  |TR(.(.(A.1)),T.3|
00000370  2c 32 29 b2 59 00 9e 0b  fe 0b 54 52 28 b6 28 b4  |,2).Y.....TR(.(.|
00000380  28 41 ab 31 29 29 2c 54  ac 33 aa 31 2c 30 29 b2  |(A.1)),T.3.1,0).|
00000390  41 58 aa 28 42 58 ab 41  58 29 ad 32 00 bb 0b 08  |AX.(BX.AX).2....|
000003a0  0c 54 52 28 b6 28 b4 28  41 ab 31 29 29 2c 54 ac  |.TR(.(.(A.1)),T.|
000003b0  33 aa 31 2c 31 29 b2 42  58 00 d7 0b 12 0c 54 52  |3.1,1).BX.....TR|
000003c0  28 b6 28 b4 28 41 ab 31  29 29 2c 54 ac 33 aa 31  |(.(.(A.1)),T.3.1|
000003d0  2c 32 29 b2 59 00 fe 0b  1c 0c 54 52 28 b6 28 b4  |,2).Y.....TR(.(.|
000003e0  28 41 ab 31 29 29 2c 54  ac 33 aa 32 2c 30 29 b2  |(A.1)),T.3.2,0).|
000003f0  41 58 aa 28 42 58 ab 41  58 29 ad 34 00 26 0c 26  |AX.(BX.AX).4.&.&|
00000400  0c 54 52 28 b6 28 b4 28  54 52 ab 31 29 29 2c 54  |.TR(.(.(TR.1)),T|
00000410  ac 33 aa 32 2c 31 29 b2  42 58 ab 28 42 58 ab 41  |.3.2,1).BX.(BX.A|
00000420  58 29 ad 34 00 4c 0c 30  0c 54 52 28 b6 28 b4 28  |X).4.L.0.TR(.(.(|
00000430  41 ab 31 29 29 2c 54 ac  33 aa 32 2c 32 29 b2 59  |A.1)),T.3.2,2).Y|
00000440  aa 28 42 58 ab 41 58 29  ad 34 00 70 0c 3a 0c 41  |.(BX.AX).4.p.:.A|
00000450  58 b2 41 58 aa 28 42 58  ab 41 58 29 ad 34 3a 42  |X.AX.(BX.AX).4:B|
00000460  58 b2 42 58 ab 28 42 58  ab 41 58 29 ad 34 00 88  |X.BX.(BX.AX).4..|
00000470  0c 44 0c 59 b2 59 aa 28  42 58 ab 41 58 29 ad 34  |.D.Y.Y.(BX.AX).4|
00000480  3a 8d 34 30 30 30 00 a9  0c 4e 0c 82 3a 41 b2 b6  |:.4000...N..:A..|
00000490  28 b4 28 54 52 ab 31 29  29 3a 54 52 b2 28 54 52  |(.(TR.1)):TR.(TR|
000004a0  aa 31 29 ac 33 ab 31 00  ba 0c 58 0c 8b 54 52 b1  |.1).3.1...X..TR.|
000004b0  31 35 30 a7 33 31 36 30  00 c4 0c 62 0c 89 33 30  |150.3160...b..30|
000004c0  32 30 00 ec 0c a0 0f 8b  53 b2 31 a7 58 31 b2 41  |20......S.1.X1.A|
000004d0  58 aa 28 42 58 ab 41 58  29 ad 32 3a 59 31 b2 59  |X.(BX.AX).2:Y1.Y|
000004e0  aa 28 42 58 ab 41 58 29  ad 32 00 15 0d aa 0f 8b  |.(BX.AX).2......|
000004f0  53 b2 ab 31 a7 58 31 b2  41 58 aa 28 42 58 ab 41  |S..1.X1.AX.(BX.A|
00000500  58 29 ad 32 3a 59 31 b2  59 ab 28 42 58 ab 41 58  |X).2:Y1.Y.(BX.AX|
00000510  29 ad 32 00 2e 0d b4 0f  59 32 b2 59 3a 81 58 32  |).2.....Y2.Y:.X2|
00000520  b2 41 58 a4 42 58 3a 8d  35 30 30 30 00 36 0d be  |.AX.BX:.5000.6..|
00000530  0f 82 3a 8e 00 5e 0d 88  13 8b 58 31 b3 b1 58 32  |..:..^....X1..X2|
00000540  a7 4d b2 28 59 32 ab 59  31 29 ad 28 58 32 ab 58  |.M.(Y2.Y1).(X2.X|
00000550  31 29 3a 43 b2 59 31 ab  4d ac 58 31 00 7a 0d 92  |1):C.Y1.M.X1.z..|
00000560  13 8b b6 28 58 32 ab 58  31 29 b1 b6 28 59 32 ab  |...(X2.X1)..(Y2.|
00000570  59 31 29 a7 35 32 31 30  00 87 0d 9c 13 8b 58 31  |Y1).5210......X1|
00000580  b2 58 32 a7 8e 00 a0 0d  a6 13 81 43 42 b2 58 31  |.X2........CB.X1|
00000590  a4 58 32 a9 32 ac b4 28  58 32 ab 58 31 29 00 ae  |.X2.2..(X2.X1)..|
000005a0  0d b0 13 52 42 b2 4d ac  43 42 aa 43 00 be 0d ba  |...RB.M.CB.C....|
000005b0  13 8b 50 4c b2 31 a7 8d  31 30 30 30 00 ce 0d bf  |..PL.1..1000....|
000005c0  13 8b 50 4c b2 30 a7 8d  32 30 30 30 00 d6 0d c4  |..PL.0..2000....|
000005d0  13 82 3a 8e 00 ed 0d 5a  14 81 52 42 b2 59 31 a4  |..:....Z..RB.Y1.|
000005e0  59 32 a9 b4 28 59 32 ab  59 31 29 00 0b 0e 64 14  |Y2..(Y2.Y1)...d.|
000005f0  43 42 b2 58 31 3a 8b 58  31 b3 b1 58 32 a7 43 42  |CB.X1:.X1..X2.CB|
00000600  b2 28 52 42 ad 43 29 ad  4d 00 1b 0e 6e 14 8b 50  |.(RB.C).M...n..P|
00000610  4c b2 31 a7 8d 31 30 30  30 00 2b 0e 78 14 8b 50  |L.1..1000.+.x..P|
00000620  4c b2 30 a7 8d 32 30 30  30 00 33 0e 82 14 82 3a  |L.0..2000.3....:|
00000630  8e 00 00 00                                       |....|
00000634