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
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