home *** CD-ROM | disk | FTP | other *** search
/ RISCWORLD 5 / RISCWORLD_VOL5.iso / SOFTWARE / Issue3 / FAMILY / Calendar / Demo / BASIC / Test1 (.txt) next >
Encoding:
RISC OS BBC BASIC V Source  |  2003-09-21  |  943 b   |  33 lines
  1.  test calendar
  2. $ " at line " 
  3.  "Test 1: Convert to JDay and back. Show registers."
  4. )atod% = 
  5. ident("Calendar_JDayToDate")
  6. )dtoa% = 
  7. ident("Calendar_DateToJDay")
  8.  '"Calendar (0=stop, 1=julian, 2=gregorian, 3=hebrew, 4=islamic): "c%
  9.  c%=0 
  10.  "Year   : "y%
  11.  "Month  : "m%
  12.  "Day    : "d%
  13.  '"              R0=type    R1=JDay    R2=Year   R3=Month     R4=Day"
  14. !r0%=0:r1%=0:r2%=0:r3%=0:r4%=0
  15.  dtoa%, c%,, y%,m%,d% 
  16.  r0%,r1%,r2%,r3%,r4%
  17.  "DateToJDay "r0%" "r1%" "r2%" "r3%" "r4%
  18. jday%=r1%
  19. !r0%=0:r1%=0:r2%=0:r3%=0:r4%=0
  20.  atod%, c%, jday% 
  21.   r0%,r1%,r2%,r3%,r4%
  22.  "JDayToDate "r0%" "r1%" "r2%" "r3%" "r4%
  23.  c%=0
  24. ident(swiname$)
  25.  convert the given swi name to a swi number
  26.  and print the result
  27.  swinr%
  28.  "OS_SWINumberFromString",, swiname$ 
  29.  swinr%
  30.  "OS_SWINumberFromString "swiname$" = "
  31. ~swinr%
  32. =swinr%
  33.