1 'VTEMUL.100 by Terry Luke 10 CLEAR50:GOSUB29 11 PRINT@41,"Input END address?":PRINT@121,"ENTER alone to put it just below HIMEM" 12 Y="":PRINT@60,;:LINEINPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E 13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB29 14 A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line":PRINT@104,"Address" 15 GOSUB18:PRINT@112,A:IFO=0THENPOKEA,K:A=A+1:GOTO15 16 P=K:GOSUB18:G=P+256*K+B:P=INT(G/256):Q=G-P*256 17 PRINT@112,A:POKEA,Q:A=A+1:PRINT@112,A:POKEA,P:A=A+1:GOTO15 18 IFMRTHENBEEP:PRINT@133,"Checksum failed":END 20 READY:M=1:GOSUB24 21 IFK=0THENSAVEM"VT100",B,C,D:MENU 22 S=S+1:PRINT@72,S:N=K:M=3:GOSUB24:M=5:L=K:GOSUB24:L=K*256+L:R=0 23 M=M+2:GOSUB24:R=R+K:RETURN 24 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0GOTO28 25 IFU>16THENU=U-16:O=1ELSEO=0 26 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16GOTO28 27 K=(U-1)*16+V-1:RETURN 28 BEEP:PRINT@134,"Bad character":END 29 CLS:DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":E=3370:D=0:RETURN 100 DATA385912CD3142CD694221H200CD585ACD6E42C3PE0220202020565431303020456D756C61746F7220AB2031393837205465727279204C756B652020 101 DATA385B0A2020000000180118013007000000000810182028303840485000000480DBF901015B5343524E5D444F201B5B3F366372202063202020003C 102 DATA385F0E543E657874206F72203C423E61736963007FQB0407QC040DS1041BGB0508QE0409S6040AR6040BS2040CS2040EVC040FG4050023L90628L9 103 DATA38CC0B0629K60637H40538HA053DI2053EI30544I40548M10545S2044DK9055AI50663NF055BO3055CQB043CQB04003FJ40630O30531PD0632PD06 104 DATA38841033PD0634PD0635PD0636PD0637PD0638PD0639PD0667N10641RE0642TB0643V50644QE044FO30548OC054AI6074BK50763I50666OC056DQB 105 DATA38310D043BV00772UA074DJ80C4CPB0C50O5070031JD0637LD0636L90632L90633L90634L90635L90638L90639L9060068M6066CMC060068P0066C 106 DATA386D0DP6060030N20731N20732N20733N20734N20735N20736N20737N20738N20739N20767LA0741S10642TE0643V80644GB074AHF0748J4084BJE 107 DATA388111074CPE0C4DJB0C50O80768R0066CR7066DQB046EM8073BV307003BV30768T6076CTC0741S10642TE0643V80644GB0748J4084CPE0C4DJB0C 108 DATA38280C50O8070030JF0831JF0832JF0833JF0834JF0835JF0836JF0837JF0838JF0839JF0848L20872U70866L2086DQB043BV3070048L20866L208 109 DATA38EE0972U7080000U20A01V10A02G80B04G00B05U90A06V80A03H80B0BI90B07S80B08L10B0000000001N80A02O70A06ND0A08J30A0DJF0A14O20A 110 DATA384B131CL60A1DLB0A1EKC0A1FL10A007FI20A82I80A86OC0AF4OC0A9BP10A9AP60A91PB0A8EQ00A98Q50AB0QA0AA3QF0A7BR40A81R90A97RE0A99 111 DATA38CD1ES30A8AS80A8CSD0A85J90AA1JB0BC6S50BAANF0500609D6AF76BF26CF06DF66EFA6FF170F171F172F173F174F475F976F877F378F50021S6 112 DATA38781702220CFB21QD02220EFBC34651CD2242CD3A1FCD2242CDAC7ECD2242C3685462CAU00BC3U00B21L2001153FD011E00CDE66BCDP606CDR706 113 DATA380912CDG40521L9001193FC0609CD4225CD0F222322L3002BEB22L500EBDAVF02018207CD6D6BDAS90B0E082AL3002B3E2006F0CD0B4F0DC2G503 114 DATA384C11772377AF323DF621MF03222CFD2AL3002234FDE511000519222EFDE111300719222AFD2B2236FD115000192238FD06010E01CDRF033E2732 115 DATA38DD1820FDCDIC09CD6D6DC2L903CDU303C3KD03CD7E6DA7CAKD03FE20DAMF04FE7FD2MF042A2CFDE5C9CDN503C3KD03C3N8032A2AFD591D160019 116 DATA385B19C3O30377F53A20FDB9D2PF03C6143220FDCDJ7093A20FD3DCDIC09F1C3QA03CDIC09CD3F42F1CDUD03E70C79FE51DAU303C3IA040E010478 117 DATA3880193A3EFDB8DAU40BCDJ7093E273220FDCDIC09CDJ7042AL300118007197811B0FF193DC2T803222AFDCDUE0BC5CDU509C1C9C9C3V103C9E123 118 DATA383E18E52129FD3E14BEDAVC0334C93E0077C3L10BF5C52A2AFD114F0019E5D12B3E5091CAHA044F0600CDE66BC10DCDRC090C3A20FDCDIC09F1C3 119 DATA38B916N8030E503E4F3220FDCDIC09C3U3033A41FDB8CAK104D2L704323FFDAF32H20C3A40FDB8DAM404323EFDAF32V50BC93E01323FFD3EC932H2 120 DATA384B150CC3K8043E18323EFD3EC932V50BC921NB04222CFD21O1002252FD2A52FDBECAQ1042323233435C2NE04FE20DAP204CDN50321MF03222CFD 121 DATA38E718C3KD03CDHF0DC3KD03235E235621P204E5D5C9C9E7C90DC2R1080CC3R1083A3DFDA7CAI405CDR403C905CDR403C9160A2148FD7EB9CAT304 122 DATA38C517D2TB042315CATF04C3SB044FC3QD080E50C3QD08E521ND02BECAV60423233435CAV804C3U804237EE1C3O303C921U40422O103C921O30322 123 DATA383B18O103C921Q3002252FDC3PB046069223AFDC92A3AFD444DC3QA0800C9043A3EFDB8DAJ805CDSA033E08B8D2K205C3JF05213EFD46CDV50BCD 124 DATA382215J7093A20FDCDIC09C9053A3FFDB8CAL405D2LA05CDSA03C3JF0504CDH20CC3JF0559160A2148FD7EBBC8DAN9051573235E777B2315C2N005 125 DATA388416C92315C2M705C9E1C3S60221T4002252FDC3PB0421MF03222CFDE1C3JE032A2AFDE5114F0019D1CDGB06CDRC09C3HE062A2AFDE559160019 126 DATA3899152BEBE1D5114F0019D1CDGB06CDRC09C3HE06CDQ8053E18B8CAHB062AL300EB2A2AFD2BCDGB06C3HB062A2AFDE5591D160019D1CDGB06CDRC 127 DATA38FC1109C3HE063E01B8CAG5062A2AFD11500019E52AL300117F0719D1CDGB06CDT905C3HB06C50E20CD1800712BCAH906C3GE06C1C9CDJ7093A20 128 DATA388916FDCDIC09C9160521M2007ECD326E15C823C3IA0621I9012252FDC3PB0421K5012252FDC3PB04CD7E6DFE30CAL4063EC932VC04C9AF32VC04 129 DATA389717C9CD7E6DC921KC012252FDC3PB043E4F323CFDC9AF323CFDC959160A2148FD7EBBCAO2062315C2N706C9237E2B772315C2O2062B3E5077C9 130 DATA384F1321R403C3P90621IA0422R203C921L3012252FDD6303225FD3E013223FDC3PB0421G20422N603C921N80322N603C9CDU107CDN2087894213F 131 DATA38A51BFDDAT206F596D2T606F146C3L405F147C3L405CDU107CDN2087884213EFD6E2CBDDAV1064505C3IC0547C3IC05CDU107CDN2087984FE50DA 132 DATA388E16G7070E50C3R1084FC3R108CDN2087994CAH607D2HB070E01C3R1084FC3R1083A25FDA7C2IA07CDS205C91602BAC2J707CDUC05CDS205C916 133 DATA38211901BACCUC05C93A25FDA7C2K907CDQ805C91602BAC2L307CDP605C91601BACCT905C93E502148FD160A772315C2M107C93A25FDFE06C0CDO2 134 DATA3847180BC921Q2012252FDD6303226FD3E023223FDC3PB04CDU107C5CDN2087C3225FD06002A2AFD2B09E5D14F093E5091CARF07D2Q50781C1C591 135 DATA38C516CARF07D2R8073E50913C3225FDC3RF073C4F0600CDDB6B3A25FD2A2AFD114F00190E20712B3DC2SB07C1CDHB06C93E01323DFDC9AF323DFD 136 DATA382519C93E013225FD3223FDC9CDU107C3I708CDU10721VF072252FD222CFDC3PB04FE72CAI708FE48CAJ408FE66CAJ408D6303227FD3E013224FD 137 DATA38651521NB04222CFD21S4012252FDC3I60D3E183227FD3E013224FDC3U7083E013227FD3224FDC3L20821V2012252FDD6303228FD3E023224FDC3 138 DATA389015PB04CDN2083E18BCDCMC08CDOD082C2DCAJ4083E50BDDCMF08C3Q8082618C92E50C93A23FD573A25FD15CAOB08571E0AAF821DC2O108573A 139 DATA38451B26FD8267C93A24FD573A27FD15CAQ608571E0AAF821DC2PC08573A28FD826FC9E5C1CDSA03AF3220FD3E27B9D2RC08C614C3R308FE63C2S3 140 DATA386C1A08DE142120FD563220FDC5F5FE27C2T2080DBAC2TC08CDRC09C3TF08CDJ709F1C10DCDIC090CC9C5CDN208CDOD087DC1FE00CAI708C5223E 141 DATA386719FD2240FDE57D94CDMC0C2242FDEBE1D53E19952AL300E5CDMC0C11B0FF19D1192234FDD1192B2236FD115000192238FDC1C3OC05DE275779 142 DATA382215926768CD7C42C9CDU903C5CD2D42CD3F42CD4E42C13E08B8DAL5092AL30011000519C3M5092AL300118007197811B0FF193DC2M009222EFD 143 DATA3860162121FD3E0877CDN409C3OA09791E28FE3CD2O5091E14FE28D2O5091E007B3222FDC9C53A22FD4F2121FD462A2EFD11B0FF19C501500009C1 144 DATA38781605C2PA0909C506287EE72305C2Q809C12121FD35C2P209C1CD4942C9C5CD4942CD4E42C13E01CDJ109CDN4093A22FDC54F06002A2AFD0906 145 DATA386219287EE72305C2T909C1CD4942C9CD4272C8E1C1C5E5DAVE09FE20DAG40AFE7AD2GA0ACD326EC921VC01C3GD0A21HE02C3GD0A21JD02BECAHC 146 DATA3876170A2323233435C2GD0AC3VA09235E2356D5C93E08CD326EC9C90032UD033EE132U903C93E7FCD326EC93E01CD326EC9CD326E3A3DFDA7C83E 147 DATA3857170AC3VA093E41C3LD0A3E42C3LD0A3E43C3LD0A3E44F53E1BCD326E3E5BCD326E3A3CFD3C3DCAN30ACD326EF1CD326EC93E50C3T20A3E51C3 148 DATA38131AT20A3E52C3T20A3E53C3T20A3E71C3T20A3E72C3T20A3E73C3T20A3E74C3T20A3E75C3T20A3E76C3T20A3E77C3T20A3E78C3T20A3E79C3T2 149 DATA3818160A3E70C3T20A3E6EC3T20A3E6CC3T20A3E6DC3T20A3E4DC3T20AF53E1BCD326E3E4FCD326EF1CD326EC926082E01C3GC0B2AL7002E28C3GC 150 DATA38330E0B26102E01C3GC0B2AL7002E3CC3GC0B2AL7002E01C3GC0B26182E0122L700444DCD1E6ECDJ709C92AL7003E0484FE19DAI50B3E1867C3GC 151 DATA38C2170B3EC932U90332UD03CDUE0BCDHB06CD0B6EC93A42FF3C3DCAKB0BAF3242FFCD6276C93EAF3242FFC9C5210801CD7C4221M700CD91572108 152 DATA384A1502CD7C42C168C52600CDD439210805CD7C42C169C52600CDD439C13A20FDCDIC09C9CDL10B2119FF1154FD3E1B12133E5B12137E1223137E 153 DATA38B714FE20CAPF0B121323233E3B12137E1213237EFE20CAR10B12133E521213AF122154FD7EFE00C8CD326E23C3RA0BCD3142C1216854E521TC0B 154 DATA38F319E52AL3002BEB2AL500CDBE1FCD4442C9E1C368543A3EFD47CDV50BC3RF03602E0122L700C900C52A42FDE5C12A38FDEB2A36FDCDE66B3E20 155 DATA38051A06502A34FDCD0B4FC1C900C52A42FDE5C12A34FDE511500019D1CDDB6B3E2006502A36FD23222AFDCD0B4FC1CDUE0BC9CDU107C5CDN2087C 156 DATA3898153225FD4FF52A2AFD11B0FF3DCAL30C19C3KB0C2BE52A2AFD114F0019E53A3EFD3C9091CAO20CCDMC0CC3N80C210000115000193DC2N20CC9 157 DATA38B01BE5C1D1E1CDE66BC3O40CD1E1F12A34FDE5115000193DC2OC0C2BD1C1CDGB06CDHB06C9CDU107C5CDN2087CF52A34FD115000193DC2QA0CE5 158 DATA38301A3A3EFD90CAT00C4F115000210000190DC2RE0C444D2A34FDEBE1CDDB6BC3T10CE1F12A2AFD11B0FFE53DCAU10C19C3T90CEBE1D5114F0019 159 DATA38D619D1CDGB06C1CDHB06C9DBBBE606FE02C0C52A36FD233E013275F60E18C5CD22420650CDE01B1160FF19C10DC2G40DCD2242C1AF3275F6C9E1 160 DATA0B7906D1E5CDU303C9E5C3PB0400 161 DATA00