www.markiske.tk - projecten

WWW.MARKISKE.TK

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



M-sonnet

RANDOMIZE TIMER

PRINT "" : PRINT " MUZE"

1

IF blok = 14 THEN
 END
END IF

PRINT ""

IF blok = 0 OR blok = 4 OR blok = 8 OR blok = 12 THEN
 PRINT ""
END IF

LET woordenopregel = INT(RND * 6) + 1

FOR woord = 1 TO woordenopregel
 PRINT " ";
 FOR letter = 1 TO 4
 LET letterkeus = INT(RND * 4) + 1
 SELECT CASE letterkeus
 CASE 1
 PRINT "M";
 CASE 2
 PRINT "U";
 CASE 3
 PRINT "Z";
 CASE 4
 PRINT "E";
 END SELECT
 NEXT letter
NEXT woord

LET blok = blok + 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.