home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / PRO_S.PULLINGER / Any_Key.Amos / Any_Key.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  840 b   |  28 lines
  1. ' Press any key prompt in Interface - Steve Pullinger
  2. ' Waits for keyboard or LMB
  3.  
  4. ' Initialise Interface resources 
  5.  
  6. Load "AMOSPro_Tutorial:Tutorials/Interface/Example_resource.abk"
  7. Resource Bank 16
  8. Resource Screen Open 0,640,200,0
  9. Flash Off : Curs Off : Cls 0 : Paper 0 : Pen 8
  10. Palette ,,,,$840,$C84,$FC8,$FEB
  11. Wait Vbl 
  12.  
  13.  
  14. ' Interface Program
  15.  
  16. ANY_KEY$=ANY_KEY$+"BAse     80,40;"
  17. ANY_KEY$=ANY_KEY$+"SetVar   1,'Press Any Key' ;"
  18. ANY_KEY$=ANY_KEY$+"SIze     1VATextWidth32+,TextHeight4*;"
  19. ANY_KEY$=ANY_KEY$+"BAse     ScreenWidth SizeX-2/,ScreenHeight SizeY-2/;"
  20. ANY_KEY$=ANY_KEY$+"SAve     1;"
  21. ANY_KEY$=ANY_KEY$+"BOx      0,0,1,SizeX,SizeY;"
  22. ANY_KEY$=ANY_KEY$+"POutline 1VACentreX,10,1VA,0,3;"
  23. ANY_KEY$=ANY_KEY$+"RUn      0,%1111;" : Rem Clear buffers wait for key 
  24. ANY_KEY$=ANY_KEY$+"EXit;"
  25.  
  26. ' Call ANY_KEY$ program
  27.  
  28. X=Dialog Box(ANY_KEY$)