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 * �<