Home » Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s » BeebDisk/TriDemo

BeebDisk/TriDemo

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 » Archimedes archive » Acorn Computing » 1994 11 subscription disc.adf » 9411s
Filename: BeebDisk/TriDemo
Read OK: ✔
File size: 0648 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    0 REM Triangles Demo by G.Foot & DCL
   10 *TV 0,1
   20 MODE2
   30 VDU 23;8202;0;0;0;
   40 VDU 23,0,6,16,0;0;0;23,0,7,26,0;0;0;
   50 DIM X%(2),Y%(2),XS%(2),YS%(2)
   60 DIM F%(2),G%(2)
   70 PROCassm
   80 DIM C(359):FOR N%=0 TO 359:C(N%)=COS(RAD(N%)):NEXT
   90 F%(0)=15:F%(1)=5:F%(2)=6
  100 G%(0)=8:G%(1)=11:G%(2)=3
  110 PROCgo
  120 END
  130 :
  140 DEFPROCassm
  150 FOR pass%=0 TO 2 STEP 2
  160 P%=&900
  170 [OPT pass%
  180 .copy
  190 LDX &71
  200 LDY #0
  210 .loop1
  220 .loop2
  230 LDA (&70),Y
  240 STA (&74),Y
  250 INY
  260 BNE loop2
  270 CPX &73
  280 BEQ end
  290 INX:STX &71
  300 INC &75
  310 JMP loop1
  320 .end
  330 RTS
  340 .blank
  350 LDA #0
  360 LDX &71
  370 LDY #0
  380 .loop3
  390 .loop4
  400 STA (&70),Y
  410 INY
  420 BNE loop4
  430 CPX &73
  440 BEQ end
  450 INX:STX &71
  460 JMP loop3
  470 ]NEXT
  480 ENDPROC
  490 :
  500 DEFPROCgo
  510 T=0
  520 VDU 29,640;128;
  530 REPEAT
  540 T=T+1.5
  550 FOR N%=0 TO 2
  560 REM PRINTT*F%(N%),T*G%(N%):NEXT:UNTIL0
  570 X%(N%)=C((T*F%(N%)) MOD 360)*128
  580 Y%(N%)=C((T*G%(N%)) MOD 360)*128
  590 NEXT
  600 PROCtris:PROCcopyin:UNTIL0
  610 MOVE X%(2),Y%(2)
  620 FOR N%=0 TO 2
  630 DRAW X%(N%),Y%(N%)
  640 NEXT
  650 MOVE -X%(2),-Y%(2)
  660 FOR N%=0 TO 2
  670 DRAW -X%(N%),-Y%(N%)
  680 NEXT
  690 MOVE -Y%(2),X%(2)
  700 FOR N%=0 TO 2
  710 DRAW -Y%(N%),X%(N%)
  720 NEXT
  730 MOVE Y%(2),-X%(2)
  740 FOR N%=0 TO 2
  750 DRAW Y%(N%),-X%(N%)
  760 NEXT
  770 PROCcopyin
  780 UNTIL0
  790 ENDPROC
  800 :
  810 DEFPROCcopyin
  820 !&70=&7FFF6C00
  830 !&74=&3000
  840 CALL copy
  850 !&70=&7FFF6C00
  860 CALL blank
  870 ENDPROC
  880 :
  890 DEFPROCtris
  900 MOVE X%(2),Y%(2)
  910 MOVE X%(0),Y%(0)
  920 GCOL 0,1
  930 PLOT 85,X%(1),Y%(1)
  940 MOVE -X%(2),-Y%(2)
  950 MOVE -X%(0),-Y%(0)
  960 GCOL 0,2
  970 PLOT 85,-X%(1),-Y%(1)
  980 MOVE Y%(2),-X%(2)
  990 MOVE Y%(0),-X%(0)
 1000 GCOL 0,3
 1010 PLOT 85,Y%(1),-X%(1)
 1020 MOVE -Y%(2),X%(2)
 1030 MOVE -Y%(0),X%(0)
 1040 GCOL 0,4
 1050 PLOT 85,-Y%(1),X%(1)
 1060 ENDPROC

% � Triangles Demo by G.Foot & DCL

 *TV 0,1
 �2
 � 23;8202;0;0;0;
(' � 23,0,6,16,0;0;0;23,0,7,26,0;0;0;
2  � X%(2),Y%(2),XS%(2),YS%(2)
< � F%(2),G%(2)
F
 �assm
P+ � C(359):� N%=0 � 359:C(N%)=�(�(N%)):�
Z F%(0)=15:F%(1)=5:F%(2)=6
d G%(0)=8:G%(1)=11:G%(2)=3
n �go
x �
� :
� ��assm
� � pass%=0 � 2 � 2
� P%=&900
� [OPT pass%
�
 .copy
� LDX &71
� LDY #0
� .loop1
� .loop2
� LDA (&70),Y
� STA (&74),Y
� INY
 BNE loop2
 CPX &73
 BEQ end
" INX:STX &71
, INC &75
6 JMP loop1
@	 .end
J RTS
T .blank
^ LDA #0
h LDX &71
r LDY #0
| .loop3
� .loop4
� STA (&70),Y
� INY
� BNE loop4
� CPX &73
� BEQ end
� INX:STX &71
� JMP loop3
� ]�
� �
� :
�	 ��go
� T=0
 � 29,640;128;
 �
 T=T+1.5
& � N%=0 � 2
0) � PRINTT*F%(N%),T*G%(N%):NEXT:UNTIL0
:# X%(N%)=C((T*F%(N%)) � 360)*128
D# Y%(N%)=C((T*G%(N%)) � 360)*128
N �
X �tris:�copyin:�0
b � X%(2),Y%(2)
l � N%=0 � 2
v � X%(N%),Y%(N%)
� �
� � -X%(2),-Y%(2)
� � N%=0 � 2
� � -X%(N%),-Y%(N%)
� �
� � -Y%(2),X%(2)
� � N%=0 � 2
� � -Y%(N%),X%(N%)
� �
� � Y%(2),-X%(2)
� � N%=0 � 2
� � Y%(N%),-X%(N%)
� �
 �copyin
 �0
 �
  :
*
 ��copyin
4 !&70=&7FFF6C00
> !&74=&3000
H � copy
R !&70=&7FFF6C00
\ � blank
f �
p :
z ��tris
� � X%(2),Y%(2)
� � X%(0),Y%(0)
�
 � 0,1
� � 85,X%(1),Y%(1)
� � -X%(2),-Y%(2)
� � -X%(0),-Y%(0)
�
 � 0,2
� � 85,-X%(1),-Y%(1)
� � Y%(2),-X%(2)
� � Y%(0),-X%(0)
�
 � 0,3
� � 85,Y%(1),-X%(1)
� � -Y%(2),X%(2)
 � -Y%(0),X%(0)

 � 0,4
 � 85,-Y%(1),X%(1)
$ �
�
00000000  0d 00 00 25 20 f4 20 54  72 69 61 6e 67 6c 65 73  |...% . Triangles|
00000010  20 44 65 6d 6f 20 62 79  20 47 2e 46 6f 6f 74 20  | Demo by G.Foot |
00000020  26 20 44 43 4c 0d 00 0a  0c 20 2a 54 56 20 30 2c  |& DCL.... *TV 0,|
00000030  31 0d 00 14 07 20 eb 32  0d 00 1e 15 20 ef 20 32  |1.... .2.... . 2|
00000040  33 3b 38 32 30 32 3b 30  3b 30 3b 30 3b 0d 00 28  |3;8202;0;0;0;..(|
00000050  27 20 ef 20 32 33 2c 30  2c 36 2c 31 36 2c 30 3b  |' . 23,0,6,16,0;|
00000060  30 3b 30 3b 32 33 2c 30  2c 37 2c 32 36 2c 30 3b  |0;0;23,0,7,26,0;|
00000070  30 3b 30 3b 0d 00 32 20  20 de 20 58 25 28 32 29  |0;0;..2  . X%(2)|
00000080  2c 59 25 28 32 29 2c 58  53 25 28 32 29 2c 59 53  |,Y%(2),XS%(2),YS|
00000090  25 28 32 29 0d 00 3c 12  20 de 20 46 25 28 32 29  |%(2)..<. . F%(2)|
000000a0  2c 47 25 28 32 29 0d 00  46 0a 20 f2 61 73 73 6d  |,G%(2)..F. .assm|
000000b0  0d 00 50 2b 20 de 20 43  28 33 35 39 29 3a e3 20  |..P+ . C(359):. |
000000c0  4e 25 3d 30 20 b8 20 33  35 39 3a 43 28 4e 25 29  |N%=0 . 359:C(N%)|
000000d0  3d 9b 28 b2 28 4e 25 29  29 3a ed 0d 00 5a 1d 20  |=.(.(N%)):...Z. |
000000e0  46 25 28 30 29 3d 31 35  3a 46 25 28 31 29 3d 35  |F%(0)=15:F%(1)=5|
000000f0  3a 46 25 28 32 29 3d 36  0d 00 64 1d 20 47 25 28  |:F%(2)=6..d. G%(|
00000100  30 29 3d 38 3a 47 25 28  31 29 3d 31 31 3a 47 25  |0)=8:G%(1)=11:G%|
00000110  28 32 29 3d 33 0d 00 6e  08 20 f2 67 6f 0d 00 78  |(2)=3..n. .go..x|
00000120  06 20 e0 0d 00 82 06 20  3a 0d 00 8c 0b 20 dd f2  |. ..... :.... ..|
00000130  61 73 73 6d 0d 00 96 16  20 e3 20 70 61 73 73 25  |assm.... . pass%|
00000140  3d 30 20 b8 20 32 20 88  20 32 0d 00 a0 0c 20 50  |=0 . 2 . 2.... P|
00000150  25 3d 26 39 30 30 0d 00  aa 0f 20 5b 4f 50 54 20  |%=&900.... [OPT |
00000160  70 61 73 73 25 0d 00 b4  0a 20 2e 63 6f 70 79 0d  |pass%.... .copy.|
00000170  00 be 0c 20 4c 44 58 20  26 37 31 0d 00 c8 0b 20  |... LDX &71.... |
00000180  4c 44 59 20 23 30 0d 00  d2 0b 20 2e 6c 6f 6f 70  |LDY #0.... .loop|
00000190  31 0d 00 dc 0b 20 2e 6c  6f 6f 70 32 0d 00 e6 10  |1.... .loop2....|
000001a0  20 4c 44 41 20 28 26 37  30 29 2c 59 0d 00 f0 10  | LDA (&70),Y....|
000001b0  20 53 54 41 20 28 26 37  34 29 2c 59 0d 00 fa 08  | STA (&74),Y....|
000001c0  20 49 4e 59 0d 01 04 0e  20 42 4e 45 20 6c 6f 6f  | INY.... BNE loo|
000001d0  70 32 0d 01 0e 0c 20 43  50 58 20 26 37 33 0d 01  |p2.... CPX &73..|
000001e0  18 0c 20 42 45 51 20 65  6e 64 0d 01 22 10 20 49  |.. BEQ end..". I|
000001f0  4e 58 3a 53 54 58 20 26  37 31 0d 01 2c 0c 20 49  |NX:STX &71..,. I|
00000200  4e 43 20 26 37 35 0d 01  36 0e 20 4a 4d 50 20 6c  |NC &75..6. JMP l|
00000210  6f 6f 70 31 0d 01 40 09  20 2e 65 6e 64 0d 01 4a  |oop1..@. .end..J|
00000220  08 20 52 54 53 0d 01 54  0b 20 2e 62 6c 61 6e 6b  |. RTS..T. .blank|
00000230  0d 01 5e 0b 20 4c 44 41  20 23 30 0d 01 68 0c 20  |..^. LDA #0..h. |
00000240  4c 44 58 20 26 37 31 0d  01 72 0b 20 4c 44 59 20  |LDX &71..r. LDY |
00000250  23 30 0d 01 7c 0b 20 2e  6c 6f 6f 70 33 0d 01 86  |#0..|. .loop3...|
00000260  0b 20 2e 6c 6f 6f 70 34  0d 01 90 10 20 53 54 41  |. .loop4.... STA|
00000270  20 28 26 37 30 29 2c 59  0d 01 9a 08 20 49 4e 59  | (&70),Y.... INY|
00000280  0d 01 a4 0e 20 42 4e 45  20 6c 6f 6f 70 34 0d 01  |.... BNE loop4..|
00000290  ae 0c 20 43 50 58 20 26  37 33 0d 01 b8 0c 20 42  |.. CPX &73.... B|
000002a0  45 51 20 65 6e 64 0d 01  c2 10 20 49 4e 58 3a 53  |EQ end.... INX:S|
000002b0  54 58 20 26 37 31 0d 01  cc 0e 20 4a 4d 50 20 6c  |TX &71.... JMP l|
000002c0  6f 6f 70 33 0d 01 d6 07  20 5d ed 0d 01 e0 06 20  |oop3.... ]..... |
000002d0  e1 0d 01 ea 06 20 3a 0d  01 f4 09 20 dd f2 67 6f  |..... :.... ..go|
000002e0  0d 01 fe 08 20 54 3d 30  0d 02 08 12 20 ef 20 32  |.... T=0.... . 2|
000002f0  39 2c 36 34 30 3b 31 32  38 3b 0d 02 12 06 20 f5  |9,640;128;.... .|
00000300  0d 02 1c 0c 20 54 3d 54  2b 31 2e 35 0d 02 26 0f  |.... T=T+1.5..&.|
00000310  20 e3 20 4e 25 3d 30 20  b8 20 32 0d 02 30 29 20  | . N%=0 . 2..0) |
00000320  f4 20 50 52 49 4e 54 54  2a 46 25 28 4e 25 29 2c  |. PRINTT*F%(N%),|
00000330  54 2a 47 25 28 4e 25 29  3a 4e 45 58 54 3a 55 4e  |T*G%(N%):NEXT:UN|
00000340  54 49 4c 30 0d 02 3a 23  20 58 25 28 4e 25 29 3d  |TIL0..:# X%(N%)=|
00000350  43 28 28 54 2a 46 25 28  4e 25 29 29 20 83 20 33  |C((T*F%(N%)) . 3|
00000360  36 30 29 2a 31 32 38 0d  02 44 23 20 59 25 28 4e  |60)*128..D# Y%(N|
00000370  25 29 3d 43 28 28 54 2a  47 25 28 4e 25 29 29 20  |%)=C((T*G%(N%)) |
00000380  83 20 33 36 30 29 2a 31  32 38 0d 02 4e 06 20 ed  |. 360)*128..N. .|
00000390  0d 02 58 15 20 f2 74 72  69 73 3a f2 63 6f 70 79  |..X. .tris:.copy|
000003a0  69 6e 3a fd 30 0d 02 62  12 20 ec 20 58 25 28 32  |in:.0..b. . X%(2|
000003b0  29 2c 59 25 28 32 29 0d  02 6c 0f 20 e3 20 4e 25  |),Y%(2)..l. . N%|
000003c0  3d 30 20 b8 20 32 0d 02  76 14 20 df 20 58 25 28  |=0 . 2..v. . X%(|
000003d0  4e 25 29 2c 59 25 28 4e  25 29 0d 02 80 06 20 ed  |N%),Y%(N%).... .|
000003e0  0d 02 8a 14 20 ec 20 2d  58 25 28 32 29 2c 2d 59  |.... . -X%(2),-Y|
000003f0  25 28 32 29 0d 02 94 0f  20 e3 20 4e 25 3d 30 20  |%(2).... . N%=0 |
00000400  b8 20 32 0d 02 9e 16 20  df 20 2d 58 25 28 4e 25  |. 2.... . -X%(N%|
00000410  29 2c 2d 59 25 28 4e 25  29 0d 02 a8 06 20 ed 0d  |),-Y%(N%).... ..|
00000420  02 b2 13 20 ec 20 2d 59  25 28 32 29 2c 58 25 28  |... . -Y%(2),X%(|
00000430  32 29 0d 02 bc 0f 20 e3  20 4e 25 3d 30 20 b8 20  |2).... . N%=0 . |
00000440  32 0d 02 c6 15 20 df 20  2d 59 25 28 4e 25 29 2c  |2.... . -Y%(N%),|
00000450  58 25 28 4e 25 29 0d 02  d0 06 20 ed 0d 02 da 13  |X%(N%).... .....|
00000460  20 ec 20 59 25 28 32 29  2c 2d 58 25 28 32 29 0d  | . Y%(2),-X%(2).|
00000470  02 e4 0f 20 e3 20 4e 25  3d 30 20 b8 20 32 0d 02  |... . N%=0 . 2..|
00000480  ee 15 20 df 20 59 25 28  4e 25 29 2c 2d 58 25 28  |.. . Y%(N%),-X%(|
00000490  4e 25 29 0d 02 f8 06 20  ed 0d 03 02 0c 20 f2 63  |N%).... ..... .c|
000004a0  6f 70 79 69 6e 0d 03 0c  07 20 fd 30 0d 03 16 06  |opyin.... .0....|
000004b0  20 e1 0d 03 20 06 20 3a  0d 03 2a 0d 20 dd f2 63  | ... . :..*. ..c|
000004c0  6f 70 79 69 6e 0d 03 34  13 20 21 26 37 30 3d 26  |opyin..4. !&70=&|
000004d0  37 46 46 46 36 43 30 30  0d 03 3e 0f 20 21 26 37  |7FFF6C00..>. !&7|
000004e0  34 3d 26 33 30 30 30 0d  03 48 0b 20 d6 20 63 6f  |4=&3000..H. . co|
000004f0  70 79 0d 03 52 13 20 21  26 37 30 3d 26 37 46 46  |py..R. !&70=&7FF|
00000500  46 36 43 30 30 0d 03 5c  0c 20 d6 20 62 6c 61 6e  |F6C00..\. . blan|
00000510  6b 0d 03 66 06 20 e1 0d  03 70 06 20 3a 0d 03 7a  |k..f. ...p. :..z|
00000520  0b 20 dd f2 74 72 69 73  0d 03 84 12 20 ec 20 58  |. ..tris.... . X|
00000530  25 28 32 29 2c 59 25 28  32 29 0d 03 8e 12 20 ec  |%(2),Y%(2).... .|
00000540  20 58 25 28 30 29 2c 59  25 28 30 29 0d 03 98 0a  | X%(0),Y%(0)....|
00000550  20 e6 20 30 2c 31 0d 03  a2 15 20 f0 20 38 35 2c  | . 0,1.... . 85,|
00000560  58 25 28 31 29 2c 59 25  28 31 29 0d 03 ac 14 20  |X%(1),Y%(1).... |
00000570  ec 20 2d 58 25 28 32 29  2c 2d 59 25 28 32 29 0d  |. -X%(2),-Y%(2).|
00000580  03 b6 14 20 ec 20 2d 58  25 28 30 29 2c 2d 59 25  |... . -X%(0),-Y%|
00000590  28 30 29 0d 03 c0 0a 20  e6 20 30 2c 32 0d 03 ca  |(0).... . 0,2...|
000005a0  17 20 f0 20 38 35 2c 2d  58 25 28 31 29 2c 2d 59  |. . 85,-X%(1),-Y|
000005b0  25 28 31 29 0d 03 d4 13  20 ec 20 59 25 28 32 29  |%(1).... . Y%(2)|
000005c0  2c 2d 58 25 28 32 29 0d  03 de 13 20 ec 20 59 25  |,-X%(2).... . Y%|
000005d0  28 30 29 2c 2d 58 25 28  30 29 0d 03 e8 0a 20 e6  |(0),-X%(0).... .|
000005e0  20 30 2c 33 0d 03 f2 16  20 f0 20 38 35 2c 59 25  | 0,3.... . 85,Y%|
000005f0  28 31 29 2c 2d 58 25 28  31 29 0d 03 fc 13 20 ec  |(1),-X%(1).... .|
00000600  20 2d 59 25 28 32 29 2c  58 25 28 32 29 0d 04 06  | -Y%(2),X%(2)...|
00000610  13 20 ec 20 2d 59 25 28  30 29 2c 58 25 28 30 29  |. . -Y%(0),X%(0)|
00000620  0d 04 10 0a 20 e6 20 30  2c 34 0d 04 1a 16 20 f0  |.... . 0,4.... .|
00000630  20 38 35 2c 2d 59 25 28  31 29 2c 58 25 28 31 29  | 85,-Y%(1),X%(1)|
00000640  0d 04 24 06 20 e1 0d ff                           |..$. ...|
00000648

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .