Home » Archimedes archive » Micro User » MU 1991-10.adf » Listings » Routines/GraFade
Routines/GraFade
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 » Micro User » MU 1991-10.adf » Listings |
| Filename: | Routines/GraFade |
| Read OK: | ✔ |
| File size: | 01D1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Mode 2 Graphics Fader 20REM By Daniel Doran 30REM (c) The Micro User 40DIM G%(7):FOR I%=1 TO 7:READ G%(I%):NEXT:MODE 2:VDU 23;8202;0;0;0; 50FOR I%=0 TO 250:GCOL 0,RND(7):MOVE RND(1275),RND(1023):DRAW RND(1275),RND(1023):NEXT:PRINT TAB(3,10)"GRAPHICS FADER":B%=GET:PROCfade_off(0):B%=GET:PROCfade_on:END 60DEF PROCfade_off(P%):Q%=0:REPEAT:Q%=Q%+1:FOR I%=Q% TO 7:VDU 19,I%,G%(I%-Q%);0;:NEXT:TIME=0:REPEAT UNTIL TIME>5:UNTIL Q%=7:IF P%<>0 CLS 70ENDPROC 80DEF PROCfade_on:Q%=7:REPEAT:Q%=Q%-1:FOR I%=7 TO Q% STEP-1:VDU 19,G%(I%),G%(I%-Q%);0;:NEXT:TIME=0:REPEAT UNTIL TIME>5:UNTIL Q%=0:ENDPROC 90DATA 4,1,5,2,6,3,7
� Mode 2 Graphics Fader � By Daniel Doran � (c) The Micro User (6� G%(7):� I%=1 � 7:� G%(I%):�:� 2:� 23;8202;0;0;0; 2z� I%=0 � 250:� 0,�(7):� �(1275),�(1023):� �(1275),�(1023):�:� �3,10)"GRAPHICS FADER":B%=�:�fade_off(0):B%=�:�fade_on:� <b� �fade_off(P%):Q%=0:�:Q%=Q%+1:� I%=Q% � 7:� 19,I%,G%(I%-Q%);0;:�:�=0:� � �>5:� Q%=7:� P%<>0 � F� P]� �fade_on:Q%=7:�:Q%=Q%-1:� I%=7 � Q% �-1:� 19,G%(I%),G%(I%-Q%);0;:�:�=0:� � �>5:� Q%=0:� Z� 4,1,5,2,6,3,7 �
00000000 0d 00 0a 1b f4 20 4d 6f 64 65 20 32 20 47 72 61 |..... Mode 2 Gra| 00000010 70 68 69 63 73 20 46 61 64 65 72 0d 00 14 15 f4 |phics Fader.....| 00000020 20 42 79 20 44 61 6e 69 65 6c 20 44 6f 72 61 6e | By Daniel Doran| 00000030 0d 00 1e 18 f4 20 28 63 29 20 54 68 65 20 4d 69 |..... (c) The Mi| 00000040 63 72 6f 20 55 73 65 72 0d 00 28 36 de 20 47 25 |cro User..(6. G%| 00000050 28 37 29 3a e3 20 49 25 3d 31 20 b8 20 37 3a f3 |(7):. I%=1 . 7:.| 00000060 20 47 25 28 49 25 29 3a ed 3a eb 20 32 3a ef 20 | G%(I%):.:. 2:. | 00000070 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b 0d 00 |23;8202;0;0;0;..| 00000080 32 7a e3 20 49 25 3d 30 20 b8 20 32 35 30 3a e6 |2z. I%=0 . 250:.| 00000090 20 30 2c b3 28 37 29 3a ec 20 b3 28 31 32 37 35 | 0,.(7):. .(1275| 000000a0 29 2c b3 28 31 30 32 33 29 3a df 20 b3 28 31 32 |),.(1023):. .(12| 000000b0 37 35 29 2c b3 28 31 30 32 33 29 3a ed 3a f1 20 |75),.(1023):.:. | 000000c0 8a 33 2c 31 30 29 22 47 52 41 50 48 49 43 53 20 |.3,10)"GRAPHICS | 000000d0 46 41 44 45 52 22 3a 42 25 3d a5 3a f2 66 61 64 |FADER":B%=.:.fad| 000000e0 65 5f 6f 66 66 28 30 29 3a 42 25 3d a5 3a f2 66 |e_off(0):B%=.:.f| 000000f0 61 64 65 5f 6f 6e 3a e0 0d 00 3c 62 dd 20 f2 66 |ade_on:...<b. .f| 00000100 61 64 65 5f 6f 66 66 28 50 25 29 3a 51 25 3d 30 |ade_off(P%):Q%=0| 00000110 3a f5 3a 51 25 3d 51 25 2b 31 3a e3 20 49 25 3d |:.:Q%=Q%+1:. I%=| 00000120 51 25 20 b8 20 37 3a ef 20 31 39 2c 49 25 2c 47 |Q% . 7:. 19,I%,G| 00000130 25 28 49 25 2d 51 25 29 3b 30 3b 3a ed 3a d1 3d |%(I%-Q%);0;:.:.=| 00000140 30 3a f5 20 fd 20 91 3e 35 3a fd 20 51 25 3d 37 |0:. . .>5:. Q%=7| 00000150 3a e7 20 50 25 3c 3e 30 20 db 0d 00 46 05 e1 0d |:. P%<>0 ...F...| 00000160 00 50 5d dd 20 f2 66 61 64 65 5f 6f 6e 3a 51 25 |.P]. .fade_on:Q%| 00000170 3d 37 3a f5 3a 51 25 3d 51 25 2d 31 3a e3 20 49 |=7:.:Q%=Q%-1:. I| 00000180 25 3d 37 20 b8 20 51 25 20 88 2d 31 3a ef 20 31 |%=7 . Q% .-1:. 1| 00000190 39 2c 47 25 28 49 25 29 2c 47 25 28 49 25 2d 51 |9,G%(I%),G%(I%-Q| 000001a0 25 29 3b 30 3b 3a ed 3a d1 3d 30 3a f5 20 fd 20 |%);0;:.:.=0:. . | 000001b0 91 3e 35 3a fd 20 51 25 3d 30 3a e1 0d 00 5a 13 |.>5:. Q%=0:...Z.| 000001c0 dc 20 34 2c 31 2c 35 2c 32 2c 36 2c 33 2c 37 0d |. 4,1,5,2,6,3,7.| 000001d0 ff |.| 000001d1
.