;:open1,8,15,"s:disktest $500":close1
;:open8,8,8,"disktest $500,p,w
;:sys36864
	;.opt o8
	*= $500
	jsr $c118
	lda $202
	cmp $fed7
	bcs spezi
	jsr $f24b
rueck	sta $46
	lda #0
	sta $400
sloop	dec $46
	bmi sende
	lda $46
	sta 7
	lda $202
	sta 6
	lda #$80
	sta 0
swait	lda 0
	bmi swait
	cmp #1
	beq sloop
	inc $400
	ldx $400
	lda $46
	sta $400,x
	jmp sloop
sende	lda $1c00
	and #$f7
	jmp $c11e
spezi	lda #17
	bne rueck
	.end
	close8