Mayan numerals: Difference between revisions

=={{header|BASIC}}==

<lang BASIC>10 DEFINT A-Z: DIM L$(5)

15 FOR I=0 TO 5: READ L$(I): NEXT I

20 LINE INPUT I$

30 M=LEN(I$): DIM D(M)

40 FOR I=1 TO M: D(I)=VAL(MID$(I$,I,1)): NEXT I

50 FOR J=M-1 TO 1 STEP -1

60 FOR I=1 TO J

70 D(I+1) = D(I+1) + 10*(D(I) AND 1)

80 D(I) = D(I)\2

90 NEXT I,J

100 S=1

110 IF D(S)=0 AND S<M THEN S=S+1: GOTO 110

120 FOR I=S TO M: PRINT "+----";: NEXT I: PRINT "+"

130 FOR L=3 TO 0 STEP -1

140 FOR I=S TO M

150 IF (D(I) OR L)=0 THEN PRINT "| @ ";: GOTO 180

160 N=D(I)-5*L: IF N>5 THEN N=5 ELSE IF N<0 THEN N=0

170 PRINT "|";L$(N);

180 NEXT I

190 PRINT "|"

200 NEXT L

210 FOR I=S TO M: PRINT "+----";: NEXT I: PRINT "+"

220 END

230 DATA " "," . "," .. ","... ","....","----"</lang>

{{out}}

<pre style='line-height: normal; height: 50ex;'>run

4005

+----+----+----+

| | | |

| | | |

|----| | |

|----| @ |----|

+----+----+----+

Ok

run

8017

+----+----+----+----+

| | | | .. |

| | | |----|

| | | |----|

| . | @ | @ |----|

+----+----+----+----+

Ok

run

326205

+----+----+----+----+----+

| | | | | |

| | |----| | |

| | |----|----| |

| .. | @ |----|----|----|

+----+----+----+----+----+

Ok

run

886205

+----+----+----+----+----+

| | | | | |

| | |----| | |

| |----|----|----| |

|----|----|----|----|----|

+----+----+----+----+----+

Ok

run

18380658207197784

+----+----+----+----+----+----+----+----+----+----+----+----+----+

| | | |....| | | | | |....| | | |

| | |....|----|....| | | |....|----|....| | |

| |....|----|----|----|....| |....|----|----|----|....| |

|....|----|----|----|----|----|....|----|----|----|----|----|....|

+----+----+----+----+----+----+----+----+----+----+----+----+----+

Ok</pre>