image of READY prompt

Wang2200.org

Listing of file='TBO.CRT' on disk='vmedia/toolbox.wvd.zip'

# Sector 1000, program filename = 'TBO.CRT'
0010 REM TBO.CRT 01/08/82 UPPER/LOWER CHARACTER SET DISPLAY
   : DIM K$1,Z$1
0020 SELECT PRINT 005(64)
0030 PRINT HEX(03);TAB(10);"Wang CRT UPPER/lower case character set"
0040 PRINT "  Hex values 00 thru 1F are control characters"
0050 PRINT "00=NULL","01=RESET","02=N.A.","03=CLEAR"
0060 PRINT "04=N.A","05=Cursor on","06=Cursor off","07=BELL"
0070 PRINT "08=LEFT","09=RIGHT","0A=DOWN","0B=N.A."
0080 PRINT "0C=UP","0D=RETURN","0E=N.A.","0F=N.A."
0090 PRINT
   : PRINT "  N.A. means NO ACTION on CRT"
0100 GOTO 180
0110 DEFFN'0
0120 INPUT K
0130 IF K>32THEN 140
   : PRINT HEX(03);
0140 GOSUB 300
0150 K=K+1
0160 IF K>17THEN 180
0170 KEYIN Z$,120,120
   : GOTO 170
0180 PRINT "  Other control codes   HEX value and character displayed"
0190 FOR K=16TO 31
   : GOSUB 300
   : NEXT K
0200 PRINT
   : PRINT TAB(10);"Wang CRT UPPER/lower case CRT alphanumeric codes"
0210 PRINT
0220 PRINT "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890-=<;',./"
0230 PRINT "abcdefghijklmnopqrstuvwxyz !@#$%^&*()-+>:";HEX(22);",.?"
0240 KEYIN Z$,250,250
   : GOTO 240
0250 PRINT
   : PRINT "Following next display the keyboard is active and will show:"
0252 PRINT "HEX value keyed and ASCII display,"
   : PRINT " or S.F.= and HEX if key is with ENDI"
0254 INPUT " KEY RETURN TO CONTINUE",Z
   : PRINT HEX(03);
0260 PRINT
   : PRINT "   CHART SHOWING HEX VALUE AND CHARACTER DISPLAYED"
0270 K=31
   : SELECT PRINT 005(64)
0280 FOR A=1TO 7
   : FOR K=K+1TO K+31
   : GOSUB 300
   : NEXT K
   : PRINT
   : NEXT A
0290 KEYIN Z$,330,340
   : GOTO 290
0300 BIN(K$)=K
0310 HEXPRINT K$;
   : PRINT K$;" ";
0320 RETURN
0330 HEXPRINT Z$;
   : PRINT " ";Z$;" ";
   : GOTO 290
0340 PRINT "S.F.=";
   : HEXPRINT Z$
   : GOTO 290