home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd558 / amoner1 / jigins.amos / jigins.amosSourceCode
AMOS Source Code  |  1993-11-29  |  897b  |  45 lines
  1. Screen Open 0,640,200,2,Hires
  2. Curs Off : Cls 0 : STAR=0
  3. Rem
  4. Rem Draw Dialog box. 
  5. Rem
  6. Box 200,50 To 400,100
  7. Box 220,80 To 280,90
  8. Box 320,80 To 380,90
  9. Locate 30,8 : Print " Instructions?"
  10. Text 238,88,"Yes"
  11. Text 343,88,"No"
  12. Rem
  13. Rem Set yes/no zones 
  14. Reserve Zone 2
  15. Set Zone 1,220,80 To 280,90
  16. Set Zone 2,320,80 To 380,90
  17. Rem
  18. Rem Catch mouse
  19. CATCH_MOUSE:
  20.   Repeat : Until Mouse Click
  21.   If Mouse Zone=2 or STAR=1 Then Run "Jigsaw10.Amos"
  22.   If Mouse Zone=1 Then RULES
  23. Goto CATCH_MOUSE
  24. Procedure RULES
  25. Cls 0 : Locate 1,1
  26. Set Input 10,-1
  27. Shared STAR
  28. Open In 1,"jigsaw10.txt"
  29. LINE=0
  30. GE_LINES:
  31.   Line Input #1,LINE$
  32.   Inc LINE
  33.   If Left$(LINE$,6)="end..." Then Goto FINITO
  34.   Print LINE$
  35.   If LINE=16
  36.     LINE=0
  37.     Locate 60,20 : Print "Click mouse."
  38.     Repeat : Until Mouse Click
  39.     Cls 0 : Locate 1,1
  40.   End If 
  41. Goto GE_LINES
  42. FINITO:
  43.   Locate 50,20 : Print "Click mouse to begin game."
  44.   STAR=1
  45. End Proc