Home » Personal collection » Acorn ADFS disks » Electron » Utilities_2.ADF » GRAPHICS/MovingCheq

GRAPHICS/MovingCheq

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 » Utilities_2.ADF
Filename: GRAPHICS/MovingCheq
Read OK: ✔
File size: 0359 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

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

File contents
   10REM CHEGUER
   20REM ELBUG MARCH 1984
   60:
  100MODE 2:ON ERROR GOTO 530
  110J%=64:A$="ELBUG  "
  120VDU23;11,0;0;0;0
  130COLOUR7:COLOUR143:VDU19,15,0;0;12
  140X%=640:Y%=640:R=640:Y=Y%:C%=-1
  150FOR F=1TO6STEP0.03
  160C%=C%+1:C%=C%-(C%=7):IF C%=15:C%=0
  170GCOL0,128+C%:L=Y:Y=Y%/F
  180VDU24,0;Y%-L;1279;Y%-Y;:CLG
  190NEXT:VDU26:GCOL3,8
  200:
  210FOR F%=-640TO 639 STEP J%
  220MOVE 640+F%,Y%-Y:X1%=640+F%*4
  230MOVE X1%,0:F%=F%+J%:X2%=640+F%
  240Y2%=Y%-Y:PLOT85,X2%,Y2%
  250PLOT85,640+F%*4,0
  260MOVE X1%,0:DRAWX2%,Y2%
  270NEXT:GCOL0,7
  280:
  290FOR C=1TO4 STEP 3
  300FOR I=0 TO PI STEP PI/C/32
  310X1=X%+R*COS(I)/C:Y1=Y%+R*SIN(I)/C
  320MOVE X%,Y%-Y:DRAWX1,Y1-Y
  330NEXT I,C:PRINTTAB(0,9);
  340:
  350FOR I%= 1 TO 3:FOR F%=1TO LEN(A$)
  360PRINT MID$(A$,F%,1);:PROCspeed
  370NEXT F%,I%
  380REPEAT:PROCspeed:UNTIL FALSE
  390:
  400DEFPROCspeed
  410FOR A%=6TO0STEP-1 
  420VDU19,A%,7;0;:VDU19,A%+8,0;0;
  430PROCW:NEXT
  440FOR A%=14 TO 8 STEP -1
  450VDU19,A%,7;0;:VDU19,A%-8,0;0;
  460PROCW:NEXT
  470ENDPROC
  480:
  490DEFPROCW
  500T%=TIME:REPEAT UNTIL TIME-T%>1 
  510ENDPROC
  520:
  530ON ERROR OFF:MODE6
  540IF ERR<>17 0THEN REPORT:PRINT" at line ";ERL
  550END



� CHEGUER
� ELBUG MARCH 1984
<:
d� 2:� � � �TRB
nJ%=64:A$="ELBUG  "
x�23;11,0;0;0;0
��7:�143:�19,15,0;0;12
�"X%=640:Y%=640:R=640:Y=Y%:C%=-1
�� F=1�6�0.03
�%C%=C%+1:C%=C%-(C%=7):� C%=15:C%=0
��0,128+C%:L=Y:Y=Y%/F
��24,0;Y%-L;1279;Y%-Y;:�
��:�26:�3,8
�:
�� F%=-640� 639 � J%
�� 640+F%,Y%-Y:X1%=640+F%*4
�� X1%,0:F%=F%+J%:X2%=640+F%
�Y2%=Y%-Y:�85,X2%,Y2%
��85,640+F%*4,0
� X1%,0:�X2%,Y2%

�:�0,7
:
"� C=1�4 � 3
,� I=0 � � � �/C/32
6!X1=X%+R*�(I)/C:Y1=Y%+R*�(I)/C
@� X%,Y%-Y:�X1,Y1-Y
J� I,C:�0,9);
T:
^� I%= 1 � 3:� F%=1� �(A$)
h� �A$,F%,1);:�speed
r� F%,I%
|�:�speed:� �
�:
���speed
�� A%=6�0�-1 
��19,A%,7;0;:�19,A%+8,0;0;
��W:�
�� A%=14 � 8 � -1
��19,A%,7;0;:�19,A%-8,0;0;
��W:�
��
�:
���W
�T%=�:� � �-T%>1 
��
:
� � �:�6
� �<>17 0� �:�" at line ";�
&�
�
00000000  0d 00 0a 0d f4 20 43 48  45 47 55 45 52 0d 00 14  |..... CHEGUER...|
00000010  16 f4 20 45 4c 42 55 47  20 4d 41 52 43 48 20 31  |.. ELBUG MARCH 1|
00000020  39 38 34 0d 00 3c 05 3a  0d 00 64 12 eb 20 32 3a  |984..<.:..d.. 2:|
00000030  ee 20 85 20 e5 20 8d 54  52 42 0d 00 6e 16 4a 25  |. . . .TRB..n.J%|
00000040  3d 36 34 3a 41 24 3d 22  45 4c 42 55 47 20 20 22  |=64:A$="ELBUG  "|
00000050  0d 00 78 12 ef 32 33 3b  31 31 2c 30 3b 30 3b 30  |..x..23;11,0;0;0|
00000060  3b 30 0d 00 82 19 fb 37  3a fb 31 34 33 3a ef 31  |;0.....7:.143:.1|
00000070  39 2c 31 35 2c 30 3b 30  3b 31 32 0d 00 8c 22 58  |9,15,0;0;12..."X|
00000080  25 3d 36 34 30 3a 59 25  3d 36 34 30 3a 52 3d 36  |%=640:Y%=640:R=6|
00000090  34 30 3a 59 3d 59 25 3a  43 25 3d 2d 31 0d 00 96  |40:Y=Y%:C%=-1...|
000000a0  10 e3 20 46 3d 31 b8 36  88 30 2e 30 33 0d 00 a0  |.. F=1.6.0.03...|
000000b0  25 43 25 3d 43 25 2b 31  3a 43 25 3d 43 25 2d 28  |%C%=C%+1:C%=C%-(|
000000c0  43 25 3d 37 29 3a e7 20  43 25 3d 31 35 3a 43 25  |C%=7):. C%=15:C%|
000000d0  3d 30 0d 00 aa 18 e6 30  2c 31 32 38 2b 43 25 3a  |=0.....0,128+C%:|
000000e0  4c 3d 59 3a 59 3d 59 25  2f 46 0d 00 b4 1b ef 32  |L=Y:Y=Y%/F.....2|
000000f0  34 2c 30 3b 59 25 2d 4c  3b 31 32 37 39 3b 59 25  |4,0;Y%-L;1279;Y%|
00000100  2d 59 3b 3a da 0d 00 be  0e ed 3a ef 32 36 3a e6  |-Y;:......:.26:.|
00000110  33 2c 38 0d 00 c8 05 3a  0d 00 d2 17 e3 20 46 25  |3,8....:..... F%|
00000120  3d 2d 36 34 30 b8 20 36  33 39 20 88 20 4a 25 0d  |=-640. 639 . J%.|
00000130  00 dc 1e ec 20 36 34 30  2b 46 25 2c 59 25 2d 59  |.... 640+F%,Y%-Y|
00000140  3a 58 31 25 3d 36 34 30  2b 46 25 2a 34 0d 00 e6  |:X1%=640+F%*4...|
00000150  1f ec 20 58 31 25 2c 30  3a 46 25 3d 46 25 2b 4a  |.. X1%,0:F%=F%+J|
00000160  25 3a 58 32 25 3d 36 34  30 2b 46 25 0d 00 f0 18  |%:X2%=640+F%....|
00000170  59 32 25 3d 59 25 2d 59  3a f0 38 35 2c 58 32 25  |Y2%=Y%-Y:.85,X2%|
00000180  2c 59 32 25 0d 00 fa 12  f0 38 35 2c 36 34 30 2b  |,Y2%.....85,640+|
00000190  46 25 2a 34 2c 30 0d 01  04 14 ec 20 58 31 25 2c  |F%*4,0..... X1%,|
000001a0  30 3a df 58 32 25 2c 59  32 25 0d 01 0e 0a ed 3a  |0:.X2%,Y2%.....:|
000001b0  e6 30 2c 37 0d 01 18 05  3a 0d 01 22 0f e3 20 43  |.0,7....:..".. C|
000001c0  3d 31 b8 34 20 88 20 33  0d 01 2c 16 e3 20 49 3d  |=1.4 . 3..,.. I=|
000001d0  30 20 b8 20 af 20 88 20  af 2f 43 2f 33 32 0d 01  |0 . . . ./C/32..|
000001e0  36 21 58 31 3d 58 25 2b  52 2a 9b 28 49 29 2f 43  |6!X1=X%+R*.(I)/C|
000001f0  3a 59 31 3d 59 25 2b 52  2a b5 28 49 29 2f 43 0d  |:Y1=Y%+R*.(I)/C.|
00000200  01 40 16 ec 20 58 25 2c  59 25 2d 59 3a df 58 31  |.@.. X%,Y%-Y:.X1|
00000210  2c 59 31 2d 59 0d 01 4a  11 ed 20 49 2c 43 3a f1  |,Y1-Y..J.. I,C:.|
00000220  8a 30 2c 39 29 3b 0d 01  54 05 3a 0d 01 5e 1d e3  |.0,9);..T.:..^..|
00000230  20 49 25 3d 20 31 20 b8  20 33 3a e3 20 46 25 3d  | I%= 1 . 3:. F%=|
00000240  31 b8 20 a9 28 41 24 29  0d 01 68 17 f1 20 c1 41  |1. .(A$)..h.. .A|
00000250  24 2c 46 25 2c 31 29 3b  3a f2 73 70 65 65 64 0d  |$,F%,1);:.speed.|
00000260  01 72 0b ed 20 46 25 2c  49 25 0d 01 7c 10 f5 3a  |.r.. F%,I%..|..:|
00000270  f2 73 70 65 65 64 3a fd  20 a3 0d 01 86 05 3a 0d  |.speed:. .....:.|
00000280  01 90 0b dd f2 73 70 65  65 64 0d 01 9a 10 e3 20  |.....speed..... |
00000290  41 25 3d 36 b8 30 88 2d  31 20 0d 01 a4 1d ef 31  |A%=6.0.-1 .....1|
000002a0  39 2c 41 25 2c 37 3b 30  3b 3a ef 31 39 2c 41 25  |9,A%,7;0;:.19,A%|
000002b0  2b 38 2c 30 3b 30 3b 0d  01 ae 08 f2 57 3a ed 0d  |+8,0;0;.....W:..|
000002c0  01 b8 14 e3 20 41 25 3d  31 34 20 b8 20 38 20 88  |.... A%=14 . 8 .|
000002d0  20 2d 31 0d 01 c2 1d ef  31 39 2c 41 25 2c 37 3b  | -1.....19,A%,7;|
000002e0  30 3b 3a ef 31 39 2c 41  25 2d 38 2c 30 3b 30 3b  |0;:.19,A%-8,0;0;|
000002f0  0d 01 cc 08 f2 57 3a ed  0d 01 d6 05 e1 0d 01 e0  |.....W:.........|
00000300  05 3a 0d 01 ea 07 dd f2  57 0d 01 f4 14 54 25 3d  |.:......W....T%=|
00000310  91 3a f5 20 fd 20 91 2d  54 25 3e 31 20 0d 01 fe  |.:. . .-T%>1 ...|
00000320  05 e1 0d 02 08 05 3a 0d  02 12 0c ee 20 85 20 87  |......:..... . .|
00000330  3a eb 36 0d 02 1c 1f e7  20 9f 3c 3e 31 37 20 30  |:.6..... .<>17 0|
00000340  8c 20 f6 3a f1 22 20 61  74 20 6c 69 6e 65 20 22  |. .:." at line "|
00000350  3b 9e 0d 02 26 05 e0 0d  ff                       |;...&....|
00000359
GRAPHICS/MovingCheq.m0
GRAPHICS/MovingCheq.m1
GRAPHICS/MovingCheq.m2
GRAPHICS/MovingCheq.m4
GRAPHICS/MovingCheq.m5

© Dominic Ford 2021–2024.

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