SCREEN

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.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_19.ADF
Filename:	SCREEN
Read OK:	✔
File size:	057A bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents

   10MODE6
   20CLS
   25VDU23,1,0;0;0;0;
   30PRINTTAB(16,2)"EUG19"  
   40PRINTTAB(11,4)"NEWS,   OPINIONS," 
   50PRINTTAB(13,6)"PROGRAMMING" 
   60PRINTTAB(12,8)"IT'S YOUR EUG" 
   70B%=10000
   80FOR A= 1TO 8
   90READ A$
  100PRINTTAB(1,12)A$
  110PRINTTAB(1,19)"                                                                                         "    
  120FORT%=1 TO B%
  130NEXTT%
  140READ B$
  150PRINTTAB(1,19)B$
  160PRINTTAB(1,12)"                                                                                         "  
  170FORT%=1 TO B%
  180NEXTT%
  190NEXT A
  200CLS
  220FOR T%= 1 TO B% STEP2:NEXT
  230PRINT
  240PRINT
  250PRINT"Well press SPACE then" 
  255*FX15,0
  260A=GET:CHAIN"Menu"
  270DATA"Well, not much of a screen this time"  
  280DATA"Yeah, recent ones have been very good"
  290DATA"Mind you, I'm sure that the EUG members could do something"
  300DATA"True, but only if they SEND IT IN"    
  310DATA"Do you really think that someone out   there will do a screen for the next EUG?"
  320DATA"Oh I'm sure of it, after all it is     their EUG" 
  330DATA"Well let's hope someone does, 'cause   this is terrible"  
  340DATA"Have you sent anything?"
  350DATA"No. I meant to. Have you?"
  360DATA"Ah, no. But I am very busy. Well, maybe I should send something"
  370DATA"Think I will as well"
  380DATA"Do you get the feeling someone's       looking at us?" 
  390DATA"Yeah. Who do you think it is?"
  400DATA"Oh, it's alright, it's an EUG member"
  410DATA"Well that's alright then, so long as   it's not one of those PC people"
  420DATA"Did you see BLAKE'S 7 last Saturday?   Wow, that bit when......"


�6
�
�23,1,0;0;0;0;
�16,2)"EUG19"  
(�11,4)"NEWS,   OPINIONS," 
2�13,6)"PROGRAMMING" 
<�12,8)"IT'S YOUR EUG" 
FB%=10000
P
� A= 1� 8
Z� A$
d
�1,12)A$
nj�1,19)"                                                                                         "    
x�T%=1 � B%
��T%
�� B$
�
�1,19)B$
�h�1,12)"                                                                                         "  
��T%=1 � B%
��T%
�� A
��
�� T%= 1 � B% �2:�
��
��
��"Well press SPACE then" 
�*FX15,0
A=�:�"Menu"
-�"Well, not much of a screen this time"  
,�"Yeah, recent ones have been very good"
"A�"Mind you, I'm sure that the EUG members could do something"
,,�"True, but only if they SEND IT IN"    
6V�"Do you really think that someone out   there will do a screen for the next EUG?"
@8�"Oh I'm sure of it, after all it is     their EUG" 
J@�"Well let's hope someone does, 'cause   this is terrible"  
T�"Have you sent anything?"
^ �"No. I meant to. Have you?"
hF�"Ah, no. But I am very busy. Well, maybe I should send something"
r�"Think I will as well"
|=�"Do you get the feeling someone's       looking at us?" 
�$�"Yeah. Who do you think it is?"
�+�"Oh, it's alright, it's an EUG member"
�M�"Well that's alright then, so long as   it's not one of those PC people"
�G�"Did you see BLAKE'S 7 last Saturday?   Wow, that bit when......" 
�

00000000  0d 00 0a 06 eb 36 0d 00  14 05 db 0d 00 19 12 ef  |.....6..........|
00000010  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 0d 00 1e  |23,1,0;0;0;0;...|
00000020  14 f1 8a 31 36 2c 32 29  22 45 55 47 31 39 22 20  |...16,2)"EUG19" |
00000030  20 0d 00 28 1f f1 8a 31  31 2c 34 29 22 4e 45 57  | ..(...11,4)"NEW|
00000040  53 2c 20 20 20 4f 50 49  4e 49 4f 4e 53 2c 22 20  |S,   OPINIONS," |
00000050  0d 00 32 19 f1 8a 31 33  2c 36 29 22 50 52 4f 47  |..2...13,6)"PROG|
00000060  52 41 4d 4d 49 4e 47 22  20 0d 00 3c 1b f1 8a 31  |RAMMING" ..<...1|
00000070  32 2c 38 29 22 49 54 27  53 20 59 4f 55 52 20 45  |2,8)"IT'S YOUR E|
00000080  55 47 22 20 0d 00 46 0c  42 25 3d 31 30 30 30 30  |UG" ..F.B%=10000|
00000090  0d 00 50 0d e3 20 41 3d  20 31 b8 20 38 0d 00 5a  |..P.. A= 1. 8..Z|
000000a0  08 f3 20 41 24 0d 00 64  0d f1 8a 31 2c 31 32 29  |.. A$..d...1,12)|
000000b0  41 24 0d 00 6e 6a f1 8a  31 2c 31 39 29 22 20 20  |A$..nj..1,19)"  |
000000c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000110  20 20 20 20 20 20 20 22  20 20 20 20 0d 00 78 0e  |       "    ..x.|
00000120  e3 54 25 3d 31 20 b8 20  42 25 0d 00 82 07 ed 54  |.T%=1 . B%.....T|
00000130  25 0d 00 8c 08 f3 20 42  24 0d 00 96 0d f1 8a 31  |%..... B$......1|
00000140  2c 31 39 29 42 24 0d 00  a0 68 f1 8a 31 2c 31 32  |,19)B$...h..1,12|
00000150  29 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |)"              |
00000160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000001a0  20 20 20 20 20 20 20 20  20 20 20 22 20 20 0d 00  |           "  ..|
000001b0  aa 0e e3 54 25 3d 31 20  b8 20 42 25 0d 00 b4 07  |...T%=1 . B%....|
000001c0  ed 54 25 0d 00 be 07 ed  20 41 0d 00 c8 05 db 0d  |.T%..... A......|
000001d0  00 dc 15 e3 20 54 25 3d  20 31 20 b8 20 42 25 20  |.... T%= 1 . B% |
000001e0  88 32 3a ed 0d 00 e6 05  f1 0d 00 f0 05 f1 0d 00  |.2:.............|
000001f0  fa 1d f1 22 57 65 6c 6c  20 70 72 65 73 73 20 53  |..."Well press S|
00000200  50 41 43 45 20 74 68 65  6e 22 20 0d 00 ff 0b 2a  |PACE then" ....*|
00000210  46 58 31 35 2c 30 0d 01  04 0f 41 3d a5 3a d7 22  |FX15,0....A=.:."|
00000220  4d 65 6e 75 22 0d 01 0e  2d dc 22 57 65 6c 6c 2c  |Menu"...-."Well,|
00000230  20 6e 6f 74 20 6d 75 63  68 20 6f 66 20 61 20 73  | not much of a s|
00000240  63 72 65 65 6e 20 74 68  69 73 20 74 69 6d 65 22  |creen this time"|
00000250  20 20 0d 01 18 2c dc 22  59 65 61 68 2c 20 72 65  |  ...,."Yeah, re|
00000260  63 65 6e 74 20 6f 6e 65  73 20 68 61 76 65 20 62  |cent ones have b|
00000270  65 65 6e 20 76 65 72 79  20 67 6f 6f 64 22 0d 01  |een very good"..|
00000280  22 41 dc 22 4d 69 6e 64  20 79 6f 75 2c 20 49 27  |"A."Mind you, I'|
00000290  6d 20 73 75 72 65 20 74  68 61 74 20 74 68 65 20  |m sure that the |
000002a0  45 55 47 20 6d 65 6d 62  65 72 73 20 63 6f 75 6c  |EUG members coul|
000002b0  64 20 64 6f 20 73 6f 6d  65 74 68 69 6e 67 22 0d  |d do something".|
000002c0  01 2c 2c dc 22 54 72 75  65 2c 20 62 75 74 20 6f  |.,,."True, but o|
000002d0  6e 6c 79 20 69 66 20 74  68 65 79 20 53 45 4e 44  |nly if they SEND|
000002e0  20 49 54 20 49 4e 22 20  20 20 20 0d 01 36 56 dc  | IT IN"    ..6V.|
000002f0  22 44 6f 20 79 6f 75 20  72 65 61 6c 6c 79 20 74  |"Do you really t|
00000300  68 69 6e 6b 20 74 68 61  74 20 73 6f 6d 65 6f 6e  |hink that someon|
00000310  65 20 6f 75 74 20 20 20  74 68 65 72 65 20 77 69  |e out   there wi|
00000320  6c 6c 20 64 6f 20 61 20  73 63 72 65 65 6e 20 66  |ll do a screen f|
00000330  6f 72 20 74 68 65 20 6e  65 78 74 20 45 55 47 3f  |or the next EUG?|
00000340  22 0d 01 40 38 dc 22 4f  68 20 49 27 6d 20 73 75  |"..@8."Oh I'm su|
00000350  72 65 20 6f 66 20 69 74  2c 20 61 66 74 65 72 20  |re of it, after |
00000360  61 6c 6c 20 69 74 20 69  73 20 20 20 20 20 74 68  |all it is     th|
00000370  65 69 72 20 45 55 47 22  20 0d 01 4a 40 dc 22 57  |eir EUG" ..J@."W|
00000380  65 6c 6c 20 6c 65 74 27  73 20 68 6f 70 65 20 73  |ell let's hope s|
00000390  6f 6d 65 6f 6e 65 20 64  6f 65 73 2c 20 27 63 61  |omeone does, 'ca|
000003a0  75 73 65 20 20 20 74 68  69 73 20 69 73 20 74 65  |use   this is te|
000003b0  72 72 69 62 6c 65 22 20  20 0d 01 54 1e dc 22 48  |rrible"  ..T.."H|
000003c0  61 76 65 20 79 6f 75 20  73 65 6e 74 20 61 6e 79  |ave you sent any|
000003d0  74 68 69 6e 67 3f 22 0d  01 5e 20 dc 22 4e 6f 2e  |thing?"..^ ."No.|
000003e0  20 49 20 6d 65 61 6e 74  20 74 6f 2e 20 48 61 76  | I meant to. Hav|
000003f0  65 20 79 6f 75 3f 22 0d  01 68 46 dc 22 41 68 2c  |e you?"..hF."Ah,|
00000400  20 6e 6f 2e 20 42 75 74  20 49 20 61 6d 20 76 65  | no. But I am ve|
00000410  72 79 20 62 75 73 79 2e  20 57 65 6c 6c 2c 20 6d  |ry busy. Well, m|
00000420  61 79 62 65 20 49 20 73  68 6f 75 6c 64 20 73 65  |aybe I should se|
00000430  6e 64 20 73 6f 6d 65 74  68 69 6e 67 22 0d 01 72  |nd something"..r|
00000440  1b dc 22 54 68 69 6e 6b  20 49 20 77 69 6c 6c 20  |.."Think I will |
00000450  61 73 20 77 65 6c 6c 22  0d 01 7c 3d dc 22 44 6f  |as well"..|=."Do|
00000460  20 79 6f 75 20 67 65 74  20 74 68 65 20 66 65 65  | you get the fee|
00000470  6c 69 6e 67 20 73 6f 6d  65 6f 6e 65 27 73 20 20  |ling someone's  |
00000480  20 20 20 20 20 6c 6f 6f  6b 69 6e 67 20 61 74 20  |     looking at |
00000490  75 73 3f 22 20 0d 01 86  24 dc 22 59 65 61 68 2e  |us?" ...$."Yeah.|
000004a0  20 57 68 6f 20 64 6f 20  79 6f 75 20 74 68 69 6e  | Who do you thin|
000004b0  6b 20 69 74 20 69 73 3f  22 0d 01 90 2b dc 22 4f  |k it is?"...+."O|
000004c0  68 2c 20 69 74 27 73 20  61 6c 72 69 67 68 74 2c  |h, it's alright,|
000004d0  20 69 74 27 73 20 61 6e  20 45 55 47 20 6d 65 6d  | it's an EUG mem|
000004e0  62 65 72 22 0d 01 9a 4d  dc 22 57 65 6c 6c 20 74  |ber"...M."Well t|
000004f0  68 61 74 27 73 20 61 6c  72 69 67 68 74 20 74 68  |hat's alright th|
00000500  65 6e 2c 20 73 6f 20 6c  6f 6e 67 20 61 73 20 20  |en, so long as  |
00000510  20 69 74 27 73 20 6e 6f  74 20 6f 6e 65 20 6f 66  | it's not one of|
00000520  20 74 68 6f 73 65 20 50  43 20 70 65 6f 70 6c 65  | those PC people|
00000530  22 0d 01 a4 47 dc 22 44  69 64 20 79 6f 75 20 73  |"...G."Did you s|
00000540  65 65 20 42 4c 41 4b 45  27 53 20 37 20 6c 61 73  |ee BLAKE'S 7 las|
00000550  74 20 53 61 74 75 72 64  61 79 3f 20 20 20 57 6f  |t Saturday?   Wo|
00000560  77 2c 20 74 68 61 74 20  62 69 74 20 77 68 65 6e  |w, that bit when|
00000570  2e 2e 2e 2e 2e 2e 22 20  0d ff                    |......" ..|
0000057a

SCREEN.m0

SCREEN.m1

SCREEN.m2

SCREEN.m4

SCREEN.m5

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