Jump to content

PQCraft

Members
  • Content Count

    2
  • Joined

  • Last visited

Community Reputation

2 Neutral
  1. Hello! I am currently living in Miami, Florida (it's not really like the memes). I like 80's/90's tech and I listen to vaporwave often. I own quite a few old computers and an MKII arcade machine (it somehow found it's way into a dump) that I modded with a chip selector to be able to play games compatible with the JAMMA standard. I have written a lot of demos in BASIC (QBASIC, MMBASIC, etc.). Though they are nothing complicated, they usually are good screen savers. I have written a snow scene demo for QB64 and made a simplified version for the X16 (you can download it on my github page along with an arcade style shooter if you're interested: https://github.com/PQCraft). I am currently working on ESPBASIC which uses the FABGL library and am working on ModernBASIC which is BASIC written in BASIC. You can probably tell I like my BASIC. (Sorry I didn't do this first, the layout of the site kind of confused me.)
  2. Link to the natively saved version (also attached): https://drive.google.com/file/d/1hKEyWvfhVMdU-jgtj9un2NfQw8yIhWz5/view?usp=sharing Edit: I forgot to add the GOTO command at the end. Source code (copy and paste it into the emulator): 1 SCREEN$80 2 RECT0,0,319,199 3 DIMX(99) 4 DIMY(99) 5 DIMS(99) 6 FORI=0TO99 7 X(I)=INT(RND(1)*320) 8 Y(I)=INT(RND(1)*199)+1 9 S(I)=INT(RND(1)*5)+1 10 NEXTI 11 FORJ=0TO99 12 PSETX(J),Y(J),0 13 Y(J)=Y(J)+S(J) 14 IF Y(J)>199 THEN X(J)=INT(RND(1)*320):Y(J)=0:S(J)=INT(RND(1)*5)+1 15 PSETX(J),Y(J),1 16 NEXTJ 17 GOTO 11 SNOWDEMO.BAS
×
×
  • Create New...

Important Information

Please review our Terms of Use