home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd503 / daxid_smith / readme.amos / readme.amosSourceCode
AMOS Source Code  |  1986-08-03  |  9KB  |  269 lines
  1. Dim LINE$(200)
  2. Global PAGE,LINE$(),PAGEMAX,LINEMAX
  3. '
  4. Screen Open 1,640,256,16,Hires
  5. Curs Off : Flash Off 
  6. Cls 0
  7. Gr Writing 0
  8. Reserve Zone 10
  9. Paper 9 : Pen 1
  10. Limit Mouse 128,42 To 448,294
  11. Colour 0,$AAE
  12. Colour 1,0
  13. Colour 2,$CCF
  14. Colour 3,0
  15. Colour 4,$EEF
  16. '
  17. Colour 5,$558 : Rem___shadow for windows 
  18. Colour 6,$DDF : Rem___highlight for windows
  19. Colour 7,$AAD : Rem___background for windows 
  20. '
  21. Colour 8,$99E : Rem___control buttons
  22. Colour 9,$66B
  23. Colour 10,$337
  24. '
  25. Colour 15,$F70
  26. Colour 17,0
  27. Colour 18,$F00
  28. '
  29. Ink 1
  30. QX=30 : QY=230 : Rem___buttons
  31. For I=1 To 4
  32.    Ink 9
  33.    Bar QX,QY To QX+135,QY+15
  34.    Ink 8
  35.    Polyline QX,QY+15 To QX,QY To QX+135,QY
  36.    Polyline QX+1,QY+15 To QX+1,QY+1 To QX+135,QY+1
  37.    Draw QX+2,QY To QX+2,QY+15
  38.    Ink 10
  39.    Polyline QX,QY+15 To QX+135,QY+15 To QX+135,QY+1
  40.    Polyline QX+1,QY+14 To QX+134,QY+14 To QX+134,QY+2
  41.    Draw QX+133,QY+2 To QX+133,QY+15
  42.    Ink 4 : Bar QX+1,QY+1 To QX+3,QY+2
  43.    Set Zone I,QX,QY To QX+135,QY+15
  44.    Add QX,147
  45. Next I
  46. Ink 1
  47. Text 60,240,"Next page"
  48. Text 195,240,"Previous page"
  49. Text 370,240,"Print"
  50. Text 520,240,"Quit"
  51. '
  52. QX=30 : QY=4 : Rem___header 
  53. Ink 9
  54. Bar QX,QY To QX+588,QY+15
  55. Ink 8
  56. Polyline QX,QY+15 To QX,QY To QX+588,QY
  57. Polyline QX+1,QY+15 To QX+1,QY+1 To QX+588,QY+1
  58. Draw QX+2,QY To QX+2,QY+15
  59. Ink 10
  60. Polyline QX,QY+15 To QX+588,QY+15 To QX+588,QY+1
  61. Polyline QX+1,QY+14 To QX+587,QY+14 To QX+587,QY+2
  62. Draw QX+586,QY+2 To QX+586,QY+15
  63. Ink 4 : Bar QX+1,QY+1 To QX+3,QY+2
  64. Locate ,1 : Centre "D_Solve Crossword    (c)David Smith 1993"
  65. '
  66. WORDS
  67. PAGE_ONE
  68. PAGE=1
  69. PAGEMAX=4 : Rem___set this according to each file
  70. LINEMAX=100 : Rem___set according to each file 
  71. '
  72. Do 
  73.    If Mouse Key=1 and Mouse Zone=1 : Rem___next 
  74.       Ink 4
  75.       Text 60,240,"Next page"
  76.       While Mouse Key=1 : Wend 
  77.       Ink 1
  78.       Text 60,240,"Next page"
  79.       Cls 0,6,20 To 634,229
  80.       Add PAGE,1
  81.       If PAGE>PAGEMAX
  82.          PAGE=1
  83.       End If 
  84.       WHICH_PAGE
  85.    End If 
  86.    If Mouse Key=1 and Mouse Zone=2 : Rem___previous 
  87.       Ink 4
  88.       Text 195,240,"Previous page"
  89.       While Mouse Key=1 : Wend 
  90.       Ink 1
  91.       Text 195,240,"Previous page"
  92.       Cls 0,6,20 To 634,229
  93.       Add PAGE,-1
  94.       If PAGE<1
  95.          PAGE=PAGEMAX
  96.       End If 
  97.       WHICH_PAGE
  98.    End If 
  99.    If Mouse Key=1 and Mouse Zone=3 : Rem___print
  100.       Ink 4
  101.       Text 370,240,"Print"
  102.       While Mouse Key=1 : Wend 
  103.       Ink 1
  104.       Text 370,240,"Print"
  105.       D_PRINT
  106.    End If 
  107.    If Mouse Key=1 and Mouse Zone=4 : Rem___quit 
  108.       Ink 4
  109.       Text 520,240,"Quit"
  110.       While Mouse Key=1 : Wend 
  111.       Ink 1
  112.       Text 520,240,"Quit"
  113.       Fade 1 : Wait 25
  114.       Edit 
  115.    End If 
  116. Loop 
  117. '
  118. Procedure WORDS
  119.    LINE$(1)="D_Solve Crossword      Written and compiled using AMOS Professional"
  120.    LINE$(2)="    "
  121.    LINE$(3)="Crossword Compilations, and Program (c)David Smith 1993"
  122.    LINE$(4)="    "
  123.    LINE$(5)="This program is available on Public Domain. The disc contains:"
  124.    LINE$(6)="1. Readme file"
  125.    LINE$(7)="2. Crossword file"
  126.    LINE$(8)="3. Two crossword formats, with accompanying solutions"
  127.    LINE$(9)="    "
  128.    LINE$(10)="If you enjoy these, and would like more to try, send your disc,"
  129.    LINE$(11)="together with ï¿½1-50 (inc p+p) to:"
  130.    LINE$(12)="    "
  131.    LINE$(13)="David Smith"
  132.    LINE$(14)="The Old Bell"
  133.    LINE$(15)="Whittington"
  134.    LINE$(16)="Kings Lynn"
  135.    LINE$(17)="Norfolk  PE33 9TE"
  136.    LINE$(18)="    "
  137.    LINE$(19)="I will load a further two solution files, and format files"
  138.    LINE$(20)="as necessary, onto your disc, which I shall then return."
  139.    LINE$(21)="Please make sure your name and address are on the disc!"
  140.    LINE$(22)="    "
  141.    LINE$(23)="    "
  142.    LINE$(24)="The program..."
  143.    LINE$(25)="    "
  144.    LINE$(26)="Instruction screen:"
  145.    LINE$(27)="    "
  146.    LINE$(28)="Instructions for basic loading, saving and using the "
  147.    LINE$(29)="program. Loading is done in two stages: 1) load the FORMAT"
  148.    LINE$(30)="file, or the crossword skeleton, and 2) loading the SOLUTION"
  149.    LINE$(31)="file, which contains the clues and answers."
  150.    LINE$(32)="    "
  151.    LINE$(33)="Loading the files:"
  152.    LINE$(34)="    "
  153.    LINE$(35)="The format and solution files are loaded in that order. Select"
  154.    LINE$(36)="by double clicking on required files, or single click followed"
  155.    LINE$(37)="by click on <OK>. Make sure that the code numbers (but not"
  156.    LINE$(38)="necessarily the letters) are the same for both Format and "
  157.    LINE$(39)="Solution. For example, Format 1.iff will be compatible with"
  158.    LINE$(40)="Solution 1a.sol, Solution 1b.sol, and so on. When both are"
  159.    LINE$(41)="selected the crossword screen will appear, with the first"
  160.    LINE$(42)="across and down clues displayed, and the appropriate"
  161.    LINE$(43)="crossword squares highlighted."
  162.    LINE$(44)="    "
  163.    LINE$(45)="Selecting a clue:"
  164.    LINE$(46)="    "
  165.    LINE$(47)="This can be done in two ways: 1) The scroll buttons "
  166.    LINE$(48)="alongside the answer windows will scroll up and down"
  167.    LINE$(49)="through across and down clues, highlighting the appropriate"
  168.    LINE$(50)="crossword squares at the same time. There will be a slight"
  169.    LINE$(51)="delay before new clues and highlighted squares are displayed."
  170.    LINE$(52)="2) Click with the left mouse button on the first square of "
  171.    LINE$(53)="the required across answer squares on the actual crossword, or"
  172.    LINE$(54)="with the right button on the first square of the down answer."
  173.    LINE$(55)="The appropriate clues will appear in the clue windows."
  174.    LINE$(56)="    "
  175.    LINE$(57)="Entering an answer:"
  176.    LINE$(58)="    "
  177.    LINE$(59)="Click in the answer window with the left mouse button, input"
  178.    LINE$(60)="the answer (if it is too long or too short it will tell you!)"
  179.    LINE$(61)="and the answer will be displayed in the appropriate squares."
  180.    LINE$(62)="Incorrect answers can be overwritten by inputting the correct"
  181.    LINE$(63)="one. To delete an answer, press <RETURN> without inputting any"
  182.    LINE$(64)="letters or spaces. Answers will appear in upper case"
  183.    LINE$(65)="automatically. Do not input spaces or punctuation."
  184.    LINE$(66)="    "
  185.    LINE$(67)="Quit:"
  186.    LINE$(68)="    "
  187.    LINE$(69)="To quit the program, and return to Workbench"
  188.    LINE$(70)="    "
  189.    LINE$(71)="Save:"
  190.    LINE$(72)="    "
  191.    LINE$(73)="To save a partly completed solution. Select the current .sol"
  192.    LINE$(74)="file at the requester, or save under a new name to preserve"
  193.    LINE$(75)="the original in its blank condition."
  194.    LINE$(76)="    "
  195.    LINE$(77)="Clear:"
  196.    LINE$(78)="    "
  197.    LINE$(79)="To clear the current crossword, prior to loading another."
  198.    LINE$(80)="You will be returned to the instruction screen."
  199.    LINE$(81)="    "
  200.    LINE$(82)="The jotter pad:"
  201.    LINE$(83)="    "
  202.    LINE$(84)="This is the large window below the top row of buttons."
  203.    LINE$(85)="Click in the window with the left mouse to enter the"
  204.    LINE$(86)="pad routine. The mouse pointer will be held in the pad area"
  205.    LINE$(87)="until <EXIT PAD> is clicked. Once the jotter pad is active"
  206.    LINE$(88)="text can be written at the last mouse click position. It is"
  207.    LINE$(89)="a very simple text device. It will not carriage return, or"
  208.    LINE$(90)="backspace, and nor will the cursor keys operate. Text can be "
  209.    LINE$(91)="placed anywhere within the window by clicking with the left"
  210.    LINE$(92)="mouse. The pad can be cleared using the <CLEAR PAD> button,"
  211.    LINE$(93)="or more selectively by dragging a box with the right button."
  212.    LINE$(94)="Exiting will not clear the pad, but <CLEAR PAD> can be"
  213.    LINE$(95)="selected whether the pad is active or not."
  214.    LINE$(96)="    "
  215.    LINE$(97)="Answer button:"
  216.    LINE$(98)="    "
  217.    LINE$(99)="Clears the jotter pad and displays the correct answers"
  218.    LINE$(100)="to the current clues."
  219. End Proc
  220. '
  221. Procedure WHICH_PAGE
  222.    If PAGE=1 : PAGE_ONE : End If 
  223.    If PAGE=2 : PAGE_TWO : End If 
  224.    If PAGE=3 : PAGE_THREE : End If 
  225.    If PAGE=4 : PAGE_FOUR : End If 
  226. End Proc
  227. '
  228. Procedure PAGE_ONE
  229.    Paper 9
  230.    Locate 65,1 : Print "Page 1  "
  231.    Paper 0
  232.    For L=1 To 25
  233.       Locate 4,L+2 : Print LINE$(L)
  234.    Next L
  235. End Proc
  236. '
  237. Procedure PAGE_TWO
  238.    Paper 9
  239.    Locate 65,1 : Print "Page 2  "
  240.    Paper 0
  241.    For L=1 To 25
  242.       Locate 4,L+2 : Print LINE$(L+25)
  243.    Next L
  244. End Proc
  245. '
  246. Procedure PAGE_THREE
  247.    Paper 9
  248.    Locate 65,1 : Print "Page 3  "
  249.    Paper 0
  250.    For L=1 To 25
  251.       Locate 4,L+2 : Print LINE$(L+50)
  252.    Next L
  253. End Proc
  254. '
  255. Procedure PAGE_FOUR
  256.    Paper 9
  257.    Locate 65,1 : Print "Page 4  "
  258.    Paper 0
  259.    For L=1 To 25
  260.       Locate 4,L+2 : Print LINE$(L+75)
  261.    Next L
  262. End Proc
  263. '
  264. Procedure D_PRINT
  265.    Lprint 
  266.    For P=1 To LINEMAX
  267.       Lprint LINE$(P)
  268.    Next P
  269. End Proc