0 '"TEL101.LDR -- Creates TEL101.CO an machine language terminal program with DIRACC, Splitscreen and Macros 1 'Original code by, Hugo Ferreyra, James Yi and Jon Diercks. Phil Wheeler -- 71266,125 [11/27/87] 2 GOSUB99 3 PRINT@42,"Enter end address";:PRINT@82," 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 40 SAVEM"TEL101",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 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 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=1823:D=11:RETURN 100 DATA381F18E12CCD632CCD3142C3U702CD444221A451CDA542C3M700CD294221A451CD7C5ACD535D21H7002252F6217C51CD9157CD4446D7A7CAI00011 101 DATA384914K100CDA76CCAH700C953544154M0005445524DT40243414C4CS90046494E44TE004D454E559757FF2BD73C3DC2O700215BF606057EE72305 102 DATA38281AC2MC003E2CE73A2BF60F3E3298E721E751CDB127C3I000DAP800FE2CCAQ400CDE90FFE4DC2H70023CDE617CDCB6E2BD7A7CAI000CF2CCD2E 103 DATA38291811FE14CAR400D60AC2H7003C322BF6C3I000214452CD585AD1CDH501CAH700EBF637E5214452DC585AE1CDRE01DAH700C2I000C3U70297CD 104 DATA38CD1CB15DE5CDA65ACAH700CDE35AEBE1CD3F5CD2I000E5D5CDC55DCDH501C4I301CD2242CD7F5CCAI000FE43CARA00D1CD6D5CE1C3UE00CDJ901 105 DATA38811CC8E7FE3A13C2H501C3JF01CDJ901C8FE3CCAJ401FE3AC8E713C3I301E73E3EE7C9CD745C1B1AC8FE1ACAH700C9DBBAE67FD3BAC9CDM901CD 106 DATA38241FU201DBBAF680D3BAC93AAEFAF601C3ME01CDK5013E03C3ME013AAEFAE60132AEFAD3A837C9DBBBE610CAOA01CDM101CD9F72D8CDEF6EC2NF 107 DATA38741701C9CDL901CDK501000000CDNF01D83E05CDQ701CDM101A7C9AF3E05C4QB013DC2Q4010EC8CDR701CDR7010DC2QD0106AC05C2R901C9DBBA 108 DATA38141FF5F608D3BACDUA01C1F578E60847DBBAE6F7B0D3BAF1D0CDKC01CDL9013E03CDQ7013AAEFAE602C3ME01AF32AEFACDL201CDL901CDQB01CD 109 DATA38581AM101CDM901CDQ1012BCD9F72D8E5EBCD745C1B1AE1CAIF02FE1ACAIF02D7CAIF02F5DCPB02F1DAG102FE3C37CAIF02FE3DCCQ101C3G102F5 110 DATA381B1D3A2BF60FD4QB01F1D2KC013A5BF6FE4D37C0E5215CF6A7CDE6173E04CDQ701E1CDN501D8CDQ004CDP702C8FE3EC8FE3DCAN802FE5ECAOE02 111 DATA380E1DFE3FCANE02FE21CCP702C8CD326EAF3CCCQ101C3L402CDP702C8CD7E6DD8E7BEC2O202C3L402CDP702C8E61FC3N302237EA7C9E7F3E60F4F 112 DATA383616C2Q5020E0A3A2BF60F111C16D2R202114024CDL201CDR7011DC2R502CDK501CDR70115C2RF020DC2Q502FB3A2BF6E6013CC3Q701215AF6D7 113 DATA38D01BD45734F5CDE617F13FDCN501DAM6053E403250F6327BF6AF32HE0732C2FA32C3FACDD345214354CD7C5ACD4455CD5655CD6255CDA842CD49 114 DATA38701B42CD5D5D21NB032252F63A42FFA7CAIC033A40FF21D9F7AE0FDC6255CDDB13CAL203CDCB12DAO803473A58F6A778CC444BFE80D4NE05F5CD 115 DATA38E319LA06F1A7C4326EDAME03CD6D6DCAH103CD7E6DDAH103E7473A59F6A778C4554BCDV204C3H103AF3240FFCD9F72DAN203C3H103CD2942AF32 116 DATA38001759F6CD5655C3H1035F16FF21Q90319197E23666F11H103D5E9QF03QB04SA033E555055SC05TB05KB05FF32C9FF34C93A3DF6B7CA23553A99 117 DATA387C1AFF1FD2235521HE07347E1FD2AB423FC3N40621HC052252F6E53AC2FAA7C0CD4621215157CD9157CD3E46D7A7C832C6FACDFA21CD0B4CC0CD 118 DATA38341D8F20217C57CA9157EBE3E5210C67CD9157CD4446D8D7A73E0132C3FA3220F9CAIA04CD2E11FE0AD8FE85D02194F82292F83222F932C3FAF1 119 DATA38FE1FD101F1E1D5E5CD9E5AE1D13AC3FA3DCALA04D5EB2A92F8EBDFD1C2LA04CDDF677AA33CC2L7042A92F8361A232292F82194F87EFE1AFF36CA 120 DATA38AF1B6C56FE0AC2N3043A5AF6A7C2N3043AC6FAFE0D7E32C6FACAO004CD326ECDQ00423CDDB13CAJ304CDCB12FE03CAP904FE13CCCB12FE03C2J3 121 DATA381C1F04AF32C3FAC39E5ACD6D6DC8CD7E6DE7C3Q004CD46213AC2FAEEFF32C2FACAUC0421GF052252F6E5216057CD9157CD3E46D7A7C832C6FAF1 122 DATA38581DE5CD0622DAU40422C4FACD2D6BF1CD4A63C39E5AEBCDBF1FE1C3T004CD9E5AC383634F3AC2FAA779C8CDIB05C8D2G505CDG5053E0A2AC4FA 123 DATA382A1CCD966322C4FAD0AF32C2FACD9E5A216857C3HF05215957CD9157217157CDB127C3H1034FA7C8FE1AC8FE7FC8FE0AC2JE053AC6FAFE0D7932 124 DATA38691CC6FAC8FE0D373FC0A737C9218657CD9157CD3E46D7CDE90FFE59CAM605217157CD9157C3H103AF3250F66F6722C2FACDCB6ECD4E42CDKC01 125 DATA38F01BCD7063C3GB00F511R2053E0ACDAB5ACAQC05CDE35AF14F7EFE1ACAQD05B923C2OF057EFE1ACAR005FE80D2R005CD326E23C3PA05F1CD6276 126 DATA381217AFC9584D444D41432E444F003A99FF1FD0C3SC053A99FF1FD0C3TB05CDH606CD7F6C2100002252F6C34F6CCDH606CD224221V1052252F621 127 DATA387515225ECD7C5AAF3250F6C42942CD535D21155ECDB127CD3E46D7CAG000CD0622E521000022E7F63E0121G000C3715FCD314221ID06CDB1272E 128 DATA38E512000EC0CD3A1FCD2242CDAC7EC91B70444952414343203130302020436F707972696768742031393835204875676F2046657272657972611B 129 DATA3839157100473A3DF6B7C82AHE077D1FD05C781600FE0DCAN406FE15C2O90621V6060627E536202305C2NA06E17832HF07C3T60621V60619FE08C2 130 DATA381514PB061DF836202B7BC3O306FE09C2T0060E083E20CDQE060DC2Q206C3T60677237B3CFE27D2RC065F32HF07C921V606545D2306267E122313 131 DATA38971305C2S4062B1E26C9FE20D8CDQE0636E92A39F6E52108012239F6CD4E42AF32HD0721V606CDA211E12239F6C3494200000000000000000000 132 DATA2000000000000000000000000000000000000000000000000000000000000000000000 133 DATA00