home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jul95 / ripp1f4.gif < prev    next >
Graphics Interchange Format  |  1996-01-31  |  12.4 KB  |  646x379  |  4-bit (5 colors)
   ocr: la DATES.SSL-Schpt-Tun method run(var eventinfo Event) var counter smallint tc TCursor startDate Date enduar startDate == Date("1/1/95") ; Start on Jan 1, 1995 CC.open("dates.dD") tc.edit() for counter from 0 to 364 - Create one year's worth t.insertafterRecord0) - è of data. tc."date" = startDate + counter CC.postkecord0) endFor tc.close() endmethod Edit Line: 13 Col: 1