Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_29.ADF » TITLE

TITLE

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_29.ADF
Filename: TITLE
Read OK:
File size: 028D bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10REM          Chequer EUG                        by Dominic Ford 1996
   20:
   30I%=29:REM Issue Number
   40:
   50ONERRORGOTO220
   60MODE2:c=0:d=0:VDU23,128,255,255,255,255,255,255,255,255
   70FORr=0TO3:FORcl=0TO31
   80x=r*320:y=cl*32:GCOL0,c
   90MOVEx,y:MOVEx+320,y:PLOT85,x,y+32:PLOT85,x+320,y+32
  100c=(c+1)AND15:NEXT:d=d EOR8:c=d:NEXT
  110VDU5:MOVE232,40:GCOL3,8:PRINT"Press <SPACE>"
  120MOVE376,200:PRINT"Issue ";I%
  130FORl=0TO4:READL$:FORre=0TO1:MOVE288,850-32*(l*2+re)
  140FORc=1TO11:IFMID$(L$,c,1)="*"THENVDU128ELSEVDU32
  150NEXT,,:VDU4
  160:
  170st=0:REPEAT:t=TIME+5:VDU19,st,0,0,0,0,0,0
  180VDU19,st+8,(st MOD7)+1,0,0,0,0,0:st=(st+1)MOD16
  190REPEAT UNTIL TIME>t
  200UNTIL INKEY(-99)
  210:
  220CHAIN"MENU"
  230:
  240DATA"*** * * ***"
  250DATA"*   * * *  "
  260DATA"**  * * * *"
  270DATA"*   * * * *"
  280DATA"*** *** ***"

F�          Chequer EUG                        by Dominic Ford 1996
:
I%=29:� Issue Number
(:
2��d\@
<6�2:c=0:d=0:�23,128,255,255,255,255,255,255,255,255
F�r=0�3:�cl=0�31
Px=r*320:y=cl*32:�0,c
Z+�x,y:�x+320,y:�85,x,y+32:�85,x+320,y+32
dc=(c+1)�15:�:d=d �8:c=d:�
n$�5:�232,40:�3,8:�"Press <SPACE>"
x�376,200:�"Issue ";I%
�+�l=0�4:�L$:�re=0�1:�288,850-32*(l*2+re)
�"�c=1�11:�L$,c,1)="*"��128��32
�
�,,:�4
�:
�#st=0:�:t=�+5:�19,st,0,0,0,0,0,0
�-�19,st+8,(st �7)+1,0,0,0,0,0:st=(st+1)�16
�� � �>t
�� �(-99)
�:
��"MENU"
�:
��"*** * * ***"
��"*   * * *  "
�"**  * * * *"
�"*   * * * *"
�"*** *** ***"
�
00000000  0d 00 0a 46 f4 20 20 20  20 20 20 20 20 20 20 43  |...F.          C|
00000010  68 65 71 75 65 72 20 45  55 47 20 20 20 20 20 20  |hequer EUG      |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000030  20 20 62 79 20 44 6f 6d  69 6e 69 63 20 46 6f 72  |  by Dominic For|
00000040  64 20 31 39 39 36 0d 00  14 05 3a 0d 00 1e 18 49  |d 1996....:....I|
00000050  25 3d 32 39 3a f4 20 49  73 73 75 65 20 4e 75 6d  |%=29:. Issue Num|
00000060  62 65 72 0d 00 28 05 3a  0d 00 32 0b ee 85 e5 8d  |ber..(.:..2.....|
00000070  64 5c 40 0d 00 3c 36 eb  32 3a 63 3d 30 3a 64 3d  |d\@..<6.2:c=0:d=|
00000080  30 3a ef 32 33 2c 31 32  38 2c 32 35 35 2c 32 35  |0:.23,128,255,25|
00000090  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
000000a0  35 2c 32 35 35 2c 32 35  35 0d 00 46 13 e3 72 3d  |5,255,255..F..r=|
000000b0  30 b8 33 3a e3 63 6c 3d  30 b8 33 31 0d 00 50 18  |0.3:.cl=0.31..P.|
000000c0  78 3d 72 2a 33 32 30 3a  79 3d 63 6c 2a 33 32 3a  |x=r*320:y=cl*32:|
000000d0  e6 30 2c 63 0d 00 5a 2b  ec 78 2c 79 3a ec 78 2b  |.0,c..Z+.x,y:.x+|
000000e0  33 32 30 2c 79 3a f0 38  35 2c 78 2c 79 2b 33 32  |320,y:.85,x,y+32|
000000f0  3a f0 38 35 2c 78 2b 33  32 30 2c 79 2b 33 32 0d  |:.85,x+320,y+32.|
00000100  00 64 1d 63 3d 28 63 2b  31 29 80 31 35 3a ed 3a  |.d.c=(c+1).15:.:|
00000110  64 3d 64 20 82 38 3a 63  3d 64 3a ed 0d 00 6e 24  |d=d .8:c=d:...n$|
00000120  ef 35 3a ec 32 33 32 2c  34 30 3a e6 33 2c 38 3a  |.5:.232,40:.3,8:|
00000130  f1 22 50 72 65 73 73 20  3c 53 50 41 43 45 3e 22  |."Press <SPACE>"|
00000140  0d 00 78 19 ec 33 37 36  2c 32 30 30 3a f1 22 49  |..x..376,200:."I|
00000150  73 73 75 65 20 22 3b 49  25 0d 00 82 2b e3 6c 3d  |ssue ";I%...+.l=|
00000160  30 b8 34 3a f3 4c 24 3a  e3 72 65 3d 30 b8 31 3a  |0.4:.L$:.re=0.1:|
00000170  ec 32 38 38 2c 38 35 30  2d 33 32 2a 28 6c 2a 32  |.288,850-32*(l*2|
00000180  2b 72 65 29 0d 00 8c 22  e3 63 3d 31 b8 31 31 3a  |+re)...".c=1.11:|
00000190  e7 c1 4c 24 2c 63 2c 31  29 3d 22 2a 22 8c ef 31  |..L$,c,1)="*"..1|
000001a0  32 38 8b ef 33 32 0d 00  96 0a ed 2c 2c 3a ef 34  |28..32.....,,:.4|
000001b0  0d 00 a0 05 3a 0d 00 aa  23 73 74 3d 30 3a f5 3a  |....:...#st=0:.:|
000001c0  74 3d 91 2b 35 3a ef 31  39 2c 73 74 2c 30 2c 30  |t=.+5:.19,st,0,0|
000001d0  2c 30 2c 30 2c 30 2c 30  0d 00 b4 2d ef 31 39 2c  |,0,0,0,0...-.19,|
000001e0  73 74 2b 38 2c 28 73 74  20 83 37 29 2b 31 2c 30  |st+8,(st .7)+1,0|
000001f0  2c 30 2c 30 2c 30 2c 30  3a 73 74 3d 28 73 74 2b  |,0,0,0,0:st=(st+|
00000200  31 29 83 31 36 0d 00 be  0b f5 20 fd 20 91 3e 74  |1).16..... . .>t|
00000210  0d 00 c8 0c fd 20 a6 28  2d 39 39 29 0d 00 d2 05  |..... .(-99)....|
00000220  3a 0d 00 dc 0b d7 22 4d  45 4e 55 22 0d 00 e6 05  |:....."MENU"....|
00000230  3a 0d 00 f0 12 dc 22 2a  2a 2a 20 2a 20 2a 20 2a  |:....."*** * * *|
00000240  2a 2a 22 0d 00 fa 12 dc  22 2a 20 20 20 2a 20 2a  |**"....."*   * *|
00000250  20 2a 20 20 22 0d 01 04  12 dc 22 2a 2a 20 20 2a  | *  "....."**  *|
00000260  20 2a 20 2a 20 2a 22 0d  01 0e 12 dc 22 2a 20 20  | * * *"....."*  |
00000270  20 2a 20 2a 20 2a 20 2a  22 0d 01 18 12 dc 22 2a  | * * * *"....."*|
00000280  2a 2a 20 2a 2a 2a 20 2a  2a 2a 22 0d ff           |** *** ***"..|
0000028d
TITLE.m0
TITLE.m1
TITLE.m2
TITLE.m4
TITLE.m5