Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Graphics/Box

Graphics/Box

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 » Greaseweazled » adfs_Programs.adf
Filename: Graphics/Box
Read OK: ✔
File size: 03E5 bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

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

File contents
   10 MODE6:R=50:ST=16:D=ST:A=500:G=FALSE:STB=10:GOTO100
   20 DEFPROCplot:MOVEA,R:MOVEA+50,R:PLOT85,A,R-50:PLOT85,A+50,R-50:IFRND(3)=2 AND CH=TRUE THENVDU19,RND(3),RND(7),0;0;0;
   30 ENDPROC
   40 DEFPROCmovevert:T=R+D:IFT>=1020THEND=-ST
   50 IFT=50THEND=ST:G=TRUE
   60 ENDPROC
   70 DEFPROCdisplot:GCOL0,0:MOVEA,R:MOVEA+50,R:PLOT85,A,R-50:PLOT85,A+50,R-50:GCOL0,3:ENDPROC
   80 PROCplot:PROCmovevert:PROCdisplot:R=T:IFG=FALSE AND RND(50)<>29THEN80
   90 AB=RND(1230):AC=A:FORA=AC TO AB STEP SGN(AB-AC)*STB:PROCplot:PROCdisplot:NEXT:G=FALSE:IFT<>50THEN D=(RND(3)-2)*ST:IFD=0THEND=ST:GOTO80ELSE80
  100 PRINTTAB(8,0);"The box of destruction!";TAB(8,1);"***********************"
  110 PRINTTAB(10,5);"1. Destroy white text";TAB(10,10);"2. Destroy coloured text";TAB(10,15);"3. Destroy whiteness";TAB(10,20);"4. Destroy coloured blocks"
  120 A$=GET$:IFA$="1"THEN170
  130 IFA$="2"THEN180
  140 IFA$="3"THEN190
  150 IFA$="4"THEN200
  160 VDU7:GOTO120
  170 MODE4:FORX=1TO1279:PRINTCHR$(RND(94)+32);:NEXT:CH=FALSE:GOTO80
  180 MODE1:FORX=1TO1279:COLOURRND(3):PRINTCHR$(RND(94)+32);:NEXT:CH=TRUE:GOTO80
  190 MODE1:VDU19,2,7,0;0;0;19,3,1,0;0;0;:GCOL0,2:MOVE0,0:MOVE1240,0:PLOT85,0,1240:PLOT85,1240,1240:GCOL0,3:CH=FALSE:GOTO80
  200 MODE1:VDU23,130,255,255,255,255,255,255,255,255:FORX=1TO1279:COLOURRND(3):PRINTCHR$(130);:NEXT:CH=TRUE:GOTO80


. �6:R=50:ST=16:D=ST:A=500:G=�:STB=10:�Dd@
V ��plot:�A,R:�A+50,R:�85,A,R-50:�85,A+50,R-50:�(3)=2 � CH=� ��19,�(3),�(7),0;0;0;
 �
($ ��movevert:T=R+D:�T>=1020�D=-ST
2 �T=50�D=ST:G=�
< �
F@ ��displot:�0,0:�A,R:�A+50,R:�85,A,R-50:�85,A+50,R-50:�0,3:�
P7 �plot:�movevert:�displot:R=T:�G=� � �(50)<>29��DP@
Zn AB=�(1230):AC=A:�A=AC � AB � �(AB-AC)*STB:�plot:�displot:�:G=�:�T<>50� D=(�(3)-2)*ST:�D=0�D=ST:�DP@��DP@
dE �8,0);"The box of destruction!";�8,1);"***********************"
n� �10,5);"1. Destroy white text";�10,10);"2. Destroy coloured text";�10,15);"3. Destroy whiteness";�10,20);"4. Destroy coloured blocks"
x A$=�:�A$="1"��tj@
� �A$="2"��tt@
� �A$="3"��t~@
� �A$="4"��dH@
�
 �7:�Dx@
�, �4:�X=1�1279:�(�(94)+32);:�:CH=�:�DP@
�2 �1:�X=1�1279:��(3):�(�(94)+32);:�:CH=�:�DP@
�^ �1:�19,2,7,0;0;0;19,3,1,0;0;0;:�0,2:�0,0:�1240,0:�85,0,1240:�85,1240,1240:�0,3:CH=�:�DP@
�U �1:�23,130,255,255,255,255,255,255,255,255:�X=1�1279:��(3):�(130);:�:CH=�:�DP@
�
00000000  0d 00 0a 2e 20 eb 36 3a  52 3d 35 30 3a 53 54 3d  |.... .6:R=50:ST=|
00000010  31 36 3a 44 3d 53 54 3a  41 3d 35 30 30 3a 47 3d  |16:D=ST:A=500:G=|
00000020  a3 3a 53 54 42 3d 31 30  3a e5 8d 44 64 40 0d 00  |.:STB=10:..Dd@..|
00000030  14 56 20 dd f2 70 6c 6f  74 3a ec 41 2c 52 3a ec  |.V ..plot:.A,R:.|
00000040  41 2b 35 30 2c 52 3a f0  38 35 2c 41 2c 52 2d 35  |A+50,R:.85,A,R-5|
00000050  30 3a f0 38 35 2c 41 2b  35 30 2c 52 2d 35 30 3a  |0:.85,A+50,R-50:|
00000060  e7 b3 28 33 29 3d 32 20  80 20 43 48 3d b9 20 8c  |..(3)=2 . CH=. .|
00000070  ef 31 39 2c b3 28 33 29  2c b3 28 37 29 2c 30 3b  |.19,.(3),.(7),0;|
00000080  30 3b 30 3b 0d 00 1e 06  20 e1 0d 00 28 24 20 dd  |0;0;.... ...($ .|
00000090  f2 6d 6f 76 65 76 65 72  74 3a 54 3d 52 2b 44 3a  |.movevert:T=R+D:|
000000a0  e7 54 3e 3d 31 30 32 30  8c 44 3d 2d 53 54 0d 00  |.T>=1020.D=-ST..|
000000b0  32 13 20 e7 54 3d 35 30  8c 44 3d 53 54 3a 47 3d  |2. .T=50.D=ST:G=|
000000c0  b9 0d 00 3c 06 20 e1 0d  00 46 40 20 dd f2 64 69  |...<. ...F@ ..di|
000000d0  73 70 6c 6f 74 3a e6 30  2c 30 3a ec 41 2c 52 3a  |splot:.0,0:.A,R:|
000000e0  ec 41 2b 35 30 2c 52 3a  f0 38 35 2c 41 2c 52 2d  |.A+50,R:.85,A,R-|
000000f0  35 30 3a f0 38 35 2c 41  2b 35 30 2c 52 2d 35 30  |50:.85,A+50,R-50|
00000100  3a e6 30 2c 33 3a e1 0d  00 50 37 20 f2 70 6c 6f  |:.0,3:...P7 .plo|
00000110  74 3a f2 6d 6f 76 65 76  65 72 74 3a f2 64 69 73  |t:.movevert:.dis|
00000120  70 6c 6f 74 3a 52 3d 54  3a e7 47 3d a3 20 80 20  |plot:R=T:.G=. . |
00000130  b3 28 35 30 29 3c 3e 32  39 8c 8d 44 50 40 0d 00  |.(50)<>29..DP@..|
00000140  5a 6e 20 41 42 3d b3 28  31 32 33 30 29 3a 41 43  |Zn AB=.(1230):AC|
00000150  3d 41 3a e3 41 3d 41 43  20 b8 20 41 42 20 88 20  |=A:.A=AC . AB . |
00000160  b4 28 41 42 2d 41 43 29  2a 53 54 42 3a f2 70 6c  |.(AB-AC)*STB:.pl|
00000170  6f 74 3a f2 64 69 73 70  6c 6f 74 3a ed 3a 47 3d  |ot:.displot:.:G=|
00000180  a3 3a e7 54 3c 3e 35 30  8c 20 44 3d 28 b3 28 33  |.:.T<>50. D=(.(3|
00000190  29 2d 32 29 2a 53 54 3a  e7 44 3d 30 8c 44 3d 53  |)-2)*ST:.D=0.D=S|
000001a0  54 3a e5 8d 44 50 40 8b  8d 44 50 40 0d 00 64 45  |T:..DP@..DP@..dE|
000001b0  20 f1 8a 38 2c 30 29 3b  22 54 68 65 20 62 6f 78  | ..8,0);"The box|
000001c0  20 6f 66 20 64 65 73 74  72 75 63 74 69 6f 6e 21  | of destruction!|
000001d0  22 3b 8a 38 2c 31 29 3b  22 2a 2a 2a 2a 2a 2a 2a  |";.8,1);"*******|
000001e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000001f0  22 0d 00 6e 8b 20 f1 8a  31 30 2c 35 29 3b 22 31  |"..n. ..10,5);"1|
00000200  2e 20 44 65 73 74 72 6f  79 20 77 68 69 74 65 20  |. Destroy white |
00000210  74 65 78 74 22 3b 8a 31  30 2c 31 30 29 3b 22 32  |text";.10,10);"2|
00000220  2e 20 44 65 73 74 72 6f  79 20 63 6f 6c 6f 75 72  |. Destroy colour|
00000230  65 64 20 74 65 78 74 22  3b 8a 31 30 2c 31 35 29  |ed text";.10,15)|
00000240  3b 22 33 2e 20 44 65 73  74 72 6f 79 20 77 68 69  |;"3. Destroy whi|
00000250  74 65 6e 65 73 73 22 3b  8a 31 30 2c 32 30 29 3b  |teness";.10,20);|
00000260  22 34 2e 20 44 65 73 74  72 6f 79 20 63 6f 6c 6f  |"4. Destroy colo|
00000270  75 72 65 64 20 62 6c 6f  63 6b 73 22 0d 00 78 16  |ured blocks"..x.|
00000280  20 41 24 3d be 3a e7 41  24 3d 22 31 22 8c 8d 74  | A$=.:.A$="1"..t|
00000290  6a 40 0d 00 82 11 20 e7  41 24 3d 22 32 22 8c 8d  |j@.... .A$="2"..|
000002a0  74 74 40 0d 00 8c 11 20  e7 41 24 3d 22 33 22 8c  |tt@.... .A$="3".|
000002b0  8d 74 7e 40 0d 00 96 11  20 e7 41 24 3d 22 34 22  |.t~@.... .A$="4"|
000002c0  8c 8d 64 48 40 0d 00 a0  0d 20 ef 37 3a e5 8d 44  |..dH@.... .7:..D|
000002d0  78 40 0d 00 aa 2c 20 eb  34 3a e3 58 3d 31 b8 31  |x@..., .4:.X=1.1|
000002e0  32 37 39 3a f1 bd 28 b3  28 39 34 29 2b 33 32 29  |279:..(.(94)+32)|
000002f0  3b 3a ed 3a 43 48 3d a3  3a e5 8d 44 50 40 0d 00  |;:.:CH=.:..DP@..|
00000300  b4 32 20 eb 31 3a e3 58  3d 31 b8 31 32 37 39 3a  |.2 .1:.X=1.1279:|
00000310  fb b3 28 33 29 3a f1 bd  28 b3 28 39 34 29 2b 33  |..(3):..(.(94)+3|
00000320  32 29 3b 3a ed 3a 43 48  3d b9 3a e5 8d 44 50 40  |2);:.:CH=.:..DP@|
00000330  0d 00 be 5e 20 eb 31 3a  ef 31 39 2c 32 2c 37 2c  |...^ .1:.19,2,7,|
00000340  30 3b 30 3b 30 3b 31 39  2c 33 2c 31 2c 30 3b 30  |0;0;0;19,3,1,0;0|
00000350  3b 30 3b 3a e6 30 2c 32  3a ec 30 2c 30 3a ec 31  |;0;:.0,2:.0,0:.1|
00000360  32 34 30 2c 30 3a f0 38  35 2c 30 2c 31 32 34 30  |240,0:.85,0,1240|
00000370  3a f0 38 35 2c 31 32 34  30 2c 31 32 34 30 3a e6  |:.85,1240,1240:.|
00000380  30 2c 33 3a 43 48 3d a3  3a e5 8d 44 50 40 0d 00  |0,3:CH=.:..DP@..|
00000390  c8 55 20 eb 31 3a ef 32  33 2c 31 33 30 2c 32 35  |.U .1:.23,130,25|
000003a0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
000003b0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 3a e3 58  |5,255,255,255:.X|
000003c0  3d 31 b8 31 32 37 39 3a  fb b3 28 33 29 3a f1 bd  |=1.1279:..(3):..|
000003d0  28 31 33 30 29 3b 3a ed  3a 43 48 3d b9 3a e5 8d  |(130);:.:CH=.:..|
000003e0  44 50 40 0d ff                                    |DP@..|
000003e5
Graphics/Box.m0
Graphics/Box.m1
Graphics/Box.m2
Graphics/Box.m4
Graphics/Box.m5

© Dominic Ford 2021–2024.

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