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