say ''cr;say ''pen7'Processing Update...'def''cr;call PRICEUPDATE
end
say ''cr;say ''pen3'Updating Stock Market files...'def''cr
say ''cr;ct=np
do n=1 to np
badso.n=0
do j=1 to smv4
badso.n=badso.n+so.n.j
end
if badso.n<1 & cr.n<100 then do
time=time();date=date()
say ''spaces''dashes''cr
say ''spaces''time'' date''cr
say ''spaces''pen5'alias.n'def 'was removed from the'cr
say ''spaces'Board due to Bad Debts!'cr
say ''cr
call open(fn19,file5,'A');call writeln(fn19,dashes);call writeln(fn19,time date);call writeln(fn19,alias.n 'was removed from the');call writeln(fn19,'Board due to Bad Debts!');call close(fn19)
alias.n='^';ct=ct-1
do j=1 to smv4
sf.j=sf.j+so.n.j
end
end
end
if alias.cu~='^' & cr.cu<-1500 then do
time=time();date=date()
say ''spaces''dashes''cr
say ''spaces''time'' date''cr
say ''spaces''pen3''alias.cu ''def'was removed from the'cr
say ''spaces'Board due to Bad Debts!'cr
say ''cr
call open(fn19,file5,'A');call writeln(fn19,''dashes);call writeln(fn19,''time date);call writeln(fn19,''alias.cu 'was removed from the');call writeln(fn19,'Board due to Bad Debts!');call close(fn19)
alias.cu='^';ct=ct-1
do j=1 to smv4
sf.j=sf.j+so.cu.j
end
end
do n=1 to np
if smv19<jd-lc.n then do
time=time();date=date()
say ''spaces''dashes''cr
say ''spaces''time'' date''cr
say ''spaces''pen3''alias.n ''def'was removed from the'cr
say ''spaces'Board due to inactivity!'cr
say ''cr
call open(fn18,file5,'A');call writeln(fn18,dashes);call writeln(fn18,time date);call writeln(fn18,alias.n 'was removed from the');call writeln(fn18,'Board due to inactivity!');call close(fn18)
say ''pen4'You''ve been caught 'pen3'red-handed! 'pen4'The Board Commission has discovered'def''cr
say ''pen4'illegal practices in your transactions. You are fined 'pen3'$' x ''pen4'!'def''cr
say ''cr;options prompt 'Tap 'pen3'Return'def' to continue.'
pull result
if result='###PANIC' then SIGNAL GETOUT
say ''cr;signal MAIN
IRSAUDIT:
say ''cr;say ''pen3'FLASH Notice!'def''cr;say ''cr
lc.cu=jd-(smv19+1);time=time();date=date()
call open(fn29,file5,'A');call writeln(fn29,dashes);call writeln(fn29,time date);call writeln(fn29,alias.cu 'seat is sold due to');call writeln(fn29,'I.R.S audit!');call close(fn29)
say ''pen5'An I.R.S. audit has revealed that you owe back taxes in excess of'def''cr
say ''pen3'3.5 million dollars! 'pen4'Your seat on the Board has been 'pen3'SOLD 'pen4'in order to'def''cr
say ''pen4'satisfy your debts.'def''cr
say ''cr;options prompt 'Tap 'pen3'Return'def' to continue.'
pull result
if result='###PANIC' then SIGNAL GETOUT
say ''cr
SIGNAL GETOUT
FOLD:
say ''cr;say ''pen3'FLASH Notice!'def''cr;say ''cr