0 'PC2PRN 1 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=725:D=0 2 F=HIMEM+E:IFF>=MAXRAMTHENBEEP:MENU 3 PRINT@42,"Enter end address";HIMEM+E;"-";MAXRAM-1:PRINT@82," for just below MAXRAM" 4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=MAXRAM-E-1ELSEB=VAL(Y)-E 5 IFB>=MAXRAM-EORB16THENU=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 IFMRTHENBEEP:PRINT@165,"Checksum fail";END 62 READY:M=1:GOSUB50:IFK=0THEN40 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 100 DATA3877163E0CE7CD3F42CD326FCDBB5237211C08CDA66E11T30221FCF50603CD422521SC0211FCF50603F3CD4225FBCDL0013E0132T002CDP4013E01 101 DATA38581A32SF02CDRB01CDU201CDBA442A39F6E526243A3BF66F2239F621S702CDI802E1CDJ002CD4272CAT400DAN500F5CD326ECD6942F1CDG901CD 102 DATA38811E6D42C3T400FE07C2P100CD4442CDCB6E3E0CE721T30211FCF50603F3CD4225FBC9B7C2PD00F3DBBAEE80C3Q700FE01C2QD00F3DBBAEE40D3 103 DATA380B1BBAFBC3T400FE02C2S2003AT002E601EE0132T002CDP401C3T400FE03C2T4003ASF02E601EE0132SF02CDRB01DBBB4F3AT102A9E630C4U201 104 DATA385B1BDBBA4F3AT202A9E6C0C4L001CD6D6DCALB00CDP202F5CDG901F14F3AT002A7CALB0079CD3F6DC3LB004F3ASF02B779C8FE7FC2H7013EFFFE 105 DATA38EA1920D2I501F53E5ECDG901F1C640F5CDBA44F12A39F6E5E7CD6D422A39F63A3BF6BDC2JE012E01E32CBDC2K6012E012239F63E20E7E1C3J002 106 DATA38201ACDBA442A39F6E5DBBAE6C032T202F526013A3BF66F2239F6F107F5DAN101CD694221QF02CDI802CD6D423E06323AF6F107DAO701CD694221 107 DATA385818R302CDI802CD6D42E1C3J002CDBA442A39F6E5260B3A3BF66F2239F63AT002A7CAQE01CD694221R702CDI802CD6D42E1C3J002CDBA442A39 108 DATA38A118F6E526103A3BF66F2239F63ASF02A7CAT501CD694221RB02CDI802CD6D42E1C3J0022A39F6E5CDBA44DBBBE63032T102070707F526153A3B 109 DATA388E18F66F2239F6F1F5DAG502CD694221RF02CDI802CD6D423E1A323AF6F107DAHB02CD694221S302CDI802CD6D42E1C3J0027EB7C8E723C3I802 110 DATA38E2212239F6252D22F4FFCDAF44C9E3D5C5F521F771E5DBC8218DFFA64FDBD8E60E472186FF7EFE40C8FE28D4LF02C3E76DDBBAE6C0C03C328AFF 111 DATA385821DBBAF6C0D3BA3A42FFA7C8C50E13C33A6E3A8AFF3DC0328AFFDBBAE63FD3BA3A42FFA7C8C50E11C33A6EE5D5C521F871E52186FFCD9F72D8 112 DATA36D10FCD6D6DCAPC02FE03DCN902F3C3986D52545300445452004C5054004C43440044535200435453004D454E5500C3JC0200000000000000 113 DATA00