home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3154.dms / 3154.adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode
AMOS Source Code  |  1994-06-04  |  20KB  |  473 lines
  1. Screen Open 0,640,256,2,Hires
  2. Limit Mouse 500,280 To 90,40
  3. '
  4. Hide On 
  5. Load Iff "sci2:intro",0
  6. Sam Bank 2
  7. Sam Loop On 
  8. Repeat 
  9. Until Mouse Key=1
  10. Screen Close 0
  11. Show On 
  12. MENU
  13. Procedure MENU
  14.    Screen Open 1,640,256,2,Hires
  15.    Cls 0 : Curs Off 
  16.    Paper 0 : Pen 1 : Palette ,$FF0
  17.    Locate 4,4 : Print "ONE MILLION YEARS B.C."
  18.    Locate 4,5 : Print "INVADERS FROM MARS"
  19.    Locate 4,6 : Print "THE DAY OF THE TRIFFIDS"
  20.    Locate 4,7 : Print "THE MUMMY"
  21.    Locate 4,8 : Print "WHEN DINOSAURS RULED THE EARTH"
  22.    Locate 45,4 : Print "THE AMAZING COLOSSAL MAN"
  23.    Locate 45,5 : Print "CURSE OF THE DEMON"
  24.    Locate 45,6 : Print "(Night Of The Demon)"
  25.    Locate 45,7 : Print "ATTACK OF THE 50ft WOMAN"
  26.    Locate 45,8 : Print "HOUSE OF WAX"
  27.    Locate 45,9 : Print "FIRST MEN IN THE MOON"
  28.    Locate 4,11 : Print "The list above represents the posters on this disk. The original movie"
  29.    Locate 4,12 : Print "posters from these science fiction and horror classics."
  30.    Locate 4,13 : Print "After you enter the slideshow, PRESSING ANY KEY will cycle through the"
  31.    Locate 4,14 : Print "posters one after the other. If on the other hand you would like some"
  32.    Locate 4,15 : Print "information on the movie of your choice, just click the LEFT MOUSE"
  33.    Locate 4,16 : Print "BUTTON on your selection above and an info screen will appear."
  34.    Locate 4,17 : Print "The screens include CAST & CREDITS, SYNOPSIS, and any relevant background"
  35.    Locate 4,18 : Print "information."
  36.    Locate 4,20 : Print "The code of this program was written in Amos Basic, so if you have this"
  37.    Locate 4,21 : Print "programming language, you can easily create you own slideshow by inserting"
  38.    Locate 4,22 : Print "your own picture files in place of the ones already on the disk. Also with"
  39.    Locate 4,23 : Print "a bit of modifying you can get the code to work exactly how you want it to."
  40.    Locate 13,27 : Print "ABOUT"
  41.    Locate 48,27 : Print "PROCEED WITH SLIDESHOW"
  42.    Box 60,205 To 180,230
  43.    Box 350,205 To 600,230
  44.    Reserve Zone 12
  45.    Set Zone 1,28,29 To 262,38
  46.    Set Zone 2,28,39 To 262,47
  47.    Set Zone 3,28,48 To 262,56
  48.    Set Zone 4,28,57 To 262,63
  49.    Set Zone 5,28,64 To 262,71
  50.    Set Zone 6,357,29 To 566,38
  51.    Set Zone 7,357,39 To 575,55
  52.    Set Zone 8,357,56 To 575,63
  53.    Set Zone 9,357,64 To 575,72
  54.    Set Zone 10,357,72 To 575,79
  55.    Set Zone 11,60,205 To 180,230
  56.    Set Zone 12,350,205 To 600,230
  57.    Do 
  58.       Z=Mouse Zone
  59.       If Z=1 and Mouse Key=1 Then INFO1
  60.       If Z=2 and Mouse Key=1 Then INFO2
  61.       If Z=3 and Mouse Key=1 Then INFO3
  62.       If Z=4 and Mouse Key=1 Then INFO4
  63.       If Z=5 and Mouse Key=1 Then INFO6
  64.       If Z=6 and Mouse Key=1 Then INFO7
  65.       If Z=7 and Mouse Key=1 Then INFO12
  66.       If Z=8 and Mouse Key=1 Then INFO13
  67.       If Z=9 and Mouse Key=1 Then INFO8
  68.       If Z=10 and Mouse Key=1 Then INFO5
  69.       If Z=11 and Mouse Key=1 Then ABOUT
  70.       If Z=12 and Mouse Key=1 Then MAIN
  71.    Loop 
  72. End Proc
  73. Procedure MAIN
  74.    Do 
  75.       Hide On 
  76.       Cls 0 : Load Iff "sci2:one",0
  77.       Wait Key 
  78.       Cls 0 : Load Iff "sci2:mars",0
  79.       Wait Key 
  80.       Cls 0 : Load Iff "sci2:triffid",0
  81.       Wait Key 
  82.       Cls 0 : Load Iff "sci2:mummy",0
  83.       Wait Key 
  84.       Cls 0 : Load Iff "sci2:dinosaurs",0
  85.       Wait Key 
  86.       Cls 0 : Load Iff "sci2:colossal",0
  87.       Wait Key 
  88.       Cls 0 : Load Iff "sci2:demon",0
  89.       Wait Key 
  90.       Cls 0 : Load Iff "sci2:woman",0
  91.       Wait Key 
  92.       Cls 0 : Load Iff "sci2:wax",0
  93.       Wait Key 
  94.       Cls 0 : Load Iff "sci2:moon",0
  95.       Wait Key 
  96.    Loop 
  97. End Proc
  98. '
  99. Procedure INFO1
  100.    Screen Open 0,640,250,8,Hires
  101.    Curs Off : Cls 0
  102.    Paper 0 : Pen 1 : Palette ,$FF0
  103.    Box 630,14 To 12,240
  104.    Box 345,200 To 560,230
  105.    Locate 25,5 : Print "ONE MILLION YEARS B.C."
  106.    Locate 5,7 : Print "A Hammer films release."
  107.    Locate 5,8 : Print "Directed by Don Chaffey."
  108.    Locate 5,9 : Print "Screenplay: Michael Carreras."
  109.    Locate 5,10 : Print "Photography: Wilkie Cooper."
  110.    Locate 5,11 : Print "Special Photographic Effects: Ray Harryhausen."
  111.    Locate 5,12 : Print "Art Direction: Robert Jones."
  112.    Locate 5,13 : Print "Music: Mario Nascimbene."
  113.    Locate 5,14 : Print "Editing: Tom Simpson."
  114.    Locate 5,16 : Print "Leading Players: Raquel Welch, John Richardson, Percy Herbert,"
  115.    Locate 5,17 : Print "Robert Brown, Martine Beswick, Jean Waldon, Lisa Thomas."
  116.    Locate 5,18 : Print "GB, 1966, Colour, 100 mins."
  117.    Locate 5,20 : Print "Romeo and Juliet among the dinosaurs. The movie was a box-office success"
  118.    Locate 5,21 : Print "due to the scantily-clad Raquel Welch, but of course the real stars of"
  119.    Locate 5,22 : Print "the show, were once again Ray Harryhausens spectacular animated effects,"
  120.    Locate 5,23 : Print "which up until JURASSIC PARK almost 30 years later, were the most"
  121.    Locate 5,24 : Print "convincing dinosaurs on the screen. A deserved cult success."
  122.    Reserve Zone 1
  123.    Set Zone 1,345,200 To 560,230
  124.    Locate 50,26 : Print " RETURN TO"
  125.    Locate 52,27 : Print "MENU."
  126.    Do 
  127.       Z=Mouse Zone
  128.       If Z=1 and Mouse Key=1 Then Screen Close 0 : MENU
  129.    Loop 
  130. End Proc
  131. '
  132. Procedure INFO2
  133.    Screen Open 1,640,250,8,Hires
  134.    Curs Off : Cls 0
  135.    Paper 0 : Pen 1 : Palette ,$FF0
  136.    Box 630,14 To 12,240
  137.    Box 345,200 To 560,230
  138.    Locate 27,5 : Print "INVADERS FROM MARS"
  139.    Locate 5,7 : Print "An Edward L. Alperson Production."
  140.    Locate 5,8 : Print "Directed by William Cameron Menzies."
  141.    Locate 5,9 : Print "Screenplay: Richard Blake."
  142.    Locate 5,10 : Print "Photography: John Seitz."
  143.    Locate 5,11 : Print "Art Direction: Boris Leven."
  144.    Locate 5,12 : Print "Music: Raoul Kraushaar."
  145.    Locate 5,13 : Print "Editing: Arthur Roberts."
  146.    Locate 5,15 : Print "Leading Players: Helena Carter, Arthur Franz, Jimmy Hunt,"
  147.    Locate 5,16 : Print "Leif Erickson, Hillary Brooke, Morris Ankrum."
  148.    Locate 5,17 : Print "USA, 1953, Colour, 78 mins."
  149.    Locate 5,19 : Print "An engaging sci-fi film mainly aimed at children, which over "
  150.    Locate 5,20 : Print "the years has gained a decidedly strong cult following."
  151.    Locate 5,21 : Print "One of the movies most original aspects was to tell the story"
  152.    Locate 5,22 : Print "from the child's point of view, giving the film an atmospheric"
  153.    Locate 5,23 : Print "and uneasy atmosphere. The film was originally intended to be"
  154.    Locate 5,24 : Print "to be shot in 3D but was finally shot 'flat'."
  155.    Reserve Zone 1
  156.    Set Zone 1,345,200 To 560,230
  157.    Locate 50,26 : Print " RETURN TO"
  158.    Locate 52,27 : Print "MENU."
  159.    Do 
  160.       Z=Mouse Zone
  161.       If Z=1 and Mouse Key=1 Then Screen Close 1 : MENU
  162.    Loop 
  163. End Proc
  164. '
  165. Procedure INFO3
  166.    Screen Open 1,640,250,8,Hires
  167.    Curs Off : Cls 0
  168.    Paper 0 : Pen 1 : Palette ,$FF0
  169.    Box 630,14 To 12,240
  170.    Box 345,200 To 560,230
  171.    Locate 24,5 : Print "THE DAY OF THE TRIFFIDS"
  172.    Locate 5,7 : Print "A Security Pictures release."
  173.    Locate 5,8 : Print "Directed by: Steve Sekely."
  174.    Locate 5,9 : Print "Screenplay: Philip Yordon, (Based on the novel by John Wyndham)."
  175.    Locate 5,10 : Print "Photography: George Pitcher."
  176.    Locate 5,11 : Print "Special Photography: Wally Veevers."
  177.    Locate 5,12 : Print "Art Direction: Cedric Dawe."
  178.    Locate 5,13 : Print "Music: Ron Goodwin."
  179.    Locate 5,15 : Print "Leading Players: Howard Keel, Nicole Maurey, Janette Scott,"
  180.    Locate 5,16 : Print "Kieron Moore, Mervyn Johns."
  181.    Locate 5,17 : Print "GB, 1962, Colour, 94 Mins."
  182.    Locate 5,19 : Print "A quite successful film version of one of the great sci-fi"
  183.    Locate 5,20 : Print "novels. The film is an entertaining experience, but sometimes"
  184.    Locate 5,21 : Print "suffers due to the low budget used. The triffids themselves"
  185.    Locate 5,22 : Print "are generally well done and some of the camera work and"
  186.    Locate 5,23 : Print "lighting is imaginatively done."
  187.    Locate 5,24 : Print "The lighthouse scenes with Kieron Moore and Janette Scott"
  188.    Locate 5,25 : Print "were directed by Freddie Francis."
  189.    Reserve Zone 1
  190.    Set Zone 1,345,200 To 560,230
  191.    Locate 50,26 : Print " RETURN TO"
  192.    Locate 52,27 : Print "MENU."
  193.    Do 
  194.       Z=Mouse Zone
  195.       If Z=1 and Mouse Key=1 Then Screen Close 1 : MENU
  196.    Loop 
  197. End Proc
  198. '
  199. Procedure INFO4
  200.    Screen Open 1,640,250,8,Hires
  201.    Curs Off : Cls 0
  202.    Paper 0 : Pen 1 : Palette ,$FF0
  203.    Box 630,14 To 12,240
  204.    Box 345,200 To 560,230
  205.    Locate 33,4 : Print "THE MUMMY"
  206.    Locate 5,6 : Print "A Hammer Films production."
  207.    Locate 5,7 : Print "Directed by Terence Fisher."
  208.    Locate 5,8 : Print "Producer: Michael Carreras."
  209.    Locate 5,9 : Print "Screenplay: Jimmy Sangster."
  210.    Locate 5,10 : Print "Story: John L. Balderston."
  211.    Locate 5,11 : Print "Photography: Jack Asher."
  212.    Locate 5,12 : Print "Make-up effects: Roy Ashton."
  213.    Locate 5,13 : Print "Editor: James Needs."
  214.    Locate 5,14 : Print "Music: Frank Reizenstein."
  215.    Locate 5,15 : Print "Leading Players: Peter Cushing, Christopher Lee,"
  216.    Locate 5,16 : Print "Yvonne Furneaux, Eddie Byrne."
  217.    Locate 5,17 : Print "GB, 1959, Colour, 88 mins."
  218.    Locate 5,18 : Print "An excellent Hammer remake of the horror classic."
  219.    Locate 5,19 : Print "The film is impressively mounted and looks far more expensive than it's"
  220.    Locate 5,20 : Print "relatively low budget should allow and whilst rather talky in places,"
  221.    Locate 5,21 : Print "is a strong genre movie."
  222.    Locate 5,22 : Print "Terence Fisher directs with his usual gothic flair and Christopher Lee"
  223.    Locate 5,23 : Print "makes an impressive mummy."
  224.    Reserve Zone 1
  225.    Set Zone 1,345,200 To 560,230
  226.    Locate 50,26 : Print " RETURN TO"
  227.    Locate 52,27 : Print "MENU."
  228.    Do 
  229.       Z=Mouse Zone
  230.       If Z=1 and Mouse Key=1 Then Screen Close 1 : MENU
  231.    Loop 
  232. End Proc
  233. '
  234. Procedure INFO5
  235.    Screen Open 1,640,250,8,Hires
  236.    Curs Off : Cls 0
  237.    Paper 0 : Pen 1 : Palette ,$FF0
  238.    Box 630,14 To 12,240
  239.    Box 345,200 To 560,230
  240.    Locate 30,5 : Print "FIRST MEN IN THE MOON"
  241.    Locate 5,7 : Print "An Ameran Release."
  242.    Locate 5,8 : Print "Directed by: Nathan Juran."
  243.    Locate 5,9 : Print "Screenplay: Nigel Kneal, Jan Read, (From the novel by H.G. Wells)."
  244.    Locate 5,10 : Print "Photography: Wilkie Cooper."
  245.    Locate 5,11 : Print "Special Effects: Ray Harryhausen."
  246.    Locate 5,12 : Print "Art Direction: John Blezard."
  247.    Locate 5,13 : Print "Music: Laurie Johnson."
  248.    Locate 5,14 : Print "Editing: Maurice Rootes."
  249.    Locate 5,16 : Print "Leading Players: Edward Judd, Lionel Jeffries, Martha Hyer,"
  250.    Locate 5,17 : Print "Erik Chitty, Betty McDowall, Miles Malleson."
  251.    Locate 5,18 : Print "GB, 1964, Technicolor, Panavision, 103 mins."
  252.    Locate 5,20 : Print "Easily one of the most underated science fiction movies of"
  253.    Locate 5,21 : Print "them all. The film is a hugely enjoyable and imaginative"
  254.    Locate 5,22 : Print "working of the H.G. Wells classic with the usual high standard"
  255.    Locate 5,23 : Print "special effects by the legendary Ray Harryhausen."
  256.    Locate 5,24 : Print "The film is extremely well made and acted, with the scientific"
  257.    Locate 5,25 : Print "details quite high for the time."
  258.    Locate 5,26 : Print "An unheralded classic, one of the best"
  259.    Locate 5,27 : Print "H.G. Wells adaptations in the movies."
  260.    Reserve Zone 1
  261.    Set Zone 1,345,200 To 560,230
  262.    Locate 50,26 : Print " RETURN TO"
  263.    Locate 52,27 : Print "MENU."
  264.    Do 
  265.       Z=Mouse Zone
  266.       If Z=1 and Mouse Key=1 Then Screen Close 1 : MENU
  267.    Loop 
  268. End Proc
  269. '
  270. Procedure INFO6
  271.    Screen Open 1,640,250,8,Hires
  272.    Curs Off : Cls 0
  273.    Paper 0 : Pen 1 : Palette ,$FF0
  274.    Box 630,14 To 12,240
  275.    Box 345,200 To 560,230
  276.    Locate 30,5 : Print "WHEN DINOSAURS RULED THE EARTH"
  277.    Locate 5,7 : Print "A Hammer Films Production."
  278.    Locate 5,8 : Print "Directed by: Val Guest."
  279.    Locate 5,9 : Print "Screenplay: Val Guest."
  280.    Locate 5,10 : Print "Photography: Dick Bush."
  281.    Locate 5,11 : Print "Special visual effects: Jim Danforth, David Allen."
  282.    Locate 5,12 : Print "Music: Mario Nascimbene."
  283.    Locate 5,13 : Print "Editing: Peter Curren."
  284.    Locate 5,15 : Print "Leading Players: Victoria Vetri, Robin Hawdon, Patrick Allen,"
  285.    Locate 5,16 : Print "Drewe Henley, Imogen Hassall."
  286.    Locate 5,17 : Print "GB, 1969, Technicolor, 100 mins."
  287.    Locate 5,19 : Print "An enjoyable follow-up to Raquel Welch's ONE MILLION YEARS B.C."
  288.    Locate 5,20 : Print "this time with Victoria Vetri as the equally good looking"
  289.    Locate 5,21 : Print "cave-woman battling prehistoric beasts. No Ray Harryhausen this"
  290.    Locate 5,22 : Print "time, but the effects are still extremeley well done."
  291.    Locate 5,23 : Print "Good use of locations that gives the film a prime-evil"
  292.    Locate 5,24 : Print "atmosphere that propels the film along nicely."
  293.    Reserve Zone 1
  294.    Set Zone 1,345,200 To 560,230
  295.    Locate 50,26 : Print " RETURN TO"
  296.    Locate 52,27 : Print "MENU."
  297.    Do 
  298.       Z=Mouse Zone
  299.       If Z=1 and Mouse Key=1 Then Screen Close 1 : MENU
  300.    Loop 
  301. End Proc
  302. '
  303. Procedure INFO7
  304.    Screen Open 2,640,250,8,Hires
  305.    Curs Off : Cls 0
  306.    Paper 0 : Pen 1 : Palette ,$FF0
  307.    Box 630,14 To 12,240
  308.    Box 345,200 To 560,230
  309.    Locate 25,5 : Print "THE AMAZING COLOSSAL MAN"
  310.    Locate 5,7 : Print "Samuel Z. Arkoff Productions."
  311.    Locate 5,8 : Print "Directed by: Bert I. Gordon."
  312.    Locate 5,9 : Print "Screenplay: Mark Hanna, Bert I. Gordon."
  313.    Locate 5,11 : Print "Photography: Joseph Biroc."
  314.    Locate 5,12 : Print "Special Effects: Bert I. Gordon."
  315.    Locate 5,13 : Print "Music: Albert Glasser."
  316.    Locate 5,14 : Print "Editing: Ronald Sinclair."
  317.    Locate 5,16 : Print "Leading Players: Glenn Langan, Cathy Downs, William Hudson,"
  318.    Locate 5,17 : Print "James Seay, Larry Thor."
  319.    Locate 5,18 : Print "USA, 1957, Black & White, 80 mins."
  320.    Locate 5,20 : Print "An effective low-budget film, the complete reverse of THE'"
  321.    Locate 5,21 : Print "INCREDILBE SHRINKING MAN, made in the same year."
  322.    Locate 5,22 : Print "Although some of the effects are sub-standard, the film is"
  323.    Locate 5,23 : Print "inteligentley handled and famous low-budget director, Bert"
  324.    Locate 5,24 : Print "I. Gordon does a comendable job."
  325.    Locate 5,25 : Print "The movie was a box-office success"
  326.    Locate 5,26 : Print "and led to a sequel, WAR OF THE"
  327.    Locate 5,27 : Print "COLOSSAL BEAST the following year."
  328.    Reserve Zone 1
  329.    Set Zone 1,345,200 To 560,230
  330.    Locate 50,26 : Print " RETURN TO"
  331.    Locate 52,27 : Print "MENU."
  332.    Do 
  333.       Z=Mouse Zone
  334.       If Z=1 and Mouse Key=1 Then Screen Close 2 : MENU
  335.    Loop 
  336. End Proc
  337. '
  338. Procedure INFO8
  339.    Screen Open 4,640,250,8,Hires
  340.    Curs Off : Cls 0
  341.    Paper 0 : Pen 1 : Palette ,$FF0
  342.    Box 630,14 To 12,240
  343.    Box 345,200 To 560,230
  344.    Locate 33,5 : Print "HOUSE OF WAX."
  345.    Locate 5,7 : Print "Warner Brothers."
  346.    Locate 5,8 : Print "Directed by: Andre' de Toth."
  347.    Locate 5,9 : Print "Screenplay: Crane Wilbur."
  348.    Locate 5,10 : Print "Photography: Bert Glennon Peverell Marley."
  349.    Locate 5,11 : Print "Art Direction: Stanley Fleischer."
  350.    Locate 5,12 : Print "Music: David Buttolph."
  351.    Locate 5,13 : Print "Editing: Rudi Fehr."
  352.    Locate 5,15 : Print "Leading Players: Vincent Price, Frank Lovejoy, Phyllis Kirk,"
  353.    Locate 5,16 : Print "Carolyn Jones, Paul Picerni, Charles Bronson."
  354.    Locate 5,17 : Print "USA, 1953, Colour, 3D, 88 mins."
  355.    Locate 5,19 : Print "This film was shot at the height of the 3D craze in"
  356.    Locate 5,20 : Print "the 50s and is possibly the best film shot in that proccess."
  357.    Locate 5,21 : Print "The movie is also worthy of note as Vincent Price's first"
  358.    Locate 5,22 : Print "horror film, a genre, that along with Christopher Lee and"
  359.    Locate 5,23 : Print "Peter Cushing, he was to dominate."
  360.    Locate 5,24 : Print "A well made shocker, the film is well"
  361.    Locate 5,25 : Print "acted by a strong cast and Charles"
  362.    Locate 5,26 : Print "Bronson can be glimpsed as Price's"
  363.    Locate 5,27 : Print "mute servent Igor."
  364.    Reserve Zone 1
  365.    Set Zone 1,345,200 To 560,230
  366.    Locate 50,26 : Print " RETURN TO"
  367.    Locate 52,27 : Print "MENU."
  368.    Do 
  369.       Z=Mouse Zone
  370.       If Z=1 and Mouse Key=1 Then Screen Close 4 : MENU
  371.    Loop 
  372. End Proc
  373. '
  374. Procedure INFO12
  375.    Screen Open 4,640,250,8,Hires
  376.    Curs Off : Cls 0
  377.    Paper 0 : Pen 1 : Palette ,$FF0
  378.    Box 630,14 To 12,240
  379.    Box 345,200 To 560,230
  380.    Locate 27,5 : Print "CURSE OF THE DEMON"
  381.    Locate 27,6 : Print "(Night Of The Demon)"
  382.    Locate 5,7 : Print "A Columbia Release."
  383.    Locate 5,8 : Print "Directed by: Jacques Tourneur."
  384.    Locate 5,9 : Print "Screenplay: Charles Bennett Hal E. Chester."
  385.    Locate 5,10 : Print "Photography: Ted Scaife."
  386.    Locate 5,11 : Print "Production Design: Ken Adam."
  387.    Locate 5,12 : Print "Special Effects: George Blackwell, Wally Veevers."
  388.    Locate 5,13 : Print "Music: Clifton Parker."
  389.    Locate 5,15 : Print "Leading Players: Dana Andrews, Peggy Cummins,"
  390.    Locate 5,16 : Print "Niall MacGinnis, Maurice Denham, Athene Seyler, Liam Redmond."
  391.    Locate 5,17 : Print "GB, 1956, Black & White, 95 mins."
  392.    Locate 5,19 : Print "Superbly atmospheric chiller, easily Tourneur's best work"
  393.    Locate 5,20 : Print "since his days at RKO with Val Lewton. One of the most"
  394.    Locate 5,21 : Print "scary black-and-white horror films made."
  395.    Locate 5,22 : Print "The film is filled with good performances and some good"
  396.    Locate 5,23 : Print "shock effects, designed to"
  397.    Locate 5,24 : Print "make you jump out of your seat."
  398.    Locate 5,25 : Print "The films original title in the U.K."
  399.    Locate 5,26 : Print "was NIGHT OF THE DEMON."
  400.    Reserve Zone 1
  401.    Set Zone 1,345,200 To 560,230
  402.    Locate 50,26 : Print " RETURN TO"
  403.    Locate 52,27 : Print "MENU."
  404.    Do 
  405.       Z=Mouse Zone
  406.       If Z=1 and Mouse Key=1 Then Screen Close 4 : MENU
  407.    Loop 
  408. End Proc
  409. '
  410. Procedure INFO13
  411.    Screen Open 4,640,250,8,Hires
  412.    Curs Off : Cls 0
  413.    Paper 0 : Pen 1 : Palette ,$FF0
  414.    Box 630,14 To 12,240
  415.    Box 345,200 To 560,230
  416.    Locate 28,5 : Print "ATTACK OF THE 50ft WOMAN."
  417.    Locate 5,7 : Print "Allied Artists Productions."
  418.    Locate 5,8 : Print "Directed by: Nathan Hertz ."
  419.    Locate 5,9 : Print "Screenplay: Mark Hanna."
  420.    Locate 5,10 : Print "Photography: Jacques Marquette."
  421.    Locate 5,12 : Print "Music: Ronald Stein."
  422.    Locate 5,13 : Print "Editing: Edward Mann."
  423.    Locate 5,15 : Print "Leading Players: Allison Hayes, William Hudson, Roy Gordon,"
  424.    Locate 5,16 : Print "Yvette Vickers, Ken Terrell, George Douglas."
  425.    Locate 5,17 : Print "USA, 1958, Black & White, 68 mins."
  426.    Locate 5,19 : Print "A true cult-movie low-budget classic if ever there was one."
  427.    Locate 5,20 : Print "The film is quite dotty in conception and execution, but it's"
  428.    Locate 5,21 : Print "straight-faced air of seriousness makes it a hughely"
  429.    Locate 5,22 : Print "entertaining minor genre entry."
  430.    Locate 5,23 : Print "Made at a time when hundreds of low-budget"
  431.    Locate 5,24 : Print "sci-fi films were in production,"
  432.    Locate 5,25 : Print "the film throughout the years has"
  433.    Locate 5,26 : Print "gained an enormous cult following."
  434.    Reserve Zone 1
  435.    Set Zone 1,345,200 To 560,230
  436.    Locate 50,26 : Print " RETURN TO"
  437.    Locate 52,27 : Print "MENU."
  438.    Do 
  439.       Z=Mouse Zone
  440.       If Z=1 and Mouse Key=1 Then Screen Close 4 : MENU
  441.    Loop 
  442. End Proc
  443. '
  444. '
  445. Procedure ABOUT
  446.    Screen Open 2,320,250,8,Lowres
  447.    Curs Off : Cls 0
  448.    Paper 0 : Pen 1 : Palette ,$FF0
  449.    Locate 3,6 : Print "THE CLASSIC SCI-FI AND HORROR MOVIE"
  450.    Locate 12,7 : Print "SLIDESHOW  VOL 2."
  451.    Locate 14,8 : Print "By Chris Murphy."
  452.    Locate 12,10 : Print "Tools Used: Photon Paint"
  453.    Locate 24,11 : Print "Amos v1.34."
  454.    Locate 12,13 : Print "Created 3/6/94."
  455.    Locate 3,15 : Print "Now includes horror movie posters."
  456.    Locate 2,17 : Print "Any feedback on this program would be,"
  457.    Locate 2,18 : Print "welcome, as i have many more posters"
  458.    Locate 2,19 : Print "for inclusion in a future edition."
  459.    Locate 3,21 : Print "Address any correspondence to..."
  460.    Locate 3,22 : Print "C. Murphy,"
  461.    Locate 3,23 : Print "40 Talbot Road,"
  462.    Locate 3,24 : Print "East Ham, London,"
  463.    Locate 3,25 : Print "E6, 2RZ."
  464.    Locate 14,2 : Print "Click here"
  465.    Locate 14,3 : Print "to return."
  466.    Box 100,12 To 220,34
  467.    Reserve Zone 1
  468.    Set Zone 1,100,12 To 220,34
  469.    Do 
  470.       Z=Mouse Zone
  471.       If Z=1 and Mouse Key=1 Then Screen Close 2 : MENU
  472.    Loop 
  473. End Proc