Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars » RunTheRisc/Transfer/Original/BBC
RunTheRisc/Transfer/Original/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/Original/BBC |
| Read OK: | ✔ |
| File size: | 01AA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM BBC2ARC 20REM TRANSMIT 30ON ERROR PROCcrash 40REPEAT 50 REPEAT 60 INPUT"Enter file name";F$ 70 IF F$="*" THEN :*CAT 80 IF F$="*" THEN PRINT"press a key":x=GET 90UNTIL F$<>"*" 100IF F$<>"" PROCdo 110UNTIL F$="" 120END 140DEF PROCcrash 150PROCclean 160PRINT"Crashed at line ";ERL 170STOP 190DEF PROCclean 200CLOSE#Q% 210PRINT"*FX2,0" 220*FX3,0 230ENDPROC 250DEF PROCdo 260*FX8,4 270*FX3,7 280Q%=OPENIN F$ 290PRINTF$ 300E%=EXT#Q% 310PRINTE% 320FOR byte%=1 TO E% 330A%=BGET#Q% 340PRINT;CHR$A%; 350NEXT 360CLOSE#Q% 370*FX3,0 380PRINT"Done" 390ENDPROC
� BBC2ARC � TRANSMIT � � �crash (� 2 � < �"Enter file name";F$ F � F$="*" � :*CAT P# � F$="*" � �"press a key":x=� Z � F$<>"*" d� F$<>"" �do n � F$="" x� � � �crash � �clean ��"Crashed at line ";� �� � � �clean ��#Q% � �"*FX2,0" � *FX3,0 �� � � �do *FX8,4 *FX3,7 Q%=� F$ "�F$ , E%=�#Q% 6�E% @� byte%=1 � E% J A%=�#Q% T �;�A%; ^� h�#Q% r *FX3,0 | �"Done" �� �
00000000 0d 00 0a 0d f4 20 42 42 43 32 41 52 43 0d 00 14 |..... BBC2ARC...| 00000010 0e f4 20 54 52 41 4e 53 4d 49 54 0d 00 1e 0e ee |.. TRANSMIT.....| 00000020 20 85 20 f2 63 72 61 73 68 0d 00 28 05 f5 0d 00 | . .crash..(....| 00000030 32 06 20 f5 0d 00 3c 1b 20 20 e8 22 45 6e 74 65 |2. ...<. ."Ente| 00000040 72 20 66 69 6c 65 20 6e 61 6d 65 22 3b 46 24 0d |r file name";F$.| 00000050 00 46 16 20 20 e7 20 46 24 3d 22 2a 22 20 8c 20 |.F. . F$="*" . | 00000060 3a 2a 43 41 54 0d 00 50 23 20 20 e7 20 46 24 3d |:*CAT..P# . F$=| 00000070 22 2a 22 20 8c 20 f1 22 70 72 65 73 73 20 61 20 |"*" . ."press a | 00000080 6b 65 79 22 3a 78 3d a5 0d 00 5a 0d fd 20 46 24 |key":x=...Z.. F$| 00000090 3c 3e 22 2a 22 0d 00 64 10 e7 20 46 24 3c 3e 22 |<>"*"..d.. F$<>"| 000000a0 22 20 f2 64 6f 0d 00 6e 0b fd 20 46 24 3d 22 22 |" .do..n.. F$=""| 000000b0 0d 00 78 05 e0 0d 00 8c 0c dd 20 f2 63 72 61 73 |..x....... .cras| 000000c0 68 0d 00 96 0a f2 63 6c 65 61 6e 0d 00 a0 19 f1 |h.....clean.....| 000000d0 22 43 72 61 73 68 65 64 20 61 74 20 6c 69 6e 65 |"Crashed at line| 000000e0 20 22 3b 9e 0d 00 aa 05 fa 0d 00 be 0c dd 20 f2 | ";........... .| 000000f0 63 6c 65 61 6e 0d 00 c8 08 d9 23 51 25 0d 00 d2 |clean.....#Q%...| 00000100 0d f1 22 2a 46 58 32 2c 30 22 0d 00 dc 0a 2a 46 |.."*FX2,0"....*F| 00000110 58 33 2c 30 0d 00 e6 05 e1 0d 00 fa 09 dd 20 f2 |X3,0.......... .| 00000120 64 6f 0d 01 04 0a 2a 46 58 38 2c 34 0d 01 0e 0a |do....*FX8,4....| 00000130 2a 46 58 33 2c 37 0d 01 18 0b 51 25 3d 8e 20 46 |*FX3,7....Q%=. F| 00000140 24 0d 01 22 07 f1 46 24 0d 01 2c 0b 45 25 3d a2 |$.."..F$..,.E%=.| 00000150 23 51 25 0d 01 36 07 f1 45 25 0d 01 40 12 e3 20 |#Q%..6..E%..@.. | 00000160 62 79 74 65 25 3d 31 20 b8 20 45 25 0d 01 4a 0b |byte%=1 . E%..J.| 00000170 41 25 3d 9a 23 51 25 0d 01 54 0a f1 3b bd 41 25 |A%=.#Q%..T..;.A%| 00000180 3b 0d 01 5e 05 ed 0d 01 68 08 d9 23 51 25 0d 01 |;..^....h..#Q%..| 00000190 72 0a 2a 46 58 33 2c 30 0d 01 7c 0b f1 22 44 6f |r.*FX3,0..|.."Do| 000001a0 6e 65 22 0d 01 86 05 e1 0d ff |ne".......| 000001aa
.