Home » Archimedes archive » Acorn User » AU 1997-06 B.adf » Extras » RiscUtils/!RuInstall/Install/User_Area/Demo's/!SpeedTest/PrintTime
RiscUtils/!RuInstall/Install/User_Area/Demo's/!SpeedTest/PrintTime
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 User » AU 1997-06 B.adf » Extras |
| Filename: | RiscUtils/!RuInstall/Install/User_Area/Demo's/!SpeedTest/PrintTime |
| Read OK: | ✔ |
| File size: | 0137 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10F=TIME 20 30*IF Check_KeyBoardState_Version="Fast" THEN SET Check_KeyBoardState_Version FastEVALEVAL 40OSCLI "ECHO �Check_KeyboardState -<Check_KeyBoardState_Version>��"+STR$(F)+"�������������������� "+STR$(F/40) 50 60A=200:Y=25 70RECTANGLE 0,340+Y,1025+A,280 80LINE 645+A,340+Y,645+A,620+Y 90LINE 265+A,340+Y,265+A,620+Y 100 110
F=� V*IF Check_KeyBoardState_Version="Fast" THEN SET Check_KeyBoardState_Version Fast�� (g� "ECHO �Check_KeyboardState -<Check_KeyBoardState_Version>��"+�(F)+"�������������������� "+�(F/40) 2 <A=200:Y=25 Fȓ 0,340+Y,1025+A,280 P � 645+A,340+Y,645+A,620+Y Z � 265+A,340+Y,265+A,620+Y d n �
00000000 0d 00 0a 07 46 3d 91 0d 00 14 04 0d 00 1e 56 2a |....F=........V*| 00000010 49 46 20 43 68 65 63 6b 5f 4b 65 79 42 6f 61 72 |IF Check_KeyBoar| 00000020 64 53 74 61 74 65 5f 56 65 72 73 69 6f 6e 3d 22 |dState_Version="| 00000030 46 61 73 74 22 20 54 48 45 4e 20 53 45 54 20 43 |Fast" THEN SET C| 00000040 68 65 63 6b 5f 4b 65 79 42 6f 61 72 64 53 74 61 |heck_KeyBoardSta| 00000050 74 65 5f 56 65 72 73 69 6f 6e 20 46 61 73 74 a0 |te_Version Fast.| 00000060 a0 0d 00 28 67 ff 20 22 45 43 48 4f 20 a0 43 68 |...(g. "ECHO .Ch| 00000070 65 63 6b 5f 4b 65 79 62 6f 61 72 64 53 74 61 74 |eck_KeyboardStat| 00000080 65 20 2d 3c 43 68 65 63 6b 5f 4b 65 79 42 6f 61 |e -<Check_KeyBoa| 00000090 72 64 53 74 61 74 65 5f 56 65 72 73 69 6f 6e 3e |rdState_Version>| 000000a0 a0 a0 22 2b c3 28 46 29 2b 22 a0 a0 a0 a0 a0 a0 |.."+.(F)+"......| 000000b0 a0 a0 a0 a0 a0 a0 a0 a0 a0 a0 a0 a0 a0 a0 20 22 |.............. "| 000000c0 2b c3 28 46 2f 34 30 29 0d 00 32 04 0d 00 3c 0e |+.(F/40)..2...<.| 000000d0 41 3d 32 30 30 3a 59 3d 32 35 0d 00 46 19 c8 93 |A=200:Y=25..F...| 000000e0 20 30 2c 33 34 30 2b 59 2c 31 30 32 35 2b 41 2c | 0,340+Y,1025+A,| 000000f0 32 38 30 0d 00 50 1d 86 20 36 34 35 2b 41 2c 33 |280..P.. 645+A,3| 00000100 34 30 2b 59 2c 36 34 35 2b 41 2c 36 32 30 2b 59 |40+Y,645+A,620+Y| 00000110 0d 00 5a 1d 86 20 32 36 35 2b 41 2c 33 34 30 2b |..Z.. 265+A,340+| 00000120 59 2c 32 36 35 2b 41 2c 36 32 30 2b 59 0d 00 64 |Y,265+A,620+Y..d| 00000130 04 0d 00 6e 04 0d ff |...n...| 00000137
.