BASIC Compiler ... BASIC files!

Paragon (1540)

30-10-2014, 18:50

BASIC lists:

SCREEN 0
WIDTH 40
WRITE "Linha de texto ..."
END

SCREEN 1
WIDTH 32
WRITE "Modo Texto em 32 colunas ..."
END

SCREEN 1
WIDTH 32
LET A=1
LET B=2
LET A=A+B
PRINT A
END

SCREEN 5
PLOT(127,105),4
END

SCREEN 5
FOR X=100 TO 120
   PLOT(X,105),4
NEXT X
END

SCREEN 5

FOR X=100 TO 120
   FOR Y=100 TO 120
      PLOT(X,Y),4
   NEXT Y
NEXT X

END

SCREEN 8
LET C=0
FOR B=0 TO 54271
   VPOKE B,C
   LET C=C+1
   IF C=256 THEN LET C=0
NEXT
END

...

Por PingPong

Enlighted (4175)

31-10-2014, 20:04

so?

Por Yukio

Paragon (1540)

31-10-2014, 20:14

BASIC files ... Some can be compiled, others maybe NOT ...
Anyway, the BASIC Compilers on the Market (even the FREEWARE ones) do not compile well specific MSX instructions!

Sure, I am testing my Source files for a complete Compiler ...
(Old electoral news)

Por Yukio

Paragon (1540)

31-10-2014, 20:18

More lists:

SCREEN 1
SPRITE$(0)=STRING$(8,255)
PUTSPRITE 0,(127,91),15
END

SCREEN 1
SPRITE$(0)=STRING$(8,255)
FOR X=0 TO 255
   PUTSPRITE 0,(X,91),15
NEXT X
END

SCREEN 1

LET C=0

FOR B=6144 TO 7168
   VPOKE B,C
   LET C=C+1
   IF C=256 THEN LET C=0
NEXT B

LABEL:
VDP(24)=C
LET C=C+1
IF C=256 THEN LET C=0
GOTO LABEL

SCREEN 1
FOR COUNTER=0 TO 30000
   LOCATE 5,10
   PRINT COUNTER
NEXT COUNTER
END

SCREEN 1
JOYSTICK:
LET D=STICK(1)
GOSUB ACTION
LET D=STICK(2)
GOSUB ACTION
GOTO JOYSTICK
ACTION:
LOCATE 5,10
IF D=1 THEN PRINT "CIMA    "
IF D=3 THEN PRINT "DIREITA "
IF D=5 THEN PRINT "BAIXO   "
IF D=7 THEN PRINT "ESQUERDA"
RETURN

Por Yukio

Paragon (1540)

31-10-2014, 20:19

I got a lot of files and lists for use with "demos" and "games" ...

Por Yukio

Paragon (1540)

01-11-2014, 15:25

SCREEN 1
FOR COUNTER=1 TO 300
   VBLANK
NEXT COUNTER
LOCATE 15,10
PRINT "MSX VBLANK TEST!"
FOR COUNTER=1 TO 300
   VBLANK
NEXT COUNTER
CLS
LOCATE 15,10
PRINT "TEST COMPLETE!"
FOR COUNTER=1 TO 300
   VBLANK
NEXT COUNTER
END

SCREEN 1
LOCATE 15,10
PRINT "Waiting 5 Seconds ..."
FOR COUNTER=1 TO 300
   WAIT VBLANK
NEXT COUNTER
CLS
PRINT "Waiting 1 Second ..."
FOR COUNTER=1 TO 60
   WAIT VBLANK
NEXT COUNTER
CLS
END

SCREEN 1
FOR C=0 TO 255
   PRINT CHR$(C);
NEXT C
FOR S=0 TO 255
   SCROLL S
   WAIT VBLANK
NEXT S
END

SCREEN 1
SET PAGE 0,0
LOCATE 10,10
PRINT "MSX"
SET PAGE 0,1
LOCATE 1,1
FOR C=0 TO 255
   PRINT CHR$(C);
NEXT C
GOSUB DELAY
SET PAGE 1,2
LOCATE 1,1
FOR COUNTER=1 TO 3
   FOR C=0 TO 255
      PRINT CHR$(C);
   NEXT C
NEXT COUNTER
GOSUB DELAY
SET PAGE 2,2
GOSUB DELAY
END
DELAY:
FOR COUNTER=1 TO 120
   WAIT VBLANK
NEXT COUNTER
RETURN

SCREEN 1
PRIMEIRO:
PRINT "PRIMEIRO"
GOTO SEGUNDO
QUINTO:
PRINT "QUINTO"
GOTO SEXTO
SEGUNDO:
PRINT "SEGUNDO"
GOTO TERCEIRO
QUARTO:
PRINT "QUARTO"
GOTO QUINTO
SEXTO:
PRINT "SEXTO"
END
TERCEIRO:
PRINT "TERCEIRO"
GOTO QUARTO

ASM
LD A,08
CALL 005Fh
END ASM
FOR LINHA=0 TO 211
   FOR BYTE=0 TO 255
      LET COUNTER=LINHA*256+BYTE
      VPOKE COUNTER,BYTE
   NEXT BYTE
NEXT LINHA
FOR COUNTER=1 TO 300
   WAIT VBLANK
NEXT COUNTER
END

Por Grauw

Ascended (10860)