Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04b_c15_acorn_lemmings.wav » Keyboard1

Keyboard1

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 tapes » Own_Work » drawer_tl_tape04b_c15_acorn_lemmings.wav
Filename: Keyboard1
Read OK:
File size: 020C bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10MODE6:VDU28,0,24,39,19:m=0:ma=&1000
   20PRINT"Musical Keyboard"
   30IFma>&7000THENPRINT"Memory!!":T$="`":PROC`:PROCp
   40T$=GET$:IFT$="Q"THENPROCq
   50IFT$="W"THENPROCw
   60IFT$="E"THENPROCe
   70IFT$="R"THENIFm=1THEN?ma=0:ma=ma+1
   80IFT$="T"THENPROCt
   90IFT$="Y"THENm=1
  100IFT$="U"THENm=0
  110IFT$="I"THENPROCi
  120IFT$="O"THEN?ma=255:ma=ma+1
  130IFT$="P"THENPROCp
  140IFT$="`"THENPROC`
  150IFT$="_"THENPROC_
  160GOTO20
  170DEFPROCp
  180PRINT"Clear (Y/N)":K$=GET$
  190IFK$="Y"THEN210
  200IFK$="N"THENENDPROC ELSE 160
  210PRINT:PRINT"Please Wait. . ."
  220FORz=&1000 TO ma:?z=0:NEXT
  230ma=&1000
  240ENDPROC
  250DEFPROC`
  270*SAVE Tune 1000 7000
  275PRINTma
  280ENDPROC
  290DEFPROC_
  300*LOAD Tune &1000
  305INPUTma
  310ENDPROC

"�6:�28,0,24,39,19:m=0:ma=&1000
�"Musical Keyboard"
&�ma>&7000��"Memory!!":T$="`":�`:�p
(T$=�:�T$="Q"��q
2�T$="W"��w
<�T$="E"��e
F�T$="R"��m=1�?ma=0:ma=ma+1
P�T$="T"��t
Z�T$="Y"�m=1
d�T$="U"�m=0
n�T$="I"��i
x�T$="O"�?ma=255:ma=ma+1
��T$="P"��p
��T$="`"��`
��T$="_"��_
�	�TT@
���p
��"Clear (Y/N)":K$=�
��K$="Y"��dR@
��K$="N"�� � �t`@
��:�"Please Wait. . ."
��z=&1000 � ma:?z=0:�
�ma=&1000
��
���`
*SAVE Tune 1000 7000
�ma
�
"��_
,*LOAD Tune &1000
1�ma
6�
�
00000000  0d 00 0a 22 eb 36 3a ef  32 38 2c 30 2c 32 34 2c  |...".6:.28,0,24,|
00000010  33 39 2c 31 39 3a 6d 3d  30 3a 6d 61 3d 26 31 30  |39,19:m=0:ma=&10|
00000020  30 30 0d 00 14 17 f1 22  4d 75 73 69 63 61 6c 20  |00....."Musical |
00000030  4b 65 79 62 6f 61 72 64  22 0d 00 1e 26 e7 6d 61  |Keyboard"...&.ma|
00000040  3e 26 37 30 30 30 8c f1  22 4d 65 6d 6f 72 79 21  |>&7000.."Memory!|
00000050  21 22 3a 54 24 3d 22 60  22 3a f2 60 3a f2 70 0d  |!":T$="`":.`:.p.|
00000060  00 28 13 54 24 3d be 3a  e7 54 24 3d 22 51 22 8c  |.(.T$=.:.T$="Q".|
00000070  f2 71 0d 00 32 0e e7 54  24 3d 22 57 22 8c f2 77  |.q..2..T$="W"..w|
00000080  0d 00 3c 0e e7 54 24 3d  22 45 22 8c f2 65 0d 00  |..<..T$="E"..e..|
00000090  46 1e e7 54 24 3d 22 52  22 8c e7 6d 3d 31 8c 3f  |F..T$="R"..m=1.?|
000000a0  6d 61 3d 30 3a 6d 61 3d  6d 61 2b 31 0d 00 50 0e  |ma=0:ma=ma+1..P.|
000000b0  e7 54 24 3d 22 54 22 8c  f2 74 0d 00 5a 0f e7 54  |.T$="T"..t..Z..T|
000000c0  24 3d 22 59 22 8c 6d 3d  31 0d 00 64 0f e7 54 24  |$="Y".m=1..d..T$|
000000d0  3d 22 55 22 8c 6d 3d 30  0d 00 6e 0e e7 54 24 3d  |="U".m=0..n..T$=|
000000e0  22 49 22 8c f2 69 0d 00  78 1b e7 54 24 3d 22 4f  |"I"..i..x..T$="O|
000000f0  22 8c 3f 6d 61 3d 32 35  35 3a 6d 61 3d 6d 61 2b  |".?ma=255:ma=ma+|
00000100  31 0d 00 82 0e e7 54 24  3d 22 50 22 8c f2 70 0d  |1.....T$="P"..p.|
00000110  00 8c 0e e7 54 24 3d 22  60 22 8c f2 60 0d 00 96  |....T$="`"..`...|
00000120  0e e7 54 24 3d 22 5f 22  8c f2 5f 0d 00 a0 09 e5  |..T$="_".._.....|
00000130  8d 54 54 40 0d 00 aa 07  dd f2 70 0d 00 b4 17 f1  |.TT@......p.....|
00000140  22 43 6c 65 61 72 20 28  59 2f 4e 29 22 3a 4b 24  |"Clear (Y/N)":K$|
00000150  3d be 0d 00 be 10 e7 4b  24 3d 22 59 22 8c 8d 64  |=......K$="Y"..d|
00000160  52 40 0d 00 c8 14 e7 4b  24 3d 22 4e 22 8c e1 20  |R@.....K$="N".. |
00000170  8b 20 8d 74 60 40 0d 00  d2 19 f1 3a f1 22 50 6c  |. .t`@.....:."Pl|
00000180  65 61 73 65 20 57 61 69  74 2e 20 2e 20 2e 22 0d  |ease Wait. . .".|
00000190  00 dc 18 e3 7a 3d 26 31  30 30 30 20 b8 20 6d 61  |....z=&1000 . ma|
000001a0  3a 3f 7a 3d 30 3a ed 0d  00 e6 0c 6d 61 3d 26 31  |:?z=0:.....ma=&1|
000001b0  30 30 30 0d 00 f0 05 e1  0d 00 fa 07 dd f2 60 0d  |000...........`.|
000001c0  01 0e 18 2a 53 41 56 45  20 54 75 6e 65 20 31 30  |...*SAVE Tune 10|
000001d0  30 30 20 37 30 30 30 0d  01 13 07 f1 6d 61 0d 01  |00 7000.....ma..|
000001e0  18 05 e1 0d 01 22 07 dd  f2 5f 0d 01 2c 14 2a 4c  |....."..._..,.*L|
000001f0  4f 41 44 20 54 75 6e 65  20 26 31 30 30 30 0d 01  |OAD Tune &1000..|
00000200  31 07 e8 6d 61 0d 01 36  05 e1 0d ff              |1..ma..6....|
0000020c
Keyboard1.m0
Keyboard1.m1
Keyboard1.m2
Keyboard1.m4
Keyboard1.m5