[es] - Kod iz osamdesetih, pomocu cega ga prevesti?

ivanv_83
Novi Sad

Član broj: 116952
Poruke: 9
*.opera-mini.net.

Profil

Kod iz osamdesetih, pomocu cega ga prevesti?

^{19.11.2009. u 16:32 - pre 175 meseci}

Pozdrav svima!
Imam neki kod iz osamdesetih, ali ne mogu da provalim kakva je to varijanta BASIC-a, ili je mozda nesto drugo sto je skroz izaslo i mode? Pokusavao sam da ubacim ovaj kod u QBASIC, FreeBASIC i jos neke ali nisu hteli da ga prevedu, pogotovo delove: PRINTER IS 0 (gde ne zna ni sta je PRINTER ni sta je ovo IS), MASS STORAGE IS ":F8"(ovde nista ne prepoznaje), MAT READ, ASSIGN #1 TO "MA", READ #1,1, kao i svedelove vezane za iscrtavanje (grafika?) (IMAGE, Lxaxes: !, CSIZE, RAD, LDIR, LORG LABEL USING...). Prilazem i delove iz koda na osnovu kojih mozda neko nesto ukapira. Napominjem da sam slabo radio sa BASIC-om, radio sam nesto u asembleru, C/C++, Pascal/Delphi, Matlab ali ovo mi ne lici ni na jedan od njih :), a program sam dobio na papiru pa ne znam ni ekstenziju.. Da li neko ima ideju cime se prevodi ovakav kod? Pretrazio sam internet, ali nista.

Code:

10    OPTION BASE 1
20    PRINTER IS 0
30    DIM Q(10,2)
40    INPUT  "Unesi vrednost za X" , X
50    PRINT  "Vrednost promenljive X=";TAB(40),X;"[m]"
.
.
300    K=.1
310    PRINT
320    MASS STORAGE IS ":F8"
330    Dim W(60,5)
340    Dim E(40,3,3)
350    Data  1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
360    Data  21, 22, 31, 42, 15,  25, 22, 22, 30,  4,  1,  2
.
.
400    Dim M1(5,3,4)
410    MAT READ M1(5,3,4)
420    If X=.1  THEN Zy=1
430    If X=.2  THEN Zy=2
.
.
480    REDIM Fmat(X,3,3)
490    ASSIGN #1 TO "MA"
500    READ #1,1
510    READ #1;W(*)
520    DIM R(60,3)
530    PLOTTER IS 7,5,"9872A"
540    LIMIT 0,130,0,260
550    LOCATE 20,90,80,120
560    PEN  1
570    Xmin = 0
580    Xmax = 10
590    Ymin = -Gen(Zy,2,1)
600    Ymax = Gen(Zy,2,1)
610 SCALE Xmin, Xmax , Ymin, Ymax
620    Tx=.1
630    Ty = (Ymax+ABS(Ymin))/10
640    AXES Tx,Ty,0,0,2,2,2
650    FRAME
660 Lxaxes:     !
670    CSIZE 3
680    RAD
690    LDIR -PI/2
700    LORG 2
710    FOR Xposition = Xmin TO Xmax STEP 2*Tx
720        MOVE Xposition, Ymin
730        LABEL USING  "MD.DDX "; Xposition.
740    NEXT Xposition
.
.
830    LINE TYPE 5, 1
840    !   PEN 2
850    FOR  I=1  TO 4
860        PLOT Gen(Zy,1,I), Gen(Zy,2,I)
870    NEXT  I
880        MOVE Gen(Zy,1,1),-Gen(Zy,2,1)
890    FOR  I=1  TO 4
900        PLOT Gen(Zy,1,I), -Gen(Zy,2,1)
910    NEXT  I
.
.
2100    IMAGE X,DDD,14X,SZZ.DDDD,16X,SZZ.D,14X,SZZ.DDDD
.
.
3330    IF S=1  THEN  3410
3390    IF S=2 THEN  3450
3400    IF S=3 THEN  3500
3440    GOTO  1490
.
.
4040    LINE TYPE 5,1
4050    !   PEN 2
.
.
4410    END

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.

+1 Profil

Re: Kod iz osamdesetih, pomocu cega ga prevesti?

^{19.11.2009. u 18:35 - pre 175 meseci}

Vidio sam slicnu sintaksu prije nekih 14 godina jos dok sam bio u osnovnoj skoli.
Tada je profa radio na pc-u zvan orao ili tako nesto...
Raspitati cu se, pa ako sto saznam javim

steve585

Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294

+17 Profil

Re: Kod iz osamdesetih, pomocu cega ga prevesti?

^{22.11.2009. u 09:32 - pre 175 meseci}

BASIC Code

Ovako nesto bi trebalo da fercera u GW BASIC-u, ili u QBASIC-u.

Kood je ocigledno napravljen za upravljanjem nekakvim stampacem.. Ne verujem da ces uspeti da ga pokrenesh samo tek tako, jer ti ocigledno treba taj stampac i moduli za BASIC koji to omogucavaju.

Ali, malo mi je zaigralo srce kada sam ovo video, podsetillo me na klinacke dane, 286 sa Hercules monitorom i formulu1 sa beep zvukom....

Priceless!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Kod iz osamdesetih, pomocu cega ga prevesti?

^{22.11.2009. u 10:53 - pre 175 meseci}

Meni ovo strašno liči na HP Basic koji je dolazio uz HP računare tamo negde 80-tih godina i to novija verzija istog, pošto vidim da ima nekih funkcija koje ne postoje u staroj. U stvari, usudio bih se reći da je sigurno HP Basic u pitanju. Uostalom, pogledaj spisak funkcija, pa uporedi

Stara verzija
http://www.ebbsoft.com/hp/hpbasic.htm

Dodatne funkcije u novoj verziji
http://www.ebbsoft.com/hp/basic87.htm

S obzirom da imaš kratki opis svake funkcije, ne verujem da bi bio neki problem da se kod prevede u neki moderniji jezik, recimo Visual Basic.

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

ivanv_83
Novi Sad

Član broj: 116952
Poruke: 9
*.abs.rs.

Profil

Re: Kod iz osamdesetih, pomocu cega ga prevesti?

^{23.11.2009. u 08:21 - pre 175 meseci}

Marko_L je definitivno u pravu, ovo jeste HP BASIC. Moglo bi se sve ovo lepo prevesti u npr. MATLAB, da nema ove cake:

490 ASSIGN #1 TO "MA"
500 READ #1,1
510 READ #1;W(*)

gde pokusava neku matricu da ucita iz fajla MA koji ja nemam (ako sam taj deo dobro ukapirao). A ne mogu da nagadjam sta se tamo nalazi:) Hvala svima!

Odgovor na temu