Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.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_21.ADF
Filename: SCREEN
Read OK:
File size: 0399 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10 MODE5
   20 COLOUR129:CLS
   30 Ln$=STRING$(20,"~")
   40 PRINTTAB(0,3)Ln$
   50 PRINTTAB(0,21)Ln$;
   60 VDU23,230,126,255,195,195,195,195,255,126
   70 VDU23,231,24,24,24,24,153,90,60,24
   80 VDU 23,1,0;0;0;0;
   90 FOR X%=0 TO 19
  100 FOR Y%=4 TO 20
  110 PRINTTAB(X%,Y%)CHR$231;
  120 PROCpr(X%,Y%)
  130 PRINTTAB(X%,Y%)" ";
  140 NEXT Y%
  150 NEXT X%
  160 PRINTTAB(0,24)"'21 SUMMER SPECIAL'"
  170 PRINTTAB(2,28)"'SPACE FOR MENU'"
  180 REPEAT UNTIL INKEY(-99)
  190 CHAIN"MENU"
  200 END
  210 DEFPROCpr(X%,Y%)
  220 R%=310
  230 L%=20
  240 IF X%>6 THEN R%=320:L%=24
  250 IF X%>12 THEN R%=330:L%=23
  260 RESTORE R%
  270 FOR P=1 TO L%
  280 READ A%,B%
  290 IF A%=X% AND B%=Y% THEN VDU11,8,230:SOUND1,-15,20,1
  300 NEXTP
  310 DATA 2,8,2,9,2,10,2,11,2,12,2,13,2,14,2,15,2,16,2,17,2,18,3,8,3,13,3,18,4,8,4,13,4,18,5,8,5,13,5,18
  320 DATA 8,8,8,9,8,10,8,11,8,12,8,13,8,14,8,15,8,16,8,17,8,18,9,18,10,18,11,8,11,9,11,10,11,11,11,12,11,13,11,14,11,15,11,16,11,17,11,18
  330 DATA 14,8,14,9,14,10,14,11,14,12,14,13,14,14,14,15,14,16,14,17,14,18,15,8,15,18,16,8,16,13,16,18,17,8,17,13,17,14,17,15,17,16,17,17,17,18
  340 ENDPROC

 �5
 �129:�
 Ln$=�20,"~")
( �0,3)Ln$
2 �0,21)Ln$;
<, �23,230,126,255,195,195,195,195,255,126
F% �23,231,24,24,24,24,153,90,60,24
P � 23,1,0;0;0;0;
Z � X%=0 � 19
d � Y%=4 � 20
n �X%,Y%)�231;
x �pr(X%,Y%)
� �X%,Y%)" ";
�	 � Y%
�	 � X%
�! �0,24)"'21 SUMMER SPECIAL'"
� �2,28)"'SPACE FOR MENU'"
� � � �(-99)
� �"MENU"
� �
� ��pr(X%,Y%)
� R%=310
�
 L%=20
� � X%>6 � R%=320:L%=24
� � X%>12 � R%=330:L%=23
	 � R%
 � P=1 � L%
 � A%,B%
", � A%=X% � B%=Y% � �11,8,230:�1,-15,20,1
, �P
6e � 2,8,2,9,2,10,2,11,2,12,2,13,2,14,2,15,2,16,2,17,2,18,3,8,3,13,3,18,4,8,4,13,4,18,5,8,5,13,5,18
@� � 8,8,8,9,8,10,8,11,8,12,8,13,8,14,8,15,8,16,8,17,8,18,9,18,10,18,11,8,11,9,11,10,11,11,11,12,11,13,11,14,11,15,11,16,11,17,11,18
J� � 14,8,14,9,14,10,14,11,14,12,14,13,14,14,14,15,14,16,14,17,14,18,15,8,15,18,16,8,16,13,16,18,17,8,17,13,17,14,17,15,17,16,17,17,17,18
T �
�
00000000  0d 00 0a 07 20 eb 35 0d  00 14 0b 20 fb 31 32 39  |.... .5.... .129|
00000010  3a db 0d 00 1e 11 20 4c  6e 24 3d c4 32 30 2c 22  |:..... Ln$=.20,"|
00000020  7e 22 29 0d 00 28 0e 20  f1 8a 30 2c 33 29 4c 6e  |~")..(. ..0,3)Ln|
00000030  24 0d 00 32 10 20 f1 8a  30 2c 32 31 29 4c 6e 24  |$..2. ..0,21)Ln$|
00000040  3b 0d 00 3c 2c 20 ef 32  33 2c 32 33 30 2c 31 32  |;..<, .23,230,12|
00000050  36 2c 32 35 35 2c 31 39  35 2c 31 39 35 2c 31 39  |6,255,195,195,19|
00000060  35 2c 31 39 35 2c 32 35  35 2c 31 32 36 0d 00 46  |5,195,255,126..F|
00000070  25 20 ef 32 33 2c 32 33  31 2c 32 34 2c 32 34 2c  |% .23,231,24,24,|
00000080  32 34 2c 32 34 2c 31 35  33 2c 39 30 2c 36 30 2c  |24,24,153,90,60,|
00000090  32 34 0d 00 50 14 20 ef  20 32 33 2c 31 2c 30 3b  |24..P. . 23,1,0;|
000000a0  30 3b 30 3b 30 3b 0d 00  5a 10 20 e3 20 58 25 3d  |0;0;0;..Z. . X%=|
000000b0  30 20 b8 20 31 39 0d 00  64 10 20 e3 20 59 25 3d  |0 . 19..d. . Y%=|
000000c0  34 20 b8 20 32 30 0d 00  6e 12 20 f1 8a 58 25 2c  |4 . 20..n. ..X%,|
000000d0  59 25 29 bd 32 33 31 3b  0d 00 78 0f 20 f2 70 72  |Y%).231;..x. .pr|
000000e0  28 58 25 2c 59 25 29 0d  00 82 11 20 f1 8a 58 25  |(X%,Y%).... ..X%|
000000f0  2c 59 25 29 22 20 22 3b  0d 00 8c 09 20 ed 20 59  |,Y%)" ";.... . Y|
00000100  25 0d 00 96 09 20 ed 20  58 25 0d 00 a0 21 20 f1  |%.... . X%...! .|
00000110  8a 30 2c 32 34 29 22 27  32 31 20 53 55 4d 4d 45  |.0,24)"'21 SUMME|
00000120  52 20 53 50 45 43 49 41  4c 27 22 0d 00 aa 1e 20  |R SPECIAL'".... |
00000130  f1 8a 32 2c 32 38 29 22  27 53 50 41 43 45 20 46  |..2,28)"'SPACE F|
00000140  4f 52 20 4d 45 4e 55 27  22 0d 00 b4 0f 20 f5 20  |OR MENU'".... . |
00000150  fd 20 a6 28 2d 39 39 29  0d 00 be 0c 20 d7 22 4d  |. .(-99).... ."M|
00000160  45 4e 55 22 0d 00 c8 06  20 e0 0d 00 d2 10 20 dd  |ENU".... ..... .|
00000170  f2 70 72 28 58 25 2c 59  25 29 0d 00 dc 0b 20 52  |.pr(X%,Y%).... R|
00000180  25 3d 33 31 30 0d 00 e6  0a 20 4c 25 3d 32 30 0d  |%=310.... L%=20.|
00000190  00 f0 1a 20 e7 20 58 25  3e 36 20 8c 20 52 25 3d  |... . X%>6 . R%=|
000001a0  33 32 30 3a 4c 25 3d 32  34 0d 00 fa 1b 20 e7 20  |320:L%=24.... . |
000001b0  58 25 3e 31 32 20 8c 20  52 25 3d 33 33 30 3a 4c  |X%>12 . R%=330:L|
000001c0  25 3d 32 33 0d 01 04 09  20 f7 20 52 25 0d 01 0e  |%=23.... . R%...|
000001d0  0f 20 e3 20 50 3d 31 20  b8 20 4c 25 0d 01 18 0c  |. . P=1 . L%....|
000001e0  20 f3 20 41 25 2c 42 25  0d 01 22 2c 20 e7 20 41  | . A%,B%..", . A|
000001f0  25 3d 58 25 20 80 20 42  25 3d 59 25 20 8c 20 ef  |%=X% . B%=Y% . .|
00000200  31 31 2c 38 2c 32 33 30  3a d4 31 2c 2d 31 35 2c  |11,8,230:.1,-15,|
00000210  32 30 2c 31 0d 01 2c 07  20 ed 50 0d 01 36 65 20  |20,1..,. .P..6e |
00000220  dc 20 32 2c 38 2c 32 2c  39 2c 32 2c 31 30 2c 32  |. 2,8,2,9,2,10,2|
00000230  2c 31 31 2c 32 2c 31 32  2c 32 2c 31 33 2c 32 2c  |,11,2,12,2,13,2,|
00000240  31 34 2c 32 2c 31 35 2c  32 2c 31 36 2c 32 2c 31  |14,2,15,2,16,2,1|
00000250  37 2c 32 2c 31 38 2c 33  2c 38 2c 33 2c 31 33 2c  |7,2,18,3,8,3,13,|
00000260  33 2c 31 38 2c 34 2c 38  2c 34 2c 31 33 2c 34 2c  |3,18,4,8,4,13,4,|
00000270  31 38 2c 35 2c 38 2c 35  2c 31 33 2c 35 2c 31 38  |18,5,8,5,13,5,18|
00000280  0d 01 40 86 20 dc 20 38  2c 38 2c 38 2c 39 2c 38  |..@. . 8,8,8,9,8|
00000290  2c 31 30 2c 38 2c 31 31  2c 38 2c 31 32 2c 38 2c  |,10,8,11,8,12,8,|
000002a0  31 33 2c 38 2c 31 34 2c  38 2c 31 35 2c 38 2c 31  |13,8,14,8,15,8,1|
000002b0  36 2c 38 2c 31 37 2c 38  2c 31 38 2c 39 2c 31 38  |6,8,17,8,18,9,18|
000002c0  2c 31 30 2c 31 38 2c 31  31 2c 38 2c 31 31 2c 39  |,10,18,11,8,11,9|
000002d0  2c 31 31 2c 31 30 2c 31  31 2c 31 31 2c 31 31 2c  |,11,10,11,11,11,|
000002e0  31 32 2c 31 31 2c 31 33  2c 31 31 2c 31 34 2c 31  |12,11,13,11,14,1|
000002f0  31 2c 31 35 2c 31 31 2c  31 36 2c 31 31 2c 31 37  |1,15,11,16,11,17|
00000300  2c 31 31 2c 31 38 0d 01  4a 8b 20 dc 20 31 34 2c  |,11,18..J. . 14,|
00000310  38 2c 31 34 2c 39 2c 31  34 2c 31 30 2c 31 34 2c  |8,14,9,14,10,14,|
00000320  31 31 2c 31 34 2c 31 32  2c 31 34 2c 31 33 2c 31  |11,14,12,14,13,1|
00000330  34 2c 31 34 2c 31 34 2c  31 35 2c 31 34 2c 31 36  |4,14,14,15,14,16|
00000340  2c 31 34 2c 31 37 2c 31  34 2c 31 38 2c 31 35 2c  |,14,17,14,18,15,|
00000350  38 2c 31 35 2c 31 38 2c  31 36 2c 38 2c 31 36 2c  |8,15,18,16,8,16,|
00000360  31 33 2c 31 36 2c 31 38  2c 31 37 2c 38 2c 31 37  |13,16,18,17,8,17|
00000370  2c 31 33 2c 31 37 2c 31  34 2c 31 37 2c 31 35 2c  |,13,17,14,17,15,|
00000380  31 37 2c 31 36 2c 31 37  2c 31 37 2c 31 37 2c 31  |17,16,17,17,17,1|
00000390  38 0d 01 54 06 20 e1 0d  ff                       |8..T. ...|
00000399
SCREEN.m0
SCREEN.m1
SCREEN.m2
SCREEN.m4
SCREEN.m5