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

F/COL

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/COL
Read OK: ✔
File size: 0638 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

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

File contents
   10 REM LES COULEURS (MICRO FRENCH) (COL)
   20 REM COPYRIGHT (C) GENEVIEVE GREVILLE 1986
   21REM CRACKED BY THE DAVE EC
   22 *KEY 10"OLD|MRUN|M"
   24 ON ERROR CLS:PRINT:CHAIN"MENU1"
   30 MODE 2
   32 DIM J$(14),K$(14)
   42 VDU23,1,0;0;0;0;
   44 VDU23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C,23,251,&01,&02,&04,&08,&90,&A0,&C0,&80,23,252,&AA,&55,&AA,&55,&AA,&55,&AA,&55,&AA
   50 C0=0:C1=1:C2=0:C3=1:TR=0:TN=0:S$=STRING$(40," "):CL$="13071727204740":COLOUR 128+7:CLS:COLOUR C0
   52 FOR I=0 TO 13:READ J$(I),K$(I)
   54 NEXT
   82 S$=STRING$(20," "):TIME=0
   84 PRINT:PRINT:PRINT:COLOUR128+1:COLOUR3:PRINTS$;"Couleurs  ";CHR$(225);" LCL 1986";S$:COLOUR C0:COLOUR 128+7
  120 COLOUR 0:PRINTTAB(0,24);"Quelle est cette    couleur?":COLOUR 0
  230 K=RND(7)-(TN/2=INT(TN/2))*RND(7)-1:GOSUB 2000:PRINT TAB(10,29);LEFT$(K$(K)+S$,10)
  241 TN=TN+1
  242 TR$=""
  243 R$=INKEY$(0):IF R$="" THEN PS=POS:PRINT TAB(0,1);LEFT$(STR$(TN)+") Score = "+STR$(TR)+" "+STR$(INT(TIME/100)),19)+"s":PRINT TAB(PS,27);:GOTO 243
  244 IF TR$="" THEN PRINT TAB(0,27);LEFT$(S$,20);TAB(0,29);LEFT$(S$,20);TAB(0,27);
  245 PRINT R$;:IF LEN(TR$)>18 THEN GOTO 280
  246 IF R$="?" THEN PRINTTAB(0,29);LEFT$(J$(K)+S$,12):GOTO 300
  247 IF R$=CHR$(13) THEN GOTO 280
  248 IF R$=CHR$(127) AND TR$<>"" THEN TR$=LEFT$(TR$,LEN(TR$)-1):GOTO 243
  250 TR$=TR$+CHR$(ASC(R$) OR &20):GOTO 243
  280 IF TR$=J$(K) THEN COLOUR 1:PRINT TAB(19,27);CHR$(251):TR=TR+1:GOTO 300
  290 COLOUR 1:PRINT TAB(19,27);"X":COLOUR K:PRINT TAB(0,29);LEFT$(J$(K)+S$,12):GOTO 242
  300 GOTO 230
 1999 END
 2000 IF K<7 THEN GCOL 0,K:GOTO 2010 ELSE GOTO 2030
 2010 MOVE RND(1279),RND(500)+320:MOVE RND(1279),RND(500)+320:PLOT 85,RND(1279),RND(500)+320:COLOUR K:GOTO 2060
 2030 COLOUR VAL(MID$(CL$,2*(K-6)-1,1)):COLOUR 128+VAL(MID$(CL$,2*(K-6),1)):PRINT TAB(RND(19),RND(16)+6);CHR$(252)
 2050 COLOUR 0:COLOUR 128+7
 2060 RETURN
 3000 DATA noir,black,rouge,red,vert,green,jaune,yellow,bleu,blue,violet,violet,bleu clair,light blue,orange,orange,gris,grey,rose,pink
 3010 DATA vert clair,lt. green,"vert fonc�",dark green,bleu clair,light blue,"bleu fonc�",dark blue


( � LES COULEURS (MICRO FRENCH) (COL)
, � COPYRIGHT (C) GENEVIEVE GREVILLE 1986
� CRACKED BY THE DAVE EC
 *KEY 10"OLD|MRUN|M"
 � � �:�:�"MENU1"
 � 2
  � J$(14),K$(14)
* �23,1,0;0;0;0;
,~ �23,225,&3C,&42,&99,&A1,&A1,&99,&42,&3C,23,251,&01,&02,&04,&08,&90,&A0,&C0,&80,23,252,&AA,&55,&AA,&55,&AA,&55,&AA,&55,&AA
2R C0=0:C1=1:C2=0:C3=1:TR=0:TN=0:S$=�40," "):CL$="13071727204740":� 128+7:�:� C0
4 � I=0 � 13:� J$(I),K$(I)
6 �
R S$=�20," "):�=0
TH �:�:�:�128+1:�3:�S$;"Couleurs  ";�(225);" LCL 1986";S$:� C0:� 128+7
x3 � 0:�0,24);"Quelle est cette    couleur?":� 0
�@ K=�(7)-(TN/2=�(TN/2))*�(7)-1:� �dPG:� �10,29);�K$(K)+S$,10)
� TN=TN+1
� TR$=""
�g R$=�(0):� R$="" � PS=�:� �0,1);��(TN)+") Score = "+�(TR)+" "+�(�(�/100)),19)+"s":� �PS,27);:� �ds@
�7 � TR$="" � � �0,27);�S$,20);�0,29);�S$,20);�0,27);
� � R$;:� �(TR$)>18 � � �TXA
�, � R$="?" � �0,29);�J$(K)+S$,12):� �TlA
� � R$=�(13) � � �TXA
�6 � R$=�(127) � TR$<>"" � TR$=�TR$,�(TR$)-1):� �ds@
�" TR$=TR$+�(�(R$) � &20):� �ds@
6 � TR$=J$(K) � � 1:� �19,27);�(251):TR=TR+1:� �TlA
"8 � 1:� �19,27);"X":� K:� �0,29);�J$(K)+S$,12):� �dr@
, � �df@
� �
�" � K<7 � � 0,K:� �dZG � � �dnG
�Q � �(1279),�(500)+320:� �(1279),�(500)+320:� 85,�(1279),�(500)+320:� K:� �TLH
�M � �(�CL$,2*(K-6)-1,1)):� 128+�(�CL$,2*(K-6),1)):� ��(19),�(16)+6);�(252)
 � 0:� 128+7
 �
�� � noir,black,rouge,red,vert,green,jaune,yellow,bleu,blue,violet,violet,bleu clair,light blue,orange,orange,gris,grey,rose,pink
�` � vert clair,lt. green,"vert fonc�",dark green,bleu clair,light blue,"bleu fonc�",dark blue
�
00000000  0d 00 0a 28 20 f4 20 4c  45 53 20 43 4f 55 4c 45  |...( . LES COULE|
00000010  55 52 53 20 28 4d 49 43  52 4f 20 46 52 45 4e 43  |URS (MICRO FRENC|
00000020  48 29 20 28 43 4f 4c 29  0d 00 14 2c 20 f4 20 43  |H) (COL)..., . C|
00000030  4f 50 59 52 49 47 48 54  20 28 43 29 20 47 45 4e  |OPYRIGHT (C) GEN|
00000040  45 56 49 45 56 45 20 47  52 45 56 49 4c 4c 45 20  |EVIEVE GREVILLE |
00000050  31 39 38 36 0d 00 15 1c  f4 20 43 52 41 43 4b 45  |1986..... CRACKE|
00000060  44 20 42 59 20 54 48 45  20 44 41 56 45 20 45 43  |D BY THE DAVE EC|
00000070  0d 00 16 18 20 2a 4b 45  59 20 31 30 22 4f 4c 44  |.... *KEY 10"OLD|
00000080  7c 4d 52 55 4e 7c 4d 22  0d 00 18 15 20 ee 20 85  ||MRUN|M".... . .|
00000090  20 db 3a f1 3a d7 22 4d  45 4e 55 31 22 0d 00 1e  | .:.:."MENU1"...|
000000a0  08 20 eb 20 32 0d 00 20  14 20 de 20 4a 24 28 31  |. . 2.. . . J$(1|
000000b0  34 29 2c 4b 24 28 31 34  29 0d 00 2a 13 20 ef 32  |4),K$(14)..*. .2|
000000c0  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 00 2c 7e  |3,1,0;0;0;0;..,~|
000000d0  20 ef 32 33 2c 32 32 35  2c 26 33 43 2c 26 34 32  | .23,225,&3C,&42|
000000e0  2c 26 39 39 2c 26 41 31  2c 26 41 31 2c 26 39 39  |,&99,&A1,&A1,&99|
000000f0  2c 26 34 32 2c 26 33 43  2c 32 33 2c 32 35 31 2c  |,&42,&3C,23,251,|
00000100  26 30 31 2c 26 30 32 2c  26 30 34 2c 26 30 38 2c  |&01,&02,&04,&08,|
00000110  26 39 30 2c 26 41 30 2c  26 43 30 2c 26 38 30 2c  |&90,&A0,&C0,&80,|
00000120  32 33 2c 32 35 32 2c 26  41 41 2c 26 35 35 2c 26  |23,252,&AA,&55,&|
00000130  41 41 2c 26 35 35 2c 26  41 41 2c 26 35 35 2c 26  |AA,&55,&AA,&55,&|
00000140  41 41 2c 26 35 35 2c 26  41 41 0d 00 32 52 20 43  |AA,&55,&AA..2R C|
00000150  30 3d 30 3a 43 31 3d 31  3a 43 32 3d 30 3a 43 33  |0=0:C1=1:C2=0:C3|
00000160  3d 31 3a 54 52 3d 30 3a  54 4e 3d 30 3a 53 24 3d  |=1:TR=0:TN=0:S$=|
00000170  c4 34 30 2c 22 20 22 29  3a 43 4c 24 3d 22 31 33  |.40," "):CL$="13|
00000180  30 37 31 37 32 37 32 30  34 37 34 30 22 3a fb 20  |071727204740":. |
00000190  31 32 38 2b 37 3a db 3a  fb 20 43 30 0d 00 34 1d  |128+7:.:. C0..4.|
000001a0  20 e3 20 49 3d 30 20 b8  20 31 33 3a f3 20 4a 24  | . I=0 . 13:. J$|
000001b0  28 49 29 2c 4b 24 28 49  29 0d 00 36 06 20 ed 0d  |(I),K$(I)..6. ..|
000001c0  00 52 14 20 53 24 3d c4  32 30 2c 22 20 22 29 3a  |.R. S$=.20," "):|
000001d0  d1 3d 30 0d 00 54 48 20  f1 3a f1 3a f1 3a fb 31  |.=0..TH .:.:.:.1|
000001e0  32 38 2b 31 3a fb 33 3a  f1 53 24 3b 22 43 6f 75  |28+1:.3:.S$;"Cou|
000001f0  6c 65 75 72 73 20 20 22  3b bd 28 32 32 35 29 3b  |leurs  ";.(225);|
00000200  22 20 4c 43 4c 20 31 39  38 36 22 3b 53 24 3a fb  |" LCL 1986";S$:.|
00000210  20 43 30 3a fb 20 31 32  38 2b 37 0d 00 78 33 20  | C0:. 128+7..x3 |
00000220  fb 20 30 3a f1 8a 30 2c  32 34 29 3b 22 51 75 65  |. 0:..0,24);"Que|
00000230  6c 6c 65 20 65 73 74 20  63 65 74 74 65 20 20 20  |lle est cette   |
00000240  20 63 6f 75 6c 65 75 72  3f 22 3a fb 20 30 0d 00  | couleur?":. 0..|
00000250  e6 40 20 4b 3d b3 28 37  29 2d 28 54 4e 2f 32 3d  |.@ K=.(7)-(TN/2=|
00000260  a8 28 54 4e 2f 32 29 29  2a b3 28 37 29 2d 31 3a  |.(TN/2))*.(7)-1:|
00000270  e4 20 8d 64 50 47 3a f1  20 8a 31 30 2c 32 39 29  |. .dPG:. .10,29)|
00000280  3b c0 4b 24 28 4b 29 2b  53 24 2c 31 30 29 0d 00  |;.K$(K)+S$,10)..|
00000290  f1 0c 20 54 4e 3d 54 4e  2b 31 0d 00 f2 0b 20 54  |.. TN=TN+1.... T|
000002a0  52 24 3d 22 22 0d 00 f3  67 20 52 24 3d bf 28 30  |R$=""...g R$=.(0|
000002b0  29 3a e7 20 52 24 3d 22  22 20 8c 20 50 53 3d b1  |):. R$="" . PS=.|
000002c0  3a f1 20 8a 30 2c 31 29  3b c0 c3 28 54 4e 29 2b  |:. .0,1);..(TN)+|
000002d0  22 29 20 53 63 6f 72 65  20 3d 20 22 2b c3 28 54  |") Score = "+.(T|
000002e0  52 29 2b 22 20 22 2b c3  28 a8 28 91 2f 31 30 30  |R)+" "+.(.(./100|
000002f0  29 29 2c 31 39 29 2b 22  73 22 3a f1 20 8a 50 53  |)),19)+"s":. .PS|
00000300  2c 32 37 29 3b 3a e5 20  8d 64 73 40 0d 00 f4 37  |,27);:. .ds@...7|
00000310  20 e7 20 54 52 24 3d 22  22 20 8c 20 f1 20 8a 30  | . TR$="" . . .0|
00000320  2c 32 37 29 3b c0 53 24  2c 32 30 29 3b 8a 30 2c  |,27);.S$,20);.0,|
00000330  32 39 29 3b c0 53 24 2c  32 30 29 3b 8a 30 2c 32  |29);.S$,20);.0,2|
00000340  37 29 3b 0d 00 f5 1f 20  f1 20 52 24 3b 3a e7 20  |7);.... . R$;:. |
00000350  a9 28 54 52 24 29 3e 31  38 20 8c 20 e5 20 8d 54  |.(TR$)>18 . . .T|
00000360  58 41 0d 00 f6 2c 20 e7  20 52 24 3d 22 3f 22 20  |XA..., . R$="?" |
00000370  8c 20 f1 8a 30 2c 32 39  29 3b c0 4a 24 28 4b 29  |. ..0,29);.J$(K)|
00000380  2b 53 24 2c 31 32 29 3a  e5 20 8d 54 6c 41 0d 00  |+S$,12):. .TlA..|
00000390  f7 18 20 e7 20 52 24 3d  bd 28 31 33 29 20 8c 20  |.. . R$=.(13) . |
000003a0  e5 20 8d 54 58 41 0d 00  f8 36 20 e7 20 52 24 3d  |. .TXA...6 . R$=|
000003b0  bd 28 31 32 37 29 20 80  20 54 52 24 3c 3e 22 22  |.(127) . TR$<>""|
000003c0  20 8c 20 54 52 24 3d c0  54 52 24 2c a9 28 54 52  | . TR$=.TR$,.(TR|
000003d0  24 29 2d 31 29 3a e5 20  8d 64 73 40 0d 00 fa 22  |$)-1):. .ds@..."|
000003e0  20 54 52 24 3d 54 52 24  2b bd 28 97 28 52 24 29  | TR$=TR$+.(.(R$)|
000003f0  20 84 20 26 32 30 29 3a  e5 20 8d 64 73 40 0d 01  | . &20):. .ds@..|
00000400  18 36 20 e7 20 54 52 24  3d 4a 24 28 4b 29 20 8c  |.6 . TR$=J$(K) .|
00000410  20 fb 20 31 3a f1 20 8a  31 39 2c 32 37 29 3b bd  | . 1:. .19,27);.|
00000420  28 32 35 31 29 3a 54 52  3d 54 52 2b 31 3a e5 20  |(251):TR=TR+1:. |
00000430  8d 54 6c 41 0d 01 22 38  20 fb 20 31 3a f1 20 8a  |.TlA.."8 . 1:. .|
00000440  31 39 2c 32 37 29 3b 22  58 22 3a fb 20 4b 3a f1  |19,27);"X":. K:.|
00000450  20 8a 30 2c 32 39 29 3b  c0 4a 24 28 4b 29 2b 53  | .0,29);.J$(K)+S|
00000460  24 2c 31 32 29 3a e5 20  8d 64 72 40 0d 01 2c 0b  |$,12):. .dr@..,.|
00000470  20 e5 20 8d 64 66 40 0d  07 cf 06 20 e0 0d 07 d0  | . .df@.... ....|
00000480  22 20 e7 20 4b 3c 37 20  8c 20 e6 20 30 2c 4b 3a  |" . K<7 . . 0,K:|
00000490  e5 20 8d 64 5a 47 20 8b  20 e5 20 8d 64 6e 47 0d  |. .dZG . . .dnG.|
000004a0  07 da 51 20 ec 20 b3 28  31 32 37 39 29 2c b3 28  |..Q . .(1279),.(|
000004b0  35 30 30 29 2b 33 32 30  3a ec 20 b3 28 31 32 37  |500)+320:. .(127|
000004c0  39 29 2c b3 28 35 30 30  29 2b 33 32 30 3a f0 20  |9),.(500)+320:. |
000004d0  38 35 2c b3 28 31 32 37  39 29 2c b3 28 35 30 30  |85,.(1279),.(500|
000004e0  29 2b 33 32 30 3a fb 20  4b 3a e5 20 8d 54 4c 48  |)+320:. K:. .TLH|
000004f0  0d 07 ee 4d 20 fb 20 bb  28 c1 43 4c 24 2c 32 2a  |...M . .(.CL$,2*|
00000500  28 4b 2d 36 29 2d 31 2c  31 29 29 3a fb 20 31 32  |(K-6)-1,1)):. 12|
00000510  38 2b bb 28 c1 43 4c 24  2c 32 2a 28 4b 2d 36 29  |8+.(.CL$,2*(K-6)|
00000520  2c 31 29 29 3a f1 20 8a  b3 28 31 39 29 2c b3 28  |,1)):. ..(19),.(|
00000530  31 36 29 2b 36 29 3b bd  28 32 35 32 29 0d 08 02  |16)+6);.(252)...|
00000540  10 20 fb 20 30 3a fb 20  31 32 38 2b 37 0d 08 0c  |. . 0:. 128+7...|
00000550  06 20 f8 0d 0b b8 83 20  dc 20 6e 6f 69 72 2c 62  |. ..... . noir,b|
00000560  6c 61 63 6b 2c 72 6f 75  67 65 2c 72 65 64 2c 76  |lack,rouge,red,v|
00000570  65 72 74 2c 67 72 65 65  6e 2c 6a 61 75 6e 65 2c  |ert,green,jaune,|
00000580  79 65 6c 6c 6f 77 2c 62  6c 65 75 2c 62 6c 75 65  |yellow,bleu,blue|
00000590  2c 76 69 6f 6c 65 74 2c  76 69 6f 6c 65 74 2c 62  |,violet,violet,b|
000005a0  6c 65 75 20 63 6c 61 69  72 2c 6c 69 67 68 74 20  |leu clair,light |
000005b0  62 6c 75 65 2c 6f 72 61  6e 67 65 2c 6f 72 61 6e  |blue,orange,oran|
000005c0  67 65 2c 67 72 69 73 2c  67 72 65 79 2c 72 6f 73  |ge,gris,grey,ros|
000005d0  65 2c 70 69 6e 6b 0d 0b  c2 60 20 dc 20 76 65 72  |e,pink...` . ver|
000005e0  74 20 63 6c 61 69 72 2c  6c 74 2e 20 67 72 65 65  |t clair,lt. gree|
000005f0  6e 2c 22 76 65 72 74 20  66 6f 6e 63 e5 22 2c 64  |n,"vert fonc.",d|
00000600  61 72 6b 20 67 72 65 65  6e 2c 62 6c 65 75 20 63  |ark green,bleu c|
00000610  6c 61 69 72 2c 6c 69 67  68 74 20 62 6c 75 65 2c  |lair,light blue,|
00000620  22 62 6c 65 75 20 66 6f  6e 63 e5 22 2c 64 61 72  |"bleu fonc.",dar|
00000630  6b 20 62 6c 75 65 0d ff                           |k blue..|
00000638
F/COL.m0
F/COL.m1
F/COL.m2
F/COL.m4
F/COL.m5

© Dominic Ford 2021–2024.

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