home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / misc / amoner01.dms / in.adf / Forins.AMOS / Forins.amosSourceCode
Encoding:
AMOS Source Code  |  1988-01-20  |  914 b   |  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 "Amoner001:Fortron.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,"Amoner001:Forins.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