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"