I'm anxious to make use of the SMSQ/E "TRA" command with QPC-2 (details
below).
I have turned up Jan Bredenbeek's program "TRA1_bas" (QUANTA October 1986
p11 and QUANTA [Old] QLibrary Disk 12). The code is listed below.
When the following is entered to an "empty" QPC-2 (memory size=4) [under Job
0]
BAUD 1,9600
SER_BUFF 1,0
and the program loaded and run: viz -
=================================
100 REMark TRA-command for RS232-translations
110 REMark Jan Bredenbeek, Hilversum
120 REMark 1986 April 13
130 :
140 DIM v(3)
150 start=RESPR(1024)
160 POKE_W start,19195: REMark $4AFB
170 table_a=start+6: table_b=start+262
180 POKE_W start+2,table_a-start: POKE_W start+4,table_b-start
190 FOR i=0 TO 255:POKE table_a+i,i
200 pointer=table_b+1
210 ncodes=0
220 CLS
230 REPeat loop
240 INPUT "Code ? (ENTER to stop)"!a$
250 IF a$="" THEN EXIT loop
260 REPeat loop1
270 INPUT "Number of repace codes (1-3) ?"!n
280 IF n>0 AND n<4 THEN EXIT loop1
290 END REPeat loop1
300 FOR i=1 TO n
310 INPUT "replacecode"!(i);"?:"!v(i)
320 END FOR i
330 IF n=1 THEN
340 POKE table_a+a$,v(1)
350 ELSE
360 POKE table_a+a$,0
370 POKE pointer,a$
380 FOR i=1 TO n:POKE pointer+i,v(i)
390 ncodes=ncodes+1
400 pointer=pointer+4
410 END IF
420 END REPeat loop
430 POKE table_b,ncodes
440 TRA start,0
450 SBYTES flp1_tra_list,start,pointer-start
460 PRINT "You may reload your codes with:"
470 PRINT "a=RESPR(";pointer-start;")"
480 PRINT "LBYTES flp1_tra_list,a"
490 PRINT "TRA a"
500 REMark *** end of listing TRA1_bas ***
=======================================
the program runs, {and 65,1,66, <enter> is entered as arbitrary test
data}
then it aborts with -
"at line 440:1 invalid parameter".
-----------------------------------------------
Entering "PRINT start" at this juncture yealds:
4.07296E6
Running the program again immediately (using the same data) yealds:
4.07192E6
My system is -
QPC-2 : v 1.51
SMSQ/E: v 2a91
sBASIC : v HBA
Anyone any ideas please?
John in Wales
