CLEAR/PLOT BAS64

00000000: 01 04 37 04 00 00 8F 20  54 48 45 20 54 52 41 4E  |..7.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56  4F 4C 55 4D 45 20 35 20  |SACTOR VOLUME 5 |
00000020: 49 53 53 55 45 20 30 35  20 20 20 20 20 20 20 20  |ISSUE 05        |
00000030: 50 41 47 45 20 31 35 00  51 04 01 00 8F 20 50 4C  |PAGE 15.Q.... PL|
00000040: 4F 54 20 41 20 53 49 4E  47 4C 45 20 50 4F 49 4E  |OT A SINGLE POIN|
00000050: 54 00 6B 04 64 00 8F 20  43 4C 45 41 52 20 48 49  |T.k.d.. CLEAR HI|
00000060: 2D 52 45 53 20 53 43 52  45 45 4E 00 AD 04 6E 00  |-RES SCREEN...n.|
00000070: 83 20 31 36 32 2C 33 32  2C 31 36 30 2C 30 2C 31  |. 162,32,160,0,1|
00000080: 35 32 2C 31 34 35 2C 32  35 31 2C 32 30 30 2C 32  |52,145,251,200,2|
00000090: 30 38 2C 32 35 31 2C 32  33 30 2C 32 35 32 2C 32  |08,251,230,252,2|
000000A0: 30 32 2C 32 30 38 2C 32  34 36 2C 39 36 00 C8 04  |02,208,246,96...|
000000B0: 78 00 81 49 B2 30 A4 31  35 3A 87 20 41 3A 97 38  |x..I.0.15:. A:.8|
000000C0: 32 38 AA 49 2C 41 3A 82  00 E7 04 79 00 86 20 45  |28.I,A:....y.. E|
000000D0: 28 37 29 3A 81 49 B2 30  A4 37 3A 45 28 37 AB 49  |(7):.I.0.7:E(7.I|
000000E0: 29 B2 32 AE 49 3A 82 00  FE 04 7A 00 97 35 33 32  |).2.I:....z..532|
000000F0: 38 30 2C 30 3A 20 97 35  33 32 38 31 2C 30 00 04  |80,0: .53281,0..|
00000100: 05 7B 00 3A 00 2C 05 82  00 97 32 35 31 2C 30 3A  |.{.:.,....251,0:|
00000110: 20 97 32 35 32 2C 33 32  3A 20 8F 2A 20 53 54 41  | .252,32: .* STA|
00000120: 52 54 20 41 44 44 52 45  53 53 20 2A 00 43 05 96  |RT ADDRESS *.C..|
00000130: 00 8F 20 50 4C 4F 54 20  50 4F 49 4E 54 20 28 58  |.. PLOT POINT (X|
00000140: 2C 59 29 00 63 05 A0 00  99 22 45 4E 54 45 52 20  |,Y).c...."ENTER |
00000150: 58 2C 59 20 4F 46 20 50  4F 49 4E 54 22 3A 85 20  |X,Y OF POINT":. |
00000160: 58 2C 59 00 88 05 AA 00  9E 38 32 38 3A 20 8F 2A  |X,Y......828: .*|
00000170: 20 45 58 45 43 55 54 45  20 43 4C 45 41 52 20 52  | EXECUTE CLEAR R|
00000180: 4F 55 54 49 4E 45 20 2A  00 AE 05 AB 00 99 22 93  |OUTINE *......".|
00000190: 22 3B 3A 20 8F 2A 20 43  4F 4C 4F 55 52 20 4D 45  |";: .* COLOUR ME|
000001A0: 4D 3D 52 45 44 20 4F 4E  20 42 4C 41 43 4B 00 C9  |M=RED ON BLACK..|
000001B0: 05 B4 00 97 20 35 33 32  37 32 2C 32 37 3A 20 97  |.... 53272,27: .|
000001C0: 20 35 33 32 36 35 2C 35  39 00 DC 05 BE 00 42 B2  | 53265,59.....B.|
000001D0: 38 31 39 32 3A 20 8D 20  31 30 30 30 00 E5 05 C8  |8192: . 1000....|
000001E0: 00 85 20 41 24 00 00 06  D2 00 97 20 35 33 32 37  |.. A$...... 5327|
000001F0: 32 2C 32 33 3A 20 97 20  35 33 32 36 35 2C 32 37  |2,23: . 53265,27|
00000200: 00 0A 06 DC 00 89 20 31  33 30 00 10 06 E6 00 3A  |...... 130.....:|
00000210: 00 33 06 E8 03 8F 2A 20  50 4C 4F 54 20 41 20 50  |.3....* PLOT A P|
00000220: 4F 49 4E 54 20 54 48 45  20 46 41 53 54 20 57 41  |OINT THE FAST WA|
00000230: 59 20 2A 00 54 06 F2 03  4C B2 42 AA 28 59 AF 32  |Y *.T...L.B.(Y.2|
00000240: 34 38 29 AC 34 30 AA 28  59 AF 37 29 AA 28 58 AF  |48).40.(Y.7).(X.|
00000250: 35 30 34 29 00 69 06 FC  03 97 20 4C 2C C2 28 4C  |504).i.... L,.(L|
00000260: 29 B0 20 45 28 58 AF 37  29 00 6F 06 06 04 8E 00  |). E(X.7).o.....|
00000270: 00 00                                             |..              |

..7.... THE TRANSACTOR VOLUME 5 ISSUE 05
        PAGE 15.Q.... PLOT A SINGLE POIN
T.K.D.. CLEAR HI-RES SCREEN...N.. 162,32
,160,0,152,145,251,200,208,251,230,252,2
02,208,246,96.H.X..I.0.15:. A:.828.I,A:.
...Y.. E(7):.I.0.7:E(7.I).2.I:....Z..532
80,0: .53281,0...{.:.,....251,0: .252,32
: .* START ADDRESS *.C.... PLOT POINT (X
,Y).C. .."ENTER X,Y OF POINT":. X,Y.....
.828: .* EXECUTE CLEAR ROUTINE *......".
";: .* COLOUR MEM=RED ON BLACK.I.... 532
72,27: . 53265,59.....B.8192: . 1000...H
.. A$...R.. 53272,23: . 53265,27...... 1
30.....:.3....* PLOT A POINT THE FAST WA
Y *.T...L.B.(Y.248).40.(Y.7).(X.504).I..
.. L,B(L). E(X.7).O.......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL