Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.adf » U/RHYME

U/RHYME

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 » Greaseweazled » adfs_EUG_54.adf
Filename: U/RHYME
Read OK: ✔
File size: 052B bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10MODE 4
   20VDU23,1,0;0;0;0;
   30REPEAT
   40PROCcontinue
   50UNTIL FALSE
   60END
   70:
 1000DEF PROCwords   
 1010FOR R=1 TO 24
 1020READ WORD$,PITCH,DUR
 1030PRINT TAB(15,15)WORD$
 1040SOUND 1,-15,PITCH,DUR
 1050T%=TIME:REPEATUNTIL TIME>T%+5*DUR
 1060CLS
 1070NEXT R
 1080ENDPROC
 1090:
 2000DEF PROClines  
 2010PRINT '''
 2020FOR R=1 TO 24
 2030READ WORD$,PITCH,DUR 
 2040CONTROL$=LEFT$(WORD$,1)
 2050IF CONTROL$<>"-" AND CONTROL$<>"*" THEN 2090
 2060WORD$=RIGHT$(WORD$,LEN(WORD$)-1)
 2070IF CONTROL$="*" THEN PRINT ''
 2080IF CONTROL$="-" THEN VDU 8
 2090PRINT WORD$;" ";
 2100SOUND 1,-15,PITCH,DUR  
 2110T%=TIME:REPEATUNTIL TIME>T%+5*DUR
 2120NEXT R   
 2130PRINT TAB(5,20)"PRESS SPACE BAR TO CONTINUE."
 2140REPEAT UNTIL GET=32
 2150ENDPROC
 2160:
 3000DEF PROCcontinue   
 3010CLS
 3020VDU19,0,4;0;19,1,3;0;
 3030PRINT TAB(5,5)"Press W to play the words."
 3040PRINT TAB(7,7)"or P to play the poem."
 3050A$=GET$
 3060A=INSTR("WwPp",A$)
 3070IF A=0 THEN 3050
 3080CLS
 3090IF A<3 RESTORE 4000:PROCwords
 3100IF A>2 RESTORE 4050:PROClines
 3110ENDPROC
 3120:
 4000DATA one,88,8,two,88,8,three,80,4,four,72,4,five,72,8
 4010DATA once,80,4,I,88,4,caught,92,4,a,100,4,fish,100,4,a,92,4,live,92,8
 4020DATA six,92,8,seven,92,8,eight,88,4,nine,80,4,ten,80,8      
 4030DATA then,72,4,I,68,4,let,60,4,it,68,4,go,80,4,a,72,4,gain,72,8
 4040:
 4050DATA "*One,",88,8,"two,",88,8,"three,",80,4,"four,",72,4,"five,",72,8    
 4060DATA "*Once",80,4,"I",88,4,"caught",92,4,"a",100,4,"fish",100,4,"a",92,4,"-live",92,8  
 4070DATA "*Six,",92,8,"seven,",92,8,"eight,",88,4,"nine,",80,4,"ten,",80,8   
 4080DATA "*Then",72,4,"I",68,4,"let",60,4,"it",68,4,"go",80,4,"a",72,4,"-gain",72,8 


� 4
�23,1,0;0;0;0;
�
(
�continue
2� �
<�
F:
�� �words   
�� R=1 � 24
�� WORD$,PITCH,DUR
� �15,15)WORD$
� 1,-15,PITCH,DUR
T%=�:�� �>T%+5*DUR
$�
.� R
8�
B:
�� �lines  
�	� '''
�� R=1 � 24
�� WORD$,PITCH,DUR 
�CONTROL$=�WORD$,1)
*� CONTROL$<>"-" � CONTROL$<>"*" � �TjH
WORD$=�WORD$,�(WORD$)-1)
� CONTROL$="*" � � ''
 � CONTROL$="-" � � 8
*� WORD$;" ";
4� 1,-15,PITCH,DUR  
>T%=�:�� �>T%+5*DUR
H
� R   
R*� �5,20)"PRESS SPACE BAR TO CONTINUE."
\� � �=32
f�
p:
�� �continue   
��
��19,0,4;0;19,1,3;0;
�'� �5,5)"Press W to play the words."
�#� �7,7)"or P to play the poem."
�A$=�
�A=�"WwPp",A$)
�� A=0 � �djK
�
� A<3 � �t`O:�words
� A>2 � �dRO:�lines
&�
0:
�6� one,88,8,two,88,8,three,80,4,four,72,4,five,72,8
�F� once,80,4,I,88,4,caught,92,4,a,100,4,fish,100,4,a,92,4,live,92,8
�=� six,92,8,seven,92,8,eight,88,4,nine,80,4,ten,80,8      
�@� then,72,4,I,68,4,let,60,4,it,68,4,go,80,4,a,72,4,gain,72,8
�:
�J� "*One,",88,8,"two,",88,8,"three,",80,4,"four,",72,4,"five,",72,8    
�X� "*Once",80,4,"I",88,4,"caught",92,4,"a",100,4,"fish",100,4,"a",92,4,"-live",92,8  
�J� "*Six,",92,8,"seven,",92,8,"eight,",88,4,"nine,",80,4,"ten,",80,8   
�Q� "*Then",72,4,"I",68,4,"let",60,4,"it",68,4,"go",80,4,"a",72,4,"-gain",72,8 
�
00000000  0d 00 0a 07 eb 20 34 0d  00 14 12 ef 32 33 2c 31  |..... 4.....23,1|
00000010  2c 30 3b 30 3b 30 3b 30  3b 0d 00 1e 05 f5 0d 00  |,0;0;0;0;.......|
00000020  28 0d f2 63 6f 6e 74 69  6e 75 65 0d 00 32 07 fd  |(..continue..2..|
00000030  20 a3 0d 00 3c 05 e0 0d  00 46 05 3a 0d 03 e8 0f  | ...<....F.:....|
00000040  dd 20 f2 77 6f 72 64 73  20 20 20 0d 03 f2 0e e3  |. .words   .....|
00000050  20 52 3d 31 20 b8 20 32  34 0d 03 fc 15 f3 20 57  | R=1 . 24..... W|
00000060  4f 52 44 24 2c 50 49 54  43 48 2c 44 55 52 0d 04  |ORD$,PITCH,DUR..|
00000070  06 12 f1 20 8a 31 35 2c  31 35 29 57 4f 52 44 24  |... .15,15)WORD$|
00000080  0d 04 10 15 d4 20 31 2c  2d 31 35 2c 50 49 54 43  |..... 1,-15,PITC|
00000090  48 2c 44 55 52 0d 04 1a  16 54 25 3d 91 3a f5 fd  |H,DUR....T%=.:..|
000000a0  20 91 3e 54 25 2b 35 2a  44 55 52 0d 04 24 05 db  | .>T%+5*DUR..$..|
000000b0  0d 04 2e 07 ed 20 52 0d  04 38 05 e1 0d 04 42 05  |..... R..8....B.|
000000c0  3a 0d 07 d0 0e dd 20 f2  6c 69 6e 65 73 20 20 0d  |:..... .lines  .|
000000d0  07 da 09 f1 20 27 27 27  0d 07 e4 0e e3 20 52 3d  |.... '''..... R=|
000000e0  31 20 b8 20 32 34 0d 07  ee 16 f3 20 57 4f 52 44  |1 . 24..... WORD|
000000f0  24 2c 50 49 54 43 48 2c  44 55 52 20 0d 07 f8 16  |$,PITCH,DUR ....|
00000100  43 4f 4e 54 52 4f 4c 24  3d c0 57 4f 52 44 24 2c  |CONTROL$=.WORD$,|
00000110  31 29 0d 08 02 2a e7 20  43 4f 4e 54 52 4f 4c 24  |1)...*. CONTROL$|
00000120  3c 3e 22 2d 22 20 80 20  43 4f 4e 54 52 4f 4c 24  |<>"-" . CONTROL$|
00000130  3c 3e 22 2a 22 20 8c 20  8d 54 6a 48 0d 08 0c 1c  |<>"*" . .TjH....|
00000140  57 4f 52 44 24 3d c2 57  4f 52 44 24 2c a9 28 57  |WORD$=.WORD$,.(W|
00000150  4f 52 44 24 29 2d 31 29  0d 08 16 19 e7 20 43 4f  |ORD$)-1)..... CO|
00000160  4e 54 52 4f 4c 24 3d 22  2a 22 20 8c 20 f1 20 27  |NTROL$="*" . . '|
00000170  27 0d 08 20 18 e7 20 43  4f 4e 54 52 4f 4c 24 3d  |'.. .. CONTROL$=|
00000180  22 2d 22 20 8c 20 ef 20  38 0d 08 2a 10 f1 20 57  |"-" . . 8..*.. W|
00000190  4f 52 44 24 3b 22 20 22  3b 0d 08 34 17 d4 20 31  |ORD$;" ";..4.. 1|
000001a0  2c 2d 31 35 2c 50 49 54  43 48 2c 44 55 52 20 20  |,-15,PITCH,DUR  |
000001b0  0d 08 3e 16 54 25 3d 91  3a f5 fd 20 91 3e 54 25  |..>.T%=.:.. .>T%|
000001c0  2b 35 2a 44 55 52 0d 08  48 0a ed 20 52 20 20 20  |+5*DUR..H.. R   |
000001d0  0d 08 52 2a f1 20 8a 35  2c 32 30 29 22 50 52 45  |..R*. .5,20)"PRE|
000001e0  53 53 20 53 50 41 43 45  20 42 41 52 20 54 4f 20  |SS SPACE BAR TO |
000001f0  43 4f 4e 54 49 4e 55 45  2e 22 0d 08 5c 0c f5 20  |CONTINUE."..\.. |
00000200  fd 20 a5 3d 33 32 0d 08  66 05 e1 0d 08 70 05 3a  |. .=32..f....p.:|
00000210  0d 0b b8 12 dd 20 f2 63  6f 6e 74 69 6e 75 65 20  |..... .continue |
00000220  20 20 0d 0b c2 05 db 0d  0b cc 17 ef 31 39 2c 30  |  ..........19,0|
00000230  2c 34 3b 30 3b 31 39 2c  31 2c 33 3b 30 3b 0d 0b  |,4;0;19,1,3;0;..|
00000240  d6 27 f1 20 8a 35 2c 35  29 22 50 72 65 73 73 20  |.'. .5,5)"Press |
00000250  57 20 74 6f 20 70 6c 61  79 20 74 68 65 20 77 6f  |W to play the wo|
00000260  72 64 73 2e 22 0d 0b e0  23 f1 20 8a 37 2c 37 29  |rds."...#. .7,7)|
00000270  22 6f 72 20 50 20 74 6f  20 70 6c 61 79 20 74 68  |"or P to play th|
00000280  65 20 70 6f 65 6d 2e 22  0d 0b ea 08 41 24 3d be  |e poem."....A$=.|
00000290  0d 0b f4 11 41 3d a7 22  57 77 50 70 22 2c 41 24  |....A=."WwPp",A$|
000002a0  29 0d 0b fe 10 e7 20 41  3d 30 20 8c 20 8d 64 6a  |)..... A=0 . .dj|
000002b0  4b 0d 0c 08 05 db 0d 0c  12 17 e7 20 41 3c 33 20  |K.......... A<3 |
000002c0  f7 20 8d 74 60 4f 3a f2  77 6f 72 64 73 0d 0c 1c  |. .t`O:.words...|
000002d0  17 e7 20 41 3e 32 20 f7  20 8d 64 52 4f 3a f2 6c  |.. A>2 . .dRO:.l|
000002e0  69 6e 65 73 0d 0c 26 05  e1 0d 0c 30 05 3a 0d 0f  |ines..&....0.:..|
000002f0  a0 36 dc 20 6f 6e 65 2c  38 38 2c 38 2c 74 77 6f  |.6. one,88,8,two|
00000300  2c 38 38 2c 38 2c 74 68  72 65 65 2c 38 30 2c 34  |,88,8,three,80,4|
00000310  2c 66 6f 75 72 2c 37 32  2c 34 2c 66 69 76 65 2c  |,four,72,4,five,|
00000320  37 32 2c 38 0d 0f aa 46  dc 20 6f 6e 63 65 2c 38  |72,8...F. once,8|
00000330  30 2c 34 2c 49 2c 38 38  2c 34 2c 63 61 75 67 68  |0,4,I,88,4,caugh|
00000340  74 2c 39 32 2c 34 2c 61  2c 31 30 30 2c 34 2c 66  |t,92,4,a,100,4,f|
00000350  69 73 68 2c 31 30 30 2c  34 2c 61 2c 39 32 2c 34  |ish,100,4,a,92,4|
00000360  2c 6c 69 76 65 2c 39 32  2c 38 0d 0f b4 3d dc 20  |,live,92,8...=. |
00000370  73 69 78 2c 39 32 2c 38  2c 73 65 76 65 6e 2c 39  |six,92,8,seven,9|
00000380  32 2c 38 2c 65 69 67 68  74 2c 38 38 2c 34 2c 6e  |2,8,eight,88,4,n|
00000390  69 6e 65 2c 38 30 2c 34  2c 74 65 6e 2c 38 30 2c  |ine,80,4,ten,80,|
000003a0  38 20 20 20 20 20 20 0d  0f be 40 dc 20 74 68 65  |8      ...@. the|
000003b0  6e 2c 37 32 2c 34 2c 49  2c 36 38 2c 34 2c 6c 65  |n,72,4,I,68,4,le|
000003c0  74 2c 36 30 2c 34 2c 69  74 2c 36 38 2c 34 2c 67  |t,60,4,it,68,4,g|
000003d0  6f 2c 38 30 2c 34 2c 61  2c 37 32 2c 34 2c 67 61  |o,80,4,a,72,4,ga|
000003e0  69 6e 2c 37 32 2c 38 0d  0f c8 05 3a 0d 0f d2 4a  |in,72,8....:...J|
000003f0  dc 20 22 2a 4f 6e 65 2c  22 2c 38 38 2c 38 2c 22  |. "*One,",88,8,"|
00000400  74 77 6f 2c 22 2c 38 38  2c 38 2c 22 74 68 72 65  |two,",88,8,"thre|
00000410  65 2c 22 2c 38 30 2c 34  2c 22 66 6f 75 72 2c 22  |e,",80,4,"four,"|
00000420  2c 37 32 2c 34 2c 22 66  69 76 65 2c 22 2c 37 32  |,72,4,"five,",72|
00000430  2c 38 20 20 20 20 0d 0f  dc 58 dc 20 22 2a 4f 6e  |,8    ...X. "*On|
00000440  63 65 22 2c 38 30 2c 34  2c 22 49 22 2c 38 38 2c  |ce",80,4,"I",88,|
00000450  34 2c 22 63 61 75 67 68  74 22 2c 39 32 2c 34 2c  |4,"caught",92,4,|
00000460  22 61 22 2c 31 30 30 2c  34 2c 22 66 69 73 68 22  |"a",100,4,"fish"|
00000470  2c 31 30 30 2c 34 2c 22  61 22 2c 39 32 2c 34 2c  |,100,4,"a",92,4,|
00000480  22 2d 6c 69 76 65 22 2c  39 32 2c 38 20 20 0d 0f  |"-live",92,8  ..|
00000490  e6 4a dc 20 22 2a 53 69  78 2c 22 2c 39 32 2c 38  |.J. "*Six,",92,8|
000004a0  2c 22 73 65 76 65 6e 2c  22 2c 39 32 2c 38 2c 22  |,"seven,",92,8,"|
000004b0  65 69 67 68 74 2c 22 2c  38 38 2c 34 2c 22 6e 69  |eight,",88,4,"ni|
000004c0  6e 65 2c 22 2c 38 30 2c  34 2c 22 74 65 6e 2c 22  |ne,",80,4,"ten,"|
000004d0  2c 38 30 2c 38 20 20 20  0d 0f f0 51 dc 20 22 2a  |,80,8   ...Q. "*|
000004e0  54 68 65 6e 22 2c 37 32  2c 34 2c 22 49 22 2c 36  |Then",72,4,"I",6|
000004f0  38 2c 34 2c 22 6c 65 74  22 2c 36 30 2c 34 2c 22  |8,4,"let",60,4,"|
00000500  69 74 22 2c 36 38 2c 34  2c 22 67 6f 22 2c 38 30  |it",68,4,"go",80|
00000510  2c 34 2c 22 61 22 2c 37  32 2c 34 2c 22 2d 67 61  |,4,"a",72,4,"-ga|
00000520  69 6e 22 2c 37 32 2c 38  20 0d ff                 |in",72,8 ..|
0000052b
U/RHYME.m0
U/RHYME.m1
U/RHYME.m2
U/RHYME.m4
U/RHYME.m5

© Dominic Ford 2021–2024.

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