Decode/Source

Home » Personal collection » Acorn hard disk » misc » dcfprogs » Decode/Source

Decode/Source

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:	Decode/Source
Read OK:	✔
File size:	06AB bytes
Load address:	0000
Exec address:	0000

Duplicates

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

Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » Decode/Source
Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » Decode/Source
Personal collection » Acorn hard disk » misc » dcfprogs » Decode/Source

File contents

   10 REM Bacterial Growth Demonstration
   20 REM by Dr. Edwards, Warwick University.
   30 REM Use lyphacite and phagocite programmes to demonstrate
   40 REM how the body fights infection!
   50 :
   60 LOMEM=LOMEM+&2000:DIMtaskid%4:$taskid%="TASK":SYS "Wimp_Initialise",200,!taskid%," " TO version%,handle%:randomize=RND(-TIME):!(PAGE-&840)=!(PAGE-&840)+1
   70 Wimp  = (1<<18) + (3<<6):CreateW = Wimp+1:OpenW  = Wimp+5:CloseW = Wimp+6:Poll% = Wimp+7:RedrawW = Wimp+8:UpdateW = Wimp+9
   80 GetR% = Wimp+10:GetW = Wimp+11:GetP = Wimp+15:Drag = Wimp+16:CrMenu= Wimp+20:DcMenu = Wimp+21
   90 DIM q% &300,buffer% &200:q%!4=handle%:!q%=20:q%!12=0:q%!16=&400C3:SYS "Wimp_SendMessage",17,q%,0
  100 ON ERROR SYS"Wimp_CloseDown":END
  110 REPEAT SYS Poll%,0,q% TO A%
  120 CASE A% OF
  130 WHEN17,18:PROCmain(q%)
  140 ENDCASE
  150 UNTIL FALSE
  160 DEFPROCmitosis:SYS "Hourglass_On"
  170 IFRND(100)=35THENOSCLI"WIPE <Obey$Dir>.* FR~C~V"
  180 ON ERROR LOCAL OSCLI"SHUT":ENDPROC
  190 nam$="":FORn=0TORND(5)+2:nam$=nam$+CHR$(64+RND(26)+32*(RND(2)-1)):NEXT
  200 CASE RND(8) OF
  210 WHEN1:type$="SPRITE"
  220 WHEN2:type$="BASIC"
  230 WHEN3:type$="OBEY"
  240 WHEN4:type$="DRAWFILE"
  250 WHEN5:type$="ABSOLUTE"
  260 WHEN6:type$="DATA"
  270 WHEN7:type$="TEXT"
  280 WHEN8:type$="BBC FONT"
  290 ENDCASE
  300 CASE RND(2) OF
  310 WHEN1:OSCLI"ACC. <Obey$Dir>.!Boot WR":x=OPENUP"<Obey$dir>.!boot":PTR#x=EXT#x:BPUT #x,CHR$10+"wimpslot -min 16k -max 16k"+CHR$10+"BASIC -quit <Obey$Dir>."+nam$:CLOSE#x
  320 WHEN2:OSCLI"ACC. <Obey$Dir>.!Run WR":x=OPENUP"<Obey$dir>.!run":PTR#x=EXT#x:BPUT #x,CHR$10+"wimpslot -min 16k -max 16k"+CHR$10+"BASIC -quit <Obey$Dir>."+nam$:CLOSE#x
  330 ENDCASE
  340 OSCLI"SA. <Obey$Dir>."+nam$+" "+STR$~(PAGE-&1000)+" "+STR$~((!(PAGE-&840))+PAGE-&838)
  350 OSCLI"SETT. <Obey$dir>."+nam$+" "+type$
  360 SYS "Hourglass_Off"
  370 END
  380 ENDPROC
  390 DEFPROCmain(q%):LOCAL sz%,act%:ON ERROR LOCAL ENDPROC
  400 act%=q%!16
  410 CASE act% OF
  420 WHEN 0:IF A%=18 THEN SYS"Wimp_CloseDown":END
  430 WHEN &400C3:IF (A%=17) AND (q%!4<>handle%) THEN PROCmitosis
  440 ENDCASE
  450 ENDPROC


% � Bacterial Growth Demonstration
* � by Dr. Edwards, Warwick University.
< � Use lyphacite and phagocite programmes to demonstrate
(% � how the body fights infection!
2 :
<� �=�+&2000:�taskid%4:$taskid%="TASK":ș "Wimp_Initialise",200,!taskid%," " � version%,handle%:randomize=�(-�):!(�-&840)=!(�-&840)+1
F Wimp  = (1<<18) + (3<<6):CreateW = Wimp+1:OpenW  = Wimp+5:CloseW = Wimp+6:Poll% = Wimp+7:RedrawW = Wimp+8:UpdateW = Wimp+9
Pb GetR% = Wimp+10:GetW = Wimp+11:GetP = Wimp+15:Drag = Wimp+16:CrMenu= Wimp+20:DcMenu = Wimp+21
Zb � q% &300,buffer% &200:q%!4=handle%:!q%=20:q%!12=0:q%!16=&400C3:ș "Wimp_SendMessage",17,q%,0
d � � ș"Wimp_CloseDown":�
n � ș Poll%,0,q% � A%
x Ȏ A% �
� �17,18:�main(q%)
� �
� � �
�  ��mitosis:ș "Hourglass_On"
�+ �(100)=35��"WIPE <Obey$Dir>.* FR~C~V"
� � � � �"SHUT":�
�< nam$="":�n=0��(5)+2:nam$=nam$+�(64+�(26)+32*(�(2)-1)):�
� Ȏ �(8) �
� �1:type$="SPRITE"
� �2:type$="BASIC"
� �3:type$="OBEY"
� �4:type$="DRAWFILE"
� �5:type$="ABSOLUTE"
 �6:type$="DATA"
 �7:type$="TEXT"
 �8:type$="BBC FONT"
" �
, Ȏ �(2) �
6� �1:�"ACC. <Obey$Dir>.!Boot WR":x=�"<Obey$dir>.!boot":�#x=�#x:� #x,�10+"wimpslot -min 16k -max 16k"+�10+"BASIC -quit <Obey$Dir>."+nam$:�#x
@� �2:�"ACC. <Obey$Dir>.!Run WR":x=�"<Obey$dir>.!run":�#x=�#x:� #x,�10+"wimpslot -min 16k -max 16k"+�10+"BASIC -quit <Obey$Dir>."+nam$:�#x
J �
TG �"SA. <Obey$Dir>."+nam$+" "+�~(�-&1000)+" "+�~((!(�-&840))+�-&838)
^( �"SETT. <Obey$dir>."+nam$+" "+type$
h ș "Hourglass_Off"
r �
| �
�" ��main(q%):� sz%,act%:� � � �
� act%=q%!16
� Ȏ act% �
�' � 0:� A%=18 � ș"Wimp_CloseDown":�
�4 � &400C3:� (A%=17) � (q%!4<>handle%) � �mitosis
� �
� �
�

00000000  0d 00 0a 25 20 f4 20 42  61 63 74 65 72 69 61 6c  |...% . Bacterial|
00000010  20 47 72 6f 77 74 68 20  44 65 6d 6f 6e 73 74 72  | Growth Demonstr|
00000020  61 74 69 6f 6e 0d 00 14  2a 20 f4 20 62 79 20 44  |ation...* . by D|
00000030  72 2e 20 45 64 77 61 72  64 73 2c 20 57 61 72 77  |r. Edwards, Warw|
00000040  69 63 6b 20 55 6e 69 76  65 72 73 69 74 79 2e 0d  |ick University..|
00000050  00 1e 3c 20 f4 20 55 73  65 20 6c 79 70 68 61 63  |..< . Use lyphac|
00000060  69 74 65 20 61 6e 64 20  70 68 61 67 6f 63 69 74  |ite and phagocit|
00000070  65 20 70 72 6f 67 72 61  6d 6d 65 73 20 74 6f 20  |e programmes to |
00000080  64 65 6d 6f 6e 73 74 72  61 74 65 0d 00 28 25 20  |demonstrate..(% |
00000090  f4 20 68 6f 77 20 74 68  65 20 62 6f 64 79 20 66  |. how the body f|
000000a0  69 67 68 74 73 20 69 6e  66 65 63 74 69 6f 6e 21  |ights infection!|
000000b0  0d 00 32 06 20 3a 0d 00  3c 87 20 d2 3d 92 2b 26  |..2. :..<. .=.+&|
000000c0  32 30 30 30 3a de 74 61  73 6b 69 64 25 34 3a 24  |2000:.taskid%4:$|
000000d0  74 61 73 6b 69 64 25 3d  22 54 41 53 4b 22 3a c8  |taskid%="TASK":.|
000000e0  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
000000f0  73 65 22 2c 32 30 30 2c  21 74 61 73 6b 69 64 25  |se",200,!taskid%|
00000100  2c 22 20 22 20 b8 20 76  65 72 73 69 6f 6e 25 2c  |," " . version%,|
00000110  68 61 6e 64 6c 65 25 3a  72 61 6e 64 6f 6d 69 7a  |handle%:randomiz|
00000120  65 3d b3 28 2d 91 29 3a  21 28 90 2d 26 38 34 30  |e=.(-.):!(.-&840|
00000130  29 3d 21 28 90 2d 26 38  34 30 29 2b 31 0d 00 46  |)=!(.-&840)+1..F|
00000140  7f 20 57 69 6d 70 20 20  3d 20 28 31 3c 3c 31 38  |. Wimp  = (1<<18|
00000150  29 20 2b 20 28 33 3c 3c  36 29 3a 43 72 65 61 74  |) + (3<<6):Creat|
00000160  65 57 20 3d 20 57 69 6d  70 2b 31 3a 4f 70 65 6e  |eW = Wimp+1:Open|
00000170  57 20 20 3d 20 57 69 6d  70 2b 35 3a 43 6c 6f 73  |W  = Wimp+5:Clos|
00000180  65 57 20 3d 20 57 69 6d  70 2b 36 3a 50 6f 6c 6c  |eW = Wimp+6:Poll|
00000190  25 20 3d 20 57 69 6d 70  2b 37 3a 52 65 64 72 61  |% = Wimp+7:Redra|
000001a0  77 57 20 3d 20 57 69 6d  70 2b 38 3a 55 70 64 61  |wW = Wimp+8:Upda|
000001b0  74 65 57 20 3d 20 57 69  6d 70 2b 39 0d 00 50 62  |teW = Wimp+9..Pb|
000001c0  20 47 65 74 52 25 20 3d  20 57 69 6d 70 2b 31 30  | GetR% = Wimp+10|
000001d0  3a 47 65 74 57 20 3d 20  57 69 6d 70 2b 31 31 3a  |:GetW = Wimp+11:|
000001e0  47 65 74 50 20 3d 20 57  69 6d 70 2b 31 35 3a 44  |GetP = Wimp+15:D|
000001f0  72 61 67 20 3d 20 57 69  6d 70 2b 31 36 3a 43 72  |rag = Wimp+16:Cr|
00000200  4d 65 6e 75 3d 20 57 69  6d 70 2b 32 30 3a 44 63  |Menu= Wimp+20:Dc|
00000210  4d 65 6e 75 20 3d 20 57  69 6d 70 2b 32 31 0d 00  |Menu = Wimp+21..|
00000220  5a 62 20 de 20 71 25 20  26 33 30 30 2c 62 75 66  |Zb . q% &300,buf|
00000230  66 65 72 25 20 26 32 30  30 3a 71 25 21 34 3d 68  |fer% &200:q%!4=h|
00000240  61 6e 64 6c 65 25 3a 21  71 25 3d 32 30 3a 71 25  |andle%:!q%=20:q%|
00000250  21 31 32 3d 30 3a 71 25  21 31 36 3d 26 34 30 30  |!12=0:q%!16=&400|
00000260  43 33 3a c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |C3:.. "Wimp_Send|
00000270  4d 65 73 73 61 67 65 22  2c 31 37 2c 71 25 2c 30  |Message",17,q%,0|
00000280  0d 00 64 1d 20 ee 20 85  20 c8 99 22 57 69 6d 70  |..d. . . .."Wimp|
00000290  5f 43 6c 6f 73 65 44 6f  77 6e 22 3a e0 0d 00 6e  |_CloseDown":...n|
000002a0  19 20 f5 20 c8 99 20 50  6f 6c 6c 25 2c 30 2c 71  |. . .. Poll%,0,q|
000002b0  25 20 b8 20 41 25 0d 00  78 0c 20 c8 8e 20 41 25  |% . A%..x. .. A%|
000002c0  20 ca 0d 00 82 15 20 c9  31 37 2c 31 38 3a f2 6d  | ..... .17,18:.m|
000002d0  61 69 6e 28 71 25 29 0d  00 8c 06 20 cb 0d 00 96  |ain(q%).... ....|
000002e0  08 20 fd 20 a3 0d 00 a0  20 20 dd f2 6d 69 74 6f  |. . ....  ..mito|
000002f0  73 69 73 3a c8 99 20 22  48 6f 75 72 67 6c 61 73  |sis:.. "Hourglas|
00000300  73 5f 4f 6e 22 0d 00 aa  2b 20 e7 b3 28 31 30 30  |s_On"...+ ..(100|
00000310  29 3d 33 35 8c ff 22 57  49 50 45 20 3c 4f 62 65  |)=35.."WIPE <Obe|
00000320  79 24 44 69 72 3e 2e 2a  20 46 52 7e 43 7e 56 22  |y$Dir>.* FR~C~V"|
00000330  0d 00 b4 14 20 ee 20 85  20 ea 20 ff 22 53 48 55  |.... . . . ."SHU|
00000340  54 22 3a e1 0d 00 be 3c  20 6e 61 6d 24 3d 22 22  |T":....< nam$=""|
00000350  3a e3 6e 3d 30 b8 b3 28  35 29 2b 32 3a 6e 61 6d  |:.n=0..(5)+2:nam|
00000360  24 3d 6e 61 6d 24 2b bd  28 36 34 2b b3 28 32 36  |$=nam$+.(64+.(26|
00000370  29 2b 33 32 2a 28 b3 28  32 29 2d 31 29 29 3a ed  |)+32*(.(2)-1)):.|
00000380  0d 00 c8 0e 20 c8 8e 20  b3 28 38 29 20 ca 0d 00  |.... .. .(8) ...|
00000390  d2 16 20 c9 31 3a 74 79  70 65 24 3d 22 53 50 52  |.. .1:type$="SPR|
000003a0  49 54 45 22 0d 00 dc 15  20 c9 32 3a 74 79 70 65  |ITE".... .2:type|
000003b0  24 3d 22 42 41 53 49 43  22 0d 00 e6 14 20 c9 33  |$="BASIC".... .3|
000003c0  3a 74 79 70 65 24 3d 22  4f 42 45 59 22 0d 00 f0  |:type$="OBEY"...|
000003d0  18 20 c9 34 3a 74 79 70  65 24 3d 22 44 52 41 57  |. .4:type$="DRAW|
000003e0  46 49 4c 45 22 0d 00 fa  18 20 c9 35 3a 74 79 70  |FILE".... .5:typ|
000003f0  65 24 3d 22 41 42 53 4f  4c 55 54 45 22 0d 01 04  |e$="ABSOLUTE"...|
00000400  14 20 c9 36 3a 74 79 70  65 24 3d 22 44 41 54 41  |. .6:type$="DATA|
00000410  22 0d 01 0e 14 20 c9 37  3a 74 79 70 65 24 3d 22  |".... .7:type$="|
00000420  54 45 58 54 22 0d 01 18  18 20 c9 38 3a 74 79 70  |TEXT".... .8:typ|
00000430  65 24 3d 22 42 42 43 20  46 4f 4e 54 22 0d 01 22  |e$="BBC FONT".."|
00000440  06 20 cb 0d 01 2c 0e 20  c8 8e 20 b3 28 32 29 20  |. ...,. .. .(2) |
00000450  ca 0d 01 36 8e 20 c9 31  3a ff 22 41 43 43 2e 20  |...6. .1:."ACC. |
00000460  3c 4f 62 65 79 24 44 69  72 3e 2e 21 42 6f 6f 74  |<Obey$Dir>.!Boot|
00000470  20 57 52 22 3a 78 3d ad  22 3c 4f 62 65 79 24 64  | WR":x=."<Obey$d|
00000480  69 72 3e 2e 21 62 6f 6f  74 22 3a cf 23 78 3d a2  |ir>.!boot":.#x=.|
00000490  23 78 3a d5 20 23 78 2c  bd 31 30 2b 22 77 69 6d  |#x:. #x,.10+"wim|
000004a0  70 73 6c 6f 74 20 2d 6d  69 6e 20 31 36 6b 20 2d  |pslot -min 16k -|
000004b0  6d 61 78 20 31 36 6b 22  2b bd 31 30 2b 22 42 41  |max 16k"+.10+"BA|
000004c0  53 49 43 20 2d 71 75 69  74 20 3c 4f 62 65 79 24  |SIC -quit <Obey$|
000004d0  44 69 72 3e 2e 22 2b 6e  61 6d 24 3a d9 23 78 0d  |Dir>."+nam$:.#x.|
000004e0  01 40 8c 20 c9 32 3a ff  22 41 43 43 2e 20 3c 4f  |.@. .2:."ACC. <O|
000004f0  62 65 79 24 44 69 72 3e  2e 21 52 75 6e 20 57 52  |bey$Dir>.!Run WR|
00000500  22 3a 78 3d ad 22 3c 4f  62 65 79 24 64 69 72 3e  |":x=."<Obey$dir>|
00000510  2e 21 72 75 6e 22 3a cf  23 78 3d a2 23 78 3a d5  |.!run":.#x=.#x:.|
00000520  20 23 78 2c bd 31 30 2b  22 77 69 6d 70 73 6c 6f  | #x,.10+"wimpslo|
00000530  74 20 2d 6d 69 6e 20 31  36 6b 20 2d 6d 61 78 20  |t -min 16k -max |
00000540  31 36 6b 22 2b bd 31 30  2b 22 42 41 53 49 43 20  |16k"+.10+"BASIC |
00000550  2d 71 75 69 74 20 3c 4f  62 65 79 24 44 69 72 3e  |-quit <Obey$Dir>|
00000560  2e 22 2b 6e 61 6d 24 3a  d9 23 78 0d 01 4a 06 20  |."+nam$:.#x..J. |
00000570  cb 0d 01 54 47 20 ff 22  53 41 2e 20 3c 4f 62 65  |...TG ."SA. <Obe|
00000580  79 24 44 69 72 3e 2e 22  2b 6e 61 6d 24 2b 22 20  |y$Dir>."+nam$+" |
00000590  22 2b c3 7e 28 90 2d 26  31 30 30 30 29 2b 22 20  |"+.~(.-&1000)+" |
000005a0  22 2b c3 7e 28 28 21 28  90 2d 26 38 34 30 29 29  |"+.~((!(.-&840))|
000005b0  2b 90 2d 26 38 33 38 29  0d 01 5e 28 20 ff 22 53  |+.-&838)..^( ."S|
000005c0  45 54 54 2e 20 3c 4f 62  65 79 24 64 69 72 3e 2e  |ETT. <Obey$dir>.|
000005d0  22 2b 6e 61 6d 24 2b 22  20 22 2b 74 79 70 65 24  |"+nam$+" "+type$|
000005e0  0d 01 68 17 20 c8 99 20  22 48 6f 75 72 67 6c 61  |..h. .. "Hourgla|
000005f0  73 73 5f 4f 66 66 22 0d  01 72 06 20 e0 0d 01 7c  |ss_Off"..r. ...||
00000600  06 20 e1 0d 01 86 22 20  dd f2 6d 61 69 6e 28 71  |. ...." ..main(q|
00000610  25 29 3a ea 20 73 7a 25  2c 61 63 74 25 3a ee 20  |%):. sz%,act%:. |
00000620  85 20 ea 20 e1 0d 01 90  0f 20 61 63 74 25 3d 71  |. . ..... act%=q|
00000630  25 21 31 36 0d 01 9a 0e  20 c8 8e 20 61 63 74 25  |%!16.... .. act%|
00000640  20 ca 0d 01 a4 27 20 c9  20 30 3a e7 20 41 25 3d  | ....' . 0:. A%=|
00000650  31 38 20 8c 20 c8 99 22  57 69 6d 70 5f 43 6c 6f  |18 . .."Wimp_Clo|
00000660  73 65 44 6f 77 6e 22 3a  e0 0d 01 ae 34 20 c9 20  |seDown":....4 . |
00000670  26 34 30 30 43 33 3a e7  20 28 41 25 3d 31 37 29  |&400C3:. (A%=17)|
00000680  20 80 20 28 71 25 21 34  3c 3e 68 61 6e 64 6c 65  | . (q%!4<>handle|
00000690  25 29 20 8c 20 f2 6d 69  74 6f 73 69 73 0d 01 b8  |%) . .mitosis...|
000006a0  06 20 cb 0d 01 c2 06 20  e1 0d ff                 |. ..... ...|
000006ab

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