sub label (disk() as tdisk,number as integer)

    dim i as integer

    dim menu as integer=0
    dim prog as integer=0

    dim key as string
    dim mouse as tmouse
    while inkey<>"":wend

    dim ptr_back as any ptr = imagecreate(640,480)
    get(0,0)-(639,479),ptr_back

    dim ptr_disk as any ptr=imagecreate(128,128)
    bload "DiskBig.bmp",ptr_disk

    dim diskname as string*7

    do
        screenlock
            put (0,0),ptr_back,pset                                             ' Hintergrund zeichnen
            key=inkey                                                           ' Tastatur abfragen
            mouse.reload(mouse)                                                 ' Maus abfragen

            for i=255 to 1 step -1
                if disk(i).visible=true then disk(i).create(ptr_disk,disk(i),i,0)' Disketten zeichnen
            next i

            ' Hier beginnt die eigentliche Routine
            if key<>"" then
                select case asc(left(key,1))
                case 13
                    prog=1 ' PROGRAMMIEREN !!!!!
                case 8
                    print "lulu"
                    diskname=left(diskname,len(diskname)-1)
                case else
                    diskname+=key
                end select
                disk(number).caption=diskname
            end if

            if prog=1 then print "yeehaaww !!"

        screenunlock
        sleep 20,1
        cls
    loop until instr(key,any chr(27))<>0
    if ptr_back<>0 then imagedestroy ptr_back
end sub