home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 01 / 0006 / alien.bas < prev    next >
Encoding:
BASIC Source File  |  1991-12-02  |  2.3 KB  |  45 lines
  1. 10 KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:LOCATE 5,19:PRINT "IBM"
  2. 20 LOCATE 7,8 ,0:PRINT "General  utility  programs"
  3. 30 COLOR 7 ,0:LOCATE 10,9,0:PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
  4. 40 LOCATE 11,9,0:PRINT CHR$(179)+"       ALIEN         "+CHR$(179)
  5. 50 LOCATE 12,9,0:PRINT CHR$(179)+STRING$(21,32)+CHR$(179)
  6. 60 COLOR 7,0:LOCATE 13,9,0:PRINT CHR$(179)+"     Version  2B     "+CHR$(179)
  7. 70 BEEP
  8. 80 LOCATE 14,9,0:PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
  9. 90 COLOR 15,0,1:LOCATE 17,7,0:PRINT "MARCH 5, 1982     MAV-5-5-K "
  10. 100 COLOR 7,0:LOCATE 23,6,0:PRINT "Press space bar to continue..."
  11. 110 IF INKEY$ <> "" THEN GOTO 110
  12. 120 CMD$ = INKEY$
  13. 130 IF CMD$ = "" THEN GOTO 120
  14. 140 IF CMD$ = CHR$(27) THEN GOTO 160
  15. 150 IF CMD$ <> " " THEN GOTO 120
  16. 160 REM TRANSFER COMMAND
  17. 600 '**ADVENTURE 2000***
  18. 610 '**STARTED 3/5/82***
  19. 620 '**EXPERIMENTAL*****
  20. 630 'SCREEN 1:COLOR 7,0:CLS
  21. 631 CLS
  22. 640 LOCATE 25,1:PRINT"press space bar to continue...":LOCATE 2,1
  23. 650 DIM A$(100),B$(100):Q=1
  24. 660 'BACKROUND
  25. 670 PRINT"Welcome to ADVENTURE...":PRINT:PRINT"This is a type of game that has its":PRINT"roots in ths fantasy roll-playing   "
  26. 680 PRINT"of 'D&D'(Dungeons and dragons). But":PRINT"the computer versions are really quite "
  27. 690 PRINT"different.":PRINT:PRINT
  28. 700 PRINT"In this game you will assume the roll":PRINT"of a character faced with a series of"
  29. 710 PRINT"situations requiring decisions and":PRINT"quick, intelligent reactions. The":PRINT"computer gives you descriptions of"
  30. 720 PRINT"various places, objects, and events.":PRINT"You react to the stimulus and tell ":PRINT"the computer what you want to do."
  31. 730 X$=INPUT$(1):IF X$=" " THEN 750
  32. 740 GOTO 730
  33. 750 CLS:LOCATE 25,1:PRINT"press space bar to continue..."
  34. 760 LOCATE 3,1
  35. 770 PRINT"One letter commands:":PRINT:PRINT"N for 'walk north'":PRINT"E for 'walk east'":PRINT"W for 'walk west'":PRINT"S for 'walk south'"
  36. 775 PRINT" Other commands, help,quit,look,shoot,blast,grab,etc"
  37. 780 PRINT"L for 'look'":PRINT:PRINT:PRINT"The computer will understand many words":PRINT"so don't hesitate to tell it what":PRINT"you want it to do in two-word commands."
  38. 790 PRINT:PRINT:PRINT"Good luck..."
  39. 800 X$=INPUT$(1):IF X$=" " THEN 830
  40. 810 SCREEN 1,0,0,0
  41. 820 GOTO 800
  42. 830 RUN "A2.SPC"
  43. 
  44. 790 PRINT:PRINT:PRINT"Good luck..."
  45.