Chronos: CHRONOS.B

Is a part of release: Chronos
File size: 5854
md5: d6e7ccbc8a1b655b9066a8e26fd4e4f3
  1 REM 
  2 CLS : GO TO 20
  3 POKE 23606,48: POKE 23607,116: BORDER 0: PAPER 0: CLS 
  5 REM LOADER
  6 GO SUB 15: RANDOMIZE USR 15619: REM : LOAD "CH3"CODE 30000
  7 GO SUB 15: RANDOMIZE USR 15619: REM : LOAD  "CH1"CODE 40000
  8 GO SUB 15: RANDOMIZE USR 15619: REM : LOAD  "CH2"CODE 41462
  10 GO SUB 15: RANDOMIZE USR 15619: REM : LOAD  "CH6"CODE 42925
  11 GO SUB 15: RANDOMIZE USR 15619: REM : LOAD   "CH4"CODE  43125
  12 GO TO 20
  15 PRINT AT 21,2; INK 3;"k": PAUSE 5
  16 PRINT AT 21,2; INK 3;"l": PAUSE 5
  17 PRINT AT 21,2; INK 3;"m": PAUSE 5
  18 PRINT AT 21,2; INK 3;"n": PAUSE 5
  19 RETURN 
  20 CLS 
  22 RANDOMIZE USR 42925
  24 RANDOMIZE USR 40000
  25 LET TI=0
  26 PRINT AT 5,5; INK 4;"j AER"
  28 PRINT AT 7,5; INK 4;"j otpqrqs 2009 VERSION B"
  29 PRINT AT 9,5; INK 4;"j CONTROL:"
  32 PRINT AT 11,5; INK 4;"j Q,A,(SPACE)"
  34 PRINT AT 13,5; INK 1+(RND*4);"j PRESS FIRE TO START"
  45 IF INKEY$=" " THEN  GO TO 49
  46 LET TI=TI+1
  47 IF TI=800 THEN  GO TO 24
  48 GO TO 45
  49 BORDER 6: PAPER 6: CLS : PAPER 0: BORDER 0: CLS 
  50 LET LI=2
  55 LET A=10: LET PU=0: LET PU1=0: LET Z1=A: LET X1=7: LET Z=A: LET X=7
  56 LET LE=0: LET O=2+(RND*18): LET P=30
  57 LET LE1=0: LET O1=2+(RND*18): LET P1=30
  58 LET LE2=0: LET O2=2+(RND*18): LET P2=30
  59 LET R=100
  60 FOR F=31 TO 0 STEP -1: PRINT AT 21,F; INK 4; FLASH 1;"i"
  61 NEXT F: LET KL=10
  70 PRINT AT A-1,5;"  "
  72 PRINT AT A,5; INK 5;"ab"
  73 PRINT AT A+1,5;"  "
  74 LET RN=INT (1+RND*(R))
  80 LET Q1=IN 64510
  82 LET A1=IN 65022
  84 LET SP1=IN 32766
  90 IF Q1=J THEN  BEEP .0004X,50: LET A=A-1
  92 IF A<1 THEN  LET A=1
  93 IF A1=J THEN  BEEP .0004X,60: LET A=A+1
  95 IF A>19 THEN  LET A=19
  104 IF SP1=J AND PU=0 THEN  LET PU=1: BEEP .01=,1: LET X=7: LET Z=A: GO TO 107
  106 IF SP1=J AND PU1=0 THEN  LET PU1=1: BEEP .01=,1: LET X1=7: LET Z1=A
  110 IF PU=1 THEN  PRINT AT Z,X; INK 7;" cc": LET X=X+1
  112 IF PU1=1 THEN  PRINT AT Z1,X1; INK 7;" cc": LET X1=X1+1
  120 IF PU=1 AND X>29 THEN  PRINT AT Z,X;"  ": LET PU=0
  122 IF PU1=1 AND X1>29 THEN  PRINT AT Z1,X1;"  ": LET PU1=0
  129 REM -------------------
  130 IF LE=0 AND RN<30 THEN  LET O=2+(RND*15): LET P=30: LET LE=1
  131 IF LE1=0 AND RN>50 THEN  LET O1=2+(RND*15): LET P1=30: LET LE1=1
  132 IF LE2=0 AND RN<85 THEN  LET O2=2+(RND*15): LET P2=30: LET LE2=1
  140 IF LE=1 THEN  PRINT AT O,P; INK 4;"fg ": LET P=P-1
  141 IF LE1=1 THEN  PRINT AT O1,P1; INK 4;"fg ": LET P1=P1-1
  142 IF LE2=1 THEN  PRINT AT O2,P2; INK 1;"de ": GO SUB 200: LET P2=P2-1
  144 GO SUB 350
  150 IF LE=1 AND P<2 THEN  PRINT AT O,P+1;"  ": PRINT O+1,P+1;"  ": LET LE=0: LET KL=KL-5
  151 IF LE1=1 AND P1<2 THEN  PRINT AT O1,P1+1;"  ": LET KL=KL-5: PRINT O1+1,P1+1;"  ": LET LE1=0
  152 IF LE2=1 AND P2<2 THEN  PRINT AT O2,P2+1;"  ": PRINT O2+1,P2+1;"  ": LET KL=KL-5: LET LE2=0
  155 IF LE=1 AND SCREEN$ (O,P-2)="c" THEN  LET LE=2: BEEP .01=,0: GO SUB 580
  160 IF LE1=1 AND SCREEN$ (O1,P1-2)="c" THEN  LET LE1=2: BEEP .01=,20: GO SUB 580
  161 IF LE2=1 AND SCREEN$ (O2,P2-2)="c" THEN  LET LE2=2: BEEP .01=,40: GO SUB 580
  165 IF LE=2 THEN  PRINT AT O-1,P;"   ": PRINT AT O,P; INK 7;"hh ": LET O=O+1: LET P=P-1
  166 IF LE1=2 THEN  PRINT AT O1-1,P1;"   ": PRINT AT O1,P1; INK 7;"hh ": LET O1=O1+1: LET P1=P1-1
  167 IF LE2=2 THEN  PRINT AT O2-1,P2;"   ": PRINT AT O2,P2; INK 7;"hh ": LET O2=O2+1: LET P2=P2-1
  170 IF LE=2 AND O>20 THEN  PRINT AT O-1,P;"   ": LET LE=0
  171 IF LE1=2 AND O1>20 THEN  PRINT AT O1-1,P1;"   ": LET LE1=0
  172 IF LE2=2 AND O2>20 THEN  PRINT AT O2-1,P2;"   ": LET LE2=0
  175 IF LE=2 AND P<2 THEN  PRINT AT O-1,P;"   ": LET LE=0
  176 IF LE1=2 AND P1<2 THEN  PRINT AT O1-1,P1;"   ": LET LE1=0
  177 IF LE2=2 AND P2<2 THEN  PRINT AT O2-1,P2;"   ": LET LE2=0
  178 IF KL<0 THEN  GO TO 400
  199 GO TO 251
  200 IF RN<50 AND LE2=1 THEN  GO TO 204
  201 PRINT AT 0,0; INK 7;"KM:";KL;"  ": RETURN 
  205 IF P2<15 THEN  GO SUB 210
  208 RETURN 
  210 IF O2<A THEN  PRINT AT O2,P2;"   ": LET O2=O2+1: GO SUB 220
  213 IF O2>A THEN  PRINT AT O2,P2;"   ": LET O2=O2-1: GO SUB 220
  220 PRINT AT O2,P2; INK 1;"de "
  250 RETURN 
  300 GO TO 70
  350 IF SCREEN$ (A,6)="d" THEN  GO TO 400
  351 IF SCREEN$ (A,6)="e" THEN  GO TO 400
  352 IF SCREEN$ (A,6)="f" THEN  GO TO 400
  353 IF SCREEN$ (A,6)="g" THEN  GO TO 400
  360 RETURN 
  400 BEEP .1 TO ,-10: FOR F=A TO 20: PRINT AT F-1,5;"  ": PRINT AT F,5; INK 7;"hb": NEXT F
  401 PRINT AT 0,0;"          "
  403 BEEP .01=,-30: FOR F=A TO 0 STEP -1: PRINT AT F+1,5;" ": PRINT AT F,5; INK 7;"h ": NEXT F
  404 PRINT AT 0,0;"          "
  405 BEEP .1 TO ,-40: FOR F=1 TO 20: PRINT AT 20,5; INK 2;"fb": BEEP .0004X,60-F: PRINT AT 20,5; INK 7;"ah": BEEP .0004X,50: NEXT F
  410 PAUSE 30
  420 PRINT AT 5,5; INK 2;"GAME OVER": PAUSE 50: CLS 
  421 PRINT AT 5,5; INK 2;"GAME OVER"
  422 PRINT AT 7,5; INK 4;"MISSION FAILED"
  425 PRINT AT 9,5; INK 4;"YOU'R FLY ";KL;"KM"
  430 RANDOMIZE USR 41462
  432 CLS 
  440 PRINT AT 10,11; INK 2;"GAME OVER"
  445 BEEP 1,-30
  446 BEEP .4 TO ,-20
  448 BEEP 1,-40
  450 GO TO 1
  500 PRINT AT 10,13; INK 2;"OK!!!": BEEP 1,-30
  502 CLS : PRINT AT 10,13; INK 2;"OK!!!": BEEP 1,-30
  510 RANDOMIZE USR 15619: REM : LOAD "CH8"CODE 43125
  513 FOR F=1 TO 5
  514 PRINT AT 21,0; INK 5;"YEESS!!!": PAUSE 10
  520 RANDOMIZE USR 42925
  524 PAUSE 5
  526 CLS : PRINT AT 21,0; INK 5;"YEESS!!!": PAUSE 10
  527 NEXT F
  530 RANDOMIZE USR 42925
  532 RANDOMIZE USR 15619: REM : LOAD  "CH7"CODE  40000
  540 RANDOMIZE USR 40000: GO TO 3
  580 LET KL=KL+2: GO SUB 590: LET T=X: LET Y=X1
  582 IF T>Y THEN  PRINT AT Z,X;"  ": LET PU=0: LET X=8: RETURN 
  585 PRINT AT Z1,X1;"  ": LET PU1=0: LET X1=8: RETURN 
  590 IF KL>29 THEN  GO TO 500
  592 RETURN 
  600 REM STARTUP
  605 CLS : PRINT AT 2,2; INK 2;"PRESS Q"
  606 PRINT AT 3,2; INK 2;"FOR SCANNING PORT"
  608 PAUSE 0: LET A=IN 64510
  609 IF A=190 THEN  LET J=190
  610 IF A=254 THEN  LET J=254
  613 GO TO 3
  46313
  0AT  DIM aVAL  PRINT VAL uLEN INT LEN LN LEN zxAT  RESTORE o▗ PLOT  ppAT eLEN CODE LEN ▘RVAL LEN AT eSIN CODE SIN NNOT `VAL SIN rd NEW  COPY  COPY  COPY  COPY  COPY  COPY <ATTR  GO TO SIN  INPUT LEN LEN  COPY [R]LEN  COPY COS pLEN  COPY tyj RETURN