|
Para ver el juego todo seguido: teclea DODEMODEXTER en la pantalla de presentación.
El cargador del juego:
10 ' CARGADOR PARA SPACE ACE
20 ' *** POR JAVIER SANCHEZ FRANSESCH ***
30 DIM D%(500): LINEAS = 6: CLS
40 FOR T = 1 TO LINEAS: READ A$
50 FOR Y = 1 TO 44 STEP 2: P = P + 1
60 D%(P) = VAL("&h" + MID$(A$, Y, 2)): SUM = SUM + D%(P): NEXT Y, T
70 IF SUM <> 9213 THEN PRINT "Error en DATAS": END
80 PRINT "PULSA UNA TECLA PARA GRABAR EL CARGADOR EN EL DISCO"
90 IF INKEY$ = "" THEN 90
100 OPEN "R", #1, "cace.com", 1
110 FIELD #1, 1 AS A$
120 FOR T = 1 TO P: LSET A$ = CHR$(D%(T)): PUT #1, T: NEXT: CLOSE 1
130 PRINT "Creado el fichero CACE.COM, cargalo antes del SPACE ACE"
140 DATA "EB43551E8BEC8E5E06BD9090813EAA23FE0E750C892E"
150 DATA "AA23892EAC23892EAF231F5DEA000000004361726761"
160 DATA "20656C2053504143454143450A0D284329204A2E532E"
170 DATA "462E24B800008ED88B1E84008B0E8600B80201A38400"
180 DATA "8C0E86000E1F891E2301890E2501B409BA2701CD21BA"
190 DATA "2701CD27000000000000000000000000000000000000"
|
|
|
