!SoundLab/Files/!GenSample/0

Home » Archimedes archive » Zipped Apps » Genesis Plus » !SoundLab/Files/!GenSample/0

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 » Archimedes archive » Zipped Apps » Genesis Plus
Filename:	!SoundLab/Files/!GenSample/0
Read OK:	✔
File size:	088C bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Zipped Apps » Genesis Plus » !GenSample/0
Archimedes archive » Zipped Apps » Genesis Plus » !SoundLab/Files/!GenSample/0

����Savebox




�v�script






��







































































����,Jsavebox
��`����=0Save as:


eN�������`7file_d3c
������a8�����`��������=��OK
titled>
`��������=�C��������J8���=`�<Untitled>
�D�����,���=`�<Untitled>
�n���<���=`�<Untitled>
�File name:
Sample
DEF PAGE "Recorder"
DEF WINDOW 466 640 862 852 0 0
  BACKBOX  ON
  QUITBOX  ON
  TITLE    ON
  FULLSIZE OFF
  VSCROLL  OFF
  SIZEICON OFF
  HSCROLL  OFF
  WORKAREA 1236 936
END WINDOW

DEF BACKDROP 
DRAW ""
ON OPEN BEGIN
          TELL "how_long" TO GAIN_CARET
        END


ON MENU MENU "Recorder"


ON SELECT DIALOG "savebox"


END BACKDROP

BGCOL 1

DEF FRAME "Thu,23 May 1991.17:17:35;4"
WORD "Record time:"
STYLE 8
FGCOL 7
BGCOL 1
AT 12 -64 220 -16
ON MENU MENU "Recorder"


END FRAME

DEF FRAME "how_long"
ICON "5"
TEXT
MAXLEN 16
STYLE 14
ESG 0
VALIDATION 
""
FGCOL 7
BGCOL 0
AT 224 -64 288 -16
ON KEY BEGIN TELL "name" TO GAIN_CARET END 

ON MENU MENU "Recorder"


LOCKED
BORDER
END FRAME

DEF FRAME "Wed,17 Jul 1991.15:57:10;1"
WORD "secs"
STYLE 8
FGCOL 7
BGCOL 1
AT 288 -64 384 -16
ON MENU MENU "Recorder"


LOCKED
END FRAME

DEF FRAME "Record"
WORD "Record"
STYLE 8
FGCOL 11
BGCOL 12
AT 20 -180 180 -100
ON SELECT BEGIN
     SET ans TO ANSWER "Click OK to start recording" WITH "OK"
     SET time TO CONTENTS OF "how_long"
     IF time > 0 THEN
        GETSAMPLE "<!GenSample$Frames>.Sample" time
     ELSE
        SET ans TO ANSWER "Enter a time" WITH "OK"
     ENDIF
   END 

ON MENU MENU "Recorder"


LOCKED
BORDER
END FRAME

DEF FRAME "Playback"
WORD "Play"
STYLE 8
FGCOL 7
BGCOL 12
AT 206 -180 366 -100
ON SELECT BEGIN
     PLAYSAMPLE "<!GenSample$Frames>.Sample"
   END 

ON MENU MENU "Recorder"


LOCKED
BORDER
END FRAME

DEF DIALOG "savebox"
TEMPLATE "savebox"
ON DATA_SAVE BEGIN
               OSCLI "COPY <!GenSample$Frames>.sample " & FILE & " f~v~c~q"
             END


END DIALOG

DEF MENU "Recorder"
WHEN "Save" 
SUBMENU "savebox" 

END MENU

END PAGE

00000000  00 01 02 03 02 00 00 00  00 00 00 00 ff ff ff ff  |................|
00000010  53 61 76 65 62 6f 78 0d  0d 0d 0d 0d ec 0f 00 00  |Savebox.........|
00000020  76 01 00 00 88 00 00 00  73 63 72 69 70 74 0d 0d  |v.......script..|
00000030  0d 0d 0d 0d 08 0d 00 00  8e 06 00 00 fe 01 00 00  |................|
00000040  0d 0d 0d 0d 0d 0d 0d 0d  0d 0d 0d 0d 0d 0d 0d 0d  |................|
*
00000080  0d 0d 0d 0d 0d 0d 0d 0d  ff ff ff ff 00 00 00 00  |................|
00000090  00 00 00 00 00 00 00 00  2c 00 00 00 4a 01 00 00  |........,...J...|
000000a0  01 00 00 00 73 61 76 65  62 6f 78 0d 00 00 00 00  |....savebox.....|
000000b0  00 00 00 00 04 02 00 00  b8 01 00 00 fa 02 00 00  |................|
000000c0  60 02 00 00 00 00 00 00  00 00 00 00 18 07 00 00  |`...............|
000000d0  12 00 13 86 07 02 07 01  0c 0e 02 00 00 00 00 00  |................|
000000e0  00 fc ff ff 00 05 00 00  00 00 00 00 3d 00 00 00  |............=...|
000000f0  00 30 00 00 01 00 00 00  00 00 00 00 53 61 76 65  |.0..........Save|
00000100  20 61 73 3a 0d 0d 0d 65  07 00 00 00 4e 00 00 00  | as:...e....N...|
00000110  a6 ff ff ff 8e 00 00 00  ec ff ff ff 02 60 00 37  |.............`.7|
00000120  66 69 6c 65 5f 64 33 63  0d 00 00 00 10 01 00 00  |file_d3c........|
00000130  b8 ff ff ff 16 02 00 00  e4 ff ff ff 11 61 00 17  |.............a..|
00000140  38 01 00 00 ff ff ff ff  1e 00 00 00 be 00 00 00  |8...............|
00000150  60 ff ff ff ee 00 00 00  90 ff ff ff 3d 90 01 c7  |`...........=...|
00000160  4f 4b 0d 74 69 74 6c 65  64 3e 0d 7f 08 00 00 00  |OK.titled>......|
00000170  60 ff ff ff b8 00 00 00  90 ff ff ff 3d f1 00 07  |`...........=...|
00000180  43 01 00 00 ff ff ff ff  00 01 00 00 9a 00 00 00  |C...............|
00000190  08 ff ff ff 4a 01 00 00  38 ff ff ff 3d 60 00 d7  |....J...8...=`..|
000001a0  3c 55 6e 74 69 74 6c 65  64 3e 0d e6 44 00 00 00  |<Untitled>..D...|
000001b0  fc fe ff ff f4 00 00 00  2c ff ff ff 3d 60 00 d7  |........,...=`..|
000001c0  3c 55 6e 74 69 74 6c 65  64 3e 0d e6 6e 00 00 00  |<Untitled>..n...|
000001d0  0c ff ff ff 1e 01 00 00  3c ff ff ff 3d 60 00 d7  |........<...=`..|
000001e0  3c 55 6e 74 69 74 6c 65  64 3e 0d e6 46 69 6c 65  |<Untitled>..File|
000001f0  20 6e 61 6d 65 3a 0d 53  61 6d 70 6c 65 0d 44 45  | name:.Sample.DE|
00000200  46 20 50 41 47 45 20 22  52 65 63 6f 72 64 65 72  |F PAGE "Recorder|
00000210  22 0a 44 45 46 20 57 49  4e 44 4f 57 20 34 36 36  |".DEF WINDOW 466|
00000220  20 36 34 30 20 38 36 32  20 38 35 32 20 30 20 30  | 640 862 852 0 0|
00000230  0a 20 20 42 41 43 4b 42  4f 58 20 20 4f 4e 0a 20  |.  BACKBOX  ON. |
00000240  20 51 55 49 54 42 4f 58  20 20 4f 4e 0a 20 20 54  | QUITBOX  ON.  T|
00000250  49 54 4c 45 20 20 20 20  4f 4e 0a 20 20 46 55 4c  |ITLE    ON.  FUL|
00000260  4c 53 49 5a 45 20 4f 46  46 0a 20 20 56 53 43 52  |LSIZE OFF.  VSCR|
00000270  4f 4c 4c 20 20 4f 46 46  0a 20 20 53 49 5a 45 49  |OLL  OFF.  SIZEI|
00000280  43 4f 4e 20 4f 46 46 0a  20 20 48 53 43 52 4f 4c  |CON OFF.  HSCROL|
00000290  4c 20 20 4f 46 46 0a 20  20 57 4f 52 4b 41 52 45  |L  OFF.  WORKARE|
000002a0  41 20 31 32 33 36 20 39  33 36 0a 45 4e 44 20 57  |A 1236 936.END W|
000002b0  49 4e 44 4f 57 0a 0a 44  45 46 20 42 41 43 4b 44  |INDOW..DEF BACKD|
000002c0  52 4f 50 20 0a 44 52 41  57 20 22 22 0a 4f 4e 20  |ROP .DRAW "".ON |
000002d0  4f 50 45 4e 20 42 45 47  49 4e 0a 20 20 20 20 20  |OPEN BEGIN.     |
000002e0  20 20 20 20 20 54 45 4c  4c 20 22 68 6f 77 5f 6c  |     TELL "how_l|
000002f0  6f 6e 67 22 20 54 4f 20  47 41 49 4e 5f 43 41 52  |ong" TO GAIN_CAR|
00000300  45 54 0a 20 20 20 20 20  20 20 20 45 4e 44 0a 0a  |ET.        END..|
00000310  0a 4f 4e 20 4d 45 4e 55  20 4d 45 4e 55 20 22 52  |.ON MENU MENU "R|
00000320  65 63 6f 72 64 65 72 22  0a 0a 0a 4f 4e 20 53 45  |ecorder"...ON SE|
00000330  4c 45 43 54 20 44 49 41  4c 4f 47 20 22 73 61 76  |LECT DIALOG "sav|
00000340  65 62 6f 78 22 0a 0a 0a  45 4e 44 20 42 41 43 4b  |ebox"...END BACK|
00000350  44 52 4f 50 0a 0a 42 47  43 4f 4c 20 31 0a 0a 44  |DROP..BGCOL 1..D|
00000360  45 46 20 46 52 41 4d 45  20 22 54 68 75 2c 32 33  |EF FRAME "Thu,23|
00000370  20 4d 61 79 20 31 39 39  31 2e 31 37 3a 31 37 3a  | May 1991.17:17:|
00000380  33 35 3b 34 22 0a 57 4f  52 44 20 22 52 65 63 6f  |35;4".WORD "Reco|
00000390  72 64 20 74 69 6d 65 3a  22 0a 53 54 59 4c 45 20  |rd time:".STYLE |
000003a0  38 0a 46 47 43 4f 4c 20  37 0a 42 47 43 4f 4c 20  |8.FGCOL 7.BGCOL |
000003b0  31 0a 41 54 20 31 32 20  2d 36 34 20 32 32 30 20  |1.AT 12 -64 220 |
000003c0  2d 31 36 0a 4f 4e 20 4d  45 4e 55 20 4d 45 4e 55  |-16.ON MENU MENU|
000003d0  20 22 52 65 63 6f 72 64  65 72 22 0a 0a 0a 45 4e  | "Recorder"...EN|
000003e0  44 20 46 52 41 4d 45 0a  0a 44 45 46 20 46 52 41  |D FRAME..DEF FRA|
000003f0  4d 45 20 22 68 6f 77 5f  6c 6f 6e 67 22 0a 49 43  |ME "how_long".IC|
00000400  4f 4e 20 22 35 22 0a 54  45 58 54 0a 4d 41 58 4c  |ON "5".TEXT.MAXL|
00000410  45 4e 20 31 36 0a 53 54  59 4c 45 20 31 34 0a 45  |EN 16.STYLE 14.E|
00000420  53 47 20 30 0a 56 41 4c  49 44 41 54 49 4f 4e 20  |SG 0.VALIDATION |
00000430  0a 22 22 0a 46 47 43 4f  4c 20 37 0a 42 47 43 4f  |."".FGCOL 7.BGCO|
00000440  4c 20 30 0a 41 54 20 32  32 34 20 2d 36 34 20 32  |L 0.AT 224 -64 2|
00000450  38 38 20 2d 31 36 0a 4f  4e 20 4b 45 59 20 42 45  |88 -16.ON KEY BE|
00000460  47 49 4e 20 54 45 4c 4c  20 22 6e 61 6d 65 22 20  |GIN TELL "name" |
00000470  54 4f 20 47 41 49 4e 5f  43 41 52 45 54 20 45 4e  |TO GAIN_CARET EN|
00000480  44 20 0a 0a 4f 4e 20 4d  45 4e 55 20 4d 45 4e 55  |D ..ON MENU MENU|
00000490  20 22 52 65 63 6f 72 64  65 72 22 0a 0a 0a 4c 4f  | "Recorder"...LO|
000004a0  43 4b 45 44 0a 42 4f 52  44 45 52 0a 45 4e 44 20  |CKED.BORDER.END |
000004b0  46 52 41 4d 45 0a 0a 44  45 46 20 46 52 41 4d 45  |FRAME..DEF FRAME|
000004c0  20 22 57 65 64 2c 31 37  20 4a 75 6c 20 31 39 39  | "Wed,17 Jul 199|
000004d0  31 2e 31 35 3a 35 37 3a  31 30 3b 31 22 0a 57 4f  |1.15:57:10;1".WO|
000004e0  52 44 20 22 73 65 63 73  22 0a 53 54 59 4c 45 20  |RD "secs".STYLE |
000004f0  38 0a 46 47 43 4f 4c 20  37 0a 42 47 43 4f 4c 20  |8.FGCOL 7.BGCOL |
00000500  31 0a 41 54 20 32 38 38  20 2d 36 34 20 33 38 34  |1.AT 288 -64 384|
00000510  20 2d 31 36 0a 4f 4e 20  4d 45 4e 55 20 4d 45 4e  | -16.ON MENU MEN|
00000520  55 20 22 52 65 63 6f 72  64 65 72 22 0a 0a 0a 4c  |U "Recorder"...L|
00000530  4f 43 4b 45 44 0a 45 4e  44 20 46 52 41 4d 45 0a  |OCKED.END FRAME.|
00000540  0a 44 45 46 20 46 52 41  4d 45 20 22 52 65 63 6f  |.DEF FRAME "Reco|
00000550  72 64 22 0a 57 4f 52 44  20 22 52 65 63 6f 72 64  |rd".WORD "Record|
00000560  22 0a 53 54 59 4c 45 20  38 0a 46 47 43 4f 4c 20  |".STYLE 8.FGCOL |
00000570  31 31 0a 42 47 43 4f 4c  20 31 32 0a 41 54 20 32  |11.BGCOL 12.AT 2|
00000580  30 20 2d 31 38 30 20 31  38 30 20 2d 31 30 30 0a  |0 -180 180 -100.|
00000590  4f 4e 20 53 45 4c 45 43  54 20 42 45 47 49 4e 0a  |ON SELECT BEGIN.|
000005a0  20 20 20 20 20 53 45 54  20 61 6e 73 20 54 4f 20  |     SET ans TO |
000005b0  41 4e 53 57 45 52 20 22  43 6c 69 63 6b 20 4f 4b  |ANSWER "Click OK|
000005c0  20 74 6f 20 73 74 61 72  74 20 72 65 63 6f 72 64  | to start record|
000005d0  69 6e 67 22 20 57 49 54  48 20 22 4f 4b 22 0a 20  |ing" WITH "OK". |
000005e0  20 20 20 20 53 45 54 20  74 69 6d 65 20 54 4f 20  |    SET time TO |
000005f0  43 4f 4e 54 45 4e 54 53  20 4f 46 20 22 68 6f 77  |CONTENTS OF "how|
00000600  5f 6c 6f 6e 67 22 0a 20  20 20 20 20 49 46 20 74  |_long".     IF t|
00000610  69 6d 65 20 3e 20 30 20  54 48 45 4e 0a 20 20 20  |ime > 0 THEN.   |
00000620  20 20 20 20 20 47 45 54  53 41 4d 50 4c 45 20 22  |     GETSAMPLE "|
00000630  3c 21 47 65 6e 53 61 6d  70 6c 65 24 46 72 61 6d  |<!GenSample$Fram|
00000640  65 73 3e 2e 53 61 6d 70  6c 65 22 20 74 69 6d 65  |es>.Sample" time|
00000650  0a 20 20 20 20 20 45 4c  53 45 0a 20 20 20 20 20  |.     ELSE.     |
00000660  20 20 20 53 45 54 20 61  6e 73 20 54 4f 20 41 4e  |   SET ans TO AN|
00000670  53 57 45 52 20 22 45 6e  74 65 72 20 61 20 74 69  |SWER "Enter a ti|
00000680  6d 65 22 20 57 49 54 48  20 22 4f 4b 22 0a 20 20  |me" WITH "OK".  |
00000690  20 20 20 45 4e 44 49 46  0a 20 20 20 45 4e 44 20  |   ENDIF.   END |
000006a0  0a 0a 4f 4e 20 4d 45 4e  55 20 4d 45 4e 55 20 22  |..ON MENU MENU "|
000006b0  52 65 63 6f 72 64 65 72  22 0a 0a 0a 4c 4f 43 4b  |Recorder"...LOCK|
000006c0  45 44 0a 42 4f 52 44 45  52 0a 45 4e 44 20 46 52  |ED.BORDER.END FR|
000006d0  41 4d 45 0a 0a 44 45 46  20 46 52 41 4d 45 20 22  |AME..DEF FRAME "|
000006e0  50 6c 61 79 62 61 63 6b  22 0a 57 4f 52 44 20 22  |Playback".WORD "|
000006f0  50 6c 61 79 22 0a 53 54  59 4c 45 20 38 0a 46 47  |Play".STYLE 8.FG|
00000700  43 4f 4c 20 37 0a 42 47  43 4f 4c 20 31 32 0a 41  |COL 7.BGCOL 12.A|
00000710  54 20 32 30 36 20 2d 31  38 30 20 33 36 36 20 2d  |T 206 -180 366 -|
00000720  31 30 30 0a 4f 4e 20 53  45 4c 45 43 54 20 42 45  |100.ON SELECT BE|
00000730  47 49 4e 0a 20 20 20 20  20 50 4c 41 59 53 41 4d  |GIN.     PLAYSAM|
00000740  50 4c 45 20 22 3c 21 47  65 6e 53 61 6d 70 6c 65  |PLE "<!GenSample|
00000750  24 46 72 61 6d 65 73 3e  2e 53 61 6d 70 6c 65 22  |$Frames>.Sample"|
00000760  0a 20 20 20 45 4e 44 20  0a 0a 4f 4e 20 4d 45 4e  |.   END ..ON MEN|
00000770  55 20 4d 45 4e 55 20 22  52 65 63 6f 72 64 65 72  |U MENU "Recorder|
00000780  22 0a 0a 0a 4c 4f 43 4b  45 44 0a 42 4f 52 44 45  |"...LOCKED.BORDE|
00000790  52 0a 45 4e 44 20 46 52  41 4d 45 0a 0a 44 45 46  |R.END FRAME..DEF|
000007a0  20 44 49 41 4c 4f 47 20  22 73 61 76 65 62 6f 78  | DIALOG "savebox|
000007b0  22 0a 54 45 4d 50 4c 41  54 45 20 22 73 61 76 65  |".TEMPLATE "save|
000007c0  62 6f 78 22 0a 4f 4e 20  44 41 54 41 5f 53 41 56  |box".ON DATA_SAV|
000007d0  45 20 42 45 47 49 4e 0a  20 20 20 20 20 20 20 20  |E BEGIN.        |
000007e0  20 20 20 20 20 20 20 4f  53 43 4c 49 20 22 43 4f  |       OSCLI "CO|
000007f0  50 59 20 3c 21 47 65 6e  53 61 6d 70 6c 65 24 46  |PY <!GenSample$F|
00000800  72 61 6d 65 73 3e 2e 73  61 6d 70 6c 65 20 22 20  |rames>.sample " |
00000810  26 20 46 49 4c 45 20 26  20 22 20 66 7e 76 7e 63  |& FILE & " f~v~c|
00000820  7e 71 22 0a 20 20 20 20  20 20 20 20 20 20 20 20  |~q".            |
00000830  20 45 4e 44 0a 0a 0a 45  4e 44 20 44 49 41 4c 4f  | END...END DIALO|
00000840  47 0a 0a 44 45 46 20 4d  45 4e 55 20 22 52 65 63  |G..DEF MENU "Rec|
00000850  6f 72 64 65 72 22 0a 57  48 45 4e 20 22 53 61 76  |order".WHEN "Sav|
00000860  65 22 20 0a 53 55 42 4d  45 4e 55 20 22 73 61 76  |e" .SUBMENU "sav|
00000870  65 62 6f 78 22 20 0a 0a  45 4e 44 20 4d 45 4e 55  |ebox" ..END MENU|
00000880  0a 0a 45 4e 44 20 50 41  47 45 20 0a              |..END PAGE .|
0000088c

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .