;:open2,8,2,"star-retter,p,w
;:sys36864
	;.opt o2
	*= $c000
ende	=$a000
start	=16384
	jsr 65409
	lda #<t
	ldy #>t
	jsr $ab1e
	lda #0
	sta 198
d	jsr 65508
	cmp #13
	bne d
	lda #<t2
	ldy #>t2
	jsr $ab1e
	ldx #8
	ldy #0
	jsr $ffba
	lda #7
	ldx #<f
	ldy #>f
	jsr $ffbd
	lda #192
	sta 157
	ldx #<ende
	ldy #>ende
	lda #<start
	sta 2
	lda #>start
	sta 3
	lda #2
	jsr $ffd8
	lda #<t3
	ldy #>t3
	jmp $ab1e
t	.byte "\x12textretter zum startexter\x92"
	.byt 13
	.byte "\x11(c) n. heusler, "
	.byte "111088-arr\x11"
	.byt 13
	.byte "bitte diskette mit 97 oder mehr freien"
	.byt 13
	.byte "blocken einlegen     /   -return-"
	brk
t2	.byt 13
	.byte "\x11bitte ca. 100 sek. geduld !\x11"
	brk
t3	.byt 13
	.byte "\x11ok. speicherung beendet. auf der disket-"
	.byte "te findet sich jetzt ein file namens"
	.byt 13,39
f	.byte "schrott'. es enthaelt den speicher von"
	.byte " 16384 bis 40959 ($4000-$9fff). es kann"
	.byt 13
	.byte "vom startexter wie ein normaler text"
	.byt 13
	.byte "geladen werden.\x11"
	brk