Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape31a_acorn_eu_1992_january.wav » Prog2

Prog2

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_tape31a_acorn_eu_1992_january.wav
Filename: Prog2
Read OK:
File size: 0540 bytes
Load address: FFFF1900
Exec address: FFFF801F
Duplicates

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

File contents
   10REM"�PROG2
   20REM"�GRAPHICS CURSOR
   30MODE5
   40VDU23,224,60,66,165,129,165,153,66,60
   50VDU23,225,25,127,254,188,60,60,102,231
   60VDU5
   70REM"�SIMPLE PLOTTING/PRINTING
   80X=0:Y=0
   90VDU4:PRINTTAB(X,Y)"MOVEX,Y:PRINTCHR$224":VDU5
  100x=640
  110y=960
  120MOVEx,y:PRINTCHR$224
  130 
  140REM"�USING VDU to PRINT
  150Y=Y+4
  160VDU4:PRINTTAB(X,Y)"USING VDU to PRINT":VDU5
  170y=y-128
  180MOVEx,y:VDU224
  190 
  200REM"�ADD G-COLOUR
  210Y=Y+4
  220VDU4:PRINTTAB(X,Y)"ADD COLOUR (GCOL)":VDU5
  230y=y-128
  240GCOL0,1
  250MOVEx,y:VDU224
  260 
  270REM"�TWO CHRS
  280Y=Y+4
  290VDU4:PRINTTAB(X,Y)"TWO CHRS PRINTED"
  300PRINT"SEPARATELY ONE BELOWTHE OTHER":VDU5
  310y=y-192
  320MOVEx,y:VDU224
  330MOVEx,y-32:VDU225
  340 
  350REM"�TWO CHRS AS ONE
  360Y=Y+7
  370y=y-160
  380VDU4:PRINTTAB(X,Y)"TWO CHRS AS ONE":VDU5
  390A$=CHR$224
  400B$=CHR$225
  410C$=A$+CHR$8+CHR$10+B$
  420MOVEx,y:PRINTC$
  430 
  440REM"�COLOUR INCLUDED!
  450Y=Y+5
  460y=y-160
  470VDU4:PRINTTAB(X,Y)"COLOUR INCLUDED!":VDU5
  480C$=CHR$18+CHR$0+CHR$1+C$
  490MOVEx,y:PRINTC$
  500 
  510Y=Y+5
  520VDU4:PRINTTAB(3,Y)"PRESS SPACEBAR"
  530REPEATUNTILGET=32
  540CLS
  550 
  560REM"�DIFFERENT COLS"
  570X=0:Y=0
  580x=640
  590y=960
  600PRINTTAB(X,Y)"DIFFERENT COLOURS"
  610VDU5
  620C$=CHR$18+CHR$0+CHR$1+A$+CHR$8+CHR$10+CHR$18+CHR$0+CHR$2+B$
  630MOVEx,y:PRINTC$
  640 
  650REM"�MULTI COLOUR!
  660Y=Y+5
  670y=y-160
  680VDU4:PRINTTAB(X,Y)"MULTI COLOUR!":VDU5
  690VDU23,226,0,60,90,126,90,102,60,0
  700C$=CHR$18+CHR$0+CHR$1+A$+CHR$8+CHR$18+CHR$0+CHR$2+CHR$226+CHR$8+CHR$10+B$
  710MOVEx,y:PRINTC$
  720 
  730REM"�MORE COLOURS!
  740VDU23,227,0,0,0,0,60,0,102,231
  750Y=Y+5
  760y=y-160
  770VDU4:PRINTTAB(X,Y)"WHITE BOOTS/BELT!":VDU5
  780C$=C$+CHR$8+CHR$18+CHR$0+CHR$3+CHR$227
  790MOVEx,y:PRINTC$

�"�PROG2
�"�GRAPHICS CURSOR
�5
('�23,224,60,66,165,129,165,153,66,60
2(�23,225,25,127,254,188,60,60,102,231
<�5
F�"�SIMPLE PLOTTING/PRINTING
PX=0:Y=0
Z&�4:�X,Y)"MOVEX,Y:PRINTCHR$224":�5
d	x=640
n	y=960
x�x,y:�224
� 
��"�USING VDU to PRINT
�	Y=Y+4
�$�4:�X,Y)"USING VDU to PRINT":�5
�y=y-128
�
�x,y:�224
� 
��"�ADD G-COLOUR
�	Y=Y+4
�#�4:�X,Y)"ADD COLOUR (GCOL)":�5
�y=y-128
��0,1
�
�x,y:�224
 
�"�TWO CHRS
	Y=Y+4
"�4:�X,Y)"TWO CHRS PRINTED"
,'�"SEPARATELY ONE BELOWTHE OTHER":�5
6y=y-192
@
�x,y:�224
J�x,y-32:�225
T 
^�"�TWO CHRS AS ONE
h	Y=Y+7
ry=y-160
|!�4:�X,Y)"TWO CHRS AS ONE":�5
�A$=�224
�B$=�225
�C$=A$+�8+�10+B$
��x,y:�C$
� 
��"�COLOUR INCLUDED!
�	Y=Y+5
�y=y-160
�"�4:�X,Y)"COLOUR INCLUDED!":�5
�C$=�18+�0+�1+C$
��x,y:�C$
� 
�	Y=Y+5
�4:�3,Y)"PRESS SPACEBAR"

���=32
�
& 
0�"�DIFFERENT COLS"
:X=0:Y=0
D	x=640
N	y=960
X�X,Y)"DIFFERENT COLOURS"
b�5
l'C$=�18+�0+�1+A$+�8+�10+�18+�0+�2+B$
v�x,y:�C$
� 
��"�MULTI COLOUR!
�	Y=Y+5
�y=y-160
��4:�X,Y)"MULTI COLOUR!":�5
�#�23,226,0,60,90,126,90,102,60,0
�/C$=�18+�0+�1+A$+�8+�18+�0+�2+�226+�8+�10+B$
��x,y:�C$
� 
��"�MORE COLOURS!
� �23,227,0,0,0,0,60,0,102,231
�	Y=Y+5
�y=y-160
#�4:�X,Y)"WHITE BOOTS/BELT!":�5
C$=C$+�8+�18+�0+�3+�227
�x,y:�C$
�
00000000  0d 00 0a 0c f4 22 83 50  52 4f 47 32 0d 00 14 16  |.....".PROG2....|
00000010  f4 22 81 47 52 41 50 48  49 43 53 20 43 55 52 53  |.".GRAPHICS CURS|
00000020  4f 52 0d 00 1e 06 eb 35  0d 00 28 27 ef 32 33 2c  |OR.....5..('.23,|
00000030  32 32 34 2c 36 30 2c 36  36 2c 31 36 35 2c 31 32  |224,60,66,165,12|
00000040  39 2c 31 36 35 2c 31 35  33 2c 36 36 2c 36 30 0d  |9,165,153,66,60.|
00000050  00 32 28 ef 32 33 2c 32  32 35 2c 32 35 2c 31 32  |.2(.23,225,25,12|
00000060  37 2c 32 35 34 2c 31 38  38 2c 36 30 2c 36 30 2c  |7,254,188,60,60,|
00000070  31 30 32 2c 32 33 31 0d  00 3c 06 ef 35 0d 00 46  |102,231..<..5..F|
00000080  1f f4 22 81 53 49 4d 50  4c 45 20 50 4c 4f 54 54  |..".SIMPLE PLOTT|
00000090  49 4e 47 2f 50 52 49 4e  54 49 4e 47 0d 00 50 0b  |ING/PRINTING..P.|
000000a0  58 3d 30 3a 59 3d 30 0d  00 5a 26 ef 34 3a f1 8a  |X=0:Y=0..Z&.4:..|
000000b0  58 2c 59 29 22 4d 4f 56  45 58 2c 59 3a 50 52 49  |X,Y)"MOVEX,Y:PRI|
000000c0  4e 54 43 48 52 24 32 32  34 22 3a ef 35 0d 00 64  |NTCHR$224":.5..d|
000000d0  09 78 3d 36 34 30 0d 00  6e 09 79 3d 39 36 30 0d  |.x=640..n.y=960.|
000000e0  00 78 0e ec 78 2c 79 3a  f1 bd 32 32 34 0d 00 82  |.x..x,y:..224...|
000000f0  05 20 0d 00 8c 19 f4 22  82 55 53 49 4e 47 20 56  |. .....".USING V|
00000100  44 55 20 74 6f 20 50 52  49 4e 54 0d 00 96 09 59  |DU to PRINT....Y|
00000110  3d 59 2b 34 0d 00 a0 24  ef 34 3a f1 8a 58 2c 59  |=Y+4...$.4:..X,Y|
00000120  29 22 55 53 49 4e 47 20  56 44 55 20 74 6f 20 50  |)"USING VDU to P|
00000130  52 49 4e 54 22 3a ef 35  0d 00 aa 0b 79 3d 79 2d  |RINT":.5....y=y-|
00000140  31 32 38 0d 00 b4 0d ec  78 2c 79 3a ef 32 32 34  |128.....x,y:.224|
00000150  0d 00 be 05 20 0d 00 c8  13 f4 22 83 41 44 44 20  |.... .....".ADD |
00000160  47 2d 43 4f 4c 4f 55 52  0d 00 d2 09 59 3d 59 2b  |G-COLOUR....Y=Y+|
00000170  34 0d 00 dc 23 ef 34 3a  f1 8a 58 2c 59 29 22 41  |4...#.4:..X,Y)"A|
00000180  44 44 20 43 4f 4c 4f 55  52 20 28 47 43 4f 4c 29  |DD COLOUR (GCOL)|
00000190  22 3a ef 35 0d 00 e6 0b  79 3d 79 2d 31 32 38 0d  |":.5....y=y-128.|
000001a0  00 f0 08 e6 30 2c 31 0d  00 fa 0d ec 78 2c 79 3a  |....0,1.....x,y:|
000001b0  ef 32 32 34 0d 01 04 05  20 0d 01 0e 0f f4 22 84  |.224.... .....".|
000001c0  54 57 4f 20 43 48 52 53  0d 01 18 09 59 3d 59 2b  |TWO CHRS....Y=Y+|
000001d0  34 0d 01 22 1f ef 34 3a  f1 8a 58 2c 59 29 22 54  |4.."..4:..X,Y)"T|
000001e0  57 4f 20 43 48 52 53 20  50 52 49 4e 54 45 44 22  |WO CHRS PRINTED"|
000001f0  0d 01 2c 27 f1 22 53 45  50 41 52 41 54 45 4c 59  |..,'."SEPARATELY|
00000200  20 4f 4e 45 20 42 45 4c  4f 57 54 48 45 20 4f 54  | ONE BELOWTHE OT|
00000210  48 45 52 22 3a ef 35 0d  01 36 0b 79 3d 79 2d 31  |HER":.5..6.y=y-1|
00000220  39 32 0d 01 40 0d ec 78  2c 79 3a ef 32 32 34 0d  |92..@..x,y:.224.|
00000230  01 4a 10 ec 78 2c 79 2d  33 32 3a ef 32 32 35 0d  |.J..x,y-32:.225.|
00000240  01 54 05 20 0d 01 5e 16  f4 22 85 54 57 4f 20 43  |.T. ..^..".TWO C|
00000250  48 52 53 20 41 53 20 4f  4e 45 0d 01 68 09 59 3d  |HRS AS ONE..h.Y=|
00000260  59 2b 37 0d 01 72 0b 79  3d 79 2d 31 36 30 0d 01  |Y+7..r.y=y-160..|
00000270  7c 21 ef 34 3a f1 8a 58  2c 59 29 22 54 57 4f 20  ||!.4:..X,Y)"TWO |
00000280  43 48 52 53 20 41 53 20  4f 4e 45 22 3a ef 35 0d  |CHRS AS ONE":.5.|
00000290  01 86 0b 41 24 3d bd 32  32 34 0d 01 90 0b 42 24  |...A$=.224....B$|
000002a0  3d bd 32 32 35 0d 01 9a  13 43 24 3d 41 24 2b bd  |=.225....C$=A$+.|
000002b0  38 2b bd 31 30 2b 42 24  0d 01 a4 0c ec 78 2c 79  |8+.10+B$.....x,y|
000002c0  3a f1 43 24 0d 01 ae 05  20 0d 01 b8 17 f4 22 86  |:.C$.... .....".|
000002d0  43 4f 4c 4f 55 52 20 49  4e 43 4c 55 44 45 44 21  |COLOUR INCLUDED!|
000002e0  0d 01 c2 09 59 3d 59 2b  35 0d 01 cc 0b 79 3d 79  |....Y=Y+5....y=y|
000002f0  2d 31 36 30 0d 01 d6 22  ef 34 3a f1 8a 58 2c 59  |-160...".4:..X,Y|
00000300  29 22 43 4f 4c 4f 55 52  20 49 4e 43 4c 55 44 45  |)"COLOUR INCLUDE|
00000310  44 21 22 3a ef 35 0d 01  e0 13 43 24 3d bd 31 38  |D!":.5....C$=.18|
00000320  2b bd 30 2b bd 31 2b 43  24 0d 01 ea 0c ec 78 2c  |+.0+.1+C$.....x,|
00000330  79 3a f1 43 24 0d 01 f4  05 20 0d 01 fe 09 59 3d  |y:.C$.... ....Y=|
00000340  59 2b 35 0d 02 08 1d ef  34 3a f1 8a 33 2c 59 29  |Y+5.....4:..3,Y)|
00000350  22 50 52 45 53 53 20 53  50 41 43 45 42 41 52 22  |"PRESS SPACEBAR"|
00000360  0d 02 12 0a f5 fd a5 3d  33 32 0d 02 1c 05 db 0d  |.......=32......|
00000370  02 26 05 20 0d 02 30 16  f4 22 86 44 49 46 46 45  |.&. ..0..".DIFFE|
00000380  52 45 4e 54 20 43 4f 4c  53 22 0d 02 3a 0b 58 3d  |RENT COLS"..:.X=|
00000390  30 3a 59 3d 30 0d 02 44  09 78 3d 36 34 30 0d 02  |0:Y=0..D.x=640..|
000003a0  4e 09 79 3d 39 36 30 0d  02 58 1d f1 8a 58 2c 59  |N.y=960..X...X,Y|
000003b0  29 22 44 49 46 46 45 52  45 4e 54 20 43 4f 4c 4f  |)"DIFFERENT COLO|
000003c0  55 52 53 22 0d 02 62 06  ef 35 0d 02 6c 27 43 24  |URS"..b..5..l'C$|
000003d0  3d bd 31 38 2b bd 30 2b  bd 31 2b 41 24 2b bd 38  |=.18+.0+.1+A$+.8|
000003e0  2b bd 31 30 2b bd 31 38  2b bd 30 2b bd 32 2b 42  |+.10+.18+.0+.2+B|
000003f0  24 0d 02 76 0c ec 78 2c  79 3a f1 43 24 0d 02 80  |$..v..x,y:.C$...|
00000400  05 20 0d 02 8a 14 f4 22  81 4d 55 4c 54 49 20 43  |. .....".MULTI C|
00000410  4f 4c 4f 55 52 21 0d 02  94 09 59 3d 59 2b 35 0d  |OLOUR!....Y=Y+5.|
00000420  02 9e 0b 79 3d 79 2d 31  36 30 0d 02 a8 1f ef 34  |...y=y-160.....4|
00000430  3a f1 8a 58 2c 59 29 22  4d 55 4c 54 49 20 43 4f  |:..X,Y)"MULTI CO|
00000440  4c 4f 55 52 21 22 3a ef  35 0d 02 b2 23 ef 32 33  |LOUR!":.5...#.23|
00000450  2c 32 32 36 2c 30 2c 36  30 2c 39 30 2c 31 32 36  |,226,0,60,90,126|
00000460  2c 39 30 2c 31 30 32 2c  36 30 2c 30 0d 02 bc 2f  |,90,102,60,0.../|
00000470  43 24 3d bd 31 38 2b bd  30 2b bd 31 2b 41 24 2b  |C$=.18+.0+.1+A$+|
00000480  bd 38 2b bd 31 38 2b bd  30 2b bd 32 2b bd 32 32  |.8+.18+.0+.2+.22|
00000490  36 2b bd 38 2b bd 31 30  2b 42 24 0d 02 c6 0c ec  |6+.8+.10+B$.....|
000004a0  78 2c 79 3a f1 43 24 0d  02 d0 05 20 0d 02 da 14  |x,y:.C$.... ....|
000004b0  f4 22 82 4d 4f 52 45 20  43 4f 4c 4f 55 52 53 21  |.".MORE COLOURS!|
000004c0  0d 02 e4 20 ef 32 33 2c  32 32 37 2c 30 2c 30 2c  |... .23,227,0,0,|
000004d0  30 2c 30 2c 36 30 2c 30  2c 31 30 32 2c 32 33 31  |0,0,60,0,102,231|
000004e0  0d 02 ee 09 59 3d 59 2b  35 0d 02 f8 0b 79 3d 79  |....Y=Y+5....y=y|
000004f0  2d 31 36 30 0d 03 02 23  ef 34 3a f1 8a 58 2c 59  |-160...#.4:..X,Y|
00000500  29 22 57 48 49 54 45 20  42 4f 4f 54 53 2f 42 45  |)"WHITE BOOTS/BE|
00000510  4c 54 21 22 3a ef 35 0d  03 0c 1b 43 24 3d 43 24  |LT!":.5....C$=C$|
00000520  2b bd 38 2b bd 31 38 2b  bd 30 2b bd 33 2b bd 32  |+.8+.18+.0+.3+.2|
00000530  32 37 0d 03 16 0c ec 78  2c 79 3a f1 43 24 0d ff  |27.....x,y:.C$..|
00000540
Prog2.m0
Prog2.m1
Prog2.m2
Prog2.m4
Prog2.m5