razno.415bulaja,
Ima li neko sacuvan file inter28C.zip iz prosle verzije interupt liste?
Greskom je obrisan kad je stigla verzija 29, a ipak je potreban i za nju ;).
razno.417zvonko,
-> #415, bulaja
Evo ga!
zvonko
razno.418obren,
Kako da u Turbo Debuggeru 2.0 postignem da se program zaustavi kada
neki registar, recimo ah, ima određenu vrednost?
Treba mi da dok pregledam neki C program u asemblerskom listingu nađem
mesto kada se poziva neka DOS funkcija. Pokušao sam u meniju breakpoints
pod stavkom 'Expression true global...' da stavim ah=n, ah==n i ah eq n
ali nijedno od toga neće.
razno.419bulaja,
-> #417, zvonko│** Uz poruku 'inter28c.zip' (135168 bytes)
└───
Hvala (sigurno ce biti i jos zahvalnih korisnika ;).
File je sad prebacen (tj. vracen gde je ranije i bio ;) u \pc\info.
razno.420bojanp,
-> #417, zvonkoVeliko hvala, pre svega u moje ime, a i u ime ostalih kojima treba.
Pozdrav, Bojan
razno.421obren,
-> #418, obrenPitao sam pre neki dan ali mi niko ne odgovori... Dakle:
Kako da u Turbo Debuggeru 2.0 postignem da se program zaustavi kada
neki registar, recimo ah, ima određenu vrednost?
Treba mi da dok pregledam neki C program u asemblerskom listingu
(recimo pređem u VIEW/CPU prozor) nađem mesto kada se poziva neka DOS
funkcija. Da li se to postavlja u opciji 'Expression true global...'
i kako. Help!
(Mora da može, tako je pisalo u računarima ;))
razno.422pedjad,
Nadam se da sam potrefio temu, zanima me da li AUTO CAD 10.0 moze da se pokrene
sa onim emulatorom komprocesora 387.
HHJa sam nesto pokusavao, ali mi nije uspelo, pa ako je neko uspeo nek napise
koju rec.
Pozdrav Pedja.
razno.425djelovic,
U poslednje vreme postajem strašno tanak s vremenom. Masa ljudi
me zove da za njih uradim neke programe, a ja jednostavno ne stižem (i
gubim i klijente i pare :( ). Ajde neka mi se jave svi oni koji
profesionalno programiraju (ili bi želeli da počnu da tako zarađuju
pare), pa da napravimo malu bazu podataka o programerima sa Sezama.
Dakle, ako vam ponekad treba pomoć za neki posao, ili ako ponekad
tražite neki posao, ostavite mi mail sa sledećom sadržinom:
█ Programski jezici koje aktivno koristite, programski jezici koje
znate, na čemu volite da radite, ... (Korisnici C-a navedite BC ili MSC.)
█ Ako ste za nekoga do sada radili, za koga i šta.
█ Kada ste zauzeti a kada raspoloživi u grubim crtama, npr. ako ste
student onda otpada vreme oko ispitnih rokova, itd.
█ Šta bi voleli da radite, bilo da su to baze podataka, grafičke
aplikacije, inženjerske kalkulacije, generatori aplikacija ili bilo šta
drugo za šta imate jak interes.
█ Ime i telefon.
razno.426znevenic,
Jel ima neko raspoložen za istraživanje zone sumraka u JPI Moduli-2?
Zapao sam u probleme koje nema šanse da rešim. Ako se neko nadje raspoložen,
možda nateramo jedan rezidentni kalkulator da lepo radi...
Pozdrav, Zoran.
razno.427bdm.,
-> #426, znevenic## Jel ima neko raspolozen za istrazivanje zone sumraka u JPI Moduli-2?
## Zapao sam u probleme koje nema sanse da resim. Ako se neko nadje raspolozen,
## mozda nateramo jedan rezidentni kalkulator da lepo radi...
Ako ti moze pomoci original uputstvo za TSR modul javi se na mail.
BDM.
razno.428dragisha,
-> #426, znevenicű> Jel ima neko raspolozen za istrazivanje zone sumraka u
ű> JPI Moduli-2? Zapao sam u probleme koje nema sanse da
ű> resim. Ako se neko nadje raspolozen, mozda nateramo jedan
ű> rezidentni kalkulator da lepo radi...
Daj ga meni:). Ili da te ubacim u grupu za modulu2 pa da se tamo
razrahatimo.
dragisha
razno.429znevenic,
-> #428, dragisha> Daj ga meni:). Ili da te ubacim u grupu za modulu2 pa da
> se tamo razrahatimo.
Postoji grupa za M2?!? Ubaci i mene u grupu, please!
razno.430znevenic,
-> #427, bdm.> Ako ti moze pomoci original uputstvo za TSR modul javi se
> na mail.
Ne znam na koje uputstvo misliš. Ja imam sve ono što se dobije
kupovinom module-2, ali nemam ništa posebno za TSR modul.
A i problem nije u TSR-u.
razno.431dragisha,
-> #429, znevenicű>> Daj ga meni:). Ili da te ubacim u grupu za modulu2 pa da
ű>> se tamo razrahatimo.
ű>
ű> Postoji grupa za M2?!? Ubaci i mene u grupu, please!
To sam napravio kao svoj prvi korak poslije pretplate:) da ne bi ko drugi
maznuo ime modula2 :).
dragisha
P.S. Smatraj se ubacenim.
razno.432tesloni,
Ubaci i mene jarane ..... ako si još u stanju da zoveš :)
razno.433dragisha,
Otvorena je grupa modula2. Ko voli nek izvoli.
R:\>mail wr dragisha
razno.434znevenic,
-> #433, dragisha> Otvorena je grupa modula2. Ko voli nek izvoli.
Otvorena. I radi žestoko :)
razno.435dragisha,
-> #434, znevenicű> Otvorena. I radi zestoko :)
Zesce :))
dragisha
razno.436aputnik,
Narode ima li neko Paintbrash ili Bitpaint program kojim slucajem.
Treba mi za Bitfax.
aputnik
razno.437nrobert,
Trazim program za animaciju Concorde !!!!
NROBERT
razno.438ivans,
Na koji nacin se u Fortranu 77 mogu ostvariti BASIC
ekvivalenti naredbi POKE i PEEK?
Pozdrav,
Ivans.
razno.439spantic,
-> #438, ivans> Na koji nacin se u Fortranu 77 mogu ostvariti BASIC
> ekvivalenti naredbi POKE i PEEK?
Po standardu ne možeš.
razno.440zamahajev,
U sledećoj školskoj godini treba da predajem u ekonomskoj školi COBOL. Kako
se ovim jezikom nisam bavio još od studija molim da mi neki stručnjak pomogne.
Interesuje me koje varijante za PC postoje i koja bi bila najbolja i
najjednostavnija za djake. Gde da nabavim program i literaturu za tu varijantu
COBOL-a.
Pozdrav Zamahajev
razno.441squsovac,
-> #440, zamahajevNe znam šta postoji za PC, ali znam da je za korišćenje neverovatno
jednostavan, i sasvim standardan MICROFOCUS COBOL. Takođe ne znam da li je
u posl godinu-dve izlazila neka nova verzija (radio sam posl. put sa tim
programom negde 89-te), ali je jako zgodan jer omogućuje kreiranje posebnih
maski, jednostavno (i brzo) kompjalira (štoje posebno pogodno u sl.
kompajliranja kratkih programa za djake) itd. AKo neko ima taj, ja ga toplo
preporučujem. Na žalost, čini mi se da je sa mojih disketa nepovratno izbrisan,
ali ću u sv. slučaju proveriti.
razno.442vvelisavljev,
-> #440, zamahajev> U sledećoj školskoj godini treba da predajem u ekonomskoj školi COBOL.
> Kako se ovim jezikom nisam bavio još od studija molim da mi neki stručnjak
> pomogne.
Nisam baš stručnjak, ali sam bio te "sreće" da sam ga učio ove godine
(4 raz. mat.prog.sar.) u školi. ARJovan kompajler sa programčićima koje smo mi
radili ima oko 120kB. Da pošaljem u mail ili još nekoga insteresuje ovo čudo?
Profesor koji mi je ovo predavao je mobilisan :(( a ja ne znam koje
knjige je on koristio.
pozdrav, Viktor!
razno.443ndragan,
-> #440, zamahajev/ U sledećoj školskoj godini treba da predajem u ekonomskoj školi COBOL.
I nijednom rečju se nisi ogradio? Za koje novce prodaješ dušu >) ?
Mada, kad malo bolje razmislim, za ekonomiste i nije neki normalan
jezik. Ipak bi bilo pametnije da uče makar i dibejz nego kobol.
Bue_ Ndragan
razno.444janko,
-> #439, spantic>> Na koji nacin se u Fortranu 77 mogu ostvariti BASIC
>> ekvivalenti naredbi POKE i PEEK?
>
> Po standardu ne možeš.
Verovali ili ne...
Po standardu, koliko znam, MOčEŠ (!) da praviš relativne PEEK i
POKE, ali ne i APSOLUTNE. Za mnoge primene (ako se mogu
zamisliti, dakle, 'mnoge' je diskutabilno, ja baš nisam siguran
da je to negde potrebno, u standardnom FORTRAN-u?) je to
dovoljno.
Trik je u korišćenju indeksa polja koji su van granica polja.
To se u FORTRAN-u radi otkako postoji taj jezik. Svojevremeno
su 'Pravi programeri' tim tehnikama pisali samomodifikujuće
programe i direktno menjali rutine operativnog sistema ( :) ).
Na MS-DOS-u je to malo čupavije zbog segmentirane memorije, ali
i dalje izvodljivo, ako se dobro odabere memorijski model.
razno.445harley,
Ima li neko text file sa nekakvim uputstvom za rad u
kvod-analajzeru (ne zvuci li srpski).
Ako ima MAIL SND harley
Unapred hvala !
**** HARLEY ****
razno.446vmisev,
-> #443, ndragan > Mada, kad malo bolje razmislim, za ekonomiste i nije neki normalan jezik.
> Ipak bi bilo pametnije da uče makar i dibejz nego kobol.
Bolje i kobol nego PL/I.
Vladimir
razno.447ljupco,
Jel ima neko pri ruci Novell mrezu da prveri dali radi sledece:
1) Provera dali je IPX instaliran:
mov ah, 7a00h
int 2fh
cmp al, 0
jne ipx_instaliran
ipx_neinstaliran:
2) Provera dali je Netbios emulator instaliran:
xor ax, ax
int 2ah
or ah, ah
jz netbios_neinstaliran
netbios_instaliran:
razno.448ndragan,
-> #446, vmisev/ Bolje i kobol nego PL/I.
U prethodnoj firmi sam zatekao brdo kobol programa koje su pisali ljudi
kojima je pre toga PL/I bio maternji jezik. Kakva kombinacija, a?
razno.449nbatocanin,
-> #446, vmisev> Bolje i kobol nego PL/I.
Što?
razno.450zdolinac,
Svima onima koji znaju nekii program za crtanje grafika na osnovu unetih
koordinata tačaka (X,Y) neka mi se jave ili ostave poruku. Stvar je hitna.
čeljko
razno.451dragoslavr,
-> #449, nbatocaninyou>> Bolje i kobol nego PL/I.
you>
you> Što?
Da, što? PL/I je neka kombinacija Paskala i Fortrana, a Cobol...(sra*e :)
Pozdrav, Dragoslav
razno.452tesloni,
Vozdra narode
Da li ima zainteresovanih za :
PARTNR50 ARJ 42084 ! Za virtualni pristup
! floppy drajvu na drugom
! računaru preko Com/LPT p.
BPS210 ZIP 52110 ! Back Error Propagation
! simulator Neuronskih
! mreža . ( primer )
HOPFIELD ZIP 22144 ! Simulatori Neuronskih
NETSTUFF ZIP 105472 ! mreža za PC računare
! sa Source-vima (C/Pas)
! ( Prepoznavanje oblika )
DATAREP ZIP 87526 ! Isto za VAX mašine
DRIVERS ZIP 338294 ! Packet drivers za razne
DRIVERS1 ZIP 268293 ! mrežne kartice sa
DRIVERS2 ZIP 149548 ! source-vima u ASM ili TC-u
! (1 i 2 su source-vi)
Ako ste zainteresovani recite kad i gde i koje da UL.
Takodje imam još nekog softwera ali o njemu više kad
ustanovim šta je Shareware a šta nije .
... :> Tesloni <:
razno.453.bale.,
-> #452, tesloniJa sam zainteresovan. Nešto od toga sam nabavio za ETF BBS, ali ću sada morati
da se pomučim da bih i ostatak. Ako ti već imaš te programe, javi se na ETF BBS
(329309), pa ih tamo UL-uj, biću ti zahvalan.
Regards from .bale. !
#:*)+-<
razno.454ivans,
-> #452, tesloni* BPS210 ZIP 52110 ! Back Error Propagation
* ! simulator Neuronskih
* ! mreza . ( primer )
*
* HOPFIELD ZIP 22144 ! Simulatori Neuronskih
* NETSTUFF ZIP 105472 ! mreza za PC racunare
* ! sa Source-vima (C/Pas)
* ! ( Prepoznavanje oblika )
Zainteresovan sam za ovo, a pretpostavljam da bi i jos neke to zanimalo. Ako ti
nije tesko - posalji!
Pozdrav,
Ivans.
razno.455vmisev,
-> #451, dragoslavr >>> Bolje i kobol nego PL/I.
>> Što?
> Da, što? PL/I je neka kombinacija Paskala i Fortrana, a Cobol...(sra*e :)
Pa reč je bila o tome da čovek to treba da predaje u ekonomskoj školi.
Slažem se sa Ndraganom da je možda bilo bolje da uče dBase nego Cobol, a mi-
slim da je PL/I sasvim neprimeren za to... Doduše, niko nije ni rekao da će
oni učiti PL/I, ali poznajući naše školstvo i "dragog" Patka č. Daču, ne bi
me čudilo da u toj ekonomskoj školi uče i organizaciju procesora 4004 :)
Ne mislim da je PL/I loš jezik, meni je čak i drag (jedan od prvih ozbi-
ljnijih jezika sa kojima sam imao prilike da se sretnem), ali je glupost to
predavati u srednjoj školi... No, da ne razglabam o šta bi trebalo učiti u
školama, ovo svakako nije mesto za takvu raspravu...
Vladimir
razno.456tesloni,
-> #453, .bale.> .... javi se na ETF BBS (329309), pa ih tamo UL-uj,
Vrlo rado al za sve ovo vreme za koje radim nisam uspeo nijednom
da se ulogujem ...
... :< Tesloni >:
razno.457tesloni,
Ok ide express zvan NETSTUFF
ostatak naknadno ....
... :> Tesloni <:
netstuff.ziprazno.458zocha,
-> #451, dragoslavr˙■> Da, što? PL/I je neka kombinacija Paskala i Fortrana, a
˙■> Cobol...(sra*e :)
Da, da ali na svakoj mašini, na svakom OS-u postoji Cobol.
Ma kolko star i ružan (i ostali epiteti) ipak je nekakav STANDARD.
:zocha:
razno.459zocha,
-> #452, tesloni˙■> PARTNR50 ARJ 42084 ! Za virtualni pristup
˙■> ! floppy drajvu na drugom
˙■> ! računaru preko Com/LPT p.
˙■>
˙■> BPS210 ZIP 52110 ! Back Error Propagation
˙■> ! simulator Neuronskih
˙■> ! mreža . ( primer )
˙■>
˙■> HOPFIELD ZIP 22144 ! Simulatori Neuronskih
˙■> NETSTUFF ZIP 105472 ! mreža za PC računare
˙■> ! sa Source-vima (C/Pas)
˙■> ! ( Prepoznavanje oblika )
˙■>
˙■> DRIVERS ZIP 338294 ! Packet drivers za razne
˙■> DRIVERS1 ZIP 268293 ! mrežne kartice sa
˙■> DRIVERS2 ZIP 149548 ! source-vima u ASM ili TC-u
˙■> ! (1 i 2 su source-vi)
Zainteresovan, ali ako može na diskete pa na klub (ima mnogo za UL/DL).
:zocha:
razno.460ivans,
-> #457, tesloniPuno hvala! Skidam odmah!
Pozdrav,
Ivans.
razno.461harley,
-> #452, tesloni
=> HOPFIELD ZIP 22144 ! Simulatori Neuronskih
=> NETSTUFF ZIP 105472 ! mreza za PC racunare
=> ! sa Source-vima (C/Pas)
=> ! ( Prepoznavanje oblika )
Interesantno ... Bio bih ti zahvalan za UL.
***** HARLEY *****
565A
PS : netstuff.zip, dalje ...
razno.462dega,
-> #450, zdolinac|... Svima onima koji znaju nekii program za crtanje grafika na
|... osnovu unetih koordinata tacaka (X,Y) neka mi se jave ili
|... ostave poruku. Stvar je hitna.
Grapher, Surfer, etc...
Javi sta te muci
\bye
razno.463tesloni,
-> #459, zocha> Zainteresovan, ali ako može na diskete pa na klub (ima
> mnogo za UL/DL).
Ufffff .......
Znam to al ja sam u Loznici.
... :> Tesloni <:
razno.464tesloni,
Sledi HOPFIELD.ZIP
... :> Tesloni <:
hopfield.ziprazno.465tesloni,
Ako mi išta ostane od kvote za ovu seansu ovde je BPS210.ZIP
... :> Tesloni <:
bps210.ziprazno.466bdm.,
-> #441, squsovac## maski, jednostavno (i brzo) kompjalira (stoje posebno pogodno u sl.
## kompajliranja kratkih programa za djake) itd. AKo neko ima taj, ja ga toplo
Ako treba reci da saljem na mail bas ovaj MS Cobol...
BDM.
razno.467tesloni,
-> #447, ljupco> Jel ima neko pri ruci Novell mrezu da prveri dali radi
> sledece:
Vozdra ljupco ....
Ja proverio i radi .....
1. al = FFh (P.S. u prvoj instrukciji bi trebalo da stoji AX a ne AH )
2. ah = FFh
Jes li to hteo da znaš ?
... :> Tesloni <:
razno.468tesloni,
E vala imam živaca još samo za PARTNR50.ARJ
... :> Tesloni <:
partnr50.arjrazno.469ivans,
-> #465, tesloniE, svaka cast, Tesloni!
razno.470spantic,
-> #452, tesloni> BPS210 ZIP 52110 ! Back Error Propagation
> ! simulator Neuronskih
> ! mreža . ( primer )
>
> HOPFIELD ZIP 22144 ! Simulatori Neuronskih
> NETSTUFF ZIP 105472 ! mreža za PC računare
> ! sa Source-vima (C/Pas)
> ! ( Prepoznavanje oblika )
>
> DATAREP ZIP 87526 ! Isto za VAX mašine
VEOMA zainteresovan. Takođe i za VAX verziju, pa još ako je u sorsu...
razno.471ndragan,
-> #458, zocha/ Ma kolko star i ružan (i ostali epiteti) ipak je nekakav STANDARD.
Ovo je već fama koja zahteva intervenciju. Standardni deo kobola (ANSI)
je toliko siromašan i okrenut paketnoj obradi (falovi sa traka ili
bušenih kartica, sve stvari iz perioda dok su podaci unošeni na posebnim
mašinama, bez terminala ili kombinacije monitor/tastatura/PC), nema ni
maske za unos, ne ume da čita tastaturu, da ne spominjemo makro tastere,
padajuće menije... neme ništa od stvari koje čine život podnošljivim.
žak nije sigurno da podržava indeksne datoteke u svim nivoima standarda,
a baška stepenovanje razlomkom, sa čim su se patili svi koji su radili
konformne kamate. Ono što drži kobol da ipak programi liče na nešto i da
kako tako idu u korak sa ostalim jezicima, su razni krpeži. Video sam
bar tri tipa maski za unos na kobolu (MS kobol za CP/M, RM za DOS i IDA
baza i alati za VMS) i nisu ni nalik, a kamo li da ima veze nekakva
priča o standardu.
Kobol se ne održava na standardu, nego na inerciji.
Bue_ Ndragan
razno.472pele,
-> #468, tesloni# E vala imam živaca još samo za PARTNR50.ARJ
Ma sta se bunis covece?! Jos malo pa ces da budes
u vrhu 20naj za UL ;)
razno.473.bale.,
-> #468, tesloniHvala, Tesloni. Pozivam one koji su se interesovali za ove programe da posete
ETF BBS, jer tamo ima jos nekoliko programa iz ove oblasti, a i iz slicnih (AI,
CASE...). Trenutno ih je malo teze pronaci (direktorijumi SCIENCE, EMULATORS),
ali cemo srediti i to.
Regards from .bale. !
#:*)+-<
razno.474tesloni,
-> #470, spantic> VEOMA zainteresovan. Takođe i za VAX verziju, pa još ako
> je u sorsu...
Vozdra
Bogami i jeste al nisam imao odavno VAX pa se ne sećam kako je
radio .... Tu su sourcevi u STANDARDNOM PASCAL-u ....
Ide DATAREP.ZIP ....
... :> Tesloni <:
datarep.ziprazno.475jsalai,
-> #458, zocha> > Da, sto? PL/I je neka kombinacija Paskala i Fortrana,
> a > Cobol...(sra*e :)
>
> Da, da ali na svakoj masini, na svakom OS-u postoji Cobol.
> Ma kolko star i ruzan (i ostali epiteti) ipak je nekakav
> STANDARD.
Cini mi se da je opet krenula "objektivna i na cinjenicama
zasnovana" polemika. Zato ovo i nije replika na Zochino
misljenje, vec pokusaj da se neke stvari malkice razjasne.
Ako usvojimo maksimu "oralni sex je stvar ukusa", onda se
kvalifikacije tipa "ruzan, rdjav, zao" zaista mogu koristiti,
mada ne verujem da se ovde radi samo o "ukusu".
COBOL je tacno ono sto jeste, a to je CO(mmon) B(usiness)
O(riented) L(anguage), i sta ukus (miris, boja, ljubav,
naklonost...) ima sa tim? Radi se, naime, o tome da on posao
za koji je predvidjen obavlja izuzetno kvalitetno. I ne samo
da postoji na svakom OS-u, vec su neki operativni sistemi (ili
bar njihovi kljucni delovi - recimo File System HONEYWELLovog
GCOS-a), dizajnirani upravo tako da se lako i elegantno "voze"
uporedo sa COBOL-om.
Primer za (hipoteticni) SOR (na GCOS-6):
Uzmete "Dynamic" organizaciju sa "Variable length record",
nakacite gomilu alternativnih indeksa (Oznaka conf, Datum,
User_id, Status[seen,star,etc..]... proizvoljan broj, koji
mozete po potrebi povecavati ili smanjivati), i ne morate da
idete na godisnji odmor kada se odlucite na "Pakovanje baze".
Uostalom, zaista nisam uveren da za voznju baze podataka nema
boljih alata od C-a, ali mi ni na kraj pameti ne pada da C
proglasim za "sra**e", kao ni pascal, ni adu, ni PL/1. To su
alati, oni se ne vole, oni se koriste.
Fakat je da su najbolje one aplikacije za koje korisnik nikada nema
potrebe da sazna kojim su alatom napravljene. Cinjenica da je
Cliper dizajniran za jednostavnu izradu kvalitetnih poslovnih i
inih aplikacija, jos ne znaci da ce SVE aplikacije uradjena njime
i biti takve. Cak nije ni narocito tesko napraviti losu :)))))).
Za PC postoji niz zaista dobrih COBOL kompajlera:
RM COBOL Ryan, McFarland
MS COBOL Microsoft
MicroFocus (Visual) COBOL MicroFocus
MBP (Visual) COBOL mbp Software & Systems
i verovatno sam mnoge kvalitetne propustio da navedem.
Licno, za poslovne aplikacije trosim MBP Visual COBOL v2.0 i
dosad ni sa Single- ni sa Multi-User Interface-om nisam uspeo
da "zaglavim" ni samostalni masinu, ni mrezu, niti da pokvarim
neku datoteku. Programi su radili tacno ono sto im je bilo
receno. Usput, na Novell Netware v2.15, sa serverom 386/25MHz i
8 radnih stanica u ISTOJ aplikaciji, ne primecujete da niste
sami....
Ni cena im nije bezazlena. Na poslednjem "pristupacnom" Interbirou
Microfocus COBOL Workbech(v3.0) sa kompajlerom za MS-DOS i UNIX,
kostao je "skromnih" 7 kDEM + Dinarska davanja. Otprilike Isto
toliko staje i MBP Visual COBOL v3.0.
To sto ucenici u Informatickim skolama na vole COBOL nije ni malo
cudno. Sa ovakvim tretmanom skolstva (kvalitet nastave je ipak
samo posledica) bilo bi cudno da bilo koji predmet vole...
Bez namere da bilo koga uvredim. ili da bilo kome solim pamet,
sve ovo pisem tek tako, uz lep pozdrav
jsalai.
AND NOW SOMETHING COMPLETELLY DIFFERENT:
========================================
Kratak COBOL program koji pokazuje kako MOGU da izgledaju programi
za modernije verzije COBOLa. Program racuna sinus ugla (u radijanima)
od 0.000000 do 9.999999 na 14 decimala tacno! Obratite paznju na
strukture u redovima 11-20 i 15-18. Mozda prepoznate nesto PASCALa
:)))))))
Pisan pre nekih 5 god kurioziteta radi; uinat jednom FORTRAN-ovcu koji
je za uzvrat morao da manipulise datotekama iz FORTRANa :)))))))))))),
a sada samo malo prilagodjen ekstenzijama COBOL-85.
Ako neko smatra da je ovo perverzija, neka zna da se savrseno slazem :)))
identification division.
program-id. sinus.
* mbp Visual COBOL v2.0, mbp Software & Systems, Alameda, Cf. USA
data division.
working-storage section.
1 a pic s9(4)v9(14) value 0.
1 s pic s9(4)v9(14) value 0.
1 x pic 9v9(6) value 0.
1 n pic 9(8) value 0.
procedure division.
> p0. perform test after until x = 0
display "x: "
accept x position 0 prompt echo no beep
move x to s a
>> perform varying n from 3 by 2 until a = 0
compute a rounded = - a * x * x / (n - 1) / n
add a to s
>> end-perform
display " s: " position 0 s
> end-perform.
stop run.
sin.arjrazno.476dselakovic,
-> #475, jsalai> Ako usvojimo maksimu "oralni sex je stvar ukusa", onda se
> kvalifikacije tipa "ruzan, rdjav, zao" zaista mogu
> koristiti, mada ne verujem da se ovde radi samo o "ukusu".
Nemam ja nista protiv COBOL-a, al' sta ti imas protiv
oralnog seksa ? Je s' ti, bre, normalan ?
Dragan
razno.477ppekovic,
-> #476, dselakovic>> Nemam ja nista protiv COBOL-a, al' sta ti imas protiv
>> oralnog seksa ? Je s' ti, bre, normalan ?
+++++++++++++++++++++++++++
Zaboravio si smile! ( :)))))) ). Ponekad ovakve poruke mogu ružno da se
protumače, a siguran sam da ništa zlo nisi mislio. A i u ovakvim
vremenima smeha nikad na odmet. ;))))))))))))))
Paya
razno.478spantic,
-> #471, ndragan> Kobol se ne održava na standardu, nego na inerciji.
Lepo rečeno. Ali da ne pomislite kako je to samo kod nas evo vam priče
jednog kolege sa ETFa.
Otišao čovek u Italiju da traži posao. I pitali ga šta zna da radi. Kaže:
VAX/VMS, UNIX, C, Pascal, FORTRAN, Clipper, a početnik sa ORACLEom.
E onda oni: Lepo, lepo, nego javi se ti nama kad naučiš COBOL.
Na žalost većina nas, živa istina.
razno.479spantic,
-> #474, tesloni> Bogami i jeste al nisam imao odavno VAX pa se ne sećam
> kako je
Hvala.
Pozdrav, Srđan
razno.480andrejl,
-> #475, jsalai>│ To sto ucenici u Informatickim skolama na vole COBOL nije
>│ ni malo cudno. Sa ovakvim tretmanom skolstva (kvalitet
>│ nastave je ipak samo posledica) bilo bi cudno da bilo
>│ koji predmet vole...
Razmišljao sam da pošaljem "oštru notu", ali pošto sam se
setio starih rasprava PCST i prevođenje termina i sl. mislim
da bolje da se štedimo za nešto drugo... ;)
bye, andrejl
razno.481ljupco,
-> #467, tesloni> Ja proverio i radi .....
>
> 1. al = FFh (P.S. u prvoj instrukciji bi trebalo da stoji AX a ne AH )
>
> 2. ah = FFh
>
> Jes li to hteo da znas ?
Aha, hvala ti Tesloni. Ovo nadjoh disasemblirajuci neki prog
pa htedoh da proverim jel radi.
razno.482dragisha,
GNU implementacija AWK-a.
dragisha
P.S. Naravno, radi na MS-DOSu
gawk211.ziprazno.483jsalai,
-> #476, dselakovic> Nemam ja nista protiv COBOL-a, al' sta ti imas protiv
> oralnog seksa ? Je s' ti, bre, normalan ?
Ama bas nista. Ne rekoh li: Stvar ukusa ?!?
:))))))))
jsalai
razno.484jsalai,
-> #480, andrejl> Razmisljao sam da posaljem "ostru notu", ali posto sam se
>setio starih rasprava PCST i prevodenje termina i sl. mislim
>da bolje da se stedimo za nesto drugo... ;)
Nema potrebe za notom. Radio u prosveti 10 god... :))))))))
Znam iznutra!!!!!!
jsalai
razno.485jsalai,
-> #478, spantic>> Kobol se ne odrzava na standardu, nego na inerciji.
>
> Lepo receno. Ali da ne pomislite kako je to samo kod nas evo vam price
>jednog kolege sa ETFa.
>
> Otisao covek u Italiju da trazi posao. I pitali ga sta zna da radi. Kaze:
>VAX/VMS, UNIX, C, Pascal, FORTRAN, Clipper, a pocetnik sa ORACLEom.
>
> E onda oni: Lepo, lepo, nego javi se ti nama kad naucis COBOL.
Hmm, hmm... Tek ovo moze da se tumaci na jako mnogo nacina.
A sta, ako nama jednostavno nedostaje osecaj za REALNOST ???
Mozda taj Fucking World ipak zna sta radi. :)))))
pozdrav jsalai
razno.486dragisha,
-> #449, nbatocaninű>> Bolje i kobol nego PL/I.
ű>
ű> Sto?
IF THEN THEN THEN = ELSE; ELSE ELSE = THEN;
U PL/I ključne riječi nisu rezervisane pa je i ovakav statement moguć.
dragisha
P.S. Primjer iz Uha, Almana...
razno.487boco,
Hi narode!
Jel ima neko onaj shareware ili PD (šta li je već) XLISP?
Ja imam XLISP 2.0 ali bez sorsa i dokumentacije. Samo EXE.
Ako neko ima bilo koji XLISP sa sve sorsom, dokumentacijom i primerima
neka se javi u mail da se dogovorimo kako to da preuzmem. Ako ima baš
XLISP 2.0, neka kači samo doc, sors i primere ARJovane, ne bi trebalo
da bude dugo. Sve jedno, mail write boco.
Hvala!
razno.488ppekovic,
-> #485, jsalai>> Hmm, hmm... Tek ovo moze da se tumaci na jako mnogo nacina.
>> A sta, ako nama jednostavno nedostaje osecaj za REALNOST ???
Pre bi rekao da je ovo izuzetak koji potvrdjuje pravilo.
Paya
razno.489ppekovic,
-> #487, boco>> Jel ima neko onaj shareware ili PD (šta li je već) XLISP?
>> Ja imam XLISP 2.0 ali bez sorsa i dokumentacije. Samo EXE.
Imam ja xlisp sa sve sorsom (TC). A imam i neki PC Lisp za koji
nema source al je zato malkice bolji od XLispa.
Poslaću oba File moderatoru pa nek ih on pregleda i stavi gde
treba.
Paya
BTW. Jel ima neko ko zna razlike izmedju različitih verzija lisp-a,
nastanak jezika, razvoj kroz verzije itd. ?
razno.490dvidovic,
-> #489, ppekovic> Poslacu oba File moderatoru pa nek ih on pregleda i stavi
> gde treba.
A tko je persona? ;)
razno.491dvidovic,
-> #490, dvidovic Sad sam video tko su persone. Cestitke na izboru, a
i izabranima!
Pozdrav
razno.492ppekovic,
-> #489, ppekovic>> Imam ja xlisp sa sve sorsom (TC). A imam i neki PC Lisp za koji
>>nema source al je zato malkice bolji od XLispa.
Dok file moderator(i) ne stave ova dva lisp interpretera gde im je mesto,
da kažem par reči o njima.
PCLisp je Lisp interpreter napravljen po uzoru na Franz Lisp dijalekat ovog
jezika, s tim što PC Lisp poseduje dobar deo, ali ne i sve mogućnosti Franz
Lisp-a. U arhivi se nalazi Lisp interpreter, uputstvo koje nas upoznaje sa
mogućnostima samog interpretera (nemojte očekivati Lisp udžbenik) kao i
nekoliko zanimljivih primera.
XLisp je Lisp interpreter napravljen po XLisp standardu. Nalazi se u dve
arhive, u jednoj je sam XList interpreter, a u drugoj TurboC source i nekoliko
poruka sa mreža u kojima se govori o nekim bug-ovima XLisp-a i načinima
otklanjanja, kao i o jednoj zanimljivosti koju ova verzija XLispa poseduje, a
to su elementi objektno orijentisanog programiranja. Nezgodno za XLisp je što
se uz njega ne dobija nikakvo uputstvo. Oba Lisp-a sam skinuo sa trickle-a (eh
dobra stara vremena) tako da verujem da razlog nedostatka uputstva nije u tome
da se ono negde "zagubilo" nego ga autor jednostavno nije napisao.
Našao sam i jednu knjigu o Lisp-u sa prirodno-matematičkog faulteta u Novom
Sadu. Knjiga opisuje LispKit verziju Lisp-a i korektno je napisana. Autori
knjige su preporučili LispKit Lisp domaćih autora sa istog fakulteta. Pozvao
sam UNSIM i DL-ovao ovaj interpreter pa ću ga pogledati čim stignem, a ako
nekog bude zaanimao, mogu i da ga UL-nem.
Paya
razno.493boco,
-> #492, ppekovic
-> Našao sam i jednu knjigu i Lisp-u...
Da li je to ova nova knjiga? Pre neki mesec je izašla, možda malo ranije?
Ako jeste, dge si je našao? Jako me interesuje. Takođe i LispKit.
BTW pitanje: koji XLISP imaš.
BTW #2: Pomenu da je XLISP baziran na XLISP standardu. To prvi put čujem,
ali znam da je XLISP proširena (objektima?) varijanta Common LISP-a koji
je kao neki referentni standard. Takođe se govore dijalekti poput FRANZ
LISP, MAC LISP, INTER LISP... Neko je pitao i za razlike? Koliko sam ja
video, baza je ista, razlike su u broju implementiranih funkcija što je
za LISP APSOLUTNO nebitno (može se definisati šta bilo), drugo su interni
zapisi lista i objekata teko da rezultati ne moraju biti isti (ovo se
odnosi na matematiku, gde rezultat u jednom LISP-u može biti recimo
6788768959659123049871209346921873561928756 a u drugom 6.788E+44, a ovo drugo
može biti OVERFLOW na nekim mašinama, dok će prva varijanta rasti dok ima
memorije), i treće razlike su razna "prljanja" LISP-a uvođenjem tipova,
pointera, sistemskih poziva, statičkih polja i tako to, što ga čini manje
elegantnim, ali upotrebljivijim za ono za šta se koristi recimo C ili FORTRAN.
Eto...
razno.494boco,
Ajde kad već pričamo da dam i sintaksu LISP-a. Ide...
(funkcija a1 a2 a3 ...)
a1... su argumenti koji mogu ponovo biti funkcije ili atomi.
Kraj!
Primer 1 (2+3)
(PLUS 2 3)
Primer 2 (2+3*4)
(PLUS 2 (TIMES 3 4))
Primer 3 (X = 2*3+4*5)
(SETQ X (PLUS (TIMES 2 3) (TIMES 4 5)))
Korisnik može napraviti funkciju sa
(DEFUN ime (argumenti) opis)
Tako, Y = X*X bi bilo kao funkcija
(DEFUN (X) (TIMES X X))
(fali ime (ZZ, kada će editor na Sezamu???)) neka bude KVADRAT, dakle
(DEFUN KVADRAT (X) (TIMES X X))
Ako nam treba R = X*X+Y kazemo
(SETQ R (PLUS (KVADRAT X) Y))
Ajd dosta je za ON-LINE. Evo i jednog celog programčića koji je svima poznat,
pogađanje brojeva (gore-dole pa ga juri). Tipično za LISP: petlje se rešavaju
rekurzijom!!!! (obrati pažnju)
(DEFUN TRY (RND USER N)
(IF (NOT (EQ RND USER))
(PROGN
(IF (> RND USER)
(PRINT '(POVECAJ))
(PRINT '(SMANJI)) )
(TRY RND (READ) (+ N 1)) )
(EVAL N) ) )
(DEFUN GAME ()
(APPEND '(POGODAK IZ) (TRY (RANDOM 100) (READ) 0)) )
To je sve. Startuje sa sa (GAME). Pisano u XLISP 2.0.
Ajd neko da izbaci PROGN ako može, meni ne pada na pamet pa sam ga ostavio
tako.
Ajd...
razno.495spantic,
-> #487, boco> Jel ima neko onaj shareware ili PD (šta li je već) XLISP?
> Ja imam XLISP 2.0 ali bez sorsa i dokumentacije. Samo EXE.
Ne znam da li je SHW ili PD. Ja imam sors za XLISP dovučen preko bare,
ali koji mu je status ne znam, mada je dovučen preko mreže.
razno.496ndragan,
-> #485, jsalai/> E onda oni: Lepo, lepo, nego javi se ti nama kad naucis COBOL.
/ Mozda taj Fucking World ipak zna sta radi. :)))))
Zvuči mi kao još jedna gradska legenda. žuo sam to još pre šest godina
od svog šefa kad sam ga ubeđivao da pređemo na nešto drugo, pored
kobola. Stvar se završila tako što sam neke rutine i neke zajeba*ije
programe radio u bejziku (ne za ZX nego za vaha), a kobol je ostao
zvanični jezik u firmi jer "šta ako ti sutra odeš iz firme, ko će to da
održava?".
Otišli smo obojica, uzgred budi rečeno.
razno.497ndragan,
-> #484, jsalai/ Nema potrebe za notom. Radio u prosveti 10 god... :))))))))
Saučešće, kolega.
razno.498ppekovic,
-> #493, boco>> Da li je to ova nova knjiga? Pre neki mesec je izašla, možda malo ranije?
>> Ako jeste, dge si je našao? Jako me interesuje. Takođe i LispKit.
Kupio u knjižari "Jugoslovenska knjiga" u palati "Albanija".
LispKit Lisp možeš naći na UNSIM-u, uloguješ se kao public i odeš u pc
dir. Ovo sve možeš pročitati u pomenutoj knjizi.
>> BTW pitanje: koji XLISP imaš.
Poslao sam ga file moderatoru, biće valjda uskoro u dir-u.
razno.499ppekovic,
-> #494, boco>> (PLUS 2 (TIMES 3 4))
Neke verzije Lisp-a (XLisp npr.) umesto PLUS, TIMES, DIV i sl.
koriste +, *, / i sl.
Paya
razno.500boco,
-> #499, ppekovic
Jeste jeste, pa čak se i u primeru vidi da sam koristio u XLISP-u
(IF (> ... a ne neko (IF (GT ... Zapravo, ceo XLISP zna za
simbole + - * / < > ... a ne za imena funkcija PLUS MINUS TIMES...
što mu dođe svejedno. A recimo muLISP radi baš sa celim rečima.
Common bi trebalo da vari i jedno i drugo.
razno.501dnikolic,
Radi li neko ovdi sa CBASE-om sa Sezama ( rutine za rad sa bazama podataka iz
C-a )? Zeleo bih da razmenjujem iskustva.
dn
razno.502jsalai,
-> #497, ndragan> / Nema potrebe za notom. Radio u prosveti 10 god...
> :))))))))
>
> Saucesce, kolega.
Hvala, hvala-a-aa, bu-a-aha-ha :(((((((((((
(kako se crtaju suze?)
jsalai
razno.503iboris,
-> #443, ndraganŁ / U sledecoj skolskoj godini treba da predajem u ekonomskoj skoli
Ł COBOL.
Ł
Ł I nijednom recju se nisi ogradio? Za koje novce prodajes dusu >) ?
Ł Mada, kad malo bolje razmislim, za ekonomiste i nije neki normalan
Ł jezik. Ipak bi bilo pametnije da uce makar i dibejz nego kobol.
Eh bre Dragane, pa zar smo mi ekonomisti tako nisko plasirani
na tvojoj lestvici vrednosti :)))) ? Mogu ti reci da se na
Ekonomiji uce neki programski jezici (doduse na fakultetu) i to
COBOL (!), fortran77, basic (ko hoce ili ko ga ne zna), i uci se
programiranje baza podataka u DBASE III+ i cliperu (po izboru).
Nije mnogo, ali je za neke studente i to previse.
Pozdrav, Boris
razno.504spantic,
-> #496, ndragan> Zvuči mi kao još jedna gradska legenda. žuo sam to još pre
> šest godina od svog šefa kad sam ga ubeđivao da pređemo na
> nešto drugo, pored
Nije legenda. Znam čoveka. Prijatelj mi je.
razno.505boco,
Oćel taj LISP dase pojavi u direktorijumu ili ne?
Gde da ga očekujem? u IBMPC\PROGRAM ?
Ajde malo... jel... (PgUp, PgUp ko cepa FS znaće ;-)
razno.506bojanp,
-> #505, boco> Oćel taj LISP dase pojavi u direktorijumu ili ne?
*** r:\ibmpc\program
xlsp21ex zip 64896* XLisp interpreter sa elementima OOP-a
xlsp21tc zip 152192* XLisp interpreter TurboC source
razno.507boco,
-> #506, bojanp
-> *** r:\ibmpc\program
:-))) Hvala!
razno.508nboskovic,
-> #505, boco*> Oćel taj LISP dase pojavi u direktorijumu ili ne?
*>
*> Gde da ga očekujem? u IBMPC\PROGRAM ?
Novi fajlovi u direktorijumu:
R:\IBMPC\PROGRAM>xlsp21ex.zip XLisp interpreter sa elementima OOP-a
R:\IBMPC\PROGRAM>xlsp21tc.exe XLisp interpreter TurboC source
(c) klap
nikola
razno.509stomic,
Kako da se program koji ostaje rezidentan ne registruje
kao takav. Mislim da ga razne vrste MEM x.xx ne prepoznaju (ne,
neću da pravim virus ;>>>).
Pretraživanje memorije ide valjda preko interapta $52
(koji je BTW nedokumentovan). Tako se nađe prvi program, ostale
na osnovu njega. Jel' ima neko opis ovog interapta. Izgleda
vraća ES:BX koji pokazuju na memoriju gde se nalaze podatci
(prepisano iz READMCBS.PAS):
marker db ? { Chain status marker }
owner dw ? { Owner of block (PSP) }
size dw ? { Size of block (para) }
reserved db 11 dup (?) { Currently unused }
Za sada znam ako je marker 'M' onda ima još, a ako je
'Z' onda je to poslednji tsr program u lancu.
Ako ima neko više podataka o ovome, ili odgovor na prvo
pitanje bio bih zahvalan.
Pozdrav, stomic.
razno.510nbatocanin,
-> #486, dragisha> IF THEN THEN THEN = ELSE; ELSE ELSE = THEN;
Ne deluje mi baš kao neki odlučujući kriterijum za jedan
programski jezik. Uostalom, šta se sve u C-u može napisati, pa se
niko ne buni. Mene je interesovalo zašto čovek smatra da je PL/I
lošiji od COBOL-a. Meni PL/I deluje kao sasvim solidan programski
jezik, sa finim konceptima. Nisam nikada ozbiljno programirao na
njemu, ali sam dosta koristio PL/M, jezik vrlo blizak po sintaksi,
ali namenjen sistemskom programiranju. Po koncepciji je blizak C-u, i
ljudi koji na njemu rade (uključujući i mene) su uglavnom zadovoljni.
razno.511nbatocanin,
-> #489, ppekovic> BTW. Jel ima neko ko zna razlike izmedju različitih
> verzija lisp-a, nastanak jezika, razvoj kroz verzije itd.
Imao sam nekoliko knjiga o LISP-u, ali su se zatekle kod jednog
druga koji je zbrisao u inozemstvo. Ako ti je važno, mogu pokušati da
ti nađem nešto. Trenutno imam kod sebe 2-3 knjige o programskim
jezicima gde postoje poglavlja o LISP-u.
razno.512stomic,
-> #509, stomic$ Pretraživanje memorije ide valjda preko interapta $52
$ (koji je BTW nedokumentovan). Tako se nađe prvi program,
$ ostale
Izvinjavam se... Nije u pitanju interapt $52, već funkcija
DOSovog interapta $21 (ah=$52, takođe nedokumentovan).
Pozdrav, stomic.
razno.513dragisha,
-> #509, stomicű> Za sada znam ako je marker 'M' onda ima još, a ako je
ű> 'Z' onda je to poslednji tsr program u lancu.
'Z' je poslednji blok memorije u lancu MCBova, što ne mora
imati veze sa TSRom.
ű> Ako ima neko više podataka o ovome, ili odgovor na prvo
ű> pitanje bio bih zahvalan.
Probaj da skratiš zadnji blok za onoliko koliko ti treba
memorije. Nisam siguran (vjerovatno piše u HELPPC) ali mislim da
je taj zadnji blok ustvari slobodna memorija.
Drugi način je da normalnim putem alociraš blok po želji pa da
ga onda izbaciš iz liste MCBova. Mislim da je ovo i bolji način.
dragisha
razno.514dragisha,
-> #510, nbatocaninű> Ne deluje mi baš kao neki odlučujući kriterijum za jedan
ű> programski jezik. Uostalom, šta se sve u C-u može
ű> napisati, pa se
Nisam ni rekao da je to odlučujući kriterij, ali sam primjer
naveo da bih ilustrovao 'čistoću' jezika.
ű> lošiji od COBOL-a. Meni PL/I deluje kao sasvim solidan
ű> programski jezik, sa finim konceptima. Nisam nikada
ű> ozbiljno programirao na
Fini koncepti !?
PL/I je jezik koji su njegovi tvorci napravili na osnovu
Pascala i OSTALOG što je postojalo u to vrijeme i to tako što su
iz 'predaka' pokupili sve što su smatrali korisnim. Zamišljen kao
jezik za sve moguće potrebe (slično kao Ada), a to su osigurali
time što su ga natrpali svim i svačim.
Smatram da svaki jezik čija BNF definicija zauzima više od
dvije-tri A4 stranice treba zabraniti:).
dragisha
razno.515ndragan,
-> #504, spantic/ Nije legenda. Znam čoveka. Prijatelj mi je.
Tvoji prijatelji postaju legende :)
P.S. Prvo sam napisao, onako ladno bečkerečki, bez smajlija, pa ko
razume shvatiće, al je mnogo zlokobno zvučalo ;>.
razno.516ndragan,
-> #503, iboris/ Eh bre Dragane, pa zar smo mi ekonomisti tako nisko plasirani
/ na tvojoj lestvici vrednosti :)))) ? Mogu ti reci da se na
Ovo sam rekao prema ljudima koje znam. Od ekonomista sa informatičkih
smerova koje poznajem, skoro svi su završili faks u Subotici, a
računari ih zanimaju tek toliko da postanu šefovi računskih centara, ne
bi li jednom postali nekakvi direktori; znam ukupno jednog koji je
valjan programer, a i taj je završio na beogradskom faksu, a nije
studirao matematiku iz čiste lenjosti (verujem mu).
Ovo je čisto moja predrasuda (niko nije savršen :), i ne mora da bude
ni blizu tačnog. Naglasak je pre bio na pitanju "da li uopšte treba u
nekoj srednjoj školi predavati kobol", a o tome smo se u međuvremenu
napričali.
/ programiranje baza podataka u DBASE III+ i cliperu (po izboru).
/ Nije mnogo, ali je za neke studente i to previse.
Svaka čast - nešto se menja. Izgleda da sam ja bio te sreće da sam
uglavnom nailazio na te "neke studente", ili su oni imali bolje veze i
zapošljavali se pre mene...
Bue_ Ndragan
razno.517spantic,
-> #515, ndragan> Tvoji prijatelji postaju legende :)
>
> P.S. Prvo sam napisao, onako ladno bečkerečki, bez
> smajlija, pa ko razume shvatiće, al je mnogo zlokobno
> zvučalo ;>.
Xm, teško da bi petrovgradski to baš tako išlo, ali ipak si dužan objašnjenje.
Ja ipak ne kucam tako brzo IGNORE ( principi ) kao drugi, što ne znači da ih ne
razumem . Pa bih te zamolio da objasniš primedbu? Znam da nije mesto i svima se
izvinjavam ali stvarno me zanima ndraganovo objašnjenje.