0 'DSKMGR.200 -- Relocating loader for DSKMGR v3.02/200. Copyright J.K. Heilman (1986) and Phil Wheeler [7/17/87]; updated 6/19/88
2 CLEAR256:GOSUB99
3 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> for just below current HIMEM"
4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
5 IFB>=MAXRAM-ETHENBEEP:GOTO4ELSECLEAR256,B:B=HIMEM:GOSUB99
6 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address";
7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7
8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7
10 CLS:PRINT:BEEP:PRINT"Sound?";:GOSUB90
11 IF R=78 THEN POKE B+173,0:POKE B+174,0:POKE B+175,0:POKE B+401,201:POKE B+402,0:POKE B+403,0
12 PRINT"High-Speed (19200 baud)?";:GOSUB90
13 IF R=78 THEN POKE B+362,56
14 PRINT"<ENTER> key for exit?";:GOSUB90
15 IF R=78 THEN 40
16 DD=B+243:GOSUB92
17 POKE B+163,AL:POKE B+164,AH
40 SAVEM"DSKMGR",B,C,D:END
50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
51 IFU>16THENU=U-16:O=1ELSEO=0
52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
53 K=(U-1)*16+V-1:RETURN
55 BEEP:PRINT@165,"Bad character";:END
60 IFM<N*2+5THEN70
61 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";END
62 READY:M=1:GOSUB50:IFK=0THEN10
63 S=S+1:PRINT@70,S;:PRINT@110,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0
70 M=M+2:GOSUB50:R=R+K:RETURN
90 PRINT" (Y or N)";:R$=INPUT$(1):R=ASC(R$)AND223:PRINT R$:RETURN
92 AL=256*(DD/256-INT(DD/256)):AH=INT(DD/256):RETURN
99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=2250:D=0:RETURN
100 DATA38C015CD1D6E21IC08113CEF3E08CD066E21FFFF2265EF233922J508CDIA012AJ508F9CD5E4FAF320AEFCD4D4F066821C9F72231F836FF2305C2J2
101 DATA38F71C00680EC0CDB16C0E80CDB16C0EA0CDB16C7D3D3249F8F5FE2DCAN100CD516DE5214568CDF66DE12C7DFE2EC2L400F1FAN100AF3248F8CDRB
102 DATA38FE1607210F18CD9B4FCDFD9A211001CD9B4F21K201CDF66D21010DCD9B4F21J101CDF66DAF30321EFD000000CD038BDAS100FE0DCARF00FE20DA
103 DATA387B15VB00CAV900CD454FC3P700CAHC00CDNB01CDS301C3HC003E02F521HC002234EFF121R300E52100003922J7083DFAH002CAV3043D3DFAS603
104 DATA384D1ACAV8073D3DFALB07CASA073DCAO4073DC2QD00CDHB01C3A4673E1CF53A48F85FF1D61C01P700C5F8015C6AC5CA7C6A3DCA736AC13DCA6C6A
105 DATA386710C34F6A21IC087EFE4DDA1D19231602C31D1921MA0137C31D1944534B4D47522076332E30322F323030004C697374204C6F61642053617665
106 DATA38CE14205376616C2045726173204B696C6C2046726D74204D656E750039384E31444E4E00262E2B7CB5C2N401C9F5CDS007F121TE014F7E23A7C2
107 DATA38ED0CO4010DC2O401CDF66DC3454F3E03213E02213E01213E04213E05213E06213E07213E08213E09213E0A213E0B213E0C213E0D2AJ708F96FAF
108 DATA38171330B5C93A07EFFE04C821G702CDF66D210173CDF66D210300CDF66DC3E572004F6B20004E5200434D004142004646004145004F4D00575000
109 DATA38B60E485400494F004E4400424600464500204572726F72212000CDK0023E0132K7084FCD4D4FCDMC030614C5CDK603C10E0205C2I102211001CD
110 DATA386C159B4F21Q203CDLE040E02CAH902C3VF04CDN201CDR802210700CDO002CDA08FCDNA0230CD0885CAP7014F21M308CD1985C2P40177230DC2LD
111 DATA38C614023AM308FE12C8FE43C2QC0101314DCDK307CDR302C3N20122K50821K508E57E2386477EF523A7CAPB024F7886230DC2P40247782F57015A
112 DATA38081B5ACDK307C10404E17ECDR5022305C2Q8027A213E0DCD4386DBCFE680C0C3P70121K508CDA08FE5CDUF02CDUF024FCDUF024179A7CATE02CD
113 DATA38C816UF020DC2T702E10404AF30862305C2U3022FBEC2P401C9CDR802CD1985DAPD01C2P4017723C921M308CDS3023AM508A7C9CDK0020E00612E
114 DATA38961A4622LF0821001ACDO002CDVE024F3AM308FE1279C0E6F0CAPA01FE10CAQ001FE40CAQF01FE50CAQ901FE60CAQ601FE70CAR201C3QC01CDGE
115 DATA384D1603AF32N10821M508B6CAN503CDF66D3A07EFF52ANE087C656FCD0B47F1C607FE1EDAN103CD3E4F3E033207EFC9CD3E4F3AO0086F26001180
116 DATA38B41500CD7944CD0B473E30E7214E9CCDF66D211001CD9B4F21Q203CDLE04CAHC00C3VF044E616D65206F6E206469736B3A003A48F821C9F71102
117 DATA383F1700B7CAS203193DC3R903CD8D6EC9CDR00322JB08CDP90478B1CAR801C521Q203CDL604DAT5032AJB08CAUA031170EFC3UF03545D13131301
118 DATA383B12090009CDS306CDG903A7CAGD04CDI307CAHC00CDV706CDGC03A7C2Q3013E01CDT5042AJB08CD8C6EC1AF32J90811K7087E1223130B3AJ908
119 DATA38FA1B3C32J908F578B1CAJ904F1FE80DAI004FEF1E5672E04D5C5CDVB06C1D1E178B1C2H904CDL104C3PA012E02C3V906110F01EBCD9B4FEBCD7C
120 DATA38391E4FCDF66DCDF654DAPD0121P604E52170EF7E4FA7C8FE3BD8FE61DAO504FE7BD2O504E6DF77237EA7C8FE3AC2P00437C9FE20D8C3N8040C0D
121 DATA38CB18C9E5CD8C6ED11AE620C2S3041AE640C2R704E5CD1E06C17D914F7C98470BC93E1A01FFFFBE2303C2RC04C91AE610C2Q00123234E23460303
122 DATA38B31303030303C932K708210101CDO002CDVE02C8C3I5034E616D6520666F722052414D3A0021Q203CDL604DAV304CAV304CDQ606C2R501CDG903
123 DATA383917A7CAQ00121U504CDL604DAGC051170EFC2HE0511K7082146F7CDTF062AKE084C457D32J908CDC62BCAJE05E5D5CDI307D1E1C8CDT5052ANE
124 DATA385D11087C656F22JB08CDGC06D111PA05D522JD082205F5E53E03CDT504210300CDO002CDS00221K5087E23234ECDI103E13AK6084F11K7081A77
125 DATA3827141323E52AJB082B22JB087CB5E1CAP3050DC2N605E52205F5C3LB053C32JA08C3S90532JA0821SF05E53AJ908FE43CAS905DARA052AJB0844
126 DATA388A174D2A05F5CDDA82C3S9052AJD08CD1E0623EB2AFBF4DFC4502CCD622CCDL1043AJA08C3R6003AJ908D644CAB52A3CCACE2A3CC30C2BCDG206
127 DATA38B61EEB2A61F6092261F6EBC9EB2A63F6E5EBCDG206EBE12263F6EBC9CDA882D0CDL104C3Q601CDE15CCD622C2A65F62267F62269F621AAF2010B
128 DATA38CF1800097E3CCALE023DFAI106E53AJ908D644CAN4063CCAL5063CC2R5010E02CDOC062A95F2CDU505CDP5063E80EBE1D51BCDAC2DE1C94FCDOC
129 DATA383113062A63F6CDV205CDP506E523230B0B0B0B0B0B7123703EA0E1C3KC060E01CDOC062A61F6CDG206CDP506E5092B361A3EC0C3N00606002AJB
130 DATA38B9180809444DC9C5E5AF77230B78B1C2P70622FBF4E1C1C91170EF626B0100067E0CFE2ECAS00678B9D87E23A7C2QE063CC93600234E2346C521
131 DATA38F915K708CDTF06362E23C1712370230E0F3620230DC2T706C901T706C50E061AA7C8FE2EC8FE20C81377230DC2U506C1C92E052600CDO002CDVE
132 DATA389A1402C8C3I50346696C65206578697374732E20200050726F636565643F2028592F4E2900CDS00721G50711H407CDF66DEBCDF66DCDF712CD14
133 DATA38F21610FE4EC8FE59C2J307A7C978CDR50279C3R50246696C6520746F2064656C6574653A0021KB07CDL604DALB07CALB07CDQ606C2R501CDG903
134 DATA382316A7CAQ001CDS00721V204CDI907C8CDV706C3PA01CDS00721PF07CDI907CAHC00CDK002210600CDO002CDS002C3PA01464F524D4154207769
135 DATA380B176C6C206572617365206469736B2120003A48F86FCD6D6DC9210F01CD9B4FCD7C4FC9CDS00721H407CDJ00721HC00E5C8CDR003E5AF325AF7
136 DATA38D919CDE15CCD622CE1CDE92BE620C2CE2A7EE640CA0C2BC3B52A21H008E52100003922J708CDR807AF3248F8CDR807CDS603FE01C2R600CDR807
137 DATA3850073A48F82149F83CBEDAG708CAG7083E01C3R60000000000000000000000000000000000000000000000000000000000000000000000000000
138 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
139 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
140 DATA0B00000000000000000000000000
141 DATA00