AMIGA-Bascoder - es gibt ihn doch




Karsten Schenk stellte uns in K67.78 seine Aktualisierung des Bascoders für DOS-PC vor. Dort erwähnte er auch. daß es auf dem AMIGA keine Version des Computer-Esperantos gibt.

Das hat er nun selbst geändert: für das Basic, das auf der "Extras 1.3"-Diskette ausgeliefert wurde, hat er einen Bascoder geschrieben, der die Festlegungen der Version 3C erfüllt, mit zwei Einschränkungen:

Wie wir es auch vom JOYCE-Bascoder kennen, verzichtet er völlig auf die Kassettenarbeit, der AMIGA hat von Haus aus kein Kassetteninterface und inzwischen stehen genügend andere Übertragungsmöglichkeiten für die ASCII-Listings ab Zeile 1000 zur Verfügung.

Da der AMIGA fensterorientiert arbeitet, kann einem Buchstaben auf dem Bildschirm nicht so unmittelbar wie auf vielen 8-bit-Heimcomputern eine (feste) Position im Speicher zugeordnet werden, daher ist es (vorläufig?) nicht möglich, die Funktion zum Zurücklesen eines Zeichens aus dem Bildschirm (GOSUB 220) zu nutzen.

Außerdem bemerkt Karsten, daß das Basic (und mit ihm dann natürlich BasiCode) mit steigender Betriebssystemnummer instabiler wird, auf meinem 500+ mit Umschaltmöglichkeit zwischen Kickstart 1.3 und 2.0, den ich vorigen Herbst auf dem Flohmarkt gekauft habe, liefen jedoch die getesteten Programme ohne Probleme, sowohl hinsichtlich der Grafik und der Farben als auch des Sounds.

 

Thomas Rademacher  //  November 2007

Hier geht's zum Download: BasCoder für AMIGA

 

 

REM Basicode fuer Amiga®, 30457, Karsten Schenk
REM graphics.bmap wird benötigt
REM Benutzung auf eigene Verantwortung.
 LIBRARY "graphics.library"
 RANDOMIZE TIMER
 CLEAR ,&O70000
 SCREEN 1,328,220,4,1
    WINDOW 2,"            BasiCode-3C auf AMIGA®",,0,1
    PALETTE 0,0,0,0
    PALETTE 2,0/15,0/15,0/15
    PALETTE 3,0/15,0/15,11/15     : REM blau
    PALETTE 4,11/15,0/15,0/15     : REM rot
    PALETTE 5,.3,0,.4             : REM violett
    PALETTE 6,0/15,6/15,0/15      : REM gruen
    PALETTE 7,5/15,9/15,12/15     : REM hellblau
    PALETTE 8,14/15,11/15,0/15    : REM gelb
    PALETTE 9,15/15,15/15,15/15   : REM weiß
GOTO 1000
20 CLEAR
   ON ERROR GOTO fehler
   CC(0)=7:CC(1)=0
   HG=264 :VG=198
   HO=41-1:VE=25-1
   GOSUB 100
   GOTO 1010
100 COLOR CC(0)+2,CC(1)+2
    CLS
    RETURN
110 COLOR CC(0)+2, CC(1)+2
    LOCATE VE+1, HO+1
    RETURN
120 HO=POS(0)-1
    VE=CSRLIN-1
    RETURN
150 COLOR CC(1)+2,CC(0)+2
    PRINT "     "+SR$+"     ";
    COLOR CC(0)+2,CC(1)+2
    RETURN
200 IN$=""
    IN$=INKEY$
201 IN=0
    IF IN$<>"" THEN
     IN=ASC(UCASE$(IN$))
         IF IN<28 THEN
            IN=IN*(-1)
                IF IN=-9 OR IN=-13 THEN
                 IN=ABS(IN)
                END IF
         END IF
         IF IN>=129 AND IN<=138 THEN
            IN=(IN-128)*(-1)
         END IF
     WHILE INKEY$<>"":WEND
         IF IN=28 THEN
            IN=31
         ELSEIF IN=29 THEN
            IN=30
         ELSEIF IN=30 THEN
            IN=29
         ELSEIF IN=31 THEN
            IN=28
         END IF
    END IF
    RETURN
210 IN$=INPUT$(1)
    GOSUB 201
    RETURN
220 REM Weil der Amiga® keinen Textmodus hat, ist die folgende
    REM Routine nur eine Attrappe
    IN=ASC("A")
    IN$="a"
    CN=ASC("a")-ASC("A")
    RETURN
250 BEEP
    RETURN
260 RV=RND
    RETURN
270 FR=FRE(0)
    RETURN
280 IF FR=0 THEN BREAK ON
    IF FR=1 THEN BREAK OFF
    RETURN
300 IF SR<0 THEN
     SR$=STR$(SR)
    ELSE
     SR$=MID$(STR$(SR),2)
    END IF
    RETURN
310 OSR=CDBL(SR)
    OP=FIX(OSR)
    OB=ABS(OSR)-ABS(FIX(OSR))
    OB=CLNG(OB*10^CN)
    IF OP<0 THEN
     SR$=STR$(OP)
    ELSE
     SR$=MID$(STR$(OP),2)
    END IF
    IF CN>CT-2 THEN
     SR$=STRING$(CT,"*")
    ELSE
     IF CN<>0 THEN
       IF OB=0 THEN
          SR$=SR$+"."+STRING$(CN,"0")
       ELSE
          SR$=SR$+"."+MID$(STR$(OB),2)
       END IF
     END IF
    END IF
    RETURN
330 SR$=UCASE$(SR$)
    RETURN
350 LPRINT SR$;
    RETURN
360 LPRINT
    RETURN
400 OSD=1.82*SD:
    IF OSD<.023 THEN OSD=.023
    IF SP<26 THEN
     OSP=26
    ELSEIF SP>127 THEN
     OSP=127
    ELSE
     OSP=SP
    END IF
    IF SV<>0 THEN
       SOUND EXP(OSP*.057762+2.10125), OSD,SV*15.9375
    END IF
    OTIME = TIMER
    OMO =.1*SD
    WHILE TIMER<OMO+OTIME
    WEND
    RETURN
450 OTIME=TIMER
    OMO=.1*SD
    SD=0:IN=0
452 IN$=INKEY$
    IF TIMER>OMO+OTIME THEN GOTO 456
    IF IN$<>"" THEN SD=(OTIME+OMO)-TIMER: GOTO 456
    GOTO 452
456 IF SD<>0 THEN GOTO 201
    IF SD=0 THEN IN$=""
    RETURN
500 LET IN=0
    IF NF/2=INT(NF/2) THEN OPEN NF$ FOR INPUT AS NF+1
    IF NF/2<>INT(NF/2) THEN OPEN NF$ FOR OUTPUT AS NF+1
    IF IN <>-1 THEN LET IN=0
    RETURN
540 LET IN=0
    LINE INPUT #NF+1,IN$
    IF IN <>-1 THEN LET IN=ABS(EOF(NF+1))
    RETURN
560 LET IN=0
    PRINT #NF+1,SR$
    IF IN <>-1 THEN IN=0
    RETURN
580 LET IN=0
    CLOSE NF+1
    IF IN <>-1 THEN IN=0
    RETURN
600 GOSUB 100
    RETURN
620 OX=INT(HO*HG): OY=INT(VE*VG)+6
    PSET (OX,OY),CC(CN)+2
    RETURN
630 OX=INT(HO*HG): OY=INT(VE*VG)+6
    LINE -(OX,OY),CC(CN)+2
    RETURN
650 COLOR CC(0)+2,CC(1)+2
    OX%=INT(HO*HG): OY%=INT(VE*VG)+12
    CALL Move&(WINDOW(8),OX%,OY%)
    IF CN=0 THEN
     PRINT SR$;
    ELSE
     PRINT STRING$(LEN(SR$),32);
    END IF
    RETURN
950 WINDOW CLOSE 2
    SCREEN CLOSE 1
    LIBRARY CLOSE
    END
fehler:
IF ERR=52 THEN
 OMSG$="Datei nicht gefunden!"
ELSEIF ERR=53 OR ERR=64 THEN
 OMSG$="Falscher Dateiname!"
ELSEIF ERR=61 THEN
 OMSG$="Datenträger voll!"
ELSEIF ERR=68 OR ERR=49 THEN
 OMSG$="Laufwerk nicht bereit!"
ELSEIF ERR=52 OR ERR=53 THEN
 OMSG$="Unzulässiger Dateiname!"
ELSEIF ERR=70 THEN
 OMSG$="Datenträger ist schreibgeschützt!"
ELSE
 PRINT "Fehler: ";ERR
 ERROR ERR
 STOP
END IF
    WINDOW 3,"Fehler",,0,1
    PRINT "Fehler: "; ERR
    PRINT OMSG$
    PRINT
    PRINT "Bitte eine Taste drücken"
    WHILE INKEY$<>""
    WEND
    WHILE INKEY$=""
    WEND
    WINDOW 2
    LET IN=-1
    RESUME NEXT