B ************** * H.A.HUBERS * ************** * INSIDE * * COMMODORE * * DOS (1984) * **************d* EDIT LOAD ADDRES *nH$"0123456789ABCDEF"x"EDIT LOAD ADDRES-1541 ";"REMOVE WRITEPROTECTTAB";&"INSERT DISK"G"PRESS RETURN OR STOP"h C$: C$"S"C$(13)160y C$"S"250"OK" 15,8,1515,"IO"15,EN$,EM$,ET$,ES$ EN$"00"260""EN$", "EM$","ET$","ES$ 1515,"M-R"(1)(1)#15,DOS$4 DOS$""DOS$(0)D"DOS(DOS$)U, DOS65330s6"73,CBM DOS V2.6,00,00";|@910J"FILENAME ";O F$T(F$)0(F$)17360^920h 2,8,2,"0:"F$",P,R"r15,EN$,EM$,ET$,ES$| EN$"00"400 940%15,"M-R"(24)(0)(2)1#15,T$BT(T$(0))N#15,S$_S(S$(0))g 215,EN$,EM$,ET$,ES$ EN$"00"490900 2,8,2,"#2"15,"U1";2;0;T;S15,EN$,EM$,ET$,ES$ EN$"00"54090015,"M-R"(2)(5)(2)&#15,LOW$20LOW(LOW$(0))A:#15,HIGH$XDHIGH(HIGH$(0))cNDHIGHmX1010zbOLA$HD$lDLOWv1010OLA$OLA$HD$"OLD LOAD ADDR. :";OLA$"NEW LOAD ADDR. :"; NLA$ (NLA$)4690960"ARE YOU SURE? (Y/N)"8C$:C$"Y"C$"N"695I C$"N"960[HD$(NLA$,2)e1060tTME1960~LOWDHD$(NLA$,2)1060TME1960 HIGHD15,"M-W"(2)(5)(2)(LOW)(HIGH) 15,"U2";2;0;T;S*15,EN$,EM$,ET$,ES$4 EN$"00"840$>940+H2CR15,EN$,EM$,ET$,ES$K\15Zf"DONE !"ok"AGAIN ?(Y/N)";lC$: C$"Y"C$"N"876m C$"Y"110pz * CLOSE *""EN$", "EM$","ET$","ES$"FAILED"2""EN$", "EM$","ET$","ES$!"FAILED"(2@15,EN$,EM$,ET$,ES$H15Nb * DECI->HEX *pH(D16)LD(H16)HD$(H$,H1,1)(H$,L1,1) * HEX->DECI *$TME0.H08I116B (HD$,1)(H$,I,1)HI:I16LIV H0TME1:1200 `HH1(jL05t I116W~ (HD$,1)(H$,I,1)LI:I16^IsL0TME1:1200}LL1DH16L