Program 2 |
10 DIM A$(40) 20 INPUT A$ 30 FOR Y=43 TO 4 STEP -1 40 FOR X=0 TO 7 50 LET S=43-Y 60 LET N=X+8*INT(S/8) 70 LET SCAN=S-8*INT(S/8) 80 LET P=PEEK(7680+8*CODE(A$(N+1)+SCAN) 90 FOR I=7 TO 0 STEP -1 100 PLOT 8*X+7-I,Y 110 UNPLOT 8*X+7-I,Y 120 IF P<2**I THEN GO TO 150 130 LET P=P-2**I 140 PLOT 8*X+7-I,Y 150 NEXT I 160 NEXT X 170 NEXT Y |