REM delete every line above this line
REM This is the first line of this program gamesp11.bas
dim ttgreg(11)
dim larry$(32)
larry$(0)="06startgame"
larry$(1)="postpone postpone vote on mandatory health insurance"
larry$(2)="pass pass mandatory health insurance now"
larry$(3)="defeat defeat mandatory health insurance"
larry$(4)="avj avj Make All Volunteer Jury system in ALL COURTS"
larry$(5)="quit quit gamesp11.bas of Monday November 26 2007"
larry$(6)="*/"
outerfirst$=larry$(0)
outerdepth=numfroml(1,2,10,"i",outerfirst$)
outersize$=sfromnu$(4,10,"v",outerdepth)
outersize$=outersize$+sfromnu$(4,10,"e",outerdepth)
print outersize$
bambctr=0
2003 print "gamesp11.bas "
print "on Liberty Basic of the Bambi Operating System"
print "choose an option by typing the leftmost word"
print "of each line and then enter"
call prgroup outerdepth,0
line input chooser$
resdex=bsymdex(0,chooser$,outerdepth)
resline$=sfromnu$(4,10,"v",resdex)
resline$=resline$+sfromnu$(4,10,"e",resdex)
print resline$
REM gamesp11.bas is written by Eric Matteson
REM Copyright C 2007 by Eric Matteson. Permission is
REM hereby granted to copy this source code file
REM gamesp11.bas and to publish it on the Internet
REM and to use it at least for non-profit use.
REM For best results interpret this program on
REM Liberty Basic liberty.exe using the
REM wine Windows Imitator on top of the
REM Linux operating system. (combination
REM is someimes called the
REM Bambi Operating System )
if resdex = 1 then goto 8001
if resdex = 2 then goto 8002
if resdex = 3 then goto 8003
if resdex = 4 then goto 8004
goto 9099
8001 print "postponing voting for mandatory health insurance"
print "will give more time to realize severity of"
print "bankruptcy that mandatory health insurance for"
print "individuals will create and provide more time for"
print "alternatives to requiring everyone to purchase"
print "health insurance."
goto 9089
8002 print "passing mandatory health insurance will bankrupt"
print "everyone. People already pay so much for their"
print "mortgage payments and gas and food that there is"
print "no extra 6.5 per cent of income to waste on a"
print "mandatory health insurance premium at a worthless"
print "HMO.People who live in mandatory health insurance"
print "states are no longer able to afford Microsoft "
print "Windows or any Microsoft software with their new"
print "computers."
print "Students who need Windows without Microsoft are"
print "using an operating system called Bambi."
print " To make Bambi install wine on top of Linux"
print "and then install a compiler or interpreter that"
print "needs wine to run and sup****ts the professors"
print "assigned programming language for that course."
print "http://www.winehq.org"
print "for more information about Windows without"
print "Microsoft."
goto 9089
8003 print "Defeating mandatory health insurance will win"
print "huge savings in the economy. State funded County"
print "hospitals provide higher quality health care "
print "including surgery than HMOs and at a lower cost."
print "A 2 per cent additional sales tax to sup****t"
print "efficient non-profit county hospitals will"
print "help health care more than a 6.5 per cent HMO"
print "premium stolen from everyone."
goto 9089
8004 print "An All volunteer jury system will bring in smart"
print "jurors who will know about the right of jury"
print "nullification to refuse to convict a defendant"
print "because the mandatory health insurance law"
print "itself is unfair. Ask your legislators to "
print "make all juries from groups of volunteers."
print "After an all volunteer jury system is created"
print "groups of voluntary jurors who have aquitted"
print "everyone who has failed to buy health insurance"
print "and also failed to pay the penalty tax can then"
print "write to their legislators to demand health "
print "insurance become voluntary."
goto 9089
9089 bambctr=bambctr+1
if bambctr > 7 then goto 9099
if resdex < 1 then goto 9099
if resdex > 4 then goto 9099
goto 2003
9099 resdex=0
rem end
function sfromnu$(sfnwid,sfnbase,vemode$,sfnuin)
dim prigits(84)
sfromre$ = ""
fixuin = sfnuin
ssgn$ = "+"
sfudbase = 1.0 / sfnbase
if sfnuin < 0.0 then
fixuin = 0.0 - sfnuin
ssgn$ = "-"
end if
sfnexp = 0.0
if fixuin >= 1.0 then
while fixuin >= 1.0
fixuin = fixuin / sfnbase
sfnexp = sfnexp + 1.0
wend
end if
if fixuin > 0 then
if fixuin < sfudbase then
while fixuin < sfudbase
fixuin = fixuin * sfnbase
sfnexp = sfnexp - 1.0
wend
end if
end if
expsgn$ = "+"
rfnexp = sfnexp
if sfnexp < 0 then
rfnexp = 0 - sfnexp
expsgn$ = "-"
end if
rfntiny=sfudbase
sfnctr = 0 - 1
while sfnctr < sfnwid
rfntiny = rfntiny / sfnbase
rfnexp = rfnexp / sfnbase
sfnctr=sfnctr+1
wend
rfntiny = rfntiny / sfnbase
rfntiny = rfntiny / sfnbase
rfnexp = rfnexp + sfudbase + rfntiny
sfntop = rfntiny / sfnbase
if vemode$ = "e" then
sfntop = sfntop + rfnexp
sfromre$ = "E" + expsgn$
end if
if vemode$ = "v" then
sfntop = sfntop + fixuin
sfromre$ = ssgn$ + "."
end if
sfnctr = 0
while sfnctr < (sfnwid + 1)
sfnterm = 0
sfndd = 0
sfnilop = 0
sfnallow = 2
while sfnallow > 1
sfnshrink = sfnilop * sfudbase
sfncmp = sfntop - sfnshrink
if sfncmp < 0 then sfnallow = 0
if sfnallow > 1 then
sfndd = sfnilop
sfnilop=sfnilop+1
if sfnilop >= sfnbase then sfnallow = 0
end if
wend
sfnshrink = sfndd * sfudbase
sfntop = sfntop - sfnshrink
sfntop = sfntop * sfnbase
sfnterm = sfndd + 48
if sfndd > 9 then sfnterm = sfndd + 87
prigits(sfnctr) = sfnterm
sfnctr=sfnctr+1
wend
sfnilop = 0
if vemode$ = "e" then sfnilop=1
rem sfnilop = 0
sfnctr = 0
while sfnctr < sfnwid
sfnshrink = sfnctr + sfnilop
sfnterm = prigits(sfnshrink)
sfromre$ = sfromre$ + chr$(sfnterm)
sfnctr=sfnctr+1
wend
sfromnu$ = sfromre$
end function
rem end of function sfromnu$
function onedigit(ogdsub,ogdline$)
ogdres=0
ogdchri$ = chr$(0)
if ogdsub < len(ogdline$) then
ogdchri$ = mid$(ogdline$,(ogdsub+1),1)
end if
ogdres = asc(ogdchri$)
cgdres=187
if ogdres >= 48 and ogdres <= 57 then
cgdres=ogdres-48
end if
if ogdres >= 97 and ogdres <= 102 then
cgdres=ogdres-87
end if
if ogdres >= 65 and ogdres <= 70 then
cgdres=ogdres-55
end if
onedigit=cgdres
end function
function numfroml(nmfpoz,nmfwid,nmfbase,simode$,nmfline$)
nmfisdot=0
nmfres=0.0
nmfudbase=1.0/nmfbase
nmfisneg=0
nmfallow=2
nmfctr=0
while nmfallow > 1
nmfsub=nmfctr+nmfpoz-1
nmfterm=onedigit(nmfsub,nmfline$)
if nmfterm < 16 then nmfallow = 0
if nmfallow > 1 then
aafchri$ = mid$(nmfline$,(nmfsub+1),1)
if aafchri$ = "-" then nmfisneg=2
if aafchri$ = "." then nmfdot=2
nmfctr=nmfctr+1
if nmfctr >= nmfwid then nmfallow=0
end if
wend
if nmfctr < nmfwid then nmfallow=4
if nmfisdot < 1 then
while nmfallow > 3
nmfsub=nmfctr+nmfpoz-1
nmfterm=onedigit(nmfsub,nmfline$)
if nmfterm > 15 then nmfallow=0
if mid$(nmfline$,(nmfsub + 1),1) = "." then
nmfdot=2
nmfallow=2
end if
if nmfallow > 3 then
nmfres=nmfres*nmfbase
nmfres=nmfres+nmfterm
end if
if nmfallow > 1 then
nmfctr=nmfctr+1
if nmfctr >= nmfwid then nmfallow=0
end if
wend
end if
if nmfdot > 1 then
nmftrod = nmfudbase
while nmfallow > 1
nmfsub=nmfctr+nmfpoz-1
nmfterm=onedigit(nmfsub,nmfline$)
if nmfterm > 15 then nmfallow=0
if nmfallow > 1 then
nmfzod=nmftrod*nmfterm
nmfres=nmfres+nmfzod
nmftrod=nmftrod*nmfudbase
nmfctr=nmfctr+1
if nmfctr >= nmfwid then nmfallow=0
end if
wend
end if
if nmfisneg > 1 then nmfres = 0 - nmfres
nmfsub=nmfctr+nmfpoz-1
if simode$ = "s" then mmfres = nmfsub + 1
if simode$ = "i" then mmfres = nmfres
numfroml = mmfres
end function
rem end of numfroml
function lben(wseaver$)
maxben=len(wseaver$)
lbectr=0
lbeallow=2
while lbeallow > 1
lbechri$=mid$(wseaver$,(lbectr+1),1)
lbegreg=asc(lbechri$)
if lbegreg < 33 then lbeallow = 0
if lbeallow > 1 then
lbectr=lbectr+1
if lbectr >= maxben then lbeallow=0
end if
wend
lben=lbectr
end function
rem end of lben
function bsymdex(grouprloc,singlev$,bydepth)
lew=lben(singlev$)
bsyeq=0-5
if lew > 0 then
bsyctr=0
while bsyctr < bydepth
zipglev$ = larry$(grouprloc+bsyctr)
ler=lben(zipglev$)
if ler = lew then
bsylop=0
bsydiff=0
while bsylop < ler
bsyl$ = mid$(zipglev$,(bsylop + 1),1)
bsyr$ = mid$(singlev$,(bsylop + 1),1)
if bsyl$ <> bsyr$ then bsydiff=2
bsylop=bsylop+1
wend
if bsydiff < 1 then bsyeq=bsyctr
end if
bsyctr=bsyctr+1
wend
end if
bsymdex=bsyeq
end function
rem end of bsymdex
sub prgroup prrmany,prrset
prrctr=1
while prrctr < prrmany
prrelem$=larry$(prrset+prrctr)
REM arrays are referenced GLOBALLY and
REM not passed as arguments in Liberty Basic
print prrelem$
prrctr=prrctr+1
wend
end sub
REM This is the last line of this program
REM delete every line below this line
|
