Welcome, Guest. Please login or register.


Author Topic: Altair BASIC (Read 30171 times)

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14722
  • Country: hu
    • http://enterprise.iko.hu/
Re: Altair BASIC
« Reply #75 on: 2014.November.27. 22:21:10 »
Lehet hosszú a PATH, meg szerintem munkaterületnek is használja.

256 bájtot elpakolsz valahova, aztán a FILE-zés után meg vissza.

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: Altair BASIC
« Reply #76 on: 2014.November.28. 08:49:08 »
üsse kő, akkor belerakom :-)
ha nem kéne mozgatni, akkor kb. +3 sor, így lehet, hogy +10 is lesz :-)

meg akkor még belerakok egy exos parancskezelést is, az is jól jön.
*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: Altair BASIC
« Reply #77 on: 2014.November.28. 12:29:01 »
na, ebben van már FILE-bővítő kezelés

ami érdekes, hogy a régi PCK.EXT-es verzióval működik az emulátorban, az újabb FILE.EXT-tel nem igazán...

meg kéne nézni igazi gépen is
*** Speicherplatz zu klein

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14722
  • Country: hu
    • http://enterprise.iko.hu/
Re: Altair BASIC
« Reply #78 on: 2014.November.28. 12:31:48 »
ami érdekes, hogy a régi PCK.EXT-es verzióval működik az emulátorban, az újabb FILE.EXT-tel nem igazán...
Véletlenül nem FILEIO-s konfigban próbáltad? Mert az már az egyel ezelőtti verzióban bele lett rakva, hogyha van FILE: akkor azt adja vissza, és így akkor az emulátor fájlválasztója működik.

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: Altair BASIC
« Reply #79 on: 2014.November.28. 12:36:15 »
Véletlenül nem FILEIO-s konfigban próbáltad? Mert az már az egyel ezelőtti verzióban bele lett rakva, hogyha van FILE: akkor azt adja vissza, és így akkor az emulátor fájlválasztója működik.
de igen :-) akkor ez volt a probléma :-)
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Altair BASIC
« Reply #80 on: 2014.November.28. 20:18:29 »
a DEL-t direkt hagytam így :-) csak a retro feeling miatt :-)

Légyszi, légyszi...
Így üszkve használhatatlan. Egy 50 karakterből állós sorban elüt az ember egy billentyűt...

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Altair BASIC
« Reply #81 on: 2014.November.28. 20:38:40 »
meg akkor még belerakok egy exos parancskezelést is, az is jól jön.

Ez hogy működik?

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: Altair BASIC
« Reply #82 on: 2014.December.01. 09:51:18 »
Ez hogy működik?
Még sehogy, de úgy tervezem, mint az IS-BASIC-ben. Ha kettösponttal kezdesz egy sort, akkor végrehajtja a megadott EXOS parancsot.
*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: Altair BASIC
« Reply #83 on: 2014.December.01. 09:53:34 »
Légyszi, légyszi...
Így üszkve használhatatlan. Egy 50 karakterből állós sorban elüt az ember egy billentyűt...
A backspace helyett a z aláhúzás jellel tudsz most törölni.
Pl.:
PRN_INT 2+2

De akkor majd lehet, hogy teszek bele választó menüt (legyen-e "normál" backsapce, vagy maradjon minden az eredetiben).

De egyébként elég perverz dolog abban írni :-) Miért nem írod WP-ben, vagy PC-n bármelyik text editorban?
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Altair BASIC
« Reply #84 on: 2014.December.01. 18:10:32 »
De egyébként elég perverz dolog abban írni :-) Miért nem írod WP-ben, vagy PC-n bármelyik text editorban?

WP-ben írom, de kisebb javításokat praktikus, ha el lehet végezni.

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: Altair BASIC
« Reply #85 on: 2014.December.01. 18:33:26 »
Na, ez tudja az ERASE (backspace) gombot kezelni. Figyeli, hogy a kimenet melyik csatornára van irányítva (printer, vagy video), ha printerre, akkor figyelmen kívül hagyja.
(Tudom, a DEL-t akartad, de ahhoz szerintem már egyszerűbb lenne az EDITOR: használata, az lehet a köv. fejlesztés...)
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Altair BASIC
« Reply #86 on: 2014.December.01. 18:48:56 »
(Tudom, a DEL-t akartad, de ahhoz szerintem már egyszerűbb lenne az EDITOR: használata, az lehet a köv. fejlesztés...)

Tulajdonképpen pontosan ERASE-t akartam kérni, csak összekevertem, mert az nincs a PC billentyűzeten... :oops:
Szuper, ez is jó!
« Last Edit: 2014.December.01. 21:22:41 by Lacika »

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: Altair BASIC
« Reply #87 on: 2014.December.01. 18:50:27 »
kíváncsi vagyok, milyen progikat írsz hozzá... :-)
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Altair BASIC
« Reply #88 on: 2014.December.01. 18:52:47 »
kíváncsi vagyok, milyen progikat írsz hozzá... :-)

10 REM LEGNAGYOBB KOZOS OSZTO
20 REM LEGKISEBB KOZOS TOBBSZOROS
20 PRINT "A= ";:INPUT A
30 PRINT "B= ";:INPUT B
40 A=ABS(A):B=ABS(B):A1=A:B1=B
50 IF B>A THEN X=A:A=B:B=X
60 IF B=0 THEN 90
70 X=A-INT(A/B)*B:A=B:B=X
80 GOTO 60
90 PRINT "Legnagyobb kozos oszto:    ";A
100 PRINT "Legkisebb kozos tobbszotos:";A1*B1/A

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Altair BASIC
« Reply #89 on: 2014.December.01. 21:02:44 »
Ejjj, de szép program...

10 REM Gyufajatek
20 PRINT:PRINT "   *** GYUFAJATEK ***"
30 LET X=21
40 PRINT :PRINT X;" szal gyufaval jatszunk."
50 PRINT "Felvaltva 1-3 szalat vehetunk el."
60 PRINT "Aki az utolso szalat huzza, veszit!":PRINT
100 REM Jatek
110 IF X=0 THEN GOTO 410
120 LET A=(X-1)/4-INT((X-1)/4)
130 IF A<>0 THEN 310
160 LET S=RND(X)
170 IF S<.33 THEN L=1:GOTO 210
180 IF S<.67 THEN L=2:GOTO 210
190 L=3
210 GOSUB 230
220 GOTO 100
230 X=X-L:G=1
240 IF X<0 THEN L=1:X=0
250 PRINT L;"szalat huztam. Maradt";X
255 IF X=0 THEN 290
260 PRINT "A huzasod:";:INPUT K
265 IF K<1 THEN 260
266 IF K>3 THEN 260
270 X=X-K:G=0
275 IF X<0 THEN PRINT "Nincs mar ennyi szal!":X=0
280 PRINT "                  Maradt";X
290 RETURN
310 IF A=.75 THEN L=3:GOTO 360
320 IF A=.5 THEN L=2:GOTO 360
330 L=1
360 GOSUB 230
380 L=4-K
390 IF X>0 THEN 360
410 IF G=1 THEN PRINT " VESZTETTEM...":GOTO 430
420 PRINT "Az utolso szalat vetted el. VESZTETTEL!"
430 END
« Last Edit: 2014.December.01. 21:12:13 by Lacika »