home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / x-ldr.ba < prev    next >
Text File  |  2006-10-19  |  10KB  |  124 lines
  1. 1 REM Copyright 1986 Sigea Systems, Inc.  All Rights Reserved.
  2. 1'>63`O;jIK@OOC2182<B:8A:=3:=000;:HA:D;J<<1A81@MA0;AB39A:0:::3@I0L3?LCIIK9M38
  3. 1'<90>1I81FJ:CI;7831N:CM3CK;5;3CB90HK>39>@8:K3<DA0IK9M3883CI:BI;CMCBI3539>38:
  4. 1'00:oCN=J=VF28O6`IO5O69C?c80>>D81Nb?7^6=`J;4=2a:?>F34;>1>L506a>=b;B_@J3>04N8
  5. 1'`I3iEKT=?WJ?AL@3F9QH8NOEGHG5KJdBGiG047>NJG8?>l:O`@=iF>?F9`H6iE=61N[>33G6100
  6. 1'K>=`C=K;N5>=`771N=N77`EIiGCb=G=IJEO;<IJ^GI<F8jIGb8<=AJ]O;a>0i>E@F=h;B`>AfF8
  7. 1'iIB0ON<F2[O7<ALjIF[N9c>9K;=c>8K;N=631G7c81iG@?F:b?7oI1?GElH3HF=nJJ>F9mAMb5G
  8. 1'>F=`J2@E8XAJCOO2?6N66N8?>F9jI<n7N:F9jI=S12b?L0118@0o4<:F9o4I1G;:@1jI8bFOiLC
  9. 1':@5jI6bFOiLC0@6<CHjIE1F9i@0bC0iM6i@4bA0iM6N04=9Bb?;AF=c9185?c>8iLH?5?>F9jI<
  10. 1'[JG811c?;C8BS1:8GLjI=M>3:G7jI?=9J??;[F:lA18=48KN8MF8N8[I38MNh>2`O7iNIc6=8G7
  11. 1'jIA:G;jI?O?;KLCVCLb;7=9J??;5OJbA07MOf>3e8OK>=d;;N>HHF=c:Jj0Jb=?WN=>C;jIEb1M
  12. 1';?Jc?8iF5\1:2?K\12b?K[A:2?K[A2b?KAF=>A1jIEnAMj28D6::G8nMBX1N:F9nM>:I;P1N:F9
  13. 1'nM@?A;b>0c6=jO7<9:@G;c:;iF5A09jJ=c>9iK8MN:c?8iK>6AN`O7iKE=9J??;T62c?8j2G5NJ
  14. 1':G8jIA7HA0?;001263m?8;I:i?;FF=c?8j0G4?1jI01@1l80Z?B0?800226=c?8iM;nN3F77CAH
  15. 1'A2H000000000000000800DA8HK5J;5I;F83BI;BM;ALK5I;D834DB3::32@=A00K35M35835J;6
  16. 1'I;<CH0M3EKI0836I;=KK=N;B2@=B80MC>K31I39IA0K39835N;DI;@2@=EH0J;1J;DIK>IA0LC?
  17. 1'LI0H;DM3B;A>39>00:KJ4I;>2@=380K22HK?LK;K10IC583DKKDLI0KC5>C4010@@=KK<JK383C
  18. 1'I;BI;3MC9I3581JD@0L35H;<I;3I90J;HM3CKC9837J;6I;<380K22HK?LK;LI0KC5>CD010DIL
  19. 1'H;@I;381NKKDHI0KC?J;DM;>;C5;A>800@I8@JB019I:BKK3I3BM1083?J;6I;<@80L3@KC5834
  20. 1'KKDI90J;HM3CKC9837J;6I;<D@0HK5J;5I;F83BJ;CKC7K31I35I90LCBLC?2@=D@0HK5J;5I;F
  21. 1'83BHC1LC?I;D3;400:J:DI;=834M;?83DKC?LA0HK5J;5I;F3;B00:LB5KKB83BJ;<J;=83DN35
  22. 1'I;3I35I352@=:00H:GM39KC9:;72@=B80MC>K31I39HA0KK<JK32@=D00KKBKKDKK383<N;CHK>
  23. 1'IA0J;1M;<I;B2@=DH0KC5I;483BI;BI;@M31I35HA0KK<JK32@=@H0I;8JK3M;C83=LC5KKB3;B
  24. 1'00:I:CI3>LC5H90KK2M3BI352@=B80MC>K31I39IA0K39835KK6K;BM312@=A00LC9HK5KKDN;B
  25. 1'IA0K3E3;<00:LB5KKB>CBI10MK?K3>H;?834KC9L10KKBLC7LK53;C00:;A>;A>000000000000
  26. 1'000000;A>;A>F00A1=F3>E9=AC@K39BK5K39E3<F25@BDDJ1829JJ3E;CC3@DB6HK583?810C90
  27. 1'KC53;E6H06K@9JI;@0;A>6I>03A00J000000@@0A2182?010000000000000000`H0k@<?I1c?6
  28. 1'iE7h1:8GJm4DhA:8GJm4F31:8GKm4H3A:8GKm4JoHA8?Em4L0INHF=8:JjOCh128?Jl0OhA28?J
  29. 1'k773128?Kk<43A28?Kn3J<@A?G6c8<FC2a@Ac?;iJ7<E?j5N_IB<G8j60`9B`O8D:6U1:8GDnG0
  30. 1'UA:8GDnG2V1:8GDnH<VA:8GDnH>NA14?HjH<1ANHF=4:Jm4LAN3`O7jN9i?Ea>E`1JYO8hN<>G;
  31. 1'nF8a57jLM`?Ch>A`OAm4LD1JYOF4?@D=Cn91?GG`H4FC2e?5m>51>=c?<k59`?A:FAm4Db?3`A1
  32. 1'=?8=F0>A0mB@l47`9JYO8>F0mAMb5Gf91OGGf0?>G5j5O4=GjFDLF2>G<oM20G610A`G;k3BG>=
  33. 1'nG7k39i0AdG:k3Bo0A8?:LK;_9J]O8DN:8?<@JBoA28?:KJ>FAJ]OFHN:8?<L2E012`O;k3Bk0A
  34. 1'dG:k3Bm0A8?:jF??G5c84FC2gI1?G:c84FC2h>A58>^N=bG6k4Dc;IFC2DF=>G7j5Ob5G211c8J
  35. 1'A=:`5610A?G;`IIk5F_IJ]O8>F8mB@n47WF38?@jHG8KG11NHF=>BJmAMb5G>F=:B2mAIWI28?D
  36. 1'jHBXF=:@Am4O>92`OF@AE`AJ]OJ>F0j5Ob=G_IJ]O8WF2>G@oM20G6LN2c?=k6MjF2c?=iJM8GJ
  37. 1'fG=k;9_9J<G8m??VN=c?>kL8i0A?G:c9Ik5Fg6=c?AiEBLN3fG>k9JVN=c?>BMHc>=c?>BMH[6=
  38. 1'c;NBMHLN3c?>k?@4118G>mBBDN=c:M@AA591c:NiE7?F=eJ6bE7k@@1F=i920118@0mG709N411
  39. 1'`O>GKA_9J;O8_9B`O8kCCVN=c?>kO>09N_IB<G8jIALN3>G>oM20G6>F0nF2`EGk?:G>=nG7k=A
  40. 1'h6Jc?=kDK@F=4??jG8?AN]F=c?<l6;\F=`O6kCCc6Jc?=kDKgA1c?8iE7<N=c?>iM;6>:c?@iOK
  41. 1'LN3c?>k?@0118@0mBB09N`1Bc?8@AAB>3>C<mBJ<A?mBJLN38?>jEAYN3c?6@D:>9:8GFm53011
  42. 1'4?Nm55@01c81JNKRA:8GHm51[N9`1B:G8m51RA2?GH<GOnE=Y914?Do@0@01c81JNK0>=:B6m53
  43. 1'>92`OFE38?F=eJ6bEGkC4nF=c91C0;AF25G>NGH;1B:G;o4I:G;jI:`FOkBK:1:8G;o4IO6=??7
  44. 1'c>8iK8c>8iKEL91c:GBMHYN=c?6iEB_AJ]O8P6:c?>iG;H6=>GDj5O`EGkDA;9:O7;?EEa00C9H
  45. 1'<E?j61DF=`O7E4?0118@0jI=<E?j5N<ALj61I118G>mBB8>9kF3NN=7GDc81iMH8=?kC4DA2b?F
  46. 1'oCK`ADkC4`IGkELAF=891n<><E?m?9e>=b10676eN2i?>c;NiLHGA3EA3jI3;I2jO;1@6iKN193
  47. 1'l>2?G>iI>iKNOA3?G7iI0c?7iO9e6=>AIm?93OE5NJ?G?<@DmAJ^6Ll:;<ALm?92GN?F2[O?j9B
  48. 1'8?Ej;KYN=c?64F;>NJoG?`@3kIKb?1^6=h:;eN38?>EJAYN=c?6kACJ6=`G7kK=ZN=bG7l0I8G;
  49. 1'jI?j>=8G7jICOH12805KM5KLk9Bb?E\6=fG>l0I<E?jIA8>9j:FYN=c?6AANc933O8F?N8>9EK0
  50. 1'YN=>G6m??bEGkLKTA1c?94=2<N=c?>iK8e>2c??iM;]F:c??kKHI62c?>iM;nN=c?7874a>B8??
  51. 1'jE0YN=`O6kCCc?5j1E;I28G;jIA6O;`O18AInEGkO9\6=fG>kO9c=?C9HN6=`G?kC40@N^638?7
  52. 1'j<IYN=c?6kACJ6=bG7kC4nEGkO9\6=fG>kO9c=?C9HZ11c?9kKKI627G>`H8iMHO11`JGkC:e?5
  53. 1'm>5_IJ]O8K6:8?@00FOAIIA34;?E6C`FOl3<MI1c?@m3KKF=8?7nF6>BFjIAl;Ge?EoF=CJF<CN
  54. 1'jIALFAbCIl3<HNBc?@l432ANPN=c?@K;=2N<c;>iKE`?A:FAm4Fb?3WF=c?@iKE1IN`O7l3<:GE
  55. 1'jI=1@1280;1J]O;oINUOJ>G@iAAc5Nl5GiOAc>9l5G[11c?@m3K01N>6=[J=_IBc?8K;=`N0K@;
  56. 1'@AJ]OOc>8K@NQA1OGO6F=_BC`N8l62=6=8?D000jA2[OEkAB<GEm??D>=8?Cj8>YN=c?6l7JN91
  57. 1'c?:iE7<E?jIF?F=c?7iINl631G6c9LiG@56=>GAm?<2GN191dG:iE75>=`77nF3bG@l945>=`77
  58. 1'k91c?9iE7OF3oGA`B3l:3jA:4?E001?FO`B3l:3kIB8?Ej63YN=c?6lK<59N5?NDN:oGAb@6l;1
  59. 1'67NN6:b?Ak1J]OE`11a79iE7PN=b?AkAJ]OEL>:8?Aj95YN=`O6l;ND>=c?Cl<38>9j>JYN=l?6
  60. 1'`OAm305>=`77k11=7EkAJ]OE11N[>2c?6iK8Z>:8?Aj;<XF=:@Am?:X6=`O6l=J;11c?94=2k9J
  61. 1'8?Em?:?4FW>=c?6l>0=63?G7c81iE=Y911GD>D3m??bEGl>BO@4[>=1?68N8dF3c?Am1D0918@0
  62. 1'm?:3A1c?9iE75F=c?Dl@1fA1c?9iE7<E?jIFJ6=`O8iIN2@6l6=c?6l@Kk1JoGE88:j@5YNBc?6
  63. 1'iHE`N0l@1:6:c?BiHE8>0j@LAF3oGCb@1lC@17N?>:oGBb@HlC4:11`O:lJ6991c?9iE7iF=c?6
  64. 1'iK8OF2c?Aj2GGFJc?Bj38RA1c?:iE7OF3c?Aj0GOF38?AjCIYN=c?6j38OF3c?AlHO8>0m55;KN
  65. 1'_A3:11`G:lJ6jA1QGEU>:?7BXF:<GBjIF>11`O:iE7<E?m?<D11c?:iE7iF3c?6lO?9I1NGE`EN
  66. 1'lEJkIJ]OE`6:8OB_CK`6:8?BjC8AF38?Cj:3XF=:@Am?:X6=c?6iK8k6:c?BiK>YI11GDOD0oG7
  67. 1'b@JlG6193fF2c?BiKE4634?Cm57<9:0?;04026=dG8lH609N=AB8?;j7:YN3:G6jIAP01280<92
  68. 1'c?;iG6jA:8OEjA2[OEk1Bb?EY917GD>D3m??bEGlI<1@Lc81iG@?N:>GCjIF`5G:11`O:lJ68KG
  69. 1'`@MlI<c>9iE75F=8?Dm?<b9D<E?m?<kAJ]OEc>0lKEjA:8OEjA2O?EY9B;ODYABc?DlO?HK:9I2
  70. 1'b?EJ6=`G7lME<I:O7;`EElL8<ALm?>jN9;I:A7;8:=m57P1N2GE0KG6I3??AZN:m?C\KJU62`?C
  71. 1'8KG`@5lM58G;jICJ;0;I2b?;<9J]O;`6:<GCm?>c>9iK>YI11GDa<0c?5CCJdG1lNC6ANoCG`8J
  72. 1'hF:8OC`@5lN8M>3<G7jIA8M?b@5iKE`KGlO6P06YI1>GDm??`EGm04QE?193o62EOC4>9000c;N
  73. 1'iF<1931N2c?DiF<c63c?6iINkIJ]OE;N::GDm?:08AgH0;N2?GD`J3iE=59N[>3c?6@B>FIJ<GF
  74. 1'j5BGAJ<GFj5EFHA8?Fj5H19NHF=8:Jj5BT>=[O6k1B<GEjIF<ALj5Nc>9DHJB>=8:2mBK^0A?G8
  75. 1'c85FC2<E?j5NFI1`OFiDAiI28?E0028AIm?5S118GDmBB:F9m?5:GIm?7079
  76. 1
  77. 1'iA<iA?iDFiF3iFGiG3iG9iG>iGJiGNiH3iH8iHAiHFiI5iI:iI?iILiJ1iJ4iK9iK?iL3iL7iL;
  78. 1'iL?iLEiLMiM3iM8iMCiMIiMNiN7iN:iN=iN@iO4iO7iO:iO=iOAiOLj0Cj0Kj10j13j1Ij1Mj20
  79. 1'j2Hj2Lj31j39j3<j3?j3Ej3Hj3Lj3Oj42j45j48j4>j4Bj4Fj4Ij4Mj54j5:j5=j5@jIIjILjIO
  80. 1'jJ5jJ;jJAjJGjJMjK5jK;jKAjKGjL0jL8jL;jL?jLBjLEjLHjLNjM4jM:jM@jMIjN1jN4jN7jN>
  81. 1'jNBjNIjO1jOHjOKk01k06k0Bk13k17k1:k1Bk1Ek1Hk1Kk1Nk21k24k2:k2>k2Dk2Nk34k37k3:
  82. 1'k3=k3@k3Ck3Lk48k4;k4Bk4Ek52k57k5:k5Dk5Gk6<k6?k6Ek73k78k7<k7Dk7Gk7Jk7Mk80k83
  83. 1'k86k89k8<k8?k8Bk8Gk8Jk8Mk90k93k96k9<k9Hk9Kk9Nk:=k:Ek;4k;:k;>k;Ak;Dk;Gk;Lk;O
  84. 1'k<2k<?k<Bk<Ek<Hk<Kk<Nk=1k=6k=9k=<k=?k=Bk=Ek=Hk=Kk=Nk>1k>4k>7k>:k>=k>Hk?8k?;
  85. 1'k?>k?Gk?Mk@9k@>k@Ak@LkA;kAIkB2kB8kB?kBCkBFkBLkC1kC5kC>kCAkCDkCHkCKkCNkD1kD5
  86. 1'kD8kDCkDFkDOkE3kE7kE:kEAkEDkEIkEMkF7kF;kFEkFNkG3kG<kGFkH5kH;kH@kHMkI2kI6kI9
  87. 1'kI<kIBkIGkJ0kJ6kJ9kJ<kJ?kJBkJEkJIkJLkJOkK:kK>kKAkKEkKIkKLkL<kL?kLCkLFkLLkLO
  88. 1'kM2kM5kM8kM;kM>kMAkMDkMJkMMkN0kN3kN7kN:kN=kNGkNJkNMkO4kO7kO<kO?kOBkOEkOHkOK
  89. 1'kOOl02l05l0<l0?l0Bl0Gl0Ml14l18l1Gl1Jl1Ml20l27l2Cl2Il2Ll2Ol34l3=l3Cl3Hl3Kl41
  90. 1'l45l4<l4Bl4El4Il4Ol52l55l5>l69l6<l6Bl6Fl6Il6Ll6Ol72l75l78l7;l7?l7Bl7El7Hl7M
  91. 1'l80l83l88l8;l8>l8Bl8El8Hl8Ll8Ol92l97l9:l9Cl9Fl9Il9Ll9Ol:6l:;l:@l:Dl:Hl:Kl:N
  92. 1'l;2l;6l;9l;<l;?l;Bl;El;Il;Ll<1l<4l<8l<<l<Bl<El<Hl<Kl=1l=4l=7l=:l=@l=Cl=Hl=K
  93. 1'l=Nl>3l>6l>;l>?l>Dl>Jl>Ml?3l?6l?9l?<l??l?Bl?El?Il?Ll?Ol@4l@7l@:l@?l@Bl@El@I
  94. 1'l@Ll@OlA3lA6lA;lA@lAElAHlAKlANlB1lB4lB7lB:lB=lB@lBClBFlBIlBLlBOlC2lC5lC8lC;
  95. 1'lC>lCAlCElCLlCOlD2lD6lD:lD=lD@lDClDGlDJlDMlE0lE3lE6lE;lE>lEBlEHlEKlENlF1lF7
  96. 1'lF:lF=lF@lFClFFlFOlG4lG7lG:lG=lG@lGFlGIlGNlH1lH4lH7lH>lHAlHDlHHlHLlI0lI5lI9
  97. 1'lI?lIBlIElIJlIMlJ3lJ7lJ:lJ=lJClJFlJKlJNlK2lK6lK:lK=lKBlKFlKIlKLlL1lL5lL:lL?
  98. 1'lLLlM2lM9lM=lMBlMFlMJlMMlN1lN4lN?lNHlNMlO0lO3lO9lO=lOBlOElOIm00m09m0>m0Am0D
  99. 1'm0Gm0Jm0Nm11m18m1=m1Bm1Km21m27m2?m2Bm2Fm2Im2Mm3:m3Cm3Im3Lm43m46m4=m4A
  100. 1
  101. 1 MAXFILES=1:ONERRORGOTO19:INPUT"Specify X-TEL load address (Y/N)";Y$:IFINSTR("Nn",Y$)THENCLEAR256,MAXRAM-62960+58923:GOTO3
  102. 2 INPUT"Load X-TEL below address";S:IFS>MAXRAMTHENPRINT"Must be <=";MAXRAM:GOTO2ELSECLEAR256,S-62960+58923
  103. 3 ONERRORGOTO19:DEFINTX,L-N:Y=HIMEM:OPEN"X-TEL"FORINPUTAS1:ONERRORGOTO0:PRINT"Loading...";:VF=499926:RL=58923-Y
  104. 4 LINEINPUT#1,L$:IFL$="1"THEN8ELSEIFLEFT$(L$,2)<>"1'"THEN4
  105. 5 PRINT".";:LP=0:POKEVARPTR(LP),PEEK(VARPTR(L$)+1):POKEVARPTR(LP)+1,PEEK(VARPTR(L$)+2)
  106. 6 FORX=2TOLEN(L$)-1STEP3:NH=PEEK(LP+X)-48:NM=PEEK(LP+X+1)-48:NL=PEEK(LP+X+2)-48
  107. 7 LS=(NM*32AND255)+NL:POKEY,LS:MS=NH*4+NM\8:POKEY+1,MS:Y=Y+2:VF=VF-(MS+LS):NEXT:GOTO4
  108. 8 E=Y:IFVFTHENPRINT"Bad program data.":STOP
  109. 9 IFRLTHENPRINT:PRINT"Relocating...";:VF=209394ELSE15
  110. 10 LINEINPUT#1,L$:IFL$="1"THEN14ELSEIFLEFT$(L$,2)<>"1'"THEN10
  111. 11 PRINT".";:LP=0:POKEVARPTR(LP),PEEK(VARPTR(L$)+1):POKEVARPTR(LP)+1,PEEK(VARPTR(L$)+2)
  112. 12 FORX=2TOLEN(L$)-1STEP3:NH=PEEK(LP+X)-48:NM=PEEK(LP+X+1)-48:NL=PEEK(LP+X+2)-48:LS=(NM*32AND255)+NL:MS=NH*4+NM\8:VF=VF-(MS+LS)
  113. 13 A=LS+256*MS-RL:M=PEEK(A)+256*PEEK(A+1)-RL-65536:POKEA,PEEK(VARPTR(M)):POKEA+1,PEEK(VARPTR(M)+1):NEXT:GOTO10
  114. 14 IFVFTHENPRINT"Bad relocation data.":STOPELSEPRINT:INPUT"Use with PCSG Chipmunk disk (Y/N)";Y$:IFINSTR("Nn",Y$)=0THENPOKEHIMEM+6,254
  115. 15 CLOSE#1:OPEN"X-TEL"FOROUTPUTAS1:FORX=1TO19:PRINT#1,X:NEXT:PRINT#1,"24 IFHIMEM<=";HIMEM;"THENCALL";HIMEM+3:CLOSE#1
  116. 16 QU$=CHR$(34):CR$=CHR$(13):A$="MERGE"+QU$+"X-TEL.DO"+CR$+"SAVE"+QU$+"X-TEL"+CR$+"KILL"+QU$+"X-TEL.DO"+CR$+"RUN"+CR$+CHR$(0)
  117. 17 FORX=1TOLEN(A$):POKE65349+X,ASC(MID$(A$,X)):NEXT:POKE63020,70:POKE63021,255:POKE65451,11:POKE65452,255:POKE65450,1
  118. 18 A$="CALL"+STR$(HIMEM)+CR$+CHR$(0):FORX=1TOLEN(A$):POKEHIMEM+6+X,ASC(MID$(A$,X)):NEXT:SAVEM"X-TEL",HIMEM,E-1,HIMEM+3:END
  119. 19 IFERR=7THENPRINT"Not enough memory for X-TEL.CO!":ENDELSEPRINT"Please rename the file as X-TEL.DO,":PRINT"and then type RUN.":END
  120. 21 ONERRORGOTO22:RUNM"X-TEL"
  121. 22 IFERR=7THENCLEAR256,PEEK(64206)+256*PEEK(64207):GOTO21
  122. 23 IFERR<>52THENPRINT"X-TEL load failure: ";:ERRORERR:END
  123. 25 PRINT"Please restore X-TEL.CO and try again.":END
  124.