home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd519 / loader / loader.amosSourceCode < prev    next >
AMOS Source Code  |  1992-01-28  |  6KB  |  255 lines
  1. Global PROG$
  2. Procedure TEST_MODE
  3.    Close Workbench 
  4.    Close Editor 
  5.    If Ntsc
  6.       Screen Open 0,640,200,2,Hires
  7.       Palette 0,$FFF
  8.       Curs Off 
  9.       Hide On 
  10.       Cls 0
  11.       Centre "<<< HELP ME, PLEASE !!! >>>"
  12.       Cmove 0,3
  13.       Centre "I'm trying to be nice to you so we can be good friends and all, but"
  14.       Cdown 
  15.       Centre "I'm having a little trouble. You see, I've just been bitten by the NTSC"
  16.       Cdown 
  17.       Centre "boot-up bug, and I'm feeling less than my usual self. But if you would be"
  18.       Cdown 
  19.       Centre "so kind as to reset me, I'm sure we can still be great PALs !!!"
  20.       Cmove 0,2
  21.       Centre "...Smash a key to continue..."
  22.       Wait Key 
  23.       System 
  24.    End If 
  25. End Proc
  26. Procedure MENU
  27.    Erase 7
  28.    Load "pix/menu.pak",8
  29.    Unpack 8 To 0
  30.    Erase 8
  31.    Screen Display 0,,-256,,
  32.    For I=-256 To 40 Step 10
  33.       Screen Display 0,,I,,
  34.       Wait Vbl 
  35.    Next I
  36.    For I=1 To 3
  37.       For J=40 To 50 Step 2
  38.          Screen Display 0,,J,,
  39.          Wait Vbl 
  40.       Next J
  41.       For J=50 To 40 Step -2
  42.          Screen Display 0,,J,,
  43.          Wait Vbl 
  44.       Next J
  45.    Next I
  46.    Change Mouse 2
  47.    Show On 
  48.    Reserve Zone 2
  49.    Set Zone 1,6,33 To 91,133
  50.    Set Zone 2,229,33 To 314,133
  51.    Repeat 
  52.       If Asc(Inkey$)=27
  53.          Fade 15
  54.          Wait 75
  55.          System 
  56.       End If 
  57.       If Mouse Key=1
  58.          If Mouse Zone=1
  59.             PROG$="intro"
  60.          End If 
  61.          If Mouse Zone=2
  62.             PROG$="lottomagic"
  63.          End If 
  64.       End If 
  65.       If Mouse Key=2
  66.          If Mouse Zone=1
  67.             _ASCIIREADER["pre-driver.doc"]
  68.          End If 
  69.          If Mouse Zone=2
  70.             _ASCIIREADER["lottomagic.doc"]
  71.          End If 
  72.       End If 
  73.    Until PROG$<>""
  74.    Fade 5
  75.    Wait 75
  76. End Proc
  77. Procedure TESTMEM
  78.    If(Chip Free+Fast Free)<512000
  79.       Load "pix/1meg.pak"
  80.       Unpack 7 To 0
  81.       Hide On 
  82.       Repeat 
  83.       Until Mouse Key
  84.       System 
  85.    End If 
  86. End Proc
  87. Procedure _ASCIIREADER[FILE$]
  88.    Screen Open 1,640,256,2,Hires
  89.    Screen Display 1,,320,,
  90.    Palette $4F,$FFF
  91.    Curs Off 
  92.    Cls 0
  93.    Centre ".....Reading Documentation....."
  94.    Print 
  95.    Open In 1,FILE$
  96.    Set Input 10,-1
  97.    TLINES=Lof(1)
  98.    For I=0 To 128 Step 2
  99.       Screen Display 1,,128-I+40,,I*2
  100.       Wait Vbl 
  101.    Next I
  102.    Repeat 
  103.       LINESGOT=0
  104.       FEND=False
  105.       While FEND<>True and LINESGOT<>24
  106.          If Pof(1)<>TLINES
  107.             Line Input #1,TXT$
  108.             Print TXT$
  109.             Inc LINESGOT
  110.          Else 
  111.             FEND=True
  112.          End If 
  113.       Wend 
  114.       If LINESGOT=24
  115.          Print 
  116.          Print 
  117.          Print 
  118.          Print "<<< Hit a key to continue >>>";
  119.          Cmove 20,
  120.          Print "<<< or Q to Quit document >>>";
  121.          Repeat 
  122.             X$=Inkey$
  123.          Until Asc(X$)<>0
  124.          If Asc(Upper$(X$))=81
  125.             LINESGOT=0
  126.          End If 
  127.          Cline 
  128.          Print 
  129.          Cmove 0,-4
  130.          Cline 
  131.       Else 
  132.          Print 
  133.          Print "<<< End of document >>>"
  134.          Wait Key 
  135.       End If 
  136.    Until LINESGOT<>24
  137.    For I=128 To 0 Step -2
  138.       Screen Display 1,,128-I+40,,I*2
  139.       Wait Vbl 
  140.    Next I
  141.    Screen Close 1
  142.    Close 1
  143. End Proc
  144. Procedure LETS_GO
  145. '
  146. '----------------------------------------------------------------------------
  147. '                Loader V1.22 by THE HITMAN/Karma Productions  
  148. '                      Beware of cheap imitations !! 
  149. '----------------------------------------------------------------------------
  150. '
  151. ' Original *** comments by The Hitman
  152. '
  153. ' Additional ~~~ comments by Golden Fleece 
  154. '
  155. '
  156. '
  157. '
  158. '                ***Let's free up all that juicy memory*** 
  159. '
  160. '   ~~~ Lets tidy up around here. Get all that junk off my desk!!! ~~~   
  161. '
  162.    While Screen<>-1
  163.       Screen Close Screen
  164.    Wend 
  165.    Close Workbench 
  166.    Close Editor 
  167. '
  168. '     ***Be an honest programmer...give the credit where it's due*** 
  169. '
  170. '               ~~~ But who programmed this anyway??? ~~~    
  171. '  
  172.    Unpack 6 To 0
  173.    Erase 6
  174.    Hide On 
  175.    Curs Off 
  176. '
  177. '                   ***It ain't by Queen, but it'll do***
  178. '
  179. '     ~~~ Here the sounds of music and it ain't Popcorn either ~~~       
  180. '
  181.    Load "fx/loadermusic.abk"
  182.    Music 1
  183. '
  184. '
  185. '         ***"Use the Force, Luke." commanded Obi Wan's ghost***         
  186. '
  187. '           ~~~  Lets see what we've got here, soon anyway ~~~   
  188. '
  189.    Unpack 5 To 1
  190.    Screen To Back 1
  191.    Erase 5
  192. '
  193. '                   ~~~ Times it perfectly ~~~ 
  194. '
  195.    S=Vumeter(0)
  196.    Repeat 
  197.       S=Vumeter(0)
  198.    Until S=>55
  199.    Screen Hide 0
  200.    Screen Close 0
  201. '
  202. ' ***Use Shift Up. It involves less typing than Shift Down (2 Chars)***
  203. '
  204.    Shift Up 5,1,31,1
  205. '
  206. '             ***"In time !" hissed Beelzebub to the priest*** 
  207. '
  208. '              ~~~ Time waits for no man (or woman either) ~~~ 
  209. '
  210.    Wait 250
  211. '
  212. '             ***Aaargh. Golden Fleece makes an appearance***  
  213. '
  214. '            ~~~ Sorry to disappoint you but I can't make it ~~~   
  215. '
  216.    Paper 0 : Pen 1
  217.    Locate ,30
  218. '
  219. '                           ***Shmack dat thang*** 
  220. '
  221. '             ~~~ Hit me. (Sorry no Samboy chips available here) ~~  
  222. '
  223.    Centre "  Smash a key or a button  "
  224. '
  225. '                                  ***Yawn***
  226. '
  227. '    ~~~ Hit something to continue (watch out for the screen!!!) ~~~     
  228. '  
  229.    Repeat 
  230.    ' Do you think this takes in everything ???? -G.F.   
  231.    ' Hell no !!!  -H.M. 
  232.    Until Mouse Key or Asc(Inkey$)<>0 or Fire(1)<>0 or Fire(0)<>0
  233.    Cline 
  234. '
  235. '                          ***Turn off that music*** 
  236. '
  237. '                ~~~ Fade away, fade away, fade away... ~~~  
  238. '
  239.    For I=63 To 0 Step -1
  240.       Mvolume I
  241.       Wait 3
  242.    Next I
  243.    Music Off 
  244.    Mvolume 63
  245. '
  246. '               ***Wow, are we gonna do something exciting now***  
  247. '
  248. '    ~~~ Well we certainly hope so but what could improve on the above ~~~ 
  249. '
  250.    Run "df0:"+PROG$
  251. End Proc
  252. TEST_MODE
  253. TESTMEM
  254. MENU
  255. LETS_GO