Server1/!Icon/!RUN

Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_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 » Greaseweazled » adfs_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

Server1/!Icon/!RUN.m0

Server1/!Icon/!RUN.m1

Server1/!Icon/!RUN.m2

Server1/!Icon/!RUN.m4

Server1/!Icon/!RUN.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .