Page No.  1 - { 2967}       expert system demo       lodging.sam
        ----------------------------------------------------------------
        
        
        { *1 }	38
        Jolly Roger Tavern - 2 3 8 9 10 12 14 
        
        { *10 }	26
        Waldorf - 1 5 6 7 9 11 12 
        
        { *11 }	36
        West Chester Hilton - 2 4 6 7 11 14 
        
        { *12 }	32
        Lonestar Tavern - 3 5 7 9 11 13 
        
        { *13 }	30
        Tom's Corner - 2 4 7 11 13 14 
        
        { *14 }	26
        Sunnydale - 2 5 7 9 11 12 
        
        { *15 }	29
        Queens Hotel - 1 5 7 8 13 14 
        
        { *16 }	35
        Colonial Crest - 1 5 6 7 8 9 10 11 
        
        { *17 }	33
        Wes's Wayside Rest - 1 4 7 11 14 
        
        { *18 }	24
        Mayflower - 2 5 7 12 14 
        
        { *19 }	38
        Downingtown Motor Inn - 3 4 8 9 13 14 
        
        { *2 }	32
        Ben Franklin - 1 4 7 9 10 12 14 
        
        { *20 }	31
        King's Kitchen - 2 4 8 9 12 14 
        
        { *21 }	28
        Concord Inn - 2 5 7 9 11 13 
        
        { *22 }	22
        Shady Rest - 3 5 8 11 
        
        { *23 }	34
        Holiday West - 1 5 6 7 9 10 11 13 
        
        { *24 }	28
        Airport Motel - 1 4 8 11 13 
        
        
        Page No.  2 - { 2967}       expert system demo       lodging.sam
        ----------------------------------------------------------------
        
        
        { *25 }	28
        The Hideout - 2 5 7 9 12 14 
        
        { *26 }	28
        Warwick - 3 5 7 11 12 13 14 
        
        { *27 }	40
        Penn Center Inn - 1 5 6 7 9 10 11 12 13 
        
        { *28 }	48
        Best Western at 14th. st. - 15 5 6 7 9 11 12 13 
        
        { *29 }	20
        XYZ Inn - 3 10 14 2 
        
        { *3 }	29
        Holiday - 1 4 6 8 9 10 11 12 
        
        { *30 }	18
        aaa - 1 2 3 4 5 6 
        
        { *4 }	27
        Belmont - 1 4 6 8 11 12 13 
        
        { *5 }	34
        George Washington - 1 5 6 7 12 14 
        
        { *6 }	31
        Hostfarm - 1 4 7 9 10 11 13 14 
        
        { *7 }	35
        Sleepy Hollow Rest Home - 2 4 8 14 
        
        { *8 }	25
        Longbranch - 2 4 7 11 14 
        
        { *9 }	30
        White House Inn - 3 5 6 11 14 
        
        { *last }	2
        29
        
        { A }	22
        %os,
        Lodgings .../%A0/
        
        { A0 }	27
        %ca,%xc,0D//%A0a/%A0b/%A0c/
        
        
        Page No.  3 - { 2967}       expert system demo       lodging.sam
        ----------------------------------------------------------------
        
        
        { A0a }	98
        %os,
        This program allows you to select criteria for lodgings which
        you might consider acceptable
        /
        
        { A0c }	8
        %A1/%A2/
        
        { A1 }	26
        %os,
        
        &ft,parm/&ft,mess1//
        
        { A2 }	25
        %A2a/%A2b/%A2c/%A2d/%A2e/
        
        { A2a }	42
        %dt,x,&is//%ii,&ft,x/,,!%rr,!%A3/%A0c/////
        
        { A2b }	55
        %ct,x,space,x,space/%tr,x, /%pt,x, /%dt,x,&ft,x, (,) //
        
        { A2c }	34
        %dt,y,&lw,(,)%x///%pt,y,x, /%ep,y/
        
        { A2d }	35
        %ig,%crd,y/,3,!%A2d2%y///,!%A2d1///
        
        { A2d1 }	63
        %os,
        Sorry but your special requirements cannot be fullfilled
        /
        
        { A2d2 }	22
        %ii,[1],,,!%A2x,[1]/%A2d2[#2]///
        
        { A2e }	12
        %A3/%A1/%A2/
        
        { A2x }	27
        %dt,x,&fr,[1],-//%md,[1],0/%vt,x/
        
        { A3 }	116
        %os,
        Type space to try again - X to exit and N for New entry
        /%dt,x,&ic//%ii,&ft,x/, ,,,X,!%os, exit/%ri//,N,!%N0///
        
        { N0 }	17
        %N1/%N2/%N3/%A0c/
        
        { N1 }	101
        %os,
        Name of Hotel {ret}?- /%dt,x1,&is//%os,
        Parameters separated by spaces
        {ret}?- /%dt,x2, - &is/ /
        
        
        Page No.  4 - { 2967}       expert system demo       lodging.sam
        ----------------------------------------------------------------
        
        
        { N2 }	44
        %dt,*last,%ad,1,%*last///%ct,*%*last/,x1,x2/
        
        { N3 }	83
        %vt,*%*last//%os,
        Is the above line correct {y-n}?- /%ii,&ic/,y,!%N3yes//,!%N3no//
        /
        
        { N3no }	25
        %dt,*last,%su,%*last/,1//
        
        { N3yes }	27
        %os,
        OK saving new file/%u/
        
        { mess1 }	60
        Space between requirements - return to end your input list
        ?
        
        { parm }	406
        1.  Lodging in Philadelphia	15.  Lodging in Washington D.C.
        2.  Lodging in Wilmington	16.  spare16
        3.  Lodging in Camden		10.  Swimming Pool Available
        4.  Hotel			11.  Dining Facility Available
        5.  Motel			12.  Telephone in Rooms
        6.  T.V. in Rooms		13.  Coffee Shop at lodging
        7.  Cocktail Room at lodging	14.  Cost per couple $12 max.
        8.  Pets Allowed		17.  spare17
        9.  Rooms Air Conditioned	18.  spare18
        
        
        { space }	1
         
        
        { u }	62
        %et,x,y,x1,x2/%ef,lodging.sam/%sf,lodging.sam/%bf,lodging.sam/
        
              
        
        { u }	62
        %et,x,y,x1,x2/%ef,lodgi