home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / sys / atari / 8bit / 5734 < prev    next >
Encoding:
Internet Message Format  |  1992-12-30  |  2.0 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: <72635@cup.portal.com>
  6. Date: Wed, 30 Dec 92 13:36:42 PST
  7. Organization: The Portal System (TM)
  8. References: <72423@cup.portal.com> <5R4HwB2w165w@cyberden.sf.ca.us>
  9. Lines: 60
  10.  
  11. 1 POKE 766,1:POKE 82,0:GRAPHICS 0
  12. 3 REM ** A LITTLE CHEAT FOR NOW **
  13. 4 REM **   I'LL FIX IT LATER!   **
  14. 5 FSZ=425
  15. 10 DIM BASE(4),TRANS(4),A$(128)
  16. 20 DIM SUM(4),BIN(3),WRK$(5)
  17. 30 BIN(0)=1:BIN(1)=256:BIN(2)=65536
  18. 40 BIN(3)=16777216
  19. 50 BASE(0)=1
  20. 60 BASE(1)=85
  21. 70 BASE(2)=7225
  22. 80 BASE(3)=614125
  23. 90 BASE(4)=52200625
  24. 100 CLOSE #3
  25. 105 OPEN #3,8,0,"D9:PRETTY.OBJ"
  26. 110 CLOSE #4:OPEN #4,4,0,"D9:OUT.DAT"
  27. 120 X=0:A$=""
  28. 122 GET #4,A:X=X+1:IF A<>13 THEN A$(X,X)=CHR$(A):GOTO 122
  29. 124 REM ** SHOULD BE A LINE FEED **
  30. 125 GET #4,A
  31. 130 IF A$<>".BEGIN" THEN GOTO 120
  32. 140 ? A$
  33. 150 X=0:A$=""
  34. 152 GET #4,A:X=X+1:IF A<>13 THEN A$(X,X)=CHR$(A):GOTO 152
  35. 154 REM ** SHOULD BE A LINE FEED **
  36. 155 GET #4,A
  37. 158 IF A$=".END" THEN GOTO 500
  38. 160 CHUNKS=LEN(A$)/5
  39. 170 FOR LOOP=0 TO CHUNKS-1
  40. 180 WRK$=A$(1+LOOP*5,5+LOOP*5)
  41. 187 REM **** SUBTRACT 33 ****
  42. 190 FOR N=0 TO 4:OFFSET=ADR(WRK$)+N
  43. 200 POKE OFFSET,PEEK(OFFSET)-33
  44. 210 NEXT N:? WRK$
  45. 215 REM **** CALCULATE VALUE ****
  46. 220 FOR N=0 TO 4:SUM(N)=0:NEXT N
  47. 230 SUM=0:OFFSET=ADR(WRK$)
  48. 235 FOR N=0 TO 4
  49. 240 SUM(N)=BASE(4-N)*PEEK(OFFSET+N)
  50. 250 NEXT N
  51. 260 FOR N=0 TO 4:SUM=SUM+SUM(N):NEXT N
  52. 270 ? SUM:GOSUB 320
  53. 300 NEXT LOOP
  54. 310 GOTO 150
  55. 320 REM **TRANSLATION TO 4 CHARACTERS**
  56. 330 FOR N=0 TO 3:TRANS(N)=0:NEXT N
  57. 340 TRANS(3)=INT(SUM/BIN(3)):SUM=SUM-BIN(3)*TRANS(3)
  58. 350 TRANS(2)=INT(SUM/BIN(2)):SUM=SUM-BIN(2)*TRANS(2)
  59. 360 TRANS(1)=INT(SUM/BIN(1)):SUM=SUM-BIN(1)*TRANS(1)
  60. 370 TRANS(0)=INT(SUM/BIN(0)):SUM=SUM-BIN(0)*TRANS(0)
  61. 380 FOR N=0 TO 3
  62. 390 PUT #3,TRANS(N)
  63. 392 REM **** SLOPPY BUT WORKS ****
  64. 395 FSZ=FSZ-1:IF FSZ=0 THEN RETURN
  65. 400 ? TRANS(N),
  66. 420 NEXT N:RETURN
  67. 500 CLOSE #3:CLOSE #4:POKE 766,0
  68.  you get [<CR>, <LF>]
  69. for every line. I kept my test lines short, 35 characters, so
  70. I could print out everything while it w
  71.