Zulu Wars: s.B

Es parte de la publicación: Zulu Wars
Tamaño del archivo: 658
md5: 55d9cd3d69bc15985a8894c514868caf
  2 RANDOMIZE USR VAL "65267": POKE VAL "65320",VAL "50": POKE VAL "65321",VAL "0"
  5 RANDOMIZE USR VAL "44220"
  10 POKE VAL "23606",VAL "36": POKE VAL "23607",VAL "96": BORDER VAL "0": PAPER VAL "0": INK VAL "7": CLS 
  20 PRINT AT VAL "4",VAL "11";"TAPE MENU";AT VAL "5",VAL "11";"";AT VAL "9",VAL "8"; INK VAL "6";"{1} Save game";AT VAL "11",VAL "8"; INK VAL "5";"{2} Load old game";AT VAL "13",VAL "8"; INK VAL "4";"{3} Exit this menu"
  50 IF INKEY$="1" THEN  PRINT AT VAL "17",VAL "9";"             ": INK VAL "7": PAPER VAL "2": FLASH VAL "1": PRINT AT VAL "17",VAL "9";"saving part 1": SAVE "zs1"CODE VAL "25636",VAL "11754": PRINT AT VAL "17",VAL "21";"2": SAVE "zs2"CODE VAL "65340",VAL "8": FLASH VAL "0": PAPER VAL "0": PRINT AT VAL "17",VAL "9";"game is saved"
  55 IF INKEY$="2" THEN  PRINT AT VAL "17",VAL "9";"             ": INK VAL "7": FLASH VAL "1": PRINT AT VAL "17",VAL "12";"loading": FLASH VAL "0": PRINT AT VAL "19",VAL "0";: LOAD ""CODE : PRINT AT VAL "19",VAL "0";: LOAD ""CODE VAL "65340": PRINT AT VAL "17",VAL "11";"game loaded"
  60 IF INKEY$="3" THEN  CLS : GO TO VAL "5"
  80 GO TO VAL "50"