99 REM RATBALLS.BAS BY CAPTAINRAT A GWBASIC FREEWARE PROGRAM 100 RANDOMIZE TIMER:WA=5 110 CLS:HMAX=640:VMAX=200:SCREEN 8:KEY OFF 120 CENTH=HMAX/2:CENTV=VMAX/2:H=CENTH:V=CENTV:SN=40 130 GOSUB 190 140 CIRCLE (H,V),L,C 150 IF NC>1000 THEN NC=0:TC=TC+1:GOSUB 360 160 R$=INKEY$:IF R$<>"" THEN GOSUB 360 170 NC=NC+1:IF INT(NC/100)=NC/100 THEN GOSUB 410:LOCATE 10,40:PRINT TAMPON$;" ":SN=SN+1:SOUND SN,WA 180 GOTO 130 190 C=INT(RND*15):R4=INT(RND*8)+1 200 A=0:B=0:LASTH=H:LASTV=V 210 IF R4=1 THEN A=1 220 IF R4=2 THEN A=-1 230 IF R4=3 THEN B=1 240 IF R4=4 THEN B=-1 250 IF R4=5 THEN A=1:B=1 260 IF R4=6 THEN A=1:B=-1 270 IF R4=7 THEN A=-1:B=1 280 IF R4=8 THEN A=-1:B=-1 290 L=INT(RND*30)+5:H=H+(L*A):V=V+(L*B) 300 IF H>HMAX THEN H=1 310 IF V>VMAX THEN V=1 320 IF H<1 THEN H=HMAX 330 IF V<1 THEN V=VMAX 340 FOR D=1 TO 200:NEXT D 350 RETURN 360 SOUND SN*10, WA:CLS:LOCATE 15,10:PRINT "escape is escape":IF R$=CHR$(27) THEN SYSTEM 365 IF R$="?" THEN 500 370 IF R$<>"" THEN ARF=ASC(R$):WA=ARF-48 380 IF WA<0 THEN WA=0 390 IF TC>73 THEN SOUND 40,WA:TC=0 400 RETURN 410 RX=INT(RND*10):IF RX<2 THEN TAMPON$=TIME$+" " 420 IF RX>2 AND RX<5 THEN TAMPON$=DATE$+" " 425 IF RX=7 THEN TAMPON$="?????" 430 IF RX>4 AND RX<7 THEN TAMPON$="RATBALLS " 440 IF RX>7 THEN TAMPON$="a ratbytes creation..." 450 RETURN 500 PRINT "~~~~~~~~~~~~~~~~~~~~~~~~HELP?~~~~~~~~~~~~~~~~~~~~~~~" 510 PRINT "HOW DO I TURN THAT DAMNED SOUND OFF? press 0 (zero)" 520 PRINT "HOW DO I CHANGE THE DURATION OF THE SOUND? press another key--" 530 PRINT "the higher the ascii value of the key, the longer the sound" 540 PRINT "HOW DO I STOP IT!?!?! press escape" 550 PRINT "SOMETIMES IT WON'T RUN IN WINDOWS... windows is jealous because 555 PRINT "it doesn't have screensavers this good. 557 PRINT "if you run it full screen, windows can't see it, but you can." 560 PRINT "I HAVE A QUESTION YOU HAVEN'T ANSWERED.... " 570 PRINT "email captainrat@inficad.com" 580 PRINT "WHO'S HE? captain rat, ceo of ratbytes, is the author of this creation":PRINT "visit his website at www.inficad.com/~captainrat" 590 PRINT "press a key" 600 R$=INKEY$:IF R$="" THEN 600 601 RUN