home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd621 / harvey's_çollection / autoexec.amos / autoexec.amosSourceCode
AMOS Source Code  |  1986-08-03  |  2KB  |  39 lines
  1. PICK:
  2. Screen Open 0,320,256,16,Lowres : Curs Off : Hide : Cls 0 : Paper 0 : Ink 0
  3. For STAR=0 To 250
  4. A=Rnd(320) : B=Rnd(256) : C=Rnd(5) : Plot A,B,C
  5. Wait Vbl 
  6. Next STAR
  7. Pen 3 : Locate 0,3 : Centre "  <Harvey's Horrendous>"
  8. Locate 0,4 : Centre "<-Collection->"
  9. Pen 2 : Locate 0,7 : Centre "Pick a game, any game."
  10. Pen 4 : Locate 15,10 : Print "1:Back Chat."
  11. Pen 5 : Locate 15,12 : Print "2:Kingdom."
  12. Pen 1 : Locate 15,14 : Print "3:Catch Phrase."
  13. Pen 2 : Locate ,20 : Centre "(These Games Are FreeWare)"
  14. Locate ,21 : Centre "(So Don't Charge Any Money for them.)"
  15. Locate ,22 : Centre "(Only for the price of a disk and p/p.)"
  16. Locate ,23 : Centre "(The Source code for these games)"
  17. Locate ,24 : Centre "(Is on the disk)"
  18. Locate ,25 : Centre "(And you can change it if you want.)"
  19. Locate ,26 : Centre "(Created by Harvey Ball with Amos.)"
  20. Locate ,27 : Centre "(Type 4 for the next page.)"
  21. Pen 2 : Locate 0,16 : Print "Type In the Number of the game that you want to play." : Input G$
  22. If G$="1" Then Run "backchat.amos"
  23. If G$="2" Then Run "kingdom.amos"
  24. If G$="3" Then Run "catch phrase.amos"
  25. If G$="4" Then Curs Off : Cls 0 : Paper 0 : Ink 0
  26. For STAR=0 To 250
  27. A=Rnd(320) : B=Rnd(256) : C=Rnd(5) : Plot A,B,C
  28. Wait Vbl 
  29. Next STAR
  30. Locate ,5 : Centre "If you like these games then please"
  31. Locate ,6 : Centre "Write and tell me so I can make"
  32. Locate ,7 : Centre "Some more games for you to enjoy!"
  33. Locate 10,10 : Print "My Address Is:-"
  34. Locate 10,12 : Print "93 Linton Close,"
  35. Locate 10,13 : Print "Winyates East,"
  36. Locate 10,14 : Print "Redditch."
  37. Locate 10,15 : Print "B98 ONB."
  38. Locate 0,20 : Centre "I look forward to hearing from you."
  39. Locate ,24 : Centre "<Press A Key>" : Wait Key : Goto PICK