home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk044 / cs.bas < prev    next >
Encoding:
BASIC Source File  |  1987-08-08  |  1.1 KB  |  30 lines
  1. 10 'Created by Steven C. Hudgik
  2. 20 'COLOR SCREEN - A game for the very young
  3. 30 'Copyright 1987 - Steven C. Hudgik
  4. 40 'Distributed as shareware - you are granted the right to copy and
  5. 50 'distribute this software.  It may not be included as a part of
  6. 60 'any other software or modified in any way.
  7. 70 '
  8. 80 SCREEN 0
  9. 90 CLS:LOCATE 5,5:PRINT"C O L O R   T H E   S C R E E N":LOCATE 7,5:PRINT"Push any key to change screen colors..."
  10. 100 LOCATE 9,5:PRINT"Push ESC during the 'music' to end this game... ";
  11. 110 C=7:D=0:E=5
  12. 120 H$=INPUT$(1):COLOR C,D,E:CLS
  13. 130 T=RND
  14. 140 IF T<.1 THEN T=T+T ELSE 160
  15. 150 GOTO 140
  16. 160 M=(1-T)*10:SOUND T*1000,M*2:SOUND T*700,M
  17. 170 SOUND T*2000,M/2:SOUND T*2500,M/3:SOUND T*3000,M/4
  18. 180 SOUND T*4000,M/5
  19. 190 SOUND T*6000,M/6
  20. 200 FOR I=1 TO 100:H$=INKEY$:IF LEN(H$)=0 THEN 210 ELSE IF ASC(H$)=27 THEN 280
  21. 210 NEXT I
  22. 220 C=C+1:D=D+1:E=E+1
  23. 230 IF C>31 THEN C=0
  24. 240 IF D>7 THEN D=0
  25. 250 IF E>15 THEN E=0
  26. 260 LOCATE 12,40:PRINT H$
  27. 270 GOTO 120
  28. 280 CLS:COLOR 7,0,0:PRINT"ESC has been pushed.  To end game push":PRINT"the letter X... ";:H$=INPUT$(1):IF H$="x" OR H$="X" THEN CLS ELSE 90
  29. 290 SYSTEM
  30.