Home » Personal collection » Acorn ADFS disks » Electron » Pixel_map.ADF » PixMap/X/Extract

PixMap/X/Extract

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 » Pixel_map.ADF
Filename: PixMap/X/Extract
Read OK:
File size: 016B bytes
Load address: FFFF1A00
Exec address: FFFF8023
File contents
   10REM Shape file data extracter
   20REM Written by Martin Dawe
   30REM (c) Martin Dawe 1992
   40:
   50MODE3
   60INPUT"Name of shape file to extract data from";file$
   70INPUT"Printout";yn$
   80IF INSTR("Yy",LEFT$(yn$,1)) VDU2
   90f%=OPENIN(file$)
  100INPUT#f%,num%
  110PRINT'"Data:"''file$,num%
  120FOR shape%=0 TO num%
  130INPUT#f%,sx%,sy%,fx%,fy%,xx%,xy%,type%
  140PRINT;sx%,sy%,fx%,fy%,xx%,xy%,type%
  150NEXT
  160CLOSE#f%
  170VDU3
  180END

� Shape file data extracter
� Written by Martin Dawe
� (c) Martin Dawe 1992
(:
2�3
<4�"Name of shape file to extract data from";file$
F�"Printout";yn$
P� �"Yy",�yn$,1)) �2
Zf%=�(file$)
d
�#f%,num%
n�'"Data:"''file$,num%
x� shape%=0 � num%
�&�#f%,sx%,sy%,fx%,fy%,xx%,xy%,type%
�#�;sx%,sy%,fx%,fy%,xx%,xy%,type%
��
��#f%
��3
��
�
00000000  0d 00 0a 1f f4 20 53 68  61 70 65 20 66 69 6c 65  |..... Shape file|
00000010  20 64 61 74 61 20 65 78  74 72 61 63 74 65 72 0d  | data extracter.|
00000020  00 14 1c f4 20 57 72 69  74 74 65 6e 20 62 79 20  |.... Written by |
00000030  4d 61 72 74 69 6e 20 44  61 77 65 0d 00 1e 1a f4  |Martin Dawe.....|
00000040  20 28 63 29 20 4d 61 72  74 69 6e 20 44 61 77 65  | (c) Martin Dawe|
00000050  20 31 39 39 32 0d 00 28  05 3a 0d 00 32 06 eb 33  | 1992..(.:..2..3|
00000060  0d 00 3c 34 e8 22 4e 61  6d 65 20 6f 66 20 73 68  |..<4."Name of sh|
00000070  61 70 65 20 66 69 6c 65  20 74 6f 20 65 78 74 72  |ape file to extr|
00000080  61 63 74 20 64 61 74 61  20 66 72 6f 6d 22 3b 66  |act data from";f|
00000090  69 6c 65 24 0d 00 46 13  e8 22 50 72 69 6e 74 6f  |ile$..F.."Printo|
000000a0  75 74 22 3b 79 6e 24 0d  00 50 17 e7 20 a7 22 59  |ut";yn$..P.. ."Y|
000000b0  79 22 2c c0 79 6e 24 2c  31 29 29 20 ef 32 0d 00  |y",.yn$,1)) .2..|
000000c0  5a 0f 66 25 3d 8e 28 66  69 6c 65 24 29 0d 00 64  |Z.f%=.(file$)..d|
000000d0  0d e8 23 66 25 2c 6e 75  6d 25 0d 00 6e 19 f1 27  |..#f%,num%..n..'|
000000e0  22 44 61 74 61 3a 22 27  27 66 69 6c 65 24 2c 6e  |"Data:"''file$,n|
000000f0  75 6d 25 0d 00 78 15 e3  20 73 68 61 70 65 25 3d  |um%..x.. shape%=|
00000100  30 20 b8 20 6e 75 6d 25  0d 00 82 26 e8 23 66 25  |0 . num%...&.#f%|
00000110  2c 73 78 25 2c 73 79 25  2c 66 78 25 2c 66 79 25  |,sx%,sy%,fx%,fy%|
00000120  2c 78 78 25 2c 78 79 25  2c 74 79 70 65 25 0d 00  |,xx%,xy%,type%..|
00000130  8c 23 f1 3b 73 78 25 2c  73 79 25 2c 66 78 25 2c  |.#.;sx%,sy%,fx%,|
00000140  66 79 25 2c 78 78 25 2c  78 79 25 2c 74 79 70 65  |fy%,xx%,xy%,type|
00000150  25 0d 00 96 05 ed 0d 00  a0 08 d9 23 66 25 0d 00  |%..........#f%..|
00000160  aa 06 ef 33 0d 00 b4 05  e0 0d ff                 |...3.......|
0000016b
PixMap/X/Extract.m0
PixMap/X/Extract.m1
PixMap/X/Extract.m2
PixMap/X/Extract.m4
PixMap/X/Extract.m5