  100 REM Purpose: Verify quoted strings
  110 REM  Author: Howard Wulf, AF5NE
  120 REM
  130 REM
  200 LET N = 0
  210 LET A$ = "123456789012345678901234567890"
  220 RESTORE

  300 READ B$
  305 DATA ""
  310 GOSUB 8000
  320 READ B$ 
  325 DATA """"
  330 GOSUB 8000
  340 READ B$ 
  345 DATA "THIS HAS ""EMBEDDED"" STRING"
  350 GOSUB 8000
  360 READ B$
  365 DATA"""THIS HAS LEADING QUOTE"
  370 GOSUB 8000
  380 READ B$
  385 DATA "THIS HAS TRAILING QUOTE"""
  390 GOSUB 8000
  400 READ B$
  405 DATA  """THIS"" ""HAS"" ""MANY"" ""STRINGS"""
  410 GOSUB 8000



  1300 READ B$ 
  1305 DATA "
  1310 GOSUB 8000
  1320 READ B$
  1325 DATA """
  1330 GOSUB 8000
  1340 READ B$
  1345 DATA  "THIS HAS ""EMBEDDED"" STRING
  1350 GOSUB 8000
  1360 READ B$
  1365 DATA """THIS HAS LEADING QUOTE
  1370 GOSUB 8000
  1380 READ B$
  1385 DATA  "THIS HAS TRAILING QUOTE""
  1390 GOSUB 8000
  1400 READ B$
  1405 DATA  """THIS"" ""HAS"" ""MANY"" ""STRINGS""
  1410 GOSUB 8000


  7999 GOTO 9999
  8000 REM -------------------------------
  8010 REM PRINT RESULTS
  8020 REM -------------------------
  8030 LET N = N + 1
  8040 PRINT "TESTCASE #";N
  8050 PRINT "LENGTH", "[";A$;"]"
  8060 PRINT LEN(B$) , "[";B$;"]"
  8070 PRINT
  8080 RETURN
  9999 END

