Home » Archimedes archive » Acorn User » AU 1993-09.adf » !Bio_Bio » !Bio/Library/FileLock
!Bio/Library/FileLock
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 1993-09.adf » !Bio_Bio |
| Filename: | !Bio/Library/FileLock |
| Read OK: | ✔ |
| File size: | 01DE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >FileLock (Bio1) 20REM By Duncan Roberts 30REM For use with Bio application 40REM (c) BAU September 1993 50END 60: 70DEF FNfilelock_name="File Protector" 80DEF FNfilelock_args="-in * -results 1" 90DEF FNfilelock_init 100=0 110: 120DEF FNfilelock(in$,RETURN title$,RETURN a$) 130SYS "OS_CLI","Access "+in$+" LWR" 140title$="FileLock" 150a$="File '"+FNleaf_name(in$)+"' locked" 160=0 170: 180DEF FNfilelock_help(window%,icon%) 190IF window%=-1 THEN ="Drag a file to lock it against deletion." THEN =""
� >FileLock (Bio1) � By Duncan Roberts "� For use with Bio application ( � (c) BAU September 1993 2� <: F%� �filelock_name="File Protector" P'� �filelock_args="-in * -results 1" Z� �filelock_init d=0 n: x"� �filelock(in$,� title$,� a$) �$ș "OS_CLI","Access "+in$+" LWR" �title$="FileLock" �*a$="File '"+�leaf_name(in$)+"' locked" �=0 �: �#� �filelock_help(window%,icon%) �D� window%=-1 � ="Drag a file to lock it against deletion." � ="" �
00000000 0d 00 0a 1a f4 20 20 20 20 20 3e 46 69 6c 65 4c |..... >FileL| 00000010 6f 63 6b 20 28 42 69 6f 31 29 0d 00 14 18 f4 20 |ock (Bio1)..... | 00000020 42 79 20 20 44 75 6e 63 61 6e 20 52 6f 62 65 72 |By Duncan Rober| 00000030 74 73 0d 00 1e 22 f4 20 46 6f 72 20 75 73 65 20 |ts...". For use | 00000040 77 69 74 68 20 42 69 6f 20 61 70 70 6c 69 63 61 |with Bio applica| 00000050 74 69 6f 6e 0d 00 28 1c f4 20 28 63 29 20 42 41 |tion..(.. (c) BA| 00000060 55 20 53 65 70 74 65 6d 62 65 72 20 31 39 39 33 |U September 1993| 00000070 0d 00 32 05 e0 0d 00 3c 05 3a 0d 00 46 25 dd 20 |..2....<.:..F%. | 00000080 a4 66 69 6c 65 6c 6f 63 6b 5f 6e 61 6d 65 3d 22 |.filelock_name="| 00000090 46 69 6c 65 20 50 72 6f 74 65 63 74 6f 72 22 0d |File Protector".| 000000a0 00 50 27 dd 20 a4 66 69 6c 65 6c 6f 63 6b 5f 61 |.P'. .filelock_a| 000000b0 72 67 73 3d 22 2d 69 6e 20 2a 20 2d 72 65 73 75 |rgs="-in * -resu| 000000c0 6c 74 73 20 31 22 0d 00 5a 14 dd 20 a4 66 69 6c |lts 1"..Z.. .fil| 000000d0 65 6c 6f 63 6b 5f 69 6e 69 74 0d 00 64 06 3d 30 |elock_init..d.=0| 000000e0 0d 00 6e 05 3a 0d 00 78 22 dd 20 a4 66 69 6c 65 |..n.:..x". .file| 000000f0 6c 6f 63 6b 28 69 6e 24 2c f8 20 74 69 74 6c 65 |lock(in$,. title| 00000100 24 2c f8 20 61 24 29 0d 00 82 24 c8 99 20 22 4f |$,. a$)...$.. "O| 00000110 53 5f 43 4c 49 22 2c 22 41 63 63 65 73 73 20 22 |S_CLI","Access "| 00000120 2b 69 6e 24 2b 22 20 4c 57 52 22 0d 00 8c 15 74 |+in$+" LWR"....t| 00000130 69 74 6c 65 24 3d 22 46 69 6c 65 4c 6f 63 6b 22 |itle$="FileLock"| 00000140 0d 00 96 2a 61 24 3d 22 46 69 6c 65 20 27 22 2b |...*a$="File '"+| 00000150 a4 6c 65 61 66 5f 6e 61 6d 65 28 69 6e 24 29 2b |.leaf_name(in$)+| 00000160 22 27 20 6c 6f 63 6b 65 64 22 0d 00 a0 06 3d 30 |"' locked"....=0| 00000170 0d 00 aa 05 3a 0d 00 b4 23 dd 20 a4 66 69 6c 65 |....:...#. .file| 00000180 6c 6f 63 6b 5f 68 65 6c 70 28 77 69 6e 64 6f 77 |lock_help(window| 00000190 25 2c 69 63 6f 6e 25 29 0d 00 be 44 e7 20 77 69 |%,icon%)...D. wi| 000001a0 6e 64 6f 77 25 3d 2d 31 20 8c 20 3d 22 44 72 61 |ndow%=-1 . ="Dra| 000001b0 67 20 61 20 66 69 6c 65 20 74 6f 20 6c 6f 63 6b |g a file to lock| 000001c0 20 69 74 20 61 67 61 69 6e 73 74 20 64 65 6c 65 | it against dele| 000001d0 74 69 6f 6e 2e 22 20 8c 20 3d 22 22 0d ff |tion." . =""..| 000001de
.