Home » Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/EUGTitle

dcfprogs/Graphics/EUGTitle

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 hard disk » misc » misc2
Filename: dcfprogs/Graphics/EUGTitle
Read OK:
File size: 03A4 bytes
Load address: 0000
Exec address: 0000
File contents
   10 REM EUG Title Screen
   20 :
   30 I%=20:REM Issue number
   40 PROCass
   50 MODE 1
   60 PROCdisp
   70 ST=0
   80 C=0
   90 REPEAT
  100 ST=1-ST
  110 C=(C MOD 5)+2
  120 VDU 19,ST+2,C,0,0,0,0
  130 VDU 19,ST,C-2,0,0,0,0
  140 CALL &C00
  150 UNTIL INKEY(-99)
  160 MODE 6
  170 *FX 15,0
  180 END
  190 :
  200 DEFPROCass
  210 FORX=0TO2STEP2
  220 P%=&C00
  230 [OPTX:LDY#&00:STY&70:.lb LDX#&30:STX&71:.l  LDA(&70),Y:EOR#&0F:STA(&70),Y:INY:INY:INY:INY:INY:INY:INY:INY:CPY#&08:BCSl
  240 INC&71:LDX&71:CPX#&80:BNEl:INY:CPY#&08:BNElb:RTS:]
  250 NEXT
  260 ENDPROC
  270 :
  280 DEFPROCdisp
  290 VDU 19,0,0,0,0,0,0
  300 VDU 19,1,7,0,0,0,0
  310 VDU 19,2,7,0,0,0,0
  320 VDU 19,3,7,0,0,0,0
  330 VDU 23,1,0;0;0;0;
  340 VDU 23,255,255,255,255,255,255,255,255,255
  350 COLOUR2
  360 PRINTTAB(16,25);"Issue ";I%;TAB(8,30);"Press SPACE to continue"
  370 FOR Y=5 TO 13 STEP 2
  380 READ X
  390 IF X=-1 THEN NEXT:ENDPROC
  400 PRINTTAB(X*2,Y);CHR$(255);TAB(X*2,Y+1);CHR$(255);TAB(X*2+1,Y);CHR$(255);TAB(X*2+1,Y+1);CHR$(255);
  410 GOTO 380
  500 DATA 0,1,2,4,6,8,9,10,-1
  510 DATA 0,4,6,8,-1
  520 DATA 0,1,4,6,8,-1
  530 DATA 0,4,6,8,10,-1
  540 DATA 0,1,2,4,5,6,8,9,10,-1

 � EUG Title Screen
 :
 I%=20:� Issue number
(	 �ass
2 � 1
<
 �disp
F	 ST=0
P C=0
Z �
d ST=1-ST
n C=(C � 5)+2
x � 19,ST+2,C,0,0,0,0
� � 19,ST,C-2,0,0,0,0
� � &C00
�
 � �(-99)
� � 6
�
 *FX 15,0
� �
� :
�
 ��ass
�
 �X=0�2�2
� P%=&C00
�y [OPTX:LDY#&00:STY&70:.lb LDX#&30:STX&71:.l  LDA(&70),Y:�#&0F:STA(&70),Y:INY:INY:INY:INY:INY:INY:INY:INY:CPY#&08:BCSl
�7 INC&71:LDX&71:CPX#&80:BNEl:INY:CPY#&08:BNElb:RTS:]
� �
 �
 :
 ��disp
" � 19,0,0,0,0,0,0
, � 19,1,7,0,0,0,0
6 � 19,2,7,0,0,0,0
@ � 19,3,7,0,0,0,0
J � 23,1,0;0;0;0;
T- � 23,255,255,255,255,255,255,255,255,255
^ �2
h: �16,25);"Issue ";I%;�8,30);"Press SPACE to continue"
r � Y=5 � 13 � 2
| � X
� � X=-1 � �:�
�J �X*2,Y);�(255);�X*2,Y+1);�(255);�X*2+1,Y);�(255);�X*2+1,Y+1);�(255);
� � �D|A
� � 0,1,2,4,6,8,9,10,-1
� � 0,4,6,8,-1
 � 0,1,4,6,8,-1
 � 0,4,6,8,10,-1
 � 0,1,2,4,5,6,8,9,10,-1
�
00000000  0d 00 0a 17 20 f4 20 45  55 47 20 54 69 74 6c 65  |.... . EUG Title|
00000010  20 53 63 72 65 65 6e 0d  00 14 06 20 3a 0d 00 1e  | Screen.... :...|
00000020  19 20 49 25 3d 32 30 3a  f4 20 49 73 73 75 65 20  |. I%=20:. Issue |
00000030  6e 75 6d 62 65 72 0d 00  28 09 20 f2 61 73 73 0d  |number..(. .ass.|
00000040  00 32 08 20 eb 20 31 0d  00 3c 0a 20 f2 64 69 73  |.2. . 1..<. .dis|
00000050  70 0d 00 46 09 20 53 54  3d 30 0d 00 50 08 20 43  |p..F. ST=0..P. C|
00000060  3d 30 0d 00 5a 06 20 f5  0d 00 64 0c 20 53 54 3d  |=0..Z. ...d. ST=|
00000070  31 2d 53 54 0d 00 6e 10  20 43 3d 28 43 20 83 20  |1-ST..n. C=(C . |
00000080  35 29 2b 32 0d 00 78 18  20 ef 20 31 39 2c 53 54  |5)+2..x. . 19,ST|
00000090  2b 32 2c 43 2c 30 2c 30  2c 30 2c 30 0d 00 82 18  |+2,C,0,0,0,0....|
000000a0  20 ef 20 31 39 2c 53 54  2c 43 2d 32 2c 30 2c 30  | . 19,ST,C-2,0,0|
000000b0  2c 30 2c 30 0d 00 8c 0b  20 d6 20 26 43 30 30 0d  |,0,0.... . &C00.|
000000c0  00 96 0d 20 fd 20 a6 28  2d 39 39 29 0d 00 a0 08  |... . .(-99)....|
000000d0  20 eb 20 36 0d 00 aa 0d  20 2a 46 58 20 31 35 2c  | . 6.... *FX 15,|
000000e0  30 0d 00 b4 06 20 e0 0d  00 be 06 20 3a 0d 00 c8  |0.... ..... :...|
000000f0  0a 20 dd f2 61 73 73 0d  00 d2 0d 20 e3 58 3d 30  |. ..ass.... .X=0|
00000100  b8 32 88 32 0d 00 dc 0c  20 50 25 3d 26 43 30 30  |.2.2.... P%=&C00|
00000110  0d 00 e6 79 20 5b 4f 50  54 58 3a 4c 44 59 23 26  |...y [OPTX:LDY#&|
00000120  30 30 3a 53 54 59 26 37  30 3a 2e 6c 62 20 4c 44  |00:STY&70:.lb LD|
00000130  58 23 26 33 30 3a 53 54  58 26 37 31 3a 2e 6c 20  |X#&30:STX&71:.l |
00000140  20 4c 44 41 28 26 37 30  29 2c 59 3a 82 23 26 30  | LDA(&70),Y:.#&0|
00000150  46 3a 53 54 41 28 26 37  30 29 2c 59 3a 49 4e 59  |F:STA(&70),Y:INY|
00000160  3a 49 4e 59 3a 49 4e 59  3a 49 4e 59 3a 49 4e 59  |:INY:INY:INY:INY|
00000170  3a 49 4e 59 3a 49 4e 59  3a 49 4e 59 3a 43 50 59  |:INY:INY:INY:CPY|
00000180  23 26 30 38 3a 42 43 53  6c 0d 00 f0 37 20 49 4e  |#&08:BCSl...7 IN|
00000190  43 26 37 31 3a 4c 44 58  26 37 31 3a 43 50 58 23  |C&71:LDX&71:CPX#|
000001a0  26 38 30 3a 42 4e 45 6c  3a 49 4e 59 3a 43 50 59  |&80:BNEl:INY:CPY|
000001b0  23 26 30 38 3a 42 4e 45  6c 62 3a 52 54 53 3a 5d  |#&08:BNElb:RTS:]|
000001c0  0d 00 fa 06 20 ed 0d 01  04 06 20 e1 0d 01 0e 06  |.... ..... .....|
000001d0  20 3a 0d 01 18 0b 20 dd  f2 64 69 73 70 0d 01 22  | :.... ..disp.."|
000001e0  15 20 ef 20 31 39 2c 30  2c 30 2c 30 2c 30 2c 30  |. . 19,0,0,0,0,0|
000001f0  2c 30 0d 01 2c 15 20 ef  20 31 39 2c 31 2c 37 2c  |,0..,. . 19,1,7,|
00000200  30 2c 30 2c 30 2c 30 0d  01 36 15 20 ef 20 31 39  |0,0,0,0..6. . 19|
00000210  2c 32 2c 37 2c 30 2c 30  2c 30 2c 30 0d 01 40 15  |,2,7,0,0,0,0..@.|
00000220  20 ef 20 31 39 2c 33 2c  37 2c 30 2c 30 2c 30 2c  | . 19,3,7,0,0,0,|
00000230  30 0d 01 4a 14 20 ef 20  32 33 2c 31 2c 30 3b 30  |0..J. . 23,1,0;0|
00000240  3b 30 3b 30 3b 0d 01 54  2d 20 ef 20 32 33 2c 32  |;0;0;..T- . 23,2|
00000250  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
*
00000270  35 35 0d 01 5e 07 20 fb  32 0d 01 68 3a 20 f1 8a  |55..^. .2..h: ..|
00000280  31 36 2c 32 35 29 3b 22  49 73 73 75 65 20 22 3b  |16,25);"Issue ";|
00000290  49 25 3b 8a 38 2c 33 30  29 3b 22 50 72 65 73 73  |I%;.8,30);"Press|
000002a0  20 53 50 41 43 45 20 74  6f 20 63 6f 6e 74 69 6e  | SPACE to contin|
000002b0  75 65 22 0d 01 72 13 20  e3 20 59 3d 35 20 b8 20  |ue"..r. . Y=5 . |
000002c0  31 33 20 88 20 32 0d 01  7c 08 20 f3 20 58 0d 01  |13 . 2..|. . X..|
000002d0  86 11 20 e7 20 58 3d 2d  31 20 8c 20 ed 3a e1 0d  |.. . X=-1 . .:..|
000002e0  01 90 4a 20 f1 8a 58 2a  32 2c 59 29 3b bd 28 32  |..J ..X*2,Y);.(2|
000002f0  35 35 29 3b 8a 58 2a 32  2c 59 2b 31 29 3b bd 28  |55);.X*2,Y+1);.(|
00000300  32 35 35 29 3b 8a 58 2a  32 2b 31 2c 59 29 3b bd  |255);.X*2+1,Y);.|
00000310  28 32 35 35 29 3b 8a 58  2a 32 2b 31 2c 59 2b 31  |(255);.X*2+1,Y+1|
00000320  29 3b bd 28 32 35 35 29  3b 0d 01 9a 0b 20 e5 20  |);.(255);.... . |
00000330  8d 44 7c 41 0d 01 f4 1a  20 dc 20 30 2c 31 2c 32  |.D|A.... . 0,1,2|
00000340  2c 34 2c 36 2c 38 2c 39  2c 31 30 2c 2d 31 0d 01  |,4,6,8,9,10,-1..|
00000350  fe 11 20 dc 20 30 2c 34  2c 36 2c 38 2c 2d 31 0d  |.. . 0,4,6,8,-1.|
00000360  02 08 13 20 dc 20 30 2c  31 2c 34 2c 36 2c 38 2c  |... . 0,1,4,6,8,|
00000370  2d 31 0d 02 12 14 20 dc  20 30 2c 34 2c 36 2c 38  |-1.... . 0,4,6,8|
00000380  2c 31 30 2c 2d 31 0d 02  1c 1c 20 dc 20 30 2c 31  |,10,-1.... . 0,1|
00000390  2c 32 2c 34 2c 35 2c 36  2c 38 2c 39 2c 31 30 2c  |,2,4,5,6,8,9,10,|
000003a0  2d 31 0d ff                                       |-1..|
000003a4