SCREEN

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_28.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_28.ADF
Filename:	SCREEN
Read OK:	✔
File size:	05A3 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents

   10REM        Plasmatic EUG                          by D. Ford 1996
   20:
   30I%=28:REM Issue number
   40:
   50MODE 2
   60 ON ERROR GOTO 560
   70FORl=9 TO 0 STEP -1
   80GCOL0,1+(l DIV 2)
   90MOVE4*(50-l),4*(206+l)
  100DRAW4*(100+l),4*(206+l)
  110DRAW4*(100+l),4*(206-l)
  120DRAW4*(50+l),4*(206-l)
  130DRAW4*(50+l),4*(128+l)
  140DRAW4*(100+l),4*(128+l)
  150DRAW4*(100+l),4*(128-l)
  160DRAW4*(50+l),4*(128-l)
  170DRAW4*(50+l),4*(50+l)
  180DRAW4*(100+l),4*(50+l)
  190DRAW4*(100+l),4*(50-l)
  200DRAW4*(50-l),4*(50-l)
  210DRAW4*(50-l),4*(206+l)
  215GCOL0,6+(l DIV 2)
  220MOVE4*(130-l),4*(206+l)
  230DRAW4*(130+l),4*(206+l)
  240DRAW4*(130+l),4*(50+l)
  250DRAW4*(180-l),4*(50+l)
  260DRAW4*(180-l),4*(206+l)
  270DRAW4*(180+l),4*(206+l)
  280DRAW4*(180+l),4*(50-l)
  290DRAW4*(130-l),4*(50-l)
  300DRAW4*(130-l),4*(206+l)
  305GCOL0,11+(l DIV 2)
  310MOVE4*(210-l),4*(206+l)
  320DRAW4*(260+l),4*(206+l)
  330DRAW4*(260+l),4*(206-l)
  340DRAW4*(210+l),4*(206-l)
  350DRAW4*(210+l),4*(50+l)
  360DRAW4*(260-l),4*(50+l)
  370DRAW4*(260-l),4*(128+l)
  380DRAW4*(260+l),4*(128+l)
  390DRAW4*(260+l),4*(50-l)
  400DRAW4*(210-l),4*(50-l)
  410DRAW4*(210-l),4*(206+l)
  420NEXT
  430VDU23,1,0;0;0;0;
  435VDU19,1,1,0,0,0,0,19,6,2,0,0,0,0,19,11,4,0,0,0,0:COLOUR6
  440PRINTTAB(6,29)"Issue ";I%
  450PRINTTAB(3,31)"Press <SPACE>";
  460REPEAT
  470FOR col=2 TO 5:nt%=TIME+10
  480VDU19,col+0,1,0,0,0,0,19,col+5,2,0,0,0,0,19,col+10,4,0,0,0,0
  485REPEAT UNTIL TIME>nt% OR INKEY(-99)
  490NEXT
  510FOR col=5 TO 2 STEP -1:nt%=TIME+10
  530VDU19,col+0,0,0,0,0,0,19,col+5,0,0,0,0,0,19,col+10,0,0,0,0,0
  540REPEAT UNTIL TIME>nt% OR INKEY(-99)
  545NEXT
  550UNTIL INKEY(-99)
  560MODE6:PRINT:PRINT:PRINT"If there are any problems with your EUG then please do contact me"
  570FOR X=1 TO 10000:NEXT:CHAIN"MENU"


C�        Plasmatic EUG                          by D. Ford 1996
:
I%=28:� Issue number
(:
2� 2
< � � � �TpB
F�l=9 � 0 � -1
P�0,1+(l � 2)
Z�4*(50-l),4*(206+l)
d�4*(100+l),4*(206+l)
n�4*(100+l),4*(206-l)
x�4*(50+l),4*(206-l)
��4*(50+l),4*(128+l)
��4*(100+l),4*(128+l)
��4*(100+l),4*(128-l)
��4*(50+l),4*(128-l)
��4*(50+l),4*(50+l)
��4*(100+l),4*(50+l)
��4*(100+l),4*(50-l)
��4*(50-l),4*(50-l)
��4*(50-l),4*(206+l)
��0,6+(l � 2)
��4*(130-l),4*(206+l)
��4*(130+l),4*(206+l)
��4*(130+l),4*(50+l)
��4*(180-l),4*(50+l)
�4*(180-l),4*(206+l)
�4*(180+l),4*(206+l)
�4*(180+l),4*(50-l)
"�4*(130-l),4*(50-l)
,�4*(130-l),4*(206+l)
1�0,11+(l � 2)
6�4*(210-l),4*(206+l)
@�4*(260+l),4*(206+l)
J�4*(260+l),4*(206-l)
T�4*(210+l),4*(206-l)
^�4*(210+l),4*(50+l)
h�4*(260-l),4*(50+l)
r�4*(260-l),4*(128+l)
|�4*(260+l),4*(128+l)
��4*(260+l),4*(50-l)
��4*(210-l),4*(50-l)
��4*(210-l),4*(206+l)
��
��23,1,0;0;0;0;
�5�19,1,1,0,0,0,0,19,6,2,0,0,0,0,19,11,4,0,0,0,0:�6
��6,29)"Issue ";I%
��3,31)"Press <SPACE>";
��
�� col=2 � 5:nt%=�+10
�>�19,col+0,1,0,0,0,0,19,col+5,2,0,0,0,0,19,col+10,4,0,0,0,0
�� � �>nt% � �(-99)
��
�� col=5 � 2 � -1:nt%=�+10
>�19,col+0,0,0,0,0,0,19,col+5,0,0,0,0,0,19,col+10,0,0,0,0,0
� � �>nt% � �(-99)
!�
&� �(-99)
0O�6:�:�:�"If there are any problems with your EUG then please do contact me"
:� X=1 � 10000:�:�"MENU"
�

00000000  0d 00 0a 43 f4 20 20 20  20 20 20 20 20 50 6c 61  |...C.        Pla|
00000010  73 6d 61 74 69 63 20 45  55 47 20 20 20 20 20 20  |smatic EUG      |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000030  20 20 20 20 62 79 20 44  2e 20 46 6f 72 64 20 31  |    by D. Ford 1|
00000040  39 39 36 0d 00 14 05 3a  0d 00 1e 18 49 25 3d 32  |996....:....I%=2|
00000050  38 3a f4 20 49 73 73 75  65 20 6e 75 6d 62 65 72  |8:. Issue number|
00000060  0d 00 28 05 3a 0d 00 32  07 eb 20 32 0d 00 3c 0f  |..(.:..2.. 2..<.|
00000070  20 ee 20 85 20 e5 20 8d  54 70 42 0d 00 46 11 e3  | . . . .TpB..F..|
00000080  6c 3d 39 20 b8 20 30 20  88 20 2d 31 0d 00 50 10  |l=9 . 0 . -1..P.|
00000090  e6 30 2c 31 2b 28 6c 20  81 20 32 29 0d 00 5a 17  |.0,1+(l . 2)..Z.|
000000a0  ec 34 2a 28 35 30 2d 6c  29 2c 34 2a 28 32 30 36  |.4*(50-l),4*(206|
000000b0  2b 6c 29 0d 00 64 18 df  34 2a 28 31 30 30 2b 6c  |+l)..d..4*(100+l|
000000c0  29 2c 34 2a 28 32 30 36  2b 6c 29 0d 00 6e 18 df  |),4*(206+l)..n..|
000000d0  34 2a 28 31 30 30 2b 6c  29 2c 34 2a 28 32 30 36  |4*(100+l),4*(206|
000000e0  2d 6c 29 0d 00 78 17 df  34 2a 28 35 30 2b 6c 29  |-l)..x..4*(50+l)|
000000f0  2c 34 2a 28 32 30 36 2d  6c 29 0d 00 82 17 df 34  |,4*(206-l).....4|
00000100  2a 28 35 30 2b 6c 29 2c  34 2a 28 31 32 38 2b 6c  |*(50+l),4*(128+l|
00000110  29 0d 00 8c 18 df 34 2a  28 31 30 30 2b 6c 29 2c  |).....4*(100+l),|
00000120  34 2a 28 31 32 38 2b 6c  29 0d 00 96 18 df 34 2a  |4*(128+l).....4*|
00000130  28 31 30 30 2b 6c 29 2c  34 2a 28 31 32 38 2d 6c  |(100+l),4*(128-l|
00000140  29 0d 00 a0 17 df 34 2a  28 35 30 2b 6c 29 2c 34  |).....4*(50+l),4|
00000150  2a 28 31 32 38 2d 6c 29  0d 00 aa 16 df 34 2a 28  |*(128-l).....4*(|
00000160  35 30 2b 6c 29 2c 34 2a  28 35 30 2b 6c 29 0d 00  |50+l),4*(50+l)..|
00000170  b4 17 df 34 2a 28 31 30  30 2b 6c 29 2c 34 2a 28  |...4*(100+l),4*(|
00000180  35 30 2b 6c 29 0d 00 be  17 df 34 2a 28 31 30 30  |50+l).....4*(100|
00000190  2b 6c 29 2c 34 2a 28 35  30 2d 6c 29 0d 00 c8 16  |+l),4*(50-l)....|
000001a0  df 34 2a 28 35 30 2d 6c  29 2c 34 2a 28 35 30 2d  |.4*(50-l),4*(50-|
000001b0  6c 29 0d 00 d2 17 df 34  2a 28 35 30 2d 6c 29 2c  |l).....4*(50-l),|
000001c0  34 2a 28 32 30 36 2b 6c  29 0d 00 d7 10 e6 30 2c  |4*(206+l).....0,|
000001d0  36 2b 28 6c 20 81 20 32  29 0d 00 dc 18 ec 34 2a  |6+(l . 2).....4*|
000001e0  28 31 33 30 2d 6c 29 2c  34 2a 28 32 30 36 2b 6c  |(130-l),4*(206+l|
000001f0  29 0d 00 e6 18 df 34 2a  28 31 33 30 2b 6c 29 2c  |).....4*(130+l),|
00000200  34 2a 28 32 30 36 2b 6c  29 0d 00 f0 17 df 34 2a  |4*(206+l).....4*|
00000210  28 31 33 30 2b 6c 29 2c  34 2a 28 35 30 2b 6c 29  |(130+l),4*(50+l)|
00000220  0d 00 fa 17 df 34 2a 28  31 38 30 2d 6c 29 2c 34  |.....4*(180-l),4|
00000230  2a 28 35 30 2b 6c 29 0d  01 04 18 df 34 2a 28 31  |*(50+l).....4*(1|
00000240  38 30 2d 6c 29 2c 34 2a  28 32 30 36 2b 6c 29 0d  |80-l),4*(206+l).|
00000250  01 0e 18 df 34 2a 28 31  38 30 2b 6c 29 2c 34 2a  |....4*(180+l),4*|
00000260  28 32 30 36 2b 6c 29 0d  01 18 17 df 34 2a 28 31  |(206+l).....4*(1|
00000270  38 30 2b 6c 29 2c 34 2a  28 35 30 2d 6c 29 0d 01  |80+l),4*(50-l)..|
00000280  22 17 df 34 2a 28 31 33  30 2d 6c 29 2c 34 2a 28  |"..4*(130-l),4*(|
00000290  35 30 2d 6c 29 0d 01 2c  18 df 34 2a 28 31 33 30  |50-l)..,..4*(130|
000002a0  2d 6c 29 2c 34 2a 28 32  30 36 2b 6c 29 0d 01 31  |-l),4*(206+l)..1|
000002b0  11 e6 30 2c 31 31 2b 28  6c 20 81 20 32 29 0d 01  |..0,11+(l . 2)..|
000002c0  36 18 ec 34 2a 28 32 31  30 2d 6c 29 2c 34 2a 28  |6..4*(210-l),4*(|
000002d0  32 30 36 2b 6c 29 0d 01  40 18 df 34 2a 28 32 36  |206+l)..@..4*(26|
000002e0  30 2b 6c 29 2c 34 2a 28  32 30 36 2b 6c 29 0d 01  |0+l),4*(206+l)..|
000002f0  4a 18 df 34 2a 28 32 36  30 2b 6c 29 2c 34 2a 28  |J..4*(260+l),4*(|
00000300  32 30 36 2d 6c 29 0d 01  54 18 df 34 2a 28 32 31  |206-l)..T..4*(21|
00000310  30 2b 6c 29 2c 34 2a 28  32 30 36 2d 6c 29 0d 01  |0+l),4*(206-l)..|
00000320  5e 17 df 34 2a 28 32 31  30 2b 6c 29 2c 34 2a 28  |^..4*(210+l),4*(|
00000330  35 30 2b 6c 29 0d 01 68  17 df 34 2a 28 32 36 30  |50+l)..h..4*(260|
00000340  2d 6c 29 2c 34 2a 28 35  30 2b 6c 29 0d 01 72 18  |-l),4*(50+l)..r.|
00000350  df 34 2a 28 32 36 30 2d  6c 29 2c 34 2a 28 31 32  |.4*(260-l),4*(12|
00000360  38 2b 6c 29 0d 01 7c 18  df 34 2a 28 32 36 30 2b  |8+l)..|..4*(260+|
00000370  6c 29 2c 34 2a 28 31 32  38 2b 6c 29 0d 01 86 17  |l),4*(128+l)....|
00000380  df 34 2a 28 32 36 30 2b  6c 29 2c 34 2a 28 35 30  |.4*(260+l),4*(50|
00000390  2d 6c 29 0d 01 90 17 df  34 2a 28 32 31 30 2d 6c  |-l).....4*(210-l|
000003a0  29 2c 34 2a 28 35 30 2d  6c 29 0d 01 9a 18 df 34  |),4*(50-l).....4|
000003b0  2a 28 32 31 30 2d 6c 29  2c 34 2a 28 32 30 36 2b  |*(210-l),4*(206+|
000003c0  6c 29 0d 01 a4 05 ed 0d  01 ae 12 ef 32 33 2c 31  |l)..........23,1|
000003d0  2c 30 3b 30 3b 30 3b 30  3b 0d 01 b3 35 ef 31 39  |,0;0;0;0;...5.19|
000003e0  2c 31 2c 31 2c 30 2c 30  2c 30 2c 30 2c 31 39 2c  |,1,1,0,0,0,0,19,|
000003f0  36 2c 32 2c 30 2c 30 2c  30 2c 30 2c 31 39 2c 31  |6,2,0,0,0,0,19,1|
00000400  31 2c 34 2c 30 2c 30 2c  30 2c 30 3a fb 36 0d 01  |1,4,0,0,0,0:.6..|
00000410  b8 16 f1 8a 36 2c 32 39  29 22 49 73 73 75 65 20  |....6,29)"Issue |
00000420  22 3b 49 25 0d 01 c2 1b  f1 8a 33 2c 33 31 29 22  |";I%......3,31)"|
00000430  50 72 65 73 73 20 3c 53  50 41 43 45 3e 22 3b 0d  |Press <SPACE>";.|
00000440  01 cc 05 f5 0d 01 d6 18  e3 20 63 6f 6c 3d 32 20  |......... col=2 |
00000450  b8 20 35 3a 6e 74 25 3d  91 2b 31 30 0d 01 e0 3e  |. 5:nt%=.+10...>|
00000460  ef 31 39 2c 63 6f 6c 2b  30 2c 31 2c 30 2c 30 2c  |.19,col+0,1,0,0,|
00000470  30 2c 30 2c 31 39 2c 63  6f 6c 2b 35 2c 32 2c 30  |0,0,19,col+5,2,0|
00000480  2c 30 2c 30 2c 30 2c 31  39 2c 63 6f 6c 2b 31 30  |,0,0,0,19,col+10|
00000490  2c 34 2c 30 2c 30 2c 30  2c 30 0d 01 e5 16 f5 20  |,4,0,0,0,0..... |
000004a0  fd 20 91 3e 6e 74 25 20  84 20 a6 28 2d 39 39 29  |. .>nt% . .(-99)|
000004b0  0d 01 ea 05 ed 0d 01 fe  1d e3 20 63 6f 6c 3d 35  |.......... col=5|
000004c0  20 b8 20 32 20 88 20 2d  31 3a 6e 74 25 3d 91 2b  | . 2 . -1:nt%=.+|
000004d0  31 30 0d 02 12 3e ef 31  39 2c 63 6f 6c 2b 30 2c  |10...>.19,col+0,|
000004e0  30 2c 30 2c 30 2c 30 2c  30 2c 31 39 2c 63 6f 6c  |0,0,0,0,0,19,col|
000004f0  2b 35 2c 30 2c 30 2c 30  2c 30 2c 30 2c 31 39 2c  |+5,0,0,0,0,0,19,|
00000500  63 6f 6c 2b 31 30 2c 30  2c 30 2c 30 2c 30 2c 30  |col+10,0,0,0,0,0|
00000510  0d 02 1c 16 f5 20 fd 20  91 3e 6e 74 25 20 84 20  |..... . .>nt% . |
00000520  a6 28 2d 39 39 29 0d 02  21 05 ed 0d 02 26 0c fd  |.(-99)..!....&..|
00000530  20 a6 28 2d 39 39 29 0d  02 30 4f eb 36 3a f1 3a  | .(-99)..0O.6:.:|
00000540  f1 3a f1 22 49 66 20 74  68 65 72 65 20 61 72 65  |.:."If there are|
00000550  20 61 6e 79 20 70 72 6f  62 6c 65 6d 73 20 77 69  | any problems wi|
00000560  74 68 20 79 6f 75 72 20  45 55 47 20 74 68 65 6e  |th your EUG then|
00000570  20 70 6c 65 61 73 65 20  64 6f 20 63 6f 6e 74 61  | please do conta|
00000580  63 74 20 6d 65 22 0d 02  3a 1b e3 20 58 3d 31 20  |ct me"..:.. X=1 |
00000590  b8 20 31 30 30 30 30 3a  ed 3a d7 22 4d 45 4e 55  |. 10000:.:."MENU|
000005a0  22 0d ff                                          |"..|
000005a3

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 .