Basic in Linux

[washe]

Many Many Many years ago I built a program for my father.

I made it in Quick Basic it was the only programming language avaiable to me at the age of 12... So this application has been used for the past 16 years with out any upgrading..

I have Linux on my system I dont have any other use than checking mails and sometimes learning new stuff...

As a new project I want to develop that program in Linux but i dont know anoher program language.... short history at 18 I decided that programming was not worth the hassle to study in my country and went to a different pat

So is there any Quick basic option in linux?

[Rootstonian]

Not that I know of, but a gcc (C) compiler should be part of a Linux distribution.

C is not hard to learn; what's the program...I would be willing to give you some pointers and/or you can Google "Basic C Programming" for tutorials!

[vass0922]

C ?!

thats like using a torque wrench to put on a doorknob.. ya it'll work but usually overkill

Assuming this is just command line utility, you could probably just do it in a bash script.

Or maybe learn Python/Ruby.. still more complicated than BASIC, but nowhere near C

What does it need to do?

[washe]

The program actually make some equations where he provides some numbers, they are like 7 different tests, he provides some numbers and the program from that input estimates the final value and the data its being sent to the printer.

One patient can have all the test or some of them so basically its driven by a menu i created..

I'll post the source code tomorrow, I just noticed today I don't have the copy on this system.

I programmed in C long time ago and it was a little overkill for my skills with it.

[Max_Confusion]

http://www.realbasic.com/


maybe this will suite your needs.

[Rootstonian]

Basic programs in C or C++ are not that hard...just have to learn a little syntax and formatting

From the sound of it, I wouldn't imagine it taking me more than 1 hour to write what he needs!

[sr71000]

why not perl? or hell...even php nice little scripting languages that won't give him the bs that C will....plus....they support STRINGS!!!!! lol go with perl and he can create an html front end as well rather than use command line (just thought of that). lol. could do it with php as well (not sure if you'd have to use apache for this though...but hey...could be a fun project for you! )

[GameManK]

A quick search in apt turns up "bwbasic" and "yabasic" interpreters. Give those a shot.

[ShuckyD]

the only problem i see with RealBASIC is that it cost $$.. other than that, heck it would work... But since Linux is big on C/C++ and most distros have development stuff with them, why not use it, its there

[washe]

Hold your horses!!

Ill have the code next sunday.... It couldnt go to my parents house this weekend due that my kid got sick and didnt wanted to strain himself with a 2hr trip.

[washe]

ok here is the code....

BAMH331116HSLLNBO2: T = 2.83: B1 = 31: URE = 97.3: B2 = 18: URI = 2.02: B3 = 36: E = 1.56: B4 = 106: Z = 6.87: B5 = 60: Hb = 40.8:
TRIGL = 692: IND.ICT. = 23.8: HDL = 117.9: Bk = .018: CREAT = Bk = .166: F = 21:
Bk = 263: F = 115.2: SGPT = Bk = 272: F = 199.4: LIPIDOS = Bk = .032: F = 2032:
DIM CW$(16): CLS
T = 4.88: B1 = 5: URE = 100: B2 = 17: URI = 2.25: B3 = 7: E = 1.68: B4 = 108:
Z = 10.26: B5 = 5
WIDTH "LPT1:", 170
ESC$ = CHR$(27): LH$ = "\L": LO$ = "\l"
LPRINT CHR$(14); CHR$(15); SPACE$(14); "L A B O R A T O R I O   B L A N C A R T E"
LPRINT SPACE$(33); "CALLE 3ra. #668  Tel. (658) 516-22-24";
LPRINT SPACE$(6); "C.P. 21720 GPE. VICTORIA, B.C."
LPRINT SPACE$(26); "REG. S.S.A. 6459  LIC. SANITARIA No. AFM-00023-2002";
LPRINT SPACE$(2); "REG. D.G.P. 299190  REG. EDO. 402"
LPRINT CHR$(18)
INPUT "NOMBRE DEL PACIENTE "; N$
INPUT "NOMBRE DEL SR. DR."; DR$:             INPUT "REGISTRO "; RG$
LPRINT "NOMBRE:  "; N$: LPRINT "SR.DR.:  "; DR$; TAB(67); "REG. "; RG$
CLS
PRINT "1.-CITOLOGIA HEMATICA."
PRINT "2.-EXAMEN GENERAL DE ORINA."
PRINT "3.-QUIMICA SANGUINEA."
PRINT "4.-COMENTARIOS."
PRINT "5.-DEPURACION DE LA CREATININA."
PRINT "6.-ESPERMATOBIOSCOPIA."
PRINT "7.-ANTIDOPING."
PRINT "8.-REACCIONES FEBRILES."
PRINT "9.-HEPATICA."
PRINT : PRINT : PRINT " SELECCIONA UNA OPCION"
LEE1:
K$ = INPUT$(1): ZK = VAL(K$)
: IF ZK < 1 OR ZK > 9 THEN GOTO LEE1
ON ZK GOTO CITOLOGIA, GENERAL, SANGUINEO, REMARKS, DEPURACION, ESPERMA, ANTIDOPING, FEBRILES, HEPATICA
CITOLOGIA:
PRINT "ENTRADA DE DATOS CITOLOGIA HEMATICA ": PRINT
INPUT "ERITROCITOS. "; ER
IF ER = 0 THEN GOTO SAL2

PRINT "HEMOGLOBINA"; ; : INPUT L: HMA = INT(10 * L * .04 + .5) / 10
INPUT "SEDIMENTACION "; SD$
INPUT "HEMATOCRITO "; HT
PRINT "EL PACIENTE ES 1).-HOMBRE 2).-MUJER 3).-BUKY";
LEE2:
INPUT J
IF J < 1 OR J > 3 THEN GOTO LEE2
ON J GOTO HOMBRE, MUJER, BUKY

HOMBRE:
PRINT "HOMBRE ": PHM = INT((HMA * 1000 / 15.5) + .5) / 10: GOTO SAL1
 
MUJER:
PRINT "MUJER ": PHM = INT((HMA * 1000 / 14.2) + .5) / 10: GOTO SAL1

BUKY:
PRINT "BUKY ": PHM = INT((HMA * 1000 / 12) + .5) / 10: GOTO SAL1

SAL1:     
ERD = INT(ER / 100000): HMW = INT((HMA / ERD * 1000) + .5) / 10
VGM = INT((HT / ERD * 1000) + .5) / 10
CMH = INT(((HMA / HT) * 1000) + .5) / 10
IC = INT((PHM * 100 / (2 * ERD)) + .5) / 100
SAL2:
INPUT "LEUCOCITOS "; LEU$: INPUT "EOSINOFILOS "; ES$: INPUT " BASOFILOS "; BA$
INPUT "NEUTROFILOS "; NE$: INPUT "MIELOCITOS "; MI$: INPUT "JUVENILES "; JU$
INPUT "ENCAYADOS "; EY$: INPUT "SEGMENTADOS "; SG$: INPUT "LIFONCITOS "; LI$
INPUT "MONOCITOS "; MT$
ER$ = STR$(ER): ER$ = LEFT$(ER$ + SPACE$(10), 10)
HMA$ = STR$(HMA): HMA$ = LEFT$(HMA$ + SPACE$(10), 10)
PHM$ = STR$(PHM) + " %": PHM$ = LEFT$(PHM$ + SPACE$(10), 10)
SD$ = LEFT$(SD$ + SPACE$(10), 10)
HT$ = STR$(HT): HT$ = LEFT$(HT$ + SPACE$(10), 10)
LEU$ = LEFT$(LEU$ + SPACE$(6), 6)
ES$ = LEFT$(ES$ + SPACE$(6), 6)
BA$ = LEFT$(BA$ + SPACE$(6), 6)
NE$ = LEFT$(NE$ + SPACE$(6), 6)
MI$ = LEFT$(MI$ + SPACE$(6), 6)
JU$ = LEFT$(JU$ + SPACE$(6), 6)
EY$ = LEFT$(EY$ + SPACE$(6), 6)
SG$ = LEFT$(SG$ + SPACE$(6), 6)
LI$ = LEFT$(LI$ + SPACE$(6), 6)
MT$ = LEFT$(MT$ + SPACE$(6), 6)
HMW$ = STR$(HMW): HMW$ = LEFT$(HMW$ + SPACE$(17), 17)
VGM$ = STR$(VGM): VGM$ = LEFT$(VGM$ + SPACE$(17), 17)
CMH$ = STR$(CMH): CMH$ = LEFT$(CMH$ + SPACE$(17), 17)
IC$ = STR$(IC): IC$ = LEFT$(IC$ + SPACE$(17), 17)
LPRINT
LPRINT CHR$(14); "         CITOLOGIA HEMATICA"
LPRINT
LPRINT "       FORMULA ROJA:                               FORMULA BLANCA:"
LPRINT "------------------------------------------------------------------------------"
LPRINT "ERITROCITOS   :"; ER$; "H4.0-6.2,M4.0-5.5Mill   LEUCOCITOS  : "; LEU$; " 5-9Mil"
LPRINT "HEMOGLOBINA   :"; HMA$; "H15.5,M14.2,N12gr. "

LPRINT "% HEMOGLOBINA :"; PHM$; "                        EOSINOFILOS : "; ES$; " 2-4%"
LPRINT "SEDIMENTACION : "; SD$; "H0-7,M0-15mm           BASOFILOS   : "; BA$; " 0-1%"
LPRINT "HEMATOCRITO   :"; HT$; "H40-54,M37-47cc         NEUTROFILOS : "; NE$; " 54-70%"
LPRINT SPACE$(50); "mielocitos : "; MI$; " 0%"
LPRINT SPACE$(15); "INDICES"; SPACE$(28); "juveniles  : "; JU$; " 0-1%"
LPRINT "HGM    :"; HMW$; "27-31mmg                 encayados  : "; EY$; " 3-5%"
LPRINT "VGM    :"; VGM$; "82-92 micras cubicas     segmentados: "; SG$; " 51-67%"
LPRINT "CMHG   :"; CMH$; "32-36gr                 LINFOCITOS  : "; LI$; " 21-35%"
LPRINT "IC     :"; IC$; "0.85-1.15               MONOCITOS   : "; MT$; " 2-8%"
LPRINT
 CLS
PRINT "SELECCIONE UNA DE LAS SIGUIENTES OPCIONES.": PRINT
PRINT "1.-EXAMEN GENERAL DE ORINA."
PRINT "2.-QUIMICA SANGUINEA."
PRINT "3.-DEPURACION DE LA CREATININA."
PRINT "4.-COMENTARIOS."
PRINT "5.-ESPERMATOBIOSCOPIA."
PRINT "6.- ANTIDOPING"
PRINT "7.-REACIONES FEBRILES."
PRINT "8.-HEPATICA."
PRINT "9.-TERMINACION DE EXAMEN."
LEE3:
W$ = INPUT$(1): W = VAL(W$)
IF W < 1 OR W > 9 THEN GOTO LEE3
ON W GOTO GENERAL, SANGUINEO, DEPURACION, REMARKS, ESPERMA, ANTIDOPING, FEBRILES, HEPATICA, QUIT

GENERAL:
PRINT "     ENTRADA DE DATOS EXAMEN GENERAL DE ORINA  ": PRINT
INPUT " COLOR "; c$: INPUT "ASPECTO "; a$: INPUT "SEDIMENTO "; S$:
INPUT "DENSIDAD "; D$: INPUT "REACCION  "; R$: INPUT "GLUCOSA "; G$:
INPUT "ALBUMINA "; AL$: INPUT "PIG. BILIARES "; PB$: INPUT "UROBILINA. "; U$:
INPUT "NITRITOS"; NI$: INPUT "HEMOGLOBINA. "; H$: INPUT "ACETONA "; AC$:
INPUT "CELULAS EPITELIALES "; CE$: INPUT "LEUCOCITOS "; L$:
INPUT "CILINDROS "; CI$: INPUT "ERITROCITOS: "; ER$


c$ = "VOGEL " + c$
c$ = LEFT$(c$ + SPACE$(21), 21)
a$ = LEFT$(a$ + SPACE$(21), 21)
S$ = LEFT$(S$ + SPACE$(21), 21)
D$ = LEFT$(D$ + SPACE$(21), 21)
R$ = LEFT$(R$ + SPACE$(21), 21)
G$ = LEFT$(G$ + SPACE$(21), 26)
AL$ = LEFT$(AL$ + SPACE$(21), 21)
PB$ = LEFT$(PB$ + SPACE$(21), 21)
U$ = LEFT$(U$ + SPACE$(21), 21)
NI$ = LEFT$(NI$ + SPACE$(21), 21)
H$ = LEFT$(H$ + SPACE$(21), 21)
AC$ = LEFT$(AC$ + SPACE$(21), 21)
CE$ = LEFT$(CE$ + SPACE$(21), 21)
L$ = LEFT$(L$ + SPACE$(21), 21)
CI$ = LEFT$(CI$ + SPACE$(21), 63)
ER$ = LEFT$(ER$ + SPACE$(21), 21)
LPRINT : LPRINT CHR$(14); "        EXAMEN GENERAL DE ORINA "
LPRINT
LPRINT "      EXAMEN FISICO                       EXAMEN QUIMICO"
LPRINT "-----------------------------------------------------------------------------"
LPRINT
LPRINT "COLOR    :     "; c$; "GLUCOSA       : "; G$
LPRINT "ASPECTO  :     "; a$; "ALBUMINA      : "; AL$
LPRINT "SEDIMENTO:     "; S$; "PIG. BILIARES : "; PB$
LPRINT "DENSIDAD :     "; D$; "UROBILINA     : "; U$
LPRINT "REACCION :     "; R$; "NITRITOS      : "; NI$
LPRINT SPACE$(36); "HEMOGLOBINA   : "; H$
LPRINT SPACE$(36); "ACETONA       : "; AC$
LPRINT
LPRINT "  ESTUDIO DE SEDIMENTO:": LPRINT
LPRINT "CELULAS EPITELIALES:  "; CE$
LPRINT "LEUCOCITOS         :  "; L$
LPRINT "CILINDROS          :  "; CI$
LPRINT "ERITROCITOS        :  "; ER$
CLS
PRINT "EN DOS LINEAS DE PANTALLA O MENOS ESCRIBA"
PRINT "LOS COMENTARIOS (SON 5 LINEAS MAXIMO POSIBLE)"
PRINT "OPRIMA RETURN AL TERMINAR CADA  DOS"
PRINT " LINEAS ": PRINT : PRINT
INPUT " OTROS ELEMENTOS "; OE$: LPRINT "OTROS ELEMENTOS    :  "; OE$: LPRINT
LINEAS:
CLS
PRINT "SELECCIONA UNA DE LAS SIGUIENTES OPCIONES": PRINT
PRINT "1.-GENERAL DE ORINA."
PRINT "2.-QUIMICA SANGUINEA."
PRINT "3.-DEPURACION DE LA CREATININA."
PRINT "4.-COMENTARIOS."
PRINT "5.-ESPERMATOBIOSCOPIA."
PRINT "6.-ANTIDOPING"
PRINT "7.-REACCIONES FEBRILES"
PRINT "8.-HEPATICA."
PRINT "9.-TERMINACION DE EXAMEN."
LEE4:
W$ = INPUT$(1): W = VAL(W$)
IF W < 1 OR W > 9 THEN GOTO LEE4
ON W GOTO GENERAL, SANGUINEO, DEPURACION, REMARKS, ESPERMA, ANTIDOPING, FEBRILES, HEPATICA, QUIT
SANGUINEO:
CLS
PRINT " ENTRADA DE DATOS A QUIMICA SANGUINEA"
INPUT "GLUCOSA: "; G
INPUT "UREA:  "; U
INPUT "ACIDO URICO:  "; AU
INPUT "CREATININA :  "; CR
INPUT "COLESTEROL :  "; CO
LPRINT : LPRINT CHR$(14); "           QUIMICA SANGUINEA": LPRINT
LPRINT "                       RESULTADOS:         NORMALES:"

LPRINT "-----------------------------------------------------------------------------"
GN = INT(T * (G - B1) + .5) / 10: GN$ = STR$(GN)
IF G < 1 THEN GN$ = ""
GN$ = LEFT$(GN$ + SPACE$(21), 21)
LPRINT "GLUCOSA             : "; GN$; "70 a 110 mgr%"
UN = INT(URE * (U - B2) + .5) / 100: UN$ = STR$(UN)
IF U < 1 OR UN < 1 THEN UN$ = ""
UN$ = LEFT$(UN$ + SPACE$(21), 21)
LPRINT "UREA                : "; UN$; "20 a 30 mgr%"
NUN = INT((UN * 100 / 2.14) + .5) / 100: NUN$ = STR$(NUN)
IF NUN < 1 THEN NUN$ = ""
NUN$ = LEFT$(NUN$ + SPACE$(21), 21)
LPRINT "NITROGENO UREICO    : "; NUN$; "9 a 17 mgr%"
AUN = INT(URI * (AU - B3) + .5) / 100: AUN$ = STR$(AUN)
IF AU < 1 OR AUN < 1 THEN AUN$ = ""
AUN$ = LEFT$(AUN$ + SPACE$(21), 21)
LPRINT "ACIDO URICO         : "; AUN$; "2 a 4 mgr%"
CRN = INT(E * (CR - B4) + .5) / 100: CRN$ = STR$(CRN)
IF CR < 0 OR CRN < .1 THEN CRN$ = ""
CRN$ = LEFT$(CRN$ + SPACE$(21), 21)
LPRINT "CREATININA          : "; CRN$; "1 a 2 mgr%"
CON = INT(Z * (CO - B5) + .5) / 10: CON$ = STR$(CON)
IF CO < 1 OR CON < 1 THEN CON$ = ""
CON$ = LEFT$(CON$ + SPACE$(21), 21)
LPRINT "COLESTEROL          : "; CON$; "140 a 200 mgr%"

PRINT "SELECCIONE UNA DE LAS SIGUIENTES OPCIONES: PRINT"
PRINT "1.-GENERAL DE ORINA."
PRINT "2.-QUIMICA SANGUINEA."
PRINT "3.-DEPURACION DE LA CREATININA."
PRINT "4.-COMENTARIOS."
PRINT "5.-ESPERMATOBIOSCOPIA."
PRINT "6.-ANTIDOPING."
PRINT "7.-REACCIONES FEBRILES."
PRINT "8.-HEPATICA."
PRINT "9.-TERMINACION DE EXAMEN."
LEE5:
W$ = INPUT$(1): W = VAL(W$)
IF W < 1 OR W > 8 THEN GOTO LEE5
ON W GOTO GENERAL, SANGUINEO, DEPURACION, REMARKS, ESPERMA, ANTIDOPING, FEBRILES, HEPATICA, QUIT
DEPURACION:
LPRINT
LPRINT CHR$(14); CHR$(15); "DEPURACION DE LA CREATININA EN ORINA DE 24 HORAS"; CHR$(18)
PRINT "LECTURA DE LA CREATININA EN ORINA =";
INPUT L1
PRINT "O ="; INT((L1 - 108) * 1.68 + .5) / 1000
O = INT((L1 - 108) * 1.68 + .5) / 1000
PRINT "VOLUMEN TOTAL DE ORINA =";
INPUT VO
PRINT "V ="; VO / 1440
V = VO / 1440
PRINT "LECTURA DE LA CREATININA EN SUERO "; : LPRINT
INPUT L2
PRINT "CS ="; INT((L2 - 108) * 1.68 + .5) / 10000
CS = INT((L2 - 108) * 1.68 + .5) / 10000
PRINT "ESTATURA EN cm =";
INPUT cm
PRINT "PESO EN Kg = ";
INPUT K
PLAY "L27DCDFGABCDEFGAB"
PRINT "S ="; INT((cm ^ .725) * (K ^ .425) * 71.84 + .5) / 10000
S = INT((cm ^ .725) * (K ^ .425) * 71.84 + .5) / 10000
PRINT "RESULTADO ="; INT((10 * O * V / CS) * 1.73 / S + .5) / 10; "mil/min."
PRINT
LPRINT "RESULTADO ="; INT((10 * O * V / CS) * 1.73 / S + .5) / 10; "ml/min."
LPRINT "NORMALES  = 95 A 131 ml/min."
LPRINT : LPRINT
LPRINT "CREATININA EN SANGRE ="; (CS * 100); "mgr%"
LPRINT "NORMALES             = 1 A 2 mgr%"
LPRINT "CREATINURIA TOTAL    ="; INT((VO * O) + .5); " mgr / 24 Hs."
LPRINT "NORMALES             = 400 A 1800 mgr/24 Hs."
LPRINT "VOLUMEN DE ORINA     ="; VO; "ml"
LPRINT "ESTATURA             ="; cm / 100; "m"
LPRINT "PESO                 ="; K; "Kg"
LPRINT "SUPERFICIE CORPORAL  ="; S; "m2": LPRINT
PRINT "SELECCIONE UNA DE LAS SIGUIENTES OPCIONES": PRINT
PRINT "1.-GENERAL DE ORINA."
PRINT "2.-QUIMICA SANGUINEA."
PRINT "3.-DEPURACION DE LA CREATININA."
PRINT "4.-COMENTARIOS."
PRINT "5.-ESPERMATOBIOSCOPIA."
PRINT "6.-ANTIDOPING."
PRINT "7.-REACCIONES FEBRILES"
PRINT "8.-HEPATICA."
PRINT "9.-TERMINACION DE EXAMEN."
LEE6:
W$ = INPUT$(1): W = VAL(W$)
IF W < 1 OR W > 9 THEN GOTO LEE6
ON W GOTO GENERAL, SANGUINEO, DEPURACION, REMARKS, ESPERMA, ANTIDOPING, FEBRILES, HEPATICA, QUIT
REMARKS:
FOR I = 1 TO 9: PRINT I; ".-."; : INPUT CW$(I): LPRINT CW$(I): NEXT I
PRINT "DESEAS MAS COMENTARIOS "; a$
IF LEFT$(a$, 1) = "S" OR LEFT$(a$, 1) = "s" THEN GOTO REMARKS
GOTO LINEAS
LEE7:                           
W$ = INPUT$(1): W = VAL(W$)
IF W < 1 OR W > 9 THEN GOTO LEE7
ON W GOTO GENERAL, SANGUINEO, DEPURACION, REMARKS, ESPERMA, ANTIDOPING, FEBRILES, HEPATICA, QUIT
ESPERMA:
LPRINT
LPRINT CHR$(14); "ESPERMATOBIOSCOPIA": LPRINT
INPUT "RECUENTO                 : "; REC$
LPRINT "RECUENTO                : "; REC$; : LPRINT " X c.c."
INPUT "VOLUMEN                  : "; VOL$
LPRINT "VOLUMEN                 : "; VOL$; : LPRINT " c.c. "
INPUT "REACCION                 : "; REA$
LPRINT "REACCION                : pH "; REA$
INPUT "COLOR                    : "; COL$
LPRINT "COLOR                   : "; COL$
INPUT "ASPECTO                  : "; ASP$
LPRINT "ASPECTO                 : "; ASP$
INPUT "CONSISTENCIA             : "; CON$
LPRINT "CONSISTENCIA            : "; CON$
INPUT "LICUACION                : "; LIC$
LPRINT "LICUACION               : "; LIC$
INPUT "FORMAS MOVILES           : "; MOV$
LPRINT "FORMAS MOVILES          : "; MOV$; : LPRINT "% APROXIMADAMENTE."
INPUT "MOTILIDAD                : "; MOT$
LPRINT "MOTILIDAD               : "; MOT$
INPUT "VITALIDAD                : "; VIT$
LPRINT "VITALIDAD               : "; VIT$; : LPRINT " HORAS."
INPUT "CABEZA ROMA              : "; CAB$
LPRINT "CABEZA ROMA             : "; CAB$; : LPRINT "% APROXIMADAMENTE."
INPUT "CABEZA AGUDA             : "; AG$
LPRINT "CABEZA AGUDA            : "; AG$; : LPRINT "% APROXIMADAMENTE."
INPUT "MICROCEFALOS             : "; MIC$
LPRINT "MICROCEFALOS            : "; MIC$; : LPRINT "% APROXIMADAMENTE."
INPUT "COLA RUDIMENTARIA        : "; COL$
LPRINT "COLA RUDIMENTARIA       : "; COL$; : LPRINT "% APROXIMADAMENTE."
INPUT "LEUCOCITOS               : "; LEU$
LPRINT "LEUCOCITOS              : "; LEU$; : LPRINT " X CAMPO."
INPUT "OTROS ELEMENTOS          : "; OTR$
LPRINT "OTROS ELEMENTOS         : "; OTR$
CLS
PRINT "SELECCIONE UNA DE LAS SIGUIENTES OPCIONES": PRINT
PRINT "1.-GENERAL DE ORINA."
PRINT "2.-QUIMICA SANGUINEA."
PRINT "3.-DEPURACION DE LA CREATININA."
PRINT "4.-COMENTARIOS."
PRINT "5.-ESPERMATOBIOSCOPIA."
PRINT "6.-ANTIDOPING."
PRINT "7.-REACCIONES FEBRILES"
PRINT "8.-HEPATICA."
PRINT "9.-TERMINACION DE EXAMEN."
LEE8:
W$ = INPUT$(1): W = VAL(W$)
IF W < 1 OR W > 8 THEN GOTO LEE8
ON W GOTO GENERAL, SANGUINEO, DEPURACION, REMARKS, ESPERMA, ANTIDOPING, FEBRILES, HEPATICA, QUIT
ANTIDOPING:
LPRINT : LPRINT CHR$(14); "                ANTIDOPING": LPRINT
INPUT "                      ALCOHOL ........................ "; ALC$
LPRINT "                     ALCOHOL ....................... "; ALC$
INPUT "                      COCAINA ........................."; COC$
LPRINT "                     COCAINA ....................... "; COC$
INPUT "                      METHAMPHETAMINAS ............... "; METH$
LPRINT "                     METHAMPHETAMINAS .............. "; METH$
INPUT "                      OPIACEOS ....................... "; OP$
LPRINT "                     OPIACEOS ...................... "; OP$
INPUT "                      PHENILCICLIDINE ................ "; PHEN$
LPRINT "                     PHENILCICLIDINE ............... "; PHEN$
INPUT "                      CANABINOIDES ................... "; CANA$
LPRINT "                     CANABINOIDES .................. "; CANA$
LPRINT
LEE9:
PRINT "SELECCIONE UNA DE LAS SIGUIENTES OPCIONES": PRINT
PRINT "1.-GENERAL DE ORINA."
PRINT "2.-QUIMICA SANGUINEA."
PRINT "3.-DEPURACION DE LA CREATININA."
PRINT "4.-COMENTARIO."
PRINT "5.-ESPERMATOBIOSCOPIA."
PRINT "6.-ANTIDOPING."
PRINT "7.-REACCIONES FEBRILES"
PRINT "8.-ANTIDOPING."
PRINT "9.-TERMINACION DE EXAMEN."
W$ = INPUT$(1): W = VAL(W$)
IF W < 1 OR W > 9 THEN GOTO LEE9
ON W GOTO GENERAL, SANGUINEO, DEPURACION, REMARKS, ESPERMA, ANTIDOPING, FEBRILES, HEPATICA, QUIT
FEBRILES:
LPRINT : LPRINT CHR$(14); "        REACCIONES FEBRILES": LPRINT
INPUT "TIFICO H"; TIFH$
INPUT "TIFICO O"; TIFO$
INPUT "PARATIFICO A"; TIFA$
INPUT "PARATIFICO B"; TIFB$
INPUT "BRUCELA ABORTUS"; BRUC$
INPUT "PROTEUS OX19"; PROT$
TIFH$ = LEFT$(TIFH$ + SPACE$(12), 12)
TIFO$ = LEFT$(TIFO$ + SPACE$(12), 12)
TIFA$ = LEFT$(TIFA$ + SPACE$(12), 12)
TIFB$ = LEFT$(TIFB$ + SPACE$(12), 12)
BRUC$ = LEFT$(BRUC$ + SPACE$(12), 12)
PROT$ = LEFT$(PROT$ + SPACE$(12), 12)
LPRINT "TIFICO H ....... "; TIFH$; "          PARATIFICO B ......... "; TIFB$
LPRINT "TIFICO O ....... "; TIFO$; "          BRUCELA ABORTUS ...... "; BRUC$
LPRINT "PARATIFICO A ... "; TIFA$; "          PROTEUS OX19 ......... "; PROT$
LPRINT
GOTO LEE9
HEPATICA:
LPRINT : LPRINT CHR$(14); "        FUNCION HEPATICA": LPRINT
LPRINT SPACE$(28); "RESULTADOS";
LPRINT SPACE$(6); "NORMALES:"
PRINT "BILIRRUBINA DIRECTA";
INPUT L11
LPRINT "BILIRRUBINA DIRECTA";
LPRINT SPACE$(8); INT(L11 * 3.52 + .5) / 100;
LPRINT "           O"
PRINT "BILIRRUBINA TOTAL";
INPUT L12
LPRINT "BILIRRUBINA INDIRECTA";
LPRINT SPACE$(6); INT((L12 - L11) * 3.52 + .5) / 100;
LPRINT "           0.1 a 0.2 mgr%"
LPRINT "BILIRRUBINA TOTAL";
LPRINT SPACE$(10); INT(L12 * 3.52 + .5) / 100;
LPRINT "           0.2 a 0.8 mgr%"
PRINT "T. GLUTAMICO OXALACETICA";
INPUT L13
LPRINT "T.GLUTAMICO OXALACETICA";
LPRINT SPACE$(4); INT((L13 - 270) * 3.02 + .5) / 10;
LPRINT "           8 a 40 U."
PRINT "T. GLUTAMICO PIRUVICA";
INPUT L14
LPRINT "T. GLUTAMICO PIRUVICA";
LPRINT SPACE$(6); INT((L14 - 289) * 2.5 + .5) / 10;
LPRINT "           5 a 30 U."
GOTO LEE9
QUIT:
INPUT "FECHA:  "; FE$
LPRINT "FECHA:   "; FE$; TAB(50); "PRACTICO:--------------------": LPRINT : LPRINT
END

[Rootstonian]

Por dios mio! Su programa es en Espanol! No recuredo mucho Espanol.

Diga me los variables en English por favor! LOL

[washe]

Well code is english.... Who cares what the variables are called

Clock is ticking... you got 1 hour...

[Rootstonian]

Oh no! The PRESSURE I can't handle it! Alas, I am at home today and my compiler is on my work pc (good enough excuse?).

I need to get a gcc compiler of some sort, so I can do this and you could compile it and run it. We could work on it together if you want; sounds like fun to me

LOL...found an old copy of 6.5 Mandrake here....installing now on Virtural PC

[Rootstonian]

OK, done

[ShuckyD]

wow... and how long did that take you? (considering all the code from above is coded and you didnt leave anything out)

[Rootstonian]

ROFL, LMAO....I crack me up...It's just the friggn' skeleton for the menu system...LMAO, ROFL

I'm good, but not quite that fast As you can see, I did get Redhat Linux 5.2 installed in Virtual PC. Works good enough for me to do something like this.

Washe said he is using Linux, so I figured I would compile with g++. I'll probably need his help on this if he wants it finished; not sure on some of the logic! LOL

Adios!

[ShuckyD]

i wonder about you sometimes

thought that was a bit fast considering your just recently got the Virtual Machine to run

[Rootstonian]

Yeah, no kidding...

My first programming class was C (not C++) on a Unix system, so this is kinda taking me back to my roots (no pun intended!) Fun stuff!

Now, how the hell do I get the source/exe off the virtual PC!!!!!!

[washe]

Rootstonian you said you could code it in an hour.... where is my program....

A menu is a totally incomplete work

Got me like two months to get that program to run.... and like another one to print correctly to the printer... But hey I was 12 years at that time to many distractions to get something serious...

What help you need from me Root?