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