Setvirtualresolution(640,480) SetPrintSize(25) ResetTimer() Repeat result$=GetCurrentDate() Print ("Todays date is ") Print ("Day "+Mid(result$,9,2)) Print ("Month "+Mid(result$,6,2)) Print ("Year "+Mid(result$,1,4)) Sync() Until Timer()>12 End