27-03-89/Prog1

Home » CEEFAX disks » telesoftware14.adl » 27-03-89/Prog1

27-03-89/Prog1

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware14.adl
Filename:	27-03-89/Prog1
Read OK:	✔
File size:	1264 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

File contents

   10 REM Modification of Digital Images
   20 
   30 REM First Year Cybernetics Project
   40 REM               By
   50 REM A.M. Errington and R. Anderson
   60 REM Initialisation program V.2
   70 REM by Andy
   80 
   90ONERRORGOTO1120
  100MODE1:VDU23;8202;0;0;0;
  110PROCdeficons:FORX%=0TO&FFSTEP4:X%!&0900=X%!&1900:NEXT:?&36C=&09
  120?&FE00=1:?&FE01=0:VDU19,0,6;0;19,1,0;0;19,2,7;0;19,3,4;0;:*LO.TITLE
  130PRINTTAB(13,27);"Please select:"''TAB(7);"A - Digitise a new picture"'TAB(4);"B - Work on an existing picture"
  140PROCdisplay
  150REPEATG=GET-65:UNTIL((G=0)OR(G=1))
  160PROCkilldisplay:CLS:VDU20:?&FE00=1:?&FE01=80
  170IFG=0THENPROCdigitise:PROCkilldisplay:GOTO120
  180IFG=1THENPROCload
  190Z%=0:A%=1:PAGE=&1500:CHAIN"PROG2"
  200DEFPROCdisplay:SOUND&10,-15,7,-1::FORI%=0TO80:SOUND&11,0,I%*3,1:?&FE00=1:?&FE01=I%:FORJ%=1TO60:NEXT,:SOUND&10,0,0,0:ENDPROC
  210DEFPROCkilldisplay:SOUND&10,-15,7,-1::FORI%=80TO0STEP-1:SOUND&11,0,I%*3,1:?&FE00=1:?&FE01=I%:FORJ%=1TO60:NEXT,:SOUND&10,0,0,0:ENDPROC
  220DEFPROCload
  230INPUT"Please enter filename]"F$
  240PRINT''"When the picture is loaded you will be  presented with a square which you shouldmove left or right with the <Z> and <X> keys to select the area of the image youwish to work on, then press <SPACE BAR>."
  250PRINT''"Press <SPACE BAR> to continue...":REPEATUNTILGET=32
  260PROCkilldisplay:CLS:OSCLI("LOAD "+F$+" 3000")
  270X%=0:OX%=0:GCOL3,3
  280MOVE0,0:DRAW1020,0:DRAW1020,1020:DRAW0,1020:DRAW0,0
  290PROCdisplay
  300REPEAT
  310IFINKEY(-98)ANDX%>0THENX%=X%-16
  320IFINKEY(-67)ANDX%<256THENX%=X%+16
  330IFX%<>OX%THENVDU25,4,OX%;0;25,5,OX%+1020;0;25,5,OX%+1020;1020;25,5,OX%;1020;25,5,OX%;0;25,4,X%;0;25,5,X%+1020;0;25,5,X%+1020;1020;25,5,X%;1020;25,5,X%;0;:OX%=X%
  340UNTILINKEY(-99)
  350*FX15
  360MOVEX%,0:DRAWX%+1020,0:DRAWX%+1020,1020:DRAWX%,1020:DRAWX%,0
  370A%=&3000+(X%DIV2)
  380OSCLI("SAVE WORKPIC "+STR$~(A%)+" 8000 0000 3000")
  390PROCkilldisplay
  400IF A%<>&3000 THEN *LO.WORKPIC
  410VDU28,32,31,39,0:CLS
  420GCOL0,3
  430PRINTTAB(0,0);STRING$(255,CHR$165);TAB(0,0);:VDU5:MOVE1248,28:VDU165,4,26
  440MOVE1024,0:DRAW1276,0:DRAW1276,1020:DRAW1024,1020:DRAW1024,0:MOVE1032,8:DRAW1268,8:DRAW1268,1012:DRAW1032,1012:DRAW1032,8:GCOL0,0:MOVE1028,4:DRAW1272,4:DRAW1272,1016:DRAW1028,1016:DRAW1028,4
  450*SAVE WORKPIC 3000 8000
  460ENDPROC
  470DEFPROCdigitise
  480PRINT"Please ensure that the digitiser is     connected, and that the camera is on.   Press <I> to take an image. If the imageis satisfactory then press <S> to save  it to disc, otherwise press <I> to take another image."
  490INPUT'"Please enter a filename for the image   ]"F$
  500REPEATUNTILGET$="I"
  510CLS
  520REPEAT:*IMAGE
  530UNTIL GET$="S"
  540OSCLI("SAVE "+F$+" 3000 8000")
  550ENDPROC
  560DEFPROCdeficons
  570VDU23,191,&02,&02,&02,&02,&02,&02,&FE,&00
  580VDU23,190,&40,&40,&40,&40,&40,&40,&7F,&00
  590VDU23,189,&00,&FE,&02,&02,&02,&02,&02,&02
  600VDU23,188,&00,&7F,&40,&40,&40,&40,&40,&40
  610VDU23,187,&20,&30,&E8,&74,&3A,&1E,&0C,&00
  620VDU23,186,&20,&20,&18,&07,&00,&00,&00,&00
  630VDU23,185,&00,&00,&C0,&20,&20,&10,&10,&10
  640VDU23,184,&00,&07,&18,&24,&28,&50,&40,&40
  650VDU23,183,&74,&74,&74,&74,&74,&74,&7C,&00
  660VDU23,182,&0A,&04,&00,&00,&00,&00,&00,&00
  670VDU23,181,&00,&00,&80,&40,&B0,&50,&A8,&74
  680VDU23,180,&00,&05,&0A,&05,&0A,&05,&0A,&05
  690VDU23,179,&CC,&0C,&0C,&00,&08,&04,&08,&00
  700VDU23,178,&11,&00,&00,&00,&00,&00,&00,&00
  710VDU23,177,&00,&00,&E0,&80,&80,&C0,&F8,&FC
  720VDU23,176,&00,&00,&03,&00,&00,&11,&1F,&1F
  730VDU23,175,&42,&82,&02,&82,&82,&82,&FE,&00
  740VDU23,174,&42,&41,&40,&41,&41,&41,&7F,&00
  750VDU23,173,&00,&FE,&02,&02,&02,&02,&82,&42
  760VDU23,172,&00,&7F,&7E,&7E,&7E,&40,&41,&42
  770VDU23,166,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF
  780VDU23,165,&55,&AA,&55,&AA,&55,&AA,&55,&AA
  790 REM 164
  800 REM 163
  810VDU23,162,&40,&08,&22,&00,&20,&04,&00,&80
  820VDU23,161,&04,&90,&02,&08,&41,&00,&08,&00
  830VDU23,160,&00,&10,&80,&00,&22,&00,&48,&01
  840VDU23,159,&01,&00,&20,&04,&00,&82,&10,&01
  850VDU23,158,&00,&22,&08,&42,&14,&00,&24,&00
  860VDU23,157,&00,&55,&00,&55,&00,&55,&00,&55
  870VDU23,156,&00,&AA,&00,&AA,&00,&AA,&00,&AA
  880VDU23,155,&55,&00,&55,&00,&55,&00,&55,&00
  890VDU23,154,&AA,&00,&AA,&00,&AA,&00,&AA,&00
  900VDU23,153,&00,&00,&18,&3C,&3C,&18,&00,&00
  910VDU23,152,&3C,&7E,&FF,&FF,&FF,&FF,&7E,&3C
  920VDU23,151,&F8,&F8,&F0,&E0,&C0,&00,&00,&00
  930VDU23,150,&1F,&1F,&0F,&07,&03,&00,&00,&00
  940VDU23,149,&00,&00,&00,&C0,&E0,&F0,&F8,&F8
  950VDU23,148,&00,&00,&00,&03,&07,&0F,&1F,&1F
  960VDU23,143,&FE,&FE,&FC,&FC,&F8,&F0,&C0,&00
  970VDU23,142,&7F,&7F,&3F,&3F,&1F,&0F,&03,&00
  980VDU23,141,&00,&C0,&F0,&F8,&FC,&FC,&FE,&FE
  990VDU23,140,&00,&03,&0F,&1F,&3F,&3F,&7F,&7F
 1000VDU23,139,&FF,&FF,&FE,&FE,&FC,&F8,&F0,&C0
 1010VDU23,138,&FF,&FF,&7F,&7F,&3F,&1F,&0F,&03
 1020VDU23,137,&C0,&F0,&F8,&FC,&FE,&FE,&FF,&FF
 1030VDU23,136,&03,&0F,&1F,&3F,&7F,&7F,&FF,&FF
 1040VDU23,135,&FC,&FC,&FC,&FC,&FC,&FC,&00,&00
 1050VDU23,134,&3F,&3F,&3F,&3F,&3F,&3F,&00,&00
 1060VDU23,133,&00,&00,&FC,&FC,&FC,&FC,&FC,&FC
 1070VDU23,132,&00,&00,&3F,&3F,&3F,&3F,&3F,&3F
 1080VDU23,131,&00,&00,&3C,&3C,&3C,&3C,&00,&00
 1090VDU23,130,&00,&00,&00,&18,&18,&00,&00,&00
 1100VDU23,129,&00,&00,&00,&10,&00,&00,&00,&00
 1110ENDPROC
 1120ONERROROFF
 1130REM ERROR ROUTINE
 1140?&FE00=1:?&FE01=80
 1150CLS:VDU7:PRINT"ERROR REPORT-"
 1160PRINT:REPORT:PRINT" at line ";ERL
 1170IF ERR=254 THEN PRINT'"Digitiser ROM not installed."
 1180PRINT'"Please report this error, and the eventswhich caused it."


% � Modification of Digital Images
 
% � First Year Cybernetics Project
( �               By
2% � A.M. Errington and R. Anderson
<! � Initialisation program V.2
F � by Andy
P 
Z��D`D
d�1:�23;8202;0;0;0;
n7�deficons:�X%=0�&FF�4:X%!&0900=X%!&1900:�:?&36C=&09
xE?&FE00=1:?&FE01=0:�19,0,6;0;19,1,0;0;19,2,7;0;19,3,4;0;:*LO.TITLE
�e�13,27);"Please select:"''�7);"A - Digitise a new picture"'�4);"B - Work on an existing picture"
��display
��G=�-65:�((G=0)�(G=1))
�)�killdisplay:�:�20:?&FE00=1:?&FE01=80
�%�G=0��digitise:�killdisplay:�Dx@
��G=1��load
�Z%=0:A%=1:�=&1500:�"PROG2"
�_��display:�&10,-15,7,-1::�I%=0�80:�&11,0,I%*3,1:?&FE00=1:?&FE01=I%:�J%=1�60:�,:�&10,0,0,0:�
�f��killdisplay:�&10,-15,7,-1::�I%=80�0�-1:�&11,0,I%*3,1:?&FE00=1:?&FE01=I%:�J%=1�60:�,:�&10,0,0,0:�
�
��load
��"Please enter filename]"F$
���''"When the picture is loaded you will be  presented with a square which you shouldmove left or right with the <Z> and <X> keys to select the area of the image youwish to work on, then press <SPACE BAR>."
�0�''"Press <SPACE BAR> to continue...":���=32
(�killdisplay:�:�("LOAD "+F$+" 3000")
X%=0:OX%=0:�3,3
(�0,0:�1020,0:�1020,1020:�0,1020:�0,0
"�display
,�
6�(-98)�X%>0�X%=X%-16
@�(-67)�X%<256�X%=X%+16
J��X%<>OX%��25,4,OX%;0;25,5,OX%+1020;0;25,5,OX%+1020;1020;25,5,OX%;1020;25,5,OX%;0;25,4,X%;0;25,5,X%+1020;0;25,5,X%+1020;1020;25,5,X%;1020;25,5,X%;0;:OX%=X%
T��(-99)
^	*FX15
h1�X%,0:�X%+1020,0:�X%+1020,1020:�X%,1020:�X%,0
rA%=&3000+(X%�2)
|/�("SAVE WORKPIC "+�~(A%)+" 8000 0000 3000")
��killdisplay
�� A%<>&3000 � *LO.WORKPIC
��28,32,31,39,0:�
��0,3
�2�0,0);�255,�165);�0,0);:�5:�1248,28:�165,4,26
���1024,0:�1276,0:�1276,1020:�1024,1020:�1024,0:�1032,8:�1268,8:�1268,1012:�1032,1012:�1032,8:�0,0:�1028,4:�1272,4:�1272,1016:�1028,1016:�1028,4
�*SAVE WORKPIC 3000 8000
��
���digitise
���"Please ensure that the digitiser is     connected, and that the camera is on.   Press <I> to take an image. If the imageis satisfactory then press <S> to save  it to disc, otherwise press <I> to take another image."
�3�'"Please enter a filename for the image   ]"F$
����="I"
��
�:*IMAGE
� �="S"
�("SAVE "+F$+" 3000 8000")
&�
0��deficons
:+�23,191,&02,&02,&02,&02,&02,&02,&FE,&00
D+�23,190,&40,&40,&40,&40,&40,&40,&7F,&00
N+�23,189,&00,&FE,&02,&02,&02,&02,&02,&02
X+�23,188,&00,&7F,&40,&40,&40,&40,&40,&40
b+�23,187,&20,&30,&E8,&74,&3A,&1E,&0C,&00
l+�23,186,&20,&20,&18,&07,&00,&00,&00,&00
v+�23,185,&00,&00,&C0,&20,&20,&10,&10,&10
�+�23,184,&00,&07,&18,&24,&28,&50,&40,&40
�+�23,183,&74,&74,&74,&74,&74,&74,&7C,&00
�+�23,182,&0A,&04,&00,&00,&00,&00,&00,&00
�+�23,181,&00,&00,&80,&40,&B0,&50,&A8,&74
�+�23,180,&00,&05,&0A,&05,&0A,&05,&0A,&05
�+�23,179,&CC,&0C,&0C,&00,&08,&04,&08,&00
�+�23,178,&11,&00,&00,&00,&00,&00,&00,&00
�+�23,177,&00,&00,&E0,&80,&80,&C0,&F8,&FC
�+�23,176,&00,&00,&03,&00,&00,&11,&1F,&1F
�+�23,175,&42,&82,&02,&82,&82,&82,&FE,&00
�+�23,174,&42,&41,&40,&41,&41,&41,&7F,&00
�+�23,173,&00,&FE,&02,&02,&02,&02,&82,&42
�+�23,172,&00,&7F,&7E,&7E,&7E,&40,&41,&42
+�23,166,&FF,&FF,&FF,&FF,&FF,&FF,&FF,&FF
+�23,165,&55,&AA,&55,&AA,&55,&AA,&55,&AA

 � 164
 
 � 163
*+�23,162,&40,&08,&22,&00,&20,&04,&00,&80
4+�23,161,&04,&90,&02,&08,&41,&00,&08,&00
>+�23,160,&00,&10,&80,&00,&22,&00,&48,&01
H+�23,159,&01,&00,&20,&04,&00,&82,&10,&01
R+�23,158,&00,&22,&08,&42,&14,&00,&24,&00
\+�23,157,&00,&55,&00,&55,&00,&55,&00,&55
f+�23,156,&00,&AA,&00,&AA,&00,&AA,&00,&AA
p+�23,155,&55,&00,&55,&00,&55,&00,&55,&00
z+�23,154,&AA,&00,&AA,&00,&AA,&00,&AA,&00
�+�23,153,&00,&00,&18,&3C,&3C,&18,&00,&00
�+�23,152,&3C,&7E,&FF,&FF,&FF,&FF,&7E,&3C
�+�23,151,&F8,&F8,&F0,&E0,&C0,&00,&00,&00
�+�23,150,&1F,&1F,&0F,&07,&03,&00,&00,&00
�+�23,149,&00,&00,&00,&C0,&E0,&F0,&F8,&F8
�+�23,148,&00,&00,&00,&03,&07,&0F,&1F,&1F
�+�23,143,&FE,&FE,&FC,&FC,&F8,&F0,&C0,&00
�+�23,142,&7F,&7F,&3F,&3F,&1F,&0F,&03,&00
�+�23,141,&00,&C0,&F0,&F8,&FC,&FC,&FE,&FE
�+�23,140,&00,&03,&0F,&1F,&3F,&3F,&7F,&7F
�+�23,139,&FF,&FF,&FE,&FE,&FC,&F8,&F0,&C0
�+�23,138,&FF,&FF,&7F,&7F,&3F,&1F,&0F,&03
�+�23,137,&C0,&F0,&F8,&FC,&FE,&FE,&FF,&FF
+�23,136,&03,&0F,&1F,&3F,&7F,&7F,&FF,&FF
+�23,135,&FC,&FC,&FC,&FC,&FC,&FC,&00,&00
+�23,134,&3F,&3F,&3F,&3F,&3F,&3F,&00,&00
$+�23,133,&00,&00,&FC,&FC,&FC,&FC,&FC,&FC
.+�23,132,&00,&00,&3F,&3F,&3F,&3F,&3F,&3F
8+�23,131,&00,&00,&3C,&3C,&3C,&3C,&00,&00
B+�23,130,&00,&00,&00,&18,&18,&00,&00,&00
L+�23,129,&00,&00,&00,&10,&00,&00,&00,&00
V�
`
j� ERROR ROUTINE
t?&FE00=1:?&FE01=80
~�:�7:�"ERROR REPORT-"
��:�:�" at line ";�
�.� �=254 � �'"Digitiser ROM not installed."
�@�'"Please report this error, and the eventswhich caused it."
�

00000000  0d 00 0a 25 20 f4 20 4d  6f 64 69 66 69 63 61 74  |...% . Modificat|
00000010  69 6f 6e 20 6f 66 20 44  69 67 69 74 61 6c 20 49  |ion of Digital I|
00000020  6d 61 67 65 73 0d 00 14  05 20 0d 00 1e 25 20 f4  |mages.... ...% .|
00000030  20 46 69 72 73 74 20 59  65 61 72 20 43 79 62 65  | First Year Cybe|
00000040  72 6e 65 74 69 63 73 20  50 72 6f 6a 65 63 74 0d  |rnetics Project.|
00000050  00 28 17 20 f4 20 20 20  20 20 20 20 20 20 20 20  |.(. .           |
00000060  20 20 20 20 42 79 0d 00  32 25 20 f4 20 41 2e 4d  |    By..2% . A.M|
00000070  2e 20 45 72 72 69 6e 67  74 6f 6e 20 61 6e 64 20  |. Errington and |
00000080  52 2e 20 41 6e 64 65 72  73 6f 6e 0d 00 3c 21 20  |R. Anderson..<! |
00000090  f4 20 49 6e 69 74 69 61  6c 69 73 61 74 69 6f 6e  |. Initialisation|
000000a0  20 70 72 6f 67 72 61 6d  20 56 2e 32 0d 00 46 0e  | program V.2..F.|
000000b0  20 f4 20 62 79 20 41 6e  64 79 0d 00 50 05 20 0d  | . by Andy..P. .|
000000c0  00 5a 0b ee 85 e5 8d 44  60 44 0d 00 64 16 eb 31  |.Z.....D`D..d..1|
000000d0  3a ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |:.23;8202;0;0;0;|
000000e0  0d 00 6e 37 f2 64 65 66  69 63 6f 6e 73 3a e3 58  |..n7.deficons:.X|
000000f0  25 3d 30 b8 26 46 46 88  34 3a 58 25 21 26 30 39  |%=0.&FF.4:X%!&09|
00000100  30 30 3d 58 25 21 26 31  39 30 30 3a ed 3a 3f 26  |00=X%!&1900:.:?&|
00000110  33 36 43 3d 26 30 39 0d  00 78 45 3f 26 46 45 30  |36C=&09..xE?&FE0|
00000120  30 3d 31 3a 3f 26 46 45  30 31 3d 30 3a ef 31 39  |0=1:?&FE01=0:.19|
00000130  2c 30 2c 36 3b 30 3b 31  39 2c 31 2c 30 3b 30 3b  |,0,6;0;19,1,0;0;|
00000140  31 39 2c 32 2c 37 3b 30  3b 31 39 2c 33 2c 34 3b  |19,2,7;0;19,3,4;|
00000150  30 3b 3a 2a 4c 4f 2e 54  49 54 4c 45 0d 00 82 65  |0;:*LO.TITLE...e|
00000160  f1 8a 31 33 2c 32 37 29  3b 22 50 6c 65 61 73 65  |..13,27);"Please|
00000170  20 73 65 6c 65 63 74 3a  22 27 27 8a 37 29 3b 22  | select:"''.7);"|
00000180  41 20 2d 20 44 69 67 69  74 69 73 65 20 61 20 6e  |A - Digitise a n|
00000190  65 77 20 70 69 63 74 75  72 65 22 27 8a 34 29 3b  |ew picture"'.4);|
000001a0  22 42 20 2d 20 57 6f 72  6b 20 6f 6e 20 61 6e 20  |"B - Work on an |
000001b0  65 78 69 73 74 69 6e 67  20 70 69 63 74 75 72 65  |existing picture|
000001c0  22 0d 00 8c 0c f2 64 69  73 70 6c 61 79 0d 00 96  |".....display...|
000001d0  1a f5 47 3d a5 2d 36 35  3a fd 28 28 47 3d 30 29  |..G=.-65:.((G=0)|
000001e0  84 28 47 3d 31 29 29 0d  00 a0 29 f2 6b 69 6c 6c  |.(G=1))...).kill|
000001f0  64 69 73 70 6c 61 79 3a  db 3a ef 32 30 3a 3f 26  |display:.:.20:?&|
00000200  46 45 30 30 3d 31 3a 3f  26 46 45 30 31 3d 38 30  |FE00=1:?&FE01=80|
00000210  0d 00 aa 25 e7 47 3d 30  8c f2 64 69 67 69 74 69  |...%.G=0..digiti|
00000220  73 65 3a f2 6b 69 6c 6c  64 69 73 70 6c 61 79 3a  |se:.killdisplay:|
00000230  e5 8d 44 78 40 0d 00 b4  0e e7 47 3d 31 8c f2 6c  |..Dx@.....G=1..l|
00000240  6f 61 64 0d 00 be 1e 5a  25 3d 30 3a 41 25 3d 31  |oad....Z%=0:A%=1|
00000250  3a d0 3d 26 31 35 30 30  3a d7 22 50 52 4f 47 32  |:.=&1500:."PROG2|
00000260  22 0d 00 c8 5f dd f2 64  69 73 70 6c 61 79 3a d4  |"..._..display:.|
00000270  26 31 30 2c 2d 31 35 2c  37 2c 2d 31 3a 3a e3 49  |&10,-15,7,-1::.I|
00000280  25 3d 30 b8 38 30 3a d4  26 31 31 2c 30 2c 49 25  |%=0.80:.&11,0,I%|
00000290  2a 33 2c 31 3a 3f 26 46  45 30 30 3d 31 3a 3f 26  |*3,1:?&FE00=1:?&|
000002a0  46 45 30 31 3d 49 25 3a  e3 4a 25 3d 31 b8 36 30  |FE01=I%:.J%=1.60|
000002b0  3a ed 2c 3a d4 26 31 30  2c 30 2c 30 2c 30 3a e1  |:.,:.&10,0,0,0:.|
000002c0  0d 00 d2 66 dd f2 6b 69  6c 6c 64 69 73 70 6c 61  |...f..killdispla|
000002d0  79 3a d4 26 31 30 2c 2d  31 35 2c 37 2c 2d 31 3a  |y:.&10,-15,7,-1:|
000002e0  3a e3 49 25 3d 38 30 b8  30 88 2d 31 3a d4 26 31  |:.I%=80.0.-1:.&1|
000002f0  31 2c 30 2c 49 25 2a 33  2c 31 3a 3f 26 46 45 30  |1,0,I%*3,1:?&FE0|
00000300  30 3d 31 3a 3f 26 46 45  30 31 3d 49 25 3a e3 4a  |0=1:?&FE01=I%:.J|
00000310  25 3d 31 b8 36 30 3a ed  2c 3a d4 26 31 30 2c 30  |%=1.60:.,:.&10,0|
00000320  2c 30 2c 30 3a e1 0d 00  dc 0a dd f2 6c 6f 61 64  |,0,0:.......load|
00000330  0d 00 e6 1f e8 22 50 6c  65 61 73 65 20 65 6e 74  |....."Please ent|
00000340  65 72 20 66 69 6c 65 6e  61 6d 65 5d 22 46 24 0d  |er filename]"F$.|
00000350  00 f0 d1 f1 27 27 22 57  68 65 6e 20 74 68 65 20  |....''"When the |
00000360  70 69 63 74 75 72 65 20  69 73 20 6c 6f 61 64 65  |picture is loade|
00000370  64 20 79 6f 75 20 77 69  6c 6c 20 62 65 20 20 70  |d you will be  p|
00000380  72 65 73 65 6e 74 65 64  20 77 69 74 68 20 61 20  |resented with a |
00000390  73 71 75 61 72 65 20 77  68 69 63 68 20 79 6f 75  |square which you|
000003a0  20 73 68 6f 75 6c 64 6d  6f 76 65 20 6c 65 66 74  | shouldmove left|
000003b0  20 6f 72 20 72 69 67 68  74 20 77 69 74 68 20 74  | or right with t|
000003c0  68 65 20 3c 5a 3e 20 61  6e 64 20 3c 58 3e 20 6b  |he <Z> and <X> k|
000003d0  65 79 73 20 74 6f 20 73  65 6c 65 63 74 20 74 68  |eys to select th|
000003e0  65 20 61 72 65 61 20 6f  66 20 74 68 65 20 69 6d  |e area of the im|
000003f0  61 67 65 20 79 6f 75 77  69 73 68 20 74 6f 20 77  |age youwish to w|
00000400  6f 72 6b 20 6f 6e 2c 20  74 68 65 6e 20 70 72 65  |ork on, then pre|
00000410  73 73 20 3c 53 50 41 43  45 20 42 41 52 3e 2e 22  |ss <SPACE BAR>."|
00000420  0d 00 fa 30 f1 27 27 22  50 72 65 73 73 20 3c 53  |...0.''"Press <S|
00000430  50 41 43 45 20 42 41 52  3e 20 74 6f 20 63 6f 6e  |PACE BAR> to con|
00000440  74 69 6e 75 65 2e 2e 2e  22 3a f5 fd a5 3d 33 32  |tinue...":...=32|
00000450  0d 01 04 28 f2 6b 69 6c  6c 64 69 73 70 6c 61 79  |...(.killdisplay|
00000460  3a db 3a ff 28 22 4c 4f  41 44 20 22 2b 46 24 2b  |:.:.("LOAD "+F$+|
00000470  22 20 33 30 30 30 22 29  0d 01 0e 13 58 25 3d 30  |" 3000")....X%=0|
00000480  3a 4f 58 25 3d 30 3a e6  33 2c 33 0d 01 18 28 ec  |:OX%=0:.3,3...(.|
00000490  30 2c 30 3a df 31 30 32  30 2c 30 3a df 31 30 32  |0,0:.1020,0:.102|
000004a0  30 2c 31 30 32 30 3a df  30 2c 31 30 32 30 3a df  |0,1020:.0,1020:.|
000004b0  30 2c 30 0d 01 22 0c f2  64 69 73 70 6c 61 79 0d  |0,0.."..display.|
000004c0  01 2c 05 f5 0d 01 36 19  e7 a6 28 2d 39 38 29 80  |.,....6...(-98).|
000004d0  58 25 3e 30 8c 58 25 3d  58 25 2d 31 36 0d 01 40  |X%>0.X%=X%-16..@|
000004e0  1b e7 a6 28 2d 36 37 29  80 58 25 3c 32 35 36 8c  |...(-67).X%<256.|
000004f0  58 25 3d 58 25 2b 31 36  0d 01 4a 9e e7 58 25 3c  |X%=X%+16..J..X%<|
00000500  3e 4f 58 25 8c ef 32 35  2c 34 2c 4f 58 25 3b 30  |>OX%..25,4,OX%;0|
00000510  3b 32 35 2c 35 2c 4f 58  25 2b 31 30 32 30 3b 30  |;25,5,OX%+1020;0|
00000520  3b 32 35 2c 35 2c 4f 58  25 2b 31 30 32 30 3b 31  |;25,5,OX%+1020;1|
00000530  30 32 30 3b 32 35 2c 35  2c 4f 58 25 3b 31 30 32  |020;25,5,OX%;102|
00000540  30 3b 32 35 2c 35 2c 4f  58 25 3b 30 3b 32 35 2c  |0;25,5,OX%;0;25,|
00000550  34 2c 58 25 3b 30 3b 32  35 2c 35 2c 58 25 2b 31  |4,X%;0;25,5,X%+1|
00000560  30 32 30 3b 30 3b 32 35  2c 35 2c 58 25 2b 31 30  |020;0;25,5,X%+10|
00000570  32 30 3b 31 30 32 30 3b  32 35 2c 35 2c 58 25 3b  |20;1020;25,5,X%;|
00000580  31 30 32 30 3b 32 35 2c  35 2c 58 25 3b 30 3b 3a  |1020;25,5,X%;0;:|
00000590  4f 58 25 3d 58 25 0d 01  54 0b fd a6 28 2d 39 39  |OX%=X%..T...(-99|
000005a0  29 0d 01 5e 09 2a 46 58  31 35 0d 01 68 31 ec 58  |)..^.*FX15..h1.X|
000005b0  25 2c 30 3a df 58 25 2b  31 30 32 30 2c 30 3a df  |%,0:.X%+1020,0:.|
000005c0  58 25 2b 31 30 32 30 2c  31 30 32 30 3a df 58 25  |X%+1020,1020:.X%|
000005d0  2c 31 30 32 30 3a df 58  25 2c 30 0d 01 72 13 41  |,1020:.X%,0..r.A|
000005e0  25 3d 26 33 30 30 30 2b  28 58 25 81 32 29 0d 01  |%=&3000+(X%.2)..|
000005f0  7c 2f ff 28 22 53 41 56  45 20 57 4f 52 4b 50 49  ||/.("SAVE WORKPI|
00000600  43 20 22 2b c3 7e 28 41  25 29 2b 22 20 38 30 30  |C "+.~(A%)+" 800|
00000610  30 20 30 30 30 30 20 33  30 30 30 22 29 0d 01 86  |0 0000 3000")...|
00000620  10 f2 6b 69 6c 6c 64 69  73 70 6c 61 79 0d 01 90  |..killdisplay...|
00000630  1d e7 20 41 25 3c 3e 26  33 30 30 30 20 8c 20 2a  |.. A%<>&3000 . *|
00000640  4c 4f 2e 57 4f 52 4b 50  49 43 0d 01 9a 14 ef 32  |LO.WORKPIC.....2|
00000650  38 2c 33 32 2c 33 31 2c  33 39 2c 30 3a db 0d 01  |8,32,31,39,0:...|
00000660  a4 08 e6 30 2c 33 0d 01  ae 32 f1 8a 30 2c 30 29  |...0,3...2..0,0)|
00000670  3b c4 32 35 35 2c bd 31  36 35 29 3b 8a 30 2c 30  |;.255,.165);.0,0|
00000680  29 3b 3a ef 35 3a ec 31  32 34 38 2c 32 38 3a ef  |);:.5:.1248,28:.|
00000690  31 36 35 2c 34 2c 32 36  0d 01 b8 92 ec 31 30 32  |165,4,26.....102|
000006a0  34 2c 30 3a df 31 32 37  36 2c 30 3a df 31 32 37  |4,0:.1276,0:.127|
000006b0  36 2c 31 30 32 30 3a df  31 30 32 34 2c 31 30 32  |6,1020:.1024,102|
000006c0  30 3a df 31 30 32 34 2c  30 3a ec 31 30 33 32 2c  |0:.1024,0:.1032,|
000006d0  38 3a df 31 32 36 38 2c  38 3a df 31 32 36 38 2c  |8:.1268,8:.1268,|
000006e0  31 30 31 32 3a df 31 30  33 32 2c 31 30 31 32 3a  |1012:.1032,1012:|
000006f0  df 31 30 33 32 2c 38 3a  e6 30 2c 30 3a ec 31 30  |.1032,8:.0,0:.10|
00000700  32 38 2c 34 3a df 31 32  37 32 2c 34 3a df 31 32  |28,4:.1272,4:.12|
00000710  37 32 2c 31 30 31 36 3a  df 31 30 32 38 2c 31 30  |72,1016:.1028,10|
00000720  31 36 3a df 31 30 32 38  2c 34 0d 01 c2 1b 2a 53  |16:.1028,4....*S|
00000730  41 56 45 20 57 4f 52 4b  50 49 43 20 33 30 30 30  |AVE WORKPIC 3000|
00000740  20 38 30 30 30 0d 01 cc  05 e1 0d 01 d6 0e dd f2  | 8000...........|
00000750  64 69 67 69 74 69 73 65  0d 01 e0 dd f1 22 50 6c  |digitise....."Pl|
00000760  65 61 73 65 20 65 6e 73  75 72 65 20 74 68 61 74  |ease ensure that|
00000770  20 74 68 65 20 64 69 67  69 74 69 73 65 72 20 69  | the digitiser i|
00000780  73 20 20 20 20 20 63 6f  6e 6e 65 63 74 65 64 2c  |s     connected,|
00000790  20 61 6e 64 20 74 68 61  74 20 74 68 65 20 63 61  | and that the ca|
000007a0  6d 65 72 61 20 69 73 20  6f 6e 2e 20 20 20 50 72  |mera is on.   Pr|
000007b0  65 73 73 20 3c 49 3e 20  74 6f 20 74 61 6b 65 20  |ess <I> to take |
000007c0  61 6e 20 69 6d 61 67 65  2e 20 49 66 20 74 68 65  |an image. If the|
000007d0  20 69 6d 61 67 65 69 73  20 73 61 74 69 73 66 61  | imageis satisfa|
000007e0  63 74 6f 72 79 20 74 68  65 6e 20 70 72 65 73 73  |ctory then press|
000007f0  20 3c 53 3e 20 74 6f 20  73 61 76 65 20 20 69 74  | <S> to save  it|
00000800  20 74 6f 20 64 69 73 63  2c 20 6f 74 68 65 72 77  | to disc, otherw|
00000810  69 73 65 20 70 72 65 73  73 20 3c 49 3e 20 74 6f  |ise press <I> to|
00000820  20 74 61 6b 65 20 61 6e  6f 74 68 65 72 20 69 6d  | take another im|
00000830  61 67 65 2e 22 0d 01 ea  33 e8 27 22 50 6c 65 61  |age."...3.'"Plea|
00000840  73 65 20 65 6e 74 65 72  20 61 20 66 69 6c 65 6e  |se enter a filen|
00000850  61 6d 65 20 66 6f 72 20  74 68 65 20 69 6d 61 67  |ame for the imag|
00000860  65 20 20 20 5d 22 46 24  0d 01 f4 0b f5 fd be 3d  |e   ]"F$.......=|
00000870  22 49 22 0d 01 fe 05 db  0d 02 08 0c f5 3a 2a 49  |"I"..........:*I|
00000880  4d 41 47 45 0d 02 12 0b  fd 20 be 3d 22 53 22 0d  |MAGE..... .="S".|
00000890  02 1c 1e ff 28 22 53 41  56 45 20 22 2b 46 24 2b  |....("SAVE "+F$+|
000008a0  22 20 33 30 30 30 20 38  30 30 30 22 29 0d 02 26  |" 3000 8000")..&|
000008b0  05 e1 0d 02 30 0e dd f2  64 65 66 69 63 6f 6e 73  |....0...deficons|
000008c0  0d 02 3a 2b ef 32 33 2c  31 39 31 2c 26 30 32 2c  |..:+.23,191,&02,|
000008d0  26 30 32 2c 26 30 32 2c  26 30 32 2c 26 30 32 2c  |&02,&02,&02,&02,|
000008e0  26 30 32 2c 26 46 45 2c  26 30 30 0d 02 44 2b ef  |&02,&FE,&00..D+.|
000008f0  32 33 2c 31 39 30 2c 26  34 30 2c 26 34 30 2c 26  |23,190,&40,&40,&|
00000900  34 30 2c 26 34 30 2c 26  34 30 2c 26 34 30 2c 26  |40,&40,&40,&40,&|
00000910  37 46 2c 26 30 30 0d 02  4e 2b ef 32 33 2c 31 38  |7F,&00..N+.23,18|
00000920  39 2c 26 30 30 2c 26 46  45 2c 26 30 32 2c 26 30  |9,&00,&FE,&02,&0|
00000930  32 2c 26 30 32 2c 26 30  32 2c 26 30 32 2c 26 30  |2,&02,&02,&02,&0|
00000940  32 0d 02 58 2b ef 32 33  2c 31 38 38 2c 26 30 30  |2..X+.23,188,&00|
00000950  2c 26 37 46 2c 26 34 30  2c 26 34 30 2c 26 34 30  |,&7F,&40,&40,&40|
00000960  2c 26 34 30 2c 26 34 30  2c 26 34 30 0d 02 62 2b  |,&40,&40,&40..b+|
00000970  ef 32 33 2c 31 38 37 2c  26 32 30 2c 26 33 30 2c  |.23,187,&20,&30,|
00000980  26 45 38 2c 26 37 34 2c  26 33 41 2c 26 31 45 2c  |&E8,&74,&3A,&1E,|
00000990  26 30 43 2c 26 30 30 0d  02 6c 2b ef 32 33 2c 31  |&0C,&00..l+.23,1|
000009a0  38 36 2c 26 32 30 2c 26  32 30 2c 26 31 38 2c 26  |86,&20,&20,&18,&|
000009b0  30 37 2c 26 30 30 2c 26  30 30 2c 26 30 30 2c 26  |07,&00,&00,&00,&|
000009c0  30 30 0d 02 76 2b ef 32  33 2c 31 38 35 2c 26 30  |00..v+.23,185,&0|
000009d0  30 2c 26 30 30 2c 26 43  30 2c 26 32 30 2c 26 32  |0,&00,&C0,&20,&2|
000009e0  30 2c 26 31 30 2c 26 31  30 2c 26 31 30 0d 02 80  |0,&10,&10,&10...|
000009f0  2b ef 32 33 2c 31 38 34  2c 26 30 30 2c 26 30 37  |+.23,184,&00,&07|
00000a00  2c 26 31 38 2c 26 32 34  2c 26 32 38 2c 26 35 30  |,&18,&24,&28,&50|
00000a10  2c 26 34 30 2c 26 34 30  0d 02 8a 2b ef 32 33 2c  |,&40,&40...+.23,|
00000a20  31 38 33 2c 26 37 34 2c  26 37 34 2c 26 37 34 2c  |183,&74,&74,&74,|
00000a30  26 37 34 2c 26 37 34 2c  26 37 34 2c 26 37 43 2c  |&74,&74,&74,&7C,|
00000a40  26 30 30 0d 02 94 2b ef  32 33 2c 31 38 32 2c 26  |&00...+.23,182,&|
00000a50  30 41 2c 26 30 34 2c 26  30 30 2c 26 30 30 2c 26  |0A,&04,&00,&00,&|
00000a60  30 30 2c 26 30 30 2c 26  30 30 2c 26 30 30 0d 02  |00,&00,&00,&00..|
00000a70  9e 2b ef 32 33 2c 31 38  31 2c 26 30 30 2c 26 30  |.+.23,181,&00,&0|
00000a80  30 2c 26 38 30 2c 26 34  30 2c 26 42 30 2c 26 35  |0,&80,&40,&B0,&5|
00000a90  30 2c 26 41 38 2c 26 37  34 0d 02 a8 2b ef 32 33  |0,&A8,&74...+.23|
00000aa0  2c 31 38 30 2c 26 30 30  2c 26 30 35 2c 26 30 41  |,180,&00,&05,&0A|
00000ab0  2c 26 30 35 2c 26 30 41  2c 26 30 35 2c 26 30 41  |,&05,&0A,&05,&0A|
00000ac0  2c 26 30 35 0d 02 b2 2b  ef 32 33 2c 31 37 39 2c  |,&05...+.23,179,|
00000ad0  26 43 43 2c 26 30 43 2c  26 30 43 2c 26 30 30 2c  |&CC,&0C,&0C,&00,|
00000ae0  26 30 38 2c 26 30 34 2c  26 30 38 2c 26 30 30 0d  |&08,&04,&08,&00.|
00000af0  02 bc 2b ef 32 33 2c 31  37 38 2c 26 31 31 2c 26  |..+.23,178,&11,&|
00000b00  30 30 2c 26 30 30 2c 26  30 30 2c 26 30 30 2c 26  |00,&00,&00,&00,&|
00000b10  30 30 2c 26 30 30 2c 26  30 30 0d 02 c6 2b ef 32  |00,&00,&00...+.2|
00000b20  33 2c 31 37 37 2c 26 30  30 2c 26 30 30 2c 26 45  |3,177,&00,&00,&E|
00000b30  30 2c 26 38 30 2c 26 38  30 2c 26 43 30 2c 26 46  |0,&80,&80,&C0,&F|
00000b40  38 2c 26 46 43 0d 02 d0  2b ef 32 33 2c 31 37 36  |8,&FC...+.23,176|
00000b50  2c 26 30 30 2c 26 30 30  2c 26 30 33 2c 26 30 30  |,&00,&00,&03,&00|
00000b60  2c 26 30 30 2c 26 31 31  2c 26 31 46 2c 26 31 46  |,&00,&11,&1F,&1F|
00000b70  0d 02 da 2b ef 32 33 2c  31 37 35 2c 26 34 32 2c  |...+.23,175,&42,|
00000b80  26 38 32 2c 26 30 32 2c  26 38 32 2c 26 38 32 2c  |&82,&02,&82,&82,|
00000b90  26 38 32 2c 26 46 45 2c  26 30 30 0d 02 e4 2b ef  |&82,&FE,&00...+.|
00000ba0  32 33 2c 31 37 34 2c 26  34 32 2c 26 34 31 2c 26  |23,174,&42,&41,&|
00000bb0  34 30 2c 26 34 31 2c 26  34 31 2c 26 34 31 2c 26  |40,&41,&41,&41,&|
00000bc0  37 46 2c 26 30 30 0d 02  ee 2b ef 32 33 2c 31 37  |7F,&00...+.23,17|
00000bd0  33 2c 26 30 30 2c 26 46  45 2c 26 30 32 2c 26 30  |3,&00,&FE,&02,&0|
00000be0  32 2c 26 30 32 2c 26 30  32 2c 26 38 32 2c 26 34  |2,&02,&02,&82,&4|
00000bf0  32 0d 02 f8 2b ef 32 33  2c 31 37 32 2c 26 30 30  |2...+.23,172,&00|
00000c00  2c 26 37 46 2c 26 37 45  2c 26 37 45 2c 26 37 45  |,&7F,&7E,&7E,&7E|
00000c10  2c 26 34 30 2c 26 34 31  2c 26 34 32 0d 03 02 2b  |,&40,&41,&42...+|
00000c20  ef 32 33 2c 31 36 36 2c  26 46 46 2c 26 46 46 2c  |.23,166,&FF,&FF,|
00000c30  26 46 46 2c 26 46 46 2c  26 46 46 2c 26 46 46 2c  |&FF,&FF,&FF,&FF,|
00000c40  26 46 46 2c 26 46 46 0d  03 0c 2b ef 32 33 2c 31  |&FF,&FF...+.23,1|
00000c50  36 35 2c 26 35 35 2c 26  41 41 2c 26 35 35 2c 26  |65,&55,&AA,&55,&|
00000c60  41 41 2c 26 35 35 2c 26  41 41 2c 26 35 35 2c 26  |AA,&55,&AA,&55,&|
00000c70  41 41 0d 03 16 0a 20 f4  20 31 36 34 0d 03 20 0a  |AA.... . 164.. .|
00000c80  20 f4 20 31 36 33 0d 03  2a 2b ef 32 33 2c 31 36  | . 163..*+.23,16|
00000c90  32 2c 26 34 30 2c 26 30  38 2c 26 32 32 2c 26 30  |2,&40,&08,&22,&0|
00000ca0  30 2c 26 32 30 2c 26 30  34 2c 26 30 30 2c 26 38  |0,&20,&04,&00,&8|
00000cb0  30 0d 03 34 2b ef 32 33  2c 31 36 31 2c 26 30 34  |0..4+.23,161,&04|
00000cc0  2c 26 39 30 2c 26 30 32  2c 26 30 38 2c 26 34 31  |,&90,&02,&08,&41|
00000cd0  2c 26 30 30 2c 26 30 38  2c 26 30 30 0d 03 3e 2b  |,&00,&08,&00..>+|
00000ce0  ef 32 33 2c 31 36 30 2c  26 30 30 2c 26 31 30 2c  |.23,160,&00,&10,|
00000cf0  26 38 30 2c 26 30 30 2c  26 32 32 2c 26 30 30 2c  |&80,&00,&22,&00,|
00000d00  26 34 38 2c 26 30 31 0d  03 48 2b ef 32 33 2c 31  |&48,&01..H+.23,1|
00000d10  35 39 2c 26 30 31 2c 26  30 30 2c 26 32 30 2c 26  |59,&01,&00,&20,&|
00000d20  30 34 2c 26 30 30 2c 26  38 32 2c 26 31 30 2c 26  |04,&00,&82,&10,&|
00000d30  30 31 0d 03 52 2b ef 32  33 2c 31 35 38 2c 26 30  |01..R+.23,158,&0|
00000d40  30 2c 26 32 32 2c 26 30  38 2c 26 34 32 2c 26 31  |0,&22,&08,&42,&1|
00000d50  34 2c 26 30 30 2c 26 32  34 2c 26 30 30 0d 03 5c  |4,&00,&24,&00..\|
00000d60  2b ef 32 33 2c 31 35 37  2c 26 30 30 2c 26 35 35  |+.23,157,&00,&55|
00000d70  2c 26 30 30 2c 26 35 35  2c 26 30 30 2c 26 35 35  |,&00,&55,&00,&55|
00000d80  2c 26 30 30 2c 26 35 35  0d 03 66 2b ef 32 33 2c  |,&00,&55..f+.23,|
00000d90  31 35 36 2c 26 30 30 2c  26 41 41 2c 26 30 30 2c  |156,&00,&AA,&00,|
00000da0  26 41 41 2c 26 30 30 2c  26 41 41 2c 26 30 30 2c  |&AA,&00,&AA,&00,|
00000db0  26 41 41 0d 03 70 2b ef  32 33 2c 31 35 35 2c 26  |&AA..p+.23,155,&|
00000dc0  35 35 2c 26 30 30 2c 26  35 35 2c 26 30 30 2c 26  |55,&00,&55,&00,&|
00000dd0  35 35 2c 26 30 30 2c 26  35 35 2c 26 30 30 0d 03  |55,&00,&55,&00..|
00000de0  7a 2b ef 32 33 2c 31 35  34 2c 26 41 41 2c 26 30  |z+.23,154,&AA,&0|
00000df0  30 2c 26 41 41 2c 26 30  30 2c 26 41 41 2c 26 30  |0,&AA,&00,&AA,&0|
00000e00  30 2c 26 41 41 2c 26 30  30 0d 03 84 2b ef 32 33  |0,&AA,&00...+.23|
00000e10  2c 31 35 33 2c 26 30 30  2c 26 30 30 2c 26 31 38  |,153,&00,&00,&18|
00000e20  2c 26 33 43 2c 26 33 43  2c 26 31 38 2c 26 30 30  |,&3C,&3C,&18,&00|
00000e30  2c 26 30 30 0d 03 8e 2b  ef 32 33 2c 31 35 32 2c  |,&00...+.23,152,|
00000e40  26 33 43 2c 26 37 45 2c  26 46 46 2c 26 46 46 2c  |&3C,&7E,&FF,&FF,|
00000e50  26 46 46 2c 26 46 46 2c  26 37 45 2c 26 33 43 0d  |&FF,&FF,&7E,&3C.|
00000e60  03 98 2b ef 32 33 2c 31  35 31 2c 26 46 38 2c 26  |..+.23,151,&F8,&|
00000e70  46 38 2c 26 46 30 2c 26  45 30 2c 26 43 30 2c 26  |F8,&F0,&E0,&C0,&|
00000e80  30 30 2c 26 30 30 2c 26  30 30 0d 03 a2 2b ef 32  |00,&00,&00...+.2|
00000e90  33 2c 31 35 30 2c 26 31  46 2c 26 31 46 2c 26 30  |3,150,&1F,&1F,&0|
00000ea0  46 2c 26 30 37 2c 26 30  33 2c 26 30 30 2c 26 30  |F,&07,&03,&00,&0|
00000eb0  30 2c 26 30 30 0d 03 ac  2b ef 32 33 2c 31 34 39  |0,&00...+.23,149|
00000ec0  2c 26 30 30 2c 26 30 30  2c 26 30 30 2c 26 43 30  |,&00,&00,&00,&C0|
00000ed0  2c 26 45 30 2c 26 46 30  2c 26 46 38 2c 26 46 38  |,&E0,&F0,&F8,&F8|
00000ee0  0d 03 b6 2b ef 32 33 2c  31 34 38 2c 26 30 30 2c  |...+.23,148,&00,|
00000ef0  26 30 30 2c 26 30 30 2c  26 30 33 2c 26 30 37 2c  |&00,&00,&03,&07,|
00000f00  26 30 46 2c 26 31 46 2c  26 31 46 0d 03 c0 2b ef  |&0F,&1F,&1F...+.|
00000f10  32 33 2c 31 34 33 2c 26  46 45 2c 26 46 45 2c 26  |23,143,&FE,&FE,&|
00000f20  46 43 2c 26 46 43 2c 26  46 38 2c 26 46 30 2c 26  |FC,&FC,&F8,&F0,&|
00000f30  43 30 2c 26 30 30 0d 03  ca 2b ef 32 33 2c 31 34  |C0,&00...+.23,14|
00000f40  32 2c 26 37 46 2c 26 37  46 2c 26 33 46 2c 26 33  |2,&7F,&7F,&3F,&3|
00000f50  46 2c 26 31 46 2c 26 30  46 2c 26 30 33 2c 26 30  |F,&1F,&0F,&03,&0|
00000f60  30 0d 03 d4 2b ef 32 33  2c 31 34 31 2c 26 30 30  |0...+.23,141,&00|
00000f70  2c 26 43 30 2c 26 46 30  2c 26 46 38 2c 26 46 43  |,&C0,&F0,&F8,&FC|
00000f80  2c 26 46 43 2c 26 46 45  2c 26 46 45 0d 03 de 2b  |,&FC,&FE,&FE...+|
00000f90  ef 32 33 2c 31 34 30 2c  26 30 30 2c 26 30 33 2c  |.23,140,&00,&03,|
00000fa0  26 30 46 2c 26 31 46 2c  26 33 46 2c 26 33 46 2c  |&0F,&1F,&3F,&3F,|
00000fb0  26 37 46 2c 26 37 46 0d  03 e8 2b ef 32 33 2c 31  |&7F,&7F...+.23,1|
00000fc0  33 39 2c 26 46 46 2c 26  46 46 2c 26 46 45 2c 26  |39,&FF,&FF,&FE,&|
00000fd0  46 45 2c 26 46 43 2c 26  46 38 2c 26 46 30 2c 26  |FE,&FC,&F8,&F0,&|
00000fe0  43 30 0d 03 f2 2b ef 32  33 2c 31 33 38 2c 26 46  |C0...+.23,138,&F|
00000ff0  46 2c 26 46 46 2c 26 37  46 2c 26 37 46 2c 26 33  |F,&FF,&7F,&7F,&3|
00001000  46 2c 26 31 46 2c 26 30  46 2c 26 30 33 0d 03 fc  |F,&1F,&0F,&03...|
00001010  2b ef 32 33 2c 31 33 37  2c 26 43 30 2c 26 46 30  |+.23,137,&C0,&F0|
00001020  2c 26 46 38 2c 26 46 43  2c 26 46 45 2c 26 46 45  |,&F8,&FC,&FE,&FE|
00001030  2c 26 46 46 2c 26 46 46  0d 04 06 2b ef 32 33 2c  |,&FF,&FF...+.23,|
00001040  31 33 36 2c 26 30 33 2c  26 30 46 2c 26 31 46 2c  |136,&03,&0F,&1F,|
00001050  26 33 46 2c 26 37 46 2c  26 37 46 2c 26 46 46 2c  |&3F,&7F,&7F,&FF,|
00001060  26 46 46 0d 04 10 2b ef  32 33 2c 31 33 35 2c 26  |&FF...+.23,135,&|
00001070  46 43 2c 26 46 43 2c 26  46 43 2c 26 46 43 2c 26  |FC,&FC,&FC,&FC,&|
00001080  46 43 2c 26 46 43 2c 26  30 30 2c 26 30 30 0d 04  |FC,&FC,&00,&00..|
00001090  1a 2b ef 32 33 2c 31 33  34 2c 26 33 46 2c 26 33  |.+.23,134,&3F,&3|
000010a0  46 2c 26 33 46 2c 26 33  46 2c 26 33 46 2c 26 33  |F,&3F,&3F,&3F,&3|
000010b0  46 2c 26 30 30 2c 26 30  30 0d 04 24 2b ef 32 33  |F,&00,&00..$+.23|
000010c0  2c 31 33 33 2c 26 30 30  2c 26 30 30 2c 26 46 43  |,133,&00,&00,&FC|
000010d0  2c 26 46 43 2c 26 46 43  2c 26 46 43 2c 26 46 43  |,&FC,&FC,&FC,&FC|
000010e0  2c 26 46 43 0d 04 2e 2b  ef 32 33 2c 31 33 32 2c  |,&FC...+.23,132,|
000010f0  26 30 30 2c 26 30 30 2c  26 33 46 2c 26 33 46 2c  |&00,&00,&3F,&3F,|
00001100  26 33 46 2c 26 33 46 2c  26 33 46 2c 26 33 46 0d  |&3F,&3F,&3F,&3F.|
00001110  04 38 2b ef 32 33 2c 31  33 31 2c 26 30 30 2c 26  |.8+.23,131,&00,&|
00001120  30 30 2c 26 33 43 2c 26  33 43 2c 26 33 43 2c 26  |00,&3C,&3C,&3C,&|
00001130  33 43 2c 26 30 30 2c 26  30 30 0d 04 42 2b ef 32  |3C,&00,&00..B+.2|
00001140  33 2c 31 33 30 2c 26 30  30 2c 26 30 30 2c 26 30  |3,130,&00,&00,&0|
00001150  30 2c 26 31 38 2c 26 31  38 2c 26 30 30 2c 26 30  |0,&18,&18,&00,&0|
00001160  30 2c 26 30 30 0d 04 4c  2b ef 32 33 2c 31 32 39  |0,&00..L+.23,129|
00001170  2c 26 30 30 2c 26 30 30  2c 26 30 30 2c 26 31 30  |,&00,&00,&00,&10|
00001180  2c 26 30 30 2c 26 30 30  2c 26 30 30 2c 26 30 30  |,&00,&00,&00,&00|
00001190  0d 04 56 05 e1 0d 04 60  07 ee 85 87 0d 04 6a 13  |..V....`......j.|
000011a0  f4 20 45 52 52 4f 52 20  52 4f 55 54 49 4e 45 0d  |. ERROR ROUTINE.|
000011b0  04 74 16 3f 26 46 45 30  30 3d 31 3a 3f 26 46 45  |.t.?&FE00=1:?&FE|
000011c0  30 31 3d 38 30 0d 04 7e  19 db 3a ef 37 3a f1 22  |01=80..~..:.7:."|
000011d0  45 52 52 4f 52 20 52 45  50 4f 52 54 2d 22 0d 04  |ERROR REPORT-"..|
000011e0  88 16 f1 3a f6 3a f1 22  20 61 74 20 6c 69 6e 65  |...:.:." at line|
000011f0  20 22 3b 9e 0d 04 92 2e  e7 20 9f 3d 32 35 34 20  | ";...... .=254 |
00001200  8c 20 f1 27 22 44 69 67  69 74 69 73 65 72 20 52  |. .'"Digitiser R|
00001210  4f 4d 20 6e 6f 74 20 69  6e 73 74 61 6c 6c 65 64  |OM not installed|
00001220  2e 22 0d 04 9c 40 f1 27  22 50 6c 65 61 73 65 20  |."...@.'"Please |
00001230  72 65 70 6f 72 74 20 74  68 69 73 20 65 72 72 6f  |report this erro|
00001240  72 2c 20 61 6e 64 20 74  68 65 20 65 76 65 6e 74  |r, and the event|
00001250  73 77 68 69 63 68 20 63  61 75 73 65 64 20 69 74  |swhich caused it|
00001260  2e 22 0d ff                                       |."..|
00001264

27-03-89/Prog1.m0

27-03-89/Prog1.m1

27-03-89/Prog1.m2

27-03-89/Prog1.m4

27-03-89/Prog1.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .