Author Topic: Example of Multiple LOCAL datasets  (Read 355 times)

MrBcx

  • Administrator
  • Hero Member
  • *****
  • Posts: 786
    • View Profile
Example of Multiple LOCAL datasets
« on: August 21, 2020, 09:46:22 PM »
'*************************************************************
' Here are two functions and a demo that shows how to define
' and use multiple local DATA sets using the READ$ function.
' This code is placed in the public domain by Kevin Diggins.
'*************************************************************


FUNCTION MONTH_NAME$ (i)
  SET DATA [] AS CONST PCHAR                  ' DATA must precede CODE that references it.
    "January","February","March","April",
    "May","June","July","August",
    "September","October","November","December"
  END SET
  IF i < 1 OR i > 12 THEN EXIT FUNCTION     ' Return an empty string
  FUNCTION = READ$(i)                              ' READ$() works well here too.
END FUNCTION



FUNCTION WEEKDAY_NAME$ (i)
  SET DATA [] AS CONST PCHAR
    "Sunday","Monday","Tuesday","Wednesday",
    "Thursday","Friday","Saturday"
  END SET
  IF i < 1 OR i > 7 THEN EXIT FUNCTION
  FUNCTION = READ$(i)
END FUNCTION

'---------------------------------------------
'              --  Begin Demo  --
'---------------------------------------------

CLS
PRINT "Here are the MONTH NAMES:"
PRINT

FOR INT i = 1 TO 12
  PRINT MONTH_NAME$(i)
NEXT

PRINT
PRINT "Here are the WEEKDAY NAMES:"
PRINT

FOR INT i = 1 TO 7
  PRINT WEEKDAY_NAME$ (i)
NEXT

PAUSE