Server1/Stuff/BASICFile

Home » Personal collection » Acorn hard disk » misc » dcfprogs » Server1/Stuff/BASICFile

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 hard disk » misc » dcfprogs
Filename:	Server1/Stuff/BASICFile
Read OK:	✔
File size:	022D bytes
Load address:	0000
Exec address:	0000

Duplicates

There are 3 duplicate copies of this file in the archive:

Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Server1/Stuff/BASICFile
Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Server1/Stuff/BASICFile
Personal collection » Acorn hard disk » files » DomFord » Stuff/BASICFile
Personal collection » Acorn hard disk » misc » dcfprogs » Server1/Stuff/BASICFile

File contents

   10ON ERROR PROCerro
   20DIM taskid%4:$taskid%="TASK"
   30SYS "Wimp_Initialise",200,!taskid%,"Sprite Recognition" TO version%,handle%
   40
   50DIM q% &300,i% &32
   60
   70i%!0=-1
   80i%!4=0
   90i%!8=0
  100i%!12=21
  110i%!16=21
  120i%!20=2
  130i%!24=!010
  140SYS "Wimp_CreateIcon",i% TO ih%
  150
  160REPEAT
  170  SYS "Wimp_Poll",0,q% TO A%
  180  CASE OF A%
  190       CASE 17,18
  200            IF q%!16 THEN PROCshutdown
  210       CASE ELSE
  220            PROCcheck
  230  ENDCASE
  240UNTIL0
  250
  260DEF PROCshutdown
  270SYS "Wimp_CloseDown",handle%,taskid%
  280ENDPROC
  290
  300DEF PROCcheck
  310
  320ENDPROC
  330
  340DEF PROCerro
  350REPORT: PRINT " at line "; ERL
  360END
  370END PROC



� � �erro
� taskid%4:$taskid%="TASK"
Mș "Wimp_Initialise",200,!taskid%,"Sprite Recognition" � version%,handle%
(
2� q% &300,i% &32
<
Fi%!0=-1
P
i%!4=0
Z
i%!8=0
di%!12=21
ni%!16=21
xi%!20=2
�i%!24=!010
�!ș "Wimp_CreateIcon",i% � ih%
�
��
�  ș "Wimp_Poll",0,q% � A%
�
  Ȏ � A%
�       Ȏ 17,18
�#            � q%!16 � �shutdown
�       Ȏ �
�            �check
�  �
��0
�
� �shutdown
'ș "Wimp_CloseDown",handle%,taskid%
�
"
,� �check
6
@�
J
T� �erro
^�: � " at line "; �
h�
r� �
�

00000000  0d 00 0a 0d ee 20 85 20  f2 65 72 72 6f 0d 00 14  |..... . .erro...|
00000010  1e de 20 74 61 73 6b 69  64 25 34 3a 24 74 61 73  |.. taskid%4:$tas|
00000020  6b 69 64 25 3d 22 54 41  53 4b 22 0d 00 1e 4d c8  |kid%="TASK"...M.|
00000030  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000040  73 65 22 2c 32 30 30 2c  21 74 61 73 6b 69 64 25  |se",200,!taskid%|
00000050  2c 22 53 70 72 69 74 65  20 52 65 63 6f 67 6e 69  |,"Sprite Recogni|
00000060  74 69 6f 6e 22 20 b8 20  76 65 72 73 69 6f 6e 25  |tion" . version%|
00000070  2c 68 61 6e 64 6c 65 25  0d 00 28 04 0d 00 32 14  |,handle%..(...2.|
00000080  de 20 71 25 20 26 33 30  30 2c 69 25 20 26 33 32  |. q% &300,i% &32|
00000090  0d 00 3c 04 0d 00 46 0b  69 25 21 30 3d 2d 31 0d  |..<...F.i%!0=-1.|
000000a0  00 50 0a 69 25 21 34 3d  30 0d 00 5a 0a 69 25 21  |.P.i%!4=0..Z.i%!|
000000b0  38 3d 30 0d 00 64 0c 69  25 21 31 32 3d 32 31 0d  |8=0..d.i%!12=21.|
000000c0  00 6e 0c 69 25 21 31 36  3d 32 31 0d 00 78 0b 69  |.n.i%!16=21..x.i|
000000d0  25 21 32 30 3d 32 0d 00  82 0e 69 25 21 32 34 3d  |%!20=2....i%!24=|
000000e0  21 30 31 30 0d 00 8c 21  c8 99 20 22 57 69 6d 70  |!010...!.. "Wimp|
000000f0  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 69 25 20  |_CreateIcon",i% |
00000100  b8 20 69 68 25 0d 00 96  04 0d 00 a0 05 f5 0d 00  |. ih%...........|
00000110  aa 1e 20 20 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |..  .. "Wimp_Pol|
00000120  6c 22 2c 30 2c 71 25 20  b8 20 41 25 0d 00 b4 0d  |l",0,q% . A%....|
00000130  20 20 c8 8e 20 ca 20 41  25 0d 00 be 13 20 20 20  |  .. . A%....   |
00000140  20 20 20 20 c8 8e 20 31  37 2c 31 38 0d 00 c8 23  |    .. 17,18...#|
00000150  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 71 25  |            . q%|
00000160  21 31 36 20 8c 20 f2 73  68 75 74 64 6f 77 6e 0d  |!16 . .shutdown.|
00000170  00 d2 0f 20 20 20 20 20  20 20 c8 8e 20 8b 0d 00  |...       .. ...|
00000180  dc 16 20 20 20 20 20 20  20 20 20 20 20 20 f2 63  |..            .c|
00000190  68 65 63 6b 0d 00 e6 07  20 20 cb 0d 00 f0 06 fd  |heck....  ......|
000001a0  30 0d 00 fa 04 0d 01 04  0f dd 20 f2 73 68 75 74  |0......... .shut|
000001b0  64 6f 77 6e 0d 01 0e 27  c8 99 20 22 57 69 6d 70  |down...'.. "Wimp|
000001c0  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 68 61 6e 64  |_CloseDown",hand|
000001d0  6c 65 25 2c 74 61 73 6b  69 64 25 0d 01 18 05 e1  |le%,taskid%.....|
000001e0  0d 01 22 04 0d 01 2c 0c  dd 20 f2 63 68 65 63 6b  |.."...,.. .check|
000001f0  0d 01 36 04 0d 01 40 05  e1 0d 01 4a 04 0d 01 54  |..6...@....J...T|
00000200  0b dd 20 f2 65 72 72 6f  0d 01 5e 17 f6 3a 20 f1  |.. .erro..^..: .|
00000210  20 22 20 61 74 20 6c 69  6e 65 20 22 3b 20 9e 0d  | " at line "; ..|
00000220  01 68 05 e0 0d 01 72 07  e0 20 f2 0d ff           |.h....r.. ...|
0000022d

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .