www.markiske.tk - projecten: ontheemding

WWW.MARKISKE.TK

BLOG - DR - FOTO'S - GEDICHTEN - PROJECTEN - Q-BASIC - WEGWIJZERS - ZVEA



ONTHEEMDING.BAS - een progje in Qbasic

CLS
RANDOMIZE TIMER

PRINT ""
PRINT " ONTHEEMDING"
PRINT ""

1

IF z = 4 THEN
    END
END IF

LET x = INT(RND * 4) + 1
SELECT CASE x
    CASE 1
        GOTO 10
    CASE 2
        GOTO 20
    CASE 3
        GOTO 30
    CASE 4
        GOTO 40
END SELECT

10

LET a = a + 1
IF a > 1 THEN
    GOTO 1
END IF

PRINT " grens";

11

LET y = INT(RND * 4) + 1
SELECT CASE y
    CASE 1
        GOTO 12
    CASE 2
        GOTO 13
    CASE 3
        GOTO 14
    CASE 4
        GOTO 15
END SELECT

12

LET e = e + 1
IF e > 1 THEN
    GOTO 11
END IF
PRINT "ervaring"

LET z = z + 1

GOTO 1

13

LET f = f + 1
IF f > 1 THEN
    GOTO 11
END IF
PRINT "behoud"

LET z = z + 1

GOTO 1

14

LET g = g + 1
IF g > 1 THEN
    GOTO 11
END IF
PRINT "barriere"

LET z = z + 1

GOTO 1

15

LET h = h + 1
IF h > 1 THEN
    GOTO 11
END IF
PRINT "kloof"

LET z = z + 1

GOTO 1

20

LET b = b + 1
IF b > 1 THEN
    GOTO 1
END IF

PRINT " lijfs";

21

LET y = INT(RND * 4) + 1
SELECT CASE y
    CASE 1
        GOTO 22
    CASE 2
        GOTO 23
    CASE 3
        GOTO 24
    CASE 4
        GOTO 25
END SELECT

22

LET e = e + 1
IF e > 1 THEN
    GOTO 21
END IF
PRINT "ervaring"

LET z = z + 1

GOTO 1

23

LET f = f + 1
IF f > 1 THEN
    GOTO 21
END IF
PRINT "behoud"

LET z = z + 1

GOTO 1

24

LET g = g + 1
IF g > 1 THEN
    GOTO 21
END IF
PRINT "barriere"

LET z = z + 1

GOTO 1

25

LET h = h + 1
IF h > 1 THEN
    GOTO 21
END IF
PRINT "kloof"

LET z = z + 1

GOTO 1

30

LET c = c + 1
IF c > 1 THEN
    GOTO 1
END IF

PRINT " taal";

31

LET y = INT(RND * 4) + 1
SELECT CASE y
    CASE 1
        GOTO 32
    CASE 2
        GOTO 33
    CASE 3
        GOTO 34
    CASE 4
        GOTO 35
END SELECT

32

LET e = e + 1
IF e > 1 THEN
    GOTO 31
END IF
PRINT "ervaring"

LET z = z + 1

GOTO 1

33

LET f = f + 1
IF f > 1 THEN
    GOTO 31
END IF
PRINT "behoud"

LET z = z + 1

GOTO 1

34

LET g = g + 1
IF g > 1 THEN
    GOTO 31
END IF
PRINT "barriere"

LET z = z + 1

GOTO 1

35

LET h = h + 1
IF h > 1 THEN
    GOTO 31
END IF
PRINT "kloof"

LET z = z + 1

GOTO 1

40

LET d = d + 1
IF d > 1 THEN
    GOTO 1
END IF

PRINT " cultuur";

41

LET y = INT(RND * 4) + 1
SELECT CASE y
    CASE 1
        GOTO 42
    CASE 2
        GOTO 43
    CASE 3
        GOTO 44
    CASE 4
        GOTO 45
END SELECT

42

LET e = e + 1
IF e > 1 THEN
    GOTO 41
END IF
PRINT "ervaring"

LET z = z + 1

GOTO 1

43

LET f = f + 1
IF f > 1 THEN
    GOTO 41
END IF
PRINT "behoud"

LET z = z + 1

GOTO 1

44

LET g = g + 1
IF g > 1 THEN
    GOTO 41
END IF
PRINT "barriere"

LET z = z + 1

GOTO 1

45

LET h = h + 1
IF h > 1 THEN
    GOTO 41
END IF
PRINT "kloof"

LET z = z + 1

GOTO 1


www.markiske.tk is in handen van Mark Iske en bevat zowel dit als dat, en is groener dan groen door te bestaan uit 100% gerecyclede electronen.