home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42b.dsk / CHICKEN.LITTLE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  29 lines
  1. 10  REM  ************************
  2. 20  REM  *    CHICKEN LITTLE    *
  3. 30  REM  *   by Jenny Schmidt   *
  4. 40  REM  *  Copyright (C) 1991  *
  5. 50  REM  * MindCraft Publ. Corp.*
  6. 60  REM  *   Lincoln, MA 01773  *
  7. 70  REM  ************************
  8. 80  TEXT : HOME : POKE 768,0
  9. 90  DATA  C,H,I,C,K,E,N," ",L,I,T,T,L,E
  10. 100  FOR I = 1 TO 14: READ A$
  11. 110  VTAB 22: HTAB 14 +I -1: PRINT " " + CHR$(95)
  12. 120  FOR J = 2 TO 21
  13. 130  HTAB 14 +I: VTAB J: PRINT A$: HTAB 14 +I: VTAB J -1: PRINT " "
  14. 140  NEXT J
  15. 150  FOR J = 21 TO 11  STEP  -1
  16. 160  HTAB 14 +I: VTAB J: PRINT A$: HTAB 14 +I: VTAB J +1: PRINT " "
  17. 170  NEXT J: NEXT I: VTAB 13: HTAB 20: PRINT "BY"
  18. 180 A$ = " SCHMIDT":B$ = "JENNY "
  19. 190  FOR I = 2 TO 20: FOR W = 1 TO 10: NEXT W
  20. 200  VTAB 15: HTAB I: PRINT A$: VTAB 15: HTAB 40 -I -5: PRINT B$
  21. 210  FOR W = 1 TO 30: NEXT W: NEXT I: TEXT 
  22. 220  INVERSE : INPUT "         PRESS <RETURN> TO PLAY        ";A$: NORMAL : HOME 
  23. 230  PRINT "Welcome to the 'Fly by Night' Bird": PRINT "Sanctuary. As the new caretaker, you": PRINT "will be in charge of the Purple": PRINT "Feathered Wing Flappers. This species"
  24. 240  PRINT "of bird lays its eggs in flight.": PRINT "Normally the eggs land safely, but DDT": PRINT "has weakened the egg shells. Your job": PRINT "is to bounce the eggs off a spring": PRINT "until the eggs hatch. You are rewarded"
  25. 250  PRINT "ten points for each bounce and 25 points";: PRINT "for each chick hatched. The spring is": PRINT "controlled by the Zero Paddle or by the": PRINT "Left/Right Arrows and space bar keys.": PRINT "I you miss six eggs, you will be retired";
  26. 260  PRINT "from your job. Hitting the Space bar": PRINT "will restart the game after it has ended";: PRINT "and Escape will send you back to": PRINT "BASIC."
  27. 270  PRINT : PRINT : INVERSE : PRINT "PRESS <P> FOR PADDLE OR <K> FOR KEYBOARD";: NORMAL : GET A$: PRINT A$
  28. 280  IF A$ = "P"  THEN  POKE 768,128: GOTO 290
  29. 290  PRINT  CHR$(4);"EXEC CHICKEN.LOADER"