Home » Personal collection » Commodore disks » disk66a_software_1.d64 » scrsave
scrsave
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 » Commodore disks » disk66a_software_1.d64 |
Filename: | scrsave |
Read OK: | ✔ |
File size: | 06C4 bytes |
Load address: | 0801 |
Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore disks » disk54a_sound_master_64.d64 » scrsave
- Personal collection » Commodore disks » disk66a_software_1.d64 » scrsave
File contents
0 GOTO 1000 10 REM **************** 20 REM * MUSIC MASTER * 30 REM * 64 * 40 REM **************** 50 REM * LOADER * 60 REM **************** 70 REM * BY * 80 REM * DOMINIC FORD * 90 REM * 1993-1994 * 100 REM **************** 110 POKE 53280,0:POKE53281,0 120 PRINTCHR$(8);CHR$(14);"<clr><purple>" 130 FORR=1TO12:PRINT:NEXT 140 PRINTSPC(12);"🭾LEASE WAIT. . ." 150 OPEN 1,8,0,"CODE" 160 FORR=49152 TO 53247 170 INPUT#1,D:POKER,D 180 NEXT:CLOSE 1 190 PRINTCHR$(147);CHR$(142); 200 DATA"<clr><orange> ┌🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸┐ " 210 DATA" 🭲MUSIC MASTER 64 BY DOMINIC FORD🭲 " 220 DATA"┌🭸🭸┴┬🭸🭸🭸┬🭸🭸🭸🭸┬🭸🭸🭸🭸┬🭸🭸🭸🭸┬┬🭸🭸🭸🭸🭸🭸┬┬🭸🭸┴🭸🭸🭸┐" 230 DATA"🭲MRK🭲DYN🭲 1 🭲 2 🭲 3 🭲🭲 MENU 🭲🭲SOUNDS🭲" 240 DATA"├🭸🭸🭸┼🭸🭸🭸┼🭸🭸🭸🭸┼🭸🭸🭸🭸┼🭸🭸🭸🭸┤├🭸🭸🭸🭸🭸🭸┤├🭸🭸🭸🭸🭸🭸┤" 250 DATA"│ │ │ │ │ ││EDIT ││PIANO │" 260 DATA"│ │ │ │ │ ││SAVE ││FLUTE │" 270 DATA"│ │ │ │ │ ││LOAD ││HCHORD│" 280 DATA"│ │ │ │ │ ││QUIT ││XPHONE│" 290 DATA"│ │ │ │ │ ││NAME ││ORGAN │" 300 DATA"│ │ │ │ │ ││PLAY ││ACCORD│" 310 DATA"│ │ │ │ │ ││TEMPO ││TRUMPT│" 320 DATA"│ │ │ │ │ ││ORDER ││DBASS │" 330 PRINT"│ │ │ │ │ ││NEW ->││VIOLIN│" 340 DATA"│ │ │ │ │ ││SAVE->││CLRNET│" 350 DATA"│ │ │ │ │ ││EDIT->│└🭸🭸🭸🭸🭸🭸┘" 360 DATA"│ │ │ │ │ │├🭸🭸🭸🭸🭸🭸┴🭸🭸🭸🭸🭸🭸🭸┐" 370 DATA"│ │ │ │ │ ││ WELCOME │" 380 DATA"│ │ │ │ │ ││TO SOUND M. 64│" 390 DATA"│ │ │ │ │ │├🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸┤" 400 DATA"└🭸🭸🭸┴🭸🭸🭸┴🭸🭸🭸🭸┴🭸🭸🭸🭸┴🭸🭸🭸🭸┘│ <green> <UNTITLED> <orange> │" 410 DATA" BAR ORDER│ <green> <UNTITLED> <orange> 🭲" 420 DATA"┌🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸┴🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸┤" 430 DATA"🭲 🭲" 440 DATA"└🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸<home>" 450 DATA"*" 999 AD=0 1000 READ A$:IF A$="*" THEN END 1010 FORR=1 TO LEN(A$):POKE52224+AD,ASC(MID$(A$,R,1)):AD=AD+1:NEXT 1020 GOTO 1000
� 1000$ � ****************<� * MUSIC MASTER *T� * 64 *l(� ****************�2� * LOADER *�<� ****************�F� * BY *�P� * DOMINIC FORD *�Z� * 1993-1994 *�d� **************** n� 53280,0:�53281,0' x��(8);�(14);"��"7 ��R�1�12:�:�T ���12);"�LEASE WAIT. . ."g �� 1,8,0,"CODE"| ��R�49152 � 53247� ��1,D:�R,D� ��:� 1� ���(147);�(142);� ��"�� �������������������������������î " ��" �MUSIC MASTER 64 BY DOMINIC FORD� ": ��"��ñ���ò���ò���ò���ò������ò��ñ��î"j ��"�MRK�DYN� 1 � 2 � 3 �� MENU ��SOUNDS�"� ��"����������������������ó������ó������ó"� ��"� � � � � ��EDIT ��PIANO �"� �"� � � � � ��SAVE ��FLUTE �"*�"� � � � � ��LOAD ��HCHORD�"Z�"� � � � � ��QUIT ��XPHONE�"�"�"� � � � � ��NAME ��ORGAN �"�,�"� � � � � ��PLAY ��ACCORD�"�6�"� � � � � ��TEMPO ��TRUMPT�"@�"� � � � � ��ORDER ��DBASS �"JJ�"� � � � � ��NEW ->��VIOLIN�"zT�"� � � � � ��SAVE->��CLRNET�"�^�"� � � � � ��EDIT->ݭ�����ý"�h�"� � � � � ݫ�����ñ������î" r�"� � � � � �� WELCOME �": |�"� � � � � ��TO SOUND M. 64�"j ��"� � � � � ݫ�������������ó"� ��"���ñ��ñ���ñ���ñ���ý� <UNTITLED> � �"� ��" BAR ORDER� <UNTITLED> � �"� ��"�����������������������ñ�������������ó".��"� �"^��"���������������������������������������"g��"*"p�AD�0��� A$:� A$�"*" � ����R�1 � �(A$):�52224�AD,�(�(A$,R,1)):AD�AD�1:���� 1000
LH@@. 1000@$HJ@. ****************@<HT@. * music master *@tH.@. * 64 *@LH(@. ****************@.H2@. * loader *@.H<@. ****************@.Hf@. * by *@.Hp@. * dominic ford *@.Hz@. * 1993-1994 *@.HD@. ****************@RIN@. 53280,0:.53281,0@'IX@..(8);.(14);".."@7I.@.r.1.12:.:.@tI.@..12);".lease wait. . ."@GI.@. 1,8,0,"code"@.I.@.r.49152 . 53247@.I.@.1,d:.r,d@.I.@.:. 1@.I.@..(147);.(142);@.I.@.".. ................................. "@JJ.@." .music master 64 by dominic ford. "@:J.@."........................................"@JJ.@.".mrk.dyn. 1 . 2 . 3 .. menu ..sounds."@.J.@."........................................"@.J.@.". . . . . ..edit ..piano ."@.JDA.". . . . . ..save ..flute ."@*KNA.". . . . . ..load ..hchord."@zKXA.". . . . . ..quit ..xphone."@.K"A.". . . . . ..name ..organ ."@.K,A.". . . . . ..play ..accord."@.K6A.". . . . . ..tempo ..trumpt."@ZL@A.". . . . . ..order ..dbass ."@jLjA.". . . . . ..new ->..violin."@ZLtA.". . . . . ..save->..clrnet."@.L.A.". . . . . ..edit->........."@.LHA.". . . . . ................."@JMRA.". . . . . .. welcome ."@:M.A.". . . . . ..to sound m. 64."@JM.A.". . . . . ................."@.M.A."......................... . <untitled> . ."@.M.A." bar order. . <untitled> . ."@.M.A."........................................"@.N.A.". ."@.N.A.".......................................S"@GN.A."*"@PN.Cad.0@.N.C. a$:. a$."*" . .@.N.C.r.1 . .(a$):.52224.ad,.(.(a$,r,1)):ad.ad.1:.@.N.C. 1000@@@
00000000 0c 08 00 00 89 20 31 30 30 30 00 24 08 0a 00 8f |..... 1000.$....| 00000010 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | **************| 00000020 2a 2a 00 3c 08 14 00 8f 20 20 2a 20 4d 55 53 49 |**.<.... * MUSI| 00000030 43 20 4d 41 53 54 45 52 20 2a 00 54 08 1e 00 8f |C MASTER *.T....| 00000040 20 20 2a 20 20 20 20 20 20 36 34 20 20 20 20 20 | * 64 | 00000050 20 2a 00 6c 08 28 00 8f 20 20 2a 2a 2a 2a 2a 2a | *.l.(.. ******| 00000060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 84 08 32 00 8f |**********...2..| 00000070 20 20 2a 20 20 20 20 4c 4f 41 44 45 52 20 20 20 | * LOADER | 00000080 20 2a 00 9c 08 3c 00 8f 20 20 2a 2a 2a 2a 2a 2a | *...<.. ******| 00000090 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 b4 08 46 00 8f |**********...F..| 000000a0 20 20 2a 20 20 20 20 20 20 42 59 20 20 20 20 20 | * BY | 000000b0 20 2a 00 cc 08 50 00 8f 20 20 2a 20 44 4f 4d 49 | *...P.. * DOMI| 000000c0 4e 49 43 20 46 4f 52 44 20 2a 00 e4 08 5a 00 8f |NIC FORD *...Z..| 000000d0 20 20 2a 20 20 20 31 39 39 33 2d 31 39 39 34 20 | * 1993-1994 | 000000e0 20 2a 00 fb 08 64 00 8f 20 2a 2a 2a 2a 2a 2a 2a | *...d.. *******| 000000f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 09 6e 00 97 20 |*********...n.. | 00000100 35 33 32 38 30 2c 30 3a 97 35 33 32 38 31 2c 30 |53280,0:.53281,0| 00000110 00 27 09 78 00 99 c7 28 38 29 3b c7 28 31 34 29 |.'.x...(8);.(14)| 00000120 3b 22 93 9c 22 00 37 09 82 00 81 52 b2 31 a4 31 |;"..".7....R.1.1| 00000130 32 3a 99 3a 82 00 54 09 8c 00 99 a6 31 32 29 3b |2:.:..T.....12);| 00000140 22 d0 4c 45 41 53 45 20 57 41 49 54 2e 20 2e 20 |".LEASE WAIT. . | 00000150 2e 22 00 67 09 96 00 9f 20 31 2c 38 2c 30 2c 22 |.".g.... 1,8,0,"| 00000160 43 4f 44 45 22 00 7c 09 a0 00 81 52 b2 34 39 31 |CODE".|....R.491| 00000170 35 32 20 a4 20 35 33 32 34 37 00 8a 09 aa 00 84 |52 . 53247......| 00000180 31 2c 44 3a 97 52 2c 44 00 94 09 b4 00 82 3a a0 |1,D:.R,D......:.| 00000190 20 31 00 a8 09 be 00 99 c7 28 31 34 37 29 3b c7 | 1.......(147);.| 000001a0 28 31 34 32 29 3b 00 da 09 c8 00 83 22 93 81 20 |(142);......".. | 000001b0 20 20 b0 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 | ..............| 000001c0 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 |................| 000001d0 c3 c3 ae 20 20 20 20 22 00 0a 0a d2 00 83 22 20 |... "......" | 000001e0 20 20 c2 4d 55 53 49 43 20 4d 41 53 54 45 52 20 | .MUSIC MASTER | 000001f0 36 34 20 42 59 20 44 4f 4d 49 4e 49 43 20 46 4f |64 BY DOMINIC FO| 00000200 52 44 c2 20 20 20 20 22 00 3a 0a dc 00 83 22 b0 |RD. ".:....".| 00000210 c3 c3 b1 b2 c3 c3 c3 b2 c3 c3 c3 c3 b2 c3 c3 c3 |................| 00000220 c3 b2 c3 c3 c3 c3 b2 b2 c3 c3 c3 c3 c3 c3 b2 b2 |................| 00000230 c3 c3 b1 c3 c3 c3 ae 22 00 6a 0a e6 00 83 22 c2 |.......".j....".| 00000240 4d 52 4b c2 44 59 4e c2 20 31 20 20 c2 20 32 20 |MRK.DYN. 1 . 2 | 00000250 20 c2 20 33 20 20 c2 c2 20 4d 45 4e 55 20 c2 c2 | . 3 .. MENU ..| 00000260 53 4f 55 4e 44 53 c2 22 00 9a 0a f0 00 83 22 ab |SOUNDS."......".| 00000270 c3 c3 c3 db c3 c3 c3 db c3 c3 c3 c3 db c3 c3 c3 |................| 00000280 c3 db c3 c3 c3 c3 b3 ab c3 c3 c3 c3 c3 c3 b3 ab |................| 00000290 c3 c3 c3 c3 c3 c3 b3 22 00 ca 0a fa 00 83 22 dd |......."......".| 000002a0 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 000002b0 20 dd 20 20 20 20 dd dd 45 44 49 54 20 20 dd dd | . ..EDIT ..| 000002c0 50 49 41 4e 4f 20 dd 22 00 fa 0a 04 01 83 22 dd |PIANO ."......".| 000002d0 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 000002e0 20 dd 20 20 20 20 dd dd 53 41 56 45 20 20 dd dd | . ..SAVE ..| 000002f0 46 4c 55 54 45 20 dd 22 00 2a 0b 0e 01 83 22 dd |FLUTE .".*....".| 00000300 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000310 20 dd 20 20 20 20 dd dd 4c 4f 41 44 20 20 dd dd | . ..LOAD ..| 00000320 48 43 48 4f 52 44 dd 22 00 5a 0b 18 01 83 22 dd |HCHORD.".Z....".| 00000330 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000340 20 dd 20 20 20 20 dd dd 51 55 49 54 20 20 dd dd | . ..QUIT ..| 00000350 58 50 48 4f 4e 45 dd 22 00 8a 0b 22 01 83 22 dd |XPHONE."..."..".| 00000360 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000370 20 dd 20 20 20 20 dd dd 4e 41 4d 45 20 20 dd dd | . ..NAME ..| 00000380 4f 52 47 41 4e 20 dd 22 00 ba 0b 2c 01 83 22 dd |ORGAN ."...,..".| 00000390 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 000003a0 20 dd 20 20 20 20 dd dd 50 4c 41 59 20 20 dd dd | . ..PLAY ..| 000003b0 41 43 43 4f 52 44 dd 22 00 ea 0b 36 01 83 22 dd |ACCORD."...6..".| 000003c0 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 000003d0 20 dd 20 20 20 20 dd dd 54 45 4d 50 4f 20 dd dd | . ..TEMPO ..| 000003e0 54 52 55 4d 50 54 dd 22 00 1a 0c 40 01 83 22 dd |TRUMPT."...@..".| 000003f0 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000400 20 dd 20 20 20 20 dd dd 4f 52 44 45 52 20 dd dd | . ..ORDER ..| 00000410 44 42 41 53 53 20 dd 22 00 4a 0c 4a 01 99 22 dd |DBASS .".J.J..".| 00000420 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000430 20 dd 20 20 20 20 dd dd 4e 45 57 20 2d 3e dd dd | . ..NEW ->..| 00000440 56 49 4f 4c 49 4e dd 22 00 7a 0c 54 01 83 22 dd |VIOLIN.".z.T..".| 00000450 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000460 20 dd 20 20 20 20 dd dd 53 41 56 45 2d 3e dd dd | . ..SAVE->..| 00000470 43 4c 52 4e 45 54 dd 22 00 aa 0c 5e 01 83 22 dd |CLRNET."...^..".| 00000480 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000490 20 dd 20 20 20 20 dd dd 45 44 49 54 2d 3e dd ad | . ..EDIT->..| 000004a0 c3 c3 c3 c3 c3 c3 bd 22 00 da 0c 68 01 83 22 dd |......."...h..".| 000004b0 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 000004c0 20 dd 20 20 20 20 dd ab c3 c3 c3 c3 c3 c3 b1 c3 | . ..........| 000004d0 c3 c3 c3 c3 c3 c3 ae 22 00 0a 0d 72 01 83 22 dd |......."...r..".| 000004e0 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 000004f0 20 dd 20 20 20 20 dd dd 20 20 20 20 57 45 4c 43 | . .. WELC| 00000500 4f 4d 45 20 20 20 dd 22 00 3a 0d 7c 01 83 22 dd |OME .".:.|..".| 00000510 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000520 20 dd 20 20 20 20 dd dd 54 4f 20 53 4f 55 4e 44 | . ..TO SOUND| 00000530 20 4d 2e 20 36 34 dd 22 00 6a 0d 86 01 83 22 dd | M. 64.".j....".| 00000540 20 20 20 dd 20 20 20 dd 20 20 20 20 dd 20 20 20 | . . . | 00000550 20 dd 20 20 20 20 dd ab c3 c3 c3 c3 c3 c3 c3 c3 | . ..........| 00000560 c3 c3 c3 c3 c3 c3 b3 22 00 9c 0d 90 01 83 22 ad |......."......".| 00000570 c3 c3 c3 b1 c3 c3 c3 b1 c3 c3 c3 c3 b1 c3 c3 c3 |................| 00000580 c3 b1 c3 c3 c3 c3 bd dd 20 1e 20 3c 55 4e 54 49 |........ . <UNTI| 00000590 54 4c 45 44 3e 20 81 20 dd 22 00 ce 0d 9a 01 83 |TLED> . ."......| 000005a0 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000005b0 42 41 52 20 4f 52 44 45 52 dd 20 1e 20 3c 55 4e |BAR ORDER. . <UN| 000005c0 54 49 54 4c 45 44 3e 20 81 20 c2 22 00 fe 0d a4 |TITLED> . ."....| 000005d0 01 83 22 b0 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 |..".............| 000005e0 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 b1 c3 c3 c3 c3 |................| 000005f0 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 b3 22 00 2e 0e ae |..........."....| 00000600 01 83 22 c2 20 20 20 20 20 20 20 20 20 20 20 20 |..". | 00000610 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000620 20 20 20 20 20 20 20 20 20 20 c2 22 00 5e 0e b8 | .".^..| 00000630 01 83 22 ad c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 |..".............| 00000640 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 |................| 00000650 c3 c3 c3 c3 c3 c3 c3 c3 c3 c3 13 22 00 67 0e c2 |...........".g..| 00000660 01 83 22 2a 22 00 70 0e e7 03 41 44 b2 30 00 86 |.."*".p...AD.0..| 00000670 0e e8 03 87 20 41 24 3a 8b 20 41 24 b2 22 2a 22 |.... A$:. A$."*"| 00000680 20 a7 20 80 00 b8 0e f2 03 81 52 b2 31 20 a4 20 | . .......R.1 . | 00000690 c3 28 41 24 29 3a 97 35 32 32 32 34 aa 41 44 2c |.(A$):.52224.AD,| 000006a0 c6 28 ca 28 41 24 2c 52 2c 31 29 29 3a 41 44 b2 |.(.(A$,R,1)):AD.| 000006b0 41 44 aa 31 3a 82 00 c3 0e fc 03 89 20 31 30 30 |AD.1:....... 100| 000006c0 30 00 00 00 |0...| 000006c4