home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd369 / d5.amos / d5.amosSourceCode
AMOS Source Code  |  1990-10-14  |  953b  |  58 lines
  1. Procedure LED
  2.  Break Off 
  3.  Hide On : Flash Off : Curs Off 
  4.  Led Off 
  5.  Palette $0,$0,$0
  6.  For TELLER=1 To 5
  7.  Led On 
  8.  For PAUZE=1 To 20000 : Next PAUZE
  9.  Led Off 
  10.  For PAUZE=1 To 20000 : Next PAUZE
  11.  Next TELLER
  12. End Proc
  13. '
  14. Procedure INIT_SCHERM
  15.  Screen Open 1,640,200,8,Hires
  16.  Flash Off : Curs Off 
  17.  Palette $0,$0,$0
  18. End Proc
  19. '
  20. Procedure BALKROOD
  21.  Ink 4,,
  22.  Box 0,0 To 639,40
  23.  Box 1,1 To 638,39
  24.  Box 2,2 To 637,38
  25.  Paint 1,1,4
  26. End Proc
  27. '
  28. Procedure BALKZWART
  29.  Ink 0,,
  30.  Box 0,0 To 639,40
  31.  Box 1,1 To 638,39
  32.  Box 2,2 To 637,38
  33. End Proc
  34. '
  35. Procedure PAUZE
  36.  For PAUZE=1 To 2500
  37.   If Mouse Click=1 Then Goto EINDE
  38.  Next PAUZE
  39. End Proc
  40. '
  41. Procedure TEKST
  42.  Pen 4
  43.  Locate 1,1 : Centre "Software failure.  Press left mouse button to continue."
  44.  Locate 1,3 : Centre "Guru meditation #00000004.00C04FD0"
  45. End Proc
  46. '
  47. ' Hoofdprogramma ' 
  48. '
  49. Proc LED
  50. Proc INIT_SCHERM
  51. Proc TEKST
  52. Do 
  53.  BALKROOD : PAUZE : BALKZWART : PAUZE
  54. Loop 
  55. '
  56. EINDE:
  57.  Screen Close 1 : Run "df0:menu.AMOS"
  58. End