输入：bcf
2 print
4 print "云码Basic乘法口诀"
6 print
8 PRINT "-------------"
10 FOR i = 1 TO 9
20 FOR j = i TO 9
22 p=i*j
30 PRINT i;" x "; j ;"=";p
40 NEXT j
50 PRINT "-------------"
60 NEXT i
62 print "2021-11-14于昆明Mac"
64 print "使用云码输入法Basic程序完成"

天哪，你这是真正的basic呀，此后有Qbasic，有Tbasic，有Vbasic（这个是本贴吧主要讨论的），还有了net……

建议第30行改为
print tab（j*10）；cstr（i）；“×”；cstr（j）；“=”；cstr（i*j）
并取消第22行

已经在win7-32的VB6实现：
输入：kpf，显示：
4 print "农业试验统计模型和Basic程序 张全德"
6 print "p260【程序15】卡平方检验Basic程序(2)"
10 for i=1 to 4:read a(i):next i
16 m(1)=9/16:m(2)=3/16:m(3)=3/16:m(4)=1/16
24 read n
50 s=0
60 for i=1 to 4
70 s=s+(a(i)*a(i))/(m(i)*n)
80 next i
90 s=s-n
92 print ""
100 print "卡平方s=";s
140 data 315,108,101,32,556
142 print
144 print "吴敬祖1984于昆明IBM PC机完成"
146 print "吴敬祖2005-1-16于昆明PC台式机完成"
160 print "吴敬祖2021-11-14于昆明Mac、win7-32位vb6上面实现。"

我不知道为什么微软的Basic非常简单、容易学习的程序，现在必须在苹果手机上的Basic中运行，但是大的程序只能够在win7-32位上实现。我看python编程语言有点与Basic差不多。

10 rem 农业试验统计模型Basic程序【程序27】聚类分析basic程序输入第二个数据的结果
12 REM BASIC PROGRAM OF CLUSTER 网页链接 P.517 网页链接 14 PRINT "PLEASE INPUT 1 N=5, 2 N=5"
20 N=5
22 PRINT "PLEASE INPUT 1 R=-.5, 2 R=0"
24 rem R=-.5
26 R=0
50 DIM D(N, N), N(N), M(N)
60 FOR I = 1 TO N: D(I, I) = 0: N(I) = 1: M(I) = I: NEXT I
70 FOR I = 2 TO N
80 FOR J = 1 TO I - 1
90 READ D(I, J): D(J, I) = D(I, J)
100 NEXT J: NEXT I
102 PRINT
110 PRINT TAB(3); "CLUSTER ANALYSIS TABLE"
112 PRINT
120 A$ = "---------------------------"
130 PRINT A$
140 FOR L = 0 TO N - 2
150 S = D(2, 1): Q = 2: P = 1
160 FOR I = 2 TO N - L
170 FOR J = 1 TO I - 1
180 IF S <= D(I, J) THEN 200
190 S = D(I, J): P = J: Q = I
200 NEXT J: NEXT I
210 PRINT L + 1; " ("; M(P); ","; M(Q); ") ";
220 PRINT " "; S
221 rem PRINT USING "####.##"; S
222 rem PRINT USING "######.####"; S
230 IF R = -.5 THEN 250
240 P1 = N(P) / (N(P) + N(Q)): Q1 = N(Q) / (N(P) + N(Q)): GOTO 260
250 P1 = .5: Q1 = .5
260 FOR K = 1 TO N - L
270 IF K = Q THEN 300
280 D(K, P) = P1 * D(K, P) + Q1 * D(K, Q) + R * ABS(D(K, P) - D(K, Q))
290 D(P, K) = D(K, P)
300 NEXT K
310 N(P) = N(P) + N(Q)
320 IF Q = N - L THEN 430
330 FOR K = Q TO N - 1 - L
340 FOR J = 1 TO Q - 1
350 D(K, J) = D(K + 1, J): D(J, K) = D(K, J)
360 NEXT J
370 M(K) = M(K + 1): N(K) = N(K + 1)
380 NEXT K
390 FOR I = Q TO N - 1 - L
400 FOR J = Q TO N - 1 - L
410 D(I, J) = D(I + 1, J + 1)
420 NEXT J: NEXT I
430 NEXT L
440 PRINT A$
450 PRINT : PRINT
460 DATA .089, 1.2866, .8132, 3.0722, 3.176, 4.3668, 1.3738, 1.1904, 2.6596, 1.576
470 END

input输入：bxh
2 PRINT "Basic循环语句"
10 FOR i = 1 TO 9
20 PRINT i
30 NEXT i
32 PRINT "打印1到9"

input输入：bjf
1 print
2 a=4
4 b=2
5 print "Basic加法 "
6 print " a=4"
7 print " b=2"
8 print " a+b=";a+b

input输入：bjfa
2 print
4 a=4
6 b=2
8 print "Basic减法 "
10 print " a=4"
12 print " b=2"
14 print "a=4,b=2,a-b=";a-b

input输入：bjlfx
10 rem 农业试验统计模型Basic程序【程序27】聚类分析basic程序输入第二个数据的结果
12 REM BASIC PROGRAM OF CLUSTER B27.BAS P.517 b27.bas
14 PRINT "PLEASE INPUT 1 N=5, 2 N=5"
20 N=5
22 PRINT "PLEASE INPUT 1 R=-.5, 2 R=0"
24 rem R=-.5
26 R=0
50 DIM D(N, N), N(N), M(N)
60 FOR I = 1 TO N: D(I, I) = 0: N(I) = 1: M(I) = I: NEXT I
70 FOR I = 2 TO N
80 FOR J = 1 TO I - 1
90 READ D(I, J): D(J, I) = D(I, J)
100 NEXT J: NEXT I
102 PRINT
110 PRINT TAB(3); "CLUSTER ANALYSIS TABLE"
112 PRINT
120 A$ = "---------------------------"
130 PRINT A$
140 FOR L = 0 TO N - 2
150 S = D(2, 1): Q = 2: P = 1
160 FOR I = 2 TO N - L
170 FOR J = 1 TO I - 1
180 IF S <= D(I, J) THEN 200
190 S = D(I, J): P = J: Q = I
200 NEXT J: NEXT I
210 PRINT L + 1; " ("; M(P); ","; M(Q); ") ";
220 PRINT " "; S
221 rem PRINT USING "####.##"; S
222 rem PRINT USING "######.####"; S
230 IF R = -.5 THEN 250
240 P1 = N(P) / (N(P) + N(Q)): Q1 = N(Q) / (N(P) + N(Q)): GOTO 260
250 P1 = .5: Q1 = .5
260 FOR K = 1 TO N - L
270 IF K = Q THEN 300
280 D(K, P) = P1 * D(K, P) + Q1 * D(K, Q) + R * ABS(D(K, P) - D(K, Q))
290 D(P, K) = D(K, P)
300 NEXT K
310 N(P) = N(P) + N(Q)
320 IF Q = N - L THEN 430
330 FOR K = Q TO N - 1 - L
340 FOR J = 1 TO Q - 1
350 D(K, J) = D(K + 1, J): D(J, K) = D(K, J)
360 NEXT J
370 M(K) = M(K + 1): N(K) = N(K + 1)
380 NEXT K
390 FOR I = Q TO N - 1 - L
400 FOR J = Q TO N - 1 - L
410 D(I, J) = D(I + 1, J + 1)
420 NEXT J: NEXT I
430 NEXT L
440 PRINT A$
450 PRINT : PRINT
460 DATA .089, 1.2866, .8132, 3.0722, 3.176, 4.3668, 1.3738, 1.1904, 2.6596, 1.576
470 END

input输入：kpf
4 print "农业试验统计模型和Basic程序 张全德"
6 print "p260【程序15】卡平方检验Basic程序(2)"
10 for i=1 to 4:read a(i):next i
16 m(1)=9/16:m(2)=3/16:m(3)=3/16:m(4)=1/16
24 read n
50 s=0
60 for i=1 to 4
70 s=s+(a(i)*a(i))/(m(i)*n)
80 next i
90 s=s-n
92 print ""
100 print "卡平方s=";s
140 data 315,108,101,32,556
142 print
144 print "1984于昆明IBM PC机完成"
146 print "2005-1-16于昆明PC台式机完成"
160 print "2021-11-14 "

2 print
4 print "云码Basic乘法口诀"
6 print
8 PRINT "----------"
10 FOR i = 1 TO 9
20 FOR j = i TO 9
22 p=i*j
30 PRINT i;" x "; j ;"=";p
40 NEXT j
50 PRINT "-------------"
60 NEXT i
62 print "2021-11-14于昆明Mac"
64 print "使用云码输入法Basic程序完成"

我记得有个LET来着

我记得第一次上机，有个A盘和B盘，穿着鞋套，小心翼翼地打开了电脑

机型不知道了，第一次上机，太激动