Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_56.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_56.ADF |
| Filename: | SCREEN |
| Read OK: | ✔ |
| File size: | 0656 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF802B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » eug » eug_3_5_discs_Eug-56_A-EUG56.adf » SCREEN
- AEW website » eug » eug_5_25_discs_Eug-56_D-EUG56.dsd » SCREEN
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_56.ADF » SCREEN
File contents
10*FX200 1
20*FX220 32
30IFINKEY(-256)<>1 THEN B%=1 ELSE B%=0
40
50REM *** EUG 56 Loader ***
60REM
70REM Also suitable as a loader for
80REM tape-based EUG programs
90REM
100
110MODE2:VDU23;8202;0;0;0;:FORT=1TO500:NEXT:ON ERROR OSCLI("FX 220 27"):MODE6:VDU23;8202;0;0;0;:CHAIN"$.MENU"
120x=2
130th=0+RND(7):*FX200 0
140FORy=6TO25 STEP 2
150 GCOL0,th
160 PROCl(1,9,1,14,14,0)
170 PROCl(9,7,-1,14,12,1)
180 PROCl(7,3,-1,16,16,0)
190 PROCl(3,0,-1,16,13,2)
200 PROCl(0,0,-1,13,11,0)
210 PROCl(0,3,1,11,8,3)
220 PROCl(4,7,1,8,8,0)
230 PROCl(8,9,1,9,10,4)
240 x=x+3
250 PROCl(1,3,1,16,14,3)
260 PROCl(3,2,-1,14,13,2)
270 PROCl(2,1,-1,13,13,0)
280 PROCl(1,0,-1,13,12,2)
290 PROCl(0,0,-1,12,10,0)
300 PROCl(0,2,1,10,8,3)
310 PROCl(2,5,1,8,8,0)
320 PROCl(5,8,1,8,11,4)
330 PROCl(8,8,1,11,16,0)
340 PROCl(8,6,-1,16,16,0)
350 PROCl(6,8,1,16,14,3)
360 PROCl(8,8,-1,16,8,0)
370 x=x+3
380 PROCl(2,2,1,14,16,0)
390 PROCl(2,0,-1,16,14,2)
400 PROCl(0,10,1,14,14,0)
410 PROCl(10,8,-1,14,14,0)
420 PROCl(8,7,-1,14,13,2)
430 PROCl(7,6,-1,13,13,0)
440 PROCl(6,3,-1,13,10,2)
450 PROCl(3,2,-1,10,10,0)
460 PROCl(2,2,-1,10,9,0)
470 PROCl(2,5,1,9,6,3)
480 PROCl(5,6,1,6,6,0)
490 PROCl(6,7,1,6,5,3)
500 PROCl(7,8,1,5,5,0)
510 PROCl(8,9,1,5,4,3)
520 PROCl(9,6,-1,4,1,2)
530 PROCl(6,1,-1,1,1,0)
540 PROCl(1,3,1,1,3,4)
550 x=x-3
560 REPEAT
570 nc=0+(RND(7))
580 UNTILnc<>th:th=nc
590NEXTy
600COLOUR2:PRINTTAB(5,31)"HIT SPACE!";
610REPEATUNTILGET=32
620MODE6:VDU23;8202;0;0;0;:CHAIN"$.MENU"
630END
640:
650DEFPROCm(a,b)
660MOVE(x*32)+a*8,956-(y*32)+b*4
670IF B%=1 DRAW(x*32)+8+a*8,956-(y*32)+b*4 ELSE DRAW(x*32)+a*8,956-(y*32)+b*4
680ENDPROC
690:
700DEFPROCl(sst,sed,p,tst,ted,dir)
710IFsst=sed THEN 770
720t=tst
730FOR s=sst TO sed STEP p
740 PROCm(s,t)
750 IFtst<>ted PROCdiag(dir)
760NEXTs:ENDPROC
770s=sst:FORt=tst TO ted STEP p
780 PROCm(s,t)
790NEXTt
800ENDPROC
810:
820DEFPROCdiag(a)
830IFa=1 OR a=4 t=t+1 ELSE t=t-1
840ENDPROC
*FX200 1
*FX220 32
�(-256)<>1 � B%=1 � B%=0
(
2 � *** EUG 56 Loader ***
<�
F#� Also suitable as a loader for
P � tape-based EUG programs
Z�
d
nQ�2:�23;8202;0;0;0;:�T=1�500:�:� � �("FX 220 27"):�6:�23;8202;0;0;0;:�"$.MENU"
xx=2
�th=0+�(7):*FX200 0
��y=6�25 � 2
�
�0,th
� �l(1,9,1,14,14,0)
� �l(9,7,-1,14,12,1)
� �l(7,3,-1,16,16,0)
� �l(3,0,-1,16,13,2)
� �l(0,0,-1,13,11,0)
� �l(0,3,1,11,8,3)
� �l(4,7,1,8,8,0)
� �l(8,9,1,9,10,4)
�
x=x+3
� �l(1,3,1,16,14,3)
�l(3,2,-1,14,13,2)
�l(2,1,-1,13,13,0)
�l(1,0,-1,13,12,2)
" �l(0,0,-1,12,10,0)
, �l(0,2,1,10,8,3)
6 �l(2,5,1,8,8,0)
@ �l(5,8,1,8,11,4)
J �l(8,8,1,11,16,0)
T �l(8,6,-1,16,16,0)
^ �l(6,8,1,16,14,3)
h �l(8,8,-1,16,8,0)
r
x=x+3
| �l(2,2,1,14,16,0)
� �l(2,0,-1,16,14,2)
� �l(0,10,1,14,14,0)
� �l(10,8,-1,14,14,0)
� �l(8,7,-1,14,13,2)
� �l(7,6,-1,13,13,0)
� �l(6,3,-1,13,10,2)
� �l(3,2,-1,10,10,0)
� �l(2,2,-1,10,9,0)
� �l(2,5,1,9,6,3)
� �l(5,6,1,6,6,0)
� �l(6,7,1,6,5,3)
� �l(7,8,1,5,5,0)
� �l(8,9,1,5,4,3)
�l(9,6,-1,4,1,2)
�l(6,1,-1,1,1,0)
�l(1,3,1,1,3,4)
&
x=x-3
0 �
: nc=0+(�(7))
D �nc<>th:th=nc
N�y
X�2:�5,31)"HIT SPACE!";
b
���=32
l �6:�23;8202;0;0;0;:�"$.MENU"
v�
�:
� ��m(a,b)
� �(x*32)+a*8,956-(y*32)+b*4
�D� B%=1 �(x*32)+8+a*8,956-(y*32)+b*4 � �(x*32)+a*8,956-(y*32)+b*4
��
�:
� ��l(sst,sed,p,tst,ted,dir)
��sst=sed � �TBC
� t=tst
�� s=sst � sed � p
�
�m(s,t)
� �tst<>ted �diag(dir)
��s:�
s=sst:�t=tst � ted � p
�m(s,t)
�t
�
*:
4
��diag(a)
> �a=1 � a=4 t=t+1 � t=t-1
H�
� 00000000 0d 00 0a 0c 2a 46 58 32 30 30 20 31 0d 00 14 0d |....*FX200 1....|
00000010 2a 46 58 32 32 30 20 33 32 0d 00 1e 1d e7 a6 28 |*FX220 32......(|
00000020 2d 32 35 36 29 3c 3e 31 20 8c 20 42 25 3d 31 20 |-256)<>1 . B%=1 |
00000030 8b 20 42 25 3d 30 0d 00 28 05 20 0d 00 32 1f f4 |. B%=0..(. ..2..|
00000040 20 20 20 20 20 2a 2a 2a 20 45 55 47 20 35 36 20 | *** EUG 56 |
00000050 4c 6f 61 64 65 72 20 2a 2a 2a 0d 00 3c 05 f4 0d |Loader ***..<...|
00000060 00 46 23 f4 20 41 6c 73 6f 20 73 75 69 74 61 62 |.F#. Also suitab|
00000070 6c 65 20 61 73 20 61 20 6c 6f 61 64 65 72 20 66 |le as a loader f|
00000080 6f 72 0d 00 50 20 f4 20 20 20 20 74 61 70 65 2d |or..P . tape-|
00000090 62 61 73 65 64 20 45 55 47 20 70 72 6f 67 72 61 |based EUG progra|
000000a0 6d 73 0d 00 5a 05 f4 0d 00 64 05 20 0d 00 6e 51 |ms..Z....d. ..nQ|
000000b0 eb 32 3a ef 32 33 3b 38 32 30 32 3b 30 3b 30 3b |.2:.23;8202;0;0;|
000000c0 30 3b 3a e3 54 3d 31 b8 35 30 30 3a ed 3a ee 20 |0;:.T=1.500:.:. |
000000d0 85 20 ff 28 22 46 58 20 32 32 30 20 32 37 22 29 |. .("FX 220 27")|
000000e0 3a eb 36 3a ef 32 33 3b 38 32 30 32 3b 30 3b 30 |:.6:.23;8202;0;0|
000000f0 3b 30 3b 3a d7 22 24 2e 4d 45 4e 55 22 0d 00 78 |;0;:."$.MENU"..x|
00000100 07 78 3d 32 0d 00 82 16 74 68 3d 30 2b b3 28 37 |.x=2....th=0+.(7|
00000110 29 3a 2a 46 58 32 30 30 20 30 0d 00 8c 0f e3 79 |):*FX200 0.....y|
00000120 3d 36 b8 32 35 20 88 20 32 0d 00 96 0a 20 e6 30 |=6.25 . 2.... .0|
00000130 2c 74 68 0d 00 a0 16 20 f2 6c 28 31 2c 39 2c 31 |,th.... .l(1,9,1|
00000140 2c 31 34 2c 31 34 2c 30 29 0d 00 aa 17 20 f2 6c |,14,14,0).... .l|
00000150 28 39 2c 37 2c 2d 31 2c 31 34 2c 31 32 2c 31 29 |(9,7,-1,14,12,1)|
00000160 0d 00 b4 17 20 f2 6c 28 37 2c 33 2c 2d 31 2c 31 |.... .l(7,3,-1,1|
00000170 36 2c 31 36 2c 30 29 0d 00 be 17 20 f2 6c 28 33 |6,16,0).... .l(3|
00000180 2c 30 2c 2d 31 2c 31 36 2c 31 33 2c 32 29 0d 00 |,0,-1,16,13,2)..|
00000190 c8 17 20 f2 6c 28 30 2c 30 2c 2d 31 2c 31 33 2c |.. .l(0,0,-1,13,|
000001a0 31 31 2c 30 29 0d 00 d2 15 20 f2 6c 28 30 2c 33 |11,0).... .l(0,3|
000001b0 2c 31 2c 31 31 2c 38 2c 33 29 0d 00 dc 14 20 f2 |,1,11,8,3).... .|
000001c0 6c 28 34 2c 37 2c 31 2c 38 2c 38 2c 30 29 0d 00 |l(4,7,1,8,8,0)..|
000001d0 e6 15 20 f2 6c 28 38 2c 39 2c 31 2c 39 2c 31 30 |.. .l(8,9,1,9,10|
000001e0 2c 34 29 0d 00 f0 0a 20 78 3d 78 2b 33 0d 00 fa |,4).... x=x+3...|
000001f0 16 20 f2 6c 28 31 2c 33 2c 31 2c 31 36 2c 31 34 |. .l(1,3,1,16,14|
00000200 2c 33 29 0d 01 04 17 20 f2 6c 28 33 2c 32 2c 2d |,3).... .l(3,2,-|
00000210 31 2c 31 34 2c 31 33 2c 32 29 0d 01 0e 17 20 f2 |1,14,13,2).... .|
00000220 6c 28 32 2c 31 2c 2d 31 2c 31 33 2c 31 33 2c 30 |l(2,1,-1,13,13,0|
00000230 29 0d 01 18 17 20 f2 6c 28 31 2c 30 2c 2d 31 2c |).... .l(1,0,-1,|
00000240 31 33 2c 31 32 2c 32 29 0d 01 22 17 20 f2 6c 28 |13,12,2)..". .l(|
00000250 30 2c 30 2c 2d 31 2c 31 32 2c 31 30 2c 30 29 0d |0,0,-1,12,10,0).|
00000260 01 2c 15 20 f2 6c 28 30 2c 32 2c 31 2c 31 30 2c |.,. .l(0,2,1,10,|
00000270 38 2c 33 29 0d 01 36 14 20 f2 6c 28 32 2c 35 2c |8,3)..6. .l(2,5,|
00000280 31 2c 38 2c 38 2c 30 29 0d 01 40 15 20 f2 6c 28 |1,8,8,0)..@. .l(|
00000290 35 2c 38 2c 31 2c 38 2c 31 31 2c 34 29 0d 01 4a |5,8,1,8,11,4)..J|
000002a0 16 20 f2 6c 28 38 2c 38 2c 31 2c 31 31 2c 31 36 |. .l(8,8,1,11,16|
000002b0 2c 30 29 0d 01 54 17 20 f2 6c 28 38 2c 36 2c 2d |,0)..T. .l(8,6,-|
000002c0 31 2c 31 36 2c 31 36 2c 30 29 0d 01 5e 16 20 f2 |1,16,16,0)..^. .|
000002d0 6c 28 36 2c 38 2c 31 2c 31 36 2c 31 34 2c 33 29 |l(6,8,1,16,14,3)|
000002e0 0d 01 68 16 20 f2 6c 28 38 2c 38 2c 2d 31 2c 31 |..h. .l(8,8,-1,1|
000002f0 36 2c 38 2c 30 29 0d 01 72 0a 20 78 3d 78 2b 33 |6,8,0)..r. x=x+3|
00000300 0d 01 7c 16 20 f2 6c 28 32 2c 32 2c 31 2c 31 34 |..|. .l(2,2,1,14|
00000310 2c 31 36 2c 30 29 0d 01 86 17 20 f2 6c 28 32 2c |,16,0).... .l(2,|
00000320 30 2c 2d 31 2c 31 36 2c 31 34 2c 32 29 0d 01 90 |0,-1,16,14,2)...|
00000330 17 20 f2 6c 28 30 2c 31 30 2c 31 2c 31 34 2c 31 |. .l(0,10,1,14,1|
00000340 34 2c 30 29 0d 01 9a 18 20 f2 6c 28 31 30 2c 38 |4,0).... .l(10,8|
00000350 2c 2d 31 2c 31 34 2c 31 34 2c 30 29 0d 01 a4 17 |,-1,14,14,0)....|
00000360 20 f2 6c 28 38 2c 37 2c 2d 31 2c 31 34 2c 31 33 | .l(8,7,-1,14,13|
00000370 2c 32 29 0d 01 ae 17 20 f2 6c 28 37 2c 36 2c 2d |,2).... .l(7,6,-|
00000380 31 2c 31 33 2c 31 33 2c 30 29 0d 01 b8 17 20 f2 |1,13,13,0).... .|
00000390 6c 28 36 2c 33 2c 2d 31 2c 31 33 2c 31 30 2c 32 |l(6,3,-1,13,10,2|
000003a0 29 0d 01 c2 17 20 f2 6c 28 33 2c 32 2c 2d 31 2c |).... .l(3,2,-1,|
000003b0 31 30 2c 31 30 2c 30 29 0d 01 cc 16 20 f2 6c 28 |10,10,0).... .l(|
000003c0 32 2c 32 2c 2d 31 2c 31 30 2c 39 2c 30 29 0d 01 |2,2,-1,10,9,0)..|
000003d0 d6 14 20 f2 6c 28 32 2c 35 2c 31 2c 39 2c 36 2c |.. .l(2,5,1,9,6,|
000003e0 33 29 0d 01 e0 14 20 f2 6c 28 35 2c 36 2c 31 2c |3).... .l(5,6,1,|
000003f0 36 2c 36 2c 30 29 0d 01 ea 14 20 f2 6c 28 36 2c |6,6,0).... .l(6,|
00000400 37 2c 31 2c 36 2c 35 2c 33 29 0d 01 f4 14 20 f2 |7,1,6,5,3).... .|
00000410 6c 28 37 2c 38 2c 31 2c 35 2c 35 2c 30 29 0d 01 |l(7,8,1,5,5,0)..|
00000420 fe 14 20 f2 6c 28 38 2c 39 2c 31 2c 35 2c 34 2c |.. .l(8,9,1,5,4,|
00000430 33 29 0d 02 08 15 20 f2 6c 28 39 2c 36 2c 2d 31 |3).... .l(9,6,-1|
00000440 2c 34 2c 31 2c 32 29 0d 02 12 15 20 f2 6c 28 36 |,4,1,2).... .l(6|
00000450 2c 31 2c 2d 31 2c 31 2c 31 2c 30 29 0d 02 1c 14 |,1,-1,1,1,0)....|
00000460 20 f2 6c 28 31 2c 33 2c 31 2c 31 2c 33 2c 34 29 | .l(1,3,1,1,3,4)|
00000470 0d 02 26 0a 20 78 3d 78 2d 33 0d 02 30 06 20 f5 |..&. x=x-3..0. .|
00000480 0d 02 3a 12 20 20 20 6e 63 3d 30 2b 28 b3 28 37 |..:. nc=0+(.(7|
00000490 29 29 0d 02 44 12 20 fd 6e 63 3c 3e 74 68 3a 74 |))..D. .nc<>th:t|
000004a0 68 3d 6e 63 0d 02 4e 06 ed 79 0d 02 58 1b fb 32 |h=nc..N..y..X..2|
000004b0 3a f1 8a 35 2c 33 31 29 22 48 49 54 20 53 50 41 |:..5,31)"HIT SPA|
000004c0 43 45 21 22 3b 0d 02 62 0a f5 fd a5 3d 33 32 0d |CE!";..b....=32.|
000004d0 02 6c 20 eb 36 3a ef 32 33 3b 38 32 30 32 3b 30 |.l .6:.23;8202;0|
000004e0 3b 30 3b 30 3b 3a d7 22 24 2e 4d 45 4e 55 22 0d |;0;0;:."$.MENU".|
000004f0 02 76 05 e0 0d 02 80 05 3a 0d 02 8a 0c dd f2 6d |.v......:......m|
00000500 28 61 2c 62 29 0d 02 94 1e ec 28 78 2a 33 32 29 |(a,b).....(x*32)|
00000510 2b 61 2a 38 2c 39 35 36 2d 28 79 2a 33 32 29 2b |+a*8,956-(y*32)+|
00000520 62 2a 34 0d 02 9e 44 e7 20 42 25 3d 31 20 df 28 |b*4...D. B%=1 .(|
00000530 78 2a 33 32 29 2b 38 2b 61 2a 38 2c 39 35 36 2d |x*32)+8+a*8,956-|
00000540 28 79 2a 33 32 29 2b 62 2a 34 20 8b 20 df 28 78 |(y*32)+b*4 . .(x|
00000550 2a 33 32 29 2b 61 2a 38 2c 39 35 36 2d 28 79 2a |*32)+a*8,956-(y*|
00000560 33 32 29 2b 62 2a 34 0d 02 a8 05 e1 0d 02 b2 05 |32)+b*4.........|
00000570 3a 0d 02 bc 1e dd f2 6c 28 73 73 74 2c 73 65 64 |:......l(sst,sed|
00000580 2c 70 2c 74 73 74 2c 74 65 64 2c 64 69 72 29 0d |,p,tst,ted,dir).|
00000590 02 c6 13 e7 73 73 74 3d 73 65 64 20 8c 20 8d 54 |....sst=sed . .T|
000005a0 42 43 0d 02 d0 09 74 3d 74 73 74 0d 02 da 15 e3 |BC....t=tst.....|
000005b0 20 73 3d 73 73 74 20 b8 20 73 65 64 20 88 20 70 | s=sst . sed . p|
000005c0 0d 02 e4 0d 20 20 f2 6d 28 73 2c 74 29 0d 02 ee |.... .m(s,t)...|
000005d0 1a 20 20 e7 74 73 74 3c 3e 74 65 64 20 f2 64 69 |. .tst<>ted .di|
000005e0 61 67 28 64 69 72 29 0d 02 f8 08 ed 73 3a e1 0d |ag(dir).....s:..|
000005f0 03 02 1a 73 3d 73 73 74 3a e3 74 3d 74 73 74 20 |...s=sst:.t=tst |
00000600 b8 20 74 65 64 20 88 20 70 0d 03 0c 0d 20 20 f2 |. ted . p.... .|
00000610 6d 28 73 2c 74 29 0d 03 16 06 ed 74 0d 03 20 05 |m(s,t).....t.. .|
00000620 e1 0d 03 2a 05 3a 0d 03 34 0d dd f2 64 69 61 67 |...*.:..4...diag|
00000630 28 61 29 0d 03 3e 1c e7 61 3d 31 20 84 20 61 3d |(a)..>..a=1 . a=|
00000640 34 20 74 3d 74 2b 31 20 8b 20 74 3d 74 2d 31 0d |4 t=t+1 . t=t-1.|
00000650 03 48 05 e1 0d ff |.H....|
00000656 
SCREEN.m0
SCREEN.m1
SCREEN.m2
SCREEN.m4
SCREEN.m5
.