 100 REM Purpose: Verify quote characters
 110 REM  Author: Howard Wulf, AF5NE
 120 REM    Date: 2015-10-29
 130 REM    Note: OPTION VERSION SYSTEM-360
 140 REM
 150 PRINT "VARIABLE", "VALUE", "LENGTH"
 200 REM -------------------- STRING CONSTANTS IN EXPRESSIONS
 210 LET A$ = "Aa"
 220 PRINT "A$", A$, LEN(A$)
 230 LET B$ = 'Bb'
 240 PRINT "B$", B$, LEN(B$)
 250 LET C$ = "C'c"
 260 PRINT "C$", C$, LEN(C$)
 270 LET D$ = 'D"d'
 280 PRINT "D$", D$, LEN(D$)
 290 REM LET E$ = "E""e"
 300 REM PRINT "E$", E$, LEN(E$)
 310 REM LET F$ = 'F''f'
 320 REM PRINT "F$", F$, LEN(F$)
 330 LET G$ = ""
 340 PRINT "G$", G$, LEN(G$)
 350 LET H$ = ''
 360 PRINT "H$", H$, LEN(H$)
1200 REM -------------------- STRING CONSTANTS IN DATA
1205 RESTORE
1210 DATA "Aa"
1215 READ A$
1220 PRINT "A$", A$, LEN(A$)
1230 DATA 'Bb'
1235 READ B$
1240 PRINT "B$", B$, LEN(B$)
1250 DATA "C'c"
1255 READ C$
1260 PRINT "C$", C$, LEN(C$)
1270 DATA 'D"d'
1275 READ D$
1280 PRINT "D$", D$, LEN(D$)
1290 REM DATA "E""e"
1295 REM READ E$
1300 REM PRINT "E$", E$, LEN(E$)
1310 REM DATA 'F''f'
1315 REM READ F$
1320 REM PRINT "F$", F$, LEN(F$)
1330 DATA ""
1335 READ G$
1340 PRINT "G$", G$, LEN(G$)
1350 DATA ''
1355 READ H$
1360 PRINT "H$", H$, LEN(H$)
9999 END
