Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF » F/TIME
F/TIME
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/TIME |
| Read OK: | ✔ |
| File size: | 0F4A bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_36.ADF » F/TIME
- Personal collection » Acorn hard disk » zipped_disks » elk03 » eug36/F/TIME
File contents
10 REM MICRO FRENCH (TIME)
20 REM COPYRIGHT (C) LCL 1986
21REM CRACKED BY THE DAVE EC
22ONERROR CHAIN"MENU1":RUN
24 *KEY10"OLD|M RUN|M"
30 MODE1
40 DIM J$(7),K$(7),Q$(5),A$(5),N%(5),H$(12),M$(12),T$(5),Q%(5)
50 C0=0:C1=1:C2=2:C3=3
60 VDU19,0,4,0,0,0,19,2,3,0,0,0
70 VDU23,224,&01,&02,&04,&08,&90,&A0,&C0,&80
71 VDU23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C
72 VDU23,1,0;0;0;0;
80 S$=" "
90 D$="........................................"
100 REM TS=0
110 COLOURC0+128
120 FORI=1TO500
130 READJ$(I),K$(I)
140 IFJ$(I)<>"*"THENGOTO150
142 DA=I-1
144 I=500
150 NEXTI
152 FORI=1TO12:READM$(I-1),H$(I):NEXT
160 REM T%=0
170 MK=0
180 WN=0
182 FORI=1TO4:Q%(I)=0:NEXT:TIME=0
184 IF R%=0 THEN GOSUB750
190 CLS
210 COLOURC1
220 COLOURC3+128
230 PRINTTAB(0,3);S$;" L'heure (Micro French) ";CHR$(225);" LCL 1986 ";S$;
240 COLOURC0+128
250 COLOURC3
290 PRINT:PRINT:PRINT
300 NM=0
302 TT=TIME
310 FORI=0TO4
320 IF I<>0 AND Q%(I+1)=1 THEN Q%(I+1)=0:GOTO382
321 W=RND(DA)
322 N%(I)=W
330 K=I+1
381 GOSUB700
382 IFI<>0THENGOTO400
384 PRINTTAB(0,9);"0 ";Q$(1):PRINTTAB(2,10);T$(1);:COLOUR C2:PRINTA$(1);STRING$(36-LEN(A$(1))-LEN(T$(1)),".");:COLOURC1:PRINTCHR$(224):COLOURC3
386 GOTO440
400 REM
402 Y=9+I*4
404 X=0
420 LD=36
430 PRINTTAB(X,Y);I;" ";Q$(I+1):PRINTTAB(2,Y+1);T$(I+1);LEFT$(D$,LD-LEN(T$(I+1)));
440 NEXTI
442 WN=0
450 FORI=1TO4
452 WT=0:T%=T%+1:I$=""
460 COLOUR C2:PRINT TAB(0,9+I*4);I;:PRINTTAB(9,10+I*4);
490 I1$=INKEY$(0):IF I1$="?" THEN PRINT TAB(9,10+I*4);A$(I+1);STRING$(29-LEN(A$(I+1)),".");" ";:COLOUR C2:Q%(I+1)=1:GOTO 590
491 IF WT=1 AND I1$<>"" THEN LI=35-LEN(T$(I+1)):LA=LEN(A$(I+1)):COLOUR C2:PRINT STRING$(LI,".");" ";STRING$(LI+1,CHR$(8));CHR$(10);STRING$(LA," ");STRING$(LA,CHR$(8));CHR$(11);:WT=0
492 IFTIME<(6000+TT)THENGOTO509
500 XP=POS
502 YP=VPOS
504 COLOURC2
506 PRINTTAB(30,1);"TIME UP"
507 COLOUR C2
508 PRINTTAB(XP,YP);
509 IFI1$<>""THENGOTO519
510 XP=POS
511 YP=VPOS
512 PRINTTAB(0,1);STR$(T%)+") Score "+STR$(M%)+" "+STR$(INT(TIME/100))+" s"
513 PRINTTAB(XP,YP);
514 GOTO490
519 IF I1$=CHR$(13) OR LEN(I$)>28 OR I1$=CHR$(127) THENGOTO530
520 XP=POS+1:YP=VPOS
522 PRINTI1$;
523 PRINTTAB(0,1);STR$(T%)+") Score "+STR$(M%)+" "+STR$(INT(TIME/100))+" s"
524 PRINTTAB(XP,YP);
525 IF ASC(I1$)<>-1 THEN I$=I$+CHR$(ASC(I1$)OR&20) ELSE I$=I$+CHR$(ASC(I1)-&60)
526 GOTO 490
530 IF I1$<>CHR$(127) OR I$="" THENGOTO540
532 I$=LEFT$(I$,LEN(I$)-1)
534 PRINTCHR$(127);
536 GOTO 490
540 COLOURC1
550 IFI$<>A$(I+1)THENGOTO560
552 PRINTTAB(38,10+I*4);CHR$(224)
554 SOUND1,-15,101,10
556 S%=S%+1
560 IFI$=A$(I+1)THENGOTO570
562 PRINT TAB(38,10+I*4);"X";
564SOUND1,-15,73,10
566 SOUND1,-15,69,5
567 W%=W%+1:WN=WN+1:Q%(I+1)=1
568 PRINTTAB(9,11+I*4);A$(I+1)
569 WT=1:I$="":COLOUR C2:GOTO 460
570 COLOUR C2
580 M%=INT(100*S%/(S%+W%))
590 NEXTI
600 PRINTTAB(0,29);"Appuyez sur C pour continuer /H=aider..";
610 R$=GET$
612 IFR$<>"C"ANDR$<>"c"ANDR$<>"H" AND R$<>"h" THENGOTO610
620 IF R$="C" OR R$="c" THENR%=1 ELSE R%=0
622 IFT%/8=INT(T%/8) THEN RUN
624 IF R%=1 THEN GOTO190 ELSE GOTO 184
630 DATA 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,*,*
650 DATA ,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
660 DATA moins cinq,douze heures
700 TM=RND(12)*5-5:TH=VAL(K$(W))+RND(3)
710 A$(I+1)=H$(TH)+" "+M$(INT(TM/5))
720 IF TM>35 THEN A$(I+1)=H$(TH+1)+" "+M$(INT(TM/5))
722 IF TM=0 THEN A$(I+1)=H$(TH)
730 Q$(I+1)=J$(W)+"?":T$(I+1)="("+STR$(TH)+"."+RIGHT$("00"+STR$(TM),2)+")"
740 RETURN
750 CLS: COLOURC1:COLOURC3+128:PRINTS$;" L'heure (Micro French) ";CHR$(225);" LCL 1986 ";S$;:COLOURC0+128:COLOURC3
760 O$=" o'clock":PRINTH$(1);"=one";O$:PRINTH$(2);"=two";O$:PRINTH$(3);"=three";O$:PRINTH$(4);"=four";O$:PRINTH$(5);"=five";O$:PRINTH$(6);"=six";O$:PRINTH$(7);"=seven";O$:PRINTH$(8);"=eight";O$:PRINTH$(9);"=nine";O$:PRINTH$(10);"=ten";O$:PRINTH$(11);"=eleven";O$
762 B$=H$(2)+" ":V$=" ":Z$=" "
770 PRINTH$(12);"=twelve";O$;" (use this";V$;"not 'midi' or 'minuit')":PRINT:PRINT"2.05=";B$;M$(1):PRINT"2.10=";B$;M$(2):PRINT"2.15 (Quarter past two)=":PRINTZ$;B$;M$(3):PRINT"2.20=";B$;M$(4)
772 PRINT"2.25=";B$;M$(5):PRINT"2.30 (Half past two)=":PRINTZ$;B$;M$(6):PRINT"2.35=";B$;M$(7)
780 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)
790 COLOURC2:PRINTTAB(0,31);"Appuyez sur C pour continuer...........";:R$=GET$:IFR$<>"C"ANDR$<>"c"THENGOTO790
800 COLOURC3:RETURN
� MICRO FRENCH (TIME)
� COPYRIGHT (C) LCL 1986
� CRACKED BY THE DAVE EC
� �"MENU1":�
*KEY10"OLD|M RUN|M"
�1
(> � J$(7),K$(7),Q$(5),A$(5),N%(5),H$(12),M$(12),T$(5),Q%(5)
2 C0=0:C1=1:C2=2:C3=3
< �19,0,4,0,0,0,19,2,3,0,0,0
F, �23,224,&01,&02,&04,&08,&90,&A0,&C0,&80
G, �23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C
H �23,1,0;0;0;0;
P2 S$=" "
Z2 D$="........................................"
d � TS=0
n �C0+128
x
�I=1�500
� �J$(I),K$(I)
� �J$(I)<>"*"��tV@
� DA=I-1
� I=500
� �I
� �I=1�12:�M$(I-1),H$(I):�
� � T%=0
� MK=0
� WN=0
� �I=1�4:Q%(I)=0:�:�=0
� � R%=0 � �dnB
� �
� �C1
� �C3+128
�F �0,3);S$;" L'heure (Micro French) ";�(225);" LCL 1986 ";S$;
� �C0+128
� �C3
"
�:�:�
, NM=0
. TT=�
6 �I=0�4
@) � I<>0 � Q%(I+1)=1 � Q%(I+1)=0:�D~A
A W=�(DA)
B N%(I)=W
J
K=I+1
}
�t|B
~ �I<>0��tPA
�] �0,9);"0 ";Q$(1):�2,10);T$(1);:� C2:�A$(1);�36-�(A$(1))-�(T$(1)),".");:�C1:�(224):�C3
� �txA
� �
� Y=9+I*4
� X=0
�
LD=36
�> �X,Y);I;" ";Q$(I+1):�2,Y+1);T$(I+1);�D$,LD-�(T$(I+1)));
� �I
� WN=0
� �I=1�4
� WT=0:T%=T%+1:I$=""
�% � C2:� �0,9+I*4);I;:�9,10+I*4);
�] I1$=�(0):� I1$="?" � � �9,10+I*4);A$(I+1);�29-�(A$(I+1)),".");" ";:� C2:Q%(I+1)=1:� �DNB
�{ � WT=1 � I1$<>"" � LI=35-�(T$(I+1)):LA=�(A$(I+1)):� C2:� �LI,".");" ";�LI+1,�(8));�(10);�LA," ");�LA,�(8));�(11);:WT=0
� �<(6000+TT)��d}A
� XP=�
� YP=�
� �C2
� �30,1);"TIME UP"
� � C2
� �XP,YP);
� �I1$<>""��TGB
� XP=�
� YP=�
; �0,1);�(T%)+") Score "+�(M%)+" "+�(�(�/100))+" s"
�XP,YP);
�djA
/ � I1$=�(13) � �(I$)>28 � I1$=�(127) ��TRB
XP=�+1:YP=�
�I1$;
; �0,1);�(T%)+") Score "+�(M%)+" "+�(�(�/100))+" s"
�XP,YP);
< � �(I1$)<>-1 � I$=I$+�(�(I1$)�&20) � I$=I$+�(�(I1)-&60)
� �djA
! � I1$<>�(127) � I$="" ��T\B
I$=�I$,�(I$)-1)
�(127);
� �djA
�C1
& �I$<>A$(I+1)��TpB
( �38,10+I*4);�(224)
* �1,-15,101,10
, S%=S%+1
0 �I$=A$(I+1)��TzB
2 � �38,10+I*4);"X";
4�1,-15,73,10
6 �1,-15,69,5
7 W%=W%+1:WN=WN+1:Q%(I+1)=1
8 �9,11+I*4);A$(I+1)
9 WT=1:I$="":� C2:� �dLA
: � C2
D M%=�(100*S%/(S%+W%))
N �I
X7 �0,29);"Appuyez sur C pour continuer /H=aider..";
b R$=�
d. �R$<>"C"�R$<>"c"�R$<>"H" � R$<>"h" ��DbB
l# � R$="C" � R$="c" �R%=1 � R%=0
n �T%/8=�(T%/8) � �
p � R%=1 � �t~@ � � �tx@
v� � 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
�" TM=�(12)*5-5:TH=�(K$(W))+�(3)
�# A$(I+1)=H$(TH)+" "+M$(�(TM/5))
�/ � TM>35 � A$(I+1)=H$(TH+1)+" "+M$(�(TM/5))
� � TM=0 � A$(I+1)=H$(TH)
�? Q$(I+1)=J$(W)+"?":T$(I+1)="("+�(TH)+"."+�"00"+�(TM),2)+")"
� �
�[ �: �C1:�C3+128:�S$;" L'heure (Micro French) ";�(225);" LCL 1986 ";S$;:�C0+128:�C3
�� 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$
�2 B$=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)
N �"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)
W �C2:�0,31);"Appuyez sur C pour continuer...........";:R$=�:�R$<>"C"�R$<>"c"��TVC
�C3:�
� 00000000 0d 00 0a 1a 20 f4 20 4d 49 43 52 4f 20 46 52 45 |.... . MICRO FRE|
00000010 4e 43 48 20 28 54 49 4d 45 29 0d 00 14 1d 20 f4 |NCH (TIME).... .|
00000020 20 43 4f 50 59 52 49 47 48 54 20 28 43 29 20 4c | COPYRIGHT (C) L|
00000030 43 4c 20 31 39 38 36 0d 00 15 1c f4 20 43 52 41 |CL 1986..... CRA|
00000040 43 4b 45 44 20 42 59 20 54 48 45 20 44 41 56 45 |CKED BY THE DAVE|
00000050 20 45 43 0d 00 16 11 ee 85 20 d7 22 4d 45 4e 55 | EC...... ."MENU|
00000060 31 22 3a f9 0d 00 18 18 20 2a 4b 45 59 31 30 22 |1":..... *KEY10"|
00000070 4f 4c 44 7c 4d 20 52 55 4e 7c 4d 22 0d 00 1e 07 |OLD|M RUN|M"....|
00000080 20 eb 31 0d 00 28 3e 20 de 20 4a 24 28 37 29 2c | .1..(> . J$(7),|
00000090 4b 24 28 37 29 2c 51 24 28 35 29 2c 41 24 28 35 |K$(7),Q$(5),A$(5|
000000a0 29 2c 4e 25 28 35 29 2c 48 24 28 31 32 29 2c 4d |),N%(5),H$(12),M|
000000b0 24 28 31 32 29 2c 54 24 28 35 29 2c 51 25 28 35 |$(12),T$(5),Q%(5|
000000c0 29 0d 00 32 18 20 43 30 3d 30 3a 43 31 3d 31 3a |)..2. C0=0:C1=1:|
000000d0 43 32 3d 32 3a 43 33 3d 33 0d 00 3c 1f 20 ef 31 |C2=2:C3=3..<. .1|
000000e0 39 2c 30 2c 34 2c 30 2c 30 2c 30 2c 31 39 2c 32 |9,0,4,0,0,0,19,2|
000000f0 2c 33 2c 30 2c 30 2c 30 0d 00 46 2c 20 ef 32 33 |,3,0,0,0..F, .23|
00000100 2c 32 32 34 2c 26 30 31 2c 26 30 32 2c 26 30 34 |,224,&01,&02,&04|
00000110 2c 26 30 38 2c 26 39 30 2c 26 41 30 2c 26 43 30 |,&08,&90,&A0,&C0|
00000120 2c 26 38 30 0d 00 47 2c 20 ef 32 33 2c 32 32 35 |,&80..G, .23,225|
00000130 2c 26 33 43 2c 26 34 32 2c 26 39 39 2c 26 41 31 |,&3C,&42,&99,&A1|
00000140 2c 26 41 31 2c 26 39 39 2c 26 34 32 2c 26 33 43 |,&A1,&99,&42,&3C|
00000150 0d 00 48 13 20 ef 32 33 2c 31 2c 30 3b 30 3b 30 |..H. .23,1,0;0;0|
00000160 3b 30 3b 0d 00 50 32 20 53 24 3d 22 20 20 20 20 |;0;..P2 S$=" |
00000170 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00000190 20 20 20 20 22 0d 00 5a 32 20 44 24 3d 22 2e 2e | "..Z2 D$="..|
000001a0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e |................|
*
000001c0 2e 2e 2e 2e 2e 2e 22 0d 00 64 0b 20 f4 20 54 53 |......"..d. . TS|
000001d0 3d 30 0d 00 6e 0c 20 fb 43 30 2b 31 32 38 0d 00 |=0..n. .C0+128..|
000001e0 78 0d 20 e3 49 3d 31 b8 35 30 30 0d 00 82 12 20 |x. .I=1.500.... |
000001f0 f3 4a 24 28 49 29 2c 4b 24 28 49 29 20 0d 00 8c |.J$(I),K$(I) ...|
00000200 16 20 e7 4a 24 28 49 29 3c 3e 22 2a 22 8c e5 8d |. .J$(I)<>"*"...|
00000210 74 56 40 0d 00 8e 0b 20 44 41 3d 49 2d 31 0d 00 |tV@.... DA=I-1..|
00000220 90 0b 20 49 3d 35 30 30 20 0d 00 96 09 20 ed 49 |.. I=500 .... .I|
00000230 20 20 0d 00 98 1d 20 e3 49 3d 31 b8 31 32 3a f3 | .... .I=1.12:.|
00000240 4d 24 28 49 2d 31 29 2c 48 24 28 49 29 3a ed 0d |M$(I-1),H$(I):..|
00000250 00 a0 0b 20 f4 20 54 25 3d 30 0d 00 aa 09 20 4d |... . T%=0.... M|
00000260 4b 3d 30 0d 00 b4 09 20 57 4e 3d 30 0d 00 b6 19 |K=0.... WN=0....|
00000270 20 e3 49 3d 31 b8 34 3a 51 25 28 49 29 3d 30 3a | .I=1.4:Q%(I)=0:|
00000280 ed 3a d1 3d 30 0d 00 b8 13 20 e7 20 52 25 3d 30 |.:.=0.... . R%=0|
00000290 20 8c 20 e4 8d 64 6e 42 0d 00 be 06 20 db 0d 00 | . ..dnB.... ...|
000002a0 d2 08 20 fb 43 31 0d 00 dc 0c 20 fb 43 33 2b 31 |.. .C1.... .C3+1|
000002b0 32 38 0d 00 e6 46 20 f1 8a 30 2c 33 29 3b 53 24 |28...F ..0,3);S$|
000002c0 3b 22 20 20 20 20 4c 27 68 65 75 72 65 20 28 4d |;" L'heure (M|
000002d0 69 63 72 6f 20 46 72 65 6e 63 68 29 20 22 3b bd |icro French) ";.|
000002e0 28 32 32 35 29 3b 22 20 4c 43 4c 20 31 39 38 36 |(225);" LCL 1986|
000002f0 20 20 20 22 3b 53 24 3b 0d 00 f0 0c 20 fb 43 30 | ";S$;.... .C0|
00000300 2b 31 32 38 0d 00 fa 08 20 fb 43 33 0d 01 22 0a |+128.... .C3..".|
00000310 20 f1 3a f1 3a f1 0d 01 2c 09 20 4e 4d 3d 30 0d | .:.:...,. NM=0.|
00000320 01 2e 09 20 54 54 3d 91 0d 01 36 0b 20 e3 49 3d |... TT=...6. .I=|
00000330 30 b8 34 0d 01 40 29 20 e7 20 49 3c 3e 30 20 80 |0.4..@) . I<>0 .|
00000340 20 51 25 28 49 2b 31 29 3d 31 20 8c 20 51 25 28 | Q%(I+1)=1 . Q%(|
00000350 49 2b 31 29 3d 30 3a e5 8d 44 7e 41 0d 01 41 0c |I+1)=0:..D~A..A.|
00000360 20 57 3d b3 28 44 41 29 0d 01 42 0c 20 4e 25 28 | W=.(DA)..B. N%(|
00000370 49 29 3d 57 0d 01 4a 0a 20 4b 3d 49 2b 31 0d 01 |I)=W..J. K=I+1..|
00000380 7d 0a 20 e4 8d 74 7c 42 0d 01 7e 10 20 e7 49 3c |}. ..t|B..~. .I<|
00000390 3e 30 8c e5 8d 74 50 41 0d 01 80 5d 20 f1 8a 30 |>0...tPA...] ..0|
000003a0 2c 39 29 3b 22 30 20 22 3b 51 24 28 31 29 3a f1 |,9);"0 ";Q$(1):.|
000003b0 8a 32 2c 31 30 29 3b 54 24 28 31 29 3b 3a fb 20 |.2,10);T$(1);:. |
000003c0 43 32 3a f1 41 24 28 31 29 3b c4 33 36 2d a9 28 |C2:.A$(1);.36-.(|
000003d0 41 24 28 31 29 29 2d a9 28 54 24 28 31 29 29 2c |A$(1))-.(T$(1)),|
000003e0 22 2e 22 29 3b 3a fb 43 31 3a f1 bd 28 32 32 34 |".");:.C1:..(224|
000003f0 29 3a fb 43 33 0d 01 82 0b 20 e5 8d 74 78 41 20 |):.C3.... ..txA |
00000400 0d 01 90 06 20 f4 0d 01 92 0c 20 59 3d 39 2b 49 |.... ..... Y=9+I|
00000410 2a 34 0d 01 94 08 20 58 3d 30 0d 01 a4 0a 20 4c |*4.... X=0.... L|
00000420 44 3d 33 36 0d 01 ae 3e 20 f1 8a 58 2c 59 29 3b |D=36...> ..X,Y);|
00000430 49 3b 22 20 22 3b 51 24 28 49 2b 31 29 3a f1 8a |I;" ";Q$(I+1):..|
00000440 32 2c 59 2b 31 29 3b 54 24 28 49 2b 31 29 3b c0 |2,Y+1);T$(I+1);.|
00000450 44 24 2c 4c 44 2d a9 28 54 24 28 49 2b 31 29 29 |D$,LD-.(T$(I+1))|
00000460 29 3b 0d 01 b8 07 20 ed 49 0d 01 ba 09 20 57 4e |);.... .I.... WN|
00000470 3d 30 0d 01 c2 0b 20 e3 49 3d 31 b8 34 0d 01 c4 |=0.... .I=1.4...|
00000480 17 20 57 54 3d 30 3a 54 25 3d 54 25 2b 31 3a 49 |. WT=0:T%=T%+1:I|
00000490 24 3d 22 22 0d 01 cc 25 20 fb 20 43 32 3a f1 20 |$=""...% . C2:. |
000004a0 8a 30 2c 39 2b 49 2a 34 29 3b 49 3b 3a f1 8a 39 |.0,9+I*4);I;:..9|
000004b0 2c 31 30 2b 49 2a 34 29 3b 0d 01 ea 5d 20 49 31 |,10+I*4);...] I1|
000004c0 24 3d bf 28 30 29 3a e7 20 49 31 24 3d 22 3f 22 |$=.(0):. I1$="?"|
000004d0 20 8c 20 f1 20 8a 39 2c 31 30 2b 49 2a 34 29 3b | . . .9,10+I*4);|
000004e0 41 24 28 49 2b 31 29 3b c4 32 39 2d a9 28 41 24 |A$(I+1);.29-.(A$|
000004f0 28 49 2b 31 29 29 2c 22 2e 22 29 3b 22 20 22 3b |(I+1)),".");" ";|
00000500 3a fb 20 43 32 3a 51 25 28 49 2b 31 29 3d 31 3a |:. C2:Q%(I+1)=1:|
00000510 e5 20 8d 44 4e 42 0d 01 eb 7b 20 e7 20 57 54 3d |. .DNB...{ . WT=|
00000520 31 20 80 20 49 31 24 3c 3e 22 22 20 8c 20 4c 49 |1 . I1$<>"" . LI|
00000530 3d 33 35 2d a9 28 54 24 28 49 2b 31 29 29 3a 4c |=35-.(T$(I+1)):L|
00000540 41 3d a9 28 41 24 28 49 2b 31 29 29 3a fb 20 43 |A=.(A$(I+1)):. C|
00000550 32 3a f1 20 c4 4c 49 2c 22 2e 22 29 3b 22 20 22 |2:. .LI,".");" "|
00000560 3b c4 4c 49 2b 31 2c bd 28 38 29 29 3b bd 28 31 |;.LI+1,.(8));.(1|
00000570 30 29 3b c4 4c 41 2c 22 20 22 29 3b c4 4c 41 2c |0);.LA," ");.LA,|
00000580 bd 28 38 29 29 3b bd 28 31 31 29 3b 3a 57 54 3d |.(8));.(11);:WT=|
00000590 30 0d 01 ec 17 20 e7 91 3c 28 36 30 30 30 2b 54 |0.... ..<(6000+T|
000005a0 54 29 8c e5 8d 64 7d 41 0d 01 f4 09 20 58 50 3d |T)...d}A.... XP=|
000005b0 b1 0d 01 f6 09 20 59 50 3d bc 0d 01 f8 08 20 fb |..... YP=..... .|
000005c0 43 32 0d 01 fa 16 20 f1 8a 33 30 2c 31 29 3b 22 |C2.... ..30,1);"|
000005d0 54 49 4d 45 20 55 50 22 0d 01 fb 09 20 fb 20 43 |TIME UP".... . C|
000005e0 32 0d 01 fc 0e 20 f1 8a 58 50 2c 59 50 29 3b 0d |2.... ..XP,YP);.|
000005f0 01 fd 13 20 e7 49 31 24 3c 3e 22 22 8c e5 8d 54 |... .I1$<>""...T|
00000600 47 42 0d 01 fe 09 20 58 50 3d b1 0d 01 ff 09 20 |GB.... XP=..... |
00000610 59 50 3d bc 0d 02 00 3b 20 f1 8a 30 2c 31 29 3b |YP=....; ..0,1);|
00000620 c3 28 54 25 29 2b 22 29 20 20 20 53 63 6f 72 65 |.(T%)+") Score|
00000630 20 22 2b c3 28 4d 25 29 2b 22 20 20 20 22 2b c3 | "+.(M%)+" "+.|
00000640 28 a8 28 91 2f 31 30 30 29 29 2b 22 20 73 22 0d |(.(./100))+" s".|
00000650 02 01 0e 20 f1 8a 58 50 2c 59 50 29 3b 0d 02 02 |... ..XP,YP);...|
00000660 0a 20 e5 8d 64 6a 41 0d 02 07 2f 20 e7 20 49 31 |. ..djA.../ . I1|
00000670 24 3d bd 28 31 33 29 20 84 20 a9 28 49 24 29 3e |$=.(13) . .(I$)>|
00000680 32 38 20 84 20 49 31 24 3d bd 28 31 32 37 29 20 |28 . I1$=.(127) |
00000690 8c e5 8d 54 52 42 0d 02 08 10 20 58 50 3d b1 2b |...TRB.... XP=.+|
000006a0 31 3a 59 50 3d bc 0d 02 0a 0a 20 f1 49 31 24 3b |1:YP=..... .I1$;|
000006b0 0d 02 0b 3b 20 f1 8a 30 2c 31 29 3b c3 28 54 25 |...; ..0,1);.(T%|
000006c0 29 2b 22 29 20 20 20 53 63 6f 72 65 20 22 2b c3 |)+") Score "+.|
000006d0 28 4d 25 29 2b 22 20 20 20 22 2b c3 28 a8 28 91 |(M%)+" "+.(.(.|
000006e0 2f 31 30 30 29 29 2b 22 20 73 22 0d 02 0c 0e 20 |/100))+" s".... |
000006f0 f1 8a 58 50 2c 59 50 29 3b 0d 02 0d 3c 20 e7 20 |..XP,YP);...< . |
00000700 97 28 49 31 24 29 3c 3e 2d 31 20 8c 20 49 24 3d |.(I1$)<>-1 . I$=|
00000710 49 24 2b bd 28 97 28 49 31 24 29 84 26 32 30 29 |I$+.(.(I1$).&20)|
00000720 20 8b 20 49 24 3d 49 24 2b bd 28 97 28 49 31 29 | . I$=I$+.(.(I1)|
00000730 2d 26 36 30 29 0d 02 0e 0b 20 e5 20 8d 64 6a 41 |-&60).... . .djA|
00000740 0d 02 12 21 20 e7 20 49 31 24 3c 3e bd 28 31 32 |...! . I1$<>.(12|
00000750 37 29 20 84 20 49 24 3d 22 22 20 8c e5 8d 54 5c |7) . I$="" ...T\|
00000760 42 0d 02 14 14 20 49 24 3d c0 49 24 2c a9 28 49 |B.... I$=.I$,.(I|
00000770 24 29 2d 31 29 0d 02 16 0d 20 f1 bd 28 31 32 37 |$)-1).... ..(127|
00000780 29 3b 0d 02 18 0b 20 e5 20 8d 64 6a 41 0d 02 1c |);.... . .djA...|
00000790 08 20 fb 43 31 0d 02 26 17 20 e7 49 24 3c 3e 41 |. .C1..&. .I$<>A|
000007a0 24 28 49 2b 31 29 8c e5 8d 54 70 42 0d 02 28 18 |$(I+1)...TpB..(.|
000007b0 20 f1 8a 33 38 2c 31 30 2b 49 2a 34 29 3b bd 28 | ..38,10+I*4);.(|
000007c0 32 32 34 29 0d 02 2a 12 20 d4 31 2c 2d 31 35 2c |224)..*. .1,-15,|
000007d0 31 30 31 2c 31 30 0d 02 2c 0c 20 53 25 3d 53 25 |101,10..,. S%=S%|
000007e0 2b 31 0d 02 30 16 20 e7 49 24 3d 41 24 28 49 2b |+1..0. .I$=A$(I+|
000007f0 31 29 8c e5 8d 54 7a 42 0d 02 32 17 20 f1 20 8a |1)...TzB..2. . .|
00000800 33 38 2c 31 30 2b 49 2a 34 29 3b 22 58 22 3b 0d |38,10+I*4);"X";.|
00000810 02 34 10 d4 31 2c 2d 31 35 2c 37 33 2c 31 30 0d |.4..1,-15,73,10.|
00000820 02 36 10 20 d4 31 2c 2d 31 35 2c 36 39 2c 35 0d |.6. .1,-15,69,5.|
00000830 02 37 1e 20 57 25 3d 57 25 2b 31 3a 57 4e 3d 57 |.7. W%=W%+1:WN=W|
00000840 4e 2b 31 3a 51 25 28 49 2b 31 29 3d 31 0d 02 38 |N+1:Q%(I+1)=1..8|
00000850 18 20 f1 8a 39 2c 31 31 2b 49 2a 34 29 3b 41 24 |. ..9,11+I*4);A$|
00000860 28 49 2b 31 29 0d 02 39 1b 20 57 54 3d 31 3a 49 |(I+1)..9. WT=1:I|
00000870 24 3d 22 22 3a fb 20 43 32 3a e5 20 8d 64 4c 41 |$="":. C2:. .dLA|
00000880 0d 02 3a 09 20 fb 20 43 32 0d 02 44 19 20 4d 25 |..:. . C2..D. M%|
00000890 3d a8 28 31 30 30 2a 53 25 2f 28 53 25 2b 57 25 |=.(100*S%/(S%+W%|
000008a0 29 29 0d 02 4e 07 20 ed 49 0d 02 58 37 20 f1 8a |))..N. .I..X7 ..|
000008b0 30 2c 32 39 29 3b 22 41 70 70 75 79 65 7a 20 73 |0,29);"Appuyez s|
000008c0 75 72 20 43 20 70 6f 75 72 20 63 6f 6e 74 69 6e |ur C pour contin|
000008d0 75 65 72 20 2f 48 3d 61 69 64 65 72 2e 2e 22 3b |uer /H=aider..";|
000008e0 0d 02 62 09 20 52 24 3d be 0d 02 64 2e 20 e7 52 |..b. R$=...d. .R|
000008f0 24 3c 3e 22 43 22 80 52 24 3c 3e 22 63 22 80 52 |$<>"C".R$<>"c".R|
00000900 24 3c 3e 22 48 22 20 80 20 52 24 3c 3e 22 68 22 |$<>"H" . R$<>"h"|
00000910 20 8c e5 8d 44 62 42 0d 02 6c 23 20 e7 20 52 24 | ...DbB..l# . R$|
00000920 3d 22 43 22 20 84 20 52 24 3d 22 63 22 20 8c 52 |="C" . R$="c" .R|
00000930 25 3d 31 20 8b 20 52 25 3d 30 0d 02 6e 16 20 e7 |%=1 . R%=0..n. .|
00000940 54 25 2f 38 3d a8 28 54 25 2f 38 29 20 8c 20 f9 |T%/8=.(T%/8) . .|
00000950 0d 02 70 1c 20 e7 20 52 25 3d 31 20 8c 20 e5 8d |..p. . R%=1 . ..|
00000960 74 7e 40 20 8b 20 e5 20 8d 74 78 40 0d 02 76 c6 |t~@ . . .tx@..v.|
00000970 20 dc 20 41 20 71 75 65 6c 6c 65 20 68 65 75 72 | . A quelle heur|
00000980 65 20 76 6f 75 73 20 6c 65 76 65 7a 2d 76 6f 75 |e vous levez-vou|
00000990 73 2c 35 2c 41 20 71 75 65 6c 6c 65 20 68 65 75 |s,5,A quelle heu|
000009a0 72 65 20 71 75 69 74 74 65 7a 2d 76 6f 75 73 20 |re quittez-vous |
000009b0 6c 61 20 6d 61 69 73 6f 6e 2c 37 2c 51 75 65 6c |la maison,7,Quel|
000009c0 6c 65 20 68 65 75 72 65 20 65 73 74 2d 69 6c 2c |le heure est-il,|
000009d0 30 2c 41 20 71 75 65 6c 6c 65 20 68 65 75 72 65 |0,A quelle heure|
000009e0 20 72 65 6e 74 72 65 7a 2d 76 6f 75 73 2c 33 2c | rentrez-vous,3,|
000009f0 41 20 71 75 65 6c 6c 65 20 68 65 75 72 65 20 64 |A quelle heure d|
00000a00 69 6e 65 7a 2d 76 6f 75 73 2c 36 2c 41 20 71 75 |inez-vous,6,A qu|
00000a10 65 6c 6c 65 20 68 65 75 72 65 20 76 6f 75 73 20 |elle heure vous |
00000a20 63 6f 75 63 68 65 7a 2d 76 6f 75 73 2c 38 2c 2a |couchez-vous,8,*|
00000a30 2c 2a 0d 02 8a e7 20 dc 20 2c 75 6e 65 20 68 65 |,*.... . ,une he|
00000a40 75 72 65 2c 63 69 6e 71 2c 64 65 75 78 20 68 65 |ure,cinq,deux he|
00000a50 75 72 65 73 2c 64 69 78 2c 74 72 6f 69 73 20 68 |ures,dix,trois h|
00000a60 65 75 72 65 73 2c 65 74 20 71 75 61 72 74 2c 71 |eures,et quart,q|
00000a70 75 61 74 72 65 20 68 65 75 72 65 73 2c 76 69 6e |uatre heures,vin|
00000a80 67 74 2c 63 69 6e 71 20 68 65 75 72 65 73 2c 76 |gt,cinq heures,v|
00000a90 69 6e 67 74 2d 63 69 6e 71 2c 73 69 78 20 68 65 |ingt-cinq,six he|
00000aa0 75 72 65 73 2c 65 74 20 64 65 6d 69 65 2c 73 65 |ures,et demie,se|
00000ab0 70 74 20 68 65 75 72 65 73 2c 74 72 65 6e 74 65 |pt heures,trente|
00000ac0 2d 63 69 6e 71 2c 68 75 69 74 20 68 65 75 72 65 |-cinq,huit heure|
00000ad0 73 2c 6d 6f 69 6e 73 20 76 69 6e 67 74 2c 6e 65 |s,moins vingt,ne|
00000ae0 75 66 20 68 65 75 72 65 73 2c 6d 6f 69 6e 73 20 |uf heures,moins |
00000af0 6c 65 20 71 75 61 72 74 2c 64 69 78 20 68 65 75 |le quart,dix heu|
00000b00 72 65 73 2c 6d 6f 69 6e 73 20 64 69 78 2c 6f 6e |res,moins dix,on|
00000b10 7a 65 20 68 65 75 72 65 73 0d 02 94 1e 20 dc 20 |ze heures.... . |
00000b20 6d 6f 69 6e 73 20 63 69 6e 71 2c 64 6f 75 7a 65 |moins cinq,douze|
00000b30 20 68 65 75 72 65 73 0d 02 bc 22 20 54 4d 3d b3 | heures..." TM=.|
00000b40 28 31 32 29 2a 35 2d 35 3a 54 48 3d bb 28 4b 24 |(12)*5-5:TH=.(K$|
00000b50 28 57 29 29 2b b3 28 33 29 0d 02 c6 23 20 41 24 |(W))+.(3)...# A$|
00000b60 28 49 2b 31 29 3d 48 24 28 54 48 29 2b 22 20 22 |(I+1)=H$(TH)+" "|
00000b70 2b 4d 24 28 a8 28 54 4d 2f 35 29 29 0d 02 d0 2f |+M$(.(TM/5)).../|
00000b80 20 e7 20 54 4d 3e 33 35 20 8c 20 41 24 28 49 2b | . TM>35 . A$(I+|
00000b90 31 29 3d 48 24 28 54 48 2b 31 29 2b 22 20 22 2b |1)=H$(TH+1)+" "+|
00000ba0 4d 24 28 a8 28 54 4d 2f 35 29 29 0d 02 d2 1c 20 |M$(.(TM/5)).... |
00000bb0 e7 20 54 4d 3d 30 20 8c 20 41 24 28 49 2b 31 29 |. TM=0 . A$(I+1)|
00000bc0 3d 48 24 28 54 48 29 0d 02 da 3f 20 51 24 28 49 |=H$(TH)...? Q$(I|
00000bd0 2b 31 29 3d 4a 24 28 57 29 2b 22 3f 22 3a 54 24 |+1)=J$(W)+"?":T$|
00000be0 28 49 2b 31 29 3d 22 28 22 2b c3 28 54 48 29 2b |(I+1)="("+.(TH)+|
00000bf0 22 2e 22 2b c2 22 30 30 22 2b c3 28 54 4d 29 2c |"."+."00"+.(TM),|
00000c00 32 29 2b 22 29 22 0d 02 e4 06 20 f8 0d 02 ee 5b |2)+")".... ....[|
00000c10 20 db 3a 20 fb 43 31 3a fb 43 33 2b 31 32 38 3a | .: .C1:.C3+128:|
00000c20 f1 53 24 3b 22 20 20 20 20 4c 27 68 65 75 72 65 |.S$;" L'heure|
00000c30 20 28 4d 69 63 72 6f 20 46 72 65 6e 63 68 29 20 | (Micro French) |
00000c40 22 3b bd 28 32 32 35 29 3b 22 20 4c 43 4c 20 31 |";.(225);" LCL 1|
00000c50 39 38 36 20 20 20 22 3b 53 24 3b 3a fb 43 30 2b |986 ";S$;:.C0+|
00000c60 31 32 38 3a fb 43 33 0d 02 f8 db 20 4f 24 3d 22 |128:.C3.... O$="|
00000c70 20 6f 27 63 6c 6f 63 6b 22 3a f1 48 24 28 31 29 | o'clock":.H$(1)|
00000c80 3b 22 3d 6f 6e 65 22 3b 4f 24 3a f1 48 24 28 32 |;"=one";O$:.H$(2|
00000c90 29 3b 22 3d 74 77 6f 22 3b 4f 24 3a f1 48 24 28 |);"=two";O$:.H$(|
00000ca0 33 29 3b 22 3d 74 68 72 65 65 22 3b 4f 24 3a f1 |3);"=three";O$:.|
00000cb0 48 24 28 34 29 3b 22 3d 66 6f 75 72 22 3b 4f 24 |H$(4);"=four";O$|
00000cc0 3a f1 48 24 28 35 29 3b 22 3d 66 69 76 65 22 3b |:.H$(5);"=five";|
00000cd0 4f 24 3a f1 48 24 28 36 29 3b 22 3d 73 69 78 22 |O$:.H$(6);"=six"|
00000ce0 3b 4f 24 3a f1 48 24 28 37 29 3b 22 3d 73 65 76 |;O$:.H$(7);"=sev|
00000cf0 65 6e 22 3b 4f 24 3a f1 48 24 28 38 29 3b 22 3d |en";O$:.H$(8);"=|
00000d00 65 69 67 68 74 22 3b 4f 24 3a f1 48 24 28 39 29 |eight";O$:.H$(9)|
00000d10 3b 22 3d 6e 69 6e 65 22 3b 4f 24 3a f1 48 24 28 |;"=nine";O$:.H$(|
00000d20 31 30 29 3b 22 3d 74 65 6e 22 3b 4f 24 3a f1 48 |10);"=ten";O$:.H|
00000d30 24 28 31 31 29 3b 22 3d 65 6c 65 76 65 6e 22 3b |$(11);"=eleven";|
00000d40 4f 24 0d 02 fa 32 20 42 24 3d 48 24 28 32 29 2b |O$...2 B$=H$(2)+|
00000d50 22 20 22 3a 56 24 3d 22 20 20 20 20 20 20 20 20 |" ":V$=" |
00000d60 20 20 20 20 20 20 20 20 22 3a 5a 24 3d 22 20 20 | ":Z$=" |
00000d70 20 20 20 22 0d 03 02 a4 20 f1 48 24 28 31 32 29 | ".... .H$(12)|
00000d80 3b 22 3d 74 77 65 6c 76 65 22 3b 4f 24 3b 22 20 |;"=twelve";O$;" |
00000d90 28 75 73 65 20 74 68 69 73 22 3b 56 24 3b 22 6e |(use this";V$;"n|
00000da0 6f 74 20 27 6d 69 64 69 27 20 6f 72 20 27 6d 69 |ot 'midi' or 'mi|
00000db0 6e 75 69 74 27 29 22 3a f1 3a f1 22 32 2e 30 35 |nuit')":.:."2.05|
00000dc0 3d 22 3b 42 24 3b 4d 24 28 31 29 3a f1 22 32 2e |=";B$;M$(1):."2.|
00000dd0 31 30 3d 22 3b 42 24 3b 4d 24 28 32 29 3a f1 22 |10=";B$;M$(2):."|
00000de0 32 2e 31 35 20 28 51 75 61 72 74 65 72 20 70 61 |2.15 (Quarter pa|
00000df0 73 74 20 74 77 6f 29 3d 22 3a f1 5a 24 3b 42 24 |st two)=":.Z$;B$|
00000e00 3b 4d 24 28 33 29 3a f1 22 32 2e 32 30 3d 22 3b |;M$(3):."2.20=";|
00000e10 42 24 3b 4d 24 28 34 29 0d 03 04 4e 20 f1 22 32 |B$;M$(4)...N ."2|
00000e20 2e 32 35 3d 22 3b 42 24 3b 4d 24 28 35 29 3a f1 |.25=";B$;M$(5):.|
00000e30 22 32 2e 33 30 20 28 48 61 6c 66 20 70 61 73 74 |"2.30 (Half past|
00000e40 20 74 77 6f 29 3d 22 3a f1 5a 24 3b 42 24 3b 4d | two)=":.Z$;B$;M|
00000e50 24 28 36 29 3a f1 22 32 2e 33 35 3d 22 3b 42 24 |$(6):."2.35=";B$|
00000e60 3b 4d 24 28 37 29 0d 03 0c 81 20 f1 22 32 2e 34 |;M$(7).... ."2.4|
00000e70 30 3d 22 3b 48 24 28 33 29 3b 22 20 22 3b 4d 24 |0=";H$(3);" ";M$|
00000e80 28 38 29 3a f1 22 32 2e 34 35 20 28 51 75 61 72 |(8):."2.45 (Quar|
00000e90 74 65 72 20 74 6f 20 74 68 72 65 65 29 3d 22 3a |ter to three)=":|
00000ea0 f1 5a 24 3b 48 24 28 33 29 3b 22 20 22 3b 4d 24 |.Z$;H$(3);" ";M$|
00000eb0 28 39 29 3a f1 22 32 2e 35 30 3d 22 3b 48 24 28 |(9):."2.50=";H$(|
00000ec0 33 29 3b 22 20 22 3b 4d 24 28 31 30 29 3a f1 22 |3);" ";M$(10):."|
00000ed0 32 2e 35 35 3d 22 3b 48 24 28 33 29 3b 22 20 22 |2.55=";H$(3);" "|
00000ee0 3b 4d 24 28 31 31 29 0d 03 16 57 20 fb 43 32 3a |;M$(11)...W .C2:|
00000ef0 f1 8a 30 2c 33 31 29 3b 22 41 70 70 75 79 65 7a |..0,31);"Appuyez|
00000f00 20 73 75 72 20 43 20 70 6f 75 72 20 63 6f 6e 74 | sur C pour cont|
00000f10 69 6e 75 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e |inuer...........|
00000f20 22 3b 3a 52 24 3d be 3a e7 52 24 3c 3e 22 43 22 |";:R$=.:.R$<>"C"|
00000f30 80 52 24 3c 3e 22 63 22 8c e5 8d 54 56 43 0d 03 |.R$<>"c"...TVC..|
00000f40 20 0a 20 fb 43 33 3a f8 0d ff | . .C3:...|
00000f4a 
F/TIME.m0
F/TIME.m1
F/TIME.m2
F/TIME.m4
F/TIME.m5
.