Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_24.ADF » P/Edit2

P/Edit2

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_24.ADF
Filename: P/Edit2
Read OK: ✔
File size: 1863 bytes
Load address: 45204556
Exec address: 32746964
File contents
mode 0 screen editor comments
Variables:

 M$ current message,DOTX & DOTY current cursor position,STRTX & STRTY
start cursor position before dragging (BRX,BRY) & (TLX,TLY) are bottom
right and top left x and y coordinates of the original box that was saved

A is internal counter and inkey and general pass parameters thingy. F is
always used as the file#.

OVR is the isolated bit taken from the clipboard file as viewed in the
order that it was saved and  the order it is being loaded in  in.FLG is
set 0 if the chosen bit (see OVR) wasn't set and vice versa 

PASS is a counting loop used in the MODE5 module and also when drawing a
box (hence will always be a mutliple of 2) 

SCRN is used in the MODE5 module,and is initially set to &140 less that
the bottom of the screen memory (as in the genric section th at follows
&140 is added back on) for the mode.LOC is the current byte in
question,being poked

SVTLX is used in the two versions of the loadin routine (see MODE5 module
and around line 700) to keep the original value saved whil e the actual
value is incremented

TMPX and TMPY are used to provide compatibilty between routines - ie.to
pass parameters and count things in loops 

CNSTY and CNSTX are used when dragging out a box and effectively set the
stp of the FOR...NEXT loop to enable the box the be dragged from any
corner

HINDX and EINDX are used for when the appropriate whole selected bytes are
to be saved.Home index is how many bits in from the MSB o f the byte the
cursor is at and End index is how many bits in from the MSB too
23,0,10,12... is used to disable the cursor.If there are any suspicious
+1's anywhere it is usually because natural numbers start an d 1 but the
co-ordinate system starts at 0,0

Filenames: 

EDIT is the startup and load in part ; EDITTMP is used internally as a
temporary file when the move option is chosen and will be del eted ;

EDITCRE the core program which is where almost all execution time is spent 

EDITENL contains the pixel by pixel editor ; EDITCLP is the clipboard file
in the format (strtx,strty)(dotx,doty)(bytes...  To avoid the can't extend
error ensure the disk is *compacted.No it won't run accross the tube as it
pokes memory addresses 

Errors:

within the core program only ; 'SIZE?' means that the selected area to
zoom in on was greater than 30x40 ; 'WIDTH?' and 'DEPTH?' mea ns that the
selected area didn't enclose any pixels ; 'CANNOT' is given by the paste
command if there is no clipboard file on the di sk 

Blow by blow: 

EDIT>>> 

FX3,4 restores output to the screen when re-entering fron 'editenl' as it
is turned off in that program to jab keys into the keyboar d buffer ;
FX4,1 makes the cursors ASCii ; HIMEM is dropped as the message area is
stored here later FX12,8 slows the keyboard repeat to prevent delays while
the pixel-pointer catches up with the keyboard buffer EDITCRE>>> 

Is made up of many gosubs each of which are used by the command table
right at te beginning.In order of appearance they are Keypresses are
detected and if cursor keys then the pixel-pointer is move else check is
it is one of the reserved words  Save what was in the message area (eight
letters each taking 8 bytes) just below screen memory then print the
message using MOVE and

 VDU5 then restore those bytHighlight the cursor with a 2x2 box by
starting (x-2,y-2) from the current cursor position the increasin g the
co-ordinates.If the point is off the screen then nothing is plotted to
avoid half the box appearing on the other side of the s creen  mass
calculation to locate any pixel on the screen using true (x,y)
co-ordinates measured from top left (0,0) to bottom right (639,2 55)  

Expand a box by seeing which of the cursors was pressed and adding or
subtracting from DOTn.CNSTX and CNSTY allow the box to be drag ged
starting at any corner,although on pressing chrs(135) they are sorted into
size order so that STRTn is  top left and DOTn is bottom right.If the box
has no depth or width then the user will be alerted of this 

Move box by adding to BOTH STRTn and DOTn instead of just DOTn as above.On
pressing chrs(135) it returns 

Save boxed area to nearest whole byte (the individual bits required from
each end is calculated later) 

Loadin by getting a byte from the file,ANDing it with a mask,and then
checking whether the chosen bit is set.Then get byte from scre en
memory,AND it with a negative mask to ensure the selected bit is set 0.Or
the two together 

Clear the area temporarily renames the clipboard file,then creates its own
by saving a load of VAL(M$),using M$ to save variable nam es.Load in that
file,and restore the clipboard.255=white;0=black,170=(10101010) therefore
grey 

Select black,grey,or white.No default,if the question is not answered it
is asked again. 

Get co-ordinates of the area last selected in the clipboard file.If not
exist then print 'CANNOT' in the message area 

One pass version of the draw a pulsing box.This is only used by the box
drawer so that the box is permanently left on the screen

Enter text (delete and copy are disabled).Pressing RETURN puts it in
columns.Ex-or's it so that if crossing a black/white boundary i t appears
50:50 

Procedit drags a box,saves the area,saves the entire screen to
$.OUTPUT,then chains the mode5 extention module  EDITENL>>> 

Openin the file,to get co-ordinates,remove the cursor with VDU23,define
variables and those with I want to save unaltered for later 

As with loadin above,except that is flag is set then a whole square is
coloured in with a for...next poking 255 into the screen memo ry  Print
current pixel position,which can be increased up to the limit of the
screen (29,39). 

If tab pressed then ex-or whatever was there with 255 but if pressed
chrs(135) then stop the editor and save Reverse of loadin except that if
TLX~8 isn't zero then some blank bits must be saved in the byte before the
'pixels' (squares on the screen) can be evaluated otherwise the file would
be ((HINDX+(8-EINDX))*Y too short

Print 'reloading' then emulate what '$.EDIT' does (loads in the
screen,turn on the first pixel at TLHC) then insert 'P' into the key b
buffer and run '$.EDITCRE' which then jumps to 'paste' mode to insert the
new version 

R.Sprowson 3/9/95 


00000000  0d 6d 6f 64 65 20 30 20  73 63 72 65 65 6e 20 65  |.mode 0 screen e|
00000010  64 69 74 6f 72 20 63 6f  6d 6d 65 6e 74 73 0d 56  |ditor comments.V|
00000020  61 72 69 61 62 6c 65 73  3a 0d 0d 20 4d 24 20 63  |ariables:.. M$ c|
00000030  75 72 72 65 6e 74 20 6d  65 73 73 61 67 65 2c 44  |urrent message,D|
00000040  4f 54 58 20 26 20 44 4f  54 59 20 63 75 72 72 65  |OTX & DOTY curre|
00000050  6e 74 20 63 75 72 73 6f  72 20 70 6f 73 69 74 69  |nt cursor positi|
00000060  6f 6e 2c 53 54 52 54 58  20 26 20 53 54 52 54 59  |on,STRTX & STRTY|
00000070  0d 73 74 61 72 74 20 63  75 72 73 6f 72 20 70 6f  |.start cursor po|
00000080  73 69 74 69 6f 6e 20 62  65 66 6f 72 65 20 64 72  |sition before dr|
00000090  61 67 67 69 6e 67 20 28  42 52 58 2c 42 52 59 29  |agging (BRX,BRY)|
000000a0  20 26 20 28 54 4c 58 2c  54 4c 59 29 20 61 72 65  | & (TLX,TLY) are|
000000b0  20 62 6f 74 74 6f 6d 0d  72 69 67 68 74 20 61 6e  | bottom.right an|
000000c0  64 20 74 6f 70 20 6c 65  66 74 20 78 20 61 6e 64  |d top left x and|
000000d0  20 79 20 63 6f 6f 72 64  69 6e 61 74 65 73 20 6f  | y coordinates o|
000000e0  66 20 74 68 65 20 6f 72  69 67 69 6e 61 6c 20 62  |f the original b|
000000f0  6f 78 20 74 68 61 74 20  77 61 73 20 73 61 76 65  |ox that was save|
00000100  64 0d 0d 41 20 69 73 20  69 6e 74 65 72 6e 61 6c  |d..A is internal|
00000110  20 63 6f 75 6e 74 65 72  20 61 6e 64 20 69 6e 6b  | counter and ink|
00000120  65 79 20 61 6e 64 20 67  65 6e 65 72 61 6c 20 70  |ey and general p|
00000130  61 73 73 20 70 61 72 61  6d 65 74 65 72 73 20 74  |ass parameters t|
00000140  68 69 6e 67 79 2e 20 46  20 69 73 0d 61 6c 77 61  |hingy. F is.alwa|
00000150  79 73 20 75 73 65 64 20  61 73 20 74 68 65 20 66  |ys used as the f|
00000160  69 6c 65 23 2e 0d 0d 4f  56 52 20 69 73 20 74 68  |ile#...OVR is th|
00000170  65 20 69 73 6f 6c 61 74  65 64 20 62 69 74 20 74  |e isolated bit t|
00000180  61 6b 65 6e 20 66 72 6f  6d 20 74 68 65 20 63 6c  |aken from the cl|
00000190  69 70 62 6f 61 72 64 20  66 69 6c 65 20 61 73 20  |ipboard file as |
000001a0  76 69 65 77 65 64 20 69  6e 20 74 68 65 0d 6f 72  |viewed in the.or|
000001b0  64 65 72 20 74 68 61 74  20 69 74 20 77 61 73 20  |der that it was |
000001c0  73 61 76 65 64 20 61 6e  64 20 20 74 68 65 20 6f  |saved and  the o|
000001d0  72 64 65 72 20 69 74 20  69 73 20 62 65 69 6e 67  |rder it is being|
000001e0  20 6c 6f 61 64 65 64 20  69 6e 20 20 69 6e 2e 46  | loaded in  in.F|
000001f0  4c 47 20 69 73 0d 73 65  74 20 30 20 69 66 20 74  |LG is.set 0 if t|
00000200  68 65 20 63 68 6f 73 65  6e 20 62 69 74 20 28 73  |he chosen bit (s|
00000210  65 65 20 4f 56 52 29 20  77 61 73 6e 27 74 20 73  |ee OVR) wasn't s|
00000220  65 74 20 61 6e 64 20 76  69 63 65 20 76 65 72 73  |et and vice vers|
00000230  61 20 0d 0d 50 41 53 53  20 69 73 20 61 20 63 6f  |a ..PASS is a co|
00000240  75 6e 74 69 6e 67 20 6c  6f 6f 70 20 75 73 65 64  |unting loop used|
00000250  20 69 6e 20 74 68 65 20  4d 4f 44 45 35 20 6d 6f  | in the MODE5 mo|
00000260  64 75 6c 65 20 61 6e 64  20 61 6c 73 6f 20 77 68  |dule and also wh|
00000270  65 6e 20 64 72 61 77 69  6e 67 20 61 0d 62 6f 78  |en drawing a.box|
00000280  20 28 68 65 6e 63 65 20  77 69 6c 6c 20 61 6c 77  | (hence will alw|
00000290  61 79 73 20 62 65 20 61  20 6d 75 74 6c 69 70 6c  |ays be a mutlipl|
000002a0  65 20 6f 66 20 32 29 20  0d 0d 53 43 52 4e 20 69  |e of 2) ..SCRN i|
000002b0  73 20 75 73 65 64 20 69  6e 20 74 68 65 20 4d 4f  |s used in the MO|
000002c0  44 45 35 20 6d 6f 64 75  6c 65 2c 61 6e 64 20 69  |DE5 module,and i|
000002d0  73 20 69 6e 69 74 69 61  6c 6c 79 20 73 65 74 20  |s initially set |
000002e0  74 6f 20 26 31 34 30 20  6c 65 73 73 20 74 68 61  |to &140 less tha|
000002f0  74 0d 74 68 65 20 62 6f  74 74 6f 6d 20 6f 66 20  |t.the bottom of |
00000300  74 68 65 20 73 63 72 65  65 6e 20 6d 65 6d 6f 72  |the screen memor|
00000310  79 20 28 61 73 20 69 6e  20 74 68 65 20 67 65 6e  |y (as in the gen|
00000320  72 69 63 20 73 65 63 74  69 6f 6e 20 74 68 20 61  |ric section th a|
00000330  74 20 66 6f 6c 6c 6f 77  73 0d 26 31 34 30 20 69  |t follows.&140 i|
00000340  73 20 61 64 64 65 64 20  62 61 63 6b 20 6f 6e 29  |s added back on)|
00000350  20 66 6f 72 20 74 68 65  20 6d 6f 64 65 2e 4c 4f  | for the mode.LO|
00000360  43 20 69 73 20 74 68 65  20 63 75 72 72 65 6e 74  |C is the current|
00000370  20 62 79 74 65 20 69 6e  0d 71 75 65 73 74 69 6f  | byte in.questio|
00000380  6e 2c 62 65 69 6e 67 20  70 6f 6b 65 64 0d 0d 53  |n,being poked..S|
00000390  56 54 4c 58 20 69 73 20  75 73 65 64 20 69 6e 20  |VTLX is used in |
000003a0  74 68 65 20 74 77 6f 20  76 65 72 73 69 6f 6e 73  |the two versions|
000003b0  20 6f 66 20 74 68 65 20  6c 6f 61 64 69 6e 20 72  | of the loadin r|
000003c0  6f 75 74 69 6e 65 20 28  73 65 65 20 4d 4f 44 45  |outine (see MODE|
000003d0  35 20 6d 6f 64 75 6c 65  0d 61 6e 64 20 61 72 6f  |5 module.and aro|
000003e0  75 6e 64 20 6c 69 6e 65  20 37 30 30 29 20 74 6f  |und line 700) to|
000003f0  20 6b 65 65 70 20 74 68  65 20 6f 72 69 67 69 6e  | keep the origin|
00000400  61 6c 20 76 61 6c 75 65  20 73 61 76 65 64 20 77  |al value saved w|
00000410  68 69 6c 20 65 20 74 68  65 20 61 63 74 75 61 6c  |hil e the actual|
00000420  0d 76 61 6c 75 65 20 69  73 20 69 6e 63 72 65 6d  |.value is increm|
00000430  65 6e 74 65 64 0d 0d 54  4d 50 58 20 61 6e 64 20  |ented..TMPX and |
00000440  54 4d 50 59 20 61 72 65  20 75 73 65 64 20 74 6f  |TMPY are used to|
00000450  20 70 72 6f 76 69 64 65  20 63 6f 6d 70 61 74 69  | provide compati|
00000460  62 69 6c 74 79 20 62 65  74 77 65 65 6e 20 72 6f  |bilty between ro|
00000470  75 74 69 6e 65 73 20 2d  20 69 65 2e 74 6f 0d 70  |utines - ie.to.p|
00000480  61 73 73 20 70 61 72 61  6d 65 74 65 72 73 20 61  |ass parameters a|
00000490  6e 64 20 63 6f 75 6e 74  20 74 68 69 6e 67 73 20  |nd count things |
000004a0  69 6e 20 6c 6f 6f 70 73  20 0d 0d 43 4e 53 54 59  |in loops ..CNSTY|
000004b0  20 61 6e 64 20 43 4e 53  54 58 20 61 72 65 20 75  | and CNSTX are u|
000004c0  73 65 64 20 77 68 65 6e  20 64 72 61 67 67 69 6e  |sed when draggin|
000004d0  67 20 6f 75 74 20 61 20  62 6f 78 20 61 6e 64 20  |g out a box and |
000004e0  65 66 66 65 63 74 69 76  65 6c 79 20 73 65 74 20  |effectively set |
000004f0  74 68 65 0d 73 74 70 20  6f 66 20 74 68 65 20 46  |the.stp of the F|
00000500  4f 52 2e 2e 2e 4e 45 58  54 20 6c 6f 6f 70 20 74  |OR...NEXT loop t|
00000510  6f 20 65 6e 61 62 6c 65  20 74 68 65 20 62 6f 78  |o enable the box|
00000520  20 74 68 65 20 62 65 20  64 72 61 67 67 65 64 20  | the be dragged |
00000530  66 72 6f 6d 20 61 6e 79  0d 63 6f 72 6e 65 72 0d  |from any.corner.|
00000540  0d 48 49 4e 44 58 20 61  6e 64 20 45 49 4e 44 58  |.HINDX and EINDX|
00000550  20 61 72 65 20 75 73 65  64 20 66 6f 72 20 77 68  | are used for wh|
00000560  65 6e 20 74 68 65 20 61  70 70 72 6f 70 72 69 61  |en the appropria|
00000570  74 65 20 77 68 6f 6c 65  20 73 65 6c 65 63 74 65  |te whole selecte|
00000580  64 20 62 79 74 65 73 20  61 72 65 0d 74 6f 20 62  |d bytes are.to b|
00000590  65 20 73 61 76 65 64 2e  48 6f 6d 65 20 69 6e 64  |e saved.Home ind|
000005a0  65 78 20 69 73 20 68 6f  77 20 6d 61 6e 79 20 62  |ex is how many b|
000005b0  69 74 73 20 69 6e 20 66  72 6f 6d 20 74 68 65 20  |its in from the |
000005c0  4d 53 42 20 6f 20 66 20  74 68 65 20 62 79 74 65  |MSB o f the byte|
000005d0  20 74 68 65 0d 63 75 72  73 6f 72 20 69 73 20 61  | the.cursor is a|
000005e0  74 20 61 6e 64 20 45 6e  64 20 69 6e 64 65 78 20  |t and End index |
000005f0  69 73 20 68 6f 77 20 6d  61 6e 79 20 62 69 74 73  |is how many bits|
00000600  20 69 6e 20 66 72 6f 6d  20 74 68 65 20 4d 53 42  | in from the MSB|
00000610  20 74 6f 6f 0d 32 33 2c  30 2c 31 30 2c 31 32 2e  | too.23,0,10,12.|
00000620  2e 2e 20 69 73 20 75 73  65 64 20 74 6f 20 64 69  |.. is used to di|
00000630  73 61 62 6c 65 20 74 68  65 20 63 75 72 73 6f 72  |sable the cursor|
00000640  2e 49 66 20 74 68 65 72  65 20 61 72 65 20 61 6e  |.If there are an|
00000650  79 20 73 75 73 70 69 63  69 6f 75 73 0d 2b 31 27  |y suspicious.+1'|
00000660  73 20 61 6e 79 77 68 65  72 65 20 69 74 20 69 73  |s anywhere it is|
00000670  20 75 73 75 61 6c 6c 79  20 62 65 63 61 75 73 65  | usually because|
00000680  20 6e 61 74 75 72 61 6c  20 6e 75 6d 62 65 72 73  | natural numbers|
00000690  20 73 74 61 72 74 20 61  6e 20 64 20 31 20 62 75  | start an d 1 bu|
000006a0  74 20 74 68 65 0d 63 6f  2d 6f 72 64 69 6e 61 74  |t the.co-ordinat|
000006b0  65 20 73 79 73 74 65 6d  20 73 74 61 72 74 73 20  |e system starts |
000006c0  61 74 20 30 2c 30 0d 0d  46 69 6c 65 6e 61 6d 65  |at 0,0..Filename|
000006d0  73 3a 20 0d 0d 45 44 49  54 20 69 73 20 74 68 65  |s: ..EDIT is the|
000006e0  20 73 74 61 72 74 75 70  20 61 6e 64 20 6c 6f 61  | startup and loa|
000006f0  64 20 69 6e 20 70 61 72  74 20 3b 20 45 44 49 54  |d in part ; EDIT|
00000700  54 4d 50 20 69 73 20 75  73 65 64 20 69 6e 74 65  |TMP is used inte|
00000710  72 6e 61 6c 6c 79 20 61  73 20 61 0d 74 65 6d 70  |rnally as a.temp|
00000720  6f 72 61 72 79 20 66 69  6c 65 20 77 68 65 6e 20  |orary file when |
00000730  74 68 65 20 6d 6f 76 65  20 6f 70 74 69 6f 6e 20  |the move option |
00000740  69 73 20 63 68 6f 73 65  6e 20 61 6e 64 20 77 69  |is chosen and wi|
00000750  6c 6c 20 62 65 20 64 65  6c 20 65 74 65 64 20 3b  |ll be del eted ;|
00000760  0d 0d 45 44 49 54 43 52  45 20 74 68 65 20 63 6f  |..EDITCRE the co|
00000770  72 65 20 70 72 6f 67 72  61 6d 20 77 68 69 63 68  |re program which|
00000780  20 69 73 20 77 68 65 72  65 20 61 6c 6d 6f 73 74  | is where almost|
00000790  20 61 6c 6c 20 65 78 65  63 75 74 69 6f 6e 20 74  | all execution t|
000007a0  69 6d 65 20 69 73 20 73  70 65 6e 74 20 0d 0d 45  |ime is spent ..E|
000007b0  44 49 54 45 4e 4c 20 63  6f 6e 74 61 69 6e 73 20  |DITENL contains |
000007c0  74 68 65 20 70 69 78 65  6c 20 62 79 20 70 69 78  |the pixel by pix|
000007d0  65 6c 20 65 64 69 74 6f  72 20 3b 20 45 44 49 54  |el editor ; EDIT|
000007e0  43 4c 50 20 69 73 20 74  68 65 20 63 6c 69 70 62  |CLP is the clipb|
000007f0  6f 61 72 64 20 66 69 6c  65 0d 69 6e 20 74 68 65  |oard file.in the|
00000800  20 66 6f 72 6d 61 74 20  28 73 74 72 74 78 2c 73  | format (strtx,s|
00000810  74 72 74 79 29 28 64 6f  74 78 2c 64 6f 74 79 29  |trty)(dotx,doty)|
00000820  28 62 79 74 65 73 2e 2e  2e 20 20 54 6f 20 61 76  |(bytes...  To av|
00000830  6f 69 64 20 74 68 65 20  63 61 6e 27 74 20 65 78  |oid the can't ex|
00000840  74 65 6e 64 0d 65 72 72  6f 72 20 65 6e 73 75 72  |tend.error ensur|
00000850  65 20 74 68 65 20 64 69  73 6b 20 69 73 20 2a 63  |e the disk is *c|
00000860  6f 6d 70 61 63 74 65 64  2e 4e 6f 20 69 74 20 77  |ompacted.No it w|
00000870  6f 6e 27 74 20 72 75 6e  20 61 63 63 72 6f 73 73  |on't run accross|
00000880  20 74 68 65 20 74 75 62  65 20 61 73 20 69 74 0d  | the tube as it.|
00000890  70 6f 6b 65 73 20 6d 65  6d 6f 72 79 20 61 64 64  |pokes memory add|
000008a0  72 65 73 73 65 73 20 0d  0d 45 72 72 6f 72 73 3a  |resses ..Errors:|
000008b0  0d 0d 77 69 74 68 69 6e  20 74 68 65 20 63 6f 72  |..within the cor|
000008c0  65 20 70 72 6f 67 72 61  6d 20 6f 6e 6c 79 20 3b  |e program only ;|
000008d0  20 27 53 49 5a 45 3f 27  20 6d 65 61 6e 73 20 74  | 'SIZE?' means t|
000008e0  68 61 74 20 74 68 65 20  73 65 6c 65 63 74 65 64  |hat the selected|
000008f0  20 61 72 65 61 20 74 6f  0d 7a 6f 6f 6d 20 69 6e  | area to.zoom in|
00000900  20 6f 6e 20 77 61 73 20  67 72 65 61 74 65 72 20  | on was greater |
00000910  74 68 61 6e 20 33 30 78  34 30 20 3b 20 27 57 49  |than 30x40 ; 'WI|
00000920  44 54 48 3f 27 20 61 6e  64 20 27 44 45 50 54 48  |DTH?' and 'DEPTH|
00000930  3f 27 20 6d 65 61 20 6e  73 20 74 68 61 74 20 74  |?' mea ns that t|
00000940  68 65 0d 73 65 6c 65 63  74 65 64 20 61 72 65 61  |he.selected area|
00000950  20 64 69 64 6e 27 74 20  65 6e 63 6c 6f 73 65 20  | didn't enclose |
00000960  61 6e 79 20 70 69 78 65  6c 73 20 3b 20 27 43 41  |any pixels ; 'CA|
00000970  4e 4e 4f 54 27 20 69 73  20 67 69 76 65 6e 20 62  |NNOT' is given b|
00000980  79 20 74 68 65 20 70 61  73 74 65 0d 63 6f 6d 6d  |y the paste.comm|
00000990  61 6e 64 20 69 66 20 74  68 65 72 65 20 69 73 20  |and if there is |
000009a0  6e 6f 20 63 6c 69 70 62  6f 61 72 64 20 66 69 6c  |no clipboard fil|
000009b0  65 20 6f 6e 20 74 68 65  20 64 69 20 73 6b 20 0d  |e on the di sk .|
000009c0  0d 42 6c 6f 77 20 62 79  20 62 6c 6f 77 3a 20 0d  |.Blow by blow: .|
000009d0  0d 45 44 49 54 3e 3e 3e  20 0d 0d 46 58 33 2c 34  |.EDIT>>> ..FX3,4|
000009e0  20 72 65 73 74 6f 72 65  73 20 6f 75 74 70 75 74  | restores output|
000009f0  20 74 6f 20 74 68 65 20  73 63 72 65 65 6e 20 77  | to the screen w|
00000a00  68 65 6e 20 72 65 2d 65  6e 74 65 72 69 6e 67 20  |hen re-entering |
00000a10  66 72 6f 6e 20 27 65 64  69 74 65 6e 6c 27 20 61  |fron 'editenl' a|
00000a20  73 20 69 74 0d 69 73 20  74 75 72 6e 65 64 20 6f  |s it.is turned o|
00000a30  66 66 20 69 6e 20 74 68  61 74 20 70 72 6f 67 72  |ff in that progr|
00000a40  61 6d 20 74 6f 20 6a 61  62 20 6b 65 79 73 20 69  |am to jab keys i|
00000a50  6e 74 6f 20 74 68 65 20  6b 65 79 62 6f 61 72 20  |nto the keyboar |
00000a60  64 20 62 75 66 66 65 72  20 3b 0d 46 58 34 2c 31  |d buffer ;.FX4,1|
00000a70  20 6d 61 6b 65 73 20 74  68 65 20 63 75 72 73 6f  | makes the curso|
00000a80  72 73 20 41 53 43 69 69  20 3b 20 48 49 4d 45 4d  |rs ASCii ; HIMEM|
00000a90  20 69 73 20 64 72 6f 70  70 65 64 20 61 73 20 74  | is dropped as t|
00000aa0  68 65 20 6d 65 73 73 61  67 65 20 61 72 65 61 20  |he message area |
00000ab0  69 73 0d 73 74 6f 72 65  64 20 68 65 72 65 20 6c  |is.stored here l|
00000ac0  61 74 65 72 20 46 58 31  32 2c 38 20 73 6c 6f 77  |ater FX12,8 slow|
00000ad0  73 20 74 68 65 20 6b 65  79 62 6f 61 72 64 20 72  |s the keyboard r|
00000ae0  65 70 65 61 74 20 74 6f  20 70 72 65 76 65 6e 74  |epeat to prevent|
00000af0  20 64 65 6c 61 79 73 20  77 68 69 6c 65 0d 74 68  | delays while.th|
00000b00  65 20 70 69 78 65 6c 2d  70 6f 69 6e 74 65 72 20  |e pixel-pointer |
00000b10  63 61 74 63 68 65 73 20  75 70 20 77 69 74 68 20  |catches up with |
00000b20  74 68 65 20 6b 65 79 62  6f 61 72 64 20 62 75 66  |the keyboard buf|
00000b30  66 65 72 20 45 44 49 54  43 52 45 3e 3e 3e 20 0d  |fer EDITCRE>>> .|
00000b40  0d 49 73 20 6d 61 64 65  20 75 70 20 6f 66 20 6d  |.Is made up of m|
00000b50  61 6e 79 20 67 6f 73 75  62 73 20 65 61 63 68 20  |any gosubs each |
00000b60  6f 66 20 77 68 69 63 68  20 61 72 65 20 75 73 65  |of which are use|
00000b70  64 20 62 79 20 74 68 65  20 63 6f 6d 6d 61 6e 64  |d by the command|
00000b80  20 74 61 62 6c 65 0d 72  69 67 68 74 20 61 74 20  | table.right at |
00000b90  74 65 20 62 65 67 69 6e  6e 69 6e 67 2e 49 6e 20  |te beginning.In |
00000ba0  6f 72 64 65 72 20 6f 66  20 61 70 70 65 61 72 61  |order of appeara|
00000bb0  6e 63 65 20 74 68 65 79  20 61 72 65 20 4b 65 79  |nce they are Key|
00000bc0  70 72 65 73 73 65 73 20  61 72 65 0d 64 65 74 65  |presses are.dete|
00000bd0  63 74 65 64 20 61 6e 64  20 69 66 20 63 75 72 73  |cted and if curs|
00000be0  6f 72 20 6b 65 79 73 20  74 68 65 6e 20 74 68 65  |or keys then the|
00000bf0  20 70 69 78 65 6c 2d 70  6f 69 6e 74 65 72 20 69  | pixel-pointer i|
00000c00  73 20 6d 6f 76 65 20 65  6c 73 65 20 63 68 65 63  |s move else chec|
00000c10  6b 20 69 73 0d 69 74 20  69 73 20 6f 6e 65 20 6f  |k is.it is one o|
00000c20  66 20 74 68 65 20 72 65  73 65 72 76 65 64 20 77  |f the reserved w|
00000c30  6f 72 64 73 20 20 53 61  76 65 20 77 68 61 74 20  |ords  Save what |
00000c40  77 61 73 20 69 6e 20 74  68 65 20 6d 65 73 73 61  |was in the messa|
00000c50  67 65 20 61 72 65 61 20  28 65 69 67 68 74 0d 6c  |ge area (eight.l|
00000c60  65 74 74 65 72 73 20 65  61 63 68 20 74 61 6b 69  |etters each taki|
00000c70  6e 67 20 38 20 62 79 74  65 73 29 20 6a 75 73 74  |ng 8 bytes) just|
00000c80  20 62 65 6c 6f 77 20 73  63 72 65 65 6e 20 6d 65  | below screen me|
00000c90  6d 6f 72 79 20 74 68 65  6e 20 70 72 69 6e 74 20  |mory then print |
00000ca0  74 68 65 0d 6d 65 73 73  61 67 65 20 75 73 69 6e  |the.message usin|
00000cb0  67 20 4d 4f 56 45 20 61  6e 64 0d 0d 20 56 44 55  |g MOVE and.. VDU|
00000cc0  35 20 74 68 65 6e 20 72  65 73 74 6f 72 65 20 74  |5 then restore t|
00000cd0  68 6f 73 65 20 62 79 74  48 69 67 68 6c 69 67 68  |hose bytHighligh|
00000ce0  74 20 74 68 65 20 63 75  72 73 6f 72 20 77 69 74  |t the cursor wit|
00000cf0  68 20 61 20 32 78 32 20  62 6f 78 20 62 79 0d 73  |h a 2x2 box by.s|
00000d00  74 61 72 74 69 6e 67 20  28 78 2d 32 2c 79 2d 32  |tarting (x-2,y-2|
00000d10  29 20 66 72 6f 6d 20 74  68 65 20 63 75 72 72 65  |) from the curre|
00000d20  6e 74 20 63 75 72 73 6f  72 20 70 6f 73 69 74 69  |nt cursor positi|
00000d30  6f 6e 20 74 68 65 20 69  6e 63 72 65 61 73 69 6e  |on the increasin|
00000d40  20 67 20 74 68 65 0d 63  6f 2d 6f 72 64 69 6e 61  | g the.co-ordina|
00000d50  74 65 73 2e 49 66 20 74  68 65 20 70 6f 69 6e 74  |tes.If the point|
00000d60  20 69 73 20 6f 66 66 20  74 68 65 20 73 63 72 65  | is off the scre|
00000d70  65 6e 20 74 68 65 6e 20  6e 6f 74 68 69 6e 67 20  |en then nothing |
00000d80  69 73 20 70 6c 6f 74 74  65 64 20 74 6f 0d 61 76  |is plotted to.av|
00000d90  6f 69 64 20 68 61 6c 66  20 74 68 65 20 62 6f 78  |oid half the box|
00000da0  20 61 70 70 65 61 72 69  6e 67 20 6f 6e 20 74 68  | appearing on th|
00000db0  65 20 6f 74 68 65 72 20  73 69 64 65 20 6f 66 20  |e other side of |
00000dc0  74 68 65 20 73 20 63 72  65 65 6e 20 20 6d 61 73  |the s creen  mas|
00000dd0  73 0d 63 61 6c 63 75 6c  61 74 69 6f 6e 20 74 6f  |s.calculation to|
00000de0  20 6c 6f 63 61 74 65 20  61 6e 79 20 70 69 78 65  | locate any pixe|
00000df0  6c 20 6f 6e 20 74 68 65  20 73 63 72 65 65 6e 20  |l on the screen |
00000e00  75 73 69 6e 67 20 74 72  75 65 20 28 78 2c 79 29  |using true (x,y)|
00000e10  0d 63 6f 2d 6f 72 64 69  6e 61 74 65 73 20 6d 65  |.co-ordinates me|
00000e20  61 73 75 72 65 64 20 66  72 6f 6d 20 74 6f 70 20  |asured from top |
00000e30  6c 65 66 74 20 28 30 2c  30 29 20 74 6f 20 62 6f  |left (0,0) to bo|
00000e40  74 74 6f 6d 20 72 69 67  68 74 20 28 36 33 39 2c  |ttom right (639,|
00000e50  32 20 35 35 29 20 20 0d  0d 45 78 70 61 6e 64 20  |2 55)  ..Expand |
00000e60  61 20 62 6f 78 20 62 79  20 73 65 65 69 6e 67 20  |a box by seeing |
00000e70  77 68 69 63 68 20 6f 66  20 74 68 65 20 63 75 72  |which of the cur|
00000e80  73 6f 72 73 20 77 61 73  20 70 72 65 73 73 65 64  |sors was pressed|
00000e90  20 61 6e 64 20 61 64 64  69 6e 67 20 6f 72 0d 73  | and adding or.s|
00000ea0  75 62 74 72 61 63 74 69  6e 67 20 66 72 6f 6d 20  |ubtracting from |
00000eb0  44 4f 54 6e 2e 43 4e 53  54 58 20 61 6e 64 20 43  |DOTn.CNSTX and C|
00000ec0  4e 53 54 59 20 61 6c 6c  6f 77 20 74 68 65 20 62  |NSTY allow the b|
00000ed0  6f 78 20 74 6f 20 62 65  20 64 72 61 67 20 67 65  |ox to be drag ge|
00000ee0  64 0d 73 74 61 72 74 69  6e 67 20 61 74 20 61 6e  |d.starting at an|
00000ef0  79 20 63 6f 72 6e 65 72  2c 61 6c 74 68 6f 75 67  |y corner,althoug|
00000f00  68 20 6f 6e 20 70 72 65  73 73 69 6e 67 20 63 68  |h on pressing ch|
00000f10  72 73 28 31 33 35 29 20  74 68 65 79 20 61 72 65  |rs(135) they are|
00000f20  20 73 6f 72 74 65 64 20  69 6e 74 6f 0d 73 69 7a  | sorted into.siz|
00000f30  65 20 6f 72 64 65 72 20  73 6f 20 74 68 61 74 20  |e order so that |
00000f40  53 54 52 54 6e 20 69 73  20 20 74 6f 70 20 6c 65  |STRTn is  top le|
00000f50  66 74 20 61 6e 64 20 44  4f 54 6e 20 69 73 20 62  |ft and DOTn is b|
00000f60  6f 74 74 6f 6d 20 72 69  67 68 74 2e 49 66 20 74  |ottom right.If t|
00000f70  68 65 20 62 6f 78 0d 68  61 73 20 6e 6f 20 64 65  |he box.has no de|
00000f80  70 74 68 20 6f 72 20 77  69 64 74 68 20 74 68 65  |pth or width the|
00000f90  6e 20 74 68 65 20 75 73  65 72 20 77 69 6c 6c 20  |n the user will |
00000fa0  62 65 20 61 6c 65 72 74  65 64 20 6f 66 20 74 68  |be alerted of th|
00000fb0  69 73 20 0d 0d 4d 6f 76  65 20 62 6f 78 20 62 79  |is ..Move box by|
00000fc0  20 61 64 64 69 6e 67 20  74 6f 20 42 4f 54 48 20  | adding to BOTH |
00000fd0  53 54 52 54 6e 20 61 6e  64 20 44 4f 54 6e 20 69  |STRTn and DOTn i|
00000fe0  6e 73 74 65 61 64 20 6f  66 20 6a 75 73 74 20 44  |nstead of just D|
00000ff0  4f 54 6e 20 61 73 20 61  62 6f 76 65 2e 4f 6e 0d  |OTn as above.On.|
00001000  70 72 65 73 73 69 6e 67  20 63 68 72 73 28 31 33  |pressing chrs(13|
00001010  35 29 20 69 74 20 72 65  74 75 72 6e 73 20 0d 0d  |5) it returns ..|
00001020  53 61 76 65 20 62 6f 78  65 64 20 61 72 65 61 20  |Save boxed area |
00001030  74 6f 20 6e 65 61 72 65  73 74 20 77 68 6f 6c 65  |to nearest whole|
00001040  20 62 79 74 65 20 28 74  68 65 20 69 6e 64 69 76  | byte (the indiv|
00001050  69 64 75 61 6c 20 62 69  74 73 20 72 65 71 75 69  |idual bits requi|
00001060  72 65 64 20 66 72 6f 6d  0d 65 61 63 68 20 65 6e  |red from.each en|
00001070  64 20 69 73 20 63 61 6c  63 75 6c 61 74 65 64 20  |d is calculated |
00001080  6c 61 74 65 72 29 20 0d  0d 4c 6f 61 64 69 6e 20  |later) ..Loadin |
00001090  62 79 20 67 65 74 74 69  6e 67 20 61 20 62 79 74  |by getting a byt|
000010a0  65 20 66 72 6f 6d 20 74  68 65 20 66 69 6c 65 2c  |e from the file,|
000010b0  41 4e 44 69 6e 67 20 69  74 20 77 69 74 68 20 61  |ANDing it with a|
000010c0  20 6d 61 73 6b 2c 61 6e  64 20 74 68 65 6e 0d 63  | mask,and then.c|
000010d0  68 65 63 6b 69 6e 67 20  77 68 65 74 68 65 72 20  |hecking whether |
000010e0  74 68 65 20 63 68 6f 73  65 6e 20 62 69 74 20 69  |the chosen bit i|
000010f0  73 20 73 65 74 2e 54 68  65 6e 20 67 65 74 20 62  |s set.Then get b|
00001100  79 74 65 20 66 72 6f 6d  20 73 63 72 65 20 65 6e  |yte from scre en|
00001110  0d 6d 65 6d 6f 72 79 2c  41 4e 44 20 69 74 20 77  |.memory,AND it w|
00001120  69 74 68 20 61 20 6e 65  67 61 74 69 76 65 20 6d  |ith a negative m|
00001130  61 73 6b 20 74 6f 20 65  6e 73 75 72 65 20 74 68  |ask to ensure th|
00001140  65 20 73 65 6c 65 63 74  65 64 20 62 69 74 20 69  |e selected bit i|
00001150  73 20 73 65 74 20 30 2e  4f 72 0d 74 68 65 20 74  |s set 0.Or.the t|
00001160  77 6f 20 74 6f 67 65 74  68 65 72 20 0d 0d 43 6c  |wo together ..Cl|
00001170  65 61 72 20 74 68 65 20  61 72 65 61 20 74 65 6d  |ear the area tem|
00001180  70 6f 72 61 72 69 6c 79  20 72 65 6e 61 6d 65 73  |porarily renames|
00001190  20 74 68 65 20 63 6c 69  70 62 6f 61 72 64 20 66  | the clipboard f|
000011a0  69 6c 65 2c 74 68 65 6e  20 63 72 65 61 74 65 73  |ile,then creates|
000011b0  20 69 74 73 20 6f 77 6e  0d 62 79 20 73 61 76 69  | its own.by savi|
000011c0  6e 67 20 61 20 6c 6f 61  64 20 6f 66 20 56 41 4c  |ng a load of VAL|
000011d0  28 4d 24 29 2c 75 73 69  6e 67 20 4d 24 20 74 6f  |(M$),using M$ to|
000011e0  20 73 61 76 65 20 76 61  72 69 61 62 6c 65 20 6e  | save variable n|
000011f0  61 6d 20 65 73 2e 4c 6f  61 64 20 69 6e 20 74 68  |am es.Load in th|
00001200  61 74 0d 66 69 6c 65 2c  61 6e 64 20 72 65 73 74  |at.file,and rest|
00001210  6f 72 65 20 74 68 65 20  63 6c 69 70 62 6f 61 72  |ore the clipboar|
00001220  64 2e 32 35 35 3d 77 68  69 74 65 3b 30 3d 62 6c  |d.255=white;0=bl|
00001230  61 63 6b 2c 31 37 30 3d  28 31 30 31 30 31 30 31  |ack,170=(1010101|
00001240  30 29 20 74 68 65 72 65  66 6f 72 65 0d 67 72 65  |0) therefore.gre|
00001250  79 20 0d 0d 53 65 6c 65  63 74 20 62 6c 61 63 6b  |y ..Select black|
00001260  2c 67 72 65 79 2c 6f 72  20 77 68 69 74 65 2e 4e  |,grey,or white.N|
00001270  6f 20 64 65 66 61 75 6c  74 2c 69 66 20 74 68 65  |o default,if the|
00001280  20 71 75 65 73 74 69 6f  6e 20 69 73 20 6e 6f 74  | question is not|
00001290  20 61 6e 73 77 65 72 65  64 20 69 74 0d 69 73 20  | answered it.is |
000012a0  61 73 6b 65 64 20 61 67  61 69 6e 2e 20 0d 0d 47  |asked again. ..G|
000012b0  65 74 20 63 6f 2d 6f 72  64 69 6e 61 74 65 73 20  |et co-ordinates |
000012c0  6f 66 20 74 68 65 20 61  72 65 61 20 6c 61 73 74  |of the area last|
000012d0  20 73 65 6c 65 63 74 65  64 20 69 6e 20 74 68 65  | selected in the|
000012e0  20 63 6c 69 70 62 6f 61  72 64 20 66 69 6c 65 2e  | clipboard file.|
000012f0  49 66 20 6e 6f 74 0d 65  78 69 73 74 20 74 68 65  |If not.exist the|
00001300  6e 20 70 72 69 6e 74 20  27 43 41 4e 4e 4f 54 27  |n print 'CANNOT'|
00001310  20 69 6e 20 74 68 65 20  6d 65 73 73 61 67 65 20  | in the message |
00001320  61 72 65 61 20 0d 0d 4f  6e 65 20 70 61 73 73 20  |area ..One pass |
00001330  76 65 72 73 69 6f 6e 20  6f 66 20 74 68 65 20 64  |version of the d|
00001340  72 61 77 20 61 20 70 75  6c 73 69 6e 67 20 62 6f  |raw a pulsing bo|
00001350  78 2e 54 68 69 73 20 69  73 20 6f 6e 6c 79 20 75  |x.This is only u|
00001360  73 65 64 20 62 79 20 74  68 65 20 62 6f 78 0d 64  |sed by the box.d|
00001370  72 61 77 65 72 20 73 6f  20 74 68 61 74 20 74 68  |rawer so that th|
00001380  65 20 62 6f 78 20 69 73  20 70 65 72 6d 61 6e 65  |e box is permane|
00001390  6e 74 6c 79 20 6c 65 66  74 20 6f 6e 20 74 68 65  |ntly left on the|
000013a0  20 73 63 72 65 65 6e 0d  0d 45 6e 74 65 72 20 74  | screen..Enter t|
000013b0  65 78 74 20 28 64 65 6c  65 74 65 20 61 6e 64 20  |ext (delete and |
000013c0  63 6f 70 79 20 61 72 65  20 64 69 73 61 62 6c 65  |copy are disable|
000013d0  64 29 2e 50 72 65 73 73  69 6e 67 20 52 45 54 55  |d).Pressing RETU|
000013e0  52 4e 20 70 75 74 73 20  69 74 20 69 6e 0d 63 6f  |RN puts it in.co|
000013f0  6c 75 6d 6e 73 2e 45 78  2d 6f 72 27 73 20 69 74  |lumns.Ex-or's it|
00001400  20 73 6f 20 74 68 61 74  20 69 66 20 63 72 6f 73  | so that if cros|
00001410  73 69 6e 67 20 61 20 62  6c 61 63 6b 2f 77 68 69  |sing a black/whi|
00001420  74 65 20 62 6f 75 6e 64  61 72 79 20 69 20 74 20  |te boundary i t |
00001430  61 70 70 65 61 72 73 0d  35 30 3a 35 30 20 0d 0d  |appears.50:50 ..|
00001440  50 72 6f 63 65 64 69 74  20 64 72 61 67 73 20 61  |Procedit drags a|
00001450  20 62 6f 78 2c 73 61 76  65 73 20 74 68 65 20 61  | box,saves the a|
00001460  72 65 61 2c 73 61 76 65  73 20 74 68 65 20 65 6e  |rea,saves the en|
00001470  74 69 72 65 20 73 63 72  65 65 6e 20 74 6f 0d 24  |tire screen to.$|
00001480  2e 4f 55 54 50 55 54 2c  74 68 65 6e 20 63 68 61  |.OUTPUT,then cha|
00001490  69 6e 73 20 74 68 65 20  6d 6f 64 65 35 20 65 78  |ins the mode5 ex|
000014a0  74 65 6e 74 69 6f 6e 20  6d 6f 64 75 6c 65 20 20  |tention module  |
000014b0  45 44 49 54 45 4e 4c 3e  3e 3e 20 0d 0d 4f 70 65  |EDITENL>>> ..Ope|
000014c0  6e 69 6e 20 74 68 65 20  66 69 6c 65 2c 74 6f 20  |nin the file,to |
000014d0  67 65 74 20 63 6f 2d 6f  72 64 69 6e 61 74 65 73  |get co-ordinates|
000014e0  2c 72 65 6d 6f 76 65 20  74 68 65 20 63 75 72 73  |,remove the curs|
000014f0  6f 72 20 77 69 74 68 20  56 44 55 32 33 2c 64 65  |or with VDU23,de|
00001500  66 69 6e 65 0d 76 61 72  69 61 62 6c 65 73 20 61  |fine.variables a|
00001510  6e 64 20 74 68 6f 73 65  20 77 69 74 68 20 49 20  |nd those with I |
00001520  77 61 6e 74 20 74 6f 20  73 61 76 65 20 75 6e 61  |want to save una|
00001530  6c 74 65 72 65 64 20 66  6f 72 20 6c 61 74 65 72  |ltered for later|
00001540  20 0d 0d 41 73 20 77 69  74 68 20 6c 6f 61 64 69  | ..As with loadi|
00001550  6e 20 61 62 6f 76 65 2c  65 78 63 65 70 74 20 74  |n above,except t|
00001560  68 61 74 20 69 73 20 66  6c 61 67 20 69 73 20 73  |hat is flag is s|
00001570  65 74 20 74 68 65 6e 20  61 20 77 68 6f 6c 65 20  |et then a whole |
00001580  73 71 75 61 72 65 20 69  73 0d 63 6f 6c 6f 75 72  |square is.colour|
00001590  65 64 20 69 6e 20 77 69  74 68 20 61 20 66 6f 72  |ed in with a for|
000015a0  2e 2e 2e 6e 65 78 74 20  70 6f 6b 69 6e 67 20 32  |...next poking 2|
000015b0  35 35 20 69 6e 74 6f 20  74 68 65 20 73 63 72 65  |55 into the scre|
000015c0  65 6e 20 6d 65 6d 6f 20  72 79 20 20 50 72 69 6e  |en memo ry  Prin|
000015d0  74 0d 63 75 72 72 65 6e  74 20 70 69 78 65 6c 20  |t.current pixel |
000015e0  70 6f 73 69 74 69 6f 6e  2c 77 68 69 63 68 20 63  |position,which c|
000015f0  61 6e 20 62 65 20 69 6e  63 72 65 61 73 65 64 20  |an be increased |
00001600  75 70 20 74 6f 20 74 68  65 20 6c 69 6d 69 74 20  |up to the limit |
00001610  6f 66 20 74 68 65 0d 73  63 72 65 65 6e 20 28 32  |of the.screen (2|
00001620  39 2c 33 39 29 2e 20 0d  0d 49 66 20 74 61 62 20  |9,39). ..If tab |
00001630  70 72 65 73 73 65 64 20  74 68 65 6e 20 65 78 2d  |pressed then ex-|
00001640  6f 72 20 77 68 61 74 65  76 65 72 20 77 61 73 20  |or whatever was |
00001650  74 68 65 72 65 20 77 69  74 68 20 32 35 35 20 62  |there with 255 b|
00001660  75 74 20 69 66 20 70 72  65 73 73 65 64 0d 63 68  |ut if pressed.ch|
00001670  72 73 28 31 33 35 29 20  74 68 65 6e 20 73 74 6f  |rs(135) then sto|
00001680  70 20 74 68 65 20 65 64  69 74 6f 72 20 61 6e 64  |p the editor and|
00001690  20 73 61 76 65 20 52 65  76 65 72 73 65 20 6f 66  | save Reverse of|
000016a0  20 6c 6f 61 64 69 6e 20  65 78 63 65 70 74 20 74  | loadin except t|
000016b0  68 61 74 20 69 66 0d 54  4c 58 7e 38 20 69 73 6e  |hat if.TLX~8 isn|
000016c0  27 74 20 7a 65 72 6f 20  74 68 65 6e 20 73 6f 6d  |'t zero then som|
000016d0  65 20 62 6c 61 6e 6b 20  62 69 74 73 20 6d 75 73  |e blank bits mus|
000016e0  74 20 62 65 20 73 61 76  65 64 20 69 6e 20 74 68  |t be saved in th|
000016f0  65 20 62 79 74 65 20 62  65 66 6f 72 65 20 74 68  |e byte before th|
00001700  65 0d 27 70 69 78 65 6c  73 27 20 28 73 71 75 61  |e.'pixels' (squa|
00001710  72 65 73 20 6f 6e 20 74  68 65 20 73 63 72 65 65  |res on the scree|
00001720  6e 29 20 63 61 6e 20 62  65 20 65 76 61 6c 75 61  |n) can be evalua|
00001730  74 65 64 20 6f 74 68 65  72 77 69 73 65 20 74 68  |ted otherwise th|
00001740  65 20 66 69 6c 65 20 77  6f 75 6c 64 0d 62 65 20  |e file would.be |
00001750  28 28 48 49 4e 44 58 2b  28 38 2d 45 49 4e 44 58  |((HINDX+(8-EINDX|
00001760  29 29 2a 59 20 74 6f 6f  20 73 68 6f 72 74 0d 0d  |))*Y too short..|
00001770  50 72 69 6e 74 20 27 72  65 6c 6f 61 64 69 6e 67  |Print 'reloading|
00001780  27 20 74 68 65 6e 20 65  6d 75 6c 61 74 65 20 77  |' then emulate w|
00001790  68 61 74 20 27 24 2e 45  44 49 54 27 20 64 6f 65  |hat '$.EDIT' doe|
000017a0  73 20 28 6c 6f 61 64 73  20 69 6e 20 74 68 65 0d  |s (loads in the.|
000017b0  73 63 72 65 65 6e 2c 74  75 72 6e 20 6f 6e 20 74  |screen,turn on t|
000017c0  68 65 20 66 69 72 73 74  20 70 69 78 65 6c 20 61  |he first pixel a|
000017d0  74 20 54 4c 48 43 29 20  74 68 65 6e 20 69 6e 73  |t TLHC) then ins|
000017e0  65 72 74 20 27 50 27 20  69 6e 74 6f 20 74 68 65  |ert 'P' into the|
000017f0  20 6b 65 79 20 62 0d 62  75 66 66 65 72 20 61 6e  | key b.buffer an|
00001800  64 20 72 75 6e 20 27 24  2e 45 44 49 54 43 52 45  |d run '$.EDITCRE|
00001810  27 20 77 68 69 63 68 20  74 68 65 6e 20 6a 75 6d  |' which then jum|
00001820  70 73 20 74 6f 20 27 70  61 73 74 65 27 20 6d 6f  |ps to 'paste' mo|
00001830  64 65 20 74 6f 20 69 6e  73 65 72 74 20 74 68 65  |de to insert the|
00001840  0d 6e 65 77 20 76 65 72  73 69 6f 6e 20 0d 0d 52  |.new version ..R|
00001850  2e 53 70 72 6f 77 73 6f  6e 20 33 2f 39 2f 39 35  |.Sprowson 3/9/95|
00001860  20 0d 0d                                          | ..|
00001863
P/Edit2.m0
P/Edit2.m1
P/Edit2.m2
P/Edit2.m4
P/Edit2.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .