Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape01a_acorn_talkback.wav » TALK1

TALK1

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 tapes » Commercial_Releases » boxed_acornsoft_tape01a_acorn_talkback.wav
Filename: TALK1
Read OK:
File size: 04E9 bytes
Load address: FFFF1100
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10ONERRORVDU26,12:GOTO80
   20TFS=FALSE
   30IFINKEY-256<>0 A%=&EA:X%=0:Y%=&FF:IFUSR(&FFF4) AND&FF00 ELSEIFFNSYS=1 ORINKEY-256=0:TFS=TRUE:*LOAD TALK2 2900
   40MODE5:VDU23,224,6,6,15,15,15,15,6,6,23,225,&60,&60,&F0,&F0,&F0,&F0,&60,&60,23,226,&66,&66,&FF,&FF,&FF,&FF,&66,&66,23;11,0;0;0;0,19,0,4;0;19,1,6;0;19,2,3;0;
   50PRINT:FORI=0TO5:READA$:PRINTA$;:NEXT
   60VDU28,4,30,17,28,12
   70IFTFS PROCTAPE ELSE*LOAD TALK2 FFFF60F8
   80VDU28,4,30,17,28,12,23,224,8,12,14,-1,-1,14,12,8,23,225,16,48,112,-1,-1,112,48,16,23,226,0,0,0,24,24,0,0,0,23,227,-1,-1,-1,-1,-1,-1,-1,-1,23,228,1,1,1,1,1,1,1,1,23,229,128,128,128,128,128,128,128,128
   90FORI%=0TO15:PROCosc("KEY"+STR$I%):NEXT:IFINKEY-256=0 PROCESC
  100*FX15,1
  110*FX11,0
  120S%=RND(-TIME):VDU23;11,255;0;0;0
  130IFINKEY-256<>0 A%=&EA:X%=0:Y%=&FF:IFUSR(&FFF4) AND&FF00 D%=-1:PAGE=&800:HIMEM=&8000:CHAIN"TALK3" ELSED%=0:PAGE=&1100:CHAIN"TALK3"
  140END
  150DEFPROCosc(C$):DIMX%-1:Y%=X%DIV256:$X%=C$:CALL&FFF7:ENDPROC
  160DEFPROCTAPE:FORI%=0 TO&1A10-4 STEP4:I%!&60F8=I%!&2900:NEXT
  170ENDPROC
  180DEFPROCESC
  190OSRDCH=!&210 AND&FFFF
  200FORZ%=0TO2STEP2:P%=&70
  210[OPTZ%
  220JSR OSRDCH:PHP:CMP#27:BEQ ESC
  230PLP:RTS
  240.ESC PLP:LDA#0:STA&FF:CLC:RTS
  250]:NEXT
  260ENDPROC
  270DEFFNSYS:X%=&70:A%=0:Y%=0:=USR&FFDA AND&FF
  280DEFPROCWIO(DPI,PLC):!X%=PLC:X%?4=DPI:A%=6:CALL OSWORD:ENDPROC
  290DATA"���� � �   �      ��"
  300DATA" �   � �� ��     � �"
  310DATA" � ��� �   ��� �� ��"
  320DATA" �� �� �� ��  ���� �"
  330DATA" �� �� �� ��  ���� �"
  340DATA" � ������ ���� �� ��"

��26,12:�DP@
	TFS=�
Z�-256<>0 A%=&EA:X%=0:Y%=&FF:�(&FFF4) �&FF00 ��SYS=1 ��-256=0:TFS=�:*LOAD TALK2 2900
(��5:�23,224,6,6,15,15,15,15,6,6,23,225,&60,&60,&F0,&F0,&F0,&F0,&60,&60,23,226,&66,&66,&FF,&FF,&FF,&FF,&66,&66,23;11,0;0;0;0,19,0,4;0;19,1,6;0;19,2,3;0;
2�:�I=0�5:�A$:�A$;:�
<�28,4,30,17,28,12
F$�TFS �TAPE �*LOAD TALK2 FFFF60F8
P��28,4,30,17,28,12,23,224,8,12,14,-1,-1,14,12,8,23,225,16,48,112,-1,-1,112,48,16,23,226,0,0,0,24,24,0,0,0,23,227,-1,-1,-1,-1,-1,-1,-1,-1,23,228,1,1,1,1,1,1,1,1,23,229,128,128,128,128,128,128,128,128
Z,�I%=0�15:�osc("KEY"+�I%):�:�-256=0 �ESC
d*FX15,1
n*FX11,0
xS%=�(-�):�23;11,255;0;0;0
�f�-256<>0 A%=&EA:X%=0:Y%=&FF:�(&FFF4) �&FF00 D%=-1:�=&800:�=&8000:�"TALK3" �D%=0:�=&1100:�"TALK3"
��
�-��osc(C$):�X%-1:Y%=X%�256:$X%=C$:�&FFF7:�
�0��TAPE:�I%=0 �&1A10-4 �4:I%!&60F8=I%!&2900:�
��
�	��ESC
�OSRDCH=!&210 �&FFFF
��Z%=0�2�2:P%=&70
�
[OPTZ%
�!JSR OSRDCH:PHP:CMP#27:BEQ ESC
�PLP:RTS
�!.ESC PLP:LDA#0:STA&FF:CLC:RTS
�]:�
�
'ݤSYS:X%=&70:A%=0:Y%=0:=�&FFDA �&FF
3��WIO(DPI,PLC):!X%=PLC:X%?4=DPI:A%=6:� OSWORD:�
"�"���� � �   �      ��"
,�" �   � �� ��     � �"
6�" � ��� �   ��� �� ��"
@�" �� �� �� ��  ���� �"
J�" �� �� �� ��  ���� �"
T�" � ������ ���� �� ��"
�
00000000  0d 00 0a 12 ee 85 ef 32  36 2c 31 32 3a e5 8d 44  |.......26,12:..D|
00000010  50 40 0d 00 14 09 54 46  53 3d a3 0d 00 1e 5a e7  |P@....TFS=....Z.|
00000020  a6 2d 32 35 36 3c 3e 30  20 41 25 3d 26 45 41 3a  |.-256<>0 A%=&EA:|
00000030  58 25 3d 30 3a 59 25 3d  26 46 46 3a e7 ba 28 26  |X%=0:Y%=&FF:..(&|
00000040  46 46 46 34 29 20 80 26  46 46 30 30 20 8b e7 a4  |FFF4) .&FF00 ...|
00000050  53 59 53 3d 31 20 84 a6  2d 32 35 36 3d 30 3a 54  |SYS=1 ..-256=0:T|
00000060  46 53 3d b9 3a 2a 4c 4f  41 44 20 54 41 4c 4b 32  |FS=.:*LOAD TALK2|
00000070  20 32 39 30 30 0d 00 28  9a eb 35 3a ef 32 33 2c  | 2900..(..5:.23,|
00000080  32 32 34 2c 36 2c 36 2c  31 35 2c 31 35 2c 31 35  |224,6,6,15,15,15|
00000090  2c 31 35 2c 36 2c 36 2c  32 33 2c 32 32 35 2c 26  |,15,6,6,23,225,&|
000000a0  36 30 2c 26 36 30 2c 26  46 30 2c 26 46 30 2c 26  |60,&60,&F0,&F0,&|
000000b0  46 30 2c 26 46 30 2c 26  36 30 2c 26 36 30 2c 32  |F0,&F0,&60,&60,2|
000000c0  33 2c 32 32 36 2c 26 36  36 2c 26 36 36 2c 26 46  |3,226,&66,&66,&F|
000000d0  46 2c 26 46 46 2c 26 46  46 2c 26 46 46 2c 26 36  |F,&FF,&FF,&FF,&6|
000000e0  36 2c 26 36 36 2c 32 33  3b 31 31 2c 30 3b 30 3b  |6,&66,23;11,0;0;|
000000f0  30 3b 30 2c 31 39 2c 30  2c 34 3b 30 3b 31 39 2c  |0;0,19,0,4;0;19,|
00000100  31 2c 36 3b 30 3b 31 39  2c 32 2c 33 3b 30 3b 0d  |1,6;0;19,2,3;0;.|
00000110  00 32 17 f1 3a e3 49 3d  30 b8 35 3a f3 41 24 3a  |.2..:.I=0.5:.A$:|
00000120  f1 41 24 3b 3a ed 0d 00  3c 15 ef 32 38 2c 34 2c  |.A$;:...<..28,4,|
00000130  33 30 2c 31 37 2c 32 38  2c 31 32 0d 00 46 24 e7  |30,17,28,12..F$.|
00000140  54 46 53 20 f2 54 41 50  45 20 8b 2a 4c 4f 41 44  |TFS .TAPE .*LOAD|
00000150  20 54 41 4c 4b 32 20 46  46 46 46 36 30 46 38 0d  | TALK2 FFFF60F8.|
00000160  00 50 c9 ef 32 38 2c 34  2c 33 30 2c 31 37 2c 32  |.P..28,4,30,17,2|
00000170  38 2c 31 32 2c 32 33 2c  32 32 34 2c 38 2c 31 32  |8,12,23,224,8,12|
00000180  2c 31 34 2c 2d 31 2c 2d  31 2c 31 34 2c 31 32 2c  |,14,-1,-1,14,12,|
00000190  38 2c 32 33 2c 32 32 35  2c 31 36 2c 34 38 2c 31  |8,23,225,16,48,1|
000001a0  31 32 2c 2d 31 2c 2d 31  2c 31 31 32 2c 34 38 2c  |12,-1,-1,112,48,|
000001b0  31 36 2c 32 33 2c 32 32  36 2c 30 2c 30 2c 30 2c  |16,23,226,0,0,0,|
000001c0  32 34 2c 32 34 2c 30 2c  30 2c 30 2c 32 33 2c 32  |24,24,0,0,0,23,2|
000001d0  32 37 2c 2d 31 2c 2d 31  2c 2d 31 2c 2d 31 2c 2d  |27,-1,-1,-1,-1,-|
000001e0  31 2c 2d 31 2c 2d 31 2c  2d 31 2c 32 33 2c 32 32  |1,-1,-1,-1,23,22|
000001f0  38 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |8,1,1,1,1,1,1,1,|
00000200  31 2c 32 33 2c 32 32 39  2c 31 32 38 2c 31 32 38  |1,23,229,128,128|
00000210  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
00000220  2c 31 32 38 2c 31 32 38  0d 00 5a 2c e3 49 25 3d  |,128,128..Z,.I%=|
00000230  30 b8 31 35 3a f2 6f 73  63 28 22 4b 45 59 22 2b  |0.15:.osc("KEY"+|
00000240  c3 49 25 29 3a ed 3a e7  a6 2d 32 35 36 3d 30 20  |.I%):.:..-256=0 |
00000250  f2 45 53 43 0d 00 64 0b  2a 46 58 31 35 2c 31 0d  |.ESC..d.*FX15,1.|
00000260  00 6e 0b 2a 46 58 31 31  2c 30 0d 00 78 1d 53 25  |.n.*FX11,0..x.S%|
00000270  3d b3 28 2d 91 29 3a ef  32 33 3b 31 31 2c 32 35  |=.(-.):.23;11,25|
00000280  35 3b 30 3b 30 3b 30 0d  00 82 66 e7 a6 2d 32 35  |5;0;0;0...f..-25|
00000290  36 3c 3e 30 20 41 25 3d  26 45 41 3a 58 25 3d 30  |6<>0 A%=&EA:X%=0|
000002a0  3a 59 25 3d 26 46 46 3a  e7 ba 28 26 46 46 46 34  |:Y%=&FF:..(&FFF4|
000002b0  29 20 80 26 46 46 30 30  20 44 25 3d 2d 31 3a d0  |) .&FF00 D%=-1:.|
000002c0  3d 26 38 30 30 3a d3 3d  26 38 30 30 30 3a d7 22  |=&800:.=&8000:."|
000002d0  54 41 4c 4b 33 22 20 8b  44 25 3d 30 3a d0 3d 26  |TALK3" .D%=0:.=&|
000002e0  31 31 30 30 3a d7 22 54  41 4c 4b 33 22 0d 00 8c  |1100:."TALK3"...|
000002f0  05 e0 0d 00 96 2d dd f2  6f 73 63 28 43 24 29 3a  |.....-..osc(C$):|
00000300  de 58 25 2d 31 3a 59 25  3d 58 25 81 32 35 36 3a  |.X%-1:Y%=X%.256:|
00000310  24 58 25 3d 43 24 3a d6  26 46 46 46 37 3a e1 0d  |$X%=C$:.&FFF7:..|
00000320  00 a0 30 dd f2 54 41 50  45 3a e3 49 25 3d 30 20  |..0..TAPE:.I%=0 |
00000330  b8 26 31 41 31 30 2d 34  20 88 34 3a 49 25 21 26  |.&1A10-4 .4:I%!&|
00000340  36 30 46 38 3d 49 25 21  26 32 39 30 30 3a ed 0d  |60F8=I%!&2900:..|
00000350  00 aa 05 e1 0d 00 b4 09  dd f2 45 53 43 0d 00 be  |..........ESC...|
00000360  17 4f 53 52 44 43 48 3d  21 26 32 31 30 20 80 26  |.OSRDCH=!&210 .&|
00000370  46 46 46 46 0d 00 c8 14  e3 5a 25 3d 30 b8 32 88  |FFFF.....Z%=0.2.|
00000380  32 3a 50 25 3d 26 37 30  0d 00 d2 0a 5b 4f 50 54  |2:P%=&70....[OPT|
00000390  5a 25 0d 00 dc 21 4a 53  52 20 4f 53 52 44 43 48  |Z%...!JSR OSRDCH|
000003a0  3a 50 48 50 3a 43 4d 50  23 32 37 3a 42 45 51 20  |:PHP:CMP#27:BEQ |
000003b0  45 53 43 0d 00 e6 0b 50  4c 50 3a 52 54 53 0d 00  |ESC....PLP:RTS..|
000003c0  f0 21 2e 45 53 43 20 50  4c 50 3a 4c 44 41 23 30  |.!.ESC PLP:LDA#0|
000003d0  3a 53 54 41 26 46 46 3a  43 4c 43 3a 52 54 53 0d  |:STA&FF:CLC:RTS.|
000003e0  00 fa 07 5d 3a ed 0d 01  04 05 e1 0d 01 0e 27 dd  |...]:.........'.|
000003f0  a4 53 59 53 3a 58 25 3d  26 37 30 3a 41 25 3d 30  |.SYS:X%=&70:A%=0|
00000400  3a 59 25 3d 30 3a 3d ba  26 46 46 44 41 20 80 26  |:Y%=0:=.&FFDA .&|
00000410  46 46 0d 01 18 33 dd f2  57 49 4f 28 44 50 49 2c  |FF...3..WIO(DPI,|
00000420  50 4c 43 29 3a 21 58 25  3d 50 4c 43 3a 58 25 3f  |PLC):!X%=PLC:X%?|
00000430  34 3d 44 50 49 3a 41 25  3d 36 3a d6 20 4f 53 57  |4=DPI:A%=6:. OSW|
00000440  4f 52 44 3a e1 0d 01 22  1b dc 22 e2 e2 e2 e1 20  |ORD:..."..".... |
00000450  e1 20 e1 20 20 20 e0 20  20 20 20 20 20 e2 e2 22  |. .   .      .."|
00000460  0d 01 2c 1b dc 22 20 e0  20 20 20 e1 20 e1 e1 20  |..,.." .   . .. |
00000470  e0 e0 20 20 20 20 20 e0  20 e0 22 0d 01 36 1b dc  |..     . ."..6..|
00000480  22 20 e0 20 e2 e1 e1 20  e2 20 20 20 e2 e0 e2 20  |" . ... .   ... |
00000490  e2 e1 20 e2 e2 22 0d 01  40 1b dc 22 20 e0 e0 20  |.. .."..@.." .. |
000004a0  e1 e1 20 e1 e1 20 e0 e0  20 20 e1 e1 e0 e0 20 e0  |.. .. ..  .... .|
000004b0  22 0d 01 4a 1b dc 22 20  e0 e0 20 e1 e1 20 e1 e0  |"..J.." .. .. ..|
000004c0  20 e1 e0 20 20 e1 e1 e0  e0 20 e0 22 0d 01 54 1b  | ..  .... ."..T.|
000004d0  dc 22 20 e0 20 e2 e1 e2  e1 e1 e0 20 e1 e0 e0 e2  |." . ...... ....|
000004e0  20 e2 e1 20 e2 e2 22 0d  ff                       | .. .."..|
000004e9
TALK1.m0
TALK1.m1
TALK1.m2
TALK1.m4
TALK1.m5