Store Page
EXAPUNKS
All Discussions Screenshots Artwork Broadcasts Videos Workshop News Guides Reviews

EXAPUNKS

Store Page
EXAPUNKS >  Workshop > Thunder's Workshop
Not enough ratings
DIVISION (POWERED BY EXAS®)
Description Discussions0 Comments2 Change Notes
   
Award
Favorite
Favorited
Unfavorite
File Size
Posted
1.741 KB
4 Sep, 2022 @ 12:22pm
1 Change Note ( view )
Created by
Thunder
Offline
27 Unique Visitors
13 Current Subscribers
0 Current Favorites

Subscribe to download
DIVISION (POWERED BY EXAS®)

Description
This is my first level.
Please like it and leave a comment if you could solve it and what do you think about this level :)


Here is my solution:

LINK 800
MAKE

COPY #DATA F
COPY #DATB F
SEEK -9999

DIVI F F X
COPY 0 F
COPY X F

MARK DIVLOOP
SEEK -9999
MODI F F X
TEST X = 0
TJMP END
SEEK -9999
SEEK 2

;NUMBER OF DIGITS
TEST F = 10
TJMP END
SEEK -1
ADDI F 1 T
SEEK -1
COPY T F
SEEK -9999
SEEK 1
MULI X 10 X
SEEK -2
COPY X F
DIVI X F X
SEEK 9999
COPY X F
JUMP DIVLOOP

MARK END
SEEK -9999
VOID F
VOID F
VOID F
DROP
HALT
2 Comments
< >
Garrett33 20 Apr, 2023 @ 2:50pm 
nice level :)
Kalle 6 Sep, 2022 @ 2:21am 
Here is a simpler solution:

LINK 800
MAKE
@REP 11
COPY 0 F
@END
SEEK -9999
COPY #DATA X
MARK LOOP
DIVI X #DATB F
MODI X #DATB T
FJMP DEL
MULI T 10 X
TEST EOF
FJMP LOOP
MARK DEL
VOID F
JUMP DEL