Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_31.ADF » P/D/TYPE
P/D/TYPE
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_31.ADF |
| Filename: | P/D/TYPE |
| Read OK: | ✔ |
| File size: | 018E bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10REM PRINTS TEXT FILES donated by an EUG member 20DEFPROC TYPE 30OSCLI"LOAD <file>"2000:REM insert file name 40MODE6:REM MODE6 or MODE3 50VDU14:REM Page mode on 60PRINT;"SHIFT to scroll."; 70FORB%=&2000 TO &xxxx:REM xxxx= &2000 + &file length. To find the file length type *EX <RET> The third set of numbers is the file length. Type P.~&2000+&length <RET> to get xxxx 80A%=?B% 90CALL&FFE3 100NEXT:VDU15:REM Page mode off 110ENDPROC
0� PRINTS TEXT FILES donated by an EUG member �� TYPE )�"LOAD <file>"2000:� insert file name (�6:� MODE6 or MODE3 2�14:� Page mode on <�;"SHIFT to scroll."; F��B%=&2000 � &xxxx:� xxxx= &2000 + &file length. To find the file length type *EX <RET> The third set of numbers is the file length. Type P.~&2000+&length <RET> to get xxxx P A%=?B% Z �&FFE3 d�:�15:� Page mode off n� �
00000000 0d 00 0a 30 f4 20 50 52 49 4e 54 53 20 54 45 58 |...0. PRINTS TEX| 00000010 54 20 46 49 4c 45 53 20 64 6f 6e 61 74 65 64 20 |T FILES donated | 00000020 62 79 20 61 6e 20 45 55 47 20 6d 65 6d 62 65 72 |by an EUG member| 00000030 0d 00 14 0b dd f2 20 54 59 50 45 0d 00 1e 29 ff |...... TYPE...).| 00000040 22 4c 4f 41 44 20 3c 66 69 6c 65 3e 22 32 30 30 |"LOAD <file>"200| 00000050 30 3a f4 20 69 6e 73 65 72 74 20 66 69 6c 65 20 |0:. insert file | 00000060 6e 61 6d 65 0d 00 28 17 eb 36 3a f4 20 4d 4f 44 |name..(..6:. MOD| 00000070 45 36 20 6f 72 20 4d 4f 44 45 33 0d 00 32 16 ef |E6 or MODE3..2..| 00000080 31 34 3a f4 20 50 61 67 65 20 6d 6f 64 65 20 6f |14:. Page mode o| 00000090 6e 0d 00 3c 1a f1 3b 22 53 48 49 46 54 20 20 74 |n..<..;"SHIFT t| 000000a0 6f 20 73 63 72 6f 6c 6c 2e 22 3b 0d 00 46 af e3 |o scroll.";..F..| 000000b0 42 25 3d 26 32 30 30 30 20 b8 20 26 78 78 78 78 |B%=&2000 . &xxxx| 000000c0 3a f4 20 78 78 78 78 3d 20 26 32 30 30 30 20 2b |:. xxxx= &2000 +| 000000d0 20 26 66 69 6c 65 20 6c 65 6e 67 74 68 2e 20 54 | &file length. T| 000000e0 6f 20 66 69 6e 64 20 74 68 65 20 66 69 6c 65 20 |o find the file | 000000f0 6c 65 6e 67 74 68 20 74 79 70 65 20 2a 45 58 20 |length type *EX | 00000100 3c 52 45 54 3e 20 54 68 65 20 74 68 69 72 64 20 |<RET> The third | 00000110 73 65 74 20 6f 66 20 6e 75 6d 62 65 72 73 20 69 |set of numbers i| 00000120 73 20 74 68 65 20 66 69 6c 65 20 6c 65 6e 67 74 |s the file lengt| 00000130 68 2e 20 54 79 70 65 20 50 2e 7e 26 32 30 30 30 |h. Type P.~&2000| 00000140 2b 26 6c 65 6e 67 74 68 20 3c 52 45 54 3e 20 74 |+&length <RET> t| 00000150 6f 20 67 65 74 20 78 78 78 78 0d 00 50 0a 41 25 |o get xxxx..P.A%| 00000160 3d 3f 42 25 0d 00 5a 0a d6 26 46 46 45 33 0d 00 |=?B%..Z..&FFE3..| 00000170 64 19 ed 3a ef 31 35 3a f4 20 50 61 67 65 20 6d |d..:.15:. Page m| 00000180 6f 64 65 20 6f 66 66 0d 00 6e 05 e1 0d ff |ode off..n....| 0000018e
.