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

dcfprogs/Graphics/Badge

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/Badge
Read OK: ✔
File size: 01FB bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 6 duplicate copies of this file in the archive:

File contents
   10 MODE 5:a=333:b=666:DIMb%(1285):xxx=0
   20 VDU 19,0,7,0;0;0;
   30 VDU 19,1,2,0;0;0;
   40 VDU 19,2,3,0;0;0;
   50 VDU 19,3,6,0;0;0;
   60 FOR x=0 TO 1280 STEP 4
   70 MOVE x,0:GCOL0,1
   80 r=RND(6):rb=RND(6)
   90 IF r<3 THEN a=a-1 ELSE IF r>3 THEN a=a+2
  100 IF b=a THEN xxx=1
  110 IF xxx=1 THEN b=a:GOTO130
  120 IF rb<3 THEN b=b+1 ELSE IF rb>3 THEN b=b-2
  130 DRAW x,a:GCOL 0,2:DRAW x,b
  140 GCOL 0,3:DRAW x,1200:b%(x)=b:b%(x+3)=b:b%(x+1)=b:b%(x+2)=b:b%(x+4)=b:NEXT
  150 GCOL 0,0
  160 FOR x=1 TO RND(750)
  170 r=RND(1280)
  180 rb=RND(400)
  190 IF b%(r)+rb>1000 THEN 180
  200 MOVE r,rb+b%(r):DRAW r,rb+b%(r)
  210 NEXT
  220 GOTO 220


$ � 5:a=333:b=666:�b%(1285):xxx=0
 � 19,0,7,0;0;0;
 � 19,1,2,0;0;0;
( � 19,2,3,0;0;0;
2 � 19,3,6,0;0;0;
< � x=0 � 1280 � 4
F � x,0:�0,1
P r=�(6):rb=�(6)
Z" � r<3 � a=a-1 � � r>3 � a=a+2
d � b=a � xxx=1
n � xxx=1 � b=a:�tB@
x$ � rb<3 � b=b+1 � � rb>3 � b=b-2
� � x,a:� 0,2:� x,b
�E � 0,3:� x,1200:b%(x)=b:b%(x+3)=b:b%(x+1)=b:b%(x+2)=b:b%(x+4)=b:�
�
 � 0,0
� � x=1 � �(750)
� r=�(1280)
� rb=�(400)
� � b%(r)+rb>1000 � �tt@
� � r,rb+b%(r):� r,rb+b%(r)
� �
� � �d\@
�
00000000  0d 00 0a 24 20 eb 20 35  3a 61 3d 33 33 33 3a 62  |...$ . 5:a=333:b|
00000010  3d 36 36 36 3a de 62 25  28 31 32 38 35 29 3a 78  |=666:.b%(1285):x|
00000020  78 78 3d 30 0d 00 14 14  20 ef 20 31 39 2c 30 2c  |xx=0.... . 19,0,|
00000030  37 2c 30 3b 30 3b 30 3b  0d 00 1e 14 20 ef 20 31  |7,0;0;0;.... . 1|
00000040  39 2c 31 2c 32 2c 30 3b  30 3b 30 3b 0d 00 28 14  |9,1,2,0;0;0;..(.|
00000050  20 ef 20 31 39 2c 32 2c  33 2c 30 3b 30 3b 30 3b  | . 19,2,3,0;0;0;|
00000060  0d 00 32 14 20 ef 20 31  39 2c 33 2c 36 2c 30 3b  |..2. . 19,3,6,0;|
00000070  30 3b 30 3b 0d 00 3c 15  20 e3 20 78 3d 30 20 b8  |0;0;..<. . x=0 .|
00000080  20 31 32 38 30 20 88 20  34 0d 00 46 0f 20 ec 20  | 1280 . 4..F. . |
00000090  78 2c 30 3a e6 30 2c 31  0d 00 50 13 20 72 3d b3  |x,0:.0,1..P. r=.|
000000a0  28 36 29 3a 72 62 3d b3  28 36 29 0d 00 5a 22 20  |(6):rb=.(6)..Z" |
000000b0  e7 20 72 3c 33 20 8c 20  61 3d 61 2d 31 20 8b 20  |. r<3 . a=a-1 . |
000000c0  e7 20 72 3e 33 20 8c 20  61 3d 61 2b 32 0d 00 64  |. r>3 . a=a+2..d|
000000d0  12 20 e7 20 62 3d 61 20  8c 20 78 78 78 3d 31 0d  |. . b=a . xxx=1.|
000000e0  00 6e 18 20 e7 20 78 78  78 3d 31 20 8c 20 62 3d  |.n. . xxx=1 . b=|
000000f0  61 3a e5 8d 74 42 40 0d  00 78 24 20 e7 20 72 62  |a:..tB@..x$ . rb|
00000100  3c 33 20 8c 20 62 3d 62  2b 31 20 8b 20 e7 20 72  |<3 . b=b+1 . . r|
00000110  62 3e 33 20 8c 20 62 3d  62 2d 32 0d 00 82 16 20  |b>3 . b=b-2.... |
00000120  df 20 78 2c 61 3a e6 20  30 2c 32 3a df 20 78 2c  |. x,a:. 0,2:. x,|
00000130  62 0d 00 8c 45 20 e6 20  30 2c 33 3a df 20 78 2c  |b...E . 0,3:. x,|
00000140  31 32 30 30 3a 62 25 28  78 29 3d 62 3a 62 25 28  |1200:b%(x)=b:b%(|
00000150  78 2b 33 29 3d 62 3a 62  25 28 78 2b 31 29 3d 62  |x+3)=b:b%(x+1)=b|
00000160  3a 62 25 28 78 2b 32 29  3d 62 3a 62 25 28 78 2b  |:b%(x+2)=b:b%(x+|
00000170  34 29 3d 62 3a ed 0d 00  96 0a 20 e6 20 30 2c 30  |4)=b:..... . 0,0|
00000180  0d 00 a0 13 20 e3 20 78  3d 31 20 b8 20 b3 28 37  |.... . x=1 . .(7|
00000190  35 30 29 0d 00 aa 0e 20  72 3d b3 28 31 32 38 30  |50).... r=.(1280|
000001a0  29 0d 00 b4 0e 20 72 62  3d b3 28 34 30 30 29 0d  |).... rb=.(400).|
000001b0  00 be 1b 20 e7 20 62 25  28 72 29 2b 72 62 3e 31  |... . b%(r)+rb>1|
000001c0  30 30 30 20 8c 20 8d 74  74 40 0d 00 c8 1e 20 ec  |000 . .tt@.... .|
000001d0  20 72 2c 72 62 2b 62 25  28 72 29 3a df 20 72 2c  | r,rb+b%(r):. r,|
000001e0  72 62 2b 62 25 28 72 29  0d 00 d2 06 20 ed 0d 00  |rb+b%(r).... ...|
000001f0  dc 0b 20 e5 20 8d 64 5c  40 0d ff                 |.. . .d\@..|
000001fb

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .