home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / seeyou.amos / seeyou.amosSourceCode < prev    next >
AMOS Source Code  |  1991-02-26  |  637b  |  32 lines
  1. Rem End Part 
  2. Rem by JAG of FANATIX
  3. Rem
  4. Proc DEMO
  5. Procedure DEMO
  6. Screen Open 0,320,256,32,Lowres : Curs Off : Flash Off : Hide On : Cls 0
  7. Close Workbench : Close Editor : Led Off : Music 1 : Break Off 
  8. Unpack 6 To 0
  9. Bob 1,180,180,1
  10. SC$="look at the melons on that one" : B=0
  11. MAINLOOP:
  12. Do 
  13. If Inkey$="?" Then Goto CLEVER
  14. Loop 
  15. CLEVER:
  16. Screen Open 1,320,20,2,Lowres : Colour 1,$0 : Pen 1 : Paper 0 : Cls 0
  17. Hide On 
  18. Screen Display 1,125,300,,
  19. WHAT:
  20. Locate 0,0
  21. Input A$
  22. If A$=SC$ Then Goto VCLEVER
  23. Screen Close 1 : Screen 0
  24. If B=1 Then B=0 : Bob 1,180,180,1
  25. Goto MAINLOOP
  26. VCLEVER:
  27. Screen Close 1
  28. Screen 0
  29. Bob Off 1
  30. B=1
  31. Goto MAINLOOP
  32. End Proc