Must I complete everything you do?

by Pete (Login The-Universe)
Admin

 

DEFINT A-Z
WIDTH 80, 50
CLS
column = 40
COLOR 2
FOR Row = 12 TO 40
FOR Col = column - limb TO column + limb
LOCATE Row, Col
ornament = INT(RND * 24)
IF ornament = 0 THEN
COLOR 14: PRINT "*"
ELSEIF ornament = 8 THEN
COLOR 12: PRINT "@"
ELSEIF ornament = 16 THEN
COLOR 9: PRINT "#"
ELSE
COLOR 2: PRINT "X"
END IF
NEXT Col
IF Row MOD 2 THEN limb = limb + 1
NEXT Row

COLOR 15
LOCATE 9, 40: PRINT "*"
LOCATE 10, 38: PRINT "((*))"
LOCATE 11, 40: PRINT "*"
LOCATE 35, 55: PRINT "*"
LOCATE 36, 56: PRINT "*"
LOCATE 37, 57: PRINT "*"
LOCATE 37, 66: PRINT "^^^^^^^^"
LOCATE 38, 1
LOCATE , 48: PRINT "_"; : LOCATE , 52: PRINT "__";
LOCATE , 57: PRINT "V       [][][][][]"
LOCATE , 47: PRINT "{_]-[__]-[_])>    [][][][][]"
PRINT "++++++++++++++++++++++++++++++++++++++++++++++O+O+O++O+OO=o+++++[][][][][]++++++";
COLOR 6
LOCATE 41, 40: COLOR 6: PRINT CHR$(219)
a$ = INPUT$(1)

Posted on Nov 19, 2008, 12:51 PM

Respond to this message   

Return to Index

Response TitleAuthor and Date
* Now fix the hole in QBGuy's tree................ on Nov 19
*lol - I knew there was something missing (Pete loves the choo-choo). on Nov 19
 Christmas with a train on Nov 19

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement