Home » Personal collection » Acorn ADFS disks » Electron » Music_2.ADF » MUSIC/ColdTea
MUSIC/ColdTea
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 ADFS disks » Electron » Music_2.ADF |
Filename: | MUSIC/ColdTea |
Read OK: | ✔ |
File size: | 0917 bytes |
Load address: | FFFFFB00 |
Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » bbc_pd » bbc_pd_5_25_discs_d-bbc022_D-BBC022.dsd » ColdTea
- Personal collection » Acorn ADFS disks » Electron » Music_2.ADF » MUSIC/ColdTea
File contents
10MODE7:DL=15:G%=-1 11 VDU23;8202;0;0;0; 40A$="COLD TEA" 50VDU132,157,141,129:PRINTTAB(9)CHR$157CHR$131" "A$" "CHR$132CHR$157 60VDU132,157,141,129:PRINTTAB(9)CHR$157CHR$131" "A$" "CHR$132CHR$157 70PRINTTAB(10,3)CHR$141"Devised by R.Cope."'TAB(10)CHR$141"Devised by R.Cope." 80PRINTTAB(7)CHR$133"From the original work:" 90PRINTTAB(4,7)CHR$130"'Cold Tea' by Andrew Robinson." 100PRINT''CHR$131" b # b # # b # b # # b # b # # b "CHR$131"ABBCCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABB"CHR$30 105PRINTTAB(0,12);CHR$&84'CHR$&86;CHR$&9D'CHR$&82'CHR$&86;CHR$&9D'CHR$&81 110I%=0:ENVELOPE1,1,0,0,0,4,4,4,40,0,0,-3,128,1 120ENVELOPE2,1,0,0,0,2,2,1,120,0,0,-2,128,1 130ON ERROR GOTO150 140READA$:I%=I%+1:GOTO140 150Q%=(I%-2)/3-1 160ON ERROR OFF 161RESTORE 170DATA112211221134=54>6789:>;9:< 180DATA00000000001111100000000001 190READR$,RT$ 200REM ** VOICE 1 ** 210DATA"0GGSSNNQQGGSSNNQQ" 220DATA"0@@LLGGJJBBNNIILLCCOOJJOOEEQQLLQQ" 230DATA"0JJVVJJVVJJVVJJVVEEQQEEQQEEQQEEQQ" 240DATA"0CCOOCCOOEEQQEEQQ" 250DATA"0JJVVJJVVJJVVJJVVEEQQEEQQEEQQEEQQ" 260DATA"0FFFFFFFFFFFFFFFF" 270DATA"0EEEEEEEEEEEEEEEE" 280DATA"0DDDDDDDDDDDDDDDD" 290DATA"0CCCCCCCCCCCCCCCC" 300DATA"0BBBBBBBBBBBBBBBB" 310DATA"0EEEEEEEEEEEEEEEE" 320DATA"0GGGGGGGGGGGGGGGG" 330DATA"0JJVVJJVVJJVVJJVV" 340DATA"0GGGGGGGGGGGGGGGG" 350REM ** VOICE 2 ** 360DATA"0VNVNUNUVNVVNUNUN" 370DATA"1GCGLCGJCIBGIGBFBGCGNCGLCI@GIG@E@" 380DATA"1NNJEEBEJNNOONLJJLLIEE@EILLNNLJII" 390DATA"1GCGJOJGCIEILJJII" 400DATA"1NNJEEBEJNNOONLJJQLIEE@EILLNNLJII" 410DATA"0VNVNUNUVNVVNUNUN" 420DATA"0VNVNUNUVNVVNUNUN" 430DATA"0VPVPUPUVPVVPUPUP" 440DATA"0VOVOUOUVOVVOUOUO" 450DATA"0BNSUZUSNBNRUZURN" 460DATA"1JEJEIEIJEJJEIEIE" 470DATA"1GJNSNJGGGGGGGGGG" 480DATA"1NNJEEBEJNNJJEEBB" 490DATA"0VNVNUNUVNVVNUNUN" 500REM ** VOICE 3 ** 510DATA"0ZNZNXNXZNZZNXNXN" 520DATA"1GCGLCGJCIBGIGBFBGCGNCGLCI@GIG@E@" 530DATA"1NNNJJEBEJJOONLJJLLLIIE@ELLNNLJII" 540DATA"1GGCGJOJGCIEILLJI" 550DATA"1NNNJJEBEJJOONLJJQQLIIE@ELLNNLJII" 560DATA"0ZNZNXNXZNZZNXNXN" 570DATA"0ZNZNXNXZNZZNXNXN" 580DATA"0ZPZPXPXZPZZPXPXP" 590DATA"0ZOZOXOXZOZZOXOXO" 600DATA"0BBBGINIGBBBFINIF" 610DATA"1LELELELLELLELELE" 620DATA"1JNSVSNJJJJJJJJJJ" 630DATA"1NNNJJEBEJJNNEEBB" 640DATA"0ZNZNXNXZNZZNXNXN" 650DIMA$(Q%,2),OCT%(2),Y%(2) 660FORI=0TO2:Y%(I)=&7FFF:NEXT 670FORI%=0TO2:FORJ%=0TOQ% 680READA$(J%,I%):NEXT:NEXT 690TQ=TIME+DL 695ONERRORPRINTTAB(0,22);:REPORT:GOTO900 696SOUND &F0C0,0,3,0 700FORB%=1TOLEN(R$) 710V%=1-(MID$(RT$,B%,1)="1") 720R%=ASCMID$(R$,B%)-49 730FORI%=0TO2 740OCT%(I%)=48*ASCA$(R%,I%):NEXT 750FORI=2TOLENA$(R%,0) 760REPEATUNTILTIME>=TQ:TQ=TIME+DL 770FORJ=0TO2:PRINTTAB(Y%(J),16-J*2);CHR$156; 780W$=MID$(A$(R%,J),I,1) 790Y%(J)=ASCW$-60:PRINTTAB(Y%(J),16-J*2);CHR$157;CHR$156; 810SOUNDJ+1,V%,OCT%(J)+4*ASCW$,1 820NEXT:NEXT:NEXT 830FORR=1TO500:NEXT 900CHAIN"HELLO"
�7:DL=15:G%=-1 �23;8202;0;0;0; (A$="COLD TEA" 22�132,157,141,129:�9)�157�131" "A$" "�132�157 <2�132,157,141,129:�9)�157�131" "A$" "�132�157 F@�10,3)�141"Devised by R.Cope."'�10)�141"Devised by R.Cope." P%�7)�133"From the original work:" Z.�4,7)�130"'Cold Tea' by Andrew Robinson." dd�''�131" b # b # # b # b # # b # b # # b "�131"ABBCCDEEFFGGABBCCDEEFFGGABBCCDEEFFGGABB"�30 i.�0,12);�&84'�&86;�&9D'�&82'�&86;�&9D'�&81 n)I%=0:�1,1,0,0,0,4,4,4,40,0,0,-3,128,1 x%�2,1,0,0,0,2,2,1,120,0,0,-2,128,1 � � � �tV@ ��A$:I%=I%+1:�tL@ �Q%=(I%-2)/3-1 � � � � �� ��112211221134=54>6789:>;9:< ��00000000001111100000000001 ��R$,RT$ �� ** VOICE 1 ** ��"0GGSSNNQQGGSSNNQQ" �(�"0@@LLGGJJBBNNIILLCCOOJJOOEEQQLLQQ" �(�"0JJVVJJVVJJVVJJVVEEQQEEQQEEQQEEQQ" ��"0CCOOCCOOEEQQEEQQ" �(�"0JJVVJJVVJJVVJJVVEEQQEEQQEEQQEEQQ" �"0FFFFFFFFFFFFFFFF" �"0EEEEEEEEEEEEEEEE" �"0DDDDDDDDDDDDDDDD" "�"0CCCCCCCCCCCCCCCC" ,�"0BBBBBBBBBBBBBBBB" 6�"0EEEEEEEEEEEEEEEE" @�"0GGGGGGGGGGGGGGGG" J�"0JJVVJJVVJJVVJJVV" T�"0GGGGGGGGGGGGGGGG" ^� ** VOICE 2 ** h�"0VNVNUNUVNVVNUNUN" r(�"1GCGLCGJCIBGIGBFBGCGNCGLCI@GIG@E@" |(�"1NNJEEBEJNNOONLJJLLIEE@EILLNNLJII" ��"1GCGJOJGCIEILJJII" �(�"1NNJEEBEJNNOONLJJQLIEE@EILLNNLJII" ��"0VNVNUNUVNVVNUNUN" ��"0VNVNUNUVNVVNUNUN" ��"0VPVPUPUVPVVPUPUP" ��"0VOVOUOUVOVVOUOUO" ��"0BNSUZUSNBNRUZURN" ��"1JEJEIEIJEJJEIEIE" ��"1GJNSNJGGGGGGGGGG" ��"1NNJEEBEJNNJJEEBB" ��"0VNVNUNUVNVVNUNUN" �� ** VOICE 3 ** ��"0ZNZNXNXZNZZNXNXN" (�"1GCGLCGJCIBGIGBFBGCGNCGLCI@GIG@E@" (�"1NNNJJEBEJJOONLJJLLLIIE@ELLNNLJII" �"1GGCGJOJGCIEILLJI" &(�"1NNNJJEBEJJOONLJJQQLIIE@ELLNNLJII" 0�"0ZNZNXNXZNZZNXNXN" :�"0ZNZNXNXZNZZNXNXN" D�"0ZPZPXPXZPZZPXPXP" N�"0ZOZOXOXZOZZOXOXO" X�"0BBBGINIGBBBFINIF" b�"1LELELELLELLELELE" l�"1JNSVSNJJJJJJJJJJ" v�"1NNNJJEBEJJNNEEBB" ��"0ZNZNXNXZNZZNXNXN" ��A$(Q%,2),OCT%(2),Y%(2) ��I=0�2:Y%(I)=&7FFF:� ��I%=0�2:�J%=0�Q% ��A$(J%,I%):�:� �TQ=�+DL ���0,22);:�:�tDC �� &F0C0,0,3,0 ��B%=1��(R$) �V%=1-(�RT$,B%,1)="1") �R%=��R$,B%)-49 ��I%=0�2 �OCT%(I%)=48*�A$(R%,I%):� ��I=2��A$(R%,0) ����>=TQ:TQ=�+DL �J=0�2:�Y%(J),16-J*2);�156; W$=�A$(R%,J),I,1) +Y%(J)=�W$-60:�Y%(J),16-J*2);�157;�156; *�J+1,V%,OCT%(J)+4*�W$,1 4 �:�:� >�R=1�500:� ��"HELLO" �
00000000 0d 00 0a 12 eb 37 3a 44 4c 3d 31 35 3a 47 25 3d |.....7:DL=15:G%=| 00000010 2d 31 0d 00 0b 14 20 ef 32 33 3b 38 32 30 32 3b |-1.... .23;8202;| 00000020 30 3b 30 3b 30 3b 0d 00 28 11 41 24 3d 22 43 4f |0;0;0;..(.A$="CO| 00000030 4c 44 20 54 45 41 22 0d 00 32 32 ef 31 33 32 2c |LD TEA"..22.132,| 00000040 31 35 37 2c 31 34 31 2c 31 32 39 3a f1 8a 39 29 |157,141,129:..9)| 00000050 bd 31 35 37 bd 31 33 31 22 20 22 41 24 22 20 20 |.157.131" "A$" | 00000060 22 bd 31 33 32 bd 31 35 37 0d 00 3c 32 ef 31 33 |".132.157..<2.13| 00000070 32 2c 31 35 37 2c 31 34 31 2c 31 32 39 3a f1 8a |2,157,141,129:..| 00000080 39 29 bd 31 35 37 bd 31 33 31 22 20 22 41 24 22 |9).157.131" "A$"| 00000090 20 20 22 bd 31 33 32 bd 31 35 37 0d 00 46 40 f1 | ".132.157..F@.| 000000a0 8a 31 30 2c 33 29 bd 31 34 31 22 44 65 76 69 73 |.10,3).141"Devis| 000000b0 65 64 20 62 79 20 52 2e 43 6f 70 65 2e 22 27 8a |ed by R.Cope."'.| 000000c0 31 30 29 bd 31 34 31 22 44 65 76 69 73 65 64 20 |10).141"Devised | 000000d0 62 79 20 52 2e 43 6f 70 65 2e 22 0d 00 50 25 f1 |by R.Cope."..P%.| 000000e0 8a 37 29 bd 31 33 33 22 46 72 6f 6d 20 74 68 65 |.7).133"From the| 000000f0 20 6f 72 69 67 69 6e 61 6c 20 77 6f 72 6b 3a 22 | original work:"| 00000100 0d 00 5a 2e f1 8a 34 2c 37 29 bd 31 33 30 22 27 |..Z...4,7).130"'| 00000110 43 6f 6c 64 20 54 65 61 27 20 62 79 20 41 6e 64 |Cold Tea' by And| 00000120 72 65 77 20 52 6f 62 69 6e 73 6f 6e 2e 22 0d 00 |rew Robinson."..| 00000130 64 64 f1 27 27 bd 31 33 31 22 20 62 20 20 23 20 |dd.''.131" b # | 00000140 62 20 20 23 20 23 20 62 20 20 23 20 62 20 20 23 |b # # b # b #| 00000150 20 23 20 62 20 20 23 20 62 20 20 23 20 23 20 62 | # b # b # # b| 00000160 20 22 bd 31 33 31 22 41 42 42 43 43 44 45 45 46 | ".131"ABBCCDEEF| 00000170 46 47 47 41 42 42 43 43 44 45 45 46 46 47 47 41 |FGGABBCCDEEFFGGA| 00000180 42 42 43 43 44 45 45 46 46 47 47 41 42 42 22 bd |BBCCDEEFFGGABB".| 00000190 33 30 0d 00 69 2e f1 8a 30 2c 31 32 29 3b bd 26 |30..i...0,12);.&| 000001a0 38 34 27 bd 26 38 36 3b bd 26 39 44 27 bd 26 38 |84'.&86;.&9D'.&8| 000001b0 32 27 bd 26 38 36 3b bd 26 39 44 27 bd 26 38 31 |2'.&86;.&9D'.&81| 000001c0 0d 00 6e 29 49 25 3d 30 3a e2 31 2c 31 2c 30 2c |..n)I%=0:.1,1,0,| 000001d0 30 2c 30 2c 34 2c 34 2c 34 2c 34 30 2c 30 2c 30 |0,0,4,4,4,40,0,0| 000001e0 2c 2d 33 2c 31 32 38 2c 31 0d 00 78 25 e2 32 2c |,-3,128,1..x%.2,| 000001f0 31 2c 30 2c 30 2c 30 2c 32 2c 32 2c 31 2c 31 32 |1,0,0,0,2,2,1,12| 00000200 30 2c 30 2c 30 2c 2d 32 2c 31 32 38 2c 31 0d 00 |0,0,0,-2,128,1..| 00000210 82 0d ee 20 85 20 e5 8d 74 56 40 0d 00 8c 15 f3 |... . ..tV@.....| 00000220 41 24 3a 49 25 3d 49 25 2b 31 3a e5 8d 74 4c 40 |A$:I%=I%+1:..tL@| 00000230 0d 00 96 11 51 25 3d 28 49 25 2d 32 29 2f 33 2d |....Q%=(I%-2)/3-| 00000240 31 0d 00 a0 09 ee 20 85 20 87 0d 00 a1 05 f7 0d |1..... . .......| 00000250 00 aa 1f dc 31 31 32 32 31 31 32 32 31 31 33 34 |....112211221134| 00000260 3d 35 34 3e 36 37 38 39 3a 3e 3b 39 3a 3c 0d 00 |=54>6789:>;9:<..| 00000270 b4 1f dc 30 30 30 30 30 30 30 30 30 30 31 31 31 |...0000000000111| 00000280 31 31 30 30 30 30 30 30 30 30 30 30 31 0d 00 be |1100000000001...| 00000290 0b f3 52 24 2c 52 54 24 0d 00 c8 1a f4 20 20 20 |..R$,RT$..... | 000002a0 20 20 20 20 20 2a 2a 20 56 4f 49 43 45 20 31 20 | ** VOICE 1 | 000002b0 2a 2a 0d 00 d2 18 dc 22 30 47 47 53 53 4e 4e 51 |**....."0GGSSNNQ| 000002c0 51 47 47 53 53 4e 4e 51 51 22 0d 00 dc 28 dc 22 |QGGSSNNQQ"...(."| 000002d0 30 40 40 4c 4c 47 47 4a 4a 42 42 4e 4e 49 49 4c |0@@LLGGJJBBNNIIL| 000002e0 4c 43 43 4f 4f 4a 4a 4f 4f 45 45 51 51 4c 4c 51 |LCCOOJJOOEEQQLLQ| 000002f0 51 22 0d 00 e6 28 dc 22 30 4a 4a 56 56 4a 4a 56 |Q"...(."0JJVVJJV| 00000300 56 4a 4a 56 56 4a 4a 56 56 45 45 51 51 45 45 51 |VJJVVJJVVEEQQEEQ| 00000310 51 45 45 51 51 45 45 51 51 22 0d 00 f0 18 dc 22 |QEEQQEEQQ"....."| 00000320 30 43 43 4f 4f 43 43 4f 4f 45 45 51 51 45 45 51 |0CCOOCCOOEEQQEEQ| 00000330 51 22 0d 00 fa 28 dc 22 30 4a 4a 56 56 4a 4a 56 |Q"...(."0JJVVJJV| 00000340 56 4a 4a 56 56 4a 4a 56 56 45 45 51 51 45 45 51 |VJJVVJJVVEEQQEEQ| 00000350 51 45 45 51 51 45 45 51 51 22 0d 01 04 18 dc 22 |QEEQQEEQQ"....."| 00000360 30 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 |0FFFFFFFFFFFFFFF| 00000370 46 22 0d 01 0e 18 dc 22 30 45 45 45 45 45 45 45 |F"....."0EEEEEEE| 00000380 45 45 45 45 45 45 45 45 45 22 0d 01 18 18 dc 22 |EEEEEEEEE"....."| 00000390 30 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 |0DDDDDDDDDDDDDDD| 000003a0 44 22 0d 01 22 18 dc 22 30 43 43 43 43 43 43 43 |D"..".."0CCCCCCC| 000003b0 43 43 43 43 43 43 43 43 43 22 0d 01 2c 18 dc 22 |CCCCCCCCC"..,.."| 000003c0 30 42 42 42 42 42 42 42 42 42 42 42 42 42 42 42 |0BBBBBBBBBBBBBBB| 000003d0 42 22 0d 01 36 18 dc 22 30 45 45 45 45 45 45 45 |B"..6.."0EEEEEEE| 000003e0 45 45 45 45 45 45 45 45 45 22 0d 01 40 18 dc 22 |EEEEEEEEE"..@.."| 000003f0 30 47 47 47 47 47 47 47 47 47 47 47 47 47 47 47 |0GGGGGGGGGGGGGGG| 00000400 47 22 0d 01 4a 18 dc 22 30 4a 4a 56 56 4a 4a 56 |G"..J.."0JJVVJJV| 00000410 56 4a 4a 56 56 4a 4a 56 56 22 0d 01 54 18 dc 22 |VJJVVJJVV"..T.."| 00000420 30 47 47 47 47 47 47 47 47 47 47 47 47 47 47 47 |0GGGGGGGGGGGGGGG| 00000430 47 22 0d 01 5e 1a f4 20 20 20 20 20 20 20 20 2a |G"..^.. *| 00000440 2a 20 56 4f 49 43 45 20 32 20 2a 2a 0d 01 68 18 |* VOICE 2 **..h.| 00000450 dc 22 30 56 4e 56 4e 55 4e 55 56 4e 56 56 4e 55 |."0VNVNUNUVNVVNU| 00000460 4e 55 4e 22 0d 01 72 28 dc 22 31 47 43 47 4c 43 |NUN"..r(."1GCGLC| 00000470 47 4a 43 49 42 47 49 47 42 46 42 47 43 47 4e 43 |GJCIBGIGBFBGCGNC| 00000480 47 4c 43 49 40 47 49 47 40 45 40 22 0d 01 7c 28 |GLCI@GIG@E@"..|(| 00000490 dc 22 31 4e 4e 4a 45 45 42 45 4a 4e 4e 4f 4f 4e |."1NNJEEBEJNNOON| 000004a0 4c 4a 4a 4c 4c 49 45 45 40 45 49 4c 4c 4e 4e 4c |LJJLLIEE@EILLNNL| 000004b0 4a 49 49 22 0d 01 86 18 dc 22 31 47 43 47 4a 4f |JII"....."1GCGJO| 000004c0 4a 47 43 49 45 49 4c 4a 4a 49 49 22 0d 01 90 28 |JGCIEILJJII"...(| 000004d0 dc 22 31 4e 4e 4a 45 45 42 45 4a 4e 4e 4f 4f 4e |."1NNJEEBEJNNOON| 000004e0 4c 4a 4a 51 4c 49 45 45 40 45 49 4c 4c 4e 4e 4c |LJJQLIEE@EILLNNL| 000004f0 4a 49 49 22 0d 01 9a 18 dc 22 30 56 4e 56 4e 55 |JII"....."0VNVNU| 00000500 4e 55 56 4e 56 56 4e 55 4e 55 4e 22 0d 01 a4 18 |NUVNVVNUNUN"....| 00000510 dc 22 30 56 4e 56 4e 55 4e 55 56 4e 56 56 4e 55 |."0VNVNUNUVNVVNU| 00000520 4e 55 4e 22 0d 01 ae 18 dc 22 30 56 50 56 50 55 |NUN"....."0VPVPU| 00000530 50 55 56 50 56 56 50 55 50 55 50 22 0d 01 b8 18 |PUVPVVPUPUP"....| 00000540 dc 22 30 56 4f 56 4f 55 4f 55 56 4f 56 56 4f 55 |."0VOVOUOUVOVVOU| 00000550 4f 55 4f 22 0d 01 c2 18 dc 22 30 42 4e 53 55 5a |OUO"....."0BNSUZ| 00000560 55 53 4e 42 4e 52 55 5a 55 52 4e 22 0d 01 cc 18 |USNBNRUZURN"....| 00000570 dc 22 31 4a 45 4a 45 49 45 49 4a 45 4a 4a 45 49 |."1JEJEIEIJEJJEI| 00000580 45 49 45 22 0d 01 d6 18 dc 22 31 47 4a 4e 53 4e |EIE"....."1GJNSN| 00000590 4a 47 47 47 47 47 47 47 47 47 47 22 0d 01 e0 18 |JGGGGGGGGGG"....| 000005a0 dc 22 31 4e 4e 4a 45 45 42 45 4a 4e 4e 4a 4a 45 |."1NNJEEBEJNNJJE| 000005b0 45 42 42 22 0d 01 ea 18 dc 22 30 56 4e 56 4e 55 |EBB"....."0VNVNU| 000005c0 4e 55 56 4e 56 56 4e 55 4e 55 4e 22 0d 01 f4 1a |NUVNVVNUNUN"....| 000005d0 f4 20 20 20 20 20 20 20 20 2a 2a 20 56 4f 49 43 |. ** VOIC| 000005e0 45 20 33 20 2a 2a 0d 01 fe 18 dc 22 30 5a 4e 5a |E 3 **....."0ZNZ| 000005f0 4e 58 4e 58 5a 4e 5a 5a 4e 58 4e 58 4e 22 0d 02 |NXNXZNZZNXNXN"..| 00000600 08 28 dc 22 31 47 43 47 4c 43 47 4a 43 49 42 47 |.(."1GCGLCGJCIBG| 00000610 49 47 42 46 42 47 43 47 4e 43 47 4c 43 49 40 47 |IGBFBGCGNCGLCI@G| 00000620 49 47 40 45 40 22 0d 02 12 28 dc 22 31 4e 4e 4e |IG@E@"...(."1NNN| 00000630 4a 4a 45 42 45 4a 4a 4f 4f 4e 4c 4a 4a 4c 4c 4c |JJEBEJJOONLJJLLL| 00000640 49 49 45 40 45 4c 4c 4e 4e 4c 4a 49 49 22 0d 02 |IIE@ELLNNLJII"..| 00000650 1c 18 dc 22 31 47 47 43 47 4a 4f 4a 47 43 49 45 |..."1GGCGJOJGCIE| 00000660 49 4c 4c 4a 49 22 0d 02 26 28 dc 22 31 4e 4e 4e |ILLJI"..&(."1NNN| 00000670 4a 4a 45 42 45 4a 4a 4f 4f 4e 4c 4a 4a 51 51 4c |JJEBEJJOONLJJQQL| 00000680 49 49 45 40 45 4c 4c 4e 4e 4c 4a 49 49 22 0d 02 |IIE@ELLNNLJII"..| 00000690 30 18 dc 22 30 5a 4e 5a 4e 58 4e 58 5a 4e 5a 5a |0.."0ZNZNXNXZNZZ| 000006a0 4e 58 4e 58 4e 22 0d 02 3a 18 dc 22 30 5a 4e 5a |NXNXN"..:.."0ZNZ| 000006b0 4e 58 4e 58 5a 4e 5a 5a 4e 58 4e 58 4e 22 0d 02 |NXNXZNZZNXNXN"..| 000006c0 44 18 dc 22 30 5a 50 5a 50 58 50 58 5a 50 5a 5a |D.."0ZPZPXPXZPZZ| 000006d0 50 58 50 58 50 22 0d 02 4e 18 dc 22 30 5a 4f 5a |PXPXP"..N.."0ZOZ| 000006e0 4f 58 4f 58 5a 4f 5a 5a 4f 58 4f 58 4f 22 0d 02 |OXOXZOZZOXOXO"..| 000006f0 58 18 dc 22 30 42 42 42 47 49 4e 49 47 42 42 42 |X.."0BBBGINIGBBB| 00000700 46 49 4e 49 46 22 0d 02 62 18 dc 22 31 4c 45 4c |FINIF"..b.."1LEL| 00000710 45 4c 45 4c 4c 45 4c 4c 45 4c 45 4c 45 22 0d 02 |ELELLELLELELE"..| 00000720 6c 18 dc 22 31 4a 4e 53 56 53 4e 4a 4a 4a 4a 4a |l.."1JNSVSNJJJJJ| 00000730 4a 4a 4a 4a 4a 22 0d 02 76 18 dc 22 31 4e 4e 4e |JJJJJ"..v.."1NNN| 00000740 4a 4a 45 42 45 4a 4a 4e 4e 45 45 42 42 22 0d 02 |JJEBEJJNNEEBB"..| 00000750 80 18 dc 22 30 5a 4e 5a 4e 58 4e 58 5a 4e 5a 5a |..."0ZNZNXNXZNZZ| 00000760 4e 58 4e 58 4e 22 0d 02 8a 1b de 41 24 28 51 25 |NXNXN".....A$(Q%| 00000770 2c 32 29 2c 4f 43 54 25 28 32 29 2c 59 25 28 32 |,2),OCT%(2),Y%(2| 00000780 29 0d 02 94 18 e3 49 3d 30 b8 32 3a 59 25 28 49 |).....I=0.2:Y%(I| 00000790 29 3d 26 37 46 46 46 3a ed 0d 02 9e 14 e3 49 25 |)=&7FFF:......I%| 000007a0 3d 30 b8 32 3a e3 4a 25 3d 30 b8 51 25 0d 02 a8 |=0.2:.J%=0.Q%...| 000007b0 12 f3 41 24 28 4a 25 2c 49 25 29 3a ed 3a ed 0d |..A$(J%,I%):.:..| 000007c0 02 b2 0b 54 51 3d 91 2b 44 4c 0d 02 b7 16 ee 85 |...TQ=.+DL......| 000007d0 f1 8a 30 2c 32 32 29 3b 3a f6 3a e5 8d 74 44 43 |..0,22);:.:..tDC| 000007e0 0d 02 b8 11 d4 20 26 46 30 43 30 2c 30 2c 33 2c |..... &F0C0,0,3,| 000007f0 30 0d 02 bc 0f e3 42 25 3d 31 b8 a9 28 52 24 29 |0.....B%=1..(R$)| 00000800 0d 02 c6 19 56 25 3d 31 2d 28 c1 52 54 24 2c 42 |....V%=1-(.RT$,B| 00000810 25 2c 31 29 3d 22 31 22 29 0d 02 d0 12 52 25 3d |%,1)="1")....R%=| 00000820 97 c1 52 24 2c 42 25 29 2d 34 39 0d 02 da 0b e3 |..R$,B%)-49.....| 00000830 49 25 3d 30 b8 32 0d 02 e4 1c 4f 43 54 25 28 49 |I%=0.2....OCT%(I| 00000840 25 29 3d 34 38 2a 97 41 24 28 52 25 2c 49 25 29 |%)=48*.A$(R%,I%)| 00000850 3a ed 0d 02 ee 12 e3 49 3d 32 b8 a9 41 24 28 52 |:......I=2..A$(R| 00000860 25 2c 30 29 0d 02 f8 13 f5 fd 91 3e 3d 54 51 3a |%,0).......>=TQ:| 00000870 54 51 3d 91 2b 44 4c 0d 03 02 20 e3 4a 3d 30 b8 |TQ=.+DL... .J=0.| 00000880 32 3a f1 8a 59 25 28 4a 29 2c 31 36 2d 4a 2a 32 |2:..Y%(J),16-J*2| 00000890 29 3b bd 31 35 36 3b 0d 03 0c 15 57 24 3d c1 41 |);.156;....W$=.A| 000008a0 24 28 52 25 2c 4a 29 2c 49 2c 31 29 0d 03 16 2b |$(R%,J),I,1)...+| 000008b0 59 25 28 4a 29 3d 97 57 24 2d 36 30 3a f1 8a 59 |Y%(J)=.W$-60:..Y| 000008c0 25 28 4a 29 2c 31 36 2d 4a 2a 32 29 3b bd 31 35 |%(J),16-J*2);.15| 000008d0 37 3b bd 31 35 36 3b 0d 03 2a 1b d4 4a 2b 31 2c |7;.156;..*..J+1,| 000008e0 56 25 2c 4f 43 54 25 28 4a 29 2b 34 2a 97 57 24 |V%,OCT%(J)+4*.W$| 000008f0 2c 31 0d 03 34 09 ed 3a ed 3a ed 0d 03 3e 0e e3 |,1..4..:.:...>..| 00000900 52 3d 31 b8 35 30 30 3a ed 0d 03 84 0c d7 22 48 |R=1.500:......"H| 00000910 45 4c 4c 4f 22 0d ff |ELLO"..| 00000917