home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / PRO.BYTER.SHK / PRO.BYTER / MESSAGE.DECODER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  17 lines
  1. 40 HEX$ = "0123456789ABCDEF": TEXT : NORMAL : PRINT  CHR$(21): HOME : INVERSE :A$ = ":               :": PRINT A$: PRINT " MESSAGE.DECODER ": PRINT A$: NORMAL 
  2. 41  PRINT : PRINT "(SEE PAGE 69)": VTAB 8:W$ = "": PRINT "NEW MESSAGE: ";: CALL  -657: FOR I = 512 TO 767: IF  PEEK(I) < >141  THEN W$ = W$ + CHR$( PEEK(I) -128): NEXT 
  3. 105  IF   NOT  LEN(W$)  THEN  END 
  4. 107  IF  LEN(W$) >80  THEN W$ =  LEFT$(W$,80): VTAB 8: HTAB 14: PRINT W$;: CALL  -958
  5. 110  VTAB 12: PRINT : PRINT "*B___: ";: FOR I = 1 TO  LEN(W$):X$ =  MID$ (W$,I,1):CO = 1: RESTORE 
  6. 160  READ A$: IF A$ < >X$  AND A$ < >"DONE"  THEN CO = CO +1: GOTO 160
  7. 170  IF A$ = "DONE"  THEN  VTAB 15: PRINT : PRINT  CHR$(7);"SORRY, NO "X$"'S ALLOWED": PRINT "          -": PRINT "ANY KEY:";: GET A$: RUN 
  8. 180  IF CO >14  THEN N = 0: PRINT  MID$ (HEX$,N +1,1);:LE = LE +1: GOSUB 800
  9. 190 N = CO -14 *(CO >14): PRINT  MID$ (HEX$,N +1,1);:LE = LE +1: GOSUB 800: NEXT :BY = BY +1: PRINT "F";: IF LE = 0  THEN  PRINT "0";
  10. 300  PRINT : PRINT : PRINT "("BY" BYTE" CHR$(83 *(I >0));
  11. 310  PRINT ")": VTAB 1: PRINT "ENTER THE BYTES BELOW AT ONE OF THE": PRINT "ADDRESSES LISTED ON PAGE 69.": CALL  -868: PRINT : PRINT "DON'T EXCEED THE NUMBER OF BYTES": PRINT "ALLOTTED FOR THE MESSAGE BEING CHANGED.": VTAB 11: PRINT "]CALL-151  <-(TRACE OVER)"
  12. 320  VTAB 10: END 
  13. 800  IF LE = 2  THEN LE = 0:BY = BY +1: PRINT " ";
  14. 810  RETURN : DATA  A,C,D,E,F,I,L,M,N,O,R,T,U," "
  15. 820  DATA B,G,H,K,P,S,V,W,X,Y,/,(,),.,":",DONE
  16. 999  FOR I = 0 TO 14: FOR J = 0 TO 16  STEP 16: IF I <14  OR J >0  THEN N = 47657 +J +I: HTAB J +1: PRINT N"," PEEK(N) SPC( ( PEEK(N) <100) +( PEEK(N) <10))" [" CHR$( PEEK(N))"]";
  17. 1000  NEXT : PRINT : NEXT