dim ss$ = "This is a long line with multiple spaces ' string to be searched
dim s$ = " " ' this is the string to search for
ipos = 1 ' this is the position in string to be searched of search string

do while ipos <> 0
  ipos = INSTR(ipos,ss$,s$)
    if ipos = 0 then
      exit do
    endif
  print ipos,mid$(ss$,ipos,len(s$))
  ipos = ipos + 1
loop

' Example program to calculate the number of days between two dates

OPTION EXPLICIT
OPTION DEFAULT NONE
DIM STRING s
DIM FLOAT d1, d2
DO
 PRINT
 PRINT "Enter the date as  dd mmm yyyy"
 PRINT " First date":  INPUT s
 d1 = GetDays(s)
 IF d1 = 0 THEN PRINT "Invalid date!" : CONTINUE DO
 PRINT "Second date":  INPUT s
 d2 = GetDays(s)
 IF d2 = 0 THEN PRINT "Invalid date!" : CONTINUE DO
 PRINT "Difference is" ABS(d2 - d1) " days"
LOOP

' Calculate the number of days since 1/1/1900
 FUNCTION GetDays(d$) AS FLOAT
 LOCAL STRING Month(11) = ("jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec")
 LOCAL FLOAT Days(11) = (0,31,59,90,120,151,181,212,243,273,304,334)
 LOCAL FLOAT day, mth, yr, s1, s2

 ' Find the separating space character within a date
 s1 = INSTR(d$, " ")
 IF s1 = 0 THEN EXIT FUNCTION
 s2 = INSTR(s1 + 1, d$, " ")
 IF s2 = 0 THEN EXIT FUNCTION

 ' Get the day, month and year as numbers
 day = VAL(MID$(d$, 1, s2 - 1)) - 1
 IF day < 0 OR day > 30 THEN EXIT FUNCTION
 FOR mth = 0 TO 11
   IF LCASE$(MID$(d$, s1 + 1, 3)) = Month(mth) THEN EXIT FOR
 NEXT mth
 IF mth > 11 THEN EXIT FUNCTION
 yr = VAL(MID$(d$, s2 + 1)) - 1900
 IF yr < 1 OR yr >= 200 THEN EXIT FUNCTION

 ' Calculate the number of days including adjustment for leap years
 GetDays = (yr * 365) + FIX((yr - 1) / 4)
 IF yr MOD 4 = 0 AND mth >= 2 THEN GetDays = GetDays + 1  GetDays = GetDays + Days(mth) + day
 END FUNCTION

OPTION EXPLICIT
'OPTION DEFAULT NONE (Not an OPTION here)

Sub Start
' Example program to calculate the number of days between two dates

DIM s AS STRING
DIM d1 AS DOUBLE, d2 AS Double

'DoThis: 'Works as well, but changed for a loop
DO
DO
'PRINT
'PRINT "Enter the date as dd mmm yyyy"
'PRINT "First date";
s = INPUTBOX("Enter the date as dd mmm yyyy", "First date")

d1 = GetDays(s)

IF d1 = 0 THEN PRINT "Invalid date!" ': GoTo DoThis 'CONTINUE DO.not existing
LOOP UNTIL d1 <> 0

DO
'PRINT "Second date";
s = INPUTBOX("Enter the date as dd mmm yyyy", "Second date")

d2 = GetDays(s)

IF d2 = 0 THEN PRINT "Invalid date!" ': GoTo DoThis
LOOP UNTIL d1 <> 0

PRINT "Difference is " & ABS(d2 -d1) & " days"

LOOP
End Sub

' Calculate the number of days since 1/1/1900
FUNCTION GetDays(d$) AS DOUBLE
Dim Month(11) AS STRING
Month() = Array("jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec")
Dim Days(11) AS DOUBLE
Days() = Array(0,31,59,90,120,151,181,212,243,273,304,334)
Dim day, mth, yr, s1, s2 AS DOUBLE

' Find the separating space character within a date
s1 = INSTR(d$, " ")
'print s1, 3

IF s1 = 0 THEN EXIT FUNCTION

s2 = INSTR(s1 + 1, d$, " ")

IF s2 = 0 THEN EXIT FUNCTION

' Get the day, month and year as numbers
day = VAL(MID$(d$, 1, s2 -1)) -1

IF day < 0 OR day > 30 THEN EXIT FUNCTION

FOR mth = 0 TO 11
IF LCASE$(MID$(d$, s1 + 1, 3)) = Month(mth) THEN EXIT FOR
NEXT mth

IF mth > 11 THEN EXIT FUNCTION

yr = VAL(MID$(d$, s2 + 1)) -1900

IF yr < 1 OR yr >= 200 THEN EXIT FUNCTION

' Calculate the number of days including adjustment for leap years
GetDays =(yr * 365) + FIX((yr -1) / 4)

IF yr MOD 4 = 0 AND mth >= 2 THEN GetDays = GetDays + 1

GetDays = GetDays + Days(mth) + day
END FUNCTION

   if cpuType%=cmm2% then: ?@(60+sh/3,sv/2)"Bonus:"
   else: text 60+sh/3,sv/2,"Bonus:": endif

   if cpuType%=cmm2% then: ?@(60+sh/3,sv/2)"Bonus:"
   else: text 60+sh/3,sv/2,"Bonus:": endif