lol, sorry

by Ben (no login)

 


I was kind of thinking when I wrote that lol. It wasnt meant to run properly, but just show you an idea on how it could be done.

Here is a working one:


x = 10

y = 2

x1 = 70

y1 = 14

SCREEN 0

CLS

LOCATE y, x: PRINT CHR$(201) + STRING$(x1 - x - 2, 205) + CHR$(187)

FOR i = y + 1 TO y1

LOCATE i, x: PRINT CHR$(186)

LOCATE i, x1 - 1: PRINT CHR$(186)

NEXT

LOCATE y1, x: PRINT CHR$(200) + STRING$(x1 - x - 2, 205) + CHR$(188)

PRINT "press any key to see screen 12 version"

SLEEP

SCREEN 12

CLS

x = x * 6

x1 = x1 * 6

y = y * 15

y1 = y1 * 15

LINE (x, y)-(x1, y1), 15, B

LINE (x + 3, y + 3)-(x1 - 3, y1 - 3), 15, B



'Ben

Posted on Dec 4, 2008, 3:18 PM

Respond to this message   

Goto Forum Home

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