volviendo a 16bits con Fivewin, Clipper y Blinker

[Armando Picon]

Amigos todos

Debo hacer modificaciones a unos programas escritos en fw20, Clipper 5.3b y Blinker3.1 (en ese momento la version 3.1 era lo vigente). Sigo teniendo todo, excepto el Blinker 3.1.

¿Puede alguno de vosotros alcanzarme unas plantillas del contenido de los archivos .LNK que se utilizan cuando se utiliza el Blinker? lo que yo tengo ya no funcionan con Blinker 5.10 que es lo ùnico que me queda para 16bits.

Este era mi archivo BAT

Compile.bat

clipper inicio /m/n/es2
clipper cuentas /m/n/es2
clipper wseis /m/n/es2
clipper wnueve /m/n/es2
clipper wocho /m/n/es2
clipper wDiez /m/n/es2
clipper wOnce /m/n/es2
clipper brwzona /m/n/es2
clipper wDoce /m/n/es2
clipper wTrece /m/n/es2
clipper w14 /m/n/es2
clipper w15 /m/n/es2
clipper w16 /m/n/es2
REM clipper w17 /m/n/es2
REM clipper w18 /m/n/es2

Blinker @Cuentas.lnk @FwPead.lnk

brc -k seis.rc Util700.exe

REM del *.obj
REM del *.bak
REM del *.log

REM cd ..
del *.map
del *.bif
rem utiles.exe
REM cd util700

Este era el archivo de enlace de objetos
Cuentas.LNK

output Util700

FI Inicio, mPar
Fi cuentas
fi wSeis
Fi wNueve
#fi wOcho
fi wDiez
fi wOnce
fi brwzona
fi wDoce
fi wTrece
FI W14
fi W15
FI W16
#FI W17
#FI W18

Este era el archivo para generar el EXE con Blinker 3.1

FwPead.LNK

#BLINKER CLIPPER SYMBOL OFF
BLINKER PROCEDURE DEPTH 80
BLINKER INCREMENTAL ON
BLINKER EXECUTABLE CLIPPER //:F90
#BLINKER EXECUTABLE COMPRESS 5


MAP S,A,X

PACKCODE
PACKDATA
DEFBEGIN
name PeadWin
description 'Clipper for Windows library'
exetype Windows 3.1
data preload moveable
code preload moveable nondiscardable
stacksize 8500
heapsize 2048
segment 'PLANKTON_TEXT' nondiscardable
segment 'EXTEND_TEXT' nondiscardable
segment 'OM_TEXT' nondiscardable
segment 'OSMEM_TEXT' nondiscardable
segment 'SORTOF_TEXT' nondiscardable
segment 'STACK_TEXT' nondiscardable
DEFEND

NOBELL


lib Five, FiveC, Objects, WinApi
Lib Sgem53w
lib _dbfcdx, dbfcdx

[Antonio Linares]

Armando,

Aqui puedes encontrar el Blinker 3.2: Solo escribe Blinker y verás todas las versiones que te aparecen
https://vetusware.com/search/

Yo estoy suscrito a esa web, y lo tengo descargado en caso de que no puedas descargarlo

Siento no haberte podido ayudar antes, he estado bastante liado

[Armando Picon]

Te debía agradecer por la asistencia para volver a recrear una aicación con 1 bits. Vetusware me sirvió mucho. Consegui volver a generar el ejectuable y desde ese entonces la aplicación continúa funcionando sin problema alguno.

Evidentemente, el paso no fue tan simple. Tuve que adquirir una laptop IBM con procesador Core Duo y con sistema operativo WINDOWS XP, es decir una pieza de museo, para poder recrear el ambiente.

El cliente es reaccio a subir a 32bit ---aunque entre nos debo decir que hizo lo imposible para recrear el funcionameinto de la aplicación en ambiente "moderno", como lo afirman, sin éxito y con costos de escándalo y tiempo largos. En su momento esa aplicación se diseñó y programó en 90 dias calendario y a un costo de apenas 450 dólares americanos.

En la actualidad le cotizan, porque los oferentes son conocidos mios, a un costo base de 18,000 dólares americanos y un tiempo de base de 10 meses.

Yo mismo no tengo ningún interes de llevarlo a 32bits, con Harbour o xHarbour, pues la aplicación la hice hace más de una década atrás, habida cuenta que mi última versión de Fwh es el 7.12. Los compiladores han cambiado, la librería a cambiado y las capacidades de los procedadores han crecido también. Así que; procuro evitar inconvenientes de compatibilidad.

Te agradezco muchísimo la ayuda Antonio y te pido mil disculpas por la tardanza en responder tu ayuda. La pandemia del Covid-19, que me tocó vivirla en todo su "esplendor" hizo que estos agradecimientos tardarán mucho.

Saludos.