ULTRABASIC-DEMO

00000000: 01 2C 1C 2C 50 00 8F 20  2A 2A 2A 2A 2A 2A 2A 20  |.,.,P.. ******* |
00000010: 54 49 54 4C 45 20 53 43  52 45 45 4E 00 25 2C 64  |TITLE SCREEN.%,d|
00000020: 00 DA 32 2C 32 00 3F 2C  65 00 97 39 30 30 2C 47  |..2,2.?,e..900,G|
00000030: 54 3A 9C 3A 47 54 B2 C2  28 39 30 30 29 AA 31 00  |T:.:GT..(900).1.|
00000040: 61 2C 78 00 D8 33 2C 34  30 2C 31 39 36 2C 37 2C  |a,x..3,40,196,7,|
00000050: 22 C1 42 41 43 55 53 20  D3 4F 46 54 57 41 52 45  |".BACUS .OFTWARE|
00000060: 22 00 85 2C 8C 00 D8 32  2C 32 32 2C 31 37 35 2C  |"..,...2,22,175,|
00000070: 39 2C 22 2A 20 55 4C 54  52 41 42 41 53 49 43 2D  |9,"* ULTRABASIC-|
00000080: 36 34 20 2A 22 00 9F 2C  A0 00 81 4E B2 31 A4 31  |64 *"..,...N.1.1|
00000090: 35 A9 31 30 3A 58 B2 35  34 3A 59 B2 4E AC 38 00  |5.10:X.54:Y.N.8.|
000000A0: B1 2C B4 00 F4 31 2C 58  2C 59 3A F3 31 33 20 3A  |.,...1,X,Y:.13 :|
000000B0: F2 00 BD 2C C8 00 EF AB  39 35 3A F5 34 00 DE 2C  |...,....95:.4..,|
000000C0: DC 00 81 20 49 B2 31 A4  32 32 3A 44 B2 35 3A 54  |... I.1.22:D.5:T|
000000D0: B2 39 3A 8D 34 32 30 3A  82 3A F5 31 AA 44 00 F3  |.9:.420:.:.1.D..|
000000E0: 2C F0 00 EF 31 38 30 3A  F5 31 35 3A EF AB 38 35  |,...180:.15:..85|
000000F0: 3A F5 36 00 12 2D 04 01  81 20 49 B2 31 A4 32 32  |:.6..-... I.1.22|
00000100: 3A 44 B2 32 2E 35 3A 54  B2 AB 39 3A 8D 34 32 30  |:D.2.5:T..9:.420|
00000110: 3A 82 00 22 2D 18 01 F5  36 3A EF 31 38 30 3A F5  |:.."-...6:.180:.|
00000120: 31 35 00 3D 2D 2C 01 F1  3A F0 AB 39 30 3A F5 31  |15.=-,..:..90:.1|
00000130: 2E 35 3A F0 AB 39 30 3A  F5 33 31 3A F2 00 64 2D  |.5:..90:.31:..d-|
00000140: 40 01 EF 39 30 3A F5 32  30 3A F0 AB 34 35 3A F5  |@..90:.20:..45:.|
00000150: 32 30 3A EF AB 39 30 3A  F5 33 35 3A F0 AB 39 30  |20:..90:.35:..90|
00000160: 3A F5 31 33 00 7A 2D 54  01 F1 3A F5 33 2E 37 3A  |:.13.z-T..:.3.7:|
00000170: F0 AB 39 30 3A F5 2E 35  3A F2 00 9F 2D 68 01 EF  |..90:..5:...-h..|
00000180: 39 30 3A F5 32 30 3A F0  34 35 3A F5 32 30 3A EF  |90:.20:.45:.20:.|
00000190: AB 39 30 3A F5 33 35 3A  F0 39 30 3A F5 31 35 00  |.90:.35:.90:.15.|
000001A0: CB 2D 7C 01 E0 58 AB 31  30 2C 59 2C 37 2C 30 3A  |.-|..X.10,Y,7,0:|
000001B0: E0 58 AA 34 2C 59 AA 33  34 2C 37 2C 30 3A E0 58  |.X.4,Y.34,7,0:.X|
000001C0: AA 34 2C 59 AA 32 35 2C  33 2C 30 00 D6 2D 90 01  |.4,Y.25,3,0..-..|
000001D0: 82 3A 89 34 34 30 00 E2  2D A4 01 F5 44 3A F0 54  |.:.440..-...D:.T|
000001E0: 3A 8E 00 F3 2D B8 01 8F  20 57 52 49 54 45 20 4E  |:...-... WRITE N|
000001F0: 41 4D 45 00 21 2E CC 01  58 30 B2 31 32 39 3A 59  |AME.!...X0.129:Y|
00000200: 30 B2 31 31 39 3A 53 5A  B2 35 3A 53 51 B2 53 5A  |0.119:SZ.5:SQ.SZ|
00000210: AC BA 28 32 29 3A 41 24  B2 22 54 55 52 54 4C 45  |..(2):A$."TURTLE|
00000220: 22 00 3E 2E E0 01 F4 31  2C 58 30 2C 59 30 3A F0  |".>....1,X0,Y0:.|
00000230: 39 30 3A 81 41 B2 31 A4  36 3A 8D 39 30 30 00 44  |90:.A.1.6:.900.D|
00000240: 2E F4 01 82 00 63 2E 08  02 58 30 B2 31 30 35 3A  |.....c...X0.105:|
00000250: 59 30 B2 37 31 3A 41 24  B2 22 47 52 41 50 48 49  |Y0.71:A$."GRAPHI|
00000260: 43 53 22 00 80 2E 1C 02  F4 31 2C 58 30 2C 59 30  |CS"......1,X0,Y0|
00000270: 3A F0 39 30 3A 81 41 B2  31 A4 38 3A 8D 39 30 30  |:.90:.A.1.8:.900|
00000280: 00 99 2E 30 02 82 3A F0  AB 39 30 3A F5 36 30 3A  |...0..:..90:.60:|
00000290: F0 AB 39 30 3A F5 31 30  30 00 A5 2E 44 02 8F 20  |..90:.100...D.. |
000002A0: 53 4F 55 4E 44 00 C1 2E  58 02 ED 22 45 46 31 30  |SOUND...X.."EF10|
000002B0: 46 46 35 30 30 32 31 30  46 46 31 30 30 30 30 30  |FF500210FF100000|
000002C0: 22 00 D0 2E 6C 02 EE 31  2C 36 30 30 3A E4 31 35  |"...l..1,600:.15|
000002D0: 00 DB 2E 80 02 EC 31 2C  31 32 38 00 F7 2E 94 02  |......1,128.....|
000002E0: D8 33 2C 31 33 30 2C 33  30 2C 36 2C 22 41 4E 44  |.3,130,30,6,"AND|
000002F0: 20 D3 CF D5 CE C4 22 00  02 2F A8 02 EE 32 2C 37  | ....."../...2,7|
00000300: 30 30 00 16 2F BC 02 ED  22 33 30 31 30 31 30 31  |00../..."3010101|
00000310: 30 31 30 31 30 22 00 21  2F D0 02 EC 32 2C 32 35  |01010".!/...2,25|
00000320: 34 00 31 2F E4 02 81 49  B2 31 A4 34 30 30 30 3A  |4.1/...I.1.4000:|
00000330: 82 00 42 2F F8 02 E5 33  2C 38 2C 30 2C 34 2C 30  |..B/...3,8,0,4,0|
00000340: 2C 30 00 5E 2F 0C 03 FB  32 30 3A EB 33 2C 35 30  |,0.^/...20:.3,50|
00000350: 2C 34 3A 81 49 B2 31 A4  35 30 3A 82 3A FC 00 71  |,4:.I.1.50:.:..q|
00000360: 2F 20 03 E5 32 2C 32 2C  35 2C 35 2C 35 2C 30 2C  |/ ..2,2,5,5,5,0,|
00000370: 30 00 7C 2F 34 03 EE 32  2C 38 34 30 00 AC 2F 48  |0.|/4..2,840../H|
00000380: 03 ED 22 32 30 32 30 30  38 30 31 30 30 32 30 30  |.."2020080100200|
00000390: 38 30 31 30 30 32 30 31  30 30 31 30 30 32 30 30  |8010020100100200|
000003A0: 30 32 30 46 46 34 30 30  30 30 30 22 00 B7 2F 5C  |020FF400000"../\|
000003B0: 03 EC 32 2C 32 35 35 00  D0 2F 70 03 81 49 B2 31  |..2,255../p..I.1|
000003C0: A4 33 30 30 30 3A 82 3A  E4 30 3A 89 31 38 30 30  |.3000:.:.0:.1800|
000003D0: 00 E9 2F 84 03 43 56 B2  C6 28 CA 28 41 24 2C 41  |../..CV..(.(A$,A|
000003E0: 2C 31 29 29 AB 36 34 3A  F1 00 26 30 98 03 91 43  |,1)).64:..&0...C|
000003F0: 56 89 39 38 30 2C 36 33  39 39 39 2C 31 30 36 30  |V.980,63999,1060|
00000400: 2C 36 33 39 39 39 2C 31  31 32 30 2C 36 33 39 39  |,63999,1120,6399|
00000410: 39 2C 31 31 38 30 2C 31  32 36 30 2C 31 33 32 30  |9,1180,1260,1320|
00000420: 2C 36 33 39 39 39 00 68  30 AC 03 91 43 56 AB 31  |,63999.h0...CV.1|
00000430: 30 89 36 33 39 39 39 2C  31 33 38 30 2C 36 33 39  |0.63999,1380,639|
00000440: 39 39 2C 36 33 39 39 39  2C 36 33 39 39 39 2C 31  |99,63999,63999,1|
00000450: 34 32 30 2C 36 33 39 39  39 2C 31 34 38 30 2C 31  |420,63999,1480,1|
00000460: 35 36 30 2C 31 36 32 30  00 96 30 C0 03 91 43 56  |560,1620..0...CV|
00000470: AB 32 30 89 31 36 38 30  2C 36 33 39 39 39 2C 36  |.20.1680,63999,6|
00000480: 33 39 39 39 2C 36 33 39  39 39 2C 36 33 39 39 39  |3999,63999,63999|
00000490: 2C 36 33 39 39 39 00 C1  30 D4 03 F0 39 30 3A F5  |,63999..0...90:.|
000004A0: 35 AC 53 5A 3A F0 31 38  30 3A F2 3A F5 53 5A AC  |5.SZ:.180:.:.SZ.|
000004B0: 34 3A F0 34 35 3A F5 53  51 3A F0 34 35 3A F5 53  |4:.45:.SQ:.45:.S|
000004C0: 5A 00 F1 30 E8 03 F0 34  35 3A F5 53 51 3A F0 34  |Z..0...45:.SQ:.4|
000004D0: 35 3A F5 53 5A AC 34 3A  F0 31 38 30 3A F1 3A F5  |5:.SZ.4:.180:.:.|
000004E0: 32 AC 53 5A 3A F0 AB 39  30 3A F2 3A F5 33 AC 53  |2.SZ:..90:.:.3.S|
000004F0: 5A 00 06 31 FC 03 F1 3A  F0 31 33 35 3A F5 33 AC  |Z..1...:.135:.3.|
00000500: 53 51 3A F0 34 35 00 10  31 10 04 89 31 37 32 30  |SQ:.45..1...1720|
00000510: 00 3D 31 24 04 F5 33 AC  53 5A 3A F0 39 30 3A F5  |.=1$..3.SZ:.90:.|
00000520: 34 AC 53 5A 3A F2 3A 8D  31 37 34 30 3A F5 33 AC  |4.SZ:.:.1740:.3.|
00000530: 53 5A 3A 8D 31 37 34 30  3A F0 31 38 30 00 4B 31  |SZ:.1740:.180.K1|
00000540: 38 04 F1 3A F5 53 5A 3A  F0 39 30 00 55 31 4C 04  |8..:.SZ:.90.U1L.|
00000550: 89 31 37 32 30 00 84 31  60 04 F0 39 30 3A F2 3A  |.1720..1`..90:.:|
00000560: F5 35 AC 53 5A 3A F0 AB  39 30 3A F5 33 AC 53 5A  |.5.SZ:..90:.3.SZ|
00000570: 3A F0 AB 39 30 3A F1 3A  F5 32 2E 35 AC 53 5A 3A  |:..90:.:.2.5.SZ:|
00000580: F0 AB 39 30 00 8C 31 6A  04 F5 53 5A 00 B2 31 74  |..90..1j..SZ..1t|
00000590: 04 F2 3A F5 32 AC 53 5A  3A F0 39 30 3A F5 32 2E  |..:.2.SZ:.90:.2.|
000005A0: 35 30 32 AC 53 5A 3A F0  39 30 3A F2 3A F5 33 AC  |502.SZ:.90:.:.3.|
000005B0: 53 5A 00 BC 31 88 04 89  31 37 32 30 00 E3 31 9C  |SZ..1...1720..1.|
000005C0: 04 F5 32 AC 53 5A 3A F0  39 30 3A F5 33 AC 53 5A  |..2.SZ:.90:.3.SZ|
000005D0: 3A F0 AB 39 30 3A F2 3A  F5 53 5A 3A F0 39 30 3A  |:..90:.:.SZ:.90:|
000005E0: F5 53 5A 00 FF 31 B0 04  3A 8D 31 37 34 30 3A F5  |.SZ..1..:.1740:.|
000005F0: 33 AC 53 5A 3A 8D 31 37  34 30 3A F0 31 38 30 00  |3.SZ:.1740:.180.|
00000600: 0D 32 C4 04 F1 3A F5 53  5A 3A F0 39 30 00 17 32  |.2...:.SZ:.90..2|
00000610: D8 04 89 31 37 32 30 00  42 32 EC 04 F2 3A F0 39  |...1720.B2...:.9|
00000620: 30 3A F5 35 AC 53 5A 3A  F0 31 38 30 3A F1 3A F5  |0:.5.SZ:.180:.:.|
00000630: 32 2E 35 AC 53 5A 3A F0  39 30 3A F2 3A F5 33 AC  |2.5.SZ:.90:.:.3.|
00000640: 53 5A 00 68 32 00 05 F1  3A F0 39 30 3A F5 32 2E  |SZ.h2...:.90:.2.|
00000650: 35 AC 53 5A 3A F0 31 38  30 3A F2 3A F5 53 5A AC  |5.SZ:.180:.:.SZ.|
00000660: 35 2E 30 32 3A F0 39 30  00 72 32 14 05 89 31 37  |5.02:.90.r2...17|
00000670: 32 30 00 9B 32 28 05 F5  31 2E 35 AC 53 5A 3A F0  |20..2(..1.5.SZ:.|
00000680: 39 30 3A F2 3A F5 35 AC  53 5A 3A F1 3A F0 31 38  |90:.:.5.SZ:.:.18|
00000690: 30 3A F5 35 AC 53 5A 3A  F0 39 30 00 A7 32 3C 05  |0:.5.SZ:.90..2<.|
000006A0: F5 31 2E 35 AC 53 5A 00  B1 32 50 05 89 31 37 32  |.1.5.SZ..2P..172|
000006B0: 30 00 DD 32 64 05 F0 39  30 3A F2 3A F5 35 AC 53  |0..2d..90:.:.5.S|
000006C0: 5A 3A F0 AB 39 30 3A F5  33 AC 53 5A 3A F0 AB 39  |Z:..90:.3.SZ:..9|
000006D0: 30 3A F1 3A F5 35 AC 53  5A 3A F0 39 30 00 E7 32  |0:.:.5.SZ:.90..2|
000006E0: 78 05 89 31 37 32 30 00  13 33 8C 05 F2 3A F5 32  |x..1720..3...:.2|
000006F0: AC 53 5A 3A 8D 31 37 36  30 3A F5 32 AC 53 5A 3A  |.SZ:.1760:.2.SZ:|
00000700: F0 AB 39 30 3A F1 3A F5  32 AC 53 5A 3A F0 31 38  |..90:.:.2.SZ:.18|
00000710: 30 3A F2 00 2C 33 A0 05  3A F5 35 2E 31 AC 53 5A  |0:..,3..:.5.1.SZ|
00000720: 3A F0 39 30 3A F1 3A F5  33 AC 53 5A 00 36 33 B4  |:.90:.:.3.SZ.63.|
00000730: 05 89 31 37 32 30 00 62  33 C8 05 F2 3A F5 32 AC  |..1720.b3...:.2.|
00000740: 53 5A 3A 8D 31 37 36 30  3A F5 32 AC 53 5A 3A F0  |SZ:.1760:.2.SZ:.|
00000750: 31 38 30 3A F1 3A F5 2E  35 AC 53 5A 3A F0 34 30  |180:.:..5.SZ:.40|
00000760: 3A F2 00 79 33 DC 05 F5  32 AC 53 51 3A F0 31 34  |:..y3...2.SQ:.14|
00000770: 30 3A F1 3A F5 33 AC 53  5A 00 97 33 F0 05 F0 39  |0:.:.3.SZ..3...9|
00000780: 30 3A F2 3A F5 35 2E 31  AC 53 5A 3A F0 39 30 3A  |0:.:.5.1.SZ:.90:|
00000790: F1 3A F5 33 AC 53 5A 00  A1 33 04 06 89 31 37 32  |.:.3.SZ..3...172|
000007A0: 30 00 CC 33 18 06 F0 39  30 3A F5 34 AC 53 5A 3A  |0..3...90:.4.SZ:|
000007B0: F2 3A 8D 31 37 38 30 3A  F0 AB 34 35 3A F5 33 AC  |.:.1780:..45:.3.|
000007C0: 53 51 3A F0 34 35 3A 8D  31 37 34 30 00 DF 33 2C  |SQ:.45:.1740..3,|
000007D0: 06 F0 31 38 30 3A F1 3A  F5 53 5A 3A F0 39 30 00  |..180:.:.SZ:.90.|
000007E0: E9 33 40 06 89 31 37 32  30 00 18 34 54 06 F2 3A  |.3@..1720..4T..:|
000007F0: F5 33 AC 53 5A 3A F1 3A  F0 31 38 30 3A F5 31 2E  |.3.SZ:.:.180:.1.|
00000800: 35 AC 53 5A 3A F0 AB 39  30 3A F2 3A F5 35 AC 53  |5.SZ:..90:.:.5.S|
00000810: 5A 3A F1 3A F0 AB 39 30  00 33 34 68 06 F5 31 2E  |Z:.:..90.34h..1.|
00000820: 35 AC 53 5A 3A F0 AB 39  30 3A F5 35 AC 53 5A 3A  |5.SZ:..90:.5.SZ:|
00000830: F0 39 30 00 3D 34 7C 06  89 31 37 32 30 00 5D 34  |.90.=4|..1720.]4|
00000840: 90 06 F0 39 30 3A F2 3A  F5 34 AC 53 5A 3A 8D 31  |...90:.:.4.SZ:.1|
00000850: 37 38 30 3A F5 34 AC 53  5A 3A F0 39 30 00 67 34  |780:.4.SZ:.90.g4|
00000860: A4 06 89 31 37 32 30 00  75 34 B8 06 F1 3A F5 32  |...1720.u4...:.2|
00000870: AC 53 5A 3A 8E 00 97 34  CC 06 F0 34 35 3A F5 53  |.SZ:...4...45:.S|
00000880: 51 3A F0 34 35 3A F5 53  5A 3A F0 34 35 3A F5 53  |Q:.45:.SZ:.45:.S|
00000890: 51 3A F0 34 35 3A 8E 00  BD 34 E0 06 F0 34 35 3A  |Q:.45:...4...45:|
000008A0: F5 53 51 3A F0 34 35 3A  F5 31 2E 33 AC 53 5A 3A  |.SQ:.45:.1.3.SZ:|
000008B0: F0 34 35 3A F5 53 51 3A  F0 34 35 3A 8E 00 E3 34  |.45:.SQ:.45:...4|
000008C0: F4 06 F0 AB 34 35 3A F5  53 51 3A F0 AB 34 35 3A  |....45:.SQ:..45:|
000008D0: F5 53 5A 3A F0 AB 34 35  3A F5 53 51 3A F0 AB 34  |.SZ:..45:.SQ:..4|
000008E0: 35 3A 8E 00 FF 34 07 07  8F 20 2A 2A 2A 2A 2A 2A  |5:...4... ******|
000008F0: 2A 2A 53 51 49 52 41 4C  20 53 43 52 45 45 4E 00  |**SQIRAL SCREEN.|
00000900: 08 35 08 07 DB 31 2C 31  00 23 35 1C 07 F4 37 2C  |.5...1,1.#5...7,|
00000910: 38 32 2C 31 38 32 3A F0  39 30 3A F3 39 3A 8D 31  |82,182:.90:.9:.1|
00000920: 39 32 30 00 36 35 30 07  F6 3A F4 32 2C 32 30 2C  |920.650..:.2,20,|
00000930: 32 30 3A F0 39 30 00 59  35 44 07 81 49 B2 31 A4  |20:.90.Y5D..I.1.|
00000940: 36 3A 8D 31 39 30 30 3A  EF 34 35 3A F1 3A F5 31  |6:.1900:.45:.:.1|
00000950: 30 3A F2 3A EF 39 30 3A  82 00 71 35 58 07 F6 3A  |0:.:.90:..q5X..:|
00000960: 81 49 B2 31 A4 32 30 30  30 3A 82 3A 89 31 39 36  |.I.1.2000:.:.196|
00000970: 30 00 8F 35 6C 07 F5 31  32 3A F0 AB 31 32 30 3A  |0..5l..12:..120:|
00000980: F5 31 32 3A F0 AB 31 32  30 3A F5 31 32 3A 8E 00  |.12:..120:.12:..|
00000990: B0 35 80 07 49 B2 31 36  30 3A FB 31 30 30 30 3A  |.5..I.160:.1000:|
000009A0: F5 49 3A 49 B2 49 AB 31  3A 8B 49 B3 38 A7 3A FE  |.I:I.I.1:.I.8.:.|
000009B0: 00 BC 35 94 07 F0 38 39  3A FC 3A 8E 00 DA 35 A7  |..5...89:.:...5.|
000009C0: 07 8F 20 2A 2A 2A 2A 2A  2A 2A 2A 46 52 41 43 54  |.. ********FRACT|
000009D0: 41 4C 53 20 53 43 52 45  45 4E 00 E3 35 A8 07 DB  |ALS SCREEN..5...|
000009E0: 31 2C 31 00 08 36 BC 07  81 49 B2 31 A4 35 3A 53  |1,1..6...I.1.5:S|
000009F0: B2 33 30 30 3A 53 51 B2  53 3A 53 52 B2 53 3A 53  |.300:SQ.S:SR.S:S|
00000A00: 53 B2 53 3A 4B 58 B2 53  00 20 36 D0 07 F4 30 2C  |S.S:KX.S. 6...0,|
00000A10: 31 30 2C 32 AA 31 AC 49  AE 32 2E 38 3A F0 39 30  |10,2.1.I.2.8:.90|
00000A20: 00 43 36 E4 07 91 20 49  20 8D 20 32 30 38 30 2C  |.C6... I . 2080,|
00000A30: 32 31 32 30 2C 32 33 30  30 2C 32 34 38 30 2C 32  |2120,2300,2480,2|
00000A40: 36 36 30 00 49 36 F8 07  82 00 62 36 0C 08 F6 3A  |660.I6....b6...:|
00000A50: 20 81 49 B2 31 A4 32 30  30 30 3A 82 3A 89 32 38  | .I.1.2000:.:.28|
00000A60: 34 30 00 6B 36 20 08 8F  20 4B 30 00 76 36 34 08  |40.k6 .. K0.v64.|
00000A70: F5 4B 58 20 3A 8E 00 7F  36 48 08 8F 20 4B 31 00  |.KX :...6H.. K1.|
00000A80: 92 36 5C 08 4B 58 B2 53  51 AD 33 3A 20 8D 32 30  |.6\.KX.SQ.3: .20|
00000A90: 38 30 00 9B 36 70 08 F0  AB 36 30 00 A5 36 84 08  |80..6p...60..6..|
00000AA0: 8D 32 30 38 30 00 AE 36  98 08 F0 31 32 30 00 B8  |.2080..6...120..|
00000AB0: 36 AC 08 8D 32 30 38 30  00 C1 36 C0 08 F0 AB 36  |6...2080..6....6|
00000AC0: 30 00 CB 36 D4 08 8D 32  30 38 30 00 D1 36 E8 08  |0..6...2080..6..|
00000AD0: 8E 00 DA 36 FC 08 8F 20  4B 32 00 ED 36 10 09 53  |...6... K2..6..S|
00000AE0: 51 B2 53 53 AD 33 3A 20  8D 32 31 32 30 00 F6 36  |Q.SS.3: .2120..6|
00000AF0: 24 09 F0 AB 36 30 00 00  37 38 09 8D 32 31 32 30  |$...60..78..2120|
00000B00: 00 09 37 4C 09 F0 31 32  30 00 13 37 60 09 8D 32  |..7L..120..7`..2|
00000B10: 31 32 30 00 1C 37 74 09  F0 AB 36 30 00 26 37 88  |120..7t...60.&7.|
00000B20: 09 8D 32 31 32 30 00 2C  37 9C 09 8E 00 35 37 B0  |..2120.,7....57.|
00000B30: 09 8F 20 4B 33 00 48 37  C4 09 53 53 B2 53 52 AD  |.. K3.H7..SS.SR.|
00000B40: 33 3A 20 8D 32 33 30 30  00 51 37 D8 09 F0 AB 36  |3: .2300.Q7....6|
00000B50: 30 00 5B 37 EC 09 8D 32  33 30 30 00 64 37 00 0A  |0.[7...2300.d7..|
00000B60: F0 31 32 30 00 6E 37 14  0A 8D 32 33 30 30 00 77  |.120.n7...2300.w|
00000B70: 37 28 0A F0 AB 36 30 00  81 37 3C 0A 8D 32 33 30  |7(...60..7<..230|
00000B80: 30 00 87 37 50 0A 8E 00  90 37 64 0A 8F 20 4B 34  |0..7P....7d.. K4|
00000B90: 00 A2 37 78 0A 53 52 B2  53 AD 33 3A 20 8D 32 34  |..7x.SR.S.3: .24|
00000BA0: 38 30 00 AB 37 8C 0A F0  AB 36 30 00 B5 37 A0 0A  |80..7....60..7..|
00000BB0: 8D 32 34 38 30 00 BE 37  B4 0A F0 31 32 30 00 C8  |.2480..7...120..|
00000BC0: 37 C8 0A 8D 32 34 38 30  00 D1 37 DC 0A F0 AB 36  |7...2480..7....6|
00000BD0: 30 00 DB 37 F0 0A 8D 32  34 38 30 00 E1 37 04 0B  |0..7...2480..7..|
00000BE0: 8E 00 FA 37 18 0B 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |...7... ********|
00000BF0: 2A 2A 2A 20 54 44 50 4F  4C 59 00 11 38 2C 0B DB  |*** TDPOLY..8,..|
00000C00: 31 2C 37 3A F4 32 2C 30  38 30 2C 31 32 3A F0 39  |1,7:.2,080,12:.9|
00000C10: 30 00 2D 38 40 0B D8 31  2C 32 30 38 2C 31 30 30  |0.-8@..1,208,100|
00000C20: 2C 32 2C 22 50 4F 4C 59  47 4F 4E 53 22 00 4B 38  |,2,"POLYGONS".K8|
00000C30: 54 0B D8 31 2C 32 30 30  2C 30 39 30 2C 32 2C 22  |T..1,200,090,2,"|
00000C40: 23 20 4F 46 20 53 49 44  45 53 22 00 58 38 68 0B  |# OF SIDES".X8h.|
00000C50: 81 4E 56 B2 33 A4 31 36  00 6B 38 7C 0B 44 B2 4E  |.NV.3.16.k8|.D.N|
00000C60: 56 AC 32 AA 33 3A 8D 33  30 36 30 00 88 38 90 0B  |V.2.3:.3060..8..|
00000C70: 81 49 B2 31 A4 4E 56 3A  58 B2 33 36 30 AD 4E 56  |.I.1.NV:X.360.NV|
00000C80: 3A 8D 33 30 38 30 3A 82  00 98 38 A4 0B D3 31 3A  |:.3080:...8...1:|
00000C90: 8D 33 30 36 30 3A D3 30  00 9E 38 B8 0B 82 00 A4  |.3060:.0..8.....|
00000CA0: 38 CC 0B F6 00 BA 38 E0  0B 81 49 B2 31 A4 32 30  |8.....8...I.1.20|
00000CB0: 30 30 3A 82 3A 89 33 31  30 30 00 CF 38 F4 0B D8  |00:.:.3100..8...|
00000CC0: 31 2C 32 33 30 2C 38 30  2C 32 2C 4E 56 3A 8E 00  |1,230,80,2,NV:..|
00000CD0: DC 38 08 0C F5 44 3A F0  AB 58 3A 8E 00 F7 38 1C  |.8...D:..X:...8.|
00000CE0: 0C 8F 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 20 49 4E  |..*********** IN|
00000CF0: 54 45 52 46 45 52 45 00  03 39 30 0C DB 31 2C 37  |TERFERE..90..1,7|
00000D00: 3A D3 32 00 17 39 44 0C  F4 36 2C 30 2C 31 30 30  |:.2..9D..6,0,100|
00000D10: 3A EF 39 30 AB 32 32 00  28 39 58 0C 81 49 B2 32  |:.90.22.(9X..I.2|
00000D20: 32 A4 AB 32 32 A9 AB 31  00 3E 39 6C 0C F5 32 35  |2..22..1.>9l..25|
00000D30: 30 3A F1 3A F5 AB 32 35  30 3A F2 3A F0 31 00 44  |0:.:..250:.:.1.D|
00000D40: 39 80 0C 82 00 5B 39 94  0C F4 36 2C 33 32 30 2C  |9....[9...6,320,|
00000D50: 31 30 30 3A EF AB 39 30  AA 32 32 00 6C 39 A8 0C  |100:..90.22.l9..|
00000D60: 81 49 B2 32 32 A4 AB 32  32 A9 AB 31 00 83 39 BC  |.I.22..22..1..9.|
00000D70: 0C F5 32 35 30 3A F1 3A  F5 AB 32 35 30 3A F2 3A  |..250:.:..250:.:|
00000D80: F0 AB 31 00 89 39 D0 0C  82 00 A1 39 E4 0C F6 3A  |..1..9.....9...:|
00000D90: 81 49 B2 31 A4 32 30 30  30 3A 82 3A 89 33 33 31  |.I.1.2000:.:.331|
00000DA0: 35 00 BD 39 F3 0C 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |5..9... ********|
00000DB0: 2A 4D 55 4C 54 49 43 49  52 43 4C 45 53 00 D2 39  |*MULTICIRCLES..9|
00000DC0: F8 0C DB 31 2C 31 3A 52  31 B2 35 30 3A 52 32 B2  |...1,1:R1.50:R2.|
00000DD0: 34 35 00 EB 39 0C 0D 81  49 B2 31 A4 37 32 3A 41  |45..9...I.1.72:A|
00000DE0: 4E B2 49 AC 35 AC FF AD  31 38 30 00 05 3A 20 0D  |N.I.5...180..: .|
00000DF0: 58 B2 52 32 AC BF 28 41  4E 29 3A 59 B2 52 32 AC  |X.R2..(AN):Y.R2.|
00000E00: BE 28 41 4E 29 00 1D 3A  34 0D E1 58 AA 31 36 30  |.(AN)..:4..X.160|
00000E10: 2C 59 AA 31 30 30 2C 52  31 2C 35 3A 82 00 33 3A  |,Y.100,R1,5:..3:|
00000E20: 39 0D 81 49 B2 31 A4 32  30 30 30 3A 82 3A 89 33  |9..I.1.2000:.:.3|
00000E30: 34 30 30 00 4D 3A 48 0D  8F 2A 2A 2A 2A 2A 2A 2A  |400.M:H..*******|
00000E40: 2A 2A 2A 2A 2A 20 47 52  50 41 4B 2E 38 00 53 3A  |***** GRPAK.8.S:|
00000E50: 49 0D 8C 00 6A 3A 5C 0D  8F 20 47 52 41 50 48 49  |I...j:\.. GRAPHI|
00000E60: 4E 47 20 52 4F 55 54 49  4E 45 00 88 3A 70 0D 99  |NG ROUTINE..:p..|
00000E70: 22 93 28 50 29 49 45 20  43 48 41 52 54 20 4F 52  |".(P)IE CHART OR|
00000E80: 20 28 42 29 41 52 53 22  00 AB 3A 72 0D 89 33 35  | (B)ARS"..:r..35|
00000E90: 32 30 3A 3A 3A 8F 20 4A  41 4D 20 46 4F 52 20 44  |20:::. JAM FOR D|
00000EA0: 45 4D 4F 20 2A 2A 2A 2A  2A 2A 2A 00 B3 3A 84 0D  |EMO *******..:..|
00000EB0: A1 52 24 00 C4 3A 98 0D  8B 52 24 B2 22 42 22 A7  |.R$..:...R$."B".|
00000EC0: 33 37 32 30 00 D6 3A AC  0D 8B 52 24 B3 B1 22 50  |3720..:...R$.."P|
00000ED0: 22 A7 33 34 36 30 00 E0  3A C0 0D 8D 33 39 34 30  |".3460..:...3940|
00000EE0: 00 F7 3A D4 0D 8F 20 44  52 41 57 20 50 49 45 20  |..:... DRAW PIE |
00000EF0: 26 20 4C 49 4E 45 53 00  03 3B E8 0D DB 31 2C 37  |& LINES..;...1,7|
00000F00: 3A F4 32 00 1E 3B FC 0D  81 49 B2 31 A4 4E 50 3A  |:.2..;...I.1.NP:|
00000F10: 44 47 B2 41 28 49 29 AC  33 36 30 AD 41 54 00 28  |DG.A(I).360.AT.(|
00000F20: 3B 10 0E 8D 35 32 32 30  00 2E 3B 24 0E 82 00 45  |;...5220..;$...E|
00000F30: 3B 38 0E D8 33 2C 31 30  2C 31 36 2C 38 2C 22 D4  |;8..3,10,16,8,".|
00000F40: 4F 54 41 4C 22 00 56 3B  4C 0E D8 33 2C 31 35 2C  |OTAL".V;L..3,15,|
00000F50: 38 2C 38 2C 41 54 00 5C  3B 60 0E F6 00 71 3B 74  |8,8,AT.\;`...q;t|
00000F60: 0E 81 49 B2 31 A4 32 30  30 30 3A 82 3A 89 31 30  |..I.1.2000:.:.10|
00000F70: 30 00 81 3B 88 0E 8F 20  42 41 52 20 43 48 41 52  |0..;... BAR CHAR|
00000F80: 54 00 8B 3B 9C 0E 8D 34  35 30 30 00 94 3B B0 0E  |T..;...4500..;..|
00000F90: DB 31 2C 37 00 B0 3B C4  0E 57 B2 38 AC B5 28 33  |.1,7..;..W.8..(3|
00000FA0: 37 AD 28 4E 42 AC 28 4E  44 AA 31 29 29 29 AB 32  |7.(NB.(ND.1))).2|
00000FB0: 00 DF 3B D8 0E 81 4A B2  31 A4 4E 42 3A 81 49 B2  |..;...J.1.NB:.I.|
00000FC0: 31 A4 4E 44 3A 50 B2 28  57 AA 32 29 AC 28 28 4A  |1.ND:P.(W.2).((J|
00000FD0: AB 31 29 AC 28 4E 44 AA  31 29 AA 49 AB 31 29 00  |.1).(ND.1).I.1).|
00000FE0: 04 3C EC 0E CE 20 50 AA  38 2C 31 30 2C 50 AA 57  |.<... P.8,10,P.W|
00000FF0: AA 38 2C 31 30 AA 53 46  AC 56 28 49 2C 4A 29 2C  |.8,10.SF.V(I,J),|
00001000: 43 28 49 29 00 1E 3C 00  0F 8B 57 B3 36 B0 53 46  |C(I)..<...W.6.SF|
00001010: AC 56 28 49 2C 4A 29 B3  33 A7 33 38 38 30 00 30  |.V(I,J).3.3880.0|
00001020: 3C 14 0F E0 50 AA 31 30  2C 31 32 2C 43 28 49 29  |<...P.10,12,C(I)|
00001030: 00 36 3C 28 0F 8F 00 3F  3C 3C 0F 82 49 2C 4A 00  |.6<(...?<<..I,J.|
00001040: 45 3C 50 0F 90 00 63 3C  64 0F 8F 20 44 41 54 41  |E<P...c<d.. DATA|
00001050: 20 43 4F 4C 4C 45 43 54  49 4F 4E 20 46 4F 52 20  | COLLECTION FOR |
00001060: 50 49 45 00 86 3C 78 0F  99 22 52 45 41 44 20 44  |PIE..<x.."READ D|
00001070: 41 54 41 20 53 54 41 54  45 4D 45 4E 54 53 3F 20  |ATA STATEMENTS? |
00001080: 28 59 2F 4E 29 22 00 A2  3C 7D 0F 89 34 32 30 30  |(Y/N)"..<}..4200|
00001090: 3A 3A 3A 3A 8F 20 4A 41  4D 20 46 4F 52 20 44 45  |::::. JAM FOR DE|
000010A0: 4D 4F 00 B6 3C 8C 0F A1  52 24 3A 8B 52 24 B2 22  |MO..<...R$:.R$."|
000010B0: 22 A7 33 39 38 30 00 C7  3C A0 0F 8B 52 24 B2 22  |".3980..<...R$."|
000010C0: 59 22 A7 34 32 30 30 00  E2 3C B4 0F 85 22 4E 55  |Y".4200..<..."NU|
000010D0: 4D 42 45 52 20 4F 46 20  50 49 45 43 45 53 22 3B  |MBER OF PIECES";|
000010E0: 4E 50 00 FA 3C C8 0F 86  41 28 4E 50 29 2C 41 24  |NP..<...A(NP),A$|
000010F0: 28 4E 50 29 2C 43 28 4E  50 29 00 13 3D DC 0F 81  |(NP),C(NP)..=...|
00001100: 49 B2 31 A4 4E 50 3A 85  22 44 41 54 41 22 3B 41  |I.1.NP:."DATA";A|
00001110: 28 49 29 00 26 3D F0 0F  85 22 4C 41 42 45 4C 22  |(I).&=..."LABEL"|
00001120: 3B 41 24 28 49 29 00 4D  3D 04 10 8B C3 28 41 24  |;A$(I).M=....(A$|
00001130: 28 49 29 29 B1 39 A7 99  22 54 4F 4F 20 4C 4F 4E  |(I)).9.."TOO LON|
00001140: 47 2D 52 45 44 4F 22 3A  89 34 30 38 30 00 5F 3D  |G-REDO":.4080._=|
00001150: 18 10 85 22 43 4F 4C 4F  52 22 3B 43 28 49 29 00  |..."COLOR";C(I).|
00001160: 65 3D 2C 10 8F 00 76 3D  40 10 41 54 B2 41 28 49  |e=,...v=@.AT.A(I|
00001170: 29 AA 41 54 3A 82 00 7C  3D 54 10 8E 00 84 3D 68  |).AT:..|=T....=h|
00001180: 10 87 4E 50 00 9C 3D 7C  10 86 41 28 4E 50 29 2C  |..NP..=|..A(NP),|
00001190: 41 24 28 4E 50 29 2C 43  28 4E 50 29 00 AE 3D 90  |A$(NP),C(NP)..=.|
000011A0: 10 81 49 B2 31 A4 4E 50  3A 87 41 28 49 29 00 B9  |..I.1.NP:.A(I)..|
000011B0: 3D A4 10 87 41 24 28 49  29 00 C3 3D B8 10 87 43  |=...A$(I)..=...C|
000011C0: 28 49 29 00 D4 3D CC 10  41 54 B2 41 28 49 29 AA  |(I)..=..AT.A(I).|
000011D0: 41 54 3A 82 00 DA 3D E0  10 8E 00 E1 3D F4 10 83  |AT:...=.....=...|
000011E0: 37 00 F3 3D 08 11 83 34  30 2C 22 C6 4F 52 54 59  |7..=...40,".ORTY|
000011F0: 22 2C 33 00 07 3E 1C 11  83 37 30 2C 22 D3 45 56  |",3..>...70,".EV|
00001200: 45 4E 54 59 22 2C 34 00  1A 3E 30 11 83 33 30 2C  |ENTY",4..>0..30,|
00001210: 22 D4 48 49 52 54 59 22  2C 35 00 2C 3E 44 11 83  |".HIRTY",5.,>D..|
00001220: 35 30 2C 22 C6 49 46 54  59 22 2C 36 00 3F 3E 58  |50,".IFTY",6.?>X|
00001230: 11 83 39 30 2C 22 CE 49  4E 45 54 59 22 2C 37 00  |..90,".INETY",7.|
00001240: 52 3E 6C 11 83 32 30 2C  22 D4 57 45 4E 54 59 22  |R>l..20,".WENTY"|
00001250: 2C 38 00 6A 3E 80 11 83  36 37 2C 22 D3 49 58 54  |,8.j>...67,".IXT|
00001260: 59 2D 53 45 56 45 4E 22  2C 39 00 7D 3E 94 11 8F  |Y-SEVEN",9.}>...|
00001270: 20 47 45 54 20 42 41 52  20 44 41 54 41 00 A0 3E  | GET BAR DATA..>|
00001280: A8 11 99 22 52 45 41 44  20 44 41 54 41 20 53 54  |..."READ DATA ST|
00001290: 41 54 45 4D 45 4E 54 53  3F 20 28 59 2F 4E 29 22  |ATEMENTS? (Y/N)"|
000012A0: 00 B4 3E BC 11 A1 52 24  3A 8B 52 24 B2 22 22 A7  |..>...R$:.R$."".|
000012B0: 34 35 34 30 00 C5 3E D0  11 8B 52 24 B2 22 59 22  |4540..>...R$."Y"|
000012C0: A7 34 39 30 30 00 E3 3E  E4 11 85 22 4E 55 4D 42  |.4900..>..."NUMB|
000012D0: 45 52 20 4F 46 20 44 41  54 41 20 53 45 54 53 22  |ER OF DATA SETS"|
000012E0: 3B 4E 44 00 05 3F F8 11  85 22 4E 55 4D 42 45 52  |;ND..?..."NUMBER|
000012F0: 20 4F 46 20 42 41 52 53  20 45 41 43 48 20 53 45  | OF BARS EACH SE|
00001300: 54 22 3B 4E 42 00 2E 3F  0C 12 8B 4E 42 AC 28 4E  |T";NB..?...NB.(N|
00001310: 44 AA 31 29 B1 33 37 A7  99 22 54 4F 4F 20 4D 41  |D.1).37.."TOO MA|
00001320: 4E 59 20 42 41 52 53 22  3A 89 34 35 38 30 00 43  |NY BARS":.4580.C|
00001330: 3F 20 12 86 20 56 28 4E  44 2C 4E 42 29 2C 43 28  |? .. V(ND,NB),C(|
00001340: 4E 44 29 00 59 3F 34 12  81 49 B2 31 A4 4E 44 3A  |ND).Y?4..I.1.ND:|
00001350: 99 22 43 4F 4C 4F 52 22  49 00 63 3F 48 12 85 43  |."COLOR"I.c?H..C|
00001360: 28 49 29 00 69 3F 5C 12  82 00 7D 3F 70 12 81 49  |(I).i?\...}?p..I|
00001370: B2 31 A4 4E 44 3A 81 4A  B2 31 A4 4E 42 00 95 3F  |.1.ND:.J.1.NB..?|
00001380: 84 12 99 22 44 41 54 41  20 53 45 54 22 49 3B 22  |..."DATA SET"I;"|
00001390: 42 41 52 22 4A 00 A9 3F  98 12 85 22 56 41 4C 55  |BAR"J..?..."VALU|
000013A0: 45 22 3B 56 28 49 2C 4A  29 00 B2 3F AC 12 82 4A  |E";V(I,J)..?...J|
000013B0: 2C 49 00 C6 3F C0 12 81  49 B2 31 A4 4E 44 3A 81  |,I..?...I.1.ND:.|
000013C0: 4A B2 31 A4 4E 42 00 DF  3F D4 12 8B 4D 58 B3 56  |J.1.NB..?...MX.V|
000013D0: 28 49 2C 4A 29 A7 4D 58  B2 56 28 49 2C 4A 29 00  |(I,J).MX.V(I,J).|
000013E0: E8 3F E8 12 82 4A 2C 49  00 F6 3F FC 12 53 46 B2  |.?...J,I..?..SF.|
000013F0: 31 37 30 AD 4D 58 00 FC  3F 10 13 8E 00 02 40 24  |170.MX..?.....@$|
00001400: 13 8C 00 18 40 38 13 87  41 24 3A 8B 41 24 B3 B1  |....@8..A$:.A$..|
00001410: 22 FF 22 A7 34 39 32 30  00 20 40 4C 13 87 4E 44  |".".4920. @L..ND|
00001420: 00 28 40 60 13 87 4E 42  00 3D 40 74 13 86 20 56  |.(@`..NB.=@t.. V|
00001430: 28 4E 44 2C 4E 42 29 2C  43 28 4E 44 29 00 49 40  |(ND,NB),C(ND).I@|
00001440: 88 13 81 49 B2 31 A4 4E  44 00 53 40 9C 13 87 43  |...I.1.ND.S@...C|
00001450: 28 49 29 00 59 40 B0 13  82 00 6D 40 C4 13 81 49  |(I).Y@....m@...I|
00001460: B2 31 A4 4E 44 3A 81 4A  B2 31 A4 4E 42 00 79 40  |.1.ND:.J.1.NB.y@|
00001470: D8 13 87 56 28 49 2C 4A  29 00 82 40 EC 13 82 4A  |...V(I,J)..@...J|
00001480: 2C 49 00 96 40 00 14 81  49 B2 31 A4 4E 44 3A 81  |,I..@...I.1.ND:.|
00001490: 4A B2 31 A4 4E 42 00 AF  40 14 14 8B 4D 58 B3 56  |J.1.NB..@...MX.V|
000014A0: 28 49 2C 4A 29 A7 4D 58  B2 56 28 49 2C 4A 29 00  |(I,J).MX.V(I,J).|
000014B0: B8 40 28 14 82 4A 2C 49  00 C6 40 3C 14 53 46 B2  |.@(..J,I..@<.SF.|
000014C0: 31 37 30 AD 4D 58 00 CC  40 50 14 8E 00 F1 40 64  |170.MX..@P....@d|
000014D0: 14 8F 20 54 55 52 54 4C  45 20 53 45 47 4D 45 4E  |.. TURTLE SEGMEN|
000014E0: 54 20 44 52 41 57 49 4E  47 20 52 4F 55 54 49 4E  |T DRAWING ROUTIN|
000014F0: 45 00 0C 41 78 14 4A B2  35 30 AC FF AC 32 AD 33  |E..Ax.J.50...2.3|
00001500: 36 30 3A 4B B2 31 3A F3  43 28 49 29 00 25 41 8C  |60:K.1:.C(I).%A.|
00001510: 14 F0 44 47 AD 32 3A F1  3A F5 31 36 3A F2 3A F0  |..DG.2:.:.16:.:.|
00001520: AB 44 47 AD 32 00 32 41  A0 14 F5 20 35 30 3A F0  |.DG.2.2A... 50:.|
00001530: 39 30 00 46 41 B4 14 81  4D B2 31 A4 44 47 3A F5  |90.FA...M.1.DG:.|
00001540: 4A 3A F0 4B 3A 82 00 5B  41 C8 14 F0 39 30 3A F5  |J:.K:..[A...90:.|
00001550: 35 30 3A F0 AB 44 47 AD  32 3A F1 00 78 41 DC 14  |50:..DG.2:..xA..|
00001560: F0 31 38 30 3A F5 31 30  3A E0 F8 28 58 29 2C F8  |.180:.10:..(X),.|
00001570: 28 59 29 2C 43 28 49 29  00 AE 41 F0 14 F5 35 35  |(Y),C(I)..A...55|
00001580: 3A 51 4C B2 30 3A 57 B2  F8 28 41 29 AB 33 36 30  |:QL.0:W..(A).360|
00001590: AC B5 28 F8 28 41 29 AD  33 36 30 29 3A 8B 57 B1  |..(.(A).360):.W.|
000015A0: 31 38 30 AF 57 B3 33 36  30 A7 51 4C B2 31 00 DA  |180.W.360.QL.1..|
000015B0: 41 04 15 D8 33 2C F8 28  58 29 AB 51 4C AC 38 AC  |A...3,.(X).QL.8.|
000015C0: C3 28 41 24 28 49 29 29  2C F8 28 59 29 AA 36 2C  |.(A$(I)),.(Y).6,|
000015D0: 43 28 49 29 2C 41 24 28  49 29 00 05 42 18 15 D8  |C(I),A$(I)..B...|
000015E0: 31 2C F8 28 58 29 AB 51  4C AC 38 AC C3 28 41 24  |1,.(X).QL.8..(A$|
000015F0: 28 49 29 29 2C F8 28 59  29 AB 32 2C 43 28 49 29  |(I)),.(Y).2,C(I)|
00001600: 2C 41 28 49 29 00 28 42  2C 15 57 24 B2 C4 28 B5  |,A(I).(B,.W$..(.|
00001610: 28 41 28 49 29 AC 31 30  30 30 30 AD 41 54 29 AD  |(A(I).10000.AT).|
00001620: 31 30 30 29 AA 22 25 22  00 52 42 40 15 D8 31 2C  |100)."%".RB@..1,|
00001630: F8 28 58 29 AB 51 4C AC  38 AC C3 28 41 24 28 49  |.(X).QL.8..(A$(I|
00001640: 29 29 2C F8 28 59 29 AB  31 30 2C 43 28 49 29 2C  |)),.(Y).10,C(I),|
00001650: 57 24 00 5F 42 54 15 F0  31 38 30 3A F5 36 35 00  |W$._BT..180:.65.|
00001660: 71 42 68 15 F5 31 36 3A  F0 44 47 AD 32 AA 31 38  |qBh..16:.DG.2.18|
00001670: 30 00 77 42 7C 15 8E 00  92 42 90 15 83 22 FF 22  |0.wB|....B..."."|
00001680: 20 3A 8F 20 48 45 41 44  45 52 20 46 4F 52 20 32  | :. HEADER FOR 2|
00001690: 4E 44 00 A5 42 A4 15 83  20 36 2C 34 20 3A 8F 20  |ND..B... 6,4 :. |
000016A0: 4E 44 2C 4E 42 00 C4 42  B8 15 83 20 33 2C 36 2C  |ND,NB..B... 3,6,|
000016B0: 39 2C 37 2C 35 2C 34 20  20 20 20 3A 8F 20 43 4F  |9,7,5,4    :. CO|
000016C0: 4C 4F 52 53 00 D2 42 CC  15 83 20 34 2C 34 2C 34  |LORS..B... 4,4,4|
000016D0: 2C 34 00 E0 42 E0 15 83  20 35 2C 35 2C 35 2C 35  |,4..B... 5,5,5,5|
000016E0: 00 EE 42 F4 15 83 20 36  2C 36 2C 36 2C 36 00 FC  |..B... 6,6,6,6..|
000016F0: 42 08 16 83 20 37 2C 37  2C 37 2C 37 00 0A 43 1C  |B... 7,7,7,7..C.|
00001700: 16 83 20 38 2C 38 2C 38  2C 38 00 18 43 30 16 83  |.. 8,8,8,8..C0..|
00001710: 20 33 2C 33 2C 33 2C 33  00 26 43 44 16 83 20 36  | 3,3,3,3.&CD.. 6|
00001720: 2C 36 2C 36 2C 36 00 34  43 58 16 83 20 38 2C 38  |,6,6,6.4CX.. 8,8|
00001730: 2C 38 2C 38 00 00 00 FF  CA 02 00                 |,8,8.......     |

.,.,P.. ******* TITLE SCREEN.%,D.Z2,2.?,
E..900,GT:.:GT.B(900).1.A,X.X3,40,196,7,
"ABACUS SOFTWARE"..,..X2,22,175,9,"* ULT
RABASIC-64 *".., ..N.1.15.10:X.54:Y.N.8.
.,...1,X,Y:.13 :...,H...95:.4..,... I.1.
22:D.5:T.9:.420:.:.1.D..,...180:.15:..85
:.6..-... I.1.22:D.2.5:T..9:.420:.."-...
6:.180:.15.=-,..:..90:.1.5:..90:.31:..D-
@..90:.20:..45:.20:..90:.35:..90:.13.Z-T
..:.3.7:..90:..5:...-H..90:.20:.45:.20:.
.90:.35:.90:.15.K-|..X.10,Y,7,0:.X.4,Y.3
4,7,0:.X.4,Y.25,3,0.V-...:.440..-...D:.T
:...-... WRITE NAME.!.L.X0.129:Y0.119:SZ
.5:SQ.SZ..(2):A$."TURTLE".>....1,X0,Y0:.
90:.A.1.6:.900.D.....C...X0.105:Y0.71:A$
."GRAPHICS"......1,X0,Y0:.90:.A.1.8:.900
...0..:..90:.60:..90:.100...D.. SOUND.A.
X.."EF10FF500210FF100000".P.L..1,600:.15
......1,128.....X3,130,30,6,"AND SOUND".
./...2,700../..."301010101010".!/P..2,25
4.1/...I.1.4000:..B/...3,8,0,4,0,0.^/...
20:.3,50,4:.I.1.50:.:..Q/ ..2,2,5,5,5,0,
0.|/4..2,840../H.."202008010020080100201
00100200020FF400000"../\..2,255.P/P..I.1
.3000:.:.0:.1800../..CV.F(J(A$,A,1)).64:
..&0...CV.980,63999,1060,63999,1120,6399
9,1180,1260,1320,63999.H0...CV.10.63999,
1380,63999,63999,63999,1420,63999,1480,1
560,1620..0...CV.20.1680,63999,63999,639
99,63999,63999.A0T..90:.5.SZ:.180:.:.SZ.
4:.45:.SQ:.45:.SZ..0...45:.SQ:.45:.SZ.4:
.180:.:.2.SZ:..90:.:.3.SZ..1...:.135:.3.
SQ:.45..1...1720.=1$..3.SZ:.90:.4.SZ:.:.
1740:.3.SZ:.1740:.180.K18..:.SZ:.90.U1L.
.1720..1`..90:.:.5.SZ:..90:.3.SZ:..90:.:
.2.5.SZ:..90..1J..SZ..1T..:.2.SZ:.90:.2.
502.SZ:.90:.:.3.SZ..1...1720..1...2.SZ:.
90:.3.SZ:..90:.:.SZ:.90:.SZ..1..:.1740:.
3.SZ:.1740:.180..2D..:.SZ:.90..2X..1720.
B2...:.90:.5.SZ:.180:.:.2.5.SZ:.90:.:.3.
SZ.H2...:.90:.2.5.SZ:.180:.:.SZ.5.02:.90
.R2...1720..2(..1.5.SZ:.90:.:.5.SZ:.:.18
0:.5.SZ:.90..2<..1.5.SZ..2P..1720..2D..9
0:.:.5.SZ:..90:.3.SZ:..90:.:.5.SZ:.90..2
X..1720..3...:.2.SZ:.1760:.2.SZ:..90:.:.
2.SZ:.180:..,3 .:.5.1.SZ:.90:.:.3.SZ.63.
..1720.B3H..:.2.SZ:.1760:.2.SZ:.180:.:..
5.SZ:.40:..Y3...2.SQ:.140:.:.3.SZ..3...9
0:.:.5.1.SZ:.90:.:.3.SZ..3...1720.L3...9
0:.4.SZ:.:.1780:..45:.3.SQ:.45:.1740..3,
..180:.:.SZ:.90..3@..1720..4T..:.3.SZ:.:
.180:.1.5.SZ:..90:.:.5.SZ:.:..90.34H..1.
5.SZ:..90:.5.SZ:.90.=4|..1720.]4...90:.:
.4.SZ:.1780:.4.SZ:.90.G4...1720.U4...:.2
.SZ:...4L..45:.SQ:.45:.SZ:.45:.SQ:.45:..
.4...45:.SQ:.45:.1.3.SZ:.45:.SQ:.45:...4
....45:.SQ:..45:.SZ:..45:.SQ:..45:...4..
. ********SQIRAL SCREEN..5...1,1.#5...7,
82,182:.90:.9:.1920.650..:.2,20,20:.90.Y
5D..I.1.6:.1900:.45:.:.10:.:.90:..Q5X..:
.I.1.2000:.:.1960..5L..12:..120:.12:..12
0:.12:...5..I.160:.1000:.I:I.I.1:.I.8.:.
..5...89:.:..Z5... ********FRACTALS SCRE
EN..5...1,1..6...I.1.5:S.300:SQ.S:SR.S:S
S.S:KX.S. 6P..0,10,2.1.I.2.8:.90.C6... I
 . 2080,2120,2300,2480,2660.I6....B6...:
 .I.1.2000:.:.2840.K6 .. K0.V64..KX :..
6H.. K1..6\.KX.SQ.3: .2080..6P...60..6..
.2080..6...120..6...2080.A6....60.K6T..2
080.Q6....Z6... K2..6..SQ.SS.3: .2120..6
$...60..78..2120..7L..120..7`..2120..7T.
..60.&7...2120.,7....57... K3.H7D.SS.SR.
3: .2300.Q7X...60.[7...2300.D7...120.N7.
..2300.W7(...60..7<..2300..7P....7D.. K4
..7X.SR.S.3: .2480..7....60..7 ..2480..7
...120.H7H..2480.Q7....60..7...2480..7..
...7... *********** TDPOLY..8,..1,7:.2,0
80,12:.90.-8@.X1,208,100,2,"POLYGONS".K8
T.X1,200,090,2,"# OF SIDES".X8H..NV.3.16
.K8|.D.NV.2.3:.3060..8...I.1.NV:X.360.NV
:.3080:...8..S1:.3060:S0..8.....8L....8.
..I.1.2000:.:.3100.O8..X1,230,80,2,NV:..
.8...D:..X:...8...*********** INTERFERE.
.90..1,7:S2..9D..6,0,100:.90.22.(9X..I.2
2..22..1.>9L..250:.:..250:.:.1.D9....[9.
..6,320,100:..90.22.L9...I.22..22..1..9.
..250:.:..250:.:..1..9P....9...:.I.1.200
0:.:.3315..9... *********MULTICIRCLES.R9
...1,1:R1.50:R2.45..9...I.1.72:AN.I.5...
180..: .X.R2..(AN):Y.R2..(AN)..:4..X.160
,Y.100,R1,5:..3:9..I.1.2000:.:.3400.M:H.
.************ GRPAK.8.S:I...J:\.. GRAPHI
NG ROUTINE..:P..".(P)IE CHART OR (B)ARS"
..:R..3520:::. JAM FOR DEMO *******..:..
.R$.D:...R$."B".3720.V:...R$.."P".3460..
:...3940..:T.. DRAW PIE & LINES..;...1,7
:.2..;...I.1.NP:DG.A(I).360.AT.(;...5220
..;$...E;8.X3,10,16,8,"TOTAL".V;L.X3,15,
8,8,AT.\;`...Q;T..I.1.2000:.:.100..;... 
BAR CHART..;...4500..;...1,7..;D.W.8..(3
7.(NB.(ND.1))).2..;X..J.1.NB:.I.1.ND:P.(
W.2).((J.1).(ND.1).I.1)..<..N P.8,10,P.W
.8,10.SF.V(I,J),C(I)..<...W.6.SF.V(I,J).
3.3880.0<...P.10,12,C(I).6<(...?<<..I,J.
E<P...C<D.. DATA COLLECTION FOR PIE..<X.
."READ DATA STATEMENTS? (Y/N)"..<}..4200
::::. JAM FOR DEMO..<...R$:.R$."".3980.G
< ..R$."Y".4200..<..."NUMBER OF PIECES";
NP..<H..A(NP),A$(NP),C(NP)..=...I.1.NP:.
"DATA";A(I).&=..."LABEL";A$(I).M=...C(A$
(I)).9.."TOO LONG-REDO":.4080._=..."COLO
R";C(I).E=,...V=@.AT.A(I).AT:..|=T....=H
..NP..=|..A(NP),A$(NP),C(NP)..=...I.1.NP
:.A(I)..=...A$(I).C=...C(I).T=L.AT.A(I).
AT:..Z=.....=...7..=...40,"FORTY",3..>..
.70,"SEVENTY",4..>0..30,"THIRTY",5.,>D..
50,"FIFTY",6.?>X..90,"NINETY",7.R>L..20,
"TWENTY",8.J>...67,"SIXTY-SEVEN",9.}>...
 GET BAR DATA. >..."READ DATA STATEMENTS
? (Y/N)"..>...R$:.R$."".4540.E>P..R$."Y"
.4900..>..."NUMBER OF DATA SETS";ND..?..
."NUMBER OF BARS EACH SET";NB..?...NB.(N
D.1).37.."TOO MANY BARS":.4580.C? .. V(N
D,NB),C(ND).Y?4..I.1.ND:."COLOR"I.C?H..C
(I).I?\...}?P..I.1.ND:.J.1.NB..?..."DATA
 SET"I;"BAR"J..?..."VALUE";V(I,J)..?...J
,I.F?...I.1.ND:.J.1.NB..?T..MX.V(I,J).MX
.V(I,J)..?...J,I..?..SF.170.MX..?.....@$
....@8..A$:.A$..".".4920. @L..ND.(@`..NB
.=@T.. V(ND,NB),C(ND).I@...I.1.ND.S@...C
(I).Y@....M@D..I.1.ND:.J.1.NB.Y@X..V(I,J
)..@...J,I..@...I.1.ND:.J.1.NB..@...MX.V
(I,J).MX.V(I,J)..@(..J,I.F@<.SF.170.MX.L
@P....@D.. TURTLE SEGMENT DRAWING ROUTIN
E..AX.J.50...2.360:K.1:.C(I).%A...DG.2:.
:.16:.:..DG.2.2A .. 50:.90.FA...M.1.DG:.
J:.K:..[AH..90:.50:..DG.2:..XA...180:.10
:..(X),.(Y),C(I)..A...55:QL.0:W..(A).360
..(.(A).360):.W.180.W.360.QL.1.ZA..X3,.(
X).QL.8.C(A$(I)),.(Y).6,C(I),A$(I)..B..X
1,.(X).QL.8.C(A$(I)),.(Y).2,C(I),A(I).(B
,.W$.D(.(A(I).10000.AT).100)."%".RB@.X1,
.(X).QL.8.C(A$(I)),.(Y).10,C(I),W$._BT..
180:.65.QBH..16:.DG.2.180.WB|....B..."."
 :. HEADER FOR 2ND..B... 6,4 :. ND,NB.DB
... 3,6,9,7,5,4    :. COLORS.RBL.. 4,4,4
,4..B... 5,5,5,5..B... 6,6,6,6..B... 7,7
,7,7..C... 8,8,8,8..C0.. 3,3,3,3.&CD.. 6
,6,6,6.4CX.. 8,8,8,8....J..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL