HIRES.SRC
FILE INFORMATION
FILENAME(S): HIRES.SRC
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-12-01 01:08:05
APPEARS ON: 1 disk(s)
FILE HASH
b11fea1f0bd9c06630c2c885ce32503fcfd32fe3a3c81e337ae08247aaaaae92
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0107A | HIRES.SRC | PRG | hedning, Kaevlinge | 30 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 AA 0A 00 47 45 54 49 4E 20 C0 24 46 46 45 |.....GETIN .$FFE| 00000010: 34 00 14 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |4...;***********| 00000020: 2A 2A 2A 2A 2A 2A 18 2A 2A 2A 2A 2A 2A 2A 2A 00 |******.********.| 00000030: 1E 00 3B 00 28 00 3B 48 49 52 45 53 20 52 4F 55 |..;.(.;HIRES ROU| 00000040: 54 49 4E 45 53 00 32 00 3B 00 3C 00 3B 2A 2A 2A |TINES.2.;.<.;***| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 00 46 00 3B 00 50 00 48 53 |*******.F.;.P.HS| 00000070: 43 52 4E 20 C0 38 31 39 32 00 5A 00 48 49 4E 44 |CRN .8192.Z.HIND| 00000080: 31 20 C0 38 31 39 32 2D 34 30 30 00 64 00 48 49 |1 .8192-400.d.HI| 00000090: 4E 44 32 20 C0 38 31 39 32 2D 32 30 30 00 6E 00 |ND2 .8192-200.n.| 000000A0: 4D 45 4D 4C 4F 43 20 C0 35 33 32 37 32 00 78 00 |MEMLOC .53272.x.| 000000B0: 56 49 43 43 4F 4E 20 C0 35 33 32 36 35 00 82 00 |VICCON .53265...| 000000C0: 56 43 32 20 C0 35 33 32 37 30 00 8C 00 43 4F 4C |VC2 .53270...COL| 000000D0: 4D 41 50 20 C0 31 30 32 34 00 96 00 43 4F 4C 45 |MAP .1024...COLE| 000000E0: 4E 44 20 C0 43 4F 4C 4D 41 50 2B 31 30 30 30 00 |ND .COLMAP+1000.| 000000F0: A0 00 3B 00 AA 00 3B 50 41 47 45 20 5A 45 52 4F |..;...;PAGE ZERO| 00000100: 00 B4 00 3B 00 BE 00 57 52 4B 31 20 C0 24 32 00 |...;...WRK1 .$2.| 00000110: C8 00 57 52 4B 32 20 C0 24 36 43 00 D2 00 45 4E |..WRK2 .$6C...EN| 00000120: 44 58 20 C0 31 34 00 DC 00 49 4E 44 45 58 31 20 |DX .14...INDEX1 | 00000130: C0 24 36 41 00 E6 00 59 44 49 52 20 C0 24 36 44 |.$6A...YDIR .$6D| 00000140: 00 F0 00 59 44 49 46 46 20 C0 24 36 45 00 FA 00 |...YDIFF .$6E...| 00000150: 58 44 49 46 46 20 C0 24 36 46 00 04 01 53 54 45 |XDIFF .$6F...STE| 00000160: 50 20 C0 24 36 35 00 0E 01 50 4C 4F 54 49 4E 44 |P .$65...PLOTIND| 00000170: 20 C0 32 35 34 00 18 01 58 4C 4F 20 C0 32 35 31 | .254...XLO .251| 00000180: 00 22 01 58 48 49 20 C0 32 35 32 00 2C 01 59 4C |.".XHI .252.,.YL| 00000190: 4F 20 C0 32 35 33 00 36 01 45 4E 44 59 20 C0 32 |O .253.6.ENDY .2| 000001A0: 35 35 00 40 01 3B 00 4A 01 B8 24 43 30 30 30 00 |55.@.;.J..$C000.| 000001B0: 4B 01 BE 24 39 30 30 30 00 54 01 95 53 45 54 48 |K..$9000.T..SETH| 000001C0: 53 54 00 5E 01 95 43 54 58 53 54 00 68 01 95 43 |ST.^..CTXST.h..C| 000001D0: 4C 48 53 54 00 72 01 95 43 43 4C 52 53 54 00 7C |LHST.r..CCLRST.|| 000001E0: 01 95 50 4C 4F 54 53 54 00 86 01 95 50 4C 43 53 |..PLOTST....PLCS| 000001F0: 54 00 90 01 95 50 48 43 53 54 00 9A 01 95 4C 44 |T....PHCST....LD| 00000200: 52 41 57 53 54 00 A4 01 95 48 4C 49 4E 53 54 00 |RAWST....HLINST.| 00000210: AE 01 95 56 4C 49 4E 53 54 00 B8 01 95 42 44 52 |...VLINST....BDR| 00000220: 41 57 53 54 00 C2 01 9F 00 CC 01 3B 00 D6 01 3B |AWST.......;...;| 00000230: 53 45 54 2D 55 50 20 48 49 52 45 53 00 E0 01 3B |SET-UP HIRES...;| 00000240: 00 EA 01 53 45 54 48 53 54 20 85 4D 45 4D 4C 4F |...SETHST .MEMLO| 00000250: 43 00 F4 01 80 23 38 00 FE 01 84 4D 45 4D 4C 4F |C....#8....MEMLO| 00000260: 43 00 08 02 85 56 49 43 43 4F 4E 00 12 02 80 23 |C....VICCON....#| 00000270: 33 32 00 1C 02 84 56 49 43 43 4F 4E 00 26 02 85 |32....VICCON.&..| 00000280: 23 24 30 37 00 30 02 84 57 52 4B 31 00 3A 02 96 |#$07.0..WRK1.:..| 00000290: 43 43 4C 52 53 54 00 44 02 85 23 30 00 4E 02 84 |CCLRST.D..#0.N..| 000002A0: 57 52 4B 31 00 58 02 96 43 4C 48 53 54 00 62 02 |WRK1.X..CLHST.b.| 000002B0: 46 52 49 47 20 96 53 49 4E 44 53 54 00 6C 02 9F |FRIG .SINDST.l..| 000002C0: 00 76 02 3B 00 80 02 3B 43 4C 45 41 52 20 43 4F |.v.;...;CLEAR CO| 000002D0: 4C 4D 41 50 00 8A 02 3B 00 94 02 43 43 4C 52 53 |LMAP...;...CCLRS| 000002E0: 54 20 85 23 43 4F 4C 4D 41 50 00 9E 02 84 49 4E |T .#COLMAP....IN| 000002F0: 44 45 58 31 00 A8 02 85 5E 43 4F 4C 4D 41 50 00 |DEX1....^COLMAP.| 00000300: B2 02 84 49 4E 44 45 58 31 2B 31 00 BC 02 92 23 |...INDEX1+1....#| 00000310: 30 00 C6 02 43 43 4C 52 4C 50 20 85 57 52 4B 31 |0...CCLRLP .WRK1| 00000320: 00 D0 02 84 28 49 4E 44 45 58 31 E1 00 DA 02 8F |....(INDEX1.....| 00000330: 49 4E 44 45 58 31 00 E4 02 B6 43 43 4C 52 53 4B |INDEX1....CCLRSK| 00000340: 00 EE 02 8F 49 4E 44 45 58 31 2B 31 00 F8 02 43 |....INDEX1+1...C| 00000350: 43 4C 52 53 4B 20 85 49 4E 44 45 58 31 2B 31 00 |CLRSK .INDEX1+1.| 00000360: 02 03 86 5E 43 4F 4C 45 4E 44 00 0C 03 B6 43 43 |...^COLEND....CC| 00000370: 4C 52 4C 50 00 16 03 85 49 4E 44 45 58 31 00 20 |LRLP....INDEX1. | 00000380: 03 86 23 43 4F 4C 45 4E 44 00 2A 03 B6 43 43 4C |..#COLEND.*..CCL| 00000390: 52 4C 50 00 34 03 9F 00 3E 03 3B 00 48 03 3B 48 |RLP.4...>.;.H.;H| 000003A0: 49 2D 52 45 53 20 20 41 44 44 52 45 53 53 00 52 |I-RES ADDRESS.R| 000003B0: 03 3B 00 5C 03 48 41 44 44 53 54 20 85 59 4C 4F |.;.\.HADDST .YLO| 000003C0: 00 66 03 A7 00 70 03 85 48 49 4E 44 31 E2 00 7A |.f...p..HIND1..z| 000003D0: 03 84 49 4E 44 45 58 31 2B 31 00 84 03 85 48 49 |..INDEX1+1....HI| 000003E0: 4E 44 32 E2 00 8E 03 84 49 4E 44 45 58 31 00 98 |ND2.....INDEX1..| 000003F0: 03 85 58 4C 4F 00 A2 03 9D 00 AC 03 81 23 37 00 |..XLO........#7.| 00000400: B6 03 84 57 52 4B 32 00 C0 03 A0 00 CA 03 81 23 |...WRK2........#| 00000410: 24 46 38 00 D4 03 99 00 DE 03 83 49 4E 44 45 58 |$F8........INDEX| 00000420: 31 00 E8 03 84 49 4E 44 45 58 31 00 F2 03 85 58 |1....INDEX1....X| 00000430: 48 49 00 FC 03 83 49 4E 44 45 58 31 2B 31 00 06 |HI....INDEX1+1..| 00000440: 04 84 49 4E 44 45 58 31 2B 31 00 10 04 48 41 44 |..INDEX1+1...HAD| 00000450: 44 45 4E 44 20 9F 00 1A 04 3B 00 24 04 3B 50 4C |DEND ....;.$.;PL| 00000460: 4F 54 20 41 20 50 4F 49 4E 54 00 2E 04 3B 00 38 |OT A POINT...;.8| 00000470: 04 50 4C 4F 54 53 54 20 96 48 41 44 44 53 54 00 |.PLOTST .HADDST.| 00000480: 42 04 85 50 4C 4F 54 49 4E 44 00 4C 04 B6 50 4C |B..PLOTIND.L..PL| 00000490: 4F 54 31 00 56 04 85 23 24 37 46 00 60 04 B6 50 |OT1.V..#$7F.`..P| 000004A0: 4C 4F 54 47 42 00 6A 04 50 4C 4F 54 31 20 85 23 |LOTGB.j.PLOT1 .#| 000004B0: 24 38 30 00 74 04 50 4C 4F 54 47 42 20 8D 57 52 |$80.t.PLOTGB .WR| 000004C0: 4B 32 00 7E 04 48 52 50 4C 50 20 94 23 30 00 88 |K2.~.HRPLP .#0..| 000004D0: 04 B7 48 52 50 50 4C 00 92 04 8A 41 00 9C 04 AB |..HRPPL....A....| 000004E0: 00 A6 04 B6 48 52 50 4C 50 00 B0 04 48 52 50 50 |....HRPLP...HRPP| 000004F0: 4C 20 84 57 52 4B 32 00 BA 04 92 23 30 00 C4 04 |L .WRK2....#0...| 00000500: 85 50 4C 4F 54 49 4E 44 00 CE 04 86 23 30 00 D8 |.PLOTIND....#0..| 00000510: 04 B7 50 4C 4F 54 4E 4F 00 E2 04 B0 50 4C 4F 54 |..PLOTNO....PLOT| 00000520: 59 45 53 00 EC 04 B1 50 4C 4F 54 46 4C 49 50 00 |YES....PLOTFLIP.| 00000530: F6 04 50 4C 4F 54 4E 4F 20 85 28 49 4E 44 45 58 |..PLOTNO .(INDEX| 00000540: 31 E1 00 00 05 81 57 52 4B 32 00 0A 05 84 28 49 |1.....WRK2....(I| 00000550: 4E 44 45 58 31 E1 00 14 05 99 00 1E 05 B4 50 4C |NDEX1.........PL| 00000560: 4F 54 45 4E 44 00 28 05 50 4C 4F 54 59 45 53 20 |OTEND.(.PLOTYES | 00000570: 85 28 49 4E 44 45 58 31 E1 00 32 05 80 57 52 4B |.(INDEX1..2..WRK| 00000580: 32 00 3C 05 84 28 49 4E 44 45 58 31 E1 00 46 05 |2.<..(INDEX1..F.| 00000590: 99 00 50 05 B4 50 4C 4F 54 45 4E 44 00 5A 05 50 |..P..PLOTEND.Z.P| 000005A0: 4C 4F 54 46 4C 49 50 20 85 28 49 4E 44 45 58 31 |LOTFLIP .(INDEX1| 000005B0: E1 00 64 05 82 57 52 4B 32 00 6E 05 84 28 49 4E |..d..WRK2.n..(IN| 000005C0: 44 45 58 31 E1 00 78 05 50 4C 4F 54 45 4E 44 20 |DEX1..x.PLOTEND | 000005D0: 9F 00 82 05 3B 00 8C 05 3B 43 4C 45 41 52 20 20 |....;...;CLEAR | 000005E0: 20 20 48 49 52 45 53 00 96 05 3B 00 A0 05 43 4C | HIRES...;...CL| 000005F0: 48 53 54 20 85 23 48 53 43 52 4E 00 AA 05 84 49 |HST .#HSCRN....I| 00000600: 4E 44 45 58 31 00 B4 05 85 5E 48 53 43 52 4E 00 |NDEX1....^HSCRN.| 00000610: BE 05 84 49 4E 44 45 58 31 2B 31 00 C8 05 8D 23 |...INDEX1+1....#| 00000620: 33 32 00 D2 05 85 57 52 4B 31 00 DC 05 92 23 30 |32....WRK1....#0| 00000630: 00 E6 05 43 4C 48 4C 50 20 84 28 49 4E 44 45 58 |...CLHLP .(INDEX| 00000640: 31 E1 00 F0 05 AA 00 FA 05 B6 43 4C 48 4C 50 00 |1.........CLHLP.| 00000650: 04 06 AB 00 0E 06 B7 43 4C 48 45 4E 44 00 18 06 |.......CLHEND...| 00000660: 8F 49 4E 44 45 58 31 2B 31 00 22 06 B6 43 4C 48 |.INDEX1+1."..CLH| 00000670: 4C 50 00 2C 06 43 4C 48 45 4E 44 20 9F 00 36 06 |LP.,.CLHEND ..6.| 00000680: 3B 00 40 06 3B 43 48 41 4E 47 45 20 54 4F 20 54 |;.@.;CHANGE TO T| 00000690: 45 58 54 20 4D 4F 44 45 00 4A 06 3B 00 54 06 43 |EXT MODE.J.;.T.C| 000006A0: 54 58 53 54 20 85 23 33 32 00 5E 06 84 57 52 4B |TXST .#32.^..WRK| 000006B0: 31 00 68 06 96 43 4C 48 53 54 00 72 06 85 56 49 |1.h..CLHST.r..VI| 000006C0: 43 43 4F 4E 00 7C 06 81 23 32 32 33 00 86 06 84 |CCON.|..#223....| 000006D0: 56 49 43 43 4F 4E 00 90 06 85 56 43 32 00 9A 06 |VICCON....VC2...| 000006E0: 81 23 32 33 39 00 A4 06 84 56 43 32 00 AE 06 85 |.#239....VC2....| 000006F0: 4D 45 4D 4C 4F 43 00 B8 06 81 23 24 46 37 00 C2 |MEMLOC....#$F7..| 00000700: 06 84 4D 45 4D 4C 4F 43 00 CC 06 9F 00 D6 06 3B |..MEMLOC.......;| 00000710: 00 E0 06 3B 53 45 54 20 55 50 20 49 4E 44 45 58 |...;SET UP INDEX| 00000720: 00 EA 06 3B 00 F4 06 53 49 4E 44 53 54 20 85 23 |...;...SINDST .#| 00000730: 48 53 43 52 4E 00 FE 06 84 49 4E 44 45 58 31 00 |HSCRN....INDEX1.| 00000740: 08 07 85 5E 48 53 43 52 4E 00 12 07 84 49 4E 44 |...^HSCRN....IND| 00000750: 45 58 31 2B 31 00 1C 07 8D 23 30 00 26 07 53 49 |EX1+1....#0.&.SI| 00000760: 4E 44 4C 50 20 85 49 4E 44 45 58 31 2B 31 00 30 |NDLP .INDEX1+1.0| 00000770: 07 84 48 49 4E 44 31 E2 00 3A 07 85 49 4E 44 45 |..HIND1..:..INDE| 00000780: 58 31 00 44 07 84 48 49 4E 44 32 E2 00 4E 07 AD |X1.D..HIND2..N..| 00000790: 00 58 07 A3 00 62 07 81 23 24 30 37 00 6C 07 B7 |.X...b..#$07.l..| 000007A0: 53 49 4E 44 4A 00 76 07 8F 49 4E 44 45 58 31 00 |SINDJ.v..INDEX1.| 000007B0: 80 07 B6 53 49 4E 44 53 4B 00 8A 07 8F 49 4E 44 |...SINDSK....IND| 000007C0: 45 58 31 2B 31 00 94 07 B6 53 49 4E 44 53 4B 00 |EX1+1....SINDSK.| 000007D0: 9E 07 53 49 4E 44 4A 20 85 49 4E 44 45 58 31 00 |..SINDJ .INDEX1.| 000007E0: A8 07 81 23 24 46 38 00 B2 07 99 00 BC 07 83 23 |...#$F8........#| 000007F0: 33 32 30 00 C6 07 84 49 4E 44 45 58 31 00 D0 07 |320....INDEX1...| 00000800: 85 49 4E 44 45 58 31 2B 31 00 DA 07 83 5E 33 32 |.INDEX1+1....^32| 00000810: 30 00 E4 07 84 49 4E 44 45 58 31 2B 31 00 EE 07 |0....INDEX1+1...| 00000820: 53 49 4E 44 53 4B 20 94 23 32 30 30 00 F8 07 B6 |SINDSK .#200....| 00000830: 53 49 4E 44 4C 50 00 02 08 9F 00 0C 08 3B 00 16 |SINDLP.......;..| 00000840: 08 3B 43 4F 4C 4F 55 52 20 20 20 20 4D 41 50 20 |.;COLOUR MAP | 00000850: 41 44 44 52 45 53 53 00 20 08 3B 00 2A 08 43 4F |ADDRESS. .;.*.CO| 00000860: 4C 41 53 54 20 85 23 30 00 34 08 84 49 4E 44 45 |LAST .#0.4..INDE| 00000870: 58 31 2B 31 00 3E 08 85 59 4C 4F 00 48 08 81 23 |X1+1.>..YLO.H..#| 00000880: 24 46 38 00 52 08 84 57 52 4B 32 00 5C 08 88 41 |$F8.R..WRK2.\..A| 00000890: 00 66 08 89 20 49 4E 44 45 58 31 2B 31 00 70 08 |.f.. INDEX1+1.p.| 000008A0: 88 41 00 7A 08 89 20 49 4E 44 45 58 31 2B 31 00 |.A.z.. INDEX1+1.| 000008B0: 84 08 99 00 8E 08 83 57 52 4B 32 00 98 08 84 49 |.......WRK2....I| 000008C0: 4E 44 45 58 31 00 A2 08 B4 43 4F 4C 53 4B 00 AC |NDEX1....COLSK..| 000008D0: 08 8F 49 4E 44 45 58 31 2B 31 00 B6 08 43 4F 4C |..INDEX1+1...COL| 000008E0: 53 4B 20 85 58 48 49 00 C0 08 84 57 52 4B 32 00 |SK .XHI....WRK2.| 000008F0: CA 08 85 58 4C 4F 00 D4 08 8A 20 57 52 4B 32 00 |...XLO.... WRK2.| 00000900: DE 08 8B 41 00 E8 08 8A 41 00 F2 08 8A 41 00 FC |...A....A....A..| 00000910: 08 99 00 06 09 83 49 4E 44 45 58 31 00 10 09 84 |......INDEX1....| 00000920: 49 4E 44 45 58 31 00 1A 09 B4 43 4F 4C 53 4B 32 |INDEX1....COLSK2| 00000930: 00 24 09 8F 49 4E 44 45 58 31 2B 31 00 2E 09 43 |.$..INDEX1+1...C| 00000940: 4F 4C 53 4B 32 20 85 49 4E 44 45 58 31 2B 31 00 |OLSK2 .INDEX1+1.| 00000950: 38 09 99 00 42 09 83 5E 43 4F 4C 4D 41 50 00 4C |8...B..^COLMAP.L| 00000960: 09 84 49 4E 44 45 58 31 2B 31 00 56 09 9F 00 60 |..INDEX1+1.V...`| 00000970: 09 3B 00 6A 09 3B 50 4C 4F 54 20 43 4F 4C 4F 55 |.;.j.;PLOT COLOU| 00000980: 52 20 53 51 55 41 52 45 00 74 09 3B 00 7E 09 50 |R SQUARE.t.;.~.P| 00000990: 4C 43 53 54 20 96 43 4F 4C 41 53 54 00 88 09 92 |LCST .COLAST....| 000009A0: 23 30 00 92 09 85 57 52 4B 31 00 9C 09 84 28 49 |#0....WRK1....(I| 000009B0: 4E 44 45 58 31 E1 00 A6 09 9F 00 B0 09 3B 00 BA |NDEX1........;..| 000009C0: 09 3B 50 4C 4F 54 20 42 4F 54 48 00 C4 09 3B 00 |.;PLOT BOTH...;.| 000009D0: CE 09 50 48 43 53 54 20 96 50 4C 4F 54 53 54 00 |..PHCST .PLOTST.| 000009E0: D8 09 96 50 4C 43 53 54 00 E2 09 9F 00 EC 09 3B |...PLCST.......;| 000009F0: 00 F6 09 3B 56 45 52 54 49 43 41 4C 20 4C 49 4E |...;VERTICAL LIN| 00000A00: 45 00 00 0A 3B 00 0A 0A 56 4C 49 4E 53 54 20 96 |E...;...VLINST .| 00000A10: 43 58 59 53 54 00 14 0A B5 56 4C 49 4E 45 4E 44 |CXYST....VLINEND| 00000A20: 00 1E 0A 85 45 4E 44 59 00 28 0A 86 23 32 30 30 |....ENDY.(..#200| 00000A30: 00 32 0A B5 56 4C 49 4E 45 4E 44 00 3C 0A 86 59 |.2..VLINEND.<..Y| 00000A40: 4C 4F 00 46 0A B7 56 4C 49 4E 45 4E 44 00 50 0A |LO.F..VLINEND.P.| 00000A50: B5 56 4C 49 4E 4C 50 00 5A 0A 9D 00 64 0A 85 59 |.VLINLP.Z...d..Y| 00000A60: 4C 4F 00 6E 0A 84 45 4E 44 59 00 78 0A A0 00 82 |LO.n..ENDY.x....| 00000A70: 0A 84 59 4C 4F 00 8C 0A 56 4C 49 4E 4C 50 20 96 |..YLO...VLINLP .| 00000A80: 50 4C 4F 54 53 54 00 96 0A 8F 59 4C 4F 00 A0 0A |PLOTST....YLO...| 00000A90: 85 59 4C 4F 00 AA 0A 86 45 4E 44 59 00 B4 0A B7 |.YLO....ENDY....| 00000AA0: 56 4C 49 4E 4C 50 00 BE 0A B4 56 4C 49 4E 4C 50 |VLINLP....VLINLP| 00000AB0: 00 C8 0A 56 4C 49 4E 45 4E 44 20 9F 00 D2 0A 3B |...VLINEND ....;| 00000AC0: 00 DC 0A 3B 48 4F 52 49 5A 4F 4E 54 41 4C 20 4C |...;HORIZONTAL L| 00000AD0: 49 4E 45 00 E6 0A 3B 00 F0 0A 48 4C 49 4E 53 54 |INE...;...HLINST| 00000AE0: 20 96 43 58 59 53 54 00 FA 0A B5 48 4C 49 4E 45 | .CXYST....HLINE| 00000AF0: 4E 44 00 04 0B 85 45 4E 44 58 2B 31 00 0E 0B B7 |ND....ENDX+1....| 00000B00: 48 4C 49 4E 4F 4B 00 18 0B 86 23 31 00 22 0B B6 |HLINOK....#1."..| 00000B10: 48 4C 49 4E 45 4E 44 00 2C 0B 85 45 4E 44 58 00 |HLINEND.,..ENDX.| 00000B20: 36 0B 86 23 36 34 00 40 0B B5 48 4C 49 4E 45 4E |6..#64.@..HLINEN| 00000B30: 44 00 4A 0B 48 4C 49 4E 4F 4B 20 85 58 48 49 00 |D.J.HLINOK .XHI.| 00000B40: 54 0B 86 45 4E 44 58 2B 31 00 5E 0B B7 48 4C 49 |T..ENDX+1.^..HLI| 00000B50: 4E 42 32 00 68 0B B4 48 4C 49 4E 4C 50 00 72 0B |NB2.h..HLINLP.r.| 00000B60: B5 48 4C 49 4E 52 45 56 00 7C 0B 48 4C 49 4E 42 |.HLINREV.|.HLINB| 00000B70: 32 20 85 58 4C 4F 00 86 0B 86 45 4E 44 58 00 90 |2 .XLO....ENDX..| 00000B80: 0B B7 48 4C 49 4E 45 4E 44 00 9A 0B B4 48 4C 49 |..HLINEND....HLI| 00000B90: 4E 4C 50 00 A4 0B 48 4C 49 4E 52 45 56 20 9D 00 |NLP...HLINREV ..| 00000BA0: AE 0B 85 45 4E 44 58 2B 31 00 B8 0B 84 58 48 49 |...ENDX+1....XHI| 00000BB0: 00 C2 0B A0 00 CC 0B 84 45 4E 44 58 2B 31 00 D6 |........ENDX+1..| 00000BC0: 0B 85 45 4E 44 58 00 E0 0B 9D 00 EA 0B 85 58 4C |..ENDX........XL| 00000BD0: 4F 00 F4 0B 84 45 4E 44 58 00 FE 0B A0 00 08 0C |O....ENDX.......| 00000BE0: 84 58 4C 4F 00 12 0C 99 00 1C 0C 48 4C 49 4E 4C |.XLO.......HLINL| 00000BF0: 50 20 96 50 4C 4F 54 53 54 00 26 0C 8F 58 4C 4F |P .PLOTST.&..XLO| 00000C00: 00 30 0C B6 48 4C 49 4E 43 48 00 3A 0C 8F 58 48 |.0..HLINCH.:..XH| 00000C10: 49 00 44 0C 48 4C 49 4E 43 48 20 85 58 48 49 00 |I.D.HLINCH .XHI.| 00000C20: 4E 0C 86 45 4E 44 58 2B 31 00 58 0C B6 48 4C 49 |N..ENDX+1.X..HLI| 00000C30: 4E 4C 50 00 62 0C 85 58 4C 4F 00 6C 0C 86 45 4E |NLP.b..XLO.l..EN| 00000C40: 44 58 00 76 0C B7 48 4C 49 4E 4C 50 00 80 0C B4 |DX.v..HLINLP....| 00000C50: 48 4C 49 4E 4C 50 00 8A 0C 48 4C 49 4E 45 4E 44 |HLINLP...HLINEND| 00000C60: 20 9F 00 94 0C 3B 00 9E 0C 3B 44 52 41 57 20 42 | ....;...;DRAW B| 00000C70: 4F 58 00 A8 0C 3B 00 B2 0C 42 44 52 41 57 53 54 |OX...;...BDRAWST| 00000C80: 20 96 47 43 52 53 54 00 BC 0C 85 58 48 49 00 C6 | .GCRST....XHI..| 00000C90: 0C 9D 00 D0 0C 85 58 4C 4F 00 DA 0C 9D 00 E4 0C |......XLO.......| 00000CA0: 96 48 4C 49 4E 53 54 00 EE 0C A0 00 F8 0C 84 58 |.HLINST........X| 00000CB0: 4C 4F 00 02 0D A0 00 0C 0D 84 58 48 49 00 16 0D |LO........XHI...| 00000CC0: 9D 00 20 0D 85 58 4C 4F 00 2A 0D 9D 00 34 0D 85 |.. ..XLO.*...4..| 00000CD0: 59 4C 4F 00 3E 0D 9D 00 48 0D 85 45 4E 44 59 00 |YLO.>...H..ENDY.| 00000CE0: 52 0D 84 59 4C 4F 00 5C 0D 96 48 4C 49 4E 53 54 |R..YLO.\..HLINST| 00000CF0: 00 66 0D A0 00 70 0D 84 59 4C 4F 00 7A 0D A0 00 |.f...p..YLO.z...| 00000D00: 84 0D 84 58 4C 4F 00 8E 0D A0 00 98 0D 84 58 48 |...XLO........XH| 00000D10: 49 00 A2 0D 85 59 4C 4F 00 AC 0D 9D 00 B6 0D 96 |I....YLO........| 00000D20: 56 4C 49 4E 53 54 00 C0 0D A0 00 CA 0D 84 59 4C |VLINST........YL| 00000D30: 4F 00 D4 0D 85 45 4E 44 58 00 DE 0D 84 58 4C 4F |O....ENDX....XLO| 00000D40: 00 E8 0D 85 45 4E 44 58 2B 31 00 F2 0D 84 58 48 |....ENDX+1....XH| 00000D50: 49 00 FC 0D 96 56 4C 49 4E 53 54 00 06 0E 9F 00 |I....VLINST.....| 00000D60: 10 0E 3B 00 1A 0E 3B 47 45 54 20 43 4F 4F 52 44 |..;...;GET COORD| 00000D70: 53 20 49 4E 20 52 49 47 48 54 20 4F 52 44 45 52 |S IN RIGHT ORDER| 00000D80: 00 24 0E 3B 00 2E 0E 47 43 52 53 54 20 85 59 4C |.$.;...GCRST .YL| 00000D90: 4F 00 38 0E 86 45 4E 44 59 00 42 0E B4 47 43 52 |O.8..ENDY.B..GCR| 00000DA0: 53 4B 31 00 4C 0E 9D 00 56 0E 85 45 4E 44 59 00 |SK1.L...V..ENDY.| 00000DB0: 60 0E 84 59 4C 4F 00 6A 0E A0 00 74 0E 84 45 4E |`..YLO.j...t..EN| 00000DC0: 44 59 00 7E 0E 47 43 52 53 4B 31 20 85 58 48 49 |DY.~.GCRSK1 .XHI| 00000DD0: 00 88 0E 86 45 4E 44 58 2B 31 00 92 0E B7 47 43 |....ENDX+1....GC| 00000DE0: 52 42 32 00 9C 0E B4 47 43 52 45 4E 44 00 A6 0E |RB2....GCREND...| 00000DF0: B5 47 43 52 53 57 58 00 B0 0E 47 43 52 42 32 20 |.GCRSWX...GCRB2 | 00000E00: 85 58 4C 4F 00 BA 0E 86 45 4E 44 58 00 C4 0E B4 |.XLO....ENDX....| 00000E10: 47 43 52 45 4E 44 00 CE 0E 47 43 52 53 57 58 20 |GCREND...GCRSWX | 00000E20: 85 58 4C 4F 00 D8 0E 9D 00 E2 0E 85 58 48 49 00 |.XLO........XHI.| 00000E30: EC 0E 9D 00 F6 0E 85 45 4E 44 58 00 00 0F 84 58 |.......ENDX....X| 00000E40: 4C 4F 00 0A 0F 85 45 4E 44 58 2B 31 00 14 0F 84 |LO....ENDX+1....| 00000E50: 58 48 49 00 1E 0F A0 00 28 0F 84 45 4E 44 58 2B |XHI.....(..ENDX+| 00000E60: 31 00 32 0F A0 00 3C 0F 84 45 4E 44 58 00 46 0F |1.2...<..ENDX.F.| 00000E70: 47 43 52 45 4E 44 20 9F 00 50 0F 3B 00 5A 0F 3B |GCREND ..P.;.Z.;| 00000E80: 43 48 45 43 4B 20 53 54 41 52 54 20 58 26 59 20 |CHECK START X&Y | 00000E90: 4F 4E 20 20 53 43 52 45 45 4E 00 64 0F 3B 00 6E |ON SCREEN.d.;.n| 00000EA0: 0F 43 58 59 53 54 20 85 59 4C 4F 00 78 0F 86 23 |.CXYST .YLO.x..#| 00000EB0: 32 30 30 00 82 0F B5 43 58 59 4E 4F 00 8C 0F 85 |200....CXYNO....| 00000EC0: 58 48 49 00 96 0F B7 43 58 59 4F 4B 00 A0 0F 86 |XHI....CXYOK....| 00000ED0: 23 31 00 AA 0F B6 43 58 59 4E 4F 00 B4 0F 85 58 |#1....CXYNO....X| 00000EE0: 4C 4F 00 BE 0F 86 23 36 34 00 C8 0F B5 43 58 59 |LO....#64....CXY| 00000EF0: 4E 4F 00 D2 0F 43 58 59 4F 4B 20 99 00 DC 0F B4 |NO...CXYOK .....| 00000F00: 43 58 59 45 4E 44 00 E6 0F 43 58 59 4E 4F 20 9B |CXYEND...CXYNO .| 00000F10: 00 F0 0F 43 58 59 45 4E 44 20 9F 00 FA 0F 3B 00 |...CXYEND ....;.| 00000F20: 04 10 3B 43 48 45 43 4B 20 45 4E 44 20 58 26 59 |..;CHECK END X&Y| 00000F30: 20 4F 4E 20 53 43 52 45 45 4E 00 0E 10 3B 00 18 | ON SCREEN...;..| 00000F40: 10 45 58 59 53 54 20 85 45 4E 44 59 00 22 10 86 |.EXYST .ENDY."..| 00000F50: 23 32 30 30 00 2C 10 B5 45 58 59 4E 4F 00 36 10 |#200.,..EXYNO.6.| 00000F60: 85 45 4E 44 58 2B 31 00 40 10 B7 45 58 59 4F 4B |.ENDX+1.@..EXYOK| 00000F70: 00 4A 10 86 23 31 00 54 10 B6 45 58 59 4E 4F 00 |.J..#1.T..EXYNO.| 00000F80: 5E 10 85 45 4E 44 58 00 68 10 86 23 36 34 00 72 |^..ENDX.h..#64.r| 00000F90: 10 B5 45 58 59 4E 4F 00 7C 10 45 58 59 4F 4B 20 |..EXYNO.|.EXYOK | 00000FA0: 99 00 86 10 B4 45 58 59 45 4E 44 00 90 10 45 58 |.....EXYEND...EX| 00000FB0: 59 4E 4F 20 9B 00 9A 10 45 58 59 45 4E 44 20 9F |YNO ....EXYEND .| 00000FC0: 00 A4 10 3B 00 AE 10 3B 44 4F 20 4C 49 4E 45 00 |...;...;DO LINE.| 00000FD0: B8 10 3B 00 C2 10 4C 44 52 41 57 53 54 20 96 43 |..;...LDRAWST .C| 00000FE0: 58 59 53 54 00 CC 10 B4 4C 44 52 53 4B 31 00 D6 |XYST....LDRSK1..| 00000FF0: 10 9F 00 E0 10 4C 44 52 53 4B 31 20 96 45 58 59 |.....LDRSK1 .EXY| 00001000: 53 54 00 EA 10 B4 4C 44 52 53 4B 32 00 F4 10 9F |ST....LDRSK2....| 00001010: 00 FE 10 4C 44 52 53 4B 32 20 85 59 4C 4F 3B 59 |...LDRSK2 .YLO;Y| 00001020: 20 43 4F 4F 52 44 53 20 45 51 55 41 4C 3F 00 08 | COORDS EQUAL?..| 00001030: 11 86 45 4E 44 59 00 12 11 B6 4C 44 52 56 4C 49 |..ENDY....LDRVLI| 00001040: 4E 00 1C 11 85 58 48 49 00 26 11 86 45 4E 44 58 |N....XHI.&..ENDX| 00001050: 2B 31 00 30 11 B6 4C 44 52 48 4C 49 4E 00 3A 11 |+1.0..LDRHLIN.:.| 00001060: 85 58 4C 4F 00 44 11 86 45 4E 44 58 00 4E 11 B6 |.XLO.D..ENDX.N..| 00001070: 4C 44 52 48 4C 49 4E 00 58 11 9F 00 62 11 4C 44 |LDRHLIN.X...b.LD| 00001080: 52 48 4C 49 4E 20 96 48 4C 49 4E 53 54 00 6C 11 |RHLIN .HLINST.l.| 00001090: 9F 00 76 11 4C 44 52 56 4C 49 4E 20 85 58 48 49 |..v.LDRVLIN .XHI| 000010A0: 3B 58 20 43 4F 4F 52 44 53 20 45 51 55 41 4C 3F |;X COORDS EQUAL?| 000010B0: 00 80 11 86 45 4E 44 58 2B 31 00 8A 11 B6 4C 44 |....ENDX+1....LD| 000010C0: 52 4C 49 4E 00 94 11 85 58 4C 4F 00 9E 11 86 45 |RLIN....XLO....E| 000010D0: 4E 44 58 00 A8 11 B6 4C 44 52 4C 49 4E 00 B2 11 |NDX....LDRLIN...| 000010E0: 96 56 4C 49 4E 53 54 00 BC 11 9F 00 C6 11 4C 44 |.VLINST.......LD| 000010F0: 52 4C 49 4E 20 85 58 48 49 3B 4D 41 4B 45 20 53 |RLIN .XHI;MAKE S| 00001100: 55 52 45 20 58 20 50 4F 53 00 D0 11 86 45 4E 44 |URE X POS....END| 00001110: 58 2B 31 00 DA 11 B7 4C 44 52 58 32 00 E4 11 B4 |X+1....LDRX2....| 00001120: 4C 44 52 4F 4B 00 EE 11 B5 4C 44 52 52 45 56 00 |LDROK....LDRREV.| 00001130: F8 11 4C 44 52 58 32 20 85 58 4C 4F 00 02 12 86 |..LDRX2 .XLO....| 00001140: 45 4E 44 58 00 0C 12 B4 4C 44 52 4F 4B 00 16 12 |ENDX....LDROK...| 00001150: 4C 44 52 52 45 56 20 85 59 4C 4F 3B 52 45 56 45 |LDRREV .YLO;REVE| 00001160: 52 53 45 20 43 4F 4F 52 44 53 00 20 12 9D 00 2A |RSE COORDS. ...*| 00001170: 12 85 45 4E 44 59 00 34 12 84 59 4C 4F 00 3E 12 |..ENDY.4..YLO.>.| 00001180: A0 00 48 12 84 45 4E 44 59 00 52 12 85 58 48 49 |..H..ENDY.R..XHI| 00001190: 00 5C 12 9D 00 66 12 85 58 4C 4F 00 70 12 9D 00 |.\...f..XLO.p...| 000011A0: 7A 12 85 45 4E 44 58 00 84 12 84 58 4C 4F 00 8E |z..ENDX....XLO..| 000011B0: 12 85 45 4E 44 58 2B 31 00 98 12 84 58 48 49 00 |..ENDX+1....XHI.| 000011C0: A2 12 A0 00 AC 12 84 45 4E 44 58 00 B6 12 A0 00 |.......ENDX.....| 000011D0: C0 12 84 45 4E 44 58 2B 31 00 CA 12 4C 44 52 4F |...ENDX+1...LDRO| 000011E0: 4B 20 85 59 4C 4F 3B 43 4F 4D 50 55 54 45 20 59 |K .YLO;COMPUTE Y| 000011F0: 44 49 52 00 D4 12 86 45 4E 44 59 00 DE 12 B5 4C |DIR....ENDY....L| 00001200: 44 52 59 4E 45 47 00 E8 12 85 45 4E 44 59 00 F2 |DRYNEG....ENDY..| 00001210: 12 9B 00 FC 12 87 59 4C 4F 00 06 13 84 59 44 49 |......YLO....YDI| 00001220: 46 46 00 10 13 85 23 31 00 1A 13 B6 4C 44 52 53 |FF....#1....LDRS| 00001230: 44 49 52 00 24 13 4C 44 52 59 4E 45 47 20 9B 00 |DIR.$.LDRYNEG ..| 00001240: 2E 13 85 59 4C 4F 00 38 13 87 45 4E 44 59 00 42 |...YLO.8..ENDY.B| 00001250: 13 84 59 44 49 46 46 00 4C 13 85 23 24 46 46 00 |..YDIFF.L..#$FF.| 00001260: 56 13 4C 44 52 53 44 49 52 20 84 59 44 49 52 00 |V.LDRSDIR .YDIR.| 00001270: 60 13 85 45 4E 44 58 3B 43 4F 4D 50 55 54 45 20 |`..ENDX;COMPUTE | 00001280: 58 44 49 46 46 00 6A 13 9B 00 74 13 87 58 4C 4F |XDIFF.j...t..XLO| 00001290: 00 7E 13 84 58 44 49 46 46 00 88 13 85 45 4E 44 |.~..XDIFF....END| 000012A0: 58 2B 31 00 92 13 87 58 48 49 00 9C 13 84 58 44 |X+1....XHI....XD| 000012B0: 49 46 46 2B 31 00 A6 13 B6 4C 44 52 58 44 48 00 |IFF+1....LDRXDH.| 000012C0: B0 13 85 59 44 49 46 46 3B 46 49 4E 44 20 42 49 |...YDIFF;FIND BI| 000012D0: 47 47 45 52 20 44 49 46 46 45 52 45 4E 43 45 00 |GGER DIFFERENCE.| 000012E0: BA 13 86 58 44 49 46 46 00 C4 13 B4 4C 44 52 58 |...XDIFF....LDRX| 000012F0: 44 48 00 CE 13 85 59 44 49 46 46 00 D8 13 9B 00 |DH....YDIFF.....| 00001300: E2 13 87 23 31 00 EC 13 8A 41 00 F6 13 84 53 54 |...#1....A....ST| 00001310: 45 50 00 00 14 96 50 4C 59 53 54 00 0A 14 99 00 |EP....PLYST.....| 00001320: 14 14 B4 4C 44 52 45 4E 44 00 1E 14 4C 44 52 58 |...LDREND...LDRX| 00001330: 44 48 20 85 58 44 49 46 46 2B 31 00 28 14 84 57 |DH .XDIFF+1.(..W| 00001340: 52 4B 31 00 32 14 85 58 44 49 46 46 00 3C 14 9B |RK1.2..XDIFF.<..| 00001350: 00 46 14 87 23 31 00 50 14 B5 4C 44 52 53 4B 58 |.F..#1.P..LDRSKX| 00001360: 00 5A 14 8E 57 52 4B 31 00 64 14 4C 44 52 53 4B |.Z..WRK1.d.LDRSK| 00001370: 58 20 8A 20 57 52 4B 31 00 6E 14 8B 41 00 78 14 |X . WRK1.n..A.x.| 00001380: 84 53 54 45 50 00 82 14 85 23 30 00 8C 14 84 53 |.STEP....#0....S| 00001390: 54 45 50 2B 31 00 96 14 96 50 4C 58 53 54 00 A0 |TEP+1....PLXST..| 000013A0: 14 4C 44 52 45 4E 44 20 9F 00 AA 14 3B 00 B4 14 |.LDREND ....;...| 000013B0: 3B 50 4C 4F 54 20 41 4C 4F 4E 47 20 59 20 41 58 |;PLOT ALONG Y AX| 000013C0: 49 53 00 BE 14 3B 00 C8 14 50 4C 59 53 54 20 96 |IS...;...PLYST .| 000013D0: 50 4C 4F 54 53 54 00 D2 14 85 59 4C 4F 00 DC 14 |PLOTST....YLO...| 000013E0: 86 45 4E 44 59 00 E6 14 B7 50 4C 59 45 4E 44 00 |.ENDY....PLYEND.| 000013F0: F0 14 99 00 FA 14 83 59 44 49 52 00 04 15 84 59 |.......YDIR....Y| 00001400: 4C 4F 00 0E 15 85 53 54 45 50 00 18 15 9B 00 22 |LO....STEP....."| 00001410: 15 87 58 44 49 46 46 00 2C 15 84 53 54 45 50 00 |..XDIFF.,..STEP.| 00001420: 36 15 B5 50 4C 59 53 54 00 40 15 85 53 54 45 50 |6..PLYST.@..STEP| 00001430: 00 4A 15 99 00 54 15 83 59 44 49 46 46 00 5E 15 |.J...T..YDIFF.^.| 00001440: 84 53 54 45 50 00 68 15 8F 58 4C 4F 00 72 15 B6 |.STEP.h..XLO.r..| 00001450: 50 4C 59 53 54 00 7C 15 8F 58 48 49 00 86 15 B6 |PLYST.|..XHI....| 00001460: 50 4C 59 53 54 00 90 15 50 4C 59 45 4E 44 20 9F |PLYST...PLYEND .| 00001470: 00 9A 15 3B 00 A4 15 3B 58 20 49 53 20 4C 4F 4E |...;...;X IS LON| 00001480: 47 20 41 58 49 53 00 AE 15 3B 00 B8 15 50 4C 58 |G AXIS...;...PLX| 00001490: 53 54 20 96 50 4C 4F 54 53 54 00 C2 15 85 58 48 |ST .PLOTST....XH| 000014A0: 49 00 CC 15 86 45 4E 44 58 2B 31 00 D6 15 B6 50 |I....ENDX+1....P| 000014B0: 4C 58 4F 4E 00 E0 15 85 58 4C 4F 00 EA 15 86 45 |LXON....XLO....E| 000014C0: 4E 44 58 00 F4 15 B7 50 4C 58 45 4E 44 00 FE 15 |NDX....PLXEND...| 000014D0: 50 4C 58 4F 4E 20 8F 58 4C 4F 00 08 16 B6 50 4C |PLXON .XLO....PL| 000014E0: 58 53 4B 48 00 12 16 8F 58 48 49 00 1C 16 50 4C |XSKH....XHI...PL| 000014F0: 58 53 4B 48 20 85 53 54 45 50 00 26 16 9B 00 30 |XSKH .STEP.&...0| 00001500: 16 87 59 44 49 46 46 00 3A 16 84 53 54 45 50 00 |..YDIFF.:..STEP.| 00001510: 44 16 85 53 54 45 50 2B 31 00 4E 16 87 23 30 00 |D..STEP+1.N..#0.| 00001520: 58 16 84 53 54 45 50 2B 31 00 62 16 B5 50 4C 58 |X..STEP+1.b..PLX| 00001530: 53 54 00 6C 16 85 53 54 45 50 00 76 16 99 00 80 |ST.l..STEP.v....| 00001540: 16 83 58 44 49 46 46 00 8A 16 84 53 54 45 50 00 |..XDIFF....STEP.| 00001550: 94 16 85 53 54 45 50 2B 31 00 9E 16 83 58 44 49 |...STEP+1....XDI| 00001560: 46 46 2B 31 00 A8 16 84 53 54 45 50 2B 31 00 B2 |FF+1....STEP+1..| 00001570: 16 85 59 4C 4F 00 BC 16 99 00 C6 16 83 59 44 49 |..YLO........YDI| 00001580: 52 00 D0 16 84 59 4C 4F 00 DA 16 99 00 E4 16 B4 |R....YLO........| 00001590: 50 4C 58 53 54 00 EE 16 50 4C 58 45 4E 44 20 9F |PLXST...PLXEND .| 000015A0: 00 FF FF |... |
.....GETIN .$FFE4...;*****************.*
*******...;.(.;HIRES ROUTINES.2.;.<.;***
***********************.F.;.P.HSCRN .819
2.Z.HIND1 .8192-400.D.HIND2 .8192-200.N.
MEMLOC .53272.X.VICCON .53265...VC2 .532
70...COLMAP .1024...COLEND .COLMAP+1000.
.;...;PAGE ZERO...;...WRK1 .$2.H.WRK2 .
$6C.R.ENDX .14...INDEX1 .$6A...YDIR .$6D
...YDIFF .$6E...XDIFF .$6F...STEP .$65..
.PLOTIND .254...XLO .251.".XHI .252.,.YL
O .253.6.ENDY .255.@.;.J..$C000.K..$9000
.T..SETHST.^..CTXST.H..CLHST.R..CCLRST.|
..PLOTST....PLCST....PHCST....LDRAWST...
.HLINST....VLINST....BDRAWST.B...L.;.V.;
SET-UP HIRES...;...SETHST .MEMLOC....#8.
...MEMLOC....VICCON....#32....VICCON.&..
#$07.0..WRK1.:..CCLRST.D..#0.N..WRK1.X..
CLHST.B.FRIG .SINDST.L...V.;...;CLEAR CO
LMAP...;...CCLRST .#COLMAP....INDEX1....
^COLMAP....INDEX1+1....#0.F.CCLRLP .WRK1
.P..(INDEX1..Z..INDEX1....CCLRSK....INDE
X1+1...CCLRSK .INDEX1+1....^COLEND....CC
LRLP....INDEX1. ..#COLEND.*..CCLRLP.4...
>.;.H.;HI-RES ADDRESS.R.;.\.HADDST .YLO
.F...P..HIND1..Z..INDEX1+1....HIND2.....
INDEX1....XLO........#7....WRK2... .J..#
$F8.T......INDEX1....INDEX1....XHI....IN
DEX1+1....INDEX1+1...HADDEND ....;.$.;PL
OT A POINT...;.8.PLOTST .HADDST.B..PLOTI
ND.L..PLOT1.V..#$7F.`..PLOTGB.J.PLOT1 .#
$80.T.PLOTGB .WRK2.~.HRPLP .#0....HRPPL.
...A........HRPLP...HRPPL .WRK2....#0.D.
.PLOTIND.N..#0.X..PLOTNO....PLOTYES....P
LOTFLIP...PLOTNO .(INDEX1.....WRK2....(I
NDEX1.........PLOTEND.(.PLOTYES .(INDEX1
..2..WRK2.<..(INDEX1..F...P..PLOTEND.Z.P
LOTFLIP .(INDEX1..D..WRK2.N..(INDEX1..X.
PLOTEND ....;...;CLEAR HIRES...;. .CL
HST .#HSCRN....INDEX1....^HSCRN....INDEX
1+1.H..#32.R..WRK1....#0...CLHLP .(INDEX
1.........CLHLP........CLHEND....INDEX1+
1."..CLHLP.,.CLHEND ..6.;.@.;CHANGE TO T
EXT MODE.J.;.T.CTXST .#32.^..WRK1.H..CLH
ST.R..VICCON.|..#223....VICCON....VC2...
.#239....VC2....MEMLOC....#$F7.B..MEMLOC
.L...V.;...;SET UP INDEX...;...SINDST .#
HSCRN....INDEX1....^HSCRN....INDEX1+1...
.#0.&.SINDLP .INDEX1+1.0..HIND1..:..INDE
X1.D..HIND2..N...X...B..#$07.L..SINDJ.V.
.INDEX1....SINDSK....INDEX1+1....SINDSK.
..SINDJ .INDEX1....#$F8........#320.F..I
NDEX1.P..INDEX1+1.Z..^320....INDEX1+1...
SINDSK .#200....SINDLP.......;...;COLOUR
MAP ADDRESS. .;.*.COLAST .#0.4..INDE
X1+1.>..YLO.H..#$F8.R..WRK2.\..A.F.. IND
EX1+1.P..A.Z.. INDEX1+1........WRK2....I
NDEX1....COLSK....INDEX1+1...COLSK .XHI.
...WRK2.J..XLO.T.. WRK2....A....A....A..
......INDEX1....INDEX1....COLSK2.$..INDE
X1+1...COLSK2 .INDEX1+1.8...B..^COLMAP.L
..INDEX1+1.V...`.;.J.;PLOT COLOUR SQUARE
.T.;.~.PLCST .COLAST....#0....WRK1....(I
NDEX1........;...;PLOT BOTH.D.;.N.PHCST
.PLOTST.X..PLCST.......;...;VERTICAL LIN
E...;...VLINST .CXYST....VLINEND....ENDY
.(..#200.2..VLINEND.<..YLO.F..VLINEND.P.
.VLINLP.Z...D..YLO.N..ENDY.X. ....YLO...
VLINLP .PLOTST....YLO. ..YLO....ENDY....
VLINLP....VLINLP.H.VLINEND ..R.;...;HORI
ZONTAL LINE...;...HLINST .CXYST....HLINE
ND....ENDX+1....HLINOK....#1."..HLINEND.
,..ENDX.6..#64.@..HLINEND.J.HLINOK .XHI.
T..ENDX+1.^..HLINB2.H..HLINLP.R..HLINREV
.|.HLINB2 .XLO....ENDX....HLINEND....HLI
NLP...HLINREV .....ENDX+1....XHI.B. .L..
ENDX+1.V..ENDX........XLO....ENDX... ...
.XLO.......HLINLP .PLOTST.&..XLO.0..HLIN
CH.:..XHI.D.HLINCH .XHI.N..ENDX+1.X..HLI
NLP.B..XLO.L..ENDX.V..HLINLP....HLINLP..
.HLINEND ....;...;DRAW BOX...;...BDRAWST
.GCRST....XHI.F...P..XLO.Z......HLINST.
.. ....XLO... ....XHI..... ..XLO.*...4..
YLO.>...H..ENDY.R..YLO.\..HLINST.F. .P..
YLO.Z. ....XLO... ....XHI....YLO........
VLINST... .J..YLO.T..ENDX....XLO....ENDX
+1....XHI....VLINST.......;...;GET COORD
S IN RIGHT ORDER.$.;...GCRST .YLO.8..END
Y.B..GCRSK1.L...V..ENDY.`..YLO.J. .T..EN
DY.~.GCRSK1 .XHI....ENDX+1....GCRB2....G
CREND....GCRSWX...GCRB2 .XLO....ENDX.D..
GCREND.N.GCRSWX .XLO.X......XHI........E
NDX....XLO....ENDX+1....XHI... .(..ENDX+
1.2. .<..ENDX.F.GCREND ..P.;.Z.;CHECK ST
ART X&Y ON SCREEN.D.;.N.CXYST .YLO.X..#
200....CXYNO....XHI....CXYOK. ..#1....CX
YNO....XLO....#64.H..CXYNO.R.CXYOK .....
CXYEND...CXYNO ....CXYEND ....;...;CHECK
END X&Y ON SCREEN...;...EXYST .ENDY."..
#200.,..EXYNO.6..ENDX+1.@..EXYOK.J..#1.T
..EXYNO.^..ENDX.H..#64.R..EXYNO.|.EXYOK
.....EXYEND...EXYNO ....EXYEND ....;...;
DO LINE...;.B.LDRAWST .CXYST.L..LDRSK1.V
.....LDRSK1 .EXYST....LDRSK2.......LDRSK
2 .YLO;Y COORDS EQUAL?....ENDY....LDRVLI
N....XHI.&..ENDX+1.0..LDRHLIN.:..XLO.D..
ENDX.N..LDRHLIN.X...B.LDRHLIN .HLINST.L.
..V.LDRVLIN .XHI;X COORDS EQUAL?....ENDX
+1....LDRLIN....XLO....ENDX....LDRLIN...
.VLINST.....F.LDRLIN .XHI;MAKE SURE X PO
S.P..ENDX+1.Z..LDRX2....LDROK....LDRREV.
..LDRX2 .XLO....ENDX....LDROK...LDRREV .
YLO;REVERSE COORDS. ...*..ENDY.4..YLO.>.
.H..ENDY.R..XHI.\...F..XLO.P...Z..ENDX.
...XLO....ENDX+1....XHI... ....ENDX... .
...ENDX+1.J.LDROK .YLO;COMPUTE YDIR.T..E
NDY....LDRYNEG....ENDY........YLO....YDI
FF....#1....LDRSDIR.$.LDRYNEG .....YLO.8
..ENDY.B..YDIFF.L..#$FF.V.LDRSDIR .YDIR.
`..ENDX;COMPUTE XDIFF.J...T..XLO.~..XDIF
F....ENDX+1....XHI....XDIFF+1....LDRXDH.
...YDIFF;FIND BIGGER DIFFERENCE....XDIFF
.D..LDRXDH.N..YDIFF.X......#1....A....ST
EP....PLYST........LDREND...LDRXDH .XDIF
F+1.(..WRK1.2..XDIFF.<...F..#1.P..LDRSKX
.Z..WRK1.D.LDRSKX . WRK1.N..A.X..STEP...
.#0....STEP+1....PLXST. .LDREND ....;...
;PLOT ALONG Y AXIS...;.H.PLYST .PLOTST.R
..YLO....ENDY....PLYEND........YDIR....Y
LO....STEP....."..XDIFF.,..STEP.6..PLYST
.@..STEP.J...T..YDIFF.^..STEP.H..XLO.R..
PLYST.|..XHI....PLYST...PLYEND ....;...;
X IS LONG AXIS...;...PLXST .PLOTST.B..XH
I.L..ENDX+1.V..PLXON....XLO....ENDX....P
LXEND...PLXON .XLO....PLXSKH....XHI...PL
XSKH .STEP.&...0..YDIFF.:..STEP.D..STEP+
1.N..#0.X..STEP+1.B..PLXST.L..STEP.V....
..XDIFF....STEP....STEP+1....XDIFF+1....
STEP+1....YLO.....F..YDIR.P..YLO.Z......
PLXST...PLXEND ....
> CLICK IMAGE PREVIEW FOR FULL MODAL