� SKETCH
$� Electron Introductory Cassette
� Author T.D.
(�
2��M%=1234��T|@��M%=5678��DF@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�DF@�M%=1234
<��1,-15,121,60:�5:�19,3,4;0;:�1:�8,9)"STOP";:�3:�6,13)"the tape":�2:�4,25)"Press SPACE"�4,27)"to continue":���=32:�&11,0,0,0
F��tPA
P� MAP 255,BLOCK 8
Zosword=&FFF1
d*MINX%=0:MAXX%=1272:MINY%=104:MAXY%=956
n�4
x�OFF
��INITDBL
��TITLEPAGE:�INSTRUCTIONS
�
�2:�SETUP
�&X%=600:Y%=512:K%=5:COL%=8:DFLAG%=0
��INV(0):�INV(1)
�
�CROSS
��
�
�CROSS
�)KEY%=�0:NKEY%=KEY%�&10:AKEY%=KEY%�&DF
�� KEY%=-1 � �TNA
�R� NKEY%>=�"0" � NKEY%<=�"8" � COL%<>��NKEY% �INV(1):COL%=��NKEY%:�INV(1):�TNA
�:� AKEY%=�"D" � DFLAG%=1 �INV(0):DFLAG%=0:�INV(0):�TNA
�:� AKEY%=�"F" � DFLAG%=0 �INV(0):DFLAG%=1:�INV(0):�TNA

� AKEY%=�"C" ��:�:�tt@

� X%,Y%

NX%=X%-8*(�-122-�-26)

" �NX%<=MINX%�NX%>=MAXX%NX%=X%

,/NY%=Y%-4*(1-(NX%<>X%�DFLAG%=0))*(�-58-�-42)

6 �NY%<=MINY%�NY%>=MAXY%NY%=Y%

@K%=5+&48*DFLAG%+(COL%=8)

J#�COL%=0�DFLAG% �0,128+�NX%,NY%)

T�0,COL%

^X%=NX%:Y%=NY%

h
�K%,X%,Y%

r
�CROSS

|� �

� 

�"� �<>17 �:�" at line ";�:�tnA

�L�4:�CEN("Do you want to go on to",12):�CEN("the next program (Y/N)?",13)

��YN:� Y%=0 � �Dn@

�*FX4

��''"Play tape"'

��""

� 

���SETUP

�
*FX4,2

�� +

�'�23,224,0,0,&08,&08,&1C,&08,&08,0,0

�� Clear
+�23,226,&D3,&92,&92,&93,&92,&92,&DB,&DB
+�23,227,&77,&55,&55,&76,&57,&55,&55,&55
� Blank
&+�23,228,&FF,&81,&81,&81,&81,&81,&81,&FF
0� MO
:+�23,229,&8B,&DA,&AA,&AA,&8A,&8A,&8A,&8B
D� VE
N+�23,230,&AB,&AA,&AA,&AB,&AA,&AA,&92,&93
X� Solid
b�23,255,-1;-1;-1;-1;
lD�MINX%,MINY%:�MAXX%,MINY%:�MAXX%,MAXY%:�MINX%,MAXY%:�MINX%,MINY%
v�5
��32,92:�"C";
��0,60:�226,227
��184,60:�228
�%�I%=0�7:�184+120*I%,92:�I%+�"0":�
�'�I%=1�7:�184+120*I%,60:�0,I%:�255:�
��0,7:�1184,92:�"8";
��1152,60:�229,230
��4
��3,1);"D-Draw  F-Fill";
��5
��WINDOW
��
� 
��CROSS
�3,7
�X%-32,Y%+16
 �224
*�
4 
>3��WINDOW �24,MINX%+8;MINY%+4;MAXX%-8;MAXY%-4;:�
H 
R��INV(TYPE)
\�26
f�4,0
p=�TYPE �184+120*COL%-40*(COL%=8),92 � �64*(3+8*DFLAG%),988
z�255
��WINDOW
�
�X%,Y%
��
� 
���INSTRUCTIONS
�
�:�'''
�+�"    This  program allows you to draw"
�+�"    pictures on the screen using the"
�+�"    four  cursor  control  keys (the"
�+�"    ones   with   arrows  marked  on"
��"    them.)"''
�+�"    The  number  keys  at the top of"
�+�"    the  keyboard  select the colour"
+�"    of  the  line  (1 - 7),  or  the"
-�"    move (8) or erase (0) functions."''
+�"    The  'C' key  clears the screen,"
$+�"    and 'D' and 'F'  switch  between"
.+�"    drawing  lines  and  filling  in"
8�"    areas  respectively."
B
�SPACE
L�
V 
`��SPACE
j.�4,25);"Press the SPACE BAR to continue";
t*FX15,1
~
� � �=" "
��
� 
���TITLEPAGE
��DBL("Sketch",12)
�I%=�500
��
� 
���OFF �23,1,0;0;0;0;:�
� 
���YN
�	Y%=-1
�X%=�
!X%=X%�&DF:�X%<>78�X%<>89��dvD

Y%=1:�X%=78�Y%=0
�X%,8:�
 
(%��CEN(A$,y%)�(38-�A$)/2,y%)A$;:�
2 
<3��INITDBL $MAP=�255,�0):MAP?255=0:CHARPTR=224:�
F 
PV��DBL(A$,y%)B$="":C$="":�CH%=1��A$:K%=�CHAR(��A$,CH%,1)):B$=B$+�K%:C$=C$+�(K%+1):�
ZEx%=640-16*�A$:�5:�x%,1020-y%*32:�B$;:�x%,988-y%*32:�C$;:�4:�OFF:�
d 
nlݤCHAR(C%)�MAP?C%�=MAP?C%��CHARPTR>=256� �MAP?C%=CHARPTR:?BLOCK=C%:A%=10:X%=BLOCK:Y%=BLOCK � 256:�osword
xR�J%=0�1:�23,CHARPTR+J%:�I%=2�9:�BLOCK?(J%*4+I%�2):�,:CHARPTR=CHARPTR+2:=MAP?C%
�

00000000  0d 00 0a 0c f4 20 53 4b  45 54 43 48 0d 00 14 24  |..... SKETCH...$|
00000010  f4 20 45 6c 65 63 74 72  6f 6e 20 49 6e 74 72 6f  |. Electron Intro|
00000020  64 75 63 74 6f 72 79 20  43 61 73 73 65 74 74 65  |ductory Cassette|
00000030  0d 00 1e 11 f4 20 41 75  74 68 6f 72 20 54 2e 44  |..... Author T.D|
00000040  2e 0d 00 28 07 ee 85 f9  0d 00 32 99 e7 4d 25 3d  |...(......2..M%=|
00000050  31 32 33 34 8c 8d 54 7c  40 8b e7 4d 25 3d 35 36  |1234..T|@..M%=56|
00000060  37 38 8c 8d 44 46 40 8b  eb 35 3a ef 31 39 2c 33  |78..DF@..5:.19,3|
00000070  2c 34 3b 30 3b 3a fb 32  3a f1 8a 30 2c 35 29 22  |,4;0;:.2:..0,5)"|
00000080  44 6f 65 73 20 79 6f 75  72 20 63 61 73 73 65 74  |Does your casset|
00000090  74 65 22 27 27 22 72 65  63 6f 72 64 65 72 20 68  |te"''"recorder h|
000000a0  61 76 65 20 6d 6f 74 6f  72 22 27 27 22 63 6f 6e  |ave motor"''"con|
000000b0  74 72 6f 6c 20 28 59 2f  4e 29 3f 22 3b 3a e7 28  |trol (Y/N)?";:.(|
000000c0  a5 80 26 44 46 29 3d 97  22 59 22 8c 4d 25 3d 35  |..&DF)=."Y".M%=5|
000000d0  36 37 38 3a e5 8d 44 46  40 8b 4d 25 3d 31 32 33  |678:..DF@.M%=123|
000000e0  34 0d 00 3c 82 d4 31 2c  2d 31 35 2c 31 32 31 2c  |4..<..1,-15,121,|
000000f0  36 30 3a eb 35 3a ef 31  39 2c 33 2c 34 3b 30 3b  |60:.5:.19,3,4;0;|
00000100  3a fb 31 3a f1 8a 38 2c  39 29 22 53 54 4f 50 22  |:.1:..8,9)"STOP"|
00000110  3b 3a fb 33 3a f1 8a 36  2c 31 33 29 22 74 68 65  |;:.3:..6,13)"the|
00000120  20 74 61 70 65 22 3a fb  32 3a f1 8a 34 2c 32 35  | tape":.2:..4,25|
00000130  29 22 50 72 65 73 73 20  53 50 41 43 45 22 8a 34  |)"Press SPACE".4|
00000140  2c 32 37 29 22 74 6f 20  63 6f 6e 74 69 6e 75 65  |,27)"to continue|
00000150  22 3a f5 fd a5 3d 33 32  3a d4 26 31 31 2c 30 2c  |":...=32:.&11,0,|
00000160  30 2c 30 0d 00 46 0b ee  85 e5 8d 74 50 41 0d 00  |0,0..F.....tPA..|
00000170  50 15 de 20 4d 41 50 20  32 35 35 2c 42 4c 4f 43  |P.. MAP 255,BLOC|
00000180  4b 20 38 0d 00 5a 10 6f  73 77 6f 72 64 3d 26 46  |K 8..Z.osword=&F|
00000190  46 46 31 0d 00 64 2a 4d  49 4e 58 25 3d 30 3a 4d  |FF1..d*MINX%=0:M|
000001a0  41 58 58 25 3d 31 32 37  32 3a 4d 49 4e 59 25 3d  |AXX%=1272:MINY%=|
000001b0  31 30 34 3a 4d 41 58 59  25 3d 39 35 36 0d 00 6e  |104:MAXY%=956..n|
000001c0  06 eb 34 0d 00 78 08 f2  4f 46 46 0d 00 82 0c f2  |..4..x..OFF.....|
000001d0  49 4e 49 54 44 42 4c 0d  00 8c 1c f2 54 49 54 4c  |INITDBL.....TITL|
000001e0  45 50 41 47 45 3a f2 49  4e 53 54 52 55 43 54 49  |EPAGE:.INSTRUCTI|
000001f0  4f 4e 53 0d 00 96 0d eb  32 3a f2 53 45 54 55 50  |ONS.....2:.SETUP|
00000200  0d 00 a0 26 58 25 3d 36  30 30 3a 59 25 3d 35 31  |...&X%=600:Y%=51|
00000210  32 3a 4b 25 3d 35 3a 43  4f 4c 25 3d 38 3a 44 46  |2:K%=5:COL%=8:DF|
00000220  4c 41 47 25 3d 30 0d 00  aa 13 f2 49 4e 56 28 30  |LAG%=0.....INV(0|
00000230  29 3a f2 49 4e 56 28 31  29 0d 00 b4 0a f2 43 52  |):.INV(1).....CR|
00000240  4f 53 53 0d 00 be 05 f5  0d 00 c8 0a f2 43 52 4f  |OSS..........CRO|
00000250  53 53 0d 00 d2 29 4b 45  59 25 3d a6 30 3a 4e 4b  |SS...)KEY%=.0:NK|
00000260  45 59 25 3d 4b 45 59 25  84 26 31 30 3a 41 4b 45  |EY%=KEY%.&10:AKE|
00000270  59 25 3d 4b 45 59 25 80  26 44 46 0d 00 dc 14 e7  |Y%=KEY%.&DF.....|
00000280  20 4b 45 59 25 3d 2d 31  20 8c 20 8d 54 4e 41 0d  | KEY%=-1 . .TNA.|
00000290  00 e6 52 e7 20 4e 4b 45  59 25 3e 3d 97 22 30 22  |..R. NKEY%>=."0"|
000002a0  20 e7 20 4e 4b 45 59 25  3c 3d 97 22 38 22 20 e7  | . NKEY%<=."8" .|
000002b0  20 43 4f 4c 25 3c 3e bb  bd 4e 4b 45 59 25 20 f2  | COL%<>..NKEY% .|
000002c0  49 4e 56 28 31 29 3a 43  4f 4c 25 3d bb bd 4e 4b  |INV(1):COL%=..NK|
000002d0  45 59 25 3a f2 49 4e 56  28 31 29 3a e5 8d 54 4e  |EY%:.INV(1):..TN|
000002e0  41 0d 00 f0 3a e7 20 41  4b 45 59 25 3d 97 22 44  |A...:. AKEY%=."D|
000002f0  22 20 e7 20 44 46 4c 41  47 25 3d 31 20 f2 49 4e  |" . DFLAG%=1 .IN|
00000300  56 28 30 29 3a 44 46 4c  41 47 25 3d 30 3a f2 49  |V(0):DFLAG%=0:.I|
00000310  4e 56 28 30 29 3a e5 8d  54 4e 41 0d 00 fa 3a e7  |NV(0):..TNA...:.|
00000320  20 41 4b 45 59 25 3d 97  22 46 22 20 e7 20 44 46  | AKEY%=."F" . DF|
00000330  4c 41 47 25 3d 30 20 f2  49 4e 56 28 30 29 3a 44  |LAG%=0 .INV(0):D|
00000340  46 4c 41 47 25 3d 31 3a  f2 49 4e 56 28 30 29 3a  |FLAG%=1:.INV(0):|
00000350  e5 8d 54 4e 41 0d 01 04  1b e7 20 41 4b 45 59 25  |..TNA..... AKEY%|
00000360  3d 97 22 43 22 20 fd b9  3a da 3a e5 8d 74 74 40  |=."C" ..:.:..tt@|
00000370  0d 01 0e 0b ec 20 58 25  2c 59 25 0d 01 18 19 4e  |..... X%,Y%....N|
00000380  58 25 3d 58 25 2d 38 2a  28 a6 2d 31 32 32 2d a6  |X%=X%-8*(.-122-.|
00000390  2d 32 36 29 0d 01 22 20  e7 4e 58 25 3c 3d 4d 49  |-26).." .NX%<=MI|
000003a0  4e 58 25 84 4e 58 25 3e  3d 4d 41 58 58 25 4e 58  |NX%.NX%>=MAXX%NX|
000003b0  25 3d 58 25 0d 01 2c 2f  4e 59 25 3d 59 25 2d 34  |%=X%..,/NY%=Y%-4|
000003c0  2a 28 31 2d 28 4e 58 25  3c 3e 58 25 80 44 46 4c  |*(1-(NX%<>X%.DFL|
000003d0  41 47 25 3d 30 29 29 2a  28 a6 2d 35 38 2d a6 2d  |AG%=0))*(.-58-.-|
000003e0  34 32 29 0d 01 36 20 e7  4e 59 25 3c 3d 4d 49 4e  |42)..6 .NY%<=MIN|
000003f0  59 25 84 4e 59 25 3e 3d  4d 41 58 59 25 4e 59 25  |Y%.NY%>=MAXY%NY%|
00000400  3d 59 25 0d 01 40 1c 4b  25 3d 35 2b 26 34 38 2a  |=Y%..@.K%=5+&48*|
00000410  44 46 4c 41 47 25 2b 28  43 4f 4c 25 3d 38 29 0d  |DFLAG%+(COL%=8).|
00000420  01 4a 23 e7 43 4f 4c 25  3d 30 e7 44 46 4c 41 47  |.J#.COL%=0.DFLAG|
00000430  25 20 e6 30 2c 31 32 38  2b b0 4e 58 25 2c 4e 59  |% .0,128+.NX%,NY|
00000440  25 29 0d 01 54 0b e6 30  2c 43 4f 4c 25 0d 01 5e  |%)..T..0,COL%..^|
00000450  11 58 25 3d 4e 58 25 3a  59 25 3d 4e 59 25 0d 01  |.X%=NX%:Y%=NY%..|
00000460  68 0d f0 4b 25 2c 58 25  2c 59 25 0d 01 72 0a f2  |h..K%,X%,Y%..r..|
00000470  43 52 4f 53 53 0d 01 7c  07 fd 20 a3 0d 01 86 05  |CROSS..|.. .....|
00000480  20 0d 01 90 22 e7 20 9f  3c 3e 31 37 20 f6 3a f1  | ...". .<>17 .:.|
00000490  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a e5 8d  |" at line ";.:..|
000004a0  74 6e 41 0d 01 9a 4c eb  34 3a f2 43 45 4e 28 22  |tnA...L.4:.CEN("|
000004b0  44 6f 20 79 6f 75 20 77  61 6e 74 20 74 6f 20 67  |Do you want to g|
000004c0  6f 20 6f 6e 20 74 6f 22  2c 31 32 29 3a f2 43 45  |o on to",12):.CE|
000004d0  4e 28 22 74 68 65 20 6e  65 78 74 20 70 72 6f 67  |N("the next prog|
000004e0  72 61 6d 20 28 59 2f 4e  29 3f 22 2c 31 33 29 0d  |ram (Y/N)?",13).|
000004f0  01 a4 15 f2 59 4e 3a e7  20 59 25 3d 30 20 8c 20  |....YN:. Y%=0 . |
00000500  8d 44 6e 40 0d 01 ae 08  2a 46 58 34 0d 01 b8 13  |.Dn@....*FX4....|
00000510  f1 27 27 22 50 6c 61 79  20 74 61 70 65 22 27 0d  |.''"Play tape"'.|
00000520  01 c2 07 d7 22 22 0d 01  cc 05 20 0d 01 d6 0b dd  |...."".... .....|
00000530  f2 53 45 54 55 50 0d 01  e0 0a 2a 46 58 34 2c 32  |.SETUP....*FX4,2|
00000540  0d 01 ea 07 f4 20 2b 0d  01 f4 27 ef 32 33 2c 32  |..... +...'.23,2|
00000550  32 34 2c 30 2c 30 2c 26  30 38 2c 26 30 38 2c 26  |24,0,0,&08,&08,&|
00000560  31 43 2c 26 30 38 2c 26  30 38 2c 30 2c 30 0d 01  |1C,&08,&08,0,0..|
00000570  fe 0b f4 20 43 6c 65 61  72 0d 02 08 2b ef 32 33  |... Clear...+.23|
00000580  2c 32 32 36 2c 26 44 33  2c 26 39 32 2c 26 39 32  |,226,&D3,&92,&92|
00000590  2c 26 39 33 2c 26 39 32  2c 26 39 32 2c 26 44 42  |,&93,&92,&92,&DB|
000005a0  2c 26 44 42 0d 02 12 2b  ef 32 33 2c 32 32 37 2c  |,&DB...+.23,227,|
000005b0  26 37 37 2c 26 35 35 2c  26 35 35 2c 26 37 36 2c  |&77,&55,&55,&76,|
000005c0  26 35 37 2c 26 35 35 2c  26 35 35 2c 26 35 35 0d  |&57,&55,&55,&55.|
000005d0  02 1c 0b f4 20 42 6c 61  6e 6b 0d 02 26 2b ef 32  |.... Blank..&+.2|
000005e0  33 2c 32 32 38 2c 26 46  46 2c 26 38 31 2c 26 38  |3,228,&FF,&81,&8|
000005f0  31 2c 26 38 31 2c 26 38  31 2c 26 38 31 2c 26 38  |1,&81,&81,&81,&8|
00000600  31 2c 26 46 46 0d 02 30  08 f4 20 4d 4f 0d 02 3a  |1,&FF..0.. MO..:|
00000610  2b ef 32 33 2c 32 32 39  2c 26 38 42 2c 26 44 41  |+.23,229,&8B,&DA|
00000620  2c 26 41 41 2c 26 41 41  2c 26 38 41 2c 26 38 41  |,&AA,&AA,&8A,&8A|
00000630  2c 26 38 41 2c 26 38 42  0d 02 44 08 f4 20 56 45  |,&8A,&8B..D.. VE|
00000640  0d 02 4e 2b ef 32 33 2c  32 33 30 2c 26 41 42 2c  |..N+.23,230,&AB,|
00000650  26 41 41 2c 26 41 41 2c  26 41 42 2c 26 41 41 2c  |&AA,&AA,&AB,&AA,|
00000660  26 41 41 2c 26 39 32 2c  26 39 33 0d 02 58 0b f4  |&AA,&92,&93..X..|
00000670  20 53 6f 6c 69 64 0d 02  62 18 ef 32 33 2c 32 35  | Solid..b..23,25|
00000680  35 2c 2d 31 3b 2d 31 3b  2d 31 3b 2d 31 3b 0d 02  |5,-1;-1;-1;-1;..|
00000690  6c 44 ec 4d 49 4e 58 25  2c 4d 49 4e 59 25 3a df  |lD.MINX%,MINY%:.|
000006a0  4d 41 58 58 25 2c 4d 49  4e 59 25 3a df 4d 41 58  |MAXX%,MINY%:.MAX|
000006b0  58 25 2c 4d 41 58 59 25  3a df 4d 49 4e 58 25 2c  |X%,MAXY%:.MINX%,|
000006c0  4d 41 58 59 25 3a df 4d  49 4e 58 25 2c 4d 49 4e  |MAXY%:.MINX%,MIN|
000006d0  59 25 0d 02 76 06 ef 35  0d 02 80 10 ec 33 32 2c  |Y%..v..5.....32,|
000006e0  39 32 3a f1 22 43 22 3b  0d 02 8a 12 ec 30 2c 36  |92:."C";.....0,6|
000006f0  30 3a ef 32 32 36 2c 32  32 37 0d 02 94 10 ec 31  |0:.226,227.....1|
00000700  38 34 2c 36 30 3a ef 32  32 38 0d 02 9e 25 e3 49  |84,60:.228...%.I|
00000710  25 3d 30 b8 37 3a ec 31  38 34 2b 31 32 30 2a 49  |%=0.7:.184+120*I|
00000720  25 2c 39 32 3a ef 49 25  2b 97 22 30 22 3a ed 0d  |%,92:.I%+."0":..|
00000730  02 a8 27 e3 49 25 3d 31  b8 37 3a ec 31 38 34 2b  |..'.I%=1.7:.184+|
00000740  31 32 30 2a 49 25 2c 36  30 3a e6 30 2c 49 25 3a  |120*I%,60:.0,I%:|
00000750  ef 32 35 35 3a ed 0d 02  b2 17 e6 30 2c 37 3a ec  |.255:......0,7:.|
00000760  31 31 38 34 2c 39 32 3a  f1 22 38 22 3b 0d 02 bc  |1184,92:."8";...|
00000770  15 ec 31 31 35 32 2c 36  30 3a ef 32 32 39 2c 32  |..1152,60:.229,2|
00000780  33 30 0d 02 c6 06 ef 34  0d 02 d0 1c f1 8a 33 2c  |30.....4......3,|
00000790  31 29 3b 22 44 2d 44 72  61 77 20 20 46 2d 46 69  |1);"D-Draw  F-Fi|
000007a0  6c 6c 22 3b 0d 02 da 06  ef 35 0d 02 e4 0b f2 57  |ll";.....5.....W|
000007b0  49 4e 44 4f 57 0d 02 ee  05 e1 0d 02 f8 05 20 0d  |INDOW......... .|
000007c0  03 02 0b dd f2 43 52 4f  53 53 0d 03 0c 08 e6 33  |.....CROSS.....3|
000007d0  2c 37 0d 03 16 10 ec 58  25 2d 33 32 2c 59 25 2b  |,7.....X%-32,Y%+|
000007e0  31 36 0d 03 20 08 ef 32  32 34 0d 03 2a 05 e1 0d  |16.. ..224..*...|
000007f0  03 34 05 20 0d 03 3e 33  dd f2 57 49 4e 44 4f 57  |.4. ..>3..WINDOW|
00000800  20 ef 32 34 2c 4d 49 4e  58 25 2b 38 3b 4d 49 4e  | .24,MINX%+8;MIN|
00000810  59 25 2b 34 3b 4d 41 58  58 25 2d 38 3b 4d 41 58  |Y%+4;MAXX%-8;MAX|
00000820  59 25 2d 34 3b 3a e1 0d  03 48 05 20 0d 03 52 0f  |Y%-4;:...H. ..R.|
00000830  dd f2 49 4e 56 28 54 59  50 45 29 0d 03 5c 07 ef  |..INV(TYPE)..\..|
00000840  32 36 0d 03 66 08 e6 34  2c 30 0d 03 70 3d e7 54  |26..f..4,0..p=.T|
00000850  59 50 45 20 ec 31 38 34  2b 31 32 30 2a 43 4f 4c  |YPE .184+120*COL|
00000860  25 2d 34 30 2a 28 43 4f  4c 25 3d 38 29 2c 39 32  |%-40*(COL%=8),92|
00000870  20 8b 20 ec 36 34 2a 28  33 2b 38 2a 44 46 4c 41  | . .64*(3+8*DFLA|
00000880  47 25 29 2c 39 38 38 0d  03 7a 08 ef 32 35 35 0d  |G%),988..z..255.|
00000890  03 84 0b f2 57 49 4e 44  4f 57 0d 03 8e 0a ec 58  |....WINDOW.....X|
000008a0  25 2c 59 25 0d 03 98 05  e1 0d 03 a2 05 20 0d 03  |%,Y%......... ..|
000008b0  ac 12 dd f2 49 4e 53 54  52 55 43 54 49 4f 4e 53  |....INSTRUCTIONS|
000008c0  0d 03 b6 0a db 3a f1 27  27 27 0d 03 c0 2b f1 22  |.....:.'''...+."|
000008d0  20 20 20 20 54 68 69 73  20 20 70 72 6f 67 72 61  |    This  progra|
000008e0  6d 20 61 6c 6c 6f 77 73  20 79 6f 75 20 74 6f 20  |m allows you to |
000008f0  64 72 61 77 22 0d 03 ca  2b f1 22 20 20 20 20 70  |draw"...+."    p|
00000900  69 63 74 75 72 65 73 20  6f 6e 20 74 68 65 20 73  |ictures on the s|
00000910  63 72 65 65 6e 20 75 73  69 6e 67 20 74 68 65 22  |creen using the"|
00000920  0d 03 d4 2b f1 22 20 20  20 20 66 6f 75 72 20 20  |...+."    four  |
00000930  63 75 72 73 6f 72 20 20  63 6f 6e 74 72 6f 6c 20  |cursor  control |
00000940  20 6b 65 79 73 20 28 74  68 65 22 0d 03 de 2b f1  | keys (the"...+.|
00000950  22 20 20 20 20 6f 6e 65  73 20 20 20 77 69 74 68  |"    ones   with|
00000960  20 20 20 61 72 72 6f 77  73 20 20 6d 61 72 6b 65  |   arrows  marke|
00000970  64 20 20 6f 6e 22 0d 03  e8 13 f1 22 20 20 20 20  |d  on"....."    |
00000980  74 68 65 6d 2e 29 22 27  27 0d 03 f2 2b f1 22 20  |them.)"''...+." |
00000990  20 20 20 54 68 65 20 20  6e 75 6d 62 65 72 20 20  |   The  number  |
000009a0  6b 65 79 73 20 20 61 74  20 74 68 65 20 74 6f 70  |keys  at the top|
000009b0  20 6f 66 22 0d 03 fc 2b  f1 22 20 20 20 20 74 68  | of"...+."    th|
000009c0  65 20 20 6b 65 79 62 6f  61 72 64 20 20 73 65 6c  |e  keyboard  sel|
000009d0  65 63 74 20 74 68 65 20  63 6f 6c 6f 75 72 22 0d  |ect the colour".|
000009e0  04 06 2b f1 22 20 20 20  20 6f 66 20 20 74 68 65  |..+."    of  the|
000009f0  20 20 6c 69 6e 65 20 20  28 31 20 2d 20 37 29 2c  |  line  (1 - 7),|
00000a00  20 20 6f 72 20 20 74 68  65 22 0d 04 10 2d f1 22  |  or  the"...-."|
00000a10  20 20 20 20 6d 6f 76 65  20 28 38 29 20 6f 72 20  |    move (8) or |
00000a20  65 72 61 73 65 20 28 30  29 20 66 75 6e 63 74 69  |erase (0) functi|
00000a30  6f 6e 73 2e 22 27 27 0d  04 1a 2b f1 22 20 20 20  |ons."''...+."   |
00000a40  20 54 68 65 20 20 27 43  27 20 6b 65 79 20 20 63  | The  'C' key  c|
00000a50  6c 65 61 72 73 20 74 68  65 20 73 63 72 65 65 6e  |lears the screen|
00000a60  2c 22 0d 04 24 2b f1 22  20 20 20 20 61 6e 64 20  |,"..$+."    and |
00000a70  27 44 27 20 61 6e 64 20  27 46 27 20 20 73 77 69  |'D' and 'F'  swi|
00000a80  74 63 68 20 20 62 65 74  77 65 65 6e 22 0d 04 2e  |tch  between"...|
00000a90  2b f1 22 20 20 20 20 64  72 61 77 69 6e 67 20 20  |+."    drawing  |
00000aa0  6c 69 6e 65 73 20 20 61  6e 64 20 20 66 69 6c 6c  |lines  and  fill|
00000ab0  69 6e 67 20 20 69 6e 22  0d 04 38 1f f1 22 20 20  |ing  in"..8.."  |
00000ac0  20 20 61 72 65 61 73 20  20 72 65 73 70 65 63 74  |  areas  respect|
00000ad0  69 76 65 6c 79 2e 22 0d  04 42 0a f2 53 50 41 43  |ively."..B..SPAC|
00000ae0  45 0d 04 4c 05 e1 0d 04  56 05 20 0d 04 60 0b dd  |E..L....V. ..`..|
00000af0  f2 53 50 41 43 45 0d 04  6a 2e f1 8a 34 2c 32 35  |.SPACE..j...4,25|
00000b00  29 3b 22 50 72 65 73 73  20 74 68 65 20 53 50 41  |);"Press the SPA|
00000b10  43 45 20 42 41 52 20 74  6f 20 63 6f 6e 74 69 6e  |CE BAR to contin|
00000b20  75 65 22 3b 0d 04 74 0b  2a 46 58 31 35 2c 31 0d  |ue";..t.*FX15,1.|
00000b30  04 7e 0d f5 20 fd 20 be  3d 22 20 22 0d 04 88 05  |.~.. . .=" "....|
00000b40  e1 0d 04 92 05 20 0d 04  9c 0f dd f2 54 49 54 4c  |..... ......TITL|
00000b50  45 50 41 47 45 0d 04 a6  15 f2 44 42 4c 28 22 53  |EPAGE.....DBL("S|
00000b60  6b 65 74 63 68 22 2c 31  32 29 0d 04 b0 0b 49 25  |ketch",12)....I%|
00000b70  3d a6 35 30 30 0d 04 ba  05 e1 0d 04 c4 05 20 0d  |=.500......... .|
00000b80  04 ce 1a dd f2 4f 46 46  20 ef 32 33 2c 31 2c 30  |.....OFF .23,1,0|
00000b90  3b 30 3b 30 3b 30 3b 3a  e1 0d 04 d8 05 20 0d 04  |;0;0;0;:..... ..|
00000ba0  e2 08 dd f2 59 4e 0d 04  ec 09 59 25 3d 2d 31 0d  |....YN....Y%=-1.|
00000bb0  04 f6 08 58 25 3d a5 0d  05 00 21 58 25 3d 58 25  |...X%=....!X%=X%|
00000bc0  80 26 44 46 3a e7 58 25  3c 3e 37 38 80 58 25 3c  |.&DF:.X%<>78.X%<|
00000bd0  3e 38 39 8c 8d 64 76 44  0d 05 0a 14 59 25 3d 31  |>89..dvD....Y%=1|
00000be0  3a e7 58 25 3d 37 38 8c  59 25 3d 30 0d 05 14 0b  |:.X%=78.Y%=0....|
00000bf0  ef 58 25 2c 38 3a e1 0d  05 1e 05 20 0d 05 28 25  |.X%,8:..... ..(%|
00000c00  dd f2 43 45 4e 28 41 24  2c 79 25 29 f1 8a 28 33  |..CEN(A$,y%)..(3|
00000c10  38 2d a9 41 24 29 2f 32  2c 79 25 29 41 24 3b 3a  |8-.A$)/2,y%)A$;:|
00000c20  e1 0d 05 32 05 20 0d 05  3c 33 dd f2 49 4e 49 54  |...2. ..<3..INIT|
00000c30  44 42 4c 20 24 4d 41 50  3d c4 32 35 35 2c bd 30  |DBL $MAP=.255,.0|
00000c40  29 3a 4d 41 50 3f 32 35  35 3d 30 3a 43 48 41 52  |):MAP?255=0:CHAR|
00000c50  50 54 52 3d 32 32 34 3a  e1 0d 05 46 05 20 0d 05  |PTR=224:...F. ..|
00000c60  50 56 dd f2 44 42 4c 28  41 24 2c 79 25 29 42 24  |PV..DBL(A$,y%)B$|
00000c70  3d 22 22 3a 43 24 3d 22  22 3a e3 43 48 25 3d 31  |="":C$="":.CH%=1|
00000c80  b8 a9 41 24 3a 4b 25 3d  a4 43 48 41 52 28 97 c1  |..A$:K%=.CHAR(..|
00000c90  41 24 2c 43 48 25 2c 31  29 29 3a 42 24 3d 42 24  |A$,CH%,1)):B$=B$|
00000ca0  2b bd 4b 25 3a 43 24 3d  43 24 2b bd 28 4b 25 2b  |+.K%:C$=C$+.(K%+|
00000cb0  31 29 3a ed 0d 05 5a 45  78 25 3d 36 34 30 2d 31  |1):...ZEx%=640-1|
00000cc0  36 2a a9 41 24 3a ef 35  3a ec 78 25 2c 31 30 32  |6*.A$:.5:.x%,102|
00000cd0  30 2d 79 25 2a 33 32 3a  f1 42 24 3b 3a ec 78 25  |0-y%*32:.B$;:.x%|
00000ce0  2c 39 38 38 2d 79 25 2a  33 32 3a f1 43 24 3b 3a  |,988-y%*32:.C$;:|
00000cf0  ef 34 3a f2 4f 46 46 3a  e1 0d 05 64 05 20 0d 05  |.4:.OFF:...d. ..|
00000d00  6e 6c dd a4 43 48 41 52  28 43 25 29 e7 4d 41 50  |nl..CHAR(C%).MAP|
00000d10  3f 43 25 8c 3d 4d 41 50  3f 43 25 8b e7 43 48 41  |?C%.=MAP?C%..CHA|
00000d20  52 50 54 52 3e 3d 32 35  36 fa 20 8b 4d 41 50 3f  |RPTR>=256. .MAP?|
00000d30  43 25 3d 43 48 41 52 50  54 52 3a 3f 42 4c 4f 43  |C%=CHARPTR:?BLOC|
00000d40  4b 3d 43 25 3a 41 25 3d  31 30 3a 58 25 3d 42 4c  |K=C%:A%=10:X%=BL|
00000d50  4f 43 4b 3a 59 25 3d 42  4c 4f 43 4b 20 81 20 32  |OCK:Y%=BLOCK . 2|
00000d60  35 36 3a d6 6f 73 77 6f  72 64 0d 05 78 52 e3 4a  |56:.osword..xR.J|
00000d70  25 3d 30 b8 31 3a ef 32  33 2c 43 48 41 52 50 54  |%=0.1:.23,CHARPT|
00000d80  52 2b 4a 25 3a e3 49 25  3d 32 b8 39 3a ef 42 4c  |R+J%:.I%=2.9:.BL|
00000d90  4f 43 4b 3f 28 4a 25 2a  34 2b 49 25 81 32 29 3a  |OCK?(J%*4+I%.2):|
00000da0  ed 2c 3a 43 48 41 52 50  54 52 3d 43 48 41 52 50  |.,:CHARPTR=CHARP|
00000db0  54 52 2b 32 3a 3d 4d 41  50 3f 43 25 0d ff        |TR+2:=MAP?C%..|
00000dbe