Code dump
Here is some random, mostly useless code stuff.
Console
Stuff for the console on this page that you can open by pressing ";" or going here. Some of these programs require refresh to abort.
Make sure you have the console updated - perform a hard refresh (CTRL+F5 or CTRL+SHIFT+R) before trying things out!
BASIC TEST LABS V2
Testing stuff in the console, but better.
TITLE BASIC TEST LABS V2
:MENU
CLS
DEL ALL
> 1. BASIC FUNCTIONALITY
> 2. DRAWING
> 3. INTERACTIVITY
> 4. RECORDING
? MENU SELECT TEST SUITE, ESC TO EXIT.
IF MENU>! THEN GOTO :MENU
IF MENU<1 THEN GOTO :MENU
IF MENU>4 THEN GOTO :MENU
IF MENU=1 THEN GOTO :SUITEBASIC
IF MENU=2 THEN GOTO :SUITEDRAWING
IF MENU=3 THEN GOTO :SUITEINTERACTIVITY
IF MENU=4 THEN GOTO :SUITERECORDING
:SUITEBASIC
CLS
LET TESTNAME PRINTING TEST
GOTO :STARTTEST
PRINT This is a line of text.
ECHO %%(fgmagenta)This is also a line of text, but magenta.
SAY %%(fgblack,bgyellow,center,stylish)WARNING OF SOME SORTS
> %%(right)Left not!
> %%(bgblack).
> %%(bgblue).
> %%(bgred).
> %%(bgmagenta).
> %%(bggreen).
> %%(bgcyan).
> %%(bgyellow).
> %%(bgwhite).
GOTO :ENDTEST
LET TESTNAME 1 FOR LOOP - I=0 I<10 I+1
GOTO :STARTTEST
LET I 0
FOR I<10
LET I $(I)+1
PRINT $(I)
NEXT I
GOTO :ENDTEST
LET TESTNAME 1 FOR LOOP WITH BREAK AT 5 - I=0 I<10 I+1
GOTO :STARTTEST
LET I 0
FOR I<10
IF I=5 THEN BREAK
LET I $(I)+1
PRINT $(I)
NEXT I
GOTO :ENDTEST
LET TESTNAME 1 FOR LOOP WITH BREAK AT 5 ALTERNATIVE IF SYNTAX - I=0 I<10 I+1
GOTO :STARTTEST
LET I 0
FOR I<10
IF $(I)=5 THEN BREAK
LET I $(I)+1
PRINT $(I)
NEXT I
GOTO :ENDTEST
LET TESTNAME 2 FOR LOOPS WITH I BREAK AT 5 - I=0 I<10 I+1
GOTO :STARTTEST
LET I 0
FOR I<10
IF $(I)=5 THEN BREAK I
LET J 0
FOR J<10
PRINT $(J)
LET J $(J)+1
NEXT J
LET I $(I)+1
PRINT Hello World! I:$(I)
NEXT I
GOTO :ENDTEST
LET TESTNAME UNDEFINED TEST
GOTO :STARTTEST
LET A YES, THIS IS DEFINED!
PRINT DEFINED A: $(A)
PRINT UNDEFINED B: $(B)
PRINT DELETING VARIABLE A
DEL A
PRINT DEFINED A: $(A)
GOTO :ENDTEST
GOTO :MENU
:SUITEDRAWING
CLS
LET TESTNAME BOXES
GOTO :STARTTEST
LET GAP 80
LET W 40
LET H $(W)
LET Y 0
FOR Y<$(__CONSOLEHEIGHT)-($(GAP)*2)
LET Y $(Y)+$(GAP)
LET X 0
FOR X<$(__CONSOLEWIDTH)-($(GAP)*2)
LET X $(X)+$(GAP)
BOX FILL #FFF $(X) $(Y) $(W) $(H)
NEXT X
NEXT Y
GOTO :ENDTEST
LET TESTNAME BOXES ROTATED -45 DEGREES
GOTO :STARTTEST
ROTATE -45
LET GAP 80
LET W 40
LET H $(W)
LET Y 0
FOR Y<$(__CONSOLEHEIGHT)-($(GAP)*2)
LET Y $(Y)+$(GAP)
LET X 0
FOR X<$(__CONSOLEWIDTH)-($(GAP)*2)
LET X $(X)+$(GAP)
BOX FILL #FFF $(X) $(Y) $(W) $(H)
NEXT X
NEXT Y
GOTO :ENDTEST
LET TESTNAME BOXES ROTATED -45 DEGREES SCALED 0.5 0.5 WITH STROKE
GOTO :STARTTEST
ROTATE -45
LET GAP 80
LET W 40
LET H $(W)
LET Y 0
FOR Y<$(__CONSOLEHEIGHT)-($(GAP)*2)
LET Y $(Y)+$(GAP)
LET X 0
FOR X<$(__CONSOLEWIDTH)-($(GAP)*2)
LET X $(X)+$(GAP)
SCALE 0.5 0.5
BOX FILL #FFF $(X) $(Y) $(W) $(H)
SCALE 1 1
BOX STROKE #FFF $(X) $(Y) $(W) $(H)
NEXT X
NEXT Y
GOTO :ENDTEST
LET TESTNAME TEXT
GOTO :STARTTEST
TEXT FILL #FFF 64 64 Normal Text.
ROTATE 45
TEXT FILL #FFF 64 128 45deg Rotated Text.
SCALE 1.5 1.5
TEXT FILL #FFF 64 192 45deg Rotated And 1.5 1.5 Scaled.
LET __TEXTSIZE 64
LET __TEXTFONT Arial
SCALE 1 1
ROTATE 0
TEXT FILL YELLOW 64 256 Large Arial Text.
DEL __TEXTSIZE __TEXTFONT
GOTO :ENDTEST
LET TESTNAME BOXES ROTATING ANIMATION IN A THREAD
GOTO :STARTTEST
LET R 0
LET GAP 80
LET W 40
LET H $(W)
LET EVER 1
BRANCH BOXESANIM
GOTO :AFTERBOXESANIM
THREAD BOXESANIM
FOR EVER=1
LET Y 0
FOR Y<$(__CONSOLEHEIGHT)-($(GAP)*2)
HOLD
LET R $(R)+1
LET Y $(Y)+$(GAP)
LET X 0
FOR X<$(__CONSOLEWIDTH)-($(GAP)*2)
LET X $(X)+$(GAP)
ROTATE 0
SCALE 1.5 1.5
BOX FILL #000 $(X) $(Y) $(W) $(H)
SCALE 1 1
ROTATE $(R)
BOX FILL #FFF $(X) $(Y) $(W) $(H)
NEXT X
RENDER
NEXT Y
NEXT EVER
STOP BOXESANIM
:AFTERBOXESANIM
?
LET EVER 0
WAIT BOXESANIM
GOTO :ENDTEST
GOTO :MENU
:SUITEINTERACTIVITY
CLS
LET TESTNAME BUTTON TEST
GOTO :STARTTEST
GOTO :BUTTONTESTSTART
:MAKEBUTTON
TEXTW BTXT BW
TEXTH BTXT BH
LET BPAD 20
LET __LINEWIDTH 2
LET BARGS $(BX)+($(BW)/2)||$(BY)+($(BH)/2)||$(BW)+$(BPAD)||$(BH)+$(BPAD)
BOX FILL #C9C9C9 ...$(BARGS)
BOX STROKE #E4E4E4 ...$(BARGS)
TEXT FILL #000 $(BX) $(BY)+$(BH) $(BTXT)
LET __LINEWIDTH 1
RETURN
THREAD BCLICKED
PRINT CLICK!
STOP BCLICKED
THREAD BHOVERED
PRINT HOVERED!
RNDS CLR 6 ABCDEF0123456789
LET BPAD 20
LET BHOVEREDARGS $(__INTERACTIVEX)+($(__INTERACTIVEW)/2)||$(__INTERACTIVEY)+($(__INTERACTIVEH)/2)||$(__INTERACTIVEW)+$(BPAD)||$(__INTERACTIVEH)+$(BPAD)
BOX STROKE #$(CLR) ...$(BHOVEREDARGS)
STOP BHOVERED
:SHOWVALUE
BOX FILL #000 400 180 650 50
TEXT FILL #FFF 100 180 $(VALUE)
TEXT FILL #FFF 100 200 SET VALUE TO -10 TO COMPLETE TEST
IF VALUE=-10 THEN GOTO :ENDBUTTONTEST
RETURN
THREAD B+1
LET VALUE $(VALUE)+1
GOTO :SHOWVALUE
STOP B+1
THREAD B-1
LET VALUE $(VALUE)-1
GOTO :SHOWVALUE
STOP B-1
:BUTTONTESTSTART
LET VALUE 0
LET BX 50
LET BY 50
LET BTXT CLICK ME!
GOTO :MAKEBUTTON
INTERACTIVE CLICK ...$(BARGS) BCLICKED
LET BX 80
LET BY 90
LET BTXT THIS BUTTON HAS REALLY LONG TEXT BUT I CAN MANAGE! HOVER ME!
GOTO :MAKEBUTTON
INTERACTIVE MOUSEENTER ...$(BARGS) BHOVERED
LET BX 80
LET BY 130
LET BTXT +1 TO VALUE
GOTO :MAKEBUTTON
INTERACTIVE CLICK ...$(BARGS) B+1
TEXTW BX +1 TO VALUE
LET BX $(BX)+120
LET BY 130
LET BTXT -1 TO VALUE
GOTO :MAKEBUTTON
INTERACTIVE CLICK ...$(BARGS) B-1
GOTO :SHOWVALUE
STOP
:ENDBUTTONTEST
GOTO :ENDTEST
GOTO :MENU
:SUITERECORDING
CLS
LET TESTNAME RECORDING TEST - YOU CAN DRAW USING LEFT MOUSE BUTTON
GOTO :STARTTEST
LET RENDERADDINTERACTIONS 1
LET ISRECORDING 0
GOTO :STARTRECORDINGTEST
:RENDERRECORDINGBUTTONS
LET BX 40
LET BY 100
LET BTXT START RECORDING
GOTO :MAKEBUTTON
IF RENDERADDINTERACTIONS=1 THEN INTERACTIVE CLICK ...$(BARGS) STARTRECORDING
LET BX 40
LET BY 150
LET BTXT STOP RECORDING
GOTO :MAKEBUTTON
IF RENDERADDINTERACTIONS=1 THEN INTERACTIVE CLICK ...$(BARGS) STOPRECORDING
LET BX 40
LET BY 200
LET BTXT CLEAR SCREEN
GOTO :MAKEBUTTON
IF RENDERADDINTERACTIONS=1 THEN INTERACTIVE CLICK ...$(BARGS) CLEARSCREEN
LET BX 40
LET BY 250
LET BTXT EXIT TEST
GOTO :MAKEBUTTON
IF RENDERADDINTERACTIONS=1 THEN INTERACTIVE CLICK ...$(BARGS) ENDRECORDINGTEST
LET RENDERADDINTERACTIONS 0
RETURN
THREAD STARTRECORDING
PRINT RECORDING STARTED!
LET ISRECORDING 1
RECORD START
STOP STARTRECORDING
THREAD STOPRECORDING
PRINT RECORDING STOPPED!
LET ISRECORDING 0
RECORD STOP
STOP STOPRECORDING
THREAD ENDRECORDINGTEST
IF ISRECORDING=1 THEN RECORD STOP
LET EVER 0
STOP ENDRECORDINGTEST
THREAD CLEARSCREEN
CLS CANVAS
STOP CLEARSCREEN
:STARTRECORDINGTEST
LET EVER 1
LET MOUSEXLAST $(__MOUSEX)
LET MOUSEYLAST $(__MOUSEY)
FOR EVER=1
HOLD
LET MOUSEXNOW $(__MOUSEX)
LET MOUSEYNOW $(__MOUSEY)
RNDI RND1 0 $(__CONSOLEWIDTH)
RNDI RND2 0 $(__CONSOLEHEIGHT)
RNDI RND3 0 $(__CONSOLEWIDTH)
RNDI RND4 0 $(__CONSOLEHEIGHT)
PATH STROKE #000 M$(RND1),$(RND2) L$(RND3),$(RND4)
GOTO :RENDERRECORDINGBUTTONS
LET __LINEWIDTH 8
IF $(__MOUSEDOWN)=1 THEN PATH STROKE #FFF M$(MOUSEXLAST),$(MOUSEYLAST) L$(MOUSEXNOW),$(MOUSEYNOW)
LET __LINEWIDTH 1
LET MOUSEXLAST $(MOUSEXNOW)
LET MOUSEYLAST $(MOUSEYNOW)
RENDER
NEXT EVER
CLS CANVAS
GOTO :ENDTEST
GOTO :MENU
:STARTTEST
> $(TESTNAME)
RETURN
:ENDTEST
LET __LINEWIDTH 1
CLS INTERACTIVE
ROTATE 0
SCALE 1 1
DEL ALL
?
CLS
RETURN
Rainbow thingy
CLS
LET __LINEWIDTH 6
LET A 0
LET W2 $(__CONSOLEWIDTH)/2
LET H2 $(__CONSOLEHEIGHT)/2
FOR A<100
FREE
LET F $(A)
RNDF G 0.8 1.2
LET F $(F)*$(G)
ATN $(F) B
TAN $(F) C
LET D $(B)*$(__CONSOLEWIDTH)
LET E $(C)*$(__CONSOLEHEIGHT)
RNDS CLR 8 DEADBEEF
PATH STROKE #$(CLR) M$(W2),$(H2) L$(D),$(E)
LET A $(A)+1
IF A=100 THEN LET A 0
NEXT A
Chaotic drawing test
CLS
FREE
LET A 0
LET B $(__CONSOLEWIDTH) * 2
LET C $(__CONSOLEWIDTH) / 2
LET D $(__CONSOLEHEIGHT) / 2
LET E ABCDEF0123456789
RNDF F 0.5 1.5
LET C $(C)*$(F)
RNDF F 0.5 1.5
LET D $(D)*$(F)
RNDS CLR1 6 $(E)
RNDS CLR2 6 $(E)
RNDS CLR3 6 $(E)
RNDS CLR4 6 $(E)
RNDS CLR5 6 $(E)
RNDS CLR6 6 $(E)
RNDS CLR7 6 $(E)
RNDS CLR8 6 $(E)
LET I 1
FOR I=1
IF A>B THEN BREAK I
LET A $(A)+16
RNDI E 0 1
IF E=0 THEN GOTO :LINE1
IF E=1 THEN GOTO :LINE2
NEXT I
LET I 2
FOR I<1024
LET E $(I)%2
IF E<1 THEN GOTO :CIRCLE1
IF E>1 THEN GOTO :CIRCLE2
RNDF G 1.001 1.1
LET I $(I)*$(G)
RNDF F 0.95 1.03
LET I $(I)*$(F)
NEXT I
LET __TEXTSIZE 64
TEXT FILL #$(CLR1) 20 300 HELLO WORLD!
TEXT STROKE #$(CLR2) 20 300 HELLO WORLD!
RNDI G 1 2
IF G=1 THEN GOTO :RANDOMBOX
GOTO 2
END
:CIRCLE1
PATH STROKE #$(CLR3) A$(C),$(D),$(I),0,$(__PI*2),1
RETURN
:CIRCLE2
PATH STROKE #$(CLR4) A$(C),$(D),$(I),0,$(__PI*2),1
RETURN
:LINE1
PATH STROKE #$(CLR5) M0,$(A) L$(A),0
RETURN
:LINE2
PATH STROKE #$(CLR6) M0,$(A) L$(A),0
RETURN
:RANDOMBOX
RNDI BOXX 0 $(__CONSOLEWIDTH)
RNDI BOXY 0 $(__CONSOLEHEIGHT)
RNDI BOXW 8 512
RNDI BOXH 8 512
LET GRADX $(BOXX)+$(BOXW)
LET GRADY $(BOXY)+$(BOXH)
RNDI G 1 2
IF G=1 THEN GOTO :BOX1
IF G=2 THEN GOTO :BOX2
RETURN
:BOX1
BOX FILL R$(BOXX),$(BOXY),50,$(GRADX),$(GRADY),100,0,#$(CLR7),1,#$(CLR8) $(BOXX) $(BOXY) $(BOXW) $(BOXH)
RETURN
:BOX2
BOX FILL L$(BOXX),$(BOXY),$(GRADX),$(GRADY),0,#$(CLR7),1,#$(CLR8) $(BOXX) $(BOXY) $(BOXW) $(BOXH)
RETURN
Sieve of Eratosthenes, by Eratosthenes of Cyrene 276BC - 194BC
Code ported from BAS55 examples.
REM SIEVE OF ERATOSTHENES, BY ERATOSTHENES OF CYRENE 276BC-194BC
REM CODE PORTED FROM BAS55 EXAMPLES
PRINT LOADING... PLEASE WAIT...
LOCK
LET I 1
FOR I<=1000
LET A$(I) 0
LET I $(I)+1
NEXT I
UNLOCK
INPUT N FIND PRIMES FROM 2 TO N (N <= 1000). ENTER N:
LET N $(N)+1
IF N>! THEN GOTO 11
IF $(N)<3 THEN GOTO 11
IF $(N)>1001 THEN GOTO 11
PRINT LOADING... PLEASE WAIT...
SQR $(N) S
LET I 2
LOCK
FOR I<$(S)
IF $(A$(I))=1 THEN GOTO 28
LET J $(I)
FOR J<$(N)/$(I)
LET K $(I)*$(J)
LET A$(K) 1
LET J $(J)+1
NEXT J
LET I $(I)+1
NEXT I
LET I 2
FOR I<$(N)
IF $(A$(I))=1 THEN GOTO 34
PRINT $(I)
LET I $(I)+1
NEXT I
DEL ALL
UNLOCK
END
The Elder Scrolls III: Morrowind
Accurate simple reproduction of most TES3 experiences.
CLS
LET PLAYERHP 100
LET MUDCRABHP 100
PRINT Hey, you're finally awake!
PRINT Why don't you go kill that mudcrab over there on the shore?
PRINT you will get paid in exposure.
PRINT You go and engage the evil(for some reason) mudcrab.
PROMPT ACTION What do you do? 1/Enter - Attack, 2 - Defend
IF $(ACTION)==2 THEN GOTO 42
RNDI ATK 0 3
IF $(ATK)==1 THEN GOTO 45
RNDI MESSAGE 1 9
IF $(MESSAGE)==1 THEN GOTO 22
IF $(MESSAGE)==2 THEN GOTO 24
IF $(MESSAGE)==3 THEN GOTO 26
IF $(MESSAGE)==4 THEN GOTO 28
IF $(MESSAGE)==5 THEN GOTO 30
IF $(MESSAGE)==6 THEN GOTO 32
IF $(MESSAGE)==7 THEN GOTO 34
IF $(MESSAGE)==8 THEN GOTO 36
IF $(MESSAGE)==9 THEN GOTO 38
PRINT Oh no! You missed! Perhaps you should try harder.
GOTO 39
PRINT The mudcrab, while pretty much immobile, bested your strike and reflected its damage.
GOTO 39
PRINT You missed dumbass!
GOTO 39
PRINT Missed. It's clearly a skill issue.
GOTO 39
PRINT You thought you hit, but you didn't.
GOTO 39
PRINT You swing, but you hit yourself instead.
GOTO 39
PRINT This is a good gameplay feature. Absolutely flawless!
GOTO 39
PRINT The mudcrab jumps over your attack and stomps you on the way down.
GOTO 39
PRINT The RNG decided NO!
LET PLAYERHP $(PLAYERHP)-10
PRINT The mudcrab never misses. You get spanked. You have $(PLAYERHP)HP left!
GOTO 49
LET PLAYERHP $(PLAYERHP)-10
PRINT Resistance is futile. You get spanked. You have $(PLAYERHP)HP left!
GOTO 49
LET MUDCRABHP $(MUDCRABHP)-10
PRINT WOW! You actually managed to strike the mudcrab!
PRINT You hit the mudcrab for 10HP!! It now has $(MUDCRABHP)HP left.
PRINT Keep going!! You're almost the winrar!
IF $(MUDCRABHP)<=0 THEN GOTO 58
IF $(PLAYERHP)<=0 THEN GOTO 52
GOTO 8
PRINT -------------------------------------------------------------------------------
PRINT Congratulations, you're dead!
PRINT You are not the winrar.
PRINT Thanks for playing The Elder Scrolls III: Morrowind
PRINT -------------------------------------------------------------------------------
EXIT
PRINT -------------------------------------------------------------------------------
PRINT WOWOWOW YOU'RE THE BEEEESTTT YOURE WINNER CONGRATS
PRINT WOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
PRINT You then go and kill the guy in volcano.
PRINT Thanks for playing The Elder Scrolls III: Morrowind
PRINT -------------------------------------------------------------------------------
