'===========================================================================
' Subject: ASCII HELL                        Date: 10-22-95 (00:00)       
' Author:  Dave Gjessing                     Code: QB, QBasic, VBDOS      
' Origin:  dgjess@freenet.columbus.oh.us   Packet: TEXT.ABC
'===========================================================================
'file ASKYHELL.BAS  DG - 10/22/95
'Qbasic, VBDOS
'have a few too many beers and fart around trying to write something
'that you can't remember why you started, and this is what happens...
'
'(comments available ONLY with the * professional version)
CLS
F = 0
B = 0
Y = 1
X = 1
Q = 9
top:
COLOR F, B
M = VAL(MID$(TIME$, 5, 1))
F = VAL(RIGHT$(TIME$, 1))
IF F > 8 THEN F = F + 1
IF F > 15 THEN F = 0
B = VAL(MID$(TIME$, 7, 1))
IF B > 8 THEN B = B + 1
IF B > 15 THEN B = 0
IF B = F THEN B = B + M
LOCATE Y, X
Y = Y + B + 1
IF Y > 25 THEN Y = 1
X = X + M / Y + M
IF X > 80 THEN X = 1
IF X = 5 AND Y = 6 THEN F = 1: B = 1: X = 1: Y = 1: Q = 1
IF B < 1 THEN B = 1
Q = Q + F * 5 / B
IF Q > 255 THEN Q = 8
PRINT CHR$(Q);
cutitout$ = INKEY$
IF cutitout$ = "c" THEN GOTO last
GOTO top
last:
COLOR 7, 0
CLS
END
'* he he :)