HR.GRAPHICS INST
FILE INFORMATION
FILENAME(S): HR.GRAPHICS INST
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-30 18:13:15
APPEARS ON: 1 disk(s)
FILE HASH
f82b8e47b0c501d808e30740bbb7611a20ace0c68ac80f8c268763d087bb5718
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0140B | HR.GRAPHICS INST | PRG | Sailor, Ganheden | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 0A 00 99 22 13 22 3B 3A 8B 41 B2 30 |.......".";:.A.0| 00000010: A7 99 22 93 22 3B 00 3C 08 14 00 97 35 33 32 38 |..".";.<....5328| 00000020: 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A 99 22 |0,14:.53281,6:."| 00000030: 0E 08 9B 22 3B C7 28 31 35 35 29 3B 00 6A 08 1E |...";.(155);.j..| 00000040: 00 99 22 13 11 11 20 20 20 20 CC 4F 41 44 49 4E |.."... .OADIN| 00000050: 47 20 C3 4F 4D 4D 4F 44 4F 52 45 27 53 20 C5 44 |G .OMMODORE'S .D| 00000060: 55 43 41 54 49 4F 4E 41 4C 22 00 8F 08 28 00 99 |UCATIONAL"...(..| 00000070: 22 11 20 20 20 20 20 20 20 20 20 20 20 C7 52 41 |". .RA| 00000080: 50 48 49 43 53 20 D3 4F 46 54 57 41 52 45 22 00 |PHICS .OFTWARE".| 00000090: AE 08 32 00 99 22 11 20 20 20 20 20 20 20 20 20 |..2..". | 000000A0: 20 20 20 20 20 20 46 4F 52 20 54 48 45 22 00 D0 | FOR THE"..| 000000B0: 08 3C 00 99 22 11 20 20 20 20 20 20 20 20 20 20 |.<..". | 000000C0: 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 36 34 22 | .OMMODORE 64"| 000000D0: 00 ED 08 46 00 99 22 11 11 20 20 20 20 20 20 20 |...F..".. | 000000E0: 20 20 20 20 20 20 20 20 20 20 42 59 22 00 10 09 | BY"...| 000000F0: 50 00 99 22 11 11 20 20 20 20 20 20 20 20 20 20 |P..".. | 00000100: 20 20 C2 52 49 41 4E 20 CD 55 4E 53 48 41 57 22 | .RIAN .UNSHAW"| 00000110: 00 2C 09 5A 00 99 22 11 20 20 20 20 20 20 20 20 |.,.Z..". | 00000120: 20 20 20 20 20 20 20 20 C1 4E 44 22 00 4F 09 64 | .ND".O.d| 00000130: 00 99 22 11 20 20 20 20 20 20 20 20 20 20 20 D0 |..". .| 00000140: 45 54 45 52 20 20 D2 41 47 53 44 41 4C 45 22 00 |ETER .AGSDALE".| 00000150: 75 09 6E 00 99 22 11 11 11 20 20 20 20 20 20 20 |u.n.."... | 00000160: 20 20 20 AF AF AF AF AF AF AF AF AF AF AF AF AF | .............| 00000170: AF AF AF AF 22 00 99 09 78 00 99 22 20 20 20 20 |...."...x.." | 00000180: 20 20 20 20 20 20 12 CF 4E 45 20 CD 4F 4D 45 4E | ..NE .OMEN| 00000190: 54 20 D0 4C 45 41 53 45 22 00 A1 09 7D 00 41 B2 |T .LEASE"...}.A.| 000001A0: 31 00 CA 09 82 00 8B C2 28 35 30 31 38 33 29 B3 |1.......(50183).| 000001B0: B1 37 36 A7 93 22 48 52 2E 47 52 41 50 48 49 43 |.76.."HR.GRAPHIC| 000001C0: 53 20 4F 42 4A 22 2C 38 2C 31 00 D4 09 8C 00 8D |S OBJ",8,1......| 000001D0: 31 37 34 30 00 EC 09 96 00 54 24 B2 22 C3 4F 4D |1740.....T$.".OM| 000001E0: 4D 41 4E 44 53 22 3A 8D 31 37 31 30 00 1B 0A A0 |MANDS":.1710....| 000001F0: 00 99 22 20 20 20 D4 48 45 53 45 20 41 52 45 20 |.." .HESE ARE | 00000200: 54 48 45 20 43 4F 4D 4D 41 4E 44 53 20 41 56 41 |THE COMMANDS AVA| 00000210: 49 4C 41 42 4C 45 20 46 4F 52 22 00 2A 0A AA 00 |ILABLE FOR".*...| 00000220: 99 22 11 20 55 53 45 20 3A 22 00 44 0A B4 00 99 |.". USE :".D....| 00000230: 22 11 20 20 20 20 20 20 20 20 20 20 49 4E 49 54 |". INIT| 00000240: 41 4C 4C 22 00 5B 0A BE 00 99 22 20 20 20 20 20 |ALL".[...." | 00000250: 20 20 20 20 20 48 49 52 45 53 22 00 72 0A C8 00 | HIRES".r...| 00000260: 99 22 20 20 20 20 20 20 20 20 20 20 52 45 53 45 |." RESE| 00000270: 54 22 00 8A 0A D2 00 99 22 20 20 20 20 20 20 20 |T"......" | 00000280: 20 20 20 43 4F 4C 4F 55 52 22 00 9F 0A DC 00 99 | COLOUR"......| 00000290: 22 20 20 20 20 20 20 20 20 20 20 43 4C 53 22 00 |" CLS".| 000002A0: B5 0A E6 00 99 22 20 20 20 20 20 20 20 20 20 20 |....." | 000002B0: 50 4C 4F 54 22 00 CB 0A F0 00 99 22 20 20 20 20 |PLOT"......" | 000002C0: 20 20 20 20 20 20 4C 49 4E 45 22 00 E0 0A FA 00 | LINE".....| 000002D0: 99 22 20 20 20 20 20 20 20 20 20 20 42 4F 58 22 |." BOX"| 000002E0: 00 F8 0A 04 01 99 22 20 20 20 20 20 20 20 20 20 |......" | 000002F0: 20 43 49 52 43 4C 45 22 00 0F 0B 0E 01 99 22 20 | CIRCLE"......" | 00000300: 20 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 22 00 | BLOCK".| 00000310: 28 0B 18 01 99 22 20 20 20 20 20 20 20 20 20 20 |(...." | 00000320: 46 49 4C 4C 42 4F 58 22 00 3E 0B 22 01 99 22 20 |FILLBOX".>.".." | 00000330: 20 20 20 20 20 20 20 20 20 45 44 47 45 22 00 54 | EDGE".T| 00000340: 0B 2C 01 99 22 20 20 20 20 20 20 20 20 20 20 50 |.,.." P| 00000350: 49 43 20 22 00 86 0B 36 01 99 22 11 20 20 20 CD |IC "...6..". .| 00000360: 4F 52 45 20 4F 4E 20 54 48 45 20 48 4F 57 2D 54 |ORE ON THE HOW-T| 00000370: 4F 20 57 49 4C 4C 20 46 4F 4C 4C 4F 57 2E 22 20 |O WILL FOLLOW." | 00000380: 3A 8D 31 37 34 30 00 A5 0B 40 01 54 24 B2 22 C7 |:.1740...@.T$.".| 00000390: 45 54 54 49 4E 47 20 D3 54 41 52 54 45 44 22 3A |ETTING .TARTED":| 000003A0: 8D 31 37 31 30 00 CF 0B 4A 01 99 22 20 20 20 C1 |.1710...J.." .| 000003B0: 4C 4C 20 43 4F 4D 4D 41 4E 44 53 20 41 52 45 20 |LL COMMANDS ARE | 000003C0: 49 4E 56 4F 4B 45 44 20 42 59 20 54 48 45 22 00 |INVOKED BY THE".| 000003D0: FD 0B 54 01 99 22 11 20 27 53 59 53 27 20 43 4F |..T..". 'SYS' CO| 000003E0: 4D 4D 41 4E 44 2E 20 20 C1 4C 4C 20 50 52 4F 47 |MMAND. .LL PROG| 000003F0: 52 41 4D 53 20 4D 55 53 54 20 42 45 22 00 29 0C |RAMS MUST BE".).| 00000400: 5E 01 99 22 11 20 53 54 41 52 54 45 44 20 42 59 |^..". STARTED BY| 00000410: 20 41 53 53 49 47 4E 49 4E 47 20 56 41 52 49 41 | ASSIGNING VARIA| 00000420: 42 4C 45 53 20 46 4F 52 22 00 4B 0C 68 01 99 22 |BLES FOR".K.h.."| 00000430: 11 20 54 48 45 20 43 4F 4D 4D 41 4E 44 53 2C 20 |. THE COMMANDS, | 00000440: 41 53 20 53 48 4F 57 4E 20 3A 22 00 6A 0C 72 01 |AS SHOWN :".j.r.| 00000450: 99 22 20 20 20 20 20 20 20 20 20 49 4E 49 54 41 |." INITA| 00000460: 4C 4C 20 3D 20 35 30 31 38 33 00 89 0C 7C 01 99 |LL = 50183...|..| 00000470: 22 20 20 20 20 20 20 20 20 20 42 4C 4F 43 4B 20 |" BLOCK | 00000480: 20 20 3D 20 35 30 31 39 32 00 A8 0C 86 01 99 22 | = 50192......"| 00000490: 20 20 20 20 20 20 20 20 20 46 49 4C 4C 42 4F 58 | FILLBOX| 000004A0: 20 3D 20 35 30 31 39 35 00 C7 0C 90 01 99 22 20 | = 50195......" | 000004B0: 20 20 20 20 20 20 20 20 43 4F 4C 4F 55 52 20 20 | COLOUR | 000004C0: 3D 20 35 30 31 39 38 00 E6 0C 9A 01 99 22 20 20 |= 50198......" | 000004D0: 20 20 20 20 20 20 20 50 4C 4F 54 20 20 20 20 3D | PLOT =| 000004E0: 20 35 30 32 30 31 00 05 0D A4 01 99 22 20 20 20 | 50201......" | 000004F0: 20 20 20 20 20 20 45 44 47 45 20 20 20 20 3D 20 | EDGE = | 00000500: 35 30 32 30 34 00 24 0D AE 01 99 22 20 20 20 20 |50204.$...." | 00000510: 20 20 20 20 20 42 41 43 4B 20 20 20 20 3D 20 35 | BACK = 5| 00000520: 30 32 30 37 00 43 0D B8 01 99 22 20 20 20 20 20 |0207.C...." | 00000530: 20 20 20 20 43 49 52 43 4C 45 20 20 3D 20 35 30 | CIRCLE = 50| 00000540: 32 31 30 00 62 0D C2 01 99 22 20 20 20 20 20 20 |210.b...." | 00000550: 20 20 20 4C 49 4E 45 20 20 20 20 3D 20 35 30 32 | LINE = 502| 00000560: 31 33 00 81 0D CC 01 99 22 20 20 20 20 20 20 20 |13......" | 00000570: 20 20 42 4F 58 20 20 20 20 20 3D 20 35 30 32 31 | BOX = 5021| 00000580: 36 00 A0 0D D6 01 99 22 20 20 20 20 20 20 20 20 |6......" | 00000590: 20 48 49 52 45 53 20 20 20 3D 20 35 30 32 31 39 | HIRES = 50219| 000005A0: 00 BF 0D E0 01 99 22 20 20 20 20 20 20 20 20 20 |......" | 000005B0: 43 4C 53 20 20 20 20 20 3D 20 35 30 32 32 32 00 |CLS = 50222.| 000005C0: DE 0D EA 01 99 22 20 20 20 20 20 20 20 20 20 50 |....." P| 000005D0: 49 43 20 20 20 20 20 3D 20 35 30 31 38 36 00 FA |IC = 50186..| 000005E0: 0D F4 01 8D 31 37 34 30 3A 54 24 B2 22 D3 59 4E |....1740:T$.".YN| 000005F0: 54 41 58 22 3A 8D 31 37 31 30 00 17 0E FE 01 99 |TAX":.1710......| 00000600: 22 11 20 53 59 53 20 49 4E 49 54 41 4C 4C 2C 50 |". SYS INITALL,P| 00000610: 43 2C 53 43 2C 42 43 00 42 0E 08 02 99 22 11 11 |C,SC,BC.B...."..| 00000620: 20 20 20 D4 48 49 53 20 49 53 20 55 53 45 44 20 | .HIS IS USED | 00000630: 54 4F 20 49 4E 56 4F 4B 45 20 42 49 54 20 4D 41 |TO INVOKE BIT MA| 00000640: 50 22 00 6F 0E 12 02 99 22 11 20 4D 4F 44 45 2C |P".o....". MODE,| 00000650: 20 43 4C 45 41 52 53 20 54 48 45 20 48 49 2D 52 | CLEARS THE HI-R| 00000660: 45 53 20 53 43 52 45 45 4E 2C 20 41 4E 44 22 00 |ES SCREEN, AND".| 00000670: 9B 0E 1C 02 99 22 11 20 57 41 53 48 45 53 20 54 |.....". WASHES T| 00000680: 48 45 20 43 4F 4C 4F 55 52 20 53 43 52 45 45 4E |HE COLOUR SCREEN| 00000690: 20 54 4F 20 54 48 45 20 49 4E 22 00 B1 0E 26 02 | TO THE IN"...&.| 000006A0: 99 22 11 20 55 53 45 20 43 4F 4C 4F 55 52 53 2E |.". USE COLOURS.| 000006B0: 22 00 CB 0E 30 02 99 22 11 20 54 48 45 20 50 41 |"...0..". THE PA| 000006C0: 52 41 4D 45 54 45 52 53 20 3A 22 00 E2 0E 3A 02 |RAMETERS :"...:.| 000006D0: 99 22 11 20 50 43 20 3A 20 50 45 4E 43 4F 4C 4F |.". PC : PENCOLO| 000006E0: 55 52 00 FD 0E 44 02 99 22 11 20 53 43 20 3A 20 |UR...D..". SC : | 000006F0: 53 43 52 45 45 4E 20 43 4F 4C 4F 55 52 00 18 0F |SCREEN COLOUR...| 00000700: 4E 02 99 22 11 20 42 43 20 3A 20 42 4F 52 44 45 |N..". BC : BORDE| 00000710: 52 20 43 4F 4C 4F 55 52 00 28 0F 58 02 8D 31 37 |R COLOUR.(.X..17| 00000720: 34 30 3A 8D 31 37 31 30 00 41 0F 62 02 99 22 11 |40:.1710.A.b..".| 00000730: 20 53 59 53 20 43 4F 4C 4F 55 52 2C 50 43 2C 53 | SYS COLOUR,PC,S| 00000740: 43 00 70 0F 6C 02 99 22 11 20 D4 48 49 53 20 43 |C.p.l..". .HIS C| 00000750: 4F 4D 4D 41 4E 44 20 49 53 20 55 53 45 44 20 54 |OMMAND IS USED T| 00000760: 4F 20 43 48 41 4E 47 45 20 54 48 45 20 49 4E 22 |O CHANGE THE IN"| 00000770: 00 94 0F 76 02 99 22 11 20 55 53 45 20 43 4F 4C |...v..". USE COL| 00000780: 4F 55 52 53 20 4F 46 20 54 48 45 20 53 43 52 45 |OURS OF THE SCRE| 00000790: 45 4E 2E 22 00 B3 0F 80 02 99 22 11 20 28 50 41 |EN."......". (PA| 000007A0: 52 41 4D 45 54 45 52 53 20 41 53 20 42 45 46 4F |RAMETERS AS BEFO| 000007B0: 52 45 29 00 C3 0F 8A 02 8D 31 37 34 30 3A 8D 31 |RE)......1740:.1| 000007C0: 37 31 30 00 D7 0F 94 02 99 22 11 20 53 59 53 20 |710......". SYS | 000007D0: 45 44 47 45 2C 42 43 00 FD 0F 9E 02 99 22 11 20 |EDGE,BC......". | 000007E0: D4 48 49 53 20 48 41 53 20 54 48 45 20 53 41 4D |.HIS HAS THE SAM| 000007F0: 45 20 45 46 46 45 43 54 20 41 53 20 22 00 13 10 |E EFFECT AS "...| 00000800: A8 02 99 22 11 20 50 4F 4B 45 20 35 33 32 38 30 |...". POKE 53280| 00000810: 2C 42 43 00 23 10 B2 02 8D 31 37 34 30 3A 8D 31 |,BC.#....1740:.1| 00000820: 37 31 30 00 34 10 BC 02 99 22 11 20 53 59 53 20 |710.4....". SYS | 00000830: 42 41 43 4B 00 60 10 C6 02 99 22 11 20 D4 48 49 |BACK.`....". .HI| 00000840: 53 20 43 4F 4D 4D 41 4E 44 20 57 49 4C 4C 20 54 |S COMMAND WILL T| 00000850: 41 4B 45 20 59 4F 55 20 42 41 43 4B 20 54 4F 22 |AKE YOU BACK TO"| 00000860: 00 74 10 D0 02 99 22 11 20 54 45 58 54 20 4D 4F |.t....". TEXT MO| 00000870: 44 45 2E 22 00 84 10 DA 02 8D 31 37 34 30 3A 8D |DE."......1740:.| 00000880: 31 37 31 30 00 99 10 E4 02 99 22 11 20 53 59 53 |1710......". SYS| 00000890: 20 48 49 52 45 53 2C 42 43 00 C5 10 EE 02 99 22 | HIRES,BC......"| 000008A0: 11 20 D4 48 49 53 20 43 4F 4D 4D 41 4E 44 20 57 |. .HIS COMMAND W| 000008B0: 49 4C 4C 20 54 41 4B 45 20 59 4F 55 20 42 41 43 |ILL TAKE YOU BAC| 000008C0: 4B 20 54 4F 22 00 F4 10 F8 02 99 22 11 20 48 49 |K TO"......". HI| 000008D0: 2D 52 45 53 2E 20 20 C9 54 20 44 4F 45 53 20 4E |-RES. .T DOES N| 000008E0: 4F 54 20 41 4C 54 45 52 20 54 48 45 20 53 43 52 |OT ALTER THE SCR| 000008F0: 45 45 4E 22 00 20 11 02 03 99 22 11 20 45 4E 41 |EEN". ....". ENA| 00000900: 42 4C 49 4E 47 20 59 4F 55 20 52 45 54 55 52 4E |BLING YOU RETURN| 00000910: 20 54 4F 20 48 49 2D 52 45 53 20 46 52 4F 4D 22 | TO HI-RES FROM"| 00000920: 00 49 11 0C 03 99 22 11 20 54 45 58 54 2E 20 20 |.I....". TEXT. | 00000930: 20 D9 4F 55 20 41 4C 53 4F 20 53 50 45 43 49 46 | .OU ALSO SPECIF| 00000940: 59 20 42 4F 52 44 45 52 22 00 5A 11 16 03 99 22 |Y BORDER".Z...."| 00000950: 11 20 43 4F 4C 4F 55 52 2E 22 00 6A 11 20 03 8D |. COLOUR.".j. ..| 00000960: 31 37 34 30 3A 8D 31 37 31 30 00 81 11 2A 03 99 |1740:.1710...*..| 00000970: 22 11 20 53 59 53 20 43 4C 53 2C 50 43 2C 53 43 |". SYS CLS,PC,SC| 00000980: 22 00 B1 11 34 03 99 22 11 20 D4 48 49 53 20 43 |"...4..". .HIS C| 00000990: 4F 4D 4D 41 4E 44 20 45 52 41 53 45 53 20 54 48 |OMMAND ERASES TH| 000009A0: 45 20 48 49 2D 52 45 53 20 53 43 52 45 45 4E 2E |E HI-RES SCREEN.| 000009B0: 22 00 DD 11 3E 03 99 22 11 20 C9 54 20 41 4C 53 |"...>..". .T ALS| 000009C0: 4F 20 43 4F 4C 4F 55 52 53 20 54 48 45 20 4E 45 |O COLOURS THE NE| 000009D0: 58 54 20 53 43 52 45 45 4E 20 54 4F 22 00 09 12 |XT SCREEN TO"...| 000009E0: 48 03 99 22 11 20 54 48 45 20 43 4F 4C 4F 55 52 |H..". THE COLOUR| 000009F0: 53 20 53 50 45 43 49 46 49 45 44 20 42 59 20 54 |S SPECIFIED BY T| 00000A00: 48 45 20 50 41 52 41 2D 22 00 1A 12 52 03 99 22 |HE PARA-"...R.."| 00000A10: 11 20 4D 45 54 45 52 53 2E 22 00 2A 12 5C 03 8D |. METERS.".*.\..| 00000A20: 31 37 34 30 3A 8D 31 37 31 30 00 42 12 66 03 99 |1740:.1710.B.f..| 00000A30: 22 11 20 53 59 53 20 50 4C 4F 54 2C 58 2C 59 2C |". SYS PLOT,X,Y,| 00000A40: 50 54 00 6F 12 70 03 99 22 11 20 D7 49 54 48 20 |PT.o.p..". .ITH | 00000A50: 54 48 49 53 20 43 4F 4D 4D 41 4E 44 20 59 4F 55 |THIS COMMAND YOU| 00000A60: 20 4D 41 59 20 41 4C 54 45 52 20 54 48 45 22 00 | MAY ALTER THE".| 00000A70: 9B 12 7A 03 99 22 11 20 43 55 52 52 45 4E 54 20 |..z..". CURRENT | 00000A80: 53 54 41 54 45 20 4F 46 20 54 48 45 20 50 49 58 |STATE OF THE PIX| 00000A90: 45 4C 20 41 54 20 58 2C 59 2E 22 00 B4 12 84 03 |EL AT X,Y.".....| 00000AA0: 99 22 11 20 54 48 45 20 50 41 52 41 4D 45 54 45 |.". THE PARAMETE| 00000AB0: 52 53 20 3A 00 D5 12 8E 03 99 22 11 20 58 20 2C |RS :......". X ,| 00000AC0: 20 59 20 20 3A 20 54 48 45 20 43 4F 4F 52 44 49 | Y : THE COORDI| 00000AD0: 4E 41 54 45 53 00 F1 12 98 03 99 22 20 50 54 20 |NATES......" PT | 00000AE0: 20 20 20 20 3A 20 50 4C 4F 54 20 54 59 50 45 2E | : PLOT TYPE.| 00000AF0: 22 00 15 13 A2 03 99 22 11 20 20 20 20 20 20 20 |"......". | 00000B00: 20 D4 48 45 20 50 4C 4F 54 20 54 59 50 45 53 20 | .HE PLOT TYPES | 00000B10: 41 52 45 20 3A 00 38 13 AC 03 99 22 11 20 20 20 |ARE :.8....". | 00000B20: 20 20 20 20 20 30 20 3A 20 54 55 52 4E 20 50 49 | 0 : TURN PI| 00000B30: 58 45 4C 20 4F 46 46 2E 00 5A 13 B6 03 99 22 20 |XEL OFF..Z...." | 00000B40: 20 20 20 20 20 20 20 31 20 3A 20 54 55 52 4E 20 | 1 : TURN | 00000B50: 50 49 58 45 4C 20 4F 4E 2E 22 00 83 13 C0 03 99 |PIXEL ON."......| 00000B60: 22 20 20 20 20 20 20 20 20 32 20 3A 20 43 4F 4D |" 2 : COM| 00000B70: 50 4C 45 4D 45 4E 54 20 54 48 45 20 50 49 58 45 |PLEMENT THE PIXE| 00000B80: 4C 2E 22 00 B1 13 CA 03 99 22 20 20 20 20 20 20 |L."......" | 00000B90: 20 20 28 49 2E 45 2E 2C 20 49 46 20 49 54 27 53 | (I.E., IF IT'S| 00000BA0: 20 4F 4E 20 54 55 52 4E 20 49 54 20 4F 46 46 2C | ON TURN IT OFF,| 00000BB0: 22 00 D9 13 D4 03 99 22 20 20 20 20 20 20 20 20 |"......" | 00000BC0: 20 49 46 20 49 54 27 53 20 4F 46 46 20 54 55 52 | IF IT'S OFF TUR| 00000BD0: 4E 20 49 54 20 4F 4E 2E 29 00 E9 13 DE 03 8D 31 |N IT ON.)......1| 00000BE0: 37 34 30 3A 8D 31 37 31 30 00 09 14 E8 03 99 22 |740:.1710......"| 00000BF0: 11 20 53 59 53 20 4C 49 4E 45 2C 58 31 2C 59 31 |. SYS LINE,X1,Y1| 00000C00: 2C 58 32 2C 59 32 2C 50 54 00 38 14 F2 03 99 22 |,X2,Y2,PT.8...."| 00000C10: 11 20 D4 48 49 53 20 43 4F 4D 4D 41 4E 44 20 44 |. .HIS COMMAND D| 00000C20: 52 41 57 53 20 41 20 4C 49 4E 45 20 42 45 54 57 |RAWS A LINE BETW| 00000C30: 45 45 4E 20 54 48 45 22 00 64 14 FC 03 99 22 11 |EEN THE".d....".| 00000C40: 20 50 4F 49 4E 54 53 20 58 31 2C 59 31 20 41 4E | POINTS X1,Y1 AN| 00000C50: 44 20 58 32 2C 59 32 2E 20 20 C1 47 41 49 4E 20 |D X2,Y2. .GAIN | 00000C60: 59 4F 55 22 00 93 14 06 04 99 22 11 20 4D 41 59 |YOU"......". MAY| 00000C70: 20 43 48 4F 4F 53 45 20 54 48 45 20 50 4C 4F 54 | CHOOSE THE PLOT| 00000C80: 20 54 59 50 45 2E 20 20 D4 48 45 20 43 4F 4F 52 | TYPE. .HE COOR| 00000C90: 44 2D 22 00 BE 14 10 04 99 22 11 20 49 4E 41 54 |D-"......". INAT| 00000CA0: 45 20 53 59 53 54 45 4D 20 48 41 53 20 30 2C 30 |E SYSTEM HAS 0,0| 00000CB0: 20 49 4E 20 54 48 45 20 55 50 50 45 52 22 00 EC | IN THE UPPER"..| 00000CC0: 14 1A 04 99 22 11 20 4C 45 46 54 20 41 4E 44 20 |....". LEFT AND | 00000CD0: 33 31 39 2C 31 39 39 20 49 4E 20 54 48 45 20 4C |319,199 IN THE L| 00000CE0: 4F 57 45 52 20 52 49 47 48 54 2E 22 00 FC 14 24 |OWER RIGHT."...$| 00000CF0: 04 8D 31 37 34 30 3A 8D 31 37 31 30 00 1B 15 2E |..1740:.1710....| 00000D00: 04 99 22 11 20 53 59 53 20 42 4F 58 2C 58 31 2C |..". SYS BOX,X1,| 00000D10: 59 31 2C 58 32 2C 59 32 2C 50 54 00 47 15 38 04 |Y1,X2,Y2,PT.G.8.| 00000D20: 99 22 11 20 D4 48 49 53 20 44 52 41 57 53 20 41 |.". .HIS DRAWS A| 00000D30: 20 42 4F 58 20 47 49 56 45 4E 20 42 59 20 58 31 | BOX GIVEN BY X1| 00000D40: 2C 59 31 20 41 53 22 00 72 15 42 04 99 22 11 20 |,Y1 AS".r.B..". | 00000D50: 54 48 45 20 55 50 50 45 52 20 4C 45 46 54 20 43 |THE UPPER LEFT C| 00000D60: 4F 52 4E 45 52 20 4F 46 20 54 48 45 20 42 4F 58 |ORNER OF THE BOX| 00000D70: 2C 22 00 9D 15 4C 04 99 22 11 20 41 4E 44 20 58 |,"...L..". AND X| 00000D80: 32 2C 59 32 20 54 48 45 20 4C 4F 57 45 52 20 52 |2,Y2 THE LOWER R| 00000D90: 49 47 48 54 20 43 4F 52 4E 45 52 2E 22 00 AD 15 |IGHT CORNER."...| 00000DA0: 56 04 8D 31 37 34 30 3A 8D 31 37 31 30 00 D0 15 |V..1740:.1710...| 00000DB0: 60 04 99 22 11 20 53 59 53 20 43 49 52 43 4C 45 |`..". SYS CIRCLE| 00000DC0: 2C 58 31 2C 59 31 2C 58 52 2C 59 52 2C 50 54 22 |,X1,Y1,XR,YR,PT"| 00000DD0: 00 FD 15 6A 04 99 22 11 20 D4 48 49 53 20 49 53 |...j..". .HIS IS| 00000DE0: 20 41 20 52 45 41 4C 4C 59 20 41 4E 20 45 4C 4C | A REALLY AN ELL| 00000DF0: 49 50 53 45 20 44 52 41 57 49 4E 47 22 00 2B 16 |IPSE DRAWING".+.| 00000E00: 74 04 99 22 11 20 43 4F 4D 4D 41 4E 44 2E 20 20 |t..". COMMAND. | 00000E10: C2 45 43 41 55 53 45 20 4F 46 20 54 48 45 20 4E |.ECAUSE OF THE N| 00000E20: 4F 4E 20 55 4E 49 46 4F 52 4D 22 00 56 16 7E 04 |ON UNIFORM".V.~.| 00000E30: 99 22 11 20 44 49 53 50 4C 41 59 20 28 33 32 30 |.". DISPLAY (320| 00000E40: 20 42 59 20 32 30 30 29 2C 20 41 20 4C 4F 47 49 | BY 200), A LOGI| 00000E50: 43 41 4C 4C 59 22 00 82 16 88 04 99 22 11 20 54 |CALLY"......". T| 00000E60: 52 55 45 20 43 49 52 43 4C 45 20 4C 4F 4F 4B 53 |RUE CIRCLE LOOKS| 00000E70: 20 4C 49 4B 45 20 41 4E 20 45 4C 4C 49 50 53 45 | LIKE AN ELLIPSE| 00000E80: 2E 22 00 AE 16 92 04 99 22 11 20 D4 4F 20 43 4F |."......". .O CO| 00000E90: 4D 50 45 4E 53 41 54 45 2C 20 54 48 49 53 20 43 |MPENSATE, THIS C| 00000EA0: 4F 4D 4D 41 4E 44 20 41 4C 4C 4F 57 53 22 00 E2 |OMMAND ALLOWS"..| 00000EB0: 16 9C 04 99 22 11 20 59 4F 55 20 54 4F 20 53 50 |....". YOU TO SP| 00000EC0: 45 43 49 46 59 20 54 48 45 20 58 20 41 4E 44 11 |ECIFY THE X AND.| 00000ED0: 9D 9D 9D A3 A3 A3 91 20 59 20 52 41 44 49 55 53 |....... Y RADIUS| 00000EE0: 2E 22 00 10 17 A6 04 99 22 11 20 D4 4F 20 4F 42 |."......". .O OB| 00000EF0: 54 41 49 4E 20 41 20 43 49 52 43 4C 45 2C 20 53 |TAIN A CIRCLE, S| 00000F00: 43 41 4C 45 20 54 48 45 20 52 41 44 49 55 53 22 |CALE THE RADIUS"| 00000F10: 00 3A 17 B0 04 99 22 11 20 49 4E 20 54 48 45 20 |.:....". IN THE | 00000F20: 59 20 41 58 49 53 20 42 59 20 54 48 52 45 45 20 |Y AXIS BY THREE | 00000F30: 51 55 41 52 54 45 52 53 2E 22 00 61 17 BA 04 99 |QUARTERS.".a....| 00000F40: 22 11 20 28 4F 52 20 49 4E 43 52 45 41 53 45 20 |". (OR INCREASE | 00000F50: 58 20 42 59 20 46 4F 55 52 20 54 48 49 52 44 53 |X BY FOUR THIRDS| 00000F60: 29 00 71 17 C4 04 8D 31 37 34 30 3A 8D 31 37 31 |).q....1740:.171| 00000F70: 30 00 94 17 CE 04 99 22 11 20 53 59 53 20 46 49 |0......". SYS FI| 00000F80: 4C 4C 42 4F 58 2C 58 31 2C 59 31 2C 58 32 2C 59 |LLBOX,X1,Y1,X2,Y| 00000F90: 32 2C 50 54 00 C2 17 D8 04 99 22 11 20 D4 48 45 |2,PT......". .HE| 00000FA0: 20 53 41 4D 45 20 41 50 50 4C 49 45 53 20 48 45 | SAME APPLIES HE| 00000FB0: 52 45 20 41 53 20 46 4F 52 20 54 48 45 20 42 4F |RE AS FOR THE BO| 00000FC0: 58 22 00 EE 17 E2 04 99 22 11 20 43 4F 4D 4D 41 |X"......". COMMA| 00000FD0: 4E 44 2C 20 45 58 43 45 50 54 20 48 45 52 45 20 |ND, EXCEPT HERE | 00000FE0: 54 48 45 20 52 45 53 55 4C 54 20 49 53 22 00 18 |THE RESULT IS"..| 00000FF0: 18 EC 04 99 22 11 20 4E 4F 54 20 41 4E 20 4F 55 |....". NOT AN OU| 00001000: 54 4C 49 4E 45 44 20 52 45 43 54 41 4E 47 4C 45 |TLINED RECTANGLE| 00001010: 2C 20 42 55 54 20 41 22 00 2D 18 F6 04 99 22 11 |, BUT A".-....".| 00001020: 20 46 49 4C 4C 45 44 20 42 4F 58 2E 22 00 3D 18 | FILLED BOX.".=.| 00001030: 00 05 8D 31 37 34 30 3A 8D 31 37 31 30 00 63 18 |...1740:.1710.c.| 00001040: 0A 05 99 22 11 20 53 59 53 20 42 4C 4F 43 4B 2C |...". SYS BLOCK,| 00001050: 58 31 2C 59 31 2C 58 32 2C 59 32 2C 4C 50 43 2C |X1,Y1,X2,Y2,LPC,| 00001060: 4C 53 43 00 8D 18 14 05 99 22 11 20 D7 49 54 48 |LSC......". .ITH| 00001070: 20 54 48 49 53 20 43 4F 4D 4D 41 4E 44 20 59 4F | THIS COMMAND YO| 00001080: 55 20 4D 41 59 20 43 48 41 4E 47 45 22 00 BB 18 |U MAY CHANGE"...| 00001090: 1E 05 99 22 11 20 54 48 45 20 49 4E 20 55 53 45 |...". THE IN USE| 000010A0: 20 43 4F 4C 4F 55 52 53 20 49 4E 20 41 20 4C 4F | COLOURS IN A LO| 000010B0: 43 41 4C 20 42 4C 4F 43 4B 2E 22 00 EA 18 28 05 |CAL BLOCK."...(.| 000010C0: 99 22 11 20 D4 48 45 20 50 41 52 41 4D 45 54 45 |.". .HE PARAMETE| 000010D0: 52 53 20 49 4E 44 49 43 41 54 45 20 41 20 52 45 |RS INDICATE A RE| 000010E0: 43 54 41 4E 47 55 4C 41 52 22 00 17 19 32 05 99 |CTANGULAR"...2..| 000010F0: 22 11 20 41 52 45 41 20 4D 55 43 48 20 54 48 45 |". AREA MUCH THE| 00001100: 20 53 41 4D 45 20 41 53 20 57 49 54 48 20 42 4F | SAME AS WITH BO| 00001110: 58 2C 20 42 55 54 22 00 44 19 3C 05 99 22 11 20 |X, BUT".D.<..". | 00001120: 54 48 45 20 52 45 53 4F 4C 55 54 49 4F 4E 20 49 |THE RESOLUTION I| 00001130: 53 20 4C 4F 57 45 52 2E 20 20 D4 48 45 20 52 41 |S LOWER. .HE RA| 00001140: 4E 47 45 22 00 70 19 46 05 99 22 11 20 49 53 20 |NGE".p.F..". IS | 00001150: 30 20 54 4F 20 34 30 20 49 4E 20 54 48 45 20 58 |0 TO 40 IN THE X| 00001160: 20 41 58 49 53 2C 20 41 4E 44 20 30 20 54 4F 22 | AXIS, AND 0 TO"| 00001170: 00 8B 19 50 05 99 22 11 20 32 35 20 49 4E 20 54 |...P..". 25 IN T| 00001180: 48 45 20 59 20 41 58 49 53 2E 22 00 9B 19 5A 05 |HE Y AXIS."...Z.| 00001190: 8D 31 37 34 30 3A 8D 31 37 31 30 00 AE 19 64 05 |.1740:.1710...d.| 000011A0: 99 22 11 20 53 59 53 20 50 49 43 2C 46 4E 00 DC |.". SYS PIC,FN..| 000011B0: 19 6E 05 99 22 11 20 D7 49 54 48 20 54 48 49 53 |.n..". .ITH THIS| 000011C0: 20 43 4F 4D 4D 41 4E 44 2C 20 59 4F 55 20 4D 41 | COMMAND, YOU MA| 000011D0: 59 20 53 41 56 45 20 59 4F 55 52 22 00 0B 1A 78 |Y SAVE YOUR"...x| 000011E0: 05 99 20 22 11 20 48 49 2D 52 45 53 20 43 52 45 |.. ". HI-RES CRE| 000011F0: 41 54 49 4F 4E 53 20 54 4F 20 44 49 53 4B 2E 20 |ATIONS TO DISK. | 00001200: 20 C6 49 52 53 54 20 59 4F 55 22 00 37 1A 82 05 | .IRST YOU".7...| 00001210: 99 22 11 20 4D 55 53 54 20 4F 50 45 4E 20 55 50 |.". MUST OPEN UP| 00001220: 20 59 4F 55 52 20 4F 57 4E 20 46 49 4C 45 20 54 | YOUR OWN FILE T| 00001230: 4F 20 44 49 53 4B 22 00 51 1A 8C 05 99 22 11 20 |O DISK".Q....". | 00001240: 54 48 45 4E 20 53 59 53 20 50 49 43 2C 46 4E 2E |THEN SYS PIC,FN.| 00001250: 22 00 5F 1A 96 05 99 22 11 20 45 2E 47 2E 2C 00 |"._....". E.G.,.| 00001260: 95 1A A0 05 99 22 11 20 31 30 30 20 4F 50 45 4E |.....". 100 OPEN| 00001270: 31 2C 38 2C 31 2C 22 3B C7 28 33 34 29 3B 22 40 |1,8,1,";.(34);"@| 00001280: 30 3A 54 45 53 54 20 50 49 43 54 55 52 45 22 3B |0:TEST PICTURE";| 00001290: C7 28 33 34 29 00 AA 1A AA 05 99 22 20 31 31 30 |.(34)......" 110| 000012A0: 20 53 59 53 20 50 49 43 2C 31 00 BA 1A B4 05 8D | SYS PIC,1......| 000012B0: 31 37 34 30 3A 8D 31 37 31 30 00 DB 1A BE 05 99 |1740:.1710......| 000012C0: 22 11 20 D4 4F 20 4C 4F 41 44 20 41 20 50 49 43 |". .O LOAD A PIC| 000012D0: 54 55 52 45 20 54 59 50 45 20 3A 00 09 1B C8 05 |TURE TYPE :.....| 000012E0: 99 22 11 20 4C 4F 41 44 20 22 C7 28 33 34 29 22 |.". LOAD ".(34)"| 000012F0: 50 49 43 54 55 52 45 20 4E 41 4D 45 22 C7 28 33 |PICTURE NAME".(3| 00001300: 34 29 22 20 2C 38 2C 31 22 00 19 1B D2 05 8D 31 |4)" ,8,1"......1| 00001310: 37 34 30 3A 8D 31 37 31 30 00 43 1B DC 05 99 22 |740:.1710.C...."| 00001320: 11 20 CC 41 53 54 20 42 55 54 20 4E 4F 54 20 4C |. .AST BUT NOT L| 00001330: 45 41 53 54 20 49 53 20 49 4E 43 4C 55 44 45 44 |EAST IS INCLUDED| 00001340: 20 41 22 00 6E 1B E6 05 99 22 11 20 46 55 4E 43 | A".n....". FUNC| 00001350: 54 49 4F 4E 20 57 48 49 43 48 20 49 53 20 55 53 |TION WHICH IS US| 00001360: 45 44 20 54 4F 20 54 45 53 54 20 41 20 22 00 9B |ED TO TEST A "..| 00001370: 1B F0 05 99 22 11 20 50 49 58 45 4C 20 54 4F 20 |....". PIXEL TO | 00001380: 53 45 45 20 49 46 20 49 54 20 49 53 20 54 55 52 |SEE IF IT IS TUR| 00001390: 4E 45 44 20 4F 4E 20 4F 52 20 22 00 C1 1B FA 05 |NED ON OR ".....| 000013A0: 99 22 11 20 4F 46 46 2E 20 20 C9 54 20 49 53 20 |.". OFF. .T IS | 000013B0: 55 53 45 44 20 41 53 20 46 4F 4C 4C 4F 57 53 20 |USED AS FOLLOWS | 000013C0: 3A 00 E2 1B 04 06 99 22 11 20 20 20 20 20 20 20 |:......". | 000013D0: 20 20 20 20 56 41 52 20 3D 20 55 53 52 28 58 29 | VAR = USR(X)| 000013E0: 2C 59 00 FE 1B 0E 06 99 22 11 20 20 20 20 20 20 |,Y......". | 000013F0: 20 20 20 20 20 20 20 20 20 20 20 4F 52 22 00 27 | OR".'| 00001400: 1C 18 06 99 22 11 20 20 20 20 20 20 20 49 46 20 |....". IF | 00001410: 55 53 52 28 58 29 2C 59 20 54 48 45 4E 20 27 41 |USR(X),Y THEN 'A| 00001420: 43 54 49 4F 4E 27 22 00 55 1C 22 06 99 22 11 20 |CTION'".U."..". | 00001430: C9 54 20 52 45 54 55 52 4E 53 20 41 20 56 41 4C |.T RETURNS A VAL| 00001440: 55 45 20 4F 46 20 30 20 49 46 20 54 48 45 20 50 |UE OF 0 IF THE P| 00001450: 49 58 45 4C 22 00 76 1C 2C 06 99 22 11 20 49 53 |IXEL".v.,..". IS| 00001460: 20 4F 46 46 2C 20 2D 31 20 49 46 20 49 54 20 49 | OFF, -1 IF IT I| 00001470: 53 20 4F 4E 2E 22 00 96 1C 36 06 8D 31 37 34 30 |S ON."...6..1740| 00001480: 3A 54 24 B2 22 C3 4F 4E 43 4C 55 53 49 4F 4E 22 |:T$.".ONCLUSION"| 00001490: 3A 8D 31 37 31 30 00 C4 1C 40 06 99 22 11 11 20 |:.1710...@..".. | 000014A0: 20 20 C7 4F 4F 44 20 4C 55 43 4B 20 57 49 54 48 | .OOD LUCK WITH| 000014B0: 20 59 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 41 | YOUR OWN PROGRA| 000014C0: 4D 53 2E 22 00 EC 1C 4A 06 99 22 11 20 D4 48 45 |MS."...J..". .HE| 000014D0: 52 45 20 49 53 20 41 20 53 48 4F 52 54 20 44 45 |RE IS A SHORT DE| 000014E0: 4D 4F 4E 53 54 52 41 54 49 4F 4E 22 00 16 1D 54 |MONSTRATION"...T| 000014F0: 06 99 22 11 20 50 52 4F 47 52 41 4D 2E 20 20 C9 |..". PROGRAM. .| 00001500: 46 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 |F YOU WISH TO SE| 00001510: 45 20 49 54 2C 22 00 42 1D 5E 06 99 22 11 20 50 |E IT,".B.^..". P| 00001520: 52 45 53 53 20 27 52 27 20 49 4E 53 54 45 41 44 |RESS 'R' INSTEAD| 00001530: 20 4F 46 20 54 48 45 20 53 50 41 43 45 20 42 41 | OF THE SPACE BA| 00001540: 52 22 00 82 1D 68 06 99 22 13 11 11 11 11 11 11 |R"...h..".......| 00001550: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001560: 20 20 20 20 20 20 AF AF AF AF AF AF AF AF AF AF | ..........| 00001570: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00001580: AF 22 00 AC 1D 72 06 99 22 20 20 20 20 20 20 12 |."...r.." .| 00001590: D0 52 45 53 53 20 D3 50 41 43 45 20 C2 41 52 20 |.RESS .PACE .AR | 000015A0: D4 4F 20 C3 4F 4E 54 49 4E 55 45 22 00 B7 1D 7C |.O .ONTINUE"...|| 000015B0: 06 97 31 39 38 2C 30 00 CB 1D 86 06 A1 41 24 3A |..198,0......A$:| 000015C0: 8B 41 24 B2 22 22 A7 31 36 37 30 00 DC 1D 90 06 |.A$."".1670.....| 000015D0: 8B 41 24 B2 22 52 22 A7 31 38 30 30 00 EE 1D 9A |.A$."R".1800....| 000015E0: 06 8B 41 24 B3 B1 22 20 22 A7 31 36 37 30 00 FB |..A$.." ".1670..| 000015F0: 1D A4 06 99 22 93 09 22 3B 3A 80 00 2C 1E AE 06 |...."..";:..,...| 00001600: 99 22 93 11 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.".. -----------| 00001610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 40 1E B8 |-----------".@..| 00001630: 06 99 22 13 20 22 3B 54 24 3B 22 13 11 11 22 3B |..". ";T$;"...";| 00001640: 00 46 1E C2 06 8E 00 51 1E CC 06 97 31 39 38 2C |.F.....Q....198,| 00001650: 30 00 91 1E D6 06 99 22 13 11 11 11 11 11 11 11 |0......"........| 00001660: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... | 00001670: 20 20 20 20 20 AF AF AF AF AF AF AF AF AF AF AF | ...........| 00001680: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00001690: 22 00 BB 1E E0 06 99 22 20 20 20 20 20 20 12 D0 |"......" ..| 000016A0: 52 45 53 53 20 D3 50 41 43 45 20 C2 41 52 20 D4 |RESS .PACE .AR .| 000016B0: 4F 20 C3 4F 4E 54 49 4E 55 45 22 00 CF 1E EA 06 |O .ONTINUE".....| 000016C0: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 37 37 30 00 |.A$:.A$."".1770.| 000016D0: E1 1E F4 06 8B 41 24 B3 B1 22 20 22 A7 31 37 37 |.....A$.." ".177| 000016E0: 30 00 E7 1E FE 06 8E 00 FF 1E 08 07 99 22 93 22 |0............"."| 000016F0: 3B 3A 97 36 34 36 2C C2 28 35 33 32 38 31 29 00 |;:.646,.(53281).| 00001700: 2F 1F 12 07 99 22 93 11 11 11 4C 4F 41 44 22 C7 |/...."....LOAD".| 00001710: 28 33 34 29 22 48 52 2E 47 52 41 50 48 49 43 53 |(34)"HR.GRAPHICS| 00001720: 20 44 45 4D 4F 22 C7 28 33 34 29 22 2C 38 22 00 | DEMO".(34)",8".| 00001730: 49 1F 1C 07 99 22 11 11 11 11 52 55 4E 91 91 91 |I...."....RUN...| 00001740: 91 91 91 91 91 91 91 91 22 00 64 1F 26 07 97 31 |........".d.&..1| 00001750: 39 38 2C 34 3A 97 36 33 31 2C 31 33 3A 97 36 33 |98,4:.631,13:.63| 00001760: 32 2C 31 33 00 7A 1F 30 07 97 36 33 33 2C 31 34 |2,13.z.0..633,14| 00001770: 37 3A 97 36 33 34 2C 31 35 35 00 80 1F 3A 07 80 |7:.634,155...:..| 00001780: 00 00 00 |... |
.......".";:.A.0..".";.<....53280,14:.53
281,6:."...";G(155);.J...."... LOADIN
G COMMODORE'S EDUCATIONAL"...(..".
GRAPHICS SOFTWARE"...2..".
FOR THE".P.<..". COMMO
DORE 64"...F..".. BY"...
P..".. BRIAN MUNSHAW".,.Z..".
AND".O.D..". P
ETER RAGSDALE".U.N.."... .....
............"...X.." .ONE MOMEN
T PLEASE"...}.A.1.J....B(50183)..76.."HR
.GRAPHICS OBJ",8,1.T....1740.....T$."COM
MANDS":.1710... .." THESE ARE THE COMM
ANDS AVAILABLE FOR".*....". USE :".D....
". INITALL".[...." HIR
ES".R.H.." RESET"...R.."
COLOUR"......" CLS"......"
PLOT".K...." LINE".....
." BOX"......" CIRCLE"
......" BLOCK".(...."
FILLBOX".>.".." EDGE".T.,.."
PIC "...6..". MORE ON THE HOW-T
O WILL FOLLOW." :.1740...@.T$."GETTING S
TARTED":.1710.O.J.." ALL COMMANDS ARE
INVOKED BY THE"...T..". 'SYS' COMMAND.
ALL PROGRAMS MUST BE".).^..". STARTED BY
ASSIGNING VARIABLES FOR".K.H..". THE CO
MMANDS, AS SHOWN :".J.R.." INITA
LL = 50183...|.." BLOCK = 5019
2......" FILLBOX = 50195.G...."
COLOUR = 50198......" P
LOT = 50201......" EDGE =
50204.$...." BACK = 50207.C..
.." CIRCLE = 50210.B.B.."
LINE = 50213...L.." BOX
= 50216. .V.." HIRES = 50219
......" CLS = 50222......"
PIC = 50186......1740:T$."SYN
TAX":.1710......". SYS INITALL,PC,SC,BC.
B....".. THIS IS USED TO INVOKE BIT MA
P".O....". MODE, CLEARS THE HI-RES SCREE
N, AND"......". WASHES THE COLOUR SCREEN
TO THE IN"...&..". USE COLOURS.".K.0.."
. THE PARAMETERS :"...:..". PC : PENCOLO
UR...D..". SC : SCREEN COLOUR...N..". BC
: BORDER COLOUR.(.X..1740:.1710.A.B..".
SYS COLOUR,PC,SC.P.L..". THIS COMMAND I
S USED TO CHANGE THE IN"...V..". USE COL
OURS OF THE SCREEN."......". (PARAMETERS
AS BEFORE).C....1740:.1710.W....". SYS
EDGE,BC......". THIS HAS THE SAME EFFECT
AS "......". POKE 53280,BC.#....1740:.1
710.4....". SYS BACK.`.F..". THIS COMMAN
D WILL TAKE YOU BACK TO".T.P..". TEXT MO
DE."...Z..1740:.1710......". SYS HIRES,B
C.E....". THIS COMMAND WILL TAKE YOU BAC
K TO"......". HI-RES. IT DOES NOT ALTER
THE SCREEN". ....". ENABLING YOU RETURN
TO HI-RES FROM".I....". TEXT. YOU ALS
O SPECIFY BORDER".Z....". COLOUR.".J. ..
1740:.1710...*..". SYS CLS,PC,SC"...4.."
. THIS COMMAND ERASES THE HI-RES SCREEN.
"...>..". IT ALSO COLOURS THE NEXT SCREE
N TO"...H..". THE COLOURS SPECIFIED BY T
HE PARA-"...R..". METERS.".*.\..1740:.17
10.B.F..". SYS PLOT,X,Y,PT.O.P..". WITH
THIS COMMAND YOU MAY ALTER THE"...Z..".
CURRENT STATE OF THE PIXEL AT X,Y.".....
.". THE PARAMETERS :.U....". X , Y : TH
E COORDINATES......" PT : PLOT TYPE.
"......". THE PLOT TYPES ARE :.8.
...". 0 : TURN PIXEL OFF..Z...."
1 : TURN PIXEL ON."......"
2 : COMPLEMENT THE PIXEL."...J.."
(I.E., IF IT'S ON TURN IT OFF,".Y.T.."
IF IT'S OFF TURN IT ON.)......1
740:.1710......". SYS LINE,X1,Y1,X2,Y2,P
T.8....". THIS COMMAND DRAWS A LINE BETW
EEN THE".D....". POINTS X1,Y1 AND X2,Y2.
AGAIN YOU"......". MAY CHOOSE THE PLOT
TYPE. THE COORD-"......". INATE SYSTEM
HAS 0,0 IN THE UPPER"......". LEFT AND
319,199 IN THE LOWER RIGHT."...$..1740:.
1710......". SYS BOX,X1,Y1,X2,Y2,PT.G.8.
.". THIS DRAWS A BOX GIVEN BY X1,Y1 AS".
R.B..". THE UPPER LEFT CORNER OF THE BOX
,"...L..". AND X2,Y2 THE LOWER RIGHT COR
NER."...V..1740:.1710.P.`..". SYS CIRCLE
,X1,Y1,XR,YR,PT"...J..". THIS IS A REALL
Y AN ELLIPSE DRAWING".+.T..". COMMAND.
BECAUSE OF THE NON UNIFORM".V.~..". DISP
LAY (320 BY 200), A LOGICALLY"......". T
RUE CIRCLE LOOKS LIKE AN ELLIPSE."......
". TO COMPENSATE, THIS COMMAND ALLOWS"..
....". YOU TO SPECIFY THE X AND........
Y RADIUS."......". TO OBTAIN A CIRCLE, S
CALE THE RADIUS".:....". IN THE Y AXIS B
Y THREE QUARTERS.".A....". (OR INCREASE
X BY FOUR THIRDS).Q.D..1740:.1710...N.."
. SYS FILLBOX,X1,Y1,X2,Y2,PT.B.X..". THE
SAME APPLIES HERE AS FOR THE BOX"......
". COMMAND, EXCEPT HERE THE RESULT IS"..
....". NOT AN OUTLINED RECTANGLE, BUT A"
.-....". FILLED BOX.".=....1740:.1710.C.
...". SYS BLOCK,X1,Y1,X2,Y2,LPC,LSC.....
.". WITH THIS COMMAND YOU MAY CHANGE"...
...". THE IN USE COLOURS IN A LOCAL BLOC
K."...(..". THE PARAMETERS INDICATE A RE
CTANGULAR"...2..". AREA MUCH THE SAME AS
WITH BOX, BUT".D.<..". THE RESOLUTION I
S LOWER. THE RANGE".P.F..". IS 0 TO 40
IN THE X AXIS, AND 0 TO"...P..". 25 IN T
HE Y AXIS."...Z..1740:.1710...D..". SYS
PIC,FN...N..". WITH THIS COMMAND, YOU MA
Y SAVE YOUR"...X.. ". HI-RES CREATIONS T
O DISK. FIRST YOU".7....". MUST OPEN UP
YOUR OWN FILE TO DISK".Q....". THEN SYS
PIC,FN."._....". E.G.,... ..". 100 OPEN
1,8,1,";G(34);"@0:TEST PICTURE";G(34)...
..." 110 SYS PIC,1......1740:.1710......
". TO LOAD A PICTURE TYPE :...H..". LOAD
"G(34)"PICTURE NAME"G(34)" ,8,1"...R..1
740:.1710.C....". LAST BUT NOT LEAST IS
INCLUDED A".N....". FUNCTION WHICH IS US
ED TO TEST A "......". PIXEL TO SEE IF I
T IS TURNED ON OR ".A....". OFF. IT IS
USED AS FOLLOWS :......". VAR
= USR(X),Y......". OR".'
....". IF USR(X),Y THEN 'ACTION'".
U."..". IT RETURNS A VALUE OF 0 IF THE P
IXEL".V.,..". IS OFF, -1 IF IT IS ON."..
.6..1740:T$."CONCLUSION":.1710.D.@.."..
GOOD LUCK WITH YOUR OWN PROGRAMS."...J
..". THERE IS A SHORT DEMONSTRATION"...T
..". PROGRAM. IF YOU WISH TO SEE IT,".B
.^..". PRESS 'R' INSTEAD OF THE SPACE BA
R"...H.."....................... ..
........................."...R.." .
PRESS SPACE BAR TO CONTINUE"...|..198,0.
K....A$:.A$."".1670......A$."R".1800....
..A$.." ".1670......"..";:..,....".. ---
-----------------------------------".@..
..". ";T$;"...";.F.B...Q.L..198,0...V.."
....................... ...........
................"......" .PRESS SPA
CE BAR TO CONTINUE".O....A$:.A$."".1770.
.....A$.." ".1770............".";:.646,B
(53281)./...."....LOAD"G(34)"HR.GRAPHICS
DEMO"G(34)",8".I...."....RUN...........
".D.&..198,4:.631,13:.632,13.Z.0..633,14
7:.634,155...:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL