REM AMIGA-Checksum Ver. 1.0-03/03/8  .228
   8
REM (c)1988 by Alvaro Ibanez         .180
REM (c)1988 by Commodore World       .212
DIM l%(2000):k=7:prglines=0:flag=0   .286
PRINT "AMIGA-Checksum Version 1.0"   .336
PRINT "(c)1988 by Alvaro Ibanez"     .555
PRINT "(c)1988 by Commodore World"   .470
PRINT
INPUT"Numero de columnas (10)";a     .838
IF a=0 THEN a=10                     . 76
INPUT"Salida por impresora (s/n) [n  .295
   ]";p$
PRINT:PRINT "Espera..."              . 30
a$="ram:checklist"                   .151
SAVE a$,a                            .426
OPEN a$ FOR INPUT AS 1               .707
IF p$="s" THEN OPEN "prt:" FOR OUTP  .873
   UT AS 4
WHILE NOT EOF(1)                     .271
LINE INPUT#1,b$                      .855
WHILE LEFT$(b$,1)=" "                .703
b$=MID$(b$,2)                        .365
WEND                                 . 89
WHILE RIGHT$(b$,1)=" "               . 87
b$=LEFT$(b$,LEN(b$)-1)               .325
WEND                                 . 89
IF b$="9999 REM Checker-END" THEN f  .702
   lag=1:GOTO chkfin
IF b$="" OR flag=0 THEN GOTO chkfin  .736
GOSUB chkcalc
l%(prglines)=sum:prglines=prglines+  .227
   1
LOCATE 9,1:PRINT "leyendo:";prgline  .205
   s
chkfin: WEND                         .293
PRINT                                .463
w=INT(prglines/a)                    .101
FOR i=0 TO w:q$=""                   .655
FOR j=0 TO a-1                       .509
q$=q$+RIGHT$("     "+STR$(l%(i+j*(w  .  4
   +1))),5)
NEXT                                 . 61
PRINT q$                             .749
IF p$="s" THEN PRINT#4,q$            .981
NEXT                                 . 61
q$="Numero de lineas:"+STR$(prgline  .552
   s)
PRINT:PRINT q$                       .271
IF p$="s" THEN PRINT#4,"":PRINT#4,t  .926
   b$+q$
CLOSE 1:CLOSE 4                      .236
END                                  .992
chkcalc:                             .867
sum=0                                .690
FOR i=1 TO LEN(b$)                   .267
sum=(sum+ASC(MID$(b$,i,1)))*k        .724
sum=sum-INT(sum/999)*999             .478
NEXT:RETURN                          . 74
9999 REM Checker-END                 .870
Numero de lineas: 51

CLAVES
PARA INTERPRETAR
LOS LISTADOS

La mayoría de los listados para Amiga que se publican en Commodore World incluyen un sistema de comprobación de errores para que después de teclearlos te funcionen a la primera sin ningún problema. Para realizar el chequeo se utiliza el programa corrector "AMIGA-Checksum", cuyo listado aparece en estas páginas. Este programa está diseñado para comprobar programas BASIC, pero también puede utilizarse con los listados de C u otros lenguajes. Los listados de la revista aparecen con una serie de números precedidos de un punto en la parte derecha del listado. Este número es la "suma de control" de cada línea del programa y no debe teclearse cuando se está introduciendo el listado. Si alguna de las líneas del listado tiene más de 40 caracteres, los caracteres sobrantes pasan a la línea siguiente. Pera evitar confusiones, en la revista aparecen desplazados tres espacios hacia la derecha para distinguirlos de una posible nueva línea. Para teclear y comprobar los listados debes seguir los siguientes pasos:

Carga el AmigaBasic
Carga el programa "Amiga Checksum"
Sitúate al final del listado (ALT-cursor abajo)
Comienza a teclear

Al terminar, tendrás en la memoria del ordenador dos listados en uno, primero el "Amiga Checksum" y a continuación el que tú hayas tecleado. Como medida de precaución, conviene que grabes el listado de cuando en cuando. Finalmente, puedes comprobar las sumas de control del listado ejecutando el programa con RUN. El correcto te preguntará a cuántas columnas quieres el listado (1-5) y si quieres una copia impresa (S o N). Después, se calcularán todas las sumas de control del programa y aparecerá la lista. Sólo tienes que comprobar esos números con los que aparecen en la revista para descubrir si en alguna línea has cometido fallos. La lista se lee de arriba a abajo y de izquierda a derecha. Comprueba también que coincida el número de líneas del listado, por si te olvidas alguna.

Cuando termines, puedes borrar el "Checksum" tecleando DELETE-999 desde la ventana de comando, y tu programa quedará listo para funcionar.

Para evitar problemas a la hora de teclear, conviene que introduzcas los listados exactamente como aparecen en la revista, excepto los números de las sumas de control. Esto significa respetar los espacios, las mayúsculas y minúsculas, los REMs, los nombres de las variables y todo lo demás. Si no consigues la suma de control de alguna línea, no desesperes: borra la línea completamente y prueba otra vez. En última instancia, sigue con las demás líneas y vuelve más adelante a ella.

El artículo completo con la explicación detallada sobre el funcionamiento de este programa y junto con el programa que se utilizada para obtener los listados con sumas de control fue publicado en el número 47 de Commodore World.