address command
display 'decker:d1'
address Rexx
say 'The is DECKER The Magic:The Gathering Card Player'
say 'Copyright June 1995 Peter Greci. All Rights Reserved'
say 'Version 0.5'
say''
say''
say 'If you enjoy and use this program please send a donation'
say 'to me. Anything from MTG materials to cash will be'
say 'appreciated. Mail to:'
say''
say 'Peter Greci'
say '1736-West 9th Street'
say 'Brooklyn NY 11223'
say''
say''
say 'Magic:The Gathering is a Trademark of Wizards of the Coast'
say''
say 'Hit ? to get a list of the programs instructions'
inhnd=''
ingrvyd=''
inplay=''
dat(dum)
do until cards=0
say''
say 'Input Command ' 
pull com
say''
if com='' then say 'What are you Playing Games?'
if com=end then ex(dum)
if com=g2g then g2g(dum)
if com=open then opn(dum)
if com=help then hlp(dum)
if com=? then hlp(dum)
if com=# then say 'Cards Left in Library=' cards
if com=draw then drw(dum) 
if com=hand then hnd(dum)
if com=discard then dis(dum)
if com=graveyard then grv(dum)
if com=play then play(dum)
if com=out then ipl(dum)
if com=rfg then rfg(dum)
if com=what then huh(dum)
end
exit
huh:
say 'Which Card do you need more information on?'
pull cardname
open('library','decker:library','read')
do until instring=cardname
instring=readln('iceage.lib')
end
say''
say cardname
do until str$='***'
str$=readln('iceage.lib')
say str$
end
close('iceage.lib')
return(0)
hnd:
say 'You have the Following in your hand: ' 
say''
say inhnd
return(0)
end
exit
ex:
address command
display 'decker:d2'
address Rexx
exit
return(0)
grv:
say 'You have the Following in your graveyard: ' ingrvyd
return(0)
end
exit
dis:
if words(inhnd)<8 then say 'Quit Trying to Cheat!!!'
warn='You may discard ONLY if you have more than 7 cards in your hand!!!'
warn2='Use rfg or g2g otherwise'
if words(inhnd)<8 then say warn
if words(inhnd)<8 then say warn2
if words(inhnd)<8 then return(0)
hnd(dum)
say 'What Card(s) do you want to discard? Count from left: ' 
pull yd
if yd='' then say 'What are you Playing Games!!!'
if yd='' then return(0)
say''
grvyd=word(inhnd,yd)
inhnd=delword(inhnd,yd,1)
ingrvyd=ingrvyd grvyd
hnd(dum)
return(0)
end
exit
g2g:
say 'Enter 1 for Card from Hand to graveyard 2 if Card is in Play'
pull gtwog
if gtwog='' then say 'What are you Playing Games!!!'
if gtwog='' then return(0)
if gtwog=1 then g2ga(dum)
if gtwog=2 then g2gb(dum)
return(0)
g2ga:
hnd(dum)
say 'What Card(s) do you want to discard? Count from left: ' 
pull yd
if yd='' then say 'What are you Playing Games!!!'
if yd='' then return(0)
say''
grvyd=word(inhnd,yd)
inhnd=delword(inhnd,yd,1)
ingrvyd=ingrvyd grvyd
hnd(dum)
return(0)
end
exit
g2gb:
ipl(dum)
say 'What Card(s) do you want to discard? Count from left: ' 
pull yd
if yd='' then say 'What are you Playing Games!!!'
if yd='' then return(0)
say''
grvyd=word(inplay,yd)
inplay=delword(inplay,yd,1)
ingrvyd=ingrvyd grvyd
ipl(dum)
return(0)
end
exit
play:
hnd(dum)
say 'What Card(s) do you want to play?: '
pull ay
if ay='' then say 'What are you Playing Games!!!'
if ay='' then return(0)
say''
ply=word(inhnd,ay)
inhnd=delword(inhnd,ay,1)
inplay=inplay ply
return(0)
end
exit
hlp:
say''
say 'Help:'
say 'Open-Get 8 Cards for opening Hand'
say 'Help or ?- This list'
say 'Draw-Draw one Card from library'
say 'Discard-Send 1 Card to the Graveyard'
say 'Play-Play One Card'
say 'Graveyard-View Cards you have in Graveyard'
say '#-check # of Cards left in library'
say 'Hand-View Cards in your Hand'
say 'Out-View Cards you have in Play'
say 'g2g-Send Card to Graveyard from Play'
say 'rfg-Remove Card from Play'
say 'What-Get more info on a specific Card'
say 'End-End Prg'
say''
return(0)
end
exit
ipl:
say 'You have the following cards out in play: '
say''
say inplay
return(0)
end
exit
opn:
if o=1 then say 'Naughty Naughty, you already drew your cards'
if o=1 then return(0)
do i=1 to 8
drw(dum)
end
o=1
return(0)
end
exit
drw:
call random ,,time('S') + date('B')85400
roll=random(1,cards)
name=word(datst,roll)
say 'Card Picked is ' name
inhnd = inhnd name
say''
datst=delword(datst,roll,1) 
cards=cards-1
if cards=0 then say 'Library Empty You lose'
return(0)
rfg:
say 'This command not yet implemented'
return(0)
end
dat:
open('deck','decker:deck','read')
cards=readln('deck')
do i=1 to cards
temp=readln('deck')
datst = datst temp
end
return(0)
end
exit
 