MSX

MSX.org

Posts

Wiki


GitHub

Interesting Projects

Authors

Sites to explore


  10  SCREEN2 :X = 0:Y = 0:ST=7
  20  C = 1* RND (-TIME)
  30  IF C < .47 THEN GOSUB 100 ELSE GOSUB 110
  40  X = X + 8: IF X = 256 THEN X = 0: Y = Y + 8: IF Y = 192 GOTO 60
  50  GOTO 20
  60  A$=INPUT$(1):END
  100 FOR D = 0 TO ST: PRESET(X+ D,Y + D):PSET(X+ D,Y + ST - D):NEXT: RETURN
  110 FOR D = 0 TO ST: PSET(X+ D,Y + D):PRESET(X+ D,Y + ST - D):NEXT: RETURN

https://msxpen.com/?code=-Lm2SpGxwu4QSkisVcj7

Running BASIC from MSX-DOS