20000 REM	  +-------------------------------------------+
20010 REM         |                                           |
20020 REM         | replacement module for apple VTAB, HTAB   |
20030 REM         | function. using xy screen pos type        |
20040 REM         | function for a televideo 920-950 terminal |
20050 REM         | set VXR  to the VTAB amount, HXC to the   |
20060 REM         | HTAB amount. this will convert the        |
20070 REM         | amounts and set the cursor to the proper  |
20080 REM         | place.                                    |
20090 REM         |                                           |
20091 REM         | This works well with the PCPI Appli-card  |
20092 REM         | To replace the HOME command you can       |
20093 REM         | make HOME$ = CHR$(27)+"*" then just print |
20094 REM         | HOME$.                                    |
20095 REM         |                                           |
20096 REM         | CAUTION: when using this module you       |
20097 REM         |          should not issue the ; following |
20098 REM         |          your print statment.             |
20099 REM         |                                           |
20100 REM         |	DOUG LAING                            |
20101 REM         |     LAING ELECTRONICS INC.                |
20102 REM         |     10382 STANFORD AVE., STE E-203        |
20103 REM         |     GARDEN GROVE, CAL., 92640             |
20104 REM         |     (714) 534-4216                        |
20105 REM         |                                           |
20106 REM         +-------------------------------------------+
20110 REM
20120 REM
20130 REM
20140 REM
20150 REM
20155 RC = 0
20160 RC = VXR : GOSUB 20210 : VXR$ = LEFT$(RC$,1) : RC$ = ""
20165 RC = 0
20170 RC = HXC : GOSUB 20210 : HXC$ = LEFT$(RC$,1) : RC$ = ""
20180 REM PRINT CHR$(30)+CHR$(27)+CHR$(61)+VXR$+HXC$
20181 PRINT CHR$(27)+CHR$(61)+VXR$+HXC$;
20185 REM IF HXC = 1 THEN PRINT CHR$(11)
20190 REM VXR$ = "" : HXC$ = ""
20200 RETURN
20210 REM ********* CONVERT ROW OR COLUMN TO PLACEMENT ********
20220 IF RC = 1 THEN RC$ = CHR$(32):RETURN
20230 IF RC = 2 THEN RC$ = "!":RETURN
20240 IF RC = 3 THEN RC$ = CHR$(34):RETURN
20250 IF RC = 4 THEN RC$ = "#":RETURN
20260 IF RC = 5 THEN RC$ = "$":RETURN
20270 IF RC = 6 THEN RC$ = "%":RETURN
20280 IF RC = 7 THEN RC$ = "&":RETURN
20290 IF RC = 8 THEN RC$ = "'":RETURN
20300 IF RC = 9 THEN RC$ = "(":RETURN
20310 IF RC = 10 THEN RC$ = ")":RETURN
20320 IF RC = 11 THEN RC$ = "*":RETURN
20330 IF RC = 12 THEN RC$ = "+":RETURN
20340 IF RC = 13 THEN RC$ = ",":RETURN
20350 IF RC = 14 THEN RC$ = "-":RETURN
20360 IF RC = 15 THEN RC$ = ".":RETURN
20370 IF RC = 16 THEN RC$ = "/":RETURN
20380 IF RC = 17 THEN RC$ = "0":RETURN
20390 IF RC = 18 THEN RC$ = "1":RETURN
20400 IF RC = 19 THEN RC$ = "2":RETURN
20410 IF RC = 20 THEN RC$ = "3":RETURN
20420 IF RC = 21 THEN RC$ = "4":RETURN
20430 IF RC = 22 THEN RC$ = "5":RETURN
20440 IF RC = 23 THEN RC$ = "6":RETURN
20450 IF RC = 24 THEN RC$ = "7":RETURN
20460 IF RC = 25 THEN RC$ = "8":RETURN
20470 IF RC = 26 THEN RC$ = "9":RETURN
20480 IF RC = 27 THEN RC$ = ":":RETURN
20490 IF RC = 28 THEN RC$ = ";":RETURN
20500 IF RC = 29 THEN RC$ = "<":RETURN
20510 IF RC = 30 THEN RC$ = "=":RETURN
20520 IF RC = 31 THEN RC$ = ">":RETURN
20530 IF RC = 32 THEN RC$ = "?":RETURN
20540 IF RC = 33 THEN RC$ = "@":RETURN
20550 IF RC = 34 THEN RC$ = "A":RETURN
20560 IF RC = 35 THEN RC$ = "B":RETURN
20570 IF RC = 36 THEN RC$ = "C":RETURN
20580 IF RC = 37 THEN RC$ = "D":RETURN
20590 IF RC = 38 THEN RC$ = "E":RETURN
20600 IF RC = 39 THEN RC$ = "F":RETURN
20610 IF RC = 40 THEN RC$ = "G":RETURN
20620 IF RC = 41 THEN RC$ = "H":RETURN
20630  IF RC = 42 THEN RC$ = "I":RETURN
20640 IF RC = 43 THEN RC$ = "J":RETURN
20650 IF RC = 44 THEN RC$ = "K":RETURN
20660 IF RC = 45 THEN RC$ = "L":RETURN
20670 IF RC = 46 THEN RC$ = "M":RETURN
20680 IF RC = 47 THEN RC$ = "N":RETURN
20690 IF RC = 48 THEN RC$ = "O":RETURN
20700 IF RC = 49 THEN RC$ = "P":RETURN
20710 IF RC = 50 THEN RC$ = "Q":RETURN
20720 IF RC = 51 THEN RC$ = "R":RETURN
20730 IF RC = 52 THEN RC$ = "S":RETURN
20740 IF RC = 53 THEN RC$ = "T":RETURN
20750 IF RC = 54 THEN RC$ = "U":RETURN
20760 IF RC = 55 THEN RC$ = "V":RETURN
20770 IF RC = 56 THEN RC$ = "W":RETURN
20780 IF RC = 57 THEN RC$ = "X":RETURN
20790 IF RC = 58 THEN RC$ = "Y":RETURN
20800 IF RC = 59 THEN RC$ = "Z":RETURN
20810 IF RC = 60 THEN RC$ = "[":RETURN
20820 IF RC = 61 THEN RC$ = "\":RETURN
20830 IF RC = 62 THEN RC$ = "]":RETURN
20840 IF RC = 63 THEN RC$ = "^":RETURN
20850 IF RC = 64 THEN RC$ = "_":RETURN
20860 IF RC = 65 THEN RC$ = "`":RETURN
20870 IF RC = 66 THEN RC$ = "a":RETURN
20880 IF RC = 67 THEN RC$ = "b":RETURN
20890 IF RC = 68 THEN RC$ = "c":RETURN
20900 IF RC = 69 THEN RC$ = "d":RETURN
20910 IF RC = 70 THEN RC$ = "e":RETURN
20920 IF RC = 71 THEN RC$ = "f":RETURN
20930 IF RC = 72 THEN RC$ = "g":RETURN
20940 IF RC = 73 THEN RC$ = "h":RETURN
20950 IF RC = 74 THEN RC$ = "i":RETURN
20960 IF RC = 75 THEN RC$ = "j":RETURN
20970 IF RC = 76 THEN RC$ = "k":RETURN
20980 IF RC = 77 THEN RC$ = "l":RETURN
20990 IF RC = 78 THEN RC$ = "m":RETURN
21000 IF RC = 79 THEN RC$ = "n":RETURN
21010 IF RC = 80 THEN RC$ = "o":RETURN
29999 RETURN