0 'GRAPRT - Dr. L. D. Preble [70275,134] - See GRAPRT.DOC for use
1 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=980:D=0
2 F=HIMEM+E:IFF>MAXRAMTHENBEEP:MENU
3 PRINT@42,"Enter end address";HIMEM+E;"-";MAXRAM:PRINT@82,"<ENTER> for current MAXRAM"
4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=MAXRAM-EELSEB=VAL(Y)-E
5 IFB>MAXRAM-EORB<HIMEMTHENBEEP:GOTO4
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
40 SAVEM"GRAPRT",B,C,D:MENU
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=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 DATA38F50EC3T60121000022O10121000022O30122O50122P40101N801CDI50101NC01CDI501CDT3002AO5017CFE14C8CDJ0013E0032OA0132P201210D
101 DATA383313FA22O70106083E0021OC01772305C2K300CDL200CDK301C3I1003AOA01FE04F047210DFA7D906FEB1AFE00CAMC0032OB01CDN6003AOA013C
102 DATA38F01132OA01C3L2003E0032P201CDO8003AP2013CFE06F0C3N8003AP201CDJA0132O9013AOB0121O901A632P30121OC01EB26003AP2016F19EB21
103 DATA384914P3013E00BECAS1003AOA01CDJA0132O9011A21O901B6C3T0003AOA01CDJA012F32O9011A21O901A6EB77C93AP401FE00CAV6003AO301FE00
104 DATA387612C2VB003E0DCD90153AO201FE14CAVB0001NC01CDI5013E0132P4012AO301EB2AO1011922O501CDGA01C92AO3012322O3017DFE28C03E0032
105 DATA388213O3012AO10111A0001922O101C90AFE00C8CD901503C3I501EB210AFA22A4FEC3B08D473E0105F807C3JD013E0032P20121OC01EB26003AP2
106 DATA381C12016F19EB1ACDMB01CD9015CD90153AP2013C32P201FE06F0C3K801E5D521P50116005F197ED1E1C91B4108001B4BE0010000000000000000
107 DATA380B160000000000000000000000000000030C0F30333C3FC0C3CCCFF0F3FCFFE1CDA467C3S302CD4D4F2170EFCDF66DCDFE6D4E6F742048692D52
108 DATA38341565732047726170686963732046696C65210D00C3Q30321SC03CDB479CDLE03C3J602CD4D4FCDFE6D4752415052543A20446973706C617920
109 DATA38330E524C452066696C65732026204570736F6E2044756D700D0A44722E204C2E20442E20507265626C65202837303237352C313334290D0A0A00
110 DATA38671521S503CDL803CD8C6E2B237EFE1ACAQC01FE1BC2JA02237EFE47C2QC01237EFE48C2QC012322RA0322RF032ARA03CD4D4F1100003ARC0332
111 DATA38E917RD031E002B233ARD032F32RD037EDE20FAT002FE00CAO902F5CDQ802F13DC2O002233ARD032F32RD037EDE20FAT002FE00CAMD02F5CDQ802
112 DATA38511EF13DC2PC02C3MD0214C2R3021C7BFE80CAT002D5E521RE037A9657DAS302C610D2S602E1D1C93ARD03A7CC768DE1D1C9E5D5CD038BFE00CA
113 DATA386E19T202D1E1477BFE80CAU4027878FE1FC2V6021E00E5D5CD4D4FD1E1C3R302FE1ECAK503FE1DC2G8033E0032RE03C3K503FE1CC2H5033E1032
114 DATA388B1ARE03C3K503FE09C2I4033ARC032F32RC03C3K503FE0DCAQ601FE20CAQ901FE10CCJ903CD454FC3T002F5C5D5E5CDG300E1D1C1F1C9C3LB02
115 DATA381018CD038BFE0DCAQ601FE20C2K803C3Q901CDF66DCDF654DAQ60178FE01CAQ6010607237EFE2ECAN903FE00CAN90305C2M903362E2336442336
116 DATA38E51B4F2336001170EFD5CD226DD179CD4F6EC0CD4D4F2170EFCDF66D21166FCDF66DC3Q303CD3E4FCD3E4F21037DCDF66DCDF712FE20C2QF03C3
117 DATA1CCA05U2010000FF0000000000001B4146696C653A20005049582E444F0000
118 DATA00