SHAPES DEMO
FILE INFORMATION
FILENAME(S): SHAPES DEMO
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-10-19 22:49:24
APPEARS ON: 2 disk(s)
FILE HASH
5d71f78643e5b428966d14f6e55f2c7bc6f9cd6e0c6a8ef98e7fe4dedcfc871e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK NOV85 | SHAPES DEMO | PRG | Radd Maxx | 8 | 9 | DOWNLOAD FILE |
| ARNOLD | SHAPES DEMO | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 0A 00 8F 20 20 20 20 20 20 20 20 53 |....... S|
00000010: 48 41 50 45 53 20 44 45 4D 4F 00 20 08 14 00 3A |HAPES DEMO. ...:|
00000020: 00 6C 08 1E 00 8F 20 20 20 20 20 52 49 43 48 41 |.l.... RICHA|
00000030: 52 44 20 4C 2E 20 52 59 4C 41 4E 44 45 52 20 20 |RD L. RYLANDER |
00000040: 20 20 31 31 2F 32 33 2F 38 34 20 28 52 45 56 49 | 11/23/84 (REVI|
00000050: 53 45 44 20 31 2F 32 30 2F 38 35 20 54 4F 20 41 |SED 1/20/85 TO A|
00000060: 44 44 20 4C 41 42 45 4C 49 4E 47 29 00 72 08 28 |DD LABELING).r.(|
00000070: 00 3A 00 93 08 32 00 47 52 B2 34 39 33 37 38 20 |.:...2.GR.49378 |
00000080: 20 20 20 3A 8F 20 47 52 41 50 48 49 43 53 20 4D | :. GRAPHICS M|
00000090: 4F 44 45 00 B0 08 3C 00 54 58 B2 34 39 34 31 31 |ODE...<.TX.49411|
000000A0: 20 20 20 20 3A 8F 20 54 45 58 54 20 4D 4F 44 45 | :. TEXT MODE|
000000B0: 00 B6 08 46 00 3A 00 D4 08 50 00 4C 42 B2 38 39 |...F.:...P.LB.89|
000000C0: 33 20 20 20 20 20 20 3A 8F 20 4C 45 46 54 20 42 |3 :. LEFT B|
000000D0: 4F 55 4E 44 00 F3 08 5A 00 52 42 B2 38 39 34 20 |OUND...Z.RB.894 |
000000E0: 20 20 20 20 20 3A 8F 20 52 49 47 48 54 20 42 4F | :. RIGHT BO|
000000F0: 55 4E 44 00 0E 09 64 00 55 42 B2 38 39 35 20 20 |UND...d.UB.895 |
00000100: 20 20 20 3A 8F 20 55 50 20 42 4F 55 4E 44 00 2B | :. UP BOUND.+|
00000110: 09 6E 00 44 42 B2 38 39 36 20 20 20 20 20 3A 8F |.n.DB.896 :.|
00000120: 20 44 4F 57 4E 20 42 4F 55 4E 44 00 31 09 78 00 | DOWN BOUND.1.x.|
00000130: 3A 00 59 09 82 00 8F 20 20 20 46 4C 41 47 53 20 |:.Y.... FLAGS |
00000140: 46 4F 52 20 56 41 52 49 4F 55 53 20 44 52 41 57 |FOR VARIOUS DRAW|
00000150: 49 4E 47 20 4D 4F 44 45 53 00 5F 09 8C 00 3A 00 |ING MODES._...:.|
00000160: 94 09 96 00 53 48 B2 38 33 38 20 20 20 20 20 3A |....SH.838 :|
00000170: 8F 20 53 48 41 44 45 20 53 54 59 4C 45 20 2D 20 |. SHADE STYLE - |
00000180: 30 3D 52 41 4E 44 4F 4D 2C 20 31 3D 48 41 4C 46 |0=RANDOM, 1=HALF|
00000190: 54 4F 4E 45 00 E2 09 A0 00 53 43 B2 38 33 39 20 |TONE.....SC.839 |
000001A0: 20 20 20 20 3A 8F 20 53 43 41 4C 49 4E 47 20 2D | :. SCALING -|
000001B0: 20 30 3D 4E 4F 52 4D 41 4C 20 28 31 3A 31 29 2C | 0=NORMAL (1:1),|
000001C0: 20 31 3D 53 43 41 4C 45 44 20 28 33 3A 34 29 20 | 1=SCALED (3:4) |
000001D0: 46 4F 52 20 53 43 52 45 45 4E 20 44 49 53 50 4C |FOR SCREEN DISPL|
000001E0: 41 59 00 2E 0A AA 00 4C 54 B2 38 39 38 20 20 20 |AY.....LT.898 |
000001F0: 20 20 3A 8F 20 4C 49 47 48 54 49 4E 47 20 2D 20 | :. LIGHTING - |
00000200: 30 3D 4E 4F 52 4D 41 4C 20 53 49 4E 47 4C 45 2D |0=NORMAL SINGLE-|
00000210: 53 4F 55 52 43 45 2C 20 31 3D 42 41 43 4B 4C 49 |SOURCE, 1=BACKLI|
00000220: 54 20 49 4C 4C 55 4D 49 4E 41 54 49 4F 4E 00 34 |T ILLUMINATION.4|
00000230: 0A B4 00 3A 00 54 0A BE 00 42 4F B2 35 33 32 38 |...:.T...BO.5328|
00000240: 30 20 20 20 3A 8F 20 20 42 4F 52 44 45 52 20 43 |0 :. BORDER C|
00000250: 4F 4C 4F 52 00 5A 0A C8 00 3A 00 75 0A D2 00 8F |OLOR.Z...:.u....|
00000260: 20 20 20 46 55 4E 43 54 49 4F 4E 20 4C 4F 43 41 | FUNCTION LOCA|
00000270: 54 49 4F 4E 53 00 7B 0A DC 00 3A 00 9F 0A E6 00 |TIONS.{...:.....|
00000280: 43 4C B2 35 31 39 37 39 20 20 20 3A 8F 20 43 4C |CL.51979 :. CL|
00000290: 45 41 52 20 42 49 54 4D 41 50 20 41 52 45 41 00 |EAR BITMAP AREA.|
000002A0: C0 0A F0 00 43 4F B2 35 32 30 30 31 20 20 20 3A |....CO.52001 :|
000002B0: 8F 20 46 49 4C 4C 20 43 4F 4C 4F 52 20 4D 41 50 |. FILL COLOR MAP|
000002C0: 00 C6 0A FA 00 3A 00 E0 0A 04 01 53 50 B2 35 32 |.....:.....SP.52|
000002D0: 31 31 39 20 20 20 3A 8F 20 20 53 50 48 45 52 45 |119 :. SPHERE|
000002E0: 00 03 0B 0E 01 54 52 B2 35 32 31 34 31 20 20 20 |.....TR.52141 |
000002F0: 3A 8F 20 20 54 4F 50 2D 56 49 45 57 20 54 4F 52 |:. TOP-VIEW TOR|
00000300: 4F 49 44 00 2F 0B 18 01 56 43 B2 35 32 31 35 30 |OID./...VC.52150|
00000310: 20 20 20 3A 8F 20 20 43 59 4C 49 4E 44 45 52 20 | :. CYLINDER |
00000320: 28 41 58 49 53 20 56 45 52 54 49 43 41 4C 29 00 |(AXIS VERTICAL).|
00000330: 5D 0B 22 01 48 43 B2 35 32 31 35 33 20 20 20 3A |].".HC.52153 :|
00000340: 8F 20 20 43 59 4C 49 4E 44 45 52 20 28 41 58 49 |. CYLINDER (AXI|
00000350: 53 20 48 4F 52 49 5A 4F 4E 54 41 4C 29 00 91 0B |S HORIZONTAL)...|
00000360: 2C 01 56 54 B2 35 32 31 38 36 20 20 20 3A 8F 20 |,.VT.52186 :. |
00000370: 20 45 44 47 45 2D 56 49 45 57 20 54 4F 52 4F 49 | EDGE-VIEW TOROI|
00000380: 44 20 28 41 58 49 53 20 56 45 52 54 49 43 41 4C |D (AXIS VERTICAL|
00000390: 29 00 C7 0B 36 01 48 54 B2 35 32 31 38 39 20 20 |)...6.HT.52189 |
000003A0: 20 3A 8F 20 20 45 44 47 45 2D 56 49 45 57 20 54 | :. EDGE-VIEW T|
000003B0: 4F 52 4F 49 44 20 28 41 58 49 53 20 48 4F 52 49 |OROID (AXIS HORI|
000003C0: 5A 4F 4E 54 41 4C 29 00 07 0C 40 01 56 53 B2 35 |ZONTAL)...@.VS.5|
000003D0: 32 32 30 33 20 20 20 3A 8F 20 20 49 4E 53 49 44 |2203 :. INSID|
000003E0: 45 2D 56 49 45 57 20 54 4F 52 4F 49 44 20 5B 22 |E-VIEW TOROID ["|
000003F0: 53 50 4F 4F 4C 22 5D 20 28 41 58 49 53 20 56 45 |SPOOL"] (AXIS VE|
00000400: 52 54 49 43 41 4C 29 00 49 0C 4A 01 48 53 B2 35 |RTICAL).I.J.HS.5|
00000410: 32 32 30 36 20 20 20 3A 8F 20 20 49 4E 53 49 44 |2206 :. INSID|
00000420: 45 2D 56 49 45 57 20 54 4F 52 4F 49 44 20 5B 22 |E-VIEW TOROID ["|
00000430: 53 50 4F 4F 4C 22 5D 20 28 41 58 49 53 20 48 4F |SPOOL"] (AXIS HO|
00000440: 52 49 5A 4F 4E 54 41 4C 29 00 4F 0C 54 01 3A 00 |RIZONTAL).O.T.:.|
00000450: 8F 0C 5E 01 8F 20 20 44 52 41 57 20 53 41 4D 50 |..^.. DRAW SAMP|
00000460: 4C 45 53 20 4F 46 20 50 52 49 4D 49 54 49 56 45 |LES OF PRIMITIVE|
00000470: 20 53 48 41 50 45 53 20 57 49 54 48 20 4C 41 42 | SHAPES WITH LAB|
00000480: 45 4C 20 42 45 4E 45 41 54 48 20 45 41 43 48 00 |EL BENEATH EACH.|
00000490: 95 0C 68 01 3A 00 B4 0C 72 01 97 20 53 48 2C 31 |..h.:...r.. SH,1|
000004A0: 20 3A 8F 20 48 41 4C 46 54 4F 4E 45 20 53 48 41 | :. HALFTONE SHA|
000004B0: 44 49 4E 47 00 F5 0C 7C 01 97 20 53 43 2C 31 20 |DING...|.. SC,1 |
000004C0: 3A 8F 20 55 53 45 20 53 43 52 45 45 4E 20 53 43 |:. USE SCREEN SC|
000004D0: 41 4C 49 4E 47 20 28 46 4F 52 20 55 4E 44 49 53 |ALING (FOR UNDIS|
000004E0: 54 4F 52 54 45 44 20 53 50 48 45 52 45 53 2C 20 |TORTED SPHERES, |
000004F0: 45 54 43 2E 29 00 2A 0D 86 01 97 20 4C 54 2C 30 |ETC.).*.... LT,0|
00000500: 20 3A 8F 20 55 53 45 20 4E 4F 52 4D 41 4C 20 28 | :. USE NORMAL (|
00000510: 4E 4F 20 42 41 43 4B 4C 49 47 48 54 29 20 49 4C |NO BACKLIGHT) IL|
00000520: 4C 55 4D 49 4E 41 54 49 4F 4E 00 67 0D 90 01 9E |LUMINATION.g....|
00000530: 28 43 4C 29 20 20 20 3A 8F 20 43 4C 45 41 52 20 |(CL) :. CLEAR |
00000540: 53 43 52 45 45 4E 20 28 44 45 46 41 55 4C 54 20 |SCREEN (DEFAULT |
00000550: 2D 20 46 49 4C 4C 20 42 49 54 4D 41 50 20 57 49 |- FILL BITMAP WI|
00000560: 54 48 20 30 27 53 29 00 B2 0D 9A 01 9E 28 43 4F |TH 0'S)......(CO|
00000570: 29 2C 31 36 AC 31 31 AA 31 20 20 3A 8F 20 43 4F |),16.11.1 :. CO|
00000580: 4C 4F 52 20 43 4F 4D 42 49 4E 41 54 49 4F 4E 20 |LOR COMBINATION |
00000590: 2D 20 44 41 52 4B 20 47 52 41 59 20 28 31 31 29 |- DARK GRAY (11)|
000005A0: 20 44 4F 54 53 20 4F 4E 20 57 48 49 54 45 20 28 | DOTS ON WHITE (|
000005B0: 31 29 00 FE 0D 9C 01 8F 20 20 20 20 4C 4F 4F 4B |1)...... LOOK|
000005C0: 53 20 42 45 54 54 45 52 20 54 48 41 4E 20 44 45 |S BETTER THAN DE|
000005D0: 46 41 55 4C 54 20 43 4F 4C 4F 52 20 43 4F 4D 42 |FAULT COLOR COMB|
000005E0: 49 4E 41 54 49 4F 4E 20 4F 46 20 42 4C 41 43 4B |INATION OF BLACK|
000005F0: 20 44 4F 54 53 20 4F 4E 20 57 48 49 54 45 00 1E | DOTS ON WHITE..|
00000600: 0E 9E 01 8F 20 20 20 20 4F 4E 20 4D 4F 53 54 20 |.... ON MOST |
00000610: 43 4F 4C 4F 52 20 4D 4F 4E 49 54 4F 52 53 00 4D |COLOR MONITORS.M|
00000620: 0E A4 01 97 20 42 4F 2C 31 20 3A 8F 20 57 48 49 |.... BO,1 :. WHI|
00000630: 54 45 20 42 4F 52 44 45 52 20 54 4F 20 4D 41 54 |TE BORDER TO MAT|
00000640: 43 48 20 42 41 43 4B 47 52 4F 55 4E 44 00 7A 0E |CH BACKGROUND.z.|
00000650: AE 01 9E 28 47 52 29 20 20 20 3A 8F 20 45 4E 54 |...(GR) :. ENT|
00000660: 45 52 20 42 49 54 4D 41 50 50 45 44 20 47 52 41 |ER BITMAPPED GRA|
00000670: 50 48 49 43 53 20 4D 4F 44 45 00 BF 0E B0 01 52 |PHICS MODE.....R|
00000680: 57 B2 31 32 3A 43 4D B2 31 34 3A 4D 44 B2 31 3A |W.12:CM.14:MD.1:|
00000690: 41 24 B2 22 53 41 4D 50 4C 45 20 53 48 41 50 45 |A$."SAMPLE SHAPE|
000006A0: 53 22 3A 8D 20 31 39 30 30 3A 8F 20 20 50 55 54 |S":. 1900:. PUT|
000006B0: 20 54 49 54 4C 45 20 4F 4E 20 49 4D 41 47 45 00 | TITLE ON IMAGE.|
000006C0: 04 0F B2 01 58 31 B2 31 31 30 3A 59 31 B2 31 32 |....X1.110:Y1.12|
000006D0: 30 3A 58 32 B2 32 31 30 3A 59 32 B2 31 32 30 3A |0:X2.210:Y2.120:|
000006E0: 42 43 B2 31 3A 44 43 B2 37 3A 8D 20 31 37 30 30 |BC.1:DC.7:. 1700|
000006F0: 3A 8F 20 20 43 4F 4C 4F 52 20 54 49 54 4C 45 20 |:. COLOR TITLE |
00000700: 54 45 58 54 00 45 0F B8 01 97 20 4C 42 2C 33 38 |TEXT.E.... LB,38|
00000710: 3A 97 20 52 42 2C 33 38 3A 97 20 55 42 2C 33 38 |:. RB,38:. UB,38|
00000720: 3A 97 20 44 42 2C 33 38 20 20 20 20 20 20 20 3A |:. DB,38 :|
00000730: 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 43 4C 49 |. INITIALIZE CLI|
00000740: 50 50 49 4E 47 00 59 0F C2 01 9E 28 53 50 29 2C |PPING.Y....(SP),|
00000750: 34 30 2C 31 39 39 2C 33 38 00 7E 0F C7 01 52 57 |40,199,38.~...RW|
00000760: B2 39 3A 43 4D B2 32 3A 4D 44 B2 31 3A 41 24 B2 |.9:CM.2:MD.1:A$.|
00000770: 22 53 50 48 45 52 45 22 3A 8D 31 39 30 30 00 96 |"SPHERE":.1900..|
00000780: 0F CC 01 9E 28 48 43 29 2C 31 32 30 2C 31 39 39 |....(HC),120,199|
00000790: 2C 33 38 2C 33 38 00 B4 0F D1 01 43 4D B2 31 31 |,38,38.....CM.11|
000007A0: 3A 41 24 B2 22 48 2D 43 59 4C 4E 44 52 22 3A 8D |:A$."H-CYLNDR":.|
000007B0: 31 39 30 30 00 FF 0F D6 01 9E 28 56 43 29 2C 32 |1900......(VC),2|
000007C0: 30 30 2C 31 39 39 20 3A 8F 20 4E 4F 20 53 49 5A |00,199 :. NO SIZ|
000007D0: 45 20 50 41 52 41 4D 45 54 45 52 53 20 47 49 56 |E PARAMETERS GIV|
000007E0: 45 4E 2C 20 44 45 46 41 55 4C 54 20 28 50 52 45 |EN, DEFAULT (PRE|
000007F0: 56 49 4F 55 53 29 20 41 52 45 20 55 53 45 44 00 |VIOUS) ARE USED.|
00000800: 1D 10 DB 01 43 4D B2 32 31 3A 41 24 B2 22 56 2D |....CM.21:A$."V-|
00000810: 43 59 4C 4E 44 52 22 3A 8D 31 39 30 30 00 35 10 |CYLNDR":.1900.5.|
00000820: E0 01 9E 28 54 52 29 2C 32 38 30 2C 31 39 39 2C |...(TR),280,199,|
00000830: 31 35 2C 33 38 00 51 10 E5 01 43 4D B2 33 32 3A |15,38.Q...CM.32:|
00000840: 41 24 B2 22 54 4F 52 4F 49 44 22 3A 8D 31 39 30 |A$."TOROID":.190|
00000850: 30 00 61 10 EA 01 9E 28 56 54 29 2C 34 30 2C 36 |0.a....(VT),40,6|
00000860: 34 00 84 10 EF 01 52 57 B2 32 33 3A 43 4D B2 31 |4.....RW.23:CM.1|
00000870: 3A 41 24 B2 22 56 2D 54 4F 52 4F 49 44 22 3A 8D |:A$."V-TOROID":.|
00000880: 31 39 30 30 00 95 10 F4 01 9E 28 48 54 29 2C 31 |1900......(HT),1|
00000890: 32 30 2C 36 34 00 B3 10 F9 01 43 4D B2 31 31 3A |20,64.....CM.11:|
000008A0: 41 24 B2 22 48 2D 54 4F 52 4F 49 44 22 3A 8D 31 |A$."H-TOROID":.1|
000008B0: 39 30 30 00 CA 10 FE 01 9E 28 48 53 29 2C 32 30 |900......(HS),20|
000008C0: 30 2C 36 34 2C 35 2C 31 30 30 00 E7 10 03 02 43 |0,64,5,100.....C|
000008D0: 4D B2 32 32 3A 41 24 B2 22 48 2D 53 50 4F 4F 4C |M.22:A$."H-SPOOL|
000008E0: 22 3A 8D 31 39 30 30 00 F8 10 08 02 9E 28 56 53 |":.1900......(VS|
000008F0: 29 2C 32 38 30 2C 36 34 00 15 11 0D 02 43 4D B2 |),280,64.....CM.|
00000900: 33 32 3A 41 24 B2 22 56 2D 53 50 4F 4F 4C 22 3A |32:A$."V-SPOOL":|
00000910: 8D 31 39 30 30 00 31 11 12 02 97 20 31 39 38 2C |.1900.1.... 198,|
00000920: 30 3A 92 20 31 39 38 2C 31 3A 97 20 31 39 38 2C |0:. 198,1:. 198,|
00000930: 30 00 55 11 1C 02 8F 20 20 57 41 49 54 20 46 4F |0.U.... WAIT FO|
00000940: 52 20 41 20 4B 45 59 20 54 4F 20 42 45 20 50 52 |R A KEY TO BE PR|
00000950: 45 53 53 45 44 00 5B 11 26 02 3A 00 A2 11 30 02 |ESSED.[.&.:...0.|
00000960: 8F 20 20 44 52 41 57 20 54 57 4F 20 22 47 4F 42 |. DRAW TWO "GOB|
00000970: 4C 45 54 53 22 20 4F 4E 45 20 57 49 54 48 20 48 |LETS" ONE WITH H|
00000980: 41 4C 46 54 4F 4E 45 2C 20 54 48 45 20 4F 54 48 |ALFTONE, THE OTH|
00000990: 45 52 20 52 41 4E 44 4F 4D 20 53 48 41 44 49 4E |ER RANDOM SHADIN|
000009A0: 47 2E 00 A8 11 3A 02 3A 00 C0 11 44 02 9E 28 43 |G....:.:...D..(C|
000009B0: 4C 29 3A 9E 28 43 4F 29 2C 31 36 AC 31 31 AA 31 |L):.(CO),16.11.1|
000009C0: 00 02 12 46 02 52 57 B2 31 34 3A 43 4D B2 31 35 |...F.RW.14:CM.15|
000009D0: 3A 41 24 B2 22 43 4F 4D 50 41 52 49 53 4F 4E 22 |:A$."COMPARISON"|
000009E0: 3A 8D 20 31 39 30 30 3A 52 57 B2 31 35 3A 43 4D |:. 1900:RW.15:CM|
000009F0: B2 31 39 3A 41 24 B2 22 4F 46 22 3A 8D 20 31 39 |.19:A$."OF":. 19|
00000A00: 30 30 00 49 12 48 02 52 57 B2 31 36 3A 43 4D B2 |00.I.H.RW.16:CM.|
00000A10: 31 34 3A 41 24 B2 22 53 48 41 44 45 20 53 54 59 |14:A$."SHADE STY|
00000A20: 4C 45 53 22 3A 8D 20 31 39 30 30 3A 52 57 B2 31 |LES":. 1900:RW.1|
00000A30: 38 3A 43 4D B2 31 34 3A 41 24 B2 22 3C 2D 2D 20 |8:CM.14:A$."<-- |
00000A40: 48 41 4C 46 54 4F 4E 45 22 00 77 12 4A 02 8D 20 |HALFTONE".w.J.. |
00000A50: 31 39 30 30 3A 52 57 B2 32 30 3A 43 4D B2 31 35 |1900:RW.20:CM.15|
00000A60: 3A 41 24 B2 22 52 41 4E 44 4F 4D 20 2D 2D 3E 22 |:A$."RANDOM -->"|
00000A70: 3A 8D 20 31 39 30 30 00 B4 12 4E 02 97 20 4C 42 |:. 1900...N.. LB|
00000A80: 2C 32 35 35 3A 97 20 52 42 2C 32 35 35 3A 97 20 |,255:. RB,255:. |
00000A90: 55 42 2C 34 39 3A 97 20 44 42 2C 32 35 35 3A 20 |UB,49:. DB,255: |
00000AA0: 8F 20 43 4C 49 50 20 41 54 20 53 43 52 45 45 4E |. CLIP AT SCREEN|
00000AB0: 20 54 4F 50 00 C8 12 58 02 9E 28 53 50 29 2C 38 | TOP...X..(SP),8|
00000AC0: 30 2C 31 39 30 2C 38 30 00 0C 13 62 02 97 20 55 |0,190,80...b.. U|
00000AD0: 42 2C 35 31 3A 97 20 44 42 2C 35 31 3A 20 8F 20 |B,51:. DB,51: . |
00000AE0: 43 4C 49 50 20 41 54 20 4A 55 4E 43 54 49 4F 4E |CLIP AT JUNCTION|
00000AF0: 20 57 49 54 48 20 53 50 48 45 52 45 20 46 4F 52 | WITH SPHERE FOR|
00000B00: 20 53 4D 4F 4F 54 48 20 53 45 41 4D 00 23 13 6C | SMOOTH SEAM.#.l|
00000B10: 02 9E 28 56 53 29 2C 38 30 2C 36 39 2C 31 30 2C |..(VS),80,69,10,|
00000B20: 31 33 30 00 35 13 76 02 97 20 44 42 2C 39 3A 97 |130.5.v.. DB,9:.|
00000B30: 20 55 42 2C 38 00 4A 13 80 02 9E 28 56 54 29 2C | UB,8.J....(VT),|
00000B40: 38 30 2C 39 2C 32 35 2C 34 35 00 72 13 8A 02 97 |80,9,25,45.r....|
00000B50: 20 53 48 2C 30 20 20 3A 8F 20 53 57 49 54 43 48 | SH,0 :. SWITCH|
00000B60: 20 54 4F 20 52 41 4E 44 4F 4D 20 53 48 41 44 49 | TO RANDOM SHADI|
00000B70: 4E 47 00 99 13 94 02 97 20 4C 42 2C 32 35 35 3A |NG...... LB,255:|
00000B80: 97 20 52 42 2C 32 35 35 3A 97 20 55 42 2C 34 39 |. RB,255:. UB,49|
00000B90: 3A 97 20 44 42 2C 32 35 35 00 AE 13 9E 02 9E 28 |:. DB,255......(|
00000BA0: 53 50 29 2C 32 34 30 2C 31 39 30 2C 38 30 00 C2 |SP),240,190,80..|
00000BB0: 13 A8 02 97 20 55 42 2C 35 31 3A 97 20 44 42 2C |.... UB,51:. DB,|
00000BC0: 35 31 00 DA 13 B2 02 9E 28 56 53 29 2C 32 34 30 |51......(VS),240|
00000BD0: 2C 36 39 2C 31 30 2C 31 33 30 00 EC 13 BC 02 97 |,69,10,130......|
00000BE0: 20 44 42 2C 39 3A 97 20 55 42 2C 38 00 02 14 C6 | DB,9:. UB,8....|
00000BF0: 02 9E 28 56 54 29 2C 32 34 30 2C 39 2C 32 35 2C |..(VT),240,9,25,|
00000C00: 34 35 00 1E 14 D0 02 97 20 31 39 38 2C 30 3A 92 |45...... 198,0:.|
00000C10: 20 31 39 38 2C 31 3A 97 20 31 39 38 2C 30 00 24 | 198,1:. 198,0.$|
00000C20: 14 E4 02 3A 00 3D 14 EE 02 8F 20 20 44 52 41 57 |...:.=.... DRAW|
00000C30: 20 22 57 49 4E 45 22 20 53 43 45 4E 45 00 60 14 | "WINE" SCENE.`.|
00000C40: F8 02 97 20 4C 54 2C 31 20 3A 8F 20 42 41 43 4B |... LT,1 :. BACK|
00000C50: 4C 49 54 20 49 4C 4C 55 4D 49 4E 41 54 49 4F 4E |LIT ILLUMINATION|
00000C60: 00 A3 14 02 03 97 20 53 48 2C 31 20 3A 8F 20 48 |...... SH,1 :. H|
00000C70: 41 4C 46 54 4F 4E 45 20 53 48 41 44 49 4E 47 20 |ALFTONE SHADING |
00000C80: 46 4F 52 20 4D 4F 53 54 20 28 52 41 4E 44 4F 4D |FOR MOST (RANDOM|
00000C90: 20 22 4C 41 42 45 4C 22 20 4F 4E 20 42 4F 54 54 | "LABEL" ON BOTT|
00000CA0: 4C 45 29 00 E2 14 0C 03 9E 28 43 4F 29 3A 9E 28 |LE)......(CO):.(|
00000CB0: 43 4C 29 2C 32 35 35 3A 20 8F 20 46 49 4C 4C 20 |CL),255: . FILL |
00000CC0: 42 49 54 4D 41 50 20 57 49 54 48 20 31 27 53 20 |BITMAP WITH 1'S |
00000CD0: 28 22 53 45 54 22 20 42 41 43 4B 47 52 4F 55 4E |("SET" BACKGROUN|
00000CE0: 44 29 00 12 15 16 03 97 20 42 4F 2C 30 20 3A 20 |D)...... BO,0 : |
00000CF0: 8F 20 42 4C 41 43 4B 20 42 4F 52 44 45 52 20 54 |. BLACK BORDER T|
00000D00: 4F 20 4D 41 54 43 48 20 42 41 43 4B 47 52 4F 55 |O MATCH BACKGROU|
00000D10: 4E 44 00 58 15 18 03 52 57 B2 30 3A 43 4D B2 30 |ND.X...RW.0:CM.0|
00000D20: 3A 4D 44 B2 32 3A 41 24 B2 22 44 52 41 57 49 4E |:MD.2:A$."DRAWIN|
00000D30: 47 20 20 57 49 54 48 22 3A 8D 20 31 39 30 30 3A |G WITH":. 1900:|
00000D40: 52 57 B2 31 3A 43 4D B2 32 3A 41 24 B2 22 42 41 |RW.1:CM.2:A$."BA|
00000D50: 43 4B 4C 49 47 48 54 22 00 87 15 1A 03 8D 20 31 |CKLIGHT"...... 1|
00000D60: 39 30 30 3A 52 57 B2 32 3A 43 4D B2 30 3A 41 24 |900:RW.2:CM.0:A$|
00000D70: B2 22 41 47 41 49 4E 53 54 20 41 20 53 45 54 22 |."AGAINST A SET"|
00000D80: 3A 8D 20 31 39 30 30 00 AC 15 1C 03 52 57 B2 33 |:. 1900.....RW.3|
00000D90: 3A 43 4D B2 32 3A 41 24 B2 22 42 41 43 4B 47 52 |:CM.2:A$."BACKGR|
00000DA0: 4F 55 4E 44 22 3A 8D 20 31 39 30 30 00 D5 15 1E |OUND":. 1900....|
00000DB0: 03 52 57 B2 31 3A 43 4D B2 32 36 3A 41 24 B2 22 |.RW.1:CM.26:A$."|
00000DC0: 43 4F 4C 4F 52 53 20 20 41 44 44 45 44 22 3A 8D |COLORS ADDED":.|
00000DD0: 20 31 39 30 30 00 00 16 20 03 52 57 B2 32 3A 43 | 1900... .RW.2:C|
00000DE0: 4D B2 32 35 3A 41 24 B2 22 54 4F 20 53 45 4C 45 |M.25:A$."TO SELE|
00000DF0: 43 54 20 41 52 45 41 53 22 3A 8D 20 31 39 30 30 |CT AREAS":. 1900|
00000E00: 00 13 16 2A 03 8F 20 20 44 52 41 57 20 42 4F 54 |...*.. DRAW BOT|
00000E10: 54 4C 45 00 39 16 34 03 97 20 55 42 2C 30 3A 97 |TLE.9.4.. UB,0:.|
00000E20: 20 44 42 2C 32 35 35 3A 97 20 4C 42 2C 32 35 35 | DB,255:. LB,255|
00000E30: 3A 97 20 52 42 2C 32 35 35 00 50 16 3E 03 9E 28 |:. RB,255.P.>..(|
00000E40: 56 54 29 2C 31 35 30 2C 31 30 2C 33 30 2C 35 30 |VT),150,10,30,50|
00000E50: 00 70 16 48 03 97 20 55 42 2C 32 35 35 3A 9E 28 |.p.H.. UB,255:.(|
00000E60: 56 43 29 2C 31 35 30 2C 37 30 2C 35 30 2C 36 30 |VC),150,70,50,60|
00000E70: 00 8E 16 52 03 97 20 44 42 2C 30 3A 9E 28 56 54 |...R.. DB,0:.(VT|
00000E80: 29 2C 31 35 30 2C 31 33 30 2C 36 2C 35 30 00 B6 |),150,130,6,50..|
00000E90: 16 5C 03 97 20 44 42 2C 35 35 3A 97 20 55 42 2C |.\.. DB,55:. UB,|
00000EA0: 30 3A 9E 28 56 53 29 2C 31 35 30 2C 32 30 34 2C |0:.(VS),150,204,|
00000EB0: 31 35 2C 31 38 31 00 D7 16 66 03 97 20 55 42 2C |15,181...f.. UB,|
00000EC0: 32 35 35 3A 9E 28 56 43 29 2C 31 35 30 2C 32 32 |255:.(VC),150,22|
00000ED0: 31 2C 31 36 2C 31 37 00 DD 16 70 03 3A 00 F4 16 |1,16,17...p.:...|
00000EE0: 7A 03 8F 20 20 44 52 41 57 20 57 49 4E 45 20 47 |z.. DRAW WINE G|
00000EF0: 4C 41 53 53 00 10 17 84 03 97 20 55 42 2C 32 30 |LASS...... UB,20|
00000F00: 3A 9E 28 53 50 29 2C 38 30 2C 31 32 30 2C 36 30 |:.(SP),80,120,60|
00000F10: 00 37 17 8E 03 97 20 55 42 2C 33 35 3A 97 20 44 |.7.... UB,35:. D|
00000F20: 42 2C 33 34 3A 9E 28 56 53 29 2C 38 30 2C 33 34 |B,34:.(VS),80,34|
00000F30: 2C 31 30 2C 31 31 30 00 3D 17 98 03 3A 00 55 17 |,10,110.=...:.U.|
00000F40: A2 03 8F 20 20 44 52 41 57 20 53 4F 4D 45 20 47 |... DRAW SOME G|
00000F50: 52 41 50 45 53 00 A1 17 AC 03 9E 28 53 50 29 2C |RAPES......(SP),|
00000F60: 38 2C 38 2C 38 3A 20 8F 20 4F 54 48 45 52 20 22 |8,8,8: . OTHER "|
00000F70: 47 52 41 50 45 53 22 20 57 49 4C 4C 20 42 45 20 |GRAPES" WILL BE |
00000F80: 53 41 4D 45 20 52 41 44 49 55 53 20 2D 20 4A 55 |SAME RADIUS - JU|
00000F90: 53 54 20 47 49 56 45 20 50 4F 53 49 54 49 4F 4E |ST GIVE POSITION|
00000FA0: 53 00 DF 17 B6 03 9E 28 53 50 29 2C 32 30 2C 38 |S......(SP),20,8|
00000FB0: 3A 9E 28 53 50 29 2C 34 30 2C 38 3A 9E 28 53 50 |:.(SP),40,8:.(SP|
00000FC0: 29 2C 31 32 2C 32 30 3A 9E 28 53 50 29 2C 33 30 |),12,20:.(SP),30|
00000FD0: 2C 32 30 3A 9E 28 53 50 29 2C 32 35 2C 31 36 00 |,20:.(SP),25,16.|
00000FE0: E5 17 C0 03 3A 00 2E 18 CA 03 8F 20 20 44 52 41 |....:...... DRA|
00000FF0: 57 20 41 4E 20 41 50 50 4C 45 20 42 59 20 41 20 |W AN APPLE BY A |
00001000: 50 41 49 52 20 4F 46 20 45 44 47 45 2D 56 49 45 |PAIR OF EDGE-VIE|
00001010: 57 20 54 4F 52 4F 49 44 53 20 41 4E 44 20 41 20 |W TOROIDS AND A |
00001020: 53 50 48 45 52 45 20 53 45 43 54 49 4F 4E 00 55 |SPHERE SECTION.U|
00001030: 18 D4 03 97 20 55 42 2C 32 35 35 3A 97 20 44 42 |.... UB,255:. DB|
00001040: 2C 32 35 35 3A 97 20 4C 42 2C 32 35 35 3A 97 20 |,255:. LB,255:. |
00001050: 52 42 2C 35 39 00 78 18 DE 03 9E 28 56 54 29 2C |RB,59.x....(VT),|
00001060: 32 36 30 2C 32 39 2C 30 2C 35 30 3A 9E 28 56 54 |260,29,0,50:.(VT|
00001070: 29 2C 32 36 30 2C 37 39 00 9C 18 E8 03 97 20 55 |),260,79...... U|
00001080: 42 2C 34 33 3A 97 20 44 42 2C 34 33 3A 9E 28 53 |B,43:. DB,43:.(S|
00001090: 50 29 2C 32 36 30 2C 35 34 2C 36 30 00 B6 18 F2 |P),260,54,60....|
000010A0: 03 8F 20 20 20 50 55 54 20 53 54 45 4D 20 4F 4E |.. PUT STEM ON|
000010B0: 20 41 50 50 4C 45 00 DC 18 FC 03 97 20 52 42 2C | APPLE...... RB,|
000010C0: 30 3A 97 20 44 42 2C 30 3A 9E 28 54 52 29 2C 32 |0:. DB,0:.(TR),2|
000010D0: 37 32 2C 31 30 34 2C 31 30 2C 31 35 00 03 19 06 |72,104,10,15....|
000010E0: 04 8F 20 20 20 41 44 44 20 41 20 4C 45 41 46 20 |.. ADD A LEAF |
000010F0: 42 59 20 41 20 53 50 48 45 52 45 20 53 45 43 54 |BY A SPHERE SECT|
00001100: 49 4F 4E 00 28 19 10 04 97 20 44 42 2C 32 35 35 |ION.(.... DB,255|
00001110: 3A 97 20 52 42 2C 30 3A 9E 28 53 50 29 2C 32 35 |:. RB,0:.(SP),25|
00001120: 36 2C 31 31 39 2C 31 35 00 59 19 1A 04 8F 20 20 |6,119,15.Y.... |
00001130: 41 44 44 20 41 20 52 41 4E 44 4F 4D 20 53 48 41 |ADD A RANDOM SHA|
00001140: 44 45 44 20 22 4C 41 42 45 4C 22 20 54 4F 20 54 |DED "LABEL" TO T|
00001150: 48 45 20 42 4F 54 54 4C 45 00 76 19 24 04 97 20 |HE BOTTLE.v.$.. |
00001160: 55 42 2C 32 35 35 3A 97 20 52 42 2C 32 35 35 3A |UB,255:. RB,255:|
00001170: 97 20 4C 42 2C 36 00 94 19 2E 04 97 20 53 48 2C |. LB,6...... SH,|
00001180: 30 3A 9E 28 56 43 29 2C 31 35 30 2C 37 32 2C 35 |0:.(VC),150,72,5|
00001190: 30 2C 34 38 00 9A 19 38 04 3A 00 BC 19 42 04 8F |0,48...8.:...B..|
000011A0: 20 20 41 44 44 20 43 4F 4C 4F 52 53 20 54 4F 20 | ADD COLORS TO |
000011B0: 22 57 49 4E 45 22 20 53 43 45 4E 45 00 FF 19 4C |"WINE" SCENE...L|
000011C0: 04 9E 28 43 4F 29 2C 31 32 3A 8F 20 52 45 50 4C |..(CO),12:. REPL|
000011D0: 41 43 45 20 57 48 49 54 45 20 22 48 4F 4C 45 53 |ACE WHITE "HOLES|
000011E0: 22 20 28 42 41 43 4B 47 52 4F 55 4E 44 29 20 57 |" (BACKGROUND) W|
000011F0: 49 54 48 20 4D 45 44 49 55 4D 20 47 52 41 59 00 |ITH MEDIUM GRAY.|
00001200: 45 1A 4E 04 58 31 B2 30 3A 59 31 B2 32 30 30 3A |E.N.X1.0:Y1.200:|
00001210: 58 32 B2 31 30 30 3A 59 32 B2 32 33 39 3A 44 43 |X2.100:Y2.239:DC|
00001220: B2 30 3A 42 43 B2 30 3A 8D 20 31 37 30 30 3A 8F |.0:BC.0:. 1700:.|
00001230: 20 48 49 44 45 20 54 45 58 54 20 49 4E 20 43 4F | HIDE TEXT IN CO|
00001240: 52 4E 45 52 53 00 76 1A 50 04 58 31 B2 31 38 30 |RNERS.v.P.X1.180|
00001250: 3A 59 31 B2 32 30 30 3A 58 32 B2 33 31 39 3A 59 |:Y1.200:X2.319:Y|
00001260: 32 B2 32 33 39 3A 44 43 B2 30 3A 42 43 B2 30 3A |2.239:DC.0:BC.0:|
00001270: 8D 20 31 37 30 30 00 A5 1A 56 04 58 31 B2 32 30 |. 1700...V.X1.20|
00001280: 30 3A 59 31 B2 31 3A 58 32 B2 33 31 35 3A 59 32 |0:Y1.1:X2.315:Y2|
00001290: B2 31 30 30 3A 44 43 B2 30 3A 42 43 B2 32 3A 8D |.100:DC.0:BC.2:.|
000012A0: 20 31 37 30 30 00 D1 1A 60 04 58 31 B2 32 34 30 | 1700...`.X1.240|
000012B0: 3A 59 31 B2 31 31 30 3A 58 32 B2 32 35 35 3A 59 |:Y1.110:X2.255:Y|
000012C0: 32 B2 31 35 30 3A 42 43 B2 35 3A 8D 20 31 37 30 |2.150:BC.5:. 170|
000012D0: 30 00 FD 1A 6A 04 58 31 B2 32 36 30 3A 59 31 B2 |0...j.X1.260:Y1.|
000012E0: 31 31 30 3A 58 32 B2 32 37 30 3A 59 32 B2 31 33 |110:X2.270:Y2.13|
000012F0: 35 3A 42 43 B2 39 3A 8D 20 31 37 30 30 00 23 1B |5:BC.9:. 1700.#.|
00001300: 74 04 58 31 B2 31 3A 59 31 B2 31 3A 58 32 B2 34 |t.X1.1:Y1.1:X2.4|
00001310: 38 3A 59 32 B2 33 30 3A 42 43 B2 34 3A 8D 20 31 |8:Y2.30:BC.4:. 1|
00001320: 37 30 30 00 4F 1B 7E 04 58 31 B2 31 34 30 3A 59 |700.O.~.X1.140:Y|
00001330: 31 B2 32 30 35 3A 58 32 B2 31 38 30 3A 59 32 B2 |1.205:X2.180:Y2.|
00001340: 32 33 35 3A 42 43 B2 37 3A 8D 20 31 37 30 30 00 |235:BC.7:. 1700.|
00001350: 7A 1B 88 04 58 31 B2 31 34 35 3A 59 31 B2 32 35 |z...X1.145:Y1.25|
00001360: 3A 58 32 B2 31 39 35 3A 59 32 B2 31 31 35 3A 42 |:X2.195:Y2.115:B|
00001370: 43 B2 36 3A 8D 20 31 37 30 30 00 96 1B 92 04 97 |C.6:. 1700......|
00001380: 20 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 3A 97 | 198,0:. 198,1:.|
00001390: 20 31 39 38 2C 30 00 9C 1B A6 04 3A 00 B8 1B B0 | 198,0.....:....|
000013A0: 04 8F 20 20 20 22 43 4F 46 46 45 45 20 41 4E 44 |.. "COFFEE AND|
000013B0: 20 44 4F 4E 55 54 53 22 00 DF 1B BA 04 97 20 53 | DONUTS"...... S|
000013C0: 48 2C 30 20 3A 8F 20 52 41 4E 44 4F 4D 20 53 48 |H,0 :. RANDOM SH|
000013D0: 41 44 49 4E 47 20 4F 4E 20 44 4F 4E 55 54 53 00 |ADING ON DONUTS.|
000013E0: 21 1C C4 04 9E 28 43 4F 29 2C 31 36 AC 31 31 AA |!....(CO),16.11.|
000013F0: 31 3A 9E 28 43 4C 29 3A 97 20 42 4F 2C 31 3A 8F |1:.(CL):. BO,1:.|
00001400: 20 57 48 49 54 45 20 42 4F 52 44 45 52 20 54 4F | WHITE BORDER TO|
00001410: 20 4D 41 54 43 48 20 42 41 43 4B 47 52 4F 55 4E | MATCH BACKGROUN|
00001420: 44 00 60 1C CE 04 97 20 4C 42 2C 32 35 35 3A 97 |D.`.... LB,255:.|
00001430: 20 52 42 2C 32 35 35 3A 97 20 55 42 2C 32 35 35 | RB,255:. UB,255|
00001440: 3A 97 20 44 42 2C 32 35 35 20 3A 8F 20 4E 4F 20 |:. DB,255 :. NO |
00001450: 49 4E 49 54 49 41 4C 20 43 4C 49 50 50 49 4E 47 |INITIAL CLIPPING|
00001460: 00 76 1C D8 04 9E 28 56 54 29 2C 36 30 2C 32 30 |.v....(VT),60,20|
00001470: 2C 32 30 2C 36 30 00 97 1C E2 04 97 20 52 42 2C |,20,60...... RB,|
00001480: 32 39 3A 9E 28 56 54 29 2C 39 39 2C 36 30 3A 97 |29:.(VT),99,60:.|
00001490: 20 52 42 2C 32 35 35 00 A9 1C EC 04 9E 28 54 52 | RB,255......(TR|
000014A0: 29 2C 31 38 38 2C 31 38 30 00 D1 1C F6 04 8F 20 |),188,180...... |
000014B0: 41 44 44 20 43 4F 46 46 45 45 20 43 55 50 20 28 |ADD COFFEE CUP (|
000014C0: 48 41 4C 46 54 4F 4E 45 20 53 48 41 44 49 4E 47 |HALFTONE SHADING|
000014D0: 29 00 F9 1C 00 05 97 20 53 48 2C 31 3A 97 20 55 |)...... SH,1:. U|
000014E0: 42 2C 30 3A 9E 28 56 54 29 2C 31 38 38 2C 32 30 |B,0:.(VT),188,20|
000014F0: 3A 97 20 55 42 2C 32 35 35 00 18 1D 0A 05 97 20 |:. UB,255...... |
00001500: 44 42 2C 30 3A 9E 28 54 52 29 2C 32 37 38 2C 31 |DB,0:.(TR),278,1|
00001510: 31 30 2C 32 30 2C 34 30 00 33 1D 14 05 97 20 44 |10,20,40.3.... D|
00001520: 42 2C 32 35 35 3A 97 20 55 42 2C 30 3A 97 20 4C |B,255:. UB,0:. L|
00001530: 42 2C 30 00 6D 1D 1E 05 9E 28 54 52 29 2C 32 34 |B,0.m....(TR),24|
00001540: 38 2C 39 30 2C 35 30 2C 37 30 3A 97 20 4C 42 2C |8,90,50,70:. LB,|
00001550: 32 35 35 3A 9E 28 53 50 29 2C 32 34 38 2C 31 31 |255:.(SP),248,11|
00001560: 30 2C 31 30 3A 97 20 55 42 2C 32 35 35 00 85 1D |0,10:. UB,255...|
00001570: 28 05 9E 28 56 43 29 2C 33 30 38 2C 31 30 30 2C |(..(VC),308,100,|
00001580: 31 30 2C 31 30 00 9C 1D 32 05 9E 28 56 43 29 2C |10,10...2..(VC),|
00001590: 31 38 38 2C 37 37 2C 36 30 2C 35 37 00 BB 1D 3C |188,77,60,57...<|
000015A0: 05 97 20 44 42 2C 30 3A 9E 28 56 54 29 2C 31 38 |.. DB,0:.(VT),18|
000015B0: 38 2C 31 33 34 2C 34 30 2C 36 30 00 08 1E 46 05 |8,134,40,60...F.|
000015C0: 8F 20 20 41 44 44 20 43 4F 4C 4F 52 20 2D 20 46 |. ADD COLOR - F|
000015D0: 49 52 53 54 20 4D 41 4B 45 20 53 43 52 45 45 4E |IRST MAKE SCREEN|
000015E0: 20 42 52 4F 57 4E 20 44 4F 54 53 20 4F 4E 20 57 | BROWN DOTS ON W|
000015F0: 48 49 54 45 20 54 48 45 4E 20 4D 41 4B 45 20 43 |HITE THEN MAKE C|
00001600: 55 50 20 47 52 45 45 4E 00 3D 1E 50 05 9E 28 43 |UP GREEN.=.P..(C|
00001610: 4F 29 2C 31 AA 31 36 AC 39 20 3A 8F 20 31 3D 57 |O),1.16.9 :. 1=W|
00001620: 48 49 54 45 20 42 41 43 4B 47 52 4F 55 4E 44 2C |HITE BACKGROUND,|
00001630: 20 39 3D 42 52 4F 57 4E 20 44 4F 54 53 00 6C 1E | 9=BROWN DOTS.l.|
00001640: 5A 05 58 31 B2 31 33 30 3A 59 31 B2 31 3A 58 32 |Z.X1.130:Y1.1:X2|
00001650: B2 33 31 39 3A 59 32 B2 31 33 36 3A 42 43 B2 31 |.319:Y2.136:BC.1|
00001660: 3A 44 43 B2 35 3A 8D 20 31 37 30 30 00 93 1E 64 |:DC.5:. 1700...d|
00001670: 05 58 31 B2 32 35 30 3A 59 31 B2 31 34 34 3A 58 |.X1.250:Y1.144:X|
00001680: 32 B2 33 31 39 3A 59 32 B2 31 34 34 3A 8D 20 31 |2.319:Y2.144:. 1|
00001690: 37 30 30 00 AF 1E 6E 05 97 20 31 39 38 2C 30 3A |700...n.. 198,0:|
000016A0: 92 20 31 39 38 2C 31 3A 97 20 31 39 38 2C 30 00 |. 198,1:. 198,0.|
000016B0: B5 1E 82 05 3A 00 FC 1E 8C 05 8F 20 20 44 52 41 |....:...... DRA|
000016C0: 57 20 22 4C 49 4E 4B 45 44 22 20 54 4F 52 4F 49 |W "LINKED" TOROI|
000016D0: 44 53 20 42 59 20 52 45 44 52 41 57 49 4E 47 20 |DS BY REDRAWING |
000016E0: 4F 56 45 52 4C 41 50 20 41 52 45 41 53 20 55 53 |OVERLAP AREAS US|
000016F0: 49 4E 47 20 43 4C 49 50 50 49 4E 47 00 2B 1F 96 |ING CLIPPING.+..|
00001700: 05 97 20 4C 54 2C 30 20 3A 8F 20 42 4C 55 45 20 |.. LT,0 :. BLUE |
00001710: 44 4F 54 53 20 4F 4E 20 57 48 49 54 45 2C 20 4E |DOTS ON WHITE, N|
00001720: 4F 20 42 41 43 4B 4C 49 47 48 54 00 65 1F A0 05 |O BACKLIGHT.e...|
00001730: 9E 28 43 4C 29 3A 9E 28 43 4F 29 2C 31 AA 31 36 |.(CL):.(CO),1.16|
00001740: AC 36 3A 20 8F 20 31 3D 57 48 49 54 45 20 42 41 |.6: . 1=WHITE BA|
00001750: 43 4B 47 52 4F 55 4E 44 2C 20 36 3D 42 4C 55 45 |CKGROUND, 6=BLUE|
00001760: 20 44 4F 54 53 00 A4 1F AA 05 97 20 55 42 2C 32 | DOTS...... UB,2|
00001770: 35 35 3A 97 20 44 42 2C 32 35 35 3A 97 20 4C 42 |55:. DB,255:. LB|
00001780: 2C 32 35 35 3A 97 20 52 42 2C 32 35 35 3A 20 8F |,255:. RB,255: .|
00001790: 20 4E 4F 20 49 4E 49 54 49 41 4C 20 43 4C 49 50 | NO INITIAL CLIP|
000017A0: 50 49 4E 47 00 C2 1F B4 05 97 20 53 48 2C 30 20 |PING...... SH,0 |
000017B0: 20 3A 8F 20 52 41 4E 44 4F 4D 20 53 48 41 44 49 | :. RANDOM SHADI|
000017C0: 4E 47 00 D9 1F BE 05 9E 28 54 52 29 2C 32 34 34 |NG......(TR),244|
000017D0: 2C 38 34 2C 34 38 2C 37 30 00 F6 1F C8 05 9E 28 |,84,48,70......(|
000017E0: 54 52 29 2C 31 36 30 2C 38 34 3A 9E 28 54 52 29 |TR),160,84:.(TR)|
000017F0: 2C 37 36 2C 38 34 00 16 20 D2 05 9E 28 54 52 29 |,76,84.. ...(TR)|
00001800: 2C 31 31 38 2C 31 35 36 3A 9E 28 54 52 29 2C 32 |,118,156:.(TR),2|
00001810: 30 32 2C 31 35 36 00 39 20 DC 05 8F 20 20 41 44 |02,156.9 ... AD|
00001820: 44 20 50 52 4F 50 45 52 20 4F 56 45 52 4C 41 50 |D PROPER OVERLAP|
00001830: 20 53 45 43 54 49 4F 4E 53 00 68 20 E6 05 97 20 | SECTIONS.h ... |
00001840: 52 42 2C 30 3A 97 20 44 42 2C 30 3A 9E 28 54 52 |RB,0:. DB,0:.(TR|
00001850: 29 2C 31 36 30 2C 38 34 3A 97 20 52 42 2C 32 35 |),160,84:. RB,25|
00001860: 35 3A 97 20 4C 42 2C 30 00 96 20 F0 05 9E 28 54 |5:. LB,0.. ...(T|
00001870: 52 29 2C 37 36 2C 38 34 3A 97 20 44 42 2C 32 35 |R),76,84:. DB,25|
00001880: 35 3A 97 20 55 42 2C 30 3A 9E 28 54 52 29 2C 31 |5:. UB,0:.(TR),1|
00001890: 31 38 2C 31 35 36 00 C0 20 FA 05 97 20 4C 42 2C |18,156.. ... LB,|
000018A0: 32 35 35 3A 97 20 52 42 2C 30 3A 9E 28 54 52 29 |255:. RB,0:.(TR)|
000018B0: 2C 32 30 32 2C 31 35 36 3A 97 20 4C 42 2C 32 37 |,202,156:. LB,27|
000018C0: 00 E1 20 04 06 97 20 44 42 2C 30 3A 97 20 55 42 |.. ... DB,0:. UB|
000018D0: 2C 32 35 35 3A 9E 28 54 52 29 2C 31 36 30 2C 38 |,255:.(TR),160,8|
000018E0: 34 00 02 21 0E 06 97 20 44 42 2C 30 3A 97 20 55 |4..!... DB,0:. U|
000018F0: 42 2C 32 35 35 3A 9E 28 54 52 29 2C 31 36 30 2C |B,255:.(TR),160,|
00001900: 38 34 00 24 21 18 06 97 20 4C 42 2C 32 35 35 3A |84.$!... LB,255:|
00001910: 97 20 55 42 2C 32 37 3A 9E 28 54 52 29 2C 32 34 |. UB,27:.(TR),24|
00001920: 34 2C 38 34 00 4D 21 22 06 97 20 4C 42 2C 30 3A |4,84.M!".. LB,0:|
00001930: 97 20 52 42 2C 32 37 3A 97 20 55 42 2C 32 35 35 |. RB,27:. UB,255|
00001940: 3A 9E 28 54 52 29 2C 32 34 34 2C 38 34 00 59 21 |:.(TR),244,84.Y!|
00001950: 2C 06 97 20 31 39 38 2C 30 00 72 21 36 06 A1 20 |,.. 198,0.r!6.. |
00001960: 41 24 3A 8B 20 41 24 B2 20 22 22 20 A7 20 31 35 |A$:. A$. "" . 15|
00001970: 39 30 00 9A 21 40 06 9E 28 54 58 29 3A 97 20 42 |90..!@..(TX):. B|
00001980: 4F 2C 31 34 3A 8F 20 52 45 54 55 52 4E 20 54 4F |O,14:. RETURN TO|
00001990: 20 54 45 58 54 20 4D 4F 44 45 00 A0 21 4A 06 80 | TEXT MODE..!J..|
000019A0: 00 A6 21 54 06 3A 00 E2 21 5E 06 8F 20 53 55 42 |..!T.:..!^.. SUB|
000019B0: 52 4F 55 54 49 4E 45 20 46 4F 52 20 41 44 44 49 |ROUTINE FOR ADDI|
000019C0: 4E 47 20 43 4F 4C 4F 52 20 54 4F 20 44 49 46 46 |NG COLOR TO DIFF|
000019D0: 45 52 45 4E 54 20 53 43 52 45 45 4E 20 41 52 45 |ERENT SCREEN ARE|
000019E0: 41 53 00 2F 22 68 06 8F 20 52 45 4D 45 4D 42 45 |AS./"h.. REMEMBE|
000019F0: 52 20 54 48 41 54 20 43 4F 4C 4F 52 20 42 4F 55 |R THAT COLOR BOU|
00001A00: 4E 44 41 52 49 45 53 20 4D 55 53 54 20 43 4F 52 |NDARIES MUST COR|
00001A10: 52 45 53 50 4F 4E 44 20 54 4F 20 43 48 41 52 41 |RESPOND TO CHARA|
00001A20: 43 54 45 52 20 42 4F 55 4E 44 41 52 49 45 53 00 |CTER BOUNDARIES.|
00001A30: 79 22 72 06 8F 20 44 45 46 49 4E 45 20 41 20 52 |y"r.. DEFINE A R|
00001A40: 45 43 54 41 4E 47 55 4C 41 52 20 41 52 45 41 20 |ECTANGULAR AREA |
00001A50: 42 59 20 4C 4F 57 45 52 2D 4C 45 46 54 20 41 4E |BY LOWER-LEFT AN|
00001A60: 44 20 55 50 50 45 52 2D 52 49 47 48 54 20 43 4F |D UPPER-RIGHT CO|
00001A70: 4F 52 44 49 4E 41 54 45 53 00 B3 22 7C 06 8F 20 |ORDINATES.."|.. |
00001A80: 28 58 31 2C 59 31 29 3D 4C 4F 57 45 52 2D 4C 45 |(X1,Y1)=LOWER-LE|
00001A90: 46 54 20 50 4F 49 4E 54 2C 20 28 58 32 2C 59 32 |FT POINT, (X2,Y2|
00001AA0: 29 3D 55 50 50 45 52 2D 52 49 47 48 54 20 50 4F |)=UPPER-RIGHT PO|
00001AB0: 49 4E 54 00 FC 22 86 06 8F 20 54 48 45 20 43 4F |INT.."... THE CO|
00001AC0: 52 4E 45 52 20 50 4F 49 4E 54 53 20 43 41 4E 20 |RNER POINTS CAN |
00001AD0: 42 45 20 41 52 42 49 54 52 41 52 59 20 42 55 54 |BE ARBITRARY BUT|
00001AE0: 20 43 4F 4C 4F 52 20 43 48 41 4E 47 45 20 57 49 | COLOR CHANGE WI|
00001AF0: 4C 4C 20 42 45 20 49 4E 20 54 48 45 00 47 23 90 |LL BE IN THE.G#.|
00001B00: 06 8F 20 53 4D 41 4C 4C 45 53 54 20 43 48 41 52 |.. SMALLEST CHAR|
00001B10: 41 43 54 45 52 2D 43 45 4C 4C 20 42 4F 55 4E 44 |ACTER-CELL BOUND|
00001B20: 45 44 20 52 45 43 54 41 4E 47 4C 45 20 54 48 41 |ED RECTANGLE THA|
00001B30: 54 20 49 4E 43 4C 55 44 45 53 20 54 48 4F 53 45 |T INCLUDES THOSE|
00001B40: 20 50 4F 49 4E 54 53 00 85 23 9A 06 8F 20 20 59 | POINTS..#... Y|
00001B50: 2D 43 4F 4F 52 44 49 4E 41 54 45 53 20 4D 55 53 |-COORDINATES MUS|
00001B60: 54 20 42 45 20 22 55 4E 53 43 41 4C 45 44 22 20 |T BE "UNSCALED" |
00001B70: 49 46 20 53 43 41 4C 45 20 46 4C 41 47 20 49 53 |IF SCALE FLAG IS|
00001B80: 20 53 45 54 3A 00 B6 23 A4 06 8B 20 C2 28 53 43 | SET:..#... .(SC|
00001B90: 29 A7 20 59 31 B2 28 59 31 AA 31 29 AC 32 31 33 |). Y1.(Y1.1).213|
00001BA0: AD 32 35 36 3A 59 32 B2 28 59 32 AA 31 29 AC 32 |.256:Y2.(Y2.1).2|
00001BB0: 31 33 AD 32 35 36 00 FB 23 AE 06 8F 20 43 4F 4C |13.256..#... COL|
00001BC0: 4F 52 20 54 4F 20 42 45 20 50 4F 4B 45 44 20 49 |OR TO BE POKED I|
00001BD0: 4E 20 49 53 20 47 49 56 45 4E 20 42 59 20 56 41 |N IS GIVEN BY VA|
00001BE0: 52 49 41 42 4C 45 20 43 43 3D 22 43 4F 4D 50 4F |RIABLE CC="COMPO|
00001BF0: 53 49 54 45 20 43 4F 4C 4F 52 22 00 41 24 B8 06 |SITE COLOR".A$..|
00001C00: 8F 20 57 48 45 52 45 20 43 43 3D 31 36 2A 44 43 |. WHERE CC=16*DC|
00001C10: 20 2B 20 42 43 20 5B 44 43 3D 44 4F 54 20 43 4F | + BC [DC=DOT CO|
00001C20: 4C 4F 52 2C 20 42 43 3D 42 41 43 4B 47 52 4F 55 |LOR, BC=BACKGROU|
00001C30: 4E 44 20 43 4F 4C 4F 52 20 4E 55 4D 42 45 52 53 |ND COLOR NUMBERS|
00001C40: 5D 00 51 24 C2 06 43 43 B2 31 36 AC 44 43 AA 42 |].Q$..CC.16.DC.B|
00001C50: 43 00 6C 24 CC 06 81 20 49 58 B2 B5 28 58 31 AD |C.l$... IX..(X1.|
00001C60: 38 29 20 A4 20 B5 28 58 32 AD 38 29 00 87 24 D6 |8) . .(X2.8)..$.|
00001C70: 06 81 20 49 59 B2 B5 28 59 31 AD 38 29 20 A4 20 |.. IY..(Y1.8) . |
00001C80: B5 28 59 32 AD 38 29 00 9F 24 E0 06 97 20 33 34 |.(Y2.8)..$... 34|
00001C90: 37 35 32 AA 49 58 AB 34 30 AC 49 59 2C 43 43 00 |752.IX.40.IY,CC.|
00001CA0: A9 24 EA 06 82 3A 82 3A 8E 00 AF 24 F4 06 3A 00 |.$...:.:...$..:.|
00001CB0: DF 24 FE 06 8F 20 53 55 42 52 4F 55 54 49 4E 45 |.$... SUBROUTINE|
00001CC0: 20 54 4F 20 41 44 44 20 54 45 58 54 20 54 4F 20 | TO ADD TEXT TO |
00001CD0: 47 52 41 50 48 49 43 20 53 43 52 45 45 4E 2E 00 |GRAPHIC SCREEN..|
00001CE0: 2C 25 08 07 8F 20 22 52 57 22 20 41 4E 44 20 22 |,%... "RW" AND "|
00001CF0: 43 4D 22 20 41 52 45 20 54 48 45 20 52 4F 57 20 |CM" ARE THE ROW |
00001D00: 28 30 2D 32 34 29 20 41 4E 44 20 43 4F 4C 55 4D |(0-24) AND COLUM|
00001D10: 4E 20 28 30 2D 33 39 29 20 43 4F 4F 52 44 49 4E |N (0-39) COORDIN|
00001D20: 41 54 45 53 20 46 4F 52 20 54 48 45 00 61 25 12 |ATES FOR THE.a%.|
00001D30: 07 8F 20 46 49 52 53 54 20 4C 45 54 54 45 52 20 |.. FIRST LETTER |
00001D40: 4F 46 20 54 48 45 20 54 45 58 54 20 53 54 52 49 |OF THE TEXT STRI|
00001D50: 4E 47 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 |NG TO BE PRINTED|
00001D60: 2E 00 93 25 1C 07 8F 20 54 48 45 20 54 45 58 54 |...%... THE TEXT|
00001D70: 20 53 54 52 49 4E 47 20 49 54 53 45 4C 46 20 49 | STRING ITSELF I|
00001D80: 53 20 41 53 53 49 47 4E 45 44 20 54 4F 20 22 41 |S ASSIGNED TO "A|
00001D90: 24 22 2E 00 D4 25 26 07 8F 20 22 4D 44 22 20 49 |$"...%&.. "MD" I|
00001DA0: 53 20 54 48 45 20 4D 4F 44 45 20 46 4F 52 20 54 |S THE MODE FOR T|
00001DB0: 48 45 20 50 52 49 4E 54 49 4E 47 2E 20 46 49 56 |HE PRINTING. FIV|
00001DC0: 45 20 4D 4F 44 45 53 20 41 52 45 20 41 4C 4C 4F |E MODES ARE ALLO|
00001DD0: 57 45 44 3A 00 0E 26 30 07 8F 20 20 31 20 2D 20 |WED:..&0.. 1 - |
00001DE0: 4E 4F 52 4D 41 4C 20 28 22 42 4C 41 43 4B 22 20 |NORMAL ("BLACK" |
00001DF0: 4C 45 54 54 45 52 53 20 4F 4E 20 22 57 48 49 54 |LETTERS ON "WHIT|
00001E00: 45 22 20 42 41 43 4B 47 52 4F 55 4E 44 29 00 4A |E" BACKGROUND).J|
00001E10: 26 3A 07 8F 20 20 32 20 2D 20 52 45 56 45 52 53 |&:.. 2 - REVERS|
00001E20: 45 44 20 28 22 57 48 49 54 45 22 20 4C 45 54 54 |ED ("WHITE" LETT|
00001E30: 45 52 53 20 4F 4E 20 22 42 4C 41 43 4B 22 20 42 |ERS ON "BLACK" B|
00001E40: 41 43 4B 47 52 4F 55 4E 44 29 00 83 26 44 07 8F |ACKGROUND)..&D..|
00001E50: 20 20 33 20 2D 20 53 45 54 20 28 22 42 4C 41 43 | 3 - SET ("BLAC|
00001E60: 4B 22 29 20 4C 45 54 54 45 52 53 20 22 4F 52 27 |K") LETTERS "OR'|
00001E70: 45 44 22 20 57 49 54 48 20 42 41 43 4B 47 52 4F |ED" WITH BACKGRO|
00001E80: 55 4E 44 00 BF 26 4E 07 8F 20 20 34 20 2D 20 55 |UND..&N.. 4 - U|
00001E90: 4E 53 45 54 20 28 22 57 48 49 54 45 22 29 20 4C |NSET ("WHITE") L|
00001EA0: 45 54 54 45 52 53 20 22 41 4E 44 27 45 44 22 20 |ETTERS "AND'ED" |
00001EB0: 57 49 54 48 20 42 41 43 4B 47 52 4F 55 4E 44 00 |WITH BACKGROUND.|
00001EC0: EF 26 58 07 8F 20 20 35 20 2D 20 53 45 54 20 4C |.&X.. 5 - SET L|
00001ED0: 45 54 54 45 52 53 20 22 58 4F 52 27 45 44 22 20 |ETTERS "XOR'ED" |
00001EE0: 57 49 54 48 20 42 41 43 4B 47 52 4F 55 4E 44 00 |WITH BACKGROUND.|
00001EF0: F5 26 62 07 3A 00 3D 27 6C 07 53 42 B2 34 30 39 |.&b.:.='l.SB.409|
00001F00: 35 32 3A 54 42 B2 35 34 32 37 32 3A 8B 28 4D 44 |52:TB.54272:.(MD|
00001F10: 20 AF 20 31 29 A7 20 54 42 B2 35 33 32 34 38 3A | . 1). TB.53248:|
00001F20: 8F 20 53 43 52 45 45 4E 20 41 4E 44 20 54 45 58 |. SCREEN AND TEX|
00001F30: 54 20 42 41 53 45 20 41 44 44 52 27 53 00 75 27 |T BASE ADDR'S.u'|
00001F40: 76 07 4F 53 B2 33 32 30 AC 52 57 AA 38 AC 43 4D |v.OS.320.RW.8.CM|
00001F50: 3A 8F 20 20 4F 46 46 53 45 54 20 46 52 4F 4D 20 |:. OFFSET FROM |
00001F60: 43 48 41 52 41 43 54 45 52 20 53 43 52 45 45 4E |CHARACTER SCREEN|
00001F70: 20 42 41 53 45 00 A3 27 80 07 97 20 35 36 33 33 | BASE..'... 5633|
00001F80: 34 2C C2 28 35 36 33 33 34 29 AF 20 32 35 34 3A |4,.(56334). 254:|
00001F90: 8F 20 44 49 53 41 42 4C 45 20 49 52 51 20 54 49 |. DISABLE IRQ TI|
00001FA0: 4D 45 52 00 CF 27 8A 07 97 20 31 2C C2 28 31 29 |MER..'... 1,.(1)|
00001FB0: AF 20 32 35 31 3A 8F 20 53 57 49 54 43 48 20 43 |. 251:. SWITCH C|
00001FC0: 48 41 52 41 43 54 45 52 20 52 4F 4D 20 49 4E 00 |HARACTER ROM IN.|
00001FD0: F2 27 94 07 4C B2 C3 28 41 24 29 3A 81 20 4E B2 |.'..L..(A$):. N.|
00001FE0: 31 20 A4 20 4C 3A 4E 38 B2 4E AC 38 AA 4F 53 AA |1 . L:N8.N.8.OS.|
00001FF0: 53 42 00 15 28 9E 07 58 B2 C6 28 CA 28 41 24 2C |SB..(..X..(.(A$,|
00002000: 4E 2C 31 29 29 3A 8B 20 58 B1 36 33 20 A7 20 58 |N,1)):. X.63 . X|
00002010: B2 58 AB 36 34 00 23 28 A8 07 54 43 B2 54 42 AA |.X.64.#(..TC.TB.|
00002020: 38 AC 58 00 47 28 B2 07 91 20 4D 44 20 89 20 31 |8.X.G(... MD . 1|
00002030: 39 38 30 2C 31 39 38 30 2C 31 39 39 30 2C 32 30 |980,1980,1990,20|
00002040: 30 30 2C 32 30 31 30 00 5D 28 BC 07 97 20 35 33 |00,2010.](... 53|
00002050: 32 33 31 2C 33 36 3A 89 20 32 30 32 30 00 73 28 |231,36:. 2020.s(|
00002060: C6 07 97 20 35 33 32 33 31 2C 31 37 3A 89 20 32 |... 53231,17:. 2|
00002070: 30 32 30 00 89 28 D0 07 97 20 35 33 32 33 31 2C |020..(... 53231,|
00002080: 34 39 3A 89 20 32 30 32 30 00 98 28 DA 07 97 20 |49:. 2020..(... |
00002090: 35 33 32 33 31 2C 38 31 00 BE 28 E4 07 97 32 35 |53231,81..(...25|
000020A0: 32 2C 4E 38 AD 32 35 36 3A 97 32 35 31 2C 4E 38 |2,N8.256:.251,N8|
000020B0: AB 32 35 36 AC B5 28 4E 38 AD 32 35 36 29 00 E4 |.256..(N8.256)..|
000020C0: 28 EE 07 97 32 35 34 2C 54 43 AD 32 35 36 3A 97 |(...254,TC.256:.|
000020D0: 32 35 33 2C 54 43 AB 32 35 36 AC B5 28 54 43 AD |253,TC.256..(TC.|
000020E0: 32 35 36 29 00 F3 28 F8 07 9E 28 35 33 32 32 31 |256)..(...(53221|
000020F0: 29 3A 82 00 2B 29 02 08 97 20 31 2C C2 28 31 29 |):..+)... 1,.(1)|
00002100: B0 20 34 3A 97 20 35 36 33 33 34 2C C2 28 35 36 |. 4:. 56334,.(56|
00002110: 33 33 34 29 B0 20 31 3A 8F 20 52 45 53 54 4F 52 |334). 1:. RESTOR|
00002120: 45 20 54 4F 20 4E 4F 52 4D 41 4C 00 31 29 0C 08 |E TO NORMAL.1)..|
00002130: 8E 00 00 00 |.... |
....... SHAPES DEMO. ...:.L....
RICHARD L. RYLANDER 11/23/84 (REVI
SED 1/20/85 TO ADD LABELING).R.(.:...2.G
R.49378 :. GRAPHICS MODE...<.TX.49411
:. TEXT MODE...F.:.T.P.LB.893 :
. LEFT BOUND...Z.RB.894 :. RIGHT BO
UND...D.UB.895 :. UP BOUND.+.N.DB.89
6 :. DOWN BOUND.1.X.:.Y.... FLAGS
FOR VARIOUS DRAWING MODES._...:.....SH.8
38 :. SHADE STYLE - 0=RANDOM, 1=HALF
TONE... .SC.839 :. SCALING - 0=NORMA
L (1:1), 1=SCALED (3:4) FOR SCREEN DISPL
AY.....LT.898 :. LIGHTING - 0=NORMAL
SINGLE-SOURCE, 1=BACKLIT ILLUMINATION.4
...:.T...BO.53280 :. BORDER COLOR.Z.H
.:.U.R.. FUNCTION LOCATIONS.{...:.....
CL.51979 :. CLEAR BITMAP AREA.....CO.5
2001 :. FILL COLOR MAP.F...:.....SP.52
119 :. SPHERE.....TR.52141 :. TOP-
VIEW TOROID./...VC.52150 :. CYLINDER
(AXIS VERTICAL).].".HC.52153 :. CYLIN
DER (AXIS HORIZONTAL)...,.VT.52186 :.
EDGE-VIEW TOROID (AXIS VERTICAL).G.6.HT
.52189 :. EDGE-VIEW TOROID (AXIS HORI
ZONTAL)...@.VS.52203 :. INSIDE-VIEW T
OROID ["SPOOL"] (AXIS VERTICAL).I.J.HS.5
2206 :. INSIDE-VIEW TOROID ["SPOOL"]
(AXIS HORIZONTAL).O.T.:...^.. DRAW SAMP
LES OF PRIMITIVE SHAPES WITH LABEL BENEA
TH EACH...H.:...R.. SH,1 :. HALFTONE SHA
DING...|.. SC,1 :. USE SCREEN SCALING (F
OR UNDISTORTED SPHERES, ETC.).*.... LT,0
:. USE NORMAL (NO BACKLIGHT) ILLUMINATI
ON.G....(CL) :. CLEAR SCREEN (DEFAULT
- FILL BITMAP WITH 0'S)......(CO),16.11.
1 :. COLOR COMBINATION - DARK GRAY (11)
DOTS ON WHITE (1)...... LOOKS BETTER
THAN DEFAULT COLOR COMBINATION OF BLACK
DOTS ON WHITE...... ON MOST COLOR MO
NITORS.M.... BO,1 :. WHITE BORDER TO MAT
CH BACKGROUND.Z....(GR) :. ENTER BITMA
PPED GRAPHICS MODE.....RW.12:CM.14:MD.1:
A$."SAMPLE SHAPES":. 1900:. PUT TITLE O
N IMAGE.....X1.110:Y1.120:X2.210:Y2.120:
BC.1:DC.7:. 1700:. COLOR TITLE TEXT.E..
.. LB,38:. RB,38:. UB,38:. DB,38 :
. INITIALIZE CLIPPING.Y.B..(SP),40,199,3
8.~.G.RW.9:CM.2:MD.1:A$."SPHERE":.1900..
.L..(HC),120,199,38,38...Q.CM.11:A$."H-C
YLNDR":.1900...V..(VC),200,199 :. NO SIZ
E PARAMETERS GIVEN, DEFAULT (PREVIOUS) A
RE USED.....CM.21:A$."V-CYLNDR":.1900.5.
...(TR),280,199,15,38.Q...CM.32:A$."TORO
ID":.1900.A....(VT),40,64.....RW.23:CM.1
:A$."V-TOROID":.1900......(HT),120,64...
..CM.11:A$."H-TOROID":.1900.J....(HS),20
0,64,5,100.....CM.22:A$."H-SPOOL":.1900.
.....(VS),280,64.....CM.32:A$."V-SPOOL":
.1900.1.... 198,0:. 198,1:. 198,0.U....
WAIT FOR A KEY TO BE PRESSED.[.&.:...0.
. DRAW TWO "GOBLETS" ONE WITH HALFTONE,
THE OTHER RANDOM SHADING....:.:...D..(C
L):.(CO),16.11.1...F.RW.14:CM.15:A$."COM
PARISON":. 1900:RW.15:CM.19:A$."OF":. 19
00.I.H.RW.16:CM.14:A$."SHADE STYLES":. 1
900:RW.18:CM.14:A$."<-- HALFTONE".W.J..
1900:RW.20:CM.15:A$."RANDOM -->":. 1900.
..N.. LB,255:. RB,255:. UB,49:. DB,255:
. CLIP AT SCREEN TOP.H.X..(SP),80,190,80
...B.. UB,51:. DB,51: . CLIP AT JUNCTION
WITH SPHERE FOR SMOOTH SEAM.#.L..(VS),8
0,69,10,130.5.V.. DB,9:. UB,8.J....(VT),
80,9,25,45.R.... SH,0 :. SWITCH TO RAND
OM SHADING...... LB,255:. RB,255:. UB,49
:. DB,255......(SP),240,190,80.B.... UB,
51:. DB,51.Z....(VS),240,69,10,130......
DB,9:. UB,8...F..(VT),240,9,25,45...P..
198,0:. 198,1:. 198,0.$...:.=.... DRAW
"WINE" SCENE.`.... LT,1 :. BACKLIT ILLU
MINATION...... SH,1 :. HALFTONE SHADING
FOR MOST (RANDOM "LABEL" ON BOTTLE).....
.(CO):.(CL),255: . FILL BITMAP WITH 1'S
("SET" BACKGROUND)...... BO,0 : . BLACK
BORDER TO MATCH BACKGROUND.X...RW.0:CM.0
:MD.2:A$."DRAWING WITH":. 1900:RW.1:CM.
2:A$."BACKLIGHT"...... 1900:RW.2:CM.0:A$
."AGAINST A SET":. 1900.....RW.3:CM.2:A$
."BACKGROUND":. 1900.U...RW.1:CM.26:A$."
COLORS ADDED":. 1900... .RW.2:CM.25:A$.
"TO SELECT AREAS":. 1900...*.. DRAW BOT
TLE.9.4.. UB,0:. DB,255:. LB,255:. RB,25
5.P.>..(VT),150,10,30,50.P.H.. UB,255:.(
VC),150,70,50,60...R.. DB,0:.(VT),150,13
0,6,50...\.. DB,55:. UB,0:.(VS),150,204,
15,181.W.F.. UB,255:.(VC),150,221,16,17.
..P.:...Z.. DRAW WINE GLASS...... UB,20
:.(SP),80,120,60.7.... UB,35:. DB,34:.(V
S),80,34,10,110.=...:.U.... DRAW SOME G
RAPES......(SP),8,8,8: . OTHER "GRAPES"
WILL BE SAME RADIUS - JUST GIVE POSITION
S......(SP),20,8:.(SP),40,8:.(SP),12,20:
.(SP),30,20:.(SP),25,16.....:...J.. DRA
W AN APPLE BY A PAIR OF EDGE-VIEW TOROID
S AND A SPHERE SECTION.U.T.. UB,255:. DB
,255:. LB,255:. RB,59.X....(VT),260,29,0
,50:.(VT),260,79...... UB,43:. DB,43:.(S
P),260,54,60...... PUT STEM ON APPLE..
.... RB,0:. DB,0:.(TR),272,104,10,15....
.. ADD A LEAF BY A SPHERE SECTION.(...
. DB,255:. RB,0:.(SP),256,119,15.Y....
ADD A RANDOM SHADED "LABEL" TO THE BOTTL
E.V.$.. UB,255:. RB,255:. LB,6...... SH,
0:.(VC),150,72,50,48...8.:...B.. ADD CO
LORS TO "WINE" SCENE...L..(CO),12:. REPL
ACE WHITE "HOLES" (BACKGROUND) WITH MEDI
UM GRAY.E.N.X1.0:Y1.200:X2.100:Y2.239:DC
.0:BC.0:. 1700:. HIDE TEXT IN CORNERS.V.
P.X1.180:Y1.200:X2.319:Y2.239:DC.0:BC.0:
. 1700...V.X1.200:Y1.1:X2.315:Y2.100:DC.
0:BC.2:. 1700.Q.`.X1.240:Y1.110:X2.255:Y
2.150:BC.5:. 1700...J.X1.260:Y1.110:X2.2
70:Y2.135:BC.9:. 1700.#.T.X1.1:Y1.1:X2.4
8:Y2.30:BC.4:. 1700.O.~.X1.140:Y1.205:X2
.180:Y2.235:BC.7:. 1700.Z...X1.145:Y1.25
:X2.195:Y2.115:BC.6:. 1700...... 198,0:.
198,1:. 198,0.....:...... "COFFEE AND
DONUTS"...... SH,0 :. RANDOM SHADING ON
DONUTS.!.D..(CO),16.11.1:.(CL):. BO,1:.
WHITE BORDER TO MATCH BACKGROUND.`.N..
LB,255:. RB,255:. UB,255:. DB,255 :. NO
INITIAL CLIPPING.V.X..(VT),60,20,20,60..
.... RB,29:.(VT),99,60:. RB,255......(TR
),188,180.Q.... ADD COFFEE CUP (HALFTONE
SHADING)...... SH,1:. UB,0:.(VT),188,20
:. UB,255...... DB,0:.(TR),278,110,20,40
.3.... DB,255:. UB,0:. LB,0.M....(TR),24
8,90,50,70:. LB,255:.(SP),248,110,10:. U
B,255...(..(VC),308,100,10,10...2..(VC),
188,77,60,57...<.. DB,0:.(VT),188,134,40
,60...F.. ADD COLOR - FIRST MAKE SCREEN
BROWN DOTS ON WHITE THEN MAKE CUP GREEN
.=.P..(CO),1.16.9 :. 1=WHITE BACKGROUND,
9=BROWN DOTS.L.Z.X1.130:Y1.1:X2.319:Y2.
136:BC.1:DC.5:. 1700...D.X1.250:Y1.144:X
2.319:Y2.144:. 1700...N.. 198,0:. 198,1:
. 198,0.....:...... DRAW "LINKED" TOROI
DS BY REDRAWING OVERLAP AREAS USING CLIP
PING.+.... LT,0 :. BLUE DOTS ON WHITE, N
O BACKLIGHT.E. ..(CL):.(CO),1.16.6: . 1=
WHITE BACKGROUND, 6=BLUE DOTS...... UB,2
55:. DB,255:. LB,255:. RB,255: . NO INIT
IAL CLIPPING.B.... SH,0 :. RANDOM SHADI
NG.Y....(TR),244,84,48,70...H..(TR),160,
84:.(TR),76,84.. R..(TR),118,156:.(TR),2
02,156.9 ... ADD PROPER OVERLAP SECTION
S.H ... RB,0:. DB,0:.(TR),160,84:. RB,25
5:. LB,0.. ...(TR),76,84:. DB,255:. UB,0
:.(TR),118,156.. ... LB,255:. RB,0:.(TR)
,202,156:. LB,27.. ... DB,0:. UB,255:.(T
R),160,84..!... DB,0:. UB,255:.(TR),160,
84.$!... LB,255:. UB,27:.(TR),244,84.M!"
.. LB,0:. RB,27:. UB,255:.(TR),244,84.Y!
,.. 198,0.R!6.. A$:. A$. "" . 1590..!@..
(TX):. BO,14:. RETURN TO TEXT MODE. !J..
..!T.:..!^.. SUBROUTINE FOR ADDING COLOR
TO DIFFERENT SCREEN AREAS./"H.. REMEMBE
R THAT COLOR BOUNDARIES MUST CORRESPOND
TO CHARACTER BOUNDARIES.Y"R.. DEFINE A R
ECTANGULAR AREA BY LOWER-LEFT AND UPPER-
RIGHT COORDINATES.."|.. (X1,Y1)=LOWER-LE
FT POINT, (X2,Y2)=UPPER-RIGHT POINT.."..
. THE CORNER POINTS CAN BE ARBITRARY BUT
COLOR CHANGE WILL BE IN THE.G#... SMALL
EST CHARACTER-CELL BOUNDED RECTANGLE THA
T INCLUDES THOSE POINTS..#... Y-COORDIN
ATES MUST BE "UNSCALED" IF SCALE FLAG IS
SET:..#... B(SC). Y1.(Y1.1).213.256:Y2.
(Y2.1).213.256..#... COLOR TO BE POKED I
N IS GIVEN BY VARIABLE CC="COMPOSITE COL
OR".A$... WHERE CC=16*DC + BC [DC=DOT CO
LOR, BC=BACKGROUND COLOR NUMBERS].Q$B.CC
.16.DC.BC.L$L.. IX..(X1.8) . .(X2.8)..$V
.. IY..(Y1.8) . .(Y2.8)..$... 34752.IX.4
0.IY,CC..$...:.:...$..:..$... SUBROUTINE
TO ADD TEXT TO GRAPHIC SCREEN..,%... "R
W" AND "CM" ARE THE ROW (0-24) AND COLUM
N (0-39) COORDINATES FOR THE.A%... FIRST
LETTER OF THE TEXT STRING TO BE PRINTED
...%... THE TEXT STRING ITSELF IS ASSIGN
ED TO "A$"..T%&.. "MD" IS THE MODE FOR T
HE PRINTING. FIVE MODES ARE ALLOWED:..&0
.. 1 - NORMAL ("BLACK" LETTERS ON "WHIT
E" BACKGROUND).J&:.. 2 - REVERSED ("WHI
TE" LETTERS ON "BLACK" BACKGROUND)..&D..
3 - SET ("BLACK") LETTERS "OR'ED" WITH
BACKGROUND..&N.. 4 - UNSET ("WHITE") L
ETTERS "AND'ED" WITH BACKGROUND..&X.. 5
- SET LETTERS "XOR'ED" WITH BACKGROUND.
.&B.:.='L.SB.40952:TB.54272:.(MD . 1). T
B.53248:. SCREEN AND TEXT BASE ADDR'S.U'
V.OS.320.RW.8.CM:. OFFSET FROM CHARACTE
R SCREEN BASE..'... 56334,B(56334). 254:
. DISABLE IRQ TIMER.O'... 1,B(1). 251:.
SWITCH CHARACTER ROM IN..'..L.C(A$):. N.
1 . L:N8.N.8.OS.SB..(..X.F(J(A$,N,1)):.
X.63 . X.X.64.#(..TC.TB.8.X.G(... MD . 1
980,1980,1990,2000,2010.](... 53231,36:.
2020.S(F.. 53231,17:. 2020..(P.. 53231,
49:. 2020..(Z.. 53231,81..(...252,N8.256
:.251,N8.256..(N8.256)..(...254,TC.256:.
253,TC.256..(TC.256)..(...(53221):..+)..
. 1,B(1). 4:. 56334,B(56334). 1:. RESTOR
E TO NORMAL.1)......
> CLICK IMAGE PREVIEW FOR FULL MODAL