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

*fixup* for the archive

<quote> childish bASIC

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

</quote> childish code. No wonder they
call it BASIC (read: code for children)


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