Dustin Cook wrote:
> On Feb 23, 11:44 pm, "4Q"

<snip>

>
> randomize
> a=rnd(0)
> a=a mod 1
> b=rnd(0)
> b=b mod 23
> death=b
> b=rnd(0)
> b=b mod 23
> runy=b
> b=rnd(0)
> b=b mod 23
>
> if death=runy then
> a=rnd(0)
> a=a mod 23
> runy=a
> endif
> ent$=chr$(13)
> print"Viral Anticipation... Here is a chance for you to run the
> program!"
> print"special greetings to Nick Fitzgerald (**** you!) and Graham
> Cluley"
> print"of Sophos (www.sophos.com); You ****in lardass."
> print""
> print"Use your arrows (left & right) to select a square below."
> print"One of the squares has been set to allow your program"
> print"to continue running, While another will destroy your file."
> print"And the remaining ones? They do nothing. Make your decision."
> print"Press <enter> to record it. Good-Luck <Evil Grin>"
> print""
> print"UA:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A :A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:?"
> print"^3 Are you of a gambling nature? Muaha ^3"
> print"AA:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A :A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:A:U"
> for y=1 to 24
> a$=a$+"+-"
> next y
> print a$;
> zone=csrlin
> rem setup where the key door and bombs are, There are only 4 bombs
> rem to make the game not impossible.
> rem K is left, M is right
>
> local=b
> locate zone,local
> print"U";
> while exitflag=0
> a$=inkey$
> if a$="K" then
> if local=0 then
> beep
> else
> gosub check:
> local=local-1
> locate zone,local
> print"U";
> endif
> endif
> if a$="M" then
> if local=23 then
> beep
> else
> gosub check:
> local=local+1
> locate zone,local
> print"U";
> endif
> endif
> if a$=ent$ then
> exitflag=1
> ar=local
> endif
> gosub die_cursor:
> wend
> print"th"
> print""
> print"A choice has been made... So what shall become of the program?"
> print""
> print"Will the program continue running? ";
> if ar<> runy then
> print"hah, Nope."
> print"has the program been lost to the depths of electronic noise? "
> if ar=death then
> print"Hah, Yes Cluley's lardass squished it flat. "
> else
> print"Nope. The file moved out of the way as the lardass fell."
> endif
> else
> print"Why yes... yes it will."
> endif
> end
>
> check:
> for x=0 to 22
> locate zone,local
> print"+-";
> next x
> return
>
> die_cursor:
> rem off with the damn cursor
> REM turn crsr off by positioning off screen
> REM ASIC leaves it on for some reaosn ALL the time!
> AX=&HEX0200
> BX=0
> DX=25*256
> INT86 (&HEX10,AX,BX,NA,DX,NA,NA,NA,NA,NA)
> return
>
> Shrug.

More **** bASIC for the archives.
This is Pencil-neck's best stuff!


4Q
http://fourq.host.sk/INFO/