�"�PROG2
�"�GRAPHICS CURSOR
�5
('�23,224,60,66,165,129,165,153,66,60
2(�23,225,25,127,254,188,60,60,102,231
<�5
F�"�SIMPLE PLOTTING/PRINTING
PX=0:Y=0
Z&�4:�X,Y)"MOVEX,Y:PRINTCHR$224":�5
d	x=640
n	y=960
x�x,y:�224
� 
��"�USING VDU to PRINT
�	Y=Y+4
�$�4:�X,Y)"USING VDU to PRINT":�5
�y=y-128
�
�x,y:�224
� 
��"�ADD G-COLOUR
�	Y=Y+4
�#�4:�X,Y)"ADD COLOUR (GCOL)":�5
�y=y-128
��0,1
�
�x,y:�224

 

�"�TWO CHRS

	Y=Y+4

"�4:�X,Y)"TWO CHRS PRINTED"

,'�"SEPARATELY ONE BELOWTHE OTHER":�5

6y=y-192

@
�x,y:�224

J�x,y-32:�225

T 

^�"�TWO CHRS AS ONE

h	Y=Y+7

ry=y-160

|!�4:�X,Y)"TWO CHRS AS ONE":�5

�A$=�224

�B$=�225

�C$=A$+�8+�10+B$

��x,y:�C$

� 

��"�COLOUR INCLUDED!

�	Y=Y+5

�y=y-160

�"�4:�X,Y)"COLOUR INCLUDED!":�5

�C$=�18+�0+�1+C$

��x,y:�C$

� 

�	Y=Y+5
�4:�3,Y)"PRESS SPACEBAR"

���=32
�
& 
0�"�DIFFERENT COLS"
:X=0:Y=0
D	x=640
N	y=960
X�X,Y)"DIFFERENT COLOURS"
b�5
l'C$=�18+�0+�1+A$+�8+�10+�18+�0+�2+B$
v�x,y:�C$
� 
��"�MULTI COLOUR!
�	Y=Y+5
�y=y-160
��4:�X,Y)"MULTI COLOUR!":�5
�#�23,226,0,60,90,126,90,102,60,0
�/C$=�18+�0+�1+A$+�8+�18+�0+�2+�226+�8+�10+B$
��x,y:�C$
� 
��"�MORE COLOURS!
� �23,227,0,0,0,0,60,0,102,231
�	Y=Y+5
�y=y-160
#�4:�X,Y)"WHITE BOOTS/BELT!":�5
C$=C$+�8+�18+�0+�3+�227
�x,y:�C$
�

00000000  0d 00 0a 0c f4 22 83 50  52 4f 47 32 0d 00 14 16  |.....".PROG2....|
00000010  f4 22 81 47 52 41 50 48  49 43 53 20 43 55 52 53  |.".GRAPHICS CURS|
00000020  4f 52 0d 00 1e 06 eb 35  0d 00 28 27 ef 32 33 2c  |OR.....5..('.23,|
00000030  32 32 34 2c 36 30 2c 36  36 2c 31 36 35 2c 31 32  |224,60,66,165,12|
00000040  39 2c 31 36 35 2c 31 35  33 2c 36 36 2c 36 30 0d  |9,165,153,66,60.|
00000050  00 32 28 ef 32 33 2c 32  32 35 2c 32 35 2c 31 32  |.2(.23,225,25,12|
00000060  37 2c 32 35 34 2c 31 38  38 2c 36 30 2c 36 30 2c  |7,254,188,60,60,|
00000070  31 30 32 2c 32 33 31 0d  00 3c 06 ef 35 0d 00 46  |102,231..<..5..F|
00000080  1f f4 22 81 53 49 4d 50  4c 45 20 50 4c 4f 54 54  |..".SIMPLE PLOTT|
00000090  49 4e 47 2f 50 52 49 4e  54 49 4e 47 0d 00 50 0b  |ING/PRINTING..P.|
000000a0  58 3d 30 3a 59 3d 30 0d  00 5a 26 ef 34 3a f1 8a  |X=0:Y=0..Z&.4:..|
000000b0  58 2c 59 29 22 4d 4f 56  45 58 2c 59 3a 50 52 49  |X,Y)"MOVEX,Y:PRI|
000000c0  4e 54 43 48 52 24 32 32  34 22 3a ef 35 0d 00 64  |NTCHR$224":.5..d|
000000d0  09 78 3d 36 34 30 0d 00  6e 09 79 3d 39 36 30 0d  |.x=640..n.y=960.|
000000e0  00 78 0e ec 78 2c 79 3a  f1 bd 32 32 34 0d 00 82  |.x..x,y:..224...|
000000f0  05 20 0d 00 8c 19 f4 22  82 55 53 49 4e 47 20 56  |. .....".USING V|
00000100  44 55 20 74 6f 20 50 52  49 4e 54 0d 00 96 09 59  |DU to PRINT....Y|
00000110  3d 59 2b 34 0d 00 a0 24  ef 34 3a f1 8a 58 2c 59  |=Y+4...$.4:..X,Y|
00000120  29 22 55 53 49 4e 47 20  56 44 55 20 74 6f 20 50  |)"USING VDU to P|
00000130  52 49 4e 54 22 3a ef 35  0d 00 aa 0b 79 3d 79 2d  |RINT":.5....y=y-|
00000140  31 32 38 0d 00 b4 0d ec  78 2c 79 3a ef 32 32 34  |128.....x,y:.224|
00000150  0d 00 be 05 20 0d 00 c8  13 f4 22 83 41 44 44 20  |.... .....".ADD |
00000160  47 2d 43 4f 4c 4f 55 52  0d 00 d2 09 59 3d 59 2b  |G-COLOUR....Y=Y+|
00000170  34 0d 00 dc 23 ef 34 3a  f1 8a 58 2c 59 29 22 41  |4...#.4:..X,Y)"A|
00000180  44 44 20 43 4f 4c 4f 55  52 20 28 47 43 4f 4c 29  |DD COLOUR (GCOL)|
00000190  22 3a ef 35 0d 00 e6 0b  79 3d 79 2d 31 32 38 0d  |":.5....y=y-128.|
000001a0  00 f0 08 e6 30 2c 31 0d  00 fa 0d ec 78 2c 79 3a  |....0,1.....x,y:|
000001b0  ef 32 32 34 0d 01 04 05  20 0d 01 0e 0f f4 22 84  |.224.... .....".|
000001c0  54 57 4f 20 43 48 52 53  0d 01 18 09 59 3d 59 2b  |TWO CHRS....Y=Y+|
000001d0  34 0d 01 22 1f ef 34 3a  f1 8a 58 2c 59 29 22 54  |4.."..4:..X,Y)"T|
000001e0  57 4f 20 43 48 52 53 20  50 52 49 4e 54 45 44 22  |WO CHRS PRINTED"|
000001f0  0d 01 2c 27 f1 22 53 45  50 41 52 41 54 45 4c 59  |..,'."SEPARATELY|
00000200  20 4f 4e 45 20 42 45 4c  4f 57 54 48 45 20 4f 54  | ONE BELOWTHE OT|
00000210  48 45 52 22 3a ef 35 0d  01 36 0b 79 3d 79 2d 31  |HER":.5..6.y=y-1|
00000220  39 32 0d 01 40 0d ec 78  2c 79 3a ef 32 32 34 0d  |92..@..x,y:.224.|
00000230  01 4a 10 ec 78 2c 79 2d  33 32 3a ef 32 32 35 0d  |.J..x,y-32:.225.|
00000240  01 54 05 20 0d 01 5e 16  f4 22 85 54 57 4f 20 43  |.T. ..^..".TWO C|
00000250  48 52 53 20 41 53 20 4f  4e 45 0d 01 68 09 59 3d  |HRS AS ONE..h.Y=|
00000260  59 2b 37 0d 01 72 0b 79  3d 79 2d 31 36 30 0d 01  |Y+7..r.y=y-160..|
00000270  7c 21 ef 34 3a f1 8a 58  2c 59 29 22 54 57 4f 20  ||!.4:..X,Y)"TWO |
00000280  43 48 52 53 20 41 53 20  4f 4e 45 22 3a ef 35 0d  |CHRS AS ONE":.5.|
00000290  01 86 0b 41 24 3d bd 32  32 34 0d 01 90 0b 42 24  |...A$=.224....B$|
000002a0  3d bd 32 32 35 0d 01 9a  13 43 24 3d 41 24 2b bd  |=.225....C$=A$+.|
000002b0  38 2b bd 31 30 2b 42 24  0d 01 a4 0c ec 78 2c 79  |8+.10+B$.....x,y|
000002c0  3a f1 43 24 0d 01 ae 05  20 0d 01 b8 17 f4 22 86  |:.C$.... .....".|
000002d0  43 4f 4c 4f 55 52 20 49  4e 43 4c 55 44 45 44 21  |COLOUR INCLUDED!|
000002e0  0d 01 c2 09 59 3d 59 2b  35 0d 01 cc 0b 79 3d 79  |....Y=Y+5....y=y|
000002f0  2d 31 36 30 0d 01 d6 22  ef 34 3a f1 8a 58 2c 59  |-160...".4:..X,Y|
00000300  29 22 43 4f 4c 4f 55 52  20 49 4e 43 4c 55 44 45  |)"COLOUR INCLUDE|
00000310  44 21 22 3a ef 35 0d 01  e0 13 43 24 3d bd 31 38  |D!":.5....C$=.18|
00000320  2b bd 30 2b bd 31 2b 43  24 0d 01 ea 0c ec 78 2c  |+.0+.1+C$.....x,|
00000330  79 3a f1 43 24 0d 01 f4  05 20 0d 01 fe 09 59 3d  |y:.C$.... ....Y=|
00000340  59 2b 35 0d 02 08 1d ef  34 3a f1 8a 33 2c 59 29  |Y+5.....4:..3,Y)|
00000350  22 50 52 45 53 53 20 53  50 41 43 45 42 41 52 22  |"PRESS SPACEBAR"|
00000360  0d 02 12 0a f5 fd a5 3d  33 32 0d 02 1c 05 db 0d  |.......=32......|
00000370  02 26 05 20 0d 02 30 16  f4 22 86 44 49 46 46 45  |.&. ..0..".DIFFE|
00000380  52 45 4e 54 20 43 4f 4c  53 22 0d 02 3a 0b 58 3d  |RENT COLS"..:.X=|
00000390  30 3a 59 3d 30 0d 02 44  09 78 3d 36 34 30 0d 02  |0:Y=0..D.x=640..|
000003a0  4e 09 79 3d 39 36 30 0d  02 58 1d f1 8a 58 2c 59  |N.y=960..X...X,Y|
000003b0  29 22 44 49 46 46 45 52  45 4e 54 20 43 4f 4c 4f  |)"DIFFERENT COLO|
000003c0  55 52 53 22 0d 02 62 06  ef 35 0d 02 6c 27 43 24  |URS"..b..5..l'C$|
000003d0  3d bd 31 38 2b bd 30 2b  bd 31 2b 41 24 2b bd 38  |=.18+.0+.1+A$+.8|
000003e0  2b bd 31 30 2b bd 31 38  2b bd 30 2b bd 32 2b 42  |+.10+.18+.0+.2+B|
000003f0  24 0d 02 76 0c ec 78 2c  79 3a f1 43 24 0d 02 80  |$..v..x,y:.C$...|
00000400  05 20 0d 02 8a 14 f4 22  81 4d 55 4c 54 49 20 43  |. .....".MULTI C|
00000410  4f 4c 4f 55 52 21 0d 02  94 09 59 3d 59 2b 35 0d  |OLOUR!....Y=Y+5.|
00000420  02 9e 0b 79 3d 79 2d 31  36 30 0d 02 a8 1f ef 34  |...y=y-160.....4|
00000430  3a f1 8a 58 2c 59 29 22  4d 55 4c 54 49 20 43 4f  |:..X,Y)"MULTI CO|
00000440  4c 4f 55 52 21 22 3a ef  35 0d 02 b2 23 ef 32 33  |LOUR!":.5...#.23|
00000450  2c 32 32 36 2c 30 2c 36  30 2c 39 30 2c 31 32 36  |,226,0,60,90,126|
00000460  2c 39 30 2c 31 30 32 2c  36 30 2c 30 0d 02 bc 2f  |,90,102,60,0.../|
00000470  43 24 3d bd 31 38 2b bd  30 2b bd 31 2b 41 24 2b  |C$=.18+.0+.1+A$+|
00000480  bd 38 2b bd 31 38 2b bd  30 2b bd 32 2b bd 32 32  |.8+.18+.0+.2+.22|
00000490  36 2b bd 38 2b bd 31 30  2b 42 24 0d 02 c6 0c ec  |6+.8+.10+B$.....|
000004a0  78 2c 79 3a f1 43 24 0d  02 d0 05 20 0d 02 da 14  |x,y:.C$.... ....|
000004b0  f4 22 82 4d 4f 52 45 20  43 4f 4c 4f 55 52 53 21  |.".MORE COLOURS!|
000004c0  0d 02 e4 20 ef 32 33 2c  32 32 37 2c 30 2c 30 2c  |... .23,227,0,0,|
000004d0  30 2c 30 2c 36 30 2c 30  2c 31 30 32 2c 32 33 31  |0,0,60,0,102,231|
000004e0  0d 02 ee 09 59 3d 59 2b  35 0d 02 f8 0b 79 3d 79  |....Y=Y+5....y=y|
000004f0  2d 31 36 30 0d 03 02 23  ef 34 3a f1 8a 58 2c 59  |-160...#.4:..X,Y|
00000500  29 22 57 48 49 54 45 20  42 4f 4f 54 53 2f 42 45  |)"WHITE BOOTS/BE|
00000510  4c 54 21 22 3a ef 35 0d  03 0c 1b 43 24 3d 43 24  |LT!":.5....C$=C$|
00000520  2b bd 38 2b bd 31 38 2b  bd 30 2b bd 33 2b bd 32  |+.8+.18+.0+.3+.2|
00000530  32 37 0d 03 16 0c ec 78  2c 79 3a f1 43 24 0d ff  |27.....x,y:.C$..|
00000540