home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / other / homecomp / homecomp.bas next >
Encoding:
BASIC Source File  |  1988-12-01  |  2.4 KB  |  35 lines
  1. 100 REM HOMECOMP
  2. 110 REM SAVE "HOMECOMP
  3. 120 CLEAR:COLOR 7,0:CLS:KEY OFF
  4. 130 LOCATE 1,19:PRINT "SOUNDS HEARD IN A HOME COMPUTER CENTER!"
  5. 140 LOCATE 3,1:PRINT "CHOOSE what you'd like reproduced . . ."
  6. 150 LOCATE 5,10:PRINT " 1  Monitor exploding";TAB(45);" 9  Fire truck on way"
  7. 160 LOCATE 6,10:PRINT " 2  Short circuit in power supply";TAB(45);"10  Model airplane in room"
  8. 170 LOCATE 7,10:PRINT " 3  Hard disk failing";TAB(45);"11  Neighbor's phone"
  9. 180 LOCATE 8,10:PRINT " 4  Floppy drive fails";TAB(45);"12  The phone is bleeping"
  10. 190 LOCATE 9,10:PRINT " 5  Upbeat happy song";TAB(45);"13  The extension phone is bleeping"
  11. 200 LOCATE 10,10:PRINT " 6  Oh, so sorry!";TAB(45);"14  Second hard disk fails"
  12. 210 LOCATE 11,10:PRINT " 7  Ta-da ";TAB(45);"15  Mama gets angry"
  13. 220 LOCATE 12,10:PRINT " 8  Ta-da-da-da-da-da ";TAB(45);"16  The modem goes blooey"
  14. 230 LOCATE 15,15:PRINT "Any other number gets you Ta-da-da-da-da-da"
  15. 240 LOCATE 19,15:LINE INPUT "Enter your choice (1 to 16 or CR to END) > ";CH$
  16. 250 IF CH$="" THEN CLOSE:CLS:END ELSE CH=VAL(CH$):CLS
  17. 260 IF CH<0 OR CH>16 THEN CH=8
  18. 270 ON CH GOSUB 280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430:GOTO 140
  19. 280 FOR JK=1 TO 5:FOR I=1000 TO 400 STEP -1:SOUND I,.015625:NEXT:NEXT:SOUND 400,1:RETURN
  20. 290 FOR JK=1 TO 6:FOR I=8000 TO 3000 STEP -100:SOUND I,.015625:NEXT:NEXT:SOUND 100,1:RETURN
  21. 300 FOR I=15000 TO 6000 STEP -100:SOUND I,.015625:NEXT:FOR I = 100 TO 50 STEP -1: SOUND I,1:NEXT:SOUND 200,1:RETURN
  22. 310 FOR I=1000 TO 400 STEP -1:SOUND I,.015625:NEXT:FOR I=399 TO 100 STEP -1:SOUND I,.02:NEXT:SOUND 200,1:RETURN
  23. 320 PLAY "L4CL8DGD":RETURN
  24. 330 SOUND 70,8:SOUND 45,15:RETURN
  25. 340 PLAY "l8cl2e":RETURN
  26. 350 PLAY "L8CEFGP16L8EL4G":RETURN
  27. 360 FOR I = 400 TO 800 STEP 9 :SOUND I,1:NEXT:FOR I = 800 TO 400 STEP - 9:SOUND I,1:NEXT:SOUND 50,1:RETURN
  28. 370 FOR JK=1 TO 3:FOR S=1 TO 5:SOUND 45,3:SOUND 38,1:SOUND 45,3:SOUND 37,2:NEXT:NEXT:SOUND 100,1:RETURN
  29. 380 FOR JK=1 TO 2:FOR S=1 TO 5:SOUND 550,2:SOUND 450,1:NEXT:NEXT:SOUND 100,1:RETURN
  30. 390 FOR JK=1 TO 3:FOR S=1 TO 5:SOUND 300,1:SOUND 350,1:NEXT:NEXT:SOUND 100,1:RETURN
  31. 400 FOR JK=1 TO 5:FOR S=1 TO 5:SOUND 800,.1:SOUND 200,.5:SOUND 800,.3:SOUND 900,1:NEXT:NEXT:SOUND 100,1:RETURN
  32. 410 FOR JK=1 TO 2:FOR I=15000 TO 6000 STEP -100:SOUND I,.015625:NEXT:FOR I = 100 TO 50 STEP -1: SOUND I,1:NEXT:NEXT:SOUND 100,1:RETURN
  33. 420 FOR JK=1 TO 5:FOR S=1 TO 10:SOUND RND*1000+37,.8:NEXT:NEXT:SOUND 50,0:RETURN
  34. 430 FOR S=1 TO 8:SOUND RND*1000+37,2:NEXT:BEEP:RETURN
  35.