Home » Archimedes archive » Archimedes World » AW-1992-10.adf » AWOct92 » !AWOct92/Goodies/PDGame/!2067Demo/Code/Setup
!AWOct92/Goodies/PDGame/!2067Demo/Code/Setup
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 » Archimedes World » AW-1992-10.adf » AWOct92 |
| Filename: | !AWOct92/Goodies/PDGame/!2067Demo/Code/Setup |
| Read OK: | ✔ |
| File size: | 014A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM ><PreHist$Dir>.Code.Setup 60SYS "Wimp_CommandWindow",,-1 100*FX 113 1 110*FX 15 121*FX 200 1 122VOICES 4 123 *TUNING 0 124 *TUNING -&2000 125 *TUNING -&1000 126 date$=MID$(TIME$,5,6) 127 CASE date$ OF 128 WHEN "25 Dec" : *Set Event$Dir Event2 129 WHEN "26 Mar","27 Mar" : *Set Event$Dir Event3 130 OTHERWISE 131 *Set Event$Dir Event1 132 ENDCASE 160END
� ><PreHist$Dir>.Code.Setup
< ș "Wimp_CommandWindow",,-1
d
*FX 113 1
n
*FX 15
y
*FX 200 1
zȠ 4
{ *TUNING 0
| *TUNING -&2000
} *TUNING -&1000
~ date$=��$,5,6)
Ȏ date$ �
�) � "25 Dec" : *Set Event$Dir Event2
�2 � "26 Mar","27 Mar" : *Set Event$Dir Event3
�
� *Set Event$Dir Event1
� �
��
� 00000000 0d 00 0a 1f f4 20 3e 3c 50 72 65 48 69 73 74 24 |..... ><PreHist$|
00000010 44 69 72 3e 2e 43 6f 64 65 2e 53 65 74 75 70 0d |Dir>.Code.Setup.|
00000020 00 3c 1f c8 99 20 22 57 69 6d 70 5f 43 6f 6d 6d |.<... "Wimp_Comm|
00000030 61 6e 64 57 69 6e 64 6f 77 22 2c 2c 2d 31 0d 00 |andWindow",,-1..|
00000040 64 0d 2a 46 58 20 31 31 33 20 31 0d 00 6e 0a 2a |d.*FX 113 1..n.*|
00000050 46 58 20 31 35 0d 00 79 0d 2a 46 58 20 32 30 30 |FX 15..y.*FX 200|
00000060 20 31 0d 00 7a 08 c8 a0 20 34 0d 00 7b 0e 20 2a | 1..z... 4..{. *|
00000070 54 55 4e 49 4e 47 20 30 0d 00 7c 13 20 2a 54 55 |TUNING 0..|. *TU|
00000080 4e 49 4e 47 20 2d 26 32 30 30 30 0d 00 7d 13 20 |NING -&2000..}. |
00000090 2a 54 55 4e 49 4e 47 20 2d 26 31 30 30 30 0d 00 |*TUNING -&1000..|
000000a0 7e 13 20 64 61 74 65 24 3d c1 91 24 2c 35 2c 36 |~. date$=..$,5,6|
000000b0 29 0d 00 7f 0f 20 c8 8e 20 64 61 74 65 24 20 ca |).... .. date$ .|
000000c0 0d 00 80 29 20 20 20 c9 20 22 32 35 20 44 65 63 |...) . "25 Dec|
000000d0 22 20 3a 20 2a 53 65 74 20 45 76 65 6e 74 24 44 |" : *Set Event$D|
000000e0 69 72 20 45 76 65 6e 74 32 0d 00 81 32 20 20 20 |ir Event2...2 |
000000f0 c9 20 22 32 36 20 4d 61 72 22 2c 22 32 37 20 4d |. "26 Mar","27 M|
00000100 61 72 22 20 3a 20 2a 53 65 74 20 45 76 65 6e 74 |ar" : *Set Event|
00000110 24 44 69 72 20 45 76 65 6e 74 33 0d 00 82 06 20 |$Dir Event3.... |
00000120 7f 0d 00 83 1c 20 20 20 2a 53 65 74 20 45 76 65 |..... *Set Eve|
00000130 6e 74 24 44 69 72 20 45 76 65 6e 74 31 0d 00 84 |nt$Dir Event1...|
00000140 06 20 cb 0d 00 a0 05 e0 0d ff |. ........|
0000014a 
.