Home » Archimedes archive » Micro User » MU 1991-10.adf » Listings » Routines/TxtFade
Routines/TxtFade
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/TxtFade |
| Read OK: | ✔ |
| File size: | 025C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Text Fader Mark II 20REM by David Williams 30REM (c) The Micro User 40INPUT '"Which mode? "mode:MODE mode:VDU 23,1;0;0;0;0;19,7;0;0:DIM C%(7):FOR loop=0 TO 7:READ C%(loop):NEXT 50PRINT '"This program allows" 60PRINT '"a full screen of" 70PRINT '"text to be faded on" 80PRINT '"or off in one go in" 90PRINT '"any screen Mode" 100PRINT '"other than the" 110PRINT '"teletext Mode 7." 120PRINT '''"PRESS ANY KEY." 130PROCcol(1):REPEAT UNTIL GET:PROCcol(0):CLS:PRINT '"That's all folks!":PROCcol(1):VDU 23,1,1;0;0;0;:END 140DEF PROCcol(A%):IF A%=0 THEN loop=7 ELSE loop=0 150REPEAT:VDU 19,7,C%(loop);0;:T%=TIME+5:REPEAT UNTIL TIME>T%:IF A%=0 THEN loop=loop-1 ELSE loop=loop+1 160UNTIL loop=8 OR loop=-1:ENDPROC 170DATA 0,4,1,5,2,6,3,7
� Text Fader Mark II � by David Williams � (c) The Micro User (Z� '"Which mode? "mode:� mode:� 23,1;0;0;0;0;19,7;0;0:� C%(7):� loop=0 � 7:� C%(loop):� 2 � '"This program allows" <� '"a full screen of" F � '"text to be faded on" P � '"or off in one go in" Z� '"any screen Mode" d� '"other than the" n� '"teletext Mode 7." x� '''"PRESS ANY KEY." �L�col(1):� � �:�col(0):�:� '"That's all folks!":�col(1):� 23,1,1;0;0;0;:� �'� �col(A%):� A%=0 � loop=7 � loop=0 �K�:� 19,7,C%(loop);0;:T%=�+5:� � �>T%:� A%=0 � loop=loop-1 � loop=loop+1 �� loop=8 � loop=-1:� �� 0,4,1,5,2,6,3,7 �
00000000 0d 00 0a 18 f4 20 54 65 78 74 20 46 61 64 65 72 |..... Text Fader| 00000010 20 4d 61 72 6b 20 49 49 0d 00 14 17 f4 20 62 79 | Mark II..... by| 00000020 20 44 61 76 69 64 20 57 69 6c 6c 69 61 6d 73 0d | David Williams.| 00000030 00 1e 18 f4 20 28 63 29 20 54 68 65 20 4d 69 63 |.... (c) The Mic| 00000040 72 6f 20 55 73 65 72 0d 00 28 5a e8 20 27 22 57 |ro User..(Z. '"W| 00000050 68 69 63 68 20 6d 6f 64 65 3f 20 22 6d 6f 64 65 |hich mode? "mode| 00000060 3a eb 20 6d 6f 64 65 3a ef 20 32 33 2c 31 3b 30 |:. mode:. 23,1;0| 00000070 3b 30 3b 30 3b 30 3b 31 39 2c 37 3b 30 3b 30 3a |;0;0;0;19,7;0;0:| 00000080 de 20 43 25 28 37 29 3a e3 20 6c 6f 6f 70 3d 30 |. C%(7):. loop=0| 00000090 20 b8 20 37 3a f3 20 43 25 28 6c 6f 6f 70 29 3a | . 7:. C%(loop):| 000000a0 ed 0d 00 32 1c f1 20 27 22 54 68 69 73 20 70 72 |...2.. '"This pr| 000000b0 6f 67 72 61 6d 20 61 6c 6c 6f 77 73 22 0d 00 3c |ogram allows"..<| 000000c0 19 f1 20 27 22 61 20 66 75 6c 6c 20 73 63 72 65 |.. '"a full scre| 000000d0 65 6e 20 6f 66 22 0d 00 46 1c f1 20 27 22 74 65 |en of"..F.. '"te| 000000e0 78 74 20 74 6f 20 62 65 20 66 61 64 65 64 20 6f |xt to be faded o| 000000f0 6e 22 0d 00 50 1c f1 20 27 22 6f 72 20 6f 66 66 |n"..P.. '"or off| 00000100 20 69 6e 20 6f 6e 65 20 67 6f 20 69 6e 22 0d 00 | in one go in"..| 00000110 5a 18 f1 20 27 22 61 6e 79 20 73 63 72 65 65 6e |Z.. '"any screen| 00000120 20 4d 6f 64 65 22 0d 00 64 17 f1 20 27 22 6f 74 | Mode"..d.. '"ot| 00000130 68 65 72 20 74 68 61 6e 20 74 68 65 22 0d 00 6e |her than the"..n| 00000140 19 f1 20 27 22 74 65 6c 65 74 65 78 74 20 4d 6f |.. '"teletext Mo| 00000150 64 65 20 37 2e 22 0d 00 78 19 f1 20 27 27 27 22 |de 7."..x.. '''"| 00000160 50 52 45 53 53 20 41 4e 59 20 4b 45 59 2e 22 0d |PRESS ANY KEY.".| 00000170 00 82 4c f2 63 6f 6c 28 31 29 3a f5 20 fd 20 a5 |..L.col(1):. . .| 00000180 3a f2 63 6f 6c 28 30 29 3a db 3a f1 20 27 22 54 |:.col(0):.:. '"T| 00000190 68 61 74 27 73 20 61 6c 6c 20 66 6f 6c 6b 73 21 |hat's all folks!| 000001a0 22 3a f2 63 6f 6c 28 31 29 3a ef 20 32 33 2c 31 |":.col(1):. 23,1| 000001b0 2c 31 3b 30 3b 30 3b 30 3b 3a e0 0d 00 8c 27 dd |,1;0;0;0;:....'.| 000001c0 20 f2 63 6f 6c 28 41 25 29 3a e7 20 41 25 3d 30 | .col(A%):. A%=0| 000001d0 20 8c 20 6c 6f 6f 70 3d 37 20 8b 20 6c 6f 6f 70 | . loop=7 . loop| 000001e0 3d 30 0d 00 96 4b f5 3a ef 20 31 39 2c 37 2c 43 |=0...K.:. 19,7,C| 000001f0 25 28 6c 6f 6f 70 29 3b 30 3b 3a 54 25 3d 91 2b |%(loop);0;:T%=.+| 00000200 35 3a f5 20 fd 20 91 3e 54 25 3a e7 20 41 25 3d |5:. . .>T%:. A%=| 00000210 30 20 8c 20 6c 6f 6f 70 3d 6c 6f 6f 70 2d 31 20 |0 . loop=loop-1 | 00000220 8b 20 6c 6f 6f 70 3d 6c 6f 6f 70 2b 31 0d 00 a0 |. loop=loop+1...| 00000230 18 fd 20 6c 6f 6f 70 3d 38 20 84 20 6c 6f 6f 70 |.. loop=8 . loop| 00000240 3d 2d 31 3a e1 0d 00 aa 15 dc 20 30 2c 34 2c 31 |=-1:...... 0,4,1| 00000250 2c 35 2c 32 2c 36 2c 33 2c 37 0d ff |,5,2,6,3,7..| 0000025c
.