Home » Personal collection » Acorn tapes » Commercial_Releases » box05_tape18a_acorn_play_it_again_sam_15_bbc.wav » NETWOR0

NETWOR0

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 » box05_tape18a_acorn_play_it_again_sam_15_bbc.wav
Filename: NETWOR0
Read OK:
File size: 06FF bytes
Load address: 0E00
Exec address: 0E00
File contents
   10REM  
   20ON ERROR CALL!-4
   30REM  
   40*FX200 3
   50REM  
   60*TV255 1
   70REM  
   80MODE5:VDU23;8202;0;0;0;19,2,6;0;19,3,3;0;19,1,1;0;28,0,2,19,0:*FX178,255
   90REM  
  100*FX4 1
  110REM  
  120*FX212 0
  130REM  
  140*FX213 50
  150REM  
  160*FX214 1
  170REM  
  180*FX211 1
  190REM  
  200*FX9 1
  210REM  
  220*FX10 1
  230REM  
  240ENVELOPE1,131,1,1,2,10,10,10,50,-1,-1,-6,100,100:ENVELOPE3,0,0,0,0,0,0,0,100,-1,-1,-1,100,100:HIMEM=&2F5F:REM  
  250REM  
  260ENVELOPE4,2,10,-10,15,1,2,3,100,-1,-1,-1,100,100:$&120="ANY KEY TO START":FORL%=0TO11:READL%?&880:NEXT
  270DATA159,225,247,251,164,7,82,184,36,152,50,29
  280REM  
  290*FX16 0
  300REM  
  310FORL%=0TO31:A%=&5800+L%*320-8:L%?&C80=A%MOD256:L%?&CA0=A%DIV256:NEXT:lelo%=&CC0:rilo%=&CC6:lehi%=rilo%+6:rihi%=lehi%+6
  320REM  
  330FORL%=0TO11:READA$:A%=EVAL("&"+A$):L%?lelo%=A%MOD256:L%?lehi%=A%DIV256:NEXT
  340REM  
  350DATA900,918,960,978,960,918,9C0,9D8,A20,A38,A20,9D8
  360REM  
  370RESTORE390:FORL%=0TO6:READL%?&110:NEXT:FORL%=0TO7:READL%?&890:NEXT
  380REM  
  390DATA255,240,192,48,204,51,102,17,0,1,0,150,0,1,0
  400REM  
  410allo%=&150:alhi%=allo%+16:FORL%=0TO15:A%=&7240+L%*96:L%?allo%=A%MOD256:L%?alhi%=A%DIV256:NEXT:ch%=&170:FORL%=0TO31:L%?ch%=(L%DIV8)+&C:NEXT:FORL%=0TO7:L%?&190=(L%DIV8)+&7F:NEXT
  420REM  
  430*L.screen 5BC0
  435N=INKEY150
  440REM  
  450VDU23;6,14;0;0;0;23;7,29;0;0;0;
  460A%=4560:B%=6599:E%=7097:Z%=6029
  470REM  
  480F%=104:N%=155:O%=116:X%=100:Y%=101
  490REM  
  500REM  
  510REM  
  520*L.a-code 6980
  530REM  
  540*L.b-code
  550REM  
  560*L.c-code
  570REM  
  580RESTORE590:FORL%=0TO4:READ$(L%*8+&9E0):NEXT:*FX11
  590DATA"PETE   ","DAVE   ","MARK   ","GARY   ","DEB    "
  600$&C00="6E6A67A267AA6965629D5E9D676564A9676564E2":$&C30="9E9E9D9B9D999B99989B919BDD":*L.d-code
  610REM  
  620$&6B00=CHR$28+CHR$0+CHR$20+CHR$19+CHR$0+CHR$12+CHR$26+CHR$23+CHR$0+CHR$6+CHR$21+CHR$0+CHR$0+CHR$0+CHR$0+CHR$0+CHR$0+CHR$0+CHR$0+CHR$19+CHR$1+CHR$1+CHR$0+CHR$0+CHR$0+CHR$19+CHR$2+CHR$6+CHR$0+CHR$0+CHR$0+CHR$19+CHR$3+CHR$3+CHR$0+CHR$0+CHR$0
  630FORL%=&5D TO &C3:?L%=0:NEXT
  640ENVELOPE2,1,4,5,-8,1,2,3,100,-1,-1,-1,100,100:CHAIN"NETWOR1"

�  
� � �!-4
�  
(*FX200 3
2�  
<*TV255 1
F�  
PG�5:�23;8202;0;0;0;19,2,6;0;19,3,3;0;19,1,1;0;28,0,2,19,0:*FX178,255
Z�  
d
*FX4 1
n�  
x*FX212 0
��  
�
*FX213 50
��  
�*FX214 1
��  
�*FX211 1
��  
�
*FX9 1
��  
�*FX10 1
��  
�_�1,131,1,1,2,10,10,10,50,-1,-1,-6,100,100:�3,0,0,0,0,0,0,0,100,-1,-1,-1,100,100:�=&2F5F:�  
��  
Z�4,2,10,-10,15,1,2,3,100,-1,-1,-1,100,100:$&120="ANY KEY TO START":�L%=0�11:�L%?&880:�
.�159,225,247,251,164,7,82,184,36,152,50,29
�  
"*FX16 0
,�  
6p�L%=0�31:A%=&5800+L%*320-8:L%?&C80=A%�256:L%?&CA0=A%�256:�:lelo%=&CC0:rilo%=&CC6:lehi%=rilo%+6:rihi%=lehi%+6
@�  
J?�L%=0�11:�A$:A%=�("&"+A$):L%?lelo%=A%�256:L%?lehi%=A%�256:�
T�  
^4�900,918,960,978,960,918,9C0,9D8,A20,A38,A20,9D8
h�  
r/��tFA:�L%=0�6:�L%?&110:�:�L%=0�7:�L%?&890:�
|�  
�1�255,240,192,48,204,51,102,17,0,1,0,150,0,1,0
��  
��allo%=&150:alhi%=allo%+16:�L%=0�15:A%=&7240+L%*96:L%?allo%=A%�256:L%?alhi%=A%�256:�:ch%=&170:�L%=0�31:L%?ch%=(L%�8)+&C:�:�L%=0�7:L%?&190=(L%�8)+&7F:�
��  
�*L.screen 5BC0
�
N=�150
��  
�!�23;6,14;0;0;0;23;7,29;0;0;0;
�#A%=4560:B%=6599:E%=7097:Z%=6029
��  
�&F%=104:N%=155:O%=116:X%=100:Y%=101
��  
��  
��  
*L.a-code 6980
�  

*L.b-code
&�  
0
*L.c-code
:�  
D'��DNB:�L%=0�4:�$(L%*8+&9E0):�:*FX11
N6�"PETE   ","DAVE   ","MARK   ","GARY   ","DEB    "
Xa$&C00="6E6A67A267AA6965629D5E9D676564A9676564E2":$&C30="9E9E9D9B9D999B99989B919BDD":*L.d-code
b�  
l�$&6B00=�28+�0+�20+�19+�0+�12+�26+�23+�0+�6+�21+�0+�0+�0+�0+�0+�0+�0+�0+�19+�1+�1+�0+�0+�0+�19+�2+�6+�0+�0+�0+�19+�3+�3+�0+�0+�0
v�L%=&5D � &C3:?L%=0:�
�5�2,1,4,5,-8,1,2,3,100,-1,-1,-1,100,100:�"NETWOR1"
�
00000000  0d 00 0a 07 f4 20 20 0d  00 14 0c ee 20 85 20 d6  |.....  ..... . .|
00000010  21 2d 34 0d 00 1e 07 f4  20 20 0d 00 28 0c 2a 46  |!-4.....  ..(.*F|
00000020  58 32 30 30 20 33 0d 00  32 07 f4 20 20 0d 00 3c  |X200 3..2..  ..<|
00000030  0c 2a 54 56 32 35 35 20  31 0d 00 46 07 f4 20 20  |.*TV255 1..F..  |
00000040  0d 00 50 47 eb 35 3a ef  32 33 3b 38 32 30 32 3b  |..PG.5:.23;8202;|
00000050  30 3b 30 3b 30 3b 31 39  2c 32 2c 36 3b 30 3b 31  |0;0;0;19,2,6;0;1|
00000060  39 2c 33 2c 33 3b 30 3b  31 39 2c 31 2c 31 3b 30  |9,3,3;0;19,1,1;0|
00000070  3b 32 38 2c 30 2c 32 2c  31 39 2c 30 3a 2a 46 58  |;28,0,2,19,0:*FX|
00000080  31 37 38 2c 32 35 35 0d  00 5a 07 f4 20 20 0d 00  |178,255..Z..  ..|
00000090  64 0a 2a 46 58 34 20 31  0d 00 6e 07 f4 20 20 0d  |d.*FX4 1..n..  .|
000000a0  00 78 0c 2a 46 58 32 31  32 20 30 0d 00 82 07 f4  |.x.*FX212 0.....|
000000b0  20 20 0d 00 8c 0d 2a 46  58 32 31 33 20 35 30 0d  |  ....*FX213 50.|
000000c0  00 96 07 f4 20 20 0d 00  a0 0c 2a 46 58 32 31 34  |....  ....*FX214|
000000d0  20 31 0d 00 aa 07 f4 20  20 0d 00 b4 0c 2a 46 58  | 1.....  ....*FX|
000000e0  32 31 31 20 31 0d 00 be  07 f4 20 20 0d 00 c8 0a  |211 1.....  ....|
000000f0  2a 46 58 39 20 31 0d 00  d2 07 f4 20 20 0d 00 dc  |*FX9 1.....  ...|
00000100  0b 2a 46 58 31 30 20 31  0d 00 e6 07 f4 20 20 0d  |.*FX10 1.....  .|
00000110  00 f0 5f e2 31 2c 31 33  31 2c 31 2c 31 2c 32 2c  |.._.1,131,1,1,2,|
00000120  31 30 2c 31 30 2c 31 30  2c 35 30 2c 2d 31 2c 2d  |10,10,10,50,-1,-|
00000130  31 2c 2d 36 2c 31 30 30  2c 31 30 30 3a e2 33 2c  |1,-6,100,100:.3,|
00000140  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 31 30  |0,0,0,0,0,0,0,10|
00000150  30 2c 2d 31 2c 2d 31 2c  2d 31 2c 31 30 30 2c 31  |0,-1,-1,-1,100,1|
00000160  30 30 3a d3 3d 26 32 46  35 46 3a f4 20 20 0d 00  |00:.=&2F5F:.  ..|
00000170  fa 07 f4 20 20 0d 01 04  5a e2 34 2c 32 2c 31 30  |...  ...Z.4,2,10|
00000180  2c 2d 31 30 2c 31 35 2c  31 2c 32 2c 33 2c 31 30  |,-10,15,1,2,3,10|
00000190  30 2c 2d 31 2c 2d 31 2c  2d 31 2c 31 30 30 2c 31  |0,-1,-1,-1,100,1|
000001a0  30 30 3a 24 26 31 32 30  3d 22 41 4e 59 20 4b 45  |00:$&120="ANY KE|
000001b0  59 20 54 4f 20 53 54 41  52 54 22 3a e3 4c 25 3d  |Y TO START":.L%=|
000001c0  30 b8 31 31 3a f3 4c 25  3f 26 38 38 30 3a ed 0d  |0.11:.L%?&880:..|
000001d0  01 0e 2e dc 31 35 39 2c  32 32 35 2c 32 34 37 2c  |....159,225,247,|
000001e0  32 35 31 2c 31 36 34 2c  37 2c 38 32 2c 31 38 34  |251,164,7,82,184|
000001f0  2c 33 36 2c 31 35 32 2c  35 30 2c 32 39 0d 01 18  |,36,152,50,29...|
00000200  07 f4 20 20 0d 01 22 0b  2a 46 58 31 36 20 30 0d  |..  ..".*FX16 0.|
00000210  01 2c 07 f4 20 20 0d 01  36 70 e3 4c 25 3d 30 b8  |.,..  ..6p.L%=0.|
00000220  33 31 3a 41 25 3d 26 35  38 30 30 2b 4c 25 2a 33  |31:A%=&5800+L%*3|
00000230  32 30 2d 38 3a 4c 25 3f  26 43 38 30 3d 41 25 83  |20-8:L%?&C80=A%.|
00000240  32 35 36 3a 4c 25 3f 26  43 41 30 3d 41 25 81 32  |256:L%?&CA0=A%.2|
00000250  35 36 3a ed 3a 6c 65 6c  6f 25 3d 26 43 43 30 3a  |56:.:lelo%=&CC0:|
00000260  72 69 6c 6f 25 3d 26 43  43 36 3a 6c 65 68 69 25  |rilo%=&CC6:lehi%|
00000270  3d 72 69 6c 6f 25 2b 36  3a 72 69 68 69 25 3d 6c  |=rilo%+6:rihi%=l|
00000280  65 68 69 25 2b 36 0d 01  40 07 f4 20 20 0d 01 4a  |ehi%+6..@..  ..J|
00000290  3f e3 4c 25 3d 30 b8 31  31 3a f3 41 24 3a 41 25  |?.L%=0.11:.A$:A%|
000002a0  3d a0 28 22 26 22 2b 41  24 29 3a 4c 25 3f 6c 65  |=.("&"+A$):L%?le|
000002b0  6c 6f 25 3d 41 25 83 32  35 36 3a 4c 25 3f 6c 65  |lo%=A%.256:L%?le|
000002c0  68 69 25 3d 41 25 81 32  35 36 3a ed 0d 01 54 07  |hi%=A%.256:...T.|
000002d0  f4 20 20 0d 01 5e 34 dc  39 30 30 2c 39 31 38 2c  |.  ..^4.900,918,|
000002e0  39 36 30 2c 39 37 38 2c  39 36 30 2c 39 31 38 2c  |960,978,960,918,|
000002f0  39 43 30 2c 39 44 38 2c  41 32 30 2c 41 33 38 2c  |9C0,9D8,A20,A38,|
00000300  41 32 30 2c 39 44 38 0d  01 68 07 f4 20 20 0d 01  |A20,9D8..h..  ..|
00000310  72 2f f7 8d 74 46 41 3a  e3 4c 25 3d 30 b8 36 3a  |r/..tFA:.L%=0.6:|
00000320  f3 4c 25 3f 26 31 31 30  3a ed 3a e3 4c 25 3d 30  |.L%?&110:.:.L%=0|
00000330  b8 37 3a f3 4c 25 3f 26  38 39 30 3a ed 0d 01 7c  |.7:.L%?&890:...||
00000340  07 f4 20 20 0d 01 86 31  dc 32 35 35 2c 32 34 30  |..  ...1.255,240|
00000350  2c 31 39 32 2c 34 38 2c  32 30 34 2c 35 31 2c 31  |,192,48,204,51,1|
00000360  30 32 2c 31 37 2c 30 2c  31 2c 30 2c 31 35 30 2c  |02,17,0,1,0,150,|
00000370  30 2c 31 2c 30 0d 01 90  07 f4 20 20 0d 01 9a 99  |0,1,0.....  ....|
00000380  61 6c 6c 6f 25 3d 26 31  35 30 3a 61 6c 68 69 25  |allo%=&150:alhi%|
00000390  3d 61 6c 6c 6f 25 2b 31  36 3a e3 4c 25 3d 30 b8  |=allo%+16:.L%=0.|
000003a0  31 35 3a 41 25 3d 26 37  32 34 30 2b 4c 25 2a 39  |15:A%=&7240+L%*9|
000003b0  36 3a 4c 25 3f 61 6c 6c  6f 25 3d 41 25 83 32 35  |6:L%?allo%=A%.25|
000003c0  36 3a 4c 25 3f 61 6c 68  69 25 3d 41 25 81 32 35  |6:L%?alhi%=A%.25|
000003d0  36 3a ed 3a 63 68 25 3d  26 31 37 30 3a e3 4c 25  |6:.:ch%=&170:.L%|
000003e0  3d 30 b8 33 31 3a 4c 25  3f 63 68 25 3d 28 4c 25  |=0.31:L%?ch%=(L%|
000003f0  81 38 29 2b 26 43 3a ed  3a e3 4c 25 3d 30 b8 37  |.8)+&C:.:.L%=0.7|
00000400  3a 4c 25 3f 26 31 39 30  3d 28 4c 25 81 38 29 2b  |:L%?&190=(L%.8)+|
00000410  26 37 46 3a ed 0d 01 a4  07 f4 20 20 0d 01 ae 12  |&7F:......  ....|
00000420  2a 4c 2e 73 63 72 65 65  6e 20 35 42 43 30 0d 01  |*L.screen 5BC0..|
00000430  b3 0a 4e 3d a6 31 35 30  0d 01 b8 07 f4 20 20 0d  |..N=.150.....  .|
00000440  01 c2 21 ef 32 33 3b 36  2c 31 34 3b 30 3b 30 3b  |..!.23;6,14;0;0;|
00000450  30 3b 32 33 3b 37 2c 32  39 3b 30 3b 30 3b 30 3b  |0;23;7,29;0;0;0;|
00000460  0d 01 cc 23 41 25 3d 34  35 36 30 3a 42 25 3d 36  |...#A%=4560:B%=6|
00000470  35 39 39 3a 45 25 3d 37  30 39 37 3a 5a 25 3d 36  |599:E%=7097:Z%=6|
00000480  30 32 39 0d 01 d6 07 f4  20 20 0d 01 e0 26 46 25  |029.....  ...&F%|
00000490  3d 31 30 34 3a 4e 25 3d  31 35 35 3a 4f 25 3d 31  |=104:N%=155:O%=1|
000004a0  31 36 3a 58 25 3d 31 30  30 3a 59 25 3d 31 30 31  |16:X%=100:Y%=101|
000004b0  0d 01 ea 07 f4 20 20 0d  01 f4 07 f4 20 20 0d 01  |.....  .....  ..|
000004c0  fe 07 f4 20 20 0d 02 08  12 2a 4c 2e 61 2d 63 6f  |...  ....*L.a-co|
000004d0  64 65 20 36 39 38 30 0d  02 12 07 f4 20 20 0d 02  |de 6980.....  ..|
000004e0  1c 0d 2a 4c 2e 62 2d 63  6f 64 65 0d 02 26 07 f4  |..*L.b-code..&..|
000004f0  20 20 0d 02 30 0d 2a 4c  2e 63 2d 63 6f 64 65 0d  |  ..0.*L.c-code.|
00000500  02 3a 07 f4 20 20 0d 02  44 27 f7 8d 44 4e 42 3a  |.:..  ..D'..DNB:|
00000510  e3 4c 25 3d 30 b8 34 3a  f3 24 28 4c 25 2a 38 2b  |.L%=0.4:.$(L%*8+|
00000520  26 39 45 30 29 3a ed 3a  2a 46 58 31 31 0d 02 4e  |&9E0):.:*FX11..N|
00000530  36 dc 22 50 45 54 45 20  20 20 22 2c 22 44 41 56  |6."PETE   ","DAV|
00000540  45 20 20 20 22 2c 22 4d  41 52 4b 20 20 20 22 2c  |E   ","MARK   ",|
00000550  22 47 41 52 59 20 20 20  22 2c 22 44 45 42 20 20  |"GARY   ","DEB  |
00000560  20 20 22 0d 02 58 61 24  26 43 30 30 3d 22 36 45  |  "..Xa$&C00="6E|
00000570  36 41 36 37 41 32 36 37  41 41 36 39 36 35 36 32  |6A67A267AA696562|
00000580  39 44 35 45 39 44 36 37  36 35 36 34 41 39 36 37  |9D5E9D676564A967|
00000590  36 35 36 34 45 32 22 3a  24 26 43 33 30 3d 22 39  |6564E2":$&C30="9|
000005a0  45 39 45 39 44 39 42 39  44 39 39 39 42 39 39 39  |E9E9D9B9D999B999|
000005b0  38 39 42 39 31 39 42 44  44 22 3a 2a 4c 2e 64 2d  |89B919BDD":*L.d-|
000005c0  63 6f 64 65 0d 02 62 07  f4 20 20 0d 02 6c 83 24  |code..b..  ..l.$|
000005d0  26 36 42 30 30 3d bd 32  38 2b bd 30 2b bd 32 30  |&6B00=.28+.0+.20|
000005e0  2b bd 31 39 2b bd 30 2b  bd 31 32 2b bd 32 36 2b  |+.19+.0+.12+.26+|
000005f0  bd 32 33 2b bd 30 2b bd  36 2b bd 32 31 2b bd 30  |.23+.0+.6+.21+.0|
00000600  2b bd 30 2b bd 30 2b bd  30 2b bd 30 2b bd 30 2b  |+.0+.0+.0+.0+.0+|
00000610  bd 30 2b bd 30 2b bd 31  39 2b bd 31 2b bd 31 2b  |.0+.0+.19+.1+.1+|
00000620  bd 30 2b bd 30 2b bd 30  2b bd 31 39 2b bd 32 2b  |.0+.0+.0+.19+.2+|
00000630  bd 36 2b bd 30 2b bd 30  2b bd 30 2b bd 31 39 2b  |.6+.0+.0+.0+.19+|
00000640  bd 33 2b bd 33 2b bd 30  2b bd 30 2b bd 30 0d 02  |.3+.3+.0+.0+.0..|
00000650  76 19 e3 4c 25 3d 26 35  44 20 b8 20 26 43 33 3a  |v..L%=&5D . &C3:|
00000660  3f 4c 25 3d 30 3a ed 0d  02 80 35 e2 32 2c 31 2c  |?L%=0:....5.2,1,|
00000670  34 2c 35 2c 2d 38 2c 31  2c 32 2c 33 2c 31 30 30  |4,5,-8,1,2,3,100|
00000680  2c 2d 31 2c 2d 31 2c 2d  31 2c 31 30 30 2c 31 30  |,-1,-1,-1,100,10|
00000690  30 3a d7 22 4e 45 54 57  4f 52 31 22 0d ff 00 00  |0:."NETWOR1"....|
000006a0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
000006f0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00     |...............|
000006ff
NETWOR0.m0
NETWOR0.m1
NETWOR0.m2
NETWOR0.m4
NETWOR0.m5