Arnor BCPL (UK) (Face B) (1986) (Version AMSDOS) [Original] [UTILITAIRE].dsk
HexaDumpAscii only
000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 48 78 43 46 6C 6F 70 70 79 45 6D 75 0D 0A ..HxCFloppyEmu..
000030: 28 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 (...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 00 02 02 09 4E E5 00 00 C1 02 00 00 00 02 ......N.........
000120: 00 00 C6 02 00 00 00 02 00 00 C2 02 00 00 00 02 ................
000130: 00 00 C7 02 00 00 00 02 00 00 C3 02 00 00 00 02 ................
000140: 00 00 C8 02 00 00 00 02 00 00 C4 02 00 00 00 02 ................
000150: 00 00 C9 02 00 00 00 02 00 00 C5 02 00 00 00 02 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 00 41 4C 49 42 48 44 52 31 20 20 20 00 00 00 30 .ALIBHDR1 ...0
000210: 02 03 04 05 06 07 00 00 00 00 00 00 00 00 00 00 ................
000220: 00 42 45 44 20 20 20 20 20 42 49 4E 00 00 00 5E .BED BIN...^
000230: 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 00 00 00 00 ................
000240: 00 42 45 44 31 20 20 20 20 42 20 20 00 00 00 02 .BED1 B ....
000250: 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000260: 00 42 43 50 4C 20 20 20 20 42 41 53 00 00 00 0A .BCPL BAS....
000270: 15 16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000280: 00 41 4D 53 44 4F 53 20 20 20 20 20 00 00 00 72 .AMSDOS ...r
000290: 17 18 19 1A 1B 1C 1D 1E 1F 20 21 22 23 24 25 00 ......... !"#$%.
0002A0: 00 44 49 53 20 20 20 20 20 42 20 20 00 00 00 58 .DIS B ...X
0002B0: 26 27 28 29 2A 2B 2C 2D 2E 2F 30 00 00 00 00 00 &'()*+,-./0.....
0002C0: 00 42 45 44 20 20 20 20 20 42 20 20 00 00 00 80 .BED B ....
0002D0: 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 40 123456789:;<=>?@
0002E0: 00 42 45 44 20 20 20 20 20 42 20 20 01 00 00 05 .BED B ....
0002F0: 41 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 A...............
000300: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 02 .DISC BAS....
000310: 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 B...............
000320: 00 44 45 42 55 47 20 20 20 20 20 20 00 00 00 28 .DEBUG ...(
000330: 43 44 45 46 47 00 00 00 00 00 00 00 00 00 00 00 CDEFG...........
000340: 00 49 4E 56 41 44 45 20 20 42 20 20 00 00 00 6F .INVADE B ...o
000350: 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 00 00 HIJKLMNOPQRSTU..
000360: 00 42 43 50 4C 20 20 20 20 42 49 4E 00 00 00 80 .BCPL BIN....
000370: 56 57 58 59 5A 5B 5C 5D 5E 5F 60 61 62 63 64 65 VWXYZ[\]^_`abcde
000380: 00 42 43 50 4C 20 20 20 20 42 49 4E 01 00 00 1E .BCPL BIN....
000390: 66 67 68 69 00 00 00 00 00 00 00 00 00 00 00 00 fghi............
0003A0: 00 42 45 44 20 20 20 20 20 42 41 53 00 80 00 01 .BED BAS....
0003B0: 6A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 j...............
0003C0: 00 41 4C 49 42 48 44 52 20 20 20 20 00 00 00 3A .ALIBHDR ...:
0003D0: 6B 6C 6D 6E 6F 70 71 72 00 00 00 00 00 00 00 00 klmnopqr........
0003E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0003F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000400: 6D 61 6E 64 20 3D 20 56 45 43 20 32 0D 0A 20 20 mand = VEC 2..
000410: 70 61 72 6D 62 6C 6F 63 6B 21 30 20 3A 3D 20 70 parmblock!0 := p
000420: 61 72 6D 62 6C 6F 63 6B 2A 32 2B 33 0D 0A 20 20 armblock*2+3..
000430: 70 61 72 6D 62 6C 6F 63 6B 25 33 20 3A 3D 20 6E parmblock%3 := n
000440: 61 6D 65 25 30 0D 0A 20 20 70 61 72 6D 62 6C 6F ame%0.. parmblo
000450: 63 6B 21 32 20 3A 3D 20 6E 61 6D 65 2A 32 2B 31 ck!2 := name*2+1
000460: 0D 0A 20 20 63 6F 6D 6D 61 6E 64 20 3A 3D 20 22 .. command := "
000470: 45 52 41 22 0D 0A 20 20 63 6F 6D 6D 61 6E 64 25 ERA".. command%
000480: 33 20 3A 3D 20 63 6F 6D 6D 61 6E 64 25 33 20 7C 3 := command%3 |
000490: 20 23 78 38 30 0D 0A 20 20 52 45 53 55 4C 54 49 #x80.. RESULTI
0004A0: 53 20 65 78 74 65 72 6E 61 6C 28 63 6F 6D 6D 61 S external(comma
0004B0: 6E 64 2C 31 2C 70 61 72 6D 62 6C 6F 63 6B 29 0D nd,1,parmblock).
0004C0: 0A 24 29 0D 0A 0D 0A 41 4E 44 20 72 65 6E 61 6D .$)....AND renam
0004D0: 65 28 6E 61 6D 65 31 2C 6E 61 6D 65 32 29 20 3D e(name1,name2) =
0004E0: 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4C 45 VALOF..$(.. LE
0004F0: 54 20 70 61 72 6D 62 6C 6F 63 6B 20 3D 20 56 45 T parmblock = VE
000500: 43 20 35 0D 0A 20 20 4C 45 54 20 63 6F 6D 6D 61 C 5.. LET comma
000510: 6E 64 20 3D 20 56 45 43 20 32 0D 0A 20 20 70 61 nd = VEC 2.. pa
000520: 72 6D 62 6C 6F 63 6B 21 30 20 3A 3D 20 70 61 72 rmblock!0 := par
000530: 6D 62 6C 6F 63 6B 2A 32 2B 35 0D 0A 20 20 70 61 mblock*2+5.. pa
000540: 72 6D 62 6C 6F 63 6B 21 31 20 3A 3D 20 70 61 72 rmblock!1 := par
000550: 6D 62 6C 6F 63 6B 2A 32 2B 39 0D 0A 20 20 70 61 mblock*2+9.. pa
000560: 72 6D 62 6C 6F 63 6B 25 35 20 3A 3D 20 6E 61 6D rmblock%5 := nam
000570: 65 31 25 30 0D 0A 20 20 70 61 72 6D 62 6C 6F 63 e1%0.. parmbloc
000580: 6B 21 33 20 3A 3D 20 6E 61 6D 65 31 2A 32 2B 31 k!3 := name1*2+1
000590: 0D 0A 20 20 70 61 72 6D 62 6C 6F 63 6B 25 39 20 .. parmblock%9
0005A0: 3A 3D 20 6E 61 6D 65 32 25 30 0D 0A 20 20 70 61 := name2%0.. pa
0005B0: 72 6D 62 6C 6F 63 6B 21 35 20 3A 3D 20 6E 61 6D rmblock!5 := nam
0005C0: 65 32 2A 32 2B 31 0D 0A 20 20 63 6F 6D 6D 61 6E e2*2+1.. comman
0005D0: 64 20 3A 3D 20 22 52 45 4E 22 0D 0A 20 20 63 6F d := "REN".. co
0005E0: 6D 6D 61 6E 64 25 33 20 3A 3D 20 63 6F 6D 6D 61 mmand%3 := comma
0005F0: 6E 64 25 33 20 7C 20 23 78 38 30 0D 0A 20 20 52 nd%3 | #x80.. R
000600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000800: 45 53 55 4C 54 49 53 20 65 78 74 65 72 6E 61 6C ESULTIS external
000810: 28 63 6F 6D 6D 61 6E 64 2C 32 2C 70 61 72 6D 62 (command,2,parmb
000820: 6C 6F 63 6B 29 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 lock)..$)....AND
000830: 20 77 72 69 74 65 74 28 73 2C 6E 29 20 42 45 0D writet(s,n) BE.
000840: 0A 24 28 20 20 0D 0A 20 20 77 72 69 74 65 73 28 .$( .. writes(
000850: 73 29 0D 0A 20 20 46 4F 52 20 69 20 3D 20 31 20 s).. FOR i = 1
000860: 74 6F 20 6E 2D 73 25 30 20 44 4F 20 77 72 63 68 to n-s%0 DO wrch
000870: 28 27 20 27 29 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 (' ')..$)....AND
000880: 20 77 72 69 74 65 75 28 6E 2C 64 29 20 42 45 0D writeu(n,d) BE.
000890: 0A 24 28 0D 0A 20 20 4C 45 54 20 6D 20 3D 20 28 .$(.. LET m = (
0008A0: 6E 3E 3E 31 29 2F 35 0D 0A 20 20 55 4E 4C 45 53 n>>1)/5.. UNLES
0008B0: 53 20 6D 3D 30 20 44 4F 0D 0A 20 20 24 28 0D 0A S m=0 DO.. $(..
0008C0: 20 20 20 20 77 72 69 74 65 64 28 6D 2C 64 2D 31 writed(m,d-1
0008D0: 29 0D 0A 20 20 20 20 64 20 3A 3D 20 31 0D 0A 20 ).. d := 1..
0008E0: 20 24 29 0D 0A 20 20 77 72 69 74 65 64 28 6E 2D $).. writed(n-
0008F0: 6D 2A 31 30 2C 64 29 0D 0A 24 29 0D 0A 0D 0A 41 m*10,d)..$)....A
000900: 4E 44 20 6E 65 77 70 61 67 65 28 29 20 42 45 20 ND newpage() BE
000910: 20 77 72 63 68 28 31 32 29 0D 0A 0D 0A 41 4E 44 wrch(12)....AND
000920: 20 63 6F 6D 70 63 68 28 63 68 31 2C 63 68 32 29 compch(ch1,ch2)
000930: 20 3D 20 63 61 70 69 74 61 6C 63 68 28 63 68 31 = capitalch(ch1
000940: 29 20 2D 20 63 61 70 69 74 61 6C 63 68 28 63 68 ) - capitalch(ch
000950: 32 29 0D 0A 0D 0A 41 4E 44 20 63 6F 6D 70 73 74 2)....AND compst
000960: 72 69 6E 67 28 73 31 2C 73 32 29 20 3D 20 56 41 ring(s1,s2) = VA
000970: 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 6C LOF..$(.. LET l
000980: 65 6E 31 2C 6C 65 6E 32 20 3D 20 73 31 25 30 2C en1,len2 = s1%0,
000990: 20 73 32 25 30 0D 0A 20 20 4C 45 54 20 73 68 6F s2%0.. LET sho
0009A0: 72 74 65 72 20 3D 20 6C 65 6E 31 3C 6C 65 6E 32 rter = len1<len2
0009B0: 20 2D 3E 20 73 31 2C 20 73 32 0D 0A 20 20 46 4F -> s1, s2.. FO
0009C0: 52 20 69 20 3D 20 31 20 74 6F 20 73 68 6F 72 74 R i = 1 to short
0009D0: 65 72 25 30 20 44 4F 0D 0A 20 20 24 28 0D 0A 20 er%0 DO.. $(..
0009E0: 20 20 20 4C 45 54 20 72 65 73 20 3D 20 63 6F 6D LET res = com
0009F0: 70 63 68 28 73 31 25 69 2C 20 73 32 25 69 29 0D pch(s1%i, s2%i).
000A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C00: 0A 20 20 20 20 55 4E 4C 45 53 53 20 72 65 73 3D . UNLESS res=
000C10: 30 20 52 45 53 55 4C 54 49 53 20 72 65 73 0D 0A 0 RESULTIS res..
000C20: 20 20 24 29 0D 0A 20 20 52 45 53 55 4C 54 49 53 $).. RESULTIS
000C30: 20 6C 65 6E 31 3D 6C 65 6E 32 20 2D 3E 20 30 2C len1=len2 -> 0,
000C40: 20 73 68 6F 72 74 65 72 3D 73 31 20 2D 3E 20 2D shorter=s1 -> -
000C50: 31 2C 31 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 62 1,1..$)....AND b
000C60: 79 74 65 6D 6F 76 65 28 73 6F 75 72 63 65 2C 64 ytemove(source,d
000C70: 65 73 74 2C 6E 75 6D 62 65 72 29 20 42 45 0D 0A est,number) BE..
000C80: 24 28 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 32 31 $(.. inline 221
000C90: 2C 31 30 32 2C 31 32 33 20 20 20 20 20 20 2F 2F ,102,123 //
000CA0: 20 6C 64 20 68 2C 28 69 78 2B 31 32 33 29 0D 0A ld h,(ix+123)..
000CB0: 20 20 69 6E 6C 69 6E 65 20 32 32 31 2C 31 31 30 inline 221,110
000CC0: 2C 31 32 32 20 20 20 20 20 20 2F 2F 20 6C 64 20 ,122 // ld
000CD0: 6C 2C 28 69 78 2B 31 32 32 29 0D 0A 20 20 69 6E l,(ix+122).. in
000CE0: 6C 69 6E 65 20 32 32 31 2C 38 36 2C 31 32 35 20 line 221,86,125
000CF0: 20 20 20 20 20 20 2F 2F 20 6C 64 20 64 2C 28 69 // ld d,(i
000D00: 78 2B 31 32 35 29 0D 0A 20 20 69 6E 6C 69 6E 65 x+125).. inline
000D10: 20 32 32 31 2C 39 34 2C 31 32 34 20 20 20 20 20 221,94,124
000D20: 20 20 2F 2F 20 6C 64 20 65 2C 28 69 78 2B 31 32 // ld e,(ix+12
000D30: 34 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 32 31 4).. inline 221
000D40: 2C 37 30 2C 31 32 37 20 20 20 20 20 20 20 2F 2F ,70,127 //
000D50: 20 6C 64 20 62 2C 28 69 78 2B 31 32 37 29 0D 0A ld b,(ix+127)..
000D60: 20 20 69 6E 6C 69 6E 65 20 32 32 31 2C 37 38 2C inline 221,78,
000D70: 31 32 36 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 126 // ld
000D80: 63 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 69 6E c,(ix+126).. in
000D90: 6C 69 6E 65 20 31 36 37 20 20 20 20 20 20 20 20 line 167
000DA0: 20 20 20 20 20 20 2F 2F 20 61 6E 64 20 61 0D 0A // and a..
000DB0: 20 20 69 6E 6C 69 6E 65 20 32 33 37 2C 38 32 20 inline 237,82
000DC0: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 73 62 63 // sbc
000DD0: 20 68 6C 2C 64 65 0D 0A 20 20 69 6E 6C 69 6E 65 hl,de.. inline
000DE0: 20 32 35 20 20 20 20 20 20 20 20 20 20 20 20 20 25
000DF0: 20 20 2F 2F 20 61 64 64 20 68 6C 2C 64 65 0D 0A // add hl,de..
000E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: 20 20 69 6E 6C 69 6E 65 20 35 36 2C 34 20 20 20 inline 56,4
001010: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 // jr
001020: 63 2C 2B 34 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 c,+4.. inline 2
001030: 33 37 2C 31 37 36 20 20 20 20 20 20 20 20 20 20 37,176
001040: 2F 2F 20 6C 64 69 72 0D 0A 20 20 69 6E 6C 69 6E // ldir.. inlin
001050: 65 20 32 34 2C 38 20 20 20 20 20 20 20 20 20 20 e 24,8
001060: 20 20 20 2F 2F 20 6A 72 20 2B 38 0D 0A 20 20 69 // jr +8.. i
001070: 6E 6C 69 6E 65 20 31 31 20 20 20 20 20 20 20 20 nline 11
001080: 20 20 20 20 20 20 20 2F 2F 20 64 65 63 20 62 63 // dec bc
001090: 0D 0A 20 20 69 6E 6C 69 6E 65 20 39 20 20 20 20 .. inline 9
0010A0: 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 61 // a
0010B0: 64 64 20 68 6C 2C 62 63 0D 0A 20 20 69 6E 6C 69 dd hl,bc.. inli
0010C0: 6E 65 20 32 33 35 20 20 20 20 20 20 20 20 20 20 ne 235
0010D0: 20 20 20 20 2F 2F 20 65 78 20 64 65 2C 68 6C 0D // ex de,hl.
0010E0: 0A 20 20 69 6E 6C 69 6E 65 20 39 20 20 20 20 20 . inline 9
0010F0: 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 61 64 // ad
001100: 64 20 68 6C 2C 62 63 0D 0A 20 20 69 6E 6C 69 6E d hl,bc.. inlin
001110: 65 20 32 33 35 20 20 20 20 20 20 20 20 20 20 20 e 235
001120: 20 20 20 2F 2F 20 65 78 20 64 65 2C 68 6C 0D 0A // ex de,hl..
001130: 20 20 69 6E 6C 69 6E 65 20 33 20 20 20 20 20 20 inline 3
001140: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 69 6E 63 // inc
001150: 20 62 63 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 33 bc.. inline 23
001160: 37 2C 31 38 34 20 20 20 20 20 20 20 20 20 20 2F 7,184 /
001170: 2F 20 6C 64 64 72 0D 0A 24 29 0D 0A 0D 0A 41 4E / lddr..$)....AN
001180: 44 20 63 61 6C 6C 28 61 64 64 72 2C 61 66 2C 62 D call(addr,af,b
001190: 63 2C 64 65 2C 68 6C 2C 69 78 29 20 42 45 0D 0A c,de,hl,ix) BE..
0011A0: 24 28 0D 0A 20 20 4C 45 54 20 73 61 76 65 33 20 $(.. LET save3
0011B0: 3D 20 56 45 43 20 31 0D 0A 20 20 62 79 74 65 6D = VEC 1.. bytem
0011C0: 6F 76 65 28 23 78 39 30 2C 20 73 61 76 65 33 2A ove(#x90, save3*
0011D0: 32 2C 20 33 29 0D 0A 20 20 30 25 23 78 39 30 20 2, 3).. 0%#x90
0011E0: 3A 3D 20 23 78 43 33 0D 0A 20 20 30 25 23 78 39 := #xC3.. 0%#x9
0011F0: 31 20 3A 3D 20 61 64 64 72 20 26 20 23 78 46 46 1 := addr & #xFF
001200: 2F 2F 20 41 4C 49 42 48 44 52 31 20 20 20 61 64 // ALIBHDR1 ad
001210: 64 69 74 69 6F 6E 61 6C 20 41 4D 53 44 4F 53 20 ditional AMSDOS
001220: 6C 69 62 72 61 72 79 20 68 65 61 64 65 72 2C 20 library header,
001230: 6C 61 73 74 20 6D 6F 64 69 66 69 65 64 20 30 32 last modified 02
001240: 2F 31 31 2F 31 39 38 36 0D 0A 0D 0A 0D 0A 53 54 /11/1986......ST
001250: 41 54 49 43 20 24 28 20 72 61 6E 64 6F 6D 73 65 ATIC $( randomse
001260: 65 64 20 3D 20 30 20 24 29 0D 0A 0D 0A 4C 45 54 ed = 0 $)....LET
001270: 20 72 61 6E 64 6F 6D 28 29 20 3D 20 56 41 4C 4F random() = VALO
001280: 46 0D 0A 24 28 0D 0A 20 20 72 61 6E 64 6F 6D 73 F..$(.. randoms
001290: 65 65 64 20 3A 3D 20 72 61 6E 64 6F 6D 73 65 65 eed := randomsee
0012A0: 64 20 2A 20 23 78 41 33 45 44 20 2B 20 23 78 31 d * #xA3ED + #x1
0012B0: 44 33 31 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 D31.. RESULTIS
0012C0: 72 61 6E 64 6F 6D 73 65 65 64 0D 0A 24 29 0D 0A randomseed..$)..
0012D0: 0D 0A 41 4E 44 20 73 74 6F 70 28 63 6F 64 65 29 ..AND stop(code)
0012E0: 20 42 45 20 46 49 4E 49 53 48 0D 0A 0D 0A 41 4E BE FINISH....AN
0012F0: 44 20 74 69 6D 65 28 29 20 3D 20 56 41 4C 4F 46 D time() = VALOF
001300: 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 74 20 3D 20 ..$(.. LET t =
001310: 30 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 30 35 2C 0.. inline 205,
001320: 23 78 30 44 2C 23 78 42 44 20 20 20 20 2F 2F 20 #x0D,#xBD //
001330: 67 65 74 20 74 68 65 20 74 69 6D 65 0D 0A 20 20 get the time..
001340: 69 6E 6C 69 6E 65 20 32 32 31 2C 31 31 37 2C 31 inline 221,117,1
001350: 32 30 20 20 20 20 20 20 2F 2F 20 73 74 6F 72 65 20 // store
001360: 20 6C 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 32 31 l.. inline 221
001370: 2C 31 31 36 2C 31 32 31 20 20 20 20 20 20 2F 2F ,116,121 //
001380: 20 73 74 6F 72 65 20 68 0D 0A 20 20 52 45 53 55 store h.. RESU
001390: 4C 54 49 53 20 74 20 20 20 20 20 20 20 20 20 20 LTIS t
0013A0: 20 20 20 20 2F 2F 20 72 65 74 75 72 6E 20 74 68 // return th
0013B0: 65 20 72 65 73 75 6C 74 0D 0A 24 29 0D 0A 0D 0A e result..$)....
0013C0: 41 4E 44 20 64 65 6C 65 74 65 28 6E 61 6D 65 29 AND delete(name)
0013D0: 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 = VALOF..$(..
0013E0: 4C 45 54 20 70 61 72 6D 62 6C 6F 63 6B 20 3D 20 LET parmblock =
0013F0: 56 45 43 20 32 0D 0A 20 20 4C 45 54 20 63 6F 6D VEC 2.. LET com
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 00 02 02 09 4E E5 01 00 C1 02 00 00 00 02 ......N.........
001420: 01 00 C6 02 00 00 00 02 01 00 C2 02 00 00 00 02 ................
001430: 01 00 C7 02 00 00 00 02 01 00 C3 02 00 00 00 02 ................
001440: 01 00 C8 02 00 00 00 02 01 00 C4 02 00 00 00 02 ................
001450: 01 00 C9 02 00 00 00 02 01 00 C5 02 00 00 00 02 ................
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 0D 0A 20 20 30 25 23 78 39 32 20 3A 3D 20 28 20 .. 0%#x92 := (
001510: 61 64 64 72 20 26 20 23 78 46 46 30 30 20 29 20 addr & #xFF00 )
001520: 3E 3E 20 38 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 >> 8.. inline #
001530: 78 44 44 2C 23 78 45 35 20 20 20 20 20 20 20 20 xDD,#xE5
001540: 20 20 20 20 2F 2F 20 70 75 73 68 20 69 78 0D 0A // push ix..
001550: 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 78 inline #xDD,#x
001560: 36 36 2C 23 78 37 37 20 20 20 20 20 20 20 2F 2F 66,#x77 //
001570: 20 6C 64 20 68 2C 28 69 78 2B 31 31 39 29 0D 0A ld h,(ix+119)..
001580: 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 78 inline #xDD,#x
001590: 36 45 2C 23 78 37 36 20 20 20 20 20 20 20 2F 2F 6E,#x76 //
0015A0: 20 6C 64 20 6C 2C 28 69 78 2B 31 31 38 29 0D 0A ld l,(ix+118)..
0015B0: 20 20 69 6E 6C 69 6E 65 20 23 78 32 39 2C 23 78 inline #x29,#x
0015C0: 35 45 2C 23 78 35 36 2C 23 78 32 33 20 20 2F 2F 5E,#x56,#x23 //
0015D0: 20 61 64 64 20 68 6C 2C 68 6C 3A 6C 64 20 65 2C add hl,hl:ld e,
0015E0: 28 68 6C 29 3A 69 6E 63 20 68 6C 3A 6C 64 20 64 (hl):inc hl:ld d
0015F0: 2C 28 68 6C 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 ,(hl).. inline
001600: 23 78 44 35 20 20 20 20 20 20 20 20 20 20 20 20 #xD5
001610: 20 20 20 20 20 2F 2F 20 70 75 73 68 20 64 65 0D // push de.
001620: 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 . inline #xDD,#
001630: 78 36 36 2C 23 78 37 39 20 20 20 20 20 20 20 2F x66,#x79 /
001640: 2F 20 6C 64 20 68 2C 28 69 78 2B 31 32 31 29 0D / ld h,(ix+121).
001650: 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 . inline #xDD,#
001660: 78 36 45 2C 23 78 37 38 20 20 20 20 20 20 20 2F x6E,#x78 /
001670: 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 30 29 0D / ld l,(ix+120).
001680: 0A 20 20 69 6E 6C 69 6E 65 20 23 78 32 39 2C 23 . inline #x29,#
001690: 78 34 45 2C 23 78 32 33 2C 23 78 34 36 20 20 2F x4E,#x23,#x46 /
0016A0: 2F 20 61 64 64 20 68 6C 2C 68 6C 3A 6C 64 20 63 / add hl,hl:ld c
0016B0: 2C 28 68 6C 29 3A 69 6E 63 20 68 6C 3A 6C 64 20 ,(hl):inc hl:ld
0016C0: 62 2C 28 68 6C 29 0D 0A 20 20 69 6E 6C 69 6E 65 b,(hl).. inline
0016D0: 20 23 78 44 44 2C 23 78 36 36 2C 23 78 37 46 20 #xDD,#x66,#x7F
0016E0: 20 20 20 20 20 20 2F 2F 20 6C 64 20 68 2C 28 69 // ld h,(i
0016F0: 78 2B 31 32 37 29 0D 0A 20 20 69 6E 6C 69 6E 65 x+127).. inline
001700: 20 69 6E 6C 69 6E 65 20 23 78 43 44 2C 23 78 44 inline #xCD,#xD
001710: 34 2C 23 78 42 43 20 20 2F 2F 20 63 61 6C 6C 20 4,#xBC // call
001720: 6B 6C 66 69 6E 64 63 6F 6D 6D 61 6E 64 0D 0A 20 klfindcommand..
001730: 20 69 6E 6C 69 6E 65 20 23 78 46 35 20 20 20 20 inline #xF5
001740: 20 20 20 20 20 20 20 20 2F 2F 20 70 75 73 68 20 // push
001750: 61 66 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 45 af.. inline #xE
001760: 42 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 B //
001770: 65 78 20 64 65 2C 68 6C 0D 0A 20 20 69 6E 6C 69 ex de,hl.. inli
001780: 6E 65 20 23 78 44 44 2C 23 78 34 36 2C 23 78 37 ne #xDD,#x46,#x7
001790: 43 20 20 2F 2F 20 6C 64 20 62 2C 28 69 78 2B 31 C // ld b,(ix+1
0017A0: 32 34 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 24).. inline #x
0017B0: 44 44 2C 23 78 36 36 2C 23 78 37 46 20 20 2F 2F DD,#x66,#x7F //
0017C0: 20 6C 64 20 68 2C 28 69 78 2B 31 32 37 29 0D 0A ld h,(ix+127)..
0017D0: 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 78 inline #xDD,#x
0017E0: 36 45 2C 23 78 37 45 20 20 2F 2F 20 6C 64 20 6C 6E,#x7E // ld l
0017F0: 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 69 6E 6C ,(ix+126).. inl
001800: 69 6E 65 20 23 78 32 39 20 20 20 20 20 20 20 20 ine #x29
001810: 20 20 20 20 2F 2F 20 61 64 64 20 68 6C 2C 68 6C // add hl,hl
001820: 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 45 35 20 .. inline #xE5
001830: 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 70 75 // pu
001840: 73 68 20 68 6C 0D 0A 20 20 69 6E 6C 69 6E 65 20 sh hl.. inline
001850: 23 78 44 44 2C 23 78 45 31 20 20 20 20 20 20 20 #xDD,#xE1
001860: 2F 2F 20 70 6F 70 20 69 78 0D 0A 20 20 69 6E 6C // pop ix.. inl
001870: 69 6E 65 20 23 78 46 31 20 20 20 20 20 20 20 20 ine #xF1
001880: 20 20 20 20 2F 2F 20 70 6F 70 20 61 66 0D 0A 20 // pop af..
001890: 20 69 6E 6C 69 6E 65 20 23 78 46 35 20 20 20 20 inline #xF5
0018A0: 20 20 20 20 20 20 20 20 2F 2F 20 70 75 73 68 20 // push
0018B0: 61 66 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 37 af.. inline #x7
0018C0: 38 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 8 //
0018D0: 6C 64 20 61 2C 62 0D 0A 20 20 69 6E 6C 69 6E 65 ld a,b.. inline
0018E0: 20 23 78 45 42 20 20 20 20 20 20 20 20 20 20 20 #xEB
0018F0: 20 2F 2F 20 65 78 20 64 65 2C 68 6C 0D 0A 20 20 // ex de,hl..
001900: 20 23 78 44 44 2C 23 78 36 45 2C 23 78 37 45 20 #xDD,#x6E,#x7E
001910: 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 28 69 // ld l,(i
001920: 78 2B 31 32 36 29 0D 0A 20 20 69 6E 6C 69 6E 65 x+126).. inline
001930: 20 23 78 32 39 2C 23 78 35 45 2C 23 78 32 33 2C #x29,#x5E,#x23,
001940: 23 78 35 36 20 20 2F 2F 20 61 64 64 20 68 6C 2C #x56 // add hl,
001950: 68 6C 3A 6C 64 20 65 2C 28 68 6C 29 3A 69 6E 63 hl:ld e,(hl):inc
001960: 20 68 6C 3A 6C 64 20 64 2C 28 68 6C 29 0D 0A 20 hl:ld d,(hl)..
001970: 20 69 6E 6C 69 6E 65 20 23 78 44 35 20 20 20 20 inline #xD5
001980: 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 //
001990: 70 75 73 68 20 64 65 0D 0A 20 20 69 6E 6C 69 6E push de.. inlin
0019A0: 65 20 23 78 44 44 2C 23 78 36 36 2C 23 78 37 44 e #xDD,#x66,#x7D
0019B0: 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 68 2C 28 // ld h,(
0019C0: 69 78 2B 31 32 35 29 0D 0A 20 20 69 6E 6C 69 6E ix+125).. inlin
0019D0: 65 20 23 78 44 44 2C 23 78 36 45 2C 23 78 37 43 e #xDD,#x6E,#x7C
0019E0: 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 28 // ld l,(
0019F0: 69 78 2B 31 32 34 29 0D 0A 20 20 69 6E 6C 69 6E ix+124).. inlin
001A00: 65 20 23 78 32 39 2C 23 78 35 45 2C 23 78 32 33 e #x29,#x5E,#x23
001A10: 2C 23 78 35 36 20 20 2F 2F 20 61 64 64 20 68 6C ,#x56 // add hl
001A20: 2C 68 6C 3A 6C 64 20 65 2C 28 68 6C 29 3A 69 6E ,hl:ld e,(hl):in
001A30: 63 20 68 6C 3A 6C 64 20 64 2C 28 68 6C 29 0D 0A c hl:ld d,(hl)..
001A40: 20 20 69 6E 6C 69 6E 65 20 23 78 44 35 20 20 20 inline #xD5
001A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F //
001A60: 20 70 75 73 68 20 64 65 0D 0A 20 20 69 6E 6C 69 push de.. inli
001A70: 6E 65 20 23 78 44 44 2C 23 78 36 36 2C 23 78 37 ne #xDD,#x66,#x7
001A80: 42 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 68 2C B // ld h,
001A90: 28 69 78 2B 31 32 33 29 0D 0A 20 20 69 6E 6C 69 (ix+123).. inli
001AA0: 6E 65 20 23 78 44 44 2C 23 78 36 45 2C 23 78 37 ne #xDD,#x6E,#x7
001AB0: 41 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C A // ld l,
001AC0: 28 69 78 2B 31 32 32 29 0D 0A 20 20 69 6E 6C 69 (ix+122).. inli
001AD0: 6E 65 20 23 78 32 39 2C 23 78 35 45 2C 23 78 32 ne #x29,#x5E,#x2
001AE0: 33 2C 23 78 35 36 20 20 2F 2F 20 61 64 64 20 68 3,#x56 // add h
001AF0: 6C 2C 68 6C 3A 6C 64 20 65 2C 28 68 6C 29 3A 69 l,hl:ld e,(hl):i
001B00: 69 6E 6C 69 6E 65 20 23 78 44 43 2C 23 78 31 42 inline #xDC,#x1B
001B10: 2C 23 78 30 30 20 20 2F 2F 20 63 61 6C 6C 20 63 ,#x00 // call c
001B20: 2C 6B 6C 66 61 72 70 63 68 6C 0D 0A 20 20 69 6E ,klfarpchl.. in
001B30: 6C 69 6E 65 20 23 78 46 31 20 20 20 20 20 20 20 line #xF1
001B40: 20 20 20 20 20 2F 2F 20 70 6F 70 20 61 66 0D 0A // pop af..
001B50: 20 20 69 6E 6C 69 6E 65 20 23 78 39 46 20 20 20 inline #x9F
001B60: 20 20 20 20 20 20 20 20 20 2F 2F 20 73 62 63 20 // sbc
001B70: 61 2C 61 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 a,a.. inline #x
001B80: 44 44 2C 23 78 45 31 20 20 20 20 20 20 20 2F 2F DD,#xE1 //
001B90: 20 70 6F 70 20 69 78 0D 0A 20 20 69 6E 6C 69 6E pop ix.. inlin
001BA0: 65 20 23 78 44 44 2C 23 78 37 37 2C 23 78 37 43 e #xDD,#x77,#x7C
001BB0: 20 20 2F 2F 20 6C 64 20 28 69 78 2B 31 32 34 29 // ld (ix+124)
001BC0: 2C 61 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 6E ,a.. RESULTIS n
001BD0: 70 61 72 6D 73 20 5C 3D 20 30 0D 0A 24 29 0D 0A parms \= 0..$)..
001BE0: 0D 0A 41 4E 44 20 76 65 72 73 69 6F 6E 28 29 20 ..AND version()
001BF0: 3D 20 31 0D 0A 0D 0A 41 4E 44 20 67 65 74 62 79 = 1....AND getby
001C00: 74 65 28 73 2C 69 29 20 3D 20 73 25 69 0D 0A 41 te(s,i) = s%i..A
001C10: 4E 44 20 70 75 74 62 79 74 65 28 73 2C 69 2C 63 ND putbyte(s,i,c
001C20: 29 20 42 45 20 73 25 69 20 3A 3D 20 63 0D 0A 41 ) BE s%i := c..A
001C30: 4E 44 20 75 6E 70 61 63 6B 73 74 72 69 6E 67 28 ND unpackstring(
001C40: 73 2C 76 29 20 42 45 20 46 4F 52 20 69 20 3D 20 s,v) BE FOR i =
001C50: 30 20 54 4F 20 73 25 30 20 44 4F 20 76 21 69 20 0 TO s%0 DO v!i
001C60: 3A 3D 20 73 25 69 0D 0A 41 4E 44 20 70 61 63 6B := s%i..AND pack
001C70: 73 74 72 69 6E 67 28 76 2C 73 29 20 42 45 0D 0A string(v,s) BE..
001C80: 24 28 0D 0A 20 20 4C 45 54 20 6E 20 3D 20 21 76 $(.. LET n = !v
001C90: 20 4C 4F 47 41 4E 44 20 23 78 46 46 0D 0A 20 20 LOGAND #xFF..
001CA0: 46 4F 52 20 69 20 3D 20 31 20 54 4F 20 6E 20 44 FOR i = 1 TO n D
001CB0: 4F 20 73 25 69 20 3A 3D 20 73 21 69 0D 0A 24 29 O s%i := s!i..$)
001CC0: 0D 0A 1A 2F 31 39 38 36 0D 0A 0D 0A 0D 0A 53 54 .../1986......ST
001CD0: 41 54 49 43 20 24 28 20 72 61 6E 64 6F 6D 73 65 ATIC $( randomse
001CE0: 65 64 20 3D 20 30 20 24 29 0D 0A 0D 0A 4C 45 54 ed = 0 $)....LET
001CF0: 20 72 61 6E 64 6F 6D 28 29 20 3D 20 56 41 4C 4F random() = VALO
001D00: 6E 63 20 68 6C 3A 6C 64 20 64 2C 28 68 6C 29 0D nc hl:ld d,(hl).
001D10: 0A 20 20 69 6E 6C 69 6E 65 20 23 78 45 31 2C 23 . inline #xE1,#
001D20: 78 44 44 2C 23 78 45 31 2C 23 78 46 31 20 20 2F xDD,#xE1,#xF1 /
001D30: 2F 20 70 6F 70 20 68 6C 3A 70 6F 70 20 69 78 3A / pop hl:pop ix:
001D40: 70 6F 70 20 61 66 0D 0A 20 20 69 6E 6C 69 6E 65 pop af.. inline
001D50: 20 23 78 43 44 2C 23 78 39 30 2C 23 78 30 30 20 #xCD,#x90,#x00
001D60: 20 20 20 20 20 20 2F 2F 20 63 61 6C 6C 20 26 39 // call &9
001D70: 30 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 0.. inline #xDD
001D80: 2C 23 78 32 32 2C 23 78 39 30 2C 23 78 30 30 20 ,#x22,#x90,#x00
001D90: 20 2F 2F 20 6C 64 20 28 26 39 30 29 2C 69 78 0D // ld (&90),ix.
001DA0: 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 . inline #xDD,#
001DB0: 78 45 31 20 20 20 20 20 20 20 20 20 20 20 20 2F xE1 /
001DC0: 2F 20 70 6F 70 20 69 78 0D 0A 20 20 69 6E 6C 69 / pop ix.. inli
001DD0: 6E 65 20 23 78 46 35 2C 23 78 45 35 20 20 20 20 ne #xF5,#xE5
001DE0: 20 20 20 20 20 20 20 20 2F 2F 20 70 75 73 68 20 // push
001DF0: 61 66 3A 70 75 73 68 20 68 6C 0D 0A 20 20 69 6E af:push hl.. in
001E00: 6C 69 6E 65 20 23 78 44 44 2C 23 78 36 36 2C 23 line #xDD,#x66,#
001E10: 78 37 42 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 x7B // ld
001E20: 68 2C 28 69 78 2B 31 32 33 29 0D 0A 20 20 69 6E h,(ix+123).. in
001E30: 6C 69 6E 65 20 23 78 44 44 2C 23 78 36 45 2C 23 line #xDD,#x6E,#
001E40: 78 37 41 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 x7A // ld
001E50: 6C 2C 28 69 78 2B 31 32 32 29 0D 0A 20 20 69 6E l,(ix+122).. in
001E60: 6C 69 6E 65 20 23 78 32 39 2C 23 78 37 33 2C 23 line #x29,#x73,#
001E70: 78 32 33 2C 23 78 37 32 20 20 2F 2F 20 61 64 64 x23,#x72 // add
001E80: 20 68 6C 2C 68 6C 3A 6C 64 20 28 68 6C 29 2C 65 hl,hl:ld (hl),e
001E90: 3A 69 6E 63 20 68 6C 3A 6C 64 20 28 68 6C 29 2C :inc hl:ld (hl),
001EA0: 64 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 d.. inline #xDD
001EB0: 2C 23 78 36 36 2C 23 78 37 44 20 20 20 20 20 20 ,#x66,#x7D
001EC0: 20 2F 2F 20 6C 64 20 68 2C 28 69 78 2B 31 32 35 // ld h,(ix+125
001ED0: 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 ).. inline #xDD
001EE0: 2C 23 78 36 45 2C 23 78 37 43 20 20 20 20 20 20 ,#x6E,#x7C
001EF0: 20 2F 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 34 // ld l,(ix+124
001F00: 00 42 45 44 20 20 20 20 20 42 49 4E 00 00 00 00 .BED BIN....
001F10: 00 00 02 00 00 00 12 00 74 2E 00 12 00 00 00 00 ........t.......
001F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001F40: 74 2E 00 AE 03 A5 3F F5 00 97 3F F1 00 97 3F F4 t.....?...?...?.
001F50: 00 89 3F F0 00 89 3F 0D 00 72 3F 7F 00 5B 3F 1C ..?...?..r?..[?.
001F60: 40 C3 87 3E 21 06 00 39 F9 E1 E1 E1 E1 E1 2A 10 @..>!..9......*.
001F70: 12 22 12 12 E1 22 10 12 DD E1 C9 22 20 B7 3E 1A ."..."....." .>.
001F80: 21 FE 3D 11 36 40 01 0F 00 3E 0A C3 9E 12 00 00 !.=.6@...>......
001F90: 00 00 00 00 00 00 CD 5C 12 F5 78 06 10 29 CB 11 .......\..x..)..
001FA0: 17 30 01 19 10 F7 F1 CB 7F C8 EB 21 00 00 A7 ED .0.........!....
001FB0: 52 C9 CD 5C 12 F5 3E 10 CB 21 CB 10 CB 15 CB 14 R..\..>..!......
001FC0: A7 ED 52 38 03 03 18 01 19 3D 20 EC 50 59 EB F1 ..R8.....= .PY..
001FD0: A7 C8 7C EE FF 67 7D EE FF 6F 23 C9 44 4D 21 00 ..|..g}..o#.DM!.
001FE0: 00 3E 00 CB 78 28 0A A7 ED 42 44 4D 21 00 00 3E .>..x(...BDM!..>
001FF0: 80 CB 7A C8 EE 80 A7 ED 52 EB 21 00 00 C9 A7 28 ..z.....R.!....(
002000: 17 EB 4E 23 46 23 EB A7 ED 42 28 0C 09 EB 23 23 ..N#F#...B(...##
002010: 3D 20 EF 5E 23 56 EB E9 EB 5E 23 56 EB E9 32 15 = .^#V...^#V..2.
002020: 12 32 14 12 E5 EB 78 B1 28 11 5E 23 56 23 D5 5E .2....x.(.^#V#.^
002030: 23 56 23 E3 73 23 72 E1 0B 18 EB 5E 23 56 23 CB #V#.s#r....^#V#.
002040: 45 28 01 23 22 12 12 22 10 12 C1 ED 73 0E 12 EB E(.#".."....s...
002050: F9 60 69 CD 9D 12 ED 7B 0E 12 CD 8F BC CD 7A BC .`i....{......z.
002060: C9 D1 DD E5 ED 4B 10 12 C5 ED 4B 12 12 ED 43 10 .....K....K...C.
002070: 12 09 22 12 12 EB E9 7A B3 C8 29 1B 18 F9 7A B3 .."....z..)...z.
002080: C8 CB 3C CB 1D 1B 18 F6 C1 E1 E5 C5 29 ED 5B 10 ..<.........).[.
002090: 12 73 23 72 23 ED 5B 12 12 73 23 72 23 DD E5 D1 .s#r#.[..s#r#...
0020A0: 73 23 72 23 EB 21 04 00 39 EB 73 23 72 C9 C1 C1 s#r#.!..9.s#r...
0020B0: E1 29 5E 23 56 23 ED 53 10 12 5E 23 56 23 ED 53 .)^#V#.S..^#V#.S
0020C0: 12 12 5E 23 56 23 D5 DD E1 5E 23 66 6B F9 60 69 ..^#V#...^#fk.`i
0020D0: E9 E1 C1 D1 D5 C5 E5 2A 10 12 E5 D5 2A 12 12 22 .......*....*.."
0020E0: 10 12 CB 3C CB 1D E5 EB 23 29 38 49 EB 2A 10 12 ...<....#)8I.*..
0020F0: 19 38 42 22 12 12 EB 21 CE FF 39 A7 ED 52 38 35 .8B"...!..9..R85
002100: 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 32 39 ).. inline #x29
002110: 2C 23 78 44 31 20 20 20 20 20 20 20 20 20 20 20 ,#xD1
002120: 20 2F 2F 20 61 64 64 20 68 6C 2C 68 6C 3A 70 6F // add hl,hl:po
002130: 70 20 64 65 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 p de.. inline #
002140: 78 37 33 2C 23 78 32 33 2C 23 78 37 32 20 20 20 x73,#x23,#x72
002150: 20 20 20 20 2F 2F 20 6C 64 20 28 68 6C 29 2C 65 // ld (hl),e
002160: 3A 69 6E 63 20 68 6C 3A 6C 64 20 28 68 6C 29 2C :inc hl:ld (hl),
002170: 64 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 d.. inline #xDD
002180: 2C 23 78 36 36 2C 23 78 37 46 20 20 20 20 20 20 ,#x66,#x7F
002190: 20 2F 2F 20 6C 64 20 68 2C 28 69 78 2B 31 32 37 // ld h,(ix+127
0021A0: 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 ).. inline #xDD
0021B0: 2C 23 78 36 45 2C 23 78 37 45 20 20 20 20 20 20 ,#x6E,#x7E
0021C0: 20 2F 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 36 // ld l,(ix+126
0021D0: 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 32 39 ).. inline #x29
0021E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0021F0: 20 2F 2F 20 61 64 64 20 68 6C 2C 68 6C 0D 0A 20 // add hl,hl..
002200: 20 69 6E 6C 69 6E 65 20 23 78 45 44 2C 23 78 35 inline #xED,#x5
002210: 42 2C 23 78 39 30 2C 23 78 30 30 20 20 2F 2F 20 B,#x90,#x00 //
002220: 6C 64 20 64 65 2C 28 26 39 30 29 0D 0A 20 20 69 ld de,(&90).. i
002230: 6E 6C 69 6E 65 20 23 78 37 33 2C 23 78 32 33 2C nline #x73,#x23,
002240: 23 78 37 32 20 20 20 20 20 20 20 2F 2F 20 6C 64 #x72 // ld
002250: 20 28 68 6C 29 2C 65 3A 69 6E 63 20 68 6C 3A 6C (hl),e:inc hl:l
002260: 64 20 28 68 6C 29 2C 64 0D 0A 20 20 69 6E 6C 69 d (hl),d.. inli
002270: 6E 65 20 23 78 44 44 2C 23 78 36 36 2C 23 78 37 ne #xDD,#x66,#x7
002280: 39 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 68 2C 9 // ld h,
002290: 28 69 78 2B 31 32 31 29 0D 0A 20 20 69 6E 6C 69 (ix+121).. inli
0022A0: 6E 65 20 23 78 44 44 2C 23 78 36 45 2C 23 78 37 ne #xDD,#x6E,#x7
0022B0: 38 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 8 // ld l,
0022C0: 28 69 78 2B 31 32 30 29 0D 0A 20 20 69 6E 6C 69 (ix+120).. inli
0022D0: 6E 65 20 23 78 32 39 2C 23 78 37 31 2C 23 78 32 ne #x29,#x71,#x2
0022E0: 33 2C 23 78 37 30 20 20 2F 2F 20 61 64 64 20 68 3,#x70 // add h
0022F0: 6C 2C 68 6C 3A 6C 64 20 28 68 6C 29 2C 63 3A 69 l,hl:ld (hl),c:i
002300: 60 69 CD 9D 12 E1 E1 2A 10 12 22 12 12 E1 22 10 `i.....*.."...".
002310: 12 C9 D1 DD E5 ED 4B 10 12 C5 ED 4B 12 12 ED 43 ......K....K...C
002320: 10 12 09 38 10 22 12 12 44 4D 21 CE FF 39 A7 ED ...8."..DM!..9..
002330: 42 38 02 EB E9 CD CC 13 53 74 61 63 6B 20 6F 76 B8......Stack ov
002340: 65 72 66 6C 6F 77 0D 0A 00 C3 D6 12 E1 7E 23 E5 erflow.......~#.
002350: A7 C8 CD D7 13 18 F5 CD 5A BB C9 00 00 3A 14 12 ........Z....:..
002360: 3D 32 14 12 C0 3A 15 12 32 14 12 3E 42 E5 C5 CD =2...:..2..>B...
002370: 1E BB C1 E1 C8 CD 1B BB 38 FB CD 81 BB CD 06 BB ........8.......
002380: FE FC F5 CD 84 BB F1 C0 CD CC 13 0D 0A 45 73 63 .............Esc
002390: 61 70 65 20 70 72 65 73 73 65 64 0D 0A 00 C3 D6 ape pressed.....
0023A0: 12 C3 2C 14 08 07 06 05 04 03 02 01 21 00 00 CD ..,.........!...
0023B0: 92 13 DD 21 88 FF DD 39 2A 26 14 11 6D 14 3E 02 ...!...9*&..m.>.
0023C0: C3 7E 12 DD 66 7F DD 6E 7E E5 CD B6 1C E1 C3 77 .~..f..n~......w
0023D0: 14 DD 66 7F DD 6E 7E E5 CD F6 1C E1 C3 77 14 DD ..f..n~......w..
0023E0: 66 7F DD 6E 7E E5 CD 4D 1E E1 C3 77 14 01 00 51 f..n~..M...w...Q
0023F0: 14 00 00 43 14 5F 14 E1 22 10 12 DD E1 C9 21 00 ...C._..".....!.
002400: 00 CD 92 13 DD 21 9E FF DD 39 DD E5 E1 11 6A 00 .....!...9....j.
002410: 19 CB 3C CB 1D E5 2A AF 14 E5 DD 66 69 DD 6E 68 ..<...*....fi.nh
002420: 29 6E 26 00 7C EE 80 67 22 AF 14 21 01 00 11 00 )n&.|..g"..!....
002430: 00 EB 42 4B 7A EE 80 57 ED 52 DA 3C 16 C5 DD 66 ..BKz..W.R.<...f
002440: 69 DD 6E 68 29 DD 56 5D DD 5E 5C 19 6E 26 00 E5 i.nh).V].^\.n&..
002450: DD 66 5B DD 6E 5A 11 25 00 A7 ED 52 C2 2B 16 DD .f[.nZ.%...R.+..
002460: 66 61 DD 6E 60 29 5E 23 56 EB E5 DD 66 5D DD 6E fa.n`)^#V...f].n
002470: 5C 23 DD 74 5D DD 75 5C DD 66 69 DD 6E 68 29 DD \#.t].u\.fi.nh).
002480: 56 5D DD 5E 5C 19 6E 26 00 E5 DD 66 5D DD 6E 5C V].^\.n&...f].n\
002490: 23 E5 DD 66 69 DD 6E 68 29 D1 19 6E 26 00 E5 CD #..fi.nh)..n&...
0024A0: B0 1F E1 EB E5 DD 66 61 DD 6E 60 23 DD 74 61 DD ......fa.n`#.ta.
0024B0: 75 60 DD 66 57 DD 6E 56 E5 CD 43 1F E1 EB 11 F8 u`.fW.nV..C.....
0024C0: 15 3E 07 C3 7E 12 DD 66 59 DD 6E 58 E5 CD 48 16 .>..~..fY.nX..H.
0024D0: E1 21 00 00 EB C3 16 16 DD 66 59 DD 6E 58 E5 CD .!.......fY.nX..
0024E0: 2C 14 E1 21 00 00 EB C3 16 16 21 00 00 E5 DD 66 ,..!......!....f
0024F0: 59 DD 6E 58 E5 CD A1 16 E1 E1 21 00 00 EB C3 16 Y.nX......!.....
002500: 6E 63 20 68 6C 3A 6C 64 20 28 68 6C 29 2C 62 0D nc hl:ld (hl),b.
002510: 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 . inline #xDD,#
002520: 78 36 36 2C 23 78 37 37 20 20 20 20 20 20 20 2F x66,#x77 /
002530: 2F 20 6C 64 20 68 2C 28 69 78 2B 31 31 39 29 0D / ld h,(ix+119).
002540: 0A 20 20 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 . inline #xDD,#
002550: 78 36 45 2C 23 78 37 36 20 20 20 20 20 20 20 2F x6E,#x76 /
002560: 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 31 38 29 0D / ld l,(ix+118).
002570: 0A 20 20 69 6E 6C 69 6E 65 20 23 78 32 39 2C 23 . inline #x29,#
002580: 78 44 31 20 20 20 20 20 20 20 20 20 20 20 20 2F xD1 /
002590: 2F 20 61 64 64 20 68 6C 2C 68 6C 3A 70 6F 70 20 / add hl,hl:pop
0025A0: 64 65 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 37 de.. inline #x7
0025B0: 33 2C 23 78 32 33 2C 23 78 37 32 20 20 20 20 20 3,#x23,#x72
0025C0: 20 20 2F 2F 20 6C 64 20 28 68 6C 29 2C 65 3A 69 // ld (hl),e:i
0025D0: 6E 63 20 68 6C 3A 6C 64 20 28 68 6C 29 2C 64 0D nc hl:ld (hl),d.
0025E0: 0A 20 20 62 79 74 65 6D 6F 76 65 28 73 61 76 65 . bytemove(save
0025F0: 33 2A 32 2C 20 23 78 39 30 2C 20 33 29 0D 0A 24 3*2, #x90, 3)..$
002600: 29 0D 0A 0D 0A 41 4E 44 20 65 78 74 65 72 6E 61 )....AND externa
002610: 6C 28 63 6F 6D 6D 61 6E 64 2C 6E 70 61 72 6D 73 l(command,nparms
002620: 2C 70 61 72 6D 62 6C 6F 63 6B 29 20 3D 20 56 41 ,parmblock) = VA
002630: 4C 4F 46 0D 0A 24 28 0D 0A 20 20 69 6E 6C 69 6E LOF..$(.. inlin
002640: 65 20 23 78 44 44 2C 23 78 45 35 20 20 20 20 20 e #xDD,#xE5
002650: 20 20 2F 2F 20 70 75 73 68 20 69 78 0D 0A 20 20 // push ix..
002660: 69 6E 6C 69 6E 65 20 23 78 44 44 2C 23 78 36 36 inline #xDD,#x66
002670: 2C 23 78 37 42 20 20 2F 2F 20 6C 64 20 68 2C 28 ,#x7B // ld h,(
002680: 69 78 2B 31 32 33 29 0D 0A 20 20 69 6E 6C 69 6E ix+123).. inlin
002690: 65 20 23 78 44 44 2C 23 78 36 45 2C 23 78 37 41 e #xDD,#x6E,#x7A
0026A0: 20 20 2F 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 // ld l,(ix+12
0026B0: 32 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 23 78 32 2).. inline #x2
0026C0: 39 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 9 //
0026D0: 61 64 64 20 68 6C 2C 68 6C 0D 0A 20 20 69 6E 6C add hl,hl.. inl
0026E0: 69 6E 65 20 23 78 32 33 20 20 20 20 20 20 20 20 ine #x23
0026F0: 20 20 20 20 2F 2F 20 69 6E 63 20 68 6C 0D 0A 20 // inc hl..
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 00 02 02 09 4E E5 02 00 C1 02 00 00 00 02 ......N.........
002720: 02 00 C6 02 00 00 00 02 02 00 C2 02 00 00 00 02 ................
002730: 02 00 C7 02 00 00 00 02 02 00 C3 02 00 00 00 02 ................
002740: 02 00 C8 02 00 00 00 02 02 00 C4 02 00 00 00 02 ................
002750: 02 00 C9 02 00 00 00 02 02 00 C5 02 00 00 00 02 ................
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 16 DD 66 55 DD 6E 54 E5 DD 66 59 DD 6E 58 E5 CD ..fU.nT..fY.nX..
002810: 8F 18 E1 E1 21 01 00 EB C3 16 16 DD 66 55 DD 6E ....!.......fU.n
002820: 54 E5 DD 66 59 DD 6E 58 E5 CD 0C 18 E1 E1 21 01 T..fY.nX......!.
002830: 00 EB C3 16 16 DD 66 55 DD 6E 54 E5 DD 66 59 DD ......fU.nT..fY.
002840: 6E 58 E5 CD A1 16 E1 E1 21 01 00 EB C3 16 16 21 nX......!......!
002850: 00 00 EB C3 16 16 DD 66 57 DD 6E 56 E5 CD 2C 14 .......fW.nV..,.
002860: E1 DD 66 61 DD 6E 60 2B DD 74 61 DD 75 60 21 00 ..fa.n`+.ta.u`!.
002870: 00 EB C3 16 16 C3 16 16 24 00 CF 15 49 00 B5 15 ........$...I...
002880: 58 00 9B 15 4F 00 81 15 4E 00 6A 15 43 00 58 15 X...O...N.j.C.X.
002890: 53 00 46 15 D6 15 EB EB DD 66 5D DD 6E 5C 19 DD S.F......f].n\..
0028A0: 74 5D DD 75 5C E1 E1 E1 C3 36 16 DD 66 5B DD 6E t].u\....6..f[.n
0028B0: 5A E5 CD 2C 14 E1 E1 E1 23 C3 AE 14 E1 22 AF 14 Z..,....#...."..
0028C0: E1 E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 ..".....!......!
0028D0: 88 FF DD 39 2A 6D 16 E5 DD 66 7F DD 6E 7E 29 6E ...9*m...f..n~)n
0028E0: 26 00 7C EE 80 67 22 6D 16 21 01 00 11 00 00 EB &.|..g"m.!......
0028F0: 42 4B 7A EE 80 57 ED 52 DA 96 16 C5 DD 66 7F DD BKz..W.R.....f..
002900: 6E 7E 29 DD 56 75 DD 5E 74 19 6E 26 00 E5 CD 2C n~).Vu.^t.n&...,
002910: 14 E1 E1 23 18 D6 E1 22 6D 16 E1 22 10 12 DD E1 ...#..."m.."....
002920: C9 21 2A 00 CD 92 13 DD 21 8A FF DD 39 21 00 00 .!*.....!...9!..
002930: E5 DD 66 7D DD 6E 7C E5 2A 10 12 CB 3C CB 1D E5 ..f}.n|.*...<...
002940: DD 66 7D DD 6E 7C 7C EE 80 67 11 00 80 A7 ED 52 .f}.n||..g.....R
002950: D2 F5 16 DD 66 7F DD 6E 7E 2B DD 74 7F DD 75 7E ....f..n~+.t..u~
002960: DD 66 73 DD 6E 72 7C EE FF 67 7D EE FF 6F 23 DD .fs.nr|..g}..o#.
002970: 74 73 DD 75 72 DD 66 73 DD 6E 72 11 0A 00 CD 32 ts.ur.fs.nr....2
002980: 12 EB E5 DD 66 71 DD 6E 70 DD 56 75 DD 5E 74 19 ....fq.np.Vu.^t.
002990: 29 D1 73 23 72 DD 66 73 DD 6E 72 11 0A 00 CD 32 ).s#r.fs.nr....2
0029A0: 12 DD 74 73 DD 75 72 DD 66 75 DD 6E 74 23 DD 74 ..ts.ur.fu.nt#.t
0029B0: 75 DD 75 74 DD 7E 73 DD B6 72 C2 F5 16 2A 56 17 u.ut.~s..r...*V.
0029C0: E5 DD 66 7F DD 6E 7E 7C EE 80 67 22 56 17 DD 66 ..f..n~|..g"V..f
0029D0: 75 DD 6E 74 23 11 00 00 EB 42 4B 7A EE 80 57 ED u.nt#....BKz..W.
0029E0: 52 DA 71 17 C5 21 20 00 E5 CD 2C 14 E1 E1 23 18 R.q..! ...,...#.
0029F0: E4 E1 22 56 17 DD 66 7D DD 6E 7C 7C EE 80 67 11 .."V..f}.n||..g.
002A00: 88 1F DD 66 7F DD 6E 7E EB E1 22 10 12 DD E1 C9 ...f..n~..".....
002A10: 21 00 00 CD 92 13 DD 21 88 FF DD 39 DD 66 7F DD !......!...9.f..
002A20: 6E 7E E5 CD 43 1F E1 EB EB E1 22 10 12 DD E1 C9 n~..C.....".....
002A30: 21 00 00 CD 92 13 DD 21 88 FF DD 39 DD 66 7F DD !......!...9.f..
002A40: 6E 7E 7C EE 80 67 11 30 80 A7 ED 52 DA EF 1F DD n~|..g.0...R....
002A50: 56 7F DD 5E 7E 7A EE 80 57 21 39 80 A7 ED 52 DA V..^~z..W!9...R.
002A60: EF 1F DD 66 7F DD 6E 7E 11 D0 FF 19 C3 FD 1F DD ...f..n~........
002A70: 66 7F DD 6E 7E 11 BF FF 19 11 0A 00 19 EB E1 22 f..n~.........."
002A80: 10 12 DD E1 C9 C3 1C 20 14 13 12 11 10 0F 0E 0D ....... ........
002A90: 0C 0B 0A 09 08 07 06 05 04 03 02 01 C3 24 20 00 .............$ .
002AA0: 04 03 02 01 21 00 00 CD 92 13 DD 21 8C FF DD 39 ....!......!...9
002AB0: DD 66 7B DD 6E 7A DD 56 7D DD 5E 7C DD 46 7F DD .f{.nz.V}.^|.F..
002AC0: 4E 7E A7 ED 52 19 38 04 ED B0 18 08 0B 09 EB 09 N~..R.8.........
002AD0: EB 03 ED B8 E1 22 10 12 DD E1 C9 21 00 00 CD 92 .....".....!....
002AE0: 13 DD 21 8A FF DD 39 21 1F 00 E5 CD 2C 14 E1 DD ..!...9!....,...
002AF0: 66 7D DD 6E 7C E5 CD 2C 14 E1 DD 66 7F DD 6E 7E f}.n|..,...f..n~
002B00: E5 CD 2C 14 E1 E1 22 10 12 DD E1 C9 21 00 00 CD ..,...".....!...
002B10: 92 13 DD 21 88 FF DD 39 2A AD 20 E5 DD 66 7F DD ...!...9*. ..f..
002B20: 6E 7E 7C EE 80 67 22 AD 20 21 01 00 11 00 00 EB n~|..g". !......
002B30: 42 4B 7A EE 80 57 ED 52 DA C8 20 C5 21 20 00 E5 BKz..W.R.. .! ..
002B40: CD 2C 14 E1 E1 23 18 E4 E1 22 AD 20 E1 22 10 12 .,...#...". ."..
002B50: DD E1 C9 21 00 00 CD 92 13 DD 21 88 FF DD 39 DD ...!......!...9.
002B60: 66 7F DD 6E 7E 11 0D 00 A7 ED 52 C2 F4 20 CD E7 f..n~.....R.. ..
002B70: 18 C3 FF 20 DD 66 7F DD 6E 7E E5 CD 2C 14 E1 E1 ... .f..n~..,...
002B80: 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 86 FF ".....!......!..
002B90: DD 39 CD 81 BB E1 22 10 12 DD E1 C9 21 00 00 CD .9....".....!...
002BA0: 92 13 DD 21 86 FF DD 39 CD 7B BB E1 22 10 12 DD ...!...9.{.."...
002BB0: E1 C9 21 00 00 CD 92 13 DD 21 86 FF DD 39 CD 7E ..!......!...9.~
002BC0: BB E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 ..".....!......!
002BD0: 86 FF DD 39 21 07 00 E5 CD 2C 14 E1 E1 22 10 12 ...9!....,..."..
002BE0: DD E1 C9 21 00 00 CD 92 13 DD 21 88 FF DD 39 21 ...!......!...9!
002BF0: 01 00 E5 DD 66 7F DD 6E 7E 29 5E 23 56 EB 11 0D ....f..n~)^#V...
002C00: 00 80 A7 ED 52 D2 90 17 21 2D 00 E5 CD 2C 14 E1 ....R...!-...,..
002C10: 2A A6 17 E5 21 00 00 7C EE 80 67 22 A6 17 DD 66 *...!..|..g"...f
002C20: 75 DD 6E 74 2B 11 00 00 44 4D 7C EE 80 67 ED 52 u.nt+...DM|..g.R
002C30: DA D3 17 C5 DD 66 71 DD 6E 70 DD 56 6D DD 5E 6C .....fq.np.Vm.^l
002C40: 19 29 5E 23 56 EB 11 30 00 19 E5 CD 2C 14 E1 E1 .)^#V..0....,...
002C50: 2B 18 D2 E1 22 A6 17 21 06 00 39 F9 2A 10 12 22 +..."..!..9.*.."
002C60: 12 12 E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD ...".....!......
002C70: 21 88 FF DD 39 21 00 00 E5 DD 66 7F DD 6E 7E E5 !...9!....f..n~.
002C80: CD A1 16 E1 E1 E1 22 10 12 DD E1 C9 21 00 00 CD ......".....!...
002C90: 92 13 DD 21 8A FF DD 39 DD 56 7F DD 5E 7E 7A EE ...!...9.V..^~z.
002CA0: 80 57 21 01 80 A7 ED 52 D2 45 18 DD 66 7F DD 6E .W!....R.E..f..n
002CB0: 7E 2B E5 DD 66 7D DD 6E 7C 11 04 00 CD FE 12 E5 ~+..f}.n|.......
002CC0: CD 0C 18 E1 E1 21 26 0C C3 6C 18 01 30 00 31 00 .....!&..l..0.1.
002CD0: 32 00 33 00 34 00 35 00 36 00 37 00 38 00 39 00 2.3.4.5.6.7.8.9.
002CE0: 41 00 42 00 43 00 44 00 45 00 46 00 E5 DD 66 7D A.B.C.D.E.F...f}
002CF0: DD 6E 7C 11 0F 00 7C A2 67 7D A3 6F D1 19 29 5E .n|...|.g}£o..)^
002D00: 23 56 EB E5 CD 2C 14 E1 E1 22 10 12 DD E1 C9 21 #V...,...".....!
002D10: 00 00 CD 92 13 DD 21 8A FF DD 39 DD 56 7F DD 5E ......!...9.V..^
002D20: 7E 7A EE 80 57 21 01 80 A7 ED 52 D2 C8 18 DD 66 ~z..W!....R....f
002D30: 7F DD 6E 7E 2B E5 DD 66 7D DD 6E 7C 11 03 00 CD ..n~+..f}.n|....
002D40: FE 12 E5 CD 8F 18 E1 E1 DD 66 7D DD 6E 7C 11 07 .........f}.n|..
002D50: 00 7C A2 67 7D A3 6F 11 30 00 19 E5 CD 2C 14 E1 .|.g}£o.0....,..
002D60: E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 86 .".....!......!.
002D70: FF DD 39 21 0D 01 E5 CD 2C 14 E1 E1 22 10 12 DD ..9!....,..."...
002D80: E1 C9 21 00 00 CD 92 13 DD 21 86 FF DD 39 2A 28 ..!......!...9*(
002D90: 14 7C B5 CA 35 19 2A 28 14 E5 21 00 00 22 28 14 .|..5.*(..!.."(.
002DA0: DD 66 79 DD 6E 78 22 2A 14 DD 66 79 DD 6E 78 EB .fy.nx"*..fy.nx.
002DB0: E1 C3 4C 19 E1 2A 24 14 7C B5 C2 44 19 CD 72 1D ..L..*$.|..D..r.
002DC0: EB C3 48 19 CD FD 1D EB EB C3 4C 19 E1 22 10 12 ..H.......L.."..
002DD0: DD E1 C9 21 00 00 CD 92 13 DD 21 86 FF DD 39 2A ...!......!...9*
002DE0: 2A 14 22 28 14 E1 22 10 12 DD E1 C9 21 00 00 CD *."(..".....!...
002DF0: 92 13 DD 21 88 FF DD 39 21 00 00 E5 E5 2A 92 19 ...!...9!....*..
002E00: 00 A7 ED 52 CA A3 21 DD 66 77 DD 6E 76 23 DD 74 ...R.£!.fw.nv#.t
002E10: 77 DD 75 76 DD 66 7F DD 6E 7E 23 DD 74 7F DD 75 w.uv.f..n~#.t..u
002E20: 7E 18 D0 DD 66 77 DD 6E 76 EB E1 C3 AF 21 E1 E1 ~...fw.nv....!..
002E30: 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 8A FF ".....!......!..
002E40: DD 39 2A D8 21 E5 DD 66 7F DD 6E 7E 2B 7C EE 80 .9*.!..f..n~+|..
002E50: 67 22 D8 21 21 00 00 11 00 00 EB 42 4B 7A EE 80 g".!!......BKz..
002E60: 57 ED 52 DA 02 22 C5 DD 66 7D DD 6E 7C DD 56 73 W.R.."..f}.n|.Vs
002E70: DD 5E 72 19 29 5E 23 56 EB E5 CD 2C 14 E1 E1 23 .^r.)^#V...,...#
002E80: 18 D5 E1 22 D8 21 21 4F 00 DD 56 7F DD 5E 7E A7 ...".!!O..V..^~.
002E90: ED 52 E5 CD 8C 20 E1 E1 22 10 12 DD E1 C9 21 00 .R... ..".....!.
002EA0: 00 CD 92 13 DD 21 8A FF DD 39 2A 08 20 7C B5 CA .....!...9*. |..
002EB0: 81 22 2A 50 22 E5 DD 66 7D DD 6E 7C 29 5E 23 56 ."*P"..f}.n|)^#V
002EC0: EB 2B 7C EE 80 67 22 50 22 DD 66 7F DD 6E 7E 11 .+|..g"P".f..n~.
002ED0: 00 00 EB 42 4B 7A EE 80 57 ED 52 DA 7A 22 C5 DD ...BKz..W.R.z"..
002EE0: 66 7D DD 6E 7C DD 56 73 DD 5E 72 19 29 5E 23 56 f}.n|.Vs.^r.)^#V
002EF0: EB E5 CD 2C 14 E1 E1 23 18 D5 E1 22 50 22 C3 98 ...,...#..."P"..
002F00: 22 DD 66 7D DD 6E 7C DD 56 7F DD 5E 7E 19 29 5E ".f}.n|.V..^~.)^
002F10: 23 56 EB E5 CD 2C 14 E1 E1 22 10 12 DD E1 C9 21 #V...,...".....!
002F20: 00 00 CD 92 13 DD 21 8A FF DD 39 2A 08 20 7C B5 ......!...9*. |.
002F30: CA 29 23 DD 66 7D DD 6E 7C 29 5E 23 56 EB 2B E5 .)#.f}.n|)^#V.+.
002F40: DD 66 7D DD 6E 7C 29 D1 73 23 72 2A E8 22 E5 DD .f}.n|).s#r*."..
002F50: 66 7D DD 6E 7C 29 5E 23 56 EB 7C EE 80 67 22 E8 f}.n|)^#V.|..g".
002F60: 22 DD 66 7F DD 6E 7E 11 00 00 EB 42 4B 7A EE 80 ".f..n~....BKz..
002F70: 57 ED 52 DA 22 23 C5 DD 66 73 DD 6E 72 23 EB DD W.R."#..fs.nr#..
002F80: 66 7D DD 6E 7C 19 29 5E 23 56 EB E5 DD 66 7D DD f}.n|.)^#V...f}.
002F90: 6E 7C DD 56 73 DD 5E 72 19 29 D1 73 23 72 E1 23 n|.Vs.^r.).s#r.#
002FA0: 18 C5 E1 22 E8 22 C3 3C 23 DD 66 7D DD 6E 7C DD ...".".<#.f}.n|.
002FB0: 56 7F DD 5E 7E 19 29 36 20 23 36 00 E1 22 10 12 V..^~.)6 #6.."..
002FC0: DD E1 C9 21 00 00 CD 92 13 DD 21 8C FF DD 39 2A ...!......!...9*
002FD0: 08 20 7C B5 CA E3 23 2A 74 23 E5 DD 66 7D DD 6E . |...#*t#..f}.n
002FE0: 7C 7C EE 80 67 22 74 23 DD 66 7B DD 6E 7A 29 5E ||..g"t#.f{.nz)^
002FF0: 23 56 EB 11 00 00 44 4D 7C EE 80 67 ED 52 DA AD #V....DM|..g.R..
003000: E5 DD 66 77 DD 6E 76 7C EE 80 67 22 92 19 21 01 ..fw.nv|..g"..!.
003010: 00 11 00 00 EB 42 4B 7A EE 80 57 ED 52 DA BD 19 .....BKz..W.R...
003020: C5 21 08 00 E5 CD 2C 14 E1 21 20 00 E5 CD 2C 14 .!....,..! ...,.
003030: E1 21 08 00 E5 CD 2C 14 E1 E1 23 18 D4 E1 22 92 .!....,...#...".
003040: 19 21 00 00 DD 74 77 DD 75 76 CD 02 19 EB DD 74 .!...tw.uv.....t
003050: 75 DD 75 74 DD 66 75 DD 6E 74 11 0D 00 A7 ED 52 u.ut.fu.nt.....R
003060: CA 8E 1A DD 66 75 DD 6E 74 11 FC 00 A7 ED 52 CA ....fu.nt.....R.
003070: 8E 1A DD 66 75 DD 6E 74 11 7F 00 A7 ED 52 C2 3D ...fu.nt.....R.=
003080: 1A DD 7E 77 DD B6 76 C2 15 1A 21 07 00 E5 CD 2C ..~w..v...!....,
003090: 14 E1 C3 3A 1A 21 08 00 E5 CD 2C 14 E1 21 20 00 ...:.!....,..! .
0030A0: E5 CD 2C 14 E1 21 08 00 E5 CD 2C 14 E1 DD 66 77 ..,..!....,...fw
0030B0: DD 6E 76 2B DD 74 77 DD 75 76 C3 81 1A DD 66 77 .nv+.tw.uv....fw
0030C0: DD 6E 76 11 FF 00 A7 ED 52 C2 57 1A 21 07 00 E5 .nv.....R.W.!...
0030D0: CD 2C 14 E1 C3 81 1A DD 66 75 DD 6E 74 E5 CD 2C .,......fu.nt..,
0030E0: 14 E1 DD 66 77 DD 6E 76 23 DD 74 77 DD 75 76 DD ...fw.nv#.tw.uv.
0030F0: 66 7F DD 6E 7E 29 DD 56 77 DD 5E 76 19 DD 7E 74 f..n~).Vw.^v..~t
003100: 77 CD 02 19 EB DD 74 75 DD 75 74 C3 D4 19 DD 66 w.....tu.ut....f
003110: 75 DD 6E 74 11 FC 00 A7 ED 52 C2 A6 1A DD 7E 77 u.nt.....R....~w
003120: DD B6 76 C2 7D 19 DD 66 75 DD 6E 74 11 FC 00 A7 ..v.}..fu.nt....
003130: ED 52 C2 BB 1A 21 00 00 C3 C1 1A DD 66 77 DD 6E .R...!......fw.n
003140: 76 E5 DD 66 7F DD 6E 7E 29 D1 73 DD 66 75 DD 6E v..f..n~).s.fu.n
003150: 74 11 FC 00 A7 ED 52 21 FF FF 20 03 21 00 00 EB t.....R!.. .!...
003160: E1 E1 C3 E7 1A E1 E1 E1 22 10 12 DD E1 C9 21 02 ........".....!.
003170: 01 CD 92 13 DD 21 86 FF DD 39 2A 10 12 CB 3C CB .....!...9*...<.
003180: 1D E5 DD 66 79 DD 6E 78 E5 CD 6C 19 E1 21 0A 00 ...fy.nx..l..!..
003190: E5 DD 66 79 DD 6E 78 E5 CD 31 1B E1 E1 EB EB E1 ..fy.nx..1......
0031A0: C3 24 1B E1 2A 10 12 22 12 12 E1 22 10 12 DD E1 .$..*.."..."....
0031B0: C9 21 00 00 CD 92 13 DD 21 8A FF DD 39 21 01 00 .!......!...9!..
0031C0: E5 21 00 00 E5 DD 66 7D DD 6E 7C 29 6E 26 00 DD .!....f}.n|)n&..
0031D0: 56 75 DD 5E 74 7C EE 80 67 7A EE 80 57 A7 ED 52 Vu.^t|..gz..W..R
0031E0: DA EF 1B DD 66 7D DD 6E 7C 29 DD 56 75 DD 5E 74 ....f}.n|).Vu.^t
0031F0: 19 6E 26 00 E5 CD B0 1F E1 EB 7C EE 80 67 11 00 .n&.......|..g..
003200: 23 C5 DD 66 7B DD 6E 7A DD 56 71 DD 5E 70 19 29 #..f{.nz.Vq.^p.)
003210: 5E 23 56 EB E5 DD 66 71 DD 6E 70 23 EB DD 66 7B ^#V...fq.np#..f{
003220: DD 6E 7A 19 29 D1 73 23 72 E1 2B 18 C6 E1 22 74 .nz.).s#r.+..."t
003230: 23 DD 66 7B DD 6E 7A DD 56 7D DD 5E 7C 19 29 DD #.f{.nz.V}.^|.).
003240: 56 7F DD 5E 7E 73 23 72 DD 66 7B DD 6E 7A 29 5E V..^~s#r.f{.nz)^
003250: 23 56 EB 23 E5 DD 66 7B DD 6E 7A 29 D1 73 23 72 #V.#..f{.nz).s#r
003260: C3 FA 23 DD 66 7B DD 6E 7A DD 56 7D DD 5E 7C 19 ..#.f{.nz.V}.^|.
003270: 29 DD 56 7F DD 5E 7E 73 23 72 E1 22 10 12 DD E1 ).V..^~s#r."....
003280: C9 21 00 00 CD 92 13 DD 21 8A FF DD 39 DD 66 7D .!......!...9.f}
003290: DD 6E 7C 29 5E 23 56 EB DD 56 7F DD 5E 7E 7C EE .n|)^#V..V..^~|.
0032A0: 80 67 7A EE 80 57 A7 ED 52 DA 36 24 DD 66 7F DD .gz..W..R.6$.f..
0032B0: 6E 7E EB C3 5A 24 2A 12 20 E5 DD 66 7D DD 6E 7C n~..Z$*. ..f}.n|
0032C0: 29 5E 23 56 EB E5 CD 5B 20 E1 E1 DD 66 7D DD 6E )^#V...[ ...f}.n
0032D0: 7C 29 5E 23 56 EB EB C3 5A 24 E1 22 10 12 DD E1 |)^#V...Z$."....
0032E0: C9 21 00 00 CD 92 13 DD 21 8A FF DD 39 2A 12 20 .!......!...9*.
0032F0: E5 2A 10 20 E5 CD 5B 20 E1 E1 DD 66 7F DD 6E 7E .*. ..[ ...f..n~
003300: 11 4D 26 3E 12 C3 7E 12 2A 10 20 E5 DD 66 7D DD .M&>..~.*. ..f}.
003310: 6E 7C E5 CD 01 24 E1 E1 EB 22 10 20 21 0D 00 E5 n|...$...". !...
003320: 2A 10 20 E5 DD 66 7D DD 6E 7C E5 CD 43 23 21 06 *. ..f}.n|..C#!.
003330: 00 39 F9 21 0D 00 E5 CD 2C 14 E1 DD 66 7D DD 6E .9.!....,...f}.n
003340: 7C 23 E5 CD 63 21 E1 EB 2B E5 DD 66 7D DD 6E 7C |#..c!..+..f}.n|
003350: 23 E5 CD B6 21 E1 E1 21 0D 00 EB C3 9E 26 ED 5B #...!..!.....&.[
003360: 10 20 7A EE 80 57 21 01 80 A7 ED 52 D2 F9 24 2A . z..W!....R..$*
003370: 10 20 2B 22 10 20 C3 FC 24 CD 48 21 C3 97 26 DD . +". ..$.H!..&.
003380: 66 7D DD 6E 7C 29 5E 23 56 EB 2B ED 5B 10 20 7C f}.n|)^#V.+.[. |
003390: EE 80 67 7A EE 80 57 A7 ED 52 DA 27 25 2A 10 20 ..gz..W..R.'%*.
0033A0: 23 22 10 20 C3 2A 25 CD 48 21 C3 97 26 21 01 00 #". .*%.H!..&!..
0033B0: 22 10 20 C3 97 26 DD 66 7D DD 6E 7C 29 5E 23 56 ". ..&.f}.n|)^#V
0033C0: EB 22 10 20 C3 97 26 DD 66 7F DD 6E 7E EB C3 9E .". ..&.f..n~...
0033D0: 26 2A 10 20 E5 DD 66 7D DD 6E 7C E5 CD 01 24 E1 &*. ..f}.n|...$.
0033E0: E1 EB 22 10 20 2A 10 20 11 01 00 A7 ED 52 C2 78 ..". *. .....R.x
0033F0: 25 21 7F 00 EB C3 9E 26 2A 10 20 2B 22 10 20 2A %!.....&*. +". *
003400: 80 A7 ED 52 DA EF 1B DD 66 7D DD 6E 7C 29 DD 56 ...R....f}.n|).V
003410: 75 DD 5E 74 19 6E 26 00 E5 CD B0 1F E1 DD 66 7F u.^t.n&.......f.
003420: DD 6E 7E 7C EE 80 67 7A EE 80 57 A7 ED 52 DA EF .n~|..gz..W..R..
003430: 1B DD 66 7D DD 6E 7C 29 DD 56 75 DD 5E 74 19 6E ..f}.n|).Vu.^t.n
003440: 26 00 E5 CD B0 1F E1 D5 DD 66 73 DD 6E 72 DD 56 &........fs.nr.V
003450: 7F DD 5E 7E CD 16 12 D1 19 DD 74 73 DD 75 72 DD ..^~......ts.ur.
003460: 66 75 DD 6E 74 23 DD 74 75 DD 75 74 C3 45 1B DD fu.nt#.tu.ut.E..
003470: 66 73 DD 6E 72 EB E1 E1 C3 FD 1B E1 E1 E1 22 10 fs.nr.........".
003480: 12 DD E1 C9 21 00 00 CD 92 13 DD 21 8A FF DD 39 ....!......!...9
003490: DD 66 7F DD 6E 7E 29 EB DD 66 7D DD 6E 7C 29 46 .f..n~)..f}.n|)F
0034A0: 23 DD E5 CD 77 BC DD E1 3E FF 38 02 3E 00 DD 77 #...w...>.8.>..w
0034B0: 7D DD 77 7C DD 66 7D DD 6E 7C EB C3 3E 1C E1 22 }.w|.f}.n|..>.."
0034C0: 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 86 FF DD .....!......!...
0034D0: 39 CD 30 1E EB EB E1 22 10 12 DD E1 C9 21 00 00 9.0....".....!..
0034E0: CD 92 13 DD 21 8A FF DD 39 DD 66 7F DD 6E 7E 29 ....!...9.f..n~)
0034F0: EB DD 66 7D DD 6E 7C 29 46 23 DD E5 CD 8C BC DD ..f}.n|)F#......
003500: E1 3E FF 38 02 3E 00 DD 77 7D DD 77 7C DD 66 7D .>.8.>..w}.w|.f}
003510: DD 6E 7C EB C3 97 1C E1 22 10 12 DD E1 C9 21 00 .n|.....".....!.
003520: 00 CD 92 13 DD 21 86 FF DD 39 CD AD 1E EB EB E1 .....!...9......
003530: 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 88 FF ".....!......!..
003540: DD 39 DD 66 7F DD 6E 7E 11 0D 01 A7 ED 52 C2 E2 .9.f..n~.....R..
003550: 1C 21 0D 00 E5 CD B6 1C E1 21 0A 00 DD 74 7F DD .!.......!...t..
003560: 75 7E DD 7E 7E CD 5A BB 21 FF FF EB C3 EF 1C E1 u~.~~.Z.!.......
003570: 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 88 FF ".....!......!..
003580: DD 39 DD 66 7F DD 6E 7E 11 0D 01 A7 ED 52 C2 22 .9.f..n~.....R."
003590: 1D 21 0D 00 E5 CD F6 1C E1 21 0A 00 DD 74 7F DD .!.......!...t..
0035A0: 75 7E DD 7E 7E CD 2B BD 30 FB 21 FF FF EB C3 31 u~.~~.+.0.!....1
0035B0: 1D E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 ..".....!......!
0035C0: 86 FF DD 39 21 00 00 E5 CD 2E BD 30 06 DD 36 78 ...9!......0..6x
0035D0: FF DD 66 79 DD 6E 78 11 00 00 A7 ED 52 21 FF FF ..fy.nx.....R!..
0035E0: 20 03 21 00 00 EB E1 C3 6B 1D E1 E1 22 10 12 DD .!.....k..."...
0035F0: E1 C9 21 00 00 CD 92 13 DD 21 86 FF DD 39 21 00 ..!......!...9!.
003600: 12 20 E5 2A 10 20 E5 CD 5B 20 E1 E1 2A 10 20 E5 . .*. ..[ ..*. .
003610: DD 66 7D DD 6E 7C E5 CD 9F 22 E1 E1 2A 10 20 E5 .f}.n|..."..*. .
003620: DD 66 7D DD 6E 7C E5 CD 1E 22 E1 E1 2A 08 20 7C .f}.n|..."..*. |
003630: B5 CA BC 25 21 20 00 E5 CD 2C 14 E1 C3 97 26 2A ...%! ...,....&*
003640: 10 20 E5 DD 66 7D DD 6E 7C E5 CD 01 24 E1 E1 EB . ..f}.n|...$...
003650: 22 10 20 DD 66 7D DD 6E 7C 29 5E 23 56 EB 7C EE ". .f}.n|)^#V.|.
003660: 80 67 11 50 80 A7 ED 52 D2 44 26 DD 66 7F DD 6E .g.P...R.D&.f..n
003670: 7E E5 2A 10 20 E5 DD 66 7D DD 6E 7C E5 CD 43 23 ~.*. ..f}.n|..C#
003680: 21 06 00 39 F9 2A 10 20 E5 DD 66 7D DD 6E 7C E5 !..9.*. ..f}.n|.
003690: CD 1E 22 E1 E1 2A 08 20 7C B5 C2 3A 26 DD 66 7D .."..*. |..:&.f}
0036A0: DD 6E 7C 29 5E 23 56 EB EB 2A 10 20 7C EE 80 67 .n|)^#V..*. |..g
0036B0: 7A EE 80 57 A7 ED 52 D2 41 26 2A 10 20 23 22 10 z..W..R.A&*. #".
0036C0: 20 C3 47 26 CD 48 21 C3 97 26 C3 97 26 EF 00 4A .G&.H!..&..&..J
0036D0: 26 7F 00 51 25 F1 00 47 25 F0 00 47 25 FC 00 47 &..Q%..G%..G%..G
0036E0: 25 1D 00 47 25 1B 00 47 25 F9 00 47 25 F8 00 47 %..G%..G%..G%..G
0036F0: 25 F5 00 47 25 F4 00 47 25 FB 00 36 25 FA 00 2D %..G%..G%..6%..-
003700: 25 F7 00 FF 24 F3 00 FF 24 F6 00 DE 24 F2 00 DE %...$...$...$...
003710: 24 0D 00 88 24 BF 25 21 00 00 EB C3 9E 26 E1 22 $...$.%!.....&."
003720: 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 88 FF DD .....!......!...
003730: 39 21 00 00 E5 2A 1A 20 E5 21 19 00 E5 21 06 00 9!...*. .!...!..
003740: E5 21 1F 00 E5 21 66 13 C3 D6 26 01 09 25 43 25 .!...!f...&..%C%
003750: 43 25 43 25 49 34 E5 CD 7E 14 21 0A 00 39 F9 2A C%C%I4..~.!..9.*
003760: 10 20 E5 21 19 00 E5 21 12 00 E5 21 1F 00 E5 21 . .!...!...!...!
003770: 7B 13 C3 00 27 01 09 25 43 25 43 25 43 25 49 32 {...'..%C%C%C%I2
003780: E5 CD 7E 14 21 0A 00 39 F9 2A 12 20 E5 2A 10 20 ..~.!..9.*. .*.
003790: E5 CD 5B 20 E1 E1 CD 1C 21 CD 02 19 EB DD 74 77 ..[ ....!.....tw
0037A0: DD 75 76 CD 32 21 DD 66 77 DD 6E 76 E5 DD 66 7F .uv.2!.fw.nv..f.
0037B0: DD 6E 7E E5 CD 61 24 E1 E1 EB DD 74 77 DD 75 76 .n~..a$....tw.uv
0037C0: DD 66 77 DD 6E 76 7C B5 CA B5 26 DD 66 7F DD 6E .fw.nv|...&.f..n
0037D0: 7E 23 E5 CD 63 21 E1 EB 2B E5 2A 14 20 ED 5B 12 ~#..c!..+.*. .[.
0037E0: 20 19 29 D1 73 23 72 DD 66 77 DD 6E 76 EB E1 C3 .).s#r.fw.nv...
0037F0: 73 27 E1 E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 s'..".....!.....
003800: 00 E5 CD 81 BB CD 18 BB DD 77 78 CD 84 BB DD 66 .........wx....f
003810: 79 DD 6E 78 EB E1 C3 9A 1D E1 E1 22 10 12 DD E1 y.nx......."....
003820: C9 21 00 00 CD 92 13 DD 21 86 FF DD 39 21 00 00 .!......!...9!..
003830: E5 CD 1B BB CD 0C BB 9F DD 77 78 DD 66 79 DD 6E .........wx.fy.n
003840: 78 11 00 00 A7 ED 52 21 FF FF 20 03 21 00 00 EB x.....R!.. .!...
003850: E1 C3 D5 1D E1 E1 22 10 12 DD E1 C9 21 00 00 CD ......".....!...
003860: 92 13 DD 21 86 FF DD 39 CD A1 1D EB 7C B5 CA F6 ...!...9....|...
003870: 1D CD 72 1D 18 F2 E1 22 10 12 DD E1 C9 21 00 00 ..r....".....!..
003880: CD 92 13 DD 21 88 FF DD 39 21 FF FF E5 DD E5 CD ....!...9!......
003890: 80 BC DD E1 30 07 DD 36 77 00 DD 77 76 DD 66 77 ....0..6w..wv.fw
0038A0: DD 6E 76 EB E1 C3 29 1E E1 E1 22 10 12 DD E1 C9 .nv...)...".....
0038B0: 21 00 00 CD 92 13 DD 21 88 FF DD 39 CD 7A BC 21 !......!...9.z.!
0038C0: FF FF EB C3 46 1E E1 22 10 12 DD E1 C9 21 00 00 ....F..".....!..
0038D0: CD 92 13 DD 21 8A FF DD 39 DD 66 7D DD 6E 7C 11 ....!...9.f}.n|.
0038E0: 0D 01 A7 ED 52 C2 86 1E 21 0D 00 E5 CD 4D 1E E1 ....R...!....M..
0038F0: EB 7C B5 C2 7D 1E 21 00 00 EB C3 A6 1E 21 0A 00 .|..}.!......!..
003900: DD 74 7D DD 75 7C DD 7E 7C DD E5 CD 95 BC DD E1 .t}.u|.~|.......
003910: 3E FF 38 02 3E 00 DD 77 7D DD 77 7C DD 66 7D DD >.8.>..w}.w|.f}.
003920: 6E 7C EB C3 A6 1E E1 22 10 12 DD E1 C9 21 00 00 n|.....".....!..
003930: CD 92 13 DD 21 88 FF DD 39 DD E5 CD 8F BC DD E1 ....!...9.......
003940: 3E FF 38 02 3E 00 DD 77 7F DD 77 7E DD 66 7F DD >.8.>..w..w~.f..
003950: 6E 7E EB C3 D6 1E E1 22 10 12 DD E1 C9 21 00 00 n~.....".....!..
003960: CD 92 13 DD 21 88 FF DD 39 DD 66 7F DD 6E 7E 22 ....!...9.f..n~"
003970: 24 14 E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD $..".....!......
003980: 21 88 FF DD 39 DD 66 7F DD 6E 7E 22 26 14 E1 22 !...9.f..n~"&.."
003990: 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 86 FF DD .....!......!...
0039A0: 39 2A 24 14 EB E1 22 10 12 DD E1 C9 21 00 00 CD 9*$...".....!...
0039B0: 92 13 DD 21 86 FF DD 39 2A 26 14 EB E1 22 10 12 ...!...9*&..."..
0039C0: DD E1 C9 21 00 00 CD 92 13 DD 21 88 FF DD 39 DD ...!......!...9.
0039D0: 66 7F DD 6E 7E 7C EE 80 67 11 61 80 A7 ED 52 DA f..n~|..g.a...R.
0039E0: 82 1F DD 56 7F DD 5E 7E 7A EE 80 57 21 7A 80 A7 ...V..^~z..W!z..
0039F0: ED 52 DA 82 1F DD 66 7F DD 6E 7E 11 E0 FF 19 C3 .R....f..n~.....
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 00 02 02 09 4E E5 03 00 C1 02 00 00 00 02 ......N.........
003A20: 03 00 C6 02 00 00 00 02 03 00 C2 02 00 00 00 02 ................
003A30: 03 00 C7 02 00 00 00 02 03 00 C3 02 00 00 00 02 ................
003A40: 03 00 C8 02 00 00 00 02 03 00 C4 02 00 00 00 02 ................
003A50: 03 00 C9 02 00 00 00 02 03 00 C5 02 00 00 00 02 ................
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: DD 21 8A FF DD 39 DD 66 7D DD 6E 7C 29 36 00 23 .!...9.f}.n|)6.#
003B10: 36 00 DD 66 7D DD 6E 7C 29 5E 23 56 EB 23 E5 DD 6..f}.n|)^#V.#..
003B20: 66 7D DD 6E 7C 29 D1 73 23 72 2A 0E 20 29 DD 56 f}.n|).s#r*. ).V
003B30: 7F DD 5E 7E 19 6E 26 00 E5 DD 66 7D DD 6E 7C 29 ..^~.n&...f}.n|)
003B40: 5E 23 56 EB EB DD 66 7D DD 6E 7C 19 29 D1 73 23 ^#V...f}.n|.).s#
003B50: 72 DD 66 7F DD 6E 7E 23 DD 74 7F DD 75 7E DD 66 r.f..n~#.t..u~.f
003B60: 7F DD 6E 7E 2B E5 2A 0E 20 29 D1 19 6E 26 00 11 ..n~+.*. )..n&..
003B70: 0D 00 A7 ED 52 C2 92 27 E1 22 10 12 DD E1 C9 21 ....R..'.".....!
003B80: 00 00 CD 92 13 DD 21 88 FF DD 39 21 01 00 E5 2A ......!...9!...*
003B90: 0E 20 29 DD 56 7F DD 5E 7E 19 6E 26 00 11 0D 00 . ).V..^~.n&....
003BA0: A7 ED 52 CA 42 28 DD 66 77 DD 6E 76 23 DD 74 77 ..R.B(.fw.nv#.tw
003BB0: DD 75 76 DD 66 7F DD 6E 7E 23 DD 74 7F DD 75 7E .uv.f..n~#.t..u~
003BC0: 18 CD DD 66 77 DD 6E 76 EB E1 C3 4E 28 E1 E1 22 ...fw.nv...N(.."
003BD0: 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 8C FF DD .....!......!...
003BE0: 39 DD 66 7F DD 6E 7E E5 DD 66 7D DD 6E 7C E5 CD 9.f..n~..f}.n|..
003BF0: 5B 20 E1 E1 2A 9C 28 E5 DD 66 7B DD 6E 7A E5 CD [ ..*.(..f{.nz..
003C00: FF 27 E1 DD 66 7B DD 6E 7A 19 11 FE FF 19 7C EE .'..f{.nz.....|.
003C10: 80 67 22 9C 28 DD 66 7B DD 6E 7A 11 00 00 EB 42 .g".(.f{.nz....B
003C20: 4B 7A EE 80 57 ED 52 DA C2 28 C5 2A 0E 20 29 DD Kz..W.R..(.*. ).
003C30: 56 71 DD 5E 70 19 6E 26 00 E5 CD 2C 14 E1 E1 23 Vq.^p.n&...,...#
003C40: 18 D9 E1 22 9C 28 DD 66 7B DD 6E 7A E5 CD FF 27 ...".(.f{.nz...'
003C50: E1 EB 2B E5 2A 14 20 DD 56 7F DD 5E 7E 19 29 D1 ..+.*. .V..^~.).
003C60: 73 23 72 E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 s#r.".....!.....
003C70: DD 21 86 FF DD 39 21 19 00 E5 21 01 00 E5 CD 5B .!...9!...!....[
003C80: 20 E1 E1 2A 10 20 E5 2A 1A 20 E5 21 89 14 C3 34 ..*. .*. .!...4
003C90: 29 01 21 4C 69 6E 65 3A 25 49 34 20 43 6F 6C 75 ).!Line:%I4 Colu
003CA0: 6D 6E 3A 25 49 32 20 28 45 53 43 20 74 6F 20 6D mn:%I2 (ESC to m
003CB0: 65 6E 75 29 E5 CD 7E 14 21 06 00 39 F9 E1 22 10 enu)..~.!..9..".
003CC0: 12 DD E1 C9 21 00 00 CD 92 13 DD 21 86 FF DD 39 ....!......!...9
003CD0: 21 04 00 E5 CD 2C 14 E1 21 02 00 E5 CD 2C 14 E1 !....,..!....,..
003CE0: CD 06 21 CD 32 21 2A 78 29 E5 21 18 00 7C EE 80 ..!.2!*x).!..|..
003CF0: 67 22 78 29 21 01 00 11 00 00 EB 42 4B 7A EE 80 g"x)!......BKz..
003D00: 07 4E 6F 20 72 6F 6F 6D E5 CD 52 2D E1 2A 0A 20 .No room..R-.*.
003D10: 11 FF FF A7 ED 52 C2 9F 31 21 00 00 22 0A 20 2A .....R..1!..". *
003D20: 16 20 E5 CD 45 1C E1 21 FF FF EB E1 E1 C3 E1 31 . ..E..!.......1
003D30: E1 C3 E0 31 DD 66 77 DD 6E 76 E5 21 E1 18 C3 CF ...1.fw.nv.!....
003D40: 31 01 0C 25 53 20 6E 6F 74 20 66 6F 75 6E 64 E5 1..%S not found.
003D50: CD 7E 14 E1 E1 CD 02 19 21 00 00 EB E1 C3 E1 31 .~......!......1
003D60: E1 2A 10 12 22 12 12 E1 22 10 12 DD E1 C9 21 2A .*.."...".....!*
003D70: 00 CD 92 13 DD 21 86 FF DD 39 2A 10 12 CB 3C CB .....!...9*...<.
003D80: 1D E5 C3 4F 32 21 00 00 CD 92 13 DD 21 88 FF DD ...O2!......!...
003D90: 39 21 0C 19 C3 2E 32 01 15 44 69 73 63 20 65 72 9!....2..Disc er
003DA0: 72 6F 72 2E 20 48 69 74 20 61 20 6B 65 79 E5 CD ror. Hit a key..
003DB0: 48 16 E1 CD 02 19 DD 66 7F DD 6E 7E E5 CD 9E 1C H......f..n~....
003DC0: E1 21 00 00 EB C3 48 32 E1 22 10 12 DD E1 C9 DD .!....H2."......
003DD0: 66 79 DD 6E 78 E5 21 13 00 E5 21 19 00 E5 CD EA fy.nx.!...!.....
003DE0: 2F 21 06 00 39 F9 2A 16 20 E5 DD 66 79 DD 6E 78 /!..9.*. ..fy.nx
003DF0: E5 CD 5D 1C E1 E1 EB 7C B5 CA 24 33 2A 8E 32 E5 ..]....|..$3*.2.
003E00: 2A 0A 20 7C EE 80 67 22 8E 32 21 00 00 11 00 00 *. |..g".2!.....
003E10: EB 42 4B 7A EE 80 57 ED 52 DA 0D 33 C5 2A 16 20 .BKz..W.R..3.*.
003E20: E5 2A 0E 20 29 DD 56 75 DD 5E 74 19 6E 26 00 E5 .*. ).Vu.^t.n&..
003E30: CD 4D 1E E1 E1 EB 7C B5 C2 CD 32 2A 16 20 E5 CD .M....|...2*. ..
003E40: 05 32 E1 EB EB 21 06 00 39 F9 C3 50 33 2A 0E 20 .2...!..9..P3*.
003E50: 29 DD 56 75 DD 5E 74 19 6E 26 00 11 0D 00 A7 ED ).Vu.^t.n&......
003E60: 52 C2 09 33 2A 16 20 E5 21 0A 00 E5 CD 4D 1E E1 R..3*. .!....M..
003E70: E1 EB 7C B5 C2 09 33 2A 16 20 E5 CD 05 32 E1 EB ..|...3*. ...2..
003E80: EB 21 06 00 39 F9 C3 50 33 E1 23 18 80 E1 22 8E .!..9..P3.#...".
003E90: 32 2A 16 20 E5 CD 9E 1C E1 21 FF FF EB E1 C3 50 2*. .....!.....P
003EA0: 33 C3 4F 33 21 95 19 C3 37 33 0C 43 61 6E 6E 6F 3.O3!...73.Canno
003EB0: 74 20 6F 70 65 6E 20 E5 CD 48 16 E1 DD 66 79 DD t open ..H...fy.
003EC0: 6E 78 E5 CD 48 16 E1 21 00 00 EB E1 C3 50 33 E1 nx..H..!.....P3.
003ED0: 2A 10 12 22 12 12 E1 22 10 12 DD E1 C9 21 00 00 *.."...".....!..
003EE0: CD 92 13 DD 21 86 FF DD 39 21 00 00 E5 21 01 00 ....!...9!...!..
003EF0: 22 1A 20 21 13 00 E5 21 19 00 E5 21 1F 00 E5 21 ". !...!...!...!
003F00: 57 ED 52 DA 9B 29 C5 2A 14 20 DD 56 77 DD 5E 76 W.R..).*. .Vw.^v
003F10: 19 29 36 00 23 36 00 E1 23 18 DC E1 22 78 29 CD .)6.#6..#..."x).
003F20: EA 28 E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD .(.".....!......
003F30: 21 86 FF DD 39 21 01 00 E5 21 01 00 E5 CD 5B 20 !...9!...!....[
003F40: E1 E1 21 0B 00 E5 CD 2C 14 E1 21 0D 00 E5 CD 2C ..!....,..!....,
003F50: 14 E1 CD EA 28 2A 14 20 11 18 00 19 29 5E 23 56 ....(*. ....)^#V
003F60: EB 11 DF FF 19 E5 CD 8C 20 E1 2A FC 29 E5 21 02 ........ .*.).!.
003F70: 00 7C EE 80 67 22 FC 29 21 18 00 11 00 00 44 4D .|..g".)!.....DM
003F80: 7C EE 80 67 ED 52 DA 2F 2A C5 DD 66 77 DD 6E 76 |..g.R./*..fw.nv
003F90: 2B EB 2A 14 20 19 29 5E 23 56 EB E5 2A 14 20 DD +.*. .)^#V..*. .
003FA0: 56 77 DD 5E 76 19 29 D1 73 23 72 E1 2B 18 CC E1 Vw.^v.).s#r.+...
003FB0: 22 FC 29 2A 14 20 23 29 36 00 23 36 00 E1 22 10 ".)*. #)6.#6..".
003FC0: 12 DD E1 C9 21 00 00 CD 92 13 DD 21 86 FF DD 39 ....!......!...9
003FD0: 21 19 00 E5 21 01 00 E5 CD 5B 20 E1 E1 21 21 00 !...!....[ ..!!.
003FE0: E5 CD 8C 20 E1 21 0A 00 E5 CD 2C 14 E1 21 0D 00 ... .!....,..!..
003FF0: E5 CD 2C 14 E1 2A 87 2A E5 21 17 00 7C EE 80 67 ..,..*.*.!..|..g
004000: 22 87 2A 21 01 00 11 00 00 EB 42 4B 7A EE 80 57 ".*!......BKz..W
004010: ED 52 DA BB 2A C5 DD 66 77 DD 6E 76 23 EB 2A 14 .R..*..fw.nv#.*.
004020: 20 19 29 5E 23 56 EB E5 2A 14 20 DD 56 77 DD 5E .)^#V..*. .Vw.^
004030: 76 19 29 D1 73 23 72 E1 23 18 CB E1 22 87 2A 2A v.).s#r.#...".**
004040: 14 20 11 18 00 19 29 36 00 23 36 00 CD EA 28 E1 . ....)6.#6...(.
004050: 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 8A FF ".....!......!..
004060: DD 39 2A F7 2A E5 21 18 00 7C EE 80 67 22 F7 2A .9*.*.!..|..g".*
004070: DD 66 7F DD 6E 7E 11 00 00 EB 42 4B 7A EE 80 57 .f..n~....BKz..W
004080: ED 52 DA F6 2B C5 21 00 00 E5 DD 66 73 DD 6E 72 .R..+.!....fs.nr
004090: E5 21 01 00 E5 CD 5B 20 E1 E1 2A 0A 20 DD 56 7D .!....[ ..*. .V}
0040A0: DD 5E 7C 7C EE 80 67 7A EE 80 57 A7 ED 52 D2 4E .^||..gz..W..R.N
0040B0: 2B 21 50 00 E5 CD 8C 20 E1 2A 14 20 DD 56 73 DD +!P.... .*. .Vs.
0040C0: 5E 72 19 29 36 00 23 36 00 E1 E1 C3 F6 2B DD 66 ^r.)6.#6.....+.f
0040D0: 7D DD 6E 7C E5 CD FF 27 E1 EB 2B DD 74 71 DD 75 }.n|...'..+.tq.u
0040E0: 70 2A 81 2B E5 DD 66 7D DD 6E 7C DD 56 71 DD 5E p*.+..f}.n|.Vq.^
0040F0: 70 19 2B 7C EE 80 67 22 81 2B DD 66 7D DD 6E 7C p.+|..g".+.f}.n|
004100: C3 19 C3 A0 33 01 19 25 43 25 43 25 43 45 6E 74 ....3..%C%C%CEnt
004110: 65 72 20 6C 69 6E 65 20 6E 75 6D 62 65 72 3A 20 er line number:
004120: E5 CD 7E 14 21 08 00 39 F9 CD 1C 21 CD EE 1A EB ..~.!..9...!....
004130: DD 74 79 DD 75 78 CD 32 21 21 00 00 22 0C 20 21 .ty.ux.2!!..". !
004140: 01 00 22 10 20 2A DA 33 E5 DD 66 79 DD 6E 78 7C ..". *.3..fy.nx|
004150: EE 80 67 22 DA 33 21 02 00 11 00 00 EB 42 4B 7A ..g".3!......BKz
004160: EE 80 57 ED 52 DA 1A 34 C5 2A 0C 20 E5 2A 0C 20 ..W.R..4.*. .*.
004170: E5 CD 01 2C E1 EB 22 0C 20 DD 66 73 DD 6E 72 ED ...,..". .fs.nr.
004180: 5B 0C 20 A7 ED 52 C2 0E 34 E1 E1 C3 1A 34 2A 1A [. ..R..4....4*.
004190: 20 23 22 1A 20 E1 E1 23 18 BF E1 22 DA 33 21 0C #". ..#...".3!.
0041A0: 00 22 12 20 E1 E1 22 10 12 DD E1 C9 21 00 00 CD .". ..".....!...
0041B0: 92 13 DD 21 8A FF DD 39 2A 51 34 E5 DD 66 7F DD ...!...9*Q4..f..
0041C0: 6E 7E 29 6E 26 00 7C EE 80 67 22 51 34 21 01 00 n~)n&.|..g"Q4!..
0041D0: 11 00 00 EB 42 4B 7A EE 80 57 ED 52 DA 9E 34 C5 ....BKz..W.R..4.
0041E0: DD 66 7F DD 6E 7E 29 DD 56 73 DD 5E 72 19 6E 26 .f..n~).Vs.^r.n&
0041F0: 00 E5 DD 66 7D DD 6E 7C DD 56 73 DD 5E 72 19 2B ...f}.n|.Vs.^r.+
004200: E5 2A 0E 20 29 D1 19 6E 26 00 D1 A7 ED 52 CA 9A .*. )..n&....R..
004210: 34 21 00 00 EB E1 E1 C3 A9 34 E1 23 18 B2 E1 22 4!.......4.#..."
004220: 51 34 21 FF FF EB C3 A9 34 E1 22 10 12 DD E1 C9 Q4!.....4.".....
004230: 21 2A 00 CD 92 13 DD 21 86 FF DD 39 2A 0C 20 E5 !*.....!...9*. .
004240: 2A 10 20 E5 2A 12 20 E5 2A 1A 20 E5 2A 10 12 CB *. .*. .*. .*...
004250: 3C CB 1D E5 21 13 00 E5 21 19 00 E5 21 1F 00 E5 <...!...!...!...
004260: 21 73 1A C3 FB 34 14 25 43 25 43 25 43 45 6E 74 !s...4.%C%C%CEnt
004270: 65 72 20 73 74 72 69 6E 67 3A 20 E5 CD 7E 14 21 er string: ..~.!
004280: 08 00 39 F9 CD 1C 21 DD 66 71 DD 6E 70 E5 CD 6C ..9...!.fq.np..l
004290: 19 E1 CD 32 21 2A 0C 20 ED 5B 10 20 19 2B 22 0C ...2!*. .[. .+".
0042A0: 20 2A 0E 20 29 ED 5B 0C 20 19 6E 26 00 11 0D 00 *. ).[. .n&....
0042B0: A7 ED 52 CA 3D 35 2A 0C 20 23 22 0C 20 2A 0C 20 ..R.=5*. #". *.
0042C0: ED 5B 0A 20 7C EE 80 67 7A EE 80 57 A7 ED 52 D2 .[. |..gz..W..R.
0042D0: 18 36 2A 0E 20 29 ED 5B 0C 20 19 6E 26 00 11 0D .6*. ).[. .n&...
0042E0: 00 A7 ED 52 C2 71 35 2A 1A 20 23 22 1A 20 C3 D2 ...R.q5*. #". ..
0042F0: 35 DD 66 71 DD 6E 70 E5 2A 0C 20 E5 CD 2C 34 E1 5.fq.np.*. ..,4.
004300: 11 00 00 EB 42 4B 7A EE 80 57 ED 52 DA A7 2B C5 ....BKz..W.R..+.
004310: 2A 0E 20 29 DD 56 6D DD 5E 6C 19 6E 26 00 E5 CD *. ).Vm.^l.n&...
004320: 2C 14 E1 E1 23 18 D9 E1 22 81 2B 2A 14 20 DD 56 ,...#...".+*. .V
004330: 73 DD 5E 72 19 29 5E 23 56 EB DD 56 71 DD 5E 70 s.^r.)^#V..Vq.^p
004340: A7 ED 52 E5 CD 8C 20 E1 2A 14 20 DD 56 73 DD 5E ..R... .*. .Vs.^
004350: 72 19 29 DD 56 71 DD 5E 70 73 23 72 DD 66 7D DD r.).Vq.^ps#r.f}.
004360: 6E 7C DD 56 71 DD 5E 70 19 23 DD 74 7D DD 75 7C n|.Vq.^p.#.t}.u|
004370: E1 E1 23 C3 F6 2A E1 22 F7 2A E1 22 10 12 DD E1 ..#..*.".*."....
004380: C9 21 00 00 CD 92 13 DD 21 88 FF DD 39 DD 66 7F .!......!...9.f.
004390: DD 6E 7E E5 CD FF 27 E1 DD 66 7F DD 6E 7E 19 EB .n~...'..f..n~..
0043A0: 2A 0A 20 7C EE 80 67 7A EE 80 57 A7 ED 52 D2 3E *. |..gz..W..R.>
0043B0: 2C CD 48 21 DD 66 7F DD 6E 7E EB C3 60 2C DD 66 ,.H!.f..n~..`,.f
0043C0: 7F DD 6E 7E E5 CD FF 27 E1 DD 66 7F DD 6E 7E 19 ..n~...'..f..n~.
0043D0: DD 74 7F DD 75 7E DD 66 7F DD 6E 7E EB C3 60 2C .t..u~.f..n~..`,
0043E0: E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 88 .".....!......!.
0043F0: FF DD 39 DD 7E 7F DD B6 7E C2 89 2C CD 48 21 DD ..9.~...~..,.H!.
004400: 66 7F DD 6E 7E EB C3 C3 2C DD 66 7F DD 6E 7E 2B f..n~...,.f..n~+
004410: DD 74 7F DD 75 7E DD 66 7F DD 6E 7E 2B E5 2A 0E .t..u~.f..n~+.*.
004420: 20 29 D1 19 6E 26 00 11 0D 00 A7 ED 52 CA B9 2C )..n&......R..,
004430: DD 7E 7F DD B6 7E C2 89 2C DD 66 7F DD 6E 7E EB .~...~..,.f..n~.
004440: C3 C3 2C E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 ..,.".....!.....
004450: DD 21 88 FF DD 39 DD 66 7F DD 6E 7E E5 CD 44 29 .!...9.f..n~..D)
004460: 2A F2 2C E5 21 02 00 7C EE 80 67 22 F2 2C 2A 12 *.,.!..|..g".,*.
004470: 20 11 00 00 44 4D 7C EE 80 67 ED 52 DA 36 2D C5 ...DM|..g.R.6-.
004480: DD 7E 77 DD B6 76 C2 20 2D 2A 12 20 DD 56 73 DD .~w..v. -*. .Vs.
004490: 5E 72 A7 ED 52 23 22 12 20 E1 C3 36 2D C3 32 2D ^r..R#". ..6-.2-
0044A0: DD 66 77 DD 6E 76 E5 CD 67 2C E1 EB DD 74 77 DD .fw.nv..g,...tw.
0044B0: 75 76 E1 2B 18 BB E1 22 F2 2C 21 01 00 E5 DD 66 uv.+...".,!....f
0044C0: 77 DD 6E 76 E5 CD D6 2A E1 E1 E1 E1 22 10 12 DD w.nv...*...."...
0044D0: E1 C9 21 00 00 CD 92 13 DD 21 88 FF DD 39 21 19 ..!......!...9!.
0044E0: 00 E5 21 01 00 E5 CD 5B 20 E1 E1 DD 66 7F DD 6E ..!....[ ...f..n
0044F0: 7E E5 21 BC 16 C3 94 2D 1B 25 53 2E 20 48 69 74 ~.!....-.%S. Hit
004500: E1 EB 7C B5 CA D2 35 2A 0C 20 DD 74 79 DD 75 78 ..|...5*. .ty.ux
004510: 2A 0C 20 2B E5 2A 0E 20 29 D1 19 6E 26 00 11 0D *. +.*. )..n&...
004520: 00 A7 ED 52 CA B8 35 2A 0C 20 7C B5 CA B8 35 2A ...R..5*. |...5*
004530: 0C 20 2B 22 0C 20 18 D8 DD 66 79 DD 6E 78 ED 5B . +". ...fy.nx.[
004540: 0C 20 A7 ED 52 23 22 10 20 21 0C 00 22 12 20 C3 . ..R#". !..". .
004550: 18 36 2A 0C 20 23 22 0C 20 2A 0C 20 ED 5B 0A 20 .6*. #". *. .[.
004560: 7C EE 80 67 7A EE 80 57 A7 ED 52 DA 15 36 DD 66 |..gz..W..R..6.f
004570: 79 DD 6E 78 22 0C 20 DD 66 77 DD 6E 76 22 10 20 y.nx". .fw.nv".
004580: DD 66 75 DD 6E 74 22 12 20 DD 66 73 DD 6E 72 22 .fu.nt". .fs.nr"
004590: 1A 20 C3 18 36 C3 52 35 E1 21 08 00 39 F9 2A 10 . ..6.R5.!..9.*.
0045A0: 12 22 12 12 E1 22 10 12 DD E1 C9 21 00 00 CD 92 ."...".....!....
0045B0: 13 DD 21 88 FF DD 39 21 00 00 E5 2A 0C 20 E5 DD ..!...9!...*. ..
0045C0: 66 7F DD 6E 7E E5 CD F8 2E E1 E1 21 00 00 E5 21 f..n~......!...!
0045D0: 0C 00 E5 CD 2C 14 E1 21 04 00 E5 21 20 00 E5 CD ....,..!...! ...
0045E0: 5B 20 E1 E1 21 35 1B C3 76 36 0B 42 43 50 4C 20 [ ..!5..v6.BCPL
0045F0: 65 64 69 74 6F 72 E5 CD 48 16 E1 21 05 00 E5 21 editor..H..!...!
004600: 20 00 E5 CD 5B 20 E1 E1 21 47 1B C3 9A 36 0B 2D ...[ ..!G...6.-
004610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D E5 CD 48 16 E1 21 ----------..H..!
004620: 09 00 E5 21 20 00 E5 CD 5B 20 E1 E1 21 59 1B C3 ...! ...[ ..!Y..
004630: BF 36 0C 4C 3A 20 4C 6F 61 64 20 74 65 78 74 E5 .6.L: Load text.
004640: CD 48 16 E1 21 0A 00 E5 21 20 00 E5 CD 5B 20 E1 .H..!...! ...[ .
004650: E1 21 6C 1B C3 E5 36 01 0C 53 3A 20 53 61 76 65 .!l...6..S: Save
004660: 20 74 65 78 74 E5 CD 48 16 E1 21 0B 00 E5 21 20 text..H..!...!
004670: 00 E5 CD 5B 20 E1 E1 21 7F 1B C3 0B 37 01 0C 45 ...[ ..!....7..E
004680: 3A 20 45 64 69 74 20 74 65 78 74 E5 CD 48 16 E1 : Edit text..H..
004690: 21 0C 00 E5 21 20 00 E5 CD 5B 20 E1 E1 21 92 1B !...! ...[ ..!..
0046A0: C3 31 37 01 0C 47 3A 20 47 6F 74 6F 20 6C 69 6E .17..G: Goto lin
0046B0: 65 E5 CD 48 16 E1 21 0D 00 E5 21 20 00 E5 CD 5B e..H..!...! ...[
0046C0: 20 E1 E1 21 A5 1B C3 59 37 01 0E 46 3A 20 46 69 ..!...Y7..F: Fi
0046D0: 6E 64 20 73 74 72 69 6E 67 E5 CD 48 16 E1 21 0E nd string..H..!.
0046E0: 00 E5 21 20 00 E5 CD 5B 20 E1 E1 21 B9 1B C3 7A ..! ...[ ..!...z
0046F0: 37 01 07 51 3A 20 51 75 69 74 E5 CD 48 16 E1 21 7..Q: Quit..H..!
004700: 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E 74 any key to cont
004710: 69 6E 75 65 E5 CD 7E 14 E1 E1 CD 48 21 CD 02 19 inue..~....H!...
004720: 21 19 00 E5 21 21 00 E5 CD 5B 20 E1 E1 21 14 00 !...!!...[ ..!..
004730: E5 CD 8C 20 E1 CD EA 28 21 FF FF 22 18 20 2A 0C ... ...(!..". *.
004740: 20 E5 CD CA 2C E1 2A 20 20 E5 2A 22 20 E5 CD 2E ...,.* .*" ...
004750: 13 E1 E1 E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 ....".....!.....
004760: DD 21 8A FF DD 39 2A 0A 20 DD 56 7D DD 5E 7C A7 .!...9*. .V}.^|.
004770: ED 52 23 E5 2A 0E 20 29 DD 56 7D DD 5E 7C 19 DD .R#.*. ).V}.^|..
004780: 56 7F DD 5E 7E 19 E5 2A 0E 20 29 DD 56 7D DD 5E V..^~..*. ).V}.^
004790: 7C 19 E5 CD 24 20 21 06 00 39 F9 2A 0A 20 DD 56 |...$ !..9.*. .V
0047A0: 7F DD 5E 7E 19 22 0A 20 E1 22 10 12 DD E1 C9 21 ..^~.". .".....!
0047B0: 00 00 CD 92 13 DD 21 8A FF DD 39 2A 0A 20 DD 56 ......!...9*. .V
0047C0: 7D DD 5E 7C A7 ED 52 DD 56 7F DD 5E 7E A7 ED 52 }.^|..R.V..^~..R
0047D0: 23 E5 2A 0E 20 29 DD 56 7D DD 5E 7C 19 E5 2A 0E #.*. ).V}.^|..*.
0047E0: 20 29 DD 56 7D DD 5E 7C 19 DD 56 7F DD 5E 7E 19 ).V}.^|..V..^~.
0047F0: E5 CD 24 20 21 06 00 39 F9 2A 0A 20 DD 56 7F DD ..$ !..9.*. .V..
004800: 5E 7E A7 ED 52 22 0A 20 E1 22 10 12 DD E1 C9 21 ^~..R". .".....!
004810: 00 00 CD 92 13 DD 21 8C FF DD 39 2A B1 2E E5 DD ......!...9*....
004820: 66 7F DD 6E 7E 2B 7C EE 80 67 22 B1 2E 21 00 00 f..n~+|..g"..!..
004830: 11 00 00 EB 42 4B 7A EE 80 57 ED 52 DA ED 2E C5 ....BKz..W.R....
004840: DD 66 7B DD 6E 7A DD 56 71 DD 5E 70 19 29 5E 23 .f{.nz.Vq.^p.)^#
004850: 56 EB E5 DD 66 7D DD 6E 7C DD 56 71 DD 5E 70 19 V...f}.n|.Vq.^p.
004860: E5 2A 0E 20 29 D1 19 D1 73 E1 23 18 C3 E1 22 B1 .*. )...s.#...".
004870: 2E E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 ..".....!......!
004880: 8A FF DD 39 DD 66 7F DD 6E 7E E5 CD FF 27 E1 EB ...9.f..n~...'..
004890: E5 DD 66 7D DD 6E 7C 29 5E 23 56 EB E5 DD 66 73 ..f}.n|)^#V...fs
0048A0: DD 6E 72 DD 56 75 DD 5E 74 A7 ED 52 ED 5B 0A 20 .nr.Vu.^t..R.[.
0048B0: 19 7C EE 80 67 11 1E CE A7 ED 52 D2 CE 2F DD 66 .|..g.....R../.f
0048C0: 73 DD 6E 72 DD 56 75 DD 5E 74 7C EE 80 67 7A EE s.nr.Vu.^t|..gz.
0048D0: 80 57 A7 ED 52 D2 77 2F DD 66 75 DD 6E 74 DD 56 .W..R.w/.fu.nt.V
0048E0: 73 DD 5E 72 A7 ED 52 E5 DD 66 7F DD 6E 7E E5 CD s.^r..R..f..n~..
0048F0: 2F 2E E1 E1 C3 AD 2F DD 66 75 DD 6E 74 DD 56 73 /...../.fu.nt.Vs
004900: 11 00 E5 21 20 00 E5 CD 5B 20 E1 E1 21 C9 1B C3 ...! ...[ ..!...
004910: A2 37 0F 53 65 6C 65 63 74 20 6F 70 74 69 6F 6E .7.Select option
004920: 3A 20 E5 CD 48 16 E1 CD 1C 21 CD 02 19 EB DD 74 : ..H....!.....t
004930: 75 DD 75 74 CD 32 21 DD 66 75 DD 6E 74 11 EF 00 u.ut.2!.fu.nt...
004940: A7 ED 52 CA A7 37 DD 66 75 DD 6E 74 11 58 38 3E ..R..7.fu.nt.X8>
004950: 0C C3 7E 12 21 4C 00 E5 CD 2C 14 E1 DD 66 7F DD ..~.!L...,...f..
004960: 6E 7E E5 CD 42 30 E1 EB 7C B5 CA F1 37 E1 C3 91 n~..B0..|...7...
004970: 38 C3 8A 38 21 53 00 E5 CD 2C 14 E1 CD EE 31 EB 8..8!S...,....1.
004980: 7C B5 CA 09 38 E1 C3 91 38 C3 8A 38 21 47 00 E5 |...8...8..8!G..
004990: CD 2C 14 E1 CD 5D 33 E1 C3 91 38 21 46 00 E5 CD .,...]3...8!F...
0049A0: 2C 14 E1 2A 10 20 E5 DD 66 7F DD 6E 7E E5 CD 01 ,..*. ..f..n~...
0049B0: 24 E1 E1 EB 22 10 20 CD B0 34 E1 C3 91 38 21 45 $...". ..4...8!E
0049C0: 00 E5 CD 2C 14 E1 E1 C3 91 38 21 51 00 E5 CD 2C ...,.....8!Q...,
0049D0: 14 E1 C3 D6 12 C3 8A 38 71 00 4A 38 51 00 4A 38 .......8q.J8Q.J8
0049E0: 65 00 3E 38 45 00 3E 38 66 00 1B 38 46 00 1B 38 e.>8E.>8f..8F..8
0049F0: 67 00 0C 38 47 00 0C 38 73 00 F4 37 53 00 F4 37 g..8G..8s..7S..7
004A00: 6C 00 D4 37 4C 00 D4 37 8A 38 CD 48 21 E1 C3 4B l..7L..7.8.H!..K
004A10: 36 2A 0C 20 E5 CD CA 2C E1 E1 E1 22 10 12 DD E1 6*. ...,..."....
004A20: C9 21 00 00 CD 92 13 DD 21 88 FF DD 39 2A 0C 20 .!......!...9*.
004A30: 7C B5 CA C8 39 2A 0C 20 E5 2A 0C 20 E5 CD 67 2C |...9*. .*. ..g,
004A40: E1 EB E5 DD 66 7F DD 6E 7E 29 5E 23 56 EB E5 DD ....f..n~)^#V...
004A50: 66 75 DD 6E 74 E5 CD FF 27 E1 EB D1 19 2B 7C EE fu.nt...'....+|.
004A60: 80 67 11 50 80 A7 ED 52 D2 A1 39 2A 0C 20 E5 CD .g.P...R..9*. ..
004A70: FF 27 E1 D5 DD 66 7F DD 6E 7E 29 5E 23 56 EB D1 .'...f..n~)^#V..
004A80: A7 ED 52 ED 5B 0A 20 19 7C EE 80 67 11 1E CE A7 ..R.[. .|..g....
004A90: ED 52 DA 29 39 21 8E 1C C3 24 39 01 07 4E 6F 20 .R.)9!...$9..No
004AA0: 72 6F 6F 6D E5 CD 52 2D E1 2A 0C 20 2B E5 2A 0E room..R-.*. +.*.
004AB0: 20 29 D1 19 36 00 2A 0C 20 2B E5 DD 66 7F DD 6E )..6.*. +..f..n
004AC0: 7E E5 CD F8 2E E1 E1 DD 66 75 DD 6E 74 22 0C 20 ~.......fu.nt".
004AD0: 2A 1A 20 2B 22 1A 20 DD 66 7F DD 6E 7E 29 5E 23 *. +". .f..n~)^#
004AE0: 56 EB E5 2A 0C 20 E5 CD FF 27 E1 EB D1 A7 ED 52 V..*. ...'.....R
004AF0: 23 22 10 20 2A 12 20 11 01 00 A7 ED 52 C2 97 39 #". *. .....R..9
004B00: DD 5E 72 7C EE 80 67 7A EE 80 57 A7 ED 52 D2 AD .^r|..gz..W..R..
004B10: 2F DD 66 73 DD 6E 72 DD 56 75 DD 5E 74 A7 ED 52 /.fs.nr.Vu.^t..R
004B20: E5 DD 66 7F DD 6E 7E E5 CD DA 2D E1 E1 DD 66 73 ..f..n~...-...fs
004B30: DD 6E 72 E5 DD 66 7F DD 6E 7E E5 DD 66 7D DD 6E .nr..f..n~..f}.n
004B40: 7C 23 E5 CD 8F 2E 21 06 00 39 F9 C3 E1 2F 21 EA |#....!..9.../!.
004B50: 17 C3 DC 2F 07 4E 6F 20 72 6F 6F 6D E5 CD 52 2D .../.No room..R-
004B60: E1 E1 E1 E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 ....".....!.....
004B70: DD 21 8C FF DD 39 DD 66 7D DD 6E 7C E5 DD 66 7B .!...9.f}.n|..f{
004B80: DD 6E 7A E5 CD 5B 20 E1 E1 21 08 18 C3 22 30 01 .nz..[ ..!..."0.
004B90: 11 45 6E 74 65 72 20 66 69 6C 65 20 6E 61 6D 65 .Enter file name
004BA0: 3A 20 E5 CD 48 16 E1 CD 1C 21 DD 66 7F DD 6E 7E : ..H....!.f..n~
004BB0: E5 CD 6C 19 E1 CD 32 21 CD E7 18 E1 22 10 12 DD ..l...2!...."...
004BC0: E1 C9 21 2A 00 CD 92 13 DD 21 88 FF DD 39 2A 10 ..!*.....!...9*.
004BD0: 12 CB 3C CB 1D E5 DD 66 77 DD 6E 76 E5 21 13 00 ..<....fw.nv.!..
004BE0: E5 21 19 00 E5 CD EA 2F 21 06 00 39 F9 2A 16 20 .!...../!..9.*.
004BF0: E5 DD 66 77 DD 6E 76 E5 CD 04 1C E1 E1 EB 7C B5 ..fw.nv.......|.
004C00: CA B4 31 21 00 00 E5 21 00 00 22 0C 20 21 01 00 ..1!...!..". !..
004C10: 22 10 20 21 01 00 22 12 20 21 01 00 22 1A 20 21 ". !..". !..". !
004C20: FF FF 22 0A 20 2A 0E 20 29 36 0D 2A 16 20 E5 CD ..". *. )6.*. ..
004C30: FD 1D E1 EB DD 74 75 DD 75 74 DD 66 75 DD 6E 74 .....tu.ut.fu.nt
004C40: 11 1A 00 A7 ED 52 CA 18 31 DD 66 75 DD 6E 74 11 .....R..1.fu.nt.
004C50: FF FF A7 ED 52 CA 18 31 2A 0A 20 11 1E 4E A7 ED ....R..1*. ..N..
004C60: 52 CA 18 31 DD 66 75 DD 6E 74 11 0A 00 A7 ED 52 R..1.fu.nt.....R
004C70: CA 07 31 2A 0A 20 23 22 0A 20 2A 0E 20 29 ED 5B ..1*. #". *. ).[
004C80: 0A 20 19 DD 7E 74 77 2A 16 20 E5 CD FD 1D E1 EB . ..~tw*. ......
004C90: DD 74 75 DD 75 74 18 A2 2A 0E 20 29 ED 5B 0A 20 .tu.ut..*. ).[.
004CA0: 19 6E 26 00 11 0D 00 A7 ED 52 CA 3F 31 2A 0A 20 .n&......R.?1*.
004CB0: 23 22 0A 20 2A 0E 20 29 ED 5B 0A 20 19 36 0D 2A #". *. ).[. .6.*
004CC0: 0A 20 7C EE 80 67 11 1E CE A7 ED 52 DA 8D 31 2A . |..g.....R..1*
004CD0: 0A 20 2B 22 0A 20 2A 0E 20 29 ED 5B 0A 20 19 36 . +". *. ).[. .6
004CE0: 0D 2A 16 20 E5 CD 45 1C E1 21 00 00 E5 DD 66 7F .*. ..E..!....f.
004CF0: DD 6E 7E E5 CD 7A 27 E1 E1 21 C0 18 C3 88 31 01 .n~..z'..!....1.
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 00 02 02 09 4E E5 04 00 C1 02 00 00 00 02 ......N.........
004D20: 04 00 C6 02 00 00 00 02 04 00 C2 02 00 00 00 02 ................
004D30: 04 00 C7 02 00 00 00 02 04 00 C3 02 00 00 00 02 ................
004D40: 04 00 C8 02 00 00 00 02 04 00 C4 02 00 00 00 02 ................
004D50: 04 00 C9 02 00 00 00 02 04 00 C5 02 00 00 00 02 ................
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 21 01 00 E5 21 01 00 E5 2A 0C 20 E5 CD 55 28 21 !...!...*. ..U(!
004E10: 06 00 39 F9 C3 9E 39 2A 12 20 2B 22 12 20 C3 C3 ..9...9*. +". ..
004E20: 39 21 D4 1C C3 BE 39 01 15 4C 69 6E 65 20 74 6F 9!....9..Line to
004E30: 6F 20 6C 6F 6E 67 20 74 6F 20 6A 6F 69 6E E5 CD o long to join..
004E40: 52 2D E1 E1 E1 C3 DF 39 21 E7 1C C3 DA 39 0B 54 R-.....9!....9.T
004E50: 6F 70 20 6F 66 20 66 69 6C 65 E5 CD 52 2D E1 E1 op of file..R-..
004E60: 22 10 12 DD E1 C9 21 A2 00 CD 92 13 DD 21 88 FF ".....!......!..
004E70: DD 39 2A 10 12 CB 3C CB 1D E5 21 01 00 E5 2A 18 .9*...<...!...*.
004E80: 3A E5 DD 66 7F DD 6E 7E 29 5E 23 56 EB 7C EE 80 :..f..n~)^#V.|..
004E90: 67 22 18 3A 21 00 00 11 00 00 EB 42 4B 7A EE 80 g".:!......BKz..
004EA0: 57 ED 52 DA 50 3A C5 DD 66 7F DD 6E 7E DD 56 71 W.R.P:..f..n~.Vq
004EB0: DD 5E 70 19 29 5E 23 56 EB E5 DD 66 77 DD 6E 76 .^p.)^#V...fw.nv
004EC0: DD 56 71 DD 5E 70 19 29 D1 73 23 72 E1 23 18 C7 .Vq.^p.).s#r.#..
004ED0: E1 22 18 3A DD 66 7F DD 6E 7E DD 56 75 DD 5E 74 .".:.f..n~.Vu.^t
004EE0: 19 29 5E 23 56 EB 11 0D 00 A7 ED 52 CA 7E 3A DD .)^#V......R.~:.
004EF0: 66 75 DD 6E 74 23 DD 74 75 DD 75 74 18 D6 2A 9C fu.nt#.tu.ut..*.
004F00: 3A E5 DD 66 7F DD 6E 7E 29 5E 23 56 EB 2B 7C EE :..f..n~)^#V.+|.
004F10: 80 67 22 9C 3A DD 66 75 DD 6E 74 11 00 00 EB 42 .g".:.fu.nt....B
004F20: 4B 7A EE 80 57 ED 52 DA D6 3A C5 DD 66 71 DD 6E Kz..W.R..:..fq.n
004F30: 70 23 EB DD 66 7F DD 6E 7E 19 29 5E 23 56 EB E5 p#..f..n~.)^#V..
004F40: DD 66 7F DD 6E 7E DD 56 71 DD 5E 70 19 29 D1 73 .f..n~.Vq.^p.).s
004F50: 23 72 E1 23 18 C5 E1 22 9C 3A DD 66 7F DD 6E 7E #r.#...".:.f..n~
004F60: 29 5E 23 56 EB 2B E5 DD 66 7F DD 6E 7E 29 D1 73 )^#V.+..f..n~).s
004F70: 23 72 2A 0C 20 E5 DD 66 77 DD 6E 76 E5 CD F8 2E #r*. ..fw.nv....
004F80: E1 E1 21 01 00 22 10 20 2A 1A 20 23 22 1A 20 2A ..!..". *. #". *
004F90: 0C 20 E5 CD 01 2C E1 EB 22 0C 20 2A 12 20 11 18 . ...,..". *. ..
004FA0: 00 A7 ED 52 C2 41 3B CD 44 2A 21 18 00 E5 21 01 ...R.A;.D*!...!.
004FB0: 00 E5 2A 0C 20 E5 CD 55 28 21 06 00 39 F9 C3 48 ..*. ..U(!..9..H
004FC0: 3B 2A 12 20 23 22 12 20 E1 E1 2A 10 12 22 12 12 ;*. #". ..*.."..
004FD0: E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 86 .".....!......!.
004FE0: FF DD 39 2A 0C 20 7C B5 CA AB 3B 2A 0C 20 E5 CD ..9*. |...;*. ..
004FF0: 67 2C E1 EB 22 0C 20 2A 1A 20 2B 22 1A 20 2A 12 g,..". *. +". *.
005000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0050F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0051F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005200: 20 11 01 00 A7 ED 52 C2 A4 3B CD A9 29 21 01 00 .....R..;..)!..
005210: E5 21 01 00 E5 2A 0C 20 E5 CD 55 28 21 06 00 39 .!...*. ..U(!..9
005220: F9 C3 AB 3B 2A 12 20 2B 22 12 20 E1 22 10 12 DD ...;*. +". ."...
005230: E1 C9 21 00 00 CD 92 13 DD 21 88 FF DD 39 2A 0C ..!......!...9*.
005240: 20 E5 DD 66 7F DD 6E 7E E5 CD F8 2E E1 E1 CD 57 ..f..n~.......W
005250: 3B E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 ;.".....!......!
005260: 86 FF DD 39 2A 0C 20 E5 2A 0C 20 E5 CD 01 2C E1 ...9*. .*. ...,.
005270: EB 22 0C 20 2A 0C 20 DD 56 79 DD 5E 78 A7 ED 52 .". *. .Vy.^x..R
005280: CA 37 3C 2A 1A 20 23 22 1A 20 2A 12 20 11 18 00 .7<*. #". *. ...
005290: A7 ED 52 C2 30 3C CD 44 2A 21 18 00 E5 21 01 00 ..R.0<.D*!...!..
0052A0: E5 2A 0C 20 E5 CD 55 28 21 06 00 39 F9 C3 37 3C .*. ..U(!..9..7<
0052B0: 2A 12 20 23 22 12 20 E1 E1 22 10 12 DD E1 C9 21 *. #". ..".....!
0052C0: 00 00 CD 92 13 DD 21 88 FF DD 39 2A 0C 20 E5 DD ......!...9*. ..
0052D0: 66 7F DD 6E 7E E5 CD F8 2E E1 E1 CD D8 3B E1 22 f..n~........;."
0052E0: 10 12 DD E1 C9 21 00 00 CD 92 13 DD 21 88 FF DD .....!......!...
0052F0: 39 2A 0C 20 E5 DD 66 7F DD 6E 7E E5 CD F8 2E E1 9*. ..f..n~.....
005300: E1 2A 93 3C E5 21 14 00 7C EE 80 67 22 93 3C 21 .*.<.!..|..g".<!
005310: 01 00 11 00 00 EB 42 4B 7A EE 80 57 ED 52 DA B5 ......BKz..W.R..
005320: 3C C5 2A 0C 20 7C B5 C2 AE 3C E1 C3 B5 3C CD 57 <.*. |...<...<.W
005330: 3B E1 23 18 DD E1 22 93 3C E1 22 10 12 DD E1 C9 ;.#...".<.".....
005340: 21 00 00 CD 92 13 DD 21 88 FF DD 39 2A 0C 20 E5 !......!...9*. .
005350: DD 66 7F DD 6E 7E E5 CD F8 2E E1 E1 2A EE 3C E5 .f..n~......*.<.
005360: 21 14 00 7C EE 80 67 22 EE 3C 21 01 00 11 00 00 !..|..g".<!.....
005370: EB 42 4B 7A EE 80 57 ED 52 DA 1E 3D C5 2A 0C 20 .BKz..W.R..=.*.
005380: E5 CD D8 3B DD 66 73 DD 6E 72 ED 5B 0C 20 A7 ED ...;.fs.nr.[. ..
005390: 52 C2 19 3D E1 E1 C3 1E 3D E1 E1 23 18 CF E1 22 R..=....=..#..."
0053A0: EE 3C E1 22 10 12 DD E1 C9 21 00 00 CD 92 13 DD .<.".....!......
0053B0: 21 88 FF DD 39 2A 0C 20 E5 DD 66 7F DD 6E 7E E5 !...9*. ..f..n~.
0053C0: CD F8 2E E1 E1 21 00 00 22 0C 20 21 01 00 22 10 .....!..". !..".
0053D0: 20 21 01 00 22 12 20 21 01 00 22 1A 20 2A 0C 20 !..". !..". *.
0053E0: E5 CD CA 2C E1 E1 22 10 12 DD E1 C9 21 00 00 CD ...,..".....!...
0053F0: 92 13 DD 21 88 FF DD 39 21 00 00 E5 2A 0C 20 E5 ...!...9!...*. .
005400: 00 42 43 50 4C 20 20 20 20 42 41 53 00 00 00 00 .BCPL BAS....
005410: 00 00 00 00 00 70 01 00 38 04 00 00 00 00 00 00 .....p..8.......
005420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005440: 38 04 00 60 03 20 73 74 61 72 74 20 63 6F 6D 70 8..`. start comp
005450: 69 6C 65 72 20 75 73 65 20 7C 42 43 50 4C 2C 20 iler use |BCPL,
005460: 74 6F 20 72 75 6E 20 74 68 65 20 63 6F 64 65 20 to run the code
005470: 7C 47 4F 22 00 06 00 A4 01 B1 00 00 00 1A 69 6C |GO"..........il
005480: 4C 00 01 00 01 C0 20 42 43 50 4C 20 43 6F 6D 70 L..... BCPL Comp
005490: 69 6C 65 72 20 6C 6F 61 64 65 72 20 70 72 6F 67 iler loader prog
0054A0: 72 61 6D 20 66 6F 72 20 41 4D 53 44 4F 53 20 64 ram for AMSDOS d
0054B0: 69 73 63 20 76 65 72 73 69 6F 6E 20 20 28 63 29 isc version (c)
0054C0: 20 41 72 6E 6F 72 20 31 39 38 36 00 08 00 0A 00 Arnor 1986.....
0054D0: AD 20 10 00 08 00 14 00 C5 20 42 00 0C 00 1E 00 . ....... B.....
0054E0: AE 20 0E 2C 1A 8F 01 00 2F 00 28 00 95 20 19 5A . .,..../.(.. .Z
0054F0: 2C 0E 01 95 20 19 1E 2C F5 19 1E 01 95 20 0E 2C ,... ..,..... .,
005500: F5 19 46 01 95 20 F5 19 1E 2C F5 19 1E 01 95 20 ..F.. ...,.....
005510: 19 1E 2C F5 19 1E 00 26 00 32 00 95 20 0E 2C F5 ..,....&.2.. .,.
005520: 19 46 01 95 20 F5 19 1E 2C F5 19 1E 01 95 20 F5 .F.. ...,..... .
005530: 19 5A 2C 0E 01 95 20 0E 2C 1A 04 01 00 2F 00 3C .Z,... .,..../.<
005540: 00 AF 20 19 14 2C F5 19 14 01 95 20 19 3B 2C 0E .. ..,..... .;,.
005550: 01 95 20 19 14 2C F5 19 15 01 95 20 0E 2C F5 19 .. ..,..... .,..
005560: 32 01 95 20 F5 19 14 2C F5 19 14 00 13 00 46 00 2.. ...,......F.
005570: 95 20 F5 19 3B 2C 0E 01 95 20 0E 2C 19 5B 00 2E . ..;,... .,.[..
005580: 00 50 00 AF 20 0E 2C F5 19 82 01 95 20 19 3B 2C .P.. .,..... .;,
005590: 0E 01 95 20 19 14 2C F5 19 15 01 95 20 0E 2C F5 ... ..,..... .,.
0055A0: 19 32 01 95 20 F5 19 14 2C F5 19 14 00 13 00 5A .2.. ...,......Z
0055B0: 00 95 20 F5 19 3B 2C 0E 01 95 20 0E 2C 19 5B 00 .. ..;,... .,.[.
0055C0: 08 00 64 00 C5 20 43 00 0D 00 6E 00 AE 20 19 A0 ..d.. C...n.. ..
0055D0: 2C 1A 71 01 00 2C 00 78 00 95 20 19 1E 2C 19 1E ,.q..,.x.. ..,..
0055E0: 01 95 20 19 3C 2C 0E 01 95 20 19 1E 2C F5 19 1E .. .<,... ..,...
0055F0: 01 95 20 0E 2C F5 19 1E 01 95 20 F5 19 14 2C 0E .. .,..... ...,.
005600: DD 66 7F DD 6E 7E E5 CD F8 2E E1 E1 21 00 00 22 .f..n~......!.."
005610: 0C 20 21 01 00 22 10 20 21 01 00 22 12 20 21 00 . !..". !..". !.
005620: 00 22 1A 20 2A 0C 20 DD 74 77 DD 75 76 2A 0C 20 .". *. .tw.uv*.
005630: E5 CD 01 2C E1 EB 22 0C 20 2A 12 20 23 22 12 20 ...,..". *. #".
005640: 2A 1A 20 23 22 1A 20 DD 66 77 DD 6E 76 ED 5B 0C *. #". .fw.nv.[.
005650: 20 A7 ED 52 C2 A4 3D ED 5B 12 20 7A EE 80 57 21 ..R..=.[. z..W!
005660: 18 80 A7 ED 52 D2 EE 3D 21 18 00 22 12 20 2A 0C ....R..=!..". *.
005670: 20 E5 CD CA 2C E1 E1 E1 22 10 12 DD E1 C9 21 04 ...,...".....!.
005680: 57 CD 92 13 DD 21 86 FF DD 39 2A 10 12 CB 3C CB W....!...9*...<.
005690: 1D E5 2A 10 12 11 02 08 19 CB 3C CB 1D E5 2A 10 ..*.......<...*.
0056A0: 12 11 34 08 19 CB 3C CB 1D E5 2A 10 12 11 56 56 ..4...<...*...VV
0056B0: 19 CB 3C CB 1D E5 2A 10 12 11 FA 56 19 CB 3C CB ..<...*....V..<.
0056C0: 1D E5 21 00 00 E5 21 00 00 E5 21 FF FF E5 21 00 ..!...!...!...!.
0056D0: 00 22 0C 20 21 00 00 22 0A 20 DD 66 75 DD 6E 74 .". !..". .fu.nt
0056E0: 22 0E 20 DD 66 71 DD 6E 70 22 20 20 DD 66 77 DD ". .fq.np" .fw.
0056F0: 6E 76 22 14 20 DD 66 79 DD 6E 78 22 16 20 CD 44 nv". .fy.nx". .D
005700: 29 2A 0E 20 29 36 0D 2A 20 20 E5 CD 08 13 E1 2A )*. )6.* .....*
005710: 0C 20 E5 DD 66 73 DD 6E 72 E5 CD 7A 27 E1 E1 DD . ..fs.nr..z'...
005720: 66 6B DD 6E 6A 7C B5 CA B7 3E 2A 12 20 E5 2A 0C fk.nj|...>*. .*.
005730: 20 E5 CD D6 2A E1 E1 2A 18 20 7C B5 CA 32 3F 2A ...*..*. |..2?*
005740: 12 20 E5 21 01 00 E5 CD 5B 20 E1 E1 2A E7 3E E5 . .!....[ ..*.>.
005750: DD 66 73 DD 6E 72 29 5E 23 56 EB 2B 7C EE 80 67 .fs.nr)^#V.+|..g
005760: 22 E7 3E 21 01 00 11 00 00 EB 42 4B 7A EE 80 57 ".>!......BKz..W
005770: ED 52 DA 11 3F C5 DD 66 73 DD 6E 72 DD 56 67 DD .R..?..fs.nr.Vg.
005780: 5E 66 19 29 5E 23 56 EB E5 CD 2C 14 E1 E1 23 18 ^f.)^#V...,...#.
005790: D5 E1 22 E7 3E DD 66 73 DD 6E 72 29 5E 23 56 EB ..".>.fs.nr)^#V.
0057A0: EB 21 50 00 A7 ED 52 E5 CD 8C 20 E1 21 00 00 22 .!P...R... .!.."
0057B0: 18 20 DD 66 73 DD 6E 72 E5 CD A5 26 E1 EB DD 74 . .fs.nr...&...t
0057C0: 6D DD 75 6C 21 00 00 DD 74 6B DD 75 6A DD 66 6D m.ul!...tk.uj.fm
0057D0: DD 6E 6C 11 EE 3F 3E 0B C3 7E 12 21 FF FF DD 74 .nl..?>..~.!...t
0057E0: 6B DD 75 6A DD 66 73 DD 6E 72 E5 CD A1 38 E1 C3 k.uj.fs.nr...8..
0057F0: 1C 40 21 FF FF DD 74 6B DD 75 6A DD 66 73 DD 6E .@!...tk.uj.fs.n
005800: 00 26 00 82 00 95 20 0E 2C 19 13 01 95 20 F5 19 .&.... .,.... ..
005810: 15 2C 19 14 01 95 20 F5 19 28 2C 0E 01 95 20 F5 .,.... ..(,... .
005820: 19 14 2C F5 19 15 00 2B 00 8C 00 95 20 0E 2C F5 ..,....+.... .,.
005830: 19 B4 01 95 20 19 14 2C F5 19 15 01 95 20 19 28 .... ..,..... .(
005840: 2C 0E 01 95 20 19 14 2C 19 15 01 95 20 0E 2C 19 ,... ..,.... .,.
005850: 14 00 35 00 96 00 95 20 19 14 2C 0E 01 95 20 0E ..5.... ..,... .
005860: 2C F5 19 1E 01 95 20 F5 19 1E 2C F5 19 1E 01 95 ,..... ...,.....
005870: 20 F5 19 3C 2C 0E 01 95 20 F5 19 1E 2C 19 1E 01 ..<,... ...,...
005880: 95 20 0E 2C 19 C8 00 08 00 A0 00 C5 20 50 00 0E . .,........ P..
005890: 00 AA 00 AE 20 1A 40 01 2C 1A 8F 01 00 2E 00 B4 .... .@.,.......
0058A0: 00 95 20 19 5A 2C 0E 01 95 20 19 1E 2C F5 19 1E .. .Z,... ..,...
0058B0: 01 95 20 0E 2C F5 19 5A 01 95 20 F5 19 1E 2C F5 .. .,..Z.. ...,.
0058C0: 19 1E 01 95 20 F5 19 46 2C 0E 00 1C 00 BE 00 95 .... ..F,.......
0058D0: 20 0E 2C F5 19 6E 01 95 20 F5 19 14 2C 0E 01 95 .,..n.. ...,...
0058E0: 20 0E 2C 1A 04 01 00 2F 00 C8 00 AF 20 19 14 2C .,..../.... ..,
0058F0: F5 19 14 01 95 20 19 3B 2C 0E 01 95 20 19 14 2C ..... .;,... ..,
005900: F5 19 15 01 95 20 0E 2C F5 19 46 01 95 20 F5 19 ..... .,..F.. ..
005910: 14 2C F5 19 14 00 13 00 D2 00 95 20 F5 19 3B 2C .,......... ..;,
005920: 0E 01 95 20 0E 2C 19 6E 00 08 00 DC 00 C5 20 4C ... .,.n...... L
005930: 00 0E 00 E6 00 AE 20 1A E0 01 2C 1A 8F 01 00 32 ...... ...,....2
005940: 00 F0 00 95 20 19 14 2C 0E 01 95 20 0E 2C F5 19 .... ..,... .,..
005950: F0 01 95 20 19 64 2C 0E 01 95 20 0E 2C F5 19 14 ... .d,... .,...
005960: 01 95 20 F5 19 78 2C 0E 01 95 20 0E 2C 1A 04 01 .. ..x,... .,...
005970: 00 06 00 FA 00 D0 00 26 00 04 01 AE 20 19 C8 2C .......&.... ..,
005980: 19 64 01 BF 20 22 54 48 45 20 53 59 53 54 45 4D .d.. "THE SYSTEM
005990: 53 20 4C 41 4E 47 55 41 47 45 22 3B 00 06 00 0E S LANGUAGE";....
0059A0: 01 D1 00 23 00 18 01 A9 20 0F 2C 19 15 01 BF 20 ...#.... .,....
0059B0: 22 4C 6F 61 64 69 6E 67 20 43 6F 6D 70 69 6C 65 "Loading Compile
0059C0: 72 2E 2E 2E 22 00 2D 00 22 01 A1 20 FF 42 F7 10 r...".-.".. .B..
0059D0: EF FF 0C 28 FF 42 F7 10 29 20 EB 20 0D 00 00 F4 ...(.B..) . ....
0059E0: EF FF 42 F5 10 20 01 97 20 0D 00 00 F4 EF FF 42 ..B.. .. ......B
0059F0: F5 0F 00 0A 00 36 01 AA 20 1A 6F 17 00 14 00 40 .....6.. .o....@
005A00: 72 E5 CD E6 39 E1 C3 1C 40 DD 66 73 DD 6E 72 E5 r...9...@.fs.nr.
005A10: CD B2 3B E1 C3 1C 40 DD 66 73 DD 6E 72 E5 CD 3F ..;...@.fs.nr..?
005A20: 3C E1 C3 1C 40 DD 66 73 DD 6E 72 E5 CD 65 3C E1 <...@.fs.nr..e<.
005A30: C3 1C 40 DD 66 73 DD 6E 72 E5 CD C0 3C E1 C3 1C ..@.fs.nr...<...
005A40: 40 DD 66 73 DD 6E 72 E5 CD 29 3D E1 C3 1C 40 DD @.fs.nr..)=...@.
005A50: 66 73 DD 6E 72 E5 CD 6C 3D E1 C3 1C 40 DD 66 73 fs.nr..l=...@.fs
005A60: DD 6E 72 E5 CD 2B 36 E1 C3 1C 40 C3 1C 40 FC 00 .nr..+6...@..@..
005A70: DD 3F 1D 00 CF 3F 1B 00 C1 3F F9 00 B3 3F F8 00 .?...?...?...?..
005A80: A5 3F F5 00 97 3F F1 00 97 3F F4 00 89 3F F0 00 .?...?...?...?..
005A90: 89 3F 0D 00 72 3F 7F 00 5B 3F 1C 40 C3 87 3E 21 .?..r?..[?.@..>!
005AA0: 06 00 39 F9 E1 E1 E1 E1 E1 2A 10 12 22 12 12 E1 ..9......*.."...
005AB0: 22 10 12 DD E1 C9 22 20 B7 3E 1A 20 01 00 18 20 "....." .>. ...
005AC0: 00 00 16 20 00 00 14 20 00 00 12 20 01 00 10 20 ... ... ... ...
005AD0: 01 00 0E 20 00 00 0C 20 00 00 0A 20 00 00 08 20 ... ... ... ...
005AE0: FF FF 2A 14 00 00 28 14 00 00 26 14 00 00 24 14 ..*...(...&...$.
005AF0: 00 00 E2 9C 1A 61 6E 64 20 74 68 65 20 66 6F 6C .....and the fol
005B00: 3B 20 65 73 63 61 70 65 20 3D 20 23 78 46 43 20 ; escape = #xFC
005B10: 3B 20 69 67 6E 6F 72 65 20 3D 20 23 78 45 46 0D ; ignore = #xEF.
005B20: 0A 20 20 20 20 20 20 20 20 20 20 20 20 73 74 6F . sto
005B30: 70 20 3D 20 33 0D 0A 20 20 20 20 20 20 20 20 20 p = 3..
005B40: 20 20 20 73 63 75 72 73 75 70 20 3D 20 23 78 46 scursup = #xF
005B50: 34 20 3B 20 73 63 75 72 73 64 6F 77 6E 20 3D 20 4 ; scursdown =
005B60: 23 78 46 35 20 3B 20 73 63 75 72 73 6C 65 66 74 #xF5 ; scursleft
005B70: 20 3D 20 23 78 46 36 0D 0A 20 20 20 20 20 20 20 = #xF6..
005B80: 20 20 20 20 20 73 63 75 72 73 72 69 67 68 74 20 scursright
005B90: 3D 20 23 78 46 37 0D 0A 20 20 20 20 20 20 20 20 = #xF7..
005BA0: 20 20 20 20 63 63 75 72 73 75 70 20 3D 20 23 78 ccursup = #x
005BB0: 46 38 20 3B 20 63 63 75 72 73 64 6F 77 6E 20 3D F8 ; ccursdown =
005BC0: 20 23 78 46 39 0D 0A 20 20 20 20 20 20 20 20 20 #xF9..
005BD0: 20 20 20 63 63 75 72 73 6C 65 66 74 20 3D 20 23 ccursleft = #
005BE0: 78 46 41 20 3B 20 63 63 75 72 73 72 69 67 68 74 xFA ; ccursright
005BF0: 20 3D 20 23 78 46 42 0D 0A 20 20 20 20 20 20 20 = #xFB..
005C00: 01 A8 22 62 63 70 6C 2E 62 69 6E 22 2C 1A 70 17 .."bcpl.bin",.p.
005C10: 00 16 00 4A 01 0D 00 00 73 74 61 72 F4 EF 0D 00 ...J....star....
005C20: 00 F4 F5 1A 90 3E 00 06 00 4F 01 88 00 0B 00 54 .....>...O.....T
005C30: 01 AA 20 0D 00 00 F4 00 1F 00 5E 01 83 20 1A 70 .. .......^.. .p
005C40: 17 2C 1A 70 54 2C 0D 00 00 73 74 61 72 F4 2C 1A .,.pT,...star.,.
005C50: 80 3C 2C 1A F0 17 00 11 00 68 01 AA 20 0D 00 00 .<,......h.. ...
005C60: 73 74 61 72 F4 F5 10 00 0F 00 90 01 83 20 0D 00 star......... ..
005C70: 00 73 74 61 72 F4 00 39 00 9A 01 BF 20 22 54 6F .star..9.... "To
005C80: 20 73 74 61 72 74 20 63 6F 6D 70 69 6C 65 72 20 start compiler
005C90: 75 73 65 20 7C 42 43 50 4C 2C 20 74 6F 20 72 75 use |BCPL, to ru
005CA0: 6E 20 74 68 65 20 63 6F 64 65 20 7C 47 4F 22 00 n the code |GO".
005CB0: 06 00 A4 01 B1 00 00 00 1A 69 6C 65 72 20 75 73 .........iler us
005CC0: 65 20 7C 42 43 50 4C 2C 20 74 6F 20 72 75 6E 20 e |BCPL, to run
005CD0: 74 68 65 20 63 6F 64 65 20 7C 47 4F 22 00 06 00 the code |GO"...
005CE0: A4 01 B1 00 00 00 1A 00 00 1A B1 00 00 00 1A 00 ................
005CF0: 26 00 04 01 AE 20 19 C8 2C 19 64 01 BF 20 22 54 &.... ..,.d.. "T
005D00: F5 19 15 01 95 20 0E 2C F5 19 46 01 95 20 F5 19 ..... .,..F.. ..
005D10: 14 2C F5 19 14 00 13 00 D2 00 95 20 F5 19 3B 2C .,......... ..;,
005D20: 0E 01 95 20 0E 2C 19 6E 00 08 00 DC 00 C5 20 4C ... .,.n...... L
005D30: 00 0E 00 E6 00 AE 20 1A E0 01 2C 1A 8F 01 00 32 ...... ...,....2
005D40: 00 F0 00 95 20 19 14 2C 0E 01 95 20 0E 2C F5 19 .... ..,... .,..
005D50: F0 01 95 20 19 64 2C 0E 01 95 20 0E 2C F5 19 14 ... .d,... .,...
005D60: 01 95 20 F5 19 78 2C 0E 01 95 20 0E 2C 1A 04 01 .. ..x,... .,...
005D70: 00 06 00 FA 00 D0 00 26 00 04 01 AE 20 19 C8 2C .......&.... ..,
005D80: 19 64 01 BF 20 22 54 48 45 20 53 59 53 54 45 4D .d.. "THE SYSTEM
005D90: 53 20 4C 41 4E 47 55 41 47 45 22 3B 00 06 00 0E S LANGUAGE";....
005DA0: 01 D1 00 23 00 18 01 A9 20 0F 2C 19 15 01 BF 20 ...#.... .,....
005DB0: 22 4C 6F 61 64 69 6E 67 20 43 6F 6D 70 69 6C 65 "Loading Compile
005DC0: 72 2E 2E 2E 22 00 2D 00 22 01 A1 20 FF 42 F7 10 r...".-.".. .B..
005DD0: EF FF 0C 28 FF 42 F7 10 29 20 EB 20 0D 00 00 F4 ...(.B..) . ....
005DE0: EF FF 42 F5 10 20 01 97 20 0D 00 00 F4 EF FF 42 ..B.. .. ......B
005DF0: F5 0F 00 0A 00 36 01 AA 20 1A 6F 17 00 14 00 40 .....6.. .o....@
005E00: 00 42 45 44 31 20 20 20 20 42 20 20 00 00 00 00 .BED1 B ....
005E10: 00 00 0A 00 00 9A 01 00 39 00 00 00 00 00 00 00 ........9.......
005E20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005E40: 39 00 00 15 03 4F 50 54 49 4F 4E 20 42 2D 0D 0A 9....OPTION B-..
005E50: 4F 50 54 49 4F 4E 20 4F 23 78 31 32 30 30 0D 0A OPTION O#x1200..
005E60: 47 45 54 20 22 61 6C 69 62 68 64 72 22 0D 0A 47 GET "alibhdr"..G
005E70: 45 54 20 22 62 65 64 2E 62 22 0D 0A 0D 0A 1A 00 ET "bed.b"......
005E80: 4F 50 54 49 4F 4E 20 42 2D 0D 0A 4F 50 54 49 4F OPTION B-..OPTIO
005E90: 4E 20 4F 23 78 31 32 30 30 0D 0A 47 45 54 20 22 N O#x1200..GET "
005EA0: 61 6C 69 62 68 64 72 22 0D 0A 47 45 54 20 22 62 alibhdr"..GET "b
005EB0: 65 64 2E 62 22 0D 0A 0D 0A 1A 00 00 00 00 00 00 ed.b"...........
005EC0: 42 00 00 27 03 4F 50 54 49 4F 4E 20 42 2D 0D 0A B..'.OPTION B-..
005ED0: 4F 50 54 49 4F 4E 20 4F 23 78 31 32 30 30 2C 20 OPTION O#x1200,
005EE0: 48 23 78 39 38 30 30 0D 0A 47 45 54 20 22 61 6C H#x9800..GET "al
005EF0: 69 62 68 64 72 22 0D 0A 47 45 54 20 22 62 65 64 ibhdr"..GET "bed
005F00: 29 0D 0A 20 20 20 20 24 29 20 52 45 50 45 41 54 ).. $) REPEAT
005F10: 57 48 49 4C 45 20 6B 65 79 20 3D 20 69 67 6E 6F WHILE key = igno
005F20: 72 65 0D 0A 20 20 20 20 53 57 49 54 43 48 4F 4E re.. SWITCHON
005F30: 20 6B 65 79 20 49 4E 54 4F 0D 0A 20 20 20 20 24 key INTO.. $
005F40: 28 0D 0A 20 20 20 20 20 20 43 41 53 45 20 27 4C (.. CASE 'L
005F50: 27 3A 20 43 41 53 45 20 27 6C 27 3A 20 77 72 63 ': CASE 'l': wrc
005F60: 68 28 27 4C 27 29 20 3B 20 49 46 20 6C 6F 61 64 h('L') ; IF load
005F70: 74 65 78 74 28 6C 69 6E 65 29 20 54 48 45 4E 20 text(line) THEN
005F80: 42 52 45 41 4B 20 3B 20 45 4E 44 43 41 53 45 0D BREAK ; ENDCASE.
005F90: 0A 20 20 20 20 20 20 43 41 53 45 20 27 53 27 3A . CASE 'S':
005FA0: 20 43 41 53 45 20 27 73 27 3A 20 77 72 63 68 28 CASE 's': wrch(
005FB0: 27 53 27 29 20 3B 20 49 46 20 73 61 76 65 74 65 'S') ; IF savete
005FC0: 78 74 28 29 20 54 48 45 4E 20 42 52 45 41 4B 20 xt() THEN BREAK
005FD0: 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 ; ENDCASE..
005FE0: 20 43 41 53 45 20 27 47 27 3A 20 43 41 53 45 20 CASE 'G': CASE
005FF0: 27 67 27 3A 20 77 72 63 68 28 27 47 27 29 20 3B 'g': wrch('G') ;
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 00 02 02 09 4E E5 05 00 C1 02 00 00 00 02 ......N.........
006020: 05 00 C6 02 00 00 00 02 05 00 C2 02 00 00 00 02 ................
006030: 05 00 C7 02 00 00 00 02 05 00 C3 02 00 00 00 02 ................
006040: 05 00 C8 02 00 00 00 02 05 00 C4 02 00 00 00 02 ................
006050: 05 00 C9 02 00 00 00 02 05 00 C5 02 00 00 00 02 ................
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006300: 20 6C 64 20 6C 2C 28 69 78 2B 31 32 36 29 0D 0A ld l,(ix+126)..
006310: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 38 36 2C INLINE 221,86,
006320: 31 32 35 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 125 // ld
006330: 64 2C 28 69 78 2B 31 32 35 29 0D 0A 20 20 49 4E d,(ix+125).. IN
006340: 4C 49 4E 45 20 32 32 31 2C 39 34 2C 31 32 34 20 LINE 221,94,124
006350: 20 20 20 20 20 20 2F 2F 20 6C 64 20 65 2C 28 69 // ld e,(i
006360: 78 2B 31 32 34 29 0D 0A 20 20 49 4E 4C 49 4E 45 x+124).. INLINE
006370: 20 32 30 35 2C 23 78 46 30 2C 23 78 42 42 20 20 205,#xF0,#xBB
006380: 20 20 2F 2F 20 63 61 6C 6C 20 67 72 61 20 74 65 // call gra te
006390: 73 74 20 61 62 73 6F 6C 75 74 65 0D 0A 20 20 49 st absolute.. I
0063A0: 4E 4C 49 4E 45 20 32 32 31 2C 31 31 39 2C 31 31 NLINE 221,119,11
0063B0: 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 28 69 78 6 // ld (ix
0063C0: 2B 31 31 36 29 2C 61 0D 0A 20 20 52 45 53 55 4C +116),a.. RESUL
0063D0: 54 49 53 20 63 6F 6C 6F 75 72 0D 0A 24 29 0D 0A TIS colour..$)..
0063E0: 0D 0A 4C 45 54 20 67 74 65 73 74 72 28 78 2C 79 ..LET gtestr(x,y
0063F0: 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A 2F ) = VALOF..$(../
006400: 2F 52 65 74 75 72 6E 73 20 74 68 65 20 70 69 78 /Returns the pix
006410: 65 6C 20 63 6F 6C 6F 75 72 20 61 74 20 78 2C 79 el colour at x,y
006420: 20 72 65 6C 61 74 69 76 65 20 74 6F 20 67 72 61 relative to gra
006430: 70 68 69 63 73 20 6F 72 69 67 69 6E 2E 0D 0A 2F phics origin.../
006440: 2F 42 41 53 49 43 3A 20 54 45 53 54 52 28 78 2C /BASIC: TESTR(x,
006450: 79 29 0D 0A 20 20 4C 45 54 20 63 6F 6C 6F 75 72 y).. LET colour
006460: 20 3D 20 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 = 0.. INLINE 2
006470: 32 31 2C 31 30 32 2C 31 32 37 20 20 20 20 20 20 21,102,127
006480: 2F 2F 20 6C 64 20 68 2C 28 69 78 2B 31 32 37 29 // ld h,(ix+127)
006490: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
0064A0: 31 30 2C 31 32 36 20 20 20 20 20 20 2F 2F 20 6C 10,126 // l
0064B0: 64 20 6C 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 d l,(ix+126)..
0064C0: 49 4E 4C 49 4E 45 20 32 32 31 2C 38 36 2C 31 32 INLINE 221,86,12
0064D0: 35 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 64 2C 5 // ld d,
0064E0: 28 69 78 2B 31 32 35 29 0D 0A 20 20 49 4E 4C 49 (ix+125).. INLI
0064F0: 4E 45 20 32 32 31 2C 39 34 2C 31 32 34 20 20 20 NE 221,94,124
006500: 0D 0A 2F 2A 20 54 68 69 73 20 69 73 20 61 20 6C ../* This is a l
006510: 69 62 72 61 72 79 20 6F 66 20 66 75 6E 63 74 69 ibrary of functi
006520: 6F 6E 73 20 77 68 69 63 68 20 63 6F 6E 74 72 6F ons which contro
006530: 6C 20 76 61 72 69 6F 75 73 20 61 73 70 65 63 74 l various aspect
006540: 73 20 6F 66 20 74 68 65 0D 0A 20 20 20 41 4D 53 s of the.. AMS
006550: 54 52 41 44 20 75 6E 64 65 72 20 41 4D 53 44 4F TRAD under AMSDO
006560: 53 2E 20 42 72 69 65 66 20 64 65 74 61 69 6C 73 S. Brief details
006570: 20 6F 66 20 65 61 63 68 20 72 6F 75 74 69 6E 65 of each routine
006580: 20 61 72 65 20 67 69 76 65 6E 2C 20 61 6C 6F 6E are given, alon
006590: 67 0D 0A 20 20 20 77 69 74 68 20 74 68 65 20 65 g.. with the e
0065A0: 71 75 69 76 61 6C 65 6E 74 20 4C 6F 63 6F 6D 6F quivalent Locomo
0065B0: 74 69 76 65 20 42 41 53 49 43 20 72 6F 75 74 69 tive BASIC routi
0065C0: 6E 65 2E 20 46 6F 72 20 66 75 6C 6C 20 64 65 74 ne. For full det
0065D0: 61 69 6C 73 20 63 6F 6E 73 75 6C 74 0D 0A 20 20 ails consult..
0065E0: 20 74 68 65 20 42 41 53 49 43 20 55 73 65 72 20 the BASIC User
0065F0: 49 6E 73 74 72 75 63 74 69 6F 6E 73 20 2A 2F 0D Instructions */.
006600: 0A 0D 0A 2F 2F 20 6C 61 73 74 20 6D 6F 64 69 66 ...// last modif
006610: 69 65 64 20 30 32 2F 31 31 2F 31 39 38 36 0D 0A ied 02/11/1986..
006620: 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 47 52 41 50 48 49 ..../**** GRAPHI
006630: 43 53 20 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A CS ROUTINES ****
006640: 2F 0D 0A 0D 0A 4C 45 54 20 62 6F 72 64 65 72 28 /....LET border(
006650: 63 31 2C 63 32 29 20 42 45 0D 0A 24 28 0D 0A 2F c1,c2) BE..$(../
006660: 2F 53 65 74 73 20 74 68 65 20 62 6F 72 64 65 72 /Sets the border
006670: 20 63 6F 6C 6F 75 72 73 2E 20 42 41 53 49 43 3A colours. BASIC:
006680: 20 42 4F 52 44 45 52 20 63 31 2C 63 32 0D 0A 20 BORDER c1,c2..
006690: 20 49 4E 4C 49 4E 45 20 32 32 31 2C 37 38 2C 31 INLINE 221,78,1
0066A0: 32 36 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 63 26 // ld c
0066B0: 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C ,(ix+126).. INL
0066C0: 49 4E 45 20 32 32 31 2C 37 30 2C 31 32 34 20 20 INE 221,70,124
0066D0: 20 20 20 20 20 2F 2F 20 6C 64 20 62 2C 28 69 78 // ld b,(ix
0066E0: 2B 31 32 34 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 +124).. INLINE
0066F0: 32 30 35 2C 23 78 33 38 2C 23 78 42 43 20 20 20 205,#x38,#xBC
006700: 20 20 20 20 2F 2F 20 6C 64 20 65 2C 28 69 78 2B // ld e,(ix+
006710: 31 32 34 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 124).. INLINE 2
006720: 30 35 2C 23 78 46 33 2C 23 78 42 42 20 20 20 20 05,#xF3,#xBB
006730: 2F 2F 20 63 61 6C 6C 20 67 72 61 20 74 65 73 74 // call gra test
006740: 20 72 65 6C 61 74 69 76 65 0D 0A 20 20 49 4E 4C relative.. INL
006750: 49 4E 45 20 32 32 31 2C 31 31 39 2C 31 31 36 20 INE 221,119,116
006760: 20 20 20 20 20 2F 2F 20 6C 64 20 28 69 78 2B 31 // ld (ix+1
006770: 31 36 29 2C 61 0D 0A 20 20 52 45 53 55 4C 54 49 16),a.. RESULTI
006780: 53 20 63 6F 6C 6F 75 72 0D 0A 24 29 0D 0A 0D 0A S colour..$)....
006790: 4C 45 54 20 67 77 69 6E 64 6F 77 28 6C 65 66 74 LET gwindow(left
0067A0: 2C 72 69 67 68 74 2C 74 6F 70 2C 62 6F 74 74 6F ,right,top,botto
0067B0: 6D 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 53 65 74 m) BE..$(..//Set
0067C0: 73 20 74 68 65 20 67 72 61 70 68 69 63 73 20 77 s the graphics w
0067D0: 69 6E 64 6F 77 2E 20 42 41 53 49 43 3A 20 4F 52 indow. BASIC: OR
0067E0: 49 47 49 4E 20 30 2C 30 2C 6C 65 66 74 2C 72 69 IGIN 0,0,left,ri
0067F0: 67 68 74 2C 74 6F 70 2C 62 6F 74 74 6F 6D 0D 0A ght,top,bottom..
006800: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 30 32 INLINE 221,102
006810: 2C 31 32 37 20 20 20 20 20 20 2F 2F 20 6C 64 20 ,127 // ld
006820: 68 2C 28 69 78 2B 31 32 37 29 0D 0A 20 20 49 4E h,(ix+127).. IN
006830: 4C 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 32 36 LINE 221,110,126
006840: 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 28 69 // ld l,(i
006850: 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C 49 4E 45 x+126).. INLINE
006860: 20 32 32 31 2C 38 36 2C 31 32 35 20 20 20 20 20 221,86,125
006870: 20 20 2F 2F 20 6C 64 20 64 2C 28 69 78 2B 31 32 // ld d,(ix+12
006880: 35 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 5).. INLINE 221
006890: 2C 39 34 2C 31 32 34 20 20 20 20 20 20 20 2F 2F ,94,124 //
0068A0: 20 6C 64 20 65 2C 28 69 78 2B 31 32 34 29 0D 0A ld e,(ix+124)..
0068B0: 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 44 INLINE 205,#xD
0068C0: 32 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 2,#xBB // cal
0068D0: 6C 20 67 72 61 20 77 69 6E 20 68 65 69 67 68 74 l gra win height
0068E0: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
0068F0: 30 32 2C 31 32 37 20 20 20 20 20 20 2F 2F 20 6C 02,127 // l
006900: 20 2F 2F 20 63 61 6C 6C 20 73 63 72 20 73 65 74 // call scr set
006910: 20 62 6F 72 64 65 72 0D 0A 24 29 0D 0A 0D 0A 4C border..$)....L
006920: 45 54 20 63 6C 67 28 29 20 42 45 0D 0A 24 28 0D ET clg() BE..$(.
006930: 0A 2F 2F 43 6C 65 61 72 73 20 74 68 65 20 63 75 .//Clears the cu
006940: 72 72 65 6E 74 20 67 72 61 70 68 69 63 73 20 77 rrent graphics w
006950: 69 6E 64 6F 77 2E 20 42 41 53 49 43 3A 20 43 4C indow. BASIC: CL
006960: 47 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C G.. INLINE 205,
006970: 23 78 44 42 2C 23 78 42 42 20 20 20 20 2F 2F 20 #xDB,#xBB //
006980: 63 61 6C 6C 20 67 72 61 20 63 6C 65 61 72 20 77 call gra clear w
006990: 69 6E 64 6F 77 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 indow..$)....LET
0069A0: 20 64 72 61 77 28 78 2C 79 29 20 42 45 0D 0A 24 draw(x,y) BE..$
0069B0: 28 0D 0A 2F 2F 44 72 61 77 20 66 72 6F 6D 20 63 (..//Draw from c
0069C0: 75 72 72 65 6E 74 20 67 72 61 70 68 69 63 73 20 urrent graphics
0069D0: 63 75 72 73 6F 72 20 74 6F 20 78 2C 79 2E 0D 0A cursor to x,y...
0069E0: 2F 2F 42 41 53 49 43 3A 20 44 52 41 57 20 78 2C //BASIC: DRAW x,
0069F0: 79 2E 20 53 65 65 20 61 6C 73 6F 20 67 70 65 6E y. See also gpen
006A00: 2C 20 69 6E 6B 6D 6F 64 65 0D 0A 20 20 49 4E 4C , inkmode.. INL
006A10: 49 4E 45 20 32 32 31 2C 31 30 32 2C 31 32 37 20 INE 221,102,127
006A20: 20 20 20 20 20 2F 2F 20 6C 64 20 68 2C 28 69 78 // ld h,(ix
006A30: 2B 31 32 37 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 +127).. INLINE
006A40: 32 32 31 2C 31 31 30 2C 31 32 36 20 20 20 20 20 221,110,126
006A50: 20 2F 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 36 // ld l,(ix+126
006A60: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C ).. INLINE 221,
006A70: 38 36 2C 31 32 35 20 20 20 20 20 20 20 2F 2F 20 86,125 //
006A80: 6C 64 20 64 2C 28 69 78 2B 31 32 35 29 0D 0A 20 ld d,(ix+125)..
006A90: 20 49 4E 4C 49 4E 45 20 32 32 31 2C 39 34 2C 31 INLINE 221,94,1
006AA0: 32 34 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 65 24 // ld e
006AB0: 2C 28 69 78 2B 31 32 34 29 0D 0A 20 20 49 4E 4C ,(ix+124).. INL
006AC0: 49 4E 45 20 32 30 35 2C 23 78 46 36 2C 23 78 42 INE 205,#xF6,#xB
006AD0: 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 67 72 61 B // call gra
006AE0: 20 6C 69 6E 65 20 61 62 73 6F 6C 75 74 65 0D 0A line absolute..
006AF0: 24 29 0D 0A 0D 0A 4C 45 54 20 64 72 61 77 72 28 $)....LET drawr(
006B00: 64 20 68 2C 28 69 78 2B 31 32 33 29 0D 0A 20 20 d h,(ix+123)..
006B10: 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 INLINE 221,110,1
006B20: 32 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 26 // ld l,
006B30: 28 69 78 2B 31 32 32 29 0D 0A 20 20 49 4E 4C 49 (ix+122).. INLI
006B40: 4E 45 20 32 32 31 2C 38 36 2C 31 32 35 20 20 20 NE 221,86,125
006B50: 20 20 20 20 2F 2F 20 6C 64 20 64 2C 28 69 78 2B // ld d,(ix+
006B60: 31 32 31 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 121).. INLINE 2
006B70: 32 31 2C 39 34 2C 31 32 34 20 20 20 20 20 20 20 21,94,124
006B80: 2F 2F 20 6C 64 20 65 2C 28 69 78 2B 31 32 30 29 // ld e,(ix+120)
006B90: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 .. INLINE 205,#
006BA0: 78 44 32 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 xD2,#xBB // c
006BB0: 61 6C 6C 20 67 72 61 20 77 69 6E 20 77 69 64 74 all gra win widt
006BC0: 68 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 67 77 72 h..$)....LET gwr
006BD0: 63 68 28 63 68 61 72 61 63 74 65 72 29 20 42 45 ch(character) BE
006BE0: 0D 0A 24 28 0D 0A 2F 2F 57 72 69 74 65 20 61 20 ..$(..//Write a
006BF0: 63 68 61 72 61 63 74 65 72 20 61 74 20 74 68 65 character at the
006C00: 20 67 72 61 70 68 69 63 73 20 63 75 72 73 6F 72 graphics cursor
006C10: 2E 0D 0A 2F 2F 42 41 53 49 43 3A 20 6E 6F 20 64 ...//BASIC: no d
006C20: 69 72 65 63 74 20 65 71 75 69 76 61 6C 65 6E 74 irect equivalent
006C30: 2C 20 64 6F 6E 65 20 75 73 69 6E 67 20 54 41 47 , done using TAG
006C40: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
006C50: 32 36 2C 31 32 36 20 20 20 20 20 20 2F 2F 20 6C 26,126 // l
006C60: 64 20 61 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 d a,(ix+126)..
006C70: 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 46 43 2C INLINE 205,#xFC,
006C80: 23 78 42 42 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 #xBB..$)....LET
006C90: 69 6E 6B 28 6E 2C 63 31 2C 63 32 29 20 42 45 0D ink(n,c1,c2) BE.
006CA0: 0A 24 28 0D 0A 2F 2F 53 65 74 20 74 68 65 20 63 .$(..//Set the c
006CB0: 6F 6C 6F 75 72 73 20 69 6E 20 77 68 69 63 68 20 olours in which
006CC0: 74 6F 20 64 69 73 70 6C 61 79 20 61 6E 20 69 6E to display an in
006CD0: 6B 2E 20 42 41 53 49 43 3A 20 49 4E 4B 20 6E 2C k. BASIC: INK n,
006CE0: 63 31 2C 63 32 0D 0A 20 20 49 4E 4C 49 4E 45 20 c1,c2.. INLINE
006CF0: 32 32 31 2C 37 38 2C 31 32 36 20 20 20 20 20 20 221,78,126
006D00: 78 2C 79 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 44 x,y) BE..$(..//D
006D10: 72 61 77 20 66 72 6F 6D 20 63 75 72 72 65 6E 74 raw from current
006D20: 20 67 72 61 70 68 69 63 73 20 63 75 72 73 6F 72 graphics cursor
006D30: 20 74 6F 20 78 2C 79 20 72 65 6C 61 74 69 76 65 to x,y relative
006D40: 20 74 6F 20 67 72 61 70 68 69 63 73 20 6F 72 69 to graphics ori
006D50: 67 69 6E 2E 0D 0A 2F 2F 42 41 53 49 43 3A 20 44 gin...//BASIC: D
006D60: 52 41 57 52 20 78 2C 79 2E 20 53 65 65 20 61 6C RAWR x,y. See al
006D70: 73 6F 20 67 70 65 6E 2C 20 69 6E 6B 6D 6F 64 65 so gpen, inkmode
006D80: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
006D90: 30 32 2C 31 32 37 20 20 20 20 20 20 2F 2F 20 6C 02,127 // l
006DA0: 64 20 68 2C 28 69 78 2B 31 32 37 29 0D 0A 20 20 d h,(ix+127)..
006DB0: 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 INLINE 221,110,1
006DC0: 32 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 26 // ld l,
006DD0: 28 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C 49 (ix+126).. INLI
006DE0: 4E 45 20 32 32 31 2C 38 36 2C 31 32 35 20 20 20 NE 221,86,125
006DF0: 20 20 20 20 2F 2F 20 6C 64 20 64 2C 28 69 78 2B // ld d,(ix+
006E00: 31 32 35 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 125).. INLINE 2
006E10: 32 31 2C 39 34 2C 31 32 34 20 20 20 20 20 20 20 21,94,124
006E20: 2F 2F 20 6C 64 20 65 2C 28 69 78 2B 31 32 34 29 // ld e,(ix+124)
006E30: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 .. INLINE 205,#
006E40: 78 46 39 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 xF9,#xBB // c
006E50: 61 6C 6C 20 67 72 61 20 6C 69 6E 65 20 72 65 6C all gra line rel
006E60: 61 74 69 76 65 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 ative..$)....LET
006E70: 20 66 72 61 6D 65 28 29 20 42 45 0D 0A 24 28 0D frame() BE..$(.
006E80: 0A 2F 2F 57 61 69 74 73 20 66 6F 72 20 74 68 65 .//Waits for the
006E90: 20 66 72 61 6D 65 20 66 6C 79 62 61 63 6B 2E 20 frame flyback.
006EA0: 42 41 53 49 43 3A 20 46 52 41 4D 45 0D 0A 20 20 BASIC: FRAME..
006EB0: 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 31 39 2C INLINE 205,#x19,
006EC0: 23 78 42 44 20 20 20 20 2F 2F 20 63 61 6C 6C 20 #xBD // call
006ED0: 6D 63 20 77 61 69 74 20 66 6C 79 62 61 63 6B 0D mc wait flyback.
006EE0: 0A 24 29 0D 0A 0D 0A 4C 45 54 20 67 70 61 70 65 .$)....LET gpape
006EF0: 72 28 69 6E 6B 29 20 42 45 0D 0A 24 28 0D 0A 2F r(ink) BE..$(../
006F00: 20 2F 2F 20 6C 64 20 63 2C 28 69 78 2B 31 32 36 // ld c,(ix+126
006F10: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C ).. INLINE 221,
006F20: 37 30 2C 31 32 34 20 20 20 20 20 20 20 2F 2F 20 70,124 //
006F30: 6C 64 20 62 2C 28 69 78 2B 31 32 34 29 0D 0A 20 ld b,(ix+124)..
006F40: 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 32 36 2C INLINE 221,126,
006F50: 31 32 32 20 20 20 20 20 20 2F 2F 20 6C 64 20 61 122 // ld a
006F60: 2C 28 69 78 2B 31 32 32 29 0D 0A 20 20 49 4E 4C ,(ix+122).. INL
006F70: 49 4E 45 20 32 30 35 2C 23 78 33 32 2C 23 78 42 INE 205,#x32,#xB
006F80: 43 20 20 20 20 2F 2F 20 63 61 6C 6C 20 73 63 72 C // call scr
006F90: 20 73 65 74 20 69 6E 6B 0D 0A 24 29 0D 0A 0D 0A set ink..$)....
006FA0: 4C 45 54 20 69 6E 6B 6D 6F 64 65 28 61 29 20 42 LET inkmode(a) B
006FB0: 45 0D 0A 24 28 0D 0A 2F 2F 53 65 74 20 74 68 65 E..$(..//Set the
006FC0: 20 73 63 72 65 65 6E 20 77 72 69 74 65 20 6D 6F screen write mo
006FD0: 64 65 2C 20 30 3D 6E 6F 72 6D 61 6C 2C 20 31 3D de, 0=normal, 1=
006FE0: 58 4F 52 2C 20 32 3D 41 4E 44 2C 20 33 3D 4F 52 XOR, 2=AND, 3=OR
006FF0: 0D 0A 2F 2F 42 41 53 49 43 3A 20 44 6F 6E 65 20 ..//BASIC: Done
007000: 75 73 69 6E 67 20 34 74 68 20 70 61 72 61 6D 65 using 4th parame
007010: 74 65 72 20 6F 66 20 44 52 41 57 0D 0A 20 20 49 ter of DRAW.. I
007020: 4E 4C 49 4E 45 20 32 32 31 2C 31 32 36 2C 31 32 NLINE 221,126,12
007030: 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 61 2C 28 6 // ld a,(
007040: 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C 49 4E ix+126).. INLIN
007050: 45 20 32 30 35 2C 23 78 35 39 2C 23 78 42 43 20 E 205,#x59,#xBC
007060: 20 20 20 2F 2F 20 63 61 6C 6C 20 73 63 72 20 61 // call scr a
007070: 63 63 65 73 73 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 ccess..$)....LET
007080: 20 6D 6F 76 65 28 78 2C 79 29 20 42 45 0D 0A 24 move(x,y) BE..$
007090: 28 0D 0A 2F 2F 4D 6F 76 65 20 66 72 6F 6D 20 63 (..//Move from c
0070A0: 75 72 72 65 6E 74 20 67 72 61 70 68 69 63 73 20 urrent graphics
0070B0: 63 75 72 73 6F 72 20 74 6F 20 78 2C 79 2E 0D 0A cursor to x,y...
0070C0: 2F 2F 42 41 53 49 43 3A 20 4D 4F 56 45 20 78 2C //BASIC: MOVE x,
0070D0: 79 2E 20 53 65 65 20 61 6C 73 6F 20 67 70 65 6E y. See also gpen
0070E0: 2C 20 69 6E 6B 6D 6F 64 65 0D 0A 20 20 49 4E 4C , inkmode.. INL
0070F0: 49 4E 45 20 32 32 31 2C 31 30 32 2C 31 32 37 20 INE 221,102,127
007100: 2F 53 65 74 20 67 72 61 70 68 69 63 73 20 70 61 /Set graphics pa
007110: 70 65 72 2E 20 42 41 53 49 43 3A 20 47 52 41 50 per. BASIC: GRAP
007120: 48 49 43 53 20 50 41 50 45 52 20 69 6E 6B 0D 0A HICS PAPER ink..
007130: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 32 36 INLINE 221,126
007140: 2C 31 32 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 ,126 // ld
007150: 61 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E a,(ix+126).. IN
007160: 4C 49 4E 45 20 32 30 35 2C 23 78 45 34 2C 23 78 LINE 205,#xE4,#x
007170: 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 67 72 BB // call gr
007180: 61 20 73 65 74 20 70 61 70 65 72 0D 0A 24 29 0D a set paper..$).
007190: 0A 0D 0A 4C 45 54 20 67 70 65 6E 28 69 6E 6B 29 ...LET gpen(ink)
0071A0: 20 42 45 0D 0A 24 28 0D 0A 2F 2F 53 65 74 20 67 BE..$(..//Set g
0071B0: 72 61 70 68 69 63 73 20 70 65 6E 2E 20 42 41 53 raphics pen. BAS
0071C0: 49 43 3A 20 47 52 41 50 48 49 43 53 20 50 45 4E IC: GRAPHICS PEN
0071D0: 20 69 6E 6B 2E 20 53 65 65 20 61 6C 73 6F 20 6F ink. See also o
0071E0: 70 61 71 75 65 2C 20 74 72 61 6E 73 70 61 72 65 paque, transpare
0071F0: 6E 74 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 nt.. INLINE 221
007200: 2C 31 32 36 2C 31 32 36 20 20 20 20 20 20 2F 2F ,126,126 //
007210: 20 6C 64 20 61 2C 28 69 78 2B 31 32 36 29 0D 0A ld a,(ix+126)..
007220: 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 44 INLINE 205,#xD
007230: 45 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C E,#xBB // cal
007240: 6C 20 67 72 61 20 73 65 74 20 70 65 6E 0D 0A 24 l gra set pen..$
007250: 29 0D 0A 0D 0A 4C 45 54 20 67 74 65 73 74 28 78 )....LET gtest(x
007260: 2C 79 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D ,y) = VALOF..$(.
007270: 0A 2F 2F 52 65 74 75 72 6E 73 20 74 68 65 20 70 .//Returns the p
007280: 69 78 65 6C 20 63 6F 6C 6F 75 72 20 61 74 20 78 ixel colour at x
007290: 2C 79 2E 20 42 41 53 49 43 3A 20 54 45 53 54 28 ,y. BASIC: TEST(
0072A0: 78 2C 79 29 0D 0A 20 20 4C 45 54 20 63 6F 6C 6F x,y).. LET colo
0072B0: 75 72 20 3D 20 30 0D 0A 20 20 49 4E 4C 49 4E 45 ur = 0.. INLINE
0072C0: 20 32 32 31 2C 31 30 32 2C 31 32 37 20 20 20 20 221,102,127
0072D0: 20 20 2F 2F 20 6C 64 20 68 2C 28 69 78 2B 31 32 // ld h,(ix+12
0072E0: 37 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 7).. INLINE 221
0072F0: 2C 31 31 30 2C 31 32 36 20 20 20 20 20 20 2F 2F ,110,126 //
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 00 02 02 09 4E E5 06 00 C1 02 00 00 00 02 ......N.........
007320: 06 00 C6 02 00 00 00 02 06 00 C2 02 00 00 00 02 ................
007330: 06 00 C7 02 00 00 00 02 06 00 C3 02 00 00 00 02 ................
007340: 06 00 C8 02 00 00 00 02 06 00 C4 02 00 00 00 02 ................
007350: 06 00 C9 02 00 00 00 02 06 00 C5 02 00 00 00 02 ................
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 20 20 20 20 20 2F 2F 20 6C 64 20 68 2C 28 69 78 // ld h,(ix
007410: 2B 31 32 37 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 +127).. INLINE
007420: 32 32 31 2C 31 31 30 2C 31 32 36 20 20 20 20 20 221,110,126
007430: 20 2F 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 36 // ld l,(ix+126
007440: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C ).. INLINE 221,
007450: 38 36 2C 31 32 35 20 20 20 20 20 20 20 2F 2F 20 86,125 //
007460: 6C 64 20 64 2C 28 69 78 2B 31 32 35 29 0D 0A 20 ld d,(ix+125)..
007470: 20 49 4E 4C 49 4E 45 20 32 32 31 2C 39 34 2C 31 INLINE 221,94,1
007480: 32 34 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 65 24 // ld e
007490: 2C 28 69 78 2B 31 32 34 29 0D 0A 20 20 49 4E 4C ,(ix+124).. INL
0074A0: 49 4E 45 20 32 30 35 2C 23 78 43 30 2C 23 78 42 INE 205,#xC0,#xB
0074B0: 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 67 72 61 B // call gra
0074C0: 20 6D 6F 76 65 20 61 62 73 6F 6C 75 74 65 0D 0A move absolute..
0074D0: 24 29 0D 0A 0D 0A 4C 45 54 20 6D 6F 76 65 72 28 $)....LET mover(
0074E0: 78 2C 79 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 4D x,y) BE..$(..//M
0074F0: 6F 76 65 20 66 72 6F 6D 20 63 75 72 72 65 6E 74 ove from current
007500: 20 67 72 61 70 68 69 63 73 20 63 75 72 73 6F 72 graphics cursor
007510: 20 74 6F 20 78 2C 79 20 72 65 6C 61 74 69 76 65 to x,y relative
007520: 20 74 6F 20 67 72 61 70 68 69 63 73 20 6F 72 69 to graphics ori
007530: 67 69 6E 2E 0D 0A 2F 2F 42 41 53 49 43 3A 20 4D gin...//BASIC: M
007540: 4F 56 45 52 20 78 2C 79 2E 20 53 65 65 20 61 6C OVER x,y. See al
007550: 73 6F 20 67 70 65 6E 2C 20 69 6E 6B 6D 6F 64 65 so gpen, inkmode
007560: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
007570: 30 32 2C 31 32 37 20 20 20 20 20 20 2F 2F 20 6C 02,127 // l
007580: 64 20 68 2C 28 69 78 2B 31 32 37 29 0D 0A 20 20 d h,(ix+127)..
007590: 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 INLINE 221,110,1
0075A0: 32 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 26 // ld l,
0075B0: 28 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C 49 (ix+126).. INLI
0075C0: 4E 45 20 32 32 31 2C 38 36 2C 31 32 35 20 20 20 NE 221,86,125
0075D0: 20 20 20 20 2F 2F 20 6C 64 20 64 2C 28 69 78 2B // ld d,(ix+
0075E0: 31 32 35 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 125).. INLINE 2
0075F0: 32 31 2C 39 34 2C 31 32 34 20 20 20 20 20 20 20 21,94,124
007600: 2F 2F 20 63 61 6C 6C 20 67 72 61 20 61 73 6B 20 // call gra ask
007610: 63 75 72 73 6F 72 0D 0A 20 20 49 4E 4C 49 4E 45 cursor.. INLINE
007620: 20 32 32 31 2C 31 31 34 2C 31 32 30 20 20 20 20 221,114,120
007630: 20 20 2F 2F 20 6C 64 20 28 69 78 2B 31 32 30 29 // ld (ix+120)
007640: 2C 64 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 ,d.. INLINE 221
007650: 2C 31 31 35 2C 31 31 39 20 20 20 20 20 20 2F 2F ,115,119 //
007660: 20 6C 64 20 28 69 78 2B 31 31 39 29 2C 65 20 0D ld (ix+119),e .
007670: 0A 20 20 52 45 53 55 4C 54 49 53 20 61 0D 0A 24 . RESULTIS a..$
007680: 29 0D 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 54 45 58 )....../**** TEX
007690: 54 20 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A 2F T ROUTINES ****/
0076A0: 0D 0A 0D 0A 4C 45 54 20 63 6C 73 28 29 20 42 45 ....LET cls() BE
0076B0: 0D 0A 24 28 0D 0A 2F 2F 43 6C 65 61 72 73 20 74 ..$(..//Clears t
0076C0: 68 65 20 63 75 72 72 65 6E 74 20 74 65 78 74 20 he current text
0076D0: 77 69 6E 64 6F 77 2E 20 42 41 53 49 43 3A 20 43 window. BASIC: C
0076E0: 4C 53 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 LS.. INLINE 205
0076F0: 2C 23 78 36 43 2C 23 78 42 42 20 20 20 20 2F 2F ,#x6C,#xBB //
007700: 20 63 61 6C 6C 20 74 78 74 20 63 6C 65 61 72 20 call txt clear
007710: 77 69 6E 64 6F 77 0D 0A 24 29 0D 0A 0D 0A 4C 45 window..$)....LE
007720: 54 20 63 6F 70 79 63 68 72 28 29 20 3D 20 56 41 T copychr() = VA
007730: 4C 4F 46 0D 0A 24 28 0D 0A 2F 2F 52 65 61 64 73 LOF..$(..//Reads
007740: 20 61 20 63 68 61 72 61 63 74 65 72 20 66 72 6F a character fro
007750: 6D 20 74 68 65 20 73 63 72 65 65 6E 20 61 6E 64 m the screen and
007760: 20 72 65 74 75 72 6E 73 20 69 74 0D 0A 2F 2F 52 returns it..//R
007770: 65 74 75 72 6E 73 20 46 41 4C 53 45 20 69 66 20 eturns FALSE if
007780: 6E 6F 20 63 68 61 72 61 63 74 65 72 20 72 65 63 no character rec
007790: 6F 67 6E 69 73 65 64 0D 0A 2F 2F 42 41 53 49 43 ognised..//BASIC
0077A0: 3A 20 41 53 43 28 43 4F 50 59 43 48 52 24 28 23 : ASC(COPYCHR$(#
0077B0: 30 29 29 0D 0A 20 20 4C 45 54 20 63 68 61 72 20 0)).. LET char
0077C0: 3D 20 46 41 4C 53 45 0D 0A 20 20 49 4E 4C 49 4E = FALSE.. INLIN
0077D0: 45 20 32 30 35 2C 23 78 36 30 2C 23 78 42 42 20 E 205,#x60,#xBB
0077E0: 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 74 20 72 // call txt r
0077F0: 64 20 63 68 61 72 0D 0A 20 20 49 4E 4C 49 4E 45 d char.. INLINE
007800: 2F 2F 20 6C 64 20 65 2C 28 69 78 2B 31 32 34 29 // ld e,(ix+124)
007810: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 .. INLINE 205,#
007820: 78 43 33 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 xC3,#xBB // c
007830: 61 6C 6C 20 67 72 61 20 6D 6F 76 65 20 72 65 6C all gra move rel
007840: 61 74 69 76 65 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 ative..$)....LET
007850: 20 6F 70 61 71 75 65 28 29 20 42 45 0D 0A 24 28 opaque() BE..$(
007860: 0D 0A 2F 2F 53 65 74 73 20 62 61 63 6B 67 72 6F ..//Sets backgro
007870: 75 6E 64 20 6D 6F 64 65 20 74 6F 20 6F 70 61 71 und mode to opaq
007880: 75 65 0D 0A 2F 2F 42 41 53 49 43 3A 20 47 52 41 ue..//BASIC: GRA
007890: 50 48 49 43 53 20 50 45 4E 20 2C 30 0D 0A 20 20 PHICS PEN ,0..
0078A0: 49 4E 4C 49 4E 45 20 23 78 39 37 20 20 20 20 20 INLINE #x97
0078B0: 20 20 20 20 20 20 20 20 2F 2F 20 73 75 62 20 61 // sub a
0078C0: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 .. INLINE 205,#
0078D0: 78 39 46 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 x9F,#xBB // c
0078E0: 61 6C 6C 20 74 78 74 20 73 65 74 20 62 61 63 6B all txt set back
0078F0: 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 6F 72 69 67 ..$)....LET orig
007900: 69 6E 28 78 2C 79 29 20 42 45 0D 0A 24 28 0D 0A in(x,y) BE..$(..
007910: 2F 2F 53 65 74 73 20 74 68 65 20 67 72 61 70 68 //Sets the graph
007920: 69 63 73 20 6F 72 69 67 69 6E 2E 20 42 41 53 49 ics origin. BASI
007930: 43 3A 20 4F 52 49 47 49 4E 20 78 2C 79 2E 20 53 C: ORIGIN x,y. S
007940: 65 65 20 61 6C 73 6F 20 67 77 69 6E 64 6F 77 0D ee also gwindow.
007950: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 30 . INLINE 221,10
007960: 32 2C 31 32 37 20 20 20 20 20 20 2F 2F 20 6C 64 2,127 // ld
007970: 20 68 2C 28 69 78 2B 31 32 37 29 0D 0A 20 20 49 h,(ix+127).. I
007980: 4E 4C 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 32 NLINE 221,110,12
007990: 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 28 6 // ld l,(
0079A0: 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C 49 4E ix+126).. INLIN
0079B0: 45 20 32 32 31 2C 38 36 2C 31 32 35 20 20 20 20 E 221,86,125
0079C0: 20 20 20 2F 2F 20 6C 64 20 64 2C 28 69 78 2B 31 // ld d,(ix+1
0079D0: 32 35 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 25).. INLINE 22
0079E0: 31 2C 39 34 2C 31 32 34 20 20 20 20 20 20 20 2F 1,94,124 /
0079F0: 2F 20 6C 64 20 65 2C 28 69 78 2B 31 32 34 29 0D / ld e,(ix+124).
007A00: 20 34 38 2C 35 20 20 20 20 20 20 20 20 20 20 20 48,5
007A10: 20 20 2F 2F 20 6A 72 20 6E 63 2C 2B 33 0D 0A 20 // jr nc,+3..
007A20: 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 39 2C INLINE 221,119,
007A30: 31 32 30 20 20 20 20 20 20 2F 2F 20 6C 64 20 28 120 // ld (
007A40: 69 78 2B 31 32 30 29 2C 61 0D 0A 20 20 52 45 53 ix+120),a.. RES
007A50: 55 4C 54 49 53 20 63 68 61 72 0D 0A 24 29 0D 0A ULTIS char..$)..
007A60: 0D 0A 4C 45 54 20 63 75 72 73 64 69 28 29 20 42 ..LET cursdi() B
007A70: 45 0D 0A 24 28 0D 0A 2F 2F 44 69 73 61 62 6C 65 E..$(..//Disable
007A80: 73 20 74 68 65 20 63 75 72 73 6F 72 20 28 75 73 s the cursor (us
007A90: 65 72 20 73 77 69 74 63 68 29 2E 20 42 41 53 49 er switch). BASI
007AA0: 43 3A 20 43 55 52 53 4F 52 20 2C 30 0D 0A 20 20 C: CURSOR ,0..
007AB0: 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 37 45 2C INLINE 205,#x7E,
007AC0: 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 #xBB // call
007AD0: 74 78 74 20 63 75 72 20 64 69 73 61 62 6C 65 0D txt cur disable.
007AE0: 0A 24 29 0D 0A 0D 0A 4C 45 54 20 63 75 72 73 65 .$)....LET curse
007AF0: 6E 28 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 45 6E n() BE..$(..//En
007B00: 61 62 6C 65 73 20 74 68 65 20 63 75 72 73 6F 72 ables the cursor
007B10: 20 28 75 73 65 72 20 73 77 69 74 63 68 29 2E 20 (user switch).
007B20: 42 41 53 49 43 3A 20 43 55 52 53 4F 52 20 2C 31 BASIC: CURSOR ,1
007B30: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 .. INLINE 205,#
007B40: 78 37 42 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 x7B,#xBB // c
007B50: 61 6C 6C 20 74 78 74 20 63 75 72 20 65 6E 61 62 all txt cur enab
007B60: 6C 65 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 63 75 le..$)....LET cu
007B70: 72 73 6F 66 66 28 29 20 42 45 0D 0A 24 28 0D 0A rsoff() BE..$(..
007B80: 2F 2F 54 75 72 6E 73 20 6F 66 66 20 74 68 65 20 //Turns off the
007B90: 63 75 72 73 6F 72 20 28 73 79 73 74 65 6D 20 73 cursor (system s
007BA0: 77 69 74 63 68 29 2E 20 42 41 53 49 43 3A 20 43 witch). BASIC: C
007BB0: 55 52 53 4F 52 20 30 0D 0A 20 20 49 4E 4C 49 4E URSOR 0.. INLIN
007BC0: 45 20 32 30 35 2C 23 78 38 34 2C 23 78 42 42 20 E 205,#x84,#xBB
007BD0: 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 74 20 63 // call txt c
007BE0: 75 72 20 6F 66 66 0D 0A 24 29 0D 0A 0D 0A 4C 45 ur off..$)....LE
007BF0: 54 20 63 75 72 73 6F 6E 28 29 20 42 45 0D 0A 24 T curson() BE..$
007C00: 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 . INLINE 205,#x
007C10: 43 39 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 C9,#xBB // ca
007C20: 6C 6C 20 67 72 61 20 73 65 74 20 6F 72 69 67 69 ll gra set origi
007C30: 6E 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 70 6C 6F n..$)....LET plo
007C40: 74 28 78 2C 79 29 20 42 45 0D 0A 24 28 0D 0A 2F t(x,y) BE..$(../
007C50: 2F 50 6C 6F 74 20 70 6F 69 6E 74 20 61 74 20 78 /Plot point at x
007C60: 2C 79 2E 0D 0A 2F 2F 42 41 53 49 43 3A 20 50 4C ,y...//BASIC: PL
007C70: 4F 54 20 78 2C 79 2E 20 53 65 65 20 61 6C 73 6F OT x,y. See also
007C80: 20 67 70 65 6E 2C 20 69 6E 6B 6D 6F 64 65 0D 0A gpen, inkmode..
007C90: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 30 32 INLINE 221,102
007CA0: 2C 31 32 37 20 20 20 20 20 20 2F 2F 20 6C 64 20 ,127 // ld
007CB0: 68 2C 28 69 78 2B 31 32 37 29 0D 0A 20 20 49 4E h,(ix+127).. IN
007CC0: 4C 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 32 36 LINE 221,110,126
007CD0: 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 28 69 // ld l,(i
007CE0: 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C 49 4E 45 x+126).. INLINE
007CF0: 20 32 32 31 2C 38 36 2C 31 32 35 20 20 20 20 20 221,86,125
007D00: 20 20 2F 2F 20 6C 64 20 64 2C 28 69 78 2B 31 32 // ld d,(ix+12
007D10: 35 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 5).. INLINE 221
007D20: 2C 39 34 2C 31 32 34 20 20 20 20 20 20 20 2F 2F ,94,124 //
007D30: 20 6C 64 20 65 2C 28 69 78 2B 31 32 34 29 0D 0A ld e,(ix+124)..
007D40: 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 45 INLINE 205,#xE
007D50: 41 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C A,#xBB // cal
007D60: 6C 20 67 72 61 20 70 6C 6F 74 20 61 62 73 6F 6C l gra plot absol
007D70: 75 74 65 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 70 ute..$)....LET p
007D80: 6C 6F 74 72 28 78 2C 79 29 20 42 45 0D 0A 24 28 lotr(x,y) BE..$(
007D90: 0D 0A 2F 2F 50 6C 6F 74 20 70 6F 69 6E 74 20 61 ..//Plot point a
007DA0: 74 20 78 2C 79 20 72 65 6C 61 74 69 76 65 20 74 t x,y relative t
007DB0: 6F 20 67 72 61 70 68 69 63 73 20 6F 72 69 67 69 o graphics origi
007DC0: 6E 2E 0D 0A 2F 2F 42 41 53 49 43 3A 20 50 4C 4F n...//BASIC: PLO
007DD0: 54 52 20 78 2C 79 2E 20 53 65 65 20 61 6C 73 6F TR x,y. See also
007DE0: 20 67 70 65 6E 2C 20 69 6E 6B 6D 6F 64 65 0D 0A gpen, inkmode..
007DF0: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 30 32 INLINE 221,102
007E00: 28 0D 0A 2F 2F 54 75 72 6E 73 20 6F 6E 20 74 68 (..//Turns on th
007E10: 65 20 63 75 72 73 6F 72 20 28 73 79 73 74 65 6D e cursor (system
007E20: 20 73 77 69 74 63 68 29 2E 20 42 41 53 49 43 3A switch). BASIC:
007E30: 20 43 55 52 53 4F 52 20 31 0D 0A 20 20 49 4E 4C CURSOR 1.. INL
007E40: 49 4E 45 20 32 30 35 2C 23 78 38 31 2C 23 78 42 INE 205,#x81,#xB
007E50: 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 74 B // call txt
007E60: 20 63 75 72 20 6F 6E 0D 0A 24 29 0D 0A 0D 0A 4C cur on..$)....L
007E70: 45 54 20 6C 6F 63 61 74 65 28 78 2C 79 29 20 42 ET locate(x,y) B
007E80: 45 0D 0A 24 28 0D 0A 2F 2F 50 6F 73 69 74 69 6F E..$(..//Positio
007E90: 6E 73 20 74 68 65 20 63 75 72 73 6F 72 20 61 74 ns the cursor at
007EA0: 20 28 78 2C 79 29 20 77 69 74 68 69 6E 20 74 68 (x,y) within th
007EB0: 65 20 63 75 72 72 65 6E 74 20 77 69 6E 64 6F 77 e current window
007EC0: 2E 20 42 41 53 49 43 3A 20 4C 4F 43 41 54 45 20 . BASIC: LOCATE
007ED0: 78 2C 79 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 x,y.. INLINE 22
007EE0: 31 2C 31 31 30 2C 31 32 36 20 20 20 20 20 20 2F 1,110,126 /
007EF0: 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 36 29 0D / ld l,(ix+126).
007F00: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 30 . INLINE 221,10
007F10: 32 2C 31 32 34 20 20 20 20 20 20 2F 2F 20 6C 64 2,124 // ld
007F20: 20 68 2C 28 69 78 2B 31 32 34 29 0D 0A 20 20 49 h,(ix+124).. I
007F30: 4E 4C 49 4E 45 20 32 30 35 2C 23 78 37 35 2C 23 NLINE 205,#x75,#
007F40: 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 74 xBB // call t
007F50: 78 74 20 73 65 74 20 63 75 72 73 6F 72 0D 0A 24 xt set cursor..$
007F60: 29 0D 0A 0D 0A 4C 45 54 20 6D 6F 64 65 28 6E 29 )....LET mode(n)
007F70: 20 42 45 0D 0A 24 28 0D 0A 2F 2F 53 65 74 73 20 BE..$(..//Sets
007F80: 74 68 65 20 73 63 72 65 65 6E 20 6D 6F 64 65 2E the screen mode.
007F90: 20 42 41 53 49 43 3A 20 4D 4F 44 45 20 6E 0D 0A BASIC: MODE n..
007FA0: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 32 36 INLINE 221,126
007FB0: 2C 31 32 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 ,126 // ld
007FC0: 61 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E a,(ix+126).. IN
007FD0: 4C 49 4E 45 20 32 30 35 2C 23 78 30 45 2C 23 78 LINE 205,#x0E,#x
007FE0: 42 43 20 20 20 20 2F 2F 20 63 61 6C 6C 20 73 63 BC // call sc
007FF0: 72 20 73 65 74 20 6D 6F 64 65 0D 0A 24 29 0D 0A r set mode..$)..
008000: 2C 31 32 37 20 20 20 20 20 20 2F 2F 20 6C 64 20 ,127 // ld
008010: 68 2C 28 69 78 2B 31 32 37 29 0D 0A 20 20 49 4E h,(ix+127).. IN
008020: 4C 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 32 36 LINE 221,110,126
008030: 20 20 20 20 20 20 2F 2F 20 6C 64 20 6C 2C 28 69 // ld l,(i
008040: 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C 49 4E 45 x+126).. INLINE
008050: 20 32 32 31 2C 38 36 2C 31 32 35 20 20 20 20 20 221,86,125
008060: 20 20 2F 2F 20 6C 64 20 64 2C 28 69 78 2B 31 32 // ld d,(ix+12
008070: 35 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 5).. INLINE 221
008080: 2C 39 34 2C 31 32 34 20 20 20 20 20 20 20 2F 2F ,94,124 //
008090: 20 6C 64 20 65 2C 28 69 78 2B 31 32 34 29 0D 0A ld e,(ix+124)..
0080A0: 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 45 INLINE 205,#xE
0080B0: 44 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C D,#xBB // cal
0080C0: 6C 20 67 72 61 20 70 6C 6F 74 20 72 65 6C 61 74 l gra plot relat
0080D0: 69 76 65 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 73 ive..$)....LET s
0080E0: 70 65 65 64 69 6E 6B 28 70 31 2C 70 32 29 20 42 peedink(p1,p2) B
0080F0: 45 0D 0A 24 28 0D 0A 2F 2F 54 68 69 73 20 72 6F E..$(..//This ro
008100: 75 74 69 6E 65 20 77 69 6C 6C 20 73 65 74 20 66 utine will set f
008110: 6C 61 73 68 20 70 65 72 69 6F 64 73 2E 20 42 41 lash periods. BA
008120: 53 49 43 3A 20 53 50 45 45 44 20 49 4E 4B 20 70 SIC: SPEED INK p
008130: 31 2C 70 32 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 1,p2.. INLINE 2
008140: 32 31 2C 31 31 30 2C 31 32 36 20 20 20 20 20 20 21,110,126
008150: 2F 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 36 29 // ld l,(ix+126)
008160: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
008170: 30 32 2C 31 32 34 20 20 20 20 20 20 2F 2F 20 6C 02,124 // l
008180: 64 20 68 2C 28 69 78 2B 31 32 34 29 0D 0A 20 20 d h,(ix+124)..
008190: 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 33 38 2C INLINE 205,#x38,
0081A0: 23 78 42 43 20 20 20 20 2F 2F 20 63 61 6C 6C 20 #xBC // call
0081B0: 73 63 72 20 73 65 74 20 62 6F 72 64 65 72 0D 0A scr set border..
0081C0: 24 29 0D 0A 0D 0A 4C 45 54 20 74 72 61 6E 73 70 $)....LET transp
0081D0: 61 72 65 6E 74 28 29 20 42 45 0D 0A 24 28 0D 0A arent() BE..$(..
0081E0: 2F 2F 53 65 74 73 20 62 61 63 6B 67 72 6F 75 6E //Sets backgroun
0081F0: 64 20 6D 6F 64 65 20 74 6F 20 74 72 61 6E 73 70 d mode to transp
008200: 0D 0A 4C 45 54 20 70 61 70 65 72 28 69 6E 6B 29 ..LET paper(ink)
008210: 20 42 45 0D 0A 24 28 0D 0A 2F 2F 53 65 74 73 20 BE..$(..//Sets
008220: 74 68 65 20 74 65 78 74 20 70 61 70 65 72 20 63 the text paper c
008230: 6F 6C 6F 75 72 2E 20 42 41 53 49 43 3A 20 50 41 olour. BASIC: PA
008240: 50 45 52 20 69 6E 6B 0D 0A 20 20 49 4E 4C 49 4E PER ink.. INLIN
008250: 45 20 32 32 31 2C 31 32 36 2C 31 32 36 20 20 20 E 221,126,126
008260: 20 20 20 2F 2F 20 6C 64 20 61 2C 28 69 78 2B 31 // ld a,(ix+1
008270: 32 36 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 26).. INLINE 20
008280: 35 2C 23 78 39 36 2C 23 78 42 42 20 20 20 20 2F 5,#x96,#xBB /
008290: 2F 20 63 61 6C 6C 20 74 78 74 20 73 65 74 20 70 / call txt set p
0082A0: 61 70 65 72 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 aper..$)....LET
0082B0: 70 65 6E 28 63 6F 6C 6F 75 72 29 20 42 45 0D 0A pen(colour) BE..
0082C0: 24 28 0D 0A 2F 2F 53 65 74 73 20 74 68 65 20 74 $(..//Sets the t
0082D0: 65 78 74 20 70 65 6E 20 63 6F 6C 6F 75 72 2E 20 ext pen colour.
0082E0: 42 41 53 49 43 3A 20 50 45 4E 20 69 6E 6B 0D 0A BASIC: PEN ink..
0082F0: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 32 36 INLINE 221,126
008300: 2C 31 32 36 20 20 20 20 20 20 2F 2F 20 6C 64 20 ,126 // ld
008310: 61 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E a,(ix+126).. IN
008320: 4C 49 4E 45 20 32 30 35 2C 23 78 39 30 2C 23 78 LINE 205,#x90,#x
008330: 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 BB // call tx
008340: 74 20 73 65 74 20 70 65 6E 0D 0A 24 29 0D 0A 0D t set pen..$)...
008350: 0A 4C 45 54 20 73 74 72 65 61 6D 28 6E 75 6D 62 .LET stream(numb
008360: 65 72 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 53 65 er) BE..$(..//Se
008370: 6C 65 63 74 73 20 61 20 73 74 72 65 61 6D 2E 20 lects a stream.
008380: 42 41 53 49 43 3A 20 6E 6F 20 64 69 72 65 63 74 BASIC: no direct
008390: 20 65 71 75 69 76 61 6C 65 6E 74 2C 20 64 6F 6E equivalent, don
0083A0: 65 20 77 69 74 68 20 57 49 4E 44 4F 57 20 53 57 e with WINDOW SW
0083B0: 41 50 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 AP.. INLINE 221
0083C0: 2C 31 32 36 2C 31 32 36 20 20 20 20 20 20 2F 2F ,126,126 //
0083D0: 20 6C 64 20 61 2C 28 69 78 2B 31 32 36 29 0D 0A ld a,(ix+126)..
0083E0: 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 42 INLINE 205,#xB
0083F0: 34 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 4,#xBB // cal
008400: 61 72 65 6E 74 0D 0A 2F 2F 42 41 53 49 43 3A 20 arent..//BASIC:
008410: 47 52 41 50 48 49 43 53 20 50 45 4E 20 2C 31 0D GRAPHICS PEN ,1.
008420: 0A 20 20 49 4E 4C 49 4E 45 20 23 78 33 45 2C 31 . INLINE #x3E,1
008430: 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 6C 64 // ld
008440: 20 61 2C 31 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 a,1.. INLINE 2
008450: 30 35 2C 23 78 39 46 2C 23 78 42 42 20 20 20 20 05,#x9F,#xBB
008460: 2F 2F 20 63 61 6C 6C 20 74 78 74 20 73 65 74 20 // call txt set
008470: 62 61 63 6B 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 back..$)....LET
008480: 78 70 6F 73 28 29 20 3D 20 56 41 4C 4F 46 0D 0A xpos() = VALOF..
008490: 24 28 0D 0A 2F 2F 52 65 74 75 72 6E 73 20 74 68 $(..//Returns th
0084A0: 65 20 58 20 63 6F 6F 72 64 69 6E 61 74 65 20 6F e X coordinate o
0084B0: 66 20 74 68 65 20 67 72 61 70 68 69 63 73 20 63 f the graphics c
0084C0: 75 72 73 6F 72 2E 20 42 41 53 49 43 3A 20 58 50 ursor. BASIC: XP
0084D0: 4F 53 0D 0A 20 20 4C 45 54 20 61 20 3D 20 30 0D OS.. LET a = 0.
0084E0: 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 . INLINE 205,#x
0084F0: 43 36 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 C6,#xBB // ca
008500: 6C 6C 20 67 72 61 20 61 73 6B 20 63 75 72 73 6F ll gra ask curso
008510: 72 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C r.. INLINE 221,
008520: 31 31 36 2C 31 32 30 20 20 20 20 20 20 2F 2F 20 116,120 //
008530: 6C 64 20 28 69 78 2B 31 32 30 29 2C 68 20 0D 0A ld (ix+120),h ..
008540: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 37 INLINE 221,117
008550: 2C 31 31 39 20 20 20 20 20 20 2F 2F 20 6C 64 20 ,119 // ld
008560: 28 69 78 2B 31 31 39 29 2C 6C 20 0D 0A 20 20 52 (ix+119),l .. R
008570: 45 53 55 4C 54 49 53 20 61 0D 0A 24 29 0D 0A 0D ESULTIS a..$)...
008580: 0A 4C 45 54 20 79 70 6F 73 28 29 20 3D 20 56 41 .LET ypos() = VA
008590: 4C 4F 46 0D 0A 24 28 0D 0A 2F 2F 52 65 74 75 72 LOF..$(..//Retur
0085A0: 6E 73 20 74 68 65 20 59 20 63 6F 6F 72 64 69 6E ns the Y coordin
0085B0: 61 74 65 20 6F 66 20 74 68 65 20 67 72 61 70 68 ate of the graph
0085C0: 69 63 73 20 63 75 72 73 6F 72 2E 20 42 41 53 49 ics cursor. BASI
0085D0: 43 3A 20 59 50 4F 53 0D 0A 20 20 4C 45 54 20 61 C: YPOS.. LET a
0085E0: 20 3D 20 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 = 0.. INLINE 2
0085F0: 30 35 2C 23 78 43 36 2C 23 78 42 42 20 20 20 20 05,#xC6,#xBB
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 00 02 02 09 4E E5 07 00 C1 02 00 00 00 02 ......N.........
008620: 07 00 C6 02 00 00 00 02 07 00 C2 02 00 00 00 02 ................
008630: 07 00 C7 02 00 00 00 02 07 00 C3 02 00 00 00 02 ................
008640: 07 00 C8 02 00 00 00 02 07 00 C4 02 00 00 00 02 ................
008650: 07 00 C9 02 00 00 00 02 07 00 C5 02 00 00 00 02 ................
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 6C 20 74 78 74 20 73 74 72 20 73 65 6C 65 63 74 l txt str select
008710: 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 73 74 72 73 ..$)....LET strs
008720: 77 61 70 28 66 69 72 73 74 2C 73 65 63 6F 6E 64 wap(first,second
008730: 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 53 77 61 70 ) BE..$(..//Swap
008740: 73 20 74 77 6F 20 73 74 72 65 61 6D 73 20 6F 76 s two streams ov
008750: 65 72 2E 20 42 41 53 49 43 3A 20 57 49 4E 44 4F er. BASIC: WINDO
008760: 57 20 53 57 41 50 20 66 69 72 73 74 2C 73 65 63 W SWAP first,sec
008770: 6F 6E 64 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 ond.. INLINE 22
008780: 31 2C 37 30 2C 31 32 36 20 20 20 20 20 20 20 2F 1,70,126 /
008790: 2F 20 6C 64 20 62 2C 28 69 78 2B 31 32 36 29 0D / ld b,(ix+126).
0087A0: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 37 38 . INLINE 221,78
0087B0: 2C 31 32 34 20 20 20 20 20 20 20 2F 2F 20 6C 64 ,124 // ld
0087C0: 20 63 2C 28 69 78 2B 31 32 34 29 0D 0A 20 20 49 c,(ix+124).. I
0087D0: 4E 4C 49 4E 45 20 32 30 35 2C 23 78 42 37 2C 23 NLINE 205,#xB7,#
0087E0: 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 74 xBB // call t
0087F0: 78 74 20 73 77 61 70 20 73 74 72 65 61 6D 73 0D xt swap streams.
008800: 0A 24 29 0D 0A 0D 0A 4C 45 54 20 74 61 67 28 29 .$)....LET tag()
008810: 20 42 45 0D 0A 24 28 0D 0A 2F 2F 45 6E 61 62 6C BE..$(..//Enabl
008820: 65 73 20 70 72 69 6E 74 69 6E 67 20 6F 66 20 74 es printing of t
008830: 65 78 74 20 61 74 20 67 72 61 70 68 69 63 73 20 ext at graphics
008840: 63 75 72 73 6F 72 2E 20 42 41 53 49 43 3A 20 54 cursor. BASIC: T
008850: 41 47 0D 0A 20 20 49 4E 4C 49 4E 45 20 23 78 33 AG.. INLINE #x3
008860: 45 2C 31 20 20 20 20 20 20 20 20 20 20 20 2F 2F E,1 //
008870: 20 6C 64 20 61 2C 31 0D 0A 20 20 49 4E 4C 49 4E ld a,1.. INLIN
008880: 45 20 32 30 35 2C 23 78 36 33 2C 23 78 42 42 20 E 205,#x63,#xBB
008890: 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 74 20 73 // call txt s
0088A0: 65 74 20 67 72 61 70 68 69 63 0D 0A 24 29 0D 0A et graphic..$)..
0088B0: 0D 0A 4C 45 54 20 74 61 67 6F 66 66 28 29 20 42 ..LET tagoff() B
0088C0: 45 0D 0A 24 28 0D 0A 2F 2F 44 69 73 61 62 6C 65 E..$(..//Disable
0088D0: 73 20 70 72 69 6E 74 69 6E 67 20 6F 66 20 74 65 s printing of te
0088E0: 78 74 20 61 74 20 67 72 61 70 68 69 63 73 20 63 xt at graphics c
0088F0: 75 72 73 6F 72 2E 20 42 41 53 49 43 3A 20 54 41 ursor. BASIC: TA
008900: 2F 20 31 36 20 62 79 74 65 73 0D 0A 20 20 4C 45 / 16 bytes.. LE
008910: 54 20 65 6E 74 62 61 73 65 20 3D 20 40 61 37 0D T entbase = @a7.
008920: 0A 20 20 54 45 53 54 20 6E 75 6D 62 65 72 3C 30 . TEST number<0
008930: 20 54 48 45 4E 0D 0A 20 20 24 28 0D 0A 20 20 20 THEN.. $(..
008940: 20 65 6E 74 62 61 73 65 25 30 20 3A 3D 20 73 69 entbase%0 := si
008950: 7A 65 20 4C 4F 47 4F 52 20 31 32 38 0D 0A 20 20 ze LOGOR 128..
008960: 20 20 6E 75 6D 62 65 72 20 3A 3D 20 2D 6E 75 6D number := -num
008970: 62 65 72 0D 0A 20 20 24 29 0D 0A 20 20 45 4C 53 ber.. $).. ELS
008980: 45 20 65 6E 74 62 61 73 65 25 30 20 3A 3D 20 73 E entbase%0 := s
008990: 69 7A 65 0D 0A 20 20 46 4F 52 20 61 20 3D 20 31 ize.. FOR a = 1
0089A0: 20 54 4F 20 73 69 7A 65 2A 33 20 42 59 20 33 0D TO size*3 BY 3.
0089B0: 0A 20 20 24 28 0D 0A 20 20 20 20 65 6E 74 62 61 . $(.. entba
0089C0: 73 65 25 61 20 3A 3D 20 65 6E 76 65 6C 6F 70 65 se%a := envelope
0089D0: 21 28 61 2D 31 29 0D 0A 20 20 20 20 65 6E 74 62 !(a-1).. entb
0089E0: 61 73 65 25 28 61 2B 31 29 20 3A 3D 20 65 6E 76 ase%(a+1) := env
0089F0: 65 6C 6F 70 65 21 61 0D 0A 20 20 20 20 65 6E 74 elope!a.. ent
008A00: 62 61 73 65 25 28 61 2B 32 29 20 3A 3D 20 65 6E base%(a+2) := en
008A10: 76 65 6C 6F 70 65 21 28 61 2B 31 29 0D 0A 20 20 velope!(a+1)..
008A20: 24 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 33 33 2C $).. INLINE 33,
008A30: 31 30 30 2C 30 20 20 20 20 20 20 20 20 20 2F 2F 100,0 //
008A40: 20 6C 64 20 68 6C 2C 31 30 30 0D 0A 20 20 49 4E ld hl,100.. IN
008A50: 4C 49 4E 45 20 32 32 31 2C 32 32 39 2C 32 32 31 LINE 221,229,221
008A60: 2C 32 32 39 20 20 2F 2F 20 70 75 73 68 20 69 78 ,229 // push ix
008A70: 3A 70 75 73 68 20 69 78 0D 0A 20 20 49 4E 4C 49 :push ix.. INLI
008A80: 4E 45 20 32 30 39 20 20 20 20 20 20 20 20 20 20 NE 209
008A90: 20 20 20 20 2F 2F 20 70 6F 70 20 64 65 0D 0A 20 // pop de..
008AA0: 20 49 4E 4C 49 4E 45 20 32 35 20 20 20 20 20 20 INLINE 25
008AB0: 20 20 20 20 20 20 20 20 20 2F 2F 20 61 64 64 20 // add
008AC0: 68 6C 2C 64 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 hl,de.. INLINE
008AD0: 32 32 31 2C 31 32 36 2C 31 32 32 20 20 20 20 20 221,126,122
008AE0: 20 2F 2F 20 6C 64 20 61 2C 28 69 78 2B 31 32 32 // ld a,(ix+122
008AF0: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C ).. INLINE 205,
008B00: 47 4F 46 46 0D 0A 20 20 49 4E 4C 49 4E 45 20 23 GOFF.. INLINE #
008B10: 78 39 37 20 20 20 20 20 20 20 20 20 20 20 20 20 x97
008B20: 2F 2F 20 73 75 62 20 61 0D 0A 20 20 49 4E 4C 49 // sub a.. INLI
008B30: 4E 45 20 32 30 35 2C 23 78 36 33 2C 23 78 42 42 NE 205,#x63,#xBB
008B40: 20 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 74 20 // call txt
008B50: 73 65 74 20 67 72 61 70 68 69 63 0D 0A 24 29 0D set graphic..$).
008B60: 0A 0D 0A 4C 45 54 20 77 69 6E 64 6F 77 28 6C 65 ...LET window(le
008B70: 66 74 2C 72 69 67 68 74 2C 74 6F 70 2C 62 6F 74 ft,right,top,bot
008B80: 74 6F 6D 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 53 tom) BE..$(..//S
008B90: 65 74 73 20 74 68 65 20 74 65 78 74 20 77 69 6E ets the text win
008BA0: 64 6F 77 2E 20 42 41 53 49 43 3A 20 57 49 4E 44 dow. BASIC: WIND
008BB0: 4F 57 20 6C 65 66 74 2C 72 69 67 68 74 2C 74 6F OW left,right,to
008BC0: 70 2C 62 6F 74 74 6F 6D 0D 0A 20 20 49 4E 4C 49 p,bottom.. INLI
008BD0: 4E 45 20 32 32 31 2C 31 30 32 2C 31 32 37 20 20 NE 221,102,127
008BE0: 20 20 20 20 2F 2F 20 6C 64 20 68 2C 28 69 78 2B // ld h,(ix+
008BF0: 31 32 37 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 127).. INLINE 2
008C00: 32 31 2C 38 36 2C 31 32 36 20 20 20 20 20 20 20 21,86,126
008C10: 2F 2F 20 6C 64 20 64 2C 28 69 78 2B 31 32 36 29 // ld d,(ix+126)
008C20: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
008C30: 31 30 2C 31 32 35 20 20 20 20 20 20 2F 2F 20 6C 10,125 // l
008C40: 64 20 6C 2C 28 69 78 2B 31 32 35 29 0D 0A 20 20 d l,(ix+125)..
008C50: 49 4E 4C 49 4E 45 20 32 32 31 2C 39 34 2C 31 32 INLINE 221,94,12
008C60: 34 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 65 2C 4 // ld e,
008C70: 28 69 78 2B 31 32 34 29 0D 0A 20 20 49 4E 4C 49 (ix+124).. INLI
008C80: 4E 45 20 32 30 35 2C 23 78 36 36 2C 23 78 42 42 NE 205,#x66,#xBB
008C90: 20 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 74 20 // call txt
008CA0: 77 69 6E 20 65 6E 61 62 6C 65 0D 0A 24 29 0D 0A win enable..$)..
008CB0: 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 4B 45 59 42 4F 41 ..../**** KEYBOA
008CC0: 52 44 20 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A RD ROUTINES ****
008CD0: 2F 0D 0A 0D 0A 4C 45 54 20 69 6E 6B 65 79 28 6B /....LET inkey(k
008CE0: 65 79 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D ey) = VALOF..$(.
008CF0: 0A 2F 2F 54 65 73 74 73 20 74 6F 20 73 65 65 20 .//Tests to see
008D00: 23 78 42 46 2C 23 78 42 43 20 20 20 20 2F 2F 20 #xBF,#xBC //
008D10: 63 61 6C 6C 20 73 6F 75 6E 64 20 74 6F 6E 65 20 call sound tone
008D20: 65 6E 76 65 6C 6F 70 65 0D 0A 20 20 49 4E 4C 49 envelope.. INLI
008D30: 4E 45 20 32 32 31 2C 32 32 35 20 20 20 20 20 20 NE 221,225
008D40: 20 20 20 20 2F 2F 20 70 6F 70 20 69 78 0D 0A 24 // pop ix..$
008D50: 29 0D 0A 0D 0A 4C 45 54 20 65 6E 76 28 6E 75 6D )....LET env(num
008D60: 62 65 72 2C 73 69 7A 65 2C 65 6E 76 65 6C 6F 70 ber,size,envelop
008D70: 65 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 54 68 69 e) BE..$(..//Thi
008D80: 73 20 72 6F 75 74 69 6E 65 20 73 65 74 73 20 75 s routine sets u
008D90: 70 20 61 20 76 6F 6C 75 6D 65 20 65 6E 76 65 6C p a volume envel
008DA0: 6F 70 65 2E 20 4E 75 6D 62 65 72 20 68 6F 6C 64 ope. Number hold
008DB0: 73 20 74 68 65 20 65 6E 76 65 6C 6F 70 65 20 6E s the envelope n
008DC0: 75 6D 62 65 72 0D 0A 2F 2F 62 65 69 6E 67 20 64 umber..//being d
008DD0: 65 66 69 6E 65 64 2C 20 73 69 7A 65 20 68 6F 6C efined, size hol
008DE0: 64 73 20 74 68 65 20 6E 75 6D 62 65 72 20 6F 66 ds the number of
008DF0: 20 73 65 63 74 69 6F 6E 73 20 61 6E 64 20 65 6E sections and en
008E00: 76 65 6C 6F 70 65 20 69 73 20 61 6E 20 61 72 72 velope is an arr
008E10: 61 79 0D 0A 2F 2F 68 6F 6C 64 69 6E 67 20 74 68 ay..//holding th
008E20: 65 20 65 6E 76 65 6C 6F 70 65 20 64 61 74 61 2C e envelope data,
008E30: 20 6F 66 20 73 69 7A 65 20 75 70 20 74 6F 20 38 of size up to 8
008E40: 20 77 6F 72 64 73 2E 20 54 68 65 20 61 72 72 61 words. The arra
008E50: 79 20 63 6F 6E 74 61 69 6E 73 0D 0A 2F 2F 73 75 y contains..//su
008E60: 63 63 65 73 73 69 76 65 20 33 20 62 79 74 65 20 ccessive 3 byte
008E70: 65 6E 76 65 6C 6F 70 65 20 73 65 63 74 69 6F 6E envelope section
008E80: 73 2E 0D 0A 2F 2F 42 41 53 49 43 3A 20 45 4E 56 s...//BASIC: ENV
008E90: 20 6E 75 6D 62 65 72 2C 3C 65 6E 76 65 6C 6F 70 number,<envelop
008EA0: 65 20 73 65 63 74 69 6F 6E 73 3E 0D 0A 20 20 4C e sections>.. L
008EB0: 45 54 20 61 30 2C 61 31 2C 61 32 2C 61 33 2C 61 ET a0,a1,a2,a3,a
008EC0: 34 2C 61 35 2C 61 36 2C 61 37 20 3D 20 30 2C 30 4,a5,a6,a7 = 0,0
008ED0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 2F 2F ,0,0,0,0,0,0 //
008EE0: 20 31 36 20 62 79 74 65 73 0D 0A 20 20 4C 45 54 16 bytes.. LET
008EF0: 20 65 6E 76 62 61 73 65 20 3D 20 40 61 37 0D 0A envbase = @a7..
008F00: 69 66 20 61 20 70 61 72 74 69 63 75 6C 61 72 20 if a particular
008F10: 6B 65 79 20 69 73 20 70 72 65 73 73 65 64 2E 20 key is pressed.
008F20: 42 41 53 49 43 3A 20 49 4E 4B 45 59 28 6B 65 79 BASIC: INKEY(key
008F30: 29 0D 0A 20 20 4C 45 54 20 72 65 73 20 3D 20 30 ).. LET res = 0
008F40: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
008F50: 32 36 2C 31 32 36 20 20 20 20 20 20 2F 2F 20 6C 26,126 // l
008F60: 64 20 61 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 d a,(ix+126)..
008F70: 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 31 45 2C INLINE 205,#x1E,
008F80: 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 #xBB // call
008F90: 74 65 73 74 6B 65 79 0D 0A 20 20 49 4E 4C 49 4E testkey.. INLIN
008FA0: 45 20 34 30 2C 38 20 20 20 20 20 20 20 20 20 20 E 40,8
008FB0: 20 20 20 2F 2F 20 6A 72 20 7A 2C 2B 38 0D 0A 20 // jr z,+8..
008FC0: 20 49 4E 4C 49 4E 45 20 36 32 2C 32 35 35 20 20 INLINE 62,255
008FD0: 20 20 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 61 // ld a
008FE0: 2C 32 35 35 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 ,255.. INLINE 2
008FF0: 32 31 2C 31 31 39 2C 31 31 39 20 20 20 20 20 20 21,119,119
009000: 2F 2F 20 6C 64 20 28 69 78 2B 31 31 39 29 2C 61 // ld (ix+119),a
009010: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
009020: 31 39 2C 31 31 38 20 20 20 20 20 20 2F 2F 20 6C 19,118 // l
009030: 64 20 28 69 78 2B 31 31 38 29 2C 61 0D 0A 20 20 d (ix+118),a..
009040: 52 45 53 55 4C 54 49 53 20 72 65 73 0D 0A 24 29 RESULTIS res..$)
009050: 0D 0A 0D 0A 4C 45 54 20 6B 65 79 76 61 6C 69 64 ....LET keyvalid
009060: 28 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A () = VALOF..$(..
009070: 2F 2F 54 68 69 73 20 72 6F 75 74 69 6E 65 20 72 //This routine r
009080: 65 74 75 72 6E 73 20 74 68 65 20 63 75 72 72 65 eturns the curre
009090: 6E 74 20 6B 65 79 20 6F 72 20 46 41 4C 53 45 20 nt key or FALSE
0090A0: 69 66 20 6E 6F 20 6B 65 79 20 70 72 65 73 73 65 if no key presse
0090B0: 64 2E 20 42 41 53 49 43 3A 20 49 4E 4B 45 59 24 d. BASIC: INKEY$
0090C0: 0D 0A 20 20 4C 45 54 20 72 65 73 20 3D 20 46 41 .. LET res = FA
0090D0: 4C 53 45 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 LSE.. INLINE 20
0090E0: 35 2C 23 78 31 42 2C 23 78 42 42 20 20 20 20 2F 5,#x1B,#xBB /
0090F0: 2F 20 63 61 6C 6C 20 72 65 61 64 6B 65 79 0D 0A / call readkey..
009100: 20 20 54 45 53 54 20 6E 75 6D 62 65 72 3C 30 20 TEST number<0
009110: 54 48 45 4E 0D 0A 20 20 24 28 0D 0A 20 20 20 20 THEN.. $(..
009120: 65 6E 76 62 61 73 65 25 30 20 3A 3D 20 73 69 7A envbase%0 := siz
009130: 65 20 4C 4F 47 4F 52 20 31 32 38 0D 0A 20 20 20 e LOGOR 128..
009140: 20 6E 75 6D 62 65 72 20 3A 3D 20 2D 6E 75 6D 62 number := -numb
009150: 65 72 0D 0A 20 20 24 29 0D 0A 20 20 45 4C 53 45 er.. $).. ELSE
009160: 20 65 6E 76 62 61 73 65 25 30 20 3A 3D 20 73 69 envbase%0 := si
009170: 7A 65 0D 0A 20 20 46 4F 52 20 61 20 3D 20 31 20 ze.. FOR a = 1
009180: 54 4F 20 73 69 7A 65 2A 33 20 42 59 20 33 0D 0A TO size*3 BY 3..
009190: 20 20 24 28 0D 0A 20 20 20 20 65 6E 76 62 61 73 $(.. envbas
0091A0: 65 25 61 20 3A 3D 20 65 6E 76 65 6C 6F 70 65 21 e%a := envelope!
0091B0: 28 61 2D 31 29 0D 0A 20 20 20 20 65 6E 76 62 61 (a-1).. envba
0091C0: 73 65 25 28 61 2B 31 29 20 3A 3D 20 65 6E 76 65 se%(a+1) := enve
0091D0: 6C 6F 70 65 21 61 0D 0A 20 20 20 20 65 6E 76 62 lope!a.. envb
0091E0: 61 73 65 25 28 61 2B 32 29 20 3A 3D 20 65 6E 76 ase%(a+2) := env
0091F0: 65 6C 6F 70 65 21 28 61 2B 31 29 0D 0A 20 20 24 elope!(a+1).. $
009200: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 33 33 2C 31 ).. INLINE 33,1
009210: 30 30 2C 30 20 20 20 20 20 20 20 20 20 2F 2F 20 00,0 //
009220: 6C 64 20 68 6C 2C 31 30 30 0D 0A 20 20 49 4E 4C ld hl,100.. INL
009230: 49 4E 45 20 32 32 31 2C 32 32 39 2C 32 32 31 2C INE 221,229,221,
009240: 32 32 39 20 20 2F 2F 20 70 75 73 68 20 69 78 3A 229 // push ix:
009250: 70 75 73 68 20 69 78 0D 0A 20 20 49 4E 4C 49 4E push ix.. INLIN
009260: 45 20 32 30 39 20 20 20 20 20 20 20 20 20 20 20 E 209
009270: 20 20 20 2F 2F 20 70 6F 70 20 64 65 0D 0A 20 20 // pop de..
009280: 49 4E 4C 49 4E 45 20 32 35 20 20 20 20 20 20 20 INLINE 25
009290: 20 20 20 20 20 20 20 20 2F 2F 20 61 64 64 20 68 // add h
0092A0: 6C 2C 64 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 l,de.. INLINE 2
0092B0: 32 31 2C 31 32 36 2C 31 32 32 20 20 20 20 20 20 21,126,122
0092C0: 2F 2F 20 6C 64 20 61 2C 28 69 78 2B 31 32 32 29 // ld a,(ix+122)
0092D0: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 .. INLINE 205,#
0092E0: 78 42 43 2C 23 78 42 43 20 20 20 20 2F 2F 20 63 xBC,#xBC // c
0092F0: 61 6C 6C 20 73 6F 75 6E 64 20 61 6D 70 6C 20 65 all sound ampl e
009300: 20 20 49 4E 4C 49 4E 45 20 34 38 2C 35 20 20 20 INLINE 48,5
009310: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 // jr
009320: 6E 63 2C 2B 33 0D 0A 20 20 49 4E 4C 49 4E 45 20 nc,+3.. INLINE
009330: 32 32 31 2C 31 31 39 2C 31 32 30 20 20 20 20 20 221,119,120
009340: 20 2F 2F 20 6C 64 20 28 69 78 2B 31 32 30 29 2C // ld (ix+120),
009350: 61 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 72 65 a.. RESULTIS re
009360: 73 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 73 70 65 s..$)....LET spe
009370: 65 64 6B 65 79 28 64 65 6C 61 79 2C 72 65 70 74 edkey(delay,rept
009380: 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F 54 68 69 73 ) BE..$(..//This
009390: 20 72 6F 75 74 69 6E 65 20 77 69 6C 6C 20 73 65 routine will se
0093A0: 74 20 6B 65 79 20 72 65 70 65 61 74 20 72 61 74 t key repeat rat
0093B0: 65 20 61 6E 64 20 73 74 61 72 74 20 64 65 6C 61 e and start dela
0093C0: 79 2E 0D 0A 2F 2F 42 41 53 49 43 3A 20 53 50 45 y...//BASIC: SPE
0093D0: 45 44 20 4B 45 59 20 64 65 6C 61 79 2C 72 65 70 ED KEY delay,rep
0093E0: 65 61 74 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 eat.. INLINE 22
0093F0: 31 2C 31 31 30 2C 31 32 36 20 20 20 20 20 20 2F 1,110,126 /
009400: 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 36 29 0D / ld l,(ix+126).
009410: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 30 . INLINE 221,10
009420: 32 2C 31 32 34 20 20 20 20 20 20 2F 2F 20 6C 64 2,124 // ld
009430: 20 68 2C 28 69 78 2B 31 32 34 29 0D 0A 20 20 49 h,(ix+124).. I
009440: 4E 4C 49 4E 45 20 32 30 35 2C 23 78 33 46 2C 23 NLINE 205,#x3F,#
009450: 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C 20 6B xBB // call k
009460: 6D 20 73 65 74 20 64 65 6C 61 79 0D 0A 24 29 0D m set delay..$).
009470: 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 53 4F 55 4E 44 ...../**** SOUND
009480: 20 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A 2F 0D ROUTINES ****/.
009490: 0A 0D 0A 2F 2A 20 54 68 65 20 64 61 74 61 20 75 .../* The data u
0094A0: 73 65 64 20 69 6E 20 73 6F 75 6E 64 20 72 6F 75 sed in sound rou
0094B0: 74 69 6E 65 73 20 6D 75 73 74 20 6C 69 65 20 69 tines must lie i
0094C0: 6E 20 74 68 65 20 63 65 6E 74 72 65 20 33 32 4B n the centre 32K
0094D0: 20 6F 66 20 6D 65 6D 6F 72 79 2E 0D 0A 20 20 20 of memory...
0094E0: 54 6F 20 61 63 68 69 65 76 65 20 74 68 69 73 20 To achieve this
0094F0: 61 20 6E 75 6D 62 65 72 20 6F 66 20 76 61 6C 75 a number of valu
009500: 6E 76 65 6C 6F 70 65 0D 0A 20 20 49 4E 4C 49 4E nvelope.. INLIN
009510: 45 20 32 32 31 2C 32 32 35 20 20 20 20 20 20 20 E 221,225
009520: 20 20 20 2F 2F 20 70 6F 70 20 69 78 0D 0A 24 29 // pop ix..$)
009530: 0D 0A 0D 0A 4C 45 54 20 72 65 6C 65 61 73 65 28 ....LET release(
009540: 63 68 61 6E 6E 65 6C 73 29 20 42 45 0D 0A 24 28 channels) BE..$(
009550: 0D 0A 2F 2F 52 65 6C 65 61 73 65 73 20 73 6F 75 ..//Releases sou
009560: 6E 64 20 63 68 61 6E 6E 65 6C 73 2C 20 62 69 74 nd channels, bit
009570: 20 30 3A 20 41 2C 20 62 69 74 20 31 3A 20 42 2C 0: A, bit 1: B,
009580: 20 62 69 74 20 32 3A 20 43 2E 0D 0A 2F 2F 42 41 bit 2: C...//BA
009590: 53 49 43 3A 20 52 45 4C 45 41 53 45 20 63 68 61 SIC: RELEASE cha
0095A0: 6E 6E 65 6C 73 0D 0A 20 20 49 4E 4C 49 4E 45 20 nnels.. INLINE
0095B0: 32 32 31 2C 31 32 36 2C 31 32 36 20 20 20 20 20 221,126,126
0095C0: 20 2F 2F 20 6C 64 20 61 2C 28 69 78 2B 31 32 36 // ld a,(ix+126
0095D0: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C ).. INLINE 205,
0095E0: 23 78 42 33 2C 23 78 42 43 20 20 20 20 2F 2F 20 #xB3,#xBC //
0095F0: 63 61 6C 6C 20 73 6F 75 6E 64 20 72 65 6C 65 61 call sound relea
009600: 73 65 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 73 6F se..$)....LET so
009610: 75 6E 64 28 61 72 72 61 79 29 20 42 45 0D 0A 24 und(array) BE..$
009620: 28 0D 0A 2F 2F 50 72 6F 67 72 61 6D 73 20 61 20 (..//Programs a
009630: 73 6F 75 6E 64 2E 20 54 68 65 20 61 72 72 61 79 sound. The array
009640: 20 73 68 6F 75 6C 64 20 62 65 20 37 20 77 6F 72 should be 7 wor
009650: 64 73 20 6C 6F 6E 67 2E 0D 0A 2F 2F 42 41 53 49 ds long...//BASI
009660: 43 3A 20 53 4F 55 4E 44 20 61 30 2C 61 31 2C 61 C: SOUND a0,a1,a
009670: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 0D 0A 2F 2,a3,a4,a5,a6../
009680: 2F 77 68 65 72 65 20 61 30 3D 61 72 72 61 79 21 /where a0=array!
009690: 30 2C 20 61 31 3D 61 72 72 61 79 21 31 2C 2E 2E 0, a1=array!1,..
0096A0: 2E 2C 20 61 36 3D 61 72 72 61 79 21 36 0D 0A 20 ., a6=array!6..
0096B0: 20 4C 45 54 20 61 31 2C 61 32 2C 61 33 2C 61 34 LET a1,a2,a3,a4
0096C0: 2C 61 35 20 3D 20 30 2C 20 30 2C 20 30 2C 20 30 ,a5 = 0, 0, 0, 0
0096D0: 2C 20 30 20 20 20 2F 2F 20 61 6E 20 61 72 72 61 , 0 // an arra
0096E0: 79 20 6F 6E 20 74 68 65 20 68 61 72 64 77 61 72 y on the hardwar
0096F0: 65 20 73 74 61 63 6B 0D 0A 20 20 4C 45 54 20 73 e stack.. LET s
009700: 65 73 20 61 72 65 20 64 65 63 6C 61 72 65 64 20 es are declared
009710: 77 68 69 63 68 20 6C 69 65 20 6E 65 78 74 20 74 which lie next t
009720: 6F 20 65 61 63 68 0D 0A 20 20 20 6F 74 68 65 72 o each.. other
009730: 20 61 6E 64 20 61 73 20 74 68 65 79 20 61 72 65 and as they are
009740: 20 6F 6E 20 74 68 65 20 68 61 72 64 77 61 72 65 on the hardware
009750: 20 73 74 61 63 6B 20 74 68 65 79 20 61 72 65 20 stack they are
009760: 69 6E 20 74 68 65 20 63 65 6E 74 72 65 20 33 32 in the centre 32
009770: 4B 20 2A 2F 0D 0A 0D 0A 4C 45 54 20 65 6E 74 28 K */....LET ent(
009780: 6E 75 6D 62 65 72 2C 73 69 7A 65 2C 65 6E 76 65 number,size,enve
009790: 6C 6F 70 65 29 20 42 45 0D 0A 24 28 0D 0A 2F 2F lope) BE..$(..//
0097A0: 54 68 69 73 20 72 6F 75 74 69 6E 65 20 73 65 74 This routine set
0097B0: 73 20 75 70 20 61 20 74 6F 6E 65 20 65 6E 76 65 s up a tone enve
0097C0: 6C 6F 70 65 2E 20 4E 75 6D 62 65 72 20 68 6F 6C lope. Number hol
0097D0: 64 73 20 74 68 65 20 65 6E 76 65 6C 6F 70 65 20 ds the envelope
0097E0: 6E 75 6D 62 65 72 0D 0A 2F 2F 62 65 69 6E 67 20 number..//being
0097F0: 64 65 66 69 6E 65 64 2C 20 73 69 7A 65 20 68 6F defined, size ho
009800: 6C 64 73 20 74 68 65 20 6E 75 6D 62 65 72 20 6F lds the number o
009810: 66 20 73 65 63 74 69 6F 6E 73 20 61 6E 64 20 65 f sections and e
009820: 6E 76 65 6C 6F 70 65 20 69 73 20 61 6E 20 61 72 nvelope is an ar
009830: 72 61 79 0D 0A 2F 2F 68 6F 6C 64 69 6E 67 20 74 ray..//holding t
009840: 68 65 20 65 6E 76 65 6C 6F 70 65 20 64 61 74 61 he envelope data
009850: 2C 20 6F 66 20 73 69 7A 65 20 75 70 20 74 6F 20 , of size up to
009860: 38 20 77 6F 72 64 73 2E 20 54 68 65 20 61 72 72 8 words. The arr
009870: 61 79 20 63 6F 6E 74 61 69 6E 73 0D 0A 2F 2F 73 ay contains..//s
009880: 75 63 63 65 73 73 69 76 65 20 33 20 62 79 74 65 uccessive 3 byte
009890: 20 65 6E 76 65 6C 6F 70 65 20 73 65 63 74 69 6F envelope sectio
0098A0: 6E 73 2E 0D 0A 2F 2F 42 41 53 49 43 3A 20 45 4E ns...//BASIC: EN
0098B0: 54 20 6E 75 6D 62 65 72 2C 3C 65 6E 76 65 6C 6F T number,<envelo
0098C0: 70 65 20 73 65 63 74 69 6F 6E 73 3E 0D 0A 20 20 pe sections>..
0098D0: 4C 45 54 20 61 30 2C 61 31 2C 61 32 2C 61 33 2C LET a0,a1,a2,a3,
0098E0: 61 34 2C 61 35 2C 61 36 2C 61 37 20 3D 20 30 2C a4,a5,a6,a7 = 0,
0098F0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 2F 0,0,0,0,0,0,0 /
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 00 02 02 09 4E E5 08 00 C1 02 00 00 00 02 ......N.........
009920: 08 00 C6 02 00 00 00 02 08 00 C2 02 00 00 00 02 ................
009930: 08 00 C7 02 00 00 00 02 08 00 C3 02 00 00 00 02 ................
009940: 08 00 C8 02 00 00 00 02 08 00 C4 02 00 00 00 02 ................
009950: 08 00 C9 02 00 00 00 02 08 00 C5 02 00 00 00 02 ................
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 62 61 73 65 20 3D 20 40 61 35 0D 0A 20 20 73 62 base = @a5.. sb
009A10: 61 73 65 25 30 20 3A 3D 20 61 72 72 61 79 21 30 ase%0 := array!0
009A20: 0D 0A 20 20 73 62 61 73 65 25 31 20 3A 3D 20 61 .. sbase%1 := a
009A30: 72 72 61 79 21 34 0D 0A 20 20 73 62 61 73 65 25 rray!4.. sbase%
009A40: 32 20 3A 3D 20 61 72 72 61 79 21 35 0D 0A 20 20 2 := array!5..
009A50: 73 62 61 73 65 25 33 20 3A 3D 20 61 72 72 61 79 sbase%3 := array
009A60: 25 32 0D 0A 20 20 73 62 61 73 65 25 34 20 3A 3D %2.. sbase%4 :=
009A70: 20 61 72 72 61 79 25 33 0D 0A 20 20 73 62 61 73 array%3.. sbas
009A80: 65 25 35 20 3A 3D 20 61 72 72 61 79 21 36 0D 0A e%5 := array!6..
009A90: 20 20 73 62 61 73 65 25 36 20 3A 3D 20 61 72 72 sbase%6 := arr
009AA0: 61 79 21 33 0D 0A 20 20 73 62 61 73 65 25 37 20 ay!3.. sbase%7
009AB0: 3A 3D 20 61 72 72 61 79 25 34 0D 0A 20 20 73 62 := array%4.. sb
009AC0: 61 73 65 25 38 20 3A 3D 20 61 72 72 61 79 25 35 ase%8 := array%5
009AD0: 0D 0A 20 20 49 4E 4C 49 4E 45 20 33 33 2C 31 31 .. INLINE 33,11
009AE0: 30 2C 30 20 20 20 20 20 20 20 20 20 2F 2F 20 6C 0,0 // l
009AF0: 64 20 68 6C 2C 31 31 30 0D 0A 20 20 49 4E 4C 49 d hl,110.. INLI
009B00: 4E 45 20 32 32 31 2C 32 32 39 2C 32 32 31 2C 32 NE 221,229,221,2
009B10: 32 39 20 20 2F 2F 20 70 75 73 68 20 69 78 2C 20 29 // push ix,
009B20: 70 75 73 68 20 69 78 0D 0A 20 20 49 4E 4C 49 4E push ix.. INLIN
009B30: 45 20 32 30 39 20 20 20 20 20 20 20 20 20 20 20 E 209
009B40: 20 20 20 2F 2F 20 70 6F 70 20 64 65 0D 0A 20 20 // pop de..
009B50: 49 4E 4C 49 4E 45 20 32 35 20 20 20 20 20 20 20 INLINE 25
009B60: 20 20 20 20 20 20 20 20 2F 2F 20 61 64 64 20 68 // add h
009B70: 6C 2C 64 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 l,de.. INLINE 2
009B80: 30 35 2C 23 78 41 41 2C 23 78 42 43 20 20 20 20 05,#xAA,#xBC
009B90: 2F 2F 20 63 61 6C 6C 20 73 6F 75 6E 64 20 71 75 // call sound qu
009BA0: 65 75 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 eue.. INLINE 22
009BB0: 31 2C 32 32 35 20 20 20 20 20 20 20 20 20 20 2F 1,225 /
009BC0: 2F 20 70 6F 70 20 69 78 0D 0A 24 29 0D 0A 0D 0A / pop ix..$)....
009BD0: 0D 0A 2F 2A 2A 2A 2A 20 4D 49 53 43 45 4C 4C 41 ../**** MISCELLA
009BE0: 4E 45 4F 55 53 20 52 4F 55 54 49 4E 45 53 20 2A NEOUS ROUTINES *
009BF0: 2A 2A 2A 2F 0D 0A 0D 0A 4C 45 54 20 72 73 78 28 ***/....LET rsx(
009C00: 20 43 41 53 45 20 35 3A 20 77 72 69 74 65 73 28 CASE 5: writes(
009C10: 22 70 65 22 29 20 3B 20 45 4E 44 43 41 53 45 0D "pe") ; ENDCASE.
009C20: 0A 20 20 20 20 43 41 53 45 20 36 3A 20 77 72 69 . CASE 6: wri
009C30: 74 65 73 28 22 70 22 29 20 3B 20 45 4E 44 43 41 tes("p") ; ENDCA
009C40: 53 45 0D 0A 20 20 20 20 43 41 53 45 20 37 3A 20 SE.. CASE 7:
009C50: 77 72 69 74 65 73 28 22 6D 22 29 0D 0A 20 20 24 writes("m").. $
009C60: 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 73 )..$)......LET s
009C70: 69 67 6E 65 78 74 65 6E 64 28 76 61 6C 75 65 29 ignextend(value)
009C80: 20 3D 20 76 61 6C 75 65 3E 31 32 37 20 2D 3E 20 = value>127 ->
009C90: 76 61 6C 75 65 2D 32 35 36 2C 20 76 61 6C 75 65 value-256, value
009CA0: 0D 0A 0D 0A 4C 45 54 20 62 69 74 30 28 76 61 6C ....LET bit0(val
009CB0: 75 65 29 20 3D 20 76 61 6C 75 65 20 4C 4F 47 41 ue) = value LOGA
009CC0: 4E 44 20 31 0D 0A 0D 0A 4C 45 54 20 62 69 74 31 ND 1....LET bit1
009CD0: 28 76 61 6C 75 65 29 20 3D 20 76 61 6C 75 65 20 (value) = value
009CE0: 4C 4F 47 41 4E 44 20 32 0D 0A 0D 0A 4C 45 54 20 LOGAND 2....LET
009CF0: 61 64 64 28 73 69 7A 65 29 20 42 45 0D 0A 0D 0A add(size) BE....
009D00: 24 28 0D 0A 20 20 73 69 7A 65 20 3A 3D 20 73 69 $(.. size := si
009D10: 67 6E 65 78 74 65 6E 64 28 73 69 7A 65 29 0D 0A gnextend(size)..
009D20: 20 20 77 72 63 68 28 73 69 7A 65 20 3E 3D 30 20 wrch(size >=0
009D30: 2D 3E 20 27 2B 27 2C 27 2D 27 29 0D 0A 20 20 77 -> '+','-').. w
009D40: 72 69 74 65 68 65 78 28 61 62 73 28 73 69 7A 65 ritehex(abs(size
009D50: 29 2C 32 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 ),2)..$)......LE
009D60: 54 20 73 69 6E 67 6C 65 72 65 67 69 73 74 65 72 T singleregister
009D70: 28 6E 75 6D 2C 69 6E 64 65 78 2C 6F 66 66 73 65 (num,index,offse
009D80: 74 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 53 t) BE....$(.. S
009D90: 57 49 54 43 48 4F 4E 20 6E 75 6D 20 49 4E 54 4F WITCHON num INTO
009DA0: 0D 0A 20 20 24 28 0D 0A 20 20 20 20 43 41 53 45 .. $(.. CASE
009DB0: 20 30 3A 20 77 72 69 74 65 73 28 22 62 22 29 20 0: writes("b")
009DC0: 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 ; ENDCASE.. C
009DD0: 41 53 45 20 31 3A 20 77 72 69 74 65 73 28 22 63 ASE 1: writes("c
009DE0: 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 ") ; ENDCASE..
009DF0: 20 20 43 41 53 45 20 32 3A 20 77 72 69 74 65 73 CASE 2: writes
009E00: 73 74 72 69 6E 67 29 20 3D 20 56 41 4C 4F 46 0D string) = VALOF.
009E10: 0A 24 28 0D 0A 2F 2F 54 68 69 73 20 72 6F 75 74 .$(..//This rout
009E20: 69 6E 65 20 6C 6F 6F 6B 73 20 75 70 20 61 6E 20 ine looks up an
009E30: 52 53 58 20 61 6E 64 20 72 65 74 75 72 6E 73 20 RSX and returns
009E40: 74 68 65 20 61 64 64 72 65 73 73 20 6F 72 20 30 the address or 0
009E50: 20 69 66 20 6E 6F 74 20 66 6F 75 6E 64 0D 0A 20 if not found..
009E60: 20 4C 45 54 20 72 65 73 75 6C 74 20 3D 20 30 0D LET result = 0.
009E70: 0A 20 20 46 4F 52 20 61 20 3D 20 31 20 54 4F 20 . FOR a = 1 TO
009E80: 73 74 72 69 6E 67 25 30 0D 0A 20 20 20 20 73 74 string%0.. st
009E90: 72 69 6E 67 25 61 20 3A 3D 20 27 61 27 3C 3D 73 ring%a := 'a'<=s
009EA0: 74 72 69 6E 67 25 61 3C 3D 27 7A 27 20 2D 3E 20 tring%a<='z' ->
009EB0: 73 74 72 69 6E 67 25 61 2D 33 32 2C 20 73 74 72 string%a-32, str
009EC0: 69 6E 67 25 61 0D 0A 20 20 73 74 72 69 6E 67 25 ing%a.. string%
009ED0: 28 73 74 72 69 6E 67 25 30 29 20 3A 3D 20 73 74 (string%0) := st
009EE0: 72 69 6E 67 25 28 73 74 72 69 6E 67 25 30 29 20 ring%(string%0)
009EF0: 4C 4F 47 4F 52 20 31 32 38 0D 0A 20 20 49 4E 4C LOGOR 128.. INL
009F00: 49 4E 45 20 32 32 31 2C 31 30 32 2C 31 32 37 20 INE 221,102,127
009F10: 20 20 20 20 20 2F 2F 20 6C 64 20 68 2C 28 69 78 // ld h,(ix
009F20: 2B 31 32 37 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 +127).. INLINE
009F30: 32 32 31 2C 31 31 30 2C 31 32 36 20 20 20 20 20 221,110,126
009F40: 20 2F 2F 20 6C 64 20 6C 2C 28 69 78 2B 31 32 36 // ld l,(ix+126
009F50: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 34 31 20 20 ).. INLINE 41
009F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 //
009F70: 61 64 64 20 68 6C 2C 68 6C 0D 0A 20 20 49 4E 4C add hl,hl.. INL
009F80: 49 4E 45 20 33 35 20 20 20 20 20 20 20 20 20 20 INE 35
009F90: 20 20 20 20 20 2F 2F 20 69 6E 63 20 68 6C 0D 0A // inc hl..
009FA0: 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 44 INLINE 205,#xD
009FB0: 34 2C 23 78 42 43 20 20 20 20 2F 2F 20 63 61 6C 4,#xBC // cal
009FC0: 6C 20 6B 6C 20 66 69 6E 64 20 63 6F 6D 6D 61 6E l kl find comman
009FD0: 64 0D 0A 20 20 49 4E 4C 49 4E 45 20 34 38 2C 36 d.. INLINE 48,6
009FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 //
009FF0: 6A 72 20 6E 63 2C 70 63 2B 36 0D 0A 20 20 49 4E jr nc,pc+6.. IN
00A000: 28 22 64 22 29 20 3B 20 45 4E 44 43 41 53 45 0D ("d") ; ENDCASE.
00A010: 0A 20 20 20 20 43 41 53 45 20 33 3A 20 77 72 69 . CASE 3: wri
00A020: 74 65 73 28 22 65 22 29 20 3B 20 45 4E 44 43 41 tes("e") ; ENDCA
00A030: 53 45 0D 0A 20 20 20 20 43 41 53 45 20 34 3A 20 SE.. CASE 4:
00A040: 77 72 69 74 65 73 28 22 68 22 29 20 3B 20 45 4E writes("h") ; EN
00A050: 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 DCASE.. CASE
00A060: 35 3A 20 77 72 69 74 65 73 28 22 6C 22 29 20 3B 5: writes("l") ;
00A070: 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 ENDCASE.. CA
00A080: 53 45 20 36 3A 20 77 72 63 68 28 27 28 27 29 0D SE 6: wrch('(').
00A090: 0A 20 20 20 20 20 20 20 20 20 20 20 20 64 6F 75 . dou
00A0A0: 62 6C 65 72 65 67 69 73 74 65 72 28 32 2C 69 6E bleregister(2,in
00A0B0: 64 65 78 29 0D 0A 20 20 20 20 20 20 20 20 20 20 dex)..
00A0C0: 20 20 49 46 20 69 6E 64 65 78 20 4E 45 20 68 6C IF index NE hl
00A0D0: 20 54 48 45 4E 20 61 64 64 28 6F 66 66 73 65 74 THEN add(offset
00A0E0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 77 ).. w
00A0F0: 72 63 68 28 27 29 27 29 20 3B 20 45 4E 44 43 41 rch(')') ; ENDCA
00A100: 53 45 0D 0A 20 20 20 20 43 41 53 45 20 37 3A 20 SE.. CASE 7:
00A110: 77 72 69 74 65 73 28 22 61 22 29 0D 0A 20 20 24 writes("a").. $
00A120: 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 41 4E 44 20 64 )..$)......AND d
00A130: 6F 75 62 6C 65 72 65 67 69 73 74 65 72 28 6E 75 oubleregister(nu
00A140: 6D 2C 69 6E 64 65 78 29 20 42 45 0D 0A 0D 0A 24 m,index) BE....$
00A150: 28 0D 0A 20 20 53 57 49 54 43 48 4F 4E 20 6E 75 (.. SWITCHON nu
00A160: 6D 20 49 4E 54 4F 0D 0A 20 20 24 28 0D 0A 20 20 m INTO.. $(..
00A170: 20 20 43 41 53 45 20 30 3A 20 77 72 69 74 65 73 CASE 0: writes
00A180: 28 22 62 63 22 29 20 3B 20 45 4E 44 43 41 53 45 ("bc") ; ENDCASE
00A190: 0D 0A 20 20 20 20 43 41 53 45 20 31 3A 20 77 72 .. CASE 1: wr
00A1A0: 69 74 65 73 28 22 64 65 22 29 20 3B 20 45 4E 44 ites("de") ; END
00A1B0: 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 32 CASE.. CASE 2
00A1C0: 3A 20 53 57 49 54 43 48 4F 4E 20 69 6E 64 65 78 : SWITCHON index
00A1D0: 20 49 4E 54 4F 0D 0A 20 20 20 20 20 20 20 20 20 INTO..
00A1E0: 20 20 20 24 28 0D 0A 20 20 20 20 20 20 20 20 20 $(..
00A1F0: 20 20 20 20 20 43 41 53 45 20 30 3A 20 77 72 69 CASE 0: wri
00A200: 4C 49 4E 45 20 32 32 31 2C 31 31 37 2C 31 31 38 LINE 221,117,118
00A210: 20 20 20 20 20 20 2F 2F 20 6C 64 20 28 69 78 2B // ld (ix+
00A220: 31 31 38 29 2C 6C 0D 0A 20 20 49 4E 4C 49 4E 45 118),l.. INLINE
00A230: 20 32 32 31 2C 31 31 36 2C 31 31 39 20 20 20 20 221,116,119
00A240: 20 20 2F 2F 20 6C 64 20 28 69 78 2B 31 31 39 29 // ld (ix+119)
00A250: 2C 68 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 72 ,h.. RESULTIS r
00A260: 65 73 75 6C 74 0D 0A 24 29 0D 0A 0D 0A 2F 2A 20 esult..$)..../*
00A270: 45 6E 64 20 6F 66 20 41 4D 53 44 4F 53 20 66 65 End of AMSDOS fe
00A280: 61 74 75 72 65 73 20 6C 69 62 72 61 72 79 20 2A atures library *
00A290: 2F 0D 0A 1A 72 79 20 6F 66 20 66 75 6E 63 74 69 /...ry of functi
00A2A0: 6F 6E 73 20 77 68 69 63 68 20 63 6F 6E 74 72 6F ons which contro
00A2B0: 6C 20 76 61 72 69 6F 75 73 20 61 73 70 65 63 74 l various aspect
00A2C0: 73 20 6F 66 20 74 68 65 0D 0A 20 20 20 41 4D 53 s of the.. AMS
00A2D0: 54 52 41 44 20 75 6E 64 65 72 20 41 4D 53 44 4F TRAD under AMSDO
00A2E0: 53 2E 20 42 72 69 65 66 20 64 65 74 61 69 6C 73 S. Brief details
00A2F0: 20 6F 66 20 65 61 63 68 20 72 6F 75 74 69 6E 65 of each routine
00A300: 32 55 6D 22 53 6D ED 43 56 6D 1C 1D 20 01 53 ED 2Um"Sm.CVm.. .S.
00A310: 53 58 6D CD 7D 58 21 76 57 11 7A 57 30 04 23 23 SXm.}X!vW.zW0.##
00A320: 13 13 CD 77 58 30 01 EB 22 5A 6D C9 7E 23 23 C9 ...wX0.."Zm.~##.
00A330: 2B 7E 2B C9 2A 53 6D 7E ED 4B 5A 6D CD E1 58 22 +~+.*Sm~.KZm..X"
00A340: 53 6D 6F 26 00 3A 72 6D B7 28 01 29 E5 ED 4B 56 Smo&.:rm.(.)..KV
00A350: 6D 3A 59 6D 21 55 6D BE 20 0E EB 2A 58 6D 65 09 m:Ym!Um. ..*Xme.
00A360: 3D 78 44 28 02 47 4D EB 35 E1 C0 E5 C5 CD A7 58 =xD(.GM.5......X
00A370: 01 09 00 21 60 6D 70 30 11 71 3A 72 6D 23 77 23 ...!`mp0.q:rm#w#
00A380: 22 5E 6D EB 2A 53 6D 2B ED B0 AF C1 E1 C9 62 6B "^m.*Sm+......bk
00A390: 19 19 CD 04 56 06 00 60 68 18 0D 21 00 00 22 5C ....V..`h..!.."\
00A3A0: 6D 22 6B 6D C9 16 00 59 E5 2A 5C 6D 19 CD 06 58 m"km...Y.*\m...X
00A3B0: E1 3A 6D 6D B5 6F 22 6B 6D 68 26 00 7C B5 28 19 .:mm.o"kmh&.|.(.
00A3C0: ED 5B 30 6D ED 52 D4 27 58 30 F9 19 7D FE 05 5D .[0m.R.'X0..}..]
00A3D0: D4 27 58 DC F5 5A 21 00 00 22 5C 6D C9 E5 D5 CD .'X..Z!.."\m....
00A3E0: 3F 58 2A 6B 6D B5 6F CD 13 5B 2A 6D 6D AF 67 22 ?X*km.o..[*mm.g"
00A3F0: 6B 6D D1 E1 C9 3A 60 6D B7 C8 3D 32 60 6D E5 3A km...:`m..=2`m.:
00A400: 74 65 73 28 22 68 6C 22 29 20 3B 20 45 4E 44 43 tes("hl") ; ENDC
00A410: 41 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ASE..
00A420: 20 20 20 43 41 53 45 20 31 3A 20 77 72 69 74 65 CASE 1: write
00A430: 73 28 22 69 78 22 29 20 3B 20 45 4E 44 43 41 53 s("ix") ; ENDCAS
00A440: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 E..
00A450: 20 43 41 53 45 20 32 3A 20 77 72 69 74 65 73 28 CASE 2: writes(
00A460: 22 69 79 22 29 0D 0A 20 20 20 20 20 20 20 20 20 "iy")..
00A470: 20 20 20 24 29 20 3B 20 45 4E 44 43 41 53 45 0D $) ; ENDCASE.
00A480: 0A 20 20 20 20 43 41 53 45 20 33 3A 20 77 72 69 . CASE 3: wri
00A490: 74 65 73 28 22 73 70 22 29 0D 0A 20 20 24 29 0D tes("sp").. $).
00A4A0: 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 .$)......../* Th
00A4B0: 69 73 20 72 6F 75 74 69 6E 65 20 64 69 76 69 64 is routine divid
00A4C0: 65 73 20 62 79 74 65 20 75 70 20 69 6E 74 6F 20 es byte up into
00A4D0: 62 69 74 73 20 30 2D 32 2C 20 33 2D 35 2C 20 36 bits 0-2, 3-5, 6
00A4E0: 2D 37 20 2A 2F 0D 0A 0D 0A 4C 45 54 20 64 69 76 -7 */....LET div
00A4F0: 69 64 65 28 62 79 74 65 29 20 42 45 0D 0A 0D 0A ide(byte) BE....
00A500: 24 28 0D 0A 20 20 74 6F 70 20 3A 3D 20 28 62 79 $(.. top := (by
00A510: 74 65 20 4C 4F 47 41 4E 44 20 23 62 31 31 30 30 te LOGAND #b1100
00A520: 30 30 30 30 29 20 3E 3E 20 36 0D 0A 20 20 6D 69 0000) >> 6.. mi
00A530: 64 64 6C 65 20 3A 3D 20 28 62 79 74 65 20 4C 4F ddle := (byte LO
00A540: 47 41 4E 44 20 23 62 30 30 31 31 31 30 30 30 29 GAND #b00111000)
00A550: 20 3E 3E 20 33 0D 0A 20 20 62 6F 74 74 6F 6D 20 >> 3.. bottom
00A560: 3A 3D 20 28 62 79 74 65 20 4C 4F 47 41 4E 44 20 := (byte LOGAND
00A570: 23 62 30 30 30 30 30 31 31 31 29 0D 0A 24 29 0D #b00000111)..$).
00A580: 0A 0D 0A 0D 0A 4C 45 54 20 67 65 74 62 79 74 65 .....LET getbyte
00A590: 28 29 20 3D 20 56 41 4C 4F 46 0D 0A 0D 0A 24 28 () = VALOF....$(
00A5A0: 0D 0A 20 20 70 63 20 3A 3D 20 70 63 20 2B 20 31 .. pc := pc + 1
00A5B0: 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 30 25 28 .. RESULTIS 0%(
00A5C0: 70 63 2D 31 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D pc-1)..$).......
00A5D0: 0A 2F 2A 20 54 68 69 73 20 69 73 20 74 68 65 20 ./* This is the
00A5E0: 63 61 73 65 20 6F 66 20 61 20 73 69 6D 70 6C 65 case of a simple
00A5F0: 20 72 65 67 69 73 74 65 72 20 74 72 61 6E 73 66 register transf
00A600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A800: 65 72 20 2A 2F 0D 0A 0D 0A 4C 45 54 20 72 65 67 er */....LET reg
00A810: 74 72 61 6E 73 28 29 20 42 45 0D 0A 0D 0A 24 28 trans() BE....$(
00A820: 0D 0A 20 20 4C 45 54 20 6F 66 66 73 65 74 20 3D .. LET offset =
00A830: 20 30 0D 0A 20 20 54 45 53 54 20 6D 69 64 64 6C 0.. TEST middl
00A840: 65 3D 62 6F 74 74 6F 6D 3D 36 20 54 48 45 4E 20 e=bottom=6 THEN
00A850: 77 72 69 74 65 73 28 22 68 61 6C 74 22 29 0D 0A writes("halt")..
00A860: 20 20 45 4C 53 45 0D 0A 20 20 24 28 0D 0A 20 20 ELSE.. $(..
00A870: 20 20 49 46 20 68 6C 70 61 69 72 20 4E 45 20 68 IF hlpair NE h
00A880: 6C 20 54 48 45 4E 20 6F 66 66 73 65 74 20 3A 3D l THEN offset :=
00A890: 20 67 65 74 62 79 74 65 28 29 0D 0A 20 20 20 20 getbyte()..
00A8A0: 77 72 69 74 65 73 28 22 6C 64 20 22 29 0D 0A 20 writes("ld ")..
00A8B0: 20 20 20 73 69 6E 67 6C 65 72 65 67 69 73 74 65 singleregiste
00A8C0: 72 28 6D 69 64 64 6C 65 2C 68 6C 70 61 69 72 2C r(middle,hlpair,
00A8D0: 6F 66 66 73 65 74 29 0D 0A 20 20 20 20 77 72 69 offset).. wri
00A8E0: 74 65 73 28 22 2C 20 22 29 0D 0A 20 20 20 20 73 tes(", ").. s
00A8F0: 69 6E 67 6C 65 72 65 67 69 73 74 65 72 28 62 6F ingleregister(bo
00A900: 74 74 6F 6D 2C 68 6C 70 61 69 72 2C 6F 66 66 73 ttom,hlpair,offs
00A910: 65 74 29 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D et).. $)..$)...
00A920: 0A 0D 0A 0D 0A 4C 45 54 20 73 68 69 66 74 69 6E .....LET shiftin
00A930: 73 74 72 28 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A str() BE....$(..
00A940: 20 20 4C 45 54 20 6F 66 66 73 65 74 20 3D 20 30 LET offset = 0
00A950: 0D 0A 20 20 53 57 49 54 43 48 4F 4E 20 6D 69 64 .. SWITCHON mid
00A960: 64 6C 65 20 49 4E 54 4F 0D 0A 20 20 24 28 0D 0A dle INTO.. $(..
00A970: 20 20 20 20 43 41 53 45 20 30 3A 20 77 72 69 74 CASE 0: writ
00A980: 65 73 28 22 72 6C 63 20 22 29 20 3B 20 45 4E 44 es("rlc ") ; END
00A990: 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 31 CASE.. CASE 1
00A9A0: 3A 20 77 72 69 74 65 73 28 22 72 72 63 20 22 29 : writes("rrc ")
00A9B0: 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 ; ENDCASE..
00A9C0: 43 41 53 45 20 32 3A 20 77 72 69 74 65 73 28 22 CASE 2: writes("
00A9D0: 72 6C 20 22 29 20 3B 20 45 4E 44 43 41 53 45 0D rl ") ; ENDCASE.
00A9E0: 0A 20 20 20 20 43 41 53 45 20 33 3A 20 77 72 69 . CASE 3: wri
00A9F0: 74 65 73 28 22 72 72 20 22 29 20 3B 20 45 4E 44 tes("rr ") ; END
00AA00: 0D 0A 2F 2A 20 54 68 69 73 20 77 69 6C 6C 20 62 ../* This will b
00AA10: 65 20 61 20 64 69 73 61 73 73 65 6D 62 6C 65 72 e a disassembler
00AA20: 20 66 6F 72 20 5A 38 30 20 63 6F 64 65 2E 20 49 for Z80 code. I
00AA30: 74 20 75 73 65 73 20 74 68 65 20 62 69 74 20 70 t uses the bit p
00AA40: 61 74 74 65 72 6E 73 20 74 6F 0D 0A 20 20 20 72 atterns to.. r
00AA50: 65 63 6F 67 6E 69 73 65 20 74 68 65 20 61 64 64 ecognise the add
00AA60: 72 65 73 73 69 6E 67 20 6D 6F 64 65 73 20 2A 2F ressing modes */
00AA70: 0D 0A 0D 0A 2F 2F 20 6C 61 73 74 20 6D 6F 64 69 ....// last modi
00AA80: 66 69 65 64 20 30 33 2F 31 31 2F 31 39 38 36 0D fied 03/11/1986.
00AA90: 0A 0D 0A 4D 41 4E 49 46 45 53 54 20 24 28 20 68 ...MANIFEST $( h
00AAA0: 6C 20 3D 20 30 20 3B 20 69 78 20 3D 20 31 20 3B l = 0 ; ix = 1 ;
00AAB0: 20 69 79 20 3D 20 32 20 24 29 0D 0A 0D 0A 47 4C iy = 2 $)....GL
00AAC0: 4F 42 41 4C 20 24 28 20 70 63 20 3A 20 30 20 3B OBAL $( pc : 0 ;
00AAD0: 20 74 6F 70 20 3A 20 31 20 3B 20 6D 69 64 64 6C top : 1 ; middl
00AAE0: 65 20 3A 20 32 20 3B 20 62 6F 74 74 6F 6D 20 3A e : 2 ; bottom :
00AAF0: 20 33 0D 0A 20 20 20 20 20 20 20 20 20 20 68 6C 3.. hl
00AB00: 70 61 69 72 20 3A 20 34 20 24 29 0D 0A 0D 0A 4C pair : 4 $)....L
00AB10: 45 54 20 63 6F 6E 64 69 74 69 6F 6E 63 6F 64 65 ET conditioncode
00AB20: 28 6E 75 6D 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A (num) BE....$(..
00AB30: 20 20 53 57 49 54 43 48 4F 4E 20 6E 75 6D 20 49 SWITCHON num I
00AB40: 4E 54 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 20 43 NTO.. $(.. C
00AB50: 41 53 45 20 30 3A 20 77 72 69 74 65 73 28 22 6E ASE 0: writes("n
00AB60: 7A 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 z") ; ENDCASE..
00AB70: 20 20 20 43 41 53 45 20 31 3A 20 77 72 69 74 65 CASE 1: write
00AB80: 73 28 22 7A 22 29 20 3B 20 45 4E 44 43 41 53 45 s("z") ; ENDCASE
00AB90: 0D 0A 20 20 20 20 43 41 53 45 20 32 3A 20 77 72 .. CASE 2: wr
00ABA0: 69 74 65 73 28 22 6E 63 22 29 20 3B 20 45 4E 44 ites("nc") ; END
00ABB0: 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 33 CASE.. CASE 3
00ABC0: 3A 20 77 72 69 74 65 73 28 22 63 22 29 20 3B 20 : writes("c") ;
00ABD0: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 ENDCASE.. CAS
00ABE0: 45 20 34 3A 20 77 72 69 74 65 73 28 22 70 6F 22 E 4: writes("po"
00ABF0: 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 ) ; ENDCASE..
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 00 02 02 09 4E E5 09 00 C1 02 00 00 00 02 ......N.........
00AC20: 09 00 C6 02 00 00 00 02 09 00 C2 02 00 00 00 02 ................
00AC30: 09 00 C7 02 00 00 00 02 09 00 C3 02 00 00 00 02 ................
00AC40: 09 00 C8 02 00 00 00 02 09 00 C4 02 00 00 00 02 ................
00AC50: 09 00 C9 02 00 00 00 02 09 00 C5 02 00 00 00 02 ................
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 34 CASE.. CASE 4
00AD10: 3A 20 77 72 69 74 65 73 28 22 73 6C 61 20 22 29 : writes("sla ")
00AD20: 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 ; ENDCASE..
00AD30: 43 41 53 45 20 35 3A 20 77 72 69 74 65 73 28 22 CASE 5: writes("
00AD40: 73 72 61 20 22 29 20 3B 20 45 4E 44 43 41 53 45 sra ") ; ENDCASE
00AD50: 0D 0A 20 20 20 20 43 41 53 45 20 37 3A 20 77 72 .. CASE 7: wr
00AD60: 69 74 65 73 28 22 73 72 6C 20 22 29 20 3B 20 45 ites("srl ") ; E
00AD70: 4E 44 43 41 53 45 0D 0A 20 20 24 29 0D 0A 20 20 NDCASE.. $)..
00AD80: 49 46 20 68 6C 70 61 69 72 20 4E 45 20 68 6C 20 IF hlpair NE hl
00AD90: 54 48 45 4E 20 6F 66 66 73 65 74 20 3A 3D 20 67 THEN offset := g
00ADA0: 65 74 62 79 74 65 28 29 0D 0A 20 20 73 69 6E 67 etbyte().. sing
00ADB0: 6C 65 72 65 67 69 73 74 65 72 28 62 6F 74 74 6F leregister(botto
00ADC0: 6D 2C 68 6C 70 61 69 72 2C 6F 66 66 73 65 74 29 m,hlpair,offset)
00ADD0: 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C 45 54 20 ..$)........LET
00ADE0: 62 69 74 69 6E 73 74 72 28 29 20 42 45 0D 0A 0D bitinstr() BE...
00ADF0: 0A 24 28 0D 0A 20 20 4C 45 54 20 66 69 72 73 74 .$(.. LET first
00AE00: 2C 20 6F 66 66 73 65 74 20 3D 20 30 2C 20 30 0D , offset = 0, 0.
00AE10: 0A 20 20 54 45 53 54 20 68 6C 70 61 69 72 20 3D . TEST hlpair =
00AE20: 20 68 6C 20 54 48 45 4E 20 66 69 72 73 74 20 3A hl THEN first :
00AE30: 3D 20 67 65 74 62 79 74 65 28 29 0D 0A 20 20 45 = getbyte().. E
00AE40: 4C 53 45 0D 0A 20 20 24 28 0D 0A 20 20 20 20 6F LSE.. $(.. o
00AE50: 66 66 73 65 74 20 3A 3D 20 67 65 74 62 79 74 65 ffset := getbyte
00AE60: 28 29 0D 0A 20 20 20 20 66 69 72 73 74 20 3A 3D ().. first :=
00AE70: 20 67 65 74 62 79 74 65 28 29 0D 0A 20 20 24 29 getbyte().. $)
00AE80: 0D 0A 20 20 64 69 76 69 64 65 28 66 69 72 73 74 .. divide(first
00AE90: 29 0D 0A 20 20 53 57 49 54 43 48 4F 4E 20 74 6F ).. SWITCHON to
00AEA0: 70 20 49 4E 54 4F 0D 0A 20 20 24 28 0D 0A 20 20 p INTO.. $(..
00AEB0: 20 20 43 41 53 45 20 31 3A 20 77 72 69 74 65 66 CASE 1: writef
00AEC0: 28 22 62 69 74 20 25 4E 2C 20 22 2C 20 6D 69 64 ("bit %N, ", mid
00AED0: 64 6C 65 29 0D 0A 20 20 20 20 20 20 20 20 20 20 dle)..
00AEE0: 20 20 73 69 6E 67 6C 65 72 65 67 69 73 74 65 72 singleregister
00AEF0: 28 62 6F 74 74 6F 6D 2C 68 6C 70 61 69 72 2C 6F (bottom,hlpair,o
00AF00: 65 74 20 3A 3D 20 67 65 74 62 79 74 65 28 29 0D et := getbyte().
00AF10: 0A 20 20 53 57 49 54 43 48 4F 4E 20 62 6F 74 74 . SWITCHON bott
00AF20: 6F 6D 20 49 4E 54 4F 0D 0A 20 20 24 28 0D 0A 20 om INTO.. $(..
00AF30: 20 20 20 43 41 53 45 20 36 3A 20 77 72 69 74 65 CASE 6: write
00AF40: 73 28 22 6C 64 20 22 29 20 3B 20 73 69 6E 67 6C s("ld ") ; singl
00AF50: 65 72 65 67 69 73 74 65 72 28 6D 69 64 64 6C 65 eregister(middle
00AF60: 2C 68 6C 70 61 69 72 2C 6F 66 66 73 65 74 29 0D ,hlpair,offset).
00AF70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 . wri
00AF80: 74 65 66 28 22 2C 20 25 58 32 22 2C 67 65 74 62 tef(", %X2",getb
00AF90: 79 74 65 28 29 29 20 3B 20 45 4E 44 43 41 53 45 yte()) ; ENDCASE
00AFA0: 0D 0A 20 20 20 20 43 41 53 45 20 35 3A 20 77 72 .. CASE 5: wr
00AFB0: 69 74 65 73 28 22 64 65 63 20 22 29 20 3B 20 73 ites("dec ") ; s
00AFC0: 69 6E 67 6C 65 72 65 67 69 73 74 65 72 28 6D 69 ingleregister(mi
00AFD0: 64 64 6C 65 2C 68 6C 70 61 69 72 2C 6F 66 66 73 ddle,hlpair,offs
00AFE0: 65 74 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 et) ; ENDCASE..
00AFF0: 20 20 20 43 41 53 45 20 34 3A 20 77 72 69 74 65 CASE 4: write
00B000: 73 28 22 69 6E 63 20 22 29 20 3B 20 73 69 6E 67 s("inc ") ; sing
00B010: 6C 65 72 65 67 69 73 74 65 72 28 6D 69 64 64 6C leregister(middl
00B020: 65 2C 68 6C 70 61 69 72 2C 6F 66 66 73 65 74 29 e,hlpair,offset)
00B030: 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 ; ENDCASE..
00B040: 43 41 53 45 20 30 3A 20 72 65 6C 61 74 69 76 65 CASE 0: relative
00B050: 28 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 () ; ENDCASE..
00B060: 20 20 43 41 53 45 20 33 3A 20 54 45 53 54 20 62 CASE 3: TEST b
00B070: 69 74 30 28 6D 69 64 64 6C 65 29 20 54 48 45 4E it0(middle) THEN
00B080: 20 77 72 69 74 65 73 28 22 64 65 63 20 22 29 20 writes("dec ")
00B090: 45 4C 53 45 20 77 72 69 74 65 73 28 22 69 6E 63 ELSE writes("inc
00B0A0: 20 22 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ")..
00B0B0: 20 64 6F 75 62 6C 65 72 65 67 69 73 74 65 72 28 doubleregister(
00B0C0: 6D 69 64 64 6C 65 3E 3E 31 2C 68 6C 70 61 69 72 middle>>1,hlpair
00B0D0: 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 ) ; ENDCASE..
00B0E0: 20 43 41 53 45 20 31 3A 20 54 45 53 54 20 62 69 CASE 1: TEST bi
00B0F0: 74 30 28 6D 69 64 64 6C 65 29 20 54 48 45 4E 0D t0(middle) THEN.
00B100: 66 66 73 65 74 29 20 3B 20 45 4E 44 43 41 53 45 ffset) ; ENDCASE
00B110: 0D 0A 20 20 20 20 43 41 53 45 20 32 3A 20 77 72 .. CASE 2: wr
00B120: 69 74 65 66 28 22 72 65 73 20 25 4E 2C 20 22 2C itef("res %N, ",
00B130: 6D 69 64 64 6C 65 29 0D 0A 20 20 20 20 20 20 20 middle)..
00B140: 20 20 20 20 20 73 69 6E 67 6C 65 72 65 67 69 73 singleregis
00B150: 74 65 72 28 62 6F 74 74 6F 6D 2C 68 6C 70 61 69 ter(bottom,hlpai
00B160: 72 2C 6F 66 66 73 65 74 29 20 3B 20 45 4E 44 43 r,offset) ; ENDC
00B170: 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 33 3A ASE.. CASE 3:
00B180: 20 77 72 69 74 65 66 28 22 73 65 74 20 25 4E 2C writef("set %N,
00B190: 20 22 2C 6D 69 64 64 6C 65 29 0D 0A 20 20 20 20 ",middle)..
00B1A0: 20 20 20 20 20 20 20 20 73 69 6E 67 6C 65 72 65 singlere
00B1B0: 67 69 73 74 65 72 28 62 6F 74 74 6F 6D 2C 68 6C gister(bottom,hl
00B1C0: 70 61 69 72 2C 6F 66 66 73 65 74 29 20 3B 20 45 pair,offset) ; E
00B1D0: 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 NDCASE.. CASE
00B1E0: 20 30 3A 20 73 68 69 66 74 69 6E 73 74 72 28 29 0: shiftinstr()
00B1F0: 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A .. $)..$)......
00B200: 0D 0A 4C 45 54 20 67 65 74 61 64 64 72 73 28 29 ..LET getaddrs()
00B210: 20 3D 20 56 41 4C 4F 46 0D 0A 0D 0A 24 28 0D 0A = VALOF....$(..
00B220: 20 20 4C 45 54 20 66 69 72 73 74 20 3D 20 67 65 LET first = ge
00B230: 74 62 79 74 65 28 29 0D 0A 20 20 52 45 53 55 4C tbyte().. RESUL
00B240: 54 49 53 20 66 69 72 73 74 20 2B 20 32 35 36 20 TIS first + 256
00B250: 2A 20 67 65 74 62 79 74 65 28 29 0D 0A 24 29 0D * getbyte()..$).
00B260: 0A 0D 0A 0D 0A 0D 0A 4C 45 54 20 63 6F 6E 64 61 .......LET conda
00B270: 64 64 72 73 28 63 6F 6E 64 69 74 69 6F 6E 2C 61 ddrs(condition,a
00B280: 64 64 72 65 73 73 29 20 42 45 0D 0A 0D 0A 24 28 ddress) BE....$(
00B290: 0D 0A 20 20 63 6F 6E 64 69 74 69 6F 6E 63 6F 64 .. conditioncod
00B2A0: 65 28 63 6F 6E 64 69 74 69 6F 6E 29 0D 0A 20 20 e(condition)..
00B2B0: 77 72 69 74 65 73 28 22 2C 20 22 29 0D 0A 20 20 writes(", ")..
00B2C0: 77 72 69 74 65 68 65 78 28 61 64 64 72 65 73 73 writehex(address
00B2D0: 2C 34 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C ,4)..$)........L
00B2E0: 45 54 20 72 65 6C 61 74 69 76 65 28 29 20 42 45 ET relative() BE
00B2F0: 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 61 64 ....$(.. LET ad
00B300: 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 28 0D . $(.
00B310: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 . w
00B320: 72 69 74 65 73 28 22 61 64 64 20 22 29 20 3B 20 rites("add ") ;
00B330: 64 6F 75 62 6C 65 72 65 67 69 73 74 65 72 28 32 doubleregister(2
00B340: 2C 68 6C 70 61 69 72 29 0D 0A 20 20 20 20 20 20 ,hlpair)..
00B350: 20 20 20 20 20 20 20 20 77 72 69 74 65 73 28 22 writes("
00B360: 2C 20 22 29 20 3B 20 64 6F 75 62 6C 65 72 65 67 , ") ; doublereg
00B370: 69 73 74 65 72 28 6D 69 64 64 6C 65 3E 3E 31 2C ister(middle>>1,
00B380: 68 6C 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 hl)..
00B390: 20 24 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 $)..
00B3A0: 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 ELSE..
00B3B0: 20 20 20 24 28 0D 0A 20 20 20 20 20 20 20 20 20 $(..
00B3C0: 20 20 20 20 20 77 72 69 74 65 73 28 22 6C 64 20 writes("ld
00B3D0: 22 29 20 3B 20 64 6F 75 62 6C 65 72 65 67 69 73 ") ; doubleregis
00B3E0: 74 65 72 28 6D 69 64 64 6C 65 3E 3E 31 2C 68 6C ter(middle>>1,hl
00B3F0: 70 61 69 72 29 0D 0A 20 20 20 20 20 20 20 20 20 pair)..
00B400: 20 20 20 20 20 77 72 69 74 65 73 28 22 2C 20 22 writes(", "
00B410: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
00B420: 20 77 72 69 74 65 68 65 78 28 67 65 74 61 64 64 writehex(getadd
00B430: 72 73 28 29 2C 34 29 0D 0A 20 20 20 20 20 20 20 rs(),4)..
00B440: 20 20 20 20 20 24 29 20 3B 20 45 4E 44 43 41 53 $) ; ENDCAS
00B450: 45 0D 0A 20 20 20 20 43 41 53 45 20 37 3A 20 73 E.. CASE 7: s
00B460: 70 65 63 69 61 6C 30 28 29 20 3B 20 45 4E 44 43 pecial0() ; ENDC
00B470: 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 32 3A ASE.. CASE 2:
00B480: 20 73 70 65 63 69 61 6C 32 28 29 0D 0A 20 20 24 special2().. $
00B490: 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C 45 54 )..$)........LET
00B4A0: 20 73 70 65 63 69 61 6C 33 28 29 20 42 45 0D 0A special3() BE..
00B4B0: 0D 0A 24 28 0D 0A 20 20 53 57 49 54 43 48 4F 4E ..$(.. SWITCHON
00B4C0: 20 6D 69 64 64 6C 65 20 49 4E 54 4F 0D 0A 20 20 middle INTO..
00B4D0: 24 28 0D 0A 20 20 20 20 43 41 53 45 20 35 3A 20 $(.. CASE 5:
00B4E0: 77 72 69 74 65 73 28 22 65 78 20 64 65 2C 68 6C writes("ex de,hl
00B4F0: 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 ") ; ENDCASE..
00B500: 64 72 65 73 73 20 3D 20 70 63 0D 0A 20 20 54 45 dress = pc.. TE
00B510: 53 54 20 6D 69 64 64 6C 65 3C 32 20 54 48 45 4E ST middle<2 THEN
00B520: 0D 0A 20 20 20 20 54 45 53 54 20 6D 69 64 64 6C .. TEST middl
00B530: 65 3D 30 20 54 48 45 4E 20 77 72 69 74 65 73 28 e=0 THEN writes(
00B540: 22 6E 6F 70 22 29 20 45 4C 53 45 20 77 72 69 74 "nop") ELSE writ
00B550: 65 73 28 22 65 78 20 61 66 2C 20 61 66 27 22 29 es("ex af, af'")
00B560: 0D 0A 20 20 45 4C 53 45 0D 0A 20 20 24 28 0D 0A .. ELSE.. $(..
00B570: 20 20 20 20 61 64 64 72 65 73 73 20 3A 3D 20 61 address := a
00B580: 64 64 72 65 73 73 20 2B 20 31 20 2B 20 73 69 67 ddress + 1 + sig
00B590: 6E 65 78 74 65 6E 64 28 67 65 74 62 79 74 65 28 nextend(getbyte(
00B5A0: 29 29 0D 0A 20 20 20 20 53 57 49 54 43 48 4F 4E )).. SWITCHON
00B5B0: 20 6D 69 64 64 6C 65 20 49 4E 54 4F 0D 0A 20 20 middle INTO..
00B5C0: 20 20 24 28 0D 0A 20 20 20 20 20 20 43 41 53 45 $(.. CASE
00B5D0: 20 32 3A 20 77 72 69 74 65 73 28 22 64 6A 6E 7A 2: writes("djnz
00B5E0: 20 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 ") ; ENDCASE..
00B5F0: 20 20 20 20 20 43 41 53 45 20 33 3A 20 77 72 69 CASE 3: wri
00B600: 74 65 73 28 22 6A 72 20 22 29 20 3B 20 45 4E 44 tes("jr ") ; END
00B610: 43 41 53 45 0D 0A 20 20 20 20 20 20 44 45 46 41 CASE.. DEFA
00B620: 55 4C 54 3A 20 77 72 69 74 65 73 28 22 6A 72 20 ULT: writes("jr
00B630: 22 29 20 3B 20 63 6F 6E 64 69 74 69 6F 6E 63 6F ") ; conditionco
00B640: 64 65 28 6D 69 64 64 6C 65 2D 34 29 20 3B 20 77 de(middle-4) ; w
00B650: 72 69 74 65 73 28 22 2C 20 22 29 0D 0A 20 20 20 rites(", ")..
00B660: 20 24 29 0D 0A 20 20 20 20 77 72 69 74 65 68 65 $).. writehe
00B670: 78 28 61 64 64 72 65 73 73 2C 34 29 0D 0A 20 20 x(address,4)..
00B680: 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C 45 $)..$)........LE
00B690: 54 20 73 70 65 63 69 61 6C 30 28 29 20 42 45 0D T special0() BE.
00B6A0: 0A 0D 0A 24 28 0D 0A 20 20 53 57 49 54 43 48 4F ...$(.. SWITCHO
00B6B0: 4E 20 6D 69 64 64 6C 65 20 49 4E 54 4F 0D 0A 20 N middle INTO..
00B6C0: 20 24 28 0D 0A 20 20 20 20 43 41 53 45 20 37 3A $(.. CASE 7:
00B6D0: 20 77 72 69 74 65 73 28 22 63 63 66 22 29 20 3B writes("ccf") ;
00B6E0: 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 ENDCASE.. CA
00B6F0: 53 45 20 35 3A 20 77 72 69 74 65 73 28 22 63 70 SE 5: writes("cp
00B700: 20 20 43 41 53 45 20 34 3A 20 77 72 69 74 65 73 CASE 4: writes
00B710: 28 22 65 78 20 28 73 70 29 2C 68 6C 22 29 20 3B ("ex (sp),hl") ;
00B720: 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 ENDCASE.. CA
00B730: 53 45 20 36 3A 20 77 72 69 74 65 73 28 22 64 69 SE 6: writes("di
00B740: 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 ") ; ENDCASE..
00B750: 20 20 43 41 53 45 20 37 3A 20 77 72 69 74 65 73 CASE 7: writes
00B760: 28 22 65 69 22 29 20 3B 20 45 4E 44 43 41 53 45 ("ei") ; ENDCASE
00B770: 0D 0A 20 20 20 20 43 41 53 45 20 30 3A 20 77 72 .. CASE 0: wr
00B780: 69 74 65 73 28 22 6A 70 20 22 29 3B 20 77 72 69 ites("jp "); wri
00B790: 74 65 68 65 78 28 67 65 74 61 64 64 72 73 28 29 tehex(getaddrs()
00B7A0: 2C 34 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 ,4) ; ENDCASE..
00B7B0: 20 20 20 43 41 53 45 20 33 3A 20 77 72 69 74 65 CASE 3: write
00B7C0: 73 28 22 69 6E 20 61 2C 28 22 29 0D 0A 20 20 20 s("in a,(")..
00B7D0: 20 20 20 20 20 20 20 20 20 77 72 69 74 65 68 65 writehe
00B7E0: 78 28 67 65 74 62 79 74 65 28 29 2C 32 29 0D 0A x(getbyte(),2)..
00B7F0: 20 20 20 20 20 20 20 20 20 20 20 20 77 72 63 68 wrch
00B800: 28 27 29 27 29 20 3B 20 45 4E 44 43 41 53 45 0D (')') ; ENDCASE.
00B810: 0A 20 20 20 20 43 41 53 45 20 32 3A 20 77 72 69 . CASE 2: wri
00B820: 74 65 73 28 22 6F 75 74 20 28 22 29 0D 0A 20 20 tes("out (")..
00B830: 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 68 writeh
00B840: 65 78 28 67 65 74 62 79 74 65 28 29 2C 32 29 0D ex(getbyte(),2).
00B850: 0A 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 . wri
00B860: 74 65 73 28 22 29 2C 20 61 22 29 0D 0A 20 20 20 tes("), a")..
00B870: 20 20 20 20 20 20 20 20 20 45 4E 44 43 41 53 45 ENDCASE
00B880: 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A .. $)..$)......
00B890: 4C 45 54 20 61 72 69 74 68 6F 70 28 73 65 6C 65 LET arithop(sele
00B8A0: 63 74 6F 72 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A ctor) BE....$(..
00B8B0: 20 20 53 57 49 54 43 48 4F 4E 20 73 65 6C 65 63 SWITCHON selec
00B8C0: 74 6F 72 20 49 4E 54 4F 0D 0A 20 20 24 28 0D 0A tor INTO.. $(..
00B8D0: 20 20 20 20 43 41 53 45 20 30 3A 20 77 72 69 74 CASE 0: writ
00B8E0: 65 73 28 22 61 64 64 20 61 2C 22 29 20 3B 20 45 es("add a,") ; E
00B8F0: 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 NDCASE.. CASE
00B900: 6C 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 l") ; ENDCASE..
00B910: 20 20 20 43 41 53 45 20 34 3A 20 77 72 69 74 65 CASE 4: write
00B920: 73 28 22 64 61 61 22 29 20 3B 20 45 4E 44 43 41 s("daa") ; ENDCA
00B930: 53 45 0D 0A 20 20 20 20 43 41 53 45 20 36 3A 20 SE.. CASE 6:
00B940: 77 72 69 74 65 73 28 22 73 63 66 22 29 20 3B 20 writes("scf") ;
00B950: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 ENDCASE.. CAS
00B960: 45 20 32 3A 20 77 72 69 74 65 73 28 22 72 6C 61 E 2: writes("rla
00B970: 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 ") ; ENDCASE..
00B980: 20 20 43 41 53 45 20 30 3A 20 77 72 69 74 65 73 CASE 0: writes
00B990: 28 22 72 6C 63 61 22 29 20 3B 20 45 4E 44 43 41 ("rlca") ; ENDCA
00B9A0: 53 45 0D 0A 20 20 20 20 43 41 53 45 20 33 3A 20 SE.. CASE 3:
00B9B0: 77 72 69 74 65 73 28 22 72 72 61 22 29 20 3B 20 writes("rra") ;
00B9C0: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 ENDCASE.. CAS
00B9D0: 45 20 31 3A 20 77 72 69 74 65 73 28 22 72 72 63 E 1: writes("rrc
00B9E0: 61 22 29 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D a").. $)..$)...
00B9F0: 0A 0D 0A 0D 0A 4C 45 54 20 73 70 65 63 69 61 6C .....LET special
00BA00: 32 28 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 2() BE....$(..
00BA10: 53 57 49 54 43 48 4F 4E 20 6D 69 64 64 6C 65 20 SWITCHON middle
00BA20: 49 4E 54 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 20 INTO.. $(..
00BA30: 43 41 53 45 20 31 3A 20 43 41 53 45 20 33 3A 0D CASE 1: CASE 3:.
00BA40: 0A 20 20 20 20 20 20 77 72 69 74 65 73 28 22 6C . writes("l
00BA50: 64 20 61 2C 28 22 29 20 3B 20 64 6F 75 62 6C 65 d a,(") ; double
00BA60: 72 65 67 69 73 74 65 72 28 6D 69 64 64 6C 65 3E register(middle>
00BA70: 3E 31 2C 68 6C 70 61 69 72 29 20 3B 20 77 72 63 >1,hlpair) ; wrc
00BA80: 68 28 27 29 27 29 20 3B 20 45 4E 44 43 41 53 45 h(')') ; ENDCASE
00BA90: 0D 0A 20 20 20 20 43 41 53 45 20 30 3A 20 43 41 .. CASE 0: CA
00BAA0: 53 45 20 32 3A 0D 0A 20 20 20 20 20 20 77 72 69 SE 2:.. wri
00BAB0: 74 65 73 28 22 6C 64 20 28 22 29 20 3B 20 64 6F tes("ld (") ; do
00BAC0: 75 62 6C 65 72 65 67 69 73 74 65 72 28 6D 69 64 ubleregister(mid
00BAD0: 64 6C 65 3E 3E 31 2C 68 6C 70 61 69 72 29 20 3B dle>>1,hlpair) ;
00BAE0: 20 77 72 69 74 65 73 28 22 29 2C 20 61 22 29 20 writes("), a")
00BAF0: 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 ; ENDCASE.. C
00BB00: 20 31 3A 20 77 72 69 74 65 73 28 22 61 64 63 20 1: writes("adc
00BB10: 61 2C 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A a,") ; ENDCASE..
00BB20: 20 20 20 20 43 41 53 45 20 32 3A 20 77 72 69 74 CASE 2: writ
00BB30: 65 73 28 22 73 75 62 20 22 29 20 3B 20 45 4E 44 es("sub ") ; END
00BB40: 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 33 CASE.. CASE 3
00BB50: 3A 20 77 72 69 74 65 73 28 22 73 62 63 20 61 2C : writes("sbc a,
00BB60: 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 ") ; ENDCASE..
00BB70: 20 20 43 41 53 45 20 34 3A 20 77 72 69 74 65 73 CASE 4: writes
00BB80: 28 22 61 6E 64 20 22 29 20 3B 20 45 4E 44 43 41 ("and ") ; ENDCA
00BB90: 53 45 0D 0A 20 20 20 20 43 41 53 45 20 35 3A 20 SE.. CASE 5:
00BBA0: 77 72 69 74 65 73 28 22 78 6F 72 20 22 29 20 3B writes("xor ") ;
00BBB0: 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 ENDCASE.. CA
00BBC0: 53 45 20 36 3A 20 77 72 69 74 65 73 28 22 6F 72 SE 6: writes("or
00BBD0: 20 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 ") ; ENDCASE..
00BBE0: 20 20 20 43 41 53 45 20 37 3A 20 77 72 69 74 65 CASE 7: write
00BBF0: 73 28 22 63 70 20 22 29 20 3B 20 45 4E 44 43 41 s("cp ") ; ENDCA
00BC00: 53 45 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A SE.. $)..$)....
00BC10: 0D 0A 4C 45 54 20 61 66 70 61 69 72 28 72 65 67 ..LET afpair(reg
00BC20: 70 61 69 72 2C 20 68 6C 70 61 69 72 29 20 42 45 pair, hlpair) BE
00BC30: 0D 0A 0D 0A 24 28 0D 0A 20 20 54 45 53 54 20 72 ....$(.. TEST r
00BC40: 65 67 70 61 69 72 3D 33 20 54 48 45 4E 20 77 72 egpair=3 THEN wr
00BC50: 69 74 65 73 28 22 61 66 22 29 20 45 4C 53 45 20 ites("af") ELSE
00BC60: 64 6F 75 62 6C 65 72 65 67 69 73 74 65 72 28 72 doubleregister(r
00BC70: 65 67 70 61 69 72 2C 68 6C 70 61 69 72 29 0D 0A egpair,hlpair)..
00BC80: 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 66 69 78 65 $)......LET fixe
00BC90: 64 62 6F 74 33 28 29 20 42 45 0D 0A 0D 0A 24 28 dbot3() BE....$(
00BCA0: 0D 0A 20 20 53 57 49 54 43 48 4F 4E 20 62 6F 74 .. SWITCHON bot
00BCB0: 74 6F 6D 20 49 4E 54 4F 0D 0A 20 20 24 28 0D 0A tom INTO.. $(..
00BCC0: 20 20 20 20 43 41 53 45 20 34 3A 20 77 72 69 74 CASE 4: writ
00BCD0: 65 73 28 22 63 61 6C 6C 20 22 29 20 3B 20 63 6F es("call ") ; co
00BCE0: 6E 64 61 64 64 72 73 28 6D 69 64 64 6C 65 2C 67 ndaddrs(middle,g
00BCF0: 65 74 61 64 64 72 73 28 29 29 20 3B 20 45 4E 44 etaddrs()) ; END
00BD00: 41 53 45 20 37 3A 20 77 72 69 74 65 73 28 22 6C ASE 7: writes("l
00BD10: 64 20 61 2C 28 22 29 20 3B 20 77 72 69 74 65 68 d a,(") ; writeh
00BD20: 65 78 28 67 65 74 61 64 64 72 73 28 29 2C 34 29 ex(getaddrs(),4)
00BD30: 20 3B 20 77 72 63 68 28 22 29 22 29 20 3B 20 45 ; wrch(")") ; E
00BD40: 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 NDCASE.. CASE
00BD50: 20 36 3A 20 77 72 69 74 65 73 28 22 6C 64 20 28 6: writes("ld (
00BD60: 22 29 20 3B 20 77 72 69 74 65 68 65 78 28 67 65 ") ; writehex(ge
00BD70: 74 61 64 64 72 73 28 29 2C 34 29 20 3B 20 77 72 taddrs(),4) ; wr
00BD80: 69 74 65 73 28 22 29 2C 20 61 22 29 20 3B 20 45 ites("), a") ; E
00BD90: 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 NDCASE.. CASE
00BDA0: 20 34 3A 20 77 72 69 74 65 73 28 22 6C 64 20 28 4: writes("ld (
00BDB0: 22 29 20 3B 20 77 72 69 74 65 68 65 78 28 67 65 ") ; writehex(ge
00BDC0: 74 61 64 64 72 73 28 29 2C 34 29 20 3B 20 77 72 taddrs(),4) ; wr
00BDD0: 69 74 65 73 28 22 29 2C 20 22 29 0D 0A 20 20 20 ites("), ")..
00BDE0: 20 20 20 20 20 20 20 20 20 64 6F 75 62 6C 65 72 doubler
00BDF0: 65 67 69 73 74 65 72 28 32 2C 68 6C 70 61 69 72 egister(2,hlpair
00BE00: 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 ) ; ENDCASE..
00BE10: 20 43 41 53 45 20 35 3A 20 77 72 69 74 65 73 28 CASE 5: writes(
00BE20: 22 6C 64 20 22 29 20 3B 20 64 6F 75 62 6C 65 72 "ld ") ; doubler
00BE30: 65 67 69 73 74 65 72 28 32 2C 68 6C 70 61 69 72 egister(2,hlpair
00BE40: 29 20 3B 20 77 72 69 74 65 73 28 22 2C 20 28 22 ) ; writes(", ("
00BE50: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 77 ).. w
00BE60: 72 69 74 65 68 65 78 28 67 65 74 61 64 64 72 73 ritehex(getaddrs
00BE70: 28 29 2C 34 29 20 3B 20 77 72 63 68 28 27 29 27 (),4) ; wrch(')'
00BE80: 29 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D ).. $)..$).....
00BE90: 0A 0D 0A 4C 45 54 20 66 69 78 65 64 62 6F 74 30 ...LET fixedbot0
00BEA0: 28 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 4C () BE....$(.. L
00BEB0: 45 54 20 6F 66 66 73 65 74 20 3D 20 30 0D 0A 20 ET offset = 0..
00BEC0: 20 49 46 20 68 6C 70 61 69 72 20 4E 45 20 68 6C IF hlpair NE hl
00BED0: 20 4C 4F 47 41 4E 44 20 62 6F 74 74 6F 6D 20 4E LOGAND bottom N
00BEE0: 45 20 33 20 4C 4F 47 41 4E 44 20 62 6F 74 74 6F E 3 LOGAND botto
00BEF0: 6D 20 4E 45 20 31 20 54 48 45 4E 20 6F 66 66 73 m NE 1 THEN offs
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 00 02 02 09 4E E5 0A 00 C1 02 00 00 00 02 ......N.........
00BF20: 0A 00 C6 02 00 00 00 02 0A 00 C2 02 00 00 00 02 ................
00BF30: 0A 00 C7 02 00 00 00 02 0A 00 C3 02 00 00 00 02 ................
00BF40: 0A 00 C8 02 00 00 00 02 0A 00 C4 02 00 00 00 02 ................
00BF50: 0A 00 C9 02 00 00 00 02 0A 00 C5 02 00 00 00 02 ................
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 32 CASE.. CASE 2
00C010: 3A 20 77 72 69 74 65 73 28 22 6A 70 20 22 29 20 : writes("jp ")
00C020: 3B 20 63 6F 6E 64 61 64 64 72 73 28 6D 69 64 64 ; condaddrs(midd
00C030: 6C 65 2C 67 65 74 61 64 64 72 73 28 29 29 20 3B le,getaddrs()) ;
00C040: 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 ENDCASE.. CA
00C050: 53 45 20 30 3A 20 77 72 69 74 65 73 28 22 72 65 SE 0: writes("re
00C060: 74 20 22 29 20 3B 20 63 6F 6E 64 69 74 69 6F 6E t ") ; condition
00C070: 63 6F 64 65 28 6D 69 64 64 6C 65 29 20 3B 20 45 code(middle) ; E
00C080: 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 NDCASE.. CASE
00C090: 20 37 3A 20 77 72 69 74 65 73 28 22 72 73 74 20 7: writes("rst
00C0A0: 22 29 20 3B 20 77 72 69 74 65 68 65 78 28 6D 69 ") ; writehex(mi
00C0B0: 64 64 6C 65 2A 38 2C 32 29 20 3B 20 45 4E 44 43 ddle*8,2) ; ENDC
00C0C0: 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 31 3A ASE.. CASE 1:
00C0D0: 20 54 45 53 54 20 62 69 74 30 28 6D 69 64 64 6C TEST bit0(middl
00C0E0: 65 29 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 e) THEN..
00C0F0: 20 20 20 20 20 20 20 53 57 49 54 43 48 4F 4E 20 SWITCHON
00C100: 6D 69 64 64 6C 65 20 49 4E 54 4F 0D 0A 20 20 20 middle INTO..
00C110: 20 20 20 20 20 20 20 20 20 20 20 24 28 0D 0A 20 $(..
00C120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 C
00C130: 41 53 45 20 37 3A 20 77 72 69 74 65 73 28 22 6C ASE 7: writes("l
00C140: 64 20 73 70 2C 68 6C 22 29 20 3B 20 45 4E 44 43 d sp,hl") ; ENDC
00C150: 41 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ASE..
00C160: 20 20 20 20 20 43 41 53 45 20 33 3A 20 77 72 69 CASE 3: wri
00C170: 74 65 73 28 22 65 78 78 22 29 20 3B 20 45 4E 44 tes("exx") ; END
00C180: 43 41 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 CASE..
00C190: 20 20 20 20 20 20 43 41 53 45 20 35 3A 20 77 72 CASE 5: wr
00C1A0: 69 74 65 73 28 22 6A 70 20 28 68 6C 29 22 29 20 ites("jp (hl)")
00C1B0: 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 ; ENDCASE..
00C1C0: 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 CASE
00C1D0: 31 3A 20 77 72 69 74 65 73 28 22 72 65 74 22 29 1: writes("ret")
00C1E0: 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 ; ENDCASE..
00C1F0: 20 20 20 20 20 20 20 20 20 20 24 29 0D 0A 20 20 $)..
00C200: 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 53 57 ) BE....$(.. SW
00C210: 49 54 43 48 4F 4E 20 62 6F 74 74 6F 6D 20 49 4E ITCHON bottom IN
00C220: 54 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 20 43 41 TO.. $(.. CA
00C230: 53 45 20 30 3A 20 77 72 69 74 65 73 28 22 6C 64 SE 0: writes("ld
00C240: 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 ") ; ENDCASE..
00C250: 20 20 43 41 53 45 20 31 3A 20 77 72 69 74 65 73 CASE 1: writes
00C260: 28 22 63 70 22 29 20 3B 20 45 4E 44 43 41 53 45 ("cp") ; ENDCASE
00C270: 0D 0A 20 20 20 20 43 41 53 45 20 32 3A 20 77 72 .. CASE 2: wr
00C280: 69 74 65 73 28 22 69 6E 22 29 20 3B 20 45 4E 44 ites("in") ; END
00C290: 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 33 CASE.. CASE 3
00C2A0: 3A 20 54 45 53 54 20 62 69 74 31 28 6D 69 64 64 : TEST bit1(midd
00C2B0: 6C 65 29 20 54 48 45 4E 20 77 72 69 74 65 73 28 le) THEN writes(
00C2C0: 22 6F 74 22 29 20 45 4C 53 45 20 77 72 69 74 65 "ot") ELSE write
00C2D0: 73 28 22 6F 75 74 22 29 0D 0A 20 20 20 20 20 20 s("out")..
00C2E0: 20 20 20 20 20 20 45 4E 44 43 41 53 45 0D 0A 20 ENDCASE..
00C2F0: 20 24 29 0D 0A 20 20 54 45 53 54 20 62 69 74 30 $).. TEST bit0
00C300: 28 6D 69 64 64 6C 65 29 20 54 48 45 4E 20 77 72 (middle) THEN wr
00C310: 63 68 28 27 64 27 29 20 45 4C 53 45 20 77 72 63 ch('d') ELSE wrc
00C320: 68 28 27 69 27 29 0D 0A 20 20 49 46 20 62 69 74 h('i').. IF bit
00C330: 31 28 6D 69 64 64 6C 65 29 20 54 48 45 4E 20 77 1(middle) THEN w
00C340: 72 63 68 28 27 72 27 29 0D 0A 24 29 0D 0A 0D 0A rch('r')..$)....
00C350: 0D 0A 4C 45 54 20 73 68 69 66 74 65 64 28 29 20 ..LET shifted()
00C360: 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 BE....$(.. LET
00C370: 69 6E 73 74 72 75 63 74 69 6F 6E 20 3D 20 67 65 instruction = ge
00C380: 74 62 79 74 65 28 29 0D 0A 20 20 64 69 76 69 64 tbyte().. divid
00C390: 65 28 69 6E 73 74 72 75 63 74 69 6F 6E 29 0D 0A e(instruction)..
00C3A0: 20 20 53 57 49 54 43 48 4F 4E 20 74 6F 70 20 49 SWITCHON top I
00C3B0: 4E 54 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 20 43 NTO.. $(.. C
00C3C0: 41 53 45 20 31 3A 20 64 61 72 69 74 68 28 29 20 ASE 1: darith()
00C3D0: 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 ; ENDCASE.. C
00C3E0: 41 53 45 20 32 3A 20 72 65 70 69 6E 73 28 29 0D ASE 2: repins().
00C3F0: 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D . $)..$).......
00C400: 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A ELSE..
00C410: 20 20 20 20 20 20 20 20 20 20 20 20 24 28 20 77 $( w
00C420: 72 69 74 65 73 28 22 70 6F 70 20 22 29 20 3B 20 rites("pop ") ;
00C430: 61 66 70 61 69 72 28 6D 69 64 64 6C 65 3E 3E 31 afpair(middle>>1
00C440: 2C 68 6C 70 61 69 72 29 20 24 29 0D 0A 20 20 20 ,hlpair) $)..
00C450: 20 20 20 20 20 20 20 20 20 45 4E 44 43 41 53 45 ENDCASE
00C460: 0D 0A 20 20 20 20 43 41 53 45 20 35 3A 20 54 45 .. CASE 5: TE
00C470: 53 54 20 62 69 74 30 28 6D 69 64 64 6C 65 29 20 ST bit0(middle)
00C480: 54 48 45 4E 0D 0A 20 20 20 20 20 20 20 20 20 20 THEN..
00C490: 20 20 49 46 20 6D 69 64 64 6C 65 3D 31 20 54 48 IF middle=1 TH
00C4A0: 45 4E 20 24 28 20 77 72 69 74 65 73 28 22 63 61 EN $( writes("ca
00C4B0: 6C 6C 20 22 29 20 3B 20 77 72 69 74 65 68 65 78 ll ") ; writehex
00C4C0: 28 67 65 74 61 64 64 72 73 28 29 2C 34 29 20 24 (getaddrs(),4) $
00C4D0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 45 ).. E
00C4E0: 4C 53 45 20 24 28 20 77 72 69 74 65 73 28 22 70 LSE $( writes("p
00C4F0: 75 73 68 20 22 29 20 3B 20 61 66 70 61 69 72 28 ush ") ; afpair(
00C500: 6D 69 64 64 6C 65 3E 3E 31 2C 68 6C 70 61 69 72 middle>>1,hlpair
00C510: 29 20 24 29 0D 0A 20 20 20 20 20 20 20 20 20 20 ) $)..
00C520: 20 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 ENDCASE.. C
00C530: 41 53 45 20 33 3A 20 73 70 65 63 69 61 6C 33 28 ASE 3: special3(
00C540: 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 ) ; ENDCASE..
00C550: 20 43 41 53 45 20 36 3A 20 61 72 69 74 68 6F 70 CASE 6: arithop
00C560: 28 6D 69 64 64 6C 65 29 20 3B 20 77 72 69 74 65 (middle) ; write
00C570: 68 65 78 28 67 65 74 62 79 74 65 28 29 2C 32 29 hex(getbyte(),2)
00C580: 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A .. $)..$)......
00C590: 0D 0A 4C 45 54 20 61 72 69 74 68 28 29 20 42 45 ..LET arith() BE
00C5A0: 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 6F 66 ....$(.. LET of
00C5B0: 66 73 65 74 20 3D 20 30 0D 0A 20 20 61 72 69 74 fset = 0.. arit
00C5C0: 68 6F 70 28 6D 69 64 64 6C 65 29 0D 0A 20 20 49 hop(middle).. I
00C5D0: 46 20 68 6C 70 61 69 72 20 4E 45 20 68 6C 20 54 F hlpair NE hl T
00C5E0: 48 45 4E 20 6F 66 66 73 65 74 20 3A 3D 20 67 65 HEN offset := ge
00C5F0: 74 62 79 74 65 28 29 0D 0A 20 20 73 69 6E 67 6C tbyte().. singl
00C600: 0A 4C 45 54 20 64 69 73 61 73 73 65 6D 62 6C 65 .LET disassemble
00C610: 6C 69 6E 65 28 29 20 42 45 0D 0A 0D 0A 24 28 0D line() BE....$(.
00C620: 0A 20 20 4C 45 54 20 66 69 72 73 74 20 3D 20 67 . LET first = g
00C630: 65 74 62 79 74 65 28 29 0D 0A 20 20 53 57 49 54 etbyte().. SWIT
00C640: 43 48 4F 4E 20 66 69 72 73 74 20 49 4E 54 4F 0D CHON first INTO.
00C650: 0A 20 20 24 28 0D 0A 20 20 20 20 43 41 53 45 20 . $(.. CASE
00C660: 23 78 43 42 3A 20 62 69 74 69 6E 73 74 72 28 29 #xCB: bitinstr()
00C670: 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 ; ENDCASE..
00C680: 43 41 53 45 20 23 78 45 44 3A 20 73 68 69 66 74 CASE #xED: shift
00C690: 65 64 28 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A ed() ; ENDCASE..
00C6A0: 20 20 20 20 43 41 53 45 20 23 78 44 44 3A 20 68 CASE #xDD: h
00C6B0: 6C 70 61 69 72 20 3A 3D 20 69 78 0D 0A 20 20 20 lpair := ix..
00C6C0: 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 61 disa
00C6D0: 73 73 65 6D 62 6C 65 6C 69 6E 65 28 29 20 3B 20 ssembleline() ;
00C6E0: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 ENDCASE.. CAS
00C6F0: 45 20 23 78 46 44 3A 20 68 6C 70 61 69 72 20 3A E #xFD: hlpair :
00C700: 3D 20 69 79 0D 0A 20 20 20 20 20 20 20 20 20 20 = iy..
00C710: 20 20 20 20 20 64 69 73 61 73 73 65 6D 62 6C 65 disassemble
00C720: 6C 69 6E 65 28 29 20 3B 20 45 4E 44 43 41 53 45 line() ; ENDCASE
00C730: 0D 0A 20 20 20 20 44 45 46 41 55 4C 54 3A 20 20 .. DEFAULT:
00C740: 20 64 69 76 69 64 65 28 66 69 72 73 74 29 0D 0A divide(first)..
00C750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
00C760: 57 49 54 43 48 4F 4E 20 74 6F 70 20 49 4E 54 4F WITCHON top INTO
00C770: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C780: 20 24 28 0D 0A 20 20 20 20 20 20 20 20 20 20 20 $(..
00C790: 20 20 20 20 20 20 43 41 53 45 20 30 3A 20 66 69 CASE 0: fi
00C7A0: 78 65 64 62 6F 74 30 28 29 20 3B 20 45 4E 44 43 xedbot0() ; ENDC
00C7B0: 41 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ASE..
00C7C0: 20 20 20 20 20 20 43 41 53 45 20 31 3A 20 72 65 CASE 1: re
00C7D0: 67 74 72 61 6E 73 28 29 20 3B 20 45 4E 44 43 41 gtrans() ; ENDCA
00C7E0: 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 SE..
00C7F0: 20 20 20 20 20 43 41 53 45 20 32 3A 20 61 72 69 CASE 2: ari
00C800: 65 72 65 67 69 73 74 65 72 28 62 6F 74 74 6F 6D eregister(bottom
00C810: 2C 68 6C 70 61 69 72 2C 6F 66 66 73 65 74 29 0D ,hlpair,offset).
00C820: 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 4C 45 54 .$)..........LET
00C830: 20 69 72 28 73 77 69 74 63 68 29 20 42 45 0D 0A ir(switch) BE..
00C840: 0D 0A 24 28 0D 0A 20 20 54 45 53 54 20 62 69 74 ..$(.. TEST bit
00C850: 30 28 73 77 69 74 63 68 29 20 54 48 45 4E 20 77 0(switch) THEN w
00C860: 72 63 68 28 27 72 27 29 20 45 4C 53 45 20 77 72 rch('r') ELSE wr
00C870: 63 68 28 27 69 27 29 0D 0A 24 29 0D 0A 0D 0A 0D ch('i')..$).....
00C880: 0A 4C 45 54 20 64 61 72 69 74 68 28 29 20 42 45 .LET darith() BE
00C890: 0D 0A 0D 0A 24 28 0D 0A 20 20 53 57 49 54 43 48 ....$(.. SWITCH
00C8A0: 4F 4E 20 62 6F 74 74 6F 6D 20 49 4E 54 4F 0D 0A ON bottom INTO..
00C8B0: 20 20 24 28 0D 0A 20 20 20 20 43 41 53 45 20 32 $(.. CASE 2
00C8C0: 3A 20 54 45 53 54 20 62 69 74 30 28 6D 69 64 64 : TEST bit0(midd
00C8D0: 6C 65 29 20 54 48 45 4E 20 77 72 69 74 65 73 28 le) THEN writes(
00C8E0: 22 61 64 63 20 22 29 20 45 4C 53 45 20 77 72 69 "adc ") ELSE wri
00C8F0: 74 65 73 28 22 73 62 63 20 22 29 0D 0A 20 20 20 tes("sbc ")..
00C900: 20 20 20 20 20 20 20 20 20 64 6F 75 62 6C 65 72 doubler
00C910: 65 67 69 73 74 65 72 28 32 2C 68 6C 70 61 69 72 egister(2,hlpair
00C920: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 77 ).. w
00C930: 72 69 74 65 73 28 22 2C 20 22 29 0D 0A 20 20 20 rites(", ")..
00C940: 20 20 20 20 20 20 20 20 20 64 6F 75 62 6C 65 72 doubler
00C950: 65 67 69 73 74 65 72 28 6D 69 64 64 6C 65 3E 3E egister(middle>>
00C960: 31 2C 68 6C 70 61 69 72 29 0D 0A 20 20 20 20 20 1,hlpair)..
00C970: 20 20 20 20 20 20 20 45 4E 44 43 41 53 45 0D 0A ENDCASE..
00C980: 20 20 20 20 43 41 53 45 20 37 3A 20 53 57 49 54 CASE 7: SWIT
00C990: 43 48 4F 4E 20 6D 69 64 64 6C 65 20 49 4E 54 4F CHON middle INTO
00C9A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 28 .. $(
00C9B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C9C0: 43 41 53 45 20 35 3A 20 77 72 69 74 65 73 28 22 CASE 5: writes("
00C9D0: 72 6C 64 22 29 20 3B 20 45 4E 44 43 41 53 45 0D rld") ; ENDCASE.
00C9E0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 . C
00C9F0: 41 53 45 20 34 3A 20 77 72 69 74 65 73 28 22 72 ASE 4: writes("r
00CA00: 74 68 28 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A th() ; ENDCASE..
00CA10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00CA20: 20 43 41 53 45 20 33 3A 20 66 69 78 65 64 62 6F CASE 3: fixedbo
00CA30: 74 33 28 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A t3() ; ENDCASE..
00CA40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 $
00CA50: 29 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D ).. $)..$).....
00CA60: 0A 4C 45 54 20 73 74 61 72 74 28 29 20 42 45 0D .LET start() BE.
00CA70: 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 62 75 66 ...$(.. LET buf
00CA80: 66 65 72 20 3D 20 56 45 43 20 35 30 0D 0A 20 20 fer = VEC 50..
00CA90: 4C 45 54 20 63 6F 75 6E 74 20 3D 20 30 0D 0A 20 LET count = 0..
00CAA0: 20 77 72 69 74 65 73 28 22 50 6C 65 61 73 65 20 writes("Please
00CAB0: 65 6E 74 65 72 20 74 68 65 20 73 74 61 72 74 20 enter the start
00CAC0: 61 64 64 72 65 73 73 20 69 6E 20 68 65 78 3A 22 address in hex:"
00CAD0: 29 0D 0A 20 20 72 65 61 64 73 28 62 75 66 66 65 ).. reads(buffe
00CAE0: 72 29 0D 0A 20 20 70 63 20 3A 3D 20 73 74 72 74 r).. pc := strt
00CAF0: 6F 6E 75 6D 28 62 75 66 66 65 72 2C 31 36 29 0D onum(buffer,16).
00CB00: 0A 20 20 24 28 0D 0A 20 20 20 20 63 6F 75 6E 74 . $(.. count
00CB10: 20 3A 3D 20 30 0D 0A 20 20 20 20 24 28 0D 0A 20 := 0.. $(..
00CB20: 20 20 20 20 20 68 6C 70 61 69 72 20 3A 3D 20 68 hlpair := h
00CB30: 6C 0D 0A 20 20 20 20 20 20 6E 65 77 6C 69 6E 65 l.. newline
00CB40: 28 29 20 3B 20 64 69 73 61 73 73 65 6D 62 6C 65 () ; disassemble
00CB50: 6C 69 6E 65 28 29 0D 0A 20 20 20 20 20 20 63 6F line().. co
00CB60: 75 6E 74 20 3A 3D 20 63 6F 75 6E 74 20 2B 20 31 unt := count + 1
00CB70: 0D 0A 20 20 20 20 24 29 20 52 45 50 45 41 54 55 .. $) REPEATU
00CB80: 4E 54 49 4C 20 63 6F 75 6E 74 20 3D 20 31 30 0D NTIL count = 10.
00CB90: 0A 20 20 24 29 20 52 45 50 45 41 54 55 4E 54 49 . $) REPEATUNTI
00CBA0: 4C 20 72 64 63 68 28 29 20 3D 20 27 73 27 0D 0A L rdch() = 's'..
00CBB0: 24 29 0D 0A 1A 34 EB 11 73 00 A7 ED 52 C2 A5 51 $)...4..s...R..Q
00CBC0: E1 E1 2A 39 2D 22 3B 2D E1 22 39 2D DD E1 C9 54 ..*9-";-."9-...T
00CBD0: 2F 00 00 52 2F 00 00 50 2F 00 00 4E 2F 00 00 E2 /..R/..P/..N/...
00CBE0: 9C 1A 64 20 3D 20 32 20 3B 20 62 69 74 73 70 65 ..d = 2 ; bitspe
00CBF0: 72 77 6F 72 64 20 3D 20 31 36 0D 0A 20 20 20 20 rword = 16..
00CC00: 72 64 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A rd") ; ENDCASE..
00CC10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 CA
00CC20: 53 45 20 32 3A 20 43 41 53 45 20 33 3A 20 77 72 SE 2: CASE 3: wr
00CC30: 69 74 65 73 28 22 6C 64 20 61 2C 22 29 20 3B 20 ites("ld a,") ;
00CC40: 69 72 28 6D 69 64 64 6C 65 29 20 3B 20 45 4E 44 ir(middle) ; END
00CC50: 43 41 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 CASE..
00CC60: 20 20 20 20 43 41 53 45 20 30 3A 20 43 41 53 45 CASE 0: CASE
00CC70: 20 31 3A 20 77 72 69 74 65 73 28 22 6C 64 20 22 1: writes("ld "
00CC80: 29 20 3B 20 69 72 28 6D 69 64 64 6C 65 29 20 3B ) ; ir(middle) ;
00CC90: 20 77 72 69 74 65 73 28 22 2C 20 61 22 29 0D 0A writes(", a")..
00CCA0: 20 20 20 20 20 20 20 20 20 20 20 20 24 29 0D 0A $)..
00CCB0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 43 ENDC
00CCC0: 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 30 3A ASE.. CASE 0:
00CCD0: 20 77 72 69 74 65 73 28 22 69 6E 20 22 29 20 3B writes("in ") ;
00CCE0: 20 73 69 6E 67 6C 65 72 65 67 69 73 74 65 72 28 singleregister(
00CCF0: 6D 69 64 64 6C 65 29 20 3B 20 77 72 69 74 65 73 middle) ; writes
00CD00: 28 22 2C 20 28 63 29 22 29 20 3B 20 45 4E 44 43 (", (c)") ; ENDC
00CD10: 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 31 3A ASE.. CASE 1:
00CD20: 20 77 72 69 74 65 73 28 22 6F 75 74 20 28 63 29 writes("out (c)
00CD30: 2C 20 22 29 20 3B 20 73 69 6E 67 6C 65 72 65 67 , ") ; singlereg
00CD40: 69 73 74 65 72 28 6D 69 64 64 6C 65 29 20 3B 20 ister(middle) ;
00CD50: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 ENDCASE.. CAS
00CD60: 45 20 33 3A 20 54 45 53 54 20 62 69 74 30 28 6D E 3: TEST bit0(m
00CD70: 69 64 64 6C 65 29 20 54 48 45 4E 0D 0A 20 20 20 iddle) THEN..
00CD80: 20 20 20 20 20 20 20 20 20 24 28 0D 0A 20 20 20 $(..
00CD90: 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 write
00CDA0: 73 28 22 6C 64 20 22 29 20 3B 20 64 6F 75 62 6C s("ld ") ; doubl
00CDB0: 65 72 65 67 69 73 74 65 72 28 6D 69 64 64 6C 65 eregister(middle
00CDC0: 3E 3E 31 2C 68 6C 70 61 69 72 29 0D 0A 20 20 20 >>1,hlpair)..
00CDD0: 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 write
00CDE0: 73 28 22 2C 20 28 22 29 20 3B 20 77 72 69 74 65 s(", (") ; write
00CDF0: 68 65 78 28 67 65 74 61 64 64 72 73 28 29 2C 34 hex(getaddrs(),4
00CE00: 0D 0A 0D 0A 2F 2A 20 41 20 73 69 6D 70 6C 65 20 ..../* A simple
00CE10: 66 75 6C 6C 20 73 63 72 65 65 6E 20 65 64 69 74 full screen edit
00CE20: 6F 72 20 2A 2F 0D 0A 2F 2A 20 41 6D 73 64 6F 73 or */../* Amsdos
00CE30: 20 76 65 72 73 69 6F 6E 20 6D 6F 64 69 66 69 65 version modifie
00CE40: 64 20 30 31 2F 31 31 2F 31 39 38 36 20 2A 2F 0D d 01/11/1986 */.
00CE50: 0A 0D 0A 2F 2A 20 74 6F 20 63 6F 6D 70 69 6C 65 .../* to compile
00CE60: 20 74 68 69 73 20 74 79 70 65 20 7C 42 43 50 4C this type |BCPL
00CE70: 2C 20 74 79 70 65 20 42 45 44 20 61 73 20 74 68 , type BED as th
00CE80: 65 20 6F 75 74 70 75 74 20 66 69 6C 65 20 6E 61 e output file na
00CE90: 6D 65 2C 0D 0A 20 20 20 61 6E 64 20 74 79 70 65 me,.. and type
00CEA0: 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 64 the following d
00CEB0: 69 72 65 63 74 69 76 65 73 3A 0D 0A 20 20 20 20 irectives:..
00CEC0: 20 20 20 4F 50 54 49 4F 4E 20 42 2D 0D 0A 20 20 OPTION B-..
00CED0: 20 20 20 20 20 47 45 54 20 22 61 6C 69 62 68 64 GET "alibhd
00CEE0: 72 22 0D 0A 20 20 20 20 20 20 20 47 45 54 20 22 r".. GET "
00CEF0: 62 65 64 2E 62 22 0D 0A 20 20 20 20 20 20 20 2E bed.b".. .
00CF00: 0D 0A 0D 0A 20 20 20 75 73 65 72 73 20 6F 66 20 .... users of
00CF10: 50 72 6F 74 65 78 74 20 6F 72 20 4D 61 78 61 6D Protext or Maxam
00CF20: 20 63 61 6E 20 6C 6F 61 64 20 69 6E 20 74 68 65 can load in the
00CF30: 20 66 69 6C 65 20 22 42 45 44 31 2E 42 22 0D 0A file "BED1.B"..
00CF40: 20 20 20 74 79 70 65 20 42 43 50 4C 20 28 50 72 type BCPL (Pr
00CF50: 6F 74 65 78 74 29 0D 0A 20 20 20 6F 72 20 20 20 otext).. or
00CF60: 58 20 3C 52 45 54 55 52 4E 3E 20 42 43 50 4C 20 X <RETURN> BCPL
00CF70: 28 4D 61 78 61 6D 29 0D 0A 20 20 20 61 6E 64 20 (Maxam).. and
00CF80: 74 68 65 6E 20 6A 75 73 74 3A 20 20 20 20 42 45 then just: BE
00CF90: 44 20 20 0D 0A 20 20 20 20 20 20 20 20 20 20 20 D ..
00CFA0: 20 20 20 20 20 20 20 20 20 20 47 45 54 20 22 22 GET ""
00CFB0: 20 2E 0D 0A 0D 0A 0D 0A 20 20 20 54 6F 20 75 73 ....... To us
00CFC0: 65 20 74 68 65 20 65 64 69 74 6F 72 20 74 79 70 e the editor typ
00CFD0: 65 20 52 55 4E 22 42 45 44 22 20 66 72 6F 6D 20 e RUN"BED" from
00CFE0: 42 41 53 49 43 0D 0A 0D 0A 2A 2F 0D 0A 0D 0A 0D BASIC....*/.....
00CFF0: 0A 4D 41 4E 49 46 45 53 54 20 24 28 20 69 6E 73 .MANIFEST $( ins
00D000: 29 20 3B 20 77 72 63 68 28 27 29 27 29 0D 0A 20 ) ; wrch(')')..
00D010: 20 20 20 20 20 20 20 20 20 20 20 24 29 0D 0A 20 $)..
00D020: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D ELSE.
00D030: 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 28 0D . $(.
00D040: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 . w
00D050: 72 69 74 65 73 28 22 6C 64 20 28 22 29 0D 0A 20 rites("ld (")..
00D060: 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 wri
00D070: 74 65 68 65 78 28 67 65 74 61 64 64 72 73 28 29 tehex(getaddrs()
00D080: 2C 34 29 20 3B 20 77 72 69 74 65 73 28 22 29 2C ,4) ; writes("),
00D090: 20 22 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ")..
00D0A0: 20 20 20 64 6F 75 62 6C 65 72 65 67 69 73 74 65 doubleregiste
00D0B0: 72 28 6D 69 64 64 6C 65 3E 3E 31 2C 68 6C 70 61 r(middle>>1,hlpa
00D0C0: 69 72 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ir)..
00D0D0: 20 24 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 $)..
00D0E0: 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 ENDCASE.. CA
00D0F0: 53 45 20 35 3A 20 54 45 53 54 20 62 69 74 30 28 SE 5: TEST bit0(
00D100: 6D 69 64 64 6C 65 29 20 54 48 45 4E 20 77 72 69 middle) THEN wri
00D110: 74 65 73 28 22 72 65 74 69 22 29 20 45 4C 53 45 tes("reti") ELSE
00D120: 20 77 72 69 74 65 73 28 22 72 65 74 6E 22 29 20 writes("retn")
00D130: 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 ; ENDCASE.. C
00D140: 41 53 45 20 34 3A 20 77 72 69 74 65 73 28 22 6E ASE 4: writes("n
00D150: 65 67 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A eg") ; ENDCASE..
00D160: 20 20 20 20 43 41 53 45 20 36 3A 20 77 72 69 74 CASE 6: writ
00D170: 65 73 28 22 69 6D 20 22 29 0D 0A 20 20 20 20 20 es("im ")..
00D180: 20 20 20 20 20 20 20 49 46 20 6D 69 64 64 6C 65 IF middle
00D190: 20 3D 20 30 20 54 48 45 4E 20 6D 69 64 64 6C 65 = 0 THEN middle
00D1A0: 20 3A 3D 20 6D 69 64 64 6C 65 20 2B 20 31 0D 0A := middle + 1..
00D1B0: 20 20 20 20 20 20 20 20 20 20 20 20 77 72 63 68 wrch
00D1C0: 28 27 30 27 2B 6D 69 64 64 6C 65 2D 31 29 0D 0A ('0'+middle-1)..
00D1D0: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 43 ENDC
00D1E0: 41 53 45 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D ASE.. $)..$)...
00D1F0: 0A 0D 0A 0D 0A 4C 45 54 20 72 65 70 69 6E 73 28 .....LET repins(
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 00 02 02 09 4E E5 0B 00 C1 02 00 00 00 02 ......N.........
00D220: 0B 00 C6 02 00 00 00 02 0B 00 C2 02 00 00 00 02 ................
00D230: 0B 00 C7 02 00 00 00 02 0B 00 C3 02 00 00 00 02 ................
00D240: 0B 00 C8 02 00 00 00 02 0B 00 C4 02 00 00 00 02 ................
00D250: 0B 00 C9 02 00 00 00 02 0B 00 C5 02 00 00 00 02 ................
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 20 3D 20 54 52 55 45 20 3B 20 6F 76 65 72 20 3D = TRUE ; over =
00D310: 20 46 41 4C 53 45 20 3B 20 63 75 72 73 6C 65 66 FALSE ; curslef
00D320: 74 20 3D 20 23 78 46 32 20 3B 20 63 75 72 73 72 t = #xF2 ; cursr
00D330: 69 67 68 74 20 3D 20 23 78 46 33 0D 0A 20 20 20 ight = #xF3..
00D340: 20 20 20 20 20 20 20 20 20 63 75 72 73 75 70 20 cursup
00D350: 3D 20 23 78 46 30 20 3B 20 63 75 72 73 64 6F 77 = #xF0 ; cursdow
00D360: 6E 20 3D 20 23 78 46 31 20 3B 20 65 73 63 61 70 n = #xF1 ; escap
00D370: 65 20 3D 20 23 78 46 43 20 3B 20 69 67 6E 6F 72 e = #xFC ; ignor
00D380: 65 20 3D 20 23 78 45 46 0D 0A 20 20 20 20 20 20 e = #xEF..
00D390: 20 20 20 20 20 20 73 63 75 72 73 75 70 20 3D 20 scursup =
00D3A0: 23 78 46 34 20 3B 20 73 63 75 72 73 64 6F 77 6E #xF4 ; scursdown
00D3B0: 20 3D 20 23 78 46 35 20 3B 20 73 63 75 72 73 6C = #xF5 ; scursl
00D3C0: 65 66 74 20 3D 20 23 78 46 36 0D 0A 20 20 20 20 eft = #xF6..
00D3D0: 20 20 20 20 20 20 20 20 73 63 75 72 73 72 69 67 scursrig
00D3E0: 68 74 20 3D 20 23 78 46 37 0D 0A 20 20 20 20 20 ht = #xF7..
00D3F0: 20 20 20 20 20 20 20 63 63 75 72 73 75 70 20 3D ccursup =
00D400: 20 23 78 46 38 20 3B 20 63 63 75 72 73 64 6F 77 #xF8 ; ccursdow
00D410: 6E 20 3D 20 23 78 46 39 0D 0A 20 20 20 20 20 20 n = #xF9..
00D420: 20 20 20 20 20 20 63 63 75 72 73 6C 65 66 74 20 ccursleft
00D430: 3D 20 23 78 46 41 20 3B 20 63 63 75 72 73 72 69 = #xFA ; ccursri
00D440: 67 68 74 20 3D 20 23 78 46 42 0D 0A 20 20 20 20 ght = #xFB..
00D450: 20 20 20 20 20 20 20 20 63 6F 70 65 6E 73 71 20 copensq
00D460: 3D 20 32 37 20 3B 20 63 63 6C 6F 73 65 73 71 20 = 27 ; cclosesq
00D470: 3D 20 32 39 0D 0A 20 20 20 20 20 20 20 20 20 20 = 29..
00D480: 20 20 6D 61 78 63 68 72 20 3D 20 31 39 39 39 38 maxchr = 19998
00D490: 0D 0A 20 20 20 20 20 20 20 20 20 20 24 29 0D 0A .. $)..
00D4A0: 0D 0A 0D 0A 2F 2A 0D 0A 20 20 20 74 65 78 74 65 ..../*.. texte
00D4B0: 6E 64 20 70 6F 69 6E 74 73 20 74 6F 20 74 68 65 nd points to the
00D4C0: 20 6C 61 73 74 20 63 68 61 72 61 63 74 65 72 20 last character
00D4D0: 69 6E 20 74 68 65 20 66 69 6C 65 20 77 68 69 63 in the file whic
00D4E0: 68 20 77 69 6C 6C 20 61 6C 77 61 79 73 20 62 65 h will always be
00D4F0: 20 61 0D 0A 20 20 20 63 68 61 72 61 63 74 65 72 a.. character
00D500: 6F 72 20 6A 75 73 74 20 74 68 65 20 6E 65 77 0D or just the new.
00D510: 0A 20 20 20 63 68 61 72 61 63 74 65 72 20 2A 2F . character */
00D520: 0D 0A 0D 0A 41 4E 44 20 72 65 70 72 69 6E 74 28 ....AND reprint(
00D530: 6C 69 6E 65 2C 70 6F 73 29 20 42 45 0D 0A 0D 0A line,pos) BE....
00D540: 24 28 0D 0A 20 20 54 45 53 54 20 69 6E 73 65 72 $(.. TEST inser
00D550: 74 20 54 48 45 4E 20 46 4F 52 20 61 20 3D 20 70 t THEN FOR a = p
00D560: 6F 73 20 54 4F 20 6C 69 6E 65 21 30 2D 31 20 44 os TO line!0-1 D
00D570: 4F 20 77 72 63 68 28 6C 69 6E 65 21 61 29 0D 0A O wrch(line!a)..
00D580: 20 20 45 4C 53 45 20 77 72 63 68 28 6C 69 6E 65 ELSE wrch(line
00D590: 21 70 6F 73 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D !pos)..$).......
00D5A0: 0A 2F 2A 20 54 68 69 73 20 72 6F 75 74 69 6E 65 ./* This routine
00D5B0: 20 77 69 6C 6C 20 72 65 6D 6F 76 65 20 61 20 63 will remove a c
00D5C0: 68 61 72 61 63 74 65 72 20 66 72 6F 6D 20 74 68 haracter from th
00D5D0: 65 20 62 75 66 66 65 72 20 2A 2F 0D 0A 0D 0A 41 e buffer */....A
00D5E0: 4E 44 20 64 65 6C 65 74 65 28 6C 69 6E 65 2C 78 ND delete(line,x
00D5F0: 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 54 45 ) BE....$(.. TE
00D600: 53 54 20 69 6E 73 65 72 74 20 54 48 45 4E 0D 0A ST insert THEN..
00D610: 20 20 24 28 0D 0A 20 20 20 20 6C 69 6E 65 21 30 $(.. line!0
00D620: 20 3A 3D 20 6C 69 6E 65 21 30 20 2D 20 31 0D 0A := line!0 - 1..
00D630: 20 20 20 20 46 4F 52 20 61 20 3D 20 78 20 54 4F FOR a = x TO
00D640: 20 6C 69 6E 65 21 30 20 44 4F 20 6C 69 6E 65 21 line!0 DO line!
00D650: 61 20 3A 3D 20 6C 69 6E 65 21 28 61 2B 31 29 0D a := line!(a+1).
00D660: 0A 20 20 24 29 0D 0A 20 20 45 4C 53 45 20 6C 69 . $).. ELSE li
00D670: 6E 65 21 78 20 3A 3D 20 27 20 27 0D 0A 24 29 0D ne!x := ' '..$).
00D680: 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 6F 75 ...../* This rou
00D690: 74 69 6E 65 20 77 69 6C 6C 20 69 6E 73 65 72 74 tine will insert
00D6A0: 20 61 20 63 68 61 72 61 63 74 65 72 20 69 6E 74 a character int
00D6B0: 6F 20 74 68 65 20 62 75 66 66 65 72 20 61 74 20 o the buffer at
00D6C0: 74 68 65 20 70 6F 69 6E 74 20 67 69 76 65 6E 20 the point given
00D6D0: 2A 2F 0D 0A 0D 0A 41 4E 44 20 62 69 6E 73 65 72 */....AND binser
00D6E0: 74 28 6C 69 6E 65 2C 70 6F 73 69 74 69 6F 6E 2C t(line,position,
00D6F0: 63 68 61 72 61 63 74 65 72 29 20 42 45 0D 0A 0D character) BE...
00D700: 20 31 33 2E 20 74 65 78 74 70 74 72 20 70 6F 69 13. textptr poi
00D710: 6E 74 73 20 74 6F 20 74 68 65 20 66 69 72 73 74 nts to the first
00D720: 20 63 68 61 72 61 63 74 65 72 20 6F 66 20 74 68 character of th
00D730: 65 20 63 75 72 72 65 6E 74 20 6C 69 6E 65 2E 0D e current line..
00D740: 0A 20 20 20 74 65 78 74 73 74 61 72 74 20 70 6F . textstart po
00D750: 69 6E 74 73 20 74 6F 20 74 68 65 20 73 74 61 72 ints to the star
00D760: 74 20 6F 66 20 74 68 65 20 74 65 78 74 20 73 70 t of the text sp
00D770: 61 63 65 2E 0D 0A 2A 2F 0D 0A 0D 0A 53 54 41 54 ace...*/....STAT
00D780: 49 43 20 24 28 20 69 6E 73 65 72 74 20 3D 20 69 IC $( insert = i
00D790: 6E 73 20 3B 20 74 65 78 74 65 6E 64 20 3D 20 30 ns ; textend = 0
00D7A0: 20 3B 20 74 65 78 74 70 74 72 20 3D 20 30 20 3B ; textptr = 0 ;
00D7B0: 20 74 65 78 74 73 74 61 72 74 20 3D 20 30 0D 0A textstart = 0..
00D7C0: 20 20 20 20 20 20 20 20 20 20 78 20 3D 20 31 20 x = 1
00D7D0: 3B 20 79 20 3D 20 31 20 3B 20 70 72 65 76 20 3D ; y = 1 ; prev =
00D7E0: 20 30 20 3B 20 66 69 6C 65 20 3D 20 30 20 3B 20 0 ; file = 0 ;
00D7F0: 62 75 66 66 70 72 69 6E 74 20 3D 20 46 41 4C 53 buffprint = FALS
00D800: 45 0D 0A 20 20 20 20 20 20 20 20 20 20 6C 69 6E E.. lin
00D810: 65 6E 75 6D 62 65 72 20 3D 20 31 20 24 29 0D 0A enumber = 1 $)..
00D820: 0D 0A 47 4C 4F 42 41 4C 20 24 28 20 65 72 72 76 ..GLOBAL $( errv
00D830: 65 63 20 3A 20 30 20 3B 20 65 72 72 6C 61 62 20 ec : 0 ; errlab
00D840: 3A 20 31 20 24 29 0D 0A 0D 0A 4C 45 54 20 62 79 : 1 $)....LET by
00D850: 74 65 6D 6F 76 65 28 73 6F 75 72 63 65 2C 64 65 temove(source,de
00D860: 73 74 2C 6E 75 6D 62 65 72 29 20 42 45 0D 0A 0D st,number) BE...
00D870: 0A 24 28 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 32 .$(.. inline 22
00D880: 31 2C 31 30 32 2C 31 32 33 20 20 20 20 20 20 2F 1,102,123 /
00D890: 2F 20 6C 64 20 68 2C 28 69 78 2B 31 32 33 29 0D / ld h,(ix+123).
00D8A0: 0A 20 20 69 6E 6C 69 6E 65 20 32 32 31 2C 31 31 . inline 221,11
00D8B0: 30 2C 31 32 32 20 20 20 20 20 20 2F 2F 20 6C 64 0,122 // ld
00D8C0: 20 6C 2C 28 69 78 2B 31 32 32 29 0D 0A 20 20 69 l,(ix+122).. i
00D8D0: 6E 6C 69 6E 65 20 32 32 31 2C 38 36 2C 31 32 35 nline 221,86,125
00D8E0: 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 64 2C 28 // ld d,(
00D8F0: 69 78 2B 31 32 35 29 0D 0A 20 20 69 6E 6C 69 6E ix+125).. inlin
00D900: 0A 24 28 0D 0A 20 20 54 45 53 54 20 69 6E 73 65 .$(.. TEST inse
00D910: 72 74 20 54 48 45 4E 0D 0A 20 20 24 28 0D 0A 20 rt THEN.. $(..
00D920: 20 20 20 46 4F 52 20 61 20 3D 20 6C 69 6E 65 21 FOR a = line!
00D930: 30 20 54 4F 20 70 6F 73 69 74 69 6F 6E 20 42 59 0 TO position BY
00D940: 20 2D 31 20 6C 69 6E 65 21 28 61 2B 31 29 20 3A -1 line!(a+1) :
00D950: 3D 20 6C 69 6E 65 21 61 0D 0A 20 20 20 20 6C 69 = line!a.. li
00D960: 6E 65 21 70 6F 73 69 74 69 6F 6E 20 3A 3D 20 63 ne!position := c
00D970: 68 61 72 61 63 74 65 72 0D 0A 20 20 20 20 6C 69 haracter.. li
00D980: 6E 65 21 30 20 3A 3D 20 6C 69 6E 65 21 30 20 2B ne!0 := line!0 +
00D990: 20 31 0D 0A 20 20 24 29 0D 0A 20 20 45 4C 53 45 1.. $).. ELSE
00D9A0: 20 6C 69 6E 65 21 70 6F 73 69 74 69 6F 6E 20 3A line!position :
00D9B0: 3D 20 63 68 61 72 61 63 74 65 72 0D 0A 24 29 0D = character..$).
00D9C0: 0A 0D 0A 0D 0A 41 4E 44 20 76 61 6C 69 64 61 74 .....AND validat
00D9D0: 65 28 6C 69 6E 65 2C 78 29 20 3D 20 56 41 4C 4F e(line,x) = VALO
00D9E0: 46 0D 0A 0D 0A 24 28 0D 0A 20 20 49 46 20 78 20 F....$(.. IF x
00D9F0: 3C 3D 20 6C 69 6E 65 21 30 20 54 48 45 4E 20 52 <= line!0 THEN R
00DA00: 45 53 55 4C 54 49 53 20 78 0D 0A 20 20 74 61 62 ESULTIS x.. tab
00DA10: 28 6C 69 6E 65 21 30 2C 79 29 0D 0A 20 20 52 45 (line!0,y).. RE
00DA20: 53 55 4C 54 49 53 20 6C 69 6E 65 21 30 0D 0A 24 SULTIS line!0..$
00DA30: 29 0D 0A 0D 0A 0D 0A 0D 0A 2F 2A 0D 0A 0D 0A 20 )......../*....
00DA40: 20 54 68 65 20 6C 69 6E 65 20 67 69 76 65 6E 20 The line given
00DA50: 69 73 20 69 6E 20 62 75 66 66 65 72 20 69 6E 20 is in buffer in
00DA60: 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 66 6F the following fo
00DA70: 72 6D 61 74 0D 0A 0D 0A 20 20 20 30 3A 20 6C 65 rmat.... 0: le
00DA80: 6E 67 74 68 0D 0A 20 20 20 31 2D 20 73 74 72 69 ngth.. 1- stri
00DA90: 6E 67 20 69 6E 20 75 6E 70 61 63 6B 65 64 20 66 ng in unpacked f
00DAA0: 6F 72 6D 61 74 20 66 6F 6C 6C 6F 77 65 64 20 62 ormat followed b
00DAB0: 79 20 31 33 0D 0A 0D 0A 20 20 54 68 65 20 72 6F y 13.... The ro
00DAC0: 75 74 69 6E 65 20 72 65 61 63 74 73 20 74 6F 20 utine reacts to
00DAD0: 6B 65 79 20 61 6E 64 20 74 61 6B 65 73 20 74 68 key and takes th
00DAE0: 65 20 61 70 70 72 6F 70 72 69 61 74 65 20 61 63 e appropriate ac
00DAF0: 74 69 6F 6E 0D 0A 0D 0A 2A 2F 0D 0A 0D 0A 41 4E tion....*/....AN
00DB00: 65 20 32 32 31 2C 39 34 2C 31 32 34 20 20 20 20 e 221,94,124
00DB10: 20 20 20 2F 2F 20 6C 64 20 65 2C 28 69 78 2B 31 // ld e,(ix+1
00DB20: 32 34 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 32 24).. inline 22
00DB30: 31 2C 37 30 2C 31 32 37 20 20 20 20 20 20 20 2F 1,70,127 /
00DB40: 2F 20 6C 64 20 62 2C 28 69 78 2B 31 32 37 29 0D / ld b,(ix+127).
00DB50: 0A 20 20 69 6E 6C 69 6E 65 20 32 32 31 2C 37 38 . inline 221,78
00DB60: 2C 31 32 36 20 20 20 20 20 20 20 2F 2F 20 6C 64 ,126 // ld
00DB70: 20 63 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 69 c,(ix+126).. i
00DB80: 6E 6C 69 6E 65 20 31 36 37 20 20 20 20 20 20 20 nline 167
00DB90: 20 20 20 20 20 20 20 2F 2F 20 61 6E 64 20 61 0D // and a.
00DBA0: 0A 20 20 69 6E 6C 69 6E 65 20 32 33 37 2C 38 32 . inline 237,82
00DBB0: 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 73 62 // sb
00DBC0: 63 20 68 6C 2C 64 65 0D 0A 20 20 69 6E 6C 69 6E c hl,de.. inlin
00DBD0: 65 20 32 35 20 20 20 20 20 20 20 20 20 20 20 20 e 25
00DBE0: 20 20 20 2F 2F 20 61 64 64 20 68 6C 2C 64 65 0D // add hl,de.
00DBF0: 0A 20 20 69 6E 6C 69 6E 65 20 35 36 2C 34 20 20 . inline 56,4
00DC00: 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 6A 72 // jr
00DC10: 20 63 2C 2B 34 0D 0A 20 20 69 6E 6C 69 6E 65 20 c,+4.. inline
00DC20: 32 33 37 2C 31 37 36 20 20 20 20 20 20 20 20 20 237,176
00DC30: 20 2F 2F 20 6C 64 69 72 0D 0A 20 20 69 6E 6C 69 // ldir.. inli
00DC40: 6E 65 20 32 34 2C 38 20 20 20 20 20 20 20 20 20 ne 24,8
00DC50: 20 20 20 20 2F 2F 20 6A 72 20 2B 38 0D 0A 20 20 // jr +8..
00DC60: 69 6E 6C 69 6E 65 20 31 31 20 20 20 20 20 20 20 inline 11
00DC70: 20 20 20 20 20 20 20 20 2F 2F 20 64 65 63 20 62 // dec b
00DC80: 63 0D 0A 20 20 69 6E 6C 69 6E 65 20 39 20 20 20 c.. inline 9
00DC90: 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 //
00DCA0: 61 64 64 20 68 6C 2C 62 63 0D 0A 20 20 69 6E 6C add hl,bc.. inl
00DCB0: 69 6E 65 20 32 33 35 20 20 20 20 20 20 20 20 20 ine 235
00DCC0: 20 20 20 20 20 2F 2F 20 65 78 20 64 65 2C 68 6C // ex de,hl
00DCD0: 0D 0A 20 20 69 6E 6C 69 6E 65 20 39 20 20 20 20 .. inline 9
00DCE0: 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 61 // a
00DCF0: 64 64 20 68 6C 2C 62 63 0D 0A 20 20 69 6E 6C 69 dd hl,bc.. inli
00DD00: 44 20 62 75 69 6C 64 62 75 66 66 28 62 75 66 66 D buildbuff(buff
00DD10: 65 72 2C 6B 65 79 29 20 3D 20 56 41 4C 4F 46 0D er,key) = VALOF.
00DD20: 0A 0D 0A 24 28 0D 0A 20 20 74 61 62 28 78 2C 79 ...$(.. tab(x,y
00DD30: 29 0D 0A 20 20 53 57 49 54 43 48 4F 4E 20 6B 65 ).. SWITCHON ke
00DD40: 79 20 49 4E 54 4F 0D 0A 20 20 24 28 0D 0A 20 20 y INTO.. $(..
00DD50: 20 20 43 41 53 45 20 31 33 3A 0D 0A 20 20 20 20 CASE 13:..
00DD60: 20 20 78 20 3A 3D 20 76 61 6C 69 64 61 74 65 28 x := validate(
00DD70: 62 75 66 66 65 72 2C 78 29 0D 0A 20 20 20 20 20 buffer,x)..
00DD80: 20 62 69 6E 73 65 72 74 28 62 75 66 66 65 72 2C binsert(buffer,
00DD90: 78 2C 31 33 29 0D 0A 20 20 20 20 20 20 77 72 63 x,13).. wrc
00DDA0: 68 28 31 33 29 0D 0A 20 20 20 20 20 20 70 72 69 h(13).. pri
00DDB0: 6E 74 63 6C 72 28 62 75 66 66 65 72 2B 31 2C 6C ntclr(buffer+1,l
00DDC0: 69 6E 65 6C 65 6E 67 74 68 28 62 75 66 66 65 72 inelength(buffer
00DDD0: 2B 31 29 2D 31 29 20 3B 20 52 45 53 55 4C 54 49 +1)-1) ; RESULTI
00DDE0: 53 20 31 33 0D 0A 20 20 20 20 43 41 53 45 20 63 S 13.. CASE c
00DDF0: 75 72 73 6C 65 66 74 3A 20 43 41 53 45 20 73 63 ursleft: CASE sc
00DE00: 75 72 73 6C 65 66 74 3A 0D 0A 20 20 20 20 20 20 ursleft:..
00DE10: 54 45 53 54 20 78 3E 31 20 54 48 45 4E 0D 0A 20 TEST x>1 THEN..
00DE20: 20 20 20 20 20 20 20 78 20 3A 3D 20 78 20 2D 20 x := x -
00DE30: 31 0D 0A 20 20 20 20 20 20 45 4C 53 45 20 62 65 1.. ELSE be
00DE40: 65 70 28 29 0D 0A 20 20 20 20 20 20 45 4E 44 43 ep().. ENDC
00DE50: 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 63 75 ASE.. CASE cu
00DE60: 72 73 72 69 67 68 74 3A 20 43 41 53 45 20 73 63 rsright: CASE sc
00DE70: 75 72 73 72 69 67 68 74 3A 0D 0A 20 20 20 20 20 ursright:..
00DE80: 20 54 45 53 54 20 78 20 3C 3D 20 62 75 66 66 65 TEST x <= buffe
00DE90: 72 21 30 2D 31 20 54 48 45 4E 0D 0A 20 20 20 20 r!0-1 THEN..
00DEA0: 20 20 20 20 78 20 3A 3D 20 78 20 2B 20 31 0D 0A x := x + 1..
00DEB0: 20 20 20 20 20 20 45 4C 53 45 20 62 65 65 70 28 ELSE beep(
00DEC0: 29 0D 0A 20 20 20 20 20 20 45 4E 44 43 41 53 45 ).. ENDCASE
00DED0: 0D 0A 20 20 20 20 43 41 53 45 20 63 63 75 72 73 .. CASE ccurs
00DEE0: 6C 65 66 74 3A 20 20 78 20 3A 3D 20 31 20 3B 20 left: x := 1 ;
00DEF0: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 ENDCASE.. CAS
00DF00: 6E 65 20 32 33 35 20 20 20 20 20 20 20 20 20 20 ne 235
00DF10: 20 20 20 20 2F 2F 20 65 78 20 64 65 2C 68 6C 0D // ex de,hl.
00DF20: 0A 20 20 69 6E 6C 69 6E 65 20 33 20 20 20 20 20 . inline 3
00DF30: 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 69 6E // in
00DF40: 63 20 62 63 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 c bc.. inline 2
00DF50: 33 37 2C 31 38 34 20 20 20 20 20 20 20 20 20 20 37,184
00DF60: 2F 2F 20 6C 64 64 72 0D 0A 24 29 0D 0A 0D 0A 4C // lddr..$)....L
00DF70: 45 54 20 74 61 62 28 78 2C 79 29 20 42 45 0D 0A ET tab(x,y) BE..
00DF80: 0D 0A 24 28 0D 0A 20 20 77 72 63 68 28 33 31 29 ..$(.. wrch(31)
00DF90: 20 3B 20 77 72 63 68 28 78 29 20 3B 20 77 72 63 ; wrch(x) ; wrc
00DFA0: 68 28 79 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 h(y)..$)......LE
00DFB0: 54 20 73 70 61 63 65 73 28 6E 75 6D 62 65 72 29 T spaces(number)
00DFC0: 20 42 45 20 24 28 20 46 4F 52 20 61 20 3D 20 31 BE $( FOR a = 1
00DFD0: 20 54 4F 20 6E 75 6D 62 65 72 20 44 4F 20 77 72 TO number DO wr
00DFE0: 63 68 28 27 20 27 29 20 24 29 0D 0A 0D 0A 0D 0A ch(' ') $)......
00DFF0: 4C 45 54 20 61 73 63 69 69 28 63 68 61 72 29 20 LET ascii(char)
00E000: 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 54 45 53 54 BE....$(.. TEST
00E010: 20 63 68 61 72 3D 31 33 20 54 48 45 4E 20 6E 65 char=13 THEN ne
00E020: 77 6C 69 6E 65 28 29 20 45 4C 53 45 20 77 72 63 wline() ELSE wrc
00E030: 68 28 63 68 61 72 29 0D 0A 24 29 0D 0A 0D 0A 0D h(char)..$).....
00E040: 0A 4C 45 54 20 63 75 72 73 6F 6E 28 29 20 42 45 .LET curson() BE
00E050: 0D 0A 0D 0A 24 28 0D 0A 20 20 69 6E 6C 69 6E 65 ....$(.. inline
00E060: 20 32 30 35 2C 23 78 38 31 2C 23 78 42 42 0D 0A 205,#x81,#xBB..
00E070: 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 63 75 72 73 $)......LET curs
00E080: 65 6E 28 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 en() BE....$(..
00E090: 20 69 6E 6C 69 6E 65 20 32 30 35 2C 23 78 37 42 inline 205,#x7B
00E0A0: 2C 23 78 42 42 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C ,#xBB..$)......L
00E0B0: 45 54 20 63 75 72 73 64 69 28 29 20 42 45 0D 0A ET cursdi() BE..
00E0C0: 0D 0A 24 28 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 ..$(.. inline 2
00E0D0: 30 35 2C 23 78 37 45 2C 23 78 42 42 0D 0A 24 29 05,#x7E,#xBB..$)
00E0E0: 0D 0A 0D 0A 0D 0A 4C 45 54 20 62 65 65 70 28 29 ......LET beep()
00E0F0: 20 42 45 20 24 28 20 77 72 63 68 28 37 29 20 24 BE $( wrch(7) $
00E100: 45 20 63 63 75 72 73 72 69 67 68 74 3A 20 78 20 E ccursright: x
00E110: 3A 3D 20 62 75 66 66 65 72 21 30 20 3B 20 45 4E := buffer!0 ; EN
00E120: 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 DCASE.. CASE
00E130: 73 63 75 72 73 75 70 3A 20 43 41 53 45 20 73 63 scursup: CASE sc
00E140: 75 72 73 64 6F 77 6E 3A 0D 0A 20 20 20 20 43 41 ursdown:.. CA
00E150: 53 45 20 63 63 75 72 73 75 70 3A 20 43 41 53 45 SE ccursup: CASE
00E160: 20 63 63 75 72 73 64 6F 77 6E 3A 0D 0A 20 20 20 ccursdown:..
00E170: 20 43 41 53 45 20 63 6F 70 65 6E 73 71 3A 20 43 CASE copensq: C
00E180: 41 53 45 20 63 63 6C 6F 73 65 73 71 3A 0D 0A 20 ASE cclosesq:..
00E190: 20 20 20 43 41 53 45 20 65 73 63 61 70 65 3A 20 CASE escape:
00E1A0: 43 41 53 45 20 63 75 72 73 75 70 3A 20 43 41 53 CASE cursup: CAS
00E1B0: 45 20 63 75 72 73 64 6F 77 6E 3A 20 52 45 53 55 E cursdown: RESU
00E1C0: 4C 54 49 53 20 6B 65 79 0D 0A 20 20 20 20 43 41 LTIS key.. CA
00E1D0: 53 45 20 31 32 37 3A 0D 0A 20 20 20 20 20 20 78 SE 127:.. x
00E1E0: 20 3A 3D 20 76 61 6C 69 64 61 74 65 28 62 75 66 := validate(buf
00E1F0: 66 65 72 2C 78 29 0D 0A 20 20 20 20 20 20 49 46 fer,x).. IF
00E200: 20 78 20 3D 20 31 20 54 48 45 4E 20 52 45 53 55 x = 1 THEN RESU
00E210: 4C 54 49 53 20 31 32 37 0D 0A 20 20 20 20 20 20 LTIS 127..
00E220: 78 20 3A 3D 20 78 20 2D 20 31 0D 0A 20 20 20 20 x := x - 1..
00E230: 20 20 74 61 62 28 78 2C 79 29 0D 0A 20 20 20 20 tab(x,y)..
00E240: 20 20 64 65 6C 65 74 65 28 62 75 66 66 65 72 2C delete(buffer,
00E250: 78 29 0D 0A 20 20 20 20 20 20 72 65 70 72 69 6E x).. reprin
00E260: 74 28 62 75 66 66 65 72 2C 78 29 0D 0A 20 20 20 t(buffer,x)..
00E270: 20 20 20 49 46 20 69 6E 73 65 72 74 20 54 48 45 IF insert THE
00E280: 4E 20 77 72 63 68 28 27 20 27 29 0D 0A 20 20 20 N wrch(' ')..
00E290: 20 20 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 ENDCASE..
00E2A0: 44 45 46 41 55 4C 54 3A 0D 0A 20 20 20 20 20 20 DEFAULT:..
00E2B0: 78 20 3A 3D 20 76 61 6C 69 64 61 74 65 28 62 75 x := validate(bu
00E2C0: 66 66 65 72 2C 78 29 0D 0A 20 20 20 20 20 20 54 ffer,x).. T
00E2D0: 45 53 54 20 62 75 66 66 65 72 21 30 20 3C 20 38 EST buffer!0 < 8
00E2E0: 30 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 24 28 0 THEN.. $(
00E2F0: 0D 0A 20 20 20 20 20 20 20 20 62 69 6E 73 65 72 .. binser
00E300: 29 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 )....../* This r
00E310: 6F 75 74 69 6E 65 20 72 65 74 75 72 6E 73 20 74 outine returns t
00E320: 68 65 20 6E 75 6D 62 65 72 20 6F 66 20 63 68 61 he number of cha
00E330: 72 61 63 74 65 72 73 20 75 70 20 74 6F 20 61 6E racters up to an
00E340: 64 20 69 6E 63 6C 75 64 69 6E 67 20 74 68 65 0D d including the.
00E350: 0A 20 20 20 6E 65 78 74 20 43 52 20 2A 2F 0D 0A . next CR */..
00E360: 0D 0A 4C 45 54 20 6C 69 6E 65 6C 65 6E 67 74 68 ..LET linelength
00E370: 28 66 72 6F 6D 29 20 3D 20 56 41 4C 4F 46 0D 0A (from) = VALOF..
00E380: 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 73 6F 66 61 ..$(.. LET sofa
00E390: 72 20 3D 20 31 0D 0A 20 20 57 48 49 4C 45 20 21 r = 1.. WHILE !
00E3A0: 66 72 6F 6D 20 4E 45 20 31 33 20 44 4F 20 24 28 from NE 13 DO $(
00E3B0: 20 73 6F 66 61 72 20 3A 3D 20 73 6F 66 61 72 20 sofar := sofar
00E3C0: 2B 20 31 20 3B 20 66 72 6F 6D 20 3A 3D 20 66 72 + 1 ; from := fr
00E3D0: 6F 6D 20 2B 20 31 20 24 29 0D 0A 20 20 52 45 53 om + 1 $).. RES
00E3E0: 55 4C 54 49 53 20 73 6F 66 61 72 0D 0A 24 29 0D ULTIS sofar..$).
00E3F0: 0A 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 ......./* This r
00E400: 6F 75 74 69 6E 65 20 77 69 6C 6C 20 70 72 69 6E outine will prin
00E410: 74 20 6E 75 6D 20 63 68 61 72 61 63 74 65 72 73 t num characters
00E420: 20 6F 66 20 6C 69 6E 65 20 61 6E 64 20 74 68 65 of line and the
00E430: 6E 20 66 69 6C 6C 20 74 68 65 20 72 65 73 74 20 n fill the rest
00E440: 6F 66 20 74 68 65 0D 0A 20 20 20 6C 69 6E 65 20 of the.. line
00E450: 77 69 74 68 20 73 70 61 63 65 73 20 2A 2F 0D 0A with spaces */..
00E460: 0D 0A 41 4E 44 20 70 72 69 6E 74 63 6C 72 28 6C ..AND printclr(l
00E470: 69 6E 65 2C 6E 75 6D 29 20 42 45 0D 0A 0D 0A 24 ine,num) BE....$
00E480: 28 0D 0A 20 20 46 4F 52 20 61 20 3D 20 30 20 54 (.. FOR a = 0 T
00E490: 4F 20 6E 75 6D 2D 31 20 44 4F 20 77 72 63 68 28 O num-1 DO wrch(
00E4A0: 6C 69 6E 65 21 61 29 0D 0A 20 20 73 70 61 63 65 line!a).. space
00E4B0: 73 28 37 39 2D 6E 75 6D 29 0D 0A 24 29 0D 0A 0D s(79-num)..$)...
00E4C0: 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 6F 75 74 69 .../* This routi
00E4D0: 6E 65 20 77 69 6C 6C 20 70 72 69 6E 74 20 65 69 ne will print ei
00E4E0: 74 68 65 72 20 74 68 65 20 77 68 6F 6C 65 20 62 ther the whole b
00E4F0: 75 66 66 65 72 20 66 72 6F 6D 20 78 20 6F 6E 20 uffer from x on
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 00 02 02 09 4E E5 0C 00 C1 02 00 00 00 02 ......N.........
00E520: 0C 00 C6 02 00 00 00 02 0C 00 C2 02 00 00 00 02 ................
00E530: 0C 00 C7 02 00 00 00 02 0C 00 C3 02 00 00 00 02 ................
00E540: 0C 00 C8 02 00 00 00 02 0C 00 C4 02 00 00 00 02 ................
00E550: 0C 00 C9 02 00 00 00 02 0C 00 C5 02 00 00 00 02 ................
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 74 28 62 75 66 66 65 72 2C 78 2C 6B 65 79 29 0D t(buffer,x,key).
00E610: 0A 20 20 20 20 20 20 20 20 72 65 70 72 69 6E 74 . reprint
00E620: 28 62 75 66 66 65 72 2C 78 29 0D 0A 20 20 20 20 (buffer,x)..
00E630: 20 20 20 20 49 46 20 69 6E 73 65 72 74 20 4C 4F IF insert LO
00E640: 47 4F 52 20 78 3C 62 75 66 66 65 72 21 30 20 54 GOR x<buffer!0 T
00E650: 48 45 4E 20 78 20 3A 3D 20 78 20 2B 20 31 0D 0A HEN x := x + 1..
00E660: 20 20 20 20 20 20 24 29 0D 0A 20 20 20 20 20 20 $)..
00E670: 45 4C 53 45 20 62 65 65 70 28 29 0D 0A 20 20 20 ELSE beep()..
00E680: 20 20 20 45 4E 44 43 41 53 45 20 3B 0D 0A 20 20 ENDCASE ;..
00E690: 20 20 43 41 53 45 20 69 67 6E 6F 72 65 3A 0D 0A CASE ignore:..
00E6A0: 20 20 24 29 0D 0A 20 20 52 45 53 55 4C 54 49 53 $).. RESULTIS
00E6B0: 20 46 41 4C 53 45 0D 0A 24 29 0D 0A 0D 0A 0D 0A FALSE..$)......
00E6C0: 0D 0A 2F 2A 20 54 68 69 73 20 69 73 20 74 68 65 ../* This is the
00E6D0: 20 62 75 66 66 65 72 20 65 64 69 74 20 72 6F 75 buffer edit rou
00E6E0: 74 69 6E 65 20 2A 2F 0D 0A 0D 0A 4C 45 54 20 62 tine */....LET b
00E6F0: 75 66 66 65 72 28 6C 69 6E 65 29 20 3D 20 56 41 uffer(line) = VA
00E700: 4C 4F 46 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 LOF....$(.. LET
00E710: 20 6B 65 79 70 72 65 73 73 20 3D 20 30 0D 0A 20 keypress = 0..
00E720: 20 24 28 0D 0A 20 20 20 20 77 72 69 74 65 66 28 $(.. writef(
00E730: 22 25 43 25 43 25 43 25 49 34 22 2C 33 31 2C 36 "%C%C%C%I4",31,6
00E740: 2C 32 35 2C 6C 69 6E 65 6E 75 6D 62 65 72 29 0D ,25,linenumber).
00E750: 0A 20 20 20 20 77 72 69 74 65 66 28 22 25 43 25 . writef("%C%
00E760: 43 25 43 25 49 32 22 2C 33 31 2C 31 38 2C 32 35 C%C%I2",31,18,25
00E770: 2C 78 29 0D 0A 20 20 20 20 74 61 62 28 78 2C 79 ,x).. tab(x,y
00E780: 29 0D 0A 20 20 20 20 63 75 72 73 65 6E 28 29 0D ).. cursen().
00E790: 0A 20 20 20 20 6B 65 79 70 72 65 73 73 20 3A 3D . keypress :=
00E7A0: 20 72 64 63 68 28 29 0D 0A 20 20 20 20 63 75 72 rdch().. cur
00E7B0: 73 64 69 28 29 0D 0A 20 20 20 20 6B 65 79 70 72 sdi().. keypr
00E7C0: 65 73 73 20 3A 3D 20 62 75 69 6C 64 62 75 66 66 ess := buildbuff
00E7D0: 28 6C 69 6E 65 2C 6B 65 79 70 72 65 73 73 29 0D (line,keypress).
00E7E0: 0A 20 20 24 29 20 52 45 50 45 41 54 55 4E 54 49 . $) REPEATUNTI
00E7F0: 4C 20 6B 65 79 70 72 65 73 73 0D 0A 20 20 70 72 L keypress.. pr
00E800: 20 3B 20 52 45 53 55 4C 54 49 53 20 70 74 72 20 ; RESULTIS ptr
00E810: 24 29 0D 0A 20 20 70 74 72 20 3A 3D 20 70 74 72 $).. ptr := ptr
00E820: 20 2D 20 31 0D 0A 20 20 20 20 52 45 50 45 41 54 - 1.. REPEAT
00E830: 57 48 49 4C 45 20 74 65 78 74 73 74 61 72 74 25 WHILE textstart%
00E840: 28 70 74 72 2D 31 29 20 4E 45 20 31 33 20 4C 4F (ptr-1) NE 13 LO
00E850: 47 41 4E 44 20 70 74 72 20 4E 45 20 30 0D 0A 20 GAND ptr NE 0..
00E860: 20 52 45 53 55 4C 54 49 53 20 70 74 72 0D 0A 24 RESULTIS ptr..$
00E870: 29 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 )....../* This r
00E880: 6F 75 74 69 6E 65 20 77 69 6C 6C 20 72 65 63 6F outine will reco
00E890: 6E 73 74 72 75 63 74 20 74 68 65 20 73 63 72 65 nstruct the scre
00E8A0: 65 6E 20 2A 2F 0D 0A 0D 0A 4C 45 54 20 72 65 63 en */....LET rec
00E8B0: 6F 6E 73 74 72 75 63 74 28 66 72 6F 6D 29 20 42 onstruct(from) B
00E8C0: 45 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 74 E....$(.. LET t
00E8D0: 70 74 72 20 3D 20 66 72 6F 6D 0D 0A 20 20 63 6C ptr = from.. cl
00E8E0: 73 28 29 0D 0A 20 20 46 4F 52 20 61 20 3D 20 79 s().. FOR a = y
00E8F0: 20 54 4F 20 32 20 42 59 20 2D 31 20 44 4F 0D 0A TO 2 BY -1 DO..
00E900: 20 20 24 28 0D 0A 20 20 20 20 54 45 53 54 20 74 $(.. TEST t
00E910: 70 74 72 20 3D 20 30 20 54 48 45 4E 20 24 28 20 ptr = 0 THEN $(
00E920: 79 20 3A 3D 20 79 20 2D 20 61 20 2B 20 31 20 3B y := y - a + 1 ;
00E930: 20 42 52 45 41 4B 20 24 29 0D 0A 20 20 20 20 45 BREAK $).. E
00E940: 4C 53 45 20 74 70 74 72 20 3A 3D 20 62 61 63 6B LSE tptr := back
00E950: 6C 69 6E 65 28 74 70 74 72 29 0D 0A 20 20 24 29 line(tptr).. $)
00E960: 0D 0A 20 20 73 63 72 65 65 6E 28 74 70 74 72 2C .. screen(tptr,
00E970: 31 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 1)..$)......LET
00E980: 65 72 72 6F 72 28 6D 65 73 73 61 67 65 29 20 42 error(message) B
00E990: 45 0D 0A 0D 0A 24 28 0D 0A 20 20 74 61 62 28 31 E....$(.. tab(1
00E9A0: 2C 32 35 29 20 3B 20 77 72 69 74 65 66 28 22 25 ,25) ; writef("%
00E9B0: 53 2E 20 48 69 74 20 61 6E 79 20 6B 65 79 20 74 S. Hit any key t
00E9C0: 6F 20 63 6F 6E 74 69 6E 75 65 22 2C 6D 65 73 73 o continue",mess
00E9D0: 61 67 65 29 0D 0A 20 20 62 65 65 70 28 29 0D 0A age).. beep()..
00E9E0: 20 20 72 64 63 68 28 29 0D 0A 20 20 74 61 62 28 rdch().. tab(
00E9F0: 33 33 2C 32 35 29 20 3B 20 73 70 61 63 65 73 28 33,25) ; spaces(
00EA00: 65 76 21 79 20 3A 3D 20 6C 69 6E 65 6C 65 6E 67 ev!y := lineleng
00EA10: 74 68 28 6C 69 6E 65 2B 31 29 2D 31 0D 0A 20 20 th(line+1)-1..
00EA20: 52 45 53 55 4C 54 49 53 20 6B 65 79 70 72 65 73 RESULTIS keypres
00EA30: 73 0D 0A 24 29 0D 0A 0D 0A 0D 0A 41 4E 44 20 69 s..$)......AND i
00EA40: 6E 69 74 62 75 66 66 28 6C 69 6E 65 2C 66 72 6F nitbuff(line,fro
00EA50: 6D 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 21 m) BE....$(.. !
00EA60: 6C 69 6E 65 20 3A 3D 20 30 0D 0A 20 20 24 28 0D line := 0.. $(.
00EA70: 0A 20 20 20 20 21 6C 69 6E 65 20 3A 3D 20 21 6C . !line := !l
00EA80: 69 6E 65 20 2B 20 31 0D 0A 20 20 20 20 6C 69 6E ine + 1.. lin
00EA90: 65 21 28 21 6C 69 6E 65 29 20 3A 3D 20 74 65 78 e!(!line) := tex
00EAA0: 74 73 74 61 72 74 25 66 72 6F 6D 0D 0A 20 20 20 tstart%from..
00EAB0: 20 66 72 6F 6D 20 3A 3D 20 66 72 6F 6D 20 2B 20 from := from +
00EAC0: 31 0D 0A 20 20 24 29 20 52 45 50 45 41 54 55 4E 1.. $) REPEATUN
00EAD0: 54 49 4C 20 74 65 78 74 73 74 61 72 74 25 28 66 TIL textstart%(f
00EAE0: 72 6F 6D 2D 31 29 20 3D 20 31 33 0D 0A 24 29 0D rom-1) = 13..$).
00EAF0: 0A 0D 0A 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 65 20 ........./* The
00EB00: 61 62 6F 76 65 20 72 6F 75 74 69 6E 65 73 20 77 above routines w
00EB10: 6F 72 6B 20 77 69 74 68 20 70 6F 69 6E 74 65 72 ork with pointer
00EB20: 73 20 61 6E 64 20 77 6F 72 64 73 2E 20 54 68 65 s and words. The
00EB30: 20 6E 65 78 74 20 73 65 74 20 6F 66 20 72 6F 75 next set of rou
00EB40: 74 69 6E 65 73 0D 0A 20 20 20 77 6F 72 6B 20 77 tines.. work w
00EB50: 69 74 68 20 62 79 74 65 73 20 61 6E 64 20 61 72 ith bytes and ar
00EB60: 72 61 79 20 69 6E 64 69 63 65 73 20 2A 2F 0D 0A ray indices */..
00EB70: 0D 0A 0D 0A 4C 45 54 20 6C 69 6E 65 6C 65 6E 67 ....LET lineleng
00EB80: 74 68 28 66 72 6F 6D 29 20 3D 20 56 41 4C 4F 46 th(from) = VALOF
00EB90: 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 73 6F ....$(.. LET so
00EBA0: 66 61 72 20 3D 20 31 0D 0A 20 20 57 48 49 4C 45 far = 1.. WHILE
00EBB0: 20 74 65 78 74 73 74 61 72 74 25 66 72 6F 6D 20 textstart%from
00EBC0: 4E 45 20 31 33 20 44 4F 20 24 28 20 73 6F 66 61 NE 13 DO $( sofa
00EBD0: 72 20 3A 3D 20 73 6F 66 61 72 20 2B 20 31 20 3B r := sofar + 1 ;
00EBE0: 20 66 72 6F 6D 20 3A 3D 20 66 72 6F 6D 20 2B 20 from := from +
00EBF0: 31 20 24 29 0D 0A 20 20 52 45 53 55 4C 54 49 53 1 $).. RESULTIS
00EC00: 32 30 29 20 3B 20 73 74 61 74 75 73 28 29 0D 0A 20) ; status()..
00EC10: 20 20 62 75 66 66 70 72 69 6E 74 20 3A 3D 20 54 buffprint := T
00EC20: 52 55 45 0D 0A 20 20 72 65 63 6F 6E 73 74 72 75 RUE.. reconstru
00EC30: 63 74 28 74 65 78 74 70 74 72 29 0D 0A 20 20 6C ct(textptr).. l
00EC40: 6F 6E 67 6A 75 6D 70 28 65 72 72 6C 61 62 2C 65 ongjump(errlab,e
00EC50: 72 72 76 65 63 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A rrvec)..$)......
00EC60: 0D 0A 4C 45 54 20 6D 61 6B 65 73 70 61 63 65 28 ..LET makespace(
00EC70: 61 74 2C 73 69 7A 65 29 20 42 45 0D 0A 0D 0A 24 at,size) BE....$
00EC80: 28 0D 0A 20 20 62 79 74 65 6D 6F 76 65 28 74 65 (.. bytemove(te
00EC90: 78 74 73 74 61 72 74 2A 32 2B 61 74 2C 74 65 78 xtstart*2+at,tex
00ECA0: 74 73 74 61 72 74 2A 32 2B 61 74 2B 73 69 7A 65 tstart*2+at+size
00ECB0: 2C 74 65 78 74 65 6E 64 2D 61 74 2B 31 29 0D 0A ,textend-at+1)..
00ECC0: 20 20 74 65 78 74 65 6E 64 20 3A 3D 20 74 65 78 textend := tex
00ECD0: 74 65 6E 64 20 2B 20 73 69 7A 65 0D 0A 24 29 0D tend + size..$).
00ECE0: 0A 0D 0A 0D 0A 41 4E 44 20 63 6C 6F 73 65 73 70 .....AND closesp
00ECF0: 61 63 65 28 61 74 2C 73 69 7A 65 29 20 42 45 0D ace(at,size) BE.
00ED00: 0A 0D 0A 24 28 0D 0A 20 20 62 79 74 65 6D 6F 76 ...$(.. bytemov
00ED10: 65 28 74 65 78 74 73 74 61 72 74 2A 32 2B 61 74 e(textstart*2+at
00ED20: 2B 73 69 7A 65 2C 74 65 78 74 73 74 61 72 74 2A +size,textstart*
00ED30: 32 2B 61 74 2C 74 65 78 74 65 6E 64 2D 61 74 2D 2+at,textend-at-
00ED40: 73 69 7A 65 2B 31 29 0D 0A 20 20 74 65 78 74 65 size+1).. texte
00ED50: 6E 64 20 3A 3D 20 74 65 78 74 65 6E 64 20 2D 20 nd := textend -
00ED60: 73 69 7A 65 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A size..$)........
00ED70: 41 4E 44 20 63 6F 70 79 28 66 72 6F 6D 2C 64 65 AND copy(from,de
00ED80: 73 74 2C 6E 75 6D 62 65 72 29 20 42 45 0D 0A 0D st,number) BE...
00ED90: 0A 24 28 0D 0A 20 20 46 4F 52 20 61 20 3D 20 30 .$(.. FOR a = 0
00EDA0: 20 54 4F 20 6E 75 6D 62 65 72 2D 31 20 44 4F 20 TO number-1 DO
00EDB0: 74 65 78 74 73 74 61 72 74 25 28 64 65 73 74 2B textstart%(dest+
00EDC0: 61 29 20 3A 3D 20 66 72 6F 6D 21 61 0D 0A 24 29 a) := from!a..$)
00EDD0: 0D 0A 0D 0A 0D 0A 2F 2A 20 41 20 62 75 66 66 65 ....../* A buffe
00EDE0: 72 20 6C 69 6E 65 20 69 73 20 74 6F 20 62 65 20 r line is to be
00EDF0: 69 6E 73 65 72 74 65 64 20 61 74 20 61 74 20 2A inserted at at *
00EE00: 20 73 6F 66 61 72 0D 0A 24 29 0D 0A 0D 0A 0D 0A sofar..$)......
00EE10: 0D 0A 4C 45 54 20 77 72 69 74 65 28 66 72 6F 6D ..LET write(from
00EE20: 2C 78 2C 79 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A ,x,y) BE....$(..
00EE30: 20 20 74 61 62 28 78 2C 79 29 0D 0A 20 20 46 4F tab(x,y).. FO
00EE40: 52 20 61 20 3D 20 66 72 6F 6D 20 54 4F 20 66 72 R a = from TO fr
00EE50: 6F 6D 20 2B 20 6C 69 6E 65 6C 65 6E 67 74 68 28 om + linelength(
00EE60: 66 72 6F 6D 29 20 2D 20 32 20 44 4F 20 77 72 63 from) - 2 DO wrc
00EE70: 68 28 74 65 78 74 73 74 61 72 74 25 61 29 0D 0A h(textstart%a)..
00EE80: 20 20 70 72 65 76 21 79 20 3A 3D 20 6C 69 6E 65 prev!y := line
00EE90: 6C 65 6E 67 74 68 28 66 72 6F 6D 29 20 2D 20 31 length(from) - 1
00EEA0: 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 73 74 ..$)......LET st
00EEB0: 61 74 75 73 28 29 20 42 45 0D 0A 0D 0A 24 28 0D atus() BE....$(.
00EEC0: 0A 20 20 74 61 62 28 31 2C 32 35 29 0D 0A 20 20 . tab(1,25)..
00EED0: 77 72 69 74 65 66 28 22 4C 69 6E 65 3A 25 49 34 writef("Line:%I4
00EEE0: 20 43 6F 6C 75 6D 6E 3A 25 49 32 20 28 45 53 43 Column:%I2 (ESC
00EEF0: 20 74 6F 20 6D 65 6E 75 29 22 2C 6C 69 6E 65 6E to menu)",linen
00EF00: 75 6D 62 65 72 2C 78 29 0D 0A 24 29 0D 0A 0D 0A umber,x)..$)....
00EF10: 0D 0A 0D 0A 4C 45 54 20 63 6C 73 28 29 20 42 45 ....LET cls() BE
00EF20: 0D 0A 0D 0A 24 28 0D 0A 20 20 77 72 63 68 28 34 ....$(.. wrch(4
00EF30: 29 20 3B 20 77 72 63 68 28 32 29 20 3B 20 63 75 ) ; wrch(2) ; cu
00EF40: 72 73 6F 6E 28 29 20 3B 20 63 75 72 73 64 69 28 rson() ; cursdi(
00EF50: 29 0D 0A 20 20 46 4F 52 20 61 20 3D 20 31 20 54 ).. FOR a = 1 T
00EF60: 4F 20 32 34 20 44 4F 20 70 72 65 76 21 61 20 3A O 24 DO prev!a :
00EF70: 3D 20 30 0D 0A 20 20 73 74 61 74 75 73 28 29 0D = 0.. status().
00EF80: 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 2F .$)............/
00EF90: 2A 20 54 68 69 73 20 72 6F 75 74 69 6E 65 20 77 * This routine w
00EFA0: 69 6C 6C 20 6D 6F 76 65 20 74 68 65 20 74 65 78 ill move the tex
00EFB0: 74 20 6F 6E 20 74 68 65 20 73 63 72 65 65 6E 20 t on the screen
00EFC0: 64 6F 77 6E 20 61 20 6C 69 6E 65 20 61 6E 64 20 down a line and
00EFD0: 61 6C 74 65 72 20 74 68 65 0D 0A 20 20 20 70 72 alter the.. pr
00EFE0: 65 76 69 6F 75 73 20 61 72 72 61 79 20 2A 2F 0D evious array */.
00EFF0: 0A 0D 0A 4C 45 54 20 64 6F 77 6E 28 29 20 42 45 ...LET down() BE
00F000: 2F 0D 0A 0D 0A 4C 45 54 20 6C 69 6E 73 65 72 74 /....LET linsert
00F010: 28 6C 69 6E 65 2C 61 74 29 20 42 45 0D 0A 0D 0A (line,at) BE....
00F020: 24 28 0D 0A 20 20 4C 45 54 20 63 75 72 72 65 6E $(.. LET curren
00F030: 74 2C 20 6E 65 77 20 3D 20 6C 69 6E 65 6C 65 6E t, new = linelen
00F040: 67 74 68 28 61 74 29 2C 20 6C 69 6E 65 21 30 0D gth(at), line!0.
00F050: 0A 20 20 54 45 53 54 20 6E 65 77 2D 63 75 72 72 . TEST new-curr
00F060: 65 6E 74 2B 74 65 78 74 65 6E 64 20 3C 20 6D 61 ent+textend < ma
00F070: 78 63 68 72 20 54 48 45 4E 0D 0A 20 20 24 28 0D xchr THEN.. $(.
00F080: 0A 20 20 20 20 54 45 53 54 20 63 75 72 72 65 6E . TEST curren
00F090: 74 3E 6E 65 77 20 54 48 45 4E 20 63 6C 6F 73 65 t>new THEN close
00F0A0: 73 70 61 63 65 28 61 74 2C 63 75 72 72 65 6E 74 space(at,current
00F0B0: 2D 6E 65 77 29 0D 0A 20 20 20 20 45 4C 53 45 20 -new).. ELSE
00F0C0: 49 46 20 63 75 72 72 65 6E 74 3C 6E 65 77 20 54 IF current<new T
00F0D0: 48 45 4E 20 6D 61 6B 65 73 70 61 63 65 28 61 74 HEN makespace(at
00F0E0: 2C 6E 65 77 2D 63 75 72 72 65 6E 74 29 0D 0A 20 ,new-current)..
00F0F0: 20 20 20 63 6F 70 79 28 6C 69 6E 65 2B 31 2C 61 copy(line+1,a
00F100: 74 2C 6E 65 77 29 0D 0A 20 20 24 29 0D 0A 20 20 t,new).. $)..
00F110: 45 4C 53 45 20 65 72 72 6F 72 28 22 4E 6F 20 72 ELSE error("No r
00F120: 6F 6F 6D 22 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D oom")..$).......
00F130: 0A 4C 45 54 20 67 65 74 66 69 6C 65 6E 61 6D 65 .LET getfilename
00F140: 28 78 2C 79 2C 6E 61 6D 65 29 20 42 45 0D 0A 0D (x,y,name) BE...
00F150: 0A 24 28 0D 0A 20 20 74 61 62 28 78 2C 79 29 20 .$(.. tab(x,y)
00F160: 3B 20 77 72 69 74 65 73 28 22 45 6E 74 65 72 20 ; writes("Enter
00F170: 66 69 6C 65 20 6E 61 6D 65 3A 20 22 29 0D 0A 20 file name: ")..
00F180: 20 63 75 72 73 65 6E 28 29 20 3B 20 72 65 61 64 cursen() ; read
00F190: 73 28 6E 61 6D 65 29 20 3B 20 63 75 72 73 64 69 s(name) ; cursdi
00F1A0: 28 29 0D 0A 20 20 6E 65 77 6C 69 6E 65 28 29 0D ().. newline().
00F1B0: 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C 45 54 20 6C .$)........LET l
00F1C0: 6F 61 64 74 65 78 74 28 6C 69 6E 65 29 20 3D 20 oadtext(line) =
00F1D0: 56 41 4C 4F 46 0D 0A 0D 0A 24 28 0D 0A 20 20 4C VALOF....$(.. L
00F1E0: 45 54 20 6E 61 6D 65 20 3D 20 56 45 43 20 32 30 ET name = VEC 20
00F1F0: 0D 0A 20 20 67 65 74 66 69 6C 65 6E 61 6D 65 28 .. getfilename(
00F200: 0D 0A 0D 0A 24 28 0D 0A 20 20 74 61 62 28 31 2C ....$(.. tab(1,
00F210: 31 29 20 3B 20 77 72 63 68 28 31 31 29 20 3B 20 1) ; wrch(11) ;
00F220: 77 72 63 68 28 31 33 29 0D 0A 20 20 73 74 61 74 wrch(13).. stat
00F230: 75 73 28 29 20 3B 20 73 70 61 63 65 73 28 70 72 us() ; spaces(pr
00F240: 65 76 21 32 34 2D 33 33 29 0D 0A 20 20 46 4F 52 ev!24-33).. FOR
00F250: 20 61 20 3D 20 32 34 20 54 4F 20 32 20 42 59 20 a = 24 TO 2 BY
00F260: 2D 31 20 44 4F 20 70 72 65 76 21 61 20 3A 3D 20 -1 DO prev!a :=
00F270: 70 72 65 76 21 28 61 2D 31 29 0D 0A 20 20 70 72 prev!(a-1).. pr
00F280: 65 76 21 31 20 3A 3D 20 30 0D 0A 24 29 0D 0A 0D ev!1 := 0..$)...
00F290: 0A 2F 2A 20 54 68 69 73 20 72 6F 75 74 69 6E 65 ./* This routine
00F2A0: 20 77 69 6C 6C 20 6D 6F 76 65 20 74 68 65 20 74 will move the t
00F2B0: 65 78 74 20 75 70 20 6F 6E 65 20 6C 69 6E 65 20 ext up one line
00F2C0: 61 6E 64 20 61 6C 74 65 72 20 74 68 65 20 70 72 and alter the pr
00F2D0: 65 76 69 6F 75 73 20 61 72 72 61 79 20 2A 2F 0D evious array */.
00F2E0: 0A 0D 0A 4C 45 54 20 75 70 28 29 20 42 45 0D 0A ...LET up() BE..
00F2F0: 0D 0A 24 28 0D 0A 20 20 74 61 62 28 31 2C 32 35 ..$(.. tab(1,25
00F300: 29 20 3B 20 73 70 61 63 65 73 28 33 33 29 0D 0A ) ; spaces(33)..
00F310: 20 20 77 72 63 68 28 31 30 29 20 3B 20 77 72 63 wrch(10) ; wrc
00F320: 68 28 31 33 29 0D 0A 20 20 46 4F 52 20 61 20 3D h(13).. FOR a =
00F330: 20 31 20 54 4F 20 32 33 20 44 4F 20 70 72 65 76 1 TO 23 DO prev
00F340: 21 61 20 3A 3D 20 70 72 65 76 21 28 61 2B 31 29 !a := prev!(a+1)
00F350: 0D 0A 20 20 70 72 65 76 21 32 34 20 3A 3D 20 30 .. prev!24 := 0
00F360: 0D 0A 20 20 73 74 61 74 75 73 28 29 0D 0A 24 29 .. status()..$)
00F370: 0D 0A 0D 0A 0D 0A 0D 0A 2F 2A 0D 0A 20 20 20 54 ......../*.. T
00F380: 68 69 73 20 72 6F 75 74 69 6E 65 20 77 69 6C 6C his routine will
00F390: 20 72 65 70 72 69 6E 74 20 74 68 65 20 73 63 72 reprint the scr
00F3A0: 65 65 6E 20 66 72 6F 6D 20 74 68 65 20 79 20 70 een from the y p
00F3B0: 6F 73 69 74 69 6F 6E 20 61 6E 64 20 74 65 78 74 osition and text
00F3C0: 20 70 6F 73 69 74 69 6F 6E 0D 0A 20 20 20 67 69 position.. gi
00F3D0: 76 65 6E 2E 0D 0A 2A 2F 0D 0A 0D 0A 4C 45 54 20 ven...*/....LET
00F3E0: 73 63 72 65 65 6E 28 66 72 6F 6D 2C 79 70 6F 73 screen(from,ypos
00F3F0: 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 46 4F ) BE....$(.. FO
00F400: 32 35 2C 31 39 2C 6E 61 6D 65 29 0D 0A 20 20 54 25,19,name).. T
00F410: 45 53 54 20 66 69 6E 64 69 6E 70 75 74 28 6E 61 EST findinput(na
00F420: 6D 65 2C 66 69 6C 65 29 20 54 48 45 4E 0D 0A 20 me,file) THEN..
00F430: 20 24 28 0D 0A 20 20 20 20 4C 45 54 20 63 68 61 $(.. LET cha
00F440: 72 20 3D 20 30 0D 0A 20 20 20 20 74 65 78 74 70 r = 0.. textp
00F450: 74 72 2C 20 78 2C 20 79 2C 20 6C 69 6E 65 6E 75 tr, x, y, linenu
00F460: 6D 62 65 72 2C 20 74 65 78 74 65 6E 64 20 3A 3D mber, textend :=
00F470: 20 30 2C 20 31 2C 20 31 2C 20 31 2C 20 2D 31 0D 0, 1, 1, 1, -1.
00F480: 0A 20 20 20 20 74 65 78 74 73 74 61 72 74 25 30 . textstart%0
00F490: 20 3A 3D 20 31 33 0D 0A 20 20 20 20 63 68 61 72 := 13.. char
00F4A0: 20 3A 3D 20 72 65 61 64 63 68 28 66 69 6C 65 29 := readch(file)
00F4B0: 0D 0A 20 20 20 20 55 4E 54 49 4C 20 63 68 61 72 .. UNTIL char
00F4C0: 20 3D 20 73 6F 66 74 65 6F 66 63 68 20 4C 4F 47 = softeofch LOG
00F4D0: 4F 52 20 63 68 61 72 20 3D 20 65 6E 64 73 74 72 OR char = endstr
00F4E0: 65 61 6D 63 68 20 4C 4F 47 4F 52 20 74 65 78 74 eamch LOGOR text
00F4F0: 65 6E 64 20 3D 20 6D 61 78 63 68 72 20 44 4F 0D end = maxchr DO.
00F500: 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 55 . $(.. U
00F510: 4E 4C 45 53 53 20 63 68 61 72 20 3D 20 31 30 20 NLESS char = 10
00F520: 54 48 45 4E 0D 0A 20 20 20 20 20 20 24 28 0D 0A THEN.. $(..
00F530: 20 20 20 20 20 20 20 20 74 65 78 74 65 6E 64 20 textend
00F540: 3A 3D 20 74 65 78 74 65 6E 64 20 2B 20 31 0D 0A := textend + 1..
00F550: 20 20 20 20 20 20 20 20 74 65 78 74 73 74 61 72 textstar
00F560: 74 25 74 65 78 74 65 6E 64 20 3A 3D 20 63 68 61 t%textend := cha
00F570: 72 0D 0A 20 20 20 20 20 20 24 29 0D 0A 20 20 20 r.. $)..
00F580: 20 20 20 63 68 61 72 20 3A 3D 20 72 65 61 64 63 char := readc
00F590: 68 28 66 69 6C 65 29 0D 0A 20 20 20 20 24 29 0D h(file).. $).
00F5A0: 0A 20 20 20 20 55 4E 4C 45 53 53 20 74 65 78 74 . UNLESS text
00F5B0: 73 74 61 72 74 25 74 65 78 74 65 6E 64 20 3D 20 start%textend =
00F5C0: 31 33 20 44 4F 0D 0A 20 20 20 20 24 28 0D 0A 20 13 DO.. $(..
00F5D0: 20 20 20 20 20 74 65 78 74 65 6E 64 20 3A 3D 20 textend :=
00F5E0: 74 65 78 74 65 6E 64 20 2B 20 31 0D 0A 20 20 20 textend + 1..
00F5F0: 20 20 20 74 65 78 74 73 74 61 72 74 25 74 65 78 textstart%tex
00F600: 52 20 79 20 3D 20 79 70 6F 73 20 54 4F 20 32 34 R y = ypos TO 24
00F610: 20 44 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 20 4C DO.. $(.. L
00F620: 45 54 20 6C 20 3D 20 30 0D 0A 20 20 20 20 74 61 ET l = 0.. ta
00F630: 62 28 31 2C 79 29 0D 0A 20 20 20 20 49 46 20 66 b(1,y).. IF f
00F640: 72 6F 6D 20 3E 20 74 65 78 74 65 6E 64 20 54 48 rom > textend TH
00F650: 45 4E 20 24 28 20 73 70 61 63 65 73 28 38 30 29 EN $( spaces(80)
00F660: 20 3B 20 70 72 65 76 21 79 20 3A 3D 20 30 20 3B ; prev!y := 0 ;
00F670: 20 42 52 45 41 4B 20 24 29 0D 0A 20 20 20 20 6C BREAK $).. l
00F680: 20 3A 3D 20 6C 69 6E 65 6C 65 6E 67 74 68 28 66 := linelength(f
00F690: 72 6F 6D 29 20 2D 20 31 0D 0A 20 20 20 20 46 4F rom) - 1.. FO
00F6A0: 52 20 61 20 3D 20 66 72 6F 6D 20 54 4F 20 66 72 R a = from TO fr
00F6B0: 6F 6D 20 2B 20 6C 20 2D 20 31 20 44 4F 20 77 72 om + l - 1 DO wr
00F6C0: 63 68 28 74 65 78 74 73 74 61 72 74 25 61 29 0D ch(textstart%a).
00F6D0: 0A 20 20 20 20 73 70 61 63 65 73 28 70 72 65 76 . spaces(prev
00F6E0: 21 79 2D 6C 29 0D 0A 20 20 20 20 70 72 65 76 21 !y-l).. prev!
00F6F0: 79 20 3A 3D 20 6C 0D 0A 20 20 20 20 66 72 6F 6D y := l.. from
00F700: 20 3A 3D 20 66 72 6F 6D 20 2B 20 6C 20 2B 20 31 := from + l + 1
00F710: 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A .. $)..$)......
00F720: 0D 0A 4C 45 54 20 66 6F 72 77 61 72 64 28 70 74 ..LET forward(pt
00F730: 72 29 20 3D 20 56 41 4C 4F 46 0D 0A 0D 0A 24 28 r) = VALOF....$(
00F740: 0D 0A 20 20 49 46 20 70 74 72 20 2B 20 6C 69 6E .. IF ptr + lin
00F750: 65 6C 65 6E 67 74 68 28 70 74 72 29 20 3E 20 74 elength(ptr) > t
00F760: 65 78 74 65 6E 64 20 54 48 45 4E 0D 0A 20 20 20 extend THEN..
00F770: 20 24 28 20 62 65 65 70 28 29 20 3B 20 52 45 53 $( beep() ; RES
00F780: 55 4C 54 49 53 20 70 74 72 20 24 29 0D 0A 20 20 ULTIS ptr $)..
00F790: 70 74 72 20 3A 3D 20 70 74 72 20 2B 20 6C 69 6E ptr := ptr + lin
00F7A0: 65 6C 65 6E 67 74 68 28 70 74 72 29 0D 0A 20 20 elength(ptr)..
00F7B0: 52 45 53 55 4C 54 49 53 20 70 74 72 0D 0A 24 29 RESULTIS ptr..$)
00F7C0: 0D 0A 0D 0A 41 4E 44 20 62 61 63 6B 6C 69 6E 65 ....AND backline
00F7D0: 28 70 74 72 29 20 3D 20 56 41 4C 4F 46 0D 0A 0D (ptr) = VALOF...
00F7E0: 0A 24 28 0D 0A 20 20 49 46 20 70 74 72 20 3D 20 .$(.. IF ptr =
00F7F0: 30 20 54 48 45 4E 20 24 28 20 62 65 65 70 28 29 0 THEN $( beep()
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 00 02 02 09 4E E5 0D 00 C1 02 00 00 00 02 ......N.........
00F820: 0D 00 C6 02 00 00 00 02 0D 00 C2 02 00 00 00 02 ................
00F830: 0D 00 C7 02 00 00 00 02 0D 00 C3 02 00 00 00 02 ................
00F840: 0D 00 C8 02 00 00 00 02 0D 00 C4 02 00 00 00 02 ................
00F850: 0D 00 C9 02 00 00 00 02 0D 00 C5 02 00 00 00 02 ................
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 74 65 6E 64 20 3A 3D 20 31 33 20 20 20 20 0D 0A tend := 13 ..
00F910: 20 20 20 20 24 29 0D 0A 20 20 20 20 49 46 20 74 $).. IF t
00F920: 65 78 74 65 6E 64 20 3E 3D 20 6D 61 78 63 68 72 extend >= maxchr
00F930: 20 54 48 45 4E 0D 0A 20 20 20 20 24 28 0D 0A 20 THEN.. $(..
00F940: 20 20 20 20 20 74 65 78 74 65 6E 64 20 3A 3D 20 textend :=
00F950: 74 65 78 74 65 6E 64 20 2D 20 31 0D 0A 20 20 20 textend - 1..
00F960: 20 20 20 74 65 78 74 73 74 61 72 74 25 74 65 78 textstart%tex
00F970: 74 65 6E 64 20 3A 3D 20 31 33 0D 0A 20 20 20 20 tend := 13..
00F980: 20 20 65 6E 64 72 65 61 64 28 66 69 6C 65 29 0D endread(file).
00F990: 0A 20 20 20 20 20 20 69 6E 69 74 62 75 66 66 28 . initbuff(
00F9A0: 6C 69 6E 65 2C 30 29 0D 0A 20 20 20 20 20 20 65 line,0).. e
00F9B0: 72 72 6F 72 28 22 4E 6F 20 72 6F 6F 6D 22 29 0D rror("No room").
00F9C0: 0A 20 20 20 20 24 29 0D 0A 20 20 20 20 49 46 20 . $).. IF
00F9D0: 74 65 78 74 65 6E 64 20 3D 20 2D 31 20 54 48 45 textend = -1 THE
00F9E0: 4E 20 74 65 78 74 65 6E 64 20 3A 3D 20 30 0D 0A N textend := 0..
00F9F0: 20 20 20 20 65 6E 64 72 65 61 64 28 66 69 6C 65 endread(file
00FA00: 29 0D 0A 20 20 20 20 52 45 53 55 4C 54 49 53 20 ).. RESULTIS
00FA10: 54 52 55 45 0D 0A 20 20 24 29 0D 0A 20 20 45 4C TRUE.. $).. EL
00FA20: 53 45 0D 0A 20 20 24 28 0D 0A 20 20 20 20 77 72 SE.. $(.. wr
00FA30: 69 74 65 66 28 22 25 53 20 6E 6F 74 20 66 6F 75 itef("%S not fou
00FA40: 6E 64 22 2C 6E 61 6D 65 29 0D 0A 20 20 20 20 72 nd",name).. r
00FA50: 64 63 68 28 29 0D 0A 20 20 20 20 52 45 53 55 4C dch().. RESUL
00FA60: 54 49 53 20 46 41 4C 53 45 0D 0A 20 20 24 29 0D TIS FALSE.. $).
00FA70: 0A 24 29 0D 0A 0D 0A 0D 0A 41 4E 44 20 73 61 76 .$)......AND sav
00FA80: 65 74 65 78 74 28 29 20 3D 20 56 41 4C 4F 46 0D etext() = VALOF.
00FA90: 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 6E 61 6D ...$(.. LET nam
00FAA0: 65 20 3D 20 56 45 43 20 32 30 0D 0A 20 20 4C 45 e = VEC 20.. LE
00FAB0: 54 20 64 69 73 63 65 72 72 6F 72 28 66 69 6C 65 T discerror(file
00FAC0: 29 20 3D 20 56 41 4C 4F 46 0D 0A 20 20 24 28 0D ) = VALOF.. $(.
00FAD0: 0A 20 20 20 20 77 72 69 74 65 73 28 22 44 69 73 . writes("Dis
00FAE0: 63 20 65 72 72 6F 72 2E 20 48 69 74 20 61 20 6B c error. Hit a k
00FAF0: 65 79 22 29 0D 0A 20 20 20 20 72 64 63 68 28 29 ey").. rdch()
00FB00: 50 4C 20 65 64 69 74 6F 72 22 29 0D 0A 20 20 20 PL editor")..
00FB10: 20 74 61 62 28 33 32 2C 35 29 20 20 3B 20 77 72 tab(32,5) ; wr
00FB20: 69 74 65 73 28 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ites("----------
00FB30: 2D 22 29 0D 0A 20 20 20 20 74 61 62 28 33 32 2C -").. tab(32,
00FB40: 39 29 20 20 3B 20 77 72 69 74 65 73 28 22 4C 3A 9) ; writes("L:
00FB50: 20 4C 6F 61 64 20 74 65 78 74 22 29 0D 0A 20 20 Load text")..
00FB60: 20 20 74 61 62 28 33 32 2C 31 30 29 20 3B 20 77 tab(32,10) ; w
00FB70: 72 69 74 65 73 28 22 53 3A 20 53 61 76 65 20 74 rites("S: Save t
00FB80: 65 78 74 22 29 0D 0A 20 20 20 20 74 61 62 28 33 ext").. tab(3
00FB90: 32 2C 31 31 29 20 3B 20 77 72 69 74 65 73 28 22 2,11) ; writes("
00FBA0: 45 3A 20 45 64 69 74 20 74 65 78 74 22 29 0D 0A E: Edit text")..
00FBB0: 20 20 20 20 74 61 62 28 33 32 2C 31 32 29 20 3B tab(32,12) ;
00FBC0: 20 77 72 69 74 65 73 28 22 47 3A 20 47 6F 74 6F writes("G: Goto
00FBD0: 20 6C 69 6E 65 22 29 0D 0A 20 20 20 20 74 61 62 line").. tab
00FBE0: 28 33 32 2C 31 33 29 20 3B 20 77 72 69 74 65 73 (32,13) ; writes
00FBF0: 28 22 46 3A 20 46 69 6E 64 20 73 74 72 69 6E 67 ("F: Find string
00FC00: 22 29 0D 0A 20 20 20 20 74 61 62 28 33 32 2C 31 ").. tab(32,1
00FC10: 34 29 20 3B 20 77 72 69 74 65 73 28 22 51 3A 20 4) ; writes("Q:
00FC20: 51 75 69 74 22 29 0D 0A 20 20 20 20 74 61 62 28 Quit").. tab(
00FC30: 33 32 2C 31 37 29 20 3B 20 77 72 69 74 65 73 28 32,17) ; writes(
00FC40: 22 53 65 6C 65 63 74 20 6F 70 74 69 6F 6E 3A 20 "Select option:
00FC50: 22 29 0D 0A 20 20 20 20 24 28 20 63 75 72 73 65 ").. $( curse
00FC60: 6E 28 29 0D 0A 20 20 20 20 20 20 20 6B 65 79 20 n().. key
00FC70: 3A 3D 20 72 64 63 68 28 29 0D 0A 20 20 20 20 20 := rdch()..
00FC80: 20 20 63 75 72 73 64 69 28 29 0D 0A 20 20 20 20 cursdi()..
00FC90: 24 29 20 52 45 50 45 41 54 57 48 49 4C 45 20 6B $) REPEATWHILE k
00FCA0: 65 79 20 3D 20 69 67 6E 6F 72 65 0D 0A 20 20 20 ey = ignore..
00FCB0: 20 53 57 49 54 43 48 4F 4E 20 6B 65 79 20 49 4E SWITCHON key IN
00FCC0: 54 4F 0D 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 TO.. $(..
00FCD0: 20 20 43 41 53 45 20 27 4C 27 3A 20 43 41 53 45 CASE 'L': CASE
00FCE0: 20 27 6C 27 3A 20 77 72 63 68 28 27 4C 27 29 20 'l': wrch('L')
00FCF0: 3B 20 49 46 20 6C 6F 61 64 74 65 78 74 28 6C 69 ; IF loadtext(li
00FD00: 0D 0A 20 20 20 20 65 6E 64 77 72 69 74 65 28 66 .. endwrite(f
00FD10: 69 6C 65 29 0D 0A 20 20 20 20 52 45 53 55 4C 54 ile).. RESULT
00FD20: 49 53 20 46 41 4C 53 45 0D 0A 20 20 24 29 0D 0A IS FALSE.. $)..
00FD30: 20 20 67 65 74 66 69 6C 65 6E 61 6D 65 28 32 35 getfilename(25
00FD40: 2C 31 39 2C 6E 61 6D 65 29 0D 0A 20 20 54 45 53 ,19,name).. TES
00FD50: 54 20 66 69 6E 64 6F 75 74 70 75 74 28 6E 61 6D T findoutput(nam
00FD60: 65 2C 66 69 6C 65 29 20 54 48 45 4E 0D 0A 20 20 e,file) THEN..
00FD70: 24 28 0D 0A 20 20 20 20 46 4F 52 20 61 20 3D 20 $(.. FOR a =
00FD80: 30 20 54 4F 20 74 65 78 74 65 6E 64 20 44 4F 0D 0 TO textend DO.
00FD90: 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 55 . $(.. U
00FDA0: 4E 4C 45 53 53 20 77 72 69 74 65 63 68 28 74 65 NLESS writech(te
00FDB0: 78 74 73 74 61 72 74 25 61 2C 66 69 6C 65 29 20 xtstart%a,file)
00FDC0: 54 48 45 4E 20 52 45 53 55 4C 54 49 53 20 64 69 THEN RESULTIS di
00FDD0: 73 63 65 72 72 6F 72 28 66 69 6C 65 29 0D 0A 20 scerror(file)..
00FDE0: 20 20 20 20 20 49 46 20 74 65 78 74 73 74 61 72 IF textstar
00FDF0: 74 25 61 20 3D 20 31 33 20 54 48 45 4E 20 55 4E t%a = 13 THEN UN
00FE00: 4C 45 53 53 20 77 72 69 74 65 63 68 28 31 30 2C LESS writech(10,
00FE10: 66 69 6C 65 29 20 54 48 45 4E 0D 0A 20 20 20 20 file) THEN..
00FE20: 20 20 20 20 52 45 53 55 4C 54 49 53 20 64 69 73 RESULTIS dis
00FE30: 63 65 72 72 6F 72 28 66 69 6C 65 29 0D 0A 20 20 cerror(file)..
00FE40: 20 20 24 29 0D 0A 20 20 20 20 65 6E 64 77 72 69 $).. endwri
00FE50: 74 65 28 66 69 6C 65 29 0D 0A 20 20 20 20 52 45 te(file).. RE
00FE60: 53 55 4C 54 49 53 20 54 52 55 45 0D 0A 20 20 24 SULTIS TRUE.. $
00FE70: 29 0D 0A 20 20 45 4C 53 45 0D 0A 20 20 24 28 0D ).. ELSE.. $(.
00FE80: 0A 20 20 20 20 77 72 69 74 65 73 28 22 43 61 6E . writes("Can
00FE90: 6E 6F 74 20 6F 70 65 6E 20 22 29 20 3B 20 77 72 not open ") ; wr
00FEA0: 69 74 65 73 28 6E 61 6D 65 29 0D 0A 20 20 20 20 ites(name)..
00FEB0: 52 45 53 55 4C 54 49 53 20 46 41 4C 53 45 0D 0A RESULTIS FALSE..
00FEC0: 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 41 4E $)..$)......AN
00FED0: 44 20 67 6F 6C 69 6E 65 28 29 20 42 45 0D 0A 0D D goline() BE...
00FEE0: 0A 24 28 0D 0A 20 20 4C 45 54 20 6C 69 6E 65 6E .$(.. LET linen
00FEF0: 75 6D 20 3D 20 30 0D 0A 20 20 6C 69 6E 65 6E 75 um = 0.. linenu
00FF00: 6E 65 29 20 54 48 45 4E 20 42 52 45 41 4B 20 3B ne) THEN BREAK ;
00FF10: 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 20 ENDCASE..
00FF20: 43 41 53 45 20 27 53 27 3A 20 43 41 53 45 20 27 CASE 'S': CASE '
00FF30: 73 27 3A 20 77 72 63 68 28 27 53 27 29 20 3B 20 s': wrch('S') ;
00FF40: 49 46 20 73 61 76 65 74 65 78 74 28 29 20 54 48 IF savetext() TH
00FF50: 45 4E 20 42 52 45 41 4B 20 3B 20 45 4E 44 43 41 EN BREAK ; ENDCA
00FF60: 53 45 0D 0A 20 20 20 20 20 20 43 41 53 45 20 27 SE.. CASE '
00FF70: 47 27 3A 20 43 41 53 45 20 27 67 27 3A 20 77 72 G': CASE 'g': wr
00FF80: 63 68 28 27 47 27 29 20 3B 20 67 6F 6C 69 6E 65 ch('G') ; goline
00FF90: 28 29 20 3B 20 42 52 45 41 4B 0D 0A 20 20 20 20 () ; BREAK..
00FFA0: 20 20 43 41 53 45 20 27 46 27 3A 20 43 41 53 45 CASE 'F': CASE
00FFB0: 20 27 66 27 3A 20 77 72 63 68 28 27 46 27 29 20 'f': wrch('F')
00FFC0: 3B 20 78 20 3A 3D 20 76 61 6C 69 64 61 74 65 28 ; x := validate(
00FFD0: 6C 69 6E 65 2C 78 29 0D 0A 20 20 20 20 20 20 20 line,x)..
00FFE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00FFF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 f
010000: 69 6E 64 73 74 72 69 6E 67 28 29 20 3B 20 42 52 indstring() ; BR
010010: 45 41 4B 0D 0A 20 20 20 20 20 20 43 41 53 45 20 EAK.. CASE
010020: 27 45 27 3A 20 43 41 53 45 20 27 65 27 3A 20 77 'E': CASE 'e': w
010030: 72 63 68 28 27 45 27 29 20 3B 20 42 52 45 41 4B rch('E') ; BREAK
010040: 0D 0A 20 20 20 20 20 20 43 41 53 45 20 27 51 27 .. CASE 'Q'
010050: 3A 20 43 41 53 45 20 27 71 27 3A 20 77 72 63 68 : CASE 'q': wrch
010060: 28 27 51 27 29 20 3B 20 66 69 6E 69 73 68 0D 0A ('Q') ; finish..
010070: 20 20 20 20 24 29 0D 0A 20 20 20 20 62 65 65 70 $).. beep
010080: 28 29 0D 0A 20 20 24 29 20 52 45 50 45 41 54 0D ().. $) REPEAT.
010090: 0A 20 20 72 65 63 6F 6E 73 74 72 75 63 74 28 74 . reconstruct(t
0100A0: 65 78 74 70 74 72 29 0D 0A 24 29 0D 0A 0D 0A 0D extptr)..$).....
0100B0: 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 6F 75 74 69 .../* This routi
0100C0: 6E 65 20 64 65 61 6C 73 20 77 69 74 68 20 74 68 ne deals with th
0100D0: 65 20 64 65 6C 65 74 69 6F 6E 20 6F 66 20 61 20 e deletion of a
0100E0: 43 52 20 2A 2F 0D 0A 0D 0A 4C 45 54 20 64 65 6C CR */....LET del
0100F0: 65 74 65 6C 28 6C 69 6E 65 29 20 42 45 0D 0A 0D etel(line) BE...
010100: 6D 62 65 72 20 3A 3D 20 31 0D 0A 20 20 77 72 69 mber := 1.. wri
010110: 74 65 66 28 22 25 43 25 43 25 43 45 6E 74 65 72 tef("%C%C%CEnter
010120: 20 6C 69 6E 65 20 6E 75 6D 62 65 72 3A 20 22 2C line number: ",
010130: 33 31 2C 32 35 2C 31 39 29 0D 0A 20 20 63 75 72 31,25,19).. cur
010140: 73 65 6E 28 29 20 3B 20 6C 69 6E 65 6E 75 6D 20 sen() ; linenum
010150: 3A 3D 20 72 65 61 64 6E 28 29 20 3B 20 63 75 72 := readn() ; cur
010160: 73 64 69 28 29 0D 0A 20 20 74 65 78 74 70 74 72 sdi().. textptr
010170: 2C 20 78 20 3A 3D 20 30 2C 20 31 0D 0A 20 20 46 , x := 0, 1.. F
010180: 4F 52 20 63 6F 75 6E 74 20 3D 20 32 20 54 4F 20 OR count = 2 TO
010190: 6C 69 6E 65 6E 75 6D 20 44 4F 0D 0A 20 20 24 28 linenum DO.. $(
0101A0: 0D 0A 20 20 20 20 4C 45 54 20 6F 70 74 72 20 3D .. LET optr =
0101B0: 20 74 65 78 74 70 74 72 0D 0A 20 20 20 20 74 65 textptr.. te
0101C0: 78 74 70 74 72 20 3A 3D 20 66 6F 72 77 61 72 64 xtptr := forward
0101D0: 28 74 65 78 74 70 74 72 29 0D 0A 20 20 20 20 49 (textptr).. I
0101E0: 46 20 6F 70 74 72 20 3D 20 74 65 78 74 70 74 72 F optr = textptr
0101F0: 20 54 48 45 4E 20 42 52 45 41 4B 0D 0A 20 20 20 THEN BREAK..
010200: 20 6C 69 6E 65 6E 75 6D 62 65 72 20 3A 3D 20 6C linenumber := l
010210: 69 6E 65 6E 75 6D 62 65 72 20 2B 20 31 0D 0A 20 inenumber + 1..
010220: 20 24 29 0D 0A 20 20 79 20 3A 3D 20 31 32 0D 0A $).. y := 12..
010230: 24 29 0D 0A 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 $)......../* Thi
010240: 73 20 72 6F 75 74 69 6E 65 20 63 68 65 63 6B 73 s routine checks
010250: 20 66 6F 72 20 61 20 6D 61 74 63 68 20 2A 2F 0D for a match */.
010260: 0A 0D 0A 41 4E 44 20 6D 61 74 63 68 28 66 72 6F ...AND match(fro
010270: 6D 2C 74 61 72 67 65 74 29 20 3D 20 56 41 4C 4F m,target) = VALO
010280: 46 0D 0A 0D 0A 24 28 0D 0A 20 20 46 4F 52 20 61 F....$(.. FOR a
010290: 20 3D 20 31 20 54 4F 20 74 61 72 67 65 74 25 30 = 1 TO target%0
0102A0: 20 44 4F 0D 0A 20 20 20 20 49 46 20 74 65 78 74 DO.. IF text
0102B0: 73 74 61 72 74 25 28 66 72 6F 6D 2B 61 2D 31 29 start%(from+a-1)
0102C0: 20 4E 45 20 74 61 72 67 65 74 25 61 20 54 48 45 NE target%a THE
0102D0: 4E 20 52 45 53 55 4C 54 49 53 20 46 41 4C 53 45 N RESULTIS FALSE
0102E0: 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 54 52 55 .. RESULTIS TRU
0102F0: 45 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 2F 2A 20 E..$)......../*
010300: 0A 24 28 0D 0A 20 20 54 45 53 54 20 74 65 78 74 .$(.. TEST text
010310: 70 74 72 20 4E 45 20 30 20 54 48 45 4E 0D 0A 20 ptr NE 0 THEN..
010320: 20 24 28 0D 0A 20 20 20 20 4C 45 54 20 6F 70 74 $(.. LET opt
010330: 72 2C 20 74 70 74 72 20 3D 20 74 65 78 74 70 74 r, tptr = textpt
010340: 72 2C 20 62 61 63 6B 6C 69 6E 65 28 74 65 78 74 r, backline(text
010350: 70 74 72 29 0D 0A 20 20 20 20 54 45 53 54 20 6C ptr).. TEST l
010360: 69 6E 65 6C 65 6E 67 74 68 28 74 70 74 72 29 20 inelength(tptr)
010370: 2B 20 6C 69 6E 65 21 30 20 2D 20 31 20 3C 20 38 + line!0 - 1 < 8
010380: 30 20 54 48 45 4E 0D 0A 20 20 20 20 24 28 0D 0A 0 THEN.. $(..
010390: 20 20 20 20 20 20 49 46 20 6C 69 6E 65 21 30 2D IF line!0-
0103A0: 6C 69 6E 65 6C 65 6E 67 74 68 28 74 65 78 74 70 linelength(textp
0103B0: 74 72 29 2B 74 65 78 74 65 6E 64 20 3E 3D 20 6D tr)+textend >= m
0103C0: 61 78 63 68 72 20 54 48 45 4E 20 65 72 72 6F 72 axchr THEN error
0103D0: 28 22 4E 6F 20 72 6F 6F 6D 22 29 0D 0A 20 20 20 ("No room")..
0103E0: 20 20 20 74 65 78 74 73 74 61 72 74 25 28 74 65 textstart%(te
0103F0: 78 74 70 74 72 2D 31 29 20 3A 3D 20 30 0D 0A 20 xtptr-1) := 0..
010400: 20 20 20 20 20 6C 69 6E 73 65 72 74 28 6C 69 6E linsert(lin
010410: 65 2C 74 65 78 74 70 74 72 2D 31 29 0D 0A 20 20 e,textptr-1)..
010420: 20 20 20 20 74 65 78 74 70 74 72 20 3A 3D 20 74 textptr := t
010430: 70 74 72 0D 0A 20 20 20 20 20 20 6C 69 6E 65 6E ptr.. linen
010440: 75 6D 62 65 72 20 3A 3D 20 6C 69 6E 65 6E 75 6D umber := linenum
010450: 62 65 72 20 2D 20 31 0D 0A 20 20 20 20 20 20 78 ber - 1.. x
010460: 20 3A 3D 20 6C 69 6E 65 6C 65 6E 67 74 68 28 74 := linelength(t
010470: 65 78 74 70 74 72 29 20 2D 20 6C 69 6E 65 21 30 extptr) - line!0
010480: 20 2B 20 31 0D 0A 20 20 20 20 20 20 54 45 53 54 + 1.. TEST
010490: 20 79 20 3D 20 31 20 54 48 45 4E 0D 0A 20 20 20 y = 1 THEN..
0104A0: 20 20 20 24 28 0D 0A 20 20 20 20 20 20 20 20 77 $(.. w
0104B0: 72 69 74 65 28 74 65 78 74 70 74 72 2C 31 2C 31 rite(textptr,1,1
0104C0: 29 0D 0A 20 20 20 20 20 20 24 29 0D 0A 20 20 20 ).. $)..
0104D0: 20 20 20 45 4C 53 45 20 79 20 3A 3D 20 79 20 2D ELSE y := y -
0104E0: 20 31 0D 0A 20 20 20 20 24 29 0D 0A 20 20 20 20 1.. $)..
0104F0: 45 4C 53 45 20 65 72 72 6F 72 28 22 4C 69 6E 65 ELSE error("Line
010500: 54 68 69 73 20 69 73 20 74 68 65 20 66 69 6E 64 This is the find
010510: 20 73 74 72 69 6E 67 20 72 6F 75 74 69 6E 65 20 string routine
010520: 2A 2F 0D 0A 0D 0A 41 4E 44 20 66 69 6E 64 73 74 */....AND findst
010530: 72 69 6E 67 28 29 20 42 45 0D 0A 0D 0A 24 28 0D ring() BE....$(.
010540: 0A 20 20 4C 45 54 20 6F 70 74 72 2C 20 6F 78 2C . LET optr, ox,
010550: 20 6F 79 2C 20 6F 6C 69 6E 65 20 3D 20 74 65 78 oy, oline = tex
010560: 74 70 74 72 2C 20 78 2C 20 79 2C 20 6C 69 6E 65 tptr, x, y, line
010570: 6E 75 6D 62 65 72 0D 0A 20 20 4C 45 54 20 73 65 number.. LET se
010580: 61 72 63 68 20 3D 20 56 45 43 20 32 30 0D 0A 20 arch = VEC 20..
010590: 20 77 72 69 74 65 66 28 22 25 43 25 43 25 43 45 writef("%C%C%CE
0105A0: 6E 74 65 72 20 73 74 72 69 6E 67 3A 20 22 2C 33 nter string: ",3
0105B0: 31 2C 32 35 2C 31 39 29 0D 0A 20 20 63 75 72 73 1,25,19).. curs
0105C0: 65 6E 28 29 20 3B 20 72 65 61 64 73 28 73 65 61 en() ; reads(sea
0105D0: 72 63 68 29 20 3B 20 63 75 72 73 64 69 28 29 0D rch) ; cursdi().
0105E0: 0A 20 20 74 65 78 74 70 74 72 20 3A 3D 20 74 65 . textptr := te
0105F0: 78 74 70 74 72 20 2B 20 78 20 2D 20 31 0D 0A 20 xtptr + x - 1..
010600: 20 55 4E 4C 45 53 53 20 74 65 78 74 73 74 61 72 UNLESS textstar
010610: 74 25 74 65 78 74 70 74 72 3D 31 33 20 54 48 45 t%textptr=13 THE
010620: 4E 20 74 65 78 74 70 74 72 20 3A 3D 20 74 65 78 N textptr := tex
010630: 74 70 74 72 20 2B 20 31 0D 0A 20 20 55 4E 4C 45 tptr + 1.. UNLE
010640: 53 53 20 74 65 78 74 70 74 72 20 3E 3D 20 74 65 SS textptr >= te
010650: 78 74 65 6E 64 20 44 4F 0D 0A 20 20 24 28 0D 0A xtend DO.. $(..
010660: 20 20 20 20 54 45 53 54 20 74 65 78 74 73 74 61 TEST textsta
010670: 72 74 25 74 65 78 74 70 74 72 3D 31 33 20 54 48 rt%textptr=13 TH
010680: 45 4E 0D 0A 20 20 20 20 20 20 6C 69 6E 65 6E 75 EN.. linenu
010690: 6D 62 65 72 20 3A 3D 20 6C 69 6E 65 6E 75 6D 62 mber := linenumb
0106A0: 65 72 20 2B 20 31 0D 0A 20 20 20 20 45 4C 53 45 er + 1.. ELSE
0106B0: 0D 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 .. $(..
0106C0: 49 46 20 6D 61 74 63 68 28 74 65 78 74 70 74 72 IF match(textptr
0106D0: 2C 73 65 61 72 63 68 29 20 54 48 45 4E 0D 0A 20 ,search) THEN..
0106E0: 20 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 20 $(..
0106F0: 20 6F 70 74 72 20 3A 3D 20 74 65 78 74 70 74 72 optr := textptr
010700: 20 74 6F 6F 20 6C 6F 6E 67 20 74 6F 20 6A 6F 69 too long to joi
010710: 6E 22 29 0D 0A 20 20 24 29 0D 0A 20 20 45 4C 53 n").. $).. ELS
010720: 45 20 65 72 72 6F 72 28 22 54 6F 70 20 6F 66 20 E error("Top of
010730: 66 69 6C 65 22 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A file")..$)......
010740: 4C 45 54 20 61 64 64 6C 28 6C 69 6E 65 29 20 42 LET addl(line) B
010750: 45 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 63 E....$(.. LET c
010760: 6F 70 79 20 3D 20 56 45 43 20 38 30 0D 0A 20 20 opy = VEC 80..
010770: 4C 45 54 20 70 74 72 20 3D 20 31 0D 0A 20 20 46 LET ptr = 1.. F
010780: 4F 52 20 61 20 3D 20 30 20 54 4F 20 6C 69 6E 65 OR a = 0 TO line
010790: 21 30 20 44 4F 20 63 6F 70 79 21 61 20 3A 3D 20 !0 DO copy!a :=
0107A0: 6C 69 6E 65 21 61 0D 0A 20 20 57 48 49 4C 45 20 line!a.. WHILE
0107B0: 6C 69 6E 65 21 70 74 72 20 4E 45 20 31 33 20 44 line!ptr NE 13 D
0107C0: 4F 20 70 74 72 20 3A 3D 20 70 74 72 20 2B 20 31 O ptr := ptr + 1
0107D0: 0D 0A 20 20 46 4F 52 20 61 20 3D 20 70 74 72 20 .. FOR a = ptr
0107E0: 54 4F 20 6C 69 6E 65 21 30 2D 31 20 44 4F 20 6C TO line!0-1 DO l
0107F0: 69 6E 65 21 61 20 3A 3D 20 6C 69 6E 65 21 28 61 ine!a := line!(a
010800: 2B 31 29 0D 0A 20 20 6C 69 6E 65 21 30 20 3A 3D +1).. line!0 :=
010810: 20 6C 69 6E 65 21 30 20 2D 20 31 0D 0A 20 20 6C line!0 - 1.. l
010820: 69 6E 73 65 72 74 28 63 6F 70 79 2C 74 65 78 74 insert(copy,text
010830: 70 74 72 29 0D 0A 20 20 78 2C 20 6C 69 6E 65 6E ptr).. x, linen
010840: 75 6D 62 65 72 20 3A 3D 20 31 2C 20 6C 69 6E 65 umber := 1, line
010850: 6E 75 6D 62 65 72 20 2B 20 31 0D 0A 20 20 74 65 number + 1.. te
010860: 78 74 70 74 72 20 3A 3D 20 66 6F 72 77 61 72 64 xtptr := forward
010870: 28 74 65 78 74 70 74 72 29 0D 0A 20 20 54 45 53 (textptr).. TES
010880: 54 20 79 20 3D 20 32 34 20 54 48 45 4E 0D 0A 20 T y = 24 THEN..
010890: 20 24 28 0D 0A 20 20 20 20 75 70 28 29 0D 0A 20 $(.. up()..
0108A0: 20 20 20 77 72 69 74 65 28 74 65 78 74 70 74 72 write(textptr
0108B0: 2C 31 2C 32 34 29 0D 0A 20 20 24 29 0D 0A 20 20 ,1,24).. $)..
0108C0: 45 4C 53 45 20 79 20 3A 3D 20 79 20 2B 20 31 0D ELSE y := y + 1.
0108D0: 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 6D 6F 76 .$)......LET mov
0108E0: 65 75 70 28 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A eup() BE....$(..
0108F0: 20 20 55 4E 4C 45 53 53 20 74 65 78 74 70 74 72 UNLESS textptr
010900: 0D 0A 20 20 20 20 20 20 20 20 57 48 49 4C 45 20 .. WHILE
010910: 74 65 78 74 73 74 61 72 74 25 28 74 65 78 74 70 textstart%(textp
010920: 74 72 2D 31 29 20 4E 45 20 31 33 20 4C 4F 47 41 tr-1) NE 13 LOGA
010930: 4E 44 20 74 65 78 74 70 74 72 20 4E 45 20 30 20 ND textptr NE 0
010940: 44 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 74 65 DO.. te
010950: 78 74 70 74 72 20 3A 3D 20 74 65 78 74 70 74 72 xtptr := textptr
010960: 20 2D 20 31 0D 0A 20 20 20 20 20 20 20 20 78 2C - 1.. x,
010970: 20 79 20 3A 3D 20 6F 70 74 72 20 2D 20 74 65 78 y := optr - tex
010980: 74 70 74 72 20 2B 20 31 2C 20 31 32 0D 0A 20 20 tptr + 1, 12..
010990: 20 20 20 20 20 20 42 52 45 41 4B 0D 0A 20 20 20 BREAK..
0109A0: 20 20 20 24 29 0D 0A 20 20 20 20 24 29 0D 0A 20 $).. $)..
0109B0: 20 20 20 74 65 78 74 70 74 72 20 3A 3D 20 74 65 textptr := te
0109C0: 78 74 70 74 72 20 2B 20 31 0D 0A 20 20 20 20 49 xtptr + 1.. I
0109D0: 46 20 74 65 78 74 70 74 72 20 3E 3D 20 74 65 78 F textptr >= tex
0109E0: 74 65 6E 64 20 54 48 45 4E 0D 0A 20 20 20 20 24 tend THEN.. $
0109F0: 28 0D 0A 20 20 20 20 20 20 74 65 78 74 70 74 72 (.. textptr
010A00: 2C 20 78 2C 20 79 2C 20 6C 69 6E 65 6E 75 6D 62 , x, y, linenumb
010A10: 65 72 20 3A 3D 20 6F 70 74 72 2C 20 6F 78 2C 20 er := optr, ox,
010A20: 6F 79 2C 20 6F 6C 69 6E 65 0D 0A 20 20 20 20 20 oy, oline..
010A30: 20 42 52 45 41 4B 0D 0A 20 20 20 20 24 29 0D 0A BREAK.. $)..
010A40: 20 20 24 29 20 52 45 50 45 41 54 0D 0A 24 29 0D $) REPEAT..$).
010A50: 0A 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 69 ......./* This i
010A60: 73 20 74 68 65 20 6D 61 69 6E 20 6D 65 6E 75 20 s the main menu
010A70: 72 6F 75 74 69 6E 65 20 2A 2F 0D 0A 0D 0A 4C 45 routine */....LE
010A80: 54 20 6D 65 6E 75 28 6C 69 6E 65 29 20 42 45 0D T menu(line) BE.
010A90: 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 74 70 74 ...$(.. LET tpt
010AA0: 72 20 3D 20 30 0D 0A 20 20 6C 69 6E 73 65 72 74 r = 0.. linsert
010AB0: 28 6C 69 6E 65 2C 74 65 78 74 70 74 72 29 0D 0A (line,textptr)..
010AC0: 20 20 24 28 0D 0A 20 20 20 20 4C 45 54 20 6B 65 $(.. LET ke
010AD0: 79 20 3D 20 30 0D 0A 20 20 20 20 77 72 63 68 28 y = 0.. wrch(
010AE0: 31 32 29 0D 0A 20 20 20 20 74 61 62 28 33 32 2C 12).. tab(32,
010AF0: 34 29 20 20 3B 20 77 72 69 74 65 73 28 22 42 43 4) ; writes("BC
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 00 02 02 09 4E E5 0E 00 C1 02 00 00 00 02 ......N.........
010B20: 0E 00 C6 02 00 00 00 02 0E 00 C2 02 00 00 00 02 ................
010B30: 0E 00 C7 02 00 00 00 02 0E 00 C3 02 00 00 00 02 ................
010B40: 0E 00 C8 02 00 00 00 02 0E 00 C4 02 00 00 00 02 ................
010B50: 0E 00 C9 02 00 00 00 02 0E 00 C5 02 00 00 00 02 ................
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 20 3D 20 30 20 54 48 45 4E 0D 0A 20 20 24 28 0D = 0 THEN.. $(.
010C10: 0A 20 20 20 20 74 65 78 74 70 74 72 20 3A 3D 20 . textptr :=
010C20: 62 61 63 6B 6C 69 6E 65 28 74 65 78 74 70 74 72 backline(textptr
010C30: 29 0D 0A 20 20 20 20 6C 69 6E 65 6E 75 6D 62 65 ).. linenumbe
010C40: 72 20 3A 3D 20 6C 69 6E 65 6E 75 6D 62 65 72 20 r := linenumber
010C50: 2D 20 31 0D 0A 20 20 20 20 54 45 53 54 20 79 20 - 1.. TEST y
010C60: 3D 20 31 20 54 48 45 4E 0D 0A 20 20 20 20 24 28 = 1 THEN.. $(
010C70: 0D 0A 20 20 20 20 20 20 64 6F 77 6E 28 29 0D 0A .. down()..
010C80: 20 20 20 20 20 20 77 72 69 74 65 28 74 65 78 74 write(text
010C90: 70 74 72 2C 31 2C 31 29 0D 0A 20 20 20 20 24 29 ptr,1,1).. $)
010CA0: 0D 0A 20 20 20 20 45 4C 53 45 20 79 20 3A 3D 20 .. ELSE y :=
010CB0: 79 20 2D 20 31 0D 0A 20 20 24 29 0D 0A 24 29 0D y - 1.. $)..$).
010CC0: 0A 0D 0A 0D 0A 4C 45 54 20 75 70 63 75 72 73 28 .....LET upcurs(
010CD0: 6C 69 6E 65 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A line) BE....$(..
010CE0: 20 20 6C 69 6E 73 65 72 74 28 6C 69 6E 65 2C 74 linsert(line,t
010CF0: 65 78 74 70 74 72 29 0D 0A 20 20 6D 6F 76 65 75 extptr).. moveu
010D00: 70 28 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 p()..$)......LET
010D10: 20 6D 6F 76 65 64 6F 77 6E 28 29 20 42 45 0D 0A movedown() BE..
010D20: 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 6F 70 74 72 ..$(.. LET optr
010D30: 20 3D 20 74 65 78 74 70 74 72 0D 0A 20 20 74 65 = textptr.. te
010D40: 78 74 70 74 72 20 3A 3D 20 66 6F 72 77 61 72 64 xtptr := forward
010D50: 28 74 65 78 74 70 74 72 29 0D 0A 20 20 55 4E 4C (textptr).. UNL
010D60: 45 53 53 20 74 65 78 74 70 74 72 20 3D 20 6F 70 ESS textptr = op
010D70: 74 72 20 54 48 45 4E 0D 0A 20 20 24 28 0D 0A 20 tr THEN.. $(..
010D80: 20 20 20 6C 69 6E 65 6E 75 6D 62 65 72 20 3A 3D linenumber :=
010D90: 20 6C 69 6E 65 6E 75 6D 62 65 72 20 2B 20 31 0D linenumber + 1.
010DA0: 0A 20 20 20 20 54 45 53 54 20 79 20 3D 20 32 34 . TEST y = 24
010DB0: 20 54 48 45 4E 0D 0A 20 20 20 20 24 28 0D 0A 20 THEN.. $(..
010DC0: 20 20 20 20 20 75 70 28 29 0D 0A 20 20 20 20 20 up()..
010DD0: 20 77 72 69 74 65 28 74 65 78 74 70 74 72 2C 31 write(textptr,1
010DE0: 2C 32 34 29 0D 0A 20 20 20 20 24 29 0D 0A 20 20 ,24).. $)..
010DF0: 20 20 45 4C 53 45 20 79 20 3A 3D 20 79 20 2B 20 ELSE y := y +
010E00: 73 65 73 71 3A 20 62 6F 74 74 6F 6D 28 69 6E 62 sesq: bottom(inb
010E10: 75 66 66 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A uff) ; ENDCASE..
010E20: 20 20 20 20 20 20 43 41 53 45 20 65 73 63 61 70 CASE escap
010E30: 65 3A 20 6D 65 6E 75 28 69 6E 62 75 66 66 29 20 e: menu(inbuff)
010E40: 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 24 ; ENDCASE.. $
010E50: 29 0D 0A 20 20 24 29 20 52 45 50 45 41 54 0D 0A ).. $) REPEAT..
010E60: 24 29 0D 0A 0D 0A 2E 0D 0A 1A 20 7C 42 43 50 4C $)........ |BCPL
010E70: 0D 0A 20 20 20 61 6E 64 20 74 68 65 20 66 6F 6C .. and the fol
010E80: 46 0D 0A 24 28 0D 0A 20 20 72 61 6E 64 6F 6D 73 F..$(.. randoms
010E90: 65 65 64 20 3A 3D 20 72 61 6E 64 6F 6D 73 65 65 eed := randomsee
010EA0: 64 20 2A 20 23 78 41 33 45 44 20 2B 20 23 78 31 d * #xA3ED + #x1
010EB0: 44 33 31 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 D31.. RESULTIS
010EC0: 72 61 6E 64 6F 6D 73 65 65 64 0D 0A 24 29 0D 0A randomseed..$)..
010ED0: 0D 0A 41 4E 44 20 73 74 6F 70 28 63 6F 64 65 29 ..AND stop(code)
010EE0: 20 42 45 20 46 49 4E 49 53 48 0D 0A 0D 0A 41 4E BE FINISH....AN
010EF0: 44 20 74 69 6D 65 28 29 20 3D 20 56 41 4C 4F 46 D time() = VALOF
010F00: 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 74 20 3D 20 ..$(.. LET t =
010F10: 30 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 30 35 2C 0.. inline 205,
010F20: 23 78 30 44 2C 23 78 42 44 20 20 20 20 2F 2F 20 #x0D,#xBD //
010F30: 67 65 74 20 74 68 65 20 74 69 6D 65 0D 0A 20 20 get the time..
010F40: 69 6E 6C 69 6E 65 20 32 32 31 2C 31 31 37 2C 31 inline 221,117,1
010F50: 32 30 20 20 20 20 20 20 2F 2F 20 73 74 6F 72 65 20 // store
010F60: 20 6C 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 32 31 l.. inline 221
010F70: 2C 31 31 36 2C 31 32 31 20 20 20 20 20 20 2F 2F ,116,121 //
010F80: 20 73 74 6F 72 65 20 68 0D 0A 20 20 52 45 53 55 store h.. RESU
010F90: 4C 54 49 53 20 74 20 20 20 20 20 20 20 20 20 20 LTIS t
010FA0: 20 20 20 20 2F 2F 20 72 65 74 75 72 6E 20 74 68 // return th
010FB0: 65 20 72 65 73 75 6C 74 0D 0A 24 29 0D 0A 0D 0A e result..$)....
010FC0: 41 4E 44 20 64 65 6C 65 74 65 28 6E 61 6D 65 29 AND delete(name)
010FD0: 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 = VALOF..$(..
010FE0: 4C 45 54 20 70 61 72 6D 62 6C 6F 63 6B 20 3D 20 LET parmblock =
010FF0: 56 45 43 20 32 0D 0A 20 20 4C 45 54 20 63 6F 6D VEC 2.. LET com
011000: 31 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 1.. $)..$).....
011010: 0A 0D 0A 4C 45 54 20 64 6F 77 6E 63 75 72 73 28 ...LET downcurs(
011020: 6C 69 6E 65 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A line) BE....$(..
011030: 20 20 6C 69 6E 73 65 72 74 28 6C 69 6E 65 2C 74 linsert(line,t
011040: 65 78 74 70 74 72 29 0D 0A 20 20 6D 6F 76 65 64 extptr).. moved
011050: 6F 77 6E 28 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D own()..$).......
011060: 0A 4C 45 54 20 73 75 70 63 75 72 73 28 6C 69 6E .LET supcurs(lin
011070: 65 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 6C e) BE....$(.. l
011080: 69 6E 73 65 72 74 28 6C 69 6E 65 2C 74 65 78 74 insert(line,text
011090: 70 74 72 29 0D 0A 20 20 46 4F 52 20 61 20 3D 20 ptr).. FOR a =
0110A0: 31 20 54 4F 20 32 30 20 44 4F 0D 0A 20 20 24 28 1 TO 20 DO.. $(
0110B0: 0D 0A 20 20 20 20 49 46 20 74 65 78 74 70 74 72 .. IF textptr
0110C0: 20 3D 20 30 20 54 48 45 4E 20 42 52 45 41 4B 0D = 0 THEN BREAK.
0110D0: 0A 20 20 20 20 6D 6F 76 65 75 70 28 29 0D 0A 20 . moveup()..
0110E0: 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C $)..$)........L
0110F0: 45 54 20 73 64 6F 77 6E 63 75 72 73 28 6C 69 6E ET sdowncurs(lin
011100: 65 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 6C e) BE....$(.. l
011110: 69 6E 73 65 72 74 28 6C 69 6E 65 2C 74 65 78 74 insert(line,text
011120: 70 74 72 29 0D 0A 20 20 46 4F 52 20 61 20 3D 20 ptr).. FOR a =
011130: 31 20 54 4F 20 32 30 20 44 4F 0D 0A 20 20 24 28 1 TO 20 DO.. $(
011140: 0D 0A 20 20 20 20 4C 45 54 20 6F 70 74 72 20 3D .. LET optr =
011150: 20 74 65 78 74 70 74 72 0D 0A 20 20 20 20 6D 6F textptr.. mo
011160: 76 65 64 6F 77 6E 28 29 0D 0A 20 20 20 20 49 46 vedown().. IF
011170: 20 6F 70 74 72 20 3D 20 74 65 78 74 70 74 72 20 optr = textptr
011180: 54 48 45 4E 20 42 52 45 41 4B 0D 0A 20 20 24 29 THEN BREAK.. $)
011190: 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C 45 54 20 ..$)........LET
0111A0: 74 6F 70 28 6C 69 6E 65 29 20 42 45 0D 0A 0D 0A top(line) BE....
0111B0: 24 28 0D 0A 20 20 6C 69 6E 73 65 72 74 28 6C 69 $(.. linsert(li
0111C0: 6E 65 2C 74 65 78 74 70 74 72 29 0D 0A 20 20 74 ne,textptr).. t
0111D0: 65 78 74 70 74 72 2C 20 78 2C 20 79 2C 20 6C 69 extptr, x, y, li
0111E0: 6E 65 6E 75 6D 62 65 72 20 3A 3D 20 30 2C 20 31 nenumber := 0, 1
0111F0: 2C 20 31 2C 20 31 0D 0A 20 20 72 65 63 6F 6E 73 , 1, 1.. recons
011200: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 00 .DISC BAS....
011210: 00 00 00 00 00 70 01 00 12 00 00 00 00 00 00 00 .....p..........
011220: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011230: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011240: 12 00 00 0E 03 10 00 0A 00 CA 22 62 63 70 6C 2E .........."bcpl.
011250: 62 61 73 22 00 00 00 1A 65 72 20 30 31 2F 30 36 bas"....er 01/06
011260: 2F 38 36 0D 0A 31 31 30 20 4F 55 54 20 26 46 41 /86..110 OUT &FA
011270: 37 45 2C 31 3A 49 4E 4B 20 30 2C 31 3A 49 4E 4B 7E,1:INK 0,1:INK
011280: 10 00 0A 00 CA 22 62 63 70 6C 2E 62 61 73 22 00 ....."bcpl.bas".
011290: 00 00 1A 65 72 20 30 31 2F 30 36 2F 38 36 0D 0A ...er 01/06/86..
0112A0: 31 31 30 20 4F 55 54 20 26 46 41 37 45 2C 31 3A 110 OUT &FA7E,1:
0112B0: 49 4E 4B 20 30 2C 31 3A 49 4E 4B 20 31 2C 32 34 INK 0,1:INK 1,24
0112C0: 3A 42 4F 52 44 45 52 20 31 0D 0A 31 32 30 20 4D :BORDER 1..120 M
0112D0: 4F 44 45 20 31 3A 50 45 4E 20 31 3A 4C 4F 43 41 ODE 1:PEN 1:LOCA
0112E0: 54 45 20 38 2C 33 3A 50 52 49 4E 54 22 50 52 4F TE 8,3:PRINT"PRO
0112F0: 53 50 45 4C 4C 20 53 70 65 6C 6C 69 6E 67 20 43 SPELL Spelling C
011300: 17 EB 4E 23 46 23 EB A7 ED 42 28 0C 09 EB 23 23 ..N#F#...B(...##
011310: 3D 20 EF 5E 23 56 EB E9 EB 5E 23 56 EB E9 32 15 = .^#V...^#V..2.
011320: 12 32 14 12 E5 EB 78 B1 28 11 5E 23 56 23 D5 5E .2....x.(.^#V#.^
011330: 23 56 23 E3 73 23 72 E1 0B 18 EB 5E 23 56 23 CB #V#.s#r....^#V#.
011340: 45 28 01 23 22 12 12 22 10 12 C1 ED 73 0E 12 EB E(.#".."....s...
011350: F9 60 69 CD 9D 12 ED 7B 0E 12 CD 8F BC CD 7A BC .`i....{......z.
011360: C9 D1 DD E5 ED 4B 10 12 C5 ED 4B 12 12 ED 43 10 .....K....K...C.
011370: 12 09 22 12 12 EB E9 7A B3 C8 29 1B 18 F9 7A B3 .."....z..)...z.
011380: C8 CB 3C CB 1D 1B 18 F6 C1 E1 E5 C5 29 ED 5B 10 ..<.........).[.
011390: 12 73 23 72 23 ED 5B 12 12 73 23 72 23 DD E5 D1 .s#r#.[..s#r#...
0113A0: 73 23 72 23 EB 21 04 00 39 EB 73 23 72 C9 C1 C1 s#r#.!..9.s#r...
0113B0: E1 29 5E 23 56 23 ED 53 10 12 5E 23 56 23 ED 53 .)^#V#.S..^#V#.S
0113C0: 12 12 5E 23 56 23 D5 DD E1 5E 23 66 6B F9 60 69 ..^#V#...^#fk.`i
0113D0: E9 E1 C1 D1 D5 C5 E5 2A 10 12 E5 D5 2A 12 12 22 .......*....*.."
0113E0: 10 12 CB 3C CB 1D E5 EB 23 29 38 49 EB 2A 10 12 ...<....#)8I.*..
0113F0: 19 38 42 22 12 12 EB 21 CE FF 39 A7 ED 52 38 35 .8B"...!..9..R85
011400: 74 72 75 63 74 28 74 65 78 74 70 74 72 29 0D 0A truct(textptr)..
011410: 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 62 6F 74 74 $)......LET bott
011420: 6F 6D 28 6C 69 6E 65 29 20 42 45 0D 0A 0D 0A 24 om(line) BE....$
011430: 28 0D 0A 20 20 4C 45 54 20 6F 70 74 72 20 3D 20 (.. LET optr =
011440: 30 0D 0A 20 20 6C 69 6E 73 65 72 74 28 6C 69 6E 0.. linsert(lin
011450: 65 2C 74 65 78 74 70 74 72 29 0D 0A 20 20 74 65 e,textptr).. te
011460: 78 74 70 74 72 2C 20 78 2C 20 79 2C 20 6C 69 6E xtptr, x, y, lin
011470: 65 6E 75 6D 62 65 72 20 3A 3D 20 30 2C 20 31 2C enumber := 0, 1,
011480: 20 31 2C 20 30 0D 0A 20 20 24 28 0D 0A 20 20 20 1, 0.. $(..
011490: 20 6F 70 74 72 20 3A 3D 20 74 65 78 74 70 74 72 optr := textptr
0114A0: 0D 0A 20 20 20 20 74 65 78 74 70 74 72 20 3A 3D .. textptr :=
0114B0: 20 66 6F 72 77 61 72 64 28 74 65 78 74 70 74 72 forward(textptr
0114C0: 29 0D 0A 20 20 20 20 79 20 3A 3D 20 79 20 2B 20 ).. y := y +
0114D0: 31 0D 0A 20 20 20 20 6C 69 6E 65 6E 75 6D 62 65 1.. linenumbe
0114E0: 72 20 3A 3D 20 6C 69 6E 65 6E 75 6D 62 65 72 20 r := linenumber
0114F0: 2B 20 31 0D 0A 20 20 24 29 20 52 45 50 45 41 54 + 1.. $) REPEAT
011500: 55 4E 54 49 4C 20 6F 70 74 72 20 3D 20 74 65 78 UNTIL optr = tex
011510: 74 70 74 72 0D 0A 20 20 49 46 20 79 20 3E 20 32 tptr.. IF y > 2
011520: 34 20 54 48 45 4E 20 79 20 3A 3D 20 32 34 0D 0A 4 THEN y := 24..
011530: 20 20 72 65 63 6F 6E 73 74 72 75 63 74 28 74 65 reconstruct(te
011540: 78 74 70 74 72 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A xtptr)..$)......
011550: 2F 2A 20 41 6C 6C 20 6C 69 6E 65 73 20 65 6E 64 /* All lines end
011560: 20 69 6E 20 31 33 20 2A 2F 0D 0A 2F 2A 20 54 68 in 13 */../* Th
011570: 65 20 65 64 69 74 20 62 75 66 66 65 72 20 69 73 e edit buffer is
011580: 20 68 65 6C 64 20 69 6E 20 75 6E 70 61 63 6B 65 held in unpacke
011590: 64 20 66 6F 72 6D 61 74 2E 20 54 68 65 20 77 68 d format. The wh
0115A0: 6F 6C 65 20 74 65 78 74 20 69 73 20 73 74 6F 72 ole text is stor
0115B0: 65 64 20 69 6E 0D 0A 20 20 20 70 61 63 6B 65 64 ed in.. packed
0115C0: 20 66 6F 72 6D 61 74 20 2A 2F 0D 0A 0D 0A 4C 45 format */....LE
0115D0: 54 20 73 74 61 72 74 28 29 20 42 45 0D 0A 0D 0A T start() BE....
0115E0: 24 28 0D 0A 20 20 4C 45 54 20 66 69 6C 65 62 75 $(.. LET filebu
0115F0: 66 66 20 3D 20 56 45 43 20 31 30 32 34 0D 0A 20 ff = VEC 1024..
011600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0116F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0117F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011800: 20 4C 45 54 20 70 72 65 76 69 6F 75 73 20 3D 20 LET previous =
011810: 56 45 43 20 32 34 0D 0A 20 20 4C 45 54 20 74 65 VEC 24.. LET te
011820: 78 74 20 3D 20 56 45 43 20 6D 61 78 63 68 72 2F xt = VEC maxchr/
011830: 32 2B 31 0D 0A 20 20 4C 45 54 20 69 6E 62 75 66 2+1.. LET inbuf
011840: 66 20 3D 20 56 45 43 20 38 31 0D 0A 20 20 4C 45 f = VEC 81.. LE
011850: 54 20 65 72 72 6F 72 20 3D 20 56 45 43 20 34 0D T error = VEC 4.
011860: 0A 20 20 4C 45 54 20 63 6F 70 79 70 74 72 2C 20 . LET copyptr,
011870: 6C 61 73 74 6B 65 79 2C 20 6E 65 77 73 63 72 65 lastkey, newscre
011880: 65 6E 20 3D 20 30 2C 20 30 2C 20 54 52 55 45 0D en = 0, 0, TRUE.
011890: 0A 20 20 74 65 78 74 70 74 72 2C 20 74 65 78 74 . textptr, text
0118A0: 65 6E 64 2C 20 74 65 78 74 73 74 61 72 74 2C 20 end, textstart,
0118B0: 65 72 72 76 65 63 20 3A 3D 20 30 2C 20 30 2C 20 errvec := 0, 0,
0118C0: 74 65 78 74 2C 20 65 72 72 6F 72 0D 0A 20 20 70 text, error.. p
0118D0: 72 65 76 2C 20 66 69 6C 65 20 3A 3D 20 70 72 65 rev, file := pre
0118E0: 76 69 6F 75 73 2C 20 66 69 6C 65 62 75 66 66 0D vious, filebuff.
0118F0: 0A 20 20 63 6C 73 28 29 0D 0A 20 20 74 65 78 74 . cls().. text
011900: 73 74 61 72 74 25 30 20 3A 3D 20 31 33 0D 0A 20 start%0 := 13..
011910: 20 24 28 0D 0A 20 20 20 20 6C 65 76 65 6C 28 65 $(.. level(e
011920: 72 72 76 65 63 29 0D 0A 20 20 20 20 69 6E 69 74 rrvec).. init
011930: 62 75 66 66 28 69 6E 62 75 66 66 2C 74 65 78 74 buff(inbuff,text
011940: 70 74 72 29 0D 0A 20 20 20 20 49 46 20 6E 65 77 ptr).. IF new
011950: 73 63 72 65 65 6E 20 54 48 45 4E 20 73 63 72 65 screen THEN scre
011960: 65 6E 28 74 65 78 74 70 74 72 2C 79 29 0D 0A 20 en(textptr,y)..
011970: 20 20 20 65 72 72 6C 61 62 3A 0D 0A 20 20 20 20 errlab:..
011980: 49 46 20 62 75 66 66 70 72 69 6E 74 20 54 48 45 IF buffprint THE
011990: 4E 0D 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 20 N.. $(..
0119A0: 20 74 61 62 28 31 2C 79 29 0D 0A 20 20 20 20 20 tab(1,y)..
0119B0: 20 46 4F 52 20 61 20 3D 20 31 20 54 4F 20 69 6E FOR a = 1 TO in
0119C0: 62 75 66 66 21 30 2D 31 20 44 4F 20 77 72 63 68 buff!0-1 DO wrch
0119D0: 28 69 6E 62 75 66 66 21 61 29 20 3B 20 73 70 61 (inbuff!a) ; spa
0119E0: 63 65 73 28 38 30 2D 69 6E 62 75 66 66 21 30 29 ces(80-inbuff!0)
0119F0: 0D 0A 20 20 20 20 20 20 62 75 66 66 70 72 69 6E .. buffprin
011A00: 2F 2A 20 42 43 50 4C 20 64 65 62 75 67 20 70 72 /* BCPL debug pr
011A10: 6F 63 65 64 75 72 65 20 30 32 2F 31 31 2F 31 39 ocedure 02/11/19
011A20: 38 36 20 2A 2F 0D 0A 0D 0A 2F 2A 20 20 20 20 20 86 */..../*
011A30: 20 64 65 62 75 67 28 6F 70 74 2C 6E 2C 64 31 2C debug(opt,n,d1,
011A40: 64 32 2C 64 33 2C 64 34 2C 64 35 2C 64 36 2C 64 d2,d3,d4,d5,d6,d
011A50: 37 2C 64 38 2C 64 39 2C 64 31 30 2C 64 31 31 2C 7,d8,d9,d10,d11,
011A60: 64 31 32 29 0D 0A 0D 0A 20 20 20 20 20 20 20 20 d12)....
011A70: 54 68 65 20 66 69 72 73 74 20 70 61 72 61 6D 65 The first parame
011A80: 74 65 72 20 73 70 65 63 69 66 69 65 73 20 74 68 ter specifies th
011A90: 65 20 72 65 71 75 69 72 65 64 20 6F 70 74 69 6F e required optio
011AA0: 6E 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 n.....
011AB0: 20 20 20 20 20 20 20 30 20 3A 20 70 61 75 73 65 0 : pause
011AC0: 20 65 78 65 63 75 74 69 6F 6E 2C 20 77 61 69 74 execution, wait
011AD0: 20 66 6F 72 20 61 20 6B 65 79 20 74 6F 20 62 65 for a key to be
011AE0: 20 70 72 65 73 73 65 64 0D 0A 20 20 20 20 20 20 pressed..
011AF0: 20 20 20 20 20 20 20 20 20 20 20 31 20 3A 20 64 1 : d
011B00: 69 73 70 6C 61 79 20 76 61 6C 75 65 73 20 6F 66 isplay values of
011B10: 20 76 61 72 69 61 62 6C 65 73 20 69 6E 20 64 65 variables in de
011B20: 63 69 6D 61 6C 0D 0A 20 20 20 20 20 20 20 20 20 cimal..
011B30: 20 20 20 20 20 20 20 2D 31 20 3A 20 64 69 73 70 -1 : disp
011B40: 6C 61 79 20 6E 61 6D 65 73 20 61 6E 64 20 76 61 lay names and va
011B50: 6C 75 65 73 20 6F 66 20 76 61 72 69 61 62 6C 65 lues of variable
011B60: 73 20 69 6E 20 64 65 63 69 6D 61 6C 0D 0A 20 20 s in decimal..
011B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 2
011B80: 20 3A 20 64 69 73 70 6C 61 79 20 76 61 6C 75 65 : display value
011B90: 20 6F 66 20 73 74 72 69 6E 67 73 0D 0A 20 20 20 of strings..
011BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 32 20 -2
011BB0: 3A 20 64 69 73 70 6C 61 79 20 6E 61 6D 65 20 61 : display name a
011BC0: 6E 64 20 76 61 6C 75 65 20 6F 66 20 73 74 72 69 nd value of stri
011BD0: 6E 67 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ngs..
011BE0: 20 20 20 20 20 20 33 20 3A 20 64 69 73 70 6C 61 3 : displa
011BF0: 79 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 76 65 y contents of ve
011C00: 74 20 3A 3D 20 46 41 4C 53 45 0D 0A 20 20 20 20 t := FALSE..
011C10: 24 29 0D 0A 20 20 20 20 6C 61 73 74 6B 65 79 20 $).. lastkey
011C20: 3A 3D 20 62 75 66 66 65 72 28 69 6E 62 75 66 66 := buffer(inbuff
011C30: 29 0D 0A 20 20 20 20 6E 65 77 73 63 72 65 65 6E ).. newscreen
011C40: 20 3A 3D 20 46 41 4C 53 45 0D 0A 20 20 20 20 53 := FALSE.. S
011C50: 57 49 54 43 48 4F 4E 20 6C 61 73 74 6B 65 79 20 WITCHON lastkey
011C60: 49 4E 54 4F 0D 0A 20 20 20 20 24 28 0D 0A 20 20 INTO.. $(..
011C70: 20 20 20 20 43 41 53 45 20 31 32 37 3A 20 6E 65 CASE 127: ne
011C80: 77 73 63 72 65 65 6E 20 3A 3D 20 54 52 55 45 20 wscreen := TRUE
011C90: 3B 20 64 65 6C 65 74 65 6C 28 69 6E 62 75 66 66 ; deletel(inbuff
011CA0: 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 ) ; ENDCASE..
011CB0: 20 20 20 43 41 53 45 20 31 33 3A 20 6E 65 77 73 CASE 13: news
011CC0: 63 72 65 65 6E 20 3A 3D 20 54 52 55 45 20 3B 20 creen := TRUE ;
011CD0: 61 64 64 6C 28 69 6E 62 75 66 66 29 20 3B 20 45 addl(inbuff) ; E
011CE0: 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 20 43 41 NDCASE.. CA
011CF0: 53 45 20 63 75 72 73 75 70 3A 20 43 41 53 45 20 SE cursup: CASE
011D00: 73 63 75 72 73 75 70 3A 20 75 70 63 75 72 73 28 scursup: upcurs(
011D10: 69 6E 62 75 66 66 29 20 3B 20 45 4E 44 43 41 53 inbuff) ; ENDCAS
011D20: 45 0D 0A 20 20 20 20 20 20 43 41 53 45 20 63 75 E.. CASE cu
011D30: 72 73 64 6F 77 6E 3A 20 43 41 53 45 20 73 63 75 rsdown: CASE scu
011D40: 72 73 64 6F 77 6E 3A 20 64 6F 77 6E 63 75 72 73 rsdown: downcurs
011D50: 28 69 6E 62 75 66 66 29 20 3B 20 45 4E 44 43 41 (inbuff) ; ENDCA
011D60: 53 45 0D 0A 20 20 20 20 20 20 43 41 53 45 20 63 SE.. CASE c
011D70: 63 75 72 73 75 70 3A 20 73 75 70 63 75 72 73 28 cursup: supcurs(
011D80: 69 6E 62 75 66 66 29 20 3B 20 45 4E 44 43 41 53 inbuff) ; ENDCAS
011D90: 45 0D 0A 20 20 20 20 20 20 43 41 53 45 20 63 63 E.. CASE cc
011DA0: 75 72 73 64 6F 77 6E 3A 20 73 64 6F 77 6E 63 75 ursdown: sdowncu
011DB0: 72 73 28 69 6E 62 75 66 66 29 20 3B 20 45 4E 44 rs(inbuff) ; END
011DC0: 43 41 53 45 0D 0A 20 20 20 20 20 20 43 41 53 45 CASE.. CASE
011DD0: 20 63 6F 70 65 6E 73 71 3A 20 74 6F 70 28 69 6E copensq: top(in
011DE0: 62 75 66 66 29 20 3B 20 45 4E 44 43 41 53 45 0D buff) ; ENDCASE.
011DF0: 0A 20 20 20 20 20 20 43 41 53 45 20 63 63 6C 6F . CASE cclo
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 00 02 02 09 4E E5 0F 00 C1 02 00 00 00 02 ......N.........
011E20: 0F 00 C6 02 00 00 00 02 0F 00 C2 02 00 00 00 02 ................
011E30: 0F 00 C7 02 00 00 00 02 0F 00 C3 02 00 00 00 02 ................
011E40: 0F 00 C8 02 00 00 00 02 0F 00 C4 02 00 00 00 02 ................
011E50: 0F 00 C9 02 00 00 00 02 0F 00 C5 02 00 00 00 02 ................
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 63 74 6F 72 73 0D 0A 20 20 20 20 20 20 20 20 20 ctors..
011F10: 20 20 20 20 20 20 20 2D 33 20 3A 20 64 69 73 70 -3 : disp
011F20: 6C 61 79 20 6E 61 6D 65 20 61 6E 64 20 63 6F 6E lay name and con
011F30: 74 65 6E 74 73 20 6F 66 20 76 65 63 74 6F 72 73 tents of vectors
011F40: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
011F50: 20 20 20 34 20 3A 20 64 69 73 70 6C 61 79 20 76 4 : display v
011F60: 61 6C 75 65 73 20 6F 66 20 76 61 72 69 61 62 6C alues of variabl
011F70: 65 73 20 69 6E 20 68 65 78 61 64 65 63 69 6D 61 es in hexadecima
011F80: 6C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 l..
011F90: 20 20 20 2D 34 20 3A 20 64 69 73 70 6C 61 79 20 -4 : display
011FA0: 6E 61 6D 65 73 20 61 6E 64 20 76 61 6C 75 65 73 names and values
011FB0: 20 6F 66 20 76 61 72 69 61 62 6C 65 73 20 69 6E of variables in
011FC0: 20 68 65 78 61 64 65 63 69 6D 61 6C 0D 0A 0D 0A hexadecimal....
011FD0: 0D 0A 20 20 20 20 20 20 20 20 54 68 65 20 73 65 .. The se
011FE0: 63 6F 6E 64 20 70 61 72 61 6D 65 74 65 72 20 28 cond parameter (
011FF0: 6E 29 20 69 73 20 74 68 65 20 6E 75 6D 62 65 72 n) is the number
012000: 20 6F 66 20 76 61 72 69 61 62 6C 65 73 20 6F 72 of variables or
012010: 20 73 74 72 69 6E 67 73 0D 0A 20 20 20 20 20 20 strings..
012020: 20 20 6F 72 20 76 65 63 74 6F 72 73 20 74 6F 20 or vectors to
012030: 62 65 20 64 69 73 70 6C 61 79 65 64 2E 0D 0A 0D be displayed....
012040: 0A 20 20 20 20 20 20 20 20 49 66 20 6F 70 74 20 . If opt
012050: 69 73 20 70 6F 73 69 74 69 76 65 20 74 68 65 72 is positive ther
012060: 65 20 66 6F 6C 6C 6F 77 73 20 61 20 6C 69 73 74 e follows a list
012070: 20 6F 66 20 69 64 65 6E 74 69 66 69 65 72 73 2E of identifiers.
012080: 0D 0A 20 20 20 20 20 20 20 20 49 66 20 6F 70 74 .. If opt
012090: 20 69 73 20 6E 65 67 61 74 69 76 65 20 74 68 65 is negative the
0120A0: 72 65 20 66 6F 6C 6C 6F 77 73 20 61 20 6C 69 73 re follows a lis
0120B0: 74 20 6F 66 20 70 61 69 72 73 20 2D 20 61 20 73 t of pairs - a s
0120C0: 74 72 69 6E 67 0D 0A 20 20 20 20 20 20 20 20 67 tring.. g
0120D0: 69 76 69 6E 67 20 74 68 65 20 69 64 65 6E 74 69 iving the identi
0120E0: 66 69 65 72 20 6E 61 6D 65 20 61 6E 64 20 74 68 fier name and th
0120F0: 65 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A 0D e identifier....
012100: 20 77 72 69 74 65 73 28 21 70 61 72 6D 29 0D 0A writes(!parm)..
012110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012120: 20 20 20 20 20 20 20 20 77 72 69 74 65 73 28 22 writes("
012130: 20 3D 20 22 29 0D 0A 20 20 20 20 20 20 20 20 20 = ")..
012140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 w
012150: 72 6E 75 6D 28 70 61 72 6D 21 31 2C 77 72 77 69 rnum(parm!1,wrwi
012160: 64 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 d)..
012170: 20 20 20 20 20 20 20 20 20 20 20 20 6E 65 77 6C newl
012180: 69 6E 65 28 29 0D 0A 20 20 20 20 20 20 20 20 20 ine()..
012190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 p
0121A0: 61 72 6D 20 3A 3D 20 70 61 72 6D 20 2B 20 32 0D arm := parm + 2.
0121B0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0121C0: 20 20 20 20 20 20 20 20 20 45 4E 44 43 41 53 45 ENDCASE
0121D0: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ....
0121E0: 20 20 20 20 43 41 53 45 20 32 3A 0D 0A 20 20 20 CASE 2:..
0121F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012200: 20 20 20 20 20 77 72 63 68 28 27 22 27 29 20 3B wrch('"') ;
012210: 20 77 72 69 74 65 73 28 21 70 61 72 6D 29 20 3B writes(!parm) ;
012220: 20 77 72 63 68 28 27 22 27 29 0D 0A 20 20 20 20 wrch('"')..
012230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012240: 20 20 20 20 77 72 63 68 28 27 20 27 29 0D 0A 20 wrch(' ')..
012250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012260: 20 20 20 20 20 20 20 70 61 72 6D 20 3A 3D 20 70 parm := p
012270: 61 72 6D 20 2B 20 31 0D 0A 20 20 20 20 20 20 20 arm + 1..
012280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012290: 20 45 4E 44 43 41 53 45 0D 0A 0D 0A 20 20 20 20 ENDCASE....
0122A0: 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 CASE
0122B0: 20 2D 32 3A 0D 0A 20 20 20 20 20 20 20 20 20 20 -2:..
0122C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 wr
0122D0: 69 74 65 73 28 22 20 20 22 29 0D 0A 20 20 20 20 ites(" ")..
0122E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0122F0: 20 20 20 20 77 72 69 74 65 73 28 21 70 61 72 6D writes(!parm
012300: 0A 20 20 20 20 20 20 20 20 46 6F 72 20 6F 70 74 . For opt
012310: 69 6F 6E 73 20 33 20 61 6E 64 20 2D 33 20 65 61 ions 3 and -3 ea
012320: 63 68 20 69 64 65 6E 74 69 66 69 65 72 20 69 73 ch identifier is
012330: 20 66 6F 6C 6C 6F 77 65 64 20 62 79 20 74 68 65 followed by the
012340: 20 6C 65 6E 67 74 68 20 6F 66 0D 0A 20 20 20 20 length of..
012350: 20 20 20 20 74 68 65 20 76 65 63 74 6F 72 2C 20 the vector,
012360: 74 68 61 74 20 69 73 20 74 68 65 20 6E 75 6D 62 that is the numb
012370: 65 72 20 6F 66 20 62 79 74 65 73 20 74 6F 20 64 er of bytes to d
012380: 69 73 70 6C 61 79 2E 0D 0A 0D 0A 20 20 20 20 20 isplay.....
012390: 20 20 20 45 78 61 6D 70 6C 65 73 3A 0D 0A 20 20 Examples:..
0123A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0123B0: 20 20 20 20 20 20 64 65 62 75 67 28 31 2C 33 2C debug(1,3,
0123C0: 76 61 72 31 2C 76 61 72 32 2C 76 61 72 33 29 0D var1,var2,var3).
0123D0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0123E0: 20 20 20 20 20 20 20 20 20 64 65 62 75 67 28 2D debug(-
0123F0: 31 2C 33 2C 22 76 61 72 31 22 2C 76 61 72 31 2C 1,3,"var1",var1,
012400: 22 76 61 72 32 22 2C 76 61 72 32 2C 22 76 61 72 "var2",var2,"var
012410: 33 22 2C 76 61 72 33 29 0D 0A 20 20 20 20 20 20 3",var3)..
012420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012430: 20 20 64 65 62 75 67 28 32 2C 31 2C 73 74 72 29 debug(2,1,str)
012440: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012450: 20 20 20 20 20 20 20 20 20 20 64 65 62 75 67 28 debug(
012460: 2D 32 2C 32 2C 22 73 74 72 31 22 2C 73 74 72 31 -2,2,"str1",str1
012470: 2C 22 73 74 72 32 22 2C 73 74 72 32 29 0D 0A 20 ,"str2",str2)..
012480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012490: 20 20 20 20 20 20 20 64 65 62 75 67 28 33 2C 31 debug(3,1
0124A0: 2C 76 65 63 74 6F 72 2C 33 32 29 0D 0A 20 20 20 ,vector,32)..
0124B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0124C0: 20 20 20 20 20 64 65 62 75 67 28 2D 33 2C 31 2C debug(-3,1,
0124D0: 22 76 65 63 74 6F 72 22 2C 76 65 63 74 6F 72 2C "vector",vector,
0124E0: 33 32 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 32)..
0124F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 62 deb
012500: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
012510: 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 write
012520: 73 28 22 20 3D 20 22 29 20 3B 20 77 72 63 68 28 s(" = ") ; wrch(
012530: 27 22 27 29 0D 0A 20 20 20 20 20 20 20 20 20 20 '"')..
012540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 wr
012550: 69 74 65 73 28 70 61 72 6D 21 31 29 20 3B 20 77 ites(parm!1) ; w
012560: 72 63 68 28 27 22 27 29 0D 0A 20 20 20 20 20 20 rch('"')..
012570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012580: 20 20 6E 65 77 6C 69 6E 65 28 29 0D 0A 20 20 20 newline()..
012590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0125A0: 20 20 20 20 20 70 61 72 6D 20 3A 3D 20 70 61 72 parm := par
0125B0: 6D 20 2B 20 32 0D 0A 20 20 20 20 20 20 20 20 20 m + 2..
0125C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E
0125D0: 4E 44 43 41 53 45 0D 0A 0D 0A 20 20 20 20 20 20 NDCASE....
0125E0: 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 33 CASE 3
0125F0: 3A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 :..
012600: 20 20 20 20 20 20 20 20 20 20 20 64 65 62 75 67 debug
012610: 76 65 63 74 6F 72 28 21 70 61 72 6D 2C 70 61 72 vector(!parm,par
012620: 6D 21 31 29 0D 0A 20 20 20 20 20 20 20 20 20 20 m!1)..
012630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 pa
012640: 72 6D 20 3A 3D 20 70 61 72 6D 20 2B 20 32 0D 0A rm := parm + 2..
012650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012660: 20 20 20 20 20 20 20 20 45 4E 44 43 41 53 45 0D ENDCASE.
012670: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
012680: 20 20 20 43 41 53 45 20 2D 33 3A 0D 0A 20 20 20 CASE -3:..
012690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0126A0: 20 20 20 20 20 77 72 69 74 65 73 28 21 70 61 72 writes(!par
0126B0: 6D 29 20 3B 20 6E 65 77 6C 69 6E 65 28 29 0D 0A m) ; newline()..
0126C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0126D0: 20 20 20 20 20 20 20 20 64 65 62 75 67 76 65 63 debugvec
0126E0: 74 6F 72 28 70 61 72 6D 21 31 2C 70 61 72 6D 21 tor(parm!1,parm!
0126F0: 32 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 2)..
012700: 75 67 28 34 2C 32 2C 68 65 78 31 2C 68 65 78 32 ug(4,2,hex1,hex2
012710: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
012720: 20 20 20 20 20 20 20 20 20 20 20 64 65 62 75 67 debug
012730: 28 2D 34 2C 33 2C 22 68 65 78 31 22 2C 68 65 78 (-4,3,"hex1",hex
012740: 31 2C 22 68 65 78 32 22 2C 68 65 78 32 2C 22 68 1,"hex2",hex2,"h
012750: 65 78 33 22 2C 68 65 78 33 29 0D 0A 2A 2F 0D 0A ex3",hex3)..*/..
012760: 0D 0A 0D 0A 41 4E 44 20 64 65 62 75 67 28 6F 70 ....AND debug(op
012770: 74 2C 6E 2C 64 31 2C 64 32 2C 64 33 2C 64 34 2C t,n,d1,d2,d3,d4,
012780: 64 35 2C 64 36 2C 64 37 2C 64 38 2C 64 39 2C 64 d5,d6,d7,d8,d9,d
012790: 31 30 2C 64 31 31 2C 64 31 32 29 20 62 65 0D 0A 10,d11,d12) be..
0127A0: 0D 0A 24 28 20 20 20 20 20 20 4D 41 4E 49 46 45 ..$( MANIFE
0127B0: 53 54 20 24 28 20 65 73 63 61 70 65 3D 23 78 46 ST $( escape=#xF
0127C0: 43 20 3B 20 73 74 6F 70 3D 33 20 24 29 0D 0A 20 C ; stop=3 $)..
0127D0: 20 20 20 20 20 20 20 4C 45 54 20 70 61 72 6D 2C LET parm,
0127E0: 20 63 68 2C 20 6C 65 6E 20 3D 20 40 64 31 2C 20 ch, len = @d1,
0127F0: 3F 2C 20 3F 0D 0A 20 20 20 20 20 20 20 20 4C 45 ?, ?.. LE
012800: 54 20 77 72 6E 75 6D 2C 20 77 72 77 69 64 20 3D T wrnum, wrwid =
012810: 20 77 72 69 74 65 64 2C 20 30 0D 0A 20 20 20 20 writed, 0..
012820: 20 20 20 20 53 57 49 54 43 48 4F 4E 20 28 6F 70 SWITCHON (op
012830: 74 3E 30 20 2D 3E 20 6F 70 74 2C 20 2D 6F 70 74 t>0 -> opt, -opt
012840: 29 20 49 4E 54 4F 0D 0A 20 20 20 20 20 20 20 20 ) INTO..
012850: 24 28 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 $(..
012860: 20 20 20 20 43 41 53 45 20 31 20 3A 20 77 72 69 CASE 1 : wri
012870: 74 65 73 28 22 2A 6E 42 43 50 4C 20 44 65 62 75 tes("*nBCPL Debu
012880: 67 2E 20 56 61 72 69 61 62 6C 65 20 76 61 6C 75 g. Variable valu
012890: 65 73 3A 20 22 29 0D 0A 20 20 20 20 20 20 20 20 es: ")..
0128A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0128B0: 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 20 ENDCASE..
0128C0: 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 32 CASE 2
0128D0: 20 3A 20 77 72 69 74 65 73 28 22 2A 6E 42 43 50 : writes("*nBCP
0128E0: 4C 20 44 65 62 75 67 2E 20 53 74 72 69 6E 67 20 L Debug. String
0128F0: 63 6F 6E 74 65 6E 74 73 3A 20 22 29 0D 0A 20 20 contents: ")..
012900: 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 6D parm
012910: 20 3A 3D 20 70 61 72 6D 20 2B 20 33 0D 0A 20 20 := parm + 3..
012920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012930: 20 20 20 20 20 20 45 4E 44 43 41 53 45 0D 0A 0D ENDCASE...
012940: 0A 20 20 20 20 20 20 20 20 20 20 20 20 24 29 0D . $).
012950: 0A 20 20 20 20 20 20 20 20 24 29 0D 0A 20 20 20 . $)..
012960: 20 20 20 20 20 49 46 20 6F 70 74 20 3E 20 30 20 IF opt > 0
012970: 26 20 6F 70 74 20 6E 65 20 33 20 44 4F 20 6E 65 & opt ne 3 DO ne
012980: 77 6C 69 6E 65 28 29 0D 0A 24 29 0D 0A 0D 0A 41 wline()..$)....A
012990: 4E 44 20 64 65 62 75 67 76 65 63 74 6F 72 28 61 ND debugvector(a
0129A0: 64 64 72 2C 6C 65 6E 29 20 42 45 0D 0A 0D 0A 24 ddr,len) BE....$
0129B0: 28 20 20 20 20 20 20 4C 45 54 20 61 73 63 69 69 ( LET ascii
0129C0: 20 3D 20 76 65 63 20 31 36 0D 0A 20 20 20 20 20 = vec 16..
0129D0: 20 20 20 4C 45 54 20 61 73 63 70 74 72 2C 20 6C LET ascptr, l
0129E0: 69 6E 65 2C 20 63 68 20 3D 20 31 2C 20 30 2C 20 ine, ch = 1, 0,
0129F0: 30 0D 0A 20 20 20 20 20 20 20 20 61 73 63 69 69 0.. ascii
012A00: 25 30 20 3A 3D 20 31 36 0D 0A 20 20 20 20 20 20 %0 := 16..
012A10: 20 20 46 4F 52 20 6C 69 6E 65 20 3D 20 30 20 54 FOR line = 0 T
012A20: 4F 20 28 6C 65 6E 2D 31 29 2F 31 36 20 44 4F 0D O (len-1)/16 DO.
012A30: 0A 20 20 20 20 20 20 20 20 24 28 20 20 20 20 20 . $(
012A40: 20 77 72 69 74 65 73 28 22 20 20 22 29 0D 0A 20 writes(" ")..
012A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 w
012A60: 72 69 74 65 68 65 78 28 32 2A 61 64 64 72 2B 6C ritehex(2*addr+l
012A70: 69 6E 65 2A 31 36 2C 34 29 20 20 20 20 20 20 2F ine*16,4) /
012A80: 2F 20 6E 6F 74 65 20 32 2A 61 64 64 72 20 69 73 / note 2*addr is
012A90: 20 70 68 79 73 69 63 61 6C 20 61 64 64 72 0D 0A physical addr..
012AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012AB0: 77 72 69 74 65 73 28 22 20 20 22 29 0D 0A 20 20 writes(" ")..
012AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 73 as
012AD0: 63 70 74 72 20 3A 3D 20 31 0D 0A 20 20 20 20 20 cptr := 1..
012AE0: 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 62 FOR b
012AF0: 79 74 65 20 3D 20 30 20 54 4F 20 31 35 20 44 4F yte = 0 TO 15 DO
012B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012B10: 20 20 20 20 20 20 20 45 4E 44 43 41 53 45 0D 0A ENDCASE..
012B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012B30: 43 41 53 45 20 33 20 3A 20 77 72 69 74 65 73 28 CASE 3 : writes(
012B40: 22 2A 6E 42 43 50 4C 20 44 65 62 75 67 2E 20 56 "*nBCPL Debug. V
012B50: 65 63 74 6F 72 20 63 6F 6E 74 65 6E 74 73 3A 20 ector contents:
012B60: 22 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ")..
012B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 END
012B80: 43 41 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 CASE..
012B90: 20 20 20 20 20 20 43 41 53 45 20 34 20 3A 20 77 CASE 4 : w
012BA0: 72 69 74 65 73 28 22 2A 6E 42 43 50 4C 20 44 65 rites("*nBCPL De
012BB0: 62 75 67 2E 20 56 61 72 69 61 62 6C 65 20 76 61 bug. Variable va
012BC0: 6C 75 65 73 2C 20 68 65 78 3A 20 22 29 0D 0A 20 lues, hex: ")..
012BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012BE0: 20 20 20 20 20 20 20 20 77 72 6E 75 6D 20 3A 3D wrnum :=
012BF0: 20 77 72 69 74 65 68 65 78 0D 0A 20 20 20 20 20 writehex..
012C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012C10: 20 20 20 20 77 72 77 69 64 20 3A 3D 20 34 0D 0A wrwid := 4..
012C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012C30: 20 20 20 20 20 20 20 20 20 45 4E 44 43 41 53 45 ENDCASE
012C40: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012C50: 20 20 44 45 46 41 55 4C 54 3A 0D 0A 20 20 20 20 DEFAULT:..
012C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012C70: 20 20 20 20 77 72 69 74 65 73 28 22 2A 6E 50 72 writes("*nPr
012C80: 65 73 73 20 61 20 6B 65 79 20 74 6F 20 72 65 73 ess a key to res
012C90: 75 6D 65 20 65 78 65 63 75 74 69 6F 6E 3A 20 22 ume execution: "
012CA0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
012CB0: 20 20 20 20 20 20 20 20 20 20 20 63 68 3A 3D 72 ch:=r
012CC0: 64 63 68 28 29 20 3B 20 49 46 20 63 68 3D 65 73 dch() ; IF ch=es
012CD0: 63 61 70 65 20 7C 20 63 68 3D 73 74 6F 70 20 20 cape | ch=stop
012CE0: 74 68 65 6E 20 46 49 4E 49 53 48 0D 0A 20 20 20 then FINISH..
012CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012D00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012D10: 20 20 24 28 20 20 20 20 20 20 63 68 20 3A 3D 20 $( ch :=
012D20: 61 64 64 72 25 28 6C 69 6E 65 2A 31 36 2B 62 79 addr%(line*16+by
012D30: 74 65 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 te)..
012D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 wri
012D50: 74 65 68 65 78 28 63 68 2C 32 29 0D 0A 20 20 20 tehex(ch,2)..
012D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012D70: 20 20 20 20 20 77 72 63 68 28 27 20 27 29 0D 0A wrch(' ')..
012D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012D90: 20 20 20 20 20 20 20 20 49 46 20 62 79 74 65 3D IF byte=
012DA0: 37 20 74 68 65 6E 20 77 72 63 68 28 27 20 27 29 7 then wrch(' ')
012DB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012DC0: 20 20 20 20 20 20 20 20 20 20 61 73 63 69 69 25 ascii%
012DD0: 61 73 63 70 74 72 20 3A 3D 20 28 33 31 3C 63 68 ascptr := (31<ch
012DE0: 3C 31 32 38 29 20 2D 3E 20 63 68 20 2C 20 27 2E <128) -> ch , '.
012DF0: 27 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 '..
012E00: 20 20 20 20 20 20 20 20 20 20 20 61 73 63 70 74 ascpt
012E10: 72 20 3A 3D 20 61 73 63 70 74 72 20 2B 20 31 0D r := ascptr + 1.
012E20: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
012E30: 20 24 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 $)..
012E40: 20 20 20 20 20 77 72 63 68 28 27 20 27 29 0D 0A wrch(' ')..
012E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012E60: 77 72 69 74 65 73 28 61 73 63 69 69 29 0D 0A 20 writes(ascii)..
012E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E n
012E80: 65 77 6C 69 6E 65 28 29 0D 0A 20 20 20 20 20 20 ewline()..
012E90: 20 20 24 29 0D 0A 24 29 0D 0A 1A 31 30 2F 31 39 $)..$)...10/19
012EA0: 38 36 20 2A 2F 0D 0A 0D 0A 2F 2A 20 20 20 20 20 86 */..../*
012EB0: 20 64 65 62 75 67 28 6F 70 74 2C 6E 2C 64 31 2C debug(opt,n,d1,
012EC0: 64 32 2C 64 33 2C 64 34 2C 64 35 2C 64 36 2C 64 d2,d3,d4,d5,d6,d
012ED0: 37 2C 64 38 2C 64 39 2C 64 31 30 2C 64 31 31 2C 7,d8,d9,d10,d11,
012EE0: 64 31 32 29 0D 0A 0D 0A 20 20 20 20 20 20 20 20 d12)....
012EF0: 54 68 65 20 66 69 72 73 74 20 70 61 72 61 6D 65 The first parame
012F00: 20 20 20 20 20 6E 65 77 6C 69 6E 65 28 29 0D 0A newline()..
012F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012F20: 20 20 20 20 20 20 20 20 52 45 54 55 52 4E 0D 0A RETURN..
012F30: 20 20 20 20 20 20 20 20 24 29 0D 0A 0D 0A 20 20 $)....
012F40: 20 20 20 20 20 20 6E 65 77 6C 69 6E 65 28 29 0D newline().
012F50: 0A 20 20 20 20 20 20 20 20 49 46 20 6F 70 74 20 . IF opt
012F60: 3E 20 30 20 26 20 6F 70 74 20 4E 45 20 33 20 44 > 0 & opt NE 3 D
012F70: 4F 20 77 72 69 74 65 73 28 22 20 20 22 29 0D 0A O writes(" ")..
012F80: 0D 0A 20 20 20 20 20 20 20 20 46 4F 52 20 69 20 .. FOR i
012F90: 3D 20 31 20 54 4F 20 6E 20 44 4F 0D 0A 20 20 20 = 1 TO n DO..
012FA0: 20 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 20 $(..
012FB0: 20 20 20 20 20 53 57 49 54 43 48 4F 4E 20 6F 70 SWITCHON op
012FC0: 74 20 49 4E 54 4F 0D 0A 20 20 20 20 20 20 20 20 t INTO..
012FD0: 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 20 20 $(..
012FE0: 20 20 20 20 20 20 20 20 43 41 53 45 20 31 3A 0D CASE 1:.
012FF0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
013000: 20 43 41 53 45 20 34 3A 0D 0A 20 20 20 20 20 20 CASE 4:..
013010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013020: 20 20 77 72 6E 75 6D 28 21 70 61 72 6D 2C 77 72 wrnum(!parm,wr
013030: 77 69 64 29 20 3B 20 77 72 63 68 28 27 20 27 29 wid) ; wrch(' ')
013040: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
013050: 20 20 20 20 20 20 20 20 20 20 70 61 72 6D 20 3A parm :
013060: 3D 20 70 61 72 6D 20 2B 20 31 0D 0A 20 20 20 20 = parm + 1..
013070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013080: 20 20 20 20 45 4E 44 43 41 53 45 0D 0A 0D 0A 20 ENDCASE....
013090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 C
0130A0: 41 53 45 20 2D 31 3A 0D 0A 20 20 20 20 20 20 20 ASE -1:..
0130B0: 20 20 20 20 20 20 20 20 20 43 41 53 45 20 2D 34 CASE -4
0130C0: 3A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 :..
0130D0: 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 write
0130E0: 73 28 22 20 20 22 29 0D 0A 20 20 20 20 20 20 20 s(" ")..
0130F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 00 02 02 09 4E E5 10 00 C1 02 00 00 00 02 ......N.........
013120: 10 00 C6 02 00 00 00 02 10 00 C2 02 00 00 00 02 ................
013130: 10 00 C7 02 00 00 00 02 10 00 C3 02 00 00 00 02 ................
013140: 10 00 C8 02 00 00 00 02 10 00 C4 02 00 00 00 02 ................
013150: 10 00 C9 02 00 00 00 02 10 00 C5 02 00 00 00 02 ................
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 0D 0A 2F 2A 20 49 6E 76 61 64 65 72 73 20 67 61 ../* Invaders ga
013210: 6D 65 2E 20 4C 61 73 74 20 6D 6F 64 69 66 69 65 me. Last modifie
013220: 64 20 30 35 2F 31 31 2F 31 39 38 36 20 2A 2F 0D d 05/11/1986 */.
013230: 0A 0D 0A 0D 0A 2F 2A 20 54 68 65 20 66 6F 6C 6C ...../* The foll
013240: 6F 77 69 6E 67 20 61 72 65 20 70 61 72 74 20 6F owing are part o
013250: 66 20 74 68 65 20 73 74 61 6E 64 61 72 64 20 6C f the standard l
013260: 69 62 72 61 72 79 20 68 65 61 64 65 72 20 2A 2F ibrary header */
013270: 0D 0A 0D 0A 6F 70 74 69 6F 6E 20 73 2D 2C 62 2D ....option s-,b-
013280: 2C 6C 2D 0D 0A 0D 0A 6D 61 6E 69 66 65 73 74 20 ,l-....manifest
013290: 24 28 20 62 79 74 65 73 70 65 72 77 6F 72 64 20 $( bytesperword
0132A0: 3D 20 32 20 3B 20 65 6E 64 73 74 72 65 61 6D 20 = 2 ; endstream
0132B0: 3D 20 2D 31 20 24 29 0D 0A 0D 0A 2F 2A 20 54 68 = -1 $)..../* Th
0132C0: 69 73 20 72 6F 75 74 69 6E 65 20 77 72 69 74 65 is routine write
0132D0: 73 20 74 68 65 20 67 69 76 65 6E 20 62 79 74 65 s the given byte
0132E0: 20 6F 75 74 20 74 6F 20 74 68 65 20 73 63 72 65 out to the scre
0132F0: 65 6E 20 2A 2F 0D 0A 0D 0A 6C 65 74 20 77 72 63 en */....let wrc
013300: 68 28 63 29 20 62 65 0D 0A 0D 0A 24 28 0D 0A 20 h(c) be....$(..
013310: 20 69 6E 6C 69 6E 65 20 32 32 31 2C 31 32 36 2C inline 221,126,
013320: 31 32 36 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 30 126.. inline 20
013330: 35 2C 23 78 35 41 2C 23 78 42 42 0D 0A 24 29 0D 5,#x5A,#xBB..$).
013340: 0A 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 ......./* This r
013350: 6F 75 74 69 6E 65 20 77 69 6C 6C 20 77 61 69 74 outine will wait
013360: 20 66 6F 72 20 61 20 6B 65 79 20 70 72 65 73 73 for a key press
013370: 20 2A 2F 0D 0A 0D 0A 61 6E 64 20 72 64 63 68 28 */....and rdch(
013380: 29 20 3D 20 76 61 6C 6F 66 0D 0A 0D 0A 24 28 0D ) = valof....$(.
013390: 0A 20 20 6C 65 74 20 6B 65 79 20 3D 20 30 0D 0A . let key = 0..
0133A0: 20 20 69 6E 6C 69 6E 65 20 32 30 35 2C 23 78 31 inline 205,#x1
0133B0: 38 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 8,#xBB // cal
0133C0: 6C 20 77 61 69 74 20 6B 65 79 0D 0A 20 20 69 6E l wait key.. in
0133D0: 6C 69 6E 65 20 32 32 31 2C 31 31 39 2C 31 32 30 line 221,119,120
0133E0: 20 20 20 20 20 20 2F 2F 20 73 74 6F 72 65 20 69 // store i
0133F0: 74 20 69 6E 20 6B 65 79 0D 0A 20 20 72 65 73 75 t in key.. resu
013400: 74 6F 20 65 61 63 68 0D 0A 20 20 20 6F 74 68 65 to each.. othe
013410: 72 20 61 6E 64 20 61 73 20 74 68 65 79 20 61 72 r and as they ar
013420: 65 20 6F 6E 20 74 68 65 20 68 61 72 64 77 61 72 e on the hardwar
013430: 65 20 73 74 61 63 6B 20 61 72 65 20 69 6E 20 74 e stack are in t
013440: 68 65 20 63 65 6E 74 72 65 20 33 32 6B 20 2A 2F he centre 32k */
013450: 0D 0A 0D 0A 4C 45 54 20 73 6F 75 6E 64 28 61 72 ....LET sound(ar
013460: 72 61 79 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 ray) BE....$(..
013470: 20 4C 45 54 20 61 31 2C 61 32 2C 61 33 2C 61 34 LET a1,a2,a3,a4
013480: 2C 61 35 20 3D 20 30 2C 20 30 2C 20 30 2C 20 30 ,a5 = 0, 0, 0, 0
013490: 2C 20 30 20 20 20 2F 2F 20 61 6E 20 61 72 72 61 , 0 // an arra
0134A0: 79 20 6F 6E 20 74 68 65 20 68 61 72 64 77 61 72 y on the hardwar
0134B0: 65 20 73 74 61 63 6B 0D 0A 20 20 4C 45 54 20 73 e stack.. LET s
0134C0: 62 61 73 65 20 3D 20 40 61 35 0D 0A 20 20 73 62 base = @a5.. sb
0134D0: 61 73 65 25 30 20 3A 3D 20 61 72 72 61 79 21 30 ase%0 := array!0
0134E0: 0D 0A 20 20 73 62 61 73 65 25 31 20 3A 3D 20 61 .. sbase%1 := a
0134F0: 72 72 61 79 21 34 0D 0A 20 20 73 62 61 73 65 25 rray!4.. sbase%
013500: 32 20 3A 3D 20 61 72 72 61 79 21 35 0D 0A 20 20 2 := array!5..
013510: 73 62 61 73 65 25 33 20 3A 3D 20 61 72 72 61 79 sbase%3 := array
013520: 25 32 0D 0A 20 20 73 62 61 73 65 25 34 20 3A 3D %2.. sbase%4 :=
013530: 20 61 72 72 61 79 25 33 0D 0A 20 20 73 62 61 73 array%3.. sbas
013540: 65 25 35 20 3A 3D 20 61 72 72 61 79 21 36 0D 0A e%5 := array!6..
013550: 20 20 73 62 61 73 65 25 36 20 3A 3D 20 61 72 72 sbase%6 := arr
013560: 61 79 21 33 0D 0A 20 20 73 62 61 73 65 25 37 20 ay!3.. sbase%7
013570: 3A 3D 20 61 72 72 61 79 25 34 0D 0A 20 20 73 62 := array%4.. sb
013580: 61 73 65 25 38 20 3A 3D 20 61 72 72 61 79 25 35 ase%8 := array%5
013590: 0D 0A 20 20 69 6E 6C 69 6E 65 20 33 33 2C 31 31 .. inline 33,11
0135A0: 30 2C 30 20 20 20 20 20 20 20 20 20 2F 2F 20 6C 0,0 // l
0135B0: 64 20 68 6C 2C 31 31 30 0D 0A 20 20 69 6E 6C 69 d hl,110.. inli
0135C0: 6E 65 20 32 32 31 2C 32 32 39 2C 32 32 31 2C 32 ne 221,229,221,2
0135D0: 32 39 20 20 2F 2F 20 70 75 73 68 20 69 78 2C 20 29 // push ix,
0135E0: 70 75 73 68 20 69 78 0D 0A 20 20 69 6E 6C 69 6E push ix.. inlin
0135F0: 65 20 32 30 39 20 20 20 20 20 20 20 20 20 20 20 e 209
013600: 6C 74 69 73 20 6B 65 79 0D 0A 24 29 0D 0A 0D 0A ltis key..$)....
013610: 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 6F 75 74 ..../* This rout
013620: 69 6E 65 20 77 72 69 74 65 73 20 61 20 73 74 72 ine writes a str
013630: 69 6E 67 20 74 6F 20 74 68 65 20 73 63 72 65 65 ing to the scree
013640: 6E 20 2A 2F 0D 0A 0D 0A 61 6E 64 20 77 72 69 74 n */....and writ
013650: 65 73 28 73 29 20 62 65 0D 0A 0D 0A 24 28 0D 0A es(s) be....$(..
013660: 20 20 66 6F 72 20 63 20 3D 20 31 20 74 6F 20 73 for c = 1 to s
013670: 25 30 20 77 72 63 68 28 73 25 63 29 0D 0A 24 29 %0 wrch(s%c)..$)
013680: 0D 0A 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 ......../* This
013690: 72 6F 75 74 69 6E 65 20 77 72 69 74 65 73 20 61 routine writes a
0136A0: 20 6E 75 6D 62 65 72 20 74 6F 20 74 68 65 20 73 number to the s
0136B0: 63 72 65 65 6E 20 2A 2F 0D 0A 0D 0A 61 6E 64 20 creen */....and
0136C0: 77 72 69 74 65 64 28 6E 75 6D 2C 64 29 20 62 65 writed(num,d) be
0136D0: 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 74 65 ....$(.. LET te
0136E0: 6D 70 20 3D 20 56 45 43 20 32 30 0D 0A 20 20 41 mp = VEC 20.. A
0136F0: 4E 44 20 70 74 72 2C 20 6E 20 3D 20 30 2C 20 6E ND ptr, n = 0, n
013700: 75 6D 0D 0A 20 20 74 65 6D 70 21 70 74 72 2C 20 um.. temp!ptr,
013710: 6E 2C 20 70 74 72 20 3A 3D 20 6E 20 52 45 4D 20 n, ptr := n REM
013720: 31 30 2C 20 6E 2F 31 30 2C 20 70 74 72 2B 31 20 10, n/10, ptr+1
013730: 52 45 50 45 41 54 55 4E 54 49 4C 20 6E 20 3D 20 REPEATUNTIL n =
013740: 30 0D 0A 20 20 46 4F 52 20 6A 20 3D 20 70 74 72 0.. FOR j = ptr
013750: 2B 31 20 54 4F 20 64 20 44 4F 20 77 72 63 68 28 +1 TO d DO wrch(
013760: 27 30 27 29 0D 0A 20 20 46 4F 52 20 6A 20 3D 20 '0').. FOR j =
013770: 70 74 72 2D 31 20 54 4F 20 30 20 42 59 20 2D 31 ptr-1 TO 0 BY -1
013780: 20 44 4F 20 77 72 63 68 28 74 65 6D 70 21 6A 2B DO wrch(temp!j+
013790: 27 30 27 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 2F 2A '0')..$)....../*
0137A0: 20 54 68 69 73 20 72 6F 75 74 69 6E 65 20 70 72 This routine pr
0137B0: 69 6E 74 73 20 74 68 65 20 73 74 72 69 6E 67 20 ints the string
0137C0: 61 63 63 6F 72 64 69 6E 67 20 74 6F 20 73 74 61 according to sta
0137D0: 6E 64 61 72 64 20 66 6F 72 6D 61 74 20 2A 2F 0D ndard format */.
0137E0: 0A 0D 0A 41 4E 44 20 77 72 69 74 65 66 28 73 74 ...AND writef(st
0137F0: 72 69 6E 67 2C 61 2C 62 2C 63 2C 64 2C 65 2C 66 ring,a,b,c,d,e,f
013800: 20 20 20 2F 2F 20 70 6F 70 20 64 65 0D 0A 20 20 // pop de..
013810: 69 6E 6C 69 6E 65 20 32 35 20 20 20 20 20 20 20 inline 25
013820: 20 20 20 20 20 20 20 20 2F 2F 20 61 64 64 20 68 // add h
013830: 6C 2C 64 65 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 l,de.. inline 2
013840: 30 35 2C 23 78 41 41 2C 23 78 42 43 20 20 20 20 05,#xAA,#xBC
013850: 2F 2F 20 63 61 6C 6C 20 53 6F 75 6E 64 51 0D 0A // call SoundQ..
013860: 20 20 69 6E 6C 69 6E 65 20 32 32 31 2C 32 32 35 inline 221,225
013870: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 70 6F 70 // pop
013880: 20 69 78 0D 0A 24 29 0D 0A 0D 0A 4C 45 54 20 65 ix..$)....LET e
013890: 6E 74 28 6E 75 6D 62 65 72 2C 73 69 7A 65 2C 65 nt(number,size,e
0138A0: 6E 76 65 6C 6F 70 65 29 20 42 45 0D 0A 0D 0A 24 nvelope) BE....$
0138B0: 28 0D 0A 20 20 4C 45 54 20 61 30 2C 61 31 2C 61 (.. LET a0,a1,a
0138C0: 32 2C 61 33 2C 61 34 2C 61 35 2C 61 36 2C 61 37 2,a3,a4,a5,a6,a7
0138D0: 20 3D 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 = 0,0,0,0,0,0,0
0138E0: 2C 30 20 20 2F 2F 20 31 36 20 62 79 74 65 73 0D ,0 // 16 bytes.
0138F0: 0A 20 20 4C 45 54 20 65 6E 74 62 61 73 65 20 3D . LET entbase =
013900: 20 40 61 37 0D 0A 20 20 54 45 53 54 20 6E 75 6D @a7.. TEST num
013910: 62 65 72 3C 30 20 54 48 45 4E 0D 0A 20 20 24 28 ber<0 THEN.. $(
013920: 0D 0A 20 20 20 20 65 6E 74 62 61 73 65 25 30 20 .. entbase%0
013930: 3A 3D 20 73 69 7A 65 20 4C 4F 47 4F 52 20 31 32 := size LOGOR 12
013940: 38 0D 0A 20 20 20 20 6E 75 6D 62 65 72 20 3A 3D 8.. number :=
013950: 20 2D 6E 75 6D 62 65 72 0D 0A 20 20 24 29 0D 0A -number.. $)..
013960: 20 20 45 4C 53 45 20 65 6E 74 62 61 73 65 25 30 ELSE entbase%0
013970: 20 3A 3D 20 73 69 7A 65 0D 0A 20 20 46 4F 52 20 := size.. FOR
013980: 61 20 3D 20 31 20 54 4F 20 73 69 7A 65 2A 33 20 a = 1 TO size*3
013990: 42 59 20 33 0D 0A 20 20 24 28 0D 0A 20 20 20 20 BY 3.. $(..
0139A0: 65 6E 74 62 61 73 65 25 61 20 3A 3D 20 65 6E 76 entbase%a := env
0139B0: 65 6C 6F 70 65 21 28 61 2D 31 29 0D 0A 20 20 20 elope!(a-1)..
0139C0: 20 65 6E 74 62 61 73 65 25 28 61 2B 31 29 20 3A entbase%(a+1) :
0139D0: 3D 20 65 6E 76 65 6C 6F 70 65 21 61 0D 0A 20 20 = envelope!a..
0139E0: 20 20 65 6E 74 62 61 73 65 25 28 61 2B 32 29 20 entbase%(a+2)
0139F0: 3A 3D 20 65 6E 76 65 6C 6F 70 65 21 28 61 2B 31 := envelope!(a+1
013A00: 2C 67 2C 68 2C 69 2C 6A 2C 6B 29 20 42 45 0D 0A ,g,h,i,j,k) BE..
013A10: 0D 0A 24 28 0D 0A 20 20 47 4C 4F 42 41 4C 20 24 ..$(.. GLOBAL $
013A20: 28 20 6F 6E 65 20 3A 20 31 20 3B 20 74 77 6F 20 ( one : 1 ; two
013A30: 3A 20 32 20 24 29 0D 0A 20 20 4C 45 54 20 70 70 : 2 $).. LET pp
013A40: 74 72 20 3D 20 40 61 0D 0A 20 20 46 4F 52 20 63 tr = @a.. FOR c
013A50: 70 74 72 20 3D 20 31 20 54 4F 20 73 74 72 69 6E ptr = 1 TO strin
013A60: 67 25 30 20 44 4F 0D 0A 20 20 24 28 0D 0A 20 20 g%0 DO.. $(..
013A70: 20 20 4C 45 54 20 6B 20 3D 20 73 74 72 69 6E 67 LET k = string
013A80: 25 63 70 74 72 0D 0A 20 20 20 20 54 45 53 54 20 %cptr.. TEST
013A90: 6B 20 3D 20 27 25 27 20 54 48 45 4E 0D 0A 20 20 k = '%' THEN..
013AA0: 20 20 24 28 0D 0A 20 20 20 20 20 20 4C 45 54 20 $(.. LET
013AB0: 66 6F 72 6D 61 74 2C 20 61 72 67 2C 20 73 69 7A format, arg, siz
013AC0: 65 20 3D 20 77 72 63 68 2C 20 21 70 70 74 72 2C e = wrch, !pptr,
013AD0: 20 30 0D 0A 20 20 20 20 20 20 63 70 74 72 20 3A 0.. cptr :
013AE0: 3D 20 63 70 74 72 20 2B 20 31 0D 0A 20 20 20 20 = cptr + 1..
013AF0: 20 20 24 28 0D 0A 20 20 20 20 20 20 20 20 4C 45 $(.. LE
013B00: 54 20 63 68 20 3D 20 73 74 72 69 6E 67 25 63 70 T ch = string%cp
013B10: 74 72 0D 0A 20 20 20 20 20 20 20 20 53 57 49 54 tr.. SWIT
013B20: 43 48 4F 4E 20 63 68 20 49 4E 54 4F 0D 0A 20 20 CHON ch INTO..
013B30: 20 20 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 $(..
013B40: 20 20 20 20 64 65 66 61 75 6C 74 3A 20 77 72 63 default: wrc
013B50: 68 28 63 68 29 20 3B 20 65 6E 64 63 61 73 65 0D h(ch) ; endcase.
013B60: 0A 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 . case
013B70: 27 43 27 3A 20 66 6F 72 6D 61 74 20 3A 3D 20 77 'C': format := w
013B80: 72 63 68 20 3B 20 47 4F 54 4F 20 6F 6E 65 0D 0A rch ; GOTO one..
013B90: 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 27 case '
013BA0: 49 27 3A 20 66 6F 72 6D 61 74 20 3A 3D 20 77 72 I': format := wr
013BB0: 69 74 65 64 20 3B 20 47 4F 54 4F 20 74 77 6F 0D ited ; GOTO two.
013BC0: 0A 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20 . case
013BD0: 27 4E 27 3A 20 66 6F 72 6D 61 74 20 3A 3D 20 77 'N': format := w
013BE0: 72 69 74 65 64 20 3B 20 47 4F 54 4F 20 6F 6E 65 rited ; GOTO one
013BF0: 0D 0A 20 20 20 20 20 20 20 20 24 29 0D 0A 20 20 .. $)..
013C00: 29 0D 0A 20 20 24 29 0D 0A 20 20 69 6E 6C 69 6E ).. $).. inlin
013C10: 65 20 33 33 2C 31 30 30 2C 30 20 20 20 20 20 20 e 33,100,0
013C20: 20 20 20 2F 2F 20 6C 64 20 68 6C 2C 31 30 30 0D // ld hl,100.
013C30: 0A 20 20 69 6E 6C 69 6E 65 20 32 32 31 2C 32 32 . inline 221,22
013C40: 39 2C 32 32 31 2C 32 32 39 20 20 2F 2F 20 70 75 9,221,229 // pu
013C50: 73 68 20 69 78 2C 20 70 75 73 68 20 69 78 0D 0A sh ix, push ix..
013C60: 20 20 69 6E 6C 69 6E 65 20 32 30 39 20 20 20 20 inline 209
013C70: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 70 6F 70 // pop
013C80: 20 64 65 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 35 de.. inline 25
013C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2F /
013CA0: 2F 20 61 64 64 20 68 6C 2C 64 65 0D 0A 20 20 69 / add hl,de.. i
013CB0: 6E 6C 69 6E 65 20 32 32 31 2C 31 32 36 2C 31 32 nline 221,126,12
013CC0: 32 20 20 20 20 20 20 2F 2F 20 6C 64 20 61 2C 28 2 // ld a,(
013CD0: 69 78 2B 31 32 32 29 0D 0A 20 20 69 6E 6C 69 6E ix+122).. inlin
013CE0: 65 20 32 30 35 2C 23 78 42 46 2C 23 78 42 43 20 e 205,#xBF,#xBC
013CF0: 20 20 20 2F 2F 20 63 61 6C 6C 20 74 6F 6E 65 20 // call tone
013D00: 65 6E 76 65 6C 6F 70 65 0D 0A 20 20 69 6E 6C 69 envelope.. inli
013D10: 6E 65 20 32 32 31 2C 32 32 35 20 20 20 20 20 20 ne 221,225
013D20: 20 20 20 20 2F 2F 20 70 6F 70 20 69 78 0D 0A 24 // pop ix..$
013D30: 29 0D 0A 0D 0A 4D 41 4E 49 46 45 53 54 20 24 28 )....MANIFEST $(
013D40: 20 69 6E 76 61 64 65 72 31 20 3D 20 30 20 3B 20 invader1 = 0 ;
013D50: 69 6E 76 61 64 65 72 32 20 3D 20 34 20 3B 20 73 invader2 = 4 ; s
013D60: 68 69 70 31 20 3D 20 38 20 3B 20 73 68 69 70 32 hip1 = 8 ; ship2
013D70: 20 3D 20 31 32 0D 0A 20 20 20 20 20 20 20 20 20 = 12..
013D80: 20 20 20 67 75 6E 31 20 3D 20 31 36 20 3B 20 67 gun1 = 16 ; g
013D90: 75 6E 32 20 3D 20 32 30 20 3B 20 67 75 6E 33 20 un2 = 20 ; gun3
013DA0: 3D 20 32 34 20 3B 20 67 75 6E 34 20 3D 20 32 38 = 24 ; gun4 = 28
013DB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 6D 69 .. mi
013DC0: 73 73 69 6C 65 20 3D 20 33 32 20 3B 20 73 70 61 ssile = 32 ; spa
013DD0: 63 65 20 3D 20 33 36 20 3B 20 62 6F 6D 62 20 3D ce = 36 ; bomb =
013DE0: 20 34 30 20 3B 20 67 75 6E 66 72 65 71 20 3D 20 40 ; gunfreq =
013DF0: 31 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 10..
013E00: 20 20 20 20 20 20 74 77 6F 3A 20 63 70 74 72 20 two: cptr
013E10: 3A 3D 20 63 70 74 72 20 2B 20 31 0D 0A 20 20 20 := cptr + 1..
013E20: 20 20 20 20 20 20 20 20 20 20 63 68 20 3A 3D 20 ch :=
013E30: 73 74 72 69 6E 67 25 63 70 74 72 0D 0A 20 20 20 string%cptr..
013E40: 20 20 20 20 20 20 20 20 20 20 73 69 7A 65 20 3A size :
013E50: 3D 20 63 68 2D 27 30 27 0D 0A 20 20 20 20 20 20 = ch-'0'..
013E60: 20 20 6F 6E 65 3A 66 6F 72 6D 61 74 28 61 72 67 one:format(arg
013E70: 2C 73 69 7A 65 29 0D 0A 20 20 20 20 20 20 20 20 ,size)..
013E80: 20 20 20 20 70 70 74 72 20 3A 3D 20 70 70 74 72 pptr := pptr
013E90: 20 2B 20 31 0D 0A 20 20 20 20 20 20 24 29 0D 0A + 1.. $)..
013EA0: 20 20 20 20 24 29 0D 0A 20 20 20 20 45 4C 53 45 $).. ELSE
013EB0: 20 77 72 63 68 28 6B 29 0D 0A 20 20 24 29 0D 0A wrch(k).. $)..
013EC0: 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 72 61 6E 64 $)......LET rand
013ED0: 6F 6D 28 29 20 3D 20 56 41 4C 4F 46 0D 0A 0D 0A om() = VALOF....
013EE0: 24 28 0D 0A 20 20 47 4C 4F 42 41 4C 20 24 28 20 $(.. GLOBAL $(
013EF0: 73 65 65 64 20 3A 20 30 20 24 29 0D 0A 20 20 73 seed : 0 $).. s
013F00: 65 65 64 20 3A 3D 20 73 65 65 64 20 2A 20 23 78 eed := seed * #x
013F10: 41 33 45 44 20 2B 20 23 78 31 44 33 31 0D 0A 20 A3ED + #x1D31..
013F20: 20 52 45 53 55 4C 54 49 53 20 73 65 65 64 0D 0A RESULTIS seed..
013F30: 24 29 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 65 20 65 $)....../* The e
013F40: 6E 64 20 6F 66 20 74 68 65 20 73 74 61 6E 64 61 nd of the standa
013F50: 72 64 20 66 75 6E 63 74 69 6F 6E 20 6C 69 62 72 rd function libr
013F60: 61 72 79 20 2A 2F 0D 0A 0D 0A 4C 45 54 20 69 6E ary */....LET in
013F70: 6B 65 79 28 6B 65 79 29 20 3D 20 56 41 4C 4F 46 key(key) = VALOF
013F80: 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 72 65 ....$(.. LET re
013F90: 73 20 3D 20 30 0D 0A 20 20 69 6E 6C 69 6E 65 20 s = 0.. inline
013FA0: 32 32 31 2C 31 32 36 2C 31 32 36 20 20 20 20 20 221,126,126
013FB0: 20 2F 2F 20 6C 64 20 61 2C 28 69 78 2B 31 32 36 // ld a,(ix+126
013FC0: 29 0D 0A 20 20 69 6E 6C 69 6E 65 20 32 30 35 2C ).. inline 205,
013FD0: 23 78 31 45 2C 23 78 42 42 20 20 20 20 2F 2F 20 #x1E,#xBB //
013FE0: 63 61 6C 6C 20 74 65 73 74 6B 65 79 0D 0A 20 20 call testkey..
013FF0: 69 6E 6C 69 6E 65 20 34 30 2C 38 20 20 20 20 20 inline 40,8
014000: 6D 69 73 66 72 65 71 20 3D 20 35 20 3B 20 62 6F misfreq = 5 ; bo
014010: 6D 62 66 72 65 71 20 3D 20 31 30 20 3B 20 73 68 mbfreq = 10 ; sh
014020: 69 70 66 72 65 71 20 3D 20 31 35 20 24 29 0D 0A ipfreq = 15 $)..
014030: 0D 0A 47 4C 4F 42 41 4C 20 24 28 20 63 68 61 72 ..GLOBAL $( char
014040: 64 65 66 73 20 3A 20 30 20 3B 20 69 6E 76 70 6F defs : 0 ; invpo
014050: 73 20 3A 20 31 20 3B 20 78 64 69 72 20 3A 20 32 s : 1 ; xdir : 2
014060: 20 3B 20 65 78 69 74 20 3A 20 33 20 3B 20 67 75 ; exit : 3 ; gu
014070: 6E 78 20 3A 20 35 0D 0A 20 20 20 20 20 20 20 20 nx : 5..
014080: 20 20 65 78 69 74 76 65 63 20 3A 20 34 20 3B 20 exitvec : 4 ;
014090: 79 64 69 72 20 3A 20 37 20 3B 20 62 6F 6D 62 61 ydir : 7 ; bomba
0140A0: 72 72 61 79 20 3A 20 38 20 3B 20 69 6E 76 61 64 rray : 8 ; invad
0140B0: 65 72 73 20 3A 20 39 0D 0A 20 20 20 20 20 20 20 ers : 9..
0140C0: 20 20 20 67 61 6D 65 76 20 3A 20 31 30 20 3B 20 gamev : 10 ;
0140D0: 67 61 6D 65 65 6E 64 20 3A 20 31 31 20 3B 20 64 gameend : 11 ; d
0140E0: 65 6D 6F 64 69 72 20 3A 20 31 32 20 24 29 0D 0A emodir : 12 $)..
0140F0: 0D 0A 53 54 41 54 49 43 20 24 28 20 67 75 6E 63 ..STATIC $( gunc
014100: 68 6B 20 3D 20 67 75 6E 66 72 65 71 20 3B 20 79 hk = gunfreq ; y
014110: 73 74 61 72 74 20 3D 20 35 20 3B 20 73 63 6F 72 start = 5 ; scor
014120: 65 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 e = 0..
014130: 20 6D 65 6E 20 3D 20 33 20 3B 20 6D 69 73 63 68 men = 3 ; misch
014140: 6B 20 3D 20 6D 69 73 66 72 65 71 20 3B 20 6D 69 k = misfreq ; mi
014150: 73 70 6F 73 20 3D 20 30 20 3B 20 62 6F 6D 62 63 spos = 0 ; bombc
014160: 68 6B 20 3D 20 62 6F 6D 62 66 72 65 71 0D 0A 20 hk = bombfreq..
014170: 20 20 20 20 20 20 20 20 20 73 68 69 70 63 68 6B shipchk
014180: 20 3D 20 73 68 69 70 66 72 65 71 20 3B 20 73 68 = shipfreq ; sh
014190: 69 70 78 20 3D 20 30 20 3B 20 64 75 6D 63 68 6B ipx = 0 ; dumchk
0141A0: 20 3D 20 35 20 3B 20 66 6C 61 73 68 63 6E 74 20 = 5 ; flashcnt
0141B0: 3D 20 32 0D 0A 20 20 20 20 20 20 20 20 20 20 66 = 2.. f
0141C0: 6C 61 73 68 73 74 65 20 3D 20 46 41 4C 53 45 20 lashste = FALSE
0141D0: 24 29 0D 0A 0D 0A 4C 45 54 20 64 77 72 69 74 65 $)....LET dwrite
0141E0: 28 6D 61 74 72 69 78 2C 78 2C 79 29 20 42 45 0D (matrix,x,y) BE.
0141F0: 0A 0D 0A 24 28 0D 0A 20 20 53 54 41 54 49 43 20 ...$(.. STATIC
014200: 20 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 7A 2C // jr z,
014210: 2B 38 0D 0A 20 20 69 6E 6C 69 6E 65 20 36 32 2C +8.. inline 62,
014220: 32 35 35 20 20 20 20 20 20 20 20 20 20 20 2F 2F 255 //
014230: 20 6C 64 20 61 2C 32 35 35 0D 0A 20 20 69 6E 6C ld a,255.. inl
014240: 69 6E 65 20 32 32 31 2C 31 31 39 2C 31 31 39 20 ine 221,119,119
014250: 20 20 20 20 20 2F 2F 20 6C 64 20 28 69 78 2B 31 // ld (ix+1
014260: 31 39 29 2C 61 0D 0A 20 20 69 6E 6C 69 6E 65 20 19),a.. inline
014270: 32 32 31 2C 31 31 39 2C 31 31 38 20 20 20 20 20 221,119,118
014280: 20 2F 2F 20 6C 64 20 28 69 78 2B 31 31 38 29 2C // ld (ix+118),
014290: 61 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 72 65 a.. RESULTIS re
0142A0: 73 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 6B 65 79 s..$)....AND key
0142B0: 76 61 6C 69 64 28 29 20 3D 20 56 41 4C 4F 46 0D valid() = VALOF.
0142C0: 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 72 65 73 ...$(.. LET res
0142D0: 20 3D 20 32 35 35 0D 0A 20 20 69 6E 6C 69 6E 65 = 255.. inline
0142E0: 20 32 30 35 2C 23 78 31 42 2C 23 78 42 42 20 20 205,#x1B,#xBB
0142F0: 20 20 2F 2F 20 63 61 6C 6C 20 72 65 61 64 6B 65 // call readke
014300: 79 0D 0A 20 20 69 6E 6C 69 6E 65 20 34 38 2C 35 y.. inline 48,5
014310: 20 20 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 //
014320: 6A 72 20 6E 63 2C 2B 33 0D 0A 20 20 69 6E 6C 69 jr nc,+3.. inli
014330: 6E 65 20 32 32 31 2C 31 31 39 2C 31 32 30 20 20 ne 221,119,120
014340: 20 20 20 20 2F 2F 20 6C 64 20 28 69 78 2B 31 32 // ld (ix+12
014350: 30 29 2C 61 0D 0A 20 20 52 45 53 55 4C 54 49 53 0),a.. RESULTIS
014360: 20 72 65 73 0D 0A 24 29 0D 0A 0D 0A 2F 2A 20 54 res..$)..../* T
014370: 68 65 20 70 72 6F 62 6C 65 6D 20 77 69 74 68 20 he problem with
014380: 73 6F 75 6E 64 20 69 73 20 74 68 61 74 20 74 68 sound is that th
014390: 65 20 73 6F 75 6E 64 20 70 72 6F 67 72 61 6D 20 e sound program
0143A0: 6D 75 73 74 20 6C 69 65 20 69 6E 20 74 68 65 20 must lie in the
0143B0: 63 65 6E 74 72 65 20 33 32 6B 0D 0A 20 20 20 74 centre 32k.. t
0143C0: 6F 20 67 65 74 20 72 6F 75 6E 64 20 74 68 69 73 o get round this
0143D0: 20 61 20 6E 75 6D 62 65 72 20 6F 66 20 76 61 6C a number of val
0143E0: 75 65 73 20 61 72 65 20 64 65 63 6C 61 72 65 64 ues are declared
0143F0: 20 77 68 69 63 68 20 6C 69 65 20 6E 65 78 74 20 which lie next
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 00 02 02 09 4E E5 11 00 C1 02 00 00 00 02 ......N.........
014420: 11 00 C6 02 00 00 00 02 11 00 C2 02 00 00 00 02 ................
014430: 11 00 C7 02 00 00 00 02 11 00 C3 02 00 00 00 02 ................
014440: 11 00 C8 02 00 00 00 02 11 00 C4 02 00 00 00 02 ................
014450: 11 00 C9 02 00 00 00 02 11 00 C5 02 00 00 00 02 ................
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 24 28 20 73 63 72 65 65 6E 70 6F 73 20 3D 20 30 $( screenpos = 0
014510: 20 24 29 0D 0A 20 20 73 63 72 65 65 6E 70 6F 73 $).. screenpos
014520: 20 3A 3D 20 35 2A 79 2A 38 20 2B 20 28 78 3E 3E := 5*y*8 + (x>>
014530: 31 29 20 2B 20 23 78 36 30 30 30 0D 0A 20 20 6D 1) + #x6000.. m
014540: 61 74 72 69 78 20 3A 3D 20 6D 61 74 72 69 78 20 atrix := matrix
014550: 2B 20 63 68 61 72 64 65 66 73 0D 0A 20 20 54 45 + chardefs.. TE
014560: 53 54 20 28 78 20 4C 4F 47 41 4E 44 20 31 29 20 ST (x LOGAND 1)
014570: 3D 20 30 20 54 48 45 4E 0D 0A 20 20 24 28 0D 0A = 0 THEN.. $(..
014580: 20 20 20 20 20 73 63 72 65 65 6E 70 6F 73 25 30 screenpos%0
014590: 20 20 20 20 20 20 3A 3D 20 6D 61 74 72 69 78 25 := matrix%
0145A0: 30 0D 0A 20 20 20 20 20 73 63 72 65 65 6E 70 6F 0.. screenpo
0145B0: 73 25 23 78 38 30 30 20 20 3A 3D 20 6D 61 74 72 s%#x800 := matr
0145C0: 69 78 25 31 0D 0A 20 20 20 20 20 73 63 72 65 65 ix%1.. scree
0145D0: 6E 70 6F 73 25 23 78 31 30 30 30 20 3A 3D 20 6D npos%#x1000 := m
0145E0: 61 74 72 69 78 25 32 0D 0A 20 20 20 20 20 73 63 atrix%2.. sc
0145F0: 72 65 65 6E 70 6F 73 25 23 78 31 38 30 30 20 3A reenpos%#x1800 :
014600: 3D 20 6D 61 74 72 69 78 25 33 0D 0A 20 20 20 20 = matrix%3..
014610: 20 73 63 72 65 65 6E 70 6F 73 25 23 78 32 30 30 screenpos%#x200
014620: 30 20 3A 3D 20 6D 61 74 72 69 78 25 34 0D 0A 20 0 := matrix%4..
014630: 20 20 20 20 73 63 72 65 65 6E 70 6F 73 25 23 78 screenpos%#x
014640: 32 38 30 30 20 3A 3D 20 6D 61 74 72 69 78 25 35 2800 := matrix%5
014650: 0D 0A 20 20 20 20 20 73 63 72 65 65 6E 70 6F 73 .. screenpos
014660: 25 23 78 33 30 30 30 20 3A 3D 20 6D 61 74 72 69 %#x3000 := matri
014670: 78 25 36 0D 0A 20 20 20 20 20 73 63 72 65 65 6E x%6.. screen
014680: 70 6F 73 25 23 78 33 38 30 30 20 3A 3D 20 6D 61 pos%#x3800 := ma
014690: 74 72 69 78 25 37 0D 0A 20 20 24 29 0D 0A 20 20 trix%7.. $)..
0146A0: 45 4C 53 45 0D 0A 20 20 24 28 0D 0A 20 20 20 20 ELSE.. $(..
0146B0: 20 73 63 72 65 65 6E 70 6F 73 25 31 20 20 20 20 screenpos%1
0146C0: 20 20 3A 3D 20 6D 61 74 72 69 78 25 30 0D 0A 20 := matrix%0..
0146D0: 20 20 20 20 73 63 72 65 65 6E 70 6F 73 25 23 78 screenpos%#x
0146E0: 38 30 31 20 20 3A 3D 20 6D 61 74 72 69 78 25 31 801 := matrix%1
0146F0: 0D 0A 20 20 20 20 20 73 63 72 65 65 6E 70 6F 73 .. screenpos
014700: 2C 46 41 4C 53 45 2C 30 29 0D 0A 24 29 0D 0A 0D ,FALSE,0)..$)...
014710: 0A 0D 0A 41 4E 44 20 61 64 64 73 63 6F 72 65 28 ...AND addscore(
014720: 69 6E 63 72 65 6D 65 6E 74 29 20 42 45 0D 0A 0D increment) BE...
014730: 0A 24 28 0D 0A 20 20 73 63 6F 72 65 20 3A 3D 20 .$(.. score :=
014740: 73 63 6F 72 65 20 2B 20 69 6E 63 72 65 6D 65 6E score + incremen
014750: 74 0D 0A 20 20 70 72 69 6E 74 73 63 6F 72 65 28 t.. printscore(
014760: 73 63 6F 72 65 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A score)..$)......
014770: 0D 0A 4C 45 54 20 73 74 6F 70 6D 69 73 28 63 6F ..LET stopmis(co
014780: 6F 72 64 73 2C 65 78 70 6C 6F 64 65 29 20 42 45 ords,explode) BE
014790: 0D 0A 0D 0A 24 28 0D 0A 20 20 64 77 72 69 74 65 ....$(.. dwrite
0147A0: 28 73 70 61 63 65 2C 20 63 6F 6F 72 64 73 20 4C (space, coords L
0147B0: 4F 47 41 4E 44 20 23 78 46 46 2C 20 63 6F 6F 72 OGAND #xFF, coor
0147C0: 64 73 20 3E 3E 20 38 29 0D 0A 20 20 6D 69 73 70 ds >> 8).. misp
0147D0: 6F 73 20 3A 3D 20 30 0D 0A 20 20 70 72 69 6E 74 os := 0.. print
0147E0: 67 75 6E 28 67 75 6E 78 2C 67 75 6E 78 2C 46 41 gun(gunx,gunx,FA
0147F0: 4C 53 45 29 0D 0A 20 20 49 46 20 65 78 70 6C 6F LSE).. IF explo
014800: 64 65 20 54 48 45 4E 20 73 6F 75 6E 64 28 54 41 de THEN sound(TA
014810: 42 4C 45 20 31 2C 34 30 30 2C 31 35 2C 31 32 2C BLE 1,400,15,12,
014820: 30 2C 31 2C 30 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0,1,0)..$)......
014830: 0D 0A 4C 45 54 20 73 74 6F 70 73 68 69 70 28 78 ..LET stopship(x
014840: 70 6F 73 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 pos) BE....$(..
014850: 20 64 77 72 69 74 65 28 73 70 61 63 65 2C 78 70 dwrite(space,xp
014860: 6F 73 2C 32 29 20 3B 20 64 77 72 69 74 65 28 73 os,2) ; dwrite(s
014870: 70 61 63 65 2C 78 70 6F 73 2B 31 2C 32 29 0D 0A pace,xpos+1,2)..
014880: 20 20 73 68 69 70 78 20 3A 3D 20 30 0D 0A 20 20 shipx := 0..
014890: 73 6F 75 6E 64 28 54 41 42 4C 45 20 31 33 32 2C sound(TABLE 132,
0148A0: 31 30 30 2C 30 2C 30 2C 30 2C 30 2C 30 29 0D 0A 100,0,0,0,0,0)..
0148B0: 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C 45 54 20 73 74 $)........LET st
0148C0: 6F 70 67 75 6E 28 29 20 42 45 0D 0A 0D 0A 24 28 opgun() BE....$(
0148D0: 0D 0A 20 20 6D 65 6E 20 3A 3D 20 6D 65 6E 20 2D .. men := men -
0148E0: 20 31 0D 0A 20 20 49 46 20 6D 65 6E 3D 30 20 54 1.. IF men=0 T
0148F0: 48 45 4E 20 6C 6F 6E 67 6A 75 6D 70 28 67 61 6D HEN longjump(gam
014900: 25 23 78 31 30 30 31 20 3A 3D 20 6D 61 74 72 69 %#x1001 := matri
014910: 78 25 32 0D 0A 20 20 20 20 20 73 63 72 65 65 6E x%2.. screen
014920: 70 6F 73 25 23 78 31 38 30 31 20 3A 3D 20 6D 61 pos%#x1801 := ma
014930: 74 72 69 78 25 33 0D 0A 20 20 20 20 20 73 63 72 trix%3.. scr
014940: 65 65 6E 70 6F 73 25 23 78 32 30 30 31 20 3A 3D eenpos%#x2001 :=
014950: 20 6D 61 74 72 69 78 25 34 0D 0A 20 20 20 20 20 matrix%4..
014960: 73 63 72 65 65 6E 70 6F 73 25 23 78 32 38 30 31 screenpos%#x2801
014970: 20 3A 3D 20 6D 61 74 72 69 78 25 35 0D 0A 20 20 := matrix%5..
014980: 20 20 20 73 63 72 65 65 6E 70 6F 73 25 23 78 33 screenpos%#x3
014990: 30 30 31 20 3A 3D 20 6D 61 74 72 69 78 25 36 0D 001 := matrix%6.
0149A0: 0A 20 20 20 20 20 73 63 72 65 65 6E 70 6F 73 25 . screenpos%
0149B0: 23 78 33 38 30 31 20 3A 3D 20 6D 61 74 72 69 78 #x3801 := matrix
0149C0: 25 37 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A %7.. $)..$)....
0149D0: 0D 0A 4C 45 54 20 64 65 66 69 6E 65 73 68 61 70 ..LET defineshap
0149E0: 65 73 28 61 72 72 61 79 29 20 42 45 0D 0A 0D 0A es(array) BE....
0149F0: 24 28 0D 0A 20 20 46 4F 52 20 69 20 3D 20 30 20 $(.. FOR i = 0
014A00: 54 4F 20 38 37 0D 0A 20 20 20 20 61 72 72 61 79 TO 87.. array
014A10: 25 69 20 3A 3D 20 69 21 54 41 42 4C 45 20 36 36 %i := i!TABLE 66
014A20: 2C 33 36 2C 36 30 2C 39 30 2C 31 32 36 2C 36 30 ,36,60,90,126,60
014A30: 2C 33 36 2C 33 36 2C 20 20 20 20 20 20 2F 2F 20 ,36,36, //
014A40: 69 6E 76 61 64 65 72 0D 0A 20 20 20 20 20 20 20 invader..
014A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014A60: 33 36 2C 33 36 2C 36 30 2C 39 30 2C 31 32 36 2C 36,36,60,90,126,
014A70: 36 30 2C 33 36 2C 36 36 2C 20 20 20 20 20 20 2F 60,36,66, /
014A80: 2F 20 69 6E 76 61 64 65 72 0D 0A 20 20 20 20 20 / invader..
014A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014AA0: 20 20 31 35 2C 31 32 37 2C 32 35 35 2C 32 30 34 15,127,255,204
014AB0: 2C 32 30 34 2C 32 35 35 2C 31 32 37 2C 31 35 2C ,204,255,127,15,
014AC0: 20 2F 2F 20 73 68 69 70 31 0D 0A 20 20 20 20 20 // ship1..
014AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014AE0: 20 20 32 34 30 2C 32 35 34 2C 32 35 35 2C 35 31 240,254,255,51
014AF0: 2C 35 31 2C 32 35 35 2C 32 35 34 2C 32 34 30 2C ,51,255,254,240,
014B00: 65 65 6E 64 2C 67 61 6D 65 76 29 0D 0A 20 20 64 eend,gamev).. d
014B10: 65 6C 61 79 28 35 2C 46 41 4C 53 45 29 0D 0A 20 elay(5,FALSE)..
014B20: 20 46 4F 52 20 61 20 3D 20 62 6F 6D 62 61 72 72 FOR a = bombarr
014B30: 61 79 20 54 4F 20 62 6F 6D 62 61 72 72 61 79 20 ay TO bombarray
014B40: 2B 20 32 30 0D 0A 20 20 24 28 0D 0A 20 20 20 20 + 20.. $(..
014B50: 55 4E 4C 45 53 53 20 21 61 20 3D 20 30 20 54 48 UNLESS !a = 0 TH
014B60: 45 4E 0D 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 EN.. $(..
014B70: 20 20 4C 45 54 20 78 2C 79 20 3D 20 61 25 30 2C LET x,y = a%0,
014B80: 20 61 25 31 0D 0A 20 20 20 20 20 20 64 77 72 69 a%1.. dwri
014B90: 74 65 28 73 70 61 63 65 2C 78 2C 79 29 0D 0A 20 te(space,x,y)..
014BA0: 20 20 20 20 20 21 61 20 3A 3D 20 30 0D 0A 20 20 !a := 0..
014BB0: 20 20 24 29 0D 0A 20 20 24 29 0D 0A 20 20 70 72 $).. $).. pr
014BC0: 69 6E 74 67 75 6E 28 67 75 6E 78 2C 67 75 6E 78 intgun(gunx,gunx
014BD0: 2C 6D 69 73 70 6F 73 20 4E 45 20 30 29 0D 0A 20 ,mispos NE 0)..
014BE0: 20 77 72 69 74 65 66 28 22 25 43 25 43 25 43 20 writef("%C%C%C
014BF0: 20 20 22 2C 33 31 2C 6D 65 6E 2A 33 2B 31 2C 31 ",31,men*3+1,1
014C00: 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 20 68 )..$)......LET h
014C10: 69 74 63 68 6B 28 63 6F 6F 72 64 73 29 20 3D 20 itchk(coords) =
014C20: 56 41 4C 4F 46 0D 0A 0D 0A 24 28 0D 0A 20 20 4C VALOF....$(.. L
014C30: 45 54 20 6D 78 2C 20 6D 79 20 3D 20 63 6F 6F 72 ET mx, my = coor
014C40: 64 73 20 4C 4F 47 41 4E 44 20 23 78 46 46 2C 20 ds LOGAND #xFF,
014C50: 63 6F 6F 72 64 73 20 3E 3E 20 38 0D 0A 20 20 46 coords >> 8.. F
014C60: 4F 52 20 61 20 3D 20 69 6E 76 70 6F 73 20 54 4F OR a = invpos TO
014C70: 20 69 6E 76 70 6F 73 20 2B 20 33 39 0D 0A 20 20 invpos + 39..
014C80: 20 20 49 46 20 21 61 3D 63 6F 6F 72 64 73 20 54 IF !a=coords T
014C90: 48 45 4E 0D 0A 20 20 20 20 24 28 0D 0A 20 20 20 HEN.. $(..
014CA0: 20 20 20 61 64 64 73 63 6F 72 65 28 31 29 0D 0A addscore(1)..
014CB0: 20 20 20 20 20 20 73 74 6F 70 6D 69 73 28 63 6F stopmis(co
014CC0: 6F 72 64 73 2C 54 52 55 45 29 0D 0A 20 20 20 20 ords,TRUE)..
014CD0: 20 20 21 61 20 3A 3D 20 30 0D 0A 20 20 20 20 20 !a := 0..
014CE0: 20 69 6E 76 61 64 65 72 73 20 3A 3D 20 69 6E 76 invaders := inv
014CF0: 61 64 65 72 73 20 2D 20 31 0D 0A 20 20 20 20 20 aders - 1..
014D00: 20 2F 2F 20 73 68 69 70 32 0D 0A 20 20 20 20 20 // ship2..
014D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014D20: 20 20 30 2C 30 2C 30 2C 30 2C 31 35 2C 38 2C 38 0,0,0,0,15,8,8
014D30: 2C 32 35 35 2C 20 20 20 20 20 20 20 20 20 20 20 ,255,
014D40: 20 2F 2F 20 67 75 6E 31 0D 0A 20 20 20 20 20 20 // gun1..
014D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014D60: 20 32 34 2C 32 35 35 2C 31 32 39 2C 31 32 39 2C 24,255,129,129,
014D70: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 255,255,255,255,
014D80: 2F 2F 20 67 75 6E 32 0D 0A 20 20 20 20 20 20 20 // gun2..
014D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014DA0: 30 2C 30 2C 32 34 2C 32 35 35 2C 32 35 35 2C 32 0,0,24,255,255,2
014DB0: 35 35 2C 32 35 35 2C 32 35 35 2C 20 20 20 20 2F 55,255,255, /
014DC0: 2F 20 67 75 6E 33 0D 0A 20 20 20 20 20 20 20 20 / gun3..
014DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0
014DE0: 2C 30 2C 30 2C 30 2C 32 34 30 2C 31 36 2C 31 36 ,0,0,0,240,16,16
014DF0: 2C 32 35 35 2C 20 20 20 20 20 20 20 20 20 2F 2F ,255, //
014E00: 20 67 75 6E 34 0D 0A 20 20 20 20 20 20 20 20 20 gun4..
014E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 36 16
014E20: 2C 35 36 2C 35 36 2C 35 36 2C 35 36 2C 35 36 2C ,56,56,56,56,56,
014E30: 31 32 34 2C 32 31 34 2C 20 20 20 20 20 2F 2F 20 124,214, //
014E40: 6D 69 73 73 69 6C 65 0D 0A 20 20 20 20 20 20 20 missile..
014E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014E60: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 0,0,0,0,0,0,0,0,
014E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2F /
014E80: 2F 20 73 70 61 63 65 0D 0A 20 20 20 20 20 20 20 / space..
014E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
014EA0: 30 2C 36 30 2C 32 34 2C 36 30 2C 36 30 2C 36 30 0,60,24,60,60,60
014EB0: 2C 32 34 2C 30 20 20 20 20 20 20 20 20 20 20 2F ,24,0 /
014EC0: 2F 20 62 6F 6D 62 0D 0A 24 29 0D 0A 0D 0A 0D 0A / bomb..$)......
014ED0: 4C 45 54 20 64 65 6C 61 79 28 74 69 6D 65 2C 6B LET delay(time,k
014EE0: 65 79 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 ey) BE....$(..
014EF0: 46 4F 52 20 6F 75 74 65 72 20 3D 20 31 20 54 4F FOR outer = 1 TO
014F00: 20 52 45 53 55 4C 54 49 53 20 54 52 55 45 0D 0A RESULTIS TRUE..
014F10: 20 20 20 20 24 29 0D 0A 20 20 49 46 20 6D 79 20 $).. IF my
014F20: 3D 20 32 20 4C 4F 47 41 4E 44 20 28 30 3C 3D 6D = 2 LOGAND (0<=m
014F30: 78 2D 73 68 69 70 78 3C 3D 31 29 20 54 48 45 4E x-shipx<=1) THEN
014F40: 0D 0A 20 20 24 28 20 73 74 6F 70 73 68 69 70 28 .. $( stopship(
014F50: 73 68 69 70 78 29 20 3B 20 73 74 6F 70 6D 69 73 shipx) ; stopmis
014F60: 28 63 6F 6F 72 64 73 2C 54 52 55 45 29 20 3B 20 (coords,TRUE) ;
014F70: 61 64 64 73 63 6F 72 65 28 31 30 29 20 3B 20 52 addscore(10) ; R
014F80: 45 53 55 4C 54 49 53 20 54 52 55 45 20 24 29 0D ESULTIS TRUE $).
014F90: 0A 20 20 52 45 53 55 4C 54 49 53 20 46 41 4C 53 . RESULTIS FALS
014FA0: 45 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 0D 0A 4C E..$)..........L
014FB0: 45 54 20 6D 6F 76 65 73 68 69 70 28 29 20 42 45 ET moveship() BE
014FC0: 0D 0A 0D 0A 24 28 0D 0A 20 20 73 68 69 70 63 68 ....$(.. shipch
014FD0: 6B 20 3A 3D 20 73 68 69 70 63 68 6B 20 2D 20 31 k := shipchk - 1
014FE0: 0D 0A 20 20 49 46 20 73 68 69 70 63 68 6B 20 3D .. IF shipchk =
014FF0: 20 30 20 54 48 45 4E 0D 0A 20 20 24 28 0D 0A 20 0 THEN.. $(..
015000: 20 20 20 73 68 69 70 63 68 6B 20 3A 3D 20 73 68 shipchk := sh
015010: 69 70 66 72 65 71 0D 0A 20 20 20 20 49 46 20 73 ipfreq.. IF s
015020: 68 69 70 78 20 3D 20 30 20 4C 4F 47 41 4E 44 20 hipx = 0 LOGAND
015030: 72 61 6E 64 6F 6D 28 29 20 3E 20 33 31 30 30 30 random() > 31000
015040: 20 54 48 45 4E 0D 0A 20 20 20 20 24 28 20 73 68 THEN.. $( sh
015050: 69 70 78 20 3A 3D 20 31 20 3B 20 73 6F 75 6E 64 ipx := 1 ; sound
015060: 28 54 41 42 4C 45 20 31 33 32 2C 32 30 30 2C 31 (TABLE 132,200,1
015070: 30 30 30 30 2C 38 2C 30 2C 32 2C 30 29 20 24 29 0000,8,0,2,0) $)
015080: 0D 0A 20 20 20 20 49 46 20 73 68 69 70 78 20 3D .. IF shipx =
015090: 20 30 20 54 48 45 4E 20 52 45 54 55 52 4E 0D 0A 0 THEN RETURN..
0150A0: 20 20 20 20 64 77 72 69 74 65 28 73 70 61 63 65 dwrite(space
0150B0: 2C 73 68 69 70 78 2C 32 29 0D 0A 20 20 20 20 73 ,shipx,2).. s
0150C0: 68 69 70 78 20 3A 3D 20 73 68 69 70 78 20 2B 20 hipx := shipx +
0150D0: 31 0D 0A 20 20 20 20 49 46 20 73 68 69 70 78 20 1.. IF shipx
0150E0: 3D 20 37 38 20 54 48 45 4E 20 24 28 20 73 74 6F = 78 THEN $( sto
0150F0: 70 73 68 69 70 28 37 38 29 20 3B 20 52 45 54 55 pship(78) ; RETU
015100: 20 74 69 6D 65 0D 0A 20 20 20 20 46 4F 52 20 69 time.. FOR i
015110: 6E 6E 65 72 20 3D 20 31 20 54 4F 20 35 30 30 30 nner = 1 TO 5000
015120: 20 49 46 20 6B 65 79 20 54 48 45 4E 20 49 46 20 IF key THEN IF
015130: 69 6E 6B 65 79 28 34 37 29 20 54 48 45 4E 20 42 inkey(47) THEN B
015140: 52 45 41 4B 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 REAK..$)......LE
015150: 54 20 70 72 69 6E 74 61 6C 69 65 6E 73 28 63 68 T printaliens(ch
015160: 61 72 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 ar) BE....$(..
015170: 46 4F 52 20 61 20 3D 20 30 20 54 4F 20 33 39 0D FOR a = 0 TO 39.
015180: 0A 20 20 20 20 64 77 72 69 74 65 28 63 68 61 72 . dwrite(char
015190: 2C 20 28 69 6E 76 70 6F 73 2B 61 29 25 30 2C 20 , (invpos+a)%0,
0151A0: 28 69 6E 76 70 6F 73 2B 61 29 25 31 29 0D 0A 24 (invpos+a)%1)..$
0151B0: 29 0D 0A 0D 0A 0D 0A 41 4E 44 20 6E 65 77 61 6C )......AND newal
0151C0: 69 65 6E 73 28 29 20 42 45 0D 0A 0D 0A 24 28 0D iens() BE....$(.
0151D0: 0A 20 20 4C 45 54 20 61 20 3D 20 30 0D 0A 20 20 . LET a = 0..
0151E0: 46 4F 52 20 63 6F 6C 75 6D 6E 20 3D 20 30 20 54 FOR column = 0 T
0151F0: 4F 20 37 0D 0A 20 20 20 20 46 4F 52 20 72 6F 77 O 7.. FOR row
015200: 20 3D 20 30 20 54 4F 20 34 0D 0A 20 20 20 20 20 = 0 TO 4..
015210: 20 24 28 0D 0A 20 20 20 20 20 20 20 20 61 20 3A $(.. a :
015220: 3D 20 63 6F 6C 75 6D 6E 20 2B 20 72 6F 77 20 2A = column + row *
015230: 20 38 0D 0A 20 20 20 20 20 20 20 20 28 69 6E 76 8.. (inv
015240: 70 6F 73 2B 61 29 25 30 20 3A 3D 20 63 6F 6C 75 pos+a)%0 := colu
015250: 6D 6E 20 2A 20 32 20 2B 20 32 0D 0A 20 20 20 20 mn * 2 + 2..
015260: 20 20 20 20 28 69 6E 76 70 6F 73 2B 61 29 25 31 (invpos+a)%1
015270: 20 3A 3D 20 72 6F 77 20 2A 20 32 20 2B 20 79 73 := row * 2 + ys
015280: 74 61 72 74 0D 0A 20 20 20 20 20 20 24 29 0D 0A tart.. $)..
015290: 20 20 70 72 69 6E 74 61 6C 69 65 6E 73 28 69 6E printaliens(in
0152A0: 76 61 64 65 72 31 29 0D 0A 20 20 69 6E 76 61 64 vader1).. invad
0152B0: 65 72 73 2C 20 79 73 74 61 72 74 20 3A 3D 20 34 ers, ystart := 4
0152C0: 30 2C 20 79 73 74 61 72 74 20 2B 20 31 0D 0A 20 0, ystart + 1..
0152D0: 20 78 64 69 72 2C 20 79 64 69 72 20 3A 3D 20 31 xdir, ydir := 1
0152E0: 2C 20 30 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 0A 4C , 0..$)........L
0152F0: 45 54 20 67 75 6E 70 72 69 6E 74 28 6F 6C 64 78 ET gunprint(oldx
015300: 52 4E 20 24 29 0D 0A 20 20 20 20 49 46 20 6D 69 RN $).. IF mi
015310: 73 70 6F 73 20 4E 45 20 30 20 54 48 45 4E 0D 0A spos NE 0 THEN..
015320: 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 4C 45 $(.. LE
015330: 54 20 6D 78 2C 20 6D 79 20 3D 20 6D 69 73 70 6F T mx, my = mispo
015340: 73 20 4C 4F 47 41 4E 44 20 23 78 46 46 2C 20 6D s LOGAND #xFF, m
015350: 69 73 70 6F 73 20 3E 3E 20 38 0D 0A 20 20 20 20 ispos >> 8..
015360: 20 20 49 46 20 6D 79 20 3D 20 32 20 4C 4F 47 41 IF my = 2 LOGA
015370: 4E 44 20 30 3C 3D 28 6D 78 2D 73 68 69 70 78 29 ND 0<=(mx-shipx)
015380: 3C 3D 31 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 <=1 THEN..
015390: 24 28 0D 0A 20 20 20 20 20 20 20 20 73 74 6F 70 $(.. stop
0153A0: 73 68 69 70 28 73 68 69 70 78 29 20 3B 20 73 74 ship(shipx) ; st
0153B0: 6F 70 6D 69 73 28 6D 69 73 70 6F 73 2C 54 52 55 opmis(mispos,TRU
0153C0: 45 29 20 3B 20 61 64 64 73 63 6F 72 65 28 31 30 E) ; addscore(10
0153D0: 29 20 3B 20 52 45 54 55 52 4E 0D 0A 20 20 20 20 ) ; RETURN..
0153E0: 20 20 24 29 0D 0A 20 20 20 20 24 29 0D 0A 20 20 $).. $)..
0153F0: 20 20 64 77 72 69 74 65 28 73 68 69 70 31 2C 73 dwrite(ship1,s
015400: 68 69 70 78 2C 32 29 20 3B 20 64 77 72 69 74 65 hipx,2) ; dwrite
015410: 28 73 68 69 70 32 2C 73 68 69 70 78 2B 31 2C 32 (ship2,shipx+1,2
015420: 29 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D ).. $)..$).....
015430: 0A 0D 0A 0D 0A 4C 45 54 20 6D 6F 76 65 6D 69 73 .....LET movemis
015440: 28 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 6D () BE....$(.. m
015450: 69 73 63 68 6B 20 3A 3D 20 6D 69 73 63 68 6B 20 ischk := mischk
015460: 2D 20 31 0D 0A 20 20 49 46 20 6D 69 73 63 68 6B - 1.. IF mischk
015470: 20 3D 20 30 20 54 48 45 4E 0D 0A 20 20 24 28 0D = 0 THEN.. $(.
015480: 0A 20 20 20 20 6D 69 73 63 68 6B 20 3A 3D 20 6D . mischk := m
015490: 69 73 66 72 65 71 0D 0A 20 20 20 20 55 4E 4C 45 isfreq.. UNLE
0154A0: 53 53 20 6D 69 73 70 6F 73 3D 30 20 54 48 45 4E SS mispos=0 THEN
0154B0: 0D 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 .. $(..
0154C0: 4C 45 54 20 6D 69 73 78 2C 20 6D 69 73 79 20 3D LET misx, misy =
0154D0: 20 6D 69 73 70 6F 73 20 4C 4F 47 41 4E 44 20 23 mispos LOGAND #
0154E0: 78 46 46 2C 20 6D 69 73 70 6F 73 20 3E 3E 20 38 xFF, mispos >> 8
0154F0: 0D 0A 20 20 20 20 20 20 49 46 20 6D 69 73 79 20 .. IF misy
015500: 2C 6E 65 77 78 2C 66 69 72 69 6E 67 2C 79 29 20 ,newx,firing,y)
015510: 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 49 46 20 6F BE....$(.. IF o
015520: 6C 64 78 3E 6E 65 77 78 20 54 48 45 4E 20 64 77 ldx>newx THEN dw
015530: 72 69 74 65 28 73 70 61 63 65 2C 6F 6C 64 78 2B rite(space,oldx+
015540: 31 2C 79 29 0D 0A 20 20 49 46 20 6F 6C 64 78 3C 1,y).. IF oldx<
015550: 6E 65 77 78 20 54 48 45 4E 20 64 77 72 69 74 65 newx THEN dwrite
015560: 28 73 70 61 63 65 2C 6F 6C 64 78 2D 31 2C 79 29 (space,oldx-1,y)
015570: 0D 0A 20 20 64 77 72 69 74 65 28 67 75 6E 31 2C .. dwrite(gun1,
015580: 20 6E 65 77 78 2D 31 2C 20 79 29 0D 0A 20 20 54 newx-1, y).. T
015590: 45 53 54 20 66 69 72 69 6E 67 20 54 48 45 4E 20 EST firing THEN
0155A0: 64 77 72 69 74 65 28 67 75 6E 33 2C 6E 65 77 78 dwrite(gun3,newx
0155B0: 2C 79 29 20 45 4C 53 45 20 64 77 72 69 74 65 28 ,y) ELSE dwrite(
0155C0: 67 75 6E 32 2C 6E 65 77 78 2C 79 29 0D 0A 20 20 gun2,newx,y)..
0155D0: 64 77 72 69 74 65 28 67 75 6E 34 2C 20 6E 65 77 dwrite(gun4, new
0155E0: 78 2B 31 2C 20 79 29 0D 0A 24 29 0D 0A 0D 0A 41 x+1, y)..$)....A
0155F0: 4E 44 20 70 72 69 6E 74 67 75 6E 28 6F 6C 64 78 ND printgun(oldx
015600: 2C 6E 65 77 78 2C 66 69 72 69 6E 67 29 20 42 45 ,newx,firing) BE
015610: 0D 0A 0D 0A 24 28 0D 0A 20 20 67 75 6E 70 72 69 ....$(.. gunpri
015620: 6E 74 28 6F 6C 64 78 2C 6E 65 77 78 2C 66 69 72 nt(oldx,newx,fir
015630: 69 6E 67 2C 32 33 29 0D 0A 24 29 0D 0A 0D 0A 0D ing,23)..$).....
015640: 0A 4C 45 54 20 70 72 69 6E 74 73 63 6F 72 65 28 .LET printscore(
015650: 73 63 6F 72 65 29 20 42 45 0D 0A 0D 0A 24 28 0D score) BE....$(.
015660: 0A 20 20 77 72 69 74 65 66 28 22 25 43 25 43 25 . writef("%C%C%
015670: 43 53 63 6F 72 65 3A 25 49 34 30 22 2C 33 31 2C CScore:%I40",31,
015680: 33 35 2C 31 2C 73 63 6F 72 65 29 0D 0A 24 29 0D 35,1,score)..$).
015690: 0A 0D 0A 0D 0A 41 4E 44 20 73 63 72 65 65 6E 28 .....AND screen(
0156A0: 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 77 72 ) BE....$(.. wr
0156B0: 63 68 28 34 29 20 3B 20 77 72 63 68 28 32 29 0D ch(4) ; wrch(2).
0156C0: 0A 20 20 70 72 69 6E 74 73 63 6F 72 65 28 73 63 . printscore(sc
0156D0: 6F 72 65 29 0D 0A 20 20 46 4F 52 20 78 20 3D 20 ore).. FOR x =
0156E0: 31 20 54 4F 20 37 20 42 59 20 33 20 44 4F 0D 0A 1 TO 7 BY 3 DO..
0156F0: 20 20 20 20 67 75 6E 70 72 69 6E 74 28 78 2C 78 gunprint(x,x
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 00 02 02 09 4E E5 12 00 C1 02 00 00 00 02 ......N.........
015720: 12 00 C6 02 00 00 00 02 12 00 C2 02 00 00 00 02 ................
015730: 12 00 C7 02 00 00 00 02 12 00 C3 02 00 00 00 02 ................
015740: 12 00 C8 02 00 00 00 02 12 00 C4 02 00 00 00 02 ................
015750: 12 00 C9 02 00 00 00 02 12 00 C5 02 00 00 00 02 ................
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 4E 45 20 32 33 20 54 48 45 4E 20 64 77 72 69 74 NE 23 THEN dwrit
015810: 65 28 73 70 61 63 65 2C 6D 69 73 78 2C 6D 69 73 e(space,misx,mis
015820: 79 29 0D 0A 20 20 20 20 20 20 6D 69 73 79 20 3A y).. misy :
015830: 3D 20 6D 69 73 79 20 2D 20 31 0D 0A 20 20 20 20 = misy - 1..
015840: 20 20 54 45 53 54 20 6D 69 73 79 20 3D 20 31 20 TEST misy = 1
015850: 54 48 45 4E 20 73 74 6F 70 6D 69 73 28 6D 69 73 THEN stopmis(mis
015860: 70 6F 73 2C 46 41 4C 53 45 29 0D 0A 20 20 20 20 pos,FALSE)..
015870: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 24 28 ELSE.. $(
015880: 0D 0A 20 20 20 20 20 20 20 20 6D 69 73 70 6F 73 .. mispos
015890: 20 3A 3D 20 6D 69 73 78 20 2B 20 6D 69 73 79 20 := misx + misy
0158A0: 2A 20 32 35 36 0D 0A 20 20 20 20 20 20 20 20 55 * 256.. U
0158B0: 4E 4C 45 53 53 20 68 69 74 63 68 6B 28 6D 69 73 NLESS hitchk(mis
0158C0: 70 6F 73 29 20 54 48 45 4E 20 64 77 72 69 74 65 pos) THEN dwrite
0158D0: 28 6D 69 73 73 69 6C 65 2C 6D 69 73 78 2C 6D 69 (missile,misx,mi
0158E0: 73 79 29 0D 0A 20 20 20 20 20 20 24 29 0D 0A 20 sy).. $)..
0158F0: 20 20 20 24 29 0D 0A 20 20 24 29 0D 0A 24 29 0D $).. $)..$).
015900: 0A 0D 0A 0D 0A 41 4E 44 20 6D 6F 76 65 67 75 6E .....AND movegun
015910: 28 6C 66 6C 61 67 2C 72 66 6C 61 67 2C 66 66 6C (lflag,rflag,ffl
015920: 61 67 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 ag) BE....$(..
015930: 4C 45 54 20 6F 6C 64 78 2C 20 6F 6C 64 6D 70 20 LET oldx, oldmp
015940: 3D 20 67 75 6E 78 2C 20 6D 69 73 70 6F 73 0D 0A = gunx, mispos..
015950: 20 20 49 46 20 67 75 6E 78 3E 33 20 4C 4F 47 41 IF gunx>3 LOGA
015960: 4E 44 20 6C 66 6C 61 67 20 54 48 45 4E 20 67 75 ND lflag THEN gu
015970: 6E 78 20 3A 3D 20 67 75 6E 78 20 2D 20 31 0D 0A nx := gunx - 1..
015980: 20 20 49 46 20 67 75 6E 78 3C 37 37 20 4C 4F 47 IF gunx<77 LOG
015990: 41 4E 44 20 72 66 6C 61 67 20 54 48 45 4E 20 67 AND rflag THEN g
0159A0: 75 6E 78 20 3A 3D 20 67 75 6E 78 20 2B 20 31 0D unx := gunx + 1.
0159B0: 0A 20 20 49 46 20 6D 69 73 70 6F 73 20 3D 20 30 . IF mispos = 0
0159C0: 20 4C 4F 47 41 4E 44 20 66 66 6C 61 67 20 54 48 LOGAND fflag TH
0159D0: 45 4E 0D 0A 20 20 24 28 0D 0A 20 20 20 20 6D 69 EN.. $(.. mi
0159E0: 73 70 6F 73 20 3A 3D 20 67 75 6E 78 20 2B 20 32 spos := gunx + 2
0159F0: 33 20 2A 20 32 35 36 0D 0A 20 20 20 20 6D 6F 76 3 * 256.. mov
015A00: 67 65 64 20 3D 20 46 41 4C 53 45 0D 0A 20 20 49 ged = FALSE.. I
015A10: 46 20 69 6E 76 61 64 65 72 73 20 3D 20 30 20 54 F invaders = 0 T
015A20: 48 45 4E 20 6E 65 77 61 6C 69 65 6E 73 28 29 0D HEN newaliens().
015A30: 0A 20 20 46 4F 52 20 61 20 3D 20 30 20 54 4F 20 . FOR a = 0 TO
015A40: 37 20 24 28 20 6C 6F 77 65 73 74 78 21 61 20 3A 7 $( lowestx!a :
015A50: 3D 20 30 20 3B 20 6C 6F 77 65 73 74 79 21 61 20 = 0 ; lowesty!a
015A60: 3A 3D 20 30 20 24 29 0D 0A 20 20 46 4F 52 20 61 := 0 $).. FOR a
015A70: 20 3D 20 69 6E 76 70 6F 73 20 54 4F 20 69 6E 76 = invpos TO inv
015A80: 70 6F 73 20 2B 20 33 39 0D 0A 20 20 24 28 0D 0A pos + 39.. $(..
015A90: 20 20 20 20 55 4E 4C 45 53 53 20 21 61 20 3D 20 UNLESS !a =
015AA0: 30 20 54 48 45 4E 0D 0A 20 20 20 20 24 28 0D 0A 0 THEN.. $(..
015AB0: 20 20 20 20 20 20 4C 45 54 20 78 70 6F 73 2C 20 LET xpos,
015AC0: 79 70 6F 73 2C 20 63 6F 6D 62 69 6E 65 64 20 3D ypos, combined =
015AD0: 20 61 25 30 2C 20 61 25 31 2C 20 30 0D 0A 20 20 a%0, a%1, 0..
015AE0: 20 20 20 20 64 77 72 69 74 65 28 73 70 61 63 65 dwrite(space
015AF0: 2C 20 78 70 6F 73 2C 20 79 70 6F 73 29 0D 0A 20 , xpos, ypos)..
015B00: 20 20 20 20 20 78 70 6F 73 20 3A 3D 20 78 70 6F xpos := xpo
015B10: 73 20 2B 20 78 64 69 72 0D 0A 20 20 20 20 20 20 s + xdir..
015B20: 79 70 6F 73 20 3A 3D 20 79 70 6F 73 20 2B 20 79 ypos := ypos + y
015B30: 64 69 72 0D 0A 20 20 20 20 20 20 49 46 20 79 70 dir.. IF yp
015B40: 6F 73 20 3D 20 32 33 20 54 48 45 4E 0D 0A 20 20 os = 23 THEN..
015B50: 20 20 20 20 24 28 20 77 72 69 74 65 66 28 22 25 $( writef("%
015B60: 43 25 43 25 43 49 4E 56 41 44 45 44 22 2C 33 31 C%C%CINVADED",31
015B70: 2C 33 37 2C 31 35 29 20 3B 20 6D 65 6E 20 3A 3D ,37,15) ; men :=
015B80: 20 30 20 24 29 0D 0A 20 20 20 20 20 20 61 64 64 0 $).. add
015B90: 6C 6F 77 28 6C 6F 77 65 73 74 78 2C 6C 6F 77 65 low(lowestx,lowe
015BA0: 73 74 79 2C 78 70 6F 73 2C 79 70 6F 73 29 0D 0A sty,xpos,ypos)..
015BB0: 20 20 20 20 20 20 49 46 20 78 70 6F 73 3C 33 20 IF xpos<3
015BC0: 4C 4F 47 4F 52 20 78 70 6F 73 3E 37 37 20 54 48 LOGOR xpos>77 TH
015BD0: 45 4E 20 63 68 61 6E 67 65 64 20 3A 3D 20 54 52 EN changed := TR
015BE0: 55 45 0D 0A 20 20 20 20 20 20 63 6F 6D 62 69 6E UE.. combin
015BF0: 65 64 20 3A 3D 20 78 70 6F 73 20 2B 20 79 70 6F ed := xpos + ypo
015C00: 65 6D 69 73 28 29 0D 0A 20 20 24 29 0D 0A 20 20 emis().. $)..
015C10: 46 4F 52 20 61 20 3D 20 62 6F 6D 62 61 72 72 61 FOR a = bombarra
015C20: 79 20 54 4F 20 62 6F 6D 62 61 72 72 61 79 20 2B y TO bombarray +
015C30: 20 32 30 20 44 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 DO.. $(..
015C40: 20 20 4C 45 54 20 78 2C 79 20 3D 20 61 25 30 2C LET x,y = a%0,
015C50: 20 61 25 31 0D 0A 20 20 20 20 49 46 20 79 3D 32 a%1.. IF y=2
015C60: 33 20 4C 4F 47 41 4E 44 20 28 41 42 53 28 67 75 3 LOGAND (ABS(gu
015C70: 6E 78 2D 78 29 29 3C 3D 31 20 54 48 45 4E 20 73 nx-x))<=1 THEN s
015C80: 74 6F 70 67 75 6E 28 29 0D 0A 20 20 24 29 0D 0A topgun().. $)..
015C90: 20 20 55 4E 4C 45 53 53 20 6F 6C 64 78 3D 67 75 UNLESS oldx=gu
015CA0: 6E 78 20 4C 4F 47 41 4E 44 20 6F 6C 64 6D 70 3D nx LOGAND oldmp=
015CB0: 6D 69 73 70 6F 73 20 54 48 45 4E 20 70 72 69 6E mispos THEN prin
015CC0: 74 67 75 6E 28 6F 6C 64 78 2C 67 75 6E 78 2C 6D tgun(oldx,gunx,m
015CD0: 69 73 70 6F 73 20 4E 45 20 30 29 0D 0A 24 29 0D ispos NE 0)..$).
015CE0: 0A 0D 0A 0D 0A 0D 0A 4C 45 54 20 72 65 61 6C 67 .......LET realg
015CF0: 75 6E 28 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 un() BE....$(..
015D00: 20 67 75 6E 63 68 6B 20 3A 3D 20 67 75 6E 63 68 gunchk := gunch
015D10: 6B 20 2D 20 31 0D 0A 20 20 49 46 20 67 75 6E 63 k - 1.. IF gunc
015D20: 68 6B 20 3D 20 30 20 54 48 45 4E 0D 0A 20 20 24 hk = 0 THEN.. $
015D30: 28 0D 0A 20 20 20 20 67 75 6E 63 68 6B 20 3A 3D (.. gunchk :=
015D40: 20 67 75 6E 66 72 65 71 0D 0A 20 20 20 20 6D 6F gunfreq.. mo
015D50: 76 65 67 75 6E 28 69 6E 6B 65 79 28 37 31 29 2C vegun(inkey(71),
015D60: 69 6E 6B 65 79 28 36 33 29 2C 69 6E 6B 65 79 28 inkey(63),inkey(
015D70: 31 38 29 29 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 18)).. $)..$)..
015D80: 0D 0A 0D 0A 0D 0A 4C 45 54 20 64 65 6D 6F 67 75 ......LET demogu
015D90: 6E 28 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 n() BE....$(..
015DA0: 67 75 6E 63 68 6B 20 3A 3D 20 67 75 6E 63 68 6B gunchk := gunchk
015DB0: 20 2D 20 31 0D 0A 20 20 49 46 20 67 75 6E 63 68 - 1.. IF gunch
015DC0: 6B 20 3D 20 30 20 54 48 45 4E 0D 0A 20 20 24 28 k = 0 THEN.. $(
015DD0: 0D 0A 20 20 20 20 66 6C 61 73 68 63 6E 74 20 3A .. flashcnt :
015DE0: 3D 20 66 6C 61 73 68 63 6E 74 20 2D 20 31 0D 0A = flashcnt - 1..
015DF0: 20 20 20 20 49 46 20 66 6C 61 73 68 63 6E 74 20 IF flashcnt
015E00: 73 20 2A 20 32 35 36 0D 0A 20 20 20 20 20 20 54 s * 256.. T
015E10: 45 53 54 20 63 6F 6D 62 69 6E 65 64 20 3D 20 6D EST combined = m
015E20: 69 73 70 6F 73 20 54 48 45 4E 0D 0A 20 20 20 20 ispos THEN..
015E30: 20 20 24 28 20 73 74 6F 70 6D 69 73 28 6D 69 73 $( stopmis(mis
015E40: 70 6F 73 2C 54 52 55 45 29 20 3B 20 21 61 20 3A pos,TRUE) ; !a :
015E50: 3D 20 30 20 3B 20 61 64 64 73 63 6F 72 65 28 31 = 0 ; addscore(1
015E60: 29 20 3B 20 69 6E 76 61 64 65 72 73 20 3A 3D 20 ) ; invaders :=
015E70: 69 6E 76 61 64 65 72 73 20 2D 20 31 20 24 29 0D invaders - 1 $).
015E80: 0A 20 20 20 20 20 20 45 4C 53 45 20 24 28 20 21 . ELSE $( !
015E90: 61 20 3A 3D 20 63 6F 6D 62 69 6E 65 64 20 3B 20 a := combined ;
015EA0: 64 77 72 69 74 65 28 63 68 61 72 2C 78 70 6F 73 dwrite(char,xpos
015EB0: 2C 79 70 6F 73 29 20 24 29 0D 0A 20 20 20 20 20 ,ypos) $)..
015EC0: 20 6D 6F 64 65 28 29 20 3B 20 6D 6F 76 65 6D 69 mode() ; movemi
015ED0: 73 28 29 20 3B 20 6D 6F 76 65 62 6F 6D 62 73 28 s() ; movebombs(
015EE0: 29 20 3B 20 6D 6F 76 65 73 68 69 70 28 29 0D 0A ) ; moveship()..
015EF0: 20 20 20 20 24 29 0D 0A 20 20 24 29 0D 0A 20 20 $).. $)..
015F00: 54 45 53 54 20 63 68 61 6E 67 65 64 20 54 48 45 TEST changed THE
015F10: 4E 20 24 28 20 79 64 69 72 20 3A 3D 20 31 20 3B N $( ydir := 1 ;
015F20: 20 78 64 69 72 20 3A 3D 20 2D 78 64 69 72 20 24 xdir := -xdir $
015F30: 29 20 45 4C 53 45 20 79 64 69 72 20 3A 3D 20 30 ) ELSE ydir := 0
015F40: 0D 0A 20 20 46 4F 52 20 61 20 3D 20 30 20 54 4F .. FOR a = 0 TO
015F50: 20 37 0D 0A 20 20 24 28 0D 0A 20 20 20 20 49 46 7.. $(.. IF
015F60: 20 6C 6F 77 65 73 74 78 21 61 20 3D 20 30 20 54 lowestx!a = 0 T
015F70: 48 45 4E 20 42 52 45 41 4B 0D 0A 20 20 20 20 6E HEN BREAK.. n
015F80: 65 77 62 6F 6D 62 28 6C 6F 77 65 73 74 78 21 61 ewbomb(lowestx!a
015F90: 2C 6C 6F 77 65 73 74 79 21 61 2B 31 29 0D 0A 20 ,lowesty!a+1)..
015FA0: 20 24 29 0D 0A 24 29 0D 0A 0D 0A 0D 0A 4C 45 54 $)..$)......LET
015FB0: 20 73 74 61 72 74 28 29 20 42 45 0D 0A 0D 0A 24 start() BE....$
015FC0: 28 0D 0A 20 20 4C 45 54 20 63 68 61 72 73 20 3D (.. LET chars =
015FD0: 20 56 45 43 20 34 34 0D 0A 20 20 41 4E 44 20 69 VEC 44.. AND i
015FE0: 6E 76 73 20 3D 20 56 45 43 20 34 30 0D 0A 20 20 nvs = VEC 40..
015FF0: 41 4E 44 20 65 6E 64 76 65 63 20 3D 20 56 45 43 AND endvec = VEC
016000: 3D 20 30 20 54 48 45 4E 0D 0A 20 20 20 20 24 28 = 0 THEN.. $(
016010: 0D 0A 20 20 20 20 20 20 54 45 53 54 20 64 65 6D .. TEST dem
016020: 6F 64 69 72 3C 30 20 54 48 45 4E 20 64 65 6D 6F odir<0 THEN demo
016030: 64 69 72 20 3A 3D 20 64 65 6D 6F 64 69 72 20 2B dir := demodir +
016040: 20 31 0D 0A 20 20 20 20 20 20 45 4C 53 45 20 54 1.. ELSE T
016050: 45 53 54 20 64 65 6D 6F 64 69 72 3E 30 20 54 48 EST demodir>0 TH
016060: 45 4E 20 64 65 6D 6F 64 69 72 20 3A 3D 20 64 65 EN demodir := de
016070: 6D 6F 64 69 72 20 2D 20 31 0D 0A 20 20 20 20 20 modir - 1..
016080: 20 20 20 45 4C 53 45 20 64 65 6D 6F 64 69 72 20 ELSE demodir
016090: 3A 3D 20 28 28 72 61 6E 64 6F 6D 28 29 20 26 20 := ((random() &
0160A0: 23 78 31 46 29 2D 31 35 29 2B 38 2A 28 67 75 6E #x1F)-15)+8*(gun
0160B0: 78 3C 34 30 29 2B 34 0D 0A 20 20 20 20 20 20 54 x<40)+4.. T
0160C0: 45 53 54 20 66 6C 61 73 68 73 74 65 20 54 48 45 EST flashste THE
0160D0: 4E 20 77 72 69 74 65 66 28 22 25 43 25 43 25 43 N writef("%C%C%C
0160E0: 20 20 20 20 22 2C 33 31 2C 37 30 2C 31 29 0D 0A ",31,70,1)..
0160F0: 20 20 20 20 20 20 45 4C 53 45 20 77 72 69 74 65 ELSE write
016100: 66 28 22 25 43 25 43 25 43 44 45 4D 4F 22 2C 33 f("%C%C%CDEMO",3
016110: 31 2C 37 30 2C 31 29 0D 0A 20 20 20 20 20 20 66 1,70,1).. f
016120: 6C 61 73 68 73 74 65 2C 20 66 6C 61 73 68 63 6E lashste, flashcn
016130: 74 20 3A 3D 20 4E 4F 54 20 66 6C 61 73 68 73 74 t := NOT flashst
016140: 65 2C 20 32 0D 0A 20 20 20 20 24 29 0D 0A 20 20 e, 2.. $)..
016150: 20 20 67 75 6E 63 68 6B 20 3A 3D 20 67 75 6E 66 gunchk := gunf
016160: 72 65 71 0D 0A 20 20 20 20 6D 6F 76 65 67 75 6E req.. movegun
016170: 28 64 65 6D 6F 64 69 72 3E 30 2C 64 65 6D 6F 64 (demodir>0,demod
016180: 69 72 3C 30 2C 72 61 6E 64 6F 6D 28 29 3E 33 30 ir<0,random()>30
016190: 30 30 30 29 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 000).. $)..$)..
0161A0: 0D 0A 0D 0A 0D 0A 2F 2A 20 54 68 69 73 20 72 6F ....../* This ro
0161B0: 75 74 69 6E 65 20 61 64 64 73 20 61 6E 20 69 6E utine adds an in
0161C0: 76 61 64 65 72 20 74 6F 20 74 68 65 20 62 6F 6D vader to the bom
0161D0: 62 20 61 72 72 61 79 20 69 66 20 69 74 20 69 73 b array if it is
0161E0: 20 74 68 65 20 6C 6F 77 65 73 74 20 6F 6E 65 20 the lowest one
0161F0: 69 6E 20 69 74 73 0D 0A 20 20 20 70 61 72 74 69 in its.. parti
016200: 20 33 0D 0A 20 20 41 4E 44 20 67 61 6D 65 76 65 3.. AND gameve
016210: 63 20 3D 20 56 45 43 20 33 0D 0A 20 20 41 4E 44 c = VEC 3.. AND
016220: 20 62 6F 6D 62 73 20 3D 20 56 45 43 20 34 30 0D bombs = VEC 40.
016230: 0A 20 20 41 4E 44 20 74 6F 6E 65 62 6C 6B 20 3D . AND toneblk =
016240: 20 56 45 43 20 36 0D 0A 20 20 41 4E 44 20 69 6E VEC 6.. AND in
016250: 76 61 64 65 72 2C 20 67 61 6D 65 20 3D 20 69 6E vader, game = in
016260: 76 61 64 65 72 31 2C 20 72 65 61 6C 67 75 6E 0D vader1, realgun.
016270: 0A 20 20 6C 65 76 65 6C 28 65 6E 64 76 65 63 29 . level(endvec)
016280: 0D 0A 20 20 64 65 66 69 6E 65 73 68 61 70 65 73 .. defineshapes
016290: 28 63 68 61 72 73 29 0D 0A 20 20 65 6E 74 28 31 (chars).. ent(1
0162A0: 2C 33 2C 54 41 42 4C 45 20 31 30 2C 35 2C 31 2C ,3,TABLE 10,5,1,
0162B0: 31 30 2C 31 30 2C 31 2C 31 30 2C 35 2C 31 29 0D 10,10,1,10,5,1).
0162C0: 0A 20 20 65 6E 74 28 2D 32 2C 32 2C 54 41 42 4C . ent(-2,2,TABL
0162D0: 45 20 31 30 2C 35 2C 32 2C 31 30 2C 2D 35 2C 32 E 10,5,2,10,-5,2
0162E0: 29 0D 0A 20 20 63 68 61 72 64 65 66 73 2C 20 69 ).. chardefs, i
0162F0: 6E 76 70 6F 73 2C 20 65 78 69 74 76 65 63 2C 20 nvpos, exitvec,
016300: 62 6F 6D 62 61 72 72 61 79 20 3A 3D 20 63 68 61 bombarray := cha
016310: 72 73 2C 20 69 6E 76 73 2C 20 65 6E 64 76 65 63 rs, invs, endvec
016320: 2C 20 62 6F 6D 62 73 0D 0A 20 20 67 61 6D 65 76 , bombs.. gamev
016330: 2C 20 64 65 6D 6F 64 69 72 20 3A 3D 20 67 61 6D , demodir := gam
016340: 65 76 65 63 2C 20 30 0D 0A 20 20 24 28 0D 0A 20 evec, 0.. $(..
016350: 20 20 20 6D 65 6E 2C 20 73 63 6F 72 65 2C 20 79 men, score, y
016360: 73 74 61 72 74 2C 20 67 75 6E 78 2C 20 73 68 69 start, gunx, shi
016370: 70 78 2C 20 6D 69 73 70 6F 73 20 3A 3D 20 33 2C px, mispos := 3,
016380: 20 30 2C 20 35 2C 20 34 30 2C 20 30 2C 20 30 0D 0, 5, 40, 0, 0.
016390: 0A 20 20 20 20 46 4F 52 20 61 20 3D 20 62 6F 6D . FOR a = bom
0163A0: 62 61 72 72 61 79 20 54 4F 20 62 6F 6D 62 61 72 barray TO bombar
0163B0: 72 61 79 2B 32 30 20 44 4F 20 21 61 20 3A 3D 20 ray+20 DO !a :=
0163C0: 30 0D 0A 20 20 20 20 46 4F 52 20 61 20 3D 20 30 0.. FOR a = 0
0163D0: 20 54 4F 20 36 20 74 6F 6E 65 62 6C 6B 21 61 20 TO 6 toneblk!a
0163E0: 3A 3D 20 61 21 54 41 42 4C 45 20 31 33 30 2C 35 := a!TABLE 130,5
0163F0: 30 30 2C 34 2C 31 32 2C 30 2C 30 2C 30 0D 0A 20 00,4,12,0,0,0..
016400: 63 75 6C 61 72 20 63 6F 6C 75 6D 6E 2E 20 54 68 cular column. Th
016410: 69 73 20 6D 65 61 6E 73 20 69 74 20 68 61 73 20 is means it has
016420: 74 68 65 20 68 69 67 68 65 73 74 20 79 20 63 6F the highest y co
016430: 6F 72 64 20 2A 2F 0D 0A 0D 0A 4C 45 54 20 61 64 ord */....LET ad
016440: 64 6C 6F 77 28 78 6C 2C 79 6C 2C 78 70 2C 79 70 dlow(xl,yl,xp,yp
016450: 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 46 4F ) BE....$(.. FO
016460: 52 20 6E 20 3D 20 30 20 54 4F 20 37 0D 0A 20 20 R n = 0 TO 7..
016470: 20 20 54 45 53 54 20 78 6C 21 6E 20 3D 20 30 20 TEST xl!n = 0
016480: 54 48 45 4E 20 24 28 20 78 6C 21 6E 20 3A 3D 20 THEN $( xl!n :=
016490: 78 70 20 3B 20 79 6C 21 6E 20 3A 3D 20 79 70 20 xp ; yl!n := yp
0164A0: 3B 20 42 52 45 41 4B 20 24 29 0D 0A 20 20 20 20 ; BREAK $)..
0164B0: 45 4C 53 45 20 49 46 20 78 6C 21 6E 3D 78 70 20 ELSE IF xl!n=xp
0164C0: 54 48 45 4E 20 24 28 20 49 46 20 79 6C 21 6E 3C THEN $( IF yl!n<
0164D0: 79 70 20 54 48 45 4E 20 79 6C 21 6E 20 3A 3D 20 yp THEN yl!n :=
0164E0: 79 70 20 3B 20 42 52 45 41 4B 20 24 29 0D 0A 24 yp ; BREAK $)..$
0164F0: 29 0D 0A 0D 0A 0D 0A 0D 0A 4C 45 54 20 6E 65 77 )........LET new
016500: 62 6F 6D 62 28 78 2C 79 29 20 42 45 0D 0A 0D 0A bomb(x,y) BE....
016510: 24 28 0D 0A 20 20 4C 45 54 20 62 70 74 72 20 3D $(.. LET bptr =
016520: 20 62 6F 6D 62 61 72 72 61 79 0D 0A 20 20 49 46 bombarray.. IF
016530: 20 72 61 6E 64 6F 6D 28 29 20 3C 20 33 30 30 30 random() < 3000
016540: 30 20 54 48 45 4E 20 52 45 54 55 52 4E 0D 0A 20 0 THEN RETURN..
016550: 20 24 28 0D 0A 20 20 20 20 49 46 20 21 62 70 74 $(.. IF !bpt
016560: 72 20 3D 20 30 20 54 48 45 4E 20 42 52 45 41 4B r = 0 THEN BREAK
016570: 0D 0A 20 20 20 20 62 70 74 72 20 3A 3D 20 62 70 .. bptr := bp
016580: 74 72 20 2B 20 31 0D 0A 20 20 20 20 49 46 20 62 tr + 1.. IF b
016590: 70 74 72 20 3D 20 62 6F 6D 62 61 72 72 61 79 20 ptr = bombarray
0165A0: 2B 20 32 30 20 54 48 45 4E 20 52 45 54 55 52 4E + 20 THEN RETURN
0165B0: 0D 0A 20 20 24 29 20 52 45 50 45 41 54 0D 0A 20 .. $) REPEAT..
0165C0: 20 21 62 70 74 72 20 3A 3D 20 78 20 2B 20 32 35 !bptr := x + 25
0165D0: 36 20 2A 20 79 0D 0A 24 29 0D 0A 0D 0A 0D 0A 0D 6 * y..$).......
0165E0: 0A 41 4E 44 20 6D 6F 76 65 62 6F 6D 62 73 28 29 .AND movebombs()
0165F0: 20 42 45 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 BE....$(.. LET
016600: 20 20 20 73 63 72 65 65 6E 28 29 0D 0A 20 20 20 screen()..
016610: 20 6E 65 77 61 6C 69 65 6E 73 28 29 0D 0A 20 20 newaliens()..
016620: 20 20 6C 65 76 65 6C 28 67 61 6D 65 76 29 0D 0A level(gamev)..
016630: 20 20 20 20 70 72 69 6E 74 67 75 6E 28 67 75 6E printgun(gun
016640: 78 2C 20 67 75 6E 78 2C 46 41 4C 53 45 29 0D 0A x, gunx,FALSE)..
016650: 20 20 20 20 55 4E 54 49 4C 20 69 6E 6B 65 79 28 UNTIL inkey(
016660: 36 36 29 20 4C 4F 47 4F 52 20 6D 65 6E 3C 31 0D 66) LOGOR men<1.
016670: 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 49 . $(.. I
016680: 46 20 67 61 6D 65 3D 64 65 6D 6F 67 75 6E 20 4C F game=demogun L
016690: 4F 47 41 4E 44 20 69 6E 6B 65 79 28 34 37 29 20 OGAND inkey(47)
0166A0: 54 48 45 4E 20 6D 65 6E 20 3A 3D 20 30 0D 0A 20 THEN men := 0..
0166B0: 20 20 20 20 20 6D 6F 76 65 61 6C 69 65 6E 73 28 movealiens(
0166C0: 69 6E 76 61 64 65 72 2C 67 61 6D 65 29 0D 0A 20 invader,game)..
0166D0: 20 20 20 20 20 69 6E 76 61 64 65 72 20 3A 3D 20 invader :=
0166E0: 69 6E 76 61 64 65 72 3D 69 6E 76 61 64 65 72 31 invader=invader1
0166F0: 20 2D 3E 20 69 6E 76 61 64 65 72 32 2C 20 69 6E -> invader2, in
016700: 76 61 64 65 72 31 0D 0A 20 20 20 20 20 20 64 75 vader1.. du
016710: 6D 63 68 6B 20 3A 3D 20 64 75 6D 63 68 6B 20 2D mchk := dumchk -
016720: 20 31 0D 0A 20 20 20 20 20 20 49 46 20 64 75 6D 1.. IF dum
016730: 63 68 6B 20 3D 20 30 20 54 48 45 4E 20 24 28 20 chk = 0 THEN $(
016740: 64 75 6D 63 68 6B 20 3A 3D 20 34 20 3B 20 73 6F dumchk := 4 ; so
016750: 75 6E 64 28 74 6F 6E 65 62 6C 6B 29 0D 0A 20 20 und(toneblk)..
016760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
016770: 20 20 20 20 20 20 20 20 20 20 74 6F 6E 65 62 6C tonebl
016780: 6B 21 31 20 3A 3D 20 74 6F 6E 65 62 6C 6B 21 31 k!1 := toneblk!1
016790: 20 4E 45 51 56 20 31 30 30 20 24 29 0D 0A 20 20 NEQV 100 $)..
0167A0: 20 20 24 29 0D 0A 20 20 67 61 6D 65 65 6E 64 3A $).. gameend:
0167B0: 0D 0A 20 20 20 20 73 6F 75 6E 64 28 54 41 42 4C .. sound(TABL
0167C0: 45 20 31 33 32 2C 31 30 30 2C 30 2C 30 2C 30 2C E 132,100,0,0,0,
0167D0: 30 2C 30 29 0D 0A 20 20 20 20 49 46 20 67 61 6D 0,0).. IF gam
0167E0: 65 3D 72 65 61 6C 67 75 6E 20 54 48 45 4E 20 77 e=realgun THEN w
0167F0: 72 69 74 65 66 28 22 25 43 25 43 25 43 47 41 4D ritef("%C%C%CGAM
016800: 20 78 2C 79 20 3D 20 30 2C 30 0D 0A 20 20 62 6F x,y = 0,0.. bo
016810: 6D 62 63 68 6B 20 3A 3D 20 62 6F 6D 62 63 68 6B mbchk := bombchk
016820: 20 2D 20 31 0D 0A 20 20 49 46 20 62 6F 6D 62 63 - 1.. IF bombc
016830: 68 6B 20 3D 20 30 20 54 48 45 4E 0D 0A 20 20 24 hk = 0 THEN.. $
016840: 28 0D 0A 20 20 20 20 62 6F 6D 62 63 68 6B 20 3A (.. bombchk :
016850: 3D 20 62 6F 6D 62 66 72 65 71 0D 0A 20 20 20 20 = bombfreq..
016860: 46 4F 52 20 61 20 3D 20 62 6F 6D 62 61 72 72 61 FOR a = bombarra
016870: 79 20 54 4F 20 62 6F 6D 62 61 72 72 61 79 20 2B y TO bombarray +
016880: 20 32 30 0D 0A 20 20 20 20 24 28 0D 0A 20 20 20 20.. $(..
016890: 20 20 20 78 2C 20 79 20 3A 3D 20 61 25 30 2C 20 x, y := a%0,
0168A0: 61 25 31 0D 0A 20 20 20 20 20 20 49 46 20 78 20 a%1.. IF x
0168B0: 3D 20 30 20 54 48 45 4E 20 4C 4F 4F 50 0D 0A 20 = 0 THEN LOOP..
0168C0: 20 20 20 20 20 64 77 72 69 74 65 28 73 70 61 63 dwrite(spac
0168D0: 65 2C 78 2C 79 29 0D 0A 20 20 20 20 20 20 79 20 e,x,y).. y
0168E0: 3A 3D 20 79 20 2B 20 31 0D 0A 20 20 20 20 20 20 := y + 1..
0168F0: 49 46 20 79 20 3E 3D 20 32 33 20 54 48 45 4E 0D IF y >= 23 THEN.
016900: 0A 20 20 20 20 20 20 24 28 0D 0A 20 20 20 20 20 . $(..
016910: 20 20 20 49 46 20 28 41 42 53 28 78 2D 67 75 6E IF (ABS(x-gun
016920: 78 29 29 20 3C 3D 20 31 20 54 48 45 4E 20 73 74 x)) <= 1 THEN st
016930: 6F 70 67 75 6E 28 29 0D 0A 20 20 20 20 20 20 20 opgun()..
016940: 20 21 61 20 3A 3D 20 30 20 3B 20 4C 4F 4F 50 0D !a := 0 ; LOOP.
016950: 0A 20 20 20 20 20 20 24 29 0D 0A 20 20 20 20 20 . $)..
016960: 20 64 77 72 69 74 65 28 62 6F 6D 62 2C 78 2C 79 dwrite(bomb,x,y
016970: 29 0D 0A 20 20 20 20 20 20 21 61 20 3A 3D 20 78 ).. !a := x
016980: 20 2B 20 32 35 36 20 2A 20 79 0D 0A 20 20 20 20 + 256 * y..
016990: 24 29 0D 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A $).. $)..$)....
0169A0: 0D 0A 0D 0A 4C 45 54 20 6D 6F 76 65 61 6C 69 65 ....LET movealie
0169B0: 6E 73 28 63 68 61 72 2C 6D 6F 64 65 29 20 42 45 ns(char,mode) BE
0169C0: 0D 0A 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 6C 6F ....$(.. LET lo
0169D0: 77 65 73 74 78 20 3D 20 56 45 43 20 37 0D 0A 20 westx = VEC 7..
0169E0: 20 41 4E 44 20 6C 6F 77 65 73 74 79 20 3D 20 56 AND lowesty = V
0169F0: 45 43 20 37 0D 0A 20 20 4C 45 54 20 63 68 61 6E EC 7.. LET chan
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 00 02 02 09 4E E5 13 00 C1 02 00 00 00 02 ......N.........
016A20: 13 00 C6 02 00 00 00 02 13 00 C2 02 00 00 00 02 ................
016A30: 13 00 C7 02 00 00 00 02 13 00 C3 02 00 00 00 02 ................
016A40: 13 00 C8 02 00 00 00 02 13 00 C4 02 00 00 00 02 ................
016A50: 13 00 C9 02 00 00 00 02 13 00 C5 02 00 00 00 02 ................
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 45 20 4F 56 45 52 22 2C 33 31 2C 33 36 2C 31 30 E OVER",31,36,10
016B10: 29 0D 0A 20 20 20 20 67 61 6D 65 20 3A 3D 20 64 ).. game := d
016B20: 65 6D 6F 67 75 6E 0D 0A 20 20 20 20 55 4E 4C 45 emogun.. UNLE
016B30: 53 53 20 69 6E 6B 65 79 28 36 36 29 20 54 48 45 SS inkey(66) THE
016B40: 4E 0D 0A 20 20 20 20 24 28 0D 0A 20 20 20 20 20 N.. $(..
016B50: 20 77 72 69 74 65 66 28 22 25 43 25 43 25 43 68 writef("%C%C%Ch
016B60: 69 74 20 53 50 41 43 45 20 74 6F 20 70 6C 61 79 it SPACE to play
016B70: 22 2C 33 31 2C 33 32 2C 31 32 29 0D 0A 20 20 20 ",31,32,12)..
016B80: 20 20 20 64 65 6C 61 79 28 33 2C 54 52 55 45 29 delay(3,TRUE)
016B90: 0D 0A 20 20 20 20 24 29 0D 0A 20 20 20 20 49 46 .. $).. IF
016BA0: 20 69 6E 6B 65 79 28 34 37 29 20 54 48 45 4E 20 inkey(47) THEN
016BB0: 67 61 6D 65 20 3A 3D 20 72 65 61 6C 67 75 6E 0D game := realgun.
016BC0: 0A 20 20 24 29 20 52 45 50 45 41 54 55 4E 54 49 . $) REPEATUNTI
016BD0: 4C 20 69 6E 6B 65 79 28 36 36 29 0D 0A 20 20 65 L inkey(66).. e
016BE0: 78 69 74 3A 20 57 48 49 4C 45 20 6B 65 79 76 61 xit: WHILE keyva
016BF0: 6C 69 64 28 29 20 4E 45 20 32 35 35 20 69 6E 6C lid() NE 255 inl
016C00: 69 6E 65 20 30 0D 0A 24 29 0D 0A 1A 24 FF 00 FF ine 0..$)...$...
016C10: 6E 67 20 61 72 65 20 70 61 72 74 20 6F 66 20 74 ng are part of t
016C20: 68 65 20 73 74 61 6E 64 61 72 64 20 6C 69 62 72 he standard libr
016C30: 61 72 79 20 68 65 61 64 65 72 20 2A 2F 0D 0A 0D ary header */...
016C40: 0A 6F 70 74 69 6F 6E 20 73 2D 2C 62 2D 2C 6C 2D .option s-,b-,l-
016C50: 0D 0A 0D 0A 6D 61 6E 69 66 65 73 74 20 24 28 20 ....manifest $(
016C60: 62 79 74 65 73 70 65 72 77 6F 72 64 20 3D 20 32 bytesperword = 2
016C70: 20 3B 20 65 6E 64 73 74 72 65 61 6D 20 3D 20 2D ; endstream = -
016C80: 00 50 00 AF 20 0E 2C F5 19 82 01 95 20 19 3B 2C .P.. .,..... .;,
016C90: 0E 01 95 20 19 14 2C F5 19 15 01 95 20 0E 2C F5 ... ..,..... .,.
016CA0: 19 32 01 95 20 F5 19 14 2C F5 19 14 00 13 00 5A .2.. ...,......Z
016CB0: 00 95 20 F5 19 3B 2C 0E 01 95 20 0E 2C 19 5B 00 .. ..;,... .,.[.
016CC0: 08 00 64 00 C5 20 43 00 0D 00 6E 00 AE 20 19 A0 ..d.. C...n.. ..
016CD0: 2C 1A 71 01 00 2C 00 78 00 95 20 19 1E 2C 19 1E ,.q..,.x.. ..,..
016CE0: 01 95 20 19 3C 2C 0E 01 95 20 19 1E 2C F5 19 1E .. .<,... ..,...
016CF0: 01 95 20 0E 2C F5 19 1E 01 95 20 F5 19 14 2C 0E .. .,..... ...,.
016D00: 28 A9 3A F1 3D A7 28 0A 3A B5 3D FE 1A 28 03 CD (.:.=.(.:.=..(..
016D10: 23 08 3A B5 3D C9 3E 00 32 5B 3E E1 ED 7B EB 3D #.:.=.>.2[>..{.=
016D20: E5 3A F1 3D A7 CC C6 07 CD 44 32 E1 CD 71 08 21 .:.=.....D2..q.!
016D30: 8E 07 CD 71 08 2A C5 3D CD 84 08 CD C2 07 CD 71 ...q.*.=.......q
016D40: 08 CD 06 BB FE FC CA 88 37 FE 03 CA 88 37 2A EF ........7....7*.
016D50: 3D 23 22 EF 3D 3A F1 3D F5 3E 00 32 C4 3D 32 F1 =#".=:.=.>.2.=2.
016D60: 3D 3A B2 3D FE 48 28 1B FE 49 28 17 FE 16 28 13 =:.=.H(..I(...(.
016D70: FE 01 28 0F FE 40 28 0B 3A C4 3D A7 20 05 CD DB ..(..@(.:.=. ...
016D80: 33 18 DE F1 32 F1 3D CD 44 32 2A ED 3D E9 20 6E 3...2.=.D2*.=. n
016D90: 65 61 72 20 6C 69 6E 65 20 00 0D 0A 45 53 43 20 ear line ...ESC
016DA0: 74 6F 20 61 62 6F 72 74 2C 20 61 6E 79 20 6F 74 to abort, any ot
016DB0: 68 65 72 20 6B 65 79 20 63 6F 6E 74 69 6E 75 65 her key continue
016DC0: 73 00 21 9A 07 C9 3A 9B 3D 47 3A 9A 3D B8 28 1E s.!...:.=G:.=.(.
016DD0: 58 16 00 21 5A 3D 19 7E FE 1A 28 07 FE 0A 28 03 X..!Z=.~..(...(.
016DE0: CD 23 08 3A 9B 3D CD 1A 08 32 9B 3D 18 D8 3E 00 .#.:.=...2.=..>.
016DF0: 32 9A 3D 32 9B 3D C9 F5 3A 9A 3D 5F 16 00 21 5A 2.=2.=..:.=_..!Z
016E00: 3D 19 F1 77 3A 9A 3D CD 1A 08 32 9A 3D 5F 3A 9B =..w:.=...2.=_:.
016E10: 3D BB C0 CD 1A 08 32 9B 3D C9 FE 3F 30 02 3C C9 =.....2.=..?0.<.
016E20: 3E 00 C9 FE 0D 20 07 3E 0A CD 5A BB 3E 0D CD 5A >.... .>..Z.>..Z
016E30: BB C9 E5 D5 2A E1 3D 11 02 08 19 ED 5B BE 3D A7 ....*.=.....[.=.
016E40: ED 52 D2 52 31 2A BE 3D 77 2B 22 BE 3D D1 E1 C9 .R.R1*.=w+".=...
016E50: D5 E5 2A E1 3D 11 03 08 19 ED 5B BE 3D A7 ED 52 ..*.=.....[.=..R
016E60: D2 52 31 D1 2A BE 3D 72 2B 73 2B 22 BE 3D EB D1 .R1.*.=r+s+".=..
016E70: C9 7E A7 C8 CB 7F 20 06 CD 23 08 23 18 F3 E6 7F .~.... ..#.#....
016E80: CD 23 08 C9 E5 D5 C5 F5 7C B5 20 0A 3E 30 CD 5A .#......|. .>0.Z
016E90: BB F1 C1 D1 E1 C9 0E 01 11 10 27 CD B8 08 11 E8 ..........'.....
016EA0: 03 CD B8 08 11 64 00 CD B8 08 11 0A 00 CD B8 08 .....d..........
016EB0: 11 01 00 CD B8 08 18 D9 3E 2F 3C A7 ED 52 30 FA ........>/<..R0.
016EC0: 19 FE 30 20 05 79 A7 C0 3E 30 0E 00 CD 5A BB C9 ..0 .y..>0...Z..
016ED0: E5 D5 F5 3A FB 3D A7 28 24 3A 9C 3D FE 0D 28 0C ...:.=.($:.=..(.
016EE0: F1 DD E5 CD 95 BC 30 29 DD E1 18 12 2A D1 3D ED ......0)....*.=.
016EF0: 5B C9 3D A7 ED 52 DA 52 31 F1 12 18 01 F1 ED 5B [.=..R.R1......[
016F00: 00 42 43 50 4C 20 20 20 20 42 49 4E 00 00 00 00 .BCPL BIN....
016F10: 00 00 02 00 00 00 10 00 80 4E 00 00 00 00 00 00 .........N......
016F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016F40: 80 4E 00 28 04 00 00 42 43 50 4C 20 20 20 20 24 .N.(...BCPL $
016F50: 24 24 FF 00 FF 00 00 02 80 4E 70 17 FF 80 4E 70 $$.......Np...Np
016F60: 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016F80: DD E5 DD 6E 02 DD 66 03 22 E3 17 DD 6E 04 DD 66 ...n..f."...n..f
016F90: 05 E5 DD 6E 00 DD 66 01 DD 5E 06 DD 56 07 D5 DD ...n..f..^..V...
016FA0: E1 11 00 00 E5 2A E3 17 A7 ED 52 30 1E E1 E1 DD .....*....R0....
016FB0: E1 DD 4E 02 DD 46 03 DD 5E 00 DD 56 01 DD 6E 04 ..N..F..^..V..n.
016FC0: DD 66 05 2B 1B 09 EB 09 ED B8 C9 E1 7B DD BE 00 .f.+........{...
016FD0: 20 1D 7A DD BE 01 20 17 4E 23 46 2B E3 E5 09 44 .z... .N#F+...D
016FE0: 4D E1 E3 71 23 70 23 13 13 DD 23 DD 23 18 B5 23 M..q#p#...#.#..#
016FF0: 13 18 B1 02 00 00 00 00 00 00 00 00 00 00 00 00 ................
017000: C3 16 02 00 00 00 00 00 00 00 00 CD 4E 00 F5 78 ............N..x
017010: 06 10 29 CB 11 17 30 01 19 10 F7 F1 CB 7F C8 EB ..)...0.........
017020: 21 00 00 A7 ED 52 C9 CD 4E 00 F5 3E 10 CB 21 CB !....R..N..>..!.
017030: 10 CB 15 CB 14 A7 ED 52 38 03 03 18 01 19 3D 20 .......R8.....=
017040: EC 50 59 EB F1 A7 C8 7C EE FF 67 7D EE FF 6F 23 .PY....|..g}..o#
017050: C9 44 4D 21 00 00 3E 00 CB 78 28 0A A7 ED 42 44 .DM!..>..x(...BD
017060: 4D 21 00 00 3E 80 CB 7A C8 EE 80 A7 ED 52 EB 21 M!..>..z.....R.!
017070: 00 00 C9 A7 28 17 EB 4E 23 46 23 EB A7 ED 42 28 ....(..N#F#...B(
017080: 0C 09 EB 23 23 3D 20 EF 5E 23 56 EB E9 EB 5E 23 ...##= .^#V...^#
017090: 56 EB E9 32 07 00 32 06 00 E5 EB 78 B1 28 11 5E V..2..2....x.(.^
0170A0: 23 56 23 D5 5E 23 56 23 E3 73 23 72 E1 0B 18 EB #V#.^#V#.s#r....
0170B0: 5E 23 56 23 CB 45 28 01 23 22 04 00 22 02 00 C1 ^#V#.E(.#".."...
0170C0: ED 73 00 00 EB F9 60 69 CD 8F 00 ED 7B 00 00 CD .s....`i....{...
0170D0: 8F BC CD 7A BC C9 D1 DD E5 ED 4B 02 00 C5 ED 4B ...z......K....K
0170E0: 04 00 ED 43 02 00 09 22 04 00 EB E9 7A B3 C8 29 ...C..."....z..)
0170F0: 1B 18 F9 7A B3 C8 CB 3C CB 1D 1B 18 F6 C1 E1 E5 ...z...<........
017100: C9 3D 13 ED 53 C9 3D 2A CB 3D 23 22 CB 3D D1 E1 .=..S.=*.=#".=..
017110: C9 CD 01 33 49 2F 4F 20 65 72 72 6F 72 00 7D CD ...3I/O error.}.
017120: D0 08 7C CD D0 08 C9 46 23 DD E5 C5 E5 ED 5B E1 ..|....F#.....[.
017130: 3D CD 77 BC 38 21 E1 C1 E5 C5 7E FE 2E CA 77 09 =.w.8!....~...w.
017140: 23 10 F7 36 2E 23 36 42 C1 E1 E5 C5 04 04 ED 5B #..6.#6B.......[
017150: E1 3D CD 77 BC 30 20 C1 E1 E6 0E FE 06 20 03 DD .=.w.0 ...... ..
017160: E1 C9 CD 7A BC CD 01 33 4E 6F 6E 2D 41 53 43 49 ...z...3Non-ASCI
017170: 49 20 66 69 6C 65 00 C1 E1 E5 C5 21 91 09 CD 71 I file.....!...q
017180: 08 C1 E1 78 A7 28 07 7E CD 23 08 23 10 F9 C3 FC ...x.(.~.#.#....
017190: 32 0D 0A 43 61 6E 27 74 20 6F 70 65 6E 20 00 CD 2..Can't open ..
0171A0: 44 32 3E 2D CD 23 08 3E 3E CD 23 08 21 08 3C 22 D2>-.#.>>.#.!.<"
0171B0: F3 3D 36 0D CD 7B BB CD 06 BB FE FC CA 88 37 FE .=6..{........7.
0171C0: 0D 20 11 2A F3 3D 77 CD 44 32 21 08 3C 22 60 3E . .*.=w.D2!.<"`>
0171D0: CD 7E BB C9 FE 7F 20 2A 2A F3 3D 11 08 3C A7 ED .~.... **.=..<..
0171E0: 52 28 18 2A F3 3D 2B 22 F3 3D 3E 08 CD 5A BB 3E R(.*.=+".=>..Z.>
0171F0: 20 CD 5A BB 3E 08 CD 5A BB 18 BC 3E 07 CD 5A BB .Z.>..Z...>..Z.
017200: 18 B5 2A F3 3D 77 23 22 F3 3D CD 5A BB 18 A8 21 ..*.=w#".=.Z...!
017210: 9C 3D 06 00 7E FE 0D 28 04 04 23 18 F7 78 A7 C8 .=..~..(..#..x..
017220: 2A 00 3E 11 00 08 19 ED 5B BE 3D A7 ED 52 D2 52 *.>.....[.=..R.R
017230: 31 21 9C 3D ED 5B 00 3E CD 8C BC 30 20 E5 DD E1 1!.=.[.>...0 ...
017240: DD 36 12 02 2A C9 3D DD 75 18 DD 74 19 2A C2 3D .6..*.=.u..t.*.=
017250: DD 75 1A DD 74 1B DD 75 15 DD 74 16 C9 CD 01 33 .u..t..u..t....3
017260: 43 61 6E 27 74 20 6F 70 65 6E 20 6F 75 74 70 75 Can't open outpu
017270: 74 20 66 69 6C 65 00 3A B2 3D FE 2E 28 08 FE 0C t file.:.=..(...
017280: 28 04 FE 4F 20 09 2A B3 3D E5 CD DB 33 E1 C9 FE (..O .*.=...3...
017290: 4D 20 0C 2A B3 3D CD A2 0B E5 CD DB 33 E1 C9 FE M .*.=......3...
0172A0: 41 20 13 CD DB 33 3E 00 CD B0 0B E5 3E 42 21 D8 A ...3>.....>B!.
0172B0: 0E CD 9B 12 E1 C9 FE 38 20 02 3E 26 FE 17 28 04 .......8 .>&..(.
0172C0: FE 26 20 0D F5 CD DB 33 3E 23 CD B0 0B F1 C3 A2 .& ....3>#......
0172D0: 0B FE 35 20 09 CD DB 33 3E 22 CD B0 0B C9 FE 3D ..5 ...3>".....=
0172E0: 20 26 CD DB 33 3E 22 CD B0 0B 7E FE 4D 20 14 E5 &..3>"...~.M ..
0172F0: E5 2B 56 2B 5E 21 00 00 A7 ED 52 EB E1 2B 72 2B .+V+^!....R..+r+
017300: C5 29 ED 5B 02 00 73 23 72 23 ED 5B 04 00 73 23 .).[..s#r#.[..s#
017310: 72 23 DD E5 D1 73 23 72 23 EB 21 04 00 39 EB 73 r#...s#r#.!..9.s
017320: 23 72 C9 C1 C1 E1 29 5E 23 56 23 ED 53 02 00 5E #r....)^#V#.S..^
017330: 23 56 23 ED 53 04 00 5E 23 56 23 D5 DD E1 5E 23 #V#.S..^#V#...^#
017340: 66 6B F9 60 69 E9 E1 C1 D1 D5 C5 E5 2A 02 00 E5 fk.`i.......*...
017350: D5 2A 04 00 22 02 00 CB 3C CB 1D E5 EB 23 29 38 .*.."...<....#)8
017360: 49 EB 2A 02 00 19 38 42 22 04 00 EB 21 CE FF 39 I.*...8B"...!..9
017370: A7 ED 52 38 35 60 69 CD 8F 00 E1 E1 2A 02 00 22 ..R85`i.....*.."
017380: 04 00 E1 22 02 00 C9 D1 DD E5 ED 4B 02 00 C5 ED ...".......K....
017390: 4B 04 00 ED 43 02 00 09 38 10 22 04 00 44 4D 21 K...C...8."..DM!
0173A0: CE FF 39 A7 ED 42 38 02 EB E9 CD BE 01 53 74 61 ..9..B8......Sta
0173B0: 63 6B 20 6F 76 65 72 66 6C 6F 77 0D 0A 00 C3 C8 ck overflow.....
0173C0: 00 E1 7E 23 E5 A7 C8 CD C9 01 18 F5 CD 5A BB C9 ..~#.........Z..
0173D0: 00 00 3A 06 00 3D 32 06 00 C0 3A 07 00 32 06 00 ..:..=2...:..2..
0173E0: 3E 42 E5 C5 CD 1E BB C1 E1 C8 CD 1B BB 38 FB CD >B...........8..
0173F0: 81 BB CD 06 BB FE FC F5 CD 84 BB F1 C0 CD BE 01 ................
017400: 0D 0A 45 73 63 61 70 65 20 70 72 65 73 73 65 64 ..Escape pressed
017410: 0D 0A 00 C3 C8 00 3E 00 32 5B 3E 01 C5 3B 21 62 ......>.2[>..;!b
017420: 3E CD D1 BC C9 CD 4E BB 3E 0C CD 23 08 C9 E5 D5 >.....N.>..#....
017430: 21 CE FF 39 11 00 40 A7 ED 52 30 11 CD 01 33 48 !..9..@..R0...3H
017440: 49 4D 45 4D 20 74 6F 6F 20 6C 6F 77 00 D1 E1 C9 IMEM too low....
017450: CD 25 02 3A 5B 3E A7 28 04 2A C2 3D E9 21 64 02 .%.:[>.(.*.=.!d.
017460: CD 71 08 C9 4E 6F 20 70 72 6F 67 72 61 6D 00 CD .q..No program..
017470: 25 02 CD C4 04 ED 73 B6 3D CD 88 05 32 80 3E CD %.....s.=...2.>.
017480: CA 05 CD 9E 05 22 81 3E CD 50 06 7D E6 01 20 01 .....".>.P.}.. .
017490: 2B 2B 22 DF 3D CD 5C 06 22 E1 3D 22 C2 3D 22 5D ++".=.\.".=".="]
0174A0: 3E 3E 00 32 FB 3D 3E FF 32 5B 3E CD 81 BB CD 2E >>.2.=>.2[>.....
0174B0: 02 21 01 00 22 C5 3D 21 EA 03 CD 71 08 CD AC 09 .!..".=!...q....
0174C0: 2A 60 3E 11 9C 3D 7E 12 23 13 FE 0D 20 F8 3E 0D *`>..=~.#... .>.
0174D0: 32 B5 3D 3E 00 32 5F 3E 2A DF 3D ED 5B E1 3D A7 2.=>.2_>*.=.[.=.
0174E0: ED 52 CB 3C CB 1D CB 3C CB 1D 3A 9C 3D FE 0D 20 .R.<...<..:.=..
0174F0: 04 CB 3C CB 1D EB 2A DF 3D A7 ED 52 22 B0 3D 2B ..<...*.=..R".=+
017500: 73 E1 C9 3E 43 C3 A2 0B FE 20 20 0D CD DB 33 3E s..>C.... ...3>
017510: 18 CD B0 0B 3E 20 C3 A2 0B FE 33 20 0B CD DB 33 ....> ....3 ...3
017520: CD 3D 0F 3E 33 C3 A2 0B FE 2F 20 0B CD DB 33 CD .=.>3..../ ...3.
017530: E9 0E 3E 2F C3 A2 0B FE 4E 20 1C 2A BE 3D E5 3E ..>/....N .*.=.>
017540: 4E CD 32 08 21 5A 3C 46 04 7E CD 32 08 23 10 F9 N.2.!Z<F.~.2.#..
017550: CD DB 33 E1 3E 4E C9 FE 52 20 24 CD 16 07 3F 20 ..3.>N..R $...?
017560: 69 73 20 6F 6E 6C 79 20 61 6C 6C 6F 77 65 64 20 is only allowed
017570: 69 6E 20 64 65 66 69 6E 69 74 69 6F 6E 73 00 FE in definitions..
017580: 60 20 0D CD DB 33 3E 23 CD B0 0B 3E 60 C3 A2 0B ` ...3>#...>`...
017590: CD 16 07 42 61 64 20 65 78 70 72 65 73 73 69 6F ...Bad expressio
0175A0: 6E 00 D5 ED 5B BE 3D CD 32 08 CD 50 08 EB D1 C9 n...[.=.2..P....
0175B0: 57 D5 CD 77 0A D1 22 B8 3D 3A C4 3D A7 C0 21 ED W..w..".=:.=..!.
0175C0: 0C 3A B2 3D 5F 7E A7 20 04 2A B8 3D C9 BB 28 06 .:.=_~. .*.=..(.
0175D0: 23 23 23 23 18 EF 23 46 23 7E 23 66 6F 3A B2 3D ####..#F#~#fo:.=
0175E0: E9 0E 1E 18 01 48 7A B8 38 04 2A B8 3D C9 2A B8 .....Hz.8.*.=.*.
0175F0: 3D E5 C5 D5 79 F5 CD DB 33 F1 CD B0 0B 22 B8 3D =...y...3....".=
017600: E1 22 BC 3D E1 22 BA 3D 3A BC 3D D1 2A B8 3D CD .".=.".=:.=.*.=.
017610: 0F 0E E5 ED 4B BA 3D ED 5B BC 3D E1 C3 B6 0B 7A ....K.=.[.=....z
017620: FE 0D 38 04 2A B8 3D C9 2A B8 3D C5 D5 E5 CD DB ..8.*.=.*.=.....
017630: 33 3E 00 CD B0 0B 3A B2 3D FE 36 28 0F CD 16 07 3>....:.=.6(....
017640: 45 78 70 65 63 74 69 6E 67 20 2C 00 E5 CD DB 33 Expecting ,....3
017650: 3E 00 CD B0 0B 3E 3C D1 CD 0F 0E EB E1 CD 50 08 >....><.......P.
017660: EB D1 C1 C3 B6 0B 2A B8 3D D5 C5 E5 CD DB 33 3A ......*.=.....3:
017670: B2 3D FE 42 28 05 CD E9 0E 18 03 21 00 00 E5 3E .=.B(......!...>
017680: 42 21 D8 0E CD 9B 12 E1 D1 3E 4B CD 0F 0E C1 D1 B!.......>K.....
017690: C3 B6 0B 7A 2A B8 3D FE 1E 38 01 C9 D5 E5 D5 CD ...z*.=..8......
0176A0: DB 33 3E 1E CD B0 0B 22 B8 3D D1 7B D1 CD 0F 0E .3>....".=.{....
0176B0: EB 3A B2 3D 4F 21 E6 0C 7E A7 20 05 EB D1 C3 B6 .:.=O!..~. .....
0176C0: 0B B9 28 03 23 18 F1 D5 2A B8 3D E5 C5 CD DB 33 ..(.#...*.=....3
0176D0: 3E 1E CD B0 0B 22 B8 3D C1 79 D1 CD 0F 0E D1 3E >....".=.y.....>
0176E0: 1B CD 0F 0E 18 CA 08 1F 18 10 19 11 00 24 23 E5 .............$#.
0176F0: 0B 39 23 E5 0B 3B 23 E5 0B 35 22 E5 0B 3D 22 E5 .9#..;#..5"..=".
017700: 22 BE 3D 22 C0 3D CD FA 04 ED 7B DF 3D ED 73 EB ".=".=....{.=.s.
017710: 3D 21 17 03 22 ED 3D CD DB 33 CD 42 0D E5 CD 7A =!..".=..3.B...z
017720: BC 21 2F 04 CD 71 08 2A C0 3D ED 5B BE 3D A7 ED .!/..q.*.=.[.=..
017730: 52 CD 84 08 21 6B 04 CD 71 08 2A EF 3D CD 84 08 R...!k..q.*.=...
017740: 2A EF 3D 7C B5 C2 E5 03 3E 00 32 FB 3D 21 00 00 *.=|....>.2.=!..
017750: 22 C9 3D E1 E5 CD F3 12 2A EF 3D 7C B5 28 1B 21 ".=.....*.=|.(.!
017760: 4D 04 CD 71 08 21 00 00 CD 84 08 21 7C 04 CD 71 M..q.!.....!|..q
017770: 08 2A EF 3D CD 84 08 C3 E5 03 CD 0F 0A 3E 01 32 .*.=.........>.2
017780: FB 3D 2A 00 3E 22 C9 3D E1 CD F3 12 3A 9C 3D FE .=*.>".=....:.=.
017790: 0D 20 17 2A C9 3D ED 5B 00 3E A7 ED 52 44 4D 2A . .*.=.[.>..RDM*
0177A0: 00 3E ED 5B C2 3D ED B0 18 03 CD 8F BC 21 4D 04 .>.[.=.......!M.
0177B0: CD 71 08 2A C9 3D ED 5B 00 3E A7 ED 52 CD 84 08 .q.*.=.[.>..R...
0177C0: 21 7C 04 CD 71 08 21 00 00 CD 84 08 21 FD 03 CD !|..q.!.....!...
0177D0: 71 08 2A C2 3D CD 84 08 3A 9C 3D FE 0D 20 06 21 q.*.=...:.=.. .!
0177E0: 0B 04 CD 71 08 ED 7B B6 3D C9 4F 75 74 70 75 74 ...q..{.=.Output
0177F0: 20 66 69 6C 65 20 6E 61 6D 65 3F 20 00 0D 43 6F file name? ..Co
017800: 64 65 20 6F 72 69 67 69 6E 20 00 0D 54 6F 20 72 de origin ..To r
017810: 75 6E 20 63 6F 64 65 20 75 73 65 20 7C 47 4F 20 un code use |GO
017820: 6F 72 20 43 41 4C 4C 20 6F 72 69 67 69 6E 00 0D or CALL origin..
017830: 50 68 61 73 65 20 31 20 63 6F 6D 70 6C 65 74 65 Phase 1 complete
017840: 2E 20 54 72 65 65 20 73 69 7A 65 3A 00 0D 50 68 . Tree size:..Ph
017850: 61 73 65 20 32 20 63 6F 6D 70 6C 65 74 65 2E 20 ase 2 complete.
017860: 43 6F 64 65 20 73 69 7A 65 3A 00 0D 50 68 61 73 Code size:..Phas
017870: 65 20 31 20 65 72 72 6F 72 73 3A 00 0D 50 68 61 e 1 errors:..Pha
017880: 73 65 20 32 20 65 72 72 6F 72 73 3A 00 01 00 00 se 2 errors:....
017890: 0D 41 72 6E 6F 72 20 42 43 50 4C 20 63 6F 6D 70 .Arnor BCPL comp
0178A0: 69 6C 65 72 20 76 00 28 63 29 20 50 4A 42 20 26 iler v.(c) PJB &
0178B0: 20 41 72 6E 6F 72 20 4C 74 64 2E 2C 20 31 39 38 Arnor Ltd., 198
0178C0: 36 0D 0D 00 21 90 04 CD 71 08 3A 8D 04 C6 30 CD 6...!...q.:...0.
0178D0: 23 08 3E 2E CD 23 08 3A 8E 04 C6 30 CD 23 08 3A #.>..#.:...0.#.:
0178E0: 8F 04 C6 30 CD 23 08 CD 11 BC 3E 0D 28 02 3E 20 ...0.#....>.(.>
0178F0: CD 23 08 21 A7 04 CD 71 08 C9 21 68 3E 22 66 3E .#.!...q..!h>"f>
017900: 0B 38 28 E5 0B 51 28 E5 0B 41 00 66 0C 08 00 93 .8(..Q(..A.f....
017910: 0C 1F 00 93 0C 18 00 93 0C 10 00 93 0C 19 00 93 ................
017920: 0C 11 00 93 0C 1D 19 E1 0B 25 19 E1 0B 1B 17 E5 .........%......
017930: 0B 1A 17 E5 0B 09 15 E5 0B 21 15 E5 0B 3C 00 1F .........!...<..
017940: 0C 00 2A EB 3D E5 2A ED 3D E5 ED 73 EB 3D 21 66 ..*.=.*.=..s.=!f
017950: 0D 22 ED 3D 3E 37 CD 86 11 3A B2 3D FE 16 20 31 .".=>7...:.=.. 1
017960: CD DB 33 CD 1B 0E 3A B2 3D FE 01 20 0F E5 CD DB ..3...:.=.. ....
017970: 33 CD 1B 0E 3E 01 D1 CD 0F 0E 18 EA E5 CD 42 0D 3...>.........B.
017980: 3E 16 D1 CD 0F 0E D1 ED 53 ED 3D D1 ED 53 EB 3D >.......S.=..S.=
017990: C9 FE 49 28 04 FE 40 20 05 21 00 00 18 E8 FE 1E ..I(..@ .!......
0179A0: 28 08 FE 2B 28 04 FE 12 20 15 F5 CD DB 33 21 96 (..+(... ....3!.
0179B0: 11 CD 26 12 E5 CD 42 0D D1 F1 CD 0F 0E 18 C7 CD ..&...B.........
0179C0: 1F 0F 3A B2 3D FE 49 28 BD FE 40 28 B9 C3 44 0F ..:.=.I(..@(..D.
0179D0: CD E7 0D 3A B2 3D FE 36 C0 E5 CD DB 33 CD D0 0D ...:.=.6....3...
0179E0: D1 3E 36 CD 0F 0E C9 3A B2 3D FE 4F 28 18 CD 16 .>6....:.=.O(...
0179F0: 07 45 78 70 65 63 74 69 6E 67 20 69 64 65 6E 74 .Expecting ident
017A00: 69 66 69 65 72 00 2A B3 3D E5 CD DB 33 E1 C9 E5 ifier.*.=...3...
017A10: EB CD A2 0B D1 EB CD 50 08 EB C9 CD D0 0D 3A B2 .......P......:.
017A20: 3D FE 08 20 41 E5 CD DB 33 FE 32 28 0A CD E5 0E =.. A...3.2(....
017A30: D1 3E 44 CD 0F 0E C9 E1 E5 7E FE 4F 20 0F CD DB .>D......~.O ...
017A40: 33 3E 00 CD B0 0B D1 3E 45 CD 0F 0E C9 CD 16 07 3>.....>E.......
017A50: 42 61 64 20 76 65 63 74 6F 72 20 64 65 66 69 6E Bad vector defin
017A60: 69 74 69 6F 6E 00 FE 41 20 52 7E FE 4F C2 EE 0D ition..A R~.O...
017A70: E5 CD DB 33 3A B2 3D FE 4F 20 05 CD D0 0D 18 03 ...3:.=.O ......
017A80: 21 00 00 E5 3E 42 21 D8 0E CD 9B 12 3A B2 3D FE !...>B!.....:.=.
017A90: 02 20 19 CD DB 33 CD 3D 0F 3E 47 CD D4 12 E3 C1 . ...3.=.>G.....
017AA0: D1 C5 CD 0F 0E D1 EB CD 50 08 EB C9 FE 08 20 0C ........P..... .
017AB0: CD DB 33 3E 00 CD B0 0B 3E 46 18 DF CD 16 07 42 ..3>....>F.....B
017AC0: 61 64 20 50 52 4F 43 45 44 55 52 45 20 64 65 66 ad PROCEDURE def
017AD0: 69 6E 69 74 69 6F 6E 00 CD 16 07 4D 69 73 73 69 inition....Missi
017AE0: 6E 67 20 29 00 3E 01 18 02 3E 00 F5 A7 28 11 3A ng ).>...>...(.:
017AF0: B2 3D FE 52 20 0A CD A2 0B E5 CD DB 33 E1 18 05 .=.R .......3...
017B00: 2A DF 3D CD 7E 05 21 D4 3B 06 20 36 00 23 10 FB *.=.~.!.;. 6.#..
017B10: 21 89 3A 7E A7 28 22 11 F4 3B 7E FE 80 30 05 12 !.:~.("..;~..0..
017B20: 23 13 18 F6 1B 1A F6 80 12 E5 21 F4 3B CD 41 33 #.........!.;.A3
017B30: D1 1A E6 7F 77 EB 23 18 DA 21 78 05 CD 41 33 22 ....w.#..!x..A3"
017B40: C7 3D 36 4F 21 79 05 CD 41 33 22 DD 3D 36 4F 21 .=6O!y..A3".=6O!
017B50: 00 00 22 EF 3D 3E 05 32 FA 3D 3E FF 32 5A 3E 32 ..".=>.2.=>.2Z>2
017B60: 59 3E 3E 0A 32 5C 3E 3E 00 32 9A 3D 32 9B 3D 32 Y>>.2\>>.2.=2.=2
017B70: F1 3D 3E 0D 32 B5 3D C9 A4 73 74 61 72 F4 2B CB .=>.2.=..star.+.
017B80: 45 28 01 2B 22 42 3E C9 0E FF 0C CD 15 B9 D6 80 E(.+"B>.........
017B90: 20 F8 24 25 3E 7B C8 3E DE 25 C0 D6 80 C9 CD 54 .$%>{.>.%.....T
017BA0: 06 23 4E 23 46 23 79 B0 C8 0B 0B 09 18 F4 EB CD .#N#F#y.........
017BB0: 2D 06 73 23 72 CD 36 06 73 23 72 23 73 23 72 CD -.s#r.6.s#r#s#r.
017BC0: 43 06 06 3C 36 00 23 10 FB C9 CD 50 06 CD 1F 06 C..<6.#....P....
017BD0: CD 25 06 C9 CD 5C 06 EB CD 54 06 23 E5 36 00 23 .%...\...T.#.6.#
017BE0: CD 97 06 38 F8 E1 23 23 CD 71 06 CD 58 06 CD 76 ...8..##.q..X..v
017BF0: 06 CD 7B 06 CD 80 06 CD 50 06 CD 1F 06 CD 25 06 ..{.....P.....%.
017C00: CD 43 06 06 3C 36 00 23 10 FB C9 3A 80 3E FE 7B .C..<6.#...:.>.{
017C10: C9 CD 36 06 C3 67 06 CD 36 06 23 23 C3 67 06 E5 ..6..g..6.##.g..
017C20: CD 36 06 18 67 E5 CD 36 06 23 23 18 5F 3A 80 3E .6..g..6.##._:.>
017C30: E6 7F 6F 26 AE C9 3A 80 3E FE 7B 21 8D B0 C8 21 ..o&..:.>.{!...!
017C40: 71 B0 C9 3A 80 3E FE 7B 21 D0 AD C8 21 B7 AD C9 q..:.>.{!...!...
017C50: 2E 00 18 0A 2E 06 18 06 2E 08 18 02 2E 0E 3A 80 ..............:.
017C60: 3E E6 7F 85 6F 26 AE 7E 23 66 6F C9 E5 2E 00 18 >...o&.~#fo.....
017C70: 12 E5 2E 08 18 0D E5 2E 0A 18 08 E5 2E 0C 18 03 ................
017C80: E5 2E 0E 3A 80 3E E6 7F 85 6F 26 AE E3 7D E3 77 ...:.>...o&..}.w
017C90: E3 7C E3 23 77 E1 C9 B7 ED 52 19 C9 CD AB 06 FE .|.#w....R......
017CA0: 41 D8 FE 5B D0 C6 20 32 B5 3D C9 E5 D5 C5 3A 5F A..[.. 2.=....:_
017CB0: 3E FE FF 28 1B FE 01 28 08 3A B5 3D FE 0D CC 9F >..(...(.:.=....
017CC0: 09 2A 60 3E 7E 23 22 60 3E A7 20 0F 3E 1A 18 0B .*`>~#"`>. .>...
017CD0: DD E5 CD 80 BC 38 02 3E 1A DD E1 FE 8A 28 12 FE .....8.>.....(..
017CE0: 90 28 CB FE 7F 28 C7 FE 80 38 08 FE 8D 30 04 18 .(...(...8...0..
017CF0: BD 3E 0A F5 CD F7 07 F1 C1 D1 E1 32 B5 3D FE 0A .>.........2.=..
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 00 02 02 09 4E E5 14 00 C1 02 00 00 00 02 ......N.........
017D20: 14 00 C6 02 00 00 00 02 14 00 C2 02 00 00 00 02 ................
017D30: 14 00 C7 02 00 00 00 02 14 00 C3 02 00 00 00 02 ................
017D40: 14 00 C8 02 00 00 00 02 14 00 C4 02 00 00 00 02 ................
017D50: 14 00 C9 02 00 00 00 02 14 00 C5 02 00 00 00 02 ................
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 3E 00 CD B0 0B 3A B2 3D FE 36 20 11 F1 E5 F5 CD >....:.=.6 .....
017E10: DB 33 F1 CD EB 0E D1 3E 36 CD 0F 0E C9 F1 C9 3E .3.....>6......>
017E20: 37 CD 86 11 CD 3D 0F 3A B2 3D FE 49 28 0E FE 40 7....=.:.=.I(..@
017E30: 28 0A E5 CD 1F 0F D1 3E 4A CD 0F 0E C9 CD 8E 0F (......>J.......
017E40: 7C B5 20 15 CD 16 07 45 78 70 65 63 74 69 6E 67 |. ....Expecting
017E50: 20 63 6F 6D 6D 61 6E 64 00 3A B2 3D FE 27 28 09 command.:.=.'(.
017E60: FE 28 28 05 FE 29 28 01 C9 CD AB 12 F5 E5 CD DB .((..)(.........
017E70: 33 E1 F1 FE 27 28 04 FE 5A 20 05 CD A2 0B 18 D9 3...'(..Z ......
017E80: F5 E5 3E 00 CD B0 0B D1 F1 CD 0F 0E 18 CB 3A B2 ..>...........:.
017E90: 3D 47 21 AC 0F 7E A7 20 04 21 00 00 C9 B8 20 07 =G!..~. .!.... .
017EA0: 23 5E 23 56 EB 78 E9 23 23 23 18 E9 4F FB 0F 4D #^#V.x.###..O..M
017EB0: FB 0F 2E FB 0F 0C FB 0F 17 FB 0F 26 FB 0F 38 FB ...........&..8.
017EC0: 0F 41 FB 0F 0F 34 10 22 34 10 14 42 10 31 42 10 .A...4."4..B.1B.
017ED0: 34 42 10 30 42 10 2D 5A 10 0D 13 11 1C 95 10 03 4B.0B.-Z........
017EE0: 95 10 23 95 10 0E 95 10 0B 95 10 2A A1 10 05 D6 ..#........*....
017EF0: 10 07 FF 10 48 D0 10 50 7A 11 00 CD E9 0E 3A B2 ....H..Pz.....:.
017F00: 3D FE 3E 20 0E E5 CD DB 33 CD E9 0E 3E 3E D1 CD =.> ....3...>>..
017F10: 0F 0E C9 FE 3F 20 14 7E FE 4F C2 EE 0D E5 CD DB ....? .~.O......
017F20: 33 CD 8E 0F D1 3E 3F CD 0F 0E C9 7E FE 4B C2 44 3....>?....~.K.D
017F30: 0F 36 4C C9 F5 CD DB 33 3E 00 CD B0 0B F1 CD A2 .6L....3>.......
017F40: 0B C9 F5 CD DB 33 3E 00 CD B0 0B E5 3E 06 CD 86 .....3>.....>...
017F50: 11 CD 3D 0F D1 F1 CD 0F 0E C9 CD DB 33 3E 00 CD ..=.........3>..
017F60: B0 0B 3E 06 CD 86 11 E5 CD 3D 0F E5 3E 0A 21 84 ..>......=..>.!.
017F70: 10 CD 9B 12 CD 3D 0F D1 3E 2D CD 0F 0E D1 EB CD .....=..>-......
017F80: 50 08 EB C9 CD 16 07 45 4C 53 45 20 65 78 70 65 P......ELSE expe
017F90: 63 74 65 64 00 2A BE 3D CD 32 08 E5 CD DB 33 E1 cted.*.=.2....3.
017FA0: C9 CD DB 33 3E 00 CD B0 0B E5 3E 15 21 BF 10 CD ...3>.....>.!...
017FB0: 9B 12 21 1F 0F CD 26 12 D1 3E 2A CD 0F 0E C9 CD ..!...&..>*.....
017FC0: 16 07 49 4E 54 4F 20 65 78 70 65 63 74 65 64 00 ..INTO expected.
017FD0: 21 42 0D C3 26 12 CD DB 33 3E 00 CD B0 0B E5 3E !B..&...3>.....>
017FE0: 3F 21 F1 10 CD 9B 12 CD 8E 0F D1 3E 05 CD 0F 0E ?!.........>....
017FF0: C9 CD 16 07 3A 20 65 78 70 65 63 74 65 64 00 CD ....: expected..
018000: E5 D5 3E 21 CD D0 08 CD A7 1F 22 E3 3D CD 96 14 ..>!......".=...
018010: 3E CD CD D0 08 CD 4E 19 CD 1E 09 3E DD CD D0 08 >.....N....>....
018020: 3E 21 CD D0 08 3A CF 3D D6 06 32 CF 3D 3C 5F 16 >!...:.=..2.=<_.
018030: 00 21 00 00 A7 ED 52 CD 1E 09 3E DD CD D0 08 3E .!....R...>....>
018040: 39 CD D0 08 2A E9 3D 7E CD 6A 19 D1 E1 C9 2A E9 9...*.=~.j....*.
018050: 3D 7E FE 46 28 10 FE 47 28 0C FE 54 28 08 FE 55 =~.F(..G(..T(..U
018060: 28 04 2A 3C 3E C9 2A 30 3E C9 FE 54 28 23 FE 55 (.*<>.*0>..T(#.U
018070: 28 1F FE 58 28 1B FE 59 28 17 FE 5A 28 13 FE 5B (..X(..Y(..Z(..[
018080: 28 0F FE 5C 28 0B FE 5D 28 07 FE 5E 28 03 FE 5F (..\(..](..^(.._
018090: C0 3E CD CD D0 08 E5 2A 3E 3E CD 1E 09 E1 C9 3E .>.....*>>.....>
0180A0: 2A CD D0 08 2A 20 3E CD 1E 09 3E 22 CD D0 08 2A *...* >...>"...*
0180B0: 22 3E CD 1E 09 3E E1 CD D0 08 3E 22 CD D0 08 2A ">...>....>"...*
0180C0: 20 3E CD 1E 09 21 E3 19 CD 83 1B C9 3E E1 CD D0 >...!......>...
0180D0: 08 3E 22 CD D0 08 2A 20 3E CD 1E 09 21 E3 19 CD .>"...* >...!...
0180E0: 83 1B C9 03 DD E1 C9 EB 2B 56 2B 5E 2B 46 2B 6E ........+V+^+F+n
0180F0: 60 1A FE 36 20 2B E5 EB 2B 46 2B 4E 2B 56 2B 5E `..6 +..+F+N+V+^
018100: E1 D5 C5 7E FE 36 20 14 2B 46 2B 4E 2B 56 2B 5E ...~.6 .+F+N+V+^
018110: E1 D5 EB 60 69 CD 21 1A E1 D1 18 D5 E1 E1 C3 5F ...`i.!........_
018120: 17 7E FE 36 CA 5F 17 1A FE 4F 28 12 FE 26 28 1C .~.6._...O(..&(.
018130: FE 38 CA AF 1A FE 51 CA D5 1A CD 7A 30 C9 D5 CD .8....Q....z0...
018140: 2D 24 D1 CD 63 31 38 03 CD 5F 30 C9 CD 59 1B 28 -$..c18.._0..Y.(
018150: 1F D5 CD 2D 24 3E E5 CD D0 08 E1 2B 56 2B 5E EB ...-$>.....+V+^.
018160: CD 2D 24 21 6A 1A CD 83 1B C9 05 29 D1 73 23 72 .-$!j......).s#r
018170: E5 EB 2B 56 2B 5E EB CD 2D 24 3E 29 CD D0 08 E1 ..+V+^..-$>)....
018180: E5 EB CD F2 2E 38 0B D1 CD 0E 2B 21 AB 1A CD 83 .....8....+!....
018190: 1B C9 3E 36 CD D0 08 7B CD D0 08 3E 23 CD D0 08 ..>6...{...>#...
0181A0: 3E 36 CD D0 08 7A CD D0 08 E1 C9 03 73 23 72 CD >6...z......s#r.
0181B0: 59 1B 28 14 D5 CD 2D 24 3E E5 CD D0 08 D1 CD 7E Y.(...-$>......~
0181C0: 27 21 6A 1A CD 83 1B C9 E5 CD 7E 27 3E 29 CD D0 '!j.......~'>)..
0181D0: 08 E1 C3 80 1A CD 59 1B 28 17 D5 CD 2D 24 3E E5 ......Y.(...-$>.
0181E0: CD D0 08 E1 CD 32 2A 21 EE 1A CD 83 1B C9 02 D1 .....2*!........
0181F0: 73 E5 EB CD 32 2A D1 D5 CD F2 2E 30 0B 3E 36 CD s...2*.....0.>6.
018200: DB 33 3E 3F 21 F1 10 CD 9B 12 CD 8E 0F 3E 07 CD .3>?!........>..
018210: A2 0B C9 CD DB 33 CD E7 0D E5 21 6A 11 3E 08 CD .....3....!j.>..
018220: 9B 12 3E 00 CD B0 0B E5 3E 2C 21 6A 11 CD 9B 12 ..>.....>,!j....
018230: 3E 00 CD B0 0B E5 21 00 00 3A B2 3D FE 04 20 08 >.....!..:.=.. .
018240: CD DB 33 3E 00 CD B0 0B E5 3E 06 CD 86 11 CD 3D ..3>.....>.....=
018250: 0F 3E 0D CD AB 12 D1 CD 0F 0E E3 CD 50 08 E1 E3 .>..........P...
018260: CD 50 08 E1 E3 CD 50 08 E1 C9 CD 16 07 42 61 64 .P....P......Bad
018270: 20 46 4F 52 20 6C 6F 6F 70 00 CD DB 33 CD E9 0E FOR loop...3...
018280: 3E 50 CD A2 0B C9 E5 21 B2 3D BE 28 02 E1 C9 F5 >P.....!.=.(....
018290: CD DB 33 F1 E1 C9 2A EB 3D E5 2A ED 3D E5 21 00 ..3...*.=.*.=.!.
0182A0: 00 E5 21 00 00 39 E5 E5 ED 73 EB 3D 21 0C 12 22 ..!..9...s.=!.."
0182B0: ED 3D CD E7 0D 3A B2 3D FE 08 28 2A FE 3F 28 26 .=...:.=..(*.?(&
0182C0: CD 16 07 4E 65 65 64 20 3A 20 6F 72 20 3D 20 69 ...Need : or = i
0182D0: 6E 20 63 6F 6E 73 74 61 6E 74 20 64 65 66 69 6E n constant defin
0182E0: 69 74 69 6F 6E 00 E3 CD DB 33 3E 00 CD B0 0B D1 ition....3>.....
0182F0: D5 3E 1E CD 0F 0E E3 21 00 00 CD 50 08 C1 DD E1 .>.....!...P....
018300: DD 71 00 DD 70 01 21 FA FF 09 E5 E5 3E 37 CD 86 .q..p.!.....>7..
018310: 11 3A B2 3D FE 4F 28 9A E1 E1 E1 D1 ED 53 ED 3D .:.=.O(......S.=
018320: D1 ED 53 EB 3D C9 ED 5B B3 3D D5 E5 3E 48 21 82 ..S.=..[.=..>H!.
018330: 12 CD 9B 12 E1 CD AA 12 3A B2 3D FE 49 28 0E CD ........:.=.I(..
018340: 16 07 4D 69 73 73 69 6E 67 20 24 29 00 EB 2A B3 ..Missing $)..*.
018350: 3D C1 A7 ED 42 28 24 2A C7 3D ED 4B B3 3D A7 ED =...B($*.=.K.=..
018360: 42 20 1D CD 16 07 53 65 63 74 69 6F 6E 20 74 61 B ....Section ta
018370: 67 20 6D 69 73 6D 61 74 63 68 00 D5 CD DB 33 D1 g mismatch....3.
018380: EB C9 CD 16 07 4D 69 73 73 69 6E 67 20 24 28 00 .....Missing $(.
018390: E1 7E 23 E5 A7 C8 CD 23 08 18 F5 C5 D5 47 3A B2 .~#....#.....G:.
0183A0: 3D B8 20 06 CD DB 33 D1 C1 C9 E9 F5 3A 59 3E A7 =. ...3.....:Y>.
0183B0: 20 02 F1 C9 F1 E5 C5 47 21 C8 12 7E B8 28 04 23 ......G!..~.(.#
0183C0: 23 18 F8 23 7E C1 E1 C9 27 5A 28 5B 29 5C 34 5D #..#~...'Z([)\4]
0183D0: 30 5E 0D 5F C5 F5 3A 59 3E A7 28 02 3E 01 47 3A 0^._..:Y>.(.>.G:
0183E0: 5A 3E A7 28 02 04 04 78 87 47 28 03 C6 0C 47 F1 Z>.(...x.G(...G.
0183F0: 80 C1 C9 E5 2A E1 3D 22 00 3E CD 81 15 2A C2 3D ....*.=".>...*.=
018400: D0 08 7B CD D0 08 D1 C9 D1 CD 63 31 D8 DD 7E 05 ..{.......c1..~.
018410: FE 02 30 13 3E DD CD D0 08 3E 7E CD D0 08 DD 7E ..0.>....>~....~
018420: 08 3D CD D0 08 18 2C FE 04 30 20 DD 7E 06 A7 28 .=....,..0 .~..(
018430: 0C 3E 36 CD D0 08 DD 7E 07 CD D0 08 C9 3E 11 CD .>6....~.....>..
018440: D0 08 CD 90 30 3E 73 CD D0 08 C9 3E 3A CD D0 08 ....0>s....>:...
018450: CD 90 30 3E 77 CD D0 08 C9 7E FE 4F C8 FE 4D C9 ..0>w....~.O..M.
018460: EB 2B 56 2B 5E EB 7E FE 36 20 10 2B 56 2B 5E E5 .+V+^.~.6 .+V+^.
018470: EB CD 7B 1B E1 2B 56 2B 5E 18 EA CD D0 2E 7D CD ..{..+V+^.....}.
018480: D0 08 C9 46 23 7E CD D0 08 10 F9 C9 7C B5 C8 7E ...F#~......|..~
018490: FE 36 20 10 2B E5 2B 2B 56 2B 5E EB CD 8C 1B E1 .6 .+.++V+^.....
0184A0: 56 2B 5E EB EB CD DD 30 36 00 23 36 01 23 23 3A V+^....06.#6.##:
0184B0: CF 3D 77 3D 3D 32 CF 3D C9 EB 2B 56 2B 5E 2B E5 .=w==2.=..+V+^+.
0184C0: EB 7C B5 20 0B E1 56 2B 5E EB 7C B5 C8 C3 A9 13 .|. ..V+^.|.....
0184D0: 2B 56 2B 5E 2B D5 56 2B 5E E3 E5 EB CD D0 2E D1 +V+^+.V+^.......
0184E0: E5 CD DD 30 36 04 23 23 D1 73 23 72 E1 2B 56 2B ...06.##.s#r.+V+
0184F0: 5E 18 CD EB 2B 56 2B 5E E5 D5 CD D1 20 D1 CD 0A ^...+V+^.... ...
018500: 1C E1 2B 56 2B 5E EB C3 A9 13 7A B3 C8 EB 2B 56 ..+V+^....z...+V
018510: 2B 5E E5 CD 1F 1C E1 2B 2B 2B 56 2B 5E 18 EB 3E +^.....+++V+^..>
018520: 08 F5 CD DD 30 F1 2B 36 00 23 77 23 36 01 23 ED ....0.+6.#w#6.#.
018530: 5B D9 3D 73 23 72 62 6B 13 13 ED 53 D9 3D C9 3E [.=s#rbk...S.=.>
018540: 00 18 02 3E FF CD 67 1F 21 00 00 22 16 3E 22 1A ...>..g.!..".>".
018550: 3E CD A7 1F 22 18 3E CD A7 1F 22 1C 3E EB 2B 56 >...".>...".>.+V
018560: 2B 5E 2B F5 E5 F5 EB CD 99 2B F1 ED 5B CB 3D CD +^+......+..[.=.
018570: 88 1C E1 56 2B 5E EB CD A9 13 F1 EE FF ED 5B CB ...V+^........[.
018580: 3D CD 88 1C CD 7A 1F C9 DD E5 DD 21 16 3E A7 28 =....z.....!.>.(
018590: 04 DD 21 1A 3E DD 6E 02 DD 66 03 73 23 72 DD E1 ..!.>.n..f.s#r..
0185A0: C9 EB 2B 3A CF 3D F5 E5 2B 2B 56 2B 5E EB CD FE ..+:.=..++V+^...
0185B0: 1C E1 56 2B 5E EB E5 7E FE 4F 20 22 EB CD 63 31 ..V+^..~.O "..c1
0185C0: 38 33 DD 7E 05 FE 02 28 04 FE 03 20 11 E1 3E CD 83.~...(... ..>.
0185D0: CD D0 08 CD 90 30 C1 3A CF 3D CD 8A 32 C9 E1 CD .....0.:.=..2...
0185E0: 2D 24 3E CD CD D0 08 2A 2A 3E CD 1E 09 C1 3A CF -$>....**>....:.
0185F0: 3D CD 8A 32 C9 E1 C1 3A CF 3D CD 8A 32 C9 47 7C =..2...:.=..2.G|
018600: 22 CB 3D 21 00 00 22 CD 3D 22 D5 3D 22 D7 3D 22 ".=!..".=".=".="
018610: DB 3D 22 E9 3D 2A DF 3D 3E 00 32 D0 3D 2A BE 3D .=".=*.=>.2.=*.=
018620: 22 D1 3D 2A B0 3D 11 5A 00 19 22 D3 3D 3E 40 32 ".=*.=.Z..".=>@2
018630: 06 3E 32 0A 3E 32 02 3E 32 0E 3E 32 12 3E CD 34 .>2.>2.>2.>2.>.4
018640: 15 CD 50 14 CD A1 14 CD C1 15 E1 CD A9 13 2A BE ..P...........*.
018650: 3D ED 5B D1 3D A7 ED 52 CB 3C CB 1D CB 3C CB 1D =.[.=..R.<...<..
018660: EB 2A FC 3D 73 23 72 ED 5B CB 3D 2A FE 3D 73 23 .*.=s#r.[.=*.=s#
018670: 72 2A D1 3D ED 5B BE 3D A7 ED 52 28 0C 19 06 04 r*.=.[.=..R(....
018680: 23 7E CD D0 08 10 F9 18 EF 2A 42 3E CD 1E 09 2A #~.......*B>...*
018690: DB 3D 7E 23 B6 C0 CD 01 33 55 6E 64 65 66 69 6E .=~#....3Undefin
0186A0: 65 64 20 53 54 41 52 54 00 7C B5 C8 E5 2A D3 3D ed START.|...*.=
0186B0: ED 5B D5 3D 19 EB 21 CE FF 39 A7 ED 52 DA 52 31 .[.=..!..9..R.R1
0186C0: CD 2E 02 E1 7E EB 21 CC 13 C3 AD 30 4A F6 15 16 ....~.!....0J...
0186D0: 09 16 3E E7 19 50 60 1B 1E B9 1B 14 3F 1C 31 43 ..>..P`.....?.1C
0186E0: 1C 4C A1 1C 2D 33 1D 34 9C 1D 5D 9C 1D 30 A6 1D .L..-3.4..]..0..
0186F0: 5E A6 1D 22 27 1E 03 8F 1E 1C 6B 1E 27 BE 1F 5A ^.."'.....k.'..Z
018700: BE 1F 28 03 20 5B 03 20 29 0D 20 5C 0D 20 2B 91 ..(. [. ). \. +.
018710: 20 2A 27 21 05 1C 22 07 8A 22 0B A1 22 0D CC 22 *'!..".."..".."
018720: 5F CC 22 23 62 1E 12 F3 1B 0F E9 1E 3F F8 1E 0E _."#b.......?...
018730: 21 24 00 CD 01 33 45 72 72 6F 72 20 69 6E 20 74 !$...3Error in t
018740: 72 61 6E 73 6C 61 74 69 6F 6E 20 6E 6F 64 65 00 ranslation node.
018750: 3E 21 CD D0 08 CD A7 1F 22 DB 3D CD 96 14 36 00 >!......".=...6.
018760: 23 36 00 3E 11 CD D0 08 CD A7 1F 22 FE 3D CD 96 #6.>.......".=..
018770: 14 3E 01 CD D0 08 CD A7 1F 22 FC 3D CD 96 14 3E .>.......".=...>
018780: 3E CD D0 08 3A 5C 3E CD D0 08 3E C3 CD D0 08 2A >...:\>...>....*
018790: 2C 3E CD 1E 09 C9 7E CD D0 08 23 7E CD D0 08 2B ,>....~...#~...+
0187A0: C9 2A CB 3D E5 DD 21 E4 14 11 00 00 21 03 00 E5 .*.=..!.....!...
0187B0: 21 13 02 A7 ED 52 20 03 E1 E1 C9 E1 7B DD BE 00 !....R .....{...
0187C0: 20 1A 7A DD BE 01 20 14 4E 23 46 23 E3 E5 09 CD .z... .N#F#....
0187D0: 1E 09 E1 E3 13 13 DD 23 DD 23 18 D3 7E CD D0 08 .......#.#..~...
0187E0: 23 13 18 CB 09 00 25 00 91 00 94 00 B7 00 BA 00 #.....%.........
0187F0: BF 00 C6 00 CA 00 D8 00 DD 00 E1 00 E5 00 01 01 ................
018800: B5 20 02 78 C9 04 3A CF 3D 3D 3D 32 CF 3D 7E FE . .x..:.===2.=~.
018810: 36 28 0C 78 F5 CD 2D 24 3E E5 CD D0 08 F1 C9 2B 6(.x..-$>......+
018820: E5 2B 2B 56 2B 5E 78 EB CD FE 1C E1 F5 56 2B 5E .++V+^x......V+^
018830: EB 18 E2 CD 67 1F 21 00 00 22 16 3E 22 1A 3E CD ....g.!..".>".>.
018840: A7 1F 22 18 3E CD A7 1F 22 1C 3E EB 2B E5 2B 2B ..".>...".>.+.++
018850: 2B 2B 56 2B 5E EB 3E 00 CD 99 2B DD 21 16 3E ED ++V+^.>...+.!.>.
018860: 5B CB 3D CD 71 32 E1 56 2B 5E E5 EB CD A9 13 3E [.=.q2.V+^.....>
018870: C3 CD D0 08 CD A7 1F E5 CD 96 14 ED 5B CB 3D DD ............[.=.
018880: 21 1A 3E CD 71 32 E1 E3 2B 56 2B 5E EB CD A9 13 !.>.q2..+V+^....
018890: E1 ED 5B CB 3D 73 23 72 CD 7A 1F C9 CD 41 1F CD ..[.=s#r.z...A..
0188A0: 67 1F 3E 00 18 08 CD 41 1F CD 67 1F 3E FF 44 4D g.>....A..g.>.DM
0188B0: F5 3E 00 32 06 3E 32 16 3E 32 1A 3E 3C 32 0A 3E .>.2.>2.>2.><2.>
0188C0: 3A CF 3D 32 0B 3E 32 07 3E 2A CB 3D 22 0C 3E CD :.=2.>2.>*.=".>.
0188D0: A7 1F 22 08 3E CD A7 1F 22 18 3E CD A7 1F 22 1C ..".>...".>...".
0188E0: 3E 1A CD 6A 19 F1 EB 2B 56 2B 5E 2B F5 E5 F5 EB >..j...+V+^+....
0188F0: CD 99 2B F1 ED 5B CB 3D CD 88 1C E1 56 2B 5E EB ..+..[.=....V+^.
018900: CD A9 13 3E C3 2A 0C 3E CD 37 2C F1 EE FF ED 5B ...>.*.>.7,....[
018910: CB 3D CD 88 1C ED 5B CB 3D DD 21 06 3E CD 71 32 .=....[.=.!.>.q2
018920: CD 7A 1F CD 54 1F C9 EB 2B 56 2B 5E EB CD 2D 24 .z..T...+V+^..-$
018930: 3E EB CD D0 08 3A 02 3E F6 80 32 02 3E DD 21 02 >....:.>..2.>.!.
018940: 3E 21 46 1E 18 50 CD F6 31 52 45 53 55 4C 54 49 >!F..P..1RESULTI
018950: 53 20 6F 75 74 73 69 64 65 20 61 20 56 41 4C 4F S outside a VALO
018960: C6 C9 DD 21 0E 3E 21 C7 1E 18 2B DD 21 0A 3E 21 ...!.>!...+.!.>!
018970: 74 1E 18 22 CD F6 31 4C 4F 4F 50 20 66 6F 75 6E t.."..1LOOP foun
018980: 64 20 6F 75 74 73 69 64 65 20 6C 6F 6F F0 C9 DD d outside loo...
018990: 21 06 3E 21 AB 1E DD CB 00 76 28 01 E9 DD 46 01 !.>!.....v(...F.
0189A0: 3A CF 3D CD 91 32 3E C3 C3 24 2C CD F6 31 42 52 :.=..2>..$,..1BR
0189B0: 45 41 4B 20 66 6F 75 6E 64 20 6F 75 74 73 69 64 EAK found outsid
0189C0: 65 20 6C 6F 6F F0 C9 CD F6 31 52 45 54 55 52 4E e loo....1RETURN
0189D0: 20 66 6F 75 6E 64 20 6F 75 74 73 69 64 65 20 46 found outside F
0189E0: 55 4E 43 2F 50 52 4F C3 C9 EB 2B 56 2B 5E EB CD UNC/PRO...+V+^..
0189F0: 2D 24 3E E9 CD D0 08 C9 EB 2B 56 2B 5E E5 CD 63 -$>......+V+^..c
018A00: 09 01 2A 01 32 01 4A 01 4F 01 52 01 60 01 66 01 ..*.2.J.O.R.`.f.
018A10: 75 01 7A 01 7D 01 81 01 89 01 8E 01 92 01 98 01 u.z.}...........
018A20: A8 01 BC 01 C5 01 D0 01 D4 01 D8 01 DB 01 FB 01 ................
018A30: 11 02 00 00 ED 4B CB 3D 21 0E 00 09 44 4D DD 21 .....K.=!...DM.!
018A40: 1E 3E 21 5D 15 5E 23 56 23 7A A3 FE FF C8 EB 09 .>!].^#V#z£.....
018A50: DD 75 00 DD 74 01 EB DD 23 DD 23 18 E8 00 00 02 .u..t...#.#.....
018A60: 00 04 00 08 00 24 00 70 00 8F 00 90 00 C8 00 D3 .....$.p........
018A70: 00 E9 00 F0 00 FA 00 20 01 43 01 84 01 CF 01 FF ....... .C......
018A80: FF DD 21 44 3E 21 A6 15 7E A7 C8 E5 DD E5 CD 41 ..!D>!..~......A
018A90: 33 DD E1 DD 75 00 DD 74 01 DD 23 DD 23 E1 7E 23 3...u..t..#.#.~#
018AA0: CB 7F 20 E4 18 F8 6C 65 76 65 EC 6C 6F 6E 67 6A .. ...leve.longj
018AB0: 75 6D F0 61 70 74 6F 76 65 E3 00 36 3E 38 3E 3A um.aptove..6>8>:
018AC0: 3E 21 44 3E DD 21 BB 15 06 03 C5 5E 23 56 23 E5 >!D>.!.....^#V#.
018AD0: DD E5 CD DD 30 DD E1 2B 36 00 23 36 02 23 36 01 ....0..+6.#6.#6.
018AE0: 23 DD 5E 00 DD 56 01 1A 77 13 23 1A 77 E1 DD 23 #.^..V..w.#.w..#
018AF0: DD 23 C1 10 D5 C9 EB 2B 56 2B 5E E5 EB CD A9 13 .#.....+V+^.....
018B00: E1 2B 56 2B 5E EB C3 A9 13 2A E5 3D E5 3A CF 3D .+V+^....*.=.:.=
018B10: F5 2A CD 3D E5 2A B0 3D E5 EB 2B 56 2B 5E 2B E5 .*.=.*.=..+V+^+.
018B20: EB CD 83 16 E1 56 2B 5E EB CD A9 13 E1 22 B0 3D .....V+^.....".=
018B30: C1 2A CD 3D ED 43 CD 3D CD 47 16 C1 3A CF 3D CD .*.=.C.=.G..:.=.
018B40: 8A 32 E1 22 E5 3D C9 54 5D A7 ED 42 C8 D5 DD E1 .2.".=.T]..B....
018B50: DD 7E 05 FE 09 20 24 D5 C5 DD 5E 02 DD 56 03 CD .~... $...^..V..
018B60: 1B 32 55 6E 64 65 66 69 6E 65 64 20 69 64 65 6E .2Undefined iden
018B70: 74 69 66 69 65 72 2C A0 C1 DD E1 DD 6E 00 DD 66 tifier,.....n..f
018B80: 01 18 C4 7E FE 01 20 53 2B E5 2B 2B 56 2B 5E 1A ...~.. S+.++V+^.
018B90: 21 A7 16 CD AD 30 E1 56 2B 5E 2B E5 EB CD 83 16 !....0.V+^+.....
018BA0: E1 56 2B 5E EB 18 3D 47 0C 17 46 0C 17 54 0C 17 .V+^..=G..F..T..
018BB0: 55 0C 17 56 0C 17 57 0C 17 58 0C 17 59 0C 17 44 U..V..W..X..Y..D
018BC0: 2B 17 45 87 17 00 CD 01 33 44 65 63 6C 61 72 61 +.E.....3Declara
018BD0: 74 69 6F 6E 20 65 72 72 6F 72 00 E5 EB 21 A7 16 tion error...!..
018BE0: CD AD 30 E1 7E EB 21 EC 16 C3 AD 30 44 0B 17 45 ..0.~.!....0D..E
018BF0: 0B 17 47 DE 17 46 DE 17 54 DE 17 55 DE 17 56 DE ..G..F..T..U..V.
018C00: 31 38 35 DD 7E 05 FE 08 28 1D FE 09 28 19 CD F6 185.~...(...(...
018C10: 31 4C 61 62 65 6C 73 20 6E 65 65 64 20 61 20 67 1Labels need a g
018C20: 6C 6F 62 61 EC 18 11 DD 36 05 08 ED 5B CB 3D DD loba....6...[.=.
018C30: 4E 07 DD 46 08 CD 18 21 E1 2B 56 2B 5E EB C3 A9 N..F...!.+V+^...
018C40: 13 C1 2A 0A 3E E5 2A 0C 3E E5 2A 06 3E E5 2A 08 ..*.>.*.>.*.>.*.
018C50: 3E E5 C5 C9 C1 E1 22 08 3E E1 22 06 3E E1 22 0C >.....".>.".>.".
018C60: 3E E1 22 0A 3E C5 C9 C1 2A 16 3E E5 2A 18 3E E5 >.".>...*.>.*.>.
018C70: 2A 1A 3E E5 2A 1C 3E E5 C5 C9 C1 E1 22 1C 3E E1 *.>.*.>.....".>.
018C80: 22 1A 3E E1 22 18 3E E1 22 16 3E C5 C9 DD CB 00 ".>.".>.".>.....
018C90: 46 28 0A DD 6E 02 DD 66 03 CD 1E 09 C9 DD 6E 02 F(..n..f......n.
018CA0: DD 66 03 CD 96 14 C9 D5 2A 00 3E E5 23 23 22 00 .f......*.>.##".
018CB0: 3E ED 5B D1 3D A7 ED 52 D2 52 31 E1 D1 C9 CD 41 >.[.=..R.R1....A
018CC0: 1F 3E 00 32 06 3E 3C 32 0A 3E CD A7 1F 22 08 3E .>.2.><2.>...".>
018CD0: 2A CB 3D 22 0C 3E 3A CF 3D 32 0B 3E 32 07 3E 1A *.=".>:.=2.>2.>.
018CE0: CD 6A 19 EB 2B 56 2B 5E EB CD A9 13 3E C3 2A 0C .j..+V+^....>.*.
018CF0: 3E CD 37 2C ED 5B CB 3D DD 21 06 3E CD 71 32 CD >.7,.[.=.!.>.q2.
018D00: 54 1F C9 CD 41 1F CD 67 1F 3E FF 18 08 CD 41 1F T...A..g.>....A.
018D10: CD 67 1F 3E 00 F5 3E 00 32 06 3E 32 0A 3E 32 16 .g.>..>.2.>2.>2.
018D20: 3E 32 1A 3E CD A7 1F 22 08 3E CD A7 1F 22 0C 3E >2.>...".>...".>
018D30: CD A7 1F 22 18 3E CD A7 1F 22 1C 3E 3A CF 3D 32 ...".>...".>:.=2
018D40: 0B 3E 32 07 3E 2A CB 3D F1 F5 E5 F5 1A CD 6A 19 .>2.>*.=......j.
018D50: EB 2B 56 2B 5E 2B E5 EB CD A9 13 ED 5B CB 3D DD .+V+^+......[.=.
018D60: 21 0A 3E CD 71 32 E1 56 2B 5E EB F1 CD 99 2B D1 !.>.q2.V+^....+.
018D70: F1 F5 EE FF CD 88 1C F1 ED 5B CB 3D CD 88 1C ED .........[.=....
018D80: 5B CB 3D DD 21 06 3E CD 71 32 CD 7A 1F CD 54 1F [.=.!.>.q2.z..T.
018D90: C9 EB 2B 56 2B 5E 2B E5 D5 CD D1 20 D1 CD A8 20 ..+V+^+.... ...
018DA0: E1 56 2B 5E EB C3 A9 13 7A B3 C8 EB 2B E5 2B 2B .V+^....z...+.++
018DB0: 56 2B 5E EB CD D0 2E EB ED 4B D9 3D CD 18 21 E1 V+^......K.=..!.
018DC0: 56 2B 5E E5 CD 1F 1C DD E1 DD 5E FC DD 56 FD 18 V+^.......^..V..
018DD0: D7 21 00 00 7A B3 28 0D 23 23 D5 DD E1 DD 5E FA .!..z.(.##....^.
018DE0: DD 56 FB 18 EF E5 ED 5B CB 3D 19 7B E6 01 20 01 .V.....[.=.{.. .
018DF0: 23 23 23 23 3E C3 CD D0 08 CD 1E 09 3A CB 3D E6 ####>.......:.=.
018E00: 17 57 DE 17 58 DE 17 59 DE 17 00 C9 EB 2B 56 2B .W..X..Y.....+V+
018E10: 5E D5 CD DD 30 2B 36 00 23 36 02 23 36 00 23 E5 ^...0+6.#6.#6.#.
018E20: CD A7 1F EB E1 73 23 72 EB C1 C9 EB 2B 56 2B 5E .....s#r....+V+^
018E30: 2B 46 2B 4E 1A FE 36 20 21 0A FE 36 20 21 EB 2B +F+N..6 !..6 !.+
018E40: 56 2B 5E 2B E5 60 69 2B 46 2B 4E 2B E5 CD 79 17 V+^+.`i+F+N+..y.
018E50: E1 46 2B 4E E1 56 2B 5E 18 DA 0A FE 36 20 1A CD .F+N.V+^....6 ..
018E60: F6 31 45 78 70 72 65 73 73 69 6F 6E 2F 69 64 20 .1Expression/id
018E70: 6D 69 73 6D 61 74 63 E8 C9 C5 CD A5 1B E1 CD 2D mismatc........-
018E80: 24 3E E5 CD D0 08 C9 D5 DD E1 DD 6E FC DD 66 FD $>.........n..f.
018E90: CD D0 2E 23 29 ED 5B E5 3D 19 22 E5 3D D5 ED 4B ...#).[.=.".=..K
018EA0: E7 3D A7 ED 42 38 04 09 22 E7 3D DD 6E FE DD 66 .=..B8..".=.n..f
018EB0: FF CD A4 1B 3E 2A CD D0 08 2A 20 3E CD 1E 09 E1 ....>*...* >....
018EC0: 7C B5 28 0D 3E 11 CD D0 08 CD 1E 09 3E 19 CD D0 |.(.>.......>...
018ED0: 08 21 D8 17 CD 83 1B C9 05 CB 3C CB 1D E5 D5 3A .!........<....:
018EE0: D0 3D A7 28 0D 3E C3 CD D0 08 CD A7 1F CD 96 14 .=.(.>..........
018EF0: E3 E5 2A E9 3D E3 22 E9 3D 2B 56 2B 5E 2B E5 2A ..*.=.".=+V+^+.*
018F00: DD 3D A7 ED 52 20 0A 2A DB 3D ED 4B CB 3D 71 23 .=..R .*.=.K.=q#
018F10: 70 CD 63 31 ED 5B CB 3D CD 4F 32 D1 2A E7 3D E5 p.c1.[.=.O2.*.=.
018F20: 2A E3 3D E5 2A CD 3D E5 2A B0 3D E5 3A CF 3D F5 *.=.*.=.*.=.:.=.
018F30: 3E 7F 32 CF 3D 3A D0 3D 3C 32 D0 3D 21 00 00 22 >.2.=:.=<2.=!.."
018F40: E7 3D 22 E5 3D EB 56 2B 5E 2B E5 EB CD 8C 1B CD .=".=.V+^+......
018F50: 00 19 D1 2A 0E 3E E5 2A 10 3E E5 3A CF 3D 67 2E ...*.>.*.>.:.=g.
018F60: 00 22 0E 3E CD A7 1F 22 10 3E EB CD CF 18 ED 5B .".>...".>.....[
018F70: CB 3D DD 21 0E 3E CD 71 32 E1 22 10 3E E1 22 0E .=.!.>.q2.".>.".
018F80: 3E 2A E7 3D 7C B5 21 9F 19 20 03 21 CC 19 CD AA >*.=|.!.. .!....
018F90: 12 ED 5B E7 3D 2A E3 3D 73 23 72 3A D0 3D 3D 32 ..[.=*.=s#r:.==2
018FA0: D0 3D F1 32 CF 3D E1 22 B0 3D C1 2A CD 3D ED 43 .=.2.=.".=.*.=.C
018FB0: CD 3D CD 47 16 E1 22 E3 3D E1 22 E7 3D E1 22 E9 .=.G..".=.".=.".
018FC0: 3D 3A D0 3D A7 C8 E1 ED 5B CB 3D 73 23 72 C9 E5 =:.=....[.=s#r..
018FD0: DD E1 56 2B 5E EB DD 7E 05 FE 46 28 10 FE 54 28 ..V+^..~..F(..T(
018FE0: 0C FE 56 28 08 FE 58 28 04 CD A9 13 C9 7E FE 33 ..V(..X(.....~.3
018FF0: 20 05 EB CD 88 25 C9 CD 2D 24 3E EB CD D0 08 C9 ....%..-$>.....
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 00 02 02 09 4E E5 15 00 C1 02 00 00 00 02 ......N.........
019020: 15 00 C6 02 00 00 00 02 15 00 C2 02 00 00 00 02 ................
019030: 15 00 C7 02 00 00 00 02 15 00 C3 02 00 00 00 02 ................
019040: 15 00 C8 02 00 00 00 02 15 00 C4 02 00 00 00 02 ................
019050: 15 00 C9 02 00 00 00 02 15 00 C5 02 00 00 00 02 ................
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 01 28 05 3E 00 CD D0 08 2A CB 3D 22 D9 3D E1 7C .(.>....*.=".=.|
019110: B5 C8 CD D0 08 2B 18 F7 2A D1 3D 72 2B 73 2B 70 .....+..*.=r+s+p
019120: 2B 71 2B 22 D1 3D C9 2A 12 3E E5 2A 14 3E E5 3E +q+".=.*.>.*.>.>
019130: 00 32 12 3E 3A CF 3D 32 13 3E CD A7 1F 22 14 3E .2.>:.=2.>...".>
019140: EB 2B 56 2B 5E E5 EB CD 2D 24 CD A7 1F 54 5D 3E .+V+^...-$...T]>
019150: 11 CD D0 08 CD 96 14 3E 3E CD D0 08 CD A7 1F 7E .......>>......~
019160: CD D0 08 3E C3 CD D0 08 2A 28 3E CD 1E 09 E1 D5 ...>....*(>.....
019170: EB 2A D7 3D E5 21 00 00 22 D7 3D 2A D5 3D E5 EB .*.=.!..".=*.=..
019180: 2B 56 2B 5E EB CD A9 13 D1 D5 2A D5 3D A7 ED 52 +V+^......*.=..R
019190: 23 23 3E C3 CD D0 08 ED 5B CB 3D 19 23 23 CD 1E ##>.....[.=.##..
0191A0: 09 D1 E1 DD E1 E5 D5 2A CB 3D DD 75 00 DD 74 01 .......*.=.u..t.
0191B0: 2A D5 3D A7 ED 52 CB 3C CB 1D CB 3C CB 1D DD 75 *.=..R.<...<...u
0191C0: 02 45 7D A7 28 2B 2A D5 3D ED 5B D3 3D 19 2B 2B .E}.(+*.=.[.=.++
0191D0: 2B 2B E5 DD E1 DD 6E 00 DD 66 01 CD 1E 09 DD 6E ++....n..f.....n
0191E0: 02 DD 66 03 CD 1E 09 DD 2B DD 2B DD 2B DD 2B 10 ..f.....+.+.+.+.
0191F0: E4 2A D7 3D 7C B5 20 05 2A CB 3D 23 23 CD 1E 09 .*.=|. .*.=##...
019200: E1 22 D5 3D E1 22 D7 3D ED 5B CB 3D DD 21 12 3E .".=.".=.[.=.!.>
019210: CD 71 32 E1 22 14 3E E1 22 12 3E C9 3A 12 3E CB .q2.".>.".>.:.>.
019220: 77 28 28 1B 1B D5 CD F6 31 43 41 53 45 2F 44 45 w((.....1CASE/DE
019230: 46 41 55 4C 54 20 6F 75 74 73 69 64 65 20 61 20 FAULT outside a
019240: 53 57 49 54 43 48 4F CE C3 81 22 EB 2B 56 2B 5E SWITCHO...".+V+^
019250: E5 EB CD D0 2E EB 2A D3 3D ED 4B D5 3D 09 44 4D ......*.=.K.=.DM
019260: 21 CE FF 39 A7 ED 42 DA 52 31 60 69 73 23 72 ED !..9..B.R1`is#r.
019270: 5B CB 3D 23 73 23 72 2A D5 3D 23 23 23 23 22 D5 [.=#s#r*.=####".
019280: 3D E1 2B 56 2B 5E EB C3 A9 13 3A 12 3E CB 77 C2 =.+V+^....:.>.w.
019290: 25 22 2A CB 3D 22 D7 3D EB 2B 56 2B 5E EB C3 A9 %"*.=".=.+V+^...
0192A0: 13 DD 21 12 3E 21 AB 22 C3 96 1E CD F6 31 45 4E ..!.>!.".....1EN
0192B0: 44 43 41 53 45 20 75 73 65 64 20 6F 75 74 73 69 DCASE used outsi
0192C0: 64 65 20 53 57 49 54 43 48 4F CE C9 D5 DD E1 CD de SWITCHO......
0192D0: 41 1F 2A F8 3D E5 3E 2A CD D0 08 CD A7 1F 22 F8 A.*.=.>*......".
0192E0: 3D CD 96 14 3E E5 CD D0 08 3A CF 3D 3D 3D 32 CF =...>....:.===2.
0192F0: 3D DD 6E FA DD 66 FB CD 2D 24 21 D7 23 CD 83 1B =.n..f..-$!.#...
019300: E1 CD 2D 24 C9 D5 CD 2D 24 D1 CD 0E 2B C9 1A FE ..-$...-$...+...
019310: 4F 28 11 3E 11 CD D0 08 1B 1B 1A CD D0 08 13 1A O(.>............
019320: CD D0 08 C9 DD E5 CD 63 31 38 18 DD 7E 05 FE 04 .......c18..~...
019330: 20 14 3E 11 CD D0 08 DD 7E 07 CD D0 08 DD 7E 08 .>.....~.....~.
019340: CD D0 08 DD E1 C9 FE 02 30 24 3E DD CD D0 08 3E ........0$>....>
019350: 56 CD D0 08 DD 7E 08 CD D0 08 3E DD CD D0 08 3E V....~....>....>
019360: 5E CD D0 08 DD 7E 08 3D CD D0 08 DD E1 C9 FE 04 ^....~.=........
019370: 30 0B 3E 11 CD D0 08 CD 90 30 DD E1 C9 3E ED CD 0.>......0...>..
019380: D0 08 3E 5B CD D0 08 CD 90 30 DD E1 C9 FE 4B 28 ..>[.....0....K(
019390: 06 FE 4C 28 02 A7 C9 37 C9 DD E5 47 3A F7 3D F5 ..L(...7...G:.=.
0193A0: 78 32 F7 3D EB 21 B3 2B 1A CD AD 30 F1 32 F7 3D x2.=.!.+...0.2.=
0193B0: DD E1 C9 19 6C 2C 18 7D 2C 10 84 2C 11 8B 2C 08 ....l,.},..,..,.
0193C0: 92 2C 1F 01 2D 1B 4F 2D 1A 95 2D 20 DB 2D 2E 2B .,..-.O-..- .-.+
0193D0: 2D 0C 3D 2D 4D 09 2E 4F 09 2E 00 EB CD 2D 24 21 -.=-M..O.....-$!
0193E0: EB 2B CD 83 1B 3E CA CD EE 2B C9 02 7C B5 F5 3A .+...>...+..|..:
0193F0: F7 3D A7 28 14 21 10 2C C1 7E B8 28 04 23 23 18 .=.(.!.,.~.(.##.
019400: F8 23 7E DD 21 16 3E 18 1B F1 DD 21 1A 3E 18 14 .#~.!.>....!.>..
019410: C2 CA CA C2 D2 DA DA D2 C3 C3 C2 20 CA 28 D2 30 ........... .(.0
019420: DA 38 C3 18 DD CB 00 46 20 07 CD D0 08 CD 8D 1F .8.....F .......
019430: C9 DD 6E 02 DD 66 03 F5 44 4D ED 5B CB 3D A7 ED ..n..f..DM.[.=..
019440: 52 11 7E 00 19 7C A7 20 19 F1 E5 21 1A 2C BE 28 R.~..|. ...!.,.(
019450: 04 23 23 18 F9 23 7E CD D0 08 E1 7D C6 80 CD D0 .##..#~....}....
019460: 08 C9 F1 CD D0 08 60 69 CD 1E 09 C9 CD 19 2E 3E ......`i.......>
019470: D2 21 27 2D F5 CD 83 1B F1 CD EE 2B C9 CD 26 2E .!'-.......+..&.
019480: 3E DA 18 ED CD 19 2E 3E DA 18 E6 CD 26 2E 3E D2 >......>....&.>.
019490: 18 DF 3E C2 F5 CD 05 2D D5 DD E1 D5 DD 56 FD DD ..>....-.....V..
0194A0: 5E FC CD F2 2E 30 4F E1 EB 7C B5 20 4A EB 2B 56 ^....0O..|. J.+V
0194B0: 2B 5E 1A FE 4F 20 31 D5 CD 63 31 D1 38 34 DD 7E +^..O 1..c1.84.~
0194C0: 05 FE 02 30 23 3E DD CD D0 08 3E 7E CD D0 08 DD ...0#>....>~....
0194D0: 7E 08 CD D0 08 3E DD CD D0 08 3E B6 CD D0 08 DD ~....>....>.....
0194E0: 7E 08 3D CD D0 08 18 0A EB CD 2D 24 21 EB 2B CD ~.=.......-$!.+.
0194F0: 83 1B F1 C3 EE 2B D1 CD 9F 2A 21 27 2D F1 C3 74 .....+...*!'-..t
019500: 2A F8 3D CD 96 14 DD 6E F8 DD 66 F9 CD 2D 24 2A *.=....n..f..-$*
019510: CB 3D E5 DD 7E 00 CD 6A 19 ED 4B CB 3D 03 2A F8 .=..~..j..K.=.*.
019520: 3D 71 23 70 DD 6E FE DD 66 FF 7C B5 20 05 21 01 =q#p.n..f.|. .!.
019530: 00 18 03 CD D0 2E E5 CB 7C 21 DD 23 28 03 21 EB ........|!.#(.!.
019540: 23 CD 83 1B CD A7 1F 22 08 3E CD 96 14 3E C5 CD #......".>...>..
019550: D0 08 3A CF 3D 67 2E 00 22 06 3E 25 25 22 0A 3E ..:.=g..".>%%".>
019560: CD A7 1F 22 0C 3E 2A CD 3D E5 2A B0 3D E5 DD 6E ...".>*.=.*.=..n
019570: F6 DD 66 F7 CD A4 1B DD 6E FC DD 66 FD CD A9 13 ..f.....n..f....
019580: 3A CF 3D C6 04 32 CF 3D E1 22 B0 3D C1 2A CD 3D :.=..2.=.".=.*.=
019590: ED 43 CD 3D CD 47 16 ED 5B CB 3D DD 21 0A 3E CD .C.=.G..[.=.!.>.
0195A0: 71 32 3E E1 CD D0 08 D1 21 04 24 CD C2 30 3E C3 q2>.....!.$..0>.
0195B0: E1 CD 37 2C ED 5B CB 3D DD 21 06 3E CD 71 32 3E ..7,.[.=.!.>.q2>
0195C0: E1 CD D0 08 3E 22 CD D0 08 2A F8 3D CD 96 14 E1 ....>"...*.=....
0195D0: 22 F8 3D CD 54 1F C9 05 7C EE 80 67 22 0D 11 00 ".=.T...|..g"...
0195E0: 00 EB 42 4B 7A EE 80 57 ED 52 DA 0C 11 00 00 44 ..BKz..W.R.....D
0195F0: 4D 7C EE 80 67 ED 52 DA 3E 23 CD D0 08 C9 3E 2B M|..g.R.>#....>+
019600: CD D0 08 C9 03 01 00 F8 23 FF FF FE 23 00 00 03 ........#...#...
019610: 24 3E 11 CD D0 08 60 69 CD 1E 09 3E 19 CD D0 08 $>....`i...>....
019620: C9 3E C3 CD D0 08 2A 2E 3E CD 1E 09 C9 7E EB 21 .>....*.>....~.!
019630: 35 24 C3 AD 30 4D BD 24 4F CE 24 52 CD 24 4B 32 5$..0M.$O.$R.$K2
019640: 25 60 61 25 43 47 25 33 7F 25 2E E8 25 0C F4 25 %`a%CG%3.%..%..%
019650: 17 00 26 26 9D 26 20 B3 26 4E 02 27 2F 1D 27 35 ..&&.& .&N.'/.'5
019660: 7E 27 3D CF 27 39 03 28 3B DE 28 24 2D 29 08 52 ~'=.'9.(;.($-).R
019670: 27 1F 68 27 19 F7 28 18 0D 29 11 ED 28 10 17 29 '.h'..(..)..(..)
019680: 38 41 29 51 23 2A 21 60 29 09 4B 29 1B 71 29 1A 8A)Q#*!`).K).q).
019690: 82 29 1D 93 29 25 A2 29 3C B1 29 00 CD 01 33 55 .)..)%.)<.)...3U
0196A0: 6E 65 78 70 65 63 74 65 64 20 6E 6F 64 65 20 69 nexpected node i
0196B0: 6E 20 65 78 70 72 65 73 73 69 6F 6E 00 3E 21 CD n expression.>!.
0196C0: D0 08 1B 1B 1A CD D0 08 13 1A CD D0 08 C9 DD E5 ................
0196D0: CD 63 31 38 18 DD 7E 05 FE 04 20 14 3E 21 CD D0 .c18..~... .>!..
0196E0: 08 DD 7E 07 CD D0 08 DD 7E 08 CD D0 08 DD E1 C9 ..~.....~.......
0196F0: FE 02 30 24 3E DD CD D0 08 3E 66 CD D0 08 DD 7E ..0$>....>f....~
019700: 2C 3E CA 18 8F D5 EB 2B 56 2B 5E CD F2 2E 38 03 ,>.....+V+^...8.
019710: D1 A7 C9 E1 E5 2B 56 2B 5E 2B 46 72 2B 4E 73 23 .....+V+^+Fr+Ns#
019720: 23 71 23 70 D1 37 C9 03 A7 ED 52 3A F7 3D A7 C8 #q#p.7....R:.=..
019730: 3E C3 CD D0 08 DD 21 16 3E CD 8D 1F C9 3A F7 3D >.....!.>....:.=
019740: A7 C0 3E C3 CD D0 08 DD 21 1A 3E CD 8D 1F C9 2A ..>.....!.>....*
019750: 16 3E E5 2A 18 3E E5 3A F7 3D F5 21 00 00 22 16 .>.*.>.:.=.!..".
019760: 3E CD A7 1F 22 18 3E EB 2B 56 2B 5E E5 EB 3E 00 >...".>.+V+^..>.
019770: CD 99 2B ED 5B CB 3D DD 21 16 3E CD 71 32 D1 F1 ..+.[.=.!.>.q2..
019780: 32 F7 3D E1 22 18 3E E1 22 16 3E EB 2B 56 2B 5E 2.=.".>.".>.+V+^
019790: EB CD 99 2B C9 2A 1A 3E E5 2A 1C 3E E5 3A F7 3D ...+.*.>.*.>.:.=
0197A0: F5 21 00 00 22 1A 3E CD A7 1F 22 1C 3E EB 2B 56 .!..".>...".>.+V
0197B0: 2B 5E E5 EB 3E FF CD 99 2B ED 5B CB 3D DD 21 1A +^..>...+.[.=.!.
0197C0: 3E CD 71 32 D1 F1 32 F7 3D E1 22 1C 3E E1 22 1A >.q2..2.=.".>.".
0197D0: 3E EB 2B 56 2B 5E EB CD 99 2B C9 CD EC 2D 3A F7 >.+V+^...+...-:.
0197E0: 3D EE FF EB 2B 56 2B 5E EB CD 99 2B 2A 16 3E ED =...+V+^...+*.>.
0197F0: 4B 1A 3E ED 43 16 3E 22 1A 3E 2A 18 3E ED 4B 1C K.>.C.>".>*.>.K.
019800: 3E ED 43 18 3E 22 1C 3E C9 D5 CD F2 2E E1 D2 DC >.C.>".>........
019810: 2B 7A B3 CA 3D 2D C3 2B 2D EB 2B 46 2B 4E 2B 56 +z..=-.+-.+F+N+V
019820: 2B 5E 60 69 18 0A EB 2B 56 2B 5E 2B 46 2B 6E 60 +^`i...+V+^+F+n`
019830: D5 E5 CD F2 2E 38 1C D1 D5 CD F2 2E 38 58 E1 D1 .....8......8X..
019840: CD AA 2A 21 4A 2E CD 83 1B C9 08 7C EE 80 67 7A ..*!J......|..gz
019850: EE 80 57 E1 C1 D5 E5 EB CD F2 2E 38 1D E1 CD 2D ..W........8...-
019860: 24 21 75 2E CD 83 1B 3E 11 CD D0 08 E1 7C EE 80 $!u....>.....|..
019870: 67 CD 1E 09 C9 04 7C EE 80 67 3E 21 CD D0 08 7A g.....|..g>!...z
019880: EE 80 67 6B CD 1E 09 3E 11 CD D0 08 E1 E1 7C EE ..gk...>......|.
019890: 80 67 CD 1E 09 C9 E1 E1 D5 7E FE 4F 28 15 CD 8D .g.......~.O(...
0198A0: 2B 30 06 EB CD 3F 25 18 0E CD 2D 24 3E EB CD D0 +0...?%...-$>...
0198B0: 08 18 04 EB CD 0E 2B 21 CB 2E CD 83 1B 3E 21 CD ......+!.....>!.
0198C0: D0 08 E1 7C EE 80 67 CD 1E 09 C9 04 7A EE 80 57 ...|..g.....z..W
0198D0: EB CD F2 2E EB D8 CD F6 31 4E 65 65 64 20 63 6F ........1Need co
0198E0: 6E 73 74 61 6E 74 20 65 78 70 72 65 73 73 69 6F nstant expressio
0198F0: EE C9 1A 21 F9 2E C3 AD 30 4F 23 2F 4D 43 2F 35 ...!....0O#/MC/5
019900: 08 CD D0 08 3E DD CD D0 08 3E 6E CD D0 08 DD 7E ....>....>n....~
019910: 08 3D CD D0 08 DD E1 C9 FE 04 30 0B 3E 21 CD D0 .=........0.>!..
019920: 08 CD 90 30 DD E1 C9 3E 2A CD D0 08 CD 90 30 DD ...0...>*.....0.
019930: E1 C9 DD E5 CD A1 1C 3E EB CD D0 08 DD E1 C9 DD .......>........
019940: E5 CD A1 1C DD E1 C9 EB 2B 56 2B 5E EB CD 2D 24 ........+V+^..-$
019950: 21 57 25 CD 83 1B C9 09 7C EE FF 67 7D EE FF 6F !W%.....|..g}..o
019960: 23 EB 2B 56 2B 5E EB CD 2D 24 21 71 25 CD 83 1B #.+V+^..-$!q%...
019970: C9 0D CB 7C 28 09 7C EE FF 67 7D EE FF 6F 23 CD ...|(.|..g}..o#.
019980: 88 25 3E EB CD D0 08 C9 DD E5 2A 02 3E E5 2A 04 .%>.......*.>.*.
019990: 3E E5 3E 00 32 02 3E 3A CF 3D 32 03 3E CD A7 1F >.>.2.>:.=2.>...
0199A0: 22 04 3E EB 2B 56 2B 5E EB CD A9 13 DD 21 02 3E ".>.+V+^.....!.>
0199B0: DD CB 00 7E 20 20 CD F6 31 56 41 4C 4F 46 20 6D ...~ ..1VALOF m
0199C0: 75 73 74 20 63 6F 6E 74 61 69 6E 20 52 45 53 55 ust contain RESU
0199D0: 4C 54 49 D3 18 07 ED 5B CB 3D CD 71 32 E1 22 04 LTI....[.=.q2.".
0199E0: 3E E1 22 02 3E DD E1 C9 3E 21 CD D0 08 21 FF FF >.".>...>!...!..
0199F0: CD 1E 09 C9 3E 21 CD D0 08 21 00 00 CD 1E 09 C9 ....>!...!......
019A00: EB 2B 56 2B 5E 1A 21 0C 26 C3 AD 30 4F 33 26 38 .+V+^.!.&..0O3&8
019A10: 7E 27 26 94 26 00 CD F6 31 49 6E 76 61 6C 69 64 ~'&.&...1Invalid
019A20: 20 61 70 70 6C 69 63 61 74 69 6F 6E 20 6F 66 20 application of
019A30: 4C D6 C9 DD E5 CD 63 31 38 20 DD 7E 05 FE 04 28 L.....c18 .~...(
019A40: D5 FE 02 30 18 21 84 26 CD 83 1B DD 6E 08 2D 26 ...0.!.&....n.-&
019A50: 00 CD 1E 09 21 89 26 CD 83 1B DD E1 C9 3E 21 CD ....!.&......>!.
019A60: D0 08 DD CB 06 46 20 0C CD 90 30 21 8F 26 CD 83 .....F ...0!.&..
019A70: 1B DD E1 C9 DD 6E 07 DD 66 08 CB 3C CB 1D CD 1E .....n..f..<....
019A80: 09 DD E1 C9 04 DD E5 E1 11 05 19 CB 3C CB 1D 04 ............<...
019A90: CB 3C CB 1D EB 2B 56 2B 5E EB C3 2D 24 EB 2B 56 .<...+V+^..-$.+V
019AA0: 2B 5E EB CD 2D 24 21 AD 26 CD 83 1B C9 05 29 5E +^..-$!.&.....)^
019AB0: 23 56 EB EB 2B 56 2B 5E EB CD 2D 24 21 C3 26 CD #V..+V+^..-$!.&.
019AC0: 83 1B C9 08 7C EE FF 67 7D EE FF 6F 3E 21 CD D0 ....|..g}..o>!..
019AD0: 08 2A CB 3D 01 03 00 7D CB 3C CB 1D 23 23 23 E6 .*.=...}.<..###.
019AE0: 01 20 03 01 04 00 CD 1E 09 3E C3 CD D0 08 CD A7 . .......>......
019AF0: 1F E5 CD 96 14 2A CB 3D 7D E6 01 28 03 CD D0 08 .....*.=}..(....
019B00: 5F 2F 3D 67 2F 39 71 2F 3B 7B 2F 24 85 2F 1B 90 _/=g/9q/;{/$./..
019B10: 2F 1A 9C 2F 1D C5 2F 25 B2 2F 2E A8 2F 0C AD 2F /../../%./../../
019B20: 00 A7 C9 DD E5 CD 63 31 38 15 DD 7E 05 FE 04 28 ......c18..~...(
019B30: 04 DD E1 A7 C9 DD 5E 07 DD 56 08 DD E1 37 C9 DD ......^..V...7..
019B40: E1 A7 C9 EB 2B 56 2B 5E 37 C9 EB 2B 56 2B 5E E5 ....+V+^7..+V+^.
019B50: CD F2 2E E1 D0 D5 2B 56 2B 5E CD F2 2E E1 C9 CD ......+V+^......
019B60: 4A 2F D0 19 EB 37 C9 CD 4A 2F D0 A7 ED 52 EB 37 J/...7..J/...R.7
019B70: C9 CD 4A 2F D0 CD D8 2F EB 37 C9 CD 4A 2F D0 CD ..J/.../.7..J/..
019B80: F4 2F EB 37 C9 CD 4A 2F D0 CD F4 2F 60 69 37 C9 ./.7..J/.../`i7.
019B90: CD 4A 2F D0 7C A2 57 7D A3 5F 37 C9 CD 4A 2F D0 .J/.|.W}£_7..J/.
019BA0: 7C B2 57 7D B3 5F 37 C9 11 FF FF 37 C9 11 00 00 |.W}._7....7....
019BB0: 37 C9 CD 4A 2F D0 7A B3 28 07 CB 3C CB 1D 1B 18 7..J/.z.(..<....
019BC0: F5 54 5D 37 C9 CD 4A 2F D0 7A B3 28 07 CB 25 CB .T]7..J/.z.(..%.
019BD0: 14 1B 18 F5 54 5D 37 C9 CD 1E 30 F5 78 06 10 29 ....T]7...0.x..)
019BE0: CB 11 17 30 01 19 10 F7 F1 CB 7F C8 EB 21 00 00 ...0.........!..
019BF0: A7 ED 52 C9 CD 1E 30 F5 3E 10 CB 21 CB 10 CB 15 ..R...0.>..!....
019C00: CB 14 A7 ED 52 38 03 03 18 01 19 3D 20 EC 50 59 ....R8.....= .PY
019C10: EB F1 A7 C8 7C EE FF 67 7D EE FF 6F 23 C9 44 4D ....|..g}..o#.DM
019C20: 21 00 00 3E 00 CB 78 28 0A A7 ED 42 44 4D 21 00 !..>..x(...BDM!.
019C30: 00 3E 80 CB 7A C8 EE 80 A7 ED 52 EB 21 00 00 C9 .>..z.....R.!...
019C40: 6F 3E DD CD D0 08 3E 74 CD D0 08 7D CD D0 08 3E o>....>t...}...>
019C50: DD CD D0 08 3E 75 CD D0 08 7D 3D CD D0 08 C9 DD ....>u...}=.....
019C60: 7E 05 FE 02 30 07 DD 7E 08 CD 40 30 C9 FE 08 38 ~...0..~..@0...8
019C70: 09 3E 22 CD D0 08 CD 90 30 C9 CD F6 31 49 6E 76 .>".....0...1Inv
019C80: 61 6C 69 64 20 61 73 73 69 67 6E 6D 65 6E F4 C9 alid assignmen..
019C90: DD 7E 06 A7 28 0D DD 7E 07 CD D0 08 DD 7E 08 CD .~..(..~.....~..
019CA0: D0 08 C9 DD 6E 07 DD 66 08 CD 96 14 C9 4F 7E A7 ....n..f.....O~.
019CB0: 20 02 23 E9 B9 20 06 23 4E 23 46 C5 C9 23 23 23 .#.. .#N#F..###
019CC0: 18 EC 7E 23 42 4B 5E 23 56 23 EB A7 ED 42 28 07 ..~#BK^#V#...B(.
019CD0: EB 23 23 3D 20 F0 E9 EB 5E 23 56 EB E9 2A B0 3D .##= ...^#V..*.=
019CE0: 01 09 00 09 44 4D 21 CE FF 39 A7 ED 42 DA 86 33 ....DM!..9..B..3
019CF0: 60 69 ED 4B D3 3D A7 ED 42 38 33 D5 2A D3 3D ED `i.K.=..B83.*.=.
019D00: E1 C9 CD CC 26 1B 1A 4F 06 00 03 1A CD D0 08 1B ....&..O........
019D10: 0B 78 B1 20 F6 ED 5B CB 3D 73 23 72 C9 CD CC 26 .x. ..[.=s#r...&
019D20: E5 EB 2B 56 2B 5E CD 32 27 E1 ED 5B CB 3D 73 23 ..+V+^.2'..[.=s#
019D30: 72 C9 EB 7C B5 C8 7E FE 36 20 10 2B 56 2B 5E 2B r..|..~.6 .+V+^+
019D40: E5 EB CD 4B 27 E1 56 2B 5E 18 E7 CD D0 2E CD 1E ...K'.V+^.......
019D50: 09 C9 CD 9F 2A 21 5C 27 CD 83 1B C9 0B A7 ED 52 ....*!\'.......R
019D60: 21 FF FF 28 03 21 00 00 CD 9F 2A 21 72 27 CD 83 !..(.!....*!r'..
019D70: 1B C9 0B A7 ED 52 21 FF FF 20 03 21 00 00 D5 EB .....R!.. .!....
019D80: 2B 2B 2B 56 2B 5E CD F2 2E 38 0A D1 CD 9F 2A 3E +++V+^...8....*>
019D90: 19 CD D0 08 C9 E1 D5 2B 56 2B 5E EB CD 2D 24 D1 .......+V+^..-$.
019DA0: 21 A6 27 C3 C2 30 03 01 00 C3 27 FF FF C9 27 00 !.'..0....'...'.
019DB0: 00 CE 27 3E 11 CD D0 08 60 69 CD 1E 09 3E 19 CD ..'>....`i...>..
019DC0: D0 08 C9 3E 23 CD D0 08 C9 3E 2B CD D0 08 C9 D5 ...>#....>+.....
019DD0: EB 2B 2B 2B 56 2B 5E CD F2 2E 38 0F D1 CD 9F 2A .+++V+^...8....*
019DE0: 21 E7 27 CD 83 1B C9 03 A7 ED 52 E1 D5 2B 56 2B !.'.......R..+V+
019DF0: 5E EB CD 2D 24 D1 21 00 00 A7 ED 52 EB 21 A6 27 ^..-$.!....R.!.'
019E00: C3 C2 30 D5 EB 2B 2B 2B 56 2B 5E CD F2 2E 38 10 ..0..+++V+^...8.
019E10: D1 CD 9F 2A 3E CD CD D0 08 2A 24 3E CD 1E 09 C9 ...*>....*$>....
019E20: E1 D5 2B 56 2B 5E EB CD 2D 24 D1 21 31 28 C3 C2 ..+V+^..-$.!1(..
019E30: 30 0E 01 00 93 28 02 00 80 28 03 00 94 28 04 00 0....(...(...(..
019E40: 80 28 05 00 9A 28 06 00 A0 28 07 00 A6 28 08 00 .(...(...(...(..
019E50: 80 28 09 00 AC 28 0A 00 B2 28 10 00 80 28 20 00 .(...(...(...( .
019E60: 80 28 40 00 80 28 00 01 80 28 3E 11 CD D0 08 60 .(@..(...(>....`
019E70: 69 CD 1E 09 3E CD CD D0 08 2A 24 3E CD 1E 09 C9 i...>....*$>....
019E80: 3E 00 CB 38 CB 19 38 03 3C 18 F7 47 3E 29 CD D0 >..8..8.<..G>)..
019E90: 08 10 F9 C9 21 B8 28 C3 83 1B 21 BD 28 C3 83 1B ....!.(...!.(...
019EA0: 21 C3 28 C3 83 1B 21 C9 28 C3 83 1B 21 D0 28 C3 !.(...!.(...!.(.
019EB0: 83 1B 21 D7 28 C3 83 1B 04 54 5D 29 19 05 54 5D ..!.(....T])..T]
019EC0: 29 29 19 05 54 5D 29 19 29 06 54 5D 29 19 29 19 ))..T]).).T]).).
019ED0: 06 54 5D 29 29 29 19 06 29 54 5D 29 29 19 CD 9F .T])))..)T]))...
019EE0: 2A 3E CD CD D0 08 2A 26 3E CD 1E 09 C9 CD 26 2E *>....*&>.....&.
019EF0: 21 01 29 CD 83 1B C9 CD 19 2E 21 01 29 CD 83 1B !.).......!.)...
019F00: 4B D5 3D 78 B1 28 1C 0B 09 54 5D 01 5A 00 09 44 K.=x.(...T].Z..D
019F10: 4D 21 CE FF 39 A7 ED 42 38 38 60 69 ED 4B D5 3D M!..9..B88`i.K.=
019F20: EB ED B8 2A D3 3D 11 5A 00 19 22 D3 3D D1 2A B0 ...*.=.Z..".=.*.
019F30: 3D E5 ED 4B CD 3D 71 23 70 23 73 23 72 23 3A D0 =..K.=q#p#s#r#:.
019F40: 3D 77 11 05 00 19 22 B0 3D E1 22 CD 3D 11 05 00 =w....".=.".=...
019F50: 19 C9 CD 01 33 4F 75 74 20 6F 66 20 6D 65 6D 6F ....3Out of memo
019F60: 72 79 00 2A CD 3D 7C B5 20 42 2A B0 3D E5 D5 2A ry.*.=|. B*.=..*
019F70: CB 3D 7D E6 01 20 0C 3E 18 CD D0 08 3E 02 CD D0 .=}.. .>....>...
019F80: 08 18 0F 3E C3 CD D0 08 2A CB 3D 23 23 23 23 CD ...>....*.=####.
019F90: 1E 09 2A CB 3D 22 D9 3D 3E 00 CD D0 08 CD D0 08 ..*.=".=>.......
019FA0: D1 3E 09 CD 21 1C E1 E5 DD E1 A7 C9 E5 DD E1 DD .>..!...........
019FB0: 6E 02 DD 66 03 A7 ED 52 20 33 3A D0 3D 47 DD 7E n..f...R 3:.=G.~
019FC0: 04 B8 28 24 A7 28 21 CD 1B 32 44 79 6E 61 6D 69 ..($.(!..2Dynami
019FD0: 63 20 66 72 65 65 20 76 61 72 69 61 62 6C 65 20 c free variable
019FE0: 75 73 65 64 2C A0 37 C9 DD E5 E1 A7 C9 DD 6E 00 used,.7.......n.
019FF0: DD 66 01 C3 66 31 3E 00 32 5B 3E CD 44 32 E1 7E .f..f1>.2[>.D2.~
01A000: 23 CB 7F 20 05 CD 23 08 18 F5 E6 7F CD 23 08 E5 #.. ..#......#..
01A010: 2A EF 3D 23 22 EF 3D CD C4 32 C9 3E 00 32 5B 3E *.=#".=..2.>.2[>
01A020: CD 44 32 E1 D5 7E 23 CB 7F 20 05 CD 23 08 18 F5 .D2..~#.. ..#...
01A030: E6 7F CD 23 08 E3 CD F5 32 2A EF 3D 23 22 EF 3D ...#....2*.=#".=
01A040: CD C4 32 C9 3E 0D CD 5A BB 3E 0A CD 5A BB C9 42 ..2.>..Z.>..Z..B
01A050: 4B E5 DD E1 DD 7E 06 A7 C0 DD 5E 07 DD 56 08 DD K....~....^..V..
01A060: 71 07 DD 70 08 DD 36 06 01 EB 7C B5 C8 71 23 70 q..p..6...|..q#p
01A070: C9 DD CB 00 46 C0 DD CB 00 C6 DD 6E 02 DD 66 03 ....F......n..f.
01A080: DD 73 02 DD 72 03 42 4B 18 E0 4F 78 32 CF 3D 47 .s..r.BK..Ox2.=G
01A090: 79 4F 78 91 C8 FE 02 20 06 3E E1 CD D0 08 C9 FE yOx.... .>......
01A0A0: 04 20 0B 3E E1 CD D0 08 3E E1 CD D0 08 C9 6F 26 . .>....>.....o&
01A0B0: 00 3E 21 CD D0 08 CD 1E 09 3E 39 CD D0 08 3E F9 .>!......>9...>.
01A0C0: CD D0 08 C9 21 DF 32 CD 71 08 2A E9 3D 7C B5 28 ....!.2.q.*.=|.(
01A0D0: 07 2B 56 2B 5E EB 18 03 21 E0 32 CD F5 32 C9 20 .+V+^...!.2..2.
01A0E0: 69 6E A0 67 6C 6F 62 61 6C 20 64 65 66 69 6E 69 in.global defini
01A0F0: 74 69 6F 6E F3 23 23 23 CD 71 08 C9 21 29 33 18 tion.###.q..!)3.
01A100: C9 0B A7 ED 52 21 FF FF 38 03 21 00 00 CD 26 2E ....R!..8.!...&.
01A110: 21 21 29 CD 83 1B C9 CD 19 2E 21 21 29 CD 83 1B !!).......!!)...
01A120: C9 0B A7 ED 52 21 FF FF 30 03 21 00 00 CD 9F 2A ....R!..0.!....*
01A130: 3E CD CD D0 08 2A 26 3E CD 1E 09 3E EB CD D0 08 >....*&>...>....
01A140: C9 CD 7E 27 21 AD 26 CD 83 1B C9 CD 9F 2A 21 55 ..~'!.&......*!U
01A150: 29 CD 83 1B C9 0A 7C AA EE FF 67 7D AB EE FF 6F ).....|...g}...o
01A160: CD 9F 2A 21 6A 29 CD 83 1B C9 06 7C AA 67 7D AB ..*!j).....|.g}.
01A170: 6F CD 9F 2A 21 7B 29 CD 83 1B C9 06 7C A2 67 7D o..*!{).....|.g}
01A180: A3 6F CD 9F 2A 21 8C 29 CD 83 1B C9 06 7C B2 67 £o..*!.).....|.g
01A190: 7D B3 6F CD 9F 2A 3E CD CD D0 08 2A 32 3E CD 1E }.o..*>....*2>..
01A1A0: 09 C9 CD 9F 2A 3E CD CD D0 08 2A 34 3E CD 1E 09 ....*>....*4>...
01A1B0: C9 CD 67 1F DD E5 D5 DD E1 21 00 00 22 16 3E 22 ..g......!..".>"
01A1C0: 1A 3E CD A7 1F 22 18 3E CD A7 1F 22 1C 3E DD 6E .>...".>...".>.n
01A1D0: FA DD 66 FB 3E 00 DD E5 CD 99 2B DD 21 16 3E ED ..f.>.....+.!.>.
01A1E0: 5B CB 3D CD 71 32 DD E1 DD 6E FE DD 66 FF CD 2D [.=.q2...n..f..-
01A1F0: 24 3E C3 CD D0 08 CD A7 1F E5 CD 96 14 DD E5 DD $>..............
01A200: 21 1A 3E ED 5B CB 3D CD 71 32 DD E1 DD 6E FC DD !.>.[.=.q2...n..
01A210: 66 FD CD 2D 24 E1 ED 5B CB 3D 73 23 72 DD E1 CD f..-$..[.=s#r...
01A220: 7A 1F C9 EB CD 32 2A 21 2E 2A CD 83 1B C9 03 6E z....2*!.*.....n
01A230: 26 00 DD E5 E5 DD E1 06 06 21 4C 3E 5E 23 56 23 &........!L>^#V#
01A240: D5 10 F9 3A 58 3E F5 21 86 2A 11 4C 3E 01 0D 00 ...:X>.!.*.L>...
01A250: ED B0 DD E5 E1 DD 21 4C 3E 2B 56 2B 5E 2B DD 72 ......!L>+V+^+.r
01A260: 06 DD 73 05 56 2B 5E DD 72 09 DD 73 08 21 58 3E ..s.V+^.r..s.!X>
01A270: CD 2D 24 F1 32 58 3E 06 06 21 58 3E D1 2B 72 2B .-$.2X>..!X>.+r+
01A280: 73 10 F9 DD E1 C9 02 00 4D 4E 3E 00 00 39 00 00 s.......MN>..9..
01A290: 53 3E 35 EB 2B 56 2B 5E 2B 46 2B 6E 60 18 0B EB S>5.+V+^+F+n`...
01A2A0: 2B 46 2B 4E 2B 56 2B 5E 60 69 7E FE 4D 28 32 FE +F+N+V+^`i~.M(2.
01A2B0: 4F 28 2E 1A FE 4D 28 4D FE 4F 28 49 E5 EB 7E CD O(...M(M.O(I..~.
01A2C0: 8D 2B 30 0B EB CD 3F 25 3E D5 CD D0 08 18 08 CD .+0...?%>.......
01A2D0: 2D 24 3E E5 CD D0 08 E1 CD 2D 24 3E D1 CD D0 08 -$>......-$>....
01A2E0: C9 1A FE 4D 28 1F FE 4F 28 1B E5 EB 7E CD 8D 2B ...M(..O(...~..+
01A2F0: 30 06 EB CD 3F 25 18 08 CD 2D 24 3E EB CD D0 08 0...?%...-$>....
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 00 02 02 09 4E E5 16 00 C1 02 00 00 00 02 ......N.........
01A320: 16 00 C6 02 00 00 00 02 16 00 C2 02 00 00 00 02 ................
01A330: 16 00 C7 02 00 00 00 02 16 00 C3 02 00 00 00 02 ................
01A340: 16 00 C8 02 00 00 00 02 16 00 C4 02 00 00 00 02 ................
01A350: 16 00 C9 02 00 00 00 02 16 00 C5 02 00 00 00 02 ................
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 0A E1 CD 44 32 CD 71 08 21 28 33 ED 7B B6 3D CD ...D2.q.!(3.{.=.
01A410: 71 08 3E 00 32 5B 3E 3A 5F 3E FE FF CC 7A BC 3A q.>.2[>:_>...z.:
01A420: FB 3D A7 C8 CD 92 BC C9 2E 0D 43 6F 6D 70 69 6C .=........Compil
01A430: 61 74 69 6F 6E 20 61 62 61 6E 64 6F 6E 65 64 2E ation abandoned.
01A440: 00 E5 CD C0 33 7A B3 CA 68 33 E1 E5 D5 13 13 13 ....3z..h3......
01A450: 1A BE 20 08 FE 80 30 0C 23 13 18 F4 D1 EB 23 5E .. ...0.#.....#^
01A460: 23 56 18 E1 E1 D1 A7 C9 E3 54 5D 01 03 00 03 7E #V.......T]....~
01A470: 23 CB 7F 28 F9 2A B0 3D 09 E5 21 CE FF 39 44 4D #..(.*.=..!..9DM
01A480: E1 A7 ED 42 38 17 CD 01 33 4F 75 74 20 6F 66 20 ...B8...3Out of
01A490: 73 79 6D 62 6F 6C 20 73 70 61 63 65 00 EB E3 ED symbol space....
01A4A0: 5B B0 3D 72 2B 73 EB D1 E5 36 00 23 36 00 23 36 [.=r+s...6.#6.#6
01A4B0: 00 23 1A 77 23 13 FE 80 38 F8 22 B0 3D E1 37 C9 .#.w#...8.".=.7.
01A4C0: 0E 00 7E 81 4F 7E 23 FE 80 38 F7 79 E6 0F CB 27 ..~.O~#..8.y...'
01A4D0: 4F 06 00 21 D4 3B 09 5E 23 56 C9 21 CE FF 39 44 O..!.;.^#V.!..9D
01A4E0: 4D 2A B0 3D A7 ED 42 D2 86 33 CD 2E 02 3E 00 32 M*.=..B..3...>.2
01A4F0: C4 3D 3A B5 3D FE 20 20 05 CD 9C 06 18 F4 FE 09 .=:.=. ........
01A500: 28 F7 FE 0D 20 23 CD 3A 37 2A C5 3D 23 22 C5 3D (... #.:7*.=#".=
01A510: 3E FF 32 C4 3D 3A FA 3D 3D 32 FA 3D CC 64 37 CD >.2.=:.==2.=.d7.
01A520: 9C 06 FE 3E 20 CC C3 38 35 CD 6F 3A 30 24 CD 38 ...> ..85.o:0$.8
01A530: 39 21 F4 3B CD 41 33 22 B3 3D 30 07 3E 4F 77 32 9!.;.A3".=0.>Ow2
01A540: B2 3D C9 7E 32 B2 3D FE 13 CA B8 37 FE 53 CA 4C .=.~2.=....7.S.L
01A550: 38 C9 CD 7E 3A 30 11 D6 30 6F 26 00 CD 57 39 22 8..~:0..0o&..W9"
01A560: B3 3D 3E 4D 32 B2 3D C9 FE 23 20 7A 3E 4D 32 B2 .=>M2.=..# z>M2.
01A570: 3D CD 9C 06 FE 62 20 14 CD 9C 06 CD 5B 3A 38 52 =....b .....[:8R
01A580: 6F 26 00 CD 80 39 22 B3 3D 3E 4D C9 FE 6F 20 14 o&...9".=>M..o .
01A590: CD 9C 06 CD 5B 3A 38 3A 6F 26 00 CD 6C 39 22 B3 ....[:8:o&..l9".
01A5A0: 3D 3E 4D C9 FE 78 20 14 CD 9C 06 CD 5B 3A 38 22 =>M..x .....[:8"
01A5B0: 6F 26 00 CD 92 39 22 B3 3D 3E 4D C9 FE 30 38 12 o&...9".=>M..08.
01A5C0: FE 38 30 0E D6 30 6F 26 00 CD 6C 39 22 B3 3D 3E .80..0o&..l9".=>
01A5D0: 4D C9 CD 16 07 45 78 70 65 63 74 69 6E 67 20 6E M....Expecting n
01A5E0: 75 6D 62 65 72 00 FE 27 20 21 CD AB 06 CD AE 39 umber..' !.....9
01A5F0: 6F 26 00 30 02 26 01 22 B3 3D CD 9C 06 FE 27 C2 o&.0.&.".=....'.
01A600: 59 03 60 03 63 03 69 03 6C 03 6F 03 72 03 75 03 Y.`.c.i.l.o.r.u.
01A610: 78 03 7B 03 80 03 83 03 86 03 8A 03 8D 03 94 03 x.{.............
01A620: 98 03 A0 03 A4 03 AE 03 B1 03 B4 03 B8 03 BE 03 ................
01A630: C1 03 C4 03 CA 03 CD 03 D0 03 D3 03 D6 03 D9 03 ................
01A640: E0 03 E3 03 E7 03 C5 04 C8 04 CB 04 D0 04 D5 04 ................
01A650: D8 04 DD 04 E0 04 E5 04 F1 04 F4 04 F7 04 FB 04 ................
01A660: FE 04 01 05 04 05 07 05 11 05 18 05 2B 05 2E 05 ............+...
01A670: 3A 05 3D 05 40 05 45 05 48 05 4B 05 53 05 58 05 :.=.@.E.H.K.S.X.
01A680: 5D 05 60 05 65 05 6A 05 6D 05 70 05 75 05 85 05 ].`.e.j.m.p.u...
01A690: 9F 05 B0 05 B6 05 C0 05 CB 05 CE 05 D1 05 D5 05 ................
01A6A0: D9 05 E1 05 E9 05 EC 05 EF 05 F2 05 F5 05 F8 05 ................
01A6B0: FB 05 FE 05 01 06 0C 06 12 06 15 06 18 06 1D 06 ................
01A6C0: 21 06 27 06 2E 06 37 06 44 06 5F 06 84 06 9D 06 !.'...7.D._.....
01A6D0: A8 06 AF 06 BA 06 BF 06 C2 06 C7 06 F5 06 FC 06 ................
01A6E0: 03 07 09 07 10 07 13 07 19 07 1E 07 22 07 26 07 ............".&.
01A6F0: 29 07 2D 07 30 07 33 07 36 07 39 07 3C 07 3F 07 ).-.0.3.6.9.<.?.
01A700: 47 07 4C 07 4F 07 53 07 56 07 5C 07 5F 07 62 07 G.L.O.S.V.\._.b.
01A710: 79 07 7F 07 85 07 88 07 8B 07 C3 07 C7 07 CB 07 y...............
01A720: D4 07 E1 07 E4 07 E7 07 EA 07 F1 07 F4 07 F9 07 ................
01A730: FF 07 05 08 08 08 0B 08 0F 08 14 08 17 08 35 08 ..............5.
01A740: 3D 08 43 08 46 08 4B 08 53 08 5B 08 61 08 65 08 =.C.F.K.S.[.a.e.
01A750: 6C 08 79 08 81 08 9C 08 A2 08 A8 08 AE 08 B4 08 l.y.............
01A760: D4 08 DA 08 ED 08 F1 08 F7 08 00 09 05 09 08 09 ................
01A770: 0C 09 12 09 20 09 24 09 2F 09 3E 09 50 09 66 09 .... .$./.>.P.f.
01A780: 7C 09 7F 09 89 09 8F 09 A0 09 A5 09 AA 09 AD 09 |...............
01A790: B0 09 BD 09 C4 09 C8 09 CB 09 CE 09 D9 09 DC 09 ................
01A7A0: E4 09 E8 09 03 0A 08 0A 10 0A 21 0A 29 0A 2F 0A ..........!.)./.
01A7B0: 32 0A 36 0A 45 0A 4E 0A 5E 0A 78 0A 87 0A 8B 0A 2.6.E.N.^.x.....
01A7C0: 94 0A 97 0A 9B 0A A4 0A A9 0A AF 0A B2 0A C6 0A ................
01A7D0: CB 0A CF 0A D6 0A DB 0A E3 0A E8 0A 06 0B 0D 0B ................
01A7E0: 12 0B 17 0B 1E 0B 21 0B 26 0B 2D 0B 30 0B 35 0B ......!.&.-.0.5.
01A7F0: 3C 0B 42 0B 45 0B 4B 0B 51 0B 5C 0B 84 0B 89 0B <.B.E.K.Q.\.....
01A800: 10 37 CD 9C 06 3E 4D 32 B2 3D C9 21 9B 37 47 7E .7...>M2.=.!.7G~
01A810: A7 28 10 B8 20 09 23 CD 9C 06 7E 32 B2 3D C9 23 .(.. .#...~2.=.#
01A820: 23 18 EC 78 FE 2F 20 51 CD 9C 06 FE 5C 20 05 3E #..x./ Q....\ .>
01A830: 1B C3 FA 35 FE 2F 20 0A CD 9C 06 FE 0D 20 F9 C3 ...5./ ...... ..
01A840: F2 33 FE 2A 28 06 3E 3B 32 B2 3D C9 CD 9C 06 FE .3.*(.>;2.=.....
01A850: 1A CA 3A 36 FE 0D 20 07 2A C5 3D 23 22 C5 3D FE ..:6.. .*.=#".=.
01A860: 2A 20 E9 CD 9C 06 FE 1A CA 3A 36 FE 2A 28 F4 FE * .......:6.*(..
01A870: 2F 20 D9 CD 9C 06 C3 F2 33 FE 5C 20 19 CD 9C 06 / ......3.\ ....
01A880: FE 2F 20 04 3E 1A 18 72 FE 3D 20 04 3E 1F 18 6A ./ .>..r.= .>..j
01A890: 3E 20 32 B2 3D C9 FE 3C 20 19 CD 9C 06 FE 3D 20 > 2.=..< .....=
01A8A0: 04 3E 18 18 55 FE 3C 20 04 3E 1D 18 4D 3E 19 32 .>..U.< .>..M>.2
01A8B0: B2 3D C9 FE 3E 20 19 CD 9C 06 FE 3D 20 04 3E 10 .=..> .....= .>.
01A8C0: 18 38 FE 3E 20 04 3E 25 18 30 3E 11 32 B2 3D C9 .8.> .>%.0>.2.=.
01A8D0: FE 2D 20 11 CD 9C 06 FE 3E 20 04 3E 3C 18 1B 3E .- .....> .><..>
01A8E0: 3D 32 B2 3D C9 FE 3A 20 1A CD 9C 06 FE 3D 20 04 =2.=..: .....= .
01A8F0: 3E 3E 18 06 3E 3F 32 B2 3D C9 F5 CD 9C 06 F1 32 >>..>?2.=......2
01A900: B2 3D C9 FE 24 20 2F CD 9C 06 FE 28 20 0F 3E 24 .=..$ /....( .>$
01A910: CD 38 39 21 F4 3B CD 41 33 3E 48 18 12 FE 29 C2 .89!.;.A3>H...).
01A920: FF 36 3E 24 CD 38 39 21 F4 3B CD 41 33 3E 49 32 .6>$.89!.;.A3>I2
01A930: B2 3D 22 B3 3D C9 FE 2E 20 48 3A 5F 3E A7 28 3C .=".=... H:_>.(<
01A940: 47 DD E5 DD 2A 66 3E 11 FA FF DD 19 DD 22 66 3E G...*f>......"f>
01A950: DD 7E 00 32 5F 3E DD 7E 01 32 B5 3D DD 6E 02 DD .~.2_>.~.2.=.n..
01A960: 66 03 22 60 3E DD 6E 04 DD 66 05 22 C5 3D DD E1 f."`>.n..f.".=..
01A970: 78 FE FF C2 F2 33 CD 7A BC C3 F2 33 3E 40 32 B2 x....3.z...3>@2.
01A980: 3D C9 FE 1A 28 B4 FE 3D 20 1B CD 9C 06 FE 3E 20 =...(..= .....>
01A990: 05 3E 10 C3 FA 35 FE 3C 20 05 3E 18 C3 FA 35 3E .>...5.< .>...5>
01A9A0: 08 32 B2 3D C9 FE 22 20 3D 21 5A 3C 0E 00 CD AB .2.=.." =!Z<....
01A9B0: 06 FE 22 20 09 21 5A 3C 71 3E 4E C3 FA 35 CD AE .." .!Z<q>N..5..
01A9C0: 39 30 05 CD CD 36 3E 0A CD CD 36 18 E1 23 0C 77 90...6>...6..#.w
01A9D0: 79 A7 C0 CD 16 07 53 74 72 69 6E 67 20 74 6F 6F y.....String too
01A9E0: 20 6C 6F 6E 67 00 FE 7E 20 10 CD 9C 06 FE 3D 3E long..~ .....=>
01A9F0: 1F CA FA 35 3E 20 32 B2 3D C9 3E 20 32 B5 3D CD ...5> 2.=.> 2.=.
01AA00: 8E 0B 91 0B A5 0B A8 0B AB 0B B3 0B B7 0B BA 0B ................
01AA10: BF 0B C2 0B CA 0B DE 0B EB 0B EF 0B F7 0B FB 0B ................
01AA20: FE 0B 02 0C 06 0C 09 0C 0D 0C 10 0C 15 0C 19 0C ................
01AA30: 1D 0C 25 0C 29 0C 2F 0C 34 0C 37 0C 3E 0C 4E 0C ..%.)./.4.7.>.N.
01AA40: 53 0C 59 0C 5E 0C 64 0C 67 0C 6D 0C 70 0C 77 0C S.Y.^.d.g.m.p.w.
01AA50: 82 0C 85 0C 8C 0C 91 0C 95 0C A0 0C A5 0C A8 0C ................
01AA60: AE 0C B2 0C B6 0C BF 0C C9 0C CE 0C D3 0C D6 0C ................
01AA70: DC 0C E2 0C EF 0C F3 0C F7 0C FB 0C FF 0C 03 0D ................
01AA80: 07 0D 0B 0D 0F 0D 13 0D 17 0D 1B 0D 1F 0D 23 0D ..............#.
01AA90: 27 0D 2B 0D 2F 0D 33 0D 37 0D 3B 0D 3F 0D 43 0D '.+./.3.7.;.?.C.
01AAA0: 47 0D 4C 0D 4F 0D 52 0D 57 0D 5A 0D 61 0D 64 0D G.L.O.R.W.Z.a.d.
01AAB0: 67 0D 6F 0D 72 0D 78 0D 7E 0D 84 0D 89 0D 8E 0D g.o.r.x.~.......
01AAC0: AC 0D AF 0D B2 0D B6 0D BB 0D C0 0D C3 0D CE 0D ................
01AAD0: D1 0D D4 0D DB 0D DE 0D E4 0D E8 0D EF 0D 07 0E ................
01AAE0: 0B 0E 12 0E 17 0E 1C 0E 1F 0E 27 0E 2E 0E 34 0E ..........'...4.
01AAF0: 3F 0E 44 0E 4A 0E 4E 0E 6E 0E 72 0E 75 0E 7C 0E ?.D.J.N.n.r.u.|.
01AB00: 87 0E 8A 0E 8D 0E 94 0E 97 0E 9C 0E A3 0E A8 0E ............£...
01AB10: B1 0E B6 0E BD 0E D9 0E F0 0E F7 0E FB 0E 03 0F ................
01AB20: 06 0F 10 0F 14 0F 1A 0F 22 0F 25 0F 28 0F 34 0F ........".%.(.4.
01AB30: 3A 0F 3E 0F 45 0F 5A 0F 6A 0F 6F 0F 7C 0F 85 0F :.>.E.Z.j.o.|...
01AB40: 8A 0F 8F 0F 93 0F AD 0F B0 0F B3 0F B6 0F B9 0F ................
01AB50: BC 0F BF 0F C2 0F C5 0F C8 0F CB 0F CE 0F D1 0F ................
01AB60: D4 0F D7 0F DA 0F DD 0F E0 0F E3 0F E6 0F E9 0F ................
01AB70: EC 0F EF 0F F2 0F F5 0F F8 0F FC 0F FF 0F 07 10 ................
01AB80: 0A 10 10 10 1B 10 1F 10 22 10 28 10 2F 10 36 10 ........".(./.6.
01AB90: 3B 10 3F 10 44 10 49 10 4F 10 52 10 57 10 5B 10 ;.?.D.I.O.R.W.[.
01ABA0: 60 10 65 10 69 10 6F 10 72 10 75 10 7B 10 80 10 `.e.i.o.r.u.{...
01ABB0: 85 10 96 10 99 10 9D 10 A2 10 A7 10 AD 10 B0 10 ................
01ABC0: B3 10 B6 10 BC 10 C0 10 D1 10 D4 10 D7 10 DC 10 ................
01ABD0: E2 10 E5 10 E8 10 EE 10 F2 10 00 11 05 11 08 11 ................
01ABE0: 0B 11 10 11 14 11 17 11 1B 11 20 11 25 11 2B 11 .......... .%.+.
01ABF0: 2E 11 33 11 3A 11 41 11 46 11 4C 11 4F 11 54 11 ..3.:.A.F.L.O.T.
01AC00: 16 07 42 61 64 20 63 68 61 72 61 63 74 65 72 00 ..Bad character.
01AC10: CD 16 07 42 61 64 20 63 68 61 72 61 63 74 65 72 ...Bad character
01AC20: 20 63 6F 6E 73 74 61 6E 74 00 3C 57 3D 34 64 5E constant.<W=4d^
01AC30: 56 34 45 4D 4C 4A 00 1B 2D 36 3A 37 37 CD 1E BB V4EMLJ..-6:77...
01AC40: C8 3A 38 37 CD 1E BB C8 3A 39 37 CD 1E BB C8 CD .:87....:97.....
01AC50: 44 32 CD 44 32 21 2A 37 7E A7 28 FE D6 14 CD 23 D2.D2!*7~.(....#
01AC60: 08 23 18 F4 3E 05 32 FA 3D CD 09 BB D0 FE EF 28 .#..>.2.=......(
01AC70: F8 CD 95 37 C0 CD 7B BB CD 06 BB FE EF 28 F9 F5 ...7..{......(..
01AC80: CD 7E BB F1 CD 95 37 C0 CD 01 33 42 72 6F 6B 65 .~....7...3Broke
01AC90: 6E 20 69 6E 00 FE FC C8 FE 03 C9 2B 35 2C 36 3B n in.......+5,6;
01ACA0: 37 40 17 26 1B 7C 1A 21 38 2A 39 28 41 29 42 5B 7@.&.|.!8*9(A)B[
01ACB0: 41 5D 42 25 51 3F 52 00 3A 5F 3E FE FF 28 15 3A A]B%Q?R.:_>..(.:
01ACC0: B5 3D 18 03 CD 9C 06 FE 20 28 F9 FE 22 20 10 CD .=...... (.." ..
01ACD0: A9 36 18 10 CD 16 07 42 61 64 20 47 45 54 00 3E .6.....Bad GET.>
01ACE0: 00 32 5A 3C DD E5 DD 2A 66 3E 3A 5F 3E DD 77 00 .2Z<...*f>:_>.w.
01ACF0: 3A B5 3D DD 77 01 2A 60 3E DD 75 02 DD 74 03 2A :.=.w.*`>.u..t.*
01AD00: C5 3D DD 75 04 DD 74 05 11 06 00 DD 19 DD 22 66 .=.u..t......."f
01AD10: 3E DD E1 21 00 00 22 C5 3D 3A 5A 3C A7 28 13 21 >..!..".=:Z<.(.!
01AD20: 5A 3C CD 27 09 3E FF 32 5F 3E 3E 0D 32 B5 3D C3 Z<.'.>.2_>>.2.=.
01AD30: F2 33 3A 5F 3E FE 00 20 9B 3E 01 32 5F 3E 2A 81 .3:_>.. .>.2_>*.
01AD40: 3E 22 60 3E 3E 0D 32 B5 3D C3 F2 33 CD 30 39 18 >"`>>.2.=..3.09.
01AD50: 03 CD 2D 39 21 F1 3D FE 6C CA E7 38 21 59 3E FE ..-9!.=.l..8!Y>.
01AD60: 62 20 44 CD 2D 39 FE 2B 28 0D FE 2D C2 F3 38 3E b D.-9.+(..-..8>
01AD70: 00 32 59 3E C3 0E 39 3E FF 32 59 3E CD 2D 39 FE .2Y>..9>.2Y>.-9.
01AD80: 2C CA 11 39 FE 3B CA 11 39 FE 0D CA 11 39 FE 1A ,..9.;..9....9..
01AD90: CA 11 39 CD DB 33 FE 4D C2 F3 38 3A B3 3D 32 5C ..9..3.M..8:.=2\
01ADA0: 3E CD 30 39 C3 11 39 21 5A 3E FE 73 28 39 FE 6F >.09..9!Z>.s(9.o
01ADB0: 20 1A 3E 20 32 B5 3D CD DB 33 FE 4D 20 35 2A B3 .> 2.=..3.M 5*.
01ADC0: 3D 22 C2 3D 22 5D 3E CD 30 39 18 45 FE 68 20 23 =".="]>.09.E.h #
01ADD0: 3E 20 32 B5 3D CD DB 33 FE 4D 20 17 2A B3 3D CD > 2.=..3.M .*.=.
01ADE0: 7E 05 CD 30 39 18 2A E5 CD 2D 39 FE 2B 28 17 FE ~..09.*..-9.+(..
01ADF0: 2D 28 17 CD 16 07 42 61 64 20 6F 70 74 69 6F 6E -(....Bad option
01AE00: 58 11 5C 11 61 11 66 11 6B 11 7B 11 7E 11 83 11 X.\.a.f.k.{.~...
01AE10: 88 11 91 11 97 11 9B 11 AA 11 AD 11 B0 11 B3 11 ................
01AE20: B6 11 C1 11 E8 11 ED 11 F4 11 FB 11 0F 12 12 12 ................
01AE30: 1E 12 23 12 28 12 2F 12 32 12 36 12 39 12 40 12 ..#.(./.2.6.9.@.
01AE40: 4F 12 58 12 5C 12 64 12 7D 12 83 12 97 12 9F 12 O.X.\.d.}.......
01AE50: A5 12 AD 12 B9 12 D7 12 E0 12 F5 12 F8 12 FB 12 ................
01AE60: FE 12 01 13 07 13 0A 13 0D 13 10 13 13 13 16 13 ................
01AE70: 1B 13 1E 13 21 13 24 13 2B 13 30 13 33 13 36 13 ....!.$.+.0.3.6.
01AE80: 39 13 3C 13 3F 13 42 13 45 13 48 13 4C 13 4F 13 9.<.?.B.E.H.L.O.
01AE90: 53 13 62 13 69 13 6C 13 72 13 76 13 83 13 8A 13 S.b.i.l.r.v.....
01AEA0: 8D 13 90 13 97 13 AE 13 B2 13 BE 13 C1 13 C7 13 ................
01AEB0: CA 13 CD 13 D0 13 D3 13 D6 13 D9 13 DC 13 DF 13 ................
01AEC0: E2 13 E5 13 E8 13 EB 13 EE 13 F1 13 F4 13 F7 13 ................
01AED0: FA 13 FD 13 00 14 03 14 06 14 09 14 0C 14 0F 14 ................
01AEE0: 12 14 15 14 18 14 1B 14 1E 14 21 14 24 14 27 14 ..........!.$.'.
01AEF0: 2A 14 2D 14 30 14 34 14 53 14 56 14 59 14 5C 14 *.-.0.4.S.V.Y.\.
01AF00: 66 14 69 14 6C 14 6F 14 74 14 77 14 7A 14 7D 14 f.i.l.o.t.w.z.}.
01AF10: 82 14 85 14 88 14 8D 14 90 14 93 14 98 14 9D 14 ................
01AF20: A2 14 A7 14 AD 14 D0 14 DE 14 36 15 40 15 43 15 ..........6.@.C.
01AF30: 83 15 86 15 8F 15 BB 15 BD 15 BF 15 C2 15 C6 15 ................
01AF40: D3 15 FE 15 07 16 0A 16 0E 16 12 16 16 16 22 16 ..............".
01AF50: 2A 16 2E 16 32 16 36 16 39 16 3D 16 40 16 44 16 *...2.6.9.=.@.D.
01AF60: 60 16 91 16 94 16 9E 16 A8 16 AB 16 AE 16 B1 16 `...............
01AF70: B4 16 B7 16 BA 16 BD 16 C0 16 C3 16 C7 16 DE 16 ................
01AF80: E1 16 E7 16 EA 16 ED 16 F0 16 F3 16 F6 16 F9 16 ................
01AF90: FC 16 FF 16 02 17 05 17 08 17 13 17 21 17 4E 17 ............!.N.
01AFA0: 60 17 7B 17 7F 17 84 17 91 17 97 17 9B 17 A0 17 `.{.............
01AFB0: A9 17 B2 17 B7 17 BA 17 BD 17 C7 17 CA 17 CF 17 ................
01AFC0: D2 17 D5 17 E0 17 E8 17 EB 17 EE 17 F3 17 F7 17 ................
01AFD0: 00 18 08 18 0C 18 12 18 16 18 19 18 1D 18 21 18 ..............!.
01AFE0: 25 18 29 18 2D 18 33 18 36 18 3A 18 40 18 43 18 %.).-.3.6.:.@.C.
01AFF0: 4D 18 50 18 54 18 58 18 5C 18 62 18 65 18 68 18 M.P.T.X.\.b.e.h.
01B000: 20 6C 69 6E 65 00 3E FF 18 02 3E 00 E1 77 CD 2D line.>...>..w.-
01B010: 39 FE 3B CA 27 39 FE 0D CA DB 33 FE 1A CA DB 33 9.;.'9....3....3
01B020: FE 2C CA 51 38 18 CC CD 9C 06 C3 DB 33 CD 9C 06 .,.Q8.......3...
01B030: 3A B5 3D FE 20 28 F6 C9 21 F4 3B 77 23 CD 9C 06 :.=. (..!.;w#...
01B040: CD 7A 3A 38 08 FE 2E 28 04 FE 5F 20 04 77 23 18 .z:8...(.._ .w#.
01B050: EC 2B 7E F6 80 77 C9 CD 9C 06 CD 7E 3A D0 29 5D .+~..w.....~:.)]
01B060: 54 29 29 19 D6 30 5F 16 00 19 18 EB CD 9C 06 FE T))..0_.........
01B070: 30 D8 FE 38 D0 29 29 29 D6 30 5F 16 00 19 18 EC 0..8.))).0_.....
01B080: CD 9C 06 FE 30 D8 FE 32 D0 29 D6 30 5F 16 00 19 ....0..2.).0_...
01B090: 18 EE CD 9C 06 CD 7E 3A 38 08 FE 61 D8 FE 67 D0 ......~:8..a..g.
01B0A0: D6 27 D6 30 29 29 29 29 5F 16 00 19 18 E4 FE 0D .'.0))))_.......
01B0B0: CA 10 37 FE 2A 37 3F C0 E5 D5 CD AB 06 21 37 3A ..7.*7?......!7:
01B0C0: 5F 7E 23 BB 28 29 A7 20 F8 7B FE 78 CA 19 3A FE _~#.(). .{.x..:.
01B0D0: 58 CA 19 3A 5F 21 3C 3A 7E A7 CA 10 37 BB 28 04 X..:_!<:~...7.(.
01B0E0: 23 23 18 F4 23 7E A7 20 03 3E 0D 37 D1 E1 C9 7B ##..#~. .>.7...{
01B0F0: FE 0D 20 07 2A C5 3D 23 22 C5 3D CD AB 06 FE 2A .. .*.=#".=....*
01B100: 28 0F 21 37 3A 5F 7E 23 A7 CA 10 37 BB 28 E0 18 (.!7:_~#...7.(..
01B110: F5 D1 E1 CD AB 06 C3 AE 39 CD 9C 06 CD 5B 3A DA ........9....[:.
01B120: 10 37 87 87 87 87 F5 CD 9C 06 CD 5B 3A DA 10 37 .7.........[:..7
01B130: 47 F1 B0 D1 E1 A7 C9 20 09 0D 0A 00 27 27 2A 2A G...... ....''**
01B140: 22 22 4E 00 6E 00 54 09 74 09 53 20 73 20 42 08 ""N.n.T.t.S s B.
01B150: 62 08 50 0C 70 0C 43 0D 63 0D 00 CD 7E 3A 38 0B b.P.p.C.c...~:8.
01B160: FE 61 D8 FE 67 38 02 37 C9 D6 27 D6 30 A7 C9 FE .a..g8.7..'.0...
01B170: 61 38 05 FE 7B D0 37 C9 A7 C9 CD 6F 3A D8 FE 30 a8..{.7....o:..0
01B180: 38 05 FE 3A D0 37 C9 A7 C9 61 6E 64 81 62 65 82 8..:.7...and.be.
01B190: 62 72 65 61 6B 83 62 79 84 63 61 73 65 85 64 6F break.by.case.do
01B1A0: 86 64 65 66 61 75 6C 74 87 65 71 88 65 71 76 89 .default.eq.eqv.
01B1B0: 65 6C 73 65 8A 65 6E 64 63 61 73 65 8B 66 61 6C else.endcase.fal
01B1C0: 73 65 8C 66 6F 72 8D 66 69 6E 69 73 68 8E 67 6F se.for.finish.go
01B1D0: 74 6F 8F 67 65 90 67 72 91 67 74 91 67 6C 6F 62 to.ge.gr.gt.glob
01B1E0: 61 6C 92 67 65 74 93 69 66 94 69 6E 74 6F 95 69 al.get.if.into.i
01B1F0: 6E 6C 69 6E 65 D0 6C 65 74 96 6C 76 97 6C 65 98 nline.let.lv.le.
01B200: 6C 18 70 18 74 18 77 18 7B 18 7F 18 82 18 87 18 l.p.t.w.{.......
01B210: 8C 18 8F 18 93 18 96 18 9C 18 A0 18 A4 18 A8 18 ................
01B220: AC 18 B0 18 B3 18 B7 18 BB 18 BF 18 C2 18 C9 18 ................
01B230: EA 18 F4 18 F8 18 FD 18 05 19 08 19 0B 19 0E 19 ................
01B240: 13 19 16 19 19 19 1E 19 23 19 26 19 2B 19 38 19 ........#.&.+.8.
01B250: 3D 19 42 19 45 19 49 19 4F 19 63 19 67 19 94 19 =.B.E.I.O.c.g...
01B260: 98 19 9B 19 A2 19 A5 19 A8 19 AD 19 B0 19 B3 19 ................
01B270: B8 19 BD 19 C0 19 C3 19 C6 19 C9 19 CF 19 D4 19 ................
01B280: D7 19 DA 19 DD 19 E0 19 16 1A 1F 1A 25 1A 33 1A ............%.3.
01B290: 38 1A 3B 1A 40 1A 44 1A 49 1A 4D 1A 53 1A 58 1A 8.;.@.D.I.M.S.X.
01B2A0: 61 1A 64 1A 67 1A 78 1A 7D 1A 83 1A 89 1A 8C 1A a.d.g.x.}.......
01B2B0: 8F 1A 95 1A 99 1A 9E 1A A3 1A A7 1A B0 1A B6 1A ........£.......
01B2C0: BB 1A BF 1A C2 1A C5 1A CA 1A CF 1A D3 1A D6 1A ................
01B2D0: DC 1A E1 1A E5 1A E8 1A EB 1A F4 1A F9 1A 00 1B ................
01B2E0: 04 1B 0A 1B 17 1B 1C 1B 23 1B 34 1B 3A 1B 40 1B ........#.4.:.@.
01B2F0: 43 1B 48 1B 4E 1B 51 1B 56 1B 72 1B 7C 1B 80 1B C.H.N.Q.V.r.|...
01B300: 87 1B 9D 1B A6 1B B0 1B B6 1B CE 1B DD 1B E2 1B ................
01B310: FB 1B FF 1B 08 1C 14 1C 23 1C 31 1C 3C 1C 46 1C ........#.1.<.F.
01B320: 4C 1C 4F 1C 52 1C 55 1C 58 1C 5B 1C 68 1C 6D 1C L.O.R.U.X.[.h.m.
01B330: 70 1C 78 1C 7F 1C 82 1C 85 1C 8C 1C 93 1C A4 1C p.x.............
01B340: AF 1C BE 1C D1 1C D4 1C D8 1C DB 1C E0 1C E5 1C ................
01B350: E8 1C EB 1C EF 1C F2 1C F8 1C FB 1C 07 1D 0C 1D ................
01B360: 16 1D 1B 1D 29 1D 34 1D 3A 1D 3D 1D 40 1D 43 1D ....).4.:.=.@.C.
01B370: 46 1D 49 1D 59 1D 5D 1D 61 1D 64 1D 6D 1D 72 1D F.I.Y.].a.d.m.r.
01B380: 75 1D 79 1D 7D 1D 81 1D 84 1D 8E 1D 93 1D 99 1D u.y.}...........
01B390: 9D 1D A0 1D A7 1D AA 1D B4 1D B7 1D BA 1D BE 1D ................
01B3A0: C1 1D C4 1D C7 1D CA 1D CD 1D D0 1D D3 1D D6 1D ................
01B3B0: D9 1D DC 1D DF 1D E3 1D F1 1D F6 1D F9 1D 01 1E ................
01B3C0: 06 1E 09 1E 10 1E 13 1E 17 1E 1B 1E 1E 1E 21 1E ..............!.
01B3D0: 24 1E 2E 1E 33 1E 36 1E 3B 1E 3F 1E 42 1E 47 1E $...3.6.;.?.B.G.
01B3E0: 64 1E 67 1E 6D 1E 70 1E 75 1E 91 1E 94 1E A1 1E d.g.m.p.u.......
01B3F0: A4 1E A9 1E AC 1E C8 1E F0 1E F5 1E FF 1E 0F 1F ................
01B400: 6C 73 99 6C 74 99 6C 6F 67 6F 72 9A 6C 6F 67 61 ls.lt.logor.loga
01B410: 6E 64 9B 6C 6F 6F 70 9C 6C 73 68 69 66 74 9D 6D nd.loop.lshift.m
01B420: 61 6E 69 66 65 73 74 9E 6E 65 9F 6E 6F 74 A0 6E anifest.ne.not.n
01B430: 65 71 76 A1 6F 72 8A 72 65 73 75 6C 74 69 73 A2 eqv.or.resultis.
01B440: 72 65 74 75 72 6E A3 72 65 6D A4 72 73 68 69 66 return£rem.rshif
01B450: 74 A5 72 76 A6 72 65 70 65 61 74 A7 72 65 70 65 t.rv.repeat.repe
01B460: 61 74 77 68 69 6C 65 A8 72 65 70 65 61 74 75 6E atwhile.repeatun
01B470: 74 69 6C A9 73 77 69 74 63 68 6F 6E AA 73 74 61 til.switchon.sta
01B480: 74 69 63 AB 74 6F AC 74 65 73 74 AD 74 72 75 65 tic.to.test.true
01B490: AE 74 68 65 6E 86 74 61 62 6C 65 AF 75 6E 74 69 .then.table.unti
01B4A0: 6C B0 75 6E 6C 65 73 73 B1 76 65 63 B2 76 61 6C l.unless.vec.val
01B4B0: 6F 66 B3 77 68 69 6C 65 B4 6F 70 74 69 6F 6E D3 of.while.option.
01B4C0: 61 62 73 E0 00 CD 3B C3 6F 02 C3 50 02 42 43 50 abs...;.o..P.BCP
01B4D0: CC 47 CF 00 18 3E E5 3A F7 3D F5 21 00 00 22 16 .G...>.:.=.!..".
01B4E0: 3E CD A7 1F 22 18 3E EB 2B 56 2B 5E E5 EB 3E 00 >...".>.+V+^..>.
01B4F0: CD 99 2B ED 5B CB 3D DD 21 16 3E CD 71 32 D1 F1 ..+.[.=.!.>.q2..
01B500: 1A 69 63 AB 74 6F AC 74 65 73 74 AD 74 72 75 65 .ic.to.test.true
01B510: AE 74 68 65 6E 86 74 61 62 6C 65 AF 75 6E 74 69 .then.table.unti
01B520: 6C B0 75 6E 6C 65 73 73 B1 76 65 63 B2 76 61 6C l.unless.vec.val
01B530: 6F 66 B3 77 68 69 6C 65 B4 6F 70 74 69 6F 6E D3 of.while.option.
01B540: 61 62 73 E0 00 CD 3B C3 6F 02 C3 50 02 42 43 50 abs...;.o..P.BCP
01B550: CC 47 CF 00 18 3E E5 3A F7 3D F5 21 00 00 22 16 .G...>.:.=.!..".
01B560: 3E CD A7 1F 22 18 3E EB 2B 56 2B 5E E5 EB 3E 00 >...".>.+V+^..>.
01B570: CD 99 2B ED 5B CB 3D DD 21 16 3E CD 71 32 D1 F1 ..+.[.=.!.>.q2..
01B580: 01 00 19 02 1C 02 1F 02 2B 02 3D 02 51 02 54 02 ........+.=.Q.T.
01B590: 5A 02 5E 02 61 02 70 02 73 02 77 02 7A 02 7D 02 Z.^.a.p.s.w.z.}.
01B5A0: 80 02 83 02 86 02 89 02 93 02 96 02 99 02 9C 02 ................
01B5B0: 9F 02 A4 02 A9 02 AF 02 B5 02 B8 02 BB 02 BE 02 ................
01B5C0: C1 02 C4 02 D1 02 D6 02 D9 02 DD 02 EB 02 F7 02 ................
01B5D0: FD 02 01 03 04 03 07 03 0B 03 0F 03 12 03 15 03 ................
01B5E0: 18 03 1B 03 22 03 25 03 28 03 2C 03 32 03 35 03 ....".%.(.,.2.5.
01B5F0: 38 03 3B 03 3E 03 41 03 46 03 4B 03 51 03 56 03 8.;.>.A.F.K.Q.V.
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 00 02 02 09 4E E5 17 00 C1 02 00 00 00 02 ......N.........
01B620: 17 00 C6 02 00 00 00 02 17 00 C2 02 00 00 00 02 ................
01B630: 17 00 C7 02 00 00 00 02 17 00 C3 02 00 00 00 02 ................
01B640: 17 00 C8 02 00 00 00 02 17 00 C4 02 00 00 00 02 ................
01B650: 17 00 C9 02 00 00 00 02 17 00 C5 02 00 00 00 02 ................
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 2D 1F 36 1F 3F 1F 43 1F 47 1F 4B 1F 4F 1F 57 1F -.6.?.C.G.K.O.W.
01B710: 5B 1F 5F 1F 63 1F 69 1F 6D 1F 71 1F 75 1F 7D 1F [._.c.i.m.q.u.}.
01B720: 81 1F 85 1F 89 1F 9A 1F A4 1F A9 1F AF 1F B3 1F ................
01B730: B9 1F BF 1F C4 1F C8 1F CB 1F CE 1F D1 1F D4 1F ................
01B740: D7 1F DA 1F DD 1F E1 1F EA 1F EF 1F F2 1F F6 1F ................
01B750: FA 1F FD 1F 00 20 04 20 07 20 0E 20 11 20 19 20 ..... . . . . .
01B760: 1C 20 1F 20 22 20 25 20 28 20 2B 20 2E 20 31 20 . . " % ( + . 1
01B770: 34 20 37 20 3A 20 3D 20 40 20 43 20 46 20 4E 20 4 7 : = @ C F N
01B780: 59 20 5D 20 61 20 64 20 6D 20 75 20 7A 20 7D 20 Y ] a d m u z }
01B790: 81 20 85 20 88 20 8B 20 8E 20 9A 20 9E 20 A6 20 . . . . . . . .
01B7A0: B5 20 BA 20 BD 20 C5 20 E8 20 F7 20 FA 20 FD 20 . . . . . . . .
01B7B0: 06 21 09 21 0C 21 13 21 19 21 24 21 28 21 2C 21 .!.!.!.!.!$!(!,!
01B7C0: 32 21 35 21 38 21 3B 21 3E 21 48 21 4B 21 52 21 2!5!8!;!>!H!K!R!
01B7D0: 55 21 5A 21 5D 21 61 21 66 21 69 21 6C 21 72 21 U!Z!]!a!f!i!l!r!
01B7E0: 79 21 7C 21 86 21 8B 21 95 21 99 21 9F 21 A8 21 y!|!.!.!.!.!.!.!
01B7F0: B1 21 C7 21 CB 21 DC 21 E5 21 F2 21 F9 21 FE 21 .!.!.!.!.!.!.!.!
01B800: 02 22 06 22 0A 22 0E 22 11 22 15 22 19 22 1D 22 ."."."."."."."."
01B810: 27 22 49 22 53 22 57 22 5B 22 68 22 71 22 78 22 '"I"S"W"["h"q"x"
01B820: 7F 22 88 22 8B 22 90 22 93 22 96 22 9F 22 A3 22 ."."."."."."."£"
01B830: A6 22 A9 22 AC 22 D0 22 D3 22 D9 22 DC 22 DF 22 ."."."."."."."."
01B840: E2 22 E7 22 EA 22 EF 22 F8 22 FB 22 FE 22 01 23 .".".".".".".".#
01B850: 04 23 0D 23 10 23 17 23 1B 23 1F 23 34 23 3A 23 .#.#.#.#.#.#4#:#
01B860: 3F 23 42 23 45 23 48 23 4B 23 50 23 53 23 59 23 ?#B#E#H#K#P#S#Y#
01B870: 5E 23 61 23 64 23 67 23 6B 23 75 23 7E 23 81 23 ^#a#d#g#k#u#~#.#
01B880: 86 23 8A 23 8E 23 92 23 95 23 99 23 9D 23 A0 23 .#.#.#.#.#.#.#.#
01B890: A5 23 A9 23 AC 23 B2 23 B6 23 BA 23 BD 23 C2 23 .#.#.#.#.#.#.#.#
01B8A0: C7 23 CA 23 CD 23 D1 23 D4 23 FB 23 01 24 07 24 .#.#.#.#.#.#.$.$
01B8B0: 0B 24 0F 24 14 24 19 24 1E 24 24 24 27 24 2A 24 .$.$.$.$.$$$'$*$
01B8C0: 30 24 33 24 36 24 39 24 3C 24 3F 24 42 24 45 24 0$3$6$9$<$?$B$E$
01B8D0: 48 24 4B 24 4E 24 51 24 54 24 57 24 5A 24 5D 24 H$K$N$Q$T$W$Z$]$
01B8E0: 60 24 63 24 66 24 69 24 6C 24 6F 24 72 24 75 24 `$c$f$i$l$o$r$u$
01B8F0: 78 24 7B 24 7E 24 81 24 84 24 87 24 8A 24 8D 24 x${$~$.$.$.$.$.$
01B900: 31 30 20 6D 65 6D 6F 72 79 20 26 31 31 66 66 0D 10 memory &11ff.
01B910: 0A 32 30 20 6C 6F 61 64 20 22 62 65 64 2E 62 69 .20 load "bed.bi
01B920: 6E 22 2C 26 31 32 30 30 0D 0A 33 30 20 63 61 6C n",&1200..30 cal
01B930: 6C 20 26 31 32 30 30 0D 0A 1A 00 00 00 00 00 00 l &1200.........
01B940: 39 00 00 30 03 31 30 20 6D 65 6D 6F 72 79 20 26 9..0.10 memory &
01B950: 31 31 66 66 0D 0A 32 30 20 6C 6F 61 64 20 22 62 11ff..20 load "b
01B960: 65 64 2E 62 69 6E 22 2C 26 31 32 30 30 0D 0A 33 ed.bin",&1200..3
01B970: 30 20 63 61 6C 6C 20 26 31 32 30 30 0D 0A 1A 00 0 call &1200....
01B980: 66 69 65 64 20 30 33 2F 31 31 2F 31 39 38 36 0D fied 03/11/1986.
01B990: 0A 0D 0A 4D 41 4E 49 46 45 53 54 20 24 28 20 68 ...MANIFEST $( h
01B9A0: 6C 20 3D 20 30 20 3B 20 69 78 20 3D 20 31 20 3B l = 0 ; ix = 1 ;
01B9B0: 20 69 79 20 3D 20 32 20 24 29 0D 0A 0D 0A 47 4C iy = 2 $)....GL
01B9C0: 4F 42 41 4C 20 24 28 20 70 63 20 3A 20 30 20 3B OBAL $( pc : 0 ;
01B9D0: 20 74 6F 70 20 3A 20 31 20 3B 20 6D 69 64 64 6C top : 1 ; middl
01B9E0: 65 20 3A 20 32 20 3B 20 62 6F 74 74 6F 6D 20 3A e : 2 ; bottom :
01B9F0: 20 33 0D 0A 20 20 20 20 20 20 20 20 20 20 68 6C 3.. hl
01BA00: 70 61 69 72 20 3A 20 34 20 24 29 0D 0A 0D 0A 4C pair : 4 $)....L
01BA10: 45 54 20 63 6F 6E 64 69 74 69 6F 6E 63 6F 64 65 ET conditioncode
01BA20: 28 6E 75 6D 29 20 42 45 0D 0A 0D 0A 24 28 0D 0A (num) BE....$(..
01BA30: 20 20 53 57 49 54 43 48 4F 4E 20 6E 75 6D 20 49 SWITCHON num I
01BA40: 4E 54 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 20 43 NTO.. $(.. C
01BA50: 41 53 45 20 30 3A 20 77 72 69 74 65 73 28 22 6E ASE 0: writes("n
01BA60: 7A 22 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 z") ; ENDCASE..
01BA70: 20 20 20 43 41 53 45 20 31 3A 20 77 72 69 74 65 CASE 1: write
01BA80: 73 28 22 7A 22 29 20 3B 20 45 4E 44 43 41 53 45 s("z") ; ENDCASE
01BA90: 0D 0A 20 20 20 20 43 41 53 45 20 32 3A 20 77 72 .. CASE 2: wr
01BAA0: 69 74 65 73 28 22 6E 63 22 29 20 3B 20 45 4E 44 ites("nc") ; END
01BAB0: 43 41 53 45 0D 0A 20 20 20 20 43 41 53 45 20 33 CASE.. CASE 3
01BAC0: 3A 20 77 72 69 74 65 73 28 22 63 22 29 20 3B 20 : writes("c") ;
01BAD0: 45 4E 44 43 41 53 45 0D 0A 20 20 20 20 43 41 53 ENDCASE.. CAS
01BAE0: 45 20 34 3A 20 77 72 69 74 65 73 28 22 70 6F 22 E 4: writes("po"
01BAF0: 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 ) ; ENDCASE..
01BB00: 90 24 93 24 96 24 99 24 9D 24 C0 24 C6 24 CB 24 .$.$.$.$.$.$.$.$
01BB10: D1 24 DF 24 E5 24 EB 24 F7 24 FC 24 02 25 07 25 .$.$.$.$.$.$.%.%
01BB20: 0C 25 13 25 1F 25 22 25 2A 25 2D 25 35 25 3A 25 .%.%.%"%*%-%5%:%
01BB30: 42 25 4E 25 51 25 54 25 68 25 6B 25 6E 25 80 25 B%N%Q%T%h%k%n%.%
01BB40: 85 25 8B 25 8F 25 95 25 98 25 9B 25 9E 25 A1 25 .%.%.%.%.%.%.%.%
01BB50: AA 25 AE 25 B7 25 D8 25 DB 25 DF 25 E3 25 EB 25 .%.%.%.%.%.%.%.%
01BB60: F1 25 F7 25 FD 25 07 26 0A 26 0D 26 10 26 13 26 .%.%.%.&.&.&.&.&
01BB70: 17 26 36 26 46 26 49 26 52 26 55 26 58 26 60 26 .&6&F&I&R&U&X&`&
01BB80: 69 26 6C 26 6F 26 7F 26 9B 26 A4 26 A7 26 AA 26 i&l&o&.&.&.&.&.&
01BB90: BA 26 BD 26 C0 26 CF 26 D2 26 E7 26 EC 26 EF 26 .&.&.&.&.&.&.&.&
01BBA0: F3 26 F6 26 FE 26 03 27 0D 27 17 27 1E 27 27 27 .&.&.&.'.'.'.'''
01BBB0: 2C 27 43 27 4C 27 4F 27 53 27 56 27 59 27 69 27 ,'C'L'O'S'V'Y'i'
01BBC0: 6C 27 6F 27 87 27 8D 27 92 27 9D 27 A1 27 A4 27 l'o'.'.'.'.'.'.'
01BBD0: A9 27 AD 27 B1 27 B6 27 BB 27 C0 27 C6 27 CC 27 .'.'.'.'.'.'.'.'
01BBE0: D8 27 DE 27 E1 27 E4 27 F3 27 FE 27 01 28 0C 28 .'.'.'.'.'.'.(.(
01BBF0: 12 28 17 28 1A 28 1D 28 28 28 2C 28 2F 28 34 28 .(.(.(.(((,(/(4(
01BC00: 38 28 3C 28 40 28 44 28 48 28 4C 28 50 28 54 28 8(<(@(D(H(L(P(T(
01BC10: 58 28 5C 28 60 28 64 28 68 28 6D 28 72 28 77 28 X(\(`(d(h(m(r(w(
01BC20: 7A 28 7D 28 8F 28 95 28 98 28 9B 28 9E 28 A1 28 z(}(.(.(.(.(.(.(
01BC30: A4 28 A7 28 AA 28 AD 28 B0 28 B3 28 B6 28 DF 28 .(.(.(.(.(.(.(.(
01BC40: E4 28 E7 28 EA 28 EE 28 F1 28 F4 28 F8 28 FB 28 .(.(.(.(.(.(.(.(
01BC50: FE 28 0E 29 11 29 14 29 18 29 1B 29 1E 29 2E 29 .(.).).).).).).)
01BC60: 33 29 36 29 39 29 3E 29 42 29 45 29 48 29 4C 29 3)6)9)>)B)E)H)L)
01BC70: 4F 29 52 29 61 29 64 29 67 29 72 29 75 29 78 29 O)R)a)d)g)r)u)x)
01BC80: 83 29 86 29 89 29 94 29 99 29 9C 29 9F 29 A3 29 .).).).).).).)£)
01BC90: A8 29 AB 29 AE 29 B2 29 BD 29 C0 29 C3 29 C6 29 .).).).).).).).)
01BCA0: C9 29 CC 29 D9 29 DD 29 E1 29 E4 29 EF 29 F4 29 .).).).).).).).)
01BCB0: F7 29 FB 29 01 2A 05 2A 08 2A 13 2A 18 2A 20 2A .).).*.*.*.*.* *
01BCC0: 25 2A 28 2A 2B 2A 3A 2A 44 2A 48 2A 4B 2A 57 2A %*(*+*:*D*H*K*W*
01BCD0: 6E 2A 71 2A 75 2A 7A 2A 89 2A 90 2A C0 2A C6 2A n*q*u*z*.*.*.*.*
01BCE0: CB 2A D0 2A D5 2A D9 2A DE 2A EE 2A F4 2A F9 2A .*.*.*.*.*.*.*.*
01BCF0: FE 2A 02 2B 07 2B 0B 2B 16 2B 1C 2B 21 2B 27 2B .*.+.+.+.+.+!+'+
01BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01BF00: 35 2B 3B 2B 41 2B 4D 2B 52 2B 58 2B 5D 2B 62 2B 5+;+A+M+R+X+]+b+
01BF10: 69 2B 75 2B 78 2B 80 2B 85 2B 88 2B 9D 2B A2 2B i+u+x+.+.+.+.+.+
01BF20: A6 2B AA 2B AE 2B B4 2B B7 2B BA 2B BD 2B C0 2B .+.+.+.+.+.+.+.+
01BF30: C3 2B C6 2B C9 2B CC 2B CF 2B D2 2B D5 2B D8 2B .+.+.+.+.+.+.+.+
01BF40: DD 2B E0 2B E3 2B E8 2B F0 2B F6 2B 05 2C 0C 2C .+.+.+.+.+.+.,.,
01BF50: 2B 2C 2E 2C 3C 2C 4C 2C 58 2C 5F 2C 64 2C 69 2C +,.,<,L,X,_,d,i,
01BF60: 6D 2C 72 2C 76 2C 7A 2C 7E 2C 85 2C 8C 2C 96 2C m,r,v,z,~,.,.,.,
01BF70: A3 2C B9 2C C8 2C CD 2C D3 2C D8 2C DD 2C E4 2C £,.,.,.,.,.,.,.,
01BF80: EA 2C ED 2C F0 2C F4 2C F8 2C FB 2C FF 2C 0C 2D .,.,.,.,.,.,.,.-
01BF90: 2C 2D 33 2D 37 2D 3A 2D 3E 2D 45 2D 49 2D 4C 2D ,-3-7-:->-E-I-L-
01BFA0: 50 2D 54 2D 58 2D 5F 2D 62 2D 65 2D 71 2D 75 2D P-T-X-_-b-e-q-u-
01BFB0: 79 2D 7C 2D 81 2D 85 2D 89 2D 92 2D 96 2D 9A 2D y-|-.-.-.-.-.-.-
01BFC0: 9E 2D A5 2D A8 2D AB 2D B7 2D BB 2D BF 2D C2 2D .-.-.-.-.-.-.-.-
01BFD0: C7 2D CB 2D CF 2D D8 2D DC 2D DF 2D EA 2D ED 2D .-.-.-.-.-.-.-.-
01BFE0: F1 2D F5 2D F8 2D FB 2D FF 2D 03 2E 06 2E 0B 2E .-.-.-.-.-......
01BFF0: 0F 2E 14 2E 17 2E 33 2E 3A 2E 41 2E 44 2E 47 2E ......3.:.A.D.G.
01C000: 59 2E 5F 2E 62 2E 65 2E 6A 2E 72 2E 7D 2E 85 2E Y._.b.e.j.r.}...
01C010: 8A 2E 93 2E 9F 2E A5 2E AA 2E AF 2E B5 2E B8 2E ................
01C020: BB 2E C0 2E C8 2E D2 2E D7 2E F4 2E F7 2E FA 2E ................
01C030: FD 2E 00 2F 03 2F 06 2F 09 2F 0C 2F 0F 2F 12 2F .../././././././
01C040: 15 2F 18 2F 1B 2F 1E 2F 26 2F 51 2F 5B 2F 60 2F ././././&/Q/[/`/
01C050: 68 2F 72 2F 76 2F 7C 2F 80 2F 86 2F 8A 2F 91 2F h/r/v/|/././././
01C060: 9D 2F B3 2F C6 2F D9 2F F5 2F 44 30 49 30 4D 30 ./././././D0I0M0
01C070: 52 30 57 30 5C 30 6A 30 74 30 77 30 7B 30 9A 30 R0W0\0j0t0w0{0.0
01C080: A0 30 AA 30 DE 30 EE 30 F4 30 FD 30 01 31 1E 31 .0.0.0.0.0.0.1.1
01C090: 24 31 2B 31 2F 31 34 31 3F 31 47 31 4B 31 53 31 $1+1/141?1G1K1S1
01C0A0: 64 31 6B 31 70 31 7A 31 7F 31 86 31 89 31 90 31 d1k1p1z1.1.1.1.1
01C0B0: 93 31 96 31 9B 31 9E 31 A4 31 BB 31 C8 31 F4 31 .1.1.1.1.1.1.1.1
01C0C0: F9 31 FC 31 06 32 0D 32 11 32 15 32 18 32 1E 32 .1.1.2.2.2.2.2.2
01C0D0: 21 32 2C 32 33 32 37 32 3A 32 3E 32 41 32 8D 32 !2,23272:2>2A2.2
01C0E0: 9C 32 A6 32 AB 32 B4 32 B7 32 BC 32 C1 32 C5 32 .2.2.2.2.2.2.2.2
01C0F0: C8 32 CB 32 D9 32 DC 32 F9 32 FD 32 03 33 06 33 .2.2.2.2.2.2.3.3
01C100: 2F 2F 20 41 4C 49 42 48 44 52 20 20 20 73 74 61 // ALIBHDR sta
01C110: 6E 64 61 72 64 20 41 4D 53 44 4F 53 20 6C 69 62 ndard AMSDOS lib
01C120: 72 61 72 79 20 68 65 61 64 65 72 2C 20 6C 61 73 rary header, las
01C130: 74 20 6D 6F 64 69 66 69 65 64 20 31 32 2F 31 31 t modified 12/11
01C140: 2F 31 39 38 36 0D 0A 0D 0A 0D 0A 4D 41 4E 49 46 /1986......MANIF
01C150: 45 53 54 20 24 28 20 62 79 74 65 73 70 65 72 77 EST $( bytesperw
01C160: 6F 72 64 20 3D 20 32 20 3B 20 62 69 74 73 70 65 ord = 2 ; bitspe
01C170: 72 77 6F 72 64 20 3D 20 31 36 0D 0A 20 20 20 20 rword = 16..
01C180: 20 20 20 20 20 20 20 20 73 6F 66 74 65 6F 66 63 softeofc
01C190: 68 20 3D 20 32 36 20 20 20 3B 20 65 6E 64 73 74 h = 26 ; endst
01C1A0: 72 65 61 6D 63 68 20 3D 20 2D 31 0D 0A 20 20 20 reamch = -1..
01C1B0: 20 20 20 20 20 20 20 20 20 76 64 75 73 74 72 65 vdustre
01C1C0: 61 6D 20 3D 20 30 20 20 20 20 3B 20 70 72 69 6E am = 0 ; prin
01C1D0: 74 73 74 72 65 61 6D 20 3D 20 31 0D 0A 20 20 20 tstream = 1..
01C1E0: 20 20 20 20 20 20 20 20 20 6D 61 78 69 6E 74 20 maxint
01C1F0: 3D 20 33 32 37 36 37 20 20 20 3B 20 6D 69 6E 69 = 32767 ; mini
01C200: 6E 74 20 3D 20 2D 33 32 37 36 38 0D 0A 20 20 20 nt = -32768..
01C210: 20 20 20 20 20 20 20 20 20 6E 65 77 6C 69 6E 65 newline
01C220: 63 68 20 3D 20 32 36 39 20 20 3B 20 74 69 63 6B ch = 269 ; tick
01C230: 73 70 65 72 73 65 63 20 3D 20 33 30 30 0D 0A 20 spersec = 300..
01C240: 20 20 20 20 20 20 20 20 24 29 0D 0A 0D 0A 53 54 $)....ST
01C250: 41 54 49 43 20 20 20 24 28 20 72 65 61 64 73 74 ATIC $( readst
01C260: 72 65 61 6D 20 3D 20 30 20 3B 20 77 72 69 74 65 ream = 0 ; write
01C270: 73 74 72 65 61 6D 20 3D 20 30 0D 0A 20 20 20 20 stream = 0..
01C280: 20 20 20 20 20 20 20 20 72 65 74 75 72 6E 65 64 returned
01C290: 20 3D 20 30 20 20 20 3B 20 6C 61 73 74 63 68 61 = 0 ; lastcha
01C2A0: 72 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 r = 0..
01C2B0: 24 29 0D 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 4F 55 $)....../**** OU
01C2C0: 54 50 55 54 20 52 4F 55 54 49 4E 45 53 20 2A 2A TPUT ROUTINES **
01C2D0: 2A 2A 2F 0D 0A 0D 0A 4C 45 54 20 77 72 63 68 28 **/....LET wrch(
01C2E0: 63 68 61 72 29 20 42 45 0D 0A 24 28 0D 0A 20 20 char) BE..$(..
01C2F0: 53 57 49 54 43 48 4F 4E 20 77 72 69 74 65 73 74 SWITCHON writest
01C300: 09 33 0D 33 10 33 15 33 18 33 20 33 43 33 48 33 .3.3.3.3.3 3C3H3
01C310: 76 33 87 33 A1 33 BB 33 D4 33 E2 33 E8 33 EB 33 v3.3.3.3.3.3.3.3
01C320: F0 33 F3 33 FA 33 07 34 0A 34 0E 34 13 34 16 34 .3.3.3.4.4.4.4.4
01C330: 1A 34 1D 34 20 34 27 34 2A 34 2F 34 32 34 35 34 .4.4 4'4*4/42454
01C340: 38 34 40 34 45 34 4A 34 4F 34 53 34 5D 34 60 34 84@4E4J4O4S4]4`4
01C350: 65 34 6F 34 72 34 79 34 7C 34 84 34 87 34 91 34 e4o4r4y4|4.4.4.4
01C360: 94 34 9C 34 9F 34 A9 34 AC 34 B4 34 B7 34 CA 34 .4.4.4.4.4.4.4.4
01C370: CD 34 D3 34 EB 34 EE 34 F8 34 FB 34 00 35 03 35 .4.4.4.4.4.4.5.5
01C380: 08 35 0C 35 18 35 1C 35 29 35 32 35 39 35 40 35 .5.5.5.5)52595@5
01C390: 49 35 4D 35 52 35 59 35 5D 35 64 35 69 35 74 35 I5M5R5Y5]5d5i5t5
01C3A0: 77 35 7E 35 93 35 9B 35 B0 35 B8 35 CD 35 D5 35 w5~5.5.5.5.5.5.5
01C3B0: E2 35 EA 35 F7 35 FC 35 00 36 08 36 11 36 14 36 .5.5.5.5.6.6.6.6
01C3C0: 17 36 20 36 25 36 28 36 2B 36 30 36 33 36 3B 36 .6 6%6(6+60636;6
01C3D0: 45 36 4E 36 54 36 5A 36 63 36 6C 36 74 36 7A 36 E6N6T6Z6c6l6t6z6
01C3E0: 7F 36 8B 36 94 36 9D 36 A2 36 AA 36 AF 36 B6 36 .6.6.6.6.6.6.6.6
01C3F0: BC 36 BF 36 C4 36 C9 36 D4 36 EB 36 F2 36 F7 36 .6.6.6.6.6.6.6.6
01C400: FD 36 00 37 11 37 3B 37 42 37 49 37 50 37 53 37 .6.7.7;7B7I7P7S7
01C410: 56 37 5F 37 67 37 72 37 85 37 89 37 B9 37 C0 37 V7_7g7r7.7.7.7.7
01C420: C5 37 D0 37 D5 37 E2 37 E8 37 EB 37 F1 37 F7 37 .7.7.7.7.7.7.7.7
01C430: 00 38 0F 38 17 38 1A 38 20 38 23 38 28 38 2D 38 .8.8.8.8 8#8(8-8
01C440: 30 38 33 38 3C 38 3F 38 42 38 47 38 4A 38 4D 38 0838<8?8B8G8J8M8
01C450: 52 38 55 38 5A 38 5D 38 64 38 6D 38 72 38 75 38 R8U8Z8]8d8m8r8u8
01C460: 7A 38 7D 38 82 38 87 38 8C 38 91 38 94 38 99 38 z8}8.8.8.8.8.8.8
01C470: 9C 38 9F 38 A2 38 A5 38 A8 38 B5 38 B8 38 BF 38 .8.8.8.8.8.8.8.8
01C480: C2 38 C5 38 C8 38 D3 38 D6 38 DD 38 E0 38 E3 38 .8.8.8.8.8.8.8.8
01C490: E9 38 F4 38 0F 39 14 39 19 39 1E 39 23 39 28 39 .8.8.9.9.9.9#9(9
01C4A0: 2B 39 2E 39 31 39 39 39 3E 39 41 39 58 39 5B 39 +9.91999>9A9X9[9
01C4B0: 6D 39 81 39 93 39 96 39 B1 39 BB 39 BE 39 CD 39 m9.9.9.9.9.9.9.9
01C4C0: D2 39 D6 39 DB 39 F5 39 F9 39 FC 39 03 3A 0A 3A .9.9.9.9.9.9.:.:
01C4D0: 14 3A 17 3A 1A 3A 1D 3A 20 3A 28 3A 2B 3A 2E 3A .:.:.:.: :(:+:.:
01C4E0: 5C 3A 7B 3A C5 3B C8 3B CB 3B D4 3B D8 3B DF 3B \:{:.;.;.;.;.;.;
01C4F0: E2 3B E5 3B F1 3B F5 3B F9 3B FC 3B 45 3C 48 3C .;.;.;.;.;.;E<H<
01C500: 72 65 61 6D 20 49 4E 54 4F 0D 0A 20 20 24 28 0D ream INTO.. $(.
01C510: 0A 20 20 20 20 20 43 41 53 45 20 76 64 75 73 74 . CASE vdust
01C520: 72 65 61 6D 20 20 20 3A 20 20 77 72 76 64 75 28 ream : wrvdu(
01C530: 63 68 61 72 29 20 3B 20 45 4E 44 43 41 53 45 0D char) ; ENDCASE.
01C540: 0A 20 20 20 20 20 43 41 53 45 20 70 72 69 6E 74 . CASE print
01C550: 73 74 72 65 61 6D 20 3A 20 20 70 72 63 68 28 63 stream : prch(c
01C560: 68 61 72 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A har) ; ENDCASE..
01C570: 20 20 20 20 20 44 45 46 41 55 4C 54 20 20 20 20 DEFAULT
01C580: 20 20 20 20 20 20 3A 20 20 77 72 69 74 65 63 68 : writech
01C590: 28 63 68 61 72 29 0D 0A 20 20 24 29 0D 0A 24 29 (char).. $)..$)
01C5A0: 0D 0A 0D 0A 41 4E 44 20 77 72 69 74 65 66 28 73 ....AND writef(s
01C5B0: 74 72 69 6E 67 2C 61 2C 62 2C 63 2C 64 2C 65 2C tring,a,b,c,d,e,
01C5C0: 66 2C 67 2C 68 2C 69 2C 6A 2C 6B 29 20 42 45 0D f,g,h,i,j,k) BE.
01C5D0: 0A 24 28 0D 0A 20 20 4C 45 54 20 70 70 74 72 20 .$(.. LET pptr
01C5E0: 3D 20 40 61 0D 0A 20 20 46 4F 52 20 63 70 74 72 = @a.. FOR cptr
01C5F0: 20 3D 20 31 20 54 4F 20 73 74 72 69 6E 67 25 30 = 1 TO string%0
01C600: 20 44 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 20 4C DO.. $(.. L
01C610: 45 54 20 6B 20 3D 20 73 74 72 69 6E 67 25 63 70 ET k = string%cp
01C620: 74 72 0D 0A 20 20 20 20 54 45 53 54 20 6B 20 3D tr.. TEST k =
01C630: 20 27 25 27 20 54 48 45 4E 0D 0A 20 20 20 20 24 '%' THEN.. $
01C640: 28 0D 0A 20 20 20 20 20 20 4C 45 54 20 61 72 67 (.. LET arg
01C650: 20 3D 20 21 70 70 74 72 0D 0A 20 20 20 20 20 20 = !pptr..
01C660: 63 70 74 72 20 3A 3D 20 63 70 74 72 20 2B 20 31 cptr := cptr + 1
01C670: 0D 0A 20 20 20 20 20 20 24 28 0D 0A 20 20 20 20 .. $(..
01C680: 20 20 20 20 4C 45 54 20 63 68 2C 20 73 69 7A 65 LET ch, size
01C690: 20 3D 20 73 74 72 69 6E 67 25 63 70 74 72 2C 20 = string%cptr,
01C6A0: 64 65 63 76 61 6C 28 73 74 72 69 6E 67 25 28 63 decval(string%(c
01C6B0: 70 74 72 2B 31 29 29 0D 0A 20 20 20 20 20 20 20 ptr+1))..
01C6C0: 20 70 70 74 72 20 3A 3D 20 70 70 74 72 20 2B 20 pptr := pptr +
01C6D0: 31 0D 0A 20 20 20 20 20 20 20 20 63 70 74 72 20 1.. cptr
01C6E0: 3A 3D 20 63 70 74 72 20 2B 20 56 41 4C 4F 46 0D := cptr + VALOF.
01C6F0: 0A 20 20 20 20 20 20 20 20 53 57 49 54 43 48 4F . SWITCHO
01C700: 4B 3C 54 3C 58 3C 5F 3C 62 3C 65 3C 71 3C 75 3C K<T<X<_<b<e<q<u<
01C710: 79 3C 7C 3C 00 00 1A 39 19 39 1E 39 23 39 28 39 y<|<...9.9.9#9(9
01C720: 2B 39 2E 39 31 39 39 39 3E 39 41 39 58 39 5B 39 +9.91999>9A9X9[9
01C730: 6D 39 81 39 93 39 96 39 B1 39 BB 39 BE 39 CD 39 m9.9.9.9.9.9.9.9
01C740: D2 39 D6 39 DB 39 F5 39 F9 39 FC 39 03 3A 0A 3A .9.9.9.9.9.9.:.:
01C750: 14 3A 17 3A 1A 3A 1D 3A 20 3A 28 3A 2B 3A 2E 3A .:.:.:.: :(:+:.:
01C760: 5C 3A 7B 3A C5 3B C8 3B CB 3B D4 3B D8 3B DF 3B \:{:.;.;.;.;.;.;
01C770: E2 3B E5 3B F1 3B F5 3B F9 3B FC 3B 45 3C 48 3C .;.;.;.;.;.;E<H<
01C780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C7A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C7B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C7C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C7D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C7E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C7F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01C800: 0A 0D 0A 2F 2F 20 6C 61 73 74 20 6D 6F 64 69 66 ...// last modif
01C810: 69 65 64 20 30 32 2F 31 31 2F 31 39 38 36 0D 0A ied 02/11/1986..
01C820: 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 47 52 41 50 48 49 ..../**** GRAPHI
01C830: 43 53 20 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A CS ROUTINES ****
01C840: 2F 0D 0A 0D 0A 4C 45 54 20 62 6F 72 64 65 72 28 /....LET border(
01C850: 63 31 2C 63 32 29 20 42 45 0D 0A 24 28 0D 0A 2F c1,c2) BE..$(../
01C860: 2F 53 65 74 73 20 74 68 65 20 62 6F 72 64 65 72 /Sets the border
01C870: 20 63 6F 6C 6F 75 72 73 2E 20 42 41 53 49 43 3A colours. BASIC:
01C880: 20 42 4F 52 44 45 52 20 63 31 2C 63 32 0D 0A 20 BORDER c1,c2..
01C890: 20 49 4E 4C 49 4E 45 20 32 32 31 2C 37 38 2C 31 INLINE 221,78,1
01C8A0: 32 36 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 63 26 // ld c
01C8B0: 2C 28 69 78 2B 31 32 36 29 0D 0A 20 20 49 4E 4C ,(ix+126).. INL
01C8C0: 49 4E 45 20 32 32 31 2C 37 30 2C 31 32 34 20 20 INE 221,70,124
01C8D0: 20 20 20 20 20 2F 2F 20 6C 64 20 62 2C 28 69 78 // ld b,(ix
01C8E0: 2B 31 32 34 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 +124).. INLINE
01C8F0: 32 30 35 2C 23 78 33 38 2C 23 78 42 43 20 20 20 205,#x38,#xBC
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 00 02 02 09 4E E5 18 00 C1 02 00 00 00 02 ......N.........
01C920: 18 00 C6 02 00 00 00 02 18 00 C2 02 00 00 00 02 ................
01C930: 18 00 C7 02 00 00 00 02 18 00 C3 02 00 00 00 02 ................
01C940: 18 00 C8 02 00 00 00 02 18 00 C4 02 00 00 00 02 ................
01C950: 18 00 C9 02 00 00 00 02 18 00 C5 02 00 00 00 02 ................
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 4E 20 75 70 70 65 72 63 61 73 65 28 63 68 29 20 N uppercase(ch)
01CA10: 49 4E 54 4F 0D 0A 20 20 20 20 20 20 20 20 24 28 INTO.. $(
01CA20: 0D 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 .. CASE
01CA30: 20 27 53 27 3A 20 77 72 69 74 65 73 28 61 72 67 'S': writes(arg
01CA40: 29 20 20 20 3B 20 52 45 53 55 4C 54 49 53 20 30 ) ; RESULTIS 0
01CA50: 0D 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 .. CASE
01CA60: 20 27 43 27 3A 20 77 72 63 68 28 61 72 67 29 20 'C': wrch(arg)
01CA70: 20 20 20 20 3B 20 52 45 53 55 4C 54 49 53 20 30 ; RESULTIS 0
01CA80: 0D 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 .. CASE
01CA90: 20 27 4E 27 3A 20 77 72 69 74 65 64 28 61 72 67 'N': writed(arg
01CAA0: 2C 30 29 20 3B 20 52 45 53 55 4C 54 49 53 20 30 ,0) ; RESULTIS 0
01CAB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 .. CASE
01CAC0: 20 27 4F 27 3A 20 77 72 69 74 65 6F 63 74 28 61 'O': writeoct(a
01CAD0: 72 67 2C 73 69 7A 65 29 20 3B 20 52 45 53 55 4C rg,size) ; RESUL
01CAE0: 54 49 53 20 31 0D 0A 20 20 20 20 20 20 20 20 20 TIS 1..
01CAF0: 20 43 41 53 45 20 27 58 27 3A 20 77 72 69 74 65 CASE 'X': write
01CB00: 68 65 78 28 61 72 67 2C 73 69 7A 65 29 20 3B 20 hex(arg,size) ;
01CB10: 52 45 53 55 4C 54 49 53 20 31 0D 0A 20 20 20 20 RESULTIS 1..
01CB20: 20 20 20 20 20 20 43 41 53 45 20 27 49 27 3A 20 CASE 'I':
01CB30: 77 72 69 74 65 64 28 61 72 67 2C 73 69 7A 65 29 writed(arg,size)
01CB40: 20 20 20 3B 20 52 45 53 55 4C 54 49 53 20 31 0D ; RESULTIS 1.
01CB50: 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 . CASE
01CB60: 27 24 27 3A 20 52 45 53 55 4C 54 49 53 20 30 0D '$': RESULTIS 0.
01CB70: 0A 20 20 20 20 20 20 20 20 20 20 44 45 46 41 55 . DEFAU
01CB80: 4C 54 20 3A 20 77 72 63 68 28 63 68 29 20 3B 20 LT : wrch(ch) ;
01CB90: 70 70 74 72 20 3A 3D 20 70 70 74 72 20 2D 20 31 pptr := pptr - 1
01CBA0: 20 20 20 3B 20 52 45 53 55 4C 54 49 53 20 30 0D ; RESULTIS 0.
01CBB0: 0A 20 20 20 20 20 20 20 20 24 29 0D 0A 20 20 20 . $)..
01CBC0: 20 20 20 24 29 0D 0A 20 20 20 20 24 29 0D 0A 20 $).. $)..
01CBD0: 20 20 20 45 4C 53 45 20 77 72 63 68 28 6B 29 0D ELSE wrch(k).
01CBE0: 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 . $)..$)....AND
01CBF0: 20 77 72 69 74 65 73 28 73 29 20 42 45 20 46 4F writes(s) BE FO
01CC00: 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 49 4E 4C 49 ALOF..$(.. INLI
01CC10: 4E 45 20 32 32 31 2C 31 30 32 2C 31 32 37 20 20 NE 221,102,127
01CC20: 20 20 20 20 2F 2F 20 67 65 74 20 62 75 66 66 65 // get buffe
01CC30: 72 20 61 64 64 72 65 73 73 0D 0A 20 20 49 4E 4C r address.. INL
01CC40: 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 32 36 0D INE 221,110,126.
01CC50: 0A 20 20 49 4E 4C 49 4E 45 20 34 31 2C 32 33 35 . INLINE 41,235
01CC60: 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 64 6F // do
01CC70: 75 62 6C 65 20 61 6E 64 20 73 77 61 70 20 74 6F uble and swap to
01CC80: 20 64 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 de.. INLINE 22
01CC90: 31 2C 31 30 32 2C 31 32 35 20 20 20 20 20 20 2F 1,102,125 /
01CCA0: 2F 20 67 65 74 20 70 6F 69 6E 74 65 72 20 74 6F / get pointer to
01CCB0: 20 6E 61 6D 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 name.. INLINE
01CCC0: 32 32 31 2C 31 31 30 2C 31 32 34 0D 0A 20 20 49 221,110,124.. I
01CCD0: 4E 4C 49 4E 45 20 34 31 2C 37 30 2C 33 35 20 20 NLINE 41,70,35
01CCE0: 20 20 20 20 20 20 20 2F 2F 20 64 6F 75 62 6C 65 // double
01CCF0: 2C 20 67 65 74 20 6E 61 6D 65 20 6C 65 6E 67 74 , get name lengt
01CD00: 68 20 61 6E 64 20 6D 6F 76 65 20 68 6C 20 6F 6E h and move hl on
01CD10: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 32 .. INLINE 221,2
01CD20: 32 39 20 20 20 20 20 20 20 20 20 20 2F 2F 20 73 29 // s
01CD30: 61 76 65 20 69 78 0D 0A 20 20 49 4E 4C 49 4E 45 ave ix.. INLINE
01CD40: 20 32 30 35 2C 23 78 37 37 2C 23 78 42 43 20 20 205,#x77,#xBC
01CD50: 20 20 2F 2F 20 6F 70 65 6E 20 66 69 6C 65 0D 0A // open file..
01CD60: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 32 32 35 INLINE 221,225
01CD70: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 72 65 63 // rec
01CD80: 6F 76 65 72 20 69 78 0D 0A 20 20 49 4E 4C 49 4E over ix.. INLIN
01CD90: 45 20 36 32 2C 32 35 35 0D 0A 20 20 49 4E 4C 49 E 62,255.. INLI
01CDA0: 4E 45 20 35 36 2C 32 20 20 20 20 20 20 20 20 20 NE 56,2
01CDB0: 20 20 20 20 2F 2F 20 6A 72 20 63 2C 70 63 2B 32 // jr c,pc+2
01CDC0: 0D 0A 20 20 49 4E 4C 49 4E 45 20 36 32 2C 30 0D .. INLINE 62,0.
01CDD0: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 . INLINE 221,11
01CDE0: 39 2C 31 32 35 20 20 20 20 20 20 2F 2F 20 73 74 9,125 // st
01CDF0: 6F 72 65 20 6F 70 65 6E 20 73 74 61 74 75 73 0D ore open status.
01CE00: 52 20 63 20 3D 20 31 20 54 4F 20 73 25 30 20 77 R c = 1 TO s%0 w
01CE10: 72 63 68 28 73 25 63 29 0D 0A 0D 0A 41 4E 44 20 rch(s%c)....AND
01CE20: 77 72 69 74 65 64 28 6E 75 6D 2C 64 29 20 42 45 writed(num,d) BE
01CE30: 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 74 65 6D 70 ..$(.. LET temp
01CE40: 20 3D 20 56 45 43 20 32 30 0D 0A 20 20 41 4E 44 = VEC 20.. AND
01CE50: 20 70 74 72 2C 20 6E 20 3D 20 30 2C 20 6E 75 6D ptr, n = 0, num
01CE60: 0D 0A 20 20 49 46 20 6E 75 6D 3C 30 20 54 48 45 .. IF num<0 THE
01CE70: 4E 20 64 2C 20 6E 20 3A 3D 20 64 2D 31 2C 20 2D N d, n := d-1, -
01CE80: 6E 0D 0A 20 20 74 65 6D 70 21 70 74 72 2C 20 6E n.. temp!ptr, n
01CE90: 2C 20 70 74 72 20 3A 3D 20 6E 20 52 45 4D 20 31 , ptr := n REM 1
01CEA0: 30 2C 20 6E 2F 31 30 2C 20 70 74 72 2B 31 20 52 0, n/10, ptr+1 R
01CEB0: 45 50 45 41 54 55 4E 54 49 4C 20 6E 20 3D 20 30 EPEATUNTIL n = 0
01CEC0: 0D 0A 20 20 46 4F 52 20 6A 20 3D 20 70 74 72 2B .. FOR j = ptr+
01CED0: 31 20 54 4F 20 64 20 44 4F 20 77 72 63 68 28 27 1 TO d DO wrch('
01CEE0: 20 27 29 0D 0A 20 20 49 46 20 6E 75 6D 3C 30 20 ').. IF num<0
01CEF0: 54 48 45 4E 20 77 72 63 68 28 27 2D 27 29 0D 0A THEN wrch('-')..
01CF00: 20 20 46 4F 52 20 6A 20 3D 20 70 74 72 2D 31 20 FOR j = ptr-1
01CF10: 54 4F 20 30 20 42 59 20 2D 31 20 44 4F 20 77 72 TO 0 BY -1 DO wr
01CF20: 63 68 28 74 65 6D 70 21 6A 2B 27 30 27 29 0D 0A ch(temp!j+'0')..
01CF30: 24 29 0D 0A 0D 0A 41 4E 44 20 77 72 69 74 65 6E $)....AND writen
01CF40: 28 6E 29 20 42 45 20 77 72 69 74 65 64 28 6E 2C (n) BE writed(n,
01CF50: 30 29 0D 0A 0D 0A 41 4E 44 20 77 72 69 74 65 68 0)....AND writeh
01CF60: 65 78 28 6E 75 6D 2C 64 29 20 42 45 0D 0A 24 28 ex(num,d) BE..$(
01CF70: 0D 0A 20 20 49 46 20 44 3E 31 20 54 48 45 4E 20 .. IF D>1 THEN
01CF80: 77 72 69 74 65 68 65 78 28 6E 75 6D 3E 3E 34 2C writehex(num>>4,
01CF90: 20 64 2D 31 29 0D 0A 20 20 77 72 63 68 28 28 6E d-1).. wrch((n
01CFA0: 75 6D 20 4C 4F 47 41 4E 44 20 31 35 29 21 54 41 um LOGAND 15)!TA
01CFB0: 42 4C 45 20 27 30 27 2C 27 31 27 2C 27 32 27 2C BLE '0','1','2',
01CFC0: 27 33 27 2C 27 34 27 2C 27 35 27 2C 27 36 27 2C '3','4','5','6',
01CFD0: 27 37 27 2C 27 38 27 2C 27 39 27 2C 0D 0A 20 20 '7','8','9',..
01CFE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CFF0: 20 20 20 20 20 20 20 20 20 20 20 27 41 27 2C 27 'A','
01D000: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 . INLINE 221,11
01D010: 39 2C 31 32 34 0D 0A 20 20 52 45 53 55 4C 54 49 9,124.. RESULTI
01D020: 53 20 6E 61 6D 65 0D 0A 24 29 0D 0A 0D 0A 41 4E S name..$)....AN
01D030: 44 20 65 6E 64 72 65 61 64 28 29 20 3D 20 63 6C D endread() = cl
01D040: 6F 73 65 69 6E 28 29 0D 0A 0D 0A 41 4E 44 20 66 osein()....AND f
01D050: 69 6E 64 6F 75 74 70 75 74 28 6E 61 6D 65 2C 62 indoutput(name,b
01D060: 75 66 66 65 72 29 20 3D 20 56 41 4C 4F 46 0D 0A uffer) = VALOF..
01D070: 24 28 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 $(.. INLINE 221
01D080: 2C 31 30 32 2C 31 32 37 20 20 20 20 20 20 2F 2F ,102,127 //
01D090: 20 67 65 74 20 62 75 66 66 65 72 20 61 64 64 72 get buffer addr
01D0A0: 65 73 73 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 ess.. INLINE 22
01D0B0: 31 2C 31 31 30 2C 31 32 36 0D 0A 20 20 49 4E 4C 1,110,126.. INL
01D0C0: 49 4E 45 20 34 31 2C 32 33 35 20 20 20 20 20 20 INE 41,235
01D0D0: 20 20 20 20 20 2F 2F 20 64 6F 75 62 6C 65 20 61 // double a
01D0E0: 6E 64 20 73 77 61 70 20 74 6F 20 64 65 0D 0A 20 nd swap to de..
01D0F0: 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 30 32 2C INLINE 221,102,
01D100: 31 32 35 20 20 20 20 20 20 2F 2F 20 67 65 74 20 125 // get
01D110: 70 6F 69 6E 74 65 72 20 74 6F 20 6E 61 6D 65 0D pointer to name.
01D120: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 . INLINE 221,11
01D130: 30 2C 31 32 34 0D 0A 20 20 49 4E 4C 49 4E 45 20 0,124.. INLINE
01D140: 34 31 2C 37 30 2C 33 35 20 20 20 20 20 20 20 20 41,70,35
01D150: 20 2F 2F 20 64 6F 75 62 6C 65 2C 20 67 65 74 20 // double, get
01D160: 6E 61 6D 65 20 6C 65 6E 67 74 68 20 61 6E 64 20 name length and
01D170: 6D 6F 76 65 20 68 6C 20 6F 6E 0D 0A 20 20 49 4E move hl on.. IN
01D180: 4C 49 4E 45 20 32 32 31 2C 32 32 39 20 20 20 20 LINE 221,229
01D190: 20 20 20 20 20 20 2F 2F 20 73 61 76 65 20 69 78 // save ix
01D1A0: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 .. INLINE 205,#
01D1B0: 78 38 43 2C 23 78 42 43 20 20 20 20 2F 2F 20 6F x8C,#xBC // o
01D1C0: 70 65 6E 20 66 69 6C 65 20 66 6F 72 20 6F 75 74 pen file for out
01D1D0: 70 75 74 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 put.. INLINE 22
01D1E0: 31 2C 32 32 35 20 20 20 20 20 20 20 20 20 20 2F 1,225 /
01D1F0: 2F 20 72 65 63 6F 76 65 72 20 69 78 0D 0A 20 20 / recover ix..
01D200: 42 27 2C 27 43 27 2C 27 44 27 2C 27 45 27 2C 27 B','C','D','E','
01D210: 46 27 29 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 77 F')..$)....AND w
01D220: 72 69 74 65 6F 63 74 28 6E 75 6D 2C 64 29 20 42 riteoct(num,d) B
01D230: 45 0D 0A 24 28 0D 0A 20 20 49 46 20 64 3E 31 20 E..$(.. IF d>1
01D240: 54 48 45 4E 20 77 72 69 74 65 6F 63 74 28 6E 75 THEN writeoct(nu
01D250: 6D 3E 3E 33 2C 64 2D 31 29 0D 0A 20 20 77 72 63 m>>3,d-1).. wrc
01D260: 68 28 28 6E 75 6D 20 4C 4F 47 41 4E 44 20 37 29 h((num LOGAND 7)
01D270: 2B 27 30 27 29 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 +'0')..$)....AND
01D280: 20 6E 65 77 6C 69 6E 65 28 29 20 42 45 20 20 77 newline() BE w
01D290: 72 63 68 28 6E 65 77 6C 69 6E 65 63 68 29 0D 0A rch(newlinech)..
01D2A0: 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 49 4E 50 55 54 20 ..../**** INPUT
01D2B0: 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A 2F 0D 0A ROUTINES ****/..
01D2C0: 0D 0A 41 4E 44 20 72 64 63 68 28 29 20 3D 20 56 ..AND rdch() = V
01D2D0: 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 55 4E 4C 45 ALOF..$(.. UNLE
01D2E0: 53 53 20 72 65 74 75 72 6E 65 64 20 3D 20 30 20 SS returned = 0
01D2F0: 54 48 45 4E 0D 0A 20 20 24 28 0D 0A 20 20 20 20 THEN.. $(..
01D300: 4C 45 54 20 63 20 3D 20 72 65 74 75 72 6E 65 64 LET c = returned
01D310: 0D 0A 20 20 20 20 72 65 74 75 72 6E 65 64 20 3A .. returned :
01D320: 3D 20 30 0D 0A 20 20 20 20 6C 61 73 74 63 68 61 = 0.. lastcha
01D330: 72 20 3A 3D 20 63 0D 0A 20 20 20 20 52 45 53 55 r := c.. RESU
01D340: 4C 54 49 53 20 63 0D 0A 20 20 24 29 0D 0A 20 20 LTIS c.. $)..
01D350: 52 45 53 55 4C 54 49 53 20 72 65 61 64 73 74 72 RESULTIS readstr
01D360: 65 61 6D 20 3D 20 30 20 2D 3E 20 72 64 76 64 75 eam = 0 -> rdvdu
01D370: 28 29 2C 20 72 65 61 64 63 68 28 29 0D 0A 24 29 (), readch()..$)
01D380: 0D 0A 0D 0A 41 4E 44 20 75 6E 72 64 63 68 28 29 ....AND unrdch()
01D390: 20 42 45 20 72 65 74 75 72 6E 65 64 20 3A 3D 20 BE returned :=
01D3A0: 6C 61 73 74 63 68 61 72 0D 0A 0D 0A 41 4E 44 20 lastchar....AND
01D3B0: 72 65 61 64 73 28 61 72 72 61 79 29 20 3D 20 56 reads(array) = V
01D3C0: 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4D 41 4E 49 ALOF..$(.. MANI
01D3D0: 46 45 53 54 20 24 28 20 65 73 63 61 70 65 20 3D FEST $( escape =
01D3E0: 20 23 78 46 43 20 20 3B 20 6D 61 78 6C 65 6E 3D #xFC ; maxlen=
01D3F0: 32 35 35 20 24 29 0D 0A 20 20 4C 45 54 20 70 74 255 $).. LET pt
01D400: 49 4E 4C 49 4E 45 20 36 32 2C 32 35 35 0D 0A 20 INLINE 62,255..
01D410: 20 49 4E 4C 49 4E 45 20 35 36 2C 32 20 20 20 20 INLINE 56,2
01D420: 20 20 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 63 // jr c
01D430: 2C 70 63 2B 32 0D 0A 20 20 49 4E 4C 49 4E 45 20 ,pc+2.. INLINE
01D440: 36 32 2C 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 62,0.. INLINE 2
01D450: 32 31 2C 31 31 39 2C 31 32 35 20 20 20 20 20 20 21,119,125
01D460: 2F 2F 20 73 74 6F 72 65 20 6F 70 65 6E 20 73 74 // store open st
01D470: 61 74 75 73 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 atus.. INLINE 2
01D480: 32 31 2C 31 31 39 2C 31 32 34 0D 0A 20 20 52 45 21,119,124.. RE
01D490: 53 55 4C 54 49 53 20 6E 61 6D 65 0D 0A 24 29 0D SULTIS name..$).
01D4A0: 0A 0D 0A 41 4E 44 20 65 6E 64 77 72 69 74 65 28 ...AND endwrite(
01D4B0: 29 20 3D 20 63 6C 6F 73 65 6F 75 74 28 29 0D 0A ) = closeout()..
01D4C0: 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 50 52 49 4D 49 54 ..../**** PRIMIT
01D4D0: 49 56 45 20 49 2F 4F 20 52 4F 55 54 49 4E 45 53 IVE I/O ROUTINES
01D4E0: 20 2A 2A 2A 2A 2F 0D 0A 0D 0A 41 4E 44 20 77 72 ****/....AND wr
01D4F0: 76 64 75 28 63 29 20 3D 20 56 41 4C 4F 46 0D 0A vdu(c) = VALOF..
01D500: 24 28 0D 0A 20 20 49 46 20 63 3D 6E 65 77 6C 69 $(.. IF c=newli
01D510: 6E 65 63 68 20 54 48 45 4E 20 24 28 20 77 72 76 nech THEN $( wrv
01D520: 64 75 28 31 33 29 20 3B 20 63 3A 3D 31 30 20 24 du(13) ; c:=10 $
01D530: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C ).. INLINE 221,
01D540: 31 32 36 2C 31 32 36 0D 0A 20 20 49 4E 4C 49 4E 126,126.. INLIN
01D550: 45 20 32 30 35 2C 23 78 35 41 2C 23 78 42 42 0D E 205,#x5A,#xBB.
01D560: 0A 20 20 52 45 53 55 4C 54 49 53 20 54 52 55 45 . RESULTIS TRUE
01D570: 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 70 72 63 68 ..$)....AND prch
01D580: 28 63 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D (c) = VALOF..$(.
01D590: 0A 20 20 49 46 20 63 3D 6E 65 77 6C 69 6E 65 63 . IF c=newlinec
01D5A0: 68 20 54 48 45 4E 20 24 28 20 70 72 63 68 28 31 h THEN $( prch(1
01D5B0: 33 29 20 3B 20 63 3A 3D 31 30 20 24 29 0D 0A 20 3) ; c:=10 $)..
01D5C0: 20 49 4E 4C 49 4E 45 20 23 78 44 44 2C 20 23 78 INLINE #xDD, #x
01D5D0: 37 45 2C 20 23 78 37 45 0D 0A 20 20 49 4E 4C 49 7E, #x7E.. INLI
01D5E0: 4E 45 20 23 78 43 44 2C 20 23 78 32 42 2C 20 23 NE #xCD, #x2B, #
01D5F0: 78 42 44 0D 0A 20 20 49 4E 4C 49 4E 45 20 23 78 xBD.. INLINE #x
01D600: 72 2C 20 63 20 3D 20 30 2C 20 3F 0D 0A 20 20 24 r, c = 0, ?.. $
01D610: 28 0D 0A 20 20 20 20 46 4F 52 20 69 3D 31 20 74 (.. FOR i=1 t
01D620: 6F 20 70 74 72 20 44 4F 20 24 28 20 77 72 63 68 o ptr DO $( wrch
01D630: 28 38 29 20 3B 20 77 72 63 68 28 27 20 27 29 20 (8) ; wrch(' ')
01D640: 3B 20 77 72 63 68 28 38 29 20 24 29 0D 0A 20 20 ; wrch(8) $)..
01D650: 20 20 70 74 72 3A 3D 30 0D 0A 20 20 20 20 63 20 ptr:=0.. c
01D660: 3A 3D 20 72 64 63 68 28 29 0D 0A 20 20 20 20 55 := rdch().. U
01D670: 4E 54 49 4C 20 63 3D 31 33 20 7C 20 63 3D 65 73 NTIL c=13 | c=es
01D680: 63 61 70 65 20 44 4F 0D 0A 20 20 20 20 24 28 0D cape DO.. $(.
01D690: 0A 20 20 20 20 20 20 54 45 53 54 20 63 3D 31 32 . TEST c=12
01D6A0: 37 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 24 28 7 THEN.. $(
01D6B0: 0D 0A 20 20 20 20 20 20 20 20 54 45 53 54 20 70 .. TEST p
01D6C0: 74 72 3D 30 20 54 48 45 4E 20 77 72 63 68 28 37 tr=0 THEN wrch(7
01D6D0: 29 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 45 0D ).. ELSE.
01D6E0: 0A 20 20 20 20 20 20 20 20 24 28 0D 0A 20 20 20 . $(..
01D6F0: 20 20 20 20 20 20 20 77 72 63 68 28 38 29 20 3B wrch(8) ;
01D700: 20 77 72 63 68 28 27 20 27 29 20 3B 20 77 72 63 wrch(' ') ; wrc
01D710: 68 28 38 29 0D 0A 20 20 20 20 20 20 20 20 20 20 h(8)..
01D720: 70 74 72 20 3A 3D 20 70 74 72 2D 31 0D 0A 20 20 ptr := ptr-1..
01D730: 20 20 20 20 20 20 24 29 0D 0A 20 20 20 20 20 20 $)..
01D740: 24 29 0D 0A 20 20 20 20 20 20 45 4C 53 45 0D 0A $).. ELSE..
01D750: 20 20 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 $(..
01D760: 20 20 54 45 53 54 20 70 74 72 3D 6D 61 78 6C 65 TEST ptr=maxle
01D770: 6E 20 54 48 45 4E 20 77 72 63 68 28 37 29 0D 0A n THEN wrch(7)..
01D780: 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 ELSE..
01D790: 20 20 20 20 20 20 24 28 20 77 72 63 68 28 63 29 $( wrch(c)
01D7A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 70 74 72 .. ptr
01D7B0: 20 3A 3D 20 70 74 72 20 2B 20 31 0D 0A 20 20 20 := ptr + 1..
01D7C0: 20 20 20 20 20 20 20 20 61 72 72 61 79 25 70 74 array%pt
01D7D0: 72 20 3A 3D 20 63 0D 0A 20 20 20 20 20 20 20 20 r := c..
01D7E0: 24 29 0D 0A 20 20 20 20 20 20 24 29 0D 0A 20 20 $).. $)..
01D7F0: 20 20 20 20 63 20 3A 3D 20 72 64 63 68 28 29 0D c := rdch().
01D800: 33 30 2C 20 23 78 46 42 0D 0A 20 20 52 45 53 55 30, #xFB.. RESU
01D810: 4C 54 49 53 20 54 52 55 45 0D 0A 24 29 0D 0A 0D LTIS TRUE..$)...
01D820: 0A 41 4E 44 20 70 72 62 75 73 79 28 29 20 3D 20 .AND prbusy() =
01D830: 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4C 45 54 VALOF..$(.. LET
01D840: 20 61 3D 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 23 a=0.. INLINE #
01D850: 78 43 44 2C 20 23 78 32 45 2C 20 23 78 42 44 0D xCD, #x2E, #xBD.
01D860: 0A 20 20 49 4E 4C 49 4E 45 20 23 78 33 30 2C 36 . INLINE #x30,6
01D870: 0D 0A 20 20 49 4E 4C 49 4E 45 20 23 78 44 44 2C .. INLINE #xDD,
01D880: 23 78 33 36 2C 23 78 37 38 2C 23 78 46 46 0D 0A #x36,#x78,#xFF..
01D890: 20 20 52 45 53 55 4C 54 49 53 20 61 5C 3D 30 0D RESULTIS a\=0.
01D8A0: 0A 24 29 0D 0A 0D 0A 0D 0A 41 4E 44 20 72 64 76 .$)......AND rdv
01D8B0: 64 75 28 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 du() = VALOF..$(
01D8C0: 0D 0A 20 20 4C 45 54 20 6B 65 79 20 3D 20 30 0D .. LET key = 0.
01D8D0: 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 . INLINE 205,#x
01D8E0: 38 31 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 81,#xBB // ca
01D8F0: 6C 6C 20 74 78 74 20 63 75 72 20 6F 6E 0D 0A 20 ll txt cur on..
01D900: 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 31 38 INLINE 205,#x18
01D910: 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C ,#xBB // call
01D920: 20 77 61 69 74 20 6B 65 79 0D 0A 20 20 49 4E 4C wait key.. INL
01D930: 49 4E 45 20 32 32 31 2C 31 31 39 2C 31 32 30 20 INE 221,119,120
01D940: 20 20 20 20 20 2F 2F 20 73 74 6F 72 65 20 69 74 // store it
01D950: 20 69 6E 20 6B 65 79 0D 0A 20 20 49 4E 4C 49 4E in key.. INLIN
01D960: 45 20 32 30 35 2C 23 78 38 34 2C 23 78 42 42 20 E 205,#x84,#xBB
01D970: 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 74 20 63 // call txt c
01D980: 75 72 20 6F 66 66 0D 0A 20 20 52 45 53 55 4C 54 ur off.. RESULT
01D990: 49 53 20 6B 65 79 0D 0A 24 29 0D 0A 0D 0A 41 4E IS key..$)....AN
01D9A0: 44 20 72 64 74 65 73 74 28 29 20 3D 20 56 41 4C D rdtest() = VAL
01D9B0: 4F 46 0D 0A 24 28 0D 0A 20 4C 45 54 20 63 3D 30 OF..$(.. LET c=0
01D9C0: 0D 0A 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 .. INLINE 205,#x
01D9D0: 31 42 2C 23 78 42 42 20 20 20 20 20 20 20 20 2F 1B,#xBB /
01D9E0: 2F 20 6B 6D 72 65 61 64 63 68 61 72 0D 0A 20 49 / kmreadchar.. I
01D9F0: 4E 4C 49 4E 45 20 32 30 35 2C 23 78 30 43 2C 23 NLINE 205,#x0C,#
01DA00: 0A 20 20 20 20 24 29 0D 0A 20 20 24 29 0D 0A 20 . $).. $)..
01DA10: 20 52 45 50 45 41 54 57 48 49 4C 45 20 63 3D 65 REPEATWHILE c=e
01DA20: 73 63 61 70 65 20 26 20 28 70 74 72 20 5C 3D 20 scape & (ptr \=
01DA30: 30 29 0D 0A 20 20 61 72 72 61 79 25 30 20 3A 3D 0).. array%0 :=
01DA40: 20 63 3D 65 73 63 61 70 65 20 2D 3E 20 30 2C 20 c=escape -> 0,
01DA50: 70 74 72 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 ptr.. RESULTIS
01DA60: 63 5C 3D 65 73 63 61 70 65 0D 0A 24 29 0D 0A 0D c\=escape..$)...
01DA70: 0A 41 4E 44 20 72 65 61 64 6E 28 29 20 3D 20 56 .AND readn() = V
01DA80: 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 ALOF..$(.. LET
01DA90: 69 6E 70 75 74 20 3D 20 56 45 43 20 31 32 38 0D input = VEC 128.
01DAA0: 0A 20 20 72 65 61 64 73 28 69 6E 70 75 74 29 0D . reads(input).
01DAB0: 0A 20 20 52 45 53 55 4C 54 49 53 20 73 74 72 74 . RESULTIS strt
01DAC0: 6F 6E 75 6D 28 69 6E 70 75 74 2C 31 30 29 0D 0A onum(input,10)..
01DAD0: 24 29 0D 0A 0D 0A 41 4E 44 20 73 74 72 74 6F 6E $)....AND strton
01DAE0: 75 6D 28 73 74 72 69 6E 67 2C 62 61 73 65 29 20 um(string,base)
01DAF0: 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4C = VALOF..$(.. L
01DB00: 45 54 20 70 74 72 2C 20 74 6F 74 61 6C 20 3D 20 ET ptr, total =
01DB10: 31 2C 20 30 0D 0A 20 20 57 48 49 4C 45 20 70 74 1, 0.. WHILE pt
01DB20: 72 20 3C 3D 20 73 74 72 69 6E 67 25 30 20 4C 4F r <= string%0 LO
01DB30: 47 41 4E 44 20 28 30 3C 3D 64 65 63 76 61 6C 28 GAND (0<=decval(
01DB40: 73 74 72 69 6E 67 25 70 74 72 29 3C 3D 62 61 73 string%ptr)<=bas
01DB50: 65 29 20 44 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 e) DO.. $(..
01DB60: 20 74 6F 74 61 6C 20 3A 3D 20 74 6F 74 61 6C 20 total := total
01DB70: 2A 20 62 61 73 65 20 2B 20 64 65 63 76 61 6C 28 * base + decval(
01DB80: 73 74 72 69 6E 67 25 70 74 72 29 0D 0A 20 20 20 string%ptr)..
01DB90: 20 70 74 72 20 3A 3D 20 70 74 72 20 2B 20 31 0D ptr := ptr + 1.
01DBA0: 0A 20 20 24 29 0D 0A 20 20 52 45 53 55 4C 54 49 . $).. RESULTI
01DBB0: 53 20 74 6F 74 61 6C 0D 0A 24 29 0D 0A 0D 0A 0D S total..$).....
01DBC0: 0A 2F 2A 2A 2A 2A 20 46 49 4C 45 20 49 2F 4F 20 ./**** FILE I/O
01DBD0: 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A 2F 0D 0A ROUTINES ****/..
01DBE0: 0D 0A 41 4E 44 20 66 69 6E 64 69 6E 70 75 74 28 ..AND findinput(
01DBF0: 6E 61 6D 65 2C 62 75 66 66 65 72 29 20 3D 20 56 name,buffer) = V
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 00 02 02 09 4E E5 19 00 C1 02 00 00 00 02 ......N.........
01DC20: 19 00 C6 02 00 00 00 02 19 00 C2 02 00 00 00 02 ................
01DC30: 19 00 C7 02 00 00 00 02 19 00 C3 02 00 00 00 02 ................
01DC40: 19 00 C8 02 00 00 00 02 19 00 C4 02 00 00 00 02 ................
01DC50: 19 00 C9 02 00 00 00 02 19 00 C5 02 00 00 00 02 ................
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 78 42 42 20 20 20 20 20 20 20 20 2F 2F 20 6B 6D xBB // km
01DD10: 63 68 61 72 72 65 74 75 72 6E 0D 0A 20 49 4E 4C charreturn.. INL
01DD20: 49 4E 45 20 23 78 39 46 20 20 20 20 20 20 20 20 INE #x9F
01DD30: 20 20 20 20 20 20 20 20 20 2F 2F 20 73 62 63 20 // sbc
01DD40: 61 2C 61 0D 0A 20 49 4E 4C 49 4E 45 20 23 78 44 a,a.. INLINE #xD
01DD50: 44 2C 31 31 39 2C 31 32 30 20 20 20 20 20 20 20 D,119,120
01DD60: 20 20 2F 2F 20 6C 64 20 28 69 78 2B 31 32 30 29 // ld (ix+120)
01DD70: 2C 61 0D 0A 20 52 45 53 55 4C 54 49 53 20 63 5C ,a.. RESULTIS c\
01DD80: 3D 30 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 66 6C =0..$)....AND fl
01DD90: 75 73 68 28 29 20 42 45 20 57 48 49 4C 45 20 72 ush() BE WHILE r
01DDA0: 64 74 65 73 74 28 29 20 72 64 76 64 75 28 29 0D dtest() rdvdu().
01DDB0: 0A 0D 0A 41 4E 44 20 72 65 61 64 63 68 28 64 75 ...AND readch(du
01DDC0: 6D 6D 79 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 mmy) = VALOF..$(
01DDD0: 0D 0A 20 20 4C 45 54 20 63 68 61 72 20 3D 20 2D .. LET char = -
01DDE0: 31 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 1.. INLINE 221,
01DDF0: 32 32 39 20 20 20 20 20 20 20 20 20 20 2F 2F 20 229 //
01DE00: 73 61 76 65 20 69 78 0D 0A 20 20 49 4E 4C 49 4E save ix.. INLIN
01DE10: 45 20 32 30 35 2C 23 78 38 30 2C 23 78 42 43 20 E 205,#x80,#xBC
01DE20: 20 20 20 2F 2F 20 67 65 74 20 63 68 61 72 61 63 // get charac
01DE30: 74 65 72 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 ter.. INLINE 22
01DE40: 31 2C 32 32 35 20 20 20 20 20 20 20 20 20 20 2F 1,225 /
01DE50: 2F 20 72 65 63 6F 76 65 72 20 69 78 0D 0A 20 20 / recover ix..
01DE60: 49 4E 4C 49 4E 45 20 34 38 2C 37 20 20 20 20 20 INLINE 48,7
01DE70: 20 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 6E 63 // jr nc
01DE80: 2C 70 63 2B 36 0D 0A 20 20 49 4E 4C 49 4E 45 20 ,pc+6.. INLINE
01DE90: 32 32 31 2C 35 34 2C 31 31 39 2C 30 20 20 20 20 221,54,119,0
01DEA0: 20 2F 2F 20 73 74 6F 72 65 20 30 20 69 6E 20 72 // store 0 in r
01DEB0: 65 73 75 6C 74 20 62 69 74 73 20 38 2D 31 35 0D esult bits 8-15.
01DEC0: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 . INLINE 221,11
01DED0: 39 2C 31 31 38 20 20 20 20 20 20 2F 2F 20 6C 64 9,118 // ld
01DEE0: 20 28 69 78 2B 31 31 38 29 2C 61 0D 0A 20 20 52 (ix+118),a.. R
01DEF0: 45 53 55 4C 54 49 53 20 63 68 61 72 0D 0A 24 29 ESULTIS char..$)
01DF00: 2E AE DD 21 2E AE 21 8B DF 18 50 CD 3B F3 52 45 ...!..!...P.;.RE
01DF10: 53 55 4C 54 49 53 20 6F 75 74 73 69 64 65 20 61 SULTIS outside a
01DF20: 20 56 41 4C 4F C6 C9 DD 21 3A AE 21 0C E0 18 2B VALO...!:.!...+
01DF30: DD 21 36 AE 21 B9 DF 18 22 CD 3B F3 4C 4F 4F 50 .!6.!...".;.LOOP
01DF40: 20 66 6F 75 6E 64 20 6F 75 74 73 69 64 65 20 6C found outside l
01DF50: 6F 6F F0 C9 DD 21 32 AE 21 F0 DF DD CB 00 76 28 oo...!2.!.....v(
01DF60: 01 E9 DD 46 01 3A FB AD CD CC F3 3E C3 C3 69 ED ...F.:.....>..i.
01DF70: CD 3B F3 42 52 45 41 4B 20 66 6F 75 6E 64 20 6F .;.BREAK found o
01DF80: 75 74 73 69 64 65 20 6C 6F 6F F0 C9 CD 3B F3 52 utside loo...;.R
01DF90: 45 54 55 52 4E 20 66 6F 75 6E 64 20 6F 75 74 73 ETURN found outs
01DFA0: 69 64 65 20 46 55 4E 43 2F 50 52 4F C3 C9 EB 2B ide FUNC/PRO...+
01DFB0: 56 2B 5E EB CD 72 E5 3E E9 CD 1E CA C9 EB 2B 56 V+^..r.>......+V
01DFC0: 2B 5E E5 CD A8 F2 38 35 DD 7E 05 FE 08 28 1D FE +^....85.~...(..
01DFD0: 09 28 19 CD 3B F3 4C 61 62 65 6C 73 20 6E 65 65 .(..;.Labels nee
01DFE0: 64 20 61 20 67 6C 6F 62 61 EC 18 11 DD 36 05 08 d a globa....6..
01DFF0: ED 5B F7 AD DD 4E 07 DD 46 08 CD 5D E2 E1 2B 56 .[...N..F..]..+V
01E000: 2B 5E EB C3 F7 D4 C1 2A 36 AE E5 2A 38 AE E5 2A +^.....*6..*8..*
01E010: 32 AE E5 2A 34 AE E5 C5 C9 C1 E1 22 34 AE E1 22 2..*4......"4.."
01E020: 32 AE E1 22 38 AE E1 22 36 AE C5 C9 C1 2A 42 AE 2.."8.."6....*B.
01E030: E5 2A 44 AE E5 2A 46 AE E5 2A 48 AE E5 C5 C9 C1 .*D..*F..*H.....
01E040: E1 22 48 AE E1 22 46 AE E1 22 44 AE E1 22 42 AE ."H.."F.."D.."B.
01E050: C5 C9 DD CB 00 46 28 0A DD 6E 02 DD 66 03 CD 6C .....F(..n..f..l
01E060: CA C9 DD 6E 02 DD 66 03 CD E4 D5 C9 D5 2A 2C AE ...n..f......*,.
01E070: E5 23 23 22 2C AE ED 5B FD AD A7 ED 52 D2 97 F2 .##",..[....R...
01E080: E1 D1 C9 CD 86 E0 3E 00 32 32 AE 3C 32 36 AE CD ......>.22.<26..
01E090: EC E0 22 34 AE 2A F7 AD 22 38 AE 3A FB AD 32 37 .."4.*.."8.:..27
01E0A0: AE 32 33 AE 1A CD AF DA EB 2B 56 2B 5E EB CD F7 .23......+V+^...
01E0B0: D4 3E C3 2A 38 AE CD 7C ED ED 5B F7 AD DD 21 32 .>.*8..|..[...!2
01E0C0: AE CD AC F3 CD 99 E0 C9 CD 86 E0 CD AC E0 3E FF ..............>.
01E0D0: 18 08 CD 86 E0 CD AC E0 3E 00 F5 3E 00 32 32 AE ........>..>.22.
01E0E0: 32 36 AE 32 42 AE 32 46 AE CD EC E0 22 34 AE CD 26.2B.2F...."4..
01E0F0: EC E0 22 38 AE CD EC E0 22 44 AE CD EC E0 22 48 .."8...."D...."H
01E100: 0D 0A 0D 0A 41 4E 44 20 63 6C 6F 73 65 69 6E 28 ....AND closein(
01E110: 64 75 6D 6D 79 29 20 3D 20 56 41 4C 4F 46 0D 0A dummy) = VALOF..
01E120: 24 28 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 $(.. INLINE 205
01E130: 2C 23 78 37 41 2C 23 78 42 43 20 20 20 20 2F 2F ,#x7A,#xBC //
01E140: 20 63 61 73 20 69 6E 20 63 6C 6F 73 65 0D 0A 20 cas in close..
01E150: 20 52 45 53 55 4C 54 49 53 20 54 52 55 45 0D 0A RESULTIS TRUE..
01E160: 24 29 0D 0A 0D 0A 41 4E 44 20 77 72 69 74 65 63 $)....AND writec
01E170: 68 28 63 2C 64 75 6D 6D 79 29 20 3D 20 56 41 4C h(c,dummy) = VAL
01E180: 4F 46 0D 0A 24 28 0D 0A 20 20 49 46 20 63 3D 6E OF..$(.. IF c=n
01E190: 65 77 6C 69 6E 65 63 68 20 54 48 45 4E 0D 0A 20 ewlinech THEN..
01E1A0: 20 24 28 0D 0A 20 20 20 20 55 4E 4C 45 53 53 20 $(.. UNLESS
01E1B0: 77 72 69 74 65 63 68 28 31 33 29 20 52 45 53 55 writech(13) RESU
01E1C0: 4C 54 49 53 20 46 41 4C 53 45 0D 0A 20 20 20 20 LTIS FALSE..
01E1D0: 63 3A 3D 31 30 0D 0A 20 20 24 29 0D 0A 20 20 49 c:=10.. $).. I
01E1E0: 4E 4C 49 4E 45 20 32 32 31 2C 31 32 36 2C 31 32 NLINE 221,126,12
01E1F0: 34 20 20 20 20 20 20 2F 2F 20 6C 64 20 61 2C 28 4 // ld a,(
01E200: 69 78 2B 31 32 34 29 0D 0A 20 20 49 4E 4C 49 4E ix+124).. INLIN
01E210: 45 20 32 32 31 2C 32 32 39 20 20 20 20 20 20 20 E 221,229
01E220: 20 20 20 2F 2F 20 73 61 76 65 20 69 78 0D 0A 20 // save ix..
01E230: 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 39 35 INLINE 205,#x95
01E240: 2C 23 78 42 43 0D 0A 20 20 49 4E 4C 49 4E 45 20 ,#xBC.. INLINE
01E250: 32 32 31 2C 32 32 35 20 20 20 20 20 20 20 20 20 221,225
01E260: 20 2F 2F 20 72 65 63 6F 76 65 72 20 69 78 0D 0A // recover ix..
01E270: 20 20 49 4E 4C 49 4E 45 20 36 32 2C 32 35 35 20 INLINE 62,255
01E280: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 // ld
01E290: 61 2C 32 35 35 0D 0A 20 20 49 4E 4C 49 4E 45 20 a,255.. INLINE
01E2A0: 35 36 2C 32 20 20 20 20 20 20 20 20 20 20 20 20 56,2
01E2B0: 20 2F 2F 20 6A 72 20 63 2C 70 63 2B 32 0D 0A 20 // jr c,pc+2..
01E2C0: 20 49 4E 4C 49 4E 45 20 36 32 2C 30 0D 0A 20 20 INLINE 62,0..
01E2D0: 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 39 2C 31 INLINE 221,119,1
01E2E0: 32 35 20 20 20 20 20 20 2F 2F 20 73 74 6F 72 65 25 // store
01E2F0: 20 73 75 63 63 65 73 73 2F 66 61 69 6C 75 72 65 success/failure
01E300: AE 3A FB AD 32 37 AE 32 33 AE 2A F7 AD F1 F5 E5 .:..27.23.*.....
01E310: F5 1A CD AF DA EB 2B 56 2B 5E 2B E5 EB CD F7 D4 ......+V+^+.....
01E320: ED 5B F7 AD DD 21 36 AE CD AC F3 E1 56 2B 5E EB .[...!6.....V+^.
01E330: F1 CD DE EC D1 F1 F5 EE FF CD CD DD F1 ED 5B F7 ..............[.
01E340: AD CD CD DD ED 5B F7 AD DD 21 32 AE CD AC F3 CD .....[...!2.....
01E350: BF E0 CD 99 E0 C9 EB 2B 56 2B 5E 2B E5 D5 CD 16 .......+V+^+....
01E360: E2 D1 CD ED E1 E1 56 2B 5E EB C3 F7 D4 7A B3 C8 ......V+^....z..
01E370: EB 2B E5 2B 2B 56 2B 5E EB CD 15 F0 EB ED 4B 05 .+.++V+^......K.
01E380: AE CD 5D E2 E1 56 2B 5E E5 CD 64 DD DD E1 DD 5E ..]..V+^..d....^
01E390: FC DD 56 FD 18 D7 21 00 00 7A B3 28 0D 23 23 D5 ..V...!..z.(.##.
01E3A0: DD E1 DD 5E FA DD 56 FB 18 EF E5 ED 5B F7 AD 19 ...^..V.....[...
01E3B0: 7B E6 01 20 01 23 23 23 23 3E C3 CD 1E CA CD 6C {.. .####>.....l
01E3C0: CA 3A F7 AD E6 01 28 05 3E 00 CD 1E CA 2A F7 AD .:....(.>....*..
01E3D0: 22 05 AE E1 7C B5 C8 CD 1E CA 2B 18 F7 2A FD AD "...|.....+..*..
01E3E0: 72 2B 73 2B 70 2B 71 2B 22 FD AD C9 2A 3E AE E5 r+s+p+q+"...*>..
01E3F0: 2A 40 AE E5 3E 00 32 3E AE 3A FB AD 32 3F AE CD *@..>.2>.:..2?..
01E400: EC E0 22 40 AE EB 2B 56 2B 5E E5 EB CD 72 E5 CD .."@..+V+^...r..
01E410: EC E0 54 5D 3E 11 CD 1E CA CD E4 D5 3E 3E CD 1E ..T]>.......>>..
01E420: CA CD EC E0 7E CD 1E CA 3E C3 CD 1E CA 2A 54 AE ....~...>....*T.
01E430: CD 6C CA E1 D5 EB 2A 03 AE E5 21 00 00 22 03 AE .l....*...!.."..
01E440: 2A 01 AE E5 EB 2B 56 2B 5E EB CD F7 D4 D1 D5 2A *....+V+^......*
01E450: 01 AE A7 ED 52 23 23 3E C3 CD 1E CA ED 5B F7 AD ....R##>.....[..
01E460: 19 23 23 CD 6C CA D1 E1 DD E1 E5 D5 2A F7 AD DD .##.l.......*...
01E470: 75 00 DD 74 01 2A 01 AE A7 ED 52 CB 3C CB 1D CB u..t.*....R.<...
01E480: 3C CB 1D DD 75 02 45 7D A7 28 2B 2A 01 AE ED 5B <...u.E}.(+*...[
01E490: FF AD 19 2B 2B 2B 2B E5 DD E1 DD 6E 00 DD 66 01 ...++++....n..f.
01E4A0: CD 6C CA DD 6E 02 DD 66 03 CD 6C CA DD 2B DD 2B .l..n..f..l..+.+
01E4B0: DD 2B DD 2B 10 E4 2A 03 AE 7C B5 20 05 2A F7 AD .+.+..*..|. .*..
01E4C0: 23 23 CD 6C CA E1 22 01 AE E1 22 03 AE ED 5B F7 ##.l.."..."...[.
01E4D0: AD DD 21 3E AE CD AC F3 E1 22 40 AE E1 22 3E AE ..!>....."@..">.
01E4E0: C9 3A 3E AE CB 77 28 28 1B 1B D5 CD 3B F3 43 41 .:>..w((....;.CA
01E4F0: 53 45 2F 44 45 46 41 55 4C 54 20 6F 75 74 73 69 SE/DEFAULT outsi
01E500: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
01E510: 31 39 2C 31 32 34 0D 0A 20 20 52 45 53 55 4C 54 19,124.. RESULT
01E520: 49 53 20 63 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 IS c..$)....AND
01E530: 63 6C 6F 73 65 6F 75 74 28 64 75 6D 6D 79 29 20 closeout(dummy)
01E540: 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 49 = VALOF..$(.. I
01E550: 4E 4C 49 4E 45 20 32 32 31 2C 32 32 39 20 20 20 NLINE 221,229
01E560: 20 20 20 20 20 20 20 2F 2F 20 73 61 76 65 20 69 // save i
01E570: 78 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C x.. INLINE 205,
01E580: 23 78 38 46 2C 23 78 42 43 20 20 20 20 2F 2F 20 #x8F,#xBC //
01E590: 63 6C 6F 73 65 20 6F 75 74 70 75 74 20 66 69 6C close output fil
01E5A0: 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C e.. INLINE 221,
01E5B0: 32 32 35 20 20 20 20 20 20 20 20 20 20 2F 2F 20 225 //
01E5C0: 72 65 63 6F 76 65 72 20 69 78 0D 0A 20 20 49 4E recover ix.. IN
01E5D0: 4C 49 4E 45 20 36 32 2C 32 35 35 0D 0A 20 20 49 LINE 62,255.. I
01E5E0: 4E 4C 49 4E 45 20 35 36 2C 32 20 20 20 20 20 20 NLINE 56,2
01E5F0: 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 63 2C 70 // jr c,p
01E600: 63 2B 32 0D 0A 20 20 49 4E 4C 49 4E 45 20 36 32 c+2.. INLINE 62
01E610: 2C 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 ,0.. INLINE 221
01E620: 2C 31 31 39 2C 31 32 37 20 20 20 20 20 20 2F 2F ,119,127 //
01E630: 20 73 74 6F 72 65 20 63 6C 6F 73 65 20 73 74 61 store close sta
01E640: 74 75 73 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 tus.. INLINE 22
01E650: 31 2C 31 31 39 2C 31 32 36 0D 0A 20 20 52 45 53 1,119,126.. RES
01E660: 55 4C 54 49 53 20 64 75 6D 6D 79 0D 0A 24 29 0D ULTIS dummy..$).
01E670: 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 4D 49 53 43 45 ...../**** MISCE
01E680: 4C 4C 41 4E 45 4F 55 53 20 52 4F 55 54 49 4E 45 LLANEOUS ROUTINE
01E690: 53 20 2A 2A 2A 2A 2F 0D 0A 0D 0A 41 4E 44 20 73 S ****/....AND s
01E6A0: 65 6C 65 63 74 69 6E 70 75 74 28 73 74 72 65 61 electinput(strea
01E6B0: 6D 29 20 20 42 45 20 72 65 61 64 73 74 72 65 61 m) BE readstrea
01E6C0: 6D 20 20 3A 3D 20 73 74 72 65 61 6D 0D 0A 41 4E m := stream..AN
01E6D0: 44 20 73 65 6C 65 63 74 6F 75 74 70 75 74 28 73 D selectoutput(s
01E6E0: 74 72 65 61 6D 29 20 42 45 20 77 72 69 74 65 73 tream) BE writes
01E6F0: 74 72 65 61 6D 20 3A 3D 20 73 74 72 65 61 6D 0D tream := stream.
01E700: 64 65 20 61 20 53 57 49 54 43 48 4F CE C3 C6 E3 de a SWITCHO....
01E710: EB 2B 56 2B 5E E5 EB CD 15 F0 EB 2A FF AD ED 4B .+V+^......*...K
01E720: 01 AE 09 44 4D 21 CE FF 39 A7 ED 42 DA 97 F2 60 ...DM!..9..B...`
01E730: 69 73 23 72 ED 5B F7 AD 23 73 23 72 2A 01 AE 23 is#r.[..#s#r*..#
01E740: 23 23 23 22 01 AE E1 2B 56 2B 5E EB C3 F7 D4 3A ###"...+V+^....:
01E750: 3E AE CB 77 C2 6A E3 2A F7 AD 22 03 AE EB 2B 56 >..w.j.*.."...+V
01E760: 2B 5E EB C3 F7 D4 DD 21 3E AE 21 F0 E3 C3 DB DF +^.....!>.!.....
01E770: CD 3B F3 45 4E 44 43 41 53 45 20 75 73 65 64 20 .;.ENDCASE used
01E780: 6F 75 74 73 69 64 65 20 53 57 49 54 43 48 4F CE outside SWITCHO.
01E790: C9 D5 DD E1 CD 86 E0 2A 24 AE E5 3E 2A CD 1E CA .......*$..>*...
01E7A0: CD EC E0 22 24 AE CD E4 D5 3E E5 CD 1E CA 3A FB ..."$....>....:.
01E7B0: AD 3D 3D 32 FB AD DD 6E FA DD 66 FB CD 72 E5 21 .==2...n..f..r.!
01E7C0: 1C E5 CD C8 DC 2A 24 AE CD E4 D5 DD 6E F8 DD 66 .....*$.....n..f
01E7D0: F9 CD 72 E5 2A F7 AD E5 DD 7E 00 CD AF DA ED 4B ..r.*....~.....K
01E7E0: F7 AD 03 2A 24 AE 71 23 70 DD 6E FE DD 66 FF 7C ...*$.q#p.n..f.|
01E7F0: B5 20 05 21 01 00 18 03 CD 15 F0 E5 CB 7C 21 22 . .!.........|!"
01E800: E5 28 03 21 30 E5 CD C8 DC CD EC E0 22 34 AE CD .(.!0......."4..
01E810: E4 D5 3E C5 CD 1E CA 3A FB AD 67 2E 00 22 32 AE ..>....:..g.."2.
01E820: 25 25 22 36 AE CD EC E0 22 38 AE 2A F9 AD E5 2A %%"6...."8.*...*
01E830: DC AD E5 DD 6E F6 DD 66 F7 CD E9 DC DD 6E FC DD ....n..f.....n..
01E840: 66 FD CD F7 D4 3A FB AD C6 04 32 FB AD E1 22 DC f....:....2...".
01E850: AD C1 2A F9 AD ED 43 F9 AD CD 8C D7 ED 5B F7 AD ..*...C......[..
01E860: DD 21 36 AE CD AC F3 3E E1 CD 1E CA D1 21 49 E5 .!6....>.....!I.
01E870: CD 07 F2 3E C3 E1 CD 7C ED ED 5B F7 AD DD 21 32 ...>...|..[...!2
01E880: AE CD AC F3 3E E1 CD 1E CA 3E 22 CD 1E CA 2A 24 ....>....>"...*$
01E890: AE CD E4 D5 E1 22 24 AE CD 99 E0 C9 05 7C EE 80 ....."$......|..
01E8A0: 67 22 0D 11 00 00 EB 42 4B 7A EE 80 57 ED 52 DA g".....BKz..W.R.
01E8B0: 0C 11 00 00 44 4D 7C EE 80 67 ED 52 DA 3E 23 CD ....DM|..g.R.>#.
01E8C0: 1E CA C9 3E 2B CD 1E CA C9 03 01 00 3D E5 FF FF ...>+.......=...
01E8D0: 43 E5 00 00 48 E5 3E 11 CD 1E CA 60 69 CD 6C CA C...H.>....`i.l.
01E8E0: 3E 19 CD 1E CA C9 3E C3 CD 1E CA 2A 5A AE CD 6C >.....>....*Z..l
01E8F0: CA C9 7E EB 21 7A E5 C3 F2 F1 4D 02 E6 4F 13 E6 ..~.!z....M..O..
01E900: 0A 41 4E 44 20 69 6E 70 75 74 28 29 20 20 3D 20 .AND input() =
01E910: 72 65 61 64 73 74 72 65 61 6D 0D 0A 41 4E 44 20 readstream..AND
01E920: 6F 75 74 70 75 74 28 29 20 3D 20 77 72 69 74 65 output() = write
01E930: 73 74 72 65 61 6D 0D 0A 41 4E 44 20 75 70 70 65 stream..AND uppe
01E940: 72 63 61 73 65 28 63 68 61 72 29 20 3D 20 27 61 rcase(char) = 'a
01E950: 27 3C 3D 63 68 61 72 3C 3D 27 7A 27 20 2D 3E 20 '<=char<='z' ->
01E960: 63 68 61 72 20 2D 20 33 32 2C 20 63 68 61 72 0D char - 32, char.
01E970: 0A 41 4E 44 20 63 61 70 69 74 61 6C 63 68 28 63 .AND capitalch(c
01E980: 29 20 3D 20 75 70 70 65 72 63 61 73 65 28 63 29 ) = uppercase(c)
01E990: 0D 0A 41 4E 44 20 64 65 63 76 61 6C 28 64 69 67 ..AND decval(dig
01E9A0: 69 74 29 20 3D 20 27 30 27 3C 3D 64 69 67 69 74 it) = '0'<=digit
01E9B0: 3C 3D 27 39 27 20 20 2D 3E 20 64 69 67 69 74 2D <='9' -> digit-
01E9C0: 27 30 27 2C 20 64 69 67 69 74 2D 27 41 27 2B 31 '0', digit-'A'+1
01E9D0: 30 0D 0A 0D 0A 1A 20 62 79 74 65 73 70 65 72 77 0..... bytesperw
01E9E0: 6F 72 64 20 3D 20 32 20 3B 20 62 69 74 73 70 65 ord = 2 ; bitspe
01E9F0: 72 77 6F 72 64 20 3D 20 31 36 0D 0A 20 20 20 20 rword = 16..
01EA00: 63 2B 32 0D 0A 20 20 49 4E 4C 49 4E 45 20 36 32 c+2.. INLINE 62
01EA10: 2C 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 ,0.. INLINE 221
01EA20: 2C 31 31 39 2C 31 32 37 20 20 20 20 20 20 2F 2F ,119,127 //
01EA30: 20 73 74 6F 72 65 20 63 6C 6F 73 65 20 73 74 61 store close sta
01EA40: 74 75 73 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 tus.. INLINE 22
01EA50: 31 2C 31 31 39 2C 31 32 36 0D 0A 20 20 52 45 53 1,119,126.. RES
01EA60: 55 4C 54 49 53 20 64 75 6D 6D 79 0D 0A 24 29 0D ULTIS dummy..$).
01EA70: 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 4D 49 53 43 45 ...../**** MISCE
01EA80: 4C 4C 41 4E 45 4F 55 53 20 52 4F 55 54 49 4E 45 LLANEOUS ROUTINE
01EA90: 53 20 2A 2A 2A 2A 2F 0D 0A 0D 0A 41 4E 44 20 73 S ****/....AND s
01EAA0: 65 6C 65 63 74 69 6E 70 75 74 28 73 74 72 65 61 electinput(strea
01EAB0: 6D 29 20 20 42 45 20 72 65 61 64 73 74 72 65 61 m) BE readstrea
01EAC0: 6D 20 20 3A 3D 20 73 74 72 65 61 6D 0D 0A 41 4E m := stream..AN
01EAD0: 44 20 73 65 6C 65 63 74 6F 75 74 70 75 74 28 73 D selectoutput(s
01EAE0: 74 72 65 61 6D 29 20 42 45 20 77 72 69 74 65 73 tream) BE writes
01EAF0: 74 72 65 61 6D 20 3A 3D 20 73 74 72 65 61 6D 0D tream := stream.
01EB00: 52 12 E6 4B 77 E6 60 A6 E6 43 8C E6 33 C4 E6 2E R..Kw.`..C..3...
01EB10: 2D E7 0C 39 E7 17 45 E7 26 E2 E7 20 F8 E7 4E 47 -..9..E.&.. ..NG
01EB20: E8 2F 62 E8 35 C3 E8 3D 14 E9 39 48 E9 3B 23 EA ./b.5..=..9H.;#.
01EB30: 24 72 EA 08 97 E8 1F AD E8 19 3C EA 18 52 EA 11 $r........<..R..
01EB40: 32 EA 10 5C EA 38 86 EA 51 68 EB 21 A5 EA 09 90 2..\.8..Qh.!....
01EB50: EA 1B B6 EA 1A C7 EA 1D D8 EA 25 E7 EA 3C F6 EA ..........%..<..
01EB60: 00 CD 40 F4 55 6E 65 78 70 65 63 74 65 64 20 6E ..@.Unexpected n
01EB70: 6F 64 65 20 69 6E 20 65 78 70 72 65 73 73 69 6F ode in expressio
01EB80: 6E 00 3E 21 CD 1E CA 1B 1B 1A CD 1E CA 13 1A CD n.>!............
01EB90: 1E CA C9 DD E5 CD A8 F2 38 18 DD 7E 05 FE 04 20 ........8..~...
01EBA0: 14 3E 21 CD 1E CA DD 7E 07 CD 1E CA DD 7E 08 CD .>!....~.....~..
01EBB0: 1E CA DD E1 C9 FE 02 30 24 3E DD CD 1E CA 3E 66 .......0$>....>f
01EBC0: CD 1E CA DD 7E 08 CD 1E CA 3E DD CD 1E CA 3E 6E ....~....>....>n
01EBD0: CD 1E CA DD 7E 08 3D CD 1E CA DD E1 C9 FE 04 30 ....~.=........0
01EBE0: 0B 3E 21 CD 1E CA CD D5 F1 DD E1 C9 3E 2A CD 1E .>!.........>*..
01EBF0: CA CD D5 F1 DD E1 C9 DD E5 CD E6 DD 3E EB CD 1E ............>...
01EC00: CA DD E1 C9 DD E5 CD E6 DD DD E1 C9 EB 2B 56 2B .............+V+
01EC10: 5E EB CD 72 E5 21 9C E6 CD C8 DC C9 09 7C EE FF ^..r.!.......|..
01EC20: 67 7D EE FF 6F 23 EB 2B 56 2B 5E EB CD 72 E5 21 g}..o#.+V+^..r.!
01EC30: B6 E6 CD C8 DC C9 0D CB 7C 28 09 7C EE FF 67 7D ........|(.|..g}
01EC40: EE FF 6F 23 CD CD E6 3E EB CD 1E CA C9 DD E5 2A ..o#...>.......*
01EC50: 2E AE E5 2A 30 AE E5 3E 00 32 2E AE 3A FB AD 32 ...*0..>.2..:..2
01EC60: 2F AE CD EC E0 22 30 AE EB 2B 56 2B 5E EB CD F7 /...."0..+V+^...
01EC70: D4 DD 21 2E AE DD CB 00 7E 20 20 CD 3B F3 56 41 ..!.....~ .;.VA
01EC80: 4C 4F 46 20 6D 75 73 74 20 63 6F 6E 74 61 69 6E LOF must contain
01EC90: 20 52 45 53 55 4C 54 49 D3 18 07 ED 5B F7 AD CD RESULTI....[...
01ECA0: AC F3 E1 22 30 AE E1 22 2E AE DD E1 C9 3E 21 CD ..."0..".....>!.
01ECB0: 1E CA 21 FF FF CD 6C CA C9 3E 21 CD 1E CA 21 00 ..!...l..>!...!.
01ECC0: 00 CD 6C CA C9 EB 2B 56 2B 5E 1A 21 51 E7 C3 F2 ..l...+V+^.!Q...
01ECD0: F1 4F 78 E7 38 C3 E8 26 D9 E7 00 CD 3B F3 49 6E .Ox.8..&....;.In
01ECE0: 76 61 6C 69 64 20 61 70 70 6C 69 63 61 74 69 6F valid applicatio
01ECF0: 6E 20 6F 66 20 4C D6 C9 DD E5 CD A8 F2 38 20 DD n of L.......8 .
01ED00: 53 05 AE C9 3E 00 18 02 3E FF CD AC E0 21 00 00 S...>...>....!..
01ED10: 22 42 AE 22 46 AE CD EC E0 22 44 AE CD EC E0 22 "B."F...."D...."
01ED20: 48 AE EB 2B 56 2B 5E 2B F5 E5 F5 EB CD DE EC F1 H..+V+^+........
01ED30: ED 5B F7 AD CD CD DD E1 56 2B 5E EB CD F7 D4 F1 .[......V+^.....
01ED40: EE FF ED 5B F7 AD CD CD DD CD BF E0 C9 DD E5 DD ...[............
01ED50: 21 42 AE A7 28 04 DD 21 46 AE DD 6E 02 DD 66 03 !B..(..!F..n..f.
01ED60: 73 23 72 DD E1 C9 EB 2B 3A FB AD F5 E5 2B 2B 56 s#r....+:....++V
01ED70: 2B 5E EB CD 43 DE E1 56 2B 5E EB E5 7E FE 4F 20 +^..C..V+^..~.O
01ED80: 22 EB CD A8 F2 38 33 DD 7E 05 FE 02 28 04 FE 03 "....83.~...(...
01ED90: 20 11 E1 3E CD CD 1E CA CD D5 F1 C1 3A FB AD CD ..>........:...
01EDA0: C5 F3 C9 E1 CD 72 E5 3E CD CD 1E CA 2A 56 AE CD .....r.>....*V..
01EDB0: 6C CA C1 3A FB AD CD C5 F3 C9 E1 C1 3A FB AD CD l..:........:...
01EDC0: C5 F3 C9 47 7C B5 20 02 78 C9 04 3A FB AD 3D 3D ...G|. .x..:..==
01EDD0: 32 FB AD 7E FE 36 28 0C 78 F5 CD 72 E5 3E E5 CD 2..~.6(.x..r.>..
01EDE0: 1E CA F1 C9 2B E5 2B 2B 56 2B 5E 78 EB CD 43 DE ....+.++V+^x..C.
01EDF0: E1 F5 56 2B 5E EB 18 E2 CD AC E0 21 00 00 22 42 ..V+^......!.."B
01EE00: AE 22 46 AE CD EC E0 22 44 AE CD EC E0 22 48 AE ."F...."D...."H.
01EE10: EB 2B E5 2B 2B 2B 2B 56 2B 5E EB 3E 00 CD DE EC .+.++++V+^.>....
01EE20: DD 21 42 AE ED 5B F7 AD CD AC F3 E1 56 2B 5E E5 .!B..[......V+^.
01EE30: EB CD F7 D4 3E C3 CD 1E CA CD EC E0 E5 CD E4 D5 ....>...........
01EE40: ED 5B F7 AD DD 21 46 AE CD AC F3 E1 E3 2B 56 2B .[...!F......+V+
01EE50: 5E EB CD F7 D4 E1 ED 5B F7 AD 73 23 72 CD BF E0 ^......[..s#r...
01EE60: C9 CD 86 E0 CD AC E0 3E 00 18 08 CD 86 E0 CD AC .......>........
01EE70: E0 3E FF 44 4D F5 3E 00 32 32 AE 32 42 AE 32 46 .>.DM.>.22.2B.2F
01EE80: AE 3C 32 36 AE 3A FB AD 32 37 AE 32 33 AE 2A F7 .<26.:..27.23.*.
01EE90: AD 22 38 AE CD EC E0 22 34 AE CD EC E0 22 44 AE ."8...."4...."D.
01EEA0: CD EC E0 22 48 AE 1A CD AF DA F1 EB 2B 56 2B 5E ..."H.......+V+^
01EEB0: 2B F5 E5 F5 EB CD DE EC F1 ED 5B F7 AD CD CD DD +.........[.....
01EEC0: E1 56 2B 5E EB CD F7 D4 3E C3 2A 38 AE CD 7C ED .V+^....>.*8..|.
01EED0: F1 EE FF ED 5B F7 AD CD CD DD ED 5B F7 AD DD 21 ....[......[...!
01EEE0: 32 AE CD AC F3 CD BF E0 CD 99 E0 C9 EB 2B 56 2B 2............+V+
01EEF0: 5E EB CD 72 E5 3E EB CD 1E CA 3A 2E AE F6 80 32 ^..r.>....:....2
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 00 02 02 09 4E E5 1A 00 C1 02 00 00 00 02 ......N.........
01EF20: 1A 00 C6 02 00 00 00 02 1A 00 C2 02 00 00 00 02 ................
01EF30: 1A 00 C7 02 00 00 00 02 1A 00 C3 02 00 00 00 02 ................
01EF40: 1A 00 C8 02 00 00 00 02 1A 00 C4 02 00 00 00 02 ................
01EF50: 1A 00 C9 02 00 00 00 02 1A 00 C5 02 00 00 00 02 ................
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 7E 05 FE 04 28 D5 FE 02 30 18 21 C9 E7 CD C8 DC ~...(...0.!.....
01F010: DD 6E 08 2D 26 00 CD 6C CA 21 CE E7 CD C8 DC DD .n.-&..l.!......
01F020: E1 C9 3E 21 CD 1E CA DD CB 06 46 20 0C CD D5 F1 ..>!......F ....
01F030: 21 D4 E7 CD C8 DC DD E1 C9 DD 6E 07 DD 66 08 CB !.........n..f..
01F040: 3C CB 1D CD 6C CA DD E1 C9 04 DD E5 E1 11 05 19 <...l...........
01F050: CB 3C CB 1D 04 CB 3C CB 1D EB 2B 56 2B 5E EB C3 .<....<...+V+^..
01F060: 72 E5 EB 2B 56 2B 5E EB CD 72 E5 21 F2 E7 CD C8 r..+V+^..r.!....
01F070: DC C9 05 29 5E 23 56 EB EB 2B 56 2B 5E EB CD 72 ...)^#V..+V+^..r
01F080: E5 21 08 E8 CD C8 DC C9 08 7C EE FF 67 7D EE FF .!.......|..g}..
01F090: 6F 3E 21 CD 1E CA 2A F7 AD 01 03 00 7D CB 3C CB o>!...*.....}.<.
01F0A0: 1D 23 23 23 E6 01 20 03 01 04 00 CD 6C CA 3E C3 .###.. .....l.>.
01F0B0: CD 1E CA CD EC E0 E5 CD E4 D5 2A F7 AD 7D E6 01 ..........*..}..
01F0C0: 28 03 CD 1E CA E1 C9 CD 11 E8 1B 1A 4F 06 00 03 (...........O...
01F0D0: 1A CD 1E CA 1B 0B 78 B1 20 F6 ED 5B F7 AD 73 23 ......x. ..[..s#
01F0E0: 72 C9 CD 11 E8 E5 EB 2B 56 2B 5E CD 77 E8 E1 ED r......+V+^.w...
01F0F0: 5B F7 AD 73 23 72 C9 EB 7C B5 C8 7E FE 36 20 10 [..s#r..|..~.6 .
01F100: 2B 56 2B 5E 2B E5 EB CD 90 E8 E1 56 2B 5E 18 E7 +V+^+......V+^..
01F110: CD 15 F0 CD 6C CA C9 CD E4 EB 21 A1 E8 CD C8 DC ....l.....!.....
01F120: C9 0B A7 ED 52 21 FF FF 28 03 21 00 00 CD E4 EB ....R!..(.!.....
01F130: 21 B7 E8 CD C8 DC C9 0B A7 ED 52 21 FF FF 20 03 !.........R!.. .
01F140: 21 00 00 D5 EB 2B 2B 2B 56 2B 5E CD 37 F0 38 0A !....+++V+^.7.8.
01F150: D1 CD E4 EB 3E 19 CD 1E CA C9 E1 D5 2B 56 2B 5E ....>.......+V+^
01F160: EB CD 72 E5 D1 21 EB E8 C3 07 F2 03 01 00 08 E9 ..r..!..........
01F170: FF FF 0E E9 00 00 13 E9 3E 11 CD 1E CA 60 69 CD ........>....`i.
01F180: 6C CA 3E 19 CD 1E CA C9 3E 23 CD 1E CA C9 3E 2B l.>.....>#....>+
01F190: CD 1E CA C9 D5 EB 2B 2B 2B 56 2B 5E CD 37 F0 38 ......+++V+^.7.8
01F1A0: 0F D1 CD E4 EB 21 2C E9 CD C8 DC C9 03 A7 ED 52 .....!,........R
01F1B0: E1 D5 2B 56 2B 5E EB CD 72 E5 D1 21 00 00 A7 ED ..+V+^..r..!....
01F1C0: 52 EB 21 EB E8 C3 07 F2 D5 EB 2B 2B 2B 56 2B 5E R.!.......+++V+^
01F1D0: CD 37 F0 38 10 D1 CD E4 EB 3E CD CD 1E CA 2A 50 .7.8.....>....*P
01F1E0: AE CD 6C CA C9 E1 D5 2B 56 2B 5E EB CD 72 E5 D1 ..l....+V+^..r..
01F1F0: 21 76 E9 C3 07 F2 0E 01 00 D8 E9 02 00 C5 E9 03 !v..............
01F200: EB 21 00 00 C9 6F 3E DD CD 1E CA 3E 74 CD 1E CA .!...o>....>t...
01F210: 7D CD 1E CA 3E DD CD 1E CA 3E 75 CD 1E CA 7D 3D }...>....>u...}=
01F220: CD 1E CA C9 DD 7E 05 FE 02 30 07 DD 7E 08 CD 85 .....~...0..~...
01F230: F1 C9 FE 08 38 09 3E 22 CD 1E CA CD D5 F1 C9 CD ....8.>"........
01F240: 3B F3 49 6E 76 61 6C 69 64 20 61 73 73 69 67 6E ;.Invalid assign
01F250: 6D 65 6E F4 C9 DD 7E 06 A7 28 0D DD 7E 07 CD 1E men...~..(..~...
01F260: CA DD 7E 08 CD 1E CA C9 DD 6E 07 DD 66 08 CD E4 ..~......n..f...
01F270: D5 C9 4F 7E A7 20 02 23 E9 B9 20 06 23 4E 23 46 ..O~. .#.. .#N#F
01F280: C5 C9 23 23 23 18 EC 7E 23 42 4B 5E 23 56 23 EB ..###..~#BK^#V#.
01F290: A7 ED 42 28 07 EB 23 23 3D 20 F0 E9 EB 5E 23 56 ..B(..##= ...^#V
01F2A0: EB E9 2A DC AD 01 09 00 09 44 4D 21 CE FF 39 A7 ..*......DM!..9.
01F2B0: ED 42 DA C5 F4 60 69 ED 4B FF AD A7 ED 42 38 33 .B...`i.K....B83
01F2C0: D5 2A FF AD ED 4B 01 AE 78 B1 28 1C 0B 09 54 5D .*...K..x.(...T]
01F2D0: 01 5A 00 09 44 4D 21 CE FF 39 A7 ED 42 38 38 60 .Z..DM!..9..B88`
01F2E0: 69 ED 4B 01 AE EB ED B8 2A FF AD 11 5A 00 19 22 i.K.....*...Z.."
01F2F0: FF AD D1 2A DC AD E5 ED 4B F9 AD 71 23 70 23 73 ...*....K..q#p#s
01F300: 23 72 23 3A FC AD 77 11 05 00 19 22 DC AD E1 22 #r#:..w...."..."
01F310: F9 AD 11 05 00 19 C9 CD 40 F4 4F 75 74 20 6F 66 ........@.Out of
01F320: 20 6D 65 6D 6F 72 79 00 2A F9 AD 7C B5 20 42 2A memory.*..|. B*
01F330: DC AD E5 D5 2A F7 AD 7D E6 01 20 0C 3E 18 CD 1E ....*..}.. .>...
01F340: CA 3E 02 CD 1E CA 18 0F 3E C3 CD 1E CA 2A F7 AD .>......>....*..
01F350: 23 23 23 23 CD 6C CA 2A F7 AD 22 05 AE 3E 00 CD ####.l.*.."..>..
01F360: 1E CA CD 1E CA D1 3E 09 CD 66 DD E1 E5 DD E1 A7 ......>..f......
01F370: C9 E5 DD E1 DD 6E 02 DD 66 03 A7 ED 52 20 33 3A .....n..f...R 3:
01F380: FC AD 47 DD 7E 04 B8 28 24 A7 28 21 CD 5B F3 44 ..G.~..($.(!.[.D
01F390: 79 6E 61 6D 69 63 20 66 72 65 65 20 76 61 72 69 ynamic free vari
01F3A0: 61 62 6C 65 20 75 73 65 64 2C A0 37 C9 DD E5 E1 able used,.7....
01F3B0: A7 C9 DD 6E 00 DD 66 01 C3 AB F2 CD 7F F3 E1 7E ...n..f........~
01F3C0: 23 CB 7F 20 05 CD 71 C9 18 F5 E6 7F CD 71 C9 E5 #.. ..q......q..
01F3D0: 2A 1B AE 23 22 1B AE CD FF F3 C9 CD 7F F3 E1 D5 *..#"...........
01F3E0: 7E 23 CB 7F 20 05 CD 71 C9 18 F5 E6 7F CD 71 C9 ~#.. ..q......q.
01F3F0: E3 CD 30 F4 2A 1B AE 23 22 1B AE CD FF F3 C9 3E ..0.*..#"......>
01F400: 00 D9 E9 04 00 C5 E9 05 00 DF E9 06 00 E5 E9 07 ................
01F410: 00 EB E9 08 00 C5 E9 09 00 F1 E9 0A 00 F7 E9 10 ................
01F420: 00 C5 E9 20 00 C5 E9 40 00 C5 E9 00 01 C5 E9 3E ... ...@.......>
01F430: 11 CD 1E CA 60 69 CD 6C CA 3E CD CD 1E CA 2A 50 ....`i.l.>....*P
01F440: AE CD 6C CA C9 3E 00 CB 38 CB 19 38 03 3C 18 F7 ..l..>..8..8.<..
01F450: 47 3E 29 CD 1E CA 10 F9 C9 21 FD E9 C3 C8 DC 21 G>)......!.....!
01F460: 02 EA C3 C8 DC 21 08 EA C3 C8 DC 21 0E EA C3 C8 .....!.....!....
01F470: DC 21 15 EA C3 C8 DC 21 1C EA C3 C8 DC 04 54 5D .!.....!......T]
01F480: 29 19 05 54 5D 29 29 19 05 54 5D 29 19 29 06 54 )..T]))..T]).).T
01F490: 5D 29 19 29 19 06 54 5D 29 29 29 19 06 29 54 5D ]).)..T])))..)T]
01F4A0: 29 29 19 CD E4 EB 3E CD CD 1E CA 2A 52 AE CD 6C ))....>....*R..l
01F4B0: CA C9 CD 6B EF 21 46 EA CD C8 DC C9 CD 5E EF 21 ...k.!F......^.!
01F4C0: 46 EA CD C8 DC C9 0B A7 ED 52 21 FF FF 38 03 21 F........R!..8.!
01F4D0: 00 00 CD 6B EF 21 66 EA CD C8 DC C9 CD 5E EF 21 ...k.!f......^.!
01F4E0: 66 EA CD C8 DC C9 0B A7 ED 52 21 FF FF 30 03 21 f........R!..0.!
01F4F0: 00 00 CD E4 EB 3E CD CD 1E CA 2A 52 AE CD 6C CA .....>....*R..l.
01F500: 3E EB CD 1E CA C9 CD C3 E8 21 F2 E7 CD C8 DC C9 >........!......
01F510: CD E4 EB 21 9A EA CD C8 DC C9 0A 7C AA EE FF 67 ...!.......|...g
01F520: 7D AB EE FF 6F CD E4 EB 21 AF EA CD C8 DC C9 06 }...o...!.......
01F530: 7C AA 67 7D AB 6F CD E4 EB 21 C0 EA CD C8 DC C9 |.g}.o...!......
01F540: 06 7C A2 67 7D A3 6F CD E4 EB 21 D1 EA CD C8 DC .|.g}£o...!.....
01F550: C9 06 7C B2 67 7D B3 6F CD E4 EB 3E CD CD 1E CA ..|.g}.o...>....
01F560: 2A 5E AE CD 6C CA C9 CD E4 EB 3E CD CD 1E CA 2A *^..l.....>....*
01F570: 60 AE CD 6C CA C9 CD AC E0 DD E5 D5 DD E1 21 00 `..l..........!.
01F580: 00 22 42 AE 22 46 AE CD EC E0 22 44 AE CD EC E0 ."B."F...."D....
01F590: 22 48 AE DD 6E FA DD 66 FB 3E 00 DD E5 CD DE EC "H..n..f.>......
01F5A0: DD 21 42 AE ED 5B F7 AD CD AC F3 DD E1 DD 6E FE .!B..[........n.
01F5B0: DD 66 FF CD 72 E5 3E C3 CD 1E CA CD EC E0 E5 CD .f..r.>.........
01F5C0: E4 D5 DD E5 DD 21 46 AE ED 5B F7 AD CD AC F3 DD .....!F..[......
01F5D0: E1 DD 6E FC DD 66 FD CD 72 E5 E1 ED 5B F7 AD 73 ..n..f..r...[..s
01F5E0: 23 72 DD E1 CD BF E0 C9 EB CD 77 EB 21 73 EB CD #r........w.!s..
01F5F0: C8 DC C9 03 6E 26 00 DD E5 E5 DD E1 06 06 21 96 ....n&........!.
01F600: 0D CD 5A BB 3E 0A CD 5A BB C9 42 4B E5 DD E1 DD ..Z.>..Z..BK....
01F610: 7E 06 A7 C0 DD 5E 07 DD 56 08 DD 71 07 DD 70 08 ~....^..V..q..p.
01F620: DD 36 06 01 EB 7C B5 C8 71 23 70 C9 DD CB 00 46 .6...|..q#p....F
01F630: C0 DD CB 00 C6 DD 6E 02 DD 66 03 DD 73 02 DD 72 ......n..f..s..r
01F640: 03 42 4B 18 E0 4F 78 32 FB AD 47 79 4F 78 91 C8 .BK..Ox2..GyOx..
01F650: FE 02 20 06 3E E1 CD 1E CA C9 FE 04 20 0B 3E E1 .. .>....... .>.
01F660: CD 1E CA 3E E1 CD 1E CA C9 6F 26 00 3E 21 CD 1E ...>.....o&.>!..
01F670: CA CD 6C CA 3E 39 CD 1E CA 3E F9 CD 1E CA C9 21 ..l.>9...>.....!
01F680: 1A F4 CD BF C9 2A 15 AE 7C B5 28 07 2B 56 2B 5E .....*..|.(.+V+^
01F690: EB 18 03 21 1B F4 CD 30 F4 C9 20 69 6E A0 67 6C ...!...0.. in.gl
01F6A0: 6F 62 61 6C 20 64 65 66 69 6E 69 74 69 6F 6E F3 obal definition.
01F6B0: 23 23 23 CD BF C9 C9 ED 7B E2 AD 21 68 F4 18 13 ###.....{..!h...
01F6C0: 3E 00 32 A3 AE E1 ED 7B E2 AD CD 7F F3 CD BF C9 >.2£...{........
01F6D0: 21 67 F4 CD BF C9 3A 76 AE FE FF CC 7A BC 3A 27 !g....:v....z.:'
01F6E0: AE A7 C8 CD 92 BC C9 2E 0D 43 6F 6D 70 69 6C 61 .........Compila
01F6F0: 74 69 6F 6E 20 61 62 61 6E 64 6F 6E 65 64 2E 00 tion abandoned..
01F700: E5 CD FF F4 7A B3 CA A7 F4 E1 E5 D5 13 13 13 1A ....z...........
01F710: BE 20 08 FE 80 30 0C 23 13 18 F4 D1 EB 23 5E 23 . ...0.#.....#^#
01F720: 56 18 E1 E1 D1 A7 C9 E3 54 5D 01 03 00 03 7E 23 V.......T]....~#
01F730: CB 7F 28 F9 2A DC AD 09 E5 21 CE FF 39 44 4D E1 ..(.*....!..9DM.
01F740: A7 ED 42 38 17 CD 40 F4 4F 75 74 20 6F 66 20 73 ..B8..@.Out of s
01F750: 79 6D 62 6F 6C 20 73 70 61 63 65 00 EB E3 ED 5B ymbol space....[
01F760: DC AD 72 2B 73 EB D1 E5 36 00 23 36 00 23 36 00 ..r+s...6.#6.#6.
01F770: 23 1A 77 23 13 FE 80 38 F8 22 DC AD E1 37 C9 0E #.w#...8."...7..
01F780: 00 7E 81 4F 7E 23 FE 80 38 F7 79 E6 0F CB 27 4F .~.O~#..8.y...'O
01F790: 06 00 21 00 AC 09 5E 23 56 C9 21 CE FF 39 ED 5B ..!...^#V.!..9.[
01F7A0: DC AD A7 ED 52 DA C5 F4 CD 37 C2 3E 00 32 F0 AD ....R....7.>.2..
01F7B0: 3A E1 AD FE 20 20 05 CD EE C7 18 F4 FE 09 28 F7 :... ........(.
01F7C0: FE 0D 20 23 CD 78 F8 2A F1 AD 23 22 F1 AD 3E FF .. #.x.*..#"..>.
01F7D0: 32 F0 AD 3A 26 AE 3D 32 26 AE CC A2 F8 CD EE C7 2..:&.=2&.......
01F7E0: FE 3E 20 CC C3 76 F6 CD AD FB 30 24 CD 76 FA 21 .> ..v....0$.v.!
01F7F0: 20 AC CD 80 F4 22 DF AD 30 07 3E 4F 77 32 DE AD ...."..0.>Ow2..
01F800: AE 5E 23 56 23 D5 10 F9 3A A2 AE F5 21 CB EB 11 .^#V#...:...!...
01F810: 96 AE 01 0D 00 ED B0 DD E5 E1 DD 21 96 AE 2B 56 ...........!..+V
01F820: 2B 5E 2B DD 72 06 DD 73 05 56 2B 5E DD 72 09 DD +^+.r..s.V+^.r..
01F830: 73 08 21 A2 AE CD 72 E5 F1 32 A2 AE 06 06 21 A2 s.!...r..2....!.
01F840: AE D1 2B 72 2B 73 10 F9 DD E1 C9 02 00 4D 98 AE ..+r+s.......M..
01F850: 00 00 39 00 00 9D AE 35 EB 2B 56 2B 5E 2B 46 2B ..9....5.+V+^+F+
01F860: 6E 60 18 0B EB 2B 46 2B 4E 2B 56 2B 5E 60 69 7E n`...+F+N+V+^`i~
01F870: FE 4D 28 32 FE 4F 28 2E 1A FE 4D 28 4D FE 4F 28 .M(2.O(...M(M.O(
01F880: 49 E5 EB 7E CD D2 EC 30 0B EB CD 84 E6 3E D5 CD I..~...0.....>..
01F890: 1E CA 18 08 CD 72 E5 3E E5 CD 1E CA E1 CD 72 E5 .....r.>......r.
01F8A0: 3E D1 CD 1E CA C9 1A FE 4D 28 1F FE 4F 28 1B E5 >.......M(..O(..
01F8B0: EB 7E CD D2 EC 30 06 EB CD 84 E6 18 08 CD 72 E5 .~...0........r.
01F8C0: 3E EB CD 1E CA E1 CD 72 E5 C9 D5 CD 72 E5 D1 CD >......r....r...
01F8D0: 53 EC C9 1A FE 4F 28 11 3E 11 CD 1E CA 1B 1B 1A S....O(.>.......
01F8E0: CD 1E CA 13 1A CD 1E CA C9 DD E5 CD A8 F2 38 18 ..............8.
01F8F0: DD 7E 05 FE 04 20 14 3E 11 CD 1E CA DD 7E 07 CD .~... .>.....~..
01F900: 1E CA DD 7E 08 CD 1E CA DD E1 C9 FE 02 30 24 3E ...~.........0$>
01F910: DD CD 1E CA 3E 56 CD 1E CA DD 7E 08 CD 1E CA 3E ....>V....~....>
01F920: DD CD 1E CA 3E 5E CD 1E CA DD 7E 08 3D CD 1E CA ....>^....~.=...
01F930: DD E1 C9 FE 04 30 0B 3E 11 CD 1E CA CD D5 F1 DD .....0.>........
01F940: E1 C9 3E ED CD 1E CA 3E 5B CD 1E CA CD D5 F1 DD ..>....>[.......
01F950: E1 C9 FE 4B 28 06 FE 4C 28 02 A7 C9 37 C9 DD E5 ...K(..L(...7...
01F960: 47 3A 23 AE F5 78 32 23 AE EB 21 F8 EC 1A CD F2 G:#..x2#..!.....
01F970: F1 F1 32 23 AE DD E1 C9 19 B1 ED 18 C2 ED 10 C9 ..2#............
01F980: ED 11 D0 ED 08 D7 ED 1F 46 EE 1B 94 EE 1A DA EE ........F.......
01F990: 20 20 EF 2E 70 EE 0C 82 EE 4D 4E EF 4F 4E EF 00 ..p....MN.ON..
01F9A0: EB CD 72 E5 21 30 ED CD C8 DC 3E CA CD 33 ED C9 ..r.!0....>..3..
01F9B0: 02 7C B5 F5 3A 23 AE A7 28 14 21 55 ED C1 7E B8 .|..:#..(.!U..~.
01F9C0: 28 04 23 23 18 F8 23 7E DD 21 42 AE 18 1B F1 DD (.##..#~.!B.....
01F9D0: 21 46 AE 18 14 C2 CA CA C2 D2 DA DA D2 C3 C3 C2 !F..............
01F9E0: 20 CA 28 D2 30 DA 38 C3 18 DD CB 00 46 20 07 CD .(.0.8.....F ..
01F9F0: 1E CA CD D2 E0 C9 DD 6E 02 DD 66 03 F5 44 4D ED .......n..f..DM.
01FA00: C9 7E 32 DE AD FE 13 CA F6 F8 FE 53 CA 8A F9 C9 .~2........S....
01FA10: CD BC FB 30 11 D6 30 6F 26 00 CD 95 FA 22 DF AD ...0..0o&...."..
01FA20: 3E 4D 32 DE AD C9 FE 23 20 7A 3E 4D 32 DE AD CD >M2....# z>M2...
01FA30: EE C7 FE 62 20 14 CD EE C7 CD 99 FB 38 52 6F 26 ...b .......8Ro&
01FA40: 00 CD BE FA 22 DF AD 3E 4D C9 FE 6F 20 14 CD EE ...."..>M..o ...
01FA50: C7 CD 99 FB 38 3A 6F 26 00 CD AA FA 22 DF AD 3E ....8:o&...."..>
01FA60: 4D C9 FE 78 20 14 CD EE C7 CD 99 FB 38 22 6F 26 M..x .......8"o&
01FA70: 00 CD D0 FA 22 DF AD 3E 4D C9 FE 30 38 12 FE 38 ...."..>M..08..8
01FA80: 30 0E D6 30 6F 26 00 CD AA FA 22 DF AD 3E 4D C9 0..0o&...."..>M.
01FA90: CD 69 C8 45 78 70 65 63 74 69 6E 67 20 6E 75 6D .i.Expecting num
01FAA0: 62 65 72 00 FE 27 20 21 CD FD C7 CD EC FA 6F 26 ber..' !......o&
01FAB0: 00 30 02 26 01 22 DF AD CD EE C7 FE 27 C2 4E F8 .0.&."......'.N.
01FAC0: CD EE C7 3E 4D 32 DE AD C9 21 D9 F8 47 7E A7 28 ...>M2...!..G~.(
01FAD0: 10 B8 20 09 23 CD EE C7 7E 32 DE AD C9 23 23 18 .. .#...~2...##.
01FAE0: EC 78 FE 2F 20 51 CD EE C7 FE 5C 20 05 3E 1B C3 .x./ Q....\ .>..
01FAF0: 38 F7 FE 2F 20 0A CD EE C7 FE 0D 20 F9 C3 30 F5 8../ ...... ..0.
01FB00: FE 2A 28 06 3E 3B 32 DE AD C9 CD EE C7 FE 1A CA .*(.>;2.........
01FB10: 78 F7 FE 0D 20 07 2A F1 AD 23 22 F1 AD FE 2A 20 x... .*..#"...*
01FB20: E9 CD EE C7 FE 1A CA 78 F7 FE 2A 28 F4 FE 2F 20 .......x..*(../
01FB30: D9 CD EE C7 C3 30 F5 FE 5C 20 19 CD EE C7 FE 2F .....0..\ ...../
01FB40: 20 04 3E 1A 18 72 FE 3D 20 04 3E 1F 18 6A 3E 20 .>..r.= .>..j>
01FB50: 32 DE AD C9 FE 3C 20 19 CD EE C7 FE 3D 20 04 3E 2....< .....= .>
01FB60: 18 18 55 FE 3C 20 04 3E 1D 18 4D 3E 19 32 DE AD ..U.< .>..M>.2..
01FB70: C9 FE 3E 20 19 CD EE C7 FE 3D 20 04 3E 10 18 38 ..> .....= .>..8
01FB80: FE 3E 20 04 3E 25 18 30 3E 11 32 DE AD C9 FE 2D .> .>%.0>.2....-
01FB90: 20 11 CD EE C7 FE 3E 20 04 3E 3C 18 1B 3E 3D 32 .....> .><..>=2
01FBA0: DE AD C9 FE 3A 20 1A CD EE C7 FE 3D 20 04 3E 3E ....: .....= .>>
01FBB0: 18 06 3E 3F 32 DE AD C9 F5 CD EE C7 F1 32 DE AD ..>?2........2..
01FBC0: C9 FE 24 20 2F CD EE C7 FE 28 20 0F 3E 24 CD 76 ..$ /....( .>$.v
01FBD0: FA 21 20 AC CD 80 F4 3E 48 18 12 FE 29 C2 3D F8 .! ....>H...).=.
01FBE0: 3E 24 CD 76 FA 21 20 AC CD 80 F4 3E 49 32 DE AD >$.v.! ....>I2..
01FBF0: 22 DF AD C9 FE 2E 20 48 3A 76 AE A7 28 3C 47 DD "..... H:v..(<G.
01FC00: 5B F7 AD A7 ED 52 11 7E 00 19 7C A7 20 19 F1 E5 [....R.~..|. ...
01FC10: 21 5F ED BE 28 04 23 23 18 F9 23 7E CD 1E CA E1 !_..(.##..#~....
01FC20: 7D C6 80 CD 1E CA C9 F1 CD 1E CA 60 69 CD 6C CA }..........`i.l.
01FC30: C9 CD 5E EF 3E D2 21 6C EE F5 CD C8 DC F1 CD 33 ..^.>.!l.......3
01FC40: ED C9 CD 6B EF 3E DA 18 ED CD 5E EF 3E DA 18 E6 ...k.>....^.>...
01FC50: CD 6B EF 3E D2 18 DF 3E C2 F5 CD 4A EE D5 DD E1 .k.>...>...J....
01FC60: D5 DD 56 FD DD 5E FC CD 37 F0 30 4F E1 EB 7C B5 ..V..^..7.0O..|.
01FC70: 20 4A EB 2B 56 2B 5E 1A FE 4F 20 31 D5 CD A8 F2 J.+V+^..O 1....
01FC80: D1 38 34 DD 7E 05 FE 02 30 23 3E DD CD 1E CA 3E .84.~...0#>....>
01FC90: 7E CD 1E CA DD 7E 08 CD 1E CA 3E DD CD 1E CA 3E ~....~....>....>
01FCA0: B6 CD 1E CA DD 7E 08 3D CD 1E CA 18 0A EB CD 72 .....~.=.......r
01FCB0: E5 21 30 ED CD C8 DC F1 C3 33 ED D1 CD E4 EB 21 .!0......3.....!
01FCC0: 6C EE F1 C3 B9 ED 3E CA 18 8F D5 EB 2B 56 2B 5E l.....>.....+V+^
01FCD0: CD 37 F0 38 03 D1 A7 C9 E1 E5 2B 56 2B 5E 2B 46 .7.8......+V+^+F
01FCE0: 72 2B 4E 73 23 23 71 23 70 D1 37 C9 03 A7 ED 52 r+Ns##q#p.7....R
01FCF0: 3A 23 AE A7 C8 3E C3 CD 1E CA DD 21 42 AE CD D2 :#...>.....!B...
01FD00: E0 C9 3A 23 AE A7 C0 3E C3 CD 1E CA DD 21 46 AE ..:#...>.....!F.
01FD10: CD D2 E0 C9 2A 42 AE E5 2A 44 AE E5 3A 23 AE F5 ....*B..*D..:#..
01FD20: 21 00 00 22 42 AE CD EC E0 22 44 AE EB 2B 56 2B !.."B...."D..+V+
01FD30: 5E E5 EB 3E 00 CD DE EC ED 5B F7 AD DD 21 42 AE ^..>.....[...!B.
01FD40: CD AC F3 D1 F1 32 23 AE E1 22 44 AE E1 22 42 AE .....2#.."D.."B.
01FD50: EB 2B 56 2B 5E EB CD DE EC C9 2A 46 AE E5 2A 48 .+V+^.....*F..*H
01FD60: AE E5 3A 23 AE F5 21 00 00 22 46 AE CD EC E0 22 ..:#..!.."F...."
01FD70: 48 AE EB 2B 56 2B 5E E5 EB 3E FF CD DE EC ED 5B H..+V+^..>.....[
01FD80: F7 AD DD 21 46 AE CD AC F3 D1 F1 32 23 AE E1 22 ...!F......2#.."
01FD90: 48 AE E1 22 46 AE EB 2B 56 2B 5E EB CD DE EC C9 H.."F..+V+^.....
01FDA0: CD 31 EF 3A 23 AE EE FF EB 2B 56 2B 5E EB CD DE .1.:#....+V+^...
01FDB0: EC 2A 42 AE ED 4B 46 AE ED 43 42 AE 22 46 AE 2A .*B..KF..CB."F.*
01FDC0: 44 AE ED 4B 48 AE ED 43 44 AE 22 48 AE C9 D5 CD D..KH..CD."H....
01FDD0: 37 F0 E1 D2 21 ED 7A B3 CA 82 EE C3 70 EE EB 2B 7...!.z.....p..+
01FDE0: 46 2B 4E 2B 56 2B 5E 60 69 18 0A EB 2B 56 2B 5E F+N+V+^`i...+V+^
01FDF0: 2B 46 2B 6E 60 D5 E5 CD 37 F0 38 1C D1 D5 CD 37 +F+n`...7.8....7
01FE00: E5 DD 2A 79 AE 11 FA FF DD 19 DD 22 79 AE DD 7E ..*y......."y..~
01FE10: 00 32 76 AE DD 7E 01 32 E1 AD DD 6E 02 DD 66 03 .2v..~.2...n..f.
01FE20: 22 77 AE DD 6E 04 DD 66 05 22 F1 AD DD E1 78 FE "w..n..f."....x.
01FE30: FF C2 30 F5 CD 7A BC C3 30 F5 3E 40 32 DE AD C9 ..0..z..0.>@2...
01FE40: FE 1A 28 B4 FE 3D 20 1B CD EE C7 FE 3E 20 05 3E ..(..= .....> .>
01FE50: 10 C3 38 F7 FE 3C 20 05 3E 18 C3 38 F7 3E 08 32 ..8..< .>..8.>.2
01FE60: DE AD C9 FE 22 20 3D 21 86 AC 0E 00 CD FD C7 FE ...." =!........
01FE70: 22 20 09 21 86 AC 71 3E 4E C3 38 F7 CD EC FA 30 " .!..q>N.8....0
01FE80: 05 CD 0B F8 3E 0A CD 0B F8 18 E1 23 0C 77 79 A7 ....>......#.wy.
01FE90: C0 CD 69 C8 53 74 72 69 6E 67 20 74 6F 6F 20 6C ..i.String too l
01FEA0: 6F 6E 67 00 FE 7E 20 10 CD EE C7 FE 3D 3E 1F CA ong..~ .....=>..
01FEB0: 38 F7 3E 20 32 DE AD C9 3E 20 32 E1 AD CD 69 C8 8.> 2...> 2...i.
01FEC0: 42 61 64 20 63 68 61 72 61 63 74 65 72 00 CD 69 Bad character..i
01FED0: C8 42 61 64 20 63 68 61 72 61 63 74 65 72 20 63 .Bad character c
01FEE0: 6F 6E 73 74 61 6E 74 00 3C 57 3D 34 64 5E 56 34 onstant.<W=4d^V4
01FEF0: 45 4D 4C 4A 00 1B 2D 36 3A 75 F8 CD 1E BB C8 3A EMLJ..-6:u.....:
01FF00: 76 F8 CD 1E BB C8 3A 77 F8 CD 1E BB C8 CD 7F F3 v.....:w........
01FF10: CD 7F F3 21 68 F8 7E A7 28 FE D6 14 CD 71 C9 23 ...!h.~.(....q.#
01FF20: 18 F4 3E 05 32 26 AE CD 09 BB D0 FE EF 28 F8 CD ..>.2&.......(..
01FF30: D3 F8 C0 CD 7B BB CD 06 BB FE EF 28 F9 F5 CD 7E ....{......(...~
01FF40: BB F1 CD D3 F8 C0 CD 40 F4 42 72 6F 6B 65 6E 20 .......@.Broken
01FF50: 69 6E 00 FE FC C8 FE 03 C9 2B 35 2C 36 3B 37 40 in.......+5,6;7@
01FF60: 17 26 1B 7C 1A 21 38 2A 39 28 41 29 42 5B 41 5D .&.|.!8*9(A)B[A]
01FF70: 42 25 51 3F 52 00 3A 76 AE FE FF 28 15 3A E1 AD B%Q?R.:v...(.:..
01FF80: 18 03 CD EE C7 FE 20 28 F9 FE 22 20 10 CD E7 F7 ...... (.." ....
01FF90: 18 10 CD 69 C8 42 61 64 20 47 45 54 00 3E 00 32 ...i.Bad GET.>.2
01FFA0: 86 AC DD E5 DD 2A 79 AE 3A 76 AE DD 77 00 3A E1 .....*y.:v..w.:.
01FFB0: AD DD 77 01 2A 77 AE DD 75 02 DD 74 03 2A F1 AD ..w.*w..u..t.*..
01FFC0: DD 75 04 DD 74 05 11 06 00 DD 19 DD 22 79 AE DD .u..t......."y..
01FFD0: E1 21 00 00 22 F1 AD 3A 86 AC A7 28 13 21 86 AC .!.."..:...(.!..
01FFE0: CD 75 CA 3E FF 32 76 AE 3E 0D 32 E1 AD C3 30 F5 .u.>.2v.>.2...0.
01FFF0: 3A 76 AE FE 00 20 9B 3E 01 32 76 AE 2A 94 AE 22 :v... .>.2v.*.."
020000: F0 38 58 E1 D1 CD EF EB 21 8F EF CD C8 DC C9 08 .8X.....!.......
020010: 7C EE 80 67 7A EE 80 57 E1 C1 D5 E5 EB CD 37 F0 |..gz..W......7.
020020: 38 1D E1 CD 72 E5 21 BA EF CD C8 DC 3E 11 CD 1E 8...r.!.....>...
020030: CA E1 7C EE 80 67 CD 6C CA C9 04 7C EE 80 67 3E ..|..g.l...|..g>
020040: 21 CD 1E CA 7A EE 80 67 6B CD 6C CA 3E 11 CD 1E !...z..gk.l.>...
020050: CA E1 E1 7C EE 80 67 CD 6C CA C9 E1 E1 D5 7E FE ...|..g.l.....~.
020060: 4F 28 15 CD D2 EC 30 06 EB CD 84 E6 18 0E CD 72 O(....0........r
020070: E5 3E EB CD 1E CA 18 04 EB CD 53 EC 21 10 F0 CD .>........S.!...
020080: C8 DC 3E 21 CD 1E CA E1 7C EE 80 67 CD 6C CA C9 ..>!....|..g.l..
020090: 04 7A EE 80 57 EB CD 37 F0 EB D8 CD 3B F3 4E 65 .z..W..7....;.Ne
0200A0: 65 64 20 63 6F 6E 73 74 61 6E 74 20 65 78 70 72 ed constant expr
0200B0: 65 73 73 69 6F EE C9 1A 21 3E F0 C3 F2 F1 4F 68 essio...!>....Oh
0200C0: F0 4D 88 F0 35 A4 F0 3D AC F0 39 B6 F0 3B C0 F0 .M..5..=..9..;..
0200D0: 24 CA F0 1B D5 F0 1A E1 F0 1D 0A F1 25 F7 F0 2E $...........%...
0200E0: ED F0 0C F2 F0 00 A7 C9 DD E5 CD A8 F2 38 15 DD .............8..
0200F0: 7E 05 FE 04 28 04 DD E1 A7 C9 DD 5E 07 DD 56 08 ~...(......^..V.
020100: DD E1 37 C9 DD E1 A7 C9 EB 2B 56 2B 5E 37 C9 EB ..7......+V+^7..
020110: 2B 56 2B 5E E5 CD 37 F0 E1 D0 D5 2B 56 2B 5E CD +V+^..7....+V+^.
020120: 37 F0 E1 C9 CD 8F F0 D0 19 EB 37 C9 CD 8F F0 D0 7.........7.....
020130: A7 ED 52 EB 37 C9 CD 8F F0 D0 CD 1D F1 EB 37 C9 ..R.7.........7.
020140: CD 8F F0 D0 CD 39 F1 EB 37 C9 CD 8F F0 D0 CD 39 .....9..7......9
020150: F1 60 69 37 C9 CD 8F F0 D0 7C A2 57 7D A3 5F 37 .`i7.....|.W}£_7
020160: C9 CD 8F F0 D0 7C B2 57 7D B3 5F 37 C9 11 FF FF .....|.W}._7....
020170: 37 C9 11 00 00 37 C9 CD 8F F0 D0 7A B3 28 07 CB 7....7.....z.(..
020180: 3C CB 1D 1B 18 F5 54 5D 37 C9 CD 8F F0 D0 7A B3 <.....T]7.....z.
020190: 28 07 CB 25 CB 14 1B 18 F5 54 5D 37 C9 CD 63 F1 (..%.....T]7..c.
0201A0: F5 78 06 10 29 CB 11 17 30 01 19 10 F7 F1 CB 7F .x..)...0.......
0201B0: C8 EB 21 00 00 A7 ED 52 C9 CD 63 F1 F5 3E 10 CB ..!....R..c..>..
0201C0: 21 CB 10 CB 15 CB 14 A7 ED 52 38 03 03 18 01 19 !........R8.....
0201D0: 3D 20 EC 50 59 EB F1 A7 C8 7C EE FF 67 7D EE FF = .PY....|..g}..
0201E0: 6F 23 C9 44 4D 21 00 00 3E 00 CB 78 28 0A A7 ED o#.DM!..>..x(...
0201F0: 42 44 4D 21 00 00 3E 80 CB 7A C8 EE 80 A7 ED 52 BDM!..>..z.....R
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 00 02 02 09 4E E5 1B 00 C1 02 00 00 00 02 ......N.........
020220: 1B 00 C6 02 00 00 00 02 1B 00 C2 02 00 00 00 02 ................
020230: 1B 00 C7 02 00 00 00 02 1B 00 C3 02 00 00 00 02 ................
020240: 1B 00 C8 02 00 00 00 02 1B 00 C4 02 00 00 00 02 ................
020250: 1B 00 C9 02 00 00 00 02 1B 00 C5 02 00 00 00 02 ................
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 77 AE 3E 0D 32 E1 AD C3 30 F5 CD 6E FA 18 03 CD w.>.2...0..n....
020310: 6B FA 21 1D AE FE 6C CA 25 FA 21 A4 AE FE 62 20 k.!...l.%.!...b
020320: 44 CD 6B FA FE 2B 28 0D FE 2D C2 31 FA 3E 00 32 D.k..+(..-.1.>.2
020330: A4 AE C3 4C FA 3E FF 32 A4 AE CD 6B FA FE 2C CA ...L.>.2...k..,.
020340: 4F FA FE 3B CA 4F FA FE 0D CA 4F FA FE 1A CA 4F O..;.O....O....O
020350: FA CD 1A F5 FE 4D C2 31 FA 3A DF AD 32 A5 AE CD .....M.1.:..2...
020360: 6E FA C3 4F FA 21 A6 AE FE 73 28 39 FE 6F 20 1A n..O.!...s(9.o .
020370: 3E 20 32 E1 AD CD 1A F5 FE 4D 20 35 2A DF AD 22 > 2......M 5*.."
020380: EE AD 22 74 AE CD 6E FA 18 45 FE 68 20 23 3E 20 .."t..n..E.h #>
020390: 32 E1 AD CD 1A F5 FE 4D 20 17 2A DF AD CD A8 C4 2......M .*.....
0203A0: CD 6E FA 18 2A E5 CD 6B FA FE 2B 28 17 FE 2D 28 .n..*..k..+(..-(
0203B0: 17 CD 69 C8 42 61 64 20 6F 70 74 69 6F 6E 20 6C ..i.Bad option l
0203C0: 69 6E 65 00 3E FF 18 02 3E 00 E1 77 CD 6B FA FE ine.>...>..w.k..
0203D0: 3B CA 65 FA FE 0D CA 1A F5 FE 1A CA 1A F5 FE 2C ;.e............,
0203E0: CA 8F F9 18 CC CD EE C7 C3 1A F5 CD EE C7 3A E1 ..............:.
0203F0: AD FE 20 28 F6 C9 21 20 AC 77 23 CD EE C7 CD B8 .. (..! .w#.....
020400: FB 38 08 FE 2E 28 04 FE 5F 20 04 77 23 18 EC 2B .8...(.._ .w#..+
020410: 7E F6 80 77 C9 CD EE C7 CD BC FB D0 29 5D 54 29 ~..w........)]T)
020420: 29 19 D6 30 5F 16 00 19 18 EB CD EE C7 FE 30 D8 )..0_.........0.
020430: FE 38 D0 29 29 29 D6 30 5F 16 00 19 18 EC CD EE .8.))).0_.......
020440: C7 FE 30 D8 FE 32 D0 29 D6 30 5F 16 00 19 18 EE ..0..2.).0_.....
020450: CD EE C7 CD BC FB 38 08 FE 61 D8 FE 67 D0 D6 27 ......8..a..g..'
020460: D6 30 29 29 29 29 5F 16 00 19 18 E4 FE 0D CA 4E .0))))_........N
020470: F8 FE 2A 37 3F C0 E5 D5 CD FD C7 21 75 FB 5F 7E ..*7?......!u._~
020480: 23 BB 28 29 A7 20 F8 7B FE 78 CA 57 FB FE 58 CA #.(). .{.x.W..X.
020490: 57 FB 5F 21 7A FB 7E A7 CA 4E F8 BB 28 04 23 23 W._!z.~..N..(.##
0204A0: 18 F4 23 7E A7 20 03 3E 0D 37 D1 E1 C9 7B FE 0D ..#~. .>.7...{..
0204B0: 20 07 2A F1 AD 23 22 F1 AD CD FD C7 FE 2A 28 0F .*..#"......*(.
0204C0: 21 75 FB 5F 7E 23 A7 CA 4E F8 BB 28 E0 18 F5 D1 !u._~#..N..(....
0204D0: E1 CD FD C7 C3 EC FA CD EE C7 CD 99 FB DA 4E F8 ..............N.
0204E0: 87 87 87 87 F5 CD EE C7 CD 99 FB DA 4E F8 47 F1 ............N.G.
0204F0: B0 D1 E1 A7 C9 20 09 0D 0A 00 27 27 2A 2A 22 22 ..... ....''**""
020500: 2F 2F 20 41 4C 49 42 48 44 52 20 20 20 73 74 61 // ALIBHDR sta
020510: 6E 64 61 72 64 20 41 4D 53 44 4F 53 20 6C 69 62 ndard AMSDOS lib
020520: 72 61 72 79 20 68 65 61 64 65 72 2C 20 6C 61 73 rary header, las
020530: 74 20 6D 6F 64 69 66 69 65 64 20 31 32 2F 31 31 t modified 12/11
020540: 2F 31 39 38 36 0D 0A 0D 0A 0D 0A 4D 41 4E 49 46 /1986......MANIF
020550: 45 53 54 20 24 28 20 62 79 74 65 73 70 65 72 77 EST $( bytesperw
020560: 6F 72 64 20 3D 20 32 20 3B 20 62 69 74 73 70 65 ord = 2 ; bitspe
020570: 72 77 6F 72 64 20 3D 20 31 36 0D 0A 20 20 20 20 rword = 16..
020580: 20 20 20 20 20 20 20 20 73 6F 66 74 65 6F 66 63 softeofc
020590: 68 20 3D 20 32 36 20 20 20 3B 20 65 6E 64 73 74 h = 26 ; endst
0205A0: 72 65 61 6D 63 68 20 3D 20 2D 31 0D 0A 20 20 20 reamch = -1..
0205B0: 20 20 20 20 20 20 20 20 20 76 64 75 73 74 72 65 vdustre
0205C0: 61 6D 20 3D 20 30 20 20 20 20 3B 20 70 72 69 6E am = 0 ; prin
0205D0: 74 73 74 72 65 61 6D 20 3D 20 31 0D 0A 20 20 20 tstream = 1..
0205E0: 20 20 20 20 20 20 20 20 20 6D 61 78 69 6E 74 20 maxint
0205F0: 3D 20 33 32 37 36 37 20 20 20 3B 20 6D 69 6E 69 = 32767 ; mini
020600: 6E 74 20 3D 20 2D 33 32 37 36 38 0D 0A 20 20 20 nt = -32768..
020610: 20 20 20 20 20 20 20 20 20 6E 65 77 6C 69 6E 65 newline
020620: 63 68 20 3D 20 32 36 39 20 20 3B 20 74 69 63 6B ch = 269 ; tick
020630: 73 70 65 72 73 65 63 20 3D 20 33 30 30 0D 0A 20 spersec = 300..
020640: 20 20 20 20 20 20 20 20 24 29 0D 0A 0D 0A 53 54 $)....ST
020650: 41 54 49 43 20 20 20 24 28 20 72 65 61 64 73 74 ATIC $( readst
020660: 72 65 61 6D 20 3D 20 30 20 3B 20 77 72 69 74 65 ream = 0 ; write
020670: 73 74 72 65 61 6D 20 3D 20 30 0D 0A 20 20 20 20 stream = 0..
020680: 20 20 20 20 20 20 20 20 72 65 74 75 72 6E 65 64 returned
020690: 20 3D 20 30 20 20 20 3B 20 6C 61 73 74 63 68 61 = 0 ; lastcha
0206A0: 72 20 3D 20 30 0D 0A 20 20 20 20 20 20 20 20 20 r = 0..
0206B0: 24 29 0D 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 4F 55 $)....../**** OU
0206C0: 54 50 55 54 20 52 4F 55 54 49 4E 45 53 20 2A 2A TPUT ROUTINES **
0206D0: 2A 2A 2F 0D 0A 0D 0A 4C 45 54 20 77 72 63 68 28 **/....LET wrch(
0206E0: 63 68 61 72 29 20 42 45 0D 0A 24 28 0D 0A 20 20 char) BE..$(..
0206F0: 53 57 49 54 43 48 4F 4E 20 77 72 69 74 65 73 74 SWITCHON writest
020700: 4E 00 6E 00 54 09 74 09 53 20 73 20 42 08 62 08 N.n.T.t.S s B.b.
020710: 50 0C 70 0C 43 0D 63 0D 00 CD BC FB 38 0B FE 61 P.p.C.c.....8..a
020720: D8 FE 67 38 02 37 C9 D6 27 D6 30 A7 C9 FE 61 38 ..g8.7..'.0...a8
020730: 05 FE 7B D0 37 C9 A7 C9 CD AD FB D8 FE 30 38 05 ..{.7........08.
020740: FE 3A D0 37 C9 A7 C9 61 6E 64 81 62 65 82 62 72 .:.7...and.be.br
020750: 65 61 6B 83 62 79 84 63 61 73 65 85 64 6F 86 64 eak.by.case.do.d
020760: 65 66 61 75 6C 74 87 65 71 88 65 71 76 89 65 6C efault.eq.eqv.el
020770: 73 65 8A 65 6E 64 63 61 73 65 8B 66 61 6C 73 65 se.endcase.false
020780: 8C 66 6F 72 8D 66 69 6E 69 73 68 8E 67 6F 74 6F .for.finish.goto
020790: 8F 67 65 90 67 72 91 67 6C 6F 62 61 6C 92 67 65 .ge.gr.global.ge
0207A0: 74 93 67 74 91 69 66 94 69 6E 74 6F 95 69 6E 6C t.gt.if.into.inl
0207B0: 69 6E 65 D0 6C 65 74 96 6C 76 97 6C 65 98 6C 73 ine.let.lv.le.ls
0207C0: 99 6C 74 99 6C 6F 67 6F 72 9A 6C 6F 67 61 6E 64 .lt.logor.logand
0207D0: 9B 6C 6F 6F 70 9C 6C 73 68 69 66 74 9D 6D 61 6E .loop.lshift.man
0207E0: 69 66 65 73 74 9E 6E 65 9F 6E 6F 74 A0 6E 65 71 ifest.ne.not.neq
0207F0: 76 A1 6F 72 8A 72 65 73 75 6C 74 69 73 A2 72 65 v.or.resultis.re
020800: 74 75 72 6E A3 72 65 6D A4 72 73 68 69 66 74 A5 turn£rem.rshift.
020810: 72 76 A6 72 65 70 65 61 74 A7 72 65 70 65 61 74 rv.repeat.repeat
020820: 77 68 69 6C 65 A8 72 65 70 65 61 74 75 6E 74 69 while.repeatunti
020830: 6C A9 73 77 69 74 63 68 6F 6E AA 73 74 61 74 69 l.switchon.stati
020840: 63 AB 74 6F AC 74 65 73 74 AD 74 72 75 65 AE 74 c.to.test.true.t
020850: 68 65 6E 86 74 61 62 6C 65 AF 75 6E 74 69 6C B0 hen.table.until.
020860: 75 6E 6C 65 73 73 B1 76 65 63 B2 76 61 6C 6F 66 unless.vec.valof
020870: B3 77 68 69 6C 65 B4 6F 70 74 69 6F 6E D3 61 62 .while.option.ab
020880: 73 E0 00 23 AE A7 C0 3E C3 CD 1E CA DD 21 46 AE s..#...>.....!F.
020890: CD D2 E0 C9 2A 42 AE E5 2A 44 AE E5 3A 23 AE F5 ....*B..*D..:#..
0208A0: 21 00 00 22 42 AE CD EC E0 22 44 AE EB 2B 56 2B !.."B...."D..+V+
0208B0: 5E E5 EB 3E 00 CD DE EC ED 5B F7 AD DD 21 42 AE ^..>.....[...!B.
0208C0: CD AC F3 D1 F1 32 23 AE E1 22 44 AE E1 22 42 AE .....2#.."D.."B.
0208D0: EB 2B 56 2B 5E EB CD DE EC C9 2A 46 AE E5 2A 48 .+V+^.....*F..*H
0208E0: AE E5 3A 23 AE F5 21 00 00 22 46 AE CD EC E0 22 ..:#..!.."F...."
0208F0: 48 AE EB 2B 56 2B 5E E5 EB 3E FF CD DE EC ED 5B H..+V+^..>.....[
020900: 72 65 61 6D 20 49 4E 54 4F 0D 0A 20 20 24 28 0D ream INTO.. $(.
020910: 0A 20 20 20 20 20 43 41 53 45 20 76 64 75 73 74 . CASE vdust
020920: 72 65 61 6D 20 20 20 3A 20 20 77 72 76 64 75 28 ream : wrvdu(
020930: 63 68 61 72 29 20 3B 20 45 4E 44 43 41 53 45 0D char) ; ENDCASE.
020940: 0A 20 20 20 20 20 43 41 53 45 20 70 72 69 6E 74 . CASE print
020950: 73 74 72 65 61 6D 20 3A 20 20 70 72 63 68 28 63 stream : prch(c
020960: 68 61 72 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A har) ; ENDCASE..
020970: 20 20 20 20 20 44 45 46 41 55 4C 54 20 20 20 20 DEFAULT
020980: 20 20 20 20 20 20 3A 20 20 77 72 69 74 65 63 68 : writech
020990: 28 63 68 61 72 29 0D 0A 20 20 24 29 0D 0A 24 29 (char).. $)..$)
0209A0: 0D 0A 0D 0A 41 4E 44 20 77 72 69 74 65 66 28 73 ....AND writef(s
0209B0: 74 72 69 6E 67 2C 61 2C 62 2C 63 2C 64 2C 65 2C tring,a,b,c,d,e,
0209C0: 66 2C 67 2C 68 2C 69 2C 6A 2C 6B 29 20 42 45 0D f,g,h,i,j,k) BE.
0209D0: 0A 24 28 0D 0A 20 20 4C 45 54 20 70 70 74 72 20 .$(.. LET pptr
0209E0: 3D 20 40 61 0D 0A 20 20 46 4F 52 20 63 70 74 72 = @a.. FOR cptr
0209F0: 20 3D 20 31 20 54 4F 20 73 74 72 69 6E 67 25 30 = 1 TO string%0
020A00: 20 44 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 20 4C DO.. $(.. L
020A10: 45 54 20 6B 20 3D 20 73 74 72 69 6E 67 25 63 70 ET k = string%cp
020A20: 74 72 0D 0A 20 20 20 20 54 45 53 54 20 6B 20 3D tr.. TEST k =
020A30: 20 27 25 27 20 54 48 45 4E 0D 0A 20 20 20 20 24 '%' THEN.. $
020A40: 28 0D 0A 20 20 20 20 20 20 4C 45 54 20 61 72 67 (.. LET arg
020A50: 20 3D 20 21 70 70 74 72 0D 0A 20 20 20 20 20 20 = !pptr..
020A60: 63 70 74 72 20 3A 3D 20 63 70 74 72 20 2B 20 31 cptr := cptr + 1
020A70: 0D 0A 20 20 20 20 20 20 24 28 0D 0A 20 20 20 20 .. $(..
020A80: 20 20 20 20 4C 45 54 20 63 68 2C 20 73 69 7A 65 LET ch, size
020A90: 20 3D 20 73 74 72 69 6E 67 25 63 70 74 72 2C 20 = string%cptr,
020AA0: 64 65 63 76 61 6C 28 73 74 72 69 6E 67 25 28 63 decval(string%(c
020AB0: 70 74 72 2B 31 29 29 0D 0A 20 20 20 20 20 20 20 ptr+1))..
020AC0: 20 70 70 74 72 20 3A 3D 20 70 70 74 72 20 2B 20 pptr := pptr +
020AD0: 31 0D 0A 20 20 20 20 20 20 20 20 63 70 74 72 20 1.. cptr
020AE0: 3A 3D 20 63 70 74 72 20 2B 20 56 41 4C 4F 46 0D := cptr + VALOF.
020AF0: 0A 20 20 20 20 20 20 20 20 53 57 49 54 43 48 4F . SWITCHO
020B00: 1A E0 00 23 AE A7 C0 3E C3 CD 1E CA DD 21 46 AE ...#...>.....!F.
020B10: CD D2 E0 C9 2A 42 AE E5 2A 44 AE E5 3A 23 AE F5 ....*B..*D..:#..
020B20: 21 00 00 22 42 AE CD EC E0 22 44 AE EB 2B 56 2B !.."B...."D..+V+
020B30: 5E E5 EB 3E 00 CD DE EC ED 5B F7 AD DD 21 42 AE ^..>.....[...!B.
020B40: CD AC F3 D1 F1 32 23 AE E1 22 44 AE E1 22 42 AE .....2#.."D.."B.
020B50: EB 2B 56 2B 5E EB CD DE EC C9 2A 46 AE E5 2A 48 .+V+^.....*F..*H
020B60: AE E5 3A 23 AE F5 21 00 00 22 46 AE CD EC E0 22 ..:#..!.."F...."
020B70: 48 AE EB 2B 56 2B 5E E5 EB 3E FF CD DE EC ED 5B H..+V+^..>.....[
020B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020D00: 4E 20 75 70 70 65 72 63 61 73 65 28 63 68 29 20 N uppercase(ch)
020D10: 49 4E 54 4F 0D 0A 20 20 20 20 20 20 20 20 24 28 INTO.. $(
020D20: 0D 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 .. CASE
020D30: 20 27 53 27 3A 20 77 72 69 74 65 73 28 61 72 67 'S': writes(arg
020D40: 29 20 20 20 3B 20 52 45 53 55 4C 54 49 53 20 30 ) ; RESULTIS 0
020D50: 0D 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 .. CASE
020D60: 20 27 43 27 3A 20 77 72 63 68 28 61 72 67 29 20 'C': wrch(arg)
020D70: 20 20 20 20 3B 20 52 45 53 55 4C 54 49 53 20 30 ; RESULTIS 0
020D80: 0D 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 .. CASE
020D90: 20 27 4E 27 3A 20 77 72 69 74 65 64 28 61 72 67 'N': writed(arg
020DA0: 2C 30 29 20 3B 20 52 45 53 55 4C 54 49 53 20 30 ,0) ; RESULTIS 0
020DB0: 0D 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 .. CASE
020DC0: 20 27 4F 27 3A 20 77 72 69 74 65 6F 63 74 28 61 'O': writeoct(a
020DD0: 72 67 2C 73 69 7A 65 29 20 3B 20 52 45 53 55 4C rg,size) ; RESUL
020DE0: 54 49 53 20 31 0D 0A 20 20 20 20 20 20 20 20 20 TIS 1..
020DF0: 20 43 41 53 45 20 27 58 27 3A 20 77 72 69 74 65 CASE 'X': write
020E00: 68 65 78 28 61 72 67 2C 73 69 7A 65 29 20 3B 20 hex(arg,size) ;
020E10: 52 45 53 55 4C 54 49 53 20 31 0D 0A 20 20 20 20 RESULTIS 1..
020E20: 20 20 20 20 20 20 43 41 53 45 20 27 49 27 3A 20 CASE 'I':
020E30: 77 72 69 74 65 64 28 61 72 67 2C 73 69 7A 65 29 writed(arg,size)
020E40: 20 20 20 3B 20 52 45 53 55 4C 54 49 53 20 31 0D ; RESULTIS 1.
020E50: 0A 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 . CASE
020E60: 27 24 27 3A 20 52 45 53 55 4C 54 49 53 20 30 0D '$': RESULTIS 0.
020E70: 0A 20 20 20 20 20 20 20 20 20 20 44 45 46 41 55 . DEFAU
020E80: 4C 54 20 3A 20 77 72 63 68 28 63 68 29 20 3B 20 LT : wrch(ch) ;
020E90: 70 70 74 72 20 3A 3D 20 70 70 74 72 20 2D 20 31 pptr := pptr - 1
020EA0: 20 20 20 3B 20 52 45 53 55 4C 54 49 53 20 30 0D ; RESULTIS 0.
020EB0: 0A 20 20 20 20 20 20 20 20 24 29 0D 0A 20 20 20 . $)..
020EC0: 20 20 20 24 29 0D 0A 20 20 20 20 24 29 0D 0A 20 $).. $)..
020ED0: 20 20 20 45 4C 53 45 20 77 72 63 68 28 6B 29 0D ELSE wrch(k).
020EE0: 0A 20 20 24 29 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 . $)..$)....AND
020EF0: 20 77 72 69 74 65 73 28 73 29 20 42 45 20 46 4F writes(s) BE FO
020F00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020F10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020F20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020F30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020F40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020F50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020F60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020F70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 ................
020F80: 77 73 63 72 65 65 6E 20 3A 3D 20 54 52 55 45 20 wscreen := TRUE
020F90: 3B 20 64 65 6C 65 74 65 6C 28 69 6E 62 75 66 66 ; deletel(inbuff
020FA0: 29 20 3B 20 45 4E 44 43 41 53 45 0D 0A 20 20 20 ) ; ENDCASE..
020FB0: 20 20 20 43 41 53 45 20 31 33 3A 20 6E 65 77 73 CASE 13: news
020FC0: 63 72 65 65 6E 20 3A 3D 20 54 52 55 45 20 3B 20 creen := TRUE ;
020FD0: 61 64 64 6C 28 69 6E 62 75 66 66 29 20 3B 20 45 addl(inbuff) ; E
020FE0: 4E 44 43 41 53 45 0D 0A 20 20 20 20 20 20 43 41 NDCASE.. CA
020FF0: 53 45 20 63 75 72 73 75 70 3A 20 43 41 53 45 20 SE cursup: CASE
021000: 73 63 75 72 73 75 70 3A 20 75 70 63 75 72 73 28 scursup: upcurs(
021010: 69 6E 62 75 66 66 29 20 3B 20 45 4E 44 43 41 53 inbuff) ; ENDCAS
021020: 45 0D 0A 20 20 20 20 20 20 43 41 53 45 20 63 75 E.. CASE cu
021030: 72 73 64 6F 77 6E 3A 20 43 41 53 45 20 73 63 75 rsdown: CASE scu
021040: 72 73 64 6F 77 6E 3A 20 64 6F 77 6E 63 75 72 73 rsdown: downcurs
021050: 28 69 6E 62 75 66 66 29 20 3B 20 45 4E 44 43 41 (inbuff) ; ENDCA
021060: 53 45 0D 0A 20 20 20 20 20 20 43 41 53 45 20 63 SE.. CASE c
021070: 63 75 72 73 75 70 3A 20 73 75 70 63 75 72 73 28 cursup: supcurs(
021080: 69 6E 62 75 66 66 29 20 3B 20 45 4E 44 43 41 53 inbuff) ; ENDCAS
021090: 45 0D 0A 20 20 20 20 20 20 43 41 53 45 20 63 63 E.. CASE cc
0210A0: 75 72 73 64 6F 77 6E 3A 20 73 64 6F 77 6E 63 75 ursdown: sdowncu
0210B0: 72 73 28 69 6E 62 75 66 66 29 20 3B 20 45 4E 44 rs(inbuff) ; END
0210C0: 43 41 53 45 0D 0A 20 20 20 20 20 20 43 41 53 45 CASE.. CASE
0210D0: 20 63 6F 70 65 6E 73 71 3A 20 74 6F 70 28 69 6E copensq: top(in
0210E0: 62 75 66 66 29 20 3B 20 45 4E 44 43 41 53 45 0D buff) ; ENDCASE.
0210F0: 0A 20 20 20 20 20 20 43 41 53 45 20 63 63 6C 6F . CASE cclo
021100: 52 20 63 20 3D 20 31 20 54 4F 20 73 25 30 20 77 R c = 1 TO s%0 w
021110: 72 63 68 28 73 25 63 29 0D 0A 0D 0A 41 4E 44 20 rch(s%c)....AND
021120: 77 72 69 74 65 64 28 6E 75 6D 2C 64 29 20 42 45 writed(num,d) BE
021130: 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 74 65 6D 70 ..$(.. LET temp
021140: 20 3D 20 56 45 43 20 32 30 0D 0A 20 20 41 4E 44 = VEC 20.. AND
021150: 20 70 74 72 2C 20 6E 20 3D 20 30 2C 20 6E 75 6D ptr, n = 0, num
021160: 0D 0A 20 20 49 46 20 6E 75 6D 3C 30 20 54 48 45 .. IF num<0 THE
021170: 4E 20 64 2C 20 6E 20 3A 3D 20 64 2D 31 2C 20 2D N d, n := d-1, -
021180: 6E 0D 0A 20 20 74 65 6D 70 21 70 74 72 2C 20 6E n.. temp!ptr, n
021190: 2C 20 70 74 72 20 3A 3D 20 6E 20 52 45 4D 20 31 , ptr := n REM 1
0211A0: 30 2C 20 6E 2F 31 30 2C 20 70 74 72 2B 31 20 52 0, n/10, ptr+1 R
0211B0: 45 50 45 41 54 55 4E 54 49 4C 20 6E 20 3D 20 30 EPEATUNTIL n = 0
0211C0: 0D 0A 20 20 46 4F 52 20 6A 20 3D 20 70 74 72 2B .. FOR j = ptr+
0211D0: 31 20 54 4F 20 64 20 44 4F 20 77 72 63 68 28 27 1 TO d DO wrch('
0211E0: 20 27 29 0D 0A 20 20 49 46 20 6E 75 6D 3C 30 20 ').. IF num<0
0211F0: 54 48 45 4E 20 77 72 63 68 28 27 2D 27 29 0D 0A THEN wrch('-')..
021200: 20 20 46 4F 52 20 6A 20 3D 20 70 74 72 2D 31 20 FOR j = ptr-1
021210: 54 4F 20 30 20 42 59 20 2D 31 20 44 4F 20 77 72 TO 0 BY -1 DO wr
021220: 63 68 28 74 65 6D 70 21 6A 2B 27 30 27 29 0D 0A ch(temp!j+'0')..
021230: 24 29 0D 0A 0D 0A 41 4E 44 20 77 72 69 74 65 6E $)....AND writen
021240: 28 6E 29 20 42 45 20 77 72 69 74 65 64 28 6E 2C (n) BE writed(n,
021250: 30 29 0D 0A 0D 0A 41 4E 44 20 77 72 69 74 65 68 0)....AND writeh
021260: 65 78 28 6E 75 6D 2C 64 29 20 42 45 0D 0A 24 28 ex(num,d) BE..$(
021270: 0D 0A 20 20 49 46 20 44 3E 31 20 54 48 45 4E 20 .. IF D>1 THEN
021280: 77 72 69 74 65 68 65 78 28 6E 75 6D 3E 3E 34 2C writehex(num>>4,
021290: 20 64 2D 31 29 0D 0A 20 20 77 72 63 68 28 28 6E d-1).. wrch((n
0212A0: 75 6D 20 4C 4F 47 41 4E 44 20 31 35 29 21 54 41 um LOGAND 15)!TA
0212B0: 42 4C 45 20 27 30 27 2C 27 31 27 2C 27 32 27 2C BLE '0','1','2',
0212C0: 27 33 27 2C 27 34 27 2C 27 35 27 2C 27 36 27 2C '3','4','5','6',
0212D0: 27 37 27 2C 27 38 27 2C 27 39 27 2C 0D 0A 20 20 '7','8','9',..
0212E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0212F0: 20 20 20 20 20 20 20 20 20 20 20 27 41 27 2C 27 'A','
021300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0213F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0214F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 00 02 02 09 4E E5 1C 00 C1 02 00 00 00 02 ......N.........
021520: 1C 00 C6 02 00 00 00 02 1C 00 C2 02 00 00 00 02 ................
021530: 1C 00 C7 02 00 00 00 02 1C 00 C3 02 00 00 00 02 ................
021540: 1C 00 C8 02 00 00 00 02 1C 00 C4 02 00 00 00 02 ................
021550: 1C 00 C9 02 00 00 00 02 1C 00 C5 02 00 00 00 02 ................
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 42 27 2C 27 43 27 2C 27 44 27 2C 27 45 27 2C 27 B','C','D','E','
021610: 46 27 29 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 77 F')..$)....AND w
021620: 72 69 74 65 6F 63 74 28 6E 75 6D 2C 64 29 20 42 riteoct(num,d) B
021630: 45 0D 0A 24 28 0D 0A 20 20 49 46 20 64 3E 31 20 E..$(.. IF d>1
021640: 54 48 45 4E 20 77 72 69 74 65 6F 63 74 28 6E 75 THEN writeoct(nu
021650: 6D 3E 3E 33 2C 64 2D 31 29 0D 0A 20 20 77 72 63 m>>3,d-1).. wrc
021660: 68 28 28 6E 75 6D 20 4C 4F 47 41 4E 44 20 37 29 h((num LOGAND 7)
021670: 2B 27 30 27 29 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 +'0')..$)....AND
021680: 20 6E 65 77 6C 69 6E 65 28 29 20 42 45 20 20 77 newline() BE w
021690: 72 63 68 28 6E 65 77 6C 69 6E 65 63 68 29 0D 0A rch(newlinech)..
0216A0: 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 49 4E 50 55 54 20 ..../**** INPUT
0216B0: 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A 2F 0D 0A ROUTINES ****/..
0216C0: 0D 0A 41 4E 44 20 72 64 63 68 28 29 20 3D 20 56 ..AND rdch() = V
0216D0: 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 55 4E 4C 45 ALOF..$(.. UNLE
0216E0: 53 53 20 72 65 74 75 72 6E 65 64 20 3D 20 30 20 SS returned = 0
0216F0: 54 48 45 4E 0D 0A 20 20 24 28 0D 0A 20 20 20 20 THEN.. $(..
021700: 4C 45 54 20 63 20 3D 20 72 65 74 75 72 6E 65 64 LET c = returned
021710: 0D 0A 20 20 20 20 72 65 74 75 72 6E 65 64 20 3A .. returned :
021720: 3D 20 30 0D 0A 20 20 20 20 6C 61 73 74 63 68 61 = 0.. lastcha
021730: 72 20 3A 3D 20 63 0D 0A 20 20 20 20 52 45 53 55 r := c.. RESU
021740: 4C 54 49 53 20 63 0D 0A 20 20 24 29 0D 0A 20 20 LTIS c.. $)..
021750: 52 45 53 55 4C 54 49 53 20 72 65 61 64 73 74 72 RESULTIS readstr
021760: 65 61 6D 20 3D 20 30 20 2D 3E 20 72 64 76 64 75 eam = 0 -> rdvdu
021770: 28 29 2C 20 72 65 61 64 63 68 28 29 0D 0A 24 29 (), readch()..$)
021780: 0D 0A 0D 0A 41 4E 44 20 75 6E 72 64 63 68 28 29 ....AND unrdch()
021790: 20 42 45 20 72 65 74 75 72 6E 65 64 20 3A 3D 20 BE returned :=
0217A0: 6C 61 73 74 63 68 61 72 0D 0A 0D 0A 41 4E 44 20 lastchar....AND
0217B0: 72 65 61 64 73 28 61 72 72 61 79 29 20 3D 20 56 reads(array) = V
0217C0: 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4D 41 4E 49 ALOF..$(.. MANI
0217D0: 46 45 53 54 20 24 28 20 65 73 63 61 70 65 20 3D FEST $( escape =
0217E0: 20 23 78 46 43 20 20 3B 20 6D 61 78 6C 65 6E 3D #xFC ; maxlen=
0217F0: 32 35 35 20 24 29 0D 0A 20 20 4C 45 54 20 70 74 255 $).. LET pt
021800: 49 4E 4C 49 4E 45 20 36 32 2C 32 35 35 0D 0A 20 INLINE 62,255..
021810: 20 49 4E 4C 49 4E 45 20 35 36 2C 32 20 20 20 20 INLINE 56,2
021820: 20 20 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 63 // jr c
021830: 2C 70 63 2B 32 0D 0A 20 20 49 4E 4C 49 4E 45 20 ,pc+2.. INLINE
021840: 36 32 2C 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 62,0.. INLINE 2
021850: 32 31 2C 31 31 39 2C 31 32 35 20 20 20 20 20 20 21,119,125
021860: 2F 2F 20 73 74 6F 72 65 20 6F 70 65 6E 20 73 74 // store open st
021870: 61 74 75 73 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 atus.. INLINE 2
021880: 32 31 2C 31 31 39 2C 31 32 34 0D 0A 20 20 52 45 21,119,124.. RE
021890: 53 55 4C 54 49 53 20 6E 61 6D 65 0D 0A 24 29 0D SULTIS name..$).
0218A0: 0A 0D 0A 41 4E 44 20 65 6E 64 77 72 69 74 65 28 ...AND endwrite(
0218B0: 29 20 3D 20 63 6C 6F 73 65 6F 75 74 28 29 0D 0A ) = closeout()..
0218C0: 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 50 52 49 4D 49 54 ..../**** PRIMIT
0218D0: 49 56 45 20 49 2F 4F 20 52 4F 55 54 49 4E 45 53 IVE I/O ROUTINES
0218E0: 20 2A 2A 2A 2A 2F 0D 0A 0D 0A 41 4E 44 20 77 72 ****/....AND wr
0218F0: 76 64 75 28 63 29 20 3D 20 56 41 4C 4F 46 0D 0A vdu(c) = VALOF..
021900: 24 28 0D 0A 20 20 49 46 20 63 3D 6E 65 77 6C 69 $(.. IF c=newli
021910: 6E 65 63 68 20 54 48 45 4E 20 24 28 20 77 72 76 nech THEN $( wrv
021920: 64 75 28 31 33 29 20 3B 20 63 3A 3D 31 30 20 24 du(13) ; c:=10 $
021930: 29 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C ).. INLINE 221,
021940: 31 32 36 2C 31 32 36 0D 0A 20 20 49 4E 4C 49 4E 126,126.. INLIN
021950: 45 20 32 30 35 2C 23 78 35 41 2C 23 78 42 42 0D E 205,#x5A,#xBB.
021960: 0A 20 20 52 45 53 55 4C 54 49 53 20 54 52 55 45 . RESULTIS TRUE
021970: 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 70 72 63 68 ..$)....AND prch
021980: 28 63 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D (c) = VALOF..$(.
021990: 0A 20 20 49 46 20 63 3D 6E 65 77 6C 69 6E 65 63 . IF c=newlinec
0219A0: 68 20 54 48 45 4E 20 24 28 20 70 72 63 68 28 31 h THEN $( prch(1
0219B0: 33 29 20 3B 20 63 3A 3D 31 30 20 24 29 0D 0A 20 3) ; c:=10 $)..
0219C0: 20 49 4E 4C 49 4E 45 20 23 78 44 44 2C 20 23 78 INLINE #xDD, #x
0219D0: 37 45 2C 20 23 78 37 45 0D 0A 20 20 49 4E 4C 49 7E, #x7E.. INLI
0219E0: 4E 45 20 23 78 43 44 2C 20 23 78 32 42 2C 20 23 NE #xCD, #x2B, #
0219F0: 78 42 44 0D 0A 20 20 49 4E 4C 49 4E 45 20 23 78 xBD.. INLINE #x
021A00: 72 2C 20 63 20 3D 20 30 2C 20 3F 0D 0A 20 20 24 r, c = 0, ?.. $
021A10: 28 0D 0A 20 20 20 20 46 4F 52 20 69 3D 31 20 74 (.. FOR i=1 t
021A20: 6F 20 70 74 72 20 44 4F 20 24 28 20 77 72 63 68 o ptr DO $( wrch
021A30: 28 38 29 20 3B 20 77 72 63 68 28 27 20 27 29 20 (8) ; wrch(' ')
021A40: 3B 20 77 72 63 68 28 38 29 20 24 29 0D 0A 20 20 ; wrch(8) $)..
021A50: 20 20 70 74 72 3A 3D 30 0D 0A 20 20 20 20 63 20 ptr:=0.. c
021A60: 3A 3D 20 72 64 63 68 28 29 0D 0A 20 20 20 20 55 := rdch().. U
021A70: 4E 54 49 4C 20 63 3D 31 33 20 7C 20 63 3D 65 73 NTIL c=13 | c=es
021A80: 63 61 70 65 20 44 4F 0D 0A 20 20 20 20 24 28 0D cape DO.. $(.
021A90: 0A 20 20 20 20 20 20 54 45 53 54 20 63 3D 31 32 . TEST c=12
021AA0: 37 20 54 48 45 4E 0D 0A 20 20 20 20 20 20 24 28 7 THEN.. $(
021AB0: 0D 0A 20 20 20 20 20 20 20 20 54 45 53 54 20 70 .. TEST p
021AC0: 74 72 3D 30 20 54 48 45 4E 20 77 72 63 68 28 37 tr=0 THEN wrch(7
021AD0: 29 0D 0A 20 20 20 20 20 20 20 20 45 4C 53 45 0D ).. ELSE.
021AE0: 0A 20 20 20 20 20 20 20 20 24 28 0D 0A 20 20 20 . $(..
021AF0: 20 20 20 20 20 20 20 77 72 63 68 28 38 29 20 3B wrch(8) ;
021B00: 20 77 72 63 68 28 27 20 27 29 20 3B 20 77 72 63 wrch(' ') ; wrc
021B10: 68 28 38 29 0D 0A 20 20 20 20 20 20 20 20 20 20 h(8)..
021B20: 70 74 72 20 3A 3D 20 70 74 72 2D 31 0D 0A 20 20 ptr := ptr-1..
021B30: 20 20 20 20 20 20 24 29 0D 0A 20 20 20 20 20 20 $)..
021B40: 24 29 0D 0A 20 20 20 20 20 20 45 4C 53 45 0D 0A $).. ELSE..
021B50: 20 20 20 20 20 20 24 28 0D 0A 20 20 20 20 20 20 $(..
021B60: 20 20 54 45 53 54 20 70 74 72 3D 6D 61 78 6C 65 TEST ptr=maxle
021B70: 6E 20 54 48 45 4E 20 77 72 63 68 28 37 29 0D 0A n THEN wrch(7)..
021B80: 20 20 20 20 20 20 20 20 45 4C 53 45 0D 0A 20 20 ELSE..
021B90: 20 20 20 20 20 20 24 28 20 77 72 63 68 28 63 29 $( wrch(c)
021BA0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 70 74 72 .. ptr
021BB0: 20 3A 3D 20 70 74 72 20 2B 20 31 0D 0A 20 20 20 := ptr + 1..
021BC0: 20 20 20 20 20 20 20 20 61 72 72 61 79 25 70 74 array%pt
021BD0: 72 20 3A 3D 20 63 0D 0A 20 20 20 20 20 20 20 20 r := c..
021BE0: 24 29 0D 0A 20 20 20 20 20 20 24 29 0D 0A 20 20 $).. $)..
021BF0: 20 20 20 20 63 20 3A 3D 20 72 64 63 68 28 29 0D c := rdch().
021C00: 33 30 2C 20 23 78 46 42 0D 0A 20 20 52 45 53 55 30, #xFB.. RESU
021C10: 4C 54 49 53 20 54 52 55 45 0D 0A 24 29 0D 0A 0D LTIS TRUE..$)...
021C20: 0A 41 4E 44 20 70 72 62 75 73 79 28 29 20 3D 20 .AND prbusy() =
021C30: 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4C 45 54 VALOF..$(.. LET
021C40: 20 61 3D 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 23 a=0.. INLINE #
021C50: 78 43 44 2C 20 23 78 32 45 2C 20 23 78 42 44 0D xCD, #x2E, #xBD.
021C60: 0A 20 20 49 4E 4C 49 4E 45 20 23 78 33 30 2C 36 . INLINE #x30,6
021C70: 0D 0A 20 20 49 4E 4C 49 4E 45 20 23 78 44 44 2C .. INLINE #xDD,
021C80: 23 78 33 36 2C 23 78 37 38 2C 23 78 46 46 0D 0A #x36,#x78,#xFF..
021C90: 20 20 52 45 53 55 4C 54 49 53 20 61 5C 3D 30 0D RESULTIS a\=0.
021CA0: 0A 24 29 0D 0A 0D 0A 0D 0A 41 4E 44 20 72 64 76 .$)......AND rdv
021CB0: 64 75 28 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 du() = VALOF..$(
021CC0: 0D 0A 20 20 4C 45 54 20 6B 65 79 20 3D 20 30 0D .. LET key = 0.
021CD0: 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 . INLINE 205,#x
021CE0: 38 31 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 81,#xBB // ca
021CF0: 6C 6C 20 74 78 74 20 63 75 72 20 6F 6E 0D 0A 20 ll txt cur on..
021D00: 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 31 38 INLINE 205,#x18
021D10: 2C 23 78 42 42 20 20 20 20 2F 2F 20 63 61 6C 6C ,#xBB // call
021D20: 20 77 61 69 74 20 6B 65 79 0D 0A 20 20 49 4E 4C wait key.. INL
021D30: 49 4E 45 20 32 32 31 2C 31 31 39 2C 31 32 30 20 INE 221,119,120
021D40: 20 20 20 20 20 2F 2F 20 73 74 6F 72 65 20 69 74 // store it
021D50: 20 69 6E 20 6B 65 79 0D 0A 20 20 49 4E 4C 49 4E in key.. INLIN
021D60: 45 20 32 30 35 2C 23 78 38 34 2C 23 78 42 42 20 E 205,#x84,#xBB
021D70: 20 20 20 2F 2F 20 63 61 6C 6C 20 74 78 74 20 63 // call txt c
021D80: 75 72 20 6F 66 66 0D 0A 20 20 52 45 53 55 4C 54 ur off.. RESULT
021D90: 49 53 20 6B 65 79 0D 0A 24 29 0D 0A 0D 0A 41 4E IS key..$)....AN
021DA0: 44 20 72 64 74 65 73 74 28 29 20 3D 20 56 41 4C D rdtest() = VAL
021DB0: 4F 46 0D 0A 24 28 0D 0A 20 4C 45 54 20 63 3D 30 OF..$(.. LET c=0
021DC0: 0D 0A 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 .. INLINE 205,#x
021DD0: 31 42 2C 23 78 42 42 20 20 20 20 20 20 20 20 2F 1B,#xBB /
021DE0: 2F 20 6B 6D 72 65 61 64 63 68 61 72 0D 0A 20 49 / kmreadchar.. I
021DF0: 4E 4C 49 4E 45 20 32 30 35 2C 23 78 30 43 2C 23 NLINE 205,#x0C,#
021E00: 0A 20 20 20 20 24 29 0D 0A 20 20 24 29 0D 0A 20 . $).. $)..
021E10: 20 52 45 50 45 41 54 57 48 49 4C 45 20 63 3D 65 REPEATWHILE c=e
021E20: 73 63 61 70 65 20 26 20 28 70 74 72 20 5C 3D 20 scape & (ptr \=
021E30: 30 29 0D 0A 20 20 61 72 72 61 79 25 30 20 3A 3D 0).. array%0 :=
021E40: 20 63 3D 65 73 63 61 70 65 20 2D 3E 20 30 2C 20 c=escape -> 0,
021E50: 70 74 72 0D 0A 20 20 52 45 53 55 4C 54 49 53 20 ptr.. RESULTIS
021E60: 63 5C 3D 65 73 63 61 70 65 0D 0A 24 29 0D 0A 0D c\=escape..$)...
021E70: 0A 41 4E 44 20 72 65 61 64 6E 28 29 20 3D 20 56 .AND readn() = V
021E80: 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4C 45 54 20 ALOF..$(.. LET
021E90: 69 6E 70 75 74 20 3D 20 56 45 43 20 31 32 38 0D input = VEC 128.
021EA0: 0A 20 20 72 65 61 64 73 28 69 6E 70 75 74 29 0D . reads(input).
021EB0: 0A 20 20 52 45 53 55 4C 54 49 53 20 73 74 72 74 . RESULTIS strt
021EC0: 6F 6E 75 6D 28 69 6E 70 75 74 2C 31 30 29 0D 0A onum(input,10)..
021ED0: 24 29 0D 0A 0D 0A 41 4E 44 20 73 74 72 74 6F 6E $)....AND strton
021EE0: 75 6D 28 73 74 72 69 6E 67 2C 62 61 73 65 29 20 um(string,base)
021EF0: 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 4C = VALOF..$(.. L
021F00: 45 54 20 70 74 72 2C 20 74 6F 74 61 6C 20 3D 20 ET ptr, total =
021F10: 31 2C 20 30 0D 0A 20 20 57 48 49 4C 45 20 70 74 1, 0.. WHILE pt
021F20: 72 20 3C 3D 20 73 74 72 69 6E 67 25 30 20 4C 4F r <= string%0 LO
021F30: 47 41 4E 44 20 28 30 3C 3D 64 65 63 76 61 6C 28 GAND (0<=decval(
021F40: 73 74 72 69 6E 67 25 70 74 72 29 3C 3D 62 61 73 string%ptr)<=bas
021F50: 65 29 20 44 4F 0D 0A 20 20 24 28 0D 0A 20 20 20 e) DO.. $(..
021F60: 20 74 6F 74 61 6C 20 3A 3D 20 74 6F 74 61 6C 20 total := total
021F70: 2A 20 62 61 73 65 20 2B 20 64 65 63 76 61 6C 28 * base + decval(
021F80: 73 74 72 69 6E 67 25 70 74 72 29 0D 0A 20 20 20 string%ptr)..
021F90: 20 70 74 72 20 3A 3D 20 70 74 72 20 2B 20 31 0D ptr := ptr + 1.
021FA0: 0A 20 20 24 29 0D 0A 20 20 52 45 53 55 4C 54 49 . $).. RESULTI
021FB0: 53 20 74 6F 74 61 6C 0D 0A 24 29 0D 0A 0D 0A 0D S total..$).....
021FC0: 0A 2F 2A 2A 2A 2A 20 46 49 4C 45 20 49 2F 4F 20 ./**** FILE I/O
021FD0: 52 4F 55 54 49 4E 45 53 20 2A 2A 2A 2A 2F 0D 0A ROUTINES ****/..
021FE0: 0D 0A 41 4E 44 20 66 69 6E 64 69 6E 70 75 74 28 ..AND findinput(
021FF0: 6E 61 6D 65 2C 62 75 66 66 65 72 29 20 3D 20 56 name,buffer) = V
022000: 78 42 42 20 20 20 20 20 20 20 20 2F 2F 20 6B 6D xBB // km
022010: 63 68 61 72 72 65 74 75 72 6E 0D 0A 20 49 4E 4C charreturn.. INL
022020: 49 4E 45 20 23 78 39 46 20 20 20 20 20 20 20 20 INE #x9F
022030: 20 20 20 20 20 20 20 20 20 2F 2F 20 73 62 63 20 // sbc
022040: 61 2C 61 0D 0A 20 49 4E 4C 49 4E 45 20 23 78 44 a,a.. INLINE #xD
022050: 44 2C 31 31 39 2C 31 32 30 20 20 20 20 20 20 20 D,119,120
022060: 20 20 2F 2F 20 6C 64 20 28 69 78 2B 31 32 30 29 // ld (ix+120)
022070: 2C 61 0D 0A 20 52 45 53 55 4C 54 49 53 20 63 5C ,a.. RESULTIS c\
022080: 3D 30 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 66 6C =0..$)....AND fl
022090: 75 73 68 28 29 20 42 45 20 57 48 49 4C 45 20 72 ush() BE WHILE r
0220A0: 64 74 65 73 74 28 29 20 72 64 76 64 75 28 29 0D dtest() rdvdu().
0220B0: 0A 0D 0A 41 4E 44 20 72 65 61 64 63 68 28 64 75 ...AND readch(du
0220C0: 6D 6D 79 29 20 3D 20 56 41 4C 4F 46 0D 0A 24 28 mmy) = VALOF..$(
0220D0: 0D 0A 20 20 4C 45 54 20 63 68 61 72 20 3D 20 2D .. LET char = -
0220E0: 31 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 1.. INLINE 221,
0220F0: 32 32 39 20 20 20 20 20 20 20 20 20 20 2F 2F 20 229 //
022100: 73 61 76 65 20 69 78 0D 0A 20 20 49 4E 4C 49 4E save ix.. INLIN
022110: 45 20 32 30 35 2C 23 78 38 30 2C 23 78 42 43 20 E 205,#x80,#xBC
022120: 20 20 20 2F 2F 20 67 65 74 20 63 68 61 72 61 63 // get charac
022130: 74 65 72 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 ter.. INLINE 22
022140: 31 2C 32 32 35 20 20 20 20 20 20 20 20 20 20 2F 1,225 /
022150: 2F 20 72 65 63 6F 76 65 72 20 69 78 0D 0A 20 20 / recover ix..
022160: 49 4E 4C 49 4E 45 20 34 38 2C 37 20 20 20 20 20 INLINE 48,7
022170: 20 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 6E 63 // jr nc
022180: 2C 70 63 2B 36 0D 0A 20 20 49 4E 4C 49 4E 45 20 ,pc+6.. INLINE
022190: 32 32 31 2C 35 34 2C 31 31 39 2C 30 20 20 20 20 221,54,119,0
0221A0: 20 2F 2F 20 73 74 6F 72 65 20 30 20 69 6E 20 72 // store 0 in r
0221B0: 65 73 75 6C 74 20 62 69 74 73 20 38 2D 31 35 0D esult bits 8-15.
0221C0: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 . INLINE 221,11
0221D0: 39 2C 31 31 38 20 20 20 20 20 20 2F 2F 20 6C 64 9,118 // ld
0221E0: 20 28 69 78 2B 31 31 38 29 2C 61 0D 0A 20 20 52 (ix+118),a.. R
0221F0: 45 53 55 4C 54 49 53 20 63 68 61 72 0D 0A 24 29 ESULTIS char..$)
022200: 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 49 4E 4C 49 ALOF..$(.. INLI
022210: 4E 45 20 32 32 31 2C 31 30 32 2C 31 32 37 20 20 NE 221,102,127
022220: 20 20 20 20 2F 2F 20 67 65 74 20 62 75 66 66 65 // get buffe
022230: 72 20 61 64 64 72 65 73 73 0D 0A 20 20 49 4E 4C r address.. INL
022240: 49 4E 45 20 32 32 31 2C 31 31 30 2C 31 32 36 0D INE 221,110,126.
022250: 0A 20 20 49 4E 4C 49 4E 45 20 34 31 2C 32 33 35 . INLINE 41,235
022260: 20 20 20 20 20 20 20 20 20 20 20 2F 2F 20 64 6F // do
022270: 75 62 6C 65 20 61 6E 64 20 73 77 61 70 20 74 6F uble and swap to
022280: 20 64 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 de.. INLINE 22
022290: 31 2C 31 30 32 2C 31 32 35 20 20 20 20 20 20 2F 1,102,125 /
0222A0: 2F 20 67 65 74 20 70 6F 69 6E 74 65 72 20 74 6F / get pointer to
0222B0: 20 6E 61 6D 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 name.. INLINE
0222C0: 32 32 31 2C 31 31 30 2C 31 32 34 0D 0A 20 20 49 221,110,124.. I
0222D0: 4E 4C 49 4E 45 20 34 31 2C 37 30 2C 33 35 20 20 NLINE 41,70,35
0222E0: 20 20 20 20 20 20 20 2F 2F 20 64 6F 75 62 6C 65 // double
0222F0: 2C 20 67 65 74 20 6E 61 6D 65 20 6C 65 6E 67 74 , get name lengt
022300: 68 20 61 6E 64 20 6D 6F 76 65 20 68 6C 20 6F 6E h and move hl on
022310: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 32 .. INLINE 221,2
022320: 32 39 20 20 20 20 20 20 20 20 20 20 2F 2F 20 73 29 // s
022330: 61 76 65 20 69 78 0D 0A 20 20 49 4E 4C 49 4E 45 ave ix.. INLINE
022340: 20 32 30 35 2C 23 78 37 37 2C 23 78 42 43 20 20 205,#x77,#xBC
022350: 20 20 2F 2F 20 6F 70 65 6E 20 66 69 6C 65 0D 0A // open file..
022360: 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 32 32 35 INLINE 221,225
022370: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 72 65 63 // rec
022380: 6F 76 65 72 20 69 78 0D 0A 20 20 49 4E 4C 49 4E over ix.. INLIN
022390: 45 20 36 32 2C 32 35 35 0D 0A 20 20 49 4E 4C 49 E 62,255.. INLI
0223A0: 4E 45 20 35 36 2C 32 20 20 20 20 20 20 20 20 20 NE 56,2
0223B0: 20 20 20 20 2F 2F 20 6A 72 20 63 2C 70 63 2B 32 // jr c,pc+2
0223C0: 0D 0A 20 20 49 4E 4C 49 4E 45 20 36 32 2C 30 0D .. INLINE 62,0.
0223D0: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 . INLINE 221,11
0223E0: 39 2C 31 32 35 20 20 20 20 20 20 2F 2F 20 73 74 9,125 // st
0223F0: 6F 72 65 20 6F 70 65 6E 20 73 74 61 74 75 73 0D ore open status.
022400: 0D 0A 0D 0A 41 4E 44 20 63 6C 6F 73 65 69 6E 28 ....AND closein(
022410: 64 75 6D 6D 79 29 20 3D 20 56 41 4C 4F 46 0D 0A dummy) = VALOF..
022420: 24 28 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 $(.. INLINE 205
022430: 2C 23 78 37 41 2C 23 78 42 43 20 20 20 20 2F 2F ,#x7A,#xBC //
022440: 20 63 61 73 20 69 6E 20 63 6C 6F 73 65 0D 0A 20 cas in close..
022450: 20 52 45 53 55 4C 54 49 53 20 54 52 55 45 0D 0A RESULTIS TRUE..
022460: 24 29 0D 0A 0D 0A 41 4E 44 20 77 72 69 74 65 63 $)....AND writec
022470: 68 28 63 2C 64 75 6D 6D 79 29 20 3D 20 56 41 4C h(c,dummy) = VAL
022480: 4F 46 0D 0A 24 28 0D 0A 20 20 49 46 20 63 3D 6E OF..$(.. IF c=n
022490: 65 77 6C 69 6E 65 63 68 20 54 48 45 4E 0D 0A 20 ewlinech THEN..
0224A0: 20 24 28 0D 0A 20 20 20 20 55 4E 4C 45 53 53 20 $(.. UNLESS
0224B0: 77 72 69 74 65 63 68 28 31 33 29 20 52 45 53 55 writech(13) RESU
0224C0: 4C 54 49 53 20 46 41 4C 53 45 0D 0A 20 20 20 20 LTIS FALSE..
0224D0: 63 3A 3D 31 30 0D 0A 20 20 24 29 0D 0A 20 20 49 c:=10.. $).. I
0224E0: 4E 4C 49 4E 45 20 32 32 31 2C 31 32 36 2C 31 32 NLINE 221,126,12
0224F0: 34 20 20 20 20 20 20 2F 2F 20 6C 64 20 61 2C 28 4 // ld a,(
022500: 69 78 2B 31 32 34 29 0D 0A 20 20 49 4E 4C 49 4E ix+124).. INLIN
022510: 45 20 32 32 31 2C 32 32 39 20 20 20 20 20 20 20 E 221,229
022520: 20 20 20 2F 2F 20 73 61 76 65 20 69 78 0D 0A 20 // save ix..
022530: 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 78 39 35 INLINE 205,#x95
022540: 2C 23 78 42 43 0D 0A 20 20 49 4E 4C 49 4E 45 20 ,#xBC.. INLINE
022550: 32 32 31 2C 32 32 35 20 20 20 20 20 20 20 20 20 221,225
022560: 20 2F 2F 20 72 65 63 6F 76 65 72 20 69 78 0D 0A // recover ix..
022570: 20 20 49 4E 4C 49 4E 45 20 36 32 2C 32 35 35 20 INLINE 62,255
022580: 20 20 20 20 20 20 20 20 20 20 2F 2F 20 6C 64 20 // ld
022590: 61 2C 32 35 35 0D 0A 20 20 49 4E 4C 49 4E 45 20 a,255.. INLINE
0225A0: 35 36 2C 32 20 20 20 20 20 20 20 20 20 20 20 20 56,2
0225B0: 20 2F 2F 20 6A 72 20 63 2C 70 63 2B 32 0D 0A 20 // jr c,pc+2..
0225C0: 20 49 4E 4C 49 4E 45 20 36 32 2C 30 0D 0A 20 20 INLINE 62,0..
0225D0: 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 39 2C 31 INLINE 221,119,1
0225E0: 32 35 20 20 20 20 20 20 2F 2F 20 73 74 6F 72 65 25 // store
0225F0: 20 73 75 63 63 65 73 73 2F 66 61 69 6C 75 72 65 success/failure
022600: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 . INLINE 221,11
022610: 39 2C 31 32 34 0D 0A 20 20 52 45 53 55 4C 54 49 9,124.. RESULTI
022620: 53 20 6E 61 6D 65 0D 0A 24 29 0D 0A 0D 0A 41 4E S name..$)....AN
022630: 44 20 65 6E 64 72 65 61 64 28 29 20 3D 20 63 6C D endread() = cl
022640: 6F 73 65 69 6E 28 29 0D 0A 0D 0A 41 4E 44 20 66 osein()....AND f
022650: 69 6E 64 6F 75 74 70 75 74 28 6E 61 6D 65 2C 62 indoutput(name,b
022660: 75 66 66 65 72 29 20 3D 20 56 41 4C 4F 46 0D 0A uffer) = VALOF..
022670: 24 28 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 $(.. INLINE 221
022680: 2C 31 30 32 2C 31 32 37 20 20 20 20 20 20 2F 2F ,102,127 //
022690: 20 67 65 74 20 62 75 66 66 65 72 20 61 64 64 72 get buffer addr
0226A0: 65 73 73 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 ess.. INLINE 22
0226B0: 31 2C 31 31 30 2C 31 32 36 0D 0A 20 20 49 4E 4C 1,110,126.. INL
0226C0: 49 4E 45 20 34 31 2C 32 33 35 20 20 20 20 20 20 INE 41,235
0226D0: 20 20 20 20 20 2F 2F 20 64 6F 75 62 6C 65 20 61 // double a
0226E0: 6E 64 20 73 77 61 70 20 74 6F 20 64 65 0D 0A 20 nd swap to de..
0226F0: 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 30 32 2C INLINE 221,102,
022700: 31 32 35 20 20 20 20 20 20 2F 2F 20 67 65 74 20 125 // get
022710: 70 6F 69 6E 74 65 72 20 74 6F 20 6E 61 6D 65 0D pointer to name.
022720: 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 31 . INLINE 221,11
022730: 30 2C 31 32 34 0D 0A 20 20 49 4E 4C 49 4E 45 20 0,124.. INLINE
022740: 34 31 2C 37 30 2C 33 35 20 20 20 20 20 20 20 20 41,70,35
022750: 20 2F 2F 20 64 6F 75 62 6C 65 2C 20 67 65 74 20 // double, get
022760: 6E 61 6D 65 20 6C 65 6E 67 74 68 20 61 6E 64 20 name length and
022770: 6D 6F 76 65 20 68 6C 20 6F 6E 0D 0A 20 20 49 4E move hl on.. IN
022780: 4C 49 4E 45 20 32 32 31 2C 32 32 39 20 20 20 20 LINE 221,229
022790: 20 20 20 20 20 20 2F 2F 20 73 61 76 65 20 69 78 // save ix
0227A0: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C 23 .. INLINE 205,#
0227B0: 78 38 43 2C 23 78 42 43 20 20 20 20 2F 2F 20 6F x8C,#xBC // o
0227C0: 70 65 6E 20 66 69 6C 65 20 66 6F 72 20 6F 75 74 pen file for out
0227D0: 70 75 74 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 put.. INLINE 22
0227E0: 31 2C 32 32 35 20 20 20 20 20 20 20 20 20 20 2F 1,225 /
0227F0: 2F 20 72 65 63 6F 76 65 72 20 69 78 0D 0A 20 20 / recover ix..
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 00 02 02 09 4E E5 1D 00 C1 02 00 00 00 02 ......N.........
022820: 1D 00 C6 02 00 00 00 02 1D 00 C2 02 00 00 00 02 ................
022830: 1D 00 C7 02 00 00 00 02 1D 00 C3 02 00 00 00 02 ................
022840: 1D 00 C8 02 00 00 00 02 1D 00 C4 02 00 00 00 02 ................
022850: 1D 00 C9 02 00 00 00 02 1D 00 C5 02 00 00 00 02 ................
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C 31 .. INLINE 221,1
022910: 31 39 2C 31 32 34 0D 0A 20 20 52 45 53 55 4C 54 19,124.. RESULT
022920: 49 53 20 63 0D 0A 24 29 0D 0A 0D 0A 41 4E 44 20 IS c..$)....AND
022930: 63 6C 6F 73 65 6F 75 74 28 64 75 6D 6D 79 29 20 closeout(dummy)
022940: 3D 20 56 41 4C 4F 46 0D 0A 24 28 0D 0A 20 20 49 = VALOF..$(.. I
022950: 4E 4C 49 4E 45 20 32 32 31 2C 32 32 39 20 20 20 NLINE 221,229
022960: 20 20 20 20 20 20 20 2F 2F 20 73 61 76 65 20 69 // save i
022970: 78 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 30 35 2C x.. INLINE 205,
022980: 23 78 38 46 2C 23 78 42 43 20 20 20 20 2F 2F 20 #x8F,#xBC //
022990: 63 6C 6F 73 65 20 6F 75 74 70 75 74 20 66 69 6C close output fil
0229A0: 65 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 2C e.. INLINE 221,
0229B0: 32 32 35 20 20 20 20 20 20 20 20 20 20 2F 2F 20 225 //
0229C0: 72 65 63 6F 76 65 72 20 69 78 0D 0A 20 20 49 4E recover ix.. IN
0229D0: 4C 49 4E 45 20 36 32 2C 32 35 35 0D 0A 20 20 49 LINE 62,255.. I
0229E0: 4E 4C 49 4E 45 20 35 36 2C 32 20 20 20 20 20 20 NLINE 56,2
0229F0: 20 20 20 20 20 20 20 2F 2F 20 6A 72 20 63 2C 70 // jr c,p
022A00: 63 2B 32 0D 0A 20 20 49 4E 4C 49 4E 45 20 36 32 c+2.. INLINE 62
022A10: 2C 30 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 31 ,0.. INLINE 221
022A20: 2C 31 31 39 2C 31 32 37 20 20 20 20 20 20 2F 2F ,119,127 //
022A30: 20 73 74 6F 72 65 20 63 6C 6F 73 65 20 73 74 61 store close sta
022A40: 74 75 73 0D 0A 20 20 49 4E 4C 49 4E 45 20 32 32 tus.. INLINE 22
022A50: 31 2C 31 31 39 2C 31 32 36 0D 0A 20 20 52 45 53 1,119,126.. RES
022A60: 55 4C 54 49 53 20 64 75 6D 6D 79 0D 0A 24 29 0D ULTIS dummy..$).
022A70: 0A 0D 0A 0D 0A 2F 2A 2A 2A 2A 20 4D 49 53 43 45 ...../**** MISCE
022A80: 4C 4C 41 4E 45 4F 55 53 20 52 4F 55 54 49 4E 45 LLANEOUS ROUTINE
022A90: 53 20 2A 2A 2A 2A 2F 0D 0A 0D 0A 41 4E 44 20 73 S ****/....AND s
022AA0: 65 6C 65 63 74 69 6E 70 75 74 28 73 74 72 65 61 electinput(strea
022AB0: 6D 29 20 20 42 45 20 72 65 61 64 73 74 72 65 61 m) BE readstrea
022AC0: 6D 20 20 3A 3D 20 73 74 72 65 61 6D 0D 0A 41 4E m := stream..AN
022AD0: 44 20 73 65 6C 65 63 74 6F 75 74 70 75 74 28 73 D selectoutput(s
022AE0: 74 72 65 61 6D 29 20 42 45 20 77 72 69 74 65 73 tream) BE writes
022AF0: 74 72 65 61 6D 20 3A 3D 20 73 74 72 65 61 6D 0D tream := stream.
022B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022D00: 0A 41 4E 44 20 69 6E 70 75 74 28 29 20 20 3D 20 .AND input() =
022D10: 72 65 61 64 73 74 72 65 61 6D 0D 0A 41 4E 44 20 readstream..AND
022D20: 6F 75 74 70 75 74 28 29 20 3D 20 77 72 69 74 65 output() = write
022D30: 73 74 72 65 61 6D 0D 0A 41 4E 44 20 75 70 70 65 stream..AND uppe
022D40: 72 63 61 73 65 28 63 68 61 72 29 20 3D 20 27 61 rcase(char) = 'a
022D50: 27 3C 3D 63 68 61 72 3C 3D 27 7A 27 20 2D 3E 20 '<=char<='z' ->
022D60: 63 68 61 72 20 2D 20 33 32 2C 20 63 68 61 72 0D char - 32, char.
022D70: 0A 41 4E 44 20 63 61 70 69 74 61 6C 63 68 28 63 .AND capitalch(c
022D80: 29 20 3D 20 75 70 70 65 72 63 61 73 65 28 63 29 ) = uppercase(c)
022D90: 0D 0A 41 4E 44 20 64 65 63 76 61 6C 28 64 69 67 ..AND decval(dig
022DA0: 69 74 29 20 3D 20 27 30 27 3C 3D 64 69 67 69 74 it) = '0'<=digit
022DB0: 3C 3D 27 39 27 20 20 2D 3E 20 64 69 67 69 74 2D <='9' -> digit-
022DC0: 27 30 27 2C 20 64 69 67 69 74 2D 27 41 27 2B 31 '0', digit-'A'+1
022DD0: 30 0D 0A 0D 0A 1A 20 62 79 74 65 73 70 65 72 77 0..... bytesperw
022DE0: 6F 72 64 20 3D 20 32 20 3B 20 62 69 74 73 70 65 ord = 2 ; bitspe
022DF0: 72 77 6F 72 64 20 3D 20 31 36 0D 0A 20 20 20 20 rword = 16..
022E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
022FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0230A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0230B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0230C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0230D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0230E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0230F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0235A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0235B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0235C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0235D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0235E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0235F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0236F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0239F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 00 02 02 09 4E E5 1E 00 C1 02 00 00 00 02 ......N.........
023B20: 1E 00 C6 02 00 00 00 02 1E 00 C2 02 00 00 00 02 ................
023B30: 1E 00 C7 02 00 00 00 02 1E 00 C3 02 00 00 00 02 ................
023B40: 1E 00 C8 02 00 00 00 02 1E 00 C4 02 00 00 00 02 ................
023B50: 1E 00 C9 02 00 00 00 02 1E 00 C5 02 00 00 00 02 ................
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0240F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0242F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0243F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0244F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0245F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0246F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0247F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0248F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0249F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 00 02 02 09 4E E5 1F 00 C1 02 00 00 00 02 ......N.........
024E20: 1F 00 C6 02 00 00 00 02 1F 00 C2 02 00 00 00 02 ................
024E30: 1F 00 C7 02 00 00 00 02 1F 00 C3 02 00 00 00 02 ................
024E40: 1F 00 C8 02 00 00 00 02 1F 00 C4 02 00 00 00 02 ................
024E50: 1F 00 C9 02 00 00 00 02 1F 00 C5 02 00 00 00 02 ................
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0250F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0253F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0254F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0257F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0258F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0259F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0260F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 00 02 02 09 4E E5 20 00 C1 02 00 00 00 02 .....N. .......
026120: 20 00 C6 02 00 00 00 02 20 00 C2 02 00 00 00 02 ....... .......
026130: 20 00 C7 02 00 00 00 02 20 00 C3 02 00 00 00 02 ....... .......
026140: 20 00 C8 02 00 00 00 02 20 00 C4 02 00 00 00 02 ....... .......
026150: 20 00 C9 02 00 00 00 02 20 00 C5 02 00 00 00 02 ....... .......
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0262F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0263F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0266F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0267F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0268F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0269F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0270F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0271F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0272F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0273F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 00 02 02 09 4E E5 21 00 C1 02 00 00 00 02 !.....N.!.......
027420: 21 00 C6 02 00 00 00 02 21 00 C2 02 00 00 00 02 !.......!.......
027430: 21 00 C7 02 00 00 00 02 21 00 C3 02 00 00 00 02 !.......!.......
027440: 21 00 C8 02 00 00 00 02 21 00 C4 02 00 00 00 02 !.......!.......
027450: 21 00 C9 02 00 00 00 02 21 00 C5 02 00 00 00 02 !.......!.......
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0275F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0276F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0277F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0278F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0279F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
027FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0280F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0281F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 00 02 02 09 4E E5 22 00 C1 02 00 00 00 02 ".....N.".......
028720: 22 00 C6 02 00 00 00 02 22 00 C2 02 00 00 00 02 ".......".......
028730: 22 00 C7 02 00 00 00 02 22 00 C3 02 00 00 00 02 ".......".......
028740: 22 00 C8 02 00 00 00 02 22 00 C4 02 00 00 00 02 ".......".......
028750: 22 00 C9 02 00 00 00 02 22 00 C5 02 00 00 00 02 ".......".......
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0288F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0289F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0290F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0291F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0294F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0295F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0296F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0297F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0298F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0299F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 00 02 02 09 4E E5 23 00 C1 02 00 00 00 02 #.....N.#.......
029A20: 23 00 C6 02 00 00 00 02 23 00 C2 02 00 00 00 02 #.......#.......
029A30: 23 00 C7 02 00 00 00 02 23 00 C3 02 00 00 00 02 #.......#.......
029A40: 23 00 C8 02 00 00 00 02 23 00 C4 02 00 00 00 02 #.......#.......
029A50: 23 00 C9 02 00 00 00 02 23 00 C5 02 00 00 00 02 #.......#.......
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 00 02 02 09 4E E5 24 00 C1 02 00 00 00 02 $.....N.$.......
02AD20: 24 00 C6 02 00 00 00 02 24 00 C2 02 00 00 00 02 $.......$.......
02AD30: 24 00 C7 02 00 00 00 02 24 00 C3 02 00 00 00 02 $.......$.......
02AD40: 24 00 C8 02 00 00 00 02 24 00 C4 02 00 00 00 02 $.......$.......
02AD50: 24 00 C9 02 00 00 00 02 24 00 C5 02 00 00 00 02 $.......$.......
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02BFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 00 02 02 09 4E E5 25 00 C1 02 00 00 00 02 %.....N.%.......
02C020: 25 00 C6 02 00 00 00 02 25 00 C2 02 00 00 00 02 %.......%.......
02C030: 25 00 C7 02 00 00 00 02 25 00 C3 02 00 00 00 02 %.......%.......
02C040: 25 00 C8 02 00 00 00 02 25 00 C4 02 00 00 00 02 %.......%.......
02C050: 25 00 C9 02 00 00 00 02 25 00 C5 02 00 00 00 02 %.......%.......
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02C9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 00 02 02 09 4E E5 26 00 C1 02 00 00 00 02 &.....N.&.......
02D320: 26 00 C6 02 00 00 00 02 26 00 C2 02 00 00 00 02 &.......&.......
02D330: 26 00 C7 02 00 00 00 02 26 00 C3 02 00 00 00 02 &.......&.......
02D340: 26 00 C8 02 00 00 00 02 26 00 C4 02 00 00 00 02 &.......&.......
02D350: 26 00 C9 02 00 00 00 02 26 00 C5 02 00 00 00 02 &.......&.......
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 00 02 02 09 4E E5 27 00 C1 02 00 00 00 02 '.....N.'.......
02E620: 27 00 C6 02 00 00 00 02 27 00 C2 02 00 00 00 02 '.......'.......
02E630: 27 00 C7 02 00 00 00 02 27 00 C3 02 00 00 00 02 '.......'.......
02E640: 27 00 C8 02 00 00 00 02 27 00 C4 02 00 00 00 02 '.......'.......
02E650: 27 00 C9 02 00 00 00 02 27 00 C5 02 00 00 00 02 '.......'.......
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02F910: 28 00 00 00 00 00 4E E5 54 72 61 63 6B 2D 49 6E (.....N.Track-In
02F920: 66 6F 0D 0A 00 00 00 00 29 00 00 00 00 00 4E E5 fo......).....N.
RESULT OF SEARCH :
PRO=13 CHEA=0 COD=14 MUSI=0 COP=12 GRA=46 WRIT=281 198=14 199=3 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=13 CHEA=0 COD=14 MUSI=0 COP=12 GRA=46 WRIT=281 198=14 199=3 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File HxCFloppyEmu ( NALIBHDR1 0BED BIN BED1 B B
CPL BAS AMSDOS r !"#$%DIS B X&'()*+,-./0BED B 123456789BED
B ADISC BASBDEBUG (CDEFGINVADE B oHIJKLMNOPQRSTUBCPL BINVWXYZabcde
BCPL BINfghiBED BASjALIBHDR klmnopqrmand VEC 2 parmblock!0 parmbl
ock*2+3 parmblock%3 name%0 parmblock!2 name*2+1 command "ERA" com
mand%3 command%3 #x80 RESULTIS external(command,1,parmblock) $) AND ren
ame(name1,name2) VALOF $( LET parmblock VEC 5 LET command VEC 2 par
mblock!0 parmblock*2+5 parmblock!1 parmblock*2+9 parmblock%5 name1%0
parmblock!3 name1*2+1 parmblock%9 name2%0 parmblock!5 name2*2+1 com
mand "REN" command%3 command%3 #x80 RESULTIS external(command,2,parmblo
ck) $) AND writet(s,n) BE $( writes(s) FOR i 1 to n-s%0 DO wrch('
') $) AND writeu(n,d) BE $( LET m (n1)/5 UNLESS m0 DO $( wri
ted(m,d-1) d 1 $) writed(n-m*10,d) $) AND newpage() BE wrch(12)
AND compch(ch1,ch2) capitalch(ch1) - capitalch(ch2) AND compstring(s1,s2
) VALOF $( LET len1,len2 s1%0, s2%0 LET shorter len1len2 - s1, s2 F
OR i 1 to shorter%0 DO $( LET res compch(s1%i, s2%i) UNLESS res0
RESULTIS res $) RESULTIS len1len2 - 0, shorters1 - -1,1 $) AND bytemov
e(source,dest,number) BE $( inline 221,102,123 // ld h,(ix+123) inli
ne 221,110,122 // ld l,(ix+122) inline 221,86,125 // ld d,(ix+125)
inline 221,94,124 // ld e,(ix+124) inline 221,70,127 // ld b,
(ix+127) inline 221,78,126 // ld c,(ix+126) inline 167
// and a inline 237,82 // sbc hl,de inline 25 // a
dd hl,de inline 56,4 // jr c,+4 inline 237,176 // ldi
r inline 24,8 // jr +8 inline 11 // dec bc in
line 9 // add hl,bc inline 235 // ex de,hl inl
ine 9 // add hl,bc inline 235 // ex de,hl inli
ne 3 // inc bc inline 237,184 // lddr $) AND call
(addr,af,bc,de,hl,ix) BE $( LET save3 VEC 1 bytemove(#x90, save3*2, 3)
0%#x90 #xC3 0%#x91 addr & #xFF// ALIBHDR1 additional AMSDOS library hea
der, last modified 02/11/1986 STATIC $( randomseed 0 $) LET random() V
ALOF $( randomseed randomseed * #xA3ED + #x1D31 RESULTIS randomseed $)
AND stop(code) BE FINISH AND time() VALOF $( LET t 0 inline 205,#
x0D,#xBD // get the time inline 221,117,120 // store l inline 221,
116,121 // store h RESULTIS t // return the result $) A
ND delete(name) VALOF $( LET parmblock VEC 2 LET com N 0%#x92 ( ad
dr & #xFF00 ) 8 inline #xDD,#xE5 // push ix inline #xDD,#x66,#
x77 // ld h,(ix+119) inline #xDD,#x6E,#x76 // ld l,(ix+118) in
line #x29,#x5E,#x56,#x23 // add hl,hlld e,(hl)inc hlld d,(hl) inline #xD5
// push de inline #xDD,#x66,#x79 // ld h,(ix+121) inli
ne #xDD,#x6E,#x78 // ld l,(ix+120) inline #x29,#x4E,#x23,#x46 // add h
l,hlld c,(hl)inc hlld b,(hl) inline #xDD,#x66,#x7F // ld h,(ix+127)
inline inline #xCD,#xD4,#xBC // call klfindcommand inline #xF5 //
push af inline #xEB // ex de,hl inline #xDD,#x46,#x7C // ld b
,(ix+124) inline #xDD,#x66,#x7F // ld h,(ix+127) inline #xDD,#x6E,#x7E /
/ ld l,(ix+126) inline #x29 // add hl,hl inline #xE5
// push hl inline #xDD,#xE1 // pop ix inline #xF1 // pop
af inline #xF5 // push af inline #x78 // ld a,b
inline #xEB // ex de,hl #xDD,#x6E,#x7E // ld l,(ix+126)
inline #x29,#x5E,#x23,#x56 // add hl,hlld e,(hl)inc hlld d,(hl) inline #xD5
// push de inline #xDD,#x66,#x7D // ld h,(ix+125) in
line #xDD,#x6E,#x7C // ld l,(ix+124) inline #x29,#x5E,#x23,#x56 // add
hl,hlld e,(hl)inc hlld d,(hl) inline #xD5 // push de inli
ne #xDD,#x66,#x7B // ld h,(ix+123) inline #xDD,#x6E,#x7A // ld l,
(ix+122) inline #x29,#x5E,#x23,#x56 // add hl,hlld e,(hl)iinline #xDC,#x1B,#
x00 // call c,klfarpchl inline #xF1 // pop af inline #x9F
// sbc a,a inline #xDD,#xE1 // pop ix inline #xDD,#x77,#x7C
// ld (ix+124),a RESULTIS nparms 0 $) AND version() 1 AND getbyte(s,
i) s%i AND putbyte(s,i,c) BE s%i c AND unpackstring(s,v) BE FOR i 0 TO s%0
DO v!i s%i AND packstring(v,s) BE $( LET n !v LOGAND #xFF FOR i 1 TO
n DO s%i s!i $) /1986 STATIC $( randomseed 0 $) LET random() VALOnc
hlld d,(hl) inline #xE1,#xDD,#xE1,#xF1 // pop hlpop ixpop af inline #xCD
,#x90,#x00 // call &90 inline #xDD,#x22,#x90,#x00 // ld (&90),ix in
line #xDD,#xE1 // pop ix inline #xF5,#xE5 // push afpus
h hl inline #xDD,#x66,#x7B // ld h,(ix+123) inline #xDD,#x6E,#x7A
// ld l,(ix+122) inline #x29,#x73,#x23,#x72 // add hl,hlld (hl),einc hll
d (hl),d inline #xDD,#x66,#x7D // ld h,(ix+125) inline #xDD,#x6E,#x7
C // ld l,(ix+124BED BINt.t. r!9*""" !6 x)0!R!R8 PYgo#DM!x( BDM!zR!(N#
F#B(## #V#V22x(#V##V#s#r#V#E(#""sizKKC"z)z)s#r#s#r#s#r#!9s#r)#V#S#V#S#V##fki**"#
)8I*8B"!9R85) inline #x29,#xD1 // add hl,hlpop de inline #x73,#
x23,#x72 // ld (hl),einc hlld (hl),d inline #xDD,#x66,#x7F // ld
h,(ix+127) inline #xDD,#x6E,#x7E // ld l,(ix+126) inline #x29
// add hl,hl inline #xED,#x5B,#x90,#x00 // ld de,(&90) inline #
x73,#x23,#x72 // ld (hl),einc hlld (hl),d inline #xDD,#x66,#x79 /
/ ld h,(ix+121) inline #xDD,#x6E,#x78 // ld l,(ix+120) inline #x29,#
x71,#x23,#x70 // add hl,hlld (hl),cii*""KKC8"DM!9B8Stack overflow #Z22B8 Esca
pe pressed ,!!9*&mfnwfnwfnMwQC"!!9j*finh)n&g"!BKzWRfinh)Vn&fnZ%R+fan)#Vfn#tufin
h)Vn&fn#finh)n&fan#taufWnVCfYnXH!fYnX,!!fYnX!nc hlld (hl),b inline #xDD,#x66,
#x77 // ld h,(ix+119) inline #xDD,#x6E,#x76 // ld l,(ix+118) i
nline #x29,#xD1 // add hl,hlpop de inline #x73,#x23,#x72 //
ld (hl),einc hlld (hl),d bytemove(save3*2, #x90, 3) $) AND external(comma
nd,nparms,parmblock) VALOF $( inline #xDD,#xE5 // push ix inline #
xDD,#x66,#x7B // ld h,(ix+123) inline #xDD,#x6E,#x7A // ld l,(ix+122) in
line #x29 // add hl,hl inline #x23 // inc hl NfUnTf
YnX!fUnTfYnX!fUnTfYnX!!fWnV,fan+tau!$IXONjCXSFfntu6fnZ,#""!!9*mfn)n&g"m!BKzWRfn)
Vutn&,#"m"!*!9!fn*fngRfn+tufsnrgo#tsurfsnr 2fqnpVut)s#rfsnr 2tsurfunt#tuutsr*Vfn
g"Vfunt#BKzWRq! ,#"Vfngfn"!!9fnC"!!9fng0RVzW!9Rfnfn " $ !!9fnzVFNR8"!!9!,fn,fn
,"!!9* fng" !BKzWR ! ,#" "!!9fn R fn,"!!9"!!9"!!9"!!9!,"!!9!fn)#V R!-,*!g"funt+
DMgRfqnpVml)#V0,+"!9*""!!9!fn"!!9VzW!REfn+fn!&l0123456789ABCDEFfng£o)#V,"!!9VzW!
Rfn+fnfng£o0,"!!9! ,"!!9*(5*(!"(fynx"*fynxL*$DrHL"!!9**"("!!9!*R£!fwnv#twuvfn#tu
fwnv!"!!9*!fn+g"!!BKzWR"fnVsr)#V,#"!!OVR "!!9* "*P"fn)#V+g"P"fnBKzWRz"fnVsr)#V,#
"P""fnV)#V,"!!9* )#fn)#V+fn)s#r*"fn)#Vg""fnBKzWR"#fsnr#fn)#VfnVsr)s#r#""#fnV)6 #
6"!!9* #*t#fng"t#fnz)#VDMgRfwnvg"!BKzWR!,! ,!,#"!twuvtuutfunt RfuntRfuntRwv!,!,!
,!,fwnv+twuvfwnvRW!,funt,fwnv#twuvfn)VwvtwtuutfuntRwvfuntR!fwnvfn)sfuntR! !"!!9
*fynxl! fynx1$*""!!9!!fn)n&VutgzWRfn)Vutn&g#fnzVqp)#Vfqnp#fnz)s#r+"t#fnzV)Vs#rfn
z)#V#fnz)s#r#fnzV)Vs#r"!!9fn)#VVgzWR6$fnZ$* fn)#V fn)#VZ$"!!9* * fnM&* fn$" ! *
fnC#!9! ,fn#c!+fn#!! & zW!R$* +" $H!&fn)#V+ gzWR'%* #" *%H!&!" &fn)#V" &fn&* fn
$" * Rx%!&* +" *Rfn)Vutn&fngzWRfn)Vutn&fsnrVtsurfunt#tuutEfsnr"!!9fn)fn)F#w8wwfn
"!!90"!!9fn)fn)F#8wwfn"!!9"!!9fn R! ! tuZ!"!!9fn R"! ! tu+0!1"!!9!.06xfynxR! !k"
!!9! * * fn"* fn"* %! ,&* fn$" fn)#VgPRD&fn* fnC#!9* fn"* &fn)#V* gzWRA&* #" G&
H!&&J&Q%G%G%G%G%G%G%G%G%G%6%-%$$$$ $%!&"!!9!* !!!!f&%C%C%C%I4! 9* !!!!'%C%C%C%I2
! 9* * !twuv2!fwnvfna$twuvfwnv&fn#c!+* )s#rfwnvs'"!wxfynx"!!9!wxfynxR! !"!!9r"
!!9!06wwvfwnv)"!!9z!F"!!9fn R! M!! tu8wwfn"!!98wwfn"!!9fn"$"!!9fn"&"!!9*$"!!9*&"
!!9fngaRVzW!zRfn N!9fn)6#6fn)#V#fn)s#r* )Vn&fn)#Vfn)s#rfn#tufn+* )n& R'"!!9!* )
Vn& RB(fwnv#twuvfn#tufwnvN("!!9fnfn *(fnz'fnzg"(fnzBKzWR(* )Vqpn&,#"(fnz'+* V)s#
r"!!9!! * * !4)!Line%I4 Column%I2 (ESC to menu)!9"!!9!,!,!2!*x)!g"x)!BKzNo roomR
-* R1!" * E!11fwnv!1%S not found!1*""!*!9*O2!!9!.2Disc error. Hit a keyHfn!H2"
fynx!!/!9* fynx$3*2* g"2!BKzWR 3* * )Vutn&M2* 2!9P3* )Vutn& R3* ! M3* 2!9P3#"2*
!P3O3!73Cannot open HfynxH!P3*""!!9!!" !!!!WR)* Vwv)6#6#"x)("!!9!! !,! ,(* )#V
*)!g")!DMgR/*fwnv+* )#V* Vwv)s#r+")* #)6#6"!!9!! !! ! ,! ,**!g"*!BKzWR*fwnv#* )#
V* Vwv)s#r#"** )6#6("!!9**!g"*fnBKzWR+!fsnr! * VgzWRN+!P * Vsr)6#6+fn'+tqup*+fn
Vqp+g"+fn3%C%C%CEnter line number !9!tyux2!!" !" *3fynxg"3!BKzWR4* * ," fsnr R44
* #" #"3!" "!!9*Q4fn)n&g"Q4!BKzWR4fn)Vsrn&fnVsr+* )n&R4!4#"Q4!4"!*!9* * * * *!!!
!s4%C%C%CEnter string !9!fqnpl2!* +" * ) n& R5* #" * gzWR6* ) n& Rq5* #" 5fqn
p* ,4BKzWR+* )Vmln&,#"+* Vsr)#VVqpR * Vsr)Vqps#rfnVqp#tu#*"*"!!9fn'fn* gzWR,H!f
n,fn'fntufn,"!!9,H!fn,fn+tufn+* )n& R,,fn,"!!9fnD)*,!g",* DMgR6-wv -* VsrR#" 6-2
-fwnvg,twuv+",!fwnv*"!!9!! fn!-%S. Hit5* tyux* +* )n& R5* 5* +" fynx R#" !" 6* #
" * gzWR6fynx" fwnv" funt" fsnr" 6R5!9*""!!9!* fn.!!,!! !5v6BCPL editorH!! !
G6-----------H!! !Y6L Load textH! ! !l6S Save textH!! !7E Edit textH!! !17G
Goto lineH! ! !Y7F Find stringH!! !z7Q QuitH! any key to continueH!!!! ! (!" *
,* *" ."!!9* VR#* )VV* )V$ !9* V" "!!9* VRVR#* )V* )VV$ !9* VR" "!!9*.fn
+g".!BKzWR.fnzVqp)#VfnVqp* )s#"."!!9fn'fn)#VfsnrVutR gR/fsnrVutgzWRw/funtVsrRfn
/./funtVs! !7Select option H!tuut2!funtR7funtX8!L,fnB0788!S,1888!G,38!F,* fn$"
48!E,8!Q,8qJ8QJ8e8E8f8F8g8G8s7S7l7L78H!K6* ,"!!9* 9* * g,fn)#Vfunt'+gPR9* 'fn)#V
R gR)9!$9No roomR-* +* )6* +fn.funt" * +" fn)#V* 'R#" * R9rgzWR/fsnrVutRfn-fsnr
fnfn#.!9/!/No roomR-"!!9fnfnz !"0Enter file name H!fnl2!"!*!9*fwnv!!/!9* fwnv1!!
" !" !" !" !" * )6 * tuutfuntR1funtR1* NR1funt R1* #" * ) tw* tuut* ) n& R
1* #" * ) 6 * gR1* +" * ) 6 * E!fnz'!1 N!!* U(!99* +" 9!9Line too long t
o joinR-9!9Top of fileR-"!!9*!*fn)#Vg"!BKzWRPfnVqp)#VfwnvVqp)s#r#"fnVut)#V Rfunt
#tuut*fn)#V+g"funtBKzWRfqnp#fn)#VfnVqp)s#r#"fn)#V+fn)s#r* fwnv.!" * #" * ," * RA
D*!!* U(!9H* #" *""!!9* * g," * +" * R)!!* U(!9* +" "!!9* fn.W"!!9* * ," * VyxR7
* #" * R0D*!!* U(!97* #" "!!9* fn."!!9* fn.*!g"!BKzWR* W#""!!9* fn.*!g"!BKzWR* f
snr R#""!!9* fn.!" !" !" !" * ,"!!9!* BCPL BASp88 start compiler use BCPL, to
run the code GO"ilL BCPL Compiler loader program for AMSDOS disc version (c) A
rnor 1986 B ,/( Z, , ,F , ,&2 ,F , Z, ,/ , , , ,2 ,F , ,.P , , , ,2 ,Z , ,d C
n ,q,x , , , , ,fn.!" !" !" !" * twuv* ," * #" * #" fwnv R zW!R!" * ,"!W!9***4*V
V*V!!!!" !" funt" fqnp" fwnv" fynx" D)* )6 * * fsnrz'fknj* * ** 2* ! *fsnr)#V
+g"!BKzWRfsnrVgf)#V,#"fsnr)#V!PR !" fsnr&tmul!tkujfmnl!tkujfsnr8!tkujfsn& , , (,
,+ , , (, , ,5 , , , , , , P ,. Z, , ,Z , F, ,n , ,/ , , , ,F , , ,n L ,2 , , d
, , x, ,& ,d "THE SYSTEMS LANGUAGE"# , "Loading Compiler..."-" B(B) B B 6 or
9fsnrfsnrfsnrefsnrfsnr)fsnrlfsnr+6 r!9*""" *(&$and the fol escape #x
FC ignore #xEF stop 3 scursup #xF4 scursdown #xF
5 scursleft #xF6 scursright #xF7 ccursup #xF8 ccu
rsdown #xF9 ccursleft #xFA ccursright #xFB "bcpl.bin",p
J star OT p,pT, star,,h star star9 "To start compiler use BCPL, to run the c
ode GO"iler use BCPL, to run the code GO"& ,d "T ,F , , ,n L ,2 , , d, , x, ,& ,
d "THE SYSTEMS LANGUAGE"# , "Loading Compiler..."-" B(B) B B 6 oBED1 B
99OPTION B- OPTION O#x1200 GET "alibhdr" GET "bed.b" OPTION B- OPTION O#x
1200 GET "alibhdr" GET "bed.b" B'OPTION B- OPTION O#x1200, H#x9800 GET "a
libhdr" GET "bed) $) REPEATWHILE key ignore SWITCHON key INTO $
( CASE 'L' CASE 'l' wrch('L') IF loadtext(line) THEN BREAK ENDCASE
CASE 'S' CASE 's' wrch('S') IF savetext() THEN BREAK ENDCASE CASE 'G
' CASE 'g' wrch('G') N ld l,(ix+126) INLINE 221,86,125 // ld d,(ix+12
5) INLINE 221,94,124 // ld e,(ix+124) INLINE 205,#xF0,#xBB // cal
l gra test absolute INLINE 221,119,116 // ld (ix+116),a RESULTIS colo
ur $) LET gtestr(x,y) VALOF $( //Returns the pixel colour at x,y relative
to graphics origin. //BASIC TESTR(x,y) LET colour 0 INLINE 221,102,127
// ld h,(ix+127) INLINE 221,110,126 // ld l,(ix+126) INLINE 221,
86,125 // ld d,(ix+125) INLINE 221,94,124 /* This is a library of f
unctions which control various aspects of the AMSTRAD under AMSDOS. Brief de
tails of each routine are given, along with the equivalent Locomotive BASIC
routine. For full details consult the BASIC User Instructions */ // last
modified 02/11/1986 /**** GRAPHICS ROUTINES ****/ LET border(c1,c2) BE
$( //Sets the border colours. BASIC BORDER c1,c2 INLINE 221,78,126 //
ld c,(ix+126) INLINE 221,70,124 // ld b,(ix+124) INLINE 205,#x38,#xB
C // ld e,(ix+124) INLINE 205,#xF3,#xBB // call gra test relative
INLINE 221,119,116 // ld (ix+116),a RESULTIS colour $) LET gwindow(
left,right,top,bottom) BE $( //Sets the graphics window. BASIC ORIGIN 0,0,left
,right,top,bottom INLINE 221,102,127 // ld h,(ix+127) INLINE 221,110,
126 // ld l,(ix+126) INLINE 221,86,125 // ld d,(ix+125) INLINE
221,94,124 // ld e,(ix+124) INLINE 205,#xD2,#xBB // call gra win hei
ght INLINE 221,102,127 // l // call scr set border $) LET clg() BE
$( //Clears the current graphics window. BASIC CLG INLINE 205,#xDB,#xBB /
/ call gra clear window $) LET draw(x,y) BE $( //Draw from current graphic
s cursor to x,y. //BASIC DRAW x,y. See also gpen, inkmode INLINE 221,102,127
// ld h,(ix+127) INLINE 221,110,126 // ld l,(ix+126) INLINE 221
,86,125 // ld d,(ix+125) INLINE 221,94,124 // ld e,(ix+124) IN
LINE 205,#xF6,#xBB // call gra line absolute $) LET drawr(d h,(ix+123)
INLINE 221,110,126 // ld l,(ix+122) INLINE 221,86,125 // ld d,(ix
+121) INLINE 221,94,124 // ld e,(ix+120) INLINE 205,#xD2,#xBB //
call gra win width $) LET gwrch(character) BE $( //Write a character at th
e graphics cursor. //BASIC no direct equivalent, done using TAG INLINE 221,1
26,126 // ld a,(ix+126) INLINE 205,#xFC,#xBB $) LET ink(n,c1,c2) BE
$( //Set the colours in which to display an ink. BASIC INK n,c1,c2 INLINE 2
21,78,126 x,y) BE $( //Draw from current graphics cursor to x,y relative
to graphics origin. //BASIC DRAWR x,y. See also gpen, inkmode INLINE 221,102
,127 // ld h,(ix+127) INLINE 221,110,126 // ld l,(ix+126) INLINE
221,86,125 // ld d,(ix+125) INLINE 221,94,124 // ld e,(ix+124)
INLINE 205,#xF9,#xBB // call gra line relative $) LET frame() BE $( /
/Waits for the frame flyback. BASIC FRAME INLINE 205,#x19,#xBD // call mc
wait flyback $) LET gpaper(ink) BE $( / // ld c,(ix+126) INLINE 221,70,
124 // ld b,(ix+124) INLINE 221,126,122 // ld a,(ix+122) INLINE
205,#x32,#xBC // call scr set ink $) LET inkmode(a) BE $( //Set the sc
reen write mode, 0normal, 1XOR, 2AND, 3OR //BASIC Done using 4th parameter of D
RAW INLINE 221,126,126 // ld a,(ix+126) INLINE 205,#x59,#xBC // ca
ll scr access $) LET move(x,y) BE $( //Move from current graphics cursor t
o x,y. //BASIC MOVE x,y. See also gpen, inkmode INLINE 221,102,127 /Set grap
hics paper. BASIC GRAPHICS PAPER ink INLINE 221,126,126 // ld a,(ix+126)
INLINE 205,#xE4,#xBB // call gra set paper $) LET gpen(ink) BE $( /
/Set graphics pen. BASIC GRAPHICS PEN ink. See also opaque, transparent INLIN
E 221,126,126 // ld a,(ix+126) INLINE 205,#xDE,#xBB // call gra set p
en $) LET gtest(x,y) VALOF $( //Returns the pixel colour at x,y. BASIC TE
ST(x,y) LET colour 0 INLINE 221,102,127 // ld h,(ix+127) INLINE 2
21,110,126 // N // ld h,(ix+127) INLINE 221,110,126 // ld l,(i
x+126) INLINE 221,86,125 // ld d,(ix+125) INLINE 221,94,124 //
ld e,(ix+124) INLINE 205,#xC0,#xBB // call gra move absolute $) LET m
over(x,y) BE $( //Move from current graphics cursor to x,y relative to graphic
s origin. //BASIC MOVER x,y. See also gpen, inkmode INLINE 221,102,127
// ld h,(ix+127) INLINE 221,110,126 // ld l,(ix+126) INLINE 221,86,12
5 // ld d,(ix+125) INLINE 221,94,124 // call gra ask cursor IN
LINE 221,114,120 // ld (ix+120),d INLINE 221,115,119 // ld (ix+119)
,e RESULTIS a $) /**** TEXT ROUTINES ****/ LET cls() BE $( //Clea
rs the current text window. BASIC CLS INLINE 205,#x6C,#xBB // call txt cle
ar window $) LET copychr() VALOF $( //Reads a character from the screen a
nd returns it //Returns FALSE if no character recognised //BASIC ASC(COPYCHR$(
#0)) LET char FALSE INLINE 205,#x60,#xBB // call txt rd char INLINE
// ld e,(ix+124) INLINE 205,#xC3,#xBB // call gra move relative $) LET
opaque() BE $( //Sets background mode to opaque //BASIC GRAPHICS PEN ,0 I
NLINE #x97 // sub a INLINE 205,#x9F,#xBB // call txt set back
$) LET origin(x,y) BE $( //Sets the graphics origin. BASIC ORIGIN x,y. See
also gwindow INLINE 221,102,127 // ld h,(ix+127) INLINE 221,110,126
// ld l,(ix+126) INLINE 221,86,125 // ld d,(ix+125) INLINE 221,
94,124 // ld e,(ix+124) 48,5 // jr nc,+3 INLINE 221,119,12
0 // ld (ix+120),a RESULTIS char $) LET cursdi() BE $( //Disables
the cursor (user switch). BASIC CURSOR ,0 INLINE 205,#x7E,#xBB // call txt
cur disable $) LET cursen() BE $( //Enables the cursor (user switch). BAS
IC CURSOR ,1 INLINE 205,#x7B,#xBB // call txt cur enable $) LET cursof
f() BE $( //Turns off the cursor (system switch). BASIC CURSOR 0 INLINE 205
,#x84,#xBB // call txt cur off $) LET curson() BE $ INLINE 205,#xC9,#x
BB // call gra set origin $) LET plot(x,y) BE $( //Plot point at x,y.
//BASIC PLOT x,y. See also gpen, inkmode INLINE 221,102,127 // ld h,(ix+
127) INLINE 221,110,126 // ld l,(ix+126) INLINE 221,86,125 // l
d d,(ix+125) INLINE 221,94,124 // ld e,(ix+124) INLINE 205,#xEA,#xBB
// call gra plot absolute $) LET plotr(x,y) BE $( //Plot point at x,y
relative to graphics origin. //BASIC PLOTR x,y. See also gpen, inkmode INLIN
E 221,102( //Turns on the cursor (system switch). BASIC CURSOR 1 INLINE 205,
#x81,#xBB // call txt cur on $) LET locate(x,y) BE $( //Positions the c
ursor at (x,y) within the current window. BASIC LOCATE x,y INLINE 221,110,126
// ld l,(ix+126) INLINE 221,102,124 // ld h,(ix+124) INLINE 205
,#x75,#xBB // call txt set cursor $) LET mode(n) BE $( //Sets the scree
n mode. BASIC MODE n INLINE 221,126,126 // ld a,(ix+126) INLINE 205,#
x0E,#xBC // call scr set mode $) ,127 // ld h,(ix+127) INLINE 221,1
10,126 // ld l,(ix+126) INLINE 221,86,125 // ld d,(ix+125) INLI
NE 221,94,124 // ld e,(ix+124) INLINE 205,#xED,#xBB // call gra plot
relative $) LET speedink(p1,p2) BE $( //This routine will set flash perio
ds. BASIC SPEED INK p1,p2 INLINE 221,110,126 // ld l,(ix+126) INLINE
221,102,124 // ld h,(ix+124) INLINE 205,#x38,#xBC // call scr set bor
der $) LET transparent() BE $( //Sets background mode to transp LET paper
(ink) BE $( //Sets the text paper colour. BASIC PAPER ink INLINE 221,126,12
6 // ld a,(ix+126) INLINE 205,#x96,#xBB // call txt set paper $)
LET pen(colour) BE $( //Sets the text pen colour. BASIC PEN ink INLINE 221,
126,126 // ld a,(ix+126) INLINE 205,#x90,#xBB // call txt set pen $)
LET stream(number) BE $( //Selects a stream. BASIC no direct equivalent, d
one with WINDOW SWAP INLINE 221,126,126 // ld a,(ix+126) INLINE 205,#
xB4,#xBB // calarent //BASIC GRAPHICS PEN ,1 INLINE #x3E,1 // l
d a,1 INLINE 205,#x9F,#xBB // call txt set back $) LET xpos() VALOF
$( //Returns the X coordinate of the graphics cursor. BASIC XPOS LET a 0
INLINE 205,#xC6,#xBB // call gra ask cursor INLINE 221,116,120 // ld
(ix+120),h INLINE 221,117,119 // ld (ix+119),l RESULTIS a $) L
ET ypos() VALOF $( //Returns the Y coordinate of the graphics cursor. BASIC Y
POS LET a 0 INLINE 205,#xC6,#xBB Nl txt str select $) LET strswa
p(first,second) BE $( //Swaps two streams over. BASIC WINDOW SWAP first,second
INLINE 221,70,126 // ld b,(ix+126) INLINE 221,78,124 // ld c,
(ix+124) INLINE 205,#xB7,#xBB // call txt swap streams $) LET tag() BE
$( //Enables printing of text at graphics cursor. BASIC TAG INLINE #x3E,1
// ld a,1 INLINE 205,#x63,#xBB // call txt set graphic $) LE
T tagoff() BE $( //Disables printing of text at graphics cursor. BASIC TA/ 16
bytes LET entbase a7 TEST number0 THEN $( entbase%0 size LOGOR 1
28 number -number $) ELSE entbase%0 size FOR a 1 TO size*3 BY 3
$( entbase%a envelope!(a-1) entbase%(a+1) envelope!a entbas
e%(a+2) envelope!(a+1) $) INLINE 33,100,0 // ld hl,100 INLINE
221,229,221,229 // push ixpush ix INLINE 209 // pop de INLIN
E 25 // add hl,de INLINE 221,126,122 // ld a,(ix+122) I
NLINE 205,GOFF INLINE #x97 // sub a INLINE 205,#x63,#xBB //
call txt set graphic $) LET window(left,right,top,bottom) BE $( //Sets th
e text window. BASIC WINDOW left,right,top,bottom INLINE 221,102,127 //
ld h,(ix+127) INLINE 221,86,126 // ld d,(ix+126) INLINE 221,110,125
// ld l,(ix+125) INLINE 221,94,124 // ld e,(ix+124) INLINE 205,
#x66,#xBB // call txt win enable $) /**** KEYBOARD ROUTINES ****/ LE
T inkey(key) VALOF $( //Tests to see #xBF,#xBC // call sound tone envelope
INLINE 221,225 // pop ix $) LET env(number,size,envelope) BE $
( //This routine sets up a volume envelope. Number holds the envelope number /
/being defined, size holds the number of sections and envelope is an array //ho
lding the envelope data, of size up to 8 words. The array contains //successive
3 byte envelope sections. //BASIC ENV number,envelope sections LET a0,a1,a2
,a3,a4,a5,a6,a7 0,0,0,0,0,0,0,0 // 16 bytes LET envbase a7 if a particula
r key is pressed. BASIC INKEY(key) LET res 0 INLINE 221,126,126 // l
d a,(ix+126) INLINE 205,#x1E,#xBB // call testkey INLINE 40,8
// jr z,+8 INLINE 62,255 // ld a,255 INLINE 221,119,119
// ld (ix+119),a INLINE 221,119,118 // ld (ix+118),a RESULTIS res $)
LET keyvalid() VALOF $( //This routine returns the current key or FALSE i
f no key pressed. BASIC INKEY$ LET res FALSE INLINE 205,#x1B,#xBB // c
all readkey TEST number0 THEN $( envbase%0 size LOGOR 128 numbe
r -number $) ELSE envbase%0 size FOR a 1 TO size*3 BY 3 $( e
nvbase%a envelope!(a-1) envbase%(a+1) envelope!a envbase%(a+2) enve
lope!(a+1) $) INLINE 33,100,0 // ld hl,100 INLINE 221,229,221,2
29 // push ixpush ix INLINE 209 // pop de INLINE 25
// add hl,de INLINE 221,126,122 // ld a,(ix+122) INLINE 205,#xB
C,#xBC // call sound ampl e INLINE 48,5 // jr nc,+3 INLINE 22
1,119,120 // ld (ix+120),a RESULTIS res $) LET speedkey(delay,rept)
BE $( //This routine will set key repeat rate and start delay. //BASIC SPEED
KEY delay,repeat INLINE 221,110,126 // ld l,(ix+126) INLINE 221,102,1
24 // ld h,(ix+124) INLINE 205,#x3F,#xBB // call km set delay $)
/**** SOUND ROUTINES ****/ /* The data used in sound routines must lie in t
he centre 32K of memory. To achieve this a number of valunvelope INLINE 2
21,225 // pop ix $) LET release(channels) BE $( //Releases sound
channels, bit 0 A, bit 1 B, bit 2 C. //BASIC RELEASE channels INLINE 221,126
,126 // ld a,(ix+126) INLINE 205,#xB3,#xBC // call sound release $)
LET sound(array) BE $( //Programs a sound. The array should be 7 words long
. //BASIC SOUND a0,a1,a2,a3,a4,a5,a6 //where a0array!0, a1array!1,..., a6array
!6 LET a1,a2,a3,a4,a5 0, 0, 0, 0, 0 // an array on the hardware stack L
ET ses are declared which lie next to each other and as they are on the hard
ware stack they are in the centre 32K */ LET ent(number,size,envelope) BE $(
//This routine sets up a tone envelope. Number holds the envelope number //be
ing defined, size holds the number of sections and envelope is an array //holdi
ng the envelope data, of size up to 8 words. The array contains //successive 3
byte envelope sections. //BASIC ENT number,envelope sections LET a0,a1,a2,a3
,a4,a5,a6,a7 0,0,0,0,0,0,0,0 / Nbase a5 sbase%0 array!0 sbase%1 arra
y!4 sbase%2 array!5 sbase%3 array%2 sbase%4 array%3 sbase%5 arra
y!6 sbase%6 array!3 sbase%7 array%4 sbase%8 array%5 INLINE 33,110
,0 // ld hl,110 INLINE 221,229,221,229 // push ix, push ix INLINE
209 // pop de INLINE 25 // add hl,de INLINE 20
5,#xAA,#xBC // call sound queue INLINE 221,225 // pop ix $)
/**** MISCELLANEOUS ROUTINES ****/ LET rsx( CASE 5 writes("pe") ENDCASE
CASE 6 writes("p") ENDCASE CASE 7 writes("m") $) $) LET signext
end(value) value127 - value-256, value LET bit0(value) value LOGAND 1 LE
T bit1(value) value LOGAND 2 LET add(size) BE $( size signextend(size
) wrch(size 0 - '+','-') writehex(abs(size),2) $) LET singleregister
(num,index,offset) BE $( SWITCHON num INTO $( CASE 0 writes("b")
ENDCASE CASE 1 writes("c") ENDCASE CASE 2 writesstring) VALOF $( /
/This routine looks up an RSX and returns the address or 0 if not found LET r
esult 0 FOR a 1 TO string%0 string%a 'a'string%a'z' - string%a-32, st
ring%a string%(string%0) string%(string%0) LOGOR 128 INLINE 221,102,127
// ld h,(ix+127) INLINE 221,110,126 // ld l,(ix+126) INLINE 41
// add hl,hl INLINE 35 // inc hl INLINE 205,#xD4
,#xBC // call kl find command INLINE 48,6 // jr nc,pc+6 IN(
"d") ENDCASE CASE 3 writes("e") ENDCASE CASE 4 writes("h") ENDCASE
CASE 5 writes("l") ENDCASE CASE 6 wrch('(') doubleregist
er(2,index) IF index NE hl THEN add(offset) wrch(')')
ENDCASE CASE 7 writes("a") $) $) AND doubleregister(num,index) BE
$( SWITCHON num INTO $( CASE 0 writes("bc") ENDCASE CASE 1
writes("de") ENDCASE CASE 2 SWITCHON index INTO $(
CASE 0 wriLINE 221,117,118 // ld (ix+118),l INLINE 221,116,119
// ld (ix+119),h RESULTIS result $) /* End of AMSDOS features library */
ry of functions which control various aspects of the AMSTRAD under AMSDOS.
Brief details of each routine2Um"SmCVm SSXmX!vWzW0##wX0"Zm##++*SmKZmX"Smo&rm()K
VmYm!Um *XmexD(GM5X!mp0qrm#w#"m*Sm+bkVh !"m"kmY*mXmmo"kmh&(0mR'X0'XZ!"mX*kmo*mmg
"kmm2mtes("hl") ENDCASE CASE 1 writes("ix") ENDCASE
CASE 2 writes("iy") $) ENDCASE CASE 3 writes("sp") $)
$) /* This routine divides byte up into bits 0-2, 3-5, 6-7 */ LET div
ide(byte) BE $( top (byte LOGAND #b11000000) 6 middle (byte LOGAND #
b00111000) 3 bottom (byte LOGAND #b00000111) $) LET getbyte() VALOF
$( pc pc + 1 RESULTIS 0%(pc-1) $) /* This is the case of a sim
ple register transfer */ LET regtrans() BE $( LET offset 0 TEST mid
dlebottom6 THEN writes("halt") ELSE $( IF hlpair NE hl THEN offset g
etbyte() writes("ld ") singleregister(middle,hlpair,offset) write
s(", ") singleregister(bottom,hlpair,offset) $) $) LET shiftinst
r() BE $( LET offset 0 SWITCHON middle INTO $( CASE 0 writes("
rlc ") ENDCASE CASE 1 writes("rrc ") ENDCASE CASE 2 writes("rl ") E
NDCASE CASE 3 writes("rr ") END /* This will be a disassembler for Z80 co
de. It uses the bit patterns to recognise the addressing modes */ // last
modified 03/11/1986 MANIFEST $( hl 0 ix 1 iy 2 $) GLOBAL $( pc 0 t
op 1 middle 2 bottom 3 hlpair 4 $) LET conditioncode(num) BE
$( SWITCHON num INTO $( CASE 0 writes("nz") ENDCASE CASE 1
writes("z") ENDCASE CASE 2 writes("nc") ENDCASE CASE 3 writes("c")
ENDCASE CASE 4 writes("po") ENDCASE NCASE CASE 4 writes("sla ")
ENDCASE CASE 5 writes("sra ") ENDCASE CASE 7 writes("srl ") ENDCAS
E $) IF hlpair NE hl THEN offset getbyte() singleregister(bottom,hlpai
r,offset) $) LET bitinstr() BE $( LET first, offset 0, 0 TEST
hlpair hl THEN first getbyte() ELSE $( offset getbyte() first
getbyte() $) divide(first) SWITCHON top INTO $( CASE 1 writef
("bit %N, ", middle) singleregister(bottom,hlpair,oet getbyte()
SWITCHON bottom INTO $( CASE 6 writes("ld ") singleregister(middle,hlp
air,offset) writef(", %X2",getbyte()) ENDCASE CASE 5 writes("
dec ") singleregister(middle,hlpair,offset) ENDCASE CASE 4 writes("inc ")
singleregister(middle,hlpair,offset) ENDCASE CASE 0 relative() ENDCASE
CASE 3 TEST bit0(middle) THEN writes("dec ") ELSE writes("inc ")
doubleregister(middle1,hlpair) ENDCASE CASE 1 TEST bit0(middle) THEN ff
set) ENDCASE CASE 2 writef("res %N, ",middle) singleregister(
bottom,hlpair,offset) ENDCASE CASE 3 writef("set %N, ",middle)
singleregister(bottom,hlpair,offset) ENDCASE CASE 0 shiftinstr() $)
$) LET getaddrs() VALOF $( LET first getbyte() RESULTIS first
+ 256 * getbyte() $) LET condaddrs(condition,address) BE $( condit
ioncode(condition) writes(", ") writehex(address,4) $) LET relativ
e() BE $( LET ad $( writes("add ") doubleregis
ter(2,hlpair) writes(", ") doubleregister(middle1,hl)
$) ELSE $( writes("ld ") doubleregi
ster(middle1,hlpair) writes(", ") writehex(getaddr
s(),4) $) ENDCASE CASE 7 special0() ENDCASE CASE 2 spec
ial2() $) $) LET special3() BE $( SWITCHON middle INTO $(
CASE 5 writes("ex de,hl") ENDCASE dress pc TEST middle2 THEN TES
T middle0 THEN writes("nop") ELSE writes("ex af, af'") ELSE $( addres
s address + 1 + signextend(getbyte()) SWITCHON middle INTO $(
CASE 2 writes("djnz ") ENDCASE CASE 3 writes("jr ") ENDCASE DEFA
ULT writes("jr ") conditioncode(middle-4) writes(", ") $) writehex(a
ddress,4) $) $) LET special0() BE $( SWITCHON middle INTO $(
CASE 7 writes("ccf") ENDCASE CASE 5 writes("cp CASE 4 writes("ex (s
p),hl") ENDCASE CASE 6 writes("di") ENDCASE CASE 7 writes("ei") END
CASE CASE 0 writes("jp ") writehex(getaddrs(),4) ENDCASE CASE 3 write
s("in a,(") writehex(getbyte(),2) wrch(')') ENDCASE
CASE 2 writes("out (") writehex(getbyte(),2) write
s("), a") ENDCASE $) $) LET arithop(selector) BE $(
SWITCHON selector INTO $( CASE 0 writes("add a,") ENDCASE CASEl")
ENDCASE CASE 4 writes("daa") ENDCASE CASE 6 writes("scf") ENDCASE
CASE 2 writes("rla") ENDCASE CASE 0 writes("rlca") ENDCASE CASE
3 writes("rra") ENDCASE CASE 1 writes("rrca") $) $) LET special
2() BE $( SWITCHON middle INTO $( CASE 1 CASE 3 writes("ld
a,(") doubleregister(middle1,hlpair) wrch(')') ENDCASE CASE 0 CASE 2
writes("ld (") doubleregister(middle1,hlpair) writes("), a") ENDCASE
C 1 writes("adc a,") ENDCASE CASE 2 writes("sub ") ENDCASE CASE 3 w
rites("sbc a,") ENDCASE CASE 4 writes("and ") ENDCASE CASE 5 writes(
"xor ") ENDCASE CASE 6 writes("or ") ENDCASE CASE 7 writes("cp ") E
NDCASE $) $) LET afpair(regpair, hlpair) BE $( TEST regpair3 THEN
writes("af") ELSE doubleregister(regpair,hlpair) $) LET fixedbot3() BE
$( SWITCHON bottom INTO $( CASE 4 writes("call ") condaddrs(middle,
getaddrs()) ENDASE 7 writes("ld a,(") writehex(getaddrs(),4) wrch(")") ENDCA
SE CASE 6 writes("ld (") writehex(getaddrs(),4) writes("), a") ENDCASE
CASE 4 writes("ld (") writehex(getaddrs(),4) writes("), ") do
ubleregister(2,hlpair) ENDCASE CASE 5 writes("ld ") doubleregister(2,hlpa
ir) writes(", (") writehex(getaddrs(),4) wrch(')') $) $)
LET fixedbot0() BE $( LET offset 0 IF hlpair NE hl LOGAND bottom NE
3 LOGAND bottom NE 1 THEN offs N CASE CASE 2 writes("jp ") cond
addrs(middle,getaddrs()) ENDCASE CASE 0 writes("ret ") conditioncode(midd
le) ENDCASE CASE 7 writes("rst ") writehex(middle*8,2) ENDCASE CASE
1 TEST bit0(middle) THEN SWITCHON middle INTO $(
CASE 7 writes("ld sp,hl") ENDCASE CASE 3 writ
es("exx") ENDCASE CASE 5 writes("jp (hl)") ENDCASE
CASE 1 writes("ret") ENDCASE $) ) BE $( SWITCHON
bottom INTO $( CASE 0 writes("ld") ENDCASE CASE 1 writes("cp") E
NDCASE CASE 2 writes("in") ENDCASE CASE 3 TEST bit1(middle) THEN writ
es("ot") ELSE writes("out") ENDCASE $) TEST bit0(middle) THEN
wrch('d') ELSE wrch('i') IF bit1(middle) THEN wrch('r') $) LET shifted
() BE $( LET instruction getbyte() divide(instruction) SWITCHON top
INTO $( CASE 1 darith() ENDCASE CASE 2 repins() $) $)
ELSE $( writes("pop ") afpair(middle1,hlpair) $)
ENDCASE CASE 5 TEST bit0(middle) THEN IF middle1 THEN $(
writes("call ") writehex(getaddrs(),4) $) ELSE $( writes("push ")
afpair(middle1,hlpair) $) ENDCASE CASE 3 special3() ENDCASE
CASE 6 arithop(middle) writehex(getbyte(),2) $) $) LET arith()
BE $( LET offset 0 arithop(middle) IF hlpair NE hl THEN offset get
byte() singl LET disassembleline() BE $( LET first getbyte() SWITCH
ON first INTO $( CASE #xCB bitinstr() ENDCASE CASE #xED shifted()
ENDCASE CASE #xDD hlpair ix disassembleline() ENDCASE
CASE #xFD hlpair iy disassembleline() ENDCASE DEFAULT
divide(first) SWITCHON top INTO $(
CASE 0 fixedbot0() ENDCASE CASE 1 regtrans() ENDCASE
CASE 2 arieregister(bottom,hlpair,offset) $) LET ir(
switch) BE $( TEST bit0(switch) THEN wrch('r') ELSE wrch('i') $) LET
darith() BE $( SWITCHON bottom INTO $( CASE 2 TEST bit0(middle) T
HEN writes("adc ") ELSE writes("sbc ") doubleregister(2,hlpair)
writes(", ") doubleregister(middle1,hlpair)
ENDCASE CASE 7 SWITCHON middle INTO $( CASE 5 w
rites("rld") ENDCASE CASE 4 writes("rth() ENDCASE
CASE 3 fixedbot3() ENDCASE $) $) $) LET start() B
E $( LET buffer VEC 50 LET count 0 writes("Please enter the start
address in hex") reads(buffer) pc strtonum(buffer,16) $( count 0
$( hlpair hl newline() disassembleline() count cou
nt + 1 $) REPEATUNTIL count 10 $) REPEATUNTIL rdch() 's' $) 4sRQ*9-"
-"9-T/R/P/N/d 2 bitsperword 16 rd") ENDCASE CASE 2 CASE
3 writes("ld a,") ir(middle) ENDCASE CASE 0 CASE 1 writes("ld "
) ir(middle) writes(", a") $) ENDCASE CASE 0 wr
ites("in ") singleregister(middle) writes(", (c)") ENDCASE CASE 1 writes
("out (c), ") singleregister(middle) ENDCASE CASE 3 TEST bit0(middle) THE
N $( writes("ld ") doubleregister(middle1,hlpair)
writes(", (") writehex(getaddrs(),4 /* A simple full screen ed
itor */ /* Amsdos version modified 01/11/1986 */ /* to compile this type BCP
L, type BED as the output file name, and type the following directives
OPTION B- GET "alibhdr" GET "bed.b" . users of
Protext or Maxam can load in the file "BED1.B" type BCPL (Protext) or
X RETURN BCPL (Maxam) and then just BED GET "" .
To use the editor type RUN"BED" from BASIC */ MANIFEST $( ins)
wrch(')') $) ELSE $( write
s("ld (") writehex(getaddrs(),4) writes("), ") do
ubleregister(middle1,hlpair) $) ENDCASE CASE 5 TE
ST bit0(middle) THEN writes("reti") ELSE writes("retn") ENDCASE CASE 4 wri
tes("neg") ENDCASE CASE 6 writes("im ") IF middle 0 THEN mid
dle middle + 1 wrch('0'+middle-1) ENDCASE $) $)
LET repins( N TRUE over FALSE cursleft #xF2 cursright #xF3
cursup #xF0 cursdown #xF1 escape #xFC ignore #xEF scur
sup #xF4 scursdown #xF5 scursleft #xF6 scursright #xF7
ccursup #xF8 ccursdown #xF9 ccursleft #xFA ccursright
#xFB copensq 27 cclosesq 29 maxchr 19998
$) /* textend points to the last character in the file which will alw
ays be a characteror just the new character */ AND reprint(line,pos)
BE $( TEST insert THEN FOR a pos TO line!0-1 DO wrch(line!a) ELSE wrch
(line!pos) $) /* This routine will remove a character from the buffer */
AND delete(line,x) BE $( TEST insert THEN $( line!0 line!0 -
1 FOR a x TO line!0 DO line!a line!(a+1) $) ELSE line!x ' ' $)
/* This routine will insert a character into the buffer at the point given */
AND binsert(line,position,character) BE 13. textptr points to the first c
haracter of the current line. textstart points to the start of the text spac
e. */ STATIC $( insert ins textend 0 textptr 0 textstart 0
x 1 y 1 prev 0 file 0 buffprint FALSE linenumber 1 $) G
LOBAL $( errvec 0 errlab 1 $) LET bytemove(source,dest,number) BE $(
inline 221,102,123 // ld h,(ix+123) inline 221,110,122 // ld l,(ix
+122) inline 221,86,125 // ld d,(ix+125) inlin $( TEST insert THE
N $( FOR a line!0 TO position BY -1 line!(a+1) line!a line!positi
on character line!0 line!0 + 1 $) ELSE line!position character $)
AND validate(line,x) VALOF $( IF x line!0 THEN RESULTIS x tab(l
ine!0,y) RESULTIS line!0 $) /* The line given is in buffer in th
e following format 0 length 1- string in unpacked format followed by 1
3 The routine reacts to key and takes the appropriate action */ ANe 2
21,94,124 // ld e,(ix+124) inline 221,70,127 // ld b,(ix+127)
inline 221,78,126 // ld c,(ix+126) inline 167 // and a
inline 237,82 // sbc hl,de inline 25 // add hl,de
inline 56,4 // jr c,+4 inline 237,176 // ldir inline
24,8 // jr +8 inline 11 // dec bc inline 9
// add hl,bc inline 235 // ex de,hl inline 9
// add hl,bc inliD buildbuff(buffer,key) VALOF $( tab(x,y)
SWITCHON key INTO $( CASE 13 x validate(buffer,x) binser
t(buffer,x,13) wrch(13) printclr(buffer+1,linelength(buffer+1)-1)
RESULTIS 13 CASE cursleft CASE scursleft TEST x1 THEN x x
- 1 ELSE beep() ENDCASE CASE cursright CASE scursright
TEST x buffer!0-1 THEN x x + 1 ELSE beep() ENDCASE
CASE ccursleft x 1 ENDCASE CASne 235 // ex de,hl inli
ne 3 // inc bc inline 237,184 // lddr $) LET tab(
x,y) BE $( wrch(31) wrch(x) wrch(y) $) LET spaces(number) BE $( FO
R a 1 TO number DO wrch(' ') $) LET ascii(char) BE $( TEST char13 TH
EN newline() ELSE wrch(char) $) LET curson() BE $( inline 205,#x81,#
xBB $) LET cursen() BE $( inline 205,#x7B,#xBB $) LET cursdi()
BE $( inline 205,#x7E,#xBB $) LET beep() BE $( wrch(7) $E ccursrigh
t x buffer!0 ENDCASE CASE scursup CASE scursdown CASE ccursup CASE c
cursdown CASE copensq CASE cclosesq CASE escape CASE cursup CASE cursd
own RESULTIS key CASE 127 x validate(buffer,x) IF x 1 THEN
RESULTIS 127 x x - 1 tab(x,y) delete(buffer,x) repr
int(buffer,x) IF insert THEN wrch(' ') ENDCASE DEFAULT
x validate(buffer,x) TEST buffer!0 80 THEN $( binser)
/* This routine returns the number of characters up to and including the
next CR */ LET linelength(from) VALOF $( LET sofar 1 WHILE !from
NE 13 DO $( sofar sofar + 1 from from + 1 $) RESULTIS sofar $) /*
This routine will print num characters of line and then fill the rest of the
line with spaces */ AND printclr(line,num) BE $( FOR a 0 TO num-1 DO
wrch(line!a) spaces(79-num) $) /* This routine will print either the w
hole buffer from x on Nt(buffer,x,key) reprint(buffer,x) IF
insert LOGOR xbuffer!0 THEN x x + 1 $) ELSE beep() ENDCASE
CASE ignore $) RESULTIS FALSE $) /* This is the buffer edit
routine */ LET buffer(line) VALOF $( LET keypress 0 $( write
f("%C%C%C%I4",31,6,25,linenumber) writef("%C%C%C%I2",31,18,25,x) tab(x
,y) cursen() keypress rdch() cursdi() keypress buildbuff(l
ine,keypress) $) REPEATUNTIL keypress pr RESULTIS ptr $) ptr ptr - 1
REPEATWHILE textstart%(ptr-1) NE 13 LOGAND ptr NE 0 RESULTIS ptr $)
/* This routine will reconstruct the screen */ LET reconstruct(from) BE
$( LET tptr from cls() FOR a y TO 2 BY -1 DO $( TEST tptr 0
THEN $( y y - a + 1 BREAK $) ELSE tptr backline(tptr) $) screen(tp
tr,1) $) LET error(message) BE $( tab(1,25) writef("%S. Hit any key
to continue",message) beep() rdch() tab(33,25) spaces(ev!y linelengt
h(line+1)-1 RESULTIS keypress $) AND initbuff(line,from) BE $( !l
ine 0 $( !line !line + 1 line!(!line) textstart%from from
from + 1 $) REPEATUNTIL textstart%(from-1) 13 $) /* The above rout
ines work with pointers and words. The next set of routines work with bytes
and array indices */ LET linelength(from) VALOF $( LET sofar 1 W
HILE textstart%from NE 13 DO $( sofar sofar + 1 from from + 1 $) RESULTIS2
0) status() buffprint TRUE reconstruct(textptr) longjump(errlab,errve
c) $) LET makespace(at,size) BE $( bytemove(textstart*2+at,textsta
rt*2+at+size,textend-at+1) textend textend + size $) AND closespace(at
,size) BE $( bytemove(textstart*2+at+size,textstart*2+at,textend-at-size+1
) textend textend - size $) AND copy(from,dest,number) BE $( F
OR a 0 TO number-1 DO textstart%(dest+a) from!a $) /* A buffer line is t
o be inserted at at * sofar $) LET write(from,x,y) BE $( tab(x,y)
FOR a from TO from + linelength(from) - 2 DO wrch(textstart%a) prev!y li
nelength(from) - 1 $) LET status() BE $( tab(1,25) writef("Line%I
4 Column%I2 (ESC to menu)",linenumber,x) $) LET cls() BE $( wrch(4
) wrch(2) curson() cursdi() FOR a 1 TO 24 DO prev!a 0 status() $)
/* This routine will move the text on the screen down a line and alter
the previous array */ LET down() BE/ LET linsert(line,at) BE $(
LET current, new linelength(at), line!0 TEST new-current+textend maxchr THE
N $( TEST currentnew THEN closespace(at,current-new) ELSE IF curren
tnew THEN makespace(at,new-current) copy(line+1,at,new) $) ELSE error
("No room") $) LET getfilename(x,y,name) BE $( tab(x,y) writes("E
nter file name ") cursen() reads(name) cursdi() newline() $) LET
loadtext(line) VALOF $( LET name VEC 20 getfilename( $( tab(1,
1) wrch(11) wrch(13) status() spaces(prev!24-33) FOR a 24 TO 2 BY -1 D
O prev!a prev!(a-1) prev!1 0 $) /* This routine will move the text up o
ne line and alter the previous array */ LET up() BE $( tab(1,25) space
s(33) wrch(10) wrch(13) FOR a 1 TO 23 DO prev!a prev!(a+1) prev!24
0 status() $) /* This routine will reprint the screen from the y
position and text position given. */ LET screen(from,ypos) BE $( F
O25,19,name) TEST findinput(name,file) THEN $( LET char 0 textp
tr, x, y, linenumber, textend 0, 1, 1, 1, -1 textstart%0 13 char re
adch(file) UNTIL char softeofch LOGOR char endstreamch LOGOR textend max
chr DO $( UNLESS char 10 THEN $( textend textend +
1 textstart%textend char $) char readch(file) $)
UNLESS textstart%textend 13 DO $( textend textend + 1
textstart%texR y ypos TO 24 DO $( LET l 0 tab(1,y) IF from
textend THEN $( spaces(80) prev!y 0 BREAK $) l linelength(from) - 1
FOR a from TO from + l - 1 DO wrch(textstart%a) spaces(prev!y-l) pr
ev!y l from from + l + 1 $) $) LET forward(ptr) VALOF $(
IF ptr + linelength(ptr) textend THEN $( beep() RESULTIS ptr $) ptr
ptr + linelength(ptr) RESULTIS ptr $) AND backline(ptr) VALOF $(
IF ptr 0 THEN $( beep() N tend 13 $) IF textend maxch
r THEN $( textend textend - 1 textstart%textend 13 e
ndread(file) initbuff(line,0) error("No room") $) IF tex
tend -1 THEN textend 0 endread(file) RESULTIS TRUE $) ELSE
$( writef("%S not found",name) rdch() RESULTIS FALSE $) $)
AND savetext() VALOF $( LET name VEC 20 LET discerror(file) VALOF
$( writes("Disc error. Hit a key") rdch()PL editor") tab(32,5
) writes("-----------") tab(32,9) writes("L Load text") tab(32,10)
writes("S Save text") tab(32,11) writes("E Edit text") tab(32,12)
writes("G Goto line") tab(32,13) writes("F Find string") tab(32,14)
writes("Q Quit") tab(32,17) writes("Select option ") $( cursen()
key rdch() cursdi() $) REPEATWHILE key ignore SWITCHON k
ey INTO $( CASE 'L' CASE 'l' wrch('L') IF loadtext(li endwrite
(file) RESULTIS FALSE $) getfilename(25,19,name) TEST findoutput(n
ame,file) THEN $( FOR a 0 TO textend DO $( UNLESS writech(t
extstart%a,file) THEN RESULTIS discerror(file) IF textstart%a 13 THEN UN
LESS writech(10,file) THEN RESULTIS discerror(file) $) endwri
te(file) RESULTIS TRUE $) ELSE $( writes("Cannot open ") wri
tes(name) RESULTIS FALSE $) $) AND goline() BE $( LET linenu
m 0 linenune) THEN BREAK ENDCASE CASE 'S' CASE 's' wrch('S') IF sav
etext() THEN BREAK ENDCASE CASE 'G' CASE 'g' wrch('G') goline() BREAK
CASE 'F' CASE 'f' wrch('F') x validate(line,x)
findstring() BREAK CASE 'E' CASE 'e' wrch('E') BREAK
CASE 'Q' CASE 'q' wrch('Q') finish $) beep() $) REPEAT reco
nstruct(textptr) $) /* This routine deals with the deletion of a CR */
LET deletel(line) BE mber 1 writef("%C%C%CEnter line number ",31,25,19)
cursen() linenum readn() cursdi() textptr, x 0, 1 FOR count 2 TO l
inenum DO $( LET optr textptr textptr forward(textptr) IF op
tr textptr THEN BREAK linenumber linenumber + 1 $) y 12 $)
/* This routine checks for a match */ AND match(from,target) VALOF $(
FOR a 1 TO target%0 DO IF textstart%(from+a-1) NE target%a THEN RESULTIS
FALSE RESULTIS TRUE $) /* $( TEST textptr NE 0 THEN $( LE
T optr, tptr textptr, backline(textptr) TEST linelength(tptr) + line!0 - 1
80 THEN $( IF line!0-linelength(textptr)+textend maxchr THEN erro
r("No room") textstart%(textptr-1) 0 linsert(line,textptr-1)
textptr tptr linenumber linenumber - 1 x linelength(textptr)
- line!0 + 1 TEST y 1 THEN $( write(textptr,1,1)
$) ELSE y y - 1 $) ELSE error("LineThis is the find string ro
utine */ AND findstring() BE $( LET optr, ox, oy, oline textptr, x, y,
linenumber LET search VEC 20 writef("%C%C%CEnter string ",31,25,19) c
ursen() reads(search) cursdi() textptr textptr + x - 1 UNLESS textstart
%textptr13 THEN textptr textptr + 1 UNLESS textptr textend DO $( TE
ST textstart%textptr13 THEN linenumber linenumber + 1 ELSE $(
IF match(textptr,search) THEN $( optr textptr too long t
o join") $) ELSE error("Top of file") $) LET addl(line) BE $(
LET copy VEC 80 LET ptr 1 FOR a 0 TO line!0 DO copy!a line!a WHILE
line!ptr NE 13 DO ptr ptr + 1 FOR a ptr TO line!0-1 DO line!a line!(a+1)
line!0 line!0 - 1 linsert(copy,textptr) x, linenumber 1, linenumber +
1 textptr forward(textptr) TEST y 24 THEN $( up() write(tex
tptr,1,24) $) ELSE y y + 1 $) LET moveup() BE $( UNLESS textp
tr WHILE textstart%(textptr-1) NE 13 LOGAND textptr NE 0 DO
textptr textptr - 1 x, y optr - textptr + 1, 12 BREAK
$) $) textptr textptr + 1 IF textptr textend THEN $(
textptr, x, y, linenumber optr, ox, oy, oline BREAK $) $) REP
EAT $) /* This is the main menu routine */ LET menu(line) BE $(
LET tptr 0 linsert(line,textptr) $( LET key 0 wrch(12) t
ab(32,4) writes("BC N 0 THEN $( textptr backline(textptr) line
number linenumber - 1 TEST y 1 THEN $( down() write(te
xtptr,1,1) $) ELSE y y - 1 $) $) LET upcurs(line) BE $(
linsert(line,textptr) moveup() $) LET movedown() BE $( LET optr
textptr textptr forward(textptr) UNLESS textptr optr THEN $( l
inenumber linenumber + 1 TEST y 24 THEN $( up() write(
textptr,1,24) $) ELSE y y + sesq bottom(inbuff) ENDCASE CASE
escape menu(inbuff) ENDCASE $) $) REPEAT $) . BCPL and the fo
lF $( randomseed randomseed * #xA3ED + #x1D31 RESULTIS randomseed $)
AND stop(code) BE FINISH AND time() VALOF $( LET t 0 inline 205,#x0
D,#xBD // get the time inline 221,117,120 // store l inline 221,11
6,121 // store h RESULTIS t // return the result $) AND
delete(name) VALOF $( LET parmblock VEC 2 LET com1 $) $) LE
T downcurs(line) BE $( linsert(line,textptr) movedown() $) LET
supcurs(line) BE $( linsert(line,textptr) FOR a 1 TO 20 DO $(
IF textptr 0 THEN BREAK moveup() $) $) LET sdowncurs(line) BE
$( linsert(line,textptr) FOR a 1 TO 20 DO $( LET optr textptr
movedown() IF optr textptr THEN BREAK $) $) LET top(line)
BE $( linsert(line,textptr) textptr, x, y, linenumber 0, 1, 1, 1 re
consDISC BASp "bcpl.bas"er 01/06/86 110 OUT &FA7E,1INK 0,1INK "bcpl.bas"er 0
1/06/86 110 OUT &FA7E,1INK 0,1INK 1,24BORDER 1 120 MODE 1PEN 1LOCATE 8,3PRINT"
PROSPELL Spelling CN#F#B(## #V#V22x(#V##V#s#r#V#E(#""sizKKC"z)z)s#r#s#r#s#r#!9s#
r)#V#S#V#S#V##fki**"#)8I*8B"!9R85truct(textptr) $) LET bottom(line) BE
$( LET optr 0 linsert(line,textptr) textptr, x, y, linenumber 0, 1, 1
, 0 $( optr textptr textptr forward(textptr) y y + 1 l
inenumber linenumber + 1 $) REPEATUNTIL optr textptr IF y 24 THEN y 24
reconstruct(textptr) $) /* All lines end in 13 */ /* The edit buffer
is held in unpacked format. The whole text is stored in packed format */
LET start() BE $( LET filebuff VEC 1024 LET previous VEC 24 LET te
xt VEC maxchr/2+1 LET inbuff VEC 81 LET error VEC 4 LET copyptr, las
tkey, newscreen 0, 0, TRUE textptr, textend, textstart, errvec 0, 0, text,
error prev, file previous, filebuff cls() textstart%0 13 $( l
evel(errvec) initbuff(inbuff,textptr) IF newscreen THEN screen(textptr
,y) errlab IF buffprint THEN $( tab(1,y) FOR a 1 T
O inbuff!0-1 DO wrch(inbuff!a) spaces(80-inbuff!0) buffprin/* BCPL debug
procedure 02/11/1986 */ /* debug(opt,n,d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d
11,d12) The first parameter specifies the required option.
0 pause execution, wait for a key to be pressed 1
display values of variables in decimal -1 display names and va
lues of variables in decimal 2 display value of strings
-2 display name and value of strings 3 display c
ontents of vet FALSE $) lastkey buffer(inbuff) newscreen FALSE
SWITCHON lastkey INTO $( CASE 127 newscreen TRUE deletel(inb
uff) ENDCASE CASE 13 newscreen TRUE addl(inbuff) ENDCASE CASE
cursup CASE scursup upcurs(inbuff) ENDCASE CASE cursdown CASE scursdown
downcurs(inbuff) ENDCASE CASE ccursup supcurs(inbuff) ENDCASE CA
SE ccursdown sdowncurs(inbuff) ENDCASE CASE copensq top(inbuff) ENDCASE
CASE cclo Nctors -3 display name and contents of vect
ors 4 display values of variables in hexadecimal
-4 display names and values of variables in hexadecimal The s
econd parameter (n) is the number of variables or strings or vectors to
be displayed. If opt is positive there follows a list of identifiers
. If opt is negative there follows a list of pairs - a string
giving the identifier name and the identifier. writes(!parm)
writes(" ") wrnum(parm!1,wrwid)
newline() parm parm + 2
ENDCASE CASE 2 wrch('"') wri
tes(!parm) wrch('"') wrch(' ')
parm parm + 1 ENDCASE CASE -2
writes(" ") writes(!parm
For options 3 and -3 each identifier is followed by the length of the
vector, that is the number of bytes to display. Examples
debug(1,3,var1,var2,var3) debug(-1,3,"var1
",var1,"var2",var2,"var3",var3) debug(2,1,str)
debug(-2,2,"str1",str1,"str2",str2) de
bug(3,1,vector,32) debug(-3,1,"vector",vector,32)
deb) writes(" ") wrch('"')
writes(parm!1) wrch('"') newline()
parm parm + 2 ENDCASE
CASE 3 debugvector(!parm,parm!1)
parm parm + 2 ENDCASE
CASE -3 writes(!parm) newline()
debugvector(parm!1,parm!2) ug(4,2,hex1,hex2)
debug(-4,3,"hex1",hex1,"hex2",hex2,"hex3",hex3) */ AND debug(opt,n
,d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12) be $( MANIFEST $( escape#xFC s
top3 $) LET parm, ch, len d1, , LET wrnum, wrwid writed, 0
SWITCHON (opt0 - opt, -opt) INTO $( CASE 1 w
rites("*nBCPL Debug. Variable values ") ENDCASE
CASE 2 writes("*nBCPL Debug. String contents ") parm
parm + 3 ENDCASE $) $)
IF opt 0 & opt ne 3 DO newline() $) AND debugvector(addr,len) BE $(
LET ascii vec 16 LET ascptr, line, ch 1, 0, 0 ascii%0 16
FOR line 0 TO (len-1)/16 DO $( writes(" ")
writehex(2*addr+line*16,4) // note 2*addr is physical addr
writes(" ") ascptr 1 FOR byte 0 TO 1
5 DO ENDCASE CASE 3 writes("*nBCPL Debug
. Vector contents ") ENDCASE CASE 4
writes("*nBCPL Debug. Variable values, hex ") wrnum w
ritehex wrwid 4 ENDCASE
DEFAULT writes("*nPress a key to resume e
xecution ") chrdch() IF chescape chstop then FINISH
$( ch addr%(line*16+byte)
writehex(ch,2) wrch(' ')
IF byte7 then wrch(' ') ascii%ascptr (31ch12
8) - ch , '.' ascptr ascptr + 1 $)
wrch(' ') writes(ascii) newline
() $) $) 10/1986 */ /* debug(opt,n,d1,d2,d3,d4,d5,d6,d7,d8,d9
,d10,d11,d12) The first parame newline()
RETURN $) newline() IF opt 0 & opt NE 3 DO writes
(" ") FOR i 1 TO n DO $( SWITCHON opt INTO
$( CASE 1 CASE 4
wrnum(!parm,wrwid) wrch(' ') parm parm + 1
ENDCASE CASE -1 CASE -
4 writes(" ") N /* Invaders
game. Last modified 05/11/1986 */ /* The following are part of the standar
d library header */ option s-,b-,l- manifest $( bytesperword 2 endstream
-1 $) /* This routine writes the given byte out to the screen */ let wrc
h(c) be $( inline 221,126,126 inline 205,#x5A,#xBB $) /* This r
outine will wait for a key press */ and rdch() valof $( let key 0
inline 205,#x18,#xBB // call wait key inline 221,119,120 // store it
in key resuto each other and as they are on the hardware stack are in the
centre 32k */ LET sound(array) BE $( LET a1,a2,a3,a4,a5 0, 0, 0, 0, 0
// an array on the hardware stack LET sbase a5 sbase%0 array!0 sba
se%1 array!4 sbase%2 array!5 sbase%3 array%2 sbase%4 array%3 sba
se%5 array!6 sbase%6 array!3 sbase%7 array%4 sbase%8 array%5 inl
ine 33,110,0 // ld hl,110 inline 221,229,221,229 // push ix, push ix
inline 209 ltis key $) /* This routine writes a string to
the screen */ and writes(s) be $( for c 1 to s%0 wrch(s%c) $)
/* This routine writes a number to the screen */ and writed(num,d) be $(
LET temp VEC 20 AND ptr, n 0, num temp!ptr, n, ptr n REM 10, n/10, pt
r+1 REPEATUNTIL n 0 FOR j ptr+1 TO d DO wrch('0') FOR j ptr-1 TO 0 BY -
1 DO wrch(temp!j+'0') $) /* This routine prints the string according to st
andard format */ AND writef(string,a,b,c,d,e,f // pop de inline 25
// add hl,de inline 205,#xAA,#xBC // call SoundQ inline 221,22
5 // pop ix $) LET ent(number,size,envelope) BE $( LET a0,a1,
a2,a3,a4,a5,a6,a7 0,0,0,0,0,0,0,0 // 16 bytes LET entbase a7 TEST numbe
r0 THEN $( entbase%0 size LOGOR 128 number -number $) ELSE
entbase%0 size FOR a 1 TO size*3 BY 3 $( entbase%a envelope!(a-1)
entbase%(a+1) envelope!a entbase%(a+2) envelope!(a+1,g,h,i,j,k) BE
$( GLOBAL $( one 1 two 2 $) LET pptr a FOR cptr 1 TO string%0 DO
$( LET k string%cptr TEST k '%' THEN $( LET format,
arg, size wrch, !pptr, 0 cptr cptr + 1 $( LET ch strin
g%cptr SWITCHON ch INTO $( default wrch(ch) endcas
e case 'C' format wrch GOTO one case 'I' format writed
GOTO two case 'N' format writed GOTO one $) ) $)
inline 33,100,0 // ld hl,100 inline 221,229,221,229 // push ix, pus
h ix inline 209 // pop de inline 25 // add hl,d
e inline 221,126,122 // ld a,(ix+122) inline 205,#xBF,#xBC // call
tone envelope inline 221,225 // pop ix $) MANIFEST $( invader1
0 invader2 4 ship1 8 ship2 12 gun1 16 gun2 20 gun3 24
gun4 28 missile 32 space 36 bomb 40 gunfreq 10
two cptr cptr + 1 ch string%cptr size ch-'
0' oneformat(arg,size) pptr pptr + 1 $) $)
ELSE wrch(k) $) $) LET random() VALOF $( GLOBAL $( seed 0 $)
seed seed * #xA3ED + #x1D31 RESULTIS seed $) /* The end of the sta
ndard function library */ LET inkey(key) VALOF $( LET res 0 inline
221,126,126 // ld a,(ix+126) inline 205,#x1E,#xBB // call testkey
inline 40,8 misfreq 5 bombfreq 10 shipfreq 15 $) GLOBAL $( chardefs
0 invpos 1 xdir 2 exit 3 gunx 5 exitvec 4 ydir 7 bombar
ray 8 invaders 9 gamev 10 gameend 11 demodir 12 $) STATIC
$( gunchk gunfreq ystart 5 score 0 men 3 mischk misfreq misp
os 0 bombchk bombfreq shipchk shipfreq shipx 0 dumchk 5 flas
hcnt 2 flashste FALSE $) LET dwrite(matrix,x,y) BE $( STAT
IC // jr z,+8 inline 62,255 // ld a,255 inline 221,119,1
19 // ld (ix+119),a inline 221,119,118 // ld (ix+118),a RESULTIS
res $) AND keyvalid() VALOF $( LET res 255 inline 205,#x1B,#xBB
// call readkey inline 48,5 // jr nc,+3 inline 221,119,120
// ld (ix+120),a RESULTIS res $) /* The problem with sound is that t
he sound program must lie in the centre 32k to get round this a number of va
lues are declared which lie next N$( screenpos 0 $) screenpos 5*y*8 + (x1
) + #x6000 matrix matrix + chardefs TEST (x LOGAND 1) 0 THEN $(
screenpos%0 matrix%0 screenpos%#x800 matrix%1 screenpos%#x1
000 matrix%2 screenpos%#x1800 matrix%3 screenpos%#x2000 matrix%4
screenpos%#x2800 matrix%5 screenpos%#x3000 matrix%6 screenpo
s%#x3800 matrix%7 $) ELSE $( screenpos%1 matrix%0 sc
reenpos%#x801 matrix%1 screenpos,FALSE,0) $) AND addscore(incremen
t) BE $( score score + increment printscore(score) $) LET stop
mis(coords,explode) BE $( dwrite(space, coords LOGAND #xFF, coords 8)
mispos 0 printgun(gunx,gunx,FALSE) IF explode THEN sound(TABLE 1,400,15,1
2,0,1,0) $) LET stopship(xpos) BE $( dwrite(space,xpos,2) dwrite(
space,xpos+1,2) shipx 0 sound(TABLE 132,100,0,0,0,0,0) $) LET sto
pgun() BE $( men men - 1 IF men0 THEN longjump(gam%#x1001 matrix%2
screenpos%#x1801 matrix%3 screenpos%#x2001 matrix%4 screenpos%
#x2801 matrix%5 screenpos%#x3001 matrix%6 screenpos%#x3801 matrix
%7 $) $) LET defineshapes(array) BE $( FOR i 0 TO 87 array%
i i!TABLE 66,36,60,90,126,60,36,36, // invader 36,
36,60,90,126,60,36,66, // invader 15,127,255,204,20
4,255,127,15, // ship1 240,254,255,51,51,255,254,240,een
d,gamev) delay(5,FALSE) FOR a bombarray TO bombarray + 20 $( UNLE
SS !a 0 THEN $( LET x,y a%0, a%1 dwrite(space,x,y) !
a 0 $) $) printgun(gunx,gunx,mispos NE 0) writef("%C%C%C ",31,m
en*3+1,1) $) LET hitchk(coords) VALOF $( LET mx, my coords LOGAND
#xFF, coords 8 FOR a invpos TO invpos + 39 IF !acoords THEN $(
addscore(1) stopmis(coords,TRUE) !a 0 invaders invad
ers - 1 // ship2 0,0,0,0,15,8,8,255, /
/ gun1 24,255,129,129,255,255,255,255,// gun2
0,0,24,255,255,255,255,255, // gun3 0,0
,0,0,240,16,16,255, // gun4 16,56,56,56,56,56,12
4,214, // missile 0,0,0,0,0,0,0,0, //
space 0,60,24,60,60,60,24,0 // bomb $) LE
T delay(time,key) BE $( FOR outer 1 TO RESULTIS TRUE $) IF my 2
LOGAND (0mx-shipx1) THEN $( stopship(shipx) stopmis(coords,TRUE) addscore(1
0) RESULTIS TRUE $) RESULTIS FALSE $) LET moveship() BE $( s
hipchk shipchk - 1 IF shipchk 0 THEN $( shipchk shipfreq IF s
hipx 0 LOGAND random() 31000 THEN $( shipx 1 sound(TABLE 132,200,10000,
8,0,2,0) $) IF shipx 0 THEN RETURN dwrite(space,shipx,2) shipx
shipx + 1 IF shipx 78 THEN $( stopship(78) RETU time FOR inner 1 TO
5000 IF key THEN IF inkey(47) THEN BREAK $) LET printaliens(char) BE $
( FOR a 0 TO 39 dwrite(char, (invpos+a)%0, (invpos+a)%1) $) AND n
ewaliens() BE $( LET a 0 FOR column 0 TO 7 FOR row 0 TO 4
$( a column + row * 8 (invpos+a)%0 column * 2 + 2
(invpos+a)%1 row * 2 + ystart $) printaliens(invader1) invaders,
ystart 40, ystart + 1 xdir, ydir 1, 0 $) LET gunprint(oldxRN $)
IF mispos NE 0 THEN $( LET mx, my mispos LOGAND #xFF, mispos 8
IF my 2 LOGAND 0(mx-shipx)1 THEN $( stopship(shipx) stop
mis(mispos,TRUE) addscore(10) RETURN $) $) dwrite(ship1,shipx
,2) dwrite(ship2,shipx+1,2) $) $) LET movemis() BE $( mischk
mischk - 1 IF mischk 0 THEN $( mischk misfreq UNLESS mispos0
THEN $( LET misx, misy mispos LOGAND #xFF, mispos 8 IF mis
y ,newx,firing,y) BE $( IF oldxnewx THEN dwrite(space,oldx+1,y) IF oldx
newx THEN dwrite(space,oldx-1,y) dwrite(gun1, newx-1, y) TEST firing THEN
dwrite(gun3,newx,y) ELSE dwrite(gun2,newx,y) dwrite(gun4, newx+1, y) $) A
ND printgun(oldx,newx,firing) BE $( gunprint(oldx,newx,firing,23) $)
LET printscore(score) BE $( writef("%C%C%CScore%I40",31,35,1,score) $)
AND screen() BE $( wrch(4) wrch(2) printscore(score) FOR x 1 T
O 7 BY 3 DO gunprint(x,x NNE 23 THEN dwrite(space,misx,misy) misy
misy - 1 TEST misy 1 THEN stopmis(mispos,FALSE) ELSE $(
mispos misx + misy * 256 UNLESS hitchk(mispos) THEN dwrite(miss
ile,misx,misy) $) $) $) $) AND movegun(lflag,rflag,fflag) B
E $( LET oldx, oldmp gunx, mispos IF gunx3 LOGAND lflag THEN gunx gun
x - 1 IF gunx77 LOGAND rflag THEN gunx gunx + 1 IF mispos 0 LOGAND fflag
THEN $( mispos gunx + 23 * 256 movged FALSE IF invaders 0 TH
EN newaliens() FOR a 0 TO 7 $( lowestx!a 0 lowesty!a 0 $) FOR a invpo
s TO invpos + 39 $( UNLESS !a 0 THEN $( LET xpos, ypos, com
bined a%0, a%1, 0 dwrite(space, xpos, ypos) xpos xpos + xdir
ypos ypos + ydir IF ypos 23 THEN $( writef("%C%C%CINVADED",3
1,37,15) men 0 $) addlow(lowestx,lowesty,xpos,ypos) IF xpos3 LOG
OR xpos77 THEN changed TRUE combined xpos + ypoemis() $) FOR a b
ombarray TO bombarray + 20 DO $( LET x,y a%0, a%1 IF y23 LOGAND (A
BS(gunx-x))1 THEN stopgun() $) UNLESS oldxgunx LOGAND oldmpmispos THEN pri
ntgun(oldx,gunx,mispos NE 0) $) LET realgun() BE $( gunchk gunchk
- 1 IF gunchk 0 THEN $( gunchk gunfreq movegun(inkey(71),inke
y(63),inkey(18)) $) $) LET demogun() BE $( gunchk gunchk - 1
IF gunchk 0 THEN $( flashcnt flashcnt - 1 IF flashcnt s * 256
TEST combined mispos THEN $( stopmis(mispos,TRUE) !a 0 addscore
(1) invaders invaders - 1 $) ELSE $( !a combined dwrite(char,xpos,ypo
s) $) mode() movemis() movebombs() moveship() $) $) TEST ch
anged THEN $( ydir 1 xdir -xdir $) ELSE ydir 0 FOR a 0 TO 7 $( I
F lowestx!a 0 THEN BREAK newbomb(lowestx!a,lowesty!a+1) $) $) LET
start() BE $( LET chars VEC 44 AND invs VEC 40 AND endvec VEC 0
THEN $( TEST demodir0 THEN demodir demodir + 1 ELSE TEST dem
odir0 THEN demodir demodir - 1 ELSE demodir ((random() & #x1F)-15)+8*
(gunx40)+4 TEST flashste THEN writef("%C%C%C ",31,70,1) ELSE wr
itef("%C%C%CDEMO",31,70,1) flashste, flashcnt NOT flashste, 2 $)
gunchk gunfreq movegun(demodir0,demodir0,random()30000) $) $)
/* This routine adds an invader to the bomb array if it is the lowest one in i
ts parti 3 AND gamevec VEC 3 AND bombs VEC 40 AND toneblk VEC 6
AND invader, game invader1, realgun level(endvec) defineshapes(chars)
ent(1,3,TABLE 10,5,1,10,10,1,10,5,1) ent(-2,2,TABLE 10,5,2,10,-5,2) cha
rdefs, invpos, exitvec, bombarray chars, invs, endvec, bombs gamev, demodir
gamevec, 0 $( men, score, ystart, gunx, shipx, mispos 3, 0, 5, 40, 0,
0 FOR a bombarray TO bombarray+20 DO !a 0 FOR a 0 TO 6 toneblk!a a
!TABLE 130,500,4,12,0,0,0 cular column. This means it has the highest y coord
*/ LET addlow(xl,yl,xp,yp) BE $( FOR n 0 TO 7 TEST xl!n 0 THEN $
( xl!n xp yl!n yp BREAK $) ELSE IF xl!nxp THEN $( IF yl!nyp THEN yl!n
yp BREAK $) $) LET newbomb(x,y) BE $( LET bptr bombarray IF r
andom() 30000 THEN RETURN $( IF !bptr 0 THEN BREAK bptr bptr + 1
IF bptr bombarray + 20 THEN RETURN $) REPEAT !bptr x + 256 * y $)
AND movebombs() BE $( LET screen() newaliens() level(g
amev) printgun(gunx, gunx,FALSE) UNTIL inkey(66) LOGOR men1 $(
IF gamedemogun LOGAND inkey(47) THEN men 0 movealiens(invader,game)
invader invaderinvader1 - invader2, invader1 dumchk dumchk - 1
IF dumchk 0 THEN $( dumchk 4 sound(toneblk)
toneblk!1 toneblk!1 NEQV 100 $) $) gameend sound(TABLE 132,100,
0,0,0,0,0) IF gamerealgun THEN writef("%C%C%CGAM x,y 0,0 bombchk bombc
hk - 1 IF bombchk 0 THEN $( bombchk bombfreq FOR a bombarray
TO bombarray + 20 $( x, y a%0, a%1 IF x 0 THEN LOOP
dwrite(space,x,y) y y + 1 IF y 23 THEN $( IF (AB
S(x-gunx)) 1 THEN stopgun() !a 0 LOOP $) dwrite(bomb,x
,y) !a x + 256 * y $) $) $) LET movealiens(char,mode) BE
$( LET lowestx VEC 7 AND lowesty VEC 7 LET chan NE OVER",31,36,1
0) game demogun UNLESS inkey(66) THEN $( writef("%C%C%Chi
t SPACE to play",31,32,12) delay(3,TRUE) $) IF inkey(47) THEN g
ame realgun $) REPEATUNTIL inkey(66) exit WHILE keyvalid() NE 255 inline
0 $) $ng are part of the standard library header */ option s-,b-,l- mani
fest $( bytesperword 2 endstream -P , , , ,2 ,Z , ,d C n ,q,x , , , , ,(( (#2
D2q!q*q77*#"22H(I(((( 32D2* near line ESC to abort, any other key continues!G(
X!Z( (#222!Zw220 Z Z*RR1*w+"*RR1*r+s+" ### 0Z'd /R00 y0Z($ (0)*RR1BCPL BIN
NN(BCPL $$$NpNpnf"nfnfV*R0NFVnf+ z N#F+DMq#p####Nx)0!RN!R8 PYgo#DM!x( BDM!zR!
(N#F#B(## #V#V22x(#V##V#s#r#V#E(#""sizKKC"z)zS*#"3I/O errorF#w8!.w#6.#6Bw0 z3No
n-ASCII file!qx(##2 Can't open D2-##!"6 7 *wD2!" **R(*+"Z ZZZ*w#"Z! (#x*RR1!0
6*ut*utut3Can't open output file.((O *3M *3A 3B!8 &(& 3#5 3" &3"M +V+!R+r+)s#r#
s#r#s#r#!9s#r)#V#S#V#S#V##fki**"#)8I*8B"!9R85i*""KKC8"DM!9B8Stack overflow #Z22
B8 Escape pressed 2!bN#!9R03HIMEM too low%(*!dqNo program%s2"P ++""""22.!"!q*#
22*R *R"+sC 3 3 33/ 3/N *N2!ZF2#3NR $ is only allowed in definitions 3#Ba
d expression2PWw "! *(#####F##foHz8**y3"""*Kz 8**36(Expecting ,3P*3B(!B!Kz*83"O!
(#*3"y$#9##5""""s!"3B z!/q*R!kq**2!"*(!Mq!!q* 2*" *RDM*!Mq*R!q!!q* !qOutput f
ile name Code origin To run code use GO or CALL origin Phase 1 complete. Tree
size Phase 2 complete. Code size Phase 1 errors Phase 2 errors Arnor BCPL compil
er v(c) PJB & Arnor Ltd., 1986 !q0#.#0#0# ( #!q!h"f8(Q(Af%!**s!f "7 13 3B SSI(
!(+( 3!&B I((D 63 6O(Expecting identifier*3P A32( DO 3EBad vector definitionA R
O 3O !B! 3GP 3FBad PROCEDURE definitionMissing )(R 3*! 6#!("0#!A3w#!xA3"6O!yA3
"6O!"22Z2Y 2222 2star+E(+"B $%%T#N#F#y-s#r6s#r#s#rC6#P%T#6#8##qXvP%C6#6g6##g6g6#
#o&!!q!!. ...o&#fo.. . ..o&w#wRA 2(( *#" 8(((80 2 N6 367I(( J Expecting comman
d'((()(3'(Z G! ! ##Vx###OM.&8A4"4B1B4B0B-Z #*HPz 3 O 3KD6L333 !-PELSE expected*2
33!!&*INTO expected!B &3! expected!"N!2!R9*j*F(G(T(U(**0T(#U(X(Y(Z(((((*** "*""*
!"* !+V++F+n6 ++F+N+V+6 +F+N+V+i!6O(&(8Qz0-$c180Y(-$+V+-$!j)s#r+V+-$).8+!6#6zs#
rY(-$'!j')Y(-$2*!s2*.063!3 !j,!j! 3 PPPBad FOR loop3P!(3**!!9s!" (*(&Need or i
n constant definition3!Pqp!7O(SSH!I(Missing $)*B($*KB Section tag mismatch3Missi
ng $(##G 3Y G!(###'Z()40 Y(GZ(xG(G*"*c10,0 (60s0wOM+V+6 +V++V+.F#6 +++V+V+06#6##
w2+V++ V++V++V+.06##s#r+V++V+ +V+z+V++++V+0+6#w#6#s#rbkSg!""""+V+++V+z!(!nfs#r+
++V+V+O "c183( 02-$**22G"!"""""*2*"*Z"22 2224P*R*s#r*s#r*R(#*B*#3Undefined START
*!9RR1.!0JP1CL-340"'k'Z( ) + *'!""" ""#b!$3Error in translation node!"6#6""*
,#+*!!!R z N#F####% x26(x-$+++V+xV+g!""""+++++V++!q2V+!q2+V+s#rzAgAgDM2222 22*"
"""j+V+++V+*7,!q2zT+V+-$2!!FP1RESULTIS outside a VALO!!+! !t"1LOOP found outside
loo!!v(F2$,1BREAK found outside loo1RETURN found outside FUNC/PRO+V+-$+V+c*2JOR
fuzK!DM!!#V#z£ut##$p C!D!A3ut### levelongjumaptove68!D!#V#0+6#6#6#Vw#w##+V++V+**
*+V++V+"*CG2"TB $V2Undefined identifier,nf S+++V+!0V++V+GFTUVWXYD+E3Declaration
error!0!0DEGFTUV185((1Labels need a globa6NF!+V+* ***"""" ****""""F( nfnf*##"RR1
A22 "*"22j+V+*7,!q2TAgAg22 22""""22*j+V++! q2V++!q2zT+V++ V+z+++V+.K!V+V!z( ##V
####WXY+V+0+6#6#6#s#r+V++F+N6 ! 6 !+V++i+F+N+yF+NV+ 6 1Expression/id mismatc-$n
f.#)"KB8"nf** ( !( *"+V++*R *Kq#pc1O2****22!""V++**g.""!q2""*! !*s#r22"*CG"""s#
rV+F(T(V(X(3 %-$ N(*"+*r+s+p+q+"**22"+V+-$T*(*!"*+V+*R####*ut*RuE(+*++++nfnf+++
+* *##""!q2""w((1CASE/DEFAULT outside a SWITCHO"+V+.*KDM!9BR1is#r#s#r*####"+V+w%
"*"+V+!!"1ENDCASE used outside SWITCHOA**"2nf-$!#-$-$+O(c18 0$V000K(L(7Gx2!+02l,
,,,,-O-- -.+--M.O.-$!++(!,(###!! (08F nfDMR !,(###i.!'-+&..&.-V.0O J+V+O 1c1840#
-$!++*!'-t*nf-$*jK*q#pnf !.!#(!#"g."%%" "**nfnf2"*CG! q2!$07,!q2"*"Tg" BKzWRDMg
R#+##$i*.!5$0M$O$R$K2%a%CG%3%.%%&&& &N'/'5''9(($-)R'h'( )()8A)Q#*!)K)q)))%))3Une
xpected node in expression!c18 !0$f,+V+.8+V++Fr+Ns##q#p7R!!**!""+V++!q22""+V++**
!""+V++!q22""+V++-+V++*KC"*KC".+z-+-+F+N+V+i +V++F+n.8.8X*!J.gzW.8-$!u.gg!zgkgO(
+0%-$+!.!gzW.1Need constant expressio!.0O#/MC/5n0!0*0+V+-$!W%go#+V+-$!q% (go#%**
22"+V+! 1VALOF must contain RESULTIq2""!!!!+V+!&0O3&8'&&1Invalid application of
Lc18 (0!&n-&!&!F 0!&nf+V+-$+V+-$!&)#V+V+-$!&go!*### *(/g/9q//$////%/.//c18(V7+V
+7+V+.+V+.J/7J/R7J//7J//7J//i7J/W£7J/W777J/z(T7J/z(%T70x)0!R0!R8 PYgo#DM!x( BDM!
zR!otu008"01Invalid assignmen( nfO # #N#F####BK#V#B(## #V*DM!9B3iKB83*&Ox s#r&+V
+2's#r6 +V++K'V+.*!'R!(!*!r'R! !+++V+.8 *+V+-$!'0'''i#++++V+.8*!'R+V+-$!R!'0+++V
+.8**$+V+-$!1(0((((((((( (( (((i*$88G)!(!(!(!(!(!(T)T))T))T))T))))T))**&&.!).!)K
x(TZDM!9B88iK*Z"*Kq#p#s#r#w""3Out of memory* B** *####*"!nfR 3G($(!2Dynamic free
variable used,7nff12D2# ##*#"22D2# ##2*#"2 Z ZBKVqp6q#pFnfsrBKOx2GyOx o&!9!2q*
(+V+!22 inglobal definition###q!)3R!8!&.!!).!!)R!0!**&'!&*!U) go*!j)go*!)g£o*!)g
o**2**4g!""""nf+!q2nf-$!q2nf-$s#rz2*!.*n&!L#V#X!*L !L+V++rsV+rs!X-$2X!X+r+sMN9S5
+V++F+n+F+N+V+iM(2O(.M(MO(I+0%-$-$M(O(+0%-$ N D2q!(3q2z. Compilation abandoned.
3zh3 0###VT#(*!9DMB83Out of symbol spacer+s6#6#6#w#8"7O#8y'O!#V!9DM*B3.2 ( #7*
#"22d7 85o0$89!A3"0Ow227SL800o&W9"M2# zM2b 8Ro&9"Mo 8o&l9"Mx 8"o&9"M08800o&l9"ME
xpecting number' !9o&0&"'Ycilorux+.EHKSXejmpu!'.7D"&)-0369GLOSVby5CFKSaely $/Pf
! ) / 2 6 E N x !&-05BEKQ7M2!7G( #2##x/ Q 5/ 3*(26 *#"*
6*(/ 3 / r j 2 U M2 8 %02- 2 22$ /( $89!A3H)6$89!A3I2". H(G*f"f22nf"nf"x3z32
( 5 52" !Z" !ZqN5906 6#wyString too long 5 2 2 %)/47NSYdgmpw # ' + / 3 7
C G L O R W Z a d g o r x '.4DJNnru£"%(4EZjo "(/6DIORWeior
u %+.3AFLOTBad characterBad character constantW4dV4EMLJ-6778797D2D2!*7(##2(7(73B
roken in+5,67&!8*9(A)BAB%QR( (" 6Bad GET2Z*fww*ut*ut"f!"Z(!Z'2 23 2*" 2309-9!l8!
Yb D-9+( -82Y92Y-9,99 993M82099!Zs(9o 23M 5*""09Eh # 23M *09*-9+(-(Bad optionXa
fk#(/269OXd !$+0369BEHLOSbilrv!$'*-04SVYfilotwz6C "*.269D!N!%)-36CMPTXbeh linew
-9'9 33,Q83 (!w#z8.( w#+w)T))008)))002)08ag'0)))) 7*7!7#() xX!7(### 7 *#"*(!7#
7(977G ''**""NnTtS s BbPpC c 8ag87'0a87o087andbebreakbycasedodefaulteqeqvelsee
ndcasefalseforfinishgotogegrgtglobalgetifintoinlineletlvlelptw#&+8BEIOcg%38DIMSX
adgx£ #4CHNQVr#1FLORUXhmpx)4CFIYadmruy!$.36BGdgmpulsltlogorlogandlooplshiftmanif
estnenotneqvorresultisreturn£remrshiftrvrepeatrepeatwhilerepeatuntilswitchonstat
ictotesttruethentableuntilunlessvecvalofwhileoptionabsoPBCPG!""+V++!q2ictotesttr
uethentableuntilunlessvecvalofwhileoptionabsoPBCPG!""+V++!q2+QTZapswz"%(,258AFKQ
V N-6CGKOWcimqu " % ( + . 1 4 7 C F N Y a d m u z !
!!!!$!(!,!2!5!8!!!H!K!R!U!Z!!a!f!i!l!r!y!!!!!!!!!!!!!!!!"" """"""'"I"S"W""h"q"x"
"""""""£""""""""""""""""## #####4###B#E#H#K#P#S#Y##a#d#g#k#u####################
#####$$$$$$$$$'$*$0$3$6$9$$$B$E$H$K$N$Q$T$W$Z$$$c$f$i$l$o$r$u$x$$$$$$$$10 memory
&11ff 20 load "bed.bin",&1200 30 call &1200 9010 memory &11ff 20 load "bed.
bin",&1200 30 call &1200 fied 03/11/1986 MANIFEST $( hl 0 ix 1 iy 2 $)
GLOBAL $( pc 0 top 1 middle 2 bottom 3 hlpair 4 $) LET
conditioncode(num) BE $( SWITCHON num INTO $( CASE 0 writes("nz")
ENDCASE CASE 1 writes("z") ENDCASE CASE 2 writes("nc") ENDCASE
CASE 3 writes("c") ENDCASE CASE 4 writes("po") ENDCASE $$$$$$$$$$$$
$$%%%%%"%*%-%5%%B%N%Q%T%h%k%n%%%%%%%%%%%%%%%%%%%%%& & &&&&6&F&I&R&U&X&&i&l&o&&&&
&&&&&&&&&&&&&' ''''','C'L'O'S'V'Y'i'l'o'''''''''''''''''''''((((((((,(/(4(8(((D(
H(L(P(T(X(((d(h(m(r(w(z((((((((((((((((((((((((()))))).)3)6)9))B)E)H)L)O)R)a)d)g
)r)u)x))))))))£)))))))))))))))))))***** *%*(*+**D*H*K*W*n*q*u*z**************+++
++!+'+5++A+M+R+X++b+i+u+x++++++++++++++++++++++++++++,,+,.,,L,X,,d,i,m,r,v,z,,,,
,£,,,,,,,,,,,,,,,-,-3-7---E-I-L-P-T-X--b-e-q-u-y-----------------------------...
...3..A.D.G.Y..b.e.j.r....................///////////&/Q///h/r/v///////////D0I0M
0R0W00j0t0w00000000011$1+1/1411G1K1S1d1k1p1z1111111111111112 22222!2,2327222A222
222222222222233// ALIBHDR standard AMSDOS library header, last modified 12/11/
1986 MANIFEST $( bytesperword 2 bitsperword 16 softeofch 2
6 endstreamch -1 vdustream 0 printstream 1 m
axint 32767 minint -32768 newlinech 269 tickspersec 300
$) STATIC $( readstream 0 writestream 0 returned 0
lastchar 0 $) /**** OUTPUT ROUTINES ****/ LET wrch(char)
BE $( SWITCHON writest3 3333 3C3H3v333333333334 444444 4'4*4/42454844E4J4O4S
444e4o4r4y4444444444444444444555555)525955I5M5R5Y55d5i5t5w55555555555566666 6%6(
6+606366E6N6T6Z6c6l6t6z666666666666666666777B7I7P7S7V77g7r77777777777778888 8#8(
8-8083888B8G8J8M8R8U8Z88d8m8r8u8z888888888888888888888888889999#9(9+9.919999A9X9
9m99999999999999 (+.EHream INTO $( CASE vdustream wrvdu(char) END
CASE CASE printstream prch(char) ENDCASE DEFAULT write
ch(char) $) $) AND writef(string,a,b,c,d,e,f,g,h,i,j,k) BE $( LET ppt
r a FOR cptr 1 TO string%0 DO $( LET k string%cptr TEST k '%
' THEN $( LET arg !pptr cptr cptr + 1 $( LE
T ch, size string%cptr, decval(string%(cptr+1)) pptr pptr + 1
cptr cptr + VALOF SWITCHOKTXbequy999#9(9+9.919999A9X99m9999999999999
9 (+.EH
// last modified 02/1
1/1986 /**** GRAPHICS ROUTINES ****/ LET border(c1,c2) BE $( //Sets th
e border colours. BASIC BORDER c1,c2 INLINE 221,78,126 // ld c,(ix+126)
INLINE 221,70,124 // ld b,(ix+124) INLINE 205,#x38,#xBC NN uppe
rcase(ch) INTO $( CASE 'S' writes(arg) RESULTIS 0
CASE 'C' wrch(arg) RESULTIS 0 CASE 'N' writed(arg,0) RESULT
IS 0 CASE 'O' writeoct(arg,size) RESULTIS 1 CASE 'X' writ
ehex(arg,size) RESULTIS 1 CASE 'I' writed(arg,size) RESULTIS 1
CASE '$' RESULTIS 0 DEFAULT wrch(ch) pptr pptr - 1 RES
ULTIS 0 $) $) $) ELSE wrch(k) $) $) AND writes(
s) BE FOALOF $( INLINE 221,102,127 // get buffer address INLINE 221,
110,126 INLINE 41,235 // double and swap to de INLINE 221,102,12
5 // get pointer to name INLINE 221,110,124 INLINE 41,70,35 /
/ double, get name length and move hl on INLINE 221,229 // save ix
INLINE 205,#x77,#xBC // open file INLINE 221,225 // recover ix
INLINE 62,255 INLINE 56,2 // jr c,pc+2 INLINE 62,0 INLIN
E 221,119,125 // store open status R c 1 TO s%0 wrch(s%c) AND writed(nu
m,d) BE $( LET temp VEC 20 AND ptr, n 0, num IF num0 THEN d, n d-1,
-n temp!ptr, n, ptr n REM 10, n/10, ptr+1 REPEATUNTIL n 0 FOR j ptr+1
TO d DO wrch(' ') IF num0 THEN wrch('-') FOR j ptr-1 TO 0 BY -1 DO wrch(t
emp!j+'0') $) AND writen(n) BE writed(n,0) AND writehex(num,d) BE $(
IF D1 THEN writehex(num4, d-1) wrch((num LOGAND 15)!TABLE '0','1','2','3','4'
,'5','6','7','8','9', 'A',' INLINE 221,119,124
RESULTIS name $) AND endread() closein() AND findoutput(name,buffer)
VALOF $( INLINE 221,102,127 // get buffer address INLINE 221,110,126
INLINE 41,235 // double and swap to de INLINE 221,102,125
// get pointer to name INLINE 221,110,124 INLINE 41,70,35 // doubl
e, get name length and move hl on INLINE 221,229 // save ix INLIN
E 205,#x8C,#xBC // open file for output INLINE 221,225 // recover
ix B','C','D','E','F') $) AND writeoct(num,d) BE $( IF d1 THEN write
oct(num3,d-1) wrch((num LOGAND 7)+'0') $) AND newline() BE wrch(newlinec
h) /**** INPUT ROUTINES ****/ AND rdch() VALOF $( UNLESS returned
0 THEN $( LET c returned returned 0 lastchar c RESULTI
S c $) RESULTIS readstream 0 - rdvdu(), readch() $) AND unrdch() BE r
eturned lastchar AND reads(array) VALOF $( MANIFEST $( escape #xFC m
axlen255 $) LET ptINLINE 62,255 INLINE 56,2 // jr c,pc+2 IN
LINE 62,0 INLINE 221,119,125 // store open status INLINE 221,119,124
RESULTIS name $) AND endwrite() closeout() /**** PRIMITIVE I/O ROUT
INES ****/ AND wrvdu(c) VALOF $( IF cnewlinech THEN $( wrvdu(13) c10 $)
INLINE 221,126,126 INLINE 205,#x5A,#xBB RESULTIS TRUE $) AND prch(
c) VALOF $( IF cnewlinech THEN $( prch(13) c10 $) INLINE #xDD, #x7E, #x
7E INLINE #xCD, #x2B, #xBD INLINE #xr, c 0, $( FOR i1 to ptr DO
$( wrch(8) wrch(' ') wrch(8) $) ptr0 c rdch() UNTIL c13 cesca
pe DO $( TEST c127 THEN $( TEST ptr0 THEN wrch(7)
ELSE $( wrch(8) wrch(' ') wrch(8) ptr p
tr-1 $) $) ELSE $( TEST ptrmaxlen THEN wr
ch(7) ELSE $( wrch(c) ptr ptr + 1 arr
ay%ptr c $) $) c rdch() 30, #xFB RESULTIS TRUE $)
AND prbusy() VALOF $( LET a0 INLINE #xCD, #x2E, #xBD INLINE #x30,6
INLINE #xDD,#x36,#x78,#xFF RESULTIS a0 $) AND rdvdu() VALOF $(
LET key 0 INLINE 205,#x81,#xBB // call txt cur on INLINE 205,#x18,#xBB
// call wait key INLINE 221,119,120 // store it in key INLINE 205
,#x84,#xBB // call txt cur off RESULTIS key $) AND rdtest() VALOF $(
LET c0 INLINE 205,#x1B,#xBB // kmreadchar INLINE 205,#x0C,# $)
$) REPEATWHILE cescape & (ptr 0) array%0 cescape - 0, ptr RESULTI
S cescape $) AND readn() VALOF $( LET input VEC 128 reads(input)
RESULTIS strtonum(input,10) $) AND strtonum(string,base) VALOF $( LET
ptr, total 1, 0 WHILE ptr string%0 LOGAND (0decval(string%ptr)base) DO $
( total total * base + decval(string%ptr) ptr ptr + 1 $) RESUL
TIS total $) /**** FILE I/O ROUTINES ****/ AND findinput(name,buffer)
V NxBB // kmcharreturn INLINE #x9F // sbc a,a INLINE
#xDD,119,120 // ld (ix+120),a RESULTIS c0 $) AND flush() BE WHILE
rdtest() rdvdu() AND readch(dummy) VALOF $( LET char -1 INLINE 221,
229 // save ix INLINE 205,#x80,#xBC // get character INLINE 22
1,225 // recover ix INLINE 48,7 // jr nc,pc+6 INLINE
221,54,119,0 // store 0 in result bits 8-15 INLINE 221,119,118 // ld
(ix+118),a RESULTIS char $).!.!PRESULTIS outside a VALO!!+!6!"LOOP found ou
tside loo!2!v(FiBREAK found outside looRETURN found outside FUNC/PRO+V+r+V+85((L
abels need a globa6NF+V+*6*8*2*4"4"2"8"6*B*D*F*H"H"F"D"BF( nflnf*,##",R2226"4*"8
2723+V+*8!222262B2F"4"8"D"H AND closein(dummy) VALOF $( INLINE 205,#x7A,
#xBC // cas in close RESULTIS TRUE $) AND writech(c,dummy) VALOF $(
IF cnewlinech THEN $( UNLESS writech(13) RESULTIS FALSE c10 $
) INLINE 221,126,124 // ld a,(ix+124) INLINE 221,229 // save
ix INLINE 205,#x95,#xBC INLINE 221,225 // recover ix INLINE 6
2,255 // ld a,255 INLINE 56,2 // jr c,pc+2 INLINE 62
,0 INLINE 221,119,125 // store success/failure2723*+V++!6V+!2+V++V+z+++V
+KV+dV!z( ##V ####l(*"+*r+s+p+q+"**22"+V+rT*Tl*!"*+V+*R####l*ut*RuE(+*++++nflnfl
++++* *##l""!""w((CASE/DEFAULT outsi INLINE 221,119,124 RESULTIS c $)
AND closeout(dummy) VALOF $( INLINE 221,229 // save ix INLINE 2
05,#x8F,#xBC // close output file INLINE 221,225 // recover ix
INLINE 62,255 INLINE 56,2 // jr c,pc+2 INLINE 62,0 INLINE
221,119,127 // store close status INLINE 221,119,126 RESULTIS dummy
$) /**** MISCELLANEOUS ROUTINES ****/ AND selectinput(stream) BE readst
ream stream AND selectoutput(stream) BE writestream stream de a SWITCHO+V+*K
DM!9Bis#r#s#r*####"+V+wj*"+V+!!ENDCASE used outside SWITCHO*$*"$2nfr!*$nfr*K*$q#
pnf !!"(!0"4g."2%%"6"8**nfnf2"*C!6!I!2"*$"$g" BKzWRDMgR#+CHil*Zl!zMO AND input()
readstream AND output() writestream AND uppercase(char) 'a'char'z' - char
- 32, char AND capitalch(c) uppercase(c) AND decval(digit) '0'digit'9' - d
igit-'0', digit-'A'+10 bytesperword 2 bitsperword 16 c+2 INLINE 6
2,0 INLINE 221,119,127 // store close status INLINE 221,119,126 RE
SULTIS dummy $) /**** MISCELLANEOUS ROUTINES ****/ AND selectinput(stre
am) BE readstream stream AND selectoutput(stream) BE writestream stream RKw
C3.-9E& NG/b59H#$rR28Qh!%Unexpected node in expression!8 !0$fn0!*+V+r!go#+V+r! (
go#*.*02.2/"0+V+!. VALOF must contain RESULTI"0".!!l!!l+V+!QOx8&Invalid applica
tion of L8 S!"B"F"D"H+V++V+!B(!Fnfs#r+++V+CV+O "83( r*VlG x26(xr+++V+xCV+!"B"F"D
"H+++++V+!BV+!F+V+s#rDM222B2F262723*"8"4"D"H+V++V+*8!2+V+r.2 N(0!n-&l!!F !nfl+V
+r+V+r!)#V+V+r!go!*### l*(Ox s#r+V+ws#r6 +V++V+l!R!(!!R! !+++V+78 +V+r!il#++++V+
78!,R+V+r!R!+++V+78*Pl+V+r!v!otu08"Invalid assignmen( nfO # #N#F####BK#V#B(## #V
*DM!9BiKB83*Kx(TZDM!9B88iK*Z"*Kq#p#s#r#w""Out of memory* B** *####l*"fnfR 3G($(!
Dynamic free variable used,7nf# qq*#"# qq0*#" il*Pl88G)!!!!!!T)T))T))T))T))))T)
)*Rlk!F!FR!8!k!f!fR!0!*Rl!! go!go!g£o!go*l*l!"B"F"D"Hnf!Bnfr!Fnfrs#rw!sn&! Z ZBK
Vqp6q#pFnfsrBKOx2GyOx o&!l9!*(+V+!0 inglobal definition###!h2£!gvz'. Compilatio
n abandoned.z 0###VT#(*!9DMB8Out of symbol spacer+s6#6#6#w#8"7O#8y'O!#V!9R72 (
#x*#"2&2& v0$v! "0Ow2#V#! !+V++rsV+rs!r2!+r+sM95+V++F+n+F+N+V+iM(2O(.M(MO(I0rrM
(O(0rrrSO(8 0$V0K(L(7G#x2#!2#F .pMNONr!03#(!U(###!B!F (08F nfDM2S00o&"M2# zM2b
8Ro&"Mo 8o&"Mx 8"o&"M08800o&"MiExpecting number' !o&0&"'NM2!G( #2##x/ Q 8/ 0*
(2x *#"* x*(/ 0 / r j 2 U M2 8 %02- 2 22$ /( $v! H)$v! I2". Hv(GR !(###il!l
3kkJV70O J+V+O 1840# r!03!l+V+78+V++Fr+Ns##q#p7R#!B#!F*B*D#!"B"D+V+!B2#"D"B+V+*F
*H#!"F"H+V+!F2#"H"F+V+1#+V+*BKFCB"F*DKHCD"H7!zp+F+N+V+i +V++F+n787*y"y2v2nf"wnf"
x0z02( 8 82" !" !qN80 #wyiString too long 8 2 2iBad characteriBad character con
stantW4dV4EMLJ-6uvw!h(q#2&((Broken in+5,67&!8*9(A)BAB%QRv( (" iBad GET2*yvww*wut
*ut"y!"(!u2v 20v 2v*"8X!gzW78r!glg!zgklglO(0rS!!glzW7Need constant expressio!OhM
59$ %.8(V7+V+7+V+7+V+77R77979i7W£7W777z(T7z(%T7cx)0!Rc!R8 PYgo#DM!x( BDM!zR Nw
20nk!l%!b Dk+( -12L2k,OO OOM12nO!s(9o 2M 5*""tnEh # 2M *n*k+(-(iBad option line
wke , (! w#8.( w#+w)T))008)))002)08ag'0)))) N*7!u#() xWXW!zN(### 7 *#"*(!u#N(N
NG ''**""// ALIBHDR standard AMSDOS library header, last modified 12/11/1986
MANIFEST $( bytesperword 2 bitsperword 16 softeofch 26
endstreamch -1 vdustream 0 printstream 1 maxin
t 32767 minint -32768 newlinech 269 tickspersec 300
$) STATIC $( readstream 0 writestream 0 returned 0
lastchar 0 $) /**** OUTPUT ROUTINES ****/ LET wrch(char) BE
$( SWITCHON writestNnTtS s BbPpC c 8ag87'0a87087andbebreakbycasedodefaulteqeq
velseendcasefalseforfinishgotogegrglobalgetgtifintoinlineletlvlelsltlogorlogandl
ooplshiftmanifestnenotneqvorresultisreturn£remrshiftrvrepeatrepeatwhilerepeatunt
ilswitchonstatictotesttruethentableuntilunlessvecvalofwhileoptionabs#!F*B*D#!"B"
D+V+!B2#"D"B+V+*F*H#!"F"H+V+ream INTO $( CASE vdustream wrvdu(char)
ENDCASE CASE printstream prch(char) ENDCASE DEFAULT
writech(char) $) $) AND writef(string,a,b,c,d,e,f,g,h,i,j,k) BE $( LE
T pptr a FOR cptr 1 TO string%0 DO $( LET k string%cptr TEST
k '%' THEN $( LET arg !pptr cptr cptr + 1 $(
LET ch, size string%cptr, decval(string%(cptr+1)) pptr pptr + 1
cptr cptr + VALOF SWITCHO#!F*B*D#!"B"D+V+!B2#"D"B+V+*F*H#!"F"H+
V+N uppercase(ch) INTO $( CASE 'S' writes(arg) RESULTIS 0
CASE 'C' wrch(arg) RESULTIS 0 CASE 'N' writed(arg,0)
RESULTIS 0 CASE 'O' writeoct(arg,size) RESULTIS 1 CASE
'X' writehex(arg,size) RESULTIS 1 CASE 'I' writed(arg,size) RESUL
TIS 1 CASE '$' RESULTIS 0 DEFAULT wrch(ch) pptr pptr -
1 RESULTIS 0 $) $) $) ELSE wrch(k) $) $) AND
writes(s) BE FOwscreen TRUE deletel(inbuff) ENDCASE CASE 13 newscreen
TRUE addl(inbuff) ENDCASE CASE cursup CASE scursup upcurs(inbuff) EN
DCASE CASE cursdown CASE scursdown downcurs(inbuff) ENDCASE CASE
ccursup supcurs(inbuff) ENDCASE CASE ccursdown sdowncurs(inbuff) ENDCAS
E CASE copensq top(inbuff) ENDCASE CASE ccloR c 1 TO s%0 wrch(s%
c) AND writed(num,d) BE $( LET temp VEC 20 AND ptr, n 0, num IF n
um0 THEN d, n d-1, -n temp!ptr, n, ptr n REM 10, n/10, ptr+1 REPEATUNTIL n
0 FOR j ptr+1 TO d DO wrch(' ') IF num0 THEN wrch('-') FOR j ptr-1 T
O 0 BY -1 DO wrch(temp!j+'0') $) AND writen(n) BE writed(n,0) AND writehe
x(num,d) BE $( IF D1 THEN writehex(num4, d-1) wrch((num LOGAND 15)!TABLE
'0','1','2','3','4','5','6','7','8','9', 'A',' NB
','C','D','E','F') $) AND writeoct(num,d) BE $( IF d1 THEN writeoct(num3
,d-1) wrch((num LOGAND 7)+'0') $) AND newline() BE wrch(newlinech)
/**** INPUT ROUTINES ****/ AND rdch() VALOF $( UNLESS returned 0 THEN
$( LET c returned returned 0 lastchar c RESULTIS c $
) RESULTIS readstream 0 - rdvdu(), readch() $) AND unrdch() BE returned
lastchar AND reads(array) VALOF $( MANIFEST $( escape #xFC maxlen255
$) LET ptINLINE 62,255 INLINE 56,2 // jr c,pc+2 INLINE 62,
0 INLINE 221,119,125 // store open status INLINE 221,119,124 RESUL
TIS name $) AND endwrite() closeout() /**** PRIMITIVE I/O ROUTINES ***
*/ AND wrvdu(c) VALOF $( IF cnewlinech THEN $( wrvdu(13) c10 $) INLI
NE 221,126,126 INLINE 205,#x5A,#xBB RESULTIS TRUE $) AND prch(c) VALO
F $( IF cnewlinech THEN $( prch(13) c10 $) INLINE #xDD, #x7E, #x7E IN
LINE #xCD, #x2B, #xBD INLINE #xr, c 0, $( FOR i1 to ptr DO $( wrch(
8) wrch(' ') wrch(8) $) ptr0 c rdch() UNTIL c13 cescape DO
$( TEST c127 THEN $( TEST ptr0 THEN wrch(7) E
LSE $( wrch(8) wrch(' ') wrch(8) ptr ptr-1
$) $) ELSE $( TEST ptrmaxlen THEN wrch(7)
ELSE $( wrch(c) ptr ptr + 1 array%ptr
c $) $) c rdch() 30, #xFB RESULTIS TRUE $) AND pr
busy() VALOF $( LET a0 INLINE #xCD, #x2E, #xBD INLINE #x30,6 INLIN
E #xDD,#x36,#x78,#xFF RESULTIS a0 $) AND rdvdu() VALOF $( LET key
0 INLINE 205,#x81,#xBB // call txt cur on INLINE 205,#x18,#xBB // c
all wait key INLINE 221,119,120 // store it in key INLINE 205,#x84,#x
BB // call txt cur off RESULTIS key $) AND rdtest() VALOF $( LET c
0 INLINE 205,#x1B,#xBB // kmreadchar INLINE 205,#x0C,# $) $)
REPEATWHILE cescape & (ptr 0) array%0 cescape - 0, ptr RESULTIS cescap
e $) AND readn() VALOF $( LET input VEC 128 reads(input) RESULTI
S strtonum(input,10) $) AND strtonum(string,base) VALOF $( LET ptr, tot
al 1, 0 WHILE ptr string%0 LOGAND (0decval(string%ptr)base) DO $( t
otal total * base + decval(string%ptr) ptr ptr + 1 $) RESULTIS tota
l $) /**** FILE I/O ROUTINES ****/ AND findinput(name,buffer) VxBB
// kmcharreturn INLINE #x9F // sbc a,a INLINE #xDD,119,1
20 // ld (ix+120),a RESULTIS c0 $) AND flush() BE WHILE rdtest() r
dvdu() AND readch(dummy) VALOF $( LET char -1 INLINE 221,229
// save ix INLINE 205,#x80,#xBC // get character INLINE 221,225
// recover ix INLINE 48,7 // jr nc,pc+6 INLINE 221,54,119,
0 // store 0 in result bits 8-15 INLINE 221,119,118 // ld (ix+118),a
RESULTIS char $)ALOF $( INLINE 221,102,127 // get buffer address
INLINE 221,110,126 INLINE 41,235 // double and swap to de INLI
NE 221,102,125 // get pointer to name INLINE 221,110,124 INLINE 41,70
,35 // double, get name length and move hl on INLINE 221,229
// save ix INLINE 205,#x77,#xBC // open file INLINE 221,225 /
/ recover ix INLINE 62,255 INLINE 56,2 // jr c,pc+2 INLINE
62,0 INLINE 221,119,125 // store open status AND closein(dummy) VAL
OF $( INLINE 205,#x7A,#xBC // cas in close RESULTIS TRUE $) AND wr
itech(c,dummy) VALOF $( IF cnewlinech THEN $( UNLESS writech(13) RE
SULTIS FALSE c10 $) INLINE 221,126,124 // ld a,(ix+124) INLIN
E 221,229 // save ix INLINE 205,#x95,#xBC INLINE 221,225
// recover ix INLINE 62,255 // ld a,255 INLINE 56,2
// jr c,pc+2 INLINE 62,0 INLINE 221,119,125 // store success/failure
INLINE 221,119,124 RESULTIS name $) AND endread() closein() AND fi
ndoutput(name,buffer) VALOF $( INLINE 221,102,127 // get buffer addres
s INLINE 221,110,126 INLINE 41,235 // double and swap to de I
NLINE 221,102,125 // get pointer to name INLINE 221,110,124 INLINE 41
,70,35 // double, get name length and move hl on INLINE 221,229
// save ix INLINE 205,#x8C,#xBC // open file for output INLINE 221,
225 // recover ix N INLINE 221,119,124 RESULTIS c $) AND
closeout(dummy) VALOF $( INLINE 221,229 // save ix INLINE 205,
#x8F,#xBC // close output file INLINE 221,225 // recover ix IN
LINE 62,255 INLINE 56,2 // jr c,pc+2 INLINE 62,0 INLINE 221
,119,127 // store close status INLINE 221,119,126 RESULTIS dummy $)
/**** MISCELLANEOUS ROUTINES ****/ AND selectinput(stream) BE readstrea
m stream AND selectoutput(stream) BE writestream stream AND input() reads
tream AND output() writestream AND uppercase(char) 'a'char'z' - char - 32, c
har AND capitalch(c) uppercase(c) AND decval(digit) '0'digit'9' - digit-'0'
, digit-'A'+10 bytesperword 2 bitsperword 16 N N N !N
!!!!!!!!! "N""""""""" #N######### $N$$$$$$$$$ %N%%%%%%%%% &N&&&&&&&&& 'N''
''''''' (N )NTous droits réservés. Reproduction sans autorisation interdite. © Kukulcan