Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape34a_acorn_eu_1992_may.wav » Example

Example

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 » Electron_User » Electron_User_tape34a_acorn_eu_1992_may.wav
Filename: Example
Read OK: ✔
File size: 04CF bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

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

File contents
   10REM"�EXAMPLE
   20*L.EXdata 2000
   30MODE5:VDU23;8202;0;0;0;19,3,4;0;
   40HIMEM=&2000
   50*L.EXpic
   60GCOL0,131
   70VDU24,496;496;780;652;:CLG:VDU26
   80GCOL0,128
   90VDU24,508;504;770;644;:CLG:VDU26
  100PROCC
  110 
  120REM"�==DRAW Ist Frame in
  130 
  140PROCA(&6780,&2000)
  150 
  160RESTORE360
  170 
  180REM"�==LOOP===================
  190REPEAT
  200READF%:IFF%=-1GOTO260
  210mem%=F%*&100+&1F00
  220READN%
  230FORU%=1TON%
  240PROCA(&6780,mem%)
  250NEXT
  260UNTILF%=-1
  270RESTORE500:GOTO190
  280REM"�=========================
  290 
  300REM"�==DRAW FRAME
  310DEFPROCA(X%,Y%)
  320A%=0:FORJ%=1TO4:FORI%=0TO60STEP4:X%!(I%+A%)=Y%!I%:NEXT:A%=A%+&140:Y%=Y%+&40:NEXT
  330ENDPROC
  340 
  350REM"�==DATA
  360DATA1,6,2,1,3,1,4,1
  370DATA5,1,6,1,7,1,8,1
  380DATA9,1,10,10
  390DATA11,5,10,5,11,5,10,1
  400DATA11,1,12,1,13,1,14,1
  410DATA13,1,12,1,11,1,12,1,13,1,14,1,15,1,16,1,17,1
  420DATA18,1,19,1,20,1,21,1,22,1,23,1
  430DATA23,5,24,1,25,1,26,1
  440DATA27,1,28,1,29,1,30,1
  450DATA31,1,32,1,33,1,34,1,35,1
  460DATA36,1,37,1,38,5
  470DATA39,2,40,2,41,2,42,2,43,2,44,2
  480DATA45,2,46,2,47,2,48,2
  490DATA49,2,50,2,51,4
  500DATA52,2,53,2,54,2,55,2
  510DATA52,2,55,2,52,2,53,2
  520DATA55,2,54,2,52,2,53,2
  530DATA54,2,55,2,53,2,52,2
  540DATA-1,-1
  550DEFPROCC
  560VDU19,2,1;0;
  570GCOL3,129
  580VDU24,456;464;820;684;:CLG
  590*FX15
  600G=INKEY(200)
  610A%=632:B%=640
  620GCOL3,1
  630FORH%=1TO20
  640MOVEA%,464:PLOT1,0,220
  650MOVEB%,464:PLOT1,0,220
  660FORT=1TO190:NEXT
  670A%=A%-8:B%=B%+8
  680NEXT
  690VDU19,2,3;0;
  700ENDPROC


�"�EXAMPLE
*L.EXdata 2000
�5:�23;8202;0;0;0;19,3,4;0;
(�=&2000
2*L.EXpic
<
�0,131
F�24,496;496;780;652;:�:�26
P
�0,128
Z�24,508;504;770;644;:�:�26
d�C
n 
x�"�==DRAW Ist Frame in
� 
��A(&6780,&2000)
� 
�	��DhA
� 
� �"�==LOOP===================
��
��F%:�F%=-1�TDA
�mem%=F%*&100+&1F00
��N%
��U%=1�N%
��A(&6780,mem%)
��

�F%=-1
��dtA:�t~@
 �"�=========================
" 
,�"�==DRAW FRAME
6��A(X%,Y%)
@EA%=0:�J%=1�4:�I%=0�60�4:X%!(I%+A%)=Y%!I%:�:A%=A%+&140:Y%=Y%+&40:�
J�
T 
^
�"�==DATA
h�1,6,2,1,3,1,4,1
r�5,1,6,1,7,1,8,1
|�9,1,10,10
��11,5,10,5,11,5,10,1
��11,1,12,1,13,1,14,1
�1�13,1,12,1,11,1,12,1,13,1,14,1,15,1,16,1,17,1
�"�18,1,19,1,20,1,21,1,22,1,23,1
��23,5,24,1,25,1,26,1
��27,1,28,1,29,1,30,1
��31,1,32,1,33,1,34,1,35,1
��36,1,37,1,38,5
�"�39,2,40,2,41,2,42,2,43,2,44,2
��45,2,46,2,47,2,48,2
��49,2,50,2,51,4
��52,2,53,2,54,2,55,2
��52,2,55,2,52,2,53,2
�55,2,54,2,52,2,53,2
�54,2,55,2,53,2,52,2

�-1,-1
&��C
0�19,2,1;0;
:
�3,129
D�24,456;464;820;684;:�
N	*FX15
XG=�(200)
bA%=632:B%=640
l�3,1
v�H%=1�20
��A%,464:�1,0,220
��B%,464:�1,0,220
��T=1�190:�
�A%=A%-8:B%=B%+8
��
��19,2,3;0;
��
�
00000000  0d 00 0a 0e f4 22 83 45  58 41 4d 50 4c 45 0d 00  |.....".EXAMPLE..|
00000010  14 12 2a 4c 2e 45 58 64  61 74 61 20 32 30 30 30  |..*L.EXdata 2000|
00000020  0d 00 1e 1f eb 35 3a ef  32 33 3b 38 32 30 32 3b  |.....5:.23;8202;|
00000030  30 3b 30 3b 30 3b 31 39  2c 33 2c 34 3b 30 3b 0d  |0;0;0;19,3,4;0;.|
00000040  00 28 0b d3 3d 26 32 30  30 30 0d 00 32 0c 2a 4c  |.(..=&2000..2.*L|
00000050  2e 45 58 70 69 63 0d 00  3c 0a e6 30 2c 31 33 31  |.EXpic..<..0,131|
00000060  0d 00 46 1e ef 32 34 2c  34 39 36 3b 34 39 36 3b  |..F..24,496;496;|
00000070  37 38 30 3b 36 35 32 3b  3a da 3a ef 32 36 0d 00  |780;652;:.:.26..|
00000080  50 0a e6 30 2c 31 32 38  0d 00 5a 1e ef 32 34 2c  |P..0,128..Z..24,|
00000090  35 30 38 3b 35 30 34 3b  37 37 30 3b 36 34 34 3b  |508;504;770;644;|
000000a0  3a da 3a ef 32 36 0d 00  64 06 f2 43 0d 00 6e 05  |:.:.26..d..C..n.|
000000b0  20 0d 00 78 1a f4 22 82  3d 3d 44 52 41 57 20 49  | ..x..".==DRAW I|
000000c0  73 74 20 46 72 61 6d 65  20 69 6e 0d 00 82 05 20  |st Frame in.... |
000000d0  0d 00 8c 13 f2 41 28 26  36 37 38 30 2c 26 32 30  |.....A(&6780,&20|
000000e0  30 30 29 0d 00 96 05 20  0d 00 a0 09 f7 8d 44 68  |00).... ......Dh|
000000f0  41 0d 00 aa 05 20 0d 00  b4 20 f4 22 81 3d 3d 4c  |A.... ... .".==L|
00000100  4f 4f 50 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |OOP=============|
00000110  3d 3d 3d 3d 3d 3d 0d 00  be 05 f5 0d 00 c8 13 f3  |======..........|
00000120  46 25 3a e7 46 25 3d 2d  31 e5 8d 54 44 41 0d 00  |F%:.F%=-1..TDA..|
00000130  d2 16 6d 65 6d 25 3d 46  25 2a 26 31 30 30 2b 26  |..mem%=F%*&100+&|
00000140  31 46 30 30 0d 00 dc 07  f3 4e 25 0d 00 e6 0c e3  |1F00.....N%.....|
00000150  55 25 3d 31 b8 4e 25 0d  00 f0 12 f2 41 28 26 36  |U%=1.N%.....A(&6|
00000160  37 38 30 2c 6d 65 6d 25  29 0d 00 fa 05 ed 0d 01  |780,mem%).......|
00000170  04 0a fd 46 25 3d 2d 31  0d 01 0e 0f f7 8d 64 74  |...F%=-1......dt|
00000180  41 3a e5 8d 74 7e 40 0d  01 18 20 f4 22 81 3d 3d  |A:..t~@... .".==|
00000190  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000001a0  3d 3d 3d 3d 3d 3d 3d 0d  01 22 05 20 0d 01 2c 13  |=======..". ..,.|
000001b0  f4 22 85 3d 3d 44 52 41  57 20 46 52 41 4d 45 0d  |.".==DRAW FRAME.|
000001c0  01 36 0e dd f2 41 28 58  25 2c 59 25 29 0d 01 40  |.6...A(X%,Y%)..@|
000001d0  45 41 25 3d 30 3a e3 4a  25 3d 31 b8 34 3a e3 49  |EA%=0:.J%=1.4:.I|
000001e0  25 3d 30 b8 36 30 88 34  3a 58 25 21 28 49 25 2b  |%=0.60.4:X%!(I%+|
000001f0  41 25 29 3d 59 25 21 49  25 3a ed 3a 41 25 3d 41  |A%)=Y%!I%:.:A%=A|
00000200  25 2b 26 31 34 30 3a 59  25 3d 59 25 2b 26 34 30  |%+&140:Y%=Y%+&40|
00000210  3a ed 0d 01 4a 05 e1 0d  01 54 05 20 0d 01 5e 0d  |:...J....T. ..^.|
00000220  f4 22 83 3d 3d 44 41 54  41 0d 01 68 14 dc 31 2c  |.".==DATA..h..1,|
00000230  36 2c 32 2c 31 2c 33 2c  31 2c 34 2c 31 0d 01 72  |6,2,1,3,1,4,1..r|
00000240  14 dc 35 2c 31 2c 36 2c  31 2c 37 2c 31 2c 38 2c  |..5,1,6,1,7,1,8,|
00000250  31 0d 01 7c 0e dc 39 2c  31 2c 31 30 2c 31 30 0d  |1..|..9,1,10,10.|
00000260  01 86 18 dc 31 31 2c 35  2c 31 30 2c 35 2c 31 31  |....11,5,10,5,11|
00000270  2c 35 2c 31 30 2c 31 0d  01 90 18 dc 31 31 2c 31  |,5,10,1.....11,1|
00000280  2c 31 32 2c 31 2c 31 33  2c 31 2c 31 34 2c 31 0d  |,12,1,13,1,14,1.|
00000290  01 9a 31 dc 31 33 2c 31  2c 31 32 2c 31 2c 31 31  |..1.13,1,12,1,11|
000002a0  2c 31 2c 31 32 2c 31 2c  31 33 2c 31 2c 31 34 2c  |,1,12,1,13,1,14,|
000002b0  31 2c 31 35 2c 31 2c 31  36 2c 31 2c 31 37 2c 31  |1,15,1,16,1,17,1|
000002c0  0d 01 a4 22 dc 31 38 2c  31 2c 31 39 2c 31 2c 32  |...".18,1,19,1,2|
000002d0  30 2c 31 2c 32 31 2c 31  2c 32 32 2c 31 2c 32 33  |0,1,21,1,22,1,23|
000002e0  2c 31 0d 01 ae 18 dc 32  33 2c 35 2c 32 34 2c 31  |,1.....23,5,24,1|
000002f0  2c 32 35 2c 31 2c 32 36  2c 31 0d 01 b8 18 dc 32  |,25,1,26,1.....2|
00000300  37 2c 31 2c 32 38 2c 31  2c 32 39 2c 31 2c 33 30  |7,1,28,1,29,1,30|
00000310  2c 31 0d 01 c2 1d dc 33  31 2c 31 2c 33 32 2c 31  |,1.....31,1,32,1|
00000320  2c 33 33 2c 31 2c 33 34  2c 31 2c 33 35 2c 31 0d  |,33,1,34,1,35,1.|
00000330  01 cc 13 dc 33 36 2c 31  2c 33 37 2c 31 2c 33 38  |....36,1,37,1,38|
00000340  2c 35 0d 01 d6 22 dc 33  39 2c 32 2c 34 30 2c 32  |,5...".39,2,40,2|
00000350  2c 34 31 2c 32 2c 34 32  2c 32 2c 34 33 2c 32 2c  |,41,2,42,2,43,2,|
00000360  34 34 2c 32 0d 01 e0 18  dc 34 35 2c 32 2c 34 36  |44,2.....45,2,46|
00000370  2c 32 2c 34 37 2c 32 2c  34 38 2c 32 0d 01 ea 13  |,2,47,2,48,2....|
00000380  dc 34 39 2c 32 2c 35 30  2c 32 2c 35 31 2c 34 0d  |.49,2,50,2,51,4.|
00000390  01 f4 18 dc 35 32 2c 32  2c 35 33 2c 32 2c 35 34  |....52,2,53,2,54|
000003a0  2c 32 2c 35 35 2c 32 0d  01 fe 18 dc 35 32 2c 32  |,2,55,2.....52,2|
000003b0  2c 35 35 2c 32 2c 35 32  2c 32 2c 35 33 2c 32 0d  |,55,2,52,2,53,2.|
000003c0  02 08 18 dc 35 35 2c 32  2c 35 34 2c 32 2c 35 32  |....55,2,54,2,52|
000003d0  2c 32 2c 35 33 2c 32 0d  02 12 18 dc 35 34 2c 32  |,2,53,2.....54,2|
000003e0  2c 35 35 2c 32 2c 35 33  2c 32 2c 35 32 2c 32 0d  |,55,2,53,2,52,2.|
000003f0  02 1c 0a dc 2d 31 2c 2d  31 0d 02 26 07 dd f2 43  |....-1,-1..&...C|
00000400  0d 02 30 0e ef 31 39 2c  32 2c 31 3b 30 3b 0d 02  |..0..19,2,1;0;..|
00000410  3a 0a e6 33 2c 31 32 39  0d 02 44 1a ef 32 34 2c  |:..3,129..D..24,|
00000420  34 35 36 3b 34 36 34 3b  38 32 30 3b 36 38 34 3b  |456;464;820;684;|
00000430  3a da 0d 02 4e 09 2a 46  58 31 35 0d 02 58 0c 47  |:...N.*FX15..X.G|
00000440  3d a6 28 32 30 30 29 0d  02 62 11 41 25 3d 36 33  |=.(200)..b.A%=63|
00000450  32 3a 42 25 3d 36 34 30  0d 02 6c 08 e6 33 2c 31  |2:B%=640..l..3,1|
00000460  0d 02 76 0c e3 48 25 3d  31 b8 32 30 0d 02 80 14  |..v..H%=1.20....|
00000470  ec 41 25 2c 34 36 34 3a  f0 31 2c 30 2c 32 32 30  |.A%,464:.1,0,220|
00000480  0d 02 8a 14 ec 42 25 2c  34 36 34 3a f0 31 2c 30  |.....B%,464:.1,0|
00000490  2c 32 32 30 0d 02 94 0e  e3 54 3d 31 b8 31 39 30  |,220.....T=1.190|
000004a0  3a ed 0d 02 9e 13 41 25  3d 41 25 2d 38 3a 42 25  |:.....A%=A%-8:B%|
000004b0  3d 42 25 2b 38 0d 02 a8  05 ed 0d 02 b2 0e ef 31  |=B%+8..........1|
000004c0  39 2c 32 2c 33 3b 30 3b  0d 02 bc 05 e1 0d ff     |9,2,3;0;.......|
000004cf
Example.m0
Example.m1
Example.m2
Example.m4
Example.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .