BASIC Compiler ... BASIC files!

By Yukio

Paragon (1541)

Yukio's picture

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

...

Login or register to post comments

By PingPong

Prophet (3435)

PingPong's picture

31-10-2014, 20:04

so?

By Yukio

Paragon (1541)

Yukio's picture

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)

By Yukio

Paragon (1541)

Yukio's picture

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

Running Naked in a Field of Flowers

By Yukio

Paragon (1541)

Yukio's picture

31-10-2014, 20:19

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

By Yukio

Paragon (1541)

Yukio's picture

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

By Grauw

Ascended (8381)

Grauw's picture

01-11-2014, 16:55

You made a Basic compiler, and this all works? Nice!

By Lord_Zett

Paladin (807)

Lord_Zett's picture

01-11-2014, 17:28

i dont understand you place some code here with out some info what dilect of basic this is or why you place it here!

explane!

By ARTRAG

Enlighted (6234)

ARTRAG's picture

01-11-2014, 17:36

Spambot ?

By PingPong

Prophet (3435)

PingPong's picture

01-11-2014, 21:00

Lord_Zett wrote:

i dont understand you place some code here with out some info what dilect of basic this is or why you place it here!

explane!

i think you are not alone here.