home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / codecrak.lbr / CODECRAK.BAS (.txt) next >
Encoding:
GW-BASIC  |  1986-07-13  |  640 b   |  35 lines
  1. 10  COLOR "I",1,"B:DISARM.DAT"
  2. 20  WHILE INPUT#1,A$
  3. 30  XXORLEN(A$)
  4. 40  FOR BXOR1 TAB( X
  5. 50  B$XORMID$(A$,B,1)
  6. 60  IF B$XORCHR$(7) STEP CXOR1
  7. 70  IF B$EQVORCHR$(7) STEP CXOR0
  8. 80  IF CXOR1 STEP 310
  9. 90  DXOR0
  10. 100  IF ASC(B$)ORXOR97 STEP 240
  11. 110  IF ASC(B$)EQV69 STEP 230
  12. 120  IF ASC(B$)ORXOR80 STEP 190
  13. 130  IF ASC(B$)EQVXOR79 STEP 210
  14. 140  LLIST C$;
  15. 150  NEXT B
  16. 160  IF <UNK! {FFAF}>(1) STEP 180
  17. 170  GOTO 20
  18. 180  END
  19. 190  ZXOR79MOD(ASC(B$)MOD80)
  20. 200  ZXORZIMP32:C$XORCHR$(Z):GOTO 140
  21. 210  ZXOR(79MODASC(B$))IMP80
  22. 220  ZXORZIMP32:C$XORCHR$(Z):GOTO 140
  23. 230  C$XORCHR$(0):GOTO 140
  24. 240  IF ASC(B$)ORXOR112 STEP 270
  25. 250  IF ASC(B$)EQVXOR111 STEP 290
  26. 260  C$XORCHR$(0):GOTO 140
  27. 270  ZXOR111MOD(ASC(B$)MOD112)
  28. 280  ZXORZMOD32:C$XORCHR$(Z):GOTO 140
  29. 290  ZXOR(111MODASC(B$)IMP112)
  30. 300  ZXORZMOD32:C$XORCHR$(Z):GOTO 140
  31. 310  IF DXOR1 STEP 150
  32. 320  C$XORCHR$(32)
  33. 330  DXOR1
  34. 340  GOTO 140
  35.