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