home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / d2.amos / d2.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-14  |  508b  |  25 lines
  1. '
  2. ' Bob joke 1 
  3. '
  4. ' J.Valks
  5. '----------------------------------- 
  6. INIT_SCHERM
  7. Do 
  8.  For T=1 To 15
  9.   If Mouse Click=1 Then Proc EINDE
  10.   Bob T,X Mouse-130,Y Mouse-30,1
  11.   Wait Vbl 
  12.  Next T
  13. Loop 
  14. '------------------------------------
  15. Procedure INIT_SCHERM
  16.  Break Off 
  17.  Screen Open 0,320,200,16,Lowres
  18.  Flash Off : Curs Off : Palette $0,$0,$FFF : Hide On : Double Buffer 
  19.  Locate 1,1 : Centre "Follow me guys !"
  20.  Locate 1,3 : Centre "press left button for menu"
  21. End Proc
  22. '
  23. Procedure EINDE
  24.  Run "menu.AMOS"
  25. End Proc