Armorik

CARGADOR PARA LAS 8 CONQUISTAS DE ARMORIK

CLS:KEY OFF
READ C:S=S+C:IF C=-1 THEN 70
C$=C$+CHR$(C)
GOTO 40
IF S<>14187 THEN PRINT ERROR EN LOS DATAS!:END
PRINT INTRODUCE EL DISCO DONDE QUIERAS GRABAR EL CARGADOR Y PULSA UNA TECLA
IF INKEY$= THEN 90
OPEN carmorik.com FOR OUTPUT AS #1
PRINT #1,C$
CLOSE 1
PRINT:PRINT CREADO EL FICHERO CARMORIK.COM, CARGALO ANTES DEL ARMORIK Y CONSEGUIRAS JUGAR CON VIDAS INFINITAS.
END

* 150 DATA 233, 137, 0, 130, 252, 0, 117, 67, 46, 163, 80, 1
* 160 DATA 46, 137, 30, 82, 1, 88, 91, 83, 80, 30, 142, 219
* 170 DATA 129, 62, 28, 5, 254, 14, 117, 33, 199, 6, 28, 5
* 180 DATA 144, 144, 199, 6, 30, 5, 144, 144, 250, 184, 0, 0
* 190 DATA 142, 216, 46, 161, 76, 1, 163, 64, 0, 46, 161, 78
* 200 DATA 1, 163, 66, 0, 251, 31, 46, 161, 80, 1, 46, 139
* 210 DATA 30, 82, 1, 234, 0, 0, 0, 0, 0, 0, 0, 0
* 220 DATA 67, 97, 114, 103, 97, 32, 97, 104, 111, 114, 97, 32
* 230 DATA 39, 76, 97, 115, 32, 56, 32, 99, 111, 110, 113, 117
* 240 DATA 105, 115, 116, 97, 115, 32, 100, 101, 32, 65,114, 109
* 250 DATA 111, 114, 105, 107, 39, 46, 10, 13, 40, 67, 41, 32
* 260 DATA 74, 46, 83, 46, 70, 46, 36, 0, 14, 31, 184, 16
* 270 DATA 53, 205, 33, 137, 30, 76, 1, 140, 6, 78, 1, 184
* 280 DATA 16, 37, 186, 3, 1, 14, 31, 205, 33, 180, 9, 14
* 290 DATA 31, 186, 84, 1, 205, 33, 186, 139, 1, 205, 39, -1