Home » Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/ExtraBar/!ExLibrary/Utils/!Wait/Wait
DesktopPD/ExtraBar/!ExLibrary/Utils/!Wait/Wait
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 1998-09.adf » Features |
| Filename: | DesktopPD/ExtraBar/!ExLibrary/Utils/!Wait/Wait |
| Read OK: | ✔ |
| File size: | 0119 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1ON ERROR REPORT:PRINT ERL:END
2
3DIM result% 512
4
5SYS "OS_GetEnv" TO command$
6I%=INSTR(command$," -quit ")
7tail$=MID$(command$,INSTR(command$," ",I%+LEN(" -quit "))+1)
8IF tail$ <> "" THEN
9 t% = TIME
10 REPEAT:UNTIL TIME-t% > EVAL(tail$)
11ELSE
12 *Error No wait time defined. Syntax: Wait <centi seconds>
13ENDIF
� � �:� �:�
� result% 512
ș "OS_GetEnv" � command$
I%=�command$," -quit ")
5tail$=�command$,�command$," ",I%+�(" -quit "))+1)
� tail$ <> "" �
t% = �
�:� �-t% > �(tail$)
�
? *Error No wait time defined. Syntax: Wait <centi seconds>
�
� 00000000 0d 00 01 0f ee 20 85 20 f6 3a f1 20 9e 3a e0 0d |..... . .:. .:..|
00000010 00 02 05 20 0d 00 03 11 de 20 72 65 73 75 6c 74 |... ..... result|
00000020 25 20 35 31 32 0d 00 04 04 0d 00 05 1d c8 99 20 |% 512.......... |
00000030 22 4f 53 5f 47 65 74 45 6e 76 22 20 b8 20 63 6f |"OS_GetEnv" . co|
00000040 6d 6d 61 6e 64 24 0d 00 06 1b 49 25 3d a7 63 6f |mmand$....I%=.co|
00000050 6d 6d 61 6e 64 24 2c 22 20 2d 71 75 69 74 20 22 |mmand$," -quit "|
00000060 29 0d 00 07 35 74 61 69 6c 24 3d c1 63 6f 6d 6d |)...5tail$=.comm|
00000070 61 6e 64 24 2c a7 63 6f 6d 6d 61 6e 64 24 2c 22 |and$,.command$,"|
00000080 20 22 2c 49 25 2b a9 28 22 20 2d 71 75 69 74 20 | ",I%+.(" -quit |
00000090 22 29 29 2b 31 29 0d 00 08 13 e7 20 74 61 69 6c |"))+1)..... tail|
000000a0 24 20 3c 3e 20 22 22 20 8c 0d 00 09 0c 20 20 74 |$ <> "" ..... t|
000000b0 25 20 3d 20 91 0d 00 0a 19 20 20 f5 3a fd 20 91 |% = ..... .:. .|
000000c0 2d 74 25 20 3e 20 a0 28 74 61 69 6c 24 29 0d 00 |-t% > .(tail$)..|
000000d0 0b 05 cc 0d 00 0c 3f 20 20 2a 45 72 72 6f 72 20 |......? *Error |
000000e0 4e 6f 20 77 61 69 74 20 74 69 6d 65 20 64 65 66 |No wait time def|
000000f0 69 6e 65 64 2e 20 53 79 6e 74 61 78 3a 20 57 61 |ined. Syntax: Wa|
00000100 69 74 20 3c 63 65 6e 74 69 20 73 65 63 6f 6e 64 |it <centi second|
00000110 73 3e 0d 00 0d 05 cd 0d ff |s>.......|
00000119 
.