DEMO-MACHINECODE
FILE INFORMATION
FILENAME(S): DEMO-MACHINECODE
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 21:05:29
APPEARS ON: 1 disk(s)
FILE HASH
e074d81526ed56b130d306ed07a0306a81be2feb967d0298e3a2c587154048ed
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | DEMO-MACHINECODE | PRG | DuncanTwain | 28 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 32 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..2.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 00 63 08 14 00 8F 20 2A 20 54 48 49 53 20 |**.c.... * THIS |
00000040: 50 52 4F 47 52 41 4D 20 44 45 4D 4F 4E 53 54 52 |PROGRAM DEMONSTR|
00000050: 41 54 45 53 20 54 48 45 20 55 53 45 20 4F 46 20 |ATES THE USE OF |
00000060: 20 20 2A 00 94 08 1E 00 8F 20 2A 20 54 48 45 20 | *...... * THE |
00000070: 48 49 2D 52 45 53 20 47 52 41 50 48 49 43 53 20 |HI-RES GRAPHICS |
00000080: 52 4F 55 54 49 4E 45 53 2E 20 20 20 20 20 20 20 |ROUTINES. |
00000090: 20 20 20 2A 00 C5 08 28 00 8F 20 2A 20 46 4F 52 | *...(.. * FOR|
000000A0: 20 45 41 53 45 20 4F 46 20 55 53 45 2C 20 54 48 | EASE OF USE, TH|
000000B0: 45 20 50 4F 4B 45 20 41 4E 44 20 53 59 53 20 20 |E POKE AND SYS |
000000C0: 20 20 20 20 2A 00 F6 08 32 00 8F 20 2A 20 52 4F | *...2.. * RO|
000000D0: 55 54 49 4E 45 53 20 41 52 45 20 49 4E 20 53 55 |UTINES ARE IN SU|
000000E0: 42 52 4F 55 54 49 4E 45 53 20 41 54 20 54 48 45 |BROUTINES AT THE|
000000F0: 20 45 4E 44 20 2A 00 27 09 3C 00 8F 20 2A 20 4F | END *.'.<.. * O|
00000100: 46 20 54 48 45 20 50 52 4F 47 52 41 4D 20 54 48 |F THE PROGRAM TH|
00000110: 55 53 2E 2D 20 20 20 20 20 20 20 20 20 20 20 20 |US.- |
00000120: 20 20 20 20 20 20 2A 00 58 09 46 00 8F 20 2A 20 | *.X.F.. * |
00000130: 20 47 4F 53 55 42 20 31 30 30 30 30 20 20 20 28 | GOSUB 10000 (|
00000140: 53 45 54 20 55 50 20 48 49 52 45 53 20 53 43 52 |SET UP HIRES SCR|
00000150: 45 45 4E 29 20 20 20 2A 00 89 09 50 00 8F 20 2A |EEN) *...P.. *|
00000160: 20 20 47 4F 53 55 42 20 31 31 30 30 30 20 20 20 | GOSUB 11000 |
00000170: 28 43 4C 45 41 52 20 54 48 45 20 42 49 54 20 4D |(CLEAR THE BIT M|
00000180: 41 50 20 20 20 20 20 20 2A 00 BA 09 5A 00 8F 20 |AP *...Z.. |
00000190: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000001A0: 20 20 53 43 52 45 45 4E 29 20 20 20 20 20 20 20 | SCREEN) |
000001B0: 20 20 20 20 20 20 20 20 20 2A 00 EA 09 64 00 8F | *...d..|
000001C0: 2A 20 20 47 4F 53 55 42 20 31 32 30 30 30 20 20 |* GOSUB 12000 |
000001D0: 20 28 44 4F 20 41 20 47 4C 4F 42 41 4C 20 43 4F | (DO A GLOBAL CO|
000001E0: 4C 4F 55 52 20 20 20 20 20 2A 00 1A 0A 6E 00 8F |LOUR *...n..|
000001F0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000200: 20 20 43 48 41 4E 47 45 29 20 20 20 20 20 20 20 | CHANGE) |
00000210: 20 20 20 20 20 20 20 20 20 2A 00 4A 0A 78 00 8F | *.J.x..|
00000220: 2A 20 20 47 4F 53 55 42 20 31 33 30 30 30 20 20 |* GOSUB 13000 |
00000230: 20 28 50 4C 4F 54 20 41 20 50 4F 49 4E 54 29 20 | (PLOT A POINT) |
00000240: 20 20 20 20 20 20 20 20 20 2A 00 7A 0A 82 00 8F | *.z....|
00000250: 2A 20 20 47 4F 53 55 42 20 31 34 30 30 30 20 20 |* GOSUB 14000 |
00000260: 20 28 44 52 41 57 20 41 20 4C 49 4E 45 29 20 20 | (DRAW A LINE) |
00000270: 20 20 20 20 20 20 20 20 20 2A 00 AA 0A 8C 00 8F | *......|
00000280: 2A 20 20 47 4F 53 55 42 20 31 35 30 30 30 20 20 |* GOSUB 15000 |
00000290: 20 28 44 49 53 50 4C 41 59 20 41 20 53 54 52 49 | (DISPLAY A STRI|
000002A0: 4E 47 20 4F 4E 20 54 48 45 2A 00 DA 0A 96 00 8F |NG ON THE*......|
000002B0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000002C0: 20 20 53 43 52 45 45 4E 29 20 20 20 20 20 20 20 | SCREEN) |
000002D0: 20 20 20 20 20 20 20 20 20 2A 00 0A 0B A0 00 8F | *......|
000002E0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 2A 00 3A 0B AA 00 8F | *.:....|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 50 0B B4 00 50 |**********.P...P|
00000340: 43 B2 31 3A 53 43 B2 32 3A 8D 20 31 30 30 30 30 |C.1:SC.2:. 10000|
00000350: 00 71 0B BE 00 42 24 B2 22 59 3D 53 49 4E 28 58 |.q...B$."Y=SIN(X|
00000360: 29 22 3A 52 4E B2 31 3A 41 44 B2 30 3A 50 43 B2 |)":RN.1:AD.0:PC.|
00000370: 35 00 91 0B C8 00 58 B2 30 3A 58 58 B2 38 3A 59 |5.....X.0:XX.8:Y|
00000380: B2 31 39 32 3A 59 59 B2 30 3A 8D 20 31 35 30 30 |.192:YY.0:. 1500|
00000390: 30 00 AB 0B D2 00 50 43 B2 31 3A 58 31 B2 30 3A |0.....PC.1:X1.0:|
000003A0: 59 31 B2 31 30 30 3A 41 44 B2 30 00 C0 0B DC 00 |Y1.100:AD.0.....|
000003B0: 81 20 58 32 B2 31 20 A4 20 33 32 30 20 A9 20 32 |. X2.1 . 320 . 2|
000003C0: 00 DD 0B E6 00 59 32 B2 31 30 30 AB 28 39 30 AC |.....Y2.100.(90.|
000003D0: BF 28 58 32 AC FF AD 34 35 2E 35 29 29 00 E9 0B |.(X2...45.5))...|
000003E0: F0 00 8D 20 31 34 30 30 30 00 F2 0B FA 00 82 20 |... 14000...... |
000003F0: 58 32 00 07 0C 04 01 81 20 58 B2 30 20 A4 20 33 |X2...... X.0 . 3|
00000400: 31 39 20 A9 20 2E 35 00 22 0C 0E 01 59 B2 31 30 |19 . .5."...Y.10|
00000410: 30 AB 28 39 30 AC BF 28 58 AC FF AD 34 35 2E 35 |0.(90..(X...45.5|
00000420: 29 29 00 2E 0C 18 01 8D 20 31 33 30 30 30 00 36 |))...... 13000.6|
00000430: 0C 22 01 82 20 58 00 4B 0C 2C 01 81 20 49 B2 31 |.".. X.K.,.. I.1|
00000440: 20 A4 20 31 30 30 30 3A 82 20 49 00 75 0C 36 01 | . 1000:. I.u.6.|
00000450: 96 20 A5 41 28 59 29 B2 33 38 AC 28 BF 28 59 AD |. .A(Y).38.(.(Y.|
00000460: 32 34 29 AA 2E 34 38 AC BF 28 33 AC 59 AD 32 34 |24)..48..(3.Y.24|
00000470: 29 29 AA 32 30 00 81 0C 3B 01 81 20 4A B2 31 A4 |)).20...;.. J.1.|
00000480: 32 00 98 0C 40 01 50 43 B2 36 3A 53 43 B2 31 32 |2...@.PC.6:SC.12|
00000490: 3A 8D 20 31 32 30 30 30 00 A4 0C 4A 01 8D 20 31 |:. 12000...J.. 1|
000004A0: 31 30 30 30 00 C5 0C 54 01 42 24 B2 22 33 44 20 |1000...T.B$."3D |
000004B0: 47 52 41 50 48 22 3A 52 4E B2 31 3A 41 44 B2 30 |GRAPH":RN.1:AD.0|
000004C0: 3A 50 43 B2 30 00 E5 0C 5E 01 58 B2 30 3A 58 58 |:PC.0...^.X.0:XX|
000004D0: B2 38 3A 59 B2 31 39 32 3A 59 59 B2 30 3A 8D 20 |.8:Y.192:YY.0:. |
000004E0: 31 35 30 30 30 00 EE 0C 68 01 50 43 B2 36 00 04 |15000...h.PC.6..|
000004F0: 0D 72 01 81 20 58 58 B2 AB 31 30 30 20 A4 20 30 |.r.. XX..100 . 0|
00000500: 20 A9 20 31 00 1D 0D 7C 01 4B B2 36 3A 4C B2 30 | . 1...|.K.6:L.0|
00000510: 3A 50 B2 31 3A 5A 31 B2 30 3A 4D B2 31 00 3A 0D |:P.1:Z1.0:M.1.:.|
00000520: 86 01 59 31 B2 4B AC B5 28 BA 28 31 30 30 30 30 |..Y1.K..(.(10000|
00000530: AB 58 58 AC 58 58 29 AD 4B 29 00 50 0D 90 01 81 |.XX.XX).K).P....|
00000540: 20 5A B2 59 31 20 A4 20 AB 59 31 20 A9 20 AB 4B | Z.Y1 . .Y1 . .K|
00000550: 00 77 0D 9A 01 59 B2 B5 28 38 30 AA A5 41 28 BA |.w...Y..(80..A(.|
00000560: 28 58 58 AC 58 58 AA 5A AC 5A 29 29 AB 2E 37 30 |(XX.XX.Z.Z))..70|
00000570: 37 31 30 36 AC 5A 29 00 87 0D A4 01 8B 20 59 B3 |7106.Z)...... Y.|
00000580: 4C 20 A7 20 34 37 30 00 97 0D AE 01 4C B2 59 3A |L . 470.....L.Y:|
00000590: 59 B2 31 39 30 AB 59 00 A6 0D B8 01 58 B2 4D AC |Y.190.Y.....X.M.|
000005A0: 58 58 AA 31 36 30 00 B2 0D C2 01 8D 20 31 33 30 |XX.160...... 130|
000005B0: 30 30 00 C6 0D CC 01 4D B2 AB 4D 3A 8B 20 4D B2 |00.....M..M:. M.|
000005C0: AB 31 A7 34 34 30 00 D1 0D D6 01 82 20 5A 2C 58 |.1.440...... Z,X|
000005D0: 58 00 E6 0D E0 01 81 20 49 B2 31 20 A4 20 31 30 |X...... I.1 . 10|
000005E0: 30 30 3A 82 20 49 00 01 0E EA 01 96 20 A5 41 28 |00:. I...... .A(|
000005F0: 59 29 B2 39 30 AC BD 28 AB 59 AC 59 AD 36 30 30 |Y).90..(.Y.Y.600|
00000600: 29 00 09 0E F4 01 82 20 4A 00 27 0E FE 01 97 35 |)...... J.'....5|
00000610: 33 32 37 32 2C 32 31 3A 97 35 33 32 36 35 2C 32 |3272,21:.53265,2|
00000620: 37 3A 99 22 93 22 3B 00 56 0E 08 02 99 22 20 20 |7:.".";.V...." |
00000630: 20 20 20 20 20 20 12 41 47 41 49 4E 92 20 20 3F | .AGAIN. ?|
00000640: 20 28 59 2F 4E 29 20 4F 52 20 12 53 92 20 54 4F | (Y/N) OR .S. TO|
00000650: 20 4C 49 53 54 22 00 7B 0E 12 02 A1 41 24 3A 8B | LIST".{....A$:.|
00000660: 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 AF |A$.."Y".A$.."N".|
00000670: 41 24 B3 B1 22 53 22 A7 35 33 30 00 89 0E 1C 02 |A$.."S".530.....|
00000680: 8B 41 24 B2 22 59 22 A7 8A 00 97 0E 26 02 8B 41 |.A$."Y".....&..A|
00000690: 24 B2 22 53 22 A7 9B 00 BA 0E 30 02 99 22 93 20 |$."S".....0..". |
000006A0: 20 20 20 20 20 20 20 20 20 20 52 45 57 49 4E 44 | REWIND|
000006B0: 20 54 4F 20 20 4D 45 4E 55 22 00 D2 0E 3A 02 81 | TO MENU"...:..|
000006C0: 44 45 B2 31 A4 31 30 30 30 3A 82 3A 9E 36 34 37 |DE.1.1000:.:.647|
000006D0: 33 38 00 EC 0E 10 27 8F 20 53 45 54 20 55 50 20 |38....'. SET UP |
000006E0: 48 49 52 45 53 20 53 43 52 45 45 4E 00 FE 0E 1A |HIRES SCREEN....|
000006F0: 27 97 20 38 39 2C 53 43 AA 50 43 AC 31 36 00 0B |'. 89,SC.PC.16..|
00000700: 0F 24 27 9E 28 32 38 36 37 32 29 00 11 0F 2E 27 |.$'.(28672)....'|
00000710: 8E 00 2D 0F F8 2A 8F 20 43 4C 45 41 52 20 47 52 |..-..*. CLEAR GR|
00000720: 41 50 48 49 43 53 20 53 43 52 45 45 4E 00 3A 0F |APHICS SCREEN.:.|
00000730: 02 2B 9E 28 32 38 37 30 34 29 00 40 0F 0C 2B 8E |.+.(28704).@..+.|
00000740: 00 5B 0F E0 2E 8F 20 47 4C 4F 42 41 4C 20 43 4F |.[.... GLOBAL CO|
00000750: 4C 4F 55 52 20 43 48 41 4E 47 45 00 6D 0F EA 2E |LOUR CHANGE.m...|
00000760: 97 20 38 39 2C 53 43 AA 50 43 AC 31 36 00 7A 0F |. 89,SC.PC.16.z.|
00000770: F4 2E 9E 28 32 38 37 34 33 29 00 80 0F FE 2E 8E |...(28743)......|
00000780: 00 9A 0F C8 32 8F 20 50 4C 4F 54 20 41 20 50 4F |....2. PLOT A PO|
00000790: 49 4E 54 20 41 54 20 58 2C 59 00 B2 0F D2 32 97 |INT AT X,Y....2.|
000007A0: 20 38 39 2C 58 AB B5 28 58 AD 32 35 36 29 AC 32 | 89,X..(X.256).2|
000007B0: 35 36 00 C4 0F DC 32 97 20 39 30 2C B5 28 58 AD |56....2. 90,.(X.|
000007C0: 32 35 36 29 00 D2 0F E6 32 97 20 39 31 2C B5 28 |256)....2. 91,.(|
000007D0: 59 29 00 DF 0F F0 32 97 20 37 38 34 2C 41 44 00 |Y)....2. 784,AD.|
000007E0: EC 0F FA 32 97 20 38 37 39 2C 50 43 00 F9 0F 04 |...2. 879,PC....|
000007F0: 33 9E 28 32 38 37 38 32 29 00 FF 0F 0E 33 8E 00 |3.(28782)....3..|
00000800: 1F 10 B0 36 8F 20 44 52 41 57 20 41 20 4C 49 4E |...6. DRAW A LIN|
00000810: 45 20 42 45 54 57 45 45 4E 20 58 31 2C 59 31 00 |E BETWEEN X1,Y1.|
00000820: 2F 10 BA 36 8F 20 41 4E 44 20 58 32 2C 59 32 00 |/..6. AND X2,Y2.|
00000830: 4A 10 C4 36 97 20 38 32 38 2C 58 31 AB B5 28 58 |J..6. 828,X1..(X|
00000840: 31 AD 32 35 36 29 AC 32 35 36 00 5E 10 CE 36 97 |1.256).256.^..6.|
00000850: 20 38 32 39 2C B5 28 58 31 AD 32 35 36 29 00 79 | 829,.(X1.256).y|
00000860: 10 D8 36 97 20 38 33 30 2C 59 31 AB B5 28 59 31 |..6. 830,Y1..(Y1|
00000870: AD 32 35 36 29 AC 32 35 36 00 8D 10 E2 36 97 20 |.256).256....6. |
00000880: 38 33 31 2C B5 28 59 31 AD 32 35 36 29 00 A8 10 |831,.(Y1.256)...|
00000890: EC 36 97 20 38 33 32 2C 58 32 AB B5 28 58 32 AD |.6. 832,X2..(X2.|
000008A0: 32 35 36 29 AC 32 35 36 00 BC 10 F6 36 97 20 38 |256).256....6. 8|
000008B0: 33 33 2C B5 28 58 32 AD 32 35 36 29 00 D7 10 00 |33,.(X2.256)....|
000008C0: 37 97 20 38 33 34 2C 59 32 AB B5 28 59 32 AD 32 |7. 834,Y2..(Y2.2|
000008D0: 35 36 29 AC 32 35 36 00 EB 10 0A 37 97 20 38 33 |56).256....7. 83|
000008E0: 35 2C B5 28 59 32 AD 32 35 36 29 00 F8 10 14 37 |5,.(Y2.256)....7|
000008F0: 97 20 37 38 36 2C 41 44 00 05 11 1E 37 97 20 38 |. 786,AD....7. 8|
00000900: 37 39 2C 50 43 00 12 11 28 37 9E 28 32 39 31 35 |79,PC...(7.(2915|
00000910: 38 29 00 18 11 32 37 8E 00 3A 11 98 3A 8F 20 50 |8)...27..:..:. P|
00000920: 4C 4F 54 20 43 48 41 52 41 43 54 45 52 20 41 24 |LOT CHARACTER A$|
00000930: 20 4F 4E 20 54 4F 20 54 48 45 00 5C 11 A2 3A 8F | ON TO THE.\..:.|
00000940: 20 53 43 52 45 45 4E 20 57 49 54 48 20 54 4F 50 | SCREEN WITH TOP|
00000950: 20 4C 45 46 54 20 43 4F 4F 52 44 2D 00 6D 11 AC | LEFT COORD-.m..|
00000960: 3A 8F 20 49 4E 41 54 45 53 20 58 2C 59 00 7C 11 |:. INATES X,Y.|.|
00000970: B6 3A 81 49 B2 31 A4 C3 28 42 24 29 00 8D 11 C0 |.:.I.1..(B$)....|
00000980: 3A 41 24 B2 CA 28 42 24 2C 49 2C 31 29 00 A6 11 |:A$..(B$,I,1)...|
00000990: CA 3A 97 20 38 36 36 2C 58 AB B5 28 58 AD 32 35 |.:. 866,X..(X.25|
000009A0: 36 29 AC 32 35 36 00 B9 11 D4 3A 97 20 38 36 37 |6).256....:. 867|
000009B0: 2C B5 28 58 AD 32 35 36 29 00 CC 11 DE 3A 97 20 |,.(X.256)....:. |
000009C0: 38 36 38 2C 59 3A 97 36 38 39 2C 30 00 DC 11 E8 |868,Y:.689,0....|
000009D0: 3A 97 20 38 37 30 2C C6 28 41 24 29 00 E9 11 F2 |:. 870,.(A$)....|
000009E0: 3A 97 20 38 37 31 2C 52 4E 00 F6 11 FC 3A 97 20 |:. 871,RN....:. |
000009F0: 37 38 34 2C 41 44 00 03 12 06 3B 97 20 38 37 39 |784,AD....;. 879|
00000A00: 2C 50 43 00 10 12 10 3B 9E 28 32 39 37 34 39 29 |,PC....;.(29749)|
00000A10: 00 22 12 1A 3B 58 B2 58 AA 58 58 3A 59 B2 59 AA |."..;X.X.XX:Y.Y.|
00000A20: 59 59 00 28 12 24 3B 82 00 2E 12 2E 3B 8E 00 00 |YY.(.$;.....;...|
00000A30: 00 F0 |.. |
..2.... ********************************
**********.C.... * THIS PROGRAM DEMONSTR
ATES THE USE OF *...... * THE HI-RES G
RAPHICS ROUTINES. *.E.(.. * FOR
EASE OF USE, THE POKE AND SYS *...
2.. * ROUTINES ARE IN SUBROUTINES AT THE
END *.'.<.. * OF THE PROGRAM THUS.-
*.X.F.. * GOSUB 10000 (
SET UP HIRES SCREEN) *...P.. * GOSUB
11000 (CLEAR THE BIT MAP *...Z..
* SCREEN)
*...D..* GOSUB 12000 (DO A GLOBAL CO
LOUR *...N..* CHANGE
) *.J.X..* GOSUB 13000
(PLOT A POINT) *.Z....* GOSUB
14000 (DRAW A LINE) *......
* GOSUB 15000 (DISPLAY A STRING ON TH
E*.Z....* SCREEN)
*... ..*
*.:....****************
**************************.P...PC.1:SC.2
:. 10000.Q...B$."Y=SIN(X)":RN.1:AD.0:PC.
5...H.X.0:XX.8:Y.192:YY.0:. 15000...R.PC
.1:X1.0:Y1.100:AD.0...... X2.1 . 320 . 2
.....Y2.100.(90..(X2...45.5))...... 1400
0...... X2...... X.0 . 319 . .5."...Y.10
0.(90..(X...45.5))...... 13000.6.".. X.K
.,.. I.1 . 1000:. I.U.6.. .A(Y).38.(.(Y.
24)..48..(3.Y.24)).20...;.. J.1.2...@.PC
.6:SC.12:. 12000...J.. 11000.E.T.B$."3D
GRAPH":RN.1:AD.0:PC.0...^.X.0:XX.8:Y.192
:YY.0:. 15000...H.PC.6...R.. XX..100 . 0
. 1...|.K.6:L.0:P.1:Z1.0:M.1.:...Y1.K..
(.(10000.XX.XX).K).P.... Z.Y1 . .Y1 . .K
.W...Y..(80..A(.(XX.XX.Z.Z))..707106.Z).
..... Y.L . 470.....L.Y:Y.190.Y.....X.M.
XX.160...B.. 13000.F.L.M..M:. M..1.440.Q
.V.. Z,XX...... I.1 . 1000:. I...... .A(
Y).90..(.Y.Y.600)...... J.'....53272,21:
.53265,27:.".";.V...." .AGAIN. ?
(Y/N) OR .S. TO LIST".{....A$:.A$.."Y".
A$.."N".A$.."S".530......A$."Y".....&..A
$."S".....0..". REWIND TO MEN
U".R.:..DE.1.1000:.:.64738....'. SET UP
HIRES SCREEN....'. 89,SC.PC.16...$'.(286
72)....'..-..*. CLEAR GRAPHICS SCREEN.:.
.+.(28704).@..+..[.... GLOBAL COLOUR CHA
NGE.M.... 89,SC.PC.16.Z....(28743)......
...H2. PLOT A POINT AT X,Y...R2. 89,X..(
X.256).256.D..2. 90,.(X.256).R..2. 91,.(
Y)....2. 784,AD....2. 879,PC....3.(28782
)....3.....6. DRAW A LINE BETWEEN X1,Y1.
/..6. AND X2,Y2.J.D6. 828,X1..(X1.256).2
56.^.N6. 829,.(X1.256).Y.X6. 830,Y1..(Y1
.256).256....6. 831,.(Y1.256)....6. 832,
X2..(X2.256).256....6. 833,.(X2.256).W..
7. 834,Y2..(Y2.256).256....7. 835,.(Y2.2
56)....7. 786,AD....7. 879,PC...(7.(2915
8)...27..:..:. PLOT CHARACTER A$ ON TO T
HE.\..:. SCREEN WITH TOP LEFT COORD-.M..
:. INATES X,Y.|..:.I.1.C(B$)....:A$.J(B$
,I,1)...J:. 866,X..(X.256).256...T:. 867
,.(X.256).L..:. 868,Y:.689,0....:. 870,F
(A$)....:. 871,RN....:. 784,AD....;. 879
,PC....;.(29749)."..;X.X.XX:Y.Y.YY.(.$;.
....;.....
> CLICK IMAGE PREVIEW FOR FULL MODAL