10_10Frnch/!10_10Fren/!RunImage

Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199407.adf » 9407 » 10_10Frnch/!10_10Fren/!RunImage

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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199407.adf » 9407
Filename:	10_10Frnch/!10_10Fren/!RunImage
Read OK:	✔
File size:	05C7 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM ><Disc1$Dir>.!RunImage
   20SYS"Hourglass_On"
   30PROCinitial
   40SYS"Hourglass_Smash"
   50PROCmessages
   60SYS"Hourglass_On"
   70*FX200 0
   80CHAIN"ram:Menu"
   90DEFPROCinitial
  100M%=113
  110*FX 4 0
  120*FX 6 0
  130*FX 20
  140*FX 200 1
  150*VOLUME 113
  160dummy=RND(-TIME)
  170SYS"ABC_VideoAddress"
  180*PRINT <Disc1$Dir>.Font
  190SYS"ABC_ReadBits"
  200*COPY <Disc1$Dir>.Menu ram:Menu ~C~V
  210*COPY <Disc1$Dir>.FactFile ram:FactFile ~C~V
  220*DIR <Disc1$Dir>.SixGames
  230ENDPROC
  240DEFPROCmessages
  250VDU28,1,28,78,22
  260COLOUR130
  270COLOUR7
  280CLS
  290PRINTTAB(17,0)"DEMONSTRATION VERSION - CLICK MOUSE TO PROCEED"
  300COLOUR129
  310VDU28,1,31,78,23
  320CLS
  330h%=OPENIN("<Disc1$Dir>.Instruct")
  340fir%=EXT#h%
  350CLOSE#h%
  360h%=OPENIN("<Disc1$Dir>.^.Message")
  370sec%=EXT#h%
  380CLOSE#h%
  390len%=fir%+sec%
  400DIMcod%512,str%len%,advert$(128)
  410FORA%=0TO2STEP2
  420P%=cod%
  430[OPTA%
  440LDR R0,inaddr
  450ADR R1,inbuff
  460MOV R2,#&0
  470LDR R3,inaddr+&4
  480.read
  490LDRB R4,[R0],#&1
  500CMP R4,#&20
  510BLT finish
  520CMP R0,R3
  530BGT finish
  540STRB R4,[R1],#&1
  550ADD R2,R2,#&1
  560BAL read
  570.finish
  580MOV R4,#&D
  590STRB R4,[R1]
  600STR R0,inaddr
  610MOV R15,R14
  620.inaddr
  630EQUD str%
  640EQUD str%+len%
  650.inbuff
  660]
  670NEXT
  680OSCLI"LOAD <Disc1$Dir>.Instruct "+STR$~(str%)
  690OSCLI"LOAD <Disc1$Dir>.^.Message "+STR$~(str%+fir%)
  700fir%+=str%
  710J%=1
  720WHILEJ%<128AND!inaddr<inaddr!4
  730CALLcod%
  740advert$(J%)=$inbuff
  750J%+=1
  760ENDWHILE
  770advert$(J%)="*"
  780J%=1
  790WHILEadvert$(J%)<>"*"
  800WAIT
  810PRINTadvert$(J%)
  820IFJ%>7THEN
  830REPEAT
  840MOUSEmox%,moy%,but%
  850UNTILbut%=0
  860REPEAT
  870MOUSEmox%,moy%,but%
  880UNTILbut%>0
  890ENDIF
  900J%+=1
  910ENDWHILE
  920VDU26
  930ENDPROC


� ><Disc1$Dir>.!RunImage
ș"Hourglass_On"
�initial
(ș"Hourglass_Smash"
2
�messages
<ș"Hourglass_On"
F*FX200 0
P�"ram:Menu"
Z
��initial
d
M%=113
n*FX 4 0
x*FX 6 0
�
*FX 20
�
*FX 200 1
�*VOLUME 113
�dummy=�(-�)
�ș"ABC_VideoAddress"
�*PRINT <Disc1$Dir>.Font
�ș"ABC_ReadBits"
�(*COPY <Disc1$Dir>.Menu ram:Menu ~C~V
�0*COPY <Disc1$Dir>.FactFile ram:FactFile ~C~V
�*DIR <Disc1$Dir>.SixGames
��
���messages
��28,1,28,78,22
�130
�7
�
";�17,0)"DEMONSTRATION VERSION - CLICK MOUSE TO PROCEED"
,�129
6�28,1,31,78,23
@�
J h%=�("<Disc1$Dir>.Instruct")
T
fir%=�#h%
^�#h%
h!h%=�("<Disc1$Dir>.^.Message")
r
sec%=�#h%
|�#h%
�len%=fir%+sec%
�"�cod%512,str%len%,advert$(128)
�
�A%=0�2�2
�P%=cod%
�
[OPTA%
�LDR R0,inaddr
�ADR R1,inbuff
�MOV R2,#&0
�LDR R3,inaddr+&4
�	.read
�LDRB R4,[R0],#&1
�CMP R4,#&20
�BLT finish

CMP R0,R3
BGT finish
STRB R4,[R1],#&1
&ADD R2,R2,#&1
0BAL read
:.finish
DMOV R4,#&D
NSTRB R4,[R1]
XSTR R0,inaddr
bMOV R15,R14
l.inaddr
v
EQUD str%
�EQUD str%+len%
�.inbuff
�]
��
�*�"LOAD <Disc1$Dir>.Instruct "+�~(str%)
�0�"LOAD <Disc1$Dir>.^.Message "+�~(str%+fir%)
�fir%+=str%
�J%=1
�ȕJ%<128�!inaddr<inaddr!4
�	�cod%
�advert$(J%)=$inbuff
�	J%+=1
��
advert$(J%)="*"
J%=1
ȕadvert$(J%)<>"*"
 Ȗ
*�advert$(J%)
4
�J%>7�
>�
Hȗmox%,moy%,but%
R�but%=0
\�
fȗmox%,moy%,but%
p�but%>0
z�
�	J%+=1
��
��26
��
�

00000000  0d 00 0a 1c f4 20 3e 3c  44 69 73 63 31 24 44 69  |..... ><Disc1$Di|
00000010  72 3e 2e 21 52 75 6e 49  6d 61 67 65 0d 00 14 14  |r>.!RunImage....|
00000020  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00000030  0d 00 1e 0c f2 69 6e 69  74 69 61 6c 0d 00 28 17  |.....initial..(.|
00000040  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 53 6d 61  |.."Hourglass_Sma|
00000050  73 68 22 0d 00 32 0d f2  6d 65 73 73 61 67 65 73  |sh"..2..messages|
00000060  0d 00 3c 14 c8 99 22 48  6f 75 72 67 6c 61 73 73  |..<..."Hourglass|
00000070  5f 4f 6e 22 0d 00 46 0c  2a 46 58 32 30 30 20 30  |_On"..F.*FX200 0|
00000080  0d 00 50 0f d7 22 72 61  6d 3a 4d 65 6e 75 22 0d  |..P.."ram:Menu".|
00000090  00 5a 0d dd f2 69 6e 69  74 69 61 6c 0d 00 64 0a  |.Z...initial..d.|
000000a0  4d 25 3d 31 31 33 0d 00  6e 0b 2a 46 58 20 34 20  |M%=113..n.*FX 4 |
000000b0  30 0d 00 78 0b 2a 46 58  20 36 20 30 0d 00 82 0a  |0..x.*FX 6 0....|
000000c0  2a 46 58 20 32 30 0d 00  8c 0d 2a 46 58 20 32 30  |*FX 20....*FX 20|
000000d0  30 20 31 0d 00 96 0f 2a  56 4f 4c 55 4d 45 20 31  |0 1....*VOLUME 1|
000000e0  31 33 0d 00 a0 0f 64 75  6d 6d 79 3d b3 28 2d 91  |13....dummy=.(-.|
000000f0  29 0d 00 aa 18 c8 99 22  41 42 43 5f 56 69 64 65  |)......"ABC_Vide|
00000100  6f 41 64 64 72 65 73 73  22 0d 00 b4 1b 2a 50 52  |oAddress"....*PR|
00000110  49 4e 54 20 3c 44 69 73  63 31 24 44 69 72 3e 2e  |INT <Disc1$Dir>.|
00000120  46 6f 6e 74 0d 00 be 14  c8 99 22 41 42 43 5f 52  |Font......"ABC_R|
00000130  65 61 64 42 69 74 73 22  0d 00 c8 28 2a 43 4f 50  |eadBits"...(*COP|
00000140  59 20 3c 44 69 73 63 31  24 44 69 72 3e 2e 4d 65  |Y <Disc1$Dir>.Me|
00000150  6e 75 20 72 61 6d 3a 4d  65 6e 75 20 7e 43 7e 56  |nu ram:Menu ~C~V|
00000160  0d 00 d2 30 2a 43 4f 50  59 20 3c 44 69 73 63 31  |...0*COPY <Disc1|
00000170  24 44 69 72 3e 2e 46 61  63 74 46 69 6c 65 20 72  |$Dir>.FactFile r|
00000180  61 6d 3a 46 61 63 74 46  69 6c 65 20 7e 43 7e 56  |am:FactFile ~C~V|
00000190  0d 00 dc 1d 2a 44 49 52  20 3c 44 69 73 63 31 24  |....*DIR <Disc1$|
000001a0  44 69 72 3e 2e 53 69 78  47 61 6d 65 73 0d 00 e6  |Dir>.SixGames...|
000001b0  05 e1 0d 00 f0 0e dd f2  6d 65 73 73 61 67 65 73  |........messages|
000001c0  0d 00 fa 12 ef 32 38 2c  31 2c 32 38 2c 37 38 2c  |.....28,1,28,78,|
000001d0  32 32 0d 01 04 08 fb 31  33 30 0d 01 0e 06 fb 37  |22.....130.....7|
000001e0  0d 01 18 05 db 0d 01 22  3b f1 8a 31 37 2c 30 29  |.......";..17,0)|
000001f0  22 44 45 4d 4f 4e 53 54  52 41 54 49 4f 4e 20 56  |"DEMONSTRATION V|
00000200  45 52 53 49 4f 4e 20 2d  20 43 4c 49 43 4b 20 4d  |ERSION - CLICK M|
00000210  4f 55 53 45 20 54 4f 20  50 52 4f 43 45 45 44 22  |OUSE TO PROCEED"|
00000220  0d 01 2c 08 fb 31 32 39  0d 01 36 12 ef 32 38 2c  |..,..129..6..28,|
00000230  31 2c 33 31 2c 37 38 2c  32 33 0d 01 40 05 db 0d  |1,31,78,23..@...|
00000240  01 4a 20 68 25 3d 8e 28  22 3c 44 69 73 63 31 24  |.J h%=.("<Disc1$|
00000250  44 69 72 3e 2e 49 6e 73  74 72 75 63 74 22 29 0d  |Dir>.Instruct").|
00000260  01 54 0d 66 69 72 25 3d  a2 23 68 25 0d 01 5e 08  |.T.fir%=.#h%..^.|
00000270  d9 23 68 25 0d 01 68 21  68 25 3d 8e 28 22 3c 44  |.#h%..h!h%=.("<D|
00000280  69 73 63 31 24 44 69 72  3e 2e 5e 2e 4d 65 73 73  |isc1$Dir>.^.Mess|
00000290  61 67 65 22 29 0d 01 72  0d 73 65 63 25 3d a2 23  |age")..r.sec%=.#|
000002a0  68 25 0d 01 7c 08 d9 23  68 25 0d 01 86 12 6c 65  |h%..|..#h%....le|
000002b0  6e 25 3d 66 69 72 25 2b  73 65 63 25 0d 01 90 22  |n%=fir%+sec%..."|
000002c0  de 63 6f 64 25 35 31 32  2c 73 74 72 25 6c 65 6e  |.cod%512,str%len|
000002d0  25 2c 61 64 76 65 72 74  24 28 31 32 38 29 0d 01  |%,advert$(128)..|
000002e0  9a 0d e3 41 25 3d 30 b8  32 88 32 0d 01 a4 0b 50  |...A%=0.2.2....P|
000002f0  25 3d 63 6f 64 25 0d 01  ae 0a 5b 4f 50 54 41 25  |%=cod%....[OPTA%|
00000300  0d 01 b8 11 4c 44 52 20  52 30 2c 69 6e 61 64 64  |....LDR R0,inadd|
00000310  72 0d 01 c2 11 41 44 52  20 52 31 2c 69 6e 62 75  |r....ADR R1,inbu|
00000320  66 66 0d 01 cc 0e 4d 4f  56 20 52 32 2c 23 26 30  |ff....MOV R2,#&0|
00000330  0d 01 d6 14 4c 44 52 20  52 33 2c 69 6e 61 64 64  |....LDR R3,inadd|
00000340  72 2b 26 34 0d 01 e0 09  2e 72 65 61 64 0d 01 ea  |r+&4.....read...|
00000350  14 4c 44 52 42 20 52 34  2c 5b 52 30 5d 2c 23 26  |.LDRB R4,[R0],#&|
00000360  31 0d 01 f4 0f 43 4d 50  20 52 34 2c 23 26 32 30  |1....CMP R4,#&20|
00000370  0d 01 fe 0e 42 4c 54 20  66 69 6e 69 73 68 0d 02  |....BLT finish..|
00000380  08 0d 43 4d 50 20 52 30  2c 52 33 0d 02 12 0e 42  |..CMP R0,R3....B|
00000390  47 54 20 66 69 6e 69 73  68 0d 02 1c 14 53 54 52  |GT finish....STR|
000003a0  42 20 52 34 2c 5b 52 31  5d 2c 23 26 31 0d 02 26  |B R4,[R1],#&1..&|
000003b0  11 41 44 44 20 52 32 2c  52 32 2c 23 26 31 0d 02  |.ADD R2,R2,#&1..|
000003c0  30 0c 42 41 4c 20 72 65  61 64 0d 02 3a 0b 2e 66  |0.BAL read..:..f|
000003d0  69 6e 69 73 68 0d 02 44  0e 4d 4f 56 20 52 34 2c  |inish..D.MOV R4,|
000003e0  23 26 44 0d 02 4e 10 53  54 52 42 20 52 34 2c 5b  |#&D..N.STRB R4,[|
000003f0  52 31 5d 0d 02 58 11 53  54 52 20 52 30 2c 69 6e  |R1]..X.STR R0,in|
00000400  61 64 64 72 0d 02 62 0f  4d 4f 56 20 52 31 35 2c  |addr..b.MOV R15,|
00000410  52 31 34 0d 02 6c 0b 2e  69 6e 61 64 64 72 0d 02  |R14..l..inaddr..|
00000420  76 0d 45 51 55 44 20 73  74 72 25 0d 02 80 12 45  |v.EQUD str%....E|
00000430  51 55 44 20 73 74 72 25  2b 6c 65 6e 25 0d 02 8a  |QUD str%+len%...|
00000440  0b 2e 69 6e 62 75 66 66  0d 02 94 05 5d 0d 02 9e  |..inbuff....]...|
00000450  05 ed 0d 02 a8 2a ff 22  4c 4f 41 44 20 3c 44 69  |.....*."LOAD <Di|
00000460  73 63 31 24 44 69 72 3e  2e 49 6e 73 74 72 75 63  |sc1$Dir>.Instruc|
00000470  74 20 22 2b c3 7e 28 73  74 72 25 29 0d 02 b2 30  |t "+.~(str%)...0|
00000480  ff 22 4c 4f 41 44 20 3c  44 69 73 63 31 24 44 69  |."LOAD <Disc1$Di|
00000490  72 3e 2e 5e 2e 4d 65 73  73 61 67 65 20 22 2b c3  |r>.^.Message "+.|
000004a0  7e 28 73 74 72 25 2b 66  69 72 25 29 0d 02 bc 0e  |~(str%+fir%)....|
000004b0  66 69 72 25 2b 3d 73 74  72 25 0d 02 c6 08 4a 25  |fir%+=str%....J%|
000004c0  3d 31 0d 02 d0 1d c8 95  4a 25 3c 31 32 38 80 21  |=1......J%<128.!|
000004d0  69 6e 61 64 64 72 3c 69  6e 61 64 64 72 21 34 0d  |inaddr<inaddr!4.|
000004e0  02 da 09 d6 63 6f 64 25  0d 02 e4 17 61 64 76 65  |....cod%....adve|
000004f0  72 74 24 28 4a 25 29 3d  24 69 6e 62 75 66 66 0d  |rt$(J%)=$inbuff.|
00000500  02 ee 09 4a 25 2b 3d 31  0d 02 f8 05 ce 0d 03 02  |...J%+=1........|
00000510  13 61 64 76 65 72 74 24  28 4a 25 29 3d 22 2a 22  |.advert$(J%)="*"|
00000520  0d 03 0c 08 4a 25 3d 31  0d 03 16 16 c8 95 61 64  |....J%=1......ad|
00000530  76 65 72 74 24 28 4a 25  29 3c 3e 22 2a 22 0d 03  |vert$(J%)<>"*"..|
00000540  20 06 c8 96 0d 03 2a 10  f1 61 64 76 65 72 74 24  | .....*..advert$|
00000550  28 4a 25 29 0d 03 34 0a  e7 4a 25 3e 37 8c 0d 03  |(J%)..4..J%>7...|
00000560  3e 05 f5 0d 03 48 14 c8  97 6d 6f 78 25 2c 6d 6f  |>....H...mox%,mo|
00000570  79 25 2c 62 75 74 25 0d  03 52 0b fd 62 75 74 25  |y%,but%..R..but%|
00000580  3d 30 0d 03 5c 05 f5 0d  03 66 14 c8 97 6d 6f 78  |=0..\....f...mox|
00000590  25 2c 6d 6f 79 25 2c 62  75 74 25 0d 03 70 0b fd  |%,moy%,but%..p..|
000005a0  62 75 74 25 3e 30 0d 03  7a 05 cd 0d 03 84 09 4a  |but%>0..z......J|
000005b0  25 2b 3d 31 0d 03 8e 05  ce 0d 03 98 07 ef 32 36  |%+=1..........26|
000005c0  0d 03 a2 05 e1 0d ff                              |.......|
000005c7

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