Home » Archimedes archive » Archimedes World » AW-1993-05.adf » AWMay93 » !AWMay93/Goodies/LogoV2/!Robot/2Motors
!AWMay93/Goodies/LogoV2/!Robot/2Motors
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1993-05.adf » AWMay93 |
| Filename: | !AWMay93/Goodies/LogoV2/!Robot/2Motors |
| Read OK: | ✔ |
| File size: | 09A8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Archimedes World » AW-1992-10.adf » AWOct92 » !AWOct92/Goodies/Logo/!Robot/2Motors
- Archimedes archive » Archimedes World » AW-1993-05.adf » AWMay93 » !AWMay93/Goodies/LogoV2/!Robot/2Motors
File contents
10REM >Driver - For Usborne build your own robot project
20REM Uses an acorn MIDI/Userport card on an A3000 to drive the robot
30:
40REM Purpose : Robot Driver nitty gritty procedures
50REM Authur : LEN Duncan F. McPherson
60REM Date : 27th of July 1992
70:
80REM This program is a working example driver, which runs my own home
90REM made buggy via the Acorn User port expansion card on an A3000.
100:
110REM The buggy only has two motors, and no facilities to change pencolour,
120REM or take the pen up or down, however by studying this code you can
130REM easily change it to run any buggy at all, just fill in the
140REM procedures the way you want them
150:
160REM The actual !Robot application written in BASIC loads the file "DRIVER"
170REM as a library, so remember the library rules, and to make the program
180REM work change its name to "DRIVER" inside the application`s dir and
190REM use the !Robot dialogue box to put the robot on line.Now when logo
200REM tries to move the turtle, your procedures will be called, and if
210REM you have written them correctly they will make your buggy move
220REM around under LOGO`s control
230:
240REM --------------------------------------------------
250REM | Procedures for moving the robot |
260REM --------------------------------------------------
270:
280REM IMPORTANT : 1.Dont change the procedure names!
290REM 2.Dont use any line number refrences (goto e.t.c.)
300REM 3.Remember this is a library and if you are not shure
310REM abour libraries R.T.F.M.*
320:
330REM * R.T.F.M. - Read The F..... Manual (computer jargon)
340:
350DEFPROCmoveforward(distance)
360TIME=0:PROCmove("F"):REPEATUNTILTIME>(2*distance):PROCmove("S")
370ENDPROC
380:
390DEFPROCmoveback(distance)
400TIME=0:PROCmove("B"):REPEATUNTILTIME>(2*distance):PROCmove("S")
410ENDPROC
420:
430DEFPROCmoveleft(degrees)
440dg%=ABS(degrees MOD 360)
450ti%=((1475/360)*dg%)
460TIME=0:PROCmove("L"):REPEATUNTILTIME>ti%:PROCmove("S")
470ENDPROC
480:
490DEFPROCmoveright(degrees)
500dg%=ABS(degrees MOD 360)
510ti%=((1475/360)*dg%)
520TIME=0:PROCmove("R"):REPEATUNTILTIME>ti%:PROCmove("S")
530ENDPROC
540:
550DEFPROCpenup
560ENDPROC
570:
580DEFPROCpendown
590ENDPROC
600:
610DEFPROCpencolour(colour)
620ENDPROC
630:
640REM This next procedure I added myself, and is not called directly
650REM by !Robot, only by the library internally.You dont have to
660REM keep it in your own library.
670:
680DEFPROCmove(D$)
690IF D$="S" THEN A=0
700IF D$="B" THEN A=3
710IF D$="F" THEN A=6
720IF D$="L" THEN A=2
730IF D$="R" THEN A=7
740IF D$=CHR$13 THEN A=0
750osbyte%=6:writebyte%=151:offset%=&62
760byte%=A:SYS osbyte%,writebyte%,offset%,byte%:ENDPROC
770:
8� >Driver - For Usborne build your own robot project
E� Uses an acorn MIDI/Userport card on an A3000 to drive the robot
:
(4� Purpose : Robot Driver nitty gritty procedures
2%� Authur : � Duncan F. McPherson
<!� Date : 27th of July 1992
F:
PF� This program is a working example driver, which runs my own home
ZD� made buggy via the Acorn User port expansion card on an A3000.
d:
nK� The buggy only has two motors, and no facilities to change pencolour,
xG� or take the pen up or down, however by studying this code you can
�@� easily change it to run any buggy at all, just fill in the
�&� procedures the way you want them
�:
�L� The actual !Robot application written in BASIC loads the file "DRIVER"
�J� as a library, so remember the library rules, and to make the program
�G� work change its name to "DRIVER" inside the application`s dir and
�H� use the !Robot dialogue box to put the robot on line.Now when logo
�F� tries to move the turtle, your procedures will be called, and if
�D� you have written them correctly they will make your buggy move
�!� around under LOGO`s control
�:
�8� --------------------------------------------------
�8� | Procedures for moving the robot |
8� --------------------------------------------------
:
4� IMPORTANT : 1.Dont change the procedure names!
"D� 2.Dont use any line number refrences (goto e.t.c.)
,G� 3.Remember this is a library and if you are not shure
6-� abour libraries R.T.F.M.*
@:
JA� * R.T.F.M. - Read The F..... Manual (computer jargon)
T:
^��moveforward(distance)
h.�=0:�move("F"):���>(2*distance):�move("S")
r�
|:
���moveback(distance)
�.�=0:�move("B"):���>(2*distance):�move("S")
��
�:
���moveleft(degrees)
�dg%=�(degrees � 360)
�ti%=((1475/360)*dg%)
�%�=0:�move("L"):���>ti%:�move("S")
��
�:
���moveright(degrees)
�dg%=�(degrees � 360)
�ti%=((1475/360)*dg%)
%�=0:�move("R"):���>ti%:�move("S")
�
:
& ��penup
0�
::
D
��pendown
N�
X:
b��pencolour(colour)
l�
v:
�D� This next procedure I added myself, and is not called directly
�@� by !Robot, only by the library internally.You dont have to
�"� keep it in your own library.
�:
���move(D$)
�� D$="S" � A=0
�� D$="B" � A=3
�� D$="F" � A=6
�� D$="L" � A=2
�� D$="R" � A=7
�� D$=�13 � A=0
�(osbyte%=6:writebyte%=151:offset%=&62
�1byte%=A:ș osbyte%,writebyte%,offset%,byte%:�
:
� 00000000 0d 00 0a 38 f4 20 3e 44 72 69 76 65 72 20 2d 20 |...8. >Driver - |
00000010 46 6f 72 20 55 73 62 6f 72 6e 65 20 62 75 69 6c |For Usborne buil|
00000020 64 20 79 6f 75 72 20 6f 77 6e 20 72 6f 62 6f 74 |d your own robot|
00000030 20 70 72 6f 6a 65 63 74 0d 00 14 45 f4 20 55 73 | project...E. Us|
00000040 65 73 20 61 6e 20 61 63 6f 72 6e 20 4d 49 44 49 |es an acorn MIDI|
00000050 2f 55 73 65 72 70 6f 72 74 20 63 61 72 64 20 6f |/Userport card o|
00000060 6e 20 61 6e 20 41 33 30 30 30 20 74 6f 20 64 72 |n an A3000 to dr|
00000070 69 76 65 20 74 68 65 20 72 6f 62 6f 74 0d 00 1e |ive the robot...|
00000080 05 3a 0d 00 28 34 f4 20 50 75 72 70 6f 73 65 20 |.:..(4. Purpose |
00000090 3a 20 52 6f 62 6f 74 20 44 72 69 76 65 72 20 6e |: Robot Driver n|
000000a0 69 74 74 79 20 67 72 69 74 74 79 20 70 72 6f 63 |itty gritty proc|
000000b0 65 64 75 72 65 73 0d 00 32 25 f4 20 41 75 74 68 |edures..2%. Auth|
000000c0 75 72 20 20 3a 20 a9 20 44 75 6e 63 61 6e 20 46 |ur : . Duncan F|
000000d0 2e 20 4d 63 50 68 65 72 73 6f 6e 0d 00 3c 21 f4 |. McPherson..<!.|
000000e0 20 44 61 74 65 20 20 20 20 3a 20 32 37 74 68 20 | Date : 27th |
000000f0 6f 66 20 4a 75 6c 79 20 31 39 39 32 0d 00 46 05 |of July 1992..F.|
00000100 3a 0d 00 50 46 f4 20 54 68 69 73 20 70 72 6f 67 |:..PF. This prog|
00000110 72 61 6d 20 69 73 20 61 20 77 6f 72 6b 69 6e 67 |ram is a working|
00000120 20 65 78 61 6d 70 6c 65 20 64 72 69 76 65 72 2c | example driver,|
00000130 20 77 68 69 63 68 20 72 75 6e 73 20 6d 79 20 6f | which runs my o|
00000140 77 6e 20 68 6f 6d 65 0d 00 5a 44 f4 20 6d 61 64 |wn home..ZD. mad|
00000150 65 20 62 75 67 67 79 20 76 69 61 20 74 68 65 20 |e buggy via the |
00000160 41 63 6f 72 6e 20 55 73 65 72 20 70 6f 72 74 20 |Acorn User port |
00000170 65 78 70 61 6e 73 69 6f 6e 20 63 61 72 64 20 6f |expansion card o|
00000180 6e 20 61 6e 20 41 33 30 30 30 2e 0d 00 64 05 3a |n an A3000...d.:|
00000190 0d 00 6e 4b f4 20 54 68 65 20 62 75 67 67 79 20 |..nK. The buggy |
000001a0 6f 6e 6c 79 20 68 61 73 20 74 77 6f 20 6d 6f 74 |only has two mot|
000001b0 6f 72 73 2c 20 61 6e 64 20 6e 6f 20 66 61 63 69 |ors, and no faci|
000001c0 6c 69 74 69 65 73 20 74 6f 20 63 68 61 6e 67 65 |lities to change|
000001d0 20 70 65 6e 63 6f 6c 6f 75 72 2c 0d 00 78 47 f4 | pencolour,..xG.|
000001e0 20 6f 72 20 74 61 6b 65 20 74 68 65 20 70 65 6e | or take the pen|
000001f0 20 75 70 20 6f 72 20 64 6f 77 6e 2c 20 68 6f 77 | up or down, how|
00000200 65 76 65 72 20 62 79 20 73 74 75 64 79 69 6e 67 |ever by studying|
00000210 20 74 68 69 73 20 63 6f 64 65 20 79 6f 75 20 63 | this code you c|
00000220 61 6e 0d 00 82 40 f4 20 65 61 73 69 6c 79 20 63 |an...@. easily c|
00000230 68 61 6e 67 65 20 69 74 20 74 6f 20 72 75 6e 20 |hange it to run |
00000240 61 6e 79 20 62 75 67 67 79 20 61 74 20 61 6c 6c |any buggy at all|
00000250 2c 20 6a 75 73 74 20 66 69 6c 6c 20 69 6e 20 74 |, just fill in t|
00000260 68 65 0d 00 8c 26 f4 20 70 72 6f 63 65 64 75 72 |he...&. procedur|
00000270 65 73 20 74 68 65 20 77 61 79 20 79 6f 75 20 77 |es the way you w|
00000280 61 6e 74 20 74 68 65 6d 0d 00 96 05 3a 0d 00 a0 |ant them....:...|
00000290 4c f4 20 54 68 65 20 61 63 74 75 61 6c 20 21 52 |L. The actual !R|
000002a0 6f 62 6f 74 20 61 70 70 6c 69 63 61 74 69 6f 6e |obot application|
000002b0 20 77 72 69 74 74 65 6e 20 69 6e 20 42 41 53 49 | written in BASI|
000002c0 43 20 6c 6f 61 64 73 20 74 68 65 20 66 69 6c 65 |C loads the file|
000002d0 20 22 44 52 49 56 45 52 22 0d 00 aa 4a f4 20 61 | "DRIVER"...J. a|
000002e0 73 20 61 20 6c 69 62 72 61 72 79 2c 20 73 6f 20 |s a library, so |
000002f0 72 65 6d 65 6d 62 65 72 20 74 68 65 20 6c 69 62 |remember the lib|
00000300 72 61 72 79 20 72 75 6c 65 73 2c 20 61 6e 64 20 |rary rules, and |
00000310 74 6f 20 6d 61 6b 65 20 74 68 65 20 70 72 6f 67 |to make the prog|
00000320 72 61 6d 0d 00 b4 47 f4 20 77 6f 72 6b 20 63 68 |ram...G. work ch|
00000330 61 6e 67 65 20 69 74 73 20 6e 61 6d 65 20 74 6f |ange its name to|
00000340 20 22 44 52 49 56 45 52 22 20 69 6e 73 69 64 65 | "DRIVER" inside|
00000350 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e | the application|
00000360 60 73 20 64 69 72 20 61 6e 64 0d 00 be 48 f4 20 |`s dir and...H. |
00000370 75 73 65 20 74 68 65 20 21 52 6f 62 6f 74 20 64 |use the !Robot d|
00000380 69 61 6c 6f 67 75 65 20 62 6f 78 20 74 6f 20 70 |ialogue box to p|
00000390 75 74 20 74 68 65 20 72 6f 62 6f 74 20 6f 6e 20 |ut the robot on |
000003a0 6c 69 6e 65 2e 4e 6f 77 20 77 68 65 6e 20 6c 6f |line.Now when lo|
000003b0 67 6f 0d 00 c8 46 f4 20 74 72 69 65 73 20 74 6f |go...F. tries to|
000003c0 20 6d 6f 76 65 20 74 68 65 20 74 75 72 74 6c 65 | move the turtle|
000003d0 2c 20 79 6f 75 72 20 70 72 6f 63 65 64 75 72 65 |, your procedure|
000003e0 73 20 77 69 6c 6c 20 62 65 20 63 61 6c 6c 65 64 |s will be called|
000003f0 2c 20 61 6e 64 20 69 66 0d 00 d2 44 f4 20 79 6f |, and if...D. yo|
00000400 75 20 68 61 76 65 20 77 72 69 74 74 65 6e 20 74 |u have written t|
00000410 68 65 6d 20 63 6f 72 72 65 63 74 6c 79 20 74 68 |hem correctly th|
00000420 65 79 20 77 69 6c 6c 20 6d 61 6b 65 20 79 6f 75 |ey will make you|
00000430 72 20 62 75 67 67 79 20 6d 6f 76 65 0d 00 dc 21 |r buggy move...!|
00000440 f4 20 61 72 6f 75 6e 64 20 75 6e 64 65 72 20 4c |. around under L|
00000450 4f 47 4f 60 73 20 63 6f 6e 74 72 6f 6c 0d 00 e6 |OGO`s control...|
00000460 05 3a 0d 00 f0 38 f4 20 2d 2d 2d 2d 2d 2d 2d 2d |.:...8. --------|
00000470 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000490 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 00 fa 38 f4 20 |----------...8. |
000004a0 7c 20 20 20 20 20 20 20 50 72 6f 63 65 64 75 72 || Procedur|
000004b0 65 73 20 66 6f 72 20 6d 6f 76 69 6e 67 20 74 68 |es for moving th|
000004c0 65 20 72 6f 62 6f 74 20 20 20 20 20 20 20 20 20 |e robot |
000004d0 20 7c 0d 01 04 38 f4 20 2d 2d 2d 2d 2d 2d 2d 2d | |...8. --------|
000004e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 01 0e 05 3a 0d |----------....:.|
00000510 01 18 34 f4 20 49 4d 50 4f 52 54 41 4e 54 20 3a |..4. IMPORTANT :|
00000520 20 31 2e 44 6f 6e 74 20 63 68 61 6e 67 65 20 74 | 1.Dont change t|
00000530 68 65 20 70 72 6f 63 65 64 75 72 65 20 6e 61 6d |he procedure nam|
00000540 65 73 21 0d 01 22 44 f4 20 20 20 20 20 20 20 20 |es!.."D. |
00000550 20 20 20 20 20 32 2e 44 6f 6e 74 20 75 73 65 20 | 2.Dont use |
00000560 61 6e 79 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 |any line number |
00000570 72 65 66 72 65 6e 63 65 73 20 28 67 6f 74 6f 20 |refrences (goto |
00000580 65 2e 74 2e 63 2e 29 0d 01 2c 47 f4 20 20 20 20 |e.t.c.)..,G. |
00000590 20 20 20 20 20 20 20 20 20 33 2e 52 65 6d 65 6d | 3.Remem|
000005a0 62 65 72 20 74 68 69 73 20 69 73 20 61 20 6c 69 |ber this is a li|
000005b0 62 72 61 72 79 20 61 6e 64 20 69 66 20 79 6f 75 |brary and if you|
000005c0 20 61 72 65 20 6e 6f 74 20 73 68 75 72 65 0d 01 | are not shure..|
000005d0 36 2d f4 20 20 20 20 20 20 20 20 20 20 20 20 20 |6-. |
000005e0 20 20 61 62 6f 75 72 20 6c 69 62 72 61 72 69 65 | abour librarie|
000005f0 73 20 52 2e 54 2e 46 2e 4d 2e 2a 0d 01 40 05 3a |s R.T.F.M.*..@.:|
00000600 0d 01 4a 41 f4 20 2a 20 52 2e 54 2e 46 2e 4d 2e |..JA. * R.T.F.M.|
00000610 20 20 2d 20 20 20 52 65 61 64 20 54 68 65 20 46 | - Read The F|
00000620 2e 2e 2e 2e 2e 20 4d 61 6e 75 61 6c 20 20 20 20 |..... Manual |
00000630 28 63 6f 6d 70 75 74 65 72 20 6a 61 72 67 6f 6e |(computer jargon|
00000640 29 0d 01 54 05 3a 0d 01 5e 1b dd f2 6d 6f 76 65 |)..T.:..^...move|
00000650 66 6f 72 77 61 72 64 28 64 69 73 74 61 6e 63 65 |forward(distance|
00000660 29 0d 01 68 2e d1 3d 30 3a f2 6d 6f 76 65 28 22 |)..h..=0:.move("|
00000670 46 22 29 3a f5 fd 91 3e 28 32 2a 64 69 73 74 61 |F"):...>(2*dista|
00000680 6e 63 65 29 3a f2 6d 6f 76 65 28 22 53 22 29 0d |nce):.move("S").|
00000690 01 72 05 e1 0d 01 7c 05 3a 0d 01 86 18 dd f2 6d |.r....|.:......m|
000006a0 6f 76 65 62 61 63 6b 28 64 69 73 74 61 6e 63 65 |oveback(distance|
000006b0 29 0d 01 90 2e d1 3d 30 3a f2 6d 6f 76 65 28 22 |).....=0:.move("|
000006c0 42 22 29 3a f5 fd 91 3e 28 32 2a 64 69 73 74 61 |B"):...>(2*dista|
000006d0 6e 63 65 29 3a f2 6d 6f 76 65 28 22 53 22 29 0d |nce):.move("S").|
000006e0 01 9a 05 e1 0d 01 a4 05 3a 0d 01 ae 17 dd f2 6d |........:......m|
000006f0 6f 76 65 6c 65 66 74 28 64 65 67 72 65 65 73 29 |oveleft(degrees)|
00000700 0d 01 b8 18 64 67 25 3d 94 28 64 65 67 72 65 65 |....dg%=.(degree|
00000710 73 20 83 20 33 36 30 29 0d 01 c2 18 74 69 25 3d |s . 360)....ti%=|
00000720 28 28 31 34 37 35 2f 33 36 30 29 2a 64 67 25 29 |((1475/360)*dg%)|
00000730 0d 01 cc 25 d1 3d 30 3a f2 6d 6f 76 65 28 22 4c |...%.=0:.move("L|
00000740 22 29 3a f5 fd 91 3e 74 69 25 3a f2 6d 6f 76 65 |"):...>ti%:.move|
00000750 28 22 53 22 29 0d 01 d6 05 e1 0d 01 e0 05 3a 0d |("S").........:.|
00000760 01 ea 18 dd f2 6d 6f 76 65 72 69 67 68 74 28 64 |.....moveright(d|
00000770 65 67 72 65 65 73 29 0d 01 f4 18 64 67 25 3d 94 |egrees)....dg%=.|
00000780 28 64 65 67 72 65 65 73 20 83 20 33 36 30 29 0d |(degrees . 360).|
00000790 01 fe 18 74 69 25 3d 28 28 31 34 37 35 2f 33 36 |...ti%=((1475/36|
000007a0 30 29 2a 64 67 25 29 0d 02 08 25 d1 3d 30 3a f2 |0)*dg%)...%.=0:.|
000007b0 6d 6f 76 65 28 22 52 22 29 3a f5 fd 91 3e 74 69 |move("R"):...>ti|
000007c0 25 3a f2 6d 6f 76 65 28 22 53 22 29 0d 02 12 05 |%:.move("S")....|
000007d0 e1 0d 02 1c 05 3a 0d 02 26 0b dd f2 70 65 6e 75 |.....:..&...penu|
000007e0 70 0d 02 30 05 e1 0d 02 3a 05 3a 0d 02 44 0d dd |p..0....:.:..D..|
000007f0 f2 70 65 6e 64 6f 77 6e 0d 02 4e 05 e1 0d 02 58 |.pendown..N....X|
00000800 05 3a 0d 02 62 17 dd f2 70 65 6e 63 6f 6c 6f 75 |.:..b...pencolou|
00000810 72 28 63 6f 6c 6f 75 72 29 0d 02 6c 05 e1 0d 02 |r(colour)..l....|
00000820 76 05 3a 0d 02 80 44 f4 20 54 68 69 73 20 6e 65 |v.:...D. This ne|
00000830 78 74 20 70 72 6f 63 65 64 75 72 65 20 49 20 61 |xt procedure I a|
00000840 64 64 65 64 20 6d 79 73 65 6c 66 2c 20 61 6e 64 |dded myself, and|
00000850 20 69 73 20 6e 6f 74 20 63 61 6c 6c 65 64 20 64 | is not called d|
00000860 69 72 65 63 74 6c 79 0d 02 8a 40 f4 20 62 79 20 |irectly...@. by |
00000870 21 52 6f 62 6f 74 2c 20 6f 6e 6c 79 20 62 79 20 |!Robot, only by |
00000880 74 68 65 20 6c 69 62 72 61 72 79 20 69 6e 74 65 |the library inte|
00000890 72 6e 61 6c 6c 79 2e 59 6f 75 20 64 6f 6e 74 20 |rnally.You dont |
000008a0 68 61 76 65 20 74 6f 0d 02 94 22 f4 20 6b 65 65 |have to...". kee|
000008b0 70 20 69 74 20 69 6e 20 79 6f 75 72 20 6f 77 6e |p it in your own|
000008c0 20 6c 69 62 72 61 72 79 2e 0d 02 9e 05 3a 0d 02 | library.....:..|
000008d0 a8 0e dd f2 6d 6f 76 65 28 44 24 29 0d 02 b2 12 |....move(D$)....|
000008e0 e7 20 44 24 3d 22 53 22 20 8c 20 41 3d 30 0d 02 |. D$="S" . A=0..|
000008f0 bc 12 e7 20 44 24 3d 22 42 22 20 8c 20 41 3d 33 |... D$="B" . A=3|
00000900 0d 02 c6 12 e7 20 44 24 3d 22 46 22 20 8c 20 41 |..... D$="F" . A|
00000910 3d 36 0d 02 d0 12 e7 20 44 24 3d 22 4c 22 20 8c |=6..... D$="L" .|
00000920 20 41 3d 32 0d 02 da 12 e7 20 44 24 3d 22 52 22 | A=2..... D$="R"|
00000930 20 8c 20 41 3d 37 0d 02 e4 12 e7 20 44 24 3d bd | . A=7..... D$=.|
00000940 31 33 20 8c 20 41 3d 30 0d 02 ee 28 6f 73 62 79 |13 . A=0...(osby|
00000950 74 65 25 3d 36 3a 77 72 69 74 65 62 79 74 65 25 |te%=6:writebyte%|
00000960 3d 31 35 31 3a 6f 66 66 73 65 74 25 3d 26 36 32 |=151:offset%=&62|
00000970 0d 02 f8 31 62 79 74 65 25 3d 41 3a c8 99 20 6f |...1byte%=A:.. o|
00000980 73 62 79 74 65 25 2c 77 72 69 74 65 62 79 74 65 |sbyte%,writebyte|
00000990 25 2c 6f 66 66 73 65 74 25 2c 62 79 74 65 25 3a |%,offset%,byte%:|
000009a0 e1 0d 03 02 05 3a 0d ff |.....:..|
000009a8 
.