Home » Personal collection » Acorn hard disk » files » DomFord » Stuff/BASICFile
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 » files » DomFord |
| Filename: | 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 < F i%!0=-1 P i%!4=0 Z i%!8=0 d i%!12=21 n i%!16=21 x i%!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
.