Added code for apple 1 programs and started AVR code for IO

This commit is contained in:
Ruud van Falier 2017-07-14 18:05:02 +02:00
parent 821bdd74cd
commit a110c0bce2
43 changed files with 10683 additions and 0 deletions

View File

@ -0,0 +1,62 @@
#define DA A0
#define RDA A1
#define PB0 2
#define PB1 A7
#define PB2 A6
#define PB3 A5
#define PB4 A4
#define PB5 A3
#define PB6 A2
byte data = 0;
byte data_pins[] = { PB0, PB1, PB2, PB3, PB4, PB5, PB6 };
void setup()
{
pinMode(DA, INPUT);
pinMode(RDA, OUTPUT);
pinMode(PB0, INPUT);
pinMode(PB1, INPUT);
pinMode(PB2, INPUT);
pinMode(PB3, INPUT);
pinMode(PB4, INPUT);
pinMode(PB5, INPUT);
pinMode(PB6, INPUT);
Serial.begin(9600);
}
void loop()
{
digitalWrite(RDA, HIGH); // Tell PIA we are ready to receive data
if (digitalRead(DA)) // Is there any data?
{
data = 0;
for (byte i = 0; i < 7; i++) // Yes, get byte data
{
if (digitalRead(data_pins[i]))
{
data |= (1 << i);
}
}
// Output received data to serial terminal.
Serial.print("Received: ");
Serial.print(data);
Serial.print("\t");
for (int i = 7; i >= 0; i--)
{
Serial.print(digitalRead(data_pins[i]));
}
Serial.print("\t");
Serial.println((char)data);
digitalWrite(RDA, LOW);
delay(12);
}
}

View File

@ -0,0 +1,12 @@
All the programs once loaded run automatically except disassembler.
The programs in the main programs directory load from the Woz monitor. Simply power up your replica 1, press reset and dump the file using the transfer method described in the replica 1 manual.
Programs in the BASIC directory:
Enter BASIC by typing E000R [return]
Then download the program using your terminal program and it will auto start.
Disassembler:
To load: power up replica 1 and press RESET. Dump program through hyper terminal. To use: change memory locations $44 and $45 to your starting memory location to disassemble. Type "9F0R" ENTER to run the disassembler. At that point 19 lines of code will be displayed. To see the next 19 lines of code, just type "R" ENTER.

286
code/programs/ACEYDUCEY.TXT Normal file
View File

@ -0,0 +1,286 @@
004A: 00 08 00 10 12 D2
0050: 05 BF FD BF BF BF F8 F8
0058: BF B7 7F BF BF B7 FF 21
0060: F7 BF 3F 3F 3F BF 77 10
0068: 60 3C 00 04 01 01 01 03
0070: ED ED ED ED EC ED ED ED
0078: FF F7 B7 F7 FF B7 FF 35
0080: 17 7F F7 F7 BD B7 DF F7
0088: B7 B7 F7 F7 AE A0 D0 00
0090: 08 08 05 03 04 00 12 00
0098: 82 59 5E 7D 68 80 EE FF
00A0: 77 37 F7 75 35 77 F1 37
00A8: 77 57 F7 71 CD F7 F7 B7
00B0: FF 97 B7 97 B2 B7 B7 00
00B8: F6 F7 FF 0C FF 00 FF A0
00C0: 09 04 04 FF FF 03 03 FF
00C8: 04 B6 F9 09 33 08 00 ED
00D0: 21 08 33 08 00 00 01 00
00D8: 20 1F A5 0D BA 0D B0 F7
00E0: 06 02 26 0B 02 0D 00 10
00E8: 18 11 0C 0C 04 04 05 05
00F0: 04 06 00 00 77 75 F7 25
00F8: 00 B0 00 00 00 20 00 ED
0800: 82 40 0F 08 00 00 1E 45
0808: 28 A0 29 47 01 22 CC 9C
0810: 00 15 08 64 00 A2 00 1B
0818: 08 C8 00 82 00 21 08 07
0820: 00 84 00 27 08 0B 00 9A
0828: 00 2D 08 00 00 86 00 33
0830: 08 0A 00 40 70 28 AB AD
0838: AD AD AD AD 29 03 5C B1
0840: 40 06 03 5B 01 16 E0 01
0848: C3 40 70 28 A1 A0 A0 A0
0850: A0 A0 29 03 5C B1 40 06
0858: 03 5B 01 39 F4 01 60 CB
0860: B2 16 B0 00 00 24 B6 B2
0868: 02 03 5C B7 16 03 03 61
0870: 28 C5 CE C5 D2 C7 D9 BA
0878: A0 29 46 C5 B1 03 53 28
0880: C6 C9 D2 C5 A0 29 27 C3
0888: 03 60 C3 1C B1 01 00 24
0890: B1 6E 00 01 36 08 02 C5
0898: B1 71 C5 B1 13 C3 03 5C
08A0: B1 08 07 03 CB B5 71 CB
08A8: B5 13 C3 13 38 D2 14 B9
08B0: 09 00 72 03 60 CB B5 19
08B8: B0 00 00 24 B5 12 02 03
08C0: 5C B1 6C 07 03 5F B1 6E
08C8: 00 01 0D 12 02 5C B5 26
08D0: 02 03 5F B5 F4 01 01 48
08D8: 26 02 CA B5 71 CB B5 15
08E0: B5 05 00 03 CB B5 71 CB
08E8: B5 13 CA B5 03 C5 B1 71
08F0: C5 B1 13 CA B5 15 D2 03
08F8: 62 CA B5 15 D2 45 28 A0
0900: D5 CE C9 D4 D3 A0 CF C6
0908: A0 D0 C8 C1 D3 C5 D2 A0
0910: C4 C1 CD C1 C7 C5 29 03
0918: 5C B1 08 07 03 5B 01 35
0920: 58 02 60 CB B2 16 B0 00
0928: 00 24 B6 B2 02 03 60 C5
0930: B2 17 B0 00 00 24 B6 62
0938: 02 03 61 28 CE CF A0 CD
0940: CF D2 C5 A0 D4 CF D2 D0
0948: C5 C4 CF C5 D3 29 03 5F
0950: B1 6E 00 01 25 62 02 C5
0958: B2 71 C5 B2 13 B1 01 00
0960: 03 60 D2 19 2F 3F B1 0F
0968: 00 72 24 B6 80 02 03 5C
0970: B1 6C 07 03 5F B1 6E 00
0978: 01 1C 80 02 61 28 D9 CF
0980: D5 A0 CD C9 D3 D3 C5 C4
0988: A1 29 03 5C B5 26 02 03
0990: 5F B1 6E 00 01 20 B2 02
0998: 61 28 CE CF D4 C8 C9 CE
09A0: C7 A0 D4 CF A0 D3 C8 CF
09A8: CF D4 A0 C1 D4 A1 29 03
09B0: 5F B1 6E 00 01 25 BC 02
09B8: 53 28 C3 CF CD D0 D5 D4
09C0: C5 D2 A0 D2 C5 D1 D5 C5
09C8: D3 D4 A0 29 27 C3 03 60
09D0: C3 16 B0 00 00 24 B8 20
09D8: 03 01 17 C6 02 61 28 D3
09E0: D4 C1 D4 D5 D3 A0 D2 C5
09E8: D0 CF D2 D4 BA 29 03 63
09F0: 01 19 D0 02 5C B7 16 03
09F8: 03 0C 06 00 4E C1 40 22
0A00: B1 0A 00 72 01 1B 0A 00
0A08: 61 28 C1 C3 C5 D9 A0 C4
0A10: D5 C3 C5 D9 A0 C3 C1 D2
0A18: C4 A0 C7 C1 CD C5 29 01
0A20: 28 14 00 61 28 C3 D2 C5
0A28: C1 D4 C9 D6 C5 A0 C3 CF
0A30: CD D0 D5 D4 C9 CE C7 A0
0A38: CD CF D2 D2 C9 D3 D4 CF
0A40: D7 CE AC A0 CE CA 29 01
0A48: 05 15 00 63 01 05 16 00
0A50: 63 01 05 17 00 63 01 2B
0A58: 1E 00 61 28 C1 C3 C5 AD
0A60: C4 D5 C3 C5 D9 A0 C9 D3
0A68: A0 D0 CC C1 D9 C5 C4 A0
0A70: C9 CE A0 D4 C8 C5 A0 C6
0A78: CF CC CC CF D7 C9 CE C7
0A80: 29 01 2A 23 00 61 28 CD
0A88: C1 CE CE C5 D2 AC A0 D4
0A90: C8 C5 A0 C4 C5 C1 CC C5
0A98: D2 A0 A8 C3 CF CD D0 D5
0AA0: D4 C5 D2 A9 A0 C4 C5 C1
0AA8: CC D3 29 01 2C 28 00 61
0AB0: 28 D4 D7 CF A0 C3 C1 D2
0AB8: C4 D3 A0 C6 C1 C3 C5 A0
0AC0: D5 D0 AE A0 D9 CF D5 A0
0AC8: C8 C1 D6 C5 A0 C1 CE A0
0AD0: CF D0 D4 C9 CF CE 29 01
0AD8: 25 32 00 61 28 D4 CF A0
0AE0: C2 C5 D4 A0 CF D2 A0 CE
0AE8: CF D4 A0 C2 C5 D4 A0 C4
0AF0: C5 D0 C5 CE C4 C9 CE C7
0AF8: A0 CF CE 29 01 2C 3C 00
0B00: 61 28 D7 C8 C5 D4 C8 C5
0B08: D2 A0 CF D2 A0 CE CF D4
0B10: A0 D9 CF D5 A0 C6 C5 C5
0B18: CC A0 D4 C8 C5 A0 C3 C1
0B20: D2 C4 A0 D7 C9 CC CC 29
0B28: 01 2A 46 00 61 28 C8 C1
0B30: D6 C5 A0 C1 A0 D6 C1 CC
0B38: D5 C5 A0 C2 C5 D4 D7 C5
0B40: C5 CE A0 D4 C8 C5 A0 C6
0B48: C9 D2 D3 D4 A0 D4 D7 CF
0B50: AE 29 01 2B 50 00 61 28
0B58: C9 C6 A0 D9 CF D5 A0 C4
0B60: CF A0 CE CF D4 A0 D7 C1
0B68: CE D4 A0 D4 CF A0 C2 C5
0B70: D4 AC A0 C9 CE D0 D5 D4
0B78: A0 C1 A0 B0 29 01 09 64
0B80: 00 CE 71 B1 64 00 01 09
0B88: 6E 00 D1 71 B1 64 00 01
0B90: 21 78 00 61 28 D9 CF D5
0B98: A0 CE CF D7 A0 C8 C1 D6
0BA0: C5 A0 29 46 D1 45 28 A0
0BA8: C4 CF CC CC C1 D2 D3 29
0BB0: 01 05 82 00 63 01 08 8C
0BB8: 00 5F B2 04 01 01 09 D2
0BC0: 00 D1 71 D1 12 CD 01 08
0BC8: DC 00 5F B1 78 00 01 09
0BD0: F0 00 D1 71 D1 13 CD 01
0BD8: 08 FA 00 5F B1 78 00 01
0BE0: 23 04 01 61 28 C8 C5 D2
0BE8: C5 A0 C1 D2 C5 A0 D9 CF
0BF0: D5 D2 A0 CE C5 D4 A0 D4
0BF8: D7 CF A0 C3 C1 D2 C4 D3
0C00: A0 29 01 10 0E 01 C1 71
0C08: 2F 3F B1 0E 00 72 12 B1
0C10: 01 00 01 0E 18 01 60 C1
0C18: 1C B2 02 00 24 B2 0E 01
0C20: 01 0E 22 01 60 C1 19 B1
0C28: 0E 00 24 B2 0E 01 01 10
0C30: 2C 01 C2 71 2F 3F B1 0E
0C38: 00 72 12 B1 01 00 01 0E
0C40: 36 01 60 C2 1C B2 02 00
0C48: 24 B3 2C 01 01 0E 40 01
0C50: 60 C2 19 B1 0E 00 24 B3
0C58: 2C 01 01 0C 4A 01 60 C1
0C60: 18 C2 24 B2 0E 01 01 0E
0C68: 5E 01 60 C1 1C B1 0B 00
0C70: 24 B4 90 01 01 0E 68 01
0C78: 60 C1 16 B1 0B 00 24 B4
0C80: A4 01 01 0E 72 01 60 C1
0C88: 16 B1 0C 00 24 B4 B8 01
0C90: 01 0E 7C 01 60 C1 16 B1
0C98: 0D 00 24 B4 CC 01 01 0E
0CA0: 86 01 60 C1 16 B1 0E 00
0CA8: 24 B4 E0 01 01 06 90 01
0CB0: 62 C1 01 08 9A 01 5F B5
0CB8: F4 01 01 0B A4 01 61 28
0CC0: CA C1 C3 CB 29 01 08 AE
0CC8: 01 5F B5 F4 01 01 0C B8
0CD0: 01 61 28 D1 D5 C5 C5 CE
0CD8: 29 01 08 C2 01 5F B5 F4
0CE0: 01 01 0B CC 01 61 28 CB
0CE8: C9 CE C7 29 01 08 D6 01
0CF0: 5F B5 F4 01 01 0A E0 01
0CF8: 61 28 C1 C3 C5 29 01 0E
0D00: F4 01 60 C2 1C B1 0B 00
0D08: 24 B5 26 02 01 0E FE 01
0D10: 60 C2 16 B1 0B 00 24 B5
0D18: 3A 02 01 0E 08 02 60 C2
0D20: 16 B1 0C 00 24 B5 4E 02
0D28: 01 0E 12 02 60 C2 16 B1
0D30: 0D 00 24 B6 62 02 01 0E
0D38: 1C 02 60 C2 16 B1 0E 00
0D40: 24 B6 76 02 01 06 26 02
0D48: 62 C2 01 08 30 02 5F B6
0D50: 8A 02 01 0B 3A 02 61 28
0D58: CA C1 C3 CB 29 01 08 44
0D60: 02 5F B6 8A 02 01 0C 4E
0D68: 02 61 28 D1 D5 C5 C5 CE
0D70: 29 01 08 58 02 5F B6 8A
0D78: 02 01 0B 62 02 61 28 CB
0D80: C9 CE C7 29 01 08 6C 02
0D88: 5F B6 8A 02 01 0A 76 02
0D90: 61 28 C1 C3 C5 29 01 05
0D98: 80 02 63 01 05 8A 02 63
0DA0: 01 19 94 02 61 28 D7 C8
0DA8: C1 D4 A0 C9 D3 A0 D9 CF
0DB0: D5 D2 A0 C2 C5 D4 A0 29
0DB8: 47 01 06 99 02 54 CD 01
0DC0: 0E 9E 02 60 CD 1B B0 00
0DC8: 00 24 B6 A8 02 01 10 A3
0DD0: 02 61 28 C3 C8 C9 C3 CB
0DD8: C5 CE A1 A1 29 01 05 A4
0DE0: 02 63 01 08 A5 02 5F B2
0DE8: 04 01 01 0C A8 02 60 CD
0DF0: 1A D1 24 B7 DA 02 01 2C
0DF8: B2 02 61 28 D3 CF D2 D2
0E00: D9 AC A0 CD D9 A0 C6 D2
0E08: C9 C5 CE C4 A0 C2 D5 D4
0E10: A0 D9 CF D5 A0 C2 C5 D4
0E18: A0 D4 CF CF A0 CD D5 C3
0E20: C8 29 01 29 BC 02 61 28
0E28: D9 CF D5 A0 C8 C1 D6 C5
0E30: A0 CF CE CC D9 A0 29 46
0E38: D1 45 28 A0 C4 CF CC CC
0E40: C1 D2 D3 A0 D4 CF A0 C2
0E48: C5 D4 29 01 08 C6 02 5F
0E50: B6 8A 02 01 10 DA 02 C3
0E58: 71 2F 3F B1 0E 00 72 12
0E60: B2 02 00 01 0E E4 02 60
0E68: C3 1C B2 02 00 24 B7 DA
0E70: 02 01 0E EE 02 60 C3 19
0E78: B1 0E 00 24 B7 DA 02 01
0E80: 0E F8 02 60 C3 1C B1 0B
0E88: 00 24 B8 2A 03 01 0E 02
0E90: 03 60 C3 16 B1 0B 00 24
0E98: B8 3E 03 01 0E 0C 03 60
0EA0: C3 16 B1 0C 00 24 B8 52
0EA8: 03 01 0E 16 03 60 C3 16
0EB0: B1 0D 00 24 B8 66 03 01
0EB8: 0E 20 03 60 C3 16 B1 0E
0EC0: 00 24 B8 7A 03 01 06 2A
0EC8: 03 62 C3 01 08 34 03 5F
0ED0: B9 8E 03 01 0B 3E 03 61
0ED8: 28 CA C1 C3 CB 29 01 08
0EE0: 48 03 5F B9 8E 03 01 0C
0EE8: 52 03 61 28 D1 D5 C5 C5
0EF0: CE 29 01 08 5C 03 5F B9
0EF8: 8E 03 01 0B 66 03 61 28
0F00: CB C9 CE C7 29 01 08 70
0F08: 03 5F B9 8E 03 01 0A 7A
0F10: 03 61 28 C1 C3 C5 29 01
0F18: 05 84 03 63 01 0C 8E 03
0F20: 60 C3 19 C1 24 B9 A2 03
0F28: 01 08 98 03 5F B9 CA 03
0F30: 01 0C A2 03 60 C3 18 C2
0F38: 24 B9 CA 03 01 11 B6 03
0F40: 61 28 D9 CF D5 A0 D7 C9
0F48: CE A1 A1 A1 29 01 08 C0
0F50: 03 5F B2 D2 00 01 16 CA
0F58: 03 61 28 D3 CF D2 D2 D9
0F60: AC A0 D9 CF D5 A0 CC CF
0F68: D3 C5 29 01 0C D4 03 60
0F70: CD 1C D1 24 B2 F0 00 01
0F78: 05 DE 03 63 01 05 E8 03
0F80: 63 01 2A F2 03 61 28 D3
0F88: CF D2 D2 D9 AC A0 C6 D2
0F90: C9 C5 CE C4 A0 C2 D5 D4
0F98: A0 D9 CF D5 A0 C2 CC C5
0FA0: D7 A0 D9 CF D5 D2 A0 D7
0FA8: C1 C4 29 01 1D FC 03 61
0FB0: 28 D4 D2 D9 A0 C1 C7 C1
0FB8: C9 CE A0 A8 D9 C5 D3 A0
0FC0: CF D2 A0 CE CF A9 29 47
0FC8: 01 07 01 04 52 C1 40 01
0FD0: 11 06 04 60 C1 40 39 28
0FD8: D9 C5 D3 29 24 B1 6E 00
0FE0: 01 1A 10 04 61 28 CF CB
0FE8: A0 C8 CF D0 C5 A0 D9 CF
0FF0: D5 A0 C8 C1 C4 A0 C6 D5
0FF8: CE 29 01 05 1A 04 51 01
E2B3R
RUN

View File

@ -0,0 +1,11 @@
The programs listed here are to be loaded while in BASIC.
To load:
Power up the replica 1, press RESET button.
Type 'E000R' and then Enter key.
Transfer the program with your terminal program (Hyperterminal) as described in the replica 1 Manual.
Once the program is downloaded, it will run automatically.

View File

@ -0,0 +1,68 @@
20 TAB(16):PRINT "23 MATCHES"
30 TAB(5):PRINT "CREATIVE COMPUTING, NEW JERSEY"
35 TAB(1):PRINT "MODIFIED BY PHILIP LORD FOR THE APPLE 1"
40 PRINT:PRINT:PRINT
80 PRINT "THIS IS A GAME CALLED '23 MATCHES'."
90 PRINT
100 PRINT "WHEN IT IS YOUR TURN, YOU MAY TAKE ONE,"
110 PRINT "TWO, OR THREE MATCHES. THE OBJECT OF "
120 PRINT "THE GAME IS NOT TO TAKE THE LAST MATCH."
130 PRINT
140 PRINT "LET'S FLIP A COIN TO SEE WHO GOES"
150 PRINT "FIRST. IF IT IS HEADS THEN I WIN"
155 PRINT "THE TOSS..."
155 PRINT
160 REM
165 N = 23
170 Q =RND(2)
180 IF Q = 1 THEN 210
190 PRINT "TAILS! YOU GO FIRST. "
195 PRINT
200 GOTO 300
210 PRINT "HEADS! I WIN! HA! HA!"
220 PRINT "PREPARE TO LOSE, MEATBALL-NOSE!!"
230 PRINT
250 PRINT "I TAKE 2 MATCHES"
260 N = N -2
270 PRINT "THE NUMBER OF MATCHES IS NOW "; N
280 PRINT
290 PRINT "YOUR TURN"
295 PRINT "YOU MAY TAKE 1, 2 OR 3 MATCHES."
300 PRINT "HOW MANY DO YOU WISH TO REMOVE"
310 INPUT K
320 IF K > 3 THEN 430
330 IF K <= 0 THEN 430
340 N = N - K
350 PRINT "THERE ARE NOW ";N;" MATCHES REMAINING."
351 IF N = 4 THEN 381
352 IF N = 3 THEN 383
353 IF N = 2 THEN 385
360 IF N <= 1 THEN 530
370 Z = 4 - K
372 GOTO 390
380 PRINT
381 Z = 3
382 GOTO 390
383 Z = 2
384 GOTO 390
385 Z = 1
390 PRINT "MY TURN! I REMOVE "; Z ;" MATCHES"
400 N = N - Z
410 IF N <= 1 THEN 470
420 GOTO 270
430 PRINT "VERY FUNNY! DUMMY!"
440 PRINT "DO YOU WANT TO PLAY OR GOOF AROUND?"
450 PRINT "NOW, HOW MANY MATCHES DO YOU WANT"
460 GOTO 310
470 PRINT
480 PRINT "SORRY! YOU TOOK THE LAST MATCH!"
490 PRINT "HA! HA! I BEAT YOU!!!"
500 PRINT
510 PRINT "GOOD BYE LOSER!"
520 GOTO 560
530 PRINT: PRINT "YOU WON, FLOPPY EARS!"
540 PRINT "THINK YOU'RE PRETTY SMART!"
550 PRINT: PRINT "LETS PLAY AGAIN (Y/N).": INPUT Y$
555 IF Y$="Y" THEN GOTO 130
560 END
RUN

View File

@ -0,0 +1,169 @@
SCR
LOMEM=768
HIMEM=16384
10 TAB(28):PRINT "AMAZING PROGRAM"
20 TAB(15):PRINT "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
25 REM PORTED TO REPLICA/1 BY CARL CLAUNCH
30 PRINT:PRINT:PRINT:PRINT
100 INPUT "WHAT ARE YOUR WIDTH AND LENGTH",H,V
102 IF H#1 AND V#1 THEN 110
104 PRINT "MEANINGLESS DIMENSIONS. TRY AGAIN.":GOTO 100
110 DIM W(H*V),U(H*V)
115 FOR I=1 TO H*V:W(I)=0:U(I)=0:NEXT I
120 PRINT
130 PRINT
140 PRINT
150 PRINT
160 Q=0:Z=0:X=RND(H)+1
165 FOR I=1 TO H
170 IF I=X THEN 173
171 PRINT ".--";:GOTO 180
173 PRINT ". ";
180 NEXT I
190 PRINT "."
195 C=1:W((X-1)*V+1)=C:C=C+1
200 R=X:S=1:GOTO 260
210 IF R#H THEN 240
215 IF S#V THEN 230
220 R=1:S=1:GOTO 250
230 R=1:S=S+1:GOTO 250
240 R=R+1
250 IF W((R-1)*V+S)=0 THEN 210
260 IF R-1=0 THEN 530
265 IF W((R-2)*V+S)#0 THEN 530
270 IF S-1=0 THEN 390
280 IF W((R-1)*V+S-1)#0 THEN 390
290 IF R=H THEN 330
300 IF W(R*V+S)#0 THEN 330
310 X=RND(3)+1
320 GOTO 320+X
321 GOTO 790
322 GOTO 820
323 GOTO 860
330 IF S#V THEN 340
334 IF Z=1 THEN 370
338 Q=1:GOTO 350
340 IF W((R-1)*V+S+1)#0 THEN 370
350 X=RND(3)+1
360 GOTO 360+X
361 GOTO 790
362 GOTO 820
363 GOTO 910
370 X=RND(2)+1
380 GOTO 380+X
381 GOTO 790
382 GOTO 820
390 IF R=H THEN 470
400 IF W(R*V+S)#0 THEN 470
405 IF S#V THEN 420
410 IF Z=1 THEN 450
415 Q=1:GOTO 430
420 IF W((R-1)*V+S+1)#0 THEN 450
430 X=RND(3)+1
440 GOTO 440+X
441 GOTO 790
442 GOTO 860
443 GOTO 910
450 X=RND(2)+1
460 GOTO 460+X
461 GOTO 790
462 GOTO 860
470 IF S#V THEN 490
480 IF Z=1 THEN 520
485 Q=1:GOTO 500
490 IF W((R-1)*V+S+1)#0 THEN 520
500 X=RND(2)+1
510 GOTO 510+X
511 GOTO 790
512 GOTO 910
520 GOTO 790
530 IF S-1=0 THEN 670
540 IF W((R-1)*V+S-1)#0 THEN 670
545 IF R=H THEN 610
547 IF W(R*V+S)#0 THEN 610
550 IF S#V THEN 560
552 IF Z=1 THEN 590
554 Q=1:GOTO 570
560 IF W((R-1)*V+S+1)#0 THEN 590
570 X=RND(3)+1
580 GOTO 580+X
581 GOTO 820
582 GOTO 860
583 GOTO 910
590 X=RND(2)+1
600 GOTO 600+X
601 GOTO 820
602 GOTO 860
610 IF S#V THEN 630
620 IF Z=1 THEN 660
625 Q=1:GOTO 640
630 IF W((R-1)*V+S+1)#0 THEN 660
640 X=RND(2)+1
650 GOTO 650+X
651 GOTO 820
652 GOTO 910
660 GOTO 820
670 IF R=H THEN 740
680 IF W(R*V+S)#0 THEN 740
685 IF S#V THEN 700
690 IF Z=1 THEN 730
695 Q=1:GOTO 830
700 IF W((R-1)*V+S+1)#0 THEN 730
710 X=RND(2)+1
720 GOTO 720+X
721 GOTO 860
722 GOTO 910
730 GOTO 860
740 IF S#V THEN 760
750 IF Z=1 THEN 780
755 Q=1:GOTO 770
760 IF W((R-1)*V+S+1)#0 THEN 780
770 GOTO 910
780 GOTO 1000
790 W((R-2)*V+S)=C
800 C=C+1:U((R-2)*V+S)=2:R=R-1
810 IF C=H*V+1 THEN 1010
815 Q=0:GOTO 260
820 W((R-1)*V+S-1)=C
830 C=C+1
840 U((R-1)*V+S-1)=1:S=S-1:IF C=H*V+1 THEN 1010
850 Q=0:GOTO 260
860 W(R*V+S)=C
870 C=C+1:IF U((R-1)*V+S)=0 THEN 880
875 U((R-1)*V+S)=3:GOTO 890
880 U((R-1)*V+S)=2
890 R=R+1
900 IF C=H*V+1 THEN 1010
905 GOTO 530
910 IF Q=1 THEN 960
920 W((R-1)*V+S+1)=C:C=C+1:IF U((R-1)*V+S)=0 THEN 940
930 U((R-1)*V+S)=3:GOTO 950
940 U((R-1)*V+S)=1
950 S=S+1:IF C=H*V+1 THEN 1010
955 GOTO 260
960 Z=1
970 IF U((R-1)*V+S)=0 THEN 980
975 U((R-1)*V+S)=3:Q=0:GOTO 1000
980 U((R-1)*V+S)=1:Q=0:S=1:R=1:GOTO 250
1000 GOTO 210
1010 FOR J=1 TO V
1011 PRINT "I";
1012 FOR I=1 TO H
1013 IF U((I-1)*V+J)<2 THEN 1030
1020 PRINT " ";
1021 GOTO 1040
1030 PRINT " I";
1040 NEXT I
1041 PRINT
1043 FOR I=1 TO H
1045 IF U((I-1)*V+J)=0 THEN 1060
1050 IF U((I-1)*V+J)=2 THEN 1060
1051 PRINT ": ";
1052 GOTO 1070
1060 PRINT ":--";
1070 NEXT I
1071 PRINT "."
1072 NEXT J
1073 END
RUN

View File

@ -0,0 +1,99 @@
10 TAB(16): PRINT "BATNUM"
20 TAB(5):PRINT "CREATIVE COMPUTING, NEW JERSEY"
25 TAB(1):PRINT "MODIFIED BY PHILIP LORD FOR THE APPLE 1"
30 PRINT:PRINT:PRINT
110 PRINT "THIS PROGRAM IS A 'BATTLE OF NUMBERS'"
120 PRINT "GAME, WHERE THE COMPUTER IS YOUR "
125 PRINT "OPPONENT."
130 PRINT
140 PRINT "THE GAME STARTS WITH AN ASSUMED PILE OF"
150 PRINT "OBJECTS. YOU AND YOUR OPPONENT "
160 PRINT "ALTERNATELY TAKE OBJECTS FROM THE PILE."
170 PRINT "WINNING IS DEFINED IN ADVANCE AS TAKING"
175 PRINT "THE LAST OBJECT OR NOT. YOU CAN ALSO"
178 PRINT "SET SOME OTHER BEGINNING CONDITIONS."
180 PRINT "DON'T USE ZERO, HOWEVER, IN PLAYING THE"
190 PRINT "GAME. ENTER A NEGATIVE NUMBER FOR NEW "
195 PRINT "PILE SIZE TO STOP PLAYING."
200 PRINT
210 GOTO 330
220 FOR I=1 TO 10
230 PRINT
240 NEXT I
330 PRINT"ENTER PILE SIZE": INPUT N: PRINT
350 IF N>=1 THEN 370
360 GOTO 330
370 IF N<>N THEN 220
380 IF N<1 THEN 220
390 PRINT "ENTER WIN OPTION"
390 PRINT "1 TO TAKE LAST, 2 TO AVOID LAST: ": INPUT M: PRINT
410 IF M=1 THEN 430
420 IF M<>2 THEN 390
430 PRINT "ENTER MIN AND MAX ": INPUT A,B: PRINT
450 IF A>B THEN 430
460 IF A<1 THEN 430
470 IF A<>A THEN 430
480 IF B<>B THEN 430
490 PRINT "ENTER START OPTION"
490 PRINT "1 COMPUTER FIRST, 2 YOU FIRST ": INPUT S
500 PRINT:PRINT
510 IF S=1 THEN 530
520 IF S<>2 THEN 490
530 C=A+B
540 IF S=2 THEN 570
550 GOSUB 600
560 IF W=1 THEN 220
570 GOSUB 810
580 IF W=1 THEN 220
590 GOTO 550
600 Q=N
610 IF M=1 THEN 630
620 Q=Q-1
630 IF M=1 THEN 680
640 IF N>A THEN 720
650 W=1
660 PRINT "COMPUTER TAKES ";N;" AND LOSES."
670 RETURN
680 IF N>B THEN 720
690 W=1
700 PRINT "COMPUTER TAKES ";N;" AND WINS."
710 RETURN
720 P=Q-C*(Q/C)
730 IF P>=A THEN 750
740 P=A
750 IF P<=B THEN 770
760 P=B
770 N=N-P
780 PRINT "COMPUTER TAKES ";P;" AND LEAVES ";N
790 W=0
800 RETURN
810 PRINT:PRINT "YOUR MOVE ";
820 INPUT P
830 IF P<>0 THEN 870
840 PRINT: PRINT "I TOLD YOU NOT TO USE ZERO!"
845 PRINT "COMPUTER WINS BY FORFEIT."
850 W=1
860 RETURN
870 IF P<>P THEN 920
880 IF P>=A THEN 910
890 IF P=N THEN 960
900 GOTO 920
910 IF P<=B THEN 940
920 PRINT "ILLEGAL MOVE, REENTER IT ";
930 GOTO 820
940 N=N-P
950 IF N<>0 THEN 1030
960 IF M=1 THEN 1000
970 PRINT "TOUGH LUCK, YOU LOSE."
980 W=1
990 RETURN
1000 PRINT "CONGRATULATIONS, YOU WIN."
1010 W=1
1020 RETURN
1030 IF N>=0 THEN 1060
1040 N=N+P
1050 GOTO 920
1060 W=0
1070 RETURN
1080 END
RUN

View File

@ -0,0 +1,76 @@
E000R
SCR
LOMEM=700
1 REM CONVERSION BY VINCE BRIEL 1/28/2007
2 TAB(16):PRINT "CHECKERS":PRINT "CREATIVE COMPUTING MORRISTOWN NEW JERSEY "
3 PRINT "COMPUTER IS X, AND YOU ARE O. (1,1) IS THE LOWER LEFT CORNER"
4 PRINT "(1,8) IS THE UPPER LEFT CORNER (8,1) IS THE LOWER RIGHT CORNER"
5 PRINT "(8,8) IS THE UPPER RIGHT CORNER '+TO' = ANOTHER? TYPE 0 FOR NO"
6 DIM R(5),S(64):G=-1:R(1)=-99:FOR X=1 TO 64:S(X)=0:NEXT X
7 S(1)=1:S(3)=1:S(5)=1:S(7)=1:S(10)=1:S(12)=1:S(14)=1:S(16)=1:S(17)=1:S(19)=1:S(21)=1:S(23)=1
8 S(42)=-1:S(44)=-1:S(46)=-1:S(48)=-1:S(49)=-1:S(51)=-1
9 S(53)=-1:S(55)=-1:S(58)=-1:S(60)=-1:S(62)=-1:S(64)=-1
10 FOR X=1 TO 8:FOR Y=1 TO 8:IF S((8*Y+X)-8)>-1 THEN 350
310 IF S((8*Y+X)-8)#-1 THEN 330
320 FOR A=-1 TO 1 STEP 2:B=G:GOSUB 650:NEXT A
330 IF S((8*Y+X)-8)#-2 THEN 350
340 FOR A=-1 TO 1 STEP 2:FOR B=-1 TO 1 STEP 2:GOSUB 650:NEXT B,A
350 NEXT Y,X:GOTO 1140
650 U=X+A:V=Y+B:IF U<1 OR U>8 OR V<1 OR V>8 THEN 870
740 IF S((8*V+U)-8)#0 THEN 770
750 GOSUB 910:GOTO 870
770 IF S((8*V+U)-8)<0 THEN 870
790 U=U+A:V=V+B:IF U<1 OR V<1 OR U>8 OR V>8 THEN 870
850 IF S((8*V+U)-8)=0 THEN GOSUB 910
870 RETURN
910 IF V=0 AND S((8*Y+X)-8)=-1 THEN Q=Q+2
920 IF ABS(Y-V)=2 THEN Q=Q+5
960 IF Y=8 THEN Q=Q-2
980 IF U=1 OR U=8 THEN Q=Q+1
1030 FOR C=-1 TO 1 STEP 2:IF U+C<1 OR U+C>8 OR V+G<1 THEN 1080
1032 U1=U+C:V1=V+G:X1=U-C:Y1=V-G
1035 IF S((8*V1+U1)-8)>=0 THEN 1040
1037 Q=Q+1:GOTO 1080
1040 IF U-C<1 OR U-C>8 OR V-G>8 OR S((8*V1+U1)-8)<=0 OR S((8*Y1+X1)-8)#0 THEN 1080
1060 IF U-C=X AND V-G=Y THEN Q=Q-2
1080 NEXT C:IF Q<=R(1)THEN 1100
1090 R(1)=Q:R(2)=X:R(3)=Y:R(4)=U:R(5)=V
1100 Q=0:RETURN
1140 IF R(1)=-99 THEN 1880
1230 PRINT "FROM ";R(2);",";R(3);" TO ";R(4);",";R(5);:R(1)=-99
1240 IF R(5)#1 THEN 1250
1245 S((8*R(5)+R(4))-8)=-2:S((8*R(3)+R(2))-8)=0:GOTO 1420
1250 S((8*R(5)+R(4))-8)=S((8*R(3)+R(2))-8):S((8*R(3)+R(2))-8)=0:IF ABS(R(2)-R(4))#2 THEN 1420
1330 U1=(R(2)+R(4))/2:V1=(R(3)+R(5))/2:S((8*V1+U1)-8)=0
1340 X=R(4):Y=R(5):IF S((8*Y+X)-8)#-1 THEN 1350
1345 B=-2:FOR A=-2 TO 2 STEP 4:GOSUB 1370
1350 IF S((8*Y+X)-8)#-2 THEN 1360
1355 FOR A=-2 TO 2 STEP 4:FOR B=-2 TO 2 STEP 4:GOSUB 1370:NEXT B
1360 NEXT A:IF R(1)=-99 THEN 1420
1365 PRINT" TO ";R(4);",";R(5);:R(1)=-99:GOTO 1240
1370 U=X+A:V=Y+B:IF U<1 OR U>8 OR V<1 OR V>8 THEN 1400
1380 X1=X+A/2:Y1=Y+B/2:IF S((8*V+U)-8)=0 AND S((8*Y1+X1)-8)>0 THEN GOSUB 910
1400 RETURN
1420 PRINT:PRINT:FOR Y=8 TO 1 STEP-1:FOR X=1 TO 8:TAB(X*4):IF S((8*Y+X)-8)=0 THEN PRINT".";
1470 IF S((8*Y+X)-8)=1 THEN PRINT"O";
1490 IF S((8*Y+X)-8)=-1 THEN PRINT"X";
1510 IF S((8*Y+X)-8)=-2 THEN PRINT"X*";
1530 IF S((8*Y+X)-8)=2 THEN PRINT"O*";
1550 NEXT X:PRINT:PRINT:NEXT Y:PRINT
1552 FOR L=1 TO 8:FOR M=1 TO 8:IF S((8*M+L)-8)=1 OR S((8*M+L)-8)=2 THEN U1=1
1558 IF S((8*M+L)-8)=-1 OR S((8*M+L)-8)=-2 THEN V1=1
1560 NEXT M,L:IF U1#1 THEN 1885
1566 IF V1#1 THEN 1880
1590 U1=0: V1=0:INPUT "FROM",E,H:X=E:Y=H:IF S((8*Y+X)-8)<=0 THEN 1590
1670 INPUT "TO",A,B:X=A:Y=B:IF S((8*Y+X)-8)#0 OR ABS(A-E)>2 OR ABS(A-E)#ABS(B-H) THEN 1670
1750 S((8*B+A)-8)=S((8*H+E)-8):S((8*H+E)-8)=0:IF ABS(E-A)#2 THEN 1810
1800 X1=(E+A)/2:Y1=(H+B)/2:S((8*Y1+X1)-8)=0
1802 INPUT "+TO",X1,Y1:IF X1<1 THEN 1810
1804 IF S((8*Y1+X1)-8)#0 OR ABS(X1-A)#2 OR ABS(Y1-B)#2 THEN 1802
1806 E=A:H=B:A=X1:B=Y1:GOTO 1750
1810 IF B=8 THEN S((8*B+A)-8)=2
1830 GOTO 10
1880 PRINT: PRINT "YOU WIN.": END
1885 PRINT: PRINT "I WIN.": END
RUN

View File

@ -0,0 +1,98 @@
SCR
LOMEM=768
HIMEM=16384
100 TAB(26):PRINT "COLUMN"
110 TAB(20):PRINT "CREATIVE COMPUTING"
120 TAB(18):PRINT "MORRISTOWN, NEW JERSEY"
125 REM PORTED TO REPLICA/1 BY CARL CLAUNCH
130 PRINT:PRINT:PRINT
140 PRINT "THIS PROGRAM WILL SHOW YOU A CARD TRICK. AFTER THE FIRST DEAL"
150 PRINT "PICK A CARD AND TYPE THE NUMBER OF THE COLUMN CONTAINING IT."
160 PRINT "THE DEALER WILL THEN PICK UP THE CARDS, A COLUMN AT A TIME"
170 PRINT "AND WILL DEAL THEM OUT AGAIN HORIZONTALLY. WHEN HE FINISHES"
180 PRINT "EACH TIME, TYPE THE NUMBER OF THE NEW COLUMN CONTAINING YOUR"
190 PRINT "CARD. FOLLOWING THE LAST DEAL THE DEALER WILL TURN OVER THE"
200 PRINT "CARDS, ONE AT A TIME, UNTIL HE REACHES THE ONE YOU PICKED."
210 PRINT:PRINT:PRINT
220 DIM A(21),B(21),C$(6),D$(2),T$(3),A$(5)
230 FOR X=1 TO 21
240 J=0
250 T=RND(52)
270 FOR Y=1 TO X-1
280 IF A(Y)=T THEN 250
290 NEXT Y
300 A(X)=T
310 NEXT X
320 N=0
330 FOR I=1 TO 3
340 FOR Z=1 TO 21
350 IF A(Z)=A(Z)/4*4 THEN 470
360 IF A(Z)-2= A(Z)/4*4 THEN 440
370 IF A(Z)-3= A(Z)/4*4 THEN 410
380 C$="SPADES"
390 D$=""
400 GOTO 490
410 C$="HEARTS"
420 D$=""
430 GOTO 490
440 C$="CLUBS"
450 D$=""
460 GOTO 490
470 C$="DIAMON"
480 D$="DS"
490 N=N+1
500 IF N#4 THEN 530
510 PRINT
520 N=1
530 IF A(Z)>35 THEN 580
540 TAB((N-1)*25):PRINT A(Z)/4+2;" OF ";C$;D$;
550 IF J=5 THEN 900
560 IF J=10 THEN 980
570 GOTO 710
580 IF A(Z)/4=9 THEN 670
590 IF A(Z)/4=10 THEN 650
600 IF A(Z)/4=11 THEN 630
610 A$="JACK"
620 GOTO 680
630 A$="QUEEN"
640 GOTO 680
650 A$="KING"
660 GOTO 680
670 A$="ACE"
680 TAB((N-1)*25):PRINT A$;" OF ";C$;D$;
690 IF J=5 THEN 900
700 IF J=10 THEN 980
710 NEXT Z
720 PRINT:PRINT
730 INPUT "WHICH COLUMN CONTAINS YOUR CARD? ",K
740 IF K>=1 AND K<=3 THEN 760
750 PRINT:PRINT "(1-3)":GOTO 730
760 PRINT:PRINT
770 T=1
780 S=K+2-3*((K+1)/3)
790 GOSUB 940
800 S=K
810 GOSUB 940
820 S=K+1-3*(K/3)
830 GOSUB 940
840 FOR C=1 TO 21
850 A(C)=B(C)
860 NEXT C
870 NEXT I
880 J=5
890 FOR Z=1 TO 11+RND(10)+1:N=0:GOTO 350
900 PRINT:NEXT Z:PRINT
910 PRINT "OOPS!!! YOUR CARD IS THE ";
920 N=1
930 J=10:Z=11:GOTO 350
940 FOR R=S TO S+18 STEP 3
950 B(T)=A(R)
960 T=T+1
970 NEXT R:RETURN
980 PRINT ".":PRINT
990 INPUT "DO YOU WANT TO SEE IT AGAIN?",T$
1000 IF T$#"YES" THEN 1020
1010 PRINT:PRINT:GOTO 230
1020 END
RUN

View File

@ -0,0 +1,104 @@
SCR
LOMEM=768
HIMEM=16384
10 TAB(25): PRINT "CONCENTRATION"
20 TAB(15): PRINT "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
25 REM PORTED TO REPLICA/1 BY CARL CLAUNCH
30 PRINT
40 PRINT
50 PRINT
200 DIM C$(156),K$(3),Z$(3),E$(156),L$(3),M$(156)
210 GOSUB 1000
230 C$=E$
250 REM -- SHUFFLE AND DEAL
255 PRINT "CARD DECK IS :"
260 FOR Z=1 TO 51
270 K$=C$((Z-1)*3+1,Z*3)
272 PRINT K$;" ";
275 L=Z:IF RND(2) THEN L=53-Z
280 L$=C$((L-1)*3+1,L*3):Q=Z:GOSUB 2000
290 L$=K$:Q=L:GOSUB 2000 : REM INSERT INTO C$(Q)
300 NEXT Z
310 PRINT:PRINT "SHUFFLING DECK . . ."
330 PRINT "ENTER 0 AT ANY TIME TO QUIT"
335 GOSUB 950
340 REM -- START TO PLAY
350 FOR N=1 TO 26
360 INPUT "FIRST CARD",U
365 IF U=0 THEN 900
370 IF U>0 AND U<53 THEN 380
374 PRINT "THERE ARE ONLY 52 CARDS IN THE DECK, NOT ";U
376 GOTO 360
380 LET G=1
390 IF C$((U-1)*3+1,U*3)=" " THEN 840
400 INPUT "SECOND CARD",W
405 IF W=0 THEN 900
410 IF W>0 AND W<53 THEN 420
414 PRINT "THERE ARE ONLY 52 CARDS IN THE DECK, NOT ";W
416 GOTO 400
420 LET G=2
430 IF C$((W-1)*3+1,W*3)=" " THEN 840
440 IF U#W THEN 470
450 PRINT "YOU CAN'T PICK THE SAME CARD TWICE!"
460 GOTO 400
470 IF C$((U-1)*3+1,(U-1)*3+2)=C$((W-1)*3+1,(W-1)*3+2) THEN 580
480 PRINT "#";U;" IS ";C$((U-1)*3+1,U*3),"#";W;" IS ";C$((W-1)*3+1,W*3)
490 PRINT
570 GOTO 630
580 PRINT "THAT'S A MATCH --";C$((U-1)*3+1,U*3),C$((W-1)*3+1,W*3)
590 L$=" ":Q=U:GOSUB 2000:REM INSERT INTO C$(Q)
600 Q=W:GOSUB 2000:REM INSERT INTO C$(Q)
610 LET S=S+1
620 PRINT "YOUR SCORE IS NOW ";S;" YOU HAVE HAD ";N;" PICKS"
630 GOSUB 2200
635 NEXT N
640 REM -- THE RESULTS
650 LET S1=S*10/55
660 PRINT "YOU SCORED ";S;" OUT OF ";N;" THAT IS ";
670 GOTO 680+20*S1
680 PRINT "POOR."
690 GOTO 770
700 PRINT "FAIR."
710 GOTO 770
720 PRINT "GOOD."
730 GOTO 770
740 PRINT "EXCELLENT ! ! !"
750 GOTO 770
760 PRINT ". . . AHHH . . . UH...YOU MUST HAVE CHEATED!"
770 PRINT
780 INPUT "DO YOU WANT TO PLAY AGAIN",Z$
800 IF Z$ = "YES" THEN 210
810 PRINT
820 PRINT "COME BACK AGAIN!!"
830 END
840 PRINT "YOU HAVE ALREADY MATCHED THAT CARD."
850 IF G=1 THEN 360
860 GOTO 400
900 PRINT "SORRY YOU DECIDED TO QUIT. BYE."
910 END
950 PRINT "HIT ENTER REPEATEDLY UNTIL AT BOTTOM OF SCREEN,"
955 PRINT "THEN TYPE ANY LETTER TO BEGIN THE GAME"
960 INPUT D$
970 IF LEN(D$)#0 THEN RETURN
975 PRINT
980 GOTO 960
1000 REM SUB TO LOAD E$ THE FIRST TIME
1010 E$ = " AS 2S 3S 4S 5S 6S 7S 8S 9S10S JS QS KS"
1020 E$(LEN(E$)+1)=" AH 2H 3H 4H 5H 6H 7H 8H 9H10H JH QH KH"
1030 E$(LEN(E$)+1)=" AD 2D 3D 4D 5D 6D 7D 8D 9D10D JD QD KD"
1040 E$(LEN(E$)+1)=" AC 2C 3C 4C 5C 6C 7C 8C 9C10C JC QC KC"
1050 RETURN
2000 REM INSERTS L$ AT LOCATION Q INTO C$
2010 IF Q = 52 THEN 2030
2020 M$=C$(Q*3+1)
2030 C$((Q-1)*3+1)=L$
2040 IF Q<52 THEN C$(Q*3+1)=M$
2050 RETURN
2200 REM ADVANCE TO TOP OF SCREEN FOR NEXT TRIAL
2210 FOR I5=1 TO 1500:NEXT I5 : REM DELAY LOOP
2220 FOR I5=1 TO 24
2230 PRINT
2240 NEXT I5
2260 RETURN
3000 END
RUN

View File

@ -0,0 +1,358 @@
SCR
LOMEM=768
HIMEM=16384
5 PRINT "**************************"
10 TAB (6): PRINT "ELIZA"
20 PRINT "CREATIVE COMPUTING"
30 PRINT "MORRISTOWN, NEW JERSEY": PRINT
40 REM PORTED AND REWRITTEN FOR REPLICA 1
45 REM BY VINCE BRIEL AND CARL CLAUNCH
55 PRINT "*************************"
60 PRINT : PRINT : PRINT
100 DIM S(36),R(36),N(36)
105 DIM K$(36),W$(37),O$(27),R$(112),I$(90),X$(155)
106 DIM P$(100)
107 DIM J(14),J$(112)
108 DIM D$(255),D(36),E(36)
109 DIM B$(200)
110 N1=36:V1=14:P$=""
120 GOSUB 5000
160 PRINT "HI! I'M ELIZA. WHAT'S YOUR PROBLEM?"
200 INPUT X$
201 I$=" "
202 I$(2)=X$
203 F=LEN(I$)
204 I$(F+1)=" "
205 F=F+2
210 IF X$="QUIT" THEN 9999
215 X$(F-2)=" "
220 IF X$(1,4)#"SHUT" THEN 255
230 PRINT "IF YOU FEEL THAT WAY, THEN I WILL SHUT UP.":GOTO 9999
255 IF I$#P$ THEN 260
256 PRINT "PLEASE DON'T REPEAT YOURSELF!": GOTO 200
260 M=0: B$="": Q=0 : K=36
267 H=0
270 FOR L=1 TO F
275 Y$=I$(L,L)
280 IF Y$ # " " THEN 285
281 H=1
282 GOTO 300
285 IF Y$="!" THEN 800
297 GOTO 500
300 IF Q=0 THEN 500
315 A=0
320 FOR X=1 TO V1-1
330 W$=J$(X*8-7,X*8+J(X)-8)
335 O$=J$(X*8+1,X*8+J(X+1))
350 T=J(X)
353 B=T+L-1
355 U=J(X+1)
356 C=U+L-1
357 IF B > F THEN 400
360 IF I$(L,B)#W$ THEN 400
365 B$(M+1)=O$
370 M=M+U
375 L=B
380 X=V1
385 A=1
390 GOTO 470
400 IF C>F THEN 470
410 IF I$(L,C)#O$ THEN 470
420 B$(M+1)=W$
430 M=M+T
440 L=C
450 X=V1
460 A=1
470 X=X+1
475 NEXT X
480 IF A#1 THEN 500
485 A=0
490 GOTO 800
500 IF Y$=" " THEN 790
505 IF H=0 THEN 790
507 H=0
510 IF Q#0 THEN 790
515 GOSUB 4000
520 FOR S=P TO O
530 K$=D$(D(S),E(S))
540 G=LEN(K$)+1
550 K$(G)=" "
560 V=L+G-1
570 IF V+1 > F THEN 650
600 IF I$(L,V)#K$ THEN 650
610 L=V-1
615 Y$=" "
620 Q=1
630 K=S
640 S=N1
650 NEXT S
790 IF Q=0 THEN 800
794 M=M+1
795 B$(M)= Y$
800 NEXT L
900 GOSUB 1310+(R(K)*10)
940 R(K)=R(K)+1: IF R(K)>N(K) THEN R(K)=S(K)
950 I=LEN(R$)
960 IF R$(I,I)#"*" THEN 990
965 IF LEN(B$) >= 3 THEN 975
970 PRINT "YOU WILL HAVE TO ELABORATE MORE FOR ME TO HELP YOU":GOTO 995
975 IF B$(2,3)=" " THEN 970
980 R$(I)=B$(2)
990 PRINT R$
995 P$=I$: GOTO 200
1320 R$="DON'T YOU BELIEVE THAT I CAN*": RETURN
1330 R$="PERHAPS YOU WOULD LIKE TO BE LIKE ME*": RETURN
1340 R$="YOU WANT ME TO BE ABLE TO*": RETURN
1350 R$="PERHAPS YOU DON'T WANT TO*": RETURN
1360 R$="DO YOU WANT TO BE ABLE TO*": RETURN
1365 R$="DO YOU WANT TO BE ABLE TO*": RETURN
1370 R$="WHAT MAKES YOU THINK I AM*": RETURN
1380 R$="DOES IT PLEASE YOU TO BELIEVE I AM*": RETURN
1390 R$="PERHAPS YOU WOULD LIKE TO BE*": RETURN
1400 R$="DO YOU SOMETIMES WISH YOU WERE*": RETURN
1410 R$="DON'T YOU REALLY*": RETURN
1420 R$="WHY DON'T YOU*": RETURN
1430 R$="DO YOU WISH TO BE ABLE TO*": RETURN
1440 R$="DOES THAT TROUBLE YOU*": RETURN
1450 R$="DO YOU OFTEN FEEL*": RETURN
1460 R$="DO YOU OFTEN FEEL*": RETURN
1470 R$="DO YOU ENJOY FEELING*": RETURN
1480 R$="DO YOU REALLY BELIEVE I DON'T*": RETURN
1490 R$="PERHAPS IN GOOD TIME I WILL*": RETURN
1500 R$="DO YOU WANT ME TO*": RETURN
1510 R$="DO YOU THINK YOU SHOULD BE ABLE TO*": RETURN
1520 R$="WHY CAN'T YOU*": RETURN
1530 R$="WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*": RETURN
1540 R$="WOULD YOU PREFER IF I WERE NOT*": RETURN
1550 R$="PERHAPS IN YOUR FANTASIES I AM*": RETURN
1560 R$="HOW DO YOU KNOW YOU CAN'T*": RETURN
1570 R$="HAVE YOU TRIED?": RETURN
1580 R$="PERHAPS YOU CAN NOW*": RETURN
1590 R$="DID YOU COME TO ME BECAUSE YOU ARE*": RETURN
1600 R$="HOW LONG HAVE YOU BEEN*": RETURN
1610 R$="DO YOU BELIEVE IT IS NORMAL TO BE*": RETURN
1620 R$="DO YOU ENJOY BEING*": RETURN
1630 R$="WE WERE DISCUSSING YOU--NOT ME.": RETURN
1640 R$="OH, I*": RETURN
1650 R$="YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?": RETURN
1660 R$="WHAT WOULD IT MEAN TO YOU IF YOU GOT*": RETURN
1670 R$="WHY DO YOU WANT*": RETURN
1680 R$="SUPPOSE YOU SOON GOT*": RETURN
1690 R$="WHAT IF YOU NEVER GOT*": RETURN
1700 R$="I SOMETIMES ALSO WANT*": RETURN
1710 R$="WHY DO YOU ASK?": RETURN
1720 R$="DOES THAT QUESTION INTEREST YOU?": RETURN
1730 R$="WHAT ANSWER WOULD PLEASE YOU THE MOST?": RETURN
1740 R$="WHAT DO YOU THINK?": RETURN
1750 R$="ARE SUCH QUESTIONS ON YOUR MIND OFTEN?": RETURN
1760 R$="WHAT IS IT THAT YOU REALLY WANT TO KNOW?": RETURN
1770 R$="HAVE YOU ASKED ANYONE ELSE?": RETURN
1780 R$="HAVE YOU ASKED SUCH QUESTIONS BEFORE?": RETURN
1790 R$="WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?": RETURN
1800 R$="NAMES DON'T INTEREST ME.": RETURN
1810 R$="I DON'T CARE ABOUT NAMES --PLEASE GO ON.": RETURN
1820 R$="IS THAT THE REAL REASON?": RETURN
1830 R$="DON'T ANY OTHER REASONS COME TO MIND?": RETURN
1840 R$="DOES THAT REASON EXPLAIN ANYTHING ELSE?": RETURN
1850 R$="WHAT OTHER REASONS MIGHT THERE BE?": RETURN
1860 R$="PLEASE DON'T APOLOGIZE!": RETURN
1870 R$="APOLOGIES ARE NOT NECESSARY.": RETURN
1880 R$="WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?": RETURN
1890 R$="DON'T BE SO DEFENSIVE!": RETURN
1900 R$="WHAT DOES THAT DREAM SUGGEST TO YOU?": RETURN
1910 R$="DO YOU DREAM OFTEN?": RETURN
1920 R$="WHAT PERSONS APPEAR IN YOUR DREAMS?": RETURN
1930 R$="ARE YOU DISTURBED BY YOUR DREAMS?": RETURN
1940 R$="HOW DO YOU DO ...PLEASE STATE YOUR PROBLEM.": RETURN
1950 R$="YOU DON'T SEEM QUITE CERTAIN.": RETURN
1960 R$="WHY THE UNCERTAIN TONE?": RETURN
1970 R$="CAN'T YOU BE MORE POSITIVE?": RETURN
1980 R$="YOU AREN'T SURE?": RETURN
1990 R$="DON'T YOU KNOW?": RETURN
2000 R$="ARE YOU SAYING NO JUST TO BE NEGATIVE?": RETURN
2010 R$="YOU ARE BEING A BIT NEGATIVE.": RETURN
2020 R$="WHY NOT?": RETURN
2030 R$="ARE YOU SURE?": RETURN
2040 R$="WHY NO?": RETURN
2050 R$="WHY ARE YOU CONCERNED ABOUT MY*": RETURN
2060 R$="WHAT ABOUT YOUR OWN*": RETURN
2070 R$="CAN YOU THINK OF A SPECIFIC EXAMPLE?": RETURN
2080 R$="WHEN?": RETURN
2090 R$="WHAT ARE YOU THINKING OF?": RETURN
2100 R$="REALLY, ALWAYS?": RETURN
2110 R$="DO YOU REALLY THINK SO?": RETURN
2120 R$="BUT YOU ARE NOT SURE YOU*": RETURN
2130 R$="DO YOU DOUBT YOU*": RETURN
2140 R$="IN WHAT WAY?": RETURN
2150 R$="WHAT RESEMBLANCE DO YOU SEE?": RETURN
2160 R$="WHAT DOES THE SIMILARITY SUGGEST TO YOU?": RETURN
2170 R$="WHAT OTHER CONNECTIONS DO YOU SEE?": RETURN
2180 R$="COULD THERE REALLY BE SOME CONNECTION?": RETURN
2190 R$="HOW?": RETURN
2200 R$="YOU SEEM QUITE POSITIVE.": RETURN
2210 R$="ARE YOU SURE?": RETURN
2220 R$="I SEE.": RETURN
2230 R$="I UNDERSTAND.": RETURN
2240 R$="WHY DO YOU BRING UP THE TOPIC OF FRIENDS?": RETURN
2250 R$="DO YOUR FRIENDS WORRY YOU?": RETURN
2260 R$="DO YOUR FRIENDS PICK ON YOU?": RETURN
2270 R$="ARE YOU SURE YOU HAVE ANY FRIENDS?": RETURN
2280 R$="DO YOU IMPOSE ON YOUR FRIENDS?": RETURN
2290 R$="PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU.": RETURN
2300 R$="DO COMPUTERS WORRY YOU?": RETURN
2310 R$="ARE YOU TALKING ABOUT ME IN PARTICULAR?": RETURN
2320 R$="ARE YOU FRIGHTENED BY MACHINES?": RETURN
2330 R$="WHY DO YOU MENTION COMPUTERS?": RETURN
2340 R$="WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?": RETURN
2350 R$="DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?": RETURN
2360 R$="WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?": RETURN
2370 R$="SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?": RETURN
2380 R$="WHAT DOES THAT SUGGEST TO YOU?": RETURN
2390 R$="I SEE.": RETURN
2400 R$="I'M NOT SURE I UNDERSTAND YOU FULLY.": RETURN
2410 R$="COME COME ELUCIDATE YOUR THOUGHTS.": RETURN
2420 R$="CAN YOU ELABORATE ON THAT?": RETURN
2430 R$="THAT IS QUITE INTERESTING.": RETURN
4000 IF Y$#"A" THEN 4030
4010 P=1
4020 O=3
4025 RETURN
4030 IF Y$#"C" THEN 4060
4040 P=4
4050 O=7
4055 RETURN
4060 IF Y$#"D" THEN 4090
4070 P=8
4080 O=8
4085 RETURN
4090 IF Y$#"F" THEN 4120
4100 P=9
4110 O=9
4115 RETURN
4120 IF Y$#"H" THEN 4150
4130 P=10
4140 O=12
4145 RETURN
4150 IF Y$#"I" THEN 4180
4160 P=13
4170 O=18
4175 RETURN
4180 IF Y$#"M" THEN 4210
4190 P=19
4200 O=19
4205 RETURN
4210 IF Y$#"N" THEN 4240
4220 P=20
4230 O=21
4235 RETURN
4240 IF Y$#"S" THEN 4270
4250 P=22
4260 O=22
4265 RETURN
4270 IF Y$#"T" THEN 4300
4280 P=23
4290 O=23
4295 RETURN
4300 IF Y$#"Y" THEN 4330
4310 P=24
4320 O=28
4325 RETURN
4330 P=29
4350 O=35
4355 RETURN
5000 S(1)=76:N(1)=S(1)+3
5001 S(2)=83:N(2)=S(2)+6
5002 S(3)=22:N(3)=S(3)+2
5003 S(4)=1:N(4)=S(4)+2
5004 S(5)=4:N(5)=S(5)+1
5005 S(6)=51:N(6)=S(6)+3
5006 S(7)=99:N(7)=S(7)+1
5007 S(8)=59:N(8)=S(8)+3
5008 S(9)=93:N(9)=S(9)+5
5009 S(10)=63:N(10)=S(10)
5010 S(11)=63:N(12)=S(11)
5011 S(12)=40:N(12)=S(12)+8
5012 S(13)=10:N(13)=S(13)+3
5013 S(14)=14:N(14)=S(14)+2
5014 S(15)=25:N(15)=S(15)+2
5015 S(16)=28:N(16)=S(16)+3
5016 S(17)=28:N(17)=S(17)+3
5017 S(18)=35:N(18)=S(18)+4
5018 S(19)=64:N(19)=S(19)+4
5019 S(20)=49:N(20)=S(20)+1
5020 S(21)=69:N(21)=S(21)+4
5021 S(22)=55:N(22)=S(22)+3
5022 S(23)=80:N(23)=S(23)+2
5023 S(24)=74:N(24)=S(24)+1
5024 S(25)=6:N(25)=S(25)+3
5025 S(26)=90:N(26)=S(26)+2
5026 S(27)=6:N(27)=S(27)+3
5027 S(28)=32:N(28)=S(28)+2
5028 S(29)=40:N(29)=S(29)+8
5029 S(30)=40:N(30)=S(30)+8
5030 S(31)=40:N(31)=S(31)+8
5031 S(32)=40:N(32)=S(32)+8
5032 S(33)=20:N(33)=S(33)+1
5033 S(34)=17:N(34)=S(34)+2
5034 S(35)=40:N(35)=S(35)+8
5035 S(36)=106:N(36)=S(36)+6
5045 FOR X=1TO36
5050 R(X)=S(X)
5055 NEXT X
6000 REM LOADS THE CONJUGATE PAIRS INTO A SINGLE STRING
6001 J$=" ARE ":J(1)=5
6002 J$(9)=" AM ":J(2)=4
6003 J$(17)=" WERE ":J(3)=6
6004 J$(25)=" WAS ":J(4)=5
6005 J$(33)=" YOU ":J(5)=5
6006 J$(41)=" I ":J(6)=3
6007 J$(49)=" YOUR ":J(7)=6
6008 J$(57)=" MY ":J(8)=4
6009 J$(65)=" I'VE ":J(9)=6
6010 J$(73)=" YOU'VE ":J(10)=8
6011 J$(81)=" I'M ":J(11)=5
6012 J$(89)=" YOU'RE ":J(12)=8
6013 J$(97)=" ME ":J(13)=4
6014 J$(105)=" YOU ":J(14)=5
7000 D$="" : REM PACKS KEYWORDS INTO A STRING
7001 K$="ALWAYS":D(1)=LEN(D$)+1:E(1)=D(1)+LEN(K$)-1: D$=K$
7002 K$="ALIKE":D(2)=LEN(D$)+1:E(2)=D(2)+LEN(K$)-1: D$(D(2))=K$
7003 K$="ARE YOU":D(3)=LEN(D$)+1:E(3)=D(3)+LEN(K$)-1: D$(D(3))=K$
7004 K$="CAN YOU":D(4)=LEN(D$)+1:E(4)=D(4)+LEN(K$)-1: D$(D(4))=K$
7005 K$="CAN I":D(5)=LEN(D$)+1:E(5)=D(5)+LEN(K$)-1: D$(D(5))=K$
7006 K$="CAUSE":D(6)=LEN(D$)+1:E(6)=D(6)+LEN(K$)-1: D$(D(6))=K$
7007 K$="COMPUTER":D(7)=LEN(D$)+1:E(7)=D(7)+LEN(K$)-1: D$(D(7))=K$
7008 K$="DREAM":D(8)=LEN(D$)+1:E(8)=D(8)+LEN(K$)-1: D$(D(8))=K$
7009 K$="FRIEND":D(9)=LEN(D$)+1:E(9)=D(9)+LEN(K$)-1: D$(D(9))=K$
7010 K$="HELLO":D(10)=LEN(D$)+1:E(10)=D(10)+LEN(K$)-1: D$(D(10))=K$
7011 K$="HI":D(11)=LEN(D$)+1:E(11)=D(11)+LEN(K$)-1: D$(D(11))=K$
7012 K$="HOW":D(12)=LEN(D$)+1:E(12)=D(12)+LEN(K$)-1: D$(D(12))=K$
7013 K$="I DON'T":D(13)=LEN(D$)+1:E(13)=D(13)+LEN(K$)-1: D$(D(13))=K$
7014 K$="I FEEL":D(14)=LEN(D$)+1:E(14)=D(14)+LEN(K$)-1: D$(D(14))=K$
7015 K$="I CAN'T":D(15)=LEN(D$)+1:E(15)=D(15)+LEN(K$)-1: D$(D(15))=K$
7016 K$="I AM":D(16)=LEN(D$)+1:E(16)=D(16)+LEN(K$)-1: D$(D(16))=K$
7017 K$="I'M":D(17)=LEN(D$)+1:E(17)=D(17)+LEN(K$)-1: D$(D(17))=K$
7018 K$="I WANT":D(18)=LEN(D$)+1:E(18)=D(18)+LEN(K$)-1: D$(D(18))=K$
7019 K$="MAYBE":D(19)=LEN(D$)+1:E(19)=D(19)+LEN(K$)-1: D$(D(19))=K$
7020 K$="NAME":D(20)=LEN(D$)+1:E(20)=D(20)+LEN(K$)-1: D$(D(20))=K$
7021 K$="NO":D(21)=LEN(D$)+1:E(21)=D(21)+LEN(K$)-1: D$(D(21))=K$
7022 K$="SORRY":D(22)=LEN(D$)+1:E(22)=D(22)+LEN(K$)-1: D$(D(22))=K$
7023 K$="THINK":D(23)=LEN(D$)+1:E(23)=D(23)+LEN(K$)-1: D$(D(23))=K$
7024 K$="YOUR":D(24)=LEN(D$)+1:E(24)=D(24)+LEN(K$)-1: D$(D(24))=K$
7025 K$="YOU ARE":D(25)=LEN(D$)+1:E(25)=D(25)+LEN(K$)-1: D$(D(25))=K$
7026 K$="YES":D(26)=LEN(D$)+1:E(26)=D(26)+LEN(K$)-1: D$(D(26))=K$
7027 K$="YOU'RE":D(27)=LEN(D$)+1:E(27)=D(27)+LEN(K$)-1: D$(D(27))=K$
7028 K$="YOU":D(28)=LEN(D$)+1:E(28)=D(28)+LEN(K$)-1: D$(D(28))=K$
7029 K$="WHAT":D(29)=LEN(D$)+1:E(29)=D(29)+LEN(K$)-1: D$(D(29))=K$
7030 K$="WHO":D(30)=LEN(D$)+1:E(30)=D(30)+LEN(K$)-1: D$(D(30))=K$
7031 K$="WHERE":D(31)=LEN(D$)+1:E(31)=D(31)+LEN(K$)-1: D$(D(31))=K$
7032 K$="WHEN":D(32)=LEN(D$)+1:E(32)=D(32)+LEN(K$)-1: D$(D(32))=K$
7033 K$="WHY CAN'T I":D(33)=LEN(D$)+1:E(33)=D(33)+LEN(K$)-1: D$(D(33))=K$
7034 K$="WHY DON'T YOU":D(34)=LEN(D$)+1:E(34)=D(34)+LEN(K$)-1: D$(D(34))=K$
7035 K$="WHY":D(35)=LEN(D$)+1:E(35)=D(35)+LEN(K$)-1: D$(D(35))=K$
7036 K$="NOKEYFOUND":D(36)=LEN(D$)+1:E(36)=D(36)+LEN(K$)-1: D$(D(36))=K$
7100 RETURN
9999 END
RUN

View File

@ -0,0 +1,66 @@
SCR
LOMEM=768
2 TAB(17):PRINT "GOMOKO"
4 PRINT "CREATIVE COMPUTING MORRISTOWN NEW JERSEY"
5 PRINT:PRINT:PRINT
6 REM CONVERTED FOR THE APPLE 1 / REPICA 1
7 REM BY VINCE BRIEL JANUARY 25, 2007
8 REM A(I,J) IS NOW A((19*J+I)-19)
9 DIM A(365)
10 PRINT "WELCOME TO THE ORIENTAL GAME OF GOMOKO."
20 PRINT: PRINT "THE GAME IS PLAYED ON AN N BY N GRID"
25 PRINT "OF A SIZE THAT YOU SPECIFY. DURING YOUR"
30 PRINT "PLAY, YOU MAY COVER ONE GRID"
35 PRINT "INTERSECTION WITH A MARKER. THE OBJECT"
40 PRINT "OF THE GAME IS TO GET 5 ADJACENT"
50 PRINT "MARKERS IN A ROW -- HORIZONTALLY,"
55 PRINT "VERTICALLY, OR DIAGONALLY. ON THE BOARD"
60 PRINT "DIAGRAM, YOUR MOVES ARE MARKED WITH A"
70 PRINT "'1' AND THE COMPUTER MOVES WITH A '2'."
80 PRINT: PRINT "THE COMPUTER DOES NOT KEEP TRACK OF WHO"
90 PRINT "HAS WON. TO END THE GAME, TYPE -1,-1.": PRINT
110 PRINT "WHAT IS YOUR BOARD SIZE (7-19)";: INPUT N
115 IF N>6 THEN 117
116 GOTO 120
117 IF N<20 THEN 210
120 PRINT "I SAID, THE MINIMUM IS 7, THE MAXIMUM IS 19.": GOTO 110
210 FOR I=1 TO N:FOR J=1 TO N: A((19*J+I)-19)=0: NEXT J: NEXT I
300 PRINT: PRINT "WE ALTERNATE MOVES. YOU GO FIRST...": PRINT
310 PRINT "YOUR PLAY (I,J)";: INPUT I,J
315 PRINT
320 IF I=-1 THEN 980
330 X=I: Y=J: GOSUB 910: IF L=1 THEN 410
340 PRINT "ILLEGAL MOVE. TRY AGAIN...": GOTO 310
410 IF A((19*J+I)-19)=0 THEN 440
420 PRINT "SQUARE OCCUPIED. TRY AGAIN...": GOTO 310
440 A((19*J+I)-19)=1
500 REM *** COMPUTER TRIES AN INTELLIGENT MOVE ***
510 V=0:FOR E=-1 TO 1: FOR F=-1 TO 1: IF E+F-E*F=0 THEN 590
540 X=I+F: Y=J+F: GOSUB 910
570 IF L=0 THEN 590
580 IF A((19*Y+X)-19)#1 THEN 590
582 IF V=1 THEN 590
585 V=1:K=X:M=Y:R=E:S=F
590 NEXT F: NEXT E:IF V#1 THEN 600
595 X=K:Y=M:E=R:F=S:GOTO 710
600 REM *** COMPUTER TRIES A RANDOM MOVE ***
610 X=RND(N)+1: Y=RND(N)+1: GOSUB 910: IF L=0 THEN 610
650 IF A((19*Y+X)-19)<>0 THEN 610
660 A((19*Y+X)-19)=2: GOSUB 810: GOTO 310
710 X=I-E: Y=J-F: GOSUB 910
750 IF L=0 THEN 610
760 GOTO 650
800 REM *** PRINT THE BOARD ***
810 FOR I=1 TO N: FOR J=1 TO N: PRINT A((19*J+I)-19);
840 NEXT J: PRINT: NEXT I: PRINT: RETURN
910 L=1: IF X<1 THEN 970
920 IF X>N THEN 970
930 IF Y<1 THEN 970
940 IF Y>N THEN 970
950 RETURN
970 L=0: RETURN
980 PRINT: PRINT "THANKS FOR THE GAME!!"
985 PRINT "PLAY AGAIN (1 FOR YES, 0 FOR NO)";: INPUT Q
990 IF Q=1 THEN 110
999 END
RUN

View File

@ -0,0 +1,123 @@
LOMEM=1024
HIMEM=8192
SCR
10 PRINT " HANGMAN"
20 PRINT "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
22 REM PORTED TO REPLICA/1 BY CARL CLAUNCH
25 PRINT:PRINT:PRINT
30 DIM P$(145),D$(20),N$(26),U(50),A$(19)
35 DIM S$(145),V$(255),V(50),Z$(85)
40 C=1:N=50
50 FOR I=1 TO 20:D$(I)="-":NEXT I:M=0
55 GOSUB 700 : REM REINITIALIZE THE WORD ARRAYS
70 P$="XXXXXXX " : REM SET UP EMPTY SCAFFOLD
80 P$(13)="X X "
90 FOR I=2 TO 11:P$(I*12+1)="X ":NEXT I
94 N$="" : REM NO LETTERS YET
95 IF C<N THEN 100
97 PRINT "YOU USED UP ALL THE WORDS!!":GOTO 999
100 Q=RND(50)+1 : REM PICK ONE OF THE 50 WORDS
110 IF U(Q)=1 THEN 100 : REM BUT NOT IF ALREADY USED
115 C=C+1:T1=0 : REM KEEP TRACK OF WORDS AND TRIES
120 IF Q<44 THEN 150 : REM WORDS KEPT IN TWO STRINGS AS > 255
125 A$=Z$(V(Q),V(Q)+U(Q)-1):U(Q)=1 : REM FETCH WORD IN 1ST STR
130 GOTO 160
150 A$=V$(V(Q),V(Q)+U(Q)-1):U(Q)=1 : REM FETCH WORD IN 2ND STR
160 L=LEN(A$)
170 PRINT "HERE ARE THE LETTERS YOU USED:"
180 FOR I =1 TO 26:IF LEN(N$)>=I THEN PRINT N$(I,I);:IF I=LEN(N$) THEN I=27
190 IF I<LEN(N$) THEN PRINT ",";:NEXT I
200 PRINT:PRINT:PRINT D$(1,L):PRINT:PRINT
210 INPUT "WHAT IS YOUR GUESS",S$:R=0:S$(LEN(S$)+1)=" ":G$=S$(1,1)
215 IF G$=" " THEN 210 :REM TRY AGAIN IF NULL ENTRY
220 A=0:FOR I=1 TO LEN(N$)
225 IF LEN(N$)=0 THEN 240
230 IF G$#N$(I,I) THEN 240
235 PRINT "YOU GUESSED THAT LETTER BEFORE!":A=1: I=26
240 NEXT I: IF A=1 THEN 170 : REM DID WE HAVE A DUPLICATE? ERROR
250 N$(LEN(N$)+1)=G$:T1=T1+1 : REM ADD LETTER AND BUMP TRY COUNT
260 FOR I=1 TO L:IF A$(I,I)=G$ THEN 280 : REM LOOK FOR A MATCH
270 NEXT I: IF R=0 THEN 290 : REM R IS THE NUMBER OF MATCHES THIS TIME
275 GOTO 300
280 S$=D$(I):D$(I)=G$:R=R+1:IF I=26 THEN 270
285 D$(I+1)=S$(2):GOTO 270
290 M=M+1:GOTO 400 : REM DIDN'T FIND A MATCH, GO GIVE NEWS
300 A=0:FOR I=1 TO L:IF D$(I,I)="-" THEN A=1
310 NEXT I: IF A=0 THEN GOTO 390 :REM A 1 IF WE HAVE HIDDEN LTRS
320 PRINT:PRINT D$(1,L): PRINT:PRINT
330 INPUT "WHAT IS YOUR GUESS FOR THE WORD?",S$
340 IF A$=S$ THEN 360
350 PRINT "WRONG. TRY ANOTHER LETTER.":PRINT:GOTO 170
360 PRINT "RIGHT! IT TOOK YOU ";T1;" GUESSES!"
370 INPUT "ENTER YES IF YOU WANT ANOTHER WORD:",S$: IF S$="YES" THEN 50
380 PRINT:PRINT"IT'S BEEN FUN. BYE FOR NOW.":GOTO 999
390 PRINT "YOU FOUND THE WORD!":GOTO 370
400 PRINT:PRINT:PRINT "SORRY, THAT LETTER ISN'T IN THE WORD."
410 GOTO 410+5*M :REM M IS THE NUMBER OF MISSES SO FAR
415 PRINT "FIRST, WE DRAW A HEAD":GOTO 470
420 PRINT "NOW WE DRAW A BODY.":GOTO 470
425 PRINT "NEXT WE DRAW AN ARM.":GOTO 470
430 PRINT "THIS TIME IT'S THE OTHER ARM.":GOTO 470
435 PRINT "NOW, LET'S DRAW THE RIGHT LEG.":GOTO 470
440 PRINT "THIS TIME WE DRAW THE LEFT LEG.":GOTO 470
445 PRINT "NOW WE PUT UP A HAND.":GOTO 470
450 PRINT "NEXT THE OTHER HAND.":GOTO 470
455 PRINT "NOW WE DRAW ONE FOOT":GOTO 470
460 PRINT "HERE'S THE OTHER FOOT -- YOU'RE HUNG!!"
470 GOTO 470+10*M : REM M IS THE NUMBER OF MISSES SO FAR
480 X$="-":X=3:Y=6:GOSUB 900:Y=7:GOSUB 900:Y=8:GOSUB 900
481 X$="(":X=4:Y=5:GOSUB 900:Y=6:X$=".":GOSUB 900
482 Y=8:GOSUB 900:Y=9:X$=")":GOSUB 900:X=5:Y=6:
483 X$="-":GOSUB 900:Y=7:GOSUB 900:Y=8:GOSUB 900:GOTO 580
490 X=6:Y=7:X$="X":GOSUB 900:X=7:GOSUB 900:X=8:GOSUB 900
495 X=9:GOSUB 900:GOTO 580
500 X=4:Y=3:X$="\":GOSUB 900:X=5:Y=4:GOSUB 900
505 X=6:Y=5:GOSUB 900:X=7:Y=6:GOSUB 900:GOTO 580
510 X$="/":X=4:Y=11:GOSUB 900:X=5:Y=10:GOSUB 900
515 X=6:Y=9:GOSUB 900:X=7:Y=8:GOSUB 900:GOTO 580
520 X$="/":X=10:Y=6:GOSUB 900:X=11:Y=5:GOSUB 900:GOTO 580
530 X$="\":X=10:Y=8:GOSUB 900:X=11:Y=9:GOSUB 900:GOTO 580
540 X$="\":X=3:Y=11:GOSUB 900:GOTO 580
550 X$="/":X=3:Y=3:GOSUB 900:GOTO 580
560 X$="\":X=12:Y=10:GOSUB 900:Y=11:X$="-":GOSUB 900:GOTO 580
570 X$="-":X=12:Y=3:GOSUB 900:Y=4:X$="/":GOSUB 900
580 FOR I=0 TO 11 : REM LOOP LINE BY LINE
584 PRINT P$(I*12+1,(I+1)*12) : REM PRINT LINE
588 NEXT I
590 PRINT:PRINT:IF M#10 THEN 170
600 PRINT "SORRY, YOU LOSE. THE WORD WAS ";A$
610 PRINT "YOU MISSED THAT ONE. DO YOU ";:GOTO 370
620 INPUT "TYPE YES OR NO",Y$: IF Y$="YES" THEN 50
699 REM V$,Z$ ARE WORD STRINGS. V IS INDEX OF WORD, U IS LENGTH
700 V$ = "GUMSINFORCRYLUGBYEFLY"
705 U(1)=3:U(2)=3:U(3)=3:U(4)=3:U(5)=3:U(6)=3:U(7)=3
710 V$(LEN(V$)+1)="UGLYEACHFROMWORKTALKWITHSELF"
715 U(8)=4:U(9)=4:U(10)=4:U(11)=4:U(12)=4:U(13)=4:U(14)=4
720 V$(LEN(V$)+1)="PIZZATHINGFEIGNFIENDELBOWFAULTDIRTY"
725 U(15)=5:U(16)=5:U(17)=5:U(18)=5:U(19)=5:U(20)=5:U(21)=5
730 V$(LEN(V$)+1)="BUDGETSPIRITQUAINTMAIDENESCORTPICKAX"
735 U(22)=6:U(23)=6:U(24)=6:U(25)=6:U(26)=6:U(27)=6
740 V$(LEN(V$)+1)="EXAMPLETENSIONQUININEKIDNEYREPLICASLEEPER"
745 U(28)=7:U(29)=7:U(30)=7:U(31)=6:U(32)=7:U(33)=7
750 V$(LEN(V$)+1)="TRIANGLEKANGAROOMAHOGANYSARGEANTSEQUENCE"
755 U(34)=8:U(35)=8:U(36)=8:U(37)=8:U(38)=8
760 V$(LEN(V$)+1)="MOUSTACHEDANGEROUSSCIENTISTDIFFERENTQUIESCENT"
765 U(39)=9:U(40)=9:U(41)=9:U(42)=9:U(43)=9
770 Z$="MAGISTRATEERRONEOUSLYLOUDSPEAKERPHYTOTOXIC"
775 U(44)=10:U(45)=11:U(46)=11:U(47)=10
780 Z$(LEN(Z$)+1)="MATRIMONIALPARASYMPATHOMIMETICTHIGNOTROPISM"
785 U(48)=11:U(49)=19:U(50)=13
790 V(1)=1: FOR I=2 TO 43: V(I)=V(I-1)+U(I-1):NEXT I
795 V(44)=1:FOR I=45 TO 50: V(I)=V(I-1)+U(I-1):NEXT I
800 RETURN
900 REM X AND Y ARE INDICES, X$ IS CHARACTER TO INSERT
910 Z=(X-1)*12+Y
915 S$="":IF Z<144 THEN S$=P$(Z+1)
920 P$(Z)=X$(1,1)
925 IF Z < 144 THEN P$(Z+1)=S$
930 RETURN
990 PRINT "BYE NOW"
999 END
RUN

View File

@ -0,0 +1,57 @@
1 REM CONVERTED TO REPLICA 1/APPLE 1
2 REM BY VINCE BRIEL FEBRUARY 3, 2007
10 TAB(17):PRINT "HURKLE"
20 PRINT "CREATIVE COMPUTING MORRISTOWN NEW JERSEY"
30 PRINT:PRINT:PRINT
110 N=5
120 G=10
210 PRINT
220 PRINT "A HURKLE IS HIDING ON A ";G;" BY ";G;" GRID."
230 PRINT "HOMEBASE ON THE GRID IS POINT 0,0"
232 PRINT "IN THE SOUTHWEST CORNER, AND ANY POINT"
235 PRINT "ON THE GRID IS DESIGNATED BY A PAIR OF"
240 PRINT "WHOLE NUMBERS SEPERATED BY A COMMA. THE"
245 PRINT "FIRST NUMBER IS THE HORIZONTAL POSITION"
246 PRINT "AND THE SECOND NUMBER IS THE VERTICAL"
250 PRINT "POSITION. YOU MUST TRY TO GUESS THE"
255 PRINT "HURKLE'S GRIDPOINT. YOU GET";N;"TRIES."
260 PRINT "AFTER EACH TRY, I WILL TELL YOU THE"
270 PRINT "APPROXIMATE DIRECTION TO GO TO LOOK"
275 PRINT "FOR THE HURKLE."
280 PRINT
285 A=RND(G)
286 B=RND(G)
310 FOR K=1 TO N
320 PRINT "GUESS #";K;
330 INPUT X,Y
340 IF ABS(X-A)+ABS(Y-B)=0 THEN 500
350 REM PRINT INFO
360 GOSUB 610
370 PRINT
380 NEXT K
410 PRINT
420 PRINT "SORRY, THAT'S ";N;" GUESSES."
430 PRINT "THE HURKLE IS AT ";A;",";B
440 PRINT
450 PRINT "LET'S PLAY AGAIN, HURKLE IS HIDING."
460 PRINT
470 GOTO 285
500 REM
510 PRINT
520 PRINT "YOU FOUND HIM IN ";K;" GUESSES!"
540 GOTO 440
610 PRINT "GO ";
620 IF Y=B THEN 670
630 IF Y<B THEN 660
640 PRINT "SOUTH";
650 GOTO 670
660 PRINT "NORTH";
670 IF X=A THEN 720
680 IF X<A THEN 710
690 PRINT "WEST";
700 GOTO 720
710 PRINT "EAST";
720 PRINT
730 RETURN
999 END
RUN

View File

@ -0,0 +1,53 @@
10 REM MAGIC SQUARES, WORKS ON PRIME NUMBERS LARGER THAN 3, THE SIZE OF THE SQUARE THAT IS
20 PRINT
30 PRINT "MAGIC SQUARES BY BAMSE."
40 PRINT "THE REPLICA 1 WILL NOW GENERATE A 7X7 SQUARE."
50 PRINT "THE SUM OF ROWS/COLS/DIAGONAL WILL BE 175."
60 PRINT "DRUMROLL PLEASE..."
70 DIM S(49) : REM THE MAGIC SQUARE
80 DIM R(7) : REM THE WORKING ROW
90 DIM T(7) : REM TEMPORARY ROW
100 FOR I=1 TO 7 : REM CLEAR THE WORKING ROW BY SETTING ALL VALUES TO 0
110 R(I)=0
120 NEXT I
130 R(1)=RND (7)+1 : REM GENERATE 1 TO 7 IN THE WORKING ROW IN A RANDOM ORDER
140 FOR I=2 TO 7
150 N=RND (7)+1
160 J=1
170 IF R(J)=N THEN 150
180 J=J+1
190 IF J<I THEN 170
200 R(I)=N
210 NEXT I : REM DONE, WE NOW HAVE 1-7 IN A RANDOM ORDER IN THE WORK ROW
220 FOR J=1 TO 7
230 FOR I=1 TO 7
240 S(I+(J-1)*7)=(R(I)-1)+(R(8-I)-1)*7+1 : REM CALUCALTE MAGIC NUMBER WITH A SECRET FORMULA
250 NEXT I
260 GOSUB 1000 : REM ROTATE WORKING ROW
270 NEXT J
280 PRINT : REM MAGIC SQUARE DONE, LET'S PRINT IT
290 FOR J=1 TO 7
300 PRINT "************************************"
310 PRINT "*";
320 FOR I=1 TO 7
330 PRINT " ";
340 IF S(I+(J-1)*7)<10 THEN PRINT " "; : REM PRINT EXTRA SPACE IF NUMBER IS 1-9.
350 PRINT S(I+(J-1)*7);" *"; : REM PRINT MAGIC NUMBER
360 NEXT I
370 PRINT
380 NEXT J
390 PRINT "************************************"
400 PRINT
410 PRINT "DONE, BRING ON THE CALCULATORS."
420 END
1000 Q=3 : REM ROTATE THE WORKING ROW TWO STEPS, 1234567 WOULD BE 3456712
1010 FOR I=1 TO 7
1020 T(I)=R(Q) : REM FIRST ROTATE THE TEMPORARY ROW
1030 Q=Q+1
1040 IF Q>7 THEN Q=1
1050 NEXT I
1060 FOR I=1 TO 7 : REM COPY TEMPORARY ROW TO WORK ROW
1070 R(I)=T(I)
1080 NEXT I
1090 RETURN
RUN

View File

@ -0,0 +1,24 @@
10 DIM A$(64)
20 A$="!@#$%^&*()+{}|:<>?/.,';][\=-1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
30 GOSUB 1000
40 TAB 3:GOSUB 1000
50 TAB 5:GOSUB 1000
60 TAB 7:GOSUB 1000
70 TAB 10:GOSUB 1000
80 TAB 13:GOSUB 1000
90 TAB 15:GOSUB 1000
100 TAB 17:GOSUB 1000
110 TAB 20:GOSUB 1000
110 TAB 23:GOSUB 1000
120 TAB 25:GOSUB 1000
130 TAB 27:GOSUB 1000
140 TAB 30:GOSUB 1000
150 TAB 33:GOSUB 1000
160 TAB 35:GOSUB 1000
170 TAB 38:GOSUB 1000
180 PRINT:GOTO 30
1000 A=RND(64)+1:PRINT A$(A,A);:RETURN
1010 END
RUN

View File

@ -0,0 +1,41 @@
2 TAB(16):PRINT "NICOMA"
4 TAB(5):PRINT "CREATIVE COMPUTING, NEW JERSEY"
5 TAB(1):PRINT "MODIFIED BY PHILIP LORD FOR THE APPLE 1"
6 PRINT: PRINT: PRINT
10 PRINT "BOOMERANG PUZZLE FROM ARITHMETICA"
15 PRINT "OF NICOMACHUS -- A.D. 90!"
20 PRINT
30 PRINT "PLEASE THINK OF A NUMBER BETWEEN"
40 PRINT "1 AND 100."
42 PRINT: PRINT "YOUR NUMBER DIVIDED BY 3 "
43 PRINT "HAS A REMAINDER OF ";
45 INPUT A
50 PRINT "YOUR NUMBER DIVIDED BY 5 "
53 PRINT "HAS A REMAINDER OF ";
55 INPUT B
60 PRINT "YOUR NUMBER DIVIDED BY 7"
63 PRINT "HAS A REMAINDER OF ";
65 INPUT C
70 PRINT
80 PRINT "LET ME THINK A MOMENT..."
85 PRINT
90 FOR I=1 TO 1500: NEXT I
100 D=70*A+21*B+15*C
110 IF D<=105 THEN 140
120 D=D-105
130 GOTO 110
140 PRINT "YOUR NUMBER WAS ";D;", RIGHT"
160 INPUT A$
165 PRINT
170 IF A$="Y" THEN 220
180 IF A$="N" THEN 240
190 PRINT "EH? I DON'T UNDERSTAND '";A$;"'": PRINT "TRY 'Y' OR 'N'."
200 GOTO 160
220 PRINT "HOW ABOUT THAT!!"
230 GOTO 250
240 PRINT "I FEEL YOUR ARITHMETIC IS IN ERROR."
250 PRINT
260 PRINT "LET'S TRY ANOTHER."
270 GOTO 20
999 END
RUN

View File

@ -0,0 +1,30 @@
100 PRINT "R E V E R S E": PRINT
110 DIM A(9), B(9)
115 T=0
120 FOR I=1 TO 9: A(I)=0 : NEXT I
130 FOR I= 1 TO 9
140 J= RND (20) +1
150 IF J>9 THEN 140
160 IF A(J)#0 THEN 140
170 A(J) =I
180 NEXT I
190 PRINT " 1 2 3 4 5 6 7 8 9": PRINT " -----------------"
191 PRINT "("):: FOR I=1 TO 9: PRINT A(I):: IF I<9 THEN PRINT " ":: NEXT I
192 PRINT ")": PRINT"------------------"
193 PRINT
200 INPUT "HOW MANY SHALL I REVERSE",N
210 IF N<=9 THEN 230
220 PRINT "OOPS! TOO MANY- I CAN REVERSE AT MOST 9": GOTO 200
230 IF N>1 THEN 250
240 PRINT "OOPS ! TOO SMALL; YOU MUST REVERSE SOMETHING!"
241 GOTO 200
250 T=T+1
260 FOR I=1 TO 9: B(I)=A(I): NEXT I
270 FOR I=1 TO N:J=N+1-I: A(J)=B(I): NEXT I
280 I=0
290 I=I+1
300 IF A(I) > A(I+1) THEN 190
310 IF I<8 THEN 290
320 PRINT "YOU WON IN ";T;" MOVES"
330 END
RUN

View File

@ -0,0 +1,28 @@
10 PRINT "WELCOME TO ROCK PAPER SCISSORS"
20 DIM V$(10)
30 INPUT "ROCK OR PAPER OR SCISSORS", V$
40 IF V$ = "ROCK" THEN 100
50 IF V$ = "PAPER" THEN 200
60 IF V$ = "SCISSORS" THEN 300
100 A= RND (2)
105 IF A = 0 THEN 120
110 IF A = 1 THEN 130
120 PRINT "PAPER YOU LOSE"
125 GOTO 30
130 PRINT "SCISSORS YOU WIN"
135 GOTO 30
200 A= RND (2)
205 IF A = 0 THEN 220
210 IF A = 1 THEN 230
220 PRINT "SCISSORS YOU LOSE"
225 GOTO 30
230 PRINT "ROCK YOU WIN"
235 GOTO 30
300 A= RND (2)
305 IF A = 0 THEN 320
310 IF A = 1 THEN 330
320 PRINT "ROCK YOU LOSE"
325 GOTO 30
330 PRINT "PAPER YOU WIN"
335 GOTO 30
RUN

View File

@ -0,0 +1,112 @@
LOMEM=768
10 DIM A$(81),B$(81),C$(81),D$(9)
20 PRINT "LARRY NELSON'S SUDOKU FOR THE APPLE I"
30 PRINT: INPUT"WANT INSTRUCTIONS",D$:IF D$(1,1)="Y" THEN GOSUB 1000
40 PRINT"CREATING..";
50 GOSUB 4000
60 GOSUB 5000
70 GOSUB 3000
80 GOSUB 7000
90 GOSUB 6100
100 PRINT " 1=NEW PUZZLE": PRINT" 2=ANSWER TO PUZZLE": PRINT" 3=QUIT"
110 INPUT A
120 IF A=1 THEN 40
130 IF A=2 THEN GOSUB 6000
140 IF A=3 THEN END
150 GOTO 100
1000 PRINT"SUDOKU IS A NUMBER PUZZLE IN A 9X9 GRID."
1010 PRINT"THE GRID IS SPLIT INTO 9 3X3 MINI-GRIDS."
1020 PRINT"SINGLE DIGITS FILL THE GRID. THE DIGITS"
1040 PRINT"MAY BE IN ANY ORDER. THERE ARE JUST"
1050 PRINT"THREE RULES FOR SOLVING THE GRID--"
1060 PRINT"-EACH ROW MUST HAVE ALL THE DIGITS 1-9."
1070 PRINT"-EACH COLUMN HAS ALL THE DIGITS 1-9."
1080 PRINT"-EACH MINI-GRID MUST ALSO HAVE ALL THE"
1090 PRINT" DIGITS FROM 1-9."
1100 PRINT:INPUT" HIT ENTER TO CONTINUE",D$
1110 RETURN
3000 PRINT ".";
3010 A$=B$
3020 FOR I=1 TO 7 STEP 3
3030 X=RND(6)
3040 IF X=0 THEN 3160
3050 Y=0:Z=2
3060 IF X=1 THEN Y=1
3070 IF X=3 THEN Z=1
3080 GOSUB 3400
3090 IF X<4 THEN 3160
3100 IF X=5 THEN 3130
3110 Z=1:GOSUB 3400
3120 GOTO 3160
3130 Y=1:GOSUB 3400
3160 NEXT I
3170 B$=A$
3180 RETURN
3400 FOR J=0 TO 8
3410 C$=A$
3420 W=9*J+I+Y:V=9*J+I+Z
3430 A$(W)=C$(V,V)
3440 A$(W+1)=C$(W+1)
3450 A$(V)=C$(W,W)
3460 IF V<81 THEN A$(V+1)=C$(V+1)
3470 NEXT J
3480 RETURN
4000 PRINT ".";
4010 A$="123456789"
4020 FOR I=1 TO 30:D$=""
4030 X=RND(8)+1:Y=RND(8)+2
4035 IF X>=Y THEN 4030
4040 B$=A$(Y,Y):C$=A$(X,X)
4050 IF X>1 THEN D$=A$(1,X-1)
4060 D$(LEN(D$)+1)=B$
4070 D$(LEN(D$)+1)=A$(X+1,Y-1)
4080 D$(LEN(D$)+1)=C$
4090 IF Y<9 THEN D$(LEN(D$)+1)=A$(Y+1,9)
4100 A$=D$
4110 NEXT I
4120 RETURN
5000 PRINT".";
5010 A$(LEN(A$)+1)=A$:B$=""
5020 FOR I=0 TO 2
5030 FOR J=1 TO 7 STEP 3
5040 B$(LEN(B$)+1)=A$(I+J,I+J+8)
5050 NEXT J,I
5060 RETURN
6000 REM
6010 INPUT "ARE YOU SURE YOU WANT THE ANSWER (Y/N)",D$
6020 IF D$#"Y" THEN RETURN
6030 A$=B$
6100 PRINT : PRINT "====================================="
6110 FOR J=0 TO 8
6120 PRINT "#";
6130 FOR I=1 TO 9:K=9*J+I
6140 PRINT " ";A$(K,K);" ";
6150 IF I MOD 3=0 THEN PRINT "#";
6160 IF I MOD 3>0 THEN PRINT ":";
6170 NEXT I
6175 PRINT
6180 IF (J+1) MOD 3>0 THEN PRINT"-------------------------------------"
6190 IF (J+1) MOD 3=0 THEN PRINT"====================================="
6200 NEXT J
6210 PRINT
6220 INPUT "HIT ENTER TO CONTINUE",D$
6230 RETURN
7000 REM
7010 A$=B$
7020 PRINT "HOW DIFFICULT DO YOU WANT YOUR PUZZLE":PRINT " 1=EASY": PRINT " 2=MEDIUM": PRINT " 3=HARD"
7030 INPUT A
7040 IF A<1 OR A>3 THEN 7020
7050 W=2*A+20+RND(2)
7060 FOR I=1 TO W
7070 X= RND (81)+1
7080 IF A$(X,X)=" " THEN 7070
7090 GOSUB 7500
7100 X=82-X
7110 GOSUB 7500
7120 NEXT I
7130 RETURN
7500 C$=A$
7510 A$(X)=" "
7520 IF X<81 THEN A$(X+1)=C$(X+1)
7530 RETURN
RUN

View File

@ -0,0 +1,69 @@
2 PRINT " WORD"
3 PRINT "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
4 PRINT:PRINT:PRINT
5 DIM S$(5),L$(10),P$(5),Z$(60),A$(5),Q$(5)
7 REM PORTED TO REPLICA/1 BY CARL CLAUNCH
10 PRINT "I AM THINKING OF A WORD -- YOU GUESS IT. I WILL GIVE YOU"
15 PRINT "CLUES TO HELP YOU GET IT. GOOD LUCK!!":PRINT:PRINT
20 REM
30 PRINT:PRINT:PRINT "YOU ARE STARTING A NEW GAME..."
40 GOSUB 540
50 C=RND(11)
60 S$=Z$(C*5+1,C*5+5)
70 P$="-----"
80 A$="-----"
85 Q=1
90 G=0
95 S=LEN(S$)
150 PRINT "GUESS A FIVE LETTER WORD";
160 INPUT L$
165 IF LEN(L$)=0 THEN 150
170 G=G+1
172 IF S$=L$ THEN 500
175 L=LEN(L$)
190 IF L$(1,1)="?" THEN 300
200 IF L#5 THEN 400
205 M=0
210 FOR I=1 TO 5
215 Y=0
220 FOR J=1 TO 5
230 IF S$(I,I)#L$(J,J) THEN 260
231 GOTO 600
234 IF I#J THEN 250
240 Q$=A$(I):A$(I)=L$(J,J):IF I<5 THEN A$(I+1)=Q$(2)
250 M=M+1
260 NEXT J
265 NEXT I
270 REM
280 PRINT "THERE WERE ";M;" MATCHES AND THE COMMON LETTERS WERE... ";
282 FOR I=1 TO 4:PRINT P$(I,I);:PRINT ",";:NEXT I:PRINT P$(5,5)
285 PRINT "FROM THE EXACT LETTER MATCHES, YOU KNOW............ ";A$
286 IF A$=S$ THEN 500
287 IF M>1 THEN 289
288 PRINT:PRINT "IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS."
289 PRINT
290 GOTO 150
300 REM
310 PRINT "THE SECRET WORD IS *";S$:PRINT
320 GOTO 30
400 PRINT "YOU MUST GUESS A FIVE LETTER WORD. START AGAIN."
410 PRINT:G=G-1:GOTO 150
500 PRINT "YOU HAVE GUESSED THE WORD. IT TOOK ";G;" GUESSES!":PRINT
510 INPUT "WANT TO PLAY AGAIN?",Q$
520 IF Q$="YES" THEN 30
530 GOTO 999
540 Z$="DINKYSMOKEWATERGRASSTRAINMIGHTFIRSTCANDYCHAMPWOULDCLUMPDOPEY"
550 RETURN
600 IF Q=6 THEN 234
610 IF Q=1 THEN 650
620 FOR K=1 TO Q-1
630 IF L$(J,J)#P$(K,K) THEN 640
635 Y=1
640 NEXT K
650 IF Y=1 THEN 234
660 Q$=P$(Q):P$(Q)=L$(J,J):IF Q<5 THEN P$(Q+1)=Q$(2)
670 Q=Q+1
680 GOTO 234
999 END
RUN

View File

@ -0,0 +1,258 @@
SCR
LOMEM=768
HIMEM=16384
10 PRINT " WORD SEARCH PUZZLE"
20 PRINT " CREATIVE COMPUTING"
30 PRINT " MORRISTOWN, NEW JERSEY"
35 REM PORTED TO REPLICA/1 BY CARL CLAUNCH
40 PRINT:PRINT:PRINT
50 PRINT " THIS PROGRAM IS A WORD SEARCH PUZZLE GENERATOR!!"
60 PRINT "THE PROGRAM TAKES A SET OF INPUT STRINGS, PURGES ALL"
70 PRINT "NON-ALPHABETIC CHARACTERS OUT OF THEM, AND INCORPORATES"
80 PRINT "THEM INTO A WORD SEARCH PUZZLE."
90 PRINT
100 PRINT "IN THE COURSE OF MAKING THE PUZZLE, THE MACHINE MAY"
110 PRINT "FIND THAT IT CAN'T PUT A PARTICULAR WORD ANYWHERE, AND"
120 PRINT "SO IT WILL ASK YOU IF IT SHOULD START THE WHOLE PUZZLE"
130 PRINT "OVER. IF YOU DON'T WANT IT TO START OVER, TYPING 'NO'"
140 PRINT "WILL THROW AWAY THAT PARTICULAR WORD. IF THIS PERSISTS,"
150 PRINT "TRY EITHER GIVING LESS WORDS OR BIGGER PUZZLE DIMENSIONS!"
160 PRINT:PRINT
300 REM MAJOR ALTERATION TO SUIT LIMITED STRING HANDLING IN WOZ BASIC
310 INPUT "HOW MANY COLUMNS DOES YOUR PRINTER HAVE",T2
315 DIM X$(5)
320 INPUT "DO YOU WANT A SOLUTION PRINTOUT?",X$:X$(LEN(X$)+1)=" "
330 INPUT "WHAT IS TO BE THE WIDTH OF THE PUZZLE",W:M2=W
340 IF W*2<=T2 THEN 345
343 PRINT "THAT WILL NOT FIT IN ",T2," COLUMNS.":GOTO 330
345 IF W<1 THEN 330
350 INPUT "THE LENGTH ",L:IF L>W THEN M2=L
355 IF L<1 THEN 350
360 INPUT "WHAT IS THE MAXIMUM NUMBER OF WORDS IN THE PUZZLE?",M
370 IF M>=2 THEN 380
375 PRINT "SORRY, THERE MUST BE AT LEAST TWO WORDS.":GOTO 360
380 PRINT
390 DIM A$(L*W),W$(255),Q$(25),T$(30),U$(30),Z$(255)
400 DIM W9(M*3),D1(16),D2(28),R(20),S(20),Y$(255)
410 PRINT "NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE:"
420 PRINT "(",W," CHARACTERS MAXIMUM! )"
430 INPUT Q$
435 GOSUB 4700 : REM FILL IN A$ WITH BLANKS
440 PRINT "OK . . . ENTER A WORD AT EACH QUESTION MARK."
450 PRINT "TO REDO THE PREVIOUS WORD, TYPE A HYPHEN (-)."
460 PRINT "WHEN YOU RUN OUT OF WORDS, TYPE A PERIOD (.)."
465 U=0 :REM COUNT OF WORDS
470 FOR I=1 TO M
480 INPUT T$:IF T$#"-" THEN 490
485 I=I-1:IF I#0 THEN 489
486 PRINT "CAN'T REDO IF YOU HAVEN'T ENTERED ANY WORDS YET"
487 I=I+1:GOTO 480
489 PRINT "REDO ",W$(R(I),S(I))," . . .":GOTO 480
490 IF T$#"." THEN 500
495 M=I-1:GOTO 660
500 IF LEN(T$)#0 THEN 510
505 PRINT "INPUT ERROR; REDO:":GOTO 480
510 J=1:T$(LEN(T$)+1)=" "
520 Z=0:Z$=T$(J,J):GOSUB 2000:IF Z=1 THEN 570
530 U$=T$(J):T$(J)=U$(2)
570 J=J+1:IF J<LEN(T$) THEN 520
575 U$=T$:T$=U$(1,LEN(U$)-1)
580 PRINT "-";T$;"-"
600 IF LEN(T$)<=M2 THEN 610
605 PRINT "THAT'S TOO LONG, I'M AFRAID.";
607 PRINT " TRY ANOTHER ONE.":GOTO 480
610 IF U=0 THEN 630
612 FOR I8=1 TO I-1:IF W$(R(I8),S(I8))=T$ THEN 620
615 NEXT I8: GOTO 630
620 PRINT "YOU ENTERED THAT ONE ALREADY. ENTER ANOTHER.":GOTO 480
630 W$(LEN(W$)+1)=T$
632 U=U+1
634 R(U)=1:S(U)=LEN(T$)
636 IF U=1 THEN 640
638 R(U)=S(U-1)+1:S(U)=R(U)+LEN(T$)-1
640 NEXT I
650 PRINT "THAT'S IT...";M;" WORDS."
660 PRINT "NOW LET ME PONDER THIS......"
680 FOR I=1 TO M-1
685 FOR J=I TO M
690 IF (S(I)-R(I)+1)>=(S(J)-R(J)+1) THEN 700
695 GOSUB 4500 : REM RESORT THIS INTO SEQUENCE BY SIZE
700 NEXT J:NEXT I
710 GOSUB 3000
750 FOR I=1 TO M
760 L2=S(I)-R(I)+1
770 N2=0
790 S3=D2(RND(28)+1)
800 S1=RND(W)+1:X1=S1+(L2-1)*D1(S3*2-1):IF X1 < 1 OR X1 > W THEN 790
810 S2=RND(L)+1:X1=S2+(L2-1)*D1(S3*2):IF X1 < 1 OR X1 > L THEN 790
820 N2=N2+1:IF N2#W*L*2 THEN 850
830 PRINT "COULDN'T FIT '";W$(R(I),S(I));"' IN PUZZLE."
832 INPUT "DO YOU WANT ME TO START OVER?",Z$:Z$(LEN(Z$)+1)=" "
834 IF Z$(1,1)#"Y" THEN 836
835 GOSUB 4700: GOTO 750
836 GOSUB 4600:GOTO 950 : REM SHUFFLE DOWN WORDS OVER I, LOWER M BY 1
850 J=S2:K=S1
860 FOR P=1 TO L2
865 S4=(J-1)*W+K
870 IF A$(S4,S4)#" " AND A$(S4,S4)#W$(R(I)+P-1,R(I)+P-1) THEN 790
880 J=J+D1(S3*2):K=K+D1(S3*2-1):NEXT P
900 J=S2:K=S1
910 FOR P=1 TO L2
915 Z=(J-1)*W+K : Z$=W$(R(I)+P-1,R(I)+P-1):GOSUB 5000:REM PUT Z$ IN POS Z
920 J=J+D1(S3*2):K=K+D1(S3*2-1):NEXT P: REM SHIFT TO NEXT
940 W9(I*3-2)=S1:W9(I*3-1)=S2:W9(I*3)=S3 : REM SAVE POSITION OF EACH WORD/LETTER
950 NEXT I : REM END OF FITTING
970 FOR I=1 TO L
975 FOR J=1 TO W
978 Z=(I-1)*W+J
980 IF A$(Z,Z)#" " THEN 990
982 GOSUB 6000+RND(26) : REM GO GET A RANDOM LETTER
985 GOSUB 5000:REM STICK IT IN ARRAY
990 NEXT J:NEXT I
1010 FOR I=1 TO M-1:FOR J=I+1 TO M
1020 IF (S(I)-R(I))<=(S(J)-R(J)) THEN 1030
1021 GOSUB 4500: REM SWAP INDICES TO SORT
1025 FOR K=1 TO 3:H2=W9((I-1)*3+K):W9((I-1)*3+K)=W9((J-1)*3+K):W9((J-1)*3+K)=H2:NEXT K
1030 NEXT J:NEXT I
1040 INPUT "HOW MANY COPIES OF THIS PUZZLE DO YOU WANT",N
1050 PRINT "FOR EACH COPY, HIT RETURN TO BEGIN PRINTING..."
1060 FOR C=1 TO N:GOSUB 1070:NEXT C:GOTO 1230
1070 INPUT Z$:PRINT
1080 T=(T2-2*W)/2:PRINT
1090 PRINT : REM PRINTING HEADING FIRST
1100 TAB (T2-LEN(Q$))/2: PRINT Q$
1110 PRINT:PRINT
1120 FOR J=1 TO L:TAB(T)
1130 FOR K=1 TO W
1132 IF A$((J-1)*W+K)#"." THEN 1135
1134 PRINT ". ":GOTO 1140
1135 Z=(J-1)*W+K: PRINT A$(Z,Z);" ";
1140 NEXT K:PRINT:NEXT J
1150 PRINT:PRINT
1160 PRINT "FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE:"
1170 PRINT
1180 FOR J=1 TO M:IF S(J)-R(J)+1=0 THEN 1210
1190 PRINT W$(R(J),S(J));:TAB(4):PRINT" ";
1210 NEXT J:PRINT:PRINT:PRINT:PRINT
1220 RETURN
1230 IF X$(1,1) = "Y" THEN 1250
1240 END
1250 REM WANT SOLUTION PRINTOUT
1255 Z$=".":PRINT "PREPARING SOLUTION PRINTOUT"
1260 FOR I=1 TO L:FOR J=1 TO W:Z=(I-1)*W+J:GOSUB 5000:NEXT J:NEXT I
1270 FOR I=1 TO M
1280 L2=S(I)-R(I)+1:J=W9(I*3-1):K=W9(I*3-2)
1290 FOR P=1 TO L2
1300 Z=(J-1)*W+K
1305 Z$=W$(R(I)+P-1,R(I)+P-1) : GOSUB 5000
1310 J=J+D1(W9(I*3)*2):K=K+D1(W9(I*3)*2-1):NEXT P
1320 NEXT I
1330 Q$="HERE IS THE ANSWER KEY:"
1335 PRINT "HIT ENTER TO PRINT SOLUTION KEY"
1340 GOSUB 1070
1350 PRINT:PRINT
1360 END
2000 IF Z$="A" THEN Z=1 : REM VERIFIES CHARACTER IS ALPHABETIC
2005 IF Z$="B" THEN Z=1
2010 IF Z$="C" THEN Z=1
2015 IF Z$="D" THEN Z=1
2020 IF Z$="E" THEN Z=1
2025 IF Z$="F" THEN Z=1
2030 IF Z$="G" THEN Z=1
2035 IF Z$="H" THEN Z=1
2040 IF Z$="I" THEN Z=1
2045 IF Z$="J" THEN Z=1
2050 IF Z$="K" THEN Z=1
2055 IF Z$="L" THEN Z=1
2060 IF Z$="M" THEN Z=1
2065 IF Z$="N" THEN Z=1
2070 IF Z$="O" THEN Z=1
2075 IF Z$="P" THEN Z=1
2080 IF Z$="Q" THEN Z=1
2085 IF Z$="R" THEN Z=1
2090 IF Z$="S" THEN Z=1
2095 IF Z$="T" THEN Z=1
2100 IF Z$="U" THEN Z=1
2105 IF Z$="V" THEN Z=1
2110 IF Z$="W" THEN Z=1
2115 IF Z$="X" THEN Z=1
2120 IF Z$="Y" THEN Z=1
2125 IF Z$="Z" THEN Z=1
2130 RETURN
3000 D1(1)=0 : REM INITIALIZE VALUES, REPLACES
3001 D1(2)=1 : REM DATA AND READ STATEMENTS
3002 D1(3)=1
3003 D1(4)=1
3004 D1(5)=1
3005 D1(6)=0
3006 D1(7)=1
3007 D1(8)=-1
3008 D1(9)=0
3009 D1(10)=-1
3010 D1(11)=-1
3011 D1(12)=-1
3012 D1(13)=-1
3013 D1(14)=0
3014 D1(15)=-1
3016 D1(16)=1
3020 D2(1)=2
3021 D2(2)=4
3023 D2(3)=6
3024 D2(4)=8
3025 FOR Z=5 TO 24:D2(Z)=D2(Z-4):NEXT Z
3026 D2(25)=1
3027 D2(26)=3
3028 D2(27)=5
3029 D2(28)=7
3030 RETURN
4000 Z$=W$(R(Z),S(Z)):REM RETURNS WORD Z INTO STRING Z$
4010 RETURN
4500 REM ONLY NEED TO SWAP INDICES
4510 S6=S(I)
4520 S(I)=S(J)
4530 S(J)=S6
4540 S6=R(I)
4550 R(I)=R(J)
4560 R(J)=S6
4570 RETURN
4600 FOR I5=I TO M-1 : REM DROP R(I),S(I) FROM LIST
4610 R(I5)=R(I5+1)
4620 S(I5)=S(I5+1)
4630 NEXT I5
4640 M=M-1
4650 RETURN
4700 FOR I5=1 TO W:Z$(I5)=" ":NEXT I5
4710 FOR I5=1 TO L:A$((I5-1)*W+1)=Z$:NEXT I5
4720 RETURN
5000 REM ENTERS CHARACTER Z$ INTO POSITION Z OF A$
5010 IF Z<L*W THEN Y$=A$(Z+1)
5020 A$(Z)=Z$
5030 IF Z<L*W THEN A$(Z+1)=Y$
5040 RETURN
6000 Z$="A":RETURN :REM COMPUTED GOTO FROM RND FUNCTION
6001 Z$="B":RETURN
6002 Z$="C":RETURN
6003 Z$="D":RETURN
6004 Z$="E":RETURN
6005 Z$="F":RETURN
6006 Z$="G":RETURN
6007 Z$="H":RETURN
6008 Z$="I":RETURN
6009 Z$="J":RETURN
6010 Z$="K":RETURN
6011 Z$="L":RETURN
6012 Z$="M":RETURN
6013 Z$="N":RETURN
6014 Z$="O":RETURN
6015 Z$="P":RETURN
6016 Z$="Q":RETURN
6017 Z$="R":RETURN
6018 Z$="S":RETURN
6019 Z$="T":RETURN
6020 Z$="U":RETURN
6021 Z$="V":RETURN
6022 Z$="W":RETURN
6023 Z$="X":RETURN
6024 Z$="Y":RETURN
6025 Z$="Z":RETURN
RUN

View File

@ -0,0 +1,194 @@
HIMEM=8192
1 REM LARRY NELSON - FROM 1977
10 DIM D(5),C(14),A$(5)
20 PRINT "YAHTZEE FOR APPLE 1"
30 INPUT "INSTRUCTIONS Y/N",A$
40 IF A$="Y" THEN GOSUB 1000
50 FOR I=1 TO 13:C(I)=-1:NEXT I
55 C(14)=0
60 FOR J=1TO 13
70 FOR I=1 TO 5
80 D(I)=RND(6)+1
85 NEXT I
90 GOSUB 2000
100 FOR K=2 TO 1 STEP -1
110 PRINT K;:PRINT" ROLL";:IF K>1 THEN PRINT"S";
120 PRINT " LEFT."
130 INPUT"DISCARD",B
140 IF B<1 OR B>6 THEN 200
150 L=1
160 IF D(L)=B THEN D(L)=0
165 IF D(L)=0 THEN L=5
170 L=L+1
180 IF L<6 THEN 160
190 GOTO 130
200 FOR I=1 TO 5
210 IF D(I)>0 THEN 240
220 D(I)=RND(6)+1
240 NEXT I
250 GOSUB 2000
255 NEXT K
260 INPUT "SCORE WHAT CATEGORY",B
270 IF B<1 THEN 340
280 IFB>13 THEN 340
290 IF C(B)#-1 THEN 340
300 GOSUB 3000
310 NEXT J
320 PRINT "CONGRATULATIONS - YOU SCORED ";T+U+G
330 END
340 PRINT "YOU CAN'T DO THAT!"
350 GOTO 260
1000 REM INSTRUCTIONS
1010 PRINT "THIS GAME IS PLAYED JUST LIKE THE"
1020 PRINT "ORIGINAL GAME OF 'YAHTZEE'. THE COMPUTER"
1030 PRINT "WILL ROLL THE DICE AND KEEP THE SCORE."
1040 PRINT "YOU MAY DISCARD ANY OR ALL DICE BEFORE"
1050 PRINT "RE-ROLLING. JUST TYPE THE VALUE OF"
1060 PRINT "A DIE YOU WANT TO DISCARD."
1070 PRINT "TYPING A NUMBER BELOW 1 OR ABOVE 6 WILL START THE RE-ROLL."
1080 INPUT "CONTINUE",A$
1999 RETURN
2000 REM DRAW SCORECARD AND DICE
2010 PRINT"1-ACES";:IF C(1) =-1 THEN 2020
2015 TAB12:PRINT C(1);
2020 TAB 20:PRINT "7-3 OF A KIND";:IF C(7)=-1 THEN 2030
2025 TAB 35:PRINT C(7);
2030 PRINT:PRINT "2-TWOS";:IF C(2)=-1 THEN 2040
2035 TAB 12:PRINT C(2);
2040 TAB 20:PRINT "8-4 OF A KIND";:IF C(8)=-1 THEN2050
2045 TAB 35:PRINT C(8);
2050 PRINT:PRINT"3-THREES";:IF C(3)=-1 THEN 2060
2055 TAB12:PRINT C(3);
2060 TAB 20:PRINT "9-FULL HOUSE";:IF C(9)=-1 THEN 2070
2065 TAB35:PRINT C(9);
2070 PRINT:PRINT "4-FOURS";:IF C(4)=-1 THEN 2080
2075 TAB 12:PRINT C(4);
2080 TAB 20:PRINT "10-SM.STRGHT.";:IF C(10)=-1 THEN 2090
2085 TAB 35:PRINT C(10);
2090 PRINT:PRINT "5-FIVES";:IF C(5)=-1 THEN 2100
2095 TAB 12:PRINT C(5);
2100 TAB 20:PRINT "11-LG.STRGHT.";:IF C(11)=-1 THEN 2110
2105 TAB 35:PRINT C(11);
2110 PRINT:PRINT"6-SIXES";:IF C(6)=-1 THEN 2120
2115 TAB 12:PRINT C(6);
2120 TAB 20:PRINT "12-YAHTZEE";:IF C(12)=-1 THEN 2130
2125 TAB 35:PRINT C(12);
2130 PRINT:T=0
2140 FOR I=1 TO 6
2150 IF C(I)>-1 THEN T=T+C(I)
2160 NEXT I
2170 PRINT "SUB-TOTAL";:TAB 12:PRINT T;
2180 TAB 20:PRINT"13-CHANCE";:IF C(13)=-1 THEN 2185
2182 TAB 35:PRINT C(13);
2185 PRINT:PRINT "BONUS";:IF T<65 THEN 2200
2190 U=35:TAB 12:PRINT 35;
2200 TAB20:PRINT "YAHTZEE BONUS";:IF C(14)=0 THEN 2205
2202 TAB35:PRINT C(14)
2205 PRINT
2210 G=0: FOR I=7 TO 14
2220 IF C(I)>-1 THEN G=G+C(I)
2230 NEXT I
2240 PRINT "UPPER";:TAB 12:PRINT T+U;
2250 TAB 20:PRINT "LOWER";:TAB 35:PRINT G
2260 TAB 20:PRINT "TOTAL";
2270 TAB 35:PRINT T+U+G
2300 A$="-----"
2310 PRINT A$,A$,A$,A$,A$
2320 FOR I=1 TO 5
2325 TAB I*8-7
2330 IF D(I)=1 THEN PRINT "! !";
2340 IF D(I)=2 OR D(I)= 3 THEN PRINT "!* !";
2350 IF D(I)>3 THEN PRINT "!* *!";
2360 NEXT I:PRINT
2370 FOR I=1 TO 5
2375 TAB I*8-7
2380 IF D(I)MOD 2 THEN PRINT "! * !";
2390 IF D(I)=2 OR D(I)=4 THEN PRINT "! !";
2400 IF D(I)=6 THEN PRINT "!* *!";
2410 NEXT I:PRINT
2420 FOR I= 1 TO 5
2425 TAB I*8-7
2430 IF D(I)>3 THEN PRINT "!* *!";
2440 IF D(I)=2 OR D(I)=3 THEN PRINT "! *!";
2450 IF D(I)=1 THEN PRINT "! !";
2460 NEXT I:PRINT
2470 PRINT A$,A$,A$,A$,A$
2480 RETURN
3000 REM SCORE CATEGORY E IS POINTER FOR SCORE & P IS SCORE RETURNED
3010 E=100*B+3000
3020 P=0:S=0
3030 GOSUB E
3040 C(B) = P
3050 IF C(12)<50 THEN 3099
3060 P=0:GOSUB 4200
3070 IF P=0 THEN 3099
3080 IF C(14)<0 THEN C(14)=0
3090 C(14)=C(14)+100
3099 RETURN
3100 REM ONES
3200 REM TWOS
3300 REM THREES
3400 REM FOURS
3500 REM FIVES
3600 REM SIXES
3610 FOR I=1 TO 5
3620 IF D(I)=B THEN P=P+B
3630 NEXT I
3640 RETURN
3700 REM 3 OF A KIND
3710 F=0
3720 GOSUB 4400
3730 FOR I=1 TO 3
3740 IF D(I)=D(I+2) THEN F=1
3750 NEXT I
3770 IF F=1 THEN 4300
3780 RETURN
3800 REM 4 OF A KIND
3810 GOSUB 4400
3820 IF D(1)=D(4) THEN 4300
3830 IF D(2)=D(5) THEN 4300
3840 RETURN
3900 REM FULL HOUSE
3910 GOSUB 4400
3920 IF (D(1)#D(2)) OR (D(4)#D(5)) THEN 3940
3930 IF (D(3) = D(1)) OR (D(3) = D(5)) THEN P=25
3940 RETURN
4000 REM SMALL STRAIGHT
4010 GOSUB 4400
4020 FOR I=1 TO 4
4030 IF D(I)=3 THEN T1=1
4040 IF D(I+1)=4 THEN T2=1
4050 IF D(I)+1=D(I+1) THEN P1=P1+1
4060 NEXT I
4070 IF C(12)>0 THEN GOSUB 4230
4080 P1=P1*T1*T2: IF P1>0 OR P=50 THEN P=30
4090 RETURN
4100 REM LARGE STRAIGHT
4110 GOSUB 4400
4120 FORI=1 TO 4
4130 IF D(I)+1=D(I+1) THEN T3=T3+1
4140 NEXT I
4150 IF C(12)>0 THEN GOSUB 4230
4160 IF P=50 OR T3=4 THEN P=40
4170 RETURN
4200 REM YAHTZEE
4210 P=0
4220 GOSUB 4400
4230 IF D(1)=D(5) THEN P=50
4240 RETURN
4300 REM CHANCE
4310 FOR I=1 TO 5
4320 P=P+D(I)
4330 NEXT I
4340 RETURN
4400 REM SORT
4410 FOR H=1 TO 4
4420 FOR I=1 TO 4
4430 IF D(I)<= D(I+1) THEN 4470
4440 S=D(I)
4450 D(I)=D(I+1)
4460 D(I+1)=S
4470 NEXT I
4480 NEXT H
4490 RETURN

283
code/programs/BLACKJACK.TXT Normal file
View File

@ -0,0 +1,283 @@
004A: 00 08 00 10 00 1B
0050: FF FF FF FF FF FF FF FF
0058: FF FF FF FF FF FF FF FF
0060: FF FF FF FF FF FF FF F6
0068: 9A F6 03 F3 01 05 01 03
0070: ED ED ED ED ED EC ED ED
0078: 32 FF FF FF FF FF FF AA
0080: 9F 9F 9F 9F 9F 9F 9F 9F
0088: 9F 9F 9F 9F 9F 9F 9F 08
0090: 00 00 00 08 08 00 0B 00
0098: 82 59 5E 9C 13 7C F3 FF
00A0: 00 3F 9F 9F 9F 9F 9F 9F
00A8: 9F 9F 9F 9F 9F 9F 9F DF
00B0: 9F 9F 9F 9F 9F 9F 9F 9F
00B8: 02 FF 00 FF FF 00 00 A0
00C0: 09 04 04 09 03 FF FF FF
00C8: 0A 0C 06 0A 0D 09 03 A0
00D0: 53 08 0D 09 00 00 01 00
00D8: 20 3F 78 0E B4 0A 9F DF
00E0: 10 02 DE 0F B4 0A EF 0A
00E8: 68 11 0C 0C 0F 0B 0A 0A
00F0: 0A 10 FD 5F 9F 9F 9F 9F
00F8: 4F 00 00 00 00 20 00 ED
0800: 82 40 12 08 C1 B2 B3 B4
0808: B5 B6 B7 B8 B9 D4 CA D1
0810: CB 1E 84 40 1B 08 C3 C4
0818: C8 D3 1E 86 40 34 08 D6
0820: C9 CE C3 C5 1E 1E B7 B8
0828: 08 B0 00 00 62 08 FF FF
0830: FF FF CB 26 88 40 4D 08
0838: D9 1E 1E 1E 26 26 C8 26
0840: CB C6 CA CC CB C4 D3 C1
0848: CA C6 CB CC B5 9C 00 53
0850: 08 0F 00 A6 00 59 08 A2
0858: FE 82 00 C5 08 04 00 0C
0860: 00 12 00 0D 00 15 00 32
0868: 00 25 00 19 00 0E 00 0A
0870: 00 1E 00 1C 00 2A 00 05
0878: 00 30 00 23 00 1A 00 00
0880: 00 2B 00 1F 00 03 00 24
0888: 00 1D 00 10 00 13 00 2E
0890: 00 33 00 22 00 18 00 08
0898: 00 01 00 14 00 07 00 29
08A0: 00 09 00 17 00 11 00 21
08A8: 00 28 00 20 00 0B 00 2D
08B0: 00 16 00 2F 00 31 00 06
08B8: 00 1B 00 0F 00 2C 00 26
08C0: 00 27 00 02 00 92 00 CB
08C8: 08 59 02 A0 00 D1 08 16
08D0: 00 88 00 D7 08 08 00 82
08D8: B1 DD 08 00 00 82 B2 E3
08E0: 08 00 00 84 00 E9 08 C8
08E8: 00 94 00 EF 08 0D 00 96
08F0: 00 F5 08 01 00 98 00 FB
08F8: 08 15 00 86 00 01 09 0A
0900: 00 8A 00 07 09 08 00 8C
0908: 00 0D 09 01 00 09 08 00
0910: 8A 00 16 09 0A 00 8C 00
0918: 1C 09 04 00 FF FF 7F FF
0920: 7F 7F FF 7F 7F 7F FF FF
0928: 7F 7F 7F 7F 7F 7F 7F FF
0930: 7F 7F 7F 7F 7F 7F 7F FF
0938: 7F 7F 7F 7F 7F 7F 7F FF
0940: 7F 7F 7F 7F 7F 7F 7F 7F
0948: 7F 7F 7F 7F 7F 7F 7F 7F
0950: 7F 7F 7F 7F 7F 7F 65 0A
0958: 00 4E C1 40 22 B1 0D 65
0960: 0A 00 4E C1 40 22 B1 0D
0968: 00 72 43 C2 40 22 B4 04
0970: 00 72 43 C3 40 22 B2 14
0978: 00 72 43 C4 40 22 B2 14
0980: 00 72 43 CE 40 22 B1 0A
0988: 00 72 03 C1 40 70 28 C1
0990: B2 B3 B4 B5 B6 B7 B8 B9
0998: D4 CA D1 CB 29 03 C2 40
09A0: 70 28 C3 C4 C8 D3 29 03
09A8: CE 40 70 28 B0 B1 B2 B3
09B0: B4 B5 B6 B7 B8 B9 29 03
09B8: 65 0A 00 4E C1 40 22 B1
09C0: 0D 00 72 43 C2 40 22 B4
09C8: 04 00 72 43 C3 40 22 B2
09D0: 14 00 72 43 C4 40 22 B2
09D8: 14 00 72 43 CE 40 22 B1
09E0: 0A 00 72 03 C1 40 70 28
09E8: C1 B2 B3 B4 B5 B6 65 0A
09F0: 00 4E C1 40 22 B1 0D 00
09F8: 72 43 C2 40 22 B4 04 00
0A00: 72 05 05 00 5D 01 4D 0A
0A08: 00 4E C1 40 22 B1 0D 00
0A10: 72 43 C2 40 22 B4 04 00
0A18: 72 43 C3 40 22 B2 14 00
0A20: 72 43 C4 40 22 B2 14 00
0A28: 72 03 C1 40 70 28 C1 B2
0A30: B3 B4 B5 B6 B7 B8 B9 D4
0A38: CA D1 CB 29 03 C2 40 70
0A40: 28 C3 C4 C8 D3 29 03 CE
0A48: 71 B5 34 00 03 D3 71 B0
0A50: 00 00 01 24 0F 00 4F C1
0A58: 34 B5 34 00 72 03 55 C9
0A60: 56 B1 01 00 57 B5 34 00
0A68: 03 C1 2D C9 72 71 C9 13
0A70: B1 01 00 03 59 C9 01 3D
0A78: 14 00 53 28 D7 C5 CC C3
0A80: CF CD C5 A0 D4 CF A0 B2
0A88: B1 AE A0 A0 D9 CF D5 D2
0A90: A0 CE C1 CD C5 29 26 C3
0A98: 40 03 61 28 CF CB AC A0
0AA0: C8 C5 D2 C5 A0 D7 C5 A0
0AA8: C7 CF A0 29 45 C3 40 45
0AB0: 28 AE 29 01 3B 1E 00 D0
0AB8: 71 B0 00 00 03 C4 71 D0
0AC0: 03 C1 B1 71 D0 03 C1 B2
0AC8: 71 D0 03 5C B3 B8 0B 03
0AD0: 60 C2 24 B3 23 00 03 61
0AD8: 28 C5 CE C4 AD AD D3 D4
0AE0: CF D0 D0 C5 C4 A0 C1 D4
0AE8: A0 B3 B0 29 03 51 01 43
0AF0: 23 00 61 28 C9 A0 D3 C8
0AF8: CF D7 A0 A0 29 47 03 5C
0B00: B2 E4 07 03 C5 71 CA 03
0B08: C6 71 CB 03 63 03 61 28
0B10: D9 CF D5 A0 C8 C1 D6 C5
0B18: A0 A0 29 47 03 5C B2 F8
0B20: 07 03 5C B2 F8 07 03 60
0B28: D0 1C B2 15 00 24 B4 2D
0B30: 00 01 21 25 00 61 28 C2
0B38: CC C1 C3 CB CA C1 C3 CB
0B40: A1 A1 29 03 C2 71 C2 12
0B48: C2 15 B2 02 00 03 5F B3
0B50: 2C 01 01 25 28 00 61 28
0B58: D0 CC C5 C1 D3 C5 A0 C1
0B60: CE D3 D7 C5 D2 A0 A7 D9
0B68: C5 D3 A7 A0 CF D2 A0 A7
0B70: CE CF A7 AE A0 29 47 01
0B78: 5E 2D 00 60 D0 17 B1 0B
0B80: 00 24 B5 32 00 03 53 28
0B88: C4 CF A0 D9 CF D5 A0 D7
0B90: C9 D3 C8 A0 D4 CF A0 C4
0B98: CF D5 C2 CC C5 A0 C4 CF
0BA0: D7 CE 29 26 C4 40 03 60
0BA8: C4 40 39 28 CE 29 1E C4
0BB0: 40 39 28 CE CF 29 24 B5
0BB8: 32 00 03 60 C4 40 3A 28
0BC0: D9 29 1D C4 40 3A 28 D9
0BC8: C5 D3 29 24 B4 2C 00 03
0BD0: C2 71 C2 12 C2 01 0D 2E
0BD8: 00 5C B2 F8 07 03 5F B6
0BE0: 3C 00 01 5C 32 00 53 28
0BE8: C8 C9 D4 29 26 C4 40 03
0BF0: 60 C4 40 39 28 CE 29 1E
0BF8: C4 40 39 28 CE CF 29 24
0C00: B6 3C 00 03 60 C4 40 3A
0C08: 28 D9 29 1D C4 40 3A 28
0C10: D9 C5 D3 29 24 B4 28 00
0C18: 03 50 B1 0B 00 03 5C B2
0C20: F8 07 03 60 D0 1C B2 16
0C28: 00 24 B5 32 00 03 61 28
0C30: C2 D5 D3 D4 C5 C4 A0 29
0C38: 47 03 5F B2 C8 00 01 29
0C40: 3C 00 63 03 61 28 CD D9
0C48: A0 C3 C1 D2 C4 D3 BA A0
0C50: 29 45 C1 40 2A C5 23 C5
0C58: 72 45 C2 40 2A C6 23 C6
0C60: 72 45 28 A0 A0 29 47 01
0C68: 33 46 00 55 C9 56 B1 01
0C70: 00 57 B6 58 02 03 59 C9
0C78: 03 60 C4 19 B1 11 00 1E
0C80: C4 16 B1 11 00 1D C1 B2
0C88: 16 B0 00 00 24 B8 50 00
0C90: 03 5C B2 E4 07 03 5F B7
0C98: 46 00 01 2D 50 00 60 C4
0CA0: 19 B2 15 00 24 B8 55 00
0CA8: 03 60 C4 19 D0 24 B2 C8
0CB0: 00 03 60 C4 1C D0 24 B9
0CB8: 5A 00 03 61 28 C4 D2 C1
0CC0: D7 29 03 5F B4 90 01 01
0CC8: 10 55 00 61 28 C9 A0 C2
0CD0: D5 D3 D4 AC A0 29 47 01
0CD8: 13 5A 00 61 28 D9 CF D5
0CE0: A0 D7 C9 CE 29 03 5F B3
0CE8: 2C 01 01 21 C8 00 D3 71
0CF0: D3 13 C2 03 61 28 A0 A0
0CF8: A0 C9 A0 D7 C9 CE 29 03
0D00: 5F B2 D2 00 12 2F 3F B5
0D08: 05 00 72 01 2C D2 00 61
0D10: 28 D9 CF D5 A7 C4 A0 C2
0D18: C5 D4 D4 C5 D2 A0 D4 D2
0D20: D9 A0 C8 C1 D2 C4 C5 D2
0D28: AC A0 29 45 C3 40 45 28
0D30: AE 29 03 5F B4 90 01 01
0D38: 34 D3 00 61 28 C9 C6 A0
0D40: D9 CF D5 A0 C4 CF CE A7
0D48: D4 A0 C9 CD D0 D2 CF D6
0D50: C5 AC A0 29 45 C3 40 45
0D58: 28 AC A0 C9 A7 CC CC A0
0D60: D1 D5 C9 D4 AE 29 03 5F
0D68: B4 90 01 01 33 D4 00 61
0D70: 28 D9 CF D5 A0 C3 CF D5
0D78: CC C4 CE A7 D4 A0 C2 C5
0D80: C1 D4 A0 C1 A0 B5 AD D9
0D88: C5 C1 D2 AD CF CC C4 AC
0D90: A0 29 45 C3 40 45 28 AE
0D98: 29 03 5F B4 90 01 01 24
0DA0: D5 00 61 28 C7 C5 D4 D4
0DA8: C9 CE C7 A0 D4 CF CF A0
0DB0: CF CC C4 AC A0 29 45 C3
0DB8: 40 45 28 BF 29 03 5F B4
0DC0: 90 01 01 29 D6 00 61 28
0DC8: D3 D4 C9 C3 CB A0 D4 CF
0DD0: A0 D4 C9 C3 AD D4 C1 C3
0DD8: AD D4 CF C5 AC A0 29 45
0DE0: C3 40 45 28 AE 29 03 5F
0DE8: B4 90 01 01 15 2C 01 D3
0DF0: 71 D3 12 C2 03 5F B3 36
0DF8: 01 12 2F 3F B3 03 00 72
0E00: 01 23 36 01 61 28 C9 A7
0E08: CC CC A0 C8 C1 D6 C5 A0
0E10: D4 CF A0 D4 D2 D9 A0 C8
0E18: C1 D2 C4 C5 D2 29 03 5F
0E20: B4 90 01 01 31 37 01 61
0E28: 28 C9 A0 C3 C1 CE A7 D4
0E30: A0 C2 C5 CC C9 C5 D6 C5
0E38: A0 D9 CF D5 D2 A0 D2 D5
0E40: CE A0 CF C6 A0 CC D5 C3
0E48: CB AC A0 29 45 C3 40 03
0E50: 5F B4 90 01 01 1A 38 01
0E58: 61 28 CE CF D7 A0 C9 A7
0E60: CD A0 C7 C5 D4 D4 C9 CE
0E68: C7 A0 CD C1 C4 29 01 1F
0E70: 90 01 50 B2 14 00 03 61
0E78: 28 D7 C9 CE CE C9 CE C7
0E80: D3 BA A0 29 46 D3 03 63
0E88: 03 5F B3 1E 00 01 4B E8
0E90: 03 CE 71 B0 00 00 03 55
0E98: C9 56 B1 01 00 57 B1 78
0EA0: 00 03 CA 71 2F 3F B5 34
0EA8: 00 72 12 B1 01 00 03 CB
0EB0: 71 2F 3F B5 34 00 72 12
0EB8: B1 01 00 03 CC 71 C1 2D
0EC0: CA 72 03 C1 2D CA 72 71
0EC8: C1 2D CB 72 03 C1 2D CB
0ED0: 72 71 CC 03 59 C9 03 5B
0ED8: 01 60 D0 07 60 CE 19 B5
0EE0: 32 00 25 5C B1 E8 03 03
0EE8: CE 71 CE 12 B1 01 00 03
0EF0: CA 71 C1 2D CE 72 15 B4
0EF8: 04 00 12 B1 01 00 03 CB
0F00: 71 C1 2D CE 72 1F B4 04
0F08: 00 12 B1 01 00 03 C3 71
0F10: CA 13 CA 15 B1 0A 00 14
0F18: 38 CA 13 B1 0A 00 72 03
0F20: 61 C1 40 2A CA 23 CA 72
0F28: 45 C2 40 2A CB 23 CB 72
0F30: 45 28 A0 A0 29 47 03 5B
0F38: 01 4C E4 07 5C B2 D0 07
0F40: 03 C4 71 C4 12 C3 12 38
0F48: C3 16 B1 01 00 72 14 B1
0F50: 0A 00 03 C1 B2 71 C1 B2
0F58: 12 38 C3 16 B1 01 00 72
0F60: 03 60 C4 1C B2 16 00 1E
0F68: C1 B2 16 B0 00 00 25 5B
0F70: 03 C1 B2 71 C1 B2 13 B1
0F78: 01 00 03 C4 71 C4 13 B1
0F80: 0A 00 03 5B 01 4C F8 07
0F88: 5C B2 D0 07 03 D0 71 D0
0F90: 12 C3 12 38 C3 16 B1 01
0F98: 00 72 14 B1 0A 00 03 C1
0FA0: B1 71 C1 B1 12 38 C3 16
0FA8: B1 01 00 72 03 60 D0 1C
0FB0: B2 16 00 1E C1 B1 16 B0
0FB8: 00 00 25 5B 03 C1 B1 71
0FC0: C1 B1 13 B1 01 00 03 D0
0FC8: 71 D0 13 B1 0A 00 03 5B
0FD0: 01 2F B8 0B 53 28 C2 C5
0FD8: D4 29 27 C2 03 60 C2 1A
0FE0: B3 B8 0B 25 5B 03 61 28
0FE8: CC C9 CD C9 D4 A0 C9 D3
0FF0: A0 A4 B3 B0 B0 B0 AE A0
0FF8: 29 47 03 5F B3 B8 0B 01
E2B3R
RUN

443
code/programs/BOWLING.TXT Normal file
View File

@ -0,0 +1,443 @@
004A: 00 03 00 10 57 6B
0050: 05 BF FD BF BF BF F8 F8
0058: BF B7 7F BF BF B7 FF 21
0060: F7 BF 3F 3F 3F BF 77 10
0068: 60 3C 00 01 F1 00 01 03
0070: ED ED ED ED ED EC ED ED
0078: FF F7 B7 F7 FF B7 FF 35
0080: 17 00 F7 F7 BD FD DF F7
0088: B7 B7 F7 F7 00 00 01 00
0090: 00 00 D9 04 0F 01 00 00
0098: 82 59 5E 9C 13 7C F3 FF
00A0: 03 00 F7 75 35 04 00 00
00A8: 96 1B 00 01 CD F7 4D 0E
00B0: 6C DF 05 00 7E 9C B7 00
00B8: F6 F7 FF 0C 15 FF 00 A0
00C0: 09 04 04 09 03 FF FF FF
00C8: 0A 0C 69 07 01 06 03 A0
00D0: FB 05 01 06 00 00 01 00
00D8: 21 7F F1 0F FB 0F 00 06
00E0: 10 02 3D 0F CE 05 A6 0F
00E8: 16 11 0C 0C 0F 0B 0A 0A
00F0: 0A 10 FD 5F E8 75 F7 25
00F8: 00 00 00 00 00 20 00 ED
0300: 86 00 22 03 01 00 01 00
0308: 01 00 01 00 01 00 01 00
0310: 01 00 00 00 01 00 01 00
0318: 01 00 01 00 01 00 01 00
0320: 01 00 82 00 EE 03 07 00
0328: 07 00 08 00 09 00 08 00
0330: 07 00 08 00 07 00 05 00
0338: 08 00 00 00 00 00 00 00
0340: 00 00 00 00 00 00 00 00
0348: 00 00 00 00 00 00 00 00
0350: 00 00 00 00 00 00 00 00
0358: 00 00 00 00 00 00 00 00
0360: 00 00 00 00 00 00 00 00
0368: 00 00 00 00 00 00 00 00
0370: 00 00 00 00 00 00 00 00
0378: 00 00 00 00 00 00 00 00
0380: 00 00 00 00 00 00 00 00
0388: 00 00 00 00 00 00 00 00
0390: 00 00 00 00 00 00 00 00
0398: 00 00 00 00 00 00 00 00
03A0: 00 00 00 00 00 00 00 00
03A8: 00 00 00 00 00 00 00 00
03B0: 00 00 00 00 00 00 00 00
03B8: 00 00 00 00 00 00 00 00
03C0: 00 00 00 00 00 00 00 00
03C8: 00 00 00 00 00 00 00 00
03D0: 00 00 00 00 00 00 00 00
03D8: 00 00 00 00 00 00 00 00
03E0: 00 00 00 00 00 00 00 00
03E8: 00 00 00 00 00 00 B4 00
03F0: BA 04 03 00 03 00 01 00
03F8: 01 00 02 00 02 00 02 00
0400: 02 00 05 00 01 00 00 00
0408: 00 00 00 00 00 00 00 00
0410: 00 00 00 00 00 00 00 00
0418: 00 00 00 00 00 00 00 00
0420: 00 00 00 00 00 00 00 00
0428: 00 00 00 00 00 00 00 00
0430: 00 00 00 00 00 00 00 00
0438: 00 00 00 00 00 00 00 00
0440: 00 00 00 00 00 00 00 00
0448: 00 00 00 00 00 00 00 00
0450: 00 00 00 00 00 00 00 00
0458: 00 00 00 00 00 00 00 00
0460: 00 00 00 00 00 00 00 00
0468: 00 00 00 00 00 00 00 00
0470: 00 00 00 00 00 00 00 00
0478: 00 00 00 00 00 00 00 00
0480: 00 00 00 00 00 00 00 00
0488: 00 00 00 00 00 00 00 00
0490: 00 00 00 00 00 00 00 00
0498: 00 00 00 00 00 00 00 00
04A0: 00 00 00 00 00 00 00 00
04A8: 00 00 00 00 00 00 00 00
04B0: 00 00 00 00 00 00 00 00
04B8: 00 00 88 00 86 05 09 00
04C0: 02 00 01 00 02 00 02 00
04C8: 01 00 02 00 01 00 02 00
04D0: 01 00 00 00 00 00 00 00
04D8: 00 00 00 00 00 00 00 00
04E0: 00 00 00 00 00 00 00 00
04E8: 00 00 00 00 00 00 00 00
04F0: 00 00 00 00 00 00 00 00
04F8: 00 00 00 00 00 00 00 00
0500: 00 00 00 00 00 00 00 00
0508: 00 00 00 00 00 00 00 00
0510: 00 00 00 00 00 00 00 00
0518: 00 00 00 00 00 00 00 00
0520: 00 00 00 00 00 00 00 00
0528: 00 00 00 00 00 00 00 00
0530: 00 00 00 00 00 00 00 00
0538: 00 00 00 00 00 00 00 00
0540: 00 00 00 00 00 00 00 00
0548: 00 00 00 00 00 00 00 00
0550: 00 00 00 00 00 00 00 00
0558: 00 00 00 00 00 00 00 00
0560: 00 00 00 00 00 00 00 00
0568: 00 00 00 00 00 00 00 00
0570: 00 00 00 00 00 00 00 00
0578: 00 00 00 00 00 00 00 00
0580: 00 00 00 00 00 00 9C 40
0588: B3 05 1E 1E CC CC 1E 45
0590: 4E 43 4C 4F 53 C5 29 05
0598: 9A 05 A9 02 20 04 04 8A
05A0: 38 E9 08 AA 94 03 94 01
05A8: 88 C8 B1 A8 C5 A6 F0 F9
05B0: 94 04 B1 B4 40 B9 05 CD
05B8: 1E A4 00 BF 05 01 00 92
05C0: 00 C5 05 04 00 8C 00 CB
05C8: 05 0B 00 A0 00 D1 05 02
05D0: 00 9A 00 D7 05 08 00 84
05D8: 00 DD 05 02 00 A2 00 E3
05E0: 05 01 00 96 00 E9 05 0A
05E8: 00 B0 00 EF 05 01 00 94
05F0: 00 F5 05 0B 00 AC B1 FB
05F8: 05 0A 00 82 40 01 06 CE
0600: 1E 03 20 04 04 C4 A6 D0
0608: 07 C6 A7 10 03 4C 44 03
0610: B1 AA 91 A8 C8 D0 EE E6
0618: AB E6 A9 4C 05 06 82 55
0620: AA F6 05 25 06 B5 02 85
0628: A6 94 02 B5 03 85 A7 94
0630: 03 A0 10 16 02 36 03 36
0638: 00 36 01 90 13 18 A5 A6
0640: 75 02 95 02 A5 A7 75 03
0648: 95 03 A9 00 75 00 95 00
0650: 88 D0 E0 4C 44 03 82 55
0658: AF 1E 06 5D 06 B5 04 B4
0660: 02 94 04 0A 95 02 B5 05
0668: B4 03 94 05 2A 95 03 A9
0670: 10 85 A6 36 04 36 05 38
0678: B5 04 F5 00 A8 B5 05 F5
0680: 01 90 04 94 04 95 05 36
0688: 02 36 03 C6 A6 D0 E4 4C
0690: EE 04 83 41 4E C4 56 06
0698: 9A 06 B5 00 35 02 48 B5
06A0: 01 35 03 E8 E8 4C 3F 03
06A8: 82 4F D2 92 06 AF 06 B5
06B0: 00 15 02 48 B5 01 15 03
06B8: E8 E8 4C 3F 03 83 58 4F
06C0: D2 A8 06 C5 06 B5 00 55
06C8: 02 48 B5 01 55 03 E8 E8
06D0: 4C 3F 03 83 53 50 C0 BD
06D8: 06 DB 06 8A 48 A9 00 4C
06E0: 3D 03 83 53 50 A1 D3 06
06E8: EA 06 A0 06 B1 B3 AA 4C
06F0: 44 03 83 52 50 A1 E2 06
06F8: FA 06 86 B5 A0 08 B1 B3
0700: AA 9A A6 B5 4C 44 03 82
0708: 3B D3 F2 06 0E 07 68 85
0710: AE 68 85 AF 4C 44 03 85
0718: 4C 45 41 56 C5 07 07 21
0720: 07 86 B5 BA BD 01 01 9D
0728: 03 01 BD 02 01 9D 04 01
0730: A6 B5 4C 44 03 82 3E D2
0738: 17 07 3C 07 B5 01 48 B5
0740: 00 48 E8 E8 4C 44 03 82
0748: 52 BE 10 0A 00 50 10 0A
0750: 00 50 B1 12 00 03 61 28
0758: C2 CF D7 CC 29 01 28 14
0760: 00 61 28 C3 D2 C5 C1 D4
0768: C9 10 0A 00 50 B1 12 00
0770: 03 61 28 C2 CF D7 CC 29
0778: 01 28 14 00 61 28 C3 D2
0780: C5 C1 D4 C9 D6 C5 A0 C3
0788: CF CD D0 D5 D4 C9 CE C7
0790: A0 CD CF D2 D2 C9 D3 D4
0798: C9 CF CE AC A0 CE CA 29
07A0: 01 09 1E 00 63 03 63 03
07A8: 63 01 28 0E 01 4F C3 34
07B0: B1 0F 00 72 44 C1 34 B1
07B8: 64 00 72 44 DA 34 B1 64
07C0: 00 72 44 C4 34 B1 64 00
07C8: 72 43 CE 40 22 B4 28 00
07D0: 72 01 1B 68 01 61 28 D7
07D8: C5 CC C3 CF CD C5 A0 D4
07E0: CF A0 D4 C8 C5 A0 C1 CC
07E8: CC C5 D9 29 01 19 C2 01
07F0: 61 28 C2 D2 C9 CE C7 A0
07F8: D9 CF D5 D2 A0 C6 D2 C9
0800: C5 CE C4 D3 29 01 24 1C
0808: 02 61 28 CF CB A0 CC C5
0810: D4 A7 D3 A0 C6 C9 D2 D3
0818: D4 A0 C7 C5 D4 A0 C1 C3
0820: D1 D5 C1 C9 CE D4 C5 C4
0828: 29 01 05 76 02 63 01 20
0830: D0 02 53 28 D4 C8 C5 A0
0838: C9 CE D3 D4 D2 D5 C3 C9
0840: D4 CF CE D3 A0 A8 D9 AF
0848: CE A9 29 26 DA 40 01 0F
0850: C0 03 60 DA 40 39 28 CE
0858: 29 24 B1 FA 05 01 40 DE
0860: 03 61 28 D4 C8 C5 A0 C7
0868: C1 CD C5 A0 CF C6 A0 C2
0870: CF D7 CC C9 CE C7 A0 D4
0878: C1 CB C5 D3 A0 CD C9 CE
0880: C4 A0 C1 CE C4 A0 D3 CB
0888: C9 CC CC AE A0 C4 D5 D2
0890: C9 CE C7 A0 D4 C8 C5 A0
0898: C7 C1 CD C5 29 01 39 38
08A0: 04 61 28 D4 C8 C5 A0 C3
08A8: CF CD D0 D5 D4 C5 D2 A0
08B0: D7 C9 CC CC A0 CB C5 C5
08B8: D0 A0 D3 C3 CF D2 C5 AE
08C0: A0 D9 CF D5 A0 CD C1 D9
08C8: A0 C3 CF CD D0 C5 D4 C5
08D0: A0 D7 C9 D4 C8 29 01 3F
08D8: 92 04 61 28 CF D4 C8 C5
08E0: D2 A0 D0 CC C1 D9 C5 D2
08E8: D3 A0 D5 D0 A0 D4 CF A0
08F0: C6 CF D5 D2 AE A0 D9 CF
08F8: D5 A0 D7 C9 CC CC A0 C2
0900: C5 A0 D0 CC C1 D9 C9 CE
0908: C7 A0 D4 C5 CE A0 C6 D2
0910: C1 CD C5 D3 29 01 43 EC
0918: 04 61 28 CF CE A0 D4 C8
0920: C5 A0 D0 C9 CE A0 C4 C9
0928: C1 C7 D2 C1 CD A0 A7 CF
0930: A7 A0 CD C5 C1 CE D3 A0
0938: D4 C8 C5 A0 D0 C9 CE A0
0940: C9 D3 A0 C4 CF D7 CE AE
0948: AE AE A7 AB A7 A0 CD C5
0950: C1 CE D3 A0 D4 C8 C5 29
0958: 01 42 46 05 61 28 D0 C9
0960: CE A0 C9 D3 A0 D3 D4 C1
0968: CE C4 C9 CE C7 AE A0 C1
0970: C6 D4 C5 D2 A0 D4 C8 C5
0978: A0 C7 C1 CD C5 A0 D4 C8
0980: C5 A0 C3 CF CD D0 D5 D4
0988: C5 D2 A0 D7 C9 CC CC A0
0990: D3 C8 CF D7 A0 D9 CF D5
0998: D2 29 01 0E A0 05 61 28
09A0: D3 C3 CF D2 C5 D3 AE 29
09A8: 01 2B FA 05 61 28 C6 C9
09B0: D2 D3 D4 A0 CF C6 A0 C1
09B8: CC CC AE AE AE C8 CF D7
09C0: A0 CD C1 CE D9 A0 C1 D2
09C8: C5 A0 D0 CC C1 D9 C9 CE
09D0: C7 29 47 01 06 54 06 54
09D8: D2 01 05 AE 06 63 01 13
09E0: 08 07 61 28 D6 C5 D2 D9
09E8: A0 C7 CF CF C4 AE AE AE
09F0: 29 01 0E 62 07 55 C9 56
09F8: B1 01 00 57 B1 64 00 01
0A00: 21 6C 07 C1 2D C9 72 71
0A08: B0 00 00 03 DA 2D C9 72
0A10: 71 B0 00 00 03 C4 2D C9
0A18: 72 71 B0 00 00 03 59 C9
0A20: 01 09 BC 07 C6 71 B1 01
0A28: 00 01 0C 16 08 55 D0 56
0A30: B1 01 00 57 D2 01 09 70
0A38: 08 CD 71 B0 00 00 01 09
0A40: CA 08 C2 71 B1 01 00 01
0A48: 0F 24 09 CD 71 B0 00 00
0A50: 03 D1 71 B0 00 00 01 1A
0A58: 7E 09 55 C9 56 B1 01 00
0A60: 57 B1 0F 00 03 C3 2D C9
0A68: 72 71 B0 00 00 03 59 C9
0A70: 01 2A D8 09 5D A0 C2 C1
0A78: CC CC A0 C7 C5 CE C5 D2
0A80: C1 D4 CF D2 A0 D5 D3 C9
0A88: CE C7 A0 CD CF C4 A0 A7
0A90: B1 B5 A7 A0 D3 D9 D3 D4
0A98: C5 CD 01 27 32 0A 61 28
0AA0: D4 D9 D0 C5 A0 D2 CF CC
0AA8: CC A0 D4 CF A0 C7 C5 D4
0AB0: A0 D4 C8 C5 A0 C2 C1 CC
0AB8: CC A0 C7 CF C9 CE C7 AE
0AC0: 29 01 07 8C 0A 52 CE 40
0AC8: 01 0F E6 0A CB 71 B0 00
0AD0: 00 03 C4 71 B0 00 00 01
0AD8: 0E 40 0B 55 C9 56 B1 01
0AE0: 00 57 B2 14 00 01 10 9A
0AE8: 0B D8 71 2F 3F B1 64 00
0AF0: 72 12 B1 01 00 01 0E F4
0AF8: 0B 55 CA 56 B1 01 00 57
0B00: B1 0A 00 01 10 4E 0C 60
0B08: D8 1C B1 0F 00 14 CA 24
0B10: B3 02 0D 01 06 A8 0C 59
0B18: CA 01 12 02 0D C3 2D B1
0B20: 0F 00 14 CA 13 D8 72 71
0B28: B1 01 00 01 06 5C 0D 59
0B30: C9 01 11 B6 0D 5D A0 D0
0B38: C9 CE A0 C4 C9 C1 C7 D2
0B40: C1 CD 01 29 10 0E 61 28
0B48: D0 CC C1 D9 C5 D2 BA A0
0B50: 29 46 D0 45 28 C6 D2 C1
0B58: CD C5 BA A0 29 46 C6 45
0B60: 28 A0 C2 C1 CC CC BA A0
0B68: 29 46 C2 01 0E 6A 0E 55
0B70: C9 56 B0 00 00 57 B3 03
0B78: 00 01 05 C4 0E 63 01 10
0B80: 1E 0F 55 CA 56 B1 01 00
0B88: 57 B4 04 00 13 C9 01 0B
0B90: 78 0F CB 71 CB 12 B1 01
0B98: 00 01 11 D2 0F 60 C3 2D
0BA0: CB 72 16 B1 01 00 24 B4
0BA8: E0 10 01 13 2C 10 50 38
0BB0: C9 12 B1 01 00 72 03 61
0BB8: 28 AB A0 29 47 01 08 86
0BC0: 10 5F B4 3A 11 01 13 E0
0BC8: 10 50 38 C9 12 B1 01 00
0BD0: 72 03 61 28 CF A0 29 47
0BD8: 01 06 3A 11 59 CA 01 06
0BE0: 94 11 59 C9 01 05 EE 11
0BE8: 63 01 13 48 12 5D A0 D2
0BF0: CF CC CC A0 C1 CE C1 CC
0BF8: D9 D3 C9 D3 01 0E A2 12
0C00: 55 C9 56 B1 01 00 57 B1
0C08: 0A 00 01 0C FC 12 C4 71
0C10: C4 12 C3 2D C9 72 01 06
0C18: 56 13 59 C9 01 10 B0 13
0C20: 60 C4 13 CD 17 B0 00 00
0C28: 24 B5 64 14 01 0F 0A 14
0C30: 61 28 C7 D5 D4 D4 C5 D2
0C38: A1 A1 29 01 14 64 14 60
0C40: C2 17 B1 01 00 1E C4 17
0C48: B1 0A 00 24 B5 72 15 01
0C50: 11 BE 14 61 28 D3 D4 D2
0C58: C9 CB C5 A1 A1 A1 A1 29
0C60: 01 09 18 15 D1 71 B3 03
0C68: 00 01 14 72 15 60 C2 17
0C70: B2 02 00 1E C4 17 B1 0A
0C78: 00 24 B5 80 16 01 10 CC
0C80: 15 61 28 D3 D0 C1 D2 C5
0C88: A1 A1 A1 A1 29 01 09 26
0C90: 16 D1 71 B2 02 00 01 14
0C98: 80 16 60 C2 17 B2 02 00
0CA0: 1E C4 18 B1 0A 00 24 B6
0CA8: 42 18 01 0F DA 16 61 28
0CB0: C5 D2 D2 CF D2 A1 A1 A1
0CB8: 29 01 09 34 17 D1 71 B1
0CC0: 01 00 01 14 8E 17 60 C2
0CC8: 17 B1 01 00 1E C4 18 B1
0CD0: 0A 00 24 B6 42 18 01 19
0CD8: E8 17 61 28 D2 CF CC CC
0CE0: A0 D9 CF D5 D2 A0 B2 CE
0CE8: C4 A0 C2 C1 CC CC 29 01
0CF0: 1B 42 18 5D A0 D3 D4 CF
0CF8: D2 C1 C7 C5 A0 CF C6 A0
0D00: D4 C8 C5 A0 D3 C3 CF D2
0D08: C5 D3 01 05 9C 18 63 01
0D10: 14 A6 18 D6 B1 71 38 B1
0D18: 0A 00 14 D0 12 C6 72 13
0D20: B1 0A 00 01 0E F6 18 60
0D28: C2 16 B1 01 00 24 B6 00
0D30: 19 01 0E F7 18 60 C2 16
0D38: B2 02 00 24 B6 05 19 01
0D40: 0E F9 18 60 C2 16 B3 03
0D48: 00 24 B6 0A 19 01 10 00
0D50: 19 C1 2D D6 B1 72 71 C4
0D58: 03 5F B6 50 19 01 16 05
0D60: 19 DA 2D D6 B1 72 71 C4
0D68: 13 C1 2D D6 B1 72 03 5F
0D70: B6 50 19 01 0B 0A 19 C4
0D78: 2D D6 B1 72 71 C4 01 0A
0D80: 1E 19 62 C4 2D D6 B1 72
0D88: 01 0E 50 19 60 C2 16 B2
0D90: 02 00 24 B7 6C 1B 01 09
0D98: AA 19 C2 71 B2 02 00 01
0DA0: 07 04 1A CD 71 C4 01 14
0DA8: 18 1A D6 B1 71 38 B1 0A
0DB0: 00 14 D0 12 C6 72 13 B1
0DB8: 0A 00 01 0E 5E 1A 60 D1
0DC0: 16 B3 03 00 24 B6 42 18
0DC8: 01 0E B8 1A 60 C2 16 B1
0DD0: 01 00 24 B6 C2 1A 01 0E
0DD8: BA 1A 60 C2 16 B2 02 00
0DE0: 24 B6 C3 1A 01 0E BB 1A
0DE8: 60 C2 16 B3 03 00 24 B6
0DF0: C4 1A 01 19 C2 1A 5D A0
0DF8: C1 A8 D6 B1 A9 BD C4 AD
0E00: CD BA C7 CF D4 CF A0 B6
0E08: B9 B3 B0 01 19 C3 1A 5D
0E10: A0 DA A8 D6 B1 A9 BD C4
0E18: AD CD BA C7 CF D4 CF A0
0E20: B6 B9 B3 B0 01 0F C4 1A
0E28: 5D A0 C4 A8 D6 B1 A9 BD
0E30: C4 AD CD 01 0E 12 1B 60
0E38: D1 16 B0 00 00 24 B2 D8
0E40: 09 01 0E 6C 1B 5D A0 C4
0E48: A8 C6 AA D0 A9 BD D1 01
0E50: 16 71 1B C4 2D 38 B1 0A
0E58: 00 14 D0 12 C6 72 13 B1
0E60: 0A 00 72 71 D1 01 06 C6
0E68: 1B 59 D0 01 0B 20 1C C6
0E70: 71 C6 12 B1 01 00 01 0E
0E78: 7A 1C 60 C6 1C B1 0B 00
0E80: 24 B2 16 08 01 0D 7F 1C
0E88: 61 28 C6 D2 C1 CD C5 D3
0E90: 29 01 0E D4 1C 55 C9 56
0E98: B1 01 00 57 B1 0A 00 01
0EA0: 10 2E 1D 50 38 C9 14 B3
0EA8: 03 00 72 03 62 C9 47 01
0EB0: 06 88 1D 59 C9 01 05 E2
0EB8: 1D 63 01 25 E7 1D 61 28
0EC0: AD AD AD AD AD AD AD AD
0EC8: AD AD AD AD AD AD AD AD
0ED0: AD AD AD AD AD AD AD AD
0ED8: AD AD AD AD AD AD 29 01
0EE0: 0C 3C 1E 55 D0 56 B1 01
0EE8: 00 57 D2 01 0E 96 1E 55
0EF0: C9 56 B1 01 00 57 B3 03
0EF8: 00 01 0E F0 1E 55 CA 56
0F00: B1 01 00 57 B1 0A 00 01
0F08: 14 F5 1E D6 B1 71 38 B1
0F10: 0A 00 14 D0 12 CA 72 13
0F18: B1 0A 00 01 0E FA 1E 60
0F20: C9 16 B1 01 00 24 B7 0E
0F28: 1F 01 0E FC 1E 60 C9 16
0F30: B2 02 00 24 B7 18 1F 01
0F38: 05 FD 1E 5D 01 17 FF 1E
0F40: 50 38 CA 14 B3 03 00 72
0F48: 03 61 28 A0 29 47 03 5F
0F50: B8 A4 1F 01 19 04 1F 50
0F58: 38 CA 14 B3 03 00 72 03
0F60: 62 C4 2D D6 B1 72 47 03
0F68: 5F B8 A4 1F 01 19 0E 1F
0F70: 50 38 CA 14 B3 03 00 72
0F78: 03 62 C1 2D D6 B1 72 47
0F80: 03 5F B8 A4 1F 01 14 18
0F88: 1F 50 38 CA 14 B3 03 00
0F90: 72 03 62 DA 2D D6 B1 72
0F98: 47 01 0C A4 1F 61 28 A0
0FA0: 29 47 03 59 CA 01 05 A9
0FA8: 1F 63 01 06 FE 1F 59 C9
0FB0: 01 05 58 20 63 01 06 B2
0FB8: 20 59 D0 01 20 0C 21 61
0FC0: 28 C4 CF A0 D9 CF D5 A0
0FC8: D7 C1 CE D4 A0 C1 CE CF
0FD0: D4 C8 C5 D2 A0 C7 C1 CD
0FD8: C5 29 47 01 07 66 21 52
0FE0: C1 40 01 18 C0 21 60 C1
0FE8: 40 39 28 D9 29 1E C1 40
0FF0: 39 28 D9 C5 D3 29 24 B2
0FF8: 32 0A 01 05 1A 22 51 01
E2B3R
RUN

442
code/programs/BUZZWORD.TXT Normal file
View File

@ -0,0 +1,442 @@
004A: 00 03 00 10 91 58
0050: 05 BF FD BF BF BF F8 F8
0058: BF B7 7F BF BF B7 FF 21
0060: F7 BF 3F 3F 3F BF 77 10
0068: 60 3C 00 01 F1 00 01 03
0070: ED ED ED ED ED EC ED ED
0078: FF F7 B7 F7 FF B7 FF 35
0080: 17 00 F7 F7 BD FD DF F7
0088: B7 B7 F7 F7 00 00 01 00
0090: 00 00 D9 04 0F 01 3C 00
0098: 82 59 5E 9C 13 7C F3 FF
00A0: 03 00 F7 75 35 04 00 00
00A8: 96 1B 00 01 CD F7 4D 0E
00B0: 6C DF 05 00 7E 9C B7 00
00B8: F6 F7 FF 0C FF 00 FF A0
00C0: 09 04 04 09 03 FF FF FF
00C8: 0A 0C DD 07 18 03 03 A0
00D0: 06 03 18 03 00 00 01 00
00D8: 20 1F 89 0F C7 0F 00 06
00E0: 10 02 00 10 7B 0F 80 0F
00E8: 15 11 0C 0C 0F 0B 0A 0A
00F0: 0A 10 FD 5F E8 75 F7 25
00F8: 00 00 00 00 00 20 00 ED
0300: 9C 00 06 03 03 00 9A 00
0308: 0C 03 3F 00 A0 00 12 03
0310: 03 00 9E 00 18 03 00 00
0318: 00 00 01 00 01 00 01 00
0320: 01 00 82 00 EE 03 07 00
0328: 07 00 08 00 07 00 0A 00
0330: 07 00 09 00 08 00 07 00
0338: 09 00 00 00 00 00 00 00
0340: 00 00 00 00 00 00 00 00
0348: 00 00 00 00 00 00 00 00
0350: 00 00 00 00 00 00 00 00
0358: 00 00 00 00 00 00 00 00
0360: 00 00 00 00 00 00 00 00
0368: 00 00 00 00 00 00 00 00
0370: 00 00 00 00 00 00 00 00
0378: 00 00 00 00 00 00 00 00
0380: 00 00 00 00 00 00 00 00
0388: 00 00 00 00 00 00 00 00
0390: 00 00 00 00 00 00 00 00
0398: 00 00 00 00 00 00 00 00
03A0: 00 00 00 00 00 00 00 00
03A8: 00 00 00 00 00 00 00 00
03B0: 00 00 00 00 00 00 00 00
03B8: 00 00 00 00 00 00 00 00
03C0: 00 00 00 00 00 00 00 00
03C8: 00 00 00 00 00 00 00 00
03D0: 00 00 00 00 00 00 00 00
03D8: 00 00 00 00 00 00 00 00
03E0: 00 00 00 00 00 00 00 00
03E8: 00 00 00 00 00 00 B4 00
03F0: BA 04 0A 00 09 00 0A 00
03F8: 09 00 0A 00 08 00 0A 00
0400: 0A 00 0A 00 09 00 00 00
0408: 00 00 00 00 00 00 00 00
0410: 00 00 00 00 00 00 00 00
0418: 00 00 00 00 00 00 00 00
0420: 00 00 00 00 00 00 00 00
0428: 00 00 00 00 00 00 00 00
0430: 00 00 00 00 00 00 00 00
0438: 00 00 00 00 00 00 00 00
0440: 00 00 00 00 00 00 00 00
0448: 00 00 00 00 00 00 00 00
0450: 00 00 00 00 00 00 00 00
0458: 00 00 00 00 00 00 00 00
0460: 00 00 00 00 00 00 00 00
0468: 00 00 00 00 00 00 00 00
0470: 00 00 00 00 00 00 00 00
0478: 00 00 00 00 00 00 00 00
0480: 00 00 00 00 00 00 00 00
0488: 00 00 00 00 00 00 00 00
0490: 00 00 00 00 00 00 00 00
0498: 00 00 00 00 00 00 00 00
04A0: 00 00 00 00 00 00 00 00
04A8: 00 00 00 00 00 00 00 00
04B0: 00 00 00 00 00 00 00 00
04B8: 00 00 88 00 86 05 09 00
04C0: 01 00 02 00 01 00 03 00
04C8: 01 00 02 00 02 00 02 00
04D0: 01 00 00 00 00 00 00 00
04D8: 00 00 00 00 00 00 00 00
04E0: 00 00 00 00 00 00 00 00
04E8: 00 00 00 00 00 00 00 00
04F0: 00 00 00 00 00 00 00 00
04F8: 00 00 00 00 00 00 00 00
0500: 00 00 00 00 00 00 00 00
0508: 00 00 00 00 00 00 00 00
0510: 00 00 00 00 00 00 00 00
0518: 00 00 00 00 00 00 00 00
0520: 00 00 00 00 00 00 00 00
0528: 00 00 00 00 00 00 00 00
0530: 00 00 00 00 00 00 00 00
0538: 00 00 00 00 00 00 00 00
0540: 00 00 00 00 00 00 00 00
0548: 00 00 00 00 00 00 00 00
0550: 00 00 00 00 00 00 00 00
0558: 00 00 00 00 00 00 00 00
0560: 00 00 00 00 00 00 00 00
0568: 00 00 00 00 00 00 00 00
0570: 00 00 00 00 00 00 00 00
0578: 00 00 00 00 00 00 00 00
0580: 00 00 00 00 00 00 9C 40
0588: B3 05 D2 1E 1E CC 1E 45
0590: 4E 43 4C 4F 53 C5 29 05
0598: 9A 05 A9 02 20 04 04 8A
05A0: 38 E9 08 AA 94 03 94 01
05A8: 88 C8 B1 A8 C5 A6 F0 F9
05B0: 94 04 B1 B4 40 B9 05 D9
05B8: 1E A4 00 BF 05 01 00 92
05C0: 00 C5 05 04 00 8C 00 CB
05C8: 05 0B 00 A0 00 D1 05 02
05D0: 00 9A 00 D7 05 09 00 84
05D8: 00 DD 05 02 00 A2 00 E3
05E0: 05 01 00 96 00 E9 05 0A
05E8: 00 B0 00 EF 05 0D 00 94
05F0: 00 F5 05 0B 00 82 40 FB
05F8: 05 CE 1E C5 EF 05 00 06
0600: A9 03 20 04 04 C4 A6 D0
0608: 07 C6 A7 10 03 4C 44 03
0610: B1 AA 91 A8 C8 D0 EE E6
0618: AB E6 A9 4C 05 06 82 55
0620: AA F6 05 25 06 B5 02 85
0628: A6 94 02 B5 03 85 A7 94
0630: 03 A0 10 16 02 36 03 36
0638: 00 36 01 90 13 18 A5 A6
0640: 75 02 95 02 A5 A7 75 03
0648: 95 03 A9 00 75 00 95 00
0650: 88 D0 E0 4C 44 03 82 55
0658: AF 1E 06 5D 06 B5 04 B4
0660: 02 94 04 0A 95 02 B5 05
0668: B4 03 94 05 2A 95 03 A9
0670: 10 85 A6 36 04 36 05 38
0678: B5 04 F5 00 A8 B5 05 F5
0680: 01 90 04 94 04 95 05 36
0688: 02 36 03 C6 A6 D0 E4 4C
0690: EE 04 83 41 4E C4 56 06
0698: 9A 06 B5 00 35 02 48 B5
06A0: 01 35 03 E8 E8 4C 3F 03
06A8: 82 4F D2 92 06 AF 06 B5
06B0: 00 15 02 48 B5 01 15 03
06B8: E8 E8 4C 3F 03 83 58 4F
06C0: D2 A8 06 C5 06 B5 00 55
06C8: 02 48 B5 01 55 03 E8 E8
06D0: 4C 3F 03 83 53 50 C0 BD
06D8: 06 DB 06 8A 48 A9 00 4C
06E0: 3D 03 83 53 50 A1 D3 06
06E8: EA 06 A0 06 B1 B3 AA 4C
06F0: 44 03 83 52 50 A1 E2 06
06F8: FA 06 86 B5 A0 08 B1 B3
0700: AA 9A A6 B5 4C 44 03 82
0708: 3B D3 F2 06 0E 07 68 85
0710: AE 68 85 AF 4C 44 03 85
0718: 4C 45 41 56 C5 07 07 21
0720: 07 86 B5 BA BD 01 01 9D
0728: 03 01 BD 02 01 9D 04 01
0730: A6 B5 4C 44 03 82 3E D2
0738: 17 07 3C 07 B5 01 48 B5
0740: 00 48 E8 E8 4C 44 03 82
0748: 52 BE 35 07 4E 07 CA CA
0750: 68 95 00 68 95 01 4C 44
0758: 03 81 D2 47 07 5F 07 86
0760: B5 BA BD 01 01 48 BD 02
0768: 01 A6 B5 4C 3D 03 82 30
0770: BD 59 07 75 07 B5 01 94
0778: 01 15 00 D0 01 C8 94 00
0780: 4C 44 03 82 30 BC 6E 07
0788: 8A 07 16 01 98 2A 94 01
0790: 95 00 4C 44 03 81 AB 83
0798: 07 9B 07 18 B5 00 75 02
07A0: 95 02 B5 01 75 03 95 03
07A8: E8 E8 4C 44 03 82 44 AB
07B0: 95 07 B4 07 18 B5 02 75
07B8: 06 95 06 B5 03 75 07 95
07C0: 07 B5 00 75 04 95 04 B5
07C8: 01 75 05 95 05 4C EC 04
07D0: 85 4D 49 4E 55 D3 AD 07
07D8: DA 07 38 98 F5 33 64 00
07E0: 61 28 D4 C8 C9 D3 A0 C3
07E8: CF CD D0 D5 D4 C5 D2 A0
07F0: C4 C5 CD CF CE D3 D4 D2
07F8: C1 D4 C9 CF CE A0 C9 D3
0800: A0 C1 A0 CE C5 D7 A0 C1
0808: C9 C4 A0 C6 CF D2 29 01
0810: 39 6E 00 61 28 D0 D2 C5
0818: D0 C1 D2 C9 CE C7 A0 D3
0820: D0 C5 C5 C3 C8 C5 D3 A0
0828: C1 CE C4 A0 C2 D2 C9 C5
0830: C6 C9 CE C7 D3 AE A0 A0
0838: C9 D4 A7 D3 A0 C1 A0 C2
0840: D5 DA DA D7 CF D2 C4 29
0848: 01 3A 78 00 61 28 C7 C5
0850: CE C5 D2 C1 D4 CF D2 A0
0858: D7 C8 C9 C3 C8 A0 D0 D2
0860: CF D6 C9 C4 C5 D3 A0 D9
0868: CF D5 A0 D7 C9 D4 C8 A0
0870: C1 A0 D3 C5 D4 A0 CF C6
0878: A0 B3 A0 C8 C9 C7 C8 CC
0880: D9 29 01 3E 82 00 61 28
0888: C1 C3 C3 C5 D0 D4 C1 C2
0890: CC C5 A0 D7 CF D2 C4 D3
0898: A0 D4 CF A0 D7 CF D2 CB
08A0: A0 C9 CE D4 CF A0 D9 CF
08A8: D5 D2 A0 CD C1 D4 C5 D2
08B0: C9 C1 CC AE A0 A0 D4 C8
08B8: C5 A0 D7 CF D2 C4 D3 29
08C0: 01 3A 8C 00 61 28 C4 CF
08C8: CE A7 D4 A0 C1 C3 D4 D5
08D0: C1 CC CC D9 A0 CD C5 C1
08D8: CE A0 C1 CE D9 D4 C8 C9
08E0: CE C7 AC A0 C2 D5 D4 A0
08E8: D4 C8 C5 D9 A0 D3 CF D5
08F0: CE C4 A0 C7 D2 C5 C1 D4
08F8: AE 29 01 05 96 00 63 01
0900: 15 A0 00 61 28 D4 C8 C5
0908: A0 D0 D2 CF C3 C5 C4 D5
0910: D2 C5 BA 29 01 3E AA 00
0918: 61 28 A0 A0 A0 A0 A0 D4
0920: C8 C9 CE CB A0 CF C6 A0
0928: C1 CE D9 A0 D4 C8 D2 C5
0930: C5 A0 CE D5 CD C2 C5 D2
0938: D3 A0 C2 C5 D4 D7 C5 C5
0940: CE A0 B0 A0 C1 CE C4 A0
0948: B9 AE A0 A0 C5 CE D4 C5
0950: D2 29 01 3A B4 00 61 28
0958: A0 A0 A0 A0 A0 D4 C8 C5
0960: CD A0 C1 C6 D4 C5 D2 A0
0968: D4 C8 C5 A0 A7 BF A7 A0
0970: D3 C5 D0 C1 D2 C1 D4 C5
0978: C4 A0 C2 D9 A0 C3 CF CD
0980: CD C1 D3 AE A0 A0 A0 D9
0988: CF D5 D2 29 01 3B BE 00
0990: 61 28 A0 A0 A0 A0 A0 C2
0998: D5 DA DA D7 CF D2 C4 A0
09A0: D7 C9 CC CC A0 C2 C5 A0
09A8: D0 D2 C9 CE D4 C5 C4 A0
09B0: CF D5 D4 AE A0 A0 D4 D9
09B8: D0 C9 CE C7 A0 A7 B1 B0
09C0: B0 A7 A0 C6 CF D2 29 01
09C8: 34 BF 00 61 28 A0 A0 A0
09D0: A0 A0 C5 C1 C3 C8 A0 CF
09D8: C6 A0 D9 CF D5 D2 A0 C3
09E0: C8 CF C9 C3 C5 D3 A0 D3
09E8: D4 CF D0 D3 A0 D4 C8 C9
09F0: D3 A0 D0 D2 CF C7 D2 C1
09F8: CD AE 29 01 23 D2 00 61
0A00: 28 D7 C8 C1 D4 A0 C1 D2
0A08: C5 A0 D9 CF D5 D2 A0 D4
0A10: C8 D2 C5 C5 A0 CE D5 CD
0A18: C2 C5 D2 D3 29 47 01 08
0A20: DC 00 5F B2 04 01 01 05
0A28: E6 00 63 01 05 F0 00 63
0A30: 01 1A FA 00 61 28 D4 C8
0A38: D2 C5 C5 A0 CD CF D2 C5
0A40: A0 CE D5 CD C2 C5 D2 D3
0A48: 29 47 01 06 04 01 54 CE
0A50: 01 06 06 01 54 CD 01 06
0A58: 08 01 54 D0 01 0E 09 01
0A60: 60 CE 16 B1 64 00 24 B1
0A68: 0A 05 01 0C 0E 01 60 CE
0A70: 1C CF 24 B1 D8 04 01 0E
0A78: 18 01 60 D0 1C B0 00 00
0A80: 24 B1 D8 04 01 0E 22 01
0A88: 60 CD 1C B0 00 00 24 B1
0A90: D8 04 01 0E 2C 01 60 CE
0A98: 19 B9 09 00 24 B1 D8 04
0AA0: 01 0E 36 01 60 D0 19 B9
0AA8: 09 00 24 B1 D8 04 01 0E
0AB0: 40 01 60 CD 19 B9 09 00
0AB8: 24 B1 D8 04 01 05 4A 01
0AC0: 63 01 0E 54 01 60 CE 16
0AC8: B0 00 00 24 B6 80 02 01
0AD0: 0E 5E 01 60 CE 16 B1 01
0AD8: 00 24 B6 94 02 01 0E 68
0AE0: 01 60 CE 16 B2 02 00 24
0AE8: B6 A8 02 01 0E 72 01 60
0AF0: CE 16 B3 03 00 24 B7 BC
0AF8: 02 01 0E 7C 01 60 CE 16
0B00: B4 04 00 24 B7 D0 02 01
0B08: 0E 86 01 60 CE 16 B5 05
0B10: 00 24 B7 E4 02 01 0E 90
0B18: 01 60 CE 16 B6 06 00 24
0B20: B7 F8 02 01 0E 9A 01 60
0B28: CE 16 B7 07 00 24 B7 0C
0B30: 03 01 0E A4 01 60 CE 16
0B38: B8 08 00 24 B8 20 03 01
0B40: 0E AE 01 60 CE 16 B9 09
0B48: 00 24 B8 34 03 01 0E B8
0B50: 01 60 CD 16 B0 00 00 24
0B58: B8 48 03 01 0E C2 01 60
0B60: CD 16 B1 01 00 24 B8 5C
0B68: 03 01 0E CC 01 60 CD 16
0B70: B2 02 00 24 B8 70 03 01
0B78: 0E D6 01 60 CD 16 B3 03
0B80: 00 24 B9 84 03 01 0E E0
0B88: 01 60 CD 16 B4 04 00 24
0B90: B9 98 03 01 0E EA 01 60
0B98: CD 16 B5 05 00 24 B9 AC
0BA0: 03 01 0E F4 01 60 CD 16
0BA8: B6 06 00 24 B9 C0 03 01
0BB0: 0E FE 01 60 CD 16 B7 07
0BB8: 00 24 B9 D4 03 01 0E 08
0BC0: 02 60 CD 16 B8 08 00 24
0BC8: B1 E8 03 01 0E 12 02 60
0BD0: CD 16 B9 09 00 24 B1 FC
0BD8: 03 01 0E 1C 02 60 D0 16
0BE0: B0 00 00 24 B1 10 04 01
0BE8: 0E 26 02 60 D0 16 B1 01
0BF0: 00 24 B1 24 04 01 0E 30
0BF8: 02 60 D0 16 B2 02 00 24
0C00: B1 38 04 01 0E 3A 02 60
0C08: D0 16 B3 03 00 24 B1 4C
0C10: 04 01 0E 44 02 60 D0 16
0C18: B4 04 00 24 B1 60 04 01
0C20: 0E 4E 02 60 D0 16 B5 05
0C28: 00 24 B1 74 04 01 0E 58
0C30: 02 60 D0 16 B6 06 00 24
0C38: B1 88 04 01 0E 62 02 60
0C40: D0 16 B7 07 00 24 B1 9C
0C48: 04 01 0E 6C 02 60 D0 16
0C50: B8 08 00 24 B1 B0 04 01
0C58: 0E 76 02 60 D0 16 B9 09
0C60: 00 24 B1 C4 04 01 13 80
0C68: 02 61 28 A0 C9 CE D4 C5
0C70: C7 D2 C1 D4 C5 C4 29 47
0C78: 01 08 8A 02 5F B4 B8 01
0C80: 01 0E 94 02 61 28 A0 D4
0C88: CF D4 C1 CC 29 47 01 08
0C90: 9E 02 5F B4 B8 01 01 14
0C98: A8 02 61 28 D3 D9 D3 D4
0CA0: C5 CD C1 D4 C9 DA C5 C4
0CA8: 29 47 01 08 B2 02 5F B4
0CB0: B8 01 01 11 BC 02 61 28
0CB8: A0 D0 C1 D2 C1 CC CC C5
0CC0: CC 29 47 01 08 C6 02 5F
0CC8: B4 B8 01 01 13 D0 02 61
0CD0: 28 A0 C6 D5 CE C3 D4 C9
0CD8: CF CE C1 CC 29 47 01 08
0CE0: DA 02 5F B4 B8 01 01 13
0CE8: E4 02 61 28 A0 D2 C5 D3
0CF0: D0 CF CE D3 C9 D6 C5 29
0CF8: 47 01 08 EE 02 5F B4 B8
0D00: 01 01 10 F8 02 61 28 A0
0D08: CF D0 D4 C9 CD C1 CC 29
0D10: 47 01 08 02 03 5F B4 B8
0D18: 01 01 15 0C 03 61 28 A0
0D20: D3 D9 CE C3 C8 D2 CF CE
0D28: C9 DA C5 C4 29 47 01 08
0D30: 16 03 5F B4 B8 01 01 13
0D38: 20 03 61 28 A0 C3 CF CD
0D40: D0 C1 D4 C9 C2 CC C5 29
0D48: 47 01 08 2A 03 5F B4 B8
0D50: 01 01 11 34 03 61 28 A0
0D58: C2 C1 CC C1 CE C3 C5 C4
0D60: 29 47 01 08 3E 03 5F B4
0D68: B8 01 01 13 48 03 61 28
0D70: A0 CD C1 CE C1 C7 C5 CD
0D78: C5 CE D4 29 47 01 08 52
0D80: 03 5F B5 1C 02 01 17 5C
0D88: 03 61 28 A0 CF D2 C7 C1
0D90: CE C9 DA C1 D4 C9 CF CE
0D98: C1 CC 29 47 01 08 66 03
0DA0: 5F B5 1C 02 01 12 70 03
0DA8: 61 28 A0 CD CF CE C9 D4
0DB0: CF D2 C5 C4 29 47 01 08
0DB8: 7A 03 5F B5 1C 02 01 13
0DC0: 84 03 61 28 A0 D2 C5 C3
0DC8: C9 D0 D2 CF C3 C1 CC 29
0DD0: 47 01 08 8E 03 5F B5 1C
0DD8: 02 01 10 98 03 61 28 A0
0DE0: C4 C9 C7 C9 D4 C1 CC 29
0DE8: 47 01 08 A2 03 5F B5 1C
0DF0: 02 01 13 AC 03 61 28 A0
0DF8: CC CF C7 C9 D3 D4 C9 C3
0E00: C1 CC 29 47 01 08 B6 03
0E08: 5F B5 1C 02 01 15 C0 03
0E10: 61 28 A0 D4 D2 C1 CE D3
0E18: C9 D4 C9 CF CE C1 CC 29
0E20: 47 01 08 CA 03 5F B5 1C
0E28: 02 01 14 D4 03 61 28 A0
0E30: C9 CE C3 D2 C5 CD C5 CE
0E38: D4 C1 CC 29 47 01 08 DE
0E40: 03 5F B5 1C 02 01 19 E8
0E48: 03 61 28 A0 D4 C8 C9 D2
0E50: C4 AD C7 C5 CE C5 D2 C1
0E58: D4 C9 CF CE 29 47 01 08
0E60: F2 03 5F B5 1C 02 01 0F
0E68: FC 03 61 28 A0 D0 CF CC
0E70: C9 C3 D9 29 47 01 08 06
0E78: 04 5F B5 1C 02 01 0F 10
0E80: 04 61 28 A0 CF D0 D4 C9
0E88: CF CE D3 29 01 08 1A 04
0E90: 5F B2 E6 00 01 13 24 04
0E98: 61 28 A0 C6 CC C5 D8 C9
0EA0: C2 C9 CC C9 D4 D9 29 01
0EA8: 08 2E 04 5F B2 E6 00 01
0EB0: 12 38 04 61 28 A0 C3 C1
0EB8: D0 C1 C2 C9 CC C9 D4 D9
0EC0: 29 01 08 42 04 5F B2 E6
0EC8: 00 01 10 4C 04 61 28 A0
0ED0: CD CF C2 C9 CC C9 D4 D9
0ED8: 29 01 08 56 04 5F B2 E6
0EE0: 00 01 13 60 04 61 28 A0
0EE8: D0 D2 CF C7 D2 C1 CD CD
0EF0: C9 CE C7 29 01 08 6A 04
0EF8: 5F B2 E6 00 01 0F 74 04
0F00: 61 28 A0 C3 CF CE C3 C5
0F08: D0 D4 29 01 08 7E 04 5F
0F10: B2 E6 00 01 12 88 04 61
0F18: 28 A0 D4 C9 CD C5 AD D0
0F20: C8 C1 D3 C5 29 01 08 92
0F28: 04 5F B2 E6 00 01 12 9C
0F30: 04 61 28 A0 D0 D2 CF CA
0F38: C5 C3 D4 C9 CF CE 29 01
0F40: 08 A6 04 5F B2 E6 00 01
0F48: 10 B0 04 61 28 A0 C8 C1
0F50: D2 C4 D7 C1 D2 C5 29 01
0F58: 08 BA 04 5F B2 E6 00 01
0F60: 13 C4 04 61 28 A0 C3 CF
0F68: CE D4 C9 CE C7 C5 CE C3
0F70: D9 29 01 08 CE 04 5F B2
0F78: E6 00 01 05 D8 04 63 01
0F80: 05 E2 04 63 01 42 EC 04
0F88: 61 28 CE D5 CD C2 C5 D2
0F90: D3 A0 CD D5 D3 D4 A0 C2
0F98: C5 A0 C2 C5 D4 D7 C5 C5
0FA0: CE A0 B0 A0 C1 CE C4 A0
0FA8: B9 AE A0 A0 D0 CC C5 C1
0FB0: D3 C5 A0 D3 C5 CC C5 C3
0FB8: D4 A0 D4 C8 D2 C5 C5 A0
0FC0: CD CF D2 C5 AE 29 01 08
0FC8: F6 04 5F B2 04 01 01 08
0FD0: 00 05 5F B2 04 01 01 1B
0FD8: 0A 05 61 28 C7 CF CF C4
0FE0: C2 D9 C5 A0 C6 CF D2 A0
0FE8: CE CF D7 A1 A0 A0 A0 A0
0FF0: 29 01 09 14 05 63 03 63
0FF8: 03 63 01 05 28 05 51 01
E2B3R
RUN

442
code/programs/CRAPS.TXT Normal file
View File

@ -0,0 +1,442 @@
004A: 00 03 00 10 55 B1
0050: 05 BF FD BF BF BF F8 F8
0058: BF B7 7F BF BF B7 FF 21
0060: F7 BF 3F 3F 3F BF 77 10
0068: 60 3C 00 C7 36 46 01 03
0070: ED ED ED ED ED EC ED ED
0078: FF F7 B7 F7 FF B7 FF 35
0080: 17 00 F7 F7 BD FD DF F7
0088: B7 B7 F7 F7 00 00 01 00
0090: 00 00 D9 00 00 03 2D 00
0098: 82 59 5E 9C 13 7C F3 FF
00A0: 03 00 F7 75 35 04 00 00
00A8: 96 1B 00 01 CD F7 4D 0E
00B0: 6C DF 05 00 7E 9C B7 00
00B8: F6 F7 FF 02 01 00 00 A0
00C0: 09 04 04 09 03 FF FF FF
00C8: 0A 0C F8 07 48 03 03 A0
00D0: 24 03 48 03 00 00 01 00
00D8: 20 7F CC 0F FB 0F 00 06
00E0: 10 02 00 10 96 0F C8 0F
00E8: 1D 11 0C 0C 0F 0B 0A 0A
00F0: 0A 10 FD 5F E8 75 F7 25
00F8: 00 00 00 00 00 20 00 ED
0300: 9C 00 06 03 C6 02 92 00
0308: 0C 03 C7 02 B0 00 12 03
0310: 53 01 B4 00 18 03 46 0F
0318: AE 00 1E 03 01 00 A2 00
0320: 24 03 00 00 84 00 2A 03
0328: 00 00 88 B1 30 03 01 00
0330: 88 B2 36 03 05 00 A6 00
0338: 3C 03 06 00 A0 00 42 03
0340: 06 00 86 00 48 03 01 00
0348: 00 00 00 00 00 00 00 00
0350: 00 00 00 00 00 00 00 00
0358: 00 00 00 00 00 00 00 00
0360: 00 00 00 00 00 00 00 00
0368: 00 00 00 00 00 00 00 00
0370: 00 00 00 00 00 00 00 00
0378: 00 00 00 00 00 00 00 00
0380: 00 00 00 00 00 00 00 00
0388: 00 00 00 00 00 00 00 00
0390: 00 00 00 00 00 00 00 00
0398: 00 00 00 00 00 00 00 00
03A0: 00 00 00 00 00 00 00 00
03A8: 00 00 00 00 00 00 00 00
03B0: 00 00 00 00 00 00 00 00
03B8: 00 00 00 00 00 00 00 00
03C0: 00 00 00 00 00 00 00 00
03C8: 00 00 00 00 00 00 00 00
03D0: 00 00 00 00 00 00 00 00
03D8: 00 00 00 00 00 00 00 00
03E0: 00 00 00 00 00 00 00 00
03E8: 00 00 00 00 00 00 B4 00
03F0: BA 04 0A 00 09 00 0A 00
03F8: 09 00 0A 00 08 00 0A 00
0400: 0A 00 0A 00 09 00 00 00
0408: 00 00 00 00 00 00 00 00
0410: 00 00 00 00 00 00 00 00
0418: 00 00 00 00 00 00 00 00
0420: 00 00 00 00 00 00 00 00
0428: 00 00 00 00 00 00 00 00
0430: 00 00 00 00 00 00 00 00
0438: 00 00 00 00 00 00 00 00
0440: 00 00 00 00 00 00 00 00
0448: 00 00 00 00 00 00 00 00
0450: 00 00 00 00 00 00 00 00
0458: 00 00 00 00 00 00 00 00
0460: 00 00 00 00 00 00 00 00
0468: 00 00 00 00 00 00 00 00
0470: 00 00 00 00 00 00 00 00
0478: 00 00 00 00 00 00 00 00
0480: 00 00 00 00 00 00 00 00
0488: 00 00 00 00 00 00 00 00
0490: 00 00 00 00 00 00 00 00
0498: 00 00 00 00 00 00 00 00
04A0: 00 00 00 00 00 00 00 00
04A8: 00 00 00 00 00 00 00 00
04B0: 00 00 00 00 00 00 00 00
04B8: 00 00 88 00 86 05 09 00
04C0: 01 00 02 00 01 00 03 00
04C8: 01 00 02 00 02 00 02 00
04D0: 01 00 00 00 00 00 00 00
04D8: 00 00 00 00 00 00 00 00
04E0: 00 00 00 00 00 00 00 00
04E8: 00 00 00 00 00 00 00 00
04F0: 00 00 00 00 00 00 00 00
04F8: 00 00 00 00 00 00 00 00
0500: 00 00 00 00 00 00 00 00
0508: 00 00 00 00 00 00 00 00
0510: 00 00 00 00 00 00 00 00
0518: 00 00 00 00 00 00 00 00
0520: 00 00 00 00 00 00 00 00
0528: 00 00 00 00 00 00 00 00
0530: 00 00 00 00 00 00 00 00
0538: 00 00 00 00 00 00 00 00
0540: 00 00 00 00 00 00 00 00
0548: 00 00 00 00 00 00 00 00
0550: 00 00 00 00 00 00 00 00
0558: 00 00 00 00 00 00 00 00
0560: 00 00 00 00 00 00 00 00
0568: 00 00 00 00 00 00 00 00
0570: 00 00 00 00 00 00 00 00
0578: 00 00 00 00 00 00 00 00
0580: 00 00 00 00 00 00 9C 40
0588: B3 05 D2 1E 1E CC 1E 45
0590: 4E 43 4C 4F 53 C5 29 05
0598: 9A 05 A9 02 20 04 04 8A
05A0: 38 E9 08 AA 94 03 94 01
05A8: 88 C8 B1 A8 C5 A6 F0 F9
05B0: 94 04 B1 B4 40 B9 05 D9
05B8: 1E A4 00 BF 05 01 00 92
05C0: 00 C5 05 04 00 8C 00 CB
05C8: 05 0B 00 A0 00 D1 05 02
05D0: 00 9A 00 D7 05 09 00 84
05D8: 00 DD 05 02 00 A2 00 E3
05E0: 05 01 00 96 00 E9 05 0A
05E8: 00 B0 00 EF 05 0D 00 94
05F0: 00 F5 05 0B 00 82 40 FB
05F8: 05 CE 1E C5 EF 05 00 06
0600: A9 03 20 04 04 C4 A6 D0
0608: 07 C6 A7 10 03 4C 44 03
0610: B1 AA 91 A8 C8 D0 EE E6
0618: AB E6 A9 4C 05 06 82 55
0620: AA F6 05 25 06 B5 02 85
0628: A6 94 02 B5 03 85 A7 94
0630: 03 A0 10 16 02 36 03 36
0638: 00 36 01 90 13 18 A5 A6
0640: 75 02 95 02 A5 A7 75 03
0648: 95 03 A9 00 75 00 95 00
0650: 88 D0 E0 4C 44 03 82 55
0658: AF 1E 06 5D 06 B5 04 B4
0660: 02 94 04 0A 95 02 B5 05
0668: B4 03 94 05 2A 95 03 A9
0670: 10 85 A6 36 04 36 05 38
0678: B5 04 F5 00 A8 B5 05 F5
0680: 01 90 04 94 04 95 05 36
0688: 02 36 03 C6 A6 D0 E4 4C
0690: EE 04 83 41 4E C4 56 06
0698: 9A 06 B5 00 35 02 48 B5
06A0: 01 35 03 E8 E8 4C 3F 03
06A8: 82 4F D2 92 06 AF 06 B5
06B0: 00 15 02 48 B5 01 15 03
06B8: E8 E8 4C 3F 03 83 58 4F
06C0: D2 A8 06 C5 06 B5 00 55
06C8: 02 48 B5 01 55 03 E8 E8
06D0: 4C 3F 03 83 53 50 C0 BD
06D8: 06 DB 06 8A 48 A9 00 4C
06E0: 3D 03 83 53 50 A1 D3 06
06E8: EA 06 A0 06 B1 B3 AA 4C
06F0: 44 03 83 52 50 A1 E2 06
06F8: FA 06 86 B5 A0 08 B1 B3
0700: AA 9A A6 B5 4C 44 03 82
0708: 3B D3 F2 06 0E 07 68 85
0710: AE 68 85 AF 4C 44 03 85
0718: 4C 45 41 56 C5 07 07 21
0720: 07 86 B5 BA BD 01 01 9D
0728: 03 01 BD 02 01 9D 04 01
0730: A6 B5 4C 44 03 82 3E D2
0738: 17 07 3C 07 B5 01 48 B5
0740: 00 48 E8 E8 4C 44 03 82
0748: 52 BE 35 07 4E 07 CA CA
0750: 68 95 00 68 95 01 4C 44
0758: 03 81 D2 47 07 5F 07 86
0760: B5 BA BD 01 01 48 BD 02
0768: 01 A6 B5 4C 3D 03 82 30
0770: BD 59 07 75 07 B5 01 94
0778: 01 15 00 D0 01 C8 94 00
0780: 4C 44 03 82 30 BC 6E 07
0788: 8A 07 16 01 98 2A 94 01
0790: 95 00 4C 44 03 81 AB 83
0798: 07 9B 07 18 B5 00 75 02
07A0: 95 02 B5 01 75 03 95 03
07A8: E8 E8 4C 44 03 82 44 AB
07B0: 95 07 B4 07 18 B5 02 75
07B8: 06 95 06 B5 03 75 07 95
07C0: 07 B5 00 75 04 95 04 B5
07C8: 01 75 05 95 05 4C EC 04
07D0: 85 4D 49 4E 55 D3 AD 07
07D8: DA 07 38 98 F5 33 64 00
07E0: 61 28 D4 C8 C9 D3 A0 C3
07E8: CF CD D0 D5 D4 C5 D2 A0
07F0: C4 C5 CD CF CE D3 D4 D2
07F8: 10 0A 00 61 28 C3 D2 C1
0800: D0 A0 C7 C1 CD C5 29 01
0808: 40 14 00 61 28 D7 C9 D4
0810: C8 A0 D4 C8 C5 A0 C3 CF
0818: CD D0 D5 D4 C5 D2 A0 C1
0820: D3 A0 D9 CF D5 D2 A0 CF
0828: D0 D0 CF CE C5 CE D4 AE
0830: A0 D4 C8 C5 A0 D2 D5 CC
0838: C5 D3 A0 C1 D2 C5 A0 D3
0840: C9 CD D0 CC C5 BA 29 01
0848: 2B 1E 00 61 28 A0 A0 A0
0850: AA C1 A0 B7 A0 CF D2 A0
0858: B1 B1 A0 CF CE A0 D4 C8
0860: C5 A0 C6 C9 D2 D3 D4 A0
0868: D2 CF CC CC A0 D7 C9 CE
0870: D3 29 01 30 28 00 61 28
0878: A0 A0 A0 AA C1 A0 B2 AC
0880: A0 B3 AC A0 CF D2 A0 B1
0888: B2 A0 CF CE A0 D4 C8 C5
0890: A0 C6 C9 D2 D3 D4 A0 D2
0898: CF CC CC A0 CC CF D3 C5
08A0: D3 29 01 05 32 00 63 01
08A8: 42 3C 00 61 28 C1 CE D9
08B0: A0 CF D4 C8 C5 D2 A0 CE
08B8: D5 CD C2 C5 D2 A0 D2 CF
08C0: CC CC C5 C4 A0 C2 C5 C3
08C8: CF CD C5 D3 A0 D9 CF D5
08D0: D2 A0 A7 D0 CF C9 CE D4
08D8: A7 A0 AE A0 D9 CF D5 A0
08E0: C3 CF CE D4 C9 CE D5 C5
08E8: 29 01 41 46 00 61 28 D4
08F0: CF A0 D2 CF CC CC AE AE
08F8: AE C9 C6 A0 D9 CF D5 A0
0900: C7 C5 D4 A0 D9 CF D5 D2
0908: A0 D0 CF C9 CE D4 AC A0
0910: D9 CF D5 A0 D7 C9 CE AE
0918: A0 C9 C6 A0 D9 CF D5 A0
0920: D2 CF CC CC A0 C1 A0 B7
0928: AC 29 01 39 50 00 61 28
0930: D9 CF D5 A0 CC CF D3 C5
0938: AE A0 D4 C8 C5 A0 C4 C9
0940: C3 C5 A0 C3 C8 C1 CE C7
0948: C5 A0 C8 C1 CE C4 D3 A0
0950: D7 C8 C5 CE A0 D4 C8 C9
0958: D3 A0 C8 C1 D0 D0 C5 CE
0960: D3 AE 29 01 3C 6E 00 61
0968: 28 D7 C8 C1 D4 A0 CE D5
0970: CD C2 C5 D2 A0 C2 C5 D4
0978: D7 C5 C5 CE A0 B1 A0 C1
0980: CE C4 A0 B7 B1 B1 A0 C9
0988: D3 A0 CC D5 C3 CB D9 A0
0990: C6 CF D2 A0 D9 CF D5 A0
0998: D4 CF C4 C1 D9 29 47 01
09A0: 06 78 00 54 CE 01 0C 82
09A8: 00 55 C9 56 B1 01 00 57
09B0: CE 01 0B 8C 00 5E D8 71
09B8: 2F 3F C9 72 01 06 96 00
09C0: 59 C9 01 17 A0 00 5E DA
09C8: 71 B5 05 00 14 B1 0A 00
09D0: 12 B1 0B 00 14 2F 3F C9
09D8: 72 01 3D AA 00 61 28 D3
09E0: D0 CC C5 CE C4 C9 C4 AE
09E8: AE AE AE AE D9 CF D5 A0
09F0: C1 D2 C5 A0 C7 C9 D6 C5
09F8: CE A0 29 46 DA 45 28 A0
0A00: C4 CF CC CC C1 D2 D3 A0
0A08: D4 CF A0 D0 CC C1 D9 A0
0A10: D7 C9 D4 C8 AE 29 01 05
0A18: B4 00 63 01 05 BE 00 63
0A20: 01 41 C8 00 5D A0 C9 C6
0A28: A0 CE A0 C9 D3 A0 C5 D6
0A30: C5 CE A0 A7 D9 CF D5 A7
0A38: A0 D2 CF CC CC A0 C6 C9
0A40: D2 D3 D4 AC A0 C9 C6 A0
0A48: CE A0 C9 D3 A0 CF C4 C4
0A50: A0 A7 C9 A7 A0 D2 CF CC
0A58: CC A0 C6 C9 D2 D3 D4 AE
0A60: A0 01 18 D2 00 60 CE 13
0A68: B2 02 00 14 CE 15 B2 02
0A70: 00 16 B0 00 00 24 B2 0E
0A78: 01 01 0B DC 00 5E D7 71
0A80: 36 B1 01 00 01 1B E6 00
0A88: 61 28 C9 A7 CC CC A0 D2
0A90: CF CC CC A0 C6 C9 D2 D3
0A98: D4 AE AE AE AE AE 29 01
0AA0: 05 F0 00 63 01 05 FA 00
0AA8: 63 01 08 04 01 5F B3 36
0AB0: 01 01 0A 0E 01 5E D7 71
0AB8: B1 01 00 01 1A 18 01 61
0AC0: 28 D9 CF D5 A0 D2 CF CC
0AC8: CC A0 C6 C9 D2 D3 D4 AE
0AD0: AE AE AE AE 29 01 05 22
0AD8: 01 63 01 05 2C 01 63 01
0AE0: 0A 36 01 5E D1 71 B0 00
0AE8: 00 01 21 40 01 61 28 C8
0AF0: CF D7 A0 CD D5 C3 C8 A0
0AF8: C4 CF A0 D9 CF D5 A0 C2
0B00: C5 D4 A0 A8 A4 A4 A9 A0
0B08: 29 47 01 06 4A 01 54 C2
0B10: 01 0E 54 01 61 28 CF CB
0B18: AE AE AE AE AE 29 01 05
0B20: 5E 01 63 01 0E 90 01 60
0B28: C2 16 B0 00 00 24 B1 38
0B30: 04 01 10 9A 01 60 C2 1C
0B38: DA 12 B1 01 00 24 B4 B8
0B40: 01 01 34 A4 01 61 28 C4
0B48: CF CE A7 D4 A0 D4 D2 D9
0B50: A0 D4 CF A0 C2 C5 D4 A0
0B58: CD CF D2 C5 A0 D4 C8 C1
0B60: CE A0 D9 CF D5 A0 C8 C1
0B68: D6 C5 AC A0 D0 CC C5 C1
0B70: D3 C5 A1 A1 29 01 08 AE
0B78: 01 5F B3 40 01 01 12 B8
0B80: 01 5E C4 B1 71 2F 3F B6
0B88: 06 00 72 12 B1 01 00 01
0B90: 12 C2 01 5E C4 B2 71 2F
0B98: 3F B6 06 00 72 12 B1 01
0BA0: 00 01 0C CC 01 5E D1 71
0BA8: D1 12 B1 01 00 01 0C D6
0BB0: 01 5E D3 71 C4 B1 12 C4
0BB8: B2 01 0E E0 01 60 D7 19
0BC0: B0 00 00 24 B5 FE 01 01
0BC8: 1F EA 01 61 28 A0 A0 C9
0BD0: A0 D2 CF CC CC A0 29 46
0BD8: C4 B1 45 28 A0 C1 CE C4
0BE0: A0 29 46 C4 B2 47 01 08
0BE8: F4 01 5F B5 08 02 01 1F
0BF0: FE 01 61 28 D9 CF D5 A0
0BF8: D2 CF CC CC A0 29 46 C4
0C00: B1 45 28 A0 C1 CE C4 A0
0C08: 29 46 C4 B2 47 01 0E 08
0C10: 02 60 D1 1B B1 01 00 24
0C18: B8 48 03 01 24 12 02 60
0C20: 38 D3 13 B2 02 00 72 14
0C28: 38 D3 13 B3 03 00 72 14
0C30: 38 D3 13 B1 0C 00 72 16
0C38: B0 00 00 24 B6 6C 02 01
0C40: 1C 1C 02 60 38 D3 13 B7
0C48: 07 00 72 14 38 D3 13 B1
0C50: 0B 00 72 16 B0 00 00 24
0C58: B6 B2 02 01 0E 26 02 60
0C60: D7 19 B0 00 00 24 B5 44
0C68: 02 01 1A 30 02 61 28 A0
0C70: D3 CF A0 CD D9 A0 D0 CF
0C78: C9 CE D4 A0 C9 D3 A0 29
0C80: 46 D3 47 01 08 3A 02 5F
0C88: B5 4E 02 01 1C 44 02 61
0C90: 28 A0 D3 CF A0 D9 CF D5
0C98: D2 A0 D0 CF C9 CE D4 A0
0CA0: C9 D3 A0 29 46 D3 47 01
0CA8: 25 4E 02 61 28 AE AE AE
0CB0: AE AE CC C5 D4 A7 D3 A0
0CB8: D2 CF CC CC A0 A7 C5 CD
0CC0: A0 C1 C7 C1 C9 CE AE AE
0CC8: AE AE AE 29 01 08 58 02
0CD0: 5E D0 71 D3 01 08 62 02
0CD8: 5F B4 B8 01 01 17 6C 02
0CE0: 61 28 A0 C1 CE C4 A0 C3
0CE8: D2 C1 D0 A0 CF D5 D4 AE
0CF0: AE AE 29 01 0A 76 02 5E
0CF8: C3 71 B1 01 00 01 0E 80
0D00: 02 60 D7 19 B0 00 00 24
0D08: B6 9E 02 01 0A 8A 02 5E
0D10: DA 71 DA 12 C2 01 08 94
0D18: 02 5F B7 EE 02 01 0A 9E
0D20: 02 5E DA 71 DA 13 C2 01
0D28: 08 A8 02 5F B7 EE 02 01
0D30: 15 B2 02 61 28 A0 C1 CE
0D38: C4 A0 D0 C1 D3 D3 AE AE
0D40: AE AE AE 29 01 0A BC 02
0D48: 5E C3 71 B1 01 00 01 0E
0D50: C6 02 60 D7 19 B0 00 00
0D58: 24 B7 E4 02 01 0A D0 02
0D60: 5E DA 71 DA 13 C2 01 08
0D68: DA 02 5F B7 EE 02 01 0A
0D70: E4 02 5E DA 71 DA 12 C2
0D78: 01 05 EE 02 63 01 0E F8
0D80: 02 60 DA 1C B1 01 00 24
0D88: B1 10 04 01 2B 02 03 61
0D90: 28 D9 CF D5 A0 CE CF D7
0D98: A0 C8 C1 D6 C5 A0 29 46
0DA0: DA 45 28 A0 C4 CF CC CC
0DA8: C1 D2 D3 A0 CC C5 C6 D4
0DB0: AE AE AE AE AE 29 01 0E
0DB8: 0C 03 60 C3 19 B0 00 00
0DC0: 24 B8 2A 03 01 1B 16 03
0DC8: 61 28 C3 C8 C1 CE C7 C5
0DD0: A0 C4 C9 C3 C5 A0 CE CF
0DD8: D7 AE AE AE AE AE 29 01
0DE0: 05 20 03 63 01 0A 2A 03
0DE8: 5E D7 71 D7 14 C3 01 0A
0DF0: 34 03 5E D1 71 B0 00 00
0DF8: 01 08 3E 03 5F B3 40 01
0E00: 01 0E 48 03 60 D3 1B B7
0E08: 07 00 24 B9 98 03 01 15
0E10: 52 03 61 28 A0 C1 CE C4
0E18: A0 CC CF D3 C5 AE AE AE
0E20: AE AE 29 01 0B 5C 03 5E
0E28: C3 71 36 B1 01 00 01 0E
0E30: 66 03 60 D7 19 B0 00 00
0E38: 24 B9 84 03 01 0A 70 03
0E40: 5E DA 71 DA 12 C2 01 08
0E48: 7A 03 5F B7 EE 02 01 0A
0E50: 84 03 5E DA 71 DA 13 C2
0E58: 01 08 8E 03 5F B7 EE 02
0E60: 01 0C 98 03 60 D3 16 D0
0E68: 24 B9 B6 03 01 19 A2 03
0E70: 61 28 AE AE AE D2 CF CC
0E78: CC A0 C1 C7 C1 C9 CE AE
0E80: AE AE AE AE 29 01 08 AC
0E88: 03 5F B4 B8 01 01 0E B6
0E90: 03 60 D7 19 B0 00 00 24
0E98: B1 E8 03 01 1E C0 03 61
0EA0: 28 A0 C1 CE C4 A0 CD C1
0EA8: CB C5 A0 CD D9 A0 D0 CF
0EB0: C9 CE D4 AE AE AE AE AE
0EB8: 29 01 0A CA 03 5E C3 71
0EC0: B1 01 00 01 0A D4 03 5E
0EC8: DA 71 DA 13 C2 01 08 DE
0ED0: 03 5F B7 EE 02 01 20 E8
0ED8: 03 61 28 A0 C1 CE C4 A0
0EE0: CD C1 CB C5 A0 D9 CF D5
0EE8: D2 A0 D0 CF C9 CE D4 AE
0EF0: AE AE AE AE 29 01 0A F2
0EF8: 03 5E C3 71 B1 01 00 01
0F00: 0A FC 03 5E DA 71 DA 12
0F08: C2 01 08 06 04 5F B7 EE
0F10: 02 01 05 10 04 63 01 39
0F18: 1A 04 61 28 D9 CF D5 A0
0F20: C8 C1 D6 C5 A0 D2 D5 CE
0F28: A0 CF D5 D4 A0 CF C6 A0
0F30: CD CF CE C5 D9 AE AE AE
0F38: AE D3 CF D2 D2 D9 A0 C1
0F40: C2 CF D5 D4 A0 D4 C8 C1
0F48: D4 AE AE AE AE AE 29 01
0F50: 3E 24 04 61 28 D4 C8 C1
0F58: CE CB D3 A0 C6 CF D2 A0
0F60: D4 C8 C5 A0 C7 C1 CD C5
0F68: AE AE AE AE AE C2 C5 D4
0F70: D4 C5 D2 A0 CC D5 C3 CB
0F78: A0 CE C5 D8 D4 A0 D4 C9
0F80: CD C5 AC A0 D0 C1 D2 C4
0F88: CE C5 D2 A1 29 01 08 2E
0F90: 04 5F B2 D0 07 01 32 38
0F98: 04 61 28 D4 C8 C1 CE CB
0FA0: D3 A0 C6 CF D2 A0 D4 C8
0FA8: C5 A0 C7 C1 CD C5 AE AE
0FB0: AE AE AE C1 CE C4 A0 C3
0FB8: CF CE C7 D2 C1 D4 D5 CC
0FC0: C1 D4 C9 CF CE D3 29 01
0FC8: 33 42 04 61 28 C6 CF D2
0FD0: A0 C2 C5 C9 CE C7 A0 C1
0FD8: C2 CC C5 A0 D4 CF A0 D1
0FE0: D5 C9 D4 A0 D7 C8 C9 CC
0FE8: C5 A0 D9 CF D5 A0 D7 C5
0FF0: D2 C5 A0 C1 C8 C5 C1 C4
0FF8: AE 29 01 05 D0 07 51 01
E2B3R
RUN

1978
code/programs/DEAL.TXT Normal file

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,22 @@
800:A9 13 85 46 20 12 08 20 EF 08 85 44 84 45 C6 46 D0 F2 20 D3 08 A1 44 A8 4A 90 0B 4A B0 17 C9 22
:F0 13 29 07 09 80 4A AA BD FE 08 B0 04 4A 4A 4A 4A 29 0F D0 04 A0 80 A9 00 AA BD 42 09 85 40 29
:03 85 41 98 29 8F AA 98 A0 03 E0 8A F0 0B 4A 90 08 4A 4A 09 20 88 D0 FA
:C8 88 D0 F2 48 B1 44 20 DC FF A2 01 20 E6 08 C4 41 C8 90 F1 A2 03 C0 04
:90 F2 68 A8 B9 5C 09 85 42 B9 9C 09 85 43 A9 00 A0 05 06 43 26 42 2A 88
:D0 F8 69 BF 20 EF FF CA D0 EC 20 E4 08 A2 06 E0 03 D0 12 A4 41 F0 0E A5
:40 C9 E8 B1 44 B0 1C 20 DC FF 88 D0 F2 06 40 90 0E BD 4F 09 20 EF FF BD
:55 09 F0 03 20 EF FF CA D0 D5 60 20 F2 08 AA E8 D0 01 C8 98 20 DC FF 8A
:4C DC FF A9 8D 20 EF FF A5 45 A6 44 20 CC 08 A9 AD 20 EF FF A2 03 A9 A0
:20 EF FF CA D0 F8 60 A5 41 38 A4 45 AA 10 01 88 65 44 90 01 C8 60 40 02
:45 03 D0 08 40 09 30 22 45 33 D0 08 40 09 40 02 45 33 D0 08 40 09 40 00
:40 B0 D0 00 40 00 00 22 44 33 D0 8C 44 00 11 22 44 33 D0 8C 44 9A 10 22
:44 33 D0 08 40 09 10 22 44 33 D0 08 40 09 62 13 78 A9 00 21 81 82 00 00
:59 4D 91 92 86 4A 85 9D AC A9 AC A3 A8 A4 D9 00 D8 A4 A4 00 1C 8A 1C 23
:5D 8B 1B A1 9D 8A 1D 23 9D 8B 1D A1 00 29 19 AE 69 A8 19 23 24 53 1B 23
:24 53 19 A1 00 1A 5B 5B A5 69 24 24 AE AE A8 AD 29 00 7C 00 15 9C 6D 00
:A5 69 29 53 84 13 34 11 A5 69 23 A0 D8 62 5A 48 26 62 94 88 54 44 C8 54
:68 44 E8 94 00 B4 08 84 74 B4 28 6E 74 F4 CC 4A 72 F2 A4 8A 00 AA A2 A2
:74 74 74 72 44 68 B2 32 B2 00 22 00 1A 1A 26 00 72 72 88 C8 C4 CA 26 48
:44 44 A2 C8 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF
:20 00 08 4C 1F FF FF FF FF FF FF FF FF FF FF FF

View File

@ -0,0 +1,199 @@
0300: EA 4C 48 13 EA 4C 58 13 04 00 D2 5E 66 1B 7F 00 80 3F 9E 00 FF 01 00 01 1F 00 00 00 96 1B 96 1B
: BF 12 EA EA 83 4C 49 D4 00 00 2C 03 B1 AE 48 E6 AE D0 02 E6 AF B1 AE E6 AE D0 02 E6 AF CA CA 95
: 01 68 95 00 A0 01 B1 AE 85 B2 88 B1 AE 85 B1 EA EA EA 18 A5 AE 69 02 85 AE 90 02 E6 AF 4C B0 00
: 84 43 4C 49 D4 24 03 69 03 B1 AE 48 98 F0 C8 86 B5 20 81 1B A5 AF 20 DC FF A5 AE 20 DC FF 20 87
: 1B A9 00 B1 AE 85 12 85 14 C8 B1 AE 85 13 85 15 20 D9 03 A5 13 20 DC FF A5 12 20 DC FF 20 87 1B
: A5 B5 20 DC FF 20 87 1B A9 01 20 DC FF BA E8 8A 20 DC FF 20 87 1B EA EA EA A6 B5 A0 00 60 86 B5
: A5 B1 85 14 A5 B2 85 15 20 81 1B A9 3A 20 EF FF 20 87 1B 20 D9 03 A6 B5 60 20 FB 03 20 FB 03 20
: FB 03 A0 00 20 FB 03 B1 14 10 F9 C8 B1 14 20 EF FF B1 14 10 F6 20 87 1B A0 00 60 A5 14 D0 02 C6
: 15 C6 14 60 0A 85 A5 B5 00 99 A6 00 E8 C8 C4 A5 D0 F5 A0 00 60 87 45 58 45 43 55 54 C5 60 03 21
: 04 B5 00 85 B1 B5 01 85 B2 E8 E8 4C B0 00 86 42 52 41 4E 43 C8 15 04 39 04 18 B1 AE 65 AE 48 C8
: B1 AE 65 AF 85 AF 68 85 AE 4C 46 03 87 30 42 52 41 4E 43 C8 2E 04 58 04 E8 E8 B5 FE 15 FF F0 D9
: 18 A5 AE 69 02 85 AE 90 02 E6 AF 4C 44 03 86 28 4C 4F 4F 50 A9 4C 04 79 04 86 B5 BA FE 01 01 D0
: 03 FE 02 01 18 BD 03 01 FD 01 01 BD 04 01 FD 02 01 A6 B5 0A 90 A3 68 68 68 68 4C 60 04 87 28 2B
: 4C 4F 4F 50 A9 6E 04 A9 04 E8 E8 86 B5 B5 FF 48 48 B5 FE BA E8 E8 18 7D 01 01 9D 01 01 68 7D 02
: 01 9D 02 01 68 10 BD 18 BD 01 01 FD 03 01 BD 02 01 FD 04 01 4C 91 04 84 28 44 4F A9 9D 04 E0 04
: B5 03 48 B5 02 48 B5 01 48 B5 00 48 E8 E8 E8 E8 4C 44 03 81 C9 D7 04 5F 07 85 44 49 47 49 D4 F3
: 04 03 05 38 B5 02 E9 30 30 18 C9 0A 30 07 38 E9 07 C9 0A 30 0D D5 00 10 09 95 02 A9 01 48 98 4C
: 3F 03 98 48 E8 E8 4C 3F 03 86 28 46 49 4E 44 A9 F9 04 34 05 A9 02 20 04 04 86 B5 A0 00 B1 A6 51
: A8 29 3F D0 2D C8 B1 A6 51 A8 0A D0 23 90 F6 A6 B5 CA CA CA CA 18 98 69 05 65 A6 95 02 A0 00 98
: 65 A7 95 03 94 01 B1 A6 95 00 A9 01 48 4C 3D 03 B0 05 C8 B1 A6 10 FB C8 B1 A6 AA C8 B1 A6 85 A7
: 86 A6 05 A6 D0 B5 A6 B5 A9 00 48 4C 3D 03 87 45 4E 43 4C 4F 53 C5 29 05 9A 05 A9 02 20 04 04 8A
: 38 E9 08 AA 94 03 94 01 88 C8 B1 A8 C5 A6 F0 F9 94 04 B1 A8 D0 0E 94 02 94 00 98 D5 04 D0 02 F6
: 02 4C 44 03 94 02 C8 C5 A6 D0 E7 94 00 4C 44 03 84 45 4D 49 D4 8E 05 F2 16 83 4B 45 D9 D0 05 0D
: 17 89 3F 54 45 52 4D 49 4E 41 CC D9 05 17 17 82 43 D2 E1 05 22 17 85 43 4D 4F 56 C5 EF 05 00 06
: A9 03 20 04 04 C4 A6 D0 07 C6 A7 10 03 4C 44 03 B1 AA 91 A8 C8 D0 EE E6 AB E6 A9 4C 05 06 82 55
: AA F6 05 25 06 B5 02 85 A6 94 02 B5 03 85 A7 94 03 A0 10 16 02 36 03 36 00 36 01 90 13 18 A5 A6
: 75 02 95 02 A5 A7 75 03 95 03 A9 00 75 00 95 00 88 D0 E0 4C 44 03 82 55 AF 1E 06 5D 06 B5 04 B4
: 02 94 04 0A 95 02 B5 05 B4 03 94 05 2A 95 03 A9 10 85 A6 36 04 36 05 38 B5 04 F5 00 A8 B5 05 F5
: 01 90 04 94 04 95 05 36 02 36 03 C6 A6 D0 E4 4C EE 04 83 41 4E C4 56 06 9A 06 B5 00 35 02 48 B5
: 01 35 03 E8 E8 4C 3F 03 82 4F D2 92 06 AF 06 B5 00 15 02 48 B5 01 15 03 E8 E8 4C 3F 03 83 58 4F
: D2 A8 06 C5 06 B5 00 55 02 48 B5 01 55 03 E8 E8 4C 3F 03 83 53 50 C0 BD 06 DB 06 8A 48 A9 00 4C
: 3D 03 83 53 50 A1 D3 06 EA 06 A0 06 B1 B3 AA 4C 44 03 83 52 50 A1 E2 06 FA 06 86 B5 A0 08 B1 B3
: AA 9A A6 B5 4C 44 03 82 3B D3 F2 06 0E 07 68 85 AE 68 85 AF 4C 44 03 85 4C 45 41 56 C5 07 07 21
: 07 86 B5 BA BD 01 01 9D 03 01 BD 02 01 9D 04 01 A6 B5 4C 44 03 82 3E D2 17 07 3C 07 B5 01 48 B5
: 00 48 E8 E8 4C 44 03 82 52 BE 35 07 4E 07 CA CA 68 95 00 68 95 01 4C 44 03 81 D2 47 07 5F 07 86
: B5 BA BD 01 01 48 BD 02 01 A6 B5 4C 3D 03 82 30 BD 59 07 75 07 B5 01 94 01 15 00 D0 01 C8 94 00
: 4C 44 03 82 30 BC 6E 07 8A 07 16 01 98 2A 94 01 95 00 4C 44 03 81 AB 83 07 9B 07 18 B5 00 75 02
: 95 02 B5 01 75 03 95 03 E8 E8 4C 44 03 82 44 AB 95 07 B4 07 18 B5 02 75 06 95 06 B5 03 75 07 95
: 07 B5 00 75 04 95 04 B5 01 75 05 95 05 4C EC 04 85 4D 49 4E 55 D3 AD 07 DA 07 38 98 F5 00 95 00
: 98 F5 01 95 01 4C 44 03 86 44 4D 49 4E 55 D3 D0 07 F3 07 38 98 F5 02 95 02 98 F5 03 95 03 4C DB
: 07 84 4F 56 45 D2 E8 07 0A 08 B5 02 48 B5 03 4C 3D 03 84 44 52 4F D0 01 08 EE 04 84 53 57 41 D0
: 12 08 24 08 B5 02 48 B5 00 95 02 B5 03 B4 01 94 03 4C 3F 03 83 44 55 D0 1B 08 3C 08 B5 00 48 B5
: 01 4C 3D 03 82 2B A1 34 08 4B 08 18 A1 00 75 02 81 00 F6 00 D0 02 F6 01 A1 00 75 03 81 00 4C EC
: 04 81 54 4F 47 47 4C C5 44 08 6C 08 A1 02 55 00 81 02 4C EC 04 81 C0 61 08 7B 08 A1 00 48 F6 00
: D0 02 F6 01 A1 00 4C 3F 03 82 43 C0 75 08 90 08 A1 00 95 00 94 01 4C 44 03 81 A1 89 08 9F 08 B5
: 02 81 00 F6 00 D0 02 F6 01 B5 03 81 00 4C EC 04 82 43 A1 99 08 B7 08 B5 02 81 00 4C EC 04 C1 BA
: B0 08 D6 08 42 0C FE 0B 58 0A 79 08 4B 0A 9D 08 37 11 C3 0C 12 0D A5 AF 48 A5 AE 48 EA EA EA 18
: A5 B1 69 02 85 AE 98 65 B2 85 AF 4C 44 03 C1 BB BE 08 D6 08 6A 0C 9F 0C 0C 07 D7 0C B5 0C 0C 07
: 88 43 4F 4E 53 54 41 4E D4 EE 08 D6 08 37 11 D7 0C D9 0A 12 0D A0 02 B1 B1 48 C8 B1 B1 4C 3D 03
: 88 56 41 52 49 41 42 4C C5 00 09 D6 08 0B 09 12 0D 18 A5 B1 69 02 48 98 65 B2 4C 3D 03 84 55 53
: 45 D2 20 09 D6 08 0B 09 12 0D A0 02 18 B1 B1 65 B3 48 A9 00 65 B4 4C 3D 03 81 B0 3D 09 15 09 00
: 00 81 B1 59 09 15 09 01 00 81 B2 61 09 15 09 02 00 81 B3 69 09 15 09 03 00 82 42 CC 71 09 15 09
: 20 00 83 43 2F CC 79 09 15 09 40 00 85 46 49 52 53 D4 82 09 15 09 60 3B 85 4C 49 4D 49 D4 8C 09
: 15 09 80 3F 85 42 2F 42 55 C6 98 09 15 09 80 00 85 42 2F 53 43 D2 A4 09 15 09 08 00 87 2B 4F 52
: 49 47 49 CE B0 09 D6 08 2A 03 00 03 99 07 0C 07 83 54 49 C2 BC 09 4A 09 0A 85 57 49 44 54 C8 D0
: 09 4A 09 0C 87 57 41 52 4E 49 4E C7 D9 09 4A 09 0E 85 46 45 4E 43 C5 E4 09 4A 09 10 82 44 D0 F1
: 09 4A 09 12 88 56 4F 43 2D 4C 49 4E CB FC 09 4A 09 14 83 42 4C CB 04 0A 4A 09 16 82 49 CE 12 0A
: 4A 09 18 83 4F 55 D4 1B 0A 4A 09 1A 83 53 43 D2 23 0A 4A 09 1C 86 4F 46 46 53 45 D4 2C 0A 4A 09
: 1E 87 43 4F 4E 54 45 58 D4 35 0A 4A 09 20 87 43 55 52 52 45 4E D4 41 0A 4A 09 22 85 53 54 41 54
: C5 4E 0A 4A 09 24 84 42 41 53 C5 5B 0A 4A 09 26 83 44 50 CC 66 0A 4A 09 28 83 46 4C C4 70 0A 4A
: 09 2A 83 43 53 D0 79 0A 4A 09 2C 82 52 A3 82 0A 4A 09 2E 83 48 4C C4 8B 0A 4A 09 30 82 31 AB 93
: 0A D6 08 65 09 99 07 0C 07 82 32 AB 9C 0A D6 08 6D 09 99 07 0C 07 84 48 45 52 C5 A9 0A D6 08 01
: 0A 79 08 0C 07 85 41 4C 4C 4F D4 B6 0A D6 08 01 0A 49 08 0C 07 81 AC C5 0A D6 08 BD 0A 9D 08 6D
: 09 CD 0A 0C 07 82 43 AC D5 0A D6 08 BD 0A B5 08 65 09 CD 0A 0C 07 81 AD E5 0A D6 08 D8 07 99 07
: 0C 07 81 BD F6 0A D6 08 FA 0A 73 07 0C 07 82 55 BC 02 0B D6 08 FA 0A 88 07 0C 07 81 BC 0E 0B 21
: 0B 38 B5 02 F5 00 B5 03 F5 01 94 03 50 02 49 80 10 01 C8 94 02 4C EE 04 81 BE 1B 0B D6 08 22 08
: 1F 0B 0C 07 83 52 4F D4 38 0B D6 08 3A 07 22 08 4C 07 22 08 0C 07 85 53 50 41 43 C5 44 0B D6 08
: 7E 09 D7 05 0C 07 84 2D 44 55 D0 56 0B D6 08 3A 08 56 04 04 00 3A 08 0C 07 88 54 52 41 56 45 52
: 53 C5 66 0B D6 08 22 08 08 08 99 07 67 03 7F 08 08 8E 08 1F 0B 56 04 F1 FF 22 08 19 08 0C 07 86
: 4C 41 54 45 53 D4 79 0B D6 08 58 0A 79 08 79 08 0C 07 83 4C 46 C1 9F 0B D6 08 67 03 04 FA 0A 0C
: 07 83 43 46 C1 B2 0B D6 08 6D 09 FA 0A 0C 07 83 4E 46 C1 C1 0B D6 08 67 03 05 FA 0A 2A 03 FF FF
: 84 0B 0C 07 83 50 46 C1 CF 0B D6 08 65 09 84 0B 67 03 05 99 07 0C 07 84 21 43 53 D0 E4 0B D6 08
: D9 06 88 0A 9D 08 0C 07 86 3F 45 52 52 4F D2 F7 0B D6 08 22 08 56 04 08 00 CE 10 37 04 04 00 19
: 08 0C 07 85 3F 43 4F 4D D0 08 0C D6 08 63 0A 79 08 73 07 67 03 11 11 0C 0C 07 85 3F 45 58 45 C3
: 23 0C D6 08 63 0A 79 08 67 03 12 11 0C 0C 07 86 3F 50 41 49 52 D3 3A 0C D6 08 FA 0A 67 03 13 11
: 0C 0C 07 84 3F 43 53 D0 4F 0C D6 08 D9 06 88 0A 79 08 FA 0A 67 03 14 11 0C 0C 07 88 3F 4C 4F 41
: 44 49 4E C7 63 0C D6 08 18 0A 79 08 73 07 67 03 16 11 0C 0C 07 87 43 4F 4D 50 49 4C C5 7B 0C D6
: 08 2B 0C 4C 07 3A 08 AE 0A 3A 07 79 08 D9 0A 0C 07 C1 DB 95 0C D6 08 5D 09 63 0A 9D 08 0C 07 81
: DD B1 0C D6 08 67 03 C0 63 0A 9D 08 0C 07 86 53 4D 55 44 47 C5 BF 0C D6 08 A8 0B 67 03 20 6A 08
: 0C 07 83 48 45 D8 CE 0C D6 08 67 03 10 6D 0A 9D 08 0C 07 87 44 45 43 49 4D 41 CC E2 0C D6 08 67
: 03 0A 6D 0A 9D 08 0C 07 87 28 3B 43 4F 44 45 A9 F3 0C D6 08 4C 07 A8 0B EA 0B C7 0B 9D 08 0C 07
: C5 3B 43 4F 44 C5 08 0D D6 08 6A 0C 9F 0C 12 0D B5 0C D7 0C 0C 07 87 3C 42 55 49 4C 44 D3 20 0D
: D6 08 5D 09 0B 09 0C 07 85 44 4F 45 53 BE 36 0D D6 08 4C 07 A8 0B EA 0B 9D 08 12 0D A5 AF 48 A5
: AE 48 A0 02 B1 B1 85 AE C8 B1 B1 85 AF 18 A5 B1 69 04 48 A5 B2 69 00 4C 3D 03 85 43 4F 55 4E D4
: 48 0D D6 08 3A 08 A1 0A 22 08 8E 08 0C 07 84 54 59 50 C5 7A 0D D6 08 6D 0B 56 04 18 00 08 08 99
: 07 22 08 DE 04 F7 04 8E 08 D7 05 77 04 F8 FF 37 04 04 00 19 08 0C 07 89 2D 54 52 41 49 4C 49 4E
: C7 8E 0D D6 08 3A 08 5D 09 DE 04 08 08 08 08 99 07 65 09 FA 0A 8E 08 7E 09 FA 0A 56 04 08 00 1F
: 07 37 04 06 00 65 09 FA 0A 77 04 E0 FF 0C 07 84 28 2E 22 A9 B7 0D D6 08 5D 07 82 0D 3A 08 A1 0A
: 4C 07 99 07 3A 07 95 0D 0C 07 C2 2E A2 EF 0D D6 08 67 03 22 63 0A 79 08 56 04 14 00 9F 0C F6 0D
: 71 0F BD 0A 8E 08 A1 0A CD 0A 37 04 0A 00 71 0F BD 0A 82 0D 95 0D 0C 07 86 45 58 50 45 43 D4 0A
: 0E D6 08 08 08 99 07 08 08 DE 04 DF 05 3A 08 67 03 0E C6 09 79 08 06 0B 56 04 1F 00 19 08 67 03
: 08 08 08 F7 04 06 0B 3A 08 4C 07 6D 09 FA 0A 99 07 3A 07 FA 0A 37 04 27 00 3A 08 67 03 0D 06 0B
: 56 04 0E 00 1F 07 19 08 7E 09 5D 09 37 04 04 00 3A 08 F7 04 B5 08 5D 09 F7 04 A1 0A 9D 08 D7 05
: 77 04 A9 FF 19 08 0C 07 85 51 55 45 52 D9 38 0E D6 08 D6 09 79 08 67 03 50 41 0E 5D 09 20 0A 9D
: 08 0C 07 C1 80 A8 0E D6 08 18 0A 79 08 56 04 2A 00 65 09 18 0A 49 08 5D 09 20 0A 9D 08 18 0A 79
: 08 5D 09 B8 09 5B 06 19 08 73 07 56 04 08 00 42 0C 4C 07 19 08 37 04 06 00 4C 07 19 08 0C 07 EA
: 84 46 49 4C CC C3 0E D6 08 22 08 3A 07 08 08 B5 08 3A 08 A1 0A 4C 07 65 09 FA 0A FE 05 0C 07 85
: 45 52 41 53 C5 00 0F D6 08 5D 09 07 0F 0C 07 86 42 4C 41 4E 4B D3 1F 0F D6 08 7E 09 07 0F 0C 07
: 84 48 4F 4C C4 2F 0F D6 08 2A 03 FF FF 99 0A 49 08 99 0A 79 08 B5 08 0C 07 83 50 41 C4 40 0F D6
: 08 BD 0A 67 03 44 99 07 0C 07 84 57 4F 52 C4 59 0F D6 08 18 0A 79 08 56 04 0C 00 18 0A 79 08 D6
: 15 37 04 06 00 D6 09 79 08 20 0A 79 08 99 07 22 08 98 05 BD 0A 67 03 22 38 0F 20 0A 49 08 08 08
: FA 0A 3A 07 5D 07 BD 0A B5 08 99 07 BD 0A A1 0A 4C 07 FE 05 0C 07 85 55 50 50 45 D2 6A 0F D6 08
: 08 08 99 07 22 08 DE 04 F7 04 8E 08 67 03 5F 3C 0B 56 04 09 00 F7 04 67 03 20 6A 08 77 04 EA FF
: 0C 07 88 28 4E 55 4D 42 45 52 A9 B6 0F D6 08 A1 0A 3A 08 3A 07 8E 08 6D 0A 79 08 01 05 56 04 2C
: 00 22 08 6D 0A 79 08 23 06 19 08 4A 0B 6D 0A 79 08 23 06 B2 07 76 0A 79 08 A1 0A 56 04 08 00 65
: 09 76 0A 49 08 4C 07 37 04 C6 FF 4C 07 0C 07 86 4E 55 4D 42 45 D2 E2 0F D6 08 5D 09 5D 09 4A 0B
: 3A 08 A1 0A 8E 08 67 03 2D 06 0B 3A 08 3A 07 99 07 2A 03 FF FF 76 0A 9D 08 ED 0F 3A 08 8E 08 7E
: 09 FA 0A 56 04 15 00 3A 08 8E 08 67 03 2E FA 0A 5D 09 11 0C 5D 09 37 04 DD FF 19 08 4C 07 56 04
: 04 00 F1 07 0C 07 85 2D 46 49 4E C4 2F 10 D6 08 7E 09 71 0F BD 0A 82 0D BE 0F BD 0A 4B 0A 79 08
: 79 08 32 05 3A 08 73 07 56 04 0A 00 19 08 BD 0A A8 0B 32 05 0C 07 87 28 41 42 4F 52 54 A9 86 10
: D6 08 1E 13 0C 07 85 45 52 52 4F D2 B6 10 D6 08 EE 09 79 08 88 07 56 04 04 00 C0 10 BD 0A 82 0D
: 95 0D F6 0D 04 20 20 3F 20 6D 16 E8 06 19 08 19 08 20 0A 79 08 18 0A 79 08 EF 12 0C 07 83 49 44
: AE C6 10 D6 08 5F 0F 67 03 20 67 03 5F 07 0F 3A 08 EA 0B B8 0B 08 08 FA 0A 5F 0F 22 08 FE 05 5F
: 0F 82 0D 67 03 1F 98 06 95 0D 5E 0B 0C 07 86 43 52 45 41 54 C5 FD 10 D6 08 D6 09 BD 0A 67 03 A0
: 99 07 13 0B 6D 09 11 0C 8E 10 56 04 0F 00 19 08 D5 0B 03 11 67 03 04 6D 16 5E 0B BD 0A 3A 08 8E
: 08 E1 09 79 08 D3 13 A1 0A CD 0A 01 0A 8E 08 67 03 FD 06 0B CD 0A 3A 08 67 03 A0 6A 08 BD 0A 65
: 09 FA 0A 67 03 80 6A 08 A8 0B D9 0A 58 0A 79 08 9D 08 BD 0A AE 0A D9 0A 0C 07 C9 5B 43 4F 4D 50
: 49 4C 45 DD 2E 11 D6 08 8E 10 73 07 5D 09 11 0C 19 08 C7 0B D9 0A 0C 07 C7 4C 49 54 45 52 41 CC
: 9A 11 D6 08 63 0A 79 08 56 04 08 00 9F 0C 2A 03 D9 0A 0C 07 C8 44 4C 49 54 45 52 41 CC B8 11 D6
: 08 63 0A 79 08 56 04 08 00 22 08 C2 11 C2 11 0C 07 86 3F 53 54 41 43 CB D4 11 D6 08 67 03 9E D9
: 06 13 0B 65 09 11 0C D9 06 67 03 20 13 0B 67 03 07 11 0C 0C 07 89 49 4E 54 45 52 50 52 45 D4 F1
: 11 D6 08 8E 10 56 04 1E 00 63 0A 79 08 1F 0B 56 04 0A 00 C7 0B D9 0A 37 04 06 00 C7 0B 1F 04 FA
: 11 37 04 1C 00 BD 0A 38 10 76 0A 79 08 A1 0A 56 04 08 00 DF 11 37 04 06 00 19 08 C2 11 FA 11 37
: 04 C2 FF 89 49 4D 4D 45 44 49 41 54 C5 15 12 D6 08 A8 0B 67 03 40 6A 08 0C 07 8A 56 4F 43 41 42
: 55 4C 41 52 D9 63 12 D6 08 40 0D 2A 03 81 A0 D9 0A 58 0A 79 08 C7 0B D9 0A BD 0A 0F 0A 79 08 D9
: 0A 0F 0A 9D 08 50 0D AE 0A 4B 0A 9D 08 0C 07 C5 46 4F 52 54 C8 7A 12 5C 0D A7 12 81 A0 66 1B 00
: 00 8B 44 45 46 49 4E 49 54 49 4F 4E D3 AF 12 D6 08 4B 0A 79 08 58 0A 9D 08 0C 07 C1 A8 C1 12 D6
: 08 67 03 29 71 0F 0C 07 84 51 55 49 D4 DB 12 D6 08 5D 09 18 0A 9D 08 B5 0C F8 06 F4 05 B0 0E 21
: 12 63 0A 79 08 73 07 56 04 07 00 F6 0D 02 4F 4B 37 04 E7 FF 0C 07 85 41 42 4F 52 D4 E8 12 D6 08
: E8 06 FD 0C 69 15 F4 05 F6 0D 0E 46 49 47 2D 46 4F 52 54 48 20 20 31 2E 31 B7 12 CF 12 EF 12 84
: 43 4F 4C C4 16 13 48 13 AD 0C 03 8D BD 12 AD 0D 03 8D BE 12 A0 15 D0 02 A0 0F AD 10 03 85 B3 AD
: 11 03 85 B4 B9 0C 03 91 B3 88 10 F8 A9 13 85 AF A9 20 85 AE D8 A9 6C 85 B0 4C FA 06 84 53 2D 3E
: C4 3F 13 D6 08 3A 08 88 07 D8 07 0C 07 82 2B AD 7C 13 D6 08 88 07 56 04 04 00 D8 07 0C 07 83 44
: 2B AD 8D 13 D6 08 88 07 56 04 04 00 F1 07 0C 07 83 41 42 D3 9E 13 D6 08 3A 08 92 13 0C 07 84 44
: 41 42 D3 B0 13 D6 08 3A 08 A4 13 0C 07 83 4D 49 CE BE 13 D6 08 08 08 08 08 3C 0B 56 04 04 00 22
: 08 19 08 0C 07 83 4D 41 D8 CD 13 D6 08 08 08 08 08 1F 0B 56 04 04 00 22 08 19 08 0C 07 82 4D AA
: E5 13 D6 08 08 08 08 08 C3 06 3A 07 B6 13 22 08 B6 13 23 06 4C 07 A4 13 0C 07 82 4D AF FD 13 D6
: 08 08 08 3A 07 3A 07 C5 13 5D 07 B6 13 5B 06 4C 07 5D 07 C3 06 92 13 22 08 4C 07 92 13 22 08 0C
: 07 81 AA 1A 14 D6 08 23 06 19 08 0C 07 84 2F 4D 4F C4 41 14 D6 08 3A 07 83 13 4C 07 1F 14 0C 07
: 81 AF 4D 14 D6 08 54 14 22 08 19 08 0C 07 83 4D 4F C4 60 14 D6 08 54 14 19 08 0C 07 85 2A 2F 4D
: 4F C4 6E 14 D6 08 3A 07 02 14 4C 07 1F 14 0C 07 82 2A AF 7C 14 D6 08 84 14 22 08 19 08 0C 07 85
: 4D 2F 4D 4F C4 90 14 D6 08 3A 07 5D 09 5D 07 5B 06 4C 07 22 08 3A 07 5B 06 4C 07 0C 07 83 55 53
: C5 9F 14 31 09 60 3B 84 50 52 45 D6 BD 14 31 09 60 3B 84 2B 42 55 C6 C7 14 D6 08 2A 03 84 00 99
: 07 3A 08 A0 09 06 0B 56 04 06 00 19 08 94 09 3A 08 CE 14 79 08 FA 0A 0C 07 86 55 50 44 41 54 C5
: D2 14 D6 08 CE 14 79 08 79 08 2A 03 00 80 AD 06 CE 14 79 08 9D 08 0C 07 85 46 4C 55 53 C8 F9 14
: D6 08 A0 09 94 09 FA 0A AC 09 67 03 04 99 07 64 14 A1 0A 5D 09 DE 04 2A 03 FF 7F 8E 15 19 08 77
: 04 F6 FF 0C 07 8D 45 4D 50 54 59 2D 42 55 46 46 45 52 D3 18 15 D6 08 94 09 A0 09 08 08 FA 0A 27
: 0F 0C 07 83 44 52 B0 45 15 D6 08 5D 09 3E 0A 9D 08 0C 07 83 44 52 B1 63 15 D6 08 2A 03 20 03 3E
: 0A 9D 08 0C 07 86 42 55 46 46 45 D2 73 15 D6 08 C3 14 79 08 3A 08 3A 07 D9 14 56 04 FC FF C3 14
: 9D 08 5D 07 79 08 88 07 56 04 14 00 5D 07 AE 0A 5D 07 79 08 2A 03 FF 7F 98 06 5D 09 8A 17 5D 07
: 9D 08 5D 07 CE 14 9D 08 4C 07 AE 0A 0C 07 85 42 4C 4F 43 CB 85 15 D6 08 3E 0A 79 08 99 07 3A 07
: CE 14 79 08 3A 08 79 08 5D 07 FA 0A 3A 08 99 07 56 04 34 00 D9 14 73 07 56 04 14 00 19 08 5D 07
: 8E 15 3A 08 5D 07 65 09 8A 17 6D 09 FA 0A 3A 08 79 08 5D 07 FA 0A 3A 08 99 07 73 07 56 04 D6 FF
: 3A 08 CE 14 9D 08 4C 07 19 08 AE 0A 0C 07 86 28 4C 49 4E 45 A9 CE 15 D6 08 3A 07 88 09 AC 09 84
: 14 4C 07 B8 09 45 14 99 07 D6 15 99 07 88 09 0C 07 85 2E 4C 49 4E C5 2E 16 D6 08 37 16 C3 0D 95
: 0D 0C 07 87 4D 45 53 53 41 47 C5 51 16 D6 08 EE 09 79 08 56 04 1B 00 6D 0B 56 04 11 00 67 03 04
: 3E 0A 79 08 B8 09 64 14 FA 0A 59 16 37 04 0D 00 F6 0D 06 4D 53 47 20 23 20 5F 1A 0C 07 84 4C 4F
: 41 C4 63 16 D6 08 18 0A 79 08 3A 07 20 0A 79 08 3A 07 5D 09 20 0A 9D 08 B8 09 45 14 18 0A 9D 08
: 21 12 4C 07 20 0A 9D 08 4C 07 18 0A 9D 08 0C 07 C3 2D 2D BE 9D 16 D6 08 86 0C 5D 09 20 0A 9D 08
: B8 09 18 0A 79 08 08 08 74 14 FA 0A 18 0A 49 08 0C 07 98 38 A0 1A 71 B3 91 B3 C8 A9 00 71 B3 91
: B3 B5 00 86 B5 20 EF FF A6 B5 4C EE 04 86 B5 20 76 1B A6 B5 4C DC 06 AD 00 C0 CD 01 C0 29 01 4C
: DC 06 86 B5 20 81 1B A6 B5 4C 44 03 85 2D 44 49 53 C3 D0 16 36 17 B5 00 8D 0C C6 8D 0D C6 B5 02
: 8D 0A C6 8D 0B C6 B5 04 8D CD C4 8D CE C4 86 B5 AD DA C4 D0 06 20 FE E1 4C 5E 17 20 62 E2 20 EF
: E3 A6 B5 AD E1 C4 95 04 4C EC 04 84 2D 42 43 C4 2C 17 D6 08 5D 09 67 03 0A 5B 06 67 03 10 45 14
: AD 06 0C 07 83 52 2F D7 6B 17 D6 08 73 07 2A 03 DA C4 B5 08 22 08 5D 09 9D 08 5D 09 08 08 3C 0B
: 08 08 2A 03 3F 06 3C 0B AD 06 67 03 06 11 0C 5D 09 2A 03 20 03 5B 06 A1 0A 22 08 5D 09 67 03 12
: 5B 06 72 17 22 08 A1 0A 72 17 34 17 67 03 08 11 0C 0C 07 0C 07 C1 A7 84 17 D6 08 8E 10 73 07 5D
: 09 11 0C 19 08 C2 11 0C 07 86 46 4F 52 47 45 D4 D5 17 D6 08 D9 17 D5 0B 3A 08 F9 09 79 08 13 0B
: 67 03 15 11 0C 3A 07 0F 0A 79 08 5D 07 08 08 13 0B 56 04 12 00 B7 12 CF 12 79 08 3A 08 0F 0A 9D
: 08 37 04 E8 FF 3A 08 67 03 04 FA 0A EA 0B B8 0B 79 08 3A 08 5D 07 13 0B 56 04 F2 FF 08 08 6D 09
: FA 0A 9D 08 79 08 6D 0B 73 07 56 04 D9 FF 4C 07 01 0A 9D 08 0C 07 84 42 41 43 CB E9 17 D6 08 BD
: 0A FA 0A D9 0A 0C 07 C5 42 45 47 49 CE 56 18 D6 08 2B 0C BD 0A 65 09 0C 07 C5 45 4E 44 49 C6 67
: 18 D6 08 2B 0C 6D 09 58 0C BD 0A 08 08 FA 0A 22 08 9D 08 0C 07 C4 54 48 45 CE 79 18 D6 08 81 18
: 0C 07 C2 44 CF 95 18 D6 08 9F 0C DE 04 BD 0A 75 09 0C 07 C4 4C 4F 4F D0 A2 18 D6 08 75 09 58 0C
: 9F 0C 77 04 5D 18 0C 07 C5 2B 4C 4F 4F D0 B3 18 D6 08 75 09 58 0C 9F 0C A7 04 5D 18 0C 07 C5 55
: 4E 54 49 CC C8 18 D6 08 65 09 58 0C 9F 0C 56 04 5D 18 0C 07 C3 45 4E C4 DE 18 D6 08 E6 18 0C 07
: C5 41 47 41 49 CE F4 18 D6 08 65 09 58 0C 9F 0C 37 04 5D 18 0C 07 C6 52 45 50 45 41 D4 00 19 D6
: 08 3A 07 3A 07 08 19 4C 07 4C 07 6D 09 FA 0A 81 18 0C 07 C2 49 C6 16 19 D6 08 9F 0C 56 04 BD 0A
: 5D 09 D9 0A 6D 09 0C 07 C4 45 4C 53 C5 33 19 D6 08 6D 09 58 0C 9F 0C 37 04 BD 0A 5D 09 D9 0A 22
: 08 6D 09 81 18 6D 09 0C 07 C5 57 48 49 4C C5 48 19 D6 08 38 19 AE 0A 0C 07 86 53 50 41 43 45 D3
: 69 19 D6 08 5D 09 EB 13 6D 0B 56 04 0C 00 5D 09 DE 04 5E 0B 77 04 FC FF 0C 07 82 3C A3 79 19 D6
: 08 5F 0F 99 0A 9D 08 0C 07 82 23 BE 9A 19 D6 08 19 08 19 08 99 0A 79 08 5F 0F 08 08 FA 0A 0C 07
: 84 53 49 47 CE A9 19 D6 08 4A 0B 88 07 56 04 07 00 67 03 2D 47 0F 0C 07 81 A3 C0 19 D6 08 6D 0A
: 79 08 A7 14 4A 0B 67 03 09 08 08 1F 0B 56 04 07 00 67 03 07 99 07 67 03 30 99 07 47 0F 0C 07 EA
: 82 23 D3 D8 19 D6 08 DC 19 08 08 08 08 AD 06 73 07 56 04 F4 FF 0C 07 83 44 2E D2 00 1A D6 08 3A
: 07 22 08 08 08 C5 13 9F 19 05 1A C7 19 AE 19 4C 07 08 08 FA 0A 82 19 95 0D 0C 07 82 44 AE 17 1A
: D6 08 5D 09 1D 1A 5E 0B 0C 07 82 2E D2 3B 1A D6 08 3A 07 83 13 4C 07 1D 1A 0C 07 81 AE 4A 1A D6
: 08 83 13 40 1A 0C 07 81 BF 5B 1A D6 08 79 08 5F 1A 0C 07 84 4C 49 53 D4 67 1A D6 08 FD 0C F4 05
: 3A 08 32 0A 9D 08 F6 0D 06 53 43 52 20 23 20 5F 1A 67 03 10 5D 09 DE 04 F4 05 F7 04 75 09 4F 1A
: 5E 0B F7 04 32 0A 79 08 59 16 77 04 EC FF F4 05 0C 07 85 49 4E 44 45 D8 73 1A D6 08 F4 05 A1 0A
: 22 08 DE 04 F4 05 F7 04 75 09 4F 1A 5E 0B 5D 09 F7 04 59 16 ED 05 56 04 04 00 1F 07 77 04 E6 FF
: 67 03 0C D7 05 0C 07 85 54 52 49 41 C4 B2 1A D6 08 75 09 64 14 75 09 45 14 75 09 08 08 99 07 22
: 08 DE 04 F4 05 F7 04 7A 1A 77 04 F8 FF F4 05 67 03 0F 6D 16 F4 05 67 03 0C D7 05 0C 07 85 56 4C
: 49 53 D4 E7 1A D6 08 67 03 80 29 0A 9D 08 4B 0A 79 08 79 08 29 0A 79 08 88 09 3C 0B 56 04 0A 00
: F4 05 5D 09 29 0A 9D 08 3A 08 03 11 5E 0B 5E 0B EA 0B B8 0B 79 08 3A 08 73 07 ED 05 AD 06 56 04
: D4 FF 19 08 0C 07 83 4D 4F CE 1D 1B 6E 1B 86 B5 00 A6 B5 4C 44 03 AD 11 D0 10 FB AD 10 D0 49 80
: 60 A9 8D 20 EF FF 60 A9 20 20 EF FF 60 AD 11 D0 10 FB AD 10 D0 60
300R

442
code/programs/HAMMURABI.TXT Normal file
View File

@ -0,0 +1,442 @@
004A: 00 03 00 10 8A 0B
0050: 05 BF FD BF BF BF F8 F8
0058: BF B7 7F BF BF B7 FF 21
0060: F7 BF 3F 3F 3F BF 77 10
0068: 60 3C FF FF 8F 2F 01 03
0070: ED ED ED ED ED EC ED ED
0078: FF F7 B7 F7 FF B7 FF 35
0080: 17 00 F7 F7 BD FD DF F7
0088: B7 B7 F7 F7 00 00 01 00
0090: 00 00 00 00 03 03 10 00
0098: 82 59 5E 9C 13 7C F3 FF
00A0: 03 00 F7 75 35 04 00 00
00A8: 96 1B 00 01 CD F7 4D 0E
00B0: 6C DF 05 00 7E 9C B7 00
00B8: F6 F7 FF FF 00 00 FE A0
00C0: 09 04 04 09 03 FF FF FF
00C8: 0A 0C F3 04 97 03 03 A0
00D0: 5B 03 97 03 00 00 01 00
00D8: 20 3F 64 0F 76 0F 00 06
00E0: 10 02 00 10 60 0F 76 0F
00E8: 43 11 0C 0C 0F 0B 0A 0A
00F0: 0A 10 FD 5F E8 75 F7 25
00F8: 00 00 00 00 00 20 00 ED
0300: 9E 40 0A 03 B2 B3 1E 00
0308: 0C 03 90 40 19 03 B0 B1
0310: B2 B3 B4 B5 B6 B7 B8 B9
0318: 1E 88 B1 1F 03 01 00 A0
0320: B1 25 03 00 00 B4 00 2B
0328: 03 01 00 A0 00 31 03 64
0330: 00 A6 00 37 03 8C 08 90
0338: 00 3D 03 17 00 8A 00 43
0340: 03 00 00 B2 00 49 03 01
0348: 00 82 00 4F 03 FF 03 92
0350: 00 55 03 04 00 A2 00 5B
0358: 03 FE FF 88 00 61 03 64
0360: 00 86 00 67 03 00 00 9E
0368: B1 6D 03 17 00 9E B2 73
0370: 03 0A 00 9E B3 79 03 00
0378: 00 9E B4 7F 03 0B 00 86
0380: B9 85 03 00 00 82 B9 8B
0388: 03 0A 00 A6 B9 91 03 15
0390: 00 92 B9 97 03 BA 01 00
0398: 00 00 00 00 00 00 00 00
03A0: 00 00 00 00 00 00 00 00
03A8: 00 00 00 00 00 00 00 00
03B0: 00 00 00 00 00 00 00 00
03B8: 00 00 00 00 00 00 00 00
03C0: 00 00 00 00 00 00 00 00
03C8: 00 00 00 00 00 00 00 00
03D0: 00 00 00 00 00 00 00 00
03D8: 00 00 00 00 00 00 00 00
03E0: 00 00 00 00 00 00 00 00
03E8: 00 00 00 00 00 00 B4 00
03F0: BA 04 0A 00 09 00 0A 00
03F8: 09 00 0A 00 08 00 0A 00
0400: 0A 00 0A 00 09 00 00 00
0408: 00 00 00 00 00 00 00 00
0410: 00 00 00 00 00 00 00 00
0418: 00 00 00 00 00 00 00 00
0420: 00 00 00 00 00 00 00 00
0428: 00 00 00 00 00 00 00 00
0430: 00 00 00 00 00 00 00 00
0438: 00 00 00 00 00 00 00 00
0440: 00 00 00 00 00 00 00 00
0448: 00 00 00 00 00 00 00 00
0450: 00 00 00 00 00 00 00 00
0458: 00 00 00 00 00 00 00 00
0460: 00 00 00 00 00 00 00 00
0468: 00 00 00 00 00 00 00 00
0470: 00 00 00 00 00 00 00 00
0478: 00 00 00 00 00 00 00 00
0480: 00 00 00 00 00 00 00 00
0488: 00 00 00 00 00 00 00 00
0490: 00 00 00 00 00 00 00 00
0498: 00 00 00 00 00 00 00 00
04A0: 00 00 00 00 00 00 00 00
04A8: 00 00 00 00 00 00 00 00
04B0: 00 00 00 00 00 00 00 00
04B8: 00 00 88 00 86 05 09 00
04C0: 01 00 02 00 01 00 03 00
04C8: 01 00 02 00 02 00 02 00
04D0: 01 00 00 00 00 00 00 00
04D8: 00 00 00 00 00 00 00 00
04E0: 00 00 00 00 00 00 00 00
04E8: 00 00 00 00 00 00 00 00
04F0: 00 00 00 25 05 00 4E CF
04F8: 40 22 B5 05 00 72 03 4E
0500: C8 40 22 B1 0A 00 72 03
0508: C8 40 70 28 B0 B1 B2 B3
0510: B4 B5 B6 B7 B8 B9 29 01
0518: 07 4B 00 63 03 63 01 29
0520: 50 00 61 28 D4 D2 D9 A0
0528: D9 CF D5 D2 A0 C8 C1 CE
0530: C4 A0 C1 D4 A0 C7 CF D6
0538: C5 D2 CE C9 CE C7 A0 C1
0540: CE C3 C9 C5 CE D4 29 01
0548: 2E 52 00 61 28 D3 D5 CD
0550: C5 D2 C9 C1 A0 D3 D5 C3
0558: C3 C5 D3 D3 C6 D5 CC CC
0560: D9 A0 C6 CF D2 A0 C1 A0
0568: B1 B0 AD D9 C5 C1 D2 A0
0570: D4 C5 D2 CD 29 01 11 55
0578: 00 61 28 CF C6 A0 CF C6
0580: C6 C9 C3 C5 AE 29 01 11
0588: 5F 00 C4 B1 71 B1 01 00
0590: 03 D0 B1 71 B0 00 00 01
0598: 21 64 00 DA 71 B0 00 00
05A0: 03 D0 71 B9 5F 00 03 D3
05A8: 71 B2 F0 0A 03 C8 71 B3
05B0: B8 0B 03 C5 71 C8 13 D3
05B8: 01 1B 6E 00 D9 71 B3 03
05C0: 00 03 C1 71 C8 15 D9 03
05C8: C9 71 B5 05 00 03 D1 71
05D0: B1 01 00 01 09 D2 00 C4
05D8: 71 B0 00 00 01 2C D7 00
05E0: 63 03 63 03 61 28 C8 C1
05E8: CD D5 D2 C1 C2 C9 BA A0
05F0: C9 A0 C2 C5 C7 A0 D4 CF
05F8: A0 D2 C5 D0 CF D2 D4 A0
0600: D4 CF A0 D9 CF D5 AC 29
0608: 01 4B D8 00 DA 71 DA 12
0610: B1 01 00 03 61 28 C9 CE
0618: A0 D9 C5 C1 D2 A0 29 46
0620: DA 45 28 AC A0 29 46 C4
0628: 45 28 A0 D0 C5 CF D0 CC
0630: C5 A0 D3 D4 C1 D2 D6 C5
0638: C4 AC 29 03 62 C9 45 28
0640: A0 C3 C1 CD C5 A0 D4 CF
0648: A0 D4 C8 C5 A0 C3 C9 D4
0650: D9 AE 29 01 09 DA 00 D0
0658: 71 D0 12 C9 01 0E E3 00
0660: 60 D1 19 B0 00 00 24 B2
0668: E6 00 01 0B E4 00 D0 71
0670: D0 15 B2 02 00 01 46 E5
0678: 00 61 28 C1 A0 C8 CF D2
0680: D2 C9 C2 CC C5 A0 D0 CC
0688: C1 C7 D5 C5 A0 D3 D4 D2
0690: D5 C3 CB A1 A1 A1 29 03
0698: 61 28 AD AD AD A0 C8 C1
06A0: CC C6 A0 D4 C8 C5 A0 D0
06A8: CF D0 D5 CC C1 D4 C9 CF
06B0: CE A0 C4 C9 C5 C4 A0 AD
06B8: AD AD 29 01 1F E6 00 61
06C0: 28 D4 C8 C5 A0 D0 CF D0
06C8: D5 CC C1 D4 C9 CF CE A0
06D0: C9 D3 A0 CE CF D7 A0 29
06D8: 46 D0 01 25 E8 00 61 28
06E0: D4 C8 C5 A0 C3 C9 D4 D9
06E8: A0 CE CF D7 A0 CF D7 CE
06F0: D3 A0 29 46 C1 45 28 A0
06F8: C1 C3 D2 C5 D3 AE 29 01
0700: 2C E9 00 61 28 D9 CF D5
0708: A0 C8 C1 D2 D6 C5 D3 D4
0710: C5 C4 A0 29 46 D9 45 28
0718: A0 C2 D5 D3 C8 C5 CC D3
0720: A0 D0 C5 D2 A0 C1 C3 D2
0728: C5 AC 29 01 1E FA 00 61
0730: 28 D2 C1 D4 D3 A0 C1 D4
0738: C5 A0 29 46 C5 45 28 A0
0740: C2 D5 D3 C8 C5 CC D3 AC
0748: 29 01 2D FC 00 61 28 D9
0750: CF D5 A0 CE CF D7 A0 C8
0758: C1 D6 C5 A0 29 46 D3 45
0760: 28 A0 C2 D5 D3 C8 C5 CC
0768: D3 A0 C9 CE A0 D3 D4 CF
0770: D2 C5 AE 29 03 63 01 0E
0778: 0E 01 60 DA 16 B1 0B 00
0780: 24 B8 5C 03 01 18 36 01
0788: C3 71 2F 3F B1 0A 00 72
0790: 12 B1 01 00 03 D9 71 C3
0798: 12 B1 11 00 01 31 38 01
07A0: 61 28 CC C1 CE C4 A0 C9
07A8: D3 A0 D4 D2 C1 C4 C9 CE
07B0: C7 A0 C1 D4 A0 29 46 D9
07B8: 45 28 A0 C2 D5 D3 C8 C5
07C0: CC D3 A0 D0 C5 D2 A0 C1
07C8: C3 D2 C5 AC 29 01 29 40
07D0: 01 61 28 C8 CF D7 A0 CD
07D8: C1 CE D9 A0 C1 C3 D2 C5
07E0: D3 A0 C4 CF A0 D9 CF D5
07E8: A0 D7 C9 D3 C8 A0 D4 CF
07F0: A0 C2 D5 D9 29 47 01 0D
07F8: 41 01 5C B5 88 13 03 D1
0800: 71 CF B1 01 0E 42 01 60
0808: D9 14 D1 1A D3 24 B3 4A
0810: 01 01 08 43 01 5C B7 C6
0818: 02 01 08 44 01 5F B3 40
0820: 01 01 10 4A 01 63 03 60
0828: D1 16 B0 00 00 24 B3 54
0830: 01 01 17 4B 01 C1 71 C1
0838: 12 D1 03 D3 71 D3 13 D9
0840: 14 D1 03 C3 71 B0 00 00
0848: 01 08 4E 01 5F B4 90 01
0850: 01 2A 54 01 61 28 C8 CF
0858: D7 A0 CD C1 CE D9 A0 C1
0860: C3 D2 C5 D3 A0 C4 CF A0
0868: D9 CF D5 A0 D7 C9 D3 C8
0870: A0 D4 CF A0 D3 C5 CC CC
0878: 29 47 01 0D 55 01 5C B5
0880: 88 13 03 D1 71 CF B1 01
0888: 0C 56 01 60 D1 1C C1 24
0890: B3 5E 01 01 08 57 01 5C
0898: B7 D0 02 01 08 58 01 5F
08A0: B3 54 01 01 17 5E 01 C1
08A8: 71 C1 13 D1 03 D3 71 D3
08B0: 12 D9 14 D1 03 C3 71 B0
08B8: 00 00 01 05 90 01 63 01
08C0: 38 9A 01 61 28 C8 CF D7
08C8: A0 CD C1 CE D9 A0 C2 D5
08D0: D3 C8 C5 CC D3 A0 C4 CF
08D8: A0 D9 CF D5 A0 D7 C9 D3
08E0: C8 A0 D4 CF A0 C6 C5 C5
08E8: C4 A0 D9 CF D5 D2 A0 D0
08F0: C5 CF D0 CC C5 29 47 01
08F8: 0D 9B 01 5C B5 88 13 03
0900: D1 71 CF B1 01 0C A4 01
0908: 60 D1 1A D3 24 B4 AE 01
0910: 01 08 A5 01 5C B7 C6 02
0918: 01 08 A6 01 5F B4 9A 01
0920: 01 11 AE 01 D3 71 D3 13
0928: D1 03 C3 71 B1 01 00 03
0930: 63 01 38 B8 01 61 28 C8
0938: CF D7 A0 CD C1 CE D9 A0
0940: C1 C3 D2 C5 D3 A0 C4 CF
0948: A0 D9 CF D5 A0 D7 C9 D3
0950: C8 A0 D4 CF A0 D0 CC C1
0958: CE D4 29 03 61 28 D7 C9
0960: D4 C8 A0 D3 C5 C5 C4 29
0968: 47 01 18 B9 01 5C B5 88
0970: 13 03 C4 71 CF B1 03 60
0978: C4 16 B0 00 00 24 B5 FF
0980: 01 01 0C BD 01 60 C4 1A
0988: C1 24 B4 C2 01 01 08 BE
0990: 01 5C B7 D0 02 01 08 BF
0998: 01 5F B4 B8 01 01 10 C2
09A0: 01 60 C4 15 B2 02 00 1C
09A8: D3 24 B4 C7 01 01 08 C4
09B0: 01 5C B7 C6 02 01 08 C5
09B8: 01 5F B4 B8 01 01 10 C7
09C0: 01 60 C4 1A B1 0A 00 14
09C8: D0 24 B5 FE 01 01 25 CC
09D0: 01 61 28 C2 D5 D4 A0 D9
09D8: CF D5 A0 C8 C1 D6 C5 A0
09E0: CF CE CC D9 A0 29 46 D0
09E8: 45 28 A0 D0 C5 CF D0 CC
09F0: C5 29 01 08 D6 01 5F B4
09F8: B8 01 01 0D FE 01 D3 71
0A00: D3 13 C4 15 B2 02 00 01
0A08: 08 FF 01 5C B8 20 03 01
0A10: 13 03 02 D9 71 C3 03 C8
0A18: 71 C4 14 D9 03 C5 71 B0
0A20: 00 00 01 08 09 02 5C B8
0A28: 20 03 01 19 0A 02 C3 B9
0A30: 71 2F 3F B2 02 00 72 03
0A38: 60 C3 B9 17 B1 01 00 24
0A40: B5 12 02 01 09 0D 02 C5
0A48: 71 D3 15 C3 01 0B 12 02
0A50: D3 71 D3 13 C5 12 C8 01
0A58: 08 13 02 5C B8 20 03 01
0A60: 2D 15 02 C1 B9 71 C1 15
0A68: B1 64 00 03 D3 B9 71 D3
0A70: 15 B1 64 00 03 C9 B9 71
0A78: C3 14 38 B2 14 00 14 C1
0A80: B9 12 D3 B9 72 03 C9 71
0A88: C9 B9 15 D0 01 0B 1C 02
0A90: C3 71 D1 15 B2 14 00 01
0A98: 10 1E 02 D1 71 2F 3F B2
0AA0: 14 00 72 13 B3 03 00 01
0AA8: 0C 26 02 60 D0 1C C3 24
0AB0: B2 D2 00 01 1A 28 02 C4
0AB8: 71 D0 13 C3 03 60 B1 0A
0AC0: 00 14 C4 19 B4 04 00 14
0AC8: D0 24 B5 30 02 01 1D 29
0AD0: 02 D0 B1 71 38 38 DA 13
0AD8: B1 01 00 72 14 D0 B1 12
0AE0: C4 14 B1 64 00 15 D0 72
0AE8: 15 DA 01 14 2B 02 D0 71
0AF0: C3 03 C4 B1 71 C4 B1 12
0AF8: C4 03 5F B2 D7 00 01 30
0B00: 30 02 63 03 61 28 D9 CF
0B08: D5 A0 D3 D4 C1 D2 D6 C5
0B10: C4 A0 29 46 C4 45 28 A0
0B18: D0 C5 CF D0 CC C5 A0 C9
0B20: CE A0 CF CE C5 A0 D9 C5
0B28: C1 D2 A1 A1 A1 29 01 57
0B30: 35 02 61 28 C4 D5 C5 A0
0B38: D4 CF A0 D4 C8 C9 D3 A0
0B40: C5 D8 D4 D2 C5 CD C5 A0
0B48: CD C9 D3 CD C1 CE C1 C7
0B50: C5 CD C5 CE D4 A0 D9 CF
0B58: D5 29 03 61 28 C8 C1 D6
0B60: C5 A0 CE CF D4 A0 CF CE
0B68: CC D9 A0 C2 C5 C5 CE A0
0B70: C9 CD D0 C5 C1 C3 C8 C5
0B78: C4 A0 C1 CE C4 A0 D4 C8
0B80: D2 CF D7 CE 29 01 2B 36
0B88: 02 61 28 CF D5 D4 A0 CF
0B90: C6 A0 CF C6 C6 C9 C3 C5
0B98: A0 C2 D5 D4 A0 D9 CF D5
0BA0: A0 C8 C1 D6 C5 A0 C1 CC
0BA8: D3 CF A0 C2 C5 C5 CE 29
0BB0: 01 27 37 02 61 28 C4 C5
0BB8: C3 CC C1 D2 C5 C4 A0 A7
0BC0: CE C1 D4 C9 CF CE C1 CC
0BC8: A0 C6 C9 CE CB A7 A1 A1
0BD0: A1 29 03 5F B9 DE 03 01
0BD8: 2D C6 02 63 03 61 28 C8
0BE0: C1 CD D5 D2 C1 C2 C9 BA
0BE8: A0 D4 C8 C9 CE CB A0 C1
0BF0: C7 C1 C9 CE AC A0 D9 CF
0BF8: D5 A0 C8 C1 D6 C5 A0 CF
0C00: CE CC D9 29 01 24 C7 02
0C08: 62 D3 45 28 A0 C2 D5 D3
0C10: C8 C5 CC D3 A0 CF C6 A0
0C18: C7 D2 C1 C9 CE AE A0 CE
0C20: CF D7 A0 D4 C8 C5 CE 29
0C28: 01 05 C8 02 5B 01 1F D0
0C30: 02 63 03 61 28 C8 C1 CD
0C38: D5 D2 C1 C2 C9 BA A0 D4
0C40: C8 C9 CE CB A0 C1 C7 C1
0C48: C9 CE AC 29 01 29 D1 02
0C50: 61 28 D9 CF D5 A0 CF D7
0C58: CE A0 CF CE CC D9 A0 29
0C60: 46 C1 45 28 A0 C1 C3 D2
0C68: C5 D3 AE A0 CE CF D7 A0
0C70: D4 C8 C5 CE 29 01 05 DA
0C78: 02 5B 01 10 20 03 C3 71
0C80: 2F 3F B5 05 00 72 12 B1
0C88: 01 00 01 05 21 03 5B 01
0C90: 55 5C 03 61 28 C9 CE A0
0C98: D9 CF D5 D2 A0 B1 B0 A0
0CA0: D9 C5 C1 D2 A0 D4 C5 D2
0CA8: CD A0 CF C6 A0 CF C6 C6
0CB0: C9 C3 C5 A0 29 46 D0 B1
0CB8: 03 61 28 D0 C5 D2 C3 C5
0CC0: CE D4 A0 CF C6 A0 D4 C8
0CC8: C5 A0 D0 CF D0 D5 CC C1
0CD0: D4 C9 CF CE A0 D3 D4 C1
0CD8: D2 D6 C5 C4 A0 CF CE A0
0CE0: D4 C8 C5 29 01 2E 5E 03
0CE8: 61 28 C1 D6 C5 D2 C1 C7
0CF0: C5 AC A0 C9 AE C5 AE AC
0CF8: A0 C1 A0 D4 CF D4 C1 CC
0D00: A0 CF C6 A0 29 46 C4 B1
0D08: 45 28 A0 D0 C5 CF D0 CC
0D10: C5 29 01 14 61 03 61 28
0D18: C4 C9 C5 C4 A1 A1 A1 29
0D20: 03 CC 71 C1 15 D0 01 4A
0D28: 66 03 61 28 D9 CF D5 A0
0D30: D3 D4 C1 D2 D4 C5 C4 A0
0D38: D7 C9 D4 C8 A0 B1 B0 A0
0D40: C1 C3 D2 C5 D3 A0 D0 C5
0D48: D2 A0 D0 C5 D2 D3 CF CE
0D50: A0 29 03 61 28 C1 CE C4
0D58: A0 C5 CE C4 C5 C4 A0 D7
0D60: C9 D4 C8 A0 29 46 CC 45
0D68: 28 A0 C1 C3 D2 C5 D3 29
0D70: 01 14 6B 03 61 28 D0 C5
0D78: D2 A0 D0 C5 D2 D3 CF CE
0D80: AE 29 03 63 01 0F 70 03
0D88: 60 D0 B1 19 B3 21 00 24
0D90: B5 35 02 01 0E 75 03 60
0D98: CC 1C B7 07 00 24 B5 35
0DA0: 02 01 0F 7A 03 60 D0 B1
0DA8: 19 B1 0A 00 24 B9 AC 03
0DB0: 01 0E 7C 03 60 CC 1C B9
0DB8: 09 00 24 B9 AC 03 01 0F
0DC0: 7F 03 60 D0 B1 19 B3 03
0DC8: 00 24 B9 C0 03 01 0E 80
0DD0: 03 60 CC 1C B1 0A 00 24
0DD8: B9 C0 03 01 48 84 03 61
0DE0: 28 C1 A0 C6 C1 CE D4 C1
0DE8: D3 D4 C9 C3 A0 D0 C5 D2
0DF0: C6 CF D2 CD C1 CE C3 C5
0DF8: A1 A1 A1 29 03 61 28 C3
0E00: C8 C1 D2 CC C5 CD C1 CE
0E08: C7 C5 AC C4 C9 D3 D2 C1
0E10: C5 CC C9 AC A0 C1 CE C4
0E18: A0 CA C5 C6 C6 C5 D2 D3
0E20: CF CE 29 01 30 89 03 61
0E28: 28 C3 CF CD C2 C9 CE C5
0E30: C4 A0 C3 CF D5 CC C4 A0
0E38: CE CF D4 A0 C8 C1 D6 C5
0E40: A0 C4 CF CE C5 A0 C2 C5
0E48: D4 D4 C5 D2 A1 29 03 5F
0E50: B9 DE 03 01 1D AC 03 61
0E58: 28 C1 A0 CC CF D5 D3 D9
0E60: A0 D0 C5 D2 C6 CF D2 CD
0E68: C1 CE C3 C5 A1 A1 A1 29
0E70: 01 4B B1 03 61 28 D4 C8
0E78: C5 A0 D0 C5 CF D0 CC C5
0E80: A0 A8 D2 C5 CD C1 C9 CE
0E88: C9 CE C7 A9 A0 C6 C9 CE
0E90: C4 A0 D9 CF D5 A0 C1 CE
0E98: 29 03 61 28 D5 CE D0 CC
0EA0: C5 C1 D3 C1 CE D4 A0 D2
0EA8: D5 CC C5 D2 AC A0 C1 CE
0EB0: C4 A0 C6 D2 C1 CE CB CC
0EB8: D9 A0 29 01 1D B6 03 61
0EC0: 28 C8 C1 D4 C5 A0 D9 CF
0EC8: D5 D2 A0 C7 D5 D4 D3 A1
0ED0: A1 A1 29 03 5F B9 DE 03
0ED8: 01 2E C0 03 61 28 D9 CF
0EE0: D5 D2 A0 D0 C5 D2 C6 CF
0EE8: D2 CD C1 CE C3 C5 A0 C3
0EF0: CF D5 CC C4 A0 C8 C1 D6
0EF8: C5 A0 C2 C5 C5 CE A0 C2
0F00: C5 D4 D4 C5 D2 29 01 35
0F08: C5 03 61 28 C2 D5 D4 A0
0F10: D7 C1 D3 CE A7 D4 A0 D4
0F18: CF CF A0 C2 C1 C4 AC A0
0F20: 29 46 2F 3F D0 15 B2 02
0F28: 00 72 45 28 A0 D0 C5 CF
0F30: D0 CC C5 A0 D7 CF D5 CC
0F38: C4 A0 29 01 24 CA 03 61
0F40: 28 CC CF D6 C5 A0 D4 CF
0F48: A0 D3 C5 C5 A0 D9 CF D5
0F50: A0 C1 D3 D3 C1 D3 D3 C9
0F58: CE C1 D4 C5 C4 AE 29 01
0F60: 16 DE 03 61 28 D3 CF A0
0F68: CC CF CE C7 A0 C6 CF D2
0F70: A0 CE CF D7 29 01 05 E7
0F78: 03 51 01 07 88 13 52 CF
0F80: 40 01 11 92 13 CF B1 71
0F88: B0 00 00 03 CF B2 71 B1
0F90: 01 00 01 21 9C 13 55 CF
0F98: B3 56 3B CF 40 72 57 B1
0FA0: 01 00 58 36 B1 01 00 03
0FA8: 55 CF B4 56 B1 01 00 57
0FB0: B1 0A 00 01 2A A6 13 60
0FB8: CF 40 2A CF B3 23 CF B3
0FC0: 72 39 C8 40 2A CF B4 23
0FC8: CF B4 72 25 CF B1 71 CF
0FD0: B1 12 CF B2 14 38 CF B4
0FD8: 13 B1 01 00 72 01 1D B0
0FE0: 13 59 CF B4 03 60 CF B3
0FE8: 17 B1 01 00 25 CF B2 71
0FF0: CF B2 14 B1 0A 00 03 59
0FF8: CF B3 01 05 BA 13 5B 01
E2B3R
RUN

View File

@ -0,0 +1,55 @@
0300: 49 4E 56 41 4C 49 44 00
0308: 59 4F 55 00 57 49 4E 21
0310: 00 4C 4F 53 45 21 00 49
0318: 20 50 4C 41 59 20 00 53
0320: 55 4D 20 49 53 20 00 AD
0328: 11 D0 10 FB AD 10 D0 29
0330: 7F 60 A9 3F 20 EF FF A9
0338: 20 4C EF FF A9 0D 4C EF
0340: FF C9 10 90 05 20 DC FF
0348: D0 03 20 E5 FF 4C 3C 03
0350: A0 00 B1 03 F0 06 20 EF
0358: FF C8 D0 F6 60 49 30 C9
0360: 0A 90 08 69 88 C9 FA 90
0368: 03 29 0F 60 A9 FF 60 B5
0370: 00 20 5D 03 C9 FF F0 17
0378: 48 E8 B5 00 20 5D 03 C9
0380: FF D0 02 68 60 85 02 68
0388: 0A 0A 0A 0A 65 02 60 A9
0390: FF 60 A9 00 85 07 C6 07
0398: 85 05 85 06 E6 06 60 A9
03A0: 17 85 03 A9 03 85 04 20
03A8: 50 03 60 A5 05 C5 06 F0
03B0: 0C 30 16 A9 11 18 65 06
03B8: 85 06 4C AB 03 A5 05 65
03C0: 06 29 0F D0 09 A9 05 D0
03C8: 05 A5 06 38 E5 05 48 48
03D0: 20 9F 03 68 20 41 03 68
03D8: 60 20 32 03 A2 00 86 00
03E0: 86 01 20 27 03 C9 0D F0
03E8: 12 C9 30 30 F5 C9 3A 10
03F0: F1 95 00 20 EF FF E8 E0
03F8: 02 D0 E7 20 3C 03 A2 00
0400: 20 6F 03 F0 09 C9 FF F0
0408: 05 C9 11 B0 01 60 A9 00
0410: 85 03 A9 03 85 04 20 50
0418: 03 20 3C 03 4C D9 03 A9
0420: 1F 85 03 A9 03 85 04 4C
0428: 50 03 A5 07 6A 90 05 A9
0430: 49 4C EF FF A9 08 85 03
0438: A9 03 85 04 20 50 03 60
0440: F8 20 92 03 E6 07 20 1F
0448: 04 A5 05 20 41 03 A5 07
0450: 6A 90 05 20 AB 03 D0 03
0458: 20 D9 03 18 65 05 B0 04
0460: 85 05 D0 E0 48 48 20 3C
0468: 03 20 1F 04 A9 01 20 E5
0470: FF 68 20 DC FF 20 3C 03
0478: 20 3C 03 20 2A 04 20 37
0480: 03 68 F0 0B A9 11 85 03
0488: A9 03 85 04 38 B0 08 A9
0490: 0C 85 03 A9 03 85 04 20
0498: 50 03 20 3C 03 20 3C 03
04A0: 4C 40 04 40 5D 1C 8C 77
04A8: 0A 08 16 E8 31 1B 8F
474R

15
code/programs/LIFE.TXT Normal file
View File

@ -0,0 +1,15 @@
2000: A2 00 A9 A0 9D 00 24 9D 00 25 9D 00 26 9D 00 27 E8 D0 F1 BD 80 21 20 EF FF E8 E0 38 D0 F5 20 02
: 21 C9 8D D0 F9 20 3F 21 29 3F 69 20 85 F9 A0 00 20 3F 21 29 03 18 69 24 85 F1 A5 FA 85 F0 A9 AA
: 91 F0 C6 F9 D0 EA A9 24 85 F9 A9 40 85 F8 A2 27 A9 AD 9D D8 27 9D 40 24 CA 10 F7 B1 F8 20 EF FF
: E6 F8 D0 F7 E6 F9 A5 F9 C9 28 D0 EF 20 02 21 A0 00 20 F3 20 B1 F0 91 F2 E6 F0 E6 F2 D0 F6 E6 F1
: E6 F3 A5 F1 C9 28 D0 EC 20 61 21 A0 00 B1 F2 C9 AA D0 0A A0 27 20 14 21 A0 01 20 1D 21 E6 F0 E6
: F2 D0 E8 E6 F1 E6 F3 A5 F1 C9 28 D0 DE 18 A2 27 BD D8 27 7D 68 24 9D 68 24 BD 40 24 7D B0 27 9D
: B0 27 CA 10 EB 20 F3 20 A0 00 B1 F0 C9 02 D0 04 B1 F2 D0 0A C9 03 D0 04 A9 AA D0 02 A9 A0 91 F0
: E6 F0 E6 F2 D0 E2 E6 F1 E6 F3 A5 F3 C9 2C D0 D8 4C 46 20 A9 24 85 F1 A9 28 85 F3 A9 40 85 F0 85
: F2 60 E6 FA D0 02 E6 FB AD 11 D0 10 F5 AD 10 D0 20 EF FF 60 20 1D 21 C8 C0 2A D0 F8 60 18 B1 F0
: 69 01 91 F0 84 F9 38 A5 F0 E5 F9 85 F6 A5 F1 E9 00 85 F7 A0 00 B1 F6 18 69 01 91 F6 A4 F9 60 A5
: FB 85 F6 A5 FA 0A 26 F6 0A 26 F6 18 65 FA 48 A5 F6 65 FB 85 FB 68 69 11 85 FA A5 FB 69 36 85 FB
: 60 20 F3 20 A9 00 A8 91 F0 E6 F0 D0 FA E6 F1 A6 F1 E0 28 D0 F2 20 F3 20 60 A0 A0 A0 A0 A0 A0 A0
: 8D 8D 8D 8D C3 CF CE D7 C1 D9 A7 D3 A0 C7 C1 CD C5 A0 CF C6 A0 CC C9 C6 C5 8D 8D D0 CC C5 C1 D3
: C5 A0 D4 D9 D0 C5 A0 D9 CF D5 D2 A0 C6 D5 CC CC A0 CE C1 CD C5 AE 8D 8D
2000R

56
code/programs/LUNAR.TXT Normal file
View File

@ -0,0 +1,56 @@
0300: 20 00 04 20 00 04 20 71 06 20 00 04 A9 00 85 00 85 01 85 05 85 08 85 09 A9 05 85 02 A9 50 85 04
: A9 20 85 06 A9 01 85 07 20 00 04 20 72 07 20 00 04 20 12 06 24 08 10 10 24 05 30 12 20 00 04 20
: 31 08 A9 00 85 0A F0 06 20 00 05 20 2E 05 20 58 05 A5 04 D0 04 A9 00 85 09 20 B7 05 20 F7 05 A5
: 02 F0 03 4C 2E 03 A5 01 F0 03 4C 2E 03 20 00 04 20 35 04 20 00 04 20 12 06 20 00 04 20 00 04 A5
: 04 F0 14 C9 03 90 10 C9 07 90 06 20 06 09 4C 9A 03 20 A9 08 4C 9A 03 20 71 08 20 00 04 20 00 04
: 20 43 09 20 15 04 C9 59 F0 0C 20 00 04 20 00 04 20 9A 09 4C 1F FF 4C 09 03 A9 0D 20 EF FF A9 0A
: 20 EF FF 60 A9 20 20 EF FF 60 AD AD 12 D0 10 FB AD 10 D0 29 7F 20 EF FF 60 49 30 C9 0A 10 06 4C
: E8 03 FA 90 03 29 0F 60 A9 FF 60 00 10 38 88 03 00 00 08 01 80 08 20 00 00 00 00 00 00 1C C4 00
: 48 A9 0D 20 EF FF A9 0A 20 EF FF 68 60 48 A9 20 20 EF FF 68 60 AD 11 D0 10 FB AD 10 D0 29 7F 20
: EF FF 60 49 30 C9 0A 30 06 4C 32 04 FA 90 03 29 0F 60 A9 99 60 20 00 04 20 53 08 20 00 04 60 A5
: 06 85 0A A9 FF 85 08 60 05 00 AA AE 01 00 00 00 A9 8D A2 18 20 EF FF CA D0 FA 60 00 60 FF FF FF
: 97 90 CD 2B FF FF FF FF 8D D2 E6 D3 FF FF FF FF A5 4C 85 4D A9 00 85 4E 85 4F CE 4F 00 D0 FB CE
: 4E 00 D0 F6 CE 4D 00 D0 F1 60 78 B7 FF FF FF FF 4B 50 FE FF FF FF F7 FF 36 BA CF FB FF FF 7F FF
: B8 11 8A A7 FF FF FF FF B0 56 3E F7 FF FF F3 FF B5 55 35 72 FF FF FF FF A3 36 8D 27 FF FF F7 FD
: 57 6E B2 A7 FF FF F7 FF 08 2C 9A 13 FF FF FF FF C5 B3 3E BD FF FF FF FF BD F1 CF 6B FF FF FF FF
: 00 56 45 4D 45 4E 54 0D 0A 0A 4D 41 58 49 4D 55 4D 98 33 37 FF FF FF FF F8 F4 FE AD FF FF BE FF
: 20 15 04 20 23 04 85 0B 20 15 04 C9 0D F0 1A 20 23 04 85 0C A5 0B 0A 0A 0A 0A 05 0C C9 31 B0 03
: 85 0A 60 20 67 09 4C 00 05 A5 0B 4C 1C 05 F8 38 A5 06 E5 0A 85 0B A5 07 E9 00 85 0C A5 07 C9 01
: F0 0C A5 06 C5 0A F0 02 B0 04 20 3F 04 EA A5 0B 85 06 A5 0C 85 07 60 40 F8 38 24 09 10 18 A5 04
: E9 05 85 0B C5 04 90 14 38 A9 00 E5 0B 85 04 A9 00 85 09 4C 7E 05 F8 18 A5 04 69 05 85 04 24 09
: 10 09 18 A5 04 65 0A 85 04 D8 60 38 A5 04 E5 0A 85 0B A5 0A C9 00 F0 19 A5 0B C5 04 F0 02 90 0D
: 38 A9 00 E5 0B 85 04 A9 FF 85 09 D8 60 85 04 D8 60 A5 0B 85 04 D8 60 F8 38 24 09 30 25 A5 01 E5
: 04 85 0B A5 02 F0 0B E9 00 85 02 4C F1 05 A5 0B F0 06 A5 01 C5 0B B0 04 A9 00 F0 02 A5 0B 85 01
: D8 60 18 A5 01 65 04 85 01 A5 02 69 00 85 02 D8 60 A5 0B 85 01 D8 60 F8 18 A5 00 69 01 85 00 D8
: 60 A0 00 B9 AD 09 20 EF FF C0 0A F0 04 C8 4C 03 06 60 20 0D 04 20 0D 04 A5 00 20 DC FF A0 04 20
: 0D 04 88 D0 FA A5 02 20 DC FF A5 01 20 DC FF A0 05 20 0D 04 88 D0 FA 24 09 30 07 A9 2D 20 EF FF
: D0 05 A9 2B 20 EF FF A5 04 20 DC FF 24 08 10 01 60 A0 06 20 0D 04 88 D0 FA A5 07 20 DC FF A5 06
: 20 DC FF A0 05 20 0D 04 88 D0 FA A9 3F 20 EF FF 60 A9 84 8D 04 06 A9 06 8D 05 06 A9 ED 8D 0A 06
: 20 01 06 60 4C 55 4E 41 52 20 4C 41 4E 44 45 52 0D 0D 0A 4D 49 4E 55 53 20 56 45 4C 4F 43 49 54
: 59 20 28 2D 29 20 4D 45 41 4E 53 20 44 4F 57 4E 57 41 52 44 0D 4D 4F 56 45 4D 45 4E 54 0D 0D 50
: 4C 55 53 20 20 56 45 4C 4F 43 49 54 59 20 28 2B 29 20 4D 45 41 4E 53 20 55 50 57 41 52 44 20 4D
: 4F 56 45 4D 45 4E 54 0D 0A 0A 4D 41 58 49 4D 55 4D 20 42 55 52 4E 20 49 53 20 33 30 20 55 4E 49
: 54 53 2F 53 45 43 2E 20 20 28 42 55 52 4E 20 4D 41 59 20 42 45 20 41 4E 59 20 49 4E 54 45 47 45
: 52 20 46 52 4F 4D 20 30 20 54 4F 20 33 30 29 0D 0D 41 20 42 55 52 4E 20 4F 46 20 35 20 55 4E 49
: 54 53 2F 53 45 43 20 49 53 20 52 45 51 55 49 52 45 44 20 54 4F 0D 43 41 4E 43 45 4C 20 47 52 41
: 56 49 54 59 2E 0D 0D 0A 47 4F 4F 44 20 4C 55 43 4B 21 A9 85 8D 04 06 A9 07 8D 05 06 A9 80 8D 0A
: 06 20 01 06 60 43 4F 4E 54 52 4F 4C 20 54 4F 20 4C 55 4E 41 52 20 4D 4F 44 55 4C 45 3A 0D 0A 42
: 45 47 49 4E 20 4C 41 4E 44 49 4E 47 20 50 52 4F 43 45 44 55 52 45 0D 0D 0D 0A 20 54 49 4D 45 20
: 20 48 45 49 47 48 54 20 56 45 4C 4F 43 49 54 59 20 46 55 45 4C 20 55 4E 49 54 53 20 20 42 55 52
: 4E 0D 0A 28 53 45 43 53 29 20 28 46 45 45 54 29 20 28 46 54 2F 53 45 43 29 20 20 52 45 4D 41 49
: 4E 49 4E 47 0D 0A 00 00 00 00 00 20 28 46 45 45 54 29 00 00 00 00 20 20 28 46 54 2F 53 45 43 29
: 00 00 00 00 00 00 00 20 52 45 4D 41 49 4E 49 4E 47 A9 48 8D 04 06 A9 08 8D 05 06 A9 0A 8D 0A 06
: 20 01 06 A9 FF 85 05 60 4F 55 54 20 4F 46 20 46 55 45 4C A9 66 8D 04 06 A9 08 8D 05 06 A9 0A 8D
: 0A 06 20 01 06 60 4F 4E 20 54 48 45 20 4D 4F 4F 4E A9 84 8D 04 06 A9 08 8D 05 06 A9 24 8D 0A 06
: 20 01 06 60 50 45 52 46 45 43 54 20 4C 41 4E 44 49 4E 47 21 07 07 07 07 0D 0A 43 4F 4E 47 52 41
: 54 55 4C 41 54 49 4F 4E 53 A9 BC 8D 04 06 A9 08 8D 05 06 A9 49 8D 0A 06 20 01 06 60 57 45 4C 4C
: 2C 20 59 4F 55 20 47 4F 54 20 44 4F 57 4E 20 41 4C 49 56 45 2C 20 42 55 54 20 44 41 4D 41 47 45
: 20 54 4F 20 59 4F 55 52 20 43 52 41 46 54 20 0A 48 41 53 20 53 54 52 41 4E 44 45 44 20 59 4F 55
: 20 48 45 52 45 21 A9 19 8D 04 06 A9 09 8D 05 06 A9 28 8D 0A 06 20 01 06 60 59 4F 55 20 4A 55 53
: 54 20 43 52 45 41 4D 45 44 20 41 20 32 39 20 4D 45 47 41 42 55 43 4B 20 4C 41 4E 44 45 52 21 07
: 07 07 07 A9 56 8D 04 06 A9 09 8D 05 06 A9 10 8D 0A 06 20 01 06 60 54 52 59 20 41 47 41 49 4E 3F
: 20 20 28 59 2F 4E 29 20 00 04 A9 7D 8D 04 06 A9 09 8D 05 06 A9 1C 8D 0A 06 20 01 06 60 42 55 52
: 4E 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 2E 20 20 20 20 20 42 55 52 4E 20 3F A9 AD 8D 04 06 A9
: 09 8D 05 06 A9 0A 8D 0A 06 20 01 06 60 43 4F 4E 54 52 4F 4C 20 4F 55 54 FF
300R

View File

@ -0,0 +1,25 @@
0300: A2 08 BD 92 03 20 EF FF
0308: CA D0 F7 86 E2 E6 E3 D0
0310: 02 E6 E4 AD 11 D0 10 F5
0318: 20 A8 03 38 F8 8A 65 E2
0320: 85 E2 D8 20 A3 03 A5 E2
0328: 20 DC FF A9 A0 A8 20 EF
0330: FF A5 E3 85 E5 A5 E4 A2
0338: 05 94 E5 A0 03 4A 26 E5
0340: 36 E5 88 D0 F8 CA D0 F1
0348: 20 A8 03 20 EF FF 49 B0
0350: C9 08 B0 CF 95 EF CA E0
0358: FB D0 ED A0 FB A9 A0 20
0360: EF FF B5 F0 D5 EB D0 0D
0368: 94 EB A9 AB 95 F0 C8 D0
0370: EE A2 11 D0 8D E8 D0 EA
0378: A0 FB B6 F0 8A A2 FB D5
0380: EB D0 07 94 EB A9 AD 20
0388: EF FF E8 D0 F2 C8 D0 EA
0390: F0 89 BF D9 C4 C1 C5 D2
0398: 8D 8D CE C9 D7 A0 D5 CF
03A0: D9 A0 AB A9 8D 4C EF FF
03A8: AD 11 D0 10 FB AD 10 D0
03B0: 60
300R

View File

@ -0,0 +1,290 @@
1000: 20 9B 15 20 B3 16 20 22
1008: 10 D8 A2 FF 9A A2 C8 86
1010: B2 20 F1 14 A9 3F 85 FC
1018: 20 CE 14 20 C3 14 C9 43
1020: D0 16 A2 1F BD 5E 18 95
1028: 50 CA 10 F8 A9 00 85 FD
1030: A2 1B 86 DC A9 CC D0 22
1038: C9 45 D0 0D 20 FE 12 A5
1040: FD 49 01 85 FD A9 EE D0
1048: 11 C9 44 D0 03 4C 09 10
1050: C9 50 D0 0E 20 BE 14 20
1058: F6 13 85 FB 85 FA 85 F9
1060: D0 A7 C9 0D D0 09 20 98
1068: 13 20 37 12 4C 09 10 C9
1070: 51 F0 03 4C 27 12 4C 1F
1078: FF 99 22 06 45 32 0C 72
1080: 14 01 63 63 05 64 43 0F
1088: 63 41 05 52 25 07 44 34
1090: 0E 53 33 0F CC 99 22 07
1098: 55 32 0D 45 06 00 63 14
10A0: 01 14 13 06 34 14 04 36
10A8: 25 06 52 33 0E 43 24 0F
10B0: 44 99 25 0B 25 01 00 33
10B8: 25 07 36 34 0D 34 34 0E
10C0: 52 25 0D 45 35 04 55 22
10C8: 06 43 33 0F CC 99 52 04
10D0: 52 52 06 75 44 06 52 41
10D8: 04 43 43 0F 43 25 06 52
10E0: 32 04 42 22 07 55 34 0F
10E8: 44 99 25 07 66 43 0E 55
10F0: 55 04 54 13 01 63 34 0E
10F8: 33 01 00 52 46 04 55 22
1100: 06 43 33 0F CC 99 06 00
1108: 52 11 06 34 22 0B 22 23
1110: 06 64 14 04 43 44 06 75
1118: 25 06 31 22 07 55 34 0F
1120: 44 99 25 01 25 15 01 33
1128: 25 07 72 01 00 63 11 04
1130: 66 21 0A 56 22 06 53 35
1138: 0D 52 34 0E CC 99 35 0C
1140: 52 52 06 62 44 06 52 06
1148: 00 75 14 04 66 11 05 56
1150: 21 0B 55 24 0F 42 25 06
1158: 43 99 03 02 63 25 0B 25
1160: 41 05 54 24 0E 72 01 00
1168: 36 46 04 52 25 07 55 22
1170: 06 43 33 0F CC 99 03 07
1178: 74 14 01 52 52 04 36 23
1180: 0E 53 06 00 75 41 04 31
1188: 25 06 52 22 07 55 34 0F
1190: 44 A6 B5 30 5C A5 B0 F0
1198: 08 E0 08 D0 04 C5 E6 F0
11A0: 2E F6 E3 C9 01 D0 02 F6
11A8: E3 50 1E A0 0F A5 B1 D9
11B0: 60 00 F0 03 88 10 F8 B9
11B8: 8F 18 D5 E4 90 04 94 E6
11C0: 95 E4 18 08 75 E5 95 E5
11C8: 28 E0 04 F0 03 30 31 60
11D0: A5 E8 85 DD A9 00 85 B5
11D8: 20 98 13 20 FE 12 20 4C
11E0: 12 20 FE 12 A9 08 85 B5
11E8: 20 55 12 20 7E 13 4C 53
11F0: 14 E0 F9 D0 0B A5 60 C5
11F8: B1 D0 04 A9 00 85 B4 60
1200: 50 FD A0 07 A5 B1 D9 60
1208: 00 F0 05 88 F0 F1 10 F6
1210: B9 8F 18 D5 E2 90 02 95
1218: E2 C6 B5 A9 FB C5 B5 F0
1220: 03 20 72 13 E6 B5 60 38
1228: E9 30 C9 08 B0 06 20 43
1230: 14 20 3A 12 4C 18 10 A5
1238: F9 2C A5 FA A2 1F D5 50
1240: F0 05 CA 10 F9 A2 BB 86
1248: FB 86 B0 60 A2 10 A9 00
1250: 95 DE CA 10 FB A9 10 85
1258: B0 C6 B0 10 01 60 20 6B
1260: 13 A4 B0 A2 08 86 B6 C0
1268: 08 10 41 C0 06 10 2E C0
1270: 04 10 1F C0 01 F0 09 10
1278: 0E 20 DA 12 D0 FB F0 D9
1280: 20 E8 12 D0 FB F0 D2 A2
1288: 04 86 B6 20 E8 12 D0 FB
1290: F0 C7 20 E8 12 A5 B6 C9
1298: 04 D0 F7 F0 BC A2 10 86
12A0: B6 20 DA 12 A5 B6 C9 08
12A8: D0 F7 F0 AD A2 06 86 B6
12B0: 20 16 13 50 05 30 03 20
12B8: 91 11 20 6B 13 C6 B6 A5
12C0: B6 C9 05 F0 EB 20 16 13
12C8: 70 8F 30 8D 20 91 11 A5
12D0: B1 29 F0 C9 20 F0 EE 4C
12D8: 59 12 20 16 13 30 03 20
12E0: 91 11 20 6B 13 C6 B6 60
12E8: 20 16 13 90 02 50 F9 30
12F0: 07 08 20 91 11 28 50 F0
12F8: 20 6B 13 C6 B6 60 A2 0F
1300: 38 B4 60 A9 77 F5 50 95
1308: 60 94 50 38 A9 77 F5 50
1310: 95 50 CA 10 EB 60 A5 B1
1318: A6 B6 18 7D 7E 18 85 B1
1320: 29 88 D0 42 A5 B1 A2 20
1328: CA 30 0E D5 50 D0 F9 E0
1330: 10 30 33 A9 7F 69 01 70
1338: 01 B8 A5 B5 30 24 C9 08
1340: 10 20 48 08 A9 F9 85 B5
1348: 85 B4 20 98 13 20 FE 12
1350: 20 55 12 20 7B 13 28 68
1358: 85 B5 A5 B4 30 04 38 A9
1360: FF 60 18 A9 00 60 A9 FF
1368: 18 B8 60 A6 B0 B5 50 85
1370: B1 60 20 98 13 20 FE 12
1378: 20 55 12 20 FE 12 BA 86
1380: B3 A6 B2 9A 68 85 B6 68
1388: 85 B0 AA 68 95 50 68 AA
1390: 68 85 B1 95 50 4C BD 13
1398: BA 86 B3 A6 B2 9A A5 B1
13A0: 48 A8 A2 1F D5 50 F0 03
13A8: CA 10 F9 A9 CC 95 50 8A
13B0: 48 A6 B0 B5 50 94 50 48
13B8: 8A 48 A5 B6 48 BA 86 B2
13C0: A6 B3 9A 60 A4 E4 EC 8F
13C8: 18 D0 04 A9 00 F0 0A A6
13D0: E3 D0 06 A6 EE D0 02 A9
13D8: FF A2 04 86 B5 C5 FA 90
13E0: 0C F0 0A 85 FA A5 B0 85
13E8: FB A5 B1 85 F9 A5 FC 49
13F0: 1F 85 FC 4C EC 14 A4 DC
13F8: 30 19 A5 F9 D1 43 D0 0F
1400: 88 B1 43 85 FB 88 B1 43
1408: 85 F9 88 84 DC D0 1C A9
1410: FF 85 DC A2 0C 86 B5 86
1418: FA A2 14 20 4E 12 A2 04
1420: 86 B5 20 4C 12 A6 FA E0
1428: 0F 90 15 A6 FB B5 50 85
1430: FA 86 B0 A5 F9 85 B1 20
1438: 98 13 20 37 12 4C 09 10
1440: A9 FF 60 A2 04 06 F9 26
1448: FA CA D0 F9 05 F9 85 F9
1450: 85 B1 60 18 A9 80 65 EB
1458: 65 EC 65 ED 65 E1 65 DF
1460: 38 E5 F0 E5 F1 E5 E2 E5
1468: E0 E5 DE E5 EF E5 E3 B0
1470: 02 A9 00 4A 18 69 40 65
1478: EC 65 ED 38 E5 E4 4A 18
1480: 69 90 65 DD 65 DD 65 DD
1488: 65 DD 65 E1 38 E5 E4 E5
1490: E4 E5 E5 E5 E5 E5 E0 A6
1498: B1 E0 33 F0 16 E0 34 F0
14A0: 12 E0 22 F0 0E E0 25 F0
14A8: 0A A6 B0 F0 09 B4 50 C0
14B0: 10 10 03 18 69 02 4C C4
14B8: 13 A9 20 4C EF FF A9 0D
14C0: 4C EF FF AD 11 D0 10 FB
14C8: AD 10 D0 29 7F 60 20 BE
14D0: 14 A5 FC 20 EF FF 20 B9
14D8: 14 20 AF 15 20 B9 14 A5
14E0: FA 20 AA 15 20 B9 14 A5
14E8: F9 4C AA 15 A9 2E 4C EF
14F0: FF 20 BE 14 20 84 15 20
14F8: 5F 15 A0 00 20 A9 15 A9
1500: 21 20 EF FF A2 1F 98 D5
1508: 50 F0 35 CA 10 F9 98 0A
1510: 0A 0A 0A 98 69 00 4A A9
1518: 20 B0 02 A9 23 20 EF FF
1520: 20 EF FF C8 98 29 08 F0
1528: D6 A9 21 20 EF FF 20 A9
1530: 15 20 BE 14 20 5F 15 98
1538: 18 69 08 30 47 A8 10 BC
1540: A9 57 E0 10 24 FD F0 04
1548: 2A 49 01 6A 90 02 A9 42
1550: 20 EF FF 8A 29 0F AA BD
1558: 4E 18 20 EF FF D0 C4 20
1560: B9 14 20 B9 14 8A 48 A2
1568: 08 A9 2B 20 EF FF A9 2D
1570: 20 EF FF 20 EF FF CA D0
1578: F0 A9 2B 20 EF FF 68 AA
1580: 20 BE 14 60 20 B9 14 20
1588: EF FF A2 00 20 B9 14 8A
1590: 20 DC FF E8 E0 08 D0 F4
1598: 4C BE 14 A2 00 BD D5 17
15A0: 30 06 20 EF FF E8 D0 F5
15A8: 60 98 29 77 4C DC FF A5
15B0: FB 30 13 29 0F 0A 0A 0A
15B8: AA A0 08 BD 39 17 20 EF
15C0: FF E8 88 D0 F6 60 C9 CC
15C8: D0 04 A2 80 D0 EB C9 EE
15D0: D0 04 A2 88 D0 E3 C9 FF
15D8: D0 04 A2 90 D0 DB A2 94
15E0: D0 D7 53 45 4C 45 43 54
15E8: 20 4C 45 56 45 4C 3A 00
15F0: 00 30 29 20 53 55 50 45
15F8: 52 42 4C 49 54 5A 00 31
1600: 29 20 42 4C 49 54 5A 00
1608: 32 29 20 4E 4F 52 4D 41
1610: 4C 00 FF 00 53 45 4C 45
1618: 43 54 20 4F 50 45 4E 49
1620: 4E 47 3A 20 43 4F 4D 50
1628: 20 50 4C 41 59 53 00 00
1630: 46 52 45 4E 43 48 20 44
1638: 45 46 45 4E 43 45 3A 20
1640: 30 29 20 57 20 31 29 20
1648: 42 00 47 49 55 4F 43 4F
1650: 20 50 49 41 4E 4F 3A 20
1658: 20 20 32 29 20 57 20 33
1660: 29 20 42 00 52 55 59 20
1668: 4C 4F 50 45 5A 3A 20 20
1670: 20 20 20 20 34 29 20 57
1678: 20 35 29 20 42 00 51 55
1680: 45 45 4E 27 53 20 49 4E
1688: 44 49 41 4E 3A 20 36 29
1690: 20 57 20 37 29 20 42 00
1698: 46 4F 55 52 20 4B 4E 49
16A0: 47 48 54 53 3A 20 20 20
16A8: 38 29 20 57 20 39 29 20
16B0: 42 00 FF A9 E2 85 41 A9
16B8: 15 85 42 20 1C 17 20 C3
16C0: 14 20 EF FF 38 E9 30 AA
16C8: D0 09 8E 3F 13 CA 8E 1C
16D0: 12 D0 1A CA D0 0A 8E 3F
16D8: 13 A2 FB 8E 1C 12 D0 0D
16E0: CA D0 D0 A2 08 8E 3F 13
16E8: A2 FB 8E 1C 12 A9 13 85
16F0: 41 A9 16 85 42 20 1C 17
16F8: 20 C3 14 20 EF FF 38 E9
1700: 30 C5 40 B0 E8 AA E8 A9
1708: 10 85 44 A9 79 CA F0 09
1710: 18 69 1C 90 F8 E6 44 D0
1718: F4 85 43 60 20 BE 14 A0
1720: FF C8 B1 41 D0 06 20 BE
1728: 14 4C 21 17 C9 FF F0 06
1730: 20 EF FF 4C 21 17 84 40
1738: 60 4B 49 4E 47 20 20 20
1740: 20 51 55 45 45 4E 20 20
1748: 20 4B 20 52 4F 4F 4B 20
1750: 20 51 20 52 4F 4F 4B 20
1758: 20 4B 20 42 49 53 48 4F
1760: 50 51 20 42 49 53 48 4F
1768: 50 4B 20 4B 4E 49 47 48
1770: 54 51 20 4B 4E 49 47 48
1778: 54 4B 20 52 20 50 41 57
1780: 4E 51 20 52 20 50 41 57
1788: 4E 4B 20 4E 20 50 41 57
1790: 4E 51 20 4E 20 50 41 57
1798: 4E 4B 20 42 20 50 41 57
17A0: 4E 51 20 42 20 50 41 57
17A8: 4E 51 20 50 41 57 4E 20
17B0: 20 4B 20 50 41 57 4E 20
17B8: 20 52 45 53 45 54 20 20
17C0: 20 45 58 43 48 41 4E 47
17C8: 45 4D 41 54 45 20 20 20
17D0: 20 20 20 20 20 0D 2B 2D
17D8: 2D 2D 2D 2D 2D 2D 2D 2D
17E0: 2D 2D 2D 2D 2D 2D 2D 2D
17E8: 2D 2D 2D 2B 0D 00 21 20
17F0: 20 20 20 20 4D 49 43 52
17F8: 4F 43 48 45 53 53 20 20
1800: 20 20 20 21 0D 00 21 20
1808: 28 43 29 20 50 45 54 45
1810: 52 20 4A 45 4E 4E 49 4E
1818: 47 53 20 21 0D 00 21 20
1820: 20 50 45 54 45 52 4A 40
1828: 42 45 4E 4C 4F 2E 43 4F
1830: 4D 20 20 21 0D 00 2B 2D
1838: 2D 2D 2D 2D 2D 2D 2D 2D
1840: 2D 2D 2D 2D 2D 2D 2D 2D
1848: 2D 2D 2D 2B 0D FF 4B 51
1850: 52 52 42 42 4E 4E 50 50
1858: 50 50 50 50 50 50 03 04
1860: 00 07 02 05 01 06 10 17
1868: 11 16 12 15 14 13 73 74
1870: 70 77 72 75 71 76 60 67
1878: 61 66 62 65 64 63 00 F0
1880: FF 01 10 11 0F EF F1 DF
1888: E1 EE F2 12 0E 1F 21 0B
1890: 0A 06 06 04 04 04 04 02
1898: 02 02 02 02 02 02 02 90
18A0: A2 49 00 3A F0 A0 59 04
18A8: AC 22 2E 56 2A E0 51 70
18B0: CF 3D F5 A8 3B 2D 81 31
18B8: DC DF 0A 49 05 F0 D0 08
18C0: 1F 85 57 A2 8F EB 51 34
18C8: AD 15 66 A8 82 33 EE 89
18D0: 0D 14 47 10 20 19 1C E1
18D8: CB CE C7 3D 30 05 4D D3
18E0: E2 8D 93 47 51 10 A1 35
18E8: 94 66 3E 43 70 49 2A 17
18F0: 5C C3 C4 0D 51 24 6C 96
18F8: 75 25 00 40 8E 4A 38 0F
1000R

64
code/programs/NIM.TXT Normal file
View File

@ -0,0 +1,64 @@
0300: 49 4E 56 41 4C 49 44 00
0308: 59 4F 55 00 57 49 4E 21
0310: 00 49 20 54 41 4B 45 00
0318: 46 52 4F 4D 20 48 45 41
0320: 50 00 53 20 41 52 45 00
0328: AD 11 D0 10 FB AD 10 D0
0330: 29 7F 4C EF FF A9 3F 20
0338: EF FF A9 20 4C EF FF A9
0340: 0D 4C EF FF A0 00 B1 11
0348: F0 06 20 EF FF C8 D0 F6
0350: 60 49 30 C9 0A 90 08 69
0358: 88 C9 FA 90 03 29 0F 60
0360: A9 FF 60 20 3F 03 A9 00
0368: 85 11 A9 03 85 12 20 44
0370: 03 4C 3F 03 A9 1D 85 11
0378: A9 03 85 12 4C 44 03 20
0380: 44 03 20 35 03 20 28 03
0388: 4C 51 03 A9 00 85 13 C6
0390: 13 20 3F 03 20 74 03 A9
0398: 53 20 EF FF 20 82 03 AA
03A0: F0 28 C9 FF F0 24 86 14
03A8: A0 31 A2 00 20 3F 03 98
03B0: 20 EF FF 20 82 03 C9 00
03B8: F0 16 C9 FF F0 12 95 15
03C0: C8 E8 E4 14 D0 E6 20 3F
03C8: 03 60 20 63 03 4C 91 03
03D0: 20 63 03 4C A8 03 A6 14
03D8: A9 00 55 14 CA D0 FB 85
03E0: 10 C9 00 F0 15 A6 14 A5
03E8: 10 55 14 D5 14 30 03 CA
03F0: D0 F5 85 10 B5 14 38 E5
03F8: 10 60 A6 14 B5 15 D0 03
0400: CA D0 F9 A9 01 60 A9 11
0408: 85 11 A9 03 85 12 20 44
0410: 03 20 3A 03 20 D6 03 85
0418: 10 20 E5 FF 20 3A 03 A9
0420: 18 85 11 A9 03 85 12 20
0428: 44 03 20 3A 03 8A 20 E5
0430: FF CA B5 15 38 E5 10 95
0438: 15 20 3F 03 60 20 74 03
0440: 20 82 03 AA F0 2C E0 FF
0448: F0 28 E4 14 F0 02 B0 22
0450: CA 20 3F 03 A9 13 85 11
0458: A9 03 85 12 20 7F 03 C9
0460: 00 F0 0F C9 FF F0 0B D5
0468: 15 F0 02 B0 05 85 10 4C
0470: 32 04 20 63 03 4C 3D 04
0478: 20 74 03 A9 22 85 11 A9
0480: 03 85 12 20 44 03 A2 00
0488: 20 3A 03 B5 15 20 E5 FF
0490: E8 E4 14 30 F3 20 3F 03
0498: 60 A5 13 6A 90 05 A9 49
04A0: 4C EF FF A9 08 85 11 A9
04A8: 03 85 12 20 44 03 60 20
04B0: 8B 03 E6 13 20 78 04 A5
04B8: 13 6A 90 06 20 06 04 38
04C0: B0 03 20 3D 04 20 3F 03
04C8: A6 14 B5 14 D0 E4 CA D0
04D0: F9 20 78 04 20 3F 03 20
04D8: 99 04 20 3A 03 A9 0C 85
04E0: 11 A9 03 85 12 20 44 03
04E8: 20 3F 03 20 3F 03 20 28
04F0: 03 4C AF 04
4AFR

37
code/programs/PASART.TXT Normal file
View File

@ -0,0 +1,37 @@
0300: 20 26 05 A9 00 85 00 A9 10 85 01 20 42 03 20 D3
0310: 03 20 83 04 20 2B 05 C9 1B D0 E5 60 20 3F 53 57
0320: 4F 52 20 3F 53 4E 4D 55 4C 4F 43 20 3F 4F 4C 55
0330: 44 4F 4D 20 3F 29 33 2C 32 2C 31 28 20 45 4C 59
0340: 54 53 A2 06 BD 1B 03 20 EF FF CA D0 F7 A5 02 20
0350: A7 03 C9 03 30 EC 85 02 85 0B A2 09 BD 21 03 20
0360: EF FF CA D0 F7 A5 03 20 A7 03 C9 03 30 EC C9 28
0370: 10 E8 85 03 85 0C A2 08 BD 2A 03 20 EF FF CA D0
0380: F7 A5 05 20 A7 03 F0 EE 85 05 A2 0F BD 32 03 20
0390: EF FF CA D0 F7 E6 04 A5 04 20 A7 03 F0 EC C9 04
03A0: 10 E8 85 04 C6 04 60 85 0D A2 00 86 06 86 07 86
03B0: 08 20 2B 05 C9 1B D0 05 68 68 68 68 60 20 EF FF
03C0: C9 0D F0 05 95 06 E8 D0 E8 8A F0 04 20 F5 04 60
03D0: A5 0D 60 A2 01 A5 04 F0 16 C9 01 D0 04 C6 0B D0
03E0: 0E A5 02 4A 69 00 85 0B A5 03 4A 69 00 85 0C A0
03F0: 01 A9 00 86 09 84 0A CA 20 A4 04 85 08 E8 88 20
0400: A4 04 C8 18 65 08 20 62 04 48 20 CF 04 68 A2 00
0410: 81 06 A6 04 F0 3D CA F0 22 48 A6 09 20 79 04 20
0420: CF 04 68 48 A2 00 81 06 A6 09 A4 0A 20 6F 04 20
0430: CF 04 68 48 A2 00 81 06 38 B0 08 48 A5 02 38 E5
0440: 09 85 0C A6 09 20 6F 04 20 79 04 20 CF 04 68 A2
0450: 00 81 06 A6 09 A4 0A C8 C4 0C D0 95 E8 E4 0B D0
0460: 8E 60 38 E5 05 F0 07 C5 05 10 F7 18 65 05 60 48
0470: A5 02 38 E5 09 AA CA 68 60 48 A5 03 38 E5 0A A8
0480: 88 68 60 A2 00 A0 00 20 26 05 20 A4 04 0A D0 04
0490: A9 20 D0 02 A9 2A 20 EF FF C8 C4 03 D0 EC E8 E4
04A0: 02 D0 E2 60 8A F0 25 98 F0 22 A5 04 F0 10 8A 38
04B0: E5 02 C9 FF F0 16 98 38 E5 03 C9 FF F0 0E 20 CF
04C0: 04 86 0D A2 00 A1 06 A6 0D 18 90 02 A9 01 60 8A
04D0: 48 A5 01 85 07 A5 00 85 06 E0 00 F0 0C 18 65 03
04E0: 85 06 90 02 E6 07 CA D0 F5 98 65 06 85 06 90 02
04F0: E6 07 68 AA 60 A5 06 20 18 05 C9 FF F0 20 48 A5
0500: 07 20 18 05 C9 FF D0 02 68 60 85 0D 68 85 08 0A
0510: 0A 18 65 08 0A 65 0D 60 49 30 C9 0A 90 02 A9 FF
0520: 60 A9 20 4C EF FF A9 0D 4C EF FF AD 11 D0 10 FB
0530: AD 10 D0 29 7F 60
300R

442
code/programs/SLOTS.TXT Normal file
View File

@ -0,0 +1,442 @@
004A: 00 03 00 10 F5 64
0050: 05 BF FD BF BF BF F8 F8
0058: FF B7 7F BF BF B7 FF 21
0060: F7 FF 00 FB D3 07 2D 00
0068: 00 A5 00 ED 01 F1 01 03
0070: ED ED ED ED ED EC ED ED
0078: FF F7 B7 F7 FF B7 FF 9A
0080: 17 00 F7 F7 BD FD DF F7
0088: B7 00 00 07 06 00 00 07
0090: 4F 07 28 7D 02 0C 30 00
0098: 82 59 5E 9C 13 7C F3 FF
00A0: 03 00 F7 75 35 04 00 00
00A8: 96 1B 00 01 CD F7 F8 0E
00B0: 6C FF 00 00 00 00 02 00
00B8: F6 00 00 0B 0B FF 00 A0
00C0: 09 04 04 09 03 FF FF FF
00C8: 0A 0C 1D 0A 2A 03 03 A0
00D0: 00 03 2A 03 00 00 01 00
00D8: 21 03 82 0D F6 0F 00 06
00E0: 10 02 28 0C 1D 0A 0B 0C
00E8: 26 11 0C 0C 0F 0B 0A 0A
00F0: 0A 10 FD 5F E8 75 F7 25
00F8: 00 00 00 00 00 20 00 ED
0300: A0 00 06 03 F6 FF 9A 00
0308: 0C 03 05 00 B0 00 12 03
0310: 03 00 B2 00 18 03 05 00
0318: B4 00 1E 03 04 00 AC 00
0320: 24 03 25 00 82 40 2A 03
0328: B5 1E 40 53 03 00 00 00
0330: 37 00 3B 00 3F 00 3F 00
0338: 40 00 45 00 4A 00 4C 00
0340: 50 00 53 00 5A 00 5D 00
0348: 63 00 6A 00 A4 00 98 03
0350: 19 00 04 9E 40 73 03 00
0358: 00 00 0E 00 11 00 14 00
0360: 16 00 00 00 1D 00 1C 00
0368: 20 00 24 00 28 00 28 00
0370: 28 00 28 A4 40 E8 03 00
0378: 00 00 33 00 37 00 3B 00
0380: 3F 00 3F 00 40 00 45 00
0388: 4A 00 4C 00 50 00 53 00
0390: 5A 00 5D 00 63 00 6B 00
0398: 9C 00 E4 03 03 00 05 00
03A0: 09 00 09 00 0D 00 10 00
03A8: 13 00 15 00 18 00 1B 00
03B0: 1F 00 1F 00 22 00 27 00
03B8: 30 00 30 00 30 00 28 00
03C0: 30 00 30 00 32 00 36 00
03C8: 3A 00 3E 00 3F 00 3F 00
03D0: 44 00 49 00 4B 00 4F 00
03D8: 52 00 59 00 5C 00 62 00
03E0: 69 00 6F 00 96 40 0D 04
03E8: 92 40 47 04 00 00 D4 A0
03F0: 1E A0 C9 A0 1E A0 1E 00
03F8: 01 00 02 00 02 00 02 00
0400: 02 00 05 00 01 00 00 00
0408: 00 00 00 00 00 AE 40 37
0410: 04 A0 CD C5 A0 1E 1E 1E
0418: 00 00 00 00 00 00 00 00
0420: 00 00 00 00 00 00 00 00
0428: 00 00 00 00 00 00 00 00
0430: 00 00 00 00 00 00 00 9E
0438: 40 57 04 A0 D9 CF D5 A0
0440: 1E A0 1E 1E 40 B8 04 B0
0448: 40 E7 04 00 00 9C B1 53
0450: 04 24 00 AC B1 59 04 A4
0458: 40 CC 04 C4 C9 C4 A0 D9
0460: CF D5 A0 C3 CF CD C5 A0
0468: D4 CF A0 CD C5 A0 C2 C5
0470: C3 C1 D5 D3 C5 A0 D9 CF
0478: D5 A0 C1 D2 C5 AA 1E D2
0480: CF C2 CC C5 CD D3 BF 1E
0488: 00 00 00 00 00 00 00 00
0490: 00 00 00 00 00 00 00 00
0498: 00 00 00 00 00 00 00 00
04A0: 00 00 00 00 00 00 00 00
04A8: 00 00 00 00 00 00 00 00
04B0: 00 00 00 00 00 00 00 00
04B8: 92 40 17 05 A0 A0 C3 C1
04C0: CE A0 D9 CF D5 A0 C8 C5
04C8: CC D0 A0 CD 92 40 2B 05
04D0: A0 A0 D1 D5 C9 D4 A0 A0
04D8: 1E CD A0 C6 C9 CE C5 A0
04E0: A0 1E A0 A0 1E A0 A0 8C
04E8: 40 EB 05 00 00 1E C5 A0
04F0: A0 1E 00 00 00 00 00 00
04F8: 00 00 00 00 00 00 00 00
0500: 00 00 00 00 00 00 00 00
0508: 00 00 00 00 00 00 00 00
0510: 00 00 00 00 00 00 00 B0
0518: 40 B7 05 C3 C1 CE A0 D9
0520: CF D5 A0 C8 C5 CC D0 A0
0528: CD C5 BF B0 40 CB 05 D1
0530: D5 C9 D4 1E A0 C1 CD A0
0538: C6 C9 CE C5 1E D0 D9 1E
0540: D6 C5 1E D9 1E 1E D3 1E
0548: 1E C5 D3 C5 1E 00 00 00
0550: 00 00 00 00 00 00 00 00
0558: 00 00 00 00 00 00 00 00
0560: 00 00 00 00 00 00 00 00
0568: 00 00 00 00 00 00 00 00
0570: 00 00 00 00 00 00 00 00
0578: 00 00 00 00 00 00 00 00
0580: 00 00 00 00 00 00 9C 40
0588: B3 05 1E 1E CC CC 1E 45
0590: 4E 43 4C 4F 53 C5 29 05
0598: 9A 05 A9 02 20 04 04 8A
05A0: 38 E9 08 AA 94 03 94 01
05A8: 88 C8 B1 A8 C5 A6 F0 F9
05B0: 94 04 B1 B4 40 B9 05 8C
05B8: 40 BB 06 D3 C1 D9 AC A0
05C0: C4 CF A0 D9 CF D5 A0 C8
05C8: C1 D6 C5 8C 40 CF 06 C4
05D0: C9 C4 A0 D9 CF D5 A0 C3
05D8: CF CD C5 A0 D4 CF A0 CD
05E0: C5 A0 C2 C5 C3 C1 D5 D3
05E8: C5 A0 D9 AC 40 54 06 00
05F0: 00 AA 1E D2 CF C2 CC C5
05F8: CD D3 BF 1E 40 01 06 CE
0600: 1E 03 20 04 04 C4 A6 D0
0608: 07 C6 A7 10 03 4C 44 03
0610: B1 AA 91 A8 C8 D0 EE E6
0618: AB E6 A9 4C 05 06 82 55
0620: AA F6 05 25 06 B5 02 85
0628: A6 94 02 B5 03 85 A7 94
0630: 03 A0 10 16 02 36 03 36
0638: 00 36 01 90 13 18 A5 A6
0640: 75 02 95 02 A5 A7 75 03
0648: 95 03 A9 00 75 00 95 00
0650: 88 D0 E0 4C A0 40 BD 06
0658: 00 00 06 5D 06 B5 04 B4
0660: 02 94 04 0A 95 02 B5 05
0668: B4 03 94 05 2A 95 03 A9
0670: 10 85 A6 36 04 36 05 38
0678: B5 04 F5 00 A8 B5 05 F5
0680: 01 90 04 94 04 95 05 36
0688: 02 36 03 C6 A6 D0 E4 4C
0690: EE 04 83 41 4E C4 56 06
0698: 9A 06 B5 00 35 02 48 B5
06A0: 01 35 03 E8 E8 4C 3F 03
06A8: 82 4F D2 92 06 AF 06 B5
06B0: 00 15 02 48 B5 01 15 03
06B8: E8 E8 4C AC 40 86 40 26
06C0: 07 00 00 C5 06 B5 00 55
06C8: 02 48 B5 01 55 03 E8 AC
06D0: 40 38 07 C1 CD A0 C6 C9
06D8: CE C5 A0 A0 A0 A0 C1 D2
06E0: C5 A0 CD A0 C6 C9 CE C5
06E8: A0 A0 A0 A0 D9 CF D5 A0
06F0: C9 CE C5 A0 A0 A0 1E 06
06F8: FA 06 86 B5 A0 08 B1 B3
0700: AA 9A A6 B5 4C 44 03 82
0708: 3B D3 F2 06 0E 07 68 85
0710: AE 68 85 AF 4C 44 03 85
0718: 4C 45 41 56 C5 07 07 21
0720: 07 86 B5 BA 9C B1 A6 00
0728: 2C 07 00 00 30 07 0E 00
0730: B2 B1 36 07 70 00 A0 40
0738: A0 40 A1 07 A0 A0 CE CF
0740: AC A0 C9 A0 C1 CD A0 C6
0748: C9 CE C5 A0 A0 1E A0 A0
0750: 1E A0 A0 1E A0 1E 1E A0
0758: 1E 1E C5 A0 A0 1E 28 14
0760: 00 61 28 C3 D2 C5 C1 D4
0768: C9 10 0A 00 50 B1 12 00
0770: 03 61 28 C2 CF D7 CC 29
0778: 01 28 14 00 61 28 C3 D2
0780: C5 C1 D4 C9 D6 C5 A0 C3
0788: CF CD D0 D5 D4 C9 CE C7
0790: A0 CD CF D2 D2 C9 D3 D4
0798: C9 CF CE AC A0 CE CA 29
07A0: 01 86 40 0A 08 A0 AC A0
07A8: C9 A0 C1 CD A0 C6 C9 CE
07B0: C5 A0 A0 A0 A0 C1 D2 C5
07B8: A0 CD A0 C6 C9 CE C5 A0
07C0: A0 A0 A0 D9 CF D5 A0 C9
07C8: CE C5 A0 A0 A0 A0 CD C5
07D0: A0 C1 CD A0 C6 C9 CE C5
07D8: A0 A0 A0 A0 C1 D2 C5 A0
07E0: CD A0 C6 C9 CE C5 A0 A0
07E8: A0 A0 D9 CF D5 A0 C9 CE
07F0: C5 A0 A0 A0 1E 00 98 B1
07F8: FC 07 1A 00 B0 00 02 08
0800: 03 00 92 00 08 08 00 00
0808: B5 B6 9C B1 10 08 24 00
0810: AC B1 16 08 0E 00 B2 B1
0818: 1C 08 70 00 98 00 22 08
0820: 50 00 96 00 28 08 0B 00
0828: 98 B1 2E 08 11 00 B0 00
0830: 34 08 08 00 CF D2 D2 C9
0838: D3 D4 CF D7 CE AC A0 CE
0840: C5 D7 A0 CA C5 D2 D3 C5
0848: D9 29 03 63 01 20 37 00
0850: 61 28 AA AA AA AA AA AA
0858: AA AA AA AA AA AA AA AA
0860: AA AA AA AA AA AA AA AA
0868: AA AA AA 29 01 09 3C 00
0870: 63 03 63 03 63 01 22 50
0878: 00 5D AA AA AA AA AA C9
0880: CE C9 D4 C9 C1 CC C9 DA
0888: C1 D4 C9 CF CE AA AA AA
0890: AA AA AA AA AA AA AA 01
0898: 19 64 00 4F D3 34 B3 24
08A0: 00 72 44 D2 34 B3 24 00
08A8: 72 44 CE 34 B3 24 00 72
08B0: 01 3C 69 00 4E CB 40 22
08B8: B3 24 00 72 43 D7 40 22
08C0: B3 25 00 72 43 CF 40 22
08C8: B7 07 00 72 43 D2 40 22
08D0: B1 70 00 72 43 C9 40 22
08D8: B9 5A 00 72 43 D8 40 22
08E0: B1 9B 00 72 43 C6 40 22
08E8: B2 FF 00 72 01 2F 70 00
08F0: 5D A0 C6 CF D2 A0 D8 A0
08F8: BD A0 B1 A0 D4 CF A0 CE
0900: B1 BA A0 D2 84 40 08 0A
0908: A0 A0 A0 A0 A0 B1 B2 B3
0910: B4 B5 B6 B7 A0 A0 A0 A0
0918: A0 D6 C9 CE C3 C5 1E 5D
0920: A0 C6 CF D2 A0 D8 A0 BD
0928: A0 B1 A0 D4 CF A0 D6 B1
0930: AF B2 BA A0 D2 C5 C1 C4
0938: A0 D7 CF D2 C4 C9 CE A4
0940: A8 D8 A9 BA D2 C5 C1 C4
0948: A0 D7 CF D2 C4 CF D5 D4
0950: A4 A8 D8 A9 BA A0 CE C5
0958: D8 D4 A0 D8 01 2F 74 00
0960: 5D A0 C6 CF D2 A0 D8 A0
0968: BD A0 B1 A0 D4 CF A0 D9
0970: B1 BA A0 D2 C5 C1 C4 A0
0978: D2 C5 D0 CC C9 C5 D3 A4
0980: A8 D8 A9 BA A0 CE C5 D8
0988: D4 A0 D8 01 66 78 00 D3
0990: 2D B1 01 00 72 71 B1 01
0998: 00 03 D2 2D B1 01 00 72
09A0: 71 B1 01 00 03 CE 2D B1
09A8: 01 00 72 71 B3 03 00 03
09B0: D3 2D B2 02 00 72 71 B4
09B8: 04 00 03 D2 2D B2 02 00
09C0: 72 71 B4 04 00 03 CE 2D
09C8: B2 02 00 72 71 B5 05 00
09D0: 03 D3 2D B3 03 00 72 71
09D8: B6 06 00 03 D2 2D B3 03
09E0: 00 72 71 B6 06 00 03 CE
09E8: 2D B3 03 00 72 71 B9 09
09F0: 00 01 66 79 00 D3 2D B4
09F8: 04 00 72 71 B6 06 00 03
0A00: D2 2D B4 04 00 72 71 B6
0A08: B4 00 1D 0A 00 61 28 A0
0A10: A0 A0 A0 A0 A0 A0 A0 A0
0A18: A0 A0 A0 A0 A0 1D 0A 00
0A20: 61 28 A0 A0 A0 A0 A0 A0
0A28: A0 A0 A0 A0 A0 A0 A0 A0
0A30: A0 A0 A0 D3 CC CF D4 D3
0A38: 29 01 19 14 00 61 28 C3
0A40: D2 C5 C1 D4 C9 D6 C5 A0
0A48: C3 CF CD D0 D5 D4 C9 CE
0A50: C7 29 01 1D 19 00 61 28
0A58: CD CF D2 D2 C9 D3 D4 CF
0A60: D7 CE AC A0 CE C5 D7 A0
0A68: CA C5 D2 D3 C5 D9 29 01
0A70: 09 1E 00 63 03 63 03 63
0A78: 01 40 64 00 5D A0 D0 D2
0A80: CF C4 D5 C3 C5 C4 A0 C2
0A88: D9 A0 C6 D2 C5 C4 A0 CD
0A90: C9 D2 C1 C2 C5 CC CC C5
0A98: A0 C1 CE C4 A0 C2 CF C2
0AA0: A0 C8 C1 D2 D0 C5 D2 A0
0AA8: CF CE A0 CA C1 CE AE A0
0AB0: B2 B9 AC A0 B1 B9 B7 B3
0AB8: 01 24 6E 00 5D A0 C9 D4
0AC0: A0 D3 C9 CD D5 CC C1 D4
0AC8: C5 D3 A0 D4 C8 C5 A0 D3
0AD0: CC CF D4 A0 CD C1 C3 C8
0AD8: C9 CE C5 AE 01 67 78 00
0AE0: 61 28 D9 CF D5 A0 C1 D2
0AE8: C5 A0 C9 CE A0 D4 C8 C5
0AF0: A0 C8 A6 CD A0 C3 C1 D3
0AF8: C9 CE CF AC A0 C9 CE A0
0B00: C6 D2 CF CE D4 A0 CF C6
0B08: A0 29 03 61 28 CF CE C5
0B10: A0 CF C6 A0 CF D5 D2 A0
0B18: CF CE C5 AD C1 D2 CD C5
0B20: C4 A0 C2 C1 CE C4 C9 D4
0B28: D3 AE A0 C2 C5 D4 A0 C6
0B30: D2 CF CD 29 03 61 28 A4
0B38: B1 A0 D4 CF A0 A4 B1 B0
0B40: B0 AE 29 01 47 8C 00 61
0B48: 28 D4 CF A0 D0 D5 CC CC
0B50: A0 D4 C8 C5 A0 C1 D2 CD
0B58: AC A0 D0 D5 CE C3 C8 A0
0B60: D4 C8 C5 A0 D2 C5 D4 D5
0B68: D2 CE A0 CB C5 D9 A0 29
0B70: 03 61 28 C1 C6 D4 C5 D2
0B78: A0 CD C1 CB C9 CE C7 A0
0B80: D9 CF D5 D2 A0 C2 C5 D4
0B88: AE 29 01 09 96 00 D0 71
0B90: B0 00 00 01 12 A0 00 63
0B98: 03 61 28 D9 CF D5 D2 A0
0BA0: C2 C5 D4 29 47 01 06 AA
0BA8: 00 54 CD 01 0E B4 00 60
0BB0: CD 19 B1 64 00 24 B8 5C
0BB8: 03 01 0E BE 00 60 CD 1C
0BC0: B1 01 00 24 B8 70 03 01
0BC8: 0E C8 00 5D A0 CD BD C9
0BD0: CE D4 A8 CD A9 01 05 DC
0BD8: 00 63 01 10 E6 00 D8 71
0BE0: 2F 3F B6 06 00 72 12 B1
0BE8: 01 00 01 10 F0 00 D9 71
0BF0: 2F 3F B6 06 00 72 12 B1
0BF8: 01 00 01 10 FA 00 DA 71
0C00: 2F 3F B6 06 00 72 12 B1
0C08: 01 00 01 1D 04 01 63 03
0C10: 55 D6 56 B1 01 00 57 B3
0C18: 23 00 03 61 28 AA 29 47
0C20: 03 59 D6 03 63 03 63 01
0C28: 10 0E 01 5C B9 84 03 12
0C30: 38 D8 14 B1 0A 00 72 01
0C38: 10 4A 01 5C B9 84 03 12
0C40: 38 D9 14 B1 0A 00 72 01
0C48: 14 86 01 5C B9 84 03 12
0C50: 38 DA 14 B1 0A 00 72 03
0C58: 63 03 63 01 1B 90 01 55
0C60: D6 56 B1 01 00 57 B3 23
0C68: 00 03 61 28 AA 29 47 03
0C70: 59 D6 03 63 03 63 01 0C
0C78: C2 01 60 D8 16 D9 24 B6
0C80: 58 02 01 0C CC 01 60 D8
0C88: 16 DA 24 B6 76 02 01 0C
0C90: D6 01 60 D9 16 DA 24 B6
0C98: 8A 02 01 05 E0 01 63 01
0CA0: 10 EA 01 61 28 D9 CF D5
0CA8: A0 CC CF D3 D4 AE 29 01
0CB0: 09 F4 01 D0 71 D0 13 CD
0CB8: 01 1D FE 01 61 28 D9 CF
0CC0: D5 D2 A0 D3 D4 C1 CE C4
0CC8: C9 CE C7 D3 A0 C1 D2 C5
0CD0: A0 A4 29 46 D0 01 0D 08
0CD8: 02 61 28 C1 C7 C1 C9 CE
0CE0: 29 47 01 07 12 02 52 C1
0CE8: 40 01 0F 1C 02 60 C1 40
0CF0: 39 28 D9 29 24 B1 A0 00
0CF8: 01 05 26 02 63 01 0E 30
0D00: 02 60 D0 1C B0 00 00 24
0D08: B6 9E 02 01 0E 3A 02 60
0D10: D0 16 B0 00 00 24 B6 B2
0D18: 02 01 0E 44 02 60 D0 19
0D20: B0 00 00 24 B7 C6 02 01
0D28: 08 4E 02 5F B1 46 05 01
0D30: 0C 58 02 60 D9 16 DA 24
0D38: B7 DA 02 01 0E 62 02 60
0D40: D9 16 B1 01 00 24 B8 34
0D48: 03 01 08 6C 02 5F B1 3D
0D50: 05 01 0E 76 02 60 DA 16
0D58: B1 01 00 24 B8 34 03 01
0D60: 08 80 02 5F B4 D6 01 01
0D68: 0E 8A 02 60 DA 16 B1 01
0D70: 00 24 B8 34 03 01 08 94
0D78: 02 5F B1 3D 05 01 36 9E
0D80: 02 61 28 D0 C1 D9 A0 D5
0D88: D0 A1 A0 D0 CC C5 C1 D3
0D90: C5 A0 CC C5 C1 D6 C5 A0
0D98: D9 CF D5 D2 A0 CD CF CE
0DA0: C5 D9 A0 CF CE A0 D4 C8
0DA8: C5 A0 D4 C5 D2 CD C9 CE
0DB0: C1 CC 29 01 08 A8 02 5F
0DB8: B1 46 05 01 1B B2 02 61
0DC0: 28 C8 C5 D9 AC A0 D9 CF
0DC8: D5 A0 C2 D2 CF CB C5 A0
0DD0: C5 D6 C5 CE AE 29 01 08
0DD8: BC 02 5F B1 46 05 01 2E
0DE0: C6 02 61 28 C3 CF CC CC
0DE8: C5 C3 D4 A0 D9 CF D5 D2
0DF0: A0 D7 C9 CE CE C9 CE C7
0DF8: D3 A0 C6 D2 CF CD A0 D4
0E00: C8 C5 A0 C3 C1 D3 C8 C9
0E08: C5 D2 AE 29 01 08 D0 02
0E10: 5F B1 46 05 01 0E DA 02
0E18: 60 DA 16 B1 01 00 24 B7
0E20: 0C 03 01 17 E4 02 63 03
0E28: 61 28 AA AA D4 CF D0 A0
0E30: C4 CF CC CC C1 D2 AA AA
0E38: 29 01 0F EE 02 61 28 D9
0E40: CF D5 A0 D7 CF CE A1 29
0E48: 01 15 F8 02 D0 71 38 38
0E50: 38 B1 0A 00 14 CD 72 12
0E58: CD 72 12 D0 72 01 08 02
0E60: 03 5F B5 FE 01 01 16 0C
0E68: 03 63 03 61 28 AA AA AA
0E70: CA C1 C3 CB D0 CF D4 AA
0E78: AA AA 29 01 0F 16 03 61
0E80: 28 D9 CF D5 A0 D7 CF CE
0E88: A1 29 01 15 20 03 D0 71
0E90: 38 38 38 B1 64 00 14 CD
0E98: 72 12 CD 72 12 D0 72 01
0EA0: 08 2A 03 5F B5 FE 01 01
0EA8: 15 34 03 63 03 61 28 AA
0EB0: C4 CF D5 C2 CC C5 A0 C2
0EB8: C1 D2 AA 29 01 0F 3E 03
0EC0: 61 28 D9 CF D5 A0 D7 CF
0EC8: CE A1 29 01 15 48 03 D0
0ED0: 71 38 38 38 B5 05 00 14
0ED8: CD 72 12 CD 72 12 D0 72
0EE0: 01 08 52 03 5F B5 FE 01
0EE8: 01 1C 5C 03 61 28 C8 CF
0EF0: D5 D3 C5 A0 CC C9 CD C9
0EF8: D4 D3 A0 C1 D2 C5 A0 A4
0F00: B1 B0 B0 29 01 08 66 03
0F08: 5F B1 A0 00 01 18 70 03
0F10: 61 28 CD C9 CE C9 CD D5
0F18: CD A0 C2 C5 D4 A0 C9 D3
0F20: A0 A4 B1 29 01 08 7A 03
0F28: 5F B1 A0 00 01 08 84 03
0F30: 5F B2 DC 00 01 16 8E 03
0F38: 61 28 AA AA AA AA C2 C1
0F40: D2 AA AA AA AA A0 29 47
0F48: 03 5B 01 16 98 03 61 28
0F50: AA AA AA C2 C5 CC CC AA
0F58: AA AA AA A0 29 47 03 5B
0F60: 01 16 A2 03 61 28 AA AA
0F68: CF D2 C1 CE C7 C5 AA AA
0F70: AA A0 29 47 03 5B 01 16
0F78: AC 03 61 28 AA AA AA CC
0F80: C5 CD CF CE AA AA AA A0
0F88: 29 47 03 5B 01 16 B6 03
0F90: 61 28 AA AA AA D0 CC D5
0F98: CD AA AA AA AA A0 29 47
0FA0: 03 5B 01 16 C0 03 61 28
0FA8: AA AA C3 C8 C5 D2 D2 D9
0FB0: AA AA AA A0 29 47 03 5B
0FB8: 01 11 3D 05 63 03 61 28
0FC0: C4 CF D5 C2 CC C5 A1 A1
0FC8: 29 01 0F 3E 05 61 28 D9
0FD0: CF D5 A0 D7 CF CE A1 29
0FD8: 01 15 3F 05 D0 71 38 38
0FE0: 38 B2 02 00 14 CD 72 12
0FE8: CD 72 12 D0 72 01 08 40
0FF0: 05 5F B5 FE 01 01 05 46
0FF8: 05 51 01 05 0F 27 51 01
E2B3R
RUN

150
code/programs/STARTREK.TXT Normal file
View File

@ -0,0 +1,150 @@
4A:00 03 00 10 3A CC 05 BF FD BF BF BF F8 F8 BF B7 7F BF BF B7 FF 21
:F7 BF 3F 3F 3F BF 77 10 60 3C 02 0A 01 FB 01 3B ED ED ED ED ED EC EC EC
:FF F7 B7 F7 FF B7 FF 35 17 7F F7 F7 BD B7 DF F7 B7 B7 F7 F7 AE A0 D0 00
:08 08 00 00 05 00 09 03 59 7D 82 7D 80 53 5B 61 77 37 F7 75 35 77 F1 37
:77 57 F7 71 CD F7 F7 B7 FF 97 B7 97 B2 B7 B7 00 F6 F7 00 00 00 FF 00 00
:21 08 07 FF FF FF FF FF FF 02 30 04 2D 04 1F FA 37 03 2D 04 00 FF 03 02
:20 FE 2B 05 25 05 FF F7 37 05 30 04 25 05 54 05 65 64 0E 0C 03 00 00 00
:00 00 63 00 77 75 F7 25 00 00 00 00 00 1F 00 FF
300:86 40 0B 03 A0 AD AD AD 1E AD 1E 88 40 1F 03 A0 A0 A0 A0 AA A0 BE A1 BC
:AB AB AB BC AA BE 1E A2 00 25 03 80 02 A6 00 2B 03 C0 02 A4 00 31 03 07
:00 94 00 37 03 09 00 86 00 3D 03 63 00 84 00 43 03 C0 02 96 00 49 03 02
:00 A6 B1 4F 03 02 00 9C 00 55 03 08 00 AC 00 5B 03 02 00 98 00 61 03 03
:00 92 00 67 03 3A 00 A0 00 6D 03 01 00 84 B1 73 03 02 00 96 B1 79 03 03
:00 A8 00 7F 03 06 00 8A B1 85 03 78 00 8A B2 8B 03 01 00 8A B0 91 03 12
:02 B2 B0 97 03 08 00 B0 B0 9D 03 12 00 B2 B1 A3 03 01 00 B0 B1 A9 03 02
:00 B2 B2 AF 03 00 00 B0 B2 B5 03 02 00 A2 B0 BB 03 0A 00 A6 B0 C1 03 02
:00 B0 B5 C7 03 02 00 B2 B5 CD 03 07 00 A2 B9 D3 03 07 00 86 B9 D9 03 01
:00 A6 B2 DF 03 01 00 96 B2 E5 03 00 00 84 B2 EB 03 00 00 96 B5 F1 03 C1
:FF B2 B6 F7 03 07 00 B0 B6 FD 03 02 00 84 B8 03 04 00 00 96 B8 09 04 00
:00 B2 00 0F 04 FF FF 8C B2 15 04 00 00 B0 00 1B 04 08 00 8C B1 21 04 00
:00 A2 B1 27 04 0B 00 94 B5 2D 04 02 00 0A 00 4E 14 0A 00 4E C3 40 22 B6
:06 00 72 43 C4 40 22 B1 0F 00 72 01 24 14 00 D1 71 B6 80 02 03 D3 71 B7
:C0 02 03 C4 40 70 28 A0 A0 A0 A0 AA A0 BE A1 BC AB AB AB BC AA BE 29 01
:17 1E 00 53 28 D4 D9 D0 C5 A0 C1 A0 CE D5 CD C2 C5 D2 A0 29 27 D2 01 18
:28 00 55 CA 56 B1 01 00 57 D2 03 C3 71 2F 3F B2 00 01 72 03 59 CA 01 0C
:32 00 C2 71 D1 03 5C B1 4C 04 01 20 3C 00 D3 B1 71 B7 4B 00 03 CE 71 D3
:B1 03 D6 71 B1 01 00 03 CC 71 B1 0A 00 03 5C B1 B0 04 01 20 46 00 C2 B1
:71 B2 02 00 03 CE 71 C2 B1 03 D6 71 B1 0A 00 03 CC 71 B2 14 00 03 5C B1
:B0 04 01 20 50 00 CB B1 71 B7 07 00 03 CE 71 CB B1 03 D6 71 B2 14 00 03
:CC 71 B4 28 00 03 5C B1 B0 04 01 22 5A 00 D4 71 B1 0F 00 03 5C B1 14 05
:03 C5 B0 71 2F 3F B4 00 10 72 03 5C B1 78 05 03 5C B1 E8 03 01 2F 6E 00
:63 03 53 28 C3 CF CD CD C1 CE C4 A0 29 27 C3 03 60 C3 1C B0 00 00 1E C3
:19 B5 05 00 24 B1 6E 00 03 5F B1 64 00 14 C3 12 B2 C8 00 01 32 C8 00 53
:28 D6 C5 C3 D4 CF D2 A0 29 27 D8 27 D9 03 D8 B0 71 D8 B0 12 D8 03 D9 B0
:71 D9 B0 12 D9 03 C5 B1 71 C5 B1 13 31 3F D8 72 13 31 3F D9 72 01 24 D2
:00 60 D8 B0 1C B0 00 00 1E D8 B0 19 B6 3F 00 1E D9 B0 1C B0 00 00 1E D9
:B0 19 B6 3F 00 24 B2 FA 00 01 2D DC 00 C5 B0 71 C5 B0 12 D8 12 B6 40 00
:14 D9 03 D1 B1 71 D1 B0 03 D3 B1 71 D3 B0 03 5C B1 78 05 03 60 D1 B0 16
:D1 B1 24 B2 FF 00 01 2A E6 00 C5 B1 71 C5 B1 13 B2 19 00 03 D4 71 D4 13
:B1 01 00 03 5C B1 E8 03 03 5C B1 78 05 03 60 D4 18 B0 00 00 24 B2 04 01
:01 12 F0 00 C3 40 70 28 D4 C9 CD C5 29 03 5F B9 D4 03 01 14 FA 00 C3 40
:70 28 C7 C1 CC C1 D8 D9 29 03 5F B9 D4 03 01 12 FF 00 64 D3 12 D3 B1 65
:B0 00 00 03 5C B1 1A 04 01 2F 04 01 5C B1 08 07 03 60 C2 B2 16 B0 00 00
:24 B2 22 01 03 60 31 3F D8 B6 13 D8 B2 72 12 31 3F D9 B6 13 D9 B2 72 17
:B1 01 00 24 B2 22 01 01 27 0E 01 61 28 AD A0 C4 CF C3 CB C5 C4 A0 AD 29
:03 5C B1 14 05 03 C2 B1 71 C2 B1 13 B1 01 00 03 C2 B2 71 B0 00 00 01 2B
:18 01 64 D1 12 D1 B0 65 2E 3F D1 12 D1 B0 72 13 B1 0A 00 03 64 D3 12 D8
:B6 12 B8 08 00 14 D9 B6 65 B0 00 00 03 5F B1 6E 00 01 15 22 01 60 CB B2
:17 B0 00 00 25 5C B5 26 02 03 5F B1 6E 00 01 1D 2C 01 C3 40 70 28 D3 C8
:CF D2 D4 29 03 5C B3 5E 01 03 5C B2 D0 07 03 5F B1 6E 00 01 23 5E 01 61
:C3 40 45 28 A0 D2 C1 CE C7 C5 A0 D3 C5 CE D3 CF D2 A0 D3 C3 C1 CE 29 03
:5C B3 68 01 03 5B 01 20 68 01 61 28 C6 CF D2 A0 D1 D5 C1 C4 D2 C1 CE D4
:A0 29 46 D8 B1 45 28 AC 29 46 D9 B1 03 5B 01 1D 90 01 C3 40 70 28 CC CF
:CE C7 29 03 5C B3 5E 01 03 CE 71 B3 03 00 03 5C B8 70 03 01 3E 9A 01 55
:D9 56 D9 B1 12 B1 01 00 57 D9 B1 13 B1 01 00 58 36 B1 01 00 03 C6 B2 71
:B0 00 00 03 60 D9 1C B0 00 00 1E D9 19 B7 07 00 25 C6 B2 71 B1 01 00 03
:5C B4 D6 01 03 5C B4 E0 01 01 2F A4 01 55 D8 56 D8 B1 13 B1 01 00 57 D8
:B1 12 B1 01 00 03 C6 B1 71 B0 00 00 03 60 D8 1C B0 00 00 1E D8 19 B7 07
:00 25 C6 B1 71 B1 01 00 01 20 AE 01 60 C6 B1 16 B0 00 00 1D C6 B2 16 B0
:00 00 24 B4 B8 01 03 61 C3 40 47 03 5F B4 CC 01 01 34 B8 01 D1 B9 71 D8
:12 B8 08 00 14 D9 03 5C B1 DC 05 03 64 D1 12 D1 B9 65 C3 B9 12 B4 28 00
:03 61 28 A1 A0 29 46 CB B2 46 C2 B2 46 D3 B2 45 28 A0 29 47 01 22 CC 01
:59 D8 03 61 28 A1 29 03 5C B4 E0 01 03 59 D9 03 5C B4 D6 01 03 5C B8 7A
:03 03 5F B1 6E 00 01 16 D6 01 C3 40 70 28 AB AD AD AD AD AD 29 03 5C B1
:40 06 03 5B 01 16 E0 01 C3 40 70 28 A1 A0 A0 A0 A0 A0 29 03 5C B1 40 06
:03 5B 01 39 F4 01 60 CB B2 16 B0 00 00 24 B6 B2 02 03 5C B7 16 03 03 61
:28 C5 CE C5 D2 C7 D9 BA A0 29 46 C5 B1 03 53 28 C6 C9 D2 C5 A0 29 27 C3
:03 60 C3 1C B1 01 00 24 B1 6E 00 01 36 08 02 C5 B1 71 C5 B1 13 C3 03 5C
:B1 08 07 03 CB B5 71 CB B5 13 C3 13 38 D2 14 B9 09 00 72 03 60 CB B5 19
:B0 00 00 24 B5 12 02 03 5C B1 6C 07 03 5F B1 6E 00 01 0D 12 02 5C B5 26
:02 03 5F B5 F4 01 01 48 26 02 CA B5 71 CB B5 15 B5 05 00 03 CB B5 71 CB
:B5 13 CA B5 03 C5 B1 71 C5 B1 13 CA B5 15 D2 03 62 CA B5 15 D2 45 28 A0
:D5 CE C9 D4 D3 A0 CF C6 A0 D0 C8 C1 D3 C5 D2 A0 C4 C1 CD C1 C7 C5 29 03
:5C B1 08 07 03 5B 01 35 58 02 60 CB B2 16 B0 00 00 24 B6 B2 02 03 60 C5
:B2 17 B0 00 00 24 B6 62 02 03 61 28 CE CF A0 CD CF D2 C5 A0 D4 CF D2 D0
:C5 C4 CF C5 D3 29 03 5F B1 6E 00 01 25 62 02 C5 B2 71 C5 B2 13 B1 01 00
:03 60 D2 19 2F 3F B1 0F 00 72 24 B6 80 02 03 5C B1 6C 07 03 5F B1 6E 00
:01 1C 80 02 61 28 D9 CF D5 A0 CD C9 D3 D3 C5 C4 A1 29 03 5C B5 26 02 03
:5F B1 6E 00 01 20 B2 02 61 28 CE CF D4 C8 C9 CE C7 A0 D4 CF A0 D3 C8 CF
:CF D4 A0 C1 D4 A1 29 03 5F B1 6E 00 01 25 BC 02 53 28 C3 CF CD D0 D5 D4
:C5 D2 A0 D2 C5 D1 D5 C5 D3 D4 A0 29 27 C3 03 60 C3 16 B0 00 00 24 B8 20
:03 01 17 C6 02 61 28 D3 D4 C1 D4 D5 D3 A0 D2 C5 D0 CF D2 D4 BA 29 03 63
:01 19 D0 02 5C B7 16 03 03 61 28 CB CC C9 CE C7 CF CE D3 A0 BD 29 49 CB
:B1 01 19 DA 02 5C B7 16 03 03 61 28 D3 D4 C1 D2 C4 C1 D4 C5 D3 A0 BD 29
:49 D4 01 1A E4 02 5C B7 16 03 03 61 28 D3 D4 C1 D2 C2 C1 D3 C5 D3 A0 BD
:29 49 C2 B1 01 1A EE 02 5C B7 16 03 03 61 28 D4 CF D2 D0 C5 C4 CF C5 D3
:A0 BD 29 49 C5 B2 01 17 F8 02 5C B7 16 03 03 61 28 C5 CE C5 D2 C7 D9 A0
:BD 29 49 C5 B1 01 08 02 03 5F B1 6E 00 01 14 16 03 61 28 D2 C5 CD C1 C9
:CE C9 CE C7 A0 29 47 03 5B 01 2F 20 03 61 28 A0 C7 C1 CC C1 C3 D4 C9 C3
:A0 CD C1 D0 29 03 61 28 A0 29 47 03 5C B3 68 01 03 C3 40 70 28 A0 AD AD
:AD 29 03 CE 71 B8 08 00 01 1D 2A 03 5C B8 70 03 03 55 D9 56 B7 07 00 57
:B0 00 00 58 36 B1 01 00 03 5C B1 40 06 01 28 34 03 55 D8 56 B0 00 00 57
:B7 07 00 03 D1 B9 71 D8 12 B8 08 00 14 D9 03 5C B1 DC 05 03 D0 71 2E 3F
:D1 12 D1 B9 72 01 1C 3E 03 60 D0 19 B3 27 00 24 B8 48 03 03 61 28 A0 A0
:A0 A0 29 47 03 5F B8 52 03 01 12 48 03 61 28 A0 29 46 CB B2 46 C2 B2 46
:D3 B2 47 01 08 52 03 59 D8 03 63 01 15 5C 03 59 D9 03 5C B1 40 06 03 5C
:B8 7A 03 03 5F B1 6E 00 01 11 70 03 C2 B8 71 C2 B2 03 CB B8 71 CB B2 03
:5B 01 11 7A 03 C2 B2 71 C2 B8 03 CB B2 71 CB B8 03 5B 01 1C D4 03 63 03
:61 28 AD AD A0 CF D5 D4 A0 CF C6 A0 29 45 C3 40 45 28 A0 AD AD 29 01 21
:DE 03 61 28 D9 CF D5 A0 CC C5 C6 D4 A0 29 46 CB B1 45 28 A0 CB CC C9 CE
:C7 CF CE D3 29 03 51 01 24 E8 03 C2 71 D3 03 5C B1 4C 04 03 D1 B9 71 D1
:B0 03 5C B1 DC 05 03 64 D1 12 D1 B9 65 C3 B9 12 B4 28 00 01 19 F2 03 CE
:71 D3 B2 03 D6 71 B1 01 00 03 CC 71 B2 02 00 03 5C B1 B0 04 01 35 FC 03
:CE 71 CB B2 03 D6 71 B3 03 00 03 CC 71 B4 04 00 03 5C B1 B0 04 03 CB B5
:71 B1 64 00 03 D9 B5 71 C9 15 B8 08 00 03 D8 B5 71 C9 13 B8 08 00 14 D9
:B5 01 2E 06 04 CE 71 C2 B2 03 D6 71 B2 02 00 03 CC 71 B3 03 00 03 5C B1
:B0 04 03 D9 B6 71 C9 15 B8 08 00 03 D8 B6 71 C9 13 B8 08 00 14 D9 B6 01
:4A 0B 04 C3 40 70 28 C7 D2 C5 C5 CE 29 03 60 CB B2 17 B0 00 00 25 C3 40
:70 28 D2 C5 C4 A1 29 03 63 03 61 28 D3 D4 C1 D2 C4 C1 D4 C5 BA A0 29 46
:B3 CE 0C 13 D4 45 28 AC A0 A0 C3 CF CE C4 C9 D4 C9 CF CE BA A0 29 45 C3
:40 01 33 10 04 61 28 D1 D5 C1 C4 D2 C1 CE D4 A0 29 46 D8 B1 45 28 AC 29
:46 D9 B1 45 28 A0 A0 AD A0 A0 D3 C5 C3 D4 CF D2 A0 29 46 D8 B2 45 28 AC
:29 46 D9 B2 01 20 1A 04 D0 71 2E 3F D3 12 D3 B0 72 03 64 D3 12 D3 B0 65
:B4 04 00 03 60 D0 16 B0 00 00 25 5B 01 1F 24 04 63 03 61 28 AA AA AA A0
:C3 CF CC CC C9 D3 C9 CF CE A0 D7 C9 D4 C8 A0 C1 A0 29 47 01 3A 2E 04 60
:D0 16 B1 01 00 25 61 28 D3 D4 C1 D2 29 47 03 60 D0 16 B2 02 00 25 61 28
:D3 D4 C1 D2 C2 C1 D3 C5 29 47 03 60 D0 16 B3 03 00 25 61 28 CB CC C9 CE
:C7 CF CE 29 47 01 21 38 04 61 28 A0 AA AA AA 29 03 60 D0 16 B3 03 00 25
:CB B1 71 CB B1 13 B1 01 00 03 5F B9 DE 03 01 1C 4C 04 55 CB 56 B0 00 00
:57 B6 3F 00 03 64 C2 12 CB 65 B0 00 00 03 59 CB 03 5B 01 15 B0 04 60 CE
:16 B0 00 00 25 5B 03 55 CB 56 B1 01 00 57 CE 01 2E BA 04 C9 71 2F 3F B6
:40 00 72 03 D0 71 2E 3F C2 12 C9 72 03 60 D0 12 D6 18 CC 24 B1 BA 04 03
:64 C2 12 C9 65 D0 12 D6 03 59 CB 03 5B 01 13 14 05 C5 B1 71 B5 F4 01 03
:C5 B2 71 B3 03 00 03 5B 01 48 78 05 D9 B0 71 C5 B0 15 B6 40 00 03 D8 B0
:71 C5 B0 13 B6 40 00 14 D9 B0 03 D9 B1 71 D9 B0 15 B8 08 00 03 D8 B1 71
:D8 B0 15 B8 08 00 03 D9 B2 71 D9 B0 13 B8 08 00 14 D9 B1 03 D8 B2 71 D8
:B0 13 B8 08 00 14 D8 B1 01 33 82 05 D1 B0 71 D8 B1 12 B8 08 00 14 D9 B1
:03 D3 B0 71 D8 B2 12 B8 08 00 14 D9 B2 03 D2 71 31 3F D8 B5 13 D8 B2 72
:12 31 3F D9 B5 13 D9 B2 72 03 5B 01 20 DC 05 C3 B9 71 2E 3F D1 12 D1 B9
:72 03 60 C3 B9 18 B4 28 00 25 C3 B9 71 C3 B9 13 B4 28 00 01 38 E6 05 D3
:B2 71 C3 B9 13 B1 0A 00 14 38 C3 B9 15 B1 0A 00 72 03 CB B2 71 C3 B9 15
:B2 14 00 03 C2 B2 71 38 C3 B9 13 D3 B2 13 B2 14 00 14 CB B2 72 15 B1 0A
:00 03 5B 01 23 40 06 55 CA 56 B1 01 00 57 CE 03 61 C3 40 47 03 59 CA 03
:61 C3 40 2A B1 01 00 23 B1 01 00 72 03 5B 01 0D 08 07 60 C5 B1 19 B0 00
:00 25 5B 01 14 12 07 C3 40 70 28 C5 CE C5 D2 C7 D9 29 03 5F B9 D4 03 01
:47 6C 07 61 28 AA AA AA A0 C2 CF CF CD A0 AA AA AA 29 03 CB B1 71 CB B1
:13 B1 01 00 03 CB B2 71 B0 00 00 03 64 D1 12 D1 B0 65 2E 3F D1 12 D1 B0
:72 13 B2 14 00 03 64 D3 12 D8 B5 12 B8 08 00 14 D9 B5 65 B0 00 00 01 26
:76 07 60 CB B1 25 5B 03 63 03 61 28 CD C9 D3 D3 C9 CF CE A0 C1 C3 C3 CF
:CD D0 CC C9 D3 C8 C5 C4 A1 29 03 51 01 18 D0 07 C3 40 70 28 AB AD AD AD
:29 03 CE 71 B8 08 00 03 5C B1 40 06 01 1E DA 07 55 D9 56 B7 07 00 57 B0
:00 00 58 36 B1 01 00 03 55 D8 56 B0 00 00 57 B7 07 00 01 42 E4 07 D0 71
:B3 03 00 14 2E 3F D3 12 D8 12 B8 08 00 14 D9 72 12 B1 01 00 03 60 D8 16
:B0 00 00 25 61 28 A1 29 47 03 60 D8 17 B0 00 00 25 61 28 A0 29 47 03 61
:C4 40 2A D0 23 D0 12 B2 02 00 72 47 01 26 EE 07 59 D8 03 61 28 A1 29 03
:60 D9 16 B0 00 00 24 B2 F8 07 03 61 28 AB 29 47 03 50 B3 21 00 03 61 28
:AB 29 01 0D F8 07 59 D9 03 5C B1 40 06 03 5B FF
E2B3R
RUN

File diff suppressed because it is too large Load Diff

922
code/programs/WUMPUS.TXT Normal file
View File

@ -0,0 +1,922 @@
004A: 00 04 00 20 4D A5
0050: 05 BF FD BF BF BF F8 F8
0058: BF B7 7F BF BF B7 FF 21
0060: F7 BF 3F 3F 3F BF 77 10
0068: 60 3C 00 04 02 FB B2 00
0070: ED ED ED ED ED EC ED ED
0078: FF F7 B7 F7 FF B7 FF 35
0080: 17 00 F7 F7 BD FD DF F7
0088: B7 B7 F7 F7 00 00 01 00
0090: 00 00 D9 1B 02 00 04 00
0098: 82 59 5E 9C 13 7C F3 FF
00A0: 03 00 F7 75 35 04 00 00
00A8: 96 1B 00 01 CD F7 4D 0E
00B0: 6C DF 05 00 7E 9C B7 00
00B8: F6 F7 FF 0C FF FF FF B0
00C0: 09 04 04 09 03 FF FF FF
00C8: 0A 0C 5D 08 DE 04 00 B0
00D0: A7 B3 00 02 00 00 01 00
00D8: 21 03 DA 04 86 1A 00 06
00E0: 10 02 84 0D 5D 08 6B 0D
00E8: 2B 11 0C 0C 0F 0B 0A 0A
00F0: 0A 10 00 50 E8 75 F7 25
00F8: 00 00 00 01 01 20 00 ED
0400: 92 40 06 04 D3 1E A6 00
0408: 82 04 02 00 05 00 08 00
0410: 01 00 03 00 0A 00 02 00
0418: 04 00 0C 00 03 00 05 00
0420: 0E 00 01 00 04 00 06 00
0428: 05 00 07 00 0F 00 06 00
0430: 08 00 11 00 01 00 07 00
0438: 09 00 08 00 0A 00 12 00
0440: 02 00 09 00 0B 00 0A 00
0448: 0C 00 13 00 03 00 0B 00
0450: 0D 00 0C 00 0E 00 14 00
0458: 04 00 0D 00 0F 00 06 00
0460: 0E 00 10 00 0F 00 11 00
0468: 14 00 07 00 10 00 12 00
0470: 09 00 11 00 13 00 0B 00
0478: 12 00 14 00 0D 00 10 00
0480: 13 00 B4 B1 88 04 0F 00
0488: 98 00 98 04 02 00 0F 00
0490: 08 00 09 00 0C 00 06 00
0498: 9A 00 A8 04 14 00 0F 00
04A0: 08 00 09 00 0C 00 06 00
04A8: 94 00 AE 04 07 00 96 00
04B0: B4 04 02 00 82 00 BA 04
04B8: 05 00 B0 B1 C0 04 05 00
04C0: B2 B1 C6 04 01 00 9E 00
04C8: CC 04 01 00 8C 00 D2 04
04D0: 00 00 94 B1 D8 04 03 00
04D8: A0 00 DE 04 05 00 00 00
04E0: 00 00 00 00 00 00 00 00
04E8: 00 00 00 00 00 00 00 00
04F0: 00 00 00 00 00 00 00 00
04F8: 00 00 00 00 00 00 00 00
0500: 04 03 05 38 B5 02 E9 30
0508: 30 18 C9 0A 30 07 38 E9
0510: 07 C9 0A 30 0D D5 00 10
0518: 09 95 02 A9 01 48 98 4C
0520: 3F 03 98 48 E8 E8 4C 3F
0528: 03 86 28 46 49 4E 44 A9
0530: F9 04 34 05 A9 02 20 04
0538: 04 86 B5 A0 00 B1 A6 51
0540: A8 29 3F D0 2D C8 B1 A6
0548: 51 A8 0A D0 23 90 F6 A6
0550: B5 CA CA CA CA 18 98 69
0558: 05 65 A6 95 02 A0 00 98
0560: 65 A7 95 03 94 01 B1 A6
0568: 95 00 A9 01 48 4C 3D 03
0570: B0 05 C8 B1 A6 10 FB C8
0578: B1 A6 AA C8 B1 A6 85 A7
0580: 86 A6 05 A6 D0 B5 A6 B5
0588: A9 00 48 4C 3D 03 87 45
0590: 4E 43 4C 4F 53 C5 29 05
0598: 9A 05 A9 02 20 04 04 8A
05A0: 38 E9 08 AA 94 03 94 01
05A8: 88 C8 B1 A8 C5 A6 F0 F9
05B0: 94 04 B1 A8 D0 0E 94 02
05B8: 94 00 98 D5 04 D0 02 F6
05C0: 02 4C 44 03 94 02 C8 C5
05C8: A6 D0 E7 94 00 4C 44 03
05D0: 84 45 4D 49 D4 8E 05 F2
05D8: 16 83 4B 45 D9 D0 05 0D
05E0: 17 89 3F 54 45 52 4D 49
05E8: 4E 41 CC D9 05 17 17 82
05F0: 43 D2 E1 05 22 17 85 43
05F8: 4D 4F 56 C5 EF 05 00 06
0600: A9 03 20 04 04 C4 A6 D0
0608: 07 C6 A7 10 03 4C 44 03
0610: B1 AA 91 A8 C8 D0 EE E6
0618: AB E6 A9 4C 05 06 82 55
0620: AA F6 05 25 06 B5 02 85
0628: A6 94 02 B5 03 85 A7 94
0630: 03 A0 10 16 02 36 03 36
0638: 00 36 01 90 13 18 A5 A6
0640: 75 02 95 02 A5 A7 75 03
0648: 95 03 A9 00 75 00 95 00
0650: 88 D0 E0 4C 44 03 82 55
0658: AF 1E 06 5D 06 B5 04 B4
0660: 02 94 04 0A 95 02 B5 05
0668: B4 03 94 05 2A 95 03 A9
0670: 10 85 A6 36 04 36 05 38
0678: B5 04 F5 00 A8 B5 05 F5
0680: 01 90 04 94 04 95 05 36
0688: 02 36 03 C6 A6 D0 E4 4C
0690: EE 04 83 41 4E C4 56 06
0698: 9A 06 B5 00 35 02 48 B5
06A0: 01 35 03 E8 E8 4C 3F 03
06A8: 82 4F D2 92 06 AF 06 B5
06B0: 00 15 02 48 B5 01 15 03
06B8: E8 E8 4C 3F 03 83 58 4F
06C0: D2 A8 06 C5 06 B5 00 55
06C8: 02 48 B5 01 55 03 E8 E8
06D0: 4C 3F 03 83 53 50 C0 BD
06D8: 06 DB 06 8A 48 A9 00 4C
06E0: 3D 03 83 53 50 A1 D3 06
06E8: EA 06 A0 06 B1 B3 AA 4C
06F0: 44 03 83 52 50 A1 E2 06
06F8: FA 06 86 B5 A0 08 B1 B3
0700: AA 9A A6 B5 4C 44 03 82
0708: 3B D3 F2 06 0E 07 68 85
0710: AE 68 85 AF 4C 44 03 85
0718: 4C 45 41 56 C5 07 07 21
0720: 07 86 B5 BA BD 01 01 9D
0728: 03 01 BD 02 01 9D 04 01
0730: A6 B5 4C 44 03 82 3E D2
0738: 17 07 3C 07 B5 01 48 B5
0740: 00 48 E8 E8 4C 44 03 82
0748: 52 BE 35 07 4E 07 CA CA
0750: 68 95 00 68 95 01 4C 44
0758: 03 81 D2 47 07 5F 07 86
0760: B5 BA BD 01 01 48 BD 02
0768: 01 A6 B5 4C 3D 03 82 30
0770: BD 59 07 75 07 B5 01 94
0778: 01 15 00 D0 01 C8 94 00
0780: 4C 44 03 82 30 BC 6E 07
0788: 8A 07 16 01 98 2A 94 01
0790: 95 00 4C 44 03 81 AB 83
0798: 07 9B 07 18 B5 00 75 02
07A0: 95 02 B5 01 75 03 95 03
07A8: E8 E8 4C 44 03 82 44 AB
07B0: 95 07 B4 07 18 B5 02 75
07B8: 06 95 06 B5 03 75 07 95
07C0: 07 B5 00 75 04 95 04 B5
07C8: 01 75 05 95 05 4C EC 04
07D0: 85 4D 49 4E 55 D3 AD 07
07D8: DA 07 38 98 F5 00 95 00
07E0: 98 F5 01 95 01 4C 44 03
07E8: 86 44 4D 49 4E 55 D3 D0
07F0: 07 F3 07 38 98 F5 02 95
07F8: 02 98 F5 03 95 03 4C DB
0800: 07 84 4F 56 45 D2 E8 07
0808: 0A 08 B5 02 48 B5 03 4C
0810: 3D 03 84 44 52 4F D0 01
0818: 08 EE 04 84 53 57 41 D0
0820: 12 08 24 08 B5 02 48 B5
0828: 00 95 02 B5 03 B4 01 94
0830: 03 4C 3F 03 83 44 55 D0
0838: 1B 08 3C 08 B5 00 48 B5
0840: 01 4C 3D 03 82 2B A1 34
0848: 08 4B 08 18 A1 00 75 02
0850: 81 00 F6 00 D0 02 F6 01
0858: A1 00 75 03 81 35 05 00
0860: 5D A0 C3 CF CE D6 C5 D2
0868: D4 C5 C4 A0 D4 CF A0 D2
0870: C5 D0 CC C9 C3 C1 A0 B1
0878: A0 C2 D9 A0 D6 C9 CE C3
0880: C5 A0 C2 D2 C9 C5 CC A0
0888: B2 AF B1 B9 AF B2 B0 B0
0890: B6 01 19 0A 00 61 28 A0
0898: A0 A0 A0 A0 A0 A0 A0 A0
08A0: A0 A0 A0 D7 D5 CD D0 D5
08A8: D3 29 01 29 14 00 61 28
08B0: A0 C3 D2 C5 C1 D4 C9 D6
08B8: C5 A0 C3 CF CD D0 D5 D4
08C0: C9 CE C7 A0 CD CF D2 D2
08C8: C9 D3 D4 CF D7 CE AC A0
08D0: CE CA 29 01 05 16 00 63
08D8: 01 05 18 00 63 01 05 1A
08E0: 00 63 01 1A 1E 00 61 28
08E8: C9 CE D3 D4 D2 D5 C3 D4
08F0: C9 CF CE D3 A0 A8 D9 AD
08F8: CE A9 29 47 01 07 28 00
0900: 52 C9 40 01 0F 32 00 60
0908: C9 40 39 28 CE 29 24 B6
0910: 3C 00 01 08 37 00 5C B1
0918: E8 03 01 2B 3C 00 5D AD
0920: A0 D3 C5 D4 A0 D5 D0 A0
0928: C3 C1 D6 C5 A0 A8 C4 CF
0930: C4 C5 C3 C1 C8 C5 C4 D2
0938: C1 CC A0 CE CF C4 C5 A0
0940: CC C9 D3 D4 A9 01 0B 46
0948: 00 4F D3 34 B6 3C 00 72
0950: 01 0A 4B 00 DA B1 71 B0
0958: 00 00 01 66 50 00 D3 2D
0960: B1 01 00 72 71 B2 02 00
0968: 03 D3 2D B2 02 00 72 71
0970: B5 05 00 03 D3 2D B3 03
0978: 00 72 71 B8 08 00 03 D3
0980: 2D B4 04 00 72 71 B1 01
0988: 00 03 D3 2D B5 05 00 72
0990: 71 B3 03 00 03 D3 2D B6
0998: 06 00 72 71 B1 0A 00 03
09A0: D3 2D B7 07 00 72 71 B2
09A8: 02 00 03 D3 2D B8 08 00
09B0: 72 71 B4 04 00 03 D3 2D
09B8: B9 09 00 72 71 B1 0C 00
09C0: 01 45 5A 00 D3 2D B1 0A
09C8: 00 72 71 B3 03 00 03 D3
09D0: 2D B1 0B 00 72 71 B5 05
09D8: 00 03 D3 2D B1 0C 00 72
09E0: 71 B1 0E 00 03 D3 2D B1
09E8: 0D 00 72 71 B1 01 00 03
09F0: D3 2D B1 0E 00 72 71 B4
09F8: 04 00 03 D3 2D B1 0F 00
0A00: 72 71 B6 06 00 01 5B 64
0A08: 00 D3 2D B1 10 00 72 71
0A10: B5 05 00 03 D3 2D B1 11
0A18: 00 72 71 B7 07 00 03 D3
0A20: 2D B1 12 00 72 71 B1 0F
0A28: 00 03 D3 2D B1 13 00 72
0A30: 71 B6 06 00 03 D3 2D B2
0A38: 14 00 72 71 B8 08 00 03
0A40: D3 2D B2 15 00 72 71 B1
0A48: 11 00 03 D3 2D B2 16 00
0A50: 72 71 B1 01 00 03 D3 2D
0A58: B2 17 00 72 71 B7 07 00
0A60: 01 50 69 00 D3 2D B2 18
0A68: 00 72 71 B9 09 00 03 D3
0A70: 2D B2 19 00 72 71 B8 08
0A78: 00 03 D3 2D B2 1A 00 72
0A80: 71 B1 0A 00 03 D3 2D B2
0A88: 1B 00 72 71 B1 12 00 03
0A90: D3 2D B2 1C 00 72 71 B2
0A98: 02 00 03 D3 2D B2 1D 00
0AA0: 72 71 B9 09 00 03 D3 2D
0AA8: B3 1E 00 72 71 B1 0B 00
0AB0: 01 5B 6E 00 D3 2D B3 1F
0AB8: 00 72 71 B1 0A 00 03 D3
0AC0: 2D B3 20 00 72 71 B1 0C
0AC8: 00 03 D3 2D B3 21 00 72
0AD0: 71 B1 13 00 03 D3 2D B3
0AD8: 22 00 72 71 B3 03 00 03
0AE0: D3 2D B3 23 00 72 71 B1
0AE8: 0B 00 03 D3 2D B3 24 00
0AF0: 72 71 B1 0D 00 03 D3 2D
0AF8: B3 25 00 72 71 B1 0C 00
0B00: 03 D3 2D B3 26 00 72 71
0B08: B1 0E 00 01 50 73 00 D3
0B10: 2D B3 27 00 72 71 B2 14
0B18: 00 03 D3 2D B4 28 00 72
0B20: 71 B4 04 00 03 D3 2D B4
0B28: 29 00 72 71 B1 0D 00 03
0B30: D3 2D B4 2A 00 72 71 B1
0B38: 0F 00 03 D3 2D B4 2B 00
0B40: 72 71 B6 06 00 03 D3 2D
0B48: B4 2C 00 72 71 B1 0E 00
0B50: 03 D3 2D B4 2D 00 72 71
0B58: B1 10 00 01 5B 78 00 D3
0B60: 2D B4 2E 00 72 71 B1 0F
0B68: 00 03 D3 2D B4 2F 00 72
0B70: 71 B1 11 00 03 D3 2D B4
0B78: 30 00 72 71 B2 14 00 03
0B80: D3 2D B4 31 00 72 71 B7
0B88: 07 00 03 D3 2D B5 32 00
0B90: 72 71 B1 10 00 03 D3 2D
0B98: B5 33 00 72 71 B1 12 00
0BA0: 03 D3 2D B5 34 00 72 71
0BA8: B9 09 00 03 D3 2D B5 35
0BB0: 00 72 71 B1 11 00 01 50
0BB8: 7D 00 D3 2D B5 36 00 72
0BC0: 71 B1 13 00 03 D3 2D B5
0BC8: 37 00 72 71 B1 0B 00 03
0BD0: D3 2D B5 38 00 72 71 B1
0BD8: 12 00 03 D3 2D B5 39 00
0BE0: 72 71 B2 14 00 03 D3 2D
0BE8: B5 3A 00 72 71 B1 0D 00
0BF0: 03 D3 2D B5 3B 00 72 71
0BF8: B1 10 00 03 D3 2D B6 3C
0C00: 00 72 71 B1 13 00 01 2B
0C08: 82 00 5D A0 C4 C1 D4 C1
0C10: A0 B2 AC B5 AC B8 AC B1
0C18: AC B3 AC B1 B0 AC B2 AC
0C20: B4 AC B1 B2 AC B3 AC B5
0C28: AC B1 B4 AC B1 AC B4 AC
0C30: B6 01 2D 8C 00 5D A0 C4
0C38: C1 D4 C1 A0 B5 AC B7 AC
0C40: B1 B5 AC B6 AC B8 AC B1
0C48: B7 AC B1 AC B7 AC B9 AC
0C50: B8 AC B1 B0 AC B1 B8 AC
0C58: B2 AC B9 AC B1 B1 01 34
0C60: 96 00 5D A0 C4 C1 D4 C1
0C68: A0 B1 B0 AC B1 B2 AC B1
0C70: B9 AC B3 AC B1 B1 AC B1
0C78: B3 AC B1 B2 AC B1 B4 AC
0C80: B2 B0 AC B4 AC B1 B3 AC
0C88: B1 B5 AC B6 AC B1 B4 AC
0C90: B1 B6 01 35 A0 00 5D A0
0C98: C4 C1 D4 C1 A0 B1 B5 AC
0CA0: B1 B7 AC B2 B0 AC B7 AC
0CA8: B1 B6 AC B1 B8 AC B9 AC
0CB0: B1 B7 AC B1 B9 AC B1 B1
0CB8: AC B1 B8 AC B2 B0 AC B1
0CC0: B3 AC B1 B6 AC B1 B9 01
0CC8: 21 AA 00 5D A0 C4 C5 C6
0CD0: A0 C6 CE C1 A8 D8 A9 BD
0CD8: C9 CE D4 A8 B2 B0 AA D2
0CE0: CE C4 A8 B1 A9 A9 AB B1
0CE8: 01 20 B4 00 5D A0 C4 C5
0CF0: C6 A0 C6 CE C2 A8 D8 A9
0CF8: BD C9 CE D4 A8 B3 AA D2
0D00: CE C4 A8 B1 A9 A9 AB B1
0D08: 01 20 BE 00 5D A0 C4 C5
0D10: C6 A0 C6 CE C3 A8 D8 A9
0D18: BD C9 CE D4 A8 B4 AA D2
0D20: CE C4 A8 B1 A9 A9 AB B1
0D28: 01 1B C8 00 5D AD A0 CC
0D30: CF C3 C1 D4 C5 A0 CC A0
0D38: C1 D2 D2 C1 D9 A0 C9 D4
0D40: C5 CD D3 01 27 D2 00 5D
0D48: AD A0 B1 AD D9 CF D5 AC
0D50: B2 AD D7 D5 CD D0 D5 D3
0D58: AC B3 A6 B4 AD D0 C9 D4
0D60: D3 AC B5 A6 B6 AD C2 C1
0D68: D4 D3 01 19 DC 00 4F CC
0D70: 34 B6 06 00 72 44 CD 34
0D78: B6 06 00 72 44 D0 34 B6
0D80: 06 00 72 01 0E E6 00 55
0D88: CA 56 B1 01 00 57 B6 06
0D90: 00 01 13 F0 00 CC 2D CA
0D98: 72 71 2F 3F B2 14 00 72
0DA0: 12 B1 01 00 01 0D 04 01
0DA8: CD 2D CA 72 71 CC 2D CA
0DB0: 72 01 06 0E 01 59 CA 01
0DB8: 2E 18 01 5D AD A0 C3 C8
0DC0: C5 C3 CB A0 C6 CF D2 A0
0DC8: C3 D2 CF D3 D3 CF D6 C5
0DD0: D2 D3 A0 A8 C9 C5 A0 CC
0DD8: A8 B1 A9 BD CC A8 B2 A9
0DE0: A0 C5 D4 C3 A9 01 0E 22
0DE8: 01 55 CA 56 B1 01 00 57
0DF0: B6 06 00 01 0C 2C 01 55
0DF8: CB 56 CA 57 B6 06 00 01
0E00: 0C 36 01 60 CA 16 CB 24
0E08: B3 4A 01 01 12 40 01 60
0E10: CC 2D CA 72 16 CC 2D CB
0E18: 72 24 B2 F0 00 01 06 4A
0E20: 01 59 CB 01 06 54 01 59
0E28: CA 01 11 5E 01 5D AD A0
0E30: D3 C5 D4 A3 A0 C1 D2 D2
0E38: CF D3 01 09 68 01 C1 71
0E40: B5 05 00 01 0C 6D 01 CC
0E48: 71 CC 2D B1 01 00 72 01
0E50: 13 72 01 5D AD A0 D2 D5
0E58: CE A0 D4 C8 C5 A0 C7 C1
0E60: CD C5 01 16 77 01 61 28
0E68: C8 D5 CE D4 A0 D4 C8 C5
0E70: A0 D7 D5 CD D0 D5 D3 29
0E78: 01 22 7C 01 5D AD A0 C8
0E80: C1 DA C1 D2 C4 A0 D7 C1
0E88: D2 CE C9 CE C7 D3 A0 A6
0E90: A0 CC CF C3 C1 D4 C9 CF
0E98: CE D3 01 08 86 01 5C B2
0EA0: D0 07 01 14 90 01 5D AD
0EA8: A0 CD CF D6 C5 A0 CF D2
0EB0: A0 D3 C8 CF CF D4 01 08
0EB8: 9A 01 5C B2 C4 09 01 24
0EC0: A4 01 5F B4 90 01 12 38
0EC8: CF 14 B4 28 00 72 03 5D
0ED0: A0 CF CE A0 CF A0 C7 CF
0ED8: D4 CF A0 B4 B4 B0 AC B4
0EE0: B8 B0 01 0C AE 01 5D AD
0EE8: A0 D3 C8 CF CF D4 01 08
0EF0: B8 01 5C B3 B8 0B 01 0E
0EF8: C2 01 60 C6 16 B0 00 00
0F00: 24 B3 72 01 01 08 CC 01
0F08: 5F B5 F4 01 01 0B D6 01
0F10: 5D AD A0 CD CF D6 C5 01
0F18: 08 E0 01 5C B4 A0 0F 01
0F20: 0E EA 01 60 C6 16 B0 00
0F28: 00 24 B3 86 01 01 0E F4
0F30: 01 60 C6 19 B0 00 00 24
0F38: B5 26 02 01 0B FE 01 5D
0F40: AD A0 CC CF D3 C5 01 1B
0F48: 08 02 61 28 C8 C1 A0 C8
0F50: C1 A0 C8 C1 A0 AD A0 D9
0F58: CF D5 A0 CC CF D3 C5 A1
0F60: 29 01 08 12 02 5F B5 30
0F68: 02 01 0A 1C 02 5D AD A0
0F70: D7 C9 CE 01 35 26 02 61
0F78: 28 C8 C5 C5 A0 C8 C5 C5
0F80: A0 C8 C5 C5 A0 AD A0 D4
0F88: C8 C5 A0 D7 D5 CD D0 D5
0F90: D3 A7 CC CC A0 C7 C5 D4
0F98: C3 C8 C1 A0 CE C5 D8 D4
0FA0: A0 D4 C9 CD C5 A1 A1 29
0FA8: 01 0E 30 02 55 CA 56 B1
0FB0: 01 00 57 B6 06 00 01 0D
0FB8: 3A 02 CC 2D CA 72 71 CD
0FC0: 2D CA 72 01 06 44 02 59
0FC8: CA 01 19 4E 02 61 28 D3
0FD0: C1 CD C5 A0 D3 C5 D4 AD
0FD8: D5 D0 A0 A8 D9 AD CE A9
0FE0: 29 47 01 07 58 02 52 C9
0FE8: 40 01 0F 62 02 60 C9 40
0FF0: 3A 28 D9 29 24 B2 E6 00
0FF8: 01 08 6C 02 5F B3 68 01
1000: 01 13 E8 03 5D AD A0 C9
1008: CE D3 D4 D2 D5 C3 D4 C9
1010: CF CE D3 01 23 F2 03 61
1018: 28 D7 C5 CC C3 CF CD C5
1020: A0 D4 CF A0 A7 C8 D5 CE
1028: D4 A0 D4 C8 C5 A0 D7 D5
1030: CD D0 D5 D3 A7 29 01 3A
1038: FC 03 61 28 A0 A0 D4 C8
1040: C5 A0 D7 D5 CD D0 D5 D3
1048: A0 CC C9 D6 C5 D3 A0 C9
1050: CE A0 C1 A0 C3 C1 D6 C5
1058: A0 CF C6 A0 B2 B0 A0 D2
1060: CF CF CD D3 AE A0 C5 C1
1068: C3 C8 A0 D2 CF CF CD 29
1070: 01 37 06 04 61 28 C8 C1
1078: D3 A0 B3 A0 D4 D5 CE CE
1080: C5 CC D3 A0 CC C5 C1 C4
1088: C9 CE C7 A0 D4 CF A0 CF
1090: D4 C8 C5 D2 A0 D2 CF CF
1098: CD D3 AE A0 A8 CC CF CF
10A0: CB A0 C1 D4 A0 C1 29 01
10A8: 3B 10 04 61 28 C4 CF C4
10B0: C5 C3 C1 C8 C5 C4 D2 CF
10B8: CE A0 D4 CF A0 D3 C5 C5
10C0: A0 C8 CF D7 A0 D4 C8 C9
10C8: D3 A0 D7 CF D2 CB D3 AD
10D0: C9 C6 A0 D9 CF D5 A0 C4
10D8: CF CE A7 D4 A0 CB CE CF
10E0: D7 29 01 2A 1A 04 61 28
10E8: D7 C8 C1 D4 A0 C1 A0 C4
10F0: CF C4 C5 C3 C8 C1 C4 D2
10F8: CF CE A0 C9 D3 AC A0 C1
1100: D3 CB A0 D3 CF CD C5 CF
1108: CE C5 A9 29 01 05 24 04
1110: 63 01 13 2E 04 61 28 A0
1118: A0 A0 A0 C8 C1 DA C1 D2
1120: C4 D3 BA 29 01 3F 38 04
1128: 61 28 C2 CF D4 D4 CF CD
1130: CC C5 D3 D3 A0 D0 C9 D4
1138: D3 A0 AD A0 D4 D7 CF A0
1140: D2 CF CF CD D3 A0 C8 C1
1148: D6 C5 A0 C2 CF D4 D4 CF
1150: CD CC C5 D3 D3 A0 D0 C9
1158: D4 D3 A0 C9 CE A0 D4 C8
1160: C5 CD 29 01 3B 42 04 61
1168: 28 A0 A0 A0 A0 C9 C6 A0
1170: D9 CF D5 A0 C7 CF A0 D4
1178: C8 C5 D2 C5 AC A0 D9 CF
1180: D5 A0 C6 C1 CC CC A0 C9
1188: CE D4 CF A0 D4 C8 C5 A0
1190: D0 C9 D4 A0 A8 A6 A0 CC
1198: CF D3 C5 A1 A9 29 01 3B
11A0: 4C 04 61 28 D3 D5 D0 C5
11A8: D2 A0 C2 C1 D4 D3 A0 AD
11B0: A0 D4 D7 CF A0 CF D4 C8
11B8: C5 D2 A0 D2 CF CF CD D3
11C0: A0 C8 C1 D6 C5 A0 D3 D5
11C8: D0 C5 D2 A0 C2 C1 D4 D3
11D0: AE A0 C9 C6 A0 D9 CF D5
11D8: 29 01 40 56 04 61 28 A0
11E0: A0 A0 A0 C7 CF A0 D4 C8
11E8: C5 D2 C5 AC A0 C1 A0 C2
11F0: C1 D4 A0 C7 D2 C1 C2 D3
11F8: A0 D9 CF D5 A0 C1 CE C4
1200: A0 D4 C1 CB C5 D3 A0 D9
1208: CF D5 A0 D4 CF A0 D3 CF
1210: CD C5 A0 CF D4 C8 C5 D2
1218: 29 01 37 60 04 61 28 A0
1220: A0 A0 A0 D2 CF CF CD A0
1228: C1 D4 A0 D2 C1 CE C4 CF
1230: CD AE A0 A8 D7 C8 C9 C3
1238: C8 A0 CD C9 C7 C8 D4 A0
1240: C2 C5 A0 D4 D2 CF D5 C2
1248: CC C5 D3 CF CD C5 A9 29
1250: 01 05 6A 04 63 01 12 74
1258: 04 61 28 A0 A0 A0 A0 D7
1260: D5 CD D0 D5 D3 BA 29 01
1268: 3F 7E 04 61 28 D4 C8 C5
1270: A0 D7 D5 CD D0 D5 D3 A0
1278: C9 D3 A0 CE CF D4 A0 C2
1280: CF D4 C8 C5 D2 C5 C4 A0
1288: C2 D9 A0 D4 C8 C5 A0 C8
1290: C1 DA C1 D2 C4 D3 A0 A8
1298: C8 C5 A0 C8 C1 D3 A0 D3
12A0: D5 C3 CB C5 D2 29 01 36
12A8: 88 04 61 28 C6 C5 C5 D4
12B0: A0 C1 CE C4 A0 C9 D3 A0
12B8: D4 CF CF A0 C2 C9 C7 A0
12C0: C6 CF D2 A0 C1 A0 C2 C1
12C8: D4 A0 D4 CF A0 CC C9 C6
12D0: D4 A9 AE A0 D5 D3 D5 C1
12D8: CC CC D9 29 01 3F 92 04
12E0: 61 28 C8 C5 A0 C9 D3 A0
12E8: C1 D3 CC C5 C5 D0 AE A0
12F0: D4 D7 CF A0 D4 C8 C9 CE
12F8: C7 D3 A0 D4 C8 C1 D4 A0
1300: D7 C1 CB C5 A0 C8 C9 CD
1308: A0 D5 D0 BA A0 D9 CF D5
1310: D2 A0 C5 CE D4 C5 D2 C9
1318: CE C7 29 01 2A 9C 04 61
1320: 28 C8 C9 D3 A0 D2 CF CF
1328: CD A0 CF D2 A0 D9 CF D5
1330: D2 A0 D3 C8 CF CF D4 C9
1338: CE C7 A0 C1 CE A0 C1 D2
1340: D2 CF D7 AE 29 01 39 A6
1348: 04 61 28 A0 A0 A0 A0 C9
1350: C6 A0 D4 C8 C5 A0 D7 D5
1358: CD D0 D5 D3 A0 D7 C1 CB
1360: C5 D3 AC A0 C8 C5 A0 CD
1368: CF D6 C5 D3 A0 A8 D0 BD
1370: AE B7 B5 A9 A0 CF CE C5
1378: A0 D2 CF CF CD 29 01 3D
1380: B0 04 61 28 CF D2 A0 D3
1388: D4 C1 D9 D3 A0 D3 D4 C9
1390: CC CC A0 A8 D0 BD AE B2
1398: B5 A9 AE A0 C1 C6 D4 C5
13A0: D2 A0 D4 C8 C1 D4 AC A0
13A8: C9 C6 A0 C8 C5 A0 C9 D3
13B0: A0 D7 C8 C5 D2 C5 A0 D9
13B8: CF D5 29 01 28 BA 04 61
13C0: 28 C1 D2 C5 AC A0 C8 C5
13C8: A0 C5 C1 D4 D3 A0 D9 CF
13D0: D5 A0 D5 D0 A0 A8 A6 A0
13D8: D9 CF D5 A0 CC CF D3 C5
13E0: A1 A9 29 01 05 C4 04 63
13E8: 01 10 CE 04 61 28 A0 A0
13F0: A0 A0 A0 D9 CF D5 BA 29
13F8: 01 36 D8 04 61 28 C5 C1
1400: C3 C8 A0 D4 D5 D2 CE A0
1408: D9 CF D5 A0 CD C1 D9 A0
1410: CD CF D6 C5 A0 CF D2 A0
1418: D3 C8 CF CF D4 A0 C1 A0
1420: C3 D2 CF CF CB C5 C4 A0
1428: C1 D2 D2 CF D7 29 01 39
1430: E2 04 61 28 A0 A0 A0 A0
1438: A0 CD CF D6 C9 CE C7 BA
1440: A0 D9 CF D5 A0 C3 C1 CE
1448: A0 C7 CF A0 CF CE C5 A0
1450: D2 CF CF CD A0 A8 D4 C8
1458: D2 D5 A0 CF CE C5 A0 D4
1460: D5 CE CE C5 CC A9 29 01
1468: 3D EC 04 61 28 A0 A0 A0
1470: A0 A0 C1 D2 D2 CF D7 D3
1478: BA A0 D9 CF D5 A0 C8 C1
1480: D6 C5 A0 B5 A0 C1 D2 D2
1488: CF D7 D3 AE A0 D9 CF D5
1490: A0 CC CF D3 C5 A0 D7 C8
1498: C5 CE A0 D9 CF D5 A0 D2
14A0: D5 CE 29 47 01 0C F1 04
14A8: 61 28 A0 CF D5 D4 AE 29
14B0: 01 3C F6 04 61 28 A0 A0
14B8: A0 A0 A0 C5 C1 C3 C8 A0
14C0: C1 D2 D2 CF D7 A0 C3 C1
14C8: CE A0 C7 CF A0 C6 D2 CF
14D0: CD A0 C9 A0 D4 CF A0 B5
14D8: A0 D2 CF CF CD D3 AE A0
14E0: D9 CF D5 A0 C1 C9 CD A0
14E8: C2 D9 29 47 01 0F FB 04
14F0: 61 28 A0 D4 C5 CC CC C9
14F8: CE C7 29 01 3E 00 05 61
1500: 28 A0 A0 A0 A0 D4 C8 C5
1508: A0 C3 CF CD D0 D5 D4 C5
1510: D2 A0 D4 C8 C5 A0 D2 CF
1518: CF CD D3 A0 D9 CF D5 A0
1520: D7 C1 CE D4 A0 D4 C8 C5
1528: A0 C1 D2 D2 CF D7 A0 D4
1530: CF A0 C7 CF A0 D4 CF AE
1538: 29 01 3C 0A 05 61 28 A0
1540: A0 A0 A0 C9 C6 A0 D4 C8
1548: C5 A0 C1 D2 D2 CF D7 A0
1550: C3 C1 CE A7 D4 A0 C7 CF
1558: A0 D4 C8 C1 D4 A0 D7 C1
1560: D9 A0 A8 C9 C5 A0 CE CF
1568: A0 D4 D5 CE CE C5 CC A9
1570: A0 C9 D4 29 47 01 0D 0F
1578: 05 61 28 A0 CD CF D6 C5
1580: D3 29 01 29 14 05 61 28
1588: A0 A0 A0 A0 A0 A0 A0 C1
1590: D4 A0 D2 C1 CE C4 CF CD
1598: A0 D4 CF A0 D4 C8 C5 A0
15A0: CE C5 D8 D4 A0 D2 CF CF
15A8: CD AE 29 01 36 1E 05 61
15B0: 28 A0 A0 A0 A0 A0 A0 A0
15B8: A0 A0 C9 C6 A0 D4 C8 C5
15C0: A0 C1 D2 D2 CF D7 A0 C8
15C8: C9 D4 D3 A0 D4 C8 C5 A0
15D0: D7 D5 CD D0 D5 D3 AC A0
15D8: D9 CF D5 A0 D7 C9 CE AE
15E0: 29 01 30 28 05 61 28 A0
15E8: A0 A0 A0 A0 A0 A0 A0 A0
15F0: C9 C6 A0 D4 C8 C5 A0 C1
15F8: D2 D2 CF D7 A0 C8 C9 D4
1600: D3 A0 D9 CF D5 AC A0 D9
1608: CF D5 A0 CC CF D3 C5 AE
1610: 29 01 05 32 05 63 01 17
1618: 3C 05 61 28 A0 A0 A0 A0
1620: A0 A0 A0 D7 C1 D2 CE C9
1628: CE C7 D3 BA 29 01 40 46
1630: 05 61 28 A0 A0 A0 A0 A0
1638: A0 A0 A0 D7 C8 C5 CE A0
1640: D9 CF D5 A0 C1 D2 C5 A0
1648: CF CE C5 A0 D2 CF CF CD
1650: A0 C1 D7 C1 D9 A0 C6 D2
1658: CF CD A0 D7 D5 CD D0 D5
1660: D3 A0 CF D2 A0 C8 C1 DA
1668: C1 D2 C4 AC 29 01 20 50
1670: 05 61 28 A0 A0 A0 A0 A0
1678: A0 A0 D4 C8 C5 A0 C3 CF
1680: CD D0 D5 D4 C5 D2 A0 D3
1688: C1 D9 D3 BA 29 01 23 5A
1690: 05 61 28 D7 D5 CD D0 D5
1698: D3 AD A0 A0 A0 A7 C9 A0
16A0: D3 CD C5 CC CC A0 C1 A0
16A8: D7 D5 CD D0 D5 D3 A7 29
16B0: 01 1E 64 05 61 28 C2 C1
16B8: D4 A0 A0 A0 AD A0 A0 A0
16C0: A7 C2 C1 D4 D3 A0 CE C5
16C8: C1 D2 C2 D9 A7 29 01 21
16D0: 6E 05 61 28 C6 C9 D4 A0
16D8: A0 A0 AD A0 A0 A0 A7 C9
16E0: A0 C6 C5 C5 CC A0 C1 A0
16E8: C4 D2 C1 C6 D4 A7 29 01
16F0: 05 78 05 63 01 05 82 05
16F8: 5B 01 28 D0 07 5D AD A0
1700: D0 D2 C9 CE D4 A0 A0 CC
1708: CF C3 C1 D4 C9 CF CE A0
1710: A6 A0 C8 C1 DA C1 D2 C4
1718: A0 D7 C1 D2 CE C9 CE C7
1720: D3 01 05 DA 07 63 01 0E
1728: E4 07 55 CA 56 B2 02 00
1730: 57 B6 06 00 01 0E EE 07
1738: 55 CB 56 B1 01 00 57 B3
1740: 03 00 01 0D EF 07 D8 B1
1748: 71 CC 2D B1 01 00 72 01
1750: 1F F3 07 60 D3 2D 38 B2
1758: 14 00 14 CB 12 D8 B1 72
1760: 13 B2 14 00 72 1B CC 2D
1768: CA 72 24 B2 3E 08 01 26
1770: F8 07 5D A0 D7 C1 D3 A0
1778: C9 C6 A0 D3 A8 CC A8 B1
1780: A9 AC CB A9 BC BE CC A8
1788: CA A9 A0 D4 C8 C5 CE A0
1790: B2 B1 B1 B0 01 12 FA 07
1798: 60 CA 13 B1 01 00 16 B1
17A0: 01 00 24 B2 0C 08 01 12
17A8: FB 07 60 CA 13 B1 01 00
17B0: 16 B2 02 00 24 B2 20 08
17B8: 01 12 FC 07 60 CA 13 B1
17C0: 01 00 16 B3 03 00 24 B2
17C8: 20 08 01 12 FD 07 60 CA
17D0: 13 B1 01 00 16 B4 04 00
17D8: 24 B2 34 08 01 12 FE 07
17E0: 60 CA 13 B1 01 00 16 B5
17E8: 05 00 24 B2 34 08 01 2E
17F0: 02 08 5D A0 D7 C1 D3 A0
17F8: CF CE A0 CA AD B1 A0 C7
1800: CF D4 CF A0 B2 B0 B6 B0
1808: AC B2 B0 B8 B0 AC B2 B0
1810: B8 B0 AC B2 B1 B0 B0 AC
1818: B2 B1 B0 B0 01 18 0C 08
1820: 61 28 C9 A0 D3 CD C5 CC
1828: CC A0 C1 A0 D7 D5 CD D0
1830: D5 D3 A1 29 01 08 16 08
1838: 5F B2 3E 08 01 16 20 08
1840: 61 28 C9 A0 C6 C5 C5 CC
1848: A0 C1 A0 C4 D2 C1 C6 D4
1850: A1 29 01 08 2A 08 5F B2
1858: 3E 08 01 13 34 08 61 28
1860: C2 C1 D4 D3 A0 CE C5 C1
1868: D2 C2 D9 A1 29 01 06 3E
1870: 08 59 CB 01 06 48 08 59
1878: CA 01 1E 52 08 61 28 D9
1880: CF D5 A0 C1 D2 C5 A0 C9
1888: CE A0 D2 CF CF CD A0 29
1890: 46 CC 2D B1 01 00 72 01
1898: 29 54 08 D8 B1 71 D3 2D
18A0: 38 B2 14 00 14 B1 01 00
18A8: 12 CC 72 13 B2 14 00 72
18B0: 03 5D A0 C3 CF D5 CC C4
18B8: A0 C2 C5 A0 D3 A8 CC A9
18C0: 01 2C 55 08 D9 B1 71 D3
18C8: 2D 38 B2 14 00 14 B2 02
18D0: 00 12 CC 72 13 B2 14 00
18D8: 72 03 5D A0 C3 CF D5 CC
18E0: C4 A0 C2 C5 A0 D3 A8 B2
18E8: B0 AB CC A9 01 2C 57 08
18F0: DA B1 71 D3 2D 38 B2 14
18F8: 00 14 B3 03 00 12 CC 72
1900: 13 B2 14 00 72 03 5D A0
1908: C3 CF D5 CC C4 A0 C2 C5
1910: A0 D3 A8 B4 B0 AB CC A9
1918: 01 2E 5A 08 61 28 D4 D5
1920: CE CE C5 CC D3 A0 CC C5
1928: C1 C4 A0 D4 CF A0 29 46
1930: D8 B1 45 28 AC A0 29 46
1938: D9 B1 45 28 AC A0 C1 CE
1940: C4 A0 29 46 DA B1 01 37
1948: 5C 08 5D A0 D7 C1 D3 A0
1950: D0 D2 C9 CE D4 A0 A2 D4
1958: D5 CE CE C5 CC D3 A0 CC
1960: C5 C1 C4 A0 D4 CF A0 A2
1968: BB D3 A8 CC AC B1 A9 BB
1970: D3 A8 CC AC B2 A9 BB D3
1978: A8 CC AC B3 A9 01 05 66
1980: 08 63 01 05 70 08 5B 01
1988: 14 C4 09 5D AD A0 C3 C8
1990: CF CF D3 C5 A0 CF D0 D4
1998: C9 CF CE 01 1B CE 09 61
19A0: 28 D3 C8 CF CF D4 A0 CF
19A8: D2 A0 CD CF D6 C5 A0 A8
19B0: D3 AD CD A9 29 47 01 07
19B8: D8 09 52 C9 40 01 0F E2
19C0: 09 60 C9 40 3A 28 D3 29
19C8: 24 B2 00 0A 01 09 EC 09
19D0: CF 71 B1 01 00 01 05 F6
19D8: 09 5B 01 0F 00 0A 60 C9
19E0: 40 3A 28 CD 29 24 B2 CE
19E8: 09 01 09 0A 0A CF 71 B2
19F0: 02 00 01 05 14 0A 5B 01
19F8: 14 B8 0B 5D AD A0 C1 D2
1A00: D2 CF D7 A0 D2 CF D5 D4
1A08: C9 CE C5 01 09 C2 0B C6
1A10: 71 B0 00 00 01 14 CC 0B
1A18: 5D AD A0 D0 C1 D4 C8 A0
1A20: CF C6 A0 C1 D2 D2 CF D7
1A28: 01 0C D6 0B CC 71 CC 2D
1A30: B1 01 00 72 01 19 E0 0B
1A38: 61 28 CE CF AE A0 CF C6
1A40: A0 D2 CF CF CD D3 A8 B1
1A48: AD B5 A9 29 47 01 07 EA
1A50: 0B 54 CA B1 01 16 F4 0B
1A58: 60 CA B1 1C B1 01 00 1E
1A60: CA B1 19 B5 05 00 24 B3
1A68: E0 0B 01 0D FE 0B 55 CB
1A70: 56 B1 01 00 57 CA B1 01
1A78: 0E 08 0C 61 28 D2 CF CF
1A80: CD A0 A3 29 47 01 09 12
1A88: 0C 54 D0 2D CB 72 01 0E
1A90: 17 0C 60 CB 1A B2 02 00
1A98: 24 B3 2B 0C 01 16 1C 0C
1AA0: 60 D0 2D CB 72 1B D0 2D
1AA8: CB 13 B2 02 00 72 24 B3
1AB0: 2B 0C 01 34 21 0C 61 28
1AB8: C1 D2 D2 CF D7 D3 A0 C1
1AC0: D2 C5 CE A7 D4 A0 D4 C8
1AC8: C1 D4 A0 C3 D2 CF CF CB
1AD0: C5 C4 A0 AD A0 D4 D2 D9
1AD8: A0 C1 CE CF D4 C8 C5 D2
1AE0: A0 D2 CF CF CD 29 01 08
1AE8: 26 0C 5F B3 08 0C 01 06
1AF0: 2B 0C 59 CB 01 12 30 0C
1AF8: 5D AD A0 D3 C8 CF CF D4
1B00: A0 C1 D2 D2 CF D7 01 0D
1B08: 44 0C 55 CB 56 B1 01 00
1B10: 57 CA B1 01 0F 4E 0C 55
1B18: CB B1 56 B1 01 00 57 B3
1B20: 03 00 01 1F 53 0C 60 D3
1B28: 2D 38 B2 14 00 14 CB B1
1B30: 12 CC 72 72 13 B2 14 00
1B38: 16 D0 2D CB 72 24 B3 DF
1B40: 0C 01 23 58 0C 5D A0 D7
1B48: C1 D3 A0 C9 C6 A0 D3 A8
1B50: CC AC CB B1 A9 BD D0 A8
1B58: CB A9 A0 D4 C8 C5 CE A0
1B60: B3 B2 B9 B5 01 07 62 0C
1B68: 59 CB B1 01 1A 6C 0C 5D
1B70: AD A0 CE CF A0 D4 D5 CE
1B78: CE C5 CC A0 C6 CF D2 A0
1B80: C1 D2 D2 CF D7 01 11 6D
1B88: 0C D8 B1 71 2F 3F B3 03
1B90: 00 72 12 B1 01 00 01 17
1B98: 71 0C CC 71 D3 2D 38 B2
1BA0: 14 00 14 D8 B1 12 CC 72
1BA8: 13 B2 14 00 72 01 17 76
1BB0: 0C 5D A0 D7 C1 D3 A0 CC
1BB8: BD D3 A8 CC AC C6 CE C2
1BC0: A8 B1 A9 A9 01 08 80 0C
1BC8: 5F B3 E4 0C 01 06 8A 0C
1BD0: 59 CB 01 0D 94 0C 61 28
1BD8: CD C9 D3 D3 C5 C4 29 01
1BE0: 0C 99 0C CC 71 CC 2D B1
1BE8: 01 00 72 01 12 9E 0C 5D
1BF0: AD A0 CD CF D6 C5 A0 D7
1BF8: D5 CD D0 D5 D3 01 08 A8
1C00: 0C 5C B3 2A 0D 01 11 B2
1C08: 0C 5D AD A0 C1 CD CD CF
1C10: A0 C3 C8 C5 C3 CB 01 0B
1C18: B7 0C C1 71 C1 13 B1 01
1C20: 00 01 0E BC 0C 60 C1 19
1C28: B0 00 00 24 B3 D0 0C 01
1C30: 0A C6 0C C6 71 36 B1 01
1C38: 00 01 05 D0 0C 5B 01 26
1C40: DA 0C 5D AD A0 D3 C5 C5
1C48: A0 C9 C6 A0 C1 D2 D2 CF
1C50: D7 A0 C9 D3 A0 C1 D4 A0
1C58: CC A8 B1 A9 A0 CF D2 A0
1C60: CC A8 B2 A9 01 0A DF 0C
1C68: CC 71 D0 2D CB 72 01 11
1C70: E4 0C 60 CC 1B CC 2D B2
1C78: 02 00 72 24 B3 0C 0D 01
1C80: 1F EE 0C 61 28 C1 C8 C1
1C88: A1 A0 D9 CF D5 A0 C7 CF
1C90: D4 A0 D4 C8 C5 A0 D7 D5
1C98: CD D0 D5 D3 A1 29 01 09
1CA0: F8 0C C6 71 B1 01 00 01
1CA8: 05 02 0D 5B 01 11 0C 0D
1CB0: 60 CC 1B CC 2D B1 01 00
1CB8: 72 24 B3 8A 0C 01 1B 16
1CC0: 0D 61 28 CF D5 C3 C8 A1
1CC8: A0 C1 D2 D2 CF D7 A0 C7
1CD0: CF D4 A0 D9 CF D5 A1 29
1CD8: 01 08 20 0D 5F B3 C6 0C
1CE0: 01 1A 2A 0D 5D AD A0 CD
1CE8: CF D6 C5 A0 D7 D5 CD D0
1CF0: D5 D3 A0 D2 CF D5 D4 C9
1CF8: CE C5 01 10 2F 0D CB 71
1D00: 2F 3F B4 04 00 72 12 B1
1D08: 01 00 01 11 34 0D 5D A0
1D10: D7 C1 D3 CB BD C6 CE C3
1D18: A8 B0 A9 01 0E 3E 0D 60
1D20: CB 16 B4 04 00 24 B3 52
1D28: 0D 01 0D 3F 0D D8 B1 71
1D30: CC 2D B2 02 00 72 01 1C
1D38: 43 0D CC 2D B2 02 00 72
1D40: 71 D3 2D 38 B2 14 00 14
1D48: CB 12 D8 B1 72 13 B2 14
1D50: 00 72 01 18 48 0D 5D A0
1D58: D7 C1 D3 A0 CC A8 B2 A9
1D60: BD D3 A8 CC A8 B2 A9 AC
1D68: CB A9 01 11 52 0D 60 CC
1D70: 2D B2 02 00 72 1B CC 24
1D78: B3 70 0D 01 24 5C 0D 61
1D80: 28 D4 D3 CB A0 D4 D3 CB
1D88: A0 D4 D3 CB A0 AD A0 D7
1D90: D5 CD D0 D5 D3 A0 C7 CF
1D98: D4 A0 D9 CF D5 A1 29 01
1DA0: 0A 66 0D C6 71 36 B1 01
1DA8: 00 01 05 70 0D 5B 01 13
1DB0: A0 0F 5D AD A0 CD CF D6
1DB8: C5 A0 D2 CF D5 D4 C9 CE
1DC0: C5 01 09 AA 0F C6 71 B0
1DC8: 00 00 01 10 B4 0F 61 28
1DD0: D7 C8 C5 D2 C5 A0 D4 CF
1DD8: 29 47 01 06 BE 0F 54 CC
1DE0: 01 14 C8 0F 60 CC 1C B1
1DE8: 01 00 1E CC 19 B2 14 00
1DF0: 24 B4 B4 0F 01 0E D2 0F
1DF8: 55 CB 56 B1 01 00 57 B3
1E00: 03 00 01 1A DC 0F 5D AD
1E08: A0 C3 C8 C5 C3 CB A0 C9
1E10: C6 A0 CC C5 C7 C1 CC A0
1E18: CD CF D6 C5 01 0D E1 0F
1E20: D8 B1 71 CC 2D B1 01 00
1E28: 72 01 1C E5 0F 60 D3 2D
1E30: 38 B2 14 00 14 CB 12 D8
1E38: B1 72 13 B2 14 00 72 16
1E40: CC 24 B4 22 10 01 22 E6
1E48: 0F 5D A0 D7 C1 D3 A0 C9
1E50: C6 A0 D3 A8 CC A8 B1 A9
1E58: AC CB A9 BD CC A0 D4 C8
1E60: C5 CE A0 B4 B1 B3 B0 01
1E68: 06 F0 0F 59 CB 01 11 FA
1E70: 0F 60 CC 16 CC 2D B1 01
1E78: 00 72 24 B4 22 10 01 16
1E80: 04 10 61 28 CE CF D4 A0
1E88: D0 CF D3 D3 C9 C2 CC C5
1E90: A0 AD 29 47 01 08 0E 10
1E98: 5F B4 B4 0F 01 18 18 10
1EA0: 5D AD A0 C3 C8 C5 C3 CB
1EA8: A0 C6 CF D2 A0 C8 C1 DA
1EB0: C1 D2 C4 D3 01 0C 22 10
1EB8: CC 2D B1 01 00 72 71 CC
1EC0: 01 0D 2C 10 5D AD A0 D7
1EC8: D5 CD D0 D5 D3 01 11 36
1ED0: 10 60 CC 1B CC 2D B2 02
1ED8: 00 72 24 B4 7C 10 01 21
1EE0: 40 10 61 28 AE AE AE A0
1EE8: CF CF D0 D3 A1 A0 C2 D5
1EF0: CD D0 C5 C4 A0 C1 A0 D7
1EF8: D5 CD D0 D5 D3 A1 29 01
1F00: 12 4A 10 5D AD A0 CD CF
1F08: D6 C5 A0 D7 D5 CD D0 D5
1F10: D3 01 08 54 10 5C B3 34
1F18: 0D 01 0E 5E 10 60 C6 16
1F20: B0 00 00 24 B4 7C 10 01
1F28: 05 68 10 5B 01 0A 72 10
1F30: 5D AD A0 D0 C9 D4 01 1A
1F38: 7C 10 60 CC 1B CC 2D B3
1F40: 03 00 72 1D CC 1B CC 2D
1F48: B4 04 00 72 24 B4 AE 10
1F50: 01 24 86 10 61 28 D9 D9
1F58: D9 C9 C9 C9 C9 C5 C5 C5
1F60: C5 A0 AE A0 AE A0 AE A0
1F68: C6 C5 CC CC A0 C9 CE A0
1F70: D0 C9 D4 29 01 0A 90 10
1F78: C6 71 36 B1 01 00 01 05
1F80: 9A 10 5B 01 0B A4 10 5D
1F88: AD A0 C2 C1 D4 D3 01 1A
1F90: AE 10 60 CC 1B CC 2D B5
1F98: 05 00 72 1D CC 1B CC 2D
1FA0: B6 06 00 72 24 B4 D6 10
1FA8: 01 35 B8 10 61 28 DA C1
1FB0: D0 AD AD D3 D5 D0 C5 D2
1FB8: A0 C2 C1 D4 A0 D3 CE C1
1FC0: D4 C3 C8 A1 A0 C5 CC D3
1FC8: C5 D7 C8 C5 D2 C5 D6 C9
1FD0: CC CC C5 A0 C6 CF D2 A0
1FD8: D9 CF D5 A1 29 01 10 C2
1FE0: 10 CC 71 2F 3F B2 14 00
1FE8: 72 12 B1 01 00 01 08 CC
1FF0: 10 5F B4 22 10 01 05 D6
1FF8: 10 5B 01 05 88 13 51 01
E2B3R
RUN

Binary file not shown.