REM Acest program nu a fpst niciodata terminat el e doar demonstrativ!   
REM ing. Bodin Florin Ciprian /Arad
REM 27/09/2002
REM Porneste programul din exterior printr-un fisier .BAT
REM pentru a incarca fontua speciala
REM Valoarea TVA este setata la 16% din valoarea articolului

	REM lang1040: ƒ,Œ,«,φ,ύ,œ,ρ,χ,&,¬
	 CLS
	 PRINT "Eroare lipseste parametrul!"
	ON ERROR GOTO ErrorTrap
	ErrorFlag = 0
	OPEN COMMAND$ FOR INPUT AS #1: CLOSE #1
	IF ErrorFlag THEN
	    PRINT "Optiunea solicitata nu exista."
	    SYSTEM
	END IF
	ON ERROR GOTO 0
Stack:
	CLS
	COLOR 4
	PRINT "********************************************************************************"; TAB(COLOR12);
	COLOR 15
	PRINT "Calcularea tva si a valorii unor produse"
	COLOR 31
	PRINT "Introdu alegerea ta (ro sau en) si apasa <Enter>"
	COLOR 0
	INPUT "R="; R$
	IF R$ = "ro" OR R$ = "RO" THEN GOTO Start:
	IF R$ = "en" OR R$ = "EN" THEN GOTO Startup:
	IF R$ = "" OR R$ = "" THEN
Start:  COLOR 15
	INPUT "Tipul valutei [lei; $(USD); €(Euro); forint;] ="; UM$
	IF UM$ = "DOLAR" OR UM$ = "dolar" THEN GOTO et1:
	IF UM$ = "USD" OR UM$ = "usd" THEN GOTO et1:
	IF UM$ = "LEI" OR UM$ = "lei" THEN GOTO et1:
	IF UM$ = "€" OR UM$ = "œ" GOTO et1:
	IF UM$ = "EURO" OR UM$ = "euro" THEN GOTO et1:
	IF UM$ = "FORINT" OR UM$ = "forint" THEN GOTO et4:
	IF UM$ = "1" THEN GOSUB et1:
	END IF
       
	SYSTEM

Startup:        COLOR 15
	INPUT " Enter curency [lei; $(USD); €(Euro); forint;] ="; UM$
	IF UM$ = "DOLAR" OR UM$ = "dolar" THEN GOTO et2:
	IF UM$ = "USD" OR UM$ = "usd" THEN GOTO et2:
	IF UM$ = "LEI" OR UM$ = "lei" THEN GOTO et2:
	IF UM$ = "EURO" OR UM$ = "euro" THEN GOTO et3:
	IF UM$ = "€" OR UM$ = "œ" GOTO et3:
	IF UM$ = "FORINT" OR UM$ = "forint" THEN GOTO et4:
	IF UM$ = "1" THEN GOSUB et5:
	
      
	SYSTEM
       

et1:    COLOR 13
	INPUT "Denumire produs="; N$
	COLOR 19
	INPUT "Cantitate="; Q
	COLOR 15
	INPUT "Pret (unitar)="; p
	V = Q * p
	TVA = (16 / 100) * V
	VT = V + TVA
	COLOR 10
	INPUT "Doriti afisarea datelor [D/N]="; DN$
	IF DN$ = "D" OR DN$ = "d" THEN GOSUB er:
	IF DN$ = "N" OR DN$ = "n" THEN GOSUB p1:
	SYSTEM

et2:    COLOR 13
	INPUT "Article name="; N$
	COLOR 19
	INPUT "Quantity="; Q
	COLOR 15
	INPUT "Price="; p
	V = Q * p
	TVA = (16 / 100) * V
	VT = V + TVA
	COLOR 10
	INPUT "List data [Y/N]="; DN$
	IF DN$ = "Y" OR DN$ = "y" THEN GOSUB p0:
	IF DN$ = "N" OR DN$ = "n" THEN GOSUB p12:
	SYSTEM

et3:    p = 0
	INPUT "Article name="; N$
	COLOR 19
	INPUT "Quantity="; Q
	COLOR 15
	INPUT "Price="; p
	V = Q * p
	TVA = (16 / 100) * V
	VT = V + TVA
	COLOR 10
	INPUT "List data [Y/N]="; DN$
	IF DN$ = "Y" OR DN$ = "y" THEN GOSUB p0:
	IF DN$ = "N" OR DN$ = "n" THEN GOSUB p12:
	SYSTEM


et4:    p = 0
	INPUT "Article name="; N$
	COLOR 19
	INPUT "Quantity="; Q
	COLOR 15
	INPUT "Price="; p
	V = Q * p
	TVA = (16 / 100) * V
	VT = V + TVA
	COLOR 10
	INPUT "List data [Y/N]="; DN$
	IF DN$ = "Y" OR DN$ = "y" THEN GOSUB p0:
	IF DN$ = "N" OR DN$ = "n" THEN GOSUB p12:
	SYSTEM


er:  REM "Paragraf pentru afisare (ro)"
     COLOR 15
     PRINT "ΙΝΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΛΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝ»"
     PRINT "Ί  Denumire Ί Pret un. Ί  Valoare Ί   TVA  Ί  € Ί CantitateΊ Pret tot.Ί"
     PRINT "ΜΝΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΞΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΉ"
     PRINT "Ί "; N$; "  Ί"; p; UM$; "Ί"; V; UM$; "Ί"; TVA; UM$; "Ί  € Ί"; Q; "  Ί"; VT; UM$; "Ί"
     PRINT "ΜΝΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΞΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΉ"
     PRINT "ΘΝΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΚΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΌ"
     GOTO p1:



et5:    COLOR 4
	PRINT "********************************************************************************"; TAB(COLOR12);
	COLOR 15
	GOTO Start:

p:      REM "Paragraf pentru afisare (ro)"
	COLOR 15
	PRINT "ΙΝΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΛΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝ»"
	PRINT "Ί  Denumire Ί Pret un. Ί  Valoare Ί   TVA  Ί  € Ί CantitateΊ Pret tot.Ί"
	PRINT "ΜΝΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΞΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΉ"
	PRINT "Ί "; N$; "Ί"; p; UM$; "Ί"; V; UM$; "Ί"; TVA; UM$; "Ί  € Ί"; Q; "Ί"; VT; UM$; "Ί"
	PRINT "ΜΝΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΞΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΉ"
	PRINT "Ί           Ί          Ί          Ί        Ί  € Ί          Ί          Ί"
	PRINT "Ί           Ί          Ί          Ί        Ί  € Ί          Ί          Ί"
	PRINT "ΘΝΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΚΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΌ"
	GOTO p1:

etpe0:  IF R$ = "ro" OR R$ = "RO" THEN GOTO p:
	IF R$ = "en" OR R$ = "EN" THEN GOTO p0:
	GOTO p0:

p0:     REM "Paragraf pentru afisare (en)"
	COLOR 15
	PRINT "ΙΝΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΛΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΛΝΝΝΝΝΝΝΝΝΝΝΝ»"
	PRINT "Ί  Name     Ί  Price   Ί  Value   Ί   TVA  Ί  € Ί Quantity Ί Final priceΊ"
	PRINT "ΜΝΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΞΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΝΝΉ"
	PRINT "Ί "; N$; "  Ί"; p; UM$; "Ί"; V; UM$; "Ί"; TVA; UM$; "Ί  € Ί"; Q; "  Ί"; VT; UM$; "Ί"
	PRINT "ΜΝΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΞΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΞΝΝΝΝΝΝΝΝΝΝΝΝΉ"
	PRINT "ΘΝΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΚΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΚΝΝΝΝΝΝΝΝΝΝΝΝΌ"
	GOTO p12:

p1:     COLOR 15
	PRINT "TVA="; TVA; UM$
	PRINT "Valoarea produselor fara TVA="; V; UM$
	COLOR 3
	PRINT "Pret total="; VT; UM$
	PRINT ""
	RETURN

p12:     COLOR 15
	 PRINT "TVA="; TVA; UM$
	 PRINT "Price ="; V; UM$
	 COLOR 3
	 PRINT "Price+TVA="; VT; UM$
	 PRINT ""
	 RETURN

ErrorTrap: GOTO Stack:

SYSTEM

END