Code dump

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)<3 THEN 11
IF $(N)>1001 THEN 11
PRINT LOADING... PLEASE WAIT...
LOCK
SQR $(N) S
LET I 2
FOR $(I)<$(S)
	IF $(A$(I))=1 THEN 28
	LET D $(N)/$(I)
	LET J $(I)
	FOR $(J)<$(D)
		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 34
	PRINT $(I)
	LET I $(I)+1
NEXT I
DEL ALL
UNLOCK
END

CLS
TITLE Basic Test Lab

:MainMenu
> Welcome to the Basic Test Labs
> ?/Enter - Exit
> 1 - Printing
> 2 - GOTOs
> 3 - FOR loops
? A What do you want to test?
IF $(A)=1 THEN :TestStartPrinting
IF $(A)=2 THEN :TestStartGoto
IF $(A)=3 THEN :TestStartFor

:Exit
TITLE
> Bye!
END

:TestEnd
? A Input any key to continue.
CLS
GOTO :MainMenu

:TestStartPrinting
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 :TestEnd

:TestStartGoto
PRINT For loop using GOTO:
LET FORI 0
LET FORI $(FORI)+1
IF $(FORI)<>32 THEN LET FORI $(F
PRINT $(FORI)
LABEL ABC
? A Input a number bigger than 3 to continue.
IF $(A)<=3 THEN LABEL ABC
> "Function" test:
GOTO :FnTest

:MySecondFn
LET FB $(FB) * 4
RETURN

:MyFn
LET FB 2
GOTO :MySecondFn
LET FOUT $(FA) * $(FB)
REM DEL FA FB
RETURN

:FnTest
PROMPT A What is the value of A?
PRINT This function will work correctly only once. To fix it, remove the REM in :MyFn to properly reset FA and FB
PRINT A gets linked to FA, goto :MyFn, FB is 2, goto :MySecondFn, FB is multiplied by 4, return, FOUT from :MyFn is FA * FB, return, unlink, print
PRINT Before link: A: $(A) FA: $(FA)
LINK A FA
PRINT After link: A: $(A) FA: $(FA)
GOTO :MyFn
UNLINK
LET A $(FOUT)
PRINT The value of A is $(A).

GOTO :TestEnd

:TestStartFor
> For I=1 to 10:
LET I 0
FOR $(I)<10
LET I $(I)+1
PRINT $(I)
NEXT I
> For loop ended.
> Now come 2 for loops I<10 J<10 with a break when any reach 5.
? A Input any key to continue.
LET I 0
FOR $(I)<10
LET I $(I)+1
PRINT I: $(I)
IF $(I)=5 THEN BREAK
LET J 0
FOR $(J)<10
LET J $(J)+1
PRINT J: $(J)
IF $(J)=5 THEN BREAK
NEXT J
NEXT I
> Now a for loop with GOTOs going somewhere outside and back.
? A Input any key to continue.
LET I 0
FOR $(I)<10
GOTO :IncrementI
PRINT $(I)
NEXT I
GOTO :TestEnd

:IncrementI
REM OOps, this function actually sucks, let me go to another one!
GOTO :IncrementI2
RETURN

:IncrementI2
LET I $(I)+1
RETURN

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 42
RNDI ATK 0 3
IF $(ATK)==1 THEN 45
RNDI MESSAGE 1 9
IF $(MESSAGE)==1 THEN 22
IF $(MESSAGE)==2 THEN 24
IF $(MESSAGE)==3 THEN 26
IF $(MESSAGE)==4 THEN 28
IF $(MESSAGE)==5 THEN 30
IF $(MESSAGE)==6 THEN 32
IF $(MESSAGE)==7 THEN 34
IF $(MESSAGE)==8 THEN 36
IF $(MESSAGE)==9 THEN 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 58
IF $(PLAYERHP)<=0 THEN 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 -------------------------------------------------------------------------------