Home » Archimedes archive » Acorn User » AU 1993-06.adf » !StarInfo_StarInfo » Bell7_1
Bell7_1
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 » Archimedes archive » Acorn User » AU 1993-06.adf » !StarInfo_StarInfo |
| Filename: | Bell7_1 |
| Read OK: | ✔ |
| File size: | 0165 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1993-06.adf » !StarInfo_StarInfo » Bell7_1
- AEW website » au » au_5_25_discs_Acorn_User_93_06_tau93-06.ssd » Bell7_1
File contents
10REM >Bell7/1 (Info12) 20REM By Dave Lawrence 30REM For All machines 40REM (c) BAU June 1993 50: 60INPUTb,c$,w:DIMn 50,q 8:$n=STRING$(2,"1}2u3q4i5a6]7U8L9D0@E8T0 "):h=n+24:c=1:REPEATu=2-u:d=INSTR(c$,".",c):FORi=1TOb*2STEP2:j=i-1:VDU9,n?j:SOUND1,-15,n?i,w:WIDTHINKEY(w*5):h?j=INSTR(MID$(c$,c,d-c),CHR$h?i):g=u ANDINKEYTRUE ORg:NEXT:c=d+1:i=2:REPEATj=i-2:!q=n!j:q!4=!q:s=-g*(h?i=h?j):n!j=q!s:i=i+2+s:UNTILi>=b*2:WIDTHINKEY(u*w):PRINT:VDU5*u:UNTIL0
� >Bell7/1 (Info12) � By Dave Lawrence � For All machines (� (c) BAU June 1993 2: <��b,c$,w:�n 50,q 8:$n=�2,"1}2u3q4i5a6]7U8L9D0@E8T0 "):h=n+24:c=1:�u=2-u:d=�c$,".",c):�i=1�b*2�2:j=i-1:�9,n?j:�1,-15,n?i,w:��(w*5):h?j=��c$,c,d-c),�h?i):g=u ��� �g:�:c=d+1:i=2:�j=i-2:!q=n!j:q!4=!q:s=-g*(h?i=h?j):n!j=q!s:i=i+2+s:�i>=b*2:��(u*w):�:�5*u:�0 �
00000000 0d 00 0a 1b f4 20 20 20 20 20 3e 42 65 6c 6c 37 |..... >Bell7| 00000010 2f 31 20 28 49 6e 66 6f 31 32 29 0d 00 14 17 f4 |/1 (Info12).....| 00000020 20 42 79 20 20 44 61 76 65 20 4c 61 77 72 65 6e | By Dave Lawren| 00000030 63 65 0d 00 1e 16 f4 20 46 6f 72 20 41 6c 6c 20 |ce..... For All | 00000040 6d 61 63 68 69 6e 65 73 0d 00 28 17 f4 20 28 63 |machines..(.. (c| 00000050 29 20 42 41 55 20 4a 75 6e 65 20 31 39 39 33 0d |) BAU June 1993.| 00000060 00 32 05 3a 0d 00 3c ff e8 62 2c 63 24 2c 77 3a |.2.:..<..b,c$,w:| 00000070 de 6e 20 35 30 2c 71 20 38 3a 24 6e 3d c4 32 2c |.n 50,q 8:$n=.2,| 00000080 22 31 7d 32 75 33 71 34 69 35 61 36 5d 37 55 38 |"1}2u3q4i5a6]7U8| 00000090 4c 39 44 30 40 45 38 54 30 20 22 29 3a 68 3d 6e |L9D0@E8T0 "):h=n| 000000a0 2b 32 34 3a 63 3d 31 3a f5 75 3d 32 2d 75 3a 64 |+24:c=1:.u=2-u:d| 000000b0 3d a7 63 24 2c 22 2e 22 2c 63 29 3a e3 69 3d 31 |=.c$,".",c):.i=1| 000000c0 b8 62 2a 32 88 32 3a 6a 3d 69 2d 31 3a ef 39 2c |.b*2.2:j=i-1:.9,| 000000d0 6e 3f 6a 3a d4 31 2c 2d 31 35 2c 6e 3f 69 2c 77 |n?j:.1,-15,n?i,w| 000000e0 3a fe a6 28 77 2a 35 29 3a 68 3f 6a 3d a7 c1 63 |:..(w*5):h?j=..c| 000000f0 24 2c 63 2c 64 2d 63 29 2c bd 68 3f 69 29 3a 67 |$,c,d-c),.h?i):g| 00000100 3d 75 20 80 a6 b9 20 84 67 3a ed 3a 63 3d 64 2b |=u ... .g:.:c=d+| 00000110 31 3a 69 3d 32 3a f5 6a 3d 69 2d 32 3a 21 71 3d |1:i=2:.j=i-2:!q=| 00000120 6e 21 6a 3a 71 21 34 3d 21 71 3a 73 3d 2d 67 2a |n!j:q!4=!q:s=-g*| 00000130 28 68 3f 69 3d 68 3f 6a 29 3a 6e 21 6a 3d 71 21 |(h?i=h?j):n!j=q!| 00000140 73 3a 69 3d 69 2b 32 2b 73 3a fd 69 3e 3d 62 2a |s:i=i+2+s:.i>=b*| 00000150 32 3a fe a6 28 75 2a 77 29 3a f1 3a ef 35 2a 75 |2:..(u*w):.:.5*u| 00000160 3a fd 30 0d ff |:.0..| 00000165
.