' d$ will probably need to be set as global shared or something or it may lose its data, this annoys me about SUB instead of gosub- eh.
' /IF/ d$ can't keep its data it could result in a near midnight bug where the date on the ball could change mid-fall.
'5, 4, 2007?! 3, 2, something! happy two years from last night! Shall All Data Strings Be Forgot, If Not Set, As Global Shared!... IF THEN is lovely... da da da... and the trousers...
if d$="" then d$=date$
if len(d$)>4 then month$=left$(d$,2):d$=right$(d$,4)
IF month$="12" THEN d$=ltrim$(str$(val(d$)+1)): month$="01" 'fixed! ...clock says still december last year, make it new year
PRINT STRING$(2, 248) + left$(d$,2) + CHR$(248) + (right$(d$,2) + STRING$(2, 248)
'VOILA! like so much other software this code will (hypothetically) suffer from the Y10K bug in several milennia.
|