"Rich J." wrote in message news:370265cd.0106120823.3370ca8a@posting.google.com... > "Jonathyn Bet'nct" wrote in message news:<3b25822f_1@newsfeeds>... > > Does this file listing sound familiar? > > > > NOISE.GENERATOR > > > I think that was it! > > I'd like to see what type of static it outputs and how fast > it works. I was able to program a full screen static generator, > but I want it to only fill 1/4 or less of the screen with static > to increase speed. This one is full screen, and it's actually pretty fast. If you want to, try downloading the SHK from the following URL and see if you are able to use it. This is the official web page for the collection of Apple II software it came from: http://kreativekorp.cjb.net/software/apple2.htm If that one doesn't work, I'll try archiving it a different way. I tracked down my source code. Just to be sure everyone understands, I didn't write this myself. I only put the files together and wrote the BASIC programs to wrap around the routines. Rubywand and David Empson were the ones who wrote the routines. Watch out for line breaks here! NOISEGEN by David Empson: 0300:20 20 03 A9 00 85 3C A9 20 85 3D A0 00 A2 20 20 0310:40 03 91 3C C8 D0 F8 E6 3D CA D0 F3 60 EA EA EA 0320:A5 4E 8D C1 03 8D C3 03 A5 4F 8D C2 03 8D C4 03 0330:A2 20 20 40 03 CA D0 FA 60 EA EA EA EA EA EA EA 0340:6E C4 03 AD C3 03 8D C4 03 AD C2 03 8D C3 03 AD 0350:C1 03 8D C2 03 AD C4 03 6A 2E C1 03 4D C1 03 6E 0360:C4 03 6E C3 03 6E C2 03 6A 8D C1 03 60 If you want to save the whole thing, use: BSAVE NOISEGEN,A$300,L$6D (This would be BSAVE NOISE.GENERATOR,A$300,L$6D to get my file.) STATIC by Rubywand: 2 DO_RND EQU $EFAE 3 RDKEY EQU $C000 4 CLRKEY EQU $C010 5 ORG $1F00 6 1F00: 20 AE EF 7 STATIC JSR DO_RND 1F03: A0 00 8 LDY #$00 1F05: A5 CD 9 LDA $CD 1F07: 85 06 10 STA $06 1F09: A5 CC 11 LDA $CC 1F0B: 29 3F 12 AND #$3F 1F0D: 09 20 13 ORA #$20 1F0F: 85 07 14 STA $07 1F11: A5 CB 15 LDA $CB 1F13: 91 06 16 STA ($06),Y 1F15: A5 CC 17 LDA $CC 1F17: 85 06 18 STA $06 1F19: A5 CD 19 LDA $CD 1F1B: 29 3F 20 AND #$3F 1F1D: 09 20 21 ORA #$20 1F1F: 85 07 22 STA $07 1F21: A5 CA 23 LDA $CA 1F23: 91 06 24 STA ($06),Y 1F25: A5 CB 25 LDA $CB 1F27: 85 06 26 STA $06 1F29: A5 CA 27 LDA $CA 1F2B: 29 3F 28 AND #$3F 1F2D: 09 20 29 ORA #$20 1F2F: 85 07 30 STA $07 1F31: A5 CD 31 LDA $CD 1F33: 91 06 32 STA ($06),Y 1F35: A5 CA 33 LDA $CA 1F37: 85 06 34 STA $06 1F39: A5 CB 35 LDA $CB 1F3B: A5 CA 36 LDA $CA 1F3D: 85 06 37 STA $06 1F3F: A5 CB 38 LDA $CB 1F41: 45 08 39 EOR $08 1F43: 29 3F 40 AND #$3F 1F45: 09 20 41 ORA #$20 1F47: 85 07 42 STA $07 1F49: A5 CC 43 LDA $CC 1F4B: 91 06 44 STA ($06),Y 1F4D: AD 00 C0 45 LDA RDKEY 1F50: 10 AE 46 BPL STATIC 1F52: 85 08 47 STA $08 1F54: AC 10 C0 48 LDY CLRKEY 1F57: C9 8D 49 CMP #$8D 1F59: D0 A5 50 BNE STATIC 1F5B: 60 51 RTS Then BSAVE NOISE.GEN.2.FXD,A$1F00,L$5C NOISE.WRAPPER: 5 GOSUB 100 10 REM GENERATE TV NOISE 20 D$=CHR$(4) 30 PRINT D$;"BLOAD NOISE.GENERATOR" 40 CALL 800:REM SEED RANDOM NUMBER GENERATOR 45 HGR:POKE -16302,0 50 CALL 771:REM GENERATE THE STATIC 55 IF PEEK(-16384) > 127 THEN POKE -16384,0:POKE -16368,0:TEXT:HOME:END 60 GOTO 50 100 HOME:PRINT "NoiseGen Television Static Generator":PRINT "by David Empson":PRINT:PRINT "Press Any Key to Continue":GET A$:RETURN NOISE.WRAP.TWO: 0 PRINT CHR$(4);"BLOAD NOISE.GEN.2.FXD" 5 HOME:PRINT "STATIC Television Static Generator":PRINT "by Rubywand":PRINT:PRINT "Press Any Key to Continue":GET A$ 7 X=RND(-1):REM SEED RANDOM NUMBER GENERATOR 10 HGR 20 I=PEEK(49234) 30 CALL 7936 40 TEXT 50 END -----= Posted via Newsfeeds.Com, Uncensored Usenet News =----- http://www.newsfeeds.com - The #1 Newsgroup Service in the World! -----== Over 80,000 Newsgroups - 16 Different Servers! =-----