alien-b-r

Descripción del contenido de la página

Programa herramienta escrito en Beta BASIC para crear la tabla de mejores puntuaciones del juego Alien-B.

Etiquetas:

Este programa herramienta, escrito en Beta BASIC, crea en el disquete los datos iniciales de la tabla de «mejores perdedores» de Alien-B.

Pantallazos

FinalEjemplo

Código fuente

  10 REM alien-b-r
  20 REM This tool program creates the default record table used by the program Alien-B.

  30 REM Copyright (C) 2011 Marcos Cruz (programandala.net)

  40 REM Licencia/Permesilo/License
     programandala.net/license

  50 
     REM ######################
     Changelog

  60 REM 2011-02-02 First version.
  70 REM 2011-02-04 Improved look.
  80 
     REM ######################
     Main

  90 LET datumLen=2+3
     REM 2 bytes for the score, 3 for the player name
 100 LET scoreDigits=4
     LET m$=STRING$(scoreDigits,"0")
 110 DIM d$(1,datumLen)
     REM temporary datum
 120 DIM r$(1,datumLen)
     REM final data array
 130 CLS #
     PRINT INVERSE 1;"alien-b-r"''
 140 RESTORE
 150 DO
 160   READ score
 170 EXIT IF NOT score
 180   READ n$
       REM name
 190   PRINT USING m$;score;" ";n$
 200   LET d$(1)=CHAR$(score)+n$
       COPY d$ TO r$
 210 LOOP
 220 DELETE r$(1)
     SORT INVERSE r$
 230 SAVE OVER d*"records" DATA r$()
 240 PRINT '"Sorted and saved!"
 250 FOR n=1 TO LENGTH(1,"r$()")
 260   PRINT AT n+1,16;; USING m$;NUMBER(r$(n, TO 2));" ";r$(n,3 TO )
 270 NEXT n
 280 STOP
 290 
     REM ######################
     Data

 300 REM score,name
 310 DATA 1982,"ACE"
 320 DATA 1982,"ZX"
 330 DATA 1983,"MSX"
 340 DATA 1984,"QL"
 350 DATA 1985,"ZX"
 360 DATA 1989,"SAM"
 370 DATA 1993,"QXL"
 380 DATA 1999,"5MX"
 390 DATA 0
     REM end of data

 400 
     REM ######################
     Meta

 410 DEF PROC s
 420   ERASE d*"alien-b-r~"
 430   ERASE d*"alien-b-r" TO "alien-b-r~"
 440   CLEAR
       SAVE d*"alien-b-r"
       STOP
 450 END PROC

Descargas

Este programa está en el disco de Alien-B.

Páginas relacionadas

Alien-B
Juego de invasores escrito en Beta BASIC para ZX Spectrum 128.
alien-b-m
Programa herramienta escrito en Beta BASIC para crear los datos de los mensajes del juego Alien-B.
alien-b-s
Programa herramienta escrito en Beta BASIC para crear las cadenas gráficas del juego Alien-B.
alien-b-t
Programa herramienta escrito en Beta BASIC para crear gráficos necesarios para el juego Alien-B.
alien-b-u
Programa herramienta escrito en Beta BASIC para crear los GDU del juego Alien-B.