Home » Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Server1/!Icon/!RUN
Server1/!Icon/!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 » Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF |
Filename: | Server1/!Icon/!RUN |
Read OK: | ✔ |
File size: | 0227 bytes |
Load address: | FFFFFB46 |
Exec address: | 9BC6E7DF |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Server1/!Icon/!RUN
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Server1/!Icon/!RUN
- Personal collection » Acorn hard disk » files » DomFord » !Icon/!RUN
- Personal collection » Acorn hard disk » misc » dcfprogs » Server1/!Icon/!RUN
File contents
10DIM q% 256 20SYS "Wimp_Initialise",200,&4B534154,"HI" TO,task_handle% 30DIM sp% 256 , err% 256 40!sp%=-1 50sp%!4=0 60sp%!8=0 70sp%!12=100 80sp%!16=68 90sp%!20=%00010001000000000011000000101010 100REM ^ ^ 110$(sp%+24)="!icon"+CHR$0 120SYS "Wimp_CreateIcon",,sp% TO ic% 130REPEAT 140SYS "Wimp_Poll",0,q% TO act% 150CASE act% OF 160WHEN 17,18 170 IF q%!16=0 END 180WHEN 6 190 IF q%!12=-2 AND q%!16=ic% THEN 200 !err%=0:$(err%+4)="HELLO MATE!"+CHR$0 210 SYS "Wimp_ReportError",err%,3,"HI etc." TO result% 220 IF (result% AND 1) =1 THEN END 230 ENDIF 240ENDCASE 250UNTIL FALSE 260 270
� q% 256 :ș "Wimp_Initialise",200,&4B534154,"HI" �,task_handle% � sp% 256 , err% 256 (!sp%=-1 2sp%!4=0 <sp%!8=0 Fsp%!12=100 P sp%!16=68 Z,sp%!20=%00010001000000000011000000101010 d� ^ ^ n$(sp%+24)="!icon"+�0 x#ș "Wimp_CreateIcon",,sp% � ic% �� �ș "Wimp_Poll",0,q% � act% � Ȏ act% � �� 17,18 � � q%!16=0 � �� 6 � � q%!12=-2 � q%!16=ic% � �) !err%=0:$(err%+4)="HELLO MATE!"+�0 �7 ș "Wimp_ReportError",err%,3,"HI etc." � result% � � (result% � 1) =1 � � � � �� �� � �
00000000 0d 00 0a 0c de 20 71 25 20 32 35 36 0d 00 14 3a |..... q% 256...:| 00000010 c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c |.. "Wimp_Initial| 00000020 69 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 |ise",200,&4B5341| 00000030 35 34 2c 22 48 49 22 20 b8 2c 74 61 73 6b 5f 68 |54,"HI" .,task_h| 00000040 61 6e 64 6c 65 25 0d 00 1e 18 de 20 73 70 25 20 |andle%..... sp% | 00000050 32 35 36 20 2c 20 65 72 72 25 20 32 35 36 0d 00 |256 , err% 256..| 00000060 28 0b 21 73 70 25 3d 2d 31 0d 00 32 0b 73 70 25 |(.!sp%=-1..2.sp%| 00000070 21 34 3d 30 0d 00 3c 0b 73 70 25 21 38 3d 30 0d |!4=0..<.sp%!8=0.| 00000080 00 46 0e 73 70 25 21 31 32 3d 31 30 30 0d 00 50 |.F.sp%!12=100..P| 00000090 0d 73 70 25 21 31 36 3d 36 38 0d 00 5a 2c 73 70 |.sp%!16=68..Z,sp| 000000a0 25 21 32 30 3d 25 30 30 30 31 30 30 30 31 30 30 |%!20=%0001000100| 000000b0 30 30 30 30 30 30 30 30 31 31 30 30 30 30 30 30 |0000000011000000| 000000c0 31 30 31 30 31 30 0d 00 64 1e f4 20 20 20 20 20 |101010..d.. | 000000d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000e0 5e 20 20 5e 0d 00 6e 18 24 28 73 70 25 2b 32 34 |^ ^..n.$(sp%+24| 000000f0 29 3d 22 21 69 63 6f 6e 22 2b bd 30 0d 00 78 23 |)="!icon"+.0..x#| 00000100 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 |.. "Wimp_CreateI| 00000110 63 6f 6e 22 2c 2c 73 70 25 20 b8 20 69 63 25 0d |con",,sp% . ic%.| 00000120 00 82 05 f5 0d 00 8c 1e c8 99 20 22 57 69 6d 70 |.......... "Wimp| 00000130 5f 50 6f 6c 6c 22 2c 30 2c 71 25 20 b8 20 61 63 |_Poll",0,q% . ac| 00000140 74 25 0d 00 96 0d c8 8e 20 61 63 74 25 20 ca 0d |t%...... act% ..| 00000150 00 a0 0b c9 20 31 37 2c 31 38 0d 00 aa 10 20 e7 |.... 17,18.... .| 00000160 20 71 25 21 31 36 3d 30 20 e0 0d 00 b4 07 c9 20 | q%!16=0 ...... | 00000170 36 0d 00 be 1d 20 e7 20 71 25 21 31 32 3d 2d 32 |6.... . q%!12=-2| 00000180 20 80 20 71 25 21 31 36 3d 69 63 25 20 8c 0d 00 | . q%!16=ic% ...| 00000190 c8 29 20 20 20 21 65 72 72 25 3d 30 3a 24 28 65 |.) !err%=0:$(e| 000001a0 72 72 25 2b 34 29 3d 22 48 45 4c 4c 4f 20 4d 41 |rr%+4)="HELLO MA| 000001b0 54 45 21 22 2b bd 30 0d 00 d2 37 20 20 20 c8 99 |TE!"+.0...7 ..| 000001c0 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 | "Wimp_ReportErr| 000001d0 6f 72 22 2c 65 72 72 25 2c 33 2c 22 48 49 20 65 |or",err%,3,"HI e| 000001e0 74 63 2e 22 20 b8 20 72 65 73 75 6c 74 25 0d 00 |tc." . result%..| 000001f0 dc 1d 20 20 20 e7 20 28 72 65 73 75 6c 74 25 20 |.. . (result% | 00000200 80 20 31 29 20 3d 31 20 8c 20 e0 0d 00 e6 06 20 |. 1) =1 . ..... | 00000210 cd 0d 00 f0 05 cb 0d 00 fa 07 fd 20 a3 0d 01 04 |........... ....| 00000220 04 0d 01 0e 04 0d ff |.......| 00000227