46 lines
980 B
Plaintext
46 lines
980 B
Plaintext
100 PRINT CHR$(14);CHR$(147);
|
|
110 PRINT " X";
|
|
120 W=2
|
|
130 FOR I=1 TO 10
|
|
140 : N=I
|
|
150 : GOSUB 520
|
|
160 : PRINT ":"N$;
|
|
170 NEXT I
|
|
180 W=3
|
|
190 FOR I=11 TO 12
|
|
200 : N=I
|
|
210 : GOSUB 520
|
|
220 : PRINT ":"N$;
|
|
230 NEXT
|
|
240 FOR I=1 TO 12
|
|
250 : PRINT "--";
|
|
260 : FOR J=1 TO 10
|
|
270 : PRINT "+--";
|
|
280 : NEXT J
|
|
290 : FOR J=11 TO 12
|
|
300 : PRINT "+---";
|
|
310 : NEXT J
|
|
320 : N=I:W=2:GOSUB 520:PRINT N$;
|
|
330 : FOR J=1 TO 10
|
|
340 : W=2
|
|
350 : IF J<I THEN N$=" ":GOSUB 530:GOTO 370
|
|
360 : N=I*J:GOSUB 520
|
|
370 : IF LEN(N$)<3 THEN PRINT ":";
|
|
380 : PRINT N$;
|
|
390 : NEXT J
|
|
400 : FOR J=11 TO 12
|
|
410 : W=3
|
|
420 : IF J<I THEN N$=" ":GOSUB 530:GOTO 440
|
|
430 : N=I*J:GOSUB 520
|
|
440 : PRINT N$;
|
|
450 : FOR K=1 TO LEN(N$): PRINT CHR$(157);:NEXT K
|
|
460 : PRINT CHR$(148);":";
|
|
470 : IF J<12 THEN FOR K=1 TO LEN(N$):PRINT CHR$(29);: NEXT K
|
|
480 : NEXT J: IF I<12 THEN PRINT
|
|
490 NEXT I
|
|
500 GET K$: IF K$="" THEN 500
|
|
510 END
|
|
520 N$=MID$(STR$(N),2)
|
|
530 IF LEN(N$)<W THEN N$=" "+N$:GOTO 530
|
|
540 RETURN
|