Home » Archimedes archive » Acorn User » AU 1998-08.adf » Regulars » StarInfo/Vibe/GETVAR
StarInfo/Vibe/GETVAR
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-08.adf » Regulars |
| Filename: | StarInfo/Vibe/GETVAR |
| Read OK: | ✔ |
| File size: | 0158 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > GETVAR 20 30DIM VL 255 40 50NAME$="Obey$Dir":PATH$=FNGETVAR(NAME$):PRINTNAME$" = "PATH$ 60NAME$="Sys$Time":TIME$=FNGETVAR(NAME$):PRINTNAME$" = "TIME$ 70NAME$="Sys$Year":YEAR$=FNGETVAR(NAME$):PRINTNAME$" = "YEAR$ 80END 90 100DEFFNGETVAR(NAME$) 110LOCAL LG%,CT$ 120LG%=0:$VL=STRING$(255," ") 130SYS"OS_ReadVarVal",NAME$,VL,255,0,3 TO ,,LG% 140CT$=$VL:CT$=LEFT$(CT$,LG%):=CT$
� > GETVAR � VL 255 ( 2:NAME$="Obey$Dir":PATH$=�GETVAR(NAME$):�NAME$" = "PATH$ <4NAME$="Sys$Time":�$=�GETVAR(NAME$):�NAME$" = "�$ F:NAME$="Sys$Year":YEAR$=�GETVAR(NAME$):�NAME$" = "YEAR$ P� Z dݤGETVAR(NAME$) n � LG%,CT$ xLG%=0:$VL=�255," ") �.ș"OS_ReadVarVal",NAME$,VL,255,0,3 � ,,LG% � CT$=$VL:CT$=�CT$,LG%):=CT$ �
00000000 0d 00 0a 0e f4 20 3e 20 47 45 54 56 41 52 0d 00 |..... > GETVAR..| 00000010 14 04 0d 00 1e 0c de 20 56 4c 20 32 35 35 0d 00 |....... VL 255..| 00000020 28 04 0d 00 32 3a 4e 41 4d 45 24 3d 22 4f 62 65 |(...2:NAME$="Obe| 00000030 79 24 44 69 72 22 3a 50 41 54 48 24 3d a4 47 45 |y$Dir":PATH$=.GE| 00000040 54 56 41 52 28 4e 41 4d 45 24 29 3a f1 4e 41 4d |TVAR(NAME$):.NAM| 00000050 45 24 22 20 3d 20 22 50 41 54 48 24 0d 00 3c 34 |E$" = "PATH$..<4| 00000060 4e 41 4d 45 24 3d 22 53 79 73 24 54 69 6d 65 22 |NAME$="Sys$Time"| 00000070 3a d1 24 3d a4 47 45 54 56 41 52 28 4e 41 4d 45 |:.$=.GETVAR(NAME| 00000080 24 29 3a f1 4e 41 4d 45 24 22 20 3d 20 22 91 24 |$):.NAME$" = ".$| 00000090 0d 00 46 3a 4e 41 4d 45 24 3d 22 53 79 73 24 59 |..F:NAME$="Sys$Y| 000000a0 65 61 72 22 3a 59 45 41 52 24 3d a4 47 45 54 56 |ear":YEAR$=.GETV| 000000b0 41 52 28 4e 41 4d 45 24 29 3a f1 4e 41 4d 45 24 |AR(NAME$):.NAME$| 000000c0 22 20 3d 20 22 59 45 41 52 24 0d 00 50 05 e0 0d |" = "YEAR$..P...| 000000d0 00 5a 04 0d 00 64 13 dd a4 47 45 54 56 41 52 28 |.Z...d...GETVAR(| 000000e0 4e 41 4d 45 24 29 0d 00 6e 0d ea 20 4c 47 25 2c |NAME$)..n.. LG%,| 000000f0 43 54 24 0d 00 78 17 4c 47 25 3d 30 3a 24 56 4c |CT$..x.LG%=0:$VL| 00000100 3d c4 32 35 35 2c 22 20 22 29 0d 00 82 2e c8 99 |=.255," ")......| 00000110 22 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c |"OS_ReadVarVal",| 00000120 4e 41 4d 45 24 2c 56 4c 2c 32 35 35 2c 30 2c 33 |NAME$,VL,255,0,3| 00000130 20 b8 20 2c 2c 4c 47 25 0d 00 8c 1e 43 54 24 3d | . ,,LG%....CT$=| 00000140 24 56 4c 3a 43 54 24 3d c0 43 54 24 2c 4c 47 25 |$VL:CT$=.CT$,LG%| 00000150 29 3a 3d 43 54 24 0d ff |):=CT$..| 00000158
.