RunTheRisc/Transfer/BBC

Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars » RunTheRisc/Transfer/BBC

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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars
Filename:	RunTheRisc/Transfer/BBC
Read OK:	✔
File size:	0284 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM BBC2ARC
   20PRINT"BBC to ARC transfer"
   30PRINT"* for catalogue"
   40PRINT"*QUIT to quit and free ARC"
   50REM TRANSMIT
   60ON ERROR PROCcrash
   70REPEAT
   80 REPEAT
   90  INPUT"Enter file name";F$
  100  IF F$="*" THEN :*CAT
  110  IF F$="*" THEN PRINT"press a key":x=GET
  120IF F$="*QUIT" THEN PROCquit
  130UNTIL F$<>"*" AND F$<>"*QUIT"
  140IF F$<>"" PROCdo
  150UNTIL F$=""
  160END
  170DEF PROCcrash
  180PROCclean
  190PRINT"Crashed at line ";ERL
  200STOP
  210DEF PROCclean
  220CLOSE#Q%
  230PRINT"*FX2,0"
  240*FX3,0
  250ENDPROC
  260DEF PROCdo
  270Q%=OPENIN F$
  280IF Q%=0 THEN PRINT"Can't open":GOTO 390
  290*FX8,7
  300*FX3,7
  310PRINTF$
  320E%=EXT#Q%
  330PRINTE%
  340FOR byte%=1 TO E%
  350A%=BGET#Q%
  360PRINT;CHR$A%;
  370NEXT
  380CLOSE#Q%
  390*FX3,0
  400PRINT"Done"
  410ENDPROC
  420DEF PROCquit
  430*FX3,7
  440PRINT"*QUIT"
  450*FX3,0
  460PRINT"*FX2,0"
  470END
  480ENDPROC



� BBC2ARC
�"BBC to ARC transfer"
�"* for catalogue"
(!�"*QUIT to quit and free ARC"
2� TRANSMIT
<� � �crash
F�
P �
Z  �"Enter file name";F$
d  � F$="*" � :*CAT
n#  � F$="*" � �"press a key":x=�
x� F$="*QUIT" � �quit
�� F$<>"*" � F$<>"*QUIT"
�� F$<>"" �do
�� F$=""
��
�� �crash
�
�clean
��"Crashed at line ";�
��
�� �clean
��#Q%
�
�"*FX2,0"
�
*FX3,0
��
	� �do
Q%=� F$
!� Q%=0 � �"Can't open":� �tFA
"
*FX8,7
,
*FX3,7
6�F$
@E%=�#Q%
J�E%
T� byte%=1 � E%
^A%=�#Q%
h
�;�A%;
r�
|�#Q%
�
*FX3,0
��"Done"
��
�� �quit
�
*FX3,7
��"*QUIT"
�
*FX3,0
�
�"*FX2,0"
��
��
�

00000000  0d 00 0a 0d f4 20 42 42  43 32 41 52 43 0d 00 14  |..... BBC2ARC...|
00000010  1a f1 22 42 42 43 20 74  6f 20 41 52 43 20 74 72  |.."BBC to ARC tr|
00000020  61 6e 73 66 65 72 22 0d  00 1e 16 f1 22 2a 20 66  |ansfer"....."* f|
00000030  6f 72 20 63 61 74 61 6c  6f 67 75 65 22 0d 00 28  |or catalogue"..(|
00000040  21 f1 22 2a 51 55 49 54  20 74 6f 20 71 75 69 74  |!."*QUIT to quit|
00000050  20 61 6e 64 20 66 72 65  65 20 41 52 43 22 0d 00  | and free ARC"..|
00000060  32 0e f4 20 54 52 41 4e  53 4d 49 54 0d 00 3c 0e  |2.. TRANSMIT..<.|
00000070  ee 20 85 20 f2 63 72 61  73 68 0d 00 46 05 f5 0d  |. . .crash..F...|
00000080  00 50 06 20 f5 0d 00 5a  1b 20 20 e8 22 45 6e 74  |.P. ...Z.  ."Ent|
00000090  65 72 20 66 69 6c 65 20  6e 61 6d 65 22 3b 46 24  |er file name";F$|
000000a0  0d 00 64 16 20 20 e7 20  46 24 3d 22 2a 22 20 8c  |..d.  . F$="*" .|
000000b0  20 3a 2a 43 41 54 0d 00  6e 23 20 20 e7 20 46 24  | :*CAT..n#  . F$|
000000c0  3d 22 2a 22 20 8c 20 f1  22 70 72 65 73 73 20 61  |="*" . ."press a|
000000d0  20 6b 65 79 22 3a 78 3d  a5 0d 00 78 18 e7 20 46  | key":x=...x.. F|
000000e0  24 3d 22 2a 51 55 49 54  22 20 8c 20 f2 71 75 69  |$="*QUIT" . .qui|
000000f0  74 0d 00 82 1b fd 20 46  24 3c 3e 22 2a 22 20 80  |t..... F$<>"*" .|
00000100  20 46 24 3c 3e 22 2a 51  55 49 54 22 0d 00 8c 10  | F$<>"*QUIT"....|
00000110  e7 20 46 24 3c 3e 22 22  20 f2 64 6f 0d 00 96 0b  |. F$<>"" .do....|
00000120  fd 20 46 24 3d 22 22 0d  00 a0 05 e0 0d 00 aa 0c  |. F$="".........|
00000130  dd 20 f2 63 72 61 73 68  0d 00 b4 0a f2 63 6c 65  |. .crash.....cle|
00000140  61 6e 0d 00 be 19 f1 22  43 72 61 73 68 65 64 20  |an....."Crashed |
00000150  61 74 20 6c 69 6e 65 20  22 3b 9e 0d 00 c8 05 fa  |at line ";......|
00000160  0d 00 d2 0c dd 20 f2 63  6c 65 61 6e 0d 00 dc 08  |..... .clean....|
00000170  d9 23 51 25 0d 00 e6 0d  f1 22 2a 46 58 32 2c 30  |.#Q%....."*FX2,0|
00000180  22 0d 00 f0 0a 2a 46 58  33 2c 30 0d 00 fa 05 e1  |"....*FX3,0.....|
00000190  0d 01 04 09 dd 20 f2 64  6f 0d 01 0e 0b 51 25 3d  |..... .do....Q%=|
000001a0  8e 20 46 24 0d 01 18 21  e7 20 51 25 3d 30 20 8c  |. F$...!. Q%=0 .|
000001b0  20 f1 22 43 61 6e 27 74  20 6f 70 65 6e 22 3a e5  | ."Can't open":.|
000001c0  20 8d 74 46 41 0d 01 22  0a 2a 46 58 38 2c 37 0d  | .tFA..".*FX8,7.|
000001d0  01 2c 0a 2a 46 58 33 2c  37 0d 01 36 07 f1 46 24  |.,.*FX3,7..6..F$|
000001e0  0d 01 40 0b 45 25 3d a2  23 51 25 0d 01 4a 07 f1  |..@.E%=.#Q%..J..|
000001f0  45 25 0d 01 54 12 e3 20  62 79 74 65 25 3d 31 20  |E%..T.. byte%=1 |
00000200  b8 20 45 25 0d 01 5e 0b  41 25 3d 9a 23 51 25 0d  |. E%..^.A%=.#Q%.|
00000210  01 68 0a f1 3b bd 41 25  3b 0d 01 72 05 ed 0d 01  |.h..;.A%;..r....|
00000220  7c 08 d9 23 51 25 0d 01  86 0a 2a 46 58 33 2c 30  ||..#Q%....*FX3,0|
00000230  0d 01 90 0b f1 22 44 6f  6e 65 22 0d 01 9a 05 e1  |....."Done".....|
00000240  0d 01 a4 0b dd 20 f2 71  75 69 74 0d 01 ae 0a 2a  |..... .quit....*|
00000250  46 58 33 2c 37 0d 01 b8  0c f1 22 2a 51 55 49 54  |FX3,7....."*QUIT|
00000260  22 0d 01 c2 0a 2a 46 58  33 2c 30 0d 01 cc 0d f1  |"....*FX3,0.....|
00000270  22 2a 46 58 32 2c 30 22  0d 01 d6 05 e0 0d 01 e0  |"*FX2,0"........|
00000280  05 e1 0d ff                                       |....|
00000284

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .