Home » Personal collection » Commodore disks » disk50a2_progs1.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 » disk50a2_progs1.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:
- Personal collection » Commodore disks » disk65a_programs_1.d64 » loader1
- Personal collection » Commodore disks » disk50a2_progs1.d64 » loader1
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:�710 X �"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�CO 3 n � BA < x � 20 [ � �"ADDRESS";CO$:� 340:AD�CO w � � 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 � 190 W � � 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 � 250 P ,� 1,8,1,FO$:�1,BA _ 6�L�BA � FA s @�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� 580 v�"BASE ADDRESS";CO$:� 340 7�� 410:�CO$;":";:� P$:BA�CO�1 K�� P$�"END" � 20 a�� �(P$)��16 � 640 t��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�7 8�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
.