home *** CD-ROM | disk | FTP | other *** search
/ RISCWORLD 5 / RISCWORLD_VOL5.iso / SOFTWARE / Issue3 / FAMILY / Calendar / Demo / BASIC / Test2 (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  2003-09-20  |  1.2 KB  |  55 lines
  1.  test calendar
  2. $ " at line " 
  3.  JulMon$(12)
  4.  Jan, Feb, Mar, Apr
  5.  May, Jun, Jul, Aug
  6.  Sep, Oct, Nov, Dec
  7.  I%=1 
  8.  JulMon$(I%):
  9.  "Test 2: Compare between Gregorian and Julian calendar for a sequence"
  10.  "        of dates"
  11. )atod% = 
  12. ident("Calendar_JDayToDate")
  13. )dtoa% = 
  14. ident("Calendar_DateToJDay")
  15.  "FROM (Gregorian):"
  16.  "Year (0=stop): "y%
  17.  y%=0 
  18.  "Month        : "m%
  19.  "Day          : "d%
  20.  dtoa%, 2,, y%,m%,d% 
  21.  ,from%
  22.  "(JDay="from%")"
  23.  "TO (Gregorian):"
  24.  "Year         : "y%
  25.  "Month        : "m%
  26.  "Day          : "d%
  27.  dtoa%, 2,, y%,m%,d% 
  28.  ,to%
  29.  "(JDay="to%")"
  30.  "  Gregorian    Julian"
  31.  gday%=from% 
  32.  Gregorian
  33.  atod%, 2, gday% 
  34.   ,,r2%,r3%,r4%
  35. @%="G4":
  36.  ""r2%;
  37. ''@%="G2":
  38. "-"JulMon$(r3%)"-"r4%"  ";
  39.  Julian
  40.  atod%, 1, gday% 
  41.   ,,r2%,r3%,r4%
  42. @%="G4":
  43.  ""r2%;
  44. +#@%="G2":
  45.  "-"JulMon$(r3%)"-"r4%
  46.  gday%
  47.  y%=0
  48. ident(swiname$)
  49.  convert the given swi name to a swi number
  50.  and print the result
  51.  swinr%
  52.  "OS_SWINumberFromString",, swiname$ 
  53.  swinr%
  54. =swinr%
  55.