home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 226-250 / apd246 / loader / loader.amosSourceCode < prev    next >
AMOS Source Code  |  1991-06-26  |  637b  |  24 lines
  1. Screen Open 0,640,10,2,Hires
  2. GO
  3. Screen Close 0 : Screen Close 1 : End 
  4. Procedure GO
  5.    Curs Off 
  6.    If Fast Free=0
  7.       Unpack 1 To 0 : Ink 0 : Bar 0,160 To 640,256
  8.       Paper 0 : Pen 5 : Curs Off 
  9.       Locate 0,20 : Centre "I am sorry but you need at least 1 Meg of memory to run this version!"
  10.       Print : Centre " Press a key to exit"
  11.       Bar 0,0 To 20,10
  12.       Wait Key : Pop Proc
  13.    End If 
  14.    Hide On 
  15.    Unpack 2 To 1 : Screen Hide 1
  16.    Unpack 1 To 0
  17.    Erase 1 : Erase 2
  18.    Do 
  19.       While Inkey$=""
  20.       Wend 
  21.       A=Scancode
  22.       If A=$50 Then Fade 2 : Wait 40 : Screen Close 0 : Run "Niall3:Niall3"
  23.    Loop 
  24. End Proc