Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_23.ADF » SCREEN

SCREEN

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 ADFS disks » Electron_User_Group » EUG_23.ADF
Filename: SCREEN
Read OK:
File size: 03E9 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10ON ERROR RUN
   20VDU19,3,3,0,0,0
   30COLOUR 3
   40VDU23,1,0;0;0;0;
   50PRINTTAB(0,0)"                   "
   60PRINTTAB(12,24)"A MERRY CHRISTMAS "
   70PRINTTAB(4,25)"AND BEST WISHES FOR THE NEW YEAR"
   80PRINTTAB(14,27)"PRESS SPACE"
   90VDU19,1,10,0,0,0
  100VDU19,2,11,0,0,0
  110VDU19,3,14,0,0,0
  120PRINTTAB(19,1)"*":COLOUR 2:PRINTTAB(18,2)"***"
  130FOR L= 1TO6
  140COLOUR RND(3)
  150S$="*"
  160READ L$
  170 IF INKEY(-99) CHAIN"MENU"
  180GOSUB220
  190NEXT
  200DATAE,U,G,2,3,
  210DATA8,9,10,11,12,13,14,15
  220PRINT TAB((16+L),3);L$TAB((14+L),4);L$TAB((20+L),4);L$TAB((11+L),5);L$TAB((17+L),5);L$TAB((23+L),5);L$
  230PRINT TAB(12,6);S$TAB(19,6);S$TAB(18,7);S$TAB(19,7);S$TAB(20,7);S$TAB(28,6);S$
  240PRINT TAB((16+L),8);L$TAB((14+L),9);L$TAB((20+L),9);L$TAB((11+L),10);L$TAB((17+L),10);L$TAB((23+L),10);L$
  250PRINT TAB(12,11);S$TAB(19,11);S$TAB(18,12);S$TAB(19,12);S$TAB(20,12);S$TAB(28,11);S$
  260PRINT TAB((16+L),13);L$TAB((14+L),14);L$TAB((20+L),14);L$TAB((11+L),15);L$TAB((17+L),15);L$TAB((23+L),15);L$
  270PRINT TAB(12,16);S$TAB(19,16);S$TAB(18,17);S$TAB(19,17);S$TAB(20,17);S$TAB(28,16);S$
  280PRINT TAB((16+L),18);L$TAB((14+L),19);L$TAB((20+L),19);L$TAB((11+L),20);L$TAB((17+L),20);L$TAB((23+L),20);L$
  290PRINT TAB(12,21);S$TAB(19,21);S$TAB(18,22);S$TAB(19,22);S$TAB(20,22);S$TAB(28,21);S$
  300RETURN

	� � �
�19,3,3,0,0,0
� 3
(�23,1,0;0;0;0;
2�0,0)"                   "
< �12,24)"A MERRY CHRISTMAS "
F-�4,25)"AND BEST WISHES FOR THE NEW YEAR"
P�14,27)"PRESS SPACE"
Z�19,1,10,0,0,0
d�19,2,11,0,0,0
n�19,3,14,0,0,0
x�19,1)"*":� 2:�18,2)"***"
�� L= 1�6
�
� �(3)
�
S$="*"
�� L$
� � �(-99) �"MENU"
�	�d\@
��
��E,U,G,2,3,
��8,9,10,11,12,13,14,15
�T� �(16+L),3);L$�(14+L),4);L$�(20+L),4);L$�(11+L),5);L$�(17+L),5);L$�(23+L),5);L$
�<� �12,6);S$�19,6);S$�18,7);S$�19,7);S$�20,7);S$�28,6);S$
�W� �(16+L),8);L$�(14+L),9);L$�(20+L),9);L$�(11+L),10);L$�(17+L),10);L$�(23+L),10);L$
�B� �12,11);S$�19,11);S$�18,12);S$�19,12);S$�20,12);S$�28,11);S$
Z� �(16+L),13);L$�(14+L),14);L$�(20+L),14);L$�(11+L),15);L$�(17+L),15);L$�(23+L),15);L$
B� �12,16);S$�19,16);S$�18,17);S$�19,17);S$�20,17);S$�28,16);S$
Z� �(16+L),18);L$�(14+L),19);L$�(20+L),19);L$�(11+L),20);L$�(17+L),20);L$�(23+L),20);L$
"B� �12,21);S$�19,21);S$�18,22);S$�19,22);S$�20,22);S$�28,21);S$
,�
�
00000000  0d 00 0a 09 ee 20 85 20  f9 0d 00 14 11 ef 31 39  |..... . ......19|
00000010  2c 33 2c 33 2c 30 2c 30  2c 30 0d 00 1e 07 fb 20  |,3,3,0,0,0..... |
00000020  33 0d 00 28 12 ef 32 33  2c 31 2c 30 3b 30 3b 30  |3..(..23,1,0;0;0|
00000030  3b 30 3b 0d 00 32 1f f1  8a 30 2c 30 29 22 20 20  |;0;..2...0,0)"  |
00000040  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000050  20 22 0d 00 3c 20 f1 8a  31 32 2c 32 34 29 22 41  | "..< ..12,24)"A|
00000060  20 4d 45 52 52 59 20 43  48 52 49 53 54 4d 41 53  | MERRY CHRISTMAS|
00000070  20 22 0d 00 46 2d f1 8a  34 2c 32 35 29 22 41 4e  | "..F-..4,25)"AN|
00000080  44 20 42 45 53 54 20 57  49 53 48 45 53 20 46 4f  |D BEST WISHES FO|
00000090  52 20 54 48 45 20 4e 45  57 20 59 45 41 52 22 0d  |R THE NEW YEAR".|
000000a0  00 50 19 f1 8a 31 34 2c  32 37 29 22 50 52 45 53  |.P...14,27)"PRES|
000000b0  53 20 53 50 41 43 45 22  0d 00 5a 12 ef 31 39 2c  |S SPACE"..Z..19,|
000000c0  31 2c 31 30 2c 30 2c 30  2c 30 0d 00 64 12 ef 31  |1,10,0,0,0..d..1|
000000d0  39 2c 32 2c 31 31 2c 30  2c 30 2c 30 0d 00 6e 12  |9,2,11,0,0,0..n.|
000000e0  ef 31 39 2c 33 2c 31 34  2c 30 2c 30 2c 30 0d 00  |.19,3,14,0,0,0..|
000000f0  78 1f f1 8a 31 39 2c 31  29 22 2a 22 3a fb 20 32  |x...19,1)"*":. 2|
00000100  3a f1 8a 31 38 2c 32 29  22 2a 2a 2a 22 0d 00 82  |:..18,2)"***"...|
00000110  0c e3 20 4c 3d 20 31 b8  36 0d 00 8c 0a fb 20 b3  |.. L= 1.6..... .|
00000120  28 33 29 0d 00 96 0a 53  24 3d 22 2a 22 0d 00 a0  |(3)....S$="*"...|
00000130  08 f3 20 4c 24 0d 00 aa  15 20 e7 20 a6 28 2d 39  |.. L$.... . .(-9|
00000140  39 29 20 d7 22 4d 45 4e  55 22 0d 00 b4 09 e4 8d  |9) ."MENU"......|
00000150  64 5c 40 0d 00 be 05 ed  0d 00 c8 0f dc 45 2c 55  |d\@..........E,U|
00000160  2c 47 2c 32 2c 33 2c 0d  00 d2 1a dc 38 2c 39 2c  |,G,2,3,.....8,9,|
00000170  31 30 2c 31 31 2c 31 32  2c 31 33 2c 31 34 2c 31  |10,11,12,13,14,1|
00000180  35 0d 00 dc 54 f1 20 8a  28 31 36 2b 4c 29 2c 33  |5...T. .(16+L),3|
00000190  29 3b 4c 24 8a 28 31 34  2b 4c 29 2c 34 29 3b 4c  |);L$.(14+L),4);L|
000001a0  24 8a 28 32 30 2b 4c 29  2c 34 29 3b 4c 24 8a 28  |$.(20+L),4);L$.(|
000001b0  31 31 2b 4c 29 2c 35 29  3b 4c 24 8a 28 31 37 2b  |11+L),5);L$.(17+|
000001c0  4c 29 2c 35 29 3b 4c 24  8a 28 32 33 2b 4c 29 2c  |L),5);L$.(23+L),|
000001d0  35 29 3b 4c 24 0d 00 e6  3c f1 20 8a 31 32 2c 36  |5);L$...<. .12,6|
000001e0  29 3b 53 24 8a 31 39 2c  36 29 3b 53 24 8a 31 38  |);S$.19,6);S$.18|
000001f0  2c 37 29 3b 53 24 8a 31  39 2c 37 29 3b 53 24 8a  |,7);S$.19,7);S$.|
00000200  32 30 2c 37 29 3b 53 24  8a 32 38 2c 36 29 3b 53  |20,7);S$.28,6);S|
00000210  24 0d 00 f0 57 f1 20 8a  28 31 36 2b 4c 29 2c 38  |$...W. .(16+L),8|
00000220  29 3b 4c 24 8a 28 31 34  2b 4c 29 2c 39 29 3b 4c  |);L$.(14+L),9);L|
00000230  24 8a 28 32 30 2b 4c 29  2c 39 29 3b 4c 24 8a 28  |$.(20+L),9);L$.(|
00000240  31 31 2b 4c 29 2c 31 30  29 3b 4c 24 8a 28 31 37  |11+L),10);L$.(17|
00000250  2b 4c 29 2c 31 30 29 3b  4c 24 8a 28 32 33 2b 4c  |+L),10);L$.(23+L|
00000260  29 2c 31 30 29 3b 4c 24  0d 00 fa 42 f1 20 8a 31  |),10);L$...B. .1|
00000270  32 2c 31 31 29 3b 53 24  8a 31 39 2c 31 31 29 3b  |2,11);S$.19,11);|
00000280  53 24 8a 31 38 2c 31 32  29 3b 53 24 8a 31 39 2c  |S$.18,12);S$.19,|
00000290  31 32 29 3b 53 24 8a 32  30 2c 31 32 29 3b 53 24  |12);S$.20,12);S$|
000002a0  8a 32 38 2c 31 31 29 3b  53 24 0d 01 04 5a f1 20  |.28,11);S$...Z. |
000002b0  8a 28 31 36 2b 4c 29 2c  31 33 29 3b 4c 24 8a 28  |.(16+L),13);L$.(|
000002c0  31 34 2b 4c 29 2c 31 34  29 3b 4c 24 8a 28 32 30  |14+L),14);L$.(20|
000002d0  2b 4c 29 2c 31 34 29 3b  4c 24 8a 28 31 31 2b 4c  |+L),14);L$.(11+L|
000002e0  29 2c 31 35 29 3b 4c 24  8a 28 31 37 2b 4c 29 2c  |),15);L$.(17+L),|
000002f0  31 35 29 3b 4c 24 8a 28  32 33 2b 4c 29 2c 31 35  |15);L$.(23+L),15|
00000300  29 3b 4c 24 0d 01 0e 42  f1 20 8a 31 32 2c 31 36  |);L$...B. .12,16|
00000310  29 3b 53 24 8a 31 39 2c  31 36 29 3b 53 24 8a 31  |);S$.19,16);S$.1|
00000320  38 2c 31 37 29 3b 53 24  8a 31 39 2c 31 37 29 3b  |8,17);S$.19,17);|
00000330  53 24 8a 32 30 2c 31 37  29 3b 53 24 8a 32 38 2c  |S$.20,17);S$.28,|
00000340  31 36 29 3b 53 24 0d 01  18 5a f1 20 8a 28 31 36  |16);S$...Z. .(16|
00000350  2b 4c 29 2c 31 38 29 3b  4c 24 8a 28 31 34 2b 4c  |+L),18);L$.(14+L|
00000360  29 2c 31 39 29 3b 4c 24  8a 28 32 30 2b 4c 29 2c  |),19);L$.(20+L),|
00000370  31 39 29 3b 4c 24 8a 28  31 31 2b 4c 29 2c 32 30  |19);L$.(11+L),20|
00000380  29 3b 4c 24 8a 28 31 37  2b 4c 29 2c 32 30 29 3b  |);L$.(17+L),20);|
00000390  4c 24 8a 28 32 33 2b 4c  29 2c 32 30 29 3b 4c 24  |L$.(23+L),20);L$|
000003a0  0d 01 22 42 f1 20 8a 31  32 2c 32 31 29 3b 53 24  |.."B. .12,21);S$|
000003b0  8a 31 39 2c 32 31 29 3b  53 24 8a 31 38 2c 32 32  |.19,21);S$.18,22|
000003c0  29 3b 53 24 8a 31 39 2c  32 32 29 3b 53 24 8a 32  |);S$.19,22);S$.2|
000003d0  30 2c 32 32 29 3b 53 24  8a 32 38 2c 32 31 29 3b  |0,22);S$.28,21);|
000003e0  53 24 0d 01 2c 05 f8 0d  ff                       |S$..,....|
000003e9
SCREEN.m0
SCREEN.m1
SCREEN.m2
SCREEN.m4
SCREEN.m5