home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / sys / atari / 8bit / 5733 < prev    next >
Encoding:
Internet Message Format  |  1992-12-30  |  1.6 KB
  1. Path: sparky!uunet!portal!cup.portal.com!Rick_Michael_Cortese
  2. From: Rick_Michael_Cortese@cup.portal.com
  3. Newsgroups: comp.sys.atari.8bit
  4. Subject: Re: My ego VS UUE
  5. Message-ID: <72634@cup.portal.com>
  6. Date: Wed, 30 Dec 92 13:35:39 PST
  7. Organization: The Portal System (TM)
  8. References: <72423@cup.portal.com> <5R4HwB2w165w@cyberden.sf.ca.us>
  9. Lines: 41
  10.  
  11. 4 DIM BASE(4),TRANS(4)
  12. 5 DIM SUM(3),BIN(3):X=1
  13. 6 BIN(0)=1:BIN(1)=256:BIN(2)=65536
  14. 7 BIN(3)=16777216
  15. 8 BASE(0)=1
  16. 9 BASE(1)=85
  17. 10 BASE(2)=7225
  18. 11 BASE(3)=614125
  19. 12 BASE(4)=52200625
  20. 14 CLOSE #3:OPEN #3,4,0,"D9:PRETTY.COM"
  21. 15 CLOSE #4:OPEN #4,8,0,"D9:OUT.DAT"
  22. 16 ? #4;".BEGIN";:PUT #4,13:PUT #4,10
  23. 20 TRAP 90
  24. 30 FOR N=0 TO 3:SUM(N)=0:NEXT N
  25. 35 SUM=0:FOR N=0 TO 3
  26. 40 GET #3,A
  27. 50 SUM(N)=A*BIN(N):? A,;
  28. 60 NEXT N
  29. 65 FOR N=0 TO 3:SUM=SUM+SUM(N):NEXT N
  30. 66 ? SUM:GOSUB 100
  31. 70 GOTO 30
  32. 90 FOR N=0 TO 3:SUM=SUM+SUM(N):NEXT N
  33. 93 GOSUB 100:PUT #4,13:PUT #4,10:? #4;".END";:PUT #4,13:PUT #4,10
  34. 95 CLOSE #3:CLOSE #4:END
  35. 100 REM **TRANSLATION TO 5 CHARACTORS**
  36. 121 FOR N=0 TO 4:TRANS(N)=0:NEXT N
  37. 140 TRANS(4)=INT(SUM/BASE(4)):SUM=SUM-BASE(4)*TRANS(4)
  38. 141 TRANS(3)=INT(SUM/BASE(3)):SUM=SUM-BASE(3)*TRANS(3)
  39. 142 TRANS(2)=INT(SUM/BASE(2)):SUM=SUM-BASE(2)*TRANS(2)
  40. 143 TRANS(1)=INT(SUM/BASE(1)):SUM=SUM-BASE(1)*TRANS(1)
  41. 144 TRANS(0)=INT(SUM/BASE(0)):SUM=SUM-BASE(0)*TRANS(0)
  42. 200 FOR N=4 TO 0 STEP -1
  43. 205 C=TRANS(N)+33
  44. 210 ? CHR$(C);
  45. 220 ? #4;CHR$(C);:NEXT N:?
  46. 225 REM IF YOU NEED LF
  47. 230 X=X+1:IF X=8 THEN PUT #4,13:PUT #4,10:X=1
  48. 240 RETURN
  49. tart the "CAPTURE" immediately. I had to send it one
  50. Atari <CR> to get it to save the first part of the file.  I'm
  51. not sur
  52.