PAINT MULTI

FILE INFORMATION

FILENAME(S): PAINT MULTI

FILE TYPE(S): DEL

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 21:29:04

APPEARS ON: 1 disk(s)

FILE HASH

ad4e7a896c37c25690656405871524eeac18ed655998e2185c3c7921d1eb19d9

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
NAAM	PAINT MULTI	DEL	DuncanTwain	30	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 40 28 2A 20 4D 55 4C  54 49 20 43 4F 4C 4F 55  |.@(* MULTI COLOU|
00000010: 52 20 50 41 49 4E 54 49  4E 47 20 44 45 4D 4F 20  |R PAINTING DEMO |
00000020: 50 52 4F 47 52 41 4D 0D  0D C1 55 54 48 4F 52 3A  |PROGRAM...UTHOR:|
00000030: 20 CE 49 43 4B 20 C7 41  4D 4D 4F 4E 20 2D 20 C7  | .ICK .AMMON - .|
00000040: 41 4D 42 49 54 20 C7 41  4D 45 53 0D 0D D5 53 45  |AMBIT .AMES...SE|
00000050: 53 20 24 31 C2 30 30 20  9B 24 31 C5 C6 C6 20 9A  |S $1.00 .$1... .|
00000060: 4D 41 43 48 49 4E 45 0D  10 85 43 4F 44 45 20 53  |MACHINE...CODE S|
00000070: 55 42 52 4F 55 54 49 4E  45 53 2E 0D 2A 29 0D 0D  |UBROUTINES..*)..|
00000080: 82 42 49 54 4D 41 50 20  3D 20 31 3B 0D 10 86 4D  |.BITMAP = 1;...M|
00000090: 55 4C 54 49 43 4F 4C 4F  55 52 20 3D 20 32 3B 0D  |ULTICOLOUR = 2;.|
000000A0: 10 86 43 48 41 52 47 45  4E 42 41 53 45 20 3D 20  |..CHARGENBASE = |
000000B0: 38 3B 0D 10 86 42 4F 52  44 45 52 20 3D 20 31 31  |8;...BORDER = 11|
000000C0: 3B 0D 10 86 42 41 43 4B  47 52 4F 55 4E 44 20 3D  |;...BACKGROUND =|
000000D0: 20 31 32 3B 0D 10 86 4F  4E 20 3D 20 31 3B 0D 10  | 12;...ON = 1;..|
000000E0: 86 42 4C 41 43 4B 20 3D  20 30 3B 0D 10 86 52 45  |.BLACK = 0;...RE|
000000F0: 44 20 3D 20 32 3B 0D 10  86 43 59 41 4E 20 3D 20  |D = 2;...CYAN = |
00000100: 33 3B 0D 10 86 50 55 52  50 4C 45 20 3D 20 34 3B  |3;...PURPLE = 4;|
00000110: 0D 10 86 47 52 45 45 4E  20 3D 20 35 3B 0D 10 86  |...GREEN = 5;...|
00000120: 42 4C 55 45 20 3D 20 36  3B 0D 10 86 59 45 4C 4C  |BLUE = 6;...YELL|
00000130: 4F 57 20 3D 20 37 3B 0D  10 86 4F 52 41 4E 47 45  |OW = 7;...ORANGE|
00000140: 20 3D 20 38 3B 0D 10 86  42 52 4F 57 4E 20 3D 20  | = 8;...BROWN = |
00000150: 39 3B 0D 10 86 4C 49 47  48 54 5F 42 4C 55 45 20  |9;...LIGHT_BLUE |
00000160: 3D 20 31 34 3B 0D 0D 83  4E 45 57 58 2C 20 4E 45  |= 14;...NEWX, NE|
00000170: 57 59 20 3A 20 FE 3B 0D  0D 86 49 4E 49 54 5F 50  |WY : .;...INIT_P|
00000180: 41 49 4E 54 49 4E 47 3B  0D 28 2A 2A 2A 2A 2A 2A  |AINTING;.(******|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000001A0: 29 0D 83 4D 20 3A 20 FE  3B 0D 0D 86 58 28 41 2C  |)..M : .;...X(A,|
000001B0: 20 42 2C 20 43 2C 20 44  29 3B 0D 28 2A 2D 2D 2D  | B, C, D);.(*---|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001D0: 2D 2A 29 0D 88 0D 91 5B  4D 5D 20 3A 3D 20 41 3B  |-*)....[M] := A;|
000001E0: 0D 91 5B 4D 20 2B 20 33  5D 20 3A 3D 20 42 3B 0D  |..[M + 3] := B;.|
000001F0: 91 5B 4D 20 2B 20 36 5D  20 3A 3D 20 43 3B 0D 91  |.[M + 6] := C;..|
00000200: 5B 4D 20 2B 20 39 5D 20  3A 3D 20 44 3B 0D 4D 20  |[M + 9] := D;.M |
00000210: 3A 3D 20 4D 20 2B 20 31  32 0D 89 3B 0D 0D 88 0D  |:= M + 12..;....|
00000220: 4D 20 3A 3D 20 24 31 42  30 30 3B 0D 58 28 24 31  |M := $1B00;.X($1|
00000230: 42 36 46 34 43 2C 24 33  32 30 30 34 42 2C 24 41  |B6F4C,$32004B,$A|
00000240: 44 30 35 30 31 2C 24 46  46 43 30 38 39 29 3B 0D  |D0501,$FFC089);.|
00000250: 58 28 24 30 30 30 30 30  30 2C 24 38 35 30 30 41  |X($000000,$8500A|
00000260: 39 2C 24 34 42 38 35 30  34 2C 24 38 35 32 30 41  |9,$4B8504,$8520A|
00000270: 39 29 3B 0D 58 28 24 30  34 41 34 34 43 2C 24 39  |9);.X($04A44C,$9|
00000280: 39 34 42 41 35 2C 24 41  35 31 44 30 30 2C 24 30  |94BA5,$A51D00,$0|
00000290: 30 39 39 34 43 29 3B 0D  58 28 24 30 34 45 36 31  |0994C);.X($04E61|
000002A0: 45 2C 24 43 39 30 34 41  35 2C 24 31 39 46 30 43  |E,$C904A5,$19F0C|
000002B0: 38 2C 24 44 30 34 42 45  36 29 3B 0D 58 28 24 34  |8,$D04BE6);.X($4|
000002C0: 43 45 36 30 32 2C 24 44  30 30 37 32 39 2C 24 41  |CE602,$D00729,$A|
000002D0: 35 31 38 45 32 2C 24 33  38 36 39 34 42 29 3B 0D  |518E2,$38694B);.|
000002E0: 58 28 24 41 35 34 42 38  35 2C 24 30 31 36 39 34  |X($A54B85,$01694|
000002F0: 43 2C 24 44 30 34 43 38  35 2C 24 41 34 36 30 44  |C,$D04C85,$A460D|
00000300: 33 29 3B 0D 58 28 24 30  30 42 39 30 34 2C 24 34  |3);.X($00B904,$4|
00000310: 42 38 35 31 44 2C 24 31  45 30 30 42 39 2C 24 41  |B851D,$1E00B9,$A|
00000320: 36 34 43 38 35 29 3B 0D  58 28 24 30 32 46 30 35  |64C85);.X($02F05|
00000330: 46 2C 24 41 35 34 43 45  36 2C 24 30 37 32 39 35  |F,$A54CE6,$07295|
00000340: 45 2C 24 38 44 30 41 41  41 29 3B 0D 58 28 24 42  |E,$8D0AAA);.X($B|
00000350: 44 31 42 30 43 2C 24 38  35 31 43 38 37 2C 24 35  |D1B0C,$851C87,$5|
00000360: 45 41 35 30 36 2C 24 41  38 46 38 32 39 29 3B 0D  |EA506,$A8F829);.|
00000370: 58 28 24 36 30 30 36 41  35 2C 24 41 45 46 30 41  |X($6006A5,$AEF0A|
00000380: 30 2C 24 41 44 31 42 30  36 2C 24 45 30 31 42 30  |0,$AD1B06,$E01B0|
00000390: 37 29 3B 0D 58 28 24 30  36 44 30 30 31 2C 24 30  |7);.X($06D001,$0|
000003A0: 41 30 41 30 41 2C 24 30  46 41 30 30 41 2C 24 31  |A0A0A,$0FA00A,$1|
000003B0: 42 30 45 38 44 29 3B 0D  58 28 24 31 42 30 44 38  |B0E8D);.X($1B0D8|
000003C0: 43 2C 24 31 42 30 42 41  44 2C 24 32 30 30 33 31  |C,$1B0BAD,$20031|
000003D0: 30 2C 24 41 39 31 42 30  46 29 3B 0D 58 28 24 30  |0,$A91B0F);.X($0|
000003E0: 42 38 44 30 30 2C 24 30  33 41 44 31 42 2C 24 38  |B8D00,$03AD1B,$8|
000003F0: 35 30 41 31 42 2C 24 30  34 41 44 35 45 29 3B 0D  |50A1B,$04AD5E);.|
00000400: 58 28 24 38 35 32 41 31  42 2C 24 30 35 41 44 35  |X($852A1B,$05AD5|
00000410: 46 2C 24 30 38 38 44 31  42 2C 24 30 34 38 35 31  |F,$088D1B,$04851|
00000420: 42 29 3B 0D 58 28 24 31  42 34 37 32 30 2C 24 30  |B);.X($1B4720,$0|
00000430: 38 34 42 33 31 2C 24 31  43 34 46 32 30 2C 24 30  |84B31,$1C4F20,$0|
00000440: 39 44 30 32 38 29 3B 0D  58 28 24 46 30 30 34 41  |9D028);.X($F004A|
00000450: 35 2C 24 30 34 43 36 30  35 2C 24 31 42 41 38 34  |5,$04C605,$1BA84|
00000460: 43 2C 24 38 44 30 34 41  35 29 3B 0D 58 28 24 41  |C,$8D04A5);.X($A|
00000470: 44 31 42 30 41 2C 24 38  35 31 42 30 38 2C 24 44  |D1B0A,$851B08,$D|
00000480: 36 34 43 30 34 2C 24 34  37 32 30 31 42 29 3B 0D  |64C04,$47201B);.|
00000490: 58 28 24 34 42 33 31 31  42 2C 24 34 46 32 30 30  |X($4B311B,$4F200|
000004A0: 38 2C 24 44 30 32 38 31  43 2C 24 30 34 41 35 30  |8,$D0281C,$04A50|
000004B0: 42 29 3B 0D 58 28 24 46  30 43 37 43 39 2C 24 30  |B);.X($F0C7C9,$0|
000004C0: 34 45 36 30 35 2C 24 31  42 43 41 34 43 2C 24 38  |4E605,$1BCA4C,$8|
000004D0: 44 30 34 41 35 29 3B 0D  58 28 24 33 38 31 42 30  |D04A5);.X($381B0|
000004E0: 39 2C 24 31 42 30 41 45  44 2C 24 30 41 36 44 34  |9,$1B0AED,$0A6D4|
000004F0: 41 2C 24 30 38 38 44 31  42 29 3B 0D 58 28 24 30  |A,$088D1B);.X($0|
00000500: 34 38 35 31 42 2C 24 31  42 30 42 41 44 2C 24 41  |4851B,$1B0BAD,$A|
00000510: 35 33 33 44 30 2C 24 35  46 30 35 35 45 29 3B 0D  |533D0,$5F055E);.|
00000520: 58 28 24 33 38 31 36 46  30 2C 24 45 39 35 45 41  |X($3816F0,$E95EA|
00000530: 35 2C 24 35 45 38 35 30  32 2C 24 45 39 35 46 41  |5,$5E8502,$E95FA|
00000540: 35 29 3B 0D 58 28 24 35  46 38 35 30 30 2C 24 31  |5);.X($5F8500,$1|
00000550: 42 34 37 32 30 2C 24 44  30 34 42 33 31 2C 24 39  |B4720,$D04B31,$9|
00000560: 34 46 30 30 32 29 3B 0D  58 28 24 31 42 30 42 45  |4F002);.X($1B0BE|
00000570: 45 2C 24 31 42 30 33 41  44 2C 24 35 45 38 35 30  |E,$1B03AD,$5E850|
00000580: 41 2C 24 31 42 30 34 41  44 29 3B 0D 58 28 24 35  |A,$1B04AD);.X($5|
00000590: 46 38 35 32 41 2C 24 31  42 30 35 41 44 2C 24 31  |F852A,$1B05AD,$1|
000005A0: 42 30 38 38 44 2C 24 41  35 30 34 38 35 29 3B 0D  |B088D,$A50485);.|
000005B0: 58 28 24 33 45 43 39 35  45 2C 24 41 35 30 36 44  |X($3EC95E,$A506D|
000005C0: 30 2C 24 30 31 43 39 35  46 2C 24 31 38 31 37 46  |0,$01C95F,$1817F|
000005D0: 30 29 3B 0D 58 28 24 36  39 35 45 41 35 2C 24 35  |0);.X($695EA5,$5|
000005E0: 45 38 35 30 32 2C 24 36  39 35 46 41 35 2C 24 35  |E8502,$695FA5,$5|
000005F0: 46 38 35 30 30 29 3B 0D  58 28 24 31 42 34 37 32  |F8500);.X($1B472|
00000600: 30 2C 24 44 30 34 42 33  31 2C 24 41 38 34 43 30  |0,$D04B31,$A84C0|
00000610: 33 2C 24 41 44 36 30 31  42 29 3B 0D 58 28 24 30  |3,$AD601B);.X($0|
00000620: 44 31 42 30 43 2C 24 41  41 31 42 30 36 2C 24 31  |D1B0C,$AA1B06,$1|
00000630: 43 38 46 42 44 2C 24 39  31 34 42 31 31 29 3B 0D  |C8FBD,$914B11);.|
00000640: 58 28 24 34 43 34 36 34  42 2C 24 34 36 34 42 36  |X($4C464B,$464B6|
00000650: 36 2C 24 34 42 36 36 34  43 2C 24 36 36 34 43 34  |6,$4B664C,$664C4|
00000660: 36 29 3B 0D 58 28 24 34  41 39 38 34 42 2C 24 41  |6);.X($4A984B,$A|
00000670: 38 34 41 34 41 2C 24 31  42 30 36 41 45 2C 24 44  |84A4A,$1B06AE,$D|
00000680: 30 30 33 45 30 29 3B 0D  58 28 24 41 35 31 38 30  |003E0);.X($A5180|
00000690: 37 2C 24 44 34 36 39 34  43 2C 24 42 31 34 43 38  |7,$D4694C,$B14C8|
000006A0: 35 2C 24 30 44 32 44 34  42 29 3B 0D 58 28 24 30  |5,$0D2D4B);.X($0|
000006B0: 45 30 44 31 42 2C 24 34  42 39 31 31 42 2C 24 43  |E0D1B,$4B911B,$C|
000006C0: 30 43 30 36 30 2C 24 30  43 33 30 33 30 29 3B 0D  |0C060,$0C3030);.|
000006D0: 58 28 24 30 33 30 33 30  43 2C 24 38 30 34 30 30  |X($03030C,$80400|
000006E0: 30 2C 24 31 30 30 30 43  30 2C 24 30 30 33 30 32  |0,$1000C0,$00302|
000006F0: 30 29 3B 0D 58 28 24 30  43 30 38 30 34 2C 24 30  |0);.X($0C0804,$0|
00000700: 32 30 31 30 30 2C 24 46  46 46 46 30 33 2C 30 29  |20100,$FFFF03,0)|
00000710: 0D 89 3B 0D 0D 86 50 41  49 4E 54 20 28 58 2C 59  |..;...PAINT (X,Y|
00000720: 2C 54 59 50 45 2C 43 4F  4C 4F 55 52 29 3B 0D 28  |,TYPE,COLOUR);.(|
00000730: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000740: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000750: 29 0D 88 0D 91 5B 24 31  42 30 33 5D 20 3A 3D 20  |)....[$1B03] := |
00000760: 58 20 8A 59 20 8E 31 36  3B 0D A2 5B 24 31 42 30  |X .Y .16;..[$1B0|
00000770: 36 5D 20 3A 3D 20 54 59  50 45 3B 0D A2 5B 24 31  |6] := TYPE;..[$1|
00000780: 42 30 37 5D 20 3A 3D 20  43 4F 4C 4F 55 52 3B 0D  |B07] := COLOUR;.|
00000790: 9F 28 24 31 42 30 30 29  0D 89 3B 0D 0D 86 44 52  |.($1B00)..;...DR|
000007A0: 41 57 20 28 58 2C 59 2C  58 49 4E 43 2C 59 49 4E  |AW (X,Y,XINC,YIN|
000007B0: 43 2C 4E 4F 29 3B 0D 28  2A 2A 2A 2A 2A 2A 2A 2A  |C,NO);.(********|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000007D0: 2A 2A 2A 2A 2A 2A 2A 29  0D 83 49 20 3A 20 FE 3B  |*******)..I : .;|
000007E0: 0D 88 0D 9A 49 20 3A 3D  20 31 20 9B 4E 4F 20 97  |....I := 1 .NO .|
000007F0: 0D 10 82 88 0D 10 82 A6  28 4F 4E 2C 20 58 2C 20  |........(ON, X, |
00000800: 59 29 3B 0D 10 82 58 20  3A 3D 20 58 20 2B 20 58  |Y);...X := X + X|
00000810: 49 4E 43 3B 0D 10 82 59  20 3A 3D 20 59 20 2B 20  |INC;...Y := Y + |
00000820: 59 49 4E 43 0D 10 82 89  3B 0D 4E 45 57 58 20 3A  |YINC....;.NEWX :|
00000830: 3D 20 58 3B 0D 4E 45 57  59 20 3A 3D 20 59 0D 89  |= X;.NEWY := Y..|
00000840: 3B 0D 0D 88 28 2A 20 4D  41 49 4E 20 50 52 4F 47  |;...(* MAIN PROG|
00000850: 52 41 4D 20 2A 29 0D 49  4E 49 54 5F 50 41 49 4E  |RAM *).INIT_PAIN|
00000860: 54 49 4E 47 3B 0D E2 28  42 49 54 4D 41 50 2C 20  |TING;..(BITMAP, |
00000870: 4F 4E 2C 0D 10 8A 4D 55  4C 54 49 43 4F 4C 4F 55  |ON,...MULTICOLOU|
00000880: 52 2C 20 4F 4E 2C 0D 10  8A 43 48 41 52 47 45 4E  |R, ON,...CHARGEN|
00000890: 42 41 53 45 2C 20 34 29  3B 0D A8 28 59 45 4C 4C  |BASE, 4);..(YELL|
000008A0: 4F 57 2C 20 42 4C 41 43  4B 29 3B 0D E2 28 42 4F  |OW, BLACK);..(BO|
000008B0: 52 44 45 52 2C 20 4C 49  47 48 54 5F 42 4C 55 45  |RDER, LIGHT_BLUE|
000008C0: 2C 0D 10 8A 42 41 43 4B  47 52 4F 55 4E 44 2C 20  |,...BACKGROUND, |
000008D0: 42 4C 41 43 4B 29 3B 0D  44 52 41 57 20 28 38 30  |BLACK);.DRAW (80|
000008E0: 2C 20 30 2C 20 30 2C 20  31 2C 20 32 30 30 29 3B  |, 0, 0, 1, 200);|
000008F0: 0D 44 52 41 57 20 28 30  2C 20 31 30 30 2C 20 31  |.DRAW (0, 100, 1|
00000900: 2C 20 30 2C 20 31 36 30  29 3B 0D 44 52 41 57 20  |, 0, 160);.DRAW |
00000910: 28 30 2C 20 30 2C 20 31  2C 20 31 2C 20 31 36 30  |(0, 0, 1, 1, 160|
00000920: 29 3B 0D 44 52 41 57 20  28 30 2C 20 35 30 2C 20  |);.DRAW (0, 50, |
00000930: 31 2C 20 31 2C 20 31 35  30 29 3B 0D 50 41 49 4E  |1, 1, 150);.PAIN|
00000940: 54 20 28 35 2C 20 31 2C  20 31 2C 20 52 45 44 29  |T (5, 1, 1, RED)|
00000950: 3B 0D 50 41 49 4E 54 20  28 35 2C 20 32 30 2C 20  |;.PAINT (5, 20, |
00000960: 32 2C 20 47 52 45 45 4E  29 3B 0D 50 41 49 4E 54  |2, GREEN);.PAINT|
00000970: 20 28 35 2C 20 38 30 2C  20 33 2C 20 42 52 4F 57  | (5, 80, 3, BROW|
00000980: 4E 29 3B 0D 50 41 49 4E  54 20 28 35 2C 20 31 35  |N);.PAINT (5, 15|
00000990: 30 2C 20 31 2C 20 42 4C  55 45 29 3B 0D 50 41 49  |0, 1, BLUE);.PAI|
000009A0: 4E 54 20 28 39 30 2C 20  35 2C 20 33 2C 20 59 45  |NT (90, 5, 3, YE|
000009B0: 4C 4C 4F 57 29 3B 0D 50  41 49 4E 54 20 28 31 35  |LLOW);.PAINT (15|
000009C0: 30 2C 20 31 31 30 2C 20  31 2C 20 43 59 41 4E 29  |0, 110, 1, CYAN)|
000009D0: 3B 0D 50 41 49 4E 54 20  28 39 30 2C 20 31 31 30  |;.PAINT (90, 110|
000009E0: 2C 20 32 2C 20 50 55 52  50 4C 45 29 3B 0D 50 41  |, 2, PURPLE);.PA|
000009F0: 49 4E 54 20 28 39 30 2C  20 31 39 30 2C 20 33 2C  |INT (90, 190, 3,|
00000A00: 20 4F 52 41 4E 47 45 29  3B 0D 98 99 A7 0D 89 2E  | ORANGE);.......|
00000A10: 0D 00 2D 3D                                       |..-=            |

.@(* MULTI COLOUR PAINTING DEMO PROGRAM.
.AUTHOR: NICK GAMMON - GAMBIT GAMES..USE
S $1B00 .$1EFF .MACHINE...CODE SUBROUTIN
ES..*)...BITMAP = 1;...MULTICOLOUR = 2;.
..CHARGENBASE = 8;...BORDER = 11;...BACK
GROUND = 12;...ON = 1;...BLACK = 0;...RE
D = 2;...CYAN = 3;...PURPLE = 4;...GREEN
 = 5;...BLUE = 6;...YELLOW = 7;...ORANGE
 = 8;...BROWN = 9;...LIGHT_BLUE = 14;...
NEWX, NEWY : .;...INIT_PAINTING;.(******
****************)..M : .;...X(A, B, C, D
);.(*--------------------*)....[M] := A;
..[M + 3] := B;..[M + 6] := C;..[M + 9] 
:= D;.M := M + 12..;....M := $1B00;.X($1
B6F4C,$32004B,$AD0501,$FFC089);.X($00000
0,$8500A9,$4B8504,$8520A9);.X($04A44C,$9
94BA5,$A51D00,$00994C);.X($04E61E,$C904A
5,$19F0C8,$D04BE6);.X($4CE602,$D00729,$A
518E2,$38694B);.X($A54B85,$01694C,$D04C8
5,$A460D3);.X($00B904,$4B851D,$1E00B9,$A
64C85);.X($02F05F,$A54CE6,$07295E,$8D0AA
A);.X($BD1B0C,$851C87,$5EA506,$A8F829);.
X($6006A5,$AEF0A0,$AD1B06,$E01B07);.X($0
6D001,$0A0A0A,$0FA00A,$1B0E8D);.X($1B0D8
C,$1B0BAD,$200310,$A91B0F);.X($0B8D00,$0
3AD1B,$850A1B,$04AD5E);.X($852A1B,$05AD5
F,$088D1B,$04851B);.X($1B4720,$084B31,$1
C4F20,$09D028);.X($F004A5,$04C605,$1BA84
C,$8D04A5);.X($AD1B0A,$851B08,$D64C04,$4
7201B);.X($4B311B,$4F2008,$D0281C,$04A50
B);.X($F0C7C9,$04E605,$1BCA4C,$8D04A5);.
X($381B09,$1B0AED,$0A6D4A,$088D1B);.X($0
4851B,$1B0BAD,$A533D0,$5F055E);.X($3816F
0,$E95EA5,$5E8502,$E95FA5);.X($5F8500,$1
B4720,$D04B31,$94F002);.X($1B0BEE,$1B03A
D,$5E850A,$1B04AD);.X($5F852A,$1B05AD,$1
B088D,$A50485);.X($3EC95E,$A506D0,$01C95
F,$1817F0);.X($695EA5,$5E8502,$695FA5,$5
F8500);.X($1B4720,$D04B31,$A84C03,$AD601
B);.X($0D1B0C,$AA1B06,$1C8FBD,$914B11);.
X($4C464B,$464B66,$4B664C,$664C46);.X($4
A984B,$A84A4A,$1B06AE,$D003E0);.X($A5180
7,$D4694C,$B14C85,$0D2D4B);.X($0E0D1B,$4
B911B,$C0C060,$0C3030);.X($03030C,$80400
0,$1000C0,$003020);.X($0C0804,$020100,$F
FFF03,0)..;...PAINT (X,Y,TYPE,COLOUR);.(
********************************)....[$1
B03] := X .Y .16;..[$1B06] := TYPE;..[$1
B07] := COLOUR;..($1B00)..;...DRAW (X,Y,
XINC,YINC,NO);.(************************
*******)..I : .;....I := 1 .NO .........
(ON, X, Y);...X := X + XINC;...Y := Y + 
YINC....;.NEWX := X;.NEWY := Y..;...(* M
AIN PROGRAM *).INIT_PAINTING;..(BITMAP, 
ON,...MULTICOLOUR, ON,...CHARGENBASE, 4)
;..(YELLOW, BLACK);..(BORDER, LIGHT_BLUE
,...BACKGROUND, BLACK);.DRAW (80, 0, 0, 
1, 200);.DRAW (0, 100, 1, 0, 160);.DRAW 
(0, 0, 1, 1, 160);.DRAW (0, 50, 1, 1, 15
0);.PAINT (5, 1, 1, RED);.PAINT (5, 20, 
2, GREEN);.PAINT (5, 80, 3, BROWN);.PAIN
T (5, 150, 1, BLUE);.PAINT (90, 5, 3, YE
LLOW);.PAINT (150, 110, 1, CYAN);.PAINT 
(90, 110, 2, PURPLE);.PAINT (90, 190, 3,
 ORANGE);.........-=

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL