Zolan: Zolan1.B

Является частью релиза: Zolan
Размер файла: 2669
md5: 6bb309caa832c34ddcc2e80f038f2115
  1 REM ***********************
  2 REM  INTRO  © K.P.  SOFTEK
  3 REM    ADAPTED BY SHORE
  4 REM ***********************
  5 DIM Z$(32): BORDER 0: OVER 1
  10 LET i=INT (5*RND)+1: LET p=INT (5*RND)+1
  15 IF i=p THEN  GO TO 10
  20 INK i: PAPER p: CLS 
  25 BEEP .5 COPY ,20
  30 FOR a=0 TO 255 STEP 2
  40 PLOT  128,88: DRAW -127+a,-87
  50 NEXT a
  60 FOR b=0 TO 175 STEP 2
  70 PLOT  128,88: DRAW 127,-87+b
  80 NEXT b
  90 FOR C=0 TO 255 STEP 2
  100 PLOT  128,88: DRAW 127-c,87
  110 NEXT c
  120 FOR d=0 TO 175 STEP 2
  130 PLOT  128,88: DRAW -127,87-d
  140 NEXT d
  150 PAUSE 200
  200 GO TO 7000
  6000 FOR N=20 TO 2 STEP -1: PRINT AT N,0;Z$: NEXT N: RETURN 
  7000 OVER 0: BORDER 1: PAPER 7: INK 0
  7010 CLS : PRINT AT 0,0; PAPER 1; INK 7;"        THE ZOLAN ADVENTURE     ";Z$
  7015 PRINT ''" BECAUSE OF THE SIZE OF THIS"'" PROGAM IT IS SPLIT INTO TWO."'" THE INSTRUCTIONS FOR THE"'" GAME ARE ON THIS PROGRAM"
  7017 PAUSE 100: PRINT #1;" PRESS 'ENTER' TO CONTINUE": PAUSE 0: INPUT ;
  7018 GO SUB 6000
  7020 PRINT ''" WHILE EXPLORING A REMOTE REGION"'" OF THE PLANET ZOL 1X YOU HEAR"'" RUMOURS OF A FABULOUS TREASURE."
  7030 PRINT '" IT WAS BURIED IN A TOMB BY"'" ZOLAN,ONCE EMPEROR OF THE WHOLE"'" CLUSTER,BEFORE THE TERRAN"'" CONQUEST MANY CENTURIES AGO"
  7040 PRINT '" ALTHOUGH MANY PEOPLE HAVE"'" SEARCHED FOR IT THE MISSING"'" TREASURE HAS NEVER BEEN FOUND"
  7045 PRINT ''" YOU DECIDE TO FIND IT!"
  7050 PAUSE 100: PRINT #1;" PRESS 'ENTER' TO CONTINUE": PAUSE 0: INPUT ;
  7055 GO SUB 6000
  7060 PRINT '" AFTER MANY FRUITLESS"'" INVESTIGATIONS YOU GOT A TIP"'" FROM AN OLD PROSPECTOR WHO"'" TELLS YOU OF A PARTY OF MEN WHO"'" DISAPPEARED WHILE LOOKING FOR"'" ZOLAN'S HOARD"
  7070 PRINT '" ONLY ONE MAN EVER RETURNED AND"'" ALL HE WOULD SAY WAS THE"'" VALLEY IS CURSED!"
  7080 PRINT '" THE OLD MAN TELLS YOU OF A"'" REMOTE VALLEY WHERE IT MIGHT BE"
  7090 PAUSE 100: PRINT #1;" PRESS 'ENTER' TO CONTINUE": PAUSE 0: INPUT ;
  7100 GO SUB 6000
  7110 PRINT '" AFTER THREE WEEKS TREK YOU"'" ARRIVE IN A REMOTE VALLEY"'" SURROUNDED ON ALL SIDES BY"'" STEEP HILLS"
  7120 PRINT '" YOUR AIM IS TO FIND THE TOMB"'" AND RETRIEVE THE TREASURE"'" TO DO THIS YOU MUST DIRECT YOUR"'" CHARACTER BY TYPING IN THE"
  7130 PRINT " APPROPRIATE COMMANDS"''" EG IF YOU WANT TO  PICK UP SOMETHING"''" TYPE - ' GET ...'"
  7150 PAUSE 100: PRINT #1;" PRESS 'ENTER' TO CONTINUE": PAUSE 0: INPUT ;
  7155 GO SUB 6000
  7160 PRINT '" THE FOLLOWING ABBREVIATIONS MAY"'" BE USED"''" N - NORTH    E - EAST"'" S - SOUTH    W - WEST"'" U - UP       D - DOWN"
  7170 PRINT '" TO FINISH TYPE QUIT AND YOUR"'" SCORE WILL BE GIVEN.THE BEST"'" POSSIBLE IS 133"
  7180 PRINT '''"    GOOD LUCK!!"
  9000 INPUT "RE-READ INSTRUCTIONS (Y/N)? "; LINE C$
  9010 IF C$="Y" OR C$="y" THEN  GO SUB 6000: BORDER P: RUN 
  9050 BORDER 7: PAPER 7: INK 0: CLS 
  9080 LOAD "Zolan2"