$ ! IZVEDI_BLAGAJNA_COMPUPRINT.COM $ ! Print confirmation of payment on COMPUPRINT MDP 40 B $ $ !  - Printer controller mode ON $ !  - Printer controller mode OFF $ !  - Underline $ !  - All attributes off $ ! $ ! Parametri: P1 - redni broj uplate $ ! P2 - sifra kupca $ ! P3 - iznos uplate $ ! P4 - poslovnica $ ! P5 - datum $ ! P6 - operater $ $ cls $ write sys$output " MY COMPANY, blagajna " + P4 + " - ispis potvrde" $ $ ispis: $ set term/past $ $ write sys$output "" $ write sys$output " " $ write sys$output " " $ write sys$output " " + "*" + P3 + "kn" + "#" + P1 $ write sys$output " " + P2 + " - " + P6 + " " + "*" + P3 + "kn" + "#" + P1 $ write sys$output " " + P5 + ", " + P4 + " " + P2 + " - " + P6 + " $ write sys$output " " + P5 + ", " + P4 + " $ write sys$output "" $ $ set term/nopast $ $ ponovno: $ write sys$output " " $ inquire /nopunct odg " Do you want to print another copy (Y/N) ? " $ if odg .eqs. "Y" $ then $ goto ispis $ else $ exit $ end if $ $ greska: $ on error then continue $ write sys$output "Error !" $ inquire/nopunc " " nnn $ $ kraj: $ exit