PAINT SINGLE

FILE INFORMATION

FILENAME(S): PAINT SINGLE

FILE TYPE(S): DEL

FILE SIZE: 2.3K

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

APPEARS ON: 1 disk(s)

FILE HASH

2b5e9770dc7f2b7bcfa1bd12b1110f684366a82d1b1fe97ea970edf38f8c7405

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DDSC SOFT RUN	PAINT SINGLE	DEL	DuncanTwain	33	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 40 28 2A 20 53 49 4E  47 4C 45 20 43 4F 4C 4F  |.@(* SINGLE COLO|
00000010: 55 52 20 50 41 49 4E 54  49 4E 47 20 44 45 4D 4F  |UR PAINTING DEMO|
00000020: 20 50 52 4F 47 52 41 4D  0D 0D C1 55 54 48 4F 52  | PROGRAM...UTHOR|
00000030: 3A 20 CE 49 43 4B 20 C7  41 4D 4D 4F 4E 20 2D 20  |: .ICK .AMMON - |
00000040: C7 41 4D 42 49 54 20 C7  41 4D 45 53 0D 0D D5 53  |.AMBIT .AMES...S|
00000050: 45 53 20 24 31 C2 30 30  20 9B 24 31 C5 C6 C6 20  |ES $1.00 .$1... |
00000060: 9A 4D 41 43 48 49 4E 45  0D 10 85 43 4F 44 45 20  |.MACHINE...CODE |
00000070: 53 55 42 52 4F 55 54 49  4E 45 53 2E 0D 2A 29 0D  |SUBROUTINES..*).|
00000080: 0D 82 42 49 54 4D 41 50  20 3D 20 31 3B 0D 10 86  |..BITMAP = 1;...|
00000090: 43 48 41 52 47 45 4E 42  41 53 45 20 3D 20 38 3B  |CHARGENBASE = 8;|
000000A0: 0D 10 86 42 4F 52 44 45  52 20 3D 20 31 31 3B 0D  |...BORDER = 11;.|
000000B0: 10 86 4F 4E 20 3D 20 31  3B 0D 10 86 42 4C 41 43  |..ON = 1;...BLAC|
000000C0: 4B 20 3D 20 30 3B 0D 10  86 47 52 45 45 4E 20 3D  |K = 0;...GREEN =|
000000D0: 20 35 3B 0D 10 86 42 4C  55 45 20 3D 20 36 3B 0D  | 5;...BLUE = 6;.|
000000E0: 10 86 59 45 4C 4C 4F 57  20 3D 20 37 3B 0D 10 86  |..YELLOW = 7;...|
000000F0: 42 52 4F 57 4E 20 3D 20  39 3B 0D 10 86 4C 49 47  |BROWN = 9;...LIG|
00000100: 48 54 5F 42 4C 55 45 20  3D 20 31 34 3B 0D 0D 83  |HT_BLUE = 14;...|
00000110: 4E 45 57 58 2C 20 4E 45  57 59 20 3A 20 FE 3B 0D  |NEWX, NEWY : .;.|
00000120: 0D 86 49 4E 49 54 5F 50  41 49 4E 54 49 4E 47 3B  |..INIT_PAINTING;|
00000130: 0D 28 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.(**************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A  29 0D 83 4D 20 3A 20 FE  |********)..M : .|
00000150: 3B 0D 0D 86 58 28 41 2C  20 42 2C 20 43 2C 20 44  |;...X(A, B, C, D|
00000160: 29 3B 0D 28 2A 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |);.(*-----------|
00000170: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2A 29 0D 88 0D 91 5B  |---------*)....[|
00000180: 4D 5D 20 3A 3D 20 41 3B  0D 91 5B 4D 20 2B 20 33  |M] := A;..[M + 3|
00000190: 5D 20 3A 3D 20 42 3B 0D  91 5B 4D 20 2B 20 36 5D  |] := B;..[M + 6]|
000001A0: 20 3A 3D 20 43 3B 0D 91  5B 4D 20 2B 20 39 5D 20  | := C;..[M + 9] |
000001B0: 3A 3D 20 44 3B 0D 4D 20  3A 3D 20 4D 20 2B 20 31  |:= D;.M := M + 1|
000001C0: 32 0D 89 3B 0D 0D 88 0D  4D 20 3A 3D 20 24 31 42  |2..;....M := $1B|
000001D0: 30 30 3B 0D 58 28 24 31  42 36 46 34 43 2C 24 33  |00;.X($1B6F4C,$3|
000001E0: 32 30 30 34 42 2C 24 41  44 30 35 30 31 2C 24 46  |2004B,$AD0501,$F|
000001F0: 46 43 30 38 39 29 3B 0D  58 28 24 30 30 30 30 30  |FC089);.X($00000|
00000200: 30 2C 24 38 35 30 30 41  39 2C 24 34 42 38 35 30  |0,$8500A9,$4B850|
00000210: 34 2C 24 38 35 32 30 41  39 29 3B 0D 58 28 24 30  |4,$8520A9);.X($0|
00000220: 34 41 34 34 43 2C 24 39  39 34 42 41 35 2C 24 41  |4A44C,$994BA5,$A|
00000230: 35 31 44 30 30 2C 24 30  30 39 39 34 43 29 3B 0D  |51D00,$00994C);.|
00000240: 58 28 24 30 34 45 36 31  45 2C 24 43 39 30 34 41  |X($04E61E,$C904A|
00000250: 35 2C 24 31 39 46 30 43  38 2C 24 44 30 34 42 45  |5,$19F0C8,$D04BE|
00000260: 36 29 3B 0D 58 28 24 34  43 45 36 30 32 2C 24 44  |6);.X($4CE602,$D|
00000270: 30 30 37 32 39 2C 24 41  35 31 38 45 32 2C 24 33  |00729,$A518E2,$3|
00000280: 38 36 39 34 42 29 3B 0D  58 28 24 41 35 34 42 38  |8694B);.X($A54B8|
00000290: 35 2C 24 30 31 36 39 34  43 2C 24 44 30 34 43 38  |5,$01694C,$D04C8|
000002A0: 35 2C 24 41 34 36 30 44  33 29 3B 0D 58 28 24 30  |5,$A460D3);.X($0|
000002B0: 30 42 39 30 34 2C 24 34  42 38 35 31 44 2C 24 31  |0B904,$4B851D,$1|
000002C0: 45 30 30 42 39 2C 24 41  36 34 43 38 35 29 3B 0D  |E00B9,$A64C85);.|
000002D0: 58 28 24 30 32 46 30 35  46 2C 24 41 35 34 43 45  |X($02F05F,$A54CE|
000002E0: 36 2C 24 30 37 32 39 35  45 2C 24 36 39 42 44 41  |6,$07295E,$69BDA|
000002F0: 41 29 3B 0D 58 28 24 30  36 38 35 31 43 2C 24 32  |A);.X($06851C,$2|
00000300: 39 35 45 41 35 2C 24 41  35 41 38 46 38 2C 24 30  |95EA5,$A5A8F8,$0|
00000310: 30 36 30 30 36 29 3B 0D  58 28 24 30 30 30 30 30  |06006);.X($00000|
00000320: 30 2C 24 41 44 46 30 41  30 2C 24 41 45 31 42 30  |0,$ADF0A0,$AE1B0|
00000330: 37 2C 24 46 30 31 42 30  36 29 3B 0D 58 28 24 30  |7,$F01B06);.X($0|
00000340: 41 30 41 30 36 2C 24 41  30 30 41 30 41 2C 24 30  |A0A06,$A00A0A,$0|
00000350: 44 38 43 30 46 2C 24 30  45 38 44 31 42 29 3B 0D  |D8C0F,$0E8D1B);.|
00000360: 58 28 24 30 42 41 44 31  42 2C 24 30 33 31 30 31  |X($0BAD1B,$03101|
00000370: 42 2C 24 31 42 30 46 32  30 2C 24 38 44 30 30 41  |B,$1B0F20,$8D00A|
00000380: 39 29 3B 0D 58 28 24 41  44 31 42 30 42 2C 24 38  |9);.X($AD1B0B,$8|
00000390: 35 31 42 30 33 2C 24 30  34 41 44 35 45 2C 24 35  |51B03,$04AD5E,$5|
000003A0: 46 38 35 31 42 29 3B 0D  58 28 24 31 42 30 35 41  |F851B);.X($1B05A|
000003B0: 44 2C 24 31 42 30 38 38  44 2C 24 32 30 30 34 38  |D,$1B088D,$20048|
000003C0: 35 2C 24 33 31 31 42 34  37 29 3B 0D 58 28 24 32  |5,$311B47);.X($2|
000003D0: 30 30 38 34 42 2C 24 32  38 31 43 34 32 2C 24 41  |0084B,$281C42,$A|
000003E0: 35 30 39 44 30 2C 24 30  35 46 30 30 34 29 3B 0D  |509D0,$05F004);.|
000003F0: 58 28 24 34 43 30 34 43  36 2C 24 41 35 31 42 41  |X($4C04C6,$A51BA|
00000400: 34 2C 24 30 41 38 44 30  34 2C 24 30 38 41 44 31  |4,$0A8D04,$08AD1|
00000410: 42 29 3B 0D 58 28 24 30  34 38 35 31 42 2C 24 31  |B);.X($04851B,$1|
00000420: 42 44 32 34 43 2C 24 31  42 34 37 32 30 2C 24 30  |BD24C,$1B4720,$0|
00000430: 38 34 42 33 31 29 3B 0D  58 28 24 31 43 34 32 32  |84B31);.X($1C422|
00000440: 30 2C 24 30 42 44 30 32  38 2C 24 43 39 30 34 41  |0,$0BD028,$C904A|
00000450: 35 2C 24 30 35 46 30 43  37 29 3B 0D 58 28 24 34  |5,$05F0C7);.X($4|
00000460: 43 30 34 45 36 2C 24 41  35 31 42 43 36 2C 24 30  |C04E6,$A51BC6,$0|
00000470: 39 38 44 30 34 2C 24 45  44 33 38 31 42 29 3B 0D  |98D04,$ED381B);.|
00000480: 58 28 24 34 41 31 42 30  41 2C 24 31 42 30 41 36  |X($4A1B0A,$1B0A6|
00000490: 44 2C 24 31 42 30 38 38  44 2C 24 41 44 30 34 38  |D,$1B088D,$AD048|
000004A0: 35 29 3B 0D 58 28 24 44  30 31 42 30 42 2C 24 35  |5);.X($D01B0B,$5|
000004B0: 45 41 35 33 31 2C 24 46  30 35 46 30 35 2C 24 41  |EA531,$F05F05,$A|
000004C0: 35 33 38 31 36 29 3B 0D  58 28 24 30 31 45 39 35  |53816);.X($01E95|
000004D0: 45 2C 24 41 35 35 45 38  35 2C 24 30 30 45 39 35  |E,$A55E85,$00E95|
000004E0: 46 2C 24 32 30 35 46 38  35 29 3B 0D 58 28 24 33  |F,$205F85);.X($3|
000004F0: 31 31 42 34 37 2C 24 30  32 44 30 34 42 2C 24 45  |11B47,$02D04B,$E|
00000500: 45 39 34 46 30 2C 24 41  44 31 42 30 42 29 3B 0D  |E94F0,$AD1B0B);.|
00000510: 58 28 24 38 35 31 42 30  33 2C 24 30 34 41 44 35  |X($851B03,$04AD5|
00000520: 45 2C 24 35 46 38 35 31  42 2C 24 31 42 30 35 41  |E,$5F851B,$1B05A|
00000530: 44 29 3B 0D 58 28 24 31  42 30 38 38 44 2C 24 41  |D);.X($1B088D,$A|
00000540: 35 30 34 38 35 2C 24 33  46 43 39 35 45 2C 24 41  |50485,$3FC95E,$A|
00000550: 35 30 36 44 30 29 3B 0D  58 28 24 30 31 43 39 35  |506D0);.X($01C95|
00000560: 46 2C 24 45 36 31 30 46  30 2C 24 30 32 44 30 35  |F,$E610F0,$02D05|
00000570: 45 2C 24 32 30 35 46 45  36 29 3B 0D 58 28 24 33  |E,$205FE6);.X($3|
00000580: 31 31 42 34 37 2C 24 30  33 44 30 34 42 2C 24 31  |11B47,$03D04B,$1|
00000590: 42 41 34 34 43 2C 24 30  36 41 45 36 30 29 3B 0D  |BA44C,$06AE60);.|
000005A0: 58 28 24 30 36 46 30 31  42 2C 24 31 31 30 36 41  |X($06F01B,$1106A|
000005B0: 35 2C 24 34 42 39 31 34  42 2C 24 36 36 34 43 34  |5,$4B914B,$664C4|
000005C0: 36 29 3B 0D 58 28 24 34  43 34 36 34 42 2C 24 34  |6);.X($4C464B,$4|
000005D0: 36 34 42 36 36 2C 24 34  42 36 36 34 43 2C 24 34  |64B66,$4B664C,$4|
000005E0: 41 34 41 39 38 29 3B 0D  58 28 24 42 31 41 38 34  |A4A98);.X($B1A84|
000005F0: 41 2C 24 30 44 32 44 34  42 2C 24 30 45 30 44 31  |A,$0D2D4B,$0E0D1|
00000600: 42 2C 24 34 42 39 31 31  42 29 3B 0D 58 28 24 34  |B,$4B911B);.X($4|
00000610: 30 38 30 36 30 2C 24 30  38 31 30 32 30 2C 24 30  |08060,$081020,$0|
00000620: 31 30 32 30 34 2C 30 29  0D 89 3B 0D 0D 86 50 41  |10204,0)..;...PA|
00000630: 49 4E 54 20 28 58 2C 59  2C 54 59 50 45 2C 43 4F  |INT (X,Y,TYPE,CO|
00000640: 4C 4F 55 52 29 3B 0D 28  2A 2A 2A 2A 2A 2A 2A 2A  |LOUR);.(********|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A  29 0D 88 0D 91 5B 24 31  |********)....[$1|
00000670: 42 30 33 5D 20 3A 3D 20  58 20 8A 59 20 8E 31 36  |B03] := X .Y .16|
00000680: 3B 0D A2 5B 24 31 42 30  36 5D 20 3A 3D 20 54 59  |;..[$1B06] := TY|
00000690: 50 45 3B 0D A2 5B 24 31  42 30 37 5D 20 3A 3D 20  |PE;..[$1B07] := |
000006A0: 43 4F 4C 4F 55 52 3B 0D  9F 28 24 31 42 30 30 29  |COLOUR;..($1B00)|
000006B0: 0D 89 3B 0D 0D 86 44 52  41 57 20 28 58 2C 59 2C  |..;...DRAW (X,Y,|
000006C0: 58 49 4E 43 2C 59 49 4E  43 2C 4E 4F 29 3B 0D 28  |XINC,YINC,NO);.(|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 29  |***************)|
000006F0: 0D 83 49 20 3A 20 FE 3B  0D 88 0D 9A 49 20 3A 3D  |..I : .;....I :=|
00000700: 20 31 20 9B 4E 4F 20 97  0D 10 82 88 0D 10 82 A6  | 1 .NO .........|
00000710: 28 4F 4E 2C 20 58 2C 20  59 29 3B 0D 10 82 58 20  |(ON, X, Y);...X |
00000720: 3A 3D 20 58 20 2B 20 58  49 4E 43 3B 0D 10 82 59  |:= X + XINC;...Y|
00000730: 20 3A 3D 20 59 20 2B 20  59 49 4E 43 0D 10 82 89  | := Y + YINC....|
00000740: 3B 0D 4E 45 57 58 20 3A  3D 20 58 3B 0D 4E 45 57  |;.NEWX := X;.NEW|
00000750: 59 20 3A 3D 20 59 0D 89  3B 0D 0D 88 28 2A 20 4D  |Y := Y..;...(* M|
00000760: 41 49 4E 20 50 52 4F 47  52 41 4D 20 2A 29 0D 49  |AIN PROGRAM *).I|
00000770: 4E 49 54 5F 50 41 49 4E  54 49 4E 47 3B 0D E2 28  |NIT_PAINTING;..(|
00000780: 42 49 54 4D 41 50 2C 20  4F 4E 2C 0D 10 8A 43 48  |BITMAP, ON,...CH|
00000790: 41 52 47 45 4E 42 41 53  45 2C 20 34 29 3B 0D A8  |ARGENBASE, 4);..|
000007A0: 28 59 45 4C 4C 4F 57 2C  20 42 4C 41 43 4B 29 3B  |(YELLOW, BLACK);|
000007B0: 0D E2 28 42 4F 52 44 45  52 2C 20 4C 49 47 48 54  |..(BORDER, LIGHT|
000007C0: 5F 42 4C 55 45 29 3B 0D  44 52 41 57 20 28 30 2C  |_BLUE);.DRAW (0,|
000007D0: 20 31 39 30 2C 20 31 2C  20 2D 31 2C 20 34 30 29  | 190, 1, -1, 40)|
000007E0: 3B 0D 44 52 41 57 20 28  4E 45 57 58 2C 20 4E 45  |;.DRAW (NEWX, NE|
000007F0: 57 59 2C 20 31 2C 20 31  2C 20 33 30 29 3B 0D 44  |WY, 1, 1, 30);.D|
00000800: 52 41 57 20 28 4E 45 57  58 2C 20 4E 45 57 59 2C  |RAW (NEWX, NEWY,|
00000810: 20 31 2C 20 2D 31 2C 20  36 30 29 3B 0D 44 52 41  | 1, -1, 60);.DRA|
00000820: 57 20 28 4E 45 57 58 2C  20 4E 45 57 59 2C 20 31  |W (NEWX, NEWY, 1|
00000830: 2C 20 31 2C 20 35 30 29  3B 0D 44 52 41 57 20 28  |, 1, 50);.DRAW (|
00000840: 4E 45 57 58 2C 20 4E 45  57 59 2C 20 31 2C 20 2D  |NEWX, NEWY, 1, -|
00000850: 31 2C 20 33 38 29 3B 0D  44 52 41 57 20 28 4E 45  |1, 38);.DRAW (NE|
00000860: 57 58 2C 20 4E 45 57 59  2C 20 31 2C 20 30 2C 20  |WX, NEWY, 1, 0, |
00000870: 32 35 29 3B 0D 44 52 41  57 20 28 4E 45 57 58 2C  |25);.DRAW (NEWX,|
00000880: 20 4E 45 57 59 2C 20 31  2C 20 2D 31 2C 20 34 30  | NEWY, 1, -1, 40|
00000890: 29 3B 0D 44 52 41 57 20  28 4E 45 57 58 2C 20 4E  |);.DRAW (NEWX, N|
000008A0: 45 57 59 2C 20 31 2C 20  31 2C 20 32 30 29 3B 0D  |EWY, 1, 1, 20);.|
000008B0: 44 52 41 57 20 28 4E 45  57 58 2C 20 4E 45 57 59  |DRAW (NEWX, NEWY|
000008C0: 2C 20 31 2C 20 2D 31 2C  20 31 37 29 3B 0D 50 41  |, 1, -1, 17);.PA|
000008D0: 49 4E 54 20 28 34 30 2C  20 31 39 30 2C 20 31 2C  |INT (40, 190, 1,|
000008E0: 20 42 52 4F 57 4E 29 3B  0D 50 41 49 4E 54 20 28  | BROWN);.PAINT (|
000008F0: 31 30 30 2C 20 31 30 30  2C 20 30 2C 20 47 52 45  |100, 100, 0, GRE|
00000900: 45 4E 29 3B 0D 44 52 41  57 20 28 30 2C 20 38 30  |EN);.DRAW (0, 80|
00000910: 2C 20 31 2C 20 30 2C 20  33 32 30 29 3B 0D 50 41  |, 1, 0, 320);.PA|
00000920: 49 4E 54 20 28 31 30 2C  20 31 30 2C 20 31 2C 20  |INT (10, 10, 1, |
00000930: 42 4C 55 45 29 3B 0D 98  99 A7 0D 89 2E 0D 00     |BLUE);......... |

.@(* SINGLE COLOUR PAINTING DEMO PROGRAM
..AUTHOR: NICK GAMMON - GAMBIT GAMES..US
ES $1B00 .$1EFF .MACHINE...CODE SUBROUTI
NES..*)...BITMAP = 1;...CHARGENBASE = 8;
...BORDER = 11;...ON = 1;...BLACK = 0;..
.GREEN = 5;...BLUE = 6;...YELLOW = 7;...
BROWN = 9;...LIGHT_BLUE = 14;...NEWX, NE
WY : .;...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($1B6F4C,$3
2004B,$AD0501,$FFC089);.X($000000,$8500A
9,$4B8504,$8520A9);.X($04A44C,$994BA5,$A
51D00,$00994C);.X($04E61E,$C904A5,$19F0C
8,$D04BE6);.X($4CE602,$D00729,$A518E2,$3
8694B);.X($A54B85,$01694C,$D04C85,$A460D
3);.X($00B904,$4B851D,$1E00B9,$A64C85);.
X($02F05F,$A54CE6,$07295E,$69BDAA);.X($0
6851C,$295EA5,$A5A8F8,$006006);.X($00000
0,$ADF0A0,$AE1B07,$F01B06);.X($0A0A06,$A
00A0A,$0D8C0F,$0E8D1B);.X($0BAD1B,$03101
B,$1B0F20,$8D00A9);.X($AD1B0B,$851B03,$0
4AD5E,$5F851B);.X($1B05AD,$1B088D,$20048
5,$311B47);.X($20084B,$281C42,$A509D0,$0
5F004);.X($4C04C6,$A51BA4,$0A8D04,$08AD1
B);.X($04851B,$1BD24C,$1B4720,$084B31);.
X($1C4220,$0BD028,$C904A5,$05F0C7);.X($4
C04E6,$A51BC6,$098D04,$ED381B);.X($4A1B0
A,$1B0A6D,$1B088D,$AD0485);.X($D01B0B,$5
EA531,$F05F05,$A53816);.X($01E95E,$A55E8
5,$00E95F,$205F85);.X($311B47,$02D04B,$E
E94F0,$AD1B0B);.X($851B03,$04AD5E,$5F851
B,$1B05AD);.X($1B088D,$A50485,$3FC95E,$A
506D0);.X($01C95F,$E610F0,$02D05E,$205FE
6);.X($311B47,$03D04B,$1BA44C,$06AE60);.
X($06F01B,$1106A5,$4B914B,$664C46);.X($4
C464B,$464B66,$4B664C,$4A4A98);.X($B1A84
A,$0D2D4B,$0E0D1B,$4B911B);.X($408060,$0
81020,$010204,0)..;...PAINT (X,Y,TYPE,CO
LOUR);.(********************************
)....[$1B03] := X .Y .16;..[$1B06] := TY
PE;..[$1B07] := COLOUR;..($1B00)..;...DR
AW (X,Y,XINC,YINC,NO);.(****************
***************)..I : .;....I := 1 .NO .
........(ON, X, Y);...X := X + XINC;...Y
 := Y + YINC....;.NEWX := X;.NEWY := Y..
;...(* MAIN PROGRAM *).INIT_PAINTING;..(
BITMAP, ON,...CHARGENBASE, 4);..(YELLOW,
 BLACK);..(BORDER, LIGHT_BLUE);.DRAW (0,
 190, 1, -1, 40);.DRAW (NEWX, NEWY, 1, 1
, 30);.DRAW (NEWX, NEWY, 1, -1, 60);.DRA
W (NEWX, NEWY, 1, 1, 50);.DRAW (NEWX, NE
WY, 1, -1, 38);.DRAW (NEWX, NEWY, 1, 0, 
25);.DRAW (NEWX, NEWY, 1, -1, 40);.DRAW 
(NEWX, NEWY, 1, 1, 20);.DRAW (NEWX, NEWY
, 1, -1, 17);.PAINT (40, 190, 1, BROWN);
.PAINT (100, 100, 0, GREEN);.DRAW (0, 80
, 1, 0, 320);.PAINT (10, 10, 1, BLUE);..
.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL