Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape06a_c15_acorn_blockable.wav » TRAFFIC1
TRAFFIC1
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 » Own_Work » drawer_tl_tape06a_c15_acorn_blockable.wav |
| Filename: | TRAFFIC1 |
| Read OK: | ✔ |
| File size: | 0172 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF8023 |
File contents
10 IFPAGE<>&FFF THEN PROCwrong ELSE PRINT"WAIT. . ."
20 B%=&D00:FOR Y%=0 TO LI:READ A$
30 FOR L%=0 TO 23:?B%=EVAL("&"+MID$(A$,L%*2+1,2))
40 B%=B%+1:NEXT:NEXT:CALL&D00:END
50 DEFPROCwrong:PRINT"PAGE IS NOT &FFF!"
60 PRINT"Change PAGE and Reload"
70 END
80 ENDPROC
90 DATAA91620EEFFA90520EEFFA91F20EEFFA90A20EEFFA90A20EE
100 DATAFFA91720EEFFA98020EEFFA90820EEFFA91C20EEFFA93E20
110 DATAEEFFA97F20EEFFA97F20EEFFA97F20EEFFA91C20EEFFA93E
% �<>&FFF � �wrong � �"WAIT. . ."
B%=&D00:� Y%=0 � LI:� A$
) � L%=0 � 23:?B%=�("&"+�A$,L%*2+1,2))
( B%=B%+1:�:�:�&D00:�
2! ��wrong:�"PAGE IS NOT &FFF!"
< �"Change PAGE and Reload"
F �
P �
Z6 �A91620EEFFA90520EEFFA91F20EEFFA90A20EEFFA90A20EE
d6 �FFA91720EEFFA98020EEFFA90820EEFFA91C20EEFFA93E20
n6 �EEFFA97F20EEFFA97F20EEFFA97F20EEFFA91C20EEFFA93E
� 00000000 0d 00 0a 25 20 e7 90 3c 3e 26 46 46 46 20 8c 20 |...% ..<>&FFF . |
00000010 f2 77 72 6f 6e 67 20 8b 20 f1 22 57 41 49 54 2e |.wrong . ."WAIT.|
00000020 20 2e 20 2e 22 0d 00 14 1d 20 42 25 3d 26 44 30 | . .".... B%=&D0|
00000030 30 3a e3 20 59 25 3d 30 20 b8 20 4c 49 3a f3 20 |0:. Y%=0 . LI:. |
00000040 41 24 0d 00 1e 29 20 e3 20 4c 25 3d 30 20 b8 20 |A$...) . L%=0 . |
00000050 32 33 3a 3f 42 25 3d a0 28 22 26 22 2b c1 41 24 |23:?B%=.("&"+.A$|
00000060 2c 4c 25 2a 32 2b 31 2c 32 29 29 0d 00 28 18 20 |,L%*2+1,2))..(. |
00000070 42 25 3d 42 25 2b 31 3a ed 3a ed 3a d6 26 44 30 |B%=B%+1:.:.:.&D0|
00000080 30 3a e0 0d 00 32 21 20 dd f2 77 72 6f 6e 67 3a |0:...2! ..wrong:|
00000090 f1 22 50 41 47 45 20 49 53 20 4e 4f 54 20 26 46 |."PAGE IS NOT &F|
000000a0 46 46 21 22 0d 00 3c 1e 20 f1 22 43 68 61 6e 67 |FF!"..<. ."Chang|
000000b0 65 20 50 41 47 45 20 61 6e 64 20 52 65 6c 6f 61 |e PAGE and Reloa|
000000c0 64 22 0d 00 46 06 20 e0 0d 00 50 06 20 e1 0d 00 |d"..F. ...P. ...|
000000d0 5a 36 20 dc 41 39 31 36 32 30 45 45 46 46 41 39 |Z6 .A91620EEFFA9|
000000e0 30 35 32 30 45 45 46 46 41 39 31 46 32 30 45 45 |0520EEFFA91F20EE|
000000f0 46 46 41 39 30 41 32 30 45 45 46 46 41 39 30 41 |FFA90A20EEFFA90A|
00000100 32 30 45 45 0d 00 64 36 20 dc 46 46 41 39 31 37 |20EE..d6 .FFA917|
00000110 32 30 45 45 46 46 41 39 38 30 32 30 45 45 46 46 |20EEFFA98020EEFF|
00000120 41 39 30 38 32 30 45 45 46 46 41 39 31 43 32 30 |A90820EEFFA91C20|
00000130 45 45 46 46 41 39 33 45 32 30 0d 00 6e 36 20 dc |EEFFA93E20..n6 .|
00000140 45 45 46 46 41 39 37 46 32 30 45 45 46 46 41 39 |EEFFA97F20EEFFA9|
00000150 37 46 32 30 45 45 46 46 41 39 37 46 32 30 45 45 |7F20EEFFA97F20EE|
00000160 46 46 41 39 31 43 32 30 45 45 46 46 41 39 33 45 |FFA91C20EEFFA93E|
00000170 0d ff |..|
00000172 
.