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
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.