Home » Personal collection » Acorn hard disk » apps » Econet » Oddments/TEMPLATE1
Oddments/TEMPLATE1
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 hard disk » apps » Econet |
| Filename: | Oddments/TEMPLATE1 |
| Read OK: | ✔ |
| File size: | 0105 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10E%=0
20ON ERROR CLOSE#0:REPORT:PRINT;" @ ";ERL:END
30INPUT "File"file$
40h%=OPENIN(file$)
50IF h%<>0:IF EXT#h%=0:CLOSE#h%:h%=0
60IF h%<>0:CLOSE#0
70IF h%=0 PROCcreatefile
80PROCopenfile
90REPEAT:REPEAT
100INPUT "Command:"com$
110p%=INSTR(g$,":")
120UNTIL p%>3
130t$=LEFT$(g$,p%-1)
140g$=MID$(g$,p%+1)
150d%=EVAL("FN"+t$)
160UNTIL E%
170END
E%=0
� � �#0:�:�;" @ ";�:�
� "File"file$
(h%=�(file$)
2 � h%<>0:� �#h%=0:�#h%:h%=0
<� h%<>0:�#0
F� h%=0 �createfile
P
�openfile
Z�:�
d� "Command:"com$
np%=�g$,":")
x
� p%>3
�t$=�g$,p%-1)
�g$=�g$,p%+1)
�d%=�("FN"+t$)
�� E%
��
� 00000000 0d 00 0a 08 45 25 3d 30 0d 00 14 19 ee 20 85 20 |....E%=0..... . |
00000010 d9 23 30 3a f6 3a f1 3b 22 20 40 20 22 3b 9e 3a |.#0:.:.;" @ ";.:|
00000020 e0 0d 00 1e 11 e8 20 22 46 69 6c 65 22 66 69 6c |...... "File"fil|
00000030 65 24 0d 00 28 0f 68 25 3d 8e 28 66 69 6c 65 24 |e$..(.h%=.(file$|
00000040 29 0d 00 32 1e e7 20 68 25 3c 3e 30 3a e7 20 a2 |)..2.. h%<>0:. .|
00000050 23 68 25 3d 30 3a d9 23 68 25 3a 68 25 3d 30 0d |#h%=0:.#h%:h%=0.|
00000060 00 3c 0f e7 20 68 25 3c 3e 30 3a d9 23 30 0d 00 |.<.. h%<>0:.#0..|
00000070 46 16 e7 20 68 25 3d 30 20 f2 63 72 65 61 74 65 |F.. h%=0 .create|
00000080 66 69 6c 65 0d 00 50 0d f2 6f 70 65 6e 66 69 6c |file..P..openfil|
00000090 65 0d 00 5a 07 f5 3a f5 0d 00 64 14 e8 20 22 43 |e..Z..:...d.. "C|
000000a0 6f 6d 6d 61 6e 64 3a 22 63 6f 6d 24 0d 00 6e 0f |ommand:"com$..n.|
000000b0 70 25 3d a7 67 24 2c 22 3a 22 29 0d 00 78 0a fd |p%=.g$,":")..x..|
000000c0 20 70 25 3e 33 0d 00 82 10 74 24 3d c0 67 24 2c | p%>3....t$=.g$,|
000000d0 70 25 2d 31 29 0d 00 8c 10 67 24 3d c1 67 24 2c |p%-1)....g$=.g$,|
000000e0 70 25 2b 31 29 0d 00 96 11 64 25 3d a0 28 22 46 |p%+1)....d%=.("F|
000000f0 4e 22 2b 74 24 29 0d 00 a0 08 fd 20 45 25 0d 00 |N"+t$)..... E%..|
00000100 aa 05 e0 0d ff |.....|
00000105 
.