Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » StarInfo/nonsense/Charabia
StarInfo/nonsense/Charabia
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 » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars |
| Filename: | StarInfo/nonsense/Charabia |
| Read OK: | ✔ |
| File size: | 0447 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10ON ERROR PRINT:PRINT:PRINT "Il y a un ";REPORT$;" � la ligne ";ERL:END
11REM *INFO CHALLENGE
21
22REM Charabia par Matthew Mayer
30REM Gobbledegook en FranIFais
40
50s=31:DIM s$(s):FOR I%=1 TO s:READ s$(I%):NEXT I%
60m=12:DIM m$(m):FOR I%=1 TO m:READ m$(I%):NEXT I%
70c=4 :DIM c$(c):FOR I%=1 TO c:READ c$(I%):NEXT I%
80l=6 :DIM l$(l):FOR I%=1 TO l:READ l$(I%):NEXT I%
90v=3 :DIM v$(v):FOR I%=1 TO v:READ v$(I%):NEXT I%
100
110REPEAT
120l%=RND(3)+3
130FOR I%=1 TO l%
140REPEAT
150w$=s$(RND(s))+m$(RND(m))
160UNTIL LEN(w$)>4
170IF RND(3)=1 THEN
180IF INSTR("aeiou�",LEFT$(w$,1))>0 THEN w$=v$(RND(v))+w$ ELSE w$=l$(RND(l))+w$
190ENDIF
200IF I%=1 THEN PRINT(" "+FNcap(w$)); ELSE PRINT " "+w$;
210IF RND(3)=1 AND I%<>l% THEN PRINT " "+c$(RND(c));
220NEXT I%
230PRINT ".";
240IF RND(6)=1 THEN PRINT:PRINT
250UNTIL FALSE
260END
270
280DEFPROCprint(text$)
290PRINT text$
300ENDPROC
310
320DATA angl,att,av,blas,ch,cons,dev,entr,fill,gr,lanc,mot,p,prenn,trav,vois,"�t",all,appr,band,chang,chev,donn,fix,franc,ing,mett,nouv,propos,rech,surg
330DATA ait,"�re",ant,aient,er,"�",ai,eur,ous,eux,ont,elle
340DATA en,et,mais,est
350DATA "la ","le ","du ","de ","un ","une "
360DATA "l'","d'","m'"
370
380DEFFNcap(str$)
390IF INSTR("abcdefghijklmnopqrstuvwxyz������������������������������",LEFT$(str$,1))>0 THEN LEFT$(str$,1)=CHR$(ASC(LEFT$(str$,1))-32)
400=str$
0� � �:�:� "Il y a un ";�$;" � la ligne ";�:�
� *INFO CHALLENGE
� Charabia par Matthew Mayer
� Gobbledegook en Fran�ais
(
2)s=31:� s$(s):� I%=1 � s:� s$(I%):� I%
<)m=12:� m$(m):� I%=1 � m:� m$(I%):� I%
F)c=4 :� c$(c):� I%=1 � c:� c$(I%):� I%
P)l=6 :� l$(l):� I%=1 � l:� l$(I%):� I%
Z)v=3 :� v$(v):� I%=1 � v:� v$(I%):� I%
d
n�
x
l%=�(3)+3
�� I%=1 � l%
��
�w$=s$(�(s))+m$(�(m))
�
� �(w$)>4
�� �(3)=1 �
�;� �"aeiou�",�w$,1))>0 � w$=v$(�(v))+w$ � w$=l$(�(l))+w$
��
�)� I%=1 � �(" "+�cap(w$)); � � " "+w$;
�'� �(3)=1 � I%<>l% � � " "+c$(�(c));
�� I%
�
� ".";
�� �(6)=1 � �:�
�� �
�
��print(text$)
" � text$
,�
6
@�� angl,att,av,blas,ch,cons,dev,entr,fill,gr,lanc,mot,p,prenn,trav,vois,"�t",all,appr,band,chang,chev,donn,fix,franc,ing,mett,nouv,propos,rech,surg
J8� ait,"�re",ant,aient,er,"�",ai,eur,ous,eux,ont,elle
T� en,et,mais,est
^*� "la ","le ","du ","de ","un ","une "
h� "l'","d'","m'"
r
|ݤcap(str$)
�j� �"abcdefghijklmnopqrstuvwxyz���������������������������",�str$,1))>0 � �str$,1)=�(�(�str$,1))-32)
� =str$
� 00000000 0d 00 0a 30 ee 20 85 20 f1 3a f1 3a f1 20 22 49 |...0. . .:.:. "I|
00000010 6c 20 79 20 61 20 75 6e 20 22 3b f6 24 3b 22 20 |l y a un ";.$;" |
00000020 e0 20 6c 61 20 6c 69 67 6e 65 20 22 3b 9e 3a e0 |. la ligne ";.:.|
00000030 0d 00 0b 15 f4 20 2a 49 4e 46 4f 20 43 48 41 4c |..... *INFO CHAL|
00000040 4c 45 4e 47 45 0d 00 15 04 0d 00 16 20 f4 20 43 |LENGE....... . C|
00000050 68 61 72 61 62 69 61 20 70 61 72 20 4d 61 74 74 |harabia par Matt|
00000060 68 65 77 20 4d 61 79 65 72 0d 00 1e 1e f4 20 47 |hew Mayer..... G|
00000070 6f 62 62 6c 65 64 65 67 6f 6f 6b 20 65 6e 20 46 |obbledegook en F|
00000080 72 61 6e e7 61 69 73 0d 00 28 04 0d 00 32 29 73 |ran.ais..(...2)s|
00000090 3d 33 31 3a de 20 73 24 28 73 29 3a e3 20 49 25 |=31:. s$(s):. I%|
000000a0 3d 31 20 b8 20 73 3a f3 20 73 24 28 49 25 29 3a |=1 . s:. s$(I%):|
000000b0 ed 20 49 25 0d 00 3c 29 6d 3d 31 32 3a de 20 6d |. I%..<)m=12:. m|
000000c0 24 28 6d 29 3a e3 20 49 25 3d 31 20 b8 20 6d 3a |$(m):. I%=1 . m:|
000000d0 f3 20 6d 24 28 49 25 29 3a ed 20 49 25 0d 00 46 |. m$(I%):. I%..F|
000000e0 29 63 3d 34 20 3a de 20 63 24 28 63 29 3a e3 20 |)c=4 :. c$(c):. |
000000f0 49 25 3d 31 20 b8 20 63 3a f3 20 63 24 28 49 25 |I%=1 . c:. c$(I%|
00000100 29 3a ed 20 49 25 0d 00 50 29 6c 3d 36 20 3a de |):. I%..P)l=6 :.|
00000110 20 6c 24 28 6c 29 3a e3 20 49 25 3d 31 20 b8 20 | l$(l):. I%=1 . |
00000120 6c 3a f3 20 6c 24 28 49 25 29 3a ed 20 49 25 0d |l:. l$(I%):. I%.|
00000130 00 5a 29 76 3d 33 20 3a de 20 76 24 28 76 29 3a |.Z)v=3 :. v$(v):|
00000140 e3 20 49 25 3d 31 20 b8 20 76 3a f3 20 76 24 28 |. I%=1 . v:. v$(|
00000150 49 25 29 3a ed 20 49 25 0d 00 64 04 0d 00 6e 05 |I%):. I%..d...n.|
00000160 f5 0d 00 78 0d 6c 25 3d b3 28 33 29 2b 33 0d 00 |...x.l%=.(3)+3..|
00000170 82 0f e3 20 49 25 3d 31 20 b8 20 6c 25 0d 00 8c |... I%=1 . l%...|
00000180 05 f5 0d 00 96 18 77 24 3d 73 24 28 b3 28 73 29 |......w$=s$(.(s)|
00000190 29 2b 6d 24 28 b3 28 6d 29 29 0d 00 a0 0d fd 20 |)+m$(.(m))..... |
000001a0 a9 28 77 24 29 3e 34 0d 00 aa 0e e7 20 b3 28 33 |.(w$)>4..... .(3|
000001b0 29 3d 31 20 8c 0d 00 b4 3b e7 20 a7 22 61 65 69 |)=1 ....;. ."aei|
000001c0 6f 75 e9 22 2c c0 77 24 2c 31 29 29 3e 30 20 8c |ou.",.w$,1))>0 .|
000001d0 20 77 24 3d 76 24 28 b3 28 76 29 29 2b 77 24 20 | w$=v$(.(v))+w$ |
000001e0 8b 20 77 24 3d 6c 24 28 b3 28 6c 29 29 2b 77 24 |. w$=l$(.(l))+w$|
000001f0 0d 00 be 05 cd 0d 00 c8 29 e7 20 49 25 3d 31 20 |........). I%=1 |
00000200 8c 20 f1 28 22 20 22 2b a4 63 61 70 28 77 24 29 |. .(" "+.cap(w$)|
00000210 29 3b 20 8b 20 f1 20 22 20 22 2b 77 24 3b 0d 00 |); . . " "+w$;..|
00000220 d2 27 e7 20 b3 28 33 29 3d 31 20 80 20 49 25 3c |.'. .(3)=1 . I%<|
00000230 3e 6c 25 20 8c 20 f1 20 22 20 22 2b 63 24 28 b3 |>l% . . " "+c$(.|
00000240 28 63 29 29 3b 0d 00 dc 08 ed 20 49 25 0d 00 e6 |(c));..... I%...|
00000250 0a f1 20 22 2e 22 3b 0d 00 f0 12 e7 20 b3 28 36 |.. ".";..... .(6|
00000260 29 3d 31 20 8c 20 f1 3a f1 0d 00 fa 07 fd 20 a3 |)=1 . .:...... .|
00000270 0d 01 04 05 e0 0d 01 0e 04 0d 01 18 12 dd f2 70 |...............p|
00000280 72 69 6e 74 28 74 65 78 74 24 29 0d 01 22 0b f1 |rint(text$).."..|
00000290 20 74 65 78 74 24 0d 01 2c 05 e1 0d 01 36 04 0d | text$..,....6..|
000002a0 01 40 96 dc 20 61 6e 67 6c 2c 61 74 74 2c 61 76 |.@.. angl,att,av|
000002b0 2c 62 6c 61 73 2c 63 68 2c 63 6f 6e 73 2c 64 65 |,blas,ch,cons,de|
000002c0 76 2c 65 6e 74 72 2c 66 69 6c 6c 2c 67 72 2c 6c |v,entr,fill,gr,l|
000002d0 61 6e 63 2c 6d 6f 74 2c 70 2c 70 72 65 6e 6e 2c |anc,mot,p,prenn,|
000002e0 74 72 61 76 2c 76 6f 69 73 2c 22 e9 74 22 2c 61 |trav,vois,".t",a|
000002f0 6c 6c 2c 61 70 70 72 2c 62 61 6e 64 2c 63 68 61 |ll,appr,band,cha|
00000300 6e 67 2c 63 68 65 76 2c 64 6f 6e 6e 2c 66 69 78 |ng,chev,donn,fix|
00000310 2c 66 72 61 6e 63 2c 69 6e 67 2c 6d 65 74 74 2c |,franc,ing,mett,|
00000320 6e 6f 75 76 2c 70 72 6f 70 6f 73 2c 72 65 63 68 |nouv,propos,rech|
00000330 2c 73 75 72 67 0d 01 4a 38 dc 20 61 69 74 2c 22 |,surg..J8. ait,"|
00000340 e8 72 65 22 2c 61 6e 74 2c 61 69 65 6e 74 2c 65 |.re",ant,aient,e|
00000350 72 2c 22 e9 22 2c 61 69 2c 65 75 72 2c 6f 75 73 |r,".",ai,eur,ous|
00000360 2c 65 75 78 2c 6f 6e 74 2c 65 6c 6c 65 0d 01 54 |,eux,ont,elle..T|
00000370 14 dc 20 65 6e 2c 65 74 2c 6d 61 69 73 2c 65 73 |.. en,et,mais,es|
00000380 74 0d 01 5e 2a dc 20 22 6c 61 20 22 2c 22 6c 65 |t..^*. "la ","le|
00000390 20 22 2c 22 64 75 20 22 2c 22 64 65 20 22 2c 22 | ","du ","de ","|
000003a0 75 6e 20 22 2c 22 75 6e 65 20 22 0d 01 68 14 dc |un ","une "..h..|
000003b0 20 22 6c 27 22 2c 22 64 27 22 2c 22 6d 27 22 0d | "l'","d'","m'".|
000003c0 01 72 04 0d 01 7c 0f dd a4 63 61 70 28 73 74 72 |.r...|...cap(str|
000003d0 24 29 0d 01 86 6a e7 20 a7 22 61 62 63 64 65 66 |$)...j. ."abcdef|
000003e0 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 |ghijklmnopqrstuv|
000003f0 77 78 79 7a e0 e1 e2 e3 e4 e5 e6 e7 e8 e9 ea eb |wxyz............|
00000400 ec ed ee ef f0 f1 f2 f3 f4 f5 f6 f8 f9 fa fb fc |................|
00000410 fd fe 22 2c c0 73 74 72 24 2c 31 29 29 3e 30 20 |..",.str$,1))>0 |
00000420 8c 20 c0 73 74 72 24 2c 31 29 3d bd 28 97 28 c0 |. .str$,1)=.(.(.|
00000430 73 74 72 24 2c 31 29 29 2d 33 32 29 0d 01 90 09 |str$,1))-32)....|
00000440 3d 73 74 72 24 0d ff |=str$..|
00000447 
.