Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape39a_acorn_eu_1992_october.wav » X.Extract
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 tapes » Electron_User » Electron_User_tape39a_acorn_eu_1992_october.wav |
| Filename: | X.Extract |
| Read OK: | ✔ |
| File size: | 016B bytes |
| Load address: | FFFF1A00 |
| Exec address: | FFFF8023 |
Duplicates
There are 6 duplicate copies of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_10_08_D-MU10_08.ssd » X.EXTRACT
- AEW website » mu » mu_5_25_discs_Micro_User_10_09_D-MU10_09.ssd » X.EXTRACT
- Personal collection » Acorn ADFS disks » Electron » Pixel_map.ADF » PixMap/X/Extract
- Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF » PixMap/X/Extract
- Personal collection » Acorn hard disk » zipped_disks » elk03 » sideways/PixMap/X/Extract
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape39a_acorn_eu_1992_october.wav » X.Extract
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape39b_acorn_eu_1992_october.wav » X.Extract
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
.