Home » Archimedes archive » Archimedes World » AW-1993-11.adf » AWNov93 » !AWNov93/Goodies/RISC_OS/DeskApps/!DummyApp/!Run
!AWNov93/Goodies/RISC_OS/DeskApps/!DummyApp/!Run
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 » Archimedes World » AW-1993-11.adf » AWNov93 |
| Filename: | !AWNov93/Goodies/RISC_OS/DeskApps/!DummyApp/!Run |
| Read OK: | ✔ |
| File size: | 01C4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM variable% 256
20MODE MODE
30PRINT "The path name of the double-clicked file is "
40PRINT FNReadSystemVariable("Dummy$File",variable%)
50*Unset Dummy$File
60END
70:
80DEF FNReadSystemVariable(variable$,variable%)
90REM
100REM ----------------------------
110REM Reads the value of a string
120REM system variable
130REM ----------------------------
140REM
150LOCAL len%
160SYS "OS_ReadVarVal",variable$,variable%,256,,3 TO ,,len%
170variable%?len%=13
180=$variable%
190
200
� variable% 256
� �
4� "The path name of the double-clicked file is "
(1� �ReadSystemVariable("Dummy$File",variable%)
2*Unset Dummy$File
<�
F:
P.� �ReadSystemVariable(variable$,variable%)
Z�
d"� ----------------------------
n"� Reads the value of a string
x� system variable
�"� ----------------------------
��
�
� len%
�:ș "OS_ReadVarVal",variable$,variable%,256,,3 � ,,len%
�variable%?len%=13
�=$variable%
�
�
� 00000000 0d 00 0a 13 de 20 76 61 72 69 61 62 6c 65 25 20 |..... variable% |
00000010 32 35 36 0d 00 14 07 eb 20 eb 0d 00 1e 34 f1 20 |256..... ....4. |
00000020 22 54 68 65 20 70 61 74 68 20 6e 61 6d 65 20 6f |"The path name o|
00000030 66 20 74 68 65 20 64 6f 75 62 6c 65 2d 63 6c 69 |f the double-cli|
00000040 63 6b 65 64 20 66 69 6c 65 20 69 73 20 22 0d 00 |cked file is "..|
00000050 28 31 f1 20 a4 52 65 61 64 53 79 73 74 65 6d 56 |(1. .ReadSystemV|
00000060 61 72 69 61 62 6c 65 28 22 44 75 6d 6d 79 24 46 |ariable("Dummy$F|
00000070 69 6c 65 22 2c 76 61 72 69 61 62 6c 65 25 29 0d |ile",variable%).|
00000080 00 32 15 2a 55 6e 73 65 74 20 44 75 6d 6d 79 24 |.2.*Unset Dummy$|
00000090 46 69 6c 65 0d 00 3c 05 e0 0d 00 46 05 3a 0d 00 |File..<....F.:..|
000000a0 50 2e dd 20 a4 52 65 61 64 53 79 73 74 65 6d 56 |P.. .ReadSystemV|
000000b0 61 72 69 61 62 6c 65 28 76 61 72 69 61 62 6c 65 |ariable(variable|
000000c0 24 2c 76 61 72 69 61 62 6c 65 25 29 0d 00 5a 05 |$,variable%)..Z.|
000000d0 f4 0d 00 64 22 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d |...d". ---------|
000000e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000000f0 2d 2d 2d 0d 00 6e 22 f4 20 20 52 65 61 64 73 20 |---..n". Reads |
00000100 74 68 65 20 76 61 6c 75 65 20 6f 66 20 61 20 73 |the value of a s|
00000110 74 72 69 6e 67 0d 00 78 16 f4 20 20 73 79 73 74 |tring..x.. syst|
00000120 65 6d 20 76 61 72 69 61 62 6c 65 0d 00 82 22 f4 |em variable...".|
00000130 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------------|
00000140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 8c |-------------...|
00000150 05 f4 0d 00 96 0a ea 20 6c 65 6e 25 0d 00 a0 3a |....... len%...:|
00000160 c8 99 20 22 4f 53 5f 52 65 61 64 56 61 72 56 61 |.. "OS_ReadVarVa|
00000170 6c 22 2c 76 61 72 69 61 62 6c 65 24 2c 76 61 72 |l",variable$,var|
00000180 69 61 62 6c 65 25 2c 32 35 36 2c 2c 33 20 b8 20 |iable%,256,,3 . |
00000190 2c 2c 6c 65 6e 25 0d 00 aa 15 76 61 72 69 61 62 |,,len%....variab|
000001a0 6c 65 25 3f 6c 65 6e 25 3d 31 33 0d 00 b4 0f 3d |le%?len%=13....=|
000001b0 24 76 61 72 69 61 62 6c 65 25 0d 00 be 04 0d 00 |$variable%......|
000001c0 c8 04 0d ff |....|
000001c4 
.