home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1998 January / PCA0198.ISO / MENUE / POSTFACH / 98010178.TXT < prev    next >
Text File  |  1997-11-25  |  1KB  |  63 lines
  1. 0
  2. GAG Virus
  3. DER Komandar
  4. LISTINGS
  5. Tag zusammen!
  6. Hier gibt's ein BASIC Proggy,mit dem man immer
  7. wieder gut Leute erschrecken,kann,die wenig
  8. Ahnung von Computern haben.Am besten wirkt es
  9. auf einem reinen DOS Rechner.Das Programm ist
  10. natⁿrlich v÷llig harmlos.Und los geht's:
  11.  
  12. WIDTH 40
  13. LOCATE 12
  14. COLOR 31
  15. PRINT "        WARNING! VIRUS INFECTION!"
  16. FOR x = 1 TO 3
  17. FOR i% = 440 TO 1000 STEP 5
  18. SOUND i%, i% / 4000
  19. NEXT i%
  20. NEXT x
  21. LOCATE 19
  22. PRINT "CHECKING...";
  23. FOR x = 1 TO 3
  24. FOR i% = 440 TO 1000 STEP 5
  25. SOUND i%, i% / 4000
  26. NEXT i%
  27. PRINT "...";
  28. NEXT x
  29. PRINT "APPROCHING HARDWARECONFLICT"
  30. FOR x = 1 TO 4
  31. FOR i% = 440 TO 1000 STEP 5
  32. SOUND i%, i% / 4000
  33. NEXT i%
  34. LOCATE 21, 1
  35. PRINT x * 25; "%"
  36. NEXT x
  37. LOCATE 22
  38. PRINT "SHOOTING..."
  39. FOR x = 1 TO 3
  40. FOR i% = 440 TO 1000 STEP 5
  41. SOUND i%, i% / 4000
  42. NEXT i%
  43. NEXT x
  44. WIDTH 80
  45. COLOR 7
  46. RANDOMIZE TIMER
  47. 10 V = INT(RND * 256) + 1
  48. IF V > 255 THEN 20
  49. PRINT CHR$(V);
  50. GOTO 10
  51. 20 OPEN "O", #1, "TEST.TXT"
  52. PRINT #1, " 'v5212tjw++pwegfⁿm#aasfⁿmjnwnⁿsn"
  53. CLOSE #1
  54. SHELL "del test.txt"
  55. GOTO 10
  56.  
  57. Und das war's.
  58. Viel Spa▀.
  59. Bis die Tage!
  60. DER Komandar
  61.  
  62.  
  63.