Shanghai Karate: SH.KARATE2.B

  10 BORDER 0: INK 0: PAPER 0: CLEAR 32767
  20 LOAD ""CODE 65088
  25 LOAD ""SCREEN$ : PAUSE PI-PI: PAUSE 60: POKE 65111,62: POKE 65112,255: POKE 65124,195: POKE 65125,98: POKE 65126,5
  30 RANDOMIZE USR 65324
  40 INPUT "side (1 or 2) ? ";s
  50 POKE 23418,84
  60 LOAD "load"CODE 32768
  70 SAVE "Shanghai"+STR$ (s) LINE 10
  80 SAVE "load"CODE 32768,448
  90 IF s=1 THEN  LOAD "masta"
  100 LOAD "mastb"
  29440