10 ' CARGADOR PARA BARBARIAN: EL GUERRERO DEFINITIVO
20 ' (C) 1988 PALACE SOFTWARE
30 CLS : KEY OFF
40 READ C: S = S + C: IF C = -1 THEN 70
50 C$ = C$ + CHR$(C)
60 GOTO 40
70 IF S <> 12240 THEN PRINT "ERROR EN LOS DATAS!": END
80 PRINT "PULSA UNA TECLA PARA GRABAR EL CARGADOR."
90 IF INKEY$ = "" THEN 90
100 OPEN "cbarba.com" FOR OUTPUT AS #1
110 PRINT #1, C$
120 CLOSE 1
130 PRINT : PRINT "CREADO EL FICHERO CBARBA.COM."
135 PRINT : PRINT "CARGALO ANTES DEL BARBARIAN Y CONSEGUIRAS JUGAR CON INVULNERABILIDAD."
140 END
150 DATA 14, 31, 184, 16, 53, 205, 33, 137, 30, 111, 1, 140
160 DATA 6, 113, 1, 250, 184, 0, 0, 142, 216, 199, 6, 64
170 DATA 0, 46, 1, 140, 14, 66, 0, 251, 180, 9, 14, 31
180 DATA 186, 119, 1, 205, 33, 186, 0, 2, 205, 39, 61, 4
190 DATA 0, 117, 59, 46, 163, 115, 1, 46, 137, 30, 117, 1
200 DATA 88, 91, 83, 80, 30, 142, 219, 130, 62, 8, 22, 1
210 DATA 117, 26, 198, 6, 8, 22, 0, 250, 184, 0, 0, 142
220 DATA 216, 46, 161, 111, 1, 163, 64, 0, 46, 161, 113, 1
230 DATA 163, 66, 0, 251, 31, 46, 161, 115, 1, 46, 139, 30
240 DATA 117, 1, 234, 0, 0, 0, 0, 0, 0, 0, 0, 67
250 DATA 97, 114, 103, 97, 32, 97, 104, 111, 114, 97, 32, 101
260 DATA 108, 32, 66, 65, 82, 66, 65, 82, 73, 65, 78, 32
270 DATA 40, 80, 65, 76, 65, 67, 69, 41, 10, 13, 40, 67
280 DATA 41, 32, 74, 46, 83, 46, 70, 46, 36, -1