Apple-2-HW
/
apple2idiot
mirror of https://github.com/equant/apple2idiot.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Example basic programs added to repo

This commit is contained in:
Nathanial Hendler 2021-09-19 10:47:33 -07:00
parent 8224a04545
commit 3608526101
11 changed files with 880 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/RRAM.BAS Normal file
View File

@ -0,0 +1,9 @@
100 CA = 49664: REM CARD ADDRESS 0XCN0
120 AA = CA +1: REM APPL CMD ADDRESS
140 ESPA = CA: REM ESP CMD ADDRESS
150 MAX = 42
200 FOR N = 0 TO MAX
215 P = CA +N
220 C = PEEK(P)
245 PRINT P,C, CHR$(C)
250 NEXT N

13
examples/STRREAD.SUB.BAS Normal file
View File

@ -0,0 +1,13 @@
11000 REM ============ WRITE STRING TO RAM =================
11001 REM RA ADDRESS TO START READ
11002 REM MAXSTR IS LIMIT TO STR SIZE WE READ
11020 IF MAXSTR = 0 THEN MAXSTR = 250
11040 RS$ = ""
11060 FOR N = 0 TO MAXSTR
11080 P = RA +N
11100 C = PEEK(P)
11120 IF C = 3 THEN GOTO 400
11140 S$ = S$ + CHR$(C)
11160 REM PRINT N+1,P,C, CHR$ (C)
11180 NEXT N
11200 RETURN

9
examples/STRWRITE.SUB.BAS Normal file
View File

@ -0,0 +1,9 @@
10000 REM WRITE WS$ TO WA
10010 FOR N = 0 TO LEN(WS$) -1
10020 P = WA +N
10030 C$ = MID$ (WS$,N +1,1)
10040 PRINT C$, ASC(C$)
10050 POKE P, ASC(C$)
10060 NEXT N
10070 POKE P +1,3
10080 RETURN

14
examples/WRAM.BAS Normal file
View File

@ -0,0 +1,14 @@
100 CA = 49664: REM CARD ADDRESS 0XCN0
120 AA = CA +1: REM APPL CMD ADDRESS
140 ESPA = CA: REM ESP CMD ADDRESS
150 MAXSTR = 20
160 S$ = ""
170 INPUT "ENTER STRING: ";A$
200 FOR N = 0 TO LEN(A$) -1
210 P = CA +2 +N
215 P = CA +2 +N
220 C$ = MID$ (A$,N +1,1)
230 PRINT C$, ASC(C$)
240 POKE P, ASC(C$)
350 NEXT N
360 POKE P +1,3

2
examples/rot13/CMDROT.BAS Normal file
View File

@ -0,0 +1,2 @@
100 CA = 49665
150 POKE CA,128

14
examples/rot13/ROT13.BAS Normal file
View File

@ -0,0 +1,14 @@
100 CA = 49664: REM CARD ADDRESS 0XCN0
120 AA = CA +1: REM APPL CMD ADDRESS
140 ESPA = CA: REM ESP CMD ADDRESS
150 MAXSTR = 20
160 S$ = ""
170 INPUT "ENTER STRING: ";A$
200 FOR N = 0 TO LEN(A$) -1
210 P = CA +2 +N
215 P = CA +2 +N
220 C$ = MID$ (A$,N +1,1)
230 PRINT C$, ASC(C$)
240 POKE P, ASC(C$)
350 NEXT N
360 POKE P +1,3

680
examples/slack/SLACK.BAS Normal file
View File

@ -0,0 +1,680 @@
Offset Hex Data Characters
======= ================================================ =================
$000000 A2 FF 9A 20 CE 31 20 06 2F 20 6A 22 A2 1C A9 08 ". N1 . / j"".).
$000010 20 68 23 2C 82 C0 20 CC 22 A2 02 BD AF 31 9D F2 h#,.@ L "".=/1.r
$000020 03 CA 10 F7 A2 19 BD 95 31 95 80 CA 10 F8 A2 FF .J.w".=. 1..J.x"
$000030 9A 4C 35 31 2C 82 C0 20 ED FD 2C 80 C0 60 2C 82 .L51,.@ m},.@`,.
$000040 C0 20 58 FC 2C 80 C0 60 2C 82 C0 20 24 FC 2C 80 @ X|,.@` ,.@ $|,.
$000050 C0 60 20 F2 2A A0 00 A2 00 B1 80 20 F2 2A A0 01 @` r* ." .1. r* .
$000060 A2 00 B1 80 C9 C0 A9 00 A2 00 2A D0 03 4C B9 08 ".1.I@). ".*P.L9.
$000070 A0 01 A2 00 B1 80 C9 E0 A9 00 A2 00 2A D0 03 4C .".1.I` ).".*P.L
$000080 AE 08 A0 01 A2 00 B1 80 C9 FF 20 24 28 D0 03 4C .. .".1. I $(P.L
$000090 A0 08 A2 00 A9 7E A0 00 91 80 4C AB 08 A0 00 A2 .".)~ . ..L+. ."
$0000A0 00 B1 80 38 E9 40 91 80 4C B9 08 A0 00 A2 00 B1 .1.8i@.. L9. .".1
$0000B0 80 38 E9 60 91 80 A0 00 A2 00 B1 80 4C C2 08 20 .8i`.. . ".1.LB.
$0000C0 EC 26 60 20 08 2B A0 04 B1 80 20 F2 2A A0 04 B1 l&` .+ . 1. r* .1
$0000D0 80 20 8A 26 A0 01 20 37 27 20 08 2B A0 04 B1 80 . .& . 7 ' .+ .1.
$0000E0 20 44 1C A9 4C A2 2F 20 08 2B A0 03 20 37 27 20 D.)L"/ .+ . 7'
$0000F0 08 2B A0 04 20 A1 2B 20 04 27 60 20 08 2B A9 00 .+ . !+ .'` .+).
$000100 20 F2 2A A9 00 20 F2 2A 20 F2 23 A0 08 20 37 27 r*). r* r# . 7'
$000110 20 08 2C A2 00 A0 02 91 80 A0 03 91 80 A0 02 A2 .,". .. . ... ."
$000120 00 B1 80 20 08 2B A0 0B A2 00 B1 80 20 B7 2C D0 .1. .+ . ".1. 7,P
$000130 03 4C 62 09 A0 09 A2 00 B1 80 A0 02 91 80 A0 03 .Lb. .". 1. ... .
$000140 91 80 A0 08 20 37 27 20 08 2B A0 05 A2 00 B1 80 .. . 7' .+ .".1.
$000150 20 1D 22 20 08 2B A2 00 A9 00 A0 00 20 CC 2B A0 ." .+". ). . L+
$000160 02 A2 00 B1 80 20 08 2B A0 0C A2 00 B1 80 20 AD .".1. .+ .".1. -
$000170 2C D0 03 4C AC 09 A0 02 A2 00 B1 80 20 08 2B A0 ,P.L,. . ".1. .+
$000180 0C A2 00 B1 80 20 47 2C 20 C6 26 A2 00 A0 04 A2 .".1. G, F&". ."
$000190 00 18 71 80 91 80 A0 04 A2 00 B1 80 A2 00 A0 03 ..q... . ".1.". .
$0001A0 A2 00 49 FF 38 71 80 91 80 A0 0C B1 80 20 F2 2A ".I8q.. . .1. r*
$0001B0 A0 0C B1 80 20 F2 2A A0 0C B1 80 20 F2 2A A0 0B .1. r* .1. r* .
$0001C0 20 37 27 20 08 2B A0 09 A2 00 B1 80 20 1D 22 20 7' .+ . ".1. ."
$0001D0 C6 08 A9 01 20 98 23 4C 47 0F A9 00 20 F2 2A A9 F.). .#L G.). r*)
$0001E0 01 20 8A 26 A9 29 A2 2F 20 08 2B A0 05 A2 00 B1 . .&))"/ .+ .".1
$0001F0 80 20 08 2B A0 08 A2 00 B1 80 20 08 2B A0 08 A2 . .+ .". 1. .+ ."
$000200 00 B1 80 20 08 2B A0 08 20 D8 22 A0 0C A2 00 B1 .1. .+ . X" .".1
$000210 80 20 08 2B A0 05 A2 00 B1 80 20 1D 22 A2 00 20 . .+ .". 1. ."".
$000220 F2 2A A0 0C B1 80 20 8A 26 20 8B 22 A0 00 91 80 r* .1. . & ." ...
$000230 4C 36 0A C9 03 D0 03 4C EE 0C C9 08 D0 03 4C 89 L6.I.P.L n.I.P.L.
$000240 0C C9 0D D0 03 4C F6 0C C9 13 D0 03 4C AD 0E C9 .I.P.Lv. I.P.L-.I
$000250 14 D0 03 4C 21 0D C9 15 D0 03 4C 99 0B C9 93 D0 .P.L!.I. P.L..I.P
$000260 03 4C 09 0F 4C 6A 0A A0 00 B1 80 20 55 08 A0 00 .L..Lj. .1. U. .
$000270 91 80 A9 16 A2 32 A0 00 18 71 80 90 01 E8 A0 00 ..)."2 . .q...h .
$000280 20 1F 27 D0 03 4C A2 0A A0 02 A2 00 B1 80 20 08 .'P.L". .".1. .
$000290 2B A0 0B A2 00 B1 80 20 C9 2C F0 03 4C AB 0A A2 + .".1. I,p.L+."
$0002A0 00 A9 00 D0 03 4C AF 0A A2 00 A9 01 D0 03 4C 99 .).P.L/. ".).P.L.
$0002B0 0B A0 02 A2 00 18 A9 01 71 80 91 80 A0 08 20 37 . ."..). q... . 7
$0002C0 27 20 08 2B A0 05 A2 00 B1 80 20 1D 22 20 08 2B ' .+ .". 1. ." .+
$0002D0 A0 06 A2 00 B1 80 20 1D 22 20 C6 26 20 08 2B A0 .".1. . " F& .+
$0002E0 0A 20 37 27 20 08 2B A0 07 A2 00 B1 80 20 1D 22 . 7' .+ .".1. ."
$0002F0 20 08 2B A0 08 A2 00 B1 80 20 1D 22 20 08 2B A0 .+ .".1 . ." .+
$000300 0C 20 37 27 20 08 2B A0 09 A2 00 B1 80 20 1D 22 . 7' .+ .".1. ."
$000310 20 08 2B A0 0A A2 00 B1 80 20 1D 22 20 08 2C 20 .+ .".1 . ." .,
$000320 C6 26 20 94 29 A0 08 20 37 27 20 08 2B A0 05 A2 F& .) . 7' .+ ."
$000330 00 B1 80 20 08 2B A0 08 A2 00 B1 80 20 1D 22 20 .1. .+ . ".1. ."
$000340 1D 22 20 08 2B A0 02 A2 00 B1 80 A0 00 20 CC 2B ." .+ ." .1. . L+
$000350 A0 08 20 37 27 20 08 2B A0 04 A2 00 B1 80 20 1D . 7' .+ .".1. .
$000360 22 20 08 2B A2 00 A9 00 A0 00 20 CC 2B A0 0C B1 " .+".). . L+ .1
$000370 80 20 F2 2A A0 0C B1 80 20 F2 2A A0 0C B1 80 20 . r* .1. r* .1.
$000380 F2 2A A0 0B 20 37 27 20 08 2B A0 09 A2 00 B1 80 r* . 7' .+ .".1.
$000390 20 1D 22 20 C6 08 A0 03 A2 00 B1 80 20 08 2B A0 ." F. . ".1. .+
$0003A0 06 A2 00 B1 80 20 1D 22 20 08 2B A0 04 A2 00 B1 .".1. ." .+ .".1
$0003B0 80 20 C9 2C D0 03 4C 86 0C A0 03 A2 00 B1 80 20 . I,P.L. . .".1.
$0003C0 08 2B A0 0C A2 00 B1 80 20 BE 23 20 C9 2C D0 03 .+ .".1. ># I,P.
$0003D0 4C E4 0B A0 03 A2 00 18 A9 01 71 80 91 80 4C 86 Ld. .".. ).q...L.
$0003E0 0C A0 02 A2 00 B1 80 20 08 2B A0 06 A2 00 B1 80 . .".1. .+ .".1.
$0003F0 20 08 2B A0 07 A2 00 B1 80 20 1D 22 20 B7 2C D0 .+ .".1 . ." 7,P
$000400 03 4C 86 0C A0 04 A2 00 18 A9 01 71 80 91 80 A0 .L.. .". .).q...
$000410 04 A2 00 B1 80 20 08 2B A0 05 A2 00 B1 80 20 1D .".1. .+ .".1. .
$000420 22 20 08 2B A0 04 A2 00 B1 80 20 1D 24 D0 03 4C " .+ .". 1. .$P.L
$000430 5D 0C A0 0C A2 00 B1 80 20 08 2B A0 0C A2 00 B1 ]. .".1. .+ .".1
$000440 80 20 1D 22 20 BE 23 A2 00 20 F2 2A A0 0C B1 80 . ." >#" . r* .1.
$000450 20 F2 2A A9 4F A2 2F 20 45 23 A0 0C B1 80 20 F2 r*)O"/ E# .1. r
$000460 2A A0 0C B1 80 20 F2 2A A0 0C B1 80 20 F2 2A A0 * .1. r* .1. r*
$000470 0B 20 37 27 20 08 2B A0 09 A2 00 B1 80 20 1D 22 . 7' .+ .".1. ."
$000480 20 C6 08 4C 47 0F A0 03 A2 00 B1 80 C9 00 20 1E F.LG. . ".1.I. .
$000490 28 D0 03 4C A7 0C A0 03 A2 00 B1 80 38 E9 01 91 (P.L'. . ".1.8i..
$0004A0 80 4C EB 0C A0 04 A2 00 B1 80 C9 00 20 1E 28 D0 .Lk. .". 1.I. .(P
$0004B0 03 4C EB 0C A0 04 A2 00 B1 80 38 E9 01 91 80 A0 .Lk. .". 1.8i...
$0004C0 0C B1 80 20 F2 2A A0 0C B1 80 20 F2 2A A0 0C B1 .1. r* . 1. r* .1
$0004D0 80 20 F2 2A A0 0B 20 37 27 20 08 2B A0 09 A2 00 . r* . 7 ' .+ .".
$0004E0 B1 80 20 1D 22 20 C6 08 4C 47 0F A2 00 A9 00 A0 1. ." F. LG.".).
$0004F0 02 91 80 A0 0A B1 80 20 F2 2A A9 01 20 F2 2A A0 ... .1. r*). r*
$000500 0E B1 80 20 F2 2A A0 0E B1 80 20 C3 1B A9 00 20 .1. r* . 1. C.).
$000510 98 23 A0 02 A2 00 B1 80 4C 4A 0F 4C 47 0F A0 03 .# .".1. LJ.LG. .
$000520 B1 80 F0 03 4C 3C 0D A0 04 B1 80 F0 03 4C 3C 0D 1.p.L<. .1.p.L<.
$000530 A2 00 A9 00 D0 03 4C 40 0D A2 00 A9 01 D0 03 4C ".).P.L@ .".).P.L
$000540 AA 0E A0 03 B1 80 D0 03 4C 5C 0D A0 03 A2 00 B1 *. .1.P. L\. .".1
$000550 80 38 E9 01 91 80 4C 67 0D A0 04 A2 00 B1 80 38 .8i...Lg . .".1.8
$000560 E9 01 91 80 A0 04 A2 00 B1 80 20 08 2B A0 05 A2 i... .". 1. .+ ."
$000570 00 B1 80 20 1D 22 A2 00 A0 01 91 80 4C BF 0D A0 .1. ."". ...L?.
$000580 08 20 37 27 20 08 2B A0 03 A2 00 B1 80 20 1D 22 . 7' .+ .".1. ."
$000590 20 08 2B A0 0A 20 37 27 20 08 2B A0 05 A2 00 B1 .+ . 7' .+ .".1
$0005A0 80 20 C6 26 20 1D 22 A0 00 20 1F 27 A0 00 20 CC . F& ." . .' . L
$0005B0 2B A0 01 A2 00 18 A9 01 71 80 91 80 A0 08 20 37 + ."..). q... . 7
$0005C0 27 20 08 2B A0 03 A2 00 B1 80 20 1D 22 A0 00 20 ' .+ .". 1. ." .
$0005D0 1F 27 D0 AB A0 02 A2 00 B1 80 38 E9 01 91 80 A0 .'P+ .". 1.8i...
$0005E0 04 A2 00 B1 80 20 08 2B A0 05 A2 00 B1 80 20 1D .".1. .+ .".1. .
$0005F0 22 20 08 2B A0 04 A2 00 B1 80 20 1D 24 D0 03 4C " .+ .". 1. .$P.L
$000600 2D 0E A0 0C A2 00 B1 80 20 08 2B A0 05 A2 00 B1 -. .".1. .+ .".1
$000610 80 20 1D 22 A2 00 20 F2 2A A0 0C B1 80 20 F2 2A . ."". r * .1. r*
$000620 A9 4F A2 2F 20 45 23 4C 81 0E A0 02 A2 00 B1 80 )O"/ E#L .. .".1.
$000630 20 08 2B A0 06 A2 00 B1 80 20 47 2C 20 08 2B A0 .+ .".1 . G, .+
$000640 0C A2 00 B1 80 20 C9 2C D0 03 4C 81 0E A0 0C A2 .".1. I, P.L.. ."
$000650 00 B1 80 20 08 2B A0 04 A2 00 B1 80 20 1D 22 20 .1. .+ . ".1. ."
$000660 08 2B A0 06 A2 00 B1 80 20 47 2C A2 00 20 F2 2A .+ .".1. G,". r*
$000670 A0 0C B1 80 20 F2 2A A9 4F A2 2F 20 45 23 A0 0C .1. r*) O"/ E# .
$000680 B1 80 20 F2 2A A0 0C B1 80 20 F2 2A A0 0C B1 80 1. r* .1 . r* .1.
$000690 20 F2 2A A0 0B 20 37 27 20 08 2B A0 09 A2 00 B1 r* . 7' .+ .".1
$0006A0 80 20 1D 22 20 C6 08 4C 47 0F A0 03 B1 80 F0 03 . ." F.L G. .1.p.
$0006B0 4C C8 0E A0 04 B1 80 F0 03 4C C8 0E A2 00 A9 00 LH. .1.p .LH.".).
$0006C0 D0 03 4C CC 0E A2 00 A9 01 D0 03 4C 06 0F A2 00 P.LL.".) .P.L..".
$0006D0 A9 00 A0 04 91 80 A0 03 91 80 A0 0C B1 80 20 F2 ). ... . .. .1. r
$0006E0 2A A0 0C B1 80 20 F2 2A A0 0C B1 80 20 F2 2A A0 * .1. r* .1. r*
$0006F0 0B 20 37 27 20 08 2B A0 09 A2 00 B1 80 20 1D 22 . 7' .+ .".1. ."
$000700 20 C6 08 4C 47 0F A2 00 A9 00 A0 02 91 80 A0 04 F.LG.". ). ... .
$000710 91 80 A0 03 91 80 A0 08 20 37 27 20 08 2B A2 00 .. ... . 7' .+".
$000720 A9 00 A0 00 20 CC 2B A0 0A B1 80 20 F2 2A A9 01 ). . L+ .1. r*).
$000730 20 F2 2A A0 0E B1 80 20 F2 2A A0 0E B1 80 20 C3 r* .1. r* .1. C
$000740 1B 4C 47 0F 4C DD 09 A0 0D 20 38 22 60 20 E5 23 .LG.L]. . 8"` e#
$000750 A2 00 A9 0B 20 4A 28 A0 00 20 E4 2B E0 00 D0 02 ".). J( . d+`.P.
$000760 C9 00 20 24 28 D0 03 4C 74 0F A2 00 A9 00 4C 17 I. $(P.L t.".).L.
$000770 10 A0 01 20 37 27 20 08 2B A2 00 A9 00 A0 00 20 . . 7' . +".). .
$000780 CC 2B A0 01 20 37 27 20 08 2B A2 00 A9 00 A0 01 L+ . 7' .+".). .
$000790 20 CC 2B A0 01 20 37 27 20 08 2B A2 00 A9 00 A0 L+ . 7' .+".).
$0007A0 02 20 CC 2B A0 01 20 37 27 20 08 2B A2 00 AD C7 . L+ . 7 ' .+".-G
$0007B0 30 A0 03 20 CC 2B A0 01 20 37 27 20 08 2B A2 00 0 . L+ . 7' .+".
$0007C0 AD C8 30 A0 04 20 CC 2B A0 01 20 37 27 20 08 2B -H0 . L+ . 7' .+
$0007D0 A2 00 A9 00 A0 05 20 CC 2B A0 01 20 37 27 20 08 ".). . L + . 7' .
$0007E0 2B A2 00 A9 00 A0 06 20 CC 2B A0 01 20 37 27 20 +".). . L+ . 7'
$0007F0 08 2B A2 00 A9 00 A0 07 20 ED 2B A0 01 20 37 27 .+".). . m+ . 7'
$000800 20 08 2B A2 00 A9 00 A0 09 20 ED 2B A0 01 20 37 .+".). . m+ . 7
$000810 27 4C 17 10 20 EC 26 60 20 08 2B 20 FF 23 A0 05 'L.. l&` .+ # .
$000820 20 37 27 A0 01 20 1F 27 D0 03 4C 6C 10 A0 05 20 7' . .' P.Ll. .
$000830 37 27 A0 0A 20 2A 27 A0 02 20 E4 2B 4C 63 10 A0 7' . *' . d+Lc.
$000840 03 20 37 27 A0 01 20 2A 27 A0 00 20 E4 2B A0 03 . 7' . * ' . d+ .
$000850 20 37 27 20 39 24 A0 01 20 37 27 A0 02 20 E4 2B 7' 9$ . 7' . d+
$000860 A0 03 B1 80 88 11 80 D0 D6 A0 05 20 37 27 20 39 .1....P V . 7' 9
$000870 24 20 09 27 60 20 08 2B 20 DC 23 A0 04 20 37 27 $ .'` .+ \# . 7'
$000880 20 08 2B A0 04 20 37 27 A0 07 20 ED 2B A0 02 20 .+ . 7' . m+ .
$000890 37 27 20 08 2C A2 00 A0 00 91 80 20 08 2B A0 06 7' .,". ... .+ .
$0008A0 20 37 27 A0 05 20 1F 27 20 B7 2C D0 03 4C C6 10 7' . .' 7,P.LF.
$0008B0 A0 04 20 37 27 20 08 2B A0 02 A2 00 B1 80 A0 05 . 7' .+ .".1. .
$0008C0 20 CC 2B 20 04 27 60 20 08 2B 20 FF 23 A0 08 A2 L+ .'` .+ # ."
$0008D0 00 B1 80 C9 00 20 24 28 D0 03 4C E7 10 A2 FF A9 .1.I. $( P.Lg.")
$0008E0 FF 4C 97 12 A0 0A 20 37 27 A0 01 20 1F 27 C9 00 L.. . 7 ' . .'I.
$0008F0 20 24 28 D0 03 4C 47 11 A0 0A 20 37 27 20 08 2B $(P.LG. . 7' .+
$000900 A2 00 A9 09 20 4A 28 A0 09 20 ED 2B E0 00 D0 02 ".). J( . m+`.P.
$000910 C9 00 20 24 28 D0 03 4C 24 11 A2 FF A9 FF 4C 97 I. $(P.L $.")L.
$000920 12 A0 0A 20 37 27 A0 0A 20 2A 27 A0 02 20 E4 2B . . 7' . *' . d+
$000930 A0 03 20 37 27 20 08 2B A2 00 A9 00 A0 02 20 ED . 7' .+ ".). . m
$000940 2B 4C C9 11 A0 0A 20 37 27 A0 0A 20 2A 27 A0 02 +LI. . 7 ' . *' .
$000950 20 E4 2B 4C 68 11 A0 03 20 37 27 A0 01 20 2A 27 d+Lh. . 7' . *'
$000960 A0 02 20 E4 2B A0 03 20 37 27 A0 00 85 88 86 89 . d+ . 7' .....
$000970 B1 88 C8 11 88 D0 DF A0 03 20 37 27 20 08 2B A2 1.H..P_ . 7' .+"
$000980 00 A9 09 20 4A 28 A0 00 20 ED 2B E0 00 D0 02 C9 .). J( . m+`.P.I
$000990 00 20 24 28 D0 03 4C A3 11 A2 FF A9 FF 4C 97 12 . $(P.L# .")L..
$0009A0 A0 03 20 37 27 A0 01 20 2A 27 20 08 2B A0 05 20 . 7' . *' .+ .
$0009B0 37 27 A0 02 20 ED 2B A0 03 20 37 27 A0 01 20 2A 7' . m+ . 7' . *
$0009C0 27 A0 02 20 E4 2B A0 03 20 37 27 20 08 2B A2 00 ' . d+ . 7' .+".
$0009D0 A9 00 A0 00 20 ED 2B A0 03 20 37 27 20 08 2B A0 ). . m+ . 7' .+
$0009E0 0A A2 00 B1 80 A0 04 20 CC 2B A0 03 20 37 27 20 .".1. . L+ . 7'
$0009F0 08 2B A0 07 20 37 27 A0 05 20 ED 2B A0 03 20 37 .+ . 7' . m+ . 7
$000A00 27 20 08 2B A0 09 20 37 27 A0 07 20 ED 2B A0 0A ' .+ . 7 ' . m+ .
$000A10 20 37 27 85 88 86 89 A0 01 A2 00 A9 01 18 71 88 7'.... .".)..q.
$000A20 91 88 A0 05 20 37 27 20 08 2C A0 00 20 E4 2B 20 .. . 7' ., . d+
$000A30 08 2B A0 0C 20 37 27 A0 05 20 1F 27 20 B7 2C D0 .+ . 7' . .' 7,P
$000A40 03 4C 5A 12 A0 0A 20 37 27 20 08 2B A0 02 A2 00 .LZ. . 7 ' .+ .".
$000A50 B1 80 A0 05 20 CC 2B A0 0A 20 37 27 A0 01 20 1F 1. . L+ . 7' . .
$000A60 27 20 08 2B A0 0C 20 37 27 A0 06 20 1F 27 20 B7 ' .+ . 7 ' . .' 7
$000A70 2C D0 03 4C 90 12 A0 0A 20 37 27 20 08 2B A0 0C ,P.L.. . 7' .+ .
$000A80 20 37 27 A0 01 20 1F 27 A0 06 20 CC 2B A2 00 A9 7' . .' . L+".)
$000A90 00 4C 97 12 A0 0B 20 38 22 60 20 F2 2A 20 E5 23 .L.. . 8 "` r* e#
$000AA0 A0 04 20 37 27 A0 01 20 1F 27 D0 03 4C A7 13 A0 . 7' . .'P.L'.
$000AB0 04 20 37 27 A0 0A 20 2A 27 A0 00 20 E4 2B 4C 9B . 7' . * ' . d+L.
$000AC0 13 A0 01 20 37 27 A0 04 20 1F 27 20 08 2B A0 04 . . 7' . .' .+ .
$000AD0 A2 00 B1 80 20 1D 24 D0 03 4C 8C 13 A0 04 20 37 ".1. .$P .L.. . 7
$000AE0 27 A0 0A 20 2A 27 20 08 2B A0 03 20 37 27 20 1D ' . *' . + . 7' .
$000AF0 24 D0 03 4C 31 13 A0 04 20 37 27 20 08 2B A0 03 $P.L1. . 7' .+ .
$000B00 20 37 27 A0 01 20 2A 27 A0 09 20 ED 2B A0 01 20 7' . *' . m+ .
$000B10 37 27 A0 01 20 2A 27 20 08 2B A2 00 A9 00 A0 02 7' . *' .+".). .
$000B20 20 ED 2B A0 01 20 37 27 20 39 24 4C 71 13 A0 01 m+ . 7' 9$Lq. .
$000B30 20 37 27 A0 03 20 2A 27 20 08 2B A0 03 20 37 27 7' . *' .+ . 7'
$000B40 A0 01 20 2A 27 A0 00 20 ED 2B A0 01 20 37 27 A0 . *' . m+ . 7'
$000B50 01 20 2A 27 20 08 2B A0 03 20 37 27 A0 03 20 2A . *' .+ . 7' . *
$000B60 27 A0 02 20 ED 2B A0 01 20 37 27 20 39 24 A0 04 ' . m+ . 7' 9$ .
$000B70 20 37 27 85 88 86 89 A0 01 A2 00 B1 88 38 E9 01 7'.... .".1.8i.
$000B80 91 88 A2 00 A9 00 4C AE 13 A0 01 20 37 27 A0 01 ..".).L. . . 7' .
$000B90 20 2A 27 A0 00 20 E4 2B A0 01 B1 80 88 11 80 F0 *' . d+ .1....p
$000BA0 03 4C C4 12 A2 FF A9 FF 4C AE 13 20 04 27 60 20 .LD.") L.. .'`
$000BB0 08 2B 20 E5 23 A0 06 20 37 27 A0 01 20 1F 27 D0 .+ e# . 7' . .'P
$000BC0 03 4C 25 14 A0 06 20 37 27 A0 0A 20 2A 27 A0 00 .L%. . 7 ' . *' .
$000BD0 20 E4 2B 4C 1C 14 A0 01 20 37 27 A0 04 20 1F 27 d+L.. . 7' . .'
$000BE0 20 08 2B A0 06 A2 00 B1 80 20 1D 24 D0 03 4C 0D .+ .".1 . .$P.L.
$000BF0 14 A0 01 20 37 27 20 08 2B A0 05 20 37 27 A0 07 . . 7' . + . 7' .
$000C00 20 ED 2B A2 00 A9 00 4C 2C 14 A0 01 20 37 27 A0 m+".).L ,. . 7'
$000C10 01 20 2A 27 A0 00 20 E4 2B A0 01 B1 80 88 11 80 . *' . d + .1....
$000C20 D0 B4 A2 FF A9 FF 4C 2C 14 20 0E 27 60 20 08 2B P4")L, . .'` .+
$000C30 A0 01 20 37 27 A0 00 20 1F 27 C9 00 20 24 28 D0 . 7' . .'I. $(P
$000C40 03 4C 60 14 A0 01 20 37 27 20 08 2B A2 00 A9 01 .L`. . 7 ' .+".).
$000C50 A0 00 20 CC 2B A0 01 20 37 27 20 64 14 20 EC 26 . L+ . 7' d. l&
$000C60 60 20 08 2B A9 00 20 F2 2A 20 E5 23 A0 04 20 37 ` .+). r * e# . 7
$000C70 27 A0 01 20 1F 27 C9 00 20 24 28 D0 03 4C 8D 14 ' . .'I. $(P.L..
$000C80 A2 FF A9 FF 4C 0E 16 4C 0E 16 A0 04 20 37 27 A0 ")L..L .. . 7'
$000C90 08 20 2A 27 E0 00 D0 02 C9 00 20 24 28 D0 03 4C . *'`.P. I. $(P.L
$000CA0 AF 14 A2 FF A9 FF 4C 0E 16 4C 0E 16 A0 04 20 37 /.")L. .L.. . 7
$000CB0 27 A0 00 20 1F 27 D0 03 4C D0 15 A0 04 20 37 27 ' . .'P. LP. . 7'
$000CC0 A0 05 20 1F 27 20 CD 26 A2 00 20 F2 2A A0 05 20 . .' M& ". r* .
$000CD0 37 27 A0 06 20 1F 27 20 D9 26 A2 00 20 F2 2A A0 7' . .' Y&". r*
$000CE0 06 20 37 27 A0 03 20 1F 27 20 F2 2A A0 07 20 37 . 7' . . ' r* . 7
$000CF0 27 A0 04 20 1F 27 20 25 1B A0 04 20 37 27 A0 03 ' . .' % . . 7' .
$000D00 20 1F 27 20 C6 26 A2 00 20 F2 2A A0 05 20 37 27 .' F&". r* . 7'
$000D10 A0 04 20 1F 27 20 C6 26 A2 00 20 8A 26 A0 04 20 . .' F& ". .& .
$000D20 37 27 A0 08 20 2A 27 20 08 2B A0 02 20 D8 22 A0 7' . *' .+ . X"
$000D30 04 20 37 27 A0 0A 20 2A 27 A0 00 20 E4 2B 4C C1 . 7' . * ' . d+LA
$000D40 15 A0 01 20 37 27 20 08 2B A0 06 20 37 27 A0 03 . . 7' . + . 7' .
$000D50 20 1F 27 20 C6 26 A2 00 20 F2 2A A0 07 20 37 27 .' F&". r* . 7'
$000D60 A0 04 20 1F 27 20 08 2B A0 07 A2 00 B1 80 20 1D . .' .+ .".1. .
$000D70 22 20 D4 26 A2 00 20 F2 2A A0 08 20 37 27 A0 02 " T&". r * . 7' .
$000D80 20 1F 27 20 08 2B A0 08 A2 00 B1 80 20 1D 24 D0 .' .+ . ".1. .$P
$000D90 03 4C 9E 15 A2 00 A9 01 4C A2 15 A2 00 A9 00 A2 .L..".). L".".)."
$000DA0 00 20 A4 19 A0 01 20 37 27 A0 01 20 2A 27 A0 00 . $. . 7 ' . *' .
$000DB0 20 E4 2B A0 02 A2 00 18 A9 01 71 80 91 80 A0 01 d+ .".. ).q... .
$000DC0 B1 80 88 11 80 F0 03 4C 44 15 4C 0E 16 A0 04 20 1....p.L D.L.. .
$000DD0 37 27 A0 05 20 1F 27 20 CD 26 A2 00 20 F2 2A A0 7' . .' M&". r*
$000DE0 05 20 37 27 A0 06 20 1F 27 20 D9 26 A2 00 20 F2 . 7' . . ' Y&". r
$000DF0 2A A0 06 20 37 27 A0 03 20 1F 27 20 F2 2A A0 07 * . 7' . .' r* .
$000E00 20 37 27 A0 04 20 1F 27 20 C3 1B 20 04 27 60 20 7' . .' C. .'`
$000E10 08 2B A0 01 20 37 27 A0 00 20 1F 27 D0 03 4C 3D .+ . 7' . .'P.L=
$000E20 16 A0 01 20 37 27 20 08 2B A2 00 A9 00 A0 00 20 . . 7' . +".). .
$000E30 CC 2B A0 01 20 37 27 20 64 14 20 EC 26 60 20 08 L+ . 7' d. l&` .
$000E40 2B 20 F2 23 A0 04 20 37 27 20 08 2B A0 06 20 37 + r# . 7 ' .+ . 7
$000E50 27 A0 02 20 1F 27 20 1E 1A A0 00 20 E4 2B E0 00 ' . .' . . . d+`.
$000E60 D0 02 C9 00 20 24 28 D0 03 4C 76 16 A2 FF A9 FF P.I. $(P .Lv.")
$000E70 4C F5 16 A0 04 20 37 27 A0 00 20 1F 27 C9 00 20 Lu. . 7' . .'I.
$000E80 24 28 D0 03 4C 91 16 A2 FF A9 FF 4C F5 16 4C EB $(P.L.." )Lu.Lk
$000E90 16 A0 02 A2 00 B1 80 4C 9D 16 C9 03 D0 03 4C BC . .".1.L ..I.P.L<
$000EA0 16 C9 0A D0 03 4C C3 16 C9 0D D0 03 4C C3 16 C9 .I.P.LC. I.P.LC.I
$000EB0 1B D0 03 4C BC 16 4C EB 16 A2 00 A9 00 4C F5 16 .P.L<.Lk .".).Lu.
$000EC0 A0 01 20 37 27 A0 08 20 2A 27 E0 00 D0 02 C9 00 . 7' . *'`.P.I.
$000ED0 20 24 28 D0 03 4C E8 16 A0 01 20 37 27 A0 04 20 $(P.Lh. . 7' .
$000EE0 13 27 4C F5 16 4C EB 16 20 8B 22 A0 02 91 80 AA .'Lu.Lk. ." ...*
$000EF0 D0 9F 20 04 27 60 20 08 2B 20 FF 23 A9 01 20 3E P. .'` . + #). >
$000F00 27 20 08 2B A9 02 20 3E 27 20 8E 2B A0 05 20 37 ' .+). > ' .+ . 7
$000F10 27 A0 03 20 1F 27 20 D4 26 A2 00 A0 03 91 80 A0 ' . .' T &". ...
$000F20 0F 20 DB 26 20 08 2B A0 03 A2 00 B1 80 20 B7 2C . [& .+ .".1. 7,
$000F30 D0 03 4C 49 17 A0 01 A2 00 B1 80 A0 10 20 D3 23 P.LI. ." .1. . S#
$000F40 A2 00 A0 03 91 80 A0 05 20 37 27 A0 04 20 1F 27 ". ... . 7' . .'
$000F50 20 08 2B A0 07 20 37 27 A0 02 20 1F 27 20 1D 22 .+ . 7' . .' ."
$000F60 20 D9 26 A2 00 A0 02 91 80 20 D4 26 20 08 2B A0 Y&". .. . T& .+
$000F70 02 A2 00 B1 80 20 B7 2C D0 03 4C 8F 17 A0 00 A2 .".1. 7, P.L.. ."
$000F80 00 B1 80 20 CC 23 A2 00 A0 02 91 80 A9 11 20 F2 .1. L#". ...). r
$000F90 2A A9 03 20 F2 2A A0 05 B1 80 20 F2 2A A0 05 B1 *). r* . 1. r* .1
$000FA0 80 20 25 1B A9 0F 20 F2 2A A9 01 20 F2 2A A0 05 . %.). r *). r* .
$000FB0 A2 00 B1 80 20 C6 26 A2 00 20 F2 2A A0 05 A2 00 ".1. F&" . r* .".
$000FC0 B1 80 20 C6 26 A2 00 20 C3 1B A0 03 A2 00 B1 80 1. F&". C. .".1.
$000FD0 20 C6 26 A2 00 20 F2 2A A0 03 A2 00 B1 80 20 C6 F&". r* .".1. F
$000FE0 26 A2 00 20 F2 2A A9 51 A2 2F 20 45 23 4C 73 18 &". r*)Q "/ E#Ls.
$000FF0 A9 01 20 98 23 20 8B 22 A0 01 91 80 A9 00 20 98 ). .# ." ...). .
$001000 23 A0 01 A2 00 B1 80 4C 0D 18 C9 4E D0 03 4C 4E # .".1.L ..INP.LN
$001010 18 C9 59 D0 03 4C 2C 18 C9 6E D0 03 4C 4E 18 C9 .IYP.L,. InP.LN.I
$001020 79 D0 03 4C 2C 18 4C 70 18 A9 11 20 F2 2A A9 03 yP.L,.Lp .). r*).
$001030 20 F2 2A A0 05 B1 80 20 F2 2A A0 05 B1 80 20 C3 r* .1. r* .1. C
$001040 1B A2 00 A9 01 4C 76 18 4C 73 18 A9 11 20 F2 2A .".).Lv. Ls.). r*
$001050 A9 03 20 F2 2A A0 05 B1 80 20 F2 2A A0 05 B1 80 ). r* .1 . r* .1.
$001060 20 C3 1B A2 00 A9 00 4C 76 18 4C 73 18 4C 73 18 C.".).L v.Ls.Ls.
$001070 4C F3 17 20 09 27 60 20 08 2B A0 01 20 37 27 20 Ls. .'` .+ . 7'
$001080 08 2C A2 00 20 F2 2A A0 00 A2 00 B1 80 20 CD 26 .,". r* .".1. M&
$001090 A2 00 20 F2 2A A9 05 20 F2 2A A2 00 A9 14 20 08 ". r*). r*".). .
$0010A0 2B A0 04 A2 00 B1 80 20 53 22 20 47 2C 20 08 2B + .".1. S" G, .+
$0010B0 A0 04 A2 00 B1 80 A2 00 29 01 20 47 2C A2 00 20 .".1.". ). G,".
$0010C0 F2 2A A9 0A 20 25 1B A0 00 B1 80 20 F2 2A A9 03 r*). %. .1. r*).
$0010D0 20 F2 2A A2 00 A9 15 20 08 2B A0 04 A2 00 B1 80 r*".). .+ .".1.
$0010E0 20 53 22 20 47 2C 20 08 2B A0 04 A2 00 B1 80 A2 S" G, . + .".1."
$0010F0 00 29 01 20 47 2C A2 00 20 F2 2A A9 0B 20 C3 1B .). G,". r*). C.
$001100 A2 00 A9 15 20 08 2B A0 02 A2 00 B1 80 20 53 22 ".). .+ .".1. S"
$001110 20 47 2C 20 08 2B A0 02 A2 00 B1 80 A2 00 29 01 G, .+ . ".1.".).
$001120 20 47 2C A2 00 20 F2 2A A9 0B 20 F2 2A A0 04 20 G,". r* ). r* .
$001130 37 27 20 45 23 A9 01 20 3E 2B A9 12 20 F2 2A A9 7' E#). >+). r*)
$001140 0D 20 F2 2A A9 60 A2 2F 20 45 23 A9 00 20 3E 2B . r*)`"/ E#). >+
$001150 4C 56 19 20 8B 22 C9 0D 20 1E 28 D0 F6 A0 00 A2 LV. ."I. .(Pv ."
$001160 00 B1 80 20 CD 26 A2 00 20 F2 2A A9 05 20 F2 2A .1. M&". r*). r*
$001170 A2 00 A9 14 20 08 2B A0 04 A2 00 B1 80 20 53 22 ".). .+ .".1. S"
$001180 20 47 2C 20 08 2B A0 04 A2 00 B1 80 A2 00 29 01 G, .+ . ".1.".).
$001190 20 47 2C A2 00 20 F2 2A A9 0A 20 C3 1B 20 FA 26 G,". r* ). C. z&
$0011A0 60 20 F2 2A 20 DC 23 A0 03 B1 80 20 F2 2A A0 03 ` r* \# .1. r* .
$0011B0 B1 80 20 8A 26 A0 01 B1 80 D0 03 4C C6 19 A9 01 1. .& .1 .P.LF.).
$0011C0 20 3E 2B A0 05 20 37 27 A0 08 20 2A 27 E0 00 D0 >+ . 7' . *'`.P
$0011D0 02 C9 00 20 24 28 D0 03 4C FB 19 A2 00 A9 01 A0 .I. $(P. L{.".).
$0011E0 00 91 80 A0 05 20 37 27 A0 06 20 2A 27 20 08 2B ... . 7' . *' .+
$0011F0 A0 02 20 D8 22 4C 15 1A A2 00 A9 01 A0 00 91 80 . X"L.. ".). ...
$001200 A0 05 20 37 27 A0 06 20 2A 27 20 08 2B A0 02 20 . 7' . *' .+ .
$001210 D8 22 A9 00 20 3E 2B 20 09 27 60 20 F2 2A 20 E5 X"). >+ .'` r* e
$001220 23 A0 04 20 37 27 A0 0A 20 2A 27 A0 00 20 E4 2B # . 7' . *' . d+
$001230 4C 6F 1A A0 01 20 37 27 A0 00 85 88 86 89 B1 88 Lo. . 7' .....1.
$001240 C8 11 88 D0 03 4C 68 1A A0 01 20 37 27 A0 01 20 H..P.Lh. . 7' .
$001250 2A 27 A0 00 20 E4 2B A0 02 A2 00 B1 80 38 E9 01 *' . d+ .".1.8i.
$001260 91 80 4C 6F 1A A2 00 A9 00 4C 7D 1A A0 02 B1 80 ..Lo.".) .L}. .1.
$001270 D0 C1 A0 01 20 37 27 4C 7D 1A 20 04 27 60 20 F2 PA . 7'L }. .'` r
$001280 2A 20 E5 23 A0 04 20 37 27 A0 0A 20 2A 27 A0 00 * e# . 7 ' . *' .
$001290 20 E4 2B 4C C7 1A A0 01 20 37 27 A0 00 85 88 86 d+LG. . 7' ....
$0012A0 89 B1 88 C8 11 88 D0 03 4C C0 1A A0 01 20 37 27 .1.H..P. L@. . 7'
$0012B0 A0 01 20 2A 27 A0 00 20 E4 2B 4C C7 1A A2 00 A9 . *' . d+LG.".)
$0012C0 00 4C E7 1A A0 01 20 37 27 A0 04 20 1F 27 20 08 .Lg. . 7 ' . .' .
$0012D0 2B A0 04 A2 00 B1 80 20 80 2A D0 BA A0 01 20 37 + .".1. .*P: . 7
$0012E0 27 4C E7 1A 20 04 27 60 20 F2 2A A2 00 A9 00 8D 'Lg. .'` r*".)..
$0012F0 17 33 A2 00 A9 00 8D 16 33 A2 00 A9 01 8D 18 33 .3".)... 3".)...3
$001300 20 41 08 A9 01 20 3E 2B A0 04 20 37 27 20 08 2B A.). >+ . 7' .+
$001310 A0 02 20 D8 22 A9 00 20 3E 2B 20 04 27 60 20 41 . X"). >+ .'` A
$001320 08 60 20 F2 2A A0 01 B1 80 20 F2 2A A0 01 B1 80 .` r* .1 . r* .1.
$001330 20 8A 26 A9 2B 20 07 23 A0 03 A2 00 B1 80 20 C5 .&)+ .# .".1. E
$001340 23 A2 00 20 B8 22 A9 2B 20 07 23 A0 01 B1 80 20 #". 8")+ .# .1.
$001350 F2 2A A0 01 A2 00 B1 80 20 C6 26 A2 00 20 F2 2A r* .".1. F&". r*
$001360 A0 04 A2 00 B1 80 20 C5 23 A2 00 20 A2 23 A9 2B .".1. E #". "#)+
$001370 20 07 23 A0 03 A2 00 B1 80 20 C5 23 A2 00 20 B8 .# .".1 . E#". 8
$001380 22 A9 2B 20 07 23 A0 01 A2 00 B1 80 20 08 2B A0 ")+ .# . ".1. .+
$001390 05 A2 00 B1 80 20 1D 22 20 BE 23 A2 00 20 F2 2A .".1. ." >#". r*
$0013A0 A0 01 A2 00 B1 80 20 C6 26 A2 00 20 F2 2A A0 04 .".1. F &". r* .
$0013B0 A2 00 B1 80 20 C5 23 A2 00 20 A2 23 20 FF 26 60 ".1. E#" . "# &`
$0013C0 20 F2 2A 20 F2 23 AD C9 30 AE CA 30 A0 50 20 DB r* r#-I 0.J0 P [
$0013D0 26 20 08 2B A0 08 A2 00 B1 80 20 47 2C A0 01 20 & .+ .". 1. G, .
$0013E0 E4 2B A2 00 A9 00 A0 00 91 80 A0 00 A2 00 B1 80 d+".). . .. .".1.
$0013F0 20 08 2B A0 07 A2 00 B1 80 20 C9 2C F0 03 4C 07 .+ .".1 . I,p.L.
$001400 1C 4C 40 1C A0 04 B1 80 20 F2 2A A0 04 A2 00 B1 .L@. .1. r* .".1
$001410 80 20 08 2B A0 03 A2 00 B1 80 20 1D 22 A2 00 20 . .+ .". 1. ."".
$001420 8A 26 A0 02 20 37 27 20 08 2B A0 02 20 D8 22 A0 .& . 7' .+ . X"
$001430 00 A2 00 18 A9 01 71 80 91 80 4C ED 1B 20 0E 27 ."..).q. ..Lm. .'
$001440 60 20 F2 2A 20 DC 23 A0 03 20 37 27 20 08 2C A2 ` r* \# . 7' .,"
$001450 00 A0 00 91 80 20 08 2B A0 03 A2 00 B1 80 20 C1 . ... .+ .".1. A
$001460 2C D0 03 4C 9A 1C A0 03 20 37 27 20 4F 23 AD C9 ,P.L.. . 7' O#-I
$001470 30 AE CA 30 A0 50 20 DB 26 20 08 2B A0 02 A2 00 0.J0 P [ & .+ .".
$001480 B1 80 20 1D 22 20 08 2B A0 03 A2 00 B1 80 20 47 1. ." .+ .".1. G
$001490 2C 20 4F 23 4C F8 1C A0 03 20 37 27 20 08 2B A0 , O#Lx. . 7' .+
$0014A0 03 A2 00 B1 80 20 1D 22 A0 00 20 1F 27 A0 00 91 .".1. ." . .' ..
$0014B0 80 A0 03 20 37 27 20 08 2B A0 03 A2 00 B1 80 20 . . 7' . + .".1.
$0014C0 1D 22 20 08 2B A2 00 A9 00 A0 00 20 CC 2B A0 03 ." .+".) . . L+ .
$0014D0 20 37 27 20 4F 23 A0 03 20 37 27 20 08 2B A0 03 7' O# . 7' .+ .
$0014E0 A2 00 B1 80 20 1D 22 20 08 2B A0 02 A2 00 B1 80 ".1. ." .+ .".1.
$0014F0 A0 00 20 CC 2B 20 FF 26 60 A9 00 20 F2 2A A9 00 . L+ & `). r*).
$001500 20 F2 2A A9 28 20 81 22 A2 00 A9 00 8D 1A 33 A2 r*)( ." ".)...3"
$001510 00 AD 1A 33 C9 03 20 3D 28 F0 03 4C 24 1D 4C 86 .-.3I. = (p.L$.L.
$001520 1D A2 00 AD 1A 33 20 45 22 A2 00 8D 1B 33 A9 01 .".-.3 E ""...3).
$001530 20 3E 2B AD 1B 33 20 F2 2A A9 00 20 8A 26 A2 00 >+-.3 r *). .&".
$001540 AD 1A 33 A0 31 20 DB 26 A2 00 20 07 23 A9 00 20 -.3 1 [& ". .#).
$001550 3E 2B A2 00 AD 1B 33 20 C6 26 A2 00 20 F2 2A A9 >+".-.3 F&". r*)
$001560 00 20 F2 2A A2 00 AD 1A 33 20 63 2A 18 69 CB A8 . r*".-. 3 c*.iK(
$001570 8A 69 30 AA 98 20 45 23 A2 00 AD 1A 33 EE 1A 33 .i0*. E# ".-.3n.3
$001580 4C 12 1D A9 00 20 3E 2B 60 20 41 08 20 FC 1C A9 L..). >+ ` A. |.)
$001590 00 20 F2 2A A9 01 20 8A 26 A9 28 20 B8 22 A9 00 . r*). . &)( 8").
$0015A0 20 F2 2A A9 03 20 8A 26 A9 C6 A2 2F 20 08 2B A0 r*). .& )F"/ .+
$0015B0 02 20 B6 2A A2 00 A9 00 8D E0 30 A2 00 AD E0 30 . 6*".). .`0".-`0
$0015C0 C9 08 20 3D 28 F0 03 4C D0 1D 4C 20 1E A2 00 AD I. =(p.L P.L .".-
$0015D0 E0 30 20 08 2B A2 C2 A9 00 20 1D 22 A0 00 20 1F `0 .+"B) . ." . .
$0015E0 27 8D 19 33 A9 B6 A2 2F 20 08 2B A2 00 AD E0 30 '..3)6"/ .+".-`0
$0015F0 20 08 2B A2 C2 A9 00 20 1D 22 20 08 2B A2 00 AD .+"B). ." .+".-
$001600 19 33 20 08 2B A2 00 AD 19 33 20 08 2B A0 08 20 .3 .+".- .3 .+ .
$001610 B6 2A A2 00 AD E0 30 EE E0 30 4C BE 1D A9 01 20 6*".-`0n `0L>.).
$001620 98 23 20 8B 22 8D 19 33 A9 00 20 F2 2A A9 17 20 .# ."..3 ). r*).
$001630 8A 26 A9 D5 A2 2F 20 08 2B A2 00 AD 19 33 20 08 .&)U"/ . +".-.3 .
$001640 2B A0 04 20 B6 2A 60 20 12 22 8D 1D 33 A9 FF AA + . 6*` ."..3)*
$001650 60 8D 1D 33 AA F0 09 20 86 2A 20 12 22 A9 FF AA `..3*p. .* .")*
$001660 60 A0 00 B1 96 E6 96 D0 02 E6 97 60 AD 29 33 8D ` .1.f.P .f.`-)3.
$001670 24 33 20 10 1F A9 24 A2 33 20 08 2B 20 E9 2A 4C $3 ..)$" 3 .+ i*L
$001680 09 31 A5 94 38 E9 02 85 94 B0 02 C6 95 60 AD 2E .1%.8i.. .0.F.`-.
$001690 33 D0 11 20 AE 1E 4C 63 22 AD 2E 33 D0 06 20 AE 3P. ..Lc "-.3P. .
$0016A0 1E 4C 5D 22 20 AE 1E 85 82 86 83 20 85 1E A0 01 .L]" ... ... .. .
$0016B0 B1 94 AA 88 B1 94 60 A0 00 84 88 84 89 B1 96 38 1.*.1.` .....1.8
$0016C0 E9 30 90 2C C9 0A B0 28 20 68 1E 48 A5 88 A6 89 i0.,I.0( h.H%.&.
$0016D0 06 88 26 89 06 88 26 89 65 88 85 88 8A 65 89 85 ..&...&. e....e..
$0016E0 89 06 88 26 89 68 65 88 85 88 90 D1 E6 89 B0 CD ...&.he. ...Qf.0M
$0016F0 A5 88 A6 89 60 AC 30 33 EE 30 33 99 31 33 60 A9 %.&.`,03 n03.13`)
$001700 31 A2 33 18 6D 30 33 90 01 E8 4C 08 2B A5 98 A6 1"3.m03. .hL.+%.&
$001710 99 4C 08 2B 20 6F 1E EE 2A 33 D0 F8 EE 2B 33 D0 .L.+ o.n *3Pxn+3P
$001720 F3 60 20 10 1F AD 45 33 AE 46 33 20 08 2B AD 47 s` ..-E3 .F3 .+-G
$001730 33 AE 48 33 20 08 2B 4C 09 31 84 88 20 71 27 20 3.H3 .+L .1.. q'
$001740 02 1F A5 88 4C A1 27 84 88 20 71 27 20 02 1F A5 ..%.L!'. . q' ..%
$001750 88 4C E2 27 48 A0 05 B9 94 00 99 1E 33 88 10 F7 .Lb'H .9 ....3..w
$001760 68 85 94 86 95 20 E4 26 85 96 86 97 20 E4 26 85 h.... d& .... d&.
$001770 98 86 99 A9 00 A8 91 98 C8 91 98 C8 B1 98 8D 0A ...).(.. H..H1...
$001780 31 C8 B1 98 8D 0B 31 A5 96 85 88 A5 97 85 89 A0 1H1...1% ...%...
$001790 00 B1 96 F0 0B C9 25 F0 07 C8 D0 F5 E6 97 D0 F1 .1.p.I%p .HPuf.Pq
$0017A0 98 18 65 96 85 96 90 02 E6 97 38 E5 88 85 8A A5 ..e..... f.8e...%
$0017B0 97 E5 89 85 8B 05 8A F0 25 20 0C 24 A0 05 A5 99 .e.....p % .$ .%.
$0017C0 91 80 88 A5 98 91 80 88 A5 89 91 80 88 A5 88 91 ...%.... %....%..
$0017D0 80 88 A5 8B 91 80 88 A5 8A 91 80 20 09 31 20 64 ..%....% ... .1 d
$0017E0 1E AA D0 0B A2 05 BD 1E 33 95 94 CA 10 F8 60 C9 .*P.".=. 3..J.x`I
$0017F0 25 D0 09 B1 96 C9 25 D0 09 20 68 1E 20 72 1E 4C %P.1.I%P . h. r.L
$001800 8A 1F A9 00 A2 0B 9D 25 33 CA 10 FA B1 96 C9 2D ..)."..% 3J.z1.I-
$001810 D0 05 8E 25 33 F0 19 C9 2B D0 05 8E 26 33 F0 10 P..%3p.I +P..&3p.
$001820 C9 20 D0 05 8E 27 33 F0 07 C9 23 D0 09 8E 28 33 I P..'3p .I#P..(3
$001830 20 68 1E 4C 0F 20 A2 20 C9 30 D0 06 AA 20 68 1E h.L. " I0P.* h.
$001840 B1 96 8E 29 33 C9 2A D0 09 20 68 1E 20 AE 1E 4C 1..)3I*P . h. ..L
$001850 58 20 20 BA 1E 8D 2A 33 8E 2B 33 8C 2C 33 8C 2D X :..*3 .+3.,3.-
$001860 33 B1 96 C9 2E D0 1B 20 68 1E B1 96 C9 2A D0 09 31.I.P. h.1.I*P.
$001870 20 68 1E 20 AE 1E 4C 7F 20 20 BA 1E 8D 2C 33 8E h. ..L :..,3.
$001880 2D 33 B1 96 C9 7A F0 19 C9 68 F0 15 C9 74 F0 11 -31.Izp. Ihp.Itp.
$001890 C9 6A F0 08 C9 4C F0 04 C9 6C D0 0B A9 FF 8D 2E Ijp.ILp. IlP.)..
$0018A0 33 20 68 1E 4C 85 20 8C 30 33 A2 31 8E 45 33 A2 3 h.L. . 03"1.E3"
$0018B0 33 8E 46 33 20 68 1E C9 63 D0 0E 20 AE 1E 8D 31 3.F3 h.I cP. ...1
$0018C0 33 A9 00 8D 32 33 4C A9 21 C9 64 F0 04 C9 69 D0 3)..23L) !Idp.IiP
$0018D0 2D A2 00 AD 27 33 F0 02 A2 20 AD 26 33 F0 02 A2 -".-'3p. " -&3p."
$0018E0 2B 8E 2F 33 20 9C 1E A4 83 30 0B AC 2F 33 F0 06 +./3 ..$ .0.,/3p.
$0018F0 8C 31 33 EE 30 33 A0 0A 20 3D 1F 4C A9 21 C9 6E .13n03 . =.L)!In
$001900 D0 15 20 AE 1E 85 88 86 89 A0 00 B1 98 91 88 C8 P. ..... . .1...H
$001910 B1 98 91 88 4C 8A 1F C9 6F D0 27 20 9C 1E AC 28 1...L..I oP' ..,(
$001920 33 F0 17 48 86 90 05 90 05 82 05 83 0D 2C 33 0D 3p.H.... .....,3.
$001930 2D 33 F0 06 A9 30 20 F8 1E 68 A0 08 20 3D 1F 4C -3p.)0 x .h . =.L
$001940 A9 21 C9 70 D0 0D A2 00 8E 2E 33 E8 8E 28 33 A9 )!IpP.". ..3h.(3)
$001950 78 D0 27 C9 73 D0 0C 20 AE 1E 8D 45 33 8E 46 33 xP'IsP. ...E3.F3
$001960 4C A9 21 C9 75 D0 0B 20 91 1E A0 0A 20 4A 1F 4C L)!IuP. .. . J.L
$001970 A9 21 C9 78 F0 04 C9 58 D0 29 48 AD 28 33 F0 0A )!Ixp.IX P)H-(3p.
$001980 A9 30 20 F8 1E A9 58 20 F8 1E 20 91 1E A0 10 20 )0 x.)X x. .. .
$001990 4A 1F 68 C9 78 D0 09 AD 45 33 AE 46 33 20 1E 2C J.hIxP.- E3.F3 .,
$0019A0 4C A9 21 4C 8A 1F AD 45 33 AE 46 33 20 08 2C 8D L)!L..-E 3.F3 .,.
$0019B0 47 33 8E 48 33 AD 2C 33 0D 2D 33 F0 15 AE 2C 33 G3.H3-,3 .-3p..,3
$0019C0 EC 47 33 AD 2D 33 A8 ED 48 33 B0 06 8E 47 33 8C lG3--3(m H30..G3.
$0019D0 48 33 38 AD 2A 33 ED 47 33 AA AD 2B 33 ED 48 33 H38-*3mG 3*-+3mH3
$0019E0 B0 03 A9 00 AA 49 FF 8D 2B 33 8A 49 FF 8D 2A 33 0.).*I. +3.I.*3
$0019F0 AD 25 33 D0 03 20 1A 1F 20 25 1F AD 25 33 F0 03 -%3P. .. %.-%3p.
$001A00 20 1A 1F 4C 8A 1F A6 21 A5 23 38 E5 22 A8 60 8D ..L..&! %#8e"(`.
$001A10 4A 33 A9 00 8D 4B 33 60 A2 00 18 A0 00 71 80 C8 J3)..K3` ".. .q.H
$001A20 85 90 8A 71 80 AA 18 A5 80 69 02 85 80 90 02 E6 ...q.*.% .i.....f
$001A30 81 A5 90 60 C8 48 18 98 65 80 85 80 90 02 E6 81 .%.`HH.. e.....f.
$001A40 68 60 86 90 0A 26 90 0A 26 90 0A 26 90 A6 90 60 h`...&.. &..&.&.`
$001A50 86 90 E0 80 66 90 6A A6 90 60 A0 FF E0 80 B0 02 ..`.f.j& .` `.0.
$001A60 A0 00 84 82 84 83 60 AD 0C 31 AE 0D 31 20 08 2B .....`- .1..1 .+
$001A70 AD 0E 31 AE 0F 31 20 08 2B A0 04 4C 8C 1D 48 20 -.1..1 . + .L..H
$001A80 87 26 68 A2 A0 4C BA 22 AD 1C 33 F0 05 A9 60 20 .&h" L:" -.3p.)`
$001A90 3B 23 E6 4E D0 02 E6 4F AD 00 C0 10 F5 AC 1C 33 ;#fNP.fO -.@.u,.3
$001AA0 F0 06 48 8A 20 3B 23 68 2C 10 C0 29 7F A2 00 60 p.H. ;#h ,.@)".`
$001AB0 48 20 87 26 68 A2 AD 86 90 C9 00 F0 0B 85 91 A5 H .&h"-. .I.p...%
$001AC0 90 20 17 23 C6 91 D0 F7 60 A0 00 F0 07 A9 C3 A2 . .#F.Pw ` .p.)C"
$001AD0 30 4C 10 31 60 8C 49 33 88 88 98 18 65 80 85 88 0L.1`.I3 ....e...
$001AE0 A6 81 90 01 E8 86 89 A0 01 B1 88 AA 88 B1 88 20 &...h.. .1.*.1.
$001AF0 08 2B A5 88 A6 89 20 19 2D AC 49 33 4C 38 22 48 .+%.&. . -,I3L8"H
$001B00 20 87 26 68 C9 0D F0 1A C9 0A F0 1B 49 80 C9 E0 .&hI.p. I.p.I.I`
$001B10 90 02 29 DF 20 39 23 E6 24 A5 24 C5 21 90 07 20 ..)_ 9#f $%$E!..
$001B20 2A 23 A9 00 85 24 60 E6 25 A5 25 C5 23 90 04 A5 *#)..$`f %%%E#..%
$001B30 22 85 25 4C 4B 08 25 32 48 A4 24 B1 28 AA 68 91 ".%LK.%2 H$$1(*h.
$001B40 28 60 85 88 86 89 20 87 26 4C 53 23 85 88 86 89 (`.... . &LS#....
$001B50 A0 00 B1 88 F0 0E C8 84 90 20 07 23 A4 90 D0 F2 .1.p.H. . .#$.Pr
$001B60 E6 89 D0 EE 60 8E F2 03 8D F3 03 49 A5 8D F4 03 f.Pn`.r. .s.I%.t.
$001B70 60 20 00 BF 65 FF 2F E0 00 D0 15 4A AA BD 11 30 ` .?e/` .P.J*=.0
$001B80 90 05 4A 4A 4A 4A 18 29 0F AA BD 06 30 A2 00 60 ..JJJJ.) .*=.0".`
$001B90 38 A9 00 AA 60 A8 A2 00 AD 1C 33 8C 1C 33 60 48 8).*`(". -.3..3`H
$001BA0 20 87 26 68 A2 A1 86 90 C9 00 F0 0E 85 91 A5 90 .&h"!.. I.p...%.
$001BB0 20 39 23 20 2A 23 C6 91 D0 F4 60 38 E9 01 B0 01 9# *#F. Pt`8i.0.
$001BC0 CA 60 38 E9 02 B0 01 CA 60 38 E9 03 B0 01 CA 60 J`8i.0.J `8i.0.J`
$001BD0 84 90 38 E5 90 B0 01 CA 60 A4 80 D0 02 C6 81 C6 ..8e.0.J `$.P.F.F
$001BE0 80 60 A5 80 38 E9 02 85 80 90 01 60 C6 81 60 A5 .`%.8i.. ...`F.`%
$001BF0 80 38 E9 03 85 80 90 01 60 C6 81 60 A5 80 38 E9 .8i..... `F.`%.8i
$001C00 04 85 80 90 01 60 C6 81 60 A5 80 38 E9 06 85 80 .....`F. `%.8i...
$001C10 90 01 60 C6 81 60 A9 00 A2 00 20 9A 26 4C 24 28 ..`F.`). ". .&L$(
$001C20 E0 00 D0 0E C9 08 B0 0A 0A 0A A8 B9 39 31 F0 02 `.P.I.0. ..(991p.
$001C30 18 60 A9 07 38 60 85 8A 86 8B 05 8B D0 01 60 C6 .`).8`.. ....P.`F
$001C40 8B A0 FF B1 8A AA 88 B1 8A 86 8B 85 8A A0 01 B1 . 1.*.1 ..... .1
$001C50 8A 85 89 88 B1 8A 85 88 18 65 8A A8 A5 8B 65 89 ....1... .e.(%.e.
$001C60 CC 01 31 D0 65 CD 02 31 D0 60 A5 8A 8D 01 31 A5 L.1PeM.1 P`%...1%
$001C70 8B 8D 02 31 AD 07 31 85 88 0D 08 31 F0 42 AD 08 ...1-.1. ...1pB-.
$001C80 31 85 89 A0 00 B1 88 18 65 88 AA C8 B1 88 65 89 1.. .1.. e.*H1.e.
$001C90 CD 02 31 D0 2B EC 01 31 D0 26 A5 88 8D 01 31 A5 M.1P+l.1 P&%...1%
$001CA0 89 8D 02 31 A0 05 B1 88 85 8B 8D 08 31 88 B1 88 ...1 .1. ....1.1.
$001CB0 85 8A 8D 07 31 0D 08 31 D0 07 8D 05 31 8D 06 31 ....1..1 P...1..1
$001CC0 60 A9 00 88 91 8A 88 91 8A 60 AD 05 31 85 8C AD `)...... .`-.1..-
$001CD0 06 31 85 8D 05 8C D0 1A A0 01 C8 91 8A C0 05 D0 .1....P. .H..@.P
$001CE0 F9 A5 8A A6 8B 8D 05 31 8E 06 31 8D 07 31 8E 08 y%.&...1 ..1..1..
$001CF0 31 60 A9 00 85 8E 85 8F A0 03 A6 8C A5 8D C5 8B 1`)..... .&.%.E.
$001D00 D0 04 E4 8A F0 02 B0 25 86 8E 85 8F 88 B1 8C AA P.d.p.0% .....1.*
$001D10 C8 B1 8C 86 8C 85 8D 05 8C D0 E1 91 8A 88 91 8A H1...... .Pa.....
$001D20 A5 8A 8D 07 31 A5 8B 8D 08 31 4C AB 25 A5 8A 18 %...1%.. .1L+%%..
$001D30 65 88 AA A5 8B 65 89 E4 8C D0 40 C5 8D D0 3C A0 e.*%.e.d .P@E.P<
$001D40 00 A5 88 18 71 8C 91 8A C8 A5 89 71 8C 91 8A C8 .%..q... H%.q...H
$001D50 B1 8C 91 8A 85 88 C8 B1 8C 91 8A 85 89 05 88 F0 1.....H1 .......p
$001D60 0D C8 A5 8A 91 88 C8 A5 8B 91 88 4C 93 25 A5 8A .H%...H% ...L.%%.
$001D70 8D 07 31 A5 8B 8D 08 31 4C 93 25 A0 02 A5 8C 91 ..1%...1 L.% .%..
$001D80 8A C8 A5 8D 91 8A C8 A5 8A 91 8C C8 A5 8B 91 8C .H%...H% ...H%...
$001D90 A5 8E 05 8F D0 12 A0 04 91 8A C8 91 8A A5 8A 8D %...P. . ..H..%..
$001DA0 05 31 A5 8B 8D 06 31 60 A0 00 B1 8E 18 65 8E AA .1%...1` .1..e.*
$001DB0 C8 B1 8E 65 8F E4 8A D0 3B C5 8B D0 37 88 B1 8E H1.e.d.P ;E.P7.1.
$001DC0 18 71 8A 91 8E C8 B1 8E 71 8A 91 8E C8 B1 8A 91 .q...H1. q...H1..
$001DD0 8E 85 88 C8 B1 8A 91 8E 85 89 05 88 F0 0B C8 A5 ...H1... ....p.H%
$001DE0 8E 91 88 C8 A5 8F 91 88 60 A5 8E 8D 07 31 A5 8F ...H%... `%...1%.
$001DF0 8D 08 31 60 C8 A5 8A 91 8E C8 A5 8B 91 8E C8 A5 ..1`H%.. .H%...H%
$001E00 8E 91 8A C8 A5 8F 91 8A 60 8D 4C 33 85 88 8E 4D ...H%... `.L3...M
$001E10 33 86 89 A0 01 B1 88 29 01 D0 09 A9 10 20 12 22 3.. .1.) .P.). ."
$001E20 AA 4C 09 27 B1 88 29 04 D0 F1 A0 00 B1 88 A2 00 *L.'1.). Pq .1.".
$001E30 20 08 2B A0 09 20 20 2B A0 07 20 20 2B A0 09 20 .+ . + . + .
$001E40 37 27 20 E4 29 E0 00 D0 0E C9 00 D0 0A A0 05 20 7' d)`.P .I.P. .
$001E50 37 27 A0 0A 4C 38 22 20 96 2E E0 FF D0 18 C9 FF 7' .L8" ..`P.I
$001E60 D0 14 AD 4C 33 85 88 AD 4D 33 85 89 A0 01 B1 88 P.-L3..- M3.. .1.
$001E70 09 04 91 88 D0 A5 20 08 2B A0 05 20 37 27 20 5C ....P% . + . 7' \
$001E80 2C 4C 09 27 20 9C 2A 18 65 22 85 25 20 4B 08 20 ,L.' .*. e".% K.
$001E90 9C 2A 85 24 60 A2 00 85 82 86 83 A0 00 B1 80 AA .*.$`".. ... .1.*
$001EA0 E6 80 D0 02 E6 81 B1 80 E6 80 D0 02 E6 81 38 E5 f.P.f.1. f.P.f.8e
$001EB0 83 D0 09 E4 82 F0 04 69 FF 09 01 60 50 FD 49 FF .P.d.p.i ..`P}I
$001EC0 09 01 60 18 69 01 90 01 E8 60 18 69 02 90 01 E8 ..`.i... h`.i...h
$001ED0 60 A0 03 4C DB 26 A0 04 84 90 18 65 90 90 01 E8 ` .L[& . ...e...h
$001EE0 60 A0 01 B1 80 AA 88 B1 80 E6 80 F0 05 E6 80 F0 ` .1.*.1 .f.p.f.p
$001EF0 03 60 E6 80 E6 81 60 A0 03 4C 38 22 A0 04 4C 38 .`f.f.` .L8" .L8
$001F00 22 A0 05 4C 38 22 A0 06 4C 38 22 A0 07 4C 38 22 " .L8" . L8" .L8"
$001F10 85 88 86 89 A2 00 B1 88 10 01 CA 60 85 88 86 89 ....".1. ..J`....
$001F20 A2 00 B1 88 60 A0 01 85 88 86 89 B1 88 AA 88 B1 ".1.` .. ...1.*.1
$001F30 88 60 A0 01 B1 80 AA 88 B1 80 60 A2 00 18 65 80 .` .1.*. 1.`"..e.
$001F40 48 8A 65 81 AA 68 60 18 49 FF 69 01 48 8A 49 FF H.e.*h`. Ii.H.I
$001F50 69 00 AA A5 82 49 FF 69 00 85 82 A5 83 49 FF 69 i.*%.Ii ...%.Ii
$001F60 00 85 83 68 60 A9 00 AA A0 00 84 82 84 83 48 20 ...h`).* .....H
$001F70 FF 23 A0 03 A5 83 91 80 88 A5 82 91 80 88 8A 91 # .%... .%......
$001F80 80 68 88 91 80 60 85 90 20 E4 26 85 8A 86 8B 85 .h...`.. d&.....
$001F90 8C 86 8D 20 A8 2A 20 E4 26 85 82 86 83 60 20 89 ... (* d &....` .
$001FA0 27 A6 83 A4 90 C0 0A D0 39 A5 82 05 89 05 88 D0 '&.$.@.P 9%.....P
$001FB0 11 E0 80 D0 0D A0 0B B9 F3 2F 91 8A 88 10 F8 4C .`.P. .9 s/....xL
$001FC0 19 28 8A 10 1D A9 2D A0 00 91 8A E6 8A D0 02 E6 .(...)- ...f.P.f
$001FD0 8B A5 88 A6 89 20 4A 27 85 88 86 89 4C E5 27 20 .%.&. J' ....Le'
$001FE0 89 27 A9 00 48 A0 20 A9 00 06 88 26 89 26 82 26 .').H ) ...&.&.&
$001FF0 83 2A C5 90 90 04 E5 90 E6 88 88 D0 EC A8 B9 E3 .*E...e. f..Pl(9c
$002000 2F 48 A5 88 05 89 05 82 05 83 D0 D9 A0 00 68 91 /H%..... ..PY .h.
$002010 8A F0 03 C8 D0 F8 A5 8C A6 8D 60 D0 06 A2 00 8A .p.HPx%. &.`P."..
$002020 60 D0 FA A2 00 A9 01 60 F0 F9 30 F7 A2 00 8A 60 `Pz".).` py0w"..`
$002030 F0 02 10 EF A2 00 8A 60 F0 E9 90 E7 A2 00 8A 60 p..o"..` pi.g"..`
$002040 F0 DB A2 00 8A 2A 60 85 88 86 89 05 89 F0 5F A5 p["..*`. .....p_%
$002050 88 18 69 04 85 88 90 02 E6 89 A6 89 D0 08 C9 07 ..i..... f.&.P.I.
$002060 B0 04 A9 06 85 88 AD 05 31 85 8A AD 06 31 85 8B 0.)...-. 1..-.1..
$002070 4C 90 28 A0 00 B1 8A 38 E5 88 AA C8 B1 8A E5 89 L.( .1.8 e.*H1.e.
$002080 B0 40 C8 B1 8A AA C8 B1 8A 86 8A 85 8B 05 8A D0 0@H1.*H1 .......P
$002090 E2 AD 01 31 18 65 88 A8 AD 02 31 65 89 B0 0C CD b-.1.e.( -.1e.0.M
$0020A0 04 31 D0 03 CC 03 31 90 06 F0 04 A9 00 AA 60 AE .1P.L.1. .p.).*`.
$0020B0 01 31 86 8A AE 02 31 86 8B 8C 01 31 8D 02 31 4C .1....1. ...1..1L
$0020C0 37 29 D0 53 E0 06 B0 4F A0 05 B1 8A 85 8D 88 B1 7)PS`.0O .1....1
$0020D0 8A 85 8C 88 05 8D F0 0C B1 8A 91 8C 88 B1 8A 91 ......p. 1....1..
$0020E0 8C 4C F2 28 B1 8A 8D 06 31 88 B1 8A 8D 05 31 B1 .Lr(1... 1.1...11
$0020F0 8A 85 8C C8 B1 8A 85 8D C8 05 8C F0 0C B1 8A 91 ...H1... H..p.1..
$002100 8C C8 B1 8A 91 8C 4C 42 29 B1 8A 8D 07 31 C8 B1 .H1...LB )1...1H1
$002110 8A 8D 08 31 4C 42 29 88 B1 8A 38 E5 88 91 8A AA ...1LB). 1.8e...*
$002120 C8 B1 8A E5 89 91 8A 8A 18 65 8A AA B1 8A 65 8B H1.e.... .e.*1.e.
$002130 86 8A 85 8B A0 00 A5 88 91 8A C8 A5 89 91 8A A0 .... .%. ..H%...
$002140 02 A5 8A 91 8A C8 A5 8B 91 8A A5 8A A6 8B 18 69 .%...H%. ..%.&..i
$002150 04 90 01 E8 60 20 81 29 A6 8D F0 13 B1 88 91 8A ...h` .) &.p.1...
$002160 C8 B1 88 91 8A C8 D0 F4 E6 89 E6 8B CA D0 ED A6 H1...HPt f.f.JPm&
$002170 8C F0 08 B1 88 91 8A C8 CA D0 F8 4C E4 26 85 8C .p.1...H JPxLd&..
$002180 86 8D 20 A8 2A C8 B1 80 AA 86 8B 88 B1 80 85 8A .. (*H1. *...1...
$002190 60 20 81 29 C5 88 8A E5 89 B0 03 4C 5B 29 A5 89 ` .)E..e .0.L[)%.
$0021A0 18 65 8D 85 89 A5 8B 18 65 8D 85 8B A4 8C D0 06 .e...%.. e...$.P.
$0021B0 F0 0B B1 88 91 8A 88 D0 F9 B1 88 91 8A A6 8D F0 p.1....P y1...&.p
$0021C0 1D C6 89 C6 8B 88 B1 88 91 8A 88 B1 88 91 8A 88 .F.F..1. ...1....
$0021D0 B1 88 91 8A 88 D0 EF B1 88 91 8A CA D0 E3 4C E4 1....Po1 ...JPcLd
$0021E0 26 85 8E 8A F0 2E 86 8F 20 A8 2A 98 A4 89 F0 27 &...p... (*.$.p'
$0021F0 85 90 A0 10 46 8F 66 8E 90 0B 18 65 88 AA A5 89 .. .F.f. ...e.*%.
$002200 65 90 85 90 8A 66 90 6A 66 8F 66 8E 88 D0 E9 A5 e....f.j f.f..Pi%
$002210 8E A6 8F 60 4C 2B 2A 86 89 A4 88 A6 8E 86 88 84 .&.`L+*. .$.&....
$002220 8E A0 08 4C 35 2A 85 8E 20 A8 2A 98 A0 08 A6 89 . .L5*.. (*. .&.
$002230 F0 1D 85 8F 46 8E 90 0B 18 65 88 AA A5 89 65 8F p...F... .e.*%.e.
$002240 85 8F 8A 66 8F 6A 66 8E 88 D0 EB AA A5 8E 60 46 ...f.jf. .Pk*%.`F
$002250 8E 90 03 18 65 88 6A 66 8E 88 D0 F5 AA A5 8E 60 ....e.jf ..Pu*%.`
$002260 85 88 86 89 0A 26 89 0A 26 89 0A 26 89 38 E5 88 .....&.. &..&.8e.
$002270 48 8A 49 FF 65 89 AA 68 60 A9 00 A2 00 20 9A 26 H.Ie.*h `).". .&
$002280 4C 1E 28 A2 32 DD 8F 30 F0 09 CA CA D0 F7 A9 12 L.("2].0 p.JJPw).
$002290 A2 00 60 BD 90 30 A2 00 60 A0 00 B1 80 E6 80 F0 ".`=.0". ` .1.f.p
$0022A0 01 60 E6 81 60 A0 01 B1 80 85 89 88 B1 80 85 88 .`f.` .1 ....1...
$0022B0 4C EC 26 8C 60 33 AD FB 30 AE FC 30 20 08 2B A5 Ll&.`3-{ 0.|0 .+%
$0022C0 80 A6 81 18 6D 60 33 90 01 E8 85 88 86 89 A0 01 .&..m`3. .h.... .
$0022D0 B1 88 AA 88 B1 88 20 08 2B A5 88 A6 89 20 81 2D 1.*.1. . +%.&. .-
$0022E0 AC 60 33 4C 38 22 A9 01 4C 06 2B A0 00 B1 80 A4 ,`3L8"). L.+ .1.$
$0022F0 80 F0 07 C6 80 A0 00 91 80 60 C6 81 C6 80 91 80 .p.F. .. .`F.F...
$002300 60 A9 00 A2 00 48 A5 80 38 E9 02 85 80 B0 02 C6 `).".H%. 8i...0.F
$002310 81 A0 01 8A 91 80 68 88 91 80 60 A0 03 A5 80 38 . ....h. ..` .%.8
$002320 E9 02 85 80 B0 02 C6 81 B1 80 AA 88 B1 80 A0 00 i...0.F. 1.*.1. .
$002330 91 80 C8 8A 91 80 60 A9 00 AA 60 AA F0 02 A2 40 ..H...`) .*`*p."@
$002340 CA A9 00 A4 32 86 32 30 02 A9 01 A2 00 60 85 8A J).$2.20 .).".`..
$002350 86 8B 20 A8 2A 20 E4 26 4C 23 24 8D 4F 33 A5 88 .. (* d& L#$.O3%.
$002360 A6 89 8D 50 33 8E 51 33 A5 8A A6 8B 8D 52 33 8E &..P3.Q3 %.&..R3.
$002370 53 33 98 A2 04 20 59 31 90 04 C9 4C D0 0A 8D 1D S3.". Y1 ..ILP...
$002380 33 AD 54 33 AE 55 33 60 4C 54 1E 85 8A 86 8B 20 3-T3.U3` LT.....
$002390 A8 2A 20 09 22 98 A0 00 91 8A 8A 91 88 60 8C 61 (* .". . .....`.a
$0023A0 33 20 FF 23 AD 61 33 18 65 80 85 88 A6 81 90 01 3 #-a3. e...&...
$0023B0 E8 86 89 A0 03 B1 88 91 80 88 10 F9 A5 88 A6 89 h.. .1.. ...y%.&.
$0023C0 20 84 2E AC 61 33 4C 38 22 48 84 90 A0 01 B1 80 ..,a3L8 "H.. .1.
$0023D0 85 89 88 B1 80 85 88 A4 90 68 91 88 4C EC 26 A0 ...1...$ .h..Ll&
$0023E0 00 91 80 C8 48 8A 91 80 68 60 84 90 48 A0 01 B1 ...HH... h`..H .1
$0023F0 80 85 89 88 B1 80 85 88 A4 90 C8 8A 91 88 88 68 ....1... $.H....h
$002400 91 88 4C EC 26 85 8A 86 8B A2 00 A0 00 B1 8A F0 ..Ll&... .". .1.p
$002410 08 C8 D0 F9 E6 8B E8 D0 F4 98 60 85 88 86 89 85 .HPyf.hP t.`.....
$002420 8A 86 8B A0 00 B1 88 F0 14 20 7E 23 29 02 F0 06 ... .1.p . ~#).p.
$002430 B1 88 69 20 91 88 C8 D0 EC E6 89 D0 E8 A5 8A A6 1.i ..HP lf.Ph%.&
$002440 8B 60 A2 00 38 49 FF A0 00 71 80 C8 48 8A 49 FF .`".8I .q.HH.I
$002450 71 80 AA 68 4C 37 22 A2 00 85 8E 86 8F 20 A8 2A q.*hL7"" ..... (*
$002460 20 6B 2C A5 88 A6 89 60 A9 00 85 83 A0 10 A6 8F k,%.&.` )... .&.
$002470 F0 1F 06 88 26 89 2A 26 83 AA C5 8E A5 83 E5 8F p...&.*& .*E.%.e.
$002480 90 08 85 83 8A E5 8E AA E6 88 8A 88 D0 E4 85 82 .....e.* f...Pd..
$002490 60 06 88 26 89 2A B0 04 C5 8E 90 04 E5 8E E6 88 `..&.*0. E...e.f.
$0024A0 88 D0 EE 85 82 60 A9 00 A2 00 20 9A 26 4C 45 28 .Pn..`). ". .&LE(
$0024B0 A9 00 A2 00 20 9A 26 4C 43 28 A9 00 A2 00 20 9A ).". .&L C().". .
$0024C0 26 4C 3B 28 A2 00 20 9A 26 4C 3D 28 20 E4 26 85 &L;(". . &L=( d&.
$0024D0 8A 49 FF 8D 83 31 8A 85 8B 49 FF 8D 84 31 20 A8 .I..1.. .I..1 (
$0024E0 2A 20 E4 26 85 8C 86 8D A0 00 84 90 B1 8C 18 65 * d&.... ...1..e
$0024F0 8A 91 8C C8 B1 8C 65 8B 91 8C EE 83 31 F0 11 A4 ...H1.e. ..n.1p.$
$002500 90 B1 88 C8 D0 02 E6 89 84 90 20 07 23 4C FD 2C .1.HP.f. .. .#L},
$002510 EE 84 31 D0 EA 60 85 88 86 89 A9 00 8D 7D 31 8D n.1Pj`.. ..)..}1.
$002520 7E 31 A0 01 B1 80 AA 88 B1 80 20 08 2B A0 02 A9 ~1 .1.*. 1. .+ .)
$002530 7D 91 80 C8 A9 31 91 80 A5 88 A6 89 20 57 1F AD }..H)1.. %.&. W.-
$002540 7D 31 AE 7E 31 60 A0 05 20 20 2B 20 E9 2A A0 07 }1.~1` . + i* .
$002550 20 20 2B AD 89 31 AE 8A 31 20 0C 26 85 88 86 89 +-.1.. 1 .&....
$002560 05 89 D0 07 A9 FF 8D 85 31 D0 0D A5 88 18 6D 85 ..P.).. 1P.%..m.
$002570 31 8D 85 31 8A 6D 86 31 8D 86 31 4C 09 27 48 A9 1..1.m.1 ..1L.'H)
$002580 00 8D 85 31 8D 86 31 A0 02 B1 80 8D 89 31 A9 85 ...1..1 .1...1).
$002590 91 80 C8 B1 80 8D 8A 31 A9 31 91 80 68 20 57 1F ..H1...1 )1..h W.
$0025A0 AD 85 31 AE 86 31 60 48 8A 48 A9 00 8D 8D 31 8D -.1..1`H .H)...1.
$0025B0 8E 31 A0 02 B1 80 85 88 A9 8D 91 80 C8 B1 80 30 .1 .1... )...H1.0
$0025C0 61 85 89 A9 31 91 80 A4 89 A6 88 D0 01 88 CA 8E a..)1..$ .&.P..J.
$0025D0 93 31 8C 94 31 A0 05 20 37 27 8D 91 31 8E 92 31 .1..1 . 7'..1..1
$0025E0 2C 94 31 30 05 0D 92 31 F0 3B 68 AA 68 20 57 1F ,.10...1 p;h*h W.
$0025F0 AE 94 31 30 24 AD 93 31 EC 8E 31 D0 03 CD 8D 31 ..10$-.1 l.1P.M.1
$002600 90 07 AD 8D 31 AE 8E 31 18 6D 91 31 85 88 8A 6D ..-.1..1 .m.1...m
$002610 92 31 85 89 A9 00 A8 91 88 AD 8D 31 AE 8E 31 4C .1..).(. .-.1..1L
$002620 EC 26 A0 0F 2C A0 07 68 68 98 20 4A 1E 4C 09 27 l& ., .h h. J.L.'
$002630 AD 93 31 38 ED 8D 31 85 88 AD 94 31 30 07 ED 8E -.18m.1. .-.10.m.
$002640 31 85 89 B0 06 A9 00 85 88 85 89 AD 91 31 18 6D 1..0.).. ...-.1.m
$002650 8D 31 A0 04 91 80 AD 92 31 6D 8E 31 C8 91 80 20 .1 ...-. 1m.1H..
$002660 E4 26 48 18 6D 8D 31 8D 8D 31 8A 6D 8E 31 8D 8E d&H.m.1. .1.m.1..
$002670 31 68 E4 89 D0 02 C5 88 90 04 A5 88 A6 89 4C 58 1hd.P.E. ..%.&.LX
$002680 29 48 8A 48 20 1E 2B A9 FF A2 7F A0 02 20 E4 2B )H.H .+) " . d+
$002690 4C AD 2D 20 51 2B B0 65 AA B9 3A 31 29 02 F0 5B L-- Q+0e *9:1).p[
$0026A0 8A 30 24 B9 3A 31 29 40 F0 15 8E 4F 33 A9 D1 A2 .0$9:1)@ p..O3)Q"
$0026B0 02 20 59 31 B0 4A A9 CE A2 02 20 59 31 B0 41 B9 . Y10J)N ". Y10A9
$0026C0 39 31 A0 CB 4C 5E 2B A6 8A A5 8B 8E 54 33 8D 55 91 KL^+& .%..T3.U
$0026D0 33 05 8A F0 21 A0 00 B1 88 C9 0A D0 02 A9 0D 09 3..p! .1 .I.P.)..
$0026E0 80 C9 E0 90 02 29 DF 20 37 08 C8 D0 02 E6 89 CA .I`..)_ 7.HP.f.J
$0026F0 D0 E5 C6 8B 10 E1 A9 00 4C 81 2B A9 07 4C 4A 1E PeF..a). L.+).LJ.
$002700 4C 54 1E A9 B2 85 88 A9 31 85 89 A9 00 A8 A2 01 LT.)2..) 1..).(".
$002710 F0 0A 91 88 C8 D0 FB E6 89 CA D0 F6 C0 B0 F0 05 p...HP{f .JPv@0p.
$002720 91 88 C8 D0 F7 60 70 6F 73 20 3D 20 25 32 64 2C ..HPw`po s = %2d,
$002730 20 6F 66 66 73 65 74 20 3D 20 25 32 64 2C 20 6C offset = %2d, l
$002740 65 6E 20 3D 20 25 32 64 00 25 63 00 20 00 41 72 en = %2d .%c. .Ar
$002750 65 20 79 6F 75 20 73 75 72 65 3F 20 00 20 4F 4B e you su re? . OK
$002760 20 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
$002770 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
$002780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
$002790 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
$0027A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
$0027B0 20 20 00 28 25 75 29 20 2D 3E 20 25 64 2C 20 25 .(%u) -> %d, %
$0027C0 63 0A 00 48 65 6C 6C 6F 2C 20 77 6F 72 6C 64 21 c..Hello , world!
$0027D0 0A 00 59 6F 75 20 73 61 69 64 3A 20 25 63 0A 00 ..You sa id: %c..
$0027E0 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 01234567 89ABCDEF
$0027F0 2D 32 31 34 37 34 38 33 36 34 38 00 04 00 00 00 -2147483 648.....
$002800 00 00 00 00 01 02 0C 09 0A 10 40 50 A0 D0 66 66 ........ ..@P Pff
$002810 66 66 A6 88 88 66 66 66 66 66 66 66 66 66 09 00 ff&..fff ffffff..
$002820 00 00 00 00 00 00 33 33 33 33 33 00 00 00 50 55 ......33 333...PU
$002830 55 25 22 22 22 22 22 22 22 22 22 02 00 00 40 44 U%"""""" """...@D
$002840 44 14 11 11 11 11 11 11 11 11 11 01 00 70 66 66 D....... .....pff
$002850 66 66 A6 88 88 66 66 66 66 66 66 66 66 66 09 00 ff&..fff ffffff..
$002860 00 00 00 00 00 00 33 33 33 33 33 00 00 00 50 55 ......33 333...PU
$002870 55 25 22 22 22 22 22 22 22 22 22 02 00 00 40 44 U%"""""" """...@D
$002880 44 14 11 11 11 11 11 11 11 11 11 01 00 70 01 0D D....... .....p..
$002890 04 07 25 02 27 0B 28 04 2B 03 2F 04 40 07 42 05 ..%.'.(. +./.@.B.
$0028A0 43 07 44 01 45 01 46 01 47 09 48 08 49 08 4A 11 C.D.E.F. G.H.I.J.
$0028B0 4B 07 4D 0E 4E 03 50 07 52 04 53 0F 55 05 56 07 K.M.N.P. R.S.U.V.
$0028C0 01 07 0D 05 05 02 65 2F 43 48 41 4E 4E 45 4C 4D ......e/ CHANNELM
$0028D0 45 53 53 41 47 45 45 4E 44 00 00 00 00 00 00 01 ESSAGEEN D.......
$0028E0 00 01 01 00 02 01 00 00 00 00 00 00 00 00 00 00 ........ ........
$0028F0 00 00 00 00 00 00 E1 30 E4 30 E7 30 62 33 62 33 ......a0 d0g0b3b3
$002900 62 33 00 00 00 00 4C 00 00 00 00 00 00 8D 1E 31 b3....L. .......1
$002910 8E 1F 31 8D 25 31 8E 26 31 88 B9 FF FF 8D 2F 31 ..1.%1.& 1.9./1
$002920 88 B9 FF FF 8D 2E 31 8C 31 31 20 FF FF A0 FF D0 .9..1. 11  P
$002930 E8 60 4C D0 03 00 80 01 00 00 80 02 00 00 80 02 h`LP.... ........
$002940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$002950 00 00 00 00 00 00 8D 6D 31 8E 4E 33 AD 38 31 F0 .......m 1.N3-81p
$002960 15 A5 4E 48 A5 4F 48 20 00 BF 00 4E 33 AA 68 85 .%NH%OH .?.N3*h.
$002970 4F 68 85 4E 8A 60 A9 01 38 60 00 00 CF 2C 00 00 Oh.N.`). 8`..O,..
$002980 00 00 00 00 49 2D 00 00 00 00 00 00 33 2E 00 00 ....I-.. ....3...
$002990 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ........ ........
$0029A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 38 ........ .......8
$0029B0 A5 80 E9 00 8D 03 31 A5 81 E9 08 8D 04 31 60 A0 %.i...1% .i...1`
$0029C0 04 F0 07 A9 4C A2 32 4C 10 31 60 A2 19 B5 80 9D .p.)L"2L .1`".5..
$0029D0 95 31 CA 10 F8 A2 02 BD F2 03 9D AF 31 CA 10 F7 .1J.x".= r../1J.w
$0029E0 AC 00 BF C0 4C D0 17 AD 6F BF C9 01 D0 10 A9 74 ,.?@LP.- o?I.P.)t
$0029F0 A2 23 8D 36 31 8E 37 31 A9 00 A2 BF D0 04 A5 73 "#.61.71 )."?P.%s
$002A00 A6 74 85 80 86 81 A2 0F A9 08 20 68 23 20 C2 31 &t....". ). h# B1
$002A10 2C 81 C0 2C 81 C0 A9 50 A0 32 85 9B 84 9C A9 50 ,.@,.@)P 2....)P
$002A20 A0 32 85 96 84 97 A9 00 A0 D4 85 94 84 95 20 9A 2....). T.... .
$002A30 D3 2C 80 C0 60 AD 00 BF C9 4C D0 0C AD FF BF C9 S,.@`-.? ILP.-?I
$002A40 10 B0 02 09 10 8D 38 31 60 B2 31 38 32 .. .. .. .0....81 `2182
** END **

86
examples/weather/WEATHER.BAS Normal file
View File

@ -0,0 +1,86 @@
10 CA = 49664
20 AA = CA +1
30 CC$ = ""
35 CITY$ = ""
100 PRINT
110 PRINT "----"
120 PRINT "MENU"
130 PRINT "(1) COUNTRY","",CC$
140 PRINT "(2) CITY","",CITY$
150 PRINT "(3) FETCH WEATHER"
160 PRINT "(4) SHOW WEATHER"
170 PRINT "(0) QUIT"
175 PRINT
180 INPUT "SELECT: ";S
190 IF S >4 THEN GOTO 100
200 IF S = 0 THEN END
210 IF S = 1 THEN GOTO 1000
220 IF S = 2 THEN GOTO 2000
230 IF S = 3 THEN GOTO 3000
240 IF S = 4 THEN GOTO 4000
250 GOTO 100
1000 INPUT "COUNTRY CODE: ";CC$
1010 WS$ = CC$
1020 WA = AA +1
1030 GOSUB 10000
1040 POKE AA,200
1050 GOTO 100
2000 INPUT "CITY: ";CITY$
2010 WS$ = CITY$
2020 WA = AA +1
2030 GOSUB 10000
2040 POKE AA,201
2050 GOTO 100
3000 POKE AA,205
3010 GOTO 100
4000 HOME
4005 MAXSTR = 0
4010 RA = AA +1
4015 GOSUB 11000
4020 TEMP$ = RS$
4025 RA = RA + LEN(RS$) +1
4030 GOSUB 11000
4035 FOOM$ = RS$
4040 RA = RA + LEN(RS$) +1
4045 GOSUB 11000
4050 WSPEED$ = RS$
4055 RA = RA + LEN(RS$) +1
4060 GOSUB 11000
4065 WDIR$ = RS$
4070 RA = RA + LEN(RS$) +1
4075 GOSUB 11000
4080 WD1$ = RS$
4085 RA = RA + LEN(RS$) +1
4090 GOSUB 11000
4095 WD2$ = RS$
4150 PRINT
4155 PRINT CITY$ +"/" +CC$ +" " +WD1$
4160 PRINT "-----------------------------"
4165 PRINT "TEMP: " +TEMP$ +"K"
4170 PRINT "HUMIDITY: " +FOOM$ +"%"
4175 PRINT "WIND SPEED: " +WSPEED$ +" m/s"
4177 REM PRINT
4180 REM PRINT WD1$ + ", " + WD2$
4500 GOTO 100
10000 REM WRITE WS$ TO WA
10010 FOR N = 0 TO LEN(WS$) -1
10020 P = WA +N
10030 C$ = MID$ (WS$,N +1,1)
10040 REM PRINT C$, ASC (C$)
10050 POKE P, ASC(C$)
10060 NEXT N
10070 POKE P +1,3
10080 RETURN
11000 REM ============ WRITE STRING TO RAM =================
11001 REM RA ADDRESS TO START READ
11002 REM MAXSTR IS LIMIT TO STR SIZE WE READ
11020 IF MAXSTR = 0 THEN MAXSTR = 250
11040 RS$ = ""
11060 FOR N = 0 TO MAXSTR
11080 P = RA +N
11100 C = PEEK(P)
11120 IF C = 3 THEN GOTO 11200
11140 RS$ = RS$ + CHR$(C)
11160 REM PRINT N+1,P,C, CHR$ (C)
11180 NEXT N
11200 RETURN

2
examples/wifi_scan/CSCANWIFI.BAS Normal file
View File

@ -0,0 +1,2 @@
100 CA = 49665
150 POKE CA,111

41
examples/wifi_scan/SCANWIFI.BAS Normal file
View File

@ -0,0 +1,41 @@
100 CA = 49664: REM CARD ADDRESS 0XCN0
120 AA = CA +1: REM APPL CMD ADDRESS
140 ESPA = CA: REM ESP CMD ADDRESS
150 MAXSTR = 22: REM TO LIMIT GOING BEZERK
160 NAP = PEEK(CA +3): REM #ACCESS POINTS
165 OFF = CA +4: REM ADDRESS OFFSET
167 PRINT ""
168 PRINT "AP #","ACCESS POINT"
169 PRINT "----","-------------------"
170 FOR J = 0 TO NAP
171 S$ = ""
200 FOR N = 0 TO MAXSTR
215 P = N +OFF
220 C = PEEK(P)
230 IF C = 3 THEN GOTO 400
240 S$ = S$ + CHR$(C)
245 REM PRINT N+1,P,C, CHR$ (C)
250 NEXT N
400 PRINT J +1,S$
420 OFF = P +1
450 NEXT J
590 PRINT ""
600 INPUT "SELECT WIFI AP #:";APN
620 INPUT "PASSWORD (BLANK IF NONE): ";PASS$
630 POKE AA +1,APN
640 WS$ = PASS$
645 WA = AA +2
650 GOSUB 2000
700 POKE AA,112: REM TELL ESP TO USE AP
1066 END
1900 REM ##### SUBS #######
2000 REM WRITE WS$ TO WA
2100 IF LEN(WS$) = 0 THEN GOTO 2360
2200 FOR N = 0 TO LEN(WS$) -1
2210 P = WA +N
2220 C$ = MID$ (WS$,N +1,1)
2230 REM PRINT C$, ASC (C$)
2240 POKE P, ASC(C$)
2350 NEXT N
2360 POKE P +1,3
2370 RETURN

10
examples/wifi_scan/SHOWIP.BAS Normal file
View File

@ -0,0 +1,10 @@
100 CA = 49664: REM CARD ADDRESS 0XCN0
120 AA = CA +1: REM APPL CMD ADDRESS
140 ESPA = CA: REM ESP CMD ADDRESS
150 MAX = 21
215 P = CA +2
220 C1 = PEEK(P)
221 C2 = PEEK(P +1)
222 C3 = PEEK(P +2)
223 C4 = PEEK(P +3)
245 PRINT STR$(C1) +"." + STR$(C2) +"." + STR$(C3) +"." + STR$(C4)