00005 REM With the recent talk about BASIC being useless
00006 REM I just had to demonstrate the utility of BASIC
00007 REM in the modern Linux community.
00009 LET DAY$=""
00010 LET DATE$=""
00011 LET TIME$=""
00012 LET YEAR=0
00020 GOTO 50010
00030 LET DATE$=" September"
00040 GOTO 00600
00050 GOTO 00060
00055 FOR I=1 TO 2001
00056 LET YEAR=YEAR+1
00057 NEXT I
00058 PRINT DAY$,DATE$,YEAR,TIME$
00059 END
00060 LET TIME$=" 11:46:40"
00070 GOTO 00055
00600 LET DATE$=DATE$+" the ninth"
00610 GOTO 00050
50010 LET DAY$="Sunday"
50020 GOTO 00030
50030 REM A finer bowl of spaghetti was never prepared. :-)
50040 REM Hell, I once wrote an 'Eliza' clone in BASIC.
50050 REM (Yes, I am seeking counselling)
--
SLUG - Sydney Linux User Group Mailing List - http://slug.org.au/
More Info: http://slug.org.au/lists/listinfo/slug
