home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / lamercheck.amos / lamercheck.amosSourceCode < prev    next >
AMOS Source Code  |  1991-02-26  |  2KB  |  88 lines
  1. Rem Brain-Dead Lamer Check-Protection System 
  2. Rem              and Intro 
  3. Rem by JAG of FANATIX
  4. Rem
  5. D=3 : M=3
  6. Close Workbench : Close Editor : Led Off : Break Off 
  7. Screen Open 0,320,256,32,Lowres
  8. Curs Off : Flash Off : Hide On : Cls 0
  9. Screen Open 1,320,256,32,Lowres
  10. Curs Off : Flash Off : Hide On : Cls 0
  11. Screen Open 2,320,256,32,Lowres
  12. Curs Off : Flash Off : Hide On : Cls 0
  13. Auto View Off 
  14. Unpack 7 To 0
  15. Screen To Back 0
  16. Screen Copy 0,0,0,320,256 To 1,0,0
  17. Screen 1 : Fade 1 : Wait 75
  18. Screen Close 2
  19. Music 1
  20. Fade 5 To 0
  21. Wait 75
  22. Screen Close 0
  23. Auto View On 
  24. Screen Open 0,640,400,2,Hires
  25. Screen To Front 0 : Screen 0
  26. Colour 1,$FFF : Ink 1 : Paper 0
  27. Curs Off : Flash Off : Hide On : Cls 0
  28. Screen Display 0,120,100,,
  29. Locate 0,1
  30. Centre "Lamer-Check Protection System"
  31. Locate 0,2
  32. Centre "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  33. Locate 0,4
  34. Centre "(Memory and drive no. checker)"
  35. For F=1 To 100000 : Next F
  36. Locate 3,10
  37. Print "Checking for drives......"
  38. Gosub DCHECK
  39. For F=1 To 100000 : Next F
  40. If D=0 Then Goto DRIV
  41. Locate 3,13
  42. Print "O.K."
  43. For F=1 To 50000 : Next F
  44. Locate 3,13
  45. Print "     "
  46. Locate 3,10
  47. Print "Checking memory......."
  48. Gosub MEMCHECK
  49. For F=1 To 100000 : Next F
  50. If M=0 Then Goto MEM
  51. Locate 3,13
  52. Print "O.K."
  53. Locate 0,23
  54. Centre "Click mouse to continue...."
  55. Do 
  56. If Mouse Key=1 Then Goto DIE
  57. Loop 
  58. DCHECK:
  59. Rem Have they got 2 drives?
  60. If Exist("DF1:")=0 Then D=0
  61. If Exist("FXDemoComp1A:")=0 Then D=0
  62. If Exist("FXDemoComp1B:")=0 Then D=0
  63. Return 
  64. MEMCHECK:
  65. If Fast Free=0 Then M=0
  66. Return 
  67. DRIV:
  68. Screen 0 : Fade 5 : Wait 75
  69. Screen Close 0
  70. Screen 1 : Fade 5 : Wait 75
  71. Unpack 6 To 1
  72. Do 
  73. Loop 
  74. MEM:
  75. Screen 0 : Fade 5 : Wait 75
  76. Screen Close 0
  77. Screen 1 : Fade 5 : Wait 75
  78. Unpack 8 To 1
  79. Do 
  80. Loop 
  81. DIE:
  82. Screen 0 : Fade 5 : Wait 100
  83. Screen 1 : Fade 5 : Wait 10
  84. For F=63 To 0 Step -1
  85. Mvolume F : For T=0 To 1000 : Next T
  86. Next F
  87. Screen Close 1
  88. Screen Close 0