Home » Personal collection » Commodore disks » disk65a_programs_1.d64 » loader1

loader1

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 » Personal collection » Commodore disks » disk65a_programs_1.d64
Filename: loader1
Read OK:
File size: 0741 bytes
Load address: 0801
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    10 PRINTCHR$(147);CHR$(30);"ENTER ALL NUMBERS IN HEX":POKE53280,0:POKE53281,0:GOSUB710
    20 INPUT"COMMAND";CO$
    30 IF CO$="LOADER" THEN 630
    40 IF CO$="INPUT" THEN 180
    50 IF CO$="OUTPUT" THEN 240
    60 IF CO$="END" THEN END
    70 IF CO$="VIEW" THEN 490
    80 IF CO$="POKE" THEN 130
    90 IF CO$<>"RUN" THEN PRINT"MISTAKE":GOTO20
   100 INPUT"BASE ADDRESS";CO$:GOSUB 340:BA=CO
   110 SYS BA
   120 GOTO 20
   130 INPUT"ADDRESS";CO$:GOSUB 340:AD=CO
   140 IF AD>65535 OR AD<0 THEN 130
   150 INPUT"VALUE (IN DECIMAL)";V
   160 IF V>255 OR V<0 THEN 150
   170 POKE AD,V:GOTO 20
   180 INPUT"FILENAME";FO$:FO$="MC-"+FO$
   190 INPUT"BASE ADDRESS";CO$:GOSUB 340:BA=CO
   200 IF BA>65535 OR BA<0 THEN 190
   210 OPEN 1,8,0,FO$:INPUT#1,CO:GOSUB410:PRINT"THIS FILE WAS SAVED AT:";CO$
   220 INPUT#1,VL:IF VL=-1 THEN CLOSE 1:GOTO 20
   230 POKE BA,VL:BA=BA+1:GOTO220
   240 INPUT"FILENAME";FO$:FO$="MC-"+FO$
   250 INPUT"BASE ADDRESS";CO$:GOSUB340:BA=CO
   260 IF BA>65535 OR BA<0 THEN 250
   270 INPUT"FINISH ADDRESS";CO$:GOSUB340:FA=CO
   280 IF FA>65535 THEN 270
   290 IF FA<BA THEN 250
   300 OPEN 1,8,1,FO$:PRINT#1,BA
   310 FORL=BA TO FA
   320 PRINT#1,PEEK(L):NEXT:PRINT#1,-1
   330 CLOSE 1:GOTO 20
   340 V$="0123456789ABCDEF":CO=0
   350 FORD=1TOLEN(CO$)
   360 FORL=1TO16
   370 IF MID$(V$,L+1,1)=MID$(CO$,D,1) THEN 390
   380 NEXT:NEXT:RETURN
   390 CO=CO+((16^(LEN(CO$)-(D)))*L)
   400 NEXT:NEXT:RETURN
   410 IF CO>255 THEN 430
   420 CO$="00"+HEX$(CO):RETURN
   430 CO$=HEX$(INT(CO/256))
   440 CO$=CO$+HEX$(CO-256*INT(CO/256))
   450 RETURN
   490 INPUT"BASE ADDRESS";CO$:GOSUB 340:BA=CO
   500 PRINTCHR$(147);
   510 FORL=BA TO BA+160 STEP 8
   520 CO=L:GOSUB410:PRINTCO$;":";
   530 FOR LO=L TO L+7
   540 CO=PEEK(LO):GOSUB 410:CO$=MID$(CO$,3,2):PRINTCO$;" ";:NEXT
   550 FORLO=L TO L+7:IF PEEK(LO)>127 OR PEEK(LO)<32 THEN PRINT".";:GOTO570
   560 PRINTCHR$(PEEK(LO));
   570 NEXT:PRINT:NEXT:PRINT:PRINT"E-END ;-BACK /-CONTINUE"
   580 GET K$:IF K$="" THEN 580
   590 IF K$="E" THEN 20
   600 IF K$=";" THEN BA=BA-161:GOTO 500
   610 IF K$="/" THEN BA=BA+161:GOTO 500
   620 GOTO 580
   630 INPUT"BASE ADDRESS";CO$:GOSUB 340
   640 GOSUB 410:PRINTCO$;":";:INPUT P$:BA=CO-1
   650 IF P$="END" THEN 20
   660 IF LEN(P$)<>16 THEN 640
   670 FORLO=1 TO 16 STEP 2
   680 CO$=MID$(P$,LO,2):GOSUB 340
   690 BA=BA+1:POKE BA,CO:NEXT:BA=BA+1
   700 CO=BA:GOTO640
   710 DIMHEX$(255):FORR=0TO15
   720 FORX=0 TO 15:BA=(R*16)+X
   730 A=R+48:IF A>57 THEN A=A+7
   740 B=X+48:IF B>57 THEN B=B+7
   750 HEX$(BA)=CHR$(A)+CHR$(B):NEXT
   760 NEXT:RETURN

E
��(147);�(30);"ENTER ALL NUMBERS IN HEX":�53280,0:�53281,0:�710X�"COMMAND";CO$q� CO$�"LOADER" � 630�(� CO$�"INPUT" � 180�2� CO$�"OUTPUT" � 240�<� CO$�"END" � ��F� CO$�"VIEW" � 490�P� CO$�"POKE" � 130	Z� CO$��"RUN" � �"MISTAKE":�20*	d�"BASE ADDRESS";CO$:� 340:BA�CO3	n� BA<	x� 20[	��"ADDRESS";CO$:� 340:AD�COw	�� AD�65535 � AD�0 � 130�	��"VALUE (IN DECIMAL)";V�	�� V�255 � V�0 � 150�	�� AD,V:� 20�	��"FILENAME";FO$:FO$�"MC-"�FO$
��"BASE ADDRESS";CO$:� 340:BA�CO
�� BA�65535 � BA�0 � 190W
�� 1,8,0,FO$:�1,CO:�410:�"THIS FILE WAS SAVED AT:";CO$t
��1,VL:� VL��1 � � 1:� 20�
�� BA,VL:BA�BA�1:�220�
��"FILENAME";FO$:FO$�"MC-"�FO$�
��"BASE ADDRESS";CO$:�340:BA�CO�
� BA�65535 � BA�0 � 250�"FINISH ADDRESS";CO$:�340:FA�CO(� FA�65535 � 270:"� FA�BA � 250P,� 1,8,1,FO$:�1,BA_6�L�BA � FAs@�1,�(L):�:�1,�1�J� 1:� 20�TV$�"0123456789ABCDEF":CO�0�^�D�1��(CO$)�h�L�1�16�r� �(V$,L�1,1)��(CO$,D,1) � 390�|�:�:��CO�CO�((16�(�(CO$)�(D)))�L)��:�:�%�� CO�255 � 430=�CO$�"00"�HEX$(CO):�U�CO$�HEX$(�(CO�256))x�CO$�CO$�HEX$(CO�256��(CO�256))~�����"BASE ADDRESS";CO$:� 340:BA�CO����(147);���L�BA � BA�160 � 8�CO�L:�410:�CO$;":";�� LO�L � L�7
CO��(LO):� 410:CO$��(CO$,3,2):�CO$;" ";:�Q
&�LO�L � L�7:� �(LO)�127 � �(LO)�32 � �".";:�570`
0��(�(LO));�
:�:�:�:�:�"E-END ;-BACK /-CONTINUE"�
D� K$:� K$�"" � 580�
N� K$�"E" � 20�
X� K$�";" � BA�BA�161:� 500�
b� K$�"/" � BA�BA�161:� 500�
l� 580v�"BASE ADDRESS";CO$:� 3407�� 410:�CO$;":";:� P$:BA�CO�1K�� P$�"END" � 20a�� �(P$)��16 � 640t��LO�1 � 16 � 2��CO$��(P$,LO,2):� 340��BA�BA�1:� BA,CO:�:BA�BA�1��CO�BA:�640���HEX$(255):�R�0�15���X�0 � 15:BA�(R�16)�X�A�R�48:� A�57 � A�A�7�B�X�48:� B�57 � B�B�78�HEX$(BA)��(A)��(B):�@��:�
eHJ@..(147);.(30);"enter all numbers in hex":.53280,0:.53281,0:.710@xHT@."command";co$@QH.@. co$."loader" . 630@.H(@. co$."input" . 180@.H2@. co$."output" . 240@.H<@. co$."end" . .@.Hf@. co$."view" . 490@.Hp@. co$."poke" . 130@FIz@. co$.."run" . ."mistake":.20@*ID@."base address";co$:. 340:ba.co@3IN@. ba@<IX@. 20@[I.@."address";co$:. 340:ad.co@WI.@. ad.65535 . ad.0 . 130@.I.@."value (in decimal)";v@.I.@. v.255 . v.0 . 150@.I.@. ad,v:. 20@.I.@."filename";fo$:fo$."mc-".fo$@AJ.@."base address";co$:. 340:ba.co@]J.@. ba.65535 . ba.0 . 190@wJ.@. 1,8,0,fo$:.1,co:.410:."this file was saved at:";co$@TJ.@.1,vl:. vl..1 . . 1:. 20@.J.@. ba,vl:ba.ba.1:.220@.J.@."filename";fo$:fo$."mc-".fo$@.J.@."base address";co$:.340:ba.co@.JDA. ba.65535 . ba.0 . 250@SKNA."finish address";co$:.340:fa.co@(KXA. fa.65535 . 270@:K"A. fa.ba . 250@pK,A. 1,8,1,fo$:.1,ba@.K6A.l.ba . fa@SK@A.1,.(l):.:.1,.1@.KjA. 1:. 20@.KtAv$."0123456789abcdef":co.0@.K.A.d.1..(co$)@.KHA.l.1.16@.KRA. .(v$,l.1,1)..(co$,d,1) . 390@.K.A.:.:.@HL.Aco.co.((16.(.(co$).(d))).l)@RL.A.:.:.@%L.A. co.255 . 430@=L.Aco$."00".hex$(co):.@uL.Aco$.hex$(.(co.256))@XL.Aco$.co$.hex$(co.256..(co.256))@.L.A.@.L.A."base address";co$:. 340:ba.co@.L.A..(147);@.L.A.l.ba . ba.160 . 8@.LHBco.l:.410:.co$;":";@.LRB. lo.l . l.7@]M£Bco..(lo):. 410:co$..(co$,3,2):.co$;" ";:.@qM&B.lo.l . l.7:. .(lo).127 . .(lo).32 . .".";:.570@.M0B..(.(lo));@.M:B.:.:.:.:."e-end ;-back /-continue"@.MdB. k$:. k$."" . 580@.MnB. k$."e" . 20@.MxB. k$.";" . ba.ba.161:. 500@.MBB. k$."/" . ba.ba.161:. 500@.MLB. 580@VNVB."base address";co$:. 340@7N.B. 410:.co$;":";:. p$:ba.co.1@kN.B. p$."end" . 20@AN.B. .(p$)..16 . 640@TN.B.lo.1 . 16 . 2@.N.Bco$..(p$,lo,2):. 340@.N.Bba.ba.1:. ba,co:.:ba.ba.1@.N.Bco.ba:.640@.N.B.hex$(255):.r.0.15@.N.B.x.0 . 15:ba.(r.16).x@EO.Ba.r.48:. a.57 . a.a.7@.O.Bb.x.48:. b.57 . b.b.7@8O.Bhex$(ba)..(a)..(b):.@@O.B.:.@@@
00000000  45 08 0a 00 99 c7 28 31  34 37 29 3b c7 28 33 30  |E.....(147);.(30|
00000010  29 3b 22 45 4e 54 45 52  20 41 4c 4c 20 4e 55 4d  |);"ENTER ALL NUM|
00000020  42 45 52 53 20 49 4e 20  48 45 58 22 3a 97 35 33  |BERS IN HEX":.53|
00000030  32 38 30 2c 30 3a 97 35  33 32 38 31 2c 30 3a 8d  |280,0:.53281,0:.|
00000040  37 31 30 00 58 08 14 00  85 22 43 4f 4d 4d 41 4e  |710.X...."COMMAN|
00000050  44 22 3b 43 4f 24 00 71  08 1e 00 8b 20 43 4f 24  |D";CO$.q.... CO$|
00000060  b2 22 4c 4f 41 44 45 52  22 20 a7 20 36 33 30 00  |."LOADER" . 630.|
00000070  89 08 28 00 8b 20 43 4f  24 b2 22 49 4e 50 55 54  |..(.. CO$."INPUT|
00000080  22 20 a7 20 31 38 30 00  a2 08 32 00 8b 20 43 4f  |" . 180...2.. CO|
00000090  24 b2 22 4f 55 54 50 55  54 22 20 a7 20 32 34 30  |$."OUTPUT" . 240|
000000a0  00 b6 08 3c 00 8b 20 43  4f 24 b2 22 45 4e 44 22  |...<.. CO$."END"|
000000b0  20 a7 20 80 00 cd 08 46  00 8b 20 43 4f 24 b2 22  | . ....F.. CO$."|
000000c0  56 49 45 57 22 20 a7 20  34 39 30 00 e4 08 50 00  |VIEW" . 490...P.|
000000d0  8b 20 43 4f 24 b2 22 50  4f 4b 45 22 20 a7 20 31  |. CO$."POKE" . 1|
000000e0  33 30 00 06 09 5a 00 8b  20 43 4f 24 b3 b1 22 52  |30...Z.. CO$.."R|
000000f0  55 4e 22 20 a7 20 99 22  4d 49 53 54 41 4b 45 22  |UN" . ."MISTAKE"|
00000100  3a 89 32 30 00 2a 09 64  00 85 22 42 41 53 45 20  |:.20.*.d.."BASE |
00000110  41 44 44 52 45 53 53 22  3b 43 4f 24 3a 8d 20 33  |ADDRESS";CO$:. 3|
00000120  34 30 3a 42 41 b2 43 4f  00 33 09 6e 00 9e 20 42  |40:BA.CO.3.n.. B|
00000130  41 00 3c 09 78 00 89 20  32 30 00 5b 09 82 00 85  |A.<.x.. 20.[....|
00000140  22 41 44 44 52 45 53 53  22 3b 43 4f 24 3a 8d 20  |"ADDRESS";CO$:. |
00000150  33 34 30 3a 41 44 b2 43  4f 00 77 09 8c 00 8b 20  |340:AD.CO.w.... |
00000160  41 44 b1 36 35 35 33 35  20 b0 20 41 44 b3 30 20  |AD.65535 . AD.0 |
00000170  a7 20 31 33 30 00 93 09  96 00 85 22 56 41 4c 55  |. 130......"VALU|
00000180  45 20 28 49 4e 20 44 45  43 49 4d 41 4c 29 22 3b  |E (IN DECIMAL)";|
00000190  56 00 ab 09 a0 00 8b 20  56 b1 32 35 35 20 b0 20  |V...... V.255 . |
000001a0  56 b3 30 20 a7 20 31 35  30 00 bb 09 aa 00 97 20  |V.0 . 150...... |
000001b0  41 44 2c 56 3a 89 20 32  30 00 dd 09 b4 00 85 22  |AD,V:. 20......"|
000001c0  46 49 4c 45 4e 41 4d 45  22 3b 46 4f 24 3a 46 4f  |FILENAME";FO$:FO|
000001d0  24 b2 22 4d 43 2d 22 aa  46 4f 24 00 01 0a be 00  |$."MC-".FO$.....|
000001e0  85 22 42 41 53 45 20 41  44 44 52 45 53 53 22 3b  |."BASE ADDRESS";|
000001f0  43 4f 24 3a 8d 20 33 34  30 3a 42 41 b2 43 4f 00  |CO$:. 340:BA.CO.|
00000200  1d 0a c8 00 8b 20 42 41  b1 36 35 35 33 35 20 b0  |..... BA.65535 .|
00000210  20 42 41 b3 30 20 a7 20  31 39 30 00 57 0a d2 00  | BA.0 . 190.W...|
00000220  9f 20 31 2c 38 2c 30 2c  46 4f 24 3a 84 31 2c 43  |. 1,8,0,FO$:.1,C|
00000230  4f 3a 8d 34 31 30 3a 99  22 54 48 49 53 20 46 49  |O:.410:."THIS FI|
00000240  4c 45 20 57 41 53 20 53  41 56 45 44 20 41 54 3a  |LE WAS SAVED AT:|
00000250  22 3b 43 4f 24 00 74 0a  dc 00 84 31 2c 56 4c 3a  |";CO$.t....1,VL:|
00000260  8b 20 56 4c b2 ab 31 20  a7 20 a0 20 31 3a 89 20  |. VL..1 . . 1:. |
00000270  32 30 00 8d 0a e6 00 97  20 42 41 2c 56 4c 3a 42  |20...... BA,VL:B|
00000280  41 b2 42 41 aa 31 3a 89  32 32 30 00 af 0a f0 00  |A.BA.1:.220.....|
00000290  85 22 46 49 4c 45 4e 41  4d 45 22 3b 46 4f 24 3a  |."FILENAME";FO$:|
000002a0  46 4f 24 b2 22 4d 43 2d  22 aa 46 4f 24 00 d2 0a  |FO$."MC-".FO$...|
000002b0  fa 00 85 22 42 41 53 45  20 41 44 44 52 45 53 53  |..."BASE ADDRESS|
000002c0  22 3b 43 4f 24 3a 8d 33  34 30 3a 42 41 b2 43 4f  |";CO$:.340:BA.CO|
000002d0  00 ee 0a 04 01 8b 20 42  41 b1 36 35 35 33 35 20  |...... BA.65535 |
000002e0  b0 20 42 41 b3 30 20 a7  20 32 35 30 00 13 0b 0e  |. BA.0 . 250....|
000002f0  01 85 22 46 49 4e 49 53  48 20 41 44 44 52 45 53  |.."FINISH ADDRES|
00000300  53 22 3b 43 4f 24 3a 8d  33 34 30 3a 46 41 b2 43  |S";CO$:.340:FA.C|
00000310  4f 00 28 0b 18 01 8b 20  46 41 b1 36 35 35 33 35  |O.(.... FA.65535|
00000320  20 a7 20 32 37 30 00 3a  0b 22 01 8b 20 46 41 b3  | . 270.:.".. FA.|
00000330  42 41 20 a7 20 32 35 30  00 50 0b 2c 01 9f 20 31  |BA . 250.P.,.. 1|
00000340  2c 38 2c 31 2c 46 4f 24  3a 98 31 2c 42 41 00 5f  |,8,1,FO$:.1,BA._|
00000350  0b 36 01 81 4c b2 42 41  20 a4 20 46 41 00 73 0b  |.6..L.BA . FA.s.|
00000360  40 01 98 31 2c c2 28 4c  29 3a 82 3a 98 31 2c ab  |@..1,.(L):.:.1,.|
00000370  31 00 80 0b 4a 01 a0 20  31 3a 89 20 32 30 00 9f  |1...J.. 1:. 20..|
00000380  0b 54 01 56 24 b2 22 30  31 32 33 34 35 36 37 38  |.T.V$."012345678|
00000390  39 41 42 43 44 45 46 22  3a 43 4f b2 30 00 af 0b  |9ABCDEF":CO.0...|
000003a0  5e 01 81 44 b2 31 a4 c3  28 43 4f 24 29 00 bb 0b  |^..D.1..(CO$)...|
000003b0  68 01 81 4c b2 31 a4 31  36 00 de 0b 72 01 8b 20  |h..L.1.16...r.. |
000003c0  ca 28 56 24 2c 4c aa 31  2c 31 29 b2 ca 28 43 4f  |.(V$,L.1,1)..(CO|
000003d0  24 2c 44 2c 31 29 20 a7  20 33 39 30 00 e8 0b 7c  |$,D,1) . 390...||
000003e0  01 82 3a 82 3a 8e 00 08  0c 86 01 43 4f b2 43 4f  |..:.:......CO.CO|
000003f0  aa 28 28 31 36 ae 28 c3  28 43 4f 24 29 ab 28 44  |.((16.(.(CO$).(D|
00000400  29 29 29 ac 4c 29 00 12  0c 90 01 82 3a 82 3a 8e  |))).L)......:.:.|
00000410  00 25 0c 9a 01 8b 20 43  4f b1 32 35 35 20 a7 20  |.%.... CO.255 . |
00000420  34 33 30 00 3d 0c a4 01  43 4f 24 b2 22 30 30 22  |430.=...CO$."00"|
00000430  aa 48 45 58 24 28 43 4f  29 3a 8e 00 55 0c ae 01  |.HEX$(CO):..U...|
00000440  43 4f 24 b2 48 45 58 24  28 b5 28 43 4f ad 32 35  |CO$.HEX$(.(CO.25|
00000450  36 29 29 00 78 0c b8 01  43 4f 24 b2 43 4f 24 aa  |6)).x...CO$.CO$.|
00000460  48 45 58 24 28 43 4f ab  32 35 36 ac b5 28 43 4f  |HEX$(CO.256..(CO|
00000470  ad 32 35 36 29 29 00 7e  0c c2 01 8e 00 a2 0c ea  |.256)).~........|
00000480  01 85 22 42 41 53 45 20  41 44 44 52 45 53 53 22  |.."BASE ADDRESS"|
00000490  3b 43 4f 24 3a 8d 20 33  34 30 3a 42 41 b2 43 4f  |;CO$:. 340:BA.CO|
000004a0  00 af 0c f4 01 99 c7 28  31 34 37 29 3b 00 c6 0c  |.......(147);...|
000004b0  fe 01 81 4c b2 42 41 20  a4 20 42 41 aa 31 36 30  |...L.BA . BA.160|
000004c0  20 a9 20 38 00 de 0c 08  02 43 4f b2 4c 3a 8d 34  | . 8.....CO.L:.4|
000004d0  31 30 3a 99 43 4f 24 3b  22 3a 22 3b 00 ef 0c 12  |10:.CO$;":";....|
000004e0  02 81 20 4c 4f b2 4c 20  a4 20 4c aa 37 00 1d 0d  |.. LO.L . L.7...|
000004f0  1c 02 43 4f b2 c2 28 4c  4f 29 3a 8d 20 34 31 30  |..CO..(LO):. 410|
00000500  3a 43 4f 24 b2 ca 28 43  4f 24 2c 33 2c 32 29 3a  |:CO$..(CO$,3,2):|
00000510  99 43 4f 24 3b 22 20 22  3b 3a 82 00 51 0d 26 02  |.CO$;" ";:..Q.&.|
00000520  81 4c 4f b2 4c 20 a4 20  4c aa 37 3a 8b 20 c2 28  |.LO.L . L.7:. .(|
00000530  4c 4f 29 b1 31 32 37 20  b0 20 c2 28 4c 4f 29 b3  |LO).127 . .(LO).|
00000540  33 32 20 a7 20 99 22 2e  22 3b 3a 89 35 37 30 00  |32 . .".";:.570.|
00000550  60 0d 30 02 99 c7 28 c2  28 4c 4f 29 29 3b 00 87  |`.0...(.(LO));..|
00000560  0d 3a 02 82 3a 99 3a 82  3a 99 3a 99 22 45 2d 45  |.:..:.:.:.:."E-E|
00000570  4e 44 20 3b 2d 42 41 43  4b 20 2f 2d 43 4f 4e 54  |ND ;-BACK /-CONT|
00000580  49 4e 55 45 22 00 9e 0d  44 02 a1 20 4b 24 3a 8b  |INUE"...D.. K$:.|
00000590  20 4b 24 b2 22 22 20 a7  20 35 38 30 00 b0 0d 4e  | K$."" . 580...N|
000005a0  02 8b 20 4b 24 b2 22 45  22 20 a7 20 32 30 00 cf  |.. K$."E" . 20..|
000005b0  0d 58 02 8b 20 4b 24 b2  22 3b 22 20 a7 20 42 41  |.X.. K$.";" . BA|
000005c0  b2 42 41 ab 31 36 31 3a  89 20 35 30 30 00 ee 0d  |.BA.161:. 500...|
000005d0  62 02 8b 20 4b 24 b2 22  2f 22 20 a7 20 42 41 b2  |b.. K$."/" . BA.|
000005e0  42 41 aa 31 36 31 3a 89  20 35 30 30 00 f8 0d 6c  |BA.161:. 500...l|
000005f0  02 89 20 35 38 30 00 16  0e 76 02 85 22 42 41 53  |.. 580...v.."BAS|
00000600  45 20 41 44 44 52 45 53  53 22 3b 43 4f 24 3a 8d  |E ADDRESS";CO$:.|
00000610  20 33 34 30 00 37 0e 80  02 8d 20 34 31 30 3a 99  | 340.7.... 410:.|
00000620  43 4f 24 3b 22 3a 22 3b  3a 85 20 50 24 3a 42 41  |CO$;":";:. P$:BA|
00000630  b2 43 4f ab 31 00 4b 0e  8a 02 8b 20 50 24 b2 22  |.CO.1.K.... P$."|
00000640  45 4e 44 22 20 a7 20 32  30 00 61 0e 94 02 8b 20  |END" . 20.a.... |
00000650  c3 28 50 24 29 b3 b1 31  36 20 a7 20 36 34 30 00  |.(P$)..16 . 640.|
00000660  74 0e 9e 02 81 4c 4f b2  31 20 a4 20 31 36 20 a9  |t....LO.1 . 16 .|
00000670  20 32 00 8d 0e a8 02 43  4f 24 b2 ca 28 50 24 2c  | 2.....CO$..(P$,|
00000680  4c 4f 2c 32 29 3a 8d 20  33 34 30 00 ab 0e b2 02  |LO,2):. 340.....|
00000690  42 41 b2 42 41 aa 31 3a  97 20 42 41 2c 43 4f 3a  |BA.BA.1:. BA,CO:|
000006a0  82 3a 42 41 b2 42 41 aa  31 00 ba 0e bc 02 43 4f  |.:BA.BA.1.....CO|
000006b0  b2 42 41 3a 89 36 34 30  00 d1 0e c6 02 86 48 45  |.BA:.640......HE|
000006c0  58 24 28 32 35 35 29 3a  81 52 b2 30 a4 31 35 00  |X$(255):.R.0.15.|
000006d0  eb 0e d0 02 81 58 b2 30  20 a4 20 31 35 3a 42 41  |.....X.0 . 15:BA|
000006e0  b2 28 52 ac 31 36 29 aa  58 00 05 0f da 02 41 b2  |.(R.16).X.....A.|
000006f0  52 aa 34 38 3a 8b 20 41  b1 35 37 20 a7 20 41 b2  |R.48:. A.57 . A.|
00000700  41 aa 37 00 1f 0f e4 02  42 b2 58 aa 34 38 3a 8b  |A.7.....B.X.48:.|
00000710  20 42 b1 35 37 20 a7 20  42 b2 42 aa 37 00 38 0f  | B.57 . B.B.7.8.|
00000720  ee 02 48 45 58 24 28 42  41 29 b2 c7 28 41 29 aa  |..HEX$(BA)..(A).|
00000730  c7 28 42 29 3a 82 00 40  0f f8 02 82 3a 8e 00 00  |.(B):..@....:...|
00000740  00                                                |.|
00000741