This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 'ラン | IchigoJam BASIC | |
| 12 CLS | |
| 13 CLT | |
| 14 Y=12 | |
| 20 LC 4,Y | |
| 22 ?CHR$(251) | |
| 26 LC 28,RND(23) | |
| 28 ?CHR$(6);CHR$(6);CHR$(6) | |
| 30 SCROLL 3 | |
| 33 Y=Y-BTN(UP)+BTN(DOWN) |
tomaes
/ sumofparts.bas
Created
May 2, 2019 09:42
Miniature Edutainment Game in GW-BASIC. A minor tribute to the first programming language I came in contact with. Back when Pangea was still a thing. ;)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 110 REM the sum of parts. GW-Basic edition | |
| 120 A$ = "" | |
| 125 RANDOMIZE TIMER | |
| 130 FOR I=0 TO 19 | |
| 140 N% = INT(RND(1)*10) | |
| 150 S% = S% + N% | |
| 160 A$ = A$ + CHR$(48+N%) + "+" | |
| 170 NEXT | |
| 180 A$ = LEFT$(A$,LEN(A$)-1) + "=" | |
| 190 CLS: LOCATE 12,1: PRINT A$ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- minesonar.bas in Lua (aka first Lua test, v2) | |
| r, x, y = 0, math.random(8), math.random(8) | |
| print "There is a mine hidden in an 8x8 field" | |
| repeat | |
| r = r + 1 | |
tomaes
/ whatsmore.bas
Last active
May 9, 2019 13:14
Started as a qb.js experiment, but it so happens that qb.js is a very limited implementation of QBasic. Had to go back to the real thing.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' What's more? (v1.1) | |
| ' a quick guesstimation game in QBASIC | |
| ' (slightly extended version, won't run in qb.js) | |
| DIM c%(2): cont% = 1: r% = 0: bchar% = 97 '97 = a,b / 48 = 0,1 | |
| CLS | |
| RANDOMIZE TIMER | |
| t = TIMER |
tomaes
/ pico racer (c64)
Last active
April 6, 2019 15:57
first version. ~300 byte commodore basic v2 (c64) mini game. use petcat and VICE to run on a pc. Or CBM studio. Or type it in like a man/woman/child/zombie/adventurous space person!
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 rem .-==: pico.racer :==-. | |
| 1 j=56320:p=1444:r=119:l=r+4:c=.001:printchr$(147) | |
| 2 w=peek(j):ifw=rthenx=x+1 | |
| 3 ifw=lthenx=x-1 | |
| 4 o=15+int(sin(m*.1)*3):ifm>20thens=s-(peek(p+x)=32) | |
| 5 pokep+x,81:printspc(o)"";:fori=0to5:ifrnd(0)>bthenprint":";:goto7 | |
| 6 print" "; | |
| 7 next:pokep+x,66:m=m+1:b=b+c:prints:ifs<10thengoto2 | |
| 8 print,"miles:";m |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // fragment shader one-liners | |
| // note: some might break for timing reasons (iDate.a/iDate.w) and some for compatibility reasons ("f+=" on a Mac, f.e.) | |
| // | |
| // void mainImage( out vec4 f, vec2 p ) | |
| // and then... | |
| // "flames (red)" | |
| {f=vec4(p.x/p.y*mod(sin(p.x-iDate.a),.001*length(p-.9)),.2,.5,1.0);} | |
| // "rain (small)" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 fori=.to7step2:m(i)=i+2:m(i+1)=i+2:next:r=1 | |
| 1 forj=.to9:fori=.to7:a=int(rnd(.)*8):h=m(i):m(i)=m(a):m(a)=h:nexti,j | |
| 2 print"#:"r:fori=.to7:printi;chr$(63+(m(i)<0)):next | |
| 3 r=r+1:input"cards";a,b:if(a=b)or((m(a)orm(b))<0)goto3 | |
| 5 printchr$(13)m(a)m(b)chr$(13):ifm(a)=m(b)thenm(a)=-m(a):m(b)=-m(b) | |
| 8 s=.:fori=.to7:s=s+m(i):next:if(s>-40)goto2 |
tomaes
/ flatenthemout.pde
Last active
April 11, 2016 12:51
Sierpinsky Carpet bömbing; stylish fractal things + parallax scrolling
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // PDE 3.02 | |
| // Sierpinski's Carpet bömbing (v3) | |
| // updt: better, faster, interactive | |
| PImage img = createImage(729,729, RGB); | |
| void setup() | |
| { | |
| size( 729, 729, P2D ); //729 243 324 | |
| } |
tomaes
/ click beat sequence (c64)
Created
March 1, 2013 11:20
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 0 b$="19243342":fori=1to8:poke54296,val(mid$(b$,i,1)):pokes,.:forj=.to99:nextj,i:goto. |
tomaes
/ analogue mouse test (c64)
Created
February 28, 2013 09:52
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 rem analogue mouse test tool | |
| 12 rem - movement detection by polling SID registers s+25/26 | |
| 14 rem - left/right buttons detection by polling control port #1 | |
| 16 s=54272: js=56321 | |
| 18 print"{reverse on}{down}analogue mouse test{reverse off}{down*4}" | |
| 20 y$="{light gray}yes{light blue}":n$="{gray}no {light blue}" | |
| 22 h$=n$: v$=n$: lmb$=n$: rmb$=n$ | |
| 24 ho=peek(s+25):vo=peek(s+26) | |
| 26 fori=.to39:next | |
| 28 if ho<>peek(s+25) then h$=y$ |