QuickBasic Cafe Forum

Code: Select all

CLS
COLOR 10
LOCATE 4, 22
PRINT "(1-10 ONLY!)"

COLOR 13
LOCATE 6, 22
INPUT "How Many Letters Do You Want"; L%

'IF L% = 1 THEN GOTO one
'IF L% = 2 THEN GOTO two
'IF L% = 3 THEN GOTO three
'IF L% = 4 THEN GOTO four
'IF L% = 5 THEN GOTO five
'IF L% = 6 THEN GOTO six
'IF L% = 7 THEN GOTO seven
'IF L% = 8 THEN GOTO eight
'IF L% = 9 THEN GOTO nine
'IF L% = 10 THEN GOTO ten


LOCATE 1, 22
COLOR 14
PRINT "Put in the letter combination that has "; L%
LOCATE 2, 22
COLOR 3
PRINT "Letters That You would like to Scramble\Descramble."

COLOR 1
LOCATE 10, 6
INPUT "1st Letter "; one$
IF L% = 1 THEN GOTO Scramble


COLOR 3
LOCATE 12, 6
INPUT "2nd Letter "; two$
IF L% = 2 THEN GOTO Scramble


COLOR 5
LOCATE 14, 6
INPUT "3rd Letter "; three$
IF L% = 3 THEN GOTO Scramble


COLOR 6
LOCATE 16, 6
INPUT "4th Letter "; four$
IF L% = 4 THEN GOTO Scramble


COLOR 14
LOCATE 18, 6
INPUT "5th Letter"; five$
IF L% = 5 THEN GOTO Scramble


COLOR 13
LOCATE 20, 6
INPUT "6th Letter"; six$
IF L% = 6 THEN GOTO Scramble


COLOR 1
LOCATE 22, 6
INPUT "7th Letter"; seven$
IF L% = 7 THEN GOTO Scramble


COLOR 2
LOCATE 24, 6
INPUT "8th Letter"; eight$
IF L% = 8 THEN GOTO Scramble


COLOR 3
LOCATE 26, 6
INPUT "9th Letter"; nine$
IF L% = 9 THEN GOTO Scramble



COLOR 4
LOCATE 28, 7
INPUT "10th Letter"; ten$
IF L% = 10 THEN GOTO Scramble



Scramble:
COLOR 10
LOCATE 26
PRINT "1:  "; one$; two$



COLOR 12
LOCATE 28
PRINT "2:  "; one$; two$; three$


COLOR 13
LOCATE 30
PRINT "3:  "; one$; two$; three$; four$


COLOR 11
LOCATE 32
PRINT "4:  "; four$; three$; two$; one$


END

Code: Select all

DIM MyArray(1 to 50) as Integer

For i= 1 to 50
    MyArray(i) = Int(rnd*500)
Next


For i= 1 to 50
    Print MyArray(i)
Next