3D Combat Zone: loader.B

  20 INPUT k
  30 DIM a$(k,32)
  40 FOR i=1 TO k
  45 PRINT AT 0,0;i
  50 INPUT a$(i)
  60 NEXT i
  100 CLS 
  102 BORDER 4: PAPER 4: CLS : PRINT AT 0,7; FLASH 1;"Para el cassette"
  103 PAUSE 200
  104 FLASH 0: PRINT AT 0,0;"                               "
  107 LET l=1
  110 FOR i=1 TO k
  120 FOR j=1 TO 31
  132 IF CODE a$(i,j)=42 THEN  GO TO 150
  134 PRINT AT l,j-1;a$(i,j)
  135 GO SUB 1000
  140 NEXT j
  150 LET l=l+1
  160 NEXT i
  170 PRINT AT 21,4; FLASH 1;"PULSA CUALQUIER TECLA"
  175 IF INKEY$="" THEN  GO TO 175
  180 IF INKEY$<>"" THEN  GO TO 300
  200 REM 
  305 PRINT AT 21,2; FLASH 0;" PULSA PLAY EN EL CASSETTE"
  306 FOR i=0 TO 400: NEXT i
  307 CLS 
  310 LOAD ""CODE 
  999 STOP 
  1000 IF CODE a$(i,j)<48 OR CODE a$(i,j)>122 THEN  BEEP .04=,20
  1010 BEEP .02=,CODE a$(i,j)-65
  1020 RETURN 
  27392STR$  Despues de una sangrienta *     batalla en los desiertos de*    LACENTRA, debes luchar en*      solitario para sobrevivir.*      *                              Manejando un tanque por los*    desolados parajes radioactivos* tu mision es destruir tanques,* platillos volantes y*           supertanques enemigos.*          *                              Dispones de radar e indicadores de posicion enemiga.*           El tanque se controla con*      joystick o usando las teclas :*  *                              C.........IZDA  V.........DCHA* SPACE.....FUEGO*                M...............RETROCESO       SYMBOL SHIFT....AVANCE*          DIM nl REM x