Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_22.ADF » P/TYPEIN
P/TYPEIN
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_22.ADF |
| Filename: | P/TYPEIN |
| Read OK: | ✔ |
| File size: | 00E6 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-22_D-EUG22.dsd » U.TYPEIN
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_22.ADF » P/TYPEIN
File contents
10REM ****************** 20REM TEXT TYPE IN 30REM by Richard Dimond 40REM ****************** 50MODE3 60HIMEM=&2800 70A%=HIMEM 80REPEAT 90INPUT LINE A$ 100$A%=A$ 110A%=A%+LENA$+1 120UNTILA$="999" 130INPUT'"Filename to save? "f$ 140OSCLI"SAVE "+f$+" 2800 "+STR$~(A%-4)
� ****************** � TEXT TYPE IN � by Richard Dimond (� ****************** 2�3 < �=&2800 FA%=� P� Z � � A$ d $A%=A$ nA%=A%+�A$+1 x �A$="999" � �'"Filename to save? "f$ �!�"SAVE "+f$+" 2800 "+�~(A%-4) �
00000000 0d 00 0a 18 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..... **********| 00000010 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 14 12 f4 20 54 45 |********..... TE| 00000020 58 54 20 54 59 50 45 20 49 4e 0d 00 1e 17 f4 20 |XT TYPE IN..... | 00000030 62 79 20 52 69 63 68 61 72 64 20 44 69 6d 6f 6e |by Richard Dimon| 00000040 64 0d 00 28 18 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a |d..(.. *********| 00000050 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 32 06 eb 33 0d |*********..2..3.| 00000060 00 3c 0b d3 3d 26 32 38 30 30 0d 00 46 08 41 25 |.<..=&2800..F.A%| 00000070 3d 93 0d 00 50 05 f5 0d 00 5a 0a e8 20 86 20 41 |=...P....Z.. . A| 00000080 24 0d 00 64 0a 24 41 25 3d 41 24 0d 00 6e 0f 41 |$..d.$A%=A$..n.A| 00000090 25 3d 41 25 2b a9 41 24 2b 31 0d 00 78 0d fd 41 |%=A%+.A$+1..x..A| 000000a0 24 3d 22 39 39 39 22 0d 00 82 1c e8 27 22 46 69 |$="999".....'"Fi| 000000b0 6c 65 6e 61 6d 65 20 74 6f 20 73 61 76 65 3f 20 |lename to save? | 000000c0 22 66 24 0d 00 8c 21 ff 22 53 41 56 45 20 22 2b |"f$...!."SAVE "+| 000000d0 66 24 2b 22 20 32 38 30 30 20 22 2b c3 7e 28 41 |f$+" 2800 "+.~(A| 000000e0 25 2d 34 29 0d ff |%-4)..| 000000e6
.