Home » Archimedes archive » Acorn User » AU 1997-06 B.adf » Extras » RiscUtils/!RuInstall/Install/Non_User/NoClose
RiscUtils/!RuInstall/Install/Non_User/NoClose
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 1997-06 B.adf » Extras |
| Filename: | RiscUtils/!RuInstall/Install/Non_User/NoClose |
| Read OK: | ✔ |
| File size: | 0189 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10k=0:DIMb 256:r$="<RISCutils$Path>.!Help.!Run ":ON ERROR IF INSTR(REPORT$,"&038D3A50")>0 END ELSE OSCLIr$+"S "+REPORT$+" at line "+STR$(ERL):END 20SYS"TaskManager_EnumerateTasks",k,b,256TOk,end:ptr=b:REPEAT:a=ptr!4:t$="":WHILE ?a>=32:t$+=CHR$?a:a+=1:ENDWHILE:ptr+=16:UNTIL ptr=end OR t$="PC Card Software" 30IF t$="PC Card Software" OSCLI"<RISCutils$Path>.!Help.!Run P":END 40OSCLI"Unset Alias$Close":OSCLI"Close":*Set Alias$Close <RISCutils$PATH>.Non_User.NoClose
lk=0:�b 256:r$="<RISCutils$Path>.!Help.!Run ":� � � ��$,"&038D3A50")>0 � � �r$+"S "+�$+" at line "+�(�):� �ș"TaskManager_EnumerateTasks",k,b,256�k,end:ptr=b:�:a=ptr!4:t$="":ȕ ?a>=32:t$+=�?a:a+=1:�:ptr+=16:� ptr=end � t$="PC Card Software" >� t$="PC Card Software" �"<RISCutils$Path>.!Help.!Run P":� (T�"Unset Alias$Close":�"Close":*Set Alias$Close <RISCutils$PATH>.Non_User.NoClose �
00000000 0d 00 0a 6c 6b 3d 30 3a de 62 20 32 35 36 3a 72 |...lk=0:.b 256:r| 00000010 24 3d 22 3c 52 49 53 43 75 74 69 6c 73 24 50 61 |$="<RISCutils$Pa| 00000020 74 68 3e 2e 21 48 65 6c 70 2e 21 52 75 6e 20 22 |th>.!Help.!Run "| 00000030 3a ee 20 85 20 e7 20 a7 f6 24 2c 22 26 30 33 38 |:. . . ..$,"&038| 00000040 44 33 41 35 30 22 29 3e 30 20 e0 20 8b 20 ff 72 |D3A50")>0 . . .r| 00000050 24 2b 22 53 20 22 2b f6 24 2b 22 20 61 74 20 6c |$+"S "+.$+" at l| 00000060 69 6e 65 20 22 2b c3 28 9e 29 3a e0 0d 00 14 89 |ine "+.(.):.....| 00000070 c8 99 22 54 61 73 6b 4d 61 6e 61 67 65 72 5f 45 |.."TaskManager_E| 00000080 6e 75 6d 65 72 61 74 65 54 61 73 6b 73 22 2c 6b |numerateTasks",k| 00000090 2c 62 2c 32 35 36 b8 6b 2c 65 6e 64 3a 70 74 72 |,b,256.k,end:ptr| 000000a0 3d 62 3a f5 3a 61 3d 70 74 72 21 34 3a 74 24 3d |=b:.:a=ptr!4:t$=| 000000b0 22 22 3a c8 95 20 3f 61 3e 3d 33 32 3a 74 24 2b |"":.. ?a>=32:t$+| 000000c0 3d bd 3f 61 3a 61 2b 3d 31 3a ce 3a 70 74 72 2b |=.?a:a+=1:.:ptr+| 000000d0 3d 31 36 3a fd 20 70 74 72 3d 65 6e 64 20 84 20 |=16:. ptr=end . | 000000e0 74 24 3d 22 50 43 20 43 61 72 64 20 53 6f 66 74 |t$="PC Card Soft| 000000f0 77 61 72 65 22 0d 00 1e 3e e7 20 74 24 3d 22 50 |ware"...>. t$="P| 00000100 43 20 43 61 72 64 20 53 6f 66 74 77 61 72 65 22 |C Card Software"| 00000110 20 ff 22 3c 52 49 53 43 75 74 69 6c 73 24 50 61 | ."<RISCutils$Pa| 00000120 74 68 3e 2e 21 48 65 6c 70 2e 21 52 75 6e 20 50 |th>.!Help.!Run P| 00000130 22 3a e0 0d 00 28 54 ff 22 55 6e 73 65 74 20 41 |":...(T."Unset A| 00000140 6c 69 61 73 24 43 6c 6f 73 65 22 3a ff 22 43 6c |lias$Close":."Cl| 00000150 6f 73 65 22 3a 2a 53 65 74 20 41 6c 69 61 73 24 |ose":*Set Alias$| 00000160 43 6c 6f 73 65 20 3c 52 49 53 43 75 74 69 6c 73 |Close <RISCutils| 00000170 24 50 41 54 48 3e 2e 4e 6f 6e 5f 55 73 65 72 2e |$PATH>.Non_User.| 00000180 4e 6f 43 6c 6f 73 65 0d ff |NoClose..| 00000189
.