Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF » F/TIME1

F/TIME1

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 » Electron_User_Group » EUG_36.ADF
Filename: F/TIME1
Read OK:
File size: 06AF bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    1ONERROR CHAIN"MENU1":RUN
    2*KEY10 OLD|MRUN|M
    3MODE1:VDU19,0,4,0,0,0,19,2,3,0,0,0:VDU23,224,&01,&02,&04,&08,&90,&A0,&C0,&80,23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C,23,1,0;0;0;0;
    4S$="                                        ":D$="........................................":DIM J$(7),K$(7),Q$(5),A$(5),N%(5),H$(12),M$(12),T$(5),Q%(5)
    5COLOUR128:FORI=1TO500:READJ$(I),K$(I)
    6IFJ$(I)<>"*"GOTO9
    7DA=I-1
    8I=500
    9NEXT
   10FORI=1TO12:READM$(I-1),H$(I):NEXT
   11MK=0:WN=0:FORI=1TO4:Q%(I)=0:NEXT:TIME=0
   12CLS:COLOUR1:COLOUR131:PRINTS$;"    L'heure (Micro French) ";CHR$(225);" LCL 1986   ";S$;:COLOUR128:COLOUR3
   13O$=" o'clock":PRINTH$(1);"=one";O$'H$(2);"=two";O$'H$(3);"=three";O$'H$(4);"=four";O$'H$(5);"=five";O$'H$(6);"=six";O$'H$(7);"=seven";O$'H$(8);"=eight";O$'H$(9);"=nine";O$'H$(10);"=ten";O$'H$(11);"=eleven";O$
   14B$=H$(2)+" ":V$="                ":Z$="     "
   15PRINTH$(12);"=twelve";O$;" (use this";V$;"not 'midi' or 'minuit')"''"2.05=";B$;M$(1)'"2.10=";B$;M$(2)'"2.15 (Quarter past two)="'Z$;B$;M$(3)'"2.20=";B$;M$(4)'"2.25=";B$;M$(5)'"2.30 (Half past two)="'Z$;B$;M$(6)'"2.35=";B$;M$(7)
   16 PRINT"2.40=";H$(3);" ";M$(8):PRINT"2.45 (Quarter to three)=":PRINTZ$;H$(3);" ";M$(9):PRINT"2.50=";H$(3);" ";M$(10):PRINT"2.55=";H$(3);" ";M$(11)
   17COLOUR2:PRINTTAB(0,31);"Appuyez sur C pour continuer...........";:R$=GET$:IFR$<>"C"ANDR$<>"c"GOTO17
   18COLOUR3:CLS:R%=0:CHAIN"TIME2"
   19DATA A quelle heure vous levez-vous,5,A quelle heure quittez-vous la maison,7,Quelle heure est-il,0,A quelle heure rentrez-vous,3,A quelle heure dinez-vous,6,A quelle heure vous couchez-vous,8,*,*
   20DATA ,une heure,cinq,deux heures,dix,trois heures,et quart,quatre heures,vingt,cinq heures,vingt-cinq,six heures,et demie,sept heures,trente-cinq,huit heures,moins vingt,neuf heures,moins le quart,dix heures,moins dix,onze heures
   21DATA moins cinq,douze heures
� �"MENU1":�
*KEY10 OLD|MRUN|M
~�1:�19,0,4,0,0,0,19,2,3,0,0,0:�23,224,&01,&02,&04,&08,&90,&A0,&C0,&80,23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C,23,1,0;0;0;0;
�S$="                                        ":D$="........................................":� J$(7),K$(7),Q$(5),A$(5),N%(5),H$(12),M$(12),T$(5),Q%(5)
�128:�I=1�500:�J$(I),K$(I)
�J$(I)<>"*"�TI@

DA=I-1
	I=500
	�

�I=1�12:�M$(I-1),H$(I):�
"MK=0:WN=0:�I=1�4:Q%(I)=0:�:�=0
Q�:�1:�131:�S$;"    L'heure (Micro French) ";�(225);" LCL 1986   ";S$;:�128:�3

�O$=" o'clock":�H$(1);"=one";O$'H$(2);"=two";O$'H$(3);"=three";O$'H$(4);"=four";O$'H$(5);"=five";O$'H$(6);"=six";O$'H$(7);"=seven";O$'H$(8);"=eight";O$'H$(9);"=nine";O$'H$(10);"=ten";O$'H$(11);"=eleven";O$
1B$=H$(2)+" ":V$="                ":Z$="     "
��H$(12);"=twelve";O$;" (use this";V$;"not 'midi' or 'minuit')"''"2.05=";B$;M$(1)'"2.10=";B$;M$(2)'"2.15 (Quarter past two)="'Z$;B$;M$(3)'"2.20=";B$;M$(4)'"2.25=";B$;M$(5)'"2.30 (Half past two)="'Z$;B$;M$(6)'"2.35=";B$;M$(7)
� �"2.40=";H$(3);" ";M$(8):�"2.45 (Quarter to three)=":�Z$;H$(3);" ";M$(9):�"2.50=";H$(3);" ";M$(10):�"2.55=";H$(3);" ";M$(11)
T�2:�0,31);"Appuyez sur C pour continuer...........";:R$=�:�R$<>"C"�R$<>"c"�TQ@
�3:�:R%=0:�"TIME2"
�� A quelle heure vous levez-vous,5,A quelle heure quittez-vous la maison,7,Quelle heure est-il,0,A quelle heure rentrez-vous,3,A quelle heure dinez-vous,6,A quelle heure vous couchez-vous,8,*,*
�� ,une heure,cinq,deux heures,dix,trois heures,et quart,quatre heures,vingt,cinq heures,vingt-cinq,six heures,et demie,sept heures,trente-cinq,huit heures,moins vingt,neuf heures,moins le quart,dix heures,moins dix,onze heures
� moins cinq,douze heures
�
00000000  0d 00 01 11 ee 85 20 d7  22 4d 45 4e 55 31 22 3a  |...... ."MENU1":|
00000010  f9 0d 00 02 15 2a 4b 45  59 31 30 20 4f 4c 44 7c  |.....*KEY10 OLD||
00000020  4d 52 55 4e 7c 4d 0d 00  03 7e eb 31 3a ef 31 39  |MRUN|M...~.1:.19|
00000030  2c 30 2c 34 2c 30 2c 30  2c 30 2c 31 39 2c 32 2c  |,0,4,0,0,0,19,2,|
00000040  33 2c 30 2c 30 2c 30 3a  ef 32 33 2c 32 32 34 2c  |3,0,0,0:.23,224,|
00000050  26 30 31 2c 26 30 32 2c  26 30 34 2c 26 30 38 2c  |&01,&02,&04,&08,|
00000060  26 39 30 2c 26 41 30 2c  26 43 30 2c 26 38 30 2c  |&90,&A0,&C0,&80,|
00000070  32 33 2c 32 32 35 2c 26  33 43 2c 26 34 32 2c 26  |23,225,&3C,&42,&|
00000080  39 39 2c 26 41 31 2c 26  41 31 2c 26 39 39 2c 26  |99,&A1,&A1,&99,&|
00000090  34 32 2c 26 33 43 2c 32  33 2c 31 2c 30 3b 30 3b  |42,&3C,23,1,0;0;|
000000a0  30 3b 30 3b 0d 00 04 99  53 24 3d 22 20 20 20 20  |0;0;....S$="    |
000000b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000000d0  20 20 20 20 22 3a 44 24  3d 22 2e 2e 2e 2e 2e 2e  |    ":D$="......|
000000e0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
*
00000100  2e 2e 22 3a de 20 4a 24  28 37 29 2c 4b 24 28 37  |..":. J$(7),K$(7|
00000110  29 2c 51 24 28 35 29 2c  41 24 28 35 29 2c 4e 25  |),Q$(5),A$(5),N%|
00000120  28 35 29 2c 48 24 28 31  32 29 2c 4d 24 28 31 32  |(5),H$(12),M$(12|
00000130  29 2c 54 24 28 35 29 2c  51 25 28 35 29 0d 00 05  |),T$(5),Q%(5)...|
00000140  1e fb 31 32 38 3a e3 49  3d 31 b8 35 30 30 3a f3  |..128:.I=1.500:.|
00000150  4a 24 28 49 29 2c 4b 24  28 49 29 0d 00 06 14 e7  |J$(I),K$(I).....|
00000160  4a 24 28 49 29 3c 3e 22  2a 22 e5 8d 54 49 40 0d  |J$(I)<>"*"..TI@.|
00000170  00 07 0a 44 41 3d 49 2d  31 0d 00 08 09 49 3d 35  |...DA=I-1....I=5|
00000180  30 30 0d 00 09 05 ed 0d  00 0a 1c e3 49 3d 31 b8  |00..........I=1.|
00000190  31 32 3a f3 4d 24 28 49  2d 31 29 2c 48 24 28 49  |12:.M$(I-1),H$(I|
000001a0  29 3a ed 0d 00 0b 22 4d  4b 3d 30 3a 57 4e 3d 30  |):...."MK=0:WN=0|
000001b0  3a e3 49 3d 31 b8 34 3a  51 25 28 49 29 3d 30 3a  |:.I=1.4:Q%(I)=0:|
000001c0  ed 3a d1 3d 30 0d 00 0c  51 db 3a fb 31 3a fb 31  |.:.=0...Q.:.1:.1|
000001d0  33 31 3a f1 53 24 3b 22  20 20 20 20 4c 27 68 65  |31:.S$;"    L'he|
000001e0  75 72 65 20 28 4d 69 63  72 6f 20 46 72 65 6e 63  |ure (Micro Frenc|
000001f0  68 29 20 22 3b bd 28 32  32 35 29 3b 22 20 4c 43  |h) ";.(225);" LC|
00000200  4c 20 31 39 38 36 20 20  20 22 3b 53 24 3b 3a fb  |L 1986   ";S$;:.|
00000210  31 32 38 3a fb 33 0d 00  0d d0 4f 24 3d 22 20 6f  |128:.3....O$=" o|
00000220  27 63 6c 6f 63 6b 22 3a  f1 48 24 28 31 29 3b 22  |'clock":.H$(1);"|
00000230  3d 6f 6e 65 22 3b 4f 24  27 48 24 28 32 29 3b 22  |=one";O$'H$(2);"|
00000240  3d 74 77 6f 22 3b 4f 24  27 48 24 28 33 29 3b 22  |=two";O$'H$(3);"|
00000250  3d 74 68 72 65 65 22 3b  4f 24 27 48 24 28 34 29  |=three";O$'H$(4)|
00000260  3b 22 3d 66 6f 75 72 22  3b 4f 24 27 48 24 28 35  |;"=four";O$'H$(5|
00000270  29 3b 22 3d 66 69 76 65  22 3b 4f 24 27 48 24 28  |);"=five";O$'H$(|
00000280  36 29 3b 22 3d 73 69 78  22 3b 4f 24 27 48 24 28  |6);"=six";O$'H$(|
00000290  37 29 3b 22 3d 73 65 76  65 6e 22 3b 4f 24 27 48  |7);"=seven";O$'H|
000002a0  24 28 38 29 3b 22 3d 65  69 67 68 74 22 3b 4f 24  |$(8);"=eight";O$|
000002b0  27 48 24 28 39 29 3b 22  3d 6e 69 6e 65 22 3b 4f  |'H$(9);"=nine";O|
000002c0  24 27 48 24 28 31 30 29  3b 22 3d 74 65 6e 22 3b  |$'H$(10);"=ten";|
000002d0  4f 24 27 48 24 28 31 31  29 3b 22 3d 65 6c 65 76  |O$'H$(11);"=elev|
000002e0  65 6e 22 3b 4f 24 0d 00  0e 31 42 24 3d 48 24 28  |en";O$...1B$=H$(|
000002f0  32 29 2b 22 20 22 3a 56  24 3d 22 20 20 20 20 20  |2)+" ":V$="     |
00000300  20 20 20 20 20 20 20 20  20 20 20 22 3a 5a 24 3d  |           ":Z$=|
00000310  22 20 20 20 20 20 22 0d  00 0f e3 f1 48 24 28 31  |"     ".....H$(1|
00000320  32 29 3b 22 3d 74 77 65  6c 76 65 22 3b 4f 24 3b  |2);"=twelve";O$;|
00000330  22 20 28 75 73 65 20 74  68 69 73 22 3b 56 24 3b  |" (use this";V$;|
00000340  22 6e 6f 74 20 27 6d 69  64 69 27 20 6f 72 20 27  |"not 'midi' or '|
00000350  6d 69 6e 75 69 74 27 29  22 27 27 22 32 2e 30 35  |minuit')"''"2.05|
00000360  3d 22 3b 42 24 3b 4d 24  28 31 29 27 22 32 2e 31  |=";B$;M$(1)'"2.1|
00000370  30 3d 22 3b 42 24 3b 4d  24 28 32 29 27 22 32 2e  |0=";B$;M$(2)'"2.|
00000380  31 35 20 28 51 75 61 72  74 65 72 20 70 61 73 74  |15 (Quarter past|
00000390  20 74 77 6f 29 3d 22 27  5a 24 3b 42 24 3b 4d 24  | two)="'Z$;B$;M$|
000003a0  28 33 29 27 22 32 2e 32  30 3d 22 3b 42 24 3b 4d  |(3)'"2.20=";B$;M|
000003b0  24 28 34 29 27 22 32 2e  32 35 3d 22 3b 42 24 3b  |$(4)'"2.25=";B$;|
000003c0  4d 24 28 35 29 27 22 32  2e 33 30 20 28 48 61 6c  |M$(5)'"2.30 (Hal|
000003d0  66 20 70 61 73 74 20 74  77 6f 29 3d 22 27 5a 24  |f past two)="'Z$|
000003e0  3b 42 24 3b 4d 24 28 36  29 27 22 32 2e 33 35 3d  |;B$;M$(6)'"2.35=|
000003f0  22 3b 42 24 3b 4d 24 28  37 29 0d 00 10 81 20 f1  |";B$;M$(7).... .|
00000400  22 32 2e 34 30 3d 22 3b  48 24 28 33 29 3b 22 20  |"2.40=";H$(3);" |
00000410  22 3b 4d 24 28 38 29 3a  f1 22 32 2e 34 35 20 28  |";M$(8):."2.45 (|
00000420  51 75 61 72 74 65 72 20  74 6f 20 74 68 72 65 65  |Quarter to three|
00000430  29 3d 22 3a f1 5a 24 3b  48 24 28 33 29 3b 22 20  |)=":.Z$;H$(3);" |
00000440  22 3b 4d 24 28 39 29 3a  f1 22 32 2e 35 30 3d 22  |";M$(9):."2.50="|
00000450  3b 48 24 28 33 29 3b 22  20 22 3b 4d 24 28 31 30  |;H$(3);" ";M$(10|
00000460  29 3a f1 22 32 2e 35 35  3d 22 3b 48 24 28 33 29  |):."2.55=";H$(3)|
00000470  3b 22 20 22 3b 4d 24 28  31 31 29 0d 00 11 54 fb  |;" ";M$(11)...T.|
00000480  32 3a f1 8a 30 2c 33 31  29 3b 22 41 70 70 75 79  |2:..0,31);"Appuy|
00000490  65 7a 20 73 75 72 20 43  20 70 6f 75 72 20 63 6f  |ez sur C pour co|
000004a0  6e 74 69 6e 75 65 72 2e  2e 2e 2e 2e 2e 2e 2e 2e  |ntinuer.........|
000004b0  2e 2e 22 3b 3a 52 24 3d  be 3a e7 52 24 3c 3e 22  |..";:R$=.:.R$<>"|
000004c0  43 22 80 52 24 3c 3e 22  63 22 e5 8d 54 51 40 0d  |C".R$<>"c"..TQ@.|
000004d0  00 12 16 fb 33 3a db 3a  52 25 3d 30 3a d7 22 54  |....3:.:R%=0:."T|
000004e0  49 4d 45 32 22 0d 00 13  c5 dc 20 41 20 71 75 65  |IME2"..... A que|
000004f0  6c 6c 65 20 68 65 75 72  65 20 76 6f 75 73 20 6c  |lle heure vous l|
00000500  65 76 65 7a 2d 76 6f 75  73 2c 35 2c 41 20 71 75  |evez-vous,5,A qu|
00000510  65 6c 6c 65 20 68 65 75  72 65 20 71 75 69 74 74  |elle heure quitt|
00000520  65 7a 2d 76 6f 75 73 20  6c 61 20 6d 61 69 73 6f  |ez-vous la maiso|
00000530  6e 2c 37 2c 51 75 65 6c  6c 65 20 68 65 75 72 65  |n,7,Quelle heure|
00000540  20 65 73 74 2d 69 6c 2c  30 2c 41 20 71 75 65 6c  | est-il,0,A quel|
00000550  6c 65 20 68 65 75 72 65  20 72 65 6e 74 72 65 7a  |le heure rentrez|
00000560  2d 76 6f 75 73 2c 33 2c  41 20 71 75 65 6c 6c 65  |-vous,3,A quelle|
00000570  20 68 65 75 72 65 20 64  69 6e 65 7a 2d 76 6f 75  | heure dinez-vou|
00000580  73 2c 36 2c 41 20 71 75  65 6c 6c 65 20 68 65 75  |s,6,A quelle heu|
00000590  72 65 20 76 6f 75 73 20  63 6f 75 63 68 65 7a 2d  |re vous couchez-|
000005a0  76 6f 75 73 2c 38 2c 2a  2c 2a 0d 00 14 e6 dc 20  |vous,8,*,*..... |
000005b0  2c 75 6e 65 20 68 65 75  72 65 2c 63 69 6e 71 2c  |,une heure,cinq,|
000005c0  64 65 75 78 20 68 65 75  72 65 73 2c 64 69 78 2c  |deux heures,dix,|
000005d0  74 72 6f 69 73 20 68 65  75 72 65 73 2c 65 74 20  |trois heures,et |
000005e0  71 75 61 72 74 2c 71 75  61 74 72 65 20 68 65 75  |quart,quatre heu|
000005f0  72 65 73 2c 76 69 6e 67  74 2c 63 69 6e 71 20 68  |res,vingt,cinq h|
00000600  65 75 72 65 73 2c 76 69  6e 67 74 2d 63 69 6e 71  |eures,vingt-cinq|
00000610  2c 73 69 78 20 68 65 75  72 65 73 2c 65 74 20 64  |,six heures,et d|
00000620  65 6d 69 65 2c 73 65 70  74 20 68 65 75 72 65 73  |emie,sept heures|
00000630  2c 74 72 65 6e 74 65 2d  63 69 6e 71 2c 68 75 69  |,trente-cinq,hui|
00000640  74 20 68 65 75 72 65 73  2c 6d 6f 69 6e 73 20 76  |t heures,moins v|
00000650  69 6e 67 74 2c 6e 65 75  66 20 68 65 75 72 65 73  |ingt,neuf heures|
00000660  2c 6d 6f 69 6e 73 20 6c  65 20 71 75 61 72 74 2c  |,moins le quart,|
00000670  64 69 78 20 68 65 75 72  65 73 2c 6d 6f 69 6e 73  |dix heures,moins|
00000680  20 64 69 78 2c 6f 6e 7a  65 20 68 65 75 72 65 73  | dix,onze heures|
00000690  0d 00 15 1d dc 20 6d 6f  69 6e 73 20 63 69 6e 71  |..... moins cinq|
000006a0  2c 64 6f 75 7a 65 20 68  65 75 72 65 73 0d ff     |,douze heures..|
000006af
F/TIME1.m0
F/TIME1.m1
F/TIME1.m2
F/TIME1.m4
F/TIME1.m5