P/BHDEMO

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_37.ADF » P/BHDEMO

P/BHDEMO

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_37.ADF
Filename:	P/BHDEMO
Read OK:	✔
File size:	0290 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

Duplicates

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

AEW website » eug » eug_3_5_discs_Eug-37_A-EUG37.adf » U/HIDEMO
AEW website » eug » eug_5_25_discs_Eug-37_D-EUG37.dsd » U.HIDEMO
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_37.ADF » P/BHDEMO
Personal collection » Acorn hard disk » zipped_disks » elk03 » eug37/P/BHDEMO

File contents

   10REM This
   20MODE4
   30PRINT"This program is really sneaky."
   40PRINT'"You can't normally see the listing."
   50PRINT'"I can do anything without you seeing!"
   60PRINT"HA HA HA HA HA..."
   70REM program
   80MI%=30
   90VDU29,790;400;
  100XS=256
  110YS=256
  120REPEAT
  130REM is
  140REPEAT
  150FORI=-450TO150STEP XS
  160FORJ=0TO300STEP YS
  170XC=I/200
  180YC=J/200
  190GCOL0,FNmb(XC,YC,MI%)
  200PLOT69,I,J
  210PLOT69,I,-J
  220REM longer
  230NEXTJ
  240NEXTI
  250XS=XS/2
  260YS=YS/2
  270UNTILXS<2
  280VDU31,0,7
  290END
  300REM than
  310DEFFNmb(X,Y,M%)
  320LOCAL OX,OY,HLT,TEMP,IT
  330OX=X
  340OY=Y
  350IT=0
  360REM you
  370REPEAT
  380TEMP=OX*OX - OY*OY + X
  390OY=2*OX*OY + Y
  400OX=TEMP
  410HLT=((ABS(OX)+ABS(OY))>4)
  420IT=IT+1
  430UNTILIT>M% OR HLT
  440IF HLT THEN =1 ELSE =0
  450REM think!


� This
�4
%�"This program is really sneaky."
(+�'"You can't normally see the listing."
2-�'"I can do anything without you seeing!"
<�"HA HA HA HA HA..."
F� program
P
MI%=30
Z�29,790;400;
d
XS=256
n
YS=256
x�
�
� is
��
��I=-450�150� XS
��J=0�300� YS
�XC=I/200
�YC=J/200
��0,�mb(XC,YC,MI%)
��69,I,J
��69,I,-J
�� longer
��J
��I
�XS=XS/2
YS=YS/2
	�XS<2
�31,0,7
"�
,� than
6ݤmb(X,Y,M%)
@� OX,OY,HLT,TEMP,IT
JOX=X
TOY=Y
^IT=0
h� you
r�
|TEMP=OX*OX - OY*OY + X
�OY=2*OX*OY + Y
�OX=TEMP
�HLT=((�(OX)+�(OY))>4)
�IT=IT+1
��IT>M% � HLT
�� HLT � =1 � =0
�
� think!
�

00000000  0d 00 0a 0c f4 06 20 54  68 69 73 15 0d 00 14 06  |...... This.....|
00000010  eb 34 0d 00 1e 25 f1 22  54 68 69 73 20 70 72 6f  |.4...%."This pro|
00000020  67 72 61 6d 20 69 73 20  72 65 61 6c 6c 79 20 73  |gram is really s|
00000030  6e 65 61 6b 79 2e 22 0d  00 28 2b f1 27 22 59 6f  |neaky."..(+.'"Yo|
00000040  75 20 63 61 6e 27 74 20  6e 6f 72 6d 61 6c 6c 79  |u can't normally|
00000050  20 73 65 65 20 74 68 65  20 6c 69 73 74 69 6e 67  | see the listing|
00000060  2e 22 0d 00 32 2d f1 27  22 49 20 63 61 6e 20 64  |."..2-.'"I can d|
00000070  6f 20 61 6e 79 74 68 69  6e 67 20 77 69 74 68 6f  |o anything witho|
00000080  75 74 20 79 6f 75 20 73  65 65 69 6e 67 21 22 0d  |ut you seeing!".|
00000090  00 3c 18 f1 22 48 41 20  48 41 20 48 41 20 48 41  |.<.."HA HA HA HA|
000000a0  20 48 41 2e 2e 2e 22 0d  00 46 0f f4 06 20 70 72  | HA..."..F... pr|
000000b0  6f 67 72 61 6d 15 0d 00  50 0a 4d 49 25 3d 33 30  |ogram...P.MI%=30|
000000c0  0d 00 5a 10 ef 32 39 2c  37 39 30 3b 34 30 30 3b  |..Z..29,790;400;|
000000d0  0d 00 64 0a 58 53 3d 32  35 36 0d 00 6e 0a 59 53  |..d.XS=256..n.YS|
000000e0  3d 32 35 36 0d 00 78 05  f5 0d 00 82 0a f4 06 20  |=256..x........ |
000000f0  69 73 15 0d 00 8c 05 f5  0d 00 96 13 e3 49 3d 2d  |is...........I=-|
00000100  34 35 30 b8 31 35 30 88  20 58 53 0d 00 a0 10 e3  |450.150. XS.....|
00000110  4a 3d 30 b8 33 30 30 88  20 59 53 0d 00 aa 0c 58  |J=0.300. YS....X|
00000120  43 3d 49 2f 32 30 30 0d  00 b4 0c 59 43 3d 4a 2f  |C=I/200....YC=J/|
00000130  32 30 30 0d 00 be 15 e6  30 2c a4 6d 62 28 58 43  |200.....0,.mb(XC|
00000140  2c 59 43 2c 4d 49 25 29  0d 00 c8 0b f0 36 39 2c  |,YC,MI%).....69,|
00000150  49 2c 4a 0d 00 d2 0c f0  36 39 2c 49 2c 2d 4a 0d  |I,J.....69,I,-J.|
00000160  00 dc 0e f4 06 20 6c 6f  6e 67 65 72 15 0d 00 e6  |..... longer....|
00000170  06 ed 4a 0d 00 f0 06 ed  49 0d 00 fa 0b 58 53 3d  |..J.....I....XS=|
00000180  58 53 2f 32 0d 01 04 0b  59 53 3d 59 53 2f 32 0d  |XS/2....YS=YS/2.|
00000190  01 0e 09 fd 58 53 3c 32  0d 01 18 0b ef 33 31 2c  |....XS<2.....31,|
000001a0  30 2c 37 0d 01 22 05 e0  0d 01 2c 0c f4 06 20 74  |0,7.."....,... t|
000001b0  68 61 6e 15 0d 01 36 10  dd a4 6d 62 28 58 2c 59  |han...6...mb(X,Y|
000001c0  2c 4d 25 29 0d 01 40 17  ea 20 4f 58 2c 4f 59 2c  |,M%)..@.. OX,OY,|
000001d0  48 4c 54 2c 54 45 4d 50  2c 49 54 0d 01 4a 08 4f  |HLT,TEMP,IT..J.O|
000001e0  58 3d 58 0d 01 54 08 4f  59 3d 59 0d 01 5e 08 49  |X=X..T.OY=Y..^.I|
000001f0  54 3d 30 0d 01 68 0b f4  06 20 79 6f 75 15 0d 01  |T=0..h... you...|
00000200  72 05 f5 0d 01 7c 1a 54  45 4d 50 3d 4f 58 2a 4f  |r....|.TEMP=OX*O|
00000210  58 20 2d 20 4f 59 2a 4f  59 20 2b 20 58 0d 01 86  |X - OY*OY + X...|
00000220  12 4f 59 3d 32 2a 4f 58  2a 4f 59 20 2b 20 59 0d  |.OY=2*OX*OY + Y.|
00000230  01 90 0b 4f 58 3d 54 45  4d 50 0d 01 9a 19 48 4c  |...OX=TEMP....HL|
00000240  54 3d 28 28 94 28 4f 58  29 2b 94 28 4f 59 29 29  |T=((.(OX)+.(OY))|
00000250  3e 34 29 0d 01 a4 0b 49  54 3d 49 54 2b 31 0d 01  |>4)....IT=IT+1..|
00000260  ae 10 fd 49 54 3e 4d 25  20 84 20 48 4c 54 0d 01  |...IT>M% . HLT..|
00000270  b8 13 e7 20 48 4c 54 20  8c 20 3d 31 20 8b 20 3d  |... HLT . =1 . =|
00000280  30 0d 01 c2 0d f4 06 20  74 68 69 6e 6b 21 0d ff  |0...... think!..|
00000290

P/BHDEMO.m0

P/BHDEMO.m1

P/BHDEMO.m2

P/BHDEMO.m4

P/BHDEMO.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .