### What version of BASIC is this?

Posted:

**Fri Jun 29, 2018 10:51 am**Hello Everyone....

I'm trying to convert a pre-QBASIC program from 1982 into QBASIC. The author goes into detail about how the program works he but does not identify the version of BASIC he is using. It would be helpful if someone could identify this version of BASIC for me so I may research it. Below is a transcript of one of the shorter programs. Thank you kindly.

10 REM ALGEBRAIC FILE SCRAMBLING DECRYPTION PROGRAM

20 DIM B(100), C(100), K(100)

30 PRINT "YOUR KEYWORD IS";

40 INPUT K$

50 CHANGE K$ TO K

60 LET J=0

70 OPEN:PT:2000

80 FOR L = 1 TO 10

90 INPUT:CTF:A$

100 CHANGE A$ TO B

110 FOR I = 1 TO B(0)

120 GO SUB 250

130 LET K=59-K

130 IF B(I) > 90-K THEN 170

140 LET C(I) = B(I)+K

150 GO TO 180

160 LET C(I)=(B(I)+K-90)+31

170 NEXT I

180 LET C(0)=B(0)

190 CHANGE C TO E$

210 PRINT:PT:E$

220 NEXT L

230 CLOSE:PT

240 STOP

250 LET J=J+1

260 IF J>K(0) THEN 290

270 LET K=K(J)-32

280 RETURN

290 LET J=1

300 LET K=K(J)-32

310 RETURN

320 END

I'm trying to convert a pre-QBASIC program from 1982 into QBASIC. The author goes into detail about how the program works he but does not identify the version of BASIC he is using. It would be helpful if someone could identify this version of BASIC for me so I may research it. Below is a transcript of one of the shorter programs. Thank you kindly.

10 REM ALGEBRAIC FILE SCRAMBLING DECRYPTION PROGRAM

20 DIM B(100), C(100), K(100)

30 PRINT "YOUR KEYWORD IS";

40 INPUT K$

50 CHANGE K$ TO K

60 LET J=0

70 OPEN:PT:2000

80 FOR L = 1 TO 10

90 INPUT:CTF:A$

100 CHANGE A$ TO B

110 FOR I = 1 TO B(0)

120 GO SUB 250

130 LET K=59-K

130 IF B(I) > 90-K THEN 170

140 LET C(I) = B(I)+K

150 GO TO 180

160 LET C(I)=(B(I)+K-90)+31

170 NEXT I

180 LET C(0)=B(0)

190 CHANGE C TO E$

210 PRINT:PT:E$

220 NEXT L

230 CLOSE:PT

240 STOP

250 LET J=J+1

260 IF J>K(0) THEN 290

270 LET K=K(J)-32

280 RETURN

290 LET J=1

300 LET K=K(J)-32

310 RETURN

320 END