Chess: CHESS.B

Является частью релиза: Chess
Размер файла: 325
md5: 01bc829c783c06fe59bab4c93fae142e
  10 BORDER 1: INK 1: PAPER 1: CLEAR 28671: LOAD ""SCREEN$ : LOAD ""CODE 
  30 RANDOMIZE USR 30720
  40 LET t$=INKEY$: IF t$<>"" THEN  GO TO 40
  50 LET t$=INKEY$: IF t$="" THEN  GO TO 50
  60 IF t$="z" THEN  COPY : GO TO 40
  70 IF t$="t" THEN  SAVE "CHESS" LINE 95: SAVE "chess"CODE 28672,12031
  80 POKE 30726,CODE t$: RANDOMIZE USR 30723
  90 GO TO 40
  95 CLEAR 28671: LOAD "chess"CODE 
  100 RANDOMIZE USR 30727: LET t$="t": GO TO 80