Sorry your browser is not supported!

if (answer = number)

`-------------------------------------- STEP 1
DIM first(10)                          `Dimension an arrasy, call it "first"
PRINT "Stored in 'first' array:"
FOR i = 1 TO 10
   first(i) = i + 200                  `Assign values to the array
   PRINT first(i)                      `Print those values
NEXT i
SAVE ARRAY "first.array", first()      `Save array to a file called "first.array"
UNDIM first()                          `Un-dimanesion (delete) array "first"

`-------------------------------------- STEP 2
DIM second(10)                         `Dimension a new array, call it "second"
LOAD ARRAY "first.array", second()     `Load the array contents from "first" to second.
PRINT "============"
PRINT " "
PRINT "============"
PRINT "Contents of 'second' array"
FOR i = 1 TO 10
   PRINT second(i)                     `Print the contents of the second array to compare
NEXT i
PRINT " "
PRINT "Press any key to exit"
WAIT KEY
DELETE FILE "first.array"              `Clean up after ourselves
END

if (answer = number)
Print "That's correct"
FOR i = 1 TO 10
 first(i) = i + 200                  
   PRINT first(i)                    
NEXT i
SAVE ARRAY "first.array", first()
UNDIM first()

targetnumber = RND(9) + 1
guess = 0
DO
         PRINT targetnumber
         PRINT " "
         INPUT "Guess what number (1 - 10): ", guess
         IF guess > 0 AND guess < 11
               IF guess <> targetnumber
                     PRINT " "
                     PRINT "   You got it wrong, buddy! Ha-ha! Loser!"
                     PRINT "   Try again, try again!"
                     PRINT " "
               ELSE
                     PRINT " "
                     PRINT "  Hah! You actually got it right?"
                     PRINT "  Not bad kid, not bad."
                     EXIT
               ENDIF
         ELSE
               PRINT " "
               PRINT "   That input is not even valid you idiot!!"
               PRINT "   Try again and this time try to get it right"
               PRINT " "
         ENDIF
LOOP
PRINT " "
PRINT "Press any key to continue..."
WAIT KEY
END

targetnumber = RND(9) + 1

GetGuess:
   PRINT targetnumber
   INPUT "Guess what number (1 - 10): ", guess
   IF guess < 1 OR guess > 10
         PRINT " "
         PRINT "   That input is not even valid you idiot!!"
         PRINT "   Try again and this time try to get it right"
         PRINT " "
         GOTO GetGuess
   ENDIF
   IF guess <> targetnumber
         PRINT " "
         PRINT "   You got it wrong, buddy! Ha-ha! Loser!"
         PRINT "   Try again, try again!"
         PRINT " "
         GOTO GetGuess
   ELSE
         PRINT " "
         PRINT "  Hah! You actually got it right?"
         PRINT "  Not bad kid, not bad."
   ENDIF


PRINT " "
PRINT "Press any key to continue..."
WAIT KEY

`define variables
number AS INTEGER
answer AS INTEGER
again AS STRING
Score AS INTEGER
PlayerNames AS STRING
DIM Scores(10)
DIM second(10)

`get a random number between 1-10
number = rnd(9) + 1 
`getting the player's name

Print "Enter your name:"
input PlayerNames

do ` enter main loop
	print "Guess the number: "
	input answer
	
	if (answer = number)
		inc Score
	FOR i = 1 TO 10
	Scores(i) = Score
	
	next i
		print "Correct!"
		print PlayerNames, " ", "Your score is:","   ", Score
		print "Play again(y/n)?"
		input again
		
		if (again = "n" OR again = "N")
		  save array "Scores.txt",Scores()
		  load array "Scores.txt",second()
		  FOR i = 1 TO 10
   PRINT second(i)  `print second array contents
		NEXT i
		wait key
			exit ` ends game			
	else `set up another game
			number = rnd(9) + 1 
		endif
	else `if the answer is not correct
		print "Wrong answer."
	endif
	
loop

` Basics on Arrays
` ================
` If you see a line beginning with "HELP = 1", ignore it, it prints help during program execution.
`

`Just colour constants, nothing to worry about
   #CONSTANT noir    RGB(0,0,0)
   #CONSTANT blou    RGB(50,50,250)
   #CONSTANT wit     RGB(240,240,240)
   #CONSTANT groen   RGB(50, 200, 50)

`Our array will be dimensioned as 1 initially. There are actually 2 items in this object: MyArray(0) and MyArray(1)
   DIM MyArray(1)

`Print intro
   INK wit, noir
   PRINT "Welcome to My world, hahaha!"
   PRINT " "
   PRINT "Today we'll deal with those annoying things"
   PRINT "called ARRAYS. We'll be doing this at quite"
   PRINT "basic level (better understanding)."
   PRINT " "
   PRINT "Sit back and relax."

`Set array counter, which I've creatively named "counter"
   counter = 0
GetInput:
   PRINT " "
   INPUT "Input any value you like (0 will exit):> ", anyval
`Check if the counter has exceeded 1. If so,
   IF counter > 1
`increase the number of items in the array by 1 to make space for the next input.
         ARRAY INSERT AT BOTTOM MyArray()
                  HELP = 1: INK blou, noir: PRINT "IF ";: INK wit, noir: PRINT "counter > 1 ";: INK blou, noir: PRINT "ARRAY INSERT AT BOTTOM ";: INK wit, noir: PRINT "MyArray()": INK groen, noir: PRINT "What's been done above? We increased": PRINT "the number of items in the array by": PRINT "one to make space for the next input": INK wit, noir
   ENDIF
`Assign the latest value to the latest array index
   MyArray(counter) = anyval
`If 0 was given as an input,
   IF anyval = 0
`remove the latest array item. This is just to demonstrate the command, in reality, you'd avoid creating it in most circumstances.
         ARRAY DELETE ELEMENT MyArray(), counter
                  HELP = 1: INK blou, noir: PRINT "IF ";: INK wit, noir: PRINT "anyval = 0": INK blou, noir: PRINT "      ARRAY DELETE ELEMENT ";: INK wit, noir: PRINT "MyArray(), counter"
   ELSE
`Otherwise (IF NOT anyval = 0), INCrease counter by 1, jump back to GetInput (I just used GOTO because it was easier to read in this eg)
                  HELP = 1: INK blou, noir: PRINT "IF NOT ";: INK wit, noir: PRINT "anyval = 0": INK blou, noir: PRINT "INC ";: INK wit, noir: PRINT "counter": INK blou, noir: PRINT "GOTO ";: INK wit, noir: PRINT "GetInout"
         INC counter
         GOTO GetInput
   ENDIF
`So if 0 was entered, program continued to flow, we arrived here:
`Now it's just a case of printing out the array contents after the wait key prompt
   INK wit, noir
   PRINT " "
   PRINT "Looks like that's that. Press any key..."
   WAIT KEY
   CLS
   PRINT "This was stored in the array, MyArray():"
   PRINT " "
`ARRAY COUNT is very useful I could have used the counter variable (and subtracted 1 in this example) but
`I chose to use this because it doesn't depend on a tracking variable and will always give you the most
`accurste reading.
   FOR i = 0 TO ARRAY COUNT(MyArray())
         PRINT MyArray(i)
   NEXT i
   PRINT "... And that's the most basics of arrays"
   PRINT " "
   PRINT "Press any key to exit..."
   WAIT KEY
`We don't need this at the end of the program but good habbits should be maintained as you'd kill arrays
`during the program once they weren't needed - Save The Resources Campaign
   UNDIM MyArray()
   END
`It's the end of the programz :O