CLS
LINE INPUT "C:\DOS\BBS\GOOGLE>"; A$
LINE INPUT "C:\DOS\BBS\GOOGLE>"; A$
LINE INPUT "C:\DOS\BBS\GOOGLE>"; A$
PRINT "Loading..."
LINE INPUT ""; A$
CLS
WIDTH 80, 25
LOCATE 25, 1: COLOR 14, 1: PRINT "³  SQUIRREL-MONKEY BBS         ³  Serial  ³  Connected  ³  Login time "; TIME$; " ³";
COLOR 7, 0
FOR A = 1 TO 25
PRINT "º                                                                              º"
NEXT A
LOCATE 24, 1
COLOR 7, 0
SOUND 29999, 1.5
PRINT "º                                                                              º"
SOUND 29999, 4.5
PRINT "º        Selected BBS [GOOGLE SEARCH ENGINE]                                   º"
SOUND 29999, 8.5
PRINT "º        Dialing number...                                                     º"
SOUND 29999, 9.5
PRINT "º        Sending connection key...                                             º"
SOUND 29999, 3.5
PRINT "º        Receiving data...                                                     º"
SOUND 29999, 5.3
FOR A = 1 TO 160 STEP 1
COLOR 7: PRINT ".";
s = INT(RND * 2)
SOUND 29999, s
NEXT A
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º         "; : COLOR 2: PRINT "Welcome back, ANONYMOUS. Today it is Saturday 2 February 1985!"; : COLOR 7: PRINT "       º"
PRINT "º                                                                              º"
SOUND 29999, .5
SOUND 29999, 1
COLOR 7: PRINT "º          "; : COLOR 9: PRINT "             "; : COLOR 4: PRINT "         "; : COLOR 14: PRINT "          "; : COLOR 9: PRINT "          "; : COLOR 10: PRINT "  ,,"; : COLOR 4: PRINT "         "; : COLOR 7: PRINT "             º";
SOUND 29999, 2.5
COLOR 7: PRINT "º          "; : COLOR 9: PRINT "  .g8"; CHR$(34); ""; CHR$(34); ""; CHR$(34); "bgd  "; : COLOR 4: PRINT "         "; : COLOR 14: PRINT "          "; : COLOR 9: PRINT "          "; : COLOR 10: PRINT "`7MM"; : COLOR 4: PRINT  _
"         "; : COLOR 7: PRINT "             º";
SOUND 29999, 5.5
COLOR 7: PRINT "º          "; : COLOR 9: PRINT ".dP'     `M  "; : COLOR 4: PRINT "         "; : COLOR 14: PRINT "          "; : COLOR 9: PRINT "          "; : COLOR 10: PRINT "  MM"; : COLOR 4: PRINT "         "; : COLOR 7: PRINT "             º";
SOUND 29999, 3.5
COLOR 7: PRINT "º          "; : COLOR 9: PRINT "dM'       `  "; : COLOR 4: PRINT " ,pW"; CHR$(34); "Wq. "; : COLOR 14: PRINT "  ,pW"; CHR$(34); "Wq. "; : COLOR 9: PRINT "  .P"; CHR$(34); "Ybmmm"; : COLOR 10: PRINT "  MM"; : COLOR 4: PRINT "  .gP";  _
CHR$(34); "Ya "; : COLOR 7: PRINT "             º";
SOUND 29999, 2.5
COLOR 7: PRINT "º          "; : COLOR 9: PRINT "MM           "; : COLOR 4: PRINT "6W'   `Wb"; : COLOR 14: PRINT " 6W'   `Wb"; : COLOR 9: PRINT " :MI  I8 "; : COLOR 10: PRINT "   MM"; : COLOR 4: PRINT " ,M'   Yb"; : COLOR 7: PRINT "             º";
SOUND 29999, 1.5
COLOR 7: PRINT "º          "; : COLOR 9: PRINT "MM.    `7MMF'"; : COLOR 4: PRINT "8M     M8"; : COLOR 14: PRINT " 8M     M8"; : COLOR 9: PRINT "  WmmmP"; CHR$(34); " "; : COLOR 10: PRINT "   MM"; : COLOR 4: PRINT " 8M"; CHR$(34); ""; CHR$(34); "";  _
CHR$(34); ""; CHR$(34); ""; CHR$(34); ""; CHR$(34); ""; : COLOR 7: PRINT "             º";
SOUND 29999, 2.5
COLOR 7: PRINT "º          "; : COLOR 9: PRINT "`Mb.     MM"; : COLOR 4: PRINT "  YA.   ,A9"; : COLOR 14: PRINT " YA.   ,A9"; : COLOR 9: PRINT " 8M      "; : COLOR 10: PRINT "   MM"; : COLOR 4: PRINT " YM.    ,"; : COLOR 7: PRINT "             º";
SOUND 29999, 3.5
COLOR 7: PRINT "º          "; : COLOR 9: PRINT "  `"; CHR$(34); "bmmmdPY"; : COLOR 4: PRINT "   `Ybmd9' "; : COLOR 14: PRINT "  `Ybmd9' "; : COLOR 9: PRINT "  YMMMMMb"; : COLOR 10: PRINT " .JMML."; : COLOR 4: PRINT "`Mbmmd'"; : COLOR 7: PRINT  _
"             º";
SOUND 29999, 4.5
COLOR 7: PRINT "º          "; : COLOR 9: PRINT "                                 6'     dP"; : COLOR 2: PRINT "                 "; : COLOR 7: PRINT "         º";
SOUND 29999, 2.5
COLOR 7: PRINT "º                        BBS SEARCH ENGINE"; : COLOR 9: PRINT "   Ybmmmd'"; : COLOR 2: PRINT "                   "; : COLOR 7: PRINT "        º";

SOUND 29999, 2.5
PRINT "º                                                                              º"
SOUND 29999, .5
PRINT "º                                                                              º"
SOUND 29999, .5
COLOR 10
PRINT "º        TODAY'S NEWS | AL GORE INVENTS THE INTERNET                           º"
COLOR 11
PRINT "º                     | MICHAEL JACKSON OWNS PLUTO                             º"
COLOR 10
PRINT "º                     | RONALD REAGAN VISITS BELGIUM BY ACCIDENT               º"
COLOR 11
PRINT "º                     | FIRST DEMOCRAT IN SPACE                                º"
COLOR 7
PRINT "º                                                                              º"
BEEP
LOCATE 24, 1: PRINT "º        "; : COLOR 15: PRINT "'Google (S)earch'"; : COLOR 7: PRINT " or "; : COLOR 15: PRINT "'I'm feeling (L)ucky'?"; : COLOR 27: PRINT " Choose (S/L)  "; : COLOR 7: PRINT "            º"
LOCATE 23, 66: COLOR 27, 0: LINE INPUT ""; A$
COLOR 7, 0
LOCATE 24, 1: PRINT "º        "; : COLOR 15: PRINT "What is your search string? "; : COLOR 11, 4: PRINT "[                                       ]"; : COLOR 7, 0: PRINT " º"
LOCATE 23, 39: COLOR 14, 4: LINE INPUT ""; A$
LOCATE 24, 1: COLOR 7, 0: PRINT "º        "; : COLOR 15: PRINT "Did you mean 'Fool stuff'? "; : COLOR 27: PRINT "(Y/N)"; : COLOR 7: PRINT "                                      º"
LOCATE 23, 42: COLOR 27, 0: LINE INPUT ""; A$
FOR A = 1 TO 320 STEP 1
COLOR 7, 0: PRINT ".";
s = INT(RND * 3)
SOUND 29999, s
NEXT A
LOCATE 24, 1
PRINT "º     [SEARCH RESULTS]                                                         º"
SOUND 29999, 5.5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, 9.5
PRINT "º     | YOUTUBE                         | Phone Number                         º"
SOUND 29999, 2.5
PRINT "º     | * THE BIGGEST GL VIDEO          | +1-13444444444 (U.S.A.)              º"
SOUND 29999, 5.5
PRINT "º     | * ARCHIVE - FAMILY SAFE         | OPTION CODE NUMBER >1<               º"
SOUND 29999, 4.5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, 2.5
PRINT "º     | DEPHOID DANCE PHOTOGAPHY        | +31(0)12223444 (Netherlands)         º"
SOUND 29999, 3.5
PRINT "º     | Cool dance pictures!            | OPTION CODE NUMBER >2<               º"
SOUND 29999, 3.5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, 2.5
PRINT "º     | EBAY MARKET: MIELE FREEZER FOR  | +1(0)14342142 (U.S.A.)               º"
SOUND 29999, 3.5
PRINT "º     | SALE / good condition, keeps    | OPTION CODE X1 for complete list     º"
SOUND 29999, 4.5
PRINT "º     | your stuff cool                 | OPTION CODE NUMBER >3<               º"
SOUND 29999, 3.5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, .5
PRINT "º     | SQUIRREL-MONKEY                 | Phone Number                         º"
SOUND 29999, 2.5
PRINT "º     | Jokes and firvolities           | +31(0)100000173 (NL ONLY)            º"
SOUND 29999, 1.5
PRINT "º     | * Cool stuff!                   | OPTION CODE NUMBER >4<               º"
SOUND 29999, .5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, 2.5
PRINT "º     | MIAMI VICE BBS                  | Phone Number                         º"
SOUND 29999, 3.5
PRINT "º     | Cool quotes from Miami Vice     | +1-15554555454 (U.S.A.)              º"
SOUND 29999, 6.5
PRINT "º     | and more!!!!!!!!!!!!!!!         | OPTION CODE NUMBER >5<               º"
SOUND 29999, .5
PRINT "º     +---------------------------------+------------------------------        º"
PRINT "--- PRESS A KEY TO VIEW THE NEXT PAGE ---"
LOCATE 24, 1: LINE INPUT ""; A$
SOUND 29999, .5
PRINT "º     | VKMAG - TCMAG - TOTALLYNSFW     | Phone Number                         º"
SOUND 29999, 5.5
PRINT "º     | B. Hardcore & S. Stiffbone      | +31(0)12312312 (Netherlands)         º"
SOUND 29999, .5
PRINT "º     | * Cool GIF picz of women        | +1-12313213123 (U.S.A.)              º"
SOUND 29999, 3.5
PRINT "º     | * FLI & GL video's              | OPTION CODE NUMBER >6<               º"
SOUND 29999, 2.5
PRINT "º     | * Cool stuff!                   |                                      º"
SOUND 29999, .5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, 3.5
PRINT "º     | THE A-TEAM PORN HUB             | Phone Number                         º"
SOUND 29999, .5
PRINT "º     | if you are horny and no one else| +1(0)144445553 (U.S.A.)              º"
SOUND 29999, 4.5
PRINT "º     | can help,and if you can find us | OPTION CODE X1 for complete list     º"
SOUND 29999, 6.5
PRINT "º     | maybe you can call...our BBS!   | OPTION CODE NUMBER >7<               º"
SOUND 29999, 4.5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, 2.5
PRINT "º     | TELESHOPBBS - AMAZING DISOVERIES| Phone Number                         º"
SOUND 29999, 1.5
PRINT "º     | For SALE - Amazing marker       |  +1-1234-56789 (U.S.A.)              º"
SOUND 29999, 1.5
PRINT "º     | Mark under water, mark your cat | OPTION CODE X2 for complete list     º"
SOUND 29999, 4.5
PRINT "º     | Even write in SPACE! Cool!      | OPTION CODE NUMBER >8<               º"
SOUND 29999, 3.5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, 2.5
PRINT "º     | RINUS & DEBORAH SINGING LESSONS | Phone Number                         º"
SOUND 29999, 1.5
PRINT "º     | Sing like a real opera maestro  | +31-123134444 (Netherlands)          º"
SOUND 29999, .5
PRINT "º     | in only two months!             | OPTION CODE NUMBER >9<               º"
SOUND 29999, 2.5
PRINT "º     +---------------------------------+------------------------------        º"
SOUND 29999, 1.5
PRINT "º------------------------------------------------------------------------------º"
PRINT "º     Please enter your option code to dial the BBS...                         º"
LOCATE 1, 1: SLEEP