00000000: 01 40 09 40 0A 00 99 22 93 00 20 40 14 00 56 B2 |.@.@...".. @..V.|
00000010: 35 33 32 34 38 3A 8F 20 56 49 43 20 43 48 49 50 |53248:. VIC CHIP|
00000020: 00 46 40 19 00 97 35 33 32 38 30 2C 37 3A 8F 20 |.F@...53280,7:. |
00000030: 42 4F 52 44 45 52 20 43 4F 4C 4F 55 52 20 2D 20 |BORDER COLOUR - |
00000040: 59 45 4C 4C 4F 57 00 73 40 1E 00 97 56 AA 31 37 |YELLOW.s@...V.17|
00000050: 2C 35 39 3A 97 56 AA 32 34 2C 32 35 3A 8F 20 44 |,59:.V.24,25:. D|
00000060: 49 53 50 4C 41 59 20 48 49 52 45 53 20 53 43 52 |ISPLAY HIRES SCR|
00000070: 45 45 4E 00 9E 40 23 00 8F 20 47 4F 54 4F 35 30 |EEN..@#.. GOTO50|
00000080: 3A 52 45 4D 20 42 59 50 41 53 53 20 48 49 52 45 |:REM BYPASS HIRE|
00000090: 53 20 53 43 52 45 45 4E 20 43 4C 45 41 52 00 C6 |S SCREEN CLEAR..|
000000A0: 40 28 00 81 49 B2 38 31 39 32 A4 31 36 31 39 31 |@(..I.8192.16191|
000000B0: 3A 97 49 2C 30 3A 82 3A 8F 20 43 4C 45 41 52 20 |:.I,0:.:. CLEAR |
000000C0: 53 43 52 45 45 4E 00 FA 40 32 00 81 49 B2 31 30 |SCREEN..@2..I.10|
000000D0: 32 34 A4 32 30 32 33 3A 97 49 2C 37 3A 82 3A 8F |24.2023:.I,7:.:.|
000000E0: 20 48 49 52 45 53 20 42 41 43 4B 47 52 4F 55 4E | HIRES BACKGROUN|
000000F0: 44 20 2D 20 5B 45 4C 4C 4F 57 00 0F 41 3C 00 8D |D - [ELLOW..A<..|
00000100: 32 30 30 3A 8F 20 44 52 41 57 20 41 58 45 53 00 |200:. DRAW AXES.|
00000110: 33 41 64 00 8F 20 2A 2A 2A 50 4C 4F 54 20 53 45 |3Ad.. ***PLOT SE|
00000120: 52 49 45 53 20 4F 46 20 45 4C 4C 49 50 53 45 53 |RIES OF ELLIPSES|
00000130: 2A 2A 2A 00 39 41 6E 00 8F 00 49 41 78 00 81 20 |***.9An...IAx.. |
00000140: 52 B2 38 A4 38 38 A9 31 36 00 65 41 7D 00 58 52 |R.8.88.16.eA}.XR|
00000150: B2 31 32 38 AB 52 3A 59 52 B2 38 AA 52 3A 8F 20 |.128.R:YR.8.R:. |
00000160: 52 41 44 49 49 00 86 41 7F 00 58 43 B2 31 36 30 |RADII..A..XC.160|
00000170: 3A 59 43 B2 31 30 30 3A 8F 20 43 45 4E 54 52 45 |:YC.100:. CENTRE|
00000180: 20 50 4F 49 4E 54 00 94 41 82 00 46 B2 32 AC FF | POINT..A..F.2..|
00000190: AD 33 30 30 00 A1 41 87 00 81 49 B2 30 A4 32 39 |.300..A...I.0.29|
000001A0: 39 00 AC 41 8C 00 41 4E B2 46 AC 49 00 D2 41 96 |9..A..AN.F.I..A.|
000001B0: 00 58 B2 B5 28 58 43 AA 58 52 AC BE 28 41 4E 29 |.X..(XC.XR..(AN)|
000001C0: 29 3A 59 B2 B5 28 59 43 AA 59 52 AC BF 28 41 4E |):Y..(YC.YR..(AN|
000001D0: 29 29 00 DC 41 9B 00 8D 31 30 30 30 00 E4 41 A0 |))..A...1000..A.|
000001E0: 00 82 3A 82 00 ED 41 A2 00 8D 35 30 30 00 02 42 |..:...A...500..B|
000001F0: A5 00 A1 5A 5A 24 3A 8B 5A 5A 24 B2 22 22 A7 31 |...ZZ$:.ZZ$."".1|
00000200: 36 35 00 2F 42 AA 00 97 56 AA 31 37 2C 32 37 3A |65./B...V.17,27:|
00000210: 97 56 AA 32 34 2C 32 31 3A 8F 20 44 49 53 50 4C |.V.24,21:. DISPL|
00000220: 41 59 20 4C 4F 52 45 53 20 53 43 52 45 45 4E 00 |AY LORES SCREEN.|
00000230: 37 42 AF 00 99 22 93 00 3D 42 B4 00 80 00 4D 42 |7B..."..=B....MB|
00000240: C8 00 8F 20 44 52 41 57 20 41 58 45 53 00 53 42 |... DRAW AXES.SB|
00000250: D2 00 8F 00 6E 42 DC 00 81 58 B2 30 A4 33 31 39 |....nB...X.0.319|
00000260: 3A 59 B2 31 30 30 3A 8D 31 30 30 30 3A 82 00 89 |:Y.100:.1000:...|
00000270: 42 E6 00 81 59 B2 30 A4 31 39 39 3A 58 B2 31 36 |B...Y.0.199:X.16|
00000280: 30 3A 8D 31 30 30 30 3A 82 00 8F 42 E8 00 8F 00 |0:.1000:...B....|
00000290: A9 42 EB 00 8F 20 2A 2A 2A 42 4C 49 50 53 20 4F |.B... ***BLIPS O|
000002A0: 4E 20 41 58 45 53 2A 2A 2A 00 AF 42 ED 00 8F 00 |N AXES***..B....|
000002B0: CA 42 F0 00 81 59 B2 39 35 A4 31 30 35 3A 58 B2 |.B...Y.95.105:X.|
000002C0: 34 30 3A 8D 31 30 30 30 3A 82 00 E5 42 F5 00 81 |40:.1000:...B...|
000002D0: 59 B2 39 35 A4 31 30 35 3A 58 B2 38 30 3A 8D 31 |Y.95.105:X.80:.1|
000002E0: 30 30 30 3A 82 00 01 43 FA 00 81 59 B2 39 35 A4 |000:...C...Y.95.|
000002F0: 31 30 35 3A 58 B2 31 32 30 3A 8D 31 30 30 30 3A |105:X.120:.1000:|
00000300: 82 00 1D 43 FF 00 81 59 B2 39 35 A4 31 30 35 3A |...C...Y.95.105:|
00000310: 58 B2 32 30 30 3A 8D 31 30 30 30 3A 82 00 39 43 |X.200:.1000:..9C|
00000320: 04 01 81 59 B2 39 35 A4 31 30 35 3A 58 B2 32 34 |...Y.95.105:X.24|
00000330: 30 3A 8D 31 30 30 30 3A 82 00 55 43 09 01 81 59 |0:.1000:..UC...Y|
00000340: B2 39 35 A4 31 30 35 3A 58 B2 32 38 30 3A 8D 31 |.95.105:X.280:.1|
00000350: 30 30 30 3A 82 00 71 43 0E 01 81 58 B2 31 35 35 |000:..qC...X.155|
00000360: A4 31 36 35 3A 59 B2 32 35 3A 8D 31 30 30 30 3A |.165:Y.25:.1000:|
00000370: 82 00 8D 43 18 01 81 58 B2 31 35 35 A4 31 36 35 |...C...X.155.165|
00000380: 3A 59 B2 35 30 3A 8D 31 30 30 30 3A 82 00 A9 43 |:Y.50:.1000:...C|
00000390: 22 01 81 58 B2 31 35 35 A4 31 36 35 3A 59 B2 37 |"..X.155.165:Y.7|
000003A0: 35 3A 8D 31 30 30 30 3A 82 00 C6 43 2C 01 81 58 |5:.1000:...C,..X|
000003B0: B2 31 35 35 A4 31 36 35 3A 59 B2 31 32 35 3A 8D |.155.165:Y.125:.|
000003C0: 31 30 30 30 3A 82 00 E3 43 36 01 81 58 B2 31 35 |1000:...C6..X.15|
000003D0: 35 A4 31 36 35 3A 59 B2 31 35 30 3A 8D 31 30 30 |5.165:Y.150:.100|
000003E0: 30 3A 82 00 00 44 40 01 81 58 B2 31 35 35 A4 31 |0:...D@..X.155.1|
000003F0: 36 35 3A 59 B2 31 37 35 3A 8D 31 30 30 30 3A 82 |65:Y.175:.1000:.|
00000400: 00 06 44 4A 01 8E 00 2B 44 F4 01 8F 20 2A 2A 2A |..DJ...+D... ***|
00000410: 48 49 52 45 53 20 43 4F 4C 4F 52 20 43 4F 4D 42 |HIRES COLOR COMB|
00000420: 49 4E 41 54 49 4F 4E 53 2A 2A 2A 00 31 44 FE 01 |INATIONS***.1D..|
00000430: 8F 00 3E 44 08 02 81 4A B2 30 A4 32 35 35 00 4F |..>D...J.0.255.O|
00000440: 44 12 02 81 49 B2 31 30 32 34 A4 32 30 32 33 00 |D...I.1024.2023.|
00000450: 58 44 1C 02 97 49 2C 4A 00 60 44 26 02 82 3A 82 |XD...I,J.`D&..:.|
00000460: 00 66 44 30 02 8E 00 89 44 E8 03 8F 20 2A 2A 2A |.fD0....D... ***|
00000470: 48 49 52 45 53 20 50 4C 4F 54 54 49 4E 47 20 52 |HIRES PLOTTING R|
00000480: 4F 55 54 49 4E 45 2A 2A 2A 00 8F 44 F2 03 8F 00 |OUTINE***..D....|
00000490: A7 44 FC 03 43 48 B2 B5 28 58 AD 38 29 AA B5 28 |.D..CH..(X.8)..(|
000004A0: 59 AD 38 29 AC 34 30 00 BD 44 06 04 52 4F B2 28 |Y.8).40..D..RO.(|
000004B0: 59 AD 38 AB B5 28 59 AD 38 29 29 AC 38 00 D1 44 |Y.8..(Y.8)).8..D|
000004C0: 10 04 42 59 B2 38 31 39 32 AA 38 AC 43 48 AA 52 |..BY.8192.8.CH.R|
000004D0: 4F 00 E9 44 1A 04 42 49 B2 37 AB 28 58 AB 28 B5 |O..D..BI.7.(X.(.|
000004E0: 28 58 AD 38 29 AC 38 29 29 00 01 45 24 04 97 42 |(X.8).8))..E$..B|
000004F0: 59 2C C2 28 42 59 29 20 B0 20 20 28 32 AE 42 49 |Y,.(BY) . (2.BI|
00000500: 29 00 07 45 2E 04 8E 00 00 00 |)..E...... |
.@.@...".. @..V.53248:. VIC CHIP.F@...53
280,7:. BORDER COLOUR - YELLOW.S@...V.17
,59:.V.24,25:. DISPLAY HIRES SCREEN..@#.
. GOTO50:REM BYPASS HIRES SCREEN CLEAR.F
@(..I.8192.16191:.I,0:.:. CLEAR SCREEN..
@2..I.1024.2023:.I,7:.:. HIRES BACKGROUN
D - [ELLOW..A<..200:. DRAW AXES.3AD.. **
*PLOT SERIES OF ELLIPSES***.9AN...IAX..
R.8.88.16.EA}.XR.128.R:YR.8.R:. RADII..A
.XC.160:YC.100:. CENTRE POINT..A..F.2..
.300..A...I.0.299..A..AN.F.I.RA..X..(XC.
XR..(AN)):Y..(YC.YR..(AN))..A...1000..A
..:...A...500..B...ZZ$:.ZZ$."".165./B...
V.17,27:.V.24,21:. DISPLAY LORES SCREEN.
7B..."..=B....MBH.. DRAW AXES.SBR...NB..
.X.0.319:Y.100:.1000:...B...Y.0.199:X.16
0:.1000:...B.....B... ***BLIPS ON AXES**
*..B....JB...Y.95.105:X.40:.1000:...B...
Y.95.105:X.80:.1000:...C...Y.95.105:X.12
0:.1000:...C...Y.95.105:X.200:.1000:..9C
...Y.95.105:X.240:.1000:..UC...Y.95.105:
X.280:.1000:..QC...X.155.165:Y.25:.1000:
...C...X.155.165:Y.50:.1000:...C"..X.155
.165:Y.75:.1000:..FC,..X.155.165:Y.125:.
1000:...C6..X.155.165:Y.150:.1000:...D@.
.X.155.165:Y.175:.1000:...DJ...+D... ***
HIRES COLOR COMBINATIONS***.1D....>D...J
.0.255.OD...I.1024.2023.XD...I,J.`D&..:.
.FD0....D... ***HIRES PLOTTING ROUTINE**
*..D.....D..CH..(X.8)..(Y.8).40..D..RO.(
Y.8..(Y.8)).8.QD..BY.8192.8.CH.RO..D..BI
.7.(X.(.(X.8).8))..E$..BY,B(BY) . (2.BI
)..E......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL