00000000: 4F 04 26 05 2A 06 00 0A 18 00 20 53 41 56 45 20 |O.&.*..... SAVE |
00000010: 22 40 30 3A 43 4F 4D 41 4C 20 41 52 54 22 00 14 |"@0:COMAL ART"..|
00000020: 04 00 00 1E 14 00 20 20 20 20 20 B0 C0 C0 C0 C0 |...... .....|
00000030: C0 C0 C0 C0 C0 AE 00 28 17 00 20 20 B0 C0 C0 BD |.......(.. ....|
00000040: 43 4F 4D 41 4C 20 41 52 54 AD C0 C0 AE 00 32 17 |COMAL ART.....2.|
00000050: 00 20 20 DD 42 59 20 4A 45 53 53 45 20 4B 4E 49 |. .BY JESSE KNI|
00000060: 47 48 54 DD 00 3C 17 00 20 20 AD C0 C0 C0 C0 C0 |GHT..<.. ......|
00000070: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 00 46 04 00 00 |............F...|
00000080: 50 0C 8C 8F 24 00 02 00 01 93 C5 00 5A 04 00 00 |P...$.......Z...|
00000090: 64 06 7F 18 81 00 6E 04 00 00 78 04 95 00 82 09 |d.....n...x.....|
000000A0: FF 16 04 25 FF 17 00 8C 0F FF 46 02 00 00 02 00 |...%......F.....|
000000B0: 0F 55 54 FF 47 00 96 05 FF 53 00 A0 0F 82 1F 44 |.UT.G....S.....D|
000000C0: 8A 02 00 01 84 04 1E 85 87 00 AA 06 7F 20 81 00 |............. ..|
000000D0: B4 04 95 00 BE 06 7F 21 81 00 C8 06 7F 23 81 00 |.......!.....#..|
000000E0: D2 06 7F 22 81 00 DC 14 DA 05 06 02 00 00 2A 05 |..."..........*.|
000000F0: 0B 02 00 00 2A 39 96 1A 8A 00 E6 07 8A 1F 05 8A |....*9..........|
00000100: 00 F0 2E FF 22 02 00 00 F6 02 00 00 F6 03 1D 50 |...."..........P|
00000110: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 46 4F 52 |RESS ANY KEY FOR|
00000120: 20 4E 45 57 20 50 49 43 54 55 52 45 FF 23 00 FA | NEW PICTURE.#..|
00000130: 0D 97 F9 02 00 00 4B 2D 99 F4 9A 01 04 08 DA 44 |......K-.......D|
00000140: 96 E4 89 01 0E 04 00 01 18 09 70 23 17 8B 00 7B |..........p#...{|
00000150: 01 22 12 68 05 06 02 00 63 2C 6A 08 03 05 03 48 |.".h....c,j....H|
00000160: 21 3B 01 2C 12 68 05 0B 02 00 9F 2C 6A 08 04 05 |!;.,.h.....,j...|
00000170: 04 48 21 3B 01 36 0B 08 06 05 06 05 03 29 3B 01 |.H!;.6.......);.|
00000180: 40 0B 08 07 05 07 05 03 27 3B 01 4A 0B 08 08 05 |@.......';.J....|
00000190: 08 05 03 27 3B 01 54 0B 08 09 05 09 05 03 29 3B |...';.T.......);|
000001A0: 01 5E 0B 08 0B 05 0B 05 04 29 3B 01 68 0B 08 0C |.^.......);.h...|
000001B0: 05 0C 05 04 29 3B 01 72 0B 08 0D 05 0D 05 04 27 |....);.r.......'|
000001C0: 3B 01 7C 0B 08 0A 05 0A 05 04 27 3B 01 86 05 7D |;.|.......';...}|
000001D0: 23 01 90 04 00 01 9A 04 00 01 A4 09 70 22 74 8B |#...........p"t.|
000001E0: 00 7B 01 AE 17 68 06 24 03 01 4E 33 6A FF 1E 02 |.{...h.$..N3j...|
000001F0: 00 02 02 00 0F 55 54 FF 1F 01 B8 0C FF 1C 05 06 |.....UT.........|
00000200: F6 05 0B FF 1D 01 C2 0C FF 1C 05 07 F6 05 0C FF |................|
00000210: 1D 01 CC 0C FF 1C 05 08 F6 05 0D FF 1D 01 D6 0C |................|
00000220: FF 1C 05 09 F6 05 0A FF 1D 01 E0 05 7D 22 01 EA |............}"..|
00000230: 04 00 01 F4 04 00 01 FE 09 70 21 D0 8B 00 7B 02 |.........p!...{.|
00000240: 08 11 08 03 02 00 00 02 00 01 55 54 04 19 24 3B |..........UT..$;|
00000250: 02 12 11 08 04 02 00 00 02 00 01 55 54 04 1C 24 |...........UT..$|
00000260: 3B 02 1C 12 68 05 03 02 00 00 2C 6A 08 03 02 00 |;...h.....,j....|
00000270: 01 21 3B 02 26 12 68 05 04 02 00 00 2C 6A 08 04 |.!;.&.h.....,j..|
00000280: 02 00 01 21 3B 02 30 05 7D 21 02 3A 04 00 02 44 |...!;.0.}!.:...D|
00000290: 04 00 02 4E 09 70 20 2E 8C 00 7B 02 58 09 08 06 |...N.p ...{.X...|
000002A0: 02 00 9F 3B 02 62 09 08 07 02 00 9F 3B 02 6C 09 |...;.b......;.l.|
000002B0: 08 08 02 00 9F 3B 02 76 09 08 09 02 00 9F 3B 02 |.....;.v......;.|
000002C0: 80 09 08 0B 02 00 63 3B 02 8A 09 08 0C 02 00 63 |......c;.......c|
000002D0: 3B 02 94 09 08 0D 02 00 63 3B 02 9E 09 08 0A 02 |;.......c;......|
000002E0: 00 63 3B 02 A8 05 7D 20 02 B2 04 00 02 BC 04 00 |.c;...} ........|
000002F0: 02 C6 09 70 18 9B 8D 00 7B 02 D0 11 5F 02 00 93 |...p....{..._...|
00000300: 4B 65 66 02 00 8E 4B 65 60 61 02 DA 0A FF 1E 02 |Kef...Ke`a......|
00000310: 00 00 FF 1F 02 E4 0A FF 20 02 00 01 FF 21 02 E9 |........ ....!..|
00000320: 0F FF 46 02 00 00 02 00 0F 55 54 FF 47 02 EE 06 |..F......UT.G...|
00000330: 5F 60 61 02 F8 06 5F 60 61 03 02 1F 5F 03 16 20 |_`a..._`a..._.. |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 43 4F 4D 41 | COMA|
00000350: 4C 20 41 52 54 65 60 61 03 0C 22 5F 03 19 20 20 |L ARTe`a.."_.. |
00000360: 20 20 20 20 20 20 20 20 42 59 20 4A 45 53 53 45 | BY JESSE|
00000370: 20 4B 4E 49 47 48 54 65 60 61 03 16 06 5F 60 61 | KNIGHTe`a..._`a|
00000380: 03 17 2C 5F 03 23 20 20 20 12 45 4E 54 45 52 20 |..,_.# .ENTER |
00000390: 31 2E 33 2C 31 2E 33 20 46 4F 52 20 49 4E 4B 42 |1.3,1.3 FOR INKB|
000003A0: 4C 4F 54 20 54 45 53 54 92 65 60 61 03 20 06 5F |LOT TEST.e`a. ._|
000003B0: 60 61 03 2A 22 B5 03 17 58 20 53 43 41 4C 49 4E |`a.*"...X SCALIN|
000003C0: 47 20 46 41 43 54 4F 52 20 31 2E 34 9D 9D 9D B7 |G FACTOR 1.4....|
000003D0: 07 19 B8 BB 03 34 22 B5 03 17 59 20 53 43 41 4C |.....4"...Y SCAL|
000003E0: 49 4E 47 20 46 41 43 54 4F 52 20 31 2E 33 9D 9D |ING FACTOR 1.3..|
000003F0: 9D B7 07 1C B8 BB 03 3E 1D B5 03 12 4E 55 4D 42 |.......>....NUMB|
00000400: 45 52 20 4F 46 20 54 49 4D 45 53 20 33 9D B7 07 |ER OF TIMES 3...|
00000410: 1E B8 BB 03 48 1D B5 03 12 52 41 4E 44 4F 4D 20 |....H....RANDOM |
00000420: 50 45 4E 43 4F 4C 4F 52 20 4E 9D B7 09 24 BA BB |PENCOLOR N...$..|
00000430: 03 52 20 B5 03 15 47 52 41 50 48 49 43 20 4D 4F |.R ...GRAPHIC MO|
00000440: 44 45 20 28 30 2F 31 29 20 30 9D B7 07 25 B8 BB |DE (0/1) 0...%..|
00000450: 03 5C 05 7D 18 00 00 00 00 00 00 00 00 00 00 11 |.\.}............|
00000460: D1 AF 00 00 11 CF AF 00 00 00 00 00 00 00 11 E1 |................|
00000470: AF 00 00 11 DF AF 00 00 11 DD AF 00 00 11 DB AF |................|
00000480: 00 00 11 D3 AF 00 00 11 D9 AF 00 00 11 D7 AF 00 |................|
00000490: 00 11 D5 AF 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000004C0: 00 00 00 00 00 00 00 00 14 3B 8C 00 00 10 F7 AF |.........;......|
000004D0: 00 00 00 00 00 00 00 00 00 00 00 00 10 F2 AF 00 |................|
000004E0: 00 00 00 00 00 00 10 ED AF 00 00 10 E3 AF 00 00 |................|
000004F0: 14 DD 8B 00 00 14 81 8B 00 00 14 24 8B 00 00 14 |...........$....|
00000500: 92 8A 00 00 12 FC AF 00 00 10 E8 AF 00 00 00 00 |................|
00000510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000520: 00 00 00 00 00 00 00 00 00 00 00 00 01 58 01 59 |.............X.Y|
00000530: 02 44 58 02 44 59 01 51 02 58 31 02 58 32 02 58 |.DX.DY.Q.X1.X2.X|
00000540: 33 02 58 34 02 59 34 02 59 31 02 59 32 02 59 33 |3.X4.Y4.Y1.Y2.Y3|
00000550: 01 50 01 49 07 50 52 49 4E 54 58 32 02 58 59 02 |.P.I.PRINTX2.XY.|
00000560: 59 59 01 52 01 41 01 42 06 54 52 45 4E 55 4D 04 |YY.R.A.B.TRENUM.|
00000570: 4C 49 45 54 0D 49 4E 50 55 54 27 4E 55 4D 42 45 |LIET.INPUT'NUMBE|
00000580: 52 53 07 58 27 53 43 41 4C 45 02 58 27 05 53 43 |RS.X'SCALE.X'.SC|
00000590: 41 4C 45 07 59 27 53 43 41 4C 45 05 54 49 4D 45 |ALE.Y'SCALE.TIME|
000005A0: 53 0C 4E 55 4D 42 45 52 27 54 49 4D 45 53 07 43 |S.NUMBER'TIMES.C|
000005B0: 4F 55 4E 54 45 52 10 49 4E 49 54 27 43 4F 4F 52 |OUNTER.INIT'COOR|
000005C0: 44 49 4E 41 54 45 53 10 52 41 4E 44 4F 4D 27 44 |DINATES.RANDOM'D|
000005D0: 49 52 45 43 54 49 4F 4E 0B 50 4C 4F 54 27 50 4F |IRECTION.PLOT'PO|
000005E0: 49 4E 54 53 0B 43 41 4C 43 27 50 4F 49 4E 54 53 |INTS.CALC'POINTS|
000005F0: 0A 52 41 4E 44 4F 4D 27 50 45 4E 0C 47 52 41 50 |.RANDOM'PEN.GRAP|
00000600: 48 49 43 27 4D 4F 44 45 02 4E 44 03 47 52 41 09 |HIC'MODE.ND.GRA.|
00000610: 50 48 49 43 27 4D 4F 44 45 05 50 52 45 53 53 07 |PHIC'MODE.PRESS.|
00000620: 4C 49 53 54 37 30 30 07 4C 49 53 54 33 30 30 00 |LIST700.LIST300.|
00000630: 7B |{ |
O.&.*..... SAVE "@0:COMAL ART"........
............(.. ....COMAL ART.....2.
. .BY JESSE KNIGHT..<.. ..............
....F...P...$.....E.Z...D....N...X.....
...%......F......UT.G....S. ...D........
.... ........!..H.#..R."....Z.....*.
....*9.............."..........PRESS ANY
KEY FOR NEW PICTURE.#........K-......ZD
..........P#...{.".H....C,J....H!;.,.H..
...,J....H!;.6.......);.@.......';.J....
...';.T.......);.^.......);.H.......);.R
.......';.|.......';...}#...........P"T.
.{...H.$..N3J........UT...............B.
..........L...........V.............}"..
.........P!P..{...........UT..$;........
...UT..$;...H.....,J.....!;.&.H.....,J..
...!;.0.}!.:...D...N.P ...{.X......;.B..
....;.L......;.V......;.......C;.......C
;.......C;.......C;...} .........F.P....
{.P._...KEF...KE`A.Z............ ....!..
..F......UT.G..._`A..._`A..._..
COMAL ARTE`A.."_.. BY JESSE
KNIGHTE`A..._`A..,_.# .ENTER 1.3,1.3
FOR INKBLOT TEST.E`A. ._`A.*"...X SCALIN
G FACTOR 1.4.........4"...Y SCALING FACT
OR 1.3.........>....NUMBER OF TIMES 3...
....H....RANDOM PENCOLOR N...$...R ...GR
APHIC MODE (0/1) 0...%...\.}............
Q....O.............................S....
Y....W....U.............................
.........................;..............
...................................$....
........................................
.....X.Y.DX.DY.Q.X1.X2.X3.X4.Y4.Y1.Y2.Y3
.P.I.PRINTX2.XY.YY.R.A.B.TRENUM.LIET.INP
UT'NUMBERS.X'SCALE.X'.SCALE.Y'SCALE.TIME
S.NUMBER'TIMES.COUNTER.INIT'COORDINATES.
RANDOM'DIRECTION.PLOT'POINTS.CALC'POINTS
.RANDOM'PEN.GRAPHIC'MODE.ND.GRA.PHIC'MOD
E.PRESS.LIST700.LIST300.{
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL