   100 REM Purpose: Verify collating sequence (sort order)
   110 REM  Author: Howard Wulf, AF5NE
   120 REM    Date: 2015-11-28
   130 REM
   200 IF "1" < "A" THEN 300
   210 PRINT "EBCDIC"
   220 GOTO 999
   300 PRINT "ASCII"
   999 END
