Garbage Gobbler

Since we seem to have “lost the String” on my generating an article, your printing it in ZQA, and my generating the next article, etc , I will be sending in a small collection of text about the 2068, soon. The significance is, that these articles will come to you via the net, using your e-mail and my 2068! Just look through them for something of interest, and then use it as an example application of the 2068 to the OK, that poem, I just sent to you, seems to have been received with all it’s characters intact. It’s just that the Full Duplex operation is so slow, as to drop that character (one or more per line,) when it prints back onto my screen what it has just sent out over the phone line!

It’s all very complicated, but it seems to work OK !

David E. Lassov: sysop, SOL BBS @520-882-0388

Looks, as though at least one character is being dropped in each line SENT to the net !

This may be of interest to the readers of ZXir QLive Alive. Here is a listing, faster than snail mail!

Thanks, Abed, for allowing me two corrections to the source, NOT net errors ! The corrected version follows right here :

GARBAGE GOBBLER

   1 REM GG.B1 (Larken version)
   5 LET g=0
  10 FOR a=USR "a" TO USR "a"+7: READ d: POKE a,d: NEXT a
  15 DATA 60,126,239,252,240,249,127,60
  20 BORDER 1: PAPER 7: CLS
  25 FOR i=1 TO 8: PRINT INK INT (RND*7); AT INT (RND*22), INT (RND*32);"*": NEXT i
  30 LET r=21: LET c=0: INK 0
  35 BEEP 0.05,-50: PRINT AT r,c;"A": LET r0=r: LET c0=c: LET s=IN 31: IF s THEN  GO TO 55
  40 GO TO 35
  55 LET r=r+(s=6)+(s=4)+(s=5)-(s=10)-(s=8)-(s=9)
  60 LET c=c+(s=9)+(s=1)+(s=5)-(s=10)-(s=2)-(s=6)
  65 LET r=r+(r<0)-(21<r)
  70 LET c=c+(c<0)-(31<c)
  75 PRINT AT r0,c0;" "
  80 IF SCREEN$ (r,c)="*" THEN GO SUB 100
  85 GO TO 35
 100 PRINT AT r,c;"A"
 105 SOUND 0,200;1,2;6,31;7,14;8,16;9,16;10,16;12,100;13,2
 110 PAUSE 30: SOUND 7,63
 115 LET g=g+1: IF g<8 THEN GO TO 35
 200 PAPER 1: INK 7: CLS
 205 FOR n=1 TO 27: READ p,d
 210 LET r=INT (RND*22): LET c=INT (RND*32)
 215 PRINT AT r,c;"A": BEEP p,d
 220 PRINT AT r,c;" ": NEXT n
 225 DATA 0.25,0,0.25,0,0.25,2,0.25,4,0.25,0,0.25,4,0.5,2
 230 DATA 0.25,0,0.25,0,0.25,2,0.25,4,0.5,0,0.5,-1
 235 DATA 0.25,0,0.25,0,0.25,2,0.25,4,0.25,5
 240 DATA 0.25,4,0.25,2,0.25,0,0.25,-1,0.25,-5,0.25,-3,0.25,-1,0.5,0,0.25,0
9997 STOP
9998 CLS: BEEP 0.02,20: PRINT #RND;"Data Disc ? ";: PAUSE 0: LET d=CODE INKEY-CODE "0": PRINT #RND;d: RANDOMIZE USR 100: GO TO d: RANDOMIZE USR 100: CAT "", BEEP 0.2,24: INPUT "Entire File Name ? "; LINE z$: RANDOMIZE USR 100: OPEN #2,z$( TO LEN z$-2)+"CX"+" OUT ": LIST : RANDOMIZE USR 100: CLOSE #2: STOP : REM MERGE in order to generate TEXT FILE (.CX)

The A in lines 35, 100, and 215 will all be replaced by the UDG, generatedby lines 10 and 15. Of course, the A must be typed in with the cursor, changedto G, ie., in graphics mode for the A, only! And, the lines 9997 and 9998 are not part of the game, but were MERGED only to convert a BASIC listing (.B1) into a text file (.CX)… .