(FILECREATED "18-MAR-83 15:01:46" {ICE}<DENBER>LISP>SAMPLER.;6 16222
changes to: (VARS SWINDOW SAMPLERCOMS GRAFIXLOGO)
(FNS SAMPLER SINEDEMO MOVEOBJ DIFFRAC RWALK FLY STAR18)
previous date: "18-MAR-83 11:40:46" {ICE}<DENBER>LISP>SAMPLER.;1)
(PRETTYCOMPRINT SAMPLERCOMS)
(RPAQQ SAMPLERCOMS ((VARS GRAFIXLOGO SWINDOW)
(FNS DIFFRAC ERASEOBJ FLY MOVEOBJ PAINTOBJ RWALK SAMPLER STAR18 SINEDEMO)
(BITMAPS GRAFIXLOGO MAN MAN1 NYLOGO FROMLOGO SOFTWARELOGO)))
(RPAQQ GRAFIXLOGO {BITMAP}#11,16170)
(RPAQQ SWINDOW NIL)
(DEFINEQ
(DIFFRAC
[LAMBDA NIL (* edited: "18-MAR-83 12:46")
(PROG (R)
(for R from 200 to 50 by -2
do (DRAWCIRCLE 220 225 R 1 NIL SSTREAM)
(DRAWCIRCLE 240 225 R 1 NIL SSTREAM])
(ERASEOBJ
[LAMBDA (OBJ X Y W H STREAM) (* MD " 8-DEC-82 13:59")
(BITBLT OBJ NIL NIL STREAM X Y W H NIL (QUOTE ERASE)
NIL NIL])
(FLY
[LAMBDA NIL (* edited: "18-MAR-83 11:49")
(PROG (XMAX X Y)
(SETQ XMAX 400)
(for Y from 20 to XMAX by 4 do (DRAWLINE 20 20 XMAX Y 1 (QUOTE PAINT)
SSTREAM))
(for Y from 20 to XMAX by 4 do (DRAWLINE XMAX 20 20 Y 1 (QUOTE PAINT)
SSTREAM])
(MOVEOBJ
[LAMBDA (OBJ OLDOBJ X1 Y1 X2 Y2 W H STREAM) (* MD " 8-DEC-82 13:56")
(ERASEOBJ OLDOBJ X1 Y1 W H STREAM)
(PAINTOBJ OBJ X2 Y2 W H STREAM)
(SETQ OLDOBJ OBJ])
(PAINTOBJ
[LAMBDA (OBJ X Y W H STREAM) (* MD " 8-DEC-82 14:04")
(BITBLT OBJ NIL NIL STREAM X Y W H NIL (QUOTE PAINT)
NIL NIL])
(RWALK
[LAMBDA NIL (* edited: "18-MAR-83 12:03")
(PROG (I X Y)
(SETQ X 250)
(SETQ Y 250)
(PRIN1 "RAND takes a walk..." SSTREAM)
(for I from 1 to 5000
do (BITMAPBIT SWINDOW X Y 1)
(SETQ X (IPLUS X (RAND -2 2)))
(SETQ Y (IPLUS Y (RAND -2 2])
(SAMPLER
[LAMBDA NIL (* edited: "18-MAR-83 13:43")
[CLEARW (OR SWINDOW
(PROG1 (SETQ SWINDOW
(CREATEW (create REGION
LEFT ← 100
BOTTOM ← 100
WIDTH ← 500
HEIGHT ← 500)
"Michel's Sampler" NIL]
(SETQ SSTREAM (DECODE/WINDOW/OR/DISPLAYSTREAM SWINDOW NIL "Michel's Sampler" NIL))
(for Y from 500 to 200 by -1 do (MOVEOBJ SOFTWARELOGO SOFTWARELOGO 50 Y 50 (SUB1 Y)
128 32 SSTREAM))
(PAINTOBJ FROMLOGO 150 200 32 32 SSTREAM)
(for X from 400 to 200 by -1 do (MOVEOBJ NYLOGO NYLOGO X 200 (SUB1 X)
200 128 32 SSTREAM))
(MOVETO 200 170 SSTREAM)
(PRIN1 "PRESENTS" SSTREAM)
(for X from 1 to 100 by 2
do (MOVEOBJ MAN MAN1 X 1 (ADD1 X)
1 32 64 SSTREAM)
(DISMISS 20)
(MOVEOBJ MAN1 MAN (ADD1 X)
1
(IPLUS X 2)
1 32 64 SSTREAM)
(DISMISS 20))
(for X from 1 to 20
do (ERASEOBJ GRAFIXLOGO 150 1 128 128 SSTREAM)
(DISMISS 50)
(PAINTOBJ GRAFIXLOGO 150 1 128 128 SSTREAM)
(DISMISS 100))
(DISMISS 2000)
(CLEARW SWINDOW)
(DIFFRAC)
(DISMISS 2000)
(CLEARW SWINDOW)
(FLY)
(DISMISS 2000)
(CLEARW SWINDOW)
(SINEDEMO)
(DISMISS 2000)
(CLEARW SWINDOW)
(RWALK)
(DISMISS 2000)
(CLEARW SWINDOW)
(STAR18])
(STAR18
[LAMBDA NIL (* edited: "18-MAR-83 11:26")
(PROG (X Y I J P Q R OFFSET)
(SETQ R 200)
(SETQ OFFSET 225)
(SETQ X (for I from 0 to 359 by 20 collect (IPLUS (FTIMES R (SIN I))
OFFSET)))
(SETQ Y (for I from 0 to 359 by 20 collect (IPLUS (FTIMES R (COS I))
OFFSET)))
(for I in X as J in Y do (for P in X as Q in Y do (DRAWLINE I J P Q 1 (QUOTE PAINT)
SSTREAM])
(SINEDEMO
[LAMBDA NIL (* edited: "18-MAR-83 13:54")
(PROG (X Y I J K NCYC OLDI OLDJ R OFFSET)
(SETQ R 75)
(SETQ NCYC 5)
(SETQ OFFSET 100)
(PRIN1 "Where do sine waves come from?" SSTREAM)
[SETQ X (DREVERSE (for I from 0 to 359 by 10 collect (IPLUS (FTIMES R (SIN I))
OFFSET]
[SETQ Y (DREVERSE (for I from 0 to 359 by 10 collect (IPLUS (FTIMES R (COS I))
OFFSET]
(SETQ OLDI OFFSET)
(SETQ OLDJ OFFSET)
(DRAWCIRCLE OFFSET OFFSET R 1 NIL SSTREAM)
(for N from 1 to NCYC do (for I in X as J in Y
do (DRAWLINE OFFSET OFFSET OLDI OLDJ 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE OFFSET OFFSET I J 1 (QUOTE INVERT)
SSTREAM)
(SETQ OLDI I)
(SETQ OLDJ J)))
(DRAWLINE (IDIFFERENCE OFFSET R)
OFFSET
(IPLUS OFFSET R)
OFFSET 1 (QUOTE INVERT)
SSTREAM)
(for N from 1 to NCYC do (for I in X as J in Y
do (DRAWLINE OFFSET OFFSET OLDI OLDJ 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE (IPLUS OFFSET (IDIFFERENCE OLDI OFFSET))
OFFSET OLDI OLDJ 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE OFFSET OFFSET I J 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE (IPLUS OFFSET (IDIFFERENCE I OFFSET))
OFFSET I J 1 (QUOTE INVERT)
SSTREAM)
(SETQ OLDI I)
(SETQ OLDJ J)))
(DRAWLINE (IPLUS OFFSET R 20)
(IPLUS OFFSET R)
(IPLUS OFFSET R 20)
(IDIFFERENCE OFFSET R)
1
(QUOTE INVERT)
SSTREAM)
(for N from 1 to NCYC do (for I in X as J in Y
do (DRAWLINE OFFSET OFFSET OLDI OLDJ 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE (IPLUS OFFSET (IDIFFERENCE OLDI OFFSET))
OFFSET OLDI OLDJ 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE OFFSET OFFSET I J 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE (IPLUS OFFSET (IDIFFERENCE I OFFSET))
OFFSET I J 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE (IPLUS OFFSET R 16)
J
(IPLUS OFFSET R 24)
J 1 (QUOTE INVERT)
SSTREAM)
(SETQ OLDI I)
(SETQ OLDJ J)))
(DRAWLINE (IPLUS OFFSET R 20)
OFFSET
(IPLUS OFFSET R 200)
OFFSET 1 (QUOTE INVERT)
SSTREAM)
(SETQ K 0)
(for N from 1 to NCYC do (for I in X as J in Y
do (DRAWLINE OFFSET OFFSET OLDI OLDJ 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE (IPLUS OFFSET (IDIFFERENCE OLDI OFFSET))
OFFSET OLDI OLDJ 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE OFFSET OFFSET I J 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE (IPLUS OFFSET (IDIFFERENCE I OFFSET))
OFFSET I J 1 (QUOTE INVERT)
SSTREAM)
(DRAWLINE (IPLUS OFFSET R 16)
J
(IPLUS OFFSET R 24)
J 1 (QUOTE INVERT)
SSTREAM)
(BITMAPBIT SWINDOW (IPLUS OFFSET R 20 K)
J 1)
(BITMAPBIT SWINDOW (IPLUS OFFSET R 21 K)
J 1)
(SETQ K (ADD1 K))
(SETQ OLDI I)
(SETQ OLDJ J])
)
(RPAQ GRAFIXLOGO (READBITMAP))
(128 128
"@@@@@@@@@@@@@@@@@@@COO@@@@@@@F@@"
"@@@@@@@@@@@NL@@@@@@L@AL@@@@@@A@@"
"AH@@@@@@@KO@CH@@@@O@@@C@@@@@@A@@"
"A@@@@@@@GH@@@F@@@GH@@@@L@@@@@@H@"
"B@@@@@@CL@@@@CH@AL@@@@@CH@@@@@H@"
"D@@@@@CL@@@@@@L@G@@@@@@@N@@@@@H@"
"D@@@@@N@@@@@@@F@L@@@@@@@AH@@@@H@"
"D@@@@G@@@@@@@@CAH@@@@@@@@L@@@AH@"
"H@@@AL@@@@@@@@@K@@@@@@@@@G@@@A@@"
"H@@@G@@@@@@@@@@N@@@@@@@@@AL@@C@@"
"L@@@L@@@@@@@@@@F@@@@@@@@@@G@@N@@"
"D@@AH@@@@@@@@@@F@@@@@@@@@@@OOH@@"
"F@@O@@@@@@@@@@@F@@@@@@@@@@@@H@@@"
"AKO@@@@@@@@@@@@B@@@@@@@@@@@@@@@@"
"@N@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@AOH@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@CAL@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@N@F@@@@@@@@@@@@@@@H@@@@@@@@@@@@"
"AL@G@@@@@@@@@@@@@@@H@@@@@@@@@@@@"
"CH@A@@@@@@@@@@@@@@@H@@@@@D@@@@@@"
"C@@@@@@@@@@@@@@@@@@H@@@@@D@@@@@@"
"B@@@@@@@@@@@@@@@@OOO@@O@@DC@@@@@"
"F@@@@@@@@NG@@@@@@@@H@AIH@DO@@@@@"
"F@@@@@@@CBHHGL@@@@AH@C@H@GK@@@@@"
"F@@@@@D@NA@HDB@HA@A@@B@H@DB@@@@@"
"F@@@@COALA@HDA@HA@A@@F@H@DF@@@@@"
"F@@@@FEODA@HLA@HA@A@@DAH@LD@@@@@"
"F@@@@LGLDA@HLA@HA@A@@DA@@HD@@@@@"
"F@@@AH@LDA@HLA@HA@A@@DB@@HD@@@@@"
"F@@@C@@DDA@HLA@HA@C@@DD@@HD@A@@@"
"F@@@G@@DDA@LHA@HA@CH@GH@AHD@A@@@"
"B@@@M@@DDA@DLA@LC@DHCN@@A@F@A@@@"
"C@@@HH@HDA@DJCLLGILONC@@C@B@A@@@"
"C@@AHLAHDA@FINDKLO@@@A@@F@B@C@@@"
"AL@C@GN@@@@CH@CA@@@@@@LAL@C@F@@@"
"ANAN@@@@@@@@H@@@@@@@@@GO@@AOL@@@"
"@GOL@@@@@@@@H@@@@@@B@@@@@@@@@@@@"
"@AN@@@@@@@@@H@@@@@@E@@@@@@@@@@@@"
"@@@@@@@@@@@@H@@@@@@E@@@@@@@@@@@@"
"@@@@@@@@@@@@H@@@@@@E@@@@@@@@@@@@"
"@@@@@@@@@@@@H@@@@@@E@@@@@@@@A@@@"
"@@@@@@@@@@@@H@@@@@@E@@@@@@@@A@@@"
"@@@@@@@@@@@@H@@@@@@E@@@@@@@@C@@@"
"@@@@@@@@@@@@H@@@@@@E@@AH@@@@C@@@"
"@OOL@@@@@@@@@@@@@@@E@@AH@@@@C@@@"
"AL@F@@@@@@@@@@@@@@@E@@@@@@@@BH@@"
"C@@G@@@@@@@@@@@D@@@E@@@@@O@@BH@@"
"D@@A@@@@@@@@@@@FO@@G@@@@AIL@BL@@"
"D@@AH@@@@@@@@@@GKH@GO@@HB@G@BG@@"
"L@@@H@@@@@@@@@@C@L@GA@AHF@A@F@N@"
"H@@@L@AH@@@@AL@B@F@DAHAHD@@@F@B@"
"H@@@@@AH@@@@OO@B@B@D@HA@D@@@D@C@"
"H@@@@@A@@@@CHC@B@B@L@HA@D@@@L@A@"
"H@@@@@A@@L@G@A@F@B@L@HA@L@@@H@A@"
"H@@@@@AHAH@F@C@F@B@L@HA@L@@EH@C@"
"H@@@@DAOO@@L@C@D@BAL@HA@L@@G@@BA"
"H@AHALA@B@@L@B@L@BAD@HAAF@@F@@BC"
"H@@GOHC@B@@H@B@L@BBD@HAFCNMO@@FF"
"H@@@L@B@B@@H@BAN@GFD@LCL@GNAH@ML"
"H@@@D@F@B@@L@GCOHMLL@GF@@@@@NGO@"
"H@@@D@D@B@AN@ENHOH@H@AL@@@@@AL@@"
"H@@@D@L@C@ACIH@H@@@@@@@@@@@@@@@@"
"H@@@LAH@A@C@G@@H@@@@@@@@@@@@@@@@"
"L@@@LC@@@ON@@@AH@@@@@@@@@@@@@@@@"
"D@@AHF@@@A@@@@A@@@@@@@@@@@@@@@@@"
"F@@A@H@@@@@@@@A@@@@@@@@@@@@@@@@@"
"C@@CAH@@@@@@@@A@@@@@@@@@@@@@@@@@"
"AHANC@@@@@@@@@A@@@@@@@@@@@@@@@@@"
"@OO@@@@@@@@@@@A@@@@@@@@@@@@@@@@@"
"@AH@@@@@@@@@@@A@@@@@@@@@AL@@@@@@"
"@@@@@@@@@@@@@@A@@@@@@@@@GG@@@@@@"
"@@@@@@@@@@@@@@A@@@@@@@@AHAH@@@@@"
"@@@@@@@@@@@@@@A@@@@@@@@A@@F@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@B@@B@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@B@@A@@@@@"
"@@@@GN@@@@@@@@@@@@@@@@@B@@A@@@@@"
"@@OONKOL@@@@@@@@@@@@@@@B@@A@@@@@"
"@CMKOONCO@@@@@@@@@@@@@@B@@AH@@@@"
"@F@@@@CO@OH@@@@@@@@@@@@C@@@H@@@@"
"@H@@@@@CMHGH@@@@@@@@@@@A@@@H@@@@"
"A@@@@@@@GNHOH@@@@@@@@@@@H@@H@@@@"
"B@@@@@@@@CN@KH@@@@@@@@@@OH@H@@@@"
"B@@@@@@@@@GOHOH@@@@@@@@@@@@H@@@@"
"B@@@@@@@@@@AOHG@@@@@@@@@@@A@@@@@"
"B@@@@@@@@@@@BN@N@@@@@@@@@@A@@@@@"
"B@@@@@@@@@@@@GLAL@@@@@@@@@F@@@@@"
"B@@@@@@@@@@@@@GHG@@@@@@@@@D@@@@@"
"C@@@@@@@@@@@@@@OMH@@@@@@@@L@@@@@"
"A@@@@@@@@@@@@@@@NF@@@@@@@CHA@@@@"
"@L@H@@@@@@@@@@@@AOH@@@@@@N@CH@@@"
"@GKH@@@@@@@@@B@@@CN@@@@@AH@BL@@@"
"@@F@@@@@@@@@@B@D@@GN@@@@F@@BD@@@"
"@@@@@@@@@@@@CN@D@@@OOL@CH@@@D@@@"
"@@@@@@@@@@@@@OLD@@@@OCOL@@@@D@@@"
"@OOL@@@@@@@@@B@D@@@@@OL@@@@@D@O@"
"@H@@@@@@@@@@BB@D@@@@@@@@@@@@DAI@"
"@H@@@@@@@@@@BB@D@@@@@@@@@@@@DAAH"
"@H@@@FL@@C@@@B@GH@@GLAH@@H@@DAA@"
"@H@@@AB@@B@B@B@DL@@LF@@GAHN@HA@@"
"@H@BAAC@@D@BBB@DD@C@B@@EA@J@H@L@"
"@ONBAAA@@DBBBB@DD@@DBA@MFA@AH@F@"
"@H@BAAA@@DBBBB@DD@@DBA@ALC@A@@A@"
"@H@BAAA@@DBBBBBDDH@DFB@AHB@A@@AH"
"@H@BAAA@@FFFBBBDEH@DLB@AHCLA@@@H"
"@H@BACA@@COGBJFDC@@GHB@CHB@ABD@H"
"@H@COBAC@@AMIILD@@@D@B@BIB@BBD@H"
"@H@@AH@N@@@@@@@@@@@D@BDDJBBBBF@H"
"@@@@@L@@@@@@@@@@@@@D@ALLNCFCNCI@"
"@@@@@@@@@@@@@@@@@@@D@@AH@ALAH@O@"
"@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@A@H@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@HH@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@GH@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")(RPAQ MAN (READBITMAP))
(32 64
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@GL@@@@"
"@@OO@@@@"
"@AOA@@@@"
"@AH@H@@@"
"@A@FH@@@"
"@A@FH@@@"
"@A@@L@@@"
"@A@@N@@@"
"@AHHH@@@"
"@@LOH@@@"
"@@DLH@@@"
"@@FG@@@@"
"@@BA@@@@"
"@@CO@@@@"
"@@D@L@@@"
"@@H@D@@@"
"@A@@F@@@"
"@A@@J@@@"
"@A@@B@@@"
"@AA@B@@@"
"@A@HB@@@"
"@A@HE@@@"
"@A@HA@@@"
"@A@HA@@@"
"@A@HA@@@"
"@A@HA@@@"
"@A@HE@@@"
"@A@HA@@@"
"@A@HA@@@"
"@A@HA@@@"
"@@HOO@@@"
"@@HHA@@@"
"@@ILA@@@"
"@@HBB@@@"
"@@DBB@@@"
"@@DBB@@@"
"@@NLC@@@"
"@@K@A@@@"
"@@H@A@@@"
"@@HF@H@@"
"@@HO@H@@"
"@@HDHD@@"
"@@HDLF@@"
"@@HDDA@@"
"@AHDDA@@"
"@A@LF@H@"
"@AAHC@H@"
"@CA@A@H@"
"@BA@AHD@"
"@BB@@LD@"
"@FB@@DF@"
"@DD@@FB@"
"@LD@@BB@"
"@HH@@BB@"
"A@H@@BCO"
"A@L@@C@A"
"@HF@@A@C"
"@HA@@AAL"
"@GN@@AN@")(RPAQ MAN1 (READBITMAP))
(32 64
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@GL@@@@"
"@@OO@@@@"
"@AOA@@@@"
"@AH@H@@@"
"@A@FH@@@"
"@A@FH@@@"
"@A@@L@@@"
"@A@@N@@@"
"@AHHH@@@"
"@@LOH@@@"
"@@DLH@@@"
"@@FG@@@@"
"@@BA@@@@"
"@@CO@@@@"
"@@D@L@@@"
"@@H@D@@@"
"@A@@F@@@"
"@A@@J@@@"
"@A@@B@@@"
"@AA@B@@@"
"@A@HB@@@"
"@A@HE@@@"
"@A@HA@@@"
"@A@HA@@@"
"@A@HA@@@"
"@A@HA@@@"
"@A@HE@@@"
"@A@HA@@@"
"@A@HA@@@"
"@A@HA@@@"
"@@HOO@@@"
"@@HHA@@@"
"@@ILA@@@"
"@@HBB@@@"
"@@DBB@@@"
"@@DBB@@@"
"@@NLC@@@"
"@@K@A@@@"
"@@H@A@@@"
"@@HDA@@@"
"@@HDA@@@"
"@@HDA@@@"
"@@HDA@@@"
"@@HFA@@@"
"@@HFA@@@"
"@@HFA@@@"
"@@HFA@@@"
"@@HFA@@@"
"@@HFC@@@"
"@@HFB@@@"
"@@HFB@@@"
"@@HFB@@@"
"@@HFC@@@"
"@@LFA@@@"
"@@HFA@@@"
"@@HOAN@@"
"@@LALA@@"
"@@D@J@H@"
"@@GOCOH@")(RPAQ NYLOGO (READBITMAP))
(128 32
"H@B@@@@A@@@@@@@@@B@@D@@@@@@@@@@@"
"H@B@@@@A@@@D@@@@@C@@D@@@@@@@@@@@"
"H@B@@@@A@@@D@@@@@BH@D@@@@@@@@@@@"
"H@B@@@@A@@@D@@@@@BL@D@L@@@@@@@@@"
"H@B@@@@A@@@D@@@@@BF@DAC@H@@DD@@@"
"H@B@@@@A@@@D@@@@@BC@DBA@HB@DD@@@"
"H@B@@COOOOOOON@@@BA@DBA@DC@DD@@@"
"H@B@@B@A@@@D@@@@@B@HDCC@DG@LD@@@"
"H@BCHD@ACN@D@@@@@BDLDCN@FDHHD@@@"
"H@BNLD@ABA@D@@@@@BDFDJ@@BDIHD@@@"
"H@BHFD@A@AHD@O@@@BDCDJ@@ALO@D@@@"
"H@BHBD@A@@HDAIH@@BDALK@BAHF@D@@@"
"H@BHCCHA@@HDA@D@@BD@LILL@@@@D@@@"
"H@BHA@NACOHDC@F@@BD@DHG@@@@@D@D@"
"H@BHA@CIB@HDB@B@@@D@@H@@@@@@D@H@"
"H@BHC@AIB@HDC@F@@@D@@H@@@@@@DAH@"
"L@FHB@@IB@HDA@D@@@D@@H@@@@@@DC@@"
"L@DHB@@IB@NNA@L@@@D@@H@@@@@@DF@@"
"D@DHD@@IBAIO@IH@B@D@@H@@@@@@DL@@"
"D@LIL@@IAO@AHO@@F@D@@H@@@@@@EH@@"
"CAHO@@AI@@@@GN@@L@D@AH@@@FCLG@@@"
"AO@H@@CA@@@@@A@GH@D@AHCN@CF@F@@@"
"@@@IO@B@HB@@@@OL@@B@CHFCHAL@G@@@"
"@@@HAOL@FN@@@@@@@@B@FHL@HAH@E@@@"
"@@@H@@@@A@@@@@@@@@AOLHH@DAH@EH@@"
"@@@H@@@@@@@@@@@@@@@@@HH@DA@@DL@@"
"@@@H@@@@@@@@@@@@@@@@@HH@DA@@DL@@"
"@@@H@@@@@@@@@@@@@@@@@HL@LA@@DD@@"
"@@@H@@@@@@@@@@@@@@@@@HD@HA@@DF@B"
"@@@H@@@@@@@@@@@@@@B@@HFAHA@@DCHD"
"@@@H@@@@@@@@@@@@@@CHAHCO@A@@D@OH"
"@@@H@@@@@@@@@@@@@@@OO@@@@@@@D@@@")(RPAQ FROMLOGO (READBITMAP))
(32 32
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"CH@@@@@@"
"BL@@@@@@"
"FL@@@@@@"
"F@@@@@@@"
"F@@@@@@@"
"F@@@@@@@"
"F@@@@@@@"
"F@@@@C@@"
"OMCHOAKF"
"OMOIOHOO"
"F@LC@LMK"
"F@LC@LMK"
"F@LC@LMK"
"F@LC@LMK"
"F@LC@LMK"
"F@LC@LMK"
"F@LAOHMK"
"F@L@O@MK"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@")(RPAQ SOFTWARELOGO (READBITMAP))
(128 32
"@COL@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@B@C@@@@@A@@@@@@@@@@@@@@@@@@@@@@"
"@L@AH@@@NA@@@@@@@@@@@@@@@@@@@@@@"
"@H@@H@@AIA@@@@@@@@@@@@@@@@@@@@@@"
"@H@@DALAAA@@@@@@@@@@@@@@@@@@@@@@"
"@H@@DGLA@A@@@@@@@@@@@@@@@@@@@@@@"
"@H@@HDFA@A@@@@@@@@@@@@@@@@@@@@@@"
"@H@@@LCA@A@@@@@@@@@@@@@@@@@@@@@@"
"@H@@@HAA@A@@@@@@@@@@@@@@@@@@@@@@"
"@D@@@HAA@A@A@@@@@@@@@@@@@@@@@@@@"
"@F@@@DAA@A@C@@@@@@@@@@@@@@@@@@@@"
"@C@@@DAA@A@B@@@@@@@@@@@@@@@@@@@@"
"@AN@@BCA@A@F@@@@@@@@@@@@@@@@@@@@"
"@@AO@ANA@A@L@@@@@D@AH@@@@@@@@@@@"
"@@@AN@@A@AAH@@DCHD@BL@@@@@@@@@@@"
"@@@@C@@A@ACA@@GFLFHDD@@@@@@@@@@@"
"@@@@AI@A@ALA@DBLDEDLD@@@@@@@@@@@"
"@@@@@ILACO@A@DBDDDDHD@@@@@@@@@@@"
"@@@@@HCONA@A@DBDDDDLD@@@@@@@@@@@"
"CO@@@H@A@A@A@DBDDDDDLH@@@@@@@@@@"
"F@L@@H@A@A@AHDBDDDDFIH@@@@@@@@@@"
"L@D@@H@A@A@ADNDDFHBCK@@@@@@@@@@@"
"H@D@@H@A@AHACKLFMHANN@@@@@@@@@@@"
"H@@@AH@A@@LB@@@CH@@@@@@@@@@@@@@@"
"H@@@A@@C@@FF@@@@@@@@@@@@@@@@@@@@"
"H@@@B@HB@@AH@@@@@@@@@@@@@@@@@@@@"
"L@@@L@HF@@@@@@@@@@@@@@@@@@@@@@@@"
"F@@AH@OL@@@@@@@@@@@@@@@@@@@@@@@@"
"F@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"COO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")(DECLARE: DONTCOPY
(FILEMAP (NIL (563 7505 (DIFFRAC 573 . 838) (ERASEOBJ 840 . 1015) (FLY 1017 . 1405) (MOVEOBJ 1407 .
1607) (PAINTOBJ 1609 . 1784) (RWALK 1786 . 2152) (SAMPLER 2154 . 3603) (STAR18 3605 . 4193) (SINEDEMO
4195 . 7503)))))
STOP