Your Commodore - Commodore Is Awesome

C64 PROGRAMMING
EA
A2
SC
E3
56
1520 DATA 255,99.230,63,206,
2,230,64,165.63,205,93,158,2
08,226,165,2423
1530 DATA 64,205,94,158,208,
219,169.3,32,195,255,32,204,
255,76,130,2249
1540 DATA 110,238,130,155,23
8,130,155,174,130,155,160,0,
140,125.155,189.2364
1550 DATA 151,1'39,201,34.240
,16,201,32.240,15,201,13.240
,11,153,131.2041
1560 DATA 155.232,200,238,12
6,155,76,143.156,173,116,155
AF
EE
55
CS
35
1760 DATA 83,65,86,69,32.83,
99
, 6,11251
77 1790 DATA 69,13,62.45,82,59,
, 78,89,77,66,69,82,13.83.4537
6,1034
66
1600 DATA 73,513.64.32,70,6E,
,
79,77,32,66,73,03,75,13,65,4
79 5,1054
. 1810 DATA 65,85,64.79,13,8E,
76 45,83,65.86,69,32,77,47,67,1
. 3,968
31620
DATA 89,45,83,89,77,66,
2. 79,76,32,84,65,66,76,89,13,9
58
FF
01
66
913
2040 DATA 32,32.32,32,32,32.
32.32,32,32,32.32.32,32,32,3
2,512
2050 DATA 32.32,32,32,32,32,
32,32.32,32,32,32,32,32,32,3
2,512
2060 DATA 32,32,32.32,32,32,
32.32,32,32,32,32,32,32,32,3
2,512
2070 DATA 32,32,32.32,32,32.
32,32,32,32.32,32,32.32,32.3
2,512
2080 DATA 32.32,32,32,32,32,
32,32,32,32,32,32,32,32,32,3
AD
4E
,174,116,155,160,2529
1670 DATA 0,32,186,255,173,1
25,155.162,131.160,155,32.18
9,255,169,0,2179
1560 DATA 174,116,155,172.12
0,165,32,213,e55,144,30,1 69,
45,160,146,32,2123
E3
9F
0,1099 84
. 1830 DATA 45,68,79,63,32.83,
65 65,90.80,79,02,84,0,0,0,173,
1053
,
1840 DATA 116,155,170,160,1.
66
32,166,255,32,121,155,173,12
5,155,162,131,2129
,7
A7
2,512
2090 DATA 32.32,32.32,32,3P,
32,32,32,32,32,32,32,32,32,3
2,512
96 1590 DATA 52,131,32,237,146, SE 11350 DATA 160,155,32.189,255
32,147,146,201,63,208,205,15 ,173,94,131,133,63,173.95.13
21
9 ,
71600
DATA 32.52,131,169,1,14 65
1,133,84,174,21SS
1860 DATA 26,122,172,27,126,
6 1,42,129,96,142,119,155,140, ,
159.63,32,216,255,76.80.110,
EB
it
DC
1120,155,32,1656
6
1610 DATA 219,124.96.160,0,1
74.117,155,173,116,155,134,6
0 ,
3,133
1
91620
DATA 0,32,52,157.201,25
4
64,16 5,240,14,201,1,240,21,201,2.
3 ,
9.205 240,17,1874
2
41630
DATA 32,45,157,75,255,1
56,165,63.141.93,158,165,64, 1
39
05
59
173.116,155,1926
1870 DATA 170,160,1,32.166,2
55,32,121,155,173,125.155,16
2,131,160,155,2173
1880 DATA 32,189,255,173,06,
131,133,63,173,97,131,133.64
,174,98.131,2073
11390 DATA 172,99,131,169,63,
32.216,255,76,60,110,169,45,
5141.94.156,1963
1E0,159.32.1968
BA 21640
DATA 96,32,45,157,32.45 A7 1900 DATA 52,131,32.103,114,
,157,32,45,157,76,255,156,23 169.0,141,130,155.32,29,128,
0.63,206,1766 273,21,128.1538
FB 1650 DATA 2.230,64.96,120,16 SE 1910 DATA 141,83,159,173,22,
2,44,134,1,160,0.177,63,16E, 128,141,64.156,169.59.160,15
55,134,1604 9,32,52,131,1892
40 1660 DATA 1,86,96,169,84,160 As 1920 DATA 32,103,114,169.0,1
,157,32,52,131,169,223.160,1 41,130,155,32,29,128,169,71.
57,32,52,1763 160,159.32,1624
32 1670 DATA 131,76,80,110,13,6 17 1930 DATA 52,131,32,103,114,
9,45,65.63,83,69,77,66,76,69 162,0,189,151,159.157,131,15
62
,13,1121
1680 DATA 66.45.65,65,03,73, ED
5,201,13,240,1990
1940 DATA 3,232.208,243,136, PPUGHAM:MACRODEMO
67,13,68,45,66,73,82,69,67,8 162,131,160,155,32,189,255,1
4,1034 73.116.155,170,2522 16 10 1 A SIMPLE DEMONSTRATION
15 1690 DATA 79,82,89,13,69,4, 30 1960 DATA 160,1.32,186,255,1 OF MACROS IN A C T I O N .
69,86,65,76,85,65,64,69,32,6 73,83,159.133,63,173,84,159, 2A 11 1
9,1077 133,64,174,2032 OF 12 OUT 3
SA 1700 DATA 88,80,82,69,83,03, 76 1960 DATA 21.126,172,22,128,
20 13 !
73,79,78.13,70,45,70,73,76,6 169,63,32,216,255,76,60,110,
3A 14 I DEFINE MACROS INTO CuRR
8,1132 13,83,84,1652 ENT MACRO LIBRARY
FA 1710 DATA 32.83.84,82,73,78, 19 1970 DATA 65,62,e4,32,65,68, 2E IS 1
9B
67
09
7 1 , 1 3 ,
75,1042
1 1720 , 4 5 DATA , 7 68,68,82,69,83,63,
1 13,72,45,72,69,76,60,13,73,4 , 7 9 . 8
4 5,1011 , 7 9 , 3
2
1730
, 6
DATA 83,65,66,69,32,79,
66,74,69,67.94,32.40,79,02,7
1,1078
1740 DATA 41,13,74,45,83,65,
86,69,32,79,66.74.69,67,64,3
2,979
48
93
26
66,62.63.13,0,13,69,78,68,32
,662
1880 DATA 65.66,66.52.63,13.
0
, ,949
11990
DATA 63,13,0,0,0,169,10
36,1E0,159.141,24,3:140,25,3,
32,1036
,
2000 DATA 66,229,169,71,160,
7
111,32,52,131,96.72.138,72,1
052,72,1E9,1794
16
FB
EU
32
El
34
BS
36
01
38
24
16 +CLS
17 +PRINTAT
18 +COLOUR
19 I
20 0 -
21 $ CI0 022 0 START !
23 P
24 ! INUOKE THE MACROS
26 !
26 TCLS
3A 1750 DATA 40,76,79,65,651,41,
13,76,45,76,73,83,84,13,0,77
OB , 2010 DATA 140,160,159
79
171,169,19,141,119,2,169,13,
BO
A3
27 @COLOUR 0,3,3
254 TPRINTAT 10.10,"TEXT TO B
20
,909
1760 DATA 45,77,65,67,82,79, 56
332,30,
141,120.2,1587
2020 , DATA 189,2,133,198,104. 30
E PRINTED"
29 1
32,76,73,56,62,65,62,99.13,7 7168,104,170,104,76,71,254,14
F3 30 RTS
30
6.1071
1770 DATA 45.65,60,60,69,76,
651,13.79,45,79,76,68,13.81,4
5,664
52
7,83,89,83,1955 6
, 2030 DATA 32,50,56,50,40,53,
0,32.32,32,32.32.32,32,32,3P 8
,578
9
,
7
8
.
AE
01
82
31 RUN START ! SET EXECUTION
ADDRESS
32
33 ! ONCE ASSEMBLED USE '6'
TO RUN THE OBJECT CODE
Forty Eight
6
5
,
YOUR COMMODORE