Home » Archimedes archive » Acorn User » Acorn User - Updated Shareware Collection (1994).adf » Programs » !NewerLook/Utils/BootApps
!NewerLook/Utils/BootApps
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 » Acorn User - Updated Shareware Collection (1994).adf » Programs |
| Filename: | !NewerLook/Utils/BootApps |
| Read OK: | ✔ |
| File size: | 0422 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1SYS "OS_GetEnv" TO env$
2IF INSTR(env$,"-scan ")=0 THEN END
3env$=RIGHT$(env$,LEN(env$)-INSTR(env$,"-scan ")-5)
4SYS "Wimp_Initialise",200,&4B534154,"BootApps"
5item=0
6DIM block 40
7REPEAT
8 SYS "OS_GBPB",10,env$,block,1,item,40,"!*" TO ,,,read,item
9 IF read>0 AND block!16=2 THEN
10 app$=FNgetnull(block+20)
11 IF FNromapp(app$) THEN
12 SYS "OS_File",5,env$+"."+app$+".!Boot" TO type
13 IF type>0 THEN
14 SYS "Wimp_StartTask","Run "+env$+"."+app$+".!Boot"
15 ELSE
16 SYS "XOS_CLI","IconSprites "+env$+"."+app$+".!Sprites"
17 ENDIF
18 ELSE
19 SYS "Wimp_StartTask","Filer_Boot "+env$+"."+app$
20 ENDIF
21 ENDIF
22UNTIL read=0
23SYS "Wimp_CloseDown"
24END
25
26DEF FNgetnull(a)
27n$=""
28WHILE ?a<>0
29 n$+=CHR$?a
30 a+=1
31ENDWHILE
32=n$
33
34DEF FNromapp(a$)
35=(a$="!Alarm" OR a$="!Calc" OR a$="!Chars" OR a$="!Configure" OR a$="!Draw" OR a$="!Edit" OR a$="!Help" OR a$="!Paint" OR a$="!BatMan")
36
37REM BootApps 0.01 (20 Jan 1994) NewerLook
38
39REM A still tongue makes a happy life.
40REM And... I don't THINK a virus is going to infect this program.
41
ș "OS_GetEnv" � env$
� �env$,"-scan ")=0 � �
)env$=�env$,�(env$)-�env$,"-scan ")-5)
1ș "Wimp_Initialise",200,&4B534154,"BootApps"
item=0
� block 40
�
> ș "OS_GBPB",10,env$,block,1,item,40,"!*" � ,,,read,item
� read>0 � block!16=2 �
app$=�getnull(block+20)
� �romapp(app$) �
6 ș "OS_File",5,env$+"."+app$+".!Boot" � type
� type>0 �
= ș "Wimp_StartTask","Run "+env$+"."+app$+".!Boot"
�
A ș "XOS_CLI","IconSprites "+env$+"."+app$+".!Sprites"
�
�
9 ș "Wimp_StartTask","Filer_Boot "+env$+"."+app$
�
�
� read=0
ș "Wimp_CloseDown"
�
� �getnull(a)
n$=""
ȕ ?a<>0
n$+=�?a
a+=1
�
=n$
!
"� �romapp(a$)
#�=(a$="!Alarm" � a$="!Calc" � a$="!Chars" � a$="!Configure" � a$="!Draw" � a$="!Edit" � a$="!Help" � a$="!Paint" � a$="!BatMan")
$
%0� BootApps 0.01 (20 Jan 1994) NewerLook
&
'(� A still tongue makes a happy life.
(C� And... I don't THINK a virus is going to infect this program.
)
� 00000000 0d 00 01 19 c8 99 20 22 4f 53 5f 47 65 74 45 6e |...... "OS_GetEn| 00000010 76 22 20 b8 20 65 6e 76 24 0d 00 02 1b e7 20 a7 |v" . env$..... .| 00000020 65 6e 76 24 2c 22 2d 73 63 61 6e 20 22 29 3d 30 |env$,"-scan ")=0| 00000030 20 8c 20 e0 0d 00 03 29 65 6e 76 24 3d c2 65 6e | . ....)env$=.en| 00000040 76 24 2c a9 28 65 6e 76 24 29 2d a7 65 6e 76 24 |v$,.(env$)-.env$| 00000050 2c 22 2d 73 63 61 6e 20 22 29 2d 35 29 0d 00 04 |,"-scan ")-5)...| 00000060 31 c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 |1.. "Wimp_Initia| 00000070 6c 69 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 |lise",200,&4B534| 00000080 31 35 34 2c 22 42 6f 6f 74 41 70 70 73 22 0d 00 |154,"BootApps"..| 00000090 05 0a 69 74 65 6d 3d 30 0d 00 06 0e de 20 62 6c |..item=0..... bl| 000000a0 6f 63 6b 20 34 30 0d 00 07 05 f5 0d 00 08 3e 20 |ock 40........> | 000000b0 20 c8 99 20 22 4f 53 5f 47 42 50 42 22 2c 31 30 | .. "OS_GBPB",10| 000000c0 2c 65 6e 76 24 2c 62 6c 6f 63 6b 2c 31 2c 69 74 |,env$,block,1,it| 000000d0 65 6d 2c 34 30 2c 22 21 2a 22 20 b8 20 2c 2c 2c |em,40,"!*" . ,,,| 000000e0 72 65 61 64 2c 69 74 65 6d 0d 00 09 1d 20 20 e7 |read,item.... .| 000000f0 20 72 65 61 64 3e 30 20 80 20 62 6c 6f 63 6b 21 | read>0 . block!| 00000100 31 36 3d 32 20 8c 0d 00 0a 1f 20 20 20 20 61 70 |16=2 ..... ap| 00000110 70 24 3d a4 67 65 74 6e 75 6c 6c 28 62 6c 6f 63 |p$=.getnull(bloc| 00000120 6b 2b 32 30 29 0d 00 0b 19 20 20 20 20 e7 20 a4 |k+20).... . .| 00000130 72 6f 6d 61 70 70 28 61 70 70 24 29 20 8c 0d 00 |romapp(app$) ...| 00000140 0c 36 20 20 20 20 20 20 c8 99 20 22 4f 53 5f 46 |.6 .. "OS_F| 00000150 69 6c 65 22 2c 35 2c 65 6e 76 24 2b 22 2e 22 2b |ile",5,env$+"."+| 00000160 61 70 70 24 2b 22 2e 21 42 6f 6f 74 22 20 b8 20 |app$+".!Boot" . | 00000170 74 79 70 65 0d 00 0d 14 20 20 20 20 20 20 e7 20 |type.... . | 00000180 74 79 70 65 3e 30 20 8c 0d 00 0e 3d 20 20 20 20 |type>0 ....= | 00000190 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 53 74 61 | .. "Wimp_Sta| 000001a0 72 74 54 61 73 6b 22 2c 22 52 75 6e 20 22 2b 65 |rtTask","Run "+e| 000001b0 6e 76 24 2b 22 2e 22 2b 61 70 70 24 2b 22 2e 21 |nv$+"."+app$+".!| 000001c0 42 6f 6f 74 22 0d 00 0f 0b 20 20 20 20 20 20 cc |Boot".... .| 000001d0 0d 00 10 41 20 20 20 20 20 20 20 20 c8 99 20 22 |...A .. "| 000001e0 58 4f 53 5f 43 4c 49 22 2c 22 49 63 6f 6e 53 70 |XOS_CLI","IconSp| 000001f0 72 69 74 65 73 20 22 2b 65 6e 76 24 2b 22 2e 22 |rites "+env$+"."| 00000200 2b 61 70 70 24 2b 22 2e 21 53 70 72 69 74 65 73 |+app$+".!Sprites| 00000210 22 0d 00 11 0b 20 20 20 20 20 20 cd 0d 00 12 09 |".... .....| 00000220 20 20 20 20 cc 0d 00 13 39 20 20 20 20 20 20 c8 | ....9 .| 00000230 99 20 22 57 69 6d 70 5f 53 74 61 72 74 54 61 73 |. "Wimp_StartTas| 00000240 6b 22 2c 22 46 69 6c 65 72 5f 42 6f 6f 74 20 22 |k","Filer_Boot "| 00000250 2b 65 6e 76 24 2b 22 2e 22 2b 61 70 70 24 0d 00 |+env$+"."+app$..| 00000260 14 09 20 20 20 20 cd 0d 00 15 07 20 20 cd 0d 00 |.. ..... ...| 00000270 16 0c fd 20 72 65 61 64 3d 30 0d 00 17 17 c8 99 |... read=0......| 00000280 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e | "Wimp_CloseDown| 00000290 22 0d 00 18 05 e0 0d 00 19 04 0d 00 1a 11 dd 20 |".............. | 000002a0 a4 67 65 74 6e 75 6c 6c 28 61 29 0d 00 1b 09 6e |.getnull(a)....n| 000002b0 24 3d 22 22 0d 00 1c 0c c8 95 20 3f 61 3c 3e 30 |$=""...... ?a<>0| 000002c0 0d 00 1d 0c 20 6e 24 2b 3d bd 3f 61 0d 00 1e 09 |.... n$+=.?a....| 000002d0 20 61 2b 3d 31 0d 00 1f 05 ce 0d 00 20 07 3d 6e | a+=1....... .=n| 000002e0 24 0d 00 21 04 0d 00 22 11 dd 20 a4 72 6f 6d 61 |$..!...".. .roma| 000002f0 70 70 28 61 24 29 0d 00 23 83 3d 28 61 24 3d 22 |pp(a$)..#.=(a$="| 00000300 21 41 6c 61 72 6d 22 20 84 20 61 24 3d 22 21 43 |!Alarm" . a$="!C| 00000310 61 6c 63 22 20 84 20 61 24 3d 22 21 43 68 61 72 |alc" . a$="!Char| 00000320 73 22 20 84 20 61 24 3d 22 21 43 6f 6e 66 69 67 |s" . a$="!Config| 00000330 75 72 65 22 20 84 20 61 24 3d 22 21 44 72 61 77 |ure" . a$="!Draw| 00000340 22 20 84 20 61 24 3d 22 21 45 64 69 74 22 20 84 |" . a$="!Edit" .| 00000350 20 61 24 3d 22 21 48 65 6c 70 22 20 84 20 61 24 | a$="!Help" . a$| 00000360 3d 22 21 50 61 69 6e 74 22 20 84 20 61 24 3d 22 |="!Paint" . a$="| 00000370 21 42 61 74 4d 61 6e 22 29 0d 00 24 04 0d 00 25 |!BatMan")..$...%| 00000380 30 f4 20 42 6f 6f 74 41 70 70 73 20 20 20 20 20 |0. BootApps | 00000390 20 30 2e 30 31 20 28 32 30 20 4a 61 6e 20 31 39 | 0.01 (20 Jan 19| 000003a0 39 34 29 20 4e 65 77 65 72 4c 6f 6f 6b 0d 00 26 |94) NewerLook..&| 000003b0 04 0d 00 27 28 f4 20 41 20 73 74 69 6c 6c 20 74 |...'(. A still t| 000003c0 6f 6e 67 75 65 20 6d 61 6b 65 73 20 61 20 68 61 |ongue makes a ha| 000003d0 70 70 79 20 6c 69 66 65 2e 0d 00 28 43 f4 20 41 |ppy life...(C. A| 000003e0 6e 64 2e 2e 2e 20 49 20 64 6f 6e 27 74 20 54 48 |nd... I don't TH| 000003f0 49 4e 4b 20 61 20 76 69 72 75 73 20 69 73 20 67 |INK a virus is g| 00000400 6f 69 6e 67 20 74 6f 20 69 6e 66 65 63 74 20 74 |oing to infect t| 00000410 68 69 73 20 70 72 6f 67 72 61 6d 2e 0d 00 29 04 |his program...).| 00000420 0d ff |..| 00000422
.