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