home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / cr&cr.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  33 lines
  1. 0 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 'CR/CR.BA-CO by Jon Diercks 1987
  3. 10 CLEAR50:GOSUB29
  4. 11 PRINT@41,"Input END address?";:PRINT@121,"ENTER alone to put it just below HIMEM"
  5. 12 Y="":PRINT@60,;:LINEINPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E-1
  6. 13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB29
  7. 14 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line";:PRINT@104,"Address";
  8. 15 GOSUB24:IFO=0THENPOKEA,K:A=A+1:GOTO15
  9. 16 P=K:GOSUB24:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  10. 17 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO15
  11. 18 SAVEM"cr/cr",B,C,D
  12. 19 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN23
  13. 20 IFU>16THENU=U-16:O=1ELSEO=0
  14. 21 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN23
  15. 22 K=(U-1)*16+V-1:RETURN
  16. 23 BEEP:PRINT@165,"Bad Hex character":END
  17. 24 IFM<N*2+5THEN28
  18. 25 IFL<>RTHENBEEP:PRINT@165,"Checksum failed":END
  19. 26 READY:M=1:GOSUB19:IFK=0THEN18
  20. 27 S=S+1:PRINT@72,S;:PRINT@112,A;:N=K:M=3:GOSUB19:M=5:L=K:GOSUB19:L=K*256+L:R=0
  21. 28 M=M+2:GOSUB19:R=R+K:RETURN
  22. 29 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=487:D=0:RETURN
  23. 100 DATA38271521OD01CD585ACD421F3E083239F621Q401CDK5002185F62B237EFE2ECAI300B7C2H80011U1010604CD69341185F63E0ACDAB5AC2JC00CD62
  24. 101 DATA38271B76C3GE00CDE35A22U601C3M600CD915721QD01CD585ACD4446DA9757D7CA97572185F67EA7C8CDE90F7723C3LB0021S001CD585ACD645DFE
  25. 102 DATA38761B53C2N800E7C3HB01FE57C2MC00E7210C67114AF6CD0366D7AFBECAGE003288F6CD2E11FE0ADAVD00FE85D2VD0032U501114AF62185F6CDC3
  26. 103 DATA3878186521T201CD585A2AU60197474FCDV500FE0DC2SE00233E0ABECASA00CDGB01C3R20023C3R200FE20CAT800FE00C2T9004804233AU501B8C2
  27. 104 DATA385C19R500AFB9CAUF0078912B3DC2U90023CDG301C3R2007EFE1AC0E1C3GE00CD6276C3NE003E0DCD616BDAH1013E0ACD616BD021B160CD585AE1
  28. 105 DATA38D216C3GE0021T201CD585A2AU601CDV500FE2ECAN30123CDV500FE0DC2IC01233E0ABECAK201CDGB01C3K30123CDV500FE20CAI401FE2ECAN301
  29. 106 DATA38E213FE0DCANC012B2B010200CD9F6B2B3E20BECAIC017EFE00CAIC01233E20CDGD01C3IC0123CDV500FE0DC2N301233E0ABECAO901CDGB01C3I4
  30. 107 DATA381C0E0123C3I4010C1B561B7043522E313030202D2076312E301B710D0A0046696C656E616D65003C454E54455220746F20717569743E3A1B4B00
  31. 108 DATA28180A3C533E747269702F3C573E7261703A1B4B000D0A576F726B696E672E2E2E1B4B002E444F00000000
  32. 109 DATA00
  33.