Wenn es einen Satz dreht, dürfte das doch ausreichend sein. Mehr wird doch nicht verlangt.
Mein generischer Ansatz in 46 Bytes. Geht sicher kürzer. Fertig.;)
Mehr mache ich daran sowieso nicht :
Code
- !to"gedreht.prg",cbm
- *=$1000
- j1: cpx #40 ; 40 Zeichen
- bne j3 ; nein ?
- rts ; ende
- j3: stx $0c ; Wortanfang
- inx
- lda $03ff,x ; auf Space prüfen
- cmp #32
- bne j0 ; nein, dann Buchstaben zählen
- sta $0428,y ; sonst Space ausgeben
- iny
- bne j1
- j0: inx
- lda $0400,x
- cmp #32 ; sind wir schon am Ende des Wortes
- bne j0
- dex ; Zähler steht auf Space
- j2: lda $0400,x
- sta $0428,y ; Wort verdreht ausgeben
- dex ; runter
- iny
- cpx $0c ; bis auf Wortanfang
- bpl j2
- tya
- tax ; y-Register nach x für neuen Test
- bne j1 ; Sprung an den Anfang