29 lines
570 B
QBasic
29 lines
570 B
QBasic
100 DIGITS% = 200
|
||
110 DIM A%( 200 )
|
||
120 HIGH% = DIGITS%
|
||
130 X% = 0
|
||
140 N% = HIGH% - 1
|
||
150 IF N% <= 0 THEN GOTO 200
|
||
160 A%( N% ) = 1
|
||
170 N% = N% - 1
|
||
180 GOTO 150
|
||
200 A%( 1 ) = 2
|
||
210 A%( 0 ) = 0
|
||
220 IF HIGH% <= 9 THEN GOTO 400
|
||
230 HIGH% = HIGH% - 1
|
||
235 N% = HIGH%
|
||
240 IF N% = 0 THEN GOTO 300
|
||
250 A%( N% ) = MOD( X%, N% )
|
||
260 X% = ( 10 * A%( N% - 1 ) ) + ( X% / N% )
|
||
270 N% = N% - 1
|
||
280 GOTO 240
|
||
300 IF X% >= 10 THEN GOTO 330
|
||
310 PRINT USING "#"; X%;
|
||
320 GOTO 220
|
||
330 PRINT USING "##"; X%;
|
||
340 GOTO 220
|
||
400 PRINT ""
|
||
410 PRINT "done"
|
||
420 STOP
|
||
|
||
|